proc celldef() {
topol()
subsets()
geom()
biophys()
geom_nseg()
}
create soma, dend_0[9], apic[27], dend_5[20], dend_7[43]
proc topol() { local i
connect dend_0(0), soma(0.5)
for i = 1, 2 connect dend_0[i](0), dend_0[i-1](1)
connect dend_0[3](0), dend_0[1](1)
for i = 4, 5 connect dend_0[i](0), dend_0(1)
for i = 6, 7 connect dend_0[i](0), dend_0[5](1)
connect dend_0[8](0), soma(0.5)
connect apic(0), dend_0[2](1)
for i = 1, 5 connect apic[i](0), apic[i-1](1)
connect apic[6](0), apic[4](1)
connect apic[7](0), apic[3](1)
for i = 8, 9 connect apic[i](0), apic[7](1)
connect apic[10](0), apic[2](1)
for i = 11, 12 connect apic[i](0), apic[10](1)
connect apic[13](0), apic[1](1)
for i = 14, 16 connect apic[i](0), apic[i-1](1)
connect apic[17](0), apic[15](1)
connect apic[18](0), apic[14](1)
connect apic[19](0), apic[13](1)
for i = 20, 21 connect apic[i](0), apic[19](1)
connect apic[22](0), apic(1)
for i = 23, 24 connect apic[i](0), apic[i-1](1)
connect apic[25](0), apic[23](1)
connect apic[26](0), apic[22](1)
connect dend_5(0), apic[8](1)
for i = 1, 3 connect dend_5[i](0), dend_5[i-1](1)
connect dend_5[4](0), dend_5[2](1)
connect dend_5[5](0), dend_5[1](1)
connect dend_5[6](0), dend_5(1)
connect dend_5[7](0), apic[9](1)
for i = 8, 11 connect dend_5[i](0), dend_5[i-1](1)
connect dend_5[12](0), dend_5[10](1)
connect dend_5[13](0), dend_5[9](1)
connect dend_5[14](0), dend_5[8](1)
connect dend_5[15](0), dend_5[7](1)
for i = 16, 17 connect dend_5[i](0), dend_5[15](1)
for i = 18, 19 connect dend_5[i](0), dend_5[17](1)
connect dend_7(0), dend_0[3](1)
for i = 1, 5 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[6](0), dend_7[4](1)
connect dend_7[7](0), dend_7[3](1)
connect dend_7[8](0), dend_7[2](1)
connect dend_7[9](0), dend_7[1](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)
connect dend_7[15](0), dend_0[4](1)
for i = 16, 17 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[18](0), dend_7[16](1)
connect dend_7[19](0), dend_7[15](1)
connect dend_7[20](0), dend_0[6](1)
for i = 21, 22 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[23](0), dend_7[21](1)
for i = 24, 25 connect dend_7[i](0), dend_7[23](1)
connect dend_7[26](0), dend_7[20](1)
for i = 27, 28 connect dend_7[i](0), dend_7[26](1)
for i = 29, 30 connect dend_7[i](0), dend_7[28](1)
connect dend_7[31](0), dend_0[7](1)
for i = 32, 33 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[34](0), dend_7[32](1)
connect dend_7[35](0), dend_7[31](1)
for i = 36, 37 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[38](0), dend_7[36](1)
connect dend_7[39](0), dend_7[35](1)
connect dend_7[40](0), dend_0[8](1)
for i = 41, 42 connect dend_7[i](0), dend_7[40](1)
basic_shape()
}
proc shape3d_1() {
soma {pt3dclear()
pt3dadd(131.78, 111.594, 20.559, 13.954)
pt3dadd(138.757, 111.594, 20.559, 13.954)
pt3dadd(145.734, 111.594, 20.559, 13.954)
}
dend_0 {pt3dclear()
pt3dstyle(1, 138.757, 111.594, 20.559)
pt3dadd(138.7, 111.594, 20.638, 14.026)
pt3dadd(138.706, 111.594, 20.738, 13.998)
pt3dadd(138.713, 111.594, 20.838, 13.97)
pt3dadd(138.715, 111.594, 20.876, 13.958)
}
dend_0[1] {pt3dclear()
pt3dadd(138.715, 111.594, 20.876, 13.958)
pt3dadd(138.595, 111.594, 20.876, 14.136)
pt3dadd(138.475, 111.594, 20.876, 14.316)
pt3dadd(138.376, 111.594, 20.876, 14.464)
}
dend_0[2] {pt3dclear()
pt3dadd(138.376, 111.594, 20.876, 14.464)
pt3dadd(138.326, 111.643, 20.876, 14.424)
pt3dadd(138.241, 111.728, 20.876, 14.356)
pt3dadd(138.157, 111.813, 20.876, 14.288)
pt3dadd(138.072, 111.898, 20.876, 14.22)
pt3dadd(137.987, 111.983, 20.876, 14.152)
pt3dadd(137.903, 112.068, 20.876, 14.082)
pt3dadd(137.818, 112.153, 20.876, 14.014)
pt3dadd(137.732, 112.238, 20.876, 13.946)
pt3dadd(137.648, 112.323, 20.876, 13.878)
pt3dadd(137.563, 112.407, 20.876, 13.81)
pt3dadd(137.478, 112.492, 20.876, 13.742)
pt3dadd(137.394, 112.577, 20.875, 13.674)
pt3dadd(137.309, 112.662, 20.875, 13.606)
pt3dadd(137.224, 112.747, 20.875, 13.536)
pt3dadd(137.14, 112.832, 20.875, 13.458)
pt3dadd(137.054, 112.917, 20.875, 13.364)
pt3dadd(136.969, 113.002, 20.875, 13.27)
pt3dadd(136.884, 113.086, 20.875, 13.176)
pt3dadd(136.8, 113.171, 20.875, 13.082)
pt3dadd(136.715, 113.256, 20.875, 12.988)
pt3dadd(136.63, 113.341, 20.875, 12.896)
pt3dadd(136.546, 113.426, 20.875, 12.802)
pt3dadd(136.46, 113.511, 20.875, 12.708)
pt3dadd(136.375, 113.596, 20.874, 12.614)
pt3dadd(136.291, 113.681, 20.874, 12.504)
pt3dadd(136.206, 113.766, 20.874, 12.376)
pt3dadd(136.121, 113.851, 20.874, 12.248)
pt3dadd(136.037, 113.936, 20.874, 12.12)
pt3dadd(135.952, 114.021, 20.874, 11.992)
pt3dadd(135.868, 114.105, 20.874, 11.864)
pt3dadd(135.782, 114.19, 20.874, 11.736)
pt3dadd(135.697, 114.275, 20.874, 11.608)
pt3dadd(135.613, 114.36, 20.873, 11.48)
pt3dadd(135.528, 114.445, 20.873, 11.352)
pt3dadd(135.443, 114.53, 20.873, 11.22)
pt3dadd(135.359, 114.615, 20.873, 11.084)
pt3dadd(135.274, 114.7, 20.873, 10.946)
pt3dadd(135.19, 114.785, 20.873, 10.808)
pt3dadd(135.104, 114.87, 20.872, 10.672)
pt3dadd(135.019, 114.955, 20.872, 10.534)
pt3dadd(134.935, 115.04, 20.872, 10.396)
pt3dadd(134.85, 115.125, 20.872, 10.26)
pt3dadd(134.766, 115.21, 20.872, 10.122)
pt3dadd(134.681, 115.295, 20.871, 9.984)
pt3dadd(134.596, 115.38, 20.871, 9.848)
}
apic {pt3dclear()
pt3dadd(134.596, 115.38, 20.871, 9.848)
pt3dadd(134.512, 115.465, 20.871, 9.71)
pt3dadd(134.426, 115.55, 20.871, 9.572)
pt3dadd(134.342, 115.635, 20.87, 9.436)
pt3dadd(134.257, 115.72, 20.87, 9.298)
pt3dadd(134.172, 115.805, 20.87, 9.16)
pt3dadd(134.088, 115.89, 20.87, 9.024)
pt3dadd(134.003, 115.975, 20.87, 8.886)
pt3dadd(133.919, 116.06, 20.869, 8.748)
pt3dadd(133.834, 116.145, 20.869, 8.612)
pt3dadd(133.75, 116.23, 20.869, 8.49)
pt3dadd(133.664, 116.315, 20.868, 8.39)
pt3dadd(133.58, 116.4, 20.868, 8.288)
pt3dadd(133.495, 116.485, 20.867, 8.186)
pt3dadd(133.411, 116.571, 20.867, 8.086)
pt3dadd(133.326, 116.656, 20.866, 7.984)
pt3dadd(133.242, 116.741, 20.866, 7.882)
pt3dadd(133.157, 116.826, 20.865, 7.782)
pt3dadd(133.073, 116.911, 20.865, 7.68)
pt3dadd(132.988, 116.996, 20.865, 7.578)
pt3dadd(132.904, 117.081, 20.864, 7.478)
pt3dadd(132.818, 117.167, 20.863, 7.38)
pt3dadd(132.734, 117.252, 20.863, 7.282)
pt3dadd(132.65, 117.337, 20.862, 7.184)
pt3dadd(132.565, 117.422, 20.861, 7.086)
pt3dadd(132.481, 117.507, 20.861, 6.988)
pt3dadd(132.396, 117.593, 20.86, 6.89)
pt3dadd(132.312, 117.678, 20.86, 6.792)
pt3dadd(132.228, 117.763, 20.859, 6.694)
pt3dadd(132.143, 117.848, 20.858, 6.596)
pt3dadd(132.059, 117.934, 20.857, 6.502)
pt3dadd(131.975, 118.019, 20.856, 6.412)
pt3dadd(131.891, 118.105, 20.855, 6.324)
pt3dadd(131.806, 118.19, 20.854, 6.234)
pt3dadd(131.722, 118.276, 20.853, 6.146)
pt3dadd(131.638, 118.361, 20.852, 6.056)
pt3dadd(131.554, 118.447, 20.851, 5.968)
pt3dadd(131.47, 118.532, 20.85, 5.878)
pt3dadd(131.386, 118.618, 20.849, 5.788)
pt3dadd(131.302, 118.704, 20.848, 5.7)
pt3dadd(131.218, 118.789, 20.847, 5.62)
pt3dadd(131.134, 118.875, 20.845, 5.548)
pt3dadd(131.05, 118.961, 20.843, 5.478)
pt3dadd(130.966, 119.046, 20.842, 5.408)
pt3dadd(130.882, 119.132, 20.84, 5.338)
pt3dadd(130.798, 119.218, 20.839, 5.266)
pt3dadd(130.714, 119.303, 20.837, 5.196)
pt3dadd(130.63, 119.389, 20.835, 5.126)
pt3dadd(130.546, 119.475, 20.834, 5.056)
pt3dadd(130.462, 119.561, 20.832, 4.986)
pt3dadd(130.378, 119.646, 20.83, 4.924)
pt3dadd(130.295, 119.733, 20.828, 4.872)
pt3dadd(130.211, 119.819, 20.826, 4.82)
pt3dadd(130.127, 119.905, 20.824, 4.77)
pt3dadd(130.044, 119.991, 20.822, 4.718)
pt3dadd(129.96, 120.077, 20.82, 4.666)
pt3dadd(129.877, 120.163, 20.818, 4.616)
pt3dadd(129.793, 120.25, 20.815, 4.564)
pt3dadd(129.709, 120.335, 20.813, 4.512)
pt3dadd(129.626, 120.421, 20.811, 4.462)
pt3dadd(129.544, 120.508, 20.808, 4.418)
pt3dadd(129.461, 120.595, 20.803, 4.386)
pt3dadd(129.379, 120.683, 20.799, 4.352)
pt3dadd(129.298, 120.77, 20.794, 4.32)
pt3dadd(129.215, 120.858, 20.79, 4.286)
pt3dadd(129.133, 120.946, 20.785, 4.254)
pt3dadd(129.05, 121.033, 20.781, 4.22)
pt3dadd(128.969, 121.12, 20.776, 4.188)
pt3dadd(128.887, 121.207, 20.772, 4.154)
pt3dadd(128.804, 121.295, 20.767, 4.122)
pt3dadd(128.723, 121.382, 20.762, 4.092)
pt3dadd(128.641, 121.47, 20.757, 4.066)
pt3dadd(128.561, 121.559, 20.752, 4.04)
pt3dadd(128.479, 121.646, 20.746, 4.014)
pt3dadd(128.398, 121.734, 20.741, 3.986)
pt3dadd(128.316, 121.822, 20.736, 3.96)
pt3dadd(128.234, 121.91, 20.73, 3.934)
pt3dadd(128.153, 121.998, 20.725, 3.908)
pt3dadd(128.071, 122.086, 20.72, 3.882)
pt3dadd(127.991, 122.173, 20.714, 3.856)
pt3dadd(127.91, 122.262, 20.707, 3.842)
pt3dadd(127.831, 122.352, 20.698, 3.842)
pt3dadd(127.752, 122.442, 20.689, 3.842)
pt3dadd(127.674, 122.532, 20.679, 3.842)
pt3dadd(127.595, 122.622, 20.67, 3.842)
pt3dadd(127.519, 122.712, 20.662, 3.838)
pt3dadd(127.59, 122.801, 20.695, 3.692)
pt3dadd(127.66, 122.89, 20.728, 3.544)
pt3dadd(127.73, 122.98, 20.76, 3.396)
pt3dadd(127.8, 123.068, 20.793, 3.248)
pt3dadd(127.806, 123.169, 20.809, 3.158)
pt3dadd(127.76, 123.281, 20.812, 3.116)
pt3dadd(127.715, 123.391, 20.815, 3.072)
pt3dadd(127.669, 123.503, 20.818, 3.028)
pt3dadd(127.624, 123.613, 20.821, 2.986)
pt3dadd(127.578, 123.725, 20.824, 2.942)
pt3dadd(127.532, 123.835, 20.827, 2.9)
pt3dadd(127.487, 123.946, 20.83, 2.856)
pt3dadd(127.441, 124.057, 20.833, 2.812)
pt3dadd(127.396, 124.168, 20.836, 2.77)
pt3dadd(127.319, 124.26, 20.827, 2.782)
pt3dadd(127.243, 124.352, 20.818, 2.794)
pt3dadd(127.166, 124.445, 20.81, 2.806)
pt3dadd(127.091, 124.536, 20.801, 2.818)
pt3dadd(127.014, 124.628, 20.792, 2.832)
pt3dadd(126.938, 124.721, 20.783, 2.844)
pt3dadd(126.862, 124.813, 20.775, 2.856)
pt3dadd(126.786, 124.904, 20.766, 2.868)
pt3dadd(126.709, 124.997, 20.757, 2.88)
pt3dadd(126.634, 125.089, 20.749, 2.894)
}
apic[1] {pt3dclear()
pt3dadd(126.634, 125.089, 20.749, 2.894)
pt3dadd(126.588, 125.042, 20.705, 2.968)
pt3dadd(126.522, 124.975, 20.642, 3.076)
pt3dadd(126.456, 124.908, 20.58, 3.182)
pt3dadd(126.391, 124.841, 20.518, 3.29)
pt3dadd(126.325, 124.774, 20.455, 3.396)
pt3dadd(126.259, 124.706, 20.393, 3.504)
pt3dadd(126.194, 124.639, 20.331, 3.612)
pt3dadd(126.128, 124.572, 20.268, 3.718)
pt3dadd(126.079, 124.651, 20.244, 3.714)
pt3dadd(126.018, 124.747, 20.214, 3.708)
pt3dadd(125.958, 124.844, 20.183, 3.702)
pt3dadd(125.897, 124.942, 20.153, 3.696)
pt3dadd(125.837, 125.039, 20.123, 3.688)
pt3dadd(125.776, 125.136, 20.093, 3.682)
pt3dadd(125.716, 125.232, 20.062, 3.678)
pt3dadd(125.654, 125.329, 20.032, 3.67)
pt3dadd(125.594, 125.426, 20.002, 3.664)
pt3dadd(125.533, 125.524, 19.971, 3.658)
pt3dadd(125.466, 125.618, 19.948, 3.67)
pt3dadd(125.398, 125.713, 19.926, 3.684)
pt3dadd(125.328, 125.808, 19.904, 3.698)
pt3dadd(125.26, 125.903, 19.883, 3.712)
pt3dadd(125.191, 125.998, 19.861, 3.726)
pt3dadd(125.123, 126.092, 19.839, 3.74)
pt3dadd(125.053, 126.187, 19.817, 3.754)
pt3dadd(124.985, 126.282, 19.795, 3.768)
pt3dadd(124.916, 126.377, 19.774, 3.782)
pt3dadd(124.847, 126.472, 19.752, 3.796)
pt3dadd(124.775, 126.565, 19.735, 3.802)
pt3dadd(124.702, 126.658, 19.718, 3.806)
pt3dadd(124.628, 126.751, 19.702, 3.812)
pt3dadd(124.555, 126.844, 19.685, 3.816)
}
}
proc shape3d_2() {
apic[1] { pt3dadd(124.482, 126.937, 19.669, 3.82)
pt3dadd(124.409, 127.03, 19.653, 3.824)
pt3dadd(124.336, 127.123, 19.636, 3.828)
pt3dadd(124.261, 127.216, 19.62, 3.832)
pt3dadd(124.188, 127.309, 19.604, 3.838)
pt3dadd(124.115, 127.402, 19.587, 3.842)
pt3dadd(124.04, 127.494, 19.573, 3.842)
pt3dadd(123.965, 127.585, 19.559, 3.84)
pt3dadd(123.889, 127.678, 19.546, 3.838)
pt3dadd(123.814, 127.769, 19.532, 3.838)
pt3dadd(123.738, 127.861, 19.518, 3.836)
pt3dadd(123.662, 127.952, 19.505, 3.834)
pt3dadd(123.587, 128.045, 19.491, 3.834)
pt3dadd(123.511, 128.136, 19.477, 3.832)
pt3dadd(123.436, 128.228, 19.463, 3.832)
pt3dadd(123.361, 128.32, 19.45, 3.83)
pt3dadd(123.282, 128.41, 19.44, 3.808)
pt3dadd(123.203, 128.5, 19.431, 3.78)
pt3dadd(123.125, 128.59, 19.423, 3.754)
pt3dadd(123.046, 128.68, 19.414, 3.728)
pt3dadd(122.966, 128.77, 19.405, 3.7)
pt3dadd(122.887, 128.858, 19.396, 3.674)
pt3dadd(122.808, 128.948, 19.387, 3.648)
pt3dadd(122.73, 129.038, 19.378, 3.62)
pt3dadd(122.651, 129.128, 19.37, 3.594)
pt3dadd(122.572, 129.218, 19.361, 3.568)
pt3dadd(122.498, 129.311, 19.345, 3.558)
pt3dadd(122.425, 129.404, 19.327, 3.55)
pt3dadd(122.353, 129.497, 19.31, 3.542)
pt3dadd(122.28, 129.59, 19.293, 3.536)
pt3dadd(122.208, 129.684, 19.275, 3.528)
pt3dadd(122.135, 129.778, 19.258, 3.522)
pt3dadd(122.063, 129.87, 19.24, 3.514)
pt3dadd(121.991, 129.964, 19.223, 3.506)
pt3dadd(121.918, 130.057, 19.206, 3.5)
pt3dadd(121.846, 130.151, 19.188, 3.492)
pt3dadd(121.787, 130.248, 19.156, 3.52)
pt3dadd(121.728, 130.345, 19.124, 3.548)
pt3dadd(121.67, 130.442, 19.091, 3.578)
pt3dadd(121.613, 130.54, 19.058, 3.606)
pt3dadd(121.554, 130.637, 19.025, 3.636)
pt3dadd(121.496, 130.734, 18.993, 3.664)
pt3dadd(121.438, 130.832, 18.96, 3.694)
pt3dadd(121.38, 130.93, 18.927, 3.722)
pt3dadd(121.322, 131.027, 18.894, 3.752)
pt3dadd(121.264, 131.124, 18.862, 3.78)
pt3dadd(121.196, 131.219, 18.838, 3.788)
pt3dadd(121.128, 131.315, 18.816, 3.794)
pt3dadd(121.061, 131.41, 18.793, 3.8)
pt3dadd(120.992, 131.504, 18.771, 3.806)
pt3dadd(120.924, 131.599, 18.748, 3.812)
pt3dadd(120.857, 131.694, 18.725, 3.818)
pt3dadd(120.788, 131.79, 18.703, 3.824)
pt3dadd(120.72, 131.885, 18.68, 3.83)
pt3dadd(120.653, 131.98, 18.657, 3.836)
pt3dadd(120.584, 132.074, 18.635, 3.842)
pt3dadd(120.512, 132.168, 18.616, 3.84)
pt3dadd(120.44, 132.262, 18.598, 3.838)
pt3dadd(120.368, 132.355, 18.58, 3.834)
pt3dadd(120.296, 132.449, 18.563, 3.832)
pt3dadd(120.224, 132.542, 18.544, 3.83)
pt3dadd(120.152, 132.636, 18.526, 3.828)
pt3dadd(120.082, 132.73, 18.508, 3.826)
pt3dadd(120.01, 132.823, 18.49, 3.822)
pt3dadd(119.937, 132.917, 18.472, 3.82)
pt3dadd(119.865, 133.01, 18.454, 3.818)
pt3dadd(119.787, 133.1, 18.445, 3.804)
pt3dadd(119.708, 133.19, 18.435, 3.792)
pt3dadd(119.63, 133.28, 18.426, 3.778)
pt3dadd(119.551, 133.37, 18.417, 3.764)
pt3dadd(119.472, 133.46, 18.407, 3.752)
pt3dadd(119.394, 133.55, 18.398, 3.738)
pt3dadd(119.315, 133.64, 18.388, 3.724)
pt3dadd(119.237, 133.73, 18.379, 3.71)
pt3dadd(119.158, 133.82, 18.37, 3.698)
pt3dadd(119.079, 133.91, 18.36, 3.684)
pt3dadd(118.998, 133.998, 18.354, 3.672)
pt3dadd(118.917, 134.087, 18.348, 3.658)
pt3dadd(118.836, 134.174, 18.343, 3.644)
pt3dadd(118.755, 134.263, 18.337, 3.632)
pt3dadd(118.673, 134.351, 18.331, 3.618)
pt3dadd(118.592, 134.438, 18.325, 3.606)
pt3dadd(118.511, 134.527, 18.319, 3.592)
pt3dadd(118.43, 134.615, 18.313, 3.58)
pt3dadd(118.348, 134.704, 18.308, 3.566)
pt3dadd(118.267, 134.791, 18.302, 3.552)
pt3dadd(118.184, 134.878, 18.3, 3.54)
pt3dadd(118.1, 134.964, 18.298, 3.528)
pt3dadd(118.017, 135.049, 18.296, 3.514)
pt3dadd(117.933, 135.136, 18.293, 3.502)
pt3dadd(117.85, 135.222, 18.291, 3.488)
pt3dadd(117.766, 135.308, 18.289, 3.476)
pt3dadd(117.683, 135.394, 18.287, 3.464)
pt3dadd(117.599, 135.48, 18.285, 3.45)
pt3dadd(117.516, 135.566, 18.283, 3.438)
pt3dadd(117.432, 135.653, 18.281, 3.424)
pt3dadd(117.35, 135.74, 18.277, 3.43)
pt3dadd(117.268, 135.827, 18.272, 3.438)
pt3dadd(117.186, 135.914, 18.268, 3.442)
pt3dadd(117.104, 136.002, 18.263, 3.448)
pt3dadd(117.022, 136.09, 18.259, 3.456)
pt3dadd(116.94, 136.177, 18.254, 3.462)
pt3dadd(116.858, 136.264, 18.25, 3.468)
pt3dadd(116.775, 136.351, 18.246, 3.474)
pt3dadd(116.693, 136.439, 18.241, 3.48)
pt3dadd(116.611, 136.526, 18.237, 3.486)
pt3dadd(116.53, 136.614, 18.232, 3.498)
pt3dadd(116.448, 136.702, 18.226, 3.512)
pt3dadd(116.367, 136.79, 18.221, 3.524)
pt3dadd(116.285, 136.878, 18.216, 3.538)
pt3dadd(116.204, 136.966, 18.21, 3.55)
pt3dadd(116.122, 137.053, 18.205, 3.564)
pt3dadd(116.041, 137.141, 18.2, 3.576)
pt3dadd(115.959, 137.23, 18.195, 3.59)
pt3dadd(115.878, 137.317, 18.19, 3.602)
pt3dadd(115.796, 137.405, 18.184, 3.616)
}
apic[2] {pt3dclear()
pt3dadd(115.796, 137.405, 18.184, 3.616)
pt3dadd(115.748, 137.459, 18.179, 3.624)
pt3dadd(115.669, 137.549, 18.17, 3.638)
pt3dadd(115.59, 137.639, 18.161, 3.65)
pt3dadd(115.512, 137.729, 18.152, 3.664)
pt3dadd(115.433, 137.819, 18.143, 3.678)
pt3dadd(115.354, 137.908, 18.134, 3.692)
pt3dadd(115.275, 137.998, 18.125, 3.704)
pt3dadd(115.196, 138.088, 18.116, 3.718)
pt3dadd(115.117, 138.178, 18.107, 3.732)
pt3dadd(115.038, 138.266, 18.098, 3.744)
pt3dadd(114.959, 138.356, 18.089, 3.758)
pt3dadd(114.88, 138.446, 18.08, 3.772)
pt3dadd(114.801, 138.535, 18.071, 3.784)
pt3dadd(114.722, 138.625, 18.062, 3.798)
pt3dadd(114.642, 138.715, 18.054, 3.812)
pt3dadd(114.564, 138.805, 18.045, 3.824)
pt3dadd(114.485, 138.894, 18.036, 3.838)
pt3dadd(114.422, 138.99, 18.008, 3.794)
pt3dadd(114.364, 139.087, 17.975, 3.738)
pt3dadd(114.306, 139.186, 17.942, 3.68)
pt3dadd(114.249, 139.283, 17.909, 3.624)
pt3dadd(114.191, 139.38, 17.876, 3.566)
pt3dadd(114.133, 139.477, 17.843, 3.508)
pt3dadd(114.075, 139.574, 17.81, 3.452)
pt3dadd(114.017, 139.673, 17.778, 3.394)
pt3dadd(113.959, 139.77, 17.745, 3.336)
pt3dadd(113.901, 139.867, 17.712, 3.28)
pt3dadd(113.839, 139.963, 17.683, 3.228)
pt3dadd(113.776, 140.06, 17.655, 3.176)
pt3dadd(113.713, 140.156, 17.627, 3.124)
pt3dadd(113.65, 140.254, 17.6, 3.072)
pt3dadd(113.587, 140.35, 17.572, 3.022)
pt3dadd(113.523, 140.446, 17.544, 2.97)
pt3dadd(113.46, 140.543, 17.516, 2.918)
pt3dadd(113.397, 140.639, 17.488, 2.868)
pt3dadd(113.334, 140.735, 17.46, 2.816)
pt3dadd(113.271, 140.832, 17.433, 2.764)
pt3dadd(113.202, 140.927, 17.411, 2.72)
pt3dadd(113.133, 141.022, 17.39, 2.678)
pt3dadd(113.063, 141.115, 17.369, 2.636)
pt3dadd(112.993, 141.21, 17.349, 2.594)
pt3dadd(112.924, 141.305, 17.328, 2.552)
pt3dadd(112.854, 141.4, 17.307, 2.51)
pt3dadd(112.784, 141.493, 17.287, 2.468)
pt3dadd(112.715, 141.588, 17.266, 2.426)
pt3dadd(112.645, 141.683, 17.246, 2.384)
pt3dadd(112.575, 141.778, 17.225, 2.342)
pt3dadd(112.5, 141.869, 17.211, 2.328)
pt3dadd(112.424, 141.96, 17.198, 2.32)
pt3dadd(112.348, 142.052, 17.186, 2.314)
pt3dadd(112.271, 142.144, 17.173, 2.306)
pt3dadd(112.195, 142.235, 17.161, 2.298)
pt3dadd(112.119, 142.326, 17.148, 2.29)
pt3dadd(112.043, 142.417, 17.136, 2.284)
pt3dadd(111.966, 142.508, 17.123, 2.276)
pt3dadd(111.89, 142.601, 17.111, 2.268)
pt3dadd(111.814, 142.692, 17.098, 2.262)
pt3dadd(111.736, 142.782, 17.088, 2.264)
pt3dadd(111.658, 142.872, 17.078, 2.27)
pt3dadd(111.58, 142.963, 17.068, 2.276)
pt3dadd(111.501, 143.053, 17.058, 2.282)
pt3dadd(111.423, 143.143, 17.048, 2.288)
pt3dadd(111.345, 143.233, 17.038, 2.294)
pt3dadd(111.267, 143.324, 17.028, 2.3)
pt3dadd(111.189, 143.414, 17.017, 2.306)
pt3dadd(111.111, 143.504, 17.007, 2.312)
pt3dadd(111.033, 143.594, 16.998, 2.318)
pt3dadd(110.952, 143.683, 16.991, 2.352)
pt3dadd(110.871, 143.771, 16.986, 2.39)
pt3dadd(110.789, 143.86, 16.98, 2.43)
pt3dadd(110.708, 143.947, 16.974, 2.47)
pt3dadd(110.627, 144.035, 16.969, 2.508)
pt3dadd(110.546, 144.124, 16.963, 2.548)
pt3dadd(110.465, 144.211, 16.957, 2.588)
pt3dadd(110.383, 144.3, 16.951, 2.626)
pt3dadd(110.302, 144.388, 16.946, 2.666)
pt3dadd(110.221, 144.475, 16.94, 2.706)
pt3dadd(110.141, 144.564, 16.933, 2.722)
pt3dadd(110.061, 144.654, 16.926, 2.732)
pt3dadd(109.981, 144.743, 16.918, 2.744)
pt3dadd(109.901, 144.832, 16.911, 2.754)
pt3dadd(109.821, 144.92, 16.903, 2.766)
pt3dadd(109.741, 145.01, 16.896, 2.778)
}
}
proc shape3d_3() {
apic[2] { pt3dadd(109.661, 145.099, 16.888, 2.788)
pt3dadd(109.581, 145.188, 16.881, 2.8)
pt3dadd(109.501, 145.277, 16.874, 2.81)
pt3dadd(109.421, 145.366, 16.866, 2.822)
pt3dadd(109.343, 145.456, 16.857, 2.802)
pt3dadd(109.265, 145.547, 16.847, 2.774)
pt3dadd(109.187, 145.637, 16.837, 2.748)
pt3dadd(109.108, 145.727, 16.827, 2.72)
pt3dadd(109.03, 145.817, 16.817, 2.694)
pt3dadd(108.952, 145.908, 16.807, 2.666)
pt3dadd(108.874, 145.998, 16.797, 2.64)
pt3dadd(108.796, 146.088, 16.787, 2.612)
pt3dadd(108.718, 146.178, 16.778, 2.586)
pt3dadd(108.639, 146.269, 16.768, 2.558)
pt3dadd(108.575, 146.365, 16.741, 2.568)
pt3dadd(108.514, 146.461, 16.713, 2.582)
pt3dadd(108.452, 146.558, 16.684, 2.598)
pt3dadd(108.391, 146.656, 16.655, 2.612)
pt3dadd(108.329, 146.753, 16.626, 2.628)
pt3dadd(108.267, 146.85, 16.597, 2.642)
pt3dadd(108.206, 146.946, 16.568, 2.658)
pt3dadd(108.144, 147.043, 16.539, 2.672)
pt3dadd(108.083, 147.14, 16.51, 2.686)
pt3dadd(108.021, 147.238, 16.481, 2.702)
pt3dadd(107.964, 147.335, 16.448, 2.728)
pt3dadd(107.907, 147.433, 16.415, 2.754)
pt3dadd(107.85, 147.53, 16.381, 2.78)
pt3dadd(107.794, 147.629, 16.348, 2.806)
pt3dadd(107.737, 147.726, 16.314, 2.834)
pt3dadd(107.68, 147.824, 16.281, 2.86)
pt3dadd(107.623, 147.922, 16.248, 2.886)
pt3dadd(107.566, 148.02, 16.214, 2.912)
pt3dadd(107.509, 148.117, 16.181, 2.938)
pt3dadd(107.453, 148.216, 16.147, 2.964)
pt3dadd(107.389, 148.312, 16.121, 2.98)
pt3dadd(107.325, 148.409, 16.096, 2.994)
pt3dadd(107.26, 148.505, 16.07, 3.008)
pt3dadd(107.196, 148.602, 16.044, 3.022)
pt3dadd(107.132, 148.698, 16.018, 3.036)
pt3dadd(107.068, 148.795, 15.992, 3.052)
pt3dadd(107.004, 148.891, 15.967, 3.066)
pt3dadd(106.94, 148.988, 15.941, 3.08)
pt3dadd(106.875, 149.084, 15.915, 3.094)
pt3dadd(106.811, 149.182, 15.889, 3.108)
pt3dadd(106.744, 149.276, 15.868, 3.098)
pt3dadd(106.676, 149.372, 15.846, 3.086)
pt3dadd(106.608, 149.468, 15.825, 3.074)
pt3dadd(106.54, 149.563, 15.804, 3.062)
pt3dadd(106.472, 149.659, 15.783, 3.05)
pt3dadd(106.405, 149.755, 15.761, 3.036)
pt3dadd(106.337, 149.851, 15.74, 3.024)
pt3dadd(106.269, 149.946, 15.719, 3.012)
pt3dadd(106.201, 150.042, 15.697, 3)
pt3dadd(106.134, 150.138, 15.676, 2.988)
pt3dadd(106.064, 150.233, 15.657, 2.962)
pt3dadd(105.995, 150.329, 15.638, 2.936)
pt3dadd(105.926, 150.424, 15.619, 2.91)
pt3dadd(105.856, 150.518, 15.6, 2.882)
pt3dadd(105.787, 150.614, 15.581, 2.856)
pt3dadd(105.718, 150.709, 15.562, 2.83)
pt3dadd(105.649, 150.805, 15.543, 2.804)
pt3dadd(105.579, 150.9, 15.524, 2.776)
pt3dadd(105.51, 150.996, 15.505, 2.75)
pt3dadd(105.441, 151.091, 15.487, 2.724)
pt3dadd(105.389, 151.192, 15.452, 2.766)
pt3dadd(105.338, 151.291, 15.418, 2.812)
pt3dadd(105.287, 151.392, 15.383, 2.856)
pt3dadd(105.236, 151.492, 15.348, 2.902)
pt3dadd(105.185, 151.592, 15.313, 2.946)
pt3dadd(105.134, 151.693, 15.279, 2.99)
pt3dadd(105.083, 151.793, 15.244, 3.036)
pt3dadd(105.032, 151.894, 15.209, 3.08)
pt3dadd(104.981, 151.993, 15.175, 3.126)
pt3dadd(104.93, 152.094, 15.14, 3.17)
pt3dadd(104.875, 152.195, 15.111, 3.2)
pt3dadd(104.819, 152.296, 15.082, 3.23)
pt3dadd(104.764, 152.395, 15.053, 3.26)
pt3dadd(104.708, 152.496, 15.024, 3.288)
pt3dadd(104.653, 152.597, 14.996, 3.318)
pt3dadd(104.597, 152.698, 14.967, 3.348)
pt3dadd(104.541, 152.798, 14.938, 3.378)
pt3dadd(104.486, 152.898, 14.909, 3.408)
pt3dadd(104.43, 152.999, 14.88, 3.436)
pt3dadd(104.375, 153.1, 14.851, 3.466)
pt3dadd(104.315, 153.2, 14.828, 3.482)
pt3dadd(104.256, 153.3, 14.805, 3.496)
pt3dadd(104.196, 153.401, 14.782, 3.512)
pt3dadd(104.137, 153.502, 14.759, 3.526)
pt3dadd(104.077, 153.602, 14.736, 3.542)
pt3dadd(104.018, 153.702, 14.713, 3.556)
pt3dadd(103.958, 153.803, 14.69, 3.572)
pt3dadd(103.899, 153.904, 14.666, 3.586)
pt3dadd(103.839, 154.003, 14.643, 3.602)
pt3dadd(103.78, 154.104, 14.62, 3.616)
}
apic[3] {pt3dclear()
pt3dadd(103.78, 154.104, 14.62, 3.616)
pt3dadd(103.778, 154.109, 14.619, 3.614)
pt3dadd(103.735, 154.219, 14.602, 3.582)
pt3dadd(103.692, 154.33, 14.586, 3.548)
pt3dadd(103.65, 154.44, 14.569, 3.516)
pt3dadd(103.607, 154.55, 14.552, 3.482)
pt3dadd(103.564, 154.661, 14.535, 3.45)
pt3dadd(103.522, 154.771, 14.518, 3.418)
pt3dadd(103.479, 154.882, 14.501, 3.384)
pt3dadd(103.436, 154.992, 14.485, 3.352)
pt3dadd(103.394, 155.102, 14.468, 3.318)
pt3dadd(103.344, 155.209, 14.454, 3.294)
pt3dadd(103.292, 155.317, 14.44, 3.27)
pt3dadd(103.241, 155.424, 14.427, 3.246)
pt3dadd(103.189, 155.531, 14.414, 3.222)
pt3dadd(103.138, 155.639, 14.4, 3.2)
pt3dadd(103.086, 155.746, 14.387, 3.176)
pt3dadd(103.035, 155.852, 14.374, 3.152)
pt3dadd(102.983, 155.96, 14.36, 3.13)
pt3dadd(102.932, 156.067, 14.347, 3.106)
pt3dadd(102.88, 156.174, 14.334, 3.082)
pt3dadd(102.824, 156.28, 14.321, 3.072)
pt3dadd(102.768, 156.384, 14.308, 3.064)
pt3dadd(102.711, 156.488, 14.295, 3.056)
pt3dadd(102.654, 156.593, 14.282, 3.048)
pt3dadd(102.597, 156.698, 14.269, 3.04)
pt3dadd(102.54, 156.803, 14.256, 3.032)
pt3dadd(102.484, 156.907, 14.243, 3.022)
pt3dadd(102.427, 157.012, 14.231, 3.014)
pt3dadd(102.37, 157.116, 14.218, 3.006)
pt3dadd(102.314, 157.22, 14.205, 2.998)
pt3dadd(102.273, 157.326, 14.171, 3.054)
pt3dadd(102.236, 157.432, 14.135, 3.116)
pt3dadd(102.198, 157.537, 14.099, 3.18)
pt3dadd(102.16, 157.642, 14.063, 3.244)
pt3dadd(102.122, 157.747, 14.027, 3.306)
pt3dadd(102.084, 157.853, 13.991, 3.37)
pt3dadd(102.046, 157.958, 13.955, 3.432)
pt3dadd(102.008, 158.064, 13.92, 3.496)
pt3dadd(101.97, 158.168, 13.884, 3.558)
pt3dadd(101.932, 158.274, 13.848, 3.622)
pt3dadd(101.895, 158.383, 13.818, 3.648)
pt3dadd(101.859, 158.491, 13.79, 3.67)
pt3dadd(101.822, 158.6, 13.762, 3.69)
pt3dadd(101.785, 158.71, 13.733, 3.712)
pt3dadd(101.748, 158.819, 13.705, 3.734)
pt3dadd(101.711, 158.928, 13.676, 3.754)
pt3dadd(101.675, 159.037, 13.648, 3.776)
pt3dadd(101.638, 159.146, 13.62, 3.798)
pt3dadd(101.601, 159.254, 13.591, 3.818)
pt3dadd(101.564, 159.364, 13.563, 3.84)
pt3dadd(101.521, 159.473, 13.541, 3.834)
pt3dadd(101.477, 159.582, 13.52, 3.824)
pt3dadd(101.433, 159.69, 13.499, 3.814)
pt3dadd(101.389, 159.799, 13.479, 3.804)
pt3dadd(101.345, 159.908, 13.458, 3.794)
pt3dadd(101.301, 160.016, 13.437, 3.784)
pt3dadd(101.257, 160.126, 13.416, 3.774)
pt3dadd(101.213, 160.234, 13.395, 3.764)
pt3dadd(101.168, 160.343, 13.374, 3.754)
pt3dadd(101.124, 160.452, 13.353, 3.746)
pt3dadd(101.065, 160.554, 13.34, 3.714)
pt3dadd(101.004, 160.657, 13.328, 3.682)
pt3dadd(100.944, 160.759, 13.316, 3.652)
pt3dadd(100.884, 160.862, 13.303, 3.62)
pt3dadd(100.823, 160.966, 13.291, 3.588)
pt3dadd(100.763, 161.068, 13.278, 3.556)
pt3dadd(100.702, 161.171, 13.266, 3.526)
pt3dadd(100.642, 161.273, 13.253, 3.494)
pt3dadd(100.582, 161.376, 13.241, 3.462)
pt3dadd(100.521, 161.478, 13.228, 3.43)
pt3dadd(100.447, 161.572, 13.221, 3.414)
pt3dadd(100.372, 161.665, 13.214, 3.396)
pt3dadd(100.298, 161.759, 13.207, 3.38)
pt3dadd(100.223, 161.852, 13.201, 3.362)
pt3dadd(100.149, 161.946, 13.194, 3.346)
pt3dadd(100.074, 162.04, 13.187, 3.328)
pt3dadd(99.999, 162.133, 13.18, 3.312)
pt3dadd(99.925, 162.227, 13.173, 3.294)
pt3dadd(99.85, 162.32, 13.166, 3.278)
pt3dadd(99.775, 162.414, 13.159, 3.26)
pt3dadd(99.702, 162.509, 13.151, 3.234)
pt3dadd(99.629, 162.604, 13.143, 3.206)
pt3dadd(99.556, 162.698, 13.135, 3.18)
pt3dadd(99.483, 162.793, 13.127, 3.152)
pt3dadd(99.409, 162.888, 13.119, 3.124)
pt3dadd(99.336, 162.982, 13.111, 3.098)
pt3dadd(99.263, 163.076, 13.103, 3.07)
pt3dadd(99.19, 163.171, 13.095, 3.044)
pt3dadd(99.117, 163.266, 13.087, 3.016)
pt3dadd(99.043, 163.361, 13.079, 2.988)
pt3dadd(98.977, 163.459, 13.067, 2.938)
pt3dadd(98.91, 163.558, 13.056, 2.888)
pt3dadd(98.843, 163.656, 13.044, 2.838)
pt3dadd(98.776, 163.756, 13.032, 2.788)
pt3dadd(98.709, 163.854, 13.021, 2.738)
pt3dadd(98.642, 163.952, 13.009, 2.688)
pt3dadd(98.575, 164.051, 12.998, 2.636)
pt3dadd(98.508, 164.15, 12.986, 2.586)
pt3dadd(98.442, 164.249, 12.975, 2.536)
pt3dadd(98.375, 164.347, 12.963, 2.486)
}
apic[4] {pt3dclear()
pt3dadd(98.375, 164.347, 12.963, 2.486)
pt3dadd(98.445, 164.412, 12.974, 2.448)
pt3dadd(98.532, 164.494, 12.988, 2.4)
pt3dadd(98.619, 164.574, 13.001, 2.352)
pt3dadd(98.706, 164.656, 13.015, 2.304)
}
}
proc shape3d_4() {
apic[4] { pt3dadd(98.793, 164.736, 13.029, 2.256)
pt3dadd(98.88, 164.818, 13.043, 2.208)
pt3dadd(98.967, 164.898, 13.056, 2.158)
pt3dadd(99.054, 164.98, 13.07, 2.11)
pt3dadd(99.141, 165.06, 13.084, 2.062)
pt3dadd(99.228, 165.142, 13.097, 2.014)
pt3dadd(99.315, 165.222, 13.111, 1.966)
pt3dadd(99.402, 165.304, 13.125, 1.918)
pt3dadd(99.489, 165.384, 13.138, 1.87)
pt3dadd(99.576, 165.466, 13.152, 1.822)
pt3dadd(99.662, 165.547, 13.165, 1.776)
pt3dadd(99.748, 165.63, 13.178, 1.73)
pt3dadd(99.833, 165.713, 13.191, 1.686)
pt3dadd(99.919, 165.794, 13.204, 1.64)
pt3dadd(100.005, 165.877, 13.217, 1.594)
pt3dadd(100.091, 165.96, 13.229, 1.55)
pt3dadd(100.177, 166.042, 13.242, 1.504)
pt3dadd(100.263, 166.124, 13.255, 1.458)
pt3dadd(100.349, 166.207, 13.268, 1.412)
pt3dadd(100.435, 166.289, 13.281, 1.368)
pt3dadd(100.504, 166.386, 13.282, 1.356)
pt3dadd(100.567, 166.488, 13.28, 1.356)
pt3dadd(100.631, 166.589, 13.278, 1.356)
pt3dadd(100.695, 166.691, 13.276, 1.356)
pt3dadd(100.759, 166.793, 13.274, 1.356)
pt3dadd(100.822, 166.895, 13.272, 1.356)
pt3dadd(100.886, 166.996, 13.271, 1.356)
pt3dadd(100.95, 167.098, 13.268, 1.356)
pt3dadd(101.013, 167.2, 13.266, 1.356)
pt3dadd(101.077, 167.3, 13.265, 1.356)
pt3dadd(101.134, 167.406, 13.262, 1.368)
pt3dadd(101.189, 167.513, 13.26, 1.382)
pt3dadd(101.244, 167.62, 13.257, 1.398)
pt3dadd(101.299, 167.726, 13.255, 1.412)
pt3dadd(101.353, 167.833, 13.252, 1.428)
pt3dadd(101.408, 167.94, 13.25, 1.444)
pt3dadd(101.463, 168.047, 13.248, 1.458)
pt3dadd(101.518, 168.154, 13.245, 1.474)
pt3dadd(101.573, 168.26, 13.243, 1.488)
pt3dadd(101.628, 168.367, 13.24, 1.504)
pt3dadd(101.668, 168.479, 13.237, 1.526)
pt3dadd(101.706, 168.593, 13.233, 1.548)
pt3dadd(101.744, 168.707, 13.229, 1.572)
pt3dadd(101.781, 168.821, 13.226, 1.594)
pt3dadd(101.819, 168.935, 13.222, 1.618)
pt3dadd(101.857, 169.049, 13.218, 1.64)
pt3dadd(101.895, 169.163, 13.214, 1.664)
pt3dadd(101.932, 169.276, 13.21, 1.688)
pt3dadd(101.97, 169.39, 13.207, 1.71)
pt3dadd(102.008, 169.504, 13.203, 1.734)
pt3dadd(102.036, 169.62, 13.196, 1.71)
pt3dadd(102.063, 169.736, 13.19, 1.674)
pt3dadd(102.09, 169.853, 13.183, 1.64)
pt3dadd(102.117, 169.97, 13.176, 1.606)
pt3dadd(102.144, 170.087, 13.169, 1.57)
pt3dadd(102.17, 170.203, 13.162, 1.536)
pt3dadd(102.197, 170.32, 13.155, 1.5)
pt3dadd(102.224, 170.437, 13.149, 1.466)
pt3dadd(102.251, 170.554, 13.142, 1.432)
pt3dadd(102.277, 170.67, 13.135, 1.396)
pt3dadd(102.317, 170.783, 13.125, 1.4)
pt3dadd(102.36, 170.893, 13.115, 1.412)
pt3dadd(102.403, 171.005, 13.104, 1.422)
pt3dadd(102.446, 171.116, 13.094, 1.434)
pt3dadd(102.489, 171.228, 13.084, 1.446)
pt3dadd(102.532, 171.34, 13.073, 1.456)
pt3dadd(102.575, 171.451, 13.063, 1.468)
pt3dadd(102.618, 171.562, 13.052, 1.48)
pt3dadd(102.661, 171.673, 13.042, 1.492)
pt3dadd(102.703, 171.785, 13.032, 1.502)
pt3dadd(102.741, 171.895, 13.01, 1.496)
pt3dadd(102.776, 172.007, 12.985, 1.488)
pt3dadd(102.812, 172.117, 12.961, 1.478)
pt3dadd(102.848, 172.228, 12.936, 1.468)
pt3dadd(102.884, 172.338, 12.912, 1.458)
pt3dadd(102.92, 172.45, 12.887, 1.45)
pt3dadd(102.956, 172.56, 12.863, 1.44)
pt3dadd(102.992, 172.67, 12.838, 1.43)
pt3dadd(103.028, 172.781, 12.814, 1.422)
pt3dadd(103.063, 172.891, 12.79, 1.412)
pt3dadd(103.09, 173.002, 12.755, 1.384)
pt3dadd(103.116, 173.111, 12.721, 1.356)
pt3dadd(103.142, 173.22, 12.686, 1.328)
pt3dadd(103.167, 173.33, 12.651, 1.3)
pt3dadd(103.193, 173.44, 12.617, 1.272)
pt3dadd(103.219, 173.549, 12.582, 1.244)
pt3dadd(103.245, 173.659, 12.547, 1.216)
pt3dadd(103.271, 173.768, 12.513, 1.188)
pt3dadd(103.297, 173.878, 12.478, 1.16)
pt3dadd(103.323, 173.987, 12.443, 1.132)
pt3dadd(103.338, 174.103, 12.419, 1.13)
pt3dadd(103.352, 174.218, 12.396, 1.13)
pt3dadd(103.367, 174.334, 12.372, 1.13)
pt3dadd(103.381, 174.45, 12.348, 1.13)
pt3dadd(103.396, 174.565, 12.324, 1.13)
pt3dadd(103.41, 174.682, 12.3, 1.13)
pt3dadd(103.425, 174.797, 12.277, 1.13)
pt3dadd(103.439, 174.912, 12.253, 1.13)
pt3dadd(103.454, 175.028, 12.229, 1.13)
pt3dadd(103.468, 175.144, 12.205, 1.13)
pt3dadd(103.474, 175.262, 12.191, 1.158)
pt3dadd(103.479, 175.381, 12.178, 1.186)
pt3dadd(103.485, 175.5, 12.165, 1.216)
pt3dadd(103.49, 175.619, 12.151, 1.244)
pt3dadd(103.496, 175.738, 12.138, 1.274)
pt3dadd(103.501, 175.856, 12.124, 1.302)
pt3dadd(103.506, 175.975, 12.111, 1.332)
pt3dadd(103.512, 176.094, 12.097, 1.36)
pt3dadd(103.517, 176.213, 12.084, 1.39)
pt3dadd(103.523, 176.332, 12.071, 1.418)
pt3dadd(103.529, 176.452, 12.065, 1.436)
pt3dadd(103.535, 176.57, 12.06, 1.452)
pt3dadd(103.541, 176.69, 12.055, 1.468)
pt3dadd(103.547, 176.81, 12.05, 1.484)
pt3dadd(103.553, 176.93, 12.045, 1.5)
pt3dadd(103.56, 177.049, 12.04, 1.516)
pt3dadd(103.566, 177.169, 12.035, 1.534)
pt3dadd(103.572, 177.289, 12.03, 1.55)
pt3dadd(103.578, 177.408, 12.025, 1.566)
pt3dadd(103.584, 177.528, 12.02, 1.582)
pt3dadd(103.594, 177.648, 12.02, 1.568)
pt3dadd(103.604, 177.768, 12.02, 1.552)
pt3dadd(103.614, 177.887, 12.02, 1.538)
pt3dadd(103.624, 178.007, 12.02, 1.524)
pt3dadd(103.634, 178.126, 12.02, 1.51)
pt3dadd(103.644, 178.246, 12.02, 1.494)
pt3dadd(103.654, 178.366, 12.02, 1.48)
pt3dadd(103.664, 178.484, 12.02, 1.466)
pt3dadd(103.674, 178.604, 12.02, 1.45)
pt3dadd(103.684, 178.724, 12.02, 1.436)
pt3dadd(103.698, 178.843, 12.02, 1.384)
pt3dadd(103.711, 178.962, 12.02, 1.33)
pt3dadd(103.725, 179.082, 12.02, 1.276)
pt3dadd(103.739, 179.201, 12.02, 1.224)
pt3dadd(103.753, 179.32, 12.02, 1.17)
pt3dadd(103.767, 179.44, 12.02, 1.116)
pt3dadd(103.781, 179.558, 12.02, 1.064)
pt3dadd(103.795, 179.677, 12.02, 1.01)
pt3dadd(103.809, 179.797, 12.02, 0.958)
pt3dadd(103.823, 179.916, 12.02, 0.904)
}
apic[5] {pt3dclear()
pt3dadd(103.823, 179.916, 12.02, 0.904)
pt3dadd(103.864, 180.018, 12.02, 0.904)
pt3dadd(103.908, 180.13, 12.02, 0.904)
pt3dadd(103.953, 180.241, 12.02, 0.904)
pt3dadd(103.998, 180.352, 12.02, 0.904)
pt3dadd(104.042, 180.463, 12.02, 0.904)
pt3dadd(104.087, 180.575, 12.02, 0.904)
pt3dadd(104.132, 180.686, 12.02, 0.904)
pt3dadd(104.175, 180.798, 12.02, 0.9)
pt3dadd(104.213, 180.912, 12.02, 0.886)
pt3dadd(104.251, 181.026, 12.02, 0.872)
pt3dadd(104.29, 181.139, 12.02, 0.858)
pt3dadd(104.328, 181.253, 12.02, 0.844)
pt3dadd(104.366, 181.367, 12.02, 0.83)
pt3dadd(104.404, 181.481, 12.02, 0.816)
pt3dadd(104.443, 181.595, 12.02, 0.802)
pt3dadd(104.481, 181.708, 12.02, 0.788)
pt3dadd(104.519, 181.822, 12.02, 0.774)
pt3dadd(104.554, 181.937, 12.02, 0.756)
pt3dadd(104.582, 182.053, 12.02, 0.722)
pt3dadd(104.609, 182.17, 12.02, 0.69)
pt3dadd(104.636, 182.287, 12.02, 0.656)
pt3dadd(104.663, 182.404, 12.02, 0.624)
pt3dadd(104.69, 182.521, 12.02, 0.59)
pt3dadd(104.717, 182.638, 12.02, 0.558)
pt3dadd(104.745, 182.754, 12.02, 0.524)
pt3dadd(104.772, 182.872, 12.02, 0.492)
pt3dadd(104.799, 182.988, 12.02, 0.458)
pt3dadd(104.822, 183.106, 12.02, 0.43)
pt3dadd(104.836, 183.226, 12.02, 0.412)
pt3dadd(104.849, 183.344, 12.02, 0.394)
pt3dadd(104.863, 183.463, 12.02, 0.376)
pt3dadd(104.876, 183.583, 12.02, 0.358)
pt3dadd(104.889, 183.702, 12.02, 0.34)
pt3dadd(104.903, 183.821, 12.02, 0.322)
pt3dadd(104.916, 183.941, 12.02, 0.304)
pt3dadd(104.93, 184.06, 12.02, 0.288)
pt3dadd(104.943, 184.18, 12.02, 0.27)
pt3dadd(104.954, 184.298, 12.02, 0.26)
pt3dadd(104.956, 184.418, 12.02, 0.272)
pt3dadd(104.959, 184.538, 12.02, 0.282)
pt3dadd(104.961, 184.658, 12.02, 0.294)
pt3dadd(104.963, 184.778, 12.02, 0.306)
pt3dadd(104.966, 184.898, 12.02, 0.318)
pt3dadd(104.968, 185.018, 12.02, 0.33)
pt3dadd(104.971, 185.138, 12.02, 0.342)
pt3dadd(104.973, 185.258, 12.02, 0.354)
pt3dadd(104.975, 185.378, 12.02, 0.366)
pt3dadd(104.977, 185.498, 12.02, 0.374)
pt3dadd(104.978, 185.618, 12.02, 0.372)
pt3dadd(104.978, 185.738, 12.02, 0.368)
pt3dadd(104.978, 185.858, 12.02, 0.366)
pt3dadd(104.978, 185.978, 12.02, 0.364)
pt3dadd(104.979, 186.098, 12.02, 0.362)
pt3dadd(104.979, 186.218, 12.02, 0.36)
pt3dadd(104.979, 186.338, 12.02, 0.358)
pt3dadd(104.979, 186.458, 12.02, 0.356)
pt3dadd(104.979, 186.578, 12.02, 0.352)
pt3dadd(104.98, 186.698, 12.02, 0.35)
pt3dadd(104.98, 186.818, 12.02, 0.348)
}
}
proc shape3d_5() {
apic[5] { pt3dadd(104.981, 186.938, 12.02, 0.346)
pt3dadd(104.981, 187.058, 12.02, 0.346)
pt3dadd(104.982, 187.178, 12.02, 0.344)
pt3dadd(104.982, 187.298, 12.02, 0.342)
pt3dadd(104.983, 187.418, 12.02, 0.34)
pt3dadd(104.983, 187.538, 12.02, 0.338)
pt3dadd(104.984, 187.658, 12.02, 0.336)
pt3dadd(104.984, 187.778, 12.02, 0.334)
pt3dadd(104.985, 187.898, 12.02, 0.342)
pt3dadd(104.985, 188.018, 12.02, 0.378)
pt3dadd(104.986, 188.138, 12.02, 0.414)
pt3dadd(104.987, 188.258, 12.02, 0.452)
pt3dadd(104.988, 188.378, 12.02, 0.488)
pt3dadd(104.988, 188.498, 12.02, 0.524)
pt3dadd(104.989, 188.618, 12.02, 0.56)
pt3dadd(104.99, 188.738, 12.02, 0.596)
pt3dadd(104.99, 188.858, 12.02, 0.632)
pt3dadd(104.991, 188.978, 12.02, 0.67)
pt3dadd(104.992, 189.098, 12.02, 0.71)
pt3dadd(104.994, 189.218, 12.02, 0.764)
pt3dadd(104.996, 189.338, 12.02, 0.818)
pt3dadd(104.997, 189.458, 12.02, 0.87)
pt3dadd(104.999, 189.578, 12.02, 0.924)
pt3dadd(105.001, 189.698, 12.02, 0.978)
pt3dadd(105.003, 189.818, 12.02, 1.032)
pt3dadd(105.005, 189.938, 12.02, 1.086)
pt3dadd(105.006, 190.058, 12.02, 1.138)
pt3dadd(105.008, 190.178, 12.02, 1.192)
pt3dadd(105.01, 190.298, 12.02, 1.22)
pt3dadd(105.013, 190.418, 12.02, 1.178)
pt3dadd(105.016, 190.538, 12.02, 1.136)
pt3dadd(105.019, 190.658, 12.02, 1.092)
pt3dadd(105.022, 190.778, 12.02, 1.05)
pt3dadd(105.025, 190.898, 12.02, 1.008)
pt3dadd(105.028, 191.018, 12.02, 0.966)
pt3dadd(105.031, 191.138, 12.02, 0.924)
pt3dadd(105.034, 191.257, 12.02, 0.88)
pt3dadd(105.037, 191.377, 12.02, 0.838)
pt3dadd(105.041, 191.497, 12.02, 0.8)
pt3dadd(105.047, 191.617, 12.02, 0.774)
pt3dadd(105.053, 191.737, 12.02, 0.746)
pt3dadd(105.059, 191.857, 12.02, 0.72)
pt3dadd(105.065, 191.977, 12.02, 0.694)
pt3dadd(105.071, 192.097, 12.02, 0.668)
pt3dadd(105.076, 192.217, 12.02, 0.64)
pt3dadd(105.082, 192.337, 12.02, 0.614)
pt3dadd(105.088, 192.456, 12.02, 0.588)
pt3dadd(105.094, 192.576, 12.02, 0.56)
pt3dadd(105.101, 192.696, 12.02, 0.542)
pt3dadd(105.111, 192.816, 12.02, 0.548)
pt3dadd(105.12, 192.935, 12.02, 0.554)
pt3dadd(105.13, 193.055, 12.02, 0.56)
pt3dadd(105.14, 193.175, 12.02, 0.564)
pt3dadd(105.15, 193.295, 12.02, 0.57)
pt3dadd(105.159, 193.414, 12.02, 0.576)
pt3dadd(105.169, 193.534, 12.02, 0.58)
pt3dadd(105.179, 193.654, 12.02, 0.586)
pt3dadd(105.189, 193.772, 12.02, 0.592)
pt3dadd(105.199, 193.892, 12.02, 0.586)
pt3dadd(105.213, 194.011, 12.02, 0.55)
pt3dadd(105.227, 194.13, 12.02, 0.514)
pt3dadd(105.241, 194.25, 12.02, 0.48)
pt3dadd(105.255, 194.369, 12.02, 0.444)
pt3dadd(105.269, 194.488, 12.02, 0.408)
pt3dadd(105.283, 194.608, 12.02, 0.372)
pt3dadd(105.297, 194.726, 12.02, 0.338)
pt3dadd(105.311, 194.845, 12.02, 0.302)
pt3dadd(105.325, 194.965, 12.02, 0.266)
pt3dadd(105.347, 195.082, 12.02, 0.248)
pt3dadd(105.39, 195.194, 12.02, 0.28)
pt3dadd(105.434, 195.306, 12.02, 0.31)
pt3dadd(105.477, 195.418, 12.02, 0.34)
pt3dadd(105.521, 195.529, 12.02, 0.37)
pt3dadd(105.564, 195.641, 12.02, 0.4)
pt3dadd(105.608, 195.754, 12.02, 0.432)
pt3dadd(105.651, 195.865, 12.02, 0.462)
pt3dadd(105.695, 195.977, 12.02, 0.492)
pt3dadd(105.738, 196.088, 12.02, 0.522)
pt3dadd(105.779, 196.201, 12.02, 0.542)
pt3dadd(105.814, 196.316, 12.02, 0.534)
pt3dadd(105.85, 196.43, 12.02, 0.528)
pt3dadd(105.885, 196.546, 12.02, 0.52)
pt3dadd(105.92, 196.66, 12.02, 0.512)
pt3dadd(105.956, 196.775, 12.02, 0.506)
pt3dadd(105.991, 196.89, 12.02, 0.498)
pt3dadd(106.026, 197.004, 12.02, 0.49)
pt3dadd(106.061, 197.119, 12.02, 0.484)
pt3dadd(106.097, 197.233, 12.02, 0.476)
pt3dadd(106.128, 197.35, 12.02, 0.464)
pt3dadd(106.153, 197.467, 12.02, 0.438)
pt3dadd(106.177, 197.584, 12.02, 0.414)
pt3dadd(106.201, 197.701, 12.02, 0.39)
pt3dadd(106.225, 197.819, 12.02, 0.366)
pt3dadd(106.25, 197.936, 12.02, 0.34)
pt3dadd(106.274, 198.054, 12.02, 0.316)
pt3dadd(106.298, 198.172, 12.02, 0.292)
pt3dadd(106.323, 198.289, 12.02, 0.268)
pt3dadd(106.347, 198.407, 12.02, 0.242)
pt3dadd(106.367, 198.524, 12.02, 0.226)
pt3dadd(106.38, 198.644, 12.02, 0.226)
pt3dadd(106.393, 198.763, 12.02, 0.226)
pt3dadd(106.406, 198.883, 12.02, 0.226)
pt3dadd(106.419, 199.002, 12.02, 0.226)
pt3dadd(106.432, 199.122, 12.02, 0.226)
pt3dadd(106.445, 199.241, 12.02, 0.226)
pt3dadd(106.458, 199.36, 12.02, 0.226)
pt3dadd(106.471, 199.48, 12.02, 0.226)
pt3dadd(106.484, 199.598, 12.02, 0.226)
pt3dadd(106.493, 199.718, 12.02, 0.226)
pt3dadd(106.493, 199.838, 12.02, 0.226)
pt3dadd(106.493, 199.958, 12.02, 0.226)
pt3dadd(106.493, 200.078, 12.02, 0.226)
pt3dadd(106.493, 200.198, 12.02, 0.226)
pt3dadd(106.493, 200.318, 12.02, 0.226)
pt3dadd(106.494, 200.438, 12.02, 0.226)
pt3dadd(106.494, 200.558, 12.02, 0.226)
pt3dadd(106.494, 200.678, 12.02, 0.226)
pt3dadd(106.494, 200.798, 12.02, 0.226)
pt3dadd(106.494, 200.918, 12.02, 0.226)
pt3dadd(106.494, 201.038, 12.02, 0.226)
pt3dadd(106.494, 201.158, 12.02, 0.226)
pt3dadd(106.494, 201.278, 12.02, 0.226)
pt3dadd(106.494, 201.398, 12.02, 0.226)
pt3dadd(106.495, 201.518, 12.02, 0.226)
pt3dadd(106.495, 201.638, 12.02, 0.226)
pt3dadd(106.495, 201.758, 12.02, 0.226)
pt3dadd(106.495, 201.878, 12.02, 0.226)
pt3dadd(106.495, 201.998, 12.02, 0.226)
pt3dadd(106.495, 202.118, 12.02, 0.228)
pt3dadd(106.496, 202.238, 12.021, 0.238)
pt3dadd(106.496, 202.358, 12.021, 0.246)
pt3dadd(106.496, 202.478, 12.021, 0.256)
pt3dadd(106.497, 202.598, 12.021, 0.264)
pt3dadd(106.497, 202.718, 12.021, 0.272)
pt3dadd(106.497, 202.838, 12.021, 0.282)
pt3dadd(106.498, 202.958, 12.021, 0.29)
pt3dadd(106.498, 203.078, 12.021, 0.298)
pt3dadd(106.499, 203.198, 12.021, 0.308)
pt3dadd(106.499, 203.318, 12.021, 0.32)
pt3dadd(106.499, 203.438, 12.021, 0.342)
pt3dadd(106.5, 203.558, 12.021, 0.364)
pt3dadd(106.5, 203.678, 12.021, 0.386)
pt3dadd(106.501, 203.798, 12.021, 0.408)
pt3dadd(106.501, 203.918, 12.021, 0.43)
pt3dadd(106.502, 204.038, 12.022, 0.452)
pt3dadd(106.502, 204.158, 12.022, 0.474)
pt3dadd(106.503, 204.278, 12.022, 0.496)
pt3dadd(106.503, 204.398, 12.022, 0.518)
pt3dadd(106.504, 204.518, 12.022, 0.544)
pt3dadd(106.505, 204.638, 12.022, 0.58)
pt3dadd(106.506, 204.758, 12.022, 0.616)
pt3dadd(106.507, 204.878, 12.023, 0.652)
pt3dadd(106.508, 204.998, 12.023, 0.688)
pt3dadd(106.509, 205.118, 12.023, 0.722)
pt3dadd(106.51, 205.238, 12.023, 0.758)
pt3dadd(106.511, 205.358, 12.023, 0.794)
pt3dadd(106.512, 205.478, 12.023, 0.83)
pt3dadd(106.513, 205.598, 12.024, 0.866)
pt3dadd(106.514, 205.718, 12.024, 0.89)
pt3dadd(106.516, 205.838, 12.024, 0.892)
pt3dadd(106.517, 205.958, 12.024, 0.894)
pt3dadd(106.519, 206.078, 12.025, 0.894)
pt3dadd(106.521, 206.198, 12.025, 0.896)
pt3dadd(106.523, 206.318, 12.026, 0.898)
pt3dadd(106.525, 206.438, 12.026, 0.898)
pt3dadd(106.526, 206.558, 12.026, 0.9)
pt3dadd(106.528, 206.678, 12.027, 0.902)
pt3dadd(106.53, 206.798, 12.027, 0.904)
pt3dadd(106.532, 206.918, 12.028, 0.904)
pt3dadd(106.536, 207.038, 12.028, 0.904)
pt3dadd(106.539, 207.158, 12.029, 0.904)
pt3dadd(106.542, 207.277, 12.03, 0.904)
pt3dadd(106.545, 207.397, 12.03, 0.904)
pt3dadd(106.548, 207.517, 12.031, 0.904)
pt3dadd(106.552, 207.637, 12.031, 0.904)
pt3dadd(106.555, 207.757, 12.032, 0.904)
pt3dadd(106.558, 207.877, 12.033, 0.904)
pt3dadd(106.561, 207.997, 12.033, 0.904)
pt3dadd(106.566, 208.117, 12.034, 0.902)
pt3dadd(106.572, 208.237, 12.035, 0.894)
pt3dadd(106.578, 208.357, 12.037, 0.886)
pt3dadd(106.585, 208.477, 12.038, 0.878)
pt3dadd(106.591, 208.597, 12.039, 0.872)
pt3dadd(106.597, 208.716, 12.04, 0.864)
pt3dadd(106.604, 208.836, 12.041, 0.856)
pt3dadd(106.61, 208.956, 12.043, 0.848)
pt3dadd(106.617, 209.076, 12.044, 0.84)
pt3dadd(106.623, 209.196, 12.045, 0.834)
pt3dadd(106.631, 209.316, 12.046, 0.824)
pt3dadd(106.641, 209.435, 12.048, 0.812)
pt3dadd(106.652, 209.555, 12.05, 0.8)
pt3dadd(106.662, 209.674, 12.052, 0.788)
pt3dadd(106.672, 209.794, 12.054, 0.776)
pt3dadd(106.683, 209.914, 12.057, 0.762)
pt3dadd(106.693, 210.032, 12.059, 0.75)
pt3dadd(106.704, 210.152, 12.061, 0.738)
pt3dadd(106.714, 210.271, 12.063, 0.726)
pt3dadd(106.725, 210.391, 12.065, 0.714)
pt3dadd(106.737, 210.51, 12.067, 0.712)
pt3dadd(106.753, 210.629, 12.071, 0.73)
}
}
proc shape3d_6() {
apic[5] { pt3dadd(106.769, 210.748, 12.074, 0.748)
pt3dadd(106.785, 210.868, 12.078, 0.766)
pt3dadd(106.801, 210.986, 12.081, 0.782)
pt3dadd(106.817, 211.105, 12.085, 0.8)
pt3dadd(106.833, 211.224, 12.088, 0.818)
pt3dadd(106.85, 211.343, 12.092, 0.836)
pt3dadd(106.866, 211.462, 12.095, 0.854)
pt3dadd(106.882, 211.58, 12.099, 0.872)
pt3dadd(106.907, 211.697, 12.104, 0.884)
pt3dadd(106.952, 211.807, 12.111, 0.886)
pt3dadd(106.996, 211.919, 12.118, 0.888)
pt3dadd(107.04, 212.029, 12.126, 0.89)
pt3dadd(107.085, 212.141, 12.133, 0.892)
pt3dadd(107.129, 212.252, 12.14, 0.894)
pt3dadd(107.174, 212.363, 12.148, 0.896)
pt3dadd(107.218, 212.474, 12.155, 0.898)
pt3dadd(107.263, 212.585, 12.163, 0.9)
pt3dadd(107.307, 212.696, 12.17, 0.902)
pt3dadd(107.351, 212.808, 12.179, 0.908)
pt3dadd(107.395, 212.918, 12.189, 0.916)
pt3dadd(107.438, 213.03, 12.2, 0.924)
pt3dadd(107.481, 213.14, 12.211, 0.932)
pt3dadd(107.524, 213.252, 12.222, 0.94)
pt3dadd(107.568, 213.364, 12.233, 0.948)
pt3dadd(107.611, 213.474, 12.244, 0.956)
pt3dadd(107.654, 213.586, 12.254, 0.966)
pt3dadd(107.697, 213.697, 12.265, 0.974)
pt3dadd(107.741, 213.808, 12.276, 0.982)
pt3dadd(107.782, 213.919, 12.29, 0.992)
pt3dadd(107.819, 214.032, 12.308, 1.006)
pt3dadd(107.856, 214.144, 12.326, 1.022)
pt3dadd(107.893, 214.255, 12.344, 1.036)
pt3dadd(107.93, 214.368, 12.362, 1.05)
pt3dadd(107.967, 214.48, 12.38, 1.064)
pt3dadd(108.004, 214.592, 12.398, 1.078)
pt3dadd(108.041, 214.704, 12.416, 1.094)
pt3dadd(108.078, 214.816, 12.434, 1.108)
pt3dadd(108.115, 214.928, 12.452, 1.122)
pt3dadd(108.148, 215.038, 12.481, 1.13)
pt3dadd(108.177, 215.142, 12.523, 1.13)
pt3dadd(108.206, 215.248, 12.564, 1.13)
pt3dadd(108.234, 215.352, 12.606, 1.13)
pt3dadd(108.263, 215.458, 12.648, 1.13)
pt3dadd(108.292, 215.563, 12.69, 1.13)
pt3dadd(108.32, 215.668, 12.732, 1.13)
pt3dadd(108.349, 215.773, 12.774, 1.13)
pt3dadd(108.378, 215.879, 12.816, 1.13)
pt3dadd(108.406, 215.983, 12.857, 1.13)
pt3dadd(108.442, 216.088, 12.896, 1.12)
pt3dadd(108.487, 216.191, 12.931, 1.1)
pt3dadd(108.532, 216.294, 12.966, 1.078)
pt3dadd(108.577, 216.397, 13.001, 1.056)
pt3dadd(108.622, 216.5, 13.036, 1.036)
pt3dadd(108.666, 216.604, 13.071, 1.014)
pt3dadd(108.711, 216.706, 13.106, 0.992)
pt3dadd(108.756, 216.809, 13.141, 0.972)
pt3dadd(108.801, 216.912, 13.176, 0.95)
pt3dadd(108.846, 217.015, 13.211, 0.928)
pt3dadd(108.893, 217.117, 13.246, 0.906)
pt3dadd(108.943, 217.218, 13.281, 0.882)
pt3dadd(108.993, 217.319, 13.315, 0.858)
pt3dadd(109.043, 217.42, 13.35, 0.834)
pt3dadd(109.093, 217.52, 13.384, 0.81)
pt3dadd(109.143, 217.622, 13.419, 0.786)
pt3dadd(109.193, 217.723, 13.453, 0.762)
pt3dadd(109.243, 217.824, 13.488, 0.738)
pt3dadd(109.293, 217.925, 13.522, 0.714)
pt3dadd(109.344, 218.026, 13.557, 0.69)
pt3dadd(109.39, 218.125, 13.596, 0.678)
pt3dadd(109.434, 218.224, 13.641, 0.678)
pt3dadd(109.478, 218.322, 13.685, 0.678)
pt3dadd(109.522, 218.419, 13.729, 0.678)
pt3dadd(109.566, 218.518, 13.773, 0.678)
pt3dadd(109.61, 218.616, 13.818, 0.678)
pt3dadd(109.654, 218.714, 13.862, 0.678)
pt3dadd(109.698, 218.813, 13.906, 0.678)
pt3dadd(109.742, 218.911, 13.95, 0.678)
pt3dadd(109.786, 219.01, 13.994, 0.678)
pt3dadd(109.836, 219.108, 14.032, 0.678)
pt3dadd(109.894, 219.205, 14.065, 0.678)
pt3dadd(109.951, 219.304, 14.097, 0.678)
pt3dadd(110.009, 219.402, 14.129, 0.678)
pt3dadd(110.066, 219.5, 14.161, 0.678)
pt3dadd(110.123, 219.598, 14.193, 0.678)
pt3dadd(110.181, 219.696, 14.225, 0.678)
pt3dadd(110.238, 219.794, 14.257, 0.678)
pt3dadd(110.295, 219.892, 14.29, 0.678)
pt3dadd(110.353, 219.99, 14.322, 0.678)
pt3dadd(110.414, 220.087, 14.35, 0.676)
pt3dadd(110.478, 220.184, 14.375, 0.674)
pt3dadd(110.542, 220.282, 14.4, 0.672)
pt3dadd(110.607, 220.378, 14.425, 0.668)
pt3dadd(110.671, 220.475, 14.449, 0.666)
pt3dadd(110.735, 220.572, 14.474, 0.664)
pt3dadd(110.799, 220.669, 14.499, 0.66)
pt3dadd(110.864, 220.765, 14.524, 0.658)
pt3dadd(110.928, 220.862, 14.549, 0.656)
pt3dadd(110.992, 220.96, 14.574, 0.652)
pt3dadd(111.059, 221.056, 14.595, 0.634)
pt3dadd(111.128, 221.152, 14.613, 0.606)
pt3dadd(111.197, 221.248, 14.632, 0.578)
pt3dadd(111.266, 221.342, 14.65, 0.55)
pt3dadd(111.334, 221.438, 14.668, 0.52)
pt3dadd(111.403, 221.534, 14.686, 0.492)
pt3dadd(111.472, 221.63, 14.704, 0.464)
pt3dadd(111.541, 221.726, 14.723, 0.436)
pt3dadd(111.61, 221.822, 14.741, 0.406)
pt3dadd(111.679, 221.917, 14.759, 0.378)
pt3dadd(111.742, 222.016, 14.782, 0.358)
pt3dadd(111.801, 222.115, 14.808, 0.344)
pt3dadd(111.86, 222.215, 14.835, 0.33)
pt3dadd(111.919, 222.314, 14.861, 0.316)
pt3dadd(111.978, 222.414, 14.887, 0.302)
pt3dadd(112.037, 222.514, 14.914, 0.288)
pt3dadd(112.096, 222.613, 14.94, 0.274)
pt3dadd(112.155, 222.713, 14.967, 0.26)
pt3dadd(112.214, 222.812, 14.993, 0.244)
pt3dadd(112.273, 222.912, 15.02, 0.23)
pt3dadd(112.325, 223.013, 15.051, 0.226)
pt3dadd(112.374, 223.115, 15.084, 0.226)
pt3dadd(112.423, 223.217, 15.118, 0.228)
pt3dadd(112.471, 223.319, 15.152, 0.228)
pt3dadd(112.52, 223.421, 15.186, 0.228)
pt3dadd(112.569, 223.523, 15.22, 0.23)
pt3dadd(112.618, 223.625, 15.253, 0.23)
pt3dadd(112.666, 223.727, 15.287, 0.23)
pt3dadd(112.715, 223.829, 15.321, 0.23)
pt3dadd(112.764, 223.93, 15.355, 0.232)
pt3dadd(112.816, 224.034, 15.38, 0.252)
pt3dadd(112.87, 224.137, 15.402, 0.282)
pt3dadd(112.924, 224.242, 15.423, 0.314)
pt3dadd(112.978, 224.346, 15.445, 0.344)
pt3dadd(113.032, 224.449, 15.466, 0.376)
pt3dadd(113.086, 224.554, 15.488, 0.406)
pt3dadd(113.14, 224.658, 15.509, 0.438)
pt3dadd(113.194, 224.761, 15.53, 0.468)
pt3dadd(113.248, 224.866, 15.552, 0.5)
pt3dadd(113.302, 224.97, 15.573, 0.53)
pt3dadd(113.348, 225.078, 15.591, 0.562)
pt3dadd(113.388, 225.19, 15.606, 0.596)
pt3dadd(113.43, 225.301, 15.622, 0.63)
pt3dadd(113.47, 225.412, 15.637, 0.662)
pt3dadd(113.511, 225.523, 15.653, 0.696)
pt3dadd(113.552, 225.635, 15.668, 0.728)
pt3dadd(113.593, 225.746, 15.684, 0.762)
pt3dadd(113.634, 225.857, 15.699, 0.796)
pt3dadd(113.675, 225.968, 15.715, 0.828)
pt3dadd(113.716, 226.08, 15.73, 0.862)
pt3dadd(113.747, 226.195, 15.741, 0.876)
pt3dadd(113.774, 226.312, 15.749, 0.886)
pt3dadd(113.801, 226.428, 15.757, 0.894)
pt3dadd(113.828, 226.544, 15.765, 0.902)
pt3dadd(113.855, 226.661, 15.773, 0.912)
pt3dadd(113.882, 226.777, 15.781, 0.92)
pt3dadd(113.909, 226.894, 15.789, 0.928)
pt3dadd(113.936, 227.01, 15.797, 0.938)
pt3dadd(113.963, 227.126, 15.805, 0.946)
pt3dadd(113.99, 227.244, 15.814, 0.954)
pt3dadd(114.009, 227.362, 15.816, 0.904)
pt3dadd(114.025, 227.48, 15.816, 0.834)
pt3dadd(114.042, 227.599, 15.816, 0.762)
pt3dadd(114.058, 227.718, 15.816, 0.692)
pt3dadd(114.075, 227.837, 15.816, 0.62)
pt3dadd(114.092, 227.956, 15.816, 0.55)
pt3dadd(114.108, 228.074, 15.816, 0.48)
pt3dadd(114.125, 228.193, 15.816, 0.408)
pt3dadd(114.141, 228.312, 15.816, 0.338)
pt3dadd(114.158, 228.431, 15.816, 0.266)
pt3dadd(114.169, 228.551, 15.816, 0.286)
pt3dadd(114.178, 228.671, 15.816, 0.336)
pt3dadd(114.186, 228.79, 15.816, 0.386)
pt3dadd(114.195, 228.91, 15.816, 0.434)
pt3dadd(114.204, 229.03, 15.816, 0.484)
pt3dadd(114.213, 229.15, 15.816, 0.532)
pt3dadd(114.222, 229.268, 15.816, 0.582)
pt3dadd(114.231, 229.388, 15.816, 0.632)
pt3dadd(114.24, 229.508, 15.816, 0.68)
pt3dadd(114.249, 229.628, 15.816, 0.73)
pt3dadd(114.26, 229.747, 15.816, 0.736)
pt3dadd(114.273, 229.867, 15.816, 0.728)
pt3dadd(114.285, 229.986, 15.816, 0.718)
pt3dadd(114.298, 230.105, 15.816, 0.71)
pt3dadd(114.31, 230.225, 15.816, 0.702)
pt3dadd(114.323, 230.344, 15.816, 0.692)
pt3dadd(114.335, 230.464, 15.816, 0.684)
pt3dadd(114.348, 230.582, 15.816, 0.676)
pt3dadd(114.36, 230.702, 15.816, 0.666)
pt3dadd(114.372, 230.821, 15.816, 0.658)
pt3dadd(114.396, 230.939, 15.817, 0.662)
pt3dadd(114.424, 231.055, 15.817, 0.67)
pt3dadd(114.452, 231.173, 15.817, 0.678)
pt3dadd(114.48, 231.289, 15.817, 0.686)
pt3dadd(114.507, 231.406, 15.817, 0.694)
pt3dadd(114.535, 231.522, 15.817, 0.702)
pt3dadd(114.563, 231.64, 15.817, 0.71)
pt3dadd(114.591, 231.756, 15.817, 0.718)
pt3dadd(114.618, 231.872, 15.817, 0.726)
pt3dadd(114.646, 231.99, 15.817, 0.734)
pt3dadd(114.688, 232.102, 15.818, 0.784)
pt3dadd(114.732, 232.213, 15.818, 0.84)
}
}
proc shape3d_7() {
apic[5] { pt3dadd(114.776, 232.325, 15.818, 0.898)
pt3dadd(114.821, 232.436, 15.818, 0.956)
pt3dadd(114.865, 232.548, 15.818, 1.014)
pt3dadd(114.909, 232.66, 15.818, 1.072)
pt3dadd(114.954, 232.771, 15.818, 1.13)
pt3dadd(114.998, 232.883, 15.818, 1.188)
pt3dadd(115.042, 232.994, 15.819, 1.246)
pt3dadd(115.086, 233.106, 15.819, 1.304)
pt3dadd(115.119, 233.221, 15.819, 1.254)
pt3dadd(115.149, 233.338, 15.819, 1.184)
pt3dadd(115.179, 233.454, 15.82, 1.114)
pt3dadd(115.209, 233.569, 15.82, 1.044)
pt3dadd(115.239, 233.686, 15.82, 0.976)
pt3dadd(115.269, 233.802, 15.821, 0.906)
pt3dadd(115.299, 233.918, 15.821, 0.836)
pt3dadd(115.329, 234.035, 15.821, 0.766)
pt3dadd(115.36, 234.15, 15.821, 0.698)
pt3dadd(115.39, 234.266, 15.822, 0.628)
pt3dadd(115.411, 234.384, 15.822, 0.638)
pt3dadd(115.431, 234.503, 15.823, 0.662)
pt3dadd(115.45, 234.622, 15.823, 0.686)
pt3dadd(115.47, 234.739, 15.824, 0.712)
pt3dadd(115.49, 234.858, 15.824, 0.736)
pt3dadd(115.51, 234.977, 15.825, 0.76)
pt3dadd(115.529, 235.094, 15.826, 0.784)
pt3dadd(115.549, 235.213, 15.826, 0.808)
pt3dadd(115.569, 235.332, 15.827, 0.834)
pt3dadd(115.588, 235.45, 15.827, 0.858)
pt3dadd(115.601, 235.57, 15.828, 0.86)
pt3dadd(115.613, 235.688, 15.829, 0.86)
pt3dadd(115.625, 235.808, 15.83, 0.86)
pt3dadd(115.636, 235.927, 15.831, 0.86)
pt3dadd(115.648, 236.047, 15.832, 0.86)
pt3dadd(115.659, 236.166, 15.833, 0.858)
pt3dadd(115.671, 236.286, 15.834, 0.858)
pt3dadd(115.683, 236.405, 15.835, 0.858)
pt3dadd(115.694, 236.525, 15.836, 0.858)
pt3dadd(115.706, 236.644, 15.837, 0.856)
pt3dadd(115.715, 236.764, 15.839, 0.826)
pt3dadd(115.724, 236.884, 15.841, 0.79)
pt3dadd(115.733, 237.002, 15.843, 0.754)
pt3dadd(115.742, 237.122, 15.845, 0.72)
pt3dadd(115.751, 237.242, 15.847, 0.684)
pt3dadd(115.76, 237.362, 15.849, 0.648)
pt3dadd(115.769, 237.481, 15.85, 0.612)
pt3dadd(115.778, 237.601, 15.852, 0.576)
pt3dadd(115.787, 237.721, 15.854, 0.54)
pt3dadd(115.796, 237.84, 15.856, 0.506)
pt3dadd(115.812, 237.959, 15.859, 0.516)
pt3dadd(115.828, 238.078, 15.862, 0.532)
pt3dadd(115.844, 238.196, 15.865, 0.548)
pt3dadd(115.86, 238.316, 15.868, 0.566)
pt3dadd(115.877, 238.435, 15.872, 0.582)
pt3dadd(115.893, 238.554, 15.875, 0.6)
pt3dadd(115.909, 238.673, 15.878, 0.616)
pt3dadd(115.925, 238.792, 15.881, 0.634)
pt3dadd(115.941, 238.91, 15.885, 0.65)
pt3dadd(115.958, 239.029, 15.888, 0.666)
pt3dadd(115.987, 239.144, 15.895, 0.652)
pt3dadd(116.018, 239.261, 15.902, 0.632)
pt3dadd(116.05, 239.376, 15.91, 0.612)
pt3dadd(116.081, 239.491, 15.918, 0.594)
pt3dadd(116.112, 239.606, 15.925, 0.574)
pt3dadd(116.144, 239.722, 15.933, 0.554)
pt3dadd(116.175, 239.838, 15.941, 0.536)
pt3dadd(116.206, 239.953, 15.948, 0.516)
pt3dadd(116.238, 240.068, 15.956, 0.496)
pt3dadd(116.269, 240.184, 15.963, 0.478)
pt3dadd(116.335, 240.282, 15.974, 0.5)
pt3dadd(116.405, 240.379, 15.985, 0.53)
pt3dadd(116.476, 240.475, 15.996, 0.558)
pt3dadd(116.547, 240.571, 16.007, 0.588)
pt3dadd(116.617, 240.667, 16.018, 0.616)
pt3dadd(116.688, 240.763, 16.029, 0.646)
pt3dadd(116.758, 240.859, 16.041, 0.674)
pt3dadd(116.829, 240.955, 16.052, 0.702)
pt3dadd(116.9, 241.051, 16.063, 0.732)
pt3dadd(116.97, 241.147, 16.074, 0.76)
pt3dadd(117.063, 241.217, 16.101, 0.756)
pt3dadd(117.156, 241.284, 16.129, 0.75)
pt3dadd(117.249, 241.351, 16.158, 0.744)
pt3dadd(117.342, 241.42, 16.186, 0.738)
pt3dadd(117.435, 241.487, 16.214, 0.732)
pt3dadd(117.528, 241.554, 16.242, 0.726)
pt3dadd(117.622, 241.622, 16.27, 0.718)
pt3dadd(117.715, 241.69, 16.298, 0.712)
pt3dadd(117.808, 241.758, 16.326, 0.706)
pt3dadd(117.904, 241.818, 16.356, 0.694)
pt3dadd(118.009, 241.86, 16.391, 0.664)
pt3dadd(118.113, 241.902, 16.425, 0.634)
pt3dadd(118.218, 241.944, 16.46, 0.606)
pt3dadd(118.322, 241.986, 16.494, 0.576)
pt3dadd(118.427, 242.028, 16.529, 0.546)
pt3dadd(118.531, 242.07, 16.563, 0.516)
pt3dadd(118.636, 242.113, 16.598, 0.486)
pt3dadd(118.74, 242.155, 16.632, 0.456)
pt3dadd(118.845, 242.197, 16.667, 0.426)
pt3dadd(118.952, 242.234, 16.698, 0.402)
pt3dadd(119.065, 242.261, 16.721, 0.384)
pt3dadd(119.179, 242.288, 16.745, 0.366)
pt3dadd(119.292, 242.316, 16.769, 0.35)
pt3dadd(119.406, 242.344, 16.792, 0.332)
pt3dadd(119.519, 242.37, 16.816, 0.316)
pt3dadd(119.632, 242.398, 16.84, 0.298)
pt3dadd(119.746, 242.425, 16.864, 0.28)
pt3dadd(119.859, 242.452, 16.887, 0.264)
pt3dadd(119.972, 242.479, 16.911, 0.246)
pt3dadd(120.086, 242.507, 16.931, 0.24)
pt3dadd(120.202, 242.536, 16.943, 0.256)
pt3dadd(120.318, 242.564, 16.954, 0.272)
pt3dadd(120.433, 242.593, 16.966, 0.288)
pt3dadd(120.548, 242.622, 16.978, 0.304)
pt3dadd(120.665, 242.651, 16.989, 0.32)
pt3dadd(120.78, 242.68, 17.001, 0.336)
pt3dadd(120.896, 242.708, 17.013, 0.352)
pt3dadd(121.012, 242.737, 17.025, 0.368)
pt3dadd(121.127, 242.766, 17.036, 0.384)
pt3dadd(121.24, 242.806, 17.045, 0.4)
pt3dadd(121.344, 242.862, 17.049, 0.418)
pt3dadd(121.45, 242.92, 17.052, 0.434)
pt3dadd(121.555, 242.977, 17.056, 0.452)
pt3dadd(121.661, 243.034, 17.059, 0.468)
pt3dadd(121.766, 243.091, 17.063, 0.486)
pt3dadd(121.872, 243.148, 17.066, 0.502)
pt3dadd(121.978, 243.205, 17.07, 0.52)
pt3dadd(122.082, 243.263, 17.073, 0.536)
pt3dadd(122.188, 243.319, 17.077, 0.552)
pt3dadd(122.288, 243.385, 17.078, 0.57)
pt3dadd(122.382, 243.46, 17.078, 0.584)
pt3dadd(122.477, 243.533, 17.078, 0.6)
pt3dadd(122.572, 243.607, 17.078, 0.616)
pt3dadd(122.665, 243.682, 17.078, 0.632)
pt3dadd(122.76, 243.756, 17.077, 0.648)
pt3dadd(122.855, 243.829, 17.077, 0.662)
pt3dadd(122.948, 243.904, 17.077, 0.678)
pt3dadd(123.043, 243.978, 17.077, 0.694)
pt3dadd(123.138, 244.052, 17.077, 0.71)
pt3dadd(123.226, 244.133, 17.077, 0.726)
pt3dadd(123.308, 244.219, 17.076, 0.74)
pt3dadd(123.391, 244.307, 17.076, 0.754)
pt3dadd(123.474, 244.393, 17.076, 0.768)
pt3dadd(123.558, 244.48, 17.076, 0.782)
pt3dadd(123.641, 244.566, 17.076, 0.798)
pt3dadd(123.724, 244.654, 17.075, 0.812)
pt3dadd(123.806, 244.74, 17.075, 0.826)
pt3dadd(123.889, 244.826, 17.075, 0.84)
pt3dadd(123.972, 244.914, 17.074, 0.856)
pt3dadd(124.045, 245.009, 17.074, 0.846)
pt3dadd(124.109, 245.11, 17.074, 0.816)
pt3dadd(124.172, 245.212, 17.073, 0.786)
pt3dadd(124.236, 245.314, 17.073, 0.756)
pt3dadd(124.3, 245.414, 17.072, 0.726)
pt3dadd(124.363, 245.516, 17.072, 0.696)
pt3dadd(124.427, 245.618, 17.071, 0.666)
pt3dadd(124.492, 245.719, 17.071, 0.636)
pt3dadd(124.555, 245.821, 17.07, 0.606)
pt3dadd(124.619, 245.923, 17.07, 0.576)
pt3dadd(124.679, 246.028, 17.069, 0.544)
pt3dadd(124.736, 246.132, 17.069, 0.51)
pt3dadd(124.793, 246.238, 17.068, 0.476)
pt3dadd(124.85, 246.343, 17.067, 0.442)
pt3dadd(124.908, 246.449, 17.066, 0.408)
pt3dadd(124.966, 246.554, 17.066, 0.374)
pt3dadd(125.023, 246.659, 17.065, 0.34)
pt3dadd(125.081, 246.764, 17.064, 0.306)
pt3dadd(125.138, 246.87, 17.063, 0.272)
pt3dadd(125.195, 246.976, 17.063, 0.238)
pt3dadd(125.256, 247.079, 17.061, 0.226)
pt3dadd(125.318, 247.181, 17.06, 0.226)
pt3dadd(125.382, 247.283, 17.059, 0.226)
pt3dadd(125.444, 247.386, 17.058, 0.226)
pt3dadd(125.507, 247.488, 17.057, 0.226)
pt3dadd(125.57, 247.59, 17.055, 0.226)
pt3dadd(125.633, 247.692, 17.054, 0.226)
pt3dadd(125.695, 247.794, 17.053, 0.226)
pt3dadd(125.759, 247.897, 17.052, 0.226)
pt3dadd(125.821, 247.999, 17.051, 0.226)
pt3dadd(125.876, 248.105, 17.049, 0.252)
pt3dadd(125.928, 248.214, 17.046, 0.29)
pt3dadd(125.98, 248.322, 17.044, 0.33)
pt3dadd(126.031, 248.43, 17.042, 0.37)
pt3dadd(126.083, 248.539, 17.039, 0.408)
pt3dadd(126.133, 248.647, 17.037, 0.448)
pt3dadd(126.185, 248.755, 17.035, 0.488)
pt3dadd(126.236, 248.864, 17.032, 0.526)
pt3dadd(126.288, 248.972, 17.03, 0.566)
pt3dadd(126.34, 249.08, 17.028, 0.606)
pt3dadd(126.394, 249.187, 17.024, 0.642)
pt3dadd(126.449, 249.294, 17.02, 0.676)
pt3dadd(126.505, 249.4, 17.016, 0.712)
pt3dadd(126.56, 249.506, 17.012, 0.746)
pt3dadd(126.616, 249.613, 17.008, 0.782)
pt3dadd(126.672, 249.719, 17.004, 0.816)
pt3dadd(126.727, 249.826, 17, 0.85)
pt3dadd(126.782, 249.931, 16.996, 0.886)
pt3dadd(126.839, 250.038, 16.992, 0.92)
pt3dadd(126.894, 250.144, 16.988, 0.956)
pt3dadd(126.955, 250.247, 16.983, 0.976)
pt3dadd(127.021, 250.346, 16.977, 0.992)
pt3dadd(127.086, 250.447, 16.971, 1.006)
}
}
proc shape3d_8() {
apic[5] { pt3dadd(127.151, 250.548, 16.965, 1.022)
pt3dadd(127.216, 250.649, 16.959, 1.036)
pt3dadd(127.28, 250.75, 16.953, 1.052)
pt3dadd(127.345, 250.85, 16.948, 1.066)
pt3dadd(127.41, 250.951, 16.941, 1.082)
pt3dadd(127.475, 251.052, 16.936, 1.096)
pt3dadd(127.54, 251.153, 16.93, 1.112)
pt3dadd(127.607, 251.252, 16.922, 1.118)
pt3dadd(127.674, 251.351, 16.912, 1.118)
pt3dadd(127.74, 251.449, 16.903, 1.12)
pt3dadd(127.807, 251.549, 16.894, 1.122)
pt3dadd(127.874, 251.647, 16.885, 1.122)
pt3dadd(127.942, 251.747, 16.875, 1.124)
pt3dadd(128.009, 251.845, 16.866, 1.126)
pt3dadd(128.076, 251.944, 16.857, 1.126)
pt3dadd(128.143, 252.043, 16.848, 1.128)
pt3dadd(128.21, 252.142, 16.838, 1.13)
pt3dadd(128.273, 252.242, 16.823, 1.118)
pt3dadd(128.333, 252.343, 16.804, 1.102)
pt3dadd(128.393, 252.445, 16.785, 1.084)
pt3dadd(128.453, 252.546, 16.765, 1.066)
pt3dadd(128.513, 252.648, 16.747, 1.05)
pt3dadd(128.573, 252.749, 16.727, 1.032)
pt3dadd(128.633, 252.851, 16.708, 1.014)
pt3dadd(128.693, 252.952, 16.69, 0.998)
pt3dadd(128.753, 253.054, 16.67, 0.98)
pt3dadd(128.813, 253.154, 16.652, 0.962)
pt3dadd(128.861, 253.258, 16.62, 0.922)
pt3dadd(128.906, 253.361, 16.586, 0.876)
pt3dadd(128.952, 253.464, 16.552, 0.832)
pt3dadd(128.998, 253.567, 16.517, 0.784)
pt3dadd(129.043, 253.67, 16.483, 0.74)
pt3dadd(129.089, 253.772, 16.448, 0.692)
pt3dadd(129.134, 253.876, 16.414, 0.648)
pt3dadd(129.18, 253.979, 16.379, 0.6)
pt3dadd(129.226, 254.082, 16.345, 0.556)
pt3dadd(129.271, 254.185, 16.311, 0.508)
pt3dadd(129.305, 254.296, 16.284, 0.532)
pt3dadd(129.336, 254.407, 16.26, 0.572)
pt3dadd(129.366, 254.52, 16.235, 0.612)
pt3dadd(129.397, 254.632, 16.211, 0.654)
pt3dadd(129.428, 254.744, 16.186, 0.694)
pt3dadd(129.458, 254.856, 16.162, 0.734)
pt3dadd(129.49, 254.969, 16.137, 0.776)
pt3dadd(129.521, 255.08, 16.113, 0.816)
pt3dadd(129.551, 255.193, 16.088, 0.856)
pt3dadd(129.582, 255.305, 16.064, 0.896)
pt3dadd(129.622, 255.416, 16.046, 0.916)
pt3dadd(129.662, 255.528, 16.03, 0.93)
pt3dadd(129.703, 255.638, 16.014, 0.944)
pt3dadd(129.745, 255.75, 15.998, 0.958)
pt3dadd(129.786, 255.86, 15.982, 0.97)
pt3dadd(129.828, 255.971, 15.966, 0.984)
pt3dadd(129.869, 256.082, 15.95, 0.998)
pt3dadd(129.911, 256.193, 15.934, 1.012)
pt3dadd(129.952, 256.304, 15.918, 1.026)
pt3dadd(129.994, 256.415, 15.901, 1.038)
pt3dadd(130.042, 256.524, 15.892, 1.032)
pt3dadd(130.091, 256.633, 15.883, 1.02)
pt3dadd(130.141, 256.742, 15.875, 1.008)
pt3dadd(130.19, 256.85, 15.866, 0.998)
pt3dadd(130.24, 256.96, 15.858, 0.986)
pt3dadd(130.289, 257.069, 15.849, 0.974)
pt3dadd(130.339, 257.178, 15.84, 0.964)
pt3dadd(130.388, 257.286, 15.832, 0.952)
pt3dadd(130.438, 257.395, 15.823, 0.942)
pt3dadd(130.487, 257.504, 15.815, 0.93)
pt3dadd(130.529, 257.616, 15.814, 0.944)
pt3dadd(130.57, 257.729, 15.813, 0.96)
pt3dadd(130.61, 257.842, 15.813, 0.978)
pt3dadd(130.652, 257.954, 15.813, 0.994)
pt3dadd(130.693, 258.067, 15.813, 1.012)
pt3dadd(130.734, 258.18, 15.813, 1.028)
pt3dadd(130.775, 258.293, 15.813, 1.044)
pt3dadd(130.816, 258.406, 15.813, 1.062)
pt3dadd(130.856, 258.518, 15.813, 1.078)
pt3dadd(130.897, 258.631, 15.812, 1.096)
pt3dadd(130.948, 258.74, 15.812, 1.078)
pt3dadd(131, 258.848, 15.812, 1.054)
pt3dadd(131.052, 258.956, 15.812, 1.032)
pt3dadd(131.104, 259.064, 15.812, 1.01)
pt3dadd(131.156, 259.172, 15.811, 0.988)
pt3dadd(131.208, 259.28, 15.811, 0.966)
pt3dadd(131.261, 259.39, 15.811, 0.944)
pt3dadd(131.312, 259.498, 15.811, 0.922)
pt3dadd(131.364, 259.606, 15.81, 0.9)
pt3dadd(131.417, 259.714, 15.81, 0.876)
pt3dadd(131.462, 259.824, 15.81, 0.844)
pt3dadd(131.507, 259.936, 15.809, 0.812)
pt3dadd(131.552, 260.047, 15.809, 0.778)
pt3dadd(131.598, 260.158, 15.809, 0.746)
pt3dadd(131.642, 260.269, 15.808, 0.712)
pt3dadd(131.688, 260.381, 15.808, 0.68)
pt3dadd(131.734, 260.491, 15.807, 0.646)
pt3dadd(131.778, 260.603, 15.807, 0.614)
pt3dadd(131.824, 260.713, 15.807, 0.58)
pt3dadd(131.868, 260.825, 15.806, 0.548)
pt3dadd(131.897, 260.941, 15.805, 0.516)
pt3dadd(131.924, 261.059, 15.805, 0.484)
pt3dadd(131.952, 261.175, 15.804, 0.452)
pt3dadd(131.98, 261.292, 15.803, 0.42)
pt3dadd(132.007, 261.409, 15.803, 0.388)
pt3dadd(132.035, 261.526, 15.802, 0.356)
pt3dadd(132.062, 261.642, 15.801, 0.324)
pt3dadd(132.09, 261.758, 15.801, 0.292)
pt3dadd(132.118, 261.876, 15.8, 0.26)
pt3dadd(132.145, 261.992, 15.799, 0.228)
pt3dadd(132.16, 262.111, 15.798, 0.226)
pt3dadd(132.173, 262.231, 15.796, 0.226)
pt3dadd(132.186, 262.35, 15.795, 0.226)
pt3dadd(132.199, 262.47, 15.794, 0.226)
pt3dadd(132.212, 262.589, 15.792, 0.226)
pt3dadd(132.226, 262.708, 15.791, 0.226)
pt3dadd(132.239, 262.828, 15.79, 0.226)
pt3dadd(132.252, 262.946, 15.788, 0.226)
pt3dadd(132.265, 263.065, 15.787, 0.226)
pt3dadd(132.278, 263.185, 15.785, 0.226)
pt3dadd(132.281, 263.305, 15.783, 0.226)
pt3dadd(132.284, 263.425, 15.78, 0.226)
pt3dadd(132.287, 263.545, 15.778, 0.226)
pt3dadd(132.289, 263.665, 15.775, 0.226)
pt3dadd(132.292, 263.785, 15.772, 0.226)
pt3dadd(132.295, 263.904, 15.77, 0.226)
pt3dadd(132.298, 264.024, 15.767, 0.226)
pt3dadd(132.3, 264.144, 15.765, 0.226)
pt3dadd(132.304, 264.264, 15.762, 0.226)
pt3dadd(132.306, 264.384, 15.76, 0.226)
pt3dadd(132.306, 264.504, 15.754, 0.226)
pt3dadd(132.307, 264.624, 15.749, 0.226)
pt3dadd(132.307, 264.744, 15.744, 0.226)
pt3dadd(132.307, 264.864, 15.739, 0.226)
pt3dadd(132.307, 264.984, 15.734, 0.226)
pt3dadd(132.308, 265.103, 15.729, 0.226)
pt3dadd(132.308, 265.223, 15.724, 0.226)
pt3dadd(132.308, 265.343, 15.719, 0.226)
pt3dadd(132.31, 265.463, 15.714, 0.226)
pt3dadd(132.31, 265.583, 15.709, 0.226)
pt3dadd(132.31, 265.703, 15.7, 0.226)
pt3dadd(132.311, 265.822, 15.692, 0.226)
pt3dadd(132.311, 265.942, 15.684, 0.226)
pt3dadd(132.312, 266.062, 15.676, 0.226)
pt3dadd(132.312, 266.18, 15.667, 0.226)
pt3dadd(132.312, 266.3, 15.659, 0.226)
pt3dadd(132.313, 266.42, 15.651, 0.226)
pt3dadd(132.313, 266.539, 15.643, 0.226)
pt3dadd(132.314, 266.659, 15.635, 0.226)
pt3dadd(132.314, 266.779, 15.626, 0.226)
pt3dadd(132.316, 266.898, 15.615, 0.226)
pt3dadd(132.316, 267.017, 15.603, 0.226)
pt3dadd(132.317, 267.136, 15.592, 0.226)
pt3dadd(132.317, 267.256, 15.58, 0.226)
pt3dadd(132.318, 267.374, 15.568, 0.226)
pt3dadd(132.319, 267.493, 15.557, 0.226)
pt3dadd(132.319, 267.613, 15.545, 0.226)
pt3dadd(132.32, 267.732, 15.534, 0.226)
pt3dadd(132.32, 267.851, 15.522, 0.226)
pt3dadd(132.322, 267.971, 15.511, 0.226)
pt3dadd(132.323, 268.082, 15.474, 0.242)
pt3dadd(132.325, 268.194, 15.437, 0.258)
pt3dadd(132.326, 268.304, 15.4, 0.276)
pt3dadd(132.329, 268.416, 15.363, 0.292)
pt3dadd(132.33, 268.528, 15.326, 0.308)
pt3dadd(132.331, 268.639, 15.288, 0.324)
pt3dadd(132.334, 268.751, 15.251, 0.342)
pt3dadd(132.335, 268.862, 15.214, 0.358)
pt3dadd(132.337, 268.974, 15.177, 0.374)
pt3dadd(132.338, 269.084, 15.14, 0.392)
pt3dadd(132.341, 269.2, 15.111, 0.408)
pt3dadd(132.344, 269.315, 15.082, 0.426)
pt3dadd(132.347, 269.429, 15.053, 0.442)
pt3dadd(132.349, 269.544, 15.024, 0.46)
pt3dadd(132.352, 269.659, 14.995, 0.476)
pt3dadd(132.355, 269.774, 14.967, 0.494)
pt3dadd(132.358, 269.888, 14.938, 0.51)
pt3dadd(132.36, 270.004, 14.909, 0.528)
pt3dadd(132.364, 270.119, 14.88, 0.544)
pt3dadd(132.366, 270.233, 14.851, 0.562)
pt3dadd(132.371, 270.35, 14.831, 0.574)
pt3dadd(132.377, 270.468, 14.812, 0.586)
pt3dadd(132.382, 270.586, 14.792, 0.596)
pt3dadd(132.388, 270.703, 14.772, 0.608)
pt3dadd(132.392, 270.821, 14.753, 0.62)
pt3dadd(132.397, 270.938, 14.733, 0.632)
pt3dadd(132.403, 271.056, 14.713, 0.644)
pt3dadd(132.408, 271.174, 14.693, 0.654)
pt3dadd(132.414, 271.291, 14.674, 0.666)
pt3dadd(132.419, 271.409, 14.654, 0.678)
pt3dadd(132.428, 271.528, 14.644, 0.678)
pt3dadd(132.437, 271.646, 14.633, 0.678)
pt3dadd(132.446, 271.765, 14.623, 0.678)
pt3dadd(132.455, 271.885, 14.613, 0.678)
pt3dadd(132.464, 272.004, 14.602, 0.678)
pt3dadd(132.473, 272.123, 14.592, 0.678)
pt3dadd(132.482, 272.242, 14.581, 0.678)
pt3dadd(132.491, 272.36, 14.571, 0.678)
pt3dadd(132.5, 272.479, 14.56, 0.678)
pt3dadd(132.509, 272.599, 14.55, 0.678)
pt3dadd(132.524, 272.718, 14.55, 0.678)
pt3dadd(132.539, 272.837, 14.55, 0.678)
pt3dadd(132.553, 272.956, 14.55, 0.678)
}
}
proc shape3d_9() {
apic[5] { pt3dadd(132.568, 273.076, 14.55, 0.678)
pt3dadd(132.582, 273.194, 14.55, 0.678)
pt3dadd(132.596, 273.313, 14.55, 0.678)
pt3dadd(132.612, 273.432, 14.55, 0.678)
pt3dadd(132.626, 273.552, 14.55, 0.678)
pt3dadd(132.641, 273.671, 14.55, 0.678)
pt3dadd(132.656, 273.79, 14.55, 0.678)
pt3dadd(132.696, 273.902, 14.55, 0.704)
pt3dadd(132.734, 274.016, 14.55, 0.73)
pt3dadd(132.774, 274.129, 14.55, 0.756)
pt3dadd(132.814, 274.243, 14.55, 0.782)
pt3dadd(132.853, 274.356, 14.55, 0.808)
pt3dadd(132.893, 274.47, 14.55, 0.834)
pt3dadd(132.932, 274.583, 14.55, 0.86)
pt3dadd(132.971, 274.697, 14.55, 0.886)
pt3dadd(133.01, 274.81, 14.55, 0.912)
pt3dadd(133.05, 274.924, 14.55, 0.934)
pt3dadd(133.091, 275.036, 14.55, 0.934)
pt3dadd(133.13, 275.149, 14.55, 0.932)
pt3dadd(133.171, 275.262, 14.55, 0.93)
pt3dadd(133.211, 275.375, 14.55, 0.928)
pt3dadd(133.252, 275.489, 14.55, 0.926)
pt3dadd(133.291, 275.602, 14.55, 0.924)
pt3dadd(133.332, 275.714, 14.55, 0.924)
pt3dadd(133.372, 275.827, 14.55, 0.922)
pt3dadd(133.412, 275.94, 14.55, 0.92)
pt3dadd(133.452, 276.054, 14.55, 0.914)
pt3dadd(133.482, 276.17, 14.55, 0.866)
pt3dadd(133.513, 276.286, 14.55, 0.82)
pt3dadd(133.543, 276.402, 14.55, 0.774)
pt3dadd(133.574, 276.518, 14.55, 0.728)
pt3dadd(133.606, 276.634, 14.55, 0.68)
pt3dadd(133.636, 276.75, 14.55, 0.634)
pt3dadd(133.667, 276.866, 14.55, 0.586)
pt3dadd(133.698, 276.982, 14.55, 0.54)
pt3dadd(133.728, 277.098, 14.55, 0.494)
pt3dadd(133.758, 277.214, 14.55, 0.452)
pt3dadd(133.78, 277.332, 14.55, 0.452)
pt3dadd(133.801, 277.45, 14.55, 0.452)
pt3dadd(133.823, 277.568, 14.55, 0.452)
pt3dadd(133.844, 277.686, 14.55, 0.452)
pt3dadd(133.865, 277.805, 14.55, 0.452)
pt3dadd(133.886, 277.922, 14.55, 0.452)
pt3dadd(133.908, 278.04, 14.55, 0.452)
pt3dadd(133.93, 278.159, 14.55, 0.452)
pt3dadd(133.951, 278.276, 14.55, 0.452)
pt3dadd(133.972, 278.395, 14.55, 0.456)
pt3dadd(133.987, 278.514, 14.55, 0.484)
pt3dadd(134.003, 278.633, 14.55, 0.512)
pt3dadd(134.018, 278.752, 14.55, 0.542)
pt3dadd(134.034, 278.87, 14.55, 0.57)
pt3dadd(134.048, 278.99, 14.55, 0.6)
pt3dadd(134.064, 279.109, 14.55, 0.628)
pt3dadd(134.08, 279.228, 14.55, 0.656)
pt3dadd(134.095, 279.347, 14.55, 0.686)
pt3dadd(134.111, 279.466, 14.55, 0.714)
pt3dadd(134.128, 279.584, 14.55, 0.74)
pt3dadd(134.158, 279.701, 14.55, 0.738)
pt3dadd(134.189, 279.817, 14.55, 0.736)
pt3dadd(134.219, 279.932, 14.55, 0.736)
pt3dadd(134.25, 280.049, 14.55, 0.734)
pt3dadd(134.28, 280.165, 14.55, 0.732)
pt3dadd(134.311, 280.28, 14.55, 0.732)
pt3dadd(134.342, 280.397, 14.55, 0.73)
pt3dadd(134.372, 280.513, 14.55, 0.728)
pt3dadd(134.404, 280.628, 14.55, 0.728)
pt3dadd(134.436, 280.744, 14.55, 0.72)
pt3dadd(134.478, 280.856, 14.55, 0.694)
pt3dadd(134.52, 280.969, 14.55, 0.666)
pt3dadd(134.562, 281.082, 14.55, 0.638)
pt3dadd(134.604, 281.194, 14.55, 0.61)
pt3dadd(134.646, 281.306, 14.55, 0.584)
pt3dadd(134.688, 281.419, 14.55, 0.556)
pt3dadd(134.73, 281.531, 14.55, 0.528)
pt3dadd(134.772, 281.644, 14.55, 0.502)
pt3dadd(134.814, 281.756, 14.55, 0.474)
pt3dadd(134.852, 281.869, 14.55, 0.452)
pt3dadd(134.881, 281.986, 14.55, 0.452)
pt3dadd(134.91, 282.102, 14.55, 0.452)
pt3dadd(134.939, 282.218, 14.55, 0.452)
pt3dadd(134.968, 282.335, 14.55, 0.452)
pt3dadd(134.996, 282.452, 14.55, 0.452)
pt3dadd(135.025, 282.569, 14.55, 0.452)
pt3dadd(135.053, 282.685, 14.55, 0.452)
pt3dadd(135.082, 282.802, 14.55, 0.452)
pt3dadd(135.11, 282.918, 14.55, 0.452)
pt3dadd(135.137, 283.036, 14.55, 0.448)
pt3dadd(135.152, 283.154, 14.55, 0.434)
pt3dadd(135.167, 283.273, 14.55, 0.418)
pt3dadd(135.182, 283.392, 14.55, 0.402)
pt3dadd(135.198, 283.511, 14.55, 0.386)
pt3dadd(135.214, 283.63, 14.55, 0.372)
pt3dadd(135.229, 283.75, 14.55, 0.356)
pt3dadd(135.244, 283.868, 14.55, 0.34)
pt3dadd(135.259, 283.987, 14.55, 0.324)
pt3dadd(135.275, 284.106, 14.55, 0.31)
pt3dadd(135.288, 284.225, 14.55, 0.296)
pt3dadd(135.293, 284.345, 14.55, 0.288)
pt3dadd(135.299, 284.465, 14.55, 0.282)
pt3dadd(135.304, 284.585, 14.55, 0.274)
pt3dadd(135.31, 284.705, 14.55, 0.268)
pt3dadd(135.314, 284.825, 14.55, 0.26)
pt3dadd(135.319, 284.945, 14.55, 0.252)
pt3dadd(135.325, 285.065, 14.55, 0.246)
pt3dadd(135.33, 285.185, 14.55, 0.238)
pt3dadd(135.336, 285.305, 14.55, 0.232)
pt3dadd(135.34, 285.425, 14.55, 0.226)
pt3dadd(135.34, 285.545, 14.55, 0.226)
pt3dadd(135.34, 285.665, 14.55, 0.226)
pt3dadd(135.34, 285.785, 14.55, 0.226)
pt3dadd(135.34, 285.905, 14.55, 0.226)
pt3dadd(135.34, 286.025, 14.55, 0.226)
pt3dadd(135.34, 286.145, 14.55, 0.226)
pt3dadd(135.34, 286.265, 14.55, 0.226)
pt3dadd(135.34, 286.385, 14.55, 0.226)
pt3dadd(135.34, 286.505, 14.55, 0.226)
pt3dadd(135.34, 286.625, 14.55, 0.226)
pt3dadd(135.34, 286.745, 14.55, 0.226)
pt3dadd(135.34, 286.865, 14.55, 0.226)
pt3dadd(135.34, 286.985, 14.55, 0.226)
pt3dadd(135.34, 287.105, 14.55, 0.226)
pt3dadd(135.338, 287.225, 14.55, 0.226)
pt3dadd(135.338, 287.345, 14.55, 0.226)
pt3dadd(135.338, 287.465, 14.55, 0.226)
pt3dadd(135.338, 287.585, 14.55, 0.226)
pt3dadd(135.338, 287.705, 14.55, 0.226)
pt3dadd(135.338, 287.825, 14.55, 0.226)
pt3dadd(135.338, 287.945, 14.55, 0.226)
pt3dadd(135.338, 288.065, 14.55, 0.226)
pt3dadd(135.338, 288.185, 14.55, 0.226)
pt3dadd(135.338, 288.305, 14.55, 0.226)
pt3dadd(135.337, 288.425, 14.55, 0.226)
pt3dadd(135.337, 288.545, 14.55, 0.226)
pt3dadd(135.337, 288.665, 14.55, 0.226)
pt3dadd(135.337, 288.785, 14.55, 0.226)
pt3dadd(135.337, 288.905, 14.55, 0.226)
pt3dadd(135.337, 289.025, 14.55, 0.226)
pt3dadd(135.337, 289.145, 14.55, 0.226)
pt3dadd(135.337, 289.265, 14.55, 0.226)
pt3dadd(135.337, 289.385, 14.55, 0.226)
pt3dadd(135.337, 289.505, 14.55, 0.226)
pt3dadd(135.336, 289.625, 14.55, 0.226)
pt3dadd(135.336, 289.745, 14.55, 0.226)
pt3dadd(135.336, 289.865, 14.55, 0.226)
pt3dadd(135.336, 289.985, 14.55, 0.226)
pt3dadd(135.336, 290.105, 14.55, 0.226)
pt3dadd(135.336, 290.225, 14.55, 0.238)
pt3dadd(135.336, 290.345, 14.55, 0.286)
pt3dadd(135.336, 290.465, 14.55, 0.334)
pt3dadd(135.335, 290.585, 14.55, 0.382)
pt3dadd(135.335, 290.705, 14.55, 0.43)
pt3dadd(135.335, 290.825, 14.55, 0.478)
pt3dadd(135.335, 290.945, 14.55, 0.526)
pt3dadd(135.335, 291.065, 14.55, 0.574)
pt3dadd(135.334, 291.185, 14.55, 0.622)
pt3dadd(135.334, 291.305, 14.55, 0.67)
pt3dadd(135.334, 291.425, 14.55, 0.718)
pt3dadd(135.332, 291.545, 14.55, 0.768)
pt3dadd(135.332, 291.665, 14.55, 0.818)
pt3dadd(135.331, 291.785, 14.55, 0.87)
pt3dadd(135.331, 291.905, 14.55, 0.92)
pt3dadd(135.33, 292.025, 14.55, 0.97)
pt3dadd(135.33, 292.145, 14.55, 1.02)
pt3dadd(135.329, 292.265, 14.55, 1.072)
pt3dadd(135.329, 292.385, 14.55, 1.122)
pt3dadd(135.328, 292.505, 14.55, 1.172)
pt3dadd(135.328, 292.625, 14.55, 1.198)
pt3dadd(135.326, 292.744, 14.55, 1.144)
pt3dadd(135.326, 292.864, 14.55, 1.09)
pt3dadd(135.325, 292.984, 14.55, 1.036)
pt3dadd(135.324, 293.104, 14.55, 0.984)
pt3dadd(135.324, 293.224, 14.55, 0.93)
pt3dadd(135.323, 293.344, 14.55, 0.876)
pt3dadd(135.323, 293.464, 14.55, 0.824)
pt3dadd(135.322, 293.584, 14.55, 0.77)
pt3dadd(135.32, 293.704, 14.55, 0.716)
pt3dadd(135.32, 293.824, 14.55, 0.666)
pt3dadd(135.318, 293.944, 14.549, 0.632)
pt3dadd(135.316, 294.064, 14.549, 0.596)
pt3dadd(135.314, 294.184, 14.549, 0.56)
pt3dadd(135.312, 294.304, 14.549, 0.524)
pt3dadd(135.311, 294.424, 14.549, 0.488)
pt3dadd(135.308, 294.544, 14.549, 0.452)
pt3dadd(135.306, 294.664, 14.549, 0.416)
pt3dadd(135.305, 294.784, 14.549, 0.382)
pt3dadd(135.302, 294.904, 14.549, 0.346)
pt3dadd(135.3, 295.024, 14.549, 0.316)
pt3dadd(135.298, 295.144, 14.549, 0.306)
pt3dadd(135.294, 295.264, 14.549, 0.298)
pt3dadd(135.29, 295.384, 14.549, 0.288)
pt3dadd(135.288, 295.504, 14.549, 0.28)
pt3dadd(135.284, 295.624, 14.549, 0.27)
pt3dadd(135.281, 295.744, 14.548, 0.26)
pt3dadd(135.277, 295.864, 14.548, 0.252)
pt3dadd(135.275, 295.984, 14.548, 0.242)
pt3dadd(135.271, 296.104, 14.548, 0.234)
pt3dadd(135.268, 296.224, 14.548, 0.226)
pt3dadd(135.262, 296.344, 14.548, 0.226)
pt3dadd(135.254, 296.464, 14.548, 0.226)
pt3dadd(135.248, 296.584, 14.547, 0.226)
}
}
proc shape3d_10() {
apic[5] { pt3dadd(135.242, 296.702, 14.547, 0.226)
pt3dadd(135.236, 296.822, 14.547, 0.226)
pt3dadd(135.23, 296.942, 14.547, 0.226)
pt3dadd(135.223, 297.062, 14.547, 0.226)
pt3dadd(135.217, 297.182, 14.546, 0.226)
pt3dadd(135.211, 297.302, 14.546, 0.226)
pt3dadd(135.204, 297.422, 14.546, 0.226)
pt3dadd(135.193, 297.541, 14.546, 0.226)
pt3dadd(135.182, 297.661, 14.545, 0.226)
pt3dadd(135.172, 297.78, 14.545, 0.226)
pt3dadd(135.162, 297.9, 14.545, 0.226)
pt3dadd(135.151, 298.02, 14.545, 0.226)
pt3dadd(135.14, 298.139, 14.544, 0.226)
pt3dadd(135.13, 298.259, 14.544, 0.226)
pt3dadd(135.119, 298.378, 14.544, 0.226)
pt3dadd(135.109, 298.498, 14.543, 0.226)
pt3dadd(135.097, 298.618, 14.543, 0.226)
pt3dadd(135.082, 298.736, 14.542, 0.226)
pt3dadd(135.066, 298.855, 14.542, 0.226)
pt3dadd(135.052, 298.974, 14.541, 0.226)
pt3dadd(135.036, 299.093, 14.541, 0.226)
pt3dadd(135.02, 299.213, 14.54, 0.226)
pt3dadd(135.006, 299.332, 14.54, 0.226)
pt3dadd(134.99, 299.45, 14.539, 0.226)
pt3dadd(134.975, 299.569, 14.539, 0.226)
pt3dadd(134.96, 299.688, 14.538, 0.226)
pt3dadd(134.938, 299.806, 14.538, 0.23)
pt3dadd(134.892, 299.916, 14.536, 0.246)
pt3dadd(134.846, 300.028, 14.535, 0.26)
pt3dadd(134.802, 300.139, 14.534, 0.276)
pt3dadd(134.756, 300.25, 14.533, 0.292)
pt3dadd(134.711, 300.361, 14.532, 0.306)
pt3dadd(134.666, 300.473, 14.531, 0.322)
pt3dadd(134.621, 300.583, 14.53, 0.338)
pt3dadd(134.575, 300.695, 14.529, 0.354)
pt3dadd(134.531, 300.805, 14.528, 0.368)
pt3dadd(134.486, 300.917, 14.526, 0.384)
pt3dadd(134.446, 301.03, 14.525, 0.402)
pt3dadd(134.405, 301.142, 14.523, 0.418)
pt3dadd(134.364, 301.256, 14.521, 0.434)
pt3dadd(134.323, 301.369, 14.519, 0.452)
pt3dadd(134.282, 301.482, 14.517, 0.468)
pt3dadd(134.242, 301.595, 14.516, 0.486)
pt3dadd(134.201, 301.708, 14.514, 0.502)
pt3dadd(134.16, 301.82, 14.512, 0.52)
pt3dadd(134.119, 301.933, 14.51, 0.536)
pt3dadd(134.081, 302.046, 14.508, 0.55)
pt3dadd(134.047, 302.161, 14.505, 0.554)
pt3dadd(134.015, 302.276, 14.502, 0.558)
pt3dadd(133.981, 302.392, 14.498, 0.562)
pt3dadd(133.948, 302.508, 14.495, 0.568)
pt3dadd(133.915, 302.623, 14.492, 0.572)
pt3dadd(133.882, 302.738, 14.489, 0.576)
pt3dadd(133.848, 302.854, 14.485, 0.58)
pt3dadd(133.814, 302.969, 14.482, 0.586)
pt3dadd(133.782, 303.084, 14.479, 0.59)
pt3dadd(133.751, 303.199, 14.475, 0.582)
pt3dadd(133.726, 303.317, 14.469, 0.548)
pt3dadd(133.7, 303.433, 14.463, 0.512)
pt3dadd(133.675, 303.551, 14.457, 0.476)
pt3dadd(133.65, 303.667, 14.451, 0.442)
pt3dadd(133.625, 303.785, 14.445, 0.406)
pt3dadd(133.6, 303.902, 14.439, 0.372)
pt3dadd(133.574, 304.019, 14.432, 0.336)
pt3dadd(133.549, 304.136, 14.427, 0.3)
pt3dadd(133.524, 304.253, 14.42, 0.266)
pt3dadd(133.494, 304.369, 14.413, 0.244)
pt3dadd(133.452, 304.481, 14.405, 0.26)
pt3dadd(133.411, 304.592, 14.396, 0.274)
pt3dadd(133.369, 304.705, 14.387, 0.29)
pt3dadd(133.327, 304.817, 14.377, 0.304)
pt3dadd(133.285, 304.928, 14.368, 0.32)
pt3dadd(133.244, 305.041, 14.36, 0.334)
pt3dadd(133.202, 305.153, 14.351, 0.35)
pt3dadd(133.16, 305.266, 14.342, 0.364)
pt3dadd(133.12, 305.377, 14.333, 0.38)
pt3dadd(133.081, 305.489, 14.319, 0.388)
pt3dadd(133.052, 305.602, 14.293, 0.384)
pt3dadd(133.024, 305.714, 14.267, 0.378)
pt3dadd(132.995, 305.826, 14.241, 0.374)
pt3dadd(132.966, 305.939, 14.215, 0.368)
pt3dadd(132.938, 306.05, 14.19, 0.364)
pt3dadd(132.91, 306.163, 14.164, 0.36)
pt3dadd(132.881, 306.276, 14.138, 0.354)
pt3dadd(132.852, 306.388, 14.112, 0.35)
pt3dadd(132.823, 306.5, 14.086, 0.344)
pt3dadd(132.802, 306.613, 14.059, 0.338)
pt3dadd(132.788, 306.727, 14.03, 0.326)
pt3dadd(132.775, 306.841, 14.001, 0.314)
pt3dadd(132.763, 306.955, 13.973, 0.302)
pt3dadd(132.75, 307.07, 13.944, 0.29)
pt3dadd(132.737, 307.184, 13.915, 0.278)
pt3dadd(132.724, 307.298, 13.886, 0.266)
pt3dadd(132.712, 307.412, 13.857, 0.256)
pt3dadd(132.698, 307.526, 13.828, 0.244)
pt3dadd(132.685, 307.64, 13.8, 0.232)
pt3dadd(132.685, 307.757, 13.779, 0.226)
pt3dadd(132.698, 307.876, 13.767, 0.226)
pt3dadd(132.712, 307.994, 13.755, 0.226)
pt3dadd(132.725, 308.112, 13.743, 0.226)
pt3dadd(132.738, 308.231, 13.732, 0.226)
pt3dadd(132.751, 308.35, 13.72, 0.226)
pt3dadd(132.764, 308.467, 13.708, 0.226)
pt3dadd(132.778, 308.586, 13.696, 0.226)
pt3dadd(132.791, 308.705, 13.684, 0.226)
pt3dadd(132.804, 308.822, 13.672, 0.226)
pt3dadd(132.847, 308.932, 13.676, 0.228)
pt3dadd(132.905, 309.036, 13.688, 0.234)
pt3dadd(132.961, 309.142, 13.7, 0.238)
pt3dadd(133.019, 309.246, 13.712, 0.242)
pt3dadd(133.075, 309.35, 13.723, 0.246)
pt3dadd(133.133, 309.455, 13.735, 0.25)
pt3dadd(133.189, 309.559, 13.747, 0.254)
pt3dadd(133.247, 309.665, 13.759, 0.258)
pt3dadd(133.303, 309.769, 13.77, 0.262)
pt3dadd(133.361, 309.874, 13.782, 0.266)
pt3dadd(133.406, 309.935, 13.859, 0.308)
pt3dadd(133.453, 309.996, 13.935, 0.348)
pt3dadd(133.499, 310.058, 14.012, 0.39)
pt3dadd(133.546, 310.12, 14.089, 0.43)
pt3dadd(133.591, 310.181, 14.166, 0.472)
pt3dadd(133.637, 310.242, 14.243, 0.514)
pt3dadd(133.684, 310.303, 14.32, 0.554)
pt3dadd(133.729, 310.366, 14.396, 0.596)
pt3dadd(133.776, 310.427, 14.473, 0.636)
pt3dadd(133.822, 310.488, 14.55, 0.678)
}
apic[6] {pt3dclear()
pt3dadd(103.823, 179.916, 12.02, 0.904)
pt3dadd(103.799, 179.935, 12.02, 0.904)
pt3dadd(103.706, 180.011, 12.02, 0.904)
pt3dadd(103.612, 180.085, 12.02, 0.904)
pt3dadd(103.519, 180.161, 12.02, 0.904)
pt3dadd(103.425, 180.236, 12.02, 0.904)
pt3dadd(103.332, 180.312, 12.02, 0.904)
pt3dadd(103.239, 180.386, 12.02, 0.904)
pt3dadd(103.145, 180.462, 12.02, 0.904)
pt3dadd(103.052, 180.538, 12.02, 0.904)
pt3dadd(102.958, 180.613, 12.02, 0.904)
pt3dadd(102.865, 180.688, 12.02, 0.904)
pt3dadd(102.771, 180.763, 12.02, 0.904)
pt3dadd(102.678, 180.839, 12.02, 0.904)
pt3dadd(102.585, 180.914, 12.02, 0.904)
pt3dadd(102.498, 180.996, 12.02, 0.902)
pt3dadd(102.419, 181.087, 12.02, 0.896)
pt3dadd(102.341, 181.178, 12.02, 0.89)
pt3dadd(102.263, 181.268, 12.02, 0.884)
pt3dadd(102.184, 181.36, 12.02, 0.88)
pt3dadd(102.106, 181.451, 12.02, 0.874)
pt3dadd(102.028, 181.542, 12.02, 0.868)
pt3dadd(101.95, 181.633, 12.02, 0.862)
pt3dadd(101.871, 181.723, 12.02, 0.856)
pt3dadd(101.793, 181.814, 12.02, 0.852)
pt3dadd(101.738, 181.92, 12.02, 0.838)
pt3dadd(101.693, 182.03, 12.02, 0.824)
pt3dadd(101.647, 182.142, 12.02, 0.81)
pt3dadd(101.601, 182.252, 12.02, 0.794)
pt3dadd(101.555, 182.364, 12.02, 0.78)
pt3dadd(101.51, 182.474, 12.02, 0.764)
pt3dadd(101.464, 182.586, 12.02, 0.75)
pt3dadd(101.418, 182.696, 12.02, 0.734)
pt3dadd(101.373, 182.808, 12.02, 0.72)
pt3dadd(101.327, 182.918, 12.02, 0.706)
pt3dadd(101.267, 183.022, 12.02, 0.7)
pt3dadd(101.201, 183.122, 12.02, 0.696)
pt3dadd(101.135, 183.222, 12.02, 0.694)
pt3dadd(101.069, 183.323, 12.02, 0.692)
pt3dadd(101.003, 183.424, 12.02, 0.69)
pt3dadd(100.938, 183.523, 12.02, 0.688)
pt3dadd(100.872, 183.624, 12.02, 0.686)
pt3dadd(100.806, 183.724, 12.02, 0.684)
pt3dadd(100.74, 183.824, 12.02, 0.68)
pt3dadd(100.674, 183.925, 12.02, 0.678)
pt3dadd(100.602, 184.021, 12.02, 0.682)
pt3dadd(100.529, 184.116, 12.02, 0.69)
pt3dadd(100.456, 184.211, 12.02, 0.696)
pt3dadd(100.382, 184.306, 12.02, 0.702)
pt3dadd(100.309, 184.4, 12.02, 0.708)
pt3dadd(100.235, 184.495, 12.02, 0.714)
pt3dadd(100.162, 184.59, 12.02, 0.72)
pt3dadd(100.088, 184.685, 12.02, 0.728)
pt3dadd(100.015, 184.78, 12.02, 0.734)
pt3dadd(99.941, 184.874, 12.02, 0.74)
pt3dadd(99.864, 184.967, 12.02, 0.752)
pt3dadd(99.786, 185.058, 12.02, 0.766)
pt3dadd(99.708, 185.149, 12.02, 0.778)
pt3dadd(99.629, 185.239, 12.02, 0.792)
pt3dadd(99.551, 185.33, 12.02, 0.806)
pt3dadd(99.473, 185.422, 12.02, 0.82)
pt3dadd(99.395, 185.513, 12.02, 0.832)
pt3dadd(99.316, 185.604, 12.02, 0.846)
pt3dadd(99.238, 185.694, 12.02, 0.86)
pt3dadd(99.16, 185.785, 12.02, 0.874)
pt3dadd(99.079, 185.874, 12.02, 0.872)
pt3dadd(98.998, 185.963, 12.02, 0.864)
pt3dadd(98.917, 186.052, 12.02, 0.856)
pt3dadd(98.836, 186.14, 12.02, 0.848)
pt3dadd(98.755, 186.228, 12.02, 0.84)
pt3dadd(98.674, 186.317, 12.02, 0.832)
pt3dadd(98.593, 186.406, 12.02, 0.824)
pt3dadd(98.512, 186.494, 12.02, 0.816)
pt3dadd(98.431, 186.582, 12.02, 0.81)
}
}
proc shape3d_11() {
apic[6] { pt3dadd(98.35, 186.671, 12.02, 0.802)
pt3dadd(98.268, 186.76, 12.02, 0.792)
pt3dadd(98.187, 186.847, 12.02, 0.78)
pt3dadd(98.105, 186.935, 12.02, 0.768)
pt3dadd(98.024, 187.024, 12.02, 0.758)
pt3dadd(97.942, 187.111, 12.02, 0.746)
pt3dadd(97.86, 187.199, 12.02, 0.736)
pt3dadd(97.779, 187.286, 12.02, 0.724)
pt3dadd(97.697, 187.375, 12.02, 0.712)
pt3dadd(97.616, 187.463, 12.02, 0.702)
pt3dadd(97.534, 187.55, 12.02, 0.69)
pt3dadd(97.454, 187.64, 12.02, 0.698)
pt3dadd(97.375, 187.73, 12.02, 0.712)
pt3dadd(97.295, 187.82, 12.02, 0.724)
pt3dadd(97.216, 187.91, 12.02, 0.738)
pt3dadd(97.136, 188, 12.02, 0.752)
pt3dadd(97.057, 188.09, 12.02, 0.764)
pt3dadd(96.978, 188.18, 12.02, 0.778)
pt3dadd(96.898, 188.27, 12.02, 0.792)
pt3dadd(96.819, 188.36, 12.02, 0.806)
pt3dadd(96.739, 188.45, 12.02, 0.818)
pt3dadd(96.665, 188.544, 12.02, 0.814)
pt3dadd(96.592, 188.639, 12.02, 0.806)
pt3dadd(96.519, 188.735, 12.02, 0.796)
pt3dadd(96.446, 188.83, 12.02, 0.786)
pt3dadd(96.373, 188.926, 12.02, 0.776)
pt3dadd(96.3, 189.02, 12.02, 0.768)
pt3dadd(96.228, 189.116, 12.02, 0.758)
pt3dadd(96.155, 189.211, 12.02, 0.748)
pt3dadd(96.082, 189.307, 12.02, 0.738)
pt3dadd(96.009, 189.402, 12.02, 0.73)
pt3dadd(95.945, 189.503, 12.02, 0.69)
pt3dadd(95.883, 189.606, 12.02, 0.644)
pt3dadd(95.821, 189.709, 12.02, 0.598)
pt3dadd(95.76, 189.812, 12.02, 0.552)
pt3dadd(95.698, 189.916, 12.02, 0.506)
pt3dadd(95.637, 190.018, 12.02, 0.46)
pt3dadd(95.575, 190.121, 12.02, 0.414)
pt3dadd(95.513, 190.224, 12.02, 0.368)
pt3dadd(95.451, 190.327, 12.02, 0.322)
pt3dadd(95.39, 190.429, 12.02, 0.276)
pt3dadd(95.321, 190.528, 12.02, 0.296)
pt3dadd(95.249, 190.625, 12.021, 0.33)
pt3dadd(95.178, 190.721, 12.021, 0.364)
pt3dadd(95.107, 190.817, 12.021, 0.4)
pt3dadd(95.036, 190.914, 12.021, 0.434)
pt3dadd(94.964, 191.01, 12.021, 0.47)
pt3dadd(94.893, 191.107, 12.021, 0.504)
pt3dadd(94.822, 191.203, 12.021, 0.54)
pt3dadd(94.751, 191.3, 12.021, 0.574)
pt3dadd(94.679, 191.396, 12.021, 0.61)
pt3dadd(94.605, 191.491, 12.021, 0.632)
pt3dadd(94.531, 191.585, 12.021, 0.652)
pt3dadd(94.456, 191.68, 12.021, 0.672)
pt3dadd(94.381, 191.773, 12.021, 0.692)
pt3dadd(94.307, 191.867, 12.021, 0.712)
pt3dadd(94.232, 191.96, 12.021, 0.732)
pt3dadd(94.157, 192.055, 12.021, 0.752)
pt3dadd(94.083, 192.149, 12.021, 0.772)
pt3dadd(94.008, 192.242, 12.021, 0.792)
pt3dadd(93.933, 192.336, 12.021, 0.812)
pt3dadd(93.854, 192.427, 12.022, 0.794)
pt3dadd(93.775, 192.517, 12.022, 0.768)
pt3dadd(93.695, 192.606, 12.022, 0.742)
pt3dadd(93.615, 192.696, 12.022, 0.714)
pt3dadd(93.535, 192.786, 12.022, 0.688)
pt3dadd(93.456, 192.875, 12.022, 0.662)
pt3dadd(93.376, 192.965, 12.022, 0.634)
pt3dadd(93.296, 193.055, 12.022, 0.608)
pt3dadd(93.216, 193.145, 12.022, 0.582)
pt3dadd(93.137, 193.234, 12.023, 0.554)
pt3dadd(93.054, 193.321, 12.023, 0.548)
pt3dadd(92.971, 193.408, 12.023, 0.546)
pt3dadd(92.889, 193.495, 12.023, 0.544)
pt3dadd(92.805, 193.582, 12.023, 0.542)
pt3dadd(92.723, 193.668, 12.023, 0.542)
pt3dadd(92.64, 193.754, 12.024, 0.54)
pt3dadd(92.557, 193.842, 12.024, 0.538)
pt3dadd(92.474, 193.928, 12.024, 0.536)
pt3dadd(92.391, 194.015, 12.024, 0.534)
pt3dadd(92.308, 194.101, 12.024, 0.532)
pt3dadd(92.223, 194.186, 12.024, 0.542)
pt3dadd(92.138, 194.272, 12.025, 0.556)
pt3dadd(92.053, 194.357, 12.025, 0.568)
pt3dadd(91.969, 194.441, 12.025, 0.582)
pt3dadd(91.884, 194.526, 12.025, 0.594)
pt3dadd(91.799, 194.611, 12.025, 0.606)
pt3dadd(91.714, 194.696, 12.026, 0.62)
pt3dadd(91.629, 194.78, 12.026, 0.632)
pt3dadd(91.544, 194.866, 12.026, 0.644)
pt3dadd(91.46, 194.951, 12.026, 0.656)
pt3dadd(91.375, 195.035, 12.027, 0.67)
pt3dadd(91.29, 195.12, 12.027, 0.682)
pt3dadd(91.205, 195.205, 12.028, 0.696)
pt3dadd(91.12, 195.29, 12.028, 0.708)
pt3dadd(91.035, 195.374, 12.028, 0.72)
pt3dadd(90.95, 195.46, 12.029, 0.734)
pt3dadd(90.866, 195.545, 12.029, 0.746)
pt3dadd(90.781, 195.629, 12.03, 0.758)
pt3dadd(90.696, 195.714, 12.03, 0.772)
pt3dadd(90.611, 195.799, 12.03, 0.784)
pt3dadd(90.526, 195.884, 12.031, 0.796)
pt3dadd(90.441, 195.968, 12.031, 0.81)
pt3dadd(90.356, 196.054, 12.032, 0.822)
pt3dadd(90.272, 196.139, 12.032, 0.836)
pt3dadd(90.187, 196.223, 12.033, 0.848)
pt3dadd(90.102, 196.308, 12.033, 0.86)
pt3dadd(90.017, 196.393, 12.034, 0.874)
pt3dadd(89.932, 196.478, 12.034, 0.886)
pt3dadd(89.847, 196.562, 12.035, 0.898)
pt3dadd(89.763, 196.648, 12.035, 0.912)
pt3dadd(89.678, 196.733, 12.036, 0.924)
pt3dadd(89.593, 196.817, 12.037, 0.936)
pt3dadd(89.508, 196.902, 12.038, 0.95)
pt3dadd(89.423, 196.987, 12.039, 0.962)
pt3dadd(89.338, 197.071, 12.04, 0.976)
pt3dadd(89.253, 197.156, 12.041, 0.988)
pt3dadd(89.169, 197.242, 12.042, 1)
pt3dadd(89.084, 197.327, 12.043, 1.014)
pt3dadd(88.999, 197.411, 12.044, 1.026)
pt3dadd(88.914, 197.496, 12.045, 1.04)
pt3dadd(88.829, 197.581, 12.047, 1.05)
pt3dadd(88.744, 197.665, 12.048, 1.058)
pt3dadd(88.659, 197.75, 12.049, 1.066)
pt3dadd(88.575, 197.836, 12.051, 1.076)
pt3dadd(88.49, 197.921, 12.052, 1.084)
pt3dadd(88.405, 198.005, 12.054, 1.094)
pt3dadd(88.32, 198.09, 12.055, 1.102)
pt3dadd(88.235, 198.175, 12.056, 1.11)
pt3dadd(88.15, 198.259, 12.057, 1.12)
pt3dadd(88.065, 198.344, 12.059, 1.128)
pt3dadd(87.981, 198.43, 12.061, 1.13)
pt3dadd(87.896, 198.515, 12.063, 1.13)
pt3dadd(87.811, 198.599, 12.065, 1.13)
pt3dadd(87.726, 198.684, 12.067, 1.13)
pt3dadd(87.642, 198.769, 12.069, 1.13)
pt3dadd(87.557, 198.854, 12.071, 1.13)
pt3dadd(87.472, 198.938, 12.073, 1.13)
pt3dadd(87.387, 199.024, 12.075, 1.13)
pt3dadd(87.303, 199.109, 12.077, 1.13)
pt3dadd(87.218, 199.193, 12.08, 1.13)
pt3dadd(87.133, 199.278, 12.083, 1.118)
pt3dadd(87.048, 199.363, 12.087, 1.102)
pt3dadd(86.964, 199.448, 12.091, 1.086)
pt3dadd(86.879, 199.534, 12.095, 1.07)
pt3dadd(86.795, 199.619, 12.099, 1.054)
pt3dadd(86.71, 199.703, 12.103, 1.04)
pt3dadd(86.625, 199.788, 12.107, 1.024)
pt3dadd(86.541, 199.873, 12.111, 1.008)
pt3dadd(86.456, 199.958, 12.115, 0.992)
pt3dadd(86.372, 200.044, 12.119, 0.976)
pt3dadd(86.287, 200.128, 12.124, 0.952)
pt3dadd(86.203, 200.213, 12.129, 0.924)
pt3dadd(86.118, 200.298, 12.135, 0.898)
pt3dadd(86.034, 200.383, 12.14, 0.87)
pt3dadd(85.949, 200.467, 12.145, 0.842)
pt3dadd(85.864, 200.552, 12.151, 0.816)
pt3dadd(85.78, 200.638, 12.156, 0.788)
pt3dadd(85.695, 200.723, 12.161, 0.762)
pt3dadd(85.611, 200.807, 12.167, 0.734)
pt3dadd(85.526, 200.892, 12.172, 0.706)
pt3dadd(85.442, 200.977, 12.181, 0.7)
pt3dadd(85.358, 201.062, 12.189, 0.698)
pt3dadd(85.273, 201.146, 12.198, 0.694)
pt3dadd(85.189, 201.232, 12.207, 0.692)
pt3dadd(85.105, 201.317, 12.216, 0.69)
pt3dadd(85.021, 201.401, 12.225, 0.688)
pt3dadd(84.937, 201.486, 12.234, 0.686)
pt3dadd(84.852, 201.571, 12.243, 0.684)
pt3dadd(84.768, 201.655, 12.252, 0.68)
pt3dadd(84.684, 201.74, 12.261, 0.678)
pt3dadd(84.601, 201.824, 12.28, 0.678)
pt3dadd(84.519, 201.907, 12.301, 0.678)
pt3dadd(84.437, 201.991, 12.322, 0.678)
pt3dadd(84.354, 202.075, 12.343, 0.678)
pt3dadd(84.272, 202.158, 12.363, 0.678)
pt3dadd(84.189, 202.242, 12.384, 0.678)
pt3dadd(84.107, 202.326, 12.405, 0.678)
pt3dadd(84.025, 202.409, 12.426, 0.678)
pt3dadd(83.942, 202.493, 12.447, 0.678)
pt3dadd(83.86, 202.577, 12.468, 0.678)
pt3dadd(83.783, 202.656, 12.507, 0.672)
pt3dadd(83.706, 202.734, 12.547, 0.668)
pt3dadd(83.63, 202.813, 12.587, 0.662)
pt3dadd(83.553, 202.892, 12.627, 0.656)
pt3dadd(83.477, 202.97, 12.668, 0.652)
pt3dadd(83.4, 203.05, 12.708, 0.646)
pt3dadd(83.324, 203.129, 12.748, 0.64)
pt3dadd(83.247, 203.208, 12.788, 0.636)
pt3dadd(83.171, 203.286, 12.828, 0.63)
pt3dadd(83.094, 203.365, 12.868, 0.624)
pt3dadd(83.013, 203.449, 12.892, 0.592)
pt3dadd(82.933, 203.534, 12.915, 0.558)
pt3dadd(82.852, 203.618, 12.938, 0.524)
pt3dadd(82.772, 203.702, 12.961, 0.492)
pt3dadd(82.691, 203.788, 12.984, 0.458)
pt3dadd(82.61, 203.872, 13.007, 0.424)
pt3dadd(82.53, 203.957, 13.03, 0.39)
pt3dadd(82.449, 204.041, 13.053, 0.358)
pt3dadd(82.369, 204.125, 13.076, 0.324)
}
}
proc shape3d_12() {
apic[6] { pt3dadd(82.288, 204.21, 13.1, 0.29)
pt3dadd(82.208, 204.298, 13.112, 0.308)
pt3dadd(82.127, 204.385, 13.124, 0.326)
pt3dadd(82.047, 204.473, 13.136, 0.342)
pt3dadd(81.966, 204.562, 13.148, 0.36)
pt3dadd(81.886, 204.649, 13.159, 0.378)
pt3dadd(81.805, 204.737, 13.171, 0.396)
pt3dadd(81.725, 204.824, 13.183, 0.414)
pt3dadd(81.644, 204.913, 13.195, 0.43)
pt3dadd(81.564, 205.001, 13.207, 0.448)
pt3dadd(81.484, 205.088, 13.219, 0.466)
pt3dadd(81.404, 205.177, 13.226, 0.484)
pt3dadd(81.324, 205.267, 13.232, 0.5)
pt3dadd(81.244, 205.356, 13.239, 0.518)
pt3dadd(81.164, 205.445, 13.246, 0.536)
pt3dadd(81.084, 205.535, 13.252, 0.552)
pt3dadd(81.004, 205.624, 13.259, 0.57)
pt3dadd(80.925, 205.712, 13.265, 0.586)
pt3dadd(80.845, 205.802, 13.272, 0.604)
pt3dadd(80.765, 205.891, 13.279, 0.622)
pt3dadd(80.685, 205.981, 13.285, 0.638)
pt3dadd(80.607, 206.071, 13.285, 0.624)
pt3dadd(80.529, 206.162, 13.285, 0.612)
pt3dadd(80.45, 206.254, 13.285, 0.598)
pt3dadd(80.372, 206.345, 13.285, 0.584)
pt3dadd(80.294, 206.436, 13.285, 0.57)
pt3dadd(80.216, 206.526, 13.285, 0.556)
pt3dadd(80.137, 206.617, 13.285, 0.544)
pt3dadd(80.059, 206.708, 13.285, 0.53)
pt3dadd(79.981, 206.8, 13.285, 0.516)
pt3dadd(79.903, 206.891, 13.285, 0.502)
pt3dadd(79.837, 206.992, 13.285, 0.488)
pt3dadd(79.772, 207.092, 13.285, 0.472)
pt3dadd(79.707, 207.193, 13.285, 0.456)
pt3dadd(79.642, 207.294, 13.285, 0.442)
pt3dadd(79.577, 207.395, 13.285, 0.426)
pt3dadd(79.512, 207.496, 13.285, 0.412)
pt3dadd(79.446, 207.596, 13.285, 0.396)
pt3dadd(79.381, 207.697, 13.285, 0.38)
pt3dadd(79.316, 207.797, 13.285, 0.366)
pt3dadd(79.251, 207.899, 13.285, 0.35)
pt3dadd(79.193, 208.003, 13.285, 0.346)
pt3dadd(79.134, 208.108, 13.285, 0.34)
pt3dadd(79.075, 208.212, 13.285, 0.334)
pt3dadd(79.016, 208.316, 13.285, 0.328)
pt3dadd(78.957, 208.421, 13.285, 0.322)
pt3dadd(78.898, 208.526, 13.285, 0.316)
pt3dadd(78.84, 208.631, 13.285, 0.31)
pt3dadd(78.781, 208.735, 13.285, 0.304)
pt3dadd(78.722, 208.84, 13.285, 0.298)
pt3dadd(78.663, 208.944, 13.285, 0.294)
pt3dadd(78.597, 209.045, 13.285, 0.326)
pt3dadd(78.531, 209.144, 13.285, 0.356)
pt3dadd(78.465, 209.245, 13.285, 0.388)
pt3dadd(78.399, 209.345, 13.285, 0.418)
pt3dadd(78.333, 209.446, 13.285, 0.448)
pt3dadd(78.267, 209.545, 13.285, 0.48)
pt3dadd(78.201, 209.646, 13.285, 0.51)
pt3dadd(78.136, 209.747, 13.285, 0.542)
pt3dadd(78.07, 209.846, 13.285, 0.572)
pt3dadd(78.004, 209.947, 13.285, 0.6)
pt3dadd(77.946, 210.052, 13.285, 0.582)
pt3dadd(77.887, 210.157, 13.285, 0.564)
pt3dadd(77.828, 210.262, 13.285, 0.546)
pt3dadd(77.77, 210.366, 13.285, 0.528)
pt3dadd(77.711, 210.47, 13.285, 0.51)
pt3dadd(77.652, 210.576, 13.285, 0.492)
pt3dadd(77.594, 210.68, 13.285, 0.474)
pt3dadd(77.535, 210.785, 13.285, 0.456)
pt3dadd(77.476, 210.889, 13.285, 0.438)
pt3dadd(77.417, 210.994, 13.285, 0.42)
pt3dadd(77.351, 211.094, 13.285, 0.4)
pt3dadd(77.285, 211.194, 13.285, 0.38)
pt3dadd(77.219, 211.294, 13.285, 0.36)
pt3dadd(77.152, 211.394, 13.285, 0.342)
pt3dadd(77.086, 211.494, 13.285, 0.322)
pt3dadd(77.02, 211.595, 13.285, 0.302)
pt3dadd(76.954, 211.694, 13.285, 0.282)
pt3dadd(76.888, 211.795, 13.285, 0.262)
pt3dadd(76.822, 211.895, 13.285, 0.242)
pt3dadd(76.754, 211.993, 13.285, 0.226)
pt3dadd(76.675, 212.084, 13.285, 0.226)
pt3dadd(76.596, 212.174, 13.285, 0.226)
pt3dadd(76.518, 212.266, 13.285, 0.226)
pt3dadd(76.439, 212.357, 13.285, 0.226)
pt3dadd(76.361, 212.447, 13.285, 0.226)
pt3dadd(76.282, 212.538, 13.285, 0.226)
pt3dadd(76.203, 212.628, 13.285, 0.226)
pt3dadd(76.125, 212.719, 13.285, 0.226)
pt3dadd(76.046, 212.809, 13.285, 0.226)
pt3dadd(75.965, 212.897, 13.285, 0.228)
pt3dadd(75.864, 212.963, 13.285, 0.244)
pt3dadd(75.764, 213.028, 13.285, 0.262)
pt3dadd(75.663, 213.094, 13.285, 0.278)
pt3dadd(75.563, 213.16, 13.285, 0.294)
pt3dadd(75.462, 213.226, 13.285, 0.31)
pt3dadd(75.362, 213.29, 13.285, 0.328)
pt3dadd(75.262, 213.356, 13.285, 0.344)
pt3dadd(75.161, 213.422, 13.285, 0.36)
pt3dadd(75.061, 213.488, 13.285, 0.376)
pt3dadd(74.961, 213.554, 13.285, 0.39)
pt3dadd(74.861, 213.62, 13.285, 0.386)
pt3dadd(74.761, 213.688, 13.285, 0.384)
pt3dadd(74.661, 213.754, 13.285, 0.38)
pt3dadd(74.561, 213.821, 13.285, 0.378)
pt3dadd(74.461, 213.887, 13.285, 0.374)
pt3dadd(74.362, 213.954, 13.285, 0.37)
pt3dadd(74.262, 214.02, 13.285, 0.368)
pt3dadd(74.162, 214.087, 13.285, 0.364)
pt3dadd(74.062, 214.153, 13.285, 0.36)
pt3dadd(73.962, 214.22, 13.285, 0.356)
pt3dadd(73.864, 214.289, 13.285, 0.346)
pt3dadd(73.765, 214.357, 13.285, 0.336)
pt3dadd(73.666, 214.424, 13.285, 0.326)
pt3dadd(73.568, 214.493, 13.285, 0.316)
pt3dadd(73.469, 214.561, 13.285, 0.306)
pt3dadd(73.37, 214.63, 13.285, 0.294)
pt3dadd(73.272, 214.698, 13.285, 0.284)
pt3dadd(73.173, 214.766, 13.285, 0.274)
pt3dadd(73.074, 214.835, 13.285, 0.264)
pt3dadd(72.976, 214.904, 13.285, 0.26)
pt3dadd(72.881, 214.978, 13.285, 0.288)
pt3dadd(72.786, 215.051, 13.285, 0.316)
pt3dadd(72.691, 215.124, 13.285, 0.344)
pt3dadd(72.596, 215.197, 13.285, 0.372)
pt3dadd(72.501, 215.27, 13.285, 0.402)
pt3dadd(72.406, 215.344, 13.285, 0.43)
pt3dadd(72.311, 215.417, 13.285, 0.458)
pt3dadd(72.216, 215.49, 13.285, 0.486)
pt3dadd(72.121, 215.563, 13.285, 0.514)
pt3dadd(72.026, 215.636, 13.285, 0.54)
pt3dadd(71.926, 215.704, 13.285, 0.546)
pt3dadd(71.827, 215.771, 13.285, 0.552)
pt3dadd(71.728, 215.839, 13.285, 0.558)
pt3dadd(71.629, 215.906, 13.285, 0.564)
pt3dadd(71.53, 215.974, 13.285, 0.57)
pt3dadd(71.43, 216.041, 13.285, 0.576)
pt3dadd(71.331, 216.109, 13.285, 0.582)
pt3dadd(71.232, 216.176, 13.285, 0.588)
pt3dadd(71.133, 216.244, 13.285, 0.596)
pt3dadd(71.033, 216.311, 13.285, 0.598)
pt3dadd(70.931, 216.373, 13.285, 0.584)
pt3dadd(70.828, 216.434, 13.285, 0.57)
pt3dadd(70.725, 216.497, 13.285, 0.554)
pt3dadd(70.623, 216.559, 13.285, 0.54)
pt3dadd(70.52, 216.622, 13.285, 0.526)
pt3dadd(70.417, 216.683, 13.285, 0.512)
pt3dadd(70.314, 216.745, 13.285, 0.496)
pt3dadd(70.212, 216.808, 13.285, 0.482)
pt3dadd(70.109, 216.87, 13.285, 0.468)
pt3dadd(70.008, 216.934, 13.285, 0.458)
pt3dadd(69.912, 217.006, 13.285, 0.474)
pt3dadd(69.816, 217.078, 13.285, 0.488)
pt3dadd(69.72, 217.15, 13.285, 0.502)
pt3dadd(69.624, 217.223, 13.285, 0.516)
pt3dadd(69.528, 217.295, 13.285, 0.53)
pt3dadd(69.432, 217.367, 13.285, 0.544)
pt3dadd(69.337, 217.439, 13.285, 0.558)
pt3dadd(69.241, 217.511, 13.285, 0.574)
pt3dadd(69.145, 217.583, 13.285, 0.588)
pt3dadd(69.05, 217.656, 13.285, 0.602)
pt3dadd(68.956, 217.732, 13.285, 0.622)
pt3dadd(68.863, 217.807, 13.285, 0.642)
pt3dadd(68.77, 217.883, 13.285, 0.662)
pt3dadd(68.677, 217.958, 13.285, 0.682)
pt3dadd(68.584, 218.034, 13.285, 0.702)
pt3dadd(68.491, 218.11, 13.285, 0.722)
pt3dadd(68.397, 218.185, 13.285, 0.742)
pt3dadd(68.304, 218.261, 13.285, 0.762)
pt3dadd(68.211, 218.336, 13.285, 0.782)
pt3dadd(68.119, 218.413, 13.285, 0.802)
pt3dadd(68.029, 218.492, 13.285, 0.828)
pt3dadd(67.939, 218.573, 13.285, 0.856)
pt3dadd(67.85, 218.652, 13.285, 0.882)
pt3dadd(67.76, 218.732, 13.285, 0.908)
pt3dadd(67.67, 218.812, 13.285, 0.936)
pt3dadd(67.581, 218.892, 13.285, 0.962)
pt3dadd(67.491, 218.971, 13.285, 0.99)
pt3dadd(67.401, 219.05, 13.285, 1.016)
pt3dadd(67.311, 219.131, 13.285, 1.042)
pt3dadd(67.222, 219.211, 13.285, 1.062)
pt3dadd(67.136, 219.295, 13.285, 1.05)
pt3dadd(67.05, 219.378, 13.285, 1.038)
pt3dadd(66.964, 219.462, 13.285, 1.024)
pt3dadd(66.878, 219.546, 13.285, 1.012)
pt3dadd(66.792, 219.629, 13.285, 1)
pt3dadd(66.706, 219.713, 13.285, 0.988)
pt3dadd(66.62, 219.797, 13.285, 0.974)
pt3dadd(66.534, 219.881, 13.285, 0.962)
pt3dadd(66.448, 219.964, 13.285, 0.95)
pt3dadd(66.362, 220.048, 13.285, 0.934)
pt3dadd(66.277, 220.133, 13.285, 0.91)
pt3dadd(66.192, 220.218, 13.285, 0.884)
pt3dadd(66.108, 220.302, 13.285, 0.86)
pt3dadd(66.023, 220.387, 13.285, 0.834)
pt3dadd(65.938, 220.472, 13.285, 0.808)
pt3dadd(65.853, 220.556, 13.285, 0.784)
pt3dadd(65.768, 220.642, 13.285, 0.758)
pt3dadd(65.683, 220.727, 13.285, 0.732)
pt3dadd(65.598, 220.812, 13.285, 0.708)
}
}
proc shape3d_13() {
apic[6] { pt3dadd(65.514, 220.896, 13.285, 0.686)
pt3dadd(65.429, 220.981, 13.285, 0.686)
pt3dadd(65.344, 221.066, 13.285, 0.686)
pt3dadd(65.259, 221.15, 13.285, 0.684)
pt3dadd(65.174, 221.236, 13.285, 0.684)
pt3dadd(65.089, 221.321, 13.285, 0.682)
pt3dadd(65.005, 221.406, 13.285, 0.682)
pt3dadd(64.92, 221.49, 13.285, 0.68)
pt3dadd(64.835, 221.575, 13.285, 0.68)
pt3dadd(64.75, 221.66, 13.285, 0.678)
pt3dadd(64.665, 221.744, 13.285, 0.678)
pt3dadd(64.58, 221.83, 13.285, 0.676)
pt3dadd(64.496, 221.915, 13.285, 0.674)
pt3dadd(64.411, 222, 13.285, 0.67)
pt3dadd(64.326, 222.084, 13.285, 0.668)
pt3dadd(64.241, 222.169, 13.285, 0.666)
pt3dadd(64.156, 222.254, 13.285, 0.664)
pt3dadd(64.072, 222.34, 13.285, 0.662)
pt3dadd(63.987, 222.424, 13.285, 0.66)
pt3dadd(63.902, 222.509, 13.285, 0.658)
pt3dadd(63.817, 222.594, 13.285, 0.654)
pt3dadd(63.732, 222.679, 13.285, 0.64)
pt3dadd(63.648, 222.764, 13.285, 0.628)
pt3dadd(63.563, 222.848, 13.285, 0.616)
pt3dadd(63.478, 222.934, 13.285, 0.602)
pt3dadd(63.393, 223.019, 13.285, 0.59)
pt3dadd(63.309, 223.104, 13.285, 0.578)
pt3dadd(63.224, 223.188, 13.285, 0.564)
pt3dadd(63.139, 223.273, 13.285, 0.552)
pt3dadd(63.054, 223.358, 13.285, 0.54)
pt3dadd(62.969, 223.444, 13.285, 0.526)
pt3dadd(62.885, 223.528, 13.285, 0.514)
pt3dadd(62.8, 223.613, 13.285, 0.502)
pt3dadd(62.715, 223.698, 13.285, 0.49)
pt3dadd(62.63, 223.783, 13.285, 0.476)
pt3dadd(62.545, 223.867, 13.285, 0.464)
pt3dadd(62.461, 223.952, 13.285, 0.452)
pt3dadd(62.376, 224.038, 13.285, 0.438)
pt3dadd(62.291, 224.123, 13.285, 0.426)
pt3dadd(62.206, 224.207, 13.285, 0.414)
pt3dadd(62.121, 224.292, 13.285, 0.4)
pt3dadd(62.037, 224.377, 13.285, 0.388)
pt3dadd(61.952, 224.462, 13.285, 0.376)
pt3dadd(61.867, 224.548, 13.285, 0.362)
pt3dadd(61.782, 224.632, 13.285, 0.35)
pt3dadd(61.698, 224.717, 13.285, 0.338)
pt3dadd(61.613, 224.802, 13.285, 0.324)
pt3dadd(61.528, 224.887, 13.285, 0.312)
pt3dadd(61.443, 224.972, 13.285, 0.3)
pt3dadd(61.359, 225.058, 13.285, 0.286)
pt3dadd(61.274, 225.142, 13.285, 0.276)
pt3dadd(61.189, 225.227, 13.285, 0.27)
pt3dadd(61.105, 225.312, 13.285, 0.266)
pt3dadd(61.02, 225.397, 13.285, 0.26)
pt3dadd(60.936, 225.482, 13.285, 0.256)
pt3dadd(60.851, 225.568, 13.285, 0.25)
pt3dadd(60.766, 225.653, 13.285, 0.246)
pt3dadd(60.682, 225.738, 13.285, 0.24)
pt3dadd(60.597, 225.823, 13.285, 0.236)
pt3dadd(60.513, 225.908, 13.285, 0.23)
pt3dadd(60.428, 225.992, 13.285, 0.226)
pt3dadd(60.343, 226.078, 13.285, 0.226)
pt3dadd(60.259, 226.163, 13.285, 0.226)
pt3dadd(60.174, 226.249, 13.285, 0.226)
pt3dadd(60.09, 226.334, 13.285, 0.226)
pt3dadd(60.006, 226.42, 13.285, 0.226)
pt3dadd(59.921, 226.505, 13.285, 0.226)
pt3dadd(59.837, 226.59, 13.285, 0.226)
pt3dadd(59.752, 226.675, 13.285, 0.226)
pt3dadd(59.668, 226.76, 13.285, 0.226)
pt3dadd(59.583, 226.846, 13.285, 0.226)
pt3dadd(59.499, 226.931, 13.285, 0.226)
pt3dadd(59.415, 227.016, 13.285, 0.226)
pt3dadd(59.33, 227.101, 13.285, 0.226)
pt3dadd(59.246, 227.186, 13.285, 0.226)
pt3dadd(59.162, 227.273, 13.285, 0.226)
pt3dadd(59.078, 227.358, 13.285, 0.226)
pt3dadd(58.993, 227.443, 13.285, 0.226)
pt3dadd(58.909, 227.528, 13.285, 0.226)
pt3dadd(58.825, 227.614, 13.285, 0.226)
pt3dadd(58.741, 227.7, 13.285, 0.226)
pt3dadd(58.656, 227.785, 13.285, 0.228)
pt3dadd(58.572, 227.87, 13.285, 0.228)
pt3dadd(58.488, 227.957, 13.285, 0.23)
pt3dadd(58.404, 228.042, 13.285, 0.23)
pt3dadd(58.32, 228.127, 13.285, 0.232)
pt3dadd(58.236, 228.214, 13.285, 0.234)
pt3dadd(58.152, 228.299, 13.285, 0.234)
pt3dadd(58.068, 228.384, 13.285, 0.236)
pt3dadd(57.983, 228.469, 13.285, 0.236)
pt3dadd(57.899, 228.556, 13.285, 0.242)
pt3dadd(57.816, 228.642, 13.285, 0.268)
pt3dadd(57.732, 228.728, 13.285, 0.294)
pt3dadd(57.649, 228.814, 13.285, 0.32)
pt3dadd(57.566, 228.9, 13.285, 0.344)
pt3dadd(57.482, 228.986, 13.285, 0.37)
pt3dadd(57.399, 229.073, 13.285, 0.396)
pt3dadd(57.315, 229.159, 13.285, 0.422)
pt3dadd(57.232, 229.246, 13.285, 0.448)
pt3dadd(57.148, 229.332, 13.285, 0.474)
pt3dadd(57.065, 229.417, 13.285, 0.496)
pt3dadd(56.982, 229.505, 13.285, 0.512)
pt3dadd(56.899, 229.591, 13.285, 0.526)
pt3dadd(56.816, 229.678, 13.285, 0.54)
pt3dadd(56.733, 229.765, 13.285, 0.556)
pt3dadd(56.65, 229.852, 13.285, 0.57)
pt3dadd(56.568, 229.938, 13.285, 0.584)
pt3dadd(56.485, 230.026, 13.285, 0.6)
pt3dadd(56.402, 230.112, 13.285, 0.614)
pt3dadd(56.319, 230.198, 13.285, 0.628)
pt3dadd(56.236, 230.286, 13.285, 0.638)
pt3dadd(56.155, 230.374, 13.285, 0.626)
pt3dadd(56.073, 230.462, 13.285, 0.612)
pt3dadd(55.992, 230.55, 13.285, 0.6)
pt3dadd(55.91, 230.638, 13.285, 0.586)
pt3dadd(55.829, 230.726, 13.285, 0.572)
pt3dadd(55.748, 230.814, 13.285, 0.56)
pt3dadd(55.666, 230.903, 13.285, 0.546)
pt3dadd(55.585, 230.99, 13.285, 0.534)
pt3dadd(55.503, 231.079, 13.285, 0.52)
pt3dadd(55.422, 231.167, 13.285, 0.508)
pt3dadd(55.342, 231.257, 13.285, 0.502)
pt3dadd(55.262, 231.347, 13.285, 0.496)
pt3dadd(55.183, 231.436, 13.285, 0.492)
pt3dadd(55.103, 231.526, 13.285, 0.486)
pt3dadd(55.023, 231.616, 13.285, 0.48)
pt3dadd(54.943, 231.704, 13.285, 0.474)
pt3dadd(54.863, 231.794, 13.285, 0.468)
pt3dadd(54.783, 231.884, 13.285, 0.462)
pt3dadd(54.703, 231.973, 13.285, 0.456)
pt3dadd(54.624, 232.063, 13.285, 0.452)
pt3dadd(54.545, 232.154, 13.285, 0.452)
pt3dadd(54.467, 232.244, 13.285, 0.452)
pt3dadd(54.388, 232.336, 13.285, 0.452)
pt3dadd(54.309, 232.426, 13.285, 0.452)
pt3dadd(54.231, 232.517, 13.285, 0.452)
pt3dadd(54.152, 232.607, 13.285, 0.452)
pt3dadd(54.073, 232.698, 13.285, 0.452)
pt3dadd(53.995, 232.788, 13.285, 0.452)
pt3dadd(53.916, 232.879, 13.285, 0.452)
pt3dadd(53.841, 232.972, 13.285, 0.458)
pt3dadd(53.779, 233.075, 13.285, 0.484)
pt3dadd(53.717, 233.178, 13.285, 0.512)
pt3dadd(53.656, 233.281, 13.285, 0.54)
pt3dadd(53.594, 233.383, 13.285, 0.568)
pt3dadd(53.532, 233.486, 13.285, 0.596)
pt3dadd(53.471, 233.59, 13.285, 0.622)
pt3dadd(53.409, 233.693, 13.285, 0.65)
pt3dadd(53.347, 233.796, 13.285, 0.678)
pt3dadd(53.286, 233.898, 13.285, 0.706)
pt3dadd(53.224, 234.001, 13.285, 0.726)
pt3dadd(53.161, 234.103, 13.285, 0.726)
pt3dadd(53.098, 234.206, 13.285, 0.724)
pt3dadd(53.036, 234.308, 13.285, 0.722)
pt3dadd(52.973, 234.41, 13.285, 0.722)
pt3dadd(52.91, 234.512, 13.285, 0.72)
pt3dadd(52.847, 234.616, 13.285, 0.718)
pt3dadd(52.785, 234.718, 13.285, 0.716)
pt3dadd(52.722, 234.82, 13.285, 0.716)
pt3dadd(52.659, 234.922, 13.285, 0.714)
pt3dadd(52.596, 235.024, 13.285, 0.704)
pt3dadd(52.529, 235.123, 13.285, 0.66)
pt3dadd(52.461, 235.223, 13.285, 0.614)
pt3dadd(52.394, 235.322, 13.285, 0.57)
pt3dadd(52.327, 235.422, 13.285, 0.526)
pt3dadd(52.26, 235.52, 13.285, 0.482)
pt3dadd(52.193, 235.62, 13.285, 0.438)
pt3dadd(52.125, 235.72, 13.285, 0.392)
pt3dadd(52.058, 235.819, 13.285, 0.348)
pt3dadd(51.991, 235.919, 13.285, 0.304)
pt3dadd(51.923, 236.017, 13.285, 0.268)
pt3dadd(51.851, 236.113, 13.285, 0.264)
pt3dadd(51.779, 236.209, 13.285, 0.26)
pt3dadd(51.707, 236.305, 13.285, 0.256)
pt3dadd(51.635, 236.401, 13.285, 0.25)
pt3dadd(51.563, 236.497, 13.285, 0.246)
pt3dadd(51.491, 236.593, 13.285, 0.242)
pt3dadd(51.419, 236.689, 13.285, 0.238)
pt3dadd(51.346, 236.785, 13.285, 0.234)
pt3dadd(51.274, 236.881, 13.285, 0.23)
pt3dadd(51.203, 236.977, 13.285, 0.228)
pt3dadd(51.135, 237.076, 13.285, 0.232)
pt3dadd(51.066, 237.175, 13.285, 0.236)
pt3dadd(50.998, 237.274, 13.285, 0.242)
pt3dadd(50.929, 237.372, 13.285, 0.246)
pt3dadd(50.861, 237.47, 13.285, 0.252)
pt3dadd(50.792, 237.569, 13.285, 0.256)
pt3dadd(50.724, 237.667, 13.285, 0.262)
pt3dadd(50.655, 237.766, 13.285, 0.266)
pt3dadd(50.587, 237.864, 13.285, 0.27)
pt3dadd(50.52, 237.965, 13.285, 0.278)
pt3dadd(50.461, 238.068, 13.285, 0.294)
pt3dadd(50.401, 238.172, 13.285, 0.31)
pt3dadd(50.342, 238.277, 13.285, 0.324)
pt3dadd(50.282, 238.381, 13.285, 0.34)
pt3dadd(50.223, 238.486, 13.285, 0.356)
pt3dadd(50.163, 238.589, 13.285, 0.372)
pt3dadd(50.104, 238.693, 13.285, 0.388)
pt3dadd(50.044, 238.798, 13.285, 0.402)
pt3dadd(49.985, 238.902, 13.285, 0.418)
}
}
proc shape3d_14() {
apic[6] { pt3dadd(49.923, 239.005, 13.285, 0.428)
pt3dadd(49.857, 239.105, 13.285, 0.418)
pt3dadd(49.79, 239.204, 13.285, 0.406)
pt3dadd(49.724, 239.304, 13.285, 0.396)
pt3dadd(49.657, 239.405, 13.285, 0.386)
pt3dadd(49.59, 239.504, 13.285, 0.376)
pt3dadd(49.524, 239.604, 13.285, 0.364)
pt3dadd(49.457, 239.704, 13.285, 0.354)
pt3dadd(49.391, 239.803, 13.285, 0.344)
pt3dadd(49.324, 239.904, 13.285, 0.334)
pt3dadd(49.257, 240.002, 13.285, 0.324)
pt3dadd(49.187, 240.101, 13.285, 0.318)
pt3dadd(49.118, 240.198, 13.285, 0.314)
pt3dadd(49.048, 240.296, 13.285, 0.308)
pt3dadd(48.978, 240.394, 13.285, 0.302)
pt3dadd(48.909, 240.492, 13.285, 0.298)
pt3dadd(48.839, 240.589, 13.285, 0.292)
pt3dadd(48.77, 240.688, 13.285, 0.286)
pt3dadd(48.7, 240.785, 13.285, 0.282)
pt3dadd(48.631, 240.883, 13.285, 0.276)
pt3dadd(48.56, 240.98, 13.285, 0.276)
pt3dadd(48.487, 241.075, 13.285, 0.29)
pt3dadd(48.413, 241.17, 13.285, 0.304)
pt3dadd(48.34, 241.265, 13.285, 0.318)
pt3dadd(48.266, 241.36, 13.285, 0.332)
pt3dadd(48.193, 241.454, 13.285, 0.346)
pt3dadd(48.12, 241.549, 13.285, 0.36)
pt3dadd(48.046, 241.644, 13.285, 0.374)
pt3dadd(47.973, 241.739, 13.285, 0.388)
pt3dadd(47.899, 241.834, 13.285, 0.404)
pt3dadd(47.828, 241.931, 13.285, 0.412)
pt3dadd(47.763, 242.032, 13.285, 0.404)
pt3dadd(47.698, 242.132, 13.285, 0.398)
pt3dadd(47.633, 242.233, 13.285, 0.39)
pt3dadd(47.568, 242.334, 13.285, 0.382)
pt3dadd(47.503, 242.435, 13.285, 0.374)
pt3dadd(47.438, 242.536, 13.285, 0.368)
pt3dadd(47.373, 242.636, 13.285, 0.36)
pt3dadd(47.308, 242.737, 13.285, 0.352)
pt3dadd(47.243, 242.838, 13.285, 0.346)
pt3dadd(47.178, 242.939, 13.285, 0.336)
pt3dadd(47.113, 243.04, 13.285, 0.326)
pt3dadd(47.048, 243.142, 13.285, 0.314)
pt3dadd(46.984, 243.242, 13.285, 0.302)
pt3dadd(46.919, 243.343, 13.285, 0.292)
pt3dadd(46.854, 243.444, 13.286, 0.28)
pt3dadd(46.79, 243.546, 13.286, 0.268)
pt3dadd(46.725, 243.647, 13.286, 0.258)
pt3dadd(46.66, 243.748, 13.286, 0.246)
pt3dadd(46.595, 243.848, 13.286, 0.234)
pt3dadd(46.529, 243.948, 13.286, 0.226)
pt3dadd(46.456, 244.044, 13.286, 0.226)
pt3dadd(46.384, 244.14, 13.286, 0.226)
pt3dadd(46.311, 244.236, 13.286, 0.226)
pt3dadd(46.239, 244.331, 13.286, 0.226)
pt3dadd(46.167, 244.427, 13.286, 0.226)
pt3dadd(46.094, 244.523, 13.286, 0.226)
pt3dadd(46.022, 244.619, 13.286, 0.226)
pt3dadd(45.949, 244.714, 13.286, 0.226)
pt3dadd(45.877, 244.81, 13.286, 0.226)
pt3dadd(45.803, 244.904, 13.286, 0.23)
pt3dadd(45.725, 244.996, 13.286, 0.25)
pt3dadd(45.647, 245.087, 13.286, 0.268)
pt3dadd(45.569, 245.178, 13.286, 0.286)
pt3dadd(45.491, 245.269, 13.286, 0.304)
pt3dadd(45.414, 245.36, 13.287, 0.324)
pt3dadd(45.336, 245.452, 13.287, 0.342)
pt3dadd(45.258, 245.543, 13.287, 0.36)
pt3dadd(45.18, 245.634, 13.287, 0.378)
pt3dadd(45.102, 245.725, 13.287, 0.396)
pt3dadd(45.023, 245.816, 13.287, 0.418)
pt3dadd(44.943, 245.905, 13.287, 0.444)
pt3dadd(44.862, 245.994, 13.287, 0.47)
pt3dadd(44.782, 246.084, 13.287, 0.498)
pt3dadd(44.702, 246.173, 13.287, 0.524)
pt3dadd(44.621, 246.262, 13.287, 0.55)
pt3dadd(44.541, 246.35, 13.287, 0.578)
pt3dadd(44.461, 246.44, 13.288, 0.604)
pt3dadd(44.38, 246.529, 13.288, 0.63)
pt3dadd(44.3, 246.618, 13.288, 0.656)
pt3dadd(44.218, 246.706, 13.288, 0.67)
pt3dadd(44.132, 246.79, 13.288, 0.644)
pt3dadd(44.046, 246.872, 13.288, 0.618)
pt3dadd(43.96, 246.956, 13.288, 0.592)
pt3dadd(43.874, 247.04, 13.288, 0.566)
pt3dadd(43.788, 247.123, 13.289, 0.54)
pt3dadd(43.701, 247.207, 13.289, 0.514)
pt3dadd(43.615, 247.291, 13.289, 0.49)
pt3dadd(43.529, 247.374, 13.289, 0.464)
pt3dadd(43.443, 247.458, 13.29, 0.438)
pt3dadd(43.357, 247.542, 13.29, 0.414)
pt3dadd(43.27, 247.625, 13.29, 0.394)
pt3dadd(43.184, 247.708, 13.29, 0.376)
pt3dadd(43.097, 247.79, 13.29, 0.356)
pt3dadd(43.011, 247.874, 13.291, 0.336)
pt3dadd(42.924, 247.957, 13.291, 0.318)
pt3dadd(42.838, 248.04, 13.291, 0.298)
pt3dadd(42.751, 248.124, 13.291, 0.278)
pt3dadd(42.665, 248.207, 13.292, 0.26)
pt3dadd(42.578, 248.29, 13.292, 0.24)
pt3dadd(42.491, 248.372, 13.292, 0.226)
pt3dadd(42.403, 248.454, 13.293, 0.226)
pt3dadd(42.315, 248.536, 13.293, 0.226)
pt3dadd(42.228, 248.617, 13.293, 0.226)
pt3dadd(42.14, 248.699, 13.294, 0.226)
pt3dadd(42.052, 248.78, 13.294, 0.226)
pt3dadd(41.964, 248.863, 13.295, 0.226)
pt3dadd(41.876, 248.945, 13.295, 0.226)
pt3dadd(41.788, 249.026, 13.295, 0.226)
pt3dadd(41.7, 249.108, 13.296, 0.226)
pt3dadd(41.612, 249.188, 13.296, 0.226)
pt3dadd(41.523, 249.269, 13.297, 0.226)
pt3dadd(41.434, 249.35, 13.298, 0.226)
pt3dadd(41.345, 249.431, 13.298, 0.226)
pt3dadd(41.256, 249.511, 13.299, 0.226)
pt3dadd(41.166, 249.592, 13.3, 0.226)
pt3dadd(41.077, 249.672, 13.3, 0.226)
pt3dadd(40.988, 249.752, 13.301, 0.226)
pt3dadd(40.899, 249.833, 13.302, 0.226)
pt3dadd(40.81, 249.913, 13.302, 0.226)
pt3dadd(40.721, 249.992, 13.303, 0.226)
pt3dadd(40.631, 250.073, 13.304, 0.226)
pt3dadd(40.541, 250.152, 13.305, 0.226)
pt3dadd(40.451, 250.231, 13.306, 0.226)
pt3dadd(40.361, 250.31, 13.307, 0.226)
pt3dadd(40.271, 250.39, 13.308, 0.226)
pt3dadd(40.181, 250.469, 13.309, 0.226)
pt3dadd(40.091, 250.548, 13.309, 0.226)
pt3dadd(40.001, 250.627, 13.31, 0.226)
pt3dadd(39.911, 250.706, 13.311, 0.226)
pt3dadd(39.817, 250.782, 13.313, 0.23)
pt3dadd(39.715, 250.844, 13.315, 0.244)
pt3dadd(39.613, 250.908, 13.317, 0.258)
pt3dadd(39.511, 250.972, 13.319, 0.272)
pt3dadd(39.409, 251.034, 13.321, 0.286)
pt3dadd(39.307, 251.098, 13.323, 0.3)
pt3dadd(39.205, 251.16, 13.325, 0.314)
pt3dadd(39.103, 251.224, 13.327, 0.328)
pt3dadd(39.001, 251.286, 13.329, 0.342)
pt3dadd(38.899, 251.35, 13.331, 0.356)
pt3dadd(38.797, 251.413, 13.333, 0.366)
pt3dadd(38.697, 251.479, 13.337, 0.368)
pt3dadd(38.596, 251.544, 13.341, 0.37)
pt3dadd(38.496, 251.609, 13.344, 0.37)
pt3dadd(38.395, 251.675, 13.348, 0.372)
pt3dadd(38.294, 251.74, 13.351, 0.374)
pt3dadd(38.194, 251.804, 13.355, 0.374)
pt3dadd(38.093, 251.87, 13.359, 0.376)
pt3dadd(37.992, 251.935, 13.362, 0.378)
pt3dadd(37.892, 252.001, 13.366, 0.38)
pt3dadd(37.793, 252.067, 13.37, 0.376)
pt3dadd(37.696, 252.139, 13.376, 0.36)
pt3dadd(37.599, 252.21, 13.381, 0.346)
pt3dadd(37.503, 252.281, 13.387, 0.332)
pt3dadd(37.406, 252.352, 13.392, 0.318)
pt3dadd(37.31, 252.422, 13.397, 0.302)
pt3dadd(37.213, 252.493, 13.403, 0.288)
pt3dadd(37.116, 252.564, 13.408, 0.274)
pt3dadd(37.02, 252.635, 13.414, 0.258)
pt3dadd(36.923, 252.706, 13.419, 0.244)
pt3dadd(36.829, 252.779, 13.425, 0.248)
pt3dadd(36.739, 252.858, 13.434, 0.296)
pt3dadd(36.648, 252.936, 13.442, 0.342)
pt3dadd(36.558, 253.015, 13.451, 0.39)
pt3dadd(36.468, 253.093, 13.459, 0.436)
pt3dadd(36.378, 253.172, 13.467, 0.482)
pt3dadd(36.288, 253.25, 13.476, 0.53)
pt3dadd(36.198, 253.33, 13.484, 0.576)
pt3dadd(36.108, 253.408, 13.492, 0.624)
pt3dadd(36.018, 253.487, 13.501, 0.67)
pt3dadd(35.929, 253.565, 13.515, 0.698)
pt3dadd(35.845, 253.644, 13.543, 0.682)
pt3dadd(35.761, 253.723, 13.571, 0.666)
pt3dadd(35.677, 253.801, 13.599, 0.65)
pt3dadd(35.593, 253.88, 13.627, 0.634)
pt3dadd(35.509, 253.96, 13.655, 0.618)
pt3dadd(35.425, 254.038, 13.684, 0.602)
pt3dadd(35.341, 254.117, 13.712, 0.586)
pt3dadd(35.257, 254.196, 13.74, 0.57)
pt3dadd(35.173, 254.274, 13.768, 0.556)
pt3dadd(35.091, 254.354, 13.796, 0.532)
pt3dadd(35.01, 254.435, 13.826, 0.5)
pt3dadd(34.928, 254.516, 13.855, 0.466)
pt3dadd(34.847, 254.598, 13.885, 0.434)
pt3dadd(34.766, 254.678, 13.914, 0.402)
pt3dadd(34.685, 254.76, 13.943, 0.37)
pt3dadd(34.604, 254.84, 13.973, 0.336)
pt3dadd(34.523, 254.922, 14.002, 0.304)
pt3dadd(34.442, 255.004, 14.031, 0.272)
pt3dadd(34.361, 255.084, 14.06, 0.24)
pt3dadd(34.277, 255.167, 14.078, 0.24)
pt3dadd(34.193, 255.252, 14.087, 0.266)
pt3dadd(34.108, 255.336, 14.096, 0.292)
pt3dadd(34.024, 255.421, 14.105, 0.318)
pt3dadd(33.939, 255.505, 14.114, 0.344)
pt3dadd(33.855, 255.59, 14.123, 0.368)
pt3dadd(33.77, 255.674, 14.132, 0.394)
pt3dadd(33.686, 255.758, 14.141, 0.42)
pt3dadd(33.601, 255.844, 14.15, 0.446)
pt3dadd(33.517, 255.928, 14.159, 0.47)
}
}
proc shape3d_15() {
apic[6] { pt3dadd(33.433, 256.012, 14.153, 0.514)
pt3dadd(33.349, 256.096, 14.137, 0.568)
pt3dadd(33.265, 256.18, 14.122, 0.624)
pt3dadd(33.181, 256.264, 14.106, 0.678)
pt3dadd(33.097, 256.348, 14.09, 0.732)
pt3dadd(33.014, 256.432, 14.075, 0.788)
pt3dadd(32.93, 256.514, 14.059, 0.842)
pt3dadd(32.846, 256.598, 14.044, 0.896)
pt3dadd(32.762, 256.682, 14.028, 0.952)
pt3dadd(32.678, 256.766, 14.013, 1.006)
pt3dadd(32.62, 256.825, 13.94, 0.928)
pt3dadd(32.562, 256.883, 13.867, 0.85)
pt3dadd(32.504, 256.942, 13.794, 0.772)
pt3dadd(32.446, 256.999, 13.722, 0.694)
pt3dadd(32.387, 257.058, 13.649, 0.616)
pt3dadd(32.329, 257.116, 13.576, 0.538)
pt3dadd(32.271, 257.174, 13.503, 0.46)
pt3dadd(32.213, 257.232, 13.43, 0.382)
pt3dadd(32.155, 257.291, 13.358, 0.304)
pt3dadd(32.096, 257.348, 13.285, 0.226)
}
apic[7] {pt3dclear()
pt3dadd(98.375, 164.347, 12.963, 2.486)
pt3dadd(98.363, 164.357, 12.958, 2.484)
pt3dadd(98.277, 164.424, 12.917, 2.466)
pt3dadd(98.191, 164.492, 12.877, 2.448)
pt3dadd(98.105, 164.561, 12.836, 2.432)
pt3dadd(98.019, 164.628, 12.796, 2.414)
pt3dadd(97.933, 164.696, 12.756, 2.396)
pt3dadd(97.847, 164.765, 12.715, 2.38)
pt3dadd(97.76, 164.834, 12.678, 2.368)
pt3dadd(97.672, 164.905, 12.643, 2.362)
pt3dadd(97.585, 164.976, 12.608, 2.356)
pt3dadd(97.497, 165.047, 12.574, 2.352)
pt3dadd(97.41, 165.118, 12.539, 2.346)
pt3dadd(97.322, 165.188, 12.505, 2.34)
pt3dadd(97.235, 165.259, 12.47, 2.334)
pt3dadd(97.147, 165.33, 12.435, 2.33)
pt3dadd(97.059, 165.401, 12.401, 2.324)
pt3dadd(96.972, 165.472, 12.366, 2.318)
pt3dadd(96.884, 165.544, 12.337, 2.324)
pt3dadd(96.794, 165.619, 12.313, 2.34)
pt3dadd(96.705, 165.694, 12.289, 2.354)
pt3dadd(96.616, 165.769, 12.265, 2.37)
pt3dadd(96.527, 165.844, 12.241, 2.386)
pt3dadd(96.438, 165.918, 12.217, 2.402)
pt3dadd(96.348, 165.994, 12.193, 2.416)
pt3dadd(96.259, 166.068, 12.168, 2.432)
pt3dadd(96.17, 166.144, 12.144, 2.448)
pt3dadd(96.081, 166.218, 12.12, 2.462)
pt3dadd(95.992, 166.295, 12.101, 2.498)
pt3dadd(95.902, 166.372, 12.085, 2.552)
pt3dadd(95.813, 166.45, 12.068, 2.604)
pt3dadd(95.723, 166.528, 12.053, 2.658)
pt3dadd(95.634, 166.606, 12.037, 2.71)
pt3dadd(95.544, 166.682, 12.021, 2.764)
pt3dadd(95.455, 166.76, 12.005, 2.816)
pt3dadd(95.365, 166.838, 11.989, 2.87)
pt3dadd(95.276, 166.916, 11.973, 2.922)
pt3dadd(95.187, 166.993, 11.957, 2.974)
pt3dadd(95.098, 167.072, 11.942, 3.02)
pt3dadd(95.01, 167.153, 11.928, 3.06)
pt3dadd(94.922, 167.232, 11.915, 3.098)
pt3dadd(94.834, 167.312, 11.901, 3.138)
pt3dadd(94.746, 167.392, 11.887, 3.176)
pt3dadd(94.658, 167.472, 11.874, 3.216)
pt3dadd(94.57, 167.551, 11.86, 3.256)
pt3dadd(94.482, 167.632, 11.847, 3.294)
pt3dadd(94.394, 167.712, 11.833, 3.334)
pt3dadd(94.305, 167.791, 11.819, 3.372)
pt3dadd(94.219, 167.873, 11.807, 3.39)
pt3dadd(94.134, 167.957, 11.797, 3.39)
pt3dadd(94.049, 168.041, 11.787, 3.39)
pt3dadd(93.964, 168.125, 11.776, 3.39)
pt3dadd(93.879, 168.209, 11.766, 3.39)
pt3dadd(93.794, 168.292, 11.755, 3.39)
pt3dadd(93.709, 168.376, 11.745, 3.39)
pt3dadd(93.624, 168.46, 11.734, 3.39)
pt3dadd(93.539, 168.544, 11.724, 3.39)
pt3dadd(93.454, 168.626, 11.713, 3.39)
pt3dadd(93.371, 168.707, 11.688, 3.39)
pt3dadd(93.291, 168.784, 11.651, 3.39)
pt3dadd(93.211, 168.862, 11.613, 3.39)
pt3dadd(93.13, 168.938, 11.576, 3.39)
pt3dadd(93.05, 169.015, 11.539, 3.39)
pt3dadd(92.97, 169.093, 11.502, 3.39)
pt3dadd(92.89, 169.17, 11.464, 3.39)
pt3dadd(92.809, 169.247, 11.427, 3.39)
pt3dadd(92.729, 169.324, 11.389, 3.39)
pt3dadd(92.649, 169.402, 11.352, 3.39)
pt3dadd(92.567, 169.477, 11.315, 3.39)
pt3dadd(92.486, 169.553, 11.278, 3.39)
pt3dadd(92.404, 169.628, 11.241, 3.39)
pt3dadd(92.322, 169.704, 11.204, 3.39)
pt3dadd(92.24, 169.781, 11.167, 3.39)
pt3dadd(92.159, 169.856, 11.13, 3.39)
pt3dadd(92.077, 169.932, 11.093, 3.39)
pt3dadd(91.995, 170.008, 11.056, 3.39)
pt3dadd(91.913, 170.083, 11.018, 3.39)
pt3dadd(91.832, 170.159, 10.982, 3.39)
pt3dadd(91.747, 170.236, 10.951, 3.386)
pt3dadd(91.661, 170.312, 10.924, 3.38)
pt3dadd(91.575, 170.389, 10.896, 3.372)
pt3dadd(91.489, 170.467, 10.869, 3.366)
pt3dadd(91.404, 170.544, 10.841, 3.36)
pt3dadd(91.318, 170.621, 10.814, 3.354)
pt3dadd(91.232, 170.698, 10.786, 3.348)
pt3dadd(91.146, 170.776, 10.758, 3.34)
pt3dadd(91.06, 170.852, 10.731, 3.334)
pt3dadd(90.974, 170.929, 10.703, 3.328)
pt3dadd(90.886, 171.006, 10.682, 3.304)
pt3dadd(90.797, 171.084, 10.663, 3.274)
pt3dadd(90.708, 171.161, 10.644, 3.244)
pt3dadd(90.62, 171.239, 10.625, 3.216)
pt3dadd(90.531, 171.316, 10.606, 3.186)
pt3dadd(90.442, 171.394, 10.587, 3.156)
pt3dadd(90.353, 171.47, 10.568, 3.126)
pt3dadd(90.264, 171.548, 10.549, 3.096)
pt3dadd(90.175, 171.625, 10.53, 3.066)
pt3dadd(90.086, 171.703, 10.511, 3.036)
pt3dadd(89.993, 171.77, 10.485, 3.036)
pt3dadd(89.898, 171.835, 10.457, 3.048)
pt3dadd(89.802, 171.899, 10.428, 3.058)
pt3dadd(89.707, 171.964, 10.399, 3.07)
pt3dadd(89.612, 172.028, 10.371, 3.082)
pt3dadd(89.517, 172.092, 10.342, 3.092)
pt3dadd(89.421, 172.157, 10.314, 3.104)
pt3dadd(89.326, 172.222, 10.285, 3.114)
pt3dadd(89.231, 172.285, 10.257, 3.126)
pt3dadd(89.136, 172.35, 10.228, 3.138)
pt3dadd(89.039, 172.411, 10.198, 3.158)
pt3dadd(88.942, 172.471, 10.167, 3.18)
pt3dadd(88.845, 172.531, 10.136, 3.204)
pt3dadd(88.748, 172.591, 10.105, 3.228)
pt3dadd(88.651, 172.651, 10.074, 3.25)
pt3dadd(88.554, 172.712, 10.043, 3.274)
pt3dadd(88.457, 172.772, 10.013, 3.296)
pt3dadd(88.359, 172.832, 9.982, 3.32)
pt3dadd(88.263, 172.892, 9.951, 3.342)
pt3dadd(88.165, 172.952, 9.92, 3.366)
pt3dadd(88.071, 173.021, 9.899, 3.36)
pt3dadd(87.977, 173.092, 9.879, 3.346)
pt3dadd(87.883, 173.162, 9.859, 3.332)
pt3dadd(87.789, 173.233, 9.84, 3.318)
pt3dadd(87.695, 173.304, 9.821, 3.304)
pt3dadd(87.601, 173.375, 9.801, 3.29)
pt3dadd(87.507, 173.446, 9.782, 3.276)
pt3dadd(87.412, 173.516, 9.762, 3.262)
pt3dadd(87.318, 173.587, 9.743, 3.248)
pt3dadd(87.224, 173.658, 9.723, 3.234)
pt3dadd(87.132, 173.732, 9.708, 3.22)
pt3dadd(87.04, 173.808, 9.694, 3.206)
pt3dadd(86.948, 173.884, 9.681, 3.192)
pt3dadd(86.857, 173.959, 9.667, 3.178)
pt3dadd(86.765, 174.035, 9.653, 3.164)
pt3dadd(86.673, 174.109, 9.639, 3.152)
pt3dadd(86.581, 174.185, 9.626, 3.138)
pt3dadd(86.489, 174.26, 9.612, 3.124)
pt3dadd(86.397, 174.336, 9.598, 3.11)
pt3dadd(86.306, 174.412, 9.584, 3.096)
pt3dadd(86.216, 174.491, 9.575, 3.082)
pt3dadd(86.126, 174.57, 9.566, 3.07)
pt3dadd(86.037, 174.649, 9.558, 3.056)
pt3dadd(85.948, 174.728, 9.549, 3.042)
pt3dadd(85.858, 174.808, 9.541, 3.03)
pt3dadd(85.769, 174.888, 9.532, 3.016)
pt3dadd(85.68, 174.967, 9.524, 3.002)
pt3dadd(85.59, 175.046, 9.515, 2.99)
pt3dadd(85.501, 175.126, 9.507, 2.976)
pt3dadd(85.411, 175.205, 9.498, 2.962)
pt3dadd(85.325, 175.289, 9.495, 2.906)
pt3dadd(85.239, 175.372, 9.493, 2.84)
pt3dadd(85.154, 175.456, 9.491, 2.774)
pt3dadd(85.068, 175.54, 9.49, 2.71)
pt3dadd(84.982, 175.624, 9.488, 2.644)
pt3dadd(84.896, 175.708, 9.486, 2.578)
pt3dadd(84.811, 175.792, 9.484, 2.512)
pt3dadd(84.725, 175.876, 9.482, 2.446)
pt3dadd(84.639, 175.96, 9.481, 2.38)
pt3dadd(84.553, 176.044, 9.479, 2.314)
pt3dadd(84.468, 176.129, 9.478, 2.244)
pt3dadd(84.384, 176.213, 9.478, 2.172)
pt3dadd(84.299, 176.298, 9.477, 2.1)
pt3dadd(84.214, 176.383, 9.477, 2.028)
pt3dadd(84.129, 176.467, 9.476, 1.956)
pt3dadd(84.044, 176.552, 9.476, 1.882)
pt3dadd(83.959, 176.638, 9.475, 1.81)
pt3dadd(83.874, 176.723, 9.475, 1.738)
pt3dadd(83.79, 176.807, 9.474, 1.666)
pt3dadd(83.705, 176.892, 9.474, 1.594)
pt3dadd(83.62, 176.977, 9.473, 1.582)
pt3dadd(83.535, 177.061, 9.472, 1.582)
pt3dadd(83.45, 177.146, 9.471, 1.582)
pt3dadd(83.365, 177.232, 9.47, 1.582)
pt3dadd(83.28, 177.317, 9.469, 1.582)
pt3dadd(83.196, 177.401, 9.468, 1.582)
pt3dadd(83.111, 177.486, 9.467, 1.582)
pt3dadd(83.026, 177.571, 9.466, 1.582)
pt3dadd(82.941, 177.655, 9.465, 1.582)
pt3dadd(82.856, 177.74, 9.464, 1.582)
pt3dadd(82.771, 177.826, 9.462, 1.582)
pt3dadd(82.687, 177.91, 9.461, 1.582)
}
}
proc shape3d_16() {
apic[7] { pt3dadd(82.602, 177.995, 9.46, 1.582)
pt3dadd(82.517, 178.08, 9.458, 1.582)
pt3dadd(82.432, 178.165, 9.457, 1.582)
pt3dadd(82.347, 178.249, 9.456, 1.582)
pt3dadd(82.262, 178.334, 9.455, 1.582)
pt3dadd(82.178, 178.42, 9.453, 1.582)
pt3dadd(82.093, 178.504, 9.452, 1.582)
pt3dadd(82.008, 178.589, 9.45, 1.582)
pt3dadd(81.923, 178.674, 9.449, 1.582)
pt3dadd(81.838, 178.759, 9.446, 1.582)
pt3dadd(81.753, 178.843, 9.444, 1.582)
pt3dadd(81.669, 178.928, 9.442, 1.582)
pt3dadd(81.584, 179.014, 9.44, 1.582)
pt3dadd(81.499, 179.098, 9.438, 1.582)
pt3dadd(81.414, 179.183, 9.436, 1.582)
pt3dadd(81.329, 179.268, 9.434, 1.582)
pt3dadd(81.244, 179.352, 9.432, 1.582)
pt3dadd(81.159, 179.437, 9.43, 1.582)
pt3dadd(81.075, 179.522, 9.426, 1.594)
pt3dadd(80.99, 179.606, 9.422, 1.61)
pt3dadd(80.905, 179.692, 9.418, 1.624)
pt3dadd(80.82, 179.777, 9.415, 1.64)
pt3dadd(80.735, 179.861, 9.411, 1.654)
pt3dadd(80.65, 179.946, 9.407, 1.67)
pt3dadd(80.566, 180.03, 9.403, 1.684)
pt3dadd(80.481, 180.115, 9.399, 1.7)
pt3dadd(80.396, 180.2, 9.395, 1.714)
pt3dadd(80.311, 180.284, 9.391, 1.73)
pt3dadd(80.226, 180.37, 9.386, 1.754)
pt3dadd(80.141, 180.454, 9.381, 1.782)
pt3dadd(80.056, 180.539, 9.375, 1.808)
pt3dadd(79.972, 180.623, 9.37, 1.836)
pt3dadd(79.887, 180.708, 9.365, 1.862)
pt3dadd(79.802, 180.792, 9.359, 1.89)
pt3dadd(79.717, 180.877, 9.354, 1.918)
pt3dadd(79.632, 180.961, 9.349, 1.944)
pt3dadd(79.547, 181.046, 9.343, 1.972)
pt3dadd(79.462, 181.13, 9.338, 1.998)
pt3dadd(79.378, 181.216, 9.33, 2.048)
pt3dadd(79.293, 181.3, 9.321, 2.102)
pt3dadd(79.209, 181.384, 9.312, 2.156)
pt3dadd(79.124, 181.469, 9.303, 2.208)
pt3dadd(79.04, 181.553, 9.294, 2.262)
pt3dadd(78.955, 181.638, 9.286, 2.316)
pt3dadd(78.87, 181.722, 9.277, 2.37)
pt3dadd(78.786, 181.806, 9.268, 2.424)
pt3dadd(78.701, 181.891, 9.259, 2.478)
pt3dadd(78.617, 181.975, 9.25, 2.53)
pt3dadd(78.533, 182.058, 9.232, 2.584)
pt3dadd(78.45, 182.142, 9.213, 2.636)
pt3dadd(78.366, 182.225, 9.193, 2.688)
pt3dadd(78.283, 182.308, 9.173, 2.74)
pt3dadd(78.199, 182.39, 9.153, 2.792)
pt3dadd(78.116, 182.473, 9.134, 2.844)
pt3dadd(78.033, 182.556, 9.114, 2.896)
pt3dadd(77.949, 182.639, 9.094, 2.948)
pt3dadd(77.866, 182.722, 9.074, 3)
pt3dadd(77.782, 182.806, 9.055, 3.052)
pt3dadd(77.704, 182.882, 9.015, 3.086)
pt3dadd(77.626, 182.959, 8.974, 3.12)
pt3dadd(77.548, 183.036, 8.934, 3.154)
pt3dadd(77.47, 183.114, 8.893, 3.188)
pt3dadd(77.392, 183.191, 8.853, 3.22)
pt3dadd(77.314, 183.268, 8.812, 3.254)
pt3dadd(77.236, 183.344, 8.772, 3.288)
pt3dadd(77.158, 183.422, 8.731, 3.322)
pt3dadd(77.08, 183.499, 8.691, 3.356)
pt3dadd(77.001, 183.576, 8.65, 3.39)
pt3dadd(76.918, 183.658, 8.627, 3.39)
pt3dadd(76.835, 183.739, 8.604, 3.39)
pt3dadd(76.751, 183.822, 8.581, 3.39)
pt3dadd(76.668, 183.904, 8.559, 3.39)
pt3dadd(76.585, 183.985, 8.536, 3.39)
pt3dadd(76.501, 184.067, 8.513, 3.39)
pt3dadd(76.418, 184.148, 8.49, 3.39)
pt3dadd(76.334, 184.231, 8.467, 3.39)
pt3dadd(76.251, 184.313, 8.445, 3.39)
pt3dadd(76.168, 184.394, 8.422, 3.39)
pt3dadd(76.082, 184.477, 8.409, 3.284)
pt3dadd(75.997, 184.56, 8.397, 3.176)
pt3dadd(75.911, 184.643, 8.384, 3.068)
pt3dadd(75.826, 184.726, 8.372, 2.96)
pt3dadd(75.74, 184.808, 8.359, 2.852)
pt3dadd(75.655, 184.892, 8.347, 2.742)
pt3dadd(75.57, 184.975, 8.335, 2.634)
pt3dadd(75.484, 185.058, 8.322, 2.526)
pt3dadd(75.399, 185.141, 8.31, 2.418)
pt3dadd(75.313, 185.224, 8.297, 2.31)
}
apic[8] {pt3dclear()
pt3dadd(75.313, 185.224, 8.297, 2.31)
pt3dadd(75.309, 185.242, 8.201, 2.338)
pt3dadd(75.305, 185.264, 8.097, 2.368)
pt3dadd(75.301, 185.288, 7.994, 2.398)
pt3dadd(75.297, 185.312, 7.891, 2.43)
pt3dadd(75.293, 185.336, 7.788, 2.46)
pt3dadd(75.289, 185.359, 7.685, 2.49)
pt3dadd(75.285, 185.382, 7.582, 2.522)
pt3dadd(75.281, 185.406, 7.479, 2.552)
pt3dadd(75.277, 185.43, 7.376, 2.582)
pt3dadd(75.273, 185.454, 7.273, 2.614)
pt3dadd(75.269, 185.478, 7.17, 2.644)
pt3dadd(75.265, 185.501, 7.067, 2.674)
pt3dadd(75.261, 185.524, 6.964, 2.706)
pt3dadd(75.257, 185.548, 6.861, 2.736)
pt3dadd(75.252, 185.572, 6.758, 2.766)
pt3dadd(75.249, 185.596, 6.655, 2.798)
pt3dadd(75.244, 185.618, 6.552, 2.828)
pt3dadd(75.24, 185.641, 6.449, 2.858)
pt3dadd(75.236, 185.665, 6.346, 2.888)
pt3dadd(75.232, 185.689, 6.242, 2.92)
pt3dadd(75.23, 185.75, 6.179, 2.946)
pt3dadd(75.229, 185.868, 6.173, 2.968)
pt3dadd(75.229, 185.984, 6.168, 2.99)
pt3dadd(75.228, 186.102, 6.162, 3.012)
pt3dadd(75.228, 186.22, 6.157, 3.032)
pt3dadd(75.227, 186.337, 6.151, 3.054)
pt3dadd(75.227, 186.455, 6.146, 3.076)
pt3dadd(75.219, 186.571, 6.14, 3.074)
pt3dadd(75.202, 186.688, 6.135, 3.038)
pt3dadd(75.184, 186.804, 6.129, 3)
pt3dadd(75.166, 186.92, 6.124, 2.964)
pt3dadd(75.148, 187.037, 6.118, 2.928)
pt3dadd(75.131, 187.152, 6.113, 2.89)
pt3dadd(75.112, 187.268, 6.107, 2.848)
pt3dadd(75.092, 187.384, 6.102, 2.782)
pt3dadd(75.072, 187.5, 6.096, 2.716)
pt3dadd(75.052, 187.615, 6.091, 2.65)
pt3dadd(75.032, 187.732, 6.085, 2.584)
pt3dadd(75.011, 187.847, 6.08, 2.518)
pt3dadd(74.994, 187.963, 6.074, 2.45)
pt3dadd(74.991, 188.081, 6.068, 2.382)
pt3dadd(74.989, 188.198, 6.063, 2.312)
pt3dadd(74.987, 188.316, 6.057, 2.244)
pt3dadd(74.984, 188.432, 6.052, 2.174)
pt3dadd(74.982, 188.55, 6.046, 2.104)
pt3dadd(74.979, 188.666, 6.041, 2.036)
pt3dadd(74.965, 188.782, 6.035, 1.97)
pt3dadd(74.914, 188.888, 6.03, 1.918)
pt3dadd(74.863, 188.994, 6.024, 1.866)
pt3dadd(74.812, 189.1, 6.019, 1.814)
pt3dadd(74.761, 189.206, 6.013, 1.76)
pt3dadd(74.71, 189.313, 6.008, 1.708)
pt3dadd(74.676, 189.426, 6.002, 1.69)
pt3dadd(74.642, 189.538, 5.997, 1.672)
pt3dadd(74.609, 189.65, 5.991, 1.654)
pt3dadd(74.575, 189.763, 5.986, 1.636)
pt3dadd(74.541, 189.876, 5.98, 1.62)
pt3dadd(74.495, 189.983, 5.975, 1.614)
pt3dadd(74.423, 190.075, 5.969, 1.634)
pt3dadd(74.35, 190.169, 5.964, 1.654)
pt3dadd(74.278, 190.262, 5.958, 1.674)
pt3dadd(74.205, 190.356, 5.953, 1.694)
pt3dadd(74.13, 190.447, 5.947, 1.714)
pt3dadd(74.049, 190.534, 5.942, 1.734)
pt3dadd(73.968, 190.619, 5.936, 1.754)
pt3dadd(73.887, 190.705, 5.931, 1.776)
pt3dadd(73.806, 190.792, 5.925, 1.796)
pt3dadd(73.736, 190.886, 5.92, 1.808)
pt3dadd(73.685, 190.992, 5.914, 1.808)
pt3dadd(73.634, 191.098, 5.909, 1.808)
pt3dadd(73.583, 191.204, 5.903, 1.808)
pt3dadd(73.532, 191.31, 5.898, 1.808)
pt3dadd(73.482, 191.418, 5.892, 1.8)
pt3dadd(73.449, 191.531, 5.887, 1.728)
pt3dadd(73.415, 191.642, 5.881, 1.656)
pt3dadd(73.401, 191.758, 5.876, 1.58)
pt3dadd(73.396, 191.875, 5.87, 1.502)
pt3dadd(73.391, 191.993, 5.865, 1.424)
pt3dadd(73.342, 192.097, 5.859, 1.344)
pt3dadd(73.281, 192.198, 5.854, 1.264)
pt3dadd(73.203, 192.286, 5.848, 1.21)
pt3dadd(73.114, 192.365, 5.842, 1.174)
pt3dadd(73.027, 192.445, 5.837, 1.13)
pt3dadd(72.944, 192.529, 5.831, 1.078)
pt3dadd(72.886, 192.632, 5.826, 1.06)
pt3dadd(72.829, 192.734, 5.82, 1.04)
pt3dadd(72.772, 192.838, 5.815, 1.02)
pt3dadd(72.715, 192.941, 5.809, 1)
pt3dadd(72.658, 193.045, 5.804, 0.982)
pt3dadd(72.658, 193.043, 5.798, 0.982)
pt3dadd(72.592, 193.14, 5.793, 0.954)
pt3dadd(72.526, 193.237, 5.787, 0.924)
pt3dadd(72.459, 193.336, 5.782, 0.894)
pt3dadd(72.393, 193.433, 5.776, 0.864)
pt3dadd(72.326, 193.531, 5.771, 0.834)
pt3dadd(72.244, 193.615, 5.765, 0.784)
pt3dadd(72.159, 193.697, 5.76, 0.732)
pt3dadd(72.074, 193.78, 5.754, 0.678)
pt3dadd(72.073, 193.777, 5.749, 0.904)
pt3dadd(72.046, 193.834, 5.659, 0.976)
pt3dadd(72.019, 193.89, 5.57, 1.05)
pt3dadd(71.992, 193.948, 5.48, 1.122)
pt3dadd(71.964, 194.004, 5.391, 1.194)
pt3dadd(71.964, 194.002, 5.385, 1.194)
pt3dadd(71.95, 194.038, 5.288, 1.24)
pt3dadd(71.95, 194.056, 5.184, 1.26)
pt3dadd(71.949, 194.074, 5.08, 1.278)
pt3dadd(71.949, 194.174, 5.03, 1.3)
pt3dadd(71.948, 194.282, 4.986, 1.322)
pt3dadd(71.948, 194.334, 4.905, 1.33)
pt3dadd(71.947, 194.352, 4.801, 1.33)
}
}
proc shape3d_17() {
apic[8] { pt3dadd(71.947, 194.37, 4.697, 1.332)
pt3dadd(71.931, 194.366, 4.592, 1.35)
pt3dadd(71.916, 194.364, 4.487, 1.368)
pt3dadd(71.898, 194.386, 4.39, 1.384)
pt3dadd(71.872, 194.455, 4.307, 1.392)
pt3dadd(71.846, 194.524, 4.224, 1.4)
pt3dadd(71.824, 194.594, 4.142, 1.406)
pt3dadd(71.824, 194.674, 4.063, 1.406)
pt3dadd(71.823, 194.753, 3.984, 1.402)
pt3dadd(71.803, 194.831, 3.913, 1.348)
pt3dadd(71.745, 194.921, 3.865, 1.324)
pt3dadd(71.688, 195.01, 3.817, 1.3)
pt3dadd(71.63, 195.1, 3.769, 1.276)
pt3dadd(71.574, 195.19, 3.72, 1.252)
pt3dadd(71.526, 195.282, 3.668, 1.236)
pt3dadd(71.478, 195.373, 3.615, 1.218)
pt3dadd(71.43, 195.466, 3.562, 1.2)
pt3dadd(71.382, 195.558, 3.509, 1.182)
pt3dadd(71.346, 195.634, 3.435, 1.154)
pt3dadd(71.312, 195.709, 3.359, 1.124)
pt3dadd(71.277, 195.785, 3.284, 1.094)
pt3dadd(71.242, 195.86, 3.208, 1.064)
pt3dadd(71.213, 195.954, 3.149, 1.044)
pt3dadd(71.186, 196.056, 3.1, 1.028)
pt3dadd(71.159, 196.158, 3.051, 1.01)
pt3dadd(71.133, 196.26, 3.002, 0.994)
pt3dadd(71.132, 196.258, 2.996, 0.994)
pt3dadd(71.107, 196.361, 2.95, 0.976)
pt3dadd(71.102, 196.477, 2.931, 0.938)
pt3dadd(71.096, 196.594, 2.913, 0.898)
pt3dadd(71.068, 196.7, 2.883, 0.872)
pt3dadd(71.017, 196.798, 2.842, 0.858)
pt3dadd(70.958, 196.896, 2.82, 0.854)
pt3dadd(70.894, 196.996, 2.809, 0.854)
pt3dadd(70.861, 197.074, 2.756, 0.872)
pt3dadd(70.854, 197.135, 2.666, 0.908)
pt3dadd(70.839, 197.182, 2.571, 0.95)
pt3dadd(70.812, 197.209, 2.471, 1)
pt3dadd(70.785, 197.236, 2.372, 1.05)
pt3dadd(70.758, 197.263, 2.272, 1.1)
pt3dadd(70.659, 197.288, 2.222, 1.172)
pt3dadd(70.551, 197.312, 2.177, 1.248)
pt3dadd(70.492, 197.41, 2.168, 1.278)
pt3dadd(70.438, 197.514, 2.162, 1.304)
pt3dadd(70.384, 197.618, 2.157, 1.328)
pt3dadd(70.374, 197.73, 2.125, 1.33)
pt3dadd(70.368, 197.843, 2.091, 1.33)
pt3dadd(70.345, 197.952, 2.059, 1.348)
pt3dadd(70.31, 198.061, 2.029, 1.374)
pt3dadd(70.276, 198.17, 2, 1.402)
pt3dadd(70.198, 198.19, 1.931, 1.478)
pt3dadd(70.113, 198.194, 1.854, 1.566)
pt3dadd(70.066, 198.24, 1.77, 1.632)
pt3dadd(70.028, 198.298, 1.683, 1.692)
pt3dadd(70.002, 198.347, 1.592, 1.744)
pt3dadd(70.001, 198.344, 1.587, 1.744)
pt3dadd(70.001, 198.382, 1.487, 1.776)
pt3dadd(70, 198.419, 1.387, 1.808)
pt3dadd(69.999, 198.438, 1.286, 1.834)
pt3dadd(69.99, 198.53, 1.22, 1.838)
pt3dadd(69.982, 198.623, 1.153, 1.844)
pt3dadd(69.973, 198.715, 1.087, 1.85)
pt3dadd(69.964, 198.808, 1.021, 1.854)
pt3dadd(69.964, 198.805, 1.016, 1.854)
pt3dadd(69.93, 198.88, 0.95, 1.866)
pt3dadd(69.841, 198.913, 0.883, 1.894)
pt3dadd(69.786, 198.98, 0.825, 1.914)
pt3dadd(69.766, 199.084, 0.775, 1.928)
pt3dadd(69.755, 199.176, 0.712, 1.944)
pt3dadd(69.755, 199.255, 0.633, 1.968)
pt3dadd(69.741, 199.312, 0.547, 1.984)
pt3dadd(69.741, 199.309, 0.542, 1.984)
pt3dadd(69.702, 199.326, 0.443, 1.984)
pt3dadd(69.667, 199.339, 0.343, 1.988)
pt3dadd(69.642, 199.345, 0.24, 2.004)
pt3dadd(69.632, 199.374, 0.14, 2.008)
pt3dadd(69.631, 199.418, 0.042, 2.008)
pt3dadd(69.624, 199.468, -0.053, 2.022)
pt3dadd(69.604, 199.525, -0.143, 2.06)
pt3dadd(69.571, 199.591, -0.223, 2.1)
pt3dadd(69.518, 199.672, -0.285, 2.142)
pt3dadd(69.441, 199.745, -0.328, 2.192)
pt3dadd(69.348, 199.813, -0.357, 2.244)
pt3dadd(69.281, 199.896, -0.403, 2.276)
pt3dadd(69.236, 199.993, -0.445, 2.28)
pt3dadd(69.202, 200.101, -0.479, 2.268)
pt3dadd(69.168, 200.209, -0.513, 2.258)
pt3dadd(69.134, 200.316, -0.547, 2.248)
pt3dadd(69.099, 200.424, -0.58, 2.236)
pt3dadd(69.028, 200.512, -0.61, 2.216)
pt3dadd(68.948, 200.594, -0.638, 2.194)
pt3dadd(68.868, 200.677, -0.667, 2.17)
pt3dadd(68.788, 200.76, -0.695, 2.148)
pt3dadd(68.722, 200.842, -0.74, 2.124)
pt3dadd(68.722, 200.839, -0.745, 2.124)
pt3dadd(68.673, 200.921, -0.81, 2.1)
pt3dadd(68.624, 201.002, -0.874, 2.074)
pt3dadd(68.575, 201.083, -0.939, 2.05)
pt3dadd(68.541, 201.151, -1.014, 2.028)
pt3dadd(68.541, 201.187, -1.114, 2.006)
pt3dadd(68.54, 201.224, -1.214, 1.984)
pt3dadd(68.54, 201.301, -1.294, 1.962)
pt3dadd(68.539, 201.38, -1.373, 1.938)
pt3dadd(68.539, 201.378, -1.378, 1.938)
pt3dadd(68.515, 201.449, -1.46, 1.934)
pt3dadd(68.486, 201.517, -1.543, 1.934)
pt3dadd(68.486, 201.514, -1.548, 1.934)
pt3dadd(68.392, 201.581, -1.574, 1.922)
pt3dadd(68.295, 201.647, -1.596, 1.908)
pt3dadd(68.205, 201.724, -1.61, 1.928)
pt3dadd(68.143, 201.818, -1.631, 1.938)
pt3dadd(68.095, 201.924, -1.655, 1.942)
pt3dadd(68.046, 202.028, -1.68, 1.948)
pt3dadd(67.997, 202.134, -1.704, 1.954)
pt3dadd(67.949, 202.238, -1.728, 1.958)
pt3dadd(67.918, 202.35, -1.754, 1.978)
pt3dadd(67.889, 202.46, -1.779, 1.998)
pt3dadd(67.859, 202.572, -1.804, 2.018)
pt3dadd(67.83, 202.684, -1.83, 2.038)
pt3dadd(67.8, 202.795, -1.855, 2.058)
pt3dadd(67.8, 202.793, -1.861, 2.058)
pt3dadd(67.75, 202.892, -1.896, 2.08)
pt3dadd(67.698, 202.993, -1.931, 2.102)
pt3dadd(67.646, 203.093, -1.967, 2.126)
pt3dadd(67.595, 203.192, -2.002, 2.148)
pt3dadd(67.539, 203.286, -2.045, 2.188)
pt3dadd(67.478, 203.372, -2.094, 2.244)
pt3dadd(67.478, 203.37, -2.099, 2.244)
pt3dadd(67.456, 203.462, -2.16, 2.286)
pt3dadd(67.449, 203.556, -2.224, 2.322)
pt3dadd(67.443, 203.598, -2.315, 2.354)
pt3dadd(67.437, 203.61, -2.419, 2.384)
pt3dadd(67.429, 203.623, -2.523, 2.412)
pt3dadd(67.383, 203.64, -2.62, 2.436)
pt3dadd(67.338, 203.657, -2.717, 2.46)
pt3dadd(67.328, 203.7, -2.814, 2.478)
pt3dadd(67.323, 203.726, -2.916, 2.502)
pt3dadd(67.323, 203.729, -3.021, 2.544)
pt3dadd(67.313, 203.726, -3.126, 2.616)
pt3dadd(67.284, 203.724, -3.229, 2.684)
pt3dadd(67.284, 203.722, -3.234, 2.684)
pt3dadd(67.221, 203.744, -3.321, 2.762)
pt3dadd(67.155, 203.819, -3.374, 2.87)
pt3dadd(67.105, 203.923, -3.389, 2.926)
pt3dadd(67.072, 204.036, -3.394, 2.938)
pt3dadd(67.039, 204.149, -3.4, 2.938)
pt3dadd(66.988, 204.254, -3.41, 2.948)
pt3dadd(66.96, 204.359, -3.45, 2.984)
pt3dadd(66.96, 204.356, -3.455, 2.984)
pt3dadd(66.959, 204.353, -3.461, 2.984)
pt3dadd(66.9, 204.386, -3.545, 3.012)
pt3dadd(66.837, 204.412, -3.632, 3.038)
pt3dadd(66.734, 204.437, -3.684, 3.052)
pt3dadd(66.634, 204.466, -3.735, 3.064)
pt3dadd(66.62, 204.572, -3.78, 3.082)
pt3dadd(66.605, 204.679, -3.825, 3.1)
pt3dadd(66.594, 204.782, -3.876, 3.114)
pt3dadd(66.593, 204.872, -3.943, 3.114)
pt3dadd(66.593, 204.96, -4.014, 3.112)
pt3dadd(66.593, 205.01, -4.109, 3.096)
pt3dadd(66.592, 205.062, -4.204, 3.078)
pt3dadd(66.587, 205.11, -4.299, 3.054)
pt3dadd(66.547, 205.132, -4.397, 2.982)
pt3dadd(66.506, 205.16, -4.49, 2.906)
pt3dadd(66.506, 205.158, -4.496, 2.906)
pt3dadd(66.446, 205.253, -4.533, 2.794)
pt3dadd(66.386, 205.348, -4.57, 2.682)
pt3dadd(66.344, 205.452, -4.597, 2.548)
pt3dadd(66.314, 205.564, -4.617, 2.4)
pt3dadd(66.25, 205.643, -4.634, 2.27)
pt3dadd(66.133, 205.669, -4.643, 2.17)
pt3dadd(66.016, 205.696, -4.651, 2.068)
pt3dadd(65.915, 205.724, -4.676, 1.97)
pt3dadd(65.914, 205.721, -4.681, 1.97)
pt3dadd(65.888, 205.757, -4.779, 1.884)
pt3dadd(65.865, 205.789, -4.877, 1.794)
pt3dadd(65.856, 205.79, -4.98, 1.678)
pt3dadd(65.786, 205.814, -5.064, 1.644)
pt3dadd(65.716, 205.838, -5.148, 1.61)
pt3dadd(65.646, 205.864, -5.231, 1.576)
pt3dadd(65.575, 205.888, -5.315, 1.542)
pt3dadd(65.488, 205.915, -5.383, 1.49)
pt3dadd(65.393, 205.944, -5.444, 1.434)
pt3dadd(65.297, 205.97, -5.506, 1.376)
pt3dadd(65.202, 205.998, -5.567, 1.318)
pt3dadd(65.107, 206.026, -5.629, 1.26)
pt3dadd(65.01, 206.05, -5.689, 1.196)
pt3dadd(64.913, 206.075, -5.75, 1.134)
pt3dadd(64.816, 206.099, -5.811, 1.072)
pt3dadd(64.719, 206.123, -5.871, 1.01)
pt3dadd(64.619, 206.168, -5.914, 0.93)
pt3dadd(64.518, 206.215, -5.953, 0.854)
pt3dadd(64.4, 206.239, -5.959, 0.864)
pt3dadd(64.282, 206.263, -5.965, 0.874)
pt3dadd(64.192, 206.326, -5.97, 0.93)
pt3dadd(64.191, 206.323, -5.976, 0.93)
pt3dadd(64.123, 206.42, -5.981, 1.022)
pt3dadd(64.057, 206.519, -5.987, 1.12)
pt3dadd(63.996, 206.62, -5.992, 1.224)
pt3dadd(63.946, 206.723, -5.998, 1.324)
}
}
proc shape3d_18() {
apic[8] { pt3dadd(63.938, 206.839, -6.003, 1.418)
pt3dadd(63.93, 206.956, -6.018, 1.488)
pt3dadd(63.919, 207.066, -6.056, 1.506)
pt3dadd(63.909, 207.176, -6.094, 1.526)
pt3dadd(63.898, 207.287, -6.131, 1.546)
pt3dadd(63.887, 207.397, -6.169, 1.566)
pt3dadd(63.872, 207.505, -6.209, 1.584)
pt3dadd(63.828, 207.598, -6.264, 1.608)
pt3dadd(63.783, 207.689, -6.319, 1.632)
pt3dadd(63.739, 207.78, -6.375, 1.656)
pt3dadd(63.694, 207.871, -6.43, 1.68)
pt3dadd(63.693, 207.869, -6.436, 1.68)
pt3dadd(63.644, 207.923, -6.518, 1.708)
pt3dadd(63.593, 207.97, -6.604, 1.738)
pt3dadd(63.543, 208.016, -6.69, 1.768)
pt3dadd(63.492, 208.064, -6.777, 1.796)
pt3dadd(63.452, 208.141, -6.845, 1.822)
pt3dadd(63.418, 208.236, -6.901, 1.846)
pt3dadd(63.384, 208.332, -6.957, 1.868)
pt3dadd(63.35, 208.427, -7.014, 1.89)
pt3dadd(63.31, 208.519, -7.07, 1.908)
pt3dadd(63.251, 208.603, -7.124, 1.908)
pt3dadd(63.251, 208.601, -7.129, 1.908)
pt3dadd(63.192, 208.686, -7.183, 1.908)
pt3dadd(63.133, 208.771, -7.237, 1.908)
pt3dadd(63.076, 208.856, -7.29, 1.906)
pt3dadd(63.026, 208.955, -7.331, 1.882)
pt3dadd(62.977, 209.053, -7.372, 1.86)
pt3dadd(62.927, 209.152, -7.413, 1.836)
pt3dadd(62.878, 209.25, -7.454, 1.814)
pt3dadd(62.817, 209.348, -7.472, 1.754)
pt3dadd(62.753, 209.447, -7.483, 1.682)
pt3dadd(62.723, 209.533, -7.539, 1.616)
pt3dadd(62.709, 209.611, -7.618, 1.552)
pt3dadd(62.663, 209.695, -7.676, 1.494)
pt3dadd(62.603, 209.782, -7.725, 1.436)
pt3dadd(62.497, 209.812, -7.764, 1.432)
pt3dadd(62.386, 209.836, -7.802, 1.432)
pt3dadd(62.322, 209.921, -7.84, 1.452)
pt3dadd(62.265, 210.017, -7.878, 1.476)
pt3dadd(62.209, 210.113, -7.915, 1.5)
pt3dadd(62.148, 210.156, -7.99, 1.566)
pt3dadd(62.084, 210.181, -8.077, 1.644)
pt3dadd(62.012, 210.235, -8.138, 1.704)
pt3dadd(62.011, 210.233, -8.144, 1.704)
pt3dadd(62.011, 210.23, -8.149, 1.704)
pt3dadd(61.978, 210.332, -8.194, 1.694)
pt3dadd(61.945, 210.436, -8.239, 1.682)
pt3dadd(61.913, 210.539, -8.283, 1.672)
pt3dadd(61.88, 210.642, -8.328, 1.66)
pt3dadd(61.854, 210.754, -8.356, 1.62)
pt3dadd(61.83, 210.866, -8.376, 1.564)
pt3dadd(61.783, 210.968, -8.39, 1.528)
pt3dadd(61.701, 211.054, -8.395, 1.516)
pt3dadd(61.638, 211.144, -8.414, 1.516)
pt3dadd(61.624, 211.246, -8.468, 1.554)
pt3dadd(61.602, 211.336, -8.528, 1.6)
pt3dadd(61.549, 211.393, -8.609, 1.686)
pt3dadd(61.497, 211.463, -8.681, 1.748)
pt3dadd(61.447, 211.546, -8.743, 1.782)
pt3dadd(61.397, 211.628, -8.805, 1.816)
pt3dadd(61.32, 211.696, -8.847, 1.846)
pt3dadd(61.213, 211.746, -8.869, 1.87)
pt3dadd(61.213, 211.744, -8.875, 1.87)
pt3dadd(61.212, 211.741, -8.88, 1.87)
pt3dadd(61.154, 211.822, -8.904, 1.884)
pt3dadd(61.15, 211.937, -8.93, 1.884)
pt3dadd(61.145, 212.051, -8.956, 1.884)
pt3dadd(61.135, 212.165, -8.979, 1.886)
pt3dadd(61.1, 212.278, -8.989, 1.896)
pt3dadd(61.065, 212.39, -8.999, 1.906)
pt3dadd(61.032, 212.47, -9.068, 1.926)
pt3dadd(60.999, 212.542, -9.146, 1.946)
pt3dadd(60.945, 212.616, -9.204, 1.964)
pt3dadd(60.858, 212.693, -9.233, 1.978)
pt3dadd(60.781, 212.754, -9.288, 1.966)
pt3dadd(60.713, 212.802, -9.364, 1.934)
pt3dadd(60.638, 212.84, -9.436, 1.894)
pt3dadd(60.53, 212.838, -9.486, 1.816)
pt3dadd(60.422, 212.836, -9.536, 1.738)
pt3dadd(60.333, 212.911, -9.548, 1.664)
pt3dadd(60.246, 212.992, -9.557, 1.59)
pt3dadd(60.175, 213.073, -9.577, 1.522)
pt3dadd(60.174, 213.071, -9.583, 1.522)
pt3dadd(60.174, 213.167, -9.645, 1.476)
pt3dadd(60.173, 213.262, -9.708, 1.434)
pt3dadd(60.142, 213.313, -9.793, 1.5)
pt3dadd(60.087, 213.4, -9.846, 1.554)
pt3dadd(60.032, 213.487, -9.9, 1.608)
pt3dadd(59.977, 213.575, -9.954, 1.662)
pt3dadd(59.923, 213.656, -10.013, 1.72)
pt3dadd(59.871, 213.707, -10.097, 1.798)
pt3dadd(59.82, 213.758, -10.181, 1.876)
pt3dadd(59.769, 213.809, -10.266, 1.952)
pt3dadd(59.718, 213.86, -10.35, 2.03)
pt3dadd(59.65, 213.916, -10.422, 2.116)
pt3dadd(59.581, 213.973, -10.493, 2.202)
pt3dadd(59.58, 213.971, -10.499, 2.202)
pt3dadd(59.511, 214.026, -10.57, 2.288)
pt3dadd(59.442, 214.082, -10.641, 2.376)
pt3dadd(59.376, 214.145, -10.71, 2.434)
pt3dadd(59.309, 214.208, -10.778, 2.49)
pt3dadd(59.243, 214.272, -10.847, 2.546)
pt3dadd(59.177, 214.334, -10.916, 2.602)
pt3dadd(59.129, 214.427, -10.966, 2.626)
pt3dadd(59.086, 214.525, -11.012, 2.644)
pt3dadd(59.043, 214.624, -11.058, 2.66)
pt3dadd(58.999, 214.722, -11.104, 2.678)
pt3dadd(58.973, 214.814, -11.162, 2.658)
pt3dadd(58.966, 214.903, -11.233, 2.598)
pt3dadd(58.959, 214.998, -11.295, 2.528)
pt3dadd(58.953, 215.101, -11.348, 2.446)
pt3dadd(58.952, 215.099, -11.353, 2.446)
pt3dadd(58.935, 215.202, -11.397, 2.356)
pt3dadd(58.889, 215.309, -11.419, 2.246)
pt3dadd(58.847, 215.418, -11.437, 2.144)
pt3dadd(58.821, 215.532, -11.443, 2.064)
pt3dadd(58.794, 215.647, -11.448, 1.984)
pt3dadd(58.741, 215.741, -11.485, 1.906)
pt3dadd(58.677, 215.822, -11.536, 1.828)
pt3dadd(58.613, 215.906, -11.586, 1.752)
pt3dadd(58.597, 216.004, -11.641, 1.664)
pt3dadd(58.596, 216.104, -11.698, 1.572)
pt3dadd(58.596, 216.188, -11.769, 1.394)
pt3dadd(58.578, 216.283, -11.83, 1.292)
pt3dadd(58.558, 216.382, -11.886, 1.214)
pt3dadd(58.526, 216.493, -11.898, 1.16)
pt3dadd(58.492, 216.606, -11.903, 1.108)
pt3dadd(58.47, 216.715, -11.929, 1.07)
pt3dadd(58.464, 216.817, -11.982, 1.046)
pt3dadd(58.431, 216.89, -12.04, 1.03)
pt3dadd(58.34, 216.894, -12.11, 1.03)
pt3dadd(58.257, 216.916, -12.179, 1.03)
pt3dadd(58.202, 216.991, -12.246, 1.03)
pt3dadd(58.147, 217.066, -12.312, 1.03)
pt3dadd(58.11, 217.15, -12.375, 1.026)
pt3dadd(58.11, 217.25, -12.432, 1.014)
pt3dadd(58.1, 217.346, -12.49, 1.004)
pt3dadd(58.036, 217.414, -12.557, 1.004)
pt3dadd(57.972, 217.48, -12.625, 1.004)
pt3dadd(57.898, 217.532, -12.694, 1.04)
pt3dadd(57.822, 217.583, -12.764, 1.09)
pt3dadd(57.742, 217.637, -12.82, 1.158)
pt3dadd(57.65, 217.705, -12.851, 1.164)
pt3dadd(57.558, 217.774, -12.882, 1.17)
pt3dadd(57.465, 217.841, -12.913, 1.176)
pt3dadd(57.379, 217.913, -12.946, 1.178)
pt3dadd(57.378, 217.91, -12.951, 1.178)
pt3dadd(57.378, 217.908, -12.957, 1.178)
pt3dadd(57.332, 218.009, -12.998, 1.16)
pt3dadd(57.286, 218.107, -13.038, 1.144)
pt3dadd(57.24, 218.208, -13.079, 1.126)
pt3dadd(57.194, 218.309, -13.12, 1.11)
pt3dadd(57.175, 218.41, -13.171, 1.094)
pt3dadd(57.167, 218.51, -13.227, 1.078)
pt3dadd(57.158, 218.61, -13.282, 1.064)
pt3dadd(57.15, 218.712, -13.338, 1.048)
pt3dadd(57.141, 218.813, -13.393, 1.032)
pt3dadd(57.134, 218.916, -13.446, 1.03)
pt3dadd(57.127, 219.019, -13.498, 1.03)
pt3dadd(57.073, 219.102, -13.549, 1.078)
pt3dadd(56.996, 219.175, -13.599, 1.15)
pt3dadd(56.913, 219.241, -13.649, 1.248)
pt3dadd(56.824, 219.3, -13.694, 1.342)
pt3dadd(56.708, 219.32, -13.72, 1.412)
pt3dadd(56.593, 219.342, -13.745, 1.48)
pt3dadd(56.592, 219.338, -13.751, 1.48)
pt3dadd(56.592, 219.336, -13.756, 1.48)
pt3dadd(56.531, 219.386, -13.835, 1.498)
pt3dadd(56.472, 219.438, -13.915, 1.514)
pt3dadd(56.414, 219.49, -13.996, 1.532)
pt3dadd(56.413, 219.486, -14.001, 1.532)
pt3dadd(56.413, 219.601, -14.029, 1.522)
pt3dadd(56.412, 219.715, -14.057, 1.512)
pt3dadd(56.412, 219.826, -14.095, 1.49)
}
dend_5 {pt3dclear()
pt3dadd(56.412, 219.826, -14.095, 1.49)
pt3dadd(56.411, 219.911, -14.167, 1.5)
pt3dadd(56.411, 219.989, -14.246, 1.522)
pt3dadd(56.406, 220.066, -14.326, 1.578)
pt3dadd(56.399, 220.141, -14.407, 1.65)
pt3dadd(56.361, 220.212, -14.482, 1.748)
pt3dadd(56.299, 220.278, -14.551, 1.864)
pt3dadd(56.244, 220.374, -14.581, 1.976)
pt3dadd(56.191, 220.478, -14.603, 2.088)
pt3dadd(56.19, 220.476, -14.609, 2.088)
pt3dadd(56.154, 220.586, -14.617, 2.198)
pt3dadd(56.115, 220.698, -14.623, 2.294)
pt3dadd(56.054, 220.798, -14.628, 2.34)
pt3dadd(55.993, 220.898, -14.634, 2.386)
pt3dadd(55.881, 220.942, -14.639, 2.396)
pt3dadd(55.77, 220.986, -14.645, 2.408)
pt3dadd(55.722, 221.081, -14.654, 2.424)
pt3dadd(55.7, 221.196, -14.663, 2.446)
pt3dadd(55.683, 221.306, -14.685, 2.466)
pt3dadd(55.683, 221.402, -14.747, 2.49)
pt3dadd(55.681, 221.497, -14.81, 2.512)
pt3dadd(55.65, 221.558, -14.897, 2.536)
pt3dadd(55.62, 221.62, -14.984, 2.56)
pt3dadd(55.59, 221.678, -15.071, 2.584)
pt3dadd(55.586, 221.68, -15.089, 2.586)
}
}
proc shape3d_19() {
dend_5 { }
dend_5[1] {pt3dclear()
pt3dadd(55.586, 221.68, -15.089, 2.586)
pt3dadd(55.479, 221.726, -15.111, 2.586)
pt3dadd(55.373, 221.774, -15.133, 2.586)
pt3dadd(55.355, 221.89, -15.156, 2.57)
pt3dadd(55.338, 222.005, -15.178, 2.552)
pt3dadd(55.32, 222.121, -15.2, 2.536)
pt3dadd(55.285, 222.235, -15.205, 2.46)
pt3dadd(55.25, 222.35, -15.21, 2.384)
pt3dadd(55.176, 222.413, -15.249, 2.29)
pt3dadd(55.083, 222.451, -15.303, 2.186)
pt3dadd(54.995, 222.487, -15.363, 2.08)
pt3dadd(54.924, 222.515, -15.44, 1.958)
pt3dadd(54.874, 222.577, -15.49, 1.872)
pt3dadd(54.859, 222.696, -15.493, 1.844)
pt3dadd(54.844, 222.815, -15.497, 1.814)
pt3dadd(54.828, 222.934, -15.5, 1.786)
pt3dadd(54.754, 223.025, -15.5, 1.814)
pt3dadd(54.672, 223.112, -15.5, 1.85)
pt3dadd(54.639, 223.22, -15.521, 1.884)
pt3dadd(54.621, 223.334, -15.547, 1.92)
pt3dadd(54.603, 223.45, -15.574, 1.954)
pt3dadd(54.6, 223.5, -15.658, 1.968)
pt3dadd(54.6, 223.54, -15.752, 1.978)
pt3dadd(54.568, 223.576, -15.84, 1.958)
pt3dadd(54.504, 223.608, -15.92, 1.908)
pt3dadd(54.44, 223.64, -16, 1.858)
pt3dadd(54.337, 223.702, -16, 1.79)
pt3dadd(54.233, 223.762, -16, 1.72)
pt3dadd(54.15, 223.842, -16.019, 1.554)
pt3dadd(54.096, 223.934, -16.064, 1.536)
pt3dadd(54.042, 224.027, -16.109, 1.518)
pt3dadd(53.988, 224.119, -16.154, 1.5)
pt3dadd(53.934, 224.212, -16.199, 1.482)
pt3dadd(53.864, 224.298, -16.237, 1.464)
pt3dadd(53.793, 224.384, -16.274, 1.446)
pt3dadd(53.723, 224.471, -16.311, 1.428)
pt3dadd(53.653, 224.557, -16.349, 1.41)
pt3dadd(53.621, 224.658, -16.393, 1.414)
pt3dadd(53.598, 224.762, -16.439, 1.426)
pt3dadd(53.575, 224.866, -16.485, 1.436)
pt3dadd(53.552, 224.97, -16.53, 1.448)
pt3dadd(53.532, 225.078, -16.569, 1.462)
pt3dadd(53.527, 225.197, -16.582, 1.492)
pt3dadd(53.522, 225.316, -16.595, 1.52)
pt3dadd(53.52, 225.427, -16.628, 1.566)
pt3dadd(53.52, 225.534, -16.673, 1.622)
pt3dadd(53.493, 225.626, -16.722, 1.662)
pt3dadd(53.424, 225.696, -16.78, 1.678)
pt3dadd(53.351, 225.781, -16.8, 1.666)
pt3dadd(53.276, 225.875, -16.8, 1.644)
pt3dadd(53.212, 225.976, -16.8, 1.598)
pt3dadd(53.158, 226.082, -16.8, 1.528)
pt3dadd(53.073, 226.164, -16.8, 1.41)
pt3dadd(52.959, 226.195, -16.8, 1.348)
pt3dadd(52.84, 226.21, -16.8, 1.294)
pt3dadd(52.723, 226.238, -16.8, 1.208)
pt3dadd(52.634, 226.318, -16.8, 1.19)
pt3dadd(52.579, 226.421, -16.809, 1.264)
pt3dadd(52.56, 226.52, -16.858, 1.374)
pt3dadd(52.56, 226.595, -16.936, 1.498)
pt3dadd(52.56, 226.694, -16.989, 1.632)
pt3dadd(52.56, 226.81, -17.016, 1.75)
pt3dadd(52.56, 226.925, -17.044, 1.816)
pt3dadd(52.56, 227.04, -17.071, 1.836)
pt3dadd(52.56, 227.155, -17.099, 1.858)
pt3dadd(52.506, 227.262, -17.105, 1.858)
pt3dadd(52.45, 227.368, -17.11, 1.858)
pt3dadd(52.362, 227.429, -17.146, 1.812)
pt3dadd(52.266, 227.48, -17.189, 1.758)
pt3dadd(52.154, 227.521, -17.194, 1.69)
pt3dadd(52.041, 227.562, -17.199, 1.624)
pt3dadd(51.976, 227.654, -17.207, 1.58)
pt3dadd(51.928, 227.764, -17.216, 1.546)
pt3dadd(51.879, 227.873, -17.226, 1.51)
pt3dadd(51.84, 227.975, -17.249, 1.48)
pt3dadd(51.84, 228.05, -17.327, 1.468)
pt3dadd(51.84, 228.125, -17.405, 1.458)
pt3dadd(51.833, 228.215, -17.458, 1.48)
pt3dadd(51.811, 228.332, -17.466, 1.476)
pt3dadd(51.79, 228.45, -17.474, 1.472)
pt3dadd(51.769, 228.568, -17.482, 1.466)
pt3dadd(51.748, 228.685, -17.49, 1.462)
pt3dadd(51.727, 228.803, -17.498, 1.458)
pt3dadd(51.693, 228.918, -17.5, 1.426)
pt3dadd(51.653, 229.031, -17.5, 1.384)
pt3dadd(51.593, 229.129, -17.5, 1.34)
pt3dadd(51.494, 229.196, -17.5, 1.294)
pt3dadd(51.398, 229.267, -17.501, 1.254)
pt3dadd(51.313, 229.352, -17.506, 1.242)
pt3dadd(51.232, 229.428, -17.522, 1.234)
pt3dadd(51.174, 229.441, -17.609, 1.258)
pt3dadd(51.12, 229.46, -17.694, 1.282)
pt3dadd(51.12, 229.558, -17.752, 1.288)
pt3dadd(51.12, 229.655, -17.812, 1.296)
pt3dadd(51.12, 229.752, -17.871, 1.302)
pt3dadd(51.12, 229.859, -17.909, 1.302)
pt3dadd(51.12, 229.978, -17.926, 1.292)
pt3dadd(51.12, 230.095, -17.943, 1.282)
pt3dadd(51.083, 230.14, -18.025, 1.254)
pt3dadd(51.042, 230.174, -18.114, 1.226)
pt3dadd(50.998, 230.221, -18.196, 1.188)
pt3dadd(50.945, 230.297, -18.259, 1.132)
pt3dadd(50.898, 230.389, -18.307, 0.98)
pt3dadd(50.853, 230.468, -18.371, 0.932)
pt3dadd(50.808, 230.546, -18.438, 0.908)
pt3dadd(50.764, 230.623, -18.504, 0.884)
pt3dadd(50.719, 230.7, -18.571, 0.86)
pt3dadd(50.676, 230.801, -18.607, 0.85)
pt3dadd(50.633, 230.909, -18.63, 0.844)
pt3dadd(50.59, 231.017, -18.654, 0.84)
pt3dadd(50.547, 231.126, -18.678, 0.834)
pt3dadd(50.503, 231.234, -18.702, 0.83)
pt3dadd(50.452, 231.336, -18.732, 0.846)
pt3dadd(50.401, 231.438, -18.762, 0.864)
pt3dadd(50.35, 231.541, -18.792, 0.88)
pt3dadd(50.299, 231.643, -18.822, 0.898)
pt3dadd(50.249, 231.732, -18.873, 0.904)
pt3dadd(50.201, 231.812, -18.935, 0.904)
pt3dadd(50.152, 231.893, -18.997, 0.904)
pt3dadd(50.103, 231.973, -19.059, 0.904)
pt3dadd(50.08, 232.013, -19.089, 0.904)
}
dend_5[2] {pt3dclear()
pt3dadd(50.08, 232.013, -19.089, 0.904)
pt3dadd(50.154, 231.991, -19.166, 1.016)
pt3dadd(50.228, 231.97, -19.242, 1.128)
pt3dadd(50.302, 231.949, -19.319, 1.24)
pt3dadd(50.376, 231.928, -19.395, 1.352)
pt3dadd(50.45, 231.906, -19.472, 1.464)
pt3dadd(50.524, 231.886, -19.549, 1.576)
pt3dadd(50.598, 231.864, -19.625, 1.688)
pt3dadd(50.672, 231.842, -19.702, 1.8)
pt3dadd(50.746, 231.821, -19.779, 1.912)
pt3dadd(50.82, 231.8, -19.855, 2.024)
pt3dadd(50.895, 231.779, -19.932, 2.136)
pt3dadd(50.963, 231.773, -20.002, 2.242)
pt3dadd(50.986, 231.888, -20.021, 2.3)
pt3dadd(51.009, 232.003, -20.041, 2.358)
pt3dadd(51.032, 232.118, -20.06, 2.416)
pt3dadd(51.055, 232.235, -20.079, 2.474)
pt3dadd(51.078, 232.35, -20.098, 2.532)
pt3dadd(51.11, 232.465, -20.1, 2.612)
pt3dadd(51.143, 232.58, -20.1, 2.694)
pt3dadd(51.179, 232.696, -20.1, 2.738)
pt3dadd(51.219, 232.808, -20.1, 2.738)
pt3dadd(51.266, 232.915, -20.1, 2.73)
pt3dadd(51.365, 232.984, -20.1, 2.672)
pt3dadd(51.464, 233.051, -20.1, 2.614)
pt3dadd(51.577, 233.092, -20.1, 2.518)
pt3dadd(51.69, 233.131, -20.1, 2.422)
pt3dadd(51.805, 233.167, -20.1, 2.28)
pt3dadd(51.92, 233.2, -20.1, 2.11)
pt3dadd(52.004, 233.286, -20.1, 2.044)
pt3dadd(52.087, 233.372, -20.1, 1.978)
pt3dadd(52.17, 233.459, -20.1, 1.912)
pt3dadd(52.254, 233.545, -20.1, 1.846)
pt3dadd(52.336, 233.632, -20.1, 1.78)
pt3dadd(52.386, 233.741, -20.1, 1.728)
pt3dadd(52.437, 233.85, -20.1, 1.676)
pt3dadd(52.487, 233.958, -20.1, 1.624)
pt3dadd(52.538, 234.067, -20.1, 1.57)
pt3dadd(52.588, 234.176, -20.1, 1.518)
pt3dadd(52.671, 234.26, -20.1, 1.468)
pt3dadd(52.762, 234.338, -20.1, 1.416)
pt3dadd(52.853, 234.416, -20.1, 1.366)
pt3dadd(52.945, 234.494, -20.1, 1.316)
pt3dadd(53.036, 234.572, -20.1, 1.266)
pt3dadd(53.109, 234.666, -20.1, 1.228)
pt3dadd(53.178, 234.764, -20.1, 1.192)
pt3dadd(53.247, 234.863, -20.1, 1.158)
pt3dadd(53.316, 234.961, -20.1, 1.122)
pt3dadd(53.385, 235.06, -20.1, 1.088)
pt3dadd(53.464, 235.15, -20.1, 1.06)
pt3dadd(53.544, 235.238, -20.1, 1.034)
pt3dadd(53.625, 235.327, -20.1, 1.01)
pt3dadd(53.706, 235.417, -20.1, 0.984)
pt3dadd(53.786, 235.506, -20.1, 0.958)
pt3dadd(53.833, 235.615, -20.1, 0.936)
pt3dadd(53.872, 235.728, -20.1, 0.916)
pt3dadd(53.912, 235.841, -20.1, 0.91)
pt3dadd(53.952, 235.955, -20.1, 0.92)
pt3dadd(53.995, 236.065, -20.1, 0.934)
pt3dadd(54.063, 236.165, -20.1, 0.968)
pt3dadd(54.131, 236.263, -20.1, 1.004)
pt3dadd(54.24, 236.312, -20.1, 1.078)
pt3dadd(54.351, 236.359, -20.1, 1.156)
pt3dadd(54.409, 236.452, -20.1, 1.222)
pt3dadd(54.442, 236.567, -20.1, 1.284)
pt3dadd(54.475, 236.683, -20.1, 1.346)
pt3dadd(54.507, 236.798, -20.1, 1.408)
pt3dadd(54.541, 236.914, -20.1, 1.49)
pt3dadd(54.574, 237.029, -20.1, 1.584)
pt3dadd(54.6, 237.145, -20.1, 1.668)
pt3dadd(54.613, 237.262, -20.1, 1.702)
pt3dadd(54.676, 237.364, -20.1, 1.672)
pt3dadd(54.739, 237.466, -20.1, 1.642)
pt3dadd(54.802, 237.568, -20.1, 1.612)
pt3dadd(54.865, 237.67, -20.1, 1.582)
pt3dadd(54.931, 237.77, -20.1, 1.55)
pt3dadd(55.014, 237.857, -20.1, 1.5)
pt3dadd(55.097, 237.943, -20.1, 1.45)
pt3dadd(55.181, 238.03, -20.1, 1.398)
}
}
proc shape3d_20() {
dend_5[2] { pt3dadd(55.264, 238.115, -20.1, 1.348)
pt3dadd(55.341, 238.206, -20.1, 1.294)
pt3dadd(55.388, 238.316, -20.1, 1.228)
pt3dadd(55.434, 238.427, -20.1, 1.162)
pt3dadd(55.5, 238.528, -20.1, 1.144)
pt3dadd(55.568, 238.626, -20.1, 1.134)
pt3dadd(55.652, 238.709, -20.112, 1.158)
pt3dadd(55.742, 238.784, -20.13, 1.198)
pt3dadd(55.832, 238.848, -20.168, 1.216)
pt3dadd(55.922, 238.908, -20.212, 1.23)
pt3dadd(55.999, 238.957, -20.277, 1.24)
pt3dadd(56.076, 239.008, -20.341, 1.248)
pt3dadd(56.149, 239.063, -20.4, 1.254)
pt3dadd(56.17, 239.18, -20.405, 1.244)
pt3dadd(56.191, 239.299, -20.409, 1.234)
pt3dadd(56.241, 239.388, -20.445, 1.23)
pt3dadd(56.31, 239.458, -20.503, 1.23)
pt3dadd(56.365, 239.513, -20.571, 1.222)
pt3dadd(56.382, 239.537, -20.669, 1.188)
pt3dadd(56.4, 239.56, -20.766, 1.156)
pt3dadd(56.4, 239.666, -20.811, 1.13)
pt3dadd(56.4, 239.773, -20.856, 1.104)
pt3dadd(56.4, 239.881, -20.9, 1.08)
pt3dadd(56.4, 240, -20.904, 1.036)
pt3dadd(56.4, 240.12, -20.908, 0.992)
pt3dadd(56.4, 240.24, -20.914, 0.944)
pt3dadd(56.408, 240.354, -20.944, 0.88)
pt3dadd(56.433, 240.463, -20.979, 0.886)
pt3dadd(56.458, 240.572, -21.014, 0.892)
pt3dadd(56.484, 240.682, -21.049, 0.896)
pt3dadd(56.509, 240.791, -21.084, 0.902)
pt3dadd(56.553, 240.896, -21.112, 0.928)
pt3dadd(56.612, 240.997, -21.135, 0.974)
pt3dadd(56.671, 241.098, -21.157, 1.018)
pt3dadd(56.731, 241.199, -21.179, 1.062)
pt3dadd(56.79, 241.298, -21.202, 1.11)
pt3dadd(56.854, 241.388, -21.242, 1.182)
pt3dadd(56.918, 241.478, -21.282, 1.254)
pt3dadd(56.982, 241.567, -21.322, 1.326)
pt3dadd(57.046, 241.657, -21.362, 1.398)
pt3dadd(57.137, 241.699, -21.415, 1.528)
pt3dadd(57.23, 241.736, -21.468, 1.66)
pt3dadd(57.306, 241.828, -21.485, 1.726)
pt3dadd(57.386, 241.913, -21.502, 1.782)
pt3dadd(57.492, 241.966, -21.518, 1.782)
pt3dadd(57.587, 242.026, -21.536, 1.778)
pt3dadd(57.593, 242.141, -21.565, 1.736)
pt3dadd(57.599, 242.255, -21.594, 1.692)
pt3dadd(57.6, 242.374, -21.6, 1.614)
pt3dadd(57.6, 242.494, -21.6, 1.526)
pt3dadd(57.6, 242.61, -21.623, 1.472)
pt3dadd(57.6, 242.724, -21.653, 1.426)
pt3dadd(57.6, 242.839, -21.683, 1.382)
pt3dadd(57.6, 242.953, -21.713, 1.336)
pt3dadd(57.6, 243.067, -21.743, 1.292)
pt3dadd(57.604, 243.184, -21.768, 1.248)
pt3dadd(57.625, 243.301, -21.774, 1.204)
pt3dadd(57.646, 243.419, -21.779, 1.16)
pt3dadd(57.667, 243.536, -21.785, 1.116)
pt3dadd(57.687, 243.655, -21.791, 1.072)
pt3dadd(57.708, 243.773, -21.797, 1.03)
pt3dadd(57.726, 243.89, -21.808, 0.988)
pt3dadd(57.741, 244.008, -21.826, 0.952)
pt3dadd(57.756, 244.124, -21.845, 0.916)
pt3dadd(57.771, 244.242, -21.863, 0.878)
pt3dadd(57.785, 244.358, -21.881, 0.842)
pt3dadd(57.8, 244.476, -21.899, 0.804)
pt3dadd(57.807, 244.594, -21.917, 0.792)
pt3dadd(57.814, 244.711, -21.934, 0.778)
pt3dadd(57.821, 244.83, -21.951, 0.764)
pt3dadd(57.828, 244.948, -21.969, 0.752)
pt3dadd(57.834, 245.065, -21.986, 0.738)
pt3dadd(57.847, 245.183, -22, 0.73)
pt3dadd(57.883, 245.298, -22, 0.74)
pt3dadd(57.919, 245.412, -22, 0.748)
pt3dadd(57.955, 245.526, -22, 0.756)
pt3dadd(57.991, 245.641, -22, 0.766)
pt3dadd(58.027, 245.755, -22, 0.774)
pt3dadd(58.066, 245.869, -22, 0.784)
pt3dadd(58.108, 245.981, -22, 0.794)
pt3dadd(58.149, 246.094, -22, 0.802)
pt3dadd(58.191, 246.206, -22, 0.812)
pt3dadd(58.233, 246.319, -22, 0.822)
pt3dadd(58.281, 246.427, -22, 0.828)
pt3dadd(58.362, 246.516, -22, 0.828)
pt3dadd(58.442, 246.605, -22, 0.826)
pt3dadd(58.496, 246.712, -22, 0.782)
pt3dadd(58.55, 246.82, -22, 0.736)
pt3dadd(58.56, 246.937, -22.003, 0.708)
pt3dadd(58.56, 247.057, -22.007, 0.682)
pt3dadd(58.56, 247.177, -22.011, 0.656)
pt3dadd(58.579, 247.249, -22.084, 0.642)
pt3dadd(58.599, 247.319, -22.165, 0.628)
pt3dadd(58.662, 247.404, -22.211, 0.662)
pt3dadd(58.725, 247.49, -22.256, 0.696)
pt3dadd(58.788, 247.577, -22.3, 0.73)
pt3dadd(58.828, 247.69, -22.3, 0.806)
pt3dadd(58.868, 247.804, -22.3, 0.88)
pt3dadd(58.902, 247.918, -22.3, 1.052)
pt3dadd(58.972, 248.015, -22.3, 1.102)
pt3dadd(59.047, 248.108, -22.3, 1.126)
pt3dadd(59.122, 248.202, -22.3, 1.152)
pt3dadd(59.197, 248.296, -22.3, 1.178)
pt3dadd(59.272, 248.389, -22.3, 1.202)
pt3dadd(59.298, 248.506, -22.302, 1.212)
pt3dadd(59.318, 248.623, -22.304, 1.222)
pt3dadd(59.338, 248.742, -22.305, 1.23)
pt3dadd(59.358, 248.86, -22.307, 1.238)
pt3dadd(59.378, 248.978, -22.309, 1.246)
pt3dadd(59.398, 249.096, -22.311, 1.254)
pt3dadd(59.426, 249.211, -22.327, 1.264)
pt3dadd(59.455, 249.326, -22.344, 1.274)
pt3dadd(59.483, 249.44, -22.362, 1.284)
pt3dadd(59.512, 249.556, -22.379, 1.294)
pt3dadd(59.541, 249.67, -22.396, 1.304)
pt3dadd(59.562, 249.78, -22.431, 1.314)
pt3dadd(59.581, 249.888, -22.471, 1.324)
pt3dadd(59.601, 249.997, -22.51, 1.336)
pt3dadd(59.621, 250.105, -22.55, 1.346)
pt3dadd(59.64, 250.213, -22.59, 1.356)
pt3dadd(59.684, 250.272, -22.669, 1.398)
pt3dadd(59.725, 250.34, -22.739, 1.438)
pt3dadd(59.751, 250.451, -22.772, 1.474)
pt3dadd(59.781, 250.56, -22.8, 1.512)
pt3dadd(59.842, 250.664, -22.8, 1.546)
pt3dadd(59.903, 250.768, -22.8, 1.58)
pt3dadd(59.97, 250.867, -22.8, 1.626)
pt3dadd(60.038, 250.966, -22.8, 1.672)
pt3dadd(60.143, 251.012, -22.8, 1.73)
pt3dadd(60.259, 251.041, -22.8, 1.788)
pt3dadd(60.379, 251.045, -22.8, 1.814)
pt3dadd(60.499, 251.05, -22.8, 1.84)
pt3dadd(60.603, 251.081, -22.8, 1.858)
pt3dadd(60.664, 251.184, -22.8, 1.858)
pt3dadd(60.72, 251.29, -22.801, 1.856)
pt3dadd(60.72, 251.408, -22.813, 1.828)
pt3dadd(60.72, 251.527, -22.826, 1.8)
pt3dadd(60.727, 251.642, -22.848, 1.754)
pt3dadd(60.747, 251.753, -22.885, 1.682)
pt3dadd(60.789, 251.845, -22.924, 1.612)
pt3dadd(60.882, 251.903, -22.965, 1.544)
pt3dadd(60.976, 251.96, -23.005, 1.478)
pt3dadd(61.064, 252.006, -23.056, 1.404)
pt3dadd(61.14, 252.026, -23.132, 1.312)
pt3dadd(61.189, 252.073, -23.205, 1.242)
pt3dadd(61.193, 252.161, -23.273, 1.206)
pt3dadd(61.198, 252.248, -23.342, 1.168)
pt3dadd(61.218, 252.342, -23.4, 1.13)
pt3dadd(61.245, 252.44, -23.453, 1.09)
pt3dadd(61.326, 252.514, -23.476, 1.052)
pt3dadd(61.426, 252.578, -23.488, 1.014)
pt3dadd(61.521, 252.647, -23.5, 0.976)
pt3dadd(61.536, 252.766, -23.5, 0.92)
pt3dadd(61.551, 252.884, -23.5, 0.864)
pt3dadd(61.56, 253.004, -23.5, 0.802)
pt3dadd(61.586, 253.115, -23.5, 0.752)
pt3dadd(61.658, 253.211, -23.5, 0.746)
pt3dadd(61.73, 253.307, -23.5, 0.742)
pt3dadd(61.802, 253.403, -23.5, 0.736)
pt3dadd(61.874, 253.499, -23.5, 0.732)
pt3dadd(61.954, 253.588, -23.5, 0.742)
pt3dadd(62.048, 253.662, -23.5, 0.776)
pt3dadd(62.141, 253.739, -23.5, 0.818)
pt3dadd(62.228, 253.82, -23.5, 0.876)
pt3dadd(62.311, 253.906, -23.5, 0.938)
pt3dadd(62.35, 254.02, -23.5, 1.024)
pt3dadd(62.39, 254.132, -23.5, 1.108)
pt3dadd(62.425, 254.248, -23.5, 1.2)
pt3dadd(62.458, 254.363, -23.5, 1.294)
pt3dadd(62.491, 254.478, -23.5, 1.37)
pt3dadd(62.524, 254.593, -23.5, 1.414)
pt3dadd(62.557, 254.708, -23.5, 1.458)
pt3dadd(62.59, 254.824, -23.5, 1.5)
pt3dadd(62.637, 254.922, -23.516, 1.556)
pt3dadd(62.721, 254.975, -23.573, 1.642)
pt3dadd(62.788, 255, -23.647, 1.7)
pt3dadd(62.837, 255.067, -23.711, 1.698)
pt3dadd(62.886, 255.155, -23.767, 1.686)
pt3dadd(62.934, 255.241, -23.823, 1.674)
pt3dadd(62.982, 255.328, -23.879, 1.662)
pt3dadd(63.02, 255.431, -23.913, 1.638)
pt3dadd(63.052, 255.545, -23.933, 1.608)
pt3dadd(63.085, 255.658, -23.953, 1.578)
pt3dadd(63.117, 255.77, -23.973, 1.546)
pt3dadd(63.149, 255.883, -23.993, 1.516)
pt3dadd(63.19, 255.995, -24, 1.494)
pt3dadd(63.234, 256.106, -24, 1.476)
pt3dadd(63.279, 256.218, -24, 1.456)
pt3dadd(63.323, 256.33, -24, 1.438)
pt3dadd(63.368, 256.441, -24, 1.42)
pt3dadd(63.42, 256.548, -24.004, 1.404)
pt3dadd(63.49, 256.644, -24.019, 1.4)
pt3dadd(63.56, 256.74, -24.033, 1.394)
pt3dadd(63.63, 256.836, -24.048, 1.388)
pt3dadd(63.7, 256.932, -24.063, 1.382)
pt3dadd(63.734, 257.042, -24.075, 1.384)
pt3dadd(63.753, 257.16, -24.087, 1.388)
pt3dadd(63.772, 257.278, -24.099, 1.394)
pt3dadd(63.791, 257.395, -24.111, 1.398)
pt3dadd(63.81, 257.513, -24.123, 1.402)
}
}
proc shape3d_21() {
dend_5[2] { pt3dadd(63.829, 257.629, -24.14, 1.41)
pt3dadd(63.842, 257.732, -24.189, 1.434)
pt3dadd(63.859, 257.836, -24.237, 1.458)
pt3dadd(63.917, 257.93, -24.273, 1.486)
pt3dadd(63.977, 258.019, -24.317, 1.522)
pt3dadd(64.038, 258.088, -24.381, 1.58)
pt3dadd(64.101, 258.124, -24.456, 1.632)
pt3dadd(64.164, 258.13, -24.541, 1.68)
pt3dadd(64.233, 258.173, -24.59, 1.718)
pt3dadd(64.31, 258.265, -24.594, 1.738)
pt3dadd(64.387, 258.358, -24.597, 1.76)
pt3dadd(64.463, 258.45, -24.6, 1.782)
pt3dadd(64.512, 258.557, -24.621, 1.782)
pt3dadd(64.558, 258.664, -24.644, 1.782)
pt3dadd(64.56, 258.739, -24.72, 1.748)
pt3dadd(64.56, 258.815, -24.798, 1.714)
pt3dadd(64.56, 258.893, -24.872, 1.67)
pt3dadd(64.56, 259.001, -24.917, 1.568)
pt3dadd(64.56, 259.108, -24.962, 1.468)
pt3dadd(64.595, 259.217, -24.989, 1.356)
pt3dadd(64.635, 259.326, -25.014, 1.244)
pt3dadd(64.679, 259.429, -25.045, 1.12)
pt3dadd(64.74, 259.506, -25.102, 0.948)
pt3dadd(64.82, 259.556, -25.157, 0.748)
pt3dadd(64.873, 259.651, -25.172, 0.704)
pt3dadd(64.914, 259.763, -25.178, 0.704)
pt3dadd(64.955, 259.876, -25.185, 0.704)
pt3dadd(64.996, 259.988, -25.191, 0.704)
pt3dadd(65.037, 260.101, -25.197, 0.704)
pt3dadd(65.079, 260.212, -25.209, 0.722)
pt3dadd(65.123, 260.322, -25.226, 0.752)
pt3dadd(65.167, 260.432, -25.242, 0.784)
pt3dadd(65.211, 260.542, -25.258, 0.814)
pt3dadd(65.256, 260.652, -25.274, 0.846)
pt3dadd(65.271, 260.755, -25.317, 0.908)
pt3dadd(65.278, 260.857, -25.37, 0.978)
pt3dadd(65.284, 260.965, -25.411, 1.04)
pt3dadd(65.29, 261.078, -25.446, 1.096)
pt3dadd(65.32, 261.185, -25.473, 1.15)
pt3dadd(65.389, 261.281, -25.491, 1.202)
pt3dadd(65.471, 261.364, -25.5, 1.246)
pt3dadd(65.57, 261.432, -25.5, 1.28)
pt3dadd(65.665, 261.505, -25.5, 1.316)
pt3dadd(65.75, 261.589, -25.5, 1.352)
pt3dadd(65.812, 261.69, -25.513, 1.346)
pt3dadd(65.872, 261.793, -25.527, 1.336)
pt3dadd(65.932, 261.895, -25.541, 1.326)
pt3dadd(65.992, 261.998, -25.555, 1.314)
pt3dadd(66.048, 262.102, -25.571, 1.298)
pt3dadd(66.087, 262.213, -25.593, 1.262)
pt3dadd(66.12, 262.322, -25.619, 1.224)
pt3dadd(66.12, 262.426, -25.669, 1.178)
pt3dadd(66.12, 262.529, -25.72, 1.132)
pt3dadd(66.161, 262.63, -25.762, 1.104)
pt3dadd(66.208, 262.728, -25.8, 1.08)
pt3dadd(66.282, 262.823, -25.8, 1.092)
pt3dadd(66.357, 262.916, -25.8, 1.104)
pt3dadd(66.443, 262.993, -25.826, 1.144)
pt3dadd(66.513, 263.087, -25.844, 1.162)
pt3dadd(66.576, 263.188, -25.858, 1.174)
pt3dadd(66.639, 263.288, -25.873, 1.184)
pt3dadd(66.702, 263.389, -25.887, 1.196)
pt3dadd(66.769, 263.486, -25.901, 1.204)
pt3dadd(66.872, 263.545, -25.916, 1.2)
pt3dadd(66.974, 263.605, -25.93, 1.194)
pt3dadd(67.077, 263.665, -25.944, 1.188)
pt3dadd(67.179, 263.725, -25.958, 1.184)
pt3dadd(67.277, 263.791, -25.974, 1.18)
pt3dadd(67.368, 263.868, -25.991, 1.18)
pt3dadd(67.462, 263.94, -26, 1.186)
pt3dadd(67.561, 264.007, -26, 1.198)
pt3dadd(67.635, 264.091, -26.007, 1.216)
pt3dadd(67.659, 264.206, -26.027, 1.25)
pt3dadd(67.683, 264.317, -26.054, 1.284)
pt3dadd(67.703, 264.392, -26.129, 1.31)
pt3dadd(67.729, 264.476, -26.191, 1.338)
pt3dadd(67.775, 264.586, -26.198, 1.372)
pt3dadd(67.789, 264.7, -26.223, 1.384)
pt3dadd(67.791, 264.814, -26.253, 1.39)
pt3dadd(67.793, 264.928, -26.284, 1.394)
pt3dadd(67.796, 265.043, -26.314, 1.398)
pt3dadd(67.798, 265.157, -26.345, 1.402)
pt3dadd(67.8, 265.272, -26.373, 1.406)
pt3dadd(67.8, 265.388, -26.396, 1.406)
pt3dadd(67.8, 265.505, -26.419, 1.406)
pt3dadd(67.8, 265.622, -26.442, 1.406)
pt3dadd(67.8, 265.739, -26.464, 1.406)
pt3dadd(67.8, 265.855, -26.487, 1.406)
pt3dadd(67.819, 265.97, -26.5, 1.402)
pt3dadd(67.86, 266.083, -26.5, 1.392)
pt3dadd(67.902, 266.196, -26.5, 1.384)
pt3dadd(67.944, 266.309, -26.5, 1.374)
pt3dadd(67.985, 266.42, -26.5, 1.366)
pt3dadd(68.027, 266.533, -26.5, 1.356)
pt3dadd(68.055, 266.641, -26.536, 1.346)
pt3dadd(68.084, 266.75, -26.571, 1.334)
pt3dadd(68.112, 266.858, -26.607, 1.324)
pt3dadd(68.141, 266.966, -26.643, 1.314)
pt3dadd(68.172, 267.077, -26.672, 1.306)
pt3dadd(68.21, 267.19, -26.687, 1.306)
pt3dadd(68.244, 267.302, -26.704, 1.306)
pt3dadd(68.261, 267.419, -26.723, 1.306)
pt3dadd(68.278, 267.535, -26.742, 1.306)
pt3dadd(68.344, 267.572, -26.814, 1.294)
pt3dadd(68.416, 267.601, -26.89, 1.28)
pt3dadd(68.523, 267.628, -26.929, 1.254)
pt3dadd(68.627, 267.656, -26.968, 1.23)
pt3dadd(68.634, 267.762, -27.015, 1.23)
pt3dadd(68.642, 267.868, -27.062, 1.23)
pt3dadd(68.649, 267.973, -27.109, 1.23)
pt3dadd(68.679, 268.056, -27.17, 1.25)
pt3dadd(68.731, 268.116, -27.245, 1.294)
pt3dadd(68.76, 268.212, -27.289, 1.456)
pt3dadd(68.789, 268.32, -27.327, 1.494)
pt3dadd(68.818, 268.427, -27.366, 1.532)
pt3dadd(68.846, 268.534, -27.404, 1.57)
pt3dadd(68.875, 268.64, -27.443, 1.608)
pt3dadd(68.9, 268.752, -27.469, 1.642)
pt3dadd(68.918, 268.87, -27.474, 1.668)
pt3dadd(68.937, 268.988, -27.48, 1.694)
pt3dadd(68.955, 269.107, -27.486, 1.72)
pt3dadd(68.973, 269.225, -27.492, 1.744)
pt3dadd(68.991, 269.344, -27.497, 1.77)
pt3dadd(69, 269.462, -27.5, 1.81)
pt3dadd(69, 269.582, -27.5, 1.82)
pt3dadd(69, 269.702, -27.5, 1.768)
pt3dadd(69, 269.822, -27.5, 1.694)
pt3dadd(69, 269.942, -27.5, 1.618)
pt3dadd(69.008, 270.062, -27.5, 1.552)
pt3dadd(69.046, 270.174, -27.5, 1.51)
pt3dadd(69.149, 270.229, -27.5, 1.572)
pt3dadd(69.268, 270.24, -27.5, 1.692)
pt3dadd(69.388, 270.24, -27.5, 1.832)
pt3dadd(69.508, 270.244, -27.5, 1.914)
pt3dadd(69.626, 270.264, -27.5, 1.902)
pt3dadd(69.737, 270.308, -27.5, 1.786)
pt3dadd(69.841, 270.368, -27.5, 1.722)
pt3dadd(69.944, 270.428, -27.5, 1.676)
pt3dadd(70.01, 270.521, -27.5, 1.638)
pt3dadd(70.05, 270.634, -27.5, 1.606)
pt3dadd(70.08, 270.749, -27.5, 1.558)
pt3dadd(70.089, 270.868, -27.5, 1.476)
pt3dadd(70.125, 270.982, -27.5, 1.454)
pt3dadd(70.16, 271.097, -27.5, 1.432)
pt3dadd(70.196, 271.211, -27.5, 1.408)
pt3dadd(70.232, 271.326, -27.5, 1.386)
pt3dadd(70.268, 271.44, -27.5, 1.364)
pt3dadd(70.317, 271.549, -27.504, 1.332)
pt3dadd(70.374, 271.655, -27.511, 1.298)
pt3dadd(70.431, 271.759, -27.518, 1.262)
pt3dadd(70.487, 271.865, -27.525, 1.226)
pt3dadd(70.544, 271.97, -27.531, 1.19)
pt3dadd(70.579, 272.076, -27.565, 1.164)
pt3dadd(70.605, 272.18, -27.608, 1.142)
pt3dadd(70.631, 272.285, -27.652, 1.12)
pt3dadd(70.657, 272.39, -27.696, 1.098)
pt3dadd(70.687, 272.495, -27.736, 1.08)
pt3dadd(70.738, 272.602, -27.752, 1.08)
pt3dadd(70.788, 272.708, -27.768, 1.08)
pt3dadd(70.839, 272.816, -27.785, 1.08)
pt3dadd(70.89, 272.923, -27.801, 1.08)
pt3dadd(70.938, 273.03, -27.819, 1.092)
pt3dadd(70.983, 273.139, -27.837, 1.124)
pt3dadd(71.028, 273.248, -27.856, 1.156)
pt3dadd(71.073, 273.358, -27.875, 1.188)
pt3dadd(71.117, 273.467, -27.893, 1.218)
pt3dadd(71.149, 273.581, -27.9, 1.246)
pt3dadd(71.174, 273.698, -27.9, 1.272)
pt3dadd(71.199, 273.816, -27.9, 1.298)
pt3dadd(71.224, 273.934, -27.9, 1.324)
pt3dadd(71.249, 274.051, -27.9, 1.348)
pt3dadd(71.273, 274.168, -27.9, 1.374)
pt3dadd(71.306, 274.284, -27.9, 1.404)
pt3dadd(71.342, 274.398, -27.9, 1.436)
pt3dadd(71.378, 274.512, -27.9, 1.466)
pt3dadd(71.414, 274.627, -27.9, 1.498)
pt3dadd(71.45, 274.741, -27.9, 1.53)
pt3dadd(71.486, 274.856, -27.9, 1.562)
pt3dadd(71.521, 274.97, -27.9, 1.592)
pt3dadd(71.557, 275.086, -27.9, 1.624)
pt3dadd(71.592, 275.2, -27.9, 1.656)
pt3dadd(71.628, 275.315, -27.9, 1.688)
pt3dadd(71.664, 275.429, -27.9, 1.718)
pt3dadd(71.707, 275.536, -27.92, 1.758)
pt3dadd(71.756, 275.636, -27.955, 1.804)
pt3dadd(71.805, 275.737, -27.991, 1.85)
pt3dadd(71.854, 275.838, -28.027, 1.896)
pt3dadd(71.903, 275.94, -28.061, 1.942)
pt3dadd(71.951, 276.044, -28.09, 1.98)
pt3dadd(71.99, 276.142, -28.131, 1.998)
pt3dadd(72.004, 276.222, -28.204, 1.96)
pt3dadd(72.034, 276.307, -28.263, 1.902)
pt3dadd(72.105, 276.4, -28.286, 1.796)
pt3dadd(72.183, 276.487, -28.3, 1.694)
pt3dadd(72.271, 276.569, -28.3, 1.598)
pt3dadd(72.358, 276.652, -28.3, 1.496)
pt3dadd(72.443, 276.736, -28.3, 1.372)
pt3dadd(72.553, 276.78, -28.3, 1.328)
pt3dadd(72.667, 276.82, -28.3, 1.296)
pt3dadd(72.78, 276.858, -28.3, 1.264)
}
}
proc shape3d_22() {
dend_5[2] { pt3dadd(72.894, 276.896, -28.3, 1.232)
pt3dadd(73.008, 276.935, -28.3, 1.2)
pt3dadd(73.123, 276.96, -28.301, 1.156)
pt3dadd(73.243, 276.96, -28.305, 1.086)
pt3dadd(73.363, 276.96, -28.309, 1.016)
pt3dadd(73.471, 276.98, -28.334, 0.94)
pt3dadd(73.566, 277.025, -28.383, 0.858)
pt3dadd(73.644, 277.09, -28.433, 0.8)
pt3dadd(73.713, 277.166, -28.484, 0.758)
pt3dadd(73.797, 277.25, -28.494, 0.786)
pt3dadd(73.882, 277.334, -28.499, 0.824)
pt3dadd(73.959, 277.427, -28.5, 0.89)
pt3dadd(74.02, 277.529, -28.5, 0.948)
pt3dadd(74.065, 277.64, -28.5, 0.99)
pt3dadd(74.109, 277.752, -28.5, 1.032)
pt3dadd(74.154, 277.864, -28.5, 1.074)
pt3dadd(74.198, 277.974, -28.5, 1.116)
pt3dadd(74.242, 278.086, -28.501, 1.158)
pt3dadd(74.274, 278.2, -28.519, 1.198)
pt3dadd(74.306, 278.314, -28.536, 1.238)
pt3dadd(74.337, 278.428, -28.554, 1.276)
pt3dadd(74.369, 278.542, -28.571, 1.316)
pt3dadd(74.4, 278.654, -28.589, 1.356)
pt3dadd(74.4, 278.766, -28.627, 1.404)
pt3dadd(74.4, 278.878, -28.664, 1.45)
pt3dadd(74.4, 278.989, -28.701, 1.496)
pt3dadd(74.4, 279.101, -28.738, 1.544)
pt3dadd(74.4, 279.212, -28.775, 1.59)
pt3dadd(74.433, 279.318, -28.804, 1.628)
pt3dadd(74.487, 279.422, -28.829, 1.662)
pt3dadd(74.54, 279.526, -28.854, 1.696)
pt3dadd(74.593, 279.629, -28.878, 1.728)
pt3dadd(74.648, 279.731, -28.9, 1.76)
pt3dadd(74.721, 279.827, -28.9, 1.774)
pt3dadd(74.793, 279.923, -28.9, 1.79)
pt3dadd(74.864, 280.019, -28.9, 1.804)
pt3dadd(74.937, 280.115, -28.9, 1.82)
pt3dadd(75.008, 280.211, -28.9, 1.832)
pt3dadd(75.081, 280.307, -28.9, 1.816)
pt3dadd(75.153, 280.403, -28.9, 1.802)
pt3dadd(75.224, 280.499, -28.9, 1.786)
pt3dadd(75.297, 280.595, -28.9, 1.772)
pt3dadd(75.372, 280.687, -28.902, 1.752)
pt3dadd(75.472, 280.748, -28.922, 1.708)
pt3dadd(75.572, 280.811, -28.942, 1.664)
pt3dadd(75.672, 280.872, -28.961, 1.62)
pt3dadd(75.772, 280.934, -28.981, 1.576)
pt3dadd(75.859, 281.004, -29.014, 1.524)
pt3dadd(75.937, 281.078, -29.058, 1.47)
pt3dadd(76.015, 281.154, -29.101, 1.414)
pt3dadd(76.093, 281.228, -29.145, 1.358)
pt3dadd(76.188, 281.276, -29.182, 1.21)
pt3dadd(76.305, 281.293, -29.2, 1.032)
pt3dadd(76.419, 281.329, -29.2, 0.912)
pt3dadd(76.526, 281.383, -29.2, 0.854)
pt3dadd(76.624, 281.45, -29.2, 0.878)
pt3dadd(76.67, 281.56, -29.2, 0.904)
pt3dadd(76.68, 281.68, -29.2, 0.904)
pt3dadd(76.68, 281.8, -29.2, 0.904)
pt3dadd(76.68, 281.92, -29.2, 0.912)
pt3dadd(76.68, 282.04, -29.2, 0.946)
pt3dadd(76.68, 282.16, -29.2, 1.02)
pt3dadd(76.685, 282.278, -29.2, 1.15)
pt3dadd(76.712, 282.395, -29.2, 1.24)
pt3dadd(76.757, 282.506, -29.2, 1.264)
pt3dadd(76.801, 282.618, -29.2, 1.288)
pt3dadd(76.846, 282.728, -29.2, 1.31)
pt3dadd(76.891, 282.84, -29.2, 1.334)
pt3dadd(76.937, 282.95, -29.2, 1.356)
pt3dadd(77.031, 283.025, -29.2, 1.366)
pt3dadd(77.125, 283.1, -29.2, 1.376)
pt3dadd(77.219, 283.175, -29.2, 1.386)
pt3dadd(77.312, 283.25, -29.2, 1.396)
pt3dadd(77.404, 283.326, -29.201, 1.406)
pt3dadd(77.465, 283.428, -29.218, 1.418)
pt3dadd(77.525, 283.529, -29.235, 1.428)
pt3dadd(77.586, 283.631, -29.252, 1.44)
pt3dadd(77.647, 283.733, -29.269, 1.45)
pt3dadd(77.697, 283.831, -29.302, 1.468)
pt3dadd(77.734, 283.927, -29.353, 1.49)
pt3dadd(77.772, 284.023, -29.405, 1.514)
pt3dadd(77.809, 284.118, -29.456, 1.538)
pt3dadd(77.846, 284.216, -29.505, 1.562)
pt3dadd(77.88, 284.323, -29.539, 1.594)
pt3dadd(77.915, 284.431, -29.573, 1.628)
pt3dadd(77.95, 284.538, -29.607, 1.66)
pt3dadd(77.985, 284.646, -29.641, 1.694)
pt3dadd(78.01, 284.759, -29.667, 1.75)
pt3dadd(78.027, 284.875, -29.686, 1.826)
pt3dadd(78.05, 284.989, -29.706, 1.89)
pt3dadd(78.089, 285.1, -29.727, 1.914)
pt3dadd(78.129, 285.199, -29.761, 1.922)
pt3dadd(78.174, 285.258, -29.841, 1.866)
pt3dadd(78.233, 285.326, -29.891, 1.786)
pt3dadd(78.318, 285.412, -29.896, 1.662)
pt3dadd(78.405, 285.493, -29.9, 1.56)
pt3dadd(78.499, 285.568, -29.9, 1.496)
pt3dadd(78.593, 285.642, -29.9, 1.434)
pt3dadd(78.687, 285.718, -29.9, 1.37)
pt3dadd(78.71, 285.828, -29.9, 1.336)
pt3dadd(78.715, 285.948, -29.9, 1.31)
pt3dadd(78.72, 286.068, -29.9, 1.284)
pt3dadd(78.72, 286.188, -29.9, 1.326)
pt3dadd(78.72, 286.308, -29.9, 1.33)
pt3dadd(78.72, 286.428, -29.9, 1.33)
pt3dadd(78.72, 286.548, -29.9, 1.33)
pt3dadd(78.72, 286.668, -29.9, 1.33)
pt3dadd(78.72, 286.788, -29.9, 1.33)
pt3dadd(78.72, 286.908, -29.9, 1.33)
pt3dadd(78.72, 287.028, -29.9, 1.33)
pt3dadd(78.743, 287.134, -29.939, 1.312)
pt3dadd(78.77, 287.238, -29.983, 1.29)
pt3dadd(78.796, 287.344, -30.026, 1.268)
pt3dadd(78.822, 287.448, -30.07, 1.246)
pt3dadd(78.84, 287.52, -30.1, 1.23)
}
dend_5[3] {pt3dclear()
pt3dadd(78.84, 287.52, -30.1, 1.23)
pt3dadd(78.866, 287.604, -30.115, 1.2)
pt3dadd(78.902, 287.716, -30.136, 1.158)
pt3dadd(78.937, 287.827, -30.156, 1.118)
pt3dadd(78.973, 287.94, -30.177, 1.076)
pt3dadd(79.008, 288.052, -30.197, 1.036)
pt3dadd(79.046, 288.163, -30.218, 1.016)
pt3dadd(79.085, 288.274, -30.239, 1)
pt3dadd(79.124, 288.384, -30.26, 0.984)
pt3dadd(79.163, 288.494, -30.28, 0.97)
pt3dadd(79.201, 288.606, -30.301, 0.954)
pt3dadd(79.216, 288.721, -30.327, 0.95)
pt3dadd(79.232, 288.836, -30.352, 0.944)
pt3dadd(79.247, 288.95, -30.378, 0.94)
pt3dadd(79.262, 289.066, -30.403, 0.934)
pt3dadd(79.278, 289.181, -30.429, 0.93)
pt3dadd(79.329, 289.273, -30.474, 0.944)
pt3dadd(79.387, 289.36, -30.522, 0.962)
pt3dadd(79.445, 289.447, -30.571, 0.98)
pt3dadd(79.503, 289.535, -30.619, 1)
pt3dadd(79.574, 289.619, -30.66, 1.014)
pt3dadd(79.648, 289.7, -30.697, 1.028)
pt3dadd(79.75, 289.763, -30.7, 1.04)
pt3dadd(79.853, 289.824, -30.7, 1.052)
pt3dadd(79.931, 289.913, -30.7, 1.064)
pt3dadd(79.998, 290.011, -30.7, 1.074)
pt3dadd(80.029, 290.123, -30.7, 1.08)
pt3dadd(80.034, 290.243, -30.7, 1.08)
pt3dadd(80.039, 290.363, -30.7, 1.08)
pt3dadd(80.04, 290.483, -30.7, 1.062)
pt3dadd(80.04, 290.603, -30.7, 1.038)
pt3dadd(80.081, 290.711, -30.71, 1.008)
pt3dadd(80.141, 290.813, -30.724, 0.976)
pt3dadd(80.201, 290.916, -30.738, 0.942)
pt3dadd(80.261, 291.019, -30.753, 0.91)
pt3dadd(80.32, 291.121, -30.767, 0.878)
pt3dadd(80.333, 291.24, -30.772, 0.85)
pt3dadd(80.346, 291.36, -30.778, 0.82)
pt3dadd(80.36, 291.479, -30.783, 0.792)
pt3dadd(80.373, 291.598, -30.789, 0.762)
pt3dadd(80.386, 291.716, -30.794, 0.734)
pt3dadd(80.4, 291.836, -30.8, 0.704)
pt3dadd(80.4, 291.953, -30.822, 0.678)
pt3dadd(80.4, 292.069, -30.845, 0.652)
pt3dadd(80.4, 292.187, -30.868, 0.626)
pt3dadd(80.4, 292.303, -30.891, 0.6)
pt3dadd(80.4, 292.42, -30.914, 0.574)
pt3dadd(80.4, 292.535, -30.94, 0.55)
pt3dadd(80.4, 292.642, -30.987, 0.536)
pt3dadd(80.4, 292.747, -31.035, 0.522)
pt3dadd(80.4, 292.853, -31.082, 0.506)
pt3dadd(80.4, 292.958, -31.129, 0.492)
pt3dadd(80.4, 293.064, -31.177, 0.478)
pt3dadd(80.4, 293.132, -31.258, 0.478)
pt3dadd(80.4, 293.201, -31.341, 0.478)
pt3dadd(80.4, 293.298, -31.397, 0.506)
pt3dadd(80.4, 293.401, -31.448, 0.54)
pt3dadd(80.4, 293.507, -31.495, 0.594)
pt3dadd(80.4, 293.615, -31.539, 0.662)
pt3dadd(80.415, 293.724, -31.573, 0.736)
pt3dadd(80.452, 293.836, -31.588, 0.818)
pt3dadd(80.486, 293.95, -31.6, 0.902)
pt3dadd(80.51, 294.067, -31.6, 0.99)
pt3dadd(80.534, 294.185, -31.6, 1.032)
pt3dadd(80.559, 294.302, -31.6, 1.036)
pt3dadd(80.583, 294.42, -31.6, 1.04)
pt3dadd(80.608, 294.538, -31.6, 1.044)
pt3dadd(80.633, 294.655, -31.6, 1.05)
pt3dadd(80.658, 294.772, -31.6, 1.054)
pt3dadd(80.691, 294.887, -31.6, 1.048)
pt3dadd(80.73, 295.001, -31.6, 1.04)
pt3dadd(80.769, 295.114, -31.6, 1.03)
pt3dadd(80.808, 295.228, -31.6, 1.022)
pt3dadd(80.846, 295.342, -31.6, 1.012)
pt3dadd(80.882, 295.456, -31.6, 1.002)
pt3dadd(80.9, 295.574, -31.6, 0.986)
pt3dadd(80.917, 295.693, -31.6, 0.97)
pt3dadd(80.934, 295.812, -31.6, 0.954)
pt3dadd(80.951, 295.931, -31.6, 0.938)
pt3dadd(80.969, 296.05, -31.6, 0.92)
pt3dadd(80.986, 296.168, -31.6, 0.904)
pt3dadd(81.056, 296.266, -31.6, 0.89)
pt3dadd(81.128, 296.362, -31.6, 0.874)
pt3dadd(81.2, 296.458, -31.6, 0.86)
pt3dadd(81.272, 296.554, -31.6, 0.844)
}
}
proc shape3d_23() {
dend_5[3] { pt3dadd(81.344, 296.65, -31.6, 0.83)
pt3dadd(81.392, 296.759, -31.6, 0.824)
pt3dadd(81.44, 296.869, -31.6, 0.82)
pt3dadd(81.487, 296.978, -31.6, 0.814)
pt3dadd(81.535, 297.089, -31.6, 0.81)
pt3dadd(81.582, 297.199, -31.6, 0.806)
pt3dadd(81.6, 297.316, -31.6, 0.804)
pt3dadd(81.6, 297.436, -31.6, 0.804)
pt3dadd(81.6, 297.556, -31.6, 0.804)
pt3dadd(81.6, 297.676, -31.6, 0.804)
pt3dadd(81.6, 297.796, -31.6, 0.804)
pt3dadd(81.6, 297.916, -31.6, 0.804)
pt3dadd(81.6, 298.036, -31.6, 0.804)
pt3dadd(81.6, 298.156, -31.6, 0.812)
pt3dadd(81.6, 298.276, -31.6, 0.826)
pt3dadd(81.6, 298.396, -31.6, 0.842)
pt3dadd(81.6, 298.516, -31.6, 0.856)
pt3dadd(81.6, 298.636, -31.6, 0.87)
pt3dadd(81.6, 298.756, -31.6, 0.884)
pt3dadd(81.6, 298.876, -31.6, 0.898)
pt3dadd(81.626, 298.991, -31.6, 0.912)
pt3dadd(81.668, 299.104, -31.6, 0.926)
pt3dadd(81.71, 299.216, -31.6, 0.94)
pt3dadd(81.751, 299.329, -31.6, 0.954)
pt3dadd(81.793, 299.441, -31.6, 0.968)
pt3dadd(81.831, 299.555, -31.6, 0.982)
pt3dadd(81.853, 299.672, -31.6, 0.994)
pt3dadd(81.875, 299.79, -31.6, 1.006)
pt3dadd(81.897, 299.909, -31.6, 1.02)
pt3dadd(81.92, 300.026, -31.6, 1.032)
pt3dadd(81.942, 300.144, -31.6, 1.044)
pt3dadd(81.968, 300.259, -31.609, 1.052)
pt3dadd(82.007, 300.358, -31.655, 1.04)
pt3dadd(82.047, 300.456, -31.701, 1.03)
pt3dadd(82.087, 300.554, -31.747, 1.018)
pt3dadd(82.127, 300.653, -31.793, 1.006)
pt3dadd(82.203, 300.743, -31.8, 0.954)
pt3dadd(82.285, 300.83, -31.8, 0.894)
pt3dadd(82.31, 300.942, -31.8, 0.84)
pt3dadd(82.315, 301.062, -31.8, 0.788)
pt3dadd(82.319, 301.181, -31.8, 0.736)
pt3dadd(82.371, 301.288, -31.8, 0.7)
pt3dadd(82.432, 301.391, -31.8, 0.664)
pt3dadd(82.521, 301.466, -31.8, 0.66)
pt3dadd(82.624, 301.528, -31.8, 0.672)
pt3dadd(82.711, 301.606, -31.8, 0.684)
pt3dadd(82.777, 301.706, -31.8, 0.698)
pt3dadd(82.844, 301.806, -31.8, 0.712)
pt3dadd(82.91, 301.906, -31.8, 0.726)
pt3dadd(82.92, 302.022, -31.811, 0.736)
pt3dadd(82.92, 302.141, -31.823, 0.746)
pt3dadd(82.923, 302.257, -31.842, 0.76)
pt3dadd(82.948, 302.366, -31.87, 0.784)
pt3dadd(82.977, 302.482, -31.876, 0.792)
pt3dadd(83.006, 302.598, -31.882, 0.802)
pt3dadd(83.035, 302.714, -31.888, 0.81)
pt3dadd(83.064, 302.831, -31.894, 0.82)
pt3dadd(83.093, 302.947, -31.9, 0.828)
pt3dadd(83.175, 303.035, -31.9, 0.84)
pt3dadd(83.257, 303.122, -31.9, 0.852)
pt3dadd(83.271, 303.238, -31.903, 0.846)
pt3dadd(83.276, 303.358, -31.908, 0.836)
pt3dadd(83.281, 303.476, -31.916, 0.826)
pt3dadd(83.287, 303.577, -31.969, 0.79)
pt3dadd(83.293, 303.679, -32.022, 0.754)
pt3dadd(83.399, 303.707, -32.061, 0.716)
pt3dadd(83.507, 303.733, -32.1, 0.678)
pt3dadd(83.556, 303.823, -32.152, 0.652)
pt3dadd(83.605, 303.912, -32.205, 0.628)
pt3dadd(83.654, 304.002, -32.256, 0.602)
pt3dadd(83.703, 304.106, -32.285, 0.562)
pt3dadd(83.749, 304.211, -32.316, 0.524)
pt3dadd(83.786, 304.312, -32.353, 0.512)
pt3dadd(83.845, 304.414, -32.373, 0.534)
pt3dadd(83.904, 304.516, -32.392, 0.556)
pt3dadd(83.962, 304.618, -32.411, 0.578)
pt3dadd(83.99, 304.735, -32.409, 0.6)
pt3dadd(84.018, 304.852, -32.407, 0.622)
pt3dadd(84.045, 304.968, -32.405, 0.644)
pt3dadd(84.073, 305.084, -32.403, 0.666)
pt3dadd(84.101, 305.202, -32.401, 0.688)
pt3dadd(84.12, 305.318, -32.405, 0.71)
pt3dadd(84.12, 305.437, -32.422, 0.73)
pt3dadd(84.12, 305.555, -32.438, 0.752)
pt3dadd(84.12, 305.674, -32.455, 0.772)
pt3dadd(84.12, 305.792, -32.471, 0.792)
pt3dadd(84.12, 305.91, -32.488, 0.814)
pt3dadd(84.125, 306.029, -32.501, 0.83)
pt3dadd(84.146, 306.146, -32.507, 0.834)
pt3dadd(84.167, 306.265, -32.513, 0.838)
pt3dadd(84.187, 306.383, -32.519, 0.842)
pt3dadd(84.208, 306.5, -32.524, 0.848)
pt3dadd(84.229, 306.619, -32.53, 0.852)
pt3dadd(84.24, 306.737, -32.538, 0.856)
pt3dadd(84.24, 306.857, -32.549, 0.86)
pt3dadd(84.24, 306.976, -32.559, 0.864)
pt3dadd(84.24, 307.096, -32.57, 0.868)
pt3dadd(84.24, 307.214, -32.58, 0.872)
pt3dadd(84.24, 307.334, -32.591, 0.876)
pt3dadd(84.242, 307.453, -32.6, 0.878)
pt3dadd(84.259, 307.572, -32.6, 0.874)
pt3dadd(84.276, 307.691, -32.6, 0.87)
pt3dadd(84.294, 307.81, -32.6, 0.866)
pt3dadd(84.311, 307.928, -32.6, 0.862)
pt3dadd(84.328, 308.047, -32.6, 0.858)
pt3dadd(84.346, 308.166, -32.6, 0.854)
pt3dadd(84.349, 308.286, -32.6, 0.85)
pt3dadd(84.351, 308.406, -32.6, 0.846)
pt3dadd(84.352, 308.526, -32.6, 0.844)
pt3dadd(84.354, 308.646, -32.6, 0.84)
pt3dadd(84.356, 308.766, -32.6, 0.836)
pt3dadd(84.358, 308.886, -32.6, 0.832)
pt3dadd(84.36, 309.006, -32.6, 0.828)
pt3dadd(84.36, 309.126, -32.6, 0.818)
pt3dadd(84.36, 309.246, -32.6, 0.806)
pt3dadd(84.36, 309.366, -32.6, 0.796)
pt3dadd(84.36, 309.486, -32.6, 0.786)
pt3dadd(84.36, 309.606, -32.6, 0.774)
pt3dadd(84.36, 309.726, -32.6, 0.764)
pt3dadd(84.361, 309.846, -32.6, 0.752)
pt3dadd(84.389, 309.962, -32.6, 0.744)
pt3dadd(84.416, 310.079, -32.6, 0.736)
pt3dadd(84.444, 310.196, -32.6, 0.728)
pt3dadd(84.471, 310.313, -32.6, 0.718)
pt3dadd(84.498, 310.429, -32.6, 0.71)
pt3dadd(84.523, 310.544, -32.609, 0.704)
pt3dadd(84.54, 310.654, -32.647, 0.71)
pt3dadd(84.556, 310.764, -32.686, 0.714)
pt3dadd(84.573, 310.873, -32.725, 0.72)
pt3dadd(84.589, 310.982, -32.764, 0.724)
pt3dadd(84.6, 311.095, -32.789, 0.734)
pt3dadd(84.6, 311.215, -32.791, 0.748)
pt3dadd(84.6, 311.335, -32.793, 0.762)
pt3dadd(84.6, 311.455, -32.794, 0.776)
pt3dadd(84.6, 311.575, -32.796, 0.792)
pt3dadd(84.6, 311.695, -32.798, 0.806)
pt3dadd(84.6, 311.815, -32.799, 0.82)
pt3dadd(84.6, 311.935, -32.805, 0.84)
pt3dadd(84.6, 312.054, -32.815, 0.864)
pt3dadd(84.6, 312.174, -32.826, 0.886)
pt3dadd(84.6, 312.293, -32.836, 0.91)
pt3dadd(84.6, 312.413, -32.847, 0.934)
pt3dadd(84.6, 312.532, -32.857, 0.958)
pt3dadd(84.6, 312.65, -32.87, 0.98)
pt3dadd(84.6, 312.764, -32.902, 0.994)
pt3dadd(84.6, 312.877, -32.934, 1.008)
pt3dadd(84.6, 312.991, -32.966, 1.022)
pt3dadd(84.6, 313.105, -32.998, 1.036)
pt3dadd(84.6, 313.218, -33.031, 1.048)
pt3dadd(84.6, 313.325, -33.076, 1.052)
pt3dadd(84.6, 313.424, -33.131, 1.046)
pt3dadd(84.6, 313.525, -33.186, 1.042)
pt3dadd(84.6, 313.625, -33.241, 1.038)
pt3dadd(84.6, 313.726, -33.296, 1.032)
pt3dadd(84.608, 313.831, -33.341, 1.014)
pt3dadd(84.625, 313.942, -33.377, 0.984)
pt3dadd(84.641, 314.052, -33.413, 0.952)
pt3dadd(84.657, 314.164, -33.449, 0.922)
pt3dadd(84.674, 314.274, -33.485, 0.892)
pt3dadd(84.698, 314.388, -33.5, 0.866)
pt3dadd(84.728, 314.504, -33.5, 0.844)
pt3dadd(84.758, 314.621, -33.5, 0.822)
pt3dadd(84.788, 314.736, -33.5, 0.8)
pt3dadd(84.818, 314.852, -33.5, 0.778)
pt3dadd(84.849, 314.969, -33.5, 0.756)
pt3dadd(84.881, 315.084, -33.5, 0.742)
pt3dadd(84.914, 315.199, -33.5, 0.728)
pt3dadd(84.947, 315.314, -33.5, 0.716)
pt3dadd(84.98, 315.431, -33.5, 0.702)
pt3dadd(85.013, 315.546, -33.5, 0.688)
pt3dadd(85.041, 315.662, -33.5, 0.678)
pt3dadd(85.047, 315.781, -33.5, 0.682)
pt3dadd(85.053, 315.901, -33.5, 0.686)
pt3dadd(85.059, 316.021, -33.5, 0.69)
pt3dadd(85.065, 316.141, -33.5, 0.694)
pt3dadd(85.071, 316.261, -33.5, 0.698)
pt3dadd(85.077, 316.381, -33.5, 0.702)
pt3dadd(85.09, 316.5, -33.5, 0.702)
pt3dadd(85.11, 316.619, -33.5, 0.696)
pt3dadd(85.129, 316.736, -33.5, 0.692)
pt3dadd(85.149, 316.855, -33.5, 0.688)
pt3dadd(85.169, 316.974, -33.5, 0.684)
pt3dadd(85.189, 317.092, -33.5, 0.68)
pt3dadd(85.207, 317.21, -33.5, 0.676)
pt3dadd(85.225, 317.329, -33.5, 0.672)
pt3dadd(85.242, 317.448, -33.5, 0.668)
pt3dadd(85.259, 317.567, -33.5, 0.664)
pt3dadd(85.277, 317.686, -33.5, 0.66)
pt3dadd(85.294, 317.804, -33.5, 0.656)
pt3dadd(85.313, 317.922, -33.5, 0.65)
pt3dadd(85.338, 318.04, -33.5, 0.638)
pt3dadd(85.363, 318.157, -33.5, 0.624)
pt3dadd(85.387, 318.275, -33.5, 0.612)
pt3dadd(85.412, 318.392, -33.5, 0.598)
pt3dadd(85.437, 318.51, -33.5, 0.586)
pt3dadd(85.459, 318.628, -33.5, 0.576)
pt3dadd(85.476, 318.746, -33.5, 0.572)
pt3dadd(85.494, 318.865, -33.5, 0.568)
pt3dadd(85.511, 318.984, -33.5, 0.564)
pt3dadd(85.528, 319.103, -33.5, 0.56)
}
}
proc shape3d_24() {
dend_5[3] { pt3dadd(85.546, 319.222, -33.5, 0.556)
pt3dadd(85.561, 319.34, -33.5, 0.55)
pt3dadd(85.567, 319.46, -33.5, 0.544)
pt3dadd(85.573, 319.58, -33.5, 0.536)
pt3dadd(85.579, 319.699, -33.5, 0.528)
pt3dadd(85.585, 319.819, -33.5, 0.52)
pt3dadd(85.591, 319.939, -33.5, 0.514)
pt3dadd(85.597, 320.059, -33.5, 0.506)
pt3dadd(85.616, 320.177, -33.5, 0.5)
pt3dadd(85.649, 320.292, -33.5, 0.496)
pt3dadd(85.682, 320.407, -33.5, 0.492)
pt3dadd(85.715, 320.522, -33.5, 0.486)
pt3dadd(85.748, 320.639, -33.5, 0.482)
pt3dadd(85.781, 320.754, -33.5, 0.478)
pt3dadd(85.789, 320.872, -33.516, 0.474)
pt3dadd(85.791, 320.989, -33.535, 0.47)
pt3dadd(85.793, 321.107, -33.553, 0.466)
pt3dadd(85.795, 321.224, -33.572, 0.46)
pt3dadd(85.798, 321.342, -33.591, 0.456)
pt3dadd(85.8, 321.461, -33.61, 0.452)
pt3dadd(85.8, 321.578, -33.625, 0.456)
pt3dadd(85.8, 321.697, -33.639, 0.46)
pt3dadd(85.8, 321.816, -33.653, 0.464)
pt3dadd(85.8, 321.935, -33.668, 0.468)
pt3dadd(85.8, 322.054, -33.682, 0.472)
pt3dadd(85.8, 322.172, -33.697, 0.476)
pt3dadd(85.8, 322.292, -33.7, 0.49)
pt3dadd(85.8, 322.412, -33.7, 0.506)
pt3dadd(85.8, 322.532, -33.7, 0.524)
pt3dadd(85.803, 322.652, -33.7, 0.548)
pt3dadd(85.808, 322.772, -33.7, 0.574)
pt3dadd(85.813, 322.892, -33.7, 0.6)
pt3dadd(85.854, 323, -33.72, 0.614)
pt3dadd(85.901, 323.108, -33.742, 0.626)
pt3dadd(85.951, 323.158, -33.818, 0.616)
pt3dadd(86.001, 323.201, -33.902, 0.6)
pt3dadd(86.032, 323.252, -33.988, 0.522)
pt3dadd(86.04, 323.296, -34.081, 0.492)
pt3dadd(86.04, 323.334, -34.175, 0.478)
pt3dadd(86.04, 323.372, -34.27, 0.464)
pt3dadd(86.04, 323.412, -34.365, 0.452)
pt3dadd(86.04, 323.45, -34.459, 0.438)
pt3dadd(86.034, 323.494, -34.551, 0.422)
pt3dadd(86.006, 323.557, -34.633, 0.394)
pt3dadd(85.958, 323.609, -34.708, 0.386)
pt3dadd(85.865, 323.638, -34.767, 0.412)
pt3dadd(85.81, 323.681, -34.837, 0.442)
pt3dadd(85.804, 323.744, -34.922, 0.478)
pt3dadd(85.807, 323.804, -35.008, 0.52)
pt3dadd(85.826, 323.857, -35.096, 0.57)
pt3dadd(85.852, 323.915, -35.181, 0.608)
pt3dadd(85.892, 323.981, -35.257, 0.624)
pt3dadd(85.931, 324.047, -35.334, 0.642)
pt3dadd(85.969, 324.126, -35.39, 0.66)
pt3dadd(86.004, 324.241, -35.395, 0.68)
pt3dadd(86.039, 324.356, -35.4, 0.702)
pt3dadd(86.04, 324.475, -35.4, 0.752)
pt3dadd(86.04, 324.595, -35.404, 0.778)
pt3dadd(86.04, 324.715, -35.408, 0.804)
pt3dadd(86.043, 324.834, -35.414, 0.83)
pt3dadd(86.086, 324.934, -35.456, 0.844)
pt3dadd(86.126, 325.032, -35.502, 0.85)
pt3dadd(86.154, 325.126, -35.561, 0.838)
pt3dadd(86.192, 325.196, -35.629, 0.82)
pt3dadd(86.247, 325.223, -35.715, 0.794)
pt3dadd(86.292, 325.285, -35.77, 0.778)
pt3dadd(86.324, 325.4, -35.779, 0.778)
pt3dadd(86.355, 325.516, -35.788, 0.778)
pt3dadd(86.387, 325.631, -35.796, 0.778)
pt3dadd(86.4, 325.748, -35.8, 0.788)
pt3dadd(86.4, 325.868, -35.8, 0.804)
pt3dadd(86.4, 325.988, -35.8, 0.822)
pt3dadd(86.4, 326.108, -35.8, 0.844)
pt3dadd(86.4, 326.228, -35.8, 0.852)
pt3dadd(86.4, 326.348, -35.8, 0.848)
pt3dadd(86.4, 326.468, -35.8, 0.844)
pt3dadd(86.4, 326.588, -35.8, 0.84)
pt3dadd(86.4, 326.708, -35.8, 0.838)
pt3dadd(86.4, 326.828, -35.8, 0.834)
pt3dadd(86.4, 326.948, -35.8, 0.83)
pt3dadd(86.416, 327.067, -35.8, 0.824)
pt3dadd(86.443, 327.184, -35.8, 0.816)
pt3dadd(86.471, 327.301, -35.8, 0.806)
pt3dadd(86.498, 327.418, -35.8, 0.798)
pt3dadd(86.525, 327.534, -35.8, 0.79)
pt3dadd(86.553, 327.652, -35.8, 0.78)
pt3dadd(86.587, 327.767, -35.8, 0.772)
pt3dadd(86.622, 327.881, -35.8, 0.762)
pt3dadd(86.658, 327.996, -35.8, 0.754)
pt3dadd(86.694, 328.11, -35.8, 0.744)
pt3dadd(86.73, 328.224, -35.8, 0.736)
pt3dadd(86.763, 328.339, -35.8, 0.728)
pt3dadd(86.78, 328.458, -35.8, 0.724)
pt3dadd(86.797, 328.577, -35.8, 0.72)
pt3dadd(86.815, 328.696, -35.8, 0.716)
pt3dadd(86.832, 328.814, -35.8, 0.712)
pt3dadd(86.849, 328.933, -35.8, 0.708)
pt3dadd(86.867, 329.052, -35.8, 0.704)
pt3dadd(86.873, 329.158, -35.846, 0.68)
pt3dadd(86.879, 329.264, -35.893, 0.656)
pt3dadd(86.897, 329.366, -35.943, 0.652)
pt3dadd(86.917, 329.467, -35.994, 0.652)
pt3dadd(86.967, 329.574, -36, 0.662)
pt3dadd(87.02, 329.682, -36, 0.674)
pt3dadd(87.065, 329.791, -35.986, 0.71)
pt3dadd(87.104, 329.902, -35.965, 0.758)
pt3dadd(87.12, 329.966, -35.899, 0.824)
pt3dadd(87.12, 329.999, -35.803, 0.902)
pt3dadd(87.18, 330.082, -35.753, 0.934)
pt3dadd(87.242, 330.167, -35.704, 0.964)
pt3dadd(87.303, 330.251, -35.655, 0.996)
pt3dadd(87.365, 330.336, -35.606, 1.026)
pt3dadd(87.475, 330.37, -35.6, 1.048)
pt3dadd(87.592, 330.396, -35.6, 1.066)
pt3dadd(87.685, 330.449, -35.587, 1.076)
pt3dadd(87.735, 330.55, -35.551, 1.062)
pt3dadd(87.778, 330.655, -35.526, 1.042)
pt3dadd(87.816, 330.768, -35.51, 1.02)
pt3dadd(87.84, 330.883, -35.5, 0.998)
pt3dadd(87.84, 331.003, -35.5, 0.982)
pt3dadd(87.84, 331.123, -35.5, 0.964)
pt3dadd(87.848, 331.242, -35.5, 0.95)
pt3dadd(87.87, 331.361, -35.5, 0.938)
pt3dadd(87.891, 331.478, -35.5, 0.926)
pt3dadd(87.913, 331.596, -35.5, 0.914)
pt3dadd(87.941, 331.71, -35.5, 0.902)
pt3dadd(88.052, 331.757, -35.5, 0.868)
pt3dadd(88.162, 331.802, -35.5, 0.836)
pt3dadd(88.277, 331.838, -35.5, 0.852)
pt3dadd(88.358, 331.926, -35.5, 0.884)
pt3dadd(88.439, 332.015, -35.5, 0.914)
pt3dadd(88.52, 332.104, -35.5, 0.944)
pt3dadd(88.6, 332.192, -35.5, 0.974)
pt3dadd(88.681, 332.281, -35.5, 1.004)
pt3dadd(88.729, 332.39, -35.491, 1.05)
pt3dadd(88.777, 332.501, -35.482, 1.096)
pt3dadd(88.825, 332.61, -35.473, 1.14)
pt3dadd(88.873, 332.719, -35.464, 1.186)
pt3dadd(88.92, 332.828, -35.455, 1.23)
pt3dadd(88.955, 332.936, -35.421, 1.258)
pt3dadd(88.99, 333.043, -35.387, 1.286)
pt3dadd(89.025, 333.151, -35.354, 1.312)
pt3dadd(89.06, 333.258, -35.32, 1.34)
pt3dadd(89.096, 333.368, -35.3, 1.346)
pt3dadd(89.136, 333.481, -35.3, 1.326)
pt3dadd(89.177, 333.594, -35.3, 1.3)
pt3dadd(89.238, 333.697, -35.3, 1.22)
pt3dadd(89.299, 333.8, -35.3, 1.14)
pt3dadd(89.353, 333.906, -35.314, 1.032)
pt3dadd(89.406, 334.013, -35.331, 0.92)
pt3dadd(89.494, 334.058, -35.38, 0.798)
pt3dadd(89.588, 334.094, -35.434, 0.678)
pt3dadd(89.657, 334.164, -35.492, 0.616)
pt3dadd(89.726, 334.234, -35.55, 0.556)
pt3dadd(89.792, 334.308, -35.598, 0.498)
pt3dadd(89.837, 334.417, -35.582, 0.462)
pt3dadd(89.88, 334.525, -35.563, 0.43)
pt3dadd(89.88, 334.61, -35.492, 0.484)
pt3dadd(89.88, 334.661, -35.405, 0.622)
pt3dadd(89.88, 334.679, -35.306, 0.794)
pt3dadd(89.895, 334.68, -35.207, 0.852)
pt3dadd(89.932, 334.68, -35.112, 0.806)
pt3dadd(89.976, 334.68, -35.02, 0.722)
pt3dadd(90.001, 334.684, -34.922, 0.704)
pt3dadd(90.022, 334.688, -34.824, 0.704)
pt3dadd(90.053, 334.705, -34.732, 0.706)
pt3dadd(90.122, 334.766, -34.668, 0.72)
pt3dadd(90.205, 334.828, -34.626, 0.734)
pt3dadd(90.307, 334.889, -34.609, 0.746)
pt3dadd(90.396, 334.964, -34.6, 0.742)
pt3dadd(90.47, 335.059, -34.6, 0.718)
pt3dadd(90.538, 335.158, -34.6, 0.686)
pt3dadd(90.592, 335.264, -34.6, 0.636)
pt3dadd(90.655, 335.366, -34.602, 0.61)
pt3dadd(90.719, 335.468, -34.604, 0.59)
pt3dadd(90.783, 335.569, -34.606, 0.57)
pt3dadd(90.847, 335.671, -34.609, 0.55)
pt3dadd(90.911, 335.772, -34.611, 0.53)
pt3dadd(90.938, 335.869, -34.66, 0.516)
pt3dadd(90.958, 335.965, -34.717, 0.504)
pt3dadd(91.007, 336.061, -34.761, 0.514)
pt3dadd(91.061, 336.155, -34.796, 0.532)
pt3dadd(91.136, 336.238, -34.759, 0.574)
pt3dadd(91.203, 336.325, -34.722, 0.612)
pt3dadd(91.253, 336.426, -34.686, 0.638)
pt3dadd(91.311, 336.517, -34.645, 0.672)
pt3dadd(91.376, 336.605, -34.611, 0.708)
pt3dadd(91.431, 336.712, -34.608, 0.722)
pt3dadd(91.485, 336.818, -34.606, 0.736)
pt3dadd(91.54, 336.925, -34.604, 0.752)
pt3dadd(91.595, 337.032, -34.602, 0.766)
pt3dadd(91.647, 337.138, -34.607, 0.784)
pt3dadd(91.683, 337.24, -34.65, 0.812)
pt3dadd(91.719, 337.343, -34.693, 0.84)
pt3dadd(91.755, 337.445, -34.735, 0.868)
pt3dadd(91.791, 337.547, -34.778, 0.896)
pt3dadd(91.8, 337.646, -34.831, 0.948)
pt3dadd(91.8, 337.746, -34.888, 1.006)
pt3dadd(91.831, 337.831, -34.948, 1.064)
pt3dadd(91.885, 337.907, -35.012, 1.12)
}
}
proc shape3d_25() {
dend_5[3] { pt3dadd(91.973, 337.963, -35.058, 1.164)
pt3dadd(92.068, 338.016, -35.1, 1.206)
pt3dadd(92.136, 338.114, -35.1, 1.218)
pt3dadd(92.203, 338.214, -35.1, 1.228)
pt3dadd(92.257, 338.321, -35.103, 1.212)
pt3dadd(92.307, 338.429, -35.106, 1.192)
pt3dadd(92.358, 338.538, -35.109, 1.172)
pt3dadd(92.405, 338.64, -35.125, 1.138)
pt3dadd(92.433, 338.711, -35.202, 1.044)
pt3dadd(92.485, 338.777, -35.261, 0.96)
pt3dadd(92.59, 338.832, -35.277, 0.894)
pt3dadd(92.695, 338.886, -35.294, 0.828)
pt3dadd(92.778, 338.965, -35.285, 0.77)
pt3dadd(92.849, 339.058, -35.261, 0.716)
pt3dadd(92.87, 339.143, -35.201, 0.696)
pt3dadd(92.875, 339.224, -35.128, 0.688)
pt3dadd(92.88, 339.307, -35.056, 0.678)
pt3dadd(92.898, 339.337, -34.96, 0.678)
pt3dadd(92.916, 339.367, -34.864, 0.678)
pt3dadd(92.968, 339.408, -34.784, 0.678)
pt3dadd(93.006, 339.452, -34.696, 0.678)
pt3dadd(93.045, 339.498, -34.61, 0.678)
pt3dadd(93.084, 339.542, -34.522, 0.678)
pt3dadd(93.122, 339.588, -34.436, 0.678)
pt3dadd(93.169, 339.631, -34.351, 0.678)
pt3dadd(93.219, 339.674, -34.268, 0.678)
pt3dadd(93.271, 339.724, -34.188, 0.69)
pt3dadd(93.323, 339.778, -34.111, 0.704)
pt3dadd(93.386, 339.878, -34.106, 0.74)
pt3dadd(93.45, 339.98, -34.1, 0.776)
pt3dadd(93.517, 340.08, -34.1, 0.854)
pt3dadd(93.585, 340.178, -34.1, 0.936)
pt3dadd(93.642, 340.284, -34.1, 1.046)
pt3dadd(93.696, 340.391, -34.1, 1.136)
pt3dadd(93.75, 340.499, -34.1, 1.154)
pt3dadd(93.803, 340.606, -34.1, 1.174)
pt3dadd(93.857, 340.714, -34.1, 1.194)
pt3dadd(93.91, 340.82, -34.1, 1.212)
pt3dadd(93.965, 340.927, -34.1, 1.23)
pt3dadd(94.037, 341.023, -34.1, 1.214)
pt3dadd(94.109, 341.119, -34.1, 1.2)
pt3dadd(94.181, 341.215, -34.1, 1.184)
pt3dadd(94.253, 341.311, -34.1, 1.17)
pt3dadd(94.324, 341.407, -34.1, 1.154)
pt3dadd(94.384, 341.512, -34.1, 1.128)
pt3dadd(94.444, 341.616, -34.1, 1.104)
pt3dadd(94.504, 341.719, -34.1, 1.08)
pt3dadd(94.564, 341.824, -34.1, 1.056)
pt3dadd(94.624, 341.928, -34.1, 1.03)
pt3dadd(94.682, 342.024, -34.065, 0.964)
pt3dadd(94.747, 342.11, -34.031, 0.902)
pt3dadd(94.862, 342.14, -34.016, 0.878)
pt3dadd(94.977, 342.17, -34.001, 0.856)
pt3dadd(95.023, 342.276, -34, 0.844)
pt3dadd(95.062, 342.39, -34, 0.834)
pt3dadd(95.098, 342.504, -34, 0.834)
pt3dadd(95.131, 342.619, -34, 0.844)
pt3dadd(95.16, 342.736, -34, 0.856)
pt3dadd(95.16, 342.856, -34, 0.882)
pt3dadd(95.162, 342.976, -34, 0.91)
pt3dadd(95.177, 343.094, -34, 0.956)
pt3dadd(95.191, 343.213, -34, 1.004)
pt3dadd(95.217, 343.328, -33.991, 1.068)
pt3dadd(95.256, 343.439, -33.969, 1.152)
pt3dadd(95.305, 343.52, -33.925, 1.242)
pt3dadd(95.37, 343.556, -33.847, 1.338)
pt3dadd(95.446, 343.619, -33.808, 1.394)
pt3dadd(95.53, 343.704, -33.803, 1.418)
pt3dadd(95.605, 343.783, -33.771, 1.418)
pt3dadd(95.67, 343.858, -33.714, 1.392)
pt3dadd(95.735, 343.931, -33.656, 1.366)
pt3dadd(95.763, 343.981, -33.575, 1.324)
pt3dadd(95.769, 344.015, -33.48, 1.268)
pt3dadd(95.797, 344.04, -33.391, 1.21)
pt3dadd(95.882, 344.04, -33.32, 1.14)
pt3dadd(95.997, 344.04, -33.3, 1.058)
pt3dadd(96.117, 344.04, -33.3, 0.956)
pt3dadd(96.235, 344.057, -33.3, 0.842)
pt3dadd(96.325, 344.129, -33.3, 0.694)
pt3dadd(96.355, 344.243, -33.3, 0.62)
pt3dadd(96.36, 344.363, -33.3, 0.602)
pt3dadd(96.36, 344.483, -33.3, 0.602)
pt3dadd(96.36, 344.603, -33.3, 0.602)
pt3dadd(96.374, 344.722, -33.3, 0.602)
pt3dadd(96.394, 344.839, -33.3, 0.602)
pt3dadd(96.421, 344.953, -33.3, 0.602)
pt3dadd(96.519, 345.023, -33.3, 0.602)
pt3dadd(96.617, 345.092, -33.3, 0.602)
pt3dadd(96.715, 345.157, -33.292, 0.606)
pt3dadd(96.816, 345.208, -33.256, 0.62)
pt3dadd(96.921, 345.24, -33.223, 0.638)
pt3dadd(97.038, 345.248, -33.209, 0.658)
pt3dadd(97.157, 345.264, -33.204, 0.668)
pt3dadd(97.276, 345.28, -33.2, 0.678)
pt3dadd(97.39, 345.318, -33.2, 0.678)
pt3dadd(97.503, 345.358, -33.2, 0.678)
pt3dadd(97.614, 345.402, -33.2, 0.692)
pt3dadd(97.725, 345.449, -33.2, 0.714)
pt3dadd(97.82, 345.514, -33.2, 0.736)
pt3dadd(97.88, 345.617, -33.2, 0.758)
pt3dadd(97.94, 345.721, -33.2, 0.782)
pt3dadd(97.994, 345.828, -33.2, 0.816)
pt3dadd(98.069, 345.92, -33.2, 0.822)
pt3dadd(98.155, 346.003, -33.2, 0.812)
pt3dadd(98.241, 346.087, -33.2, 0.802)
pt3dadd(98.327, 346.171, -33.2, 0.792)
pt3dadd(98.413, 346.254, -33.2, 0.782)
pt3dadd(98.494, 346.33, -33.168, 0.77)
pt3dadd(98.572, 346.402, -33.122, 0.758)
pt3dadd(98.651, 346.474, -33.075, 0.746)
pt3dadd(98.729, 346.546, -33.029, 0.732)
pt3dadd(98.805, 346.631, -33.01, 0.718)
pt3dadd(98.878, 346.727, -33.007, 0.704)
pt3dadd(98.951, 346.822, -33.005, 0.688)
pt3dadd(99.024, 346.916, -33.003, 0.672)
pt3dadd(99.098, 347.011, -33.001, 0.658)
pt3dadd(99.175, 347.102, -32.998, 0.646)
pt3dadd(99.254, 347.194, -32.996, 0.636)
pt3dadd(99.333, 347.284, -32.994, 0.626)
pt3dadd(99.412, 347.374, -32.992, 0.614)
pt3dadd(99.492, 347.464, -32.989, 0.604)
pt3dadd(99.584, 347.536, -32.973, 0.588)
pt3dadd(99.68, 347.604, -32.953, 0.572)
pt3dadd(99.775, 347.674, -32.933, 0.556)
pt3dadd(99.871, 347.742, -32.913, 0.538)
pt3dadd(99.951, 347.821, -32.89, 0.524)
pt3dadd(100.002, 347.924, -32.86, 0.512)
pt3dadd(100.054, 348.026, -32.83, 0.5)
pt3dadd(100.105, 348.128, -32.799, 0.49)
pt3dadd(100.156, 348.232, -32.769, 0.478)
pt3dadd(100.223, 348.316, -32.726, 0.452)
pt3dadd(100.295, 348.395, -32.683, 0.422)
pt3dadd(100.39, 348.451, -32.643, 0.392)
pt3dadd(100.476, 348.491, -32.658, 0.356)
pt3dadd(100.551, 348.514, -32.733, 0.314)
pt3dadd(100.647, 348.56, -32.744, 0.276)
pt3dadd(100.744, 348.614, -32.751, 0.248)
pt3dadd(100.828, 348.661, -32.812, 0.238)
pt3dadd(100.911, 348.708, -32.873, 0.228)
pt3dadd(100.98, 348.725, -32.951, 0.234)
pt3dadd(101.043, 348.731, -33.036, 0.246)
pt3dadd(101.132, 348.767, -33.083, 0.276)
pt3dadd(101.237, 348.818, -33.1, 0.336)
pt3dadd(101.341, 348.876, -33.09, 0.422)
pt3dadd(101.394, 348.934, -33.022, 0.49)
pt3dadd(101.411, 348.958, -32.925, 0.502)
pt3dadd(101.441, 348.96, -32.829, 0.424)
pt3dadd(101.474, 348.96, -32.733, 0.384)
pt3dadd(101.507, 348.96, -32.636, 0.342)
pt3dadd(101.523, 348.96, -32.538, 0.31)
pt3dadd(101.527, 348.96, -32.438, 0.284)
pt3dadd(101.532, 348.96, -32.338, 0.258)
pt3dadd(101.595, 348.96, -32.26, 0.238)
pt3dadd(101.691, 348.96, -32.207, 0.226)
pt3dadd(101.81, 348.96, -32.2, 0.226)
pt3dadd(101.93, 348.966, -32.2, 0.226)
pt3dadd(102.047, 348.99, -32.2, 0.226)
pt3dadd(102.152, 349.043, -32.187, 0.284)
pt3dadd(102.257, 349.09, -32.161, 0.392)
pt3dadd(102.361, 349.146, -32.147, 0.43)
pt3dadd(102.466, 349.204, -32.133, 0.466)
pt3dadd(102.57, 349.26, -32.118, 0.504)
pt3dadd(102.675, 349.316, -32.104, 0.542)
pt3dadd(102.776, 349.38, -32.1, 0.6)
pt3dadd(102.875, 349.448, -32.1, 0.67)
pt3dadd(102.953, 349.535, -32.1, 0.728)
pt3dadd(103.014, 349.639, -32.1, 0.774)
pt3dadd(103.084, 349.735, -32.1, 0.804)
pt3dadd(103.171, 349.817, -32.1, 0.804)
pt3dadd(103.266, 349.884, -32.1, 0.8)
pt3dadd(103.385, 349.898, -32.1, 0.78)
pt3dadd(103.504, 349.913, -32.1, 0.762)
pt3dadd(103.624, 349.924, -32.1, 0.74)
pt3dadd(103.743, 349.931, -32.1, 0.712)
pt3dadd(103.86, 349.955, -32.1, 0.7)
pt3dadd(103.976, 349.987, -32.1, 0.696)
pt3dadd(104.091, 350.021, -32.1, 0.692)
pt3dadd(104.207, 350.053, -32.1, 0.688)
pt3dadd(104.322, 350.087, -32.1, 0.682)
pt3dadd(104.437, 350.119, -32.1, 0.678)
pt3dadd(104.545, 350.173, -32.1, 0.678)
pt3dadd(104.652, 350.226, -32.1, 0.678)
pt3dadd(104.76, 350.28, -32.1, 0.678)
pt3dadd(104.867, 350.334, -32.1, 0.678)
pt3dadd(104.974, 350.387, -32.1, 0.678)
pt3dadd(105.056, 350.472, -32.098, 0.678)
pt3dadd(105.129, 350.567, -32.096, 0.678)
pt3dadd(105.202, 350.663, -32.094, 0.678)
pt3dadd(105.276, 350.758, -32.091, 0.678)
pt3dadd(105.349, 350.852, -32.089, 0.678)
pt3dadd(105.421, 350.946, -32.072, 0.678)
pt3dadd(105.493, 351.038, -32.052, 0.678)
pt3dadd(105.565, 351.131, -32.032, 0.678)
pt3dadd(105.637, 351.224, -32.012, 0.678)
pt3dadd(105.71, 351.317, -31.994, 0.674)
pt3dadd(105.783, 351.412, -31.98, 0.662)
pt3dadd(105.855, 351.505, -31.965, 0.652)
pt3dadd(105.928, 351.599, -31.95, 0.64)
pt3dadd(106.001, 351.692, -31.936, 0.63)
pt3dadd(106.097, 351.763, -31.927, 0.61)
}
}
proc shape3d_26() {
dend_5[3] { pt3dadd(106.196, 351.829, -31.921, 0.59)
pt3dadd(106.296, 351.895, -31.914, 0.568)
pt3dadd(106.395, 351.962, -31.907, 0.548)
pt3dadd(106.495, 352.028, -31.9, 0.526)
pt3dadd(106.602, 352.082, -31.898, 0.498)
pt3dadd(106.709, 352.138, -31.896, 0.468)
pt3dadd(106.816, 352.192, -31.893, 0.438)
pt3dadd(106.923, 352.247, -31.891, 0.41)
pt3dadd(107.029, 352.301, -31.889, 0.38)
pt3dadd(107.137, 352.332, -31.857, 0.328)
pt3dadd(107.243, 352.364, -31.824, 0.274)
pt3dadd(107.289, 352.465, -31.863, 0.246)
pt3dadd(107.331, 352.571, -31.89, 0.226)
pt3dadd(107.365, 352.685, -31.895, 0.226)
pt3dadd(107.4, 352.8, -31.9, 0.226)
pt3dadd(107.4, 352.92, -31.9, 0.226)
pt3dadd(107.4, 353.04, -31.9, 0.226)
pt3dadd(107.4, 353.16, -31.9, 0.226)
pt3dadd(107.4, 353.28, -31.9, 0.226)
}
dend_5[4] {pt3dclear()
pt3dadd(78.84, 287.52, -30.1, 1.23)
pt3dadd(78.85, 287.516, -30.132, 1.244)
pt3dadd(78.882, 287.506, -30.228, 1.286)
pt3dadd(78.913, 287.496, -30.324, 1.328)
pt3dadd(78.945, 287.485, -30.42, 1.37)
pt3dadd(78.976, 287.474, -30.516, 1.41)
pt3dadd(79.008, 287.464, -30.612, 1.452)
pt3dadd(79.039, 287.454, -30.708, 1.494)
pt3dadd(79.071, 287.443, -30.804, 1.536)
pt3dadd(79.102, 287.432, -30.9, 1.578)
pt3dadd(79.133, 287.423, -30.996, 1.62)
pt3dadd(79.165, 287.412, -31.092, 1.662)
pt3dadd(79.196, 287.401, -31.189, 1.702)
pt3dadd(79.306, 287.4, -31.2, 1.656)
pt3dadd(79.426, 287.4, -31.2, 1.598)
pt3dadd(79.546, 287.4, -31.2, 1.538)
pt3dadd(79.664, 287.418, -31.2, 1.472)
pt3dadd(79.783, 287.438, -31.2, 1.404)
pt3dadd(79.88, 287.484, -31.2, 1.344)
pt3dadd(79.926, 287.596, -31.2, 1.3)
pt3dadd(79.972, 287.706, -31.2, 1.256)
pt3dadd(80.075, 287.767, -31.2, 1.21)
pt3dadd(80.179, 287.828, -31.2, 1.164)
pt3dadd(80.281, 287.891, -31.2, 1.114)
pt3dadd(80.378, 287.96, -31.2, 1.072)
pt3dadd(80.466, 288.042, -31.2, 1.052)
pt3dadd(80.555, 288.122, -31.2, 1.032)
pt3dadd(80.644, 288.204, -31.2, 1.012)
pt3dadd(80.732, 288.284, -31.2, 0.992)
pt3dadd(80.805, 288.377, -31.2, 0.976)
pt3dadd(80.853, 288.487, -31.2, 0.966)
pt3dadd(80.9, 288.598, -31.2, 0.956)
pt3dadd(80.948, 288.707, -31.2, 0.948)
pt3dadd(80.995, 288.817, -31.2, 0.938)
pt3dadd(81.042, 288.928, -31.2, 0.93)
pt3dadd(81.087, 289.039, -31.2, 0.93)
pt3dadd(81.132, 289.151, -31.2, 0.93)
pt3dadd(81.176, 289.262, -31.2, 0.93)
pt3dadd(81.221, 289.373, -31.2, 0.93)
pt3dadd(81.265, 289.484, -31.2, 0.93)
pt3dadd(81.322, 289.59, -31.2, 0.936)
pt3dadd(81.385, 289.692, -31.2, 0.946)
pt3dadd(81.448, 289.794, -31.2, 0.956)
pt3dadd(81.511, 289.896, -31.2, 0.966)
pt3dadd(81.574, 289.998, -31.2, 0.976)
pt3dadd(81.634, 290.102, -31.2, 0.986)
pt3dadd(81.69, 290.208, -31.2, 0.994)
pt3dadd(81.747, 290.315, -31.2, 1.004)
pt3dadd(81.803, 290.42, -31.2, 1.014)
pt3dadd(81.86, 290.526, -31.2, 1.024)
pt3dadd(81.928, 290.623, -31.2, 1.03)
pt3dadd(82.012, 290.71, -31.2, 1.03)
pt3dadd(82.095, 290.796, -31.2, 1.03)
pt3dadd(82.179, 290.881, -31.2, 1.03)
pt3dadd(82.263, 290.968, -31.2, 1.03)
pt3dadd(82.326, 291.066, -31.2, 1.024)
pt3dadd(82.365, 291.18, -31.2, 1.014)
pt3dadd(82.405, 291.293, -31.2, 1.004)
pt3dadd(82.444, 291.407, -31.2, 1.004)
pt3dadd(82.483, 291.52, -31.2, 1.004)
pt3dadd(82.582, 291.568, -31.2, 1.004)
pt3dadd(82.699, 291.594, -31.2, 1.004)
pt3dadd(82.812, 291.629, -31.2, 0.998)
pt3dadd(82.916, 291.689, -31.2, 0.976)
pt3dadd(83.02, 291.75, -31.2, 0.95)
pt3dadd(83.127, 291.804, -31.2, 0.882)
pt3dadd(83.236, 291.853, -31.2, 0.848)
pt3dadd(83.346, 291.9, -31.2, 0.836)
pt3dadd(83.454, 291.953, -31.2, 0.844)
pt3dadd(83.553, 292.02, -31.2, 0.902)
pt3dadd(83.652, 292.088, -31.2, 0.966)
pt3dadd(83.751, 292.156, -31.2, 1.058)
pt3dadd(83.85, 292.224, -31.2, 1.152)
pt3dadd(83.925, 292.306, -31.236, 1.236)
pt3dadd(83.988, 292.394, -31.27, 1.3)
pt3dadd(83.997, 292.511, -31.291, 1.268)
pt3dadd(84.003, 292.63, -31.3, 1.22)
pt3dadd(84.007, 292.75, -31.3, 1.16)
pt3dadd(84.012, 292.87, -31.3, 1.098)
pt3dadd(84.045, 292.984, -31.3, 1.012)
pt3dadd(84.092, 293.094, -31.3, 0.914)
pt3dadd(84.147, 293.2, -31.3, 0.83)
pt3dadd(84.215, 293.299, -31.3, 0.772)
pt3dadd(84.287, 293.394, -31.301, 0.722)
pt3dadd(84.372, 293.478, -31.307, 0.698)
pt3dadd(84.449, 293.56, -31.326, 0.678)
pt3dadd(84.493, 293.627, -31.4, 0.678)
pt3dadd(84.546, 293.687, -31.475, 0.678)
pt3dadd(84.592, 293.758, -31.54, 0.678)
pt3dadd(84.618, 293.868, -31.573, 0.678)
pt3dadd(84.655, 293.972, -31.6, 0.678)
pt3dadd(84.749, 294.048, -31.6, 0.678)
pt3dadd(84.843, 294.122, -31.6, 0.678)
pt3dadd(84.937, 294.197, -31.6, 0.69)
pt3dadd(85.031, 294.271, -31.6, 0.702)
pt3dadd(85.07, 294.383, -31.6, 0.744)
pt3dadd(85.119, 294.487, -31.6, 0.786)
pt3dadd(85.213, 294.563, -31.6, 0.81)
pt3dadd(85.306, 294.637, -31.6, 0.836)
pt3dadd(85.4, 294.712, -31.6, 0.86)
pt3dadd(85.494, 294.787, -31.6, 0.886)
pt3dadd(85.577, 294.871, -31.6, 0.912)
pt3dadd(85.633, 294.977, -31.6, 0.936)
pt3dadd(85.69, 295.082, -31.6, 0.96)
pt3dadd(85.746, 295.188, -31.6, 0.984)
pt3dadd(85.803, 295.295, -31.6, 1.008)
pt3dadd(85.864, 295.396, -31.6, 1.03)
pt3dadd(85.96, 295.468, -31.6, 1.04)
pt3dadd(86.056, 295.54, -31.6, 1.05)
pt3dadd(86.152, 295.612, -31.6, 1.062)
pt3dadd(86.248, 295.684, -31.6, 1.072)
pt3dadd(86.343, 295.757, -31.6, 1.08)
pt3dadd(86.432, 295.838, -31.6, 1.08)
pt3dadd(86.52, 295.92, -31.6, 1.08)
pt3dadd(86.614, 295.994, -31.6, 1.068)
pt3dadd(86.708, 296.07, -31.6, 1.056)
pt3dadd(86.807, 296.123, -31.631, 1.054)
pt3dadd(86.907, 296.173, -31.667, 1.054)
pt3dadd(86.958, 296.269, -31.71, 1.04)
pt3dadd(87.008, 296.354, -31.761, 1.022)
pt3dadd(87.049, 296.396, -31.848, 0.982)
pt3dadd(87.142, 296.453, -31.883, 0.964)
pt3dadd(87.24, 296.512, -31.914, 0.946)
pt3dadd(87.339, 296.569, -31.945, 0.928)
pt3dadd(87.437, 296.628, -31.976, 0.912)
pt3dadd(87.516, 296.71, -31.998, 0.892)
pt3dadd(87.58, 296.808, -32.015, 0.87)
pt3dadd(87.644, 296.908, -32.033, 0.848)
pt3dadd(87.708, 297.007, -32.05, 0.826)
pt3dadd(87.773, 297.107, -32.067, 0.804)
pt3dadd(87.867, 297.179, -32.074, 0.778)
pt3dadd(87.963, 297.252, -32.081, 0.75)
pt3dadd(88.058, 297.325, -32.088, 0.724)
pt3dadd(88.153, 297.397, -32.095, 0.698)
pt3dadd(88.251, 297.464, -32.105, 0.674)
pt3dadd(88.357, 297.514, -32.127, 0.658)
pt3dadd(88.463, 297.563, -32.148, 0.642)
pt3dadd(88.57, 297.612, -32.17, 0.626)
pt3dadd(88.676, 297.66, -32.191, 0.61)
pt3dadd(88.791, 297.684, -32.2, 0.6)
pt3dadd(88.911, 297.69, -32.2, 0.596)
pt3dadd(89.03, 297.696, -32.2, 0.594)
pt3dadd(89.15, 297.702, -32.2, 0.59)
pt3dadd(89.27, 297.708, -32.2, 0.586)
pt3dadd(89.39, 297.714, -32.2, 0.582)
pt3dadd(89.51, 297.72, -32.2, 0.578)
pt3dadd(89.621, 297.743, -32.23, 0.582)
pt3dadd(89.732, 297.768, -32.262, 0.588)
pt3dadd(89.843, 297.793, -32.294, 0.592)
pt3dadd(89.954, 297.817, -32.327, 0.598)
pt3dadd(90.065, 297.841, -32.359, 0.602)
pt3dadd(90.177, 297.858, -32.392, 0.598)
pt3dadd(90.289, 297.874, -32.426, 0.592)
pt3dadd(90.401, 297.89, -32.459, 0.588)
pt3dadd(90.513, 297.906, -32.492, 0.582)
pt3dadd(90.625, 297.922, -32.523, 0.578)
pt3dadd(90.744, 297.928, -32.537, 0.578)
pt3dadd(90.863, 297.935, -32.55, 0.578)
pt3dadd(90.982, 297.941, -32.563, 0.578)
pt3dadd(91.1, 297.948, -32.576, 0.578)
pt3dadd(91.219, 297.954, -32.589, 0.578)
pt3dadd(91.338, 297.96, -32.604, 0.58)
pt3dadd(91.453, 297.96, -32.632, 0.588)
pt3dadd(91.568, 297.96, -32.659, 0.596)
pt3dadd(91.684, 297.96, -32.687, 0.606)
pt3dadd(91.799, 297.96, -32.714, 0.614)
pt3dadd(91.914, 297.96, -32.742, 0.624)
pt3dadd(92.03, 297.964, -32.769, 0.64)
pt3dadd(92.145, 297.971, -32.795, 0.662)
pt3dadd(92.261, 297.978, -32.822, 0.686)
pt3dadd(92.376, 297.985, -32.848, 0.708)
pt3dadd(92.492, 297.992, -32.875, 0.732)
pt3dadd(92.607, 298.001, -32.9, 0.754)
pt3dadd(92.727, 298.013, -32.9, 0.774)
pt3dadd(92.846, 298.026, -32.9, 0.794)
pt3dadd(92.965, 298.038, -32.9, 0.814)
pt3dadd(93.085, 298.051, -32.9, 0.834)
pt3dadd(93.204, 298.063, -32.9, 0.854)
pt3dadd(93.323, 298.076, -32.9, 0.872)
pt3dadd(93.443, 298.08, -32.9, 0.902)
pt3dadd(93.563, 298.08, -32.9, 0.936)
}
}
proc shape3d_27() {
dend_5[4] { pt3dadd(93.683, 298.08, -32.9, 0.968)
pt3dadd(93.802, 298.094, -32.9, 1)
pt3dadd(93.92, 298.115, -32.9, 1.028)
pt3dadd(94.033, 298.142, -32.9, 1.06)
pt3dadd(94.094, 298.246, -32.9, 1.104)
pt3dadd(94.155, 298.35, -32.9, 1.15)
pt3dadd(94.228, 298.445, -32.9, 1.198)
pt3dadd(94.303, 298.538, -32.9, 1.244)
pt3dadd(94.402, 298.602, -32.9, 1.282)
pt3dadd(94.511, 298.651, -32.9, 1.3)
pt3dadd(94.625, 298.691, -32.9, 1.278)
pt3dadd(94.738, 298.729, -32.9, 1.258)
pt3dadd(94.812, 298.818, -32.922, 1.206)
pt3dadd(94.882, 298.907, -32.948, 1.154)
pt3dadd(94.916, 298.913, -33.044, 1.132)
pt3dadd(94.95, 298.919, -33.14, 1.112)
pt3dadd(95.003, 298.92, -33.229, 1.122)
pt3dadd(95.064, 298.92, -33.315, 1.144)
pt3dadd(95.156, 298.92, -33.362, 1.164)
pt3dadd(95.275, 298.92, -33.375, 1.18)
pt3dadd(95.394, 298.92, -33.387, 1.198)
pt3dadd(95.513, 298.92, -33.399, 1.214)
pt3dadd(95.631, 298.92, -33.414, 1.23)
pt3dadd(95.718, 298.92, -33.482, 1.23)
pt3dadd(95.806, 298.92, -33.55, 1.23)
pt3dadd(95.911, 298.939, -33.593, 1.098)
pt3dadd(96.027, 298.962, -33.607, 1.07)
pt3dadd(96.144, 298.984, -33.622, 1.042)
pt3dadd(96.261, 299.006, -33.636, 1.014)
pt3dadd(96.377, 299.028, -33.651, 0.986)
pt3dadd(96.494, 299.051, -33.665, 0.958)
pt3dadd(96.612, 299.07, -33.672, 0.942)
pt3dadd(96.73, 299.088, -33.677, 0.93)
pt3dadd(96.849, 299.106, -33.683, 0.918)
pt3dadd(96.967, 299.124, -33.689, 0.904)
pt3dadd(97.086, 299.142, -33.694, 0.892)
pt3dadd(97.204, 299.16, -33.701, 0.88)
pt3dadd(97.322, 299.16, -33.717, 0.884)
pt3dadd(97.441, 299.16, -33.733, 0.888)
pt3dadd(97.559, 299.16, -33.75, 0.892)
pt3dadd(97.678, 299.16, -33.766, 0.896)
pt3dadd(97.796, 299.16, -33.783, 0.9)
pt3dadd(97.914, 299.16, -33.799, 0.904)
pt3dadd(98.034, 299.16, -33.8, 0.908)
pt3dadd(98.154, 299.16, -33.8, 0.912)
pt3dadd(98.274, 299.16, -33.8, 0.914)
pt3dadd(98.394, 299.16, -33.8, 0.918)
pt3dadd(98.514, 299.16, -33.8, 0.922)
pt3dadd(98.634, 299.16, -33.8, 0.926)
pt3dadd(98.754, 299.16, -33.8, 0.928)
pt3dadd(98.874, 299.166, -33.8, 0.926)
pt3dadd(98.994, 299.172, -33.8, 0.922)
pt3dadd(99.114, 299.178, -33.8, 0.918)
pt3dadd(99.234, 299.184, -33.8, 0.914)
pt3dadd(99.354, 299.189, -33.8, 0.91)
pt3dadd(99.473, 299.195, -33.8, 0.906)
pt3dadd(99.592, 299.207, -33.8, 0.904)
pt3dadd(99.709, 299.234, -33.8, 0.904)
pt3dadd(99.826, 299.262, -33.8, 0.904)
pt3dadd(99.943, 299.29, -33.8, 0.904)
pt3dadd(100.059, 299.317, -33.8, 0.904)
pt3dadd(100.176, 299.345, -33.8, 0.904)
pt3dadd(100.293, 299.372, -33.8, 0.91)
pt3dadd(100.41, 299.4, -33.8, 0.922)
pt3dadd(100.527, 299.428, -33.8, 0.936)
pt3dadd(100.644, 299.455, -33.8, 0.948)
pt3dadd(100.76, 299.483, -33.8, 0.962)
pt3dadd(100.877, 299.51, -33.8, 0.974)
pt3dadd(100.991, 299.549, -33.8, 0.992)
pt3dadd(101.102, 299.593, -33.8, 1.01)
pt3dadd(101.213, 299.638, -33.8, 1.028)
pt3dadd(101.325, 299.682, -33.8, 1.048)
pt3dadd(101.436, 299.726, -33.8, 1.066)
pt3dadd(101.548, 299.771, -33.8, 1.08)
pt3dadd(101.659, 299.815, -33.8, 1.08)
pt3dadd(101.77, 299.86, -33.8, 1.08)
pt3dadd(101.882, 299.905, -33.8, 1.08)
pt3dadd(101.993, 299.95, -33.8, 1.08)
pt3dadd(102.105, 299.994, -33.8, 1.08)
pt3dadd(102.221, 300.024, -33.802, 1.068)
pt3dadd(102.337, 300.052, -33.804, 1.056)
pt3dadd(102.454, 300.08, -33.806, 1.042)
pt3dadd(102.571, 300.108, -33.808, 1.028)
pt3dadd(102.687, 300.136, -33.809, 1.016)
pt3dadd(102.801, 300.167, -33.818, 1.002)
pt3dadd(102.896, 300.217, -33.862, 0.984)
pt3dadd(102.99, 300.268, -33.907, 0.966)
pt3dadd(103.085, 300.319, -33.952, 0.948)
pt3dadd(103.179, 300.37, -33.996, 0.93)
pt3dadd(103.287, 300.42, -34, 0.92)
pt3dadd(103.396, 300.47, -34, 0.91)
pt3dadd(103.505, 300.521, -34, 0.902)
pt3dadd(103.614, 300.571, -34, 0.892)
pt3dadd(103.723, 300.622, -34, 0.882)
pt3dadd(103.836, 300.661, -34, 0.872)
pt3dadd(103.951, 300.695, -34, 0.862)
pt3dadd(104.067, 300.721, -34, 0.852)
pt3dadd(104.187, 300.726, -34, 0.844)
pt3dadd(104.307, 300.73, -34, 0.834)
pt3dadd(104.414, 300.763, -34, 0.828)
pt3dadd(104.496, 300.851, -34, 0.828)
pt3dadd(104.571, 300.943, -34, 0.828)
pt3dadd(104.625, 301.05, -34, 0.828)
pt3dadd(104.678, 301.158, -34, 0.828)
pt3dadd(104.751, 301.214, -34.063, 0.828)
pt3dadd(104.824, 301.268, -34.128, 0.828)
pt3dadd(104.9, 301.32, -34.189, 0.828)
pt3dadd(105.02, 301.32, -34.193, 0.828)
pt3dadd(105.14, 301.32, -34.197, 0.828)
pt3dadd(105.26, 301.32, -34.2, 0.828)
pt3dadd(105.38, 301.32, -34.2, 0.83)
pt3dadd(105.5, 301.32, -34.2, 0.834)
pt3dadd(105.62, 301.32, -34.2, 0.836)
pt3dadd(105.74, 301.32, -34.2, 0.84)
pt3dadd(105.86, 301.32, -34.2, 0.844)
pt3dadd(105.98, 301.32, -34.2, 0.848)
pt3dadd(106.1, 301.32, -34.2, 0.85)
pt3dadd(106.22, 301.32, -34.203, 0.856)
pt3dadd(106.338, 301.32, -34.219, 0.868)
pt3dadd(106.457, 301.32, -34.236, 0.88)
pt3dadd(106.575, 301.32, -34.252, 0.892)
pt3dadd(106.693, 301.32, -34.269, 0.906)
pt3dadd(106.812, 301.32, -34.285, 0.918)
pt3dadd(106.93, 301.32, -34.3, 0.93)
pt3dadd(107.05, 301.32, -34.3, 0.948)
pt3dadd(107.17, 301.32, -34.3, 0.964)
pt3dadd(107.29, 301.32, -34.3, 0.98)
pt3dadd(107.41, 301.32, -34.3, 0.98)
pt3dadd(107.53, 301.32, -34.3, 0.98)
pt3dadd(107.65, 301.32, -34.3, 0.978)
pt3dadd(107.77, 301.32, -34.3, 0.962)
pt3dadd(107.89, 301.32, -34.3, 0.944)
pt3dadd(108.009, 301.325, -34.3, 0.93)
pt3dadd(108.112, 301.386, -34.3, 0.93)
pt3dadd(108.216, 301.447, -34.3, 0.93)
pt3dadd(108.233, 301.56, -34.3, 0.93)
pt3dadd(108.24, 301.68, -34.3, 0.93)
pt3dadd(108.334, 301.754, -34.3, 0.918)
pt3dadd(108.427, 301.83, -34.3, 0.908)
pt3dadd(108.521, 301.904, -34.3, 0.898)
pt3dadd(108.615, 301.98, -34.3, 0.888)
pt3dadd(108.709, 302.054, -34.3, 0.878)
pt3dadd(108.815, 302.104, -34.322, 0.856)
pt3dadd(108.922, 302.152, -34.344, 0.836)
pt3dadd(109.028, 302.201, -34.365, 0.814)
pt3dadd(109.135, 302.25, -34.387, 0.792)
pt3dadd(109.246, 302.287, -34.4, 0.774)
pt3dadd(109.364, 302.308, -34.4, 0.762)
pt3dadd(109.483, 302.327, -34.4, 0.748)
pt3dadd(109.601, 302.347, -34.4, 0.736)
pt3dadd(109.719, 302.366, -34.4, 0.724)
pt3dadd(109.838, 302.387, -34.4, 0.712)
pt3dadd(109.95, 302.419, -34.406, 0.702)
pt3dadd(110.051, 302.48, -34.426, 0.696)
pt3dadd(110.151, 302.543, -34.445, 0.69)
pt3dadd(110.251, 302.604, -34.465, 0.684)
pt3dadd(110.351, 302.665, -34.485, 0.68)
pt3dadd(110.455, 302.724, -34.491, 0.682)
pt3dadd(110.56, 302.783, -34.493, 0.686)
pt3dadd(110.665, 302.84, -34.495, 0.692)
pt3dadd(110.77, 302.898, -34.497, 0.696)
pt3dadd(110.875, 302.957, -34.499, 0.702)
pt3dadd(110.976, 303.022, -34.5, 0.71)
pt3dadd(111.074, 303.091, -34.5, 0.72)
pt3dadd(111.172, 303.161, -34.5, 0.73)
pt3dadd(111.27, 303.229, -34.5, 0.74)
pt3dadd(111.368, 303.299, -34.5, 0.75)
pt3dadd(111.479, 303.34, -34.5, 0.76)
pt3dadd(111.596, 303.366, -34.5, 0.768)
pt3dadd(111.713, 303.394, -34.5, 0.776)
pt3dadd(111.829, 303.421, -34.5, 0.786)
pt3dadd(111.946, 303.449, -34.5, 0.794)
pt3dadd(112.063, 303.476, -34.5, 0.802)
pt3dadd(112.182, 303.492, -34.5, 0.812)
pt3dadd(112.301, 303.508, -34.5, 0.822)
pt3dadd(112.419, 303.526, -34.5, 0.826)
pt3dadd(112.535, 303.558, -34.5, 0.816)
pt3dadd(112.65, 303.592, -34.5, 0.806)
pt3dadd(112.757, 303.646, -34.5, 0.804)
pt3dadd(112.86, 303.706, -34.5, 0.804)
pt3dadd(112.932, 303.794, -34.5, 0.798)
pt3dadd(112.979, 303.905, -34.5, 0.786)
pt3dadd(113.041, 304.001, -34.5, 0.782)
pt3dadd(113.148, 304.055, -34.5, 0.8)
pt3dadd(113.257, 304.105, -34.5, 0.804)
pt3dadd(113.366, 304.157, -34.5, 0.804)
pt3dadd(113.475, 304.207, -34.5, 0.804)
pt3dadd(113.583, 304.258, -34.5, 0.804)
pt3dadd(113.692, 304.308, -34.5, 0.804)
pt3dadd(113.781, 304.382, -34.5, 0.812)
pt3dadd(113.85, 304.481, -34.5, 0.826)
pt3dadd(113.919, 304.578, -34.5, 0.842)
pt3dadd(113.988, 304.676, -34.5, 0.856)
pt3dadd(114.057, 304.775, -34.5, 0.872)
pt3dadd(114.122, 304.876, -34.5, 0.89)
pt3dadd(114.183, 304.979, -34.5, 0.912)
pt3dadd(114.228, 305.087, -34.501, 0.936)
pt3dadd(114.233, 305.207, -34.505, 0.964)
pt3dadd(114.238, 305.327, -34.509, 0.99)
pt3dadd(114.266, 305.435, -34.533, 1.012)
}
}
proc shape3d_28() {
dend_5[4] { pt3dadd(114.317, 305.53, -34.575, 1.026)
pt3dadd(114.411, 305.588, -34.592, 1.038)
pt3dadd(114.523, 305.629, -34.597, 1.048)
pt3dadd(114.628, 305.681, -34.611, 1.038)
pt3dadd(114.722, 305.749, -34.638, 1.002)
pt3dadd(114.805, 305.832, -34.66, 0.984)
pt3dadd(114.887, 305.914, -34.683, 0.966)
pt3dadd(114.97, 305.996, -34.706, 0.95)
pt3dadd(115.052, 306.079, -34.729, 0.932)
pt3dadd(115.14, 306.16, -34.745, 0.92)
pt3dadd(115.228, 306.239, -34.76, 0.908)
pt3dadd(115.316, 306.318, -34.775, 0.898)
pt3dadd(115.404, 306.397, -34.79, 0.886)
pt3dadd(115.493, 306.476, -34.8, 0.884)
pt3dadd(115.585, 306.554, -34.8, 0.898)
pt3dadd(115.676, 306.632, -34.8, 0.914)
pt3dadd(115.767, 306.71, -34.8, 0.928)
pt3dadd(115.859, 306.787, -34.8, 0.944)
pt3dadd(115.949, 306.866, -34.8, 0.97)
pt3dadd(116.037, 306.948, -34.8, 1.016)
pt3dadd(116.113, 307.037, -34.8, 1.056)
pt3dadd(116.139, 307.154, -34.8, 1.066)
pt3dadd(116.165, 307.271, -34.8, 1.076)
pt3dadd(116.245, 307.349, -34.8, 1.04)
pt3dadd(116.349, 307.41, -34.8, 0.982)
pt3dadd(116.457, 307.45, -34.816, 0.924)
pt3dadd(116.569, 307.468, -34.847, 0.866)
pt3dadd(116.67, 307.501, -34.888, 0.812)
pt3dadd(116.751, 307.561, -34.94, 0.782)
pt3dadd(116.84, 307.631, -34.974, 0.8)
pt3dadd(116.929, 307.7, -35.009, 0.818)
pt3dadd(117.017, 307.77, -35.043, 0.836)
pt3dadd(117.106, 307.838, -35.077, 0.854)
pt3dadd(117.188, 307.898, -35.132, 0.878)
pt3dadd(117.27, 307.957, -35.186, 0.902)
pt3dadd(117.351, 308.016, -35.241, 0.928)
pt3dadd(117.433, 308.075, -35.295, 0.952)
pt3dadd(117.503, 308.154, -35.342, 0.97)
pt3dadd(117.571, 308.236, -35.388, 0.99)
pt3dadd(117.639, 308.317, -35.434, 1.008)
pt3dadd(117.708, 308.399, -35.48, 1.026)
pt3dadd(117.791, 308.459, -35.531, 1.034)
pt3dadd(117.879, 308.513, -35.582, 1.04)
pt3dadd(117.966, 308.568, -35.633, 1.046)
pt3dadd(118.053, 308.623, -35.684, 1.052)
pt3dadd(118.15, 308.682, -35.714, 1.054)
pt3dadd(118.25, 308.743, -35.734, 1.054)
pt3dadd(118.351, 308.803, -35.755, 1.054)
pt3dadd(118.451, 308.864, -35.775, 1.054)
pt3dadd(118.548, 308.93, -35.783, 1.056)
pt3dadd(118.635, 309.01, -35.763, 1.062)
pt3dadd(118.723, 309.088, -35.742, 1.068)
pt3dadd(118.81, 309.167, -35.722, 1.074)
pt3dadd(118.898, 309.245, -35.702, 1.08)
pt3dadd(118.995, 309.314, -35.7, 1.076)
pt3dadd(119.093, 309.384, -35.7, 1.07)
pt3dadd(119.191, 309.454, -35.7, 1.066)
pt3dadd(119.289, 309.522, -35.7, 1.06)
pt3dadd(119.387, 309.592, -35.7, 1.056)
pt3dadd(119.482, 309.665, -35.7, 1.042)
pt3dadd(119.575, 309.74, -35.7, 1.026)
pt3dadd(119.669, 309.815, -35.7, 1.012)
pt3dadd(119.763, 309.89, -35.7, 0.996)
pt3dadd(119.856, 309.965, -35.7, 0.98)
pt3dadd(119.937, 310.051, -35.713, 0.95)
pt3dadd(120.017, 310.14, -35.728, 0.916)
pt3dadd(120.096, 310.228, -35.743, 0.884)
pt3dadd(120.176, 310.316, -35.757, 0.85)
pt3dadd(120.247, 310.406, -35.782, 0.82)
pt3dadd(120.305, 310.499, -35.824, 0.796)
pt3dadd(120.362, 310.591, -35.867, 0.772)
pt3dadd(120.419, 310.684, -35.909, 0.748)
pt3dadd(120.481, 310.772, -35.951, 0.728)
pt3dadd(120.564, 310.846, -35.988, 0.722)
pt3dadd(120.648, 310.92, -36.025, 0.716)
pt3dadd(120.731, 310.993, -36.063, 0.708)
pt3dadd(120.815, 311.066, -36.1, 0.704)
pt3dadd(120.918, 311.126, -36.1, 0.714)
pt3dadd(121.022, 311.186, -36.1, 0.722)
pt3dadd(121.127, 311.246, -36.1, 0.732)
pt3dadd(121.23, 311.306, -36.1, 0.742)
pt3dadd(121.334, 311.366, -36.1, 0.752)
pt3dadd(121.438, 311.428, -36.1, 0.784)
pt3dadd(121.541, 311.488, -36.1, 0.818)
pt3dadd(121.656, 311.51, -36.1, 0.846)
pt3dadd(121.776, 311.514, -36.1, 0.872)
pt3dadd(121.896, 311.519, -36.1, 0.898)
pt3dadd(122.015, 311.537, -36.1, 0.92)
pt3dadd(122.132, 311.556, -36.1, 0.938)
pt3dadd(122.232, 311.597, -36.1, 0.954)
pt3dadd(122.258, 311.713, -36.1, 0.954)
pt3dadd(122.285, 311.831, -36.1, 0.954)
pt3dadd(122.323, 311.944, -36.1, 0.932)
pt3dadd(122.371, 312.053, -36.1, 0.902)
pt3dadd(122.447, 312.146, -36.1, 0.886)
pt3dadd(122.521, 312.241, -36.1, 0.872)
pt3dadd(122.596, 312.335, -36.1, 0.856)
pt3dadd(122.671, 312.428, -36.1, 0.842)
pt3dadd(122.749, 312.518, -36.1, 0.828)
pt3dadd(122.843, 312.594, -36.1, 0.816)
pt3dadd(122.936, 312.668, -36.1, 0.806)
pt3dadd(123.03, 312.744, -36.1, 0.796)
pt3dadd(123.124, 312.818, -36.1, 0.786)
pt3dadd(123.218, 312.892, -36.101, 0.776)
pt3dadd(123.318, 312.959, -36.108, 0.766)
pt3dadd(123.418, 313.025, -36.115, 0.756)
pt3dadd(123.517, 313.091, -36.122, 0.746)
pt3dadd(123.617, 313.158, -36.129, 0.734)
pt3dadd(123.713, 313.224, -36.147, 0.722)
pt3dadd(123.802, 313.291, -36.184, 0.71)
pt3dadd(123.904, 313.346, -36.2, 0.704)
pt3dadd(124.014, 313.393, -36.2, 0.704)
pt3dadd(124.124, 313.44, -36.2, 0.71)
pt3dadd(124.235, 313.487, -36.2, 0.732)
pt3dadd(124.345, 313.534, -36.2, 0.754)
pt3dadd(124.386, 313.646, -36.2, 0.786)
pt3dadd(124.426, 313.759, -36.2, 0.818)
pt3dadd(124.476, 313.867, -36.203, 0.852)
pt3dadd(124.532, 313.974, -36.208, 0.886)
pt3dadd(124.61, 314.036, -36.236, 0.942)
pt3dadd(124.668, 314.04, -36.32, 0.976)
pt3dadd(124.682, 314.04, -36.42, 0.948)
pt3dadd(124.704, 314.046, -36.517, 0.918)
pt3dadd(124.76, 314.094, -36.589, 0.904)
pt3dadd(124.792, 314.208, -36.6, 0.904)
pt3dadd(124.806, 314.328, -36.6, 0.892)
pt3dadd(124.83, 314.444, -36.6, 0.848)
pt3dadd(124.878, 314.555, -36.6, 0.758)
pt3dadd(124.909, 314.67, -36.6, 0.7)
pt3dadd(124.926, 314.789, -36.6, 0.676)
pt3dadd(124.951, 314.906, -36.6, 0.672)
pt3dadd(124.975, 315.023, -36.6, 0.668)
pt3dadd(125, 315.14, -36.6, 0.664)
pt3dadd(125.026, 315.258, -36.6, 0.66)
pt3dadd(125.05, 315.376, -36.6, 0.656)
pt3dadd(125.08, 315.492, -36.6, 0.652)
pt3dadd(125.119, 315.605, -36.6, 0.652)
pt3dadd(125.159, 315.718, -36.6, 0.652)
pt3dadd(125.18, 315.836, -36.6, 0.662)
pt3dadd(125.201, 315.954, -36.6, 0.672)
pt3dadd(125.251, 316.046, -36.614, 0.698)
pt3dadd(125.352, 316.096, -36.65, 0.752)
pt3dadd(125.431, 316.166, -36.689, 0.794)
pt3dadd(125.491, 316.256, -36.733, 0.822)
pt3dadd(125.543, 316.346, -36.783, 0.834)
pt3dadd(125.592, 316.436, -36.835, 0.844)
pt3dadd(125.641, 316.525, -36.888, 0.852)
pt3dadd(125.683, 316.633, -36.9, 0.854)
pt3dadd(125.723, 316.746, -36.9, 0.854)
pt3dadd(125.767, 316.852, -36.919, 0.866)
pt3dadd(125.816, 316.946, -36.965, 0.898)
pt3dadd(125.867, 317.04, -37.011, 0.93)
pt3dadd(125.914, 317.066, -37.1, 0.966)
pt3dadd(125.962, 317.094, -37.189, 1.004)
pt3dadd(126.013, 317.19, -37.222, 0.998)
pt3dadd(126.052, 317.275, -37.285, 0.98)
pt3dadd(126.089, 317.36, -37.348, 0.962)
pt3dadd(126.126, 317.446, -37.411, 0.944)
pt3dadd(126.166, 317.527, -37.476, 0.928)
pt3dadd(126.212, 317.584, -37.555, 0.916)
pt3dadd(126.26, 317.64, -37.634, 0.904)
pt3dadd(126.307, 317.698, -37.713, 0.892)
pt3dadd(126.355, 317.754, -37.791, 0.88)
pt3dadd(126.394, 317.777, -37.883, 0.9)
pt3dadd(126.431, 317.795, -37.977, 0.924)
pt3dadd(126.48, 317.868, -38.038, 0.982)
pt3dadd(126.532, 317.958, -38.088, 1.052)
pt3dadd(126.648, 317.975, -38.093, 1.102)
pt3dadd(126.768, 317.99, -38.097, 1.15)
pt3dadd(126.881, 318.024, -38.1, 1.194)
pt3dadd(126.984, 318.084, -38.1, 1.228)
pt3dadd(127.073, 318.156, -38.1, 1.256)
pt3dadd(127.106, 318.271, -38.1, 1.256)
pt3dadd(127.151, 318.383, -38.1, 1.236)
pt3dadd(127.204, 318.49, -38.1, 1.202)
pt3dadd(127.265, 318.592, -38.1, 1.164)
pt3dadd(127.34, 318.685, -38.1, 1.118)
pt3dadd(127.417, 318.778, -38.1, 1.07)
pt3dadd(127.499, 318.866, -38.1, 1.022)
pt3dadd(127.583, 318.948, -38.1, 0.976)
pt3dadd(127.703, 318.958, -38.1, 0.95)
pt3dadd(127.823, 318.966, -38.1, 0.922)
pt3dadd(127.932, 318.998, -38.1, 0.882)
pt3dadd(128.017, 319.084, -38.1, 0.812)
pt3dadd(128.09, 319.177, -38.1, 0.782)
pt3dadd(128.162, 319.273, -38.1, 0.756)
pt3dadd(128.234, 319.369, -38.1, 0.732)
pt3dadd(128.306, 319.465, -38.1, 0.706)
pt3dadd(128.378, 319.561, -38.1, 0.68)
pt3dadd(128.446, 319.658, -38.12, 0.658)
pt3dadd(128.512, 319.754, -38.142, 0.636)
pt3dadd(128.578, 319.852, -38.165, 0.612)
pt3dadd(128.644, 319.948, -38.188, 0.59)
pt3dadd(128.723, 320.023, -38.22, 0.578)
pt3dadd(128.818, 320.074, -38.265, 0.578)
pt3dadd(128.912, 320.124, -38.31, 0.578)
pt3dadd(129.007, 320.174, -38.354, 0.578)
pt3dadd(129.1, 320.232, -38.39, 0.592)
pt3dadd(129.184, 320.317, -38.396, 0.652)
pt3dadd(129.275, 320.388, -38.4, 0.712)
}
}
proc shape3d_29() {
dend_5[4] { pt3dadd(129.395, 320.392, -38.4, 0.764)
pt3dadd(129.515, 320.396, -38.4, 0.816)
pt3dadd(129.631, 320.416, -38.4, 0.866)
pt3dadd(129.738, 320.47, -38.4, 0.912)
pt3dadd(129.842, 320.525, -38.4, 0.954)
pt3dadd(129.896, 320.633, -38.4, 0.942)
pt3dadd(129.95, 320.74, -38.4, 0.932)
pt3dadd(130.03, 320.83, -38.4, 0.886)
pt3dadd(130.117, 320.91, -38.4, 0.836)
pt3dadd(130.211, 320.984, -38.4, 0.788)
pt3dadd(130.296, 321.067, -38.4, 0.748)
pt3dadd(130.357, 321.17, -38.4, 0.724)
pt3dadd(130.42, 321.272, -38.4, 0.702)
pt3dadd(130.507, 321.354, -38.4, 0.69)
pt3dadd(130.595, 321.437, -38.4, 0.678)
pt3dadd(130.706, 321.458, -38.43, 0.678)
pt3dadd(130.819, 321.476, -38.461, 0.678)
pt3dadd(130.936, 321.487, -38.484, 0.69)
pt3dadd(131.051, 321.502, -38.5, 0.708)
pt3dadd(131.165, 321.541, -38.5, 0.73)
pt3dadd(131.278, 321.582, -38.5, 0.75)
pt3dadd(131.396, 321.595, -38.5, 0.784)
pt3dadd(131.516, 321.605, -38.5, 0.82)
pt3dadd(131.635, 321.618, -38.5, 0.858)
pt3dadd(131.738, 321.678, -38.5, 0.904)
pt3dadd(131.842, 321.739, -38.5, 0.948)
pt3dadd(131.944, 321.803, -38.505, 0.996)
pt3dadd(132.046, 321.866, -38.51, 1.044)
pt3dadd(132.101, 321.956, -38.547, 1.086)
pt3dadd(132.131, 322.062, -38.584, 1.124)
pt3dadd(132.169, 322.172, -38.6, 1.092)
pt3dadd(132.252, 322.259, -38.6, 0.97)
pt3dadd(132.361, 322.303, -38.6, 0.82)
pt3dadd(132.48, 322.32, -38.6, 0.69)
pt3dadd(132.6, 322.32, -38.6, 0.578)
}
dend_5[5] {pt3dclear()
pt3dadd(50.08, 232.013, -19.089, 0.904)
pt3dadd(50.047, 232.091, -19.121, 0.884)
pt3dadd(50.004, 232.19, -19.163, 0.856)
pt3dadd(49.96, 232.261, -19.234, 0.816)
pt3dadd(49.918, 232.331, -19.306, 0.776)
pt3dadd(49.898, 232.433, -19.356, 0.75)
pt3dadd(49.873, 232.535, -19.4, 0.73)
pt3dadd(49.819, 232.643, -19.4, 0.74)
pt3dadd(49.766, 232.75, -19.4, 0.752)
pt3dadd(49.684, 232.837, -19.4, 0.818)
pt3dadd(49.619, 232.934, -19.4, 0.87)
pt3dadd(49.574, 233.046, -19.4, 0.902)
pt3dadd(49.53, 233.158, -19.4, 0.934)
pt3dadd(49.485, 233.269, -19.4, 0.968)
pt3dadd(49.44, 233.381, -19.4, 1)
pt3dadd(49.396, 233.491, -19.402, 1.032)
pt3dadd(49.355, 233.603, -19.417, 1.064)
pt3dadd(49.315, 233.714, -19.433, 1.094)
pt3dadd(49.274, 233.826, -19.449, 1.124)
pt3dadd(49.233, 233.936, -19.465, 1.156)
pt3dadd(49.189, 234.042, -19.488, 1.182)
pt3dadd(49.13, 234.124, -19.543, 1.194)
pt3dadd(49.071, 234.205, -19.597, 1.208)
pt3dadd(49.012, 234.287, -19.652, 1.22)
pt3dadd(48.952, 234.367, -19.707, 1.228)
pt3dadd(48.883, 234.428, -19.771, 1.214)
pt3dadd(48.825, 234.479, -19.845, 1.186)
pt3dadd(48.784, 234.512, -19.934, 1.136)
pt3dadd(48.726, 234.566, -19.991, 1.086)
pt3dadd(48.642, 234.652, -19.997, 1.036)
pt3dadd(48.552, 234.731, -20, 0.992)
pt3dadd(48.453, 234.798, -20, 0.958)
pt3dadd(48.372, 234.871, -20.011, 0.928)
pt3dadd(48.364, 234.968, -20.069, 0.92)
pt3dadd(48.356, 235.066, -20.127, 0.914)
pt3dadd(48.349, 235.163, -20.186, 0.906)
pt3dadd(48.275, 235.214, -20.241, 0.914)
pt3dadd(48.181, 235.249, -20.295, 0.928)
pt3dadd(48.156, 235.354, -20.333, 0.946)
pt3dadd(48.137, 235.464, -20.369, 0.964)
pt3dadd(48.12, 235.571, -20.409, 0.984)
pt3dadd(48.12, 235.652, -20.483, 1.02)
pt3dadd(48.12, 235.734, -20.556, 1.054)
pt3dadd(48.085, 235.843, -20.585, 1.074)
pt3dadd(48.05, 235.952, -20.614, 1.092)
pt3dadd(47.996, 236.046, -20.645, 1.104)
pt3dadd(47.901, 236.105, -20.682, 1.104)
pt3dadd(47.815, 236.18, -20.7, 1.07)
pt3dadd(47.757, 236.285, -20.7, 1.028)
pt3dadd(47.703, 236.392, -20.7, 0.994)
pt3dadd(47.665, 236.501, -20.718, 0.966)
pt3dadd(47.64, 236.611, -20.751, 0.942)
pt3dadd(47.58, 236.702, -20.779, 0.922)
pt3dadd(47.488, 236.773, -20.802, 0.908)
pt3dadd(47.393, 236.832, -20.838, 0.912)
pt3dadd(47.298, 236.884, -20.881, 0.926)
pt3dadd(47.228, 236.976, -20.891, 0.934)
pt3dadd(47.164, 237.077, -20.895, 0.942)
pt3dadd(47.1, 237.179, -20.898, 0.948)
pt3dadd(47.048, 237.284, -20.9, 0.962)
pt3dadd(47.028, 237.403, -20.9, 0.992)
pt3dadd(47.007, 237.521, -20.9, 1.02)
pt3dadd(46.964, 237.631, -20.9, 1.03)
pt3dadd(46.884, 237.718, -20.919, 1.024)
pt3dadd(46.803, 237.803, -20.939, 1.018)
pt3dadd(46.721, 237.887, -20.959, 1.012)
pt3dadd(46.639, 237.972, -20.979, 1.008)
pt3dadd(46.592, 238.074, -20.991, 0.974)
pt3dadd(46.576, 238.193, -20.995, 0.916)
pt3dadd(46.561, 238.312, -21, 0.858)
pt3dadd(46.51, 238.42, -21, 0.812)
pt3dadd(46.456, 238.528, -21, 0.768)
pt3dadd(46.393, 238.618, -21.031, 0.724)
pt3dadd(46.325, 238.7, -21.075, 0.68)
pt3dadd(46.314, 238.765, -21.157, 0.678)
pt3dadd(46.308, 238.829, -21.242, 0.678)
pt3dadd(46.26, 238.914, -21.295, 0.678)
pt3dadd(46.212, 239.011, -21.338, 0.678)
pt3dadd(46.17, 239.112, -21.38, 0.678)
pt3dadd(46.115, 239.215, -21.397, 0.668)
pt3dadd(46.056, 239.318, -21.408, 0.656)
pt3dadd(46.008, 239.401, -21.461, 0.642)
pt3dadd(45.962, 239.477, -21.53, 0.628)
pt3dadd(45.96, 239.495, -21.627, 0.62)
pt3dadd(45.96, 239.509, -21.726, 0.61)
pt3dadd(45.958, 239.534, -21.823, 0.606)
pt3dadd(45.952, 239.591, -21.911, 0.618)
pt3dadd(45.942, 239.653, -21.991, 0.628)
pt3dadd(45.898, 239.764, -22, 0.628)
pt3dadd(45.858, 239.876, -22, 0.608)
pt3dadd(45.825, 239.992, -22, 0.634)
pt3dadd(45.788, 240.106, -22, 0.782)
pt3dadd(45.752, 240.218, -22, 0.922)
pt3dadd(45.738, 240.337, -22, 0.958)
pt3dadd(45.723, 240.456, -22, 0.994)
pt3dadd(45.708, 240.575, -22, 1.03)
pt3dadd(45.693, 240.694, -22, 1.066)
pt3dadd(45.679, 240.814, -22, 1.102)
pt3dadd(45.66, 240.931, -22, 1.136)
pt3dadd(45.626, 241.046, -22.002, 1.168)
pt3dadd(45.593, 241.162, -22.004, 1.2)
pt3dadd(45.559, 241.277, -22.006, 1.232)
pt3dadd(45.525, 241.392, -22.008, 1.264)
pt3dadd(45.492, 241.507, -22.01, 1.294)
pt3dadd(45.465, 241.624, -22.022, 1.324)
pt3dadd(45.442, 241.739, -22.039, 1.354)
pt3dadd(45.42, 241.855, -22.056, 1.382)
pt3dadd(45.397, 241.972, -22.073, 1.41)
pt3dadd(45.374, 242.087, -22.09, 1.438)
pt3dadd(45.36, 242.203, -22.111, 1.464)
pt3dadd(45.36, 242.317, -22.141, 1.482)
pt3dadd(45.36, 242.432, -22.171, 1.5)
pt3dadd(45.36, 242.546, -22.201, 1.518)
pt3dadd(45.36, 242.66, -22.231, 1.536)
pt3dadd(45.36, 242.776, -22.26, 1.554)
pt3dadd(45.36, 242.887, -22.296, 1.568)
pt3dadd(45.36, 242.999, -22.333, 1.582)
pt3dadd(45.36, 243.11, -22.37, 1.596)
pt3dadd(45.36, 243.222, -22.407, 1.61)
pt3dadd(45.36, 243.334, -22.445, 1.624)
pt3dadd(45.36, 243.448, -22.469, 1.634)
pt3dadd(45.36, 243.568, -22.474, 1.638)
pt3dadd(45.36, 243.688, -22.479, 1.642)
pt3dadd(45.36, 243.808, -22.484, 1.646)
pt3dadd(45.36, 243.928, -22.489, 1.648)
pt3dadd(45.36, 244.048, -22.494, 1.652)
pt3dadd(45.36, 244.168, -22.499, 1.656)
pt3dadd(45.341, 244.274, -22.534, 1.658)
pt3dadd(45.314, 244.378, -22.58, 1.658)
pt3dadd(45.288, 244.481, -22.627, 1.658)
pt3dadd(45.261, 244.583, -22.673, 1.658)
pt3dadd(45.229, 244.686, -22.715, 1.658)
pt3dadd(45.171, 244.788, -22.734, 1.664)
pt3dadd(45.112, 244.89, -22.754, 1.67)
pt3dadd(45.054, 244.993, -22.773, 1.674)
pt3dadd(44.996, 245.095, -22.793, 1.68)
pt3dadd(44.941, 245.192, -22.827, 1.7)
pt3dadd(44.89, 245.288, -22.87, 1.728)
pt3dadd(44.875, 245.389, -22.921, 1.762)
pt3dadd(44.869, 245.49, -22.973, 1.798)
pt3dadd(44.8, 245.566, -23.01, 1.808)
pt3dadd(44.706, 245.632, -23.04, 1.808)
pt3dadd(44.623, 245.64, -23.108, 1.736)
pt3dadd(44.541, 245.64, -23.181, 1.654)
pt3dadd(44.442, 245.647, -23.236, 1.472)
pt3dadd(44.342, 245.672, -23.283, 1.312)
pt3dadd(44.253, 245.726, -23.332, 1.258)
pt3dadd(44.163, 245.782, -23.38, 1.204)
pt3dadd(44.073, 245.836, -23.428, 1.148)
pt3dadd(43.986, 245.894, -23.476, 1.106)
pt3dadd(43.91, 245.966, -23.526, 1.112)
pt3dadd(43.834, 246.038, -23.575, 1.118)
pt3dadd(43.759, 246.11, -23.624, 1.124)
pt3dadd(43.687, 246.184, -23.674, 1.144)
pt3dadd(43.639, 246.271, -23.73, 1.254)
pt3dadd(43.59, 246.358, -23.787, 1.362)
pt3dadd(43.542, 246.444, -23.843, 1.472)
pt3dadd(43.494, 246.532, -23.899, 1.58)
pt3dadd(43.376, 246.539, -23.91, 1.558)
pt3dadd(43.257, 246.546, -23.921, 1.534)
pt3dadd(43.138, 246.552, -23.932, 1.51)
pt3dadd(43.019, 246.558, -23.943, 1.486)
pt3dadd(42.9, 246.565, -23.953, 1.462)
pt3dadd(42.78, 246.571, -23.964, 1.438)
pt3dadd(42.661, 246.578, -23.974, 1.414)
}
}
proc shape3d_30() {
dend_5[5] { pt3dadd(42.542, 246.584, -23.985, 1.39)
pt3dadd(42.423, 246.59, -23.996, 1.366)
pt3dadd(42.304, 246.598, -24.007, 1.342)
pt3dadd(42.209, 246.643, -24.037, 1.34)
pt3dadd(42.133, 246.72, -24.081, 1.354)
pt3dadd(42.027, 246.768, -24.093, 1.374)
pt3dadd(41.915, 246.809, -24.098, 1.396)
pt3dadd(41.798, 246.829, -24.1, 1.412)
pt3dadd(41.678, 246.834, -24.1, 1.42)
pt3dadd(41.559, 246.839, -24.1, 1.428)
pt3dadd(41.439, 246.84, -24.1, 1.426)
pt3dadd(41.319, 246.84, -24.1, 1.418)
pt3dadd(41.199, 246.84, -24.1, 1.408)
pt3dadd(41.084, 246.84, -24.125, 1.38)
pt3dadd(40.973, 246.84, -24.162, 1.344)
pt3dadd(40.862, 246.84, -24.199, 1.306)
pt3dadd(40.75, 246.84, -24.237, 1.268)
pt3dadd(40.639, 246.84, -24.274, 1.232)
pt3dadd(40.525, 246.84, -24.302, 1.174)
pt3dadd(40.405, 246.84, -24.308, 1.068)
pt3dadd(40.306, 246.84, -24.344, 0.982)
pt3dadd(40.238, 246.84, -24.427, 0.922)
pt3dadd(40.17, 246.84, -24.509, 0.884)
pt3dadd(40.102, 246.84, -24.591, 0.908)
pt3dadd(40.03, 246.84, -24.668, 0.93)
pt3dadd(39.911, 246.84, -24.68, 0.95)
pt3dadd(39.792, 246.84, -24.693, 0.968)
pt3dadd(39.672, 246.84, -24.701, 0.976)
pt3dadd(39.552, 246.84, -24.705, 0.968)
pt3dadd(39.432, 246.84, -24.709, 0.958)
pt3dadd(39.316, 246.84, -24.729, 0.944)
pt3dadd(39.204, 246.84, -24.763, 0.926)
pt3dadd(39.091, 246.84, -24.798, 0.908)
pt3dadd(38.979, 246.84, -24.833, 0.89)
pt3dadd(38.866, 246.84, -24.867, 0.872)
pt3dadd(38.753, 246.84, -24.901, 0.854)
pt3dadd(38.634, 246.84, -24.915, 0.84)
pt3dadd(38.516, 246.84, -24.93, 0.828)
pt3dadd(38.397, 246.84, -24.944, 0.816)
pt3dadd(38.278, 246.84, -24.958, 0.804)
pt3dadd(38.159, 246.84, -24.973, 0.792)
pt3dadd(38.041, 246.84, -24.987, 0.78)
pt3dadd(37.923, 246.84, -25.005, 0.774)
pt3dadd(37.805, 246.84, -25.024, 0.77)
pt3dadd(37.687, 246.84, -25.042, 0.766)
pt3dadd(37.569, 246.84, -25.061, 0.762)
pt3dadd(37.451, 246.84, -25.079, 0.758)
pt3dadd(37.333, 246.84, -25.098, 0.754)
pt3dadd(37.218, 246.84, -25.126, 0.754)
pt3dadd(37.104, 246.84, -25.156, 0.754)
pt3dadd(36.989, 246.84, -25.186, 0.754)
pt3dadd(36.875, 246.84, -25.216, 0.754)
pt3dadd(36.76, 246.84, -25.246, 0.754)
pt3dadd(36.647, 246.833, -25.277, 0.754)
pt3dadd(36.536, 246.811, -25.312, 0.76)
pt3dadd(36.426, 246.79, -25.346, 0.766)
pt3dadd(36.315, 246.767, -25.381, 0.77)
pt3dadd(36.205, 246.745, -25.415, 0.776)
pt3dadd(36.108, 246.714, -25.463, 0.786)
pt3dadd(36.025, 246.672, -25.527, 0.804)
pt3dadd(35.942, 246.631, -25.591, 0.822)
pt3dadd(35.859, 246.59, -25.654, 0.84)
pt3dadd(35.772, 246.547, -25.712, 0.86)
pt3dadd(35.676, 246.5, -25.757, 0.884)
pt3dadd(35.579, 246.454, -25.801, 0.908)
pt3dadd(35.482, 246.406, -25.845, 0.932)
pt3dadd(35.385, 246.359, -25.889, 0.954)
pt3dadd(35.288, 246.288, -25.891, 0.974)
pt3dadd(35.191, 246.218, -25.893, 0.996)
pt3dadd(35.093, 246.148, -25.896, 1.016)
pt3dadd(34.996, 246.078, -25.898, 1.036)
pt3dadd(34.897, 246.012, -25.9, 1.058)
pt3dadd(34.779, 245.994, -25.9, 1.078)
pt3dadd(34.663, 245.96, -25.9, 1.068)
pt3dadd(34.548, 245.928, -25.9, 1.058)
pt3dadd(34.441, 245.881, -25.921, 1.036)
pt3dadd(34.337, 245.832, -25.949, 1.014)
pt3dadd(34.233, 245.783, -25.977, 0.99)
pt3dadd(34.144, 245.722, -26.017, 0.956)
pt3dadd(34.068, 245.653, -26.068, 0.912)
pt3dadd(33.969, 245.64, -26.119, 0.886)
pt3dadd(33.866, 245.64, -26.17, 0.862)
pt3dadd(33.752, 245.64, -26.191, 0.848)
pt3dadd(33.632, 245.64, -26.195, 0.84)
pt3dadd(33.512, 245.64, -26.199, 0.832)
pt3dadd(33.392, 245.64, -26.2, 0.848)
pt3dadd(33.272, 245.64, -26.2, 0.872)
pt3dadd(33.152, 245.64, -26.2, 0.898)
pt3dadd(33.032, 245.64, -26.2, 0.918)
pt3dadd(32.912, 245.64, -26.2, 0.934)
pt3dadd(32.792, 245.64, -26.2, 0.954)
pt3dadd(32.672, 245.64, -26.2, 0.97)
pt3dadd(32.552, 245.64, -26.2, 0.988)
pt3dadd(32.432, 245.64, -26.2, 1.006)
pt3dadd(32.312, 245.64, -26.2, 1.024)
pt3dadd(32.204, 245.64, -26.236, 1.058)
pt3dadd(32.1, 245.64, -26.286, 1.098)
pt3dadd(31.996, 245.64, -26.336, 1.136)
pt3dadd(31.892, 245.64, -26.386, 1.176)
pt3dadd(31.788, 245.64, -26.436, 1.214)
pt3dadd(31.682, 245.64, -26.483, 1.372)
pt3dadd(31.565, 245.64, -26.504, 1.464)
pt3dadd(31.447, 245.64, -26.521, 1.532)
pt3dadd(31.334, 245.64, -26.548, 1.592)
pt3dadd(31.234, 245.64, -26.603, 1.626)
pt3dadd(31.134, 245.64, -26.659, 1.66)
pt3dadd(31.034, 245.64, -26.714, 1.696)
pt3dadd(30.96, 245.64, -26.79, 1.73)
pt3dadd(30.899, 245.64, -26.876, 1.764)
pt3dadd(30.829, 245.64, -26.956, 1.794)
pt3dadd(30.747, 245.64, -27.03, 1.818)
pt3dadd(30.658, 245.64, -27.095, 1.84)
pt3dadd(30.555, 245.64, -27.146, 1.864)
pt3dadd(30.449, 245.64, -27.189, 1.884)
pt3dadd(30.329, 245.64, -27.193, 1.894)
pt3dadd(30.209, 245.64, -27.197, 1.902)
pt3dadd(30.089, 245.64, -27.2, 1.904)
pt3dadd(29.969, 245.64, -27.2, 1.89)
pt3dadd(29.849, 245.64, -27.2, 1.876)
pt3dadd(29.729, 245.64, -27.2, 1.862)
pt3dadd(29.609, 245.64, -27.2, 1.848)
pt3dadd(29.489, 245.64, -27.2, 1.832)
pt3dadd(29.369, 245.64, -27.2, 1.818)
pt3dadd(29.25, 245.646, -27.205, 1.796)
pt3dadd(29.135, 245.669, -27.224, 1.748)
pt3dadd(29.019, 245.692, -27.243, 1.698)
pt3dadd(28.904, 245.716, -27.263, 1.65)
pt3dadd(28.788, 245.738, -27.282, 1.602)
pt3dadd(28.673, 245.761, -27.3, 1.554)
pt3dadd(28.554, 245.782, -27.302, 1.508)
pt3dadd(28.436, 245.802, -27.304, 1.462)
pt3dadd(28.318, 245.821, -27.306, 1.416)
pt3dadd(28.199, 245.842, -27.308, 1.37)
pt3dadd(28.081, 245.862, -27.309, 1.324)
pt3dadd(27.963, 245.88, -27.312, 1.278)
pt3dadd(27.844, 245.88, -27.327, 1.258)
pt3dadd(27.725, 245.88, -27.341, 1.238)
pt3dadd(27.607, 245.88, -27.356, 1.218)
pt3dadd(27.488, 245.88, -27.37, 1.198)
pt3dadd(27.369, 245.88, -27.384, 1.178)
pt3dadd(27.25, 245.88, -27.399, 1.156)
pt3dadd(27.146, 245.933, -27.415, 1.17)
pt3dadd(27.042, 245.99, -27.432, 1.186)
pt3dadd(26.939, 246.047, -27.449, 1.202)
pt3dadd(26.835, 246.104, -27.466, 1.218)
pt3dadd(26.76, 246.172, -27.495, 1.264)
pt3dadd(26.76, 246.265, -27.557, 1.388)
pt3dadd(26.702, 246.361, -27.581, 1.44)
pt3dadd(26.633, 246.458, -27.598, 1.478)
pt3dadd(26.518, 246.47, -27.6, 1.466)
pt3dadd(26.398, 246.475, -27.6, 1.448)
pt3dadd(26.278, 246.48, -27.6, 1.43)
pt3dadd(26.159, 246.48, -27.613, 1.346)
pt3dadd(26.04, 246.48, -27.625, 1.262)
pt3dadd(25.922, 246.482, -27.643, 1.174)
pt3dadd(25.808, 246.487, -27.671, 1.076)
pt3dadd(25.693, 246.493, -27.7, 0.98)
pt3dadd(25.578, 246.524, -27.713, 0.936)
pt3dadd(25.463, 246.554, -27.726, 0.892)
pt3dadd(25.348, 246.586, -27.738, 0.85)
pt3dadd(25.233, 246.616, -27.751, 0.806)
pt3dadd(25.118, 246.647, -27.764, 0.762)
pt3dadd(25.004, 246.682, -27.777, 0.75)
pt3dadd(24.891, 246.719, -27.79, 0.744)
pt3dadd(24.778, 246.756, -27.803, 0.74)
pt3dadd(24.665, 246.792, -27.816, 0.734)
pt3dadd(24.552, 246.829, -27.83, 0.73)
pt3dadd(24.443, 246.84, -27.865, 0.732)
pt3dadd(24.336, 246.84, -27.91, 0.736)
pt3dadd(24.228, 246.84, -27.955, 0.742)
pt3dadd(24.121, 246.84, -28, 0.746)
pt3dadd(24.014, 246.84, -28.045, 0.75)
pt3dadd(23.902, 246.854, -28.07, 0.764)
pt3dadd(23.786, 246.883, -28.076, 0.788)
pt3dadd(23.669, 246.912, -28.082, 0.81)
pt3dadd(23.553, 246.942, -28.088, 0.834)
pt3dadd(23.437, 246.971, -28.094, 0.856)
pt3dadd(23.321, 247, -28.1, 0.878)
pt3dadd(23.204, 247.027, -28.1, 0.888)
pt3dadd(23.087, 247.055, -28.1, 0.896)
pt3dadd(22.971, 247.082, -28.1, 0.904)
pt3dadd(22.854, 247.11, -28.1, 0.914)
pt3dadd(22.737, 247.138, -28.1, 0.922)
pt3dadd(22.621, 247.166, -28.103, 0.932)
pt3dadd(22.506, 247.196, -28.118, 0.952)
pt3dadd(22.392, 247.228, -28.133, 0.972)
pt3dadd(22.277, 247.259, -28.148, 0.992)
pt3dadd(22.163, 247.29, -28.163, 1.01)
pt3dadd(22.049, 247.32, -28.181, 1.032)
pt3dadd(21.949, 247.32, -28.233, 1.052)
pt3dadd(21.836, 247.32, -28.266, 1.04)
pt3dadd(21.722, 247.32, -28.299, 1.03)
pt3dadd(21.606, 247.32, -28.324, 1.006)
pt3dadd(21.49, 247.32, -28.348, 0.982)
pt3dadd(21.373, 247.32, -28.372, 0.956)
pt3dadd(21.257, 247.32, -28.396, 0.932)
pt3dadd(21.182, 247.32, -28.471, 0.9)
pt3dadd(21.114, 247.32, -28.553, 0.864)
pt3dadd(21.021, 247.32, -28.613, 0.862)
pt3dadd(20.918, 247.32, -28.664, 0.874)
}
}
proc shape3d_31() {
dend_5[5] { pt3dadd(20.806, 247.327, -28.691, 0.898)
pt3dadd(20.688, 247.343, -28.695, 0.938)
pt3dadd(20.569, 247.358, -28.7, 0.976)
pt3dadd(20.477, 247.402, -28.752, 1.044)
pt3dadd(20.388, 247.441, -28.808, 1.108)
pt3dadd(20.292, 247.45, -28.868, 1.128)
pt3dadd(20.197, 247.458, -28.929, 1.15)
pt3dadd(20.102, 247.466, -28.99, 1.17)
pt3dadd(20.007, 247.475, -29.05, 1.192)
pt3dadd(19.908, 247.493, -29.101, 1.202)
pt3dadd(19.8, 247.528, -29.135, 1.19)
pt3dadd(19.693, 247.562, -29.169, 1.18)
pt3dadd(19.586, 247.597, -29.203, 1.168)
pt3dadd(19.478, 247.632, -29.236, 1.158)
pt3dadd(19.371, 247.667, -29.27, 1.126)
pt3dadd(19.263, 247.702, -29.304, 1.088)
pt3dadd(19.156, 247.736, -29.338, 1.05)
pt3dadd(19.049, 247.771, -29.372, 1.01)
pt3dadd(18.939, 247.805, -29.4, 0.972)
pt3dadd(18.823, 247.832, -29.4, 0.928)
pt3dadd(18.706, 247.86, -29.4, 0.886)
pt3dadd(18.589, 247.888, -29.4, 0.842)
pt3dadd(18.472, 247.914, -29.4, 0.8)
pt3dadd(18.355, 247.942, -29.4, 0.756)
pt3dadd(18.241, 247.973, -29.407, 0.72)
pt3dadd(18.13, 248.012, -29.428, 0.7)
pt3dadd(18.019, 248.051, -29.449, 0.68)
pt3dadd(17.908, 248.09, -29.47, 0.658)
pt3dadd(17.798, 248.129, -29.49, 0.638)
pt3dadd(17.685, 248.165, -29.507, 0.638)
pt3dadd(17.571, 248.198, -29.52, 0.658)
pt3dadd(17.457, 248.232, -29.533, 0.678)
pt3dadd(17.343, 248.266, -29.546, 0.696)
pt3dadd(17.229, 248.299, -29.559, 0.716)
pt3dadd(17.117, 248.336, -29.578, 0.742)
pt3dadd(17.01, 248.377, -29.607, 0.774)
pt3dadd(16.902, 248.417, -29.636, 0.806)
pt3dadd(16.795, 248.458, -29.665, 0.84)
pt3dadd(16.688, 248.498, -29.694, 0.872)
pt3dadd(16.579, 248.542, -29.719, 0.904)
pt3dadd(16.471, 248.585, -29.743, 0.938)
pt3dadd(16.363, 248.627, -29.767, 0.97)
pt3dadd(16.254, 248.67, -29.791, 1.002)
pt3dadd(16.145, 248.711, -29.813, 1.03)
pt3dadd(16.03, 248.736, -29.83, 1.036)
pt3dadd(15.914, 248.762, -29.848, 1.04)
pt3dadd(15.799, 248.788, -29.865, 1.044)
pt3dadd(15.683, 248.813, -29.882, 1.05)
pt3dadd(15.568, 248.839, -29.899, 1.054)
pt3dadd(15.47, 248.881, -29.944, 1.06)
pt3dadd(15.373, 248.924, -29.99, 1.066)
pt3dadd(15.276, 248.968, -30.037, 1.072)
pt3dadd(15.18, 249.012, -30.084, 1.078)
pt3dadd(15.07, 249.04, -30.112, 1.074)
pt3dadd(14.954, 249.06, -30.131, 1.064)
pt3dadd(14.838, 249.08, -30.15, 1.054)
pt3dadd(14.722, 249.101, -30.169, 1.046)
pt3dadd(14.606, 249.12, -30.188, 1.036)
pt3dadd(14.489, 249.143, -30.201, 1.03)
pt3dadd(14.372, 249.168, -30.203, 1.03)
pt3dadd(14.255, 249.193, -30.205, 1.03)
pt3dadd(14.137, 249.218, -30.207, 1.03)
pt3dadd(14.02, 249.244, -30.208, 1.03)
pt3dadd(13.903, 249.269, -30.21, 1.03)
pt3dadd(13.79, 249.289, -30.233, 1.032)
pt3dadd(13.681, 249.306, -30.272, 1.038)
pt3dadd(13.571, 249.322, -30.311, 1.042)
pt3dadd(13.462, 249.338, -30.35, 1.048)
pt3dadd(13.353, 249.355, -30.388, 1.054)
pt3dadd(13.242, 249.391, -30.4, 1.068)
pt3dadd(13.13, 249.436, -30.4, 1.086)
pt3dadd(13.019, 249.48, -30.4, 1.106)
pt3dadd(12.908, 249.524, -30.4, 1.124)
pt3dadd(12.796, 249.57, -30.4, 1.142)
pt3dadd(12.683, 249.608, -30.4, 1.16)
pt3dadd(12.566, 249.636, -30.4, 1.178)
pt3dadd(12.449, 249.664, -30.4, 1.196)
pt3dadd(12.333, 249.691, -30.4, 1.212)
pt3dadd(12.216, 249.719, -30.4, 1.23)
pt3dadd(12.099, 249.745, -30.4, 1.246)
pt3dadd(11.991, 249.792, -30.403, 1.268)
pt3dadd(11.891, 249.859, -30.41, 1.294)
pt3dadd(11.791, 249.925, -30.417, 1.32)
pt3dadd(11.692, 249.991, -30.424, 1.346)
pt3dadd(11.592, 250.058, -30.431, 1.372)
pt3dadd(11.488, 250.08, -30.464, 1.426)
pt3dadd(11.373, 250.085, -30.493, 1.432)
pt3dadd(11.259, 250.091, -30.522, 1.432)
pt3dadd(11.157, 250.117, -30.566, 1.402)
pt3dadd(11.065, 250.157, -30.621, 1.352)
pt3dadd(10.973, 250.196, -30.676, 1.302)
pt3dadd(10.926, 250.272, -30.728, 1.232)
pt3dadd(10.913, 250.376, -30.776, 1.146)
pt3dadd(10.854, 250.458, -30.8, 1.064)
pt3dadd(10.75, 250.519, -30.8, 0.984)
pt3dadd(10.641, 250.56, -30.8, 0.924)
pt3dadd(10.521, 250.56, -30.8, 0.906)
pt3dadd(10.401, 250.56, -30.8, 0.89)
pt3dadd(10.281, 250.56, -30.8, 0.876)
pt3dadd(10.161, 250.56, -30.8, 0.868)
pt3dadd(10.041, 250.56, -30.8, 0.86)
pt3dadd(9.922, 250.566, -30.802, 0.854)
pt3dadd(9.803, 250.584, -30.808, 0.854)
pt3dadd(9.685, 250.602, -30.813, 0.854)
pt3dadd(9.567, 250.62, -30.819, 0.854)
pt3dadd(9.448, 250.639, -30.825, 0.854)
pt3dadd(9.33, 250.657, -30.83, 0.854)
pt3dadd(9.218, 250.685, -30.851, 0.852)
pt3dadd(9.113, 250.723, -30.888, 0.846)
pt3dadd(9.009, 250.762, -30.925, 0.84)
pt3dadd(8.905, 250.801, -30.962, 0.834)
pt3dadd(8.8, 250.84, -31, 0.828)
pt3dadd(8.695, 250.886, -31.027, 0.828)
pt3dadd(8.589, 250.933, -31.054, 0.828)
pt3dadd(8.483, 250.98, -31.08, 0.828)
pt3dadd(8.378, 251.027, -31.107, 0.828)
pt3dadd(8.29, 251.074, -31.156, 0.81)
pt3dadd(8.184, 251.112, -31.18, 0.784)
pt3dadd(8.072, 251.149, -31.196, 0.76)
pt3dadd(7.96, 251.188, -31.214, 0.742)
pt3dadd(7.849, 251.226, -31.233, 0.728)
pt3dadd(7.737, 251.264, -31.252, 0.714)
pt3dadd(7.639, 251.317, -31.276, 0.7)
pt3dadd(7.581, 251.412, -31.312, 0.686)
pt3dadd(7.512, 251.498, -31.349, 0.678)
pt3dadd(7.43, 251.574, -31.386, 0.678)
pt3dadd(7.332, 251.635, -31.4, 0.692)
pt3dadd(7.224, 251.688, -31.4, 0.714)
pt3dadd(7.113, 251.729, -31.4, 0.74)
pt3dadd(6.994, 251.749, -31.4, 0.77)
pt3dadd(6.876, 251.77, -31.4, 0.798)
pt3dadd(6.774, 251.808, -31.435, 0.818)
pt3dadd(6.675, 251.851, -31.479, 0.836)
pt3dadd(6.576, 251.896, -31.523, 0.852)
pt3dadd(6.477, 251.939, -31.567, 0.87)
pt3dadd(6.37, 251.974, -31.59, 0.876)
pt3dadd(6.253, 252.002, -31.592, 0.872)
pt3dadd(6.136, 252.03, -31.594, 0.868)
pt3dadd(6.02, 252.058, -31.596, 0.864)
pt3dadd(5.903, 252.086, -31.598, 0.86)
pt3dadd(5.786, 252.114, -31.6, 0.854)
pt3dadd(5.67, 252.145, -31.6, 0.84)
pt3dadd(5.555, 252.179, -31.6, 0.822)
pt3dadd(5.44, 252.212, -31.6, 0.804)
pt3dadd(5.324, 252.245, -31.6, 0.786)
pt3dadd(5.209, 252.278, -31.6, 0.768)
pt3dadd(5.094, 252.31, -31.604, 0.75)
pt3dadd(4.984, 252.329, -31.641, 0.718)
pt3dadd(4.874, 252.348, -31.677, 0.688)
pt3dadd(4.764, 252.366, -31.714, 0.656)
pt3dadd(4.654, 252.385, -31.751, 0.626)
pt3dadd(4.55, 252.419, -31.785, 0.596)
pt3dadd(4.459, 252.49, -31.814, 0.566)
pt3dadd(4.369, 252.562, -31.842, 0.536)
pt3dadd(4.279, 252.634, -31.871, 0.508)
pt3dadd(4.189, 252.704, -31.899, 0.478)
pt3dadd(4.084, 252.744, -31.933, 0.466)
pt3dadd(3.978, 252.782, -31.968, 0.456)
pt3dadd(3.872, 252.821, -32.002, 0.444)
pt3dadd(3.766, 252.858, -32.036, 0.434)
pt3dadd(3.657, 252.887, -32.072, 0.43)
pt3dadd(3.547, 252.904, -32.108, 0.434)
pt3dadd(3.436, 252.919, -32.144, 0.44)
pt3dadd(3.325, 252.936, -32.18, 0.444)
pt3dadd(3.214, 252.952, -32.215, 0.45)
pt3dadd(3.106, 252.986, -32.24, 0.458)
pt3dadd(3, 253.04, -32.254, 0.468)
pt3dadd(2.893, 253.093, -32.268, 0.478)
pt3dadd(2.787, 253.146, -32.282, 0.488)
pt3dadd(2.681, 253.199, -32.296, 0.5)
pt3dadd(2.57, 253.244, -32.302, 0.506)
pt3dadd(2.458, 253.288, -32.304, 0.51)
pt3dadd(2.346, 253.33, -32.306, 0.516)
pt3dadd(2.233, 253.372, -32.308, 0.52)
pt3dadd(2.121, 253.415, -32.31, 0.524)
pt3dadd(2.01, 253.447, -32.327, 0.528)
pt3dadd(1.902, 253.468, -32.366, 0.528)
pt3dadd(1.794, 253.487, -32.405, 0.528)
pt3dadd(1.685, 253.506, -32.445, 0.528)
pt3dadd(1.576, 253.526, -32.484, 0.528)
pt3dadd(1.475, 253.573, -32.514, 0.528)
pt3dadd(1.379, 253.639, -32.536, 0.528)
pt3dadd(1.282, 253.705, -32.559, 0.528)
pt3dadd(1.186, 253.772, -32.581, 0.528)
pt3dadd(1.09, 253.84, -32.604, 0.528)
pt3dadd(0.999, 253.913, -32.627, 0.534)
pt3dadd(0.908, 253.985, -32.65, 0.54)
pt3dadd(0.817, 254.058, -32.672, 0.546)
pt3dadd(0.726, 254.131, -32.695, 0.552)
pt3dadd(0.618, 254.18, -32.7, 0.59)
pt3dadd(0.528, 254.242, -32.7, 0.64)
pt3dadd(0.508, 254.359, -32.7, 0.688)
pt3dadd(0.487, 254.478, -32.7, 0.736)
pt3dadd(0.458, 254.593, -32.703, 0.774)
pt3dadd(0.423, 254.708, -32.708, 0.806)
pt3dadd(0.375, 254.803, -32.731, 0.824)
pt3dadd(0.299, 254.857, -32.795, 0.81)
pt3dadd(0.223, 254.892, -32.865, 0.766)
pt3dadd(0.147, 254.912, -32.94, 0.702)
pt3dadd(0.077, 254.977, -32.991, 0.55)
}
}
proc shape3d_32() {
dend_5[5] { pt3dadd(0.001, 255.053, -33.035, 0.522)
pt3dadd(-0.073, 255.132, -33.079, 0.502)
pt3dadd(-0.141, 255.218, -33.12, 0.502)
pt3dadd(-0.208, 255.304, -33.162, 0.502)
pt3dadd(-0.272, 255.396, -33.185, 0.506)
pt3dadd(-0.328, 255.5, -33.173, 0.52)
pt3dadd(-0.408, 255.571, -33.153, 0.522)
pt3dadd(-0.519, 255.598, -33.12, 0.51)
pt3dadd(-0.629, 255.631, -33.1, 0.502)
pt3dadd(-0.74, 255.678, -33.1, 0.502)
pt3dadd(-0.85, 255.725, -33.101, 0.504)
pt3dadd(-0.96, 255.773, -33.105, 0.514)
pt3dadd(-1.069, 255.822, -33.111, 0.526)
pt3dadd(-1.187, 255.835, -33.125, 0.546)
pt3dadd(-1.305, 255.845, -33.14, 0.568)
pt3dadd(-1.423, 255.853, -33.156, 0.59)
pt3dadd(-1.541, 255.863, -33.171, 0.612)
pt3dadd(-1.659, 255.871, -33.187, 0.634)
pt3dadd(-1.778, 255.882, -33.2, 0.656)
pt3dadd(-1.897, 255.894, -33.2, 0.68)
pt3dadd(-2.016, 255.907, -33.2, 0.704)
pt3dadd(-2.136, 255.919, -33.2, 0.728)
pt3dadd(-2.255, 255.932, -33.2, 0.75)
pt3dadd(-2.374, 255.944, -33.2, 0.774)
pt3dadd(-2.494, 255.958, -33.2, 0.798)
pt3dadd(-2.612, 255.976, -33.2, 0.822)
pt3dadd(-2.731, 255.995, -33.2, 0.848)
pt3dadd(-2.849, 256.015, -33.2, 0.872)
pt3dadd(-2.967, 256.034, -33.2, 0.898)
pt3dadd(-3.086, 256.055, -33.2, 0.922)
pt3dadd(-3.204, 256.074, -33.2, 0.946)
pt3dadd(-3.32, 256.103, -33.2, 0.964)
pt3dadd(-3.436, 256.136, -33.2, 0.976)
pt3dadd(-3.551, 256.169, -33.2, 0.99)
pt3dadd(-3.666, 256.202, -33.2, 1.004)
pt3dadd(-3.782, 256.235, -33.2, 1.016)
pt3dadd(-3.897, 256.267, -33.2, 1.03)
pt3dadd(-4.017, 256.276, -33.2, 1.026)
pt3dadd(-4.137, 256.284, -33.2, 1.022)
pt3dadd(-4.257, 256.291, -33.2, 1.018)
pt3dadd(-4.376, 256.3, -33.2, 1.014)
pt3dadd(-4.496, 256.308, -33.2, 1.01)
pt3dadd(-4.616, 256.315, -33.2, 1.006)
pt3dadd(-4.736, 256.32, -33.2, 0.982)
pt3dadd(-4.856, 256.32, -33.2, 0.93)
pt3dadd(-4.976, 256.32, -33.2, 0.88)
pt3dadd(-5.096, 256.32, -33.2, 0.83)
pt3dadd(-5.216, 256.32, -33.2, 0.78)
pt3dadd(-5.332, 256.338, -33.2, 0.738)
pt3dadd(-5.446, 256.378, -33.2, 0.706)
pt3dadd(-5.554, 256.424, -33.2, 0.68)
pt3dadd(-5.622, 256.524, -33.2, 0.704)
pt3dadd(-5.69, 256.622, -33.2, 0.728)
pt3dadd(-5.777, 256.705, -33.2, 0.796)
pt3dadd(-5.865, 256.786, -33.2, 0.866)
pt3dadd(-5.933, 256.879, -33.222, 0.946)
pt3dadd(-5.986, 256.958, -33.276, 0.98)
pt3dadd(-6.03, 257.026, -33.351, 0.98)
pt3dadd(-6.123, 257.082, -33.38, 0.94)
pt3dadd(-6.229, 257.135, -33.396, 0.89)
pt3dadd(-6.333, 257.194, -33.4, 0.862)
pt3dadd(-6.436, 257.255, -33.4, 0.838)
pt3dadd(-6.534, 257.323, -33.4, 0.822)
pt3dadd(-6.628, 257.398, -33.4, 0.81)
pt3dadd(-6.732, 257.447, -33.409, 0.808)
pt3dadd(-6.848, 257.461, -33.43, 0.818)
pt3dadd(-6.965, 257.476, -33.45, 0.826)
pt3dadd(-7.081, 257.491, -33.471, 0.836)
pt3dadd(-7.198, 257.506, -33.492, 0.846)
pt3dadd(-7.308, 257.521, -33.517, 0.856)
pt3dadd(-7.326, 257.548, -33.614, 0.89)
pt3dadd(-7.377, 257.609, -33.669, 0.92)
pt3dadd(-7.456, 257.694, -33.693, 0.946)
pt3dadd(-7.563, 257.731, -33.703, 0.954)
pt3dadd(-7.682, 257.747, -33.707, 0.954)
pt3dadd(-7.797, 257.76, -33.719, 0.952)
pt3dadd(-7.885, 257.76, -33.787, 0.928)
pt3dadd(-7.972, 257.76, -33.855, 0.904)
pt3dadd(-8.091, 257.76, -33.873, 0.876)
pt3dadd(-8.209, 257.76, -33.89, 0.846)
pt3dadd(-8.323, 257.771, -33.914, 0.824)
pt3dadd(-8.432, 257.8, -33.95, 0.814)
pt3dadd(-8.54, 257.828, -33.986, 0.802)
pt3dadd(-8.648, 257.857, -34.021, 0.792)
pt3dadd(-8.757, 257.886, -34.057, 0.782)
pt3dadd(-8.861, 257.93, -34.089, 0.774)
pt3dadd(-8.963, 257.982, -34.119, 0.768)
pt3dadd(-9.066, 258.032, -34.149, 0.762)
pt3dadd(-9.168, 258.084, -34.179, 0.758)
pt3dadd(-9.271, 258.136, -34.206, 0.754)
pt3dadd(-9.377, 258.187, -34.225, 0.754)
pt3dadd(-9.483, 258.239, -34.244, 0.754)
pt3dadd(-9.589, 258.29, -34.263, 0.754)
pt3dadd(-9.695, 258.342, -34.282, 0.754)
pt3dadd(-9.81, 258.36, -34.29, 0.754)
pt3dadd(-9.93, 258.36, -34.292, 0.754)
pt3dadd(-10.05, 258.36, -34.293, 0.754)
pt3dadd(-10.17, 258.36, -34.295, 0.754)
pt3dadd(-10.29, 258.36, -34.296, 0.754)
pt3dadd(-10.41, 258.36, -34.298, 0.754)
pt3dadd(-10.53, 258.36, -34.3, 0.754)
pt3dadd(-10.645, 258.378, -34.32, 0.75)
pt3dadd(-10.758, 258.402, -34.347, 0.744)
pt3dadd(-10.871, 258.426, -34.374, 0.74)
pt3dadd(-10.984, 258.451, -34.401, 0.734)
pt3dadd(-11.097, 258.475, -34.428, 0.73)
pt3dadd(-11.211, 258.48, -34.457, 0.722)
pt3dadd(-11.325, 258.48, -34.487, 0.712)
pt3dadd(-11.44, 258.48, -34.517, 0.704)
pt3dadd(-11.554, 258.48, -34.546, 0.694)
pt3dadd(-11.669, 258.48, -34.576, 0.686)
pt3dadd(-11.783, 258.48, -34.608, 0.678)
pt3dadd(-11.894, 258.48, -34.645, 0.672)
pt3dadd(-12.006, 258.48, -34.682, 0.668)
pt3dadd(-12.117, 258.48, -34.719, 0.664)
pt3dadd(-12.229, 258.48, -34.756, 0.658)
pt3dadd(-12.34, 258.48, -34.793, 0.654)
pt3dadd(-12.458, 258.48, -34.8, 0.674)
pt3dadd(-12.578, 258.468, -34.8, 0.708)
pt3dadd(-12.697, 258.454, -34.8, 0.746)
pt3dadd(-12.814, 258.433, -34.8, 0.784)
pt3dadd(-12.918, 258.373, -34.8, 0.826)
pt3dadd(-13.023, 258.314, -34.8, 0.87)
pt3dadd(-13.126, 258.253, -34.8, 0.916)
pt3dadd(-13.225, 258.185, -34.8, 0.974)
pt3dadd(-13.321, 258.115, -34.8, 1.03)
pt3dadd(-13.357, 258.001, -34.809, 1.058)
pt3dadd(-13.392, 257.887, -34.818, 1.084)
pt3dadd(-13.428, 257.773, -34.827, 1.112)
pt3dadd(-13.474, 257.684, -34.856, 1.134)
pt3dadd(-13.545, 257.657, -34.933, 1.148)
pt3dadd(-13.611, 257.622, -35.011, 1.15)
pt3dadd(-13.67, 257.578, -35.09, 1.136)
pt3dadd(-13.758, 257.548, -35.145, 1.116)
pt3dadd(-13.868, 257.53, -35.182, 1.092)
pt3dadd(-13.983, 257.52, -35.2, 1.08)
pt3dadd(-14.103, 257.52, -35.2, 1.08)
pt3dadd(-14.223, 257.52, -35.2, 1.08)
pt3dadd(-14.343, 257.52, -35.203, 1.094)
pt3dadd(-14.463, 257.52, -35.209, 1.12)
pt3dadd(-14.55, 257.507, -35.262, 1.138)
pt3dadd(-14.619, 257.486, -35.342, 1.152)
pt3dadd(-14.692, 257.449, -35.414, 1.136)
pt3dadd(-14.767, 257.404, -35.483, 1.108)
pt3dadd(-14.883, 257.4, -35.492, 1.09)
pt3dadd(-15.002, 257.4, -35.496, 1.072)
pt3dadd(-15.122, 257.4, -35.5, 1.054)
pt3dadd(-15.242, 257.4, -35.5, 1.054)
pt3dadd(-15.362, 257.4, -35.5, 1.054)
pt3dadd(-15.482, 257.4, -35.5, 1.054)
pt3dadd(-15.602, 257.4, -35.502, 1.062)
pt3dadd(-15.722, 257.4, -35.503, 1.07)
pt3dadd(-15.842, 257.4, -35.505, 1.076)
pt3dadd(-15.962, 257.4, -35.507, 1.084)
pt3dadd(-16.082, 257.4, -35.508, 1.092)
pt3dadd(-16.202, 257.4, -35.51, 1.098)
pt3dadd(-16.32, 257.4, -35.518, 1.104)
pt3dadd(-16.423, 257.398, -35.569, 1.094)
pt3dadd(-16.527, 257.394, -35.619, 1.084)
pt3dadd(-16.63, 257.392, -35.67, 1.074)
pt3dadd(-16.733, 257.389, -35.721, 1.064)
pt3dadd(-16.837, 257.382, -35.769, 1.046)
pt3dadd(-16.94, 257.329, -35.795, 0.948)
pt3dadd(-17.056, 257.308, -35.8, 0.892)
pt3dadd(-17.175, 257.293, -35.8, 0.844)
pt3dadd(-17.295, 257.28, -35.8, 0.804)
pt3dadd(-17.415, 257.28, -35.8, 0.804)
pt3dadd(-17.535, 257.28, -35.8, 0.804)
pt3dadd(-17.653, 257.273, -35.8, 0.81)
pt3dadd(-17.756, 257.212, -35.8, 0.854)
pt3dadd(-17.86, 257.152, -35.8, 0.9)
pt3dadd(-17.91, 257.044, -35.8, 0.944)
pt3dadd(-17.957, 256.933, -35.8, 0.988)
pt3dadd(-18.042, 256.859, -35.8, 1.008)
pt3dadd(-18.149, 256.805, -35.8, 1.012)
pt3dadd(-18.257, 256.752, -35.8, 1.018)
pt3dadd(-18.364, 256.698, -35.8, 1.022)
pt3dadd(-18.471, 256.644, -35.8, 1.026)
pt3dadd(-18.579, 256.59, -35.8, 0.986)
pt3dadd(-18.694, 256.567, -35.8, 0.93)
pt3dadd(-18.814, 256.558, -35.8, 0.894)
pt3dadd(-18.934, 256.548, -35.8, 0.858)
pt3dadd(-19.026, 256.49, -35.836, 0.824)
pt3dadd(-19.116, 256.428, -35.878, 0.79)
pt3dadd(-19.206, 256.366, -35.919, 0.756)
pt3dadd(-19.278, 256.334, -35.993, 0.728)
pt3dadd(-19.35, 256.304, -36.068, 0.702)
pt3dadd(-19.445, 256.246, -36.105, 0.688)
pt3dadd(-19.529, 256.177, -36.141, 0.684)
pt3dadd(-19.571, 256.073, -36.175, 0.71)
pt3dadd(-19.609, 255.965, -36.2, 0.738)
pt3dadd(-19.643, 255.85, -36.2, 0.768)
pt3dadd(-19.676, 255.734, -36.2, 0.8)
pt3dadd(-19.695, 255.632, -36.246, 0.822)
pt3dadd(-19.712, 255.532, -36.299, 0.844)
pt3dadd(-19.73, 255.431, -36.351, 0.866)
pt3dadd(-19.747, 255.331, -36.404, 0.888)
pt3dadd(-19.768, 255.228, -36.452, 0.904)
pt3dadd(-19.803, 255.121, -36.486, 0.904)
pt3dadd(-19.838, 255.013, -36.52, 0.904)
}
}
proc shape3d_33() {
dend_5[5] { pt3dadd(-19.873, 254.906, -36.554, 0.904)
pt3dadd(-19.907, 254.798, -36.588, 0.904)
pt3dadd(-19.929, 254.684, -36.6, 0.868)
pt3dadd(-19.978, 254.576, -36.6, 0.828)
pt3dadd(-20.039, 254.473, -36.6, 0.794)
pt3dadd(-20.122, 254.392, -36.6, 0.768)
pt3dadd(-20.224, 254.327, -36.6, 0.752)
pt3dadd(-20.325, 254.263, -36.6, 0.734)
pt3dadd(-20.435, 254.219, -36.6, 0.714)
pt3dadd(-20.551, 254.185, -36.6, 0.694)
pt3dadd(-20.665, 254.16, -36.608, 0.676)
pt3dadd(-20.776, 254.16, -36.646, 0.662)
pt3dadd(-20.888, 254.16, -36.684, 0.648)
pt3dadd(-20.999, 254.16, -36.721, 0.636)
pt3dadd(-21.099, 254.16, -36.773, 0.632)
pt3dadd(-21.18, 254.16, -36.846, 0.644)
pt3dadd(-21.268, 254.155, -36.912, 0.666)
pt3dadd(-21.374, 254.135, -36.956, 0.716)
pt3dadd(-21.476, 254.101, -36.99, 0.766)
pt3dadd(-21.567, 254.023, -36.996, 0.814)
pt3dadd(-21.662, 253.955, -37.003, 0.858)
pt3dadd(-21.779, 253.932, -37.017, 0.88)
pt3dadd(-21.895, 253.909, -37.032, 0.902)
pt3dadd(-21.99, 253.853, -37.069, 0.91)
pt3dadd(-22.082, 253.793, -37.109, 0.916)
pt3dadd(-22.174, 253.732, -37.148, 0.922)
pt3dadd(-22.266, 253.672, -37.188, 0.928)
pt3dadd(-22.35, 253.596, -37.216, 1.008)
pt3dadd(-22.401, 253.546, -37.296, 1.064)
pt3dadd(-22.451, 253.486, -37.371, 1.116)
pt3dadd(-22.496, 253.402, -37.431, 1.158)
pt3dadd(-22.541, 253.318, -37.492, 1.2)
pt3dadd(-22.619, 253.26, -37.549, 1.242)
pt3dadd(-22.704, 253.213, -37.606, 1.284)
pt3dadd(-22.803, 253.21, -37.663, 1.304)
pt3dadd(-22.901, 253.205, -37.72, 1.326)
pt3dadd(-23, 253.201, -37.777, 1.348)
pt3dadd(-23.062, 253.189, -37.856, 1.364)
pt3dadd(-23.1, 253.17, -37.949, 1.374)
pt3dadd(-23.155, 253.14, -38.032, 1.374)
pt3dadd(-23.229, 253.094, -38.1, 1.36)
pt3dadd(-23.328, 253.067, -38.148, 1.34)
pt3dadd(-23.437, 253.048, -38.185, 1.316)
pt3dadd(-23.522, 252.98, -38.2, 1.306)
pt3dadd(-23.589, 252.881, -38.2, 1.306)
pt3dadd(-23.634, 252.774, -38.206, 1.278)
pt3dadd(-23.69, 252.684, -38.24, 1.218)
pt3dadd(-23.766, 252.607, -38.285, 1.16)
pt3dadd(-23.87, 252.6, -38.329, 1.094)
pt3dadd(-23.977, 252.6, -38.374, 1.026)
pt3dadd(-24.085, 252.6, -38.419, 0.96)
pt3dadd(-24.152, 252.594, -38.5, 0.888)
pt3dadd(-24.215, 252.588, -38.585, 0.816)
pt3dadd(-24.28, 252.558, -38.665, 0.764)
pt3dadd(-24.345, 252.524, -38.744, 0.714)
pt3dadd(-24.409, 252.49, -38.823, 0.666)
pt3dadd(-24.491, 252.48, -38.894, 0.618)
pt3dadd(-24.579, 252.48, -38.962, 0.57)
pt3dadd(-24.686, 252.48, -38.991, 0.542)
pt3dadd(-24.806, 252.48, -38.995, 0.524)
pt3dadd(-24.926, 252.48, -38.999, 0.508)
pt3dadd(-25.046, 252.48, -39, 0.508)
pt3dadd(-25.166, 252.48, -39, 0.516)
pt3dadd(-25.286, 252.48, -39, 0.524)
pt3dadd(-25.405, 252.48, -38.991, 0.548)
pt3dadd(-25.524, 252.48, -38.979, 0.576)
pt3dadd(-25.643, 252.48, -38.965, 0.606)
pt3dadd(-25.753, 252.48, -38.929, 0.716)
pt3dadd(-25.872, 252.48, -38.911, 0.766)
pt3dadd(-25.99, 252.48, -38.894, 0.814)
pt3dadd(-26.085, 252.475, -38.84, 0.862)
pt3dadd(-26.17, 252.469, -38.77, 0.912)
pt3dadd(-26.257, 252.437, -38.71, 0.922)
pt3dadd(-26.337, 252.349, -38.7, 0.758)
pt3dadd(-26.397, 252.246, -38.7, 0.61)
pt3dadd(-26.46, 252.154, -38.672, 0.502)
pt3dadd(-26.507, 252.12, -38.589, 0.452)
pt3dadd(-26.52, 252.12, -38.49, 0.452)
pt3dadd(-26.52, 252.121, -38.39, 0.452)
pt3dadd(-26.52, 252.144, -38.292, 0.444)
pt3dadd(-26.529, 252.22, -38.221, 0.41)
pt3dadd(-26.588, 252.316, -38.202, 0.376)
pt3dadd(-26.695, 252.356, -38.226, 0.36)
pt3dadd(-26.803, 252.36, -38.267, 0.3)
pt3dadd(-26.92, 252.36, -38.292, 0.252)
pt3dadd(-27.039, 252.36, -38.3, 0.268)
pt3dadd(-27.159, 252.36, -38.304, 0.338)
pt3dadd(-27.273, 252.36, -38.33, 0.46)
pt3dadd(-27.343, 252.36, -38.405, 0.572)
pt3dadd(-27.36, 252.36, -38.504, 0.602)
pt3dadd(-27.36, 252.36, -38.604, 0.604)
pt3dadd(-27.36, 252.36, -38.704, 0.628)
pt3dadd(-27.359, 252.36, -38.804, 0.652)
pt3dadd(-27.342, 252.36, -38.903, 0.644)
pt3dadd(-27.302, 252.36, -38.997, 0.568)
pt3dadd(-27.258, 252.371, -39.089, 0.486)
pt3dadd(-27.235, 252.436, -39.167, 0.452)
pt3dadd(-27.174, 252.522, -39.18, 0.432)
pt3dadd(-27.068, 252.544, -39.144, 0.388)
pt3dadd(-26.964, 252.529, -39.097, 0.336)
pt3dadd(-26.862, 252.504, -39.049, 0.28)
pt3dadd(-26.76, 252.48, -39, 0.226)
}
dend_5[6] {pt3dclear()
pt3dadd(55.586, 221.68, -15.089, 2.586)
pt3dadd(55.633, 221.692, -15.116, 2.542)
pt3dadd(55.731, 221.716, -15.171, 2.45)
pt3dadd(55.827, 221.74, -15.226, 2.358)
pt3dadd(55.925, 221.764, -15.282, 2.266)
pt3dadd(56.022, 221.788, -15.337, 2.174)
pt3dadd(56.119, 221.812, -15.392, 2.082)
pt3dadd(56.216, 221.836, -15.448, 1.99)
pt3dadd(56.313, 221.86, -15.503, 1.898)
pt3dadd(56.41, 221.884, -15.558, 1.806)
pt3dadd(56.507, 221.908, -15.613, 1.714)
pt3dadd(56.604, 221.933, -15.669, 1.622)
pt3dadd(56.701, 221.957, -15.724, 1.53)
pt3dadd(56.798, 221.981, -15.78, 1.438)
pt3dadd(56.895, 222.005, -15.835, 1.346)
pt3dadd(56.992, 222.029, -15.89, 1.254)
pt3dadd(57.089, 222.053, -15.945, 1.162)
pt3dadd(57.186, 222.077, -16.001, 1.07)
pt3dadd(57.283, 222.101, -16.056, 0.978)
pt3dadd(57.364, 222.144, -16.1, 0.91)
pt3dadd(57.381, 222.263, -16.1, 0.938)
pt3dadd(57.398, 222.382, -16.1, 0.966)
pt3dadd(57.415, 222.5, -16.1, 0.996)
pt3dadd(57.433, 222.619, -16.1, 1.024)
pt3dadd(57.45, 222.738, -16.1, 1.052)
pt3dadd(57.468, 222.857, -16.1, 1.08)
pt3dadd(57.49, 222.974, -16.1, 1.076)
pt3dadd(57.512, 223.093, -16.1, 1.072)
pt3dadd(57.534, 223.211, -16.1, 1.068)
pt3dadd(57.556, 223.328, -16.1, 1.062)
pt3dadd(57.579, 223.446, -16.1, 1.058)
pt3dadd(57.602, 223.564, -16.1, 1.054)
pt3dadd(57.659, 223.669, -16.1, 1.024)
pt3dadd(57.715, 223.776, -16.1, 0.996)
pt3dadd(57.772, 223.882, -16.1, 0.966)
pt3dadd(57.829, 223.987, -16.1, 0.936)
pt3dadd(57.885, 224.093, -16.1, 0.908)
pt3dadd(57.921, 224.207, -16.1, 0.884)
pt3dadd(57.954, 224.322, -16.1, 0.862)
pt3dadd(57.988, 224.437, -16.1, 0.84)
pt3dadd(58.021, 224.554, -16.1, 0.818)
pt3dadd(58.054, 224.669, -16.1, 0.796)
pt3dadd(58.083, 224.784, -16.1, 0.778)
pt3dadd(58.098, 224.904, -16.1, 0.778)
pt3dadd(58.113, 225.023, -16.1, 0.778)
pt3dadd(58.128, 225.142, -16.1, 0.778)
pt3dadd(58.143, 225.26, -16.1, 0.778)
pt3dadd(58.158, 225.38, -16.1, 0.778)
pt3dadd(58.173, 225.499, -16.1, 0.778)
pt3dadd(58.204, 225.602, -16.142, 0.8)
pt3dadd(58.237, 225.704, -16.187, 0.822)
pt3dadd(58.27, 225.806, -16.232, 0.844)
pt3dadd(58.303, 225.908, -16.277, 0.868)
pt3dadd(58.324, 226.016, -16.314, 0.886)
pt3dadd(58.331, 226.13, -16.343, 0.9)
pt3dadd(58.338, 226.246, -16.372, 0.914)
pt3dadd(58.346, 226.36, -16.402, 0.928)
pt3dadd(58.353, 226.475, -16.431, 0.942)
pt3dadd(58.365, 226.589, -16.457, 0.956)
pt3dadd(58.407, 226.7, -16.465, 0.966)
pt3dadd(58.449, 226.813, -16.474, 0.976)
pt3dadd(58.491, 226.925, -16.483, 0.984)
pt3dadd(58.532, 227.036, -16.491, 0.994)
pt3dadd(58.575, 227.148, -16.5, 1.004)
pt3dadd(58.648, 227.242, -16.515, 1.016)
pt3dadd(58.721, 227.335, -16.529, 1.026)
pt3dadd(58.794, 227.429, -16.544, 1.038)
pt3dadd(58.867, 227.522, -16.559, 1.048)
pt3dadd(58.919, 227.626, -16.577, 1.06)
pt3dadd(58.945, 227.74, -16.599, 1.07)
pt3dadd(58.972, 227.854, -16.621, 1.08)
pt3dadd(58.998, 227.968, -16.643, 1.09)
pt3dadd(59.025, 228.082, -16.665, 1.1)
pt3dadd(59.052, 228.192, -16.696, 1.11)
pt3dadd(59.082, 228.296, -16.737, 1.12)
pt3dadd(59.111, 228.402, -16.778, 1.132)
pt3dadd(59.14, 228.508, -16.82, 1.142)
pt3dadd(59.169, 228.612, -16.861, 1.154)
pt3dadd(59.23, 228.708, -16.894, 1.166)
pt3dadd(59.295, 228.802, -16.925, 1.178)
pt3dadd(59.36, 228.895, -16.956, 1.188)
pt3dadd(59.426, 228.988, -16.987, 1.2)
pt3dadd(59.497, 229.069, -17.029, 1.216)
pt3dadd(59.572, 229.141, -17.078, 1.234)
pt3dadd(59.648, 229.213, -17.127, 1.254)
pt3dadd(59.724, 229.285, -17.176, 1.272)
pt3dadd(59.789, 229.374, -17.212, 1.284)
pt3dadd(59.845, 229.476, -17.234, 1.29)
pt3dadd(59.901, 229.579, -17.255, 1.294)
pt3dadd(59.956, 229.682, -17.278, 1.3)
pt3dadd(60.012, 229.786, -17.3, 1.306)
pt3dadd(60.091, 229.871, -17.323, 1.3)
pt3dadd(60.171, 229.956, -17.346, 1.294)
pt3dadd(60.25, 230.042, -17.368, 1.288)
pt3dadd(60.33, 230.128, -17.391, 1.284)
pt3dadd(60.369, 230.234, -17.4, 1.264)
pt3dadd(60.384, 230.353, -17.4, 1.236)
pt3dadd(60.399, 230.472, -17.4, 1.208)
}
}
proc shape3d_34() {
dend_5[6] { pt3dadd(60.476, 230.562, -17.4, 1.194)
pt3dadd(60.558, 230.65, -17.4, 1.182)
pt3dadd(60.657, 230.716, -17.4, 1.19)
pt3dadd(60.761, 230.777, -17.4, 1.2)
pt3dadd(60.858, 230.846, -17.4, 1.228)
pt3dadd(60.951, 230.922, -17.4, 1.262)
pt3dadd(61.049, 230.992, -17.4, 1.298)
pt3dadd(61.149, 231.055, -17.401, 1.332)
pt3dadd(61.22, 231.142, -17.438, 1.338)
pt3dadd(61.29, 231.228, -17.476, 1.344)
pt3dadd(61.36, 231.314, -17.513, 1.35)
pt3dadd(61.43, 231.401, -17.551, 1.356)
pt3dadd(61.514, 231.485, -17.564, 1.352)
pt3dadd(61.6, 231.568, -17.573, 1.346)
pt3dadd(61.686, 231.65, -17.583, 1.34)
pt3dadd(61.771, 231.734, -17.592, 1.336)
pt3dadd(61.858, 231.817, -17.6, 1.328)
pt3dadd(61.947, 231.898, -17.6, 1.318)
pt3dadd(62.035, 231.978, -17.6, 1.308)
pt3dadd(62.124, 232.058, -17.6, 1.298)
pt3dadd(62.213, 232.139, -17.6, 1.288)
pt3dadd(62.307, 232.212, -17.6, 1.278)
pt3dadd(62.416, 232.264, -17.6, 1.262)
pt3dadd(62.525, 232.314, -17.6, 1.248)
pt3dadd(62.634, 232.364, -17.6, 1.234)
pt3dadd(62.742, 232.415, -17.6, 1.22)
pt3dadd(62.851, 232.465, -17.6, 1.206)
pt3dadd(62.92, 232.564, -17.6, 1.172)
pt3dadd(62.988, 232.662, -17.6, 1.136)
pt3dadd(63.056, 232.762, -17.6, 1.112)
pt3dadd(63.123, 232.86, -17.6, 1.088)
pt3dadd(63.205, 232.948, -17.6, 1.064)
pt3dadd(63.293, 233.029, -17.6, 1.04)
pt3dadd(63.395, 233.088, -17.6, 1.024)
pt3dadd(63.508, 233.128, -17.6, 1.014)
pt3dadd(63.622, 233.16, -17.6, 1)
pt3dadd(63.742, 233.16, -17.6, 0.974)
pt3dadd(63.861, 233.168, -17.6, 0.954)
pt3dadd(63.972, 233.213, -17.6, 0.948)
pt3dadd(64.083, 233.257, -17.6, 0.944)
pt3dadd(64.195, 233.302, -17.6, 0.94)
pt3dadd(64.306, 233.346, -17.6, 0.934)
pt3dadd(64.418, 233.392, -17.6, 0.93)
pt3dadd(64.531, 233.432, -17.6, 0.93)
pt3dadd(64.644, 233.472, -17.6, 0.93)
pt3dadd(64.727, 233.542, -17.61, 0.946)
pt3dadd(64.774, 233.648, -17.632, 0.984)
pt3dadd(64.802, 233.717, -17.689, 1.022)
pt3dadd(64.808, 233.738, -17.787, 1.064)
pt3dadd(64.813, 233.759, -17.886, 1.104)
pt3dadd(64.895, 233.766, -17.957, 1.128)
pt3dadd(64.98, 233.773, -18.028, 1.154)
pt3dadd(65.072, 233.839, -18.053, 1.148)
pt3dadd(65.165, 233.911, -18.074, 1.14)
pt3dadd(65.258, 233.983, -18.095, 1.132)
pt3dadd(65.37, 234.012, -18.103, 1.116)
pt3dadd(65.489, 234.026, -18.108, 1.096)
pt3dadd(65.594, 234.054, -18.123, 1.08)
pt3dadd(65.632, 234.138, -18.187, 1.08)
pt3dadd(65.671, 234.221, -18.252, 1.08)
pt3dadd(65.726, 234.318, -18.28, 1.09)
pt3dadd(65.787, 234.419, -18.296, 1.102)
pt3dadd(65.867, 234.508, -18.3, 1.112)
pt3dadd(65.952, 234.593, -18.3, 1.12)
pt3dadd(66.037, 234.677, -18.3, 1.13)
pt3dadd(66.154, 234.695, -18.3, 1.13)
pt3dadd(66.274, 234.709, -18.3, 1.13)
pt3dadd(66.393, 234.724, -18.3, 1.13)
pt3dadd(66.507, 234.751, -18.308, 1.13)
pt3dadd(66.613, 234.8, -18.33, 1.13)
pt3dadd(66.72, 234.85, -18.351, 1.13)
pt3dadd(66.826, 234.899, -18.373, 1.13)
pt3dadd(66.933, 234.948, -18.395, 1.13)
pt3dadd(67.028, 235.018, -18.4, 1.13)
pt3dadd(67.119, 235.096, -18.4, 1.13)
pt3dadd(67.211, 235.174, -18.4, 1.13)
pt3dadd(67.302, 235.252, -18.4, 1.13)
pt3dadd(67.393, 235.33, -18.4, 1.13)
pt3dadd(67.482, 235.41, -18.4, 1.13)
pt3dadd(67.569, 235.493, -18.4, 1.13)
pt3dadd(67.677, 235.534, -18.4, 1.13)
pt3dadd(67.795, 235.554, -18.4, 1.13)
pt3dadd(67.911, 235.578, -18.402, 1.13)
pt3dadd(67.986, 235.661, -18.44, 1.116)
pt3dadd(68.042, 235.752, -18.475, 1.098)
pt3dadd(68.047, 235.866, -18.503, 1.078)
pt3dadd(68.053, 235.981, -18.532, 1.056)
pt3dadd(68.123, 236.016, -18.605, 1.04)
pt3dadd(68.196, 236.045, -18.68, 1.024)
pt3dadd(68.269, 236.075, -18.755, 1.006)
pt3dadd(68.373, 236.118, -18.78, 1.004)
pt3dadd(68.482, 236.164, -18.796, 1.004)
pt3dadd(68.557, 236.252, -18.8, 1.024)
pt3dadd(68.621, 236.353, -18.8, 1.05)
pt3dadd(68.685, 236.455, -18.8, 1.076)
pt3dadd(68.79, 236.508, -18.8, 1.1)
pt3dadd(68.901, 236.554, -18.8, 1.12)
pt3dadd(68.982, 236.633, -18.81, 1.152)
pt3dadd(69.031, 236.74, -18.829, 1.146)
pt3dadd(69.079, 236.846, -18.847, 1.134)
pt3dadd(69.128, 236.954, -18.866, 1.124)
pt3dadd(69.176, 237.062, -18.885, 1.114)
pt3dadd(69.233, 237.163, -18.905, 1.104)
pt3dadd(69.321, 237.239, -18.928, 1.104)
pt3dadd(69.409, 237.316, -18.951, 1.104)
pt3dadd(69.498, 237.392, -18.974, 1.104)
pt3dadd(69.586, 237.468, -18.997, 1.104)
pt3dadd(69.652, 237.552, -19.041, 1.104)
pt3dadd(69.714, 237.636, -19.09, 1.104)
pt3dadd(69.776, 237.721, -19.139, 1.104)
pt3dadd(69.837, 237.805, -19.188, 1.104)
pt3dadd(69.928, 237.868, -19.223, 1.104)
pt3dadd(70.028, 237.923, -19.253, 1.104)
pt3dadd(70.129, 237.977, -19.283, 1.104)
pt3dadd(70.229, 238.032, -19.314, 1.104)
pt3dadd(70.329, 238.085, -19.346, 1.096)
pt3dadd(70.43, 238.135, -19.382, 1.068)
pt3dadd(70.537, 238.177, -19.402, 1.044)
pt3dadd(70.652, 238.212, -19.407, 1.022)
pt3dadd(70.753, 238.255, -19.421, 1.004)
pt3dadd(70.79, 238.343, -19.482, 1.004)
pt3dadd(70.831, 238.433, -19.537, 1.014)
pt3dadd(70.883, 238.529, -19.58, 1.042)
pt3dadd(70.943, 238.626, -19.6, 1.068)
pt3dadd(71.011, 238.724, -19.6, 1.09)
pt3dadd(71.098, 238.793, -19.6, 1.116)
pt3dadd(71.217, 238.8, -19.6, 1.118)
pt3dadd(71.337, 238.8, -19.606, 1.078)
pt3dadd(71.454, 238.8, -19.627, 1)
pt3dadd(71.563, 238.8, -19.667, 0.956)
pt3dadd(71.679, 238.805, -19.69, 0.982)
pt3dadd(71.797, 238.825, -19.694, 0.994)
pt3dadd(71.916, 238.846, -19.697, 1.008)
pt3dadd(72.034, 238.866, -19.701, 1.02)
pt3dadd(72.152, 238.886, -19.705, 1.034)
pt3dadd(72.27, 238.907, -19.709, 1.046)
pt3dadd(72.387, 238.924, -19.722, 1.058)
pt3dadd(72.501, 238.933, -19.751, 1.068)
pt3dadd(72.615, 238.944, -19.781, 1.078)
pt3dadd(72.729, 238.954, -19.81, 1.086)
pt3dadd(72.843, 238.963, -19.84, 1.096)
pt3dadd(72.957, 238.978, -19.869, 1.106)
pt3dadd(73.063, 239.027, -19.89, 1.11)
pt3dadd(73.17, 239.075, -19.912, 1.116)
pt3dadd(73.276, 239.124, -19.934, 1.122)
pt3dadd(73.383, 239.173, -19.955, 1.128)
pt3dadd(73.48, 239.226, -19.989, 1.13)
pt3dadd(73.568, 239.285, -20.038, 1.13)
pt3dadd(73.655, 239.342, -20.086, 1.13)
pt3dadd(73.742, 239.401, -20.135, 1.13)
pt3dadd(73.834, 239.46, -20.172, 1.138)
pt3dadd(73.936, 239.521, -20.189, 1.164)
pt3dadd(74.034, 239.587, -20.2, 1.198)
pt3dadd(74.128, 239.663, -20.2, 1.244)
pt3dadd(74.224, 239.734, -20.201, 1.294)
pt3dadd(74.33, 239.789, -20.206, 1.352)
pt3dadd(74.433, 239.843, -20.218, 1.408)
pt3dadd(74.501, 239.863, -20.299, 1.42)
pt3dadd(74.568, 239.892, -20.375, 1.428)
pt3dadd(74.623, 239.975, -20.432, 1.402)
pt3dadd(74.678, 240.056, -20.489, 1.376)
pt3dadd(74.725, 240.138, -20.549, 1.342)
pt3dadd(74.746, 240.222, -20.618, 1.276)
pt3dadd(74.775, 240.313, -20.67, 1.222)
pt3dadd(74.822, 240.422, -20.682, 1.196)
pt3dadd(74.869, 240.532, -20.694, 1.168)
pt3dadd(74.945, 240.617, -20.7, 1.15)
pt3dadd(75.048, 240.678, -20.7, 1.138)
pt3dadd(75.143, 240.749, -20.7, 1.13)
pt3dadd(75.232, 240.828, -20.7, 1.13)
pt3dadd(75.331, 240.895, -20.7, 1.13)
pt3dadd(75.422, 240.972, -20.7, 1.13)
pt3dadd(75.504, 241.06, -20.7, 1.13)
pt3dadd(75.58, 241.151, -20.707, 1.13)
pt3dadd(75.643, 241.249, -20.731, 1.13)
pt3dadd(75.706, 241.318, -20.778, 1.136)
pt3dadd(75.769, 241.346, -20.86, 1.148)
pt3dadd(75.835, 241.388, -20.934, 1.178)
pt3dadd(75.896, 241.436, -21.009, 1.218)
pt3dadd(75.943, 241.463, -21.098, 1.256)
pt3dadd(76.007, 241.498, -21.171, 1.286)
pt3dadd(76.103, 241.549, -21.213, 1.3)
pt3dadd(76.187, 241.618, -21.253, 1.298)
pt3dadd(76.262, 241.699, -21.291, 1.284)
pt3dadd(76.337, 241.79, -21.3, 1.246)
pt3dadd(76.412, 241.884, -21.3, 1.198)
pt3dadd(76.494, 241.967, -21.317, 1.142)
pt3dadd(76.578, 242.048, -21.339, 1.1)
pt3dadd(76.657, 242.136, -21.354, 1.09)
pt3dadd(76.737, 242.225, -21.368, 1.078)
pt3dadd(76.816, 242.312, -21.383, 1.068)
pt3dadd(76.896, 242.401, -21.398, 1.056)
pt3dadd(76.945, 242.509, -21.4, 1.058)
pt3dadd(76.99, 242.621, -21.4, 1.064)
pt3dadd(77.034, 242.731, -21.4, 1.068)
pt3dadd(77.079, 242.843, -21.4, 1.072)
pt3dadd(77.123, 242.954, -21.4, 1.078)
pt3dadd(77.175, 243.058, -21.417, 1.082)
pt3dadd(77.235, 243.152, -21.454, 1.088)
pt3dadd(77.295, 243.246, -21.491, 1.094)
}
}
proc shape3d_35() {
dend_5[6] { pt3dadd(77.354, 243.341, -21.528, 1.1)
pt3dadd(77.417, 243.434, -21.558, 1.104)
pt3dadd(77.491, 243.529, -21.567, 1.104)
pt3dadd(77.565, 243.623, -21.577, 1.104)
pt3dadd(77.639, 243.716, -21.586, 1.104)
pt3dadd(77.713, 243.81, -21.596, 1.104)
pt3dadd(77.802, 243.888, -21.603, 1.086)
pt3dadd(77.904, 243.952, -21.608, 1.05)
pt3dadd(77.979, 244.031, -21.629, 1.006)
pt3dadd(78.022, 244.132, -21.671, 0.952)
pt3dadd(78.076, 244.232, -21.692, 0.908)
pt3dadd(78.14, 244.334, -21.697, 0.872)
pt3dadd(78.229, 244.397, -21.7, 0.854)
pt3dadd(78.348, 244.417, -21.7, 0.854)
pt3dadd(78.466, 244.438, -21.7, 0.854)
pt3dadd(78.576, 244.444, -21.737, 0.854)
pt3dadd(78.684, 244.447, -21.779, 0.854)
pt3dadd(78.793, 244.451, -21.822, 0.854)
pt3dadd(78.895, 244.464, -21.868, 0.854)
pt3dadd(78.971, 244.517, -21.932, 0.854)
pt3dadd(79.066, 244.548, -21.971, 0.854)
pt3dadd(79.186, 244.552, -21.98, 0.854)
pt3dadd(79.305, 244.556, -21.99, 0.854)
pt3dadd(79.425, 244.56, -21.999, 0.854)
pt3dadd(79.532, 244.609, -22.004, 0.874)
pt3dadd(79.638, 244.664, -22.01, 0.898)
pt3dadd(79.694, 244.718, -22.073, 0.912)
pt3dadd(79.731, 244.772, -22.157, 0.922)
pt3dadd(79.772, 244.835, -22.232, 0.922)
pt3dadd(79.823, 244.93, -22.274, 0.896)
pt3dadd(79.898, 245.004, -22.3, 0.866)
pt3dadd(80.01, 245.047, -22.3, 0.834)
pt3dadd(80.122, 245.09, -22.3, 0.8)
pt3dadd(80.235, 245.13, -22.3, 0.768)
pt3dadd(80.351, 245.164, -22.3, 0.738)
pt3dadd(80.466, 245.196, -22.3, 0.706)
pt3dadd(80.559, 245.269, -22.307, 0.686)
pt3dadd(80.622, 245.363, -22.33, 0.698)
pt3dadd(80.64, 245.467, -22.373, 0.816)
pt3dadd(80.64, 245.585, -22.394, 0.964)
pt3dadd(80.64, 245.704, -22.4, 1.07)
pt3dadd(80.64, 245.824, -22.407, 1.12)
pt3dadd(80.652, 245.939, -22.431, 1.108)
pt3dadd(80.732, 245.993, -22.477, 1.068)
pt3dadd(80.848, 246, -22.497, 1.072)
pt3dadd(80.968, 246, -22.5, 1.098)
pt3dadd(81.088, 246, -22.5, 1.124)
pt3dadd(81.208, 246, -22.5, 1.13)
pt3dadd(81.316, 246, -22.537, 1.13)
pt3dadd(81.42, 246, -22.588, 1.13)
pt3dadd(81.492, 246.014, -22.66, 1.124)
pt3dadd(81.539, 246.041, -22.749, 1.11)
pt3dadd(81.574, 246.118, -22.793, 1.088)
pt3dadd(81.599, 246.234, -22.8, 1.056)
pt3dadd(81.6, 246.354, -22.8, 0.982)
pt3dadd(81.6, 246.474, -22.8, 0.932)
pt3dadd(81.6, 246.594, -22.8, 0.882)
pt3dadd(81.615, 246.713, -22.801, 0.852)
pt3dadd(81.663, 246.817, -22.824, 0.844)
pt3dadd(81.712, 246.914, -22.864, 0.874)
pt3dadd(81.755, 247.015, -22.906, 0.9)
pt3dadd(81.822, 247.052, -22.979, 0.94)
pt3dadd(81.893, 247.08, -23.056, 0.98)
pt3dadd(81.988, 247.093, -23.114, 1.056)
pt3dadd(82.085, 247.136, -23.16, 1.062)
pt3dadd(82.181, 247.181, -23.207, 1.068)
pt3dadd(82.278, 247.224, -23.254, 1.074)
pt3dadd(82.375, 247.267, -23.301, 1.08)
pt3dadd(82.488, 247.278, -23.333, 1.07)
pt3dadd(82.601, 247.288, -23.365, 1.06)
pt3dadd(82.714, 247.298, -23.397, 1.05)
pt3dadd(82.827, 247.308, -23.429, 1.04)
pt3dadd(82.941, 247.319, -23.461, 1.032)
pt3dadd(83.056, 247.32, -23.49, 0.986)
pt3dadd(83.171, 247.32, -23.517, 0.934)
pt3dadd(83.284, 247.327, -23.548, 0.88)
pt3dadd(83.394, 247.346, -23.586, 0.82)
pt3dadd(83.492, 247.378, -23.632, 0.764)
pt3dadd(83.568, 247.43, -23.695, 0.722)
pt3dadd(83.617, 247.494, -23.767, 0.71)
pt3dadd(83.645, 247.565, -23.844, 0.724)
pt3dadd(83.7, 247.656, -23.874, 0.744)
pt3dadd(83.767, 247.754, -23.884, 0.766)
pt3dadd(83.835, 247.853, -23.893, 0.788)
pt3dadd(83.893, 247.956, -23.9, 0.818)
pt3dadd(83.933, 248.07, -23.9, 0.86)
pt3dadd(83.972, 248.183, -23.9, 0.902)
pt3dadd(84.075, 248.244, -23.9, 0.928)
pt3dadd(84.179, 248.303, -23.9, 0.954)
pt3dadd(84.283, 248.363, -23.9, 0.98)
pt3dadd(84.387, 248.423, -23.9, 1.026)
pt3dadd(84.49, 248.484, -23.9, 1.072)
pt3dadd(84.537, 248.59, -23.91, 1.116)
pt3dadd(84.573, 248.704, -23.921, 1.158)
pt3dadd(84.61, 248.816, -23.932, 1.202)
pt3dadd(84.678, 248.852, -24.003, 1.242)
pt3dadd(84.749, 248.88, -24.08, 1.28)
pt3dadd(84.84, 248.882, -24.145, 1.24)
pt3dadd(84.925, 248.888, -24.215, 1.19)
pt3dadd(85.015, 248.908, -24.271, 1.148)
pt3dadd(85.121, 248.96, -24.288, 1.124)
pt3dadd(85.214, 249.028, -24.301, 1.112)
pt3dadd(85.27, 249.133, -24.306, 1.134)
pt3dadd(85.32, 249.24, -24.315, 1.16)
pt3dadd(85.32, 249.353, -24.348, 1.202)
pt3dadd(85.32, 249.467, -24.381, 1.246)
pt3dadd(85.372, 249.569, -24.391, 1.272)
pt3dadd(85.44, 249.667, -24.395, 1.294)
pt3dadd(85.509, 249.766, -24.398, 1.314)
pt3dadd(85.58, 249.862, -24.4, 1.328)
pt3dadd(85.662, 249.95, -24.4, 1.316)
pt3dadd(85.744, 250.037, -24.4, 1.292)
pt3dadd(85.844, 250.102, -24.4, 1.22)
pt3dadd(85.952, 250.156, -24.4, 1.196)
pt3dadd(86.059, 250.21, -24.4, 1.172)
pt3dadd(86.166, 250.262, -24.4, 1.148)
pt3dadd(86.274, 250.316, -24.4, 1.124)
pt3dadd(86.375, 250.378, -24.403, 1.094)
pt3dadd(86.451, 250.468, -24.421, 1.042)
pt3dadd(86.527, 250.555, -24.443, 0.99)
pt3dadd(86.602, 250.638, -24.481, 0.932)
pt3dadd(86.673, 250.721, -24.522, 0.896)
pt3dadd(86.742, 250.804, -24.566, 0.882)
pt3dadd(86.76, 250.902, -24.615, 0.878)
pt3dadd(86.76, 251.005, -24.666, 0.878)
pt3dadd(86.773, 251.117, -24.693, 0.896)
pt3dadd(86.798, 251.233, -24.7, 0.928)
pt3dadd(86.833, 251.348, -24.7, 0.93)
pt3dadd(86.869, 251.462, -24.7, 0.93)
pt3dadd(86.905, 251.578, -24.7, 0.93)
pt3dadd(86.941, 251.692, -24.7, 0.93)
pt3dadd(86.977, 251.806, -24.7, 0.93)
pt3dadd(87, 251.922, -24.7, 0.932)
pt3dadd(87, 252.042, -24.7, 0.944)
pt3dadd(87, 252.162, -24.7, 0.954)
pt3dadd(87, 252.282, -24.7, 0.966)
pt3dadd(87, 252.402, -24.7, 0.976)
pt3dadd(87, 252.522, -24.7, 0.986)
pt3dadd(87, 252.642, -24.7, 0.998)
pt3dadd(87.012, 252.761, -24.7, 1.008)
pt3dadd(87.045, 252.876, -24.7, 1.016)
pt3dadd(87.078, 252.991, -24.7, 1.026)
pt3dadd(87.111, 253.106, -24.7, 1.034)
pt3dadd(87.144, 253.223, -24.7, 1.044)
pt3dadd(87.177, 253.338, -24.7, 1.052)
pt3dadd(87.201, 253.454, -24.7, 1.088)
pt3dadd(87.222, 253.573, -24.7, 1.136)
pt3dadd(87.245, 253.691, -24.7, 1.182)
pt3dadd(87.299, 253.798, -24.7, 1.204)
pt3dadd(87.353, 253.906, -24.7, 1.228)
pt3dadd(87.454, 253.962, -24.704, 1.26)
pt3dadd(87.564, 254.011, -24.709, 1.294)
pt3dadd(87.666, 254.035, -24.748, 1.314)
pt3dadd(87.766, 254.048, -24.803, 1.326)
pt3dadd(87.808, 254.108, -24.868, 1.336)
pt3dadd(87.82, 254.192, -24.938, 1.344)
pt3dadd(87.832, 254.276, -25.009, 1.352)
pt3dadd(87.853, 254.37, -25.063, 1.36)
pt3dadd(87.892, 254.48, -25.084, 1.372)
pt3dadd(87.931, 254.592, -25.104, 1.382)
pt3dadd(87.953, 254.694, -25.146, 1.378)
pt3dadd(87.964, 254.788, -25.208, 1.372)
pt3dadd(87.976, 254.881, -25.269, 1.368)
pt3dadd(87.987, 254.975, -25.331, 1.362)
pt3dadd(87.998, 255.068, -25.392, 1.356)
pt3dadd(88.037, 255.176, -25.418, 1.338)
pt3dadd(88.079, 255.286, -25.44, 1.316)
pt3dadd(88.121, 255.396, -25.461, 1.296)
pt3dadd(88.163, 255.505, -25.482, 1.274)
pt3dadd(88.2, 255.616, -25.501, 1.254)
pt3dadd(88.2, 255.736, -25.506, 1.234)
pt3dadd(88.2, 255.856, -25.511, 1.216)
pt3dadd(88.2, 255.976, -25.516, 1.196)
pt3dadd(88.2, 256.096, -25.521, 1.178)
pt3dadd(88.2, 256.214, -25.526, 1.16)
pt3dadd(88.2, 256.334, -25.531, 1.14)
pt3dadd(88.21, 256.453, -25.54, 1.12)
pt3dadd(88.232, 256.57, -25.554, 1.096)
pt3dadd(88.255, 256.686, -25.569, 1.072)
pt3dadd(88.277, 256.804, -25.583, 1.05)
pt3dadd(88.299, 256.92, -25.598, 1.026)
pt3dadd(88.323, 257.035, -25.615, 1.002)
pt3dadd(88.356, 257.137, -25.66, 0.986)
pt3dadd(88.389, 257.239, -25.705, 0.97)
pt3dadd(88.421, 257.341, -25.75, 0.952)
pt3dadd(88.454, 257.443, -25.795, 0.936)
pt3dadd(88.501, 257.539, -25.84, 0.932)
pt3dadd(88.555, 257.632, -25.885, 0.938)
pt3dadd(88.609, 257.724, -25.93, 0.944)
pt3dadd(88.663, 257.816, -25.975, 0.95)
pt3dadd(88.715, 257.915, -26.01, 0.962)
pt3dadd(88.764, 258.022, -26.031, 0.978)
pt3dadd(88.813, 258.127, -26.053, 0.994)
pt3dadd(88.862, 258.234, -26.074, 1.01)
pt3dadd(88.911, 258.341, -26.096, 1.026)
pt3dadd(88.976, 258.427, -26.138, 1.04)
pt3dadd(89.044, 258.508, -26.184, 1.052)
pt3dadd(89.113, 258.589, -26.23, 1.064)
pt3dadd(89.181, 258.671, -26.276, 1.076)
pt3dadd(89.255, 258.749, -26.321, 1.07)
}
}
proc shape3d_36() {
dend_5[6] { pt3dadd(89.331, 258.824, -26.366, 1.056)
pt3dadd(89.445, 258.85, -26.386, 1.022)
pt3dadd(89.56, 258.874, -26.406, 0.988)
pt3dadd(89.626, 258.953, -26.444, 0.968)
pt3dadd(89.677, 259.049, -26.487, 0.954)
pt3dadd(89.719, 259.16, -26.494, 0.954)
pt3dadd(89.761, 259.272, -26.498, 0.954)
pt3dadd(89.829, 259.362, -26.523, 0.954)
pt3dadd(89.909, 259.442, -26.556, 0.954)
pt3dadd(89.989, 259.523, -26.59, 0.954)
pt3dadd(90.082, 259.566, -26.636, 0.936)
pt3dadd(90.18, 259.594, -26.689, 0.91)
pt3dadd(90.271, 259.66, -26.705, 0.852)
pt3dadd(90.333, 259.736, -26.762, 0.838)
pt3dadd(90.403, 259.792, -26.823, 0.834)
pt3dadd(90.491, 259.805, -26.89, 0.846)
pt3dadd(90.557, 259.847, -26.955, 0.868)
pt3dadd(90.585, 259.939, -27.014, 0.908)
pt3dadd(90.603, 260.006, -27.089, 0.95)
pt3dadd(90.609, 260.048, -27.183, 0.996)
pt3dadd(90.627, 260.104, -27.259, 1.034)
pt3dadd(90.686, 260.207, -27.272, 1.048)
pt3dadd(90.746, 260.309, -27.285, 1.062)
pt3dadd(90.805, 260.412, -27.298, 1.078)
pt3dadd(90.886, 260.5, -27.305, 1.058)
pt3dadd(90.971, 260.585, -27.31, 1.034)
pt3dadd(91.021, 260.64, -27.38, 1.006)
pt3dadd(91.064, 260.688, -27.464, 0.974)
pt3dadd(91.109, 260.734, -27.549, 0.95)
pt3dadd(91.159, 260.777, -27.632, 0.936)
pt3dadd(91.196, 260.848, -27.699, 0.938)
pt3dadd(91.215, 260.952, -27.744, 0.956)
pt3dadd(91.235, 261.058, -27.79, 0.976)
pt3dadd(91.265, 261.17, -27.8, 0.988)
pt3dadd(91.299, 261.286, -27.8, 0.998)
pt3dadd(91.325, 261.402, -27.8, 1.004)
pt3dadd(91.356, 261.516, -27.81, 1.002)
pt3dadd(91.404, 261.622, -27.832, 0.996)
pt3dadd(91.453, 261.728, -27.853, 0.992)
pt3dadd(91.502, 261.835, -27.875, 0.986)
pt3dadd(91.551, 261.941, -27.896, 0.98)
pt3dadd(91.585, 262.056, -27.9, 0.986)
pt3dadd(91.615, 262.172, -27.9, 0.996)
pt3dadd(91.645, 262.288, -27.9, 1.004)
pt3dadd(91.675, 262.404, -27.9, 1.012)
pt3dadd(91.705, 262.52, -27.9, 1.022)
pt3dadd(91.739, 262.634, -27.902, 1.03)
pt3dadd(91.811, 262.728, -27.922, 1.042)
pt3dadd(91.883, 262.82, -27.942, 1.054)
pt3dadd(91.955, 262.913, -27.962, 1.064)
pt3dadd(92.027, 263.006, -27.982, 1.076)
pt3dadd(92.083, 263.108, -28.003, 1.088)
pt3dadd(92.13, 263.215, -28.025, 1.1)
pt3dadd(92.165, 263.299, -28.083, 1.088)
pt3dadd(92.193, 263.37, -28.16, 1.06)
pt3dadd(92.253, 263.434, -28.227, 1.044)
pt3dadd(92.322, 263.496, -28.289, 1.03)
pt3dadd(92.424, 263.558, -28.294, 1.042)
pt3dadd(92.526, 263.622, -28.3, 1.054)
pt3dadd(92.591, 263.722, -28.3, 1.074)
pt3dadd(92.653, 263.825, -28.3, 1.094)
pt3dadd(92.716, 263.927, -28.3, 1.116)
pt3dadd(92.761, 264.035, -28.3, 1.132)
pt3dadd(92.766, 264.155, -28.3, 1.142)
pt3dadd(92.77, 264.275, -28.3, 1.15)
pt3dadd(92.792, 264.39, -28.303, 1.156)
pt3dadd(92.838, 264.5, -28.311, 1.156)
pt3dadd(92.903, 264.576, -28.359, 1.144)
pt3dadd(92.965, 264.6, -28.442, 1.186)
pt3dadd(93.026, 264.6, -28.527, 1.242)
pt3dadd(93.122, 264.6, -28.584, 1.298)
pt3dadd(93.224, 264.656, -28.594, 1.306)
pt3dadd(93.326, 264.72, -28.599, 1.306)
pt3dadd(93.397, 264.814, -28.604, 1.306)
pt3dadd(93.46, 264.916, -28.61, 1.306)
pt3dadd(93.529, 264.973, -28.662, 1.298)
pt3dadd(93.601, 265.013, -28.735, 1.288)
pt3dadd(93.679, 265.052, -28.802, 1.28)
pt3dadd(93.774, 265.096, -28.851, 1.28)
pt3dadd(93.838, 265.165, -28.899, 1.276)
pt3dadd(93.864, 265.268, -28.946, 1.266)
pt3dadd(93.889, 265.372, -28.993, 1.258)
pt3dadd(93.993, 265.404, -29, 1.24)
pt3dadd(94.111, 265.424, -29, 1.22)
pt3dadd(94.23, 265.44, -29.003, 1.192)
pt3dadd(94.332, 265.468, -29.027, 1.152)
pt3dadd(94.404, 265.546, -29.074, 1.146)
pt3dadd(94.476, 265.625, -29.12, 1.14)
pt3dadd(94.547, 265.703, -29.166, 1.134)
pt3dadd(94.614, 265.783, -29.215, 1.126)
pt3dadd(94.667, 265.866, -29.272, 1.112)
pt3dadd(94.743, 265.921, -29.327, 1.104)
pt3dadd(94.842, 265.949, -29.379, 1.104)
pt3dadd(94.943, 265.997, -29.4, 1.126)
pt3dadd(95.047, 266.057, -29.4, 1.16)
pt3dadd(95.116, 266.142, -29.4, 1.204)
pt3dadd(95.136, 266.26, -29.4, 1.262)
pt3dadd(95.156, 266.378, -29.4, 1.32)
pt3dadd(95.16, 266.498, -29.4, 1.392)
pt3dadd(95.16, 266.618, -29.4, 1.468)
pt3dadd(95.181, 266.73, -29.429, 1.494)
pt3dadd(95.206, 266.839, -29.464, 1.51)
pt3dadd(95.231, 266.948, -29.499, 1.526)
pt3dadd(95.256, 267.058, -29.534, 1.542)
pt3dadd(95.284, 267.166, -29.57, 1.558)
pt3dadd(95.339, 267.253, -29.622, 1.57)
pt3dadd(95.394, 267.341, -29.673, 1.582)
pt3dadd(95.449, 267.427, -29.724, 1.594)
pt3dadd(95.504, 267.515, -29.775, 1.606)
pt3dadd(95.571, 267.607, -29.805, 1.618)
pt3dadd(95.639, 267.701, -29.833, 1.63)
pt3dadd(95.707, 267.793, -29.861, 1.642)
pt3dadd(95.775, 267.886, -29.89, 1.652)
pt3dadd(95.834, 267.989, -29.9, 1.672)
pt3dadd(95.887, 268.096, -29.9, 1.694)
pt3dadd(95.959, 268.187, -29.9, 1.716)
pt3dadd(96.058, 268.255, -29.9, 1.74)
pt3dadd(96.161, 268.312, -29.901, 1.762)
pt3dadd(96.279, 268.333, -29.905, 1.782)
pt3dadd(96.397, 268.355, -29.91, 1.802)
pt3dadd(96.483, 268.393, -29.962, 1.84)
pt3dadd(96.558, 268.439, -30.031, 1.882)
pt3dadd(96.572, 268.51, -30.11, 1.898)
pt3dadd(96.584, 268.58, -30.19, 1.912)
pt3dadd(96.595, 268.652, -30.269, 1.928)
pt3dadd(96.612, 268.753, -30.3, 1.928)
pt3dadd(96.633, 268.871, -30.3, 1.918)
pt3dadd(96.655, 268.987, -30.3, 1.908)
pt3dadd(96.77, 269.005, -30.323, 1.866)
pt3dadd(96.886, 269.023, -30.345, 1.824)
pt3dadd(97.001, 269.041, -30.367, 1.782)
pt3dadd(97.098, 269.11, -30.384, 1.678)
pt3dadd(97.187, 269.182, -30.403, 1.578)
pt3dadd(97.191, 269.296, -30.435, 1.512)
pt3dadd(97.196, 269.408, -30.468, 1.446)
pt3dadd(97.201, 269.521, -30.501, 1.38)
pt3dadd(97.278, 269.582, -30.558, 1.294)
pt3dadd(97.366, 269.632, -30.604, 1.186)
pt3dadd(97.443, 269.676, -30.646, 1.09)
pt3dadd(97.477, 269.75, -30.719, 1.062)
pt3dadd(97.512, 269.826, -30.792, 1.032)
pt3dadd(97.546, 269.9, -30.864, 1.002)
pt3dadd(97.586, 269.974, -30.936, 0.972)
pt3dadd(97.648, 270.035, -31.004, 0.934)
pt3dadd(97.71, 270.097, -31.072, 0.898)
pt3dadd(97.772, 270.16, -31.14, 0.862)
pt3dadd(97.837, 270.224, -31.203, 0.828)
pt3dadd(97.919, 270.307, -31.226, 0.816)
pt3dadd(98.002, 270.389, -31.249, 0.804)
pt3dadd(98.085, 270.472, -31.272, 0.792)
pt3dadd(98.167, 270.554, -31.295, 0.782)
pt3dadd(98.237, 270.65, -31.3, 0.786)
pt3dadd(98.303, 270.751, -31.3, 0.796)
pt3dadd(98.369, 270.851, -31.3, 0.806)
pt3dadd(98.435, 270.952, -31.3, 0.816)
pt3dadd(98.501, 271.051, -31.3, 0.826)
pt3dadd(98.587, 271.134, -31.3, 0.858)
pt3dadd(98.681, 271.208, -31.3, 0.898)
pt3dadd(98.774, 271.283, -31.3, 0.938)
pt3dadd(98.868, 271.358, -31.3, 0.978)
pt3dadd(98.962, 271.433, -31.3, 1.018)
pt3dadd(99.022, 271.534, -31.3, 1.054)
pt3dadd(99.069, 271.644, -31.3, 1.086)
pt3dadd(99.117, 271.754, -31.3, 1.12)
pt3dadd(99.164, 271.865, -31.3, 1.152)
pt3dadd(99.212, 271.975, -31.3, 1.186)
pt3dadd(99.279, 272.069, -31.3, 1.214)
pt3dadd(99.375, 272.141, -31.3, 1.234)
pt3dadd(99.471, 272.213, -31.3, 1.254)
pt3dadd(99.567, 272.285, -31.3, 1.274)
pt3dadd(99.663, 272.357, -31.3, 1.294)
pt3dadd(99.751, 272.438, -31.3, 1.302)
pt3dadd(99.825, 272.532, -31.3, 1.292)
pt3dadd(99.9, 272.626, -31.3, 1.282)
pt3dadd(99.975, 272.719, -31.3, 1.272)
pt3dadd(100.05, 272.813, -31.3, 1.262)
pt3dadd(100.12, 272.91, -31.3, 1.248)
pt3dadd(100.183, 273.012, -31.3, 1.228)
pt3dadd(100.246, 273.115, -31.3, 1.208)
pt3dadd(100.309, 273.217, -31.3, 1.188)
pt3dadd(100.372, 273.319, -31.3, 1.168)
pt3dadd(100.44, 273.418, -31.3, 1.148)
pt3dadd(100.518, 273.509, -31.3, 1.128)
pt3dadd(100.596, 273.6, -31.3, 1.108)
pt3dadd(100.674, 273.691, -31.3, 1.088)
pt3dadd(100.751, 273.782, -31.3, 1.068)
pt3dadd(100.83, 273.872, -31.309, 1.046)
pt3dadd(100.909, 273.958, -31.332, 1.024)
pt3dadd(100.989, 274.043, -31.354, 1)
pt3dadd(101.068, 274.129, -31.377, 0.976)
pt3dadd(101.148, 274.214, -31.4, 0.954)
pt3dadd(101.208, 274.318, -31.4, 0.92)
pt3dadd(101.269, 274.422, -31.4, 0.886)
pt3dadd(101.354, 274.489, -31.436, 0.878)
pt3dadd(101.441, 274.548, -31.482, 0.88)
pt3dadd(101.482, 274.582, -31.571, 0.906)
pt3dadd(101.52, 274.619, -31.66, 0.93)
pt3dadd(101.52, 274.706, -31.728, 0.93)
pt3dadd(101.52, 274.794, -31.796, 0.93)
pt3dadd(101.52, 274.909, -31.823, 0.906)
}
}
proc shape3d_37() {
dend_5[6] { pt3dadd(101.52, 275.026, -31.847, 0.882)
pt3dadd(101.52, 275.142, -31.871, 0.858)
pt3dadd(101.52, 275.258, -31.895, 0.834)
pt3dadd(101.548, 275.374, -31.904, 0.82)
pt3dadd(101.583, 275.489, -31.909, 0.81)
pt3dadd(101.622, 275.591, -31.938, 0.906)
pt3dadd(101.629, 275.693, -31.99, 0.978)
pt3dadd(101.632, 275.796, -32.041, 1.034)
pt3dadd(101.634, 275.899, -32.091, 1.088)
pt3dadd(101.637, 276.002, -32.142, 1.142)
pt3dadd(101.64, 276.106, -32.193, 1.198)
pt3dadd(101.64, 276.221, -32.22, 1.238)
pt3dadd(101.64, 276.337, -32.243, 1.278)
pt3dadd(101.64, 276.455, -32.265, 1.316)
pt3dadd(101.64, 276.571, -32.288, 1.356)
pt3dadd(101.64, 276.688, -32.311, 1.394)
pt3dadd(101.64, 276.804, -32.335, 1.432)
pt3dadd(101.64, 276.908, -32.385, 1.456)
pt3dadd(101.64, 277.013, -32.435, 1.482)
pt3dadd(101.64, 277.116, -32.485, 1.506)
pt3dadd(101.64, 277.22, -32.535, 1.53)
pt3dadd(101.64, 277.325, -32.585, 1.554)
pt3dadd(101.64, 277.442, -32.592, 1.556)
pt3dadd(101.64, 277.562, -32.596, 1.556)
pt3dadd(101.64, 277.682, -32.601, 1.556)
pt3dadd(101.659, 277.795, -32.632, 1.52)
pt3dadd(101.678, 277.908, -32.663, 1.486)
pt3dadd(101.754, 277.994, -32.682, 1.412)
pt3dadd(101.838, 278.077, -32.7, 1.334)
pt3dadd(101.913, 278.171, -32.7, 1.24)
pt3dadd(101.988, 278.264, -32.7, 1.146)
pt3dadd(102.08, 278.334, -32.722, 1.012)
pt3dadd(102.153, 278.416, -32.757, 0.94)
pt3dadd(102.21, 278.51, -32.796, 0.916)
pt3dadd(102.267, 278.605, -32.835, 0.892)
pt3dadd(102.324, 278.7, -32.875, 0.868)
pt3dadd(102.362, 278.803, -32.9, 0.856)
pt3dadd(102.366, 278.923, -32.9, 0.866)
pt3dadd(102.371, 279.043, -32.9, 0.874)
pt3dadd(102.395, 279.158, -32.9, 0.894)
pt3dadd(102.442, 279.269, -32.9, 0.928)
pt3dadd(102.49, 279.377, -32.907, 0.962)
pt3dadd(102.549, 279.472, -32.943, 1.002)
pt3dadd(102.608, 279.566, -32.98, 1.03)
pt3dadd(102.666, 279.662, -33.016, 1.03)
pt3dadd(102.75, 279.734, -33.044, 1.022)
pt3dadd(102.855, 279.787, -33.064, 1.006)
pt3dadd(102.96, 279.84, -33.084, 0.992)
pt3dadd(103.068, 279.887, -33.1, 0.972)
pt3dadd(103.183, 279.92, -33.1, 0.94)
pt3dadd(103.298, 279.954, -33.1, 0.91)
pt3dadd(103.416, 279.96, -33.11, 0.836)
pt3dadd(103.518, 280, -33.149, 0.792)
pt3dadd(103.619, 280.042, -33.189, 0.752)
pt3dadd(103.737, 280.063, -33.194, 0.732)
pt3dadd(103.855, 280.084, -33.198, 0.712)
pt3dadd(103.965, 280.128, -33.2, 0.69)
pt3dadd(104.069, 280.188, -33.2, 0.668)
pt3dadd(104.156, 280.265, -33.2, 0.652)
pt3dadd(104.217, 280.368, -33.2, 0.652)
pt3dadd(104.267, 280.474, -33.206, 0.656)
pt3dadd(104.271, 280.585, -33.241, 0.668)
pt3dadd(104.274, 280.698, -33.276, 0.682)
pt3dadd(104.278, 280.811, -33.311, 0.694)
pt3dadd(104.28, 280.924, -33.344, 0.734)
pt3dadd(104.28, 281.039, -33.371, 0.818)
pt3dadd(104.28, 281.154, -33.399, 0.9)
pt3dadd(104.28, 281.274, -33.4, 1.096)
pt3dadd(104.28, 281.394, -33.4, 1.136)
pt3dadd(104.28, 281.514, -33.4, 1.17)
pt3dadd(104.28, 281.634, -33.4, 1.204)
pt3dadd(104.28, 281.754, -33.4, 1.166)
pt3dadd(104.28, 281.874, -33.4, 1.124)
pt3dadd(104.28, 281.994, -33.4, 1.082)
pt3dadd(104.294, 282.114, -33.4, 1)
pt3dadd(104.309, 282.233, -33.4, 0.916)
pt3dadd(104.344, 282.34, -33.4, 0.832)
pt3dadd(104.438, 282.415, -33.4, 0.75)
pt3dadd(104.53, 282.492, -33.4, 0.674)
pt3dadd(104.605, 282.586, -33.4, 0.638)
pt3dadd(104.67, 282.686, -33.4, 0.652)
pt3dadd(104.73, 282.79, -33.4, 0.686)
pt3dadd(104.81, 282.876, -33.403, 0.722)
pt3dadd(104.906, 282.947, -33.408, 0.758)
pt3dadd(104.969, 283.028, -33.436, 0.784)
pt3dadd(104.99, 283.126, -33.493, 0.798)
pt3dadd(105, 283.223, -33.55, 0.792)
pt3dadd(105, 283.322, -33.607, 0.768)
pt3dadd(105.01, 283.4, -33.675, 0.734)
pt3dadd(105.04, 283.44, -33.767, 0.678)
pt3dadd(105.06, 283.526, -33.834, 0.666)
pt3dadd(105.081, 283.613, -33.901, 0.656)
pt3dadd(105.102, 283.699, -33.968, 0.644)
pt3dadd(105.123, 283.786, -34.035, 0.634)
pt3dadd(105.144, 283.886, -34.081, 0.626)
pt3dadd(105.166, 284, -34.107, 0.62)
pt3dadd(105.187, 284.114, -34.134, 0.616)
pt3dadd(105.208, 284.228, -34.16, 0.61)
pt3dadd(105.229, 284.341, -34.186, 0.606)
pt3dadd(105.24, 284.458, -34.206, 0.612)
pt3dadd(105.24, 284.578, -34.218, 0.63)
pt3dadd(105.24, 284.696, -34.231, 0.65)
pt3dadd(105.245, 284.812, -34.256, 0.696)
pt3dadd(105.25, 284.927, -34.285, 0.75)
pt3dadd(105.3, 285.019, -34.3, 0.828)
pt3dadd(105.399, 285.086, -34.3, 0.932)
pt3dadd(105.5, 285.152, -34.3, 1.04)
pt3dadd(105.603, 285.214, -34.3, 1.156)
pt3dadd(105.703, 285.278, -34.3, 1.276)
pt3dadd(105.778, 285.372, -34.3, 1.434)
pt3dadd(105.843, 285.473, -34.3, 1.522)
pt3dadd(105.904, 285.576, -34.3, 1.58)
pt3dadd(105.973, 285.658, -34.329, 1.622)
pt3dadd(106.049, 285.719, -34.387, 1.65)
pt3dadd(106.072, 285.815, -34.436, 1.648)
pt3dadd(106.078, 285.92, -34.483, 1.636)
pt3dadd(106.08, 286.036, -34.5, 1.622)
pt3dadd(106.08, 286.156, -34.5, 1.604)
pt3dadd(106.08, 286.276, -34.5, 1.588)
pt3dadd(106.065, 286.394, -34.5, 1.544)
pt3dadd(106.042, 286.512, -34.5, 1.486)
pt3dadd(106.027, 286.63, -34.515, 1.46)
pt3dadd(106.012, 286.747, -34.531, 1.438)
pt3dadd(105.998, 286.865, -34.547, 1.416)
pt3dadd(105.984, 286.982, -34.563, 1.392)
pt3dadd(105.969, 287.1, -34.579, 1.37)
pt3dadd(105.96, 287.219, -34.59, 1.34)
pt3dadd(105.96, 287.339, -34.594, 1.296)
pt3dadd(105.96, 287.458, -34.598, 1.252)
pt3dadd(105.963, 287.572, -34.623, 1.214)
pt3dadd(105.969, 287.677, -34.669, 1.178)
pt3dadd(105.993, 287.774, -34.719, 1.144)
pt3dadd(106.051, 287.857, -34.774, 1.114)
pt3dadd(106.086, 287.957, -34.761, 1.086)
pt3dadd(106.112, 288.065, -34.722, 1.062)
pt3dadd(106.178, 288.158, -34.705, 1.014)
pt3dadd(106.251, 288.252, -34.709, 0.974)
pt3dadd(106.314, 288.35, -34.731, 0.964)
pt3dadd(106.377, 288.449, -34.754, 0.952)
pt3dadd(106.44, 288.547, -34.776, 0.942)
pt3dadd(106.503, 288.646, -34.798, 0.93)
pt3dadd(106.535, 288.76, -34.814, 0.908)
pt3dadd(106.565, 288.875, -34.829, 0.886)
pt3dadd(106.627, 288.966, -34.86, 0.858)
pt3dadd(106.701, 289.048, -34.897, 0.83)
pt3dadd(106.75, 289.153, -34.921, 0.816)
pt3dadd(106.797, 289.261, -34.943, 0.804)
pt3dadd(106.817, 289.295, -35.034, 0.814)
pt3dadd(106.835, 289.325, -35.13, 0.826)
pt3dadd(106.916, 289.357, -35.186, 0.84)
pt3dadd(107.02, 289.391, -35.228, 0.856)
pt3dadd(107.124, 289.424, -35.269, 0.872)
pt3dadd(107.236, 289.44, -35.291, 0.878)
pt3dadd(107.356, 289.44, -35.295, 0.878)
pt3dadd(107.476, 289.44, -35.299, 0.878)
pt3dadd(107.593, 289.46, -35.3, 0.86)
pt3dadd(107.708, 289.494, -35.3, 0.828)
pt3dadd(107.753, 289.6, -35.322, 0.816)
pt3dadd(107.76, 289.709, -35.362, 0.916)
pt3dadd(107.78, 289.82, -35.392, 1.036)
pt3dadd(107.829, 289.927, -35.408, 1.018)
pt3dadd(107.891, 290.028, -35.427, 0.99)
pt3dadd(107.952, 290.128, -35.447, 0.974)
pt3dadd(108.014, 290.228, -35.466, 0.958)
pt3dadd(108.076, 290.328, -35.486, 0.942)
pt3dadd(108.14, 290.428, -35.5, 0.932)
pt3dadd(108.209, 290.526, -35.5, 0.942)
pt3dadd(108.278, 290.624, -35.5, 0.952)
pt3dadd(108.347, 290.723, -35.5, 0.962)
pt3dadd(108.416, 290.82, -35.5, 0.972)
pt3dadd(108.488, 290.916, -35.5, 0.984)
pt3dadd(108.568, 291.005, -35.5, 0.998)
pt3dadd(108.649, 291.094, -35.5, 1.014)
pt3dadd(108.73, 291.182, -35.5, 1.028)
pt3dadd(108.81, 291.272, -35.5, 1.044)
pt3dadd(108.894, 291.358, -35.5, 1.058)
pt3dadd(108.986, 291.436, -35.5, 1.068)
pt3dadd(109.077, 291.512, -35.5, 1.078)
pt3dadd(109.168, 291.59, -35.5, 1.088)
pt3dadd(109.26, 291.668, -35.5, 1.098)
pt3dadd(109.353, 291.744, -35.5, 1.098)
pt3dadd(109.449, 291.816, -35.5, 1.078)
pt3dadd(109.545, 291.888, -35.5, 1.058)
pt3dadd(109.641, 291.96, -35.5, 1.038)
pt3dadd(109.737, 292.032, -35.5, 1.018)
pt3dadd(109.823, 292.114, -35.5, 0.98)
pt3dadd(109.891, 292.212, -35.5, 0.912)
pt3dadd(109.955, 292.314, -35.503, 0.84)
pt3dadd(110, 292.423, -35.519, 0.768)
pt3dadd(110.046, 292.531, -35.537, 0.7)
pt3dadd(110.096, 292.632, -35.573, 0.674)
pt3dadd(110.16, 292.718, -35.606, 0.66)
pt3dadd(110.268, 292.765, -35.628, 0.684)
pt3dadd(110.366, 292.8, -35.665, 0.722)
pt3dadd(110.441, 292.8, -35.743, 0.792)
pt3dadd(110.547, 292.805, -35.784, 0.822)
pt3dadd(110.66, 292.811, -35.819, 0.844)
pt3dadd(110.723, 292.846, -35.883, 0.846)
pt3dadd(110.75, 292.9, -35.969, 0.834)
pt3dadd(110.764, 292.978, -36.041, 0.806)
}
}
proc shape3d_38() {
dend_5[6] { pt3dadd(110.771, 293.069, -36.106, 0.768)
pt3dadd(110.803, 293.166, -36.154, 0.754)
pt3dadd(110.853, 293.266, -36.19, 0.754)
pt3dadd(110.899, 293.374, -36.2, 0.768)
pt3dadd(110.944, 293.485, -36.2, 0.788)
pt3dadd(110.989, 293.597, -36.2, 0.806)
pt3dadd(111.034, 293.707, -36.2, 0.826)
pt3dadd(111.142, 293.749, -36.2, 0.866)
pt3dadd(111.257, 293.782, -36.2, 0.906)
pt3dadd(111.369, 293.825, -36.2, 0.944)
pt3dadd(111.483, 293.86, -36.2, 0.952)
pt3dadd(111.599, 293.887, -36.2, 0.946)
pt3dadd(111.716, 293.915, -36.2, 0.942)
pt3dadd(111.833, 293.942, -36.2, 0.938)
pt3dadd(111.95, 293.97, -36.2, 0.934)
pt3dadd(112.067, 293.996, -36.2, 0.93)
pt3dadd(112.171, 294.056, -36.2, 0.938)
pt3dadd(112.273, 294.119, -36.2, 0.948)
pt3dadd(112.375, 294.182, -36.2, 0.958)
pt3dadd(112.477, 294.245, -36.2, 0.968)
pt3dadd(112.579, 294.307, -36.2, 0.978)
pt3dadd(112.652, 294.401, -36.2, 1)
pt3dadd(112.718, 294.5, -36.2, 1.024)
pt3dadd(112.784, 294.601, -36.2, 1.048)
pt3dadd(112.85, 294.701, -36.2, 1.074)
pt3dadd(112.916, 294.802, -36.2, 1.098)
pt3dadd(112.994, 294.892, -36.2, 1.158)
pt3dadd(113.076, 294.98, -36.2, 1.228)
pt3dadd(113.128, 295.08, -36.221, 1.272)
pt3dadd(113.161, 295.188, -36.255, 1.296)
pt3dadd(113.222, 295.285, -36.278, 1.29)
pt3dadd(113.298, 295.375, -36.295, 1.262)
pt3dadd(113.405, 295.415, -36.3, 1.214)
pt3dadd(113.523, 295.435, -36.3, 1.156)
pt3dadd(113.64, 295.46, -36.3, 1.094)
pt3dadd(113.743, 295.522, -36.3, 1.014)
pt3dadd(113.847, 295.583, -36.3, 0.934)
pt3dadd(113.933, 295.654, -36.327, 0.792)
pt3dadd(113.986, 295.68, -36.409, 0.828)
pt3dadd(114, 295.68, -36.508, 0.88)
pt3dadd(114, 295.681, -36.608, 0.904)
pt3dadd(114.005, 295.702, -36.706, 0.906)
pt3dadd(114.032, 295.75, -36.795, 0.918)
pt3dadd(114.076, 295.788, -36.87, 0.934)
pt3dadd(114.194, 295.793, -36.888, 0.954)
pt3dadd(114.312, 295.799, -36.906, 0.974)
pt3dadd(114.416, 295.835, -36.94, 1.008)
pt3dadd(114.514, 295.884, -36.981, 1.05)
pt3dadd(114.588, 295.946, -37.025, 1.092)
pt3dadd(114.595, 296.047, -37.077, 1.14)
pt3dadd(114.603, 296.147, -37.133, 1.204)
pt3dadd(114.64, 296.218, -37.205, 1.296)
pt3dadd(114.693, 296.278, -37.28, 1.324)
pt3dadd(114.716, 296.37, -37.336, 1.34)
pt3dadd(114.729, 296.474, -37.385, 1.352)
pt3dadd(114.789, 296.558, -37.426, 1.356)
pt3dadd(114.872, 296.633, -37.463, 1.356)
pt3dadd(114.971, 296.695, -37.482, 1.344)
pt3dadd(115.073, 296.755, -37.499, 1.332)
pt3dadd(115.118, 296.864, -37.5, 1.318)
pt3dadd(115.159, 296.977, -37.5, 1.306)
pt3dadd(115.2, 297.09, -37.5, 1.294)
pt3dadd(115.241, 297.203, -37.501, 1.28)
pt3dadd(115.28, 297.313, -37.522, 1.244)
pt3dadd(115.319, 297.424, -37.544, 1.206)
pt3dadd(115.368, 297.481, -37.621, 1.174)
pt3dadd(115.418, 297.536, -37.699, 1.144)
pt3dadd(115.486, 297.602, -37.754, 1.098)
pt3dadd(115.569, 297.678, -37.792, 1.042)
pt3dadd(115.609, 297.785, -37.8, 1.012)
pt3dadd(115.637, 297.901, -37.8, 0.988)
pt3dadd(115.665, 298.019, -37.8, 0.966)
pt3dadd(115.699, 298.133, -37.8, 0.95)
pt3dadd(115.739, 298.247, -37.8, 0.938)
pt3dadd(115.785, 298.352, -37.804, 0.932)
pt3dadd(115.883, 298.408, -37.84, 0.964)
pt3dadd(115.981, 298.462, -37.877, 0.994)
pt3dadd(116.066, 298.537, -37.905, 1.022)
pt3dadd(116.144, 298.624, -37.929, 1.05)
pt3dadd(116.216, 298.669, -37.993, 1.05)
pt3dadd(116.297, 298.682, -38.065, 1.024)
pt3dadd(116.365, 298.717, -38.131, 0.998)
pt3dadd(116.384, 298.826, -38.168, 0.974)
pt3dadd(116.4, 298.938, -38.2, 0.952)
pt3dadd(116.4, 299.058, -38.2, 0.934)
pt3dadd(116.4, 299.178, -38.2, 0.918)
pt3dadd(116.4, 299.298, -38.2, 0.9)
pt3dadd(116.4, 299.418, -38.2, 0.866)
pt3dadd(116.4, 299.538, -38.2, 0.832)
pt3dadd(116.406, 299.657, -38.2, 0.802)
pt3dadd(116.448, 299.77, -38.203, 0.788)
pt3dadd(116.49, 299.881, -38.206, 0.776)
pt3dadd(116.532, 299.994, -38.209, 0.762)
pt3dadd(116.591, 300.088, -38.226, 0.748)
pt3dadd(116.681, 300.148, -38.27, 0.734)
pt3dadd(116.754, 300.23, -38.298, 0.772)
pt3dadd(116.82, 300.33, -38.306, 0.778)
pt3dadd(116.887, 300.43, -38.313, 0.778)
pt3dadd(116.953, 300.529, -38.32, 0.778)
pt3dadd(117.02, 300.629, -38.327, 0.778)
pt3dadd(117.083, 300.727, -38.339, 0.778)
pt3dadd(117.111, 300.805, -38.411, 0.778)
pt3dadd(117.15, 300.887, -38.471, 0.772)
pt3dadd(117.226, 300.977, -38.488, 0.746)
pt3dadd(117.309, 301.06, -38.507, 0.72)
pt3dadd(117.407, 301.122, -38.53, 0.694)
pt3dadd(117.485, 301.168, -38.58, 0.658)
pt3dadd(117.53, 301.187, -38.672, 0.61)
pt3dadd(117.575, 301.213, -38.762, 0.564)
pt3dadd(117.618, 301.252, -38.849, 0.524)
pt3dadd(117.662, 301.291, -38.936, 0.482)
pt3dadd(117.674, 301.345, -39, 0.404)
pt3dadd(117.6, 301.44, -39, 0.226)
}
apic[9] {pt3dclear()
pt3dadd(75.313, 185.224, 8.297, 2.31)
pt3dadd(75.256, 185.279, 8.293, 2.244)
pt3dadd(75.17, 185.362, 8.285, 2.142)
pt3dadd(75.083, 185.444, 8.278, 2.04)
pt3dadd(74.997, 185.527, 8.271, 1.938)
pt3dadd(74.911, 185.61, 8.263, 1.836)
pt3dadd(74.824, 185.693, 8.256, 1.734)
pt3dadd(74.738, 185.776, 8.248, 1.634)
pt3dadd(74.652, 185.858, 8.241, 1.532)
pt3dadd(74.565, 185.941, 8.234, 1.43)
pt3dadd(74.479, 186.024, 8.226, 1.328)
pt3dadd(74.392, 186.107, 8.224, 1.356)
pt3dadd(74.304, 186.188, 8.224, 1.448)
pt3dadd(74.216, 186.27, 8.224, 1.538)
pt3dadd(74.128, 186.352, 8.224, 1.63)
pt3dadd(74.04, 186.433, 8.224, 1.722)
pt3dadd(73.952, 186.515, 8.224, 1.814)
pt3dadd(73.864, 186.596, 8.224, 1.906)
pt3dadd(73.776, 186.678, 8.224, 1.996)
pt3dadd(73.689, 186.761, 8.224, 2.088)
pt3dadd(73.601, 186.842, 8.224, 2.18)
pt3dadd(73.512, 186.923, 8.224, 2.22)
pt3dadd(73.423, 187.003, 8.224, 2.234)
pt3dadd(73.335, 187.085, 8.224, 2.248)
pt3dadd(73.246, 187.165, 8.224, 2.262)
pt3dadd(73.157, 187.246, 8.224, 2.274)
pt3dadd(73.068, 187.326, 8.224, 2.288)
pt3dadd(72.979, 187.406, 8.224, 2.302)
pt3dadd(72.89, 187.487, 8.224, 2.316)
pt3dadd(72.801, 187.568, 8.224, 2.33)
pt3dadd(72.712, 187.649, 8.224, 2.344)
pt3dadd(72.623, 187.728, 8.224, 2.296)
pt3dadd(72.533, 187.807, 8.224, 2.214)
pt3dadd(72.443, 187.886, 8.224, 2.134)
pt3dadd(72.353, 187.967, 8.224, 2.054)
pt3dadd(72.262, 188.046, 8.224, 1.974)
pt3dadd(72.172, 188.125, 8.224, 1.894)
pt3dadd(72.082, 188.204, 8.224, 1.812)
pt3dadd(71.992, 188.284, 8.224, 1.732)
pt3dadd(71.902, 188.363, 8.224, 1.652)
pt3dadd(71.812, 188.442, 8.224, 1.572)
pt3dadd(71.715, 188.513, 8.224, 1.556)
pt3dadd(71.615, 188.579, 8.224, 1.572)
pt3dadd(71.515, 188.645, 8.224, 1.588)
pt3dadd(71.415, 188.711, 8.224, 1.606)
pt3dadd(71.314, 188.777, 8.224, 1.622)
pt3dadd(71.214, 188.843, 8.224, 1.638)
pt3dadd(71.114, 188.909, 8.224, 1.654)
pt3dadd(71.014, 188.975, 8.224, 1.67)
pt3dadd(70.913, 189.041, 8.224, 1.686)
pt3dadd(70.813, 189.107, 8.224, 1.704)
pt3dadd(70.712, 189.172, 8.224, 1.734)
pt3dadd(70.611, 189.235, 8.224, 1.77)
pt3dadd(70.51, 189.3, 8.224, 1.808)
pt3dadd(70.409, 189.365, 8.224, 1.844)
pt3dadd(70.308, 189.43, 8.224, 1.882)
pt3dadd(70.206, 189.494, 8.224, 1.918)
pt3dadd(70.105, 189.558, 8.224, 1.954)
pt3dadd(70.004, 189.623, 8.224, 1.992)
pt3dadd(69.903, 189.688, 8.224, 2.028)
pt3dadd(69.802, 189.752, 8.224, 2.066)
pt3dadd(69.704, 189.822, 8.224, 2.086)
pt3dadd(69.608, 189.894, 8.224, 2.1)
pt3dadd(69.512, 189.965, 8.224, 2.114)
pt3dadd(69.416, 190.037, 8.224, 2.128)
pt3dadd(69.32, 190.109, 8.224, 2.144)
pt3dadd(69.223, 190.181, 8.224, 2.158)
pt3dadd(69.127, 190.253, 8.224, 2.172)
pt3dadd(69.031, 190.324, 8.223, 2.186)
pt3dadd(68.935, 190.396, 8.223, 2.2)
pt3dadd(68.839, 190.468, 8.223, 2.214)
pt3dadd(68.745, 190.543, 8.223, 2.202)
pt3dadd(68.653, 190.62, 8.223, 2.176)
pt3dadd(68.561, 190.697, 8.223, 2.152)
pt3dadd(68.469, 190.774, 8.223, 2.128)
pt3dadd(68.377, 190.852, 8.223, 2.102)
pt3dadd(68.285, 190.928, 8.223, 2.078)
pt3dadd(68.193, 191.005, 8.223, 2.054)
pt3dadd(68.101, 191.082, 8.223, 2.028)
pt3dadd(68.009, 191.159, 8.223, 2.004)
pt3dadd(67.917, 191.236, 8.223, 1.98)
pt3dadd(67.826, 191.315, 8.223, 1.944)
pt3dadd(67.736, 191.394, 8.223, 1.902)
pt3dadd(67.646, 191.472, 8.223, 1.862)
pt3dadd(67.555, 191.551, 8.223, 1.822)
pt3dadd(67.465, 191.63, 8.223, 1.782)
pt3dadd(67.375, 191.71, 8.223, 1.742)
}
}
proc shape3d_39() {
apic[9] { pt3dadd(67.284, 191.789, 8.223, 1.702)
pt3dadd(67.194, 191.868, 8.223, 1.662)
pt3dadd(67.104, 191.947, 8.223, 1.622)
pt3dadd(67.014, 192.026, 8.222, 1.58)
pt3dadd(66.927, 192.108, 8.222, 1.542)
pt3dadd(66.84, 192.192, 8.222, 1.504)
pt3dadd(66.754, 192.276, 8.222, 1.466)
pt3dadd(66.668, 192.359, 8.222, 1.426)
pt3dadd(66.582, 192.443, 8.222, 1.388)
pt3dadd(66.496, 192.527, 8.222, 1.35)
pt3dadd(66.41, 192.61, 8.222, 1.312)
pt3dadd(66.324, 192.694, 8.222, 1.272)
pt3dadd(66.238, 192.778, 8.222, 1.234)
pt3dadd(66.152, 192.86, 8.221, 1.196)
pt3dadd(66.065, 192.944, 8.221, 1.18)
pt3dadd(65.978, 193.027, 8.221, 1.174)
pt3dadd(65.892, 193.11, 8.221, 1.166)
pt3dadd(65.805, 193.193, 8.221, 1.16)
pt3dadd(65.718, 193.276, 8.221, 1.152)
pt3dadd(65.632, 193.358, 8.221, 1.146)
pt3dadd(65.545, 193.441, 8.221, 1.138)
pt3dadd(65.458, 193.525, 8.22, 1.132)
pt3dadd(65.372, 193.608, 8.22, 1.124)
pt3dadd(65.285, 193.691, 8.22, 1.118)
pt3dadd(65.197, 193.772, 8.22, 1.172)
pt3dadd(65.109, 193.854, 8.22, 1.252)
pt3dadd(65.021, 193.936, 8.22, 1.33)
pt3dadd(64.933, 194.017, 8.219, 1.408)
pt3dadd(64.845, 194.099, 8.219, 1.488)
pt3dadd(64.757, 194.18, 8.219, 1.566)
pt3dadd(64.669, 194.262, 8.219, 1.644)
pt3dadd(64.581, 194.344, 8.219, 1.724)
pt3dadd(64.493, 194.425, 8.218, 1.802)
pt3dadd(64.405, 194.507, 8.218, 1.88)
pt3dadd(64.317, 194.587, 8.218, 1.934)
pt3dadd(64.227, 194.668, 8.217, 1.976)
pt3dadd(64.138, 194.748, 8.217, 2.02)
pt3dadd(64.049, 194.828, 8.217, 2.062)
pt3dadd(63.959, 194.909, 8.216, 2.106)
pt3dadd(63.87, 194.988, 8.216, 2.15)
pt3dadd(63.781, 195.068, 8.216, 2.192)
pt3dadd(63.691, 195.149, 8.215, 2.236)
pt3dadd(63.602, 195.229, 8.215, 2.278)
pt3dadd(63.513, 195.31, 8.215, 2.322)
pt3dadd(63.423, 195.389, 8.214, 2.342)
pt3dadd(63.333, 195.468, 8.214, 2.356)
pt3dadd(63.243, 195.547, 8.213, 2.37)
pt3dadd(63.152, 195.626, 8.213, 2.384)
pt3dadd(63.062, 195.706, 8.212, 2.396)
pt3dadd(62.972, 195.785, 8.212, 2.41)
pt3dadd(62.882, 195.864, 8.211, 2.424)
pt3dadd(62.792, 195.943, 8.211, 2.436)
pt3dadd(62.701, 196.022, 8.21, 2.45)
pt3dadd(62.611, 196.102, 8.21, 2.464)
pt3dadd(62.513, 196.169, 8.209, 2.46)
pt3dadd(62.411, 196.232, 8.208, 2.448)
pt3dadd(62.309, 196.295, 8.207, 2.436)
pt3dadd(62.206, 196.358, 8.205, 2.424)
pt3dadd(62.104, 196.421, 8.204, 2.414)
pt3dadd(62.002, 196.484, 8.203, 2.402)
pt3dadd(61.9, 196.548, 8.202, 2.39)
pt3dadd(61.798, 196.61, 8.201, 2.378)
pt3dadd(61.696, 196.674, 8.2, 2.368)
pt3dadd(61.594, 196.738, 8.199, 2.356)
pt3dadd(61.493, 196.801, 8.197, 2.324)
pt3dadd(61.392, 196.866, 8.196, 2.286)
pt3dadd(61.29, 196.93, 8.194, 2.248)
pt3dadd(61.189, 196.994, 8.192, 2.21)
pt3dadd(61.088, 197.059, 8.191, 2.172)
pt3dadd(60.987, 197.123, 8.189, 2.134)
pt3dadd(60.885, 197.188, 8.187, 2.096)
pt3dadd(60.784, 197.252, 8.186, 2.058)
pt3dadd(60.683, 197.316, 8.184, 2.02)
pt3dadd(60.582, 197.381, 8.182, 1.98)
pt3dadd(60.483, 197.449, 8.18, 1.916)
pt3dadd(60.386, 197.519, 8.178, 1.844)
pt3dadd(60.289, 197.59, 8.175, 1.772)
pt3dadd(60.191, 197.659, 8.173, 1.7)
pt3dadd(60.094, 197.73, 8.171, 1.628)
pt3dadd(59.997, 197.8, 8.168, 1.554)
pt3dadd(59.899, 197.87, 8.166, 1.482)
pt3dadd(59.802, 197.94, 8.164, 1.41)
pt3dadd(59.705, 198.01, 8.162, 1.338)
pt3dadd(59.607, 198.08, 8.159, 1.266)
pt3dadd(59.512, 198.154, 8.155, 1.266)
pt3dadd(59.419, 198.228, 8.15, 1.288)
pt3dadd(59.325, 198.302, 8.145, 1.312)
pt3dadd(59.231, 198.377, 8.14, 1.334)
pt3dadd(59.137, 198.452, 8.135, 1.358)
pt3dadd(59.043, 198.527, 8.13, 1.38)
pt3dadd(58.949, 198.601, 8.125, 1.404)
pt3dadd(58.855, 198.676, 8.12, 1.426)
pt3dadd(58.762, 198.75, 8.115, 1.45)
pt3dadd(58.668, 198.824, 8.111, 1.472)
pt3dadd(58.575, 198.9, 8.105, 1.508)
pt3dadd(58.482, 198.977, 8.099, 1.546)
pt3dadd(58.39, 199.052, 8.092, 1.584)
pt3dadd(58.297, 199.128, 8.086, 1.624)
pt3dadd(58.205, 199.205, 8.08, 1.662)
pt3dadd(58.112, 199.28, 8.074, 1.7)
pt3dadd(58.02, 199.357, 8.068, 1.738)
pt3dadd(57.927, 199.433, 8.062, 1.778)
pt3dadd(57.835, 199.508, 8.055, 1.816)
pt3dadd(57.742, 199.585, 8.049, 1.854)
pt3dadd(57.651, 199.662, 8.041, 1.884)
pt3dadd(57.561, 199.741, 8.032, 1.912)
pt3dadd(57.471, 199.819, 8.024, 1.938)
pt3dadd(57.38, 199.897, 8.015, 1.964)
pt3dadd(57.29, 199.975, 8.006, 1.992)
pt3dadd(57.2, 200.054, 7.997, 2.018)
pt3dadd(57.109, 200.132, 7.989, 2.046)
pt3dadd(57.019, 200.21, 7.98, 2.072)
pt3dadd(56.928, 200.288, 7.971, 2.1)
pt3dadd(56.838, 200.366, 7.962, 2.126)
pt3dadd(56.743, 200.437, 7.944, 2.148)
pt3dadd(56.648, 200.504, 7.922, 2.17)
pt3dadd(56.552, 200.57, 7.9, 2.19)
pt3dadd(56.456, 200.638, 7.878, 2.21)
pt3dadd(56.36, 200.705, 7.857, 2.232)
pt3dadd(56.264, 200.772, 7.835, 2.252)
pt3dadd(56.168, 200.839, 7.813, 2.272)
pt3dadd(56.072, 200.906, 7.791, 2.294)
pt3dadd(55.976, 200.974, 7.769, 2.314)
pt3dadd(55.88, 201.041, 7.748, 2.336)
pt3dadd(55.782, 201.098, 7.716, 2.35)
pt3dadd(55.683, 201.154, 7.683, 2.366)
pt3dadd(55.584, 201.209, 7.65, 2.38)
pt3dadd(55.485, 201.265, 7.617, 2.394)
pt3dadd(55.387, 201.32, 7.584, 2.41)
pt3dadd(55.288, 201.376, 7.551, 2.424)
pt3dadd(55.189, 201.432, 7.518, 2.438)
pt3dadd(55.091, 201.487, 7.485, 2.454)
pt3dadd(54.992, 201.542, 7.452, 2.468)
pt3dadd(54.893, 201.599, 7.419, 2.482)
pt3dadd(54.795, 201.662, 7.398, 2.472)
pt3dadd(54.697, 201.727, 7.377, 2.458)
pt3dadd(54.599, 201.792, 7.357, 2.444)
pt3dadd(54.501, 201.857, 7.337, 2.43)
pt3dadd(54.403, 201.922, 7.317, 2.414)
pt3dadd(54.305, 201.988, 7.296, 2.4)
pt3dadd(54.207, 202.052, 7.276, 2.386)
pt3dadd(54.11, 202.117, 7.256, 2.372)
pt3dadd(54.012, 202.182, 7.236, 2.358)
pt3dadd(53.914, 202.247, 7.215, 2.344)
pt3dadd(53.816, 202.314, 7.2, 2.328)
pt3dadd(53.719, 202.382, 7.185, 2.314)
pt3dadd(53.622, 202.45, 7.169, 2.3)
pt3dadd(53.524, 202.518, 7.154, 2.286)
pt3dadd(53.427, 202.585, 7.139, 2.272)
pt3dadd(53.33, 202.654, 7.124, 2.256)
pt3dadd(53.232, 202.721, 7.109, 2.242)
pt3dadd(53.135, 202.789, 7.093, 2.228)
pt3dadd(53.038, 202.856, 7.078, 2.212)
pt3dadd(52.94, 202.925, 7.063, 2.198)
pt3dadd(52.844, 202.994, 7.054, 2.184)
pt3dadd(52.748, 203.065, 7.045, 2.17)
pt3dadd(52.651, 203.137, 7.036, 2.156)
pt3dadd(52.555, 203.208, 7.027, 2.142)
pt3dadd(52.459, 203.279, 7.018, 2.126)
pt3dadd(52.363, 203.35, 7.009, 2.112)
pt3dadd(52.266, 203.42, 7, 2.098)
pt3dadd(52.17, 203.491, 6.992, 2.084)
pt3dadd(52.074, 203.562, 6.983, 2.07)
pt3dadd(51.978, 203.633, 6.974, 2.056)
pt3dadd(51.873, 203.692, 6.972, 2.064)
pt3dadd(51.768, 203.749, 6.971, 2.076)
pt3dadd(51.662, 203.806, 6.97, 2.088)
pt3dadd(51.557, 203.863, 6.969, 2.1)
pt3dadd(51.451, 203.92, 6.968, 2.112)
pt3dadd(51.346, 203.977, 6.966, 2.124)
pt3dadd(51.24, 204.035, 6.965, 2.134)
pt3dadd(51.135, 204.091, 6.964, 2.146)
pt3dadd(51.029, 204.149, 6.963, 2.158)
pt3dadd(50.924, 204.206, 6.962, 2.17)
pt3dadd(50.819, 204.264, 6.962, 2.18)
pt3dadd(50.714, 204.322, 6.962, 2.188)
pt3dadd(50.609, 204.38, 6.963, 2.196)
pt3dadd(50.504, 204.438, 6.963, 2.206)
pt3dadd(50.399, 204.497, 6.963, 2.214)
pt3dadd(50.294, 204.554, 6.963, 2.224)
pt3dadd(50.189, 204.612, 6.963, 2.232)
pt3dadd(50.084, 204.671, 6.964, 2.242)
pt3dadd(49.979, 204.728, 6.964, 2.25)
pt3dadd(49.874, 204.787, 6.964, 2.26)
pt3dadd(49.771, 204.848, 6.964, 2.26)
pt3dadd(49.668, 204.911, 6.965, 2.26)
pt3dadd(49.565, 204.972, 6.965, 2.26)
pt3dadd(49.463, 205.034, 6.965, 2.26)
pt3dadd(49.36, 205.097, 6.966, 2.26)
pt3dadd(49.257, 205.158, 6.966, 2.26)
pt3dadd(49.154, 205.22, 6.966, 2.26)
pt3dadd(49.052, 205.283, 6.967, 2.26)
pt3dadd(48.949, 205.345, 6.967, 2.26)
pt3dadd(48.846, 205.406, 6.967, 2.26)
pt3dadd(48.736, 205.454, 6.968, 2.26)
pt3dadd(48.625, 205.5, 6.969, 2.26)
pt3dadd(48.514, 205.546, 6.969, 2.26)
pt3dadd(48.404, 205.592, 6.97, 2.26)
pt3dadd(48.293, 205.638, 6.971, 2.26)
pt3dadd(48.182, 205.685, 6.971, 2.26)
}
}
proc shape3d_40() {
apic[9] { pt3dadd(48.071, 205.73, 6.972, 2.26)
pt3dadd(47.961, 205.777, 6.973, 2.26)
pt3dadd(47.85, 205.823, 6.973, 2.26)
pt3dadd(47.739, 205.868, 6.974, 2.26)
pt3dadd(47.632, 205.924, 6.975, 2.268)
pt3dadd(47.526, 205.98, 6.977, 2.278)
pt3dadd(47.42, 206.036, 6.978, 2.286)
pt3dadd(47.314, 206.092, 6.979, 2.296)
pt3dadd(47.208, 206.148, 6.98, 2.304)
pt3dadd(47.102, 206.204, 6.981, 2.314)
pt3dadd(46.996, 206.26, 6.982, 2.322)
pt3dadd(46.89, 206.316, 6.984, 2.332)
pt3dadd(46.784, 206.372, 6.985, 2.34)
pt3dadd(46.677, 206.429, 6.986, 2.35)
pt3dadd(46.574, 206.49, 6.988, 2.362)
pt3dadd(46.471, 206.551, 6.989, 2.374)
pt3dadd(46.368, 206.612, 6.991, 2.386)
pt3dadd(46.266, 206.675, 6.992, 2.398)
pt3dadd(46.163, 206.736, 6.994, 2.41)
pt3dadd(46.06, 206.797, 6.996, 2.422)
pt3dadd(45.957, 206.86, 6.997, 2.432)
pt3dadd(45.854, 206.921, 6.999, 2.444)
pt3dadd(45.751, 206.983, 7.001, 2.456)
pt3dadd(45.648, 207.044, 7.002, 2.468)
pt3dadd(45.539, 207.094, 7.005, 2.454)
pt3dadd(45.429, 207.143, 7.009, 2.436)
pt3dadd(45.32, 207.192, 7.012, 2.42)
pt3dadd(45.21, 207.241, 7.015, 2.404)
pt3dadd(45.101, 207.29, 7.018, 2.388)
pt3dadd(44.992, 207.34, 7.022, 2.372)
pt3dadd(44.882, 207.389, 7.025, 2.356)
pt3dadd(44.773, 207.438, 7.028, 2.338)
pt3dadd(44.663, 207.487, 7.031, 2.322)
pt3dadd(44.554, 207.536, 7.034, 2.306)
pt3dadd(44.451, 207.598, 7.04, 2.302)
pt3dadd(44.348, 207.659, 7.046, 2.296)
pt3dadd(44.245, 207.72, 7.052, 2.292)
pt3dadd(44.142, 207.781, 7.058, 2.288)
pt3dadd(44.04, 207.842, 7.064, 2.284)
pt3dadd(43.937, 207.904, 7.07, 2.278)
pt3dadd(43.834, 207.966, 7.076, 2.274)
pt3dadd(43.731, 208.027, 7.082, 2.27)
pt3dadd(43.628, 208.088, 7.089, 2.264)
pt3dadd(43.525, 208.15, 7.095, 2.26)
pt3dadd(43.426, 208.217, 7.102, 2.252)
pt3dadd(43.327, 208.283, 7.111, 2.242)
pt3dadd(43.227, 208.35, 7.119, 2.234)
pt3dadd(43.128, 208.416, 7.127, 2.226)
pt3dadd(43.029, 208.483, 7.135, 2.218)
pt3dadd(42.93, 208.55, 7.143, 2.208)
pt3dadd(42.83, 208.616, 7.151, 2.2)
pt3dadd(42.731, 208.684, 7.159, 2.192)
pt3dadd(42.632, 208.751, 7.167, 2.182)
pt3dadd(42.533, 208.817, 7.175, 2.174)
pt3dadd(42.436, 208.886, 7.187, 2.132)
pt3dadd(42.339, 208.957, 7.198, 2.088)
pt3dadd(42.243, 209.027, 7.21, 2.044)
}
dend_5[7] {pt3dclear()
pt3dadd(42.243, 209.027, 7.21, 2.044)
pt3dadd(42.146, 209.096, 7.222, 2.002)
pt3dadd(42.05, 209.166, 7.234, 1.958)
pt3dadd(41.953, 209.236, 7.246, 1.916)
pt3dadd(41.856, 209.305, 7.257, 1.872)
pt3dadd(41.76, 209.376, 7.269, 1.83)
pt3dadd(41.663, 209.446, 7.281, 1.786)
pt3dadd(41.567, 209.515, 7.293, 1.744)
}
dend_5[8] {pt3dclear()
pt3dadd(41.567, 209.515, 7.293, 1.744)
pt3dadd(41.562, 209.518, 7.294, 1.742)
pt3dadd(41.463, 209.575, 7.323, 1.706)
pt3dadd(41.364, 209.633, 7.352, 1.672)
pt3dadd(41.264, 209.689, 7.382, 1.636)
pt3dadd(41.165, 209.747, 7.411, 1.602)
pt3dadd(41.065, 209.804, 7.44, 1.566)
pt3dadd(40.966, 209.861, 7.47, 1.532)
pt3dadd(40.866, 209.918, 7.499, 1.496)
pt3dadd(40.767, 209.976, 7.528, 1.462)
pt3dadd(40.668, 210.032, 7.557, 1.426)
pt3dadd(40.568, 210.089, 7.588, 1.392)
pt3dadd(40.469, 210.138, 7.627, 1.366)
pt3dadd(40.369, 210.187, 7.665, 1.34)
pt3dadd(40.27, 210.236, 7.704, 1.312)
pt3dadd(40.171, 210.284, 7.742, 1.286)
pt3dadd(40.071, 210.334, 7.781, 1.26)
pt3dadd(39.972, 210.383, 7.819, 1.232)
pt3dadd(39.873, 210.432, 7.857, 1.206)
pt3dadd(39.773, 210.481, 7.896, 1.178)
pt3dadd(39.674, 210.53, 7.934, 1.152)
pt3dadd(39.575, 210.58, 7.971, 1.13)
pt3dadd(39.474, 210.634, 8.003, 1.13)
pt3dadd(39.374, 210.689, 8.033, 1.13)
pt3dadd(39.273, 210.743, 8.064, 1.13)
pt3dadd(39.173, 210.797, 8.095, 1.13)
pt3dadd(39.072, 210.851, 8.126, 1.13)
pt3dadd(38.972, 210.905, 8.157, 1.13)
pt3dadd(38.872, 210.959, 8.188, 1.13)
pt3dadd(38.771, 211.014, 8.219, 1.13)
pt3dadd(38.671, 211.068, 8.25, 1.13)
pt3dadd(38.57, 211.12, 8.283, 1.132)
pt3dadd(38.468, 211.162, 8.322, 1.14)
pt3dadd(38.366, 211.204, 8.361, 1.15)
pt3dadd(38.264, 211.244, 8.401, 1.158)
pt3dadd(38.162, 211.286, 8.44, 1.168)
pt3dadd(38.059, 211.328, 8.479, 1.176)
pt3dadd(37.957, 211.369, 8.518, 1.186)
pt3dadd(37.855, 211.411, 8.558, 1.194)
pt3dadd(37.753, 211.453, 8.597, 1.202)
pt3dadd(37.651, 211.495, 8.636, 1.212)
pt3dadd(37.548, 211.534, 8.677, 1.222)
pt3dadd(37.445, 211.566, 8.72, 1.234)
pt3dadd(37.341, 211.597, 8.763, 1.246)
pt3dadd(37.238, 211.63, 8.806, 1.258)
pt3dadd(37.134, 211.661, 8.849, 1.27)
pt3dadd(37.031, 211.693, 8.892, 1.282)
pt3dadd(36.927, 211.724, 8.935, 1.294)
pt3dadd(36.824, 211.757, 8.978, 1.306)
pt3dadd(36.72, 211.788, 9.021, 1.318)
pt3dadd(36.617, 211.819, 9.065, 1.33)
pt3dadd(36.51, 211.85, 9.103, 1.336)
pt3dadd(36.397, 211.876, 9.129, 1.318)
pt3dadd(36.284, 211.901, 9.156, 1.302)
pt3dadd(36.171, 211.926, 9.182, 1.284)
pt3dadd(36.058, 211.951, 9.208, 1.268)
pt3dadd(35.945, 211.976, 9.234, 1.25)
pt3dadd(35.832, 212.002, 9.26, 1.234)
pt3dadd(35.719, 212.027, 9.286, 1.218)
pt3dadd(35.606, 212.052, 9.312, 1.2)
pt3dadd(35.493, 212.077, 9.338, 1.184)
pt3dadd(35.381, 212.106, 9.363, 1.17)
pt3dadd(35.27, 212.146, 9.382, 1.166)
pt3dadd(35.158, 212.185, 9.401, 1.162)
pt3dadd(35.047, 212.224, 9.42, 1.158)
pt3dadd(34.936, 212.263, 9.439, 1.154)
pt3dadd(34.825, 212.302, 9.459, 1.15)
pt3dadd(34.714, 212.341, 9.478, 1.146)
pt3dadd(34.603, 212.381, 9.497, 1.142)
pt3dadd(34.492, 212.419, 9.516, 1.138)
pt3dadd(34.381, 212.459, 9.536, 1.132)
pt3dadd(34.269, 212.497, 9.554, 1.134)
pt3dadd(34.157, 212.534, 9.569, 1.146)
pt3dadd(34.044, 212.572, 9.584, 1.16)
pt3dadd(33.932, 212.609, 9.599, 1.172)
pt3dadd(33.819, 212.646, 9.614, 1.186)
pt3dadd(33.706, 212.684, 9.629, 1.198)
pt3dadd(33.594, 212.722, 9.644, 1.212)
pt3dadd(33.481, 212.759, 9.659, 1.224)
pt3dadd(33.369, 212.796, 9.675, 1.238)
pt3dadd(33.256, 212.833, 9.69, 1.25)
pt3dadd(33.142, 212.867, 9.704, 1.27)
pt3dadd(33.026, 212.893, 9.718, 1.302)
pt3dadd(32.91, 212.918, 9.732, 1.334)
pt3dadd(32.794, 212.945, 9.746, 1.368)
pt3dadd(32.678, 212.97, 9.759, 1.4)
pt3dadd(32.562, 212.996, 9.773, 1.432)
pt3dadd(32.446, 213.022, 9.787, 1.464)
pt3dadd(32.33, 213.048, 9.8, 1.496)
pt3dadd(32.214, 213.073, 9.814, 1.528)
pt3dadd(32.098, 213.1, 9.828, 1.56)
pt3dadd(31.984, 213.12, 9.85, 1.582)
pt3dadd(31.874, 213.128, 9.889, 1.582)
pt3dadd(31.763, 213.138, 9.927, 1.582)
pt3dadd(31.653, 213.146, 9.965, 1.582)
pt3dadd(31.542, 213.156, 10.003, 1.582)
pt3dadd(31.432, 213.166, 10.042, 1.582)
pt3dadd(31.321, 213.174, 10.08, 1.582)
pt3dadd(31.211, 213.184, 10.118, 1.582)
pt3dadd(31.1, 213.192, 10.157, 1.582)
pt3dadd(30.99, 213.202, 10.195, 1.582)
pt3dadd(30.878, 213.206, 10.231, 1.59)
pt3dadd(30.764, 213.204, 10.261, 1.614)
pt3dadd(30.65, 213.202, 10.291, 1.638)
pt3dadd(30.535, 213.198, 10.322, 1.662)
pt3dadd(30.421, 213.196, 10.352, 1.686)
pt3dadd(30.307, 213.193, 10.383, 1.71)
pt3dadd(30.192, 213.19, 10.413, 1.734)
pt3dadd(30.078, 213.187, 10.443, 1.758)
pt3dadd(29.964, 213.185, 10.474, 1.782)
pt3dadd(29.85, 213.181, 10.504, 1.806)
pt3dadd(29.735, 213.176, 10.532, 1.82)
pt3dadd(29.618, 213.166, 10.556, 1.822)
pt3dadd(29.502, 213.156, 10.579, 1.824)
pt3dadd(29.386, 213.146, 10.603, 1.826)
pt3dadd(29.27, 213.136, 10.627, 1.828)
pt3dadd(29.154, 213.126, 10.65, 1.83)
pt3dadd(29.038, 213.115, 10.674, 1.83)
pt3dadd(28.921, 213.106, 10.698, 1.832)
pt3dadd(28.805, 213.095, 10.721, 1.834)
pt3dadd(28.689, 213.085, 10.745, 1.836)
pt3dadd(28.573, 213.073, 10.766, 1.82)
pt3dadd(28.456, 213.056, 10.784, 1.778)
pt3dadd(28.339, 213.041, 10.802, 1.738)
pt3dadd(28.222, 213.025, 10.82, 1.696)
pt3dadd(28.105, 213.008, 10.838, 1.654)
pt3dadd(27.988, 212.993, 10.856, 1.612)
pt3dadd(27.871, 212.977, 10.873, 1.57)
pt3dadd(27.754, 212.96, 10.891, 1.528)
pt3dadd(27.637, 212.945, 10.909, 1.488)
pt3dadd(27.52, 212.929, 10.927, 1.446)
pt3dadd(27.406, 212.9, 10.943, 1.456)
pt3dadd(27.295, 212.857, 10.955, 1.54)
pt3dadd(27.184, 212.813, 10.967, 1.622)
pt3dadd(27.074, 212.768, 10.979, 1.704)
}
}
proc shape3d_41() {
dend_5[8] { pt3dadd(26.963, 212.724, 10.991, 1.786)
pt3dadd(26.852, 212.68, 11.003, 1.868)
pt3dadd(26.742, 212.636, 11.015, 1.95)
pt3dadd(26.631, 212.592, 11.027, 2.034)
pt3dadd(26.52, 212.548, 11.039, 2.116)
pt3dadd(26.41, 212.503, 11.051, 2.198)
pt3dadd(26.3, 212.465, 11.071, 2.242)
pt3dadd(26.19, 212.432, 11.102, 2.232)
pt3dadd(26.081, 212.401, 11.133, 2.22)
pt3dadd(25.971, 212.369, 11.164, 2.21)
pt3dadd(25.862, 212.338, 11.196, 2.2)
pt3dadd(25.752, 212.305, 11.226, 2.19)
pt3dadd(25.643, 212.273, 11.258, 2.18)
pt3dadd(25.533, 212.242, 11.289, 2.17)
pt3dadd(25.424, 212.209, 11.32, 2.16)
pt3dadd(25.314, 212.178, 11.351, 2.15)
pt3dadd(25.204, 212.15, 11.385, 2.116)
pt3dadd(25.095, 212.129, 11.421, 2.056)
pt3dadd(24.985, 212.107, 11.457, 1.996)
pt3dadd(24.875, 212.084, 11.493, 1.938)
pt3dadd(24.766, 212.063, 11.529, 1.878)
pt3dadd(24.656, 212.041, 11.565, 1.82)
pt3dadd(24.546, 212.018, 11.601, 1.76)
pt3dadd(24.436, 211.997, 11.637, 1.702)
pt3dadd(24.327, 211.975, 11.674, 1.642)
pt3dadd(24.217, 211.952, 11.71, 1.584)
pt3dadd(24.105, 211.937, 11.743, 1.51)
pt3dadd(23.991, 211.925, 11.773, 1.426)
pt3dadd(23.877, 211.913, 11.803, 1.34)
pt3dadd(23.764, 211.901, 11.833, 1.256)
pt3dadd(23.65, 211.889, 11.863, 1.172)
pt3dadd(23.536, 211.877, 11.893, 1.086)
pt3dadd(23.422, 211.865, 11.923, 1.002)
pt3dadd(23.309, 211.853, 11.954, 0.918)
pt3dadd(23.195, 211.841, 11.984, 0.832)
pt3dadd(23.081, 211.829, 12.014, 0.748)
pt3dadd(22.965, 211.825, 12.04, 0.744)
pt3dadd(22.848, 211.826, 12.063, 0.808)
pt3dadd(22.732, 211.828, 12.085, 0.872)
pt3dadd(22.615, 211.829, 12.108, 0.936)
pt3dadd(22.498, 211.83, 12.13, 1)
pt3dadd(22.381, 211.831, 12.153, 1.064)
pt3dadd(22.264, 211.832, 12.176, 1.128)
pt3dadd(22.147, 211.834, 12.198, 1.192)
pt3dadd(22.03, 211.835, 12.221, 1.256)
pt3dadd(21.913, 211.836, 12.243, 1.32)
pt3dadd(21.798, 211.837, 12.271, 1.362)
pt3dadd(21.685, 211.841, 12.304, 1.384)
pt3dadd(21.572, 211.843, 12.336, 1.408)
pt3dadd(21.458, 211.847, 12.369, 1.432)
pt3dadd(21.345, 211.849, 12.401, 1.454)
pt3dadd(21.231, 211.852, 12.434, 1.478)
pt3dadd(21.118, 211.855, 12.466, 1.502)
pt3dadd(21.004, 211.858, 12.498, 1.526)
pt3dadd(20.891, 211.861, 12.531, 1.548)
pt3dadd(20.777, 211.864, 12.563, 1.572)
pt3dadd(20.664, 211.867, 12.596, 1.584)
pt3dadd(20.551, 211.872, 12.63, 1.59)
pt3dadd(20.438, 211.877, 12.664, 1.596)
pt3dadd(20.325, 211.882, 12.697, 1.6)
pt3dadd(20.212, 211.886, 12.731, 1.606)
pt3dadd(20.099, 211.891, 12.764, 1.61)
pt3dadd(19.986, 211.896, 12.798, 1.616)
pt3dadd(19.874, 211.901, 12.832, 1.622)
pt3dadd(19.761, 211.906, 12.865, 1.626)
pt3dadd(19.648, 211.91, 12.899, 1.632)
pt3dadd(19.533, 211.918, 12.927, 1.644)
pt3dadd(19.417, 211.926, 12.952, 1.662)
pt3dadd(19.301, 211.934, 12.976, 1.678)
pt3dadd(19.185, 211.944, 13.001, 1.696)
pt3dadd(19.069, 211.952, 13.025, 1.714)
pt3dadd(18.953, 211.961, 13.05, 1.73)
pt3dadd(18.837, 211.969, 13.074, 1.748)
pt3dadd(18.721, 211.978, 13.099, 1.766)
pt3dadd(18.605, 211.986, 13.123, 1.782)
pt3dadd(18.489, 211.994, 13.148, 1.8)
pt3dadd(18.371, 212.006, 13.165, 1.786)
pt3dadd(18.253, 212.021, 13.177, 1.75)
pt3dadd(18.135, 212.035, 13.19, 1.716)
pt3dadd(18.017, 212.051, 13.202, 1.682)
pt3dadd(17.899, 212.065, 13.215, 1.646)
pt3dadd(17.781, 212.08, 13.227, 1.612)
pt3dadd(17.662, 212.094, 13.24, 1.578)
pt3dadd(17.544, 212.108, 13.252, 1.542)
pt3dadd(17.426, 212.123, 13.265, 1.508)
pt3dadd(17.308, 212.137, 13.277, 1.474)
pt3dadd(17.192, 212.166, 13.285, 1.446)
pt3dadd(17.078, 212.203, 13.291, 1.424)
pt3dadd(16.964, 212.24, 13.296, 1.402)
pt3dadd(16.85, 212.276, 13.302, 1.38)
pt3dadd(16.737, 212.314, 13.307, 1.358)
pt3dadd(16.623, 212.351, 13.313, 1.334)
pt3dadd(16.509, 212.388, 13.319, 1.312)
pt3dadd(16.395, 212.425, 13.324, 1.29)
pt3dadd(16.281, 212.462, 13.33, 1.268)
pt3dadd(16.167, 212.5, 13.335, 1.246)
pt3dadd(16.054, 212.54, 13.34, 1.232)
pt3dadd(15.942, 212.581, 13.344, 1.22)
pt3dadd(15.829, 212.623, 13.348, 1.21)
pt3dadd(15.716, 212.664, 13.352, 1.198)
pt3dadd(15.604, 212.705, 13.356, 1.188)
pt3dadd(15.491, 212.747, 13.36, 1.178)
pt3dadd(15.379, 212.788, 13.364, 1.166)
pt3dadd(15.266, 212.83, 13.368, 1.156)
pt3dadd(15.154, 212.87, 13.372, 1.144)
pt3dadd(15.041, 212.912, 13.377, 1.134)
pt3dadd(14.927, 212.947, 13.383, 1.13)
pt3dadd(14.811, 212.978, 13.39, 1.13)
pt3dadd(14.696, 213.011, 13.396, 1.13)
pt3dadd(14.58, 213.042, 13.403, 1.13)
pt3dadd(14.465, 213.074, 13.41, 1.13)
pt3dadd(14.35, 213.106, 13.417, 1.13)
pt3dadd(14.234, 213.138, 13.424, 1.13)
pt3dadd(14.119, 213.169, 13.431, 1.13)
pt3dadd(14.003, 213.202, 13.438, 1.13)
pt3dadd(13.888, 213.233, 13.445, 1.13)
pt3dadd(13.771, 213.258, 13.455, 1.13)
pt3dadd(13.654, 213.28, 13.467, 1.13)
pt3dadd(13.537, 213.301, 13.478, 1.13)
pt3dadd(13.42, 213.323, 13.49, 1.13)
pt3dadd(13.302, 213.344, 13.501, 1.13)
pt3dadd(13.185, 213.366, 13.513, 1.13)
pt3dadd(13.068, 213.388, 13.524, 1.13)
pt3dadd(12.951, 213.409, 13.536, 1.13)
pt3dadd(12.834, 213.432, 13.547, 1.13)
pt3dadd(12.716, 213.454, 13.559, 1.13)
pt3dadd(12.602, 213.47, 13.584, 1.156)
pt3dadd(12.489, 213.487, 13.614, 1.192)
pt3dadd(12.376, 213.503, 13.645, 1.228)
pt3dadd(12.263, 213.518, 13.675, 1.264)
pt3dadd(12.149, 213.535, 13.706, 1.3)
pt3dadd(12.036, 213.551, 13.736, 1.338)
pt3dadd(11.923, 213.566, 13.767, 1.374)
pt3dadd(11.81, 213.582, 13.797, 1.41)
pt3dadd(11.697, 213.599, 13.828, 1.446)
pt3dadd(11.584, 213.614, 13.858, 1.482)
pt3dadd(11.472, 213.637, 13.89, 1.52)
pt3dadd(11.362, 213.664, 13.923, 1.558)
pt3dadd(11.251, 213.689, 13.955, 1.596)
pt3dadd(11.14, 213.714, 13.988, 1.634)
pt3dadd(11.03, 213.739, 14.02, 1.672)
pt3dadd(10.919, 213.764, 14.053, 1.71)
pt3dadd(10.809, 213.79, 14.085, 1.748)
pt3dadd(10.698, 213.815, 14.118, 1.786)
pt3dadd(10.587, 213.84, 14.15, 1.824)
pt3dadd(10.477, 213.866, 14.182, 1.862)
pt3dadd(10.369, 213.908, 14.207, 1.88)
pt3dadd(10.261, 213.954, 14.229, 1.896)
pt3dadd(10.153, 214, 14.252, 1.912)
pt3dadd(10.046, 214.045, 14.275, 1.928)
pt3dadd(9.938, 214.091, 14.298, 1.944)
pt3dadd(9.83, 214.135, 14.321, 1.96)
pt3dadd(9.723, 214.181, 14.344, 1.976)
pt3dadd(9.615, 214.226, 14.366, 1.992)
pt3dadd(9.507, 214.272, 14.389, 2.008)
pt3dadd(9.4, 214.316, 14.412, 2.024)
pt3dadd(9.286, 214.352, 14.426, 1.998)
pt3dadd(9.172, 214.385, 14.439, 1.966)
pt3dadd(9.058, 214.418, 14.451, 1.934)
pt3dadd(8.943, 214.452, 14.464, 1.902)
pt3dadd(8.829, 214.486, 14.477, 1.87)
pt3dadd(8.715, 214.519, 14.489, 1.836)
pt3dadd(8.601, 214.552, 14.502, 1.804)
pt3dadd(8.486, 214.585, 14.515, 1.772)
pt3dadd(8.372, 214.619, 14.527, 1.74)
pt3dadd(8.258, 214.652, 14.54, 1.706)
pt3dadd(8.142, 214.68, 14.547, 1.692)
pt3dadd(8.025, 214.708, 14.553, 1.68)
pt3dadd(7.908, 214.734, 14.559, 1.668)
pt3dadd(7.791, 214.762, 14.565, 1.656)
pt3dadd(7.675, 214.788, 14.571, 1.644)
pt3dadd(7.558, 214.816, 14.578, 1.632)
pt3dadd(7.441, 214.842, 14.584, 1.62)
pt3dadd(7.325, 214.87, 14.59, 1.608)
pt3dadd(7.208, 214.896, 14.596, 1.596)
pt3dadd(7.091, 214.924, 14.602, 1.584)
pt3dadd(6.974, 214.946, 14.607, 1.588)
pt3dadd(6.856, 214.968, 14.612, 1.596)
pt3dadd(6.738, 214.99, 14.617, 1.604)
pt3dadd(6.62, 215.011, 14.622, 1.612)
pt3dadd(6.502, 215.034, 14.626, 1.618)
pt3dadd(6.384, 215.056, 14.631, 1.626)
pt3dadd(6.267, 215.077, 14.636, 1.634)
pt3dadd(6.149, 215.1, 14.641, 1.64)
pt3dadd(6.031, 215.122, 14.646, 1.648)
pt3dadd(5.913, 215.143, 14.65, 1.656)
pt3dadd(5.796, 215.17, 14.659, 1.67)
pt3dadd(5.68, 215.197, 14.667, 1.686)
pt3dadd(5.563, 215.224, 14.676, 1.702)
pt3dadd(5.447, 215.25, 14.684, 1.716)
pt3dadd(5.33, 215.276, 14.693, 1.732)
pt3dadd(5.214, 215.304, 14.701, 1.746)
pt3dadd(5.097, 215.33, 14.71, 1.762)
pt3dadd(4.981, 215.357, 14.718, 1.778)
pt3dadd(4.864, 215.384, 14.727, 1.792)
pt3dadd(4.748, 215.411, 14.735, 1.808)
pt3dadd(4.643, 215.467, 14.747, 1.808)
pt3dadd(4.538, 215.524, 14.759, 1.808)
pt3dadd(4.433, 215.581, 14.771, 1.808)
pt3dadd(4.328, 215.638, 14.783, 1.808)
}
}
proc shape3d_42() {
dend_5[8] { pt3dadd(4.224, 215.694, 14.794, 1.808)
pt3dadd(4.119, 215.75, 14.806, 1.808)
pt3dadd(4.014, 215.807, 14.818, 1.808)
pt3dadd(3.909, 215.864, 14.83, 1.808)
pt3dadd(3.804, 215.921, 14.842, 1.808)
pt3dadd(3.699, 215.977, 14.854, 1.808)
pt3dadd(3.61, 216.034, 14.901, 1.748)
pt3dadd(3.52, 216.09, 14.948, 1.686)
pt3dadd(3.43, 216.146, 14.995, 1.626)
pt3dadd(3.34, 216.203, 15.041, 1.566)
pt3dadd(3.251, 216.259, 15.088, 1.504)
pt3dadd(3.161, 216.314, 15.135, 1.444)
pt3dadd(3.071, 216.371, 15.182, 1.384)
pt3dadd(2.981, 216.427, 15.229, 1.324)
pt3dadd(2.892, 216.484, 15.276, 1.262)
pt3dadd(2.802, 216.54, 15.322, 1.206)
pt3dadd(2.709, 216.607, 15.352, 1.216)
pt3dadd(2.615, 216.674, 15.382, 1.224)
pt3dadd(2.522, 216.74, 15.412, 1.232)
pt3dadd(2.429, 216.808, 15.441, 1.242)
pt3dadd(2.336, 216.874, 15.471, 1.25)
pt3dadd(2.243, 216.941, 15.501, 1.26)
pt3dadd(2.15, 217.008, 15.531, 1.268)
pt3dadd(2.057, 217.074, 15.561, 1.276)
pt3dadd(1.964, 217.141, 15.59, 1.286)
pt3dadd(1.869, 217.206, 15.619, 1.296)
pt3dadd(1.763, 217.258, 15.638, 1.328)
pt3dadd(1.657, 217.308, 15.657, 1.358)
pt3dadd(1.551, 217.36, 15.677, 1.39)
pt3dadd(1.444, 217.41, 15.696, 1.422)
pt3dadd(1.338, 217.462, 15.715, 1.452)
pt3dadd(1.232, 217.512, 15.734, 1.484)
pt3dadd(1.126, 217.564, 15.753, 1.514)
pt3dadd(1.02, 217.614, 15.772, 1.546)
pt3dadd(0.914, 217.666, 15.791, 1.576)
pt3dadd(0.806, 217.714, 15.809, 1.604)
pt3dadd(0.693, 217.75, 15.82, 1.608)
pt3dadd(0.579, 217.787, 15.831, 1.614)
pt3dadd(0.465, 217.823, 15.843, 1.618)
pt3dadd(0.352, 217.859, 15.854, 1.624)
pt3dadd(0.238, 217.896, 15.865, 1.63)
pt3dadd(0.125, 217.932, 15.877, 1.634)
pt3dadd(0.011, 217.968, 15.888, 1.64)
pt3dadd(-0.102, 218.005, 15.899, 1.644)
pt3dadd(-0.216, 218.041, 15.911, 1.65)
pt3dadd(-0.33, 218.077, 15.921, 1.648)
pt3dadd(-0.445, 218.11, 15.929, 1.622)
pt3dadd(-0.56, 218.143, 15.936, 1.598)
pt3dadd(-0.675, 218.176, 15.944, 1.572)
pt3dadd(-0.79, 218.208, 15.952, 1.546)
pt3dadd(-0.905, 218.242, 15.959, 1.522)
pt3dadd(-1.02, 218.274, 15.967, 1.496)
pt3dadd(-1.135, 218.306, 15.975, 1.47)
pt3dadd(-1.25, 218.34, 15.982, 1.444)
pt3dadd(-1.365, 218.372, 15.99, 1.42)
pt3dadd(-1.478, 218.41, 15.998, 1.408)
pt3dadd(-1.586, 218.461, 16.009, 1.44)
pt3dadd(-1.694, 218.512, 16.021, 1.472)
pt3dadd(-1.801, 218.563, 16.031, 1.504)
pt3dadd(-1.909, 218.615, 16.042, 1.536)
pt3dadd(-2.017, 218.665, 16.054, 1.568)
pt3dadd(-2.125, 218.717, 16.065, 1.6)
pt3dadd(-2.232, 218.768, 16.076, 1.632)
pt3dadd(-2.34, 218.82, 16.087, 1.664)
pt3dadd(-2.448, 218.87, 16.098, 1.696)
pt3dadd(-2.555, 218.92, 16.113, 1.712)
pt3dadd(-2.661, 218.963, 16.143, 1.676)
pt3dadd(-2.768, 219.005, 16.172, 1.638)
pt3dadd(-2.874, 219.048, 16.202, 1.602)
pt3dadd(-2.981, 219.091, 16.232, 1.564)
pt3dadd(-3.087, 219.133, 16.261, 1.528)
pt3dadd(-3.193, 219.176, 16.291, 1.49)
pt3dadd(-3.3, 219.218, 16.32, 1.454)
pt3dadd(-3.406, 219.262, 16.35, 1.416)
pt3dadd(-3.513, 219.304, 16.38, 1.38)
pt3dadd(-3.618, 219.347, 16.41, 1.336)
pt3dadd(-3.723, 219.39, 16.443, 1.278)
pt3dadd(-3.828, 219.434, 16.476, 1.22)
pt3dadd(-3.932, 219.478, 16.509, 1.162)
pt3dadd(-4.037, 219.521, 16.542, 1.104)
pt3dadd(-4.142, 219.564, 16.574, 1.046)
pt3dadd(-4.246, 219.607, 16.607, 0.988)
pt3dadd(-4.351, 219.652, 16.64, 0.93)
pt3dadd(-4.456, 219.695, 16.673, 0.872)
pt3dadd(-4.56, 219.738, 16.706, 0.814)
pt3dadd(-4.664, 219.786, 16.736, 0.76)
pt3dadd(-4.767, 219.84, 16.759, 0.714)
pt3dadd(-4.87, 219.895, 16.783, 0.668)
pt3dadd(-4.973, 219.949, 16.807, 0.622)
pt3dadd(-5.076, 220.004, 16.831, 0.576)
pt3dadd(-5.179, 220.06, 16.854, 0.53)
pt3dadd(-5.282, 220.114, 16.878, 0.484)
pt3dadd(-5.385, 220.169, 16.902, 0.438)
pt3dadd(-5.488, 220.223, 16.925, 0.392)
pt3dadd(-5.591, 220.278, 16.949, 0.346)
pt3dadd(-5.697, 220.326, 16.971, 0.34)
pt3dadd(-5.809, 220.363, 16.99, 0.414)
pt3dadd(-5.921, 220.4, 17.008, 0.486)
pt3dadd(-6.033, 220.438, 17.027, 0.56)
pt3dadd(-6.145, 220.475, 17.046, 0.634)
pt3dadd(-6.257, 220.511, 17.064, 0.706)
pt3dadd(-6.369, 220.548, 17.083, 0.78)
pt3dadd(-6.481, 220.585, 17.102, 0.854)
pt3dadd(-6.593, 220.622, 17.12, 0.926)
pt3dadd(-6.705, 220.66, 17.139, 1)
pt3dadd(-6.818, 220.693, 17.156, 1.074)
pt3dadd(-6.933, 220.722, 17.171, 1.154)
pt3dadd(-7.048, 220.75, 17.185, 1.232)
pt3dadd(-7.163, 220.778, 17.2, 1.31)
pt3dadd(-7.279, 220.807, 17.215, 1.388)
pt3dadd(-7.394, 220.836, 17.229, 1.468)
pt3dadd(-7.509, 220.864, 17.244, 1.546)
pt3dadd(-7.624, 220.892, 17.259, 1.624)
pt3dadd(-7.74, 220.921, 17.273, 1.702)
pt3dadd(-7.855, 220.949, 17.288, 1.78)
pt3dadd(-7.97, 220.975, 17.303, 1.846)
pt3dadd(-8.086, 220.999, 17.32, 1.89)
pt3dadd(-8.203, 221.022, 17.336, 1.932)
pt3dadd(-8.319, 221.045, 17.352, 1.976)
pt3dadd(-8.435, 221.069, 17.369, 2.02)
pt3dadd(-8.551, 221.092, 17.385, 2.062)
pt3dadd(-8.667, 221.114, 17.401, 2.106)
pt3dadd(-8.783, 221.138, 17.417, 2.15)
pt3dadd(-8.899, 221.161, 17.434, 2.192)
pt3dadd(-9.015, 221.184, 17.45, 2.236)
pt3dadd(-9.129, 221.206, 17.476, 2.26)
pt3dadd(-9.238, 221.224, 17.513, 2.26)
pt3dadd(-9.348, 221.242, 17.551, 2.26)
pt3dadd(-9.458, 221.26, 17.588, 2.26)
pt3dadd(-9.568, 221.278, 17.626, 2.26)
pt3dadd(-9.677, 221.296, 17.663, 2.26)
pt3dadd(-9.787, 221.314, 17.701, 2.26)
pt3dadd(-9.897, 221.332, 17.738, 2.26)
pt3dadd(-10.007, 221.35, 17.776, 2.26)
pt3dadd(-10.116, 221.369, 17.813, 2.26)
pt3dadd(-10.224, 221.399, 17.846, 2.244)
pt3dadd(-10.33, 221.447, 17.872, 2.206)
pt3dadd(-10.436, 221.494, 17.898, 2.166)
pt3dadd(-10.542, 221.542, 17.924, 2.128)
pt3dadd(-10.647, 221.588, 17.95, 2.09)
pt3dadd(-10.753, 221.636, 17.976, 2.052)
pt3dadd(-10.859, 221.683, 18.002, 2.014)
pt3dadd(-10.965, 221.73, 18.028, 1.976)
pt3dadd(-11.07, 221.778, 18.054, 1.938)
pt3dadd(-11.176, 221.825, 18.08, 1.9)
pt3dadd(-11.282, 221.875, 18.102, 1.87)
pt3dadd(-11.387, 221.928, 18.122, 1.846)
pt3dadd(-11.492, 221.982, 18.141, 1.822)
pt3dadd(-11.597, 222.035, 18.16, 1.798)
pt3dadd(-11.702, 222.088, 18.18, 1.772)
pt3dadd(-11.807, 222.14, 18.199, 1.75)
pt3dadd(-11.913, 222.193, 18.218, 1.726)
pt3dadd(-12.018, 222.246, 18.238, 1.702)
pt3dadd(-12.123, 222.3, 18.257, 1.678)
pt3dadd(-12.228, 222.353, 18.276, 1.654)
pt3dadd(-12.334, 222.404, 18.292, 1.652)
pt3dadd(-12.442, 222.456, 18.305, 1.668)
pt3dadd(-12.549, 222.508, 18.318, 1.684)
pt3dadd(-12.656, 222.558, 18.331, 1.7)
pt3dadd(-12.764, 222.61, 18.344, 1.718)
pt3dadd(-12.871, 222.661, 18.357, 1.734)
pt3dadd(-12.979, 222.712, 18.37, 1.75)
pt3dadd(-13.086, 222.763, 18.383, 1.768)
pt3dadd(-13.193, 222.815, 18.396, 1.784)
pt3dadd(-13.301, 222.865, 18.409, 1.8)
pt3dadd(-13.402, 222.928, 18.418, 1.75)
pt3dadd(-13.498, 223, 18.424, 1.64)
pt3dadd(-13.594, 223.072, 18.431, 1.53)
pt3dadd(-13.69, 223.142, 18.437, 1.422)
pt3dadd(-13.786, 223.214, 18.443, 1.312)
pt3dadd(-13.882, 223.286, 18.449, 1.202)
pt3dadd(-13.978, 223.357, 18.455, 1.094)
pt3dadd(-14.074, 223.429, 18.461, 0.984)
pt3dadd(-14.17, 223.501, 18.468, 0.876)
pt3dadd(-14.266, 223.573, 18.474, 0.766)
pt3dadd(-14.36, 223.646, 18.481, 0.702)
pt3dadd(-14.452, 223.723, 18.489, 0.68)
pt3dadd(-14.544, 223.8, 18.498, 0.656)
pt3dadd(-14.636, 223.876, 18.506, 0.632)
pt3dadd(-14.728, 223.952, 18.514, 0.61)
pt3dadd(-14.82, 224.028, 18.523, 0.586)
pt3dadd(-14.912, 224.105, 18.531, 0.562)
pt3dadd(-15.004, 224.182, 18.539, 0.538)
pt3dadd(-15.096, 224.257, 18.548, 0.516)
pt3dadd(-15.188, 224.334, 18.556, 0.492)
pt3dadd(-15.278, 224.412, 18.567, 0.51)
pt3dadd(-15.365, 224.494, 18.58, 0.558)
pt3dadd(-15.453, 224.574, 18.593, 0.608)
pt3dadd(-15.54, 224.654, 18.607, 0.658)
pt3dadd(-15.628, 224.735, 18.62, 0.708)
pt3dadd(-15.715, 224.815, 18.633, 0.756)
pt3dadd(-15.803, 224.896, 18.646, 0.806)
pt3dadd(-15.89, 224.977, 18.659, 0.856)
pt3dadd(-15.978, 225.058, 18.672, 0.906)
pt3dadd(-16.065, 225.138, 18.686, 0.954)
pt3dadd(-16.143, 225.218, 18.718, 1.022)
pt3dadd(-16.214, 225.299, 18.763, 1.102)
pt3dadd(-16.284, 225.379, 18.808, 1.182)
pt3dadd(-16.355, 225.46, 18.853, 1.264)
pt3dadd(-16.426, 225.54, 18.898, 1.344)
}
}
proc shape3d_43() {
dend_5[8] { pt3dadd(-16.497, 225.62, 18.942, 1.424)
pt3dadd(-16.568, 225.701, 18.987, 1.504)
pt3dadd(-16.639, 225.781, 19.032, 1.584)
pt3dadd(-16.71, 225.862, 19.077, 1.664)
pt3dadd(-16.781, 225.942, 19.122, 1.744)
pt3dadd(-16.854, 226.028, 19.155, 1.756)
pt3dadd(-16.929, 226.117, 19.18, 1.726)
pt3dadd(-17.004, 226.206, 19.205, 1.694)
pt3dadd(-17.079, 226.295, 19.23, 1.664)
pt3dadd(-17.153, 226.384, 19.255, 1.634)
pt3dadd(-17.228, 226.472, 19.281, 1.604)
pt3dadd(-17.303, 226.561, 19.306, 1.574)
pt3dadd(-17.378, 226.65, 19.331, 1.544)
pt3dadd(-17.453, 226.739, 19.356, 1.512)
pt3dadd(-17.527, 226.828, 19.382, 1.482)
pt3dadd(-17.595, 226.924, 19.401, 1.478)
pt3dadd(-17.658, 227.023, 19.416, 1.49)
pt3dadd(-17.721, 227.124, 19.431, 1.502)
pt3dadd(-17.784, 227.225, 19.447, 1.516)
pt3dadd(-17.847, 227.324, 19.462, 1.528)
pt3dadd(-17.911, 227.425, 19.478, 1.54)
pt3dadd(-17.974, 227.526, 19.493, 1.552)
pt3dadd(-18.037, 227.626, 19.509, 1.564)
pt3dadd(-18.1, 227.726, 19.524, 1.576)
pt3dadd(-18.163, 227.826, 19.539, 1.588)
pt3dadd(-18.226, 227.928, 19.549, 1.6)
pt3dadd(-18.289, 228.03, 19.556, 1.61)
pt3dadd(-18.351, 228.132, 19.562, 1.62)
pt3dadd(-18.414, 228.234, 19.569, 1.632)
pt3dadd(-18.477, 228.336, 19.576, 1.642)
pt3dadd(-18.539, 228.438, 19.582, 1.652)
pt3dadd(-18.602, 228.54, 19.589, 1.662)
pt3dadd(-18.665, 228.642, 19.596, 1.674)
pt3dadd(-18.727, 228.744, 19.603, 1.684)
pt3dadd(-18.79, 228.846, 19.609, 1.694)
pt3dadd(-18.859, 228.944, 19.611, 1.676)
pt3dadd(-18.93, 229.04, 19.611, 1.648)
pt3dadd(-19.001, 229.138, 19.611, 1.618)
pt3dadd(-19.073, 229.234, 19.611, 1.59)
pt3dadd(-19.144, 229.331, 19.611, 1.562)
pt3dadd(-19.215, 229.427, 19.611, 1.532)
pt3dadd(-19.287, 229.523, 19.611, 1.504)
pt3dadd(-19.358, 229.62, 19.611, 1.476)
pt3dadd(-19.429, 229.716, 19.611, 1.446)
pt3dadd(-19.501, 229.813, 19.611, 1.418)
pt3dadd(-19.576, 229.906, 19.611, 1.398)
pt3dadd(-19.653, 229.998, 19.611, 1.382)
pt3dadd(-19.73, 230.09, 19.611, 1.366)
pt3dadd(-19.807, 230.183, 19.611, 1.348)
pt3dadd(-19.884, 230.274, 19.611, 1.332)
pt3dadd(-19.961, 230.366, 19.611, 1.316)
pt3dadd(-20.038, 230.459, 19.611, 1.3)
pt3dadd(-20.115, 230.551, 19.611, 1.284)
pt3dadd(-20.192, 230.642, 19.611, 1.266)
pt3dadd(-20.269, 230.735, 19.611, 1.25)
pt3dadd(-20.347, 230.826, 19.611, 1.238)
pt3dadd(-20.426, 230.916, 19.611, 1.226)
pt3dadd(-20.504, 231.007, 19.611, 1.214)
pt3dadd(-20.583, 231.097, 19.611, 1.202)
pt3dadd(-20.662, 231.188, 19.611, 1.192)
pt3dadd(-20.74, 231.278, 19.611, 1.18)
pt3dadd(-20.819, 231.37, 19.611, 1.168)
pt3dadd(-20.898, 231.46, 19.611, 1.156)
pt3dadd(-20.977, 231.551, 19.611, 1.144)
pt3dadd(-21.055, 231.641, 19.611, 1.134)
pt3dadd(-21.136, 231.73, 19.611, 1.13)
pt3dadd(-21.218, 231.817, 19.611, 1.13)
pt3dadd(-21.299, 231.906, 19.612, 1.13)
pt3dadd(-21.381, 231.994, 19.612, 1.13)
pt3dadd(-21.463, 232.081, 19.612, 1.13)
pt3dadd(-21.544, 232.17, 19.612, 1.13)
pt3dadd(-21.626, 232.258, 19.612, 1.13)
pt3dadd(-21.708, 232.345, 19.612, 1.13)
pt3dadd(-21.789, 232.434, 19.612, 1.13)
pt3dadd(-21.871, 232.522, 19.612, 1.13)
pt3dadd(-21.952, 232.61, 19.612, 1.114)
pt3dadd(-22.032, 232.699, 19.612, 1.092)
pt3dadd(-22.113, 232.788, 19.612, 1.068)
pt3dadd(-22.194, 232.877, 19.612, 1.046)
pt3dadd(-22.275, 232.966, 19.612, 1.024)
pt3dadd(-22.355, 233.054, 19.612, 1.002)
pt3dadd(-22.436, 233.143, 19.612, 0.978)
pt3dadd(-22.517, 233.232, 19.612, 0.956)
pt3dadd(-22.597, 233.321, 19.612, 0.934)
pt3dadd(-22.678, 233.41, 19.612, 0.912)
pt3dadd(-22.758, 233.5, 19.612, 0.866)
pt3dadd(-22.837, 233.59, 19.612, 0.812)
pt3dadd(-22.916, 233.68, 19.612, 0.758)
pt3dadd(-22.996, 233.77, 19.612, 0.704)
pt3dadd(-23.075, 233.86, 19.612, 0.652)
pt3dadd(-23.154, 233.95, 19.612, 0.598)
pt3dadd(-23.234, 234.04, 19.612, 0.544)
pt3dadd(-23.313, 234.13, 19.612, 0.49)
pt3dadd(-23.392, 234.22, 19.612, 0.436)
pt3dadd(-23.472, 234.31, 19.612, 0.382)
pt3dadd(-23.541, 234.407, 19.613, 0.39)
pt3dadd(-23.607, 234.506, 19.613, 0.422)
pt3dadd(-23.674, 234.607, 19.613, 0.454)
pt3dadd(-23.74, 234.707, 19.613, 0.484)
pt3dadd(-23.806, 234.808, 19.613, 0.516)
pt3dadd(-23.872, 234.907, 19.613, 0.546)
pt3dadd(-23.938, 235.008, 19.613, 0.578)
pt3dadd(-24.004, 235.108, 19.613, 0.608)
pt3dadd(-24.07, 235.207, 19.613, 0.64)
pt3dadd(-24.137, 235.308, 19.613, 0.67)
pt3dadd(-24.201, 235.409, 19.614, 0.712)
pt3dadd(-24.265, 235.511, 19.614, 0.758)
pt3dadd(-24.329, 235.612, 19.614, 0.804)
pt3dadd(-24.393, 235.714, 19.614, 0.848)
pt3dadd(-24.457, 235.816, 19.614, 0.894)
pt3dadd(-24.521, 235.916, 19.614, 0.938)
pt3dadd(-24.585, 236.018, 19.615, 0.984)
pt3dadd(-24.649, 236.12, 19.615, 1.03)
pt3dadd(-24.713, 236.221, 19.615, 1.074)
pt3dadd(-24.777, 236.323, 19.615, 1.12)
pt3dadd(-24.846, 236.42, 19.615, 1.13)
pt3dadd(-24.917, 236.518, 19.615, 1.13)
pt3dadd(-24.989, 236.614, 19.616, 1.13)
pt3dadd(-25.06, 236.711, 19.616, 1.13)
pt3dadd(-25.131, 236.807, 19.616, 1.13)
pt3dadd(-25.202, 236.904, 19.616, 1.13)
pt3dadd(-25.274, 237, 19.617, 1.13)
pt3dadd(-25.345, 237.097, 19.617, 1.13)
pt3dadd(-25.416, 237.193, 19.617, 1.13)
pt3dadd(-25.487, 237.29, 19.617, 1.13)
pt3dadd(-25.562, 237.384, 19.618, 1.122)
pt3dadd(-25.638, 237.476, 19.618, 1.114)
pt3dadd(-25.715, 237.569, 19.618, 1.104)
pt3dadd(-25.791, 237.661, 19.619, 1.094)
pt3dadd(-25.867, 237.755, 19.619, 1.084)
pt3dadd(-25.943, 237.847, 19.62, 1.074)
pt3dadd(-26.019, 237.94, 19.62, 1.066)
pt3dadd(-26.095, 238.032, 19.621, 1.056)
pt3dadd(-26.172, 238.126, 19.621, 1.046)
pt3dadd(-26.248, 238.218, 19.621, 1.036)
pt3dadd(-26.326, 238.309, 19.622, 1.026)
pt3dadd(-26.404, 238.4, 19.622, 1.016)
pt3dadd(-26.482, 238.492, 19.623, 1.006)
pt3dadd(-26.561, 238.582, 19.623, 0.996)
pt3dadd(-26.639, 238.673, 19.624, 0.986)
pt3dadd(-26.717, 238.764, 19.624, 0.976)
pt3dadd(-26.796, 238.855, 19.625, 0.966)
pt3dadd(-26.874, 238.945, 19.625, 0.954)
pt3dadd(-26.952, 239.036, 19.626, 0.944)
pt3dadd(-27.03, 239.128, 19.626, 0.934)
pt3dadd(-27.111, 239.216, 19.627, 0.984)
pt3dadd(-27.193, 239.304, 19.628, 1.05)
pt3dadd(-27.274, 239.393, 19.629, 1.116)
pt3dadd(-27.356, 239.48, 19.63, 1.182)
pt3dadd(-27.438, 239.568, 19.632, 1.25)
pt3dadd(-27.519, 239.656, 19.633, 1.316)
pt3dadd(-27.601, 239.744, 19.634, 1.382)
pt3dadd(-27.682, 239.832, 19.635, 1.448)
pt3dadd(-27.764, 239.92, 19.636, 1.514)
pt3dadd(-27.846, 240.008, 19.637, 1.582)
pt3dadd(-27.927, 240.096, 19.638, 1.616)
pt3dadd(-28.008, 240.185, 19.64, 1.64)
pt3dadd(-28.088, 240.274, 19.641, 1.666)
pt3dadd(-28.169, 240.362, 19.643, 1.69)
pt3dadd(-28.25, 240.451, 19.644, 1.716)
pt3dadd(-28.331, 240.54, 19.646, 1.74)
pt3dadd(-28.411, 240.629, 19.647, 1.766)
pt3dadd(-28.492, 240.718, 19.648, 1.79)
pt3dadd(-28.573, 240.806, 19.65, 1.816)
pt3dadd(-28.654, 240.895, 19.651, 1.84)
pt3dadd(-28.733, 240.985, 19.653, 1.802)
pt3dadd(-28.812, 241.075, 19.655, 1.746)
pt3dadd(-28.891, 241.165, 19.658, 1.692)
pt3dadd(-28.971, 241.255, 19.66, 1.636)
pt3dadd(-29.05, 241.345, 19.662, 1.582)
pt3dadd(-29.129, 241.435, 19.664, 1.526)
pt3dadd(-29.208, 241.526, 19.667, 1.47)
pt3dadd(-29.287, 241.616, 19.669, 1.416)
pt3dadd(-29.366, 241.706, 19.671, 1.36)
pt3dadd(-29.445, 241.796, 19.673, 1.304)
pt3dadd(-29.514, 241.895, 19.678, 1.28)
pt3dadd(-29.579, 241.996, 19.683, 1.264)
pt3dadd(-29.644, 242.096, 19.688, 1.248)
pt3dadd(-29.709, 242.197, 19.694, 1.23)
pt3dadd(-29.774, 242.297, 19.699, 1.214)
pt3dadd(-29.839, 242.398, 19.705, 1.198)
pt3dadd(-29.904, 242.498, 19.71, 1.182)
pt3dadd(-29.969, 242.599, 19.715, 1.166)
pt3dadd(-30.034, 242.7, 19.721, 1.148)
pt3dadd(-30.099, 242.801, 19.726, 1.132)
pt3dadd(-30.162, 242.903, 19.734, 1.13)
pt3dadd(-30.224, 243.005, 19.742, 1.13)
pt3dadd(-30.287, 243.107, 19.75, 1.13)
pt3dadd(-30.349, 243.209, 19.758, 1.13)
pt3dadd(-30.412, 243.311, 19.766, 1.13)
pt3dadd(-30.474, 243.413, 19.774, 1.13)
pt3dadd(-30.537, 243.515, 19.782, 1.13)
pt3dadd(-30.599, 243.617, 19.79, 1.13)
pt3dadd(-30.661, 243.719, 19.798, 1.13)
pt3dadd(-30.724, 243.821, 19.806, 1.13)
pt3dadd(-30.792, 243.919, 19.816, 1.13)
pt3dadd(-30.861, 244.016, 19.827, 1.13)
pt3dadd(-30.929, 244.114, 19.838, 1.13)
pt3dadd(-30.998, 244.211, 19.849, 1.13)
pt3dadd(-31.067, 244.308, 19.859, 1.13)
}
}
proc shape3d_44() {
dend_5[8] { pt3dadd(-31.136, 244.405, 19.87, 1.13)
pt3dadd(-31.205, 244.504, 19.881, 1.13)
pt3dadd(-31.274, 244.601, 19.892, 1.13)
pt3dadd(-31.343, 244.698, 19.902, 1.13)
pt3dadd(-31.411, 244.795, 19.913, 1.13)
pt3dadd(-31.477, 244.882, 19.954, 1.06)
pt3dadd(-31.542, 244.966, 20, 0.978)
pt3dadd(-31.607, 245.05, 20.047, 0.894)
pt3dadd(-31.672, 245.134, 20.094, 0.812)
pt3dadd(-31.737, 245.218, 20.14, 0.73)
pt3dadd(-31.802, 245.302, 20.187, 0.646)
pt3dadd(-31.867, 245.386, 20.233, 0.564)
pt3dadd(-31.932, 245.47, 20.28, 0.482)
pt3dadd(-31.997, 245.554, 20.326, 0.398)
pt3dadd(-32.062, 245.638, 20.373, 0.316)
pt3dadd(-32.138, 245.723, 20.402, 0.35)
pt3dadd(-32.216, 245.808, 20.428, 0.406)
pt3dadd(-32.294, 245.894, 20.454, 0.46)
pt3dadd(-32.372, 245.98, 20.48, 0.516)
pt3dadd(-32.45, 246.066, 20.506, 0.57)
pt3dadd(-32.528, 246.151, 20.532, 0.626)
pt3dadd(-32.606, 246.236, 20.558, 0.68)
pt3dadd(-32.684, 246.323, 20.584, 0.736)
pt3dadd(-32.762, 246.408, 20.611, 0.79)
pt3dadd(-32.84, 246.494, 20.637, 0.846)
pt3dadd(-32.92, 246.582, 20.653, 0.868)
pt3dadd(-32.999, 246.67, 20.668, 0.886)
pt3dadd(-33.079, 246.757, 20.684, 0.906)
pt3dadd(-33.159, 246.845, 20.699, 0.924)
pt3dadd(-33.238, 246.932, 20.715, 0.942)
pt3dadd(-33.318, 247.02, 20.73, 0.962)
pt3dadd(-33.398, 247.109, 20.745, 0.98)
pt3dadd(-33.477, 247.196, 20.761, 1)
pt3dadd(-33.557, 247.284, 20.776, 1.018)
pt3dadd(-33.637, 247.372, 20.791, 1.036)
pt3dadd(-33.715, 247.462, 20.8, 1.028)
pt3dadd(-33.793, 247.553, 20.809, 1.016)
pt3dadd(-33.871, 247.643, 20.817, 1.006)
pt3dadd(-33.949, 247.734, 20.826, 0.994)
pt3dadd(-34.027, 247.824, 20.834, 0.982)
pt3dadd(-34.105, 247.915, 20.842, 0.97)
pt3dadd(-34.184, 248.005, 20.851, 0.96)
pt3dadd(-34.262, 248.096, 20.859, 0.948)
pt3dadd(-34.34, 248.186, 20.867, 0.936)
pt3dadd(-34.418, 248.278, 20.876, 0.926)
pt3dadd(-34.484, 248.377, 20.876, 0.94)
pt3dadd(-34.549, 248.478, 20.876, 0.956)
pt3dadd(-34.614, 248.579, 20.876, 0.972)
pt3dadd(-34.679, 248.68, 20.876, 0.988)
pt3dadd(-34.744, 248.78, 20.876, 1.004)
pt3dadd(-34.809, 248.881, 20.876, 1.02)
pt3dadd(-34.874, 248.982, 20.876, 1.036)
pt3dadd(-34.939, 249.084, 20.876, 1.052)
pt3dadd(-35.004, 249.185, 20.876, 1.068)
pt3dadd(-35.069, 249.286, 20.876, 1.084)
pt3dadd(-35.142, 249.38, 20.876, 1.09)
pt3dadd(-35.217, 249.474, 20.876, 1.094)
pt3dadd(-35.291, 249.568, 20.876, 1.098)
pt3dadd(-35.366, 249.662, 20.876, 1.104)
pt3dadd(-35.44, 249.756, 20.876, 1.108)
pt3dadd(-35.515, 249.851, 20.876, 1.112)
pt3dadd(-35.589, 249.944, 20.876, 1.116)
pt3dadd(-35.664, 250.039, 20.876, 1.12)
pt3dadd(-35.738, 250.133, 20.876, 1.126)
pt3dadd(-35.812, 250.226, 20.876, 1.13)
pt3dadd(-35.896, 250.313, 20.876, 1.142)
pt3dadd(-35.98, 250.399, 20.876, 1.156)
pt3dadd(-36.064, 250.484, 20.876, 1.168)
pt3dadd(-36.148, 250.57, 20.876, 1.182)
pt3dadd(-36.232, 250.656, 20.876, 1.194)
pt3dadd(-36.316, 250.741, 20.876, 1.208)
pt3dadd(-36.4, 250.828, 20.876, 1.22)
pt3dadd(-36.484, 250.913, 20.876, 1.234)
pt3dadd(-36.568, 250.998, 20.876, 1.246)
pt3dadd(-36.652, 251.084, 20.876, 1.26)
pt3dadd(-36.752, 251.152, 20.876, 1.31)
pt3dadd(-36.851, 251.218, 20.876, 1.36)
pt3dadd(-36.951, 251.285, 20.876, 1.41)
pt3dadd(-37.05, 251.352, 20.876, 1.46)
pt3dadd(-37.15, 251.419, 20.877, 1.51)
pt3dadd(-37.249, 251.486, 20.877, 1.56)
pt3dadd(-37.349, 251.554, 20.877, 1.61)
pt3dadd(-37.448, 251.621, 20.877, 1.66)
pt3dadd(-37.548, 251.688, 20.877, 1.71)
pt3dadd(-37.647, 251.755, 20.877, 1.758)
pt3dadd(-37.743, 251.827, 20.877, 1.7)
pt3dadd(-37.839, 251.898, 20.877, 1.64)
pt3dadd(-37.936, 251.97, 20.877, 1.58)
pt3dadd(-38.032, 252.042, 20.877, 1.52)
pt3dadd(-38.128, 252.114, 20.877, 1.46)
pt3dadd(-38.224, 252.186, 20.877, 1.4)
pt3dadd(-38.32, 252.257, 20.877, 1.34)
pt3dadd(-38.416, 252.329, 20.877, 1.282)
pt3dadd(-38.513, 252.401, 20.877, 1.222)
pt3dadd(-38.609, 252.473, 20.877, 1.162)
pt3dadd(-38.703, 252.547, 20.877, 1.118)
pt3dadd(-38.796, 252.623, 20.877, 1.074)
pt3dadd(-38.89, 252.697, 20.877, 1.03)
pt3dadd(-38.984, 252.772, 20.877, 0.986)
pt3dadd(-39.078, 252.847, 20.877, 0.942)
pt3dadd(-39.172, 252.922, 20.877, 0.896)
pt3dadd(-39.266, 252.996, 20.877, 0.852)
pt3dadd(-39.359, 253.072, 20.877, 0.808)
pt3dadd(-39.453, 253.146, 20.877, 0.764)
pt3dadd(-39.547, 253.22, 20.877, 0.722)
pt3dadd(-39.636, 253.301, 20.877, 0.734)
pt3dadd(-39.726, 253.381, 20.877, 0.748)
pt3dadd(-39.816, 253.46, 20.877, 0.762)
pt3dadd(-39.905, 253.541, 20.877, 0.774)
pt3dadd(-39.995, 253.62, 20.877, 0.788)
pt3dadd(-40.084, 253.7, 20.877, 0.802)
pt3dadd(-40.174, 253.781, 20.877, 0.814)
pt3dadd(-40.263, 253.86, 20.877, 0.828)
pt3dadd(-40.353, 253.94, 20.877, 0.842)
pt3dadd(-40.442, 254.02, 20.877, 0.854)
pt3dadd(-40.528, 254.104, 20.877, 0.868)
pt3dadd(-40.615, 254.186, 20.877, 0.88)
pt3dadd(-40.701, 254.27, 20.877, 0.894)
pt3dadd(-40.788, 254.353, 20.877, 0.906)
pt3dadd(-40.874, 254.437, 20.877, 0.92)
pt3dadd(-40.96, 254.52, 20.877, 0.932)
pt3dadd(-41.047, 254.603, 20.877, 0.946)
pt3dadd(-41.133, 254.687, 20.877, 0.958)
pt3dadd(-41.219, 254.77, 20.878, 0.972)
pt3dadd(-41.306, 254.854, 20.878, 0.984)
pt3dadd(-41.39, 254.939, 20.878, 0.998)
pt3dadd(-41.475, 255.024, 20.878, 1.01)
pt3dadd(-41.559, 255.109, 20.878, 1.022)
pt3dadd(-41.644, 255.194, 20.878, 1.036)
pt3dadd(-41.728, 255.28, 20.878, 1.048)
pt3dadd(-41.813, 255.365, 20.878, 1.06)
pt3dadd(-41.897, 255.45, 20.878, 1.074)
pt3dadd(-41.982, 255.535, 20.878, 1.086)
pt3dadd(-42.066, 255.62, 20.878, 1.098)
pt3dadd(-42.151, 255.706, 20.878, 1.112)
pt3dadd(-42.235, 255.791, 20.878, 1.114)
pt3dadd(-42.319, 255.876, 20.878, 1.114)
pt3dadd(-42.403, 255.962, 20.878, 1.116)
pt3dadd(-42.487, 256.048, 20.879, 1.118)
pt3dadd(-42.571, 256.133, 20.879, 1.12)
pt3dadd(-42.655, 256.219, 20.879, 1.122)
pt3dadd(-42.74, 256.304, 20.879, 1.124)
pt3dadd(-42.824, 256.39, 20.879, 1.126)
pt3dadd(-42.908, 256.476, 20.879, 1.128)
pt3dadd(-42.992, 256.561, 20.879, 1.13)
pt3dadd(-43.076, 256.646, 20.879, 1.134)
pt3dadd(-43.16, 256.733, 20.88, 1.136)
pt3dadd(-43.244, 256.818, 20.88, 1.14)
pt3dadd(-43.328, 256.903, 20.88, 1.142)
pt3dadd(-43.412, 256.99, 20.88, 1.146)
pt3dadd(-43.496, 257.075, 20.88, 1.148)
pt3dadd(-43.58, 257.161, 20.88, 1.152)
pt3dadd(-43.664, 257.246, 20.88, 1.154)
pt3dadd(-43.748, 257.333, 20.88, 1.158)
pt3dadd(-43.832, 257.418, 20.881, 1.162)
pt3dadd(-43.915, 257.504, 20.881, 1.2)
pt3dadd(-43.998, 257.591, 20.881, 1.238)
pt3dadd(-44.081, 257.677, 20.881, 1.278)
pt3dadd(-44.165, 257.764, 20.882, 1.316)
pt3dadd(-44.248, 257.85, 20.882, 1.354)
pt3dadd(-44.331, 257.938, 20.882, 1.394)
pt3dadd(-44.414, 258.024, 20.882, 1.432)
pt3dadd(-44.497, 258.11, 20.883, 1.47)
pt3dadd(-44.58, 258.197, 20.883, 1.51)
pt3dadd(-44.664, 258.283, 20.883, 1.546)
pt3dadd(-44.746, 258.371, 20.884, 1.564)
pt3dadd(-44.828, 258.457, 20.884, 1.582)
pt3dadd(-44.911, 258.545, 20.884, 1.6)
pt3dadd(-44.993, 258.632, 20.885, 1.618)
pt3dadd(-45.075, 258.72, 20.885, 1.636)
pt3dadd(-45.158, 258.806, 20.886, 1.652)
pt3dadd(-45.24, 258.894, 20.886, 1.67)
pt3dadd(-45.322, 258.982, 20.886, 1.688)
pt3dadd(-45.405, 259.068, 20.887, 1.706)
pt3dadd(-45.487, 259.156, 20.887, 1.722)
pt3dadd(-45.568, 259.244, 20.888, 1.696)
pt3dadd(-45.648, 259.333, 20.888, 1.668)
pt3dadd(-45.729, 259.422, 20.889, 1.642)
pt3dadd(-45.81, 259.511, 20.889, 1.616)
pt3dadd(-45.89, 259.601, 20.89, 1.59)
pt3dadd(-45.971, 259.69, 20.891, 1.564)
pt3dadd(-46.051, 259.778, 20.891, 1.536)
pt3dadd(-46.132, 259.867, 20.892, 1.51)
pt3dadd(-46.213, 259.956, 20.892, 1.484)
pt3dadd(-46.293, 260.045, 20.893, 1.458)
pt3dadd(-46.372, 260.136, 20.894, 1.43)
pt3dadd(-46.45, 260.226, 20.895, 1.404)
pt3dadd(-46.529, 260.317, 20.896, 1.376)
pt3dadd(-46.607, 260.408, 20.897, 1.348)
pt3dadd(-46.686, 260.498, 20.898, 1.322)
pt3dadd(-46.764, 260.59, 20.899, 1.294)
pt3dadd(-46.843, 260.68, 20.901, 1.268)
pt3dadd(-46.921, 260.771, 20.902, 1.24)
pt3dadd(-47, 260.862, 20.903, 1.214)
pt3dadd(-47.078, 260.952, 20.904, 1.186)
pt3dadd(-47.155, 261.044, 20.905, 1.16)
pt3dadd(-47.232, 261.137, 20.906, 1.132)
pt3dadd(-47.309, 261.228, 20.908, 1.104)
pt3dadd(-47.386, 261.32, 20.909, 1.078)
pt3dadd(-47.463, 261.413, 20.911, 1.05)
}
}
proc shape3d_45() {
dend_5[8] { pt3dadd(-47.54, 261.504, 20.912, 1.022)
pt3dadd(-47.617, 261.596, 20.913, 0.994)
pt3dadd(-47.694, 261.689, 20.915, 0.968)
pt3dadd(-47.771, 261.78, 20.916, 0.94)
pt3dadd(-47.848, 261.872, 20.917, 0.914)
pt3dadd(-47.902, 261.98, 20.921, 0.912)
pt3dadd(-47.955, 262.087, 20.924, 0.912)
pt3dadd(-48.009, 262.194, 20.927, 0.91)
pt3dadd(-48.063, 262.302, 20.93, 0.91)
pt3dadd(-48.117, 262.409, 20.934, 0.908)
pt3dadd(-48.171, 262.516, 20.937, 0.908)
pt3dadd(-48.225, 262.622, 20.94, 0.906)
pt3dadd(-48.279, 262.73, 20.943, 0.906)
pt3dadd(-48.333, 262.837, 20.946, 0.904)
pt3dadd(-48.387, 262.944, 20.95, 0.906)
pt3dadd(-48.442, 263.051, 20.955, 0.94)
pt3dadd(-48.498, 263.156, 20.961, 0.974)
pt3dadd(-48.553, 263.263, 20.967, 1.01)
pt3dadd(-48.609, 263.369, 20.973, 1.044)
pt3dadd(-48.665, 263.474, 20.978, 1.08)
pt3dadd(-48.72, 263.581, 20.984, 1.114)
pt3dadd(-48.776, 263.687, 20.99, 1.148)
pt3dadd(-48.832, 263.794, 20.996, 1.184)
pt3dadd(-48.887, 263.899, 21.001, 1.218)
pt3dadd(-48.941, 264.006, 21.008, 1.254)
pt3dadd(-48.964, 264.12, 21.032, 1.32)
pt3dadd(-48.986, 264.234, 21.056, 1.386)
pt3dadd(-49.008, 264.349, 21.08, 1.452)
pt3dadd(-49.031, 264.463, 21.104, 1.518)
pt3dadd(-49.053, 264.577, 21.128, 1.584)
pt3dadd(-49.075, 264.691, 21.152, 1.65)
pt3dadd(-49.098, 264.806, 21.176, 1.716)
pt3dadd(-49.12, 264.92, 21.2, 1.782)
}
dend_5[9] {pt3dclear()
pt3dadd(-49.12, 264.92, 21.2, 1.782)
pt3dadd(-49.19, 264.92, 21.259, 1.776)
pt3dadd(-49.275, 264.92, 21.329, 1.766)
pt3dadd(-49.36, 264.92, 21.4, 1.758)
}
dend_5[10] {pt3dclear()
pt3dadd(-49.36, 264.92, 21.4, 1.758)
pt3dadd(-49.445, 264.979, 21.4, 1.748)
pt3dadd(-49.544, 265.046, 21.4, 1.736)
pt3dadd(-49.655, 265.09, 21.4, 1.688)
pt3dadd(-49.765, 265.129, 21.4, 1.63)
pt3dadd(-49.818, 265.237, 21.4, 1.6)
pt3dadd(-49.872, 265.344, 21.4, 1.572)
pt3dadd(-49.926, 265.451, 21.4, 1.544)
pt3dadd(-49.979, 265.559, 21.4, 1.514)
pt3dadd(-50.033, 265.666, 21.4, 1.486)
pt3dadd(-50.105, 265.762, 21.4, 1.46)
pt3dadd(-50.18, 265.855, 21.4, 1.434)
pt3dadd(-50.255, 265.949, 21.4, 1.41)
pt3dadd(-50.33, 266.042, 21.4, 1.384)
pt3dadd(-50.405, 266.136, 21.4, 1.358)
pt3dadd(-50.505, 266.201, 21.4, 1.274)
pt3dadd(-50.609, 266.262, 21.4, 1.182)
pt3dadd(-50.712, 266.322, 21.4, 1.076)
pt3dadd(-50.816, 266.383, 21.4, 0.96)
pt3dadd(-50.877, 266.473, 21.4, 0.86)
pt3dadd(-50.898, 266.591, 21.4, 0.772)
pt3dadd(-50.918, 266.71, 21.4, 0.686)
pt3dadd(-50.956, 266.824, 21.4, 0.658)
pt3dadd(-50.996, 266.936, 21.4, 0.638)
pt3dadd(-51.037, 267.049, 21.4, 0.674)
pt3dadd(-51.08, 267.161, 21.4, 0.754)
pt3dadd(-51.093, 267.281, 21.4, 0.782)
pt3dadd(-51.105, 267.4, 21.4, 0.808)
pt3dadd(-51.118, 267.52, 21.4, 0.836)
pt3dadd(-51.13, 267.638, 21.4, 0.864)
pt3dadd(-51.143, 267.758, 21.4, 0.892)
pt3dadd(-51.155, 267.877, 21.4, 0.92)
pt3dadd(-51.169, 267.996, 21.39, 0.934)
pt3dadd(-51.184, 268.112, 21.374, 0.944)
pt3dadd(-51.198, 268.23, 21.358, 0.952)
pt3dadd(-51.212, 268.348, 21.342, 0.962)
pt3dadd(-51.227, 268.465, 21.326, 0.97)
pt3dadd(-51.242, 268.583, 21.313, 0.978)
pt3dadd(-51.263, 268.699, 21.333, 0.974)
pt3dadd(-51.284, 268.814, 21.352, 0.968)
pt3dadd(-51.305, 268.931, 21.372, 0.964)
pt3dadd(-51.326, 269.046, 21.392, 0.96)
pt3dadd(-51.348, 269.161, 21.411, 0.954)
pt3dadd(-51.404, 269.268, 21.408, 0.94)
pt3dadd(-51.461, 269.374, 21.405, 0.928)
pt3dadd(-51.517, 269.479, 21.402, 0.914)
pt3dadd(-51.565, 269.585, 21.389, 0.91)
pt3dadd(-51.585, 269.69, 21.345, 0.934)
pt3dadd(-51.605, 269.8, 21.31, 0.96)
pt3dadd(-51.626, 269.917, 21.306, 0.992)
pt3dadd(-51.648, 270.035, 21.301, 1.022)
pt3dadd(-51.739, 270.086, 21.3, 1.036)
pt3dadd(-51.856, 270.113, 21.3, 1.048)
pt3dadd(-51.97, 270.146, 21.3, 1.044)
pt3dadd(-52.073, 270.208, 21.3, 0.998)
pt3dadd(-52.177, 270.268, 21.3, 0.954)
pt3dadd(-52.291, 270.305, 21.3, 0.922)
pt3dadd(-52.405, 270.341, 21.3, 0.89)
pt3dadd(-52.52, 270.378, 21.3, 0.858)
pt3dadd(-52.628, 270.42, 21.3, 0.828)
pt3dadd(-52.649, 270.539, 21.3, 0.828)
pt3dadd(-52.669, 270.656, 21.3, 0.828)
pt3dadd(-52.68, 270.775, 21.3, 0.844)
pt3dadd(-52.68, 270.895, 21.3, 0.874)
pt3dadd(-52.68, 271.015, 21.3, 0.906)
pt3dadd(-52.68, 271.135, 21.3, 0.938)
pt3dadd(-52.682, 271.255, 21.3, 0.97)
pt3dadd(-52.687, 271.375, 21.3, 1.006)
pt3dadd(-52.691, 271.495, 21.3, 1.04)
pt3dadd(-52.736, 271.601, 21.3, 1.06)
pt3dadd(-52.811, 271.694, 21.3, 1.068)
pt3dadd(-52.886, 271.788, 21.3, 1.078)
pt3dadd(-52.941, 271.894, 21.3, 1.064)
pt3dadd(-52.987, 272.004, 21.3, 1.042)
pt3dadd(-53.054, 272.1, 21.3, 1.046)
pt3dadd(-53.128, 272.192, 21.305, 1.058)
pt3dadd(-53.194, 272.292, 21.312, 1.064)
pt3dadd(-53.261, 272.392, 21.319, 1.068)
pt3dadd(-53.327, 272.491, 21.326, 1.074)
pt3dadd(-53.394, 272.591, 21.333, 1.08)
pt3dadd(-53.481, 272.66, 21.367, 1.102)
pt3dadd(-53.57, 272.728, 21.404, 1.126)
pt3dadd(-53.659, 272.795, 21.441, 1.15)
pt3dadd(-53.748, 272.861, 21.478, 1.174)
pt3dadd(-53.856, 272.88, 21.509, 1.224)
pt3dadd(-53.964, 272.902, 21.544, 1.356)
pt3dadd(-54.053, 272.96, 21.589, 1.482)
pt3dadd(-54.167, 272.992, 21.6, 1.506)
pt3dadd(-54.287, 273, 21.6, 1.54)
pt3dadd(-54.392, 273.001, 21.628, 1.53)
pt3dadd(-54.475, 273.005, 21.701, 1.4)
pt3dadd(-54.557, 273.008, 21.774, 1.27)
pt3dadd(-54.639, 273.012, 21.846, 1.14)
pt3dadd(-54.722, 273.016, 21.919, 1.008)
pt3dadd(-54.804, 273.019, 21.991, 0.878)
pt3dadd(-54.887, 273.023, 22.064, 0.748)
pt3dadd(-54.969, 273.026, 22.137, 0.616)
pt3dadd(-55.057, 273.102, 22.142, 0.596)
pt3dadd(-55.144, 273.184, 22.142, 0.584)
pt3dadd(-55.232, 273.266, 22.142, 0.572)
pt3dadd(-55.32, 273.348, 22.142, 0.56)
pt3dadd(-55.408, 273.43, 22.142, 0.55)
pt3dadd(-55.495, 273.511, 22.142, 0.538)
pt3dadd(-55.583, 273.594, 22.142, 0.526)
pt3dadd(-55.671, 273.676, 22.142, 0.514)
pt3dadd(-55.758, 273.757, 22.142, 0.502)
pt3dadd(-55.846, 273.839, 22.142, 0.49)
pt3dadd(-55.935, 273.919, 22.142, 0.476)
pt3dadd(-56.024, 274.001, 22.142, 0.462)
pt3dadd(-56.113, 274.081, 22.142, 0.448)
pt3dadd(-56.202, 274.162, 22.142, 0.434)
pt3dadd(-56.291, 274.242, 22.143, 0.42)
pt3dadd(-56.379, 274.322, 22.143, 0.406)
pt3dadd(-56.468, 274.404, 22.143, 0.392)
pt3dadd(-56.557, 274.484, 22.143, 0.38)
pt3dadd(-56.646, 274.565, 22.143, 0.364)
pt3dadd(-56.735, 274.645, 22.143, 0.35)
pt3dadd(-56.825, 274.726, 22.143, 0.352)
pt3dadd(-56.914, 274.805, 22.143, 0.354)
pt3dadd(-57.004, 274.884, 22.143, 0.356)
pt3dadd(-57.094, 274.964, 22.143, 0.356)
pt3dadd(-57.184, 275.044, 22.143, 0.358)
pt3dadd(-57.274, 275.123, 22.143, 0.36)
pt3dadd(-57.364, 275.202, 22.143, 0.362)
pt3dadd(-57.453, 275.282, 22.143, 0.364)
pt3dadd(-57.543, 275.362, 22.143, 0.366)
pt3dadd(-57.633, 275.441, 22.144, 0.368)
pt3dadd(-57.725, 275.519, 22.144, 0.444)
pt3dadd(-57.817, 275.596, 22.144, 0.526)
pt3dadd(-57.909, 275.672, 22.144, 0.608)
pt3dadd(-58.001, 275.749, 22.144, 0.69)
pt3dadd(-58.093, 275.826, 22.144, 0.772)
pt3dadd(-58.185, 275.904, 22.144, 0.854)
pt3dadd(-58.277, 275.981, 22.145, 0.938)
pt3dadd(-58.369, 276.058, 22.145, 1.02)
pt3dadd(-58.461, 276.134, 22.145, 1.102)
pt3dadd(-58.553, 276.211, 22.145, 1.184)
pt3dadd(-58.654, 276.277, 22.145, 1.196)
pt3dadd(-58.755, 276.342, 22.145, 1.2)
pt3dadd(-58.856, 276.407, 22.146, 1.206)
pt3dadd(-58.957, 276.472, 22.146, 1.212)
pt3dadd(-59.058, 276.536, 22.146, 1.218)
pt3dadd(-59.159, 276.601, 22.146, 1.224)
pt3dadd(-59.26, 276.666, 22.146, 1.228)
pt3dadd(-59.361, 276.731, 22.147, 1.234)
pt3dadd(-59.462, 276.796, 22.147, 1.24)
pt3dadd(-59.563, 276.86, 22.147, 1.246)
pt3dadd(-59.67, 276.913, 22.148, 1.194)
pt3dadd(-59.778, 276.967, 22.148, 1.144)
pt3dadd(-59.885, 277.02, 22.148, 1.092)
pt3dadd(-59.993, 277.074, 22.149, 1.04)
pt3dadd(-60.1, 277.127, 22.149, 0.99)
pt3dadd(-60.208, 277.18, 22.149, 0.938)
pt3dadd(-60.315, 277.234, 22.15, 0.886)
pt3dadd(-60.423, 277.286, 22.15, 0.836)
pt3dadd(-60.53, 277.34, 22.151, 0.784)
pt3dadd(-60.638, 277.393, 22.151, 0.732)
pt3dadd(-60.743, 277.451, 22.152, 0.78)
pt3dadd(-60.849, 277.508, 22.152, 0.828)
pt3dadd(-60.954, 277.565, 22.153, 0.874)
pt3dadd(-61.059, 277.622, 22.154, 0.922)
pt3dadd(-61.165, 277.68, 22.154, 0.968)
pt3dadd(-61.27, 277.738, 22.155, 1.016)
}
}
proc shape3d_46() {
dend_5[10] { pt3dadd(-61.376, 277.795, 22.156, 1.064)
pt3dadd(-61.481, 277.852, 22.156, 1.11)
pt3dadd(-61.587, 277.909, 22.157, 1.158)
pt3dadd(-61.692, 277.967, 22.158, 1.204)
}
dend_5[11] {pt3dclear()
pt3dadd(-61.692, 277.967, 22.158, 1.204)
pt3dadd(-61.697, 277.975, 22.199, 1.172)
pt3dadd(-61.708, 277.996, 22.297, 1.094)
pt3dadd(-61.719, 278.016, 22.395, 1.016)
pt3dadd(-61.73, 278.035, 22.493, 0.936)
pt3dadd(-61.742, 278.056, 22.591, 0.858)
pt3dadd(-61.753, 278.076, 22.69, 0.78)
pt3dadd(-61.764, 278.096, 22.788, 0.702)
pt3dadd(-61.775, 278.116, 22.886, 0.624)
pt3dadd(-61.787, 278.136, 22.984, 0.544)
pt3dadd(-61.798, 278.156, 23.082, 0.466)
pt3dadd(-61.8, 278.258, 23.1, 0.514)
pt3dadd(-61.8, 278.378, 23.1, 0.588)
pt3dadd(-61.8, 278.498, 23.1, 0.664)
pt3dadd(-61.8, 278.618, 23.1, 0.684)
pt3dadd(-61.8, 278.738, 23.1, 0.694)
pt3dadd(-61.8, 278.858, 23.1, 0.702)
pt3dadd(-61.813, 278.977, 23.104, 0.696)
pt3dadd(-61.828, 279.096, 23.108, 0.686)
pt3dadd(-61.857, 279.193, 23.129, 0.672)
pt3dadd(-61.928, 279.222, 23.206, 0.646)
pt3dadd(-62.01, 279.251, 23.271, 0.614)
pt3dadd(-62.114, 279.283, 23.314, 0.578)
pt3dadd(-62.209, 279.335, 23.357, 0.592)
pt3dadd(-62.308, 279.385, 23.39, 0.606)
pt3dadd(-62.418, 279.434, 23.395, 0.618)
pt3dadd(-62.523, 279.487, 23.4, 0.63)
pt3dadd(-62.577, 279.594, 23.4, 0.664)
pt3dadd(-62.631, 279.702, 23.4, 0.698)
pt3dadd(-62.673, 279.814, 23.4, 0.704)
pt3dadd(-62.713, 279.928, 23.4, 0.704)
pt3dadd(-62.79, 279.997, 23.4, 0.706)
pt3dadd(-62.907, 280.019, 23.4, 0.712)
pt3dadd(-63.026, 280.04, 23.4, 0.718)
pt3dadd(-63.144, 280.062, 23.4, 0.724)
pt3dadd(-63.262, 280.084, 23.4, 0.726)
pt3dadd(-63.38, 280.104, 23.4, 0.716)
pt3dadd(-63.498, 280.124, 23.4, 0.708)
pt3dadd(-63.575, 280.198, 23.4, 0.704)
pt3dadd(-63.623, 280.307, 23.4, 0.704)
pt3dadd(-63.672, 280.417, 23.4, 0.704)
pt3dadd(-63.748, 280.504, 23.4, 0.684)
pt3dadd(-63.847, 280.572, 23.4, 0.648)
pt3dadd(-63.936, 280.65, 23.4, 0.614)
pt3dadd(-64.011, 280.744, 23.4, 0.602)
pt3dadd(-64.086, 280.837, 23.4, 0.602)
pt3dadd(-64.185, 280.889, 23.4, 0.628)
pt3dadd(-64.304, 280.903, 23.4, 0.674)
pt3dadd(-64.423, 280.918, 23.4, 0.722)
pt3dadd(-64.536, 280.936, 23.427, 0.788)
pt3dadd(-64.649, 280.955, 23.458, 0.86)
pt3dadd(-64.718, 281.036, 23.479, 0.906)
pt3dadd(-64.771, 281.142, 23.495, 0.944)
pt3dadd(-64.817, 281.252, 23.5, 0.932)
pt3dadd(-64.869, 281.356, 23.504, 0.9)
pt3dadd(-64.968, 281.413, 23.532, 0.872)
pt3dadd(-65.068, 281.471, 23.56, 0.842)
pt3dadd(-65.168, 281.528, 23.587, 0.814)
pt3dadd(-65.268, 281.586, 23.615, 0.786)
pt3dadd(-65.375, 281.615, 23.65, 0.77)
pt3dadd(-65.485, 281.634, 23.688, 0.758)
pt3dadd(-65.602, 281.64, 23.7, 0.764)
pt3dadd(-65.722, 281.64, 23.7, 0.782)
pt3dadd(-65.842, 281.64, 23.7, 0.798)
pt3dadd(-65.953, 281.64, 23.73, 0.812)
pt3dadd(-66.06, 281.64, 23.775, 0.822)
pt3dadd(-66.144, 281.652, 23.838, 0.806)
pt3dadd(-66.199, 281.68, 23.924, 0.754)
pt3dadd(-66.271, 281.734, 23.972, 0.702)
pt3dadd(-66.359, 281.814, 23.982, 0.648)
pt3dadd(-66.448, 281.894, 23.992, 0.596)
pt3dadd(-66.538, 281.971, 24, 0.542)
pt3dadd(-66.642, 282.032, 24, 0.484)
pt3dadd(-66.745, 282.092, 24, 0.428)
pt3dadd(-66.836, 282.17, 24, 0.402)
pt3dadd(-66.918, 282.259, 24, 0.402)
pt3dadd(-67, 282.347, 23.999, 0.402)
pt3dadd(-67.085, 282.431, 23.994, 0.402)
pt3dadd(-67.17, 282.512, 23.985, 0.402)
pt3dadd(-67.266, 282.568, 23.945, 0.402)
pt3dadd(-67.363, 282.6, 23.946, 0.428)
pt3dadd(-67.463, 282.6, 24.001, 0.492)
pt3dadd(-67.547, 282.6, 24.069, 0.586)
pt3dadd(-67.612, 282.6, 24.153, 0.724)
pt3dadd(-67.721, 282.643, 24.164, 0.768)
pt3dadd(-67.832, 282.689, 24.173, 0.806)
pt3dadd(-67.943, 282.733, 24.182, 0.846)
pt3dadd(-68.054, 282.779, 24.191, 0.886)
pt3dadd(-68.165, 282.823, 24.199, 0.926)
pt3dadd(-68.283, 282.84, 24.2, 0.944)
pt3dadd(-68.402, 282.856, 24.2, 0.96)
pt3dadd(-68.521, 282.87, 24.2, 0.976)
pt3dadd(-68.64, 282.886, 24.2, 0.992)
pt3dadd(-68.759, 282.9, 24.2, 1.008)
pt3dadd(-68.878, 282.916, 24.2, 1.024)
pt3dadd(-68.994, 282.946, 24.2, 1.032)
pt3dadd(-69.108, 282.984, 24.2, 1.038)
pt3dadd(-69.221, 283.022, 24.2, 1.042)
pt3dadd(-69.335, 283.061, 24.2, 1.046)
pt3dadd(-69.448, 283.099, 24.2, 1.05)
pt3dadd(-69.553, 283.147, 24.2, 1.054)
pt3dadd(-69.599, 283.259, 24.2, 1.054)
pt3dadd(-69.646, 283.369, 24.2, 1.054)
pt3dadd(-69.738, 283.44, 24.204, 1.044)
pt3dadd(-69.84, 283.504, 24.21, 1.032)
pt3dadd(-69.937, 283.558, 24.243, 0.998)
pt3dadd(-70.033, 283.609, 24.286, 0.958)
pt3dadd(-70.08, 283.7, 24.334, 0.89)
pt3dadd(-70.13, 283.79, 24.382, 0.824)
pt3dadd(-70.232, 283.834, 24.421, 0.776)
pt3dadd(-70.334, 283.876, 24.46, 0.728)
pt3dadd(-70.436, 283.919, 24.499, 0.68)
pt3dadd(-70.545, 283.967, 24.505, 0.634)
pt3dadd(-70.655, 284.016, 24.51, 0.588)
pt3dadd(-70.755, 284.064, 24.542, 0.57)
pt3dadd(-70.853, 284.113, 24.583, 0.56)
pt3dadd(-70.951, 284.149, 24.63, 0.564)
pt3dadd(-71.048, 284.155, 24.689, 0.6)
pt3dadd(-71.139, 284.17, 24.751, 0.64)
pt3dadd(-71.217, 284.209, 24.82, 0.692)
pt3dadd(-71.294, 284.248, 24.889, 0.744)
pt3dadd(-71.381, 284.322, 24.9, 0.804)
pt3dadd(-71.469, 284.404, 24.9, 0.862)
pt3dadd(-71.547, 284.494, 24.9, 0.98)
pt3dadd(-71.646, 284.562, 24.9, 0.992)
pt3dadd(-71.745, 284.63, 24.9, 1.002)
pt3dadd(-71.854, 284.68, 24.9, 1.004)
pt3dadd(-71.965, 284.726, 24.9, 1.004)
pt3dadd(-72.074, 284.766, 24.919, 0.998)
pt3dadd(-72.182, 284.798, 24.953, 0.984)
pt3dadd(-72.234, 284.879, 24.984, 0.972)
pt3dadd(-72.246, 284.993, 25.014, 0.962)
pt3dadd(-72.285, 285.086, 25.05, 0.932)
pt3dadd(-72.375, 285.142, 25.096, 0.874)
pt3dadd(-72.468, 285.197, 25.141, 0.836)
pt3dadd(-72.56, 285.251, 25.187, 0.8)
pt3dadd(-72.652, 285.305, 25.232, 0.766)
pt3dadd(-72.745, 285.359, 25.277, 0.728)
pt3dadd(-72.861, 285.367, 25.299, 0.706)
pt3dadd(-72.978, 285.374, 25.321, 0.684)
pt3dadd(-73.095, 285.382, 25.343, 0.662)
pt3dadd(-73.212, 285.388, 25.365, 0.638)
pt3dadd(-73.329, 285.395, 25.387, 0.616)
pt3dadd(-73.442, 285.416, 25.409, 0.598)
pt3dadd(-73.551, 285.46, 25.433, 0.588)
pt3dadd(-73.659, 285.502, 25.457, 0.576)
pt3dadd(-73.767, 285.545, 25.481, 0.566)
pt3dadd(-73.876, 285.588, 25.504, 0.556)
pt3dadd(-73.992, 285.6, 25.521, 0.562)
pt3dadd(-74.11, 285.6, 25.536, 0.574)
pt3dadd(-74.229, 285.6, 25.55, 0.586)
pt3dadd(-74.348, 285.6, 25.565, 0.598)
pt3dadd(-74.467, 285.6, 25.579, 0.61)
pt3dadd(-74.585, 285.6, 25.593, 0.622)
pt3dadd(-74.699, 285.625, 25.604, 0.636)
pt3dadd(-74.809, 285.672, 25.61, 0.65)
pt3dadd(-74.919, 285.72, 25.617, 0.666)
pt3dadd(-75.03, 285.767, 25.623, 0.68)
pt3dadd(-75.14, 285.814, 25.63, 0.694)
pt3dadd(-75.243, 285.866, 25.65, 0.716)
pt3dadd(-75.338, 285.925, 25.686, 0.744)
pt3dadd(-75.449, 285.949, 25.7, 0.742)
pt3dadd(-75.569, 285.954, 25.7, 0.726)
pt3dadd(-75.689, 285.959, 25.7, 0.708)
pt3dadd(-75.805, 285.936, 25.7, 0.68)
pt3dadd(-75.92, 285.902, 25.7, 0.65)
pt3dadd(-76.032, 285.86, 25.7, 0.618)
pt3dadd(-76.136, 285.8, 25.7, 0.582)
pt3dadd(-76.238, 285.738, 25.7, 0.556)
pt3dadd(-76.331, 285.662, 25.7, 0.592)
pt3dadd(-76.441, 285.62, 25.7, 0.612)
pt3dadd(-76.558, 285.593, 25.7, 0.624)
pt3dadd(-76.675, 285.565, 25.7, 0.638)
pt3dadd(-76.792, 285.539, 25.7, 0.65)
pt3dadd(-76.908, 285.511, 25.7, 0.664)
pt3dadd(-77.025, 285.484, 25.7, 0.676)
pt3dadd(-77.144, 285.48, 25.709, 0.684)
pt3dadd(-77.264, 285.48, 25.72, 0.692)
pt3dadd(-77.383, 285.48, 25.73, 0.7)
pt3dadd(-77.502, 285.48, 25.741, 0.708)
pt3dadd(-77.622, 285.48, 25.751, 0.716)
pt3dadd(-77.741, 285.48, 25.761, 0.724)
pt3dadd(-77.855, 285.505, 25.774, 0.718)
pt3dadd(-77.963, 285.556, 25.788, 0.696)
pt3dadd(-78.07, 285.605, 25.801, 0.676)
pt3dadd(-78.178, 285.655, 25.815, 0.656)
pt3dadd(-78.286, 285.704, 25.829, 0.634)
pt3dadd(-78.396, 285.748, 25.844, 0.614)
pt3dadd(-78.508, 285.788, 25.86, 0.594)
pt3dadd(-78.619, 285.829, 25.876, 0.572)
pt3dadd(-78.73, 285.87, 25.892, 0.552)
pt3dadd(-78.841, 285.911, 25.908, 0.532)
pt3dadd(-78.956, 285.938, 25.924, 0.516)
pt3dadd(-79.073, 285.961, 25.941, 0.502)
pt3dadd(-79.189, 285.983, 25.958, 0.488)
pt3dadd(-79.305, 286.006, 25.975, 0.474)
}
}
proc shape3d_47() {
dend_5[11] { pt3dadd(-79.421, 286.028, 25.991, 0.46)
pt3dadd(-79.529, 286.07, 26.01, 0.452)
pt3dadd(-79.629, 286.133, 26.029, 0.452)
pt3dadd(-79.729, 286.194, 26.049, 0.452)
pt3dadd(-79.83, 286.256, 26.069, 0.452)
pt3dadd(-79.93, 286.318, 26.088, 0.452)
pt3dadd(-79.986, 286.42, 26.111, 0.44)
pt3dadd(-80.041, 286.523, 26.134, 0.426)
pt3dadd(-80.108, 286.612, 26.171, 0.412)
pt3dadd(-80.181, 286.698, 26.199, 0.4)
pt3dadd(-80.272, 286.776, 26.193, 0.386)
pt3dadd(-80.36, 286.853, 26.181, 0.376)
pt3dadd(-80.436, 286.93, 26.137, 0.376)
pt3dadd(-80.509, 287.015, 26.108, 0.37)
pt3dadd(-80.579, 287.111, 26.1, 0.35)
pt3dadd(-80.683, 287.172, 26.1, 0.34)
pt3dadd(-80.786, 287.232, 26.1, 0.328)
pt3dadd(-80.888, 287.293, 26.085, 0.326)
pt3dadd(-80.989, 287.354, 26.069, 0.326)
pt3dadd(-81.052, 287.399, 25.996, 0.352)
pt3dadd(-81.109, 287.442, 25.916, 0.38)
pt3dadd(-81.143, 287.483, 25.826, 0.418)
pt3dadd(-81.184, 287.52, 25.741, 0.46)
pt3dadd(-81.296, 287.52, 25.705, 0.54)
pt3dadd(-81.403, 287.539, 25.666, 0.6)
pt3dadd(-81.505, 287.575, 25.623, 0.638)
pt3dadd(-81.607, 287.611, 25.58, 0.678)
pt3dadd(-81.71, 287.648, 25.538, 0.718)
pt3dadd(-81.812, 287.687, 25.5, 0.756)
pt3dadd(-81.914, 287.75, 25.5, 0.78)
pt3dadd(-82.016, 287.813, 25.5, 0.806)
pt3dadd(-82.119, 287.876, 25.5, 0.83)
pt3dadd(-82.221, 287.939, 25.5, 0.854)
pt3dadd(-82.323, 288.002, 25.5, 0.88)
pt3dadd(-82.422, 288.068, 25.507, 0.884)
pt3dadd(-82.522, 288.134, 25.514, 0.89)
pt3dadd(-82.622, 288.202, 25.521, 0.894)
pt3dadd(-82.721, 288.268, 25.528, 0.9)
pt3dadd(-82.822, 288.328, 25.541, 0.9)
pt3dadd(-82.928, 288.362, 25.578, 0.878)
pt3dadd(-83.034, 288.398, 25.614, 0.856)
pt3dadd(-83.14, 288.433, 25.651, 0.834)
pt3dadd(-83.246, 288.468, 25.688, 0.81)
pt3dadd(-83.349, 288.522, 25.7, 0.796)
pt3dadd(-83.451, 288.586, 25.7, 0.788)
pt3dadd(-83.553, 288.648, 25.7, 0.778)
pt3dadd(-83.655, 288.712, 25.7, 0.768)
pt3dadd(-83.758, 288.774, 25.7, 0.758)
pt3dadd(-83.863, 288.83, 25.699, 0.748)
pt3dadd(-83.972, 288.882, 25.697, 0.738)
pt3dadd(-84.08, 288.934, 25.694, 0.728)
pt3dadd(-84.188, 288.985, 25.692, 0.718)
pt3dadd(-84.297, 289.037, 25.69, 0.708)
pt3dadd(-84.406, 289.084, 25.681, 0.7)
pt3dadd(-84.516, 289.126, 25.663, 0.696)
pt3dadd(-84.627, 289.168, 25.644, 0.69)
pt3dadd(-84.737, 289.208, 25.626, 0.686)
pt3dadd(-84.848, 289.25, 25.608, 0.68)
pt3dadd(-84.962, 289.28, 25.6, 0.674)
pt3dadd(-85.08, 289.302, 25.6, 0.664)
pt3dadd(-85.198, 289.325, 25.6, 0.656)
pt3dadd(-85.316, 289.346, 25.6, 0.648)
pt3dadd(-85.434, 289.369, 25.6, 0.64)
pt3dadd(-85.552, 289.391, 25.6, 0.632)
pt3dadd(-85.671, 289.409, 25.6, 0.622)
pt3dadd(-85.79, 289.424, 25.6, 0.612)
pt3dadd(-85.909, 289.439, 25.6, 0.604)
pt3dadd(-86.014, 289.44, 25.554, 0.602)
pt3dadd(-86.117, 289.44, 25.503, 0.602)
pt3dadd(-86.155, 289.466, 25.421, 0.586)
pt3dadd(-86.167, 289.502, 25.326, 0.564)
pt3dadd(-86.22, 289.546, 25.257, 0.526)
pt3dadd(-86.316, 289.596, 25.214, 0.47)
pt3dadd(-86.383, 289.685, 25.2, 0.434)
pt3dadd(-86.436, 289.793, 25.2, 0.408)
pt3dadd(-86.49, 289.9, 25.2, 0.38)
pt3dadd(-86.544, 290.008, 25.2, 0.354)
pt3dadd(-86.643, 290.074, 25.205, 0.34)
pt3dadd(-86.744, 290.137, 25.21, 0.328)
pt3dadd(-86.855, 290.162, 25.237, 0.408)
pt3dadd(-86.967, 290.182, 25.269, 0.456)
pt3dadd(-87.08, 290.2, 25.3, 0.502)
pt3dadd(-87.192, 290.237, 25.284, 0.55)
pt3dadd(-87.305, 290.275, 25.269, 0.596)
pt3dadd(-87.401, 290.28, 25.213, 0.612)
pt3dadd(-87.495, 290.28, 25.15, 0.624)
pt3dadd(-87.59, 290.294, 25.092, 0.618)
pt3dadd(-87.686, 290.315, 25.034, 0.606)
pt3dadd(-87.777, 290.369, 24.99, 0.59)
pt3dadd(-87.867, 290.432, 24.949, 0.572)
pt3dadd(-87.956, 290.495, 24.908, 0.556)
pt3dadd(-88.065, 290.54, 24.896, 0.544)
pt3dadd(-88.177, 290.582, 24.891, 0.532)
pt3dadd(-88.277, 290.638, 24.868, 0.504)
pt3dadd(-88.359, 290.722, 24.852, 0.492)
pt3dadd(-88.442, 290.808, 24.838, 0.48)
pt3dadd(-88.524, 290.893, 24.823, 0.47)
pt3dadd(-88.607, 290.978, 24.808, 0.458)
pt3dadd(-88.689, 291.065, 24.8, 0.446)
pt3dadd(-88.77, 291.152, 24.8, 0.436)
pt3dadd(-88.845, 291.242, 24.789, 0.436)
pt3dadd(-88.903, 291.338, 24.752, 0.464)
pt3dadd(-88.98, 291.412, 24.712, 0.504)
pt3dadd(-89.076, 291.463, 24.67, 0.56)
pt3dadd(-89.127, 291.492, 24.591, 0.6)
pt3dadd(-89.157, 291.51, 24.496, 0.634)
pt3dadd(-89.205, 291.546, 24.413, 0.642)
pt3dadd(-89.266, 291.605, 24.343, 0.622)
pt3dadd(-89.31, 291.665, 24.265, 0.604)
pt3dadd(-89.355, 291.724, 24.186, 0.586)
pt3dadd(-89.398, 291.784, 24.107, 0.57)
pt3dadd(-89.444, 291.844, 24.03, 0.55)
pt3dadd(-89.513, 291.913, 23.972, 0.526)
pt3dadd(-89.583, 291.983, 23.915, 0.502)
pt3dadd(-89.652, 292.051, 23.857, 0.476)
pt3dadd(-89.721, 292.121, 23.799, 0.452)
pt3dadd(-89.768, 292.216, 23.752, 0.446)
pt3dadd(-89.815, 292.31, 23.705, 0.44)
pt3dadd(-89.862, 292.405, 23.657, 0.434)
pt3dadd(-89.91, 292.5, 23.61, 0.428)
pt3dadd(-89.958, 292.59, 23.558, 0.426)
pt3dadd(-90.006, 292.68, 23.505, 0.426)
pt3dadd(-90.053, 292.77, 23.452, 0.426)
pt3dadd(-90.101, 292.859, 23.398, 0.426)
pt3dadd(-90.146, 292.955, 23.352, 0.426)
pt3dadd(-90.189, 293.056, 23.31, 0.426)
pt3dadd(-90.257, 293.15, 23.3, 0.426)
pt3dadd(-90.331, 293.244, 23.3, 0.426)
pt3dadd(-90.407, 293.318, 23.264, 0.426)
pt3dadd(-90.484, 293.38, 23.207, 0.426)
pt3dadd(-90.555, 293.393, 23.129, 0.458)
pt3dadd(-90.626, 293.399, 23.049, 0.496)
pt3dadd(-90.735, 293.4, 23.017, 0.526)
pt3dadd(-90.852, 293.4, 22.996, 0.554)
pt3dadd(-90.965, 293.4, 22.962, 0.568)
pt3dadd(-91.077, 293.4, 22.927, 0.582)
pt3dadd(-91.19, 293.4, 22.892, 0.596)
pt3dadd(-91.302, 293.4, 22.858, 0.61)
pt3dadd(-91.415, 293.4, 22.823, 0.624)
pt3dadd(-91.512, 293.42, 22.771, 0.628)
pt3dadd(-91.602, 293.452, 22.709, 0.628)
pt3dadd(-91.691, 293.482, 22.647, 0.628)
pt3dadd(-91.78, 293.513, 22.586, 0.628)
pt3dadd(-91.866, 293.548, 22.522, 0.628)
pt3dadd(-91.943, 293.593, 22.455, 0.628)
pt3dadd(-92.02, 293.639, 22.389, 0.628)
pt3dadd(-92.097, 293.683, 22.322, 0.628)
pt3dadd(-92.178, 293.729, 22.26, 0.626)
pt3dadd(-92.278, 293.779, 22.224, 0.612)
pt3dadd(-92.374, 293.84, 22.198, 0.606)
pt3dadd(-92.458, 293.924, 22.193, 0.618)
pt3dadd(-92.537, 293.994, 22.167, 0.632)
pt3dadd(-92.6, 294.022, 22.085, 0.644)
pt3dadd(-92.648, 294.073, 22.01, 0.658)
pt3dadd(-92.668, 294.163, 21.946, 0.67)
pt3dadd(-92.705, 294.253, 21.89, 0.688)
pt3dadd(-92.76, 294.334, 21.835, 0.71)
pt3dadd(-92.811, 294.384, 21.756, 0.738)
pt3dadd(-92.848, 294.464, 21.703, 0.762)
pt3dadd(-92.865, 294.581, 21.683, 0.784)
pt3dadd(-92.883, 294.696, 21.661, 0.804)
pt3dadd(-92.902, 294.805, 21.624, 0.804)
pt3dadd(-92.923, 294.91, 21.582, 0.8)
pt3dadd(-92.97, 294.936, 21.493, 0.75)
pt3dadd(-93.02, 294.96, 21.405, 0.696)
pt3dadd(-93.095, 294.96, 21.326, 0.608)
pt3dadd(-93.165, 294.992, 21.252, 0.562)
pt3dadd(-93.232, 295.04, 21.18, 0.538)
pt3dadd(-93.299, 295.088, 21.108, 0.514)
pt3dadd(-93.367, 295.136, 21.035, 0.49)
pt3dadd(-93.419, 295.199, 20.964, 0.478)
pt3dadd(-93.457, 295.274, 20.893, 0.478)
pt3dadd(-93.495, 295.35, 20.822, 0.478)
pt3dadd(-93.533, 295.426, 20.751, 0.478)
pt3dadd(-93.581, 295.506, 20.7, 0.48)
pt3dadd(-93.656, 295.6, 20.7, 0.492)
pt3dadd(-93.73, 295.69, 20.691, 0.504)
pt3dadd(-93.799, 295.751, 20.627, 0.518)
pt3dadd(-93.842, 295.789, 20.548, 0.53)
pt3dadd(-93.847, 295.794, 20.448, 0.54)
pt3dadd(-93.852, 295.799, 20.348, 0.548)
pt3dadd(-93.886, 295.842, 20.268, 0.58)
pt3dadd(-93.939, 295.91, 20.198, 0.622)
pt3dadd(-93.955, 295.988, 20.125, 0.708)
pt3dadd(-93.96, 296.044, 20.039, 0.834)
pt3dadd(-93.96, 296.076, 19.943, 0.946)
pt3dadd(-93.963, 296.126, 19.852, 0.948)
pt3dadd(-93.992, 296.165, 19.761, 0.894)
pt3dadd(-94.049, 296.239, 19.708, 0.762)
pt3dadd(-94.074, 296.354, 19.7, 0.606)
pt3dadd(-94.08, 296.474, 19.708, 0.5)
pt3dadd(-94.066, 296.588, 19.734, 0.452)
pt3dadd(-94.011, 296.636, 19.81, 0.39)
pt3dadd(-93.96, 296.64, 19.9, 0.226)
}
dend_5[12] {pt3dclear()
pt3dadd(-61.692, 277.967, 22.158, 1.204)
pt3dadd(-61.706, 277.972, 22.158, 1.2)
pt3dadd(-61.817, 278.016, 22.159, 1.17)
pt3dadd(-61.929, 278.059, 22.161, 1.138)
pt3dadd(-62.041, 278.104, 22.162, 1.106)
pt3dadd(-62.152, 278.147, 22.163, 1.076)
}
}
proc shape3d_48() {
dend_5[12] { pt3dadd(-62.264, 278.191, 22.165, 1.044)
pt3dadd(-62.376, 278.234, 22.166, 1.012)
pt3dadd(-62.488, 278.278, 22.167, 0.98)
pt3dadd(-62.599, 278.322, 22.169, 0.95)
pt3dadd(-62.711, 278.365, 22.17, 0.918)
pt3dadd(-62.823, 278.407, 22.172, 0.892)
pt3dadd(-62.939, 278.442, 22.174, 0.892)
pt3dadd(-63.054, 278.476, 22.176, 0.894)
pt3dadd(-63.169, 278.509, 22.179, 0.896)
pt3dadd(-63.284, 278.543, 22.181, 0.896)
pt3dadd(-63.399, 278.578, 22.183, 0.898)
pt3dadd(-63.514, 278.611, 22.185, 0.9)
pt3dadd(-63.629, 278.645, 22.188, 0.9)
pt3dadd(-63.744, 278.678, 22.19, 0.902)
pt3dadd(-63.859, 278.712, 22.192, 0.902)
pt3dadd(-63.975, 278.741, 22.193, 0.902)
pt3dadd(-64.095, 278.743, 22.183, 0.892)
pt3dadd(-64.214, 278.744, 22.174, 0.882)
pt3dadd(-64.333, 278.747, 22.165, 0.872)
pt3dadd(-64.453, 278.749, 22.155, 0.862)
pt3dadd(-64.572, 278.75, 22.146, 0.852)
pt3dadd(-64.692, 278.753, 22.137, 0.842)
pt3dadd(-64.811, 278.754, 22.127, 0.832)
pt3dadd(-64.931, 278.756, 22.118, 0.822)
pt3dadd(-65.05, 278.759, 22.109, 0.812)
pt3dadd(-65.169, 278.76, 22.103, 0.802)
pt3dadd(-65.28, 278.76, 22.14, 0.778)
pt3dadd(-65.392, 278.76, 22.177, 0.756)
pt3dadd(-65.503, 278.76, 22.214, 0.732)
pt3dadd(-65.615, 278.76, 22.252, 0.708)
pt3dadd(-65.726, 278.76, 22.289, 0.686)
pt3dadd(-65.774, 278.76, 22.369, 0.638)
pt3dadd(-65.795, 278.76, 22.467, 0.58)
pt3dadd(-65.825, 278.76, 22.557, 0.522)
pt3dadd(-65.943, 278.76, 22.574, 0.474)
pt3dadd(-66.062, 278.76, 22.592, 0.426)
pt3dadd(-66.179, 278.777, 22.6, 0.386)
pt3dadd(-66.294, 278.81, 22.6, 0.356)
pt3dadd(-66.408, 278.845, 22.6, 0.326)
pt3dadd(-66.512, 278.906, 22.6, 0.326)
pt3dadd(-66.615, 278.966, 22.6, 0.326)
pt3dadd(-66.684, 279.064, 22.6, 0.372)
pt3dadd(-66.75, 279.163, 22.6, 0.418)
pt3dadd(-66.818, 279.263, 22.6, 0.452)
pt3dadd(-66.895, 279.353, 22.6, 0.49)
pt3dadd(-66.994, 279.421, 22.6, 0.536)
pt3dadd(-67.094, 279.486, 22.6, 0.584)
pt3dadd(-67.205, 279.533, 22.6, 0.626)
pt3dadd(-67.315, 279.58, 22.6, 0.67)
pt3dadd(-67.434, 279.59, 22.6, 0.7)
pt3dadd(-67.553, 279.595, 22.6, 0.726)
pt3dadd(-67.673, 279.6, 22.6, 0.752)
pt3dadd(-67.793, 279.6, 22.6, 0.742)
pt3dadd(-67.913, 279.6, 22.6, 0.728)
pt3dadd(-68.029, 279.632, 22.602, 0.702)
pt3dadd(-68.144, 279.666, 22.604, 0.676)
pt3dadd(-68.259, 279.7, 22.606, 0.648)
pt3dadd(-68.374, 279.733, 22.608, 0.622)
pt3dadd(-68.489, 279.767, 22.61, 0.594)
pt3dadd(-68.587, 279.817, 22.631, 0.556)
pt3dadd(-68.656, 279.894, 22.682, 0.498)
pt3dadd(-68.749, 279.934, 22.729, 0.468)
pt3dadd(-68.855, 279.953, 22.773, 0.456)
pt3dadd(-68.969, 279.96, 22.791, 0.474)
pt3dadd(-69.089, 279.96, 22.795, 0.508)
pt3dadd(-69.209, 279.96, 22.799, 0.544)
pt3dadd(-69.329, 279.96, 22.8, 0.59)
pt3dadd(-69.449, 279.96, 22.8, 0.64)
pt3dadd(-69.569, 279.96, 22.8, 0.69)
pt3dadd(-69.689, 279.96, 22.8, 0.768)
pt3dadd(-69.809, 279.96, 22.8, 0.856)
pt3dadd(-69.921, 279.972, 22.829, 0.902)
pt3dadd(-70.031, 279.989, 22.868, 0.932)
pt3dadd(-70.14, 280.006, 22.906, 0.964)
pt3dadd(-70.249, 280.021, 22.945, 0.994)
pt3dadd(-70.359, 280.038, 22.984, 1.026)
pt3dadd(-70.471, 280.046, 23.018, 1.042)
pt3dadd(-70.583, 280.055, 23.053, 1.056)
pt3dadd(-70.696, 280.062, 23.087, 1.072)
pt3dadd(-70.809, 280.069, 23.121, 1.086)
pt3dadd(-70.921, 280.078, 23.155, 1.1)
pt3dadd(-71.015, 280.093, 23.212, 1.114)
pt3dadd(-71.098, 280.115, 23.282, 1.126)
pt3dadd(-71.19, 280.152, 23.336, 1.14)
pt3dadd(-71.285, 280.196, 23.385, 1.154)
pt3dadd(-71.403, 280.2, 23.392, 1.17)
pt3dadd(-71.523, 280.2, 23.396, 1.188)
pt3dadd(-71.643, 280.2, 23.4, 1.206)
pt3dadd(-71.763, 280.2, 23.4, 1.206)
pt3dadd(-71.883, 280.2, 23.4, 1.206)
pt3dadd(-72.003, 280.2, 23.4, 1.204)
pt3dadd(-72.123, 280.2, 23.4, 1.154)
pt3dadd(-72.243, 280.2, 23.4, 1.104)
pt3dadd(-72.362, 280.2, 23.411, 1.068)
pt3dadd(-72.482, 280.2, 23.421, 1.034)
pt3dadd(-72.601, 280.2, 23.432, 0.998)
pt3dadd(-72.72, 280.2, 23.442, 0.962)
pt3dadd(-72.84, 280.2, 23.453, 0.926)
pt3dadd(-72.959, 280.2, 23.463, 0.892)
pt3dadd(-73.074, 280.2, 23.488, 0.822)
pt3dadd(-73.188, 280.2, 23.521, 0.738)
pt3dadd(-73.288, 280.208, 23.568, 0.658)
pt3dadd(-73.359, 280.237, 23.645, 0.59)
pt3dadd(-73.427, 280.296, 23.691, 0.552)
pt3dadd(-73.491, 280.398, 23.696, 0.552)
pt3dadd(-73.57, 280.48, 23.7, 0.56)
pt3dadd(-73.684, 280.519, 23.7, 0.58)
pt3dadd(-73.797, 280.559, 23.7, 0.602)
pt3dadd(-73.917, 280.56, 23.7, 0.628)
pt3dadd(-74.037, 280.56, 23.7, 0.652)
pt3dadd(-74.155, 280.562, 23.716, 0.656)
pt3dadd(-74.273, 280.565, 23.733, 0.662)
pt3dadd(-74.391, 280.566, 23.75, 0.666)
pt3dadd(-74.51, 280.568, 23.766, 0.67)
pt3dadd(-74.628, 280.571, 23.783, 0.674)
pt3dadd(-74.746, 280.573, 23.8, 0.678)
pt3dadd(-74.862, 280.606, 23.8, 0.682)
pt3dadd(-74.977, 280.639, 23.8, 0.686)
pt3dadd(-75.092, 280.673, 23.8, 0.692)
pt3dadd(-75.208, 280.705, 23.8, 0.696)
pt3dadd(-75.323, 280.739, 23.8, 0.7)
pt3dadd(-75.435, 280.778, 23.807, 0.704)
pt3dadd(-75.54, 280.83, 23.829, 0.71)
pt3dadd(-75.644, 280.883, 23.851, 0.716)
pt3dadd(-75.749, 280.934, 23.873, 0.722)
pt3dadd(-75.854, 280.987, 23.895, 0.726)
pt3dadd(-75.961, 281.04, 23.9, 0.752)
pt3dadd(-76.068, 281.094, 23.9, 0.686)
pt3dadd(-76.179, 281.137, 23.9, 0.62)
pt3dadd(-76.298, 281.158, 23.9, 0.622)
pt3dadd(-76.417, 281.16, 23.91, 0.65)
pt3dadd(-76.52, 281.183, 23.948, 0.678)
pt3dadd(-76.559, 281.25, 24.02, 0.702)
pt3dadd(-76.56, 281.35, 24.074, 0.77)
pt3dadd(-76.56, 281.466, 24.094, 0.804)
pt3dadd(-76.56, 281.586, 24.1, 0.776)
pt3dadd(-76.56, 281.706, 24.1, 0.726)
pt3dadd(-76.582, 281.822, 24.1, 0.692)
pt3dadd(-76.621, 281.935, 24.1, 0.67)
pt3dadd(-76.676, 282.035, 24.1, 0.65)
pt3dadd(-76.789, 282.074, 24.1, 0.64)
pt3dadd(-76.902, 282.114, 24.1, 0.63)
pt3dadd(-77.021, 282.12, 24.1, 0.618)
pt3dadd(-77.141, 282.12, 24.1, 0.604)
pt3dadd(-77.261, 282.12, 24.1, 0.592)
pt3dadd(-77.381, 282.12, 24.1, 0.58)
pt3dadd(-77.501, 282.124, 24.1, 0.57)
pt3dadd(-77.621, 282.128, 24.1, 0.562)
pt3dadd(-77.741, 282.133, 24.1, 0.552)
pt3dadd(-77.848, 282.172, 24.128, 0.534)
pt3dadd(-77.955, 282.212, 24.158, 0.514)
pt3dadd(-78.052, 282.258, 24.199, 0.498)
pt3dadd(-78.128, 282.311, 24.262, 0.484)
pt3dadd(-78.223, 282.362, 24.291, 0.478)
pt3dadd(-78.332, 282.413, 24.295, 0.478)
pt3dadd(-78.441, 282.462, 24.299, 0.478)
pt3dadd(-78.555, 282.48, 24.282, 0.484)
pt3dadd(-78.67, 282.48, 24.255, 0.494)
pt3dadd(-78.785, 282.48, 24.227, 0.522)
pt3dadd(-78.903, 282.48, 24.21, 0.58)
pt3dadd(-79.023, 282.48, 24.209, 0.588)
pt3dadd(-79.143, 282.48, 24.207, 0.596)
pt3dadd(-79.263, 282.48, 24.206, 0.602)
pt3dadd(-79.383, 282.48, 24.204, 0.61)
pt3dadd(-79.503, 282.48, 24.202, 0.616)
pt3dadd(-79.623, 282.48, 24.201, 0.624)
pt3dadd(-79.743, 282.479, 24.2, 0.63)
pt3dadd(-79.862, 282.478, 24.2, 0.634)
pt3dadd(-79.982, 282.475, 24.2, 0.638)
pt3dadd(-80.102, 282.473, 24.2, 0.64)
pt3dadd(-80.222, 282.472, 24.2, 0.644)
pt3dadd(-80.342, 282.469, 24.2, 0.648)
pt3dadd(-80.462, 282.468, 24.2, 0.652)
pt3dadd(-80.577, 282.451, 24.22, 0.64)
pt3dadd(-80.687, 282.426, 24.253, 0.618)
pt3dadd(-80.798, 282.401, 24.285, 0.598)
pt3dadd(-80.909, 282.377, 24.317, 0.576)
pt3dadd(-81.02, 282.352, 24.35, 0.556)
pt3dadd(-81.128, 282.308, 24.374, 0.5)
pt3dadd(-81.235, 282.262, 24.396, 0.438)
pt3dadd(-81.352, 282.262, 24.4, 0.41)
pt3dadd(-81.472, 282.272, 24.4, 0.392)
pt3dadd(-81.588, 282.294, 24.399, 0.386)
pt3dadd(-81.693, 282.35, 24.393, 0.422)
pt3dadd(-81.796, 282.406, 24.381, 0.46)
pt3dadd(-81.87, 282.45, 24.312, 0.53)
pt3dadd(-81.93, 282.49, 24.235, 0.602)
pt3dadd(-81.958, 282.517, 24.14, 0.672)
pt3dadd(-81.965, 282.552, 24.045, 0.708)
pt3dadd(-81.971, 282.586, 23.949, 0.74)
pt3dadd(-82.033, 282.6, 23.877, 0.782)
pt3dadd(-82.132, 282.6, 23.82, 0.828)
pt3dadd(-82.237, 282.6, 23.774, 0.868)
pt3dadd(-82.35, 282.6, 23.741, 0.9)
pt3dadd(-82.464, 282.6, 23.711, 0.932)
pt3dadd(-82.584, 282.6, 23.707, 0.958)
pt3dadd(-82.704, 282.6, 23.703, 0.984)
pt3dadd(-82.824, 282.6, 23.7, 1.002)
pt3dadd(-82.944, 282.6, 23.7, 0.99)
pt3dadd(-83.064, 282.6, 23.7, 0.98)
}
}
proc shape3d_49() {
dend_5[12] { pt3dadd(-83.184, 282.6, 23.7, 0.98)
pt3dadd(-83.304, 282.6, 23.7, 0.98)
pt3dadd(-83.424, 282.6, 23.7, 0.98)
pt3dadd(-83.544, 282.6, 23.7, 0.98)
pt3dadd(-83.664, 282.6, 23.7, 0.98)
pt3dadd(-83.784, 282.6, 23.7, 0.98)
pt3dadd(-83.903, 282.604, 23.7, 0.978)
pt3dadd(-84.022, 282.624, 23.7, 0.97)
pt3dadd(-84.14, 282.643, 23.7, 0.962)
pt3dadd(-84.258, 282.664, 23.7, 0.952)
pt3dadd(-84.377, 282.683, 23.7, 0.944)
pt3dadd(-84.495, 282.702, 23.7, 0.936)
pt3dadd(-84.613, 282.722, 23.696, 0.93)
pt3dadd(-84.723, 282.745, 23.662, 0.93)
pt3dadd(-84.834, 282.767, 23.627, 0.93)
pt3dadd(-84.944, 282.788, 23.593, 0.93)
pt3dadd(-85.054, 282.811, 23.558, 0.93)
pt3dadd(-85.167, 282.827, 23.532, 0.926)
pt3dadd(-85.287, 282.829, 23.527, 0.914)
pt3dadd(-85.407, 282.832, 23.522, 0.902)
pt3dadd(-85.527, 282.834, 23.517, 0.892)
pt3dadd(-85.647, 282.835, 23.512, 0.88)
pt3dadd(-85.767, 282.838, 23.507, 0.868)
pt3dadd(-85.887, 282.84, 23.501, 0.856)
pt3dadd(-85.995, 282.859, 23.469, 0.85)
pt3dadd(-86.1, 282.886, 23.425, 0.844)
pt3dadd(-86.205, 282.911, 23.381, 0.838)
pt3dadd(-86.31, 282.937, 23.338, 0.834)
pt3dadd(-86.41, 282.96, 23.289, 0.83)
pt3dadd(-86.485, 282.96, 23.211, 0.834)
pt3dadd(-86.56, 282.96, 23.133, 0.84)
pt3dadd(-86.635, 282.96, 23.055, 0.844)
pt3dadd(-86.71, 282.96, 22.977, 0.85)
pt3dadd(-86.781, 282.96, 22.897, 0.856)
pt3dadd(-86.832, 282.96, 22.806, 0.876)
pt3dadd(-86.883, 282.96, 22.715, 0.894)
pt3dadd(-86.933, 282.96, 22.625, 0.914)
pt3dadd(-86.984, 282.96, 22.534, 0.932)
pt3dadd(-87.034, 282.96, 22.444, 0.952)
pt3dadd(-87.099, 282.92, 22.367, 0.966)
pt3dadd(-87.166, 282.877, 22.293, 0.974)
pt3dadd(-87.235, 282.857, 22.212, 0.922)
pt3dadd(-87.311, 282.842, 22.141, 0.866)
pt3dadd(-87.425, 282.86, 22.115, 0.788)
pt3dadd(-87.54, 282.878, 22.09, 0.708)
pt3dadd(-87.573, 282.977, 22.046, 0.582)
pt3dadd(-87.6, 283.08, 22, 0.452)
}
dend_5[13] {pt3dclear()
pt3dadd(-49.36, 264.92, 21.4, 1.758)
pt3dadd(-49.35, 264.838, 21.4, 1.72)
pt3dadd(-49.335, 264.719, 21.4, 1.664)
pt3dadd(-49.32, 264.6, 21.4, 1.608)
pt3dadd(-49.32, 264.48, 21.4, 1.54)
pt3dadd(-49.32, 264.36, 21.4, 1.474)
pt3dadd(-49.32, 264.24, 21.4, 1.406)
pt3dadd(-49.32, 264.12, 21.4, 1.314)
pt3dadd(-49.32, 264, 21.4, 1.222)
pt3dadd(-49.32, 263.88, 21.4, 1.13)
}
dend_5[14] {pt3dclear()
pt3dadd(-49.12, 264.92, 21.2, 1.782)
pt3dadd(-49.129, 264.989, 21.211, 1.802)
pt3dadd(-49.143, 265.106, 21.229, 1.834)
pt3dadd(-49.158, 265.224, 21.247, 1.866)
pt3dadd(-49.173, 265.34, 21.266, 1.898)
pt3dadd(-49.187, 265.458, 21.284, 1.93)
pt3dadd(-49.2, 265.574, 21.3, 1.96)
pt3dadd(-49.2, 265.694, 21.3, 1.978)
pt3dadd(-49.2, 265.814, 21.3, 1.994)
pt3dadd(-49.2, 265.934, 21.302, 2.006)
pt3dadd(-49.2, 266.053, 21.319, 1.988)
pt3dadd(-49.2, 266.171, 21.336, 1.968)
pt3dadd(-49.2, 266.238, 21.396, 1.918)
pt3dadd(-49.2, 266.258, 21.495, 1.84)
pt3dadd(-49.2, 266.279, 21.593, 1.764)
pt3dadd(-49.2, 266.336, 21.68, 1.662)
pt3dadd(-49.2, 266.398, 21.767, 1.558)
pt3dadd(-49.218, 266.5, 21.794, 1.416)
pt3dadd(-49.246, 266.612, 21.809, 1.264)
pt3dadd(-49.291, 266.694, 21.871, 1.152)
pt3dadd(-49.32, 266.754, 21.947, 1.056)
pt3dadd(-49.32, 266.774, 22.045, 0.988)
pt3dadd(-49.32, 266.795, 22.144, 0.92)
pt3dadd(-49.335, 266.834, 22.237, 0.858)
pt3dadd(-49.354, 266.88, 22.328, 0.796)
pt3dadd(-49.404, 266.962, 22.372, 0.75)
pt3dadd(-49.467, 267.06, 22.395, 0.712)
pt3dadd(-49.523, 267.166, 22.4, 0.69)
pt3dadd(-49.572, 267.266, 22.419, 0.678)
pt3dadd(-49.609, 267.352, 22.482, 0.678)
pt3dadd(-49.647, 267.437, 22.545, 0.678)
pt3dadd(-49.685, 267.521, 22.608, 0.678)
pt3dadd(-49.724, 267.608, 22.668, 0.678)
pt3dadd(-49.776, 267.713, 22.69, 0.678)
pt3dadd(-49.829, 267.817, 22.712, 0.678)
pt3dadd(-49.881, 267.922, 22.734, 0.678)
pt3dadd(-49.933, 268.027, 22.756, 0.678)
pt3dadd(-49.997, 268.122, 22.782, 0.676)
pt3dadd(-50.073, 268.207, 22.814, 0.67)
pt3dadd(-50.149, 268.292, 22.845, 0.664)
pt3dadd(-50.224, 268.378, 22.877, 0.658)
pt3dadd(-50.308, 268.454, 22.9, 0.636)
pt3dadd(-50.416, 268.508, 22.9, 0.568)
pt3dadd(-50.529, 268.546, 22.9, 0.552)
pt3dadd(-50.645, 268.578, 22.9, 0.578)
pt3dadd(-50.752, 268.626, 22.9, 0.566)
pt3dadd(-50.834, 268.712, 22.9, 0.552)
pt3dadd(-50.868, 268.826, 22.9, 0.64)
pt3dadd(-50.88, 268.946, 22.9, 0.756)
pt3dadd(-50.88, 269.065, 22.903, 0.872)
pt3dadd(-50.88, 269.184, 22.92, 0.958)
pt3dadd(-50.88, 269.288, 22.965, 1.004)
pt3dadd(-50.885, 269.382, 23.024, 1.002)
pt3dadd(-50.942, 269.486, 23.04, 0.986)
pt3dadd(-51, 269.59, 23.057, 0.97)
pt3dadd(-51.057, 269.693, 23.074, 0.954)
pt3dadd(-51.115, 269.796, 23.091, 0.938)
pt3dadd(-51.18, 269.896, 23.1, 0.926)
pt3dadd(-51.255, 269.989, 23.1, 0.922)
pt3dadd(-51.33, 270.083, 23.1, 0.916)
pt3dadd(-51.405, 270.176, 23.1, 0.912)
pt3dadd(-51.48, 270.27, 23.1, 0.906)
pt3dadd(-51.537, 270.373, 23.1, 0.904)
pt3dadd(-51.572, 270.488, 23.1, 0.904)
pt3dadd(-51.608, 270.602, 23.1, 0.904)
pt3dadd(-51.644, 270.718, 23.1, 0.904)
pt3dadd(-51.68, 270.832, 23.1, 0.904)
pt3dadd(-51.716, 270.947, 23.1, 0.904)
pt3dadd(-51.759, 271.058, 23.1, 0.924)
pt3dadd(-51.804, 271.17, 23.1, 0.948)
pt3dadd(-51.848, 271.28, 23.1, 0.972)
pt3dadd(-51.893, 271.392, 23.1, 0.994)
pt3dadd(-51.937, 271.504, 23.1, 1.018)
pt3dadd(-52.006, 271.597, 23.1, 1.052)
pt3dadd(-52.1, 271.672, 23.1, 1.1)
pt3dadd(-52.167, 271.76, 23.111, 1.138)
pt3dadd(-52.185, 271.873, 23.143, 1.162)
pt3dadd(-52.211, 271.978, 23.181, 1.174)
pt3dadd(-52.26, 272.058, 23.244, 1.146)
pt3dadd(-52.308, 272.137, 23.307, 1.118)
pt3dadd(-52.371, 272.167, 23.377, 1.04)
pt3dadd(-52.445, 272.153, 23.455, 0.918)
pt3dadd(-52.52, 272.138, 23.532, 0.798)
pt3dadd(-52.594, 272.125, 23.609, 0.678)
pt3dadd(-52.645, 272.204, 23.672, 0.698)
pt3dadd(-52.697, 272.282, 23.734, 0.72)
pt3dadd(-52.749, 272.36, 23.796, 0.74)
pt3dadd(-52.801, 272.438, 23.858, 0.76)
pt3dadd(-52.853, 272.518, 23.92, 0.78)
pt3dadd(-52.905, 272.596, 23.982, 0.8)
pt3dadd(-52.957, 272.674, 24.045, 0.822)
pt3dadd(-53.009, 272.753, 24.107, 0.842)
pt3dadd(-53.061, 272.831, 24.169, 0.862)
pt3dadd(-53.117, 272.911, 24.226, 0.87)
pt3dadd(-53.185, 272.999, 24.264, 0.84)
pt3dadd(-53.253, 273.085, 24.303, 0.808)
pt3dadd(-53.321, 273.173, 24.341, 0.778)
pt3dadd(-53.389, 273.26, 24.38, 0.746)
pt3dadd(-53.457, 273.348, 24.419, 0.716)
pt3dadd(-53.525, 273.434, 24.457, 0.684)
pt3dadd(-53.593, 273.522, 24.496, 0.652)
pt3dadd(-53.661, 273.61, 24.535, 0.622)
pt3dadd(-53.729, 273.697, 24.573, 0.59)
pt3dadd(-53.793, 273.788, 24.609, 0.566)
pt3dadd(-53.846, 273.889, 24.64, 0.554)
pt3dadd(-53.898, 273.991, 24.67, 0.542)
pt3dadd(-53.951, 274.093, 24.7, 0.53)
pt3dadd(-54.003, 274.194, 24.73, 0.518)
pt3dadd(-54.056, 274.296, 24.761, 0.506)
pt3dadd(-54.108, 274.398, 24.791, 0.494)
pt3dadd(-54.161, 274.499, 24.821, 0.482)
pt3dadd(-54.213, 274.601, 24.852, 0.472)
pt3dadd(-54.266, 274.703, 24.882, 0.46)
pt3dadd(-54.314, 274.802, 24.918, 0.446)
pt3dadd(-54.354, 274.902, 24.963, 0.432)
pt3dadd(-54.394, 275.002, 25.009, 0.418)
pt3dadd(-54.435, 275.1, 25.054, 0.404)
pt3dadd(-54.475, 275.2, 25.099, 0.39)
pt3dadd(-54.515, 275.298, 25.145, 0.376)
pt3dadd(-54.555, 275.398, 25.19, 0.362)
pt3dadd(-54.596, 275.497, 25.235, 0.348)
pt3dadd(-54.636, 275.596, 25.28, 0.334)
pt3dadd(-54.676, 275.695, 25.326, 0.32)
pt3dadd(-54.72, 275.792, 25.37, 0.316)
pt3dadd(-54.769, 275.89, 25.414, 0.318)
pt3dadd(-54.818, 275.986, 25.458, 0.322)
pt3dadd(-54.866, 276.082, 25.501, 0.326)
pt3dadd(-54.915, 276.178, 25.545, 0.33)
pt3dadd(-54.963, 276.275, 25.589, 0.332)
pt3dadd(-55.012, 276.371, 25.632, 0.336)
pt3dadd(-55.061, 276.467, 25.676, 0.34)
pt3dadd(-55.109, 276.564, 25.72, 0.344)
pt3dadd(-55.158, 276.66, 25.763, 0.346)
pt3dadd(-55.205, 276.761, 25.8, 0.354)
pt3dadd(-55.252, 276.865, 25.831, 0.364)
pt3dadd(-55.299, 276.968, 25.862, 0.376)
pt3dadd(-55.345, 277.073, 25.893, 0.386)
pt3dadd(-55.392, 277.177, 25.925, 0.396)
pt3dadd(-55.438, 277.282, 25.956, 0.406)
pt3dadd(-55.485, 277.385, 25.987, 0.416)
pt3dadd(-55.532, 277.489, 26.018, 0.428)
pt3dadd(-55.578, 277.594, 26.049, 0.438)
pt3dadd(-55.625, 277.698, 26.08, 0.448)
}
}
proc shape3d_50() {
dend_5[14] { pt3dadd(-55.662, 277.805, 26.111, 0.468)
pt3dadd(-55.695, 277.915, 26.141, 0.492)
pt3dadd(-55.728, 278.024, 26.172, 0.516)
pt3dadd(-55.76, 278.134, 26.202, 0.542)
pt3dadd(-55.793, 278.244, 26.232, 0.566)
pt3dadd(-55.825, 278.353, 26.263, 0.59)
pt3dadd(-55.858, 278.462, 26.293, 0.616)
pt3dadd(-55.891, 278.573, 26.323, 0.64)
pt3dadd(-55.923, 278.682, 26.354, 0.664)
pt3dadd(-55.956, 278.791, 26.384, 0.69)
pt3dadd(-55.982, 278.899, 26.421, 0.754)
pt3dadd(-56.005, 279.006, 26.463, 0.84)
pt3dadd(-56.028, 279.113, 26.504, 0.926)
pt3dadd(-56.051, 279.22, 26.545, 1.012)
pt3dadd(-56.074, 279.328, 26.586, 1.098)
pt3dadd(-56.097, 279.434, 26.627, 1.182)
pt3dadd(-56.12, 279.541, 26.668, 1.268)
pt3dadd(-56.143, 279.648, 26.71, 1.354)
pt3dadd(-56.166, 279.755, 26.751, 1.44)
pt3dadd(-56.189, 279.862, 26.792, 1.526)
pt3dadd(-56.209, 279.972, 26.828, 1.556)
pt3dadd(-56.229, 280.082, 26.862, 1.558)
pt3dadd(-56.248, 280.194, 26.896, 1.562)
pt3dadd(-56.268, 280.306, 26.93, 1.564)
pt3dadd(-56.287, 280.416, 26.963, 1.568)
pt3dadd(-56.306, 280.528, 26.997, 1.57)
pt3dadd(-56.326, 280.639, 27.031, 1.572)
pt3dadd(-56.345, 280.751, 27.064, 1.576)
pt3dadd(-56.365, 280.861, 27.098, 1.578)
pt3dadd(-56.384, 280.973, 27.132, 1.582)
pt3dadd(-56.432, 281.075, 27.163, 1.548)
pt3dadd(-56.493, 281.171, 27.194, 1.496)
pt3dadd(-56.555, 281.267, 27.224, 1.444)
pt3dadd(-56.617, 281.363, 27.254, 1.392)
pt3dadd(-56.678, 281.46, 27.284, 1.34)
pt3dadd(-56.74, 281.556, 27.314, 1.288)
pt3dadd(-56.802, 281.652, 27.345, 1.236)
pt3dadd(-56.863, 281.749, 27.375, 1.182)
pt3dadd(-56.925, 281.845, 27.405, 1.13)
pt3dadd(-56.986, 281.941, 27.436, 1.078)
pt3dadd(-57.044, 282.036, 27.474, 1.058)
pt3dadd(-57.101, 282.131, 27.513, 1.04)
pt3dadd(-57.157, 282.226, 27.553, 1.024)
pt3dadd(-57.214, 282.319, 27.592, 1.006)
pt3dadd(-57.271, 282.414, 27.632, 0.99)
pt3dadd(-57.328, 282.509, 27.671, 0.972)
pt3dadd(-57.385, 282.604, 27.711, 0.956)
pt3dadd(-57.442, 282.697, 27.75, 0.94)
pt3dadd(-57.499, 282.792, 27.79, 0.922)
pt3dadd(-57.555, 282.887, 27.829, 0.906)
pt3dadd(-57.615, 282.983, 27.862, 0.878)
pt3dadd(-57.675, 283.08, 27.894, 0.85)
pt3dadd(-57.734, 283.176, 27.926, 0.824)
pt3dadd(-57.794, 283.273, 27.958, 0.796)
pt3dadd(-57.854, 283.37, 27.99, 0.768)
pt3dadd(-57.913, 283.466, 28.022, 0.742)
pt3dadd(-57.973, 283.564, 28.054, 0.714)
pt3dadd(-58.032, 283.661, 28.086, 0.686)
pt3dadd(-58.092, 283.757, 28.119, 0.658)
pt3dadd(-58.152, 283.854, 28.151, 0.63)
pt3dadd(-58.214, 283.952, 28.172, 0.608)
pt3dadd(-58.277, 284.052, 28.193, 0.584)
pt3dadd(-58.339, 284.152, 28.215, 0.562)
pt3dadd(-58.402, 284.25, 28.236, 0.538)
pt3dadd(-58.464, 284.35, 28.257, 0.516)
pt3dadd(-58.527, 284.449, 28.278, 0.492)
pt3dadd(-58.589, 284.549, 28.3, 0.468)
pt3dadd(-58.652, 284.647, 28.321, 0.446)
pt3dadd(-58.714, 284.747, 28.342, 0.422)
pt3dadd(-58.776, 284.846, 28.363, 0.404)
pt3dadd(-58.821, 284.957, 28.375, 0.506)
pt3dadd(-58.866, 285.067, 28.387, 0.606)
pt3dadd(-58.911, 285.178, 28.398, 0.706)
pt3dadd(-58.956, 285.288, 28.41, 0.806)
pt3dadd(-59.001, 285.398, 28.422, 0.908)
pt3dadd(-59.045, 285.509, 28.434, 1.008)
pt3dadd(-59.09, 285.619, 28.445, 1.108)
pt3dadd(-59.135, 285.73, 28.457, 1.208)
pt3dadd(-59.18, 285.84, 28.469, 1.31)
pt3dadd(-59.226, 285.949, 28.48, 1.404)
pt3dadd(-59.286, 286.054, 28.484, 1.37)
pt3dadd(-59.347, 286.157, 28.489, 1.336)
pt3dadd(-59.407, 286.26, 28.493, 1.3)
pt3dadd(-59.468, 286.363, 28.497, 1.266)
pt3dadd(-59.529, 286.468, 28.501, 1.232)
pt3dadd(-59.589, 286.571, 28.505, 1.196)
pt3dadd(-59.649, 286.674, 28.509, 1.162)
pt3dadd(-59.71, 286.777, 28.514, 1.128)
pt3dadd(-59.771, 286.882, 28.518, 1.092)
pt3dadd(-59.831, 286.985, 28.522, 1.056)
pt3dadd(-59.889, 287.09, 28.526, 1.004)
pt3dadd(-59.946, 287.195, 28.53, 0.952)
pt3dadd(-60.004, 287.3, 28.535, 0.898)
pt3dadd(-60.062, 287.405, 28.539, 0.846)
pt3dadd(-60.119, 287.51, 28.544, 0.794)
pt3dadd(-60.177, 287.615, 28.548, 0.74)
pt3dadd(-60.235, 287.72, 28.552, 0.688)
pt3dadd(-60.293, 287.826, 28.557, 0.634)
pt3dadd(-60.35, 287.93, 28.561, 0.582)
pt3dadd(-60.407, 288.036, 28.566, 0.532)
pt3dadd(-60.459, 288.144, 28.574, 0.512)
pt3dadd(-60.511, 288.252, 28.581, 0.492)
pt3dadd(-60.562, 288.36, 28.589, 0.47)
pt3dadd(-60.614, 288.468, 28.597, 0.45)
pt3dadd(-60.666, 288.576, 28.605, 0.43)
pt3dadd(-60.717, 288.684, 28.612, 0.41)
pt3dadd(-60.769, 288.792, 28.62, 0.388)
pt3dadd(-60.821, 288.899, 28.628, 0.368)
pt3dadd(-60.872, 289.007, 28.636, 0.348)
pt3dadd(-60.926, 289.114, 28.644, 0.338)
pt3dadd(-60.996, 289.21, 28.655, 0.41)
pt3dadd(-61.067, 289.307, 28.667, 0.48)
pt3dadd(-61.137, 289.403, 28.679, 0.55)
pt3dadd(-61.207, 289.499, 28.69, 0.62)
pt3dadd(-61.277, 289.595, 28.701, 0.692)
pt3dadd(-61.347, 289.692, 28.713, 0.762)
pt3dadd(-61.418, 289.788, 28.724, 0.832)
pt3dadd(-61.488, 289.884, 28.736, 0.902)
pt3dadd(-61.558, 289.981, 28.747, 0.972)
pt3dadd(-61.628, 290.075, 28.763, 1.036)
pt3dadd(-61.692, 290.158, 28.813, 1.046)
pt3dadd(-61.757, 290.239, 28.862, 1.056)
pt3dadd(-61.822, 290.321, 28.911, 1.064)
pt3dadd(-61.887, 290.404, 28.96, 1.074)
pt3dadd(-61.952, 290.485, 29.009, 1.084)
pt3dadd(-62.017, 290.567, 29.058, 1.094)
pt3dadd(-62.082, 290.65, 29.107, 1.104)
pt3dadd(-62.146, 290.731, 29.156, 1.114)
pt3dadd(-62.211, 290.813, 29.205, 1.122)
pt3dadd(-62.283, 290.891, 29.251, 1.124)
pt3dadd(-62.376, 290.953, 29.287, 1.098)
pt3dadd(-62.468, 291.017, 29.323, 1.072)
pt3dadd(-62.561, 291.08, 29.358, 1.048)
pt3dadd(-62.654, 291.143, 29.394, 1.022)
pt3dadd(-62.746, 291.206, 29.43, 0.996)
pt3dadd(-62.839, 291.269, 29.465, 0.97)
pt3dadd(-62.932, 291.332, 29.501, 0.946)
pt3dadd(-63.024, 291.395, 29.537, 0.92)
pt3dadd(-63.117, 291.458, 29.572, 0.894)
pt3dadd(-63.198, 291.535, 29.601, 0.856)
pt3dadd(-63.255, 291.64, 29.614, 0.792)
pt3dadd(-63.312, 291.744, 29.627, 0.73)
pt3dadd(-63.369, 291.848, 29.64, 0.666)
pt3dadd(-63.427, 291.952, 29.654, 0.602)
pt3dadd(-63.484, 292.056, 29.667, 0.538)
pt3dadd(-63.541, 292.16, 29.681, 0.476)
pt3dadd(-63.598, 292.265, 29.694, 0.412)
pt3dadd(-63.655, 292.369, 29.707, 0.348)
pt3dadd(-63.713, 292.474, 29.72, 0.284)
pt3dadd(-63.765, 292.58, 29.729, 0.25)
pt3dadd(-63.807, 292.693, 29.729, 0.27)
pt3dadd(-63.849, 292.805, 29.728, 0.288)
pt3dadd(-63.892, 292.918, 29.728, 0.306)
pt3dadd(-63.934, 293.029, 29.727, 0.326)
pt3dadd(-63.977, 293.142, 29.727, 0.344)
pt3dadd(-64.019, 293.254, 29.727, 0.364)
pt3dadd(-64.061, 293.366, 29.726, 0.382)
pt3dadd(-64.104, 293.479, 29.726, 0.4)
pt3dadd(-64.146, 293.591, 29.726, 0.42)
pt3dadd(-64.195, 293.7, 29.725, 0.438)
pt3dadd(-64.256, 293.804, 29.725, 0.454)
pt3dadd(-64.316, 293.908, 29.724, 0.468)
pt3dadd(-64.376, 294.011, 29.723, 0.484)
pt3dadd(-64.437, 294.115, 29.723, 0.5)
pt3dadd(-64.497, 294.218, 29.722, 0.516)
pt3dadd(-64.557, 294.323, 29.722, 0.532)
pt3dadd(-64.617, 294.426, 29.721, 0.548)
pt3dadd(-64.678, 294.53, 29.721, 0.564)
pt3dadd(-64.738, 294.634, 29.72, 0.58)
pt3dadd(-64.801, 294.736, 29.719, 0.594)
pt3dadd(-64.869, 294.834, 29.719, 0.61)
pt3dadd(-64.937, 294.934, 29.718, 0.624)
pt3dadd(-65.005, 295.032, 29.717, 0.638)
pt3dadd(-65.073, 295.132, 29.716, 0.654)
pt3dadd(-65.141, 295.23, 29.715, 0.668)
pt3dadd(-65.209, 295.33, 29.714, 0.682)
pt3dadd(-65.277, 295.428, 29.713, 0.698)
pt3dadd(-65.345, 295.526, 29.712, 0.712)
pt3dadd(-65.413, 295.626, 29.711, 0.728)
pt3dadd(-65.483, 295.723, 29.71, 0.742)
pt3dadd(-65.559, 295.816, 29.709, 0.756)
pt3dadd(-65.634, 295.909, 29.708, 0.77)
pt3dadd(-65.71, 296.003, 29.707, 0.784)
pt3dadd(-65.785, 296.096, 29.705, 0.798)
pt3dadd(-65.86, 296.189, 29.704, 0.812)
pt3dadd(-65.936, 296.282, 29.703, 0.826)
pt3dadd(-66.011, 296.376, 29.702, 0.84)
pt3dadd(-66.087, 296.47, 29.701, 0.854)
pt3dadd(-66.162, 296.563, 29.699, 0.868)
pt3dadd(-66.238, 296.656, 29.698, 0.868)
pt3dadd(-66.316, 296.747, 29.695, 0.85)
pt3dadd(-66.394, 296.838, 29.693, 0.83)
pt3dadd(-66.472, 296.929, 29.691, 0.81)
pt3dadd(-66.55, 297.02, 29.689, 0.792)
pt3dadd(-66.628, 297.112, 29.686, 0.772)
pt3dadd(-66.706, 297.203, 29.684, 0.754)
pt3dadd(-66.784, 297.294, 29.682, 0.734)
pt3dadd(-66.862, 297.385, 29.68, 0.714)
pt3dadd(-66.939, 297.476, 29.677, 0.696)
pt3dadd(-67.016, 297.569, 29.675, 0.674)
}
}
proc shape3d_51() {
dend_5[14] { pt3dadd(-67.092, 297.661, 29.672, 0.652)
pt3dadd(-67.167, 297.755, 29.668, 0.628)
pt3dadd(-67.242, 297.848, 29.665, 0.606)
pt3dadd(-67.318, 297.942, 29.662, 0.582)
pt3dadd(-67.393, 298.034, 29.659, 0.558)
pt3dadd(-67.469, 298.128, 29.656, 0.536)
pt3dadd(-67.544, 298.222, 29.652, 0.512)
pt3dadd(-67.619, 298.315, 29.649, 0.488)
pt3dadd(-67.695, 298.408, 29.646, 0.466)
pt3dadd(-67.762, 298.507, 29.641, 0.452)
pt3dadd(-67.819, 298.612, 29.634, 0.452)
pt3dadd(-67.876, 298.717, 29.627, 0.452)
pt3dadd(-67.932, 298.823, 29.62, 0.452)
pt3dadd(-67.989, 298.928, 29.613, 0.452)
pt3dadd(-68.046, 299.034, 29.605, 0.452)
pt3dadd(-68.103, 299.138, 29.598, 0.452)
pt3dadd(-68.159, 299.244, 29.591, 0.452)
pt3dadd(-68.216, 299.35, 29.584, 0.452)
pt3dadd(-68.273, 299.455, 29.577, 0.452)
pt3dadd(-68.333, 299.558, 29.568, 0.446)
pt3dadd(-68.397, 299.659, 29.557, 0.434)
pt3dadd(-68.461, 299.76, 29.546, 0.422)
pt3dadd(-68.525, 299.861, 29.536, 0.41)
pt3dadd(-68.589, 299.96, 29.525, 0.398)
pt3dadd(-68.653, 300.061, 29.514, 0.386)
pt3dadd(-68.717, 300.162, 29.503, 0.374)
pt3dadd(-68.781, 300.263, 29.492, 0.362)
pt3dadd(-68.845, 300.364, 29.482, 0.35)
pt3dadd(-68.909, 300.464, 29.471, 0.338)
pt3dadd(-68.972, 300.564, 29.455, 0.326)
pt3dadd(-69.034, 300.664, 29.433, 0.316)
pt3dadd(-69.096, 300.763, 29.41, 0.304)
pt3dadd(-69.157, 300.863, 29.388, 0.294)
pt3dadd(-69.219, 300.962, 29.366, 0.284)
pt3dadd(-69.281, 301.062, 29.344, 0.274)
pt3dadd(-69.342, 301.16, 29.322, 0.262)
pt3dadd(-69.404, 301.26, 29.299, 0.252)
pt3dadd(-69.466, 301.36, 29.277, 0.242)
pt3dadd(-69.527, 301.459, 29.255, 0.23)
pt3dadd(-69.583, 301.558, 29.223, 0.226)
pt3dadd(-69.633, 301.655, 29.182, 0.226)
pt3dadd(-69.684, 301.752, 29.141, 0.226)
pt3dadd(-69.735, 301.849, 29.1, 0.226)
pt3dadd(-69.785, 301.946, 29.059, 0.226)
pt3dadd(-69.836, 302.044, 29.019, 0.226)
pt3dadd(-69.886, 302.141, 28.978, 0.226)
pt3dadd(-69.937, 302.238, 28.937, 0.226)
pt3dadd(-69.987, 302.335, 28.896, 0.226)
pt3dadd(-70.038, 302.432, 28.855, 0.226)
pt3dadd(-70.108, 302.516, 28.817, 0.236)
pt3dadd(-70.192, 302.59, 28.781, 0.256)
pt3dadd(-70.277, 302.662, 28.746, 0.274)
pt3dadd(-70.362, 302.735, 28.71, 0.294)
pt3dadd(-70.447, 302.808, 28.674, 0.312)
pt3dadd(-70.532, 302.881, 28.638, 0.33)
pt3dadd(-70.617, 302.954, 28.602, 0.35)
pt3dadd(-70.702, 303.028, 28.566, 0.368)
pt3dadd(-70.787, 303.101, 28.53, 0.388)
pt3dadd(-70.871, 303.174, 28.495, 0.406)
pt3dadd(-70.957, 303.25, 28.463, 0.432)
pt3dadd(-71.042, 303.326, 28.436, 0.464)
pt3dadd(-71.128, 303.404, 28.408, 0.496)
pt3dadd(-71.213, 303.481, 28.381, 0.528)
pt3dadd(-71.299, 303.559, 28.353, 0.558)
pt3dadd(-71.384, 303.636, 28.325, 0.59)
pt3dadd(-71.47, 303.714, 28.298, 0.622)
pt3dadd(-71.555, 303.791, 28.27, 0.654)
pt3dadd(-71.641, 303.869, 28.243, 0.686)
pt3dadd(-71.726, 303.946, 28.215, 0.716)
pt3dadd(-71.805, 304.027, 28.182, 0.736)
pt3dadd(-71.878, 304.111, 28.145, 0.744)
pt3dadd(-71.952, 304.195, 28.109, 0.754)
pt3dadd(-72.025, 304.279, 28.072, 0.762)
pt3dadd(-72.099, 304.363, 28.035, 0.77)
pt3dadd(-72.172, 304.447, 27.999, 0.78)
pt3dadd(-72.245, 304.531, 27.962, 0.788)
pt3dadd(-72.319, 304.616, 27.925, 0.798)
pt3dadd(-72.392, 304.7, 27.888, 0.806)
pt3dadd(-72.465, 304.784, 27.852, 0.816)
pt3dadd(-72.531, 304.87, 27.808, 0.808)
pt3dadd(-72.594, 304.955, 27.761, 0.794)
pt3dadd(-72.657, 305.04, 27.715, 0.78)
pt3dadd(-72.721, 305.125, 27.668, 0.766)
pt3dadd(-72.784, 305.21, 27.622, 0.752)
pt3dadd(-72.847, 305.297, 27.575, 0.738)
pt3dadd(-72.91, 305.382, 27.528, 0.724)
pt3dadd(-72.973, 305.467, 27.482, 0.71)
pt3dadd(-73.036, 305.552, 27.435, 0.696)
pt3dadd(-73.099, 305.638, 27.389, 0.682)
pt3dadd(-73.173, 305.716, 27.344, 0.678)
pt3dadd(-73.251, 305.79, 27.3, 0.68)
pt3dadd(-73.328, 305.864, 27.256, 0.682)
pt3dadd(-73.406, 305.939, 27.212, 0.682)
pt3dadd(-73.484, 306.013, 27.168, 0.684)
pt3dadd(-73.562, 306.088, 27.124, 0.686)
pt3dadd(-73.64, 306.162, 27.08, 0.688)
pt3dadd(-73.718, 306.236, 27.036, 0.688)
pt3dadd(-73.796, 306.312, 26.993, 0.69)
pt3dadd(-73.874, 306.386, 26.949, 0.69)
pt3dadd(-73.931, 306.466, 26.892, 0.732)
pt3dadd(-73.979, 306.548, 26.832, 0.786)
pt3dadd(-74.028, 306.63, 26.771, 0.84)
pt3dadd(-74.077, 306.713, 26.711, 0.894)
pt3dadd(-74.126, 306.794, 26.65, 0.948)
pt3dadd(-74.175, 306.876, 26.59, 1.002)
pt3dadd(-74.224, 306.959, 26.529, 1.056)
pt3dadd(-74.273, 307.04, 26.469, 1.112)
pt3dadd(-74.321, 307.123, 26.408, 1.166)
pt3dadd(-74.37, 307.205, 26.348, 1.22)
pt3dadd(-74.431, 307.29, 26.3, 1.214)
pt3dadd(-74.496, 307.376, 26.257, 1.186)
pt3dadd(-74.562, 307.463, 26.214, 1.158)
pt3dadd(-74.627, 307.549, 26.17, 1.13)
pt3dadd(-74.692, 307.636, 26.127, 1.102)
pt3dadd(-74.757, 307.722, 26.084, 1.076)
pt3dadd(-74.823, 307.808, 26.041, 1.048)
pt3dadd(-74.888, 307.895, 25.998, 1.02)
pt3dadd(-74.953, 307.981, 25.954, 0.992)
pt3dadd(-75.018, 308.066, 25.911, 0.964)
pt3dadd(-75.082, 308.15, 25.862, 0.928)
pt3dadd(-75.145, 308.232, 25.812, 0.892)
pt3dadd(-75.208, 308.315, 25.761, 0.854)
pt3dadd(-75.271, 308.396, 25.711, 0.816)
pt3dadd(-75.334, 308.479, 25.661, 0.78)
pt3dadd(-75.398, 308.561, 25.61, 0.742)
pt3dadd(-75.461, 308.644, 25.56, 0.704)
pt3dadd(-75.524, 308.725, 25.509, 0.668)
pt3dadd(-75.587, 308.808, 25.459, 0.63)
pt3dadd(-75.65, 308.89, 25.409, 0.592)
pt3dadd(-75.711, 308.968, 25.352, 0.586)
pt3dadd(-75.772, 309.046, 25.295, 0.584)
pt3dadd(-75.832, 309.122, 25.237, 0.58)
pt3dadd(-75.893, 309.199, 25.18, 0.578)
pt3dadd(-75.954, 309.277, 25.123, 0.574)
pt3dadd(-76.015, 309.354, 25.065, 0.57)
pt3dadd(-76.075, 309.432, 25.008, 0.568)
pt3dadd(-76.136, 309.509, 24.951, 0.564)
pt3dadd(-76.197, 309.587, 24.894, 0.56)
pt3dadd(-76.258, 309.665, 24.837, 0.56)
pt3dadd(-76.332, 309.746, 24.798, 0.594)
pt3dadd(-76.407, 309.828, 24.76, 0.63)
pt3dadd(-76.481, 309.91, 24.721, 0.666)
pt3dadd(-76.555, 309.992, 24.682, 0.7)
pt3dadd(-76.63, 310.074, 24.643, 0.736)
pt3dadd(-76.704, 310.156, 24.604, 0.772)
pt3dadd(-76.778, 310.238, 24.566, 0.806)
pt3dadd(-76.852, 310.32, 24.527, 0.842)
pt3dadd(-76.927, 310.402, 24.488, 0.876)
pt3dadd(-77, 310.484, 24.449, 0.912)
pt3dadd(-77.053, 310.572, 24.396, 0.928)
pt3dadd(-77.106, 310.658, 24.344, 0.946)
pt3dadd(-77.158, 310.746, 24.291, 0.964)
pt3dadd(-77.211, 310.834, 24.239, 0.98)
pt3dadd(-77.264, 310.921, 24.187, 0.998)
pt3dadd(-77.317, 311.009, 24.134, 1.014)
pt3dadd(-77.37, 311.096, 24.082, 1.032)
pt3dadd(-77.423, 311.184, 24.029, 1.05)
pt3dadd(-77.475, 311.272, 23.977, 1.066)
pt3dadd(-77.529, 311.358, 23.925, 1.082)
pt3dadd(-77.608, 311.436, 23.885, 1.074)
pt3dadd(-77.686, 311.513, 23.845, 1.064)
pt3dadd(-77.764, 311.591, 23.805, 1.054)
pt3dadd(-77.842, 311.668, 23.765, 1.046)
pt3dadd(-77.92, 311.746, 23.726, 1.036)
pt3dadd(-77.999, 311.822, 23.686, 1.026)
pt3dadd(-78.077, 311.9, 23.646, 1.018)
pt3dadd(-78.155, 311.977, 23.606, 1.008)
pt3dadd(-78.233, 312.055, 23.566, 0.998)
pt3dadd(-78.313, 312.132, 23.528, 0.984)
pt3dadd(-78.4, 312.208, 23.5, 0.948)
pt3dadd(-78.487, 312.283, 23.472, 0.91)
pt3dadd(-78.574, 312.358, 23.443, 0.874)
pt3dadd(-78.661, 312.433, 23.415, 0.838)
pt3dadd(-78.748, 312.509, 23.386, 0.8)
pt3dadd(-78.835, 312.583, 23.358, 0.764)
pt3dadd(-78.922, 312.659, 23.329, 0.726)
pt3dadd(-79.009, 312.734, 23.301, 0.69)
pt3dadd(-79.096, 312.81, 23.273, 0.652)
pt3dadd(-79.182, 312.886, 23.244, 0.616)
pt3dadd(-79.265, 312.966, 23.217, 0.584)
pt3dadd(-79.348, 313.046, 23.189, 0.554)
pt3dadd(-79.431, 313.127, 23.161, 0.522)
pt3dadd(-79.513, 313.207, 23.134, 0.49)
pt3dadd(-79.596, 313.288, 23.106, 0.458)
pt3dadd(-79.679, 313.368, 23.078, 0.426)
pt3dadd(-79.762, 313.448, 23.05, 0.394)
pt3dadd(-79.844, 313.528, 23.023, 0.362)
pt3dadd(-79.927, 313.608, 22.995, 0.332)
pt3dadd(-80.005, 313.691, 22.964, 0.316)
pt3dadd(-80.071, 313.777, 22.922, 0.352)
pt3dadd(-80.137, 313.865, 22.88, 0.386)
pt3dadd(-80.202, 313.952, 22.839, 0.422)
pt3dadd(-80.268, 314.04, 22.797, 0.456)
pt3dadd(-80.333, 314.126, 22.756, 0.49)
pt3dadd(-80.399, 314.214, 22.714, 0.526)
pt3dadd(-80.464, 314.302, 22.673, 0.56)
pt3dadd(-80.53, 314.388, 22.631, 0.596)
pt3dadd(-80.595, 314.476, 22.589, 0.63)
pt3dadd(-80.666, 314.558, 22.549, 0.648)
pt3dadd(-80.753, 314.63, 22.514, 0.612)
}
}
proc shape3d_52() {
dend_5[14] { pt3dadd(-80.839, 314.702, 22.479, 0.576)
pt3dadd(-80.926, 314.774, 22.444, 0.542)
pt3dadd(-81.013, 314.845, 22.409, 0.506)
pt3dadd(-81.099, 314.917, 22.374, 0.472)
pt3dadd(-81.186, 314.989, 22.339, 0.436)
pt3dadd(-81.272, 315.06, 22.304, 0.402)
pt3dadd(-81.359, 315.132, 22.269, 0.366)
pt3dadd(-81.445, 315.204, 22.234, 0.33)
pt3dadd(-81.532, 315.277, 22.201, 0.304)
pt3dadd(-81.62, 315.353, 22.177, 0.296)
pt3dadd(-81.708, 315.43, 22.153, 0.288)
pt3dadd(-81.796, 315.505, 22.129, 0.28)
pt3dadd(-81.884, 315.582, 22.104, 0.272)
pt3dadd(-81.972, 315.659, 22.08, 0.264)
pt3dadd(-82.06, 315.734, 22.056, 0.256)
pt3dadd(-82.148, 315.811, 22.031, 0.248)
pt3dadd(-82.236, 315.887, 22.007, 0.24)
pt3dadd(-82.323, 315.964, 21.983, 0.232)
pt3dadd(-82.409, 316.04, 21.955, 0.234)
pt3dadd(-82.49, 316.117, 21.918, 0.26)
pt3dadd(-82.571, 316.194, 21.882, 0.284)
pt3dadd(-82.652, 316.271, 21.846, 0.31)
pt3dadd(-82.733, 316.348, 21.809, 0.336)
pt3dadd(-82.814, 316.426, 21.772, 0.362)
pt3dadd(-82.895, 316.502, 21.736, 0.388)
pt3dadd(-82.976, 316.579, 21.699, 0.414)
pt3dadd(-83.057, 316.656, 21.663, 0.44)
pt3dadd(-83.138, 316.733, 21.626, 0.464)
pt3dadd(-83.215, 316.814, 21.592, 0.48)
pt3dadd(-83.286, 316.903, 21.56, 0.478)
pt3dadd(-83.357, 316.992, 21.528, 0.476)
pt3dadd(-83.428, 317.081, 21.496, 0.474)
pt3dadd(-83.499, 317.17, 21.464, 0.472)
pt3dadd(-83.571, 317.258, 21.433, 0.47)
pt3dadd(-83.642, 317.347, 21.401, 0.468)
pt3dadd(-83.713, 317.436, 21.369, 0.466)
pt3dadd(-83.784, 317.525, 21.337, 0.464)
pt3dadd(-83.855, 317.614, 21.305, 0.462)
pt3dadd(-83.918, 317.711, 21.285, 0.452)
pt3dadd(-83.973, 317.816, 21.273, 0.436)
pt3dadd(-84.029, 317.922, 21.261, 0.42)
pt3dadd(-84.085, 318.028, 21.25, 0.402)
pt3dadd(-84.14, 318.133, 21.238, 0.386)
pt3dadd(-84.196, 318.239, 21.227, 0.37)
pt3dadd(-84.252, 318.344, 21.215, 0.354)
pt3dadd(-84.307, 318.45, 21.204, 0.338)
pt3dadd(-84.363, 318.554, 21.192, 0.322)
pt3dadd(-84.418, 318.66, 21.181, 0.306)
pt3dadd(-84.457, 318.773, 21.183, 0.308)
pt3dadd(-84.489, 318.888, 21.192, 0.32)
pt3dadd(-84.521, 319.003, 21.2, 0.332)
pt3dadd(-84.553, 319.118, 21.209, 0.344)
pt3dadd(-84.584, 319.234, 21.217, 0.356)
pt3dadd(-84.616, 319.349, 21.226, 0.368)
pt3dadd(-84.648, 319.464, 21.234, 0.38)
pt3dadd(-84.68, 319.579, 21.243, 0.39)
pt3dadd(-84.712, 319.694, 21.251, 0.402)
pt3dadd(-84.743, 319.81, 21.26, 0.414)
pt3dadd(-84.764, 319.921, 21.292, 0.402)
pt3dadd(-84.782, 320.032, 21.329, 0.386)
pt3dadd(-84.8, 320.141, 21.365, 0.37)
pt3dadd(-84.818, 320.251, 21.402, 0.354)
pt3dadd(-84.836, 320.362, 21.439, 0.338)
pt3dadd(-84.854, 320.472, 21.476, 0.32)
pt3dadd(-84.871, 320.581, 21.513, 0.304)
pt3dadd(-84.889, 320.692, 21.55, 0.288)
pt3dadd(-84.907, 320.802, 21.587, 0.272)
pt3dadd(-84.925, 320.912, 21.624, 0.254)
pt3dadd(-84.94, 321.026, 21.651, 0.262)
pt3dadd(-84.954, 321.14, 21.678, 0.274)
pt3dadd(-84.968, 321.256, 21.704, 0.286)
pt3dadd(-84.982, 321.371, 21.73, 0.298)
pt3dadd(-84.996, 321.486, 21.756, 0.31)
pt3dadd(-85.01, 321.601, 21.782, 0.322)
pt3dadd(-85.024, 321.716, 21.808, 0.334)
pt3dadd(-85.038, 321.83, 21.834, 0.346)
pt3dadd(-85.053, 321.946, 21.861, 0.358)
pt3dadd(-85.067, 322.061, 21.887, 0.37)
pt3dadd(-85.087, 322.177, 21.905, 0.38)
pt3dadd(-85.108, 322.294, 21.922, 0.386)
pt3dadd(-85.129, 322.41, 21.939, 0.396)
pt3dadd(-85.15, 322.526, 21.956, 0.402)
pt3dadd(-85.171, 322.643, 21.973, 0.412)
pt3dadd(-85.192, 322.759, 21.99, 0.42)
pt3dadd(-85.213, 322.876, 22.007, 0.426)
pt3dadd(-85.234, 322.992, 22.024, 0.436)
pt3dadd(-85.255, 323.108, 22.041, 0.442)
pt3dadd(-85.276, 323.224, 22.058, 0.452)
pt3dadd(-85.311, 323.339, 22.067, 0.448)
pt3dadd(-85.347, 323.453, 22.075, 0.444)
pt3dadd(-85.383, 323.567, 22.084, 0.44)
pt3dadd(-85.42, 323.681, 22.092, 0.436)
pt3dadd(-85.456, 323.794, 22.1, 0.432)
pt3dadd(-85.492, 323.908, 22.108, 0.428)
pt3dadd(-85.529, 324.022, 22.117, 0.424)
pt3dadd(-85.565, 324.136, 22.125, 0.42)
pt3dadd(-85.601, 324.25, 22.133, 0.416)
pt3dadd(-85.638, 324.364, 22.141, 0.412)
pt3dadd(-85.7, 324.467, 22.142, 0.394)
pt3dadd(-85.762, 324.569, 22.142, 0.378)
pt3dadd(-85.824, 324.672, 22.142, 0.362)
pt3dadd(-85.887, 324.774, 22.142, 0.344)
pt3dadd(-85.949, 324.877, 22.142, 0.328)
pt3dadd(-86.011, 324.979, 22.142, 0.312)
pt3dadd(-86.074, 325.081, 22.142, 0.294)
pt3dadd(-86.136, 325.184, 22.142, 0.278)
pt3dadd(-86.199, 325.286, 22.142, 0.262)
pt3dadd(-86.261, 325.39, 22.142, 0.244)
pt3dadd(-86.339, 325.481, 22.142, 0.242)
pt3dadd(-86.417, 325.571, 22.142, 0.24)
pt3dadd(-86.496, 325.662, 22.142, 0.238)
pt3dadd(-86.574, 325.753, 22.142, 0.236)
pt3dadd(-86.653, 325.843, 22.142, 0.236)
pt3dadd(-86.731, 325.934, 22.142, 0.234)
pt3dadd(-86.81, 326.026, 22.142, 0.232)
pt3dadd(-86.888, 326.116, 22.142, 0.23)
pt3dadd(-86.966, 326.207, 22.142, 0.228)
pt3dadd(-87.045, 326.298, 22.142, 0.226)
pt3dadd(-87.125, 326.387, 22.142, 0.226)
pt3dadd(-87.205, 326.476, 22.142, 0.226)
pt3dadd(-87.286, 326.566, 22.142, 0.226)
pt3dadd(-87.366, 326.654, 22.142, 0.226)
pt3dadd(-87.446, 326.743, 22.142, 0.226)
pt3dadd(-87.527, 326.833, 22.142, 0.226)
pt3dadd(-87.607, 326.922, 22.142, 0.226)
pt3dadd(-87.687, 327.011, 22.142, 0.226)
pt3dadd(-87.767, 327.101, 22.142, 0.226)
pt3dadd(-87.848, 327.19, 22.142, 0.226)
}
dend_5[15] {pt3dclear()
pt3dadd(41.567, 209.515, 7.293, 1.744)
pt3dadd(41.552, 209.466, 7.232, 1.716)
pt3dadd(41.503, 209.45, 7.132, 1.656)
pt3dadd(41.455, 209.435, 7.032, 1.594)
pt3dadd(41.406, 209.42, 6.932, 1.532)
pt3dadd(41.358, 209.405, 6.831, 1.472)
pt3dadd(41.309, 209.39, 6.731, 1.41)
pt3dadd(41.26, 209.375, 6.631, 1.348)
pt3dadd(41.212, 209.359, 6.531, 1.288)
pt3dadd(41.163, 209.345, 6.431, 1.226)
pt3dadd(41.114, 209.329, 6.331, 1.164)
pt3dadd(41.088, 209.36, 6.269, 1.13)
pt3dadd(41.092, 209.453, 6.258, 1.13)
pt3dadd(41.097, 209.545, 6.247, 1.13)
pt3dadd(41.1, 209.638, 6.236, 1.13)
pt3dadd(41.105, 209.731, 6.225, 1.13)
pt3dadd(41.109, 209.824, 6.214, 1.13)
pt3dadd(41.113, 209.916, 6.203, 1.13)
pt3dadd(41.107, 210.007, 6.201, 1.13)
pt3dadd(41.088, 210.095, 6.209, 1.13)
pt3dadd(41.069, 210.182, 6.217, 1.13)
pt3dadd(41.049, 210.27, 6.226, 1.13)
pt3dadd(41.03, 210.359, 6.234, 1.13)
pt3dadd(41.011, 210.446, 6.243, 1.13)
pt3dadd(40.992, 210.533, 6.254, 1.13)
pt3dadd(40.972, 210.62, 6.265, 1.13)
pt3dadd(40.953, 210.707, 6.275, 1.13)
pt3dadd(40.934, 210.794, 6.286, 1.13)
pt3dadd(40.917, 210.88, 6.301, 1.13)
pt3dadd(40.921, 210.95, 6.348, 1.13)
pt3dadd(40.925, 211.021, 6.395, 1.13)
pt3dadd(40.929, 211.091, 6.441, 1.13)
pt3dadd(40.933, 211.162, 6.488, 1.13)
pt3dadd(40.937, 211.235, 6.53, 1.13)
pt3dadd(40.941, 211.325, 6.539, 1.13)
pt3dadd(40.945, 211.415, 6.548, 1.13)
pt3dadd(40.949, 211.505, 6.557, 1.13)
pt3dadd(40.953, 211.595, 6.565, 1.13)
pt3dadd(40.957, 211.685, 6.574, 1.13)
pt3dadd(40.961, 211.657, 6.563, 0.678)
pt3dadd(40.965, 211.63, 6.552, 0.678)
pt3dadd(40.969, 211.602, 6.541, 0.678)
pt3dadd(40.973, 211.574, 6.53, 0.678)
pt3dadd(40.977, 211.547, 6.519, 0.678)
pt3dadd(40.982, 211.519, 6.508, 0.678)
pt3dadd(40.954, 211.556, 6.578, 0.758)
pt3dadd(40.888, 211.61, 6.587, 0.822)
pt3dadd(40.81, 211.67, 6.576, 0.882)
pt3dadd(40.715, 211.704, 6.555, 0.934)
pt3dadd(40.61, 211.722, 6.528, 0.982)
pt3dadd(40.501, 211.717, 6.494, 1.016)
pt3dadd(40.391, 211.696, 6.454, 1.038)
pt3dadd(40.284, 211.687, 6.415, 1.054)
pt3dadd(40.192, 211.724, 6.377, 1.054)
pt3dadd(40.11, 211.741, 6.308, 1.054)
pt3dadd(40.027, 211.759, 6.238, 1.054)
pt3dadd(39.945, 211.776, 6.169, 1.054)
pt3dadd(39.863, 211.793, 6.099, 1.054)
pt3dadd(39.828, 211.844, 6.024, 1.044)
pt3dadd(39.804, 211.902, 5.947, 1.03)
pt3dadd(39.733, 211.945, 5.885, 1.016)
pt3dadd(39.655, 211.98, 5.825, 1.004)
pt3dadd(39.559, 211.996, 5.772, 1.004)
pt3dadd(39.467, 212.011, 5.715, 1.034)
pt3dadd(39.382, 212.029, 5.648, 1.118)
pt3dadd(39.281, 212.021, 5.601, 1.222)
pt3dadd(39.167, 211.993, 5.571, 1.34)
pt3dadd(39.052, 211.966, 5.557, 1.386)
pt3dadd(38.936, 211.938, 5.546, 1.422)
pt3dadd(38.82, 211.91, 5.535, 1.458)
pt3dadd(38.704, 211.883, 5.524, 1.494)
pt3dadd(38.708, 211.855, 5.513, 1.494)
}
}
proc shape3d_53() {
dend_5[15] { pt3dadd(38.592, 211.828, 5.503, 1.53)
pt3dadd(38.476, 211.8, 5.492, 1.566)
pt3dadd(38.36, 211.772, 5.481, 1.602)
pt3dadd(38.246, 211.751, 5.455, 1.614)
pt3dadd(38.132, 211.73, 5.427, 1.624)
pt3dadd(38.018, 211.709, 5.398, 1.632)
pt3dadd(37.904, 211.688, 5.37, 1.64)
pt3dadd(37.79, 211.668, 5.342, 1.65)
pt3dadd(37.676, 211.648, 5.314, 1.658)
pt3dadd(37.562, 211.636, 5.287, 1.658)
pt3dadd(37.449, 211.622, 5.26, 1.658)
pt3dadd(37.335, 211.609, 5.233, 1.658)
pt3dadd(37.222, 211.596, 5.206, 1.658)
pt3dadd(37.108, 211.583, 5.179, 1.658)
pt3dadd(36.993, 211.562, 5.16, 1.65)
pt3dadd(36.877, 211.535, 5.147, 1.634)
pt3dadd(36.762, 211.507, 5.135, 1.62)
pt3dadd(36.646, 211.48, 5.122, 1.606)
pt3dadd(36.53, 211.452, 5.11, 1.592)
pt3dadd(36.414, 211.424, 5.097, 1.576)
pt3dadd(36.298, 211.397, 5.085, 1.562)
pt3dadd(36.185, 211.391, 5.073, 1.556)
pt3dadd(36.073, 211.396, 5.062, 1.556)
pt3dadd(35.965, 211.404, 5.044, 1.56)
pt3dadd(35.864, 211.417, 4.998, 1.572)
pt3dadd(35.777, 211.446, 4.949, 1.59)
pt3dadd(35.721, 211.508, 4.895, 1.618)
pt3dadd(35.673, 211.534, 4.816, 1.638)
pt3dadd(35.632, 211.525, 4.714, 1.65)
pt3dadd(35.587, 211.508, 4.612, 1.634)
pt3dadd(35.538, 211.481, 4.512, 1.584)
pt3dadd(35.507, 211.459, 4.405, 1.54)
pt3dadd(35.476, 211.436, 4.299, 1.498)
pt3dadd(35.419, 211.445, 4.213, 1.436)
pt3dadd(35.347, 211.471, 4.138, 1.364)
pt3dadd(35.238, 211.459, 4.108, 1.356)
pt3dadd(35.123, 211.442, 4.084, 1.356)
pt3dadd(35.037, 211.462, 4.051, 1.378)
pt3dadd(34.991, 211.534, 4.004, 1.432)
pt3dadd(34.932, 211.603, 3.976, 1.522)
pt3dadd(34.864, 211.67, 3.964, 1.64)
pt3dadd(34.823, 211.754, 3.937, 1.714)
pt3dadd(34.781, 211.835, 3.909, 1.784)
pt3dadd(34.71, 211.89, 3.86, 1.812)
pt3dadd(34.628, 211.927, 3.822, 1.83)
pt3dadd(34.513, 211.92, 3.811, 1.82)
pt3dadd(34.399, 211.913, 3.8, 1.812)
pt3dadd(34.292, 211.928, 3.789, 1.778)
pt3dadd(34.189, 211.955, 3.778, 1.734)
pt3dadd(34.084, 211.976, 3.767, 1.652)
pt3dadd(33.976, 211.992, 3.756, 1.522)
pt3dadd(33.861, 211.97, 3.745, 1.468)
pt3dadd(33.745, 211.945, 3.734, 1.424)
pt3dadd(33.629, 211.92, 3.724, 1.38)
pt3dadd(33.513, 211.894, 3.713, 1.336)
pt3dadd(33.517, 211.866, 3.702, 1.336)
pt3dadd(33.401, 211.841, 3.691, 1.292)
pt3dadd(33.285, 211.814, 3.68, 1.25)
pt3dadd(33.169, 211.789, 3.669, 1.206)
pt3dadd(33.053, 211.762, 3.653, 1.156)
pt3dadd(32.937, 211.734, 3.637, 1.108)
pt3dadd(32.822, 211.706, 3.621, 1.058)
pt3dadd(32.706, 211.679, 3.605, 1.01)
pt3dadd(32.59, 211.651, 3.589, 0.962)
pt3dadd(32.474, 211.624, 3.573, 0.912)
pt3dadd(32.362, 211.61, 3.555, 0.868)
pt3dadd(32.256, 211.63, 3.53, 0.832)
pt3dadd(32.151, 211.649, 3.506, 0.796)
pt3dadd(32.046, 211.668, 3.481, 0.76)
pt3dadd(31.94, 211.686, 3.456, 0.724)
pt3dadd(31.832, 211.697, 3.432, 0.704)
pt3dadd(31.72, 211.697, 3.409, 0.704)
pt3dadd(31.609, 211.697, 3.385, 0.704)
pt3dadd(31.497, 211.697, 3.362, 0.704)
pt3dadd(31.385, 211.698, 3.338, 0.704)
pt3dadd(31.273, 211.697, 3.316, 0.706)
pt3dadd(31.158, 211.687, 3.299, 0.722)
pt3dadd(31.044, 211.679, 3.282, 0.74)
pt3dadd(30.93, 211.669, 3.266, 0.758)
pt3dadd(30.815, 211.66, 3.249, 0.774)
pt3dadd(30.701, 211.65, 3.233, 0.792)
pt3dadd(30.586, 211.636, 3.215, 0.81)
pt3dadd(30.471, 211.608, 3.193, 0.834)
pt3dadd(30.356, 211.58, 3.172, 0.858)
pt3dadd(30.24, 211.553, 3.15, 0.882)
pt3dadd(30.125, 211.525, 3.129, 0.906)
pt3dadd(30.01, 211.498, 3.108, 0.928)
pt3dadd(29.895, 211.47, 3.086, 0.952)
pt3dadd(29.785, 211.478, 3.067, 0.99)
pt3dadd(29.676, 211.489, 3.047, 1.028)
pt3dadd(29.567, 211.5, 3.028, 1.068)
pt3dadd(29.458, 211.511, 3.008, 1.106)
pt3dadd(29.349, 211.523, 2.989, 1.144)
pt3dadd(29.239, 211.529, 2.962, 1.196)
pt3dadd(29.129, 211.532, 2.934, 1.25)
pt3dadd(29.019, 211.536, 2.905, 1.306)
pt3dadd(28.91, 211.541, 2.877, 1.36)
pt3dadd(28.8, 211.544, 2.848, 1.414)
pt3dadd(28.688, 211.546, 2.832, 1.458)
pt3dadd(28.575, 211.546, 2.821, 1.498)
pt3dadd(28.462, 211.546, 2.81, 1.536)
pt3dadd(28.35, 211.544, 2.799, 1.574)
pt3dadd(28.237, 211.544, 2.788, 1.614)
pt3dadd(28.124, 211.544, 2.777, 1.652)
pt3dadd(28.01, 211.537, 2.766, 1.672)
pt3dadd(27.896, 211.53, 2.755, 1.688)
pt3dadd(27.781, 211.523, 2.745, 1.704)
pt3dadd(27.667, 211.516, 2.734, 1.722)
pt3dadd(27.553, 211.507, 2.723, 1.738)
pt3dadd(27.438, 211.5, 2.712, 1.754)
pt3dadd(27.327, 211.505, 2.701, 1.754)
pt3dadd(27.216, 211.513, 2.69, 1.75)
pt3dadd(27.106, 211.522, 2.679, 1.746)
pt3dadd(26.996, 211.529, 2.668, 1.74)
pt3dadd(26.885, 211.537, 2.657, 1.736)
pt3dadd(26.774, 211.546, 2.646, 1.728)
pt3dadd(26.663, 211.55, 2.635, 1.708)
pt3dadd(26.552, 211.556, 2.624, 1.686)
pt3dadd(26.448, 211.58, 2.609, 1.682)
pt3dadd(26.346, 211.608, 2.593, 1.682)
pt3dadd(26.278, 211.614, 2.524, 1.698)
pt3dadd(26.229, 211.606, 2.425, 1.724)
pt3dadd(26.153, 211.598, 2.345, 1.75)
pt3dadd(26.061, 211.591, 2.277, 1.774)
pt3dadd(25.953, 211.582, 2.248, 1.782)
pt3dadd(25.839, 211.573, 2.237, 1.782)
pt3dadd(25.724, 211.564, 2.226, 1.782)
pt3dadd(25.61, 211.554, 2.215, 1.782)
pt3dadd(25.495, 211.54, 2.203, 1.772)
pt3dadd(25.379, 211.512, 2.188, 1.738)
pt3dadd(25.263, 211.484, 2.174, 1.702)
pt3dadd(25.15, 211.464, 2.148, 1.61)
pt3dadd(25.038, 211.458, 2.119, 1.544)
pt3dadd(24.925, 211.452, 2.096, 1.526)
pt3dadd(24.812, 211.446, 2.072, 1.508)
pt3dadd(24.699, 211.441, 2.049, 1.488)
pt3dadd(24.586, 211.435, 2.026, 1.47)
pt3dadd(24.474, 211.435, 2.006, 1.456)
pt3dadd(24.367, 211.452, 1.995, 1.45)
pt3dadd(24.26, 211.47, 1.984, 1.446)
pt3dadd(24.152, 211.487, 1.973, 1.442)
pt3dadd(24.045, 211.504, 1.962, 1.436)
pt3dadd(23.938, 211.52, 1.951, 1.432)
pt3dadd(23.824, 211.514, 1.94, 1.42)
pt3dadd(23.709, 211.505, 1.929, 1.408)
pt3dadd(23.595, 211.494, 1.918, 1.396)
pt3dadd(23.48, 211.483, 1.908, 1.384)
pt3dadd(23.365, 211.474, 1.897, 1.372)
pt3dadd(23.25, 211.463, 1.886, 1.36)
pt3dadd(23.135, 211.441, 1.871, 1.338)
pt3dadd(23.019, 211.414, 1.856, 1.312)
pt3dadd(22.903, 211.386, 1.84, 1.286)
pt3dadd(22.788, 211.358, 1.824, 1.26)
pt3dadd(22.672, 211.331, 1.808, 1.234)
pt3dadd(22.556, 211.303, 1.792, 1.206)
pt3dadd(22.44, 211.276, 1.776, 1.18)
pt3dadd(22.444, 211.248, 1.765, 1.18)
pt3dadd(22.334, 211.22, 1.725, 1.14)
pt3dadd(22.223, 211.193, 1.684, 1.1)
pt3dadd(22.113, 211.165, 1.643, 1.06)
pt3dadd(22.002, 211.138, 1.602, 1.018)
pt3dadd(21.892, 211.11, 1.561, 0.978)
pt3dadd(21.779, 211.084, 1.528, 0.946)
pt3dadd(21.664, 211.057, 1.507, 0.926)
pt3dadd(21.549, 211.032, 1.485, 0.906)
pt3dadd(21.433, 211.007, 1.464, 0.886)
pt3dadd(21.318, 210.982, 1.442, 0.866)
pt3dadd(21.203, 210.956, 1.42, 0.846)
pt3dadd(21.088, 210.934, 1.397, 0.828)
pt3dadd(20.978, 210.926, 1.362, 0.828)
pt3dadd(20.867, 210.919, 1.327, 0.828)
pt3dadd(20.757, 210.914, 1.292, 0.828)
pt3dadd(20.646, 210.907, 1.258, 0.828)
pt3dadd(20.535, 210.9, 1.223, 0.828)
pt3dadd(20.421, 210.872, 1.194, 0.838)
pt3dadd(20.307, 210.845, 1.164, 0.846)
pt3dadd(20.193, 210.817, 1.135, 0.854)
pt3dadd(20.079, 210.79, 1.105, 0.862)
pt3dadd(19.966, 210.762, 1.076, 0.87)
pt3dadd(19.852, 210.734, 1.047, 0.88)
pt3dadd(19.736, 210.707, 1.034, 0.882)
pt3dadd(19.62, 210.679, 1.022, 0.886)
pt3dadd(19.504, 210.652, 1.009, 0.89)
pt3dadd(19.388, 210.624, 0.997, 0.894)
pt3dadd(19.272, 210.596, 0.984, 0.898)
pt3dadd(19.156, 210.569, 0.972, 0.9)
pt3dadd(19.04, 210.541, 0.957, 0.904)
pt3dadd(18.925, 210.514, 0.932, 0.904)
pt3dadd(18.811, 210.486, 0.907, 0.904)
pt3dadd(18.696, 210.458, 0.881, 0.904)
pt3dadd(18.581, 210.431, 0.856, 0.904)
pt3dadd(18.467, 210.403, 0.831, 0.904)
pt3dadd(18.352, 210.376, 0.805, 0.904)
pt3dadd(18.236, 210.348, 0.789, 0.918)
pt3dadd(18.12, 210.32, 0.773, 0.934)
pt3dadd(18.004, 210.293, 0.757, 0.948)
pt3dadd(17.889, 210.265, 0.742, 0.964)
pt3dadd(17.773, 210.238, 0.726, 0.978)
pt3dadd(17.657, 210.21, 0.71, 0.994)
pt3dadd(17.541, 210.182, 0.692, 1.012)
}
}
proc shape3d_54() {
dend_5[15] { pt3dadd(17.426, 210.155, 0.671, 1.036)
pt3dadd(17.311, 210.127, 0.649, 1.058)
pt3dadd(17.196, 210.1, 0.628, 1.082)
pt3dadd(17.08, 210.072, 0.607, 1.106)
pt3dadd(16.965, 210.046, 0.585, 1.13)
pt3dadd(16.85, 210.018, 0.564, 1.154)
pt3dadd(16.735, 209.99, 0.567, 1.194)
pt3dadd(16.621, 209.963, 0.573, 1.234)
pt3dadd(16.506, 209.935, 0.578, 1.276)
pt3dadd(16.392, 209.908, 0.584, 1.318)
pt3dadd(16.278, 209.88, 0.59, 1.358)
pt3dadd(16.164, 209.852, 0.595, 1.4)
pt3dadd(16.048, 209.825, 0.587, 1.428)
pt3dadd(15.932, 209.797, 0.576, 1.452)
pt3dadd(15.816, 209.77, 0.565, 1.478)
pt3dadd(15.7, 209.742, 0.554, 1.502)
pt3dadd(15.584, 209.714, 0.543, 1.528)
pt3dadd(15.468, 209.687, 0.532, 1.554)
pt3dadd(15.352, 209.659, 0.521, 1.578)
pt3dadd(15.238, 209.638, 0.525, 1.604)
pt3dadd(15.124, 209.617, 0.531, 1.63)
pt3dadd(15.01, 209.596, 0.538, 1.656)
pt3dadd(14.896, 209.575, 0.544, 1.682)
pt3dadd(14.782, 209.555, 0.55, 1.708)
pt3dadd(14.668, 209.534, 0.555, 1.734)
pt3dadd(14.553, 209.519, 0.545, 1.742)
pt3dadd(14.437, 209.504, 0.534, 1.75)
pt3dadd(14.322, 209.489, 0.523, 1.756)
pt3dadd(14.207, 209.474, 0.512, 1.764)
pt3dadd(14.091, 209.459, 0.501, 1.772)
pt3dadd(13.976, 209.444, 0.49, 1.78)
pt3dadd(13.861, 209.408, 0.479, 1.788)
pt3dadd(13.865, 209.381, 0.468, 1.788)
pt3dadd(13.751, 209.335, 0.457, 1.796)
pt3dadd(13.636, 209.291, 0.446, 1.806)
pt3dadd(13.521, 209.245, 0.435, 1.814)
pt3dadd(13.406, 209.202, 0.424, 1.822)
pt3dadd(13.292, 209.158, 0.413, 1.83)
pt3dadd(13.176, 209.12, 0.403, 1.834)
pt3dadd(13.06, 209.092, 0.392, 1.834)
pt3dadd(12.944, 209.062, 0.381, 1.834)
pt3dadd(12.828, 209.032, 0.37, 1.834)
pt3dadd(12.712, 209.003, 0.359, 1.834)
pt3dadd(12.597, 208.973, 0.348, 1.834)
pt3dadd(12.48, 208.944, 0.337, 1.834)
pt3dadd(12.366, 208.902, 0.326, 1.83)
pt3dadd(12.251, 208.855, 0.315, 1.826)
pt3dadd(12.137, 208.807, 0.304, 1.822)
pt3dadd(12.023, 208.76, 0.293, 1.818)
pt3dadd(11.908, 208.714, 0.282, 1.814)
pt3dadd(11.794, 208.666, 0.271, 1.81)
pt3dadd(11.679, 208.63, 0.261, 1.796)
pt3dadd(11.563, 208.602, 0.25, 1.774)
pt3dadd(11.447, 208.574, 0.239, 1.752)
pt3dadd(11.331, 208.547, 0.228, 1.732)
pt3dadd(11.215, 208.519, 0.217, 1.71)
pt3dadd(11.099, 208.492, 0.206, 1.688)
pt3dadd(10.983, 208.464, 0.195, 1.666)
pt3dadd(10.868, 208.426, 0.184, 1.638)
pt3dadd(10.754, 208.378, 0.173, 1.606)
pt3dadd(10.639, 208.331, 0.162, 1.572)
pt3dadd(10.525, 208.283, 0.151, 1.54)
pt3dadd(10.411, 208.236, 0.14, 1.506)
pt3dadd(10.296, 208.188, 0.129, 1.474)
pt3dadd(10.181, 208.151, 0.118, 1.438)
pt3dadd(10.065, 208.123, 0.108, 1.404)
pt3dadd(9.949, 208.096, 0.097, 1.368)
pt3dadd(9.833, 208.068, 0.086, 1.332)
pt3dadd(9.717, 208.042, 0.075, 1.296)
pt3dadd(9.601, 208.014, 0.064, 1.26)
pt3dadd(9.485, 207.986, 0.053, 1.224)
pt3dadd(9.37, 207.959, 0.05, 1.192)
pt3dadd(9.256, 207.931, 0.055, 1.162)
pt3dadd(9.142, 207.904, 0.061, 1.134)
pt3dadd(9.027, 207.876, 0.067, 1.104)
pt3dadd(8.913, 207.848, 0.072, 1.076)
pt3dadd(8.799, 207.821, 0.078, 1.046)
pt3dadd(8.685, 207.793, 0.086, 1.02)
pt3dadd(8.572, 207.766, 0.098, 0.994)
pt3dadd(8.459, 207.738, 0.11, 0.968)
pt3dadd(8.346, 207.71, 0.122, 0.942)
pt3dadd(8.234, 207.683, 0.134, 0.916)
pt3dadd(8.121, 207.655, 0.145, 0.89)
pt3dadd(8.08, 207.6, 0.133, 0.878)
}
dend_5[16] {pt3dclear()
pt3dadd(8.08, 207.6, 0.133, 0.878)
pt3dadd(8.029, 207.604, 0.146, 0.868)
pt3dadd(7.914, 207.611, 0.175, 0.846)
pt3dadd(7.8, 207.618, 0.204, 0.822)
pt3dadd(7.685, 207.625, 0.233, 0.798)
pt3dadd(7.571, 207.632, 0.262, 0.774)
pt3dadd(7.456, 207.641, 0.29, 0.75)
pt3dadd(7.337, 207.654, 0.297, 0.726)
pt3dadd(7.218, 207.668, 0.305, 0.7)
pt3dadd(7.099, 207.682, 0.312, 0.676)
pt3dadd(6.98, 207.695, 0.32, 0.65)
pt3dadd(6.861, 207.708, 0.327, 0.624)
pt3dadd(6.745, 207.72, 0.341, 0.6)
pt3dadd(6.642, 207.72, 0.393, 0.574)
pt3dadd(6.54, 207.72, 0.446, 0.55)
pt3dadd(6.438, 207.72, 0.498, 0.524)
pt3dadd(6.336, 207.72, 0.551, 0.5)
pt3dadd(6.234, 207.719, 0.603, 0.476)
pt3dadd(6.131, 207.702, 0.653, 0.454)
pt3dadd(6.029, 207.684, 0.703, 0.432)
pt3dadd(5.926, 207.667, 0.753, 0.412)
pt3dadd(5.823, 207.65, 0.802, 0.39)
pt3dadd(5.722, 207.636, 0.855, 0.37)
pt3dadd(5.622, 207.629, 0.91, 0.356)
pt3dadd(5.523, 207.62, 0.965, 0.34)
pt3dadd(5.423, 207.612, 1.02, 0.324)
pt3dadd(5.323, 207.604, 1.076, 0.308)
pt3dadd(5.218, 207.6, 1.122, 0.298)
pt3dadd(5.108, 207.6, 1.162, 0.294)
pt3dadd(4.998, 207.6, 1.202, 0.29)
pt3dadd(4.887, 207.6, 1.241, 0.284)
pt3dadd(4.777, 207.6, 1.281, 0.28)
pt3dadd(4.666, 207.6, 1.319, 0.28)
pt3dadd(4.554, 207.6, 1.354, 0.294)
pt3dadd(4.441, 207.6, 1.389, 0.308)
pt3dadd(4.329, 207.6, 1.423, 0.32)
pt3dadd(4.216, 207.6, 1.458, 0.334)
pt3dadd(4.104, 207.6, 1.493, 0.348)
pt3dadd(4.002, 207.6, 1.545, 0.388)
pt3dadd(3.904, 207.6, 1.603, 0.432)
pt3dadd(3.806, 207.6, 1.66, 0.478)
pt3dadd(3.708, 207.6, 1.718, 0.522)
pt3dadd(3.61, 207.6, 1.775, 0.568)
pt3dadd(3.497, 207.606, 1.803, 0.612)
pt3dadd(3.379, 207.612, 1.821, 0.658)
pt3dadd(3.261, 207.619, 1.839, 0.702)
pt3dadd(3.143, 207.626, 1.857, 0.748)
pt3dadd(3.025, 207.634, 1.875, 0.794)
pt3dadd(2.908, 207.647, 1.885, 0.836)
pt3dadd(2.795, 207.678, 1.867, 0.866)
pt3dadd(2.681, 207.71, 1.85, 0.894)
pt3dadd(2.567, 207.743, 1.832, 0.924)
pt3dadd(2.454, 207.774, 1.815, 0.954)
pt3dadd(2.34, 207.806, 1.8, 0.976)
pt3dadd(2.224, 207.839, 1.8, 0.954)
pt3dadd(2.109, 207.871, 1.8, 0.934)
pt3dadd(1.999, 207.92, 1.8, 0.888)
pt3dadd(1.892, 207.973, 1.8, 0.832)
pt3dadd(1.785, 208.027, 1.8, 0.786)
pt3dadd(1.677, 208.081, 1.8, 0.752)
pt3dadd(1.581, 208.147, 1.8, 0.732)
pt3dadd(1.513, 208.246, 1.8, 0.744)
pt3dadd(1.448, 208.345, 1.795, 0.756)
pt3dadd(1.4, 208.445, 1.756, 0.772)
pt3dadd(1.353, 208.544, 1.716, 0.788)
pt3dadd(1.304, 208.642, 1.675, 0.804)
pt3dadd(1.228, 208.662, 1.6, 0.804)
pt3dadd(1.151, 208.686, 1.527, 0.802)
pt3dadd(1.066, 208.736, 1.47, 0.792)
pt3dadd(0.981, 208.788, 1.414, 0.782)
pt3dadd(0.955, 208.879, 1.365, 0.77)
pt3dadd(0.949, 208.986, 1.318, 0.758)
pt3dadd(0.883, 209.058, 1.284, 0.754)
pt3dadd(0.78, 209.111, 1.258, 0.754)
pt3dadd(0.676, 209.161, 1.233, 0.754)
pt3dadd(0.559, 209.184, 1.218, 0.754)
pt3dadd(0.443, 209.207, 1.204, 0.754)
pt3dadd(0.372, 209.286, 1.173, 0.768)
pt3dadd(0.318, 209.383, 1.137, 0.79)
pt3dadd(0.261, 209.482, 1.104, 0.82)
pt3dadd(0.198, 209.58, 1.081, 0.872)
pt3dadd(0.134, 209.659, 1.039, 0.916)
pt3dadd(0.066, 209.711, 0.969, 0.948)
pt3dadd(-0.002, 209.76, 0.897, 0.978)
pt3dadd(-0.055, 209.76, 0.808, 0.956)
pt3dadd(-0.109, 209.76, 0.719, 0.934)
pt3dadd(-0.209, 209.771, 0.672, 0.88)
pt3dadd(-0.32, 209.785, 0.637, 0.82)
pt3dadd(-0.432, 209.798, 0.603, 0.758)
pt3dadd(-0.54, 209.849, 0.6, 0.692)
pt3dadd(-0.647, 209.903, 0.6, 0.624)
pt3dadd(-0.731, 209.975, 0.571, 0.588)
pt3dadd(-0.805, 210.054, 0.528, 0.566)
pt3dadd(-0.871, 210.136, 0.481, 0.558)
pt3dadd(-0.924, 210.218, 0.424, 0.572)
pt3dadd(-0.955, 210.323, 0.4, 0.594)
pt3dadd(-1.002, 210.43, 0.388, 0.602)
pt3dadd(-1.062, 210.53, 0.371, 0.602)
pt3dadd(-1.123, 210.632, 0.355, 0.602)
pt3dadd(-1.184, 210.733, 0.338, 0.602)
pt3dadd(-1.244, 210.835, 0.32, 0.602)
pt3dadd(-1.302, 210.935, 0.292, 0.602)
pt3dadd(-1.359, 211.036, 0.264, 0.602)
pt3dadd(-1.417, 211.135, 0.237, 0.602)
pt3dadd(-1.474, 211.235, 0.209, 0.602)
pt3dadd(-1.546, 211.328, 0.2, 0.602)
pt3dadd(-1.624, 211.42, 0.2, 0.602)
pt3dadd(-1.702, 211.511, 0.2, 0.602)
pt3dadd(-1.78, 211.602, 0.2, 0.602)
pt3dadd(-1.858, 211.693, 0.2, 0.602)
pt3dadd(-1.927, 211.792, 0.2, 0.602)
pt3dadd(-1.993, 211.891, 0.2, 0.602)
pt3dadd(-2.059, 211.992, 0.2, 0.602)
pt3dadd(-2.124, 212.093, 0.2, 0.602)
pt3dadd(-2.19, 212.192, 0.2, 0.602)
pt3dadd(-2.279, 212.27, 0.2, 0.606)
}
}
proc shape3d_55() {
dend_5[16] { pt3dadd(-2.379, 212.336, 0.2, 0.61)
pt3dadd(-2.479, 212.402, 0.2, 0.616)
pt3dadd(-2.58, 212.467, 0.2, 0.62)
pt3dadd(-2.68, 212.533, 0.2, 0.626)
pt3dadd(-2.782, 212.597, 0.2, 0.634)
pt3dadd(-2.884, 212.66, 0.2, 0.644)
pt3dadd(-2.986, 212.723, 0.2, 0.654)
pt3dadd(-3.088, 212.786, 0.2, 0.664)
pt3dadd(-3.19, 212.849, 0.2, 0.674)
pt3dadd(-3.295, 212.908, 0.2, 0.686)
pt3dadd(-3.402, 212.962, 0.2, 0.7)
pt3dadd(-3.51, 213.014, 0.2, 0.714)
pt3dadd(-3.617, 213.068, 0.2, 0.728)
pt3dadd(-3.725, 213.121, 0.2, 0.744)
pt3dadd(-3.824, 213.186, 0.2, 0.756)
pt3dadd(-3.905, 213.275, 0.2, 0.766)
pt3dadd(-3.985, 213.364, 0.2, 0.776)
pt3dadd(-4.066, 213.452, 0.2, 0.786)
pt3dadd(-4.147, 213.541, 0.2, 0.796)
pt3dadd(-4.233, 213.624, 0.2, 0.802)
pt3dadd(-4.329, 213.696, 0.2, 0.796)
pt3dadd(-4.425, 213.768, 0.2, 0.792)
pt3dadd(-4.521, 213.84, 0.2, 0.786)
pt3dadd(-4.617, 213.912, 0.2, 0.782)
pt3dadd(-4.716, 213.979, 0.2, 0.772)
pt3dadd(-4.822, 214.036, 0.2, 0.752)
pt3dadd(-4.927, 214.092, 0.2, 0.732)
pt3dadd(-5.033, 214.148, 0.2, 0.714)
pt3dadd(-5.139, 214.206, 0.2, 0.694)
pt3dadd(-5.244, 214.262, 0.2, 0.674)
pt3dadd(-5.349, 214.322, 0.2, 0.65)
pt3dadd(-5.452, 214.382, 0.2, 0.624)
pt3dadd(-5.556, 214.442, 0.2, 0.6)
pt3dadd(-5.66, 214.502, 0.2, 0.576)
pt3dadd(-5.763, 214.564, 0.2, 0.552)
pt3dadd(-5.839, 214.656, 0.193, 0.536)
pt3dadd(-5.915, 214.75, 0.186, 0.52)
pt3dadd(-5.99, 214.842, 0.179, 0.504)
pt3dadd(-6.066, 214.934, 0.172, 0.488)
pt3dadd(-6.126, 215.029, 0.152, 0.466)
pt3dadd(-6.159, 215.134, 0.111, 0.452)
pt3dadd(-6.217, 215.228, 0.075, 0.508)
pt3dadd(-6.261, 215.323, 0.03, 0.618)
pt3dadd(-6.345, 215.389, 0.043, 0.678)
pt3dadd(-6.428, 215.411, 0.112, 0.678)
pt3dadd(-6.503, 215.458, 0.176, 0.688)
pt3dadd(-6.607, 215.504, 0.199, 0.75)
pt3dadd(-6.726, 215.52, 0.2, 0.776)
pt3dadd(-6.845, 215.524, 0.2, 0.752)
pt3dadd(-6.943, 215.593, 0.2, 0.738)
pt3dadd(-7.041, 215.662, 0.2, 0.722)
pt3dadd(-7.14, 215.731, 0.2, 0.708)
pt3dadd(-7.238, 215.8, 0.2, 0.692)
pt3dadd(-7.335, 215.869, 0.2, 0.678)
pt3dadd(-7.403, 215.969, 0.2, 0.666)
pt3dadd(-7.471, 216.067, 0.2, 0.654)
pt3dadd(-7.556, 216.151, 0.2, 0.652)
pt3dadd(-7.644, 216.233, 0.2, 0.652)
pt3dadd(-7.717, 216.328, 0.2, 0.644)
pt3dadd(-7.785, 216.426, 0.2, 0.632)
pt3dadd(-7.884, 216.473, 0.2, 0.612)
pt3dadd(-8.003, 216.482, 0.2, 0.584)
pt3dadd(-8.123, 216.491, 0.2, 0.558)
pt3dadd(-8.233, 216.536, 0.2, 0.498)
pt3dadd(-8.334, 216.599, 0.2, 0.45)
pt3dadd(-8.423, 216.679, 0.2, 0.446)
pt3dadd(-8.512, 216.76, 0.2, 0.44)
pt3dadd(-8.601, 216.84, 0.2, 0.436)
pt3dadd(-8.69, 216.922, 0.2, 0.43)
pt3dadd(-8.779, 217.001, 0.2, 0.428)
pt3dadd(-8.871, 217.079, 0.2, 0.434)
pt3dadd(-8.962, 217.157, 0.2, 0.438)
pt3dadd(-9.053, 217.235, 0.2, 0.444)
pt3dadd(-9.145, 217.312, 0.2, 0.448)
pt3dadd(-9.226, 217.399, 0.2, 0.458)
pt3dadd(-9.292, 217.499, 0.2, 0.472)
pt3dadd(-9.357, 217.6, 0.2, 0.488)
pt3dadd(-9.423, 217.7, 0.2, 0.502)
pt3dadd(-9.489, 217.8, 0.2, 0.518)
pt3dadd(-9.565, 217.889, 0.192, 0.532)
pt3dadd(-9.661, 217.955, 0.17, 0.55)
pt3dadd(-9.758, 218.022, 0.147, 0.568)
pt3dadd(-9.854, 218.088, 0.125, 0.584)
pt3dadd(-9.951, 218.154, 0.102, 0.602)
pt3dadd(-10.058, 218.206, 0.1, 0.612)
pt3dadd(-10.167, 218.256, 0.1, 0.62)
pt3dadd(-10.276, 218.306, 0.1, 0.63)
pt3dadd(-10.385, 218.357, 0.1, 0.64)
pt3dadd(-10.494, 218.408, 0.1, 0.65)
pt3dadd(-10.577, 218.489, 0.1, 0.656)
pt3dadd(-10.646, 218.587, 0.1, 0.662)
pt3dadd(-10.715, 218.684, 0.1, 0.666)
pt3dadd(-10.784, 218.783, 0.1, 0.67)
pt3dadd(-10.853, 218.881, 0.1, 0.676)
pt3dadd(-10.937, 218.965, 0.1, 0.678)
pt3dadd(-11.031, 219.04, 0.1, 0.678)
pt3dadd(-11.125, 219.115, 0.1, 0.678)
pt3dadd(-11.219, 219.19, 0.1, 0.678)
pt3dadd(-11.312, 219.265, 0.1, 0.678)
pt3dadd(-11.402, 219.344, 0.1, 0.686)
pt3dadd(-11.49, 219.426, 0.1, 0.698)
pt3dadd(-11.592, 219.48, 0.1, 0.718)
pt3dadd(-11.709, 219.506, 0.1, 0.748)
pt3dadd(-11.827, 219.533, 0.1, 0.778)
pt3dadd(-11.866, 219.646, 0.1, 0.842)
pt3dadd(-11.905, 219.76, 0.1, 0.906)
pt3dadd(-11.954, 219.869, 0.1, 0.964)
pt3dadd(-12.007, 219.976, 0.1, 1.022)
pt3dadd(-12.057, 220.085, 0.1, 1.068)
pt3dadd(-12.1, 220.196, 0.1, 1.1)
pt3dadd(-12.171, 220.294, 0.1, 1.092)
pt3dadd(-12.246, 220.387, 0.1, 1.076)
pt3dadd(-12.321, 220.481, 0.1, 1.062)
pt3dadd(-12.396, 220.574, 0.1, 1.046)
pt3dadd(-12.471, 220.668, 0.1, 1.032)
pt3dadd(-12.56, 220.748, 0.1, 1.016)
pt3dadd(-12.651, 220.826, 0.1, 1.002)
pt3dadd(-12.743, 220.903, 0.1, 0.986)
pt3dadd(-12.834, 220.981, 0.1, 0.97)
pt3dadd(-12.925, 221.059, 0.1, 0.956)
pt3dadd(-13.025, 221.126, 0.1, 0.954)
pt3dadd(-13.125, 221.192, 0.1, 0.954)
pt3dadd(-13.225, 221.258, 0.1, 0.954)
pt3dadd(-13.325, 221.324, 0.1, 0.954)
pt3dadd(-13.425, 221.39, 0.1, 0.954)
pt3dadd(-13.504, 221.48, 0.1, 0.958)
pt3dadd(-13.579, 221.574, 0.1, 0.964)
pt3dadd(-13.654, 221.668, 0.1, 0.968)
pt3dadd(-13.729, 221.761, 0.1, 0.974)
pt3dadd(-13.804, 221.855, 0.1, 0.978)
pt3dadd(-13.904, 221.918, 0.1, 0.98)
pt3dadd(-14.008, 221.978, 0.1, 0.98)
pt3dadd(-14.112, 222.038, 0.1, 0.98)
pt3dadd(-14.217, 222.098, 0.1, 0.98)
pt3dadd(-14.321, 222.157, 0.1, 0.98)
pt3dadd(-14.411, 222.235, 0.1, 0.96)
pt3dadd(-14.497, 222.319, 0.1, 0.934)
pt3dadd(-14.583, 222.402, 0.1, 0.91)
pt3dadd(-14.67, 222.486, 0.1, 0.884)
pt3dadd(-14.756, 222.57, 0.1, 0.86)
pt3dadd(-14.859, 222.63, 0.1, 0.838)
pt3dadd(-14.966, 222.683, 0.1, 0.82)
pt3dadd(-15.073, 222.737, 0.1, 0.8)
pt3dadd(-15.181, 222.79, 0.1, 0.78)
pt3dadd(-15.288, 222.844, 0.1, 0.762)
pt3dadd(-15.399, 222.889, 0.1, 0.722)
pt3dadd(-15.512, 222.929, 0.1, 0.67)
pt3dadd(-15.627, 222.961, 0.1, 0.622)
pt3dadd(-15.747, 222.966, 0.1, 0.596)
pt3dadd(-15.867, 222.97, 0.1, 0.57)
pt3dadd(-15.974, 223.002, 0.1, 0.536)
pt3dadd(-16.055, 223.091, 0.1, 0.49)
pt3dadd(-16.137, 223.177, 0.096, 0.452)
pt3dadd(-16.221, 223.261, 0.079, 0.452)
pt3dadd(-16.293, 223.349, 0.054, 0.464)
pt3dadd(-16.339, 223.444, 0.008, 0.504)
pt3dadd(-16.423, 223.506, -0.041, 0.528)
pt3dadd(-16.508, 223.567, -0.09, 0.552)
pt3dadd(-16.593, 223.63, -0.139, 0.578)
pt3dadd(-16.677, 223.691, -0.187, 0.602)
pt3dadd(-16.773, 223.762, -0.194, 0.65)
pt3dadd(-16.87, 223.832, -0.199, 0.698)
pt3dadd(-16.935, 223.931, -0.215, 0.748)
pt3dadd(-16.996, 224.032, -0.232, 0.8)
pt3dadd(-17.088, 224.094, -0.267, 0.842)
pt3dadd(-17.185, 224.148, -0.3, 0.878)
pt3dadd(-17.305, 224.158, -0.3, 0.868)
pt3dadd(-17.424, 224.167, -0.3, 0.86)
pt3dadd(-17.542, 224.186, -0.3, 0.838)
pt3dadd(-17.654, 224.231, -0.3, 0.79)
pt3dadd(-17.759, 224.286, -0.3, 0.768)
pt3dadd(-17.864, 224.346, -0.3, 0.752)
pt3dadd(-17.968, 224.406, -0.3, 0.738)
pt3dadd(-18.072, 224.465, -0.3, 0.722)
pt3dadd(-18.176, 224.525, -0.3, 0.708)
pt3dadd(-18.264, 224.6, -0.315, 0.7)
pt3dadd(-18.344, 224.687, -0.338, 0.694)
pt3dadd(-18.423, 224.772, -0.361, 0.688)
pt3dadd(-18.503, 224.857, -0.383, 0.682)
pt3dadd(-18.577, 224.948, -0.4, 0.678)
pt3dadd(-18.638, 225.052, -0.4, 0.678)
pt3dadd(-18.702, 225.151, -0.4, 0.678)
pt3dadd(-18.806, 225.212, -0.4, 0.678)
pt3dadd(-18.909, 225.274, -0.4, 0.678)
pt3dadd(-19.023, 225.311, -0.404, 0.678)
pt3dadd(-19.138, 225.346, -0.409, 0.678)
pt3dadd(-19.237, 225.36, -0.45, 0.678)
pt3dadd(-19.325, 225.36, -0.518, 0.678)
pt3dadd(-19.425, 225.374, -0.561, 0.676)
pt3dadd(-19.539, 225.407, -0.573, 0.668)
pt3dadd(-19.654, 225.439, -0.585, 0.662)
pt3dadd(-19.769, 225.472, -0.597, 0.654)
pt3dadd(-19.878, 225.52, -0.6, 0.636)
pt3dadd(-19.985, 225.572, -0.6, 0.614)
pt3dadd(-20.079, 225.644, -0.6, 0.594)
pt3dadd(-20.159, 225.733, -0.6, 0.576)
pt3dadd(-20.239, 225.823, -0.6, 0.558)
pt3dadd(-20.273, 225.932, -0.6, 0.546)
pt3dadd(-20.283, 226.051, -0.6, 0.538)
pt3dadd(-20.292, 226.171, -0.6, 0.528)
}
}
proc shape3d_56() {
dend_5[16] { pt3dadd(-20.375, 226.252, -0.6, 0.534)
pt3dadd(-20.468, 226.327, -0.6, 0.544)
pt3dadd(-20.562, 226.402, -0.6, 0.554)
pt3dadd(-20.666, 226.463, -0.6, 0.588)
pt3dadd(-20.769, 226.524, -0.6, 0.622)
pt3dadd(-20.863, 226.597, -0.6, 0.73)
pt3dadd(-20.938, 226.692, -0.6, 0.736)
pt3dadd(-21.012, 226.786, -0.6, 0.744)
pt3dadd(-21.087, 226.879, -0.6, 0.752)
pt3dadd(-21.162, 226.973, -0.6, 0.76)
pt3dadd(-21.237, 227.066, -0.6, 0.768)
pt3dadd(-21.312, 227.16, -0.6, 0.774)
pt3dadd(-21.387, 227.254, -0.6, 0.782)
pt3dadd(-21.462, 227.347, -0.6, 0.79)
pt3dadd(-21.537, 227.441, -0.6, 0.798)
pt3dadd(-21.618, 227.527, -0.6, 0.802)
pt3dadd(-21.729, 227.573, -0.598, 0.798)
pt3dadd(-21.84, 227.618, -0.595, 0.794)
pt3dadd(-21.951, 227.664, -0.593, 0.788)
pt3dadd(-22.062, 227.708, -0.591, 0.784)
pt3dadd(-22.173, 227.754, -0.589, 0.78)
pt3dadd(-22.286, 227.76, -0.56, 0.76)
pt3dadd(-22.399, 227.76, -0.527, 0.738)
pt3dadd(-22.515, 227.768, -0.509, 0.724)
pt3dadd(-22.634, 227.783, -0.505, 0.714)
pt3dadd(-22.753, 227.798, -0.5, 0.704)
pt3dadd(-22.838, 227.87, -0.465, 0.73)
pt3dadd(-22.915, 227.95, -0.431, 0.76)
pt3dadd(-22.968, 228.055, -0.414, 0.796)
pt3dadd(-23.03, 228.15, -0.4, 0.83)
pt3dadd(-23.148, 228.172, -0.4, 0.842)
pt3dadd(-23.266, 228.193, -0.4, 0.854)
pt3dadd(-23.384, 228.215, -0.4, 0.866)
pt3dadd(-23.502, 228.236, -0.4, 0.878)
pt3dadd(-23.622, 228.24, -0.4, 0.886)
pt3dadd(-23.742, 228.24, -0.4, 0.894)
pt3dadd(-23.862, 228.24, -0.4, 0.902)
pt3dadd(-23.971, 228.286, -0.4, 0.912)
pt3dadd(-24.079, 228.34, -0.4, 0.92)
pt3dadd(-24.186, 228.392, -0.4, 0.928)
pt3dadd(-24.253, 228.49, -0.4, 0.948)
pt3dadd(-24.314, 228.593, -0.4, 0.972)
pt3dadd(-24.41, 228.652, -0.392, 0.992)
pt3dadd(-24.524, 228.688, -0.381, 1.008)
pt3dadd(-24.637, 228.724, -0.37, 1.026)
pt3dadd(-24.741, 228.77, -0.34, 1.04)
pt3dadd(-24.841, 228.821, -0.304, 1.054)
pt3dadd(-24.954, 228.858, -0.3, 1.056)
pt3dadd(-25.057, 228.918, -0.3, 1.066)
pt3dadd(-25.161, 228.979, -0.3, 1.078)
pt3dadd(-25.239, 229.058, -0.267, 1.08)
pt3dadd(-25.307, 229.145, -0.232, 1.08)
pt3dadd(-25.312, 229.264, -0.219, 1.08)
pt3dadd(-25.317, 229.382, -0.206, 1.08)
pt3dadd(-25.32, 229.502, -0.2, 1.08)
pt3dadd(-25.32, 229.622, -0.2, 1.08)
pt3dadd(-25.32, 229.742, -0.2, 1.08)
pt3dadd(-25.337, 229.86, -0.2, 1.096)
pt3dadd(-25.37, 229.975, -0.2, 1.126)
pt3dadd(-25.43, 230.078, -0.2, 1.138)
pt3dadd(-25.492, 230.18, -0.2, 1.148)
pt3dadd(-25.555, 230.282, -0.2, 1.158)
pt3dadd(-25.618, 230.386, -0.2, 1.168)
pt3dadd(-25.681, 230.488, -0.2, 1.178)
pt3dadd(-25.763, 230.574, -0.2, 1.176)
pt3dadd(-25.849, 230.658, -0.2, 1.17)
pt3dadd(-25.936, 230.741, -0.2, 1.166)
pt3dadd(-26.022, 230.825, -0.2, 1.16)
pt3dadd(-26.108, 230.908, -0.2, 1.156)
pt3dadd(-26.217, 230.954, -0.2, 1.118)
pt3dadd(-26.331, 230.994, -0.2, 1.076)
pt3dadd(-26.439, 231.044, -0.2, 1.02)
pt3dadd(-26.543, 231.104, -0.2, 0.952)
pt3dadd(-26.633, 231.179, -0.2, 0.886)
pt3dadd(-26.693, 231.282, -0.2, 0.828)
pt3dadd(-26.752, 231.386, -0.2, 0.776)
pt3dadd(-26.799, 231.497, -0.2, 0.754)
pt3dadd(-26.846, 231.608, -0.2, 0.732)
pt3dadd(-26.924, 231.697, -0.2, 0.728)
pt3dadd(-26.992, 231.793, -0.2, 0.728)
pt3dadd(-27.037, 231.905, -0.2, 0.728)
pt3dadd(-27.081, 232.016, -0.2, 0.728)
pt3dadd(-27.126, 232.127, -0.2, 0.728)
pt3dadd(-27.17, 232.238, -0.2, 0.728)
pt3dadd(-27.215, 232.35, -0.2, 0.728)
pt3dadd(-27.262, 232.46, -0.207, 0.718)
pt3dadd(-27.309, 232.571, -0.213, 0.708)
pt3dadd(-27.356, 232.68, -0.22, 0.698)
pt3dadd(-27.404, 232.79, -0.226, 0.688)
pt3dadd(-27.451, 232.901, -0.233, 0.678)
pt3dadd(-27.555, 232.938, -0.265, 0.666)
pt3dadd(-27.663, 232.972, -0.299, 0.654)
pt3dadd(-27.732, 233.069, -0.3, 0.676)
pt3dadd(-27.8, 233.167, -0.3, 0.698)
pt3dadd(-27.862, 233.27, -0.3, 0.758)
pt3dadd(-27.923, 233.374, -0.3, 0.828)
pt3dadd(-27.953, 233.486, -0.3, 0.892)
pt3dadd(-27.962, 233.606, -0.3, 0.956)
pt3dadd(-27.972, 233.726, -0.3, 1.018)
pt3dadd(-28.068, 233.777, -0.3, 1.06)
pt3dadd(-28.182, 233.814, -0.3, 1.098)
pt3dadd(-28.296, 233.851, -0.3, 1.136)
pt3dadd(-28.41, 233.888, -0.3, 1.174)
pt3dadd(-28.515, 233.945, -0.3, 1.19)
pt3dadd(-28.619, 234.006, -0.3, 1.202)
pt3dadd(-28.715, 234.077, -0.3, 1.136)
pt3dadd(-28.832, 234.1, -0.3, 1.094)
pt3dadd(-28.95, 234.12, -0.3, 1.054)
pt3dadd(-29.058, 234.162, -0.3, 1.016)
pt3dadd(-29.146, 234.244, -0.3, 0.982)
pt3dadd(-29.233, 234.326, -0.301, 0.948)
pt3dadd(-29.318, 234.412, -0.307, 0.924)
pt3dadd(-29.389, 234.496, -0.325, 0.894)
pt3dadd(-29.403, 234.576, -0.398, 0.844)
pt3dadd(-29.428, 234.66, -0.458, 0.8)
pt3dadd(-29.496, 234.757, -0.472, 0.786)
pt3dadd(-29.565, 234.854, -0.485, 0.77)
pt3dadd(-29.634, 234.952, -0.499, 0.754)
pt3dadd(-29.64, 235.069, -0.5, 0.754)
pt3dadd(-29.64, 235.189, -0.5, 0.754)
pt3dadd(-29.64, 235.309, -0.5, 0.754)
pt3dadd(-29.717, 235.397, -0.5, 0.77)
pt3dadd(-29.802, 235.482, -0.5, 0.788)
pt3dadd(-29.888, 235.565, -0.5, 0.804)
pt3dadd(-29.992, 235.626, -0.5, 0.816)
pt3dadd(-30.095, 235.686, -0.5, 0.828)
pt3dadd(-30.141, 235.793, -0.5, 0.828)
pt3dadd(-30.234, 235.867, -0.5, 0.828)
pt3dadd(-30.328, 235.943, -0.5, 0.828)
pt3dadd(-30.422, 236.017, -0.5, 0.828)
pt3dadd(-30.516, 236.093, -0.5, 0.828)
pt3dadd(-30.606, 236.17, -0.5, 0.828)
pt3dadd(-30.669, 236.273, -0.5, 0.824)
pt3dadd(-30.732, 236.375, -0.5, 0.818)
pt3dadd(-30.795, 236.477, -0.5, 0.814)
pt3dadd(-30.858, 236.579, -0.5, 0.808)
pt3dadd(-30.921, 236.681, -0.5, 0.804)
pt3dadd(-30.974, 236.789, -0.5, 0.788)
pt3dadd(-31.028, 236.896, -0.5, 0.774)
pt3dadd(-31.082, 237.004, -0.5, 0.76)
pt3dadd(-31.135, 237.11, -0.5, 0.746)
pt3dadd(-31.189, 237.218, -0.5, 0.732)
pt3dadd(-31.216, 237.334, -0.5, 0.69)
pt3dadd(-31.237, 237.452, -0.5, 0.642)
pt3dadd(-31.275, 237.557, -0.5, 0.592)
pt3dadd(-31.386, 237.602, -0.5, 0.536)
pt3dadd(-31.497, 237.648, -0.5, 0.482)
pt3dadd(-31.528, 237.758, -0.513, 0.448)
pt3dadd(-31.551, 237.875, -0.528, 0.414)
pt3dadd(-31.56, 237.991, -0.55, 0.408)
pt3dadd(-31.56, 238.106, -0.578, 0.418)
pt3dadd(-31.564, 238.222, -0.6, 0.436)
pt3dadd(-31.588, 238.339, -0.6, 0.48)
pt3dadd(-31.62, 238.453, -0.61, 0.516)
pt3dadd(-31.662, 238.562, -0.631, 0.542)
pt3dadd(-31.705, 238.673, -0.652, 0.568)
pt3dadd(-31.747, 238.782, -0.673, 0.594)
pt3dadd(-31.789, 238.891, -0.695, 0.62)
pt3dadd(-31.844, 238.996, -0.711, 0.64)
pt3dadd(-31.904, 239.098, -0.725, 0.656)
pt3dadd(-31.964, 239.201, -0.739, 0.672)
pt3dadd(-32.024, 239.303, -0.753, 0.688)
pt3dadd(-32.085, 239.405, -0.767, 0.704)
pt3dadd(-32.178, 239.48, -0.774, 0.714)
pt3dadd(-32.271, 239.556, -0.781, 0.724)
pt3dadd(-32.363, 239.632, -0.788, 0.736)
pt3dadd(-32.456, 239.707, -0.795, 0.746)
pt3dadd(-32.553, 239.777, -0.8, 0.754)
pt3dadd(-32.661, 239.831, -0.8, 0.754)
pt3dadd(-32.765, 239.887, -0.8, 0.756)
pt3dadd(-32.833, 239.986, -0.8, 0.778)
pt3dadd(-32.901, 240.085, -0.8, 0.802)
pt3dadd(-32.981, 240.174, -0.8, 0.846)
pt3dadd(-33.063, 240.262, -0.8, 0.894)
pt3dadd(-33.092, 240.374, -0.8, 0.934)
pt3dadd(-33.107, 240.493, -0.8, 0.97)
pt3dadd(-33.12, 240.612, -0.8, 1.004)
pt3dadd(-33.12, 240.732, -0.8, 1.004)
pt3dadd(-33.125, 240.851, -0.802, 1.002)
pt3dadd(-33.177, 240.956, -0.821, 0.986)
pt3dadd(-33.228, 241.063, -0.84, 0.97)
pt3dadd(-33.28, 241.169, -0.859, 0.954)
pt3dadd(-33.332, 241.274, -0.878, 0.938)
pt3dadd(-33.371, 241.385, -0.899, 0.922)
pt3dadd(-33.394, 241.499, -0.92, 0.908)
pt3dadd(-33.417, 241.614, -0.942, 0.894)
pt3dadd(-33.441, 241.729, -0.964, 0.878)
pt3dadd(-33.464, 241.843, -0.986, 0.864)
pt3dadd(-33.482, 241.96, -1, 0.854)
pt3dadd(-33.486, 242.08, -1, 0.854)
pt3dadd(-33.491, 242.2, -1, 0.854)
pt3dadd(-33.517, 242.314, -1.007, 0.848)
pt3dadd(-33.57, 242.419, -1.024, 0.836)
pt3dadd(-33.647, 242.491, -1.047, 0.808)
pt3dadd(-33.757, 242.518, -1.08, 0.758)
pt3dadd(-33.857, 242.566, -1.1, 0.702)
pt3dadd(-33.939, 242.654, -1.1, 0.63)
pt3dadd(-34.005, 242.749, -1.1, 0.574)
pt3dadd(-34.027, 242.868, -1.1, 0.556)
pt3dadd(-34.049, 242.986, -1.1, 0.538)
}
}
proc shape3d_57() {
dend_5[16] { pt3dadd(-34.071, 243.103, -1.1, 0.52)
pt3dadd(-34.092, 243.222, -1.1, 0.502)
pt3dadd(-34.131, 243.335, -1.1, 0.532)
pt3dadd(-34.171, 243.449, -1.1, 0.564)
pt3dadd(-34.196, 243.565, -1.1, 0.68)
pt3dadd(-34.2, 243.684, -1.107, 0.744)
pt3dadd(-34.2, 243.804, -1.118, 0.768)
pt3dadd(-34.2, 243.923, -1.128, 0.792)
pt3dadd(-34.2, 244.043, -1.139, 0.816)
pt3dadd(-34.2, 244.162, -1.149, 0.84)
pt3dadd(-34.2, 244.282, -1.16, 0.864)
pt3dadd(-34.216, 244.397, -1.169, 0.882)
pt3dadd(-34.263, 244.507, -1.176, 0.892)
pt3dadd(-34.31, 244.618, -1.182, 0.902)
pt3dadd(-34.358, 244.728, -1.189, 0.912)
pt3dadd(-34.405, 244.837, -1.195, 0.922)
pt3dadd(-34.467, 244.933, -1.2, 0.924)
pt3dadd(-34.574, 244.987, -1.2, 0.902)
pt3dadd(-34.681, 245.041, -1.201, 0.878)
pt3dadd(-34.74, 245.136, -1.237, 0.822)
pt3dadd(-34.788, 245.233, -1.276, 0.77)
pt3dadd(-34.794, 245.34, -1.323, 0.722)
pt3dadd(-34.802, 245.446, -1.369, 0.676)
pt3dadd(-34.844, 245.55, -1.403, 0.636)
pt3dadd(-34.886, 245.65, -1.444, 0.592)
pt3dadd(-34.931, 245.717, -1.518, 0.508)
pt3dadd(-34.976, 245.79, -1.587, 0.486)
pt3dadd(-35.02, 245.863, -1.657, 0.468)
pt3dadd(-35.065, 245.936, -1.726, 0.45)
pt3dadd(-35.11, 246.011, -1.796, 0.43)
pt3dadd(-35.156, 246.104, -1.843, 0.418)
pt3dadd(-35.203, 246.203, -1.885, 0.406)
pt3dadd(-35.249, 246.302, -1.926, 0.394)
pt3dadd(-35.295, 246.401, -1.967, 0.382)
pt3dadd(-35.345, 246.502, -2, 0.38)
pt3dadd(-35.398, 246.606, -2.025, 0.384)
pt3dadd(-35.451, 246.709, -2.05, 0.39)
pt3dadd(-35.504, 246.812, -2.074, 0.396)
pt3dadd(-35.558, 246.916, -2.099, 0.402)
pt3dadd(-35.632, 247.002, -2.13, 0.408)
pt3dadd(-35.708, 247.087, -2.162, 0.414)
pt3dadd(-35.784, 247.172, -2.193, 0.42)
pt3dadd(-35.859, 247.258, -2.225, 0.426)
pt3dadd(-35.92, 247.3, -2.296, 0.436)
pt3dadd(-35.975, 247.327, -2.382, 0.45)
pt3dadd(-36.047, 247.381, -2.445, 0.452)
pt3dadd(-36.125, 247.444, -2.5, 0.452)
pt3dadd(-36.224, 247.511, -2.5, 0.464)
pt3dadd(-36.323, 247.579, -2.5, 0.476)
pt3dadd(-36.401, 247.667, -2.515, 0.488)
pt3dadd(-36.477, 247.757, -2.533, 0.502)
pt3dadd(-36.558, 247.826, -2.579, 0.564)
pt3dadd(-36.655, 247.891, -2.593, 0.596)
pt3dadd(-36.757, 247.954, -2.598, 0.62)
pt3dadd(-36.844, 248.035, -2.6, 0.652)
pt3dadd(-36.926, 248.123, -2.6, 0.688)
pt3dadd(-37.014, 248.203, -2.6, 0.704)
pt3dadd(-37.108, 248.278, -2.6, 0.704)
pt3dadd(-37.167, 248.372, -2.606, 0.704)
pt3dadd(-37.184, 248.49, -2.62, 0.704)
pt3dadd(-37.2, 248.606, -2.637, 0.704)
pt3dadd(-37.2, 248.7, -2.7, 0.722)
pt3dadd(-37.217, 248.802, -2.748, 0.738)
pt3dadd(-37.242, 248.908, -2.789, 0.754)
pt3dadd(-37.268, 249.014, -2.83, 0.772)
pt3dadd(-37.294, 249.121, -2.871, 0.788)
pt3dadd(-37.32, 249.227, -2.911, 0.804)
pt3dadd(-37.346, 249.343, -2.928, 0.818)
pt3dadd(-37.371, 249.458, -2.945, 0.832)
pt3dadd(-37.397, 249.574, -2.963, 0.848)
pt3dadd(-37.423, 249.689, -2.98, 0.862)
pt3dadd(-37.448, 249.804, -2.997, 0.876)
pt3dadd(-37.509, 249.906, -3, 0.878)
pt3dadd(-37.578, 250.004, -3, 0.878)
pt3dadd(-37.647, 250.103, -3, 0.878)
pt3dadd(-37.716, 250.2, -3, 0.878)
pt3dadd(-37.785, 250.298, -3, 0.878)
pt3dadd(-37.817, 250.412, -3, 0.872)
pt3dadd(-37.84, 250.53, -3, 0.864)
pt3dadd(-37.862, 250.648, -3, 0.856)
pt3dadd(-37.884, 250.766, -3, 0.848)
pt3dadd(-37.906, 250.884, -3, 0.838)
pt3dadd(-37.929, 251.002, -3, 0.83)
pt3dadd(-37.953, 251.119, -3, 0.818)
pt3dadd(-37.978, 251.237, -3, 0.806)
pt3dadd(-38.003, 251.354, -3, 0.794)
pt3dadd(-38.027, 251.472, -3, 0.78)
pt3dadd(-38.052, 251.59, -3, 0.768)
pt3dadd(-38.077, 251.706, -3, 0.754)
pt3dadd(-38.121, 251.808, -3.036, 0.744)
pt3dadd(-38.167, 251.906, -3.078, 0.732)
pt3dadd(-38.214, 252.006, -3.119, 0.72)
pt3dadd(-38.26, 252.104, -3.16, 0.708)
pt3dadd(-38.313, 252.204, -3.194, 0.704)
pt3dadd(-38.37, 252.304, -3.221, 0.704)
pt3dadd(-38.428, 252.403, -3.249, 0.704)
pt3dadd(-38.485, 252.504, -3.277, 0.704)
pt3dadd(-38.539, 252.606, -3.3, 0.704)
pt3dadd(-38.573, 252.721, -3.302, 0.714)
pt3dadd(-38.606, 252.836, -3.304, 0.722)
pt3dadd(-38.64, 252.952, -3.306, 0.732)
pt3dadd(-38.673, 253.067, -3.308, 0.74)
pt3dadd(-38.707, 253.182, -3.31, 0.75)
pt3dadd(-38.744, 253.289, -3.338, 0.756)
pt3dadd(-38.784, 253.39, -3.381, 0.762)
pt3dadd(-38.824, 253.489, -3.424, 0.768)
pt3dadd(-38.863, 253.59, -3.467, 0.774)
pt3dadd(-38.905, 253.692, -3.505, 0.778)
pt3dadd(-38.954, 253.799, -3.527, 0.778)
pt3dadd(-39.003, 253.906, -3.548, 0.778)
pt3dadd(-39.052, 254.012, -3.57, 0.778)
pt3dadd(-39.101, 254.118, -3.592, 0.778)
pt3dadd(-39.124, 254.225, -3.628, 0.772)
pt3dadd(-39.13, 254.33, -3.675, 0.76)
pt3dadd(-39.156, 254.402, -3.741, 0.748)
pt3dadd(-39.205, 254.437, -3.828, 0.734)
pt3dadd(-39.251, 254.513, -3.876, 0.714)
pt3dadd(-39.297, 254.622, -3.892, 0.69)
pt3dadd(-39.327, 254.736, -3.9, 0.67)
pt3dadd(-39.342, 254.856, -3.9, 0.65)
pt3dadd(-39.357, 254.975, -3.9, 0.632)
pt3dadd(-39.36, 255.095, -3.9, 0.628)
pt3dadd(-39.36, 255.215, -3.9, 0.628)
pt3dadd(-39.364, 255.335, -3.9, 0.634)
pt3dadd(-39.368, 255.455, -3.9, 0.644)
pt3dadd(-39.373, 255.574, -3.9, 0.652)
pt3dadd(-39.409, 255.688, -3.9, 0.662)
pt3dadd(-39.448, 255.802, -3.9, 0.674)
pt3dadd(-39.501, 255.908, -3.903, 0.678)
pt3dadd(-39.564, 256.01, -3.908, 0.678)
pt3dadd(-39.646, 256.082, -3.929, 0.684)
pt3dadd(-39.75, 256.116, -3.97, 0.696)
pt3dadd(-39.806, 256.195, -3.99, 0.706)
pt3dadd(-39.818, 256.314, -3.993, 0.712)
pt3dadd(-39.83, 256.434, -3.995, 0.718)
pt3dadd(-39.842, 256.553, -3.998, 0.722)
pt3dadd(-39.855, 256.672, -4, 0.728)
pt3dadd(-39.895, 256.786, -4, 0.74)
pt3dadd(-39.935, 256.898, -4, 0.75)
pt3dadd(-39.969, 257.014, -4, 0.732)
pt3dadd(-40.034, 257.113, -4, 0.728)
pt3dadd(-40.103, 257.212, -4, 0.728)
pt3dadd(-40.172, 257.31, -4, 0.728)
pt3dadd(-40.241, 257.408, -4, 0.728)
pt3dadd(-40.31, 257.507, -4, 0.728)
pt3dadd(-40.32, 257.623, -4, 0.742)
pt3dadd(-40.32, 257.743, -4, 0.76)
pt3dadd(-40.32, 257.863, -4, 0.776)
pt3dadd(-40.348, 257.98, -4, 0.822)
pt3dadd(-40.381, 258.095, -4, 0.874)
pt3dadd(-40.436, 258.198, -4, 0.924)
pt3dadd(-40.517, 258.286, -4, 0.972)
pt3dadd(-40.604, 258.368, -4, 1.012)
pt3dadd(-40.703, 258.436, -4, 1.036)
pt3dadd(-40.792, 258.511, -4, 1.05)
pt3dadd(-40.825, 258.626, -4, 1.018)
pt3dadd(-40.875, 258.733, -4, 1)
pt3dadd(-40.941, 258.834, -4, 0.99)
pt3dadd(-41.007, 258.935, -4, 0.98)
pt3dadd(-41.073, 259.034, -4, 0.97)
pt3dadd(-41.139, 259.135, -4, 0.96)
pt3dadd(-41.224, 259.214, -4.001, 0.944)
pt3dadd(-41.329, 259.272, -4.003, 0.924)
pt3dadd(-41.434, 259.33, -4.005, 0.906)
pt3dadd(-41.539, 259.387, -4.008, 0.886)
pt3dadd(-41.644, 259.446, -4.01, 0.866)
pt3dadd(-41.733, 259.519, -4.019, 0.852)
pt3dadd(-41.799, 259.618, -4.039, 0.846)
pt3dadd(-41.864, 259.715, -4.059, 0.84)
pt3dadd(-41.929, 259.813, -4.078, 0.834)
pt3dadd(-41.994, 259.912, -4.098, 0.83)
pt3dadd(-42.041, 260.021, -4.1, 0.824)
pt3dadd(-42.085, 260.132, -4.1, 0.82)
pt3dadd(-42.13, 260.244, -4.1, 0.816)
pt3dadd(-42.174, 260.356, -4.1, 0.81)
pt3dadd(-42.219, 260.467, -4.1, 0.806)
pt3dadd(-42.289, 260.56, -4.1, 0.806)
pt3dadd(-42.383, 260.634, -4.1, 0.812)
pt3dadd(-42.477, 260.71, -4.1, 0.816)
pt3dadd(-42.57, 260.784, -4.1, 0.822)
pt3dadd(-42.664, 260.86, -4.1, 0.826)
pt3dadd(-42.74, 260.944, -4.078, 0.826)
pt3dadd(-42.8, 261.036, -4.039, 0.82)
pt3dadd(-42.86, 261.127, -3.999, 0.814)
pt3dadd(-42.921, 261.22, -3.959, 0.808)
pt3dadd(-42.983, 261.311, -3.92, 0.76)
pt3dadd(-43.043, 261.41, -3.9, 0.648)
pt3dadd(-43.071, 261.527, -3.9, 0.61)
pt3dadd(-43.08, 261.646, -3.895, 0.638)
pt3dadd(-43.08, 261.76, -3.867, 0.686)
pt3dadd(-43.08, 261.827, -3.789, 0.778)
pt3dadd(-43.08, 261.84, -3.69, 0.916)
pt3dadd(-43.08, 261.841, -3.59, 1.038)
pt3dadd(-43.076, 261.86, -3.492, 1.104)
pt3dadd(-43.033, 261.914, -3.416, 1.04)
pt3dadd(-42.923, 261.949, -3.4, 0.87)
pt3dadd(-42.803, 261.96, -3.4, 0.708)
pt3dadd(-42.683, 261.96, -3.4, 0.564)
pt3dadd(-42.563, 261.955, -3.4, 0.452)
pt3dadd(-42.446, 261.934, -3.4, 0.402)
}
}
proc shape3d_58() {
dend_5[16] { pt3dadd(-42.339, 261.883, -3.39, 0.424)
pt3dadd(-42.264, 261.817, -3.341, 0.452)
pt3dadd(-42.228, 261.77, -3.255, 0.442)
pt3dadd(-42.195, 261.73, -3.165, 0.43)
pt3dadd(-42.104, 261.689, -3.123, 0.408)
pt3dadd(-41.996, 261.648, -3.095, 0.382)
pt3dadd(-41.891, 261.664, -3.056, 0.368)
pt3dadd(-41.786, 261.695, -3.015, 0.356)
pt3dadd(-41.676, 261.71, -2.978, 0.366)
pt3dadd(-41.564, 261.716, -2.944, 0.388)
pt3dadd(-41.456, 261.719, -2.901, 0.422)
pt3dadd(-41.356, 261.714, -2.846, 0.476)
pt3dadd(-41.256, 261.709, -2.791, 0.53)
pt3dadd(-41.199, 261.644, -2.748, 0.594)
pt3dadd(-41.173, 261.534, -2.716, 0.668)
pt3dadd(-41.16, 261.422, -2.681, 0.724)
pt3dadd(-41.16, 261.31, -2.646, 0.764)
pt3dadd(-41.16, 261.198, -2.61, 0.806)
pt3dadd(-41.16, 261.131, -2.547, 0.84)
pt3dadd(-41.16, 261.127, -2.447, 0.866)
pt3dadd(-41.16, 261.122, -2.347, 0.892)
pt3dadd(-41.16, 261.12, -2.247, 0.93)
pt3dadd(-41.16, 261.086, -2.155, 0.954)
pt3dadd(-41.16, 261.024, -2.07, 0.954)
pt3dadd(-41.16, 260.96, -1.985, 0.954)
pt3dadd(-41.16, 260.898, -1.9, 0.954)
pt3dadd(-41.16, 260.834, -1.814, 0.954)
pt3dadd(-41.16, 260.754, -1.744, 0.934)
pt3dadd(-41.16, 260.651, -1.694, 0.888)
pt3dadd(-41.16, 260.556, -1.635, 0.84)
pt3dadd(-41.16, 260.488, -1.553, 0.782)
pt3dadd(-41.159, 260.42, -1.47, 0.724)
pt3dadd(-41.153, 260.357, -1.385, 0.676)
pt3dadd(-41.147, 260.293, -1.301, 0.628)
pt3dadd(-41.046, 260.287, -1.248, 0.628)
pt3dadd(-40.944, 260.281, -1.195, 0.628)
pt3dadd(-40.858, 260.28, -1.126, 0.644)
pt3dadd(-40.807, 260.252, -1.048, 0.658)
pt3dadd(-40.794, 260.194, -0.961, 0.67)
pt3dadd(-40.742, 260.136, -0.909, 0.678)
pt3dadd(-40.636, 260.08, -0.904, 0.678)
pt3dadd(-40.527, 260.04, -0.892, 0.678)
pt3dadd(-40.412, 260.04, -0.865, 0.678)
pt3dadd(-40.296, 260.04, -0.837, 0.678)
pt3dadd(-40.181, 260.04, -0.81, 0.678)
pt3dadd(-40.065, 260.04, -0.782, 0.678)
pt3dadd(-39.963, 260.04, -0.736, 0.67)
pt3dadd(-39.879, 260.04, -0.665, 0.652)
pt3dadd(-39.84, 260.04, -0.571, 0.652)
pt3dadd(-39.8, 260.04, -0.476, 0.652)
pt3dadd(-39.708, 260.04, -0.433, 0.666)
pt3dadd(-39.59, 260.04, -0.416, 0.686)
pt3dadd(-39.472, 260.04, -0.4, 0.708)
pt3dadd(-39.352, 260.04, -0.4, 0.784)
pt3dadd(-39.232, 260.04, -0.4, 0.86)
pt3dadd(-39.112, 260.04, -0.4, 0.936)
pt3dadd(-38.992, 260.04, -0.4, 1.036)
pt3dadd(-38.872, 260.04, -0.4, 1.136)
pt3dadd(-38.752, 260.042, -0.4, 1.234)
pt3dadd(-38.636, 260.071, -0.4, 1.302)
pt3dadd(-38.519, 260.1, -0.4, 1.37)
pt3dadd(-38.403, 260.129, -0.4, 1.436)
pt3dadd(-38.286, 260.159, -0.4, 1.504)
pt3dadd(-38.215, 260.218, -0.34, 1.562)
pt3dadd(-38.151, 260.27, -0.27, 1.604)
pt3dadd(-38.108, 260.29, -0.178, 1.586)
pt3dadd(-38.065, 260.309, -0.086, 1.568)
pt3dadd(-38.015, 260.339, 0.001, 1.528)
pt3dadd(-37.957, 260.382, 0.08, 1.458)
pt3dadd(-37.928, 260.424, 0.168, 1.39)
pt3dadd(-37.919, 260.465, 0.261, 1.322)
pt3dadd(-37.91, 260.506, 0.355, 1.254)
pt3dadd(-37.852, 260.574, 0.392, 1.16)
pt3dadd(-37.767, 260.659, 0.398, 1.048)
pt3dadd(-37.695, 260.754, 0.4, 0.962)
pt3dadd(-37.63, 260.855, 0.4, 0.894)
pt3dadd(-37.566, 260.956, 0.4, 0.824)
pt3dadd(-37.468, 260.99, 0.424, 0.78)
pt3dadd(-37.356, 260.996, 0.459, 0.746)
pt3dadd(-37.252, 261, 0.506, 0.728)
pt3dadd(-37.146, 261.014, 0.55, 0.736)
pt3dadd(-37.037, 261.034, 0.587, 0.75)
pt3dadd(-36.94, 261.091, 0.604, 0.746)
pt3dadd(-36.849, 261.169, 0.609, 0.732)
pt3dadd(-36.767, 261.242, 0.642, 0.728)
pt3dadd(-36.69, 261.311, 0.693, 0.728)
pt3dadd(-36.636, 261.358, 0.773, 0.752)
pt3dadd(-36.586, 261.4, 0.856, 0.778)
pt3dadd(-36.489, 261.463, 0.88, 0.818)
pt3dadd(-36.391, 261.527, 0.905, 0.858)
pt3dadd(-36.294, 261.59, 0.93, 0.898)
pt3dadd(-36.188, 261.6, 0.972, 0.942)
pt3dadd(-36.081, 261.6, 1.016, 0.988)
pt3dadd(-35.969, 261.6, 1.053, 1.016)
pt3dadd(-35.855, 261.595, 1.074, 1.01)
pt3dadd(-35.773, 261.54, 1.031, 0.898)
pt3dadd(-35.799, 261.488, 0.988, 0.796)
pt3dadd(-35.81, 261.604, 0.967, 0.766)
pt3dadd(-35.805, 261.722, 0.95, 0.748)
pt3dadd(-35.8, 261.84, 0.933, 0.728)
}
dend_5[17] {pt3dclear()
pt3dadd(8.08, 207.6, 0.133, 0.878)
pt3dadd(8.066, 207.52, 0.164, 0.918)
pt3dadd(8.048, 207.413, 0.205, 0.972)
pt3dadd(8.03, 207.305, 0.246, 1.026)
pt3dadd(8.013, 207.197, 0.287, 1.08)
pt3dadd(7.995, 207.089, 0.329, 1.134)
pt3dadd(7.977, 206.981, 0.37, 1.186)
pt3dadd(7.959, 206.873, 0.411, 1.24)
pt3dadd(7.941, 206.765, 0.452, 1.294)
pt3dadd(7.923, 206.657, 0.493, 1.348)
pt3dadd(7.866, 206.555, 0.5, 1.37)
pt3dadd(7.801, 206.454, 0.5, 1.388)
pt3dadd(7.736, 206.353, 0.5, 1.406)
pt3dadd(7.708, 206.237, 0.5, 1.388)
pt3dadd(7.682, 206.119, 0.5, 1.368)
pt3dadd(7.647, 206.005, 0.5, 1.346)
pt3dadd(7.6, 205.895, 0.5, 1.324)
pt3dadd(7.545, 205.793, 0.5, 1.308)
pt3dadd(7.437, 205.739, 0.5, 1.332)
pt3dadd(7.33, 205.685, 0.5, 1.354)
pt3dadd(7.211, 205.68, 0.5, 1.402)
pt3dadd(7.091, 205.68, 0.5, 1.452)
pt3dadd(6.972, 205.668, 0.5, 1.474)
pt3dadd(6.852, 205.656, 0.5, 1.494)
pt3dadd(6.733, 205.643, 0.5, 1.514)
pt3dadd(6.614, 205.631, 0.5, 1.534)
pt3dadd(6.494, 205.618, 0.5, 1.554)
pt3dadd(6.375, 205.606, 0.5, 1.572)
pt3dadd(6.258, 205.583, 0.507, 1.58)
pt3dadd(6.143, 205.553, 0.52, 1.574)
pt3dadd(6.028, 205.522, 0.533, 1.57)
pt3dadd(5.913, 205.492, 0.545, 1.566)
pt3dadd(5.798, 205.46, 0.558, 1.56)
pt3dadd(5.682, 205.44, 0.571, 1.542)
pt3dadd(5.563, 205.44, 0.583, 1.494)
pt3dadd(5.443, 205.44, 0.595, 1.448)
pt3dadd(5.325, 205.427, 0.6, 1.376)
pt3dadd(5.207, 205.406, 0.6, 1.29)
pt3dadd(5.09, 205.384, 0.6, 1.202)
pt3dadd(5.022, 205.284, 0.6, 1.108)
pt3dadd(4.955, 205.186, 0.6, 1.016)
pt3dadd(4.872, 205.099, 0.605, 0.972)
pt3dadd(4.788, 205.014, 0.61, 0.936)
pt3dadd(4.707, 204.943, 0.651, 1.002)
pt3dadd(4.604, 204.895, 0.671, 1.062)
pt3dadd(4.49, 204.857, 0.677, 1.108)
pt3dadd(4.377, 204.82, 0.683, 1.156)
pt3dadd(4.263, 204.781, 0.69, 1.204)
pt3dadd(4.15, 204.743, 0.696, 1.252)
pt3dadd(4.034, 204.714, 0.7, 1.314)
pt3dadd(3.915, 204.7, 0.7, 1.398)
pt3dadd(3.796, 204.685, 0.7, 1.482)
pt3dadd(3.686, 204.641, 0.696, 1.532)
pt3dadd(3.58, 204.586, 0.691, 1.566)
pt3dadd(3.491, 204.518, 0.664, 1.574)
pt3dadd(3.414, 204.442, 0.62, 1.56)
pt3dadd(3.377, 204.353, 0.564, 1.536)
pt3dadd(3.349, 204.26, 0.504, 1.508)
pt3dadd(3.248, 204.25, 0.458, 1.514)
pt3dadd(3.142, 204.246, 0.411, 1.52)
pt3dadd(3.035, 204.242, 0.366, 1.528)
pt3dadd(2.926, 204.235, 0.328, 1.528)
pt3dadd(2.809, 204.217, 0.308, 1.518)
pt3dadd(2.693, 204.2, 0.289, 1.506)
}
dend_5[18] {pt3dclear()
pt3dadd(2.693, 204.2, 0.289, 1.506)
pt3dadd(2.649, 204.179, 0.33, 1.532)
pt3dadd(2.572, 204.143, 0.401, 1.574)
pt3dadd(2.496, 204.106, 0.472, 1.618)
pt3dadd(2.42, 204.07, 0.543, 1.66)
pt3dadd(2.344, 204.032, 0.614, 1.704)
pt3dadd(2.268, 203.996, 0.686, 1.746)
pt3dadd(2.192, 203.959, 0.757, 1.79)
pt3dadd(2.116, 203.923, 0.828, 1.832)
pt3dadd(2.04, 203.886, 0.899, 1.876)
pt3dadd(1.928, 203.88, 0.908, 1.898)
pt3dadd(1.808, 203.88, 0.904, 1.916)
pt3dadd(1.688, 203.88, 0.9, 1.932)
pt3dadd(1.568, 203.88, 0.9, 1.878)
pt3dadd(1.448, 203.88, 0.9, 1.82)
pt3dadd(1.328, 203.88, 0.9, 1.762)
pt3dadd(1.208, 203.88, 0.9, 1.628)
pt3dadd(1.088, 203.88, 0.9, 1.49)
pt3dadd(0.968, 203.88, 0.9, 1.448)
pt3dadd(0.848, 203.88, 0.9, 1.412)
pt3dadd(0.728, 203.88, 0.9, 1.376)
pt3dadd(0.608, 203.88, 0.9, 1.34)
pt3dadd(0.488, 203.88, 0.9, 1.304)
pt3dadd(0.368, 203.88, 0.9, 1.268)
pt3dadd(0.248, 203.88, 0.9, 1.232)
pt3dadd(0.136, 203.88, 0.865, 1.204)
pt3dadd(0.024, 203.88, 0.828, 1.176)
pt3dadd(-0.087, 203.88, 0.791, 1.148)
pt3dadd(-0.198, 203.88, 0.754, 1.12)
pt3dadd(-0.31, 203.88, 0.717, 1.092)
pt3dadd(-0.422, 203.88, 0.681, 1.068)
pt3dadd(-0.534, 203.88, 0.646, 1.044)
pt3dadd(-0.647, 203.88, 0.612, 1.022)
pt3dadd(-0.759, 203.88, 0.577, 0.998)
pt3dadd(-0.872, 203.88, 0.542, 0.974)
pt3dadd(-0.985, 203.876, 0.509, 0.952)
}
}
proc shape3d_59() {
dend_5[18] { pt3dadd(-1.097, 203.846, 0.483, 0.938)
pt3dadd(-1.209, 203.816, 0.458, 0.922)
pt3dadd(-1.321, 203.786, 0.433, 0.906)
pt3dadd(-1.433, 203.756, 0.408, 0.89)
pt3dadd(-1.541, 203.72, 0.379, 0.872)
pt3dadd(-1.63, 203.66, 0.335, 0.844)
pt3dadd(-1.728, 203.606, 0.301, 0.834)
pt3dadd(-1.835, 203.558, 0.279, 0.848)
pt3dadd(-1.946, 203.531, 0.254, 0.858)
pt3dadd(-2.06, 203.525, 0.225, 0.87)
pt3dadd(-2.176, 203.52, 0.2, 0.88)
pt3dadd(-2.296, 203.52, 0.2, 0.888)
pt3dadd(-2.416, 203.52, 0.2, 0.896)
pt3dadd(-2.536, 203.52, 0.199, 0.906)
pt3dadd(-2.656, 203.52, 0.193, 0.918)
pt3dadd(-2.774, 203.514, 0.183, 0.93)
pt3dadd(-2.888, 203.49, 0.159, 0.936)
pt3dadd(-3.002, 203.466, 0.134, 0.94)
pt3dadd(-3.116, 203.443, 0.11, 0.946)
pt3dadd(-3.23, 203.419, 0.086, 0.95)
pt3dadd(-3.343, 203.39, 0.064, 0.958)
pt3dadd(-3.45, 203.34, 0.05, 0.974)
pt3dadd(-3.558, 203.29, 0.036, 0.988)
pt3dadd(-3.666, 203.24, 0.022, 1.004)
pt3dadd(-3.774, 203.19, 0.008, 1.02)
pt3dadd(-3.886, 203.153, 0, 1.034)
pt3dadd(-4.005, 203.136, 0, 1.046)
pt3dadd(-4.124, 203.119, 0, 1.058)
pt3dadd(-4.242, 203.101, 0, 1.072)
pt3dadd(-4.361, 203.084, 0, 1.084)
pt3dadd(-4.48, 203.066, 0, 1.096)
pt3dadd(-4.598, 203.053, -0.007, 1.11)
pt3dadd(-4.712, 203.051, -0.037, 1.132)
pt3dadd(-4.826, 203.048, -0.067, 1.156)
pt3dadd(-4.941, 203.046, -0.098, 1.178)
pt3dadd(-5.055, 203.044, -0.128, 1.202)
pt3dadd(-5.169, 203.041, -0.159, 1.224)
pt3dadd(-5.286, 203.024, -0.171, 1.234)
pt3dadd(-5.404, 203.004, -0.177, 1.238)
pt3dadd(-5.522, 202.984, -0.183, 1.242)
pt3dadd(-5.64, 202.962, -0.188, 1.246)
pt3dadd(-5.758, 202.942, -0.194, 1.252)
pt3dadd(-5.876, 202.921, -0.2, 1.256)
pt3dadd(-5.994, 202.901, -0.2, 1.248)
pt3dadd(-6.113, 202.882, -0.2, 1.24)
pt3dadd(-6.231, 202.861, -0.2, 1.232)
pt3dadd(-6.35, 202.842, -0.2, 1.222)
pt3dadd(-6.468, 202.822, -0.2, 1.214)
pt3dadd(-6.586, 202.802, -0.2, 1.206)
pt3dadd(-6.703, 202.782, -0.217, 1.172)
pt3dadd(-6.819, 202.762, -0.236, 1.134)
pt3dadd(-6.935, 202.742, -0.255, 1.096)
pt3dadd(-7.051, 202.722, -0.273, 1.058)
pt3dadd(-7.167, 202.702, -0.292, 1.02)
pt3dadd(-7.285, 202.692, -0.309, 0.986)
pt3dadd(-7.403, 202.69, -0.323, 0.958)
pt3dadd(-7.522, 202.687, -0.338, 0.93)
pt3dadd(-7.641, 202.685, -0.353, 0.9)
pt3dadd(-7.759, 202.684, -0.367, 0.872)
pt3dadd(-7.878, 202.681, -0.382, 0.842)
pt3dadd(-7.997, 202.673, -0.39, 0.82)
pt3dadd(-8.116, 202.661, -0.392, 0.804)
pt3dadd(-8.236, 202.648, -0.393, 0.788)
pt3dadd(-8.355, 202.634, -0.395, 0.772)
pt3dadd(-8.474, 202.622, -0.397, 0.756)
pt3dadd(-8.594, 202.609, -0.399, 0.74)
pt3dadd(-8.713, 202.597, -0.4, 0.732)
pt3dadd(-8.833, 202.59, -0.4, 0.742)
pt3dadd(-8.952, 202.582, -0.4, 0.754)
pt3dadd(-9.072, 202.573, -0.4, 0.766)
pt3dadd(-9.192, 202.565, -0.4, 0.778)
pt3dadd(-9.312, 202.558, -0.4, 0.788)
pt3dadd(-9.431, 202.549, -0.4, 0.8)
pt3dadd(-9.542, 202.512, -0.415, 0.826)
pt3dadd(-9.648, 202.463, -0.437, 0.86)
pt3dadd(-9.755, 202.415, -0.458, 0.892)
pt3dadd(-9.861, 202.366, -0.48, 0.924)
pt3dadd(-9.968, 202.319, -0.5, 0.956)
pt3dadd(-10.087, 202.298, -0.5, 0.972)
pt3dadd(-10.205, 202.279, -0.5, 0.988)
pt3dadd(-10.324, 202.259, -0.5, 1.006)
pt3dadd(-10.442, 202.24, -0.5, 1.022)
pt3dadd(-10.56, 202.22, -0.5, 1.038)
pt3dadd(-10.679, 202.2, -0.5, 1.054)
pt3dadd(-10.797, 202.181, -0.5, 1.054)
pt3dadd(-10.915, 202.16, -0.5, 1.054)
pt3dadd(-11.034, 202.141, -0.5, 1.054)
pt3dadd(-11.152, 202.121, -0.5, 1.054)
pt3dadd(-11.271, 202.102, -0.5, 1.054)
pt3dadd(-11.389, 202.082, -0.5, 1.054)
pt3dadd(-11.505, 202.05, -0.5, 1.036)
pt3dadd(-11.62, 202.018, -0.5, 1.016)
pt3dadd(-11.735, 201.984, -0.5, 1.01)
pt3dadd(-11.851, 201.952, -0.5, 1.02)
pt3dadd(-11.964, 201.916, -0.5, 1.032)
pt3dadd(-12.035, 201.818, -0.506, 1.08)
pt3dadd(-12.105, 201.722, -0.511, 1.13)
pt3dadd(-12.141, 201.618, -0.551, 1.182)
pt3dadd(-12.18, 201.518, -0.59, 1.23)
pt3dadd(-12.294, 201.486, -0.602, 1.238)
pt3dadd(-12.409, 201.454, -0.614, 1.244)
pt3dadd(-12.524, 201.421, -0.625, 1.252)
pt3dadd(-12.637, 201.391, -0.644, 1.252)
pt3dadd(-12.748, 201.365, -0.677, 1.24)
pt3dadd(-12.859, 201.337, -0.7, 1.23)
pt3dadd(-12.974, 201.3, -0.7, 1.23)
pt3dadd(-13.086, 201.259, -0.7, 1.23)
pt3dadd(-13.199, 201.217, -0.7, 1.23)
pt3dadd(-13.311, 201.175, -0.7, 1.23)
pt3dadd(-13.424, 201.134, -0.7, 1.23)
pt3dadd(-13.536, 201.092, -0.7, 1.23)
pt3dadd(-13.65, 201.053, -0.7, 1.208)
pt3dadd(-13.763, 201.013, -0.7, 1.188)
pt3dadd(-13.881, 201, -0.7, 1.158)
pt3dadd(-14.001, 201, -0.7, 1.124)
pt3dadd(-14.121, 201, -0.7, 1.09)
pt3dadd(-14.232, 200.964, -0.7, 1.064)
pt3dadd(-14.339, 200.91, -0.7, 1.042)
pt3dadd(-14.438, 200.844, -0.7, 1.03)
pt3dadd(-14.526, 200.764, -0.7, 1.03)
pt3dadd(-14.61, 200.677, -0.7, 1.03)
pt3dadd(-14.685, 200.584, -0.7, 1.03)
pt3dadd(-14.776, 200.507, -0.7, 1.016)
pt3dadd(-14.87, 200.431, -0.7, 1)
pt3dadd(-14.964, 200.357, -0.7, 0.986)
pt3dadd(-15.058, 200.281, -0.7, 0.97)
pt3dadd(-15.151, 200.207, -0.7, 0.956)
pt3dadd(-15.243, 200.129, -0.7, 0.944)
pt3dadd(-15.334, 200.051, -0.7, 0.934)
pt3dadd(-15.425, 199.974, -0.7, 0.924)
pt3dadd(-15.517, 199.896, -0.7, 0.914)
pt3dadd(-15.608, 199.818, -0.7, 0.904)
pt3dadd(-15.72, 199.777, -0.7, 0.904)
pt3dadd(-15.834, 199.738, -0.7, 0.904)
pt3dadd(-15.948, 199.699, -0.7, 0.904)
pt3dadd(-16.061, 199.661, -0.7, 0.904)
pt3dadd(-16.175, 199.622, -0.7, 0.904)
pt3dadd(-16.291, 199.597, -0.7, 0.91)
pt3dadd(-16.411, 199.591, -0.7, 0.926)
pt3dadd(-16.531, 199.585, -0.7, 0.94)
pt3dadd(-16.651, 199.579, -0.7, 0.956)
pt3dadd(-16.77, 199.573, -0.7, 0.97)
pt3dadd(-16.89, 199.567, -0.7, 0.986)
pt3dadd(-17.01, 199.561, -0.7, 1)
pt3dadd(-17.129, 199.543, -0.7, 1.02)
pt3dadd(-17.247, 199.522, -0.7, 1.04)
pt3dadd(-17.364, 199.499, -0.7, 1.062)
pt3dadd(-17.482, 199.476, -0.7, 1.082)
pt3dadd(-17.6, 199.454, -0.7, 1.104)
pt3dadd(-17.718, 199.432, -0.7, 1.126)
pt3dadd(-17.831, 199.397, -0.716, 1.142)
pt3dadd(-17.941, 199.358, -0.736, 1.158)
pt3dadd(-18.052, 199.32, -0.757, 1.174)
pt3dadd(-18.163, 199.28, -0.778, 1.188)
pt3dadd(-18.274, 199.242, -0.799, 1.204)
pt3dadd(-18.393, 199.235, -0.8, 1.202)
pt3dadd(-18.513, 199.229, -0.8, 1.198)
pt3dadd(-18.633, 199.223, -0.8, 1.194)
pt3dadd(-18.753, 199.217, -0.8, 1.19)
pt3dadd(-18.873, 199.211, -0.8, 1.186)
pt3dadd(-18.992, 199.205, -0.8, 1.182)
pt3dadd(-19.112, 199.2, -0.8, 1.174)
pt3dadd(-19.232, 199.2, -0.8, 1.152)
pt3dadd(-19.352, 199.2, -0.8, 1.132)
pt3dadd(-19.472, 199.2, -0.8, 1.11)
pt3dadd(-19.592, 199.2, -0.8, 1.088)
pt3dadd(-19.712, 199.2, -0.8, 1.066)
pt3dadd(-19.832, 199.2, -0.8, 1.046)
pt3dadd(-19.952, 199.196, -0.8, 1.026)
pt3dadd(-20.071, 199.184, -0.8, 1.01)
pt3dadd(-20.191, 199.171, -0.8, 0.994)
pt3dadd(-20.31, 199.159, -0.8, 0.978)
pt3dadd(-20.43, 199.146, -0.8, 0.962)
pt3dadd(-20.549, 199.134, -0.8, 0.946)
pt3dadd(-20.668, 199.121, -0.8, 0.93)
pt3dadd(-20.783, 199.087, -0.8, 0.93)
pt3dadd(-20.898, 199.052, -0.8, 0.93)
pt3dadd(-21.012, 199.016, -0.8, 0.93)
pt3dadd(-21.127, 198.98, -0.8, 0.93)
pt3dadd(-21.241, 198.944, -0.8, 0.93)
pt3dadd(-21.357, 198.916, -0.8, 0.932)
pt3dadd(-21.477, 198.904, -0.8, 0.944)
pt3dadd(-21.596, 198.892, -0.8, 0.956)
pt3dadd(-21.715, 198.878, -0.8, 0.968)
pt3dadd(-21.835, 198.866, -0.8, 0.98)
pt3dadd(-21.954, 198.853, -0.8, 0.992)
pt3dadd(-22.074, 198.841, -0.8, 1.004)
pt3dadd(-22.193, 198.84, -0.8, 1.012)
pt3dadd(-22.313, 198.84, -0.8, 1.018)
pt3dadd(-22.433, 198.84, -0.8, 1.026)
pt3dadd(-22.553, 198.84, -0.8, 1.032)
pt3dadd(-22.673, 198.84, -0.8, 1.04)
pt3dadd(-22.793, 198.84, -0.8, 1.048)
pt3dadd(-22.913, 198.84, -0.8, 1.054)
pt3dadd(-23.02, 198.84, -0.845, 1.054)
pt3dadd(-23.126, 198.84, -0.892, 1.054)
pt3dadd(-23.232, 198.84, -0.939, 1.054)
pt3dadd(-23.337, 198.84, -0.986, 1.054)
pt3dadd(-23.443, 198.84, -1.034, 1.054)
pt3dadd(-23.54, 198.818, -1.089, 1.05)
}
}
proc shape3d_60() {
dend_5[18] { pt3dadd(-23.633, 198.792, -1.147, 1.044)
pt3dadd(-23.727, 198.764, -1.205, 1.038)
pt3dadd(-23.821, 198.737, -1.263, 1.034)
pt3dadd(-23.923, 198.712, -1.307, 1.03)
pt3dadd(-24.038, 198.689, -1.326, 1.03)
pt3dadd(-24.154, 198.665, -1.346, 1.03)
pt3dadd(-24.269, 198.642, -1.365, 1.03)
pt3dadd(-24.385, 198.619, -1.384, 1.03)
pt3dadd(-24.501, 198.6, -1.403, 1.03)
pt3dadd(-24.619, 198.6, -1.419, 1.03)
pt3dadd(-24.737, 198.6, -1.436, 1.03)
pt3dadd(-24.856, 198.6, -1.452, 1.03)
pt3dadd(-24.974, 198.6, -1.469, 1.03)
pt3dadd(-25.092, 198.6, -1.485, 1.03)
pt3dadd(-25.211, 198.6, -1.5, 1.03)
pt3dadd(-25.331, 198.6, -1.5, 1.042)
pt3dadd(-25.451, 198.6, -1.5, 1.052)
pt3dadd(-25.571, 198.6, -1.5, 1.062)
pt3dadd(-25.691, 198.6, -1.5, 1.074)
pt3dadd(-25.811, 198.6, -1.5, 1.084)
pt3dadd(-25.931, 198.6, -1.5, 1.096)
pt3dadd(-26.051, 198.602, -1.502, 1.106)
pt3dadd(-26.166, 198.625, -1.521, 1.11)
pt3dadd(-26.282, 198.648, -1.54, 1.116)
pt3dadd(-26.397, 198.671, -1.559, 1.12)
pt3dadd(-26.513, 198.695, -1.579, 1.124)
pt3dadd(-26.628, 198.718, -1.598, 1.13)
pt3dadd(-26.746, 198.738, -1.6, 1.126)
pt3dadd(-26.864, 198.757, -1.6, 1.122)
pt3dadd(-26.983, 198.778, -1.6, 1.118)
pt3dadd(-27.101, 198.797, -1.6, 1.114)
pt3dadd(-27.219, 198.816, -1.6, 1.11)
pt3dadd(-27.338, 198.836, -1.6, 1.106)
pt3dadd(-27.456, 198.84, -1.613, 1.084)
pt3dadd(-27.575, 198.84, -1.63, 1.06)
pt3dadd(-27.693, 198.84, -1.646, 1.036)
pt3dadd(-27.811, 198.84, -1.663, 1.01)
pt3dadd(-27.93, 198.84, -1.679, 0.986)
pt3dadd(-28.048, 198.84, -1.696, 0.96)
pt3dadd(-28.159, 198.84, -1.731, 0.936)
pt3dadd(-28.268, 198.84, -1.773, 0.914)
pt3dadd(-28.377, 198.84, -1.815, 0.89)
pt3dadd(-28.486, 198.84, -1.857, 0.866)
pt3dadd(-28.595, 198.84, -1.9, 0.842)
pt3dadd(-28.698, 198.84, -1.95, 0.826)
pt3dadd(-28.794, 198.84, -2.01, 0.822)
pt3dadd(-28.89, 198.84, -2.07, 0.816)
pt3dadd(-28.986, 198.84, -2.13, 0.812)
pt3dadd(-29.082, 198.84, -2.19, 0.806)
pt3dadd(-29.188, 198.84, -2.228, 0.812)
pt3dadd(-29.307, 198.84, -2.24, 0.832)
pt3dadd(-29.426, 198.84, -2.253, 0.852)
pt3dadd(-29.545, 198.84, -2.265, 0.872)
pt3dadd(-29.665, 198.84, -2.277, 0.892)
pt3dadd(-29.784, 198.84, -2.29, 0.912)
pt3dadd(-29.903, 198.84, -2.3, 0.932)
pt3dadd(-30.023, 198.84, -2.3, 0.95)
pt3dadd(-30.143, 198.84, -2.3, 0.968)
pt3dadd(-30.263, 198.84, -2.3, 0.986)
pt3dadd(-30.383, 198.84, -2.3, 1.004)
pt3dadd(-30.503, 198.84, -2.3, 1.022)
pt3dadd(-30.623, 198.84, -2.3, 1.04)
pt3dadd(-30.743, 198.84, -2.3, 1.058)
pt3dadd(-30.863, 198.84, -2.3, 1.072)
pt3dadd(-30.983, 198.84, -2.3, 1.086)
pt3dadd(-31.103, 198.84, -2.3, 1.1)
pt3dadd(-31.223, 198.84, -2.3, 1.114)
pt3dadd(-31.343, 198.84, -2.3, 1.13)
pt3dadd(-31.463, 198.84, -2.3, 1.144)
pt3dadd(-31.583, 198.84, -2.3, 1.156)
pt3dadd(-31.703, 198.84, -2.302, 1.164)
pt3dadd(-31.823, 198.84, -2.303, 1.172)
pt3dadd(-31.943, 198.84, -2.305, 1.178)
pt3dadd(-32.063, 198.84, -2.307, 1.186)
pt3dadd(-32.183, 198.84, -2.308, 1.192)
pt3dadd(-32.303, 198.84, -2.31, 1.2)
pt3dadd(-32.422, 198.84, -2.315, 1.208)
pt3dadd(-32.541, 198.84, -2.33, 1.216)
pt3dadd(-32.66, 198.84, -2.344, 1.224)
pt3dadd(-32.779, 198.84, -2.359, 1.232)
pt3dadd(-32.897, 198.84, -2.373, 1.24)
pt3dadd(-33.016, 198.84, -2.387, 1.248)
pt3dadd(-33.135, 198.84, -2.402, 1.256)
pt3dadd(-33.253, 198.84, -2.418, 1.256)
pt3dadd(-33.372, 198.84, -2.435, 1.256)
pt3dadd(-33.49, 198.84, -2.451, 1.256)
pt3dadd(-33.608, 198.84, -2.468, 1.256)
pt3dadd(-33.727, 198.84, -2.484, 1.256)
pt3dadd(-33.845, 198.84, -2.501, 1.256)
pt3dadd(-33.963, 198.84, -2.517, 1.248)
pt3dadd(-34.082, 198.84, -2.534, 1.238)
pt3dadd(-34.2, 198.84, -2.55, 1.23)
pt3dadd(-34.319, 198.84, -2.567, 1.222)
pt3dadd(-34.437, 198.84, -2.583, 1.214)
pt3dadd(-34.555, 198.84, -2.599, 1.206)
pt3dadd(-34.658, 198.809, -2.643, 1.2)
pt3dadd(-34.76, 198.775, -2.688, 1.194)
pt3dadd(-34.862, 198.743, -2.733, 1.188)
pt3dadd(-34.964, 198.709, -2.778, 1.182)
pt3dadd(-35.075, 198.685, -2.8, 1.178)
pt3dadd(-35.194, 198.671, -2.8, 1.174)
pt3dadd(-35.313, 198.656, -2.8, 1.17)
pt3dadd(-35.432, 198.641, -2.8, 1.166)
pt3dadd(-35.551, 198.626, -2.8, 1.162)
pt3dadd(-35.67, 198.611, -2.8, 1.158)
pt3dadd(-35.787, 198.611, -2.8, 1.152)
pt3dadd(-35.899, 198.655, -2.8, 1.144)
pt3dadd(-36.01, 198.7, -2.8, 1.134)
pt3dadd(-36.121, 198.745, -2.8, 1.124)
pt3dadd(-36.233, 198.79, -2.8, 1.116)
pt3dadd(-36.344, 198.834, -2.8, 1.106)
pt3dadd(-36.463, 198.84, -2.8, 1.092)
pt3dadd(-36.583, 198.84, -2.8, 1.078)
pt3dadd(-36.703, 198.84, -2.8, 1.064)
pt3dadd(-36.823, 198.84, -2.8, 1.05)
pt3dadd(-36.943, 198.84, -2.8, 1.036)
pt3dadd(-37.063, 198.84, -2.8, 1.02)
pt3dadd(-37.183, 198.84, -2.8, 1.006)
pt3dadd(-37.291, 198.878, -2.825, 1)
pt3dadd(-37.397, 198.922, -2.855, 0.994)
pt3dadd(-37.503, 198.966, -2.884, 0.988)
pt3dadd(-37.608, 199.01, -2.913, 0.984)
pt3dadd(-37.719, 199.043, -2.937, 0.984)
pt3dadd(-37.838, 199.049, -2.948, 1.002)
pt3dadd(-37.957, 199.055, -2.959, 1.018)
pt3dadd(-38.076, 199.062, -2.97, 1.034)
pt3dadd(-38.195, 199.069, -2.981, 1.052)
pt3dadd(-38.314, 199.075, -2.992, 1.068)
pt3dadd(-38.431, 199.08, -3.01, 1.088)
pt3dadd(-38.544, 199.08, -3.044, 1.116)
pt3dadd(-38.656, 199.08, -3.079, 1.142)
pt3dadd(-38.769, 199.08, -3.114, 1.17)
pt3dadd(-38.882, 199.08, -3.148, 1.198)
pt3dadd(-38.994, 199.08, -3.183, 1.226)
pt3dadd(-39.11, 199.08, -3.21, 1.242)
pt3dadd(-39.226, 199.08, -3.235, 1.254)
pt3dadd(-39.342, 199.08, -3.26, 1.268)
pt3dadd(-39.458, 199.08, -3.285, 1.28)
pt3dadd(-39.574, 199.08, -3.31, 1.294)
pt3dadd(-39.69, 199.079, -3.336, 1.304)
pt3dadd(-39.802, 199.062, -3.37, 1.294)
pt3dadd(-39.914, 199.046, -3.403, 1.284)
pt3dadd(-40.026, 199.031, -3.436, 1.274)
pt3dadd(-40.138, 199.015, -3.47, 1.264)
pt3dadd(-40.251, 199, -3.5, 1.254)
pt3dadd(-40.371, 198.994, -3.5, 1.232)
pt3dadd(-40.49, 198.988, -3.5, 1.208)
pt3dadd(-40.61, 198.982, -3.5, 1.186)
pt3dadd(-40.73, 198.976, -3.5, 1.164)
pt3dadd(-40.85, 198.97, -3.5, 1.14)
pt3dadd(-40.97, 198.964, -3.5, 1.118)
pt3dadd(-41.089, 198.95, -3.5, 1.092)
pt3dadd(-41.207, 198.929, -3.5, 1.064)
pt3dadd(-41.325, 198.906, -3.5, 1.034)
pt3dadd(-41.443, 198.884, -3.5, 1.004)
pt3dadd(-41.56, 198.862, -3.5, 0.976)
pt3dadd(-41.678, 198.84, -3.5, 0.946)
pt3dadd(-41.794, 198.81, -3.5, 0.902)
pt3dadd(-41.908, 198.77, -3.5, 0.838)
pt3dadd(-42.021, 198.733, -3.5, 0.778)
pt3dadd(-42.141, 198.728, -3.504, 0.76)
pt3dadd(-42.261, 198.724, -3.508, 0.742)
pt3dadd(-42.375, 198.72, -3.527, 0.728)
pt3dadd(-42.474, 198.72, -3.584, 0.728)
pt3dadd(-42.566, 198.715, -3.644, 0.73)
pt3dadd(-42.616, 198.672, -3.727, 0.744)
pt3dadd(-42.685, 198.635, -3.79, 0.754)
pt3dadd(-42.803, 198.617, -3.792, 0.754)
pt3dadd(-42.922, 198.598, -3.795, 0.754)
pt3dadd(-43.04, 198.578, -3.797, 0.754)
pt3dadd(-43.159, 198.56, -3.8, 0.754)
pt3dadd(-43.262, 198.5, -3.8, 0.754)
pt3dadd(-43.366, 198.439, -3.8, 0.754)
pt3dadd(-43.413, 198.335, -3.8, 0.76)
pt3dadd(-43.446, 198.22, -3.8, 0.768)
pt3dadd(-43.479, 198.104, -3.8, 0.774)
pt3dadd(-43.549, 198.016, -3.8, 0.778)
pt3dadd(-43.647, 197.947, -3.8, 0.778)
pt3dadd(-43.744, 197.876, -3.8, 0.806)
pt3dadd(-43.852, 197.826, -3.8, 0.836)
pt3dadd(-43.965, 197.786, -3.8, 0.846)
pt3dadd(-44.075, 197.74, -3.8, 0.87)
pt3dadd(-44.178, 197.678, -3.8, 0.916)
pt3dadd(-44.276, 197.611, -3.8, 0.96)
pt3dadd(-44.336, 197.508, -3.8, 1.006)
pt3dadd(-44.397, 197.405, -3.8, 1.052)
pt3dadd(-44.451, 197.298, -3.8, 1.086)
pt3dadd(-44.505, 197.19, -3.8, 1.12)
pt3dadd(-44.52, 197.074, -3.8, 1.13)
pt3dadd(-44.52, 196.954, -3.8, 1.13)
pt3dadd(-44.546, 196.837, -3.8, 1.11)
pt3dadd(-44.581, 196.723, -3.8, 1.084)
pt3dadd(-44.617, 196.609, -3.8, 1.056)
pt3dadd(-44.653, 196.494, -3.8, 1.03)
pt3dadd(-44.689, 196.38, -3.8, 1.002)
pt3dadd(-44.727, 196.266, -3.8, 0.976)
pt3dadd(-44.784, 196.16, -3.8, 0.952)
pt3dadd(-44.841, 196.055, -3.8, 0.928)
pt3dadd(-44.898, 195.949, -3.8, 0.904)
pt3dadd(-44.954, 195.844, -3.8, 0.88)
}
}
proc shape3d_61() {
dend_5[18] { pt3dadd(-45.011, 195.738, -3.8, 0.854)
pt3dadd(-45.091, 195.648, -3.8, 0.83)
pt3dadd(-45.171, 195.559, -3.8, 0.804)
pt3dadd(-45.252, 195.47, -3.8, 0.778)
pt3dadd(-45.333, 195.382, -3.8, 0.754)
pt3dadd(-45.414, 195.293, -3.8, 0.728)
pt3dadd(-45.524, 195.246, -3.8, 0.718)
pt3dadd(-45.635, 195.2, -3.8, 0.706)
pt3dadd(-45.695, 195.106, -3.8, 0.696)
pt3dadd(-45.735, 194.993, -3.8, 0.684)
pt3dadd(-45.795, 194.896, -3.8, 0.678)
pt3dadd(-45.894, 194.827, -3.8, 0.678)
pt3dadd(-45.997, 194.772, -3.8, 0.678)
pt3dadd(-46.117, 194.767, -3.8, 0.678)
pt3dadd(-46.237, 194.764, -3.8, 0.678)
pt3dadd(-46.354, 194.746, -3.8, 0.678)
pt3dadd(-46.466, 194.701, -3.8, 0.678)
pt3dadd(-46.577, 194.656, -3.8, 0.678)
pt3dadd(-46.688, 194.611, -3.8, 0.678)
pt3dadd(-46.779, 194.54, -3.8, 0.684)
pt3dadd(-46.847, 194.441, -3.8, 0.696)
pt3dadd(-46.909, 194.339, -3.8, 0.706)
pt3dadd(-46.957, 194.228, -3.8, 0.714)
pt3dadd(-47.005, 194.119, -3.8, 0.722)
pt3dadd(-47.04, 194.006, -3.8, 0.728)
pt3dadd(-47.04, 193.886, -3.8, 0.728)
pt3dadd(-47.04, 193.766, -3.8, 0.728)
pt3dadd(-47.04, 193.646, -3.8, 0.714)
pt3dadd(-47.04, 193.526, -3.8, 0.678)
pt3dadd(-47.04, 193.406, -3.8, 0.674)
pt3dadd(-47.04, 193.286, -3.8, 0.67)
pt3dadd(-47.04, 193.166, -3.8, 0.666)
pt3dadd(-47.04, 193.046, -3.8, 0.662)
pt3dadd(-47.04, 192.926, -3.8, 0.66)
pt3dadd(-47.04, 192.806, -3.8, 0.656)
pt3dadd(-47.046, 192.686, -3.8, 0.662)
pt3dadd(-47.066, 192.569, -3.8, 0.69)
pt3dadd(-47.087, 192.45, -3.8, 0.72)
pt3dadd(-47.149, 192.353, -3.8, 0.784)
pt3dadd(-47.231, 192.265, -3.8, 0.868)
pt3dadd(-47.282, 192.161, -3.8, 0.95)
pt3dadd(-47.308, 192.043, -3.8, 1.03)
pt3dadd(-47.34, 191.933, -3.8, 1.106)
pt3dadd(-47.458, 191.911, -3.8, 1.146)
pt3dadd(-47.576, 191.891, -3.8, 1.184)
pt3dadd(-47.695, 191.88, -3.8, 1.2)
pt3dadd(-47.815, 191.88, -3.8, 1.186)
pt3dadd(-47.933, 191.863, -3.8, 1.17)
pt3dadd(-48.047, 191.827, -3.8, 1.148)
pt3dadd(-48.162, 191.792, -3.8, 1.126)
pt3dadd(-48.276, 191.756, -3.8, 1.102)
pt3dadd(-48.391, 191.72, -3.8, 1.08)
pt3dadd(-48.505, 191.684, -3.8, 1.058)
pt3dadd(-48.604, 191.617, -3.8, 1.038)
pt3dadd(-48.7, 191.545, -3.8, 1.016)
pt3dadd(-48.796, 191.473, -3.8, 0.996)
pt3dadd(-48.892, 191.401, -3.8, 0.976)
pt3dadd(-48.988, 191.329, -3.8, 0.956)
pt3dadd(-49.101, 191.292, -3.8, 0.878)
pt3dadd(-49.22, 191.28, -3.8, 0.85)
pt3dadd(-49.34, 191.28, -3.8, 0.838)
pt3dadd(-49.46, 191.28, -3.8, 0.892)
pt3dadd(-49.58, 191.278, -3.8, 0.974)
pt3dadd(-49.696, 191.252, -3.8, 1.082)
pt3dadd(-49.775, 191.17, -3.8, 1.166)
pt3dadd(-49.8, 191.054, -3.811, 1.23)
pt3dadd(-49.8, 190.94, -3.841, 1.23)
pt3dadd(-49.808, 190.831, -3.88, 1.2)
pt3dadd(-49.841, 190.718, -3.9, 1.154)
pt3dadd(-49.889, 190.609, -3.9, 1.122)
pt3dadd(-49.914, 190.493, -3.906, 1.062)
pt3dadd(-49.92, 190.376, -3.929, 0.926)
pt3dadd(-49.92, 190.268, -3.972, 0.8)
pt3dadd(-49.927, 190.163, -4.018, 0.806)
pt3dadd(-49.967, 190.091, -4.087, 0.888)
pt3dadd(-50.024, 190.08, -4.174, 0.96)
pt3dadd(-50.093, 190.08, -4.255, 1.078)
pt3dadd(-50.198, 190.054, -4.294, 1.166)
pt3dadd(-50.307, 190.007, -4.3, 1.096)
pt3dadd(-50.421, 189.97, -4.301, 0.902)
pt3dadd(-50.53, 189.925, -4.32, 0.86)
pt3dadd(-50.639, 189.881, -4.339, 0.816)
pt3dadd(-50.748, 189.836, -4.357, 0.774)
pt3dadd(-50.857, 189.791, -4.376, 0.732)
pt3dadd(-50.967, 189.75, -4.397, 0.694)
pt3dadd(-51.077, 189.716, -4.426, 0.668)
pt3dadd(-51.187, 189.682, -4.454, 0.642)
pt3dadd(-51.297, 189.648, -4.482, 0.616)
pt3dadd(-51.407, 189.614, -4.51, 0.588)
pt3dadd(-51.522, 189.6, -4.529, 0.576)
pt3dadd(-51.641, 189.6, -4.542, 0.572)
pt3dadd(-51.76, 189.6, -4.554, 0.568)
pt3dadd(-51.879, 189.6, -4.567, 0.564)
pt3dadd(-51.998, 189.6, -4.579, 0.56)
pt3dadd(-52.117, 189.6, -4.591, 0.556)
pt3dadd(-52.236, 189.6, -4.604, 0.556)
pt3dadd(-52.355, 189.6, -4.619, 0.568)
pt3dadd(-52.474, 189.6, -4.633, 0.58)
pt3dadd(-52.593, 189.6, -4.648, 0.592)
pt3dadd(-52.711, 189.6, -4.662, 0.606)
pt3dadd(-52.83, 189.6, -4.676, 0.618)
pt3dadd(-52.948, 189.6, -4.693, 0.634)
pt3dadd(-53.061, 189.6, -4.726, 0.676)
pt3dadd(-53.175, 189.6, -4.759, 0.718)
pt3dadd(-53.282, 189.595, -4.803, 0.774)
pt3dadd(-53.388, 189.589, -4.85, 0.832)
pt3dadd(-53.475, 189.547, -4.903, 0.882)
pt3dadd(-53.552, 189.486, -4.961, 0.924)
pt3dadd(-53.641, 189.412, -4.982, 0.964)
pt3dadd(-53.731, 189.335, -5, 1.004)
pt3dadd(-53.816, 189.251, -5, 1.004)
pt3dadd(-53.907, 189.185, -5.025, 1.004)
pt3dadd(-54.001, 189.134, -5.07, 1.004)
pt3dadd(-54.096, 189.084, -5.115, 1.004)
pt3dadd(-54.191, 189.034, -5.159, 1.004)
pt3dadd(-54.287, 188.992, -5.206, 1)
pt3dadd(-54.388, 188.964, -5.255, 0.99)
pt3dadd(-54.489, 188.938, -5.304, 0.978)
pt3dadd(-54.59, 188.911, -5.354, 0.968)
pt3dadd(-54.691, 188.884, -5.403, 0.956)
pt3dadd(-54.78, 188.828, -5.45, 0.954)
pt3dadd(-54.867, 188.767, -5.495, 0.954)
pt3dadd(-54.955, 188.706, -5.541, 0.954)
pt3dadd(-55.042, 188.644, -5.587, 0.954)
pt3dadd(-55.141, 188.584, -5.6, 0.962)
pt3dadd(-55.244, 188.522, -5.6, 0.974)
pt3dadd(-55.348, 188.461, -5.6, 0.998)
pt3dadd(-55.451, 188.401, -5.6, 1.032)
pt3dadd(-55.545, 188.329, -5.6, 1.058)
pt3dadd(-55.62, 188.236, -5.6, 1.07)
pt3dadd(-55.689, 188.138, -5.6, 1.076)
pt3dadd(-55.736, 188.028, -5.6, 1.054)
pt3dadd(-55.782, 187.916, -5.6, 1.032)
pt3dadd(-55.793, 187.798, -5.6, 0.982)
pt3dadd(-55.8, 187.678, -5.6, 0.928)
pt3dadd(-55.805, 187.558, -5.6, 0.912)
pt3dadd(-55.809, 187.439, -5.6, 0.894)
pt3dadd(-55.822, 187.321, -5.6, 0.88)
pt3dadd(-55.89, 187.222, -5.6, 0.892)
pt3dadd(-55.958, 187.123, -5.6, 0.904)
pt3dadd(-56.072, 187.088, -5.6, 0.914)
pt3dadd(-56.187, 187.055, -5.6, 0.924)
pt3dadd(-56.301, 187.02, -5.608, 0.916)
pt3dadd(-56.413, 186.983, -5.624, 0.892)
pt3dadd(-56.524, 186.946, -5.646, 0.866)
pt3dadd(-56.633, 186.91, -5.676, 0.836)
pt3dadd(-56.741, 186.874, -5.706, 0.806)
pt3dadd(-56.843, 186.833, -5.74, 0.776)
pt3dadd(-56.871, 186.755, -5.811, 0.748)
pt3dadd(-56.903, 186.67, -5.875, 0.736)
pt3dadd(-56.969, 186.58, -5.904, 0.768)
pt3dadd(-57.053, 186.499, -5.93, 0.79)
pt3dadd(-57.136, 186.419, -5.956, 0.814)
pt3dadd(-57.22, 186.338, -5.981, 0.836)
pt3dadd(-57.31, 186.265, -6, 0.86)
pt3dadd(-57.417, 186.211, -6, 0.878)
pt3dadd(-57.524, 186.157, -6, 0.898)
pt3dadd(-57.632, 186.104, -6, 0.916)
pt3dadd(-57.739, 186.05, -6, 0.936)
pt3dadd(-57.846, 185.996, -6, 0.954)
pt3dadd(-57.944, 185.927, -6, 0.964)
pt3dadd(-58.042, 185.858, -6, 0.974)
pt3dadd(-58.14, 185.789, -6, 0.984)
pt3dadd(-58.239, 185.72, -6, 0.994)
pt3dadd(-58.338, 185.653, -6, 1.004)
pt3dadd(-58.457, 185.644, -6, 0.996)
pt3dadd(-58.577, 185.634, -6, 0.986)
pt3dadd(-58.694, 185.615, -6, 0.974)
pt3dadd(-58.805, 185.569, -6, 0.952)
pt3dadd(-58.915, 185.522, -6, 0.93)
pt3dadd(-59.01, 185.448, -6, 0.94)
pt3dadd(-59.103, 185.374, -6, 0.952)
pt3dadd(-59.147, 185.266, -6, 0.972)
pt3dadd(-59.18, 185.149, -6, 0.992)
pt3dadd(-59.23, 185.042, -6, 1.012)
pt3dadd(-59.305, 184.949, -6, 1.03)
pt3dadd(-59.389, 184.867, -6.02, 1.012)
pt3dadd(-59.474, 184.786, -6.04, 0.996)
pt3dadd(-59.558, 184.704, -6.06, 0.978)
pt3dadd(-59.643, 184.622, -6.08, 0.962)
pt3dadd(-59.723, 184.544, -6.114, 0.922)
pt3dadd(-59.799, 184.468, -6.158, 0.864)
pt3dadd(-59.909, 184.445, -6.178, 0.83)
pt3dadd(-60.027, 184.434, -6.191, 0.798)
pt3dadd(-60.134, 184.398, -6.2, 0.782)
pt3dadd(-60.215, 184.309, -6.2, 0.794)
pt3dadd(-60.287, 184.216, -6.2, 0.812)
pt3dadd(-60.32, 184.1, -6.2, 0.854)
pt3dadd(-60.353, 183.985, -6.2, 0.894)
pt3dadd(-60.36, 183.866, -6.2, 0.954)
pt3dadd(-60.36, 183.746, -6.2, 1.016)
pt3dadd(-60.372, 183.628, -6.203, 1.052)
pt3dadd(-60.388, 183.509, -6.208, 1.082)
pt3dadd(-60.41, 183.403, -6.227, 1.108)
pt3dadd(-60.462, 183.352, -6.307, 1.122)
pt3dadd(-60.521, 183.284, -6.365, 1.136)
pt3dadd(-60.592, 183.192, -6.388, 1.148)
pt3dadd(-60.669, 183.109, -6.419, 1.17)
pt3dadd(-60.751, 183.034, -6.457, 1.198)
pt3dadd(-60.849, 182.976, -6.486, 1.234)
}
}
proc shape3d_62() {
dend_5[18] { pt3dadd(-60.958, 182.933, -6.5, 1.254)
pt3dadd(-61.073, 182.899, -6.5, 1.25)
pt3dadd(-61.188, 182.867, -6.5, 1.244)
pt3dadd(-61.304, 182.833, -6.5, 1.24)
pt3dadd(-61.419, 182.801, -6.5, 1.236)
pt3dadd(-61.534, 182.767, -6.5, 1.232)
pt3dadd(-61.653, 182.76, -6.5, 1.218)
pt3dadd(-61.773, 182.76, -6.5, 1.2)
pt3dadd(-61.893, 182.76, -6.5, 1.184)
pt3dadd(-62.01, 182.76, -6.521, 1.156)
pt3dadd(-62.125, 182.76, -6.549, 1.126)
pt3dadd(-62.24, 182.758, -6.577, 1.104)
pt3dadd(-62.355, 182.753, -6.606, 1.104)
pt3dadd(-62.468, 182.743, -6.634, 1.104)
pt3dadd(-62.518, 182.644, -6.67, 1.078)
pt3dadd(-62.568, 182.542, -6.701, 1.054)
pt3dadd(-62.614, 182.431, -6.709, 1.054)
pt3dadd(-62.681, 182.335, -6.725, 1.05)
pt3dadd(-62.756, 182.245, -6.746, 1.046)
pt3dadd(-62.831, 182.155, -6.766, 1.04)
pt3dadd(-62.907, 182.064, -6.786, 1.034)
pt3dadd(-62.99, 181.982, -6.8, 1.032)
pt3dadd(-63.092, 181.919, -6.8, 1.042)
pt3dadd(-63.194, 181.856, -6.8, 1.052)
pt3dadd(-63.296, 181.793, -6.8, 1.062)
pt3dadd(-63.398, 181.73, -6.8, 1.072)
pt3dadd(-63.499, 181.666, -6.8, 1.08)
pt3dadd(-63.595, 181.594, -6.8, 1.08)
pt3dadd(-63.691, 181.522, -6.8, 1.08)
pt3dadd(-63.787, 181.45, -6.8, 1.08)
pt3dadd(-63.883, 181.378, -6.8, 1.08)
pt3dadd(-63.982, 181.309, -6.8, 1.08)
pt3dadd(-64.089, 181.255, -6.8, 1.08)
pt3dadd(-64.196, 181.202, -6.8, 1.08)
pt3dadd(-64.304, 181.148, -6.8, 1.08)
pt3dadd(-64.411, 181.094, -6.8, 1.08)
pt3dadd(-64.518, 181.04, -6.8, 1.08)
pt3dadd(-64.607, 180.961, -6.8, 1.07)
pt3dadd(-64.696, 180.88, -6.8, 1.06)
pt3dadd(-64.785, 180.799, -6.8, 1.05)
pt3dadd(-64.874, 180.719, -6.8, 1.04)
pt3dadd(-64.962, 180.637, -6.8, 1.03)
pt3dadd(-65.051, 180.557, -6.8, 1.02)
pt3dadd(-65.14, 180.476, -6.8, 1.01)
pt3dadd(-65.229, 180.396, -6.8, 0.998)
pt3dadd(-65.318, 180.314, -6.8, 0.988)
pt3dadd(-65.408, 180.236, -6.8, 0.978)
pt3dadd(-65.515, 180.182, -6.8, 0.954)
pt3dadd(-65.622, 180.128, -6.8, 0.93)
pt3dadd(-65.73, 180.076, -6.8, 0.906)
pt3dadd(-65.837, 180.022, -6.8, 0.882)
pt3dadd(-65.944, 179.968, -6.8, 0.858)
pt3dadd(-66.022, 179.878, -6.8, 0.828)
pt3dadd(-66.094, 179.782, -6.8, 0.798)
pt3dadd(-66.166, 179.686, -6.8, 0.768)
pt3dadd(-66.238, 179.59, -6.8, 0.738)
pt3dadd(-66.31, 179.494, -6.8, 0.708)
pt3dadd(-66.372, 179.392, -6.8, 0.654)
pt3dadd(-66.433, 179.288, -6.8, 0.596)
pt3dadd(-66.522, 179.213, -6.8, 0.586)
pt3dadd(-66.625, 179.153, -6.8, 0.596)
pt3dadd(-66.735, 179.105, -6.8, 0.628)
pt3dadd(-66.85, 179.071, -6.8, 0.678)
pt3dadd(-66.965, 179.04, -6.8, 0.73)
pt3dadd(-67.085, 179.04, -6.8, 0.78)
pt3dadd(-67.205, 179.04, -6.8, 0.832)
pt3dadd(-67.325, 179.04, -6.8, 0.88)
pt3dadd(-67.445, 179.04, -6.8, 0.892)
pt3dadd(-67.565, 179.039, -6.8, 0.902)
pt3dadd(-67.684, 179.023, -6.804, 0.874)
pt3dadd(-67.803, 179.009, -6.809, 0.844)
pt3dadd(-67.913, 178.98, -6.831, 0.792)
pt3dadd(-68.014, 178.937, -6.872, 0.71)
pt3dadd(-68.122, 178.898, -6.895, 0.65)
pt3dadd(-68.236, 178.862, -6.905, 0.606)
pt3dadd(-68.329, 178.824, -6.941, 0.578)
pt3dadd(-68.387, 178.78, -7.02, 0.578)
pt3dadd(-68.444, 178.705, -7.076, 0.634)
pt3dadd(-68.5, 178.607, -7.106, 0.732)
pt3dadd(-68.561, 178.505, -7.122, 0.822)
pt3dadd(-68.632, 178.418, -7.149, 0.914)
pt3dadd(-68.722, 178.358, -7.193, 1.012)
pt3dadd(-68.825, 178.33, -7.231, 1.08)
pt3dadd(-68.937, 178.324, -7.266, 1.124)
pt3dadd(-69.05, 178.309, -7.29, 1.162)
pt3dadd(-69.165, 178.274, -7.295, 1.184)
pt3dadd(-69.28, 178.24, -7.3, 1.206)
pt3dadd(-69.398, 178.217, -7.3, 1.176)
pt3dadd(-69.515, 178.193, -7.306, 1.15)
pt3dadd(-69.63, 178.17, -7.325, 1.136)
pt3dadd(-69.746, 178.147, -7.344, 1.122)
pt3dadd(-69.861, 178.123, -7.364, 1.108)
pt3dadd(-69.976, 178.1, -7.383, 1.092)
pt3dadd(-70.092, 178.078, -7.402, 1.078)
pt3dadd(-70.207, 178.055, -7.421, 1.054)
pt3dadd(-70.323, 178.031, -7.44, 1.028)
pt3dadd(-70.438, 178.008, -7.46, 1.004)
pt3dadd(-70.554, 177.985, -7.479, 0.98)
pt3dadd(-70.669, 177.962, -7.498, 0.956)
pt3dadd(-70.788, 177.958, -7.51, 0.94)
pt3dadd(-70.908, 177.956, -7.52, 0.924)
pt3dadd(-71.027, 177.954, -7.531, 0.908)
pt3dadd(-71.146, 177.952, -7.542, 0.892)
pt3dadd(-71.265, 177.949, -7.552, 0.876)
pt3dadd(-71.385, 177.948, -7.563, 0.86)
pt3dadd(-71.5, 177.934, -7.584, 0.84)
pt3dadd(-71.614, 177.912, -7.61, 0.82)
pt3dadd(-71.728, 177.89, -7.637, 0.8)
pt3dadd(-71.842, 177.869, -7.663, 0.782)
pt3dadd(-71.956, 177.848, -7.69, 0.762)
pt3dadd(-72.071, 177.827, -7.693, 0.75)
pt3dadd(-72.188, 177.805, -7.68, 0.746)
pt3dadd(-72.305, 177.782, -7.668, 0.742)
pt3dadd(-72.423, 177.761, -7.656, 0.736)
pt3dadd(-72.54, 177.739, -7.644, 0.732)
pt3dadd(-72.657, 177.72, -7.632, 0.73)
pt3dadd(-72.777, 177.72, -7.623, 0.74)
pt3dadd(-72.896, 177.72, -7.615, 0.75)
pt3dadd(-73.012, 177.72, -7.63, 0.772)
pt3dadd(-73.125, 177.72, -7.663, 0.804)
pt3dadd(-73.238, 177.721, -7.697, 0.832)
pt3dadd(-73.351, 177.727, -7.731, 0.842)
pt3dadd(-73.463, 177.733, -7.766, 0.854)
pt3dadd(-73.523, 177.826, -7.802, 0.854)
pt3dadd(-73.591, 177.908, -7.836, 0.852)
pt3dadd(-73.708, 177.922, -7.853, 0.846)
pt3dadd(-73.826, 177.936, -7.869, 0.84)
pt3dadd(-73.943, 177.949, -7.886, 0.834)
pt3dadd(-74.061, 177.956, -7.9, 0.828)
pt3dadd(-74.179, 177.936, -7.9, 0.828)
pt3dadd(-74.297, 177.916, -7.9, 0.828)
pt3dadd(-74.39, 177.852, -7.9, 0.85)
pt3dadd(-74.498, 177.804, -7.9, 0.858)
pt3dadd(-74.611, 177.762, -7.9, 0.862)
pt3dadd(-74.723, 177.721, -7.9, 0.866)
pt3dadd(-74.836, 177.679, -7.9, 0.872)
pt3dadd(-74.948, 177.637, -7.9, 0.876)
pt3dadd(-75.064, 177.612, -7.896, 0.882)
pt3dadd(-75.183, 177.611, -7.885, 0.89)
pt3dadd(-75.302, 177.608, -7.874, 0.898)
pt3dadd(-75.422, 177.606, -7.864, 0.906)
pt3dadd(-75.541, 177.604, -7.853, 0.914)
pt3dadd(-75.66, 177.602, -7.842, 0.922)
pt3dadd(-75.779, 177.596, -7.832, 0.93)
pt3dadd(-75.897, 177.576, -7.827, 0.93)
pt3dadd(-76.015, 177.554, -7.821, 0.93)
pt3dadd(-76.133, 177.534, -7.815, 0.93)
pt3dadd(-76.251, 177.514, -7.809, 0.93)
pt3dadd(-76.369, 177.492, -7.804, 0.93)
pt3dadd(-76.488, 177.48, -7.802, 0.928)
pt3dadd(-76.608, 177.48, -7.807, 0.924)
pt3dadd(-76.728, 177.48, -7.812, 0.92)
pt3dadd(-76.847, 177.48, -7.817, 0.916)
pt3dadd(-76.967, 177.48, -7.822, 0.912)
pt3dadd(-77.087, 177.48, -7.827, 0.908)
pt3dadd(-77.207, 177.48, -7.832, 0.906)
pt3dadd(-77.326, 177.48, -7.841, 0.902)
pt3dadd(-77.446, 177.48, -7.851, 0.898)
pt3dadd(-77.565, 177.48, -7.862, 0.894)
pt3dadd(-77.684, 177.48, -7.872, 0.89)
pt3dadd(-77.804, 177.48, -7.883, 0.886)
pt3dadd(-77.923, 177.48, -7.893, 0.882)
pt3dadd(-78.042, 177.48, -7.906, 0.878)
pt3dadd(-78.16, 177.48, -7.922, 0.878)
pt3dadd(-78.279, 177.48, -7.939, 0.878)
pt3dadd(-78.397, 177.48, -7.955, 0.878)
pt3dadd(-78.516, 177.48, -7.972, 0.878)
pt3dadd(-78.634, 177.48, -7.988, 0.878)
pt3dadd(-78.753, 177.479, -8, 0.88)
pt3dadd(-78.873, 177.473, -8, 0.888)
pt3dadd(-78.992, 177.467, -8, 0.896)
pt3dadd(-79.112, 177.461, -8, 0.904)
pt3dadd(-79.232, 177.455, -8, 0.912)
pt3dadd(-79.352, 177.449, -8, 0.918)
pt3dadd(-79.472, 177.443, -8, 0.926)
pt3dadd(-79.591, 177.432, -8.003, 0.926)
pt3dadd(-79.71, 177.419, -8.009, 0.922)
pt3dadd(-79.829, 177.406, -8.014, 0.918)
pt3dadd(-79.948, 177.392, -8.02, 0.914)
pt3dadd(-80.068, 177.379, -8.025, 0.91)
pt3dadd(-80.187, 177.366, -8.031, 0.906)
pt3dadd(-80.301, 177.36, -8.054, 0.896)
pt3dadd(-80.413, 177.36, -8.091, 0.882)
pt3dadd(-80.524, 177.36, -8.128, 0.868)
pt3dadd(-80.636, 177.36, -8.165, 0.854)
pt3dadd(-80.747, 177.36, -8.202, 0.84)
pt3dadd(-80.859, 177.36, -8.238, 0.826)
pt3dadd(-80.974, 177.36, -8.268, 0.808)
pt3dadd(-81.088, 177.36, -8.298, 0.79)
pt3dadd(-81.203, 177.36, -8.328, 0.772)
pt3dadd(-81.317, 177.36, -8.358, 0.754)
pt3dadd(-81.432, 177.36, -8.387, 0.736)
pt3dadd(-81.549, 177.356, -8.4, 0.724)
pt3dadd(-81.669, 177.35, -8.4, 0.716)
pt3dadd(-81.789, 177.344, -8.4, 0.708)
pt3dadd(-81.909, 177.338, -8.4, 0.702)
pt3dadd(-82.029, 177.332, -8.4, 0.694)
pt3dadd(-82.149, 177.326, -8.4, 0.686)
pt3dadd(-82.269, 177.32, -8.4, 0.678)
pt3dadd(-82.388, 177.308, -8.4, 0.682)
}
}
proc shape3d_63() {
dend_5[18] { pt3dadd(-82.507, 177.296, -8.4, 0.686)
pt3dadd(-82.627, 177.283, -8.4, 0.69)
pt3dadd(-82.746, 177.271, -8.4, 0.694)
pt3dadd(-82.865, 177.258, -8.4, 0.698)
pt3dadd(-82.985, 177.246, -8.4, 0.702)
pt3dadd(-83.104, 177.239, -8.4, 0.71)
pt3dadd(-83.224, 177.236, -8.4, 0.726)
pt3dadd(-83.344, 177.235, -8.4, 0.74)
pt3dadd(-83.464, 177.233, -8.4, 0.754)
pt3dadd(-83.584, 177.232, -8.4, 0.77)
pt3dadd(-83.704, 177.229, -8.4, 0.784)
pt3dadd(-83.824, 177.228, -8.4, 0.798)
pt3dadd(-83.939, 177.199, -8.401, 0.824)
pt3dadd(-84.051, 177.157, -8.403, 0.858)
pt3dadd(-84.164, 177.114, -8.406, 0.89)
pt3dadd(-84.276, 177.072, -8.408, 0.924)
pt3dadd(-84.388, 177.03, -8.41, 0.956)
pt3dadd(-84.502, 177, -8.416, 0.988)
pt3dadd(-84.621, 177, -8.432, 1.016)
pt3dadd(-84.739, 177, -8.449, 1.046)
pt3dadd(-84.857, 177, -8.465, 1.074)
pt3dadd(-84.976, 177, -8.482, 1.104)
pt3dadd(-85.094, 177, -8.498, 1.132)
pt3dadd(-85.211, 176.999, -8.519, 1.156)
pt3dadd(-85.323, 176.996, -8.554, 1.156)
pt3dadd(-85.436, 176.994, -8.589, 1.156)
pt3dadd(-85.548, 176.992, -8.625, 1.156)
pt3dadd(-85.66, 176.989, -8.66, 1.156)
pt3dadd(-85.772, 176.987, -8.695, 1.156)
pt3dadd(-85.89, 176.971, -8.7, 1.134)
pt3dadd(-86.009, 176.954, -8.7, 1.11)
pt3dadd(-86.128, 176.938, -8.7, 1.086)
pt3dadd(-86.246, 176.92, -8.7, 1.06)
pt3dadd(-86.365, 176.903, -8.7, 1.036)
pt3dadd(-86.484, 176.885, -8.7, 1.012)
pt3dadd(-86.604, 176.88, -8.7, 0.984)
pt3dadd(-86.724, 176.88, -8.7, 0.956)
pt3dadd(-86.844, 176.88, -8.7, 0.928)
pt3dadd(-86.964, 176.88, -8.7, 0.898)
pt3dadd(-87.084, 176.88, -8.7, 0.87)
pt3dadd(-87.204, 176.88, -8.7, 0.84)
pt3dadd(-87.324, 176.88, -8.7, 0.812)
pt3dadd(-87.444, 176.88, -8.7, 0.78)
pt3dadd(-87.564, 176.88, -8.7, 0.746)
pt3dadd(-87.684, 176.88, -8.7, 0.714)
pt3dadd(-87.804, 176.88, -8.7, 0.704)
pt3dadd(-87.924, 176.88, -8.7, 0.704)
pt3dadd(-88.044, 176.88, -8.7, 0.704)
pt3dadd(-88.155, 176.917, -8.7, 0.71)
pt3dadd(-88.262, 176.971, -8.7, 0.722)
pt3dadd(-88.354, 177.043, -8.7, 0.728)
pt3dadd(-88.429, 177.137, -8.7, 0.728)
pt3dadd(-88.517, 177.214, -8.7, 0.724)
pt3dadd(-88.629, 177.254, -8.7, 0.712)
pt3dadd(-88.742, 177.295, -8.7, 0.698)
pt3dadd(-88.855, 177.336, -8.7, 0.686)
pt3dadd(-88.971, 177.36, -8.7, 0.674)
pt3dadd(-89.091, 177.36, -8.7, 0.666)
pt3dadd(-89.211, 177.36, -8.7, 0.658)
pt3dadd(-89.331, 177.36, -8.7, 0.652)
pt3dadd(-89.451, 177.36, -8.7, 0.652)
pt3dadd(-89.571, 177.36, -8.7, 0.652)
pt3dadd(-89.691, 177.36, -8.7, 0.652)
pt3dadd(-89.811, 177.36, -8.7, 0.652)
pt3dadd(-89.931, 177.36, -8.7, 0.652)
pt3dadd(-90.051, 177.36, -8.7, 0.652)
pt3dadd(-90.171, 177.36, -8.7, 0.652)
pt3dadd(-90.29, 177.367, -8.701, 0.65)
pt3dadd(-90.409, 177.385, -8.703, 0.642)
pt3dadd(-90.528, 177.402, -8.704, 0.632)
pt3dadd(-90.646, 177.42, -8.706, 0.624)
pt3dadd(-90.765, 177.438, -8.708, 0.616)
pt3dadd(-90.884, 177.455, -8.71, 0.608)
pt3dadd(-90.998, 177.478, -8.726, 0.602)
pt3dadd(-91.103, 177.506, -8.767, 0.602)
pt3dadd(-91.208, 177.535, -8.809, 0.602)
pt3dadd(-91.313, 177.565, -8.85, 0.602)
pt3dadd(-91.419, 177.594, -8.892, 0.602)
pt3dadd(-91.534, 177.616, -8.9, 0.616)
pt3dadd(-91.653, 177.635, -8.9, 0.632)
pt3dadd(-91.771, 177.655, -8.9, 0.648)
pt3dadd(-91.889, 177.674, -8.9, 0.666)
pt3dadd(-92.008, 177.695, -8.9, 0.682)
pt3dadd(-92.126, 177.714, -8.9, 0.698)
pt3dadd(-92.246, 177.72, -8.901, 0.716)
pt3dadd(-92.366, 177.72, -8.903, 0.734)
pt3dadd(-92.486, 177.72, -8.904, 0.752)
pt3dadd(-92.606, 177.72, -8.906, 0.77)
pt3dadd(-92.725, 177.72, -8.908, 0.788)
pt3dadd(-92.845, 177.72, -8.909, 0.808)
pt3dadd(-92.965, 177.72, -8.911, 0.826)
pt3dadd(-93.082, 177.739, -8.925, 0.836)
pt3dadd(-93.198, 177.761, -8.942, 0.846)
pt3dadd(-93.314, 177.784, -8.959, 0.856)
pt3dadd(-93.431, 177.806, -8.975, 0.866)
pt3dadd(-93.547, 177.829, -8.992, 0.874)
pt3dadd(-93.656, 177.87, -9.01, 0.87)
pt3dadd(-93.76, 177.925, -9.03, 0.854)
pt3dadd(-93.864, 177.979, -9.049, 0.838)
pt3dadd(-93.969, 178.034, -9.068, 0.822)
pt3dadd(-94.073, 178.09, -9.088, 0.804)
pt3dadd(-94.164, 178.148, -9.129, 0.764)
pt3dadd(-94.25, 178.214, -9.169, 0.724)
pt3dadd(-94.319, 178.31, -9.186, 0.698)
pt3dadd(-94.397, 178.394, -9.2, 0.678)
pt3dadd(-94.51, 178.435, -9.2, 0.678)
pt3dadd(-94.623, 178.474, -9.2, 0.678)
pt3dadd(-94.739, 178.508, -9.2, 0.678)
pt3dadd(-94.854, 178.541, -9.2, 0.678)
pt3dadd(-94.97, 178.549, -9.2, 0.678)
pt3dadd(-95.087, 178.524, -9.2, 0.678)
pt3dadd(-95.205, 178.499, -9.2, 0.678)
pt3dadd(-95.322, 178.474, -9.2, 0.678)
pt3dadd(-95.439, 178.447, -9.2, 0.68)
pt3dadd(-95.556, 178.421, -9.2, 0.69)
pt3dadd(-95.673, 178.394, -9.2, 0.7)
pt3dadd(-95.745, 178.31, -9.2, 0.728)
pt3dadd(-95.813, 178.211, -9.2, 0.74)
pt3dadd(-95.88, 178.112, -9.2, 0.75)
pt3dadd(-95.985, 178.061, -9.2, 0.744)
pt3dadd(-96.098, 178.021, -9.2, 0.734)
pt3dadd(-96.214, 177.992, -9.206, 0.724)
pt3dadd(-96.331, 177.976, -9.22, 0.712)
pt3dadd(-96.449, 177.96, -9.235, 0.704)
pt3dadd(-96.564, 177.96, -9.263, 0.714)
pt3dadd(-96.68, 177.96, -9.29, 0.724)
pt3dadd(-96.798, 177.96, -9.3, 0.752)
pt3dadd(-96.918, 177.96, -9.3, 0.79)
pt3dadd(-97.031, 177.977, -9.323, 0.81)
pt3dadd(-97.141, 178.002, -9.358, 0.822)
pt3dadd(-97.25, 178.027, -9.393, 0.832)
pt3dadd(-97.36, 178.052, -9.428, 0.842)
pt3dadd(-97.469, 178.078, -9.463, 0.852)
pt3dadd(-97.583, 178.08, -9.493, 0.846)
pt3dadd(-97.698, 178.08, -9.523, 0.836)
pt3dadd(-97.812, 178.08, -9.553, 0.828)
pt3dadd(-97.927, 178.08, -9.583, 0.818)
pt3dadd(-98.041, 178.08, -9.613, 0.81)
pt3dadd(-98.157, 178.08, -9.637, 0.8)
pt3dadd(-98.277, 178.08, -9.647, 0.788)
pt3dadd(-98.396, 178.08, -9.657, 0.776)
pt3dadd(-98.515, 178.08, -9.668, 0.764)
pt3dadd(-98.635, 178.08, -9.679, 0.752)
pt3dadd(-98.754, 178.08, -9.689, 0.74)
pt3dadd(-98.873, 178.08, -9.699, 0.728)
pt3dadd(-98.989, 178.049, -9.7, 0.728)
pt3dadd(-99.104, 178.016, -9.7, 0.728)
pt3dadd(-99.22, 177.983, -9.7, 0.728)
pt3dadd(-99.335, 177.95, -9.7, 0.728)
pt3dadd(-99.45, 177.917, -9.7, 0.728)
pt3dadd(-99.566, 177.884, -9.7, 0.73)
pt3dadd(-99.682, 177.854, -9.7, 0.74)
pt3dadd(-99.798, 177.824, -9.7, 0.748)
pt3dadd(-99.915, 177.794, -9.7, 0.756)
pt3dadd(-100.031, 177.764, -9.7, 0.766)
pt3dadd(-100.147, 177.733, -9.7, 0.774)
pt3dadd(-100.264, 177.72, -9.693, 0.788)
pt3dadd(-100.384, 177.72, -9.681, 0.808)
pt3dadd(-100.503, 177.72, -9.668, 0.826)
pt3dadd(-100.619, 177.72, -9.643, 0.838)
pt3dadd(-100.734, 177.72, -9.616, 0.848)
pt3dadd(-100.851, 177.728, -9.6, 0.858)
pt3dadd(-100.969, 177.749, -9.6, 0.868)
pt3dadd(-101.087, 177.77, -9.6, 0.878)
pt3dadd(-101.175, 177.846, -9.6, 0.878)
pt3dadd(-101.256, 177.935, -9.6, 0.878)
pt3dadd(-101.34, 178.014, -9.624, 0.856)
pt3dadd(-101.424, 178.088, -9.657, 0.822)
pt3dadd(-101.509, 178.164, -9.69, 0.788)
pt3dadd(-101.608, 178.192, -9.733, 0.746)
pt3dadd(-101.714, 178.198, -9.78, 0.698)
pt3dadd(-101.828, 178.2, -9.8, 0.636)
pt3dadd(-101.946, 178.216, -9.8, 0.606)
pt3dadd(-102.063, 178.243, -9.8, 0.61)
pt3dadd(-102.18, 178.271, -9.8, 0.614)
pt3dadd(-102.297, 178.298, -9.8, 0.618)
pt3dadd(-102.413, 178.325, -9.8, 0.622)
pt3dadd(-102.53, 178.352, -9.8, 0.626)
pt3dadd(-102.646, 178.385, -9.8, 0.636)
pt3dadd(-102.761, 178.417, -9.8, 0.646)
pt3dadd(-102.877, 178.44, -9.791, 0.66)
pt3dadd(-102.992, 178.44, -9.764, 0.68)
pt3dadd(-103.107, 178.44, -9.736, 0.7)
pt3dadd(-103.21, 178.386, -9.718, 0.714)
pt3dadd(-103.312, 178.325, -9.701, 0.728)
pt3dadd(-103.376, 178.256, -9.641, 0.754)
pt3dadd(-103.428, 178.188, -9.574, 0.78)
pt3dadd(-103.436, 178.123, -9.49, 0.786)
pt3dadd(-103.443, 178.057, -9.407, 0.794)
pt3dadd(-103.451, 177.991, -9.323, 0.802)
pt3dadd(-103.527, 177.928, -9.304, 0.812)
pt3dadd(-103.628, 177.864, -9.309, 0.824)
pt3dadd(-103.738, 177.84, -9.328, 0.824)
pt3dadd(-103.854, 177.84, -9.356, 0.816)
pt3dadd(-103.969, 177.84, -9.383, 0.808)
pt3dadd(-104.082, 177.833, -9.414, 0.794)
pt3dadd(-104.192, 177.814, -9.452, 0.77)
pt3dadd(-104.273, 177.774, -9.5, 0.728)
pt3dadd(-104.345, 177.7, -9.532, 0.7)
pt3dadd(-104.442, 177.63, -9.547, 0.694)
}
}
proc shape3d_64() {
dend_5[18] { pt3dadd(-104.538, 177.562, -9.563, 0.688)
pt3dadd(-104.634, 177.492, -9.578, 0.682)
pt3dadd(-104.734, 177.43, -9.584, 0.676)
pt3dadd(-104.845, 177.389, -9.566, 0.672)
pt3dadd(-104.955, 177.347, -9.547, 0.666)
pt3dadd(-105.066, 177.306, -9.529, 0.662)
pt3dadd(-105.176, 177.264, -9.511, 0.656)
pt3dadd(-105.289, 177.227, -9.5, 0.65)
pt3dadd(-105.405, 177.197, -9.5, 0.64)
pt3dadd(-105.521, 177.167, -9.5, 0.632)
pt3dadd(-105.637, 177.137, -9.5, 0.624)
pt3dadd(-105.753, 177.107, -9.5, 0.614)
pt3dadd(-105.869, 177.077, -9.5, 0.606)
pt3dadd(-105.984, 177.042, -9.5, 0.596)
pt3dadd(-106.099, 177.006, -9.5, 0.588)
pt3dadd(-106.214, 176.971, -9.5, 0.578)
pt3dadd(-106.328, 176.935, -9.5, 0.57)
pt3dadd(-106.443, 176.899, -9.5, 0.56)
pt3dadd(-106.557, 176.863, -9.5, 0.552)
pt3dadd(-106.67, 176.824, -9.5, 0.552)
pt3dadd(-106.784, 176.784, -9.5, 0.552)
pt3dadd(-106.902, 176.773, -9.5, 0.572)
pt3dadd(-107.022, 176.773, -9.5, 0.6)
pt3dadd(-107.142, 176.773, -9.5, 0.626)
pt3dadd(-107.227, 176.824, -9.554, 0.682)
pt3dadd(-107.307, 176.868, -9.616, 0.736)
pt3dadd(-107.378, 176.874, -9.697, 0.772)
pt3dadd(-107.455, 176.884, -9.77, 0.802)
pt3dadd(-107.568, 176.912, -9.793, 0.784)
pt3dadd(-107.682, 176.945, -9.803, 0.756)
pt3dadd(-107.797, 176.978, -9.808, 0.722)
pt3dadd(-107.901, 177, -9.838, 0.69)
pt3dadd(-107.989, 177, -9.906, 0.654)
pt3dadd(-108.085, 177, -9.96, 0.628)
pt3dadd(-108.203, 177, -9.977, 0.628)
pt3dadd(-108.322, 177, -9.994, 0.628)
pt3dadd(-108.438, 177.004, -9.981, 0.636)
pt3dadd(-108.552, 177.01, -9.952, 0.646)
pt3dadd(-108.65, 177.034, -9.91, 0.652)
pt3dadd(-108.721, 177.084, -9.842, 0.648)
pt3dadd(-108.797, 177.104, -9.766, 0.622)
pt3dadd(-108.883, 177.12, -9.719, 0.594)
pt3dadd(-108.998, 177.12, -9.749, 0.56)
pt3dadd(-109.11, 177.118, -9.781, 0.524)
pt3dadd(-109.186, 177.073, -9.85, 0.482)
pt3dadd(-109.261, 177.022, -9.914, 0.444)
pt3dadd(-109.337, 176.952, -9.965, 0.416)
pt3dadd(-109.434, 176.902, -9.993, 0.402)
pt3dadd(-109.548, 176.866, -10, 0.402)
pt3dadd(-109.654, 176.813, -10.017, 0.428)
pt3dadd(-109.76, 176.76, -10.033, 0.452)
pt3dadd(-109.849, 176.693, -10.071, 0.48)
pt3dadd(-109.942, 176.629, -10.1, 0.504)
pt3dadd(-110.05, 176.575, -10.1, 0.516)
pt3dadd(-110.156, 176.521, -10.1, 0.526)
pt3dadd(-110.248, 176.462, -10.058, 0.54)
pt3dadd(-110.333, 176.396, -10.015, 0.554)
pt3dadd(-110.398, 176.308, -9.976, 0.562)
pt3dadd(-110.464, 176.219, -9.937, 0.572)
pt3dadd(-110.534, 176.137, -9.926, 0.578)
pt3dadd(-110.618, 176.069, -9.97, 0.578)
pt3dadd(-110.717, 176.032, -10.012, 0.572)
pt3dadd(-110.826, 176.017, -10.051, 0.564)
pt3dadd(-110.935, 176.003, -10.091, 0.554)
pt3dadd(-111.034, 175.966, -10.138, 0.562)
pt3dadd(-111.128, 175.922, -10.186, 0.576)
pt3dadd(-111.247, 175.92, -10.183, 0.604)
pt3dadd(-111.367, 175.92, -10.177, 0.632)
pt3dadd(-111.487, 175.92, -10.17, 0.66)
pt3dadd(-111.6, 175.937, -10.153, 0.698)
pt3dadd(-111.704, 175.978, -10.118, 0.75)
pt3dadd(-111.815, 176.016, -10.1, 0.794)
pt3dadd(-111.931, 176.028, -10.114, 0.792)
pt3dadd(-112.049, 176.03, -10.135, 0.774)
pt3dadd(-112.165, 176.033, -10.156, 0.758)
pt3dadd(-112.283, 176.035, -10.177, 0.74)
pt3dadd(-112.4, 176.038, -10.198, 0.722)
pt3dadd(-112.518, 176.04, -10.219, 0.706)
pt3dadd(-112.632, 176.042, -10.248, 0.684)
pt3dadd(-112.746, 176.045, -10.279, 0.66)
pt3dadd(-112.861, 176.047, -10.309, 0.638)
pt3dadd(-112.975, 176.05, -10.34, 0.614)
pt3dadd(-113.089, 176.052, -10.37, 0.592)
pt3dadd(-113.202, 176.07, -10.395, 0.57)
pt3dadd(-113.312, 176.114, -10.411, 0.548)
pt3dadd(-113.422, 176.158, -10.427, 0.528)
pt3dadd(-113.532, 176.202, -10.443, 0.508)
pt3dadd(-113.642, 176.246, -10.459, 0.486)
pt3dadd(-113.749, 176.297, -10.458, 0.478)
pt3dadd(-113.852, 176.353, -10.443, 0.478)
pt3dadd(-113.957, 176.411, -10.427, 0.478)
pt3dadd(-114.061, 176.467, -10.411, 0.478)
pt3dadd(-114.168, 176.516, -10.4, 0.486)
pt3dadd(-114.283, 176.55, -10.4, 0.518)
pt3dadd(-114.384, 176.611, -10.4, 0.528)
pt3dadd(-114.478, 176.687, -10.4, 0.518)
pt3dadd(-114.582, 176.741, -10.409, 0.482)
pt3dadd(-114.678, 176.756, -10.46, 0.452)
pt3dadd(-114.728, 176.725, -10.546, 0.452)
pt3dadd(-114.796, 176.645, -10.568, 0.382)
pt3dadd(-114.865, 176.575, -10.512, 0.27)
pt3dadd(-114.941, 176.504, -10.468, 0.254)
pt3dadd(-115.036, 176.434, -10.474, 0.266)
pt3dadd(-115.132, 176.362, -10.479, 0.28)
pt3dadd(-115.228, 176.29, -10.485, 0.292)
pt3dadd(-115.32, 176.213, -10.491, 0.314)
pt3dadd(-115.405, 176.129, -10.496, 0.35)
pt3dadd(-115.489, 176.046, -10.51, 0.388)
pt3dadd(-115.571, 175.972, -10.548, 0.43)
pt3dadd(-115.672, 175.931, -10.571, 0.466)
pt3dadd(-115.792, 175.925, -10.58, 0.498)
pt3dadd(-115.91, 175.92, -10.588, 0.528)
pt3dadd(-116.023, 175.914, -10.553, 0.562)
pt3dadd(-116.135, 175.908, -10.519, 0.596)
pt3dadd(-116.207, 175.825, -10.509, 0.614)
pt3dadd(-116.266, 175.721, -10.506, 0.628)
pt3dadd(-116.326, 175.618, -10.503, 0.642)
pt3dadd(-116.393, 175.52, -10.5, 0.658)
pt3dadd(-116.491, 175.452, -10.5, 0.68)
pt3dadd(-116.588, 175.384, -10.499, 0.704)
pt3dadd(-116.641, 175.28, -10.476, 0.73)
pt3dadd(-116.68, 175.174, -10.441, 0.736)
pt3dadd(-116.718, 175.068, -10.407, 0.742)
pt3dadd(-116.756, 174.962, -10.373, 0.746)
pt3dadd(-116.795, 174.856, -10.338, 0.752)
pt3dadd(-116.838, 174.784, -10.27, 0.73)
pt3dadd(-116.88, 174.714, -10.198, 0.702)
pt3dadd(-116.88, 174.607, -10.153, 0.68)
pt3dadd(-116.88, 174.499, -10.108, 0.656)
pt3dadd(-116.88, 174.382, -10.1, 0.64)
pt3dadd(-116.88, 174.262, -10.1, 0.622)
pt3dadd(-116.88, 174.142, -10.1, 0.606)
pt3dadd(-116.93, 174.035, -10.1, 0.612)
pt3dadd(-116.99, 173.932, -10.1, 0.624)
pt3dadd(-117.088, 173.88, -10.1, 0.636)
pt3dadd(-117.205, 173.858, -10.1, 0.646)
pt3dadd(-117.324, 173.837, -10.1, 0.658)
pt3dadd(-117.442, 173.814, -10.1, 0.67)
pt3dadd(-117.559, 173.789, -10.1, 0.686)
pt3dadd(-117.674, 173.756, -10.1, 0.706)
pt3dadd(-117.79, 173.723, -10.1, 0.726)
pt3dadd(-117.894, 173.666, -10.1, 0.726)
pt3dadd(-117.982, 173.585, -10.103, 0.716)
pt3dadd(-118.069, 173.502, -10.105, 0.706)
pt3dadd(-118.157, 173.42, -10.107, 0.696)
pt3dadd(-118.244, 173.339, -10.109, 0.686)
pt3dadd(-118.337, 173.266, -10.117, 0.674)
pt3dadd(-118.444, 173.214, -10.136, 0.664)
pt3dadd(-118.549, 173.162, -10.155, 0.654)
pt3dadd(-118.655, 173.111, -10.174, 0.642)
pt3dadd(-118.76, 173.059, -10.193, 0.632)
pt3dadd(-118.874, 173.04, -10.21, 0.628)
pt3dadd(-118.993, 173.04, -10.227, 0.628)
pt3dadd(-119.111, 173.04, -10.243, 0.628)
pt3dadd(-119.23, 173.04, -10.26, 0.628)
pt3dadd(-119.348, 173.04, -10.276, 0.628)
pt3dadd(-119.466, 173.04, -10.293, 0.628)
pt3dadd(-119.585, 173.04, -10.294, 0.63)
pt3dadd(-119.705, 173.04, -10.284, 0.634)
pt3dadd(-119.824, 173.04, -10.273, 0.638)
pt3dadd(-119.944, 173.04, -10.263, 0.642)
pt3dadd(-120.062, 173.04, -10.252, 0.646)
pt3dadd(-120.182, 173.04, -10.242, 0.65)
pt3dadd(-120.3, 173.034, -10.228, 0.652)
pt3dadd(-120.409, 173, -10.2, 0.646)
pt3dadd(-120.52, 172.967, -10.172, 0.642)
pt3dadd(-120.63, 172.932, -10.144, 0.636)
pt3dadd(-120.74, 172.898, -10.115, 0.63)
pt3dadd(-120.847, 172.861, -10.116, 0.61)
pt3dadd(-120.952, 172.819, -10.151, 0.57)
pt3dadd(-121.061, 172.78, -10.175, 0.528)
pt3dadd(-121.174, 172.742, -10.191, 0.48)
pt3dadd(-121.285, 172.709, -10.187, 0.448)
pt3dadd(-121.396, 172.684, -10.154, 0.434)
pt3dadd(-121.49, 172.633, -10.127, 0.432)
pt3dadd(-121.56, 172.536, -10.11, 0.444)
pt3dadd(-121.634, 172.445, -10.1, 0.474)
pt3dadd(-121.72, 172.36, -10.1, 0.528)
pt3dadd(-121.799, 172.288, -10.054, 0.54)
pt3dadd(-121.877, 172.217, -10.007, 0.552)
pt3dadd(-121.955, 172.145, -9.961, 0.564)
pt3dadd(-122.034, 172.073, -9.915, 0.576)
pt3dadd(-122.138, 172.031, -9.884, 0.584)
pt3dadd(-122.246, 171.991, -9.854, 0.59)
pt3dadd(-122.353, 171.952, -9.824, 0.598)
pt3dadd(-122.464, 171.917, -9.8, 0.602)
pt3dadd(-122.581, 171.896, -9.8, 0.602)
pt3dadd(-122.7, 171.876, -9.8, 0.606)
pt3dadd(-122.819, 171.856, -9.8, 0.626)
pt3dadd(-122.936, 171.835, -9.8, 0.644)
pt3dadd(-123.041, 171.793, -9.821, 0.668)
pt3dadd(-123.137, 171.734, -9.858, 0.696)
pt3dadd(-123.194, 171.637, -9.879, 0.712)
pt3dadd(-123.239, 171.528, -9.895, 0.724)
pt3dadd(-123.323, 171.45, -9.904, 0.704)
pt3dadd(-123.425, 171.386, -9.909, 0.668)
pt3dadd(-123.533, 171.371, -9.929, 0.57)
pt3dadd(-123.618, 171.425, -9.977, 0.514)
pt3dadd(-123.68, 171.522, -10, 0.604)
pt3dadd(-123.686, 171.641, -10, 0.616)
}
}
proc shape3d_65() {
dend_5[18] { pt3dadd(-123.661, 171.757, -10, 0.574)
pt3dadd(-123.631, 171.874, -10, 0.53)
pt3dadd(-123.649, 171.972, -9.994, 0.482)
pt3dadd(-123.745, 172.042, -9.976, 0.43)
pt3dadd(-123.848, 172.084, -9.95, 0.372)
pt3dadd(-123.959, 172.093, -9.912, 0.302)
pt3dadd(-124.069, 172.135, -9.9, 0.242)
pt3dadd(-124.181, 172.177, -9.9, 0.226)
pt3dadd(-124.3, 172.187, -9.9, 0.25)
pt3dadd(-124.412, 172.15, -9.9, 0.316)
pt3dadd(-124.506, 172.075, -9.9, 0.406)
pt3dadd(-124.594, 171.995, -9.886, 0.484)
pt3dadd(-124.661, 171.918, -9.84, 0.586)
pt3dadd(-124.68, 171.808, -9.809, 0.688)
pt3dadd(-124.68, 171.688, -9.803, 0.728)
pt3dadd(-124.697, 171.572, -9.818, 0.722)
pt3dadd(-124.741, 171.463, -9.837, 0.706)
pt3dadd(-124.786, 171.355, -9.855, 0.69)
pt3dadd(-124.831, 171.246, -9.874, 0.676)
pt3dadd(-124.876, 171.137, -9.893, 0.66)
pt3dadd(-124.938, 171.043, -9.877, 0.61)
pt3dadd(-125.014, 170.962, -9.84, 0.54)
pt3dadd(-125.035, 170.849, -9.822, 0.494)
pt3dadd(-125.046, 170.731, -9.809, 0.454)
pt3dadd(-125.069, 170.615, -9.8, 0.42)
pt3dadd(-125.116, 170.504, -9.8, 0.398)
pt3dadd(-125.166, 170.398, -9.8, 0.378)
pt3dadd(-125.278, 170.353, -9.8, 0.392)
pt3dadd(-125.382, 170.34, -9.808, 0.402)
pt3dadd(-125.465, 170.419, -9.839, 0.402)
pt3dadd(-125.548, 170.497, -9.87, 0.402)
pt3dadd(-125.635, 170.566, -9.873, 0.396)
pt3dadd(-125.731, 170.617, -9.83, 0.382)
pt3dadd(-125.837, 170.64, -9.794, 0.364)
pt3dadd(-125.95, 170.64, -9.762, 0.34)
pt3dadd(-126.064, 170.64, -9.73, 0.316)
pt3dadd(-126.18, 170.64, -9.71, 0.294)
pt3dadd(-126.3, 170.64, -9.706, 0.278)
pt3dadd(-126.42, 170.64, -9.702, 0.26)
pt3dadd(-126.535, 170.616, -9.7, 0.252)
pt3dadd(-126.644, 170.568, -9.7, 0.252)
pt3dadd(-126.755, 170.519, -9.7, 0.252)
pt3dadd(-126.859, 170.462, -9.7, 0.262)
pt3dadd(-126.958, 170.394, -9.7, 0.286)
pt3dadd(-127.043, 170.314, -9.7, 0.322)
pt3dadd(-127.097, 170.207, -9.7, 0.354)
pt3dadd(-127.151, 170.099, -9.7, 0.36)
pt3dadd(-127.204, 169.992, -9.7, 0.364)
pt3dadd(-127.258, 169.884, -9.7, 0.368)
pt3dadd(-127.312, 169.777, -9.7, 0.374)
pt3dadd(-127.368, 169.672, -9.7, 0.38)
pt3dadd(-127.428, 169.567, -9.7, 0.392)
pt3dadd(-127.487, 169.464, -9.705, 0.406)
pt3dadd(-127.528, 169.36, -9.74, 0.432)
pt3dadd(-127.566, 169.253, -9.77, 0.458)
pt3dadd(-127.589, 169.136, -9.785, 0.48)
pt3dadd(-127.612, 169.02, -9.799, 0.502)
pt3dadd(-127.71, 168.953, -9.795, 0.49)
pt3dadd(-127.811, 168.889, -9.79, 0.478)
pt3dadd(-127.918, 168.88, -9.751, 0.44)
pt3dadd(-128.024, 168.887, -9.709, 0.39)
pt3dadd(-128.131, 168.937, -9.693, 0.326)
pt3dadd(-128.243, 168.961, -9.665, 0.378)
pt3dadd(-128.345, 168.989, -9.62, 0.388)
pt3dadd(-128.441, 169.043, -9.584, 0.298)
pt3dadd(-128.551, 169.062, -9.546, 0.274)
pt3dadd(-128.66, 169.08, -9.511, 0.25)
pt3dadd(-128.78, 169.08, -9.507, 0.242)
pt3dadd(-128.9, 169.08, -9.503, 0.234)
pt3dadd(-129.018, 169.07, -9.5, 0.228)
pt3dadd(-129.126, 169.018, -9.5, 0.24)
pt3dadd(-129.233, 168.964, -9.5, 0.25)
pt3dadd(-129.337, 168.904, -9.5, 0.272)
pt3dadd(-129.44, 168.842, -9.5, 0.296)
pt3dadd(-129.533, 168.768, -9.506, 0.358)
pt3dadd(-129.61, 168.679, -9.519, 0.412)
pt3dadd(-129.668, 168.577, -9.538, 0.44)
pt3dadd(-129.727, 168.475, -9.558, 0.468)
pt3dadd(-129.785, 168.372, -9.577, 0.496)
pt3dadd(-129.844, 168.27, -9.597, 0.522)
pt3dadd(-129.924, 168.182, -9.598, 0.544)
pt3dadd(-130.009, 168.097, -9.596, 0.566)
pt3dadd(-130.094, 168.013, -9.594, 0.586)
pt3dadd(-130.178, 167.928, -9.591, 0.606)
pt3dadd(-130.264, 167.843, -9.589, 0.628)
pt3dadd(-130.372, 167.802, -9.564, 0.638)
pt3dadd(-130.48, 167.761, -9.538, 0.648)
pt3dadd(-130.589, 167.722, -9.511, 0.66)
pt3dadd(-130.697, 167.681, -9.485, 0.67)
pt3dadd(-130.806, 167.639, -9.462, 0.674)
pt3dadd(-130.914, 167.588, -9.449, 0.664)
pt3dadd(-131.022, 167.539, -9.435, 0.654)
pt3dadd(-131.13, 167.489, -9.421, 0.644)
pt3dadd(-131.237, 167.44, -9.407, 0.634)
pt3dadd(-131.348, 167.401, -9.389, 0.626)
pt3dadd(-131.462, 167.374, -9.367, 0.62)
pt3dadd(-131.576, 167.347, -9.345, 0.616)
pt3dadd(-131.69, 167.321, -9.323, 0.61)
pt3dadd(-131.804, 167.294, -9.301, 0.606)
pt3dadd(-131.921, 167.28, -9.289, 0.6)
pt3dadd(-132.041, 167.28, -9.289, 0.596)
pt3dadd(-132.161, 167.28, -9.289, 0.59)
pt3dadd(-132.281, 167.28, -9.289, 0.586)
pt3dadd(-132.401, 167.28, -9.289, 0.582)
pt3dadd(-132.52, 167.27, -9.29, 0.578)
pt3dadd(-132.631, 167.227, -9.294, 0.584)
pt3dadd(-132.743, 167.184, -9.298, 0.588)
pt3dadd(-132.854, 167.141, -9.303, 0.594)
pt3dadd(-132.966, 167.098, -9.307, 0.598)
pt3dadd(-133.078, 167.054, -9.311, 0.602)
pt3dadd(-133.184, 167.003, -9.33, 0.602)
pt3dadd(-133.29, 166.951, -9.349, 0.602)
pt3dadd(-133.396, 166.9, -9.368, 0.602)
pt3dadd(-133.502, 166.848, -9.387, 0.602)
pt3dadd(-133.606, 166.801, -9.415, 0.602)
pt3dadd(-133.706, 166.765, -9.461, 0.602)
pt3dadd(-133.807, 166.728, -9.506, 0.602)
pt3dadd(-133.907, 166.692, -9.552, 0.602)
pt3dadd(-134.008, 166.656, -9.597, 0.602)
pt3dadd(-134.112, 166.598, -9.602, 0.608)
pt3dadd(-134.218, 166.541, -9.604, 0.612)
pt3dadd(-134.322, 166.483, -9.606, 0.618)
pt3dadd(-134.428, 166.426, -9.609, 0.622)
pt3dadd(-134.533, 166.368, -9.611, 0.628)
pt3dadd(-134.646, 166.336, -9.626, 0.628)
pt3dadd(-134.761, 166.307, -9.644, 0.628)
pt3dadd(-134.875, 166.278, -9.661, 0.628)
pt3dadd(-134.99, 166.249, -9.678, 0.628)
pt3dadd(-135.104, 166.22, -9.696, 0.628)
pt3dadd(-135.223, 166.21, -9.696, 0.624)
pt3dadd(-135.343, 166.206, -9.691, 0.622)
pt3dadd(-135.463, 166.202, -9.686, 0.618)
pt3dadd(-135.583, 166.198, -9.681, 0.614)
pt3dadd(-135.702, 166.194, -9.675, 0.61)
pt3dadd(-135.822, 166.189, -9.67, 0.606)
pt3dadd(-135.936, 166.172, -9.656, 0.59)
pt3dadd(-136.037, 166.122, -9.62, 0.55)
pt3dadd(-136.145, 166.093, -9.606, 0.522)
pt3dadd(-136.264, 166.093, -9.619, 0.512)
pt3dadd(-136.382, 166.093, -9.633, 0.502)
pt3dadd(-136.435, 166.19, -9.668, 0.502)
pt3dadd(-136.488, 166.289, -9.698, 0.502)
pt3dadd(-136.572, 166.372, -9.681, 0.502)
pt3dadd(-136.657, 166.453, -9.662, 0.5)
pt3dadd(-136.747, 166.526, -9.637, 0.482)
pt3dadd(-136.837, 166.6, -9.612, 0.466)
pt3dadd(-136.928, 166.666, -9.585, 0.45)
pt3dadd(-137.034, 166.651, -9.538, 0.424)
pt3dadd(-137.125, 166.631, -9.484, 0.398)
pt3dadd(-137.156, 166.579, -9.398, 0.378)
pt3dadd(-137.16, 166.56, -9.3, 0.346)
pt3dadd(-137.16, 166.56, -9.2, 0.302)
}
dend_5[19] {pt3dclear()
pt3dadd(2.693, 204.2, 0.289, 1.506)
pt3dadd(2.648, 204.155, 0.229, 1.472)
pt3dadd(2.592, 204.1, 0.154, 1.43)
pt3dadd(2.552, 204.017, 0.103, 1.368)
pt3dadd(2.535, 203.9, 0.083, 1.28)
pt3dadd(2.512, 203.786, 0.063, 1.198)
pt3dadd(2.454, 203.686, 0.037, 1.138)
pt3dadd(2.396, 203.586, 0.01, 1.078)
pt3dadd(2.332, 203.486, 0, 1.04)
pt3dadd(2.264, 203.388, 0, 1.018)
pt3dadd(2.185, 203.304, -0.014, 1.014)
pt3dadd(2.092, 203.238, -0.046, 1.034)
pt3dadd(2, 203.172, -0.079, 1.056)
pt3dadd(1.955, 203.098, -0.147, 1.098)
pt3dadd(1.92, 203.018, -0.214, 1.154)
pt3dadd(1.884, 202.938, -0.274, 1.214)
pt3dadd(1.815, 202.868, -0.332, 1.234)
pt3dadd(1.746, 202.799, -0.39, 1.252)
pt3dadd(1.677, 202.729, -0.448, 1.272)
pt3dadd(1.597, 202.674, -0.504, 1.286)
pt3dadd(1.505, 202.633, -0.559, 1.298)
pt3dadd(1.414, 202.592, -0.614, 1.31)
pt3dadd(1.322, 202.552, -0.669, 1.322)
pt3dadd(1.238, 202.507, -0.729, 1.332)
pt3dadd(1.177, 202.452, -0.801, 1.338)
pt3dadd(1.115, 202.397, -0.874, 1.344)
pt3dadd(1.054, 202.342, -0.947, 1.35)
pt3dadd(0.992, 202.286, -1.018, 1.354)
pt3dadd(0.923, 202.225, -1.082, 1.34)
pt3dadd(0.854, 202.166, -1.148, 1.32)
pt3dadd(0.786, 202.114, -1.218, 1.292)
pt3dadd(0.75, 202.09, -1.305, 1.262)
pt3dadd(0.735, 202.085, -1.405, 1.234)
pt3dadd(0.719, 202.08, -1.503, 1.204)
pt3dadd(0.699, 202.08, -1.602, 1.176)
pt3dadd(0.679, 202.08, -1.701, 1.146)
pt3dadd(0.64, 202.063, -1.791, 1.12)
pt3dadd(0.579, 202.024, -1.87, 1.094)
pt3dadd(0.518, 201.984, -1.95, 1.07)
pt3dadd(0.48, 201.935, -2.031, 1.042)
pt3dadd(0.48, 201.866, -2.113, 1.006)
pt3dadd(0.48, 201.793, -2.191, 0.972)
pt3dadd(0.466, 201.708, -2.26, 0.952)
pt3dadd(0.439, 201.632, -2.333, 0.946)
pt3dadd(0.411, 201.556, -2.407, 0.94)
pt3dadd(0.384, 201.479, -2.481, 0.934)
pt3dadd(0.357, 201.409, -2.557, 0.928)
pt3dadd(0.333, 201.377, -2.651, 0.924)
}
}
proc shape3d_66() {
dend_5[19] { pt3dadd(0.308, 201.344, -2.746, 0.918)
pt3dadd(0.284, 201.312, -2.84, 0.914)
pt3dadd(0.26, 201.28, -2.934, 0.908)
pt3dadd(0.245, 201.25, -3.029, 0.9)
pt3dadd(0.27, 201.23, -3.125, 0.872)
pt3dadd(0.295, 201.21, -3.221, 0.846)
pt3dadd(0.321, 201.191, -3.317, 0.82)
pt3dadd(0.346, 201.17, -3.414, 0.792)
pt3dadd(0.387, 201.2, -3.486, 0.74)
pt3dadd(0.447, 201.29, -3.53, 0.656)
pt3dadd(0.471, 201.306, -3.61, 0.576)
pt3dadd(0.478, 201.286, -3.708, 0.496)
pt3dadd(0.48, 201.256, -3.805, 0.446)
pt3dadd(0.48, 201.222, -3.901, 0.404)
pt3dadd(0.48, 201.182, -3.995, 0.37)
pt3dadd(0.48, 201.13, -4.085, 0.346)
pt3dadd(0.48, 201.076, -4.174, 0.324)
pt3dadd(0.48, 201.022, -4.264, 0.29)
pt3dadd(0.476, 200.946, -4.339, 0.276)
pt3dadd(0.47, 200.855, -4.404, 0.276)
pt3dadd(0.439, 200.785, -4.477, 0.276)
pt3dadd(0.387, 200.734, -4.556, 0.276)
pt3dadd(0.369, 200.68, -4.642, 0.284)
pt3dadd(0.363, 200.623, -4.73, 0.296)
pt3dadd(0.372, 200.58, -4.822, 0.294)
pt3dadd(0.391, 200.546, -4.917, 0.282)
pt3dadd(0.433, 200.567, -5, 0.264)
pt3dadd(0.471, 200.594, -5.084, 0.252)
pt3dadd(0.481, 200.579, -5.183, 0.252)
pt3dadd(0.491, 200.563, -5.282, 0.252)
pt3dadd(0.501, 200.549, -5.381, 0.252)
pt3dadd(0.511, 200.533, -5.479, 0.252)
pt3dadd(0.521, 200.514, -5.577, 0.252)
pt3dadd(0.53, 200.46, -5.666, 0.264)
pt3dadd(0.539, 200.407, -5.755, 0.274)
pt3dadd(0.548, 200.353, -5.845, 0.286)
pt3dadd(0.557, 200.299, -5.934, 0.298)
pt3dadd(0.521, 200.267, -6.02, 0.374)
pt3dadd(0.486, 200.22, -6.106, 0.44)
pt3dadd(0.48, 200.164, -6.194, 0.452)
pt3dadd(0.48, 200.106, -6.281, 0.452)
pt3dadd(0.47, 200.027, -6.355, 0.434)
pt3dadd(0.428, 199.926, -6.392, 0.362)
pt3dadd(0.371, 199.822, -6.4, 0.326)
pt3dadd(0.317, 199.715, -6.399, 0.382)
pt3dadd(0.254, 199.619, -6.374, 0.502)
pt3dadd(0.188, 199.541, -6.344, 0.614)
pt3dadd(0.129, 199.453, -6.392, 0.67)
pt3dadd(0.12, 199.394, -6.475, 0.706)
pt3dadd(0.12, 199.342, -6.565, 0.74)
pt3dadd(0.12, 199.288, -6.654, 0.834)
pt3dadd(0.12, 199.188, -6.705, 0.87)
pt3dadd(0.12, 199.08, -6.75, 0.89)
pt3dadd(0.12, 198.973, -6.795, 0.908)
pt3dadd(0.12, 198.865, -6.839, 0.928)
pt3dadd(0.12, 198.758, -6.884, 0.948)
pt3dadd(0.12, 198.648, -6.924, 0.96)
pt3dadd(0.12, 198.536, -6.961, 0.97)
pt3dadd(0.12, 198.426, -6.998, 0.978)
pt3dadd(0.12, 198.314, -7.035, 0.988)
pt3dadd(0.12, 198.203, -7.072, 0.998)
pt3dadd(0.12, 198.089, -7.1, 1)
pt3dadd(0.12, 197.969, -7.1, 0.984)
pt3dadd(0.12, 197.849, -7.1, 0.966)
pt3dadd(0.12, 197.729, -7.103, 0.944)
pt3dadd(0.12, 197.61, -7.116, 0.908)
pt3dadd(0.12, 197.491, -7.128, 0.87)
pt3dadd(0.12, 197.398, -7.178, 0.84)
pt3dadd(0.12, 197.322, -7.256, 0.816)
pt3dadd(0.139, 197.251, -7.332, 0.81)
pt3dadd(0.184, 197.184, -7.407, 0.824)
pt3dadd(0.205, 197.131, -7.492, 0.838)
pt3dadd(0.213, 197.086, -7.584, 0.852)
pt3dadd(0.22, 197.039, -7.677, 0.866)
pt3dadd(0.22, 196.985, -7.759, 0.882)
pt3dadd(0.173, 196.878, -7.781, 0.908)
pt3dadd(0.131, 196.769, -7.802, 0.948)
pt3dadd(0.12, 196.676, -7.844, 1.042)
pt3dadd(0.12, 196.628, -7.936, 1.074)
pt3dadd(0.12, 196.582, -8.028, 1.108)
pt3dadd(0.12, 196.534, -8.12, 1.14)
pt3dadd(0.12, 196.486, -8.211, 1.174)
pt3dadd(0.12, 196.436, -8.302, 1.206)
pt3dadd(0.12, 196.348, -8.37, 1.252)
pt3dadd(0.12, 196.259, -8.437, 1.298)
pt3dadd(0.12, 196.171, -8.504, 1.344)
pt3dadd(0.12, 196.082, -8.571, 1.39)
pt3dadd(0.12, 195.995, -8.64, 1.434)
pt3dadd(0.12, 195.925, -8.721, 1.47)
pt3dadd(0.12, 195.857, -8.803, 1.504)
pt3dadd(0.12, 195.787, -8.885, 1.54)
pt3dadd(0.12, 195.719, -8.967, 1.574)
pt3dadd(0.12, 195.652, -9.05, 1.608)
pt3dadd(0.12, 195.622, -9.146, 1.626)
pt3dadd(0.12, 195.592, -9.243, 1.644)
pt3dadd(0.12, 195.562, -9.34, 1.66)
pt3dadd(0.12, 195.53, -9.437, 1.678)
pt3dadd(0.12, 195.5, -9.533, 1.696)
pt3dadd(0.12, 195.48, -9.631, 1.708)
pt3dadd(0.12, 195.48, -9.731, 1.684)
pt3dadd(0.12, 195.48, -9.831, 1.592)
pt3dadd(0.12, 195.475, -9.931, 1.454)
pt3dadd(0.12, 195.444, -10.026, 1.3)
pt3dadd(0.12, 195.355, -10.086, 1.232)
pt3dadd(0.1, 195.239, -10.1, 1.29)
pt3dadd(0.028, 195.15, -10.107, 1.346)
pt3dadd(-0.082, 195.12, -10.134, 1.356)
pt3dadd(-0.179, 195.083, -10.18, 1.342)
pt3dadd(-0.246, 194.989, -10.202, 1.298)
pt3dadd(-0.318, 194.921, -10.24, 1.25)
pt3dadd(-0.404, 194.892, -10.306, 1.236)
pt3dadd(-0.449, 194.876, -10.391, 1.22)
pt3dadd(-0.465, 194.872, -10.49, 1.2)
pt3dadd(-0.48, 194.867, -10.589, 1.18)
pt3dadd(-0.496, 194.836, -10.679, 1.154)
pt3dadd(-0.583, 194.815, -10.747, 1.148)
pt3dadd(-0.669, 194.795, -10.814, 1.142)
pt3dadd(-0.756, 194.773, -10.881, 1.138)
pt3dadd(-0.842, 194.753, -10.948, 1.132)
pt3dadd(-0.927, 194.714, -11.011, 1.13)
pt3dadd(-1.01, 194.669, -11.072, 1.13)
pt3dadd(-1.093, 194.624, -11.134, 1.13)
pt3dadd(-1.177, 194.58, -11.195, 1.13)
pt3dadd(-1.239, 194.549, -11.273, 1.13)
pt3dadd(-1.284, 194.53, -11.365, 1.13)
pt3dadd(-1.319, 194.501, -11.456, 1.13)
pt3dadd(-1.345, 194.462, -11.548, 1.13)
pt3dadd(-1.38, 194.431, -11.64, 1.124)
pt3dadd(-1.425, 194.412, -11.731, 1.112)
pt3dadd(-1.491, 194.4, -11.808, 1.092)
pt3dadd(-1.595, 194.4, -11.858, 1.058)
pt3dadd(-1.701, 194.4, -11.901, 1.016)
pt3dadd(-1.821, 194.4, -11.907, 0.936)
pt3dadd(-1.934, 194.4, -11.928, 0.868)
pt3dadd(-2.03, 194.4, -11.988, 0.834)
pt3dadd(-2.126, 194.4, -12.048, 0.798)
pt3dadd(-2.222, 194.4, -12.108, 0.764)
pt3dadd(-2.318, 194.4, -12.168, 0.728)
pt3dadd(-2.419, 194.4, -12.22, 0.688)
pt3dadd(-2.532, 194.4, -12.253, 0.634)
pt3dadd(-2.645, 194.4, -12.287, 0.582)
pt3dadd(-2.763, 194.4, -12.305, 0.568)
pt3dadd(-2.882, 194.4, -12.322, 0.558)
pt3dadd(-2.985, 194.4, -12.359, 0.568)
pt3dadd(-3.06, 194.4, -12.438, 0.616)
pt3dadd(-3.138, 194.4, -12.514, 0.664)
pt3dadd(-3.226, 194.4, -12.582, 0.724)
pt3dadd(-3.312, 194.398, -12.65, 0.782)
pt3dadd(-3.379, 194.374, -12.731, 0.82)
pt3dadd(-3.446, 194.347, -12.811, 0.86)
pt3dadd(-3.513, 194.322, -12.891, 0.9)
pt3dadd(-3.625, 194.305, -12.913, 0.904)
pt3dadd(-3.743, 194.288, -12.926, 0.904)
pt3dadd(-3.855, 194.28, -12.956, 0.904)
pt3dadd(-3.962, 194.28, -13.001, 0.904)
pt3dadd(-4.069, 194.28, -13.046, 0.904)
pt3dadd(-4.177, 194.28, -13.09, 0.904)
pt3dadd(-4.284, 194.28, -13.135, 0.904)
pt3dadd(-4.392, 194.28, -13.18, 0.904)
pt3dadd(-4.49, 194.28, -13.235, 0.916)
pt3dadd(-4.581, 194.28, -13.3, 0.936)
pt3dadd(-4.673, 194.28, -13.365, 0.956)
pt3dadd(-4.764, 194.28, -13.43, 0.976)
pt3dadd(-4.855, 194.28, -13.495, 0.996)
pt3dadd(-4.939, 194.28, -13.566, 1.014)
pt3dadd(-5.017, 194.28, -13.642, 1.028)
pt3dadd(-5.094, 194.28, -13.719, 1.044)
pt3dadd(-5.172, 194.28, -13.795, 1.058)
pt3dadd(-5.25, 194.28, -13.871, 1.074)
pt3dadd(-5.283, 194.28, -13.962, 1.09)
pt3dadd(-5.287, 194.28, -14.062, 1.108)
pt3dadd(-5.292, 194.28, -14.162, 1.126)
pt3dadd(-5.357, 194.28, -14.238, 1.13)
pt3dadd(-5.445, 194.28, -14.306, 1.13)
pt3dadd(-5.55, 194.28, -14.35, 1.13)
pt3dadd(-5.665, 194.28, -14.377, 1.13)
pt3dadd(-5.781, 194.28, -14.403, 1.132)
pt3dadd(-5.899, 194.28, -14.42, 1.142)
pt3dadd(-6.017, 194.28, -14.437, 1.152)
pt3dadd(-6.11, 194.28, -14.49, 1.166)
pt3dadd(-6.187, 194.28, -14.567, 1.182)
pt3dadd(-6.273, 194.28, -14.636, 1.186)
pt3dadd(-6.359, 194.28, -14.706, 1.192)
pt3dadd(-6.445, 194.28, -14.775, 1.196)
pt3dadd(-6.532, 194.28, -14.845, 1.202)
pt3dadd(-6.611, 194.28, -14.918, 1.202)
pt3dadd(-6.665, 194.28, -15.008, 1.192)
pt3dadd(-6.718, 194.28, -15.097, 1.18)
pt3dadd(-6.779, 194.299, -15.182, 1.144)
pt3dadd(-6.84, 194.32, -15.267, 1.104)
pt3dadd(-6.929, 194.365, -15.322, 1.02)
pt3dadd(-7.024, 194.4, -15.37, 0.942)
pt3dadd(-7.142, 194.4, -15.387, 0.884)
pt3dadd(-7.26, 194.4, -15.404, 0.826)
pt3dadd(-7.375, 194.4, -15.433, 0.794)
pt3dadd(-7.487, 194.4, -15.468, 0.78)
pt3dadd(-7.603, 194.4, -15.493, 0.802)
pt3dadd(-7.719, 194.4, -15.519, 0.824)
pt3dadd(-7.836, 194.4, -15.544, 0.846)
pt3dadd(-7.952, 194.4, -15.569, 0.868)
}
}
proc shape3d_67() {
dend_5[19] { pt3dadd(-8.068, 194.4, -15.594, 0.89)
pt3dadd(-8.182, 194.4, -15.623, 0.914)
pt3dadd(-8.294, 194.4, -15.66, 0.948)
pt3dadd(-8.405, 194.4, -15.697, 0.98)
pt3dadd(-8.517, 194.4, -15.734, 1.012)
pt3dadd(-8.628, 194.4, -15.771, 1.046)
pt3dadd(-8.739, 194.4, -15.809, 1.078)
pt3dadd(-8.848, 194.4, -15.851, 1.088)
pt3dadd(-8.957, 194.4, -15.893, 1.098)
pt3dadd(-9.066, 194.4, -15.935, 1.108)
pt3dadd(-9.175, 194.4, -15.977, 1.118)
pt3dadd(-9.284, 194.4, -16.019, 1.126)
pt3dadd(-9.374, 194.4, -16.082, 1.12)
pt3dadd(-9.455, 194.4, -16.156, 1.104)
pt3dadd(-9.535, 194.4, -16.23, 1.09)
pt3dadd(-9.616, 194.4, -16.305, 1.074)
pt3dadd(-9.697, 194.4, -16.378, 1.06)
pt3dadd(-9.788, 194.4, -16.443, 1.036)
pt3dadd(-9.884, 194.4, -16.503, 1.012)
pt3dadd(-9.98, 194.4, -16.563, 0.986)
pt3dadd(-10.076, 194.4, -16.623, 0.962)
pt3dadd(-10.172, 194.4, -16.683, 0.936)
pt3dadd(-10.284, 194.4, -16.712, 0.92)
pt3dadd(-10.402, 194.4, -16.728, 0.908)
pt3dadd(-10.521, 194.4, -16.745, 0.896)
pt3dadd(-10.639, 194.4, -16.761, 0.884)
pt3dadd(-10.758, 194.4, -16.777, 0.87)
pt3dadd(-10.876, 194.4, -16.794, 0.858)
pt3dadd(-10.986, 194.435, -16.809, 0.854)
pt3dadd(-11.09, 194.492, -16.823, 0.854)
pt3dadd(-11.195, 194.549, -16.837, 0.854)
pt3dadd(-11.299, 194.605, -16.851, 0.854)
pt3dadd(-11.404, 194.662, -16.865, 0.854)
pt3dadd(-11.503, 194.714, -16.899, 0.864)
pt3dadd(-11.602, 194.767, -16.935, 0.876)
pt3dadd(-11.701, 194.819, -16.971, 0.888)
pt3dadd(-11.8, 194.872, -17.007, 0.9)
pt3dadd(-11.865, 194.923, -17.071, 0.92)
pt3dadd(-11.908, 194.974, -17.155, 0.946)
pt3dadd(-11.975, 195.025, -17.224, 0.954)
pt3dadd(-12.051, 195.079, -17.287, 0.954)
pt3dadd(-12.169, 195.095, -17.293, 0.926)
pt3dadd(-12.288, 195.11, -17.297, 0.896)
pt3dadd(-12.405, 195.12, -17.311, 0.858)
pt3dadd(-12.52, 195.12, -17.338, 0.806)
pt3dadd(-12.636, 195.12, -17.366, 0.756)
pt3dadd(-12.751, 195.12, -17.393, 0.694)
pt3dadd(-12.866, 195.12, -17.423, 0.652)
pt3dadd(-12.978, 195.12, -17.458, 0.646)
pt3dadd(-13.091, 195.12, -17.492, 0.642)
pt3dadd(-13.203, 195.12, -17.527, 0.638)
pt3dadd(-13.316, 195.12, -17.562, 0.632)
pt3dadd(-13.428, 195.12, -17.596, 0.628)
pt3dadd(-13.535, 195.14, -17.639, 0.642)
pt3dadd(-13.641, 195.163, -17.681, 0.658)
pt3dadd(-13.747, 195.186, -17.724, 0.674)
pt3dadd(-13.853, 195.209, -17.767, 0.69)
pt3dadd(-13.959, 195.234, -17.809, 0.706)
pt3dadd(-14.068, 195.262, -17.844, 0.722)
pt3dadd(-14.176, 195.29, -17.88, 0.74)
pt3dadd(-14.285, 195.319, -17.916, 0.756)
pt3dadd(-14.393, 195.348, -17.951, 0.772)
pt3dadd(-14.506, 195.372, -17.974, 0.782)
pt3dadd(-14.623, 195.395, -17.986, 0.786)
pt3dadd(-14.74, 195.416, -17.998, 0.79)
pt3dadd(-14.857, 195.438, -18.01, 0.794)
pt3dadd(-14.975, 195.46, -18.022, 0.8)
pt3dadd(-15.089, 195.482, -18.039, 0.802)
pt3dadd(-15.183, 195.51, -18.097, 0.784)
pt3dadd(-15.277, 195.538, -18.155, 0.768)
pt3dadd(-15.371, 195.564, -18.213, 0.75)
pt3dadd(-15.465, 195.592, -18.271, 0.734)
pt3dadd(-15.567, 195.62, -18.316, 0.716)
pt3dadd(-15.674, 195.649, -18.354, 0.7)
pt3dadd(-15.781, 195.678, -18.393, 0.684)
pt3dadd(-15.888, 195.707, -18.431, 0.668)
pt3dadd(-15.993, 195.738, -18.472, 0.65)
pt3dadd(-16.069, 195.791, -18.535, 0.606)
pt3dadd(-16.151, 195.829, -18.597, 0.578)
pt3dadd(-16.248, 195.835, -18.656, 0.578)
pt3dadd(-16.346, 195.847, -18.712, 0.582)
pt3dadd(-16.45, 195.875, -18.757, 0.594)
pt3dadd(-16.54, 195.924, -18.796, 0.616)
pt3dadd(-16.603, 196.022, -18.819, 0.654)
pt3dadd(-16.653, 196.122, -18.851, 0.694)
pt3dadd(-16.688, 196.224, -18.894, 0.728)
pt3dadd(-16.756, 196.312, -18.934, 0.728)
pt3dadd(-16.823, 196.398, -18.974, 0.728)
pt3dadd(-16.891, 196.484, -19.014, 0.728)
pt3dadd(-16.958, 196.571, -19.055, 0.728)
pt3dadd(-16.999, 196.679, -19.083, 0.716)
pt3dadd(-17.04, 196.787, -19.111, 0.704)
pt3dadd(-17.083, 196.886, -19.153, 0.69)
pt3dadd(-17.123, 196.985, -19.197, 0.678)
pt3dadd(-17.144, 197.076, -19.261, 0.678)
pt3dadd(-17.174, 197.148, -19.329, 0.676)
pt3dadd(-17.237, 197.154, -19.414, 0.664)
pt3dadd(-17.306, 197.164, -19.491, 0.652)
pt3dadd(-17.422, 197.19, -19.505, 0.634)
pt3dadd(-17.533, 197.21, -19.536, 0.624)
pt3dadd(-17.641, 197.227, -19.578, 0.62)
pt3dadd(-17.749, 197.244, -19.62, 0.614)
pt3dadd(-17.857, 197.26, -19.661, 0.61)
pt3dadd(-17.965, 197.276, -19.702, 0.604)
pt3dadd(-18.041, 197.28, -19.777, 0.612)
pt3dadd(-18.109, 197.28, -19.859, 0.624)
pt3dadd(-18.174, 197.284, -19.943, 0.636)
pt3dadd(-18.237, 197.291, -20.028, 0.648)
pt3dadd(-18.311, 197.322, -20.097, 0.66)
pt3dadd(-18.394, 197.375, -20.154, 0.674)
pt3dadd(-18.488, 197.44, -20.18, 0.668)
pt3dadd(-18.584, 197.509, -20.197, 0.654)
pt3dadd(-18.691, 197.55, -20.225, 0.64)
pt3dadd(-18.799, 197.586, -20.255, 0.626)
pt3dadd(-18.908, 197.622, -20.285, 0.61)
pt3dadd(-19.016, 197.64, -20.323, 0.586)
pt3dadd(-19.123, 197.64, -20.368, 0.552)
pt3dadd(-19.234, 197.644, -20.4, 0.512)
pt3dadd(-19.339, 197.664, -20.427, 0.478)
pt3dadd(-19.421, 197.692, -20.495, 0.478)
pt3dadd(-19.504, 197.719, -20.564, 0.478)
pt3dadd(-19.587, 197.747, -20.633, 0.478)
pt3dadd(-19.668, 197.774, -20.702, 0.478)
pt3dadd(-19.729, 197.808, -20.784, 0.488)
pt3dadd(-19.791, 197.842, -20.865, 0.5)
pt3dadd(-19.851, 197.875, -20.947, 0.512)
pt3dadd(-19.913, 197.909, -21.028, 0.524)
pt3dadd(-19.989, 197.952, -21.095, 0.536)
pt3dadd(-20.073, 198, -21.154, 0.548)
pt3dadd(-20.156, 198.049, -21.213, 0.56)
pt3dadd(-20.24, 198.097, -21.272, 0.572)
pt3dadd(-20.328, 198.15, -21.322, 0.58)
pt3dadd(-20.421, 198.208, -21.365, 0.586)
pt3dadd(-20.513, 198.265, -21.407, 0.592)
pt3dadd(-20.605, 198.322, -21.45, 0.598)
pt3dadd(-20.684, 198.367, -21.508, 0.602)
pt3dadd(-20.737, 198.386, -21.596, 0.602)
pt3dadd(-20.789, 198.433, -21.665, 0.598)
pt3dadd(-20.838, 198.538, -21.694, 0.586)
pt3dadd(-20.888, 198.63, -21.736, 0.572)
pt3dadd(-20.942, 198.707, -21.8, 0.558)
pt3dadd(-21.022, 198.767, -21.85, 0.57)
pt3dadd(-21.117, 198.818, -21.893, 0.598)
pt3dadd(-21.233, 198.833, -21.905, 0.696)
pt3dadd(-21.351, 198.84, -21.914, 0.806)
pt3dadd(-21.45, 198.84, -21.971, 0.862)
pt3dadd(-21.548, 198.84, -22.029, 0.916)
pt3dadd(-21.646, 198.84, -22.086, 0.972)
pt3dadd(-21.744, 198.84, -22.144, 1.026)
pt3dadd(-21.841, 198.84, -22.202, 1.08)
pt3dadd(-21.902, 198.86, -22.287, 1.114)
pt3dadd(-21.963, 198.881, -22.371, 1.146)
pt3dadd(-22.024, 198.901, -22.456, 1.178)
pt3dadd(-22.085, 198.922, -22.54, 1.212)
pt3dadd(-22.154, 198.949, -22.617, 1.23)
pt3dadd(-22.236, 198.988, -22.682, 1.23)
pt3dadd(-22.319, 199.025, -22.748, 1.23)
pt3dadd(-22.401, 199.063, -22.814, 1.23)
pt3dadd(-22.484, 199.098, -22.88, 1.226)
pt3dadd(-22.571, 199.122, -22.945, 1.202)
pt3dadd(-22.659, 199.146, -23.01, 1.18)
pt3dadd(-22.746, 199.171, -23.076, 1.158)
pt3dadd(-22.834, 199.195, -23.141, 1.134)
pt3dadd(-22.919, 199.205, -23.211, 1.13)
pt3dadd(-23.004, 199.212, -23.281, 1.13)
pt3dadd(-23.052, 199.249, -23.364, 1.15)
pt3dadd(-23.086, 199.297, -23.45, 1.176)
pt3dadd(-23.189, 199.31, -23.477, 1.22)
pt3dadd(-23.308, 199.316, -23.49, 1.268)
pt3dadd(-23.426, 199.328, -23.501, 1.316)
pt3dadd(-23.541, 199.362, -23.506, 1.358)
pt3dadd(-23.656, 199.397, -23.511, 1.402)
pt3dadd(-23.757, 199.444, -23.547, 1.428)
pt3dadd(-23.856, 199.49, -23.587, 1.452)
pt3dadd(-23.956, 199.538, -23.626, 1.478)
pt3dadd(-24.026, 199.552, -23.703, 1.472)
pt3dadd(-24.089, 199.558, -23.788, 1.46)
pt3dadd(-24.13, 199.56, -23.88, 1.344)
pt3dadd(-24.224, 199.56, -23.941, 1.246)
pt3dadd(-24.322, 199.56, -23.997, 1.152)
pt3dadd(-24.393, 199.56, -24.076, 1.07)
pt3dadd(-24.453, 199.56, -24.162, 0.99)
pt3dadd(-24.502, 199.574, -24.252, 0.926)
pt3dadd(-24.541, 199.601, -24.344, 0.878)
pt3dadd(-24.57, 199.669, -24.408, 0.854)
pt3dadd(-24.589, 199.778, -24.446, 0.854)
pt3dadd(-24.632, 199.883, -24.471, 0.854)
pt3dadd(-24.703, 199.978, -24.481, 0.854)
pt3dadd(-24.775, 200.074, -24.491, 0.854)
pt3dadd(-24.849, 200.166, -24.501, 0.852)
pt3dadd(-24.951, 200.226, -24.518, 0.826)
pt3dadd(-25.052, 200.282, -24.539, 0.794)
pt3dadd(-25.156, 200.314, -24.58, 0.758)
pt3dadd(-25.261, 200.358, -24.61, 0.77)
pt3dadd(-25.367, 200.402, -24.639, 0.78)
pt3dadd(-25.473, 200.446, -24.668, 0.792)
pt3dadd(-25.579, 200.49, -24.698, 0.802)
pt3dadd(-25.662, 200.554, -24.746, 0.854)
pt3dadd(-25.744, 200.62, -24.795, 0.91)
pt3dadd(-25.826, 200.684, -24.844, 0.966)
}
}
proc shape3d_68() {
dend_5[19] { pt3dadd(-25.908, 200.75, -24.892, 1.022)
pt3dadd(-25.98, 200.801, -24.959, 1.082)
pt3dadd(-26.051, 200.849, -25.029, 1.142)
pt3dadd(-26.122, 200.898, -25.099, 1.202)
pt3dadd(-26.193, 200.946, -25.169, 1.264)
pt3dadd(-26.279, 200.994, -25.225, 1.314)
pt3dadd(-26.371, 201.042, -25.275, 1.362)
pt3dadd(-26.463, 201.089, -25.325, 1.41)
pt3dadd(-26.555, 201.137, -25.376, 1.458)
pt3dadd(-26.622, 201.186, -25.443, 1.502)
pt3dadd(-26.665, 201.236, -25.527, 1.542)
pt3dadd(-26.713, 201.287, -25.608, 1.556)
pt3dadd(-26.765, 201.338, -25.687, 1.556)
pt3dadd(-26.837, 201.398, -25.748, 1.52)
pt3dadd(-26.915, 201.461, -25.804, 1.472)
pt3dadd(-26.997, 201.535, -25.841, 1.374)
pt3dadd(-27.09, 201.589, -25.873, 1.262)
pt3dadd(-27.207, 201.598, -25.894, 1.12)
pt3dadd(-27.322, 201.629, -25.9, 1.01)
pt3dadd(-27.435, 201.668, -25.9, 0.914)
pt3dadd(-27.54, 201.721, -25.906, 0.83)
pt3dadd(-27.63, 201.798, -25.924, 0.764)
pt3dadd(-27.714, 201.868, -25.959, 0.716)
pt3dadd(-27.791, 201.929, -26.016, 0.686)
pt3dadd(-27.863, 201.952, -26.09, 0.686)
pt3dadd(-27.934, 201.958, -26.171, 0.698)
pt3dadd(-28.001, 201.98, -26.251, 0.728)
pt3dadd(-28.074, 202.007, -26.326, 0.758)
pt3dadd(-28.163, 202.025, -26.392, 0.768)
pt3dadd(-28.251, 202.042, -26.458, 0.78)
pt3dadd(-28.339, 202.06, -26.524, 0.792)
pt3dadd(-28.427, 202.078, -26.59, 0.802)
pt3dadd(-28.535, 202.08, -26.632, 0.804)
pt3dadd(-28.647, 202.08, -26.669, 0.804)
pt3dadd(-28.758, 202.08, -26.706, 0.804)
pt3dadd(-28.87, 202.08, -26.743, 0.804)
pt3dadd(-28.981, 202.08, -26.78, 0.804)
pt3dadd(-29.088, 202.106, -26.81, 0.796)
pt3dadd(-29.191, 202.162, -26.832, 0.78)
pt3dadd(-29.294, 202.218, -26.854, 0.762)
pt3dadd(-29.397, 202.273, -26.877, 0.746)
pt3dadd(-29.5, 202.33, -26.898, 0.73)
pt3dadd(-29.563, 202.42, -26.937, 0.712)
pt3dadd(-29.623, 202.511, -26.977, 0.694)
pt3dadd(-29.684, 202.603, -27.017, 0.676)
pt3dadd(-29.744, 202.696, -27.056, 0.658)
pt3dadd(-29.817, 202.775, -27.099, 0.648)
pt3dadd(-29.896, 202.85, -27.142, 0.642)
pt3dadd(-29.974, 202.925, -27.185, 0.636)
pt3dadd(-30.052, 202.999, -27.229, 0.63)
pt3dadd(-30.144, 203.044, -27.276, 0.638)
pt3dadd(-30.245, 203.07, -27.325, 0.656)
pt3dadd(-30.346, 203.098, -27.375, 0.672)
pt3dadd(-30.447, 203.124, -27.424, 0.688)
pt3dadd(-30.549, 203.15, -27.47, 0.706)
pt3dadd(-30.663, 203.177, -27.492, 0.726)
pt3dadd(-30.777, 203.203, -27.514, 0.746)
pt3dadd(-30.891, 203.23, -27.536, 0.766)
pt3dadd(-31.005, 203.256, -27.558, 0.786)
pt3dadd(-31.117, 203.28, -27.585, 0.816)
pt3dadd(-31.211, 203.28, -27.647, 0.894)
pt3dadd(-31.32, 203.28, -27.686, 0.882)
pt3dadd(-31.438, 203.28, -27.7, 0.83)
pt3dadd(-31.557, 203.297, -27.701, 0.75)
pt3dadd(-31.66, 203.345, -27.725, 0.76)
pt3dadd(-31.731, 203.39, -27.793, 0.938)
pt3dadd(-31.777, 203.4, -27.884, 1.078)
pt3dadd(-31.797, 203.4, -27.982, 1.124)
pt3dadd(-31.8, 203.4, -28.082, 1.13)
pt3dadd(-31.8, 203.4, -28.182, 1.13)
pt3dadd(-31.812, 203.4, -28.281, 1.13)
pt3dadd(-31.872, 203.4, -28.364, 1.13)
pt3dadd(-31.984, 203.407, -28.395, 1.13)
pt3dadd(-32.1, 203.435, -28.4, 1.11)
pt3dadd(-32.209, 203.484, -28.4, 1.044)
pt3dadd(-32.316, 203.538, -28.4, 0.92)
pt3dadd(-32.43, 203.568, -28.408, 0.872)
pt3dadd(-32.548, 203.582, -28.422, 0.858)
pt3dadd(-32.666, 203.597, -28.436, 0.844)
pt3dadd(-32.784, 203.611, -28.449, 0.832)
pt3dadd(-32.902, 203.626, -28.463, 0.818)
pt3dadd(-33.02, 203.639, -28.477, 0.804)
pt3dadd(-33.117, 203.675, -28.526, 0.798)
pt3dadd(-33.213, 203.712, -28.578, 0.792)
pt3dadd(-33.309, 203.749, -28.63, 0.786)
pt3dadd(-33.405, 203.786, -28.681, 0.78)
pt3dadd(-33.507, 203.816, -28.726, 0.772)
pt3dadd(-33.614, 203.843, -28.767, 0.76)
pt3dadd(-33.72, 203.868, -28.807, 0.75)
pt3dadd(-33.827, 203.894, -28.848, 0.74)
pt3dadd(-33.933, 203.92, -28.889, 0.728)
pt3dadd(-34.043, 203.959, -28.912, 0.722)
pt3dadd(-34.153, 203.999, -28.936, 0.718)
pt3dadd(-34.263, 204.038, -28.959, 0.712)
pt3dadd(-34.372, 204.078, -28.983, 0.706)
pt3dadd(-34.484, 204.112, -29, 0.7)
pt3dadd(-34.603, 204.132, -29, 0.69)
pt3dadd(-34.721, 204.152, -29, 0.682)
pt3dadd(-34.827, 204.193, -29.024, 0.678)
pt3dadd(-34.927, 204.244, -29.06, 0.678)
pt3dadd(-35.004, 204.328, -29.086, 0.668)
pt3dadd(-35.075, 204.42, -29.109, 0.654)
pt3dadd(-35.12, 204.52, -29.15, 0.628)
pt3dadd(-35.16, 204.622, -29.189, 0.6)
pt3dadd(-35.16, 204.742, -29.195, 0.56)
pt3dadd(-35.165, 204.859, -29.206, 0.526)
pt3dadd(-35.19, 204.97, -29.238, 0.512)
pt3dadd(-35.227, 205.073, -29.269, 0.504)
pt3dadd(-35.336, 205.117, -29.285, 0.516)
pt3dadd(-35.446, 205.162, -29.3, 0.528)
pt3dadd(-35.565, 205.176, -29.3, 0.556)
pt3dadd(-35.684, 205.19, -29.3, 0.584)
pt3dadd(-35.804, 205.2, -29.3, 0.608)
pt3dadd(-35.924, 205.2, -29.3, 0.626)
pt3dadd(-36.044, 205.2, -29.3, 0.642)
pt3dadd(-36.161, 205.19, -29.311, 0.656)
pt3dadd(-36.272, 205.163, -29.339, 0.662)
pt3dadd(-36.384, 205.136, -29.368, 0.67)
pt3dadd(-36.496, 205.109, -29.397, 0.678)
pt3dadd(-36.549, 205.007, -29.4, 0.678)
pt3dadd(-36.595, 204.896, -29.4, 0.678)
pt3dadd(-36.646, 204.787, -29.4, 0.672)
pt3dadd(-36.7, 204.68, -29.4, 0.664)
pt3dadd(-36.753, 204.572, -29.4, 0.656)
pt3dadd(-36.849, 204.529, -29.4, 0.638)
pt3dadd(-36.968, 204.523, -29.4, 0.616)
pt3dadd(-37.079, 204.541, -29.414, 0.57)
pt3dadd(-37.167, 204.594, -29.459, 0.476)
pt3dadd(-37.209, 204.635, -29.547, 0.338)
pt3dadd(-37.265, 204.718, -29.594, 0.362)
pt3dadd(-37.348, 204.802, -29.612, 0.506)
pt3dadd(-37.437, 204.868, -29.649, 0.614)
pt3dadd(-37.527, 204.935, -29.686, 0.642)
pt3dadd(-37.626, 204.994, -29.71, 0.66)
pt3dadd(-37.732, 205.046, -29.727, 0.674)
pt3dadd(-37.842, 205.07, -29.754, 0.684)
pt3dadd(-37.954, 205.076, -29.789, 0.696)
pt3dadd(-38.051, 205.08, -29.84, 0.712)
pt3dadd(-38.119, 205.08, -29.923, 0.734)
pt3dadd(-38.183, 205.088, -30.006, 0.754)
pt3dadd(-38.229, 205.13, -30.091, 0.762)
pt3dadd(-38.276, 205.174, -30.176, 0.77)
pt3dadd(-38.323, 205.218, -30.26, 0.776)
pt3dadd(-38.377, 205.294, -30.323, 0.748)
pt3dadd(-38.437, 205.375, -30.371, 0.714)
pt3dadd(-38.513, 205.466, -30.383, 0.666)
pt3dadd(-38.589, 205.558, -30.396, 0.618)
pt3dadd(-38.689, 205.619, -30.4, 0.572)
pt3dadd(-38.8, 205.664, -30.4, 0.528)
pt3dadd(-38.911, 205.708, -30.406, 0.488)
pt3dadd(-38.982, 205.784, -30.44, 0.506)
pt3dadd(-39.033, 205.88, -30.483, 0.546)
pt3dadd(-39.126, 205.951, -30.498, 0.606)
pt3dadd(-39.225, 206.017, -30.509, 0.668)
pt3dadd(-39.333, 206.032, -30.545, 0.736)
pt3dadd(-39.442, 206.038, -30.586, 0.806)
pt3dadd(-39.531, 206.045, -30.65, 0.86)
pt3dadd(-39.609, 206.051, -30.726, 0.91)
pt3dadd(-39.694, 206.094, -30.778, 0.954)
pt3dadd(-39.785, 206.164, -30.8, 0.964)
pt3dadd(-39.878, 206.239, -30.8, 0.93)
pt3dadd(-39.991, 206.272, -30.82, 0.938)
pt3dadd(-40.1, 206.28, -30.858, 0.954)
pt3dadd(-40.211, 206.261, -30.891, 0.862)
pt3dadd(-40.291, 206.179, -30.9, 0.734)
pt3dadd(-40.317, 206.064, -30.9, 0.684)
pt3dadd(-40.332, 205.944, -30.9, 0.678)
pt3dadd(-40.377, 205.84, -30.882, 0.67)
pt3dadd(-40.474, 205.801, -30.836, 0.608)
pt3dadd(-40.589, 205.8, -30.811, 0.552)
pt3dadd(-40.704, 205.8, -30.827, 0.564)
pt3dadd(-40.792, 205.8, -30.892, 0.578)
pt3dadd(-40.861, 205.824, -30.969, 0.518)
pt3dadd(-40.958, 205.879, -31, 0.502)
pt3dadd(-41.066, 205.932, -30.999, 0.496)
pt3dadd(-41.175, 205.98, -30.994, 0.474)
pt3dadd(-41.284, 206.029, -30.987, 0.45)
pt3dadd(-41.374, 206.089, -30.943, 0.422)
pt3dadd(-41.462, 206.155, -30.906, 0.392)
pt3dadd(-41.541, 206.243, -30.911, 0.376)
pt3dadd(-41.617, 206.333, -30.928, 0.376)
pt3dadd(-41.713, 206.389, -30.958, 0.386)
pt3dadd(-41.818, 206.431, -30.993, 0.4)
pt3dadd(-41.906, 206.506, -30.986, 0.432)
pt3dadd(-41.989, 206.59, -30.969, 0.472)
pt3dadd(-42.051, 206.683, -30.935, 0.524)
pt3dadd(-42.109, 206.778, -30.9, 0.578)
pt3dadd(-42.165, 206.885, -30.903, 0.6)
pt3dadd(-42.22, 206.992, -30.906, 0.62)
pt3dadd(-42.275, 207.098, -30.909, 0.64)
pt3dadd(-42.347, 207.181, -30.929, 0.664)
pt3dadd(-42.442, 207.233, -30.972, 0.692)
pt3dadd(-42.542, 207.289, -30.999, 0.75)
pt3dadd(-42.607, 207.389, -31.005, 0.788)
pt3dadd(-42.67, 207.491, -31.01, 0.824)
pt3dadd(-42.704, 207.566, -31.076, 0.84)
pt3dadd(-42.732, 207.637, -31.153, 0.854)
pt3dadd(-42.81, 207.724, -31.179, 0.854)
pt3dadd(-42.892, 207.802, -31.2, 0.856)
pt3dadd(-43.012, 207.817, -31.2, 0.874)
}
}
proc shape3d_69() {
dend_5[19] { pt3dadd(-43.131, 207.832, -31.2, 0.894)
pt3dadd(-43.25, 207.84, -31.2, 0.93)
pt3dadd(-43.37, 207.84, -31.2, 0.994)
pt3dadd(-43.487, 207.84, -31.214, 1.038)
pt3dadd(-43.6, 207.84, -31.249, 1.056)
pt3dadd(-43.712, 207.84, -31.284, 1.074)
pt3dadd(-43.825, 207.84, -31.319, 1.092)
pt3dadd(-43.937, 207.84, -31.353, 1.112)
pt3dadd(-44.05, 207.84, -31.388, 1.13)
pt3dadd(-44.169, 207.84, -31.393, 1.096)
pt3dadd(-44.289, 207.84, -31.396, 1.062)
pt3dadd(-44.409, 207.84, -31.4, 1.024)
pt3dadd(-44.529, 207.845, -31.4, 0.946)
pt3dadd(-44.649, 207.85, -31.4, 0.868)
pt3dadd(-44.762, 207.868, -31.407, 0.78)
pt3dadd(-44.844, 207.942, -31.444, 0.654)
pt3dadd(-44.924, 208.024, -31.474, 0.562)
pt3dadd(-45, 208.114, -31.491, 0.522)
pt3dadd(-45.089, 208.192, -31.5, 0.51)
pt3dadd(-45.189, 208.256, -31.501, 0.528)
pt3dadd(-45.266, 208.344, -31.524, 0.546)
pt3dadd(-45.342, 208.433, -31.546, 0.562)
pt3dadd(-45.418, 208.522, -31.569, 0.58)
pt3dadd(-45.494, 208.61, -31.592, 0.596)
pt3dadd(-45.585, 208.682, -31.615, 0.614)
pt3dadd(-45.684, 208.745, -31.637, 0.63)
pt3dadd(-45.783, 208.807, -31.66, 0.648)
pt3dadd(-45.881, 208.87, -31.682, 0.664)
pt3dadd(-45.977, 208.936, -31.708, 0.686)
pt3dadd(-46.059, 209.01, -31.745, 0.728)
pt3dadd(-46.147, 209.082, -31.774, 0.764)
pt3dadd(-46.243, 209.15, -31.791, 0.79)
pt3dadd(-46.339, 209.212, -31.821, 0.796)
pt3dadd(-46.435, 209.263, -31.863, 0.784)
pt3dadd(-46.535, 209.28, -31.911, 0.756)
pt3dadd(-46.639, 209.28, -31.962, 0.722)
pt3dadd(-46.748, 209.281, -32.002, 0.696)
pt3dadd(-46.863, 209.285, -32.03, 0.684)
pt3dadd(-46.978, 209.288, -32.059, 0.672)
pt3dadd(-47.093, 209.292, -32.087, 0.658)
pt3dadd(-47.15, 209.32, -32.149, 0.66)
pt3dadd(-47.156, 209.368, -32.24, 0.67)
pt3dadd(-47.193, 209.417, -32.314, 0.688)
pt3dadd(-47.292, 209.466, -32.355, 0.72)
pt3dadd(-47.389, 209.515, -32.396, 0.75)
pt3dadd(-47.507, 209.524, -32.4, 0.776)
pt3dadd(-47.627, 209.528, -32.4, 0.802)
pt3dadd(-47.747, 209.533, -32.4, 0.828)
pt3dadd(-47.86, 209.568, -32.417, 0.904)
pt3dadd(-47.973, 209.598, -32.44, 0.904)
pt3dadd(-48.086, 209.628, -32.462, 0.904)
pt3dadd(-48.199, 209.658, -32.484, 0.904)
pt3dadd(-48.312, 209.686, -32.506, 0.898)
pt3dadd(-48.427, 209.71, -32.528, 0.876)
pt3dadd(-48.542, 209.732, -32.549, 0.854)
pt3dadd(-48.657, 209.755, -32.571, 0.834)
pt3dadd(-48.772, 209.778, -32.592, 0.812)
pt3dadd(-48.885, 209.813, -32.604, 0.786)
pt3dadd(-48.998, 209.854, -32.611, 0.756)
pt3dadd(-49.111, 209.894, -32.617, 0.728)
pt3dadd(-49.223, 209.935, -32.623, 0.698)
pt3dadd(-49.336, 209.976, -32.63, 0.67)
pt3dadd(-49.447, 210.011, -32.648, 0.648)
pt3dadd(-49.556, 210.036, -32.683, 0.638)
pt3dadd(-49.666, 210.061, -32.718, 0.628)
pt3dadd(-49.775, 210.086, -32.754, 0.616)
pt3dadd(-49.885, 210.112, -32.789, 0.606)
pt3dadd(-49.981, 210.16, -32.831, 0.61)
pt3dadd(-50.071, 210.217, -32.876, 0.624)
pt3dadd(-50.161, 210.275, -32.922, 0.636)
pt3dadd(-50.251, 210.332, -32.967, 0.648)
pt3dadd(-50.344, 210.376, -33.017, 0.664)
pt3dadd(-50.441, 210.407, -33.07, 0.688)
pt3dadd(-50.538, 210.437, -33.123, 0.71)
pt3dadd(-50.636, 210.467, -33.176, 0.734)
pt3dadd(-50.732, 210.503, -33.226, 0.754)
pt3dadd(-50.822, 210.574, -33.254, 0.766)
pt3dadd(-50.912, 210.646, -33.283, 0.778)
pt3dadd(-51.002, 210.718, -33.311, 0.79)
pt3dadd(-51.092, 210.788, -33.34, 0.802)
pt3dadd(-51.197, 210.829, -33.373, 0.808)
pt3dadd(-51.304, 210.864, -33.407, 0.814)
pt3dadd(-51.411, 210.899, -33.44, 0.82)
pt3dadd(-51.519, 210.934, -33.474, 0.824)
pt3dadd(-51.628, 210.967, -33.505, 0.826)
pt3dadd(-51.742, 210.996, -33.525, 0.81)
pt3dadd(-51.856, 211.025, -33.545, 0.796)
pt3dadd(-51.97, 211.055, -33.564, 0.78)
pt3dadd(-52.084, 211.084, -33.584, 0.766)
pt3dadd(-52.199, 211.11, -33.603, 0.748)
pt3dadd(-52.317, 211.127, -33.614, 0.726)
pt3dadd(-52.434, 211.144, -33.626, 0.704)
pt3dadd(-52.553, 211.159, -33.638, 0.682)
pt3dadd(-52.671, 211.176, -33.65, 0.66)
pt3dadd(-52.788, 211.193, -33.662, 0.638)
pt3dadd(-52.903, 211.223, -33.67, 0.614)
pt3dadd(-53.016, 211.264, -33.677, 0.59)
pt3dadd(-53.129, 211.306, -33.683, 0.566)
pt3dadd(-53.241, 211.346, -33.689, 0.542)
pt3dadd(-53.354, 211.387, -33.696, 0.518)
pt3dadd(-53.456, 211.442, -33.708, 0.502)
pt3dadd(-53.538, 211.525, -33.731, 0.502)
pt3dadd(-53.621, 211.608, -33.754, 0.502)
pt3dadd(-53.703, 211.691, -33.777, 0.502)
pt3dadd(-53.786, 211.772, -33.8, 0.502)
pt3dadd(-53.885, 211.841, -33.8, 0.536)
pt3dadd(-53.984, 211.909, -33.8, 0.572)
pt3dadd(-54.056, 211.994, -33.831, 0.624)
pt3dadd(-54.123, 212.083, -33.867, 0.68)
pt3dadd(-54.192, 212.18, -33.885, 0.704)
pt3dadd(-54.265, 212.267, -33.9, 0.728)
pt3dadd(-54.385, 212.272, -33.9, 0.728)
pt3dadd(-54.505, 212.276, -33.9, 0.728)
pt3dadd(-54.625, 212.28, -33.9, 0.722)
pt3dadd(-54.745, 212.28, -33.9, 0.698)
pt3dadd(-54.864, 212.287, -33.9, 0.674)
pt3dadd(-54.979, 212.32, -33.9, 0.654)
pt3dadd(-55.095, 212.353, -33.9, 0.632)
pt3dadd(-55.211, 212.374, -33.915, 0.646)
pt3dadd(-55.327, 212.392, -33.935, 0.666)
pt3dadd(-55.422, 212.413, -33.982, 0.704)
pt3dadd(-55.493, 212.442, -34.059, 0.758)
pt3dadd(-55.554, 212.518, -34.092, 0.814)
pt3dadd(-55.611, 212.624, -34.097, 0.874)
pt3dadd(-55.659, 212.731, -34.112, 0.912)
pt3dadd(-55.704, 212.837, -34.138, 0.93)
pt3dadd(-55.786, 212.911, -34.175, 0.93)
pt3dadd(-55.87, 212.988, -34.2, 0.93)
pt3dadd(-55.958, 213.07, -34.2, 0.93)
pt3dadd(-56.031, 213.16, -34.2, 0.936)
pt3dadd(-56.052, 213.278, -34.2, 0.964)
pt3dadd(-56.072, 213.396, -34.2, 0.994)
pt3dadd(-56.108, 213.496, -34.235, 1.048)
pt3dadd(-56.153, 213.586, -34.291, 1.118)
pt3dadd(-56.174, 213.678, -34.351, 1.162)
pt3dadd(-56.19, 213.772, -34.412, 1.2)
pt3dadd(-56.206, 213.865, -34.473, 1.238)
pt3dadd(-56.279, 213.918, -34.5, 1.266)
pt3dadd(-56.397, 213.938, -34.5, 1.286)
pt3dadd(-56.515, 213.959, -34.5, 1.306)
pt3dadd(-56.635, 213.96, -34.5, 1.234)
pt3dadd(-56.755, 213.96, -34.504, 1.172)
pt3dadd(-56.875, 213.96, -34.507, 1.112)
pt3dadd(-56.994, 213.96, -34.513, 1.048)
pt3dadd(-57.108, 213.96, -34.546, 0.952)
pt3dadd(-57.221, 213.96, -34.58, 0.856)
pt3dadd(-57.339, 213.96, -34.583, 0.78)
pt3dadd(-57.458, 213.96, -34.574, 0.712)
pt3dadd(-57.576, 213.961, -34.56, 0.644)
pt3dadd(-57.682, 213.967, -34.513, 0.586)
pt3dadd(-57.788, 213.973, -34.466, 0.528)
pt3dadd(-57.901, 214.007, -34.448, 0.514)
pt3dadd(-58.014, 214.042, -34.429, 0.498)
pt3dadd(-58.126, 214.075, -34.41, 0.484)
pt3dadd(-58.225, 214.128, -34.417, 0.47)
pt3dadd(-58.307, 214.202, -34.455, 0.456)
pt3dadd(-58.366, 214.286, -34.504, 0.452)
pt3dadd(-58.435, 214.366, -34.553, 0.452)
pt3dadd(-58.503, 214.444, -34.603, 0.452)
pt3dadd(-58.572, 214.523, -34.652, 0.452)
pt3dadd(-58.642, 214.601, -34.7, 0.452)
pt3dadd(-58.752, 214.645, -34.716, 0.464)
pt3dadd(-58.861, 214.691, -34.733, 0.476)
pt3dadd(-58.916, 214.75, -34.804, 0.504)
pt3dadd(-58.975, 214.811, -34.873, 0.534)
pt3dadd(-59.064, 214.878, -34.91, 0.576)
pt3dadd(-59.127, 214.939, -34.966, 0.612)
pt3dadd(-59.147, 214.992, -35.054, 0.636)
pt3dadd(-59.184, 215.048, -35.134, 0.652)
pt3dadd(-59.253, 215.107, -35.199, 0.652)
pt3dadd(-59.322, 215.167, -35.264, 0.652)
pt3dadd(-59.402, 215.233, -35.3, 0.648)
pt3dadd(-59.496, 215.309, -35.3, 0.636)
pt3dadd(-59.596, 215.371, -35.3, 0.608)
pt3dadd(-59.71, 215.407, -35.297, 0.578)
pt3dadd(-59.823, 215.448, -35.29, 0.578)
pt3dadd(-59.935, 215.49, -35.284, 0.578)
pt3dadd(-60.048, 215.531, -35.278, 0.578)
pt3dadd(-60.16, 215.572, -35.271, 0.578)
pt3dadd(-60.273, 215.603, -35.257, 0.578)
pt3dadd(-60.387, 215.61, -35.226, 0.578)
pt3dadd(-60.5, 215.617, -35.194, 0.578)
pt3dadd(-60.614, 215.626, -35.163, 0.578)
pt3dadd(-60.728, 215.633, -35.131, 0.578)
pt3dadd(-60.841, 215.64, -35.1, 0.578)
pt3dadd(-60.96, 215.64, -35.117, 0.582)
pt3dadd(-61.078, 215.64, -35.133, 0.586)
pt3dadd(-61.196, 215.64, -35.149, 0.59)
pt3dadd(-61.315, 215.64, -35.166, 0.594)
pt3dadd(-61.433, 215.64, -35.182, 0.598)
pt3dadd(-61.551, 215.64, -35.199, 0.602)
pt3dadd(-61.671, 215.64, -35.2, 0.596)
pt3dadd(-61.791, 215.64, -35.2, 0.586)
pt3dadd(-61.911, 215.64, -35.2, 0.578)
pt3dadd(-62.03, 215.64, -35.216, 0.568)
pt3dadd(-62.148, 215.64, -35.233, 0.558)
pt3dadd(-62.237, 215.646, -35.276, 0.552)
pt3dadd(-62.267, 215.664, -35.372, 0.552)
pt3dadd(-62.303, 215.687, -35.464, 0.554)
pt3dadd(-62.379, 215.74, -35.527, 0.568)
}
}
proc shape3d_70() {
dend_5[19] { pt3dadd(-62.457, 215.798, -35.584, 0.578)
pt3dadd(-62.539, 215.867, -35.629, 0.578)
pt3dadd(-62.621, 215.935, -35.675, 0.578)
pt3dadd(-62.706, 216.01, -35.7, 0.572)
pt3dadd(-62.794, 216.091, -35.7, 0.56)
pt3dadd(-62.878, 216.176, -35.7, 0.564)
pt3dadd(-62.968, 216.25, -35.714, 0.588)
pt3dadd(-63.069, 216.31, -35.736, 0.604)
pt3dadd(-63.17, 216.368, -35.758, 0.622)
pt3dadd(-63.271, 216.427, -35.78, 0.638)
pt3dadd(-63.373, 216.485, -35.8, 0.654)
pt3dadd(-63.484, 216.529, -35.8, 0.668)
pt3dadd(-63.596, 216.575, -35.8, 0.682)
pt3dadd(-63.707, 216.619, -35.8, 0.696)
pt3dadd(-63.819, 216.664, -35.8, 0.71)
pt3dadd(-63.93, 216.708, -35.8, 0.724)
pt3dadd(-64.041, 216.738, -35.824, 0.732)
pt3dadd(-64.152, 216.763, -35.856, 0.738)
pt3dadd(-64.262, 216.788, -35.888, 0.742)
pt3dadd(-64.373, 216.812, -35.921, 0.748)
pt3dadd(-64.484, 216.838, -35.953, 0.752)
pt3dadd(-64.602, 216.84, -35.971, 0.754)
pt3dadd(-64.72, 216.84, -35.988, 0.754)
pt3dadd(-64.838, 216.84, -36.004, 0.754)
pt3dadd(-64.957, 216.84, -36.016, 0.754)
pt3dadd(-65.076, 216.84, -36.029, 0.754)
pt3dadd(-65.19, 216.857, -36.054, 0.746)
pt3dadd(-65.301, 216.882, -36.086, 0.734)
pt3dadd(-65.382, 216.953, -36.1, 0.734)
pt3dadd(-65.443, 217.057, -36.1, 0.746)
pt3dadd(-65.501, 217.162, -36.1, 0.786)
pt3dadd(-65.554, 217.27, -36.1, 0.87)
pt3dadd(-65.627, 217.364, -36.1, 0.994)
pt3dadd(-65.702, 217.458, -36.1, 1.124)
pt3dadd(-65.74, 217.564, -36.125, 1.258)
pt3dadd(-65.766, 217.675, -36.157, 1.392)
pt3dadd(-65.828, 217.75, -36.208, 1.492)
pt3dadd(-65.905, 217.812, -36.265, 1.58)
pt3dadd(-66, 217.88, -36.283, 1.57)
pt3dadd(-66.097, 217.948, -36.3, 1.554)
pt3dadd(-66.204, 218.002, -36.3, 1.452)
pt3dadd(-66.317, 218.038, -36.3, 1.374)
pt3dadd(-66.435, 218.058, -36.3, 1.316)
pt3dadd(-66.554, 218.078, -36.3, 1.258)
pt3dadd(-66.669, 218.111, -36.3, 1.206)
pt3dadd(-66.785, 218.144, -36.3, 1.154)
pt3dadd(-66.901, 218.171, -36.3, 1.126)
pt3dadd(-67.02, 218.191, -36.3, 1.116)
pt3dadd(-67.138, 218.212, -36.3, 1.106)
pt3dadd(-67.12, 218.267, -36.378, 1.104)
}
apic[10] {pt3dclear()
pt3dadd(103.78, 154.104, 14.62, 3.616)
pt3dadd(103.737, 154.104, 14.589, 3.558)
pt3dadd(103.646, 154.104, 14.523, 3.436)
pt3dadd(103.555, 154.104, 14.458, 3.314)
pt3dadd(103.465, 154.104, 14.392, 3.192)
pt3dadd(103.374, 154.104, 14.327, 3.07)
pt3dadd(103.284, 154.104, 14.261, 2.948)
pt3dadd(103.193, 154.104, 14.195, 2.826)
pt3dadd(103.103, 154.104, 14.13, 2.702)
pt3dadd(103.012, 154.104, 14.064, 2.58)
pt3dadd(102.922, 154.105, 13.998, 2.458)
pt3dadd(102.831, 154.105, 13.933, 2.336)
pt3dadd(102.741, 154.105, 13.867, 2.214)
pt3dadd(102.65, 154.105, 13.801, 2.092)
pt3dadd(102.56, 154.105, 13.736, 1.97)
pt3dadd(102.467, 154.102, 13.673, 1.854)
pt3dadd(102.364, 154.087, 13.622, 1.76)
pt3dadd(102.262, 154.073, 13.572, 1.668)
pt3dadd(102.16, 154.057, 13.521, 1.576)
pt3dadd(102.057, 154.043, 13.47, 1.484)
pt3dadd(101.955, 154.028, 13.419, 1.39)
pt3dadd(101.853, 154.013, 13.368, 1.298)
pt3dadd(101.75, 153.998, 13.318, 1.206)
pt3dadd(101.648, 153.984, 13.267, 1.114)
pt3dadd(101.546, 153.968, 13.216, 1.022)
pt3dadd(101.44, 153.937, 13.181, 0.968)
pt3dadd(101.332, 153.895, 13.157, 0.94)
pt3dadd(101.223, 153.852, 13.132, 0.914)
pt3dadd(101.115, 153.81, 13.108, 0.888)
pt3dadd(101.007, 153.767, 13.084, 0.862)
pt3dadd(100.898, 153.725, 13.06, 0.834)
pt3dadd(100.79, 153.682, 13.036, 0.808)
pt3dadd(100.682, 153.64, 13.012, 0.782)
pt3dadd(100.573, 153.596, 12.988, 0.756)
pt3dadd(100.465, 153.553, 12.963, 0.73)
pt3dadd(100.369, 153.496, 12.931, 0.73)
pt3dadd(100.279, 153.428, 12.894, 0.746)
pt3dadd(100.19, 153.362, 12.857, 0.76)
pt3dadd(100.1, 153.295, 12.82, 0.776)
pt3dadd(100.011, 153.229, 12.783, 0.792)
pt3dadd(99.922, 153.162, 12.747, 0.806)
pt3dadd(99.832, 153.096, 12.71, 0.822)
pt3dadd(99.743, 153.029, 12.673, 0.836)
pt3dadd(99.653, 152.963, 12.636, 0.852)
pt3dadd(99.564, 152.896, 12.599, 0.868)
pt3dadd(99.514, 152.84, 12.522, 0.86)
pt3dadd(99.469, 152.785, 12.442, 0.85)
pt3dadd(99.424, 152.73, 12.361, 0.838)
pt3dadd(99.379, 152.675, 12.281, 0.828)
pt3dadd(99.333, 152.621, 12.2, 0.818)
pt3dadd(99.288, 152.566, 12.12, 0.808)
pt3dadd(99.243, 152.51, 12.039, 0.798)
pt3dadd(99.197, 152.455, 11.959, 0.788)
pt3dadd(99.152, 152.401, 11.878, 0.778)
pt3dadd(99.107, 152.346, 11.798, 0.768)
pt3dadd(99.097, 152.3, 11.706, 0.826)
pt3dadd(99.087, 152.254, 11.614, 0.884)
pt3dadd(99.077, 152.208, 11.522, 0.944)
pt3dadd(99.067, 152.162, 11.43, 1.002)
pt3dadd(99.058, 152.117, 11.337, 1.062)
pt3dadd(99.048, 152.07, 11.246, 1.12)
pt3dadd(99.038, 152.024, 11.154, 1.18)
pt3dadd(99.028, 151.979, 11.061, 1.238)
pt3dadd(99.018, 151.932, 10.969, 1.298)
pt3dadd(99.008, 151.886, 10.878, 1.356)
}
apic[11] {pt3dclear()
pt3dadd(99.008, 151.886, 10.878, 1.356)
pt3dadd(98.948, 151.978, 10.869, 1.356)
pt3dadd(98.878, 152.075, 10.862, 1.356)
pt3dadd(98.808, 152.174, 10.855, 1.356)
pt3dadd(98.738, 152.273, 10.848, 1.356)
pt3dadd(98.667, 152.372, 10.841, 1.356)
pt3dadd(98.597, 152.471, 10.834, 1.356)
pt3dadd(98.527, 152.569, 10.827, 1.356)
pt3dadd(98.457, 152.668, 10.82, 1.356)
pt3dadd(98.387, 152.767, 10.813, 1.356)
pt3dadd(98.317, 152.866, 10.806, 1.356)
pt3dadd(98.247, 152.964, 10.799, 1.356)
pt3dadd(98.177, 153.062, 10.792, 1.356)
pt3dadd(98.107, 153.162, 10.785, 1.356)
pt3dadd(98.037, 153.26, 10.778, 1.356)
pt3dadd(97.967, 153.36, 10.771, 1.356)
pt3dadd(97.897, 153.457, 10.763, 1.356)
pt3dadd(97.827, 153.557, 10.756, 1.356)
pt3dadd(97.757, 153.655, 10.749, 1.356)
pt3dadd(97.687, 153.755, 10.742, 1.356)
pt3dadd(97.617, 153.854, 10.735, 1.356)
pt3dadd(97.56, 153.928, 10.691, 1.364)
pt3dadd(97.518, 153.974, 10.604, 1.38)
pt3dadd(97.477, 154.021, 10.516, 1.396)
pt3dadd(97.435, 154.068, 10.429, 1.412)
pt3dadd(97.393, 154.114, 10.341, 1.43)
pt3dadd(97.351, 154.16, 10.253, 1.446)
pt3dadd(97.309, 154.207, 10.166, 1.462)
pt3dadd(97.267, 154.254, 10.078, 1.478)
pt3dadd(97.225, 154.301, 9.991, 1.496)
pt3dadd(97.226, 154.302, 9.989, 1.496)
pt3dadd(97.196, 154.327, 9.893, 1.516)
pt3dadd(97.166, 154.351, 9.796, 1.54)
pt3dadd(97.137, 154.374, 9.699, 1.562)
pt3dadd(97.108, 154.397, 9.603, 1.584)
pt3dadd(97.078, 154.42, 9.506, 1.606)
pt3dadd(97.049, 154.442, 9.409, 1.628)
pt3dadd(97.02, 154.465, 9.312, 1.65)
pt3dadd(96.99, 154.489, 9.215, 1.672)
pt3dadd(96.961, 154.512, 9.118, 1.694)
pt3dadd(96.932, 154.534, 9.021, 1.716)
pt3dadd(96.869, 154.584, 8.946, 1.7)
pt3dadd(96.803, 154.638, 8.873, 1.682)
pt3dadd(96.737, 154.692, 8.8, 1.662)
pt3dadd(96.671, 154.745, 8.727, 1.644)
pt3dadd(96.672, 154.747, 8.726, 1.644)
pt3dadd(96.605, 154.8, 8.653, 1.624)
pt3dadd(96.539, 154.854, 8.58, 1.606)
pt3dadd(96.473, 154.908, 8.507, 1.586)
pt3dadd(96.407, 154.96, 8.434, 1.568)
pt3dadd(96.341, 155.014, 8.362, 1.548)
pt3dadd(96.263, 155.069, 8.302, 1.52)
pt3dadd(96.168, 155.128, 8.261, 1.476)
pt3dadd(96.074, 155.185, 8.22, 1.434)
pt3dadd(95.979, 155.242, 8.179, 1.392)
pt3dadd(95.885, 155.3, 8.138, 1.35)
pt3dadd(95.79, 155.358, 8.097, 1.306)
pt3dadd(95.696, 155.416, 8.056, 1.264)
pt3dadd(95.602, 155.474, 8.015, 1.222)
pt3dadd(95.507, 155.531, 7.974, 1.18)
pt3dadd(95.413, 155.588, 7.933, 1.136)
pt3dadd(95.318, 155.642, 7.89, 1.112)
pt3dadd(95.222, 155.694, 7.845, 1.102)
pt3dadd(95.126, 155.743, 7.8, 1.092)
pt3dadd(95.03, 155.795, 7.755, 1.082)
pt3dadd(94.934, 155.845, 7.71, 1.072)
pt3dadd(94.838, 155.897, 7.665, 1.062)
pt3dadd(94.743, 155.947, 7.62, 1.05)
pt3dadd(94.647, 155.998, 7.575, 1.04)
pt3dadd(94.551, 156.048, 7.53, 1.03)
pt3dadd(94.455, 156.098, 7.485, 1.02)
pt3dadd(94.366, 156.157, 7.436, 1.024)
pt3dadd(94.281, 156.22, 7.386, 1.036)
pt3dadd(94.196, 156.281, 7.336, 1.048)
pt3dadd(94.11, 156.342, 7.286, 1.06)
pt3dadd(94.025, 156.404, 7.235, 1.07)
pt3dadd(93.939, 156.467, 7.185, 1.082)
pt3dadd(93.854, 156.528, 7.135, 1.094)
pt3dadd(93.768, 156.589, 7.085, 1.104)
pt3dadd(93.683, 156.652, 7.034, 1.116)
pt3dadd(93.598, 156.714, 6.984, 1.128)
pt3dadd(93.514, 156.787, 6.944, 1.13)
pt3dadd(93.431, 156.863, 6.908, 1.13)
pt3dadd(93.347, 156.941, 6.871, 1.13)
pt3dadd(93.264, 157.018, 6.835, 1.13)
}
}
proc shape3d_71() {
apic[11] { pt3dadd(93.181, 157.094, 6.798, 1.13)
pt3dadd(93.098, 157.172, 6.762, 1.13)
pt3dadd(93.099, 157.174, 6.76, 1.13)
pt3dadd(93.015, 157.25, 6.724, 1.13)
pt3dadd(92.932, 157.327, 6.687, 1.13)
pt3dadd(92.849, 157.405, 6.651, 1.13)
pt3dadd(92.766, 157.482, 6.614, 1.13)
pt3dadd(92.686, 157.562, 6.578, 1.13)
pt3dadd(92.608, 157.644, 6.541, 1.13)
pt3dadd(92.529, 157.726, 6.504, 1.13)
pt3dadd(92.451, 157.807, 6.468, 1.13)
pt3dadd(92.372, 157.889, 6.431, 1.13)
pt3dadd(92.294, 157.97, 6.394, 1.13)
pt3dadd(92.215, 158.052, 6.358, 1.13)
pt3dadd(92.136, 158.135, 6.321, 1.13)
pt3dadd(92.058, 158.216, 6.284, 1.13)
pt3dadd(91.979, 158.297, 6.248, 1.13)
pt3dadd(91.922, 158.358, 6.173, 1.13)
pt3dadd(91.864, 158.418, 6.099, 1.13)
pt3dadd(91.865, 158.42, 6.097, 1.13)
pt3dadd(91.808, 158.482, 6.023, 1.13)
pt3dadd(91.75, 158.54, 5.948, 1.13)
pt3dadd(91.693, 158.602, 5.874, 1.13)
pt3dadd(91.635, 158.662, 5.799, 1.13)
pt3dadd(91.578, 158.723, 5.725, 1.13)
pt3dadd(91.521, 158.783, 5.65, 1.13)
pt3dadd(91.463, 158.843, 5.576, 1.13)
pt3dadd(91.406, 158.903, 5.502, 1.13)
pt3dadd(91.362, 159.017, 5.5, 0.268)
pt3dadd(91.318, 159.13, 5.498, 0.31)
pt3dadd(91.275, 159.244, 5.497, 0.352)
pt3dadd(91.231, 159.358, 5.495, 0.394)
pt3dadd(91.187, 159.47, 5.493, 0.436)
pt3dadd(91.158, 159.588, 5.491, 0.482)
pt3dadd(91.139, 159.709, 5.49, 0.53)
pt3dadd(91.117, 159.827, 5.488, 0.578)
pt3dadd(91, 159.85, 5.486, 0.618)
pt3dadd(90.882, 159.872, 5.485, 0.656)
pt3dadd(90.766, 159.9, 5.483, 0.692)
pt3dadd(90.652, 159.936, 5.481, 0.722)
pt3dadd(90.537, 159.971, 5.48, 0.754)
pt3dadd(90.419, 159.988, 5.478, 0.79)
pt3dadd(90.301, 160.004, 5.476, 0.828)
pt3dadd(90.182, 160.018, 5.474, 0.87)
pt3dadd(90.063, 160.019, 5.473, 0.92)
pt3dadd(89.947, 160.03, 5.46, 0.962)
pt3dadd(89.839, 160.057, 5.423, 0.988)
pt3dadd(89.73, 160.084, 5.387, 1.016)
pt3dadd(89.621, 160.111, 5.35, 1.042)
pt3dadd(89.513, 160.139, 5.313, 1.068)
pt3dadd(89.406, 160.182, 5.287, 1.108)
pt3dadd(89.301, 160.237, 5.268, 1.158)
pt3dadd(89.197, 160.271, 5.233, 1.214)
pt3dadd(89.094, 160.285, 5.182, 1.274)
pt3dadd(89.028, 160.339, 5.127, 1.326)
pt3dadd(89.001, 160.434, 5.066, 1.366)
pt3dadd(88.967, 160.488, 4.985, 1.388)
pt3dadd(88.928, 160.516, 4.891, 1.4)
pt3dadd(88.912, 160.58, 4.812, 1.39)
pt3dadd(88.913, 160.673, 4.744, 1.362)
pt3dadd(88.914, 160.765, 4.677, 1.334)
pt3dadd(88.913, 160.858, 4.61, 1.304)
pt3dadd(88.839, 160.942, 4.571, 1.206)
pt3dadd(88.84, 160.944, 4.569, 1.206)
pt3dadd(88.756, 161.017, 4.539, 1.116)
pt3dadd(88.757, 161.02, 4.537, 1.116)
pt3dadd(88.643, 161.054, 4.535, 1.052)
pt3dadd(88.528, 161.089, 4.534, 0.992)
pt3dadd(88.414, 161.125, 4.532, 0.928)
pt3dadd(88.318, 161.195, 4.513, 0.864)
pt3dadd(88.223, 161.263, 4.492, 0.798)
pt3dadd(88.119, 161.298, 4.455, 0.752)
pt3dadd(88.013, 161.35, 4.439, 0.746)
pt3dadd(87.905, 161.401, 4.424, 0.74)
pt3dadd(87.798, 161.453, 4.408, 0.736)
pt3dadd(87.691, 161.506, 4.393, 0.73)
pt3dadd(87.58, 161.546, 4.376, 0.72)
pt3dadd(87.467, 161.58, 4.359, 0.704)
pt3dadd(87.353, 161.614, 4.343, 0.69)
pt3dadd(87.24, 161.646, 4.326, 0.676)
pt3dadd(87.126, 161.68, 4.309, 0.66)
pt3dadd(87.017, 161.711, 4.279, 0.642)
pt3dadd(86.913, 161.74, 4.234, 0.622)
pt3dadd(86.809, 161.767, 4.188, 0.6)
pt3dadd(86.705, 161.796, 4.143, 0.576)
pt3dadd(86.601, 161.824, 4.098, 0.556)
pt3dadd(86.502, 161.863, 4.051, 0.528)
pt3dadd(86.401, 161.892, 4.009, 0.504)
pt3dadd(86.29, 161.851, 3.997, 0.516)
pt3dadd(86.18, 161.81, 3.985, 0.528)
pt3dadd(86.084, 161.806, 3.925, 0.576)
pt3dadd(85.988, 161.801, 3.865, 0.624)
pt3dadd(85.962, 161.802, 3.768, 0.672)
pt3dadd(85.943, 161.804, 3.668, 0.72)
pt3dadd(85.902, 161.807, 3.576, 0.776)
pt3dadd(85.818, 161.809, 3.504, 0.848)
pt3dadd(85.754, 161.81, 3.418, 0.862)
pt3dadd(85.692, 161.813, 3.332, 0.872)
pt3dadd(85.63, 161.815, 3.245, 0.882)
pt3dadd(85.568, 161.818, 3.158, 0.892)
pt3dadd(85.506, 161.82, 3.071, 0.902)
pt3dadd(85.425, 161.821, 2.997, 0.892)
pt3dadd(85.34, 161.824, 2.926, 0.876)
pt3dadd(85.254, 161.826, 2.854, 0.862)
pt3dadd(85.169, 161.828, 2.783, 0.846)
pt3dadd(85.084, 161.831, 2.711, 0.83)
pt3dadd(84.994, 161.832, 2.644, 0.812)
pt3dadd(84.903, 161.834, 2.578, 0.79)
pt3dadd(84.813, 161.837, 2.511, 0.77)
pt3dadd(84.723, 161.839, 2.445, 0.75)
pt3dadd(84.632, 161.842, 2.378, 0.73)
pt3dadd(84.528, 161.858, 2.33, 0.694)
pt3dadd(84.423, 161.878, 2.284, 0.658)
pt3dadd(84.317, 161.896, 2.238, 0.622)
pt3dadd(84.212, 161.915, 2.192, 0.584)
pt3dadd(84.106, 161.934, 2.147, 0.544)
pt3dadd(83.997, 161.956, 2.108, 0.484)
pt3dadd(83.892, 161.976, 2.065, 0.424)
pt3dadd(83.824, 161.978, 1.981, 0.364)
pt3dadd(83.757, 161.981, 1.897, 0.306)
pt3dadd(83.643, 161.988, 1.883, 0.29)
pt3dadd(83.524, 161.996, 1.876, 0.278)
pt3dadd(83.422, 162.049, 1.891, 0.29)
pt3dadd(83.327, 162.098, 1.885, 0.324)
pt3dadd(83.239, 162.11, 1.817, 0.398)
pt3dadd(83.13, 162.113, 1.776, 0.454)
pt3dadd(83.02, 162.115, 1.735, 0.508)
pt3dadd(82.915, 162.118, 1.687, 0.58)
pt3dadd(82.812, 162.12, 1.634, 0.662)
pt3dadd(82.73, 162.122, 1.565, 0.742)
pt3dadd(82.67, 162.124, 1.477, 0.822)
pt3dadd(82.614, 162.126, 1.388, 0.894)
pt3dadd(82.569, 162.128, 1.294, 0.95)
pt3dadd(82.523, 162.131, 1.2, 1.004)
pt3dadd(82.439, 162.132, 1.127, 1.04)
pt3dadd(82.374, 162.12, 1.045, 1.054)
pt3dadd(82.322, 162.096, 0.956, 1.054)
pt3dadd(82.271, 162.072, 0.867, 1.054)
pt3dadd(82.219, 162.048, 0.778, 1.054)
pt3dadd(82.168, 162.023, 0.689, 1.054)
pt3dadd(82.083, 162.025, 0.618, 1.054)
pt3dadd(81.997, 162.028, 0.547, 1.054)
pt3dadd(81.912, 162.03, 0.475, 1.054)
pt3dadd(81.827, 162.032, 0.404, 1.054)
pt3dadd(81.742, 162.034, 0.332, 1.054)
pt3dadd(81.673, 162.018, 0.251, 1.044)
pt3dadd(81.674, 162.02, 0.249, 1.044)
pt3dadd(81.605, 162.005, 0.167, 1.032)
pt3dadd(81.536, 161.989, 0.086, 1.022)
pt3dadd(81.467, 161.974, 0.004, 1.01)
pt3dadd(81.398, 161.963, -0.078, 0.998)
pt3dadd(81.329, 161.957, -0.161, 0.982)
pt3dadd(81.261, 161.951, -0.244, 0.966)
pt3dadd(81.192, 161.945, -0.327, 0.95)
pt3dadd(81.123, 161.939, -0.41, 0.934)
pt3dadd(81.043, 161.938, -0.485, 0.918)
pt3dadd(80.958, 161.94, -0.556, 0.904)
pt3dadd(80.873, 161.942, -0.628, 0.888)
pt3dadd(80.787, 161.944, -0.699, 0.874)
pt3dadd(80.788, 161.946, -0.701, 0.874)
pt3dadd(80.703, 161.948, -0.772, 0.858)
pt3dadd(80.612, 161.951, -0.838, 0.862)
pt3dadd(80.519, 161.953, -0.902, 0.874)
pt3dadd(80.45, 161.954, -0.982, 0.898)
pt3dadd(80.397, 161.957, -1.073, 0.932)
pt3dadd(80.337, 161.959, -1.16, 0.974)
pt3dadd(80.263, 161.962, -1.24, 1.034)
pt3dadd(80.179, 161.959, -1.306, 1.084)
pt3dadd(80.063, 161.945, -1.322, 1.106)
pt3dadd(79.946, 161.93, -1.337, 1.126)
pt3dadd(79.846, 161.885, -1.371, 1.13)
pt3dadd(79.747, 161.863, -1.42, 1.118)
pt3dadd(79.646, 161.863, -1.475, 1.098)
pt3dadd(79.545, 161.862, -1.53, 1.078)
pt3dadd(79.445, 161.862, -1.585, 1.058)
pt3dadd(79.344, 161.862, -1.64, 1.038)
pt3dadd(79.234, 161.863, -1.675, 1.024)
pt3dadd(79.117, 161.864, -1.698, 1.016)
pt3dadd(79.001, 161.867, -1.72, 1.008)
pt3dadd(78.884, 161.869, -1.742, 0.998)
pt3dadd(78.768, 161.872, -1.765, 0.99)
pt3dadd(78.651, 161.873, -1.787, 0.982)
pt3dadd(78.536, 161.875, -1.814, 0.972)
pt3dadd(78.421, 161.878, -1.844, 0.962)
pt3dadd(78.306, 161.88, -1.865, 0.954)
pt3dadd(78.186, 161.882, -1.867, 0.954)
pt3dadd(78.067, 161.884, -1.868, 0.954)
pt3dadd(77.95, 161.888, -1.878, 0.948)
pt3dadd(77.836, 161.896, -1.909, 0.926)
pt3dadd(77.722, 161.904, -1.939, 0.904)
pt3dadd(77.723, 161.905, -1.941, 0.904)
pt3dadd(77.651, 161.998, -1.966, 0.878)
pt3dadd(77.578, 162.088, -1.994, 0.854)
pt3dadd(77.481, 162.133, -2.041, 0.854)
pt3dadd(77.369, 162.142, -2.072, 0.88)
pt3dadd(77.251, 162.144, -2.084, 0.904)
pt3dadd(77.132, 162.145, -2.085, 0.9)
pt3dadd(77.013, 162.15, -2.087, 0.87)
pt3dadd(76.895, 162.172, -2.089, 0.806)
pt3dadd(76.791, 162.226, -2.091, 0.738)
}
}
proc shape3d_72() {
apic[11] { pt3dadd(76.791, 162.228, -2.092, 0.738)
pt3dadd(76.713, 162.319, -2.094, 0.756)
pt3dadd(76.685, 162.437, -2.099, 0.88)
pt3dadd(76.676, 162.552, -2.127, 1.01)
pt3dadd(76.677, 162.625, -2.204, 1.122)
pt3dadd(76.677, 162.644, -2.304, 1.182)
pt3dadd(76.678, 162.648, -2.406, 1.23)
pt3dadd(76.679, 162.671, -2.506, 1.23)
pt3dadd(76.68, 162.694, -2.606, 1.23)
pt3dadd(76.681, 162.75, -2.688, 1.226)
pt3dadd(76.682, 162.851, -2.746, 1.214)
pt3dadd(76.668, 162.946, -2.807, 1.194)
pt3dadd(76.615, 163.024, -2.872, 1.15)
pt3dadd(76.537, 163.096, -2.906, 1.104)
pt3dadd(76.436, 163.162, -2.913, 1.058)
pt3dadd(76.353, 163.229, -2.945, 1.014)
pt3dadd(76.295, 163.3, -3.012, 0.98)
pt3dadd(76.236, 163.372, -3.079, 0.946)
pt3dadd(76.185, 163.445, -3.148, 0.892)
pt3dadd(76.141, 163.523, -3.218, 0.822)
pt3dadd(76.096, 163.616, -3.266, 0.726)
pt3dadd(76.025, 163.674, -3.333, 0.714)
pt3dadd(75.954, 163.732, -3.401, 0.702)
pt3dadd(75.883, 163.789, -3.468, 0.69)
pt3dadd(75.812, 163.847, -3.534, 0.678)
pt3dadd(75.708, 163.888, -3.573, 0.678)
pt3dadd(75.604, 163.928, -3.612, 0.678)
pt3dadd(75.501, 163.969, -3.651, 0.678)
pt3dadd(75.397, 164.01, -3.69, 0.678)
pt3dadd(75.293, 164.062, -3.712, 0.676)
pt3dadd(75.189, 164.12, -3.72, 0.67)
pt3dadd(75.084, 164.179, -3.729, 0.666)
pt3dadd(74.979, 164.238, -3.737, 0.66)
pt3dadd(74.875, 164.297, -3.746, 0.654)
pt3dadd(74.769, 164.352, -3.751, 0.652)
pt3dadd(74.661, 164.406, -3.755, 0.652)
pt3dadd(74.554, 164.46, -3.759, 0.652)
pt3dadd(74.446, 164.514, -3.763, 0.652)
pt3dadd(74.339, 164.568, -3.767, 0.652)
pt3dadd(74.228, 164.602, -3.78, 0.654)
pt3dadd(74.112, 164.611, -3.806, 0.66)
pt3dadd(73.997, 164.62, -3.832, 0.664)
pt3dadd(73.998, 164.622, -3.834, 0.664)
pt3dadd(73.883, 164.632, -3.86, 0.668)
pt3dadd(73.767, 164.641, -3.886, 0.674)
pt3dadd(73.652, 164.651, -3.912, 0.678)
pt3dadd(73.542, 164.68, -3.946, 0.698)
pt3dadd(73.434, 164.71, -3.98, 0.72)
pt3dadd(73.325, 164.74, -4.015, 0.74)
pt3dadd(73.216, 164.771, -4.049, 0.762)
pt3dadd(73.115, 164.815, -4.077, 0.786)
pt3dadd(73.048, 164.916, -4.079, 0.82)
pt3dadd(72.979, 165.013, -4.081, 0.854)
pt3dadd(72.98, 165.014, -4.082, 0.854)
pt3dadd(72.861, 165.022, -4.084, 0.882)
pt3dadd(72.741, 165.029, -4.086, 0.908)
pt3dadd(72.622, 165.035, -4.087, 0.932)
pt3dadd(72.503, 165.036, -4.089, 0.948)
pt3dadd(72.384, 165.038, -4.091, 0.966)
pt3dadd(72.267, 165.041, -4.099, 0.982)
pt3dadd(72.161, 165.043, -4.146, 1.006)
pt3dadd(72.054, 165.046, -4.192, 1.028)
pt3dadd(71.987, 165.047, -4.275, 1.014)
pt3dadd(71.901, 165.049, -4.338, 0.996)
pt3dadd(71.789, 165.052, -4.374, 0.978)
pt3dadd(71.677, 165.054, -4.41, 0.958)
pt3dadd(71.565, 165.056, -4.447, 0.94)
pt3dadd(71.454, 165.058, -4.483, 0.922)
pt3dadd(71.342, 165.06, -4.52, 0.904)
pt3dadd(71.242, 165.071, -4.574, 0.878)
pt3dadd(71.141, 165.082, -4.629, 0.852)
pt3dadd(71.04, 165.091, -4.683, 0.826)
pt3dadd(70.939, 165.102, -4.738, 0.8)
pt3dadd(70.84, 165.119, -4.792, 0.776)
pt3dadd(70.752, 165.169, -4.847, 0.758)
pt3dadd(70.663, 165.22, -4.902, 0.74)
pt3dadd(70.574, 165.269, -4.957, 0.722)
pt3dadd(70.486, 165.319, -5.012, 0.704)
pt3dadd(70.487, 165.322, -5.014, 0.704)
pt3dadd(70.488, 165.324, -5.015, 0.704)
pt3dadd(70.383, 165.329, -5.065, 0.704)
pt3dadd(70.279, 165.334, -5.115, 0.704)
pt3dadd(70.175, 165.338, -5.165, 0.704)
pt3dadd(70.07, 165.343, -5.215, 0.704)
pt3dadd(69.966, 165.348, -5.264, 0.704)
pt3dadd(69.871, 165.402, -5.306, 0.726)
pt3dadd(69.778, 165.461, -5.347, 0.748)
pt3dadd(69.684, 165.52, -5.389, 0.772)
pt3dadd(69.591, 165.58, -5.43, 0.796)
pt3dadd(69.51, 165.623, -5.494, 0.828)
pt3dadd(69.436, 165.659, -5.568, 0.864)
pt3dadd(69.437, 165.661, -5.57, 0.864)
pt3dadd(69.363, 165.697, -5.645, 0.898)
pt3dadd(69.289, 165.733, -5.719, 0.934)
pt3dadd(69.205, 165.774, -5.781, 0.968)
pt3dadd(69.107, 165.82, -5.827, 1.004)
pt3dadd(69.009, 165.865, -5.872, 1.038)
pt3dadd(68.911, 165.911, -5.918, 1.074)
pt3dadd(68.812, 165.952, -5.962, 1.104)
pt3dadd(68.699, 165.956, -5.997, 1.104)
pt3dadd(68.587, 165.961, -6.031, 1.104)
pt3dadd(68.474, 165.965, -6.066, 1.104)
pt3dadd(68.362, 165.97, -6.1, 1.104)
pt3dadd(68.25, 165.974, -6.135, 1.104)
pt3dadd(68.155, 166.01, -6.186, 1.088)
pt3dadd(68.07, 166.061, -6.244, 1.064)
pt3dadd(67.984, 166.111, -6.301, 1.04)
pt3dadd(67.898, 166.162, -6.359, 1.016)
pt3dadd(67.811, 166.206, -6.42, 0.982)
pt3dadd(67.724, 166.247, -6.481, 0.94)
pt3dadd(67.637, 166.286, -6.543, 0.9)
pt3dadd(67.55, 166.326, -6.605, 0.858)
pt3dadd(67.455, 166.367, -6.653, 0.826)
pt3dadd(67.344, 166.409, -6.668, 0.816)
pt3dadd(67.233, 166.451, -6.683, 0.806)
pt3dadd(67.122, 166.493, -6.698, 0.796)
pt3dadd(67.011, 166.535, -6.713, 0.786)
pt3dadd(66.902, 166.583, -6.729, 0.782)
pt3dadd(66.801, 166.645, -6.744, 0.792)
pt3dadd(66.699, 166.708, -6.76, 0.804)
pt3dadd(66.597, 166.769, -6.776, 0.814)
pt3dadd(66.495, 166.831, -6.792, 0.824)
pt3dadd(66.389, 166.872, -6.821, 0.848)
pt3dadd(66.281, 166.9, -6.858, 0.88)
pt3dadd(66.172, 166.926, -6.895, 0.912)
pt3dadd(66.063, 166.954, -6.932, 0.944)
pt3dadd(65.955, 166.981, -6.969, 0.976)
pt3dadd(65.863, 167.005, -7.03, 1.024)
pt3dadd(65.773, 167.028, -7.095, 1.078)
pt3dadd(65.774, 167.03, -7.097, 1.078)
pt3dadd(65.67, 167.087, -7.107, 1.102)
pt3dadd(65.565, 167.144, -7.114, 1.126)
pt3dadd(65.47, 167.218, -7.116, 1.12)
pt3dadd(65.377, 167.296, -7.118, 1.108)
pt3dadd(65.288, 167.377, -7.12, 1.072)
pt3dadd(65.201, 167.461, -7.122, 1.026)
pt3dadd(65.154, 167.566, -7.123, 0.958)
pt3dadd(65.14, 167.687, -7.125, 0.874)
pt3dadd(65.069, 167.774, -7.142, 0.832)
pt3dadd(64.98, 167.852, -7.164, 0.804)
pt3dadd(64.89, 167.929, -7.186, 0.776)
pt3dadd(64.801, 168.007, -7.207, 0.748)
pt3dadd(64.713, 168.088, -7.223, 0.726)
pt3dadd(64.629, 168.174, -7.227, 0.722)
pt3dadd(64.545, 168.262, -7.231, 0.716)
pt3dadd(64.461, 168.348, -7.235, 0.71)
pt3dadd(64.377, 168.434, -7.239, 0.706)
pt3dadd(64.3, 168.528, -7.242, 0.706)
pt3dadd(64.232, 168.629, -7.244, 0.71)
pt3dadd(64.164, 168.728, -7.245, 0.716)
pt3dadd(64.096, 168.829, -7.247, 0.72)
pt3dadd(64.028, 168.929, -7.249, 0.726)
pt3dadd(63.945, 169.014, -7.25, 0.732)
pt3dadd(63.844, 169.079, -7.252, 0.742)
pt3dadd(63.742, 169.145, -7.254, 0.752)
pt3dadd(63.641, 169.21, -7.256, 0.762)
pt3dadd(63.54, 169.274, -7.257, 0.772)
pt3dadd(63.433, 169.326, -7.259, 0.778)
pt3dadd(63.316, 169.35, -7.261, 0.778)
pt3dadd(63.199, 169.374, -7.262, 0.778)
pt3dadd(63.082, 169.399, -7.264, 0.778)
pt3dadd(62.965, 169.423, -7.266, 0.778)
pt3dadd(62.848, 169.447, -7.267, 0.778)
pt3dadd(62.731, 169.471, -7.271, 0.778)
pt3dadd(62.613, 169.494, -7.279, 0.778)
pt3dadd(62.496, 169.517, -7.286, 0.778)
pt3dadd(62.379, 169.541, -7.294, 0.778)
pt3dadd(62.262, 169.564, -7.301, 0.778)
pt3dadd(62.145, 169.586, -7.309, 0.778)
pt3dadd(62.031, 169.62, -7.32, 0.77)
pt3dadd(61.92, 169.662, -7.336, 0.754)
pt3dadd(61.809, 169.705, -7.351, 0.74)
pt3dadd(61.698, 169.747, -7.366, 0.724)
pt3dadd(61.587, 169.789, -7.381, 0.71)
pt3dadd(61.482, 169.843, -7.398, 0.704)
pt3dadd(61.381, 169.907, -7.416, 0.704)
pt3dadd(61.281, 169.969, -7.435, 0.704)
pt3dadd(61.18, 170.033, -7.454, 0.704)
pt3dadd(61.08, 170.095, -7.472, 0.704)
pt3dadd(60.971, 170.126, -7.507, 0.708)
pt3dadd(60.862, 170.156, -7.541, 0.714)
pt3dadd(60.753, 170.186, -7.576, 0.718)
pt3dadd(60.644, 170.216, -7.61, 0.724)
pt3dadd(60.535, 170.246, -7.644, 0.732)
pt3dadd(60.425, 170.274, -7.678, 0.748)
pt3dadd(60.315, 170.3, -7.713, 0.764)
pt3dadd(60.205, 170.328, -7.747, 0.78)
pt3dadd(60.095, 170.354, -7.781, 0.794)
pt3dadd(59.993, 170.402, -7.812, 0.804)
pt3dadd(59.902, 170.474, -7.839, 0.804)
pt3dadd(59.811, 170.548, -7.866, 0.804)
pt3dadd(59.72, 170.621, -7.894, 0.804)
pt3dadd(59.628, 170.693, -7.919, 0.802)
pt3dadd(59.534, 170.768, -7.923, 0.792)
pt3dadd(59.44, 170.844, -7.926, 0.782)
pt3dadd(59.346, 170.92, -7.93, 0.772)
pt3dadd(59.252, 170.995, -7.934, 0.762)
pt3dadd(59.158, 171.07, -7.942, 0.752)
pt3dadd(59.066, 171.144, -7.963, 0.746)
pt3dadd(58.974, 171.218, -7.985, 0.742)
}
}
proc shape3d_73() {
apic[11] { pt3dadd(58.881, 171.293, -8.007, 0.736)
pt3dadd(58.789, 171.366, -8.028, 0.73)
pt3dadd(58.686, 171.427, -8.035, 0.732)
pt3dadd(58.58, 171.482, -8.037, 0.736)
pt3dadd(58.474, 171.539, -8.039, 0.742)
pt3dadd(58.367, 171.595, -8.04, 0.746)
pt3dadd(58.261, 171.65, -8.042, 0.75)
pt3dadd(58.158, 171.704, -8.062, 0.774)
pt3dadd(58.059, 171.756, -8.1, 0.814)
pt3dadd(57.98, 171.839, -8.125, 0.846)
pt3dadd(57.912, 171.937, -8.144, 0.872)
pt3dadd(57.83, 172.015, -8.177, 0.888)
pt3dadd(57.741, 172.084, -8.216, 0.902)
pt3dadd(57.687, 172.146, -8.29, 0.892)
pt3dadd(57.635, 172.206, -8.367, 0.874)
pt3dadd(57.581, 172.252, -8.45, 0.832)
pt3dadd(57.534, 172.316, -8.527, 0.812)
pt3dadd(57.487, 172.382, -8.603, 0.794)
pt3dadd(57.44, 172.448, -8.68, 0.776)
pt3dadd(57.393, 172.514, -8.756, 0.758)
pt3dadd(57.311, 172.571, -8.81, 0.744)
pt3dadd(57.217, 172.624, -8.857, 0.732)
pt3dadd(57.123, 172.675, -8.903, 0.72)
pt3dadd(57.029, 172.728, -8.949, 0.708)
pt3dadd(56.933, 172.781, -8.993, 0.7)
pt3dadd(56.835, 172.832, -9.033, 0.694)
pt3dadd(56.737, 172.884, -9.073, 0.688)
pt3dadd(56.639, 172.936, -9.114, 0.682)
pt3dadd(56.545, 172.99, -9.158, 0.678)
pt3dadd(56.47, 173.053, -9.217, 0.678)
pt3dadd(56.397, 173.12, -9.277, 0.678)
pt3dadd(56.329, 173.191, -9.336, 0.678)
pt3dadd(56.245, 173.268, -9.366, 0.678)
pt3dadd(56.155, 173.346, -9.385, 0.678)
pt3dadd(56.073, 173.424, -9.359, 0.7)
pt3dadd(55.991, 173.501, -9.324, 0.73)
pt3dadd(55.916, 173.591, -9.298, 0.77)
pt3dadd(55.824, 173.663, -9.313, 0.792)
pt3dadd(55.729, 173.731, -9.337, 0.81)
pt3dadd(55.634, 173.8, -9.362, 0.826)
pt3dadd(55.538, 173.868, -9.386, 0.844)
pt3dadd(55.436, 173.924, -9.402, 0.854)
pt3dadd(55.322, 173.963, -9.403, 0.854)
pt3dadd(55.209, 174.001, -9.405, 0.854)
pt3dadd(55.095, 174.038, -9.407, 0.854)
pt3dadd(54.981, 174.077, -9.408, 0.854)
pt3dadd(54.867, 174.114, -9.41, 0.854)
pt3dadd(54.76, 174.164, -9.427, 0.858)
pt3dadd(54.655, 174.218, -9.448, 0.864)
pt3dadd(54.55, 174.272, -9.468, 0.868)
pt3dadd(54.445, 174.325, -9.489, 0.874)
pt3dadd(54.34, 174.38, -9.508, 0.878)
pt3dadd(54.234, 174.437, -9.512, 0.874)
pt3dadd(54.128, 174.493, -9.516, 0.868)
pt3dadd(54.022, 174.551, -9.519, 0.864)
pt3dadd(53.916, 174.607, -9.523, 0.858)
pt3dadd(53.811, 174.665, -9.527, 0.854)
pt3dadd(53.706, 174.724, -9.529, 0.848)
pt3dadd(53.601, 174.782, -9.53, 0.844)
pt3dadd(53.496, 174.841, -9.532, 0.84)
pt3dadd(53.391, 174.9, -9.534, 0.834)
pt3dadd(53.286, 174.959, -9.536, 0.83)
pt3dadd(53.189, 175.031, -9.537, 0.824)
pt3dadd(53.094, 175.104, -9.539, 0.82)
pt3dadd(52.999, 175.178, -9.541, 0.814)
pt3dadd(52.904, 175.253, -9.542, 0.81)
pt3dadd(52.809, 175.327, -9.544, 0.804)
pt3dadd(52.709, 175.393, -9.546, 0.816)
pt3dadd(52.607, 175.458, -9.547, 0.83)
pt3dadd(52.506, 175.524, -9.549, 0.846)
pt3dadd(52.404, 175.589, -9.551, 0.86)
pt3dadd(52.303, 175.654, -9.553, 0.876)
pt3dadd(52.215, 175.734, -9.565, 0.9)
pt3dadd(52.13, 175.818, -9.582, 0.928)
pt3dadd(52.046, 175.903, -9.598, 0.956)
pt3dadd(51.961, 175.987, -9.615, 0.982)
pt3dadd(51.871, 176.064, -9.629, 1.006)
pt3dadd(51.763, 176.117, -9.638, 1.01)
pt3dadd(51.656, 176.17, -9.646, 1.016)
pt3dadd(51.548, 176.222, -9.654, 1.02)
pt3dadd(51.44, 176.274, -9.663, 1.026)
pt3dadd(51.332, 176.328, -9.67, 1.026)
pt3dadd(51.333, 176.329, -9.671, 1.026)
pt3dadd(51.227, 176.386, -9.673, 1.006)
pt3dadd(51.12, 176.441, -9.675, 0.988)
pt3dadd(51.014, 176.497, -9.676, 0.968)
pt3dadd(50.907, 176.552, -9.678, 0.948)
pt3dadd(50.801, 176.609, -9.68, 0.93)
pt3dadd(50.692, 176.658, -9.681, 0.902)
pt3dadd(50.582, 176.708, -9.683, 0.874)
pt3dadd(50.473, 176.758, -9.685, 0.846)
pt3dadd(50.364, 176.808, -9.687, 0.816)
pt3dadd(50.254, 176.857, -9.688, 0.788)
pt3dadd(50.162, 176.932, -9.69, 0.772)
pt3dadd(50.08, 177.02, -9.692, 0.762)
pt3dadd(49.997, 177.109, -9.693, 0.752)
pt3dadd(49.914, 177.197, -9.695, 0.742)
pt3dadd(49.832, 177.286, -9.697, 0.732)
pt3dadd(49.735, 177.356, -9.698, 0.72)
pt3dadd(49.633, 177.419, -9.7, 0.708)
pt3dadd(49.529, 177.478, -9.71, 0.696)
pt3dadd(49.424, 177.533, -9.728, 0.684)
pt3dadd(49.337, 177.596, -9.767, 0.65)
pt3dadd(49.268, 177.667, -9.826, 0.592)
pt3dadd(49.232, 177.728, -9.907, 0.538)
pt3dadd(49.205, 177.785, -9.995, 0.486)
pt3dadd(49.164, 177.883, -10.038, 0.464)
pt3dadd(49.119, 177.989, -10.071, 0.448)
pt3dadd(49.074, 178.096, -10.104, 0.432)
pt3dadd(49.024, 178.204, -10.117, 0.44)
pt3dadd(49.025, 178.206, -10.119, 0.44)
pt3dadd(48.972, 178.315, -10.121, 0.464)
pt3dadd(48.919, 178.424, -10.122, 0.528)
pt3dadd(48.858, 178.529, -10.136, 0.588)
pt3dadd(48.794, 178.628, -10.158, 0.606)
pt3dadd(48.73, 178.728, -10.179, 0.622)
pt3dadd(48.666, 178.829, -10.201, 0.638)
pt3dadd(48.597, 178.926, -10.22, 0.654)
pt3dadd(48.507, 179.005, -10.227, 0.666)
pt3dadd(48.415, 179.083, -10.234, 0.678)
pt3dadd(48.309, 179.14, -10.236, 0.678)
pt3dadd(48.203, 179.195, -10.238, 0.678)
pt3dadd(48.102, 179.242, -10.275, 0.666)
pt3dadd(48.003, 179.287, -10.318, 0.652)
pt3dadd(47.943, 179.29, -10.406, 0.642)
pt3dadd(47.883, 179.292, -10.494, 0.63)
pt3dadd(47.809, 179.352, -10.549, 0.62)
pt3dadd(47.732, 179.428, -10.597, 0.612)
pt3dadd(47.655, 179.503, -10.644, 0.604)
pt3dadd(47.587, 179.602, -10.651, 0.602)
pt3dadd(47.52, 179.702, -10.653, 0.602)
pt3dadd(47.416, 179.742, -10.655, 0.598)
pt3dadd(47.298, 179.759, -10.656, 0.59)
pt3dadd(47.179, 179.776, -10.658, 0.584)
pt3dadd(47.063, 179.792, -10.666, 0.574)
pt3dadd(46.958, 179.8, -10.715, 0.55)
pt3dadd(46.853, 179.809, -10.763, 0.528)
pt3dadd(46.814, 179.851, -10.846, 0.504)
pt3dadd(46.723, 179.902, -10.898, 0.51)
pt3dadd(46.632, 179.951, -10.95, 0.516)
pt3dadd(46.54, 180.001, -11.002, 0.522)
pt3dadd(46.449, 180.05, -11.054, 0.53)
pt3dadd(46.358, 180.101, -11.106, 0.546)
pt3dadd(46.267, 180.15, -11.158, 0.564)
pt3dadd(46.175, 180.2, -11.21, 0.582)
pt3dadd(46.084, 180.25, -11.262, 0.6)
pt3dadd(45.997, 180.314, -11.308, 0.62)
pt3dadd(45.911, 180.382, -11.352, 0.638)
pt3dadd(45.825, 180.448, -11.397, 0.656)
pt3dadd(45.739, 180.515, -11.442, 0.674)
pt3dadd(45.639, 180.575, -11.459, 0.69)
pt3dadd(45.534, 180.634, -11.467, 0.704)
pt3dadd(45.429, 180.692, -11.476, 0.72)
pt3dadd(45.325, 180.751, -11.484, 0.736)
pt3dadd(45.22, 180.811, -11.492, 0.75)
pt3dadd(45.141, 180.9, -11.495, 0.766)
pt3dadd(45.067, 180.996, -11.497, 0.78)
pt3dadd(44.993, 181.092, -11.499, 0.796)
pt3dadd(44.919, 181.188, -11.5, 0.812)
pt3dadd(44.844, 181.284, -11.502, 0.826)
pt3dadd(44.816, 181.4, -11.508, 0.838)
pt3dadd(44.795, 181.52, -11.514, 0.848)
pt3dadd(44.745, 181.61, -11.533, 0.85)
pt3dadd(44.642, 181.646, -11.575, 0.836)
pt3dadd(44.535, 181.687, -11.602, 0.814)
pt3dadd(44.423, 181.73, -11.608, 0.78)
pt3dadd(44.312, 181.774, -11.614, 0.75)
pt3dadd(44.199, 181.816, -11.616, 0.728)
pt3dadd(44.087, 181.858, -11.617, 0.706)
pt3dadd(43.979, 181.91, -11.619, 0.69)
pt3dadd(43.87, 181.96, -11.621, 0.674)
pt3dadd(43.755, 181.994, -11.622, 0.664)
pt3dadd(43.641, 182.029, -11.624, 0.654)
pt3dadd(43.528, 182.035, -11.656, 0.634)
pt3dadd(43.416, 182.036, -11.691, 0.612)
pt3dadd(43.337, 182.05, -11.756, 0.582)
pt3dadd(43.285, 182.072, -11.846, 0.544)
pt3dadd(43.219, 182.13, -11.901, 0.52)
pt3dadd(43.141, 182.218, -11.927, 0.506)
pt3dadd(43.048, 182.291, -11.936, 0.514)
pt3dadd(42.955, 182.365, -11.943, 0.532)
pt3dadd(42.89, 182.464, -11.967, 0.548)
pt3dadd(42.825, 182.562, -11.991, 0.566)
pt3dadd(42.759, 182.66, -12.016, 0.582)
pt3dadd(42.694, 182.759, -12.04, 0.6)
pt3dadd(42.627, 182.857, -12.06, 0.634)
pt3dadd(42.559, 182.956, -12.079, 0.672)
pt3dadd(42.486, 183.042, -12.115, 0.714)
pt3dadd(42.414, 183.128, -12.153, 0.756)
pt3dadd(42.362, 183.236, -12.171, 0.794)
pt3dadd(42.308, 183.34, -12.193, 0.83)
pt3dadd(42.309, 183.342, -12.194, 0.83)
pt3dadd(42.239, 183.372, -12.273, 0.858)
pt3dadd(42.161, 183.4, -12.344, 0.878)
pt3dadd(42.049, 183.413, -12.379, 0.878)
pt3dadd(41.938, 183.426, -12.414, 0.878)
pt3dadd(41.826, 183.439, -12.449, 0.878)
pt3dadd(41.718, 183.468, -12.484, 0.866)
pt3dadd(41.615, 183.511, -12.521, 0.84)
pt3dadd(41.525, 183.54, -12.58, 0.812)
}
}
proc shape3d_74() {
apic[11] { pt3dadd(41.444, 183.557, -12.654, 0.782)
pt3dadd(41.363, 183.575, -12.728, 0.754)
pt3dadd(41.312, 183.628, -12.809, 0.726)
pt3dadd(41.253, 183.679, -12.884, 0.702)
pt3dadd(41.153, 183.725, -12.925, 0.692)
pt3dadd(41.052, 183.769, -12.967, 0.682)
pt3dadd(40.943, 183.79, -13.001, 0.678)
pt3dadd(40.829, 183.797, -13.032, 0.678)
pt3dadd(40.724, 183.827, -13.065, 0.678)
pt3dadd(40.644, 183.913, -13.08, 0.696)
pt3dadd(40.567, 184.007, -13.087, 0.72)
pt3dadd(40.467, 184.069, -13.09, 0.752)
pt3dadd(40.357, 184.117, -13.092, 0.784)
pt3dadd(40.247, 184.15, -13.108, 0.822)
pt3dadd(40.135, 184.158, -13.144, 0.866)
pt3dadd(40.025, 184.165, -13.183, 0.904)
pt3dadd(39.922, 184.166, -13.235, 0.904)
pt3dadd(39.82, 184.169, -13.288, 0.904)
pt3dadd(39.701, 184.171, -13.297, 0.878)
pt3dadd(39.582, 184.175, -13.305, 0.852)
pt3dadd(39.466, 184.198, -13.314, 0.834)
pt3dadd(39.349, 184.222, -13.324, 0.816)
pt3dadd(39.232, 184.244, -13.333, 0.8)
pt3dadd(39.115, 184.268, -13.343, 0.782)
pt3dadd(38.998, 184.291, -13.352, 0.764)
pt3dadd(38.882, 184.307, -13.37, 0.75)
pt3dadd(38.767, 184.308, -13.399, 0.74)
pt3dadd(38.653, 184.31, -13.428, 0.732)
pt3dadd(38.538, 184.313, -13.457, 0.722)
pt3dadd(38.424, 184.315, -13.487, 0.714)
pt3dadd(38.31, 184.316, -13.516, 0.706)
pt3dadd(38.198, 184.319, -13.552, 0.7)
pt3dadd(38.087, 184.321, -13.591, 0.694)
pt3dadd(37.977, 184.324, -13.63, 0.69)
pt3dadd(37.866, 184.326, -13.669, 0.686)
pt3dadd(37.756, 184.327, -13.707, 0.68)
pt3dadd(37.656, 184.33, -13.759, 0.674)
pt3dadd(37.575, 184.332, -13.835, 0.662)
pt3dadd(37.486, 184.334, -13.897, 0.65)
pt3dadd(37.37, 184.337, -13.921, 0.64)
pt3dadd(37.254, 184.338, -13.945, 0.63)
pt3dadd(37.142, 184.34, -13.981, 0.62)
pt3dadd(37.032, 184.343, -14.021, 0.608)
pt3dadd(36.941, 184.375, -14.07, 0.61)
pt3dadd(36.942, 184.378, -14.072, 0.61)
pt3dadd(36.873, 184.448, -14.131, 0.624)
pt3dadd(36.797, 184.528, -14.173, 0.634)
pt3dadd(36.718, 184.61, -14.208, 0.642)
pt3dadd(36.639, 184.692, -14.243, 0.65)
pt3dadd(36.532, 184.717, -14.264, 0.652)
pt3dadd(36.414, 184.72, -14.278, 0.652)
pt3dadd(36.296, 184.722, -14.293, 0.652)
pt3dadd(36.191, 184.751, -14.33, 0.654)
pt3dadd(36.078, 184.788, -14.34, 0.66)
pt3dadd(35.964, 184.825, -14.35, 0.664)
pt3dadd(35.851, 184.864, -14.36, 0.668)
pt3dadd(35.738, 184.901, -14.37, 0.674)
pt3dadd(35.625, 184.94, -14.382, 0.68)
pt3dadd(35.52, 184.994, -14.402, 0.696)
pt3dadd(35.415, 185.048, -14.423, 0.712)
pt3dadd(35.31, 185.101, -14.444, 0.728)
pt3dadd(35.205, 185.155, -14.465, 0.744)
pt3dadd(35.094, 185.189, -14.477, 0.756)
pt3dadd(34.975, 185.2, -14.479, 0.758)
pt3dadd(34.856, 185.21, -14.48, 0.762)
pt3dadd(34.737, 185.22, -14.482, 0.766)
pt3dadd(34.618, 185.231, -14.484, 0.77)
pt3dadd(34.499, 185.24, -14.485, 0.774)
pt3dadd(34.381, 185.251, -14.487, 0.778)
pt3dadd(34.266, 185.282, -14.489, 0.774)
pt3dadd(34.151, 185.318, -14.491, 0.77)
pt3dadd(34.036, 185.353, -14.492, 0.766)
pt3dadd(33.922, 185.388, -14.494, 0.762)
pt3dadd(33.807, 185.424, -14.496, 0.756)
pt3dadd(33.693, 185.458, -14.502, 0.75)
pt3dadd(33.581, 185.49, -14.526, 0.74)
pt3dadd(33.469, 185.521, -14.551, 0.73)
pt3dadd(33.357, 185.554, -14.575, 0.72)
pt3dadd(33.244, 185.585, -14.599, 0.71)
pt3dadd(33.145, 185.61, -14.64, 0.696)
pt3dadd(33.083, 185.618, -14.726, 0.672)
pt3dadd(33.011, 185.627, -14.801, 0.652)
pt3dadd(32.893, 185.628, -14.82, 0.642)
pt3dadd(32.776, 185.63, -14.839, 0.632)
pt3dadd(32.664, 185.644, -14.869, 0.628)
pt3dadd(32.555, 185.665, -14.908, 0.628)
pt3dadd(32.556, 185.668, -14.91, 0.628)
pt3dadd(32.557, 185.67, -14.912, 0.628)
pt3dadd(32.465, 185.719, -14.954, 0.65)
pt3dadd(32.39, 185.797, -15.001, 0.692)
pt3dadd(32.342, 185.893, -15.048, 0.722)
pt3dadd(32.304, 185.994, -15.096, 0.746)
pt3dadd(32.267, 186.095, -15.145, 0.77)
pt3dadd(32.219, 186.132, -15.221, 0.778)
pt3dadd(32.166, 186.134, -15.312, 0.778)
pt3dadd(32.097, 186.137, -15.392, 0.764)
pt3dadd(32.004, 186.139, -15.456, 0.728)
pt3dadd(31.911, 186.14, -15.52, 0.694)
pt3dadd(31.81, 186.154, -15.571, 0.65)
pt3dadd(31.701, 186.175, -15.61, 0.602)
pt3dadd(31.597, 186.217, -15.639, 0.558)
pt3dadd(31.486, 186.257, -15.66, 0.566)
pt3dadd(31.374, 186.29, -15.682, 0.58)
pt3dadd(31.262, 186.325, -15.704, 0.596)
pt3dadd(31.15, 186.36, -15.726, 0.61)
pt3dadd(31.038, 186.394, -15.748, 0.626)
pt3dadd(30.919, 186.4, -15.752, 0.638)
pt3dadd(30.8, 186.402, -15.753, 0.648)
pt3dadd(30.681, 186.404, -15.755, 0.658)
pt3dadd(30.562, 186.407, -15.757, 0.67)
pt3dadd(30.443, 186.409, -15.759, 0.68)
pt3dadd(30.324, 186.41, -15.76, 0.692)
pt3dadd(30.204, 186.413, -15.762, 0.702)
pt3dadd(30.085, 186.42, -15.764, 0.714)
pt3dadd(29.966, 186.428, -15.765, 0.724)
pt3dadd(29.847, 186.437, -15.767, 0.736)
pt3dadd(29.728, 186.445, -15.769, 0.746)
pt3dadd(29.609, 186.452, -15.771, 0.758)
pt3dadd(29.49, 186.461, -15.772, 0.77)
pt3dadd(29.374, 186.479, -15.774, 0.778)
pt3dadd(29.266, 186.532, -15.776, 0.778)
pt3dadd(29.158, 186.584, -15.777, 0.778)
pt3dadd(29.05, 186.637, -15.779, 0.778)
pt3dadd(28.942, 186.69, -15.781, 0.778)
pt3dadd(28.834, 186.743, -15.782, 0.778)
pt3dadd(28.729, 186.8, -15.784, 0.774)
pt3dadd(28.624, 186.859, -15.786, 0.768)
pt3dadd(28.519, 186.918, -15.787, 0.764)
pt3dadd(28.414, 186.977, -15.789, 0.76)
pt3dadd(28.309, 187.037, -15.791, 0.754)
pt3dadd(28.206, 187.098, -15.793, 0.728)
pt3dadd(28.104, 187.162, -15.794, 0.692)
pt3dadd(28.001, 187.224, -15.796, 0.664)
pt3dadd(27.898, 187.288, -15.798, 0.642)
pt3dadd(27.809, 187.364, -15.799, 0.632)
pt3dadd(27.742, 187.465, -15.801, 0.644)
pt3dadd(27.679, 187.568, -15.806, 0.658)
pt3dadd(27.627, 187.676, -15.825, 0.684)
pt3dadd(27.584, 187.786, -15.847, 0.714)
pt3dadd(27.575, 187.898, -15.887, 0.766)
pt3dadd(27.518, 187.998, -15.9, 0.782)
pt3dadd(27.446, 188.095, -15.904, 0.788)
pt3dadd(27.373, 188.192, -15.908, 0.792)
pt3dadd(27.301, 188.29, -15.912, 0.798)
pt3dadd(27.229, 188.387, -15.916, 0.802)
pt3dadd(27.128, 188.446, -15.936, 0.812)
pt3dadd(27.022, 188.496, -15.96, 0.824)
pt3dadd(26.917, 188.548, -15.983, 0.834)
pt3dadd(26.811, 188.598, -16.006, 0.846)
pt3dadd(26.703, 188.644, -16.025, 0.854)
pt3dadd(26.586, 188.668, -16.027, 0.854)
pt3dadd(26.469, 188.693, -16.028, 0.854)
pt3dadd(26.352, 188.717, -16.03, 0.854)
pt3dadd(26.235, 188.741, -16.032, 0.854)
pt3dadd(26.118, 188.766, -16.033, 0.854)
pt3dadd(26, 188.785, -16.035, 0.852)
pt3dadd(25.881, 188.788, -16.037, 0.844)
pt3dadd(25.762, 188.79, -16.038, 0.836)
pt3dadd(25.643, 188.791, -16.043, 0.822)
pt3dadd(25.525, 188.794, -16.057, 0.794)
pt3dadd(25.407, 188.796, -16.071, 0.766)
pt3dadd(25.295, 188.802, -16.103, 0.754)
pt3dadd(25.19, 188.809, -16.152, 0.754)
pt3dadd(25.103, 188.837, -16.211, 0.77)
pt3dadd(25.045, 188.891, -16.288, 0.812)
pt3dadd(24.954, 188.916, -16.34, 0.848)
pt3dadd(24.842, 188.921, -16.377, 0.882)
pt3dadd(24.731, 188.927, -16.414, 0.914)
pt3dadd(24.619, 188.933, -16.45, 0.948)
pt3dadd(24.502, 188.935, -16.459, 0.968)
pt3dadd(24.382, 188.938, -16.46, 0.984)
pt3dadd(24.263, 188.94, -16.462, 1.002)
pt3dadd(24.144, 188.941, -16.464, 0.944)
pt3dadd(24.026, 188.96, -16.466, 0.912)
pt3dadd(23.909, 188.982, -16.467, 0.892)
pt3dadd(23.791, 189.004, -16.469, 0.872)
pt3dadd(23.674, 189.025, -16.471, 0.85)
pt3dadd(23.556, 189.047, -16.472, 0.83)
pt3dadd(23.439, 189.07, -16.474, 0.81)
pt3dadd(23.323, 189.094, -16.49, 0.794)
pt3dadd(23.209, 189.119, -16.511, 0.778)
pt3dadd(23.094, 189.144, -16.532, 0.764)
pt3dadd(22.98, 189.169, -16.553, 0.75)
pt3dadd(22.865, 189.194, -16.574, 0.734)
pt3dadd(22.75, 189.19, -16.584, 0.736)
pt3dadd(22.636, 189.16, -16.586, 0.748)
pt3dadd(22.521, 189.128, -16.588, 0.762)
pt3dadd(22.407, 189.097, -16.589, 0.776)
pt3dadd(22.292, 189.066, -16.591, 0.788)
pt3dadd(22.178, 189.036, -16.593, 0.802)
pt3dadd(22.072, 188.984, -16.595, 0.824)
pt3dadd(21.967, 188.929, -16.596, 0.85)
pt3dadd(21.862, 188.875, -16.598, 0.874)
pt3dadd(21.757, 188.82, -16.6, 0.898)
pt3dadd(21.652, 188.766, -16.601, 0.922)
pt3dadd(21.538, 188.752, -16.612, 0.94)
pt3dadd(21.42, 188.753, -16.626, 0.956)
pt3dadd(21.301, 188.755, -16.64, 0.972)
pt3dadd(21.183, 188.758, -16.654, 0.988)
pt3dadd(21.065, 188.76, -16.668, 1.004)
}
}
proc shape3d_75() {
apic[11] { pt3dadd(20.947, 188.761, -16.682, 1.02)
pt3dadd(20.829, 188.764, -16.7, 1.03)
pt3dadd(20.83, 188.766, -16.701, 1.03)
pt3dadd(20.714, 188.768, -16.724, 1.03)
pt3dadd(20.597, 188.771, -16.746, 1.03)
pt3dadd(20.48, 188.772, -16.769, 1.03)
pt3dadd(20.364, 188.774, -16.791, 1.03)
pt3dadd(20.247, 188.777, -16.813, 1.03)
pt3dadd(20.133, 188.758, -16.825, 1.024)
pt3dadd(20.021, 188.72, -16.827, 1.014)
pt3dadd(19.911, 188.678, -16.828, 0.998)
pt3dadd(19.812, 188.612, -16.83, 0.964)
pt3dadd(19.714, 188.546, -16.832, 0.928)
pt3dadd(19.622, 188.474, -16.833, 0.894)
pt3dadd(19.529, 188.401, -16.835, 0.858)
pt3dadd(19.489, 188.293, -16.837, 0.818)
pt3dadd(19.457, 188.179, -16.839, 0.776)
pt3dadd(19.416, 188.07, -16.84, 0.738)
pt3dadd(19.363, 187.966, -16.842, 0.704)
pt3dadd(19.282, 187.88, -16.844, 0.698)
pt3dadd(19.199, 187.796, -16.845, 0.694)
pt3dadd(19.116, 187.712, -16.847, 0.688)
pt3dadd(19.034, 187.627, -16.849, 0.682)
pt3dadd(18.951, 187.544, -16.851, 0.678)
pt3dadd(18.846, 187.489, -16.852, 0.678)
pt3dadd(18.741, 187.435, -16.854, 0.678)
pt3dadd(18.636, 187.38, -16.856, 0.678)
pt3dadd(18.531, 187.326, -16.857, 0.678)
pt3dadd(18.427, 187.271, -16.859, 0.678)
pt3dadd(18.323, 187.214, -16.861, 0.682)
pt3dadd(18.22, 187.157, -16.862, 0.688)
pt3dadd(18.117, 187.098, -16.864, 0.692)
pt3dadd(18.014, 187.04, -16.866, 0.696)
pt3dadd(17.91, 186.983, -16.868, 0.702)
pt3dadd(17.799, 186.947, -16.869, 0.71)
pt3dadd(17.684, 186.918, -16.871, 0.718)
pt3dadd(17.568, 186.89, -16.873, 0.726)
pt3dadd(17.453, 186.863, -16.874, 0.736)
pt3dadd(17.338, 186.834, -16.876, 0.744)
pt3dadd(17.222, 186.806, -16.878, 0.754)
pt3dadd(17.131, 186.732, -16.879, 0.772)
pt3dadd(17.04, 186.656, -16.881, 0.794)
pt3dadd(16.95, 186.581, -16.883, 0.814)
pt3dadd(16.86, 186.505, -16.885, 0.834)
pt3dadd(16.769, 186.43, -16.886, 0.854)
pt3dadd(16.684, 186.348, -16.888, 0.864)
pt3dadd(16.599, 186.266, -16.89, 0.874)
pt3dadd(16.513, 186.185, -16.891, 0.884)
pt3dadd(16.428, 186.104, -16.893, 0.894)
pt3dadd(16.344, 186.022, -16.894, 0.904)
pt3dadd(16.29, 185.92, -16.876, 0.904)
pt3dadd(16.236, 185.818, -16.859, 0.904)
pt3dadd(16.182, 185.716, -16.841, 0.904)
pt3dadd(16.128, 185.614, -16.823, 0.904)
pt3dadd(16.062, 185.521, -16.802, 0.894)
pt3dadd(15.982, 185.442, -16.775, 0.87)
pt3dadd(15.901, 185.363, -16.748, 0.846)
pt3dadd(15.821, 185.284, -16.721, 0.822)
pt3dadd(15.738, 185.21, -16.691, 0.796)
pt3dadd(15.643, 185.161, -16.65, 0.754)
pt3dadd(15.557, 185.095, -16.623, 0.72)
pt3dadd(15.487, 185.002, -16.619, 0.696)
pt3dadd(15.416, 184.908, -16.617, 0.674)
pt3dadd(15.342, 184.816, -16.618, 0.662)
pt3dadd(15.265, 184.729, -16.624, 0.646)
pt3dadd(15.266, 184.732, -16.626, 0.646)
pt3dadd(15.168, 184.67, -16.651, 0.608)
pt3dadd(15.085, 184.615, -16.692, 0.552)
pt3dadd(15.045, 184.576, -16.781, 0.454)
pt3dadd(14.958, 184.505, -16.814, 0.398)
pt3dadd(14.88, 184.434, -16.853, 0.348)
pt3dadd(14.853, 184.366, -16.932, 0.32)
pt3dadd(14.804, 184.303, -16.996, 0.304)
pt3dadd(14.698, 184.259, -17.019, 0.318)
pt3dadd(14.59, 184.214, -17.037, 0.33)
pt3dadd(14.481, 184.17, -17.039, 0.34)
pt3dadd(14.371, 184.126, -17.041, 0.352)
pt3dadd(14.268, 184.078, -17.015, 0.374)
pt3dadd(14.165, 184.03, -16.989, 0.398)
pt3dadd(14.061, 183.982, -16.963, 0.422)
pt3dadd(13.975, 183.938, -16.909, 0.45)
pt3dadd(13.894, 183.895, -16.849, 0.478)
pt3dadd(13.808, 183.893, -16.782, 0.504)
pt3dadd(13.721, 183.89, -16.715, 0.532)
pt3dadd(13.633, 183.872, -16.674, 0.556)
pt3dadd(13.54, 183.812, -16.708, 0.572)
pt3dadd(13.449, 183.749, -16.745, 0.624)
pt3dadd(13.368, 183.667, -16.728, 0.634)
pt3dadd(13.287, 183.586, -16.709, 0.64)
pt3dadd(13.207, 183.503, -16.69, 0.646)
pt3dadd(13.126, 183.421, -16.671, 0.652)
pt3dadd(13.061, 183.335, -16.635, 0.652)
pt3dadd(13.002, 183.247, -16.593, 0.652)
pt3dadd(12.943, 183.16, -16.55, 0.652)
pt3dadd(12.884, 183.072, -16.508, 0.652)
pt3dadd(12.813, 182.992, -16.517, 0.62)
pt3dadd(12.746, 182.912, -16.563, 0.628)
pt3dadd(12.713, 182.808, -16.544, 0.612)
pt3dadd(12.69, 182.743, -16.469, 0.52)
pt3dadd(12.609, 182.735, -16.404, 0.462)
pt3dadd(12.494, 182.736, -16.384, 0.452)
pt3dadd(12.376, 182.738, -16.373, 0.452)
pt3dadd(12.268, 182.762, -16.341, 0.41)
pt3dadd(12.18, 182.822, -16.298, 0.302)
pt3dadd(12.068, 182.861, -16.288, 0.242)
pt3dadd(11.955, 182.898, -16.297, 0.226)
pt3dadd(11.861, 182.957, -16.334, 0.258)
pt3dadd(11.76, 182.989, -16.378, 0.296)
pt3dadd(11.644, 182.978, -16.395, 0.274)
pt3dadd(11.548, 182.921, -16.397, 0.24)
pt3dadd(11.549, 182.922, -16.398, 0.24)
}
apic[12] {pt3dclear()
pt3dadd(99.008, 151.886, 10.878, 1.356)
pt3dadd(99.02, 151.882, 10.843, 1.356)
pt3dadd(99.034, 151.82, 10.758, 1.356)
pt3dadd(99.049, 151.759, 10.672, 1.356)
pt3dadd(99.063, 151.698, 10.587, 1.356)
pt3dadd(99.077, 151.638, 10.502, 1.356)
pt3dadd(99.091, 151.577, 10.417, 1.356)
pt3dadd(99.106, 151.513, 10.333, 1.354)
pt3dadd(99.122, 151.448, 10.251, 1.352)
pt3dadd(99.137, 151.382, 10.169, 1.348)
pt3dadd(99.153, 151.318, 10.087, 1.344)
pt3dadd(99.168, 151.252, 10.005, 1.342)
pt3dadd(99.184, 151.187, 9.923, 1.338)
pt3dadd(99.199, 151.122, 9.841, 1.334)
pt3dadd(99.215, 151.056, 9.759, 1.332)
pt3dadd(99.231, 150.991, 9.677, 1.328)
pt3dadd(99.246, 150.925, 9.595, 1.324)
pt3dadd(99.264, 150.854, 9.517, 1.316)
pt3dadd(99.268, 150.863, 9.513, 1.316)
pt3dadd(99.288, 150.784, 9.443, 1.302)
pt3dadd(99.309, 150.703, 9.373, 1.286)
pt3dadd(99.329, 150.623, 9.303, 1.272)
pt3dadd(99.349, 150.544, 9.233, 1.256)
pt3dadd(99.369, 150.463, 9.163, 1.24)
pt3dadd(99.39, 150.383, 9.093, 1.226)
pt3dadd(99.41, 150.302, 9.023, 1.21)
pt3dadd(99.43, 150.223, 8.953, 1.194)
pt3dadd(99.451, 150.143, 8.883, 1.18)
pt3dadd(99.481, 150.059, 8.821, 1.164)
pt3dadd(99.528, 149.969, 8.774, 1.148)
pt3dadd(99.576, 149.878, 8.727, 1.132)
pt3dadd(99.623, 149.788, 8.68, 1.118)
pt3dadd(99.671, 149.698, 8.633, 1.102)
pt3dadd(99.718, 149.608, 8.586, 1.086)
pt3dadd(99.766, 149.516, 8.539, 1.07)
pt3dadd(99.813, 149.425, 8.492, 1.054)
pt3dadd(99.861, 149.335, 8.445, 1.038)
pt3dadd(99.908, 149.244, 8.397, 1.022)
pt3dadd(99.96, 149.153, 8.358, 1.01)
pt3dadd(100.016, 149.058, 8.325, 0.998)
pt3dadd(100.071, 148.966, 8.291, 0.986)
pt3dadd(100.127, 148.871, 8.258, 0.976)
pt3dadd(100.182, 148.777, 8.224, 0.964)
pt3dadd(100.238, 148.684, 8.191, 0.954)
pt3dadd(100.293, 148.59, 8.157, 0.942)
pt3dadd(100.349, 148.496, 8.124, 0.93)
pt3dadd(100.404, 148.403, 8.09, 0.92)
pt3dadd(100.46, 148.309, 8.057, 0.908)
pt3dadd(100.514, 148.212, 8.03, 0.904)
pt3dadd(100.567, 148.114, 8.008, 0.904)
pt3dadd(100.621, 148.015, 7.986, 0.904)
pt3dadd(100.674, 147.917, 7.964, 0.904)
pt3dadd(100.728, 147.82, 7.942, 0.904)
pt3dadd(100.781, 147.72, 7.92, 0.904)
pt3dadd(100.835, 147.623, 7.898, 0.904)
pt3dadd(100.888, 147.523, 7.876, 0.904)
pt3dadd(100.942, 147.425, 7.854, 0.904)
pt3dadd(100.995, 147.326, 7.832, 0.904)
pt3dadd(101.062, 147.235, 7.814, 0.894)
pt3dadd(101.138, 147.149, 7.799, 0.878)
pt3dadd(101.214, 147.062, 7.784, 0.86)
pt3dadd(101.29, 146.976, 7.769, 0.844)
pt3dadd(101.366, 146.89, 7.753, 0.828)
pt3dadd(101.442, 146.803, 7.738, 0.81)
pt3dadd(101.518, 146.718, 7.723, 0.794)
pt3dadd(101.594, 146.63, 7.708, 0.778)
pt3dadd(101.67, 146.545, 7.693, 0.76)
pt3dadd(101.746, 146.458, 7.678, 0.744)
pt3dadd(101.823, 146.378, 7.647, 0.742)
pt3dadd(101.901, 146.304, 7.606, 0.75)
pt3dadd(101.979, 146.228, 7.565, 0.76)
pt3dadd(102.057, 146.154, 7.524, 0.768)
pt3dadd(102.136, 146.08, 7.484, 0.776)
pt3dadd(102.214, 146.005, 7.443, 0.786)
pt3dadd(102.292, 145.93, 7.402, 0.794)
pt3dadd(102.37, 145.854, 7.361, 0.802)
pt3dadd(102.448, 145.78, 7.32, 0.81)
pt3dadd(102.526, 145.705, 7.279, 0.82)
pt3dadd(102.613, 145.639, 7.24, 0.828)
pt3dadd(102.703, 145.574, 7.201, 0.836)
pt3dadd(102.793, 145.511, 7.162, 0.844)
pt3dadd(102.882, 145.446, 7.124, 0.852)
pt3dadd(102.972, 145.381, 7.085, 0.862)
pt3dadd(103.062, 145.318, 7.046, 0.87)
pt3dadd(103.152, 145.253, 7.007, 0.878)
pt3dadd(103.241, 145.188, 6.968, 0.886)
pt3dadd(103.331, 145.123, 6.93, 0.894)
pt3dadd(103.421, 145.06, 6.891, 0.904)
pt3dadd(103.523, 145.006, 6.865, 0.886)
}
}
proc shape3d_76() {
apic[12] { pt3dadd(103.628, 144.952, 6.841, 0.864)
pt3dadd(103.732, 144.899, 6.816, 0.842)
pt3dadd(103.836, 144.845, 6.792, 0.822)
pt3dadd(103.94, 144.793, 6.768, 0.8)
pt3dadd(104.044, 144.739, 6.744, 0.778)
pt3dadd(104.148, 144.686, 6.719, 0.758)
pt3dadd(104.252, 144.632, 6.695, 0.736)
pt3dadd(104.356, 144.58, 6.671, 0.714)
pt3dadd(104.46, 144.527, 6.646, 0.694)
pt3dadd(104.464, 144.535, 6.642, 0.694)
pt3dadd(104.469, 144.545, 6.638, 0.694)
pt3dadd(104.473, 144.553, 6.634, 0.694)
pt3dadd(104.477, 144.563, 6.63, 0.678)
pt3dadd(104.481, 144.571, 6.625, 0.678)
pt3dadd(104.485, 144.58, 6.621, 0.678)
pt3dadd(104.49, 144.589, 6.617, 0.678)
pt3dadd(104.494, 144.478, 6.613, 0.804)
pt3dadd(104.498, 144.367, 6.609, 0.93)
pt3dadd(104.502, 144.256, 6.605, 1.054)
pt3dadd(104.507, 144.145, 6.6, 1.114)
pt3dadd(104.511, 144.034, 6.596, 1.172)
pt3dadd(104.515, 143.922, 6.592, 1.23)
pt3dadd(104.52, 143.816, 6.56, 1.272)
pt3dadd(104.524, 143.71, 6.529, 1.314)
pt3dadd(104.528, 143.618, 6.474, 1.352)
pt3dadd(104.532, 143.54, 6.402, 1.386)
pt3dadd(104.536, 143.485, 6.317, 1.42)
pt3dadd(104.541, 143.461, 6.216, 1.452)
pt3dadd(104.562, 143.406, 6.131, 1.466)
pt3dadd(104.587, 143.344, 6.048, 1.476)
pt3dadd(104.612, 143.282, 5.965, 1.488)
pt3dadd(104.637, 143.22, 5.882, 1.5)
pt3dadd(104.675, 143.172, 5.797, 1.502)
pt3dadd(104.738, 143.154, 5.709, 1.484)
pt3dadd(104.802, 143.136, 5.62, 1.468)
pt3dadd(104.865, 143.119, 5.532, 1.45)
pt3dadd(104.929, 143.101, 5.444, 1.434)
pt3dadd(104.965, 143.065, 5.352, 1.414)
pt3dadd(104.995, 143.024, 5.259, 1.392)
pt3dadd(105.025, 142.985, 5.166, 1.37)
pt3dadd(105.055, 142.945, 5.073, 1.348)
pt3dadd(105.081, 142.909, 4.979, 1.326)
pt3dadd(105.085, 142.919, 4.974, 1.326)
pt3dadd(105.091, 142.904, 4.872, 1.306)
pt3dadd(105.098, 142.891, 4.77, 1.284)
pt3dadd(105.104, 142.877, 4.667, 1.262)
pt3dadd(105.111, 142.864, 4.565, 1.242)
pt3dadd(105.117, 142.85, 4.463, 1.22)
pt3dadd(105.139, 142.831, 4.365, 1.202)
pt3dadd(105.195, 142.8, 4.277, 1.19)
pt3dadd(105.251, 142.77, 4.188, 1.178)
pt3dadd(105.307, 142.739, 4.1, 1.168)
pt3dadd(105.364, 142.708, 4.012, 1.156)
pt3dadd(105.368, 142.717, 4.008, 1.156)
pt3dadd(105.414, 142.622, 3.972, 1.144)
pt3dadd(105.458, 142.524, 3.94, 1.13)
pt3dadd(105.463, 142.532, 3.936, 1.13)
pt3dadd(105.534, 142.486, 3.864, 1.116)
pt3dadd(105.603, 142.452, 3.787, 1.1)
pt3dadd(105.661, 142.462, 3.693, 1.078)
pt3dadd(105.719, 142.47, 3.599, 1.056)
pt3dadd(105.777, 142.48, 3.506, 1.022)
pt3dadd(105.835, 142.488, 3.412, 0.988)
pt3dadd(105.885, 142.46, 3.323, 0.96)
pt3dadd(105.932, 142.42, 3.235, 0.932)
pt3dadd(105.993, 142.34, 3.188, 0.868)
pt3dadd(106.026, 142.247, 3.139, 0.83)
pt3dadd(106.033, 142.14, 3.109, 0.858)
pt3dadd(106.062, 142.033, 3.09, 0.878)
pt3dadd(106.123, 141.949, 3.052, 0.878)
pt3dadd(106.196, 141.875, 3.003, 0.878)
pt3dadd(106.238, 141.772, 2.99, 0.898)
pt3dadd(106.277, 141.666, 2.981, 0.92)
pt3dadd(106.307, 141.564, 2.953, 0.956)
pt3dadd(106.33, 141.463, 2.912, 1.006)
pt3dadd(106.376, 141.414, 2.846, 1.042)
pt3dadd(106.444, 141.416, 2.757, 1.066)
pt3dadd(106.534, 141.421, 2.699, 1.078)
pt3dadd(106.658, 141.431, 2.685, 1.072)
pt3dadd(106.781, 141.439, 2.671, 1.066)
pt3dadd(106.905, 141.449, 2.657, 1.062)
pt3dadd(107.029, 141.457, 2.643, 1.056)
pt3dadd(107.149, 141.467, 2.615, 1.038)
pt3dadd(107.269, 141.475, 2.583, 1.016)
pt3dadd(107.387, 141.476, 2.55, 1.004)
pt3dadd(107.5, 141.448, 2.519, 1.008)
pt3dadd(107.611, 141.41, 2.491, 1.014)
pt3dadd(107.722, 141.373, 2.463, 1.02)
pt3dadd(107.834, 141.336, 2.435, 1.024)
pt3dadd(107.945, 141.3, 2.408, 1.03)
pt3dadd(108.064, 141.272, 2.404, 1.034)
pt3dadd(108.183, 141.246, 2.4, 1.038)
pt3dadd(108.302, 141.218, 2.396, 1.044)
pt3dadd(108.42, 141.192, 2.391, 1.048)
pt3dadd(108.539, 141.164, 2.387, 1.052)
pt3dadd(108.66, 141.148, 2.383, 1.054)
pt3dadd(108.783, 141.139, 2.379, 1.054)
pt3dadd(108.906, 141.131, 2.375, 1.054)
pt3dadd(109.029, 141.122, 2.37, 1.054)
pt3dadd(109.152, 141.114, 2.366, 1.054)
pt3dadd(109.275, 141.106, 2.362, 1.054)
pt3dadd(109.395, 141.09, 2.352, 1.054)
pt3dadd(109.51, 141.058, 2.33, 1.054)
pt3dadd(109.625, 141.025, 2.307, 1.054)
pt3dadd(109.739, 140.992, 2.285, 1.054)
pt3dadd(109.854, 140.959, 2.262, 1.054)
pt3dadd(109.97, 140.927, 2.247, 1.058)
pt3dadd(110.086, 140.893, 2.241, 1.062)
pt3dadd(110.203, 140.86, 2.235, 1.066)
pt3dadd(110.319, 140.826, 2.228, 1.072)
pt3dadd(110.436, 140.792, 2.222, 1.076)
pt3dadd(110.553, 140.765, 2.216, 1.082)
pt3dadd(110.677, 140.773, 2.212, 1.108)
pt3dadd(110.801, 140.78, 2.208, 1.126)
pt3dadd(110.922, 140.766, 2.204, 1.098)
pt3dadd(111.018, 140.701, 2.199, 1.062)
pt3dadd(111.087, 140.612, 2.18, 1.05)
pt3dadd(111.146, 140.532, 2.129, 0.986)
pt3dadd(111.167, 140.429, 2.095, 0.924)
pt3dadd(111.172, 140.318, 2.079, 0.904)
pt3dadd(111.176, 140.214, 2.049, 0.89)
pt3dadd(111.194, 140.147, 1.973, 0.826)
pt3dadd(111.236, 140.135, 1.876, 0.72)
pt3dadd(111.279, 140.118, 1.78, 0.696)
pt3dadd(111.32, 140.084, 1.692, 0.678)
pt3dadd(111.352, 140, 1.628, 0.678)
pt3dadd(111.41, 139.926, 1.58, 0.702)
pt3dadd(111.511, 139.866, 1.559, 0.766)
pt3dadd(111.59, 139.789, 1.545, 0.818)
pt3dadd(111.641, 139.687, 1.541, 0.85)
pt3dadd(111.686, 139.584, 1.534, 0.884)
pt3dadd(111.699, 139.476, 1.509, 0.914)
pt3dadd(111.742, 139.385, 1.472, 0.926)
pt3dadd(111.811, 139.307, 1.425, 0.92)
pt3dadd(111.879, 139.228, 1.377, 0.914)
pt3dadd(111.948, 139.15, 1.33, 0.908)
pt3dadd(112.013, 139.081, 1.272, 0.912)
pt3dadd(112.072, 139.025, 1.197, 0.93)
pt3dadd(112.077, 139.033, 1.193, 0.93)
pt3dadd(112.136, 138.978, 1.119, 0.948)
pt3dadd(112.196, 138.922, 1.044, 0.966)
pt3dadd(112.274, 138.882, 0.987, 0.992)
pt3dadd(112.397, 138.881, 0.969, 1.032)
pt3dadd(112.52, 138.878, 0.952, 1.072)
pt3dadd(112.524, 138.887, 0.947, 1.072)
pt3dadd(112.571, 138.856, 0.867, 1.112)
pt3dadd(112.602, 138.818, 0.774, 1.148)
pt3dadd(112.611, 138.797, 0.674, 1.13)
pt3dadd(112.615, 138.779, 0.572, 1.1)
pt3dadd(112.619, 138.737, 0.485, 1.062)
pt3dadd(112.623, 138.642, 0.43, 1.004)
pt3dadd(112.634, 138.548, 0.376, 0.948)
pt3dadd(112.687, 138.464, 0.324, 0.906)
pt3dadd(112.74, 138.38, 0.271, 0.866)
pt3dadd(112.744, 138.389, 0.267, 0.866)
pt3dadd(112.801, 138.307, 0.215, 0.826)
pt3dadd(112.882, 138.247, 0.159, 0.812)
pt3dadd(112.959, 138.197, 0.095, 0.788)
pt3dadd(113, 138.14, 0.015, 0.788)
pt3dadd(113.032, 138.079, -0.067, 0.802)
pt3dadd(113.079, 137.98, -0.087, 0.804)
pt3dadd(113.126, 137.878, -0.101, 0.804)
pt3dadd(113.146, 137.786, -0.153, 0.84)
pt3dadd(113.157, 137.699, -0.216, 0.888)
pt3dadd(113.163, 137.666, -0.307, 0.942)
pt3dadd(113.167, 137.66, -0.41, 0.998)
pt3dadd(113.171, 137.654, -0.513, 1.054)
pt3dadd(113.176, 137.664, -0.618, 1.18)
pt3dadd(113.18, 137.672, -0.722, 1.306)
pt3dadd(113.184, 137.682, -0.826, 1.338)
pt3dadd(113.188, 137.69, -0.93, 1.37)
pt3dadd(113.193, 137.7, -1.034, 1.402)
pt3dadd(113.197, 137.708, -1.139, 1.434)
pt3dadd(113.201, 137.717, -1.243, 1.468)
pt3dadd(113.205, 137.726, -1.347, 1.5)
pt3dadd(113.21, 137.735, -1.451, 1.532)
pt3dadd(113.234, 137.718, -1.551, 1.552)
pt3dadd(113.259, 137.701, -1.652, 1.57)
pt3dadd(113.284, 137.684, -1.752, 1.59)
pt3dadd(113.309, 137.668, -1.852, 1.61)
pt3dadd(113.334, 137.652, -1.953, 1.628)
pt3dadd(113.344, 137.621, -2.051, 1.618)
pt3dadd(113.351, 137.588, -2.149, 1.598)
pt3dadd(113.357, 137.555, -2.246, 1.58)
pt3dadd(113.364, 137.521, -2.344, 1.56)
pt3dadd(113.368, 137.53, -2.348, 1.56)
pt3dadd(113.375, 137.496, -2.446, 1.542)
pt3dadd(113.381, 137.474, -2.546, 1.516)
pt3dadd(113.385, 137.466, -2.649, 1.478)
pt3dadd(113.389, 137.458, -2.752, 1.442)
pt3dadd(113.393, 137.449, -2.856, 1.406)
pt3dadd(113.398, 137.441, -2.959, 1.368)
pt3dadd(113.402, 137.432, -3.062, 1.332)
pt3dadd(113.406, 137.429, -3.165, 1.298)
pt3dadd(113.41, 137.435, -3.269, 1.268)
pt3dadd(113.415, 137.442, -3.374, 1.24)
pt3dadd(113.419, 137.449, -3.478, 1.21)
pt3dadd(113.423, 137.456, -3.582, 1.182)
pt3dadd(113.427, 137.464, -3.686, 1.152)
pt3dadd(113.432, 137.47, -3.79, 1.122)
}
}
proc shape3d_77() {
apic[12] { pt3dadd(113.436, 137.478, -3.894, 1.1)
pt3dadd(113.44, 137.486, -3.999, 1.09)
pt3dadd(113.444, 137.496, -4.103, 1.08)
pt3dadd(113.448, 137.504, -4.207, 1.068)
pt3dadd(113.453, 137.514, -4.311, 1.058)
pt3dadd(113.457, 137.522, -4.415, 1.048)
pt3dadd(113.461, 137.531, -4.52, 1.036)
pt3dadd(113.466, 137.54, -4.524, 1.036)
pt3dadd(113.47, 137.544, -4.628, 1.03)
pt3dadd(113.474, 137.538, -4.731, 1.03)
pt3dadd(113.478, 137.532, -4.834, 1.03)
pt3dadd(113.483, 137.513, -4.936, 1.03)
pt3dadd(113.487, 137.489, -5.036, 1.03)
pt3dadd(113.491, 137.462, -5.136, 1.02)
pt3dadd(113.495, 137.432, -5.234, 0.988)
pt3dadd(113.499, 137.401, -5.333, 0.956)
pt3dadd(113.504, 137.305, -5.38, 0.894)
pt3dadd(113.508, 137.203, -5.423, 0.828)
pt3dadd(113.512, 137.113, -5.481, 0.748)
pt3dadd(113.517, 137.023, -5.541, 0.678)
pt3dadd(113.521, 136.918, -5.575, 0.672)
pt3dadd(113.525, 136.812, -5.609, 0.668)
pt3dadd(113.529, 136.706, -5.643, 0.664)
pt3dadd(113.534, 136.601, -5.677, 0.66)
pt3dadd(113.538, 136.495, -5.711, 0.654)
pt3dadd(113.542, 136.39, -5.744, 0.664)
pt3dadd(113.546, 136.283, -5.775, 0.682)
pt3dadd(113.55, 136.176, -5.807, 0.7)
pt3dadd(113.555, 136.07, -5.839, 0.718)
pt3dadd(113.559, 135.964, -5.87, 0.734)
pt3dadd(113.563, 135.857, -5.902, 0.752)
pt3dadd(113.568, 135.756, -5.945, 0.784)
pt3dadd(113.572, 135.654, -5.989, 0.818)
pt3dadd(113.576, 135.553, -6.033, 0.85)
pt3dadd(113.58, 135.451, -6.077, 0.884)
pt3dadd(113.585, 135.35, -6.12, 0.916)
pt3dadd(113.589, 135.254, -6.172, 0.944)
pt3dadd(113.593, 135.161, -6.229, 0.97)
pt3dadd(113.597, 135.067, -6.285, 0.994)
pt3dadd(113.601, 134.975, -6.342, 1.018)
pt3dadd(113.606, 134.881, -6.399, 1.044)
pt3dadd(113.61, 134.791, -6.459, 1.06)
pt3dadd(113.614, 134.704, -6.524, 1.07)
pt3dadd(113.619, 134.617, -6.588, 1.08)
pt3dadd(113.623, 134.53, -6.652, 1.09)
pt3dadd(113.627, 134.443, -6.716, 1.1)
pt3dadd(113.631, 134.357, -6.782, 1.08)
pt3dadd(113.635, 134.273, -6.848, 1.032)
pt3dadd(113.637, 134.179, -6.901, 0.978)
pt3dadd(113.636, 134.072, -6.934, 0.914)
pt3dadd(113.631, 133.968, -6.966, 0.848)
pt3dadd(113.588, 133.87, -6.993, 0.786)
pt3dadd(113.549, 133.776, -7.026, 0.728)
pt3dadd(113.547, 133.729, -7.118, 0.728)
pt3dadd(113.545, 133.681, -7.21, 0.728)
pt3dadd(113.55, 133.666, -7.312, 0.784)
pt3dadd(113.547, 133.639, -7.409, 0.838)
pt3dadd(113.524, 133.578, -7.492, 0.872)
pt3dadd(113.501, 133.518, -7.574, 0.906)
pt3dadd(113.478, 133.457, -7.657, 0.94)
pt3dadd(113.455, 133.397, -7.739, 0.974)
pt3dadd(113.432, 133.338, -7.823, 0.998)
pt3dadd(113.409, 133.282, -7.908, 1.022)
pt3dadd(113.413, 133.29, -7.912, 1.022)
pt3dadd(113.39, 133.232, -7.996, 1.044)
pt3dadd(113.368, 133.176, -8.081, 1.066)
pt3dadd(113.353, 133.138, -8.173, 1.082)
pt3dadd(113.358, 133.146, -8.177, 1.082)
pt3dadd(113.355, 133.134, -8.279, 1.086)
pt3dadd(113.352, 133.122, -8.382, 1.09)
pt3dadd(113.35, 133.11, -8.484, 1.094)
pt3dadd(113.347, 133.099, -8.587, 1.1)
pt3dadd(113.345, 133.087, -8.689, 1.104)
pt3dadd(113.311, 133.088, -8.786, 1.104)
pt3dadd(113.262, 133.098, -8.88, 1.1)
pt3dadd(113.212, 133.106, -8.973, 1.098)
pt3dadd(113.163, 133.115, -9.067, 1.096)
pt3dadd(113.113, 133.124, -9.16, 1.094)
pt3dadd(113.064, 133.133, -9.254, 1.092)
pt3dadd(113.014, 133.142, -9.348, 1.088)
pt3dadd(112.965, 133.151, -9.441, 1.086)
pt3dadd(112.915, 133.16, -9.535, 1.084)
pt3dadd(112.866, 133.169, -9.628, 1.082)
pt3dadd(112.818, 133.172, -9.722, 1.078)
pt3dadd(112.773, 133.154, -9.815, 1.066)
pt3dadd(112.728, 133.138, -9.908, 1.056)
pt3dadd(112.683, 133.121, -10.001, 1.046)
pt3dadd(112.639, 133.104, -10.093, 1.034)
pt3dadd(112.621, 133.082, -10.191, 1.03)
pt3dadd(112.623, 133.057, -10.291, 1.03)
pt3dadd(112.625, 133.033, -10.391, 1.03)
pt3dadd(112.627, 133.008, -10.491, 1.03)
pt3dadd(112.629, 132.984, -10.591, 1.03)
pt3dadd(112.631, 132.959, -10.691, 1.03)
pt3dadd(112.635, 132.911, -10.783, 1.03)
pt3dadd(112.639, 132.863, -10.876, 1.03)
pt3dadd(112.644, 132.815, -10.968, 1.03)
pt3dadd(112.648, 132.767, -11.06, 1.03)
pt3dadd(112.652, 132.719, -11.153, 1.03)
pt3dadd(112.656, 132.661, -11.24, 1.038)
pt3dadd(112.661, 132.601, -11.325, 1.048)
pt3dadd(112.665, 132.541, -11.411, 1.058)
pt3dadd(112.669, 132.481, -11.497, 1.068)
pt3dadd(112.673, 132.42, -11.583, 1.078)
pt3dadd(112.678, 132.378, -11.678, 1.08)
pt3dadd(112.682, 132.34, -11.774, 1.08)
pt3dadd(112.686, 132.301, -11.87, 1.08)
pt3dadd(112.69, 132.263, -11.966, 1.08)
pt3dadd(112.695, 132.223, -12.062, 1.08)
pt3dadd(112.689, 132.179, -12.154, 1.066)
pt3dadd(112.673, 132.126, -12.243, 1.042)
pt3dadd(112.638, 132.104, -12.333, 0.998)
pt3dadd(112.586, 132.107, -12.426, 0.94)
pt3dadd(112.538, 132.079, -12.508, 0.87)
pt3dadd(112.543, 132.088, -12.512, 0.87)
pt3dadd(112.502, 132.014, -12.579, 0.786)
pt3dadd(112.489, 131.918, -12.614, 0.736)
pt3dadd(112.493, 131.808, -12.631, 0.708)
pt3dadd(112.497, 131.698, -12.648, 0.68)
pt3dadd(112.501, 131.59, -12.671, 0.692)
pt3dadd(112.506, 131.48, -12.696, 0.71)
pt3dadd(112.51, 131.375, -12.728, 0.736)
pt3dadd(112.514, 131.268, -12.76, 0.762)
pt3dadd(112.518, 131.161, -12.791, 0.788)
pt3dadd(112.523, 131.056, -12.823, 0.816)
pt3dadd(112.527, 130.949, -12.855, 0.842)
pt3dadd(112.531, 130.852, -12.903, 0.874)
pt3dadd(112.535, 130.763, -12.965, 0.908)
pt3dadd(112.54, 130.674, -13.027, 0.944)
pt3dadd(112.544, 130.584, -13.088, 0.978)
pt3dadd(112.548, 130.495, -13.15, 1.014)
pt3dadd(112.552, 130.414, -13.219, 1.044)
pt3dadd(112.557, 130.339, -13.295, 1.068)
pt3dadd(112.561, 130.265, -13.372, 1.094)
pt3dadd(112.565, 130.189, -13.448, 1.12)
pt3dadd(112.569, 130.115, -13.523, 1.144)
pt3dadd(112.574, 130.06, -13.611, 1.158)
pt3dadd(112.578, 130.019, -13.705, 1.162)
pt3dadd(112.582, 129.977, -13.8, 1.168)
pt3dadd(112.586, 129.935, -13.895, 1.172)
pt3dadd(112.591, 129.893, -13.99, 1.178)
pt3dadd(112.595, 129.866, -14.088, 1.172)
pt3dadd(112.599, 129.871, -14.192, 1.146)
pt3dadd(112.603, 129.875, -14.296, 1.12)
pt3dadd(112.608, 129.88, -14.4, 1.094)
pt3dadd(112.612, 129.883, -14.504, 1.068)
pt3dadd(112.616, 129.888, -14.608, 1.042)
pt3dadd(112.62, 129.87, -14.708, 1.024)
pt3dadd(112.625, 129.832, -14.805, 1.012)
pt3dadd(112.629, 129.779, -14.889, 1.01)
pt3dadd(112.633, 129.68, -14.938, 1.032)
pt3dadd(112.637, 129.582, -14.987, 1.054)
pt3dadd(112.642, 129.492, -15.047, 1.068)
pt3dadd(112.646, 129.401, -15.106, 1.082)
pt3dadd(112.65, 129.31, -15.166, 1.096)
pt3dadd(112.654, 129.318, -15.17, 1.096)
pt3dadd(112.659, 129.269, -15.248, 1.104)
pt3dadd(112.663, 129.277, -15.252, 1.104)
pt3dadd(112.667, 129.286, -15.356, 1.104)
pt3dadd(112.671, 129.295, -15.46, 1.104)
pt3dadd(112.676, 129.304, -15.465, 1.104)
pt3dadd(112.68, 129.313, -15.569, 1.084)
pt3dadd(112.684, 129.322, -15.673, 1.04)
pt3dadd(112.688, 129.331, -15.777, 1.008)
pt3dadd(112.693, 129.34, -15.881, 0.974)
pt3dadd(112.697, 129.365, -15.983, 0.932)
pt3dadd(112.701, 129.413, -16.082, 0.88)
pt3dadd(112.705, 129.463, -16.18, 0.826)
pt3dadd(112.71, 129.533, -16.27, 0.768)
pt3dadd(112.714, 129.602, -16.361, 0.71)
pt3dadd(112.718, 129.678, -16.448, 0.674)
pt3dadd(112.722, 129.755, -16.534, 0.638)
pt3dadd(112.709, 129.857, -16.597, 0.628)
pt3dadd(112.689, 129.968, -16.649, 0.628)
pt3dadd(112.668, 130.079, -16.701, 0.628)
pt3dadd(112.644, 130.147, -16.774, 0.638)
pt3dadd(112.648, 130.156, -16.778, 0.638)
pt3dadd(112.618, 130.17, -16.878, 0.66)
pt3dadd(112.585, 130.184, -16.977, 0.692)
pt3dadd(112.533, 130.204, -17.069, 0.76)
pt3dadd(112.478, 130.24, -17.157, 0.776)
pt3dadd(112.423, 130.274, -17.245, 0.794)
pt3dadd(112.368, 130.31, -17.333, 0.81)
pt3dadd(112.313, 130.346, -17.422, 0.826)
pt3dadd(112.317, 130.355, -17.426, 0.826)
pt3dadd(112.297, 130.367, -17.527, 0.846)
pt3dadd(112.281, 130.375, -17.629, 0.866)
pt3dadd(112.253, 130.385, -17.729, 0.878)
pt3dadd(112.196, 130.393, -17.819, 0.878)
pt3dadd(112.136, 130.403, -17.906, 0.876)
pt3dadd(112.041, 130.411, -17.967, 0.854)
pt3dadd(111.946, 130.421, -18.028, 0.83)
pt3dadd(111.848, 130.429, -18.083, 0.796)
pt3dadd(111.748, 130.438, -18.138, 0.762)
pt3dadd(111.646, 130.486, -18.16, 0.742)
pt3dadd(111.542, 130.547, -18.17, 0.728)
pt3dadd(111.439, 130.608, -18.18, 0.714)
pt3dadd(111.338, 130.667, -18.2, 0.7)
pt3dadd(111.255, 130.712, -18.265, 0.688)
pt3dadd(111.179, 130.772, -18.327, 0.674)
}
}
proc shape3d_78() {
apic[12] { pt3dadd(111.121, 130.861, -18.384, 0.664)
pt3dadd(111.063, 130.951, -18.441, 0.652)
pt3dadd(111.061, 131.038, -18.521, 0.628)
pt3dadd(111.059, 131.124, -18.601, 0.604)
pt3dadd(111.033, 131.219, -18.665, 0.548)
pt3dadd(110.986, 131.279, -18.749, 0.534)
pt3dadd(110.961, 131.334, -18.84, 0.532)
pt3dadd(110.96, 131.384, -18.938, 0.544)
pt3dadd(110.947, 131.443, -19.028, 0.556)
pt3dadd(110.898, 131.528, -19.096, 0.57)
pt3dadd(110.838, 131.62, -19.141, 0.59)
pt3dadd(110.766, 131.719, -19.163, 0.616)
pt3dadd(110.696, 131.774, -19.219, 0.632)
pt3dadd(110.629, 131.795, -19.303, 0.64)
pt3dadd(110.561, 131.816, -19.387, 0.648)
pt3dadd(110.509, 131.836, -19.475, 0.656)
pt3dadd(110.514, 131.849, -19.579, 0.674)
pt3dadd(110.518, 131.862, -19.683, 0.692)
pt3dadd(110.516, 131.886, -19.785, 0.76)
pt3dadd(110.477, 131.934, -19.875, 0.858)
pt3dadd(110.422, 131.984, -19.959, 0.904)
pt3dadd(110.367, 132.034, -20.044, 0.952)
pt3dadd(110.313, 132.083, -20.128, 0.998)
pt3dadd(110.256, 132.146, -20.202, 1.048)
pt3dadd(110.195, 132.239, -20.252, 1.102)
pt3dadd(110.135, 132.332, -20.302, 1.158)
pt3dadd(110.074, 132.426, -20.352, 1.212)
pt3dadd(110.008, 132.518, -20.395, 1.264)
pt3dadd(109.925, 132.608, -20.41, 1.302)
pt3dadd(109.854, 132.695, -20.442, 1.328)
pt3dadd(109.822, 132.768, -20.524, 1.314)
pt3dadd(109.77, 132.817, -20.603, 1.288)
pt3dadd(109.686, 132.826, -20.675, 1.24)
pt3dadd(109.613, 132.834, -20.754, 1.196)
pt3dadd(109.571, 132.844, -20.85, 1.164)
pt3dadd(109.529, 132.852, -20.946, 1.13)
pt3dadd(109.517, 132.862, -21.049, 1.088)
pt3dadd(109.493, 132.874, -21.146, 1.046)
pt3dadd(109.407, 132.904, -21.214, 0.992)
pt3dadd(109.331, 132.942, -21.286, 0.944)
pt3dadd(109.284, 133.002, -21.37, 0.902)
pt3dadd(109.212, 133.06, -21.428, 0.868)
pt3dadd(109.109, 133.116, -21.454, 0.842)
pt3dadd(109.009, 133.18, -21.473, 0.834)
pt3dadd(108.911, 133.252, -21.482, 0.846)
pt3dadd(108.839, 133.314, -21.523, 0.854)
pt3dadd(108.812, 133.358, -21.619, 0.854)
pt3dadd(108.784, 133.403, -21.715, 0.854)
pt3dadd(108.757, 133.447, -21.811, 0.854)
pt3dadd(108.653, 133.457, -21.855, 0.844)
pt3dadd(108.547, 133.466, -21.898, 0.832)
pt3dadd(108.437, 133.475, -21.934, 0.812)
pt3dadd(108.326, 133.484, -21.965, 0.79)
pt3dadd(108.215, 133.493, -21.997, 0.766)
pt3dadd(108.102, 133.501, -22.016, 0.746)
pt3dadd(107.986, 133.511, -22.021, 0.73)
pt3dadd(107.87, 133.519, -22.025, 0.712)
pt3dadd(107.755, 133.529, -22.029, 0.68)
pt3dadd(107.641, 133.553, -22.033, 0.65)
pt3dadd(107.531, 133.598, -22.037, 0.646)
pt3dadd(107.421, 133.643, -22.042, 0.642)
pt3dadd(107.31, 133.687, -22.046, 0.638)
pt3dadd(107.2, 133.732, -22.05, 0.634)
pt3dadd(107.09, 133.777, -22.054, 0.628)
pt3dadd(106.98, 133.816, -22.075, 0.624)
pt3dadd(106.87, 133.854, -22.099, 0.618)
pt3dadd(106.761, 133.892, -22.123, 0.614)
pt3dadd(106.651, 133.93, -22.147, 0.608)
pt3dadd(106.541, 133.968, -22.171, 0.604)
pt3dadd(106.427, 133.985, -22.179, 0.618)
pt3dadd(106.311, 133.997, -22.183, 0.638)
pt3dadd(106.195, 134.01, -22.188, 0.658)
pt3dadd(106.08, 134.022, -22.192, 0.676)
pt3dadd(106.084, 134.03, -22.196, 0.676)
}
apic[13] {pt3dclear()
pt3dadd(115.796, 137.405, 18.184, 3.616)
pt3dadd(115.764, 137.405, 18.163, 3.586)
pt3dadd(115.669, 137.405, 18.102, 3.498)
pt3dadd(115.574, 137.405, 18.041, 3.41)
pt3dadd(115.479, 137.405, 17.98, 3.322)
pt3dadd(115.384, 137.405, 17.918, 3.234)
pt3dadd(115.289, 137.405, 17.857, 3.148)
pt3dadd(115.194, 137.405, 17.796, 3.06)
pt3dadd(115.099, 137.405, 17.735, 2.972)
pt3dadd(115.004, 137.405, 17.674, 2.884)
pt3dadd(114.909, 137.405, 17.612, 2.796)
pt3dadd(114.814, 137.405, 17.551, 2.708)
pt3dadd(114.72, 137.405, 17.49, 2.622)
pt3dadd(114.625, 137.405, 17.429, 2.534)
pt3dadd(114.518, 137.43, 17.389, 2.476)
pt3dadd(114.411, 137.46, 17.352, 2.424)
pt3dadd(114.303, 137.489, 17.315, 2.37)
pt3dadd(114.195, 137.518, 17.278, 2.316)
pt3dadd(114.088, 137.546, 17.241, 2.264)
pt3dadd(113.98, 137.575, 17.204, 2.21)
pt3dadd(113.873, 137.604, 17.167, 2.156)
pt3dadd(113.765, 137.633, 17.13, 2.104)
pt3dadd(113.657, 137.662, 17.093, 2.05)
pt3dadd(113.552, 137.712, 17.082, 2.034)
pt3dadd(113.448, 137.772, 17.082, 2.034)
pt3dadd(113.344, 137.832, 17.082, 2.034)
pt3dadd(113.24, 137.892, 17.082, 2.034)
pt3dadd(113.136, 137.952, 17.083, 2.034)
pt3dadd(113.032, 138.012, 17.083, 2.034)
pt3dadd(112.928, 138.071, 17.083, 2.034)
pt3dadd(112.824, 138.131, 17.083, 2.034)
pt3dadd(112.72, 138.191, 17.083, 2.034)
pt3dadd(112.616, 138.251, 17.083, 2.034)
pt3dadd(112.505, 138.295, 17.084, 1.966)
pt3dadd(112.391, 138.332, 17.084, 1.872)
pt3dadd(112.277, 138.37, 17.084, 1.776)
pt3dadd(112.163, 138.407, 17.085, 1.68)
pt3dadd(112.049, 138.445, 17.085, 1.584)
pt3dadd(111.935, 138.482, 17.085, 1.49)
pt3dadd(111.821, 138.52, 17.086, 1.394)
pt3dadd(111.707, 138.557, 17.086, 1.298)
pt3dadd(111.593, 138.594, 17.086, 1.202)
pt3dadd(111.479, 138.631, 17.087, 1.106)
pt3dadd(111.362, 138.655, 17.087, 1.07)
pt3dadd(111.243, 138.676, 17.088, 1.052)
pt3dadd(111.125, 138.695, 17.088, 1.036)
pt3dadd(111.007, 138.715, 17.089, 1.018)
pt3dadd(110.888, 138.734, 17.089, 1)
pt3dadd(110.77, 138.755, 17.09, 0.984)
pt3dadd(110.652, 138.774, 17.09, 0.966)
pt3dadd(110.533, 138.794, 17.091, 0.948)
pt3dadd(110.415, 138.814, 17.091, 0.93)
pt3dadd(110.296, 138.833, 17.092, 0.914)
pt3dadd(110.177, 138.844, 17.093, 0.932)
pt3dadd(110.057, 138.852, 17.094, 0.96)
pt3dadd(109.938, 138.86, 17.095, 0.99)
pt3dadd(109.818, 138.868, 17.096, 1.018)
pt3dadd(109.698, 138.876, 17.097, 1.048)
pt3dadd(109.578, 138.884, 17.097, 1.076)
pt3dadd(109.459, 138.893, 17.098, 1.106)
pt3dadd(109.339, 138.9, 17.099, 1.134)
pt3dadd(109.219, 138.908, 17.1, 1.162)
pt3dadd(109.099, 138.917, 17.101, 1.192)
pt3dadd(108.98, 138.918, 17.103, 1.214)
pt3dadd(108.86, 138.917, 17.104, 1.234)
pt3dadd(108.74, 138.917, 17.106, 1.254)
pt3dadd(108.62, 138.917, 17.108, 1.274)
pt3dadd(108.5, 138.917, 17.109, 1.292)
pt3dadd(108.38, 138.916, 17.111, 1.312)
pt3dadd(108.26, 138.916, 17.112, 1.332)
pt3dadd(108.14, 138.916, 17.114, 1.352)
pt3dadd(108.02, 138.914, 17.116, 1.372)
pt3dadd(107.9, 138.914, 17.117, 1.392)
pt3dadd(107.78, 138.914, 17.12, 1.424)
pt3dadd(107.66, 138.913, 17.123, 1.46)
pt3dadd(107.54, 138.913, 17.126, 1.496)
pt3dadd(107.42, 138.912, 17.129, 1.532)
pt3dadd(107.3, 138.912, 17.132, 1.568)
pt3dadd(107.18, 138.912, 17.135, 1.604)
pt3dadd(107.06, 138.911, 17.138, 1.64)
pt3dadd(106.94, 138.911, 17.14, 1.674)
pt3dadd(106.82, 138.91, 17.143, 1.71)
pt3dadd(106.7, 138.91, 17.146, 1.746)
pt3dadd(106.58, 138.908, 17.152, 1.758)
pt3dadd(106.461, 138.907, 17.159, 1.764)
pt3dadd(106.341, 138.906, 17.165, 1.768)
pt3dadd(106.221, 138.905, 17.171, 1.774)
pt3dadd(106.101, 138.904, 17.178, 1.78)
pt3dadd(105.982, 138.902, 17.185, 1.786)
pt3dadd(105.862, 138.901, 17.191, 1.79)
pt3dadd(105.742, 138.9, 17.198, 1.796)
pt3dadd(105.622, 138.899, 17.204, 1.802)
pt3dadd(105.503, 138.898, 17.211, 1.806)
pt3dadd(105.383, 138.896, 17.22, 1.808)
pt3dadd(105.264, 138.894, 17.23, 1.808)
pt3dadd(105.144, 138.892, 17.24, 1.808)
pt3dadd(105.025, 138.889, 17.249, 1.808)
pt3dadd(104.906, 138.887, 17.259, 1.808)
pt3dadd(104.786, 138.886, 17.269, 1.808)
pt3dadd(104.667, 138.883, 17.279, 1.808)
pt3dadd(104.547, 138.881, 17.289, 1.808)
pt3dadd(104.428, 138.878, 17.299, 1.808)
pt3dadd(104.309, 138.876, 17.309, 1.808)
pt3dadd(104.191, 138.874, 17.327, 1.804)
pt3dadd(104.073, 138.869, 17.346, 1.798)
pt3dadd(103.956, 138.865, 17.366, 1.794)
pt3dadd(103.838, 138.862, 17.386, 1.788)
pt3dadd(103.721, 138.858, 17.406, 1.784)
pt3dadd(103.603, 138.854, 17.426, 1.778)
pt3dadd(103.485, 138.851, 17.446, 1.774)
pt3dadd(103.368, 138.847, 17.466, 1.768)
pt3dadd(103.25, 138.844, 17.485, 1.764)
pt3dadd(103.133, 138.839, 17.505, 1.758)
pt3dadd(103.021, 138.833, 17.541, 1.744)
pt3dadd(102.91, 138.827, 17.578, 1.726)
pt3dadd(102.799, 138.821, 17.616, 1.71)
pt3dadd(102.688, 138.815, 17.654, 1.694)
pt3dadd(102.577, 138.809, 17.691, 1.678)
pt3dadd(102.466, 138.802, 17.729, 1.66)
pt3dadd(102.355, 138.796, 17.767, 1.644)
pt3dadd(102.244, 138.79, 17.804, 1.628)
pt3dadd(102.133, 138.784, 17.842, 1.612)
pt3dadd(102.022, 138.778, 17.88, 1.594)
pt3dadd(101.907, 138.768, 17.907, 1.62)
pt3dadd(101.792, 138.758, 17.933, 1.652)
pt3dadd(101.676, 138.748, 17.959, 1.682)
}
}
proc shape3d_79() {
apic[13] { pt3dadd(101.561, 138.738, 17.985, 1.714)
pt3dadd(101.445, 138.728, 18.011, 1.744)
pt3dadd(101.33, 138.719, 18.037, 1.776)
pt3dadd(101.214, 138.709, 18.063, 1.808)
pt3dadd(101.099, 138.698, 18.089, 1.838)
pt3dadd(100.984, 138.689, 18.115, 1.87)
pt3dadd(100.868, 138.679, 18.141, 1.9)
pt3dadd(100.753, 138.654, 18.16, 1.916)
pt3dadd(100.638, 138.626, 18.178, 1.93)
pt3dadd(100.524, 138.599, 18.196, 1.942)
pt3dadd(100.409, 138.571, 18.213, 1.956)
pt3dadd(100.294, 138.545, 18.231, 1.968)
pt3dadd(100.179, 138.517, 18.249, 1.982)
pt3dadd(100.064, 138.49, 18.267, 1.994)
pt3dadd(99.949, 138.462, 18.285, 2.008)
pt3dadd(99.834, 138.436, 18.303, 2.02)
pt3dadd(99.719, 138.408, 18.321, 2.034)
pt3dadd(99.604, 138.377, 18.332, 2.034)
pt3dadd(99.489, 138.346, 18.344, 2.034)
pt3dadd(99.374, 138.314, 18.355, 2.034)
pt3dadd(99.259, 138.283, 18.367, 2.034)
pt3dadd(99.144, 138.251, 18.379, 2.034)
pt3dadd(99.029, 138.22, 18.39, 2.034)
pt3dadd(98.914, 138.188, 18.402, 2.034)
pt3dadd(98.799, 138.157, 18.413, 2.034)
pt3dadd(98.684, 138.126, 18.425, 2.034)
pt3dadd(98.569, 138.095, 18.436, 2.034)
pt3dadd(98.451, 138.079, 18.443, 2.034)
pt3dadd(98.332, 138.064, 18.451, 2.034)
pt3dadd(98.213, 138.048, 18.458, 2.034)
pt3dadd(98.095, 138.032, 18.465, 2.034)
pt3dadd(97.976, 138.018, 18.472, 2.034)
pt3dadd(97.857, 138.002, 18.479, 2.034)
pt3dadd(97.738, 137.987, 18.486, 2.034)
pt3dadd(97.62, 137.971, 18.493, 2.034)
pt3dadd(97.501, 137.956, 18.5, 2.034)
pt3dadd(97.382, 137.94, 18.507, 2.034)
}
apic[14] {pt3dclear()
pt3dadd(97.382, 137.94, 18.507, 2.034)
pt3dadd(97.27, 137.972, 18.518, 1.984)
pt3dadd(97.156, 138.006, 18.53, 1.932)
pt3dadd(97.041, 138.04, 18.541, 1.882)
pt3dadd(96.927, 138.072, 18.553, 1.83)
pt3dadd(96.812, 138.106, 18.564, 1.78)
pt3dadd(96.698, 138.139, 18.576, 1.728)
pt3dadd(96.583, 138.172, 18.587, 1.676)
pt3dadd(96.469, 138.205, 18.598, 1.626)
pt3dadd(96.356, 138.236, 18.62, 1.602)
pt3dadd(96.243, 138.266, 18.644, 1.584)
pt3dadd(96.131, 138.296, 18.668, 1.564)
pt3dadd(96.018, 138.328, 18.692, 1.546)
pt3dadd(95.906, 138.358, 18.716, 1.528)
pt3dadd(95.794, 138.388, 18.74, 1.51)
pt3dadd(95.681, 138.419, 18.764, 1.492)
pt3dadd(95.569, 138.449, 18.788, 1.474)
pt3dadd(95.456, 138.479, 18.812, 1.456)
pt3dadd(95.344, 138.51, 18.837, 1.436)
pt3dadd(95.234, 138.535, 18.871, 1.442)
pt3dadd(95.125, 138.562, 18.907, 1.452)
pt3dadd(95.016, 138.587, 18.943, 1.46)
pt3dadd(94.907, 138.612, 18.978, 1.468)
pt3dadd(94.798, 138.638, 19.014, 1.476)
pt3dadd(94.689, 138.664, 19.05, 1.486)
pt3dadd(94.58, 138.689, 19.086, 1.494)
pt3dadd(94.471, 138.715, 19.121, 1.502)
pt3dadd(94.362, 138.74, 19.157, 1.512)
pt3dadd(94.252, 138.766, 19.193, 1.52)
pt3dadd(94.137, 138.78, 19.219, 1.458)
pt3dadd(94.022, 138.793, 19.244, 1.388)
pt3dadd(93.907, 138.805, 19.269, 1.32)
pt3dadd(93.791, 138.818, 19.294, 1.252)
pt3dadd(93.676, 138.832, 19.319, 1.182)
pt3dadd(93.56, 138.845, 19.344, 1.114)
pt3dadd(93.445, 138.858, 19.369, 1.046)
pt3dadd(93.329, 138.87, 19.395, 0.976)
pt3dadd(93.214, 138.883, 19.42, 0.908)
pt3dadd(93.099, 138.896, 19.445, 0.84)
pt3dadd(92.98, 138.9, 19.462, 0.832)
pt3dadd(92.862, 138.904, 19.478, 0.83)
pt3dadd(92.744, 138.907, 19.495, 0.828)
pt3dadd(92.625, 138.91, 19.511, 0.826)
pt3dadd(92.507, 138.913, 19.528, 0.824)
pt3dadd(92.389, 138.916, 19.544, 0.822)
pt3dadd(92.271, 138.919, 19.56, 0.82)
pt3dadd(92.152, 138.923, 19.577, 0.818)
pt3dadd(92.034, 138.925, 19.593, 0.816)
pt3dadd(91.916, 138.929, 19.61, 0.816)
pt3dadd(91.796, 138.929, 19.621, 0.832)
pt3dadd(91.677, 138.93, 19.631, 0.85)
pt3dadd(91.558, 138.93, 19.642, 0.868)
pt3dadd(91.438, 138.931, 19.652, 0.884)
pt3dadd(91.319, 138.931, 19.663, 0.902)
pt3dadd(91.2, 138.932, 19.673, 0.92)
pt3dadd(91.08, 138.932, 19.684, 0.938)
pt3dadd(90.961, 138.934, 19.694, 0.956)
pt3dadd(90.842, 138.934, 19.704, 0.974)
pt3dadd(90.722, 138.935, 19.715, 0.992)
pt3dadd(90.603, 138.936, 19.723, 1.01)
pt3dadd(90.483, 138.937, 19.731, 1.026)
pt3dadd(90.363, 138.937, 19.739, 1.044)
pt3dadd(90.244, 138.938, 19.747, 1.062)
pt3dadd(90.124, 138.94, 19.755, 1.08)
pt3dadd(90.005, 138.941, 19.764, 1.098)
pt3dadd(89.885, 138.942, 19.772, 1.116)
pt3dadd(89.765, 138.942, 19.78, 1.134)
pt3dadd(89.646, 138.943, 19.788, 1.152)
pt3dadd(89.526, 138.944, 19.796, 1.17)
pt3dadd(89.407, 138.946, 19.807, 1.188)
pt3dadd(89.288, 138.948, 19.819, 1.204)
pt3dadd(89.169, 138.949, 19.831, 1.222)
pt3dadd(89.049, 138.952, 19.842, 1.24)
pt3dadd(88.93, 138.953, 19.854, 1.258)
pt3dadd(88.811, 138.955, 19.866, 1.276)
pt3dadd(88.692, 138.956, 19.877, 1.294)
pt3dadd(88.573, 138.959, 19.889, 1.312)
pt3dadd(88.454, 138.96, 19.901, 1.33)
pt3dadd(88.334, 138.962, 19.912, 1.346)
pt3dadd(88.222, 138.966, 19.947, 1.378)
pt3dadd(88.11, 138.968, 19.983, 1.41)
pt3dadd(87.999, 138.972, 20.019, 1.444)
pt3dadd(87.887, 138.976, 20.055, 1.476)
pt3dadd(87.775, 138.978, 20.092, 1.508)
pt3dadd(87.663, 138.982, 20.128, 1.542)
pt3dadd(87.551, 138.985, 20.164, 1.574)
pt3dadd(87.439, 138.988, 20.2, 1.606)
pt3dadd(87.328, 138.991, 20.236, 1.638)
pt3dadd(87.216, 138.995, 20.273, 1.672)
pt3dadd(87.102, 139.001, 20.302, 1.656)
pt3dadd(86.987, 139.007, 20.332, 1.638)
pt3dadd(86.873, 139.013, 20.362, 1.622)
pt3dadd(86.758, 139.02, 20.391, 1.604)
pt3dadd(86.644, 139.026, 20.421, 1.588)
pt3dadd(86.529, 139.032, 20.45, 1.57)
pt3dadd(86.415, 139.038, 20.48, 1.554)
pt3dadd(86.3, 139.044, 20.51, 1.536)
pt3dadd(86.186, 139.051, 20.539, 1.52)
pt3dadd(86.071, 139.057, 20.569, 1.502)
pt3dadd(85.954, 139.067, 20.59, 1.47)
pt3dadd(85.837, 139.076, 20.61, 1.438)
pt3dadd(85.72, 139.086, 20.631, 1.406)
pt3dadd(85.603, 139.097, 20.652, 1.374)
pt3dadd(85.486, 139.106, 20.672, 1.342)
pt3dadd(85.369, 139.116, 20.693, 1.308)
pt3dadd(85.252, 139.126, 20.713, 1.276)
pt3dadd(85.135, 139.136, 20.734, 1.244)
pt3dadd(85.018, 139.146, 20.755, 1.212)
pt3dadd(84.901, 139.156, 20.776, 1.18)
pt3dadd(84.783, 139.17, 20.787, 1.198)
pt3dadd(84.665, 139.184, 20.799, 1.214)
pt3dadd(84.546, 139.198, 20.81, 1.232)
pt3dadd(84.428, 139.212, 20.822, 1.25)
pt3dadd(84.31, 139.226, 20.833, 1.268)
pt3dadd(84.191, 139.241, 20.845, 1.286)
pt3dadd(84.073, 139.255, 20.857, 1.304)
pt3dadd(83.955, 139.268, 20.868, 1.32)
pt3dadd(83.836, 139.283, 20.88, 1.338)
pt3dadd(83.718, 139.297, 20.891, 1.356)
}
apic[15] {pt3dclear()
pt3dadd(83.718, 139.297, 20.891, 1.356)
pt3dadd(83.629, 139.333, 20.892, 1.37)
pt3dadd(83.517, 139.379, 20.894, 1.386)
pt3dadd(83.406, 139.423, 20.895, 1.402)
pt3dadd(83.295, 139.469, 20.896, 1.42)
pt3dadd(83.184, 139.514, 20.898, 1.436)
pt3dadd(83.073, 139.559, 20.899, 1.452)
pt3dadd(82.962, 139.604, 20.9, 1.468)
pt3dadd(82.851, 139.65, 20.902, 1.486)
pt3dadd(82.74, 139.696, 20.903, 1.502)
pt3dadd(82.628, 139.74, 20.904, 1.518)
pt3dadd(82.515, 139.778, 20.906, 1.526)
pt3dadd(82.4, 139.814, 20.909, 1.532)
pt3dadd(82.286, 139.85, 20.911, 1.538)
pt3dadd(82.171, 139.886, 20.913, 1.544)
pt3dadd(82.057, 139.922, 20.915, 1.55)
pt3dadd(81.942, 139.958, 20.917, 1.556)
pt3dadd(81.828, 139.994, 20.92, 1.562)
pt3dadd(81.713, 140.03, 20.922, 1.568)
pt3dadd(81.599, 140.065, 20.924, 1.574)
pt3dadd(81.484, 140.101, 20.926, 1.58)
pt3dadd(81.368, 140.13, 20.93, 1.564)
pt3dadd(81.251, 140.155, 20.934, 1.54)
pt3dadd(81.134, 140.182, 20.938, 1.516)
pt3dadd(81.017, 140.207, 20.943, 1.494)
pt3dadd(80.9, 140.233, 20.947, 1.47)
pt3dadd(80.782, 140.258, 20.951, 1.448)
pt3dadd(80.665, 140.285, 20.955, 1.424)
pt3dadd(80.548, 140.31, 20.959, 1.402)
pt3dadd(80.431, 140.336, 20.963, 1.378)
pt3dadd(80.314, 140.362, 20.967, 1.356)
pt3dadd(80.196, 140.38, 20.974, 1.296)
pt3dadd(80.077, 140.396, 20.981, 1.23)
pt3dadd(79.959, 140.412, 20.988, 1.162)
pt3dadd(79.84, 140.428, 20.996, 1.096)
pt3dadd(79.721, 140.444, 21.003, 1.03)
pt3dadd(79.603, 140.46, 21.01, 0.964)
pt3dadd(79.484, 140.477, 21.017, 0.896)
pt3dadd(79.366, 140.492, 21.024, 0.83)
pt3dadd(79.247, 140.508, 21.031, 0.764)
pt3dadd(79.128, 140.525, 21.039, 0.698)
pt3dadd(79.01, 140.534, 21.049, 0.7)
pt3dadd(78.891, 140.543, 21.061, 0.718)
pt3dadd(78.772, 140.551, 21.073, 0.736)
}
}
proc shape3d_80() {
apic[15] { pt3dadd(78.653, 140.56, 21.084, 0.754)
pt3dadd(78.534, 140.568, 21.096, 0.772)
pt3dadd(78.415, 140.576, 21.107, 0.79)
pt3dadd(78.296, 140.585, 21.119, 0.808)
pt3dadd(78.177, 140.593, 21.13, 0.824)
pt3dadd(78.058, 140.602, 21.142, 0.842)
pt3dadd(77.939, 140.61, 21.153, 0.86)
pt3dadd(77.825, 140.621, 21.181, 0.898)
pt3dadd(77.712, 140.633, 21.212, 0.94)
pt3dadd(77.598, 140.645, 21.244, 0.984)
pt3dadd(77.485, 140.657, 21.275, 1.026)
pt3dadd(77.372, 140.669, 21.306, 1.068)
pt3dadd(77.258, 140.681, 21.338, 1.11)
pt3dadd(77.145, 140.693, 21.369, 1.152)
pt3dadd(77.032, 140.705, 21.4, 1.196)
pt3dadd(76.918, 140.717, 21.431, 1.238)
pt3dadd(76.805, 140.729, 21.463, 1.28)
pt3dadd(76.694, 140.753, 21.494, 1.334)
pt3dadd(76.583, 140.778, 21.526, 1.39)
pt3dadd(76.472, 140.803, 21.557, 1.446)
pt3dadd(76.361, 140.828, 21.589, 1.502)
pt3dadd(76.25, 140.854, 21.62, 1.558)
pt3dadd(76.139, 140.88, 21.652, 1.614)
pt3dadd(76.028, 140.905, 21.683, 1.672)
pt3dadd(75.916, 140.93, 21.715, 1.728)
pt3dadd(75.805, 140.956, 21.746, 1.784)
pt3dadd(75.694, 140.981, 21.778, 1.84)
pt3dadd(75.586, 141.024, 21.8, 1.904)
pt3dadd(75.477, 141.068, 21.822, 1.968)
pt3dadd(75.369, 141.112, 21.845, 2.034)
pt3dadd(75.26, 141.155, 21.867, 2.098)
pt3dadd(75.152, 141.199, 21.889, 2.162)
pt3dadd(75.043, 141.242, 21.912, 2.228)
pt3dadd(74.934, 141.286, 21.934, 2.292)
pt3dadd(74.826, 141.329, 21.956, 2.356)
pt3dadd(74.717, 141.373, 21.979, 2.422)
pt3dadd(74.609, 141.416, 22.001, 2.486)
}
apic[16] {pt3dclear()
pt3dadd(74.609, 141.416, 22.001, 2.486)
pt3dadd(74.556, 141.43, 22.006, 2.438)
pt3dadd(74.44, 141.458, 22.017, 2.334)
pt3dadd(74.324, 141.487, 22.028, 2.232)
pt3dadd(74.208, 141.515, 22.038, 2.128)
pt3dadd(74.092, 141.544, 22.049, 2.024)
pt3dadd(73.976, 141.572, 22.06, 1.922)
pt3dadd(73.86, 141.601, 22.07, 1.818)
pt3dadd(73.745, 141.63, 22.081, 1.714)
pt3dadd(73.629, 141.658, 22.092, 1.612)
pt3dadd(73.513, 141.686, 22.102, 1.508)
pt3dadd(73.397, 141.714, 22.112, 1.408)
pt3dadd(73.278, 141.732, 22.115, 1.34)
pt3dadd(73.16, 141.749, 22.118, 1.274)
pt3dadd(73.041, 141.767, 22.121, 1.206)
pt3dadd(72.922, 141.785, 22.124, 1.138)
pt3dadd(72.804, 141.802, 22.127, 1.072)
pt3dadd(72.685, 141.82, 22.13, 1.004)
pt3dadd(72.566, 141.838, 22.133, 0.938)
pt3dadd(72.448, 141.854, 22.136, 0.87)
pt3dadd(72.329, 141.872, 22.139, 0.802)
pt3dadd(72.21, 141.889, 22.142, 0.74)
pt3dadd(72.09, 141.896, 22.142, 0.702)
pt3dadd(71.971, 141.904, 22.142, 0.664)
pt3dadd(71.851, 141.911, 22.142, 0.628)
pt3dadd(71.731, 141.918, 22.142, 0.59)
pt3dadd(71.611, 141.925, 22.142, 0.552)
pt3dadd(71.492, 141.932, 22.142, 0.516)
pt3dadd(71.372, 141.94, 22.142, 0.478)
pt3dadd(71.252, 141.948, 22.142, 0.44)
pt3dadd(71.132, 141.955, 22.142, 0.404)
pt3dadd(71.012, 141.961, 22.142, 0.37)
pt3dadd(70.892, 141.961, 22.142, 0.362)
pt3dadd(70.772, 141.961, 22.142, 0.354)
pt3dadd(70.652, 141.962, 22.142, 0.346)
pt3dadd(70.532, 141.962, 22.142, 0.338)
pt3dadd(70.412, 141.962, 22.141, 0.332)
pt3dadd(70.292, 141.962, 22.141, 0.324)
pt3dadd(70.172, 141.962, 22.141, 0.316)
pt3dadd(70.052, 141.964, 22.141, 0.308)
pt3dadd(69.932, 141.964, 22.141, 0.3)
pt3dadd(69.812, 141.964, 22.141, 0.298)
pt3dadd(69.692, 141.964, 22.141, 0.334)
pt3dadd(69.572, 141.965, 22.141, 0.37)
pt3dadd(69.452, 141.965, 22.141, 0.406)
pt3dadd(69.332, 141.965, 22.141, 0.44)
pt3dadd(69.212, 141.966, 22.141, 0.476)
pt3dadd(69.092, 141.966, 22.141, 0.512)
pt3dadd(68.972, 141.966, 22.141, 0.548)
pt3dadd(68.852, 141.966, 22.141, 0.584)
pt3dadd(68.732, 141.967, 22.141, 0.62)
pt3dadd(68.612, 141.967, 22.141, 0.648)
pt3dadd(68.492, 141.968, 22.141, 0.636)
pt3dadd(68.372, 141.968, 22.141, 0.622)
pt3dadd(68.253, 141.97, 22.141, 0.608)
pt3dadd(68.133, 141.97, 22.141, 0.594)
pt3dadd(68.013, 141.971, 22.141, 0.58)
pt3dadd(67.893, 141.972, 22.141, 0.566)
pt3dadd(67.773, 141.972, 22.141, 0.552)
pt3dadd(67.653, 141.973, 22.141, 0.54)
pt3dadd(67.533, 141.973, 22.141, 0.526)
pt3dadd(67.413, 141.974, 22.141, 0.514)
pt3dadd(67.293, 141.976, 22.141, 0.52)
pt3dadd(67.173, 141.977, 22.141, 0.526)
pt3dadd(67.053, 141.978, 22.141, 0.53)
pt3dadd(66.933, 141.98, 22.141, 0.536)
pt3dadd(66.813, 141.982, 22.141, 0.542)
pt3dadd(66.693, 141.983, 22.141, 0.548)
pt3dadd(66.573, 141.984, 22.141, 0.554)
pt3dadd(66.453, 141.985, 22.141, 0.558)
pt3dadd(66.333, 141.986, 22.141, 0.564)
pt3dadd(66.213, 141.988, 22.141, 0.572)
pt3dadd(66.093, 141.99, 22.141, 0.598)
pt3dadd(65.973, 141.992, 22.141, 0.622)
pt3dadd(65.853, 141.995, 22.141, 0.648)
pt3dadd(65.733, 141.997, 22.141, 0.672)
pt3dadd(65.613, 142, 22.141, 0.696)
pt3dadd(65.493, 142.002, 22.141, 0.722)
pt3dadd(65.373, 142.004, 22.141, 0.746)
pt3dadd(65.253, 142.006, 22.141, 0.772)
pt3dadd(65.133, 142.008, 22.141, 0.796)
pt3dadd(65.013, 142.01, 22.141, 0.822)
pt3dadd(64.893, 142.015, 22.141, 0.85)
pt3dadd(64.773, 142.019, 22.14, 0.88)
pt3dadd(64.653, 142.022, 22.14, 0.908)
pt3dadd(64.533, 142.026, 22.14, 0.938)
pt3dadd(64.413, 142.03, 22.14, 0.966)
pt3dadd(64.293, 142.034, 22.14, 0.996)
pt3dadd(64.173, 142.038, 22.14, 1.024)
pt3dadd(64.053, 142.042, 22.14, 1.054)
pt3dadd(63.933, 142.045, 22.14, 1.082)
pt3dadd(63.813, 142.05, 22.14, 1.106)
pt3dadd(63.694, 142.058, 22.14, 1.088)
pt3dadd(63.574, 142.066, 22.14, 1.07)
pt3dadd(63.454, 142.074, 22.139, 1.052)
pt3dadd(63.334, 142.082, 22.139, 1.034)
pt3dadd(63.215, 142.09, 22.139, 1.016)
pt3dadd(63.095, 142.098, 22.139, 0.998)
pt3dadd(62.975, 142.106, 22.139, 0.98)
pt3dadd(62.856, 142.114, 22.139, 0.962)
pt3dadd(62.736, 142.122, 22.139, 0.944)
pt3dadd(62.616, 142.13, 22.139, 0.926)
pt3dadd(62.497, 142.144, 22.138, 0.908)
pt3dadd(62.377, 142.156, 22.138, 0.892)
pt3dadd(62.258, 142.169, 22.138, 0.874)
pt3dadd(62.139, 142.181, 22.138, 0.856)
pt3dadd(62.019, 142.193, 22.137, 0.838)
pt3dadd(61.9, 142.206, 22.137, 0.82)
pt3dadd(61.781, 142.218, 22.137, 0.802)
pt3dadd(61.661, 142.231, 22.136, 0.784)
pt3dadd(61.542, 142.243, 22.136, 0.768)
pt3dadd(61.423, 142.258, 22.136, 0.752)
pt3dadd(61.307, 142.289, 22.135, 0.754)
pt3dadd(61.191, 142.32, 22.135, 0.756)
pt3dadd(61.075, 142.351, 22.134, 0.76)
pt3dadd(60.959, 142.381, 22.134, 0.762)
pt3dadd(60.843, 142.412, 22.134, 0.764)
pt3dadd(60.728, 142.444, 22.133, 0.766)
pt3dadd(60.612, 142.475, 22.133, 0.768)
pt3dadd(60.496, 142.506, 22.132, 0.772)
pt3dadd(60.38, 142.537, 22.132, 0.774)
pt3dadd(60.264, 142.57, 22.131, 0.778)
pt3dadd(60.151, 142.609, 22.13, 0.786)
pt3dadd(60.038, 142.648, 22.13, 0.796)
pt3dadd(59.924, 142.687, 22.129, 0.804)
pt3dadd(59.811, 142.727, 22.128, 0.812)
pt3dadd(59.697, 142.766, 22.127, 0.822)
pt3dadd(59.584, 142.805, 22.127, 0.83)
pt3dadd(59.471, 142.844, 22.126, 0.84)
pt3dadd(59.357, 142.884, 22.125, 0.848)
pt3dadd(59.244, 142.924, 22.124, 0.858)
pt3dadd(59.13, 142.96, 22.123, 0.86)
pt3dadd(59.013, 142.985, 22.122, 0.842)
pt3dadd(58.895, 143.01, 22.121, 0.826)
pt3dadd(58.778, 143.036, 22.119, 0.808)
pt3dadd(58.661, 143.062, 22.118, 0.79)
pt3dadd(58.544, 143.087, 22.116, 0.772)
pt3dadd(58.426, 143.113, 22.115, 0.756)
pt3dadd(58.309, 143.138, 22.114, 0.738)
pt3dadd(58.192, 143.164, 22.112, 0.72)
pt3dadd(58.075, 143.19, 22.111, 0.704)
pt3dadd(57.957, 143.21, 22.109, 0.694)
pt3dadd(57.837, 143.216, 22.107, 0.708)
pt3dadd(57.717, 143.224, 22.104, 0.724)
pt3dadd(57.597, 143.23, 22.101, 0.74)
pt3dadd(57.478, 143.236, 22.098, 0.756)
pt3dadd(57.358, 143.242, 22.096, 0.77)
pt3dadd(57.238, 143.248, 22.093, 0.786)
pt3dadd(57.118, 143.255, 22.09, 0.802)
pt3dadd(56.998, 143.261, 22.087, 0.818)
pt3dadd(56.879, 143.267, 22.085, 0.834)
pt3dadd(56.759, 143.269, 22.081, 0.85)
pt3dadd(56.639, 143.262, 22.076, 0.866)
pt3dadd(56.52, 143.255, 22.07, 0.884)
pt3dadd(56.4, 143.248, 22.065, 0.902)
pt3dadd(56.281, 143.239, 22.059, 0.92)
pt3dadd(56.161, 143.232, 22.053, 0.938)
pt3dadd(56.041, 143.225, 22.048, 0.956)
pt3dadd(55.922, 143.216, 22.042, 0.974)
pt3dadd(55.802, 143.209, 22.037, 0.992)
pt3dadd(55.683, 143.202, 22.031, 1.01)
pt3dadd(55.564, 143.189, 22.025, 1.026)
pt3dadd(55.447, 143.164, 22.016, 1.044)
}
}
proc shape3d_81() {
apic[16] { pt3dadd(55.331, 143.137, 22.008, 1.062)
pt3dadd(55.214, 143.111, 22, 1.078)
pt3dadd(55.097, 143.086, 21.991, 1.096)
pt3dadd(54.98, 143.059, 21.983, 1.114)
pt3dadd(54.864, 143.033, 21.974, 1.132)
pt3dadd(54.747, 143.006, 21.966, 1.148)
pt3dadd(54.63, 142.981, 21.957, 1.166)
pt3dadd(54.514, 142.955, 21.949, 1.184)
pt3dadd(54.399, 142.922, 21.94, 1.2)
pt3dadd(54.288, 142.878, 21.928, 1.216)
pt3dadd(54.177, 142.835, 21.917, 1.232)
pt3dadd(54.066, 142.79, 21.906, 1.246)
pt3dadd(53.955, 142.747, 21.895, 1.262)
pt3dadd(53.845, 142.703, 21.884, 1.278)
pt3dadd(53.734, 142.658, 21.873, 1.294)
pt3dadd(53.623, 142.615, 21.862, 1.308)
pt3dadd(53.512, 142.571, 21.851, 1.324)
pt3dadd(53.401, 142.526, 21.839, 1.34)
pt3dadd(53.291, 142.489, 21.819, 1.338)
pt3dadd(53.183, 142.462, 21.783, 1.306)
pt3dadd(53.074, 142.435, 21.747, 1.274)
pt3dadd(52.965, 142.408, 21.711, 1.24)
pt3dadd(52.857, 142.381, 21.675, 1.208)
pt3dadd(52.748, 142.354, 21.639, 1.176)
pt3dadd(52.639, 142.327, 21.603, 1.144)
pt3dadd(52.531, 142.3, 21.567, 1.112)
pt3dadd(52.422, 142.273, 21.531, 1.08)
pt3dadd(52.313, 142.247, 21.495, 1.046)
pt3dadd(52.203, 142.223, 21.462, 1.026)
pt3dadd(52.089, 142.204, 21.434, 1.024)
pt3dadd(51.975, 142.186, 21.406, 1.022)
pt3dadd(51.862, 142.168, 21.377, 1.022)
pt3dadd(51.748, 142.15, 21.349, 1.02)
pt3dadd(51.634, 142.132, 21.321, 1.018)
pt3dadd(51.521, 142.114, 21.293, 1.016)
pt3dadd(51.407, 142.094, 21.265, 1.016)
pt3dadd(51.293, 142.076, 21.236, 1.014)
pt3dadd(51.18, 142.058, 21.208, 1.012)
pt3dadd(51.064, 142.044, 21.184, 1.016)
pt3dadd(50.947, 142.036, 21.165, 1.028)
pt3dadd(50.829, 142.026, 21.146, 1.04)
pt3dadd(50.712, 142.018, 21.127, 1.052)
pt3dadd(50.595, 142.009, 21.108, 1.064)
pt3dadd(50.477, 142, 21.089, 1.076)
pt3dadd(50.36, 141.991, 21.069, 1.088)
pt3dadd(50.242, 141.983, 21.051, 1.1)
pt3dadd(50.125, 141.973, 21.031, 1.112)
pt3dadd(50.007, 141.965, 21.012, 1.124)
pt3dadd(49.889, 141.96, 20.998, 1.128)
pt3dadd(49.769, 141.96, 20.988, 1.126)
pt3dadd(49.65, 141.96, 20.979, 1.122)
pt3dadd(49.53, 141.96, 20.97, 1.12)
pt3dadd(49.411, 141.96, 20.961, 1.116)
pt3dadd(49.291, 141.961, 20.952, 1.114)
pt3dadd(49.172, 141.961, 20.943, 1.11)
pt3dadd(49.052, 141.961, 20.934, 1.106)
pt3dadd(48.933, 141.961, 20.925, 1.104)
pt3dadd(48.813, 141.961, 20.916, 1.1)
pt3dadd(48.694, 141.961, 20.912, 1.068)
pt3dadd(48.574, 141.961, 20.915, 0.996)
pt3dadd(48.454, 141.961, 20.917, 0.926)
pt3dadd(48.334, 141.962, 20.92, 0.854)
pt3dadd(48.214, 141.962, 20.923, 0.782)
pt3dadd(48.094, 141.962, 20.926, 0.71)
pt3dadd(47.974, 141.962, 20.929, 0.64)
pt3dadd(47.854, 141.962, 20.932, 0.568)
pt3dadd(47.734, 141.964, 20.934, 0.496)
pt3dadd(47.614, 141.964, 20.937, 0.426)
pt3dadd(47.494, 141.964, 20.942, 0.378)
pt3dadd(47.374, 141.965, 20.948, 0.362)
pt3dadd(47.255, 141.965, 20.954, 0.346)
pt3dadd(47.135, 141.965, 20.96, 0.33)
pt3dadd(47.015, 141.966, 20.966, 0.314)
pt3dadd(46.895, 141.966, 20.972, 0.298)
pt3dadd(46.776, 141.967, 20.978, 0.282)
pt3dadd(46.656, 141.967, 20.984, 0.266)
pt3dadd(46.536, 141.967, 20.99, 0.25)
pt3dadd(46.416, 141.968, 20.997, 0.236)
pt3dadd(46.297, 141.968, 21.004, 0.234)
pt3dadd(46.177, 141.97, 21.013, 0.252)
pt3dadd(46.058, 141.97, 21.023, 0.27)
pt3dadd(45.938, 141.971, 21.032, 0.288)
pt3dadd(45.819, 141.972, 21.041, 0.306)
pt3dadd(45.699, 141.972, 21.051, 0.324)
pt3dadd(45.58, 141.973, 21.06, 0.342)
pt3dadd(45.46, 141.973, 21.069, 0.36)
pt3dadd(45.341, 141.974, 21.079, 0.378)
pt3dadd(45.221, 141.976, 21.088, 0.396)
pt3dadd(45.102, 141.976, 21.101, 0.422)
pt3dadd(44.984, 141.978, 21.119, 0.458)
pt3dadd(44.866, 141.979, 21.137, 0.492)
pt3dadd(44.748, 141.98, 21.154, 0.528)
pt3dadd(44.63, 141.982, 21.172, 0.562)
pt3dadd(44.512, 141.983, 21.19, 0.598)
pt3dadd(44.394, 141.984, 21.207, 0.634)
pt3dadd(44.276, 141.985, 21.225, 0.668)
pt3dadd(44.158, 141.986, 21.243, 0.704)
pt3dadd(44.04, 141.988, 21.26, 0.738)
pt3dadd(43.925, 141.99, 21.288, 0.772)
pt3dadd(43.814, 141.992, 21.325, 0.806)
pt3dadd(43.702, 141.995, 21.362, 0.84)
pt3dadd(43.591, 141.996, 21.4, 0.872)
pt3dadd(43.479, 141.998, 21.437, 0.906)
pt3dadd(43.368, 142.001, 21.474, 0.938)
pt3dadd(43.257, 142.003, 21.511, 0.972)
pt3dadd(43.145, 142.006, 21.548, 1.004)
pt3dadd(43.034, 142.007, 21.586, 1.038)
pt3dadd(42.923, 142.009, 21.623, 1.072)
pt3dadd(42.809, 142.013, 21.654, 1.074)
pt3dadd(42.693, 142.016, 21.68, 1.048)
pt3dadd(42.577, 142.021, 21.705, 1.022)
pt3dadd(42.461, 142.025, 21.731, 0.996)
pt3dadd(42.345, 142.03, 21.757, 0.97)
pt3dadd(42.229, 142.033, 21.782, 0.944)
pt3dadd(42.113, 142.038, 21.808, 0.918)
pt3dadd(41.997, 142.042, 21.834, 0.892)
pt3dadd(41.882, 142.046, 21.859, 0.866)
pt3dadd(41.766, 142.05, 21.885, 0.84)
pt3dadd(41.649, 142.057, 21.906, 0.81)
pt3dadd(41.531, 142.066, 21.923, 0.774)
pt3dadd(41.413, 142.074, 21.939, 0.74)
pt3dadd(41.295, 142.082, 21.956, 0.704)
pt3dadd(41.177, 142.091, 21.973, 0.67)
pt3dadd(41.059, 142.099, 21.989, 0.634)
pt3dadd(40.941, 142.108, 22.006, 0.598)
pt3dadd(40.823, 142.116, 22.023, 0.564)
pt3dadd(40.704, 142.124, 22.039, 0.528)
pt3dadd(40.587, 142.133, 22.056, 0.494)
pt3dadd(40.468, 142.144, 22.068, 0.47)
pt3dadd(40.349, 142.157, 22.076, 0.454)
pt3dadd(40.23, 142.171, 22.083, 0.44)
pt3dadd(40.111, 142.184, 22.091, 0.424)
pt3dadd(39.993, 142.198, 22.099, 0.41)
pt3dadd(39.874, 142.212, 22.107, 0.394)
pt3dadd(39.755, 142.225, 22.115, 0.38)
pt3dadd(39.636, 142.238, 22.123, 0.364)
pt3dadd(39.517, 142.253, 22.13, 0.35)
pt3dadd(39.398, 142.266, 22.138, 0.334)
pt3dadd(39.28, 142.283, 22.142, 0.348)
pt3dadd(39.161, 142.303, 22.142, 0.382)
pt3dadd(39.043, 142.322, 22.142, 0.418)
pt3dadd(38.925, 142.343, 22.142, 0.452)
pt3dadd(38.806, 142.363, 22.142, 0.488)
pt3dadd(38.688, 142.382, 22.142, 0.522)
pt3dadd(38.57, 142.403, 22.142, 0.556)
pt3dadd(38.451, 142.422, 22.142, 0.592)
pt3dadd(38.333, 142.442, 22.142, 0.626)
pt3dadd(38.215, 142.463, 22.142, 0.662)
pt3dadd(38.103, 142.502, 22.142, 0.668)
pt3dadd(37.996, 142.556, 22.142, 0.652)
pt3dadd(37.889, 142.612, 22.142, 0.636)
pt3dadd(37.783, 142.667, 22.142, 0.62)
pt3dadd(37.676, 142.721, 22.142, 0.604)
pt3dadd(37.569, 142.776, 22.142, 0.588)
pt3dadd(37.463, 142.831, 22.142, 0.572)
pt3dadd(37.356, 142.886, 22.142, 0.556)
pt3dadd(37.249, 142.94, 22.142, 0.54)
pt3dadd(37.142, 142.996, 22.142, 0.524)
pt3dadd(37.035, 143.05, 22.142, 0.53)
pt3dadd(36.927, 143.101, 22.142, 0.552)
pt3dadd(36.819, 143.154, 22.142, 0.574)
pt3dadd(36.711, 143.206, 22.142, 0.596)
pt3dadd(36.603, 143.258, 22.142, 0.618)
pt3dadd(36.495, 143.311, 22.142, 0.64)
pt3dadd(36.387, 143.363, 22.142, 0.662)
pt3dadd(36.279, 143.416, 22.142, 0.682)
pt3dadd(36.171, 143.467, 22.142, 0.704)
pt3dadd(36.063, 143.52, 22.142, 0.726)
pt3dadd(35.955, 143.573, 22.142, 0.756)
pt3dadd(35.848, 143.627, 22.142, 0.794)
pt3dadd(35.741, 143.682, 22.142, 0.83)
pt3dadd(35.634, 143.736, 22.142, 0.866)
pt3dadd(35.527, 143.79, 22.142, 0.904)
pt3dadd(35.42, 143.844, 22.142, 0.94)
pt3dadd(35.313, 143.898, 22.142, 0.976)
pt3dadd(35.206, 143.952, 22.142, 1.014)
pt3dadd(35.099, 144.006, 22.142, 1.05)
pt3dadd(34.992, 144.06, 22.142, 1.088)
pt3dadd(34.89, 144.124, 22.142, 1.094)
pt3dadd(34.791, 144.192, 22.142, 1.078)
pt3dadd(34.693, 144.262, 22.142, 1.064)
pt3dadd(34.595, 144.33, 22.142, 1.05)
pt3dadd(34.497, 144.398, 22.142, 1.036)
pt3dadd(34.398, 144.468, 22.142, 1.02)
pt3dadd(34.3, 144.536, 22.142, 1.006)
pt3dadd(34.202, 144.606, 22.142, 0.992)
pt3dadd(34.104, 144.674, 22.142, 0.976)
pt3dadd(34.005, 144.743, 22.142, 0.962)
pt3dadd(33.908, 144.814, 22.142, 0.948)
pt3dadd(33.812, 144.886, 22.142, 0.934)
pt3dadd(33.716, 144.958, 22.142, 0.918)
pt3dadd(33.619, 145.028, 22.142, 0.904)
pt3dadd(33.523, 145.1, 22.142, 0.89)
pt3dadd(33.427, 145.172, 22.142, 0.876)
pt3dadd(33.331, 145.243, 22.142, 0.862)
pt3dadd(33.234, 145.315, 22.142, 0.848)
pt3dadd(33.138, 145.387, 22.142, 0.834)
pt3dadd(33.042, 145.458, 22.142, 0.818)
pt3dadd(32.946, 145.531, 22.142, 0.806)
pt3dadd(32.851, 145.604, 22.142, 0.792)
}
}
proc shape3d_82() {
apic[16] { pt3dadd(32.756, 145.678, 22.142, 0.78)
pt3dadd(32.661, 145.751, 22.142, 0.766)
pt3dadd(32.566, 145.824, 22.142, 0.754)
pt3dadd(32.471, 145.897, 22.142, 0.742)
pt3dadd(32.376, 145.972, 22.142, 0.728)
pt3dadd(32.281, 146.045, 22.142, 0.716)
pt3dadd(32.186, 146.118, 22.142, 0.702)
pt3dadd(32.091, 146.191, 22.142, 0.69)
pt3dadd(31.996, 146.264, 22.142, 0.692)
pt3dadd(31.901, 146.338, 22.142, 0.706)
pt3dadd(31.806, 146.411, 22.142, 0.722)
pt3dadd(31.711, 146.484, 22.142, 0.736)
pt3dadd(31.616, 146.557, 22.142, 0.75)
pt3dadd(31.521, 146.632, 22.142, 0.764)
pt3dadd(31.426, 146.705, 22.142, 0.778)
pt3dadd(31.332, 146.778, 22.142, 0.792)
pt3dadd(31.237, 146.851, 22.142, 0.806)
pt3dadd(31.142, 146.924, 22.142, 0.82)
pt3dadd(31.041, 146.99, 22.142, 0.818)
pt3dadd(30.938, 147.05, 22.142, 0.802)
pt3dadd(30.834, 147.112, 22.142, 0.788)
pt3dadd(30.731, 147.172, 22.142, 0.774)
pt3dadd(30.627, 147.232, 22.142, 0.758)
pt3dadd(30.523, 147.293, 22.142, 0.744)
pt3dadd(30.42, 147.353, 22.142, 0.728)
pt3dadd(30.316, 147.414, 22.142, 0.714)
pt3dadd(30.212, 147.474, 22.142, 0.7)
pt3dadd(30.109, 147.534, 22.142, 0.684)
pt3dadd(29.999, 147.582, 22.142, 0.652)
pt3dadd(29.886, 147.623, 22.142, 0.612)
pt3dadd(29.774, 147.665, 22.142, 0.57)
pt3dadd(29.661, 147.706, 22.142, 0.53)
pt3dadd(29.548, 147.748, 22.142, 0.49)
pt3dadd(29.436, 147.788, 22.142, 0.448)
pt3dadd(29.323, 147.83, 22.142, 0.408)
pt3dadd(29.21, 147.871, 22.142, 0.368)
pt3dadd(29.098, 147.913, 22.142, 0.326)
pt3dadd(28.985, 147.954, 22.142, 0.286)
pt3dadd(28.869, 147.982, 22.142, 0.312)
pt3dadd(28.75, 148.002, 22.142, 0.364)
pt3dadd(28.632, 148.024, 22.142, 0.418)
pt3dadd(28.514, 148.045, 22.142, 0.47)
pt3dadd(28.396, 148.067, 22.142, 0.522)
pt3dadd(28.278, 148.088, 22.142, 0.576)
pt3dadd(28.16, 148.109, 22.142, 0.628)
pt3dadd(28.042, 148.13, 22.142, 0.68)
pt3dadd(27.924, 148.152, 22.142, 0.734)
pt3dadd(27.806, 148.174, 22.142, 0.786)
pt3dadd(27.687, 148.19, 22.142, 0.808)
pt3dadd(27.568, 148.206, 22.142, 0.82)
pt3dadd(27.449, 148.22, 22.142, 0.83)
pt3dadd(27.33, 148.236, 22.142, 0.84)
pt3dadd(27.211, 148.252, 22.142, 0.85)
pt3dadd(27.092, 148.267, 22.142, 0.86)
pt3dadd(26.973, 148.282, 22.142, 0.87)
pt3dadd(26.854, 148.297, 22.142, 0.88)
pt3dadd(26.735, 148.313, 22.142, 0.89)
pt3dadd(26.616, 148.327, 22.142, 0.902)
pt3dadd(26.499, 148.354, 22.142, 0.898)
pt3dadd(26.383, 148.384, 22.142, 0.888)
pt3dadd(26.267, 148.415, 22.142, 0.88)
pt3dadd(26.151, 148.445, 22.142, 0.872)
pt3dadd(26.034, 148.475, 22.142, 0.862)
pt3dadd(25.918, 148.506, 22.142, 0.854)
pt3dadd(25.802, 148.536, 22.142, 0.844)
pt3dadd(25.686, 148.566, 22.142, 0.836)
pt3dadd(25.57, 148.597, 22.142, 0.826)
pt3dadd(25.454, 148.627, 22.142, 0.818)
pt3dadd(25.341, 148.667, 22.142, 0.804)
pt3dadd(25.228, 148.709, 22.142, 0.792)
pt3dadd(25.116, 148.751, 22.142, 0.778)
pt3dadd(25.004, 148.793, 22.142, 0.764)
pt3dadd(24.891, 148.835, 22.142, 0.75)
pt3dadd(24.779, 148.877, 22.141, 0.736)
pt3dadd(24.666, 148.919, 22.141, 0.722)
pt3dadd(24.554, 148.961, 22.141, 0.708)
pt3dadd(24.441, 149.002, 22.141, 0.694)
pt3dadd(24.329, 149.044, 22.141, 0.68)
pt3dadd(24.213, 149.075, 22.141, 0.678)
pt3dadd(24.097, 149.104, 22.141, 0.678)
pt3dadd(23.98, 149.132, 22.141, 0.678)
pt3dadd(23.863, 149.16, 22.141, 0.678)
pt3dadd(23.747, 149.189, 22.141, 0.678)
pt3dadd(23.63, 149.218, 22.141, 0.678)
pt3dadd(23.514, 149.245, 22.141, 0.678)
pt3dadd(23.397, 149.274, 22.141, 0.678)
pt3dadd(23.28, 149.303, 22.141, 0.678)
pt3dadd(23.164, 149.332, 22.141, 0.678)
pt3dadd(23.045, 149.348, 22.141, 0.69)
pt3dadd(22.926, 149.363, 22.141, 0.706)
pt3dadd(22.807, 149.377, 22.141, 0.722)
pt3dadd(22.688, 149.393, 22.141, 0.736)
pt3dadd(22.569, 149.407, 22.141, 0.752)
pt3dadd(22.45, 149.422, 22.141, 0.768)
pt3dadd(22.331, 149.436, 22.141, 0.782)
pt3dadd(22.212, 149.45, 22.141, 0.798)
pt3dadd(22.092, 149.466, 22.141, 0.814)
pt3dadd(21.973, 149.48, 22.141, 0.83)
pt3dadd(21.854, 149.486, 22.141, 0.864)
pt3dadd(21.734, 149.49, 22.141, 0.904)
pt3dadd(21.614, 149.495, 22.141, 0.942)
pt3dadd(21.494, 149.498, 22.141, 0.982)
pt3dadd(21.374, 149.502, 22.141, 1.02)
pt3dadd(21.254, 149.507, 22.141, 1.06)
pt3dadd(21.134, 149.51, 22.141, 1.098)
pt3dadd(21.014, 149.515, 22.141, 1.138)
pt3dadd(20.894, 149.519, 22.141, 1.178)
pt3dadd(20.774, 149.522, 22.141, 1.216)
pt3dadd(20.654, 149.521, 22.141, 1.228)
pt3dadd(20.534, 149.52, 22.141, 1.234)
pt3dadd(20.414, 149.518, 22.141, 1.242)
pt3dadd(20.294, 149.515, 22.141, 1.248)
pt3dadd(20.174, 149.513, 22.141, 1.254)
pt3dadd(20.054, 149.51, 22.141, 1.26)
pt3dadd(19.934, 149.509, 22.141, 1.268)
pt3dadd(19.814, 149.507, 22.141, 1.274)
pt3dadd(19.694, 149.504, 22.141, 1.28)
pt3dadd(19.574, 149.502, 22.141, 1.286)
pt3dadd(19.454, 149.5, 22.141, 1.222)
pt3dadd(19.335, 149.496, 22.141, 1.144)
pt3dadd(19.215, 149.492, 22.14, 1.066)
pt3dadd(19.095, 149.489, 22.14, 0.988)
pt3dadd(18.975, 149.485, 22.14, 0.91)
pt3dadd(18.855, 149.482, 22.14, 0.834)
pt3dadd(18.735, 149.478, 22.14, 0.756)
pt3dadd(18.615, 149.474, 22.14, 0.678)
pt3dadd(18.495, 149.471, 22.14, 0.6)
pt3dadd(18.375, 149.467, 22.14, 0.522)
pt3dadd(18.255, 149.46, 22.14, 0.584)
pt3dadd(18.135, 149.453, 22.14, 0.672)
pt3dadd(18.016, 149.444, 22.139, 0.762)
pt3dadd(17.896, 149.436, 22.139, 0.85)
pt3dadd(17.776, 149.429, 22.139, 0.94)
pt3dadd(17.656, 149.42, 22.139, 1.028)
pt3dadd(17.537, 149.412, 22.139, 1.118)
pt3dadd(17.417, 149.404, 22.139, 1.208)
pt3dadd(17.297, 149.396, 22.139, 1.296)
pt3dadd(17.178, 149.388, 22.139, 1.386)
pt3dadd(17.058, 149.377, 22.138, 1.38)
pt3dadd(16.939, 149.364, 22.138, 1.356)
pt3dadd(16.819, 149.352, 22.138, 1.332)
pt3dadd(16.7, 149.34, 22.138, 1.308)
pt3dadd(16.581, 149.328, 22.137, 1.284)
pt3dadd(16.461, 149.316, 22.137, 1.258)
pt3dadd(16.342, 149.304, 22.137, 1.234)
pt3dadd(16.222, 149.292, 22.136, 1.21)
pt3dadd(16.103, 149.28, 22.136, 1.186)
pt3dadd(15.984, 149.268, 22.136, 1.162)
pt3dadd(15.867, 149.242, 22.135, 1.152)
pt3dadd(15.75, 149.212, 22.135, 1.144)
pt3dadd(15.634, 149.183, 22.135, 1.136)
pt3dadd(15.517, 149.154, 22.134, 1.128)
pt3dadd(15.401, 149.125, 22.134, 1.12)
pt3dadd(15.285, 149.096, 22.133, 1.112)
pt3dadd(15.168, 149.066, 22.133, 1.104)
pt3dadd(15.052, 149.038, 22.132, 1.094)
pt3dadd(14.935, 149.009, 22.132, 1.086)
pt3dadd(14.819, 148.98, 22.131, 1.078)
pt3dadd(14.706, 148.94, 22.13, 1.098)
pt3dadd(14.593, 148.9, 22.13, 1.12)
pt3dadd(14.48, 148.86, 22.129, 1.142)
pt3dadd(14.367, 148.819, 22.128, 1.164)
pt3dadd(14.253, 148.78, 22.127, 1.186)
pt3dadd(14.14, 148.739, 22.127, 1.208)
pt3dadd(14.027, 148.699, 22.126, 1.23)
pt3dadd(13.914, 148.658, 22.125, 1.252)
pt3dadd(13.801, 148.619, 22.124, 1.274)
pt3dadd(13.688, 148.578, 22.124, 1.296)
pt3dadd(13.571, 148.552, 22.122, 1.264)
pt3dadd(13.454, 148.526, 22.121, 1.23)
pt3dadd(13.337, 148.501, 22.119, 1.196)
pt3dadd(13.219, 148.475, 22.118, 1.16)
pt3dadd(13.102, 148.45, 22.116, 1.126)
pt3dadd(12.985, 148.424, 22.115, 1.09)
pt3dadd(12.868, 148.399, 22.113, 1.056)
pt3dadd(12.75, 148.374, 22.112, 1.02)
pt3dadd(12.633, 148.348, 22.111, 0.986)
pt3dadd(12.516, 148.322, 22.109, 0.95)
pt3dadd(12.396, 148.314, 22.106, 0.916)
pt3dadd(12.277, 148.307, 22.104, 0.88)
pt3dadd(12.157, 148.3, 22.101, 0.844)
pt3dadd(12.037, 148.292, 22.098, 0.808)
pt3dadd(11.917, 148.285, 22.095, 0.772)
pt3dadd(11.798, 148.278, 22.092, 0.736)
pt3dadd(11.678, 148.271, 22.09, 0.702)
pt3dadd(11.558, 148.264, 22.087, 0.666)
pt3dadd(11.438, 148.256, 22.084, 0.63)
pt3dadd(11.319, 148.249, 22.081, 0.594)
pt3dadd(11.199, 148.256, 22.076, 0.59)
pt3dadd(11.079, 148.264, 22.07, 0.586)
pt3dadd(10.96, 148.271, 22.065, 0.582)
pt3dadd(10.84, 148.277, 22.059, 0.58)
pt3dadd(10.721, 148.284, 22.053, 0.576)
pt3dadd(10.601, 148.291, 22.048, 0.572)
pt3dadd(10.482, 148.298, 22.042, 0.57)
pt3dadd(10.362, 148.306, 22.037, 0.566)
pt3dadd(10.242, 148.313, 22.031, 0.562)
pt3dadd(10.123, 148.32, 22.025, 0.56)
pt3dadd(10.006, 148.345, 22.017, 0.56)
pt3dadd(9.889, 148.37, 22.008, 0.562)
}
}
proc shape3d_83() {
apic[16] { pt3dadd(9.772, 148.396, 22, 0.562)
pt3dadd(9.655, 148.421, 21.991, 0.564)
pt3dadd(9.538, 148.446, 21.982, 0.564)
pt3dadd(9.421, 148.471, 21.974, 0.566)
pt3dadd(9.305, 148.496, 21.965, 0.568)
pt3dadd(9.188, 148.522, 21.956, 0.568)
pt3dadd(9.071, 148.547, 21.948, 0.57)
pt3dadd(8.954, 148.573, 21.939, 0.568)
pt3dadd(8.844, 148.619, 21.928, 0.536)
pt3dadd(8.734, 148.664, 21.916, 0.504)
pt3dadd(8.624, 148.71, 21.905, 0.47)
pt3dadd(8.514, 148.757, 21.894, 0.438)
pt3dadd(8.404, 148.802, 21.882, 0.404)
pt3dadd(8.294, 148.848, 21.871, 0.372)
pt3dadd(8.184, 148.894, 21.86, 0.338)
pt3dadd(8.074, 148.939, 21.849, 0.306)
pt3dadd(7.964, 148.986, 21.837, 0.274)
pt3dadd(7.854, 149.03, 21.824, 0.248)
pt3dadd(7.746, 149.062, 21.789, 0.306)
pt3dadd(7.638, 149.092, 21.753, 0.366)
pt3dadd(7.531, 149.123, 21.717, 0.424)
pt3dadd(7.423, 149.154, 21.681, 0.484)
pt3dadd(7.315, 149.185, 21.645, 0.542)
pt3dadd(7.208, 149.215, 21.61, 0.602)
pt3dadd(7.1, 149.246, 21.574, 0.66)
pt3dadd(6.992, 149.278, 21.538, 0.72)
pt3dadd(6.885, 149.309, 21.502, 0.778)
pt3dadd(6.777, 149.339, 21.467, 0.832)
pt3dadd(6.666, 149.364, 21.435, 0.844)
pt3dadd(6.555, 149.39, 21.404, 0.856)
pt3dadd(6.443, 149.416, 21.373, 0.868)
pt3dadd(6.332, 149.441, 21.341, 0.88)
pt3dadd(6.221, 149.467, 21.31, 0.892)
pt3dadd(6.11, 149.492, 21.279, 0.904)
pt3dadd(5.999, 149.518, 21.248, 0.916)
pt3dadd(5.888, 149.544, 21.216, 0.928)
pt3dadd(5.777, 149.569, 21.185, 0.94)
pt3dadd(5.666, 149.594, 21.154, 0.946)
pt3dadd(5.551, 149.615, 21.13, 0.912)
pt3dadd(5.437, 149.635, 21.105, 0.878)
pt3dadd(5.322, 149.656, 21.081, 0.844)
pt3dadd(5.208, 149.676, 21.056, 0.81)
pt3dadd(5.093, 149.696, 21.032, 0.774)
pt3dadd(4.978, 149.717, 21.007, 0.74)
pt3dadd(4.864, 149.737, 20.983, 0.706)
pt3dadd(4.749, 149.758, 20.958, 0.672)
pt3dadd(4.635, 149.778, 20.934, 0.638)
pt3dadd(4.52, 149.798, 20.91, 0.604)
pt3dadd(4.403, 149.814, 20.893, 0.57)
pt3dadd(4.286, 149.83, 20.875, 0.534)
pt3dadd(4.169, 149.845, 20.857, 0.5)
pt3dadd(4.052, 149.861, 20.84, 0.466)
pt3dadd(3.935, 149.878, 20.822, 0.43)
pt3dadd(3.818, 149.893, 20.804, 0.396)
pt3dadd(3.701, 149.909, 20.787, 0.36)
pt3dadd(3.584, 149.924, 20.769, 0.326)
pt3dadd(3.467, 149.94, 20.751, 0.29)
pt3dadd(3.35, 149.96, 20.734, 0.266)
pt3dadd(3.24, 150.005, 20.723, 0.306)
pt3dadd(3.13, 150.05, 20.712, 0.346)
pt3dadd(3.019, 150.095, 20.7, 0.388)
pt3dadd(2.909, 150.14, 20.689, 0.428)
pt3dadd(2.799, 150.185, 20.677, 0.468)
pt3dadd(2.688, 150.23, 20.666, 0.51)
pt3dadd(2.578, 150.275, 20.655, 0.55)
pt3dadd(2.467, 150.32, 20.643, 0.59)
pt3dadd(2.357, 150.366, 20.632, 0.632)
pt3dadd(2.247, 150.41, 20.619, 0.67)
pt3dadd(2.138, 150.452, 20.595, 0.694)
pt3dadd(2.029, 150.494, 20.572, 0.718)
pt3dadd(1.921, 150.536, 20.548, 0.742)
pt3dadd(1.812, 150.58, 20.525, 0.766)
pt3dadd(1.703, 150.622, 20.501, 0.79)
pt3dadd(1.595, 150.664, 20.478, 0.814)
pt3dadd(1.486, 150.706, 20.454, 0.838)
pt3dadd(1.377, 150.748, 20.431, 0.862)
pt3dadd(1.269, 150.791, 20.407, 0.886)
pt3dadd(1.16, 150.832, 20.381, 0.904)
pt3dadd(1.053, 150.866, 20.346, 0.906)
pt3dadd(0.947, 150.902, 20.312, 0.908)
pt3dadd(0.84, 150.938, 20.277, 0.908)
pt3dadd(0.733, 150.974, 20.243, 0.91)
pt3dadd(0.626, 151.01, 20.208, 0.912)
pt3dadd(0.519, 151.045, 20.174, 0.912)
pt3dadd(0.413, 151.081, 20.139, 0.914)
pt3dadd(0.306, 151.117, 20.105, 0.916)
pt3dadd(0.199, 151.153, 20.07, 0.916)
pt3dadd(0.091, 151.188, 20.039, 0.922)
pt3dadd(-0.022, 151.219, 20.016, 0.938)
pt3dadd(-0.134, 151.249, 19.993, 0.956)
pt3dadd(-0.247, 151.28, 19.97, 0.972)
pt3dadd(-0.36, 151.312, 19.946, 0.99)
pt3dadd(-0.472, 151.343, 19.923, 1.006)
pt3dadd(-0.585, 151.374, 19.9, 1.022)
pt3dadd(-0.697, 151.404, 19.877, 1.04)
pt3dadd(-0.81, 151.435, 19.854, 1.056)
pt3dadd(-0.922, 151.466, 19.83, 1.072)
pt3dadd(-1.034, 151.502, 19.81, 1.086)
pt3dadd(-1.142, 151.55, 19.796, 1.09)
pt3dadd(-1.251, 151.598, 19.783, 1.096)
pt3dadd(-1.36, 151.646, 19.769, 1.1)
pt3dadd(-1.468, 151.696, 19.756, 1.104)
pt3dadd(-1.577, 151.744, 19.743, 1.108)
pt3dadd(-1.686, 151.792, 19.729, 1.114)
pt3dadd(-1.794, 151.841, 19.715, 1.118)
pt3dadd(-1.903, 151.889, 19.702, 1.122)
pt3dadd(-2.011, 151.937, 19.688, 1.126)
pt3dadd(-2.12, 151.987, 19.677, 1.128)
pt3dadd(-2.227, 152.04, 19.67, 1.124)
pt3dadd(-2.334, 152.093, 19.663, 1.118)
pt3dadd(-2.442, 152.146, 19.656, 1.114)
pt3dadd(-2.549, 152.2, 19.65, 1.108)
pt3dadd(-2.656, 152.252, 19.643, 1.104)
pt3dadd(-2.764, 152.305, 19.636, 1.098)
pt3dadd(-2.871, 152.358, 19.629, 1.094)
pt3dadd(-2.978, 152.411, 19.622, 1.088)
pt3dadd(-3.086, 152.464, 19.615, 1.084)
pt3dadd(-3.194, 152.516, 19.611, 1.074)
pt3dadd(-3.303, 152.567, 19.611, 1.058)
pt3dadd(-3.412, 152.616, 19.611, 1.042)
pt3dadd(-3.521, 152.666, 19.611, 1.026)
pt3dadd(-3.63, 152.717, 19.611, 1.01)
pt3dadd(-3.739, 152.766, 19.611, 0.994)
pt3dadd(-3.848, 152.816, 19.611, 0.978)
pt3dadd(-3.957, 152.867, 19.611, 0.962)
pt3dadd(-4.066, 152.916, 19.611, 0.946)
pt3dadd(-4.175, 152.966, 19.61, 0.928)
pt3dadd(-4.281, 153.022, 19.61, 0.914)
pt3dadd(-4.382, 153.088, 19.61, 0.898)
pt3dadd(-4.482, 153.154, 19.61, 0.884)
pt3dadd(-4.582, 153.22, 19.61, 0.868)
pt3dadd(-4.682, 153.286, 19.61, 0.854)
pt3dadd(-4.783, 153.352, 19.61, 0.838)
pt3dadd(-4.883, 153.418, 19.61, 0.824)
pt3dadd(-4.983, 153.484, 19.61, 0.808)
pt3dadd(-5.083, 153.55, 19.61, 0.794)
pt3dadd(-5.184, 153.616, 19.61, 0.778)
pt3dadd(-5.283, 153.683, 19.61, 0.764)
pt3dadd(-5.381, 153.752, 19.61, 0.75)
pt3dadd(-5.478, 153.822, 19.61, 0.734)
pt3dadd(-5.576, 153.892, 19.61, 0.72)
pt3dadd(-5.674, 153.961, 19.61, 0.706)
pt3dadd(-5.772, 154.031, 19.61, 0.692)
pt3dadd(-5.87, 154.1, 19.61, 0.676)
pt3dadd(-5.967, 154.17, 19.609, 0.662)
pt3dadd(-6.065, 154.24, 19.609, 0.648)
pt3dadd(-6.163, 154.309, 19.609, 0.634)
pt3dadd(-6.26, 154.38, 19.609, 0.618)
pt3dadd(-6.355, 154.453, 19.609, 0.604)
pt3dadd(-6.45, 154.525, 19.609, 0.59)
pt3dadd(-6.546, 154.598, 19.609, 0.576)
pt3dadd(-6.641, 154.672, 19.609, 0.562)
pt3dadd(-6.736, 154.744, 19.609, 0.548)
pt3dadd(-6.832, 154.817, 19.609, 0.534)
pt3dadd(-6.927, 154.89, 19.608, 0.52)
pt3dadd(-7.022, 154.963, 19.608, 0.506)
pt3dadd(-7.118, 155.035, 19.608, 0.49)
pt3dadd(-7.215, 155.105, 19.608, 0.49)
pt3dadd(-7.317, 155.168, 19.608, 0.51)
pt3dadd(-7.42, 155.231, 19.608, 0.532)
pt3dadd(-7.522, 155.294, 19.607, 0.554)
pt3dadd(-7.624, 155.358, 19.607, 0.574)
pt3dadd(-7.726, 155.42, 19.607, 0.596)
pt3dadd(-7.828, 155.484, 19.607, 0.618)
pt3dadd(-7.93, 155.546, 19.606, 0.64)
pt3dadd(-8.032, 155.61, 19.606, 0.662)
pt3dadd(-8.134, 155.672, 19.606, 0.682)
pt3dadd(-8.236, 155.736, 19.606, 0.702)
pt3dadd(-8.338, 155.8, 19.605, 0.718)
pt3dadd(-8.44, 155.863, 19.605, 0.734)
pt3dadd(-8.541, 155.927, 19.605, 0.75)
pt3dadd(-8.643, 155.99, 19.604, 0.766)
pt3dadd(-8.745, 156.054, 19.604, 0.782)
pt3dadd(-8.847, 156.118, 19.604, 0.798)
pt3dadd(-8.948, 156.181, 19.603, 0.814)
pt3dadd(-9.05, 156.245, 19.603, 0.83)
pt3dadd(-9.152, 156.308, 19.603, 0.846)
pt3dadd(-9.252, 156.374, 19.602, 0.852)
pt3dadd(-9.349, 156.445, 19.602, 0.836)
pt3dadd(-9.447, 156.515, 19.601, 0.822)
pt3dadd(-9.544, 156.584, 19.601, 0.808)
pt3dadd(-9.642, 156.655, 19.6, 0.794)
pt3dadd(-9.739, 156.725, 19.6, 0.778)
pt3dadd(-9.837, 156.794, 19.599, 0.764)
pt3dadd(-9.934, 156.865, 19.599, 0.75)
pt3dadd(-10.032, 156.935, 19.598, 0.736)
pt3dadd(-10.129, 157.004, 19.598, 0.72)
pt3dadd(-10.226, 157.076, 19.597, 0.714)
pt3dadd(-10.32, 157.15, 19.596, 0.722)
pt3dadd(-10.415, 157.224, 19.595, 0.728)
pt3dadd(-10.509, 157.298, 19.594, 0.736)
pt3dadd(-10.603, 157.372, 19.593, 0.744)
pt3dadd(-10.698, 157.446, 19.592, 0.75)
pt3dadd(-10.792, 157.52, 19.591, 0.758)
pt3dadd(-10.887, 157.595, 19.59, 0.766)
pt3dadd(-10.981, 157.668, 19.589, 0.774)
pt3dadd(-11.076, 157.742, 19.588, 0.78)
pt3dadd(-11.169, 157.817, 19.587, 0.788)
pt3dadd(-11.263, 157.892, 19.586, 0.794)
pt3dadd(-11.356, 157.968, 19.585, 0.8)
}
}
proc shape3d_84() {
apic[16] { pt3dadd(-11.449, 158.044, 19.583, 0.806)
pt3dadd(-11.542, 158.119, 19.582, 0.812)
pt3dadd(-11.635, 158.195, 19.581, 0.816)
pt3dadd(-11.728, 158.27, 19.58, 0.824)
pt3dadd(-11.822, 158.346, 19.578, 0.828)
pt3dadd(-11.915, 158.422, 19.577, 0.834)
pt3dadd(-12.008, 158.497, 19.576, 0.84)
pt3dadd(-12.1, 158.574, 19.574, 0.83)
pt3dadd(-12.192, 158.652, 19.572, 0.788)
pt3dadd(-12.283, 158.73, 19.57, 0.748)
pt3dadd(-12.374, 158.808, 19.568, 0.708)
pt3dadd(-12.465, 158.886, 19.565, 0.666)
pt3dadd(-12.557, 158.964, 19.563, 0.626)
pt3dadd(-12.648, 159.042, 19.561, 0.584)
pt3dadd(-12.739, 159.119, 19.559, 0.544)
pt3dadd(-12.83, 159.197, 19.557, 0.504)
pt3dadd(-12.922, 159.275, 19.555, 0.462)
pt3dadd(-13.016, 159.349, 19.552, 0.438)
pt3dadd(-13.114, 159.418, 19.548, 0.44)
pt3dadd(-13.213, 159.485, 19.543, 0.44)
pt3dadd(-13.312, 159.553, 19.539, 0.442)
pt3dadd(-13.411, 159.62, 19.535, 0.444)
pt3dadd(-13.51, 159.689, 19.531, 0.446)
pt3dadd(-13.609, 159.756, 19.527, 0.448)
pt3dadd(-13.708, 159.824, 19.523, 0.45)
pt3dadd(-13.806, 159.892, 19.518, 0.45)
pt3dadd(-13.905, 159.96, 19.514, 0.452)
pt3dadd(-14.007, 160.022, 19.509, 0.472)
pt3dadd(-14.113, 160.079, 19.503, 0.516)
pt3dadd(-14.218, 160.135, 19.496, 0.558)
pt3dadd(-14.324, 160.192, 19.49, 0.6)
pt3dadd(-14.43, 160.248, 19.484, 0.644)
pt3dadd(-14.535, 160.304, 19.477, 0.686)
pt3dadd(-14.641, 160.361, 19.471, 0.73)
pt3dadd(-14.746, 160.418, 19.464, 0.772)
pt3dadd(-14.852, 160.475, 19.458, 0.816)
pt3dadd(-14.958, 160.531, 19.452, 0.858)
pt3dadd(-15.061, 160.59, 19.444, 0.862)
pt3dadd(-15.162, 160.655, 19.434, 0.818)
pt3dadd(-15.263, 160.718, 19.424, 0.772)
pt3dadd(-15.363, 160.783, 19.414, 0.728)
pt3dadd(-15.464, 160.847, 19.404, 0.682)
pt3dadd(-15.565, 160.912, 19.395, 0.638)
pt3dadd(-15.666, 160.975, 19.385, 0.594)
pt3dadd(-15.766, 161.04, 19.375, 0.548)
pt3dadd(-15.867, 161.104, 19.365, 0.504)
pt3dadd(-15.968, 161.168, 19.355, 0.458)
pt3dadd(-16.069, 161.23, 19.34, 0.434)
pt3dadd(-16.171, 161.286, 19.317, 0.438)
pt3dadd(-16.273, 161.342, 19.294, 0.442)
pt3dadd(-16.375, 161.399, 19.271, 0.446)
pt3dadd(-16.477, 161.455, 19.247, 0.45)
pt3dadd(-16.579, 161.513, 19.224, 0.454)
pt3dadd(-16.681, 161.569, 19.201, 0.458)
pt3dadd(-16.783, 161.626, 19.178, 0.462)
pt3dadd(-16.885, 161.682, 19.155, 0.466)
pt3dadd(-16.988, 161.74, 19.132, 0.47)
pt3dadd(-17.089, 161.792, 19.103, 0.494)
pt3dadd(-17.19, 161.843, 19.07, 0.538)
pt3dadd(-17.292, 161.894, 19.037, 0.582)
pt3dadd(-17.393, 161.945, 19.003, 0.624)
pt3dadd(-17.494, 161.995, 18.97, 0.668)
pt3dadd(-17.595, 162.046, 18.937, 0.71)
pt3dadd(-17.696, 162.096, 18.903, 0.754)
pt3dadd(-17.798, 162.146, 18.87, 0.798)
pt3dadd(-17.899, 162.197, 18.837, 0.84)
pt3dadd(-18, 162.248, 18.804, 0.884)
pt3dadd(-18.097, 162.31, 18.778, 0.904)
pt3dadd(-18.191, 162.38, 18.758, 0.904)
pt3dadd(-18.285, 162.451, 18.739, 0.904)
pt3dadd(-18.379, 162.522, 18.719, 0.904)
pt3dadd(-18.473, 162.593, 18.699, 0.904)
pt3dadd(-18.567, 162.664, 18.68, 0.904)
pt3dadd(-18.661, 162.734, 18.66, 0.904)
pt3dadd(-18.755, 162.805, 18.641, 0.904)
pt3dadd(-18.849, 162.876, 18.622, 0.904)
pt3dadd(-18.943, 162.947, 18.602, 0.904)
pt3dadd(-19.036, 163.02, 18.585, 0.898)
pt3dadd(-19.128, 163.094, 18.57, 0.886)
pt3dadd(-19.221, 163.169, 18.556, 0.874)
pt3dadd(-19.313, 163.244, 18.541, 0.862)
pt3dadd(-19.405, 163.319, 18.526, 0.85)
pt3dadd(-19.497, 163.393, 18.511, 0.84)
pt3dadd(-19.589, 163.469, 18.496, 0.828)
pt3dadd(-19.681, 163.543, 18.482, 0.816)
pt3dadd(-19.773, 163.618, 18.467, 0.804)
pt3dadd(-19.866, 163.693, 18.452, 0.792)
pt3dadd(-19.956, 163.77, 18.441, 0.772)
pt3dadd(-20.045, 163.85, 18.432, 0.746)
pt3dadd(-20.135, 163.93, 18.424, 0.718)
pt3dadd(-20.224, 164.009, 18.415, 0.692)
pt3dadd(-20.313, 164.088, 18.406, 0.666)
pt3dadd(-20.402, 164.168, 18.398, 0.638)
pt3dadd(-20.492, 164.248, 18.389, 0.612)
pt3dadd(-20.581, 164.327, 18.381, 0.586)
pt3dadd(-20.67, 164.407, 18.372, 0.558)
pt3dadd(-20.759, 164.486, 18.364, 0.532)
pt3dadd(-20.847, 164.568, 18.359, 0.522)
pt3dadd(-20.933, 164.652, 18.356, 0.524)
pt3dadd(-21.019, 164.736, 18.353, 0.528)
pt3dadd(-21.105, 164.819, 18.351, 0.53)
pt3dadd(-21.19, 164.903, 18.348, 0.532)
pt3dadd(-21.276, 164.987, 18.346, 0.536)
pt3dadd(-21.362, 165.071, 18.343, 0.538)
pt3dadd(-21.448, 165.155, 18.341, 0.54)
pt3dadd(-21.534, 165.238, 18.338, 0.544)
pt3dadd(-21.62, 165.322, 18.336, 0.546)
pt3dadd(-21.705, 165.407, 18.334, 0.554)
pt3dadd(-21.79, 165.491, 18.334, 0.568)
pt3dadd(-21.874, 165.576, 18.333, 0.58)
pt3dadd(-21.959, 165.661, 18.333, 0.594)
pt3dadd(-22.044, 165.746, 18.332, 0.606)
pt3dadd(-22.128, 165.832, 18.332, 0.618)
pt3dadd(-22.213, 165.917, 18.331, 0.632)
pt3dadd(-22.297, 166.002, 18.331, 0.644)
pt3dadd(-22.382, 166.087, 18.33, 0.656)
pt3dadd(-22.467, 166.172, 18.33, 0.67)
pt3dadd(-22.551, 166.258, 18.329, 0.676)
pt3dadd(-22.636, 166.343, 18.328, 0.676)
pt3dadd(-22.72, 166.428, 18.327, 0.676)
pt3dadd(-22.804, 166.513, 18.326, 0.676)
pt3dadd(-22.889, 166.598, 18.324, 0.676)
pt3dadd(-22.973, 166.684, 18.323, 0.676)
pt3dadd(-23.058, 166.769, 18.322, 0.678)
pt3dadd(-23.142, 166.854, 18.321, 0.678)
pt3dadd(-23.226, 166.939, 18.32, 0.678)
pt3dadd(-23.311, 167.024, 18.319, 0.678)
pt3dadd(-23.395, 167.111, 18.318, 0.676)
pt3dadd(-23.479, 167.196, 18.316, 0.674)
pt3dadd(-23.563, 167.281, 18.315, 0.67)
pt3dadd(-23.648, 167.366, 18.313, 0.666)
pt3dadd(-23.732, 167.453, 18.312, 0.664)
pt3dadd(-23.816, 167.538, 18.31, 0.66)
pt3dadd(-23.9, 167.623, 18.309, 0.658)
pt3dadd(-23.984, 167.708, 18.308, 0.654)
pt3dadd(-24.069, 167.794, 18.306, 0.652)
pt3dadd(-24.153, 167.88, 18.305, 0.648)
pt3dadd(-24.237, 167.965, 18.303, 0.64)
pt3dadd(-24.32, 168.052, 18.301, 0.626)
pt3dadd(-24.403, 168.138, 18.298, 0.612)
pt3dadd(-24.487, 168.224, 18.296, 0.6)
pt3dadd(-24.57, 168.311, 18.293, 0.586)
pt3dadd(-24.653, 168.397, 18.291, 0.572)
pt3dadd(-24.737, 168.484, 18.289, 0.56)
pt3dadd(-24.82, 168.57, 18.286, 0.546)
pt3dadd(-24.903, 168.655, 18.284, 0.532)
pt3dadd(-24.987, 168.742, 18.282, 0.52)
pt3dadd(-25.07, 168.828, 18.278, 0.514)
pt3dadd(-25.154, 168.914, 18.274, 0.516)
pt3dadd(-25.237, 169.001, 18.27, 0.518)
pt3dadd(-25.321, 169.086, 18.265, 0.518)
pt3dadd(-25.404, 169.172, 18.261, 0.52)
pt3dadd(-25.488, 169.259, 18.257, 0.522)
pt3dadd(-25.571, 169.344, 18.252, 0.522)
pt3dadd(-25.655, 169.43, 18.248, 0.524)
pt3dadd(-25.738, 169.517, 18.243, 0.526)
pt3dadd(-25.821, 169.603, 18.239, 0.526)
pt3dadd(-25.905, 169.688, 18.234, 0.536)
pt3dadd(-25.988, 169.775, 18.228, 0.55)
pt3dadd(-26.072, 169.86, 18.222, 0.564)
pt3dadd(-26.155, 169.946, 18.216, 0.578)
pt3dadd(-26.239, 170.032, 18.21, 0.592)
pt3dadd(-26.322, 170.118, 18.204, 0.606)
pt3dadd(-26.406, 170.204, 18.198, 0.62)
pt3dadd(-26.489, 170.29, 18.191, 0.634)
pt3dadd(-26.573, 170.376, 18.185, 0.648)
pt3dadd(-26.656, 170.461, 18.179, 0.662)
pt3dadd(-26.732, 170.554, 18.17, 0.678)
pt3dadd(-26.803, 170.65, 18.158, 0.694)
pt3dadd(-26.873, 170.746, 18.146, 0.712)
pt3dadd(-26.943, 170.842, 18.133, 0.73)
pt3dadd(-27.014, 170.938, 18.121, 0.746)
pt3dadd(-27.084, 171.034, 18.109, 0.762)
pt3dadd(-27.154, 171.131, 18.097, 0.78)
pt3dadd(-27.224, 171.227, 18.085, 0.798)
pt3dadd(-27.295, 171.323, 18.073, 0.814)
pt3dadd(-27.365, 171.419, 18.061, 0.832)
pt3dadd(-27.444, 171.503, 18.037, 0.848)
pt3dadd(-27.528, 171.58, 18.005, 0.866)
pt3dadd(-27.613, 171.655, 17.972, 0.884)
pt3dadd(-27.697, 171.731, 17.94, 0.902)
pt3dadd(-27.781, 171.808, 17.908, 0.92)
pt3dadd(-27.866, 171.883, 17.876, 0.94)
pt3dadd(-27.95, 171.959, 17.844, 0.958)
pt3dadd(-28.035, 172.036, 17.812, 0.976)
pt3dadd(-28.119, 172.111, 17.78, 0.994)
pt3dadd(-28.204, 172.187, 17.748, 1.012)
pt3dadd(-28.296, 172.25, 17.71, 1.024)
pt3dadd(-28.389, 172.31, 17.672, 1.036)
pt3dadd(-28.482, 172.37, 17.634, 1.048)
pt3dadd(-28.575, 172.432, 17.596, 1.058)
pt3dadd(-28.668, 172.492, 17.558, 1.07)
pt3dadd(-28.761, 172.552, 17.52, 1.082)
pt3dadd(-28.854, 172.613, 17.482, 1.094)
pt3dadd(-28.947, 172.673, 17.443, 1.106)
pt3dadd(-29.04, 172.733, 17.405, 1.116)
pt3dadd(-29.133, 172.794, 17.367, 1.128)
pt3dadd(-29.23, 172.854, 17.337, 1.13)
pt3dadd(-29.327, 172.915, 17.308, 1.13)
pt3dadd(-29.424, 172.976, 17.279, 1.13)
}
}
proc shape3d_85() {
apic[16] { pt3dadd(-29.521, 173.038, 17.25, 1.13)
pt3dadd(-29.619, 173.099, 17.221, 1.13)
pt3dadd(-29.716, 173.16, 17.192, 1.13)
pt3dadd(-29.813, 173.221, 17.163, 1.13)
pt3dadd(-29.91, 173.282, 17.134, 1.13)
pt3dadd(-30.008, 173.344, 17.105, 1.13)
pt3dadd(-30.105, 173.405, 17.076, 1.13)
pt3dadd(-30.213, 173.447, 17.054, 1.102)
pt3dadd(-30.324, 173.488, 17.032, 1.07)
pt3dadd(-30.434, 173.527, 17.011, 1.038)
pt3dadd(-30.544, 173.568, 16.989, 1.008)
pt3dadd(-30.654, 173.608, 16.968, 0.976)
pt3dadd(-30.764, 173.647, 16.947, 0.944)
pt3dadd(-30.874, 173.688, 16.925, 0.912)
pt3dadd(-30.984, 173.728, 16.904, 0.88)
pt3dadd(-31.095, 173.768, 16.882, 0.848)
pt3dadd(-31.205, 173.808, 16.861, 0.816)
pt3dadd(-31.314, 173.845, 16.832, 0.802)
pt3dadd(-31.422, 173.881, 16.802, 0.788)
pt3dadd(-31.531, 173.917, 16.772, 0.774)
pt3dadd(-31.639, 173.954, 16.743, 0.76)
pt3dadd(-31.748, 173.99, 16.713, 0.746)
pt3dadd(-31.857, 174.026, 16.683, 0.734)
pt3dadd(-31.965, 174.064, 16.653, 0.72)
pt3dadd(-32.074, 174.1, 16.623, 0.706)
pt3dadd(-32.182, 174.136, 16.593, 0.692)
pt3dadd(-32.291, 174.172, 16.563, 0.68)
pt3dadd(-32.397, 174.21, 16.53, 0.674)
pt3dadd(-32.504, 174.248, 16.496, 0.668)
pt3dadd(-32.61, 174.287, 16.462, 0.664)
pt3dadd(-32.717, 174.324, 16.429, 0.658)
pt3dadd(-32.823, 174.362, 16.395, 0.652)
pt3dadd(-32.929, 174.401, 16.361, 0.648)
pt3dadd(-33.036, 174.438, 16.328, 0.642)
pt3dadd(-33.142, 174.476, 16.294, 0.638)
pt3dadd(-33.249, 174.515, 16.261, 0.632)
pt3dadd(-33.355, 174.553, 16.227, 0.628)
pt3dadd(-33.457, 174.61, 16.205, 0.598)
pt3dadd(-33.56, 174.667, 16.183, 0.568)
pt3dadd(-33.662, 174.724, 16.162, 0.538)
pt3dadd(-33.764, 174.781, 16.14, 0.506)
pt3dadd(-33.866, 174.839, 16.119, 0.476)
pt3dadd(-33.968, 174.896, 16.097, 0.446)
pt3dadd(-34.07, 174.954, 16.076, 0.416)
pt3dadd(-34.173, 175.01, 16.054, 0.386)
pt3dadd(-34.275, 175.068, 16.032, 0.354)
pt3dadd(-34.377, 175.126, 16.011, 0.324)
pt3dadd(-34.475, 175.193, 15.997, 0.332)
pt3dadd(-34.573, 175.26, 15.983, 0.342)
pt3dadd(-34.671, 175.327, 15.969, 0.352)
pt3dadd(-34.769, 175.394, 15.956, 0.362)
pt3dadd(-34.867, 175.462, 15.942, 0.372)
pt3dadd(-34.965, 175.53, 15.928, 0.38)
pt3dadd(-35.063, 175.597, 15.915, 0.39)
pt3dadd(-35.16, 175.664, 15.901, 0.4)
pt3dadd(-35.258, 175.732, 15.887, 0.41)
pt3dadd(-35.356, 175.799, 15.873, 0.42)
pt3dadd(-35.453, 175.87, 15.864, 0.444)
pt3dadd(-35.549, 175.94, 15.855, 0.47)
pt3dadd(-35.646, 176.01, 15.845, 0.496)
pt3dadd(-35.742, 176.081, 15.836, 0.522)
pt3dadd(-35.838, 176.152, 15.827, 0.548)
pt3dadd(-35.935, 176.222, 15.818, 0.574)
pt3dadd(-36.031, 176.293, 15.808, 0.6)
pt3dadd(-36.128, 176.363, 15.799, 0.626)
pt3dadd(-36.224, 176.434, 15.79, 0.652)
pt3dadd(-36.321, 176.504, 15.78, 0.678)
pt3dadd(-36.426, 176.562, 15.778, 0.678)
pt3dadd(-36.531, 176.621, 15.775, 0.678)
pt3dadd(-36.636, 176.678, 15.773, 0.678)
pt3dadd(-36.741, 176.736, 15.77, 0.678)
pt3dadd(-36.846, 176.795, 15.768, 0.678)
pt3dadd(-36.951, 176.852, 15.765, 0.678)
pt3dadd(-37.056, 176.911, 15.763, 0.678)
pt3dadd(-37.161, 176.969, 15.76, 0.678)
pt3dadd(-37.265, 177.026, 15.758, 0.678)
pt3dadd(-37.37, 177.085, 15.755, 0.678)
pt3dadd(-37.473, 177.148, 15.751, 0.658)
pt3dadd(-37.575, 177.21, 15.746, 0.64)
pt3dadd(-37.677, 177.272, 15.741, 0.62)
pt3dadd(-37.779, 177.335, 15.737, 0.6)
pt3dadd(-37.882, 177.398, 15.732, 0.582)
pt3dadd(-37.984, 177.461, 15.727, 0.562)
pt3dadd(-38.086, 177.523, 15.723, 0.544)
pt3dadd(-38.188, 177.586, 15.718, 0.524)
pt3dadd(-38.291, 177.648, 15.713, 0.504)
pt3dadd(-38.393, 177.71, 15.708, 0.484)
pt3dadd(-38.493, 177.776, 15.702, 0.46)
pt3dadd(-38.593, 177.842, 15.696, 0.434)
pt3dadd(-38.694, 177.907, 15.689, 0.408)
pt3dadd(-38.794, 177.973, 15.683, 0.382)
pt3dadd(-38.894, 178.038, 15.676, 0.356)
pt3dadd(-38.994, 178.104, 15.67, 0.33)
pt3dadd(-39.095, 178.169, 15.664, 0.304)
pt3dadd(-39.195, 178.235, 15.657, 0.278)
pt3dadd(-39.295, 178.301, 15.651, 0.252)
pt3dadd(-39.395, 178.366, 15.645, 0.226)
pt3dadd(-39.494, 178.434, 15.635, 0.226)
pt3dadd(-39.592, 178.501, 15.625, 0.226)
pt3dadd(-39.691, 178.568, 15.616, 0.226)
pt3dadd(-39.789, 178.636, 15.606, 0.226)
pt3dadd(-39.888, 178.704, 15.597, 0.226)
pt3dadd(-39.986, 178.771, 15.587, 0.226)
pt3dadd(-40.085, 178.838, 15.577, 0.226)
pt3dadd(-40.183, 178.907, 15.568, 0.226)
pt3dadd(-40.282, 178.974, 15.558, 0.226)
pt3dadd(-40.38, 179.041, 15.549, 0.226)
pt3dadd(-40.482, 179.098, 15.524, 0.244)
pt3dadd(-40.585, 179.153, 15.5, 0.262)
pt3dadd(-40.687, 179.208, 15.475, 0.282)
pt3dadd(-40.789, 179.264, 15.451, 0.3)
pt3dadd(-40.891, 179.32, 15.426, 0.318)
pt3dadd(-40.994, 179.375, 15.402, 0.336)
pt3dadd(-41.096, 179.43, 15.377, 0.354)
pt3dadd(-41.198, 179.486, 15.353, 0.372)
pt3dadd(-41.3, 179.542, 15.328, 0.39)
pt3dadd(-41.403, 179.596, 15.303, 0.41)
pt3dadd(-41.507, 179.641, 15.27, 0.438)
pt3dadd(-41.611, 179.686, 15.237, 0.464)
pt3dadd(-41.715, 179.73, 15.204, 0.492)
pt3dadd(-41.819, 179.774, 15.17, 0.518)
pt3dadd(-41.923, 179.819, 15.137, 0.546)
pt3dadd(-42.027, 179.863, 15.104, 0.574)
pt3dadd(-42.131, 179.909, 15.071, 0.6)
pt3dadd(-42.235, 179.953, 15.038, 0.628)
pt3dadd(-42.339, 179.998, 15.005, 0.654)
pt3dadd(-42.445, 180.041, 14.973, 0.678)
pt3dadd(-42.557, 180.071, 14.95, 0.678)
pt3dadd(-42.67, 180.102, 14.927, 0.678)
pt3dadd(-42.782, 180.133, 14.904, 0.678)
pt3dadd(-42.895, 180.163, 14.881, 0.678)
pt3dadd(-43.008, 180.194, 14.858, 0.678)
pt3dadd(-43.12, 180.226, 14.834, 0.678)
pt3dadd(-43.233, 180.256, 14.811, 0.678)
pt3dadd(-43.345, 180.287, 14.788, 0.678)
pt3dadd(-43.458, 180.318, 14.765, 0.678)
pt3dadd(-43.57, 180.352, 14.743, 0.678)
pt3dadd(-43.678, 180.4, 14.73, 0.678)
pt3dadd(-43.787, 180.449, 14.717, 0.678)
pt3dadd(-43.895, 180.498, 14.704, 0.678)
pt3dadd(-44.004, 180.546, 14.691, 0.678)
pt3dadd(-44.112, 180.595, 14.678, 0.678)
pt3dadd(-44.221, 180.644, 14.665, 0.678)
pt3dadd(-44.329, 180.694, 14.652, 0.678)
pt3dadd(-44.438, 180.742, 14.639, 0.678)
pt3dadd(-44.546, 180.791, 14.626, 0.678)
pt3dadd(-44.655, 180.84, 14.614, 0.676)
pt3dadd(-44.762, 180.893, 14.608, 0.664)
pt3dadd(-44.87, 180.946, 14.601, 0.654)
pt3dadd(-44.977, 180.998, 14.595, 0.642)
pt3dadd(-45.085, 181.051, 14.588, 0.632)
pt3dadd(-45.192, 181.104, 14.582, 0.62)
pt3dadd(-45.3, 181.156, 14.575, 0.61)
pt3dadd(-45.408, 181.208, 14.568, 0.598)
pt3dadd(-45.515, 181.261, 14.562, 0.586)
pt3dadd(-45.623, 181.314, 14.555, 0.576)
pt3dadd(-45.731, 181.366, 14.55, 0.56)
pt3dadd(-45.84, 181.415, 14.55, 0.528)
pt3dadd(-45.949, 181.464, 14.55, 0.496)
pt3dadd(-46.059, 181.514, 14.55, 0.462)
pt3dadd(-46.168, 181.564, 14.55, 0.43)
pt3dadd(-46.278, 181.613, 14.55, 0.398)
pt3dadd(-46.387, 181.662, 14.55, 0.364)
pt3dadd(-46.496, 181.711, 14.55, 0.332)
pt3dadd(-46.606, 181.76, 14.55, 0.3)
pt3dadd(-46.715, 181.81, 14.55, 0.268)
pt3dadd(-46.823, 181.862, 14.55, 0.244)
pt3dadd(-46.923, 181.928, 14.55, 0.256)
pt3dadd(-47.023, 181.994, 14.55, 0.27)
pt3dadd(-47.124, 182.06, 14.55, 0.282)
pt3dadd(-47.224, 182.125, 14.55, 0.294)
pt3dadd(-47.325, 182.191, 14.55, 0.308)
pt3dadd(-47.425, 182.257, 14.55, 0.32)
pt3dadd(-47.525, 182.323, 14.55, 0.332)
pt3dadd(-47.626, 182.389, 14.55, 0.346)
pt3dadd(-47.726, 182.455, 14.55, 0.358)
pt3dadd(-47.826, 182.521, 14.55, 0.37)
pt3dadd(-47.924, 182.59, 14.55, 0.386)
pt3dadd(-48.023, 182.658, 14.55, 0.4)
pt3dadd(-48.121, 182.726, 14.551, 0.414)
pt3dadd(-48.22, 182.795, 14.551, 0.43)
pt3dadd(-48.318, 182.863, 14.551, 0.444)
pt3dadd(-48.417, 182.933, 14.551, 0.458)
pt3dadd(-48.515, 183.001, 14.551, 0.474)
pt3dadd(-48.614, 183.07, 14.551, 0.488)
pt3dadd(-48.712, 183.138, 14.551, 0.502)
pt3dadd(-48.81, 183.206, 14.551, 0.518)
pt3dadd(-48.907, 183.278, 14.551, 0.532)
pt3dadd(-49.004, 183.349, 14.551, 0.546)
pt3dadd(-49.1, 183.421, 14.551, 0.56)
pt3dadd(-49.197, 183.492, 14.551, 0.574)
pt3dadd(-49.293, 183.563, 14.551, 0.59)
pt3dadd(-49.39, 183.635, 14.551, 0.604)
pt3dadd(-49.486, 183.706, 14.551, 0.618)
pt3dadd(-49.583, 183.778, 14.551, 0.632)
pt3dadd(-49.68, 183.848, 14.551, 0.646)
pt3dadd(-49.778, 183.917, 14.551, 0.652)
pt3dadd(-49.883, 183.974, 14.551, 0.628)
pt3dadd(-49.989, 184.031, 14.551, 0.602)
pt3dadd(-50.094, 184.088, 14.551, 0.576)
}
}
proc shape3d_86() {
apic[16] { pt3dadd(-50.2, 184.146, 14.551, 0.55)
pt3dadd(-50.305, 184.202, 14.551, 0.526)
pt3dadd(-50.411, 184.26, 14.551, 0.5)
pt3dadd(-50.516, 184.318, 14.551, 0.474)
pt3dadd(-50.622, 184.374, 14.551, 0.45)
pt3dadd(-50.727, 184.432, 14.551, 0.424)
pt3dadd(-50.833, 184.489, 14.551, 0.4)
pt3dadd(-50.938, 184.547, 14.552, 0.382)
pt3dadd(-51.043, 184.606, 14.552, 0.364)
pt3dadd(-51.147, 184.663, 14.552, 0.346)
pt3dadd(-51.252, 184.722, 14.552, 0.328)
pt3dadd(-51.357, 184.78, 14.552, 0.31)
pt3dadd(-51.462, 184.838, 14.552, 0.294)
pt3dadd(-51.567, 184.896, 14.552, 0.276)
pt3dadd(-51.672, 184.954, 14.552, 0.258)
pt3dadd(-51.777, 185.012, 14.552, 0.24)
pt3dadd(-51.882, 185.071, 14.552, 0.226)
pt3dadd(-51.984, 185.134, 14.552, 0.226)
pt3dadd(-52.087, 185.196, 14.552, 0.226)
pt3dadd(-52.189, 185.258, 14.553, 0.226)
pt3dadd(-52.292, 185.321, 14.553, 0.226)
pt3dadd(-52.394, 185.383, 14.553, 0.226)
pt3dadd(-52.497, 185.446, 14.553, 0.226)
pt3dadd(-52.599, 185.508, 14.553, 0.226)
pt3dadd(-52.702, 185.57, 14.553, 0.226)
pt3dadd(-52.804, 185.633, 14.553, 0.226)
pt3dadd(-52.909, 185.692, 14.554, 0.226)
pt3dadd(-53.019, 185.738, 14.554, 0.226)
pt3dadd(-53.13, 185.785, 14.554, 0.226)
pt3dadd(-53.24, 185.832, 14.554, 0.226)
pt3dadd(-53.351, 185.879, 14.554, 0.226)
pt3dadd(-53.461, 185.926, 14.555, 0.226)
pt3dadd(-53.572, 185.971, 14.555, 0.226)
pt3dadd(-53.682, 186.018, 14.555, 0.226)
pt3dadd(-53.793, 186.065, 14.556, 0.226)
pt3dadd(-53.904, 186.112, 14.556, 0.226)
pt3dadd(-54.013, 186.161, 14.556, 0.226)
pt3dadd(-54.118, 186.218, 14.557, 0.226)
pt3dadd(-54.224, 186.275, 14.557, 0.226)
pt3dadd(-54.33, 186.332, 14.557, 0.226)
pt3dadd(-54.435, 186.39, 14.558, 0.226)
pt3dadd(-54.541, 186.446, 14.558, 0.226)
pt3dadd(-54.646, 186.504, 14.559, 0.226)
pt3dadd(-54.752, 186.56, 14.559, 0.226)
pt3dadd(-54.857, 186.618, 14.56, 0.226)
pt3dadd(-54.963, 186.674, 14.56, 0.226)
pt3dadd(-55.068, 186.733, 14.561, 0.226)
pt3dadd(-55.17, 186.797, 14.561, 0.226)
pt3dadd(-55.272, 186.859, 14.562, 0.226)
pt3dadd(-55.374, 186.923, 14.562, 0.226)
pt3dadd(-55.476, 186.985, 14.563, 0.226)
pt3dadd(-55.578, 187.049, 14.564, 0.226)
pt3dadd(-55.68, 187.111, 14.564, 0.226)
pt3dadd(-55.782, 187.175, 14.565, 0.226)
pt3dadd(-55.884, 187.237, 14.566, 0.226)
pt3dadd(-55.987, 187.301, 14.566, 0.226)
pt3dadd(-56.09, 187.361, 14.567, 0.226)
pt3dadd(-56.199, 187.412, 14.568, 0.226)
pt3dadd(-56.307, 187.465, 14.57, 0.226)
pt3dadd(-56.415, 187.517, 14.571, 0.226)
pt3dadd(-56.523, 187.568, 14.572, 0.226)
pt3dadd(-56.631, 187.62, 14.573, 0.226)
pt3dadd(-56.739, 187.673, 14.575, 0.226)
pt3dadd(-56.847, 187.724, 14.576, 0.226)
pt3dadd(-56.956, 187.776, 14.577, 0.226)
pt3dadd(-57.064, 187.829, 14.579, 0.226)
pt3dadd(-57.17, 187.884, 14.58, 0.226)
pt3dadd(-57.27, 187.951, 14.582, 0.226)
pt3dadd(-57.369, 188.017, 14.584, 0.226)
pt3dadd(-57.469, 188.083, 14.586, 0.226)
pt3dadd(-57.569, 188.149, 14.588, 0.226)
pt3dadd(-57.669, 188.216, 14.591, 0.226)
pt3dadd(-57.769, 188.282, 14.593, 0.226)
pt3dadd(-57.869, 188.348, 14.595, 0.226)
pt3dadd(-57.969, 188.416, 14.597, 0.226)
pt3dadd(-58.069, 188.482, 14.599, 0.226)
pt3dadd(-58.168, 188.55, 14.601, 0.226)
pt3dadd(-58.263, 188.623, 14.604, 0.23)
pt3dadd(-58.358, 188.696, 14.607, 0.232)
pt3dadd(-58.453, 188.77, 14.61, 0.236)
pt3dadd(-58.548, 188.842, 14.613, 0.238)
pt3dadd(-58.643, 188.915, 14.616, 0.24)
pt3dadd(-58.739, 188.988, 14.619, 0.244)
pt3dadd(-58.834, 189.061, 14.622, 0.246)
pt3dadd(-58.929, 189.134, 14.625, 0.248)
pt3dadd(-59.024, 189.208, 14.628, 0.252)
pt3dadd(-59.118, 189.282, 14.632, 0.258)
pt3dadd(-59.208, 189.361, 14.638, 0.272)
pt3dadd(-59.298, 189.44, 14.643, 0.286)
pt3dadd(-59.388, 189.52, 14.649, 0.302)
pt3dadd(-59.478, 189.598, 14.655, 0.316)
pt3dadd(-59.568, 189.677, 14.66, 0.33)
pt3dadd(-59.658, 189.756, 14.666, 0.344)
pt3dadd(-59.748, 189.835, 14.672, 0.36)
pt3dadd(-59.838, 189.914, 14.678, 0.374)
pt3dadd(-59.928, 189.992, 14.683, 0.388)
pt3dadd(-60.018, 190.073, 14.69, 0.396)
pt3dadd(-60.104, 190.156, 14.698, 0.394)
pt3dadd(-60.191, 190.237, 14.706, 0.39)
pt3dadd(-60.278, 190.32, 14.714, 0.386)
pt3dadd(-60.365, 190.402, 14.722, 0.382)
pt3dadd(-60.452, 190.484, 14.73, 0.38)
pt3dadd(-60.539, 190.566, 14.738, 0.376)
pt3dadd(-60.626, 190.649, 14.746, 0.372)
pt3dadd(-60.713, 190.73, 14.753, 0.368)
pt3dadd(-60.799, 190.813, 14.762, 0.364)
pt3dadd(-60.886, 190.896, 14.77, 0.358)
pt3dadd(-60.971, 190.98, 14.781, 0.346)
pt3dadd(-61.055, 191.063, 14.792, 0.332)
pt3dadd(-61.14, 191.147, 14.803, 0.32)
pt3dadd(-61.225, 191.231, 14.814, 0.308)
pt3dadd(-61.31, 191.315, 14.825, 0.294)
pt3dadd(-61.395, 191.399, 14.835, 0.282)
pt3dadd(-61.479, 191.483, 14.846, 0.268)
pt3dadd(-61.564, 191.567, 14.857, 0.256)
pt3dadd(-61.649, 191.651, 14.868, 0.242)
pt3dadd(-61.731, 191.731, 14.89, 0.242)
pt3dadd(-61.809, 191.807, 14.934, 0.26)
pt3dadd(-61.887, 191.882, 14.977, 0.28)
pt3dadd(-61.964, 191.957, 15.02, 0.298)
pt3dadd(-62.042, 192.032, 15.063, 0.318)
pt3dadd(-62.119, 192.108, 15.107, 0.338)
pt3dadd(-62.197, 192.184, 15.15, 0.356)
pt3dadd(-62.275, 192.259, 15.193, 0.376)
pt3dadd(-62.352, 192.334, 15.237, 0.396)
pt3dadd(-62.43, 192.409, 15.28, 0.414)
pt3dadd(-62.51, 192.486, 15.317, 0.422)
pt3dadd(-62.594, 192.566, 15.343, 0.41)
pt3dadd(-62.677, 192.647, 15.369, 0.398)
pt3dadd(-62.761, 192.726, 15.395, 0.386)
pt3dadd(-62.845, 192.806, 15.421, 0.374)
pt3dadd(-62.929, 192.887, 15.447, 0.362)
pt3dadd(-63.013, 192.966, 15.473, 0.35)
pt3dadd(-63.097, 193.046, 15.498, 0.338)
pt3dadd(-63.181, 193.127, 15.524, 0.326)
pt3dadd(-63.265, 193.206, 15.55, 0.314)
pt3dadd(-63.35, 193.286, 15.572, 0.304)
pt3dadd(-63.437, 193.367, 15.588, 0.296)
pt3dadd(-63.524, 193.447, 15.605, 0.288)
pt3dadd(-63.611, 193.528, 15.621, 0.28)
pt3dadd(-63.698, 193.608, 15.637, 0.272)
pt3dadd(-63.785, 193.688, 15.653, 0.264)
pt3dadd(-63.872, 193.768, 15.669, 0.254)
pt3dadd(-63.959, 193.848, 15.685, 0.248)
pt3dadd(-64.046, 193.928, 15.702, 0.238)
pt3dadd(-64.133, 194.009, 15.718, 0.23)
pt3dadd(-64.221, 194.089, 15.731, 0.226)
pt3dadd(-64.31, 194.17, 15.741, 0.226)
pt3dadd(-64.399, 194.249, 15.75, 0.226)
pt3dadd(-64.487, 194.329, 15.76, 0.226)
pt3dadd(-64.576, 194.408, 15.769, 0.226)
pt3dadd(-64.665, 194.489, 15.779, 0.226)
pt3dadd(-64.754, 194.568, 15.788, 0.226)
pt3dadd(-64.843, 194.648, 15.798, 0.226)
pt3dadd(-64.931, 194.729, 15.807, 0.226)
pt3dadd(-65.02, 194.808, 15.817, 0.226)
pt3dadd(-65.11, 194.887, 15.823, 0.242)
pt3dadd(-65.202, 194.964, 15.823, 0.284)
pt3dadd(-65.294, 195.042, 15.824, 0.324)
pt3dadd(-65.385, 195.119, 15.824, 0.366)
pt3dadd(-65.477, 195.197, 15.825, 0.406)
pt3dadd(-65.569, 195.274, 15.825, 0.448)
pt3dadd(-65.66, 195.352, 15.826, 0.488)
pt3dadd(-65.752, 195.43, 15.826, 0.53)
pt3dadd(-65.844, 195.506, 15.827, 0.57)
pt3dadd(-65.935, 195.584, 15.827, 0.61)
pt3dadd(-66.029, 195.659, 15.828, 0.644)
pt3dadd(-66.127, 195.728, 15.829, 0.666)
pt3dadd(-66.225, 195.798, 15.829, 0.688)
pt3dadd(-66.322, 195.868, 15.83, 0.708)
pt3dadd(-66.42, 195.938, 15.831, 0.73)
pt3dadd(-66.517, 196.008, 15.832, 0.752)
pt3dadd(-66.615, 196.078, 15.832, 0.774)
pt3dadd(-66.712, 196.147, 15.833, 0.794)
pt3dadd(-66.81, 196.218, 15.834, 0.816)
pt3dadd(-66.907, 196.288, 15.835, 0.838)
pt3dadd(-67.009, 196.35, 15.836, 0.842)
pt3dadd(-67.116, 196.404, 15.837, 0.826)
pt3dadd(-67.223, 196.458, 15.838, 0.81)
pt3dadd(-67.331, 196.512, 15.839, 0.794)
pt3dadd(-67.438, 196.566, 15.841, 0.778)
pt3dadd(-67.545, 196.62, 15.842, 0.762)
pt3dadd(-67.652, 196.675, 15.843, 0.746)
pt3dadd(-67.759, 196.729, 15.845, 0.73)
pt3dadd(-67.866, 196.783, 15.846, 0.714)
pt3dadd(-67.973, 196.837, 15.847, 0.698)
pt3dadd(-68.079, 196.894, 15.849, 0.676)
pt3dadd(-68.182, 196.955, 15.851, 0.646)
pt3dadd(-68.286, 197.015, 15.854, 0.616)
pt3dadd(-68.39, 197.075, 15.856, 0.588)
pt3dadd(-68.493, 197.136, 15.858, 0.558)
pt3dadd(-68.597, 197.196, 15.861, 0.528)
pt3dadd(-68.701, 197.256, 15.863, 0.498)
pt3dadd(-68.804, 197.316, 15.866, 0.468)
pt3dadd(-68.908, 197.377, 15.868, 0.438)
pt3dadd(-69.012, 197.437, 15.87, 0.408)
pt3dadd(-69.117, 197.494, 15.874, 0.392)
pt3dadd(-69.225, 197.546, 15.878, 0.39)
pt3dadd(-69.333, 197.599, 15.882, 0.39)
pt3dadd(-69.441, 197.652, 15.887, 0.388)
}
}
proc shape3d_87() {
apic[16] { pt3dadd(-69.548, 197.704, 15.891, 0.386)
pt3dadd(-69.656, 197.756, 15.896, 0.386)
pt3dadd(-69.764, 197.809, 15.9, 0.384)
pt3dadd(-69.872, 197.862, 15.905, 0.382)
pt3dadd(-69.979, 197.914, 15.909, 0.38)
pt3dadd(-70.087, 197.966, 15.913, 0.38)
pt3dadd(-70.197, 198.014, 15.919, 0.394)
pt3dadd(-70.308, 198.059, 15.926, 0.424)
pt3dadd(-70.419, 198.102, 15.933, 0.454)
pt3dadd(-70.531, 198.146, 15.94, 0.484)
pt3dadd(-70.642, 198.191, 15.947, 0.514)
pt3dadd(-70.754, 198.234, 15.954, 0.544)
pt3dadd(-70.865, 198.278, 15.961, 0.574)
pt3dadd(-70.976, 198.322, 15.968, 0.604)
pt3dadd(-71.088, 198.366, 15.975, 0.634)
pt3dadd(-71.199, 198.409, 15.982, 0.664)
pt3dadd(-71.307, 198.46, 15.991, 0.678)
pt3dadd(-71.412, 198.517, 16.001, 0.678)
pt3dadd(-71.517, 198.574, 16.012, 0.678)
pt3dadd(-71.622, 198.63, 16.022, 0.678)
pt3dadd(-71.727, 198.686, 16.032, 0.678)
pt3dadd(-71.832, 198.744, 16.042, 0.678)
pt3dadd(-71.937, 198.8, 16.053, 0.678)
pt3dadd(-72.042, 198.857, 16.063, 0.678)
pt3dadd(-72.147, 198.914, 16.073, 0.678)
pt3dadd(-72.252, 198.971, 16.084, 0.678)
pt3dadd(-72.359, 199.02, 16.103, 0.668)
pt3dadd(-72.466, 199.062, 16.13, 0.646)
pt3dadd(-72.573, 199.104, 16.158, 0.626)
pt3dadd(-72.681, 199.146, 16.185, 0.604)
pt3dadd(-72.788, 199.188, 16.212, 0.582)
pt3dadd(-72.896, 199.23, 16.24, 0.562)
pt3dadd(-73.003, 199.273, 16.267, 0.54)
pt3dadd(-73.111, 199.315, 16.295, 0.52)
pt3dadd(-73.218, 199.357, 16.322, 0.498)
pt3dadd(-73.325, 199.399, 16.35, 0.478)
pt3dadd(-73.434, 199.435, 16.381, 0.454)
pt3dadd(-73.542, 199.468, 16.414, 0.43)
pt3dadd(-73.651, 199.499, 16.447, 0.406)
pt3dadd(-73.759, 199.531, 16.48, 0.38)
pt3dadd(-73.868, 199.564, 16.513, 0.356)
pt3dadd(-73.976, 199.596, 16.546, 0.332)
pt3dadd(-74.085, 199.627, 16.58, 0.308)
pt3dadd(-74.193, 199.66, 16.613, 0.284)
pt3dadd(-74.302, 199.692, 16.646, 0.258)
pt3dadd(-74.411, 199.724, 16.679, 0.234)
pt3dadd(-74.522, 199.752, 16.706, 0.226)
pt3dadd(-74.636, 199.778, 16.73, 0.226)
pt3dadd(-74.75, 199.804, 16.754, 0.226)
pt3dadd(-74.863, 199.83, 16.778, 0.226)
pt3dadd(-74.977, 199.855, 16.802, 0.226)
pt3dadd(-75.09, 199.882, 16.826, 0.226)
pt3dadd(-75.204, 199.908, 16.85, 0.226)
pt3dadd(-75.317, 199.933, 16.874, 0.226)
pt3dadd(-75.431, 199.96, 16.898, 0.226)
pt3dadd(-75.545, 199.985, 16.922, 0.226)
pt3dadd(-75.657, 200.022, 16.939, 0.246)
pt3dadd(-75.768, 200.064, 16.952, 0.274)
pt3dadd(-75.879, 200.107, 16.965, 0.304)
pt3dadd(-75.99, 200.149, 16.978, 0.334)
pt3dadd(-76.101, 200.192, 16.991, 0.364)
pt3dadd(-76.212, 200.234, 17.003, 0.394)
pt3dadd(-76.323, 200.278, 17.016, 0.422)
pt3dadd(-76.434, 200.32, 17.029, 0.452)
pt3dadd(-76.546, 200.363, 17.042, 0.482)
pt3dadd(-76.657, 200.405, 17.055, 0.512)
pt3dadd(-76.77, 200.443, 17.064, 0.52)
pt3dadd(-76.884, 200.479, 17.071, 0.518)
pt3dadd(-76.998, 200.515, 17.078, 0.514)
pt3dadd(-77.112, 200.552, 17.085, 0.512)
pt3dadd(-77.226, 200.588, 17.092, 0.51)
pt3dadd(-77.34, 200.624, 17.099, 0.506)
pt3dadd(-77.454, 200.66, 17.106, 0.504)
pt3dadd(-77.568, 200.696, 17.113, 0.502)
pt3dadd(-77.683, 200.734, 17.12, 0.5)
pt3dadd(-77.797, 200.77, 17.127, 0.496)
pt3dadd(-77.913, 200.798, 17.132, 0.478)
pt3dadd(-78.03, 200.824, 17.136, 0.45)
pt3dadd(-78.147, 200.849, 17.139, 0.422)
pt3dadd(-78.264, 200.874, 17.143, 0.396)
pt3dadd(-78.382, 200.899, 17.147, 0.368)
pt3dadd(-78.499, 200.924, 17.151, 0.342)
pt3dadd(-78.616, 200.951, 17.155, 0.314)
pt3dadd(-78.733, 200.976, 17.158, 0.288)
pt3dadd(-78.851, 201.001, 17.162, 0.26)
pt3dadd(-78.968, 201.026, 17.166, 0.234)
pt3dadd(-79.086, 201.043, 17.172, 0.226)
pt3dadd(-79.205, 201.056, 17.179, 0.226)
pt3dadd(-79.324, 201.07, 17.186, 0.226)
pt3dadd(-79.443, 201.083, 17.193, 0.226)
pt3dadd(-79.562, 201.096, 17.201, 0.226)
pt3dadd(-79.681, 201.109, 17.208, 0.226)
pt3dadd(-79.8, 201.124, 17.215, 0.226)
pt3dadd(-79.919, 201.137, 17.222, 0.226)
pt3dadd(-80.038, 201.15, 17.229, 0.226)
pt3dadd(-80.157, 201.163, 17.236, 0.226)
pt3dadd(-80.276, 201.168, 17.247, 0.226)
pt3dadd(-80.395, 201.168, 17.258, 0.226)
pt3dadd(-80.514, 201.169, 17.27, 0.226)
pt3dadd(-80.633, 201.17, 17.281, 0.226)
pt3dadd(-80.753, 201.17, 17.293, 0.226)
pt3dadd(-80.872, 201.172, 17.305, 0.226)
pt3dadd(-80.991, 201.173, 17.316, 0.226)
pt3dadd(-81.11, 201.173, 17.328, 0.226)
pt3dadd(-81.229, 201.174, 17.339, 0.226)
pt3dadd(-81.348, 201.175, 17.351, 0.226)
pt3dadd(-81.465, 201.175, 17.375, 0.226)
pt3dadd(-81.579, 201.175, 17.405, 0.226)
pt3dadd(-81.694, 201.175, 17.435, 0.226)
pt3dadd(-81.808, 201.175, 17.464, 0.226)
pt3dadd(-81.923, 201.175, 17.494, 0.226)
pt3dadd(-82.038, 201.176, 17.523, 0.226)
pt3dadd(-82.152, 201.176, 17.553, 0.226)
pt3dadd(-82.267, 201.176, 17.582, 0.226)
pt3dadd(-82.382, 201.176, 17.612, 0.226)
pt3dadd(-82.496, 201.176, 17.641, 0.226)
pt3dadd(-82.61, 201.176, 17.674, 0.23)
pt3dadd(-82.722, 201.176, 17.708, 0.236)
pt3dadd(-82.835, 201.178, 17.742, 0.242)
pt3dadd(-82.948, 201.178, 17.776, 0.246)
pt3dadd(-83.061, 201.178, 17.81, 0.252)
pt3dadd(-83.174, 201.178, 17.844, 0.258)
pt3dadd(-83.287, 201.178, 17.878, 0.262)
pt3dadd(-83.4, 201.179, 17.912, 0.268)
pt3dadd(-83.512, 201.179, 17.946, 0.274)
pt3dadd(-83.625, 201.179, 17.98, 0.278)
pt3dadd(-83.741, 201.179, 18.007, 0.294)
pt3dadd(-83.857, 201.18, 18.032, 0.31)
pt3dadd(-83.973, 201.18, 18.058, 0.328)
pt3dadd(-84.089, 201.181, 18.083, 0.344)
pt3dadd(-84.205, 201.181, 18.108, 0.362)
pt3dadd(-84.321, 201.182, 18.134, 0.38)
pt3dadd(-84.437, 201.182, 18.159, 0.396)
pt3dadd(-84.553, 201.184, 18.184, 0.414)
pt3dadd(-84.669, 201.184, 18.209, 0.43)
pt3dadd(-84.786, 201.185, 18.235, 0.448)
pt3dadd(-84.904, 201.186, 18.251, 0.436)
pt3dadd(-85.023, 201.187, 18.265, 0.418)
pt3dadd(-85.142, 201.188, 18.279, 0.4)
pt3dadd(-85.26, 201.188, 18.293, 0.382)
pt3dadd(-85.379, 201.19, 18.307, 0.364)
pt3dadd(-85.498, 201.191, 18.321, 0.346)
pt3dadd(-85.617, 201.192, 18.335, 0.328)
pt3dadd(-85.736, 201.193, 18.349, 0.31)
pt3dadd(-85.854, 201.194, 18.363, 0.292)
pt3dadd(-85.973, 201.196, 18.377, 0.276)
pt3dadd(-86.093, 201.197, 18.387, 0.29)
pt3dadd(-86.212, 201.199, 18.396, 0.312)
pt3dadd(-86.332, 201.202, 18.404, 0.336)
pt3dadd(-86.451, 201.204, 18.413, 0.358)
pt3dadd(-86.571, 201.206, 18.422, 0.38)
pt3dadd(-86.69, 201.208, 18.431, 0.404)
pt3dadd(-86.81, 201.21, 18.44, 0.426)
pt3dadd(-86.929, 201.212, 18.449, 0.448)
pt3dadd(-87.049, 201.215, 18.458, 0.472)
pt3dadd(-87.168, 201.217, 18.467, 0.494)
pt3dadd(-87.288, 201.221, 18.476, 0.498)
pt3dadd(-87.407, 201.224, 18.486, 0.496)
pt3dadd(-87.526, 201.228, 18.496, 0.496)
pt3dadd(-87.646, 201.232, 18.506, 0.494)
pt3dadd(-87.765, 201.235, 18.515, 0.494)
pt3dadd(-87.884, 201.24, 18.525, 0.492)
pt3dadd(-88.004, 201.244, 18.535, 0.492)
pt3dadd(-88.123, 201.247, 18.545, 0.49)
pt3dadd(-88.242, 201.251, 18.554, 0.49)
pt3dadd(-88.362, 201.254, 18.564, 0.49)
pt3dadd(-88.479, 201.262, 18.583, 0.466)
pt3dadd(-88.596, 201.269, 18.604, 0.44)
pt3dadd(-88.714, 201.277, 18.625, 0.414)
pt3dadd(-88.831, 201.284, 18.646, 0.388)
pt3dadd(-88.948, 201.292, 18.667, 0.36)
pt3dadd(-89.065, 201.299, 18.688, 0.334)
pt3dadd(-89.182, 201.307, 18.708, 0.308)
pt3dadd(-89.299, 201.314, 18.729, 0.282)
pt3dadd(-89.416, 201.322, 18.75, 0.254)
pt3dadd(-89.533, 201.33, 18.771, 0.228)
pt3dadd(-89.643, 201.343, 18.81, 0.226)
pt3dadd(-89.752, 201.356, 18.85, 0.226)
pt3dadd(-89.861, 201.37, 18.891, 0.226)
pt3dadd(-89.97, 201.384, 18.931, 0.226)
pt3dadd(-90.079, 201.397, 18.971, 0.226)
pt3dadd(-90.188, 201.412, 19.012, 0.226)
pt3dadd(-90.297, 201.425, 19.052, 0.226)
pt3dadd(-90.406, 201.438, 19.092, 0.226)
pt3dadd(-90.515, 201.452, 19.133, 0.226)
pt3dadd(-90.624, 201.466, 19.173, 0.226)
pt3dadd(-90.735, 201.488, 19.204, 0.226)
pt3dadd(-90.847, 201.512, 19.234, 0.226)
pt3dadd(-90.959, 201.536, 19.264, 0.226)
pt3dadd(-91.071, 201.56, 19.294, 0.226)
pt3dadd(-91.183, 201.583, 19.324, 0.226)
pt3dadd(-91.295, 201.607, 19.354, 0.226)
pt3dadd(-91.407, 201.631, 19.384, 0.226)
pt3dadd(-91.519, 201.654, 19.414, 0.226)
pt3dadd(-91.631, 201.678, 19.444, 0.226)
pt3dadd(-91.743, 201.702, 19.474, 0.226)
pt3dadd(-91.809, 201.8, 19.488, 0.226)
pt3dadd(-91.875, 201.9, 19.501, 0.226)
pt3dadd(-91.941, 201.998, 19.515, 0.226)
pt3dadd(-92.007, 202.097, 19.529, 0.226)
}
}
proc shape3d_88() {
apic[16] { pt3dadd(-92.073, 202.196, 19.542, 0.226)
pt3dadd(-92.139, 202.295, 19.556, 0.226)
pt3dadd(-92.205, 202.394, 19.57, 0.226)
pt3dadd(-92.271, 202.493, 19.584, 0.226)
pt3dadd(-92.337, 202.592, 19.597, 0.226)
pt3dadd(-92.403, 202.691, 19.611, 0.226)
}
apic[17] {pt3dclear()
pt3dadd(74.609, 141.416, 22.001, 2.486)
pt3dadd(74.609, 141.449, 22.085, 2.406)
pt3dadd(74.609, 141.485, 22.18, 2.314)
pt3dadd(74.609, 141.522, 22.275, 2.222)
pt3dadd(74.609, 141.559, 22.371, 2.13)
pt3dadd(74.609, 141.595, 22.466, 2.038)
pt3dadd(74.609, 141.632, 22.561, 1.946)
pt3dadd(74.604, 141.665, 22.657, 1.864)
pt3dadd(74.598, 141.697, 22.753, 1.78)
pt3dadd(74.593, 141.73, 22.849, 1.698)
pt3dadd(74.588, 141.762, 22.945, 1.616)
pt3dadd(74.582, 141.796, 23.042, 1.534)
pt3dadd(74.577, 141.828, 23.138, 1.452)
pt3dadd(74.572, 141.86, 23.234, 1.37)
pt3dadd(74.566, 141.893, 23.33, 1.288)
pt3dadd(74.561, 141.925, 23.426, 1.206)
pt3dadd(74.552, 141.955, 23.522, 1.13)
pt3dadd(74.507, 141.952, 23.615, 1.13)
pt3dadd(74.461, 141.949, 23.707, 1.13)
pt3dadd(74.416, 141.947, 23.799, 1.13)
pt3dadd(74.37, 141.943, 23.892, 1.13)
pt3dadd(74.325, 141.941, 23.985, 1.13)
pt3dadd(74.279, 141.937, 24.077, 1.13)
pt3dadd(74.234, 141.935, 24.17, 1.13)
pt3dadd(74.188, 141.932, 24.262, 1.13)
pt3dadd(74.143, 141.929, 24.354, 1.13)
pt3dadd(74.096, 141.926, 24.446, 1.128)
pt3dadd(74.035, 141.923, 24.532, 1.106)
pt3dadd(73.973, 141.919, 24.618, 1.084)
pt3dadd(73.912, 141.916, 24.704, 1.064)
pt3dadd(73.851, 141.912, 24.79, 1.042)
pt3dadd(73.789, 141.91, 24.876, 1.02)
pt3dadd(73.728, 141.906, 24.962, 0.998)
pt3dadd(73.667, 141.902, 25.048, 0.976)
pt3dadd(73.605, 141.899, 25.134, 0.954)
pt3dadd(73.544, 141.895, 25.22, 0.934)
pt3dadd(73.481, 141.892, 25.305, 0.912)
pt3dadd(73.408, 141.887, 25.384, 0.888)
pt3dadd(73.335, 141.882, 25.463, 0.864)
pt3dadd(73.263, 141.877, 25.543, 0.84)
pt3dadd(73.19, 141.872, 25.622, 0.816)
pt3dadd(73.117, 141.868, 25.702, 0.792)
pt3dadd(73.044, 141.863, 25.781, 0.77)
pt3dadd(72.971, 141.858, 25.86, 0.746)
pt3dadd(72.899, 141.853, 25.94, 0.722)
pt3dadd(72.826, 141.848, 26.019, 0.698)
pt3dadd(72.752, 141.844, 26.098, 0.678)
pt3dadd(72.672, 141.836, 26.172, 0.678)
pt3dadd(72.593, 141.829, 26.247, 0.678)
pt3dadd(72.514, 141.821, 26.322, 0.678)
pt3dadd(72.434, 141.814, 26.396, 0.678)
pt3dadd(72.355, 141.806, 26.471, 0.678)
pt3dadd(72.275, 141.799, 26.546, 0.678)
pt3dadd(72.196, 141.792, 26.621, 0.678)
pt3dadd(72.116, 141.784, 26.695, 0.678)
pt3dadd(72.037, 141.776, 26.77, 0.678)
pt3dadd(71.957, 141.769, 26.844, 0.682)
pt3dadd(71.873, 141.757, 26.915, 0.702)
pt3dadd(71.789, 141.746, 26.986, 0.724)
pt3dadd(71.706, 141.736, 27.057, 0.744)
pt3dadd(71.622, 141.724, 27.128, 0.766)
pt3dadd(71.538, 141.713, 27.199, 0.788)
pt3dadd(71.455, 141.702, 27.27, 0.808)
pt3dadd(71.371, 141.69, 27.342, 0.83)
pt3dadd(71.287, 141.679, 27.413, 0.85)
pt3dadd(71.204, 141.668, 27.484, 0.872)
pt3dadd(71.12, 141.655, 27.554, 0.892)
pt3dadd(71.035, 141.636, 27.623, 0.904)
pt3dadd(70.951, 141.616, 27.692, 0.916)
pt3dadd(70.866, 141.596, 27.761, 0.926)
pt3dadd(70.781, 141.576, 27.83, 0.938)
pt3dadd(70.697, 141.557, 27.899, 0.95)
pt3dadd(70.612, 141.538, 27.968, 0.962)
pt3dadd(70.528, 141.517, 28.037, 0.974)
pt3dadd(70.443, 141.498, 28.106, 0.986)
pt3dadd(70.358, 141.478, 28.175, 0.996)
pt3dadd(70.276, 141.449, 28.242, 0.986)
pt3dadd(70.198, 141.394, 28.303, 0.908)
pt3dadd(70.121, 141.338, 28.364, 0.832)
pt3dadd(70.044, 141.283, 28.426, 0.756)
pt3dadd(69.967, 141.228, 28.487, 0.678)
pt3dadd(69.889, 141.173, 28.548, 0.602)
pt3dadd(69.812, 141.118, 28.609, 0.524)
pt3dadd(69.735, 141.062, 28.67, 0.448)
pt3dadd(69.657, 141.007, 28.731, 0.372)
pt3dadd(69.58, 140.952, 28.792, 0.294)
pt3dadd(69.501, 140.902, 28.854, 0.242)
pt3dadd(69.416, 140.866, 28.918, 0.258)
pt3dadd(69.331, 140.83, 28.982, 0.272)
pt3dadd(69.246, 140.794, 29.046, 0.288)
pt3dadd(69.161, 140.758, 29.11, 0.304)
pt3dadd(69.076, 140.722, 29.174, 0.318)
pt3dadd(68.991, 140.686, 29.237, 0.334)
pt3dadd(68.906, 140.648, 29.301, 0.35)
pt3dadd(68.821, 140.612, 29.365, 0.364)
pt3dadd(68.736, 140.576, 29.429, 0.38)
pt3dadd(68.651, 140.543, 29.493, 0.404)
pt3dadd(68.563, 140.515, 29.557, 0.448)
pt3dadd(68.475, 140.488, 29.621, 0.492)
pt3dadd(68.387, 140.46, 29.685, 0.538)
pt3dadd(68.299, 140.432, 29.75, 0.582)
pt3dadd(68.211, 140.405, 29.814, 0.626)
pt3dadd(68.123, 140.377, 29.878, 0.672)
pt3dadd(68.035, 140.35, 29.942, 0.716)
pt3dadd(67.947, 140.322, 30.006, 0.76)
pt3dadd(67.86, 140.294, 30.07, 0.806)
pt3dadd(67.771, 140.268, 30.133, 0.85)
pt3dadd(67.68, 140.243, 30.195, 0.896)
pt3dadd(67.589, 140.218, 30.257, 0.942)
pt3dadd(67.498, 140.194, 30.319, 0.988)
pt3dadd(67.407, 140.168, 30.381, 1.034)
pt3dadd(67.317, 140.143, 30.443, 1.08)
pt3dadd(67.226, 140.118, 30.505, 1.126)
pt3dadd(67.135, 140.093, 30.567, 1.172)
pt3dadd(67.044, 140.068, 30.629, 1.218)
pt3dadd(66.953, 140.042, 30.691, 1.264)
pt3dadd(66.86, 140.014, 30.748, 1.282)
pt3dadd(66.762, 139.974, 30.796, 1.238)
pt3dadd(66.664, 139.936, 30.843, 1.194)
pt3dadd(66.566, 139.896, 30.891, 1.15)
pt3dadd(66.468, 139.856, 30.938, 1.106)
pt3dadd(66.37, 139.817, 30.986, 1.062)
pt3dadd(66.272, 139.778, 31.033, 1.018)
pt3dadd(66.174, 139.739, 31.081, 0.974)
pt3dadd(66.076, 139.699, 31.128, 0.93)
pt3dadd(65.978, 139.661, 31.176, 0.886)
pt3dadd(65.88, 139.624, 31.225, 0.846)
pt3dadd(65.783, 139.594, 31.279, 0.81)
pt3dadd(65.686, 139.565, 31.332, 0.774)
pt3dadd(65.589, 139.535, 31.386, 0.74)
pt3dadd(65.493, 139.505, 31.439, 0.704)
pt3dadd(65.396, 139.475, 31.492, 0.67)
pt3dadd(65.299, 139.445, 31.546, 0.634)
pt3dadd(65.202, 139.415, 31.599, 0.6)
pt3dadd(65.105, 139.385, 31.653, 0.564)
pt3dadd(65.008, 139.355, 31.706, 0.53)
pt3dadd(64.911, 139.328, 31.761, 0.496)
pt3dadd(64.816, 139.306, 31.818, 0.468)
pt3dadd(64.72, 139.283, 31.875, 0.44)
pt3dadd(64.624, 139.26, 31.933, 0.412)
pt3dadd(64.529, 139.237, 31.99, 0.384)
pt3dadd(64.433, 139.213, 32.047, 0.356)
pt3dadd(64.337, 139.192, 32.105, 0.328)
pt3dadd(64.242, 139.168, 32.162, 0.3)
pt3dadd(64.146, 139.145, 32.219, 0.272)
pt3dadd(64.05, 139.122, 32.277, 0.244)
pt3dadd(63.956, 139.104, 32.336, 0.226)
pt3dadd(63.862, 139.096, 32.398, 0.226)
pt3dadd(63.769, 139.086, 32.461, 0.226)
pt3dadd(63.676, 139.078, 32.523, 0.226)
pt3dadd(63.583, 139.068, 32.586, 0.226)
pt3dadd(63.489, 139.058, 32.648, 0.226)
pt3dadd(63.396, 139.05, 32.711, 0.226)
pt3dadd(63.303, 139.04, 32.773, 0.226)
pt3dadd(63.21, 139.032, 32.836, 0.226)
pt3dadd(63.117, 139.022, 32.898, 0.226)
pt3dadd(63.024, 139.015, 32.961, 0.226)
pt3dadd(62.931, 139.012, 33.025, 0.226)
pt3dadd(62.839, 139.007, 33.089, 0.226)
pt3dadd(62.746, 139.003, 33.152, 0.226)
pt3dadd(62.654, 139, 33.216, 0.226)
pt3dadd(62.561, 138.996, 33.28, 0.226)
pt3dadd(62.469, 138.992, 33.343, 0.226)
pt3dadd(62.377, 138.988, 33.407, 0.226)
pt3dadd(62.284, 138.984, 33.471, 0.226)
pt3dadd(62.192, 138.98, 33.534, 0.226)
pt3dadd(62.1, 138.979, 33.598, 0.226)
pt3dadd(62.008, 138.982, 33.663, 0.226)
pt3dadd(61.917, 138.985, 33.728, 0.226)
pt3dadd(61.826, 138.988, 33.793, 0.226)
pt3dadd(61.735, 138.99, 33.858, 0.226)
pt3dadd(61.644, 138.994, 33.923, 0.226)
pt3dadd(61.552, 138.996, 33.988, 0.226)
pt3dadd(61.461, 139, 34.053, 0.226)
pt3dadd(61.37, 139.002, 34.118, 0.226)
pt3dadd(61.279, 139.004, 34.183, 0.226)
pt3dadd(61.182, 139.009, 34.242, 0.226)
pt3dadd(61.077, 139.018, 34.289, 0.226)
pt3dadd(60.972, 139.026, 34.336, 0.226)
pt3dadd(60.866, 139.034, 34.383, 0.226)
pt3dadd(60.761, 139.043, 34.43, 0.226)
pt3dadd(60.655, 139.051, 34.478, 0.226)
pt3dadd(60.55, 139.06, 34.525, 0.226)
pt3dadd(60.444, 139.068, 34.572, 0.226)
pt3dadd(60.339, 139.076, 34.619, 0.226)
pt3dadd(60.233, 139.085, 34.666, 0.226)
pt3dadd(60.128, 139.096, 34.713, 0.226)
pt3dadd(60.022, 139.11, 34.759, 0.226)
pt3dadd(59.916, 139.124, 34.805, 0.226)
pt3dadd(59.811, 139.139, 34.85, 0.226)
pt3dadd(59.705, 139.153, 34.896, 0.226)
pt3dadd(59.599, 139.168, 34.942, 0.226)
pt3dadd(59.493, 139.182, 34.988, 0.226)
pt3dadd(59.388, 139.196, 35.034, 0.226)
}
}
proc shape3d_89() {
apic[17] { pt3dadd(59.282, 139.211, 35.079, 0.226)
pt3dadd(59.176, 139.225, 35.125, 0.226)
pt3dadd(59.074, 139.258, 35.166, 0.226)
pt3dadd(58.978, 139.316, 35.2, 0.226)
pt3dadd(58.881, 139.375, 35.233, 0.226)
pt3dadd(58.785, 139.434, 35.267, 0.226)
pt3dadd(58.688, 139.493, 35.3, 0.226)
pt3dadd(58.592, 139.552, 35.333, 0.226)
pt3dadd(58.495, 139.61, 35.367, 0.226)
pt3dadd(58.398, 139.669, 35.4, 0.226)
pt3dadd(58.302, 139.728, 35.434, 0.226)
pt3dadd(58.207, 139.787, 35.465, 0.226)
pt3dadd(58.173, 139.86, 35.391, 0.226)
pt3dadd(58.14, 139.932, 35.316, 0.226)
pt3dadd(58.107, 140.005, 35.242, 0.226)
pt3dadd(58.074, 140.077, 35.167, 0.226)
pt3dadd(58.04, 140.15, 35.092, 0.226)
pt3dadd(58.007, 140.222, 35.018, 0.226)
pt3dadd(57.974, 140.296, 34.943, 0.226)
pt3dadd(57.94, 140.368, 34.868, 0.226)
pt3dadd(57.907, 140.441, 34.794, 0.226)
}
apic[18] {pt3dclear()
pt3dadd(83.718, 139.297, 20.891, 1.356)
pt3dadd(83.631, 139.276, 20.89, 1.318)
pt3dadd(83.514, 139.247, 20.889, 1.266)
pt3dadd(83.398, 139.218, 20.888, 1.214)
pt3dadd(83.282, 139.189, 20.887, 1.162)
pt3dadd(83.165, 139.16, 20.886, 1.11)
pt3dadd(83.049, 139.133, 20.885, 1.058)
pt3dadd(82.932, 139.105, 20.883, 1.028)
pt3dadd(82.815, 139.078, 20.882, 1)
pt3dadd(82.698, 139.05, 20.88, 0.974)
pt3dadd(82.581, 139.022, 20.879, 0.946)
pt3dadd(82.464, 138.995, 20.877, 0.918)
pt3dadd(82.348, 138.967, 20.875, 0.89)
pt3dadd(82.231, 138.94, 20.874, 0.862)
pt3dadd(82.114, 138.912, 20.872, 0.834)
pt3dadd(81.997, 138.884, 20.871, 0.806)
pt3dadd(81.881, 138.857, 20.869, 0.778)
pt3dadd(81.763, 138.833, 20.866, 0.81)
pt3dadd(81.646, 138.808, 20.864, 0.842)
pt3dadd(81.528, 138.784, 20.861, 0.874)
pt3dadd(81.411, 138.758, 20.858, 0.906)
pt3dadd(81.294, 138.734, 20.856, 0.938)
pt3dadd(81.176, 138.709, 20.853, 0.97)
pt3dadd(81.059, 138.685, 20.85, 1.002)
pt3dadd(80.941, 138.66, 20.848, 1.036)
pt3dadd(80.824, 138.636, 20.845, 1.068)
pt3dadd(80.706, 138.611, 20.842, 1.1)
pt3dadd(80.592, 138.576, 20.838, 1.014)
pt3dadd(80.478, 138.54, 20.834, 0.926)
pt3dadd(80.363, 138.505, 20.83, 0.838)
pt3dadd(80.248, 138.469, 20.826, 0.75)
pt3dadd(80.134, 138.433, 20.822, 0.662)
pt3dadd(80.019, 138.398, 20.818, 0.572)
pt3dadd(79.905, 138.362, 20.814, 0.484)
pt3dadd(79.79, 138.326, 20.81, 0.396)
pt3dadd(79.676, 138.292, 20.806, 0.308)
pt3dadd(79.563, 138.253, 20.802, 0.226)
pt3dadd(79.482, 138.166, 20.793, 0.226)
pt3dadd(79.401, 138.078, 20.783, 0.226)
pt3dadd(79.319, 137.99, 20.774, 0.226)
pt3dadd(79.238, 137.903, 20.765, 0.226)
pt3dadd(79.156, 137.815, 20.756, 0.226)
pt3dadd(79.075, 137.728, 20.746, 0.226)
pt3dadd(78.993, 137.64, 20.737, 0.226)
pt3dadd(78.912, 137.554, 20.728, 0.226)
pt3dadd(78.831, 137.466, 20.719, 0.226)
pt3dadd(78.749, 137.378, 20.709, 0.226)
pt3dadd(78.672, 137.287, 20.697, 0.226)
pt3dadd(78.595, 137.196, 20.686, 0.226)
pt3dadd(78.519, 137.105, 20.674, 0.226)
pt3dadd(78.442, 137.014, 20.662, 0.226)
pt3dadd(78.365, 136.922, 20.651, 0.226)
pt3dadd(78.288, 136.832, 20.639, 0.226)
pt3dadd(78.211, 136.741, 20.627, 0.226)
pt3dadd(78.134, 136.65, 20.615, 0.226)
pt3dadd(78.057, 136.559, 20.604, 0.226)
pt3dadd(77.981, 136.468, 20.59, 0.228)
pt3dadd(77.909, 136.385, 20.549, 0.28)
pt3dadd(77.838, 136.302, 20.508, 0.334)
pt3dadd(77.766, 136.22, 20.467, 0.386)
pt3dadd(77.695, 136.138, 20.426, 0.438)
pt3dadd(77.623, 136.055, 20.384, 0.49)
pt3dadd(77.552, 135.972, 20.343, 0.542)
pt3dadd(77.48, 135.889, 20.302, 0.594)
pt3dadd(77.409, 135.806, 20.261, 0.646)
pt3dadd(77.337, 135.724, 20.22, 0.698)
pt3dadd(77.264, 135.641, 20.18, 0.738)
pt3dadd(77.181, 135.563, 20.15, 0.716)
pt3dadd(77.097, 135.485, 20.12, 0.694)
pt3dadd(77.014, 135.407, 20.09, 0.67)
pt3dadd(76.93, 135.328, 20.06, 0.648)
pt3dadd(76.847, 135.25, 20.03, 0.626)
pt3dadd(76.764, 135.172, 20, 0.602)
pt3dadd(76.68, 135.092, 19.969, 0.58)
pt3dadd(76.597, 135.014, 19.939, 0.558)
pt3dadd(76.513, 134.936, 19.909, 0.536)
pt3dadd(76.428, 134.858, 19.882, 0.516)
pt3dadd(76.339, 134.782, 19.864, 0.506)
pt3dadd(76.249, 134.705, 19.847, 0.498)
pt3dadd(76.159, 134.628, 19.829, 0.49)
pt3dadd(76.069, 134.551, 19.811, 0.48)
pt3dadd(75.98, 134.474, 19.793, 0.47)
pt3dadd(75.89, 134.398, 19.776, 0.462)
pt3dadd(75.8, 134.321, 19.758, 0.454)
pt3dadd(75.71, 134.244, 19.74, 0.444)
pt3dadd(75.621, 134.167, 19.723, 0.436)
pt3dadd(75.53, 134.09, 19.707, 0.44)
pt3dadd(75.438, 134.015, 19.698, 0.488)
pt3dadd(75.346, 133.939, 19.688, 0.534)
pt3dadd(75.254, 133.862, 19.678, 0.58)
pt3dadd(75.162, 133.787, 19.669, 0.626)
pt3dadd(75.069, 133.711, 19.659, 0.672)
pt3dadd(74.977, 133.636, 19.649, 0.718)
pt3dadd(74.885, 133.559, 19.64, 0.766)
pt3dadd(74.793, 133.483, 19.63, 0.812)
pt3dadd(74.701, 133.408, 19.621, 0.858)
pt3dadd(74.605, 133.337, 19.613, 0.892)
pt3dadd(74.498, 133.283, 19.613, 0.894)
pt3dadd(74.391, 133.228, 19.613, 0.894)
pt3dadd(74.284, 133.174, 19.613, 0.896)
pt3dadd(74.177, 133.118, 19.612, 0.898)
pt3dadd(74.07, 133.064, 19.612, 0.898)
pt3dadd(73.963, 133.009, 19.612, 0.9)
pt3dadd(73.856, 132.955, 19.612, 0.9)
pt3dadd(73.749, 132.9, 19.611, 0.902)
pt3dadd(73.643, 132.846, 19.611, 0.904)
pt3dadd(73.536, 132.791, 19.611, 0.904)
pt3dadd(73.431, 132.733, 19.611, 0.904)
pt3dadd(73.326, 132.676, 19.611, 0.904)
pt3dadd(73.22, 132.618, 19.611, 0.904)
pt3dadd(73.115, 132.56, 19.611, 0.904)
pt3dadd(73.01, 132.503, 19.611, 0.904)
pt3dadd(72.905, 132.445, 19.611, 0.904)
pt3dadd(72.799, 132.388, 19.611, 0.904)
pt3dadd(72.694, 132.329, 19.611, 0.904)
pt3dadd(72.589, 132.271, 19.611, 0.904)
pt3dadd(72.484, 132.214, 19.611, 0.904)
pt3dadd(72.379, 132.155, 19.611, 0.904)
pt3dadd(72.275, 132.096, 19.611, 0.904)
pt3dadd(72.17, 132.037, 19.611, 0.904)
pt3dadd(72.066, 131.978, 19.611, 0.904)
pt3dadd(71.961, 131.92, 19.611, 0.904)
pt3dadd(71.856, 131.861, 19.611, 0.904)
pt3dadd(71.752, 131.802, 19.611, 0.904)
pt3dadd(71.647, 131.743, 19.611, 0.904)
pt3dadd(71.543, 131.684, 19.611, 0.904)
pt3dadd(71.436, 131.63, 19.611, 0.904)
pt3dadd(71.323, 131.59, 19.611, 0.904)
pt3dadd(71.21, 131.548, 19.611, 0.904)
pt3dadd(71.098, 131.507, 19.611, 0.904)
pt3dadd(70.985, 131.465, 19.611, 0.904)
pt3dadd(70.872, 131.424, 19.611, 0.904)
pt3dadd(70.76, 131.382, 19.611, 0.904)
pt3dadd(70.647, 131.341, 19.611, 0.904)
pt3dadd(70.535, 131.299, 19.611, 0.904)
pt3dadd(70.422, 131.258, 19.611, 0.904)
pt3dadd(70.311, 131.214, 19.611, 0.894)
pt3dadd(70.202, 131.161, 19.611, 0.858)
pt3dadd(70.094, 131.11, 19.611, 0.822)
pt3dadd(69.986, 131.058, 19.611, 0.788)
pt3dadd(69.878, 131.006, 19.611, 0.752)
pt3dadd(69.769, 130.955, 19.611, 0.716)
pt3dadd(69.661, 130.902, 19.611, 0.68)
pt3dadd(69.553, 130.85, 19.611, 0.646)
pt3dadd(69.445, 130.799, 19.611, 0.61)
pt3dadd(69.336, 130.747, 19.611, 0.574)
pt3dadd(69.228, 130.697, 19.611, 0.54)
pt3dadd(69.118, 130.649, 19.611, 0.508)
pt3dadd(69.007, 130.601, 19.611, 0.474)
pt3dadd(68.897, 130.554, 19.611, 0.442)
pt3dadd(68.787, 130.506, 19.61, 0.41)
pt3dadd(68.677, 130.458, 19.61, 0.378)
pt3dadd(68.567, 130.411, 19.61, 0.344)
pt3dadd(68.457, 130.363, 19.61, 0.312)
pt3dadd(68.347, 130.315, 19.61, 0.28)
pt3dadd(68.236, 130.267, 19.61, 0.246)
pt3dadd(68.124, 130.226, 19.61, 0.226)
pt3dadd(68.008, 130.195, 19.61, 0.226)
pt3dadd(67.892, 130.165, 19.61, 0.226)
pt3dadd(67.776, 130.134, 19.61, 0.226)
pt3dadd(67.66, 130.104, 19.61, 0.226)
pt3dadd(67.544, 130.073, 19.61, 0.226)
pt3dadd(67.428, 130.043, 19.61, 0.226)
pt3dadd(67.312, 130.012, 19.61, 0.226)
pt3dadd(67.196, 129.982, 19.61, 0.226)
pt3dadd(67.08, 129.95, 19.61, 0.226)
pt3dadd(66.963, 129.925, 19.61, 0.226)
pt3dadd(66.844, 129.907, 19.609, 0.226)
pt3dadd(66.726, 129.89, 19.609, 0.226)
pt3dadd(66.607, 129.872, 19.609, 0.226)
pt3dadd(66.488, 129.854, 19.609, 0.226)
pt3dadd(66.369, 129.838, 19.609, 0.226)
pt3dadd(66.251, 129.82, 19.609, 0.226)
pt3dadd(66.132, 129.803, 19.609, 0.226)
pt3dadd(66.013, 129.785, 19.609, 0.226)
pt3dadd(65.895, 129.767, 19.608, 0.226)
pt3dadd(65.776, 129.751, 19.608, 0.236)
pt3dadd(65.656, 129.739, 19.608, 0.262)
pt3dadd(65.537, 129.727, 19.608, 0.288)
}
}
proc shape3d_90() {
apic[18] { pt3dadd(65.417, 129.715, 19.607, 0.314)
pt3dadd(65.298, 129.703, 19.607, 0.34)
pt3dadd(65.179, 129.69, 19.607, 0.366)
pt3dadd(65.059, 129.678, 19.607, 0.392)
pt3dadd(64.94, 129.666, 19.606, 0.418)
pt3dadd(64.821, 129.654, 19.606, 0.444)
pt3dadd(64.701, 129.642, 19.606, 0.47)
pt3dadd(64.582, 129.629, 19.605, 0.49)
pt3dadd(64.463, 129.614, 19.605, 0.502)
pt3dadd(64.344, 129.601, 19.605, 0.512)
pt3dadd(64.224, 129.587, 19.604, 0.524)
pt3dadd(64.105, 129.574, 19.604, 0.534)
pt3dadd(63.986, 129.559, 19.603, 0.546)
pt3dadd(63.867, 129.546, 19.603, 0.556)
pt3dadd(63.747, 129.532, 19.602, 0.568)
pt3dadd(63.628, 129.518, 19.602, 0.578)
pt3dadd(63.509, 129.504, 19.601, 0.59)
pt3dadd(63.39, 129.487, 19.601, 0.59)
pt3dadd(63.273, 129.463, 19.6, 0.572)
pt3dadd(63.155, 129.438, 19.599, 0.556)
pt3dadd(63.038, 129.414, 19.599, 0.538)
pt3dadd(62.92, 129.39, 19.598, 0.52)
pt3dadd(62.803, 129.366, 19.597, 0.502)
pt3dadd(62.685, 129.342, 19.596, 0.486)
pt3dadd(62.568, 129.318, 19.596, 0.468)
pt3dadd(62.45, 129.294, 19.595, 0.45)
pt3dadd(62.333, 129.269, 19.594, 0.432)
pt3dadd(62.219, 129.233, 19.593, 0.416)
pt3dadd(62.111, 129.181, 19.592, 0.4)
pt3dadd(62.003, 129.13, 19.591, 0.384)
pt3dadd(61.895, 129.077, 19.589, 0.368)
pt3dadd(61.787, 129.025, 19.588, 0.352)
pt3dadd(61.678, 128.974, 19.587, 0.336)
pt3dadd(61.57, 128.921, 19.585, 0.32)
pt3dadd(61.462, 128.869, 19.584, 0.304)
pt3dadd(61.354, 128.818, 19.583, 0.286)
pt3dadd(61.246, 128.765, 19.582, 0.27)
pt3dadd(61.137, 128.716, 19.58, 0.266)
pt3dadd(61.025, 128.671, 19.577, 0.276)
pt3dadd(60.914, 128.626, 19.575, 0.284)
pt3dadd(60.803, 128.58, 19.573, 0.294)
pt3dadd(60.692, 128.536, 19.57, 0.304)
pt3dadd(60.581, 128.49, 19.568, 0.312)
pt3dadd(60.47, 128.444, 19.566, 0.322)
pt3dadd(60.359, 128.399, 19.563, 0.332)
pt3dadd(60.248, 128.354, 19.561, 0.34)
pt3dadd(60.137, 128.309, 19.558, 0.35)
pt3dadd(60.026, 128.262, 19.555, 0.36)
pt3dadd(59.917, 128.212, 19.551, 0.37)
pt3dadd(59.808, 128.162, 19.547, 0.38)
pt3dadd(59.699, 128.113, 19.543, 0.388)
pt3dadd(59.59, 128.063, 19.538, 0.398)
pt3dadd(59.481, 128.014, 19.534, 0.408)
pt3dadd(59.372, 127.963, 19.53, 0.418)
pt3dadd(59.262, 127.914, 19.526, 0.428)
pt3dadd(59.153, 127.865, 19.522, 0.438)
pt3dadd(59.044, 127.814, 19.518, 0.446)
pt3dadd(58.937, 127.76, 19.513, 0.452)
pt3dadd(58.833, 127.703, 19.506, 0.452)
pt3dadd(58.728, 127.644, 19.5, 0.452)
pt3dadd(58.624, 127.585, 19.494, 0.452)
pt3dadd(58.519, 127.526, 19.488, 0.452)
pt3dadd(58.415, 127.469, 19.482, 0.452)
pt3dadd(58.31, 127.41, 19.475, 0.452)
pt3dadd(58.206, 127.351, 19.469, 0.452)
pt3dadd(58.101, 127.294, 19.463, 0.452)
pt3dadd(57.996, 127.235, 19.457, 0.452)
pt3dadd(57.888, 127.184, 19.448, 0.482)
pt3dadd(57.776, 127.144, 19.438, 0.548)
pt3dadd(57.664, 127.104, 19.427, 0.612)
pt3dadd(57.552, 127.063, 19.416, 0.676)
pt3dadd(57.44, 127.022, 19.405, 0.742)
pt3dadd(57.327, 126.982, 19.394, 0.806)
pt3dadd(57.215, 126.941, 19.383, 0.872)
pt3dadd(57.103, 126.901, 19.372, 0.936)
pt3dadd(56.991, 126.86, 19.361, 1)
pt3dadd(56.879, 126.82, 19.351, 1.066)
pt3dadd(56.768, 126.781, 19.332, 1.102)
pt3dadd(56.658, 126.744, 19.306, 1.108)
pt3dadd(56.548, 126.708, 19.279, 1.114)
pt3dadd(56.438, 126.671, 19.252, 1.12)
pt3dadd(56.329, 126.635, 19.226, 1.126)
pt3dadd(56.219, 126.599, 19.199, 1.132)
pt3dadd(56.109, 126.562, 19.173, 1.14)
pt3dadd(55.999, 126.526, 19.146, 1.146)
pt3dadd(55.89, 126.488, 19.12, 1.152)
pt3dadd(55.78, 126.452, 19.093, 1.158)
pt3dadd(55.672, 126.414, 19.063, 1.146)
pt3dadd(55.566, 126.376, 19.029, 1.12)
pt3dadd(55.459, 126.337, 18.996, 1.094)
pt3dadd(55.353, 126.299, 18.963, 1.068)
pt3dadd(55.247, 126.259, 18.93, 1.042)
pt3dadd(55.14, 126.221, 18.896, 1.018)
pt3dadd(55.034, 126.182, 18.863, 0.992)
pt3dadd(54.928, 126.144, 18.83, 0.966)
pt3dadd(54.821, 126.104, 18.797, 0.94)
pt3dadd(54.715, 126.066, 18.763, 0.914)
pt3dadd(54.611, 126.017, 18.737, 0.904)
pt3dadd(54.509, 125.959, 18.715, 0.904)
pt3dadd(54.406, 125.902, 18.694, 0.904)
pt3dadd(54.304, 125.844, 18.672, 0.904)
pt3dadd(54.202, 125.788, 18.651, 0.904)
pt3dadd(54.1, 125.73, 18.629, 0.904)
pt3dadd(53.997, 125.672, 18.608, 0.904)
pt3dadd(53.895, 125.616, 18.586, 0.904)
pt3dadd(53.793, 125.558, 18.565, 0.904)
pt3dadd(53.691, 125.501, 18.543, 0.904)
pt3dadd(53.591, 125.437, 18.526, 0.904)
pt3dadd(53.493, 125.37, 18.513, 0.904)
pt3dadd(53.395, 125.303, 18.5, 0.904)
pt3dadd(53.298, 125.236, 18.486, 0.904)
pt3dadd(53.2, 125.167, 18.473, 0.904)
pt3dadd(53.102, 125.1, 18.459, 0.904)
pt3dadd(53.004, 125.033, 18.446, 0.904)
pt3dadd(52.906, 124.964, 18.432, 0.904)
pt3dadd(52.808, 124.897, 18.419, 0.904)
pt3dadd(52.71, 124.83, 18.406, 0.904)
pt3dadd(52.613, 124.76, 18.395, 0.904)
pt3dadd(52.516, 124.691, 18.386, 0.904)
pt3dadd(52.419, 124.621, 18.377, 0.904)
pt3dadd(52.322, 124.55, 18.368, 0.904)
pt3dadd(52.225, 124.481, 18.359, 0.904)
pt3dadd(52.129, 124.411, 18.35, 0.904)
pt3dadd(52.032, 124.34, 18.34, 0.904)
pt3dadd(51.935, 124.271, 18.331, 0.904)
pt3dadd(51.838, 124.201, 18.322, 0.904)
pt3dadd(51.741, 124.132, 18.313, 0.904)
pt3dadd(51.639, 124.069, 18.308, 0.904)
pt3dadd(51.534, 124.012, 18.306, 0.904)
pt3dadd(51.428, 123.954, 18.303, 0.904)
pt3dadd(51.323, 123.896, 18.301, 0.904)
pt3dadd(51.218, 123.839, 18.298, 0.904)
pt3dadd(51.113, 123.781, 18.296, 0.904)
pt3dadd(51.008, 123.722, 18.293, 0.904)
pt3dadd(50.903, 123.665, 18.291, 0.904)
pt3dadd(50.797, 123.607, 18.288, 0.904)
pt3dadd(50.692, 123.55, 18.286, 0.904)
pt3dadd(50.589, 123.49, 18.282, 0.884)
pt3dadd(50.486, 123.427, 18.277, 0.854)
pt3dadd(50.384, 123.365, 18.272, 0.824)
pt3dadd(50.281, 123.304, 18.267, 0.792)
pt3dadd(50.178, 123.241, 18.262, 0.762)
pt3dadd(50.076, 123.179, 18.258, 0.732)
pt3dadd(49.974, 123.116, 18.253, 0.7)
pt3dadd(49.871, 123.055, 18.248, 0.67)
pt3dadd(49.768, 122.993, 18.243, 0.64)
pt3dadd(49.666, 122.93, 18.238, 0.608)
pt3dadd(49.564, 122.867, 18.232, 0.574)
pt3dadd(49.464, 122.803, 18.226, 0.536)
pt3dadd(49.363, 122.738, 18.219, 0.5)
pt3dadd(49.262, 122.674, 18.212, 0.462)
pt3dadd(49.161, 122.609, 18.206, 0.424)
pt3dadd(49.06, 122.545, 18.199, 0.388)
pt3dadd(48.959, 122.48, 18.193, 0.35)
pt3dadd(48.858, 122.416, 18.186, 0.314)
pt3dadd(48.757, 122.351, 18.179, 0.276)
pt3dadd(48.656, 122.287, 18.173, 0.238)
pt3dadd(48.556, 122.221, 18.164, 0.226)
pt3dadd(48.457, 122.155, 18.154, 0.226)
pt3dadd(48.357, 122.089, 18.145, 0.226)
pt3dadd(48.257, 122.023, 18.135, 0.226)
pt3dadd(48.158, 121.958, 18.126, 0.226)
pt3dadd(48.058, 121.892, 18.116, 0.226)
pt3dadd(47.958, 121.826, 18.106, 0.226)
pt3dadd(47.859, 121.76, 18.097, 0.226)
pt3dadd(47.759, 121.694, 18.087, 0.226)
pt3dadd(47.659, 121.628, 18.077, 0.226)
pt3dadd(47.557, 121.573, 18.057, 0.252)
pt3dadd(47.452, 121.523, 18.03, 0.294)
pt3dadd(47.348, 121.474, 18.004, 0.336)
pt3dadd(47.244, 121.423, 17.977, 0.376)
pt3dadd(47.139, 121.373, 17.951, 0.418)
pt3dadd(47.035, 121.324, 17.924, 0.46)
pt3dadd(46.931, 121.273, 17.897, 0.5)
pt3dadd(46.826, 121.223, 17.871, 0.542)
pt3dadd(46.722, 121.174, 17.844, 0.584)
pt3dadd(46.618, 121.123, 17.818, 0.624)
pt3dadd(46.511, 121.084, 17.786, 0.662)
pt3dadd(46.404, 121.048, 17.753, 0.698)
pt3dadd(46.297, 121.01, 17.721, 0.732)
pt3dadd(46.189, 120.973, 17.688, 0.768)
pt3dadd(46.082, 120.937, 17.655, 0.804)
pt3dadd(45.975, 120.9, 17.622, 0.84)
pt3dadd(45.867, 120.864, 17.59, 0.876)
pt3dadd(45.76, 120.827, 17.557, 0.912)
pt3dadd(45.653, 120.79, 17.524, 0.948)
pt3dadd(45.546, 120.754, 17.491, 0.984)
pt3dadd(45.432, 120.73, 17.466, 0.934)
pt3dadd(45.318, 120.709, 17.442, 0.866)
pt3dadd(45.203, 120.688, 17.419, 0.798)
pt3dadd(45.088, 120.667, 17.395, 0.73)
pt3dadd(44.973, 120.647, 17.371, 0.662)
pt3dadd(44.859, 120.625, 17.348, 0.594)
pt3dadd(44.744, 120.605, 17.324, 0.524)
pt3dadd(44.629, 120.584, 17.301, 0.456)
pt3dadd(44.514, 120.564, 17.277, 0.388)
pt3dadd(44.4, 120.542, 17.253, 0.32)
pt3dadd(44.282, 120.527, 17.239, 0.314)
pt3dadd(44.164, 120.512, 17.226, 0.32)
pt3dadd(44.046, 120.497, 17.214, 0.328)
}
}
proc shape3d_91() {
apic[18] { pt3dadd(43.928, 120.482, 17.201, 0.336)
pt3dadd(43.81, 120.468, 17.189, 0.342)
pt3dadd(43.692, 120.452, 17.176, 0.35)
pt3dadd(43.573, 120.438, 17.164, 0.358)
pt3dadd(43.455, 120.424, 17.151, 0.366)
pt3dadd(43.337, 120.408, 17.139, 0.372)
pt3dadd(43.219, 120.394, 17.126, 0.38)
pt3dadd(43.103, 120.364, 17.12, 0.396)
pt3dadd(42.988, 120.331, 17.116, 0.412)
pt3dadd(42.873, 120.299, 17.111, 0.43)
pt3dadd(42.757, 120.266, 17.107, 0.448)
pt3dadd(42.642, 120.234, 17.102, 0.464)
pt3dadd(42.526, 120.202, 17.098, 0.482)
pt3dadd(42.411, 120.169, 17.094, 0.498)
pt3dadd(42.296, 120.136, 17.089, 0.516)
pt3dadd(42.18, 120.103, 17.084, 0.534)
pt3dadd(42.065, 120.071, 17.08, 0.55)
pt3dadd(41.952, 120.03, 17.08, 0.568)
pt3dadd(41.839, 119.99, 17.08, 0.584)
pt3dadd(41.726, 119.949, 17.08, 0.6)
pt3dadd(41.613, 119.908, 17.079, 0.618)
pt3dadd(41.501, 119.867, 17.079, 0.634)
pt3dadd(41.388, 119.826, 17.079, 0.652)
pt3dadd(41.275, 119.785, 17.079, 0.668)
pt3dadd(41.162, 119.744, 17.079, 0.684)
pt3dadd(41.049, 119.703, 17.079, 0.702)
pt3dadd(40.937, 119.662, 17.079, 0.718)
pt3dadd(40.82, 119.633, 17.079, 0.736)
pt3dadd(40.704, 119.604, 17.079, 0.752)
pt3dadd(40.587, 119.575, 17.079, 0.77)
pt3dadd(40.471, 119.546, 17.079, 0.788)
pt3dadd(40.354, 119.517, 17.078, 0.804)
pt3dadd(40.238, 119.488, 17.078, 0.822)
pt3dadd(40.122, 119.46, 17.078, 0.84)
pt3dadd(40.005, 119.431, 17.078, 0.856)
pt3dadd(39.888, 119.402, 17.078, 0.874)
pt3dadd(39.772, 119.373, 17.078, 0.892)
pt3dadd(39.653, 119.358, 17.078, 0.862)
pt3dadd(39.534, 119.344, 17.077, 0.83)
pt3dadd(39.415, 119.329, 17.077, 0.798)
pt3dadd(39.296, 119.315, 17.077, 0.766)
pt3dadd(39.177, 119.301, 17.076, 0.734)
pt3dadd(39.057, 119.286, 17.076, 0.702)
pt3dadd(38.938, 119.272, 17.076, 0.67)
pt3dadd(38.819, 119.258, 17.076, 0.638)
pt3dadd(38.7, 119.243, 17.076, 0.606)
pt3dadd(38.581, 119.229, 17.075, 0.574)
pt3dadd(38.461, 119.224, 17.075, 0.572)
pt3dadd(38.341, 119.219, 17.074, 0.572)
pt3dadd(38.221, 119.214, 17.074, 0.572)
pt3dadd(38.101, 119.21, 17.073, 0.572)
pt3dadd(37.981, 119.205, 17.073, 0.572)
pt3dadd(37.861, 119.2, 17.072, 0.572)
pt3dadd(37.741, 119.196, 17.072, 0.57)
pt3dadd(37.622, 119.191, 17.071, 0.57)
pt3dadd(37.502, 119.186, 17.071, 0.57)
pt3dadd(37.382, 119.182, 17.07, 0.57)
pt3dadd(37.262, 119.181, 17.07, 0.574)
pt3dadd(37.142, 119.181, 17.069, 0.578)
pt3dadd(37.022, 119.181, 17.068, 0.582)
pt3dadd(36.902, 119.18, 17.067, 0.584)
pt3dadd(36.782, 119.18, 17.066, 0.588)
pt3dadd(36.662, 119.18, 17.065, 0.592)
pt3dadd(36.542, 119.18, 17.065, 0.596)
pt3dadd(36.422, 119.179, 17.064, 0.6)
pt3dadd(36.302, 119.179, 17.063, 0.604)
pt3dadd(36.182, 119.179, 17.062, 0.606)
pt3dadd(36.062, 119.178, 17.061, 0.594)
pt3dadd(35.942, 119.178, 17.059, 0.582)
pt3dadd(35.822, 119.177, 17.058, 0.568)
pt3dadd(35.702, 119.177, 17.056, 0.556)
pt3dadd(35.582, 119.176, 17.055, 0.542)
pt3dadd(35.462, 119.176, 17.053, 0.528)
pt3dadd(35.342, 119.175, 17.052, 0.516)
pt3dadd(35.222, 119.175, 17.05, 0.502)
pt3dadd(35.102, 119.174, 17.049, 0.49)
pt3dadd(34.982, 119.174, 17.048, 0.476)
pt3dadd(34.862, 119.173, 17.045, 0.494)
pt3dadd(34.742, 119.172, 17.042, 0.51)
pt3dadd(34.622, 119.171, 17.04, 0.53)
pt3dadd(34.502, 119.17, 17.037, 0.546)
pt3dadd(34.382, 119.169, 17.035, 0.564)
pt3dadd(34.262, 119.168, 17.032, 0.582)
pt3dadd(34.142, 119.167, 17.029, 0.6)
pt3dadd(34.022, 119.166, 17.027, 0.618)
pt3dadd(33.902, 119.165, 17.024, 0.636)
pt3dadd(33.782, 119.164, 17.022, 0.654)
pt3dadd(33.663, 119.162, 17.016, 0.628)
pt3dadd(33.543, 119.16, 17.01, 0.598)
pt3dadd(33.423, 119.158, 17.004, 0.57)
pt3dadd(33.303, 119.157, 16.998, 0.54)
pt3dadd(33.183, 119.155, 16.992, 0.512)
pt3dadd(33.064, 119.153, 16.986, 0.482)
pt3dadd(32.944, 119.151, 16.98, 0.454)
pt3dadd(32.824, 119.149, 16.974, 0.424)
pt3dadd(32.704, 119.147, 16.968, 0.396)
pt3dadd(32.585, 119.145, 16.962, 0.366)
pt3dadd(32.465, 119.142, 16.953, 0.374)
pt3dadd(32.346, 119.138, 16.945, 0.382)
pt3dadd(32.226, 119.135, 16.936, 0.39)
pt3dadd(32.107, 119.131, 16.927, 0.398)
pt3dadd(31.987, 119.128, 16.918, 0.406)
pt3dadd(31.868, 119.125, 16.909, 0.414)
pt3dadd(31.748, 119.121, 16.9, 0.422)
pt3dadd(31.629, 119.118, 16.891, 0.43)
pt3dadd(31.509, 119.114, 16.883, 0.438)
pt3dadd(31.39, 119.111, 16.874, 0.446)
pt3dadd(31.272, 119.105, 16.855, 0.456)
pt3dadd(31.155, 119.098, 16.835, 0.468)
pt3dadd(31.037, 119.092, 16.815, 0.478)
pt3dadd(30.92, 119.086, 16.796, 0.49)
pt3dadd(30.802, 119.08, 16.776, 0.502)
pt3dadd(30.685, 119.073, 16.757, 0.512)
pt3dadd(30.567, 119.067, 16.737, 0.524)
pt3dadd(30.45, 119.061, 16.718, 0.534)
pt3dadd(30.332, 119.054, 16.698, 0.546)
pt3dadd(30.215, 119.048, 16.678, 0.554)
pt3dadd(30.103, 119.038, 16.642, 0.522)
pt3dadd(29.991, 119.028, 16.607, 0.49)
pt3dadd(29.879, 119.018, 16.572, 0.458)
pt3dadd(29.767, 119.008, 16.537, 0.426)
pt3dadd(29.656, 118.998, 16.502, 0.392)
pt3dadd(29.544, 118.987, 16.467, 0.36)
pt3dadd(29.432, 118.977, 16.431, 0.328)
pt3dadd(29.32, 118.967, 16.396, 0.296)
pt3dadd(29.208, 118.957, 16.361, 0.264)
pt3dadd(29.096, 118.947, 16.327, 0.234)
pt3dadd(28.98, 118.928, 16.308, 0.252)
pt3dadd(28.863, 118.91, 16.289, 0.27)
pt3dadd(28.747, 118.892, 16.271, 0.29)
pt3dadd(28.63, 118.873, 16.252, 0.308)
pt3dadd(28.514, 118.855, 16.233, 0.326)
pt3dadd(28.397, 118.837, 16.214, 0.346)
pt3dadd(28.281, 118.818, 16.196, 0.364)
pt3dadd(28.164, 118.8, 16.177, 0.382)
pt3dadd(28.048, 118.782, 16.158, 0.402)
pt3dadd(27.932, 118.762, 16.14, 0.422)
pt3dadd(27.823, 118.711, 16.137, 0.5)
pt3dadd(27.714, 118.661, 16.133, 0.578)
pt3dadd(27.606, 118.61, 16.13, 0.656)
pt3dadd(27.497, 118.56, 16.126, 0.732)
pt3dadd(27.388, 118.509, 16.123, 0.81)
pt3dadd(27.279, 118.459, 16.12, 0.888)
pt3dadd(27.17, 118.408, 16.116, 0.964)
pt3dadd(27.062, 118.358, 16.113, 1.042)
pt3dadd(26.953, 118.307, 16.109, 1.12)
pt3dadd(26.845, 118.256, 16.111, 1.182)
pt3dadd(26.745, 118.198, 16.138, 1.158)
pt3dadd(26.646, 118.14, 16.166, 1.136)
pt3dadd(26.546, 118.082, 16.193, 1.114)
pt3dadd(26.446, 118.025, 16.221, 1.09)
pt3dadd(26.346, 117.967, 16.248, 1.068)
pt3dadd(26.246, 117.909, 16.276, 1.046)
pt3dadd(26.146, 117.851, 16.303, 1.022)
pt3dadd(26.046, 117.794, 16.331, 1)
pt3dadd(25.947, 117.736, 16.358, 0.978)
pt3dadd(25.849, 117.676, 16.389, 0.95)
pt3dadd(25.756, 117.614, 16.424, 0.92)
pt3dadd(25.662, 117.552, 16.459, 0.888)
pt3dadd(25.568, 117.49, 16.494, 0.856)
pt3dadd(25.475, 117.428, 16.529, 0.826)
pt3dadd(25.381, 117.366, 16.564, 0.794)
pt3dadd(25.287, 117.304, 16.599, 0.762)
pt3dadd(25.193, 117.242, 16.634, 0.732)
pt3dadd(25.1, 117.18, 16.669, 0.7)
pt3dadd(25.006, 117.117, 16.704, 0.67)
pt3dadd(24.907, 117.058, 16.729, 0.662)
pt3dadd(24.803, 117.001, 16.746, 0.674)
pt3dadd(24.699, 116.944, 16.763, 0.686)
pt3dadd(24.596, 116.887, 16.779, 0.698)
pt3dadd(24.492, 116.83, 16.796, 0.71)
pt3dadd(24.389, 116.773, 16.813, 0.722)
pt3dadd(24.285, 116.716, 16.83, 0.734)
pt3dadd(24.181, 116.659, 16.847, 0.746)
pt3dadd(24.078, 116.602, 16.864, 0.758)
pt3dadd(23.974, 116.545, 16.881, 0.77)
pt3dadd(23.862, 116.505, 16.887, 0.748)
pt3dadd(23.747, 116.471, 16.889, 0.712)
pt3dadd(23.632, 116.438, 16.891, 0.678)
pt3dadd(23.517, 116.404, 16.893, 0.642)
pt3dadd(23.401, 116.371, 16.894, 0.608)
pt3dadd(23.286, 116.337, 16.896, 0.572)
pt3dadd(23.171, 116.304, 16.898, 0.538)
pt3dadd(23.056, 116.271, 16.9, 0.502)
pt3dadd(22.94, 116.237, 16.902, 0.468)
pt3dadd(22.825, 116.204, 16.903, 0.432)
pt3dadd(22.709, 116.179, 16.896, 0.41)
pt3dadd(22.591, 116.157, 16.884, 0.394)
pt3dadd(22.474, 116.136, 16.873, 0.376)
pt3dadd(22.357, 116.114, 16.861, 0.358)
pt3dadd(22.24, 116.092, 16.85, 0.34)
pt3dadd(22.122, 116.071, 16.839, 0.324)
pt3dadd(22.005, 116.049, 16.827, 0.306)
pt3dadd(21.888, 116.028, 16.816, 0.288)
pt3dadd(21.771, 116.006, 16.805, 0.27)
pt3dadd(21.653, 115.984, 16.793, 0.254)
pt3dadd(21.54, 115.968, 16.765, 0.268)
pt3dadd(21.428, 115.953, 16.732, 0.294)
pt3dadd(21.316, 115.938, 16.698, 0.322)
pt3dadd(21.204, 115.923, 16.664, 0.348)
}
}
proc shape3d_92() {
apic[18] { pt3dadd(21.092, 115.909, 16.63, 0.374)
pt3dadd(20.98, 115.894, 16.597, 0.4)
pt3dadd(20.868, 115.879, 16.563, 0.428)
pt3dadd(20.756, 115.865, 16.529, 0.454)
pt3dadd(20.644, 115.85, 16.496, 0.48)
pt3dadd(20.532, 115.835, 16.462, 0.506)
pt3dadd(20.421, 115.809, 16.431, 0.52)
pt3dadd(20.31, 115.78, 16.401, 0.528)
pt3dadd(20.2, 115.75, 16.371, 0.536)
pt3dadd(20.089, 115.721, 16.341, 0.546)
pt3dadd(19.978, 115.691, 16.311, 0.554)
pt3dadd(19.868, 115.662, 16.281, 0.562)
pt3dadd(19.757, 115.632, 16.251, 0.572)
pt3dadd(19.647, 115.603, 16.221, 0.58)
pt3dadd(19.536, 115.573, 16.191, 0.588)
pt3dadd(19.425, 115.544, 16.161, 0.598)
pt3dadd(19.316, 115.502, 16.139, 0.584)
pt3dadd(19.207, 115.458, 16.118, 0.568)
pt3dadd(19.099, 115.414, 16.097, 0.552)
pt3dadd(18.99, 115.371, 16.075, 0.534)
pt3dadd(18.881, 115.327, 16.054, 0.518)
pt3dadd(18.772, 115.283, 16.033, 0.502)
pt3dadd(18.663, 115.24, 16.012, 0.486)
pt3dadd(18.555, 115.196, 15.991, 0.47)
pt3dadd(18.446, 115.152, 15.969, 0.454)
pt3dadd(18.337, 115.108, 15.948, 0.438)
pt3dadd(18.222, 115.076, 15.937, 0.42)
pt3dadd(18.108, 115.044, 15.926, 0.404)
pt3dadd(17.992, 115.012, 15.915, 0.386)
pt3dadd(17.877, 114.98, 15.905, 0.37)
pt3dadd(17.762, 114.948, 15.894, 0.352)
pt3dadd(17.647, 114.917, 15.883, 0.336)
pt3dadd(17.532, 114.885, 15.873, 0.318)
pt3dadd(17.417, 114.853, 15.862, 0.302)
pt3dadd(17.302, 114.821, 15.851, 0.284)
pt3dadd(17.187, 114.79, 15.841, 0.266)
pt3dadd(17.07, 114.765, 15.837, 0.298)
pt3dadd(16.953, 114.741, 15.835, 0.336)
pt3dadd(16.835, 114.717, 15.832, 0.372)
pt3dadd(16.717, 114.693, 15.83, 0.408)
pt3dadd(16.6, 114.669, 15.827, 0.446)
pt3dadd(16.482, 114.645, 15.825, 0.482)
pt3dadd(16.365, 114.621, 15.823, 0.52)
pt3dadd(16.247, 114.597, 15.82, 0.556)
pt3dadd(16.13, 114.573, 15.818, 0.594)
pt3dadd(16.012, 114.549, 15.815, 0.63)
pt3dadd(15.894, 114.531, 15.815, 0.65)
pt3dadd(15.775, 114.513, 15.815, 0.668)
pt3dadd(15.656, 114.495, 15.815, 0.688)
pt3dadd(15.538, 114.476, 15.815, 0.706)
pt3dadd(15.419, 114.458, 15.815, 0.724)
pt3dadd(15.3, 114.44, 15.815, 0.742)
pt3dadd(15.182, 114.422, 15.815, 0.76)
pt3dadd(15.063, 114.404, 15.815, 0.78)
pt3dadd(14.945, 114.386, 15.815, 0.798)
pt3dadd(14.826, 114.368, 15.815, 0.816)
pt3dadd(14.708, 114.347, 15.815, 0.802)
pt3dadd(14.59, 114.326, 15.815, 0.784)
pt3dadd(14.471, 114.305, 15.814, 0.766)
pt3dadd(14.353, 114.284, 15.814, 0.748)
pt3dadd(14.235, 114.263, 15.814, 0.732)
pt3dadd(14.117, 114.242, 15.814, 0.714)
pt3dadd(13.999, 114.221, 15.814, 0.696)
pt3dadd(13.881, 114.2, 15.814, 0.678)
pt3dadd(13.763, 114.179, 15.814, 0.66)
pt3dadd(13.644, 114.158, 15.814, 0.644)
pt3dadd(13.533, 114.114, 15.814, 0.626)
pt3dadd(13.422, 114.068, 15.814, 0.61)
pt3dadd(13.311, 114.023, 15.814, 0.594)
pt3dadd(13.2, 113.978, 15.814, 0.578)
pt3dadd(13.089, 113.932, 15.813, 0.56)
pt3dadd(12.978, 113.887, 15.813, 0.544)
pt3dadd(12.867, 113.842, 15.813, 0.528)
pt3dadd(12.755, 113.796, 15.813, 0.51)
pt3dadd(12.644, 113.751, 15.813, 0.494)
pt3dadd(12.533, 113.706, 15.813, 0.478)
pt3dadd(12.418, 113.673, 15.813, 0.476)
pt3dadd(12.302, 113.64, 15.812, 0.472)
pt3dadd(12.187, 113.607, 15.812, 0.47)
pt3dadd(12.072, 113.574, 15.812, 0.468)
pt3dadd(11.956, 113.541, 15.812, 0.464)
pt3dadd(11.841, 113.508, 15.812, 0.462)
pt3dadd(11.725, 113.475, 15.811, 0.46)
pt3dadd(11.61, 113.442, 15.811, 0.458)
pt3dadd(11.495, 113.409, 15.811, 0.454)
pt3dadd(11.379, 113.377, 15.811, 0.452)
pt3dadd(11.262, 113.353, 15.81, 0.452)
pt3dadd(11.144, 113.33, 15.81, 0.452)
pt3dadd(11.026, 113.306, 15.809, 0.452)
pt3dadd(10.908, 113.283, 15.809, 0.452)
pt3dadd(10.791, 113.26, 15.809, 0.452)
pt3dadd(10.673, 113.236, 15.808, 0.452)
pt3dadd(10.555, 113.213, 15.808, 0.452)
pt3dadd(10.438, 113.19, 15.807, 0.452)
pt3dadd(10.32, 113.166, 15.807, 0.452)
pt3dadd(10.202, 113.143, 15.807, 0.452)
pt3dadd(10.083, 113.128, 15.806, 0.448)
pt3dadd(9.964, 113.113, 15.805, 0.442)
pt3dadd(9.845, 113.097, 15.804, 0.438)
pt3dadd(9.726, 113.082, 15.804, 0.434)
pt3dadd(9.607, 113.067, 15.803, 0.428)
pt3dadd(9.488, 113.052, 15.802, 0.424)
pt3dadd(9.369, 113.037, 15.802, 0.42)
pt3dadd(9.25, 113.022, 15.801, 0.414)
pt3dadd(9.131, 113.007, 15.8, 0.41)
pt3dadd(9.012, 112.991, 15.799, 0.404)
pt3dadd(8.892, 112.982, 15.798, 0.388)
pt3dadd(8.773, 112.972, 15.797, 0.37)
pt3dadd(8.653, 112.963, 15.796, 0.352)
pt3dadd(8.533, 112.953, 15.795, 0.334)
pt3dadd(8.414, 112.943, 15.793, 0.316)
pt3dadd(8.294, 112.934, 15.792, 0.298)
pt3dadd(8.175, 112.924, 15.791, 0.28)
pt3dadd(8.055, 112.915, 15.79, 0.262)
pt3dadd(7.935, 112.905, 15.788, 0.244)
pt3dadd(7.816, 112.895, 15.787, 0.226)
pt3dadd(7.697, 112.879, 15.785, 0.226)
pt3dadd(7.578, 112.863, 15.782, 0.226)
pt3dadd(7.459, 112.846, 15.78, 0.226)
pt3dadd(7.34, 112.83, 15.777, 0.226)
pt3dadd(7.222, 112.813, 15.775, 0.226)
pt3dadd(7.103, 112.797, 15.773, 0.226)
pt3dadd(6.984, 112.78, 15.77, 0.226)
pt3dadd(6.865, 112.764, 15.768, 0.226)
pt3dadd(6.746, 112.748, 15.766, 0.226)
pt3dadd(6.627, 112.731, 15.763, 0.226)
pt3dadd(6.515, 112.69, 15.758, 0.25)
pt3dadd(6.402, 112.649, 15.753, 0.276)
pt3dadd(6.289, 112.609, 15.748, 0.3)
pt3dadd(6.177, 112.568, 15.744, 0.324)
pt3dadd(6.064, 112.527, 15.739, 0.348)
pt3dadd(5.951, 112.486, 15.734, 0.372)
pt3dadd(5.838, 112.446, 15.729, 0.396)
pt3dadd(5.726, 112.405, 15.724, 0.42)
pt3dadd(5.613, 112.364, 15.72, 0.446)
pt3dadd(5.5, 112.323, 15.715, 0.468)
pt3dadd(5.39, 112.277, 15.707, 0.476)
pt3dadd(5.28, 112.23, 15.701, 0.484)
pt3dadd(5.169, 112.184, 15.694, 0.494)
pt3dadd(5.059, 112.138, 15.687, 0.502)
pt3dadd(4.948, 112.092, 15.68, 0.51)
pt3dadd(4.838, 112.046, 15.673, 0.52)
pt3dadd(4.727, 112, 15.666, 0.528)
pt3dadd(4.617, 111.954, 15.659, 0.536)
pt3dadd(4.506, 111.907, 15.652, 0.544)
pt3dadd(4.396, 111.862, 15.644, 0.55)
pt3dadd(4.283, 111.822, 15.634, 0.518)
pt3dadd(4.171, 111.781, 15.623, 0.488)
pt3dadd(4.059, 111.741, 15.612, 0.458)
pt3dadd(3.947, 111.701, 15.601, 0.426)
pt3dadd(3.834, 111.661, 15.59, 0.396)
pt3dadd(3.722, 111.62, 15.58, 0.364)
pt3dadd(3.61, 111.58, 15.569, 0.334)
pt3dadd(3.497, 111.54, 15.558, 0.304)
pt3dadd(3.385, 111.5, 15.547, 0.272)
pt3dadd(3.273, 111.46, 15.534, 0.25)
pt3dadd(3.167, 111.425, 15.499, 0.284)
pt3dadd(3.06, 111.39, 15.464, 0.32)
pt3dadd(2.953, 111.355, 15.429, 0.354)
pt3dadd(2.846, 111.32, 15.394, 0.39)
pt3dadd(2.739, 111.284, 15.359, 0.424)
pt3dadd(2.633, 111.249, 15.323, 0.458)
pt3dadd(2.526, 111.214, 15.288, 0.494)
pt3dadd(2.419, 111.179, 15.253, 0.528)
pt3dadd(2.312, 111.144, 15.218, 0.562)
pt3dadd(2.206, 111.106, 15.185, 0.59)
pt3dadd(2.102, 111.05, 15.166, 0.572)
pt3dadd(1.999, 110.994, 15.147, 0.554)
pt3dadd(1.895, 110.939, 15.128, 0.536)
pt3dadd(1.791, 110.883, 15.109, 0.518)
pt3dadd(1.688, 110.827, 15.09, 0.5)
pt3dadd(1.584, 110.771, 15.071, 0.482)
pt3dadd(1.48, 110.715, 15.052, 0.464)
pt3dadd(1.376, 110.659, 15.033, 0.446)
pt3dadd(1.273, 110.603, 15.014, 0.428)
pt3dadd(1.172, 110.543, 14.998, 0.41)
pt3dadd(1.081, 110.464, 14.992, 0.39)
pt3dadd(0.991, 110.385, 14.987, 0.372)
pt3dadd(0.901, 110.307, 14.981, 0.352)
pt3dadd(0.81, 110.228, 14.976, 0.334)
pt3dadd(0.72, 110.149, 14.97, 0.314)
pt3dadd(0.63, 110.07, 14.965, 0.294)
pt3dadd(0.539, 109.992, 14.96, 0.276)
pt3dadd(0.449, 109.913, 14.954, 0.256)
pt3dadd(0.358, 109.834, 14.949, 0.238)
pt3dadd(0.271, 109.755, 14.958, 0.226)
pt3dadd(0.189, 109.675, 14.987, 0.226)
pt3dadd(0.107, 109.595, 15.016, 0.226)
pt3dadd(0.024, 109.515, 15.045, 0.226)
pt3dadd(-0.058, 109.435, 15.074, 0.226)
pt3dadd(-0.14, 109.355, 15.103, 0.226)
pt3dadd(-0.223, 109.275, 15.132, 0.226)
pt3dadd(-0.305, 109.195, 15.16, 0.226)
pt3dadd(-0.387, 109.115, 15.189, 0.226)
pt3dadd(-0.47, 109.035, 15.218, 0.226)
pt3dadd(-0.553, 108.987, 15.278, 0.226)
pt3dadd(-0.637, 108.939, 15.338, 0.226)
pt3dadd(-0.721, 108.891, 15.398, 0.226)
pt3dadd(-0.804, 108.844, 15.457, 0.226)
pt3dadd(-0.888, 108.796, 15.517, 0.226)
}
}
proc shape3d_93() {
apic[18] { pt3dadd(-0.971, 108.748, 15.577, 0.226)
pt3dadd(-1.055, 108.7, 15.636, 0.226)
pt3dadd(-1.139, 108.653, 15.696, 0.226)
pt3dadd(-1.222, 108.605, 15.756, 0.226)
pt3dadd(-1.306, 108.557, 15.815, 0.226)
}
apic[19] {pt3dclear()
pt3dadd(97.382, 137.94, 18.507, 2.034)
pt3dadd(97.382, 137.867, 18.501, 1.978)
pt3dadd(97.382, 137.747, 18.492, 1.886)
pt3dadd(97.382, 137.628, 18.483, 1.794)
pt3dadd(97.382, 137.508, 18.473, 1.702)
pt3dadd(97.382, 137.389, 18.464, 1.61)
pt3dadd(97.382, 137.269, 18.455, 1.518)
pt3dadd(97.382, 137.149, 18.445, 1.426)
pt3dadd(97.382, 137.03, 18.436, 1.334)
pt3dadd(97.382, 136.91, 18.427, 1.242)
pt3dadd(97.376, 136.792, 18.417, 1.156)
pt3dadd(97.358, 136.674, 18.409, 1.082)
pt3dadd(97.34, 136.555, 18.401, 1.008)
pt3dadd(97.322, 136.438, 18.393, 0.934)
pt3dadd(97.304, 136.319, 18.385, 0.86)
pt3dadd(97.286, 136.201, 18.377, 0.786)
pt3dadd(97.268, 136.082, 18.369, 0.712)
pt3dadd(97.25, 135.964, 18.361, 0.638)
pt3dadd(97.232, 135.846, 18.352, 0.564)
pt3dadd(97.214, 135.727, 18.344, 0.49)
pt3dadd(97.142, 135.636, 18.341, 0.486)
pt3dadd(97.059, 135.548, 18.34, 0.498)
pt3dadd(96.976, 135.462, 18.338, 0.508)
pt3dadd(96.893, 135.376, 18.337, 0.52)
pt3dadd(96.81, 135.289, 18.335, 0.532)
pt3dadd(96.727, 135.203, 18.334, 0.544)
pt3dadd(96.644, 135.116, 18.332, 0.556)
pt3dadd(96.561, 135.03, 18.331, 0.566)
pt3dadd(96.478, 134.942, 18.329, 0.578)
pt3dadd(96.395, 134.856, 18.328, 0.59)
pt3dadd(96.312, 134.77, 18.326, 0.6)
pt3dadd(96.229, 134.683, 18.325, 0.608)
pt3dadd(96.146, 134.596, 18.323, 0.616)
pt3dadd(96.063, 134.509, 18.321, 0.624)
pt3dadd(95.981, 134.422, 18.32, 0.634)
pt3dadd(95.898, 134.335, 18.318, 0.642)
pt3dadd(95.815, 134.249, 18.316, 0.65)
pt3dadd(95.732, 134.161, 18.315, 0.66)
pt3dadd(95.65, 134.075, 18.313, 0.668)
pt3dadd(95.567, 133.988, 18.311, 0.676)
pt3dadd(95.484, 133.901, 18.309, 0.678)
pt3dadd(95.402, 133.813, 18.307, 0.678)
pt3dadd(95.32, 133.726, 18.305, 0.678)
pt3dadd(95.238, 133.639, 18.303, 0.678)
pt3dadd(95.155, 133.552, 18.301, 0.678)
pt3dadd(95.073, 133.464, 18.299, 0.678)
pt3dadd(94.991, 133.376, 18.297, 0.678)
pt3dadd(94.908, 133.29, 18.295, 0.678)
pt3dadd(94.826, 133.202, 18.293, 0.678)
pt3dadd(94.744, 133.115, 18.291, 0.678)
pt3dadd(94.663, 133.026, 18.287, 0.662)
pt3dadd(94.583, 132.937, 18.283, 0.644)
pt3dadd(94.503, 132.847, 18.279, 0.624)
pt3dadd(94.423, 132.758, 18.275, 0.604)
pt3dadd(94.343, 132.67, 18.271, 0.586)
pt3dadd(94.263, 132.58, 18.267, 0.566)
pt3dadd(94.183, 132.491, 18.263, 0.548)
pt3dadd(94.103, 132.401, 18.259, 0.528)
pt3dadd(94.023, 132.312, 18.255, 0.508)
pt3dadd(93.943, 132.223, 18.251, 0.49)
pt3dadd(93.863, 132.133, 18.246, 0.466)
pt3dadd(93.784, 132.043, 18.241, 0.442)
pt3dadd(93.705, 131.953, 18.236, 0.416)
pt3dadd(93.626, 131.863, 18.232, 0.392)
pt3dadd(93.547, 131.772, 18.227, 0.366)
pt3dadd(93.468, 131.682, 18.222, 0.342)
pt3dadd(93.389, 131.592, 18.217, 0.316)
pt3dadd(93.31, 131.502, 18.212, 0.292)
pt3dadd(93.231, 131.412, 18.208, 0.266)
pt3dadd(93.152, 131.322, 18.203, 0.242)
pt3dadd(93.078, 131.228, 18.195, 0.272)
pt3dadd(93.005, 131.134, 18.187, 0.316)
pt3dadd(92.932, 131.039, 18.179, 0.358)
pt3dadd(92.859, 130.944, 18.17, 0.4)
pt3dadd(92.785, 130.849, 18.162, 0.442)
pt3dadd(92.712, 130.754, 18.154, 0.484)
pt3dadd(92.639, 130.661, 18.146, 0.526)
pt3dadd(92.566, 130.566, 18.138, 0.57)
pt3dadd(92.493, 130.471, 18.13, 0.612)
pt3dadd(92.42, 130.376, 18.121, 0.654)
pt3dadd(92.357, 130.276, 18.105, 0.698)
pt3dadd(92.297, 130.175, 18.086, 0.744)
pt3dadd(92.237, 130.074, 18.067, 0.79)
pt3dadd(92.176, 129.972, 18.048, 0.834)
pt3dadd(92.116, 129.871, 18.03, 0.88)
pt3dadd(92.056, 129.769, 18.011, 0.926)
pt3dadd(91.995, 129.668, 17.992, 0.97)
pt3dadd(91.935, 129.568, 17.973, 1.016)
pt3dadd(91.875, 129.466, 17.955, 1.062)
pt3dadd(91.814, 129.365, 17.936, 1.106)
pt3dadd(91.774, 129.259, 17.904, 1.154)
pt3dadd(91.733, 129.152, 17.872, 1.202)
pt3dadd(91.692, 129.047, 17.84, 1.25)
pt3dadd(91.651, 128.94, 17.808, 1.296)
pt3dadd(91.61, 128.834, 17.776, 1.344)
pt3dadd(91.57, 128.729, 17.743, 1.392)
pt3dadd(91.529, 128.622, 17.711, 1.44)
pt3dadd(91.488, 128.516, 17.679, 1.486)
pt3dadd(91.447, 128.41, 17.647, 1.534)
pt3dadd(91.406, 128.304, 17.615, 1.582)
}
apic[20] {pt3dclear()
pt3dadd(91.406, 128.304, 17.615, 1.582)
pt3dadd(91.399, 128.26, 17.607, 1.556)
pt3dadd(91.38, 128.143, 17.587, 1.486)
pt3dadd(91.36, 128.027, 17.567, 1.416)
pt3dadd(91.341, 127.912, 17.546, 1.346)
pt3dadd(91.322, 127.795, 17.526, 1.278)
pt3dadd(91.302, 127.679, 17.506, 1.208)
pt3dadd(91.283, 127.564, 17.486, 1.138)
pt3dadd(91.264, 127.447, 17.466, 1.068)
pt3dadd(91.246, 127.33, 17.458, 1.01)
pt3dadd(91.228, 127.211, 17.454, 0.956)
pt3dadd(91.211, 127.092, 17.451, 0.9)
pt3dadd(91.194, 126.973, 17.447, 0.846)
pt3dadd(91.176, 126.856, 17.443, 0.792)
pt3dadd(91.159, 126.737, 17.44, 0.736)
pt3dadd(91.141, 126.618, 17.436, 0.682)
pt3dadd(91.124, 126.499, 17.432, 0.628)
pt3dadd(91.106, 126.38, 17.429, 0.572)
pt3dadd(91.089, 126.262, 17.425, 0.518)
pt3dadd(91.071, 126.144, 17.433, 0.496)
pt3dadd(91.054, 126.025, 17.443, 0.478)
pt3dadd(91.036, 125.908, 17.452, 0.458)
pt3dadd(91.019, 125.789, 17.461, 0.44)
pt3dadd(91.002, 125.671, 17.47, 0.422)
pt3dadd(90.984, 125.552, 17.479, 0.402)
pt3dadd(90.967, 125.435, 17.488, 0.384)
pt3dadd(90.949, 125.316, 17.498, 0.366)
pt3dadd(90.932, 125.198, 17.507, 0.346)
pt3dadd(90.914, 125.08, 17.516, 0.328)
pt3dadd(90.886, 124.966, 17.498, 0.382)
pt3dadd(90.858, 124.85, 17.479, 0.434)
pt3dadd(90.83, 124.736, 17.461, 0.486)
pt3dadd(90.801, 124.621, 17.443, 0.54)
pt3dadd(90.773, 124.507, 17.425, 0.592)
pt3dadd(90.745, 124.392, 17.406, 0.646)
pt3dadd(90.717, 124.278, 17.388, 0.698)
pt3dadd(90.689, 124.163, 17.37, 0.75)
pt3dadd(90.66, 124.049, 17.351, 0.804)
pt3dadd(90.632, 123.934, 17.333, 0.856)
pt3dadd(90.568, 123.835, 17.315, 0.832)
pt3dadd(90.505, 123.736, 17.296, 0.808)
pt3dadd(90.441, 123.636, 17.277, 0.784)
pt3dadd(90.378, 123.538, 17.259, 0.76)
pt3dadd(90.314, 123.438, 17.24, 0.736)
pt3dadd(90.251, 123.338, 17.221, 0.712)
pt3dadd(90.187, 123.239, 17.202, 0.69)
pt3dadd(90.123, 123.14, 17.184, 0.666)
pt3dadd(90.06, 123.041, 17.165, 0.642)
pt3dadd(89.996, 122.942, 17.146, 0.618)
pt3dadd(89.921, 122.851, 17.127, 0.608)
pt3dadd(89.846, 122.76, 17.108, 0.598)
pt3dadd(89.771, 122.669, 17.089, 0.588)
pt3dadd(89.696, 122.578, 17.07, 0.578)
pt3dadd(89.622, 122.486, 17.051, 0.568)
pt3dadd(89.547, 122.396, 17.032, 0.558)
pt3dadd(89.472, 122.305, 17.013, 0.548)
pt3dadd(89.397, 122.214, 16.994, 0.538)
pt3dadd(89.322, 122.123, 16.975, 0.528)
pt3dadd(89.246, 122.033, 16.956, 0.52)
pt3dadd(89.163, 121.95, 16.937, 0.534)
pt3dadd(89.08, 121.866, 16.917, 0.548)
pt3dadd(88.997, 121.783, 16.898, 0.562)
pt3dadd(88.913, 121.699, 16.879, 0.576)
pt3dadd(88.83, 121.616, 16.86, 0.592)
pt3dadd(88.747, 121.534, 16.84, 0.606)
pt3dadd(88.664, 121.45, 16.821, 0.62)
pt3dadd(88.58, 121.367, 16.802, 0.634)
pt3dadd(88.497, 121.284, 16.783, 0.648)
pt3dadd(88.413, 121.202, 16.762, 0.662)
pt3dadd(88.317, 121.142, 16.728, 0.662)
pt3dadd(88.222, 121.081, 16.694, 0.664)
pt3dadd(88.127, 121.021, 16.66, 0.666)
pt3dadd(88.031, 120.96, 16.626, 0.668)
pt3dadd(87.936, 120.9, 16.592, 0.67)
pt3dadd(87.841, 120.84, 16.558, 0.672)
pt3dadd(87.746, 120.779, 16.524, 0.674)
pt3dadd(87.65, 120.719, 16.49, 0.674)
pt3dadd(87.555, 120.658, 16.456, 0.676)
pt3dadd(87.46, 120.598, 16.423, 0.678)
pt3dadd(87.364, 120.535, 16.39, 0.684)
pt3dadd(87.269, 120.474, 16.357, 0.69)
pt3dadd(87.174, 120.413, 16.325, 0.696)
pt3dadd(87.079, 120.35, 16.292, 0.7)
pt3dadd(86.984, 120.289, 16.26, 0.706)
pt3dadd(86.889, 120.227, 16.227, 0.712)
pt3dadd(86.793, 120.166, 16.194, 0.718)
pt3dadd(86.698, 120.104, 16.162, 0.722)
pt3dadd(86.603, 120.042, 16.129, 0.728)
pt3dadd(86.508, 119.979, 16.097, 0.736)
pt3dadd(86.416, 119.91, 16.07, 0.75)
pt3dadd(86.323, 119.841, 16.044, 0.766)
pt3dadd(86.23, 119.772, 16.017, 0.78)
pt3dadd(86.138, 119.702, 15.99, 0.796)
pt3dadd(86.045, 119.633, 15.963, 0.81)
pt3dadd(85.953, 119.564, 15.936, 0.826)
}
}
proc shape3d_94() {
apic[20] { pt3dadd(85.86, 119.495, 15.91, 0.84)
pt3dadd(85.767, 119.425, 15.883, 0.856)
pt3dadd(85.675, 119.356, 15.856, 0.872)
pt3dadd(85.583, 119.286, 15.83, 0.88)
pt3dadd(85.495, 119.208, 15.81, 0.856)
pt3dadd(85.407, 119.13, 15.789, 0.832)
pt3dadd(85.32, 119.052, 15.769, 0.806)
pt3dadd(85.232, 118.974, 15.748, 0.782)
pt3dadd(85.144, 118.896, 15.728, 0.758)
pt3dadd(85.056, 118.818, 15.707, 0.732)
pt3dadd(84.968, 118.74, 15.687, 0.708)
pt3dadd(84.88, 118.662, 15.667, 0.684)
pt3dadd(84.793, 118.584, 15.646, 0.66)
pt3dadd(84.706, 118.505, 15.624, 0.64)
pt3dadd(84.625, 118.424, 15.594, 0.644)
pt3dadd(84.544, 118.343, 15.565, 0.65)
pt3dadd(84.463, 118.262, 15.535, 0.654)
pt3dadd(84.381, 118.182, 15.505, 0.66)
pt3dadd(84.3, 118.101, 15.475, 0.664)
pt3dadd(84.219, 118.02, 15.445, 0.668)
pt3dadd(84.138, 117.939, 15.416, 0.674)
pt3dadd(84.057, 117.858, 15.386, 0.678)
pt3dadd(83.976, 117.777, 15.356, 0.684)
pt3dadd(83.898, 117.695, 15.323, 0.7)
pt3dadd(83.827, 117.611, 15.284, 0.744)
pt3dadd(83.756, 117.527, 15.244, 0.788)
pt3dadd(83.685, 117.443, 15.204, 0.832)
pt3dadd(83.614, 117.359, 15.164, 0.878)
pt3dadd(83.543, 117.275, 15.124, 0.922)
pt3dadd(83.472, 117.191, 15.084, 0.966)
pt3dadd(83.401, 117.107, 15.044, 1.01)
pt3dadd(83.33, 117.022, 15.004, 1.056)
pt3dadd(83.26, 116.938, 14.964, 1.1)
pt3dadd(83.188, 116.852, 14.929, 1.13)
pt3dadd(83.115, 116.761, 14.904, 1.13)
pt3dadd(83.043, 116.67, 14.879, 1.13)
pt3dadd(82.97, 116.58, 14.855, 1.13)
pt3dadd(82.898, 116.489, 14.83, 1.13)
pt3dadd(82.825, 116.398, 14.805, 1.13)
pt3dadd(82.752, 116.307, 14.781, 1.13)
pt3dadd(82.68, 116.216, 14.756, 1.13)
pt3dadd(82.607, 116.126, 14.731, 1.13)
pt3dadd(82.534, 116.035, 14.707, 1.13)
pt3dadd(82.469, 115.938, 14.686, 1.13)
pt3dadd(82.419, 115.83, 14.675, 1.13)
pt3dadd(82.369, 115.722, 14.664, 1.13)
pt3dadd(82.319, 115.614, 14.652, 1.13)
pt3dadd(82.269, 115.506, 14.641, 1.13)
pt3dadd(82.218, 115.397, 14.63, 1.13)
pt3dadd(82.168, 115.289, 14.618, 1.13)
pt3dadd(82.118, 115.181, 14.607, 1.13)
pt3dadd(82.068, 115.073, 14.596, 1.13)
pt3dadd(82.018, 114.965, 14.585, 1.13)
pt3dadd(81.964, 114.858, 14.576, 1.126)
pt3dadd(81.904, 114.755, 14.573, 1.114)
pt3dadd(81.843, 114.651, 14.571, 1.102)
pt3dadd(81.783, 114.547, 14.568, 1.092)
pt3dadd(81.722, 114.444, 14.565, 1.08)
pt3dadd(81.661, 114.34, 14.563, 1.068)
pt3dadd(81.601, 114.237, 14.56, 1.056)
pt3dadd(81.54, 114.133, 14.557, 1.046)
pt3dadd(81.48, 114.03, 14.555, 1.034)
pt3dadd(81.419, 113.926, 14.552, 1.022)
pt3dadd(81.359, 113.822, 14.55, 1.006)
pt3dadd(81.299, 113.718, 14.55, 0.982)
pt3dadd(81.239, 113.615, 14.55, 0.956)
pt3dadd(81.179, 113.511, 14.55, 0.932)
pt3dadd(81.119, 113.407, 14.55, 0.908)
pt3dadd(81.059, 113.303, 14.55, 0.884)
pt3dadd(80.999, 113.199, 14.55, 0.858)
pt3dadd(80.938, 113.095, 14.55, 0.834)
pt3dadd(80.878, 112.991, 14.55, 0.81)
pt3dadd(80.818, 112.887, 14.55, 0.786)
pt3dadd(80.762, 112.782, 14.55, 0.752)
pt3dadd(80.712, 112.673, 14.55, 0.702)
pt3dadd(80.661, 112.564, 14.55, 0.654)
pt3dadd(80.611, 112.455, 14.55, 0.604)
pt3dadd(80.561, 112.346, 14.55, 0.556)
pt3dadd(80.51, 112.237, 14.55, 0.506)
pt3dadd(80.46, 112.128, 14.55, 0.458)
pt3dadd(80.41, 112.019, 14.55, 0.408)
pt3dadd(80.359, 111.91, 14.55, 0.36)
pt3dadd(80.309, 111.801, 14.55, 0.31)
pt3dadd(80.253, 111.696, 14.55, 0.288)
pt3dadd(80.187, 111.596, 14.55, 0.31)
pt3dadd(80.12, 111.496, 14.55, 0.33)
pt3dadd(80.054, 111.396, 14.55, 0.352)
pt3dadd(79.987, 111.296, 14.55, 0.372)
pt3dadd(79.921, 111.196, 14.55, 0.394)
pt3dadd(79.854, 111.096, 14.55, 0.414)
pt3dadd(79.788, 110.996, 14.55, 0.436)
pt3dadd(79.721, 110.896, 14.55, 0.456)
pt3dadd(79.655, 110.796, 14.55, 0.478)
pt3dadd(79.587, 110.697, 14.55, 0.5)
pt3dadd(79.516, 110.6, 14.55, 0.524)
pt3dadd(79.445, 110.503, 14.55, 0.548)
pt3dadd(79.375, 110.407, 14.55, 0.572)
pt3dadd(79.304, 110.31, 14.55, 0.596)
pt3dadd(79.233, 110.213, 14.55, 0.62)
pt3dadd(79.162, 110.116, 14.55, 0.644)
pt3dadd(79.092, 110.019, 14.55, 0.668)
pt3dadd(79.021, 109.922, 14.55, 0.692)
pt3dadd(78.95, 109.825, 14.55, 0.716)
pt3dadd(78.878, 109.729, 14.55, 0.738)
pt3dadd(78.803, 109.635, 14.55, 0.752)
pt3dadd(78.729, 109.541, 14.55, 0.766)
pt3dadd(78.654, 109.447, 14.55, 0.78)
pt3dadd(78.579, 109.353, 14.55, 0.794)
pt3dadd(78.504, 109.26, 14.55, 0.81)
pt3dadd(78.43, 109.166, 14.55, 0.824)
pt3dadd(78.355, 109.072, 14.55, 0.838)
pt3dadd(78.28, 108.978, 14.55, 0.852)
pt3dadd(78.206, 108.884, 14.55, 0.866)
pt3dadd(78.134, 108.788, 14.55, 0.882)
pt3dadd(78.067, 108.688, 14.55, 0.898)
pt3dadd(78, 108.589, 14.55, 0.914)
pt3dadd(77.933, 108.489, 14.55, 0.93)
pt3dadd(77.866, 108.39, 14.55, 0.944)
pt3dadd(77.799, 108.29, 14.55, 0.96)
pt3dadd(77.732, 108.19, 14.55, 0.976)
pt3dadd(77.665, 108.091, 14.55, 0.992)
pt3dadd(77.598, 107.991, 14.55, 1.008)
pt3dadd(77.532, 107.892, 14.55, 1.024)
pt3dadd(77.463, 107.793, 14.55, 1.032)
pt3dadd(77.393, 107.696, 14.55, 1.03)
pt3dadd(77.322, 107.598, 14.55, 1.026)
pt3dadd(77.252, 107.501, 14.55, 1.024)
pt3dadd(77.182, 107.404, 14.55, 1.022)
pt3dadd(77.112, 107.307, 14.55, 1.018)
pt3dadd(77.041, 107.209, 14.55, 1.016)
pt3dadd(76.971, 107.112, 14.55, 1.014)
pt3dadd(76.9, 107.015, 14.55, 1.01)
pt3dadd(76.83, 106.918, 14.55, 1.008)
pt3dadd(76.757, 106.823, 14.55, 0.994)
pt3dadd(76.679, 106.732, 14.55, 0.962)
pt3dadd(76.601, 106.64, 14.55, 0.932)
pt3dadd(76.523, 106.549, 14.55, 0.902)
pt3dadd(76.445, 106.458, 14.55, 0.87)
pt3dadd(76.367, 106.367, 14.55, 0.84)
pt3dadd(76.29, 106.275, 14.55, 0.808)
pt3dadd(76.212, 106.184, 14.55, 0.778)
pt3dadd(76.134, 106.093, 14.55, 0.748)
pt3dadd(76.056, 106.001, 14.55, 0.716)
pt3dadd(75.969, 105.919, 14.55, 0.71)
pt3dadd(75.871, 105.85, 14.55, 0.74)
pt3dadd(75.773, 105.781, 14.55, 0.77)
pt3dadd(75.675, 105.712, 14.55, 0.798)
pt3dadd(75.577, 105.643, 14.55, 0.828)
pt3dadd(75.479, 105.574, 14.55, 0.856)
pt3dadd(75.38, 105.505, 14.55, 0.886)
pt3dadd(75.282, 105.437, 14.55, 0.914)
pt3dadd(75.184, 105.368, 14.55, 0.944)
pt3dadd(75.086, 105.299, 14.55, 0.974)
pt3dadd(74.988, 105.229, 14.55, 0.982)
pt3dadd(74.89, 105.159, 14.55, 0.962)
pt3dadd(74.793, 105.089, 14.55, 0.944)
pt3dadd(74.696, 105.019, 14.55, 0.924)
pt3dadd(74.598, 104.949, 14.55, 0.906)
pt3dadd(74.501, 104.879, 14.55, 0.886)
pt3dadd(74.403, 104.809, 14.55, 0.868)
pt3dadd(74.306, 104.739, 14.55, 0.848)
pt3dadd(74.209, 104.668, 14.55, 0.83)
pt3dadd(74.111, 104.598, 14.55, 0.81)
pt3dadd(74.015, 104.527, 14.55, 0.774)
pt3dadd(73.919, 104.455, 14.55, 0.718)
pt3dadd(73.823, 104.383, 14.55, 0.66)
pt3dadd(73.727, 104.31, 14.55, 0.602)
pt3dadd(73.631, 104.238, 14.55, 0.546)
pt3dadd(73.536, 104.166, 14.55, 0.488)
pt3dadd(73.44, 104.094, 14.55, 0.432)
pt3dadd(73.344, 104.021, 14.55, 0.374)
pt3dadd(73.248, 103.949, 14.55, 0.318)
pt3dadd(73.153, 103.877, 14.55, 0.26)
pt3dadd(73.059, 103.801, 14.55, 0.228)
pt3dadd(72.97, 103.721, 14.55, 0.228)
pt3dadd(72.88, 103.641, 14.55, 0.228)
pt3dadd(72.791, 103.561, 14.55, 0.228)
pt3dadd(72.701, 103.481, 14.55, 0.228)
pt3dadd(72.612, 103.401, 14.55, 0.228)
pt3dadd(72.522, 103.322, 14.55, 0.226)
pt3dadd(72.433, 103.242, 14.55, 0.226)
pt3dadd(72.343, 103.162, 14.55, 0.226)
pt3dadd(72.254, 103.082, 14.55, 0.226)
pt3dadd(72.165, 103.001, 14.55, 0.228)
pt3dadd(72.077, 102.92, 14.55, 0.232)
pt3dadd(71.989, 102.838, 14.55, 0.236)
pt3dadd(71.901, 102.757, 14.55, 0.24)
pt3dadd(71.813, 102.675, 14.55, 0.244)
pt3dadd(71.725, 102.593, 14.55, 0.248)
pt3dadd(71.637, 102.512, 14.55, 0.252)
pt3dadd(71.549, 102.43, 14.55, 0.254)
pt3dadd(71.461, 102.349, 14.55, 0.258)
pt3dadd(71.373, 102.267, 14.55, 0.262)
pt3dadd(71.286, 102.184, 14.55, 0.27)
pt3dadd(71.202, 102.099, 14.55, 0.284)
pt3dadd(71.117, 102.014, 14.55, 0.296)
pt3dadd(71.033, 101.928, 14.55, 0.308)
pt3dadd(70.948, 101.843, 14.55, 0.322)
pt3dadd(70.863, 101.758, 14.55, 0.334)
pt3dadd(70.779, 101.673, 14.55, 0.346)
}
}
proc shape3d_95() {
apic[20] { pt3dadd(70.694, 101.588, 14.55, 0.36)
pt3dadd(70.61, 101.503, 14.55, 0.372)
pt3dadd(70.525, 101.418, 14.55, 0.384)
pt3dadd(70.441, 101.332, 14.55, 0.398)
pt3dadd(70.357, 101.247, 14.55, 0.41)
pt3dadd(70.272, 101.161, 14.55, 0.422)
pt3dadd(70.188, 101.076, 14.55, 0.436)
pt3dadd(70.104, 100.99, 14.55, 0.448)
pt3dadd(70.02, 100.905, 14.55, 0.462)
pt3dadd(69.935, 100.82, 14.55, 0.474)
pt3dadd(69.851, 100.734, 14.55, 0.486)
pt3dadd(69.767, 100.649, 14.55, 0.5)
pt3dadd(69.683, 100.563, 14.55, 0.512)
pt3dadd(69.599, 100.478, 14.55, 0.524)
pt3dadd(69.515, 100.392, 14.55, 0.538)
pt3dadd(69.431, 100.306, 14.55, 0.55)
pt3dadd(69.346, 100.221, 14.55, 0.562)
pt3dadd(69.262, 100.135, 14.55, 0.576)
pt3dadd(69.178, 100.049, 14.55, 0.588)
pt3dadd(69.094, 99.963, 14.55, 0.602)
pt3dadd(69.01, 99.878, 14.55, 0.614)
pt3dadd(68.926, 99.792, 14.55, 0.626)
pt3dadd(68.842, 99.706, 14.55, 0.64)
pt3dadd(68.759, 99.621, 14.55, 0.64)
pt3dadd(68.675, 99.534, 14.55, 0.624)
pt3dadd(68.592, 99.448, 14.55, 0.606)
pt3dadd(68.509, 99.361, 14.55, 0.59)
pt3dadd(68.425, 99.275, 14.55, 0.574)
pt3dadd(68.342, 99.189, 14.55, 0.558)
pt3dadd(68.259, 99.102, 14.55, 0.542)
pt3dadd(68.175, 99.016, 14.55, 0.526)
pt3dadd(68.092, 98.93, 14.55, 0.51)
pt3dadd(68.009, 98.843, 14.55, 0.492)
pt3dadd(67.926, 98.757, 14.55, 0.472)
pt3dadd(67.842, 98.67, 14.55, 0.446)
pt3dadd(67.759, 98.584, 14.55, 0.42)
pt3dadd(67.676, 98.497, 14.55, 0.396)
pt3dadd(67.593, 98.411, 14.55, 0.37)
pt3dadd(67.51, 98.324, 14.55, 0.344)
pt3dadd(67.427, 98.238, 14.55, 0.318)
pt3dadd(67.344, 98.151, 14.55, 0.292)
pt3dadd(67.26, 98.064, 14.55, 0.266)
pt3dadd(67.177, 97.978, 14.55, 0.24)
pt3dadd(67.095, 97.89, 14.55, 0.244)
pt3dadd(67.015, 97.802, 14.55, 0.284)
pt3dadd(66.934, 97.713, 14.55, 0.324)
pt3dadd(66.854, 97.624, 14.55, 0.362)
pt3dadd(66.773, 97.535, 14.55, 0.402)
pt3dadd(66.692, 97.446, 14.55, 0.442)
pt3dadd(66.612, 97.357, 14.55, 0.482)
pt3dadd(66.531, 97.268, 14.55, 0.522)
pt3dadd(66.45, 97.179, 14.55, 0.562)
pt3dadd(66.37, 97.09, 14.55, 0.6)
pt3dadd(66.29, 97.001, 14.55, 0.638)
pt3dadd(66.21, 96.911, 14.55, 0.67)
pt3dadd(66.131, 96.822, 14.55, 0.702)
pt3dadd(66.051, 96.732, 14.55, 0.734)
pt3dadd(65.971, 96.642, 14.55, 0.766)
pt3dadd(65.892, 96.552, 14.55, 0.798)
pt3dadd(65.812, 96.462, 14.55, 0.83)
pt3dadd(65.733, 96.372, 14.55, 0.862)
pt3dadd(65.653, 96.282, 14.55, 0.894)
pt3dadd(65.574, 96.193, 14.55, 0.926)
pt3dadd(65.495, 96.102, 14.55, 0.95)
pt3dadd(65.418, 96.01, 14.55, 0.964)
pt3dadd(65.342, 95.917, 14.55, 0.978)
pt3dadd(65.265, 95.825, 14.55, 0.992)
pt3dadd(65.188, 95.733, 14.55, 1.006)
pt3dadd(65.111, 95.641, 14.55, 1.018)
pt3dadd(65.034, 95.549, 14.55, 1.032)
pt3dadd(64.957, 95.457, 14.55, 1.046)
pt3dadd(64.881, 95.364, 14.55, 1.06)
pt3dadd(64.804, 95.272, 14.55, 1.074)
pt3dadd(64.734, 95.175, 14.55, 1.078)
pt3dadd(64.672, 95.072, 14.55, 1.074)
pt3dadd(64.611, 94.969, 14.55, 1.068)
pt3dadd(64.549, 94.866, 14.55, 1.062)
pt3dadd(64.487, 94.763, 14.55, 1.056)
pt3dadd(64.426, 94.66, 14.55, 1.052)
pt3dadd(64.364, 94.557, 14.55, 1.046)
pt3dadd(64.302, 94.454, 14.55, 1.04)
pt3dadd(64.241, 94.351, 14.55, 1.034)
pt3dadd(64.179, 94.248, 14.55, 1.03)
pt3dadd(64.122, 94.143, 14.55, 1.024)
pt3dadd(64.068, 94.036, 14.55, 1.02)
pt3dadd(64.015, 93.928, 14.55, 1.014)
pt3dadd(63.961, 93.821, 14.55, 1.01)
pt3dadd(63.908, 93.714, 14.55, 1.006)
pt3dadd(63.854, 93.606, 14.55, 1)
pt3dadd(63.801, 93.499, 14.55, 0.996)
pt3dadd(63.747, 93.391, 14.55, 0.99)
pt3dadd(63.694, 93.284, 14.55, 0.986)
pt3dadd(63.64, 93.177, 14.55, 0.98)
pt3dadd(63.585, 93.07, 14.55, 0.996)
pt3dadd(63.528, 92.964, 14.55, 1.026)
pt3dadd(63.471, 92.859, 14.55, 1.058)
pt3dadd(63.414, 92.753, 14.55, 1.09)
pt3dadd(63.357, 92.647, 14.55, 1.12)
pt3dadd(63.3, 92.542, 14.55, 1.152)
pt3dadd(63.244, 92.436, 14.55, 1.184)
pt3dadd(63.187, 92.33, 14.55, 1.216)
pt3dadd(63.13, 92.225, 14.55, 1.246)
pt3dadd(63.073, 92.119, 14.55, 1.278)
pt3dadd(63.025, 92.009, 14.55, 1.282)
pt3dadd(62.986, 91.896, 14.55, 1.262)
pt3dadd(62.947, 91.782, 14.55, 1.24)
pt3dadd(62.907, 91.669, 14.55, 1.218)
pt3dadd(62.868, 91.556, 14.55, 1.198)
pt3dadd(62.829, 91.442, 14.55, 1.176)
pt3dadd(62.79, 91.329, 14.55, 1.154)
pt3dadd(62.751, 91.215, 14.55, 1.134)
pt3dadd(62.711, 91.102, 14.55, 1.112)
pt3dadd(62.672, 90.989, 14.55, 1.09)
pt3dadd(62.637, 90.874, 14.55, 1.072)
pt3dadd(62.606, 90.758, 14.55, 1.054)
pt3dadd(62.574, 90.642, 14.55, 1.036)
pt3dadd(62.543, 90.526, 14.549, 1.018)
pt3dadd(62.512, 90.411, 14.549, 1)
pt3dadd(62.481, 90.295, 14.549, 0.982)
pt3dadd(62.449, 90.179, 14.549, 0.966)
pt3dadd(62.418, 90.063, 14.549, 0.948)
pt3dadd(62.386, 89.947, 14.549, 0.93)
pt3dadd(62.355, 89.831, 14.549, 0.912)
pt3dadd(62.326, 89.715, 14.549, 0.9)
pt3dadd(62.298, 89.598, 14.549, 0.894)
pt3dadd(62.27, 89.482, 14.549, 0.888)
pt3dadd(62.243, 89.365, 14.549, 0.88)
pt3dadd(62.215, 89.248, 14.549, 0.874)
pt3dadd(62.187, 89.131, 14.549, 0.868)
pt3dadd(62.16, 89.015, 14.549, 0.862)
pt3dadd(62.132, 88.898, 14.549, 0.854)
pt3dadd(62.104, 88.781, 14.549, 0.848)
pt3dadd(62.076, 88.664, 14.549, 0.842)
pt3dadd(62.048, 88.548, 14.548, 0.82)
pt3dadd(62.02, 88.431, 14.548, 0.784)
pt3dadd(61.991, 88.314, 14.548, 0.75)
pt3dadd(61.963, 88.198, 14.548, 0.714)
pt3dadd(61.934, 88.081, 14.548, 0.68)
pt3dadd(61.906, 87.965, 14.548, 0.644)
pt3dadd(61.878, 87.848, 14.548, 0.61)
pt3dadd(61.849, 87.732, 14.547, 0.574)
pt3dadd(61.821, 87.615, 14.547, 0.54)
pt3dadd(61.792, 87.498, 14.547, 0.504)
pt3dadd(61.745, 87.39, 14.547, 0.494)
pt3dadd(61.683, 87.287, 14.547, 0.504)
pt3dadd(61.621, 87.184, 14.546, 0.514)
pt3dadd(61.559, 87.081, 14.546, 0.524)
pt3dadd(61.497, 86.979, 14.546, 0.534)
pt3dadd(61.435, 86.876, 14.546, 0.544)
pt3dadd(61.373, 86.773, 14.545, 0.554)
pt3dadd(61.311, 86.67, 14.545, 0.564)
pt3dadd(61.249, 86.568, 14.545, 0.574)
pt3dadd(61.187, 86.465, 14.545, 0.584)
pt3dadd(61.119, 86.367, 14.545, 0.594)
pt3dadd(61.046, 86.271, 14.544, 0.602)
pt3dadd(60.974, 86.175, 14.544, 0.612)
pt3dadd(60.902, 86.079, 14.543, 0.62)
pt3dadd(60.829, 85.984, 14.543, 0.63)
pt3dadd(60.757, 85.888, 14.543, 0.638)
pt3dadd(60.684, 85.792, 14.542, 0.648)
pt3dadd(60.612, 85.696, 14.542, 0.656)
pt3dadd(60.54, 85.601, 14.542, 0.666)
pt3dadd(60.468, 85.505, 14.541, 0.674)
pt3dadd(60.389, 85.414, 14.541, 0.678)
pt3dadd(60.308, 85.326, 14.54, 0.678)
pt3dadd(60.227, 85.238, 14.54, 0.678)
pt3dadd(60.145, 85.149, 14.54, 0.678)
pt3dadd(60.064, 85.061, 14.539, 0.678)
pt3dadd(59.983, 84.973, 14.538, 0.678)
pt3dadd(59.901, 84.885, 14.538, 0.678)
pt3dadd(59.82, 84.797, 14.538, 0.678)
pt3dadd(59.739, 84.708, 14.537, 0.678)
pt3dadd(59.657, 84.62, 14.537, 0.678)
pt3dadd(59.572, 84.535, 14.536, 0.678)
pt3dadd(59.485, 84.453, 14.535, 0.678)
pt3dadd(59.399, 84.37, 14.534, 0.678)
pt3dadd(59.312, 84.287, 14.533, 0.678)
pt3dadd(59.225, 84.204, 14.532, 0.678)
pt3dadd(59.138, 84.121, 14.531, 0.678)
pt3dadd(59.051, 84.038, 14.53, 0.678)
pt3dadd(58.964, 83.956, 14.53, 0.678)
pt3dadd(58.878, 83.873, 14.529, 0.678)
pt3dadd(58.791, 83.79, 14.528, 0.678)
pt3dadd(58.703, 83.708, 14.527, 0.678)
pt3dadd(58.614, 83.628, 14.526, 0.678)
pt3dadd(58.525, 83.547, 14.524, 0.678)
pt3dadd(58.437, 83.466, 14.523, 0.678)
pt3dadd(58.348, 83.385, 14.522, 0.678)
pt3dadd(58.259, 83.304, 14.521, 0.678)
pt3dadd(58.171, 83.223, 14.52, 0.678)
pt3dadd(58.082, 83.143, 14.519, 0.678)
pt3dadd(57.993, 83.062, 14.518, 0.678)
pt3dadd(57.905, 82.981, 14.517, 0.678)
pt3dadd(57.814, 82.902, 14.515, 0.678)
pt3dadd(57.723, 82.825, 14.513, 0.678)
pt3dadd(57.631, 82.747, 14.511, 0.678)
pt3dadd(57.54, 82.669, 14.509, 0.678)
pt3dadd(57.448, 82.592, 14.506, 0.678)
pt3dadd(57.357, 82.514, 14.504, 0.678)
pt3dadd(57.266, 82.436, 14.502, 0.678)
}
}
proc shape3d_96() {
apic[20] { pt3dadd(57.174, 82.358, 14.5, 0.678)
pt3dadd(57.083, 82.281, 14.498, 0.678)
pt3dadd(56.991, 82.203, 14.496, 0.678)
pt3dadd(56.896, 82.131, 14.492, 0.678)
pt3dadd(56.798, 82.061, 14.489, 0.678)
pt3dadd(56.701, 81.991, 14.485, 0.678)
pt3dadd(56.603, 81.921, 14.481, 0.678)
pt3dadd(56.505, 81.852, 14.477, 0.678)
pt3dadd(56.408, 81.782, 14.474, 0.678)
pt3dadd(56.31, 81.712, 14.47, 0.678)
pt3dadd(56.213, 81.643, 14.466, 0.678)
pt3dadd(56.115, 81.573, 14.462, 0.678)
pt3dadd(56.018, 81.503, 14.459, 0.678)
pt3dadd(55.914, 81.444, 14.453, 0.678)
pt3dadd(55.807, 81.389, 14.447, 0.678)
pt3dadd(55.701, 81.334, 14.441, 0.678)
pt3dadd(55.595, 81.279, 14.434, 0.678)
pt3dadd(55.489, 81.223, 14.428, 0.678)
pt3dadd(55.382, 81.168, 14.422, 0.678)
pt3dadd(55.276, 81.113, 14.416, 0.678)
pt3dadd(55.17, 81.058, 14.41, 0.678)
pt3dadd(55.063, 81.003, 14.403, 0.678)
pt3dadd(54.957, 80.947, 14.397, 0.678)
pt3dadd(54.854, 80.887, 14.388, 0.658)
pt3dadd(54.752, 80.825, 14.379, 0.628)
pt3dadd(54.65, 80.763, 14.369, 0.6)
pt3dadd(54.548, 80.701, 14.359, 0.572)
pt3dadd(54.446, 80.639, 14.35, 0.542)
pt3dadd(54.344, 80.577, 14.34, 0.514)
pt3dadd(54.242, 80.515, 14.33, 0.486)
pt3dadd(54.14, 80.453, 14.321, 0.456)
pt3dadd(54.038, 80.39, 14.311, 0.428)
pt3dadd(53.936, 80.328, 14.301, 0.4)
pt3dadd(53.833, 80.271, 14.283, 0.38)
pt3dadd(53.729, 80.216, 14.262, 0.362)
pt3dadd(53.626, 80.16, 14.241, 0.346)
pt3dadd(53.523, 80.105, 14.22, 0.33)
pt3dadd(53.419, 80.05, 14.198, 0.312)
pt3dadd(53.316, 79.994, 14.177, 0.296)
pt3dadd(53.212, 79.939, 14.156, 0.28)
pt3dadd(53.109, 79.884, 14.135, 0.262)
pt3dadd(53.006, 79.828, 14.113, 0.246)
pt3dadd(52.902, 79.773, 14.092, 0.23)
pt3dadd(52.799, 79.726, 14.06, 0.226)
pt3dadd(52.696, 79.68, 14.026, 0.226)
pt3dadd(52.593, 79.635, 13.991, 0.226)
pt3dadd(52.49, 79.589, 13.957, 0.226)
pt3dadd(52.387, 79.544, 13.923, 0.226)
pt3dadd(52.284, 79.498, 13.888, 0.226)
pt3dadd(52.181, 79.452, 13.854, 0.226)
pt3dadd(52.078, 79.407, 13.819, 0.226)
pt3dadd(51.975, 79.361, 13.785, 0.226)
pt3dadd(51.871, 79.316, 13.751, 0.226)
pt3dadd(51.772, 79.256, 13.727, 0.238)
pt3dadd(51.673, 79.192, 13.707, 0.252)
pt3dadd(51.574, 79.129, 13.686, 0.266)
pt3dadd(51.476, 79.065, 13.666, 0.28)
pt3dadd(51.377, 79.002, 13.645, 0.296)
pt3dadd(51.278, 78.938, 13.624, 0.31)
pt3dadd(51.179, 78.875, 13.604, 0.324)
pt3dadd(51.08, 78.811, 13.583, 0.338)
pt3dadd(50.982, 78.748, 13.563, 0.354)
pt3dadd(50.883, 78.684, 13.542, 0.368)
pt3dadd(50.784, 78.619, 13.526, 0.392)
pt3dadd(50.685, 78.554, 13.51, 0.42)
pt3dadd(50.586, 78.488, 13.495, 0.448)
pt3dadd(50.487, 78.423, 13.48, 0.476)
pt3dadd(50.389, 78.357, 13.464, 0.504)
pt3dadd(50.29, 78.292, 13.449, 0.532)
pt3dadd(50.191, 78.226, 13.434, 0.56)
pt3dadd(50.092, 78.16, 13.418, 0.588)
pt3dadd(49.993, 78.095, 13.403, 0.614)
pt3dadd(49.895, 78.029, 13.388, 0.642)
pt3dadd(49.796, 77.962, 13.377, 0.684)
pt3dadd(49.698, 77.895, 13.368, 0.728)
pt3dadd(49.599, 77.827, 13.359, 0.772)
pt3dadd(49.5, 77.759, 13.35, 0.816)
pt3dadd(49.402, 77.692, 13.341, 0.86)
pt3dadd(49.303, 77.624, 13.332, 0.904)
pt3dadd(49.205, 77.557, 13.323, 0.948)
pt3dadd(49.106, 77.489, 13.313, 0.992)
pt3dadd(49.008, 77.422, 13.304, 1.036)
pt3dadd(48.909, 77.354, 13.295, 1.08)
pt3dadd(48.802, 77.301, 13.293, 1.054)
pt3dadd(48.693, 77.25, 13.292, 1.014)
pt3dadd(48.585, 77.199, 13.291, 0.974)
pt3dadd(48.476, 77.148, 13.29, 0.934)
pt3dadd(48.367, 77.097, 13.289, 0.894)
pt3dadd(48.258, 77.046, 13.289, 0.854)
pt3dadd(48.15, 76.995, 13.288, 0.814)
pt3dadd(48.041, 76.945, 13.287, 0.774)
pt3dadd(47.932, 76.894, 13.286, 0.732)
pt3dadd(47.824, 76.843, 13.285, 0.692)
pt3dadd(47.711, 76.802, 13.285, 0.666)
pt3dadd(47.598, 76.762, 13.285, 0.644)
pt3dadd(47.485, 76.722, 13.285, 0.62)
pt3dadd(47.371, 76.683, 13.285, 0.596)
pt3dadd(47.258, 76.643, 13.285, 0.572)
pt3dadd(47.145, 76.603, 13.285, 0.548)
pt3dadd(47.032, 76.564, 13.285, 0.526)
pt3dadd(46.918, 76.524, 13.285, 0.502)
pt3dadd(46.805, 76.484, 13.285, 0.478)
pt3dadd(46.692, 76.445, 13.285, 0.454)
pt3dadd(46.577, 76.409, 13.285, 0.454)
pt3dadd(46.463, 76.373, 13.285, 0.458)
pt3dadd(46.348, 76.337, 13.285, 0.462)
pt3dadd(46.234, 76.302, 13.285, 0.466)
pt3dadd(46.119, 76.266, 13.285, 0.468)
pt3dadd(46.005, 76.23, 13.285, 0.472)
pt3dadd(45.89, 76.194, 13.285, 0.476)
pt3dadd(45.775, 76.159, 13.285, 0.48)
pt3dadd(45.661, 76.123, 13.285, 0.482)
pt3dadd(45.546, 76.087, 13.285, 0.486)
pt3dadd(45.438, 76.036, 13.285, 0.502)
pt3dadd(45.33, 75.983, 13.285, 0.518)
pt3dadd(45.223, 75.93, 13.285, 0.534)
pt3dadd(45.115, 75.877, 13.285, 0.55)
pt3dadd(45.007, 75.824, 13.285, 0.566)
pt3dadd(44.9, 75.77, 13.285, 0.582)
pt3dadd(44.792, 75.717, 13.285, 0.598)
pt3dadd(44.685, 75.664, 13.285, 0.614)
pt3dadd(44.577, 75.611, 13.285, 0.63)
pt3dadd(44.469, 75.558, 13.285, 0.646)
pt3dadd(44.359, 75.511, 13.285, 0.626)
pt3dadd(44.249, 75.464, 13.285, 0.602)
pt3dadd(44.138, 75.417, 13.285, 0.578)
pt3dadd(44.028, 75.37, 13.285, 0.554)
pt3dadd(43.917, 75.323, 13.285, 0.53)
pt3dadd(43.807, 75.276, 13.285, 0.506)
pt3dadd(43.696, 75.23, 13.285, 0.482)
pt3dadd(43.586, 75.183, 13.285, 0.458)
pt3dadd(43.475, 75.136, 13.285, 0.434)
pt3dadd(43.365, 75.089, 13.285, 0.41)
pt3dadd(43.257, 75.036, 13.285, 0.392)
pt3dadd(43.15, 74.982, 13.285, 0.374)
pt3dadd(43.043, 74.928, 13.285, 0.354)
pt3dadd(42.936, 74.874, 13.285, 0.336)
pt3dadd(42.828, 74.821, 13.285, 0.318)
pt3dadd(42.721, 74.767, 13.285, 0.3)
pt3dadd(42.614, 74.713, 13.285, 0.282)
pt3dadd(42.507, 74.659, 13.285, 0.264)
pt3dadd(42.399, 74.606, 13.285, 0.246)
pt3dadd(42.292, 74.552, 13.285, 0.226)
pt3dadd(42.19, 74.489, 13.285, 0.226)
pt3dadd(42.088, 74.425, 13.285, 0.226)
pt3dadd(41.986, 74.362, 13.285, 0.226)
pt3dadd(41.884, 74.298, 13.285, 0.226)
pt3dadd(41.783, 74.235, 13.285, 0.226)
pt3dadd(41.681, 74.171, 13.285, 0.226)
pt3dadd(41.579, 74.108, 13.285, 0.226)
pt3dadd(41.477, 74.044, 13.285, 0.226)
pt3dadd(41.375, 73.981, 13.285, 0.226)
pt3dadd(41.274, 73.917, 13.285, 0.226)
pt3dadd(41.164, 73.868, 13.285, 0.226)
pt3dadd(41.054, 73.82, 13.285, 0.226)
pt3dadd(40.944, 73.772, 13.285, 0.226)
pt3dadd(40.834, 73.724, 13.285, 0.226)
pt3dadd(40.724, 73.676, 13.285, 0.226)
pt3dadd(40.614, 73.628, 13.285, 0.226)
pt3dadd(40.504, 73.58, 13.285, 0.226)
pt3dadd(40.394, 73.532, 13.285, 0.226)
pt3dadd(40.284, 73.484, 13.285, 0.226)
pt3dadd(40.174, 73.436, 13.285, 0.226)
pt3dadd(40.072, 73.374, 13.285, 0.226)
pt3dadd(39.97, 73.311, 13.285, 0.226)
pt3dadd(39.867, 73.248, 13.285, 0.226)
pt3dadd(39.765, 73.185, 13.285, 0.226)
pt3dadd(39.663, 73.122, 13.285, 0.226)
pt3dadd(39.561, 73.059, 13.285, 0.226)
pt3dadd(39.459, 72.996, 13.285, 0.226)
pt3dadd(39.357, 72.933, 13.285, 0.226)
pt3dadd(39.255, 72.87, 13.285, 0.226)
pt3dadd(39.153, 72.807, 13.285, 0.226)
pt3dadd(39.054, 72.738, 13.285, 0.226)
pt3dadd(38.956, 72.669, 13.285, 0.226)
pt3dadd(38.858, 72.6, 13.285, 0.226)
pt3dadd(38.759, 72.531, 13.285, 0.226)
pt3dadd(38.661, 72.462, 13.285, 0.226)
pt3dadd(38.563, 72.394, 13.285, 0.226)
pt3dadd(38.465, 72.325, 13.285, 0.226)
pt3dadd(38.366, 72.256, 13.285, 0.226)
pt3dadd(38.268, 72.187, 13.285, 0.226)
pt3dadd(38.17, 72.118, 13.285, 0.226)
}
apic[21] {pt3dclear()
pt3dadd(91.406, 128.304, 17.615, 1.582)
pt3dadd(91.318, 128.304, 17.586, 1.544)
pt3dadd(91.206, 128.303, 17.549, 1.498)
pt3dadd(91.095, 128.303, 17.512, 1.45)
pt3dadd(90.983, 128.302, 17.475, 1.404)
pt3dadd(90.872, 128.302, 17.438, 1.358)
pt3dadd(90.76, 128.3, 17.401, 1.31)
pt3dadd(90.648, 128.299, 17.364, 1.264)
pt3dadd(90.537, 128.299, 17.327, 1.218)
pt3dadd(90.425, 128.298, 17.291, 1.17)
pt3dadd(90.314, 128.298, 17.254, 1.124)
pt3dadd(90.202, 128.297, 17.217, 1.076)
pt3dadd(90.091, 128.296, 17.18, 1.03)
pt3dadd(89.998, 128.266, 17.134, 0.998)
pt3dadd(89.932, 128.197, 17.074, 0.988)
pt3dadd(89.865, 128.128, 17.014, 0.978)
pt3dadd(89.798, 128.058, 16.954, 0.966)
}
}
proc shape3d_97() {
apic[21] { pt3dadd(89.732, 127.988, 16.895, 0.956)
pt3dadd(89.665, 127.919, 16.835, 0.946)
pt3dadd(89.599, 127.849, 16.775, 0.934)
pt3dadd(89.532, 127.78, 16.716, 0.924)
pt3dadd(89.466, 127.71, 16.656, 0.914)
pt3dadd(89.399, 127.639, 16.597, 0.906)
pt3dadd(89.333, 127.564, 16.542, 0.92)
pt3dadd(89.267, 127.488, 16.487, 0.936)
pt3dadd(89.202, 127.412, 16.432, 0.95)
pt3dadd(89.136, 127.337, 16.377, 0.966)
pt3dadd(89.07, 127.261, 16.322, 0.98)
pt3dadd(89.004, 127.186, 16.267, 0.996)
pt3dadd(88.938, 127.11, 16.212, 1.01)
pt3dadd(88.873, 127.034, 16.157, 1.024)
pt3dadd(88.807, 126.959, 16.102, 1.04)
pt3dadd(88.73, 126.889, 16.055, 1.06)
pt3dadd(88.634, 126.83, 16.021, 1.092)
pt3dadd(88.537, 126.772, 15.987, 1.122)
pt3dadd(88.441, 126.713, 15.953, 1.154)
pt3dadd(88.345, 126.654, 15.919, 1.184)
pt3dadd(88.248, 126.594, 15.885, 1.214)
pt3dadd(88.152, 126.535, 15.851, 1.246)
pt3dadd(88.056, 126.476, 15.817, 1.276)
pt3dadd(87.96, 126.418, 15.783, 1.306)
pt3dadd(87.863, 126.359, 15.749, 1.338)
pt3dadd(87.766, 126.299, 15.72, 1.356)
pt3dadd(87.667, 126.235, 15.699, 1.356)
pt3dadd(87.569, 126.172, 15.678, 1.356)
pt3dadd(87.47, 126.109, 15.656, 1.356)
pt3dadd(87.371, 126.046, 15.635, 1.356)
pt3dadd(87.273, 125.982, 15.613, 1.356)
pt3dadd(87.174, 125.918, 15.592, 1.356)
pt3dadd(87.075, 125.856, 15.571, 1.356)
pt3dadd(86.976, 125.792, 15.549, 1.356)
pt3dadd(86.878, 125.729, 15.528, 1.356)
pt3dadd(86.776, 125.677, 15.501, 1.35)
pt3dadd(86.67, 125.64, 15.465, 1.336)
pt3dadd(86.564, 125.604, 15.43, 1.32)
pt3dadd(86.458, 125.567, 15.395, 1.306)
pt3dadd(86.352, 125.531, 15.359, 1.29)
pt3dadd(86.245, 125.494, 15.324, 1.276)
pt3dadd(86.139, 125.458, 15.289, 1.26)
pt3dadd(86.033, 125.42, 15.253, 1.246)
pt3dadd(85.927, 125.384, 15.218, 1.232)
pt3dadd(85.821, 125.347, 15.183, 1.216)
pt3dadd(85.715, 125.309, 15.15, 1.208)
pt3dadd(85.608, 125.266, 15.12, 1.208)
pt3dadd(85.502, 125.224, 15.09, 1.208)
pt3dadd(85.396, 125.18, 15.06, 1.208)
pt3dadd(85.289, 125.138, 15.03, 1.208)
pt3dadd(85.183, 125.095, 15.001, 1.208)
pt3dadd(85.077, 125.053, 14.971, 1.21)
pt3dadd(84.97, 125.01, 14.941, 1.21)
pt3dadd(84.864, 124.968, 14.911, 1.21)
pt3dadd(84.758, 124.926, 14.882, 1.21)
pt3dadd(84.651, 124.88, 14.855, 1.216)
pt3dadd(84.544, 124.835, 14.832, 1.228)
pt3dadd(84.437, 124.788, 14.809, 1.24)
pt3dadd(84.33, 124.741, 14.787, 1.252)
pt3dadd(84.222, 124.694, 14.764, 1.264)
pt3dadd(84.115, 124.648, 14.741, 1.276)
pt3dadd(84.008, 124.601, 14.718, 1.29)
pt3dadd(83.901, 124.555, 14.695, 1.302)
pt3dadd(83.794, 124.508, 14.672, 1.314)
pt3dadd(83.687, 124.462, 14.649, 1.326)
pt3dadd(83.573, 124.441, 14.631, 1.312)
pt3dadd(83.455, 124.444, 14.616, 1.276)
pt3dadd(83.336, 124.446, 14.602, 1.242)
pt3dadd(83.217, 124.448, 14.587, 1.206)
pt3dadd(83.099, 124.451, 14.573, 1.17)
pt3dadd(82.98, 124.453, 14.558, 1.136)
pt3dadd(82.861, 124.456, 14.543, 1.1)
pt3dadd(82.743, 124.458, 14.529, 1.064)
pt3dadd(82.624, 124.46, 14.514, 1.03)
pt3dadd(82.505, 124.463, 14.5, 0.994)
pt3dadd(82.388, 124.45, 14.488, 0.966)
pt3dadd(82.271, 124.422, 14.478, 0.946)
pt3dadd(82.155, 124.396, 14.468, 0.924)
pt3dadd(82.039, 124.368, 14.458, 0.904)
pt3dadd(81.922, 124.342, 14.449, 0.882)
pt3dadd(81.806, 124.314, 14.439, 0.86)
pt3dadd(81.69, 124.288, 14.429, 0.84)
pt3dadd(81.573, 124.26, 14.419, 0.818)
pt3dadd(81.457, 124.234, 14.41, 0.798)
pt3dadd(81.341, 124.207, 14.4, 0.776)
pt3dadd(81.225, 124.177, 14.389, 0.768)
pt3dadd(81.11, 124.147, 14.377, 0.768)
pt3dadd(80.994, 124.117, 14.366, 0.766)
pt3dadd(80.879, 124.086, 14.355, 0.766)
pt3dadd(80.764, 124.056, 14.343, 0.764)
pt3dadd(80.649, 124.026, 14.332, 0.764)
pt3dadd(80.533, 123.995, 14.321, 0.762)
pt3dadd(80.418, 123.965, 14.309, 0.762)
pt3dadd(80.303, 123.935, 14.298, 0.76)
pt3dadd(80.187, 123.904, 14.286, 0.76)
pt3dadd(80.073, 123.876, 14.27, 0.764)
pt3dadd(79.958, 123.85, 14.25, 0.77)
pt3dadd(79.843, 123.823, 14.23, 0.776)
pt3dadd(79.728, 123.798, 14.211, 0.784)
pt3dadd(79.614, 123.772, 14.191, 0.79)
pt3dadd(79.499, 123.745, 14.171, 0.796)
pt3dadd(79.384, 123.719, 14.152, 0.802)
pt3dadd(79.27, 123.692, 14.132, 0.81)
pt3dadd(79.155, 123.666, 14.113, 0.816)
pt3dadd(79.04, 123.641, 14.093, 0.822)
pt3dadd(78.932, 123.613, 14.057, 0.792)
pt3dadd(78.828, 123.586, 14.014, 0.744)
pt3dadd(78.723, 123.558, 13.971, 0.696)
pt3dadd(78.618, 123.532, 13.928, 0.648)
pt3dadd(78.513, 123.504, 13.885, 0.602)
pt3dadd(78.409, 123.476, 13.841, 0.554)
pt3dadd(78.304, 123.449, 13.798, 0.506)
pt3dadd(78.199, 123.421, 13.755, 0.46)
pt3dadd(78.094, 123.395, 13.712, 0.412)
pt3dadd(77.99, 123.367, 13.669, 0.364)
pt3dadd(77.886, 123.329, 13.63, 0.366)
pt3dadd(77.784, 123.284, 13.594, 0.388)
pt3dadd(77.681, 123.241, 13.557, 0.41)
pt3dadd(77.578, 123.197, 13.52, 0.432)
pt3dadd(77.476, 123.154, 13.483, 0.454)
pt3dadd(77.373, 123.109, 13.446, 0.476)
pt3dadd(77.27, 123.066, 13.41, 0.498)
pt3dadd(77.168, 123.022, 13.373, 0.52)
pt3dadd(77.065, 122.978, 13.336, 0.542)
pt3dadd(76.962, 122.934, 13.299, 0.564)
pt3dadd(76.861, 122.89, 13.261, 0.602)
pt3dadd(76.761, 122.843, 13.222, 0.644)
pt3dadd(76.661, 122.796, 13.182, 0.686)
pt3dadd(76.561, 122.75, 13.143, 0.728)
pt3dadd(76.46, 122.704, 13.104, 0.77)
pt3dadd(76.36, 122.658, 13.065, 0.812)
pt3dadd(76.26, 122.611, 13.026, 0.856)
pt3dadd(76.159, 122.566, 12.987, 0.898)
pt3dadd(76.059, 122.519, 12.948, 0.94)
pt3dadd(75.959, 122.473, 12.909, 0.982)
pt3dadd(75.862, 122.434, 12.86, 1.016)
pt3dadd(75.765, 122.395, 12.81, 1.046)
pt3dadd(75.669, 122.357, 12.759, 1.076)
pt3dadd(75.573, 122.32, 12.708, 1.108)
pt3dadd(75.477, 122.281, 12.657, 1.138)
pt3dadd(75.381, 122.243, 12.607, 1.17)
pt3dadd(75.285, 122.206, 12.556, 1.2)
pt3dadd(75.189, 122.167, 12.505, 1.232)
pt3dadd(75.092, 122.13, 12.454, 1.262)
pt3dadd(74.996, 122.092, 12.404, 1.292)
pt3dadd(74.899, 122.041, 12.363, 1.284)
pt3dadd(74.802, 121.987, 12.325, 1.262)
pt3dadd(74.704, 121.934, 12.288, 1.24)
pt3dadd(74.607, 121.88, 12.25, 1.22)
pt3dadd(74.51, 121.826, 12.212, 1.198)
pt3dadd(74.412, 121.772, 12.175, 1.178)
pt3dadd(74.315, 121.72, 12.137, 1.156)
pt3dadd(74.218, 121.666, 12.099, 1.134)
pt3dadd(74.121, 121.612, 12.062, 1.114)
pt3dadd(74.023, 121.558, 12.024, 1.092)
pt3dadd(73.929, 121.508, 11.978, 1.074)
pt3dadd(73.836, 121.459, 11.93, 1.054)
pt3dadd(73.743, 121.41, 11.882, 1.036)
pt3dadd(73.65, 121.361, 11.834, 1.016)
pt3dadd(73.557, 121.312, 11.786, 0.998)
pt3dadd(73.464, 121.262, 11.738, 0.98)
pt3dadd(73.371, 121.213, 11.69, 0.96)
pt3dadd(73.278, 121.164, 11.642, 0.942)
pt3dadd(73.184, 121.115, 11.594, 0.924)
pt3dadd(73.091, 121.066, 11.546, 0.904)
pt3dadd(72.997, 121.033, 11.491, 0.904)
pt3dadd(72.902, 121.002, 11.436, 0.904)
pt3dadd(72.807, 120.97, 11.38, 0.904)
pt3dadd(72.712, 120.938, 11.325, 0.904)
pt3dadd(72.617, 120.906, 11.27, 0.904)
pt3dadd(72.523, 120.875, 11.214, 0.904)
pt3dadd(72.428, 120.844, 11.159, 0.904)
pt3dadd(72.333, 120.811, 11.104, 0.904)
pt3dadd(72.238, 120.78, 11.048, 0.904)
pt3dadd(72.141, 120.749, 10.995, 0.904)
pt3dadd(72.03, 120.732, 10.961, 0.904)
pt3dadd(71.919, 120.714, 10.927, 0.904)
pt3dadd(71.808, 120.696, 10.893, 0.904)
pt3dadd(71.696, 120.678, 10.858, 0.904)
pt3dadd(71.585, 120.661, 10.824, 0.904)
pt3dadd(71.473, 120.643, 10.79, 0.904)
pt3dadd(71.362, 120.625, 10.756, 0.904)
pt3dadd(71.251, 120.607, 10.721, 0.904)
pt3dadd(71.139, 120.59, 10.687, 0.904)
pt3dadd(71.028, 120.574, 10.654, 0.902)
pt3dadd(70.912, 120.562, 10.627, 0.896)
pt3dadd(70.797, 120.551, 10.601, 0.888)
pt3dadd(70.682, 120.539, 10.574, 0.88)
pt3dadd(70.567, 120.528, 10.547, 0.874)
pt3dadd(70.452, 120.517, 10.52, 0.866)
pt3dadd(70.337, 120.505, 10.493, 0.86)
pt3dadd(70.222, 120.494, 10.467, 0.852)
pt3dadd(70.107, 120.482, 10.44, 0.844)
pt3dadd(69.992, 120.472, 10.413, 0.838)
pt3dadd(69.877, 120.46, 10.385, 0.824)
pt3dadd(69.767, 120.444, 10.348, 0.774)
pt3dadd(69.657, 120.428, 10.311, 0.724)
pt3dadd(69.547, 120.414, 10.273, 0.676)
pt3dadd(69.436, 120.398, 10.236, 0.626)
pt3dadd(69.326, 120.383, 10.199, 0.576)
}
}
proc shape3d_98() {
apic[21] { pt3dadd(69.216, 120.367, 10.161, 0.528)
pt3dadd(69.105, 120.352, 10.124, 0.478)
pt3dadd(68.995, 120.337, 10.087, 0.428)
pt3dadd(68.885, 120.322, 10.05, 0.378)
pt3dadd(68.775, 120.302, 10.014, 0.338)
pt3dadd(68.667, 120.262, 9.988, 0.352)
pt3dadd(68.558, 120.22, 9.962, 0.366)
pt3dadd(68.45, 120.179, 9.936, 0.38)
pt3dadd(68.342, 120.138, 9.91, 0.394)
pt3dadd(68.233, 120.097, 9.883, 0.408)
pt3dadd(68.125, 120.055, 9.857, 0.422)
pt3dadd(68.017, 120.014, 9.831, 0.436)
pt3dadd(67.908, 119.973, 9.805, 0.45)
pt3dadd(67.8, 119.932, 9.779, 0.464)
pt3dadd(67.692, 119.89, 9.754, 0.476)
pt3dadd(67.583, 119.845, 9.735, 0.484)
pt3dadd(67.474, 119.799, 9.717, 0.492)
pt3dadd(67.366, 119.754, 9.698, 0.5)
pt3dadd(67.257, 119.709, 9.679, 0.508)
pt3dadd(67.148, 119.663, 9.66, 0.516)
pt3dadd(67.039, 119.618, 9.641, 0.524)
pt3dadd(66.931, 119.573, 9.622, 0.534)
pt3dadd(66.822, 119.527, 9.603, 0.542)
pt3dadd(66.713, 119.482, 9.584, 0.55)
pt3dadd(66.603, 119.438, 9.567, 0.548)
pt3dadd(66.491, 119.397, 9.556, 0.516)
pt3dadd(66.379, 119.357, 9.544, 0.486)
pt3dadd(66.267, 119.317, 9.532, 0.454)
pt3dadd(66.155, 119.276, 9.52, 0.424)
pt3dadd(66.043, 119.236, 9.509, 0.392)
pt3dadd(65.931, 119.196, 9.497, 0.362)
pt3dadd(65.818, 119.155, 9.485, 0.33)
pt3dadd(65.706, 119.115, 9.473, 0.3)
pt3dadd(65.594, 119.075, 9.462, 0.268)
pt3dadd(65.482, 119.035, 9.452, 0.262)
pt3dadd(65.368, 118.998, 9.449, 0.332)
pt3dadd(65.254, 118.96, 9.446, 0.402)
pt3dadd(65.14, 118.923, 9.443, 0.472)
pt3dadd(65.026, 118.885, 9.44, 0.542)
pt3dadd(64.912, 118.848, 9.437, 0.612)
pt3dadd(64.798, 118.81, 9.434, 0.682)
pt3dadd(64.684, 118.773, 9.431, 0.754)
pt3dadd(64.57, 118.735, 9.428, 0.824)
pt3dadd(64.456, 118.698, 9.425, 0.894)
pt3dadd(64.344, 118.656, 9.421, 0.946)
pt3dadd(64.238, 118.6, 9.415, 0.954)
pt3dadd(64.132, 118.544, 9.409, 0.96)
pt3dadd(64.026, 118.488, 9.403, 0.966)
pt3dadd(63.92, 118.433, 9.397, 0.972)
pt3dadd(63.814, 118.377, 9.391, 0.978)
pt3dadd(63.708, 118.321, 9.385, 0.986)
pt3dadd(63.602, 118.265, 9.379, 0.992)
pt3dadd(63.496, 118.209, 9.373, 0.998)
pt3dadd(63.39, 118.153, 9.367, 1.004)
pt3dadd(63.287, 118.094, 9.361, 1.002)
pt3dadd(63.188, 118.026, 9.352, 0.98)
pt3dadd(63.09, 117.958, 9.344, 0.958)
pt3dadd(62.991, 117.89, 9.335, 0.936)
pt3dadd(62.893, 117.822, 9.327, 0.914)
pt3dadd(62.795, 117.754, 9.318, 0.892)
pt3dadd(62.696, 117.686, 9.31, 0.87)
pt3dadd(62.598, 117.618, 9.301, 0.848)
pt3dadd(62.499, 117.55, 9.293, 0.826)
pt3dadd(62.401, 117.483, 9.284, 0.806)
pt3dadd(62.305, 117.411, 9.275, 0.78)
pt3dadd(62.215, 117.334, 9.264, 0.75)
pt3dadd(62.124, 117.256, 9.253, 0.718)
pt3dadd(62.034, 117.179, 9.242, 0.688)
pt3dadd(61.943, 117.101, 9.231, 0.656)
pt3dadd(61.852, 117.023, 9.22, 0.626)
pt3dadd(61.762, 116.946, 9.209, 0.594)
pt3dadd(61.671, 116.868, 9.198, 0.564)
pt3dadd(61.581, 116.791, 9.187, 0.532)
pt3dadd(61.49, 116.713, 9.176, 0.502)
pt3dadd(61.404, 116.637, 9.153, 0.474)
pt3dadd(61.325, 116.563, 9.109, 0.454)
pt3dadd(61.247, 116.489, 9.065, 0.432)
pt3dadd(61.168, 116.416, 9.021, 0.412)
pt3dadd(61.09, 116.342, 8.977, 0.39)
pt3dadd(61.011, 116.268, 8.933, 0.368)
pt3dadd(60.933, 116.195, 8.889, 0.348)
pt3dadd(60.854, 116.121, 8.844, 0.326)
pt3dadd(60.776, 116.047, 8.8, 0.306)
pt3dadd(60.697, 115.973, 8.756, 0.284)
pt3dadd(60.617, 115.899, 8.716, 0.282)
pt3dadd(60.533, 115.823, 8.682, 0.304)
pt3dadd(60.45, 115.747, 8.647, 0.328)
pt3dadd(60.367, 115.671, 8.613, 0.352)
pt3dadd(60.283, 115.595, 8.579, 0.374)
pt3dadd(60.2, 115.519, 8.544, 0.398)
pt3dadd(60.117, 115.443, 8.51, 0.422)
pt3dadd(60.033, 115.367, 8.476, 0.444)
pt3dadd(59.95, 115.291, 8.441, 0.468)
pt3dadd(59.867, 115.216, 8.407, 0.492)
pt3dadd(59.782, 115.14, 8.377, 0.512)
pt3dadd(59.694, 115.063, 8.351, 0.53)
pt3dadd(59.607, 114.987, 8.325, 0.546)
pt3dadd(59.52, 114.911, 8.299, 0.564)
pt3dadd(59.432, 114.835, 8.273, 0.582)
pt3dadd(59.345, 114.759, 8.247, 0.598)
pt3dadd(59.257, 114.683, 8.221, 0.616)
pt3dadd(59.17, 114.607, 8.195, 0.634)
pt3dadd(59.082, 114.531, 8.169, 0.652)
pt3dadd(58.995, 114.455, 8.143, 0.668)
pt3dadd(58.905, 114.381, 8.118, 0.68)
pt3dadd(58.812, 114.311, 8.095, 0.684)
pt3dadd(58.719, 114.241, 8.072, 0.69)
pt3dadd(58.625, 114.17, 8.049, 0.694)
pt3dadd(58.532, 114.1, 8.026, 0.698)
pt3dadd(58.439, 114.03, 8.003, 0.704)
pt3dadd(58.346, 113.96, 7.979, 0.708)
pt3dadd(58.252, 113.889, 7.956, 0.712)
pt3dadd(58.159, 113.819, 7.933, 0.716)
pt3dadd(58.066, 113.749, 7.91, 0.722)
pt3dadd(57.968, 113.69, 7.881, 0.732)
pt3dadd(57.866, 113.643, 7.846, 0.746)
pt3dadd(57.763, 113.596, 7.812, 0.762)
pt3dadd(57.661, 113.55, 7.777, 0.776)
pt3dadd(57.559, 113.503, 7.743, 0.792)
pt3dadd(57.456, 113.456, 7.708, 0.808)
pt3dadd(57.354, 113.409, 7.673, 0.822)
pt3dadd(57.252, 113.362, 7.639, 0.838)
pt3dadd(57.149, 113.315, 7.604, 0.852)
pt3dadd(57.047, 113.268, 7.57, 0.868)
pt3dadd(56.984, 113.245, 7.493, 0.856)
pt3dadd(56.932, 113.23, 7.404, 0.836)
pt3dadd(56.881, 113.216, 7.314, 0.816)
pt3dadd(56.829, 113.201, 7.225, 0.798)
pt3dadd(56.778, 113.186, 7.135, 0.778)
pt3dadd(56.727, 113.171, 7.046, 0.758)
pt3dadd(56.675, 113.156, 6.956, 0.738)
pt3dadd(56.624, 113.142, 6.867, 0.718)
pt3dadd(56.573, 113.127, 6.777, 0.698)
pt3dadd(56.521, 113.112, 6.688, 0.678)
pt3dadd(56.508, 113.112, 6.588, 0.678)
pt3dadd(56.495, 113.112, 6.489, 0.678)
pt3dadd(56.482, 113.112, 6.389, 0.678)
pt3dadd(56.468, 113.112, 6.29, 0.678)
pt3dadd(56.455, 113.112, 6.191, 0.678)
pt3dadd(56.442, 113.112, 6.091, 0.678)
pt3dadd(56.429, 113.112, 5.992, 0.678)
pt3dadd(56.416, 113.112, 5.892, 0.678)
pt3dadd(56.402, 113.112, 5.793, 0.678)
pt3dadd(56.389, 113.112, 5.694, 0.678)
pt3dadd(59.4, 114.48, 4.8, 0.226)
pt3dadd(59.4, 114.377, 4.749, 0.33)
pt3dadd(59.4, 114.273, 4.699, 0.432)
pt3dadd(59.4, 114.246, 4.608, 0.496)
pt3dadd(59.4, 114.236, 4.509, 0.55)
pt3dadd(59.4, 114.226, 4.409, 0.604)
pt3dadd(59.4, 114.179, 4.317, 0.636)
pt3dadd(59.4, 114.132, 4.225, 0.67)
pt3dadd(59.385, 114.046, 4.163, 0.688)
pt3dadd(59.365, 113.944, 4.112, 0.7)
pt3dadd(59.288, 113.871, 4.078, 0.696)
pt3dadd(59.193, 113.806, 4.049, 0.688)
pt3dadd(59.098, 113.742, 4.021, 0.68)
pt3dadd(58.997, 113.681, 4.004, 0.686)
pt3dadd(58.893, 113.623, 3.993, 0.698)
pt3dadd(58.801, 113.555, 3.966, 0.716)
pt3dadd(58.717, 113.482, 3.928, 0.738)
pt3dadd(58.643, 113.4, 3.896, 0.762)
pt3dadd(58.598, 113.291, 3.88, 0.798)
pt3dadd(58.56, 113.184, 3.856, 0.84)
pt3dadd(58.543, 113.102, 3.788, 0.878)
pt3dadd(58.505, 113.033, 3.712, 0.878)
pt3dadd(58.468, 112.964, 3.636, 0.878)
pt3dadd(58.43, 112.895, 3.561, 0.878)
pt3dadd(58.396, 112.824, 3.486, 0.876)
pt3dadd(58.375, 112.743, 3.414, 0.858)
pt3dadd(58.354, 112.663, 3.342, 0.842)
pt3dadd(58.333, 112.582, 3.27, 0.826)
pt3dadd(58.312, 112.502, 3.197, 0.808)
pt3dadd(58.252, 112.432, 3.138, 0.79)
pt3dadd(58.176, 112.366, 3.083, 0.772)
pt3dadd(58.1, 112.3, 3.028, 0.752)
pt3dadd(58.024, 112.235, 2.973, 0.734)
pt3dadd(57.951, 112.16, 2.924, 0.728)
pt3dadd(57.879, 112.082, 2.878, 0.728)
pt3dadd(57.808, 112.003, 2.832, 0.728)
pt3dadd(57.736, 111.925, 2.785, 0.728)
pt3dadd(57.644, 111.87, 2.746, 0.738)
pt3dadd(57.538, 111.832, 2.712, 0.754)
pt3dadd(57.432, 111.794, 2.678, 0.772)
pt3dadd(57.326, 111.756, 2.643, 0.788)
pt3dadd(57.219, 111.717, 2.609, 0.806)
pt3dadd(57.112, 111.674, 2.583, 0.826)
pt3dadd(57.005, 111.63, 2.556, 0.848)
pt3dadd(56.898, 111.587, 2.53, 0.87)
pt3dadd(56.791, 111.543, 2.503, 0.892)
pt3dadd(56.689, 111.516, 2.461, 0.906)
pt3dadd(56.594, 111.508, 2.4, 0.912)
pt3dadd(56.499, 111.499, 2.339, 0.916)
pt3dadd(56.404, 111.491, 2.279, 0.922)
pt3dadd(56.309, 111.483, 2.218, 0.928)
pt3dadd(56.217, 111.463, 2.156, 0.93)
pt3dadd(56.127, 111.439, 2.093, 0.93)
pt3dadd(56.036, 111.415, 2.031, 0.93)
pt3dadd(55.946, 111.391, 1.968, 0.93)
pt3dadd(55.852, 111.364, 1.911, 0.926)
}
}
proc shape3d_99() {
apic[21] { pt3dadd(55.748, 111.332, 1.869, 0.914)
pt3dadd(55.644, 111.299, 1.827, 0.904)
pt3dadd(55.541, 111.267, 1.785, 0.892)
pt3dadd(55.437, 111.234, 1.743, 0.882)
pt3dadd(55.361, 111.2, 1.673, 0.878)
pt3dadd(55.292, 111.166, 1.596, 0.878)
pt3dadd(55.224, 111.132, 1.519, 0.878)
pt3dadd(55.156, 111.098, 1.441, 0.878)
pt3dadd(55.108, 111.062, 1.357, 0.89)
pt3dadd(55.082, 111.023, 1.265, 0.914)
pt3dadd(55.036, 110.981, 1.183, 0.952)
pt3dadd(54.961, 110.937, 1.114, 1.008)
pt3dadd(54.873, 110.888, 1.062, 1.056)
pt3dadd(54.777, 110.836, 1.019, 1.098)
pt3dadd(54.708, 110.744, 1.007, 1.086)
pt3dadd(54.645, 110.642, 1.002, 1.062)
pt3dadd(54.554, 110.567, 1, 1.006)
pt3dadd(54.454, 110.508, 0.988, 0.946)
pt3dadd(54.357, 110.461, 0.944, 0.916)
pt3dadd(54.261, 110.414, 0.9, 0.888)
pt3dadd(54.164, 110.367, 0.855, 0.858)
pt3dadd(54.067, 110.32, 0.811, 0.828)
pt3dadd(53.948, 110.304, 0.807, 0.838)
pt3dadd(53.829, 110.289, 0.802, 0.848)
pt3dadd(53.712, 110.266, 0.798, 0.876)
pt3dadd(53.597, 110.231, 0.793, 0.93)
pt3dadd(53.489, 110.191, 0.785, 0.99)
pt3dadd(53.437, 110.095, 0.742, 1.1)
pt3dadd(53.394, 109.997, 0.699, 1.184)
pt3dadd(53.375, 109.891, 0.655, 1.196)
pt3dadd(53.338, 109.808, 0.604, 1.184)
pt3dadd(53.254, 109.787, 0.534, 1.106)
pt3dadd(53.179, 109.702, 0.502, 1.058)
pt3dadd(53.103, 109.617, 0.471, 1.01)
pt3dadd(53.027, 109.532, 0.439, 0.962)
pt3dadd(52.952, 109.447, 0.408, 0.916)
pt3dadd(52.852, 109.392, 0.382, 0.892)
pt3dadd(52.745, 109.345, 0.358, 0.876)
pt3dadd(52.638, 109.299, 0.334, 0.86)
pt3dadd(52.531, 109.253, 0.31, 0.842)
pt3dadd(52.425, 109.208, 0.284, 0.828)
pt3dadd(52.319, 109.17, 0.25, 0.816)
pt3dadd(52.213, 109.131, 0.215, 0.804)
pt3dadd(52.107, 109.093, 0.181, 0.794)
pt3dadd(52.001, 109.055, 0.147, 0.782)
pt3dadd(51.891, 109.015, 0.129, 0.782)
pt3dadd(51.778, 108.974, 0.123, 0.786)
pt3dadd(51.666, 108.933, 0.117, 0.792)
pt3dadd(51.553, 108.892, 0.11, 0.796)
pt3dadd(51.441, 108.851, 0.104, 0.8)
pt3dadd(51.325, 108.82, 0.1, 0.806)
pt3dadd(51.207, 108.802, 0.1, 0.81)
pt3dadd(51.088, 108.785, 0.1, 0.814)
pt3dadd(50.969, 108.768, 0.1, 0.818)
pt3dadd(50.85, 108.751, 0.1, 0.822)
pt3dadd(50.732, 108.733, 0.1, 0.826)
pt3dadd(50.613, 108.716, 0.1, 0.83)
pt3dadd(50.495, 108.696, 0.1, 0.838)
pt3dadd(50.376, 108.676, 0.1, 0.848)
pt3dadd(50.258, 108.656, 0.1, 0.856)
pt3dadd(50.14, 108.637, 0.1, 0.864)
pt3dadd(50.021, 108.617, 0.1, 0.872)
pt3dadd(49.903, 108.597, 0.1, 0.878)
pt3dadd(49.785, 108.577, 0.1, 0.87)
pt3dadd(49.666, 108.558, 0.1, 0.862)
pt3dadd(49.548, 108.538, 0.1, 0.852)
pt3dadd(49.429, 108.518, 0.1, 0.844)
pt3dadd(49.311, 108.498, 0.1, 0.836)
pt3dadd(49.193, 108.48, 0.1, 0.828)
pt3dadd(49.073, 108.48, 0.1, 0.81)
pt3dadd(48.953, 108.48, 0.1, 0.792)
pt3dadd(48.833, 108.48, 0.1, 0.774)
pt3dadd(48.713, 108.48, 0.1, 0.756)
pt3dadd(48.593, 108.48, 0.1, 0.738)
pt3dadd(48.473, 108.48, 0.1, 0.72)
pt3dadd(48.353, 108.48, 0.1, 0.702)
pt3dadd(48.233, 108.48, 0.1, 0.688)
pt3dadd(48.113, 108.48, 0.1, 0.674)
pt3dadd(47.993, 108.48, 0.1, 0.66)
pt3dadd(47.873, 108.48, 0.1, 0.644)
pt3dadd(47.753, 108.48, 0.1, 0.63)
pt3dadd(47.633, 108.48, 0.1, 0.616)
pt3dadd(47.513, 108.48, 0.1, 0.602)
pt3dadd(47.393, 108.48, 0.1, 0.606)
pt3dadd(47.273, 108.48, 0.1, 0.61)
pt3dadd(47.153, 108.48, 0.1, 0.614)
pt3dadd(47.033, 108.48, 0.1, 0.618)
pt3dadd(46.913, 108.48, 0.1, 0.62)
pt3dadd(46.793, 108.48, 0.1, 0.624)
pt3dadd(46.673, 108.48, 0.1, 0.63)
pt3dadd(46.553, 108.48, 0.1, 0.65)
pt3dadd(46.433, 108.48, 0.1, 0.672)
pt3dadd(46.313, 108.48, 0.1, 0.694)
pt3dadd(46.193, 108.48, 0.1, 0.716)
pt3dadd(46.073, 108.48, 0.1, 0.736)
pt3dadd(45.953, 108.48, 0.1, 0.758)
pt3dadd(45.833, 108.48, 0.1, 0.78)
pt3dadd(45.713, 108.474, 0.1, 0.794)
pt3dadd(45.593, 108.468, 0.1, 0.81)
pt3dadd(45.473, 108.462, 0.1, 0.824)
pt3dadd(45.353, 108.456, 0.1, 0.84)
pt3dadd(45.233, 108.45, 0.1, 0.854)
pt3dadd(45.113, 108.444, 0.1, 0.87)
pt3dadd(44.996, 108.425, 0.1, 0.882)
pt3dadd(44.882, 108.387, 0.1, 0.892)
pt3dadd(44.769, 108.348, 0.1, 0.9)
pt3dadd(44.655, 108.309, 0.1, 0.91)
pt3dadd(44.542, 108.27, 0.1, 0.918)
pt3dadd(44.428, 108.232, 0.1, 0.928)
pt3dadd(44.312, 108.209, 0.086, 0.912)
pt3dadd(44.195, 108.189, 0.069, 0.894)
pt3dadd(44.078, 108.17, 0.052, 0.876)
pt3dadd(43.962, 108.15, 0.036, 0.856)
pt3dadd(43.845, 108.13, 0.019, 0.838)
pt3dadd(43.727, 108.12, 0.01, 0.824)
pt3dadd(43.607, 108.12, 0.009, 0.812)
pt3dadd(43.487, 108.12, 0.007, 0.802)
pt3dadd(43.367, 108.12, 0.005, 0.79)
pt3dadd(43.247, 108.12, 0.004, 0.78)
pt3dadd(43.127, 108.12, 0.002, 0.768)
pt3dadd(43.007, 108.12, 0.001, 0.758)
pt3dadd(42.889, 108.131, -0.011, 0.742)
pt3dadd(42.772, 108.148, -0.03, 0.724)
pt3dadd(42.656, 108.165, -0.049, 0.704)
pt3dadd(42.539, 108.183, -0.067, 0.686)
pt3dadd(42.423, 108.2, -0.086, 0.668)
pt3dadd(42.311, 108.231, -0.1, 0.644)
pt3dadd(42.218, 108.306, -0.1, 0.61)
pt3dadd(42.106, 108.347, -0.1, 0.578)
pt3dadd(41.989, 108.36, -0.117, 0.54)
pt3dadd(41.877, 108.36, -0.151, 0.476)
pt3dadd(41.764, 108.36, -0.185, 0.412)
pt3dadd(41.647, 108.345, -0.2, 0.352)
pt3dadd(41.537, 108.302, -0.2, 0.344)
pt3dadd(41.453, 108.217, -0.2, 0.326)
pt3dadd(41.411, 108.108, -0.214, 0.272)
pt3dadd(41.4, 107.997, -0.251, 0.238)
pt3dadd(41.4, 107.883, -0.28, 0.226)
pt3dadd(41.4, 107.766, -0.299, 0.226)
}
apic[22] {pt3dclear()
pt3dadd(126.634, 125.089, 20.749, 2.894)
pt3dadd(126.618, 125.108, 20.747, 2.892)
pt3dadd(126.544, 125.202, 20.737, 2.886)
pt3dadd(126.469, 125.296, 20.727, 2.88)
pt3dadd(126.395, 125.388, 20.717, 2.876)
pt3dadd(126.32, 125.482, 20.707, 2.87)
pt3dadd(126.246, 125.575, 20.698, 2.864)
pt3dadd(126.172, 125.669, 20.688, 2.858)
pt3dadd(126.097, 125.762, 20.678, 2.854)
pt3dadd(126.023, 125.856, 20.668, 2.848)
pt3dadd(125.948, 125.948, 20.658, 2.842)
pt3dadd(125.875, 126.043, 20.647, 2.834)
pt3dadd(125.807, 126.14, 20.632, 2.818)
pt3dadd(125.738, 126.236, 20.616, 2.802)
pt3dadd(125.67, 126.334, 20.601, 2.788)
pt3dadd(125.603, 126.431, 20.585, 2.77)
pt3dadd(125.534, 126.528, 20.57, 2.756)
pt3dadd(125.466, 126.624, 20.554, 2.74)
pt3dadd(125.398, 126.721, 20.539, 2.724)
pt3dadd(125.329, 126.818, 20.523, 2.708)
pt3dadd(125.261, 126.916, 20.508, 2.692)
pt3dadd(125.2, 127.014, 20.486, 2.676)
pt3dadd(125.156, 127.117, 20.451, 2.66)
pt3dadd(125.112, 127.222, 20.416, 2.646)
pt3dadd(125.069, 127.325, 20.381, 2.63)
pt3dadd(125.024, 127.428, 20.346, 2.614)
pt3dadd(124.981, 127.531, 20.312, 2.598)
pt3dadd(124.937, 127.636, 20.277, 2.584)
pt3dadd(124.892, 127.739, 20.242, 2.568)
pt3dadd(124.849, 127.842, 20.207, 2.552)
pt3dadd(124.805, 127.946, 20.172, 2.536)
pt3dadd(124.762, 128.051, 20.14, 2.522)
pt3dadd(124.718, 128.158, 20.113, 2.506)
pt3dadd(124.675, 128.266, 20.087, 2.49)
pt3dadd(124.632, 128.372, 20.061, 2.472)
pt3dadd(124.589, 128.48, 20.035, 2.456)
pt3dadd(124.546, 128.587, 20.009, 2.44)
pt3dadd(124.501, 128.695, 19.983, 2.424)
pt3dadd(124.458, 128.803, 19.956, 2.408)
pt3dadd(124.415, 128.91, 19.93, 2.392)
pt3dadd(124.372, 129.018, 19.904, 2.376)
pt3dadd(124.333, 129.127, 19.88, 2.358)
pt3dadd(124.304, 129.241, 19.86, 2.334)
pt3dadd(124.276, 129.355, 19.84, 2.31)
pt3dadd(124.246, 129.469, 19.821, 2.288)
pt3dadd(124.217, 129.583, 19.801, 2.264)
pt3dadd(124.188, 129.697, 19.781, 2.24)
pt3dadd(124.158, 129.811, 19.762, 2.216)
pt3dadd(124.129, 129.925, 19.742, 2.194)
pt3dadd(124.1, 130.039, 19.722, 2.17)
pt3dadd(124.072, 130.153, 19.703, 2.146)
pt3dadd(124.057, 130.27, 19.687, 2.118)
pt3dadd(124.061, 130.388, 19.675, 2.082)
pt3dadd(124.063, 130.507, 19.663, 2.048)
pt3dadd(124.067, 130.627, 19.651, 2.014)
pt3dadd(124.069, 130.746, 19.639, 1.98)
pt3dadd(124.073, 130.865, 19.628, 1.944)
pt3dadd(124.075, 130.984, 19.616, 1.91)
pt3dadd(124.079, 131.104, 19.604, 1.876)
pt3dadd(124.081, 131.222, 19.592, 1.842)
pt3dadd(124.085, 131.341, 19.58, 1.806)
}
}
proc shape3d_100() {
apic[22] { pt3dadd(124.118, 131.453, 19.574, 1.782)
pt3dadd(124.174, 131.56, 19.572, 1.766)
pt3dadd(124.229, 131.666, 19.569, 1.75)
pt3dadd(124.284, 131.773, 19.566, 1.734)
pt3dadd(124.339, 131.879, 19.564, 1.718)
pt3dadd(124.394, 131.986, 19.561, 1.702)
pt3dadd(124.45, 132.092, 19.559, 1.686)
pt3dadd(124.505, 132.199, 19.556, 1.668)
pt3dadd(124.56, 132.305, 19.553, 1.652)
pt3dadd(124.615, 132.412, 19.551, 1.636)
pt3dadd(124.68, 132.512, 19.547, 1.614)
pt3dadd(124.753, 132.607, 19.542, 1.59)
pt3dadd(124.825, 132.702, 19.537, 1.564)
pt3dadd(124.898, 132.798, 19.532, 1.538)
pt3dadd(124.97, 132.893, 19.528, 1.514)
pt3dadd(125.044, 132.989, 19.523, 1.488)
pt3dadd(125.116, 133.084, 19.518, 1.462)
pt3dadd(125.189, 133.18, 19.513, 1.438)
pt3dadd(125.261, 133.274, 19.508, 1.412)
pt3dadd(125.334, 133.37, 19.503, 1.386)
pt3dadd(125.411, 133.462, 19.498, 1.362)
pt3dadd(125.491, 133.55, 19.491, 1.336)
pt3dadd(125.572, 133.639, 19.485, 1.312)
pt3dadd(125.651, 133.729, 19.479, 1.288)
pt3dadd(125.731, 133.818, 19.473, 1.262)
pt3dadd(125.812, 133.907, 19.467, 1.238)
pt3dadd(125.892, 133.996, 19.461, 1.212)
pt3dadd(125.971, 134.086, 19.454, 1.188)
pt3dadd(126.052, 134.174, 19.448, 1.164)
pt3dadd(126.132, 134.263, 19.442, 1.138)
pt3dadd(126.215, 134.35, 19.434, 1.13)
pt3dadd(126.299, 134.434, 19.425, 1.13)
pt3dadd(126.384, 134.519, 19.415, 1.13)
pt3dadd(126.468, 134.603, 19.406, 1.13)
pt3dadd(126.552, 134.687, 19.397, 1.13)
pt3dadd(126.637, 134.772, 19.387, 1.13)
pt3dadd(126.721, 134.856, 19.378, 1.13)
pt3dadd(126.806, 134.941, 19.369, 1.13)
pt3dadd(126.89, 135.025, 19.36, 1.13)
pt3dadd(126.974, 135.109, 19.35, 1.13)
pt3dadd(127.057, 135.192, 19.329, 1.158)
pt3dadd(127.139, 135.274, 19.3, 1.2)
pt3dadd(127.22, 135.354, 19.272, 1.244)
pt3dadd(127.302, 135.436, 19.244, 1.288)
pt3dadd(127.384, 135.517, 19.215, 1.33)
pt3dadd(127.465, 135.598, 19.187, 1.372)
pt3dadd(127.547, 135.679, 19.159, 1.416)
pt3dadd(127.628, 135.76, 19.13, 1.46)
pt3dadd(127.71, 135.841, 19.102, 1.502)
pt3dadd(127.792, 135.923, 19.074, 1.544)
pt3dadd(127.872, 136.002, 19.04, 1.592)
pt3dadd(127.952, 136.081, 19.004, 1.64)
pt3dadd(128.032, 136.159, 18.969, 1.688)
pt3dadd(128.111, 136.238, 18.933, 1.738)
pt3dadd(128.191, 136.318, 18.897, 1.786)
pt3dadd(128.27, 136.397, 18.862, 1.834)
pt3dadd(128.35, 136.476, 18.826, 1.882)
pt3dadd(128.43, 136.555, 18.791, 1.93)
pt3dadd(128.509, 136.633, 18.755, 1.978)
pt3dadd(128.588, 136.712, 18.72, 2.026)
pt3dadd(128.671, 136.795, 18.695, 2.034)
pt3dadd(128.754, 136.877, 18.672, 2.034)
pt3dadd(128.837, 136.96, 18.65, 2.034)
pt3dadd(128.92, 137.041, 18.627, 2.034)
pt3dadd(129.002, 137.124, 18.604, 2.034)
pt3dadd(129.086, 137.207, 18.582, 2.034)
pt3dadd(129.169, 137.288, 18.559, 2.034)
pt3dadd(129.252, 137.371, 18.536, 2.034)
pt3dadd(129.335, 137.453, 18.513, 2.034)
pt3dadd(129.418, 137.536, 18.491, 2.034)
pt3dadd(129.503, 137.62, 18.48, 1.998)
pt3dadd(129.588, 137.702, 18.471, 1.954)
pt3dadd(129.673, 137.786, 18.462, 1.912)
pt3dadd(129.758, 137.87, 18.453, 1.87)
pt3dadd(129.844, 137.953, 18.444, 1.826)
pt3dadd(129.929, 138.037, 18.435, 1.784)
pt3dadd(130.015, 138.121, 18.426, 1.742)
pt3dadd(130.1, 138.205, 18.417, 1.698)
pt3dadd(130.186, 138.288, 18.408, 1.656)
pt3dadd(130.271, 138.372, 18.399, 1.614)
pt3dadd(130.356, 138.456, 18.393, 1.59)
pt3dadd(130.442, 138.539, 18.388, 1.57)
pt3dadd(130.529, 138.623, 18.382, 1.55)
pt3dadd(130.614, 138.707, 18.377, 1.53)
pt3dadd(130.7, 138.79, 18.372, 1.512)
pt3dadd(130.786, 138.874, 18.367, 1.492)
pt3dadd(130.872, 138.958, 18.361, 1.472)
pt3dadd(130.957, 139.04, 18.356, 1.452)
pt3dadd(131.044, 139.124, 18.351, 1.432)
pt3dadd(131.129, 139.208, 18.346, 1.412)
pt3dadd(131.215, 139.291, 18.345, 1.42)
pt3dadd(131.302, 139.375, 18.345, 1.434)
pt3dadd(131.388, 139.458, 18.345, 1.446)
pt3dadd(131.474, 139.542, 18.345, 1.458)
pt3dadd(131.561, 139.625, 18.345, 1.472)
pt3dadd(131.647, 139.709, 18.345, 1.484)
pt3dadd(131.734, 139.792, 18.345, 1.498)
pt3dadd(131.82, 139.876, 18.345, 1.51)
pt3dadd(131.905, 139.958, 18.345, 1.524)
pt3dadd(131.992, 140.042, 18.345, 1.536)
pt3dadd(132.079, 140.124, 18.345, 1.542)
pt3dadd(132.167, 140.206, 18.345, 1.546)
pt3dadd(132.256, 140.288, 18.344, 1.55)
pt3dadd(132.343, 140.37, 18.344, 1.554)
pt3dadd(132.431, 140.452, 18.344, 1.56)
pt3dadd(132.518, 140.533, 18.344, 1.564)
pt3dadd(132.606, 140.615, 18.344, 1.568)
pt3dadd(132.694, 140.698, 18.344, 1.572)
pt3dadd(132.781, 140.779, 18.344, 1.578)
pt3dadd(132.869, 140.861, 18.344, 1.582)
pt3dadd(132.958, 140.942, 18.344, 1.582)
pt3dadd(133.046, 141.023, 18.344, 1.582)
pt3dadd(133.134, 141.104, 18.344, 1.582)
pt3dadd(133.223, 141.186, 18.343, 1.582)
pt3dadd(133.312, 141.266, 18.343, 1.582)
pt3dadd(133.399, 141.348, 18.343, 1.582)
pt3dadd(133.488, 141.428, 18.343, 1.582)
pt3dadd(133.577, 141.51, 18.343, 1.582)
pt3dadd(133.666, 141.59, 18.343, 1.582)
pt3dadd(133.753, 141.672, 18.343, 1.582)
pt3dadd(133.844, 141.751, 18.343, 1.56)
pt3dadd(133.936, 141.829, 18.342, 1.534)
pt3dadd(134.026, 141.907, 18.342, 1.508)
pt3dadd(134.117, 141.985, 18.342, 1.482)
pt3dadd(134.208, 142.064, 18.342, 1.458)
pt3dadd(134.299, 142.142, 18.341, 1.432)
pt3dadd(134.389, 142.22, 18.341, 1.406)
pt3dadd(134.48, 142.3, 18.341, 1.38)
pt3dadd(134.572, 142.378, 18.341, 1.354)
pt3dadd(134.663, 142.456, 18.34, 1.33)
pt3dadd(134.758, 142.529, 18.34, 1.312)
pt3dadd(134.852, 142.602, 18.34, 1.298)
pt3dadd(134.948, 142.674, 18.34, 1.282)
pt3dadd(135.044, 142.746, 18.339, 1.266)
pt3dadd(135.14, 142.819, 18.339, 1.252)
pt3dadd(135.235, 142.891, 18.339, 1.236)
pt3dadd(135.331, 142.964, 18.338, 1.222)
pt3dadd(135.427, 143.036, 18.338, 1.206)
pt3dadd(135.522, 143.108, 18.338, 1.192)
pt3dadd(135.618, 143.182, 18.337, 1.176)
pt3dadd(135.724, 143.239, 18.337, 1.19)
pt3dadd(135.829, 143.296, 18.336, 1.206)
pt3dadd(135.935, 143.352, 18.336, 1.222)
pt3dadd(136.04, 143.408, 18.335, 1.236)
pt3dadd(136.146, 143.465, 18.334, 1.252)
pt3dadd(136.253, 143.522, 18.334, 1.268)
pt3dadd(136.358, 143.579, 18.333, 1.284)
pt3dadd(136.464, 143.635, 18.333, 1.3)
pt3dadd(136.57, 143.692, 18.332, 1.316)
pt3dadd(136.675, 143.748, 18.332, 1.332)
pt3dadd(136.777, 143.812, 18.331, 1.3)
pt3dadd(136.879, 143.875, 18.329, 1.262)
pt3dadd(136.98, 143.94, 18.328, 1.226)
pt3dadd(137.082, 144.004, 18.327, 1.188)
pt3dadd(137.183, 144.067, 18.326, 1.152)
pt3dadd(137.285, 144.132, 18.325, 1.114)
pt3dadd(137.386, 144.196, 18.324, 1.076)
pt3dadd(137.488, 144.26, 18.323, 1.04)
pt3dadd(137.588, 144.324, 18.321, 1.002)
pt3dadd(137.69, 144.389, 18.32, 0.966)
pt3dadd(137.794, 144.45, 18.319, 0.942)
pt3dadd(137.897, 144.511, 18.317, 0.92)
pt3dadd(138, 144.572, 18.315, 0.898)
pt3dadd(138.103, 144.634, 18.313, 0.876)
pt3dadd(138.206, 144.695, 18.312, 0.854)
pt3dadd(138.31, 144.756, 18.31, 0.832)
pt3dadd(138.413, 144.817, 18.308, 0.81)
pt3dadd(138.516, 144.878, 18.306, 0.786)
pt3dadd(138.619, 144.94, 18.305, 0.764)
pt3dadd(138.722, 145, 18.303, 0.742)
pt3dadd(138.829, 145.055, 18.3, 0.756)
pt3dadd(138.936, 145.11, 18.298, 0.772)
pt3dadd(139.043, 145.165, 18.295, 0.788)
pt3dadd(139.15, 145.219, 18.292, 0.804)
pt3dadd(139.256, 145.274, 18.289, 0.82)
pt3dadd(139.363, 145.33, 18.287, 0.836)
pt3dadd(139.469, 145.384, 18.284, 0.852)
pt3dadd(139.576, 145.439, 18.281, 0.868)
pt3dadd(139.682, 145.493, 18.278, 0.884)
pt3dadd(139.789, 145.548, 18.276, 0.9)
pt3dadd(139.883, 145.624, 18.27, 0.888)
pt3dadd(139.975, 145.699, 18.264, 0.872)
pt3dadd(140.066, 145.776, 18.258, 0.858)
pt3dadd(140.159, 145.853, 18.252, 0.842)
pt3dadd(140.251, 145.93, 18.246, 0.826)
pt3dadd(140.344, 146.006, 18.24, 0.812)
pt3dadd(140.436, 146.082, 18.234, 0.796)
pt3dadd(140.527, 146.159, 18.228, 0.782)
pt3dadd(140.62, 146.236, 18.222, 0.766)
pt3dadd(140.712, 146.312, 18.216, 0.752)
pt3dadd(140.8, 146.394, 18.208, 0.758)
pt3dadd(140.886, 146.476, 18.201, 0.766)
pt3dadd(140.974, 146.558, 18.193, 0.774)
pt3dadd(141.06, 146.64, 18.185, 0.782)
pt3dadd(141.148, 146.723, 18.177, 0.79)
pt3dadd(141.234, 146.804, 18.169, 0.798)
pt3dadd(141.32, 146.887, 18.161, 0.806)
pt3dadd(141.408, 146.969, 18.153, 0.814)
pt3dadd(141.494, 147.052, 18.145, 0.822)
pt3dadd(141.582, 147.133, 18.138, 0.83)
}
}
proc shape3d_101() {
apic[22] { pt3dadd(141.664, 147.22, 18.128, 0.858)
pt3dadd(141.745, 147.307, 18.118, 0.888)
pt3dadd(141.828, 147.394, 18.109, 0.916)
pt3dadd(141.91, 147.481, 18.099, 0.946)
pt3dadd(141.991, 147.568, 18.09, 0.974)
pt3dadd(142.073, 147.655, 18.08, 1.004)
pt3dadd(142.154, 147.742, 18.071, 1.032)
pt3dadd(142.237, 147.829, 18.061, 1.062)
pt3dadd(142.319, 147.916, 18.052, 1.092)
pt3dadd(142.4, 148.003, 18.042, 1.12)
pt3dadd(142.452, 148.104, 18.01, 1.094)
pt3dadd(142.504, 148.205, 17.976, 1.066)
pt3dadd(142.554, 148.306, 17.943, 1.038)
pt3dadd(142.604, 148.408, 17.91, 1.008)
pt3dadd(142.655, 148.508, 17.877, 0.98)
pt3dadd(142.705, 148.609, 17.843, 0.952)
pt3dadd(142.756, 148.711, 17.81, 0.924)
pt3dadd(142.807, 148.812, 17.777, 0.894)
pt3dadd(142.858, 148.913, 17.743, 0.866)
pt3dadd(142.908, 149.015, 17.71, 0.838)
pt3dadd(142.961, 149.117, 17.682, 0.814)
pt3dadd(143.014, 149.219, 17.654, 0.792)
pt3dadd(143.066, 149.322, 17.626, 0.768)
pt3dadd(143.119, 149.424, 17.598, 0.744)
pt3dadd(143.171, 149.526, 17.569, 0.722)
pt3dadd(143.224, 149.629, 17.541, 0.698)
pt3dadd(143.276, 149.731, 17.513, 0.676)
pt3dadd(143.329, 149.833, 17.485, 0.652)
pt3dadd(143.382, 149.936, 17.457, 0.628)
pt3dadd(143.435, 150.038, 17.429, 0.606)
pt3dadd(143.491, 150.142, 17.407, 0.59)
pt3dadd(143.546, 150.245, 17.386, 0.574)
pt3dadd(143.603, 150.348, 17.365, 0.56)
pt3dadd(143.658, 150.451, 17.343, 0.544)
pt3dadd(143.714, 150.554, 17.322, 0.528)
pt3dadd(143.77, 150.656, 17.3, 0.514)
pt3dadd(143.826, 150.76, 17.279, 0.498)
pt3dadd(143.881, 150.863, 17.257, 0.482)
pt3dadd(143.936, 150.966, 17.236, 0.468)
pt3dadd(143.993, 151.069, 17.214, 0.452)
}
apic[23] {pt3dclear()
pt3dadd(143.993, 151.069, 17.214, 0.452)
pt3dadd(144.019, 151.153, 17.206, 0.44)
pt3dadd(144.056, 151.266, 17.195, 0.422)
pt3dadd(144.092, 151.38, 17.184, 0.406)
pt3dadd(144.128, 151.494, 17.173, 0.388)
pt3dadd(144.166, 151.607, 17.162, 0.372)
pt3dadd(144.202, 151.721, 17.151, 0.356)
pt3dadd(144.239, 151.834, 17.139, 0.338)
pt3dadd(144.275, 151.948, 17.128, 0.322)
pt3dadd(144.308, 152.063, 17.121, 0.328)
pt3dadd(144.341, 152.178, 17.114, 0.344)
pt3dadd(144.373, 152.293, 17.107, 0.358)
pt3dadd(144.406, 152.408, 17.101, 0.374)
pt3dadd(144.438, 152.524, 17.094, 0.388)
pt3dadd(144.47, 152.639, 17.087, 0.404)
pt3dadd(144.503, 152.754, 17.081, 0.418)
pt3dadd(144.534, 152.869, 17.074, 0.434)
pt3dadd(144.566, 152.984, 17.068, 0.448)
pt3dadd(144.599, 153.1, 17.061, 0.464)
pt3dadd(144.63, 153.216, 17.058, 0.5)
pt3dadd(144.661, 153.332, 17.056, 0.544)
pt3dadd(144.691, 153.448, 17.055, 0.588)
pt3dadd(144.722, 153.564, 17.053, 0.632)
pt3dadd(144.752, 153.68, 17.052, 0.676)
pt3dadd(144.782, 153.796, 17.05, 0.72)
pt3dadd(144.814, 153.912, 17.049, 0.762)
pt3dadd(144.844, 154.028, 17.047, 0.806)
pt3dadd(144.875, 154.145, 17.045, 0.85)
pt3dadd(144.905, 154.26, 17.044, 0.894)
pt3dadd(144.948, 154.373, 17.041, 0.904)
pt3dadd(144.994, 154.483, 17.039, 0.904)
pt3dadd(145.039, 154.594, 17.036, 0.904)
pt3dadd(145.086, 154.705, 17.034, 0.904)
pt3dadd(145.132, 154.816, 17.031, 0.904)
pt3dadd(145.177, 154.926, 17.028, 0.904)
pt3dadd(145.224, 155.038, 17.026, 0.904)
pt3dadd(145.27, 155.148, 17.023, 0.904)
pt3dadd(145.315, 155.258, 17.02, 0.904)
pt3dadd(145.361, 155.369, 17.018, 0.904)
pt3dadd(145.399, 155.483, 17.013, 0.904)
pt3dadd(145.434, 155.598, 17.007, 0.904)
pt3dadd(145.469, 155.712, 17.001, 0.904)
pt3dadd(145.505, 155.826, 16.995, 0.904)
pt3dadd(145.54, 155.941, 16.989, 0.904)
pt3dadd(145.574, 156.055, 16.983, 0.904)
pt3dadd(145.61, 156.17, 16.977, 0.904)
pt3dadd(145.645, 156.284, 16.971, 0.904)
pt3dadd(145.681, 156.4, 16.965, 0.904)
pt3dadd(145.716, 156.514, 16.959, 0.904)
pt3dadd(145.745, 156.63, 16.951, 0.918)
pt3dadd(145.772, 156.746, 16.942, 0.934)
pt3dadd(145.8, 156.862, 16.933, 0.95)
pt3dadd(145.828, 156.978, 16.924, 0.968)
pt3dadd(145.855, 157.094, 16.915, 0.984)
pt3dadd(145.883, 157.211, 16.906, 1)
pt3dadd(145.91, 157.327, 16.897, 1.016)
pt3dadd(145.938, 157.444, 16.888, 1.034)
pt3dadd(145.966, 157.56, 16.879, 1.05)
pt3dadd(145.992, 157.676, 16.87, 1.066)
pt3dadd(146.015, 157.793, 16.855, 1.092)
pt3dadd(146.035, 157.909, 16.84, 1.122)
pt3dadd(146.057, 158.026, 16.823, 1.15)
pt3dadd(146.077, 158.142, 16.807, 1.18)
pt3dadd(146.098, 158.26, 16.791, 1.208)
pt3dadd(146.119, 158.376, 16.775, 1.236)
pt3dadd(146.14, 158.492, 16.759, 1.266)
pt3dadd(146.161, 158.609, 16.743, 1.294)
pt3dadd(146.182, 158.725, 16.727, 1.324)
pt3dadd(146.202, 158.842, 16.711, 1.352)
pt3dadd(146.218, 158.953, 16.677, 1.356)
pt3dadd(146.233, 159.064, 16.641, 1.356)
pt3dadd(146.248, 159.175, 16.604, 1.356)
pt3dadd(146.262, 159.286, 16.567, 1.356)
pt3dadd(146.278, 159.396, 16.53, 1.356)
pt3dadd(146.292, 159.506, 16.493, 1.356)
pt3dadd(146.306, 159.617, 16.456, 1.356)
pt3dadd(146.322, 159.727, 16.419, 1.356)
pt3dadd(146.336, 159.838, 16.382, 1.356)
pt3dadd(146.351, 159.948, 16.345, 1.356)
pt3dadd(146.388, 160.057, 16.318, 1.344)
pt3dadd(146.429, 160.166, 16.293, 1.332)
pt3dadd(146.47, 160.274, 16.268, 1.318)
pt3dadd(146.51, 160.384, 16.243, 1.306)
pt3dadd(146.551, 160.493, 16.218, 1.292)
pt3dadd(146.592, 160.601, 16.193, 1.28)
pt3dadd(146.633, 160.71, 16.167, 1.266)
pt3dadd(146.674, 160.818, 16.142, 1.254)
pt3dadd(146.716, 160.927, 16.117, 1.24)
pt3dadd(146.756, 161.036, 16.092, 1.228)
pt3dadd(146.8, 161.146, 16.074, 1.206)
pt3dadd(146.843, 161.256, 16.056, 1.182)
pt3dadd(146.886, 161.365, 16.039, 1.16)
pt3dadd(146.929, 161.476, 16.021, 1.138)
pt3dadd(146.972, 161.586, 16.004, 1.114)
pt3dadd(147.016, 161.695, 15.986, 1.09)
pt3dadd(147.059, 161.806, 15.969, 1.068)
pt3dadd(147.102, 161.915, 15.951, 1.046)
pt3dadd(147.145, 162.025, 15.933, 1.022)
pt3dadd(147.188, 162.134, 15.916, 1)
pt3dadd(147.226, 162.248, 15.905, 0.97)
pt3dadd(147.263, 162.361, 15.896, 0.94)
pt3dadd(147.301, 162.475, 15.885, 0.908)
pt3dadd(147.338, 162.589, 15.876, 0.878)
pt3dadd(147.376, 162.702, 15.866, 0.848)
pt3dadd(147.413, 162.816, 15.856, 0.818)
pt3dadd(147.45, 162.929, 15.846, 0.788)
pt3dadd(147.487, 163.043, 15.836, 0.758)
pt3dadd(147.524, 163.156, 15.826, 0.728)
pt3dadd(147.562, 163.27, 15.816, 0.696)
pt3dadd(147.592, 163.386, 15.815, 0.728)
pt3dadd(147.62, 163.501, 15.815, 0.764)
pt3dadd(147.65, 163.618, 15.815, 0.798)
pt3dadd(147.68, 163.734, 15.815, 0.832)
pt3dadd(147.71, 163.85, 15.815, 0.866)
pt3dadd(147.74, 163.967, 15.815, 0.902)
pt3dadd(147.769, 164.083, 15.815, 0.936)
pt3dadd(147.799, 164.2, 15.815, 0.97)
pt3dadd(147.829, 164.316, 15.815, 1.006)
pt3dadd(147.859, 164.431, 15.815, 1.04)
pt3dadd(147.904, 164.543, 15.815, 1.028)
pt3dadd(147.949, 164.654, 15.815, 1.012)
pt3dadd(147.996, 164.765, 15.815, 0.996)
pt3dadd(148.042, 164.875, 15.815, 0.982)
pt3dadd(148.087, 164.987, 15.815, 0.966)
pt3dadd(148.133, 165.097, 15.815, 0.95)
pt3dadd(148.178, 165.209, 15.815, 0.936)
pt3dadd(148.224, 165.319, 15.815, 0.92)
pt3dadd(148.27, 165.431, 15.815, 0.904)
pt3dadd(148.316, 165.541, 15.815, 0.89)
pt3dadd(148.363, 165.652, 15.815, 0.856)
pt3dadd(148.411, 165.762, 15.815, 0.824)
pt3dadd(148.459, 165.871, 15.815, 0.792)
pt3dadd(148.507, 165.982, 15.815, 0.758)
pt3dadd(148.555, 166.092, 15.815, 0.726)
pt3dadd(148.603, 166.201, 15.815, 0.692)
pt3dadd(148.651, 166.312, 15.815, 0.66)
pt3dadd(148.698, 166.422, 15.815, 0.628)
pt3dadd(148.746, 166.532, 15.815, 0.594)
pt3dadd(148.794, 166.642, 15.815, 0.562)
pt3dadd(148.835, 166.754, 15.815, 0.528)
pt3dadd(148.876, 166.867, 15.815, 0.494)
pt3dadd(148.918, 166.98, 15.815, 0.46)
pt3dadd(148.958, 167.093, 15.815, 0.428)
pt3dadd(148.999, 167.206, 15.815, 0.394)
pt3dadd(149.04, 167.318, 15.815, 0.36)
pt3dadd(149.081, 167.431, 15.815, 0.326)
pt3dadd(149.123, 167.544, 15.815, 0.294)
pt3dadd(149.164, 167.657, 15.815, 0.26)
pt3dadd(149.204, 167.77, 15.815, 0.226)
}
apic[24] {pt3dclear()
pt3dadd(149.204, 167.77, 15.815, 0.226)
pt3dadd(149.212, 167.784, 15.815, 0.232)
pt3dadd(149.267, 167.891, 15.815, 0.28)
pt3dadd(149.322, 167.998, 15.815, 0.328)
pt3dadd(149.376, 168.104, 15.815, 0.376)
pt3dadd(149.431, 168.211, 15.815, 0.424)
pt3dadd(149.486, 168.318, 15.815, 0.47)
pt3dadd(149.54, 168.425, 15.815, 0.518)
pt3dadd(149.596, 168.532, 15.815, 0.566)
pt3dadd(149.644, 168.642, 15.815, 0.584)
pt3dadd(149.69, 168.752, 15.815, 0.604)
}
}
proc shape3d_102() {
apic[24] { pt3dadd(149.738, 168.863, 15.815, 0.622)
pt3dadd(149.785, 168.972, 15.815, 0.642)
pt3dadd(149.833, 169.082, 15.815, 0.66)
pt3dadd(149.881, 169.193, 15.815, 0.68)
pt3dadd(149.928, 169.303, 15.815, 0.698)
pt3dadd(149.976, 169.414, 15.815, 0.718)
pt3dadd(150.024, 169.523, 15.815, 0.736)
pt3dadd(150.07, 169.634, 15.815, 0.75)
pt3dadd(150.098, 169.751, 15.815, 0.698)
pt3dadd(150.127, 169.867, 15.815, 0.646)
pt3dadd(150.156, 169.984, 15.815, 0.594)
pt3dadd(150.186, 170.1, 15.815, 0.542)
pt3dadd(150.215, 170.216, 15.815, 0.49)
pt3dadd(150.244, 170.333, 15.815, 0.438)
pt3dadd(150.272, 170.449, 15.815, 0.386)
pt3dadd(150.301, 170.566, 15.815, 0.334)
pt3dadd(150.331, 170.682, 15.815, 0.282)
pt3dadd(150.359, 170.798, 15.815, 0.234)
pt3dadd(150.373, 170.917, 15.815, 0.252)
pt3dadd(150.388, 171.037, 15.815, 0.268)
pt3dadd(150.402, 171.156, 15.815, 0.284)
pt3dadd(150.416, 171.275, 15.815, 0.302)
pt3dadd(150.43, 171.395, 15.815, 0.318)
pt3dadd(150.444, 171.514, 15.815, 0.336)
pt3dadd(150.458, 171.632, 15.815, 0.352)
pt3dadd(150.473, 171.751, 15.815, 0.368)
pt3dadd(150.487, 171.871, 15.815, 0.386)
pt3dadd(150.5, 171.99, 15.815, 0.4)
pt3dadd(150.506, 172.11, 15.815, 0.392)
pt3dadd(150.511, 172.23, 15.815, 0.384)
pt3dadd(150.517, 172.35, 15.815, 0.378)
pt3dadd(150.522, 172.47, 15.815, 0.37)
pt3dadd(150.527, 172.59, 15.815, 0.362)
pt3dadd(150.533, 172.71, 15.815, 0.354)
pt3dadd(150.538, 172.829, 15.815, 0.348)
pt3dadd(150.544, 172.949, 15.815, 0.34)
pt3dadd(150.548, 173.069, 15.815, 0.332)
pt3dadd(150.553, 173.189, 15.815, 0.324)
pt3dadd(150.556, 173.309, 15.815, 0.314)
pt3dadd(150.558, 173.429, 15.815, 0.304)
pt3dadd(150.56, 173.549, 15.815, 0.294)
pt3dadd(150.564, 173.669, 15.815, 0.284)
pt3dadd(150.566, 173.789, 15.815, 0.274)
pt3dadd(150.569, 173.909, 15.815, 0.264)
pt3dadd(150.571, 174.029, 15.815, 0.254)
pt3dadd(150.574, 174.149, 15.815, 0.244)
pt3dadd(150.576, 174.269, 15.815, 0.236)
pt3dadd(150.578, 174.389, 15.815, 0.226)
pt3dadd(150.583, 174.509, 15.815, 0.234)
pt3dadd(150.588, 174.629, 15.815, 0.24)
pt3dadd(150.592, 174.749, 15.815, 0.246)
pt3dadd(150.596, 174.869, 15.815, 0.252)
pt3dadd(150.6, 174.989, 15.815, 0.258)
pt3dadd(150.605, 175.109, 15.815, 0.266)
pt3dadd(150.61, 175.228, 15.815, 0.272)
pt3dadd(150.613, 175.348, 15.815, 0.278)
pt3dadd(150.618, 175.468, 15.815, 0.284)
pt3dadd(150.623, 175.588, 15.815, 0.294)
pt3dadd(150.631, 175.708, 15.815, 0.33)
pt3dadd(150.64, 175.828, 15.815, 0.364)
pt3dadd(150.648, 175.946, 15.814, 0.4)
pt3dadd(150.656, 176.066, 15.814, 0.436)
pt3dadd(150.665, 176.186, 15.814, 0.472)
pt3dadd(150.673, 176.306, 15.814, 0.508)
pt3dadd(150.682, 176.425, 15.814, 0.544)
pt3dadd(150.69, 176.545, 15.814, 0.58)
pt3dadd(150.7, 176.665, 15.814, 0.614)
pt3dadd(150.708, 176.785, 15.814, 0.65)
pt3dadd(150.721, 176.904, 15.814, 0.686)
pt3dadd(150.736, 177.023, 15.814, 0.722)
pt3dadd(150.749, 177.143, 15.814, 0.758)
pt3dadd(150.762, 177.262, 15.813, 0.792)
pt3dadd(150.776, 177.38, 15.813, 0.828)
pt3dadd(150.79, 177.5, 15.813, 0.864)
pt3dadd(150.803, 177.619, 15.813, 0.9)
pt3dadd(150.816, 177.739, 15.813, 0.934)
pt3dadd(150.83, 177.858, 15.813, 0.97)
pt3dadd(150.846, 177.977, 15.813, 1.002)
pt3dadd(150.88, 178.092, 15.812, 1.004)
pt3dadd(150.914, 178.207, 15.812, 1.008)
pt3dadd(150.948, 178.321, 15.812, 1.01)
pt3dadd(150.983, 178.436, 15.812, 1.012)
pt3dadd(151.016, 178.552, 15.812, 1.014)
pt3dadd(151.051, 178.667, 15.811, 1.016)
pt3dadd(151.085, 178.782, 15.811, 1.018)
pt3dadd(151.12, 178.897, 15.811, 1.02)
pt3dadd(151.153, 179.012, 15.811, 1.022)
pt3dadd(151.189, 179.126, 15.81, 1.022)
pt3dadd(151.23, 179.239, 15.81, 1.016)
pt3dadd(151.271, 179.352, 15.81, 1.008)
pt3dadd(151.312, 179.465, 15.809, 1.002)
pt3dadd(151.352, 179.578, 15.809, 0.994)
pt3dadd(151.393, 179.69, 15.809, 0.986)
pt3dadd(151.434, 179.803, 15.808, 0.98)
pt3dadd(151.475, 179.917, 15.808, 0.972)
pt3dadd(151.514, 180.03, 15.807, 0.966)
pt3dadd(151.555, 180.143, 15.807, 0.958)
pt3dadd(151.595, 180.256, 15.807, 0.956)
pt3dadd(151.624, 180.372, 15.806, 0.974)
pt3dadd(151.654, 180.488, 15.805, 0.992)
pt3dadd(151.684, 180.605, 15.805, 1.008)
pt3dadd(151.714, 180.721, 15.804, 1.026)
pt3dadd(151.744, 180.838, 15.804, 1.044)
pt3dadd(151.774, 180.953, 15.803, 1.06)
pt3dadd(151.802, 181.069, 15.802, 1.078)
pt3dadd(151.832, 181.186, 15.802, 1.096)
pt3dadd(151.862, 181.302, 15.801, 1.112)
pt3dadd(151.89, 181.418, 15.8, 1.124)
pt3dadd(151.904, 181.538, 15.799, 1.106)
pt3dadd(151.92, 181.657, 15.797, 1.088)
pt3dadd(151.936, 181.776, 15.796, 1.072)
pt3dadd(151.951, 181.895, 15.795, 1.054)
pt3dadd(151.967, 182.014, 15.793, 1.036)
pt3dadd(151.982, 182.132, 15.792, 1.02)
pt3dadd(151.998, 182.251, 15.79, 1.002)
pt3dadd(152.014, 182.371, 15.789, 0.984)
pt3dadd(152.029, 182.49, 15.788, 0.968)
pt3dadd(152.042, 182.609, 15.786, 0.95)
pt3dadd(152.05, 182.729, 15.783, 0.932)
pt3dadd(152.057, 182.849, 15.781, 0.914)
pt3dadd(152.063, 182.968, 15.778, 0.896)
pt3dadd(152.07, 183.088, 15.776, 0.876)
pt3dadd(152.077, 183.208, 15.773, 0.858)
pt3dadd(152.083, 183.328, 15.771, 0.84)
pt3dadd(152.09, 183.448, 15.768, 0.822)
pt3dadd(152.098, 183.566, 15.766, 0.804)
pt3dadd(152.104, 183.686, 15.763, 0.786)
pt3dadd(152.111, 183.806, 15.76, 0.766)
pt3dadd(152.118, 183.926, 15.755, 0.736)
pt3dadd(152.124, 184.045, 15.75, 0.708)
pt3dadd(152.131, 184.165, 15.745, 0.68)
pt3dadd(152.138, 184.285, 15.739, 0.652)
pt3dadd(152.144, 184.405, 15.734, 0.624)
pt3dadd(152.152, 184.524, 15.729, 0.596)
pt3dadd(152.158, 184.644, 15.724, 0.568)
pt3dadd(152.165, 184.764, 15.718, 0.54)
pt3dadd(152.172, 184.883, 15.713, 0.512)
pt3dadd(152.179, 185.003, 15.707, 0.488)
pt3dadd(152.191, 185.122, 15.698, 0.48)
pt3dadd(152.203, 185.24, 15.689, 0.472)
pt3dadd(152.214, 185.359, 15.679, 0.464)
pt3dadd(152.226, 185.478, 15.67, 0.456)
pt3dadd(152.238, 185.597, 15.661, 0.448)
pt3dadd(152.25, 185.717, 15.652, 0.44)
pt3dadd(152.262, 185.836, 15.643, 0.434)
pt3dadd(152.273, 185.954, 15.634, 0.426)
pt3dadd(152.285, 186.073, 15.624, 0.418)
pt3dadd(152.299, 186.191, 15.613, 0.42)
pt3dadd(152.324, 186.306, 15.594, 0.464)
pt3dadd(152.35, 186.421, 15.574, 0.506)
pt3dadd(152.375, 186.536, 15.555, 0.548)
pt3dadd(152.4, 186.652, 15.535, 0.592)
pt3dadd(152.424, 186.767, 15.516, 0.634)
pt3dadd(152.449, 186.881, 15.496, 0.678)
pt3dadd(152.474, 186.996, 15.477, 0.72)
pt3dadd(152.5, 187.111, 15.457, 0.764)
pt3dadd(152.525, 187.226, 15.438, 0.806)
pt3dadd(152.564, 187.33, 15.407, 0.816)
pt3dadd(152.623, 187.418, 15.361, 0.786)
pt3dadd(152.681, 187.507, 15.315, 0.756)
pt3dadd(152.74, 187.597, 15.269, 0.724)
pt3dadd(152.798, 187.686, 15.223, 0.694)
pt3dadd(152.857, 187.775, 15.177, 0.664)
pt3dadd(152.916, 187.864, 15.13, 0.634)
pt3dadd(152.975, 187.952, 15.085, 0.602)
pt3dadd(153.032, 188.041, 15.038, 0.572)
pt3dadd(153.091, 188.131, 14.993, 0.542)
pt3dadd(153.142, 188.228, 14.955, 0.554)
pt3dadd(153.181, 188.336, 14.927, 0.614)
pt3dadd(153.222, 188.444, 14.898, 0.672)
pt3dadd(153.263, 188.552, 14.87, 0.73)
pt3dadd(153.304, 188.659, 14.841, 0.79)
pt3dadd(153.343, 188.767, 14.813, 0.848)
pt3dadd(153.384, 188.875, 14.784, 0.906)
pt3dadd(153.425, 188.982, 14.756, 0.966)
pt3dadd(153.466, 189.09, 14.727, 1.024)
pt3dadd(153.505, 189.198, 14.699, 1.082)
pt3dadd(153.54, 189.31, 14.679, 1.092)
pt3dadd(153.568, 189.426, 14.667, 1.052)
pt3dadd(153.594, 189.541, 14.655, 1.014)
pt3dadd(153.622, 189.658, 14.643, 0.974)
pt3dadd(153.649, 189.773, 14.63, 0.936)
pt3dadd(153.677, 189.889, 14.618, 0.898)
pt3dadd(153.704, 190.006, 14.606, 0.858)
pt3dadd(153.732, 190.121, 14.594, 0.82)
pt3dadd(153.76, 190.237, 14.582, 0.78)
pt3dadd(153.787, 190.352, 14.57, 0.742)
pt3dadd(153.812, 190.47, 14.563, 0.72)
pt3dadd(153.835, 190.588, 14.562, 0.716)
pt3dadd(153.857, 190.705, 14.561, 0.712)
pt3dadd(153.88, 190.823, 14.559, 0.708)
pt3dadd(153.902, 190.942, 14.558, 0.702)
pt3dadd(153.925, 191.059, 14.556, 0.698)
pt3dadd(153.948, 191.177, 14.555, 0.694)
pt3dadd(153.971, 191.294, 14.554, 0.69)
pt3dadd(153.994, 191.412, 14.552, 0.684)
pt3dadd(154.016, 191.53, 14.551, 0.68)
pt3dadd(154.049, 191.645, 14.55, 0.674)
pt3dadd(154.091, 191.758, 14.55, 0.664)
pt3dadd(154.134, 191.87, 14.55, 0.654)
}
}
proc shape3d_103() {
apic[24] { pt3dadd(154.176, 191.982, 14.55, 0.644)
pt3dadd(154.218, 192.095, 14.55, 0.634)
pt3dadd(154.26, 192.206, 14.55, 0.626)
pt3dadd(154.302, 192.319, 14.55, 0.616)
pt3dadd(154.344, 192.432, 14.55, 0.606)
pt3dadd(154.387, 192.544, 14.55, 0.596)
pt3dadd(154.429, 192.656, 14.55, 0.586)
pt3dadd(154.481, 192.764, 14.55, 0.578)
pt3dadd(154.537, 192.87, 14.55, 0.57)
pt3dadd(154.594, 192.976, 14.55, 0.562)
pt3dadd(154.651, 193.081, 14.55, 0.554)
pt3dadd(154.708, 193.187, 14.55, 0.546)
pt3dadd(154.765, 193.292, 14.55, 0.538)
pt3dadd(154.822, 193.398, 14.55, 0.53)
pt3dadd(154.879, 193.504, 14.55, 0.522)
pt3dadd(154.936, 193.609, 14.55, 0.514)
pt3dadd(154.992, 193.715, 14.55, 0.506)
pt3dadd(155.054, 193.818, 14.55, 0.522)
pt3dadd(155.12, 193.919, 14.55, 0.552)
pt3dadd(155.185, 194.02, 14.55, 0.582)
pt3dadd(155.25, 194.12, 14.55, 0.612)
pt3dadd(155.316, 194.22, 14.55, 0.642)
pt3dadd(155.381, 194.321, 14.55, 0.672)
pt3dadd(155.446, 194.422, 14.55, 0.702)
pt3dadd(155.512, 194.522, 14.55, 0.732)
pt3dadd(155.576, 194.623, 14.55, 0.762)
pt3dadd(155.641, 194.724, 14.55, 0.792)
pt3dadd(155.696, 194.831, 14.55, 0.81)
pt3dadd(155.746, 194.94, 14.55, 0.82)
pt3dadd(155.795, 195.049, 14.55, 0.83)
pt3dadd(155.844, 195.158, 14.55, 0.84)
pt3dadd(155.893, 195.268, 14.55, 0.85)
pt3dadd(155.942, 195.378, 14.55, 0.86)
pt3dadd(155.992, 195.487, 14.55, 0.87)
pt3dadd(156.041, 195.596, 14.55, 0.88)
pt3dadd(156.09, 195.706, 14.55, 0.89)
pt3dadd(156.139, 195.816, 14.55, 0.9)
pt3dadd(156.176, 195.929, 14.55, 0.892)
pt3dadd(156.209, 196.045, 14.55, 0.876)
pt3dadd(156.241, 196.16, 14.55, 0.858)
pt3dadd(156.274, 196.276, 14.55, 0.84)
pt3dadd(156.305, 196.392, 14.55, 0.824)
pt3dadd(156.337, 196.507, 14.55, 0.806)
pt3dadd(156.37, 196.622, 14.549, 0.79)
pt3dadd(156.402, 196.739, 14.549, 0.772)
pt3dadd(156.433, 196.854, 14.549, 0.754)
pt3dadd(156.466, 196.97, 14.549, 0.738)
pt3dadd(156.484, 197.088, 14.549, 0.696)
pt3dadd(156.497, 197.208, 14.549, 0.646)
pt3dadd(156.51, 197.327, 14.549, 0.596)
pt3dadd(156.523, 197.446, 14.549, 0.546)
pt3dadd(156.536, 197.566, 14.549, 0.496)
pt3dadd(156.55, 197.684, 14.549, 0.446)
pt3dadd(156.563, 197.804, 14.549, 0.396)
pt3dadd(156.575, 197.923, 14.549, 0.346)
pt3dadd(156.588, 198.042, 14.549, 0.296)
pt3dadd(156.601, 198.162, 14.549, 0.248)
pt3dadd(156.606, 198.282, 14.549, 0.248)
pt3dadd(156.606, 198.402, 14.549, 0.266)
pt3dadd(156.607, 198.522, 14.549, 0.284)
pt3dadd(156.608, 198.642, 14.548, 0.302)
pt3dadd(156.608, 198.762, 14.548, 0.32)
pt3dadd(156.61, 198.882, 14.548, 0.338)
pt3dadd(156.611, 199.002, 14.548, 0.356)
pt3dadd(156.611, 199.122, 14.548, 0.372)
pt3dadd(156.612, 199.242, 14.548, 0.39)
pt3dadd(156.613, 199.362, 14.548, 0.408)
pt3dadd(156.614, 199.482, 14.547, 0.416)
pt3dadd(156.616, 199.602, 14.547, 0.42)
pt3dadd(156.618, 199.722, 14.547, 0.424)
pt3dadd(156.619, 199.842, 14.547, 0.428)
pt3dadd(156.622, 199.962, 14.546, 0.432)
pt3dadd(156.623, 200.082, 14.546, 0.436)
pt3dadd(156.624, 200.202, 14.546, 0.44)
pt3dadd(156.626, 200.322, 14.546, 0.444)
pt3dadd(156.628, 200.442, 14.545, 0.448)
pt3dadd(156.63, 200.562, 14.545, 0.452)
pt3dadd(156.632, 200.681, 14.545, 0.446)
pt3dadd(156.635, 200.801, 14.545, 0.436)
pt3dadd(156.638, 200.921, 14.544, 0.426)
pt3dadd(156.641, 201.041, 14.544, 0.418)
pt3dadd(156.643, 201.161, 14.543, 0.408)
pt3dadd(156.647, 201.281, 14.543, 0.4)
pt3dadd(156.649, 201.401, 14.542, 0.39)
pt3dadd(156.653, 201.521, 14.542, 0.38)
pt3dadd(156.655, 201.641, 14.541, 0.372)
pt3dadd(156.658, 201.761, 14.541, 0.362)
pt3dadd(156.662, 201.881, 14.54, 0.35)
pt3dadd(156.667, 202.001, 14.54, 0.336)
pt3dadd(156.673, 202.121, 14.539, 0.322)
pt3dadd(156.678, 202.241, 14.538, 0.31)
pt3dadd(156.683, 202.361, 14.537, 0.296)
pt3dadd(156.689, 202.481, 14.537, 0.282)
pt3dadd(156.694, 202.601, 14.536, 0.27)
pt3dadd(156.698, 202.72, 14.535, 0.256)
pt3dadd(156.704, 202.84, 14.534, 0.242)
pt3dadd(156.709, 202.96, 14.534, 0.23)
pt3dadd(156.718, 203.08, 14.532, 0.226)
pt3dadd(156.726, 203.2, 14.531, 0.226)
pt3dadd(156.736, 203.318, 14.53, 0.226)
pt3dadd(156.745, 203.438, 14.529, 0.226)
pt3dadd(156.755, 203.558, 14.527, 0.226)
pt3dadd(156.763, 203.678, 14.526, 0.226)
pt3dadd(156.773, 203.797, 14.525, 0.226)
pt3dadd(156.782, 203.917, 14.524, 0.226)
pt3dadd(156.791, 204.037, 14.522, 0.226)
pt3dadd(156.8, 204.156, 14.521, 0.226)
pt3dadd(156.815, 204.276, 14.519, 0.226)
pt3dadd(156.83, 204.395, 14.516, 0.226)
pt3dadd(156.845, 204.514, 14.514, 0.226)
pt3dadd(156.86, 204.632, 14.511, 0.226)
pt3dadd(156.876, 204.751, 14.509, 0.226)
pt3dadd(156.892, 204.87, 14.506, 0.226)
pt3dadd(156.907, 204.989, 14.504, 0.226)
pt3dadd(156.923, 205.108, 14.501, 0.226)
pt3dadd(156.938, 205.228, 14.499, 0.226)
pt3dadd(156.954, 205.346, 14.496, 0.226)
pt3dadd(156.986, 205.462, 14.492, 0.244)
pt3dadd(157.025, 205.574, 14.487, 0.266)
pt3dadd(157.063, 205.688, 14.482, 0.29)
pt3dadd(157.102, 205.801, 14.477, 0.314)
pt3dadd(157.14, 205.915, 14.472, 0.336)
pt3dadd(157.178, 206.029, 14.467, 0.36)
pt3dadd(157.217, 206.142, 14.462, 0.384)
pt3dadd(157.254, 206.256, 14.457, 0.406)
pt3dadd(157.292, 206.37, 14.452, 0.43)
pt3dadd(157.331, 206.483, 14.448, 0.452)
pt3dadd(157.374, 206.594, 14.441, 0.476)
pt3dadd(157.418, 206.706, 14.434, 0.498)
pt3dadd(157.462, 206.818, 14.427, 0.52)
pt3dadd(157.506, 206.929, 14.419, 0.542)
pt3dadd(157.549, 207.041, 14.412, 0.564)
pt3dadd(157.594, 207.151, 14.405, 0.586)
pt3dadd(157.638, 207.263, 14.398, 0.608)
pt3dadd(157.681, 207.374, 14.391, 0.63)
pt3dadd(157.726, 207.486, 14.384, 0.652)
pt3dadd(157.769, 207.598, 14.377, 0.674)
pt3dadd(157.807, 207.71, 14.367, 0.678)
pt3dadd(157.843, 207.824, 14.358, 0.678)
pt3dadd(157.879, 207.938, 14.348, 0.678)
pt3dadd(157.916, 208.051, 14.338, 0.678)
pt3dadd(157.952, 208.165, 14.329, 0.678)
pt3dadd(157.99, 208.279, 14.319, 0.678)
pt3dadd(158.026, 208.393, 14.309, 0.678)
pt3dadd(158.062, 208.506, 14.299, 0.678)
pt3dadd(158.099, 208.62, 14.29, 0.678)
pt3dadd(158.135, 208.734, 14.28, 0.678)
pt3dadd(158.162, 208.844, 14.25, 0.678)
pt3dadd(158.189, 208.955, 14.216, 0.678)
pt3dadd(158.214, 209.064, 14.182, 0.678)
pt3dadd(158.24, 209.174, 14.149, 0.678)
pt3dadd(158.267, 209.284, 14.115, 0.678)
pt3dadd(158.292, 209.394, 14.081, 0.678)
pt3dadd(158.318, 209.504, 14.047, 0.678)
pt3dadd(158.344, 209.614, 14.013, 0.678)
pt3dadd(158.37, 209.724, 13.98, 0.678)
pt3dadd(158.396, 209.833, 13.946, 0.678)
pt3dadd(158.432, 209.944, 13.921, 0.67)
pt3dadd(158.47, 210.054, 13.898, 0.66)
pt3dadd(158.508, 210.164, 13.874, 0.65)
pt3dadd(158.545, 210.275, 13.851, 0.64)
pt3dadd(158.584, 210.385, 13.827, 0.63)
pt3dadd(158.622, 210.496, 13.804, 0.62)
pt3dadd(158.659, 210.606, 13.781, 0.61)
pt3dadd(158.698, 210.716, 13.757, 0.6)
pt3dadd(158.736, 210.827, 13.734, 0.59)
pt3dadd(158.773, 210.937, 13.711, 0.58)
pt3dadd(158.816, 211.048, 13.697, 0.568)
pt3dadd(158.858, 211.159, 13.685, 0.554)
pt3dadd(158.902, 211.271, 13.672, 0.542)
pt3dadd(158.944, 211.381, 13.66, 0.53)
pt3dadd(158.987, 211.493, 13.647, 0.516)
pt3dadd(159.03, 211.603, 13.635, 0.504)
pt3dadd(159.072, 211.715, 13.622, 0.49)
pt3dadd(159.115, 211.826, 13.61, 0.478)
pt3dadd(159.158, 211.937, 13.597, 0.466)
pt3dadd(159.2, 212.048, 13.585, 0.452)
pt3dadd(159.234, 212.164, 13.584, 0.452)
pt3dadd(159.266, 212.279, 13.585, 0.452)
pt3dadd(159.298, 212.395, 13.585, 0.452)
pt3dadd(159.33, 212.51, 13.586, 0.452)
pt3dadd(159.362, 212.626, 13.586, 0.452)
pt3dadd(159.395, 212.741, 13.587, 0.452)
pt3dadd(159.427, 212.857, 13.587, 0.452)
pt3dadd(159.46, 212.972, 13.588, 0.452)
pt3dadd(159.492, 213.088, 13.588, 0.452)
pt3dadd(159.524, 213.204, 13.588, 0.452)
pt3dadd(159.546, 213.314, 13.62, 0.466)
pt3dadd(159.569, 213.426, 13.654, 0.482)
pt3dadd(159.59, 213.536, 13.687, 0.496)
pt3dadd(159.612, 213.648, 13.72, 0.51)
pt3dadd(159.634, 213.758, 13.753, 0.526)
pt3dadd(159.655, 213.87, 13.787, 0.54)
pt3dadd(159.678, 213.982, 13.82, 0.556)
pt3dadd(159.7, 214.092, 13.853, 0.57)
pt3dadd(159.721, 214.204, 13.887, 0.586)
pt3dadd(159.743, 214.314, 13.92, 0.6)
pt3dadd(159.761, 214.427, 13.95, 0.608)
pt3dadd(159.779, 214.541, 13.98, 0.616)
pt3dadd(159.797, 214.654, 14.009, 0.624)
}
}
proc shape3d_104() {
apic[24] { pt3dadd(159.815, 214.766, 14.039, 0.632)
pt3dadd(159.833, 214.879, 14.069, 0.64)
pt3dadd(159.851, 214.993, 14.099, 0.648)
pt3dadd(159.869, 215.106, 14.129, 0.654)
pt3dadd(159.887, 215.219, 14.158, 0.662)
pt3dadd(159.905, 215.333, 14.188, 0.67)
pt3dadd(159.923, 215.446, 14.218, 0.678)
pt3dadd(159.944, 215.561, 14.238, 0.67)
pt3dadd(159.967, 215.676, 14.259, 0.664)
pt3dadd(159.989, 215.791, 14.28, 0.656)
pt3dadd(160.012, 215.906, 14.301, 0.65)
pt3dadd(160.033, 216.022, 14.321, 0.644)
pt3dadd(160.056, 216.137, 14.342, 0.636)
pt3dadd(160.079, 216.252, 14.363, 0.63)
pt3dadd(160.1, 216.367, 14.384, 0.622)
pt3dadd(160.123, 216.482, 14.404, 0.616)
pt3dadd(160.148, 216.598, 14.424, 0.606)
pt3dadd(160.195, 216.707, 14.433, 0.572)
pt3dadd(160.243, 216.817, 14.443, 0.54)
pt3dadd(160.29, 216.926, 14.452, 0.508)
pt3dadd(160.338, 217.036, 14.462, 0.476)
pt3dadd(160.385, 217.146, 14.472, 0.442)
pt3dadd(160.433, 217.255, 14.481, 0.41)
pt3dadd(160.48, 217.366, 14.491, 0.378)
pt3dadd(160.528, 217.475, 14.5, 0.344)
pt3dadd(160.574, 217.584, 14.51, 0.312)
pt3dadd(160.621, 217.694, 14.518, 0.284)
pt3dadd(160.66, 217.808, 14.519, 0.292)
pt3dadd(160.699, 217.921, 14.52, 0.3)
pt3dadd(160.738, 218.035, 14.52, 0.31)
pt3dadd(160.777, 218.148, 14.521, 0.318)
pt3dadd(160.816, 218.262, 14.521, 0.326)
pt3dadd(160.855, 218.375, 14.522, 0.334)
pt3dadd(160.894, 218.489, 14.522, 0.342)
pt3dadd(160.932, 218.603, 14.523, 0.35)
pt3dadd(160.972, 218.716, 14.523, 0.358)
pt3dadd(161.01, 218.83, 14.524, 0.366)
pt3dadd(161.042, 218.945, 14.521, 0.366)
pt3dadd(161.075, 219.06, 14.52, 0.366)
pt3dadd(161.108, 219.176, 14.517, 0.366)
pt3dadd(161.141, 219.292, 14.515, 0.366)
pt3dadd(161.173, 219.407, 14.513, 0.366)
pt3dadd(161.207, 219.522, 14.511, 0.366)
pt3dadd(161.239, 219.637, 14.509, 0.366)
pt3dadd(161.272, 219.752, 14.507, 0.366)
pt3dadd(161.305, 219.869, 14.505, 0.366)
pt3dadd(161.338, 219.984, 14.503, 0.364)
pt3dadd(161.37, 220.099, 14.499, 0.35)
pt3dadd(161.402, 220.214, 14.496, 0.336)
pt3dadd(161.434, 220.331, 14.492, 0.322)
pt3dadd(161.466, 220.446, 14.488, 0.308)
pt3dadd(161.498, 220.561, 14.485, 0.294)
pt3dadd(161.531, 220.676, 14.481, 0.28)
pt3dadd(161.563, 220.793, 14.478, 0.266)
pt3dadd(161.596, 220.908, 14.474, 0.252)
pt3dadd(161.627, 221.023, 14.471, 0.238)
pt3dadd(161.662, 221.138, 14.467, 0.226)
pt3dadd(161.71, 221.248, 14.46, 0.226)
pt3dadd(161.758, 221.358, 14.454, 0.226)
pt3dadd(161.806, 221.467, 14.447, 0.226)
pt3dadd(161.854, 221.578, 14.441, 0.226)
pt3dadd(161.9, 221.687, 14.434, 0.226)
pt3dadd(161.948, 221.797, 14.428, 0.226)
pt3dadd(161.996, 221.906, 14.421, 0.226)
pt3dadd(162.044, 222.017, 14.415, 0.226)
pt3dadd(162.092, 222.126, 14.408, 0.226)
pt3dadd(162.138, 222.236, 14.401, 0.232)
pt3dadd(162.178, 222.349, 14.391, 0.274)
pt3dadd(162.216, 222.462, 14.381, 0.314)
pt3dadd(162.256, 222.575, 14.37, 0.356)
pt3dadd(162.295, 222.688, 14.36, 0.398)
pt3dadd(162.334, 222.8, 14.35, 0.438)
pt3dadd(162.373, 222.913, 14.34, 0.48)
pt3dadd(162.413, 223.026, 14.329, 0.52)
pt3dadd(162.451, 223.139, 14.319, 0.562)
pt3dadd(162.491, 223.252, 14.309, 0.602)
pt3dadd(162.529, 223.364, 14.296, 0.638)
pt3dadd(162.562, 223.476, 14.273, 0.642)
pt3dadd(162.594, 223.588, 14.25, 0.646)
pt3dadd(162.626, 223.7, 14.226, 0.648)
pt3dadd(162.66, 223.812, 14.203, 0.652)
pt3dadd(162.692, 223.924, 14.18, 0.656)
pt3dadd(162.725, 224.036, 14.156, 0.66)
pt3dadd(162.757, 224.148, 14.133, 0.664)
pt3dadd(162.791, 224.26, 14.109, 0.668)
pt3dadd(162.823, 224.372, 14.086, 0.672)
pt3dadd(162.854, 224.483, 14.06, 0.664)
pt3dadd(162.883, 224.592, 14.024, 0.618)
pt3dadd(162.912, 224.7, 13.988, 0.574)
pt3dadd(162.941, 224.808, 13.953, 0.528)
pt3dadd(162.97, 224.917, 13.917, 0.484)
pt3dadd(162.998, 225.025, 13.882, 0.438)
pt3dadd(163.028, 225.133, 13.846, 0.394)
pt3dadd(163.057, 225.241, 13.811, 0.348)
pt3dadd(163.086, 225.35, 13.775, 0.304)
pt3dadd(163.115, 225.458, 13.74, 0.258)
pt3dadd(163.148, 225.566, 13.707, 0.226)
pt3dadd(163.196, 225.673, 13.685, 0.226)
pt3dadd(163.244, 225.78, 13.662, 0.226)
pt3dadd(163.292, 225.886, 13.64, 0.226)
pt3dadd(163.34, 225.992, 13.617, 0.226)
pt3dadd(163.388, 226.099, 13.595, 0.226)
pt3dadd(163.436, 226.206, 13.572, 0.226)
pt3dadd(163.484, 226.313, 13.549, 0.226)
pt3dadd(163.532, 226.42, 13.527, 0.226)
pt3dadd(163.58, 226.525, 13.504, 0.226)
pt3dadd(163.627, 226.633, 13.483, 0.226)
pt3dadd(163.67, 226.744, 13.468, 0.226)
pt3dadd(163.714, 226.854, 13.452, 0.226)
pt3dadd(163.756, 226.964, 13.437, 0.226)
pt3dadd(163.799, 227.075, 13.421, 0.226)
pt3dadd(163.842, 227.185, 13.405, 0.226)
pt3dadd(163.885, 227.296, 13.39, 0.226)
pt3dadd(163.928, 227.406, 13.374, 0.226)
pt3dadd(163.972, 227.516, 13.359, 0.226)
pt3dadd(164.015, 227.627, 13.343, 0.226)
pt3dadd(164.057, 227.738, 13.33, 0.226)
pt3dadd(164.096, 227.851, 13.321, 0.226)
pt3dadd(164.136, 227.964, 13.312, 0.226)
pt3dadd(164.176, 228.077, 13.303, 0.226)
pt3dadd(164.215, 228.19, 13.294, 0.226)
pt3dadd(164.255, 228.302, 13.285, 0.226)
pt3dadd(164.293, 228.415, 13.276, 0.226)
pt3dadd(164.333, 228.528, 13.267, 0.226)
pt3dadd(164.372, 228.641, 13.258, 0.226)
pt3dadd(164.412, 228.754, 13.249, 0.226)
pt3dadd(164.452, 228.866, 13.242, 0.226)
pt3dadd(164.49, 228.98, 13.239, 0.226)
pt3dadd(164.528, 229.094, 13.236, 0.226)
pt3dadd(164.567, 229.207, 13.233, 0.226)
pt3dadd(164.604, 229.321, 13.23, 0.226)
pt3dadd(164.642, 229.435, 13.227, 0.226)
pt3dadd(164.681, 229.549, 13.225, 0.226)
pt3dadd(164.719, 229.662, 13.222, 0.226)
pt3dadd(164.758, 229.776, 13.219, 0.226)
pt3dadd(164.796, 229.89, 13.216, 0.226)
pt3dadd(164.842, 230, 13.212, 0.226)
pt3dadd(164.904, 230.102, 13.205, 0.226)
pt3dadd(164.965, 230.204, 13.199, 0.226)
pt3dadd(165.028, 230.308, 13.193, 0.226)
pt3dadd(165.09, 230.41, 13.186, 0.226)
pt3dadd(165.151, 230.513, 13.179, 0.226)
pt3dadd(165.214, 230.615, 13.173, 0.226)
pt3dadd(165.275, 230.718, 13.167, 0.226)
pt3dadd(165.337, 230.82, 13.16, 0.226)
pt3dadd(165.4, 230.922, 13.154, 0.226)
pt3dadd(165.464, 231.023, 13.146, 0.226)
pt3dadd(165.536, 231.118, 13.138, 0.226)
pt3dadd(165.608, 231.214, 13.129, 0.226)
pt3dadd(165.68, 231.308, 13.12, 0.226)
pt3dadd(165.754, 231.403, 13.111, 0.226)
pt3dadd(165.826, 231.499, 13.102, 0.226)
pt3dadd(165.898, 231.594, 13.094, 0.226)
pt3dadd(165.97, 231.689, 13.085, 0.226)
pt3dadd(166.042, 231.785, 13.076, 0.226)
pt3dadd(166.115, 231.88, 13.067, 0.226)
pt3dadd(166.188, 231.973, 13.056, 0.228)
pt3dadd(166.266, 232.063, 13.04, 0.236)
pt3dadd(166.343, 232.152, 13.024, 0.242)
pt3dadd(166.421, 232.242, 13.007, 0.25)
pt3dadd(166.498, 232.332, 12.991, 0.256)
pt3dadd(166.576, 232.421, 12.975, 0.264)
pt3dadd(166.652, 232.511, 12.959, 0.27)
pt3dadd(166.73, 232.601, 12.942, 0.278)
pt3dadd(166.807, 232.69, 12.926, 0.286)
pt3dadd(166.885, 232.78, 12.91, 0.292)
pt3dadd(166.961, 232.865, 12.882, 0.312)
pt3dadd(167.034, 232.944, 12.838, 0.35)
pt3dadd(167.107, 233.023, 12.795, 0.388)
pt3dadd(167.18, 233.102, 12.751, 0.424)
pt3dadd(167.254, 233.182, 12.708, 0.462)
pt3dadd(167.328, 233.261, 12.664, 0.498)
pt3dadd(167.401, 233.34, 12.621, 0.536)
pt3dadd(167.474, 233.419, 12.577, 0.574)
pt3dadd(167.548, 233.498, 12.533, 0.61)
pt3dadd(167.621, 233.579, 12.49, 0.648)
pt3dadd(167.695, 233.662, 12.455, 0.652)
pt3dadd(167.772, 233.749, 12.431, 0.618)
pt3dadd(167.848, 233.838, 12.407, 0.582)
pt3dadd(167.924, 233.926, 12.383, 0.548)
pt3dadd(168, 234.013, 12.359, 0.514)
pt3dadd(168.077, 234.102, 12.335, 0.478)
pt3dadd(168.152, 234.19, 12.311, 0.444)
pt3dadd(168.229, 234.278, 12.286, 0.408)
pt3dadd(168.305, 234.366, 12.262, 0.374)
pt3dadd(168.382, 234.454, 12.238, 0.338)
pt3dadd(168.457, 234.545, 12.219, 0.32)
pt3dadd(168.532, 234.637, 12.205, 0.322)
pt3dadd(168.606, 234.73, 12.191, 0.324)
pt3dadd(168.68, 234.822, 12.178, 0.328)
pt3dadd(168.755, 234.914, 12.164, 0.33)
pt3dadd(168.829, 235.007, 12.15, 0.332)
pt3dadd(168.905, 235.099, 12.137, 0.334)
pt3dadd(168.979, 235.193, 12.123, 0.336)
pt3dadd(169.054, 235.285, 12.109, 0.338)
pt3dadd(169.128, 235.378, 12.096, 0.34)
pt3dadd(169.199, 235.474, 12.085, 0.344)
pt3dadd(169.266, 235.572, 12.078, 0.35)
pt3dadd(169.334, 235.67, 12.071, 0.356)
pt3dadd(169.402, 235.77, 12.064, 0.362)
}
}
proc shape3d_105() {
apic[24] { pt3dadd(169.469, 235.868, 12.058, 0.37)
pt3dadd(169.536, 235.968, 12.051, 0.376)
pt3dadd(169.603, 236.066, 12.044, 0.382)
pt3dadd(169.67, 236.166, 12.037, 0.388)
pt3dadd(169.739, 236.264, 12.03, 0.394)
pt3dadd(169.806, 236.364, 12.023, 0.4)
pt3dadd(169.865, 236.467, 12.02, 0.394)
pt3dadd(169.915, 236.576, 12.02, 0.378)
pt3dadd(169.967, 236.684, 12.02, 0.362)
pt3dadd(170.017, 236.794, 12.02, 0.346)
pt3dadd(170.069, 236.902, 12.02, 0.33)
pt3dadd(170.119, 237.011, 12.02, 0.314)
pt3dadd(170.171, 237.119, 12.02, 0.296)
pt3dadd(170.221, 237.228, 12.02, 0.28)
pt3dadd(170.273, 237.336, 12.02, 0.264)
pt3dadd(170.323, 237.445, 12.02, 0.248)
pt3dadd(170.368, 237.557, 12.02, 0.248)
pt3dadd(170.406, 237.671, 12.02, 0.262)
pt3dadd(170.444, 237.784, 12.02, 0.276)
pt3dadd(170.483, 237.898, 12.02, 0.29)
pt3dadd(170.521, 238.012, 12.02, 0.306)
pt3dadd(170.56, 238.126, 12.019, 0.32)
pt3dadd(170.598, 238.238, 12.019, 0.334)
pt3dadd(170.636, 238.352, 12.019, 0.348)
pt3dadd(170.674, 238.466, 12.019, 0.362)
pt3dadd(170.712, 238.58, 12.019, 0.376)
pt3dadd(170.758, 238.691, 12.019, 0.382)
pt3dadd(170.809, 238.8, 12.019, 0.38)
pt3dadd(170.861, 238.908, 12.019, 0.376)
pt3dadd(170.911, 239.016, 12.019, 0.374)
pt3dadd(170.963, 239.125, 12.019, 0.372)
pt3dadd(171.014, 239.233, 12.019, 0.368)
pt3dadd(171.065, 239.342, 12.019, 0.366)
pt3dadd(171.116, 239.45, 12.019, 0.362)
pt3dadd(171.168, 239.558, 12.019, 0.36)
pt3dadd(171.218, 239.668, 12.019, 0.358)
pt3dadd(171.277, 239.772, 12.019, 0.348)
pt3dadd(171.341, 239.874, 12.019, 0.336)
pt3dadd(171.404, 239.976, 12.019, 0.322)
pt3dadd(171.467, 240.078, 12.019, 0.31)
pt3dadd(171.53, 240.18, 12.019, 0.296)
pt3dadd(171.594, 240.282, 12.019, 0.284)
pt3dadd(171.656, 240.384, 12.019, 0.27)
pt3dadd(171.72, 240.486, 12.019, 0.258)
pt3dadd(171.784, 240.588, 12.019, 0.244)
pt3dadd(171.847, 240.69, 12.019, 0.232)
pt3dadd(171.918, 240.786, 12.019, 0.226)
pt3dadd(171.994, 240.88, 12.019, 0.226)
pt3dadd(172.069, 240.973, 12.019, 0.226)
pt3dadd(172.145, 241.066, 12.019, 0.226)
pt3dadd(172.22, 241.159, 12.019, 0.226)
pt3dadd(172.296, 241.252, 12.019, 0.226)
pt3dadd(172.372, 241.345, 12.019, 0.226)
pt3dadd(172.447, 241.439, 12.019, 0.226)
pt3dadd(172.523, 241.531, 12.019, 0.226)
pt3dadd(172.598, 241.625, 12.019, 0.226)
pt3dadd(172.67, 241.721, 12.019, 0.234)
pt3dadd(172.739, 241.819, 12.019, 0.244)
pt3dadd(172.807, 241.918, 12.018, 0.256)
pt3dadd(172.876, 242.016, 12.018, 0.266)
pt3dadd(172.944, 242.114, 12.018, 0.278)
pt3dadd(173.012, 242.214, 12.018, 0.29)
pt3dadd(173.081, 242.312, 12.018, 0.302)
pt3dadd(173.149, 242.411, 12.018, 0.312)
pt3dadd(173.218, 242.509, 12.018, 0.324)
pt3dadd(173.286, 242.608, 12.018, 0.334)
pt3dadd(173.358, 242.704, 12.018, 0.35)
pt3dadd(173.432, 242.798, 12.017, 0.368)
pt3dadd(173.506, 242.893, 12.017, 0.386)
pt3dadd(173.58, 242.988, 12.017, 0.406)
pt3dadd(173.653, 243.083, 12.017, 0.424)
pt3dadd(173.726, 243.178, 12.017, 0.442)
pt3dadd(173.801, 243.272, 12.017, 0.46)
pt3dadd(173.874, 243.366, 12.017, 0.478)
pt3dadd(173.948, 243.461, 12.016, 0.496)
pt3dadd(174.022, 243.556, 12.016, 0.514)
pt3dadd(174.106, 243.641, 12.016, 0.53)
pt3dadd(174.194, 243.721, 12.016, 0.546)
pt3dadd(174.283, 243.803, 12.015, 0.562)
pt3dadd(174.372, 243.883, 12.015, 0.578)
pt3dadd(174.461, 243.965, 12.015, 0.594)
pt3dadd(174.548, 244.045, 12.014, 0.61)
pt3dadd(174.637, 244.127, 12.014, 0.626)
pt3dadd(174.726, 244.207, 12.014, 0.642)
pt3dadd(174.815, 244.289, 12.014, 0.658)
pt3dadd(174.904, 244.369, 12.013, 0.674)
pt3dadd(174.989, 244.453, 12.013, 0.678)
pt3dadd(175.074, 244.538, 12.012, 0.678)
pt3dadd(175.158, 244.624, 12.012, 0.678)
pt3dadd(175.243, 244.709, 12.011, 0.678)
pt3dadd(175.327, 244.794, 12.011, 0.678)
pt3dadd(175.412, 244.879, 12.01, 0.678)
pt3dadd(175.496, 244.964, 12.01, 0.678)
pt3dadd(175.582, 245.05, 12.009, 0.678)
pt3dadd(175.666, 245.135, 12.009, 0.678)
pt3dadd(175.751, 245.22, 12.008, 0.678)
pt3dadd(175.822, 245.315, 12.007, 0.656)
pt3dadd(175.888, 245.416, 12.006, 0.626)
pt3dadd(175.954, 245.515, 12.005, 0.596)
pt3dadd(176.02, 245.616, 12.004, 0.566)
pt3dadd(176.086, 245.717, 12.003, 0.534)
pt3dadd(176.152, 245.816, 12.002, 0.504)
pt3dadd(176.218, 245.917, 12.001, 0.474)
pt3dadd(176.284, 246.017, 12, 0.444)
pt3dadd(176.35, 246.118, 11.999, 0.414)
pt3dadd(176.416, 246.217, 11.998, 0.382)
pt3dadd(176.479, 246.319, 11.997, 0.364)
pt3dadd(176.543, 246.421, 11.995, 0.348)
pt3dadd(176.606, 246.522, 11.993, 0.334)
pt3dadd(176.67, 246.624, 11.992, 0.32)
pt3dadd(176.734, 246.726, 11.99, 0.304)
pt3dadd(176.797, 246.828, 11.989, 0.29)
pt3dadd(176.861, 246.93, 11.987, 0.274)
pt3dadd(176.924, 247.032, 11.985, 0.26)
pt3dadd(176.988, 247.133, 11.984, 0.244)
pt3dadd(177.05, 247.235, 11.982, 0.23)
pt3dadd(177.115, 247.337, 11.98, 0.226)
pt3dadd(177.179, 247.438, 11.978, 0.226)
pt3dadd(177.244, 247.54, 11.975, 0.226)
pt3dadd(177.308, 247.64, 11.973, 0.226)
pt3dadd(177.372, 247.741, 11.97, 0.226)
pt3dadd(177.437, 247.843, 11.968, 0.226)
pt3dadd(177.5, 247.944, 11.966, 0.226)
pt3dadd(177.565, 248.045, 11.963, 0.226)
pt3dadd(177.63, 248.147, 11.961, 0.226)
pt3dadd(177.694, 248.248, 11.958, 0.226)
pt3dadd(177.76, 248.348, 11.954, 0.226)
pt3dadd(177.826, 248.448, 11.949, 0.226)
pt3dadd(177.892, 248.548, 11.944, 0.226)
pt3dadd(177.959, 248.647, 11.939, 0.226)
pt3dadd(178.025, 248.748, 11.933, 0.226)
pt3dadd(178.091, 248.848, 11.928, 0.226)
pt3dadd(178.157, 248.947, 11.923, 0.226)
pt3dadd(178.223, 249.047, 11.918, 0.226)
pt3dadd(178.29, 249.148, 11.913, 0.226)
pt3dadd(178.356, 249.247, 11.907, 0.226)
pt3dadd(178.406, 249.355, 11.9, 0.226)
pt3dadd(178.452, 249.466, 11.891, 0.226)
pt3dadd(178.498, 249.576, 11.883, 0.226)
pt3dadd(178.543, 249.686, 11.874, 0.226)
pt3dadd(178.589, 249.797, 11.866, 0.226)
pt3dadd(178.634, 249.907, 11.857, 0.226)
pt3dadd(178.68, 250.018, 11.849, 0.226)
pt3dadd(178.726, 250.129, 11.84, 0.226)
pt3dadd(178.77, 250.24, 11.832, 0.226)
pt3dadd(178.816, 250.35, 11.823, 0.226)
pt3dadd(178.837, 250.462, 11.795, 0.25)
pt3dadd(178.853, 250.574, 11.763, 0.278)
pt3dadd(178.868, 250.687, 11.731, 0.308)
pt3dadd(178.884, 250.8, 11.699, 0.336)
pt3dadd(178.9, 250.913, 11.667, 0.366)
pt3dadd(178.915, 251.024, 11.635, 0.396)
pt3dadd(178.931, 251.137, 11.603, 0.424)
pt3dadd(178.946, 251.25, 11.571, 0.454)
pt3dadd(178.962, 251.363, 11.538, 0.482)
pt3dadd(178.968, 251.474, 11.507, 0.51)
pt3dadd(178.925, 251.581, 11.478, 0.528)
pt3dadd(178.883, 251.688, 11.45, 0.544)
pt3dadd(178.84, 251.795, 11.421, 0.562)
pt3dadd(178.796, 251.902, 11.393, 0.58)
pt3dadd(178.754, 252.008, 11.364, 0.598)
pt3dadd(178.711, 252.115, 11.336, 0.616)
pt3dadd(178.668, 252.221, 11.307, 0.634)
pt3dadd(178.625, 252.328, 11.279, 0.652)
pt3dadd(178.583, 252.434, 11.25, 0.67)
pt3dadd(178.536, 252.542, 11.241, 0.666)
pt3dadd(178.487, 252.652, 11.25, 0.644)
pt3dadd(178.436, 252.76, 11.259, 0.622)
pt3dadd(178.387, 252.869, 11.268, 0.598)
pt3dadd(178.338, 252.978, 11.277, 0.576)
pt3dadd(178.288, 253.086, 11.286, 0.554)
pt3dadd(178.238, 253.195, 11.295, 0.532)
pt3dadd(178.189, 253.303, 11.304, 0.51)
pt3dadd(178.139, 253.412, 11.313, 0.486)
pt3dadd(178.09, 253.522, 11.322, 0.464)
pt3dadd(178.051, 253.632, 11.343, 0.446)
pt3dadd(178.015, 253.742, 11.367, 0.43)
pt3dadd(177.979, 253.854, 11.391, 0.414)
pt3dadd(177.943, 253.964, 11.415, 0.398)
pt3dadd(177.907, 254.075, 11.439, 0.382)
pt3dadd(177.872, 254.186, 11.462, 0.364)
pt3dadd(177.836, 254.297, 11.486, 0.348)
pt3dadd(177.8, 254.408, 11.51, 0.332)
pt3dadd(177.764, 254.519, 11.534, 0.316)
pt3dadd(177.728, 254.629, 11.558, 0.3)
pt3dadd(177.696, 254.743, 11.574, 0.31)
pt3dadd(177.664, 254.857, 11.589, 0.326)
pt3dadd(177.631, 254.971, 11.604, 0.34)
pt3dadd(177.599, 255.086, 11.619, 0.356)
pt3dadd(177.566, 255.2, 11.634, 0.372)
pt3dadd(177.534, 255.314, 11.649, 0.388)
pt3dadd(177.502, 255.428, 11.663, 0.404)
pt3dadd(177.469, 255.542, 11.678, 0.42)
pt3dadd(177.437, 255.656, 11.693, 0.434)
pt3dadd(177.404, 255.77, 11.708, 0.45)
pt3dadd(177.356, 255.881, 11.708, 0.452)
pt3dadd(177.306, 255.989, 11.706, 0.452)
pt3dadd(177.256, 256.098, 11.705, 0.452)
pt3dadd(177.205, 256.207, 11.703, 0.452)
pt3dadd(177.155, 256.316, 11.701, 0.452)
}
}
proc shape3d_106() {
apic[24] { pt3dadd(177.104, 256.424, 11.7, 0.452)
pt3dadd(177.054, 256.534, 11.698, 0.452)
pt3dadd(177.004, 256.643, 11.696, 0.452)
pt3dadd(176.953, 256.752, 11.694, 0.452)
pt3dadd(176.903, 256.86, 11.693, 0.452)
pt3dadd(176.861, 256.954, 11.643, 0.488)
pt3dadd(176.819, 257.045, 11.588, 0.528)
pt3dadd(176.778, 257.136, 11.533, 0.57)
pt3dadd(176.737, 257.227, 11.477, 0.61)
pt3dadd(176.696, 257.317, 11.422, 0.65)
pt3dadd(176.654, 257.408, 11.367, 0.692)
pt3dadd(176.614, 257.5, 11.311, 0.732)
pt3dadd(176.573, 257.591, 11.256, 0.772)
pt3dadd(176.531, 257.682, 11.2, 0.814)
pt3dadd(176.49, 257.773, 11.145, 0.854)
pt3dadd(176.474, 257.882, 11.106, 0.792)
pt3dadd(176.459, 257.992, 11.067, 0.728)
pt3dadd(176.443, 258.101, 11.028, 0.666)
pt3dadd(176.428, 258.21, 10.989, 0.602)
pt3dadd(176.412, 258.319, 10.95, 0.54)
pt3dadd(176.395, 258.43, 10.911, 0.478)
pt3dadd(176.38, 258.539, 10.872, 0.414)
pt3dadd(176.364, 258.648, 10.833, 0.352)
pt3dadd(176.348, 258.757, 10.794, 0.288)
pt3dadd(176.333, 258.866, 10.754, 0.226)
}
apic[25] {pt3dclear()
pt3dadd(149.204, 167.77, 15.815, 0.226)
pt3dadd(149.297, 167.77, 15.815, 0.226)
pt3dadd(149.417, 167.77, 15.815, 0.226)
pt3dadd(149.537, 167.77, 15.815, 0.226)
pt3dadd(149.657, 167.77, 15.815, 0.226)
pt3dadd(149.777, 167.77, 15.816, 0.226)
pt3dadd(149.893, 167.785, 15.835, 0.242)
pt3dadd(150.01, 167.801, 15.854, 0.258)
pt3dadd(150.127, 167.815, 15.874, 0.272)
pt3dadd(150.244, 167.831, 15.893, 0.288)
pt3dadd(150.36, 167.845, 15.912, 0.304)
pt3dadd(150.478, 167.861, 15.931, 0.318)
pt3dadd(150.594, 167.875, 15.951, 0.334)
pt3dadd(150.71, 167.891, 15.97, 0.35)
pt3dadd(150.828, 167.906, 15.989, 0.364)
pt3dadd(150.935, 167.933, 16.022, 0.392)
pt3dadd(151.032, 167.971, 16.071, 0.43)
pt3dadd(151.13, 168.01, 16.12, 0.47)
pt3dadd(151.228, 168.048, 16.169, 0.51)
pt3dadd(151.325, 168.086, 16.218, 0.548)
pt3dadd(151.422, 168.125, 16.267, 0.588)
pt3dadd(151.519, 168.163, 16.316, 0.626)
pt3dadd(151.616, 168.202, 16.364, 0.666)
pt3dadd(151.714, 168.24, 16.413, 0.706)
pt3dadd(151.811, 168.28, 16.462, 0.744)
pt3dadd(151.909, 168.326, 16.504, 0.756)
pt3dadd(152.006, 168.383, 16.538, 0.738)
pt3dadd(152.105, 168.439, 16.571, 0.722)
pt3dadd(152.202, 168.497, 16.605, 0.704)
pt3dadd(152.299, 168.553, 16.639, 0.688)
pt3dadd(152.398, 168.61, 16.673, 0.67)
pt3dadd(152.495, 168.666, 16.707, 0.652)
pt3dadd(152.593, 168.722, 16.74, 0.636)
pt3dadd(152.69, 168.78, 16.774, 0.618)
pt3dadd(152.788, 168.836, 16.808, 0.6)
pt3dadd(152.885, 168.9, 16.835, 0.58)
pt3dadd(152.98, 168.967, 16.857, 0.556)
pt3dadd(153.074, 169.036, 16.879, 0.532)
pt3dadd(153.17, 169.103, 16.902, 0.508)
pt3dadd(153.265, 169.171, 16.924, 0.484)
pt3dadd(153.361, 169.238, 16.946, 0.46)
pt3dadd(153.456, 169.307, 16.969, 0.436)
pt3dadd(153.551, 169.375, 16.991, 0.412)
pt3dadd(153.647, 169.442, 17.013, 0.388)
pt3dadd(153.742, 169.511, 17.036, 0.364)
pt3dadd(153.835, 169.583, 17.053, 0.39)
pt3dadd(153.928, 169.657, 17.067, 0.446)
pt3dadd(154.02, 169.732, 17.081, 0.5)
pt3dadd(154.112, 169.806, 17.095, 0.556)
pt3dadd(154.205, 169.882, 17.109, 0.61)
pt3dadd(154.297, 169.956, 17.123, 0.666)
pt3dadd(154.39, 170.03, 17.137, 0.72)
pt3dadd(154.482, 170.105, 17.152, 0.776)
pt3dadd(154.574, 170.18, 17.166, 0.83)
pt3dadd(154.667, 170.255, 17.18, 0.886)
pt3dadd(154.759, 170.33, 17.192, 0.916)
pt3dadd(154.85, 170.407, 17.203, 0.93)
pt3dadd(154.942, 170.483, 17.214, 0.944)
pt3dadd(155.033, 170.56, 17.225, 0.958)
pt3dadd(155.125, 170.636, 17.236, 0.972)
pt3dadd(155.216, 170.713, 17.248, 0.988)
pt3dadd(155.308, 170.789, 17.259, 1.002)
pt3dadd(155.399, 170.866, 17.27, 1.016)
pt3dadd(155.491, 170.942, 17.281, 1.03)
pt3dadd(155.582, 171.019, 17.292, 1.044)
pt3dadd(155.674, 171.096, 17.302, 1.042)
pt3dadd(155.764, 171.174, 17.311, 1.028)
pt3dadd(155.855, 171.252, 17.32, 1.014)
pt3dadd(155.946, 171.329, 17.329, 1)
pt3dadd(156.036, 171.407, 17.338, 0.988)
pt3dadd(156.127, 171.485, 17.347, 0.974)
pt3dadd(156.217, 171.563, 17.356, 0.96)
pt3dadd(156.308, 171.641, 17.365, 0.946)
pt3dadd(156.4, 171.718, 17.374, 0.934)
pt3dadd(156.49, 171.796, 17.383, 0.92)
pt3dadd(156.586, 171.86, 17.407, 0.906)
pt3dadd(156.685, 171.917, 17.439, 0.89)
pt3dadd(156.784, 171.973, 17.47, 0.876)
pt3dadd(156.882, 172.03, 17.502, 0.862)
pt3dadd(156.982, 172.086, 17.534, 0.846)
pt3dadd(157.08, 172.142, 17.566, 0.832)
pt3dadd(157.178, 172.198, 17.598, 0.818)
pt3dadd(157.278, 172.254, 17.629, 0.802)
pt3dadd(157.376, 172.31, 17.661, 0.788)
pt3dadd(157.475, 172.367, 17.693, 0.774)
pt3dadd(157.574, 172.424, 17.723, 0.762)
pt3dadd(157.674, 172.482, 17.752, 0.754)
pt3dadd(157.774, 172.54, 17.781, 0.744)
pt3dadd(157.873, 172.597, 17.81, 0.734)
pt3dadd(157.972, 172.655, 17.839, 0.726)
pt3dadd(158.071, 172.712, 17.868, 0.716)
pt3dadd(158.171, 172.769, 17.897, 0.708)
pt3dadd(158.27, 172.826, 17.926, 0.698)
pt3dadd(158.37, 172.884, 17.955, 0.69)
pt3dadd(158.468, 172.942, 17.985, 0.68)
pt3dadd(158.568, 173.003, 18.009, 0.678)
pt3dadd(158.668, 173.065, 18.03, 0.678)
pt3dadd(158.766, 173.129, 18.052, 0.678)
pt3dadd(158.866, 173.191, 18.073, 0.678)
pt3dadd(158.964, 173.254, 18.095, 0.678)
pt3dadd(159.064, 173.316, 18.117, 0.678)
pt3dadd(159.162, 173.378, 18.139, 0.678)
pt3dadd(159.262, 173.442, 18.16, 0.678)
pt3dadd(159.36, 173.504, 18.182, 0.678)
pt3dadd(159.46, 173.567, 18.204, 0.678)
pt3dadd(159.558, 173.63, 18.219, 0.66)
pt3dadd(159.659, 173.695, 18.233, 0.636)
pt3dadd(159.758, 173.76, 18.246, 0.61)
pt3dadd(159.858, 173.826, 18.259, 0.584)
pt3dadd(159.958, 173.891, 18.273, 0.558)
pt3dadd(160.057, 173.956, 18.286, 0.534)
pt3dadd(160.157, 174.02, 18.299, 0.508)
pt3dadd(160.256, 174.085, 18.312, 0.482)
pt3dadd(160.356, 174.15, 18.326, 0.456)
pt3dadd(160.456, 174.215, 18.339, 0.432)
pt3dadd(160.559, 174.275, 18.35, 0.41)
pt3dadd(160.663, 174.332, 18.361, 0.39)
pt3dadd(160.768, 174.39, 18.371, 0.37)
pt3dadd(160.872, 174.448, 18.381, 0.35)
pt3dadd(160.976, 174.506, 18.392, 0.33)
pt3dadd(161.081, 174.564, 18.402, 0.31)
pt3dadd(161.185, 174.622, 18.412, 0.29)
pt3dadd(161.29, 174.679, 18.423, 0.27)
pt3dadd(161.394, 174.737, 18.433, 0.25)
pt3dadd(161.498, 174.794, 18.443, 0.23)
pt3dadd(161.609, 174.841, 18.451, 0.226)
pt3dadd(161.72, 174.883, 18.458, 0.226)
pt3dadd(161.833, 174.925, 18.466, 0.226)
pt3dadd(161.945, 174.967, 18.473, 0.226)
pt3dadd(162.058, 175.009, 18.48, 0.226)
pt3dadd(162.169, 175.051, 18.487, 0.226)
pt3dadd(162.281, 175.093, 18.494, 0.226)
pt3dadd(162.394, 175.135, 18.501, 0.226)
pt3dadd(162.505, 175.177, 18.509, 0.226)
pt3dadd(162.618, 175.219, 18.516, 0.226)
pt3dadd(162.734, 175.242, 18.527, 0.226)
pt3dadd(162.852, 175.26, 18.54, 0.226)
pt3dadd(162.97, 175.277, 18.553, 0.226)
pt3dadd(163.087, 175.295, 18.565, 0.226)
pt3dadd(163.205, 175.312, 18.578, 0.226)
pt3dadd(163.322, 175.33, 18.591, 0.226)
pt3dadd(163.44, 175.346, 18.603, 0.226)
pt3dadd(163.558, 175.364, 18.616, 0.226)
pt3dadd(163.676, 175.381, 18.629, 0.226)
pt3dadd(163.794, 175.399, 18.642, 0.226)
pt3dadd(163.908, 175.411, 18.668, 0.234)
pt3dadd(164.022, 175.423, 18.7, 0.246)
pt3dadd(164.135, 175.434, 18.731, 0.258)
pt3dadd(164.248, 175.445, 18.763, 0.268)
pt3dadd(164.362, 175.457, 18.794, 0.28)
pt3dadd(164.474, 175.468, 18.825, 0.292)
pt3dadd(164.588, 175.478, 18.857, 0.304)
pt3dadd(164.701, 175.49, 18.888, 0.314)
pt3dadd(164.815, 175.501, 18.92, 0.326)
pt3dadd(164.928, 175.513, 18.951, 0.338)
pt3dadd(165.04, 175.524, 18.987, 0.348)
pt3dadd(165.151, 175.534, 19.023, 0.36)
pt3dadd(165.263, 175.544, 19.06, 0.372)
pt3dadd(165.373, 175.555, 19.096, 0.382)
pt3dadd(165.485, 175.566, 19.133, 0.394)
pt3dadd(165.596, 175.577, 19.169, 0.406)
pt3dadd(165.707, 175.588, 19.206, 0.416)
pt3dadd(165.818, 175.598, 19.242, 0.428)
pt3dadd(165.93, 175.609, 19.279, 0.44)
pt3dadd(166.04, 175.62, 19.315, 0.45)
pt3dadd(166.154, 175.634, 19.346, 0.452)
pt3dadd(166.267, 175.65, 19.376, 0.452)
pt3dadd(166.381, 175.664, 19.406, 0.452)
pt3dadd(166.494, 175.68, 19.436, 0.452)
pt3dadd(166.608, 175.696, 19.466, 0.452)
pt3dadd(166.721, 175.71, 19.496, 0.452)
pt3dadd(166.835, 175.726, 19.526, 0.452)
pt3dadd(166.949, 175.741, 19.556, 0.452)
pt3dadd(167.062, 175.757, 19.586, 0.452)
pt3dadd(167.176, 175.771, 19.616, 0.452)
}
}
proc shape3d_107() {
apic[25] { pt3dadd(167.284, 175.813, 19.638, 0.478)
pt3dadd(167.392, 175.86, 19.659, 0.51)
pt3dadd(167.5, 175.906, 19.679, 0.542)
pt3dadd(167.608, 175.952, 19.7, 0.572)
pt3dadd(167.716, 175.998, 19.721, 0.604)
pt3dadd(167.824, 176.045, 19.742, 0.634)
pt3dadd(167.932, 176.09, 19.762, 0.666)
pt3dadd(168.04, 176.137, 19.783, 0.696)
pt3dadd(168.146, 176.183, 19.804, 0.728)
pt3dadd(168.254, 176.23, 19.824, 0.76)
pt3dadd(168.362, 176.272, 19.852, 0.776)
pt3dadd(168.469, 176.312, 19.882, 0.79)
pt3dadd(168.577, 176.353, 19.91, 0.804)
pt3dadd(168.684, 176.394, 19.94, 0.818)
pt3dadd(168.792, 176.435, 19.969, 0.832)
pt3dadd(168.899, 176.476, 19.998, 0.846)
pt3dadd(169.007, 176.516, 20.027, 0.86)
pt3dadd(169.114, 176.557, 20.056, 0.874)
pt3dadd(169.22, 176.598, 20.085, 0.888)
pt3dadd(169.328, 176.639, 20.114, 0.902)
pt3dadd(169.435, 176.674, 20.147, 0.9)
pt3dadd(169.543, 176.708, 20.181, 0.896)
pt3dadd(169.65, 176.743, 20.215, 0.89)
pt3dadd(169.758, 176.778, 20.249, 0.886)
pt3dadd(169.865, 176.814, 20.283, 0.882)
pt3dadd(169.973, 176.849, 20.317, 0.878)
pt3dadd(170.08, 176.884, 20.351, 0.872)
pt3dadd(170.188, 176.918, 20.385, 0.868)
pt3dadd(170.294, 176.953, 20.418, 0.864)
pt3dadd(170.402, 176.988, 20.452, 0.86)
pt3dadd(170.514, 177.018, 20.477, 0.828)
pt3dadd(170.627, 177.048, 20.5, 0.794)
pt3dadd(170.74, 177.078, 20.523, 0.76)
pt3dadd(170.852, 177.108, 20.546, 0.728)
pt3dadd(170.965, 177.137, 20.57, 0.694)
pt3dadd(171.078, 177.167, 20.593, 0.66)
pt3dadd(171.191, 177.197, 20.616, 0.626)
pt3dadd(171.304, 177.227, 20.64, 0.592)
pt3dadd(171.416, 177.257, 20.663, 0.56)
pt3dadd(171.529, 177.287, 20.686, 0.526)
pt3dadd(171.638, 177.334, 20.7, 0.504)
pt3dadd(171.748, 177.382, 20.713, 0.484)
pt3dadd(171.857, 177.43, 20.726, 0.466)
pt3dadd(171.966, 177.478, 20.739, 0.446)
pt3dadd(172.074, 177.526, 20.752, 0.426)
pt3dadd(172.183, 177.574, 20.765, 0.406)
pt3dadd(172.292, 177.622, 20.778, 0.386)
pt3dadd(172.402, 177.67, 20.791, 0.366)
pt3dadd(172.51, 177.718, 20.803, 0.346)
pt3dadd(172.619, 177.766, 20.816, 0.326)
pt3dadd(172.728, 177.815, 20.823, 0.328)
pt3dadd(172.837, 177.865, 20.829, 0.33)
pt3dadd(172.945, 177.914, 20.836, 0.334)
pt3dadd(173.054, 177.965, 20.842, 0.336)
pt3dadd(173.164, 178.014, 20.848, 0.338)
pt3dadd(173.273, 178.064, 20.855, 0.34)
pt3dadd(173.381, 178.114, 20.861, 0.344)
pt3dadd(173.49, 178.163, 20.868, 0.346)
pt3dadd(173.599, 178.213, 20.874, 0.348)
pt3dadd(173.708, 178.262, 20.88, 0.35)
pt3dadd(173.819, 178.308, 20.881, 0.384)
pt3dadd(173.93, 178.352, 20.881, 0.416)
pt3dadd(174.042, 178.398, 20.882, 0.45)
pt3dadd(174.152, 178.442, 20.882, 0.482)
pt3dadd(174.264, 178.488, 20.882, 0.516)
pt3dadd(174.376, 178.532, 20.882, 0.55)
pt3dadd(174.487, 178.578, 20.883, 0.582)
pt3dadd(174.598, 178.622, 20.883, 0.616)
pt3dadd(174.709, 178.668, 20.883, 0.65)
pt3dadd(174.821, 178.712, 20.884, 0.682)
pt3dadd(174.923, 178.775, 20.884, 0.714)
pt3dadd(175.026, 178.837, 20.885, 0.744)
pt3dadd(175.128, 178.9, 20.885, 0.774)
pt3dadd(175.231, 178.961, 20.886, 0.806)
pt3dadd(175.334, 179.023, 20.886, 0.836)
pt3dadd(175.436, 179.086, 20.887, 0.866)
pt3dadd(175.54, 179.148, 20.887, 0.898)
pt3dadd(175.642, 179.209, 20.888, 0.928)
pt3dadd(175.745, 179.272, 20.888, 0.958)
pt3dadd(175.847, 179.334, 20.889, 0.99)
pt3dadd(175.955, 179.387, 20.89, 0.996)
pt3dadd(176.062, 179.441, 20.891, 1)
pt3dadd(176.17, 179.494, 20.892, 1.004)
pt3dadd(176.278, 179.548, 20.893, 1.01)
pt3dadd(176.384, 179.6, 20.894, 1.014)
pt3dadd(176.492, 179.653, 20.895, 1.02)
pt3dadd(176.6, 179.707, 20.896, 1.024)
pt3dadd(176.707, 179.76, 20.897, 1.028)
pt3dadd(176.815, 179.813, 20.898, 1.034)
pt3dadd(176.922, 179.867, 20.899, 1.038)
pt3dadd(177.032, 179.916, 20.9, 1.022)
pt3dadd(177.142, 179.965, 20.902, 1.006)
pt3dadd(177.251, 180.014, 20.903, 0.988)
pt3dadd(177.36, 180.064, 20.905, 0.972)
pt3dadd(177.469, 180.113, 20.906, 0.956)
pt3dadd(177.58, 180.162, 20.908, 0.938)
pt3dadd(177.689, 180.211, 20.91, 0.922)
pt3dadd(177.798, 180.26, 20.911, 0.906)
pt3dadd(177.907, 180.31, 20.913, 0.89)
pt3dadd(178.016, 180.359, 20.914, 0.872)
pt3dadd(178.118, 180.422, 20.917, 0.856)
pt3dadd(178.22, 180.486, 20.919, 0.842)
pt3dadd(178.321, 180.55, 20.922, 0.826)
pt3dadd(178.423, 180.613, 20.924, 0.81)
pt3dadd(178.525, 180.678, 20.927, 0.794)
pt3dadd(178.626, 180.742, 20.929, 0.78)
pt3dadd(178.728, 180.805, 20.932, 0.764)
pt3dadd(178.83, 180.869, 20.934, 0.748)
pt3dadd(178.932, 180.932, 20.937, 0.732)
pt3dadd(179.033, 180.996, 20.939, 0.716)
pt3dadd(179.141, 181.049, 20.945, 0.7)
pt3dadd(179.249, 181.102, 20.951, 0.682)
pt3dadd(179.356, 181.154, 20.957, 0.666)
pt3dadd(179.464, 181.207, 20.963, 0.648)
pt3dadd(179.57, 181.26, 20.969, 0.632)
pt3dadd(179.678, 181.313, 20.974, 0.614)
pt3dadd(179.785, 181.366, 20.98, 0.598)
pt3dadd(179.893, 181.418, 20.986, 0.58)
pt3dadd(180.001, 181.471, 20.992, 0.562)
pt3dadd(180.108, 181.525, 20.998, 0.546)
pt3dadd(180.212, 181.584, 21.006, 0.528)
pt3dadd(180.316, 181.643, 21.015, 0.512)
pt3dadd(180.42, 181.702, 21.024, 0.494)
pt3dadd(180.524, 181.76, 21.032, 0.478)
pt3dadd(180.628, 181.82, 21.041, 0.46)
pt3dadd(180.732, 181.879, 21.05, 0.444)
pt3dadd(180.836, 181.938, 21.058, 0.426)
pt3dadd(180.94, 181.997, 21.067, 0.41)
pt3dadd(181.044, 182.056, 21.076, 0.392)
pt3dadd(181.147, 182.116, 21.085, 0.376)
pt3dadd(181.243, 182.186, 21.098, 0.36)
pt3dadd(181.339, 182.256, 21.112, 0.346)
pt3dadd(181.435, 182.327, 21.125, 0.33)
pt3dadd(181.531, 182.396, 21.139, 0.314)
pt3dadd(181.627, 182.467, 21.152, 0.3)
pt3dadd(181.723, 182.537, 21.166, 0.284)
pt3dadd(181.819, 182.608, 21.179, 0.27)
pt3dadd(181.915, 182.677, 21.192, 0.254)
pt3dadd(182.011, 182.748, 21.206, 0.238)
pt3dadd(182.105, 182.818, 21.224, 0.226)
pt3dadd(182.186, 182.885, 21.271, 0.226)
pt3dadd(182.268, 182.953, 21.317, 0.226)
pt3dadd(182.351, 183.02, 21.363, 0.226)
pt3dadd(182.432, 183.089, 21.41, 0.226)
pt3dadd(182.514, 183.156, 21.456, 0.226)
pt3dadd(182.597, 183.223, 21.502, 0.226)
pt3dadd(182.678, 183.292, 21.549, 0.226)
pt3dadd(182.761, 183.359, 21.595, 0.226)
pt3dadd(182.843, 183.427, 21.641, 0.226)
pt3dadd(182.924, 183.497, 21.684, 0.228)
pt3dadd(183.006, 183.581, 21.707, 0.244)
pt3dadd(183.088, 183.664, 21.731, 0.262)
pt3dadd(183.169, 183.748, 21.754, 0.278)
pt3dadd(183.251, 183.83, 21.777, 0.294)
pt3dadd(183.332, 183.914, 21.801, 0.31)
pt3dadd(183.414, 183.997, 21.824, 0.326)
pt3dadd(183.496, 184.081, 21.847, 0.342)
pt3dadd(183.577, 184.164, 21.871, 0.358)
pt3dadd(183.659, 184.248, 21.894, 0.374)
pt3dadd(183.74, 184.332, 21.916, 0.39)
pt3dadd(183.823, 184.417, 21.93, 0.406)
pt3dadd(183.906, 184.502, 21.944, 0.422)
pt3dadd(183.989, 184.588, 21.959, 0.436)
pt3dadd(184.07, 184.673, 21.973, 0.452)
pt3dadd(184.153, 184.759, 21.988, 0.466)
pt3dadd(184.236, 184.844, 22.002, 0.482)
pt3dadd(184.319, 184.93, 22.017, 0.498)
pt3dadd(184.4, 185.015, 22.031, 0.512)
pt3dadd(184.483, 185.1, 22.045, 0.528)
pt3dadd(184.566, 185.185, 22.059, 0.544)
pt3dadd(184.649, 185.273, 22.067, 0.558)
pt3dadd(184.732, 185.359, 22.076, 0.572)
pt3dadd(184.813, 185.446, 22.085, 0.586)
pt3dadd(184.896, 185.532, 22.093, 0.6)
pt3dadd(184.979, 185.618, 22.102, 0.616)
pt3dadd(185.062, 185.705, 22.11, 0.63)
pt3dadd(185.144, 185.791, 22.119, 0.644)
pt3dadd(185.227, 185.878, 22.128, 0.658)
pt3dadd(185.309, 185.964, 22.136, 0.672)
pt3dadd(185.392, 186.05, 22.143, 0.688)
pt3dadd(185.472, 186.139, 22.143, 0.7)
pt3dadd(185.554, 186.228, 22.143, 0.714)
pt3dadd(185.634, 186.317, 22.143, 0.726)
pt3dadd(185.714, 186.406, 22.143, 0.74)
pt3dadd(185.796, 186.494, 22.144, 0.754)
pt3dadd(185.876, 186.582, 22.144, 0.766)
pt3dadd(185.958, 186.671, 22.144, 0.78)
pt3dadd(186.038, 186.76, 22.144, 0.792)
pt3dadd(186.119, 186.848, 22.144, 0.806)
pt3dadd(186.2, 186.937, 22.144, 0.818)
pt3dadd(186.28, 187.027, 22.144, 0.822)
pt3dadd(186.359, 187.117, 22.144, 0.826)
pt3dadd(186.439, 187.207, 22.145, 0.83)
pt3dadd(186.518, 187.297, 22.145, 0.834)
pt3dadd(186.598, 187.386, 22.145, 0.838)
pt3dadd(186.678, 187.476, 22.145, 0.842)
pt3dadd(186.757, 187.566, 22.145, 0.846)
pt3dadd(186.836, 187.656, 22.145, 0.85)
pt3dadd(186.917, 187.746, 22.146, 0.854)
pt3dadd(186.996, 187.836, 22.146, 0.856)
}
}
proc shape3d_108() {
apic[25] { pt3dadd(187.073, 187.927, 22.146, 0.842)
pt3dadd(187.151, 188.02, 22.146, 0.828)
pt3dadd(187.228, 188.111, 22.146, 0.814)
pt3dadd(187.306, 188.202, 22.147, 0.8)
pt3dadd(187.382, 188.294, 22.147, 0.786)
pt3dadd(187.46, 188.386, 22.147, 0.774)
pt3dadd(187.538, 188.477, 22.147, 0.76)
pt3dadd(187.615, 188.569, 22.148, 0.746)
pt3dadd(187.693, 188.66, 22.148, 0.732)
pt3dadd(187.768, 188.754, 22.148, 0.718)
pt3dadd(187.829, 188.857, 22.149, 0.704)
pt3dadd(187.891, 188.96, 22.149, 0.688)
pt3dadd(187.954, 189.062, 22.149, 0.672)
pt3dadd(188.015, 189.166, 22.15, 0.658)
pt3dadd(188.077, 189.268, 22.15, 0.642)
pt3dadd(188.14, 189.371, 22.151, 0.626)
pt3dadd(188.201, 189.474, 22.151, 0.612)
pt3dadd(188.263, 189.576, 22.152, 0.596)
pt3dadd(188.324, 189.679, 22.152, 0.582)
pt3dadd(188.386, 189.782, 22.153, 0.568)
pt3dadd(188.442, 189.889, 22.153, 0.56)
pt3dadd(188.497, 189.995, 22.154, 0.552)
pt3dadd(188.554, 190.1, 22.155, 0.544)
pt3dadd(188.61, 190.207, 22.156, 0.536)
pt3dadd(188.666, 190.313, 22.156, 0.53)
pt3dadd(188.723, 190.418, 22.157, 0.522)
pt3dadd(188.779, 190.525, 22.158, 0.514)
pt3dadd(188.834, 190.631, 22.159, 0.506)
pt3dadd(188.891, 190.738, 22.159, 0.498)
pt3dadd(188.948, 190.842, 22.16, 0.496)
pt3dadd(189.01, 190.945, 22.161, 0.512)
pt3dadd(189.071, 191.048, 22.163, 0.528)
pt3dadd(189.132, 191.153, 22.164, 0.542)
pt3dadd(189.193, 191.256, 22.165, 0.558)
pt3dadd(189.254, 191.359, 22.166, 0.574)
pt3dadd(189.314, 191.462, 22.168, 0.588)
pt3dadd(189.376, 191.566, 22.169, 0.604)
pt3dadd(189.437, 191.669, 22.17, 0.62)
pt3dadd(189.498, 191.772, 22.171, 0.634)
pt3dadd(189.556, 191.878, 22.173, 0.648)
pt3dadd(189.602, 191.988, 22.175, 0.65)
pt3dadd(189.649, 192.098, 22.178, 0.654)
pt3dadd(189.696, 192.209, 22.18, 0.656)
pt3dadd(189.742, 192.319, 22.182, 0.66)
pt3dadd(189.788, 192.43, 22.185, 0.662)
pt3dadd(189.835, 192.54, 22.187, 0.666)
pt3dadd(189.882, 192.65, 22.19, 0.67)
pt3dadd(189.929, 192.761, 22.192, 0.672)
pt3dadd(189.976, 192.871, 22.194, 0.676)
pt3dadd(190.024, 192.982, 22.197, 0.68)
pt3dadd(190.073, 193.091, 22.201, 0.686)
pt3dadd(190.122, 193.2, 22.206, 0.694)
pt3dadd(190.172, 193.309, 22.21, 0.7)
pt3dadd(190.222, 193.418, 22.214, 0.708)
pt3dadd(190.272, 193.528, 22.218, 0.714)
pt3dadd(190.321, 193.637, 22.222, 0.722)
pt3dadd(190.37, 193.746, 22.227, 0.728)
pt3dadd(190.421, 193.855, 22.231, 0.734)
pt3dadd(190.47, 193.964, 22.235, 0.742)
pt3dadd(190.523, 194.071, 22.24, 0.752)
pt3dadd(190.58, 194.177, 22.246, 0.766)
pt3dadd(190.638, 194.281, 22.252, 0.782)
pt3dadd(190.696, 194.387, 22.259, 0.798)
pt3dadd(190.754, 194.491, 22.265, 0.814)
pt3dadd(190.812, 194.596, 22.271, 0.83)
pt3dadd(190.87, 194.701, 22.277, 0.844)
pt3dadd(190.927, 194.806, 22.283, 0.86)
pt3dadd(190.986, 194.91, 22.289, 0.876)
pt3dadd(191.044, 195.016, 22.295, 0.892)
pt3dadd(191.095, 195.122, 22.303, 0.908)
pt3dadd(191.135, 195.235, 22.314, 0.924)
pt3dadd(191.173, 195.348, 22.325, 0.942)
pt3dadd(191.213, 195.461, 22.336, 0.958)
pt3dadd(191.251, 195.574, 22.347, 0.974)
pt3dadd(191.291, 195.686, 22.358, 0.992)
pt3dadd(191.329, 195.799, 22.369, 1.008)
pt3dadd(191.368, 195.912, 22.38, 1.026)
pt3dadd(191.407, 196.025, 22.391, 1.042)
pt3dadd(191.446, 196.138, 22.402, 1.058)
pt3dadd(191.484, 196.249, 22.418, 1.068)
pt3dadd(191.518, 196.36, 22.445, 1.064)
pt3dadd(191.551, 196.47, 22.473, 1.06)
pt3dadd(191.585, 196.58, 22.5, 1.056)
pt3dadd(191.618, 196.691, 22.528, 1.052)
pt3dadd(191.652, 196.801, 22.555, 1.046)
pt3dadd(191.686, 196.912, 22.583, 1.042)
pt3dadd(191.719, 197.022, 22.61, 1.038)
pt3dadd(191.753, 197.132, 22.638, 1.034)
pt3dadd(191.786, 197.243, 22.665, 1.03)
pt3dadd(191.821, 197.352, 22.694, 1.018)
pt3dadd(191.857, 197.459, 22.727, 1)
pt3dadd(191.893, 197.567, 22.76, 0.98)
pt3dadd(191.93, 197.674, 22.793, 0.96)
pt3dadd(191.966, 197.782, 22.826, 0.94)
pt3dadd(192.002, 197.888, 22.859, 0.92)
pt3dadd(192.038, 197.996, 22.892, 0.9)
pt3dadd(192.076, 198.103, 22.924, 0.88)
pt3dadd(192.112, 198.211, 22.957, 0.862)
pt3dadd(192.148, 198.318, 22.99, 0.842)
pt3dadd(192.192, 198.424, 23.018, 0.816)
pt3dadd(192.247, 198.528, 23.04, 0.786)
pt3dadd(192.301, 198.631, 23.061, 0.754)
pt3dadd(192.356, 198.734, 23.083, 0.724)
pt3dadd(192.41, 198.839, 23.105, 0.692)
pt3dadd(192.466, 198.942, 23.126, 0.662)
pt3dadd(192.52, 199.045, 23.148, 0.63)
pt3dadd(192.575, 199.15, 23.17, 0.6)
pt3dadd(192.629, 199.253, 23.191, 0.57)
pt3dadd(192.684, 199.356, 23.213, 0.538)
pt3dadd(192.738, 199.462, 23.231, 0.512)
pt3dadd(192.791, 199.568, 23.244, 0.494)
pt3dadd(192.844, 199.674, 23.257, 0.474)
pt3dadd(192.898, 199.781, 23.27, 0.454)
pt3dadd(192.95, 199.888, 23.283, 0.434)
pt3dadd(193.003, 199.994, 23.296, 0.416)
pt3dadd(193.056, 200.1, 23.309, 0.396)
pt3dadd(193.109, 200.207, 23.322, 0.376)
pt3dadd(193.163, 200.314, 23.335, 0.358)
pt3dadd(193.216, 200.419, 23.348, 0.338)
pt3dadd(193.272, 200.525, 23.359, 0.322)
pt3dadd(193.332, 200.628, 23.366, 0.312)
pt3dadd(193.393, 200.731, 23.373, 0.302)
pt3dadd(193.453, 200.834, 23.38, 0.292)
pt3dadd(193.513, 200.938, 23.387, 0.282)
pt3dadd(193.574, 201.041, 23.394, 0.272)
pt3dadd(193.634, 201.145, 23.402, 0.262)
pt3dadd(193.696, 201.248, 23.409, 0.252)
pt3dadd(193.756, 201.352, 23.416, 0.242)
pt3dadd(193.816, 201.455, 23.423, 0.23)
pt3dadd(193.883, 201.553, 23.427, 0.226)
pt3dadd(193.956, 201.649, 23.428, 0.226)
pt3dadd(194.028, 201.744, 23.429, 0.226)
pt3dadd(194.101, 201.84, 23.431, 0.226)
pt3dadd(194.174, 201.935, 23.432, 0.226)
pt3dadd(194.246, 202.031, 23.433, 0.226)
pt3dadd(194.32, 202.126, 23.434, 0.226)
pt3dadd(194.393, 202.222, 23.435, 0.226)
pt3dadd(194.465, 202.316, 23.437, 0.226)
pt3dadd(194.538, 202.412, 23.438, 0.226)
pt3dadd(194.614, 202.505, 23.439, 0.226)
pt3dadd(194.694, 202.595, 23.441, 0.226)
pt3dadd(194.773, 202.685, 23.443, 0.226)
pt3dadd(194.852, 202.775, 23.445, 0.226)
pt3dadd(194.932, 202.865, 23.447, 0.226)
pt3dadd(195.011, 202.955, 23.449, 0.226)
pt3dadd(195.09, 203.045, 23.451, 0.226)
pt3dadd(195.169, 203.135, 23.453, 0.226)
pt3dadd(195.248, 203.225, 23.455, 0.226)
pt3dadd(195.328, 203.315, 23.457, 0.226)
pt3dadd(195.409, 203.404, 23.46, 0.226)
pt3dadd(195.491, 203.491, 23.462, 0.226)
pt3dadd(195.572, 203.579, 23.465, 0.226)
pt3dadd(195.654, 203.666, 23.468, 0.226)
pt3dadd(195.736, 203.754, 23.47, 0.226)
pt3dadd(195.818, 203.843, 23.473, 0.226)
pt3dadd(195.9, 203.93, 23.476, 0.226)
pt3dadd(195.982, 204.018, 23.478, 0.226)
pt3dadd(196.063, 204.106, 23.481, 0.226)
pt3dadd(196.145, 204.193, 23.483, 0.226)
pt3dadd(196.23, 204.277, 23.487, 0.226)
pt3dadd(196.318, 204.359, 23.493, 0.226)
pt3dadd(196.405, 204.44, 23.498, 0.226)
pt3dadd(196.493, 204.522, 23.503, 0.226)
pt3dadd(196.582, 204.604, 23.509, 0.226)
pt3dadd(196.669, 204.685, 23.514, 0.226)
pt3dadd(196.757, 204.768, 23.519, 0.226)
pt3dadd(196.844, 204.85, 23.524, 0.226)
pt3dadd(196.932, 204.931, 23.53, 0.226)
pt3dadd(197.02, 205.013, 23.535, 0.226)
pt3dadd(197.108, 205.093, 23.541, 0.226)
pt3dadd(197.196, 205.175, 23.548, 0.226)
pt3dadd(197.285, 205.255, 23.555, 0.226)
pt3dadd(197.372, 205.336, 23.561, 0.226)
pt3dadd(197.461, 205.417, 23.568, 0.226)
pt3dadd(197.55, 205.498, 23.575, 0.226)
pt3dadd(197.638, 205.578, 23.582, 0.226)
pt3dadd(197.726, 205.658, 23.589, 0.226)
pt3dadd(197.815, 205.74, 23.595, 0.226)
pt3dadd(197.903, 205.82, 23.602, 0.226)
pt3dadd(197.992, 205.901, 23.61, 0.226)
pt3dadd(198.082, 205.98, 23.619, 0.226)
pt3dadd(198.17, 206.059, 23.628, 0.226)
pt3dadd(198.26, 206.138, 23.637, 0.226)
pt3dadd(198.349, 206.218, 23.646, 0.226)
pt3dadd(198.438, 206.298, 23.655, 0.226)
pt3dadd(198.528, 206.377, 23.664, 0.226)
pt3dadd(198.617, 206.456, 23.673, 0.226)
pt3dadd(198.707, 206.536, 23.682, 0.226)
pt3dadd(198.796, 206.615, 23.691, 0.226)
pt3dadd(198.888, 206.687, 23.709, 0.226)
pt3dadd(198.984, 206.752, 23.736, 0.226)
pt3dadd(199.08, 206.816, 23.763, 0.226)
pt3dadd(199.176, 206.881, 23.791, 0.226)
pt3dadd(199.271, 206.946, 23.818, 0.226)
pt3dadd(199.367, 207.011, 23.845, 0.226)
pt3dadd(199.463, 207.074, 23.872, 0.226)
pt3dadd(199.559, 207.139, 23.899, 0.226)
pt3dadd(199.655, 207.204, 23.926, 0.226)
pt3dadd(199.75, 207.269, 23.953, 0.226)
pt3dadd(199.846, 207.331, 23.983, 0.226)
}
}
proc shape3d_109() {
apic[25] { pt3dadd(199.943, 207.392, 24.014, 0.226)
pt3dadd(200.039, 207.454, 24.045, 0.226)
pt3dadd(200.135, 207.515, 24.076, 0.226)
pt3dadd(200.231, 207.575, 24.107, 0.226)
pt3dadd(200.328, 207.636, 24.139, 0.226)
pt3dadd(200.424, 207.697, 24.17, 0.226)
pt3dadd(200.52, 207.758, 24.201, 0.226)
pt3dadd(200.616, 207.82, 24.232, 0.226)
pt3dadd(200.713, 207.88, 24.264, 0.226)
pt3dadd(200.807, 207.948, 24.288, 0.226)
pt3dadd(200.9, 208.019, 24.31, 0.226)
pt3dadd(200.993, 208.091, 24.331, 0.226)
pt3dadd(201.086, 208.162, 24.352, 0.226)
pt3dadd(201.179, 208.234, 24.373, 0.226)
pt3dadd(201.272, 208.304, 24.394, 0.226)
pt3dadd(201.365, 208.376, 24.415, 0.226)
pt3dadd(201.458, 208.447, 24.437, 0.226)
pt3dadd(201.551, 208.519, 24.458, 0.226)
pt3dadd(201.644, 208.591, 24.479, 0.226)
pt3dadd(201.736, 208.667, 24.496, 0.226)
pt3dadd(201.824, 208.745, 24.511, 0.226)
pt3dadd(201.913, 208.823, 24.526, 0.226)
pt3dadd(202.003, 208.901, 24.541, 0.226)
pt3dadd(202.092, 208.979, 24.556, 0.226)
pt3dadd(202.182, 209.057, 24.571, 0.226)
pt3dadd(202.271, 209.135, 24.586, 0.226)
pt3dadd(202.361, 209.213, 24.601, 0.226)
pt3dadd(202.45, 209.291, 24.616, 0.226)
pt3dadd(202.54, 209.369, 24.632, 0.226)
pt3dadd(202.627, 209.449, 24.644, 0.228)
pt3dadd(202.714, 209.532, 24.655, 0.228)
pt3dadd(202.8, 209.614, 24.666, 0.23)
pt3dadd(202.886, 209.695, 24.677, 0.232)
pt3dadd(202.973, 209.778, 24.688, 0.234)
pt3dadd(203.059, 209.86, 24.699, 0.236)
pt3dadd(203.146, 209.942, 24.711, 0.236)
pt3dadd(203.232, 210.024, 24.722, 0.238)
pt3dadd(203.318, 210.106, 24.733, 0.24)
pt3dadd(203.405, 210.188, 24.744, 0.242)
pt3dadd(203.488, 210.275, 24.752, 0.27)
pt3dadd(203.568, 210.364, 24.758, 0.314)
pt3dadd(203.648, 210.452, 24.764, 0.356)
pt3dadd(203.73, 210.54, 24.769, 0.4)
pt3dadd(203.81, 210.629, 24.775, 0.444)
pt3dadd(203.891, 210.718, 24.781, 0.486)
pt3dadd(203.971, 210.806, 24.787, 0.53)
pt3dadd(204.052, 210.895, 24.793, 0.572)
pt3dadd(204.132, 210.984, 24.799, 0.616)
pt3dadd(204.212, 211.073, 24.805, 0.66)
pt3dadd(204.287, 211.166, 24.813, 0.684)
pt3dadd(204.358, 211.262, 24.822, 0.698)
pt3dadd(204.428, 211.36, 24.832, 0.714)
pt3dadd(204.498, 211.456, 24.841, 0.728)
pt3dadd(204.569, 211.552, 24.85, 0.742)
pt3dadd(204.64, 211.649, 24.859, 0.758)
pt3dadd(204.71, 211.745, 24.868, 0.772)
pt3dadd(204.781, 211.841, 24.878, 0.786)
pt3dadd(204.852, 211.938, 24.887, 0.802)
pt3dadd(204.923, 212.034, 24.896, 0.816)
pt3dadd(204.986, 212.132, 24.914, 0.804)
pt3dadd(205.05, 212.232, 24.934, 0.78)
pt3dadd(205.112, 212.332, 24.955, 0.756)
pt3dadd(205.175, 212.431, 24.975, 0.734)
pt3dadd(205.237, 212.53, 24.995, 0.71)
pt3dadd(205.3, 212.629, 25.016, 0.686)
pt3dadd(205.363, 212.729, 25.036, 0.664)
pt3dadd(205.426, 212.828, 25.057, 0.64)
pt3dadd(205.488, 212.928, 25.077, 0.616)
pt3dadd(205.55, 213.026, 25.098, 0.594)
pt3dadd(205.621, 213.107, 25.143, 0.558)
pt3dadd(205.692, 213.185, 25.19, 0.52)
pt3dadd(205.763, 213.264, 25.238, 0.484)
pt3dadd(205.834, 213.342, 25.285, 0.446)
pt3dadd(205.904, 213.42, 25.333, 0.41)
pt3dadd(205.975, 213.498, 25.38, 0.374)
pt3dadd(206.046, 213.576, 25.428, 0.336)
pt3dadd(206.117, 213.655, 25.476, 0.3)
pt3dadd(206.188, 213.733, 25.523, 0.262)
pt3dadd(206.258, 213.811, 25.571, 0.226)
pt3dadd(206.303, 213.914, 25.608, 0.226)
pt3dadd(206.346, 214.016, 25.644, 0.226)
pt3dadd(206.39, 214.12, 25.681, 0.226)
pt3dadd(206.435, 214.222, 25.717, 0.226)
pt3dadd(206.479, 214.325, 25.754, 0.226)
pt3dadd(206.522, 214.427, 25.791, 0.226)
pt3dadd(206.567, 214.53, 25.827, 0.226)
pt3dadd(206.611, 214.632, 25.864, 0.226)
pt3dadd(206.654, 214.735, 25.901, 0.226)
pt3dadd(206.699, 214.837, 25.937, 0.226)
}
apic[26] {pt3dclear()
pt3dadd(143.993, 151.069, 17.214, 0.452)
pt3dadd(144.037, 151.069, 17.211, 0.462)
pt3dadd(144.157, 151.069, 17.203, 0.49)
pt3dadd(144.276, 151.069, 17.195, 0.516)
pt3dadd(144.396, 151.069, 17.187, 0.544)
pt3dadd(144.516, 151.069, 17.179, 0.572)
pt3dadd(144.635, 151.069, 17.171, 0.6)
pt3dadd(144.755, 151.069, 17.163, 0.626)
pt3dadd(144.875, 151.069, 17.155, 0.654)
pt3dadd(144.994, 151.069, 17.147, 0.682)
pt3dadd(145.114, 151.069, 17.139, 0.708)
pt3dadd(145.234, 151.069, 17.13, 0.736)
pt3dadd(145.352, 151.069, 17.122, 0.764)
pt3dadd(145.472, 151.069, 17.114, 0.79)
pt3dadd(145.592, 151.069, 17.106, 0.818)
pt3dadd(145.711, 151.069, 17.098, 0.846)
pt3dadd(145.831, 151.079, 17.094, 0.842)
pt3dadd(145.95, 151.09, 17.091, 0.834)
pt3dadd(146.07, 151.1, 17.087, 0.828)
pt3dadd(146.19, 151.111, 17.084, 0.82)
pt3dadd(146.309, 151.122, 17.08, 0.812)
pt3dadd(146.429, 151.133, 17.077, 0.806)
pt3dadd(146.548, 151.144, 17.073, 0.798)
pt3dadd(146.668, 151.154, 17.069, 0.792)
pt3dadd(146.786, 151.165, 17.066, 0.784)
pt3dadd(146.906, 151.176, 17.063, 0.778)
pt3dadd(147.025, 151.19, 17.06, 0.774)
pt3dadd(147.144, 151.206, 17.057, 0.772)
pt3dadd(147.263, 151.22, 17.054, 0.77)
pt3dadd(147.383, 151.235, 17.052, 0.768)
pt3dadd(147.502, 151.249, 17.049, 0.766)
pt3dadd(147.62, 151.264, 17.046, 0.764)
pt3dadd(147.739, 151.279, 17.044, 0.76)
pt3dadd(147.858, 151.294, 17.041, 0.758)
pt3dadd(147.978, 151.308, 17.038, 0.756)
pt3dadd(148.097, 151.322, 17.036, 0.754)
pt3dadd(148.214, 151.345, 17.032, 0.76)
pt3dadd(148.332, 151.368, 17.028, 0.768)
pt3dadd(148.45, 151.392, 17.024, 0.774)
pt3dadd(148.567, 151.415, 17.02, 0.782)
pt3dadd(148.685, 151.439, 17.016, 0.788)
pt3dadd(148.802, 151.462, 17.012, 0.796)
pt3dadd(148.92, 151.486, 17.008, 0.802)
pt3dadd(149.038, 151.508, 17.004, 0.81)
pt3dadd(149.155, 151.531, 17, 0.816)
pt3dadd(149.273, 151.555, 16.996, 0.824)
pt3dadd(149.384, 151.6, 16.989, 0.79)
pt3dadd(149.495, 151.645, 16.983, 0.758)
pt3dadd(149.605, 151.691, 16.976, 0.724)
pt3dadd(149.717, 151.735, 16.97, 0.692)
pt3dadd(149.827, 151.781, 16.963, 0.658)
pt3dadd(149.939, 151.825, 16.957, 0.626)
pt3dadd(150.049, 151.871, 16.95, 0.592)
pt3dadd(150.161, 151.916, 16.944, 0.56)
pt3dadd(150.271, 151.961, 16.937, 0.526)
pt3dadd(150.382, 152.006, 16.931, 0.494)
pt3dadd(150.497, 152.039, 16.92, 0.474)
pt3dadd(150.612, 152.07, 16.909, 0.456)
pt3dadd(150.727, 152.102, 16.899, 0.436)
pt3dadd(150.842, 152.135, 16.888, 0.416)
pt3dadd(150.956, 152.166, 16.878, 0.398)
pt3dadd(151.072, 152.198, 16.867, 0.378)
pt3dadd(151.187, 152.231, 16.856, 0.36)
pt3dadd(151.302, 152.263, 16.846, 0.34)
pt3dadd(151.416, 152.294, 16.835, 0.322)
pt3dadd(151.531, 152.327, 16.824, 0.302)
pt3dadd(151.645, 152.35, 16.799, 0.304)
pt3dadd(151.759, 152.371, 16.773, 0.306)
pt3dadd(151.873, 152.393, 16.747, 0.306)
pt3dadd(151.987, 152.416, 16.721, 0.308)
pt3dadd(152.1, 152.437, 16.696, 0.31)
pt3dadd(152.214, 152.46, 16.67, 0.312)
pt3dadd(152.328, 152.482, 16.644, 0.314)
pt3dadd(152.442, 152.504, 16.618, 0.314)
pt3dadd(152.556, 152.526, 16.593, 0.316)
pt3dadd(152.669, 152.548, 16.566, 0.32)
pt3dadd(152.782, 152.562, 16.531, 0.332)
pt3dadd(152.893, 152.576, 16.497, 0.346)
pt3dadd(153.005, 152.591, 16.462, 0.36)
pt3dadd(153.116, 152.605, 16.428, 0.372)
pt3dadd(153.228, 152.62, 16.393, 0.386)
pt3dadd(153.34, 152.634, 16.359, 0.4)
pt3dadd(153.451, 152.648, 16.324, 0.414)
pt3dadd(153.563, 152.663, 16.289, 0.426)
pt3dadd(153.674, 152.677, 16.255, 0.44)
pt3dadd(153.787, 152.69, 16.222, 0.452)
pt3dadd(153.902, 152.699, 16.198, 0.452)
pt3dadd(154.019, 152.707, 16.174, 0.452)
pt3dadd(154.135, 152.716, 16.15, 0.452)
pt3dadd(154.252, 152.724, 16.126, 0.452)
pt3dadd(154.368, 152.732, 16.102, 0.452)
pt3dadd(154.484, 152.741, 16.078, 0.452)
pt3dadd(154.6, 152.75, 16.054, 0.452)
pt3dadd(154.716, 152.759, 16.03, 0.452)
pt3dadd(154.832, 152.767, 16.006, 0.452)
pt3dadd(154.949, 152.776, 15.984, 0.456)
pt3dadd(155.068, 152.79, 15.971, 0.486)
pt3dadd(155.185, 152.804, 15.959, 0.518)
pt3dadd(155.304, 152.818, 15.946, 0.548)
pt3dadd(155.422, 152.832, 15.933, 0.58)
pt3dadd(155.54, 152.845, 15.921, 0.61)
pt3dadd(155.658, 152.86, 15.908, 0.642)
pt3dadd(155.777, 152.874, 15.896, 0.672)
pt3dadd(155.894, 152.887, 15.883, 0.704)
pt3dadd(156.013, 152.902, 15.871, 0.734)
pt3dadd(156.131, 152.918, 15.859, 0.764)
pt3dadd(156.246, 152.952, 15.855, 0.778)
pt3dadd(156.361, 152.986, 15.85, 0.792)
pt3dadd(156.476, 153.019, 15.846, 0.806)
pt3dadd(156.592, 153.053, 15.841, 0.82)
pt3dadd(156.707, 153.086, 15.837, 0.836)
}
}
proc shape3d_110() {
apic[26] { pt3dadd(156.822, 153.119, 15.832, 0.85)
pt3dadd(156.936, 153.152, 15.828, 0.864)
pt3dadd(157.051, 153.186, 15.823, 0.878)
pt3dadd(157.166, 153.22, 15.819, 0.892)
pt3dadd(157.282, 153.256, 15.815, 0.904)
pt3dadd(157.393, 153.299, 15.815, 0.9)
pt3dadd(157.505, 153.342, 15.815, 0.896)
pt3dadd(157.618, 153.385, 15.815, 0.892)
pt3dadd(157.729, 153.427, 15.815, 0.888)
pt3dadd(157.841, 153.47, 15.815, 0.884)
pt3dadd(157.954, 153.514, 15.815, 0.88)
pt3dadd(158.065, 153.557, 15.815, 0.876)
pt3dadd(158.178, 153.599, 15.815, 0.872)
pt3dadd(158.29, 153.642, 15.815, 0.868)
pt3dadd(158.402, 153.683, 15.815, 0.86)
pt3dadd(158.519, 153.714, 15.815, 0.844)
pt3dadd(158.634, 153.746, 15.815, 0.826)
pt3dadd(158.749, 153.778, 15.815, 0.81)
pt3dadd(158.866, 153.81, 15.815, 0.792)
pt3dadd(158.981, 153.842, 15.815, 0.774)
pt3dadd(159.097, 153.874, 15.815, 0.758)
pt3dadd(159.212, 153.906, 15.815, 0.74)
pt3dadd(159.328, 153.937, 15.815, 0.722)
pt3dadd(159.444, 153.97, 15.815, 0.706)
pt3dadd(159.56, 154, 15.815, 0.692)
pt3dadd(159.678, 154.022, 15.815, 0.692)
pt3dadd(159.796, 154.044, 15.815, 0.69)
pt3dadd(159.913, 154.067, 15.815, 0.688)
pt3dadd(160.031, 154.09, 15.814, 0.686)
pt3dadd(160.15, 154.112, 15.814, 0.686)
pt3dadd(160.267, 154.135, 15.814, 0.684)
pt3dadd(160.385, 154.157, 15.814, 0.682)
pt3dadd(160.502, 154.18, 15.814, 0.68)
pt3dadd(160.621, 154.202, 15.814, 0.68)
pt3dadd(160.739, 154.224, 15.814, 0.676)
pt3dadd(160.858, 154.241, 15.814, 0.664)
pt3dadd(160.976, 154.258, 15.814, 0.652)
pt3dadd(161.095, 154.274, 15.814, 0.642)
pt3dadd(161.214, 154.291, 15.814, 0.63)
pt3dadd(161.333, 154.308, 15.814, 0.62)
pt3dadd(161.452, 154.325, 15.813, 0.608)
pt3dadd(161.57, 154.342, 15.813, 0.598)
pt3dadd(161.689, 154.358, 15.813, 0.586)
pt3dadd(161.808, 154.375, 15.813, 0.574)
pt3dadd(161.927, 154.394, 15.813, 0.566)
pt3dadd(162.043, 154.421, 15.813, 0.56)
pt3dadd(162.161, 154.446, 15.813, 0.554)
pt3dadd(162.278, 154.471, 15.813, 0.548)
pt3dadd(162.395, 154.498, 15.812, 0.542)
pt3dadd(162.512, 154.523, 15.812, 0.538)
pt3dadd(162.63, 154.549, 15.812, 0.532)
pt3dadd(162.746, 154.574, 15.812, 0.526)
pt3dadd(162.864, 154.6, 15.812, 0.52)
pt3dadd(162.982, 154.626, 15.811, 0.514)
pt3dadd(163.097, 154.658, 15.811, 0.516)
pt3dadd(163.207, 154.703, 15.811, 0.534)
pt3dadd(163.319, 154.748, 15.81, 0.55)
pt3dadd(163.429, 154.794, 15.81, 0.566)
pt3dadd(163.541, 154.84, 15.81, 0.582)
pt3dadd(163.652, 154.885, 15.81, 0.6)
pt3dadd(163.763, 154.931, 15.809, 0.616)
pt3dadd(163.874, 154.975, 15.809, 0.632)
pt3dadd(163.985, 155.021, 15.809, 0.65)
pt3dadd(164.096, 155.066, 15.809, 0.666)
pt3dadd(164.209, 155.107, 15.808, 0.67)
pt3dadd(164.326, 155.137, 15.808, 0.654)
pt3dadd(164.441, 155.168, 15.807, 0.636)
pt3dadd(164.557, 155.198, 15.806, 0.62)
pt3dadd(164.674, 155.23, 15.806, 0.602)
pt3dadd(164.789, 155.261, 15.805, 0.586)
pt3dadd(164.905, 155.291, 15.804, 0.568)
pt3dadd(165.022, 155.322, 15.804, 0.552)
pt3dadd(165.137, 155.352, 15.803, 0.534)
pt3dadd(165.253, 155.383, 15.803, 0.516)
pt3dadd(165.37, 155.411, 15.802, 0.508)
pt3dadd(165.488, 155.432, 15.801, 0.516)
pt3dadd(165.606, 155.454, 15.8, 0.522)
pt3dadd(165.724, 155.476, 15.798, 0.53)
pt3dadd(165.842, 155.496, 15.797, 0.536)
pt3dadd(165.96, 155.518, 15.796, 0.544)
pt3dadd(166.078, 155.539, 15.795, 0.55)
pt3dadd(166.196, 155.561, 15.794, 0.558)
pt3dadd(166.314, 155.582, 15.793, 0.564)
pt3dadd(166.433, 155.604, 15.791, 0.572)
pt3dadd(166.55, 155.622, 15.79, 0.586)
pt3dadd(166.67, 155.636, 15.788, 0.612)
pt3dadd(166.789, 155.65, 15.786, 0.638)
pt3dadd(166.908, 155.664, 15.784, 0.664)
pt3dadd(167.028, 155.678, 15.781, 0.69)
pt3dadd(167.147, 155.692, 15.78, 0.716)
pt3dadd(167.266, 155.706, 15.777, 0.742)
pt3dadd(167.384, 155.719, 15.775, 0.768)
pt3dadd(167.504, 155.734, 15.773, 0.794)
pt3dadd(167.623, 155.748, 15.771, 0.82)
pt3dadd(167.742, 155.76, 15.768, 0.844)
pt3dadd(167.862, 155.771, 15.765, 0.866)
pt3dadd(167.981, 155.782, 15.761, 0.888)
pt3dadd(168.101, 155.794, 15.757, 0.91)
pt3dadd(168.22, 155.804, 15.753, 0.932)
pt3dadd(168.34, 155.815, 15.749, 0.954)
pt3dadd(168.46, 155.826, 15.746, 0.976)
pt3dadd(168.578, 155.837, 15.742, 0.996)
pt3dadd(168.698, 155.848, 15.738, 1.018)
pt3dadd(168.817, 155.858, 15.734, 1.04)
pt3dadd(168.936, 155.872, 15.729, 1.042)
pt3dadd(169.055, 155.888, 15.721, 1.004)
pt3dadd(169.174, 155.905, 15.714, 0.966)
pt3dadd(169.291, 155.922, 15.706, 0.928)
pt3dadd(169.41, 155.94, 15.699, 0.89)
pt3dadd(169.529, 155.957, 15.691, 0.854)
pt3dadd(169.648, 155.974, 15.684, 0.816)
pt3dadd(169.765, 155.99, 15.676, 0.778)
pt3dadd(169.884, 156.007, 15.669, 0.74)
pt3dadd(170.003, 156.024, 15.661, 0.704)
pt3dadd(170.117, 156.054, 15.652, 0.686)
pt3dadd(170.224, 156.106, 15.64, 0.704)
pt3dadd(170.332, 156.158, 15.629, 0.722)
pt3dadd(170.438, 156.21, 15.617, 0.74)
pt3dadd(170.545, 156.262, 15.605, 0.758)
pt3dadd(170.653, 156.314, 15.593, 0.776)
pt3dadd(170.76, 156.366, 15.582, 0.794)
pt3dadd(170.867, 156.419, 15.57, 0.812)
pt3dadd(170.975, 156.47, 15.558, 0.83)
pt3dadd(171.082, 156.522, 15.546, 0.848)
pt3dadd(171.185, 156.574, 15.524, 0.862)
pt3dadd(171.282, 156.624, 15.482, 0.866)
pt3dadd(171.378, 156.674, 15.44, 0.87)
pt3dadd(171.475, 156.725, 15.398, 0.876)
pt3dadd(171.571, 156.775, 15.356, 0.88)
pt3dadd(171.668, 156.824, 15.314, 0.884)
pt3dadd(171.766, 156.875, 15.272, 0.888)
pt3dadd(171.862, 156.925, 15.23, 0.892)
pt3dadd(171.959, 156.976, 15.188, 0.898)
pt3dadd(172.055, 157.026, 15.146, 0.902)
pt3dadd(172.157, 157.069, 15.108, 0.904)
pt3dadd(172.262, 157.106, 15.073, 0.904)
pt3dadd(172.368, 157.144, 15.038, 0.904)
pt3dadd(172.475, 157.182, 15.002, 0.904)
pt3dadd(172.58, 157.219, 14.967, 0.904)
pt3dadd(172.686, 157.256, 14.932, 0.904)
pt3dadd(172.792, 157.294, 14.896, 0.904)
pt3dadd(172.897, 157.331, 14.861, 0.904)
pt3dadd(173.004, 157.368, 14.826, 0.904)
pt3dadd(173.11, 157.406, 14.79, 0.904)
pt3dadd(173.218, 157.448, 14.766, 0.904)
pt3dadd(173.327, 157.493, 14.749, 0.904)
pt3dadd(173.436, 157.538, 14.733, 0.904)
pt3dadd(173.545, 157.584, 14.716, 0.904)
pt3dadd(173.654, 157.63, 14.699, 0.904)
pt3dadd(173.764, 157.674, 14.683, 0.904)
pt3dadd(173.873, 157.72, 14.666, 0.904)
pt3dadd(173.982, 157.765, 14.649, 0.904)
pt3dadd(174.092, 157.81, 14.633, 0.904)
pt3dadd(174.202, 157.855, 14.616, 0.904)
pt3dadd(174.313, 157.897, 14.606, 0.888)
pt3dadd(174.425, 157.938, 14.6, 0.864)
pt3dadd(174.538, 157.979, 14.594, 0.84)
pt3dadd(174.65, 158.02, 14.588, 0.814)
pt3dadd(174.763, 158.06, 14.582, 0.79)
pt3dadd(174.876, 158.101, 14.576, 0.766)
pt3dadd(174.989, 158.142, 14.57, 0.742)
pt3dadd(175.102, 158.183, 14.564, 0.716)
pt3dadd(175.213, 158.224, 14.558, 0.692)
pt3dadd(175.326, 158.264, 14.552, 0.668)
pt3dadd(175.442, 158.297, 14.55, 0.63)
pt3dadd(175.559, 158.324, 14.55, 0.586)
pt3dadd(175.675, 158.352, 14.55, 0.544)
pt3dadd(175.792, 158.381, 14.55, 0.5)
pt3dadd(175.908, 158.408, 14.55, 0.456)
pt3dadd(176.026, 158.437, 14.55, 0.412)
pt3dadd(176.142, 158.465, 14.55, 0.368)
pt3dadd(176.258, 158.494, 14.55, 0.326)
pt3dadd(176.375, 158.521, 14.55, 0.282)
pt3dadd(176.492, 158.549, 14.55, 0.238)
pt3dadd(176.61, 158.569, 14.55, 0.226)
pt3dadd(176.729, 158.586, 14.55, 0.226)
pt3dadd(176.848, 158.603, 14.55, 0.226)
pt3dadd(176.966, 158.62, 14.55, 0.226)
pt3dadd(177.085, 158.636, 14.55, 0.226)
pt3dadd(177.204, 158.652, 14.55, 0.226)
pt3dadd(177.323, 158.669, 14.55, 0.226)
pt3dadd(177.442, 158.686, 14.55, 0.226)
pt3dadd(177.56, 158.702, 14.55, 0.226)
pt3dadd(177.679, 158.719, 14.55, 0.226)
pt3dadd(177.799, 158.731, 14.55, 0.238)
pt3dadd(177.919, 158.74, 14.55, 0.254)
pt3dadd(178.038, 158.749, 14.55, 0.268)
pt3dadd(178.158, 158.759, 14.55, 0.284)
pt3dadd(178.278, 158.768, 14.55, 0.3)
pt3dadd(178.397, 158.778, 14.55, 0.316)
pt3dadd(178.517, 158.786, 14.55, 0.332)
pt3dadd(178.637, 158.796, 14.55, 0.348)
pt3dadd(178.756, 158.806, 14.55, 0.364)
pt3dadd(178.876, 158.815, 14.55, 0.378)
pt3dadd(178.996, 158.826, 14.55, 0.396)
pt3dadd(179.114, 158.838, 14.549, 0.414)
pt3dadd(179.234, 158.85, 14.549, 0.432)
pt3dadd(179.353, 158.861, 14.549, 0.45)
pt3dadd(179.473, 158.873, 14.549, 0.468)
pt3dadd(179.592, 158.885, 14.549, 0.484)
}
}
proc shape3d_111() {
apic[26] { pt3dadd(179.712, 158.897, 14.549, 0.502)
pt3dadd(179.831, 158.909, 14.549, 0.52)
pt3dadd(179.951, 158.92, 14.549, 0.538)
pt3dadd(180.07, 158.932, 14.549, 0.556)
pt3dadd(180.188, 158.953, 14.549, 0.574)
pt3dadd(180.305, 158.977, 14.549, 0.592)
pt3dadd(180.422, 159.002, 14.549, 0.608)
pt3dadd(180.54, 159.028, 14.549, 0.626)
pt3dadd(180.658, 159.052, 14.549, 0.644)
pt3dadd(180.775, 159.077, 14.549, 0.662)
pt3dadd(180.893, 159.101, 14.549, 0.678)
pt3dadd(181.01, 159.126, 14.549, 0.696)
pt3dadd(181.128, 159.15, 14.548, 0.714)
pt3dadd(181.244, 159.175, 14.548, 0.732)
pt3dadd(181.357, 159.216, 14.548, 0.748)
pt3dadd(181.469, 159.26, 14.548, 0.764)
pt3dadd(181.58, 159.305, 14.548, 0.782)
pt3dadd(181.692, 159.349, 14.548, 0.798)
pt3dadd(181.804, 159.395, 14.548, 0.814)
pt3dadd(181.914, 159.439, 14.548, 0.83)
pt3dadd(182.026, 159.484, 14.547, 0.848)
pt3dadd(182.137, 159.528, 14.547, 0.864)
pt3dadd(182.249, 159.572, 14.547, 0.88)
pt3dadd(182.36, 159.618, 14.547, 0.896)
pt3dadd(182.476, 159.649, 14.547, 0.86)
pt3dadd(182.592, 159.679, 14.546, 0.81)
pt3dadd(182.708, 159.708, 14.546, 0.758)
pt3dadd(182.825, 159.737, 14.546, 0.708)
pt3dadd(182.941, 159.767, 14.546, 0.658)
pt3dadd(183.058, 159.796, 14.545, 0.608)
pt3dadd(183.174, 159.824, 14.545, 0.556)
pt3dadd(183.29, 159.854, 14.545, 0.506)
pt3dadd(183.407, 159.883, 14.544, 0.456)
pt3dadd(183.523, 159.912, 14.544, 0.406)
pt3dadd(183.641, 159.932, 14.544, 0.4)
pt3dadd(183.76, 159.952, 14.543, 0.408)
pt3dadd(183.878, 159.97, 14.543, 0.414)
pt3dadd(183.997, 159.988, 14.542, 0.422)
pt3dadd(184.116, 160.007, 14.542, 0.43)
pt3dadd(184.234, 160.025, 14.541, 0.436)
pt3dadd(184.352, 160.043, 14.541, 0.444)
pt3dadd(184.471, 160.062, 14.54, 0.45)
pt3dadd(184.59, 160.08, 14.54, 0.458)
pt3dadd(184.709, 160.098, 14.539, 0.464)
pt3dadd(184.828, 160.109, 14.538, 0.478)
pt3dadd(184.948, 160.116, 14.537, 0.492)
pt3dadd(185.068, 160.124, 14.536, 0.506)
pt3dadd(185.186, 160.133, 14.535, 0.52)
pt3dadd(185.306, 160.141, 14.534, 0.534)
pt3dadd(185.426, 160.15, 14.534, 0.548)
pt3dadd(185.546, 160.157, 14.532, 0.562)
pt3dadd(185.666, 160.165, 14.532, 0.576)
pt3dadd(185.785, 160.174, 14.531, 0.59)
pt3dadd(185.905, 160.182, 14.53, 0.604)
pt3dadd(186.025, 160.183, 14.528, 0.592)
pt3dadd(186.145, 160.184, 14.527, 0.574)
pt3dadd(186.265, 160.184, 14.525, 0.556)
pt3dadd(186.385, 160.186, 14.523, 0.538)
pt3dadd(186.505, 160.186, 14.522, 0.52)
pt3dadd(186.625, 160.186, 14.52, 0.502)
pt3dadd(186.745, 160.187, 14.518, 0.484)
pt3dadd(186.865, 160.187, 14.517, 0.466)
pt3dadd(186.985, 160.188, 14.515, 0.448)
pt3dadd(187.105, 160.188, 14.514, 0.43)
pt3dadd(187.225, 160.188, 14.511, 0.412)
pt3dadd(187.345, 160.189, 14.508, 0.394)
pt3dadd(187.465, 160.189, 14.505, 0.376)
pt3dadd(187.585, 160.19, 14.502, 0.36)
pt3dadd(187.705, 160.19, 14.5, 0.342)
pt3dadd(187.825, 160.192, 14.497, 0.324)
pt3dadd(187.945, 160.192, 14.494, 0.306)
pt3dadd(188.065, 160.193, 14.491, 0.288)
pt3dadd(188.185, 160.193, 14.488, 0.27)
pt3dadd(188.304, 160.194, 14.485, 0.252)
pt3dadd(188.424, 160.195, 14.479, 0.274)
pt3dadd(188.544, 160.196, 14.473, 0.302)
pt3dadd(188.664, 160.198, 14.466, 0.33)
pt3dadd(188.784, 160.2, 14.46, 0.36)
pt3dadd(188.903, 160.201, 14.454, 0.388)
pt3dadd(189.023, 160.202, 14.447, 0.416)
pt3dadd(189.143, 160.204, 14.441, 0.446)
pt3dadd(189.263, 160.205, 14.434, 0.474)
pt3dadd(189.383, 160.207, 14.428, 0.502)
pt3dadd(189.502, 160.208, 14.421, 0.532)
pt3dadd(189.622, 160.211, 14.412, 0.53)
pt3dadd(189.74, 160.213, 14.402, 0.524)
pt3dadd(189.86, 160.216, 14.392, 0.516)
pt3dadd(189.979, 160.218, 14.383, 0.508)
pt3dadd(190.099, 160.22, 14.373, 0.502)
pt3dadd(190.218, 160.223, 14.363, 0.494)
pt3dadd(190.338, 160.225, 14.353, 0.488)
pt3dadd(190.457, 160.228, 14.344, 0.48)
pt3dadd(190.577, 160.23, 14.334, 0.472)
pt3dadd(190.696, 160.232, 14.324, 0.466)
pt3dadd(190.814, 160.236, 14.305, 0.458)
pt3dadd(190.931, 160.241, 14.285, 0.45)
pt3dadd(191.048, 160.244, 14.265, 0.442)
pt3dadd(191.166, 160.249, 14.245, 0.436)
pt3dadd(191.284, 160.254, 14.225, 0.428)
pt3dadd(191.401, 160.258, 14.205, 0.42)
pt3dadd(191.519, 160.262, 14.185, 0.412)
pt3dadd(191.636, 160.266, 14.165, 0.404)
pt3dadd(191.754, 160.271, 14.145, 0.398)
pt3dadd(191.872, 160.276, 14.125, 0.39)
pt3dadd(191.983, 160.282, 14.089, 0.434)
pt3dadd(192.094, 160.289, 14.052, 0.484)
pt3dadd(192.205, 160.296, 14.015, 0.534)
pt3dadd(192.317, 160.303, 13.978, 0.584)
pt3dadd(192.427, 160.312, 13.941, 0.634)
pt3dadd(192.539, 160.319, 13.903, 0.682)
pt3dadd(192.65, 160.326, 13.866, 0.732)
pt3dadd(192.761, 160.333, 13.829, 0.782)
pt3dadd(192.872, 160.34, 13.792, 0.832)
pt3dadd(192.984, 160.348, 13.755, 0.882)
pt3dadd(193.099, 160.358, 13.729, 0.872)
pt3dadd(193.214, 160.37, 13.705, 0.858)
pt3dadd(193.331, 160.382, 13.681, 0.842)
pt3dadd(193.446, 160.393, 13.656, 0.828)
pt3dadd(193.562, 160.405, 13.632, 0.812)
pt3dadd(193.678, 160.417, 13.608, 0.798)
pt3dadd(193.794, 160.429, 13.583, 0.784)
pt3dadd(193.909, 160.441, 13.559, 0.768)
pt3dadd(194.026, 160.452, 13.535, 0.754)
pt3dadd(194.141, 160.464, 13.51, 0.74)
pt3dadd(194.256, 160.494, 13.494, 0.742)
pt3dadd(194.37, 160.525, 13.479, 0.748)
pt3dadd(194.484, 160.558, 13.464, 0.752)
pt3dadd(194.598, 160.589, 13.449, 0.758)
pt3dadd(194.713, 160.62, 13.434, 0.762)
pt3dadd(194.827, 160.651, 13.418, 0.768)
pt3dadd(194.941, 160.684, 13.403, 0.772)
pt3dadd(195.056, 160.715, 13.388, 0.776)
pt3dadd(195.17, 160.746, 13.373, 0.782)
pt3dadd(195.284, 160.777, 13.358, 0.786)
pt3dadd(195.398, 160.813, 13.351, 0.788)
pt3dadd(195.514, 160.849, 13.343, 0.79)
pt3dadd(195.628, 160.884, 13.336, 0.79)
pt3dadd(195.742, 160.92, 13.329, 0.792)
pt3dadd(195.856, 160.956, 13.321, 0.794)
pt3dadd(195.971, 160.991, 13.314, 0.794)
pt3dadd(196.085, 161.027, 13.307, 0.796)
pt3dadd(196.199, 161.062, 13.299, 0.798)
pt3dadd(196.313, 161.098, 13.292, 0.798)
pt3dadd(196.428, 161.132, 13.285, 0.798)
pt3dadd(196.546, 161.153, 13.285, 0.764)
pt3dadd(196.664, 161.173, 13.285, 0.73)
pt3dadd(196.782, 161.195, 13.285, 0.696)
pt3dadd(196.901, 161.215, 13.285, 0.662)
pt3dadd(197.018, 161.236, 13.285, 0.628)
pt3dadd(197.137, 161.256, 13.285, 0.594)
pt3dadd(197.255, 161.276, 13.285, 0.558)
pt3dadd(197.374, 161.298, 13.285, 0.524)
pt3dadd(197.491, 161.318, 13.285, 0.49)
pt3dadd(197.61, 161.338, 13.285, 0.462)
pt3dadd(197.73, 161.336, 13.285, 0.516)
pt3dadd(197.85, 161.336, 13.285, 0.568)
pt3dadd(197.97, 161.335, 13.285, 0.622)
pt3dadd(198.09, 161.335, 13.285, 0.676)
pt3dadd(198.21, 161.334, 13.285, 0.73)
pt3dadd(198.33, 161.333, 13.285, 0.782)
pt3dadd(198.45, 161.333, 13.285, 0.836)
pt3dadd(198.57, 161.332, 13.285, 0.89)
pt3dadd(198.69, 161.332, 13.285, 0.944)
pt3dadd(198.81, 161.328, 13.285, 0.992)
pt3dadd(198.925, 161.294, 13.285, 0.968)
pt3dadd(199.039, 161.261, 13.285, 0.944)
pt3dadd(199.154, 161.226, 13.285, 0.922)
pt3dadd(199.27, 161.192, 13.285, 0.898)
pt3dadd(199.385, 161.159, 13.285, 0.874)
pt3dadd(199.5, 161.125, 13.285, 0.85)
pt3dadd(199.615, 161.09, 13.285, 0.826)
pt3dadd(199.73, 161.057, 13.285, 0.802)
pt3dadd(199.846, 161.023, 13.285, 0.778)
pt3dadd(199.961, 160.988, 13.285, 0.752)
pt3dadd(200.074, 160.949, 13.285, 0.722)
pt3dadd(200.188, 160.91, 13.285, 0.692)
pt3dadd(200.3, 160.872, 13.285, 0.66)
pt3dadd(200.414, 160.832, 13.285, 0.63)
pt3dadd(200.528, 160.794, 13.285, 0.598)
pt3dadd(200.641, 160.754, 13.285, 0.568)
pt3dadd(200.755, 160.716, 13.285, 0.538)
pt3dadd(200.868, 160.678, 13.285, 0.506)
pt3dadd(200.982, 160.638, 13.285, 0.476)
pt3dadd(201.096, 160.602, 13.285, 0.452)
pt3dadd(201.214, 160.574, 13.285, 0.45)
pt3dadd(201.33, 160.547, 13.285, 0.448)
pt3dadd(201.446, 160.518, 13.285, 0.448)
pt3dadd(201.563, 160.49, 13.285, 0.446)
pt3dadd(201.68, 160.463, 13.285, 0.444)
pt3dadd(201.797, 160.435, 13.285, 0.442)
pt3dadd(201.913, 160.406, 13.285, 0.442)
pt3dadd(202.03, 160.379, 13.285, 0.44)
pt3dadd(202.147, 160.351, 13.285, 0.438)
pt3dadd(202.264, 160.326, 13.285, 0.434)
pt3dadd(202.384, 160.313, 13.285, 0.416)
pt3dadd(202.502, 160.298, 13.285, 0.398)
pt3dadd(202.621, 160.285, 13.285, 0.38)
pt3dadd(202.741, 160.271, 13.285, 0.362)
pt3dadd(202.86, 160.258, 13.285, 0.344)
pt3dadd(202.979, 160.243, 13.285, 0.326)
}
}
proc shape3d_112() {
apic[26] { pt3dadd(203.099, 160.23, 13.285, 0.308)
pt3dadd(203.218, 160.216, 13.285, 0.29)
pt3dadd(203.336, 160.202, 13.285, 0.272)
pt3dadd(203.456, 160.19, 13.285, 0.258)
pt3dadd(203.576, 160.188, 13.285, 0.254)
pt3dadd(203.696, 160.184, 13.285, 0.252)
pt3dadd(203.816, 160.181, 13.285, 0.248)
pt3dadd(203.936, 160.177, 13.285, 0.244)
pt3dadd(204.056, 160.174, 13.285, 0.242)
pt3dadd(204.176, 160.171, 13.285, 0.238)
pt3dadd(204.296, 160.168, 13.285, 0.236)
pt3dadd(204.416, 160.164, 13.285, 0.232)
pt3dadd(204.536, 160.16, 13.285, 0.228)
pt3dadd(204.656, 160.158, 13.285, 0.23)
pt3dadd(204.775, 160.156, 13.285, 0.252)
pt3dadd(204.895, 160.153, 13.285, 0.272)
pt3dadd(205.015, 160.152, 13.285, 0.292)
pt3dadd(205.135, 160.15, 13.285, 0.314)
pt3dadd(205.255, 160.148, 13.285, 0.334)
pt3dadd(205.375, 160.146, 13.285, 0.354)
pt3dadd(205.495, 160.144, 13.285, 0.376)
pt3dadd(205.615, 160.142, 13.285, 0.396)
pt3dadd(205.735, 160.14, 13.285, 0.416)
pt3dadd(205.855, 160.138, 13.285, 0.436)
pt3dadd(205.975, 160.134, 13.285, 0.448)
pt3dadd(206.095, 160.132, 13.285, 0.46)
pt3dadd(206.215, 160.128, 13.285, 0.472)
pt3dadd(206.335, 160.124, 13.285, 0.484)
pt3dadd(206.455, 160.121, 13.285, 0.496)
pt3dadd(206.575, 160.117, 13.285, 0.508)
pt3dadd(206.695, 160.114, 13.285, 0.52)
pt3dadd(206.815, 160.11, 13.285, 0.532)
pt3dadd(206.935, 160.106, 13.285, 0.544)
pt3dadd(207.055, 160.103, 13.285, 0.546)
pt3dadd(207.175, 160.097, 13.285, 0.514)
pt3dadd(207.295, 160.09, 13.285, 0.48)
pt3dadd(207.415, 160.084, 13.285, 0.448)
pt3dadd(207.534, 160.078, 13.285, 0.416)
pt3dadd(207.654, 160.072, 13.285, 0.382)
pt3dadd(207.774, 160.066, 13.285, 0.35)
pt3dadd(207.894, 160.058, 13.285, 0.316)
pt3dadd(208.014, 160.052, 13.285, 0.284)
pt3dadd(208.134, 160.046, 13.285, 0.252)
pt3dadd(208.253, 160.038, 13.285, 0.226)
pt3dadd(208.373, 160.024, 13.285, 0.226)
pt3dadd(208.492, 160.009, 13.285, 0.226)
pt3dadd(208.61, 159.995, 13.285, 0.226)
pt3dadd(208.73, 159.98, 13.285, 0.226)
pt3dadd(208.849, 159.966, 13.285, 0.226)
pt3dadd(208.968, 159.952, 13.285, 0.226)
pt3dadd(209.087, 159.937, 13.285, 0.226)
pt3dadd(209.207, 159.923, 13.285, 0.226)
pt3dadd(209.326, 159.908, 13.285, 0.226)
pt3dadd(209.444, 159.892, 13.285, 0.226)
pt3dadd(209.562, 159.868, 13.285, 0.226)
pt3dadd(209.68, 159.844, 13.285, 0.226)
pt3dadd(209.797, 159.82, 13.285, 0.226)
pt3dadd(209.915, 159.796, 13.285, 0.226)
pt3dadd(210.032, 159.772, 13.285, 0.226)
pt3dadd(210.15, 159.748, 13.285, 0.226)
pt3dadd(210.268, 159.724, 13.285, 0.226)
pt3dadd(210.385, 159.7, 13.285, 0.226)
pt3dadd(210.503, 159.677, 13.285, 0.226)
pt3dadd(210.619, 159.654, 13.292, 0.226)
pt3dadd(210.734, 159.636, 13.316, 0.226)
pt3dadd(210.85, 159.618, 13.341, 0.226)
pt3dadd(210.964, 159.601, 13.366, 0.226)
pt3dadd(211.079, 159.583, 13.391, 0.226)
pt3dadd(211.194, 159.565, 13.415, 0.226)
pt3dadd(211.309, 159.547, 13.44, 0.226)
pt3dadd(211.424, 159.529, 13.465, 0.226)
pt3dadd(211.538, 159.511, 13.489, 0.226)
pt3dadd(211.654, 159.494, 13.514, 0.226)
pt3dadd(211.769, 159.476, 13.539, 0.226)
pt3dadd(211.884, 159.458, 13.563, 0.226)
pt3dadd(211.998, 159.44, 13.588, 0.226)
pt3dadd(212.113, 159.422, 13.613, 0.226)
pt3dadd(212.228, 159.406, 13.637, 0.226)
pt3dadd(212.344, 159.388, 13.662, 0.226)
pt3dadd(212.458, 159.37, 13.687, 0.226)
pt3dadd(212.575, 159.36, 13.7, 0.226)
pt3dadd(212.695, 159.36, 13.7, 0.226)
pt3dadd(212.815, 159.36, 13.7, 0.226)
pt3dadd(212.935, 159.36, 13.7, 0.226)
pt3dadd(213.055, 159.36, 13.7, 0.226)
pt3dadd(213.175, 159.36, 13.7, 0.226)
pt3dadd(213.295, 159.36, 13.7, 0.226)
pt3dadd(213.415, 159.362, 13.7, 0.226)
pt3dadd(213.535, 159.368, 13.7, 0.226)
pt3dadd(213.655, 159.374, 13.7, 0.226)
pt3dadd(213.775, 159.38, 13.7, 0.226)
pt3dadd(213.895, 159.386, 13.7, 0.226)
pt3dadd(214.014, 159.392, 13.7, 0.226)
pt3dadd(214.134, 159.398, 13.7, 0.226)
pt3dadd(214.254, 159.412, 13.7, 0.226)
pt3dadd(214.373, 159.426, 13.7, 0.226)
pt3dadd(214.492, 159.442, 13.7, 0.226)
pt3dadd(214.61, 159.456, 13.7, 0.226)
pt3dadd(214.73, 159.472, 13.7, 0.226)
pt3dadd(214.849, 159.486, 13.7, 0.226)
pt3dadd(214.966, 159.514, 13.7, 0.226)
pt3dadd(215.078, 159.553, 13.7, 0.226)
pt3dadd(215.192, 159.588, 13.702, 0.226)
pt3dadd(215.311, 159.599, 13.716, 0.226)
pt3dadd(215.429, 159.61, 13.729, 0.226)
pt3dadd(215.501, 159.682, 13.758, 0.226)
pt3dadd(215.55, 159.782, 13.793, 0.226)
pt3dadd(215.636, 159.862, 13.8, 0.226)
pt3dadd(215.73, 159.936, 13.8, 0.226)
pt3dadd(215.828, 160.004, 13.8, 0.226)
pt3dadd(215.928, 160.072, 13.8, 0.226)
pt3dadd(216.019, 160.15, 13.8, 0.226)
pt3dadd(216.11, 160.228, 13.8, 0.226)
pt3dadd(216.202, 160.306, 13.8, 0.226)
pt3dadd(216.293, 160.382, 13.8, 0.226)
pt3dadd(216.389, 160.456, 13.8, 0.226)
pt3dadd(216.494, 160.512, 13.8, 0.226)
pt3dadd(216.6, 160.568, 13.8, 0.226)
pt3dadd(216.706, 160.625, 13.8, 0.226)
pt3dadd(216.811, 160.681, 13.8, 0.226)
pt3dadd(216.916, 160.74, 13.798, 0.226)
pt3dadd(217.01, 160.81, 13.775, 0.226)
pt3dadd(217.104, 160.879, 13.752, 0.226)
pt3dadd(217.198, 160.949, 13.73, 0.226)
pt3dadd(217.291, 161.018, 13.707, 0.226)
pt3dadd(217.4, 161.054, 13.688, 0.226)
pt3dadd(217.517, 161.075, 13.671, 0.226)
pt3dadd(217.633, 161.095, 13.654, 0.226)
pt3dadd(217.75, 161.117, 13.636, 0.226)
pt3dadd(217.866, 161.137, 13.619, 0.226)
pt3dadd(217.98, 161.167, 13.621, 0.226)
pt3dadd(218.092, 161.206, 13.639, 0.226)
pt3dadd(218.203, 161.243, 13.657, 0.226)
pt3dadd(218.315, 161.281, 13.675, 0.226)
pt3dadd(218.426, 161.32, 13.693, 0.226)
pt3dadd(218.539, 161.359, 13.7, 0.226)
pt3dadd(218.652, 161.401, 13.7, 0.226)
pt3dadd(218.765, 161.443, 13.7, 0.226)
pt3dadd(218.876, 161.484, 13.7, 0.226)
pt3dadd(218.989, 161.526, 13.7, 0.226)
pt3dadd(219.097, 161.575, 13.7, 0.226)
pt3dadd(219.186, 161.656, 13.7, 0.226)
pt3dadd(219.275, 161.737, 13.7, 0.226)
pt3dadd(219.364, 161.818, 13.7, 0.226)
pt3dadd(219.452, 161.898, 13.7, 0.226)
pt3dadd(219.547, 161.968, 13.701, 0.226)
pt3dadd(219.664, 161.996, 13.707, 0.226)
pt3dadd(219.78, 162.025, 13.713, 0.226)
pt3dadd(219.895, 162.054, 13.72, 0.226)
pt3dadd(220.012, 162.083, 13.726, 0.226)
pt3dadd(220.128, 162.112, 13.732, 0.226)
pt3dadd(220.238, 162.156, 13.743, 0.226)
pt3dadd(220.346, 162.206, 13.757, 0.226)
pt3dadd(220.454, 162.256, 13.771, 0.226)
pt3dadd(220.562, 162.306, 13.785, 0.226)
pt3dadd(220.67, 162.355, 13.799, 0.226)
pt3dadd(220.788, 162.366, 13.81, 0.226)
pt3dadd(220.907, 162.372, 13.821, 0.226)
pt3dadd(221.026, 162.379, 13.832, 0.226)
pt3dadd(221.146, 162.385, 13.843, 0.226)
pt3dadd(221.264, 162.392, 13.854, 0.226)
pt3dadd(221.383, 162.398, 13.865, 0.226)
pt3dadd(221.497, 162.432, 13.872, 0.226)
pt3dadd(221.611, 162.47, 13.878, 0.226)
pt3dadd(221.725, 162.508, 13.885, 0.226)
pt3dadd(221.838, 162.546, 13.891, 0.226)
pt3dadd(221.952, 162.584, 13.897, 0.226)
pt3dadd(222.07, 162.604, 13.9, 0.226)
pt3dadd(222.19, 162.61, 13.9, 0.226)
pt3dadd(222.31, 162.616, 13.9, 0.226)
pt3dadd(222.428, 162.622, 13.9, 0.226)
pt3dadd(222.548, 162.628, 13.9, 0.226)
pt3dadd(222.668, 162.634, 13.9, 0.226)
pt3dadd(222.788, 162.64, 13.9, 0.226)
pt3dadd(222.896, 162.688, 13.9, 0.226)
pt3dadd(223.004, 162.742, 13.9, 0.226)
pt3dadd(223.111, 162.796, 13.9, 0.226)
pt3dadd(223.219, 162.85, 13.9, 0.226)
pt3dadd(223.326, 162.904, 13.9, 0.226)
pt3dadd(223.421, 162.976, 13.9, 0.226)
pt3dadd(223.51, 163.056, 13.9, 0.226)
pt3dadd(223.598, 163.136, 13.9, 0.226)
pt3dadd(223.687, 163.218, 13.9, 0.226)
pt3dadd(223.776, 163.298, 13.9, 0.226)
pt3dadd(223.882, 163.352, 13.9, 0.226)
pt3dadd(223.993, 163.397, 13.9, 0.226)
pt3dadd(224.105, 163.441, 13.9, 0.226)
pt3dadd(224.215, 163.487, 13.9, 0.226)
pt3dadd(224.327, 163.531, 13.9, 0.226)
pt3dadd(224.436, 163.58, 13.9, 0.226)
pt3dadd(224.54, 163.64, 13.9, 0.226)
pt3dadd(224.644, 163.7, 13.9, 0.226)
pt3dadd(224.748, 163.76, 13.9, 0.226)
pt3dadd(224.851, 163.82, 13.9, 0.226)
pt3dadd(224.95, 163.888, 13.9, 0.226)
pt3dadd(225.028, 163.979, 13.9, 0.226)
pt3dadd(225.106, 164.07, 13.9, 0.226)
pt3dadd(225.185, 164.161, 13.9, 0.226)
pt3dadd(225.263, 164.251, 13.9, 0.226)
pt3dadd(225.336, 164.346, 13.9, 0.226)
}
}
proc shape3d_113() {
apic[26] { pt3dadd(225.4, 164.448, 13.9, 0.226)
pt3dadd(225.462, 164.55, 13.9, 0.226)
pt3dadd(225.524, 164.653, 13.9, 0.226)
pt3dadd(225.587, 164.755, 13.9, 0.226)
pt3dadd(225.654, 164.852, 13.896, 0.226)
pt3dadd(225.743, 164.929, 13.873, 0.226)
pt3dadd(225.832, 165.005, 13.851, 0.226)
pt3dadd(225.92, 165.082, 13.828, 0.226)
pt3dadd(226.009, 165.157, 13.805, 0.226)
pt3dadd(226.08, 165.252, 13.8, 0.226)
pt3dadd(226.145, 165.353, 13.8, 0.226)
pt3dadd(226.211, 165.454, 13.8, 0.226)
pt3dadd(226.277, 165.553, 13.8, 0.226)
pt3dadd(226.343, 165.654, 13.8, 0.226)
pt3dadd(226.433, 165.731, 13.8, 0.226)
pt3dadd(226.531, 165.798, 13.8, 0.226)
pt3dadd(226.634, 165.858, 13.81, 0.226)
pt3dadd(226.74, 165.911, 13.826, 0.226)
pt3dadd(226.801, 165.996, 13.852, 0.226)
pt3dadd(226.826, 166.106, 13.884, 0.226)
pt3dadd(226.856, 166.219, 13.9, 0.226)
pt3dadd(226.89, 166.334, 13.9, 0.226)
pt3dadd(226.925, 166.448, 13.9, 0.226)
pt3dadd(226.987, 166.552, 13.9, 0.226)
pt3dadd(227.05, 166.654, 13.9, 0.226)
pt3dadd(227.112, 166.757, 13.9, 0.226)
pt3dadd(227.197, 166.831, 13.9, 0.226)
pt3dadd(227.31, 166.871, 13.9, 0.226)
pt3dadd(227.424, 166.91, 13.9, 0.226)
pt3dadd(227.539, 166.944, 13.9, 0.226)
pt3dadd(227.652, 166.982, 13.9, 0.226)
pt3dadd(227.766, 167.022, 13.9, 0.226)
pt3dadd(227.88, 167.06, 13.9, 0.226)
pt3dadd(227.993, 167.099, 13.9, 0.226)
pt3dadd(228.107, 167.138, 13.9, 0.226)
pt3dadd(228.218, 167.182, 13.9, 0.226)
pt3dadd(228.33, 167.226, 13.9, 0.226)
pt3dadd(228.442, 167.27, 13.9, 0.226)
pt3dadd(228.553, 167.315, 13.9, 0.226)
pt3dadd(228.665, 167.359, 13.9, 0.226)
pt3dadd(228.779, 167.394, 13.9, 0.226)
pt3dadd(228.896, 167.414, 13.9, 0.226)
pt3dadd(229.015, 167.435, 13.9, 0.226)
pt3dadd(229.124, 167.482, 13.9, 0.226)
pt3dadd(229.232, 167.536, 13.9, 0.226)
pt3dadd(229.321, 167.611, 13.9, 0.226)
pt3dadd(229.397, 167.705, 13.9, 0.226)
pt3dadd(229.475, 167.795, 13.9, 0.226)
pt3dadd(229.56, 167.88, 13.9, 0.226)
}
dend_0[3] {pt3dclear()
pt3dadd(138.376, 111.594, 20.876, 14.464)
pt3dadd(138.376, 111.583, 20.885, 14.45)
pt3dadd(138.376, 111.498, 20.956, 14.336)
pt3dadd(138.376, 111.413, 21.027, 14.222)
pt3dadd(138.376, 111.328, 21.098, 14.108)
pt3dadd(138.376, 111.243, 21.168, 13.994)
pt3dadd(138.376, 111.159, 21.239, 13.882)
pt3dadd(138.376, 111.074, 21.31, 13.768)
pt3dadd(138.376, 110.989, 21.38, 13.654)
pt3dadd(138.376, 110.904, 21.451, 13.54)
pt3dadd(138.376, 110.819, 21.522, 13.426)
pt3dadd(138.376, 110.734, 21.593, 13.312)
pt3dadd(138.376, 110.649, 21.663, 13.2)
pt3dadd(138.366, 110.56, 21.73, 13.058)
pt3dadd(138.353, 110.469, 21.794, 12.902)
pt3dadd(138.34, 110.379, 21.858, 12.748)
pt3dadd(138.326, 110.288, 21.922, 12.592)
pt3dadd(138.313, 110.197, 21.987, 12.438)
pt3dadd(138.299, 110.106, 22.051, 12.282)
pt3dadd(138.286, 110.015, 22.115, 12.128)
pt3dadd(138.272, 109.924, 22.179, 11.972)
pt3dadd(138.259, 109.833, 22.244, 11.818)
pt3dadd(138.246, 109.742, 22.308, 11.662)
pt3dadd(138.211, 109.645, 22.359, 11.45)
pt3dadd(138.174, 109.548, 22.409, 11.228)
pt3dadd(138.137, 109.45, 22.458, 11.006)
pt3dadd(138.1, 109.353, 22.507, 10.784)
pt3dadd(138.062, 109.255, 22.557, 10.562)
pt3dadd(138.025, 109.158, 22.606, 10.34)
pt3dadd(137.988, 109.06, 22.655, 10.118)
pt3dadd(137.951, 108.963, 22.705, 9.896)
pt3dadd(137.914, 108.865, 22.754, 9.674)
pt3dadd(137.876, 108.768, 22.804, 9.452)
pt3dadd(137.825, 108.67, 22.841, 9.234)
pt3dadd(137.77, 108.571, 22.876, 9.016)
pt3dadd(137.716, 108.473, 22.911, 8.798)
pt3dadd(137.66, 108.375, 22.946, 8.58)
pt3dadd(137.606, 108.277, 22.981, 8.364)
pt3dadd(137.551, 108.179, 23.016, 8.146)
pt3dadd(137.496, 108.08, 23.051, 7.928)
pt3dadd(137.442, 107.982, 23.086, 7.71)
pt3dadd(137.387, 107.884, 23.121, 7.494)
pt3dadd(137.333, 107.786, 23.156, 7.276)
pt3dadd(137.267, 107.69, 23.179, 7.082)
pt3dadd(137.2, 107.594, 23.203, 6.886)
pt3dadd(137.134, 107.497, 23.226, 6.692)
pt3dadd(137.068, 107.401, 23.249, 6.498)
pt3dadd(137.002, 107.305, 23.273, 6.304)
pt3dadd(136.936, 107.209, 23.296, 6.11)
pt3dadd(136.87, 107.113, 23.32, 5.914)
pt3dadd(136.804, 107.017, 23.343, 5.72)
pt3dadd(136.736, 106.921, 23.366, 5.526)
pt3dadd(136.67, 106.825, 23.39, 5.332)
pt3dadd(136.598, 106.731, 23.405, 5.192)
pt3dadd(136.526, 106.637, 23.421, 5.052)
pt3dadd(136.453, 106.543, 23.437, 4.912)
pt3dadd(136.381, 106.449, 23.452, 4.772)
pt3dadd(136.309, 106.356, 23.468, 4.632)
pt3dadd(136.236, 106.262, 23.483, 4.492)
pt3dadd(136.164, 106.168, 23.499, 4.354)
pt3dadd(136.092, 106.074, 23.515, 4.214)
pt3dadd(136.02, 105.98, 23.53, 4.074)
pt3dadd(135.947, 105.886, 23.546, 3.934)
pt3dadd(135.875, 105.792, 23.559, 3.87)
pt3dadd(135.802, 105.698, 23.573, 3.808)
pt3dadd(135.73, 105.604, 23.586, 3.744)
pt3dadd(135.656, 105.51, 23.599, 3.682)
pt3dadd(135.584, 105.415, 23.613, 3.618)
pt3dadd(135.511, 105.321, 23.626, 3.556)
pt3dadd(135.438, 105.227, 23.64, 3.494)
pt3dadd(135.366, 105.133, 23.653, 3.43)
pt3dadd(135.293, 105.039, 23.666, 3.368)
pt3dadd(135.221, 104.945, 23.68, 3.304)
pt3dadd(135.148, 104.85, 23.692, 3.29)
pt3dadd(135.074, 104.756, 23.704, 3.276)
pt3dadd(135.002, 104.662, 23.716, 3.262)
pt3dadd(134.929, 104.568, 23.728, 3.248)
pt3dadd(134.856, 104.474, 23.74, 3.234)
pt3dadd(134.783, 104.379, 23.752, 3.22)
}
dend_7 {pt3dclear()
pt3dadd(134.783, 104.379, 23.752, 3.22)
pt3dadd(134.71, 104.285, 23.764, 3.206)
pt3dadd(134.638, 104.191, 23.776, 3.192)
pt3dadd(134.564, 104.097, 23.788, 3.178)
pt3dadd(134.491, 104.003, 23.8, 3.164)
}
dend_7[1] {pt3dclear()
pt3dadd(134.491, 104.003, 23.8, 3.164)
pt3dadd(134.453, 103.905, 23.84, 3.076)
pt3dadd(134.413, 103.803, 23.881, 2.986)
pt3dadd(134.374, 103.701, 23.922, 2.894)
pt3dadd(134.334, 103.6, 23.964, 2.804)
pt3dadd(134.294, 103.498, 24.005, 2.712)
pt3dadd(134.255, 103.396, 24.047, 2.622)
pt3dadd(134.215, 103.294, 24.088, 2.532)
pt3dadd(134.176, 103.192, 24.13, 2.44)
pt3dadd(134.142, 103.088, 24.17, 2.36)
pt3dadd(134.108, 102.983, 24.21, 2.282)
pt3dadd(134.075, 102.879, 24.25, 2.204)
pt3dadd(134.041, 102.774, 24.29, 2.128)
pt3dadd(134.008, 102.669, 24.33, 2.05)
pt3dadd(133.974, 102.564, 24.37, 1.972)
pt3dadd(133.94, 102.46, 24.41, 1.894)
pt3dadd(133.907, 102.355, 24.45, 1.816)
pt3dadd(133.873, 102.25, 24.49, 1.738)
pt3dadd(133.84, 102.146, 24.53, 1.66)
pt3dadd(133.817, 102.036, 24.566, 1.608)
pt3dadd(133.796, 101.927, 24.603, 1.558)
pt3dadd(133.776, 101.817, 24.64, 1.51)
pt3dadd(133.756, 101.707, 24.676, 1.46)
pt3dadd(133.735, 101.597, 24.713, 1.412)
pt3dadd(133.715, 101.487, 24.749, 1.362)
pt3dadd(133.693, 101.377, 24.786, 1.314)
pt3dadd(133.673, 101.268, 24.822, 1.264)
pt3dadd(133.652, 101.158, 24.859, 1.214)
pt3dadd(133.632, 101.048, 24.895, 1.166)
pt3dadd(133.618, 100.944, 24.944, 1.158)
pt3dadd(133.604, 100.841, 24.994, 1.154)
pt3dadd(133.591, 100.738, 25.044, 1.152)
pt3dadd(133.578, 100.635, 25.094, 1.148)
pt3dadd(133.564, 100.533, 25.144, 1.146)
pt3dadd(133.55, 100.43, 25.194, 1.142)
pt3dadd(133.537, 100.327, 25.245, 1.14)
pt3dadd(133.524, 100.224, 25.295, 1.136)
pt3dadd(133.511, 100.121, 25.345, 1.134)
pt3dadd(133.496, 100.018, 25.395, 1.13)
pt3dadd(133.471, 99.914, 25.44, 1.168)
pt3dadd(133.444, 99.81, 25.484, 1.212)
pt3dadd(133.416, 99.705, 25.527, 1.254)
pt3dadd(133.387, 99.601, 25.571, 1.298)
pt3dadd(133.36, 99.497, 25.615, 1.34)
pt3dadd(133.332, 99.392, 25.659, 1.384)
pt3dadd(133.304, 99.288, 25.702, 1.426)
pt3dadd(133.277, 99.184, 25.746, 1.47)
pt3dadd(133.249, 99.08, 25.79, 1.514)
pt3dadd(133.222, 98.975, 25.834, 1.556)
pt3dadd(133.177, 98.872, 25.868, 1.65)
pt3dadd(133.133, 98.768, 25.902, 1.742)
pt3dadd(133.09, 98.664, 25.936, 1.836)
pt3dadd(133.045, 98.56, 25.97, 1.928)
pt3dadd(133.001, 98.456, 26.005, 2.022)
pt3dadd(132.956, 98.353, 26.039, 2.114)
pt3dadd(132.912, 98.249, 26.073, 2.208)
pt3dadd(132.869, 98.145, 26.107, 2.3)
pt3dadd(132.824, 98.041, 26.141, 2.394)
pt3dadd(132.78, 97.938, 26.175, 2.486)
}
dend_7[2] {pt3dclear()
pt3dadd(132.78, 97.938, 26.175, 2.486)
pt3dadd(132.754, 97.847, 26.22, 2.418)
pt3dadd(132.724, 97.747, 26.269, 2.342)
pt3dadd(132.694, 97.647, 26.318, 2.268)
pt3dadd(132.664, 97.546, 26.367, 2.194)
pt3dadd(132.634, 97.446, 26.417, 2.118)
pt3dadd(132.604, 97.346, 26.466, 2.044)
pt3dadd(132.575, 97.246, 26.515, 1.968)
}
}
proc shape3d_114() {
dend_7[2] { pt3dadd(132.545, 97.146, 26.564, 1.892)
pt3dadd(132.515, 97.046, 26.613, 1.818)
pt3dadd(132.485, 96.946, 26.662, 1.742)
pt3dadd(132.455, 96.846, 26.712, 1.668)
pt3dadd(132.425, 96.745, 26.761, 1.594)
pt3dadd(132.395, 96.645, 26.81, 1.518)
pt3dadd(132.368, 96.538, 26.848, 1.486)
pt3dadd(132.343, 96.429, 26.886, 1.458)
pt3dadd(132.317, 96.321, 26.923, 1.428)
pt3dadd(132.29, 96.213, 26.961, 1.4)
pt3dadd(132.264, 96.105, 26.999, 1.37)
pt3dadd(132.239, 95.997, 27.036, 1.342)
pt3dadd(132.212, 95.889, 27.074, 1.312)
pt3dadd(132.186, 95.781, 27.112, 1.284)
pt3dadd(132.16, 95.673, 27.149, 1.254)
pt3dadd(132.133, 95.565, 27.187, 1.226)
pt3dadd(132.109, 95.458, 27.227, 1.242)
pt3dadd(132.085, 95.35, 27.267, 1.26)
pt3dadd(132.061, 95.243, 27.307, 1.278)
pt3dadd(132.036, 95.136, 27.347, 1.294)
pt3dadd(132.012, 95.028, 27.386, 1.312)
pt3dadd(131.988, 94.921, 27.426, 1.33)
pt3dadd(131.964, 94.814, 27.466, 1.348)
pt3dadd(131.939, 94.706, 27.506, 1.366)
pt3dadd(131.915, 94.599, 27.546, 1.382)
pt3dadd(131.891, 94.492, 27.586, 1.4)
pt3dadd(131.868, 94.388, 27.633, 1.464)
pt3dadd(131.845, 94.285, 27.68, 1.526)
pt3dadd(131.822, 94.181, 27.727, 1.59)
pt3dadd(131.8, 94.078, 27.773, 1.654)
pt3dadd(131.777, 93.974, 27.82, 1.716)
pt3dadd(131.753, 93.871, 27.867, 1.78)
pt3dadd(131.73, 93.768, 27.914, 1.844)
pt3dadd(131.707, 93.664, 27.961, 1.908)
pt3dadd(131.684, 93.561, 28.008, 1.97)
pt3dadd(131.662, 93.457, 28.055, 2.034)
}
dend_7[3] {pt3dclear()
pt3dadd(131.662, 93.457, 28.055, 2.034)
pt3dadd(131.611, 93.377, 28.075, 2.008)
pt3dadd(131.549, 93.279, 28.1, 1.976)
pt3dadd(131.486, 93.181, 28.125, 1.946)
pt3dadd(131.424, 93.083, 28.15, 1.914)
pt3dadd(131.362, 92.985, 28.175, 1.882)
pt3dadd(131.3, 92.887, 28.199, 1.852)
pt3dadd(131.238, 92.788, 28.224, 1.82)
pt3dadd(131.176, 92.69, 28.249, 1.788)
pt3dadd(131.113, 92.592, 28.274, 1.756)
pt3dadd(131.051, 92.494, 28.299, 1.726)
pt3dadd(130.988, 92.396, 28.323, 1.694)
pt3dadd(130.926, 92.298, 28.348, 1.662)
pt3dadd(130.853, 92.205, 28.367, 1.674)
pt3dadd(130.778, 92.114, 28.386, 1.69)
pt3dadd(130.705, 92.022, 28.405, 1.704)
pt3dadd(130.631, 91.93, 28.423, 1.718)
pt3dadd(130.556, 91.838, 28.442, 1.734)
pt3dadd(130.483, 91.747, 28.461, 1.748)
pt3dadd(130.409, 91.655, 28.479, 1.762)
pt3dadd(130.334, 91.563, 28.498, 1.778)
pt3dadd(130.261, 91.471, 28.517, 1.792)
pt3dadd(130.187, 91.38, 28.535, 1.808)
pt3dadd(130.105, 91.294, 28.552, 1.834)
pt3dadd(130.024, 91.208, 28.568, 1.862)
pt3dadd(129.942, 91.123, 28.584, 1.888)
pt3dadd(129.859, 91.037, 28.6, 1.916)
pt3dadd(129.778, 90.952, 28.616, 1.942)
pt3dadd(129.696, 90.866, 28.633, 1.97)
pt3dadd(129.614, 90.78, 28.649, 1.998)
pt3dadd(129.532, 90.695, 28.665, 2.024)
pt3dadd(129.45, 90.609, 28.681, 2.052)
pt3dadd(129.368, 90.524, 28.697, 2.078)
pt3dadd(129.275, 90.451, 28.712, 2.096)
pt3dadd(129.181, 90.378, 28.727, 2.114)
pt3dadd(129.088, 90.305, 28.742, 2.134)
pt3dadd(128.994, 90.232, 28.757, 2.152)
pt3dadd(128.9, 90.159, 28.772, 2.17)
pt3dadd(128.807, 90.086, 28.786, 2.188)
pt3dadd(128.713, 90.013, 28.801, 2.206)
pt3dadd(128.62, 89.94, 28.816, 2.224)
pt3dadd(128.526, 89.867, 28.831, 2.242)
pt3dadd(128.432, 89.794, 28.846, 2.26)
}
dend_7[4] {pt3dclear()
pt3dadd(128.432, 89.794, 28.846, 2.26)
pt3dadd(128.4, 89.729, 28.88, 2.222)
pt3dadd(128.352, 89.636, 28.929, 2.166)
pt3dadd(128.305, 89.542, 28.978, 2.11)
pt3dadd(128.258, 89.449, 29.027, 2.056)
pt3dadd(128.212, 89.356, 29.076, 2)
pt3dadd(128.164, 89.262, 29.125, 1.944)
pt3dadd(128.117, 89.169, 29.174, 1.89)
pt3dadd(128.076, 89.071, 29.221, 1.838)
pt3dadd(128.042, 88.969, 29.265, 1.792)
pt3dadd(128.01, 88.866, 29.309, 1.744)
pt3dadd(127.976, 88.764, 29.353, 1.698)
pt3dadd(127.943, 88.661, 29.397, 1.652)
pt3dadd(127.909, 88.559, 29.441, 1.606)
pt3dadd(127.876, 88.457, 29.485, 1.558)
pt3dadd(127.842, 88.354, 29.529, 1.512)
pt3dadd(127.808, 88.252, 29.573, 1.466)
pt3dadd(127.775, 88.149, 29.617, 1.418)
pt3dadd(127.752, 88.043, 29.659, 1.396)
pt3dadd(127.734, 87.935, 29.699, 1.39)
pt3dadd(127.717, 87.826, 29.739, 1.384)
pt3dadd(127.7, 87.718, 29.779, 1.378)
pt3dadd(127.684, 87.609, 29.82, 1.372)
pt3dadd(127.666, 87.501, 29.86, 1.364)
pt3dadd(127.649, 87.392, 29.9, 1.358)
pt3dadd(127.632, 87.284, 29.941, 1.352)
pt3dadd(127.615, 87.175, 29.981, 1.346)
pt3dadd(127.598, 87.067, 30.021, 1.34)
pt3dadd(127.585, 86.96, 30.065, 1.386)
pt3dadd(127.574, 86.854, 30.111, 1.464)
pt3dadd(127.564, 86.748, 30.158, 1.542)
pt3dadd(127.553, 86.643, 30.205, 1.622)
pt3dadd(127.542, 86.537, 30.251, 1.7)
pt3dadd(127.531, 86.431, 30.297, 1.778)
pt3dadd(127.52, 86.326, 30.344, 1.858)
pt3dadd(127.51, 86.22, 30.39, 1.936)
pt3dadd(127.499, 86.114, 30.437, 2.014)
pt3dadd(127.488, 86.009, 30.483, 2.094)
pt3dadd(127.471, 85.899, 30.52, 2.116)
pt3dadd(127.451, 85.786, 30.55, 2.102)
pt3dadd(127.43, 85.673, 30.58, 2.086)
pt3dadd(127.41, 85.561, 30.61, 2.072)
pt3dadd(127.39, 85.448, 30.64, 2.058)
pt3dadd(127.369, 85.335, 30.67, 2.042)
pt3dadd(127.349, 85.223, 30.7, 2.028)
pt3dadd(127.328, 85.11, 30.73, 2.014)
pt3dadd(127.308, 84.998, 30.76, 2)
pt3dadd(127.288, 84.885, 30.79, 1.984)
pt3dadd(127.255, 84.774, 30.814, 1.964)
pt3dadd(127.216, 84.663, 30.836, 1.938)
pt3dadd(127.176, 84.553, 30.858, 1.914)
pt3dadd(127.136, 84.443, 30.88, 1.888)
pt3dadd(127.098, 84.333, 30.902, 1.862)
pt3dadd(127.058, 84.222, 30.923, 1.838)
pt3dadd(127.019, 84.112, 30.945, 1.812)
pt3dadd(126.979, 84.002, 30.967, 1.788)
pt3dadd(126.94, 83.891, 30.989, 1.762)
pt3dadd(126.901, 83.781, 31.01, 1.738)
pt3dadd(126.848, 83.676, 31.028, 1.72)
pt3dadd(126.792, 83.571, 31.044, 1.706)
pt3dadd(126.734, 83.467, 31.06, 1.694)
pt3dadd(126.678, 83.364, 31.077, 1.68)
pt3dadd(126.622, 83.259, 31.093, 1.666)
pt3dadd(126.565, 83.156, 31.109, 1.652)
pt3dadd(126.509, 83.052, 31.125, 1.638)
pt3dadd(126.451, 82.947, 31.141, 1.624)
pt3dadd(126.395, 82.844, 31.158, 1.612)
pt3dadd(126.338, 82.74, 31.174, 1.598)
pt3dadd(126.274, 82.64, 31.186, 1.618)
pt3dadd(126.205, 82.542, 31.197, 1.646)
pt3dadd(126.137, 82.444, 31.208, 1.676)
pt3dadd(126.07, 82.346, 31.219, 1.706)
pt3dadd(126.001, 82.248, 31.229, 1.734)
pt3dadd(125.934, 82.15, 31.24, 1.764)
pt3dadd(125.866, 82.052, 31.251, 1.794)
pt3dadd(125.797, 81.954, 31.262, 1.822)
pt3dadd(125.73, 81.856, 31.273, 1.852)
pt3dadd(125.662, 81.757, 31.284, 1.882)
pt3dadd(125.602, 81.657, 31.305, 1.888)
pt3dadd(125.544, 81.556, 31.33, 1.886)
pt3dadd(125.486, 81.455, 31.354, 1.886)
pt3dadd(125.429, 81.354, 31.378, 1.884)
pt3dadd(125.371, 81.253, 31.403, 1.884)
pt3dadd(125.314, 81.152, 31.427, 1.882)
pt3dadd(125.255, 81.051, 31.452, 1.882)
pt3dadd(125.197, 80.95, 31.476, 1.88)
pt3dadd(125.14, 80.849, 31.501, 1.88)
pt3dadd(125.082, 80.748, 31.525, 1.878)
pt3dadd(125.035, 80.647, 31.561, 1.852)
pt3dadd(124.988, 80.545, 31.598, 1.822)
pt3dadd(124.943, 80.444, 31.635, 1.792)
pt3dadd(124.896, 80.342, 31.672, 1.764)
pt3dadd(124.85, 80.24, 31.709, 1.734)
pt3dadd(124.805, 80.139, 31.746, 1.704)
pt3dadd(124.758, 80.037, 31.783, 1.674)
pt3dadd(124.712, 79.936, 31.819, 1.644)
pt3dadd(124.666, 79.834, 31.856, 1.614)
pt3dadd(124.62, 79.733, 31.893, 1.584)
pt3dadd(124.588, 79.624, 31.925, 1.582)
pt3dadd(124.555, 79.514, 31.955, 1.582)
pt3dadd(124.524, 79.404, 31.986, 1.582)
pt3dadd(124.493, 79.294, 32.017, 1.582)
pt3dadd(124.462, 79.184, 32.048, 1.582)
pt3dadd(124.43, 79.075, 32.078, 1.582)
pt3dadd(124.399, 78.965, 32.109, 1.582)
pt3dadd(124.368, 78.855, 32.14, 1.582)
pt3dadd(124.337, 78.745, 32.17, 1.582)
pt3dadd(124.306, 78.635, 32.201, 1.582)
pt3dadd(124.258, 78.53, 32.227, 1.592)
pt3dadd(124.208, 78.425, 32.252, 1.604)
pt3dadd(124.158, 78.32, 32.277, 1.616)
pt3dadd(124.109, 78.215, 32.302, 1.628)
pt3dadd(124.06, 78.11, 32.328, 1.64)
pt3dadd(124.01, 78.005, 32.353, 1.652)
pt3dadd(123.96, 77.9, 32.378, 1.662)
pt3dadd(123.911, 77.794, 32.403, 1.674)
pt3dadd(123.862, 77.689, 32.428, 1.686)
pt3dadd(123.812, 77.584, 32.454, 1.698)
pt3dadd(123.757, 77.484, 32.482, 1.714)
pt3dadd(123.701, 77.383, 32.511, 1.732)
pt3dadd(123.646, 77.282, 32.54, 1.748)
}
}
proc shape3d_115() {
dend_7[4] { pt3dadd(123.59, 77.182, 32.569, 1.764)
pt3dadd(123.534, 77.081, 32.598, 1.782)
pt3dadd(123.479, 76.981, 32.626, 1.798)
pt3dadd(123.424, 76.88, 32.655, 1.816)
pt3dadd(123.368, 76.779, 32.684, 1.832)
pt3dadd(123.312, 76.679, 32.713, 1.848)
pt3dadd(123.257, 76.578, 32.742, 1.866)
pt3dadd(123.205, 76.482, 32.782, 1.882)
pt3dadd(123.152, 76.385, 32.823, 1.9)
pt3dadd(123.101, 76.289, 32.864, 1.916)
pt3dadd(123.049, 76.192, 32.904, 1.932)
pt3dadd(122.996, 76.096, 32.945, 1.95)
pt3dadd(122.945, 75.999, 32.986, 1.966)
pt3dadd(122.893, 75.903, 33.026, 1.984)
pt3dadd(122.842, 75.806, 33.067, 2)
pt3dadd(122.789, 75.709, 33.108, 2.018)
pt3dadd(122.737, 75.613, 33.148, 2.034)
}
dend_7[5] {pt3dclear()
pt3dadd(122.737, 75.613, 33.148, 2.034)
pt3dadd(122.704, 75.588, 33.161, 2.006)
pt3dadd(122.615, 75.519, 33.196, 1.926)
pt3dadd(122.526, 75.45, 33.231, 1.848)
pt3dadd(122.437, 75.382, 33.267, 1.77)
pt3dadd(122.347, 75.313, 33.302, 1.692)
pt3dadd(122.258, 75.245, 33.337, 1.614)
pt3dadd(122.17, 75.176, 33.372, 1.536)
pt3dadd(122.081, 75.108, 33.407, 1.458)
pt3dadd(121.991, 75.039, 33.442, 1.38)
pt3dadd(121.901, 74.968, 33.471, 1.358)
pt3dadd(121.811, 74.896, 33.498, 1.36)
pt3dadd(121.721, 74.824, 33.524, 1.362)
pt3dadd(121.631, 74.751, 33.551, 1.366)
pt3dadd(121.54, 74.679, 33.577, 1.368)
pt3dadd(121.45, 74.607, 33.604, 1.37)
pt3dadd(121.36, 74.535, 33.631, 1.372)
pt3dadd(121.27, 74.462, 33.657, 1.374)
pt3dadd(121.18, 74.39, 33.684, 1.378)
pt3dadd(121.088, 74.318, 33.711, 1.38)
pt3dadd(121.001, 74.247, 33.743, 1.382)
pt3dadd(120.912, 74.176, 33.777, 1.384)
pt3dadd(120.824, 74.106, 33.812, 1.386)
pt3dadd(120.737, 74.035, 33.846, 1.388)
pt3dadd(120.649, 73.965, 33.881, 1.39)
pt3dadd(120.562, 73.894, 33.915, 1.394)
pt3dadd(120.473, 73.824, 33.95, 1.396)
pt3dadd(120.385, 73.753, 33.984, 1.398)
pt3dadd(120.298, 73.683, 34.019, 1.4)
pt3dadd(120.21, 73.612, 34.053, 1.402)
pt3dadd(120.125, 73.542, 34.093, 1.376)
pt3dadd(120.042, 73.471, 34.135, 1.342)
pt3dadd(119.958, 73.401, 34.177, 1.308)
pt3dadd(119.875, 73.331, 34.218, 1.274)
pt3dadd(119.791, 73.26, 34.26, 1.242)
pt3dadd(119.708, 73.19, 34.301, 1.208)
pt3dadd(119.625, 73.12, 34.343, 1.174)
pt3dadd(119.541, 73.049, 34.384, 1.14)
pt3dadd(119.457, 72.979, 34.426, 1.108)
pt3dadd(119.374, 72.909, 34.467, 1.074)
pt3dadd(119.29, 72.83, 34.496, 1.056)
pt3dadd(119.206, 72.751, 34.522, 1.04)
pt3dadd(119.122, 72.671, 34.549, 1.024)
pt3dadd(119.038, 72.592, 34.576, 1.008)
pt3dadd(118.954, 72.513, 34.602, 0.992)
pt3dadd(118.87, 72.433, 34.629, 0.976)
pt3dadd(118.786, 72.354, 34.656, 0.96)
pt3dadd(118.702, 72.274, 34.682, 0.946)
pt3dadd(118.618, 72.195, 34.709, 0.93)
pt3dadd(118.534, 72.115, 34.736, 0.914)
pt3dadd(118.448, 72.034, 34.753, 0.926)
pt3dadd(118.362, 71.952, 34.77, 0.94)
pt3dadd(118.276, 71.871, 34.787, 0.956)
pt3dadd(118.191, 71.79, 34.804, 0.972)
pt3dadd(118.105, 71.708, 34.82, 0.988)
pt3dadd(118.019, 71.627, 34.837, 1.004)
pt3dadd(117.933, 71.545, 34.854, 1.02)
pt3dadd(117.847, 71.464, 34.87, 1.036)
pt3dadd(117.762, 71.382, 34.887, 1.052)
pt3dadd(117.676, 71.301, 34.904, 1.066)
pt3dadd(117.583, 71.227, 34.918, 1.074)
pt3dadd(117.489, 71.154, 34.933, 1.08)
pt3dadd(117.396, 71.081, 34.947, 1.086)
pt3dadd(117.302, 71.008, 34.961, 1.092)
pt3dadd(117.208, 70.935, 34.975, 1.098)
pt3dadd(117.114, 70.862, 34.989, 1.104)
pt3dadd(117.021, 70.789, 35.004, 1.112)
pt3dadd(116.927, 70.716, 35.018, 1.118)
pt3dadd(116.833, 70.643, 35.032, 1.124)
pt3dadd(116.739, 70.57, 35.047, 1.13)
pt3dadd(116.648, 70.497, 35.067, 1.13)
pt3dadd(116.557, 70.423, 35.088, 1.13)
pt3dadd(116.466, 70.349, 35.109, 1.13)
pt3dadd(116.375, 70.275, 35.131, 1.13)
pt3dadd(116.284, 70.201, 35.152, 1.13)
pt3dadd(116.193, 70.127, 35.173, 1.13)
pt3dadd(116.101, 70.053, 35.194, 1.13)
pt3dadd(116.01, 69.98, 35.215, 1.13)
pt3dadd(115.919, 69.906, 35.237, 1.13)
pt3dadd(115.83, 69.831, 35.26, 1.13)
pt3dadd(115.764, 69.744, 35.302, 1.13)
pt3dadd(115.699, 69.658, 35.345, 1.13)
pt3dadd(115.633, 69.572, 35.387, 1.13)
pt3dadd(115.567, 69.485, 35.43, 1.13)
pt3dadd(115.501, 69.399, 35.472, 1.13)
pt3dadd(115.435, 69.312, 35.514, 1.13)
pt3dadd(115.369, 69.226, 35.557, 1.13)
pt3dadd(115.303, 69.14, 35.599, 1.13)
pt3dadd(115.237, 69.053, 35.642, 1.13)
pt3dadd(115.171, 68.967, 35.683, 1.128)
pt3dadd(115.101, 68.876, 35.713, 1.114)
pt3dadd(115.031, 68.785, 35.742, 1.098)
pt3dadd(114.96, 68.695, 35.772, 1.082)
pt3dadd(114.89, 68.604, 35.801, 1.068)
pt3dadd(114.82, 68.514, 35.831, 1.052)
pt3dadd(114.75, 68.423, 35.861, 1.036)
pt3dadd(114.679, 68.332, 35.89, 1.022)
pt3dadd(114.609, 68.242, 35.92, 1.006)
pt3dadd(114.539, 68.151, 35.949, 0.99)
pt3dadd(114.469, 68.06, 35.978, 0.976)
pt3dadd(114.397, 67.969, 36.003, 0.978)
pt3dadd(114.325, 67.878, 36.028, 0.978)
pt3dadd(114.253, 67.787, 36.053, 0.978)
pt3dadd(114.181, 67.695, 36.078, 0.98)
pt3dadd(114.109, 67.604, 36.103, 0.98)
pt3dadd(114.037, 67.513, 36.128, 0.98)
pt3dadd(113.965, 67.422, 36.153, 0.982)
pt3dadd(113.893, 67.33, 36.178, 0.982)
pt3dadd(113.821, 67.239, 36.203, 0.982)
pt3dadd(113.749, 67.148, 36.227, 0.984)
pt3dadd(113.676, 67.056, 36.248, 1)
pt3dadd(113.603, 66.964, 36.27, 1.014)
pt3dadd(113.53, 66.873, 36.291, 1.028)
pt3dadd(113.457, 66.781, 36.312, 1.044)
pt3dadd(113.384, 66.689, 36.333, 1.058)
pt3dadd(113.311, 66.597, 36.354, 1.072)
pt3dadd(113.238, 66.506, 36.376, 1.088)
pt3dadd(113.164, 66.414, 36.397, 1.102)
pt3dadd(113.091, 66.322, 36.418, 1.116)
pt3dadd(113.02, 66.23, 36.442, 1.132)
pt3dadd(112.965, 66.137, 36.484, 1.148)
pt3dadd(112.909, 66.043, 36.526, 1.164)
pt3dadd(112.854, 65.949, 36.568, 1.18)
pt3dadd(112.798, 65.856, 36.61, 1.196)
pt3dadd(112.743, 65.762, 36.652, 1.21)
pt3dadd(112.688, 65.668, 36.694, 1.226)
pt3dadd(112.632, 65.574, 36.736, 1.242)
pt3dadd(112.577, 65.481, 36.778, 1.258)
pt3dadd(112.521, 65.387, 36.82, 1.274)
pt3dadd(112.466, 65.293, 36.862, 1.29)
pt3dadd(112.41, 65.2, 36.904, 1.306)
pt3dadd(112.355, 65.106, 36.946, 1.322)
pt3dadd(112.285, 65.023, 36.987, 1.294)
pt3dadd(112.209, 64.943, 37.028, 1.25)
pt3dadd(112.134, 64.863, 37.068, 1.206)
pt3dadd(112.058, 64.783, 37.108, 1.162)
pt3dadd(111.983, 64.704, 37.149, 1.118)
pt3dadd(111.907, 64.624, 37.189, 1.076)
pt3dadd(111.832, 64.544, 37.229, 1.032)
pt3dadd(111.757, 64.464, 37.27, 0.988)
pt3dadd(111.681, 64.384, 37.31, 0.944)
pt3dadd(111.606, 64.305, 37.35, 0.9)
pt3dadd(111.539, 64.222, 37.396, 0.892)
pt3dadd(111.476, 64.138, 37.444, 0.892)
pt3dadd(111.412, 64.054, 37.492, 0.894)
pt3dadd(111.348, 63.97, 37.54, 0.894)
pt3dadd(111.285, 63.886, 37.588, 0.896)
pt3dadd(111.221, 63.802, 37.636, 0.896)
pt3dadd(111.157, 63.718, 37.684, 0.898)
pt3dadd(111.094, 63.634, 37.732, 0.898)
pt3dadd(111.03, 63.551, 37.78, 0.9)
pt3dadd(110.966, 63.467, 37.828, 0.9)
pt3dadd(110.906, 63.378, 37.872, 0.926)
pt3dadd(110.845, 63.288, 37.915, 0.954)
pt3dadd(110.785, 63.198, 37.958, 0.984)
pt3dadd(110.724, 63.108, 38.001, 1.012)
pt3dadd(110.664, 63.018, 38.044, 1.042)
pt3dadd(110.603, 62.928, 38.087, 1.07)
pt3dadd(110.543, 62.838, 38.13, 1.098)
pt3dadd(110.483, 62.749, 38.173, 1.128)
pt3dadd(110.422, 62.659, 38.216, 1.156)
pt3dadd(110.362, 62.569, 38.26, 1.186)
pt3dadd(110.291, 62.477, 38.285, 1.202)
pt3dadd(110.219, 62.386, 38.31, 1.218)
pt3dadd(110.148, 62.294, 38.335, 1.234)
pt3dadd(110.076, 62.202, 38.36, 1.25)
pt3dadd(110.005, 62.11, 38.385, 1.266)
pt3dadd(109.934, 62.019, 38.41, 1.282)
pt3dadd(109.862, 61.927, 38.435, 1.298)
pt3dadd(109.791, 61.835, 38.46, 1.314)
pt3dadd(109.719, 61.744, 38.485, 1.33)
pt3dadd(109.648, 61.652, 38.509, 1.346)
pt3dadd(109.574, 61.56, 38.526, 1.346)
pt3dadd(109.5, 61.467, 38.543, 1.348)
pt3dadd(109.426, 61.375, 38.559, 1.348)
pt3dadd(109.352, 61.282, 38.576, 1.35)
pt3dadd(109.278, 61.19, 38.592, 1.352)
pt3dadd(109.205, 61.098, 38.608, 1.352)
pt3dadd(109.131, 61.005, 38.625, 1.354)
pt3dadd(109.057, 60.913, 38.641, 1.354)
pt3dadd(108.983, 60.82, 38.658, 1.356)
pt3dadd(108.909, 60.728, 38.674, 1.356)
pt3dadd(108.84, 60.631, 38.689, 1.348)
}
}
proc shape3d_116() {
dend_7[5] { pt3dadd(108.772, 60.534, 38.704, 1.34)
pt3dadd(108.703, 60.437, 38.718, 1.332)
pt3dadd(108.635, 60.34, 38.733, 1.326)
pt3dadd(108.566, 60.243, 38.748, 1.318)
pt3dadd(108.498, 60.146, 38.763, 1.31)
pt3dadd(108.429, 60.049, 38.778, 1.302)
pt3dadd(108.361, 59.952, 38.792, 1.294)
pt3dadd(108.292, 59.855, 38.807, 1.286)
pt3dadd(108.224, 59.758, 38.822, 1.278)
pt3dadd(108.159, 59.66, 38.841, 1.26)
pt3dadd(108.094, 59.562, 38.86, 1.242)
pt3dadd(108.03, 59.463, 38.88, 1.224)
pt3dadd(107.965, 59.365, 38.899, 1.204)
pt3dadd(107.9, 59.267, 38.918, 1.186)
pt3dadd(107.835, 59.169, 38.937, 1.168)
pt3dadd(107.77, 59.07, 38.957, 1.15)
pt3dadd(107.706, 58.972, 38.976, 1.13)
pt3dadd(107.641, 58.874, 38.995, 1.112)
pt3dadd(107.574, 58.779, 39.019, 1.094)
pt3dadd(107.496, 58.709, 39.067, 1.076)
pt3dadd(107.418, 58.638, 39.115, 1.06)
pt3dadd(107.34, 58.567, 39.162, 1.042)
pt3dadd(107.262, 58.496, 39.21, 1.024)
pt3dadd(107.183, 58.426, 39.258, 1.006)
pt3dadd(107.105, 58.355, 39.306, 0.99)
pt3dadd(107.027, 58.284, 39.354, 0.972)
pt3dadd(106.949, 58.213, 39.402, 0.954)
pt3dadd(106.871, 58.143, 39.449, 0.936)
pt3dadd(106.796, 58.068, 39.496, 0.934)
pt3dadd(106.739, 57.974, 39.536, 0.998)
pt3dadd(106.682, 57.88, 39.576, 1.064)
pt3dadd(106.624, 57.787, 39.616, 1.13)
pt3dadd(106.567, 57.693, 39.657, 1.196)
pt3dadd(106.509, 57.599, 39.697, 1.262)
pt3dadd(106.452, 57.506, 39.737, 1.326)
pt3dadd(106.395, 57.412, 39.777, 1.392)
pt3dadd(106.337, 57.318, 39.817, 1.458)
pt3dadd(106.28, 57.225, 39.857, 1.524)
pt3dadd(106.218, 57.134, 39.896, 1.57)
pt3dadd(106.133, 57.059, 39.929, 1.524)
pt3dadd(106.047, 56.984, 39.961, 1.478)
pt3dadd(105.962, 56.908, 39.993, 1.432)
pt3dadd(105.877, 56.833, 40.026, 1.388)
pt3dadd(105.792, 56.758, 40.058, 1.342)
pt3dadd(105.707, 56.683, 40.09, 1.296)
pt3dadd(105.622, 56.608, 40.123, 1.25)
pt3dadd(105.537, 56.533, 40.155, 1.204)
pt3dadd(105.452, 56.457, 40.187, 1.158)
pt3dadd(105.375, 56.378, 40.223, 1.118)
pt3dadd(105.329, 56.283, 40.27, 1.098)
pt3dadd(105.284, 56.187, 40.317, 1.078)
pt3dadd(105.239, 56.092, 40.365, 1.06)
pt3dadd(105.193, 55.996, 40.412, 1.04)
pt3dadd(105.148, 55.901, 40.46, 1.02)
pt3dadd(105.102, 55.806, 40.507, 1)
pt3dadd(105.057, 55.71, 40.555, 0.98)
pt3dadd(105.012, 55.615, 40.602, 0.96)
pt3dadd(104.966, 55.519, 40.649, 0.94)
pt3dadd(104.923, 55.422, 40.694, 0.92)
pt3dadd(104.885, 55.317, 40.731, 0.902)
pt3dadd(104.847, 55.211, 40.767, 0.882)
pt3dadd(104.809, 55.106, 40.803, 0.862)
pt3dadd(104.771, 55.001, 40.839, 0.842)
pt3dadd(104.733, 54.896, 40.875, 0.824)
pt3dadd(104.696, 54.79, 40.912, 0.804)
pt3dadd(104.658, 54.685, 40.948, 0.784)
pt3dadd(104.62, 54.58, 40.984, 0.764)
pt3dadd(104.582, 54.474, 41.02, 0.746)
pt3dadd(104.541, 54.37, 41.054, 0.74)
pt3dadd(104.486, 54.267, 41.08, 0.786)
pt3dadd(104.432, 54.165, 41.106, 0.832)
pt3dadd(104.377, 54.063, 41.131, 0.876)
pt3dadd(104.323, 53.96, 41.157, 0.922)
pt3dadd(104.268, 53.858, 41.183, 0.968)
pt3dadd(104.214, 53.755, 41.208, 1.014)
pt3dadd(104.16, 53.653, 41.234, 1.06)
pt3dadd(104.105, 53.551, 41.26, 1.104)
pt3dadd(104.051, 53.448, 41.286, 1.15)
pt3dadd(103.994, 53.349, 41.313, 1.19)
pt3dadd(103.929, 53.256, 41.347, 1.212)
pt3dadd(103.865, 53.163, 41.381, 1.234)
pt3dadd(103.8, 53.07, 41.414, 1.256)
pt3dadd(103.736, 52.977, 41.448, 1.28)
pt3dadd(103.672, 52.884, 41.481, 1.302)
pt3dadd(103.607, 52.791, 41.515, 1.324)
pt3dadd(103.543, 52.698, 41.548, 1.346)
pt3dadd(103.478, 52.605, 41.582, 1.368)
pt3dadd(103.414, 52.512, 41.615, 1.392)
pt3dadd(103.345, 52.425, 41.652, 1.396)
pt3dadd(103.27, 52.344, 41.692, 1.374)
pt3dadd(103.195, 52.264, 41.733, 1.352)
pt3dadd(103.12, 52.184, 41.773, 1.332)
pt3dadd(103.045, 52.104, 41.813, 1.31)
pt3dadd(102.97, 52.024, 41.854, 1.288)
pt3dadd(102.895, 51.944, 41.895, 1.266)
pt3dadd(102.82, 51.864, 41.935, 1.244)
pt3dadd(102.745, 51.784, 41.975, 1.224)
pt3dadd(102.67, 51.704, 42.016, 1.202)
pt3dadd(102.59, 51.625, 42.049, 1.198)
pt3dadd(102.504, 51.547, 42.074, 1.212)
pt3dadd(102.417, 51.469, 42.099, 1.228)
pt3dadd(102.331, 51.39, 42.123, 1.244)
pt3dadd(102.245, 51.312, 42.148, 1.258)
pt3dadd(102.159, 51.234, 42.173, 1.274)
pt3dadd(102.073, 51.156, 42.198, 1.29)
pt3dadd(101.987, 51.078, 42.223, 1.304)
pt3dadd(101.901, 51, 42.248, 1.32)
pt3dadd(101.815, 50.922, 42.273, 1.334)
pt3dadd(101.727, 50.844, 42.291, 1.328)
pt3dadd(101.637, 50.766, 42.304, 1.296)
pt3dadd(101.547, 50.687, 42.316, 1.266)
pt3dadd(101.457, 50.609, 42.328, 1.234)
pt3dadd(101.368, 50.531, 42.341, 1.204)
pt3dadd(101.278, 50.453, 42.353, 1.172)
pt3dadd(101.188, 50.375, 42.366, 1.142)
pt3dadd(101.098, 50.297, 42.378, 1.11)
pt3dadd(101.008, 50.219, 42.39, 1.08)
pt3dadd(100.918, 50.14, 42.403, 1.048)
pt3dadd(100.825, 50.067, 42.414, 1.026)
pt3dadd(100.727, 49.999, 42.423, 1.012)
pt3dadd(100.629, 49.93, 42.432, 1)
pt3dadd(100.531, 49.862, 42.441, 0.988)
pt3dadd(100.433, 49.794, 42.45, 0.974)
pt3dadd(100.335, 49.725, 42.46, 0.962)
pt3dadd(100.236, 49.657, 42.469, 0.948)
pt3dadd(100.138, 49.589, 42.478, 0.936)
pt3dadd(100.041, 49.52, 42.487, 0.922)
pt3dadd(99.942, 49.452, 42.497, 0.91)
pt3dadd(99.843, 49.386, 42.505, 0.908)
pt3dadd(99.741, 49.324, 42.513, 0.916)
pt3dadd(99.639, 49.261, 42.521, 0.922)
pt3dadd(99.537, 49.198, 42.529, 0.93)
pt3dadd(99.436, 49.135, 42.537, 0.936)
pt3dadd(99.334, 49.072, 42.545, 0.944)
pt3dadd(99.232, 49.009, 42.553, 0.952)
pt3dadd(99.13, 48.946, 42.561, 0.958)
pt3dadd(99.029, 48.883, 42.569, 0.966)
pt3dadd(98.927, 48.82, 42.577, 0.972)
pt3dadd(98.828, 48.754, 42.587, 0.994)
pt3dadd(98.731, 48.684, 42.599, 1.026)
pt3dadd(98.635, 48.614, 42.611, 1.058)
pt3dadd(98.538, 48.545, 42.622, 1.092)
pt3dadd(98.441, 48.475, 42.634, 1.124)
pt3dadd(98.345, 48.405, 42.645, 1.156)
pt3dadd(98.248, 48.335, 42.657, 1.188)
pt3dadd(98.151, 48.266, 42.669, 1.222)
pt3dadd(98.055, 48.196, 42.68, 1.254)
pt3dadd(97.958, 48.126, 42.692, 1.286)
pt3dadd(97.872, 48.051, 42.718, 1.272)
pt3dadd(97.794, 47.971, 42.756, 1.216)
pt3dadd(97.717, 47.891, 42.793, 1.162)
pt3dadd(97.64, 47.812, 42.832, 1.106)
pt3dadd(97.563, 47.732, 42.869, 1.05)
pt3dadd(97.486, 47.652, 42.907, 0.996)
pt3dadd(97.409, 47.572, 42.945, 0.94)
pt3dadd(97.332, 47.492, 42.983, 0.886)
pt3dadd(97.254, 47.412, 43.021, 0.83)
pt3dadd(97.177, 47.332, 43.059, 0.774)
pt3dadd(97.092, 47.262, 43.097, 0.75)
pt3dadd(97.003, 47.196, 43.135, 0.742)
pt3dadd(96.913, 47.13, 43.173, 0.736)
pt3dadd(96.824, 47.065, 43.211, 0.728)
pt3dadd(96.734, 46.999, 43.249, 0.72)
pt3dadd(96.645, 46.934, 43.287, 0.714)
pt3dadd(96.555, 46.868, 43.325, 0.706)
pt3dadd(96.466, 46.802, 43.363, 0.698)
pt3dadd(96.376, 46.737, 43.401, 0.692)
pt3dadd(96.286, 46.671, 43.439, 0.684)
pt3dadd(96.183, 46.624, 43.47, 0.714)
pt3dadd(96.076, 46.582, 43.498, 0.752)
pt3dadd(95.969, 46.54, 43.527, 0.792)
pt3dadd(95.862, 46.498, 43.555, 0.832)
pt3dadd(95.755, 46.456, 43.584, 0.872)
pt3dadd(95.648, 46.414, 43.613, 0.912)
pt3dadd(95.541, 46.372, 43.641, 0.95)
pt3dadd(95.434, 46.33, 43.67, 0.99)
pt3dadd(95.327, 46.288, 43.698, 1.03)
pt3dadd(95.22, 46.246, 43.727, 1.07)
pt3dadd(95.107, 46.219, 43.752, 1.092)
pt3dadd(94.993, 46.194, 43.776, 1.11)
pt3dadd(94.88, 46.169, 43.801, 1.128)
pt3dadd(94.766, 46.144, 43.825, 1.148)
pt3dadd(94.652, 46.119, 43.849, 1.166)
pt3dadd(94.539, 46.094, 43.874, 1.186)
pt3dadd(94.425, 46.069, 43.898, 1.204)
pt3dadd(94.311, 46.044, 43.923, 1.222)
pt3dadd(94.198, 46.019, 43.947, 1.242)
pt3dadd(94.084, 45.994, 43.972, 1.26)
pt3dadd(93.972, 45.974, 44.002, 1.232)
pt3dadd(93.86, 45.954, 44.034, 1.198)
pt3dadd(93.748, 45.934, 44.066, 1.164)
pt3dadd(93.636, 45.915, 44.097, 1.13)
pt3dadd(93.523, 45.895, 44.129, 1.096)
pt3dadd(93.411, 45.876, 44.161, 1.062)
pt3dadd(93.299, 45.856, 44.192, 1.026)
pt3dadd(93.187, 45.836, 44.224, 0.992)
pt3dadd(93.075, 45.817, 44.256, 0.958)
pt3dadd(92.963, 45.797, 44.287, 0.924)
pt3dadd(92.857, 45.745, 44.302, 0.946)
pt3dadd(92.752, 45.689, 44.315, 0.976)
}
}
proc shape3d_117() {
dend_7[5] { pt3dadd(92.647, 45.633, 44.329, 1.006)
pt3dadd(92.542, 45.577, 44.342, 1.036)
pt3dadd(92.437, 45.521, 44.355, 1.064)
pt3dadd(92.332, 45.465, 44.368, 1.094)
pt3dadd(92.227, 45.408, 44.381, 1.124)
pt3dadd(92.123, 45.352, 44.394, 1.154)
pt3dadd(92.018, 45.296, 44.407, 1.184)
pt3dadd(91.913, 45.24, 44.42, 1.212)
pt3dadd(91.808, 45.183, 44.411, 1.21)
pt3dadd(91.704, 45.125, 44.401, 1.204)
pt3dadd(91.599, 45.067, 44.39, 1.2)
pt3dadd(91.495, 45.009, 44.38, 1.194)
pt3dadd(91.39, 44.952, 44.369, 1.188)
pt3dadd(91.286, 44.894, 44.359, 1.184)
pt3dadd(91.182, 44.836, 44.348, 1.178)
pt3dadd(91.077, 44.778, 44.338, 1.172)
pt3dadd(90.973, 44.721, 44.327, 1.166)
pt3dadd(90.869, 44.663, 44.315, 1.158)
pt3dadd(90.772, 44.6, 44.289, 1.12)
pt3dadd(90.674, 44.538, 44.263, 1.082)
pt3dadd(90.576, 44.475, 44.236, 1.044)
pt3dadd(90.479, 44.412, 44.21, 1.006)
pt3dadd(90.381, 44.35, 44.184, 0.97)
pt3dadd(90.284, 44.287, 44.158, 0.932)
pt3dadd(90.186, 44.225, 44.132, 0.894)
pt3dadd(90.089, 44.162, 44.106, 0.856)
pt3dadd(89.991, 44.1, 44.08, 0.818)
pt3dadd(89.896, 44.034, 44.054, 0.778)
pt3dadd(89.812, 43.952, 44.033, 0.73)
pt3dadd(89.728, 43.871, 44.011, 0.682)
pt3dadd(89.644, 43.789, 43.989, 0.634)
pt3dadd(89.56, 43.707, 43.967, 0.584)
pt3dadd(89.476, 43.626, 43.946, 0.536)
pt3dadd(89.392, 43.544, 43.924, 0.488)
pt3dadd(89.308, 43.463, 43.902, 0.44)
pt3dadd(89.224, 43.381, 43.881, 0.39)
pt3dadd(89.14, 43.299, 43.859, 0.342)
pt3dadd(89.061, 43.213, 43.839, 0.302)
pt3dadd(89.006, 43.108, 43.827, 0.294)
pt3dadd(88.951, 43.002, 43.815, 0.286)
pt3dadd(88.896, 42.897, 43.803, 0.278)
pt3dadd(88.84, 42.791, 43.792, 0.27)
pt3dadd(88.785, 42.686, 43.78, 0.262)
pt3dadd(88.73, 42.58, 43.768, 0.254)
pt3dadd(88.675, 42.474, 43.756, 0.248)
pt3dadd(88.619, 42.369, 43.744, 0.24)
pt3dadd(88.564, 42.263, 43.732, 0.232)
pt3dadd(88.515, 42.155, 43.723, 0.232)
pt3dadd(88.484, 42.039, 43.721, 0.254)
pt3dadd(88.452, 41.923, 43.719, 0.274)
pt3dadd(88.421, 41.808, 43.716, 0.296)
pt3dadd(88.389, 41.692, 43.714, 0.318)
pt3dadd(88.358, 41.576, 43.712, 0.34)
pt3dadd(88.326, 41.46, 43.71, 0.36)
pt3dadd(88.295, 41.345, 43.708, 0.382)
pt3dadd(88.263, 41.229, 43.705, 0.404)
pt3dadd(88.232, 41.113, 43.703, 0.426)
pt3dadd(88.203, 40.997, 43.703, 0.448)
pt3dadd(88.179, 40.879, 43.708, 0.472)
pt3dadd(88.155, 40.762, 43.712, 0.496)
pt3dadd(88.131, 40.644, 43.716, 0.52)
pt3dadd(88.107, 40.527, 43.72, 0.544)
pt3dadd(88.083, 40.409, 43.724, 0.568)
pt3dadd(88.059, 40.292, 43.729, 0.592)
pt3dadd(88.035, 40.175, 43.733, 0.616)
pt3dadd(88.011, 40.057, 43.737, 0.64)
pt3dadd(87.987, 39.94, 43.741, 0.664)
pt3dadd(87.959, 39.823, 43.746, 0.678)
pt3dadd(87.925, 39.708, 43.754, 0.678)
pt3dadd(87.891, 39.594, 43.76, 0.678)
pt3dadd(87.857, 39.479, 43.767, 0.678)
pt3dadd(87.823, 39.364, 43.774, 0.678)
pt3dadd(87.789, 39.249, 43.781, 0.678)
pt3dadd(87.755, 39.135, 43.788, 0.678)
pt3dadd(87.721, 39.02, 43.795, 0.678)
pt3dadd(87.687, 38.905, 43.802, 0.678)
pt3dadd(87.653, 38.79, 43.809, 0.678)
pt3dadd(87.638, 38.674, 43.818, 0.686)
pt3dadd(87.654, 38.556, 43.83, 0.702)
pt3dadd(87.669, 38.438, 43.841, 0.72)
pt3dadd(87.684, 38.319, 43.853, 0.738)
pt3dadd(87.699, 38.201, 43.865, 0.756)
pt3dadd(87.715, 38.083, 43.877, 0.774)
pt3dadd(87.73, 37.965, 43.889, 0.792)
pt3dadd(87.745, 37.847, 43.901, 0.808)
pt3dadd(87.76, 37.729, 43.913, 0.826)
pt3dadd(87.776, 37.61, 43.925, 0.844)
pt3dadd(87.789, 37.494, 43.944, 0.856)
pt3dadd(87.8, 37.38, 43.975, 0.862)
pt3dadd(87.811, 37.267, 44.006, 0.866)
pt3dadd(87.823, 37.153, 44.037, 0.872)
pt3dadd(87.834, 37.04, 44.068, 0.876)
pt3dadd(87.845, 36.926, 44.099, 0.882)
pt3dadd(87.856, 36.813, 44.13, 0.886)
pt3dadd(87.867, 36.699, 44.161, 0.892)
pt3dadd(87.878, 36.586, 44.192, 0.896)
pt3dadd(87.889, 36.472, 44.223, 0.902)
pt3dadd(87.898, 36.359, 44.255, 0.902)
pt3dadd(87.903, 36.246, 44.289, 0.894)
pt3dadd(87.909, 36.133, 44.323, 0.888)
pt3dadd(87.915, 36.021, 44.357, 0.882)
pt3dadd(87.921, 35.908, 44.39, 0.876)
pt3dadd(87.926, 35.795, 44.424, 0.87)
pt3dadd(87.932, 35.682, 44.458, 0.862)
pt3dadd(87.937, 35.569, 44.492, 0.856)
pt3dadd(87.943, 35.457, 44.526, 0.85)
pt3dadd(87.949, 35.344, 44.56, 0.844)
pt3dadd(87.95, 35.229, 44.589, 0.834)
pt3dadd(87.947, 35.113, 44.614, 0.82)
pt3dadd(87.944, 34.997, 44.64, 0.806)
pt3dadd(87.941, 34.881, 44.665, 0.794)
pt3dadd(87.938, 34.765, 44.69, 0.78)
pt3dadd(87.935, 34.649, 44.716, 0.766)
pt3dadd(87.932, 34.533, 44.741, 0.752)
pt3dadd(87.929, 34.417, 44.767, 0.738)
pt3dadd(87.926, 34.301, 44.792, 0.724)
pt3dadd(87.923, 34.185, 44.817, 0.712)
pt3dadd(87.907, 34.069, 44.837, 0.724)
pt3dadd(87.879, 33.954, 44.852, 0.76)
pt3dadd(87.852, 33.838, 44.867, 0.794)
pt3dadd(87.824, 33.723, 44.882, 0.83)
pt3dadd(87.796, 33.608, 44.897, 0.866)
pt3dadd(87.769, 33.492, 44.912, 0.902)
pt3dadd(87.741, 33.377, 44.927, 0.938)
pt3dadd(87.713, 33.262, 44.942, 0.974)
pt3dadd(87.685, 33.146, 44.956, 1.01)
pt3dadd(87.658, 33.031, 44.971, 1.046)
pt3dadd(87.613, 32.922, 44.983, 1.072)
pt3dadd(87.552, 32.819, 44.993, 1.092)
pt3dadd(87.492, 32.716, 45.003, 1.114)
pt3dadd(87.431, 32.613, 45.012, 1.134)
pt3dadd(87.371, 32.51, 45.022, 1.154)
pt3dadd(87.31, 32.407, 45.032, 1.174)
pt3dadd(87.25, 32.304, 45.041, 1.194)
pt3dadd(87.189, 32.201, 45.051, 1.214)
pt3dadd(87.129, 32.098, 45.061, 1.234)
pt3dadd(87.068, 31.995, 45.07, 1.254)
pt3dadd(86.999, 31.898, 45.08, 1.256)
pt3dadd(86.924, 31.805, 45.091, 1.246)
pt3dadd(86.849, 31.713, 45.101, 1.236)
pt3dadd(86.774, 31.62, 45.111, 1.228)
pt3dadd(86.699, 31.527, 45.122, 1.218)
pt3dadd(86.625, 31.434, 45.132, 1.208)
pt3dadd(86.55, 31.341, 45.142, 1.198)
pt3dadd(86.475, 31.248, 45.153, 1.19)
pt3dadd(86.4, 31.155, 45.163, 1.18)
pt3dadd(86.325, 31.062, 45.174, 1.17)
pt3dadd(86.244, 30.975, 45.186, 1.138)
pt3dadd(86.16, 30.891, 45.199, 1.092)
pt3dadd(86.075, 30.807, 45.212, 1.048)
pt3dadd(85.991, 30.723, 45.225, 1.002)
pt3dadd(85.906, 30.639, 45.239, 0.958)
pt3dadd(85.822, 30.556, 45.252, 0.912)
pt3dadd(85.738, 30.472, 45.265, 0.868)
pt3dadd(85.653, 30.388, 45.278, 0.822)
pt3dadd(85.569, 30.304, 45.291, 0.778)
pt3dadd(85.485, 30.22, 45.304, 0.732)
pt3dadd(85.394, 30.156, 45.337, 0.696)
pt3dadd(85.3, 30.101, 45.38, 0.662)
pt3dadd(85.206, 30.046, 45.422, 0.63)
pt3dadd(85.112, 29.991, 45.464, 0.596)
pt3dadd(85.018, 29.937, 45.507, 0.564)
pt3dadd(84.924, 29.882, 45.549, 0.53)
pt3dadd(84.831, 29.827, 45.591, 0.498)
pt3dadd(84.737, 29.772, 45.634, 0.464)
pt3dadd(84.643, 29.718, 45.676, 0.432)
pt3dadd(84.549, 29.663, 45.719, 0.398)
pt3dadd(84.456, 29.607, 45.761, 0.402)
pt3dadd(84.363, 29.55, 45.803, 0.42)
pt3dadd(84.27, 29.494, 45.845, 0.438)
pt3dadd(84.177, 29.437, 45.888, 0.456)
pt3dadd(84.084, 29.38, 45.93, 0.474)
pt3dadd(83.991, 29.324, 45.972, 0.492)
pt3dadd(83.898, 29.267, 46.014, 0.51)
pt3dadd(83.806, 29.211, 46.057, 0.528)
pt3dadd(83.713, 29.154, 46.099, 0.546)
pt3dadd(83.62, 29.098, 46.141, 0.564)
pt3dadd(83.532, 29.039, 46.189, 0.606)
pt3dadd(83.446, 28.98, 46.238, 0.656)
pt3dadd(83.36, 28.921, 46.287, 0.704)
pt3dadd(83.274, 28.862, 46.337, 0.754)
pt3dadd(83.188, 28.802, 46.386, 0.804)
pt3dadd(83.102, 28.743, 46.435, 0.854)
pt3dadd(83.016, 28.684, 46.485, 0.904)
pt3dadd(82.93, 28.625, 46.534, 0.952)
pt3dadd(82.844, 28.566, 46.583, 1.002)
pt3dadd(82.758, 28.507, 46.633, 1.052)
pt3dadd(82.702, 28.465, 46.714, 1.014)
pt3dadd(82.646, 28.423, 46.795, 0.976)
pt3dadd(82.591, 28.381, 46.877, 0.94)
pt3dadd(82.535, 28.339, 46.958, 0.902)
pt3dadd(82.479, 28.297, 47.039, 0.864)
pt3dadd(82.423, 28.256, 47.121, 0.828)
pt3dadd(82.367, 28.214, 47.202, 0.79)
pt3dadd(82.312, 28.172, 47.284, 0.752)
pt3dadd(82.256, 28.13, 47.365, 0.716)
pt3dadd(82.2, 28.088, 47.446, 0.678)
}
dend_7[6] {pt3dclear()
pt3dadd(122.737, 75.613, 33.148, 2.034)
pt3dadd(122.76, 75.512, 33.168, 1.964)
pt3dadd(122.786, 75.398, 33.19, 1.886)
}
}
proc shape3d_118() {
dend_7[6] { pt3dadd(122.813, 75.284, 33.212, 1.808)
pt3dadd(122.839, 75.17, 33.234, 1.73)
pt3dadd(122.866, 75.056, 33.256, 1.652)
pt3dadd(122.892, 74.942, 33.278, 1.574)
pt3dadd(122.918, 74.828, 33.299, 1.496)
pt3dadd(122.945, 74.714, 33.321, 1.418)
pt3dadd(122.97, 74.6, 33.343, 1.338)
pt3dadd(122.996, 74.486, 33.365, 1.26)
pt3dadd(123.023, 74.371, 33.387, 1.182)
pt3dadd(123.049, 74.257, 33.409, 1.104)
pt3dadd(123.09, 74.146, 33.425, 1.066)
pt3dadd(123.134, 74.036, 33.439, 1.038)
pt3dadd(123.179, 73.926, 33.452, 1.01)
pt3dadd(123.224, 73.816, 33.466, 0.982)
pt3dadd(123.269, 73.706, 33.48, 0.954)
pt3dadd(123.313, 73.596, 33.494, 0.928)
pt3dadd(123.358, 73.486, 33.508, 0.9)
pt3dadd(123.403, 73.375, 33.521, 0.872)
pt3dadd(123.448, 73.265, 33.535, 0.844)
pt3dadd(123.492, 73.155, 33.549, 0.816)
pt3dadd(123.554, 73.053, 33.554, 0.842)
pt3dadd(123.618, 72.951, 33.558, 0.872)
pt3dadd(123.68, 72.849, 33.563, 0.9)
pt3dadd(123.744, 72.747, 33.567, 0.928)
pt3dadd(123.808, 72.645, 33.571, 0.958)
pt3dadd(123.87, 72.544, 33.576, 0.986)
pt3dadd(123.934, 72.442, 33.58, 1.014)
pt3dadd(123.997, 72.34, 33.585, 1.044)
pt3dadd(124.06, 72.238, 33.589, 1.072)
pt3dadd(124.123, 72.136, 33.593, 1.1)
pt3dadd(124.164, 72.024, 33.601, 1.052)
pt3dadd(124.202, 71.91, 33.609, 0.998)
pt3dadd(124.242, 71.797, 33.617, 0.944)
pt3dadd(124.28, 71.684, 33.625, 0.89)
pt3dadd(124.32, 71.571, 33.632, 0.838)
pt3dadd(124.358, 71.458, 33.64, 0.784)
pt3dadd(124.398, 71.345, 33.648, 0.73)
pt3dadd(124.436, 71.232, 33.656, 0.676)
pt3dadd(124.476, 71.119, 33.664, 0.624)
pt3dadd(124.514, 71.006, 33.672, 0.57)
pt3dadd(124.537, 70.889, 33.684, 0.604)
pt3dadd(124.56, 70.772, 33.696, 0.64)
pt3dadd(124.582, 70.655, 33.708, 0.678)
pt3dadd(124.604, 70.538, 33.72, 0.714)
pt3dadd(124.626, 70.421, 33.732, 0.75)
pt3dadd(124.649, 70.304, 33.744, 0.788)
pt3dadd(124.67, 70.187, 33.756, 0.824)
pt3dadd(124.693, 70.07, 33.768, 0.862)
pt3dadd(124.715, 69.953, 33.78, 0.898)
pt3dadd(124.738, 69.836, 33.792, 0.934)
pt3dadd(124.752, 69.728, 33.834, 0.904)
pt3dadd(124.766, 69.62, 33.877, 0.874)
pt3dadd(124.781, 69.513, 33.919, 0.842)
pt3dadd(124.796, 69.405, 33.962, 0.812)
pt3dadd(124.811, 69.297, 34.004, 0.78)
pt3dadd(124.825, 69.189, 34.047, 0.75)
pt3dadd(124.84, 69.082, 34.089, 0.718)
pt3dadd(124.854, 68.974, 34.132, 0.688)
pt3dadd(124.87, 68.866, 34.174, 0.656)
pt3dadd(124.884, 68.758, 34.215, 0.64)
pt3dadd(124.901, 68.648, 34.252, 0.674)
pt3dadd(124.919, 68.538, 34.29, 0.706)
pt3dadd(124.936, 68.428, 34.327, 0.738)
pt3dadd(124.952, 68.318, 34.364, 0.77)
pt3dadd(124.969, 68.208, 34.401, 0.804)
pt3dadd(124.986, 68.098, 34.438, 0.836)
pt3dadd(125.004, 67.988, 34.476, 0.868)
pt3dadd(125.021, 67.878, 34.513, 0.902)
pt3dadd(125.038, 67.768, 34.55, 0.934)
pt3dadd(125.062, 67.657, 34.582, 0.954)
pt3dadd(125.105, 67.547, 34.598, 0.944)
pt3dadd(125.147, 67.437, 34.615, 0.934)
pt3dadd(125.19, 67.326, 34.632, 0.926)
pt3dadd(125.233, 67.216, 34.648, 0.916)
pt3dadd(125.275, 67.106, 34.665, 0.906)
pt3dadd(125.318, 66.996, 34.682, 0.896)
pt3dadd(125.36, 66.885, 34.699, 0.886)
pt3dadd(125.404, 66.775, 34.716, 0.876)
pt3dadd(125.447, 66.665, 34.732, 0.866)
pt3dadd(125.489, 66.553, 34.745, 0.846)
pt3dadd(125.531, 66.441, 34.751, 0.812)
pt3dadd(125.572, 66.329, 34.757, 0.776)
pt3dadd(125.614, 66.217, 34.764, 0.74)
pt3dadd(125.656, 66.104, 34.77, 0.704)
pt3dadd(125.698, 65.992, 34.776, 0.668)
pt3dadd(125.74, 65.88, 34.782, 0.634)
pt3dadd(125.78, 65.768, 34.788, 0.598)
pt3dadd(125.822, 65.655, 34.794, 0.562)
pt3dadd(125.864, 65.543, 34.8, 0.526)
pt3dadd(125.9, 65.429, 34.804, 0.496)
pt3dadd(125.932, 65.313, 34.805, 0.47)
pt3dadd(125.962, 65.197, 34.806, 0.446)
pt3dadd(125.992, 65.081, 34.807, 0.422)
pt3dadd(126.022, 64.965, 34.807, 0.396)
pt3dadd(126.052, 64.848, 34.808, 0.372)
pt3dadd(126.083, 64.732, 34.809, 0.348)
pt3dadd(126.113, 64.616, 34.81, 0.322)
pt3dadd(126.143, 64.5, 34.81, 0.298)
pt3dadd(126.173, 64.384, 34.811, 0.274)
pt3dadd(126.199, 64.267, 34.812, 0.268)
pt3dadd(126.222, 64.149, 34.814, 0.286)
pt3dadd(126.244, 64.031, 34.815, 0.304)
pt3dadd(126.266, 63.913, 34.817, 0.322)
pt3dadd(126.288, 63.795, 34.818, 0.34)
pt3dadd(126.31, 63.677, 34.819, 0.358)
pt3dadd(126.332, 63.559, 34.821, 0.374)
pt3dadd(126.354, 63.441, 34.822, 0.392)
pt3dadd(126.377, 63.324, 34.824, 0.41)
pt3dadd(126.398, 63.206, 34.825, 0.428)
pt3dadd(126.418, 63.087, 34.827, 0.454)
pt3dadd(126.433, 62.968, 34.83, 0.488)
pt3dadd(126.449, 62.849, 34.833, 0.524)
pt3dadd(126.464, 62.73, 34.835, 0.558)
pt3dadd(126.479, 62.611, 34.838, 0.594)
pt3dadd(126.494, 62.492, 34.841, 0.628)
pt3dadd(126.51, 62.373, 34.844, 0.664)
pt3dadd(126.526, 62.255, 34.847, 0.7)
pt3dadd(126.541, 62.136, 34.849, 0.734)
pt3dadd(126.557, 62.017, 34.852, 0.77)
pt3dadd(126.583, 61.9, 34.856, 0.798)
pt3dadd(126.62, 61.787, 34.862, 0.822)
pt3dadd(126.659, 61.673, 34.868, 0.846)
pt3dadd(126.697, 61.56, 34.873, 0.87)
pt3dadd(126.736, 61.446, 34.879, 0.894)
pt3dadd(126.774, 61.332, 34.885, 0.918)
pt3dadd(126.812, 61.219, 34.89, 0.942)
pt3dadd(126.851, 61.105, 34.896, 0.966)
pt3dadd(126.889, 60.992, 34.902, 0.988)
pt3dadd(126.928, 60.878, 34.908, 1.012)
pt3dadd(126.968, 60.766, 34.915, 1.038)
pt3dadd(127.012, 60.655, 34.924, 1.064)
pt3dadd(127.055, 60.543, 34.933, 1.09)
pt3dadd(127.098, 60.432, 34.942, 1.114)
pt3dadd(127.142, 60.321, 34.952, 1.14)
pt3dadd(127.186, 60.209, 34.961, 1.166)
pt3dadd(127.229, 60.098, 34.97, 1.192)
pt3dadd(127.272, 59.987, 34.979, 1.218)
pt3dadd(127.315, 59.875, 34.988, 1.244)
pt3dadd(127.358, 59.764, 34.997, 1.27)
pt3dadd(127.397, 59.652, 35.013, 1.288)
pt3dadd(127.432, 59.54, 35.035, 1.304)
pt3dadd(127.465, 59.428, 35.057, 1.318)
pt3dadd(127.5, 59.316, 35.078, 1.334)
pt3dadd(127.534, 59.204, 35.1, 1.348)
pt3dadd(127.568, 59.092, 35.122, 1.364)
pt3dadd(127.602, 58.98, 35.144, 1.38)
pt3dadd(127.636, 58.868, 35.165, 1.394)
pt3dadd(127.67, 58.756, 35.187, 1.41)
pt3dadd(127.704, 58.644, 35.209, 1.424)
pt3dadd(127.732, 58.539, 35.25, 1.384)
pt3dadd(127.757, 58.437, 35.298, 1.326)
pt3dadd(127.782, 58.335, 35.346, 1.266)
pt3dadd(127.807, 58.232, 35.394, 1.208)
pt3dadd(127.832, 58.13, 35.442, 1.148)
pt3dadd(127.858, 58.028, 35.49, 1.09)
pt3dadd(127.883, 57.926, 35.538, 1.03)
pt3dadd(127.907, 57.824, 35.586, 0.972)
pt3dadd(127.932, 57.721, 35.634, 0.912)
pt3dadd(127.957, 57.619, 35.682, 0.854)
pt3dadd(127.981, 57.508, 35.712, 0.834)
pt3dadd(128.005, 57.394, 35.738, 0.822)
pt3dadd(128.028, 57.281, 35.764, 0.81)
pt3dadd(128.052, 57.167, 35.791, 0.798)
pt3dadd(128.075, 57.054, 35.817, 0.786)
pt3dadd(128.099, 56.94, 35.843, 0.774)
pt3dadd(128.123, 56.827, 35.869, 0.762)
pt3dadd(128.146, 56.714, 35.895, 0.75)
pt3dadd(128.17, 56.6, 35.921, 0.74)
pt3dadd(128.192, 56.487, 35.947, 0.728)
pt3dadd(128.236, 56.376, 35.959, 0.74)
pt3dadd(128.279, 56.265, 35.97, 0.756)
pt3dadd(128.323, 56.154, 35.981, 0.772)
pt3dadd(128.368, 56.043, 35.993, 0.788)
pt3dadd(128.412, 55.933, 36.004, 0.804)
pt3dadd(128.456, 55.822, 36.015, 0.82)
pt3dadd(128.501, 55.711, 36.026, 0.834)
pt3dadd(128.544, 55.6, 36.037, 0.85)
pt3dadd(128.588, 55.49, 36.048, 0.866)
pt3dadd(128.633, 55.379, 36.059, 0.882)
pt3dadd(128.659, 55.262, 36.06, 0.834)
pt3dadd(128.683, 55.144, 36.06, 0.782)
pt3dadd(128.708, 55.027, 36.06, 0.73)
pt3dadd(128.732, 54.909, 36.06, 0.676)
pt3dadd(128.758, 54.792, 36.06, 0.624)
pt3dadd(128.782, 54.675, 36.06, 0.572)
pt3dadd(128.807, 54.557, 36.06, 0.52)
pt3dadd(128.831, 54.44, 36.06, 0.466)
pt3dadd(128.856, 54.322, 36.06, 0.414)
pt3dadd(128.88, 54.205, 36.06, 0.362)
pt3dadd(128.875, 54.085, 36.06, 0.358)
pt3dadd(128.868, 53.966, 36.061, 0.358)
pt3dadd(128.86, 53.846, 36.061, 0.358)
pt3dadd(128.852, 53.726, 36.061, 0.358)
pt3dadd(128.844, 53.606, 36.061, 0.358)
pt3dadd(128.837, 53.487, 36.061, 0.358)
pt3dadd(128.828, 53.367, 36.061, 0.358)
pt3dadd(128.821, 53.247, 36.061, 0.358)
pt3dadd(128.813, 53.127, 36.061, 0.358)
pt3dadd(128.806, 53.007, 36.061, 0.36)
pt3dadd(128.807, 52.887, 36.061, 0.378)
}
}
proc shape3d_119() {
dend_7[6] { pt3dadd(128.807, 52.767, 36.062, 0.396)
pt3dadd(128.808, 52.647, 36.062, 0.412)
pt3dadd(128.809, 52.527, 36.062, 0.43)
pt3dadd(128.81, 52.407, 36.062, 0.448)
pt3dadd(128.81, 52.287, 36.062, 0.466)
pt3dadd(128.812, 52.167, 36.062, 0.484)
pt3dadd(128.813, 52.047, 36.063, 0.502)
pt3dadd(128.813, 51.927, 36.063, 0.52)
pt3dadd(128.819, 51.808, 36.063, 0.536)
pt3dadd(128.842, 51.69, 36.063, 0.548)
pt3dadd(128.864, 51.573, 36.063, 0.558)
pt3dadd(128.888, 51.455, 36.064, 0.57)
pt3dadd(128.911, 51.337, 36.064, 0.582)
pt3dadd(128.935, 51.219, 36.064, 0.592)
pt3dadd(128.958, 51.102, 36.065, 0.604)
pt3dadd(128.981, 50.984, 36.065, 0.614)
pt3dadd(129.005, 50.866, 36.065, 0.626)
pt3dadd(129.028, 50.748, 36.065, 0.636)
pt3dadd(129.052, 50.631, 36.066, 0.642)
pt3dadd(129.078, 50.514, 36.066, 0.624)
pt3dadd(129.104, 50.397, 36.067, 0.608)
pt3dadd(129.131, 50.28, 36.067, 0.59)
pt3dadd(129.157, 50.163, 36.068, 0.572)
pt3dadd(129.184, 50.046, 36.068, 0.554)
pt3dadd(129.21, 49.928, 36.069, 0.536)
pt3dadd(129.235, 49.811, 36.069, 0.52)
pt3dadd(129.262, 49.694, 36.07, 0.502)
pt3dadd(129.288, 49.577, 36.07, 0.484)
pt3dadd(129.316, 49.46, 36.071, 0.466)
pt3dadd(129.346, 49.344, 36.072, 0.45)
pt3dadd(129.377, 49.228, 36.073, 0.432)
pt3dadd(129.407, 49.112, 36.074, 0.414)
pt3dadd(129.438, 48.996, 36.075, 0.396)
pt3dadd(129.468, 48.88, 36.076, 0.38)
pt3dadd(129.499, 48.764, 36.077, 0.362)
pt3dadd(129.529, 48.648, 36.078, 0.344)
pt3dadd(129.56, 48.532, 36.08, 0.326)
pt3dadd(129.59, 48.416, 36.08, 0.31)
pt3dadd(129.624, 48.301, 36.082, 0.298)
pt3dadd(129.67, 48.19, 36.083, 0.31)
pt3dadd(129.714, 48.079, 36.085, 0.324)
pt3dadd(129.76, 47.967, 36.087, 0.336)
pt3dadd(129.804, 47.856, 36.089, 0.35)
pt3dadd(129.85, 47.745, 36.09, 0.362)
pt3dadd(129.895, 47.634, 36.092, 0.376)
pt3dadd(129.94, 47.523, 36.094, 0.388)
pt3dadd(129.985, 47.412, 36.096, 0.402)
pt3dadd(130.03, 47.3, 36.097, 0.416)
pt3dadd(130.076, 47.19, 36.099, 0.434)
pt3dadd(130.129, 47.082, 36.102, 0.466)
pt3dadd(130.182, 46.974, 36.105, 0.5)
pt3dadd(130.234, 46.866, 36.108, 0.534)
pt3dadd(130.286, 46.758, 36.111, 0.566)
pt3dadd(130.339, 46.65, 36.114, 0.6)
pt3dadd(130.391, 46.542, 36.117, 0.634)
pt3dadd(130.444, 46.434, 36.12, 0.668)
pt3dadd(130.495, 46.326, 36.123, 0.7)
pt3dadd(130.548, 46.219, 36.126, 0.734)
pt3dadd(130.6, 46.11, 36.129, 0.768)
pt3dadd(130.646, 46, 36.135, 0.802)
pt3dadd(130.693, 45.89, 36.141, 0.838)
pt3dadd(130.741, 45.78, 36.146, 0.874)
pt3dadd(130.788, 45.67, 36.152, 0.908)
pt3dadd(130.836, 45.56, 36.158, 0.944)
pt3dadd(130.883, 45.45, 36.163, 0.98)
pt3dadd(130.93, 45.339, 36.169, 1.014)
pt3dadd(130.978, 45.229, 36.175, 1.05)
pt3dadd(131.024, 45.119, 36.18, 1.086)
pt3dadd(131.076, 45.012, 36.187, 1.112)
pt3dadd(131.142, 44.912, 36.195, 1.114)
pt3dadd(131.208, 44.812, 36.203, 1.116)
pt3dadd(131.274, 44.712, 36.212, 1.118)
pt3dadd(131.34, 44.613, 36.22, 1.12)
pt3dadd(131.406, 44.513, 36.229, 1.122)
pt3dadd(131.472, 44.413, 36.237, 1.124)
pt3dadd(131.538, 44.313, 36.245, 1.126)
pt3dadd(131.604, 44.214, 36.254, 1.126)
pt3dadd(131.67, 44.114, 36.262, 1.128)
pt3dadd(131.735, 44.015, 36.276, 1.13)
pt3dadd(131.798, 43.92, 36.305, 1.13)
pt3dadd(131.862, 43.824, 36.334, 1.13)
pt3dadd(131.926, 43.728, 36.363, 1.13)
pt3dadd(131.989, 43.633, 36.392, 1.13)
pt3dadd(132.053, 43.537, 36.421, 1.13)
pt3dadd(132.116, 43.441, 36.45, 1.13)
pt3dadd(132.18, 43.346, 36.479, 1.13)
pt3dadd(132.244, 43.25, 36.509, 1.13)
pt3dadd(132.306, 43.155, 36.538, 1.13)
pt3dadd(132.372, 43.06, 36.566, 1.13)
pt3dadd(132.44, 42.966, 36.592, 1.13)
pt3dadd(132.508, 42.873, 36.619, 1.13)
pt3dadd(132.576, 42.779, 36.645, 1.13)
pt3dadd(132.644, 42.685, 36.672, 1.13)
pt3dadd(132.712, 42.592, 36.698, 1.13)
pt3dadd(132.78, 42.498, 36.725, 1.13)
pt3dadd(132.848, 42.405, 36.751, 1.13)
pt3dadd(132.917, 42.311, 36.778, 1.13)
pt3dadd(132.984, 42.217, 36.804, 1.13)
pt3dadd(133.05, 42.12, 36.817, 1.13)
pt3dadd(133.115, 42.018, 36.817, 1.13)
pt3dadd(133.178, 41.917, 36.816, 1.13)
pt3dadd(133.242, 41.815, 36.816, 1.13)
pt3dadd(133.306, 41.714, 36.816, 1.13)
pt3dadd(133.37, 41.612, 36.815, 1.13)
pt3dadd(133.434, 41.511, 36.815, 1.13)
pt3dadd(133.498, 41.409, 36.815, 1.13)
pt3dadd(133.562, 41.307, 36.814, 1.13)
pt3dadd(133.626, 41.206, 36.814, 1.13)
pt3dadd(133.675, 41.1, 36.794, 1.128)
pt3dadd(133.721, 40.993, 36.769, 1.126)
pt3dadd(133.766, 40.887, 36.744, 1.126)
pt3dadd(133.812, 40.78, 36.719, 1.124)
pt3dadd(133.858, 40.673, 36.694, 1.122)
pt3dadd(133.903, 40.566, 36.669, 1.12)
pt3dadd(133.949, 40.459, 36.644, 1.118)
pt3dadd(133.994, 40.352, 36.619, 1.116)
pt3dadd(134.04, 40.245, 36.594, 1.114)
pt3dadd(134.086, 40.139, 36.569, 1.114)
pt3dadd(134.14, 40.033, 36.552, 1.1)
pt3dadd(134.194, 39.928, 36.536, 1.084)
pt3dadd(134.249, 39.823, 36.521, 1.068)
pt3dadd(134.304, 39.718, 36.505, 1.054)
pt3dadd(134.359, 39.613, 36.49, 1.038)
pt3dadd(134.413, 39.508, 36.474, 1.022)
pt3dadd(134.468, 39.402, 36.459, 1.006)
pt3dadd(134.524, 39.297, 36.444, 0.99)
pt3dadd(134.578, 39.192, 36.428, 0.974)
pt3dadd(134.633, 39.087, 36.413, 0.96)
pt3dadd(134.676, 38.976, 36.406, 0.962)
pt3dadd(134.714, 38.862, 36.401, 0.968)
pt3dadd(134.754, 38.749, 36.396, 0.974)
pt3dadd(134.794, 38.636, 36.391, 0.98)
pt3dadd(134.833, 38.523, 36.386, 0.986)
pt3dadd(134.873, 38.41, 36.382, 0.992)
pt3dadd(134.912, 38.297, 36.377, 1)
pt3dadd(134.952, 38.184, 36.372, 1.006)
pt3dadd(134.992, 38.07, 36.367, 1.012)
pt3dadd(135.031, 37.957, 36.362, 1.018)
pt3dadd(135.06, 37.842, 36.374, 1.024)
pt3dadd(135.088, 37.726, 36.388, 1.028)
pt3dadd(135.114, 37.61, 36.401, 1.034)
pt3dadd(135.142, 37.495, 36.415, 1.04)
pt3dadd(135.168, 37.379, 36.429, 1.046)
pt3dadd(135.196, 37.263, 36.442, 1.05)
pt3dadd(135.222, 37.147, 36.456, 1.056)
pt3dadd(135.25, 37.032, 36.47, 1.062)
pt3dadd(135.277, 36.916, 36.483, 1.066)
pt3dadd(135.304, 36.8, 36.498, 1.07)
pt3dadd(135.322, 36.69, 36.535, 1.054)
pt3dadd(135.34, 36.58, 36.572, 1.038)
pt3dadd(135.356, 36.47, 36.609, 1.022)
pt3dadd(135.374, 36.36, 36.645, 1.006)
pt3dadd(135.392, 36.25, 36.682, 0.988)
pt3dadd(135.41, 36.14, 36.719, 0.972)
pt3dadd(135.428, 36.03, 36.756, 0.956)
pt3dadd(135.446, 35.919, 36.793, 0.94)
pt3dadd(135.464, 35.809, 36.83, 0.924)
pt3dadd(135.482, 35.699, 36.866, 0.908)
pt3dadd(135.496, 35.583, 36.89, 0.926)
pt3dadd(135.509, 35.468, 36.914, 0.942)
pt3dadd(135.522, 35.352, 36.938, 0.958)
pt3dadd(135.535, 35.236, 36.963, 0.974)
pt3dadd(135.55, 35.121, 36.987, 0.992)
pt3dadd(135.563, 35.005, 37.011, 1.008)
pt3dadd(135.576, 34.889, 37.035, 1.024)
pt3dadd(135.589, 34.774, 37.06, 1.04)
pt3dadd(135.602, 34.658, 37.084, 1.056)
pt3dadd(135.617, 34.542, 37.108, 1.072)
pt3dadd(135.638, 34.426, 37.123, 1.066)
pt3dadd(135.66, 34.309, 37.139, 1.06)
pt3dadd(135.682, 34.193, 37.154, 1.054)
pt3dadd(135.704, 34.076, 37.169, 1.048)
pt3dadd(135.726, 33.96, 37.185, 1.044)
pt3dadd(135.748, 33.843, 37.2, 1.038)
pt3dadd(135.769, 33.727, 37.216, 1.032)
pt3dadd(135.791, 33.61, 37.231, 1.026)
pt3dadd(135.812, 33.494, 37.247, 1.02)
pt3dadd(135.836, 33.377, 37.261, 1.014)
pt3dadd(135.876, 33.264, 37.269, 0.996)
pt3dadd(135.916, 33.151, 37.276, 0.98)
pt3dadd(135.955, 33.038, 37.283, 0.962)
pt3dadd(135.995, 32.925, 37.291, 0.946)
pt3dadd(136.033, 32.812, 37.298, 0.93)
pt3dadd(136.073, 32.7, 37.306, 0.912)
pt3dadd(136.112, 32.587, 37.313, 0.896)
pt3dadd(136.152, 32.474, 37.32, 0.878)
pt3dadd(136.192, 32.361, 37.328, 0.862)
pt3dadd(136.236, 32.25, 37.333, 0.846)
pt3dadd(136.298, 32.147, 37.334, 0.83)
pt3dadd(136.361, 32.044, 37.335, 0.814)
pt3dadd(136.422, 31.942, 37.335, 0.8)
pt3dadd(136.484, 31.839, 37.336, 0.784)
pt3dadd(136.547, 31.736, 37.336, 0.77)
pt3dadd(136.608, 31.634, 37.337, 0.754)
pt3dadd(136.67, 31.531, 37.337, 0.738)
pt3dadd(136.733, 31.428, 37.338, 0.724)
pt3dadd(136.794, 31.325, 37.338, 0.708)
pt3dadd(136.859, 31.224, 37.339, 0.696)
pt3dadd(136.932, 31.129, 37.34, 0.694)
pt3dadd(137.005, 31.034, 37.341, 0.692)
}
}
proc shape3d_120() {
dend_7[6] { pt3dadd(137.078, 30.939, 37.342, 0.69)
pt3dadd(137.152, 30.844, 37.343, 0.688)
pt3dadd(137.226, 30.749, 37.344, 0.686)
pt3dadd(137.299, 30.654, 37.345, 0.684)
pt3dadd(137.372, 30.559, 37.346, 0.682)
pt3dadd(137.446, 30.464, 37.347, 0.682)
pt3dadd(137.519, 30.369, 37.348, 0.68)
pt3dadd(137.592, 30.275, 37.349, 0.676)
pt3dadd(137.668, 30.181, 37.351, 0.668)
pt3dadd(137.743, 30.088, 37.352, 0.662)
pt3dadd(137.819, 29.994, 37.354, 0.654)
pt3dadd(137.893, 29.901, 37.355, 0.648)
pt3dadd(137.969, 29.808, 37.356, 0.64)
pt3dadd(138.044, 29.714, 37.358, 0.632)
pt3dadd(138.12, 29.621, 37.359, 0.626)
pt3dadd(138.196, 29.528, 37.361, 0.618)
pt3dadd(138.27, 29.434, 37.362, 0.61)
pt3dadd(138.346, 29.341, 37.364, 0.598)
pt3dadd(138.424, 29.249, 37.366, 0.572)
pt3dadd(138.5, 29.157, 37.368, 0.544)
pt3dadd(138.577, 29.065, 37.37, 0.516)
pt3dadd(138.654, 28.973, 37.372, 0.49)
pt3dadd(138.731, 28.881, 37.375, 0.462)
pt3dadd(138.808, 28.789, 37.377, 0.434)
pt3dadd(138.884, 28.697, 37.379, 0.408)
pt3dadd(138.961, 28.605, 37.381, 0.38)
pt3dadd(139.039, 28.513, 37.383, 0.352)
pt3dadd(139.112, 28.418, 37.386, 0.33)
pt3dadd(139.175, 28.316, 37.391, 0.33)
pt3dadd(139.237, 28.214, 37.396, 0.33)
pt3dadd(139.3, 28.111, 37.4, 0.33)
pt3dadd(139.362, 28.009, 37.405, 0.328)
pt3dadd(139.424, 27.907, 37.41, 0.328)
pt3dadd(139.487, 27.804, 37.414, 0.328)
pt3dadd(139.549, 27.702, 37.419, 0.326)
pt3dadd(139.612, 27.6, 37.424, 0.326)
pt3dadd(139.675, 27.498, 37.429, 0.324)
pt3dadd(139.734, 27.394, 37.434, 0.33)
pt3dadd(139.788, 27.287, 37.441, 0.35)
pt3dadd(139.842, 27.18, 37.448, 0.368)
pt3dadd(139.896, 27.073, 37.455, 0.388)
pt3dadd(139.95, 26.966, 37.463, 0.406)
pt3dadd(140.003, 26.859, 37.47, 0.426)
pt3dadd(140.057, 26.752, 37.477, 0.444)
pt3dadd(140.111, 26.645, 37.484, 0.464)
pt3dadd(140.165, 26.538, 37.491, 0.484)
pt3dadd(140.219, 26.432, 37.498, 0.502)
pt3dadd(140.273, 26.325, 37.506, 0.526)
pt3dadd(140.33, 26.22, 37.516, 0.556)
pt3dadd(140.388, 26.116, 37.526, 0.588)
pt3dadd(140.446, 26.011, 37.536, 0.618)
pt3dadd(140.502, 25.906, 37.547, 0.65)
pt3dadd(140.56, 25.801, 37.557, 0.682)
pt3dadd(140.617, 25.697, 37.567, 0.712)
pt3dadd(140.674, 25.592, 37.577, 0.744)
pt3dadd(140.731, 25.487, 37.587, 0.774)
pt3dadd(140.789, 25.382, 37.597, 0.806)
pt3dadd(140.84, 25.277, 37.613, 0.838)
pt3dadd(140.882, 25.17, 37.643, 0.87)
pt3dadd(140.923, 25.063, 37.673, 0.902)
pt3dadd(140.964, 24.956, 37.702, 0.934)
pt3dadd(141.005, 24.849, 37.732, 0.966)
pt3dadd(141.046, 24.742, 37.761, 0.996)
pt3dadd(141.088, 24.635, 37.791, 1.028)
pt3dadd(141.128, 24.528, 37.82, 1.06)
pt3dadd(141.169, 24.421, 37.85, 1.092)
pt3dadd(141.21, 24.314, 37.88, 1.124)
pt3dadd(141.248, 24.206, 37.91, 1.142)
pt3dadd(141.281, 24.097, 37.942, 1.134)
pt3dadd(141.314, 23.988, 37.973, 1.128)
pt3dadd(141.348, 23.879, 38.005, 1.12)
pt3dadd(141.38, 23.77, 38.036, 1.114)
pt3dadd(141.414, 23.661, 38.068, 1.108)
pt3dadd(141.448, 23.552, 38.099, 1.1)
pt3dadd(141.48, 23.443, 38.131, 1.094)
pt3dadd(141.514, 23.334, 38.162, 1.086)
pt3dadd(141.547, 23.225, 38.194, 1.08)
pt3dadd(141.578, 23.115, 38.222, 1.04)
pt3dadd(141.607, 23.002, 38.245, 0.956)
pt3dadd(141.636, 22.888, 38.268, 0.872)
pt3dadd(141.665, 22.775, 38.291, 0.788)
pt3dadd(141.694, 22.662, 38.315, 0.704)
pt3dadd(141.721, 22.549, 38.338, 0.618)
pt3dadd(141.75, 22.436, 38.361, 0.534)
pt3dadd(141.779, 22.323, 38.384, 0.45)
pt3dadd(141.808, 22.21, 38.407, 0.366)
pt3dadd(141.836, 22.096, 38.431, 0.28)
pt3dadd(141.875, 21.985, 38.448, 0.244)
pt3dadd(141.925, 21.877, 38.458, 0.276)
pt3dadd(141.976, 21.769, 38.468, 0.308)
pt3dadd(142.026, 21.661, 38.478, 0.34)
pt3dadd(142.076, 21.553, 38.488, 0.372)
pt3dadd(142.127, 21.444, 38.498, 0.402)
pt3dadd(142.177, 21.336, 38.508, 0.434)
pt3dadd(142.228, 21.228, 38.517, 0.466)
pt3dadd(142.278, 21.12, 38.527, 0.498)
pt3dadd(142.328, 21.012, 38.537, 0.53)
pt3dadd(142.376, 20.902, 38.545, 0.554)
pt3dadd(142.421, 20.791, 38.548, 0.566)
pt3dadd(142.466, 20.679, 38.552, 0.58)
pt3dadd(142.511, 20.568, 38.555, 0.592)
pt3dadd(142.555, 20.457, 38.559, 0.606)
pt3dadd(142.6, 20.345, 38.563, 0.618)
pt3dadd(142.644, 20.234, 38.566, 0.632)
pt3dadd(142.688, 20.123, 38.57, 0.644)
pt3dadd(142.733, 20.011, 38.573, 0.658)
pt3dadd(142.777, 19.9, 38.577, 0.67)
pt3dadd(142.822, 19.788, 38.578, 0.674)
pt3dadd(142.866, 19.677, 38.578, 0.666)
pt3dadd(142.909, 19.565, 38.577, 0.656)
pt3dadd(142.954, 19.453, 38.576, 0.648)
pt3dadd(142.998, 19.342, 38.575, 0.638)
pt3dadd(143.041, 19.23, 38.574, 0.63)
pt3dadd(143.086, 19.119, 38.574, 0.62)
pt3dadd(143.13, 19.007, 38.573, 0.612)
pt3dadd(143.173, 18.895, 38.572, 0.602)
pt3dadd(143.218, 18.784, 38.571, 0.594)
pt3dadd(143.266, 18.674, 38.57, 0.574)
pt3dadd(143.32, 18.567, 38.569, 0.54)
pt3dadd(143.374, 18.459, 38.567, 0.508)
pt3dadd(143.426, 18.352, 38.566, 0.476)
pt3dadd(143.48, 18.245, 38.565, 0.442)
pt3dadd(143.534, 18.137, 38.563, 0.41)
pt3dadd(143.587, 18.03, 38.562, 0.376)
pt3dadd(143.641, 17.923, 38.561, 0.344)
pt3dadd(143.695, 17.815, 38.56, 0.31)
pt3dadd(143.749, 17.708, 38.558, 0.278)
pt3dadd(143.79, 17.596, 38.556, 0.266)
pt3dadd(143.818, 17.479, 38.553, 0.28)
pt3dadd(143.845, 17.363, 38.55, 0.292)
pt3dadd(143.872, 17.246, 38.547, 0.306)
pt3dadd(143.899, 17.129, 38.545, 0.32)
pt3dadd(143.927, 17.012, 38.542, 0.332)
pt3dadd(143.953, 16.895, 38.539, 0.346)
pt3dadd(143.981, 16.779, 38.536, 0.36)
pt3dadd(144.008, 16.662, 38.533, 0.372)
pt3dadd(144.035, 16.545, 38.53, 0.386)
pt3dadd(144.053, 16.427, 38.525, 0.402)
pt3dadd(144.059, 16.307, 38.519, 0.422)
pt3dadd(144.066, 16.188, 38.512, 0.442)
pt3dadd(144.072, 16.068, 38.506, 0.462)
pt3dadd(144.079, 15.948, 38.499, 0.482)
pt3dadd(144.085, 15.829, 38.492, 0.502)
pt3dadd(144.092, 15.709, 38.486, 0.522)
pt3dadd(144.098, 15.59, 38.479, 0.542)
pt3dadd(144.106, 15.47, 38.472, 0.562)
pt3dadd(144.112, 15.351, 38.466, 0.582)
pt3dadd(144.103, 15.233, 38.456, 0.582)
pt3dadd(144.082, 15.116, 38.444, 0.564)
pt3dadd(144.059, 14.999, 38.431, 0.546)
pt3dadd(144.037, 14.882, 38.419, 0.528)
pt3dadd(144.014, 14.765, 38.406, 0.51)
pt3dadd(143.993, 14.648, 38.394, 0.492)
pt3dadd(143.971, 14.531, 38.381, 0.474)
pt3dadd(143.948, 14.414, 38.369, 0.456)
pt3dadd(143.927, 14.297, 38.356, 0.438)
pt3dadd(143.904, 14.18, 38.344, 0.42)
pt3dadd(143.948, 14.08, 38.343, 0.444)
pt3dadd(144.028, 13.99, 38.349, 0.492)
pt3dadd(144.107, 13.9, 38.355, 0.538)
pt3dadd(144.185, 13.81, 38.361, 0.586)
pt3dadd(144.264, 13.72, 38.367, 0.632)
pt3dadd(144.343, 13.63, 38.372, 0.68)
pt3dadd(144.422, 13.54, 38.378, 0.726)
pt3dadd(144.502, 13.45, 38.384, 0.774)
pt3dadd(144.58, 13.359, 38.39, 0.82)
pt3dadd(144.659, 13.269, 38.396, 0.868)
pt3dadd(144.727, 13.174, 38.403, 0.902)
pt3dadd(144.757, 13.059, 38.416, 0.892)
pt3dadd(144.788, 12.944, 38.429, 0.882)
pt3dadd(144.818, 12.829, 38.441, 0.874)
pt3dadd(144.85, 12.714, 38.454, 0.864)
pt3dadd(144.881, 12.599, 38.467, 0.854)
pt3dadd(144.962, 12.512, 38.474, 0.876)
pt3dadd(145.044, 12.424, 38.481, 0.896)
pt3dadd(145.127, 12.337, 38.488, 0.918)
pt3dadd(145.208, 12.25, 38.495, 0.938)
pt3dadd(145.279, 12.155, 38.5, 0.96)
pt3dadd(145.32, 12.043, 38.5, 0.984)
pt3dadd(145.362, 11.93, 38.5, 1.006)
pt3dadd(145.403, 11.817, 38.5, 1.03)
pt3dadd(145.445, 11.705, 38.5, 1.052)
pt3dadd(145.486, 11.592, 38.5, 1.076)
pt3dadd(145.528, 11.48, 38.5, 1.092)
pt3dadd(145.57, 11.367, 38.5, 1.106)
pt3dadd(145.61, 11.255, 38.5, 1.118)
pt3dadd(145.652, 11.142, 38.5, 1.132)
pt3dadd(145.694, 11.029, 38.5, 1.146)
pt3dadd(145.741, 10.921, 38.508, 1.15)
pt3dadd(145.796, 10.818, 38.53, 1.14)
pt3dadd(145.853, 10.715, 38.552, 1.128)
pt3dadd(145.908, 10.612, 38.575, 1.118)
pt3dadd(145.964, 10.509, 38.597, 1.106)
pt3dadd(146.008, 10.402, 38.625, 1.092)
pt3dadd(146.048, 10.295, 38.654, 1.074)
pt3dadd(146.089, 10.188, 38.683, 1.058)
pt3dadd(146.13, 10.08, 38.712, 1.042)
pt3dadd(146.166, 9.975, 38.746, 1.028)
pt3dadd(146.19, 9.875, 38.798, 1.022)
pt3dadd(146.213, 9.774, 38.849, 1.016)
}
}
proc shape3d_121() {
dend_7[6] { pt3dadd(146.237, 9.674, 38.901, 1.012)
pt3dadd(146.261, 9.574, 38.952, 1.006)
pt3dadd(146.308, 9.472, 38.983, 1.004)
pt3dadd(146.363, 9.369, 39.005, 1.004)
pt3dadd(146.419, 9.267, 39.027, 1.004)
pt3dadd(146.474, 9.164, 39.049, 1.004)
pt3dadd(146.53, 9.06, 39.068, 1.002)
pt3dadd(146.58, 8.951, 39.075, 0.992)
pt3dadd(146.63, 8.842, 39.081, 0.982)
pt3dadd(146.681, 8.734, 39.088, 0.972)
pt3dadd(146.731, 8.625, 39.094, 0.962)
pt3dadd(146.779, 8.516, 39.1, 0.944)
pt3dadd(146.819, 8.402, 39.1, 0.88)
pt3dadd(146.858, 8.289, 39.1, 0.816)
pt3dadd(146.87, 8.171, 39.103, 0.768)
pt3dadd(146.875, 8.051, 39.107, 0.722)
pt3dadd(146.881, 7.932, 39.112, 0.678)
pt3dadd(146.933, 7.836, 39.155, 0.636)
pt3dadd(146.99, 7.746, 39.198, 0.608)
pt3dadd(147.073, 7.678, 39.242, 0.638)
pt3dadd(147.149, 7.597, 39.278, 0.67)
pt3dadd(147.209, 7.5, 39.307, 0.706)
pt3dadd(147.251, 7.397, 39.345, 0.716)
pt3dadd(147.293, 7.294, 39.383, 0.728)
pt3dadd(147.335, 7.192, 39.421, 0.74)
pt3dadd(147.377, 7.089, 39.458, 0.75)
pt3dadd(147.407, 6.977, 39.482, 0.754)
pt3dadd(147.433, 6.862, 39.502, 0.754)
pt3dadd(147.458, 6.747, 39.521, 0.754)
pt3dadd(147.485, 6.632, 39.541, 0.754)
pt3dadd(147.511, 6.518, 39.56, 0.754)
pt3dadd(147.56, 6.412, 39.578, 0.754)
pt3dadd(147.622, 6.31, 39.595, 0.754)
pt3dadd(147.662, 6.199, 39.6, 0.754)
pt3dadd(147.696, 6.084, 39.6, 0.754)
pt3dadd(147.72, 5.972, 39.614, 0.746)
pt3dadd(147.72, 5.868, 39.664, 0.724)
pt3dadd(147.721, 5.769, 39.718, 0.7)
pt3dadd(147.742, 5.716, 39.806, 0.662)
pt3dadd(147.763, 5.661, 39.891, 0.626)
pt3dadd(147.826, 5.568, 39.928, 0.592)
pt3dadd(147.888, 5.475, 39.965, 0.56)
pt3dadd(147.949, 5.381, 40, 0.526)
pt3dadd(147.989, 5.268, 40, 0.504)
pt3dadd(148.028, 5.155, 40, 0.484)
pt3dadd(148.063, 5.04, 40, 0.478)
pt3dadd(148.117, 4.933, 40, 0.486)
pt3dadd(148.174, 4.827, 40, 0.496)
pt3dadd(148.23, 4.722, 40, 0.506)
pt3dadd(148.286, 4.616, 40, 0.514)
pt3dadd(148.344, 4.51, 40, 0.524)
pt3dadd(148.387, 4.401, 40.015, 0.53)
pt3dadd(148.427, 4.29, 40.036, 0.536)
pt3dadd(148.465, 4.179, 40.056, 0.542)
pt3dadd(148.504, 4.068, 40.077, 0.546)
pt3dadd(148.543, 3.958, 40.098, 0.552)
pt3dadd(148.567, 3.84, 40.1, 0.552)
pt3dadd(148.589, 3.723, 40.1, 0.552)
pt3dadd(148.612, 3.605, 40.1, 0.552)
pt3dadd(148.633, 3.487, 40.1, 0.552)
pt3dadd(148.656, 3.369, 40.1, 0.552)
pt3dadd(148.678, 3.251, 40.1, 0.552)
pt3dadd(148.696, 3.132, 40.1, 0.552)
pt3dadd(148.712, 3.013, 40.1, 0.552)
pt3dadd(148.73, 2.895, 40.1, 0.552)
pt3dadd(148.747, 2.776, 40.1, 0.552)
pt3dadd(148.765, 2.657, 40.1, 0.552)
pt3dadd(148.782, 2.538, 40.1, 0.552)
pt3dadd(148.811, 2.422, 40.1, 0.566)
pt3dadd(148.843, 2.307, 40.1, 0.584)
pt3dadd(148.877, 2.191, 40.1, 0.6)
pt3dadd(148.909, 2.076, 40.1, 0.618)
pt3dadd(148.943, 1.96, 40.1, 0.636)
pt3dadd(148.98, 1.848, 40.1, 0.668)
pt3dadd(149.074, 1.773, 40.1, 0.866)
pt3dadd(149.155, 1.686, 40.1, 0.998)
pt3dadd(149.214, 1.582, 40.1, 0.998)
pt3dadd(149.293, 1.493, 40.1, 0.904)
pt3dadd(149.4, 1.44, 40.1, 0.678)
}
dend_7[7] {pt3dclear()
pt3dadd(128.432, 89.794, 28.846, 2.26)
pt3dadd(128.37, 89.81, 28.835, 2.248)
pt3dadd(128.256, 89.838, 28.816, 2.224)
pt3dadd(128.142, 89.866, 28.796, 2.2)
pt3dadd(128.028, 89.894, 28.776, 2.176)
pt3dadd(127.913, 89.922, 28.757, 2.154)
pt3dadd(127.799, 89.951, 28.737, 2.13)
pt3dadd(127.685, 89.979, 28.717, 2.106)
pt3dadd(127.571, 90.007, 28.698, 2.084)
pt3dadd(127.457, 90.035, 28.678, 2.06)
pt3dadd(127.342, 90.063, 28.659, 2.036)
pt3dadd(127.228, 90.092, 28.639, 2.012)
pt3dadd(127.114, 90.12, 28.619, 1.99)
pt3dadd(127, 90.148, 28.6, 1.966)
pt3dadd(126.886, 90.176, 28.58, 1.942)
pt3dadd(126.77, 90.204, 28.561, 1.918)
pt3dadd(126.656, 90.233, 28.541, 1.896)
pt3dadd(126.54, 90.248, 28.526, 1.85)
pt3dadd(126.42, 90.246, 28.518, 1.776)
pt3dadd(126.301, 90.245, 28.51, 1.702)
pt3dadd(126.181, 90.243, 28.502, 1.628)
pt3dadd(126.061, 90.241, 28.495, 1.554)
pt3dadd(125.942, 90.24, 28.487, 1.48)
pt3dadd(125.822, 90.238, 28.479, 1.406)
pt3dadd(125.702, 90.236, 28.471, 1.33)
pt3dadd(125.584, 90.235, 28.463, 1.256)
pt3dadd(125.464, 90.233, 28.455, 1.182)
pt3dadd(125.345, 90.222, 28.45, 1.118)
pt3dadd(125.226, 90.206, 28.448, 1.058)
pt3dadd(125.107, 90.19, 28.445, 0.998)
pt3dadd(124.987, 90.174, 28.443, 0.938)
pt3dadd(124.868, 90.158, 28.44, 0.88)
pt3dadd(124.75, 90.141, 28.438, 0.82)
pt3dadd(124.631, 90.125, 28.435, 0.76)
pt3dadd(124.512, 90.109, 28.433, 0.702)
pt3dadd(124.393, 90.093, 28.43, 0.642)
pt3dadd(124.274, 90.076, 28.427, 0.582)
pt3dadd(124.157, 90.056, 28.424, 0.578)
pt3dadd(124.039, 90.034, 28.421, 0.614)
pt3dadd(123.92, 90.011, 28.417, 0.648)
pt3dadd(123.803, 89.989, 28.413, 0.682)
pt3dadd(123.685, 89.966, 28.41, 0.718)
pt3dadd(123.568, 89.944, 28.406, 0.752)
pt3dadd(123.45, 89.921, 28.403, 0.788)
pt3dadd(123.332, 89.899, 28.399, 0.822)
pt3dadd(123.214, 89.876, 28.395, 0.856)
pt3dadd(123.096, 89.854, 28.392, 0.892)
pt3dadd(122.984, 89.814, 28.386, 0.904)
pt3dadd(122.875, 89.765, 28.38, 0.904)
pt3dadd(122.765, 89.716, 28.373, 0.904)
pt3dadd(122.656, 89.668, 28.367, 0.904)
pt3dadd(122.546, 89.619, 28.361, 0.904)
pt3dadd(122.437, 89.57, 28.354, 0.904)
pt3dadd(122.328, 89.521, 28.348, 0.904)
pt3dadd(122.219, 89.472, 28.341, 0.904)
pt3dadd(122.11, 89.423, 28.335, 0.904)
pt3dadd(122, 89.374, 28.329, 0.904)
pt3dadd(121.89, 89.329, 28.32, 0.904)
pt3dadd(121.777, 89.287, 28.31, 0.904)
pt3dadd(121.666, 89.245, 28.3, 0.904)
pt3dadd(121.554, 89.202, 28.291, 0.904)
pt3dadd(121.442, 89.16, 28.281, 0.904)
pt3dadd(121.331, 89.118, 28.271, 0.904)
pt3dadd(121.219, 89.076, 28.261, 0.904)
pt3dadd(121.108, 89.033, 28.252, 0.904)
pt3dadd(120.996, 88.991, 28.242, 0.904)
pt3dadd(120.884, 88.949, 28.232, 0.904)
pt3dadd(120.773, 88.909, 28.215, 0.92)
pt3dadd(120.662, 88.871, 28.194, 0.946)
pt3dadd(120.551, 88.834, 28.173, 0.972)
pt3dadd(120.439, 88.796, 28.152, 0.996)
pt3dadd(120.329, 88.758, 28.131, 1.022)
pt3dadd(120.217, 88.72, 28.111, 1.048)
pt3dadd(120.107, 88.682, 28.09, 1.072)
pt3dadd(119.995, 88.644, 28.069, 1.098)
pt3dadd(119.884, 88.606, 28.048, 1.124)
pt3dadd(119.773, 88.569, 28.027, 1.148)
pt3dadd(119.665, 88.533, 27.995, 1.202)
pt3dadd(119.559, 88.5, 27.959, 1.266)
pt3dadd(119.452, 88.466, 27.923, 1.33)
pt3dadd(119.345, 88.432, 27.888, 1.394)
pt3dadd(119.238, 88.398, 27.852, 1.458)
pt3dadd(119.131, 88.364, 27.816, 1.522)
pt3dadd(119.025, 88.33, 27.78, 1.586)
pt3dadd(118.918, 88.296, 27.745, 1.65)
pt3dadd(118.811, 88.262, 27.709, 1.714)
pt3dadd(118.704, 88.228, 27.673, 1.778)
pt3dadd(118.601, 88.177, 27.647, 1.74)
pt3dadd(118.498, 88.12, 27.626, 1.666)
pt3dadd(118.396, 88.063, 27.604, 1.592)
pt3dadd(118.293, 88.007, 27.583, 1.518)
pt3dadd(118.191, 87.95, 27.561, 1.444)
pt3dadd(118.089, 87.893, 27.539, 1.37)
pt3dadd(117.986, 87.836, 27.518, 1.296)
pt3dadd(117.884, 87.779, 27.496, 1.222)
pt3dadd(117.781, 87.722, 27.475, 1.148)
pt3dadd(117.679, 87.665, 27.453, 1.074)
pt3dadd(117.579, 87.602, 27.436, 1.044)
pt3dadd(117.48, 87.537, 27.421, 1.028)
pt3dadd(117.381, 87.472, 27.406, 1.012)
pt3dadd(117.282, 87.407, 27.391, 0.996)
pt3dadd(117.182, 87.342, 27.376, 0.982)
pt3dadd(117.083, 87.276, 27.361, 0.966)
pt3dadd(116.984, 87.211, 27.346, 0.95)
pt3dadd(116.885, 87.146, 27.33, 0.934)
pt3dadd(116.786, 87.081, 27.315, 0.92)
pt3dadd(116.687, 87.016, 27.3, 0.904)
pt3dadd(116.591, 86.945, 27.29, 0.934)
pt3dadd(116.495, 86.873, 27.281, 0.978)
pt3dadd(116.4, 86.801, 27.272, 1.022)
pt3dadd(116.305, 86.729, 27.263, 1.066)
pt3dadd(116.209, 86.657, 27.254, 1.108)
pt3dadd(116.114, 86.585, 27.245, 1.152)
pt3dadd(116.019, 86.513, 27.236, 1.196)
pt3dadd(115.923, 86.44, 27.227, 1.24)
pt3dadd(115.828, 86.368, 27.218, 1.284)
pt3dadd(115.733, 86.296, 27.209, 1.326)
pt3dadd(115.63, 86.235, 27.206, 1.326)
pt3dadd(115.525, 86.177, 27.206, 1.312)
pt3dadd(115.42, 86.119, 27.205, 1.298)
pt3dadd(115.315, 86.061, 27.205, 1.284)
}
}
proc shape3d_122() {
dend_7[7] { pt3dadd(115.21, 86.003, 27.205, 1.27)
pt3dadd(115.105, 85.945, 27.204, 1.256)
pt3dadd(115, 85.887, 27.204, 1.242)
pt3dadd(114.894, 85.829, 27.203, 1.228)
pt3dadd(114.789, 85.771, 27.203, 1.214)
pt3dadd(114.684, 85.713, 27.203, 1.2)
pt3dadd(114.582, 85.651, 27.202, 1.192)
pt3dadd(114.481, 85.587, 27.202, 1.186)
pt3dadd(114.379, 85.523, 27.202, 1.178)
pt3dadd(114.278, 85.458, 27.202, 1.172)
pt3dadd(114.176, 85.394, 27.202, 1.166)
pt3dadd(114.075, 85.33, 27.202, 1.158)
pt3dadd(113.973, 85.266, 27.202, 1.152)
pt3dadd(113.872, 85.202, 27.202, 1.144)
pt3dadd(113.771, 85.138, 27.202, 1.138)
pt3dadd(113.669, 85.074, 27.202, 1.132)
pt3dadd(113.569, 85.008, 27.202, 1.13)
pt3dadd(113.468, 84.943, 27.202, 1.13)
pt3dadd(113.368, 84.877, 27.202, 1.13)
pt3dadd(113.267, 84.811, 27.202, 1.13)
pt3dadd(113.167, 84.745, 27.202, 1.13)
pt3dadd(113.067, 84.68, 27.202, 1.13)
pt3dadd(112.966, 84.614, 27.202, 1.13)
pt3dadd(112.866, 84.548, 27.202, 1.13)
pt3dadd(112.766, 84.482, 27.202, 1.13)
pt3dadd(112.665, 84.417, 27.202, 1.13)
pt3dadd(112.563, 84.353, 27.202, 1.122)
pt3dadd(112.461, 84.29, 27.202, 1.11)
pt3dadd(112.359, 84.228, 27.202, 1.1)
pt3dadd(112.257, 84.165, 27.202, 1.088)
pt3dadd(112.154, 84.102, 27.202, 1.078)
pt3dadd(112.052, 84.039, 27.202, 1.066)
pt3dadd(111.95, 83.976, 27.202, 1.056)
pt3dadd(111.848, 83.913, 27.202, 1.046)
pt3dadd(111.745, 83.851, 27.202, 1.034)
pt3dadd(111.643, 83.788, 27.202, 1.024)
pt3dadd(111.62, 83.732, 27.116, 1.006)
pt3dadd(111.596, 83.677, 27.03, 0.988)
pt3dadd(111.573, 83.621, 26.943, 0.972)
pt3dadd(111.549, 83.565, 26.857, 0.954)
pt3dadd(111.526, 83.51, 26.77, 0.938)
pt3dadd(111.503, 83.454, 26.684, 0.92)
pt3dadd(111.477, 83.399, 26.6, 0.904)
pt3dadd(111.363, 83.36, 26.6, 0.904)
pt3dadd(111.249, 83.322, 26.6, 0.904)
pt3dadd(111.136, 83.283, 26.6, 0.904)
pt3dadd(111.022, 83.244, 26.6, 0.904)
pt3dadd(110.909, 83.205, 26.6, 0.904)
pt3dadd(110.797, 83.162, 26.6, 0.904)
pt3dadd(110.687, 83.115, 26.6, 0.904)
pt3dadd(110.577, 83.067, 26.6, 0.904)
pt3dadd(110.466, 83.019, 26.6, 0.904)
pt3dadd(110.356, 82.972, 26.6, 0.904)
pt3dadd(110.244, 82.931, 26.6, 0.904)
pt3dadd(110.125, 82.916, 26.6, 0.904)
pt3dadd(110.006, 82.901, 26.6, 0.904)
pt3dadd(109.887, 82.886, 26.6, 0.904)
pt3dadd(109.768, 82.871, 26.6, 0.904)
pt3dadd(109.649, 82.856, 26.6, 0.904)
pt3dadd(109.53, 82.841, 26.6, 0.904)
pt3dadd(109.419, 82.797, 26.594, 0.904)
pt3dadd(109.309, 82.749, 26.587, 0.904)
pt3dadd(109.199, 82.702, 26.581, 0.904)
pt3dadd(109.089, 82.655, 26.574, 0.904)
pt3dadd(108.979, 82.608, 26.568, 0.904)
pt3dadd(108.877, 82.548, 26.555, 0.904)
pt3dadd(108.776, 82.484, 26.54, 0.904)
pt3dadd(108.675, 82.421, 26.526, 0.904)
pt3dadd(108.575, 82.358, 26.512, 0.904)
pt3dadd(108.475, 82.293, 26.5, 0.904)
pt3dadd(108.378, 82.223, 26.497, 0.904)
pt3dadd(108.28, 82.153, 26.495, 0.904)
pt3dadd(108.183, 82.083, 26.493, 0.904)
pt3dadd(108.086, 82.013, 26.491, 0.904)
pt3dadd(107.987, 81.947, 26.484, 0.904)
pt3dadd(107.881, 81.895, 26.465, 0.904)
pt3dadd(107.775, 81.844, 26.446, 0.904)
pt3dadd(107.669, 81.792, 26.427, 0.904)
pt3dadd(107.563, 81.741, 26.408, 0.904)
pt3dadd(107.453, 81.695, 26.4, 0.904)
pt3dadd(107.34, 81.654, 26.4, 0.904)
pt3dadd(107.228, 81.612, 26.4, 0.904)
pt3dadd(107.115, 81.57, 26.4, 0.904)
pt3dadd(107.003, 81.529, 26.4, 0.904)
pt3dadd(106.889, 81.493, 26.4, 0.904)
pt3dadd(106.769, 81.488, 26.4, 0.904)
pt3dadd(106.649, 81.483, 26.4, 0.904)
pt3dadd(106.53, 81.479, 26.397, 0.904)
pt3dadd(106.411, 81.474, 26.384, 0.904)
pt3dadd(106.292, 81.468, 26.371, 0.904)
pt3dadd(106.197, 81.431, 26.329, 0.904)
pt3dadd(106.114, 81.378, 26.272, 0.904)
pt3dadd(106.008, 81.343, 26.236, 0.904)
pt3dadd(105.9, 81.309, 26.202, 0.904)
pt3dadd(105.856, 81.205, 26.177, 0.904)
pt3dadd(105.804, 81.125, 26.125, 0.904)
pt3dadd(105.742, 81.067, 26.055, 0.904)
pt3dadd(105.68, 81.008, 25.984, 0.904)
pt3dadd(105.618, 80.95, 25.914, 0.904)
pt3dadd(105.549, 80.886, 25.852, 0.904)
pt3dadd(105.474, 80.817, 25.8, 0.904)
pt3dadd(105.398, 80.748, 25.748, 0.904)
pt3dadd(105.322, 80.679, 25.696, 0.904)
pt3dadd(105.239, 80.608, 25.66, 0.904)
pt3dadd(105.145, 80.535, 25.646, 0.904)
pt3dadd(105.052, 80.462, 25.631, 0.904)
pt3dadd(104.958, 80.389, 25.616, 0.904)
pt3dadd(104.865, 80.316, 25.602, 0.904)
pt3dadd(104.769, 80.248, 25.58, 0.904)
pt3dadd(104.673, 80.182, 25.558, 0.904)
pt3dadd(104.576, 80.116, 25.535, 0.904)
pt3dadd(104.48, 80.05, 25.513, 0.904)
pt3dadd(104.383, 79.984, 25.49, 0.904)
pt3dadd(104.287, 79.917, 25.467, 0.904)
pt3dadd(104.191, 79.851, 25.445, 0.904)
pt3dadd(104.095, 79.785, 25.422, 0.904)
pt3dadd(103.998, 79.719, 25.4, 0.904)
pt3dadd(103.89, 79.667, 25.398, 0.904)
pt3dadd(103.781, 79.616, 25.396, 0.904)
pt3dadd(103.673, 79.564, 25.393, 0.904)
pt3dadd(103.565, 79.513, 25.391, 0.904)
pt3dadd(103.456, 79.461, 25.389, 0.904)
pt3dadd(103.345, 79.448, 25.36, 0.904)
pt3dadd(103.232, 79.442, 25.325, 0.904)
pt3dadd(103.115, 79.44, 25.306, 0.904)
pt3dadd(102.996, 79.44, 25.298, 0.904)
pt3dadd(102.876, 79.44, 25.29, 0.904)
pt3dadd(102.792, 79.423, 25.228, 0.904)
pt3dadd(102.715, 79.402, 25.153, 0.904)
pt3dadd(102.623, 79.342, 25.118, 0.904)
pt3dadd(102.53, 79.278, 25.087, 0.904)
pt3dadd(102.45, 79.22, 25.029, 0.904)
pt3dadd(102.365, 79.188, 24.965, 0.904)
pt3dadd(102.279, 79.159, 24.899, 0.904)
pt3dadd(102.236, 79.109, 24.815, 0.904)
pt3dadd(102.187, 79.055, 24.741, 0.904)
pt3dadd(102.101, 78.976, 24.717, 0.904)
pt3dadd(102.022, 78.891, 24.7, 0.904)
pt3dadd(101.961, 78.787, 24.7, 0.904)
pt3dadd(101.898, 78.685, 24.7, 0.904)
pt3dadd(101.814, 78.6, 24.7, 0.904)
pt3dadd(101.737, 78.508, 24.7, 0.904)
pt3dadd(101.665, 78.412, 24.7, 0.904)
pt3dadd(101.593, 78.316, 24.7, 0.904)
pt3dadd(101.521, 78.22, 24.7, 0.904)
pt3dadd(101.449, 78.124, 24.7, 0.904)
pt3dadd(101.367, 78.044, 24.679, 0.904)
pt3dadd(101.278, 77.972, 24.647, 0.904)
pt3dadd(101.19, 77.899, 24.616, 0.904)
pt3dadd(101.103, 77.827, 24.584, 0.904)
pt3dadd(101.042, 77.739, 24.549, 0.904)
pt3dadd(101.015, 77.632, 24.51, 0.904)
pt3dadd(100.971, 77.557, 24.454, 0.904)
pt3dadd(100.906, 77.521, 24.375, 0.904)
pt3dadd(100.818, 77.473, 24.33, 0.904)
pt3dadd(100.715, 77.418, 24.308, 0.904)
pt3dadd(100.607, 77.368, 24.297, 0.904)
pt3dadd(100.498, 77.319, 24.292, 0.904)
pt3dadd(100.388, 77.289, 24.271, 0.904)
pt3dadd(100.277, 77.28, 24.233, 0.904)
pt3dadd(100.16, 77.263, 24.219, 0.904)
pt3dadd(100.042, 77.246, 24.205, 0.904)
pt3dadd(99.956, 77.177, 24.2, 0.904)
pt3dadd(99.888, 77.078, 24.2, 0.904)
pt3dadd(99.831, 76.974, 24.192, 0.904)
pt3dadd(99.786, 76.864, 24.176, 0.904)
pt3dadd(99.751, 76.766, 24.138, 0.904)
pt3dadd(99.73, 76.682, 24.068, 0.904)
pt3dadd(99.706, 76.584, 24.022, 0.904)
pt3dadd(99.674, 76.472, 24, 0.904)
pt3dadd(99.599, 76.379, 24, 0.904)
pt3dadd(99.524, 76.285, 24, 0.904)
pt3dadd(99.489, 76.171, 24, 0.904)
pt3dadd(99.456, 76.055, 24, 0.904)
pt3dadd(99.414, 75.948, 23.981, 0.904)
pt3dadd(99.364, 75.848, 23.946, 0.904)
pt3dadd(99.276, 75.783, 23.919, 0.904)
pt3dadd(99.169, 75.736, 23.896, 0.904)
pt3dadd(99.069, 75.699, 23.853, 0.904)
pt3dadd(98.989, 75.662, 23.789, 0.904)
pt3dadd(98.93, 75.618, 23.71, 0.904)
pt3dadd(98.861, 75.588, 23.633, 0.904)
pt3dadd(98.785, 75.567, 23.558, 0.904)
pt3dadd(98.707, 75.502, 23.517, 0.904)
pt3dadd(98.628, 75.416, 23.493, 0.904)
pt3dadd(98.546, 75.345, 23.453, 0.904)
pt3dadd(98.461, 75.278, 23.411, 0.904)
pt3dadd(98.347, 75.243, 23.403, 0.904)
pt3dadd(98.24, 75.194, 23.389, 0.904)
pt3dadd(98.14, 75.132, 23.37, 0.904)
pt3dadd(98.04, 75.07, 23.35, 0.904)
pt3dadd(97.939, 75.008, 23.331, 0.904)
pt3dadd(97.839, 74.946, 23.311, 0.904)
pt3dadd(97.758, 74.859, 23.3, 0.904)
pt3dadd(97.678, 74.771, 23.288, 0.904)
pt3dadd(97.602, 74.695, 23.243, 0.904)
pt3dadd(97.522, 74.619, 23.21, 0.904)
pt3dadd(97.431, 74.541, 23.204, 0.904)
pt3dadd(97.334, 74.473, 23.2, 0.904)
pt3dadd(97.219, 74.44, 23.2, 0.904)
}
}
proc shape3d_123() {
dend_7[7] { pt3dadd(97.104, 74.407, 23.2, 0.904)
pt3dadd(96.984, 74.4, 23.2, 0.904)
pt3dadd(96.864, 74.4, 23.2, 0.904)
pt3dadd(96.751, 74.364, 23.2, 0.904)
pt3dadd(96.64, 74.32, 23.2, 0.904)
pt3dadd(96.528, 74.275, 23.2, 0.904)
pt3dadd(96.417, 74.231, 23.2, 0.904)
pt3dadd(96.306, 74.186, 23.2, 0.904)
pt3dadd(96.195, 74.14, 23.2, 0.904)
pt3dadd(96.085, 74.093, 23.2, 0.904)
pt3dadd(95.974, 74.045, 23.2, 0.904)
pt3dadd(95.864, 73.998, 23.2, 0.904)
pt3dadd(95.754, 73.95, 23.2, 0.904)
pt3dadd(95.646, 73.899, 23.2, 0.904)
pt3dadd(95.565, 73.811, 23.2, 0.904)
pt3dadd(95.483, 73.723, 23.2, 0.904)
pt3dadd(95.372, 73.679, 23.203, 0.908)
pt3dadd(95.26, 73.636, 23.205, 0.912)
pt3dadd(95.148, 73.593, 23.208, 0.918)
pt3dadd(95.036, 73.551, 23.21, 0.922)
pt3dadd(94.924, 73.508, 23.213, 0.926)
pt3dadd(94.812, 73.465, 23.216, 0.932)
pt3dadd(94.7, 73.422, 23.218, 0.936)
pt3dadd(94.588, 73.38, 23.221, 0.94)
pt3dadd(94.476, 73.337, 23.224, 0.944)
pt3dadd(94.363, 73.294, 23.226, 0.95)
pt3dadd(94.251, 73.252, 23.229, 0.954)
pt3dadd(94.142, 73.204, 23.229, 0.964)
pt3dadd(94.039, 73.142, 23.219, 0.996)
pt3dadd(93.937, 73.081, 23.209, 1.026)
pt3dadd(93.835, 73.019, 23.199, 1.056)
pt3dadd(93.733, 72.957, 23.189, 1.086)
pt3dadd(93.631, 72.896, 23.179, 1.116)
pt3dadd(93.528, 72.834, 23.169, 1.148)
pt3dadd(93.426, 72.772, 23.159, 1.178)
pt3dadd(93.324, 72.71, 23.149, 1.208)
pt3dadd(93.222, 72.649, 23.139, 1.238)
pt3dadd(93.119, 72.59, 23.125, 1.258)
pt3dadd(93.014, 72.541, 23.097, 1.246)
pt3dadd(92.91, 72.492, 23.07, 1.234)
pt3dadd(92.805, 72.443, 23.043, 1.222)
pt3dadd(92.701, 72.394, 23.015, 1.21)
pt3dadd(92.596, 72.345, 22.988, 1.198)
pt3dadd(92.492, 72.296, 22.961, 1.186)
pt3dadd(92.388, 72.247, 22.934, 1.174)
pt3dadd(92.283, 72.198, 22.906, 1.162)
pt3dadd(92.179, 72.148, 22.879, 1.15)
pt3dadd(92.074, 72.1, 22.85, 1.132)
pt3dadd(91.971, 72.053, 22.818, 1.106)
pt3dadd(91.867, 72.006, 22.787, 1.078)
pt3dadd(91.764, 71.958, 22.755, 1.05)
pt3dadd(91.66, 71.911, 22.723, 1.024)
pt3dadd(91.557, 71.864, 22.692, 0.996)
pt3dadd(91.453, 71.817, 22.66, 0.968)
pt3dadd(91.349, 71.77, 22.628, 0.942)
pt3dadd(91.246, 71.722, 22.597, 0.914)
pt3dadd(91.142, 71.675, 22.565, 0.886)
pt3dadd(91.04, 71.622, 22.538, 0.864)
pt3dadd(90.94, 71.561, 22.517, 0.85)
pt3dadd(90.84, 71.499, 22.496, 0.834)
pt3dadd(90.741, 71.437, 22.476, 0.82)
pt3dadd(90.641, 71.375, 22.455, 0.804)
pt3dadd(90.541, 71.314, 22.434, 0.79)
pt3dadd(90.441, 71.252, 22.413, 0.774)
pt3dadd(90.341, 71.19, 22.393, 0.76)
pt3dadd(90.241, 71.128, 22.372, 0.746)
pt3dadd(90.141, 71.067, 22.351, 0.73)
pt3dadd(90.039, 71.008, 22.334, 0.72)
pt3dadd(89.932, 70.956, 22.32, 0.716)
pt3dadd(89.826, 70.903, 22.307, 0.71)
pt3dadd(89.719, 70.85, 22.293, 0.706)
pt3dadd(89.613, 70.797, 22.28, 0.702)
pt3dadd(89.506, 70.744, 22.267, 0.698)
pt3dadd(89.4, 70.691, 22.253, 0.694)
pt3dadd(89.293, 70.638, 22.24, 0.69)
pt3dadd(89.187, 70.586, 22.226, 0.684)
pt3dadd(89.08, 70.533, 22.213, 0.68)
pt3dadd(88.974, 70.479, 22.202, 0.682)
pt3dadd(88.867, 70.424, 22.195, 0.692)
pt3dadd(88.761, 70.37, 22.188, 0.7)
pt3dadd(88.654, 70.315, 22.181, 0.71)
pt3dadd(88.548, 70.26, 22.173, 0.72)
pt3dadd(88.441, 70.206, 22.166, 0.73)
pt3dadd(88.335, 70.151, 22.159, 0.738)
pt3dadd(88.228, 70.097, 22.151, 0.748)
pt3dadd(88.122, 70.042, 22.144, 0.758)
pt3dadd(88.015, 69.987, 22.137, 0.766)
pt3dadd(87.912, 69.927, 22.133, 0.786)
pt3dadd(87.812, 69.861, 22.132, 0.816)
pt3dadd(87.712, 69.795, 22.132, 0.846)
pt3dadd(87.612, 69.729, 22.131, 0.876)
pt3dadd(87.511, 69.663, 22.13, 0.904)
pt3dadd(87.411, 69.596, 22.13, 0.934)
pt3dadd(87.311, 69.53, 22.129, 0.964)
pt3dadd(87.211, 69.464, 22.129, 0.994)
pt3dadd(87.111, 69.398, 22.128, 1.024)
pt3dadd(87.011, 69.331, 22.128, 1.054)
pt3dadd(86.912, 69.264, 22.127, 1.068)
pt3dadd(86.815, 69.194, 22.126, 1.062)
pt3dadd(86.717, 69.124, 22.125, 1.056)
pt3dadd(86.619, 69.054, 22.124, 1.05)
pt3dadd(86.522, 68.984, 22.123, 1.046)
pt3dadd(86.424, 68.915, 22.122, 1.04)
pt3dadd(86.327, 68.845, 22.121, 1.034)
pt3dadd(86.229, 68.775, 22.12, 1.028)
pt3dadd(86.131, 68.705, 22.119, 1.024)
pt3dadd(86.034, 68.636, 22.118, 1.018)
pt3dadd(85.935, 68.567, 22.117, 1.008)
pt3dadd(85.835, 68.5, 22.115, 0.994)
pt3dadd(85.736, 68.434, 22.114, 0.978)
pt3dadd(85.636, 68.367, 22.112, 0.964)
pt3dadd(85.536, 68.3, 22.111, 0.948)
pt3dadd(85.437, 68.233, 22.109, 0.934)
pt3dadd(85.337, 68.166, 22.108, 0.918)
pt3dadd(85.237, 68.1, 22.106, 0.904)
pt3dadd(85.138, 68.033, 22.105, 0.89)
pt3dadd(85.038, 67.966, 22.103, 0.874)
pt3dadd(84.934, 67.906, 22.101, 0.86)
pt3dadd(84.827, 67.852, 22.099, 0.844)
pt3dadd(84.72, 67.799, 22.096, 0.828)
pt3dadd(84.612, 67.745, 22.093, 0.812)
pt3dadd(84.505, 67.692, 22.091, 0.796)
pt3dadd(84.398, 67.638, 22.088, 0.78)
pt3dadd(84.29, 67.585, 22.086, 0.764)
pt3dadd(84.183, 67.531, 22.083, 0.748)
pt3dadd(84.075, 67.478, 22.08, 0.732)
pt3dadd(83.968, 67.425, 22.078, 0.716)
pt3dadd(83.862, 67.369, 22.074, 0.7)
pt3dadd(83.757, 67.311, 22.068, 0.684)
pt3dadd(83.652, 67.254, 22.063, 0.668)
pt3dadd(83.547, 67.196, 22.057, 0.652)
pt3dadd(83.442, 67.138, 22.052, 0.636)
pt3dadd(83.337, 67.081, 22.046, 0.622)
pt3dadd(83.232, 67.023, 22.041, 0.606)
pt3dadd(83.127, 66.965, 22.035, 0.59)
pt3dadd(83.022, 66.908, 22.03, 0.574)
pt3dadd(82.917, 66.85, 22.024, 0.558)
pt3dadd(82.81, 66.795, 22.017, 0.544)
pt3dadd(82.703, 66.743, 22.009, 0.528)
pt3dadd(82.595, 66.691, 22.001, 0.51)
pt3dadd(82.487, 66.639, 21.993, 0.494)
pt3dadd(82.38, 66.586, 21.985, 0.478)
pt3dadd(82.272, 66.534, 21.977, 0.462)
pt3dadd(82.164, 66.482, 21.97, 0.446)
pt3dadd(82.057, 66.43, 21.962, 0.43)
pt3dadd(81.949, 66.378, 21.954, 0.414)
pt3dadd(81.841, 66.326, 21.945, 0.398)
pt3dadd(81.731, 66.28, 21.936, 0.382)
pt3dadd(81.619, 66.239, 21.924, 0.368)
pt3dadd(81.507, 66.199, 21.913, 0.352)
pt3dadd(81.395, 66.159, 21.902, 0.336)
pt3dadd(81.283, 66.118, 21.89, 0.32)
pt3dadd(81.17, 66.078, 21.879, 0.304)
pt3dadd(81.058, 66.037, 21.868, 0.288)
pt3dadd(80.946, 65.997, 21.856, 0.274)
pt3dadd(80.834, 65.957, 21.845, 0.258)
pt3dadd(80.722, 65.916, 21.834, 0.242)
pt3dadd(80.613, 65.879, 21.809, 0.268)
pt3dadd(80.506, 65.844, 21.774, 0.33)
pt3dadd(80.4, 65.809, 21.738, 0.394)
pt3dadd(80.293, 65.775, 21.702, 0.458)
pt3dadd(80.186, 65.74, 21.666, 0.52)
pt3dadd(80.08, 65.705, 21.63, 0.584)
pt3dadd(79.973, 65.67, 21.595, 0.648)
pt3dadd(79.867, 65.636, 21.559, 0.71)
pt3dadd(79.76, 65.601, 21.523, 0.774)
pt3dadd(79.654, 65.566, 21.487, 0.838)
pt3dadd(79.548, 65.524, 21.456, 0.882)
pt3dadd(79.444, 65.474, 21.428, 0.908)
pt3dadd(79.34, 65.424, 21.401, 0.934)
pt3dadd(79.236, 65.375, 21.373, 0.96)
pt3dadd(79.132, 65.325, 21.346, 0.988)
pt3dadd(79.028, 65.276, 21.318, 1.014)
pt3dadd(78.924, 65.226, 21.291, 1.04)
pt3dadd(78.819, 65.176, 21.263, 1.066)
pt3dadd(78.715, 65.127, 21.236, 1.094)
pt3dadd(78.611, 65.077, 21.208, 1.12)
pt3dadd(78.509, 65.021, 21.185, 1.128)
pt3dadd(78.408, 64.96, 21.165, 1.122)
pt3dadd(78.308, 64.9, 21.144, 1.118)
pt3dadd(78.207, 64.839, 21.124, 1.112)
pt3dadd(78.106, 64.779, 21.103, 1.108)
pt3dadd(78.006, 64.718, 21.083, 1.104)
pt3dadd(77.905, 64.658, 21.063, 1.098)
pt3dadd(77.804, 64.597, 21.042, 1.094)
pt3dadd(77.704, 64.537, 21.022, 1.088)
pt3dadd(77.603, 64.476, 21.001, 1.084)
pt3dadd(77.506, 64.408, 20.987, 1.048)
pt3dadd(77.411, 64.336, 20.977, 0.99)
pt3dadd(77.316, 64.263, 20.968, 0.934)
pt3dadd(77.221, 64.191, 20.958, 0.878)
pt3dadd(77.126, 64.118, 20.948, 0.822)
pt3dadd(77.031, 64.046, 20.938, 0.764)
pt3dadd(76.937, 63.973, 20.928, 0.708)
pt3dadd(76.842, 63.901, 20.918, 0.652)
pt3dadd(76.747, 63.828, 20.908, 0.596)
pt3dadd(76.652, 63.756, 20.898, 0.54)
pt3dadd(76.557, 63.683, 20.891, 0.504)
pt3dadd(76.461, 63.611, 20.884, 0.482)
pt3dadd(76.366, 63.538, 20.878, 0.46)
}
}
proc shape3d_124() {
dend_7[7] { pt3dadd(76.271, 63.465, 20.872, 0.436)
pt3dadd(76.176, 63.393, 20.866, 0.414)
pt3dadd(76.08, 63.32, 20.86, 0.392)
pt3dadd(75.985, 63.248, 20.853, 0.37)
pt3dadd(75.89, 63.175, 20.847, 0.348)
pt3dadd(75.795, 63.103, 20.841, 0.326)
pt3dadd(75.699, 63.03, 20.835, 0.304)
pt3dadd(75.604, 62.958, 20.831, 0.304)
pt3dadd(75.508, 62.885, 20.829, 0.318)
pt3dadd(75.413, 62.813, 20.826, 0.332)
pt3dadd(75.317, 62.74, 20.824, 0.346)
pt3dadd(75.222, 62.667, 20.822, 0.36)
pt3dadd(75.126, 62.595, 20.819, 0.374)
pt3dadd(75.03, 62.523, 20.817, 0.39)
pt3dadd(74.935, 62.45, 20.815, 0.404)
pt3dadd(74.839, 62.378, 20.813, 0.418)
pt3dadd(74.744, 62.305, 20.81, 0.432)
pt3dadd(74.638, 62.25, 20.806, 0.428)
pt3dadd(74.527, 62.206, 20.8, 0.416)
pt3dadd(74.415, 62.163, 20.793, 0.402)
pt3dadd(74.304, 62.119, 20.787, 0.388)
pt3dadd(74.192, 62.075, 20.781, 0.374)
pt3dadd(74.081, 62.031, 20.775, 0.36)
pt3dadd(73.97, 61.987, 20.769, 0.348)
pt3dadd(73.858, 61.943, 20.762, 0.334)
pt3dadd(73.747, 61.899, 20.756, 0.32)
pt3dadd(73.635, 61.855, 20.75, 0.306)
pt3dadd(73.52, 61.824, 20.742, 0.296)
pt3dadd(73.404, 61.798, 20.732, 0.29)
pt3dadd(73.287, 61.772, 20.723, 0.282)
pt3dadd(73.17, 61.747, 20.713, 0.274)
pt3dadd(73.053, 61.721, 20.704, 0.266)
pt3dadd(72.937, 61.695, 20.695, 0.258)
pt3dadd(72.82, 61.67, 20.685, 0.25)
pt3dadd(72.703, 61.644, 20.676, 0.244)
pt3dadd(72.587, 61.619, 20.667, 0.236)
pt3dadd(72.47, 61.593, 20.657, 0.228)
pt3dadd(72.353, 61.579, 20.641, 0.226)
pt3dadd(72.235, 61.569, 20.623, 0.226)
pt3dadd(72.118, 61.559, 20.604, 0.226)
pt3dadd(72, 61.55, 20.586, 0.226)
pt3dadd(71.883, 61.54, 20.567, 0.226)
pt3dadd(71.765, 61.53, 20.549, 0.226)
pt3dadd(71.648, 61.52, 20.53, 0.226)
pt3dadd(71.53, 61.511, 20.511, 0.226)
pt3dadd(71.413, 61.501, 20.493, 0.226)
pt3dadd(71.295, 61.491, 20.474, 0.226)
pt3dadd(71.183, 61.489, 20.44, 0.226)
pt3dadd(71.071, 61.489, 20.403, 0.226)
pt3dadd(70.96, 61.489, 20.366, 0.226)
pt3dadd(70.848, 61.489, 20.329, 0.226)
pt3dadd(70.737, 61.489, 20.292, 0.226)
pt3dadd(70.626, 61.489, 20.254, 0.226)
pt3dadd(70.514, 61.489, 20.217, 0.226)
pt3dadd(70.403, 61.489, 20.18, 0.226)
pt3dadd(70.292, 61.489, 20.143, 0.226)
pt3dadd(70.18, 61.489, 20.106, 0.226)
pt3dadd(70.065, 61.488, 20.078, 0.278)
pt3dadd(69.949, 61.488, 20.053, 0.34)
pt3dadd(69.833, 61.488, 20.028, 0.402)
pt3dadd(69.717, 61.488, 20.002, 0.466)
pt3dadd(69.601, 61.488, 19.977, 0.528)
pt3dadd(69.484, 61.488, 19.951, 0.592)
pt3dadd(69.368, 61.487, 19.926, 0.654)
pt3dadd(69.252, 61.487, 19.901, 0.718)
pt3dadd(69.136, 61.487, 19.875, 0.78)
pt3dadd(69.02, 61.487, 19.85, 0.842)
pt3dadd(68.902, 61.487, 19.832, 0.85)
pt3dadd(68.784, 61.486, 19.816, 0.846)
pt3dadd(68.665, 61.486, 19.8, 0.842)
pt3dadd(68.547, 61.486, 19.783, 0.836)
pt3dadd(68.429, 61.486, 19.767, 0.832)
pt3dadd(68.31, 61.485, 19.751, 0.828)
pt3dadd(68.192, 61.485, 19.734, 0.824)
pt3dadd(68.073, 61.485, 19.718, 0.82)
pt3dadd(67.955, 61.485, 19.702, 0.814)
pt3dadd(67.837, 61.484, 19.685, 0.81)
pt3dadd(67.717, 61.484, 19.676, 0.784)
pt3dadd(67.598, 61.483, 19.669, 0.754)
pt3dadd(67.478, 61.483, 19.661, 0.724)
pt3dadd(67.358, 61.482, 19.653, 0.694)
pt3dadd(67.239, 61.482, 19.646, 0.664)
pt3dadd(67.119, 61.481, 19.638, 0.634)
pt3dadd(66.999, 61.481, 19.63, 0.604)
pt3dadd(66.88, 61.48, 19.623, 0.574)
pt3dadd(66.76, 61.479, 19.615, 0.544)
pt3dadd(66.64, 61.479, 19.607, 0.514)
pt3dadd(66.52, 61.478, 19.606, 0.524)
pt3dadd(66.4, 61.477, 19.606, 0.54)
pt3dadd(66.28, 61.476, 19.605, 0.556)
pt3dadd(66.16, 61.475, 19.605, 0.57)
pt3dadd(66.04, 61.475, 19.604, 0.586)
pt3dadd(65.92, 61.474, 19.604, 0.602)
pt3dadd(65.8, 61.473, 19.604, 0.618)
pt3dadd(65.68, 61.472, 19.604, 0.634)
pt3dadd(65.56, 61.471, 19.603, 0.65)
pt3dadd(65.44, 61.47, 19.603, 0.664)
pt3dadd(65.32, 61.469, 19.602, 0.652)
pt3dadd(65.201, 61.467, 19.601, 0.634)
pt3dadd(65.081, 61.465, 19.601, 0.616)
pt3dadd(64.961, 61.464, 19.6, 0.598)
pt3dadd(64.841, 61.462, 19.599, 0.58)
pt3dadd(64.721, 61.461, 19.598, 0.562)
pt3dadd(64.601, 61.459, 19.598, 0.544)
pt3dadd(64.481, 61.458, 19.597, 0.526)
pt3dadd(64.361, 61.456, 19.596, 0.508)
pt3dadd(64.241, 61.455, 19.596, 0.49)
pt3dadd(64.121, 61.451, 19.594, 0.522)
pt3dadd(64.001, 61.447, 19.593, 0.56)
pt3dadd(63.881, 61.443, 19.591, 0.6)
pt3dadd(63.761, 61.439, 19.59, 0.638)
pt3dadd(63.641, 61.435, 19.588, 0.678)
pt3dadd(63.521, 61.431, 19.587, 0.718)
pt3dadd(63.401, 61.427, 19.586, 0.756)
pt3dadd(63.281, 61.423, 19.584, 0.796)
pt3dadd(63.161, 61.419, 19.583, 0.834)
pt3dadd(63.041, 61.415, 19.581, 0.874)
pt3dadd(62.922, 61.41, 19.579, 0.868)
pt3dadd(62.802, 61.406, 19.576, 0.856)
pt3dadd(62.682, 61.401, 19.574, 0.842)
pt3dadd(62.562, 61.396, 19.571, 0.83)
pt3dadd(62.442, 61.392, 19.569, 0.816)
pt3dadd(62.322, 61.387, 19.566, 0.804)
pt3dadd(62.202, 61.382, 19.564, 0.792)
pt3dadd(62.082, 61.378, 19.561, 0.778)
pt3dadd(61.963, 61.373, 19.559, 0.766)
pt3dadd(61.843, 61.368, 19.556, 0.752)
pt3dadd(61.723, 61.358, 19.552, 0.706)
pt3dadd(61.604, 61.346, 19.548, 0.652)
pt3dadd(61.485, 61.334, 19.543, 0.6)
pt3dadd(61.365, 61.323, 19.539, 0.548)
pt3dadd(61.246, 61.311, 19.534, 0.494)
pt3dadd(61.127, 61.299, 19.53, 0.442)
pt3dadd(61.007, 61.287, 19.525, 0.39)
pt3dadd(60.888, 61.276, 19.521, 0.336)
pt3dadd(60.769, 61.264, 19.516, 0.284)
pt3dadd(60.65, 61.252, 19.512, 0.23)
pt3dadd(60.534, 61.223, 19.504, 0.226)
pt3dadd(60.418, 61.192, 19.497, 0.226)
pt3dadd(60.303, 61.161, 19.489, 0.226)
pt3dadd(60.187, 61.13, 19.482, 0.226)
pt3dadd(60.071, 61.099, 19.474, 0.226)
pt3dadd(59.956, 61.068, 19.466, 0.226)
pt3dadd(59.84, 61.037, 19.458, 0.226)
pt3dadd(59.725, 61.006, 19.451, 0.226)
pt3dadd(59.609, 60.975, 19.443, 0.226)
pt3dadd(59.494, 60.944, 19.435, 0.226)
pt3dadd(59.376, 60.958, 19.423, 0.256)
pt3dadd(59.259, 60.978, 19.41, 0.29)
pt3dadd(59.142, 60.997, 19.397, 0.322)
pt3dadd(59.024, 61.016, 19.384, 0.356)
pt3dadd(58.907, 61.035, 19.371, 0.388)
pt3dadd(58.789, 61.054, 19.357, 0.422)
pt3dadd(58.672, 61.073, 19.344, 0.456)
pt3dadd(58.554, 61.092, 19.331, 0.488)
pt3dadd(58.437, 61.111, 19.318, 0.522)
pt3dadd(58.32, 61.13, 19.305, 0.556)
pt3dadd(58.207, 61.153, 19.275, 0.568)
pt3dadd(58.096, 61.176, 19.244, 0.58)
pt3dadd(57.984, 61.198, 19.213, 0.592)
pt3dadd(57.872, 61.221, 19.182, 0.606)
pt3dadd(57.76, 61.244, 19.152, 0.618)
pt3dadd(57.648, 61.266, 19.121, 0.63)
pt3dadd(57.536, 61.289, 19.09, 0.642)
pt3dadd(57.424, 61.312, 19.059, 0.654)
pt3dadd(57.312, 61.334, 19.028, 0.666)
pt3dadd(57.201, 61.357, 18.997, 0.678)
pt3dadd(57.092, 61.381, 18.959, 0.674)
pt3dadd(56.984, 61.405, 18.921, 0.67)
pt3dadd(56.875, 61.428, 18.883, 0.666)
pt3dadd(56.767, 61.452, 18.845, 0.662)
pt3dadd(56.658, 61.476, 18.807, 0.658)
pt3dadd(56.55, 61.5, 18.77, 0.654)
pt3dadd(56.442, 61.524, 18.732, 0.65)
pt3dadd(56.333, 61.548, 18.694, 0.646)
pt3dadd(56.225, 61.571, 18.656, 0.642)
pt3dadd(56.116, 61.595, 18.618, 0.638)
pt3dadd(56.005, 61.622, 18.586, 0.62)
pt3dadd(55.895, 61.649, 18.554, 0.604)
pt3dadd(55.784, 61.676, 18.523, 0.588)
pt3dadd(55.674, 61.702, 18.491, 0.572)
pt3dadd(55.563, 61.729, 18.459, 0.556)
pt3dadd(55.453, 61.756, 18.427, 0.538)
pt3dadd(55.342, 61.783, 18.395, 0.522)
pt3dadd(55.232, 61.809, 18.363, 0.506)
pt3dadd(55.121, 61.836, 18.331, 0.49)
pt3dadd(55.011, 61.864, 18.3, 0.474)
pt3dadd(54.904, 61.907, 18.273, 0.472)
pt3dadd(54.797, 61.95, 18.245, 0.468)
pt3dadd(54.689, 61.993, 18.218, 0.466)
pt3dadd(54.582, 62.037, 18.191, 0.464)
pt3dadd(54.475, 62.08, 18.164, 0.462)
pt3dadd(54.368, 62.123, 18.137, 0.46)
pt3dadd(54.261, 62.166, 18.11, 0.458)
pt3dadd(54.154, 62.209, 18.082, 0.456)
pt3dadd(54.047, 62.253, 18.055, 0.454)
pt3dadd(53.94, 62.296, 18.028, 0.452)
pt3dadd(53.835, 62.336, 17.993, 0.444)
pt3dadd(53.729, 62.376, 17.959, 0.438)
pt3dadd(53.624, 62.416, 17.924, 0.432)
}
}
proc shape3d_125() {
dend_7[7] { pt3dadd(53.519, 62.456, 17.89, 0.424)
pt3dadd(53.413, 62.496, 17.855, 0.418)
pt3dadd(53.308, 62.536, 17.821, 0.41)
pt3dadd(53.203, 62.576, 17.787, 0.404)
pt3dadd(53.097, 62.616, 17.752, 0.398)
pt3dadd(52.992, 62.656, 17.718, 0.39)
pt3dadd(52.887, 62.695, 17.682, 0.382)
pt3dadd(52.785, 62.728, 17.638, 0.368)
pt3dadd(52.682, 62.761, 17.594, 0.352)
pt3dadd(52.579, 62.793, 17.549, 0.336)
pt3dadd(52.477, 62.826, 17.505, 0.322)
pt3dadd(52.374, 62.858, 17.461, 0.306)
pt3dadd(52.272, 62.891, 17.417, 0.292)
pt3dadd(52.169, 62.923, 17.373, 0.276)
pt3dadd(52.066, 62.956, 17.329, 0.26)
pt3dadd(51.964, 62.988, 17.284, 0.246)
pt3dadd(51.862, 63.02, 17.239, 0.234)
pt3dadd(51.763, 63.043, 17.186, 0.248)
pt3dadd(51.663, 63.066, 17.133, 0.26)
pt3dadd(51.564, 63.089, 17.08, 0.274)
pt3dadd(51.465, 63.112, 17.027, 0.288)
pt3dadd(51.366, 63.135, 16.974, 0.302)
pt3dadd(51.267, 63.157, 16.92, 0.316)
pt3dadd(51.168, 63.18, 16.867, 0.328)
pt3dadd(51.069, 63.203, 16.814, 0.342)
pt3dadd(50.97, 63.226, 16.761, 0.356)
pt3dadd(50.87, 63.25, 16.709, 0.37)
pt3dadd(50.768, 63.282, 16.665, 0.384)
pt3dadd(50.665, 63.313, 16.62, 0.4)
pt3dadd(50.562, 63.344, 16.576, 0.416)
pt3dadd(50.459, 63.375, 16.531, 0.43)
pt3dadd(50.356, 63.407, 16.487, 0.446)
pt3dadd(50.253, 63.438, 16.442, 0.462)
pt3dadd(50.151, 63.469, 16.398, 0.476)
pt3dadd(50.048, 63.5, 16.353, 0.492)
pt3dadd(49.945, 63.532, 16.309, 0.508)
pt3dadd(49.841, 63.565, 16.267, 0.522)
pt3dadd(49.736, 63.608, 16.236, 0.538)
pt3dadd(49.63, 63.65, 16.204, 0.554)
pt3dadd(49.524, 63.692, 16.173, 0.57)
pt3dadd(49.419, 63.735, 16.141, 0.586)
pt3dadd(49.313, 63.777, 16.11, 0.602)
pt3dadd(49.207, 63.819, 16.078, 0.618)
pt3dadd(49.101, 63.862, 16.046, 0.632)
pt3dadd(48.996, 63.904, 16.015, 0.648)
pt3dadd(48.89, 63.946, 15.983, 0.664)
pt3dadd(48.782, 63.986, 15.956, 0.67)
pt3dadd(48.666, 64.014, 15.946, 0.636)
pt3dadd(48.551, 64.043, 15.934, 0.6)
pt3dadd(48.435, 64.072, 15.924, 0.568)
pt3dadd(48.319, 64.101, 15.913, 0.532)
pt3dadd(48.203, 64.129, 15.902, 0.498)
pt3dadd(48.088, 64.158, 15.891, 0.464)
pt3dadd(47.972, 64.187, 15.88, 0.43)
pt3dadd(47.856, 64.216, 15.869, 0.396)
pt3dadd(47.74, 64.245, 15.858, 0.362)
pt3dadd(47.624, 64.271, 15.849, 0.334)
pt3dadd(47.505, 64.289, 15.845, 0.322)
pt3dadd(47.387, 64.307, 15.842, 0.312)
pt3dadd(47.268, 64.325, 15.838, 0.3)
pt3dadd(47.15, 64.344, 15.835, 0.29)
pt3dadd(47.031, 64.362, 15.831, 0.278)
pt3dadd(46.913, 64.38, 15.828, 0.268)
pt3dadd(46.794, 64.398, 15.824, 0.256)
pt3dadd(46.676, 64.416, 15.821, 0.246)
pt3dadd(46.557, 64.435, 15.818, 0.234)
pt3dadd(46.438, 64.45, 15.815, 0.226)
pt3dadd(46.318, 64.458, 15.815, 0.226)
pt3dadd(46.199, 64.466, 15.815, 0.226)
pt3dadd(46.079, 64.474, 15.815, 0.226)
pt3dadd(45.959, 64.482, 15.815, 0.226)
pt3dadd(45.839, 64.489, 15.815, 0.226)
pt3dadd(45.72, 64.497, 15.815, 0.226)
pt3dadd(45.6, 64.505, 15.815, 0.226)
pt3dadd(45.48, 64.513, 15.815, 0.226)
pt3dadd(45.36, 64.521, 15.815, 0.226)
pt3dadd(45.241, 64.527, 15.815, 0.226)
pt3dadd(45.121, 64.527, 15.815, 0.23)
pt3dadd(45.001, 64.526, 15.815, 0.232)
pt3dadd(44.881, 64.526, 15.815, 0.234)
pt3dadd(44.761, 64.526, 15.814, 0.236)
pt3dadd(44.641, 64.526, 15.814, 0.24)
pt3dadd(44.521, 64.526, 15.814, 0.242)
pt3dadd(44.401, 64.526, 15.814, 0.244)
pt3dadd(44.281, 64.526, 15.814, 0.248)
pt3dadd(44.161, 64.526, 15.814, 0.25)
pt3dadd(44.041, 64.526, 15.814, 0.256)
pt3dadd(43.921, 64.526, 15.814, 0.274)
pt3dadd(43.801, 64.526, 15.814, 0.292)
pt3dadd(43.681, 64.526, 15.814, 0.31)
pt3dadd(43.561, 64.526, 15.814, 0.328)
pt3dadd(43.441, 64.526, 15.813, 0.346)
pt3dadd(43.321, 64.526, 15.813, 0.364)
pt3dadd(43.201, 64.526, 15.813, 0.382)
pt3dadd(43.081, 64.526, 15.813, 0.4)
pt3dadd(42.961, 64.526, 15.813, 0.418)
pt3dadd(42.841, 64.526, 15.813, 0.426)
pt3dadd(42.721, 64.525, 15.813, 0.412)
pt3dadd(42.601, 64.525, 15.813, 0.4)
pt3dadd(42.481, 64.525, 15.812, 0.386)
pt3dadd(42.361, 64.525, 15.812, 0.372)
pt3dadd(42.241, 64.525, 15.812, 0.358)
pt3dadd(42.121, 64.525, 15.812, 0.346)
pt3dadd(42.001, 64.525, 15.812, 0.332)
pt3dadd(41.881, 64.524, 15.811, 0.318)
pt3dadd(41.761, 64.524, 15.811, 0.304)
pt3dadd(41.641, 64.524, 15.811, 0.3)
pt3dadd(41.521, 64.524, 15.81, 0.314)
pt3dadd(41.401, 64.524, 15.81, 0.33)
pt3dadd(41.281, 64.523, 15.81, 0.344)
pt3dadd(41.161, 64.523, 15.809, 0.36)
pt3dadd(41.041, 64.523, 15.809, 0.374)
pt3dadd(40.921, 64.523, 15.809, 0.39)
pt3dadd(40.801, 64.522, 15.808, 0.404)
pt3dadd(40.681, 64.522, 15.808, 0.42)
pt3dadd(40.561, 64.522, 15.807, 0.434)
pt3dadd(40.441, 64.522, 15.807, 0.452)
pt3dadd(40.321, 64.521, 15.806, 0.476)
pt3dadd(40.201, 64.521, 15.805, 0.498)
pt3dadd(40.081, 64.521, 15.805, 0.522)
pt3dadd(39.961, 64.52, 15.804, 0.544)
pt3dadd(39.841, 64.52, 15.803, 0.568)
pt3dadd(39.721, 64.519, 15.802, 0.592)
pt3dadd(39.601, 64.519, 15.802, 0.614)
pt3dadd(39.481, 64.518, 15.801, 0.638)
pt3dadd(39.361, 64.518, 15.8, 0.662)
pt3dadd(39.241, 64.517, 15.8, 0.678)
pt3dadd(39.121, 64.517, 15.798, 0.674)
pt3dadd(39.001, 64.516, 15.797, 0.67)
pt3dadd(38.881, 64.515, 15.796, 0.668)
pt3dadd(38.761, 64.515, 15.795, 0.664)
pt3dadd(38.641, 64.514, 15.793, 0.66)
pt3dadd(38.521, 64.513, 15.792, 0.658)
pt3dadd(38.401, 64.512, 15.791, 0.654)
pt3dadd(38.281, 64.512, 15.79, 0.65)
pt3dadd(38.161, 64.511, 15.789, 0.648)
pt3dadd(38.041, 64.51, 15.787, 0.636)
pt3dadd(37.921, 64.509, 15.785, 0.6)
pt3dadd(37.801, 64.507, 15.783, 0.564)
pt3dadd(37.681, 64.506, 15.78, 0.528)
pt3dadd(37.561, 64.504, 15.778, 0.492)
pt3dadd(37.441, 64.503, 15.776, 0.454)
pt3dadd(37.321, 64.502, 15.774, 0.42)
pt3dadd(37.201, 64.5, 15.772, 0.382)
pt3dadd(37.081, 64.499, 15.769, 0.346)
pt3dadd(36.961, 64.497, 15.767, 0.31)
pt3dadd(36.841, 64.496, 15.764, 0.282)
pt3dadd(36.721, 64.493, 15.759, 0.278)
pt3dadd(36.602, 64.49, 15.754, 0.272)
pt3dadd(36.482, 64.487, 15.749, 0.266)
pt3dadd(36.362, 64.484, 15.744, 0.26)
pt3dadd(36.242, 64.482, 15.739, 0.254)
pt3dadd(36.122, 64.479, 15.734, 0.248)
pt3dadd(36.003, 64.476, 15.728, 0.242)
pt3dadd(35.883, 64.473, 15.723, 0.236)
pt3dadd(35.763, 64.47, 15.718, 0.23)
pt3dadd(35.643, 64.467, 15.712, 0.228)
pt3dadd(35.524, 64.462, 15.705, 0.24)
pt3dadd(35.404, 64.456, 15.697, 0.252)
pt3dadd(35.285, 64.451, 15.689, 0.262)
pt3dadd(35.165, 64.446, 15.682, 0.274)
pt3dadd(35.046, 64.441, 15.674, 0.284)
pt3dadd(34.926, 64.435, 15.666, 0.296)
pt3dadd(34.806, 64.43, 15.659, 0.306)
pt3dadd(34.687, 64.425, 15.651, 0.318)
pt3dadd(34.567, 64.42, 15.643, 0.328)
pt3dadd(34.449, 64.413, 15.633, 0.342)
pt3dadd(34.331, 64.403, 15.614, 0.36)
pt3dadd(34.214, 64.393, 15.595, 0.38)
pt3dadd(34.096, 64.383, 15.577, 0.398)
pt3dadd(33.979, 64.373, 15.558, 0.416)
pt3dadd(33.861, 64.363, 15.539, 0.436)
pt3dadd(33.744, 64.353, 15.521, 0.454)
pt3dadd(33.626, 64.343, 15.502, 0.474)
pt3dadd(33.509, 64.333, 15.483, 0.492)
pt3dadd(33.391, 64.323, 15.465, 0.51)
pt3dadd(33.276, 64.31, 15.442, 0.53)
pt3dadd(33.163, 64.292, 15.411, 0.554)
pt3dadd(33.05, 64.274, 15.38, 0.576)
pt3dadd(32.938, 64.256, 15.349, 0.598)
pt3dadd(32.825, 64.237, 15.318, 0.62)
pt3dadd(32.712, 64.219, 15.287, 0.644)
pt3dadd(32.6, 64.201, 15.256, 0.666)
pt3dadd(32.487, 64.183, 15.225, 0.688)
pt3dadd(32.375, 64.164, 15.194, 0.71)
pt3dadd(32.262, 64.146, 15.163, 0.734)
pt3dadd(32.149, 64.119, 15.14, 0.762)
pt3dadd(32.037, 64.08, 15.13, 0.8)
pt3dadd(31.924, 64.04, 15.12, 0.836)
pt3dadd(31.811, 64.001, 15.109, 0.874)
pt3dadd(31.699, 63.961, 15.099, 0.912)
pt3dadd(31.586, 63.922, 15.089, 0.948)
pt3dadd(31.473, 63.882, 15.079, 0.986)
pt3dadd(31.361, 63.843, 15.068, 1.024)
pt3dadd(31.248, 63.803, 15.058, 1.06)
pt3dadd(31.136, 63.763, 15.048, 1.098)
pt3dadd(31.054, 63.69, 15.068, 1.098)
pt3dadd(30.989, 63.599, 15.104, 1.078)
pt3dadd(30.923, 63.508, 15.141, 1.058)
pt3dadd(30.858, 63.418, 15.177, 1.036)
}
}
proc shape3d_126() {
dend_7[7] { pt3dadd(30.792, 63.327, 15.213, 1.016)
pt3dadd(30.726, 63.236, 15.249, 0.996)
pt3dadd(30.661, 63.146, 15.285, 0.976)
pt3dadd(30.595, 63.055, 15.321, 0.956)
pt3dadd(30.53, 62.964, 15.357, 0.936)
pt3dadd(30.464, 62.874, 15.393, 0.916)
pt3dadd(30.416, 62.771, 15.424, 0.922)
pt3dadd(30.377, 62.663, 15.453, 0.942)
pt3dadd(30.338, 62.555, 15.482, 0.96)
pt3dadd(30.298, 62.447, 15.511, 0.978)
pt3dadd(30.259, 62.339, 15.54, 0.998)
pt3dadd(30.22, 62.231, 15.568, 1.016)
pt3dadd(30.181, 62.123, 15.597, 1.034)
pt3dadd(30.141, 62.015, 15.626, 1.054)
pt3dadd(30.102, 61.907, 15.655, 1.072)
pt3dadd(30.063, 61.799, 15.684, 1.09)
pt3dadd(30.012, 61.694, 15.706, 1.072)
pt3dadd(29.955, 61.591, 15.724, 1.034)
pt3dadd(29.899, 61.488, 15.743, 0.998)
pt3dadd(29.842, 61.384, 15.762, 0.96)
pt3dadd(29.786, 61.281, 15.781, 0.924)
pt3dadd(29.729, 61.178, 15.8, 0.886)
pt3dadd(29.673, 61.074, 15.819, 0.848)
pt3dadd(29.616, 60.971, 15.837, 0.812)
pt3dadd(29.559, 60.867, 15.856, 0.774)
pt3dadd(29.503, 60.764, 15.875, 0.738)
pt3dadd(29.439, 60.664, 15.89, 0.702)
pt3dadd(29.372, 60.566, 15.904, 0.668)
pt3dadd(29.305, 60.468, 15.918, 0.634)
pt3dadd(29.238, 60.37, 15.932, 0.598)
pt3dadd(29.171, 60.272, 15.946, 0.564)
pt3dadd(29.104, 60.173, 15.959, 0.53)
pt3dadd(29.037, 60.075, 15.973, 0.496)
pt3dadd(28.97, 59.977, 15.987, 0.462)
pt3dadd(28.903, 59.879, 16.001, 0.426)
pt3dadd(28.836, 59.781, 16.015, 0.392)
pt3dadd(28.763, 59.687, 16.026, 0.372)
pt3dadd(28.687, 59.594, 16.036, 0.356)
pt3dadd(28.612, 59.502, 16.046, 0.34)
pt3dadd(28.536, 59.409, 16.056, 0.326)
pt3dadd(28.461, 59.317, 16.066, 0.31)
pt3dadd(28.385, 59.224, 16.077, 0.294)
pt3dadd(28.31, 59.132, 16.087, 0.278)
pt3dadd(28.234, 59.039, 16.097, 0.262)
pt3dadd(28.159, 58.947, 16.107, 0.248)
pt3dadd(28.083, 58.854, 16.117, 0.232)
pt3dadd(28.014, 58.769, 16.154, 0.258)
pt3dadd(27.948, 58.686, 16.2, 0.298)
pt3dadd(27.881, 58.602, 16.246, 0.34)
pt3dadd(27.814, 58.519, 16.292, 0.38)
pt3dadd(27.747, 58.436, 16.338, 0.42)
pt3dadd(27.681, 58.353, 16.384, 0.462)
pt3dadd(27.614, 58.27, 16.429, 0.502)
pt3dadd(27.547, 58.187, 16.475, 0.542)
pt3dadd(27.48, 58.104, 16.521, 0.584)
pt3dadd(27.413, 58.021, 16.567, 0.624)
pt3dadd(27.347, 57.929, 16.599, 0.612)
pt3dadd(27.28, 57.835, 16.628, 0.582)
pt3dadd(27.213, 57.742, 16.656, 0.554)
pt3dadd(27.147, 57.648, 16.684, 0.524)
pt3dadd(27.08, 57.554, 16.712, 0.494)
pt3dadd(27.014, 57.46, 16.74, 0.466)
pt3dadd(26.947, 57.366, 16.769, 0.436)
pt3dadd(26.88, 57.272, 16.797, 0.408)
pt3dadd(26.814, 57.178, 16.825, 0.378)
pt3dadd(26.747, 57.084, 16.853, 0.348)
pt3dadd(26.697, 56.978, 16.872, 0.344)
pt3dadd(26.652, 56.869, 16.889, 0.346)
pt3dadd(26.606, 56.76, 16.905, 0.346)
pt3dadd(26.561, 56.651, 16.922, 0.348)
pt3dadd(26.515, 56.541, 16.938, 0.35)
pt3dadd(26.47, 56.432, 16.955, 0.352)
pt3dadd(26.424, 56.323, 16.971, 0.354)
pt3dadd(26.379, 56.213, 16.987, 0.354)
pt3dadd(26.334, 56.104, 17.004, 0.356)
pt3dadd(26.288, 55.995, 17.02, 0.358)
pt3dadd(26.258, 55.879, 17.027, 0.366)
pt3dadd(26.23, 55.763, 17.033, 0.376)
pt3dadd(26.201, 55.646, 17.039, 0.386)
pt3dadd(26.173, 55.53, 17.045, 0.394)
pt3dadd(26.144, 55.414, 17.051, 0.404)
pt3dadd(26.116, 55.297, 17.057, 0.414)
pt3dadd(26.088, 55.181, 17.063, 0.424)
pt3dadd(26.059, 55.065, 17.069, 0.432)
pt3dadd(26.031, 54.948, 17.074, 0.442)
pt3dadd(26.002, 54.832, 17.08, 0.452)
pt3dadd(25.982, 54.714, 17.081, 0.448)
pt3dadd(25.962, 54.595, 17.081, 0.444)
pt3dadd(25.942, 54.477, 17.081, 0.44)
pt3dadd(25.922, 54.358, 17.081, 0.436)
pt3dadd(25.903, 54.24, 17.081, 0.432)
pt3dadd(25.883, 54.122, 17.081, 0.428)
pt3dadd(25.863, 54.003, 17.081, 0.424)
pt3dadd(25.843, 53.885, 17.081, 0.42)
pt3dadd(25.823, 53.767, 17.081, 0.416)
pt3dadd(25.804, 53.648, 17.081, 0.412)
pt3dadd(25.789, 53.529, 17.081, 0.394)
pt3dadd(25.775, 53.41, 17.081, 0.376)
pt3dadd(25.761, 53.291, 17.081, 0.358)
pt3dadd(25.747, 53.172, 17.081, 0.342)
pt3dadd(25.733, 53.052, 17.081, 0.322)
pt3dadd(25.719, 52.933, 17.081, 0.306)
pt3dadd(25.705, 52.814, 17.081, 0.288)
pt3dadd(25.691, 52.695, 17.081, 0.27)
pt3dadd(25.677, 52.576, 17.081, 0.252)
pt3dadd(25.663, 52.457, 17.081, 0.234)
pt3dadd(25.621, 52.344, 17.081, 0.246)
pt3dadd(25.577, 52.233, 17.081, 0.262)
pt3dadd(25.533, 52.121, 17.081, 0.278)
pt3dadd(25.489, 52.009, 17.081, 0.294)
pt3dadd(25.445, 51.898, 17.081, 0.308)
pt3dadd(25.401, 51.786, 17.081, 0.324)
pt3dadd(25.358, 51.674, 17.081, 0.34)
pt3dadd(25.314, 51.563, 17.081, 0.356)
pt3dadd(25.27, 51.451, 17.081, 0.37)
pt3dadd(25.226, 51.339, 17.081, 0.386)
pt3dadd(25.189, 51.225, 17.081, 0.382)
pt3dadd(25.152, 51.111, 17.081, 0.378)
pt3dadd(25.116, 50.997, 17.081, 0.372)
pt3dadd(25.079, 50.882, 17.081, 0.368)
pt3dadd(25.042, 50.768, 17.081, 0.362)
pt3dadd(25.006, 50.654, 17.081, 0.358)
pt3dadd(24.969, 50.54, 17.081, 0.352)
pt3dadd(24.932, 50.425, 17.081, 0.346)
pt3dadd(24.896, 50.311, 17.081, 0.342)
pt3dadd(24.859, 50.197, 17.081, 0.336)
pt3dadd(24.835, 50.079, 17.081, 0.326)
pt3dadd(24.812, 49.962, 17.081, 0.314)
pt3dadd(24.788, 49.844, 17.081, 0.304)
pt3dadd(24.765, 49.726, 17.081, 0.292)
pt3dadd(24.741, 49.608, 17.081, 0.282)
pt3dadd(24.718, 49.491, 17.081, 0.27)
pt3dadd(24.695, 49.373, 17.081, 0.26)
pt3dadd(24.671, 49.255, 17.081, 0.248)
pt3dadd(24.648, 49.138, 17.081, 0.238)
pt3dadd(24.624, 49.02, 17.081, 0.226)
pt3dadd(24.613, 48.9, 17.081, 0.226)
pt3dadd(24.601, 48.781, 17.081, 0.226)
pt3dadd(24.589, 48.662, 17.081, 0.226)
pt3dadd(24.577, 48.542, 17.081, 0.226)
pt3dadd(24.565, 48.423, 17.081, 0.226)
pt3dadd(24.553, 48.303, 17.081, 0.226)
pt3dadd(24.541, 48.184, 17.081, 0.226)
pt3dadd(24.529, 48.065, 17.081, 0.226)
pt3dadd(24.517, 47.945, 17.081, 0.226)
pt3dadd(24.505, 47.826, 17.081, 0.226)
}
dend_7[8] {pt3dclear()
pt3dadd(131.662, 93.457, 28.055, 2.034)
pt3dadd(131.687, 93.439, 28.06, 2.016)
pt3dadd(131.782, 93.369, 28.078, 1.946)
pt3dadd(131.876, 93.298, 28.096, 1.878)
pt3dadd(131.971, 93.228, 28.114, 1.808)
pt3dadd(132.066, 93.158, 28.132, 1.738)
pt3dadd(132.161, 93.088, 28.15, 1.67)
pt3dadd(132.256, 93.017, 28.168, 1.6)
pt3dadd(132.35, 92.947, 28.187, 1.53)
pt3dadd(132.445, 92.877, 28.205, 1.46)
pt3dadd(132.54, 92.806, 28.223, 1.392)
pt3dadd(132.635, 92.736, 28.241, 1.322)
pt3dadd(132.73, 92.666, 28.259, 1.252)
pt3dadd(132.824, 92.596, 28.277, 1.182)
pt3dadd(132.919, 92.525, 28.295, 1.114)
pt3dadd(133.014, 92.455, 28.313, 1.044)
pt3dadd(133.109, 92.385, 28.332, 0.974)
pt3dadd(133.204, 92.315, 28.35, 0.906)
pt3dadd(133.298, 92.244, 28.368, 0.836)
pt3dadd(133.393, 92.174, 28.386, 0.766)
pt3dadd(133.488, 92.104, 28.404, 0.696)
pt3dadd(133.583, 92.033, 28.422, 0.628)
pt3dadd(133.67, 91.955, 28.442, 0.622)
pt3dadd(133.753, 91.872, 28.462, 0.654)
pt3dadd(133.836, 91.788, 28.483, 0.686)
pt3dadd(133.919, 91.705, 28.503, 0.716)
pt3dadd(134.002, 91.622, 28.523, 0.748)
pt3dadd(134.084, 91.539, 28.544, 0.78)
pt3dadd(134.167, 91.456, 28.564, 0.812)
pt3dadd(134.25, 91.372, 28.585, 0.842)
pt3dadd(134.333, 91.289, 28.605, 0.874)
pt3dadd(134.417, 91.206, 28.625, 0.906)
pt3dadd(134.495, 91.122, 28.652, 0.942)
pt3dadd(134.57, 91.036, 28.683, 0.98)
pt3dadd(134.647, 90.951, 28.712, 1.018)
pt3dadd(134.724, 90.865, 28.743, 1.058)
pt3dadd(134.8, 90.78, 28.773, 1.096)
pt3dadd(134.876, 90.695, 28.803, 1.134)
pt3dadd(134.952, 90.609, 28.833, 1.172)
pt3dadd(135.029, 90.524, 28.863, 1.212)
pt3dadd(135.104, 90.439, 28.893, 1.25)
pt3dadd(135.181, 90.353, 28.923, 1.288)
pt3dadd(135.25, 90.27, 28.967, 1.282)
pt3dadd(135.316, 90.188, 29.014, 1.266)
pt3dadd(135.383, 90.106, 29.061, 1.248)
pt3dadd(135.449, 90.024, 29.108, 1.232)
pt3dadd(135.516, 89.941, 29.156, 1.216)
pt3dadd(135.582, 89.859, 29.203, 1.198)
pt3dadd(135.648, 89.777, 29.25, 1.182)
pt3dadd(135.715, 89.694, 29.297, 1.166)
pt3dadd(135.781, 89.612, 29.344, 1.148)
pt3dadd(135.848, 89.53, 29.391, 1.132)
pt3dadd(135.918, 89.439, 29.421, 1.13)
pt3dadd(135.989, 89.348, 29.448, 1.132)
}
}
proc shape3d_127() {
dend_7[8] { pt3dadd(136.06, 89.257, 29.475, 1.132)
pt3dadd(136.13, 89.166, 29.502, 1.132)
pt3dadd(136.201, 89.075, 29.53, 1.134)
pt3dadd(136.272, 88.983, 29.557, 1.134)
pt3dadd(136.343, 88.892, 29.584, 1.134)
pt3dadd(136.414, 88.801, 29.612, 1.136)
pt3dadd(136.484, 88.71, 29.639, 1.136)
pt3dadd(136.555, 88.619, 29.666, 1.136)
pt3dadd(136.604, 88.512, 29.685, 1.154)
pt3dadd(136.652, 88.404, 29.704, 1.172)
pt3dadd(136.699, 88.296, 29.722, 1.19)
pt3dadd(136.747, 88.188, 29.74, 1.208)
pt3dadd(136.795, 88.08, 29.759, 1.226)
pt3dadd(136.842, 87.972, 29.777, 1.244)
pt3dadd(136.89, 87.864, 29.795, 1.262)
pt3dadd(136.938, 87.756, 29.814, 1.28)
pt3dadd(136.985, 87.648, 29.832, 1.298)
pt3dadd(137.033, 87.54, 29.851, 1.316)
pt3dadd(137.089, 87.436, 29.863, 1.31)
pt3dadd(137.147, 87.331, 29.875, 1.302)
pt3dadd(137.204, 87.227, 29.887, 1.294)
pt3dadd(137.262, 87.123, 29.898, 1.286)
pt3dadd(137.32, 87.018, 29.91, 1.276)
pt3dadd(137.377, 86.914, 29.922, 1.268)
pt3dadd(137.435, 86.81, 29.934, 1.26)
pt3dadd(137.492, 86.705, 29.946, 1.252)
pt3dadd(137.55, 86.601, 29.958, 1.244)
pt3dadd(137.608, 86.497, 29.969, 1.236)
pt3dadd(137.662, 86.392, 29.987, 1.212)
pt3dadd(137.716, 86.287, 30.005, 1.186)
pt3dadd(137.77, 86.182, 30.023, 1.16)
pt3dadd(137.822, 86.077, 30.042, 1.134)
pt3dadd(137.876, 85.972, 30.06, 1.108)
pt3dadd(137.93, 85.867, 30.078, 1.084)
pt3dadd(137.984, 85.762, 30.096, 1.058)
pt3dadd(138.038, 85.657, 30.114, 1.032)
pt3dadd(138.092, 85.552, 30.132, 1.006)
pt3dadd(138.145, 85.447, 30.151, 0.98)
pt3dadd(138.184, 85.341, 30.186, 0.932)
pt3dadd(138.222, 85.236, 30.222, 0.886)
pt3dadd(138.26, 85.13, 30.257, 0.838)
pt3dadd(138.299, 85.024, 30.292, 0.792)
pt3dadd(138.337, 84.919, 30.327, 0.744)
pt3dadd(138.376, 84.813, 30.363, 0.696)
pt3dadd(138.414, 84.708, 30.398, 0.65)
pt3dadd(138.451, 84.602, 30.433, 0.602)
pt3dadd(138.49, 84.497, 30.468, 0.556)
pt3dadd(138.529, 84.391, 30.503, 0.51)
pt3dadd(138.581, 84.287, 30.527, 0.518)
pt3dadd(138.632, 84.182, 30.55, 0.526)
pt3dadd(138.684, 84.077, 30.573, 0.534)
pt3dadd(138.736, 83.973, 30.596, 0.542)
pt3dadd(138.787, 83.868, 30.62, 0.55)
pt3dadd(138.839, 83.763, 30.643, 0.558)
pt3dadd(138.89, 83.659, 30.666, 0.566)
pt3dadd(138.942, 83.554, 30.689, 0.572)
pt3dadd(138.994, 83.449, 30.713, 0.58)
pt3dadd(139.045, 83.344, 30.736, 0.59)
pt3dadd(139.088, 83.234, 30.753, 0.614)
pt3dadd(139.132, 83.124, 30.77, 0.636)
pt3dadd(139.175, 83.014, 30.787, 0.66)
pt3dadd(139.218, 82.904, 30.804, 0.684)
pt3dadd(139.261, 82.794, 30.821, 0.708)
pt3dadd(139.304, 82.684, 30.839, 0.732)
pt3dadd(139.349, 82.574, 30.856, 0.756)
pt3dadd(139.392, 82.464, 30.873, 0.778)
pt3dadd(139.435, 82.354, 30.89, 0.802)
pt3dadd(139.476, 82.244, 30.906, 0.828)
pt3dadd(139.502, 82.127, 30.916, 0.858)
pt3dadd(139.53, 82.011, 30.926, 0.888)
pt3dadd(139.556, 81.894, 30.935, 0.92)
pt3dadd(139.584, 81.778, 30.945, 0.95)
pt3dadd(139.61, 81.662, 30.955, 0.98)
pt3dadd(139.638, 81.545, 30.964, 1.012)
pt3dadd(139.664, 81.429, 30.974, 1.042)
pt3dadd(139.691, 81.313, 30.984, 1.074)
pt3dadd(139.718, 81.196, 30.993, 1.104)
pt3dadd(139.744, 81.079, 31.002, 1.13)
pt3dadd(139.757, 80.96, 31.002, 1.13)
pt3dadd(139.77, 80.841, 31.002, 1.13)
pt3dadd(139.783, 80.722, 31.003, 1.13)
pt3dadd(139.796, 80.603, 31.003, 1.13)
pt3dadd(139.811, 80.483, 31.003, 1.13)
pt3dadd(139.824, 80.364, 31.004, 1.13)
pt3dadd(139.837, 80.245, 31.004, 1.13)
pt3dadd(139.85, 80.126, 31.004, 1.13)
pt3dadd(139.864, 80.006, 31.005, 1.13)
pt3dadd(139.876, 79.887, 31.005, 1.128)
pt3dadd(139.878, 79.767, 31.005, 1.112)
pt3dadd(139.88, 79.647, 31.006, 1.098)
pt3dadd(139.883, 79.527, 31.007, 1.082)
pt3dadd(139.885, 79.407, 31.007, 1.068)
pt3dadd(139.888, 79.287, 31.008, 1.054)
pt3dadd(139.89, 79.167, 31.008, 1.038)
pt3dadd(139.892, 79.047, 31.009, 1.024)
pt3dadd(139.894, 78.927, 31.01, 1.008)
pt3dadd(139.896, 78.807, 31.01, 0.994)
pt3dadd(139.898, 78.687, 31.011, 0.982)
pt3dadd(139.898, 78.567, 31.012, 0.984)
pt3dadd(139.9, 78.447, 31.013, 0.986)
pt3dadd(139.9, 78.327, 31.014, 0.988)
pt3dadd(139.9, 78.207, 31.015, 0.992)
pt3dadd(139.901, 78.087, 31.016, 0.994)
pt3dadd(139.901, 77.967, 31.017, 0.996)
pt3dadd(139.901, 77.847, 31.018, 0.998)
pt3dadd(139.901, 77.727, 31.02, 1.002)
pt3dadd(139.902, 77.607, 31.021, 1.004)
pt3dadd(139.902, 77.487, 31.022, 1.008)
pt3dadd(139.902, 77.367, 31.024, 1.02)
pt3dadd(139.903, 77.247, 31.026, 1.032)
pt3dadd(139.903, 77.127, 31.028, 1.046)
pt3dadd(139.904, 77.007, 31.029, 1.058)
pt3dadd(139.904, 76.887, 31.031, 1.07)
pt3dadd(139.904, 76.767, 31.033, 1.082)
pt3dadd(139.906, 76.647, 31.035, 1.094)
pt3dadd(139.906, 76.527, 31.037, 1.108)
pt3dadd(139.907, 76.407, 31.039, 1.12)
pt3dadd(139.907, 76.287, 31.041, 1.13)
pt3dadd(139.908, 76.168, 31.044, 1.13)
pt3dadd(139.909, 76.048, 31.047, 1.132)
pt3dadd(139.91, 75.928, 31.05, 1.132)
pt3dadd(139.912, 75.808, 31.053, 1.132)
pt3dadd(139.913, 75.688, 31.056, 1.134)
pt3dadd(139.914, 75.568, 31.059, 1.134)
pt3dadd(139.914, 75.448, 31.062, 1.136)
pt3dadd(139.915, 75.328, 31.065, 1.136)
pt3dadd(139.916, 75.208, 31.068, 1.136)
pt3dadd(139.918, 75.088, 31.072, 1.14)
pt3dadd(139.92, 74.968, 31.079, 1.158)
pt3dadd(139.922, 74.849, 31.086, 1.176)
pt3dadd(139.925, 74.729, 31.093, 1.194)
pt3dadd(139.926, 74.609, 31.1, 1.212)
pt3dadd(139.928, 74.49, 31.107, 1.23)
pt3dadd(139.931, 74.37, 31.114, 1.248)
pt3dadd(139.933, 74.25, 31.122, 1.264)
pt3dadd(139.936, 74.131, 31.129, 1.282)
pt3dadd(139.937, 74.011, 31.136, 1.3)
pt3dadd(139.939, 73.891, 31.143, 1.314)
pt3dadd(139.944, 73.772, 31.154, 1.304)
pt3dadd(139.948, 73.653, 31.165, 1.294)
pt3dadd(139.951, 73.534, 31.176, 1.286)
pt3dadd(139.955, 73.414, 31.186, 1.276)
pt3dadd(139.958, 73.295, 31.197, 1.266)
pt3dadd(139.962, 73.176, 31.208, 1.256)
pt3dadd(139.966, 73.057, 31.218, 1.246)
pt3dadd(139.969, 72.937, 31.229, 1.236)
pt3dadd(139.973, 72.818, 31.239, 1.226)
pt3dadd(139.978, 72.699, 31.252, 1.216)
pt3dadd(139.985, 72.583, 31.277, 1.198)
pt3dadd(139.992, 72.467, 31.302, 1.182)
pt3dadd(139.998, 72.351, 31.327, 1.164)
pt3dadd(140.005, 72.235, 31.352, 1.146)
pt3dadd(140.012, 72.119, 31.376, 1.13)
pt3dadd(140.02, 72.003, 31.401, 1.112)
pt3dadd(140.027, 71.887, 31.426, 1.094)
pt3dadd(140.034, 71.771, 31.451, 1.078)
pt3dadd(140.041, 71.655, 31.476, 1.06)
pt3dadd(140.048, 71.54, 31.503, 1.044)
pt3dadd(140.059, 71.428, 31.539, 1.032)
pt3dadd(140.07, 71.317, 31.574, 1.02)
pt3dadd(140.081, 71.205, 31.61, 1.008)
pt3dadd(140.092, 71.094, 31.646, 0.996)
pt3dadd(140.102, 70.982, 31.682, 0.984)
pt3dadd(140.113, 70.871, 31.717, 0.972)
pt3dadd(140.124, 70.759, 31.753, 0.96)
pt3dadd(140.135, 70.647, 31.789, 0.948)
pt3dadd(140.144, 70.536, 31.824, 0.936)
pt3dadd(140.158, 70.423, 31.857, 0.932)
pt3dadd(140.174, 70.308, 31.882, 0.948)
pt3dadd(140.192, 70.193, 31.906, 0.966)
pt3dadd(140.209, 70.078, 31.931, 0.984)
pt3dadd(140.227, 69.963, 31.955, 1)
pt3dadd(140.244, 69.848, 31.98, 1.018)
pt3dadd(140.262, 69.733, 32.004, 1.036)
pt3dadd(140.279, 69.618, 32.029, 1.052)
pt3dadd(140.297, 69.503, 32.053, 1.07)
pt3dadd(140.314, 69.388, 32.077, 1.088)
pt3dadd(140.339, 69.274, 32.099, 1.1)
pt3dadd(140.386, 69.165, 32.113, 1.104)
pt3dadd(140.432, 69.056, 32.127, 1.106)
pt3dadd(140.478, 68.946, 32.141, 1.11)
pt3dadd(140.525, 68.837, 32.154, 1.112)
pt3dadd(140.572, 68.727, 32.168, 1.116)
pt3dadd(140.617, 68.618, 32.182, 1.118)
pt3dadd(140.664, 68.509, 32.196, 1.122)
pt3dadd(140.711, 68.399, 32.21, 1.126)
pt3dadd(140.756, 68.29, 32.223, 1.128)
pt3dadd(140.804, 68.181, 32.235, 1.126)
pt3dadd(140.854, 68.071, 32.243, 1.11)
pt3dadd(140.902, 67.962, 32.251, 1.096)
pt3dadd(140.951, 67.853, 32.259, 1.08)
pt3dadd(141, 67.744, 32.266, 1.066)
pt3dadd(141.049, 67.635, 32.274, 1.052)
pt3dadd(141.097, 67.525, 32.282, 1.038)
pt3dadd(141.146, 67.416, 32.29, 1.022)
pt3dadd(141.196, 67.307, 32.297, 1.008)
pt3dadd(141.245, 67.198, 32.305, 0.994)
pt3dadd(141.293, 67.088, 32.311, 0.972)
pt3dadd(141.338, 66.978, 32.315, 0.94)
pt3dadd(141.385, 66.867, 32.318, 0.908)
}
}
proc shape3d_128() {
dend_7[8] { pt3dadd(141.431, 66.756, 32.321, 0.876)
pt3dadd(141.476, 66.645, 32.325, 0.842)
pt3dadd(141.523, 66.535, 32.328, 0.81)
pt3dadd(141.569, 66.424, 32.331, 0.778)
pt3dadd(141.616, 66.313, 32.334, 0.746)
pt3dadd(141.661, 66.203, 32.338, 0.714)
pt3dadd(141.708, 66.092, 32.341, 0.68)
pt3dadd(141.76, 65.984, 32.346, 0.654)
pt3dadd(141.821, 65.881, 32.352, 0.638)
pt3dadd(141.883, 65.779, 32.359, 0.622)
pt3dadd(141.944, 65.676, 32.366, 0.604)
pt3dadd(142.006, 65.573, 32.373, 0.588)
pt3dadd(142.067, 65.471, 32.379, 0.572)
pt3dadd(142.129, 65.368, 32.386, 0.556)
pt3dadd(142.19, 65.265, 32.393, 0.538)
pt3dadd(142.252, 65.163, 32.4, 0.522)
pt3dadd(142.314, 65.06, 32.407, 0.506)
pt3dadd(142.37, 64.955, 32.415, 0.514)
pt3dadd(142.42, 64.846, 32.426, 0.566)
pt3dadd(142.468, 64.737, 32.438, 0.616)
pt3dadd(142.517, 64.629, 32.449, 0.668)
pt3dadd(142.566, 64.52, 32.46, 0.718)
pt3dadd(142.615, 64.411, 32.472, 0.77)
pt3dadd(142.663, 64.302, 32.483, 0.82)
pt3dadd(142.712, 64.194, 32.494, 0.872)
pt3dadd(142.762, 64.085, 32.506, 0.922)
pt3dadd(142.81, 63.976, 32.517, 0.974)
pt3dadd(142.858, 63.87, 32.538, 0.994)
pt3dadd(142.904, 63.768, 32.573, 0.968)
pt3dadd(142.951, 63.666, 32.608, 0.942)
pt3dadd(142.998, 63.564, 32.643, 0.914)
pt3dadd(143.045, 63.462, 32.678, 0.888)
pt3dadd(143.092, 63.359, 32.714, 0.862)
pt3dadd(143.138, 63.257, 32.749, 0.836)
pt3dadd(143.185, 63.155, 32.784, 0.808)
pt3dadd(143.232, 63.053, 32.819, 0.782)
pt3dadd(143.279, 62.951, 32.854, 0.756)
pt3dadd(143.334, 62.855, 32.893, 0.732)
pt3dadd(143.393, 62.763, 32.934, 0.712)
pt3dadd(143.452, 62.67, 32.974, 0.69)
pt3dadd(143.512, 62.578, 33.015, 0.67)
pt3dadd(143.57, 62.486, 33.055, 0.648)
pt3dadd(143.629, 62.393, 33.096, 0.626)
pt3dadd(143.689, 62.301, 33.137, 0.606)
pt3dadd(143.748, 62.209, 33.177, 0.584)
pt3dadd(143.807, 62.116, 33.218, 0.562)
pt3dadd(143.867, 62.024, 33.258, 0.542)
pt3dadd(143.934, 61.932, 33.287, 0.56)
pt3dadd(144.006, 61.84, 33.312, 0.59)
pt3dadd(144.077, 61.748, 33.337, 0.622)
pt3dadd(144.148, 61.656, 33.362, 0.652)
pt3dadd(144.218, 61.564, 33.387, 0.684)
pt3dadd(144.29, 61.472, 33.412, 0.714)
pt3dadd(144.361, 61.38, 33.437, 0.746)
pt3dadd(144.432, 61.288, 33.462, 0.776)
pt3dadd(144.503, 61.196, 33.486, 0.808)
pt3dadd(144.574, 61.104, 33.511, 0.838)
pt3dadd(144.649, 61.013, 33.53, 0.832)
pt3dadd(144.725, 60.923, 33.547, 0.816)
pt3dadd(144.8, 60.832, 33.564, 0.8)
pt3dadd(144.876, 60.741, 33.58, 0.784)
pt3dadd(144.952, 60.65, 33.597, 0.766)
pt3dadd(145.027, 60.559, 33.614, 0.75)
pt3dadd(145.103, 60.468, 33.631, 0.734)
pt3dadd(145.178, 60.377, 33.648, 0.718)
pt3dadd(145.255, 60.287, 33.665, 0.7)
pt3dadd(145.331, 60.196, 33.681, 0.684)
pt3dadd(145.39, 60.093, 33.694, 0.694)
pt3dadd(145.444, 59.987, 33.706, 0.712)
pt3dadd(145.498, 59.88, 33.718, 0.728)
pt3dadd(145.552, 59.774, 33.73, 0.746)
pt3dadd(145.606, 59.668, 33.742, 0.764)
pt3dadd(145.66, 59.562, 33.754, 0.782)
pt3dadd(145.714, 59.456, 33.765, 0.798)
pt3dadd(145.768, 59.349, 33.777, 0.816)
pt3dadd(145.822, 59.243, 33.789, 0.834)
pt3dadd(145.876, 59.137, 33.801, 0.852)
pt3dadd(145.922, 59.036, 33.836, 0.846)
pt3dadd(145.968, 58.937, 33.878, 0.834)
pt3dadd(146.012, 58.838, 33.92, 0.82)
pt3dadd(146.058, 58.739, 33.963, 0.808)
pt3dadd(146.104, 58.64, 34.005, 0.796)
pt3dadd(146.148, 58.541, 34.047, 0.784)
pt3dadd(146.194, 58.442, 34.089, 0.772)
pt3dadd(146.239, 58.343, 34.131, 0.76)
pt3dadd(146.284, 58.244, 34.173, 0.748)
pt3dadd(146.329, 58.145, 34.215, 0.736)
pt3dadd(146.386, 58.048, 34.249, 0.758)
pt3dadd(146.443, 57.951, 34.283, 0.782)
pt3dadd(146.501, 57.853, 34.316, 0.806)
pt3dadd(146.56, 57.756, 34.35, 0.828)
pt3dadd(146.617, 57.659, 34.383, 0.852)
pt3dadd(146.675, 57.561, 34.417, 0.876)
pt3dadd(146.732, 57.464, 34.45, 0.9)
pt3dadd(146.79, 57.367, 34.484, 0.924)
pt3dadd(146.848, 57.27, 34.517, 0.948)
pt3dadd(146.905, 57.172, 34.55, 0.97)
pt3dadd(146.959, 57.067, 34.568, 0.976)
pt3dadd(147.013, 56.962, 34.587, 0.98)
pt3dadd(147.067, 56.857, 34.605, 0.986)
pt3dadd(147.121, 56.753, 34.623, 0.992)
pt3dadd(147.175, 56.648, 34.642, 0.996)
pt3dadd(147.229, 56.543, 34.66, 1.002)
pt3dadd(147.283, 56.438, 34.679, 1.006)
pt3dadd(147.337, 56.333, 34.697, 1.012)
pt3dadd(147.391, 56.228, 34.715, 1.018)
pt3dadd(147.445, 56.123, 34.733, 1.02)
pt3dadd(147.497, 56.016, 34.741, 1.008)
pt3dadd(147.548, 55.908, 34.749, 0.998)
pt3dadd(147.6, 55.8, 34.758, 0.986)
pt3dadd(147.653, 55.692, 34.766, 0.974)
pt3dadd(147.704, 55.584, 34.774, 0.962)
pt3dadd(147.756, 55.477, 34.782, 0.95)
pt3dadd(147.808, 55.369, 34.791, 0.938)
pt3dadd(147.859, 55.261, 34.799, 0.926)
pt3dadd(147.912, 55.153, 34.807, 0.914)
pt3dadd(147.965, 55.046, 34.814, 0.904)
pt3dadd(148.024, 54.942, 34.816, 0.904)
pt3dadd(148.082, 54.837, 34.817, 0.904)
pt3dadd(148.141, 54.732, 34.818, 0.904)
pt3dadd(148.2, 54.628, 34.82, 0.904)
pt3dadd(148.259, 54.523, 34.821, 0.904)
pt3dadd(148.318, 54.419, 34.822, 0.904)
pt3dadd(148.376, 54.314, 34.824, 0.904)
pt3dadd(148.436, 54.21, 34.825, 0.904)
pt3dadd(148.495, 54.105, 34.826, 0.904)
pt3dadd(148.552, 54, 34.828, 0.904)
pt3dadd(148.594, 53.887, 34.831, 0.904)
pt3dadd(148.636, 53.775, 34.833, 0.904)
pt3dadd(148.678, 53.663, 34.836, 0.904)
pt3dadd(148.72, 53.55, 34.839, 0.904)
pt3dadd(148.762, 53.438, 34.842, 0.904)
pt3dadd(148.804, 53.326, 34.845, 0.904)
pt3dadd(148.846, 53.213, 34.847, 0.904)
pt3dadd(148.888, 53.101, 34.85, 0.904)
pt3dadd(148.93, 52.989, 34.853, 0.904)
pt3dadd(148.972, 52.876, 34.856, 0.906)
pt3dadd(149.01, 52.763, 34.862, 0.918)
pt3dadd(149.048, 52.65, 34.868, 0.928)
pt3dadd(149.088, 52.536, 34.873, 0.94)
pt3dadd(149.126, 52.423, 34.879, 0.952)
pt3dadd(149.165, 52.309, 34.885, 0.962)
pt3dadd(149.204, 52.196, 34.891, 0.974)
pt3dadd(149.243, 52.083, 34.897, 0.986)
pt3dadd(149.281, 51.969, 34.902, 0.996)
pt3dadd(149.321, 51.856, 34.908, 1.008)
pt3dadd(149.36, 51.743, 34.914, 1.018)
pt3dadd(149.407, 51.633, 34.924, 1.022)
pt3dadd(149.455, 51.524, 34.933, 1.028)
pt3dadd(149.502, 51.414, 34.942, 1.032)
pt3dadd(149.549, 51.304, 34.951, 1.036)
pt3dadd(149.597, 51.194, 34.961, 1.042)
pt3dadd(149.644, 51.085, 34.97, 1.046)
pt3dadd(149.69, 50.975, 34.979, 1.05)
pt3dadd(149.738, 50.865, 34.988, 1.056)
pt3dadd(149.785, 50.755, 34.998, 1.06)
pt3dadd(149.836, 50.648, 35.008, 1.06)
pt3dadd(149.9, 50.548, 35.022, 1.046)
pt3dadd(149.964, 50.448, 35.036, 1.032)
pt3dadd(150.029, 50.348, 35.05, 1.016)
pt3dadd(150.092, 50.247, 35.065, 1.002)
pt3dadd(150.156, 50.147, 35.079, 0.986)
pt3dadd(150.221, 50.047, 35.093, 0.972)
pt3dadd(150.284, 49.947, 35.107, 0.958)
pt3dadd(150.348, 49.847, 35.122, 0.942)
pt3dadd(150.413, 49.747, 35.136, 0.928)
pt3dadd(150.481, 49.655, 35.158, 0.922)
pt3dadd(150.564, 49.585, 35.2, 0.94)
pt3dadd(150.648, 49.514, 35.242, 0.958)
pt3dadd(150.731, 49.443, 35.283, 0.976)
pt3dadd(150.814, 49.372, 35.325, 0.994)
pt3dadd(150.896, 49.302, 35.367, 1.012)
pt3dadd(150.979, 49.231, 35.409, 1.03)
pt3dadd(151.062, 49.16, 35.451, 1.048)
pt3dadd(151.145, 49.089, 35.492, 1.066)
pt3dadd(151.228, 49.018, 35.534, 1.084)
pt3dadd(151.306, 48.941, 35.573, 1.104)
pt3dadd(151.37, 48.848, 35.606, 1.122)
pt3dadd(151.435, 48.755, 35.639, 1.142)
pt3dadd(151.499, 48.662, 35.673, 1.162)
pt3dadd(151.564, 48.569, 35.705, 1.182)
pt3dadd(151.628, 48.476, 35.739, 1.202)
pt3dadd(151.693, 48.383, 35.771, 1.222)
pt3dadd(151.758, 48.29, 35.805, 1.242)
pt3dadd(151.822, 48.197, 35.838, 1.262)
pt3dadd(151.886, 48.104, 35.871, 1.28)
pt3dadd(151.944, 48.005, 35.9, 1.292)
pt3dadd(151.988, 47.898, 35.924, 1.284)
pt3dadd(152.032, 47.79, 35.948, 1.276)
pt3dadd(152.076, 47.682, 35.972, 1.268)
pt3dadd(152.12, 47.574, 35.996, 1.26)
pt3dadd(152.165, 47.466, 36.02, 1.252)
pt3dadd(152.208, 47.358, 36.044, 1.244)
pt3dadd(152.252, 47.251, 36.068, 1.236)
pt3dadd(152.297, 47.143, 36.092, 1.228)
pt3dadd(152.341, 47.035, 36.116, 1.22)
pt3dadd(152.387, 46.927, 36.137, 1.212)
pt3dadd(152.436, 46.819, 36.152, 1.204)
pt3dadd(152.485, 46.712, 36.168, 1.196)
pt3dadd(152.536, 46.604, 36.183, 1.186)
}
}
proc shape3d_129() {
dend_7[8] { pt3dadd(152.585, 46.496, 36.199, 1.178)
pt3dadd(152.634, 46.388, 36.214, 1.17)
pt3dadd(152.683, 46.28, 36.23, 1.16)
pt3dadd(152.732, 46.173, 36.245, 1.152)
pt3dadd(152.782, 46.065, 36.261, 1.144)
pt3dadd(152.831, 45.957, 36.276, 1.134)
pt3dadd(152.886, 45.853, 36.295, 1.124)
pt3dadd(152.945, 45.752, 36.317, 1.112)
pt3dadd(153.005, 45.652, 36.34, 1.1)
pt3dadd(153.065, 45.551, 36.362, 1.086)
pt3dadd(153.125, 45.451, 36.384, 1.074)
pt3dadd(153.185, 45.35, 36.407, 1.062)
pt3dadd(153.244, 45.249, 36.429, 1.05)
pt3dadd(153.304, 45.149, 36.451, 1.036)
pt3dadd(153.364, 45.048, 36.474, 1.024)
pt3dadd(153.424, 44.948, 36.496, 1.012)
pt3dadd(153.486, 44.856, 36.532, 0.992)
pt3dadd(153.55, 44.768, 36.575, 0.966)
pt3dadd(153.613, 44.681, 36.618, 0.942)
pt3dadd(153.677, 44.593, 36.661, 0.918)
pt3dadd(153.74, 44.506, 36.704, 0.892)
pt3dadd(153.804, 44.418, 36.748, 0.868)
pt3dadd(153.869, 44.331, 36.791, 0.842)
pt3dadd(153.932, 44.243, 36.834, 0.818)
pt3dadd(153.996, 44.156, 36.877, 0.794)
pt3dadd(154.06, 44.068, 36.92, 0.768)
pt3dadd(154.132, 43.98, 36.95, 0.786)
pt3dadd(154.206, 43.89, 36.975, 0.82)
pt3dadd(154.28, 43.801, 37, 0.856)
pt3dadd(154.355, 43.712, 37.025, 0.892)
pt3dadd(154.429, 43.623, 37.049, 0.926)
pt3dadd(154.505, 43.534, 37.074, 0.962)
pt3dadd(154.579, 43.445, 37.099, 0.998)
pt3dadd(154.654, 43.356, 37.124, 1.034)
pt3dadd(154.728, 43.267, 37.148, 1.068)
pt3dadd(154.804, 43.178, 37.173, 1.104)
pt3dadd(154.866, 43.078, 37.189, 1.104)
pt3dadd(154.922, 42.973, 37.202, 1.088)
pt3dadd(154.98, 42.869, 37.214, 1.072)
pt3dadd(155.038, 42.764, 37.226, 1.058)
pt3dadd(155.094, 42.66, 37.239, 1.042)
pt3dadd(155.152, 42.555, 37.251, 1.026)
pt3dadd(155.209, 42.451, 37.263, 1.012)
pt3dadd(155.266, 42.347, 37.276, 0.996)
pt3dadd(155.323, 42.242, 37.288, 0.98)
pt3dadd(155.38, 42.138, 37.3, 0.964)
pt3dadd(155.444, 42.036, 37.307, 0.97)
pt3dadd(155.51, 41.937, 37.312, 0.986)
pt3dadd(155.576, 41.837, 37.316, 1)
pt3dadd(155.644, 41.737, 37.321, 1.014)
pt3dadd(155.71, 41.637, 37.326, 1.028)
pt3dadd(155.777, 41.538, 37.33, 1.042)
pt3dadd(155.843, 41.438, 37.335, 1.056)
pt3dadd(155.909, 41.338, 37.339, 1.072)
pt3dadd(155.976, 41.238, 37.344, 1.086)
pt3dadd(156.042, 41.139, 37.349, 1.1)
pt3dadd(156.113, 41.042, 37.351, 1.12)
pt3dadd(156.185, 40.945, 37.352, 1.14)
pt3dadd(156.256, 40.849, 37.354, 1.162)
pt3dadd(156.328, 40.753, 37.355, 1.184)
pt3dadd(156.4, 40.657, 37.357, 1.204)
pt3dadd(156.472, 40.561, 37.358, 1.226)
pt3dadd(156.544, 40.465, 37.36, 1.248)
pt3dadd(156.614, 40.368, 37.361, 1.268)
pt3dadd(156.686, 40.272, 37.363, 1.29)
pt3dadd(156.758, 40.176, 37.364, 1.312)
pt3dadd(156.834, 40.083, 37.366, 1.296)
pt3dadd(156.911, 39.991, 37.369, 1.268)
pt3dadd(156.988, 39.899, 37.371, 1.24)
pt3dadd(157.066, 39.807, 37.374, 1.212)
pt3dadd(157.142, 39.715, 37.376, 1.182)
pt3dadd(157.219, 39.623, 37.379, 1.154)
pt3dadd(157.296, 39.531, 37.381, 1.126)
pt3dadd(157.373, 39.439, 37.384, 1.098)
pt3dadd(157.45, 39.347, 37.386, 1.07)
pt3dadd(157.526, 39.255, 37.389, 1.042)
pt3dadd(157.606, 39.165, 37.393, 1.018)
pt3dadd(157.686, 39.075, 37.397, 0.998)
pt3dadd(157.765, 38.986, 37.402, 0.978)
pt3dadd(157.844, 38.896, 37.406, 0.956)
pt3dadd(157.925, 38.807, 37.411, 0.936)
pt3dadd(158.004, 38.717, 37.415, 0.916)
pt3dadd(158.084, 38.628, 37.42, 0.894)
pt3dadd(158.164, 38.538, 37.424, 0.874)
pt3dadd(158.244, 38.448, 37.429, 0.854)
pt3dadd(158.323, 38.359, 37.433, 0.834)
pt3dadd(158.405, 38.271, 37.439, 0.818)
pt3dadd(158.486, 38.184, 37.445, 0.804)
pt3dadd(158.568, 38.096, 37.451, 0.79)
pt3dadd(158.651, 38.009, 37.457, 0.774)
pt3dadd(158.732, 37.922, 37.463, 0.76)
pt3dadd(158.814, 37.834, 37.469, 0.746)
pt3dadd(158.897, 37.747, 37.476, 0.732)
pt3dadd(158.978, 37.659, 37.482, 0.718)
pt3dadd(159.06, 37.572, 37.488, 0.704)
pt3dadd(159.142, 37.485, 37.494, 0.69)
pt3dadd(159.212, 37.389, 37.505, 0.722)
pt3dadd(159.278, 37.289, 37.517, 0.77)
pt3dadd(159.344, 37.19, 37.529, 0.818)
pt3dadd(159.41, 37.091, 37.541, 0.864)
pt3dadd(159.476, 36.992, 37.554, 0.912)
pt3dadd(159.542, 36.893, 37.566, 0.958)
pt3dadd(159.608, 36.794, 37.578, 1.006)
pt3dadd(159.674, 36.695, 37.59, 1.054)
pt3dadd(159.74, 36.596, 37.603, 1.1)
pt3dadd(159.806, 36.497, 37.615, 1.148)
pt3dadd(159.881, 36.41, 37.643, 1.166)
pt3dadd(159.958, 36.327, 37.676, 1.174)
pt3dadd(160.034, 36.243, 37.709, 1.182)
pt3dadd(160.111, 36.16, 37.742, 1.192)
pt3dadd(160.188, 36.077, 37.774, 1.2)
pt3dadd(160.266, 35.994, 37.807, 1.208)
pt3dadd(160.343, 35.91, 37.84, 1.218)
pt3dadd(160.42, 35.827, 37.873, 1.226)
pt3dadd(160.496, 35.744, 37.906, 1.234)
pt3dadd(160.573, 35.661, 37.939, 1.244)
pt3dadd(160.656, 35.588, 37.978, 1.232)
pt3dadd(160.739, 35.515, 38.018, 1.22)
pt3dadd(160.822, 35.442, 38.057, 1.21)
pt3dadd(160.904, 35.369, 38.096, 1.198)
pt3dadd(160.987, 35.296, 38.136, 1.186)
pt3dadd(161.07, 35.223, 38.175, 1.176)
pt3dadd(161.153, 35.15, 38.214, 1.164)
pt3dadd(161.236, 35.077, 38.254, 1.152)
pt3dadd(161.318, 35.004, 38.293, 1.142)
pt3dadd(161.401, 34.932, 38.332, 1.13)
pt3dadd(161.484, 34.853, 38.363, 1.128)
pt3dadd(161.568, 34.775, 38.393, 1.128)
pt3dadd(161.651, 34.697, 38.424, 1.126)
pt3dadd(161.734, 34.618, 38.455, 1.126)
pt3dadd(161.816, 34.54, 38.485, 1.124)
pt3dadd(161.9, 34.462, 38.516, 1.124)
pt3dadd(161.983, 34.383, 38.547, 1.122)
pt3dadd(162.066, 34.305, 38.577, 1.122)
pt3dadd(162.15, 34.227, 38.608, 1.12)
pt3dadd(162.232, 34.148, 38.638, 1.12)
pt3dadd(162.298, 34.052, 38.664, 1.1)
pt3dadd(162.362, 33.956, 38.69, 1.082)
pt3dadd(162.427, 33.86, 38.715, 1.062)
pt3dadd(162.492, 33.763, 38.741, 1.044)
pt3dadd(162.557, 33.667, 38.767, 1.024)
pt3dadd(162.622, 33.571, 38.793, 1.006)
pt3dadd(162.686, 33.475, 38.818, 0.986)
pt3dadd(162.751, 33.379, 38.844, 0.968)
pt3dadd(162.816, 33.283, 38.87, 0.95)
pt3dadd(162.882, 33.187, 38.896, 0.932)
pt3dadd(162.958, 33.111, 38.94, 0.946)
pt3dadd(163.033, 33.034, 38.983, 0.958)
pt3dadd(163.109, 32.957, 39.027, 0.972)
pt3dadd(163.186, 32.88, 39.071, 0.986)
pt3dadd(163.261, 32.804, 39.114, 1)
pt3dadd(163.337, 32.727, 39.158, 1.014)
pt3dadd(163.412, 32.65, 39.202, 1.028)
pt3dadd(163.489, 32.573, 39.245, 1.042)
pt3dadd(163.565, 32.496, 39.289, 1.056)
pt3dadd(163.639, 32.419, 39.333, 1.068)
pt3dadd(163.703, 32.33, 39.374, 1.06)
pt3dadd(163.766, 32.24, 39.415, 1.052)
pt3dadd(163.83, 32.151, 39.456, 1.044)
pt3dadd(163.894, 32.062, 39.497, 1.036)
pt3dadd(163.957, 31.973, 39.538, 1.026)
pt3dadd(164.021, 31.884, 39.579, 1.018)
pt3dadd(164.084, 31.795, 39.62, 1.01)
pt3dadd(164.148, 31.706, 39.661, 1.002)
pt3dadd(164.21, 31.617, 39.702, 0.994)
pt3dadd(164.275, 31.527, 39.742, 0.986)
pt3dadd(164.341, 31.434, 39.772, 0.978)
pt3dadd(164.407, 31.34, 39.802, 0.97)
pt3dadd(164.473, 31.247, 39.832, 0.96)
pt3dadd(164.539, 31.153, 39.861, 0.952)
pt3dadd(164.605, 31.06, 39.891, 0.944)
pt3dadd(164.671, 30.966, 39.921, 0.936)
pt3dadd(164.737, 30.873, 39.951, 0.928)
pt3dadd(164.803, 30.779, 39.981, 0.918)
pt3dadd(164.869, 30.686, 40.011, 0.91)
pt3dadd(164.936, 30.593, 40.042, 0.906)
pt3dadd(165.004, 30.503, 40.076, 0.914)
pt3dadd(165.072, 30.413, 40.111, 0.92)
pt3dadd(165.14, 30.323, 40.146, 0.928)
pt3dadd(165.208, 30.234, 40.18, 0.936)
pt3dadd(165.276, 30.144, 40.215, 0.944)
pt3dadd(165.343, 30.054, 40.249, 0.952)
pt3dadd(165.412, 29.964, 40.284, 0.96)
pt3dadd(165.48, 29.874, 40.318, 0.966)
pt3dadd(165.547, 29.784, 40.353, 0.974)
pt3dadd(165.614, 29.696, 40.391, 0.984)
pt3dadd(165.678, 29.611, 40.438, 1)
pt3dadd(165.74, 29.526, 40.485, 1.014)
pt3dadd(165.804, 29.441, 40.532, 1.03)
pt3dadd(165.868, 29.356, 40.579, 1.046)
pt3dadd(165.931, 29.271, 40.626, 1.06)
pt3dadd(165.995, 29.187, 40.673, 1.076)
pt3dadd(166.057, 29.102, 40.72, 1.09)
pt3dadd(166.121, 29.017, 40.766, 1.106)
pt3dadd(166.184, 28.932, 40.813, 1.12)
pt3dadd(166.25, 28.846, 40.855, 1.13)
pt3dadd(166.322, 28.758, 40.888, 1.128)
pt3dadd(166.394, 28.67, 40.92, 1.124)
pt3dadd(166.465, 28.582, 40.953, 1.122)
pt3dadd(166.537, 28.494, 40.986, 1.12)
}
}
proc shape3d_130() {
dend_7[8] { pt3dadd(166.608, 28.406, 41.019, 1.118)
pt3dadd(166.68, 28.318, 41.051, 1.116)
pt3dadd(166.752, 28.23, 41.084, 1.114)
pt3dadd(166.823, 28.142, 41.117, 1.112)
pt3dadd(166.895, 28.054, 41.149, 1.11)
pt3dadd(166.957, 27.959, 41.179, 1.1)
pt3dadd(167.008, 27.855, 41.205, 1.08)
pt3dadd(167.058, 27.75, 41.231, 1.06)
pt3dadd(167.108, 27.646, 41.257, 1.04)
pt3dadd(167.16, 27.542, 41.284, 1.02)
pt3dadd(167.21, 27.438, 41.31, 1)
pt3dadd(167.261, 27.333, 41.336, 0.98)
pt3dadd(167.311, 27.229, 41.362, 0.958)
pt3dadd(167.362, 27.125, 41.388, 0.938)
pt3dadd(167.412, 27.021, 41.414, 0.918)
pt3dadd(167.471, 26.926, 41.448, 0.93)
pt3dadd(167.543, 26.847, 41.493, 0.99)
pt3dadd(167.614, 26.767, 41.538, 1.048)
pt3dadd(167.686, 26.687, 41.583, 1.108)
pt3dadd(167.756, 26.607, 41.628, 1.166)
pt3dadd(167.828, 26.527, 41.674, 1.224)
pt3dadd(167.899, 26.447, 41.719, 1.284)
pt3dadd(167.97, 26.368, 41.764, 1.342)
pt3dadd(168.042, 26.288, 41.809, 1.4)
pt3dadd(168.113, 26.208, 41.854, 1.46)
pt3dadd(168.174, 26.119, 41.895, 1.482)
pt3dadd(168.221, 26.016, 41.928, 1.454)
pt3dadd(168.268, 25.913, 41.962, 1.426)
pt3dadd(168.314, 25.81, 41.995, 1.398)
pt3dadd(168.361, 25.707, 42.029, 1.37)
pt3dadd(168.408, 25.604, 42.063, 1.344)
pt3dadd(168.455, 25.501, 42.096, 1.316)
pt3dadd(168.502, 25.398, 42.13, 1.288)
pt3dadd(168.548, 25.295, 42.163, 1.26)
pt3dadd(168.594, 25.192, 42.197, 1.232)
pt3dadd(168.634, 25.084, 42.223, 1.222)
pt3dadd(168.666, 24.971, 42.242, 1.228)
pt3dadd(168.697, 24.857, 42.261, 1.236)
pt3dadd(168.73, 24.744, 42.28, 1.242)
pt3dadd(168.761, 24.63, 42.299, 1.25)
pt3dadd(168.793, 24.517, 42.317, 1.256)
pt3dadd(168.824, 24.403, 42.336, 1.264)
pt3dadd(168.857, 24.29, 42.355, 1.27)
pt3dadd(168.888, 24.176, 42.374, 1.278)
pt3dadd(168.92, 24.063, 42.393, 1.284)
pt3dadd(168.949, 23.948, 42.407, 1.266)
pt3dadd(168.976, 23.831, 42.417, 1.222)
pt3dadd(169.002, 23.715, 42.427, 1.18)
pt3dadd(169.028, 23.598, 42.437, 1.138)
pt3dadd(169.056, 23.482, 42.448, 1.094)
pt3dadd(169.082, 23.366, 42.458, 1.052)
pt3dadd(169.109, 23.249, 42.468, 1.008)
pt3dadd(169.135, 23.133, 42.478, 0.966)
pt3dadd(169.163, 23.017, 42.488, 0.924)
pt3dadd(169.189, 22.9, 42.498, 0.88)
pt3dadd(169.224, 22.787, 42.508, 0.842)
pt3dadd(169.267, 22.675, 42.517, 0.81)
pt3dadd(169.31, 22.564, 42.527, 0.776)
pt3dadd(169.355, 22.452, 42.536, 0.742)
pt3dadd(169.398, 22.341, 42.545, 0.708)
pt3dadd(169.441, 22.23, 42.554, 0.674)
pt3dadd(169.484, 22.118, 42.564, 0.642)
pt3dadd(169.528, 22.007, 42.573, 0.608)
pt3dadd(169.571, 21.896, 42.582, 0.574)
pt3dadd(169.614, 21.784, 42.591, 0.54)
pt3dadd(169.673, 21.682, 42.605, 0.542)
pt3dadd(169.74, 21.584, 42.62, 0.56)
pt3dadd(169.806, 21.486, 42.635, 0.576)
pt3dadd(169.873, 21.388, 42.65, 0.594)
pt3dadd(169.939, 21.29, 42.665, 0.612)
pt3dadd(170.006, 21.192, 42.681, 0.628)
pt3dadd(170.074, 21.093, 42.696, 0.646)
pt3dadd(170.14, 20.995, 42.711, 0.664)
pt3dadd(170.207, 20.897, 42.726, 0.68)
pt3dadd(170.273, 20.799, 42.741, 0.698)
pt3dadd(170.354, 20.724, 42.776, 0.716)
pt3dadd(170.441, 20.654, 42.815, 0.734)
pt3dadd(170.526, 20.584, 42.855, 0.752)
pt3dadd(170.611, 20.515, 42.894, 0.768)
pt3dadd(170.696, 20.445, 42.934, 0.786)
pt3dadd(170.782, 20.376, 42.973, 0.804)
pt3dadd(170.868, 20.306, 43.013, 0.822)
pt3dadd(170.953, 20.236, 43.052, 0.84)
pt3dadd(171.038, 20.166, 43.092, 0.856)
pt3dadd(171.124, 20.097, 43.132, 0.874)
pt3dadd(171.194, 20.008, 43.162, 0.868)
pt3dadd(171.262, 19.915, 43.191, 0.854)
pt3dadd(171.328, 19.821, 43.22, 0.84)
pt3dadd(171.395, 19.728, 43.249, 0.826)
pt3dadd(171.461, 19.634, 43.278, 0.812)
pt3dadd(171.528, 19.54, 43.306, 0.798)
pt3dadd(171.594, 19.447, 43.335, 0.784)
pt3dadd(171.661, 19.353, 43.364, 0.77)
pt3dadd(171.728, 19.26, 43.393, 0.756)
pt3dadd(171.794, 19.166, 43.422, 0.742)
pt3dadd(171.859, 19.068, 43.44, 0.722)
pt3dadd(171.924, 18.968, 43.456, 0.704)
pt3dadd(171.988, 18.869, 43.472, 0.686)
pt3dadd(172.052, 18.769, 43.489, 0.666)
pt3dadd(172.117, 18.67, 43.505, 0.648)
pt3dadd(172.181, 18.571, 43.522, 0.628)
pt3dadd(172.246, 18.471, 43.538, 0.61)
pt3dadd(172.31, 18.372, 43.554, 0.59)
pt3dadd(172.374, 18.273, 43.571, 0.572)
pt3dadd(172.439, 18.173, 43.587, 0.554)
pt3dadd(172.492, 18.066, 43.595, 0.536)
pt3dadd(172.542, 17.958, 43.601, 0.518)
pt3dadd(172.594, 17.849, 43.607, 0.5)
pt3dadd(172.644, 17.741, 43.613, 0.484)
pt3dadd(172.696, 17.633, 43.619, 0.466)
pt3dadd(172.747, 17.524, 43.626, 0.45)
pt3dadd(172.798, 17.416, 43.632, 0.432)
pt3dadd(172.849, 17.308, 43.638, 0.414)
pt3dadd(172.9, 17.199, 43.644, 0.398)
pt3dadd(172.951, 17.091, 43.651, 0.38)
pt3dadd(172.986, 16.976, 43.651, 0.364)
pt3dadd(173.021, 16.861, 43.651, 0.35)
pt3dadd(173.054, 16.746, 43.651, 0.334)
pt3dadd(173.089, 16.632, 43.651, 0.318)
pt3dadd(173.124, 16.517, 43.651, 0.302)
pt3dadd(173.159, 16.402, 43.651, 0.288)
pt3dadd(173.194, 16.287, 43.651, 0.272)
pt3dadd(173.227, 16.172, 43.651, 0.256)
pt3dadd(173.262, 16.057, 43.651, 0.242)
pt3dadd(173.297, 15.942, 43.651, 0.226)
}
dend_7[9] {pt3dclear()
pt3dadd(132.78, 97.938, 26.175, 2.486)
pt3dadd(132.739, 97.937, 26.264, 2.446)
pt3dadd(132.695, 97.936, 26.357, 2.406)
pt3dadd(132.648, 97.934, 26.449, 2.366)
pt3dadd(132.601, 97.932, 26.541, 2.326)
pt3dadd(132.553, 97.93, 26.633, 2.286)
pt3dadd(132.505, 97.927, 26.725, 2.246)
pt3dadd(132.458, 97.925, 26.817, 2.206)
pt3dadd(132.41, 97.923, 26.908, 2.166)
pt3dadd(132.364, 97.921, 27, 2.126)
pt3dadd(132.316, 97.919, 27.092, 2.086)
pt3dadd(132.268, 97.917, 27.184, 2.046)
pt3dadd(132.221, 97.914, 27.276, 2.006)
pt3dadd(132.142, 97.901, 27.35, 1.978)
pt3dadd(132.061, 97.887, 27.423, 1.952)
pt3dadd(131.981, 97.873, 27.496, 1.924)
pt3dadd(131.9, 97.859, 27.569, 1.896)
pt3dadd(131.82, 97.845, 27.642, 1.868)
pt3dadd(131.738, 97.831, 27.716, 1.84)
pt3dadd(131.658, 97.817, 27.789, 1.812)
pt3dadd(131.578, 97.803, 27.862, 1.786)
pt3dadd(131.497, 97.789, 27.935, 1.758)
pt3dadd(131.417, 97.775, 28.008, 1.73)
pt3dadd(131.342, 97.758, 28.086, 1.688)
pt3dadd(131.268, 97.741, 28.163, 1.644)
pt3dadd(131.195, 97.725, 28.241, 1.602)
pt3dadd(131.12, 97.708, 28.318, 1.558)
pt3dadd(131.046, 97.691, 28.396, 1.516)
pt3dadd(130.973, 97.675, 28.473, 1.474)
pt3dadd(130.898, 97.658, 28.551, 1.43)
pt3dadd(130.824, 97.641, 28.628, 1.388)
pt3dadd(130.751, 97.625, 28.706, 1.344)
pt3dadd(130.676, 97.608, 28.783, 1.302)
pt3dadd(130.601, 97.575, 28.856, 1.26)
pt3dadd(130.525, 97.542, 28.928, 1.22)
pt3dadd(130.45, 97.51, 29.001, 1.18)
pt3dadd(130.374, 97.477, 29.074, 1.138)
pt3dadd(130.298, 97.444, 29.146, 1.098)
pt3dadd(130.223, 97.411, 29.219, 1.056)
pt3dadd(130.146, 97.378, 29.291, 1.016)
pt3dadd(130.07, 97.346, 29.364, 0.976)
pt3dadd(129.995, 97.313, 29.437, 0.934)
pt3dadd(129.916, 97.274, 29.503, 0.904)
pt3dadd(129.827, 97.22, 29.552, 0.908)
pt3dadd(129.738, 97.165, 29.601, 0.91)
pt3dadd(129.649, 97.11, 29.651, 0.912)
pt3dadd(129.559, 97.055, 29.699, 0.914)
pt3dadd(129.47, 97.001, 29.749, 0.918)
pt3dadd(129.382, 96.946, 29.798, 0.92)
pt3dadd(129.293, 96.891, 29.847, 0.922)
pt3dadd(129.204, 96.836, 29.896, 0.926)
pt3dadd(129.114, 96.782, 29.945, 0.928)
pt3dadd(129.024, 96.731, 29.994, 0.942)
pt3dadd(128.928, 96.691, 30.045, 0.99)
pt3dadd(128.832, 96.652, 30.095, 1.038)
pt3dadd(128.736, 96.612, 30.146, 1.086)
pt3dadd(128.64, 96.573, 30.196, 1.134)
pt3dadd(128.545, 96.534, 30.247, 1.182)
pt3dadd(128.449, 96.494, 30.298, 1.232)
pt3dadd(128.353, 96.455, 30.348, 1.28)
pt3dadd(128.257, 96.415, 30.399, 1.328)
pt3dadd(128.162, 96.376, 30.449, 1.376)
pt3dadd(128.065, 96.334, 30.497, 1.416)
pt3dadd(127.966, 96.286, 30.535, 1.434)
pt3dadd(127.865, 96.238, 30.573, 1.45)
pt3dadd(127.765, 96.19, 30.611, 1.468)
pt3dadd(127.666, 96.142, 30.648, 1.484)
pt3dadd(127.565, 96.093, 30.687, 1.502)
pt3dadd(127.465, 96.045, 30.725, 1.518)
pt3dadd(127.366, 95.997, 30.763, 1.536)
pt3dadd(127.265, 95.949, 30.801, 1.554)
pt3dadd(127.165, 95.901, 30.839, 1.57)
pt3dadd(127.064, 95.852, 30.874, 1.58)
pt3dadd(126.961, 95.803, 30.905, 1.572)
pt3dadd(126.858, 95.754, 30.936, 1.564)
}
}
proc shape3d_131() {
dend_7[9] { pt3dadd(126.755, 95.705, 30.967, 1.556)
pt3dadd(126.652, 95.656, 30.998, 1.55)
pt3dadd(126.548, 95.607, 31.029, 1.542)
pt3dadd(126.445, 95.558, 31.06, 1.534)
pt3dadd(126.343, 95.509, 31.091, 1.526)
pt3dadd(126.24, 95.46, 31.122, 1.518)
pt3dadd(126.137, 95.411, 31.153, 1.51)
pt3dadd(126.031, 95.369, 31.183, 1.488)
pt3dadd(125.921, 95.341, 31.214, 1.438)
pt3dadd(125.81, 95.312, 31.245, 1.388)
pt3dadd(125.699, 95.284, 31.276, 1.34)
pt3dadd(125.588, 95.255, 31.307, 1.29)
pt3dadd(125.478, 95.226, 31.338, 1.24)
pt3dadd(125.368, 95.198, 31.369, 1.19)
pt3dadd(125.257, 95.169, 31.399, 1.14)
pt3dadd(125.147, 95.141, 31.43, 1.092)
pt3dadd(125.036, 95.112, 31.461, 1.042)
pt3dadd(124.928, 95.088, 31.498, 1.006)
pt3dadd(124.824, 95.071, 31.546, 0.994)
pt3dadd(124.72, 95.054, 31.593, 0.984)
pt3dadd(124.615, 95.037, 31.641, 0.974)
pt3dadd(124.512, 95.02, 31.689, 0.964)
pt3dadd(124.408, 95.003, 31.736, 0.952)
pt3dadd(124.303, 94.986, 31.784, 0.942)
pt3dadd(124.199, 94.97, 31.832, 0.932)
pt3dadd(124.094, 94.953, 31.879, 0.92)
pt3dadd(123.991, 94.936, 31.927, 0.91)
pt3dadd(123.889, 94.922, 31.978, 0.908)
pt3dadd(123.79, 94.911, 32.034, 0.916)
pt3dadd(123.69, 94.9, 32.089, 0.926)
pt3dadd(123.592, 94.889, 32.145, 0.934)
pt3dadd(123.492, 94.878, 32.2, 0.944)
pt3dadd(123.394, 94.867, 32.256, 0.954)
pt3dadd(123.294, 94.857, 32.312, 0.962)
pt3dadd(123.194, 94.846, 32.367, 0.972)
pt3dadd(123.096, 94.835, 32.423, 0.98)
pt3dadd(122.996, 94.824, 32.479, 0.99)
pt3dadd(122.9, 94.816, 32.537, 1.006)
pt3dadd(122.808, 94.811, 32.601, 1.036)
pt3dadd(122.714, 94.806, 32.664, 1.064)
pt3dadd(122.622, 94.801, 32.727, 1.092)
pt3dadd(122.53, 94.796, 32.791, 1.12)
pt3dadd(122.436, 94.791, 32.854, 1.15)
pt3dadd(122.344, 94.786, 32.917, 1.178)
pt3dadd(122.251, 94.781, 32.981, 1.206)
pt3dadd(122.158, 94.776, 33.044, 1.234)
pt3dadd(122.065, 94.771, 33.107, 1.264)
pt3dadd(121.974, 94.766, 33.172, 1.278)
pt3dadd(121.884, 94.759, 33.237, 1.276)
pt3dadd(121.794, 94.752, 33.303, 1.272)
pt3dadd(121.703, 94.745, 33.369, 1.27)
pt3dadd(121.613, 94.738, 33.435, 1.266)
pt3dadd(121.523, 94.732, 33.501, 1.264)
pt3dadd(121.433, 94.725, 33.566, 1.262)
pt3dadd(121.343, 94.718, 33.632, 1.258)
pt3dadd(121.253, 94.711, 33.698, 1.256)
pt3dadd(121.163, 94.704, 33.764, 1.252)
pt3dadd(121.072, 94.695, 33.829, 1.244)
pt3dadd(120.98, 94.683, 33.893, 1.226)
pt3dadd(120.889, 94.672, 33.957, 1.208)
pt3dadd(120.798, 94.66, 34.021, 1.192)
pt3dadd(120.707, 94.648, 34.085, 1.174)
pt3dadd(120.616, 94.636, 34.149, 1.156)
pt3dadd(120.523, 94.624, 34.213, 1.14)
pt3dadd(120.432, 94.612, 34.277, 1.122)
pt3dadd(120.341, 94.601, 34.341, 1.104)
pt3dadd(120.25, 94.589, 34.405, 1.086)
pt3dadd(120.154, 94.565, 34.46, 1.06)
pt3dadd(120.053, 94.53, 34.506, 1.026)
pt3dadd(119.953, 94.494, 34.552, 0.992)
pt3dadd(119.852, 94.459, 34.599, 0.958)
pt3dadd(119.752, 94.424, 34.645, 0.924)
pt3dadd(119.651, 94.388, 34.691, 0.89)
pt3dadd(119.551, 94.353, 34.737, 0.856)
pt3dadd(119.451, 94.317, 34.783, 0.822)
pt3dadd(119.35, 94.282, 34.829, 0.788)
pt3dadd(119.25, 94.247, 34.875, 0.754)
pt3dadd(119.154, 94.221, 34.93, 0.744)
pt3dadd(119.063, 94.204, 34.994, 0.756)
pt3dadd(118.972, 94.187, 35.058, 0.768)
pt3dadd(118.881, 94.17, 35.121, 0.782)
pt3dadd(118.79, 94.153, 35.185, 0.794)
pt3dadd(118.699, 94.136, 35.249, 0.808)
pt3dadd(118.608, 94.119, 35.312, 0.82)
pt3dadd(118.517, 94.102, 35.376, 0.834)
pt3dadd(118.427, 94.086, 35.44, 0.846)
pt3dadd(118.336, 94.069, 35.504, 0.86)
pt3dadd(118.239, 94.086, 35.554, 0.858)
pt3dadd(118.138, 94.131, 35.593, 0.844)
pt3dadd(118.038, 94.175, 35.633, 0.83)
pt3dadd(117.937, 94.219, 35.673, 0.816)
pt3dadd(117.836, 94.264, 35.713, 0.802)
pt3dadd(117.735, 94.308, 35.752, 0.79)
pt3dadd(117.634, 94.353, 35.792, 0.776)
pt3dadd(117.534, 94.397, 35.832, 0.762)
pt3dadd(117.433, 94.441, 35.872, 0.748)
pt3dadd(117.332, 94.485, 35.911, 0.734)
pt3dadd(117.23, 94.541, 35.937, 0.754)
pt3dadd(117.128, 94.597, 35.961, 0.776)
pt3dadd(117.026, 94.653, 35.985, 0.798)
pt3dadd(116.925, 94.71, 36.009, 0.82)
pt3dadd(116.823, 94.766, 36.034, 0.842)
pt3dadd(116.721, 94.822, 36.058, 0.864)
pt3dadd(116.619, 94.879, 36.082, 0.888)
pt3dadd(116.517, 94.935, 36.106, 0.91)
pt3dadd(116.415, 94.992, 36.13, 0.932)
pt3dadd(116.313, 95.048, 36.154, 0.954)
pt3dadd(116.214, 95.113, 36.172, 0.988)
pt3dadd(116.116, 95.178, 36.188, 1.024)
pt3dadd(116.017, 95.244, 36.205, 1.058)
pt3dadd(115.919, 95.309, 36.222, 1.094)
pt3dadd(115.82, 95.375, 36.239, 1.13)
pt3dadd(115.722, 95.44, 36.256, 1.164)
pt3dadd(115.623, 95.506, 36.273, 1.2)
pt3dadd(115.525, 95.571, 36.29, 1.236)
pt3dadd(115.426, 95.637, 36.307, 1.272)
pt3dadd(115.328, 95.702, 36.324, 1.306)
pt3dadd(115.237, 95.777, 36.343, 1.328)
pt3dadd(115.147, 95.852, 36.363, 1.35)
pt3dadd(115.056, 95.928, 36.382, 1.372)
pt3dadd(114.966, 96.003, 36.402, 1.394)
pt3dadd(114.876, 96.078, 36.421, 1.414)
pt3dadd(114.785, 96.154, 36.441, 1.436)
pt3dadd(114.695, 96.229, 36.461, 1.458)
pt3dadd(114.604, 96.305, 36.48, 1.48)
pt3dadd(114.514, 96.38, 36.5, 1.5)
pt3dadd(114.426, 96.456, 36.521, 1.518)
pt3dadd(114.362, 96.54, 36.568, 1.482)
pt3dadd(114.299, 96.625, 36.616, 1.448)
pt3dadd(114.235, 96.709, 36.663, 1.412)
pt3dadd(114.172, 96.794, 36.711, 1.376)
pt3dadd(114.109, 96.878, 36.758, 1.34)
pt3dadd(114.045, 96.963, 36.806, 1.304)
pt3dadd(113.982, 97.047, 36.854, 1.268)
pt3dadd(113.919, 97.132, 36.901, 1.232)
pt3dadd(113.855, 97.216, 36.948, 1.196)
pt3dadd(113.791, 97.3, 36.996, 1.162)
pt3dadd(113.706, 97.368, 37.039, 1.16)
pt3dadd(113.622, 97.436, 37.081, 1.156)
pt3dadd(113.537, 97.504, 37.124, 1.152)
pt3dadd(113.453, 97.572, 37.167, 1.15)
pt3dadd(113.369, 97.64, 37.21, 1.146)
pt3dadd(113.284, 97.708, 37.253, 1.142)
pt3dadd(113.2, 97.776, 37.296, 1.14)
pt3dadd(113.115, 97.844, 37.339, 1.136)
pt3dadd(113.031, 97.912, 37.381, 1.132)
pt3dadd(112.948, 97.979, 37.426, 1.124)
pt3dadd(112.872, 98.036, 37.488, 1.07)
pt3dadd(112.797, 98.092, 37.55, 1.016)
pt3dadd(112.722, 98.148, 37.612, 0.96)
pt3dadd(112.647, 98.205, 37.674, 0.906)
pt3dadd(112.571, 98.261, 37.737, 0.852)
pt3dadd(112.496, 98.318, 37.799, 0.796)
pt3dadd(112.421, 98.374, 37.861, 0.742)
pt3dadd(112.345, 98.43, 37.923, 0.688)
pt3dadd(112.27, 98.487, 37.985, 0.634)
pt3dadd(112.193, 98.546, 38.043, 0.582)
pt3dadd(112.108, 98.619, 38.079, 0.554)
pt3dadd(112.023, 98.692, 38.114, 0.526)
pt3dadd(111.939, 98.766, 38.15, 0.498)
pt3dadd(111.854, 98.839, 38.186, 0.47)
pt3dadd(111.769, 98.912, 38.222, 0.442)
pt3dadd(111.684, 98.985, 38.258, 0.414)
pt3dadd(111.599, 99.058, 38.293, 0.386)
pt3dadd(111.514, 99.131, 38.329, 0.358)
pt3dadd(111.429, 99.204, 38.365, 0.328)
pt3dadd(111.345, 99.281, 38.396, 0.318)
pt3dadd(111.262, 99.363, 38.417, 0.34)
pt3dadd(111.178, 99.446, 38.438, 0.362)
pt3dadd(111.095, 99.528, 38.459, 0.386)
pt3dadd(111.011, 99.611, 38.479, 0.408)
pt3dadd(110.928, 99.693, 38.5, 0.43)
pt3dadd(110.844, 99.776, 38.521, 0.454)
pt3dadd(110.761, 99.858, 38.542, 0.476)
pt3dadd(110.678, 99.941, 38.563, 0.498)
pt3dadd(110.594, 100.023, 38.584, 0.52)
pt3dadd(110.512, 100.108, 38.603, 0.556)
pt3dadd(110.432, 100.195, 38.618, 0.616)
pt3dadd(110.352, 100.283, 38.632, 0.674)
pt3dadd(110.271, 100.37, 38.647, 0.732)
pt3dadd(110.191, 100.458, 38.662, 0.792)
pt3dadd(110.111, 100.545, 38.677, 0.85)
pt3dadd(110.031, 100.632, 38.692, 0.908)
pt3dadd(109.95, 100.72, 38.707, 0.966)
pt3dadd(109.87, 100.807, 38.722, 1.026)
pt3dadd(109.79, 100.895, 38.737, 1.084)
pt3dadd(109.71, 100.983, 38.75, 1.102)
pt3dadd(109.631, 101.073, 38.758, 1.05)
pt3dadd(109.552, 101.162, 38.767, 0.998)
pt3dadd(109.473, 101.252, 38.776, 0.946)
pt3dadd(109.395, 101.342, 38.785, 0.894)
pt3dadd(109.316, 101.432, 38.794, 0.842)
pt3dadd(109.237, 101.521, 38.803, 0.792)
pt3dadd(109.158, 101.611, 38.812, 0.74)
pt3dadd(109.079, 101.701, 38.82, 0.688)
pt3dadd(109, 101.791, 38.829, 0.636)
pt3dadd(108.923, 101.882, 38.841, 0.594)
pt3dadd(108.85, 101.975, 38.857, 0.574)
pt3dadd(108.777, 102.068, 38.873, 0.554)
pt3dadd(108.703, 102.161, 38.889, 0.534)
}
}
proc shape3d_132() {
dend_7[9] { pt3dadd(108.63, 102.254, 38.905, 0.514)
pt3dadd(108.557, 102.347, 38.922, 0.492)
pt3dadd(108.484, 102.44, 38.938, 0.472)
pt3dadd(108.411, 102.533, 38.954, 0.452)
pt3dadd(108.337, 102.626, 38.97, 0.432)
pt3dadd(108.264, 102.72, 38.986, 0.412)
pt3dadd(108.198, 102.815, 39.01, 0.428)
pt3dadd(108.141, 102.912, 39.043, 0.486)
pt3dadd(108.083, 103.01, 39.076, 0.544)
pt3dadd(108.026, 103.108, 39.108, 0.602)
pt3dadd(107.969, 103.206, 39.141, 0.662)
pt3dadd(107.911, 103.303, 39.174, 0.72)
pt3dadd(107.854, 103.401, 39.207, 0.778)
pt3dadd(107.797, 103.499, 39.24, 0.836)
pt3dadd(107.739, 103.596, 39.273, 0.896)
pt3dadd(107.682, 103.694, 39.306, 0.954)
pt3dadd(107.62, 103.791, 39.334, 0.986)
pt3dadd(107.554, 103.887, 39.358, 0.99)
pt3dadd(107.487, 103.983, 39.381, 0.994)
pt3dadd(107.42, 104.079, 39.404, 0.998)
pt3dadd(107.354, 104.175, 39.427, 1.002)
pt3dadd(107.287, 104.27, 39.451, 1.006)
pt3dadd(107.22, 104.366, 39.474, 1.01)
pt3dadd(107.154, 104.462, 39.497, 1.014)
pt3dadd(107.087, 104.558, 39.52, 1.016)
pt3dadd(107.021, 104.654, 39.543, 1.02)
pt3dadd(106.952, 104.749, 39.564, 1.016)
pt3dadd(106.881, 104.843, 39.582, 1.006)
pt3dadd(106.811, 104.938, 39.601, 0.994)
pt3dadd(106.74, 105.033, 39.619, 0.982)
pt3dadd(106.669, 105.127, 39.637, 0.97)
pt3dadd(106.599, 105.222, 39.655, 0.958)
pt3dadd(106.528, 105.316, 39.673, 0.946)
pt3dadd(106.458, 105.411, 39.691, 0.934)
pt3dadd(106.387, 105.505, 39.709, 0.922)
pt3dadd(106.316, 105.6, 39.728, 0.91)
pt3dadd(106.243, 105.693, 39.741, 0.904)
pt3dadd(106.166, 105.785, 39.751, 0.904)
pt3dadd(106.09, 105.876, 39.76, 0.904)
pt3dadd(106.013, 105.968, 39.769, 0.904)
pt3dadd(105.937, 106.06, 39.778, 0.904)
pt3dadd(105.86, 106.152, 39.787, 0.904)
pt3dadd(105.784, 106.244, 39.797, 0.904)
pt3dadd(105.708, 106.336, 39.806, 0.904)
pt3dadd(105.631, 106.427, 39.815, 0.904)
pt3dadd(105.555, 106.519, 39.824, 0.904)
pt3dadd(105.477, 106.61, 39.831, 0.908)
pt3dadd(105.398, 106.7, 39.836, 0.916)
pt3dadd(105.318, 106.79, 39.84, 0.922)
pt3dadd(105.239, 106.88, 39.845, 0.93)
pt3dadd(105.16, 106.97, 39.85, 0.938)
pt3dadd(105.081, 107.06, 39.855, 0.946)
pt3dadd(105.002, 107.15, 39.86, 0.954)
pt3dadd(104.923, 107.24, 39.864, 0.96)
pt3dadd(104.844, 107.33, 39.869, 0.968)
pt3dadd(104.764, 107.42, 39.874, 0.976)
pt3dadd(104.684, 107.509, 39.877, 0.986)
pt3dadd(104.603, 107.598, 39.878, 1)
pt3dadd(104.522, 107.686, 39.879, 1.014)
pt3dadd(104.441, 107.775, 39.88, 1.028)
pt3dadd(104.36, 107.863, 39.881, 1.042)
pt3dadd(104.279, 107.952, 39.882, 1.056)
pt3dadd(104.197, 108.04, 39.883, 1.07)
pt3dadd(104.116, 108.128, 39.884, 1.084)
pt3dadd(104.035, 108.217, 39.886, 1.098)
pt3dadd(103.954, 108.305, 39.887, 1.11)
pt3dadd(103.88, 108.399, 39.889, 1.11)
pt3dadd(103.813, 108.499, 39.891, 1.096)
pt3dadd(103.746, 108.598, 39.894, 1.082)
pt3dadd(103.679, 108.698, 39.896, 1.068)
pt3dadd(103.612, 108.797, 39.899, 1.054)
pt3dadd(103.545, 108.897, 39.901, 1.04)
pt3dadd(103.478, 108.996, 39.904, 1.026)
pt3dadd(103.411, 109.095, 39.906, 1.012)
pt3dadd(103.344, 109.195, 39.909, 0.998)
pt3dadd(103.277, 109.294, 39.911, 0.986)
pt3dadd(103.206, 109.391, 39.915, 0.97)
pt3dadd(103.132, 109.485, 39.92, 0.954)
pt3dadd(103.058, 109.58, 39.925, 0.936)
pt3dadd(102.984, 109.674, 39.93, 0.92)
pt3dadd(102.91, 109.768, 39.935, 0.904)
pt3dadd(102.836, 109.863, 39.939, 0.886)
pt3dadd(102.762, 109.957, 39.944, 0.87)
pt3dadd(102.688, 110.051, 39.949, 0.854)
pt3dadd(102.614, 110.146, 39.954, 0.836)
pt3dadd(102.54, 110.24, 39.959, 0.82)
pt3dadd(102.46, 110.328, 39.965, 0.802)
pt3dadd(102.375, 110.413, 39.973, 0.78)
pt3dadd(102.29, 110.497, 39.981, 0.76)
pt3dadd(102.204, 110.581, 39.988, 0.74)
pt3dadd(102.119, 110.665, 39.996, 0.72)
pt3dadd(102.034, 110.749, 40.004, 0.698)
pt3dadd(101.949, 110.833, 40.012, 0.678)
pt3dadd(101.864, 110.917, 40.019, 0.658)
pt3dadd(101.779, 111.001, 40.027, 0.638)
pt3dadd(101.693, 111.085, 40.035, 0.616)
pt3dadd(101.597, 111.153, 40.045, 0.586)
pt3dadd(101.493, 111.211, 40.058, 0.548)
pt3dadd(101.389, 111.27, 40.07, 0.51)
pt3dadd(101.285, 111.328, 40.083, 0.472)
pt3dadd(101.182, 111.387, 40.095, 0.434)
pt3dadd(101.078, 111.445, 40.108, 0.396)
pt3dadd(100.974, 111.503, 40.12, 0.358)
pt3dadd(100.871, 111.562, 40.133, 0.32)
pt3dadd(100.767, 111.62, 40.145, 0.284)
pt3dadd(100.663, 111.679, 40.158, 0.246)
pt3dadd(100.559, 111.723, 40.187, 0.274)
pt3dadd(100.455, 111.76, 40.226, 0.344)
pt3dadd(100.351, 111.796, 40.265, 0.412)
pt3dadd(100.247, 111.833, 40.305, 0.48)
pt3dadd(100.143, 111.869, 40.344, 0.55)
pt3dadd(100.038, 111.906, 40.383, 0.618)
pt3dadd(99.934, 111.942, 40.423, 0.686)
pt3dadd(99.83, 111.979, 40.462, 0.756)
pt3dadd(99.726, 112.015, 40.501, 0.824)
pt3dadd(99.622, 112.052, 40.541, 0.892)
pt3dadd(99.525, 112.107, 40.576, 0.922)
pt3dadd(99.433, 112.172, 40.61, 0.928)
pt3dadd(99.34, 112.237, 40.643, 0.934)
pt3dadd(99.248, 112.302, 40.677, 0.942)
pt3dadd(99.156, 112.367, 40.71, 0.948)
pt3dadd(99.063, 112.432, 40.744, 0.954)
pt3dadd(98.971, 112.497, 40.778, 0.962)
pt3dadd(98.878, 112.563, 40.811, 0.968)
pt3dadd(98.786, 112.628, 40.845, 0.974)
pt3dadd(98.694, 112.693, 40.878, 0.98)
pt3dadd(98.605, 112.769, 40.9, 0.968)
pt3dadd(98.518, 112.848, 40.919, 0.948)
pt3dadd(98.431, 112.927, 40.938, 0.93)
pt3dadd(98.343, 113.006, 40.957, 0.91)
pt3dadd(98.256, 113.086, 40.976, 0.892)
pt3dadd(98.169, 113.165, 40.995, 0.872)
pt3dadd(98.082, 113.244, 41.014, 0.854)
pt3dadd(97.994, 113.323, 41.033, 0.836)
pt3dadd(97.907, 113.402, 41.052, 0.816)
pt3dadd(97.82, 113.481, 41.071, 0.798)
pt3dadd(97.726, 113.555, 41.082, 0.79)
pt3dadd(97.631, 113.627, 41.091, 0.784)
pt3dadd(97.536, 113.699, 41.101, 0.778)
pt3dadd(97.441, 113.772, 41.11, 0.772)
pt3dadd(97.346, 113.844, 41.12, 0.766)
pt3dadd(97.251, 113.916, 41.129, 0.762)
pt3dadd(97.155, 113.989, 41.139, 0.756)
pt3dadd(97.06, 114.061, 41.148, 0.75)
pt3dadd(96.965, 114.133, 41.157, 0.744)
pt3dadd(96.87, 114.206, 41.167, 0.738)
pt3dadd(96.764, 114.26, 41.171, 0.754)
pt3dadd(96.656, 114.313, 41.174, 0.772)
pt3dadd(96.548, 114.366, 41.178, 0.79)
pt3dadd(96.441, 114.419, 41.181, 0.808)
pt3dadd(96.333, 114.471, 41.185, 0.826)
pt3dadd(96.225, 114.524, 41.188, 0.844)
pt3dadd(96.118, 114.577, 41.192, 0.862)
pt3dadd(96.01, 114.63, 41.196, 0.88)
pt3dadd(95.902, 114.683, 41.199, 0.898)
pt3dadd(95.795, 114.735, 41.203, 0.916)
pt3dadd(95.68, 114.769, 41.21, 0.934)
pt3dadd(95.564, 114.801, 41.218, 0.95)
pt3dadd(95.449, 114.833, 41.225, 0.968)
pt3dadd(95.334, 114.864, 41.233, 0.986)
pt3dadd(95.218, 114.896, 41.24, 1.002)
pt3dadd(95.103, 114.928, 41.248, 1.02)
pt3dadd(94.988, 114.96, 41.255, 1.038)
pt3dadd(94.872, 114.992, 41.263, 1.054)
pt3dadd(94.757, 115.024, 41.27, 1.072)
pt3dadd(94.642, 115.056, 41.278, 1.088)
pt3dadd(94.533, 115.105, 41.288, 1.07)
pt3dadd(94.425, 115.154, 41.299, 1.05)
pt3dadd(94.316, 115.204, 41.31, 1.03)
pt3dadd(94.208, 115.254, 41.321, 1.008)
pt3dadd(94.099, 115.303, 41.332, 0.988)
pt3dadd(93.991, 115.353, 41.343, 0.966)
pt3dadd(93.882, 115.403, 41.354, 0.946)
pt3dadd(93.774, 115.453, 41.365, 0.926)
pt3dadd(93.666, 115.502, 41.376, 0.904)
pt3dadd(93.557, 115.552, 41.387, 0.884)
pt3dadd(93.452, 115.605, 41.408, 0.852)
pt3dadd(93.348, 115.657, 41.429, 0.82)
pt3dadd(93.243, 115.71, 41.451, 0.788)
pt3dadd(93.138, 115.762, 41.472, 0.756)
pt3dadd(93.033, 115.815, 41.493, 0.724)
pt3dadd(92.928, 115.868, 41.515, 0.692)
pt3dadd(92.824, 115.92, 41.536, 0.66)
pt3dadd(92.719, 115.973, 41.557, 0.628)
pt3dadd(92.614, 116.025, 41.579, 0.596)
pt3dadd(92.51, 116.078, 41.601, 0.564)
pt3dadd(92.409, 116.125, 41.639, 0.534)
pt3dadd(92.308, 116.172, 41.676, 0.502)
pt3dadd(92.208, 116.22, 41.714, 0.472)
pt3dadd(92.107, 116.267, 41.752, 0.44)
pt3dadd(92.007, 116.315, 41.789, 0.41)
pt3dadd(91.906, 116.362, 41.827, 0.378)
pt3dadd(91.806, 116.409, 41.865, 0.348)
pt3dadd(91.705, 116.457, 41.902, 0.316)
pt3dadd(91.605, 116.504, 41.94, 0.286)
pt3dadd(91.505, 116.553, 41.977, 0.256)
pt3dadd(91.411, 116.619, 42.006, 0.268)
pt3dadd(91.317, 116.685, 42.035, 0.278)
pt3dadd(91.223, 116.752, 42.063, 0.288)
pt3dadd(91.129, 116.818, 42.092, 0.3)
}
}
proc shape3d_133() {
dend_7[9] { pt3dadd(91.035, 116.885, 42.121, 0.31)
pt3dadd(90.942, 116.951, 42.15, 0.32)
pt3dadd(90.848, 117.018, 42.179, 0.332)
pt3dadd(90.754, 117.084, 42.207, 0.342)
pt3dadd(90.66, 117.15, 42.236, 0.352)
pt3dadd(90.567, 117.217, 42.264, 0.364)
pt3dadd(90.476, 117.289, 42.29, 0.38)
pt3dadd(90.384, 117.361, 42.315, 0.394)
pt3dadd(90.293, 117.433, 42.34, 0.41)
pt3dadd(90.202, 117.505, 42.365, 0.424)
pt3dadd(90.111, 117.577, 42.39, 0.44)
pt3dadd(90.02, 117.65, 42.416, 0.456)
pt3dadd(89.929, 117.722, 42.441, 0.47)
pt3dadd(89.838, 117.794, 42.466, 0.486)
pt3dadd(89.747, 117.866, 42.491, 0.5)
pt3dadd(89.656, 117.938, 42.516, 0.516)
pt3dadd(89.568, 118.016, 42.537, 0.532)
pt3dadd(89.48, 118.093, 42.559, 0.546)
pt3dadd(89.392, 118.171, 42.58, 0.562)
pt3dadd(89.304, 118.248, 42.602, 0.578)
pt3dadd(89.216, 118.325, 42.623, 0.594)
pt3dadd(89.128, 118.403, 42.645, 0.608)
pt3dadd(89.04, 118.48, 42.666, 0.624)
pt3dadd(88.952, 118.558, 42.688, 0.64)
pt3dadd(88.864, 118.635, 42.709, 0.654)
pt3dadd(88.778, 118.712, 42.733, 0.668)
pt3dadd(88.705, 118.788, 42.782, 0.67)
pt3dadd(88.633, 118.863, 42.831, 0.67)
pt3dadd(88.56, 118.938, 42.881, 0.672)
pt3dadd(88.488, 119.014, 42.93, 0.672)
pt3dadd(88.415, 119.089, 42.979, 0.674)
pt3dadd(88.343, 119.165, 43.028, 0.674)
pt3dadd(88.271, 119.24, 43.077, 0.676)
pt3dadd(88.198, 119.315, 43.126, 0.676)
pt3dadd(88.126, 119.391, 43.175, 0.678)
pt3dadd(88.053, 119.467, 43.223, 0.676)
pt3dadd(87.976, 119.546, 43.262, 0.66)
pt3dadd(87.899, 119.625, 43.301, 0.646)
pt3dadd(87.822, 119.704, 43.34, 0.63)
pt3dadd(87.745, 119.784, 43.38, 0.614)
pt3dadd(87.669, 119.863, 43.419, 0.6)
pt3dadd(87.592, 119.942, 43.458, 0.584)
pt3dadd(87.515, 120.022, 43.497, 0.568)
pt3dadd(87.438, 120.101, 43.536, 0.554)
pt3dadd(87.361, 120.18, 43.576, 0.538)
pt3dadd(87.286, 120.26, 43.614, 0.524)
pt3dadd(87.217, 120.349, 43.651, 0.53)
pt3dadd(87.148, 120.437, 43.687, 0.536)
pt3dadd(87.079, 120.524, 43.723, 0.542)
pt3dadd(87.01, 120.613, 43.76, 0.546)
pt3dadd(86.941, 120.701, 43.796, 0.552)
pt3dadd(86.872, 120.788, 43.832, 0.556)
pt3dadd(86.803, 120.877, 43.868, 0.562)
pt3dadd(86.734, 120.965, 43.905, 0.568)
pt3dadd(86.665, 121.052, 43.941, 0.572)
pt3dadd(86.595, 121.139, 43.979, 0.578)
pt3dadd(86.519, 121.212, 44.027, 0.578)
pt3dadd(86.443, 121.285, 44.074, 0.578)
pt3dadd(86.367, 121.36, 44.121, 0.58)
pt3dadd(86.291, 121.433, 44.169, 0.58)
pt3dadd(86.215, 121.506, 44.216, 0.58)
pt3dadd(86.14, 121.58, 44.264, 0.582)
pt3dadd(86.064, 121.654, 44.311, 0.582)
pt3dadd(85.988, 121.727, 44.358, 0.584)
pt3dadd(85.912, 121.801, 44.406, 0.584)
pt3dadd(85.832, 121.862, 44.458, 0.584)
pt3dadd(85.747, 121.907, 44.518, 0.586)
pt3dadd(85.662, 121.951, 44.578, 0.586)
pt3dadd(85.576, 121.994, 44.637, 0.588)
pt3dadd(85.491, 122.039, 44.697, 0.588)
pt3dadd(85.405, 122.083, 44.757, 0.59)
pt3dadd(85.32, 122.128, 44.817, 0.59)
pt3dadd(85.234, 122.171, 44.877, 0.592)
pt3dadd(85.149, 122.215, 44.936, 0.592)
pt3dadd(85.063, 122.26, 44.996, 0.594)
pt3dadd(84.977, 122.293, 45.059, 0.618)
pt3dadd(84.891, 122.317, 45.126, 0.668)
pt3dadd(84.805, 122.34, 45.193, 0.718)
pt3dadd(84.719, 122.363, 45.26, 0.768)
pt3dadd(84.633, 122.386, 45.327, 0.818)
pt3dadd(84.547, 122.41, 45.394, 0.868)
pt3dadd(84.461, 122.432, 45.461, 0.918)
pt3dadd(84.375, 122.455, 45.528, 0.968)
pt3dadd(84.288, 122.479, 45.595, 1.018)
pt3dadd(84.202, 122.502, 45.662, 1.068)
pt3dadd(84.117, 122.538, 45.724, 1.058)
pt3dadd(84.032, 122.587, 45.782, 0.982)
pt3dadd(83.948, 122.638, 45.839, 0.906)
pt3dadd(83.863, 122.687, 45.897, 0.83)
pt3dadd(83.779, 122.736, 45.955, 0.754)
pt3dadd(83.694, 122.786, 46.012, 0.68)
pt3dadd(83.61, 122.836, 46.07, 0.604)
pt3dadd(83.525, 122.886, 46.127, 0.528)
pt3dadd(83.44, 122.935, 46.185, 0.452)
pt3dadd(83.356, 122.984, 46.242, 0.376)
pt3dadd(83.265, 123.022, 46.299, 0.35)
pt3dadd(83.169, 123.044, 46.356, 0.372)
pt3dadd(83.072, 123.067, 46.412, 0.396)
pt3dadd(82.975, 123.09, 46.468, 0.418)
pt3dadd(82.879, 123.113, 46.524, 0.44)
pt3dadd(82.782, 123.136, 46.58, 0.464)
pt3dadd(82.686, 123.158, 46.637, 0.486)
pt3dadd(82.589, 123.181, 46.693, 0.508)
pt3dadd(82.493, 123.204, 46.749, 0.532)
pt3dadd(82.396, 123.227, 46.805, 0.554)
pt3dadd(82.291, 123.239, 46.851, 0.554)
pt3dadd(82.18, 123.24, 46.889, 0.534)
pt3dadd(82.069, 123.241, 46.927, 0.516)
pt3dadd(81.958, 123.244, 46.964, 0.496)
pt3dadd(81.847, 123.245, 47.002, 0.478)
pt3dadd(81.736, 123.246, 47.039, 0.458)
pt3dadd(81.624, 123.248, 47.077, 0.44)
pt3dadd(81.513, 123.25, 47.114, 0.42)
pt3dadd(81.402, 123.251, 47.152, 0.402)
pt3dadd(81.291, 123.253, 47.19, 0.382)
pt3dadd(81.18, 123.224, 47.213, 0.366)
pt3dadd(81.07, 123.181, 47.229, 0.35)
pt3dadd(80.96, 123.138, 47.246, 0.334)
pt3dadd(80.849, 123.095, 47.262, 0.32)
pt3dadd(80.739, 123.052, 47.279, 0.304)
pt3dadd(80.629, 123.008, 47.295, 0.288)
pt3dadd(80.519, 122.966, 47.312, 0.272)
pt3dadd(80.408, 122.923, 47.328, 0.258)
pt3dadd(80.298, 122.88, 47.344, 0.242)
pt3dadd(80.188, 122.837, 47.361, 0.226)
pt3dadd(80.085, 122.776, 47.369, 0.226)
pt3dadd(79.983, 122.713, 47.378, 0.226)
pt3dadd(79.88, 122.652, 47.386, 0.226)
pt3dadd(79.778, 122.591, 47.395, 0.226)
pt3dadd(79.675, 122.53, 47.404, 0.226)
pt3dadd(79.573, 122.467, 47.412, 0.226)
pt3dadd(79.47, 122.406, 47.421, 0.226)
pt3dadd(79.368, 122.345, 47.429, 0.226)
pt3dadd(79.265, 122.282, 47.438, 0.226)
pt3dadd(79.163, 122.221, 47.446, 0.226)
}
dend_7[10] {pt3dclear()
pt3dadd(134.491, 104.003, 23.8, 3.164)
pt3dadd(134.434, 104.003, 23.823, 3.128)
pt3dadd(134.326, 104.003, 23.866, 3.06)
pt3dadd(134.218, 104.003, 23.909, 2.994)
pt3dadd(134.108, 104.003, 23.952, 2.926)
pt3dadd(134, 104.003, 23.996, 2.86)
pt3dadd(133.892, 104.003, 24.039, 2.792)
pt3dadd(133.784, 104.003, 24.082, 2.726)
pt3dadd(133.676, 104.003, 24.125, 2.658)
pt3dadd(133.567, 104.003, 24.168, 2.592)
pt3dadd(133.459, 104.003, 24.212, 2.524)
pt3dadd(133.351, 104.002, 24.255, 2.458)
pt3dadd(133.243, 104.002, 24.298, 2.39)
pt3dadd(133.133, 104, 24.337, 2.324)
pt3dadd(133.021, 103.995, 24.373, 2.26)
pt3dadd(132.91, 103.99, 24.409, 2.194)
pt3dadd(132.797, 103.985, 24.445, 2.13)
pt3dadd(132.685, 103.98, 24.481, 2.066)
pt3dadd(132.574, 103.975, 24.517, 2.002)
pt3dadd(132.462, 103.97, 24.553, 1.936)
pt3dadd(132.349, 103.965, 24.588, 1.872)
pt3dadd(132.238, 103.961, 24.624, 1.808)
pt3dadd(132.126, 103.956, 24.66, 1.744)
pt3dadd(132.011, 103.937, 24.673, 1.69)
pt3dadd(131.893, 103.911, 24.673, 1.644)
pt3dadd(131.777, 103.884, 24.673, 1.596)
pt3dadd(131.659, 103.858, 24.673, 1.55)
pt3dadd(131.542, 103.832, 24.674, 1.502)
pt3dadd(131.425, 103.806, 24.674, 1.454)
pt3dadd(131.308, 103.779, 24.674, 1.408)
pt3dadd(131.191, 103.753, 24.674, 1.36)
pt3dadd(131.074, 103.727, 24.674, 1.314)
pt3dadd(130.956, 103.701, 24.675, 1.266)
pt3dadd(130.843, 103.663, 24.675, 1.234)
pt3dadd(130.732, 103.619, 24.675, 1.208)
pt3dadd(130.62, 103.575, 24.676, 1.182)
pt3dadd(130.508, 103.53, 24.676, 1.156)
pt3dadd(130.397, 103.486, 24.676, 1.13)
pt3dadd(130.285, 103.442, 24.676, 1.104)
pt3dadd(130.174, 103.398, 24.677, 1.08)
pt3dadd(130.062, 103.354, 24.677, 1.054)
pt3dadd(129.95, 103.31, 24.677, 1.028)
pt3dadd(129.839, 103.265, 24.677, 1.002)
pt3dadd(129.726, 103.224, 24.678, 1)
pt3dadd(129.613, 103.183, 24.678, 1.008)
pt3dadd(129.5, 103.143, 24.679, 1.016)
pt3dadd(129.388, 103.102, 24.679, 1.026)
pt3dadd(129.275, 103.062, 24.68, 1.034)
pt3dadd(129.162, 103.021, 24.68, 1.042)
pt3dadd(129.048, 102.981, 24.681, 1.05)
pt3dadd(128.935, 102.94, 24.681, 1.06)
pt3dadd(128.822, 102.9, 24.682, 1.068)
pt3dadd(128.71, 102.86, 24.682, 1.076)
pt3dadd(128.594, 102.828, 24.683, 1.1)
pt3dadd(128.477, 102.8, 24.684, 1.126)
pt3dadd(128.36, 102.772, 24.684, 1.154)
pt3dadd(128.244, 102.743, 24.685, 1.182)
pt3dadd(128.128, 102.715, 24.686, 1.21)
pt3dadd(128.011, 102.687, 24.687, 1.238)
pt3dadd(127.894, 102.659, 24.687, 1.266)
pt3dadd(127.777, 102.631, 24.688, 1.294)
pt3dadd(127.661, 102.602, 24.689, 1.322)
pt3dadd(127.544, 102.574, 24.69, 1.348)
pt3dadd(127.426, 102.554, 24.691, 1.356)
pt3dadd(127.307, 102.536, 24.692, 1.356)
}
}
proc shape3d_134() {
dend_7[10] { pt3dadd(127.189, 102.519, 24.694, 1.356)
pt3dadd(127.07, 102.501, 24.695, 1.356)
pt3dadd(126.952, 102.483, 24.696, 1.356)
pt3dadd(126.833, 102.466, 24.698, 1.356)
pt3dadd(126.714, 102.448, 24.699, 1.356)
pt3dadd(126.595, 102.43, 24.701, 1.356)
pt3dadd(126.476, 102.413, 24.702, 1.356)
pt3dadd(126.358, 102.395, 24.703, 1.356)
pt3dadd(126.239, 102.382, 24.706, 1.344)
pt3dadd(126.119, 102.371, 24.709, 1.328)
pt3dadd(126, 102.36, 24.711, 1.312)
pt3dadd(125.88, 102.348, 24.714, 1.294)
pt3dadd(125.761, 102.337, 24.717, 1.278)
pt3dadd(125.641, 102.326, 24.72, 1.262)
pt3dadd(125.522, 102.315, 24.722, 1.246)
pt3dadd(125.402, 102.303, 24.725, 1.23)
pt3dadd(125.284, 102.292, 24.728, 1.214)
pt3dadd(125.164, 102.281, 24.73, 1.196)
pt3dadd(125.045, 102.266, 24.735, 1.196)
pt3dadd(124.926, 102.251, 24.741, 1.202)
pt3dadd(124.807, 102.235, 24.746, 1.206)
pt3dadd(124.688, 102.219, 24.752, 1.212)
pt3dadd(124.57, 102.203, 24.757, 1.218)
pt3dadd(124.451, 102.188, 24.763, 1.222)
pt3dadd(124.332, 102.172, 24.768, 1.228)
pt3dadd(124.213, 102.156, 24.774, 1.232)
pt3dadd(124.094, 102.14, 24.779, 1.238)
pt3dadd(123.976, 102.125, 24.785, 1.242)
pt3dadd(123.859, 102.097, 24.792, 1.266)
pt3dadd(123.744, 102.066, 24.8, 1.294)
pt3dadd(123.629, 102.034, 24.809, 1.324)
pt3dadd(123.514, 102.003, 24.817, 1.352)
pt3dadd(123.398, 101.972, 24.825, 1.382)
pt3dadd(123.282, 101.94, 24.833, 1.41)
pt3dadd(123.167, 101.909, 24.842, 1.438)
pt3dadd(123.052, 101.878, 24.85, 1.468)
pt3dadd(122.936, 101.846, 24.858, 1.496)
pt3dadd(122.821, 101.815, 24.867, 1.526)
pt3dadd(122.713, 101.765, 24.877, 1.57)
pt3dadd(122.606, 101.712, 24.887, 1.618)
pt3dadd(122.498, 101.659, 24.897, 1.666)
pt3dadd(122.392, 101.606, 24.908, 1.714)
pt3dadd(122.285, 101.553, 24.918, 1.762)
pt3dadd(122.178, 101.5, 24.929, 1.81)
pt3dadd(122.071, 101.447, 24.939, 1.858)
pt3dadd(121.964, 101.394, 24.949, 1.904)
pt3dadd(121.858, 101.341, 24.96, 1.952)
pt3dadd(121.75, 101.288, 24.97, 2)
pt3dadd(121.645, 101.243, 25, 1.996)
pt3dadd(121.541, 101.2, 25.034, 1.984)
pt3dadd(121.436, 101.156, 25.067, 1.972)
pt3dadd(121.332, 101.112, 25.1, 1.962)
pt3dadd(121.228, 101.069, 25.134, 1.95)
pt3dadd(121.123, 101.025, 25.167, 1.938)
pt3dadd(121.02, 100.981, 25.2, 1.926)
pt3dadd(120.916, 100.937, 25.234, 1.914)
pt3dadd(120.811, 100.894, 25.267, 1.902)
pt3dadd(120.707, 100.85, 25.3, 1.89)
pt3dadd(120.604, 100.798, 25.329, 1.856)
pt3dadd(120.502, 100.745, 25.357, 1.818)
pt3dadd(120.4, 100.692, 25.385, 1.782)
pt3dadd(120.296, 100.64, 25.413, 1.744)
pt3dadd(120.194, 100.587, 25.441, 1.708)
pt3dadd(120.092, 100.534, 25.469, 1.672)
pt3dadd(119.99, 100.481, 25.497, 1.634)
pt3dadd(119.887, 100.428, 25.525, 1.598)
pt3dadd(119.785, 100.376, 25.553, 1.56)
pt3dadd(119.682, 100.323, 25.581, 1.524)
pt3dadd(119.583, 100.261, 25.602, 1.466)
pt3dadd(119.483, 100.198, 25.622, 1.406)
pt3dadd(119.384, 100.135, 25.642, 1.348)
pt3dadd(119.285, 100.073, 25.663, 1.288)
pt3dadd(119.185, 100.01, 25.683, 1.228)
pt3dadd(119.086, 99.948, 25.704, 1.17)
pt3dadd(118.986, 99.885, 25.724, 1.11)
pt3dadd(118.887, 99.822, 25.745, 1.052)
pt3dadd(118.788, 99.76, 25.765, 0.992)
pt3dadd(118.688, 99.697, 25.785, 0.932)
pt3dadd(118.581, 99.645, 25.796, 0.942)
pt3dadd(118.473, 99.594, 25.807, 0.954)
pt3dadd(118.366, 99.542, 25.817, 0.968)
pt3dadd(118.258, 99.491, 25.827, 0.98)
pt3dadd(118.15, 99.439, 25.838, 0.992)
pt3dadd(118.043, 99.388, 25.848, 1.006)
pt3dadd(117.935, 99.336, 25.858, 1.018)
pt3dadd(117.827, 99.285, 25.869, 1.032)
pt3dadd(117.72, 99.233, 25.879, 1.044)
pt3dadd(117.612, 99.182, 25.889, 1.058)
pt3dadd(117.509, 99.12, 25.894, 1.05)
pt3dadd(117.406, 99.058, 25.898, 1.04)
pt3dadd(117.304, 98.997, 25.903, 1.032)
pt3dadd(117.201, 98.935, 25.907, 1.022)
pt3dadd(117.098, 98.873, 25.911, 1.014)
pt3dadd(116.996, 98.811, 25.916, 1.004)
pt3dadd(116.893, 98.749, 25.92, 0.996)
pt3dadd(116.79, 98.687, 25.924, 0.986)
pt3dadd(116.688, 98.625, 25.928, 0.978)
pt3dadd(116.585, 98.563, 25.933, 0.968)
pt3dadd(116.488, 98.493, 25.933, 0.94)
pt3dadd(116.39, 98.423, 25.932, 0.91)
pt3dadd(116.293, 98.352, 25.932, 0.882)
pt3dadd(116.196, 98.282, 25.932, 0.852)
pt3dadd(116.098, 98.212, 25.931, 0.824)
pt3dadd(116.001, 98.142, 25.931, 0.794)
pt3dadd(115.904, 98.072, 25.931, 0.766)
pt3dadd(115.806, 98.002, 25.931, 0.736)
pt3dadd(115.709, 97.932, 25.931, 0.708)
pt3dadd(115.612, 97.861, 25.93, 0.678)
}
dend_7[11] {pt3dclear()
pt3dadd(115.612, 97.861, 25.93, 0.678)
pt3dadd(115.585, 97.84, 25.93, 0.698)
pt3dadd(115.491, 97.764, 25.93, 0.768)
pt3dadd(115.398, 97.689, 25.929, 0.838)
pt3dadd(115.305, 97.613, 25.929, 0.908)
pt3dadd(115.212, 97.538, 25.928, 0.978)
pt3dadd(115.118, 97.462, 25.928, 1.048)
pt3dadd(115.025, 97.386, 25.927, 1.118)
pt3dadd(114.932, 97.311, 25.927, 1.188)
pt3dadd(114.839, 97.235, 25.926, 1.258)
pt3dadd(114.745, 97.16, 25.926, 1.326)
pt3dadd(114.652, 97.084, 25.925, 1.396)
pt3dadd(114.559, 97.009, 25.925, 1.466)
pt3dadd(114.466, 96.933, 25.924, 1.536)
pt3dadd(114.372, 96.858, 25.924, 1.606)
pt3dadd(114.281, 96.78, 25.923, 1.6)
pt3dadd(114.19, 96.702, 25.922, 1.59)
pt3dadd(114.099, 96.624, 25.921, 1.582)
pt3dadd(114.007, 96.546, 25.92, 1.572)
pt3dadd(113.916, 96.468, 25.919, 1.562)
pt3dadd(113.825, 96.39, 25.918, 1.552)
pt3dadd(113.733, 96.313, 25.917, 1.542)
pt3dadd(113.642, 96.235, 25.916, 1.534)
pt3dadd(113.551, 96.157, 25.916, 1.524)
pt3dadd(113.46, 96.079, 25.914, 1.514)
pt3dadd(113.368, 96.001, 25.913, 1.476)
pt3dadd(113.276, 95.924, 25.912, 1.438)
pt3dadd(113.185, 95.847, 25.911, 1.4)
pt3dadd(113.093, 95.769, 25.91, 1.362)
pt3dadd(113.001, 95.692, 25.909, 1.322)
pt3dadd(112.91, 95.614, 25.907, 1.284)
pt3dadd(112.818, 95.537, 25.906, 1.246)
pt3dadd(112.726, 95.46, 25.905, 1.208)
pt3dadd(112.635, 95.382, 25.904, 1.17)
pt3dadd(112.543, 95.305, 25.903, 1.13)
pt3dadd(112.438, 95.247, 25.9, 1.13)
pt3dadd(112.333, 95.189, 25.898, 1.13)
pt3dadd(112.227, 95.131, 25.895, 1.13)
pt3dadd(112.122, 95.074, 25.892, 1.13)
pt3dadd(112.017, 95.016, 25.89, 1.13)
pt3dadd(111.912, 94.959, 25.887, 1.13)
pt3dadd(111.807, 94.901, 25.885, 1.13)
pt3dadd(111.701, 94.843, 25.882, 1.13)
pt3dadd(111.596, 94.786, 25.879, 1.13)
pt3dadd(111.491, 94.728, 25.877, 1.13)
pt3dadd(111.39, 94.663, 25.872, 1.13)
pt3dadd(111.289, 94.599, 25.867, 1.13)
pt3dadd(111.189, 94.534, 25.861, 1.13)
pt3dadd(111.088, 94.469, 25.856, 1.13)
pt3dadd(110.987, 94.404, 25.851, 1.13)
pt3dadd(110.886, 94.339, 25.846, 1.13)
pt3dadd(110.785, 94.274, 25.841, 1.13)
pt3dadd(110.685, 94.209, 25.836, 1.13)
pt3dadd(110.584, 94.145, 25.831, 1.13)
pt3dadd(110.483, 94.08, 25.826, 1.13)
pt3dadd(110.383, 94.014, 25.818, 1.12)
pt3dadd(110.283, 93.948, 25.811, 1.112)
pt3dadd(110.184, 93.882, 25.803, 1.102)
pt3dadd(110.084, 93.816, 25.795, 1.092)
pt3dadd(109.984, 93.75, 25.788, 1.084)
pt3dadd(109.884, 93.684, 25.78, 1.074)
pt3dadd(109.784, 93.618, 25.772, 1.066)
pt3dadd(109.684, 93.552, 25.764, 1.056)
pt3dadd(109.584, 93.486, 25.757, 1.046)
pt3dadd(109.485, 93.42, 25.749, 1.038)
pt3dadd(109.381, 93.361, 25.737, 1.002)
pt3dadd(109.278, 93.303, 25.726, 0.966)
pt3dadd(109.174, 93.244, 25.714, 0.93)
pt3dadd(109.07, 93.185, 25.702, 0.894)
pt3dadd(108.967, 93.126, 25.69, 0.858)
pt3dadd(108.863, 93.067, 25.679, 0.822)
pt3dadd(108.76, 93.008, 25.667, 0.786)
pt3dadd(108.656, 92.949, 25.655, 0.75)
pt3dadd(108.552, 92.89, 25.643, 0.714)
pt3dadd(108.449, 92.831, 25.632, 0.678)
}
dend_7[12] {pt3dclear()
pt3dadd(108.449, 92.831, 25.632, 0.678)
pt3dadd(108.437, 92.835, 25.634, 0.686)
pt3dadd(108.323, 92.866, 25.651, 0.75)
pt3dadd(108.209, 92.898, 25.669, 0.816)
pt3dadd(108.095, 92.929, 25.687, 0.882)
pt3dadd(107.982, 92.961, 25.705, 0.948)
pt3dadd(107.868, 92.992, 25.722, 1.014)
pt3dadd(107.754, 93.024, 25.74, 1.08)
pt3dadd(107.64, 93.056, 25.758, 1.144)
pt3dadd(107.526, 93.087, 25.776, 1.21)
pt3dadd(107.413, 93.119, 25.794, 1.276)
pt3dadd(107.299, 93.15, 25.811, 1.342)
pt3dadd(107.185, 93.182, 25.829, 1.408)
pt3dadd(107.071, 93.214, 25.847, 1.474)
pt3dadd(106.958, 93.245, 25.865, 1.54)
pt3dadd(106.847, 93.245, 25.884, 1.568)
pt3dadd(106.741, 93.195, 25.906, 1.54)
}
}
proc shape3d_135() {
dend_7[12] { pt3dadd(106.636, 93.144, 25.928, 1.512)
pt3dadd(106.53, 93.094, 25.95, 1.484)
pt3dadd(106.424, 93.044, 25.972, 1.456)
pt3dadd(106.319, 92.993, 25.994, 1.428)
pt3dadd(106.213, 92.943, 26.016, 1.4)
pt3dadd(106.107, 92.893, 26.038, 1.372)
pt3dadd(106.002, 92.842, 26.06, 1.344)
pt3dadd(105.911, 92.772, 26.083, 1.292)
pt3dadd(105.83, 92.688, 26.107, 1.228)
pt3dadd(105.749, 92.604, 26.13, 1.162)
pt3dadd(105.668, 92.52, 26.153, 1.096)
pt3dadd(105.587, 92.436, 26.177, 1.03)
pt3dadd(105.506, 92.352, 26.201, 0.964)
pt3dadd(105.425, 92.268, 26.224, 0.898)
pt3dadd(105.344, 92.184, 26.248, 0.832)
pt3dadd(105.263, 92.1, 26.271, 0.766)
pt3dadd(105.182, 92.016, 26.295, 0.7)
pt3dadd(105.108, 91.937, 26.335, 0.678)
pt3dadd(105.037, 91.861, 26.385, 0.678)
pt3dadd(104.966, 91.784, 26.434, 0.678)
pt3dadd(104.895, 91.708, 26.484, 0.678)
pt3dadd(104.824, 91.631, 26.533, 0.678)
pt3dadd(104.753, 91.555, 26.583, 0.678)
pt3dadd(104.683, 91.478, 26.633, 0.678)
pt3dadd(104.612, 91.402, 26.682, 0.678)
pt3dadd(104.541, 91.326, 26.732, 0.678)
pt3dadd(104.47, 91.249, 26.781, 0.678)
pt3dadd(104.394, 91.166, 26.814, 0.678)
pt3dadd(104.317, 91.079, 26.839, 0.678)
pt3dadd(104.24, 90.993, 26.865, 0.678)
pt3dadd(104.162, 90.906, 26.89, 0.678)
pt3dadd(104.085, 90.82, 26.916, 0.678)
pt3dadd(104.008, 90.733, 26.941, 0.678)
pt3dadd(103.93, 90.647, 26.967, 0.678)
pt3dadd(103.853, 90.56, 26.992, 0.678)
pt3dadd(103.776, 90.474, 27.018, 0.678)
pt3dadd(103.698, 90.387, 27.043, 0.678)
pt3dadd(103.621, 90.298, 27.061, 0.688)
pt3dadd(103.544, 90.208, 27.076, 0.7)
pt3dadd(103.467, 90.117, 27.09, 0.714)
pt3dadd(103.39, 90.027, 27.105, 0.726)
pt3dadd(103.313, 89.937, 27.12, 0.74)
pt3dadd(103.236, 89.847, 27.135, 0.752)
pt3dadd(103.159, 89.756, 27.149, 0.766)
pt3dadd(103.082, 89.666, 27.164, 0.778)
pt3dadd(103.005, 89.576, 27.179, 0.792)
pt3dadd(102.928, 89.485, 27.194, 0.804)
pt3dadd(102.856, 89.39, 27.205, 0.82)
pt3dadd(102.787, 89.293, 27.215, 0.836)
pt3dadd(102.718, 89.196, 27.226, 0.852)
pt3dadd(102.649, 89.098, 27.236, 0.868)
pt3dadd(102.58, 89.001, 27.246, 0.884)
pt3dadd(102.511, 88.904, 27.256, 0.902)
pt3dadd(102.441, 88.806, 27.267, 0.918)
pt3dadd(102.372, 88.709, 27.277, 0.934)
pt3dadd(102.303, 88.612, 27.287, 0.95)
pt3dadd(102.234, 88.515, 27.298, 0.966)
pt3dadd(102.175, 88.411, 27.305, 0.982)
pt3dadd(102.118, 88.305, 27.312, 0.998)
pt3dadd(102.062, 88.2, 27.319, 1.014)
pt3dadd(102.005, 88.094, 27.327, 1.03)
pt3dadd(101.949, 87.989, 27.334, 1.046)
pt3dadd(101.892, 87.883, 27.341, 1.062)
pt3dadd(101.835, 87.778, 27.348, 1.078)
pt3dadd(101.779, 87.672, 27.355, 1.094)
pt3dadd(101.722, 87.567, 27.362, 1.11)
pt3dadd(101.666, 87.461, 27.369, 1.126)
pt3dadd(101.604, 87.359, 27.38, 1.13)
pt3dadd(101.541, 87.258, 27.391, 1.13)
pt3dadd(101.479, 87.156, 27.403, 1.13)
pt3dadd(101.416, 87.055, 27.414, 1.13)
pt3dadd(101.353, 86.954, 27.426, 1.13)
pt3dadd(101.29, 86.853, 27.437, 1.13)
pt3dadd(101.227, 86.751, 27.448, 1.13)
pt3dadd(101.164, 86.65, 27.46, 1.13)
pt3dadd(101.101, 86.549, 27.472, 1.13)
pt3dadd(101.038, 86.448, 27.483, 1.13)
pt3dadd(100.982, 86.352, 27.518, 1.104)
pt3dadd(100.927, 86.257, 27.559, 1.07)
pt3dadd(100.872, 86.163, 27.601, 1.036)
pt3dadd(100.817, 86.069, 27.642, 1.002)
pt3dadd(100.762, 85.974, 27.684, 0.97)
pt3dadd(100.707, 85.88, 27.725, 0.936)
pt3dadd(100.652, 85.786, 27.767, 0.902)
pt3dadd(100.597, 85.691, 27.808, 0.868)
pt3dadd(100.542, 85.597, 27.85, 0.834)
pt3dadd(100.487, 85.503, 27.892, 0.8)
pt3dadd(100.445, 85.4, 27.929, 0.832)
pt3dadd(100.403, 85.297, 27.966, 0.868)
pt3dadd(100.361, 85.194, 28.003, 0.904)
pt3dadd(100.319, 85.09, 28.041, 0.94)
pt3dadd(100.277, 84.987, 28.078, 0.974)
pt3dadd(100.236, 84.884, 28.115, 1.01)
pt3dadd(100.194, 84.781, 28.153, 1.046)
pt3dadd(100.152, 84.678, 28.19, 1.082)
pt3dadd(100.11, 84.574, 28.227, 1.118)
pt3dadd(100.068, 84.471, 28.264, 1.152)
pt3dadd(100.016, 84.366, 28.284, 1.136)
pt3dadd(99.963, 84.261, 28.304, 1.118)
pt3dadd(99.911, 84.155, 28.324, 1.102)
pt3dadd(99.859, 84.05, 28.344, 1.086)
pt3dadd(99.807, 83.945, 28.364, 1.07)
pt3dadd(99.754, 83.839, 28.384, 1.052)
pt3dadd(99.702, 83.734, 28.404, 1.036)
pt3dadd(99.65, 83.629, 28.424, 1.02)
pt3dadd(99.597, 83.523, 28.444, 1.004)
pt3dadd(99.545, 83.418, 28.463, 0.986)
pt3dadd(99.491, 83.312, 28.474, 0.97)
pt3dadd(99.437, 83.205, 28.486, 0.954)
pt3dadd(99.384, 83.099, 28.497, 0.938)
pt3dadd(99.33, 82.992, 28.509, 0.922)
pt3dadd(99.276, 82.886, 28.52, 0.906)
pt3dadd(99.222, 82.779, 28.532, 0.89)
pt3dadd(99.169, 82.673, 28.543, 0.874)
pt3dadd(99.115, 82.567, 28.555, 0.858)
pt3dadd(99.061, 82.46, 28.567, 0.842)
pt3dadd(99.008, 82.354, 28.578, 0.83)
pt3dadd(98.958, 82.245, 28.586, 0.86)
pt3dadd(98.909, 82.136, 28.594, 0.89)
pt3dadd(98.859, 82.027, 28.603, 0.922)
pt3dadd(98.81, 81.918, 28.611, 0.952)
pt3dadd(98.76, 81.81, 28.619, 0.982)
pt3dadd(98.711, 81.701, 28.628, 1.012)
pt3dadd(98.661, 81.592, 28.636, 1.042)
pt3dadd(98.611, 81.483, 28.644, 1.074)
pt3dadd(98.562, 81.374, 28.653, 1.104)
pt3dadd(98.51, 81.267, 28.661, 1.13)
pt3dadd(98.444, 81.168, 28.674, 1.13)
pt3dadd(98.378, 81.069, 28.686, 1.13)
pt3dadd(98.311, 80.97, 28.699, 1.13)
pt3dadd(98.245, 80.871, 28.711, 1.13)
pt3dadd(98.179, 80.772, 28.723, 1.13)
pt3dadd(98.113, 80.673, 28.736, 1.13)
pt3dadd(98.047, 80.574, 28.748, 1.13)
pt3dadd(97.98, 80.475, 28.76, 1.13)
pt3dadd(97.914, 80.376, 28.773, 1.13)
pt3dadd(97.849, 80.278, 28.789, 1.128)
pt3dadd(97.791, 80.187, 28.833, 1.11)
pt3dadd(97.733, 80.097, 28.878, 1.094)
pt3dadd(97.675, 80.006, 28.922, 1.076)
pt3dadd(97.617, 79.916, 28.966, 1.06)
pt3dadd(97.558, 79.825, 29.011, 1.042)
pt3dadd(97.5, 79.735, 29.055, 1.024)
pt3dadd(97.442, 79.644, 29.099, 1.008)
pt3dadd(97.384, 79.554, 29.144, 0.99)
pt3dadd(97.326, 79.463, 29.188, 0.972)
pt3dadd(97.266, 79.373, 29.231, 0.962)
pt3dadd(97.202, 79.282, 29.269, 0.97)
pt3dadd(97.139, 79.191, 29.307, 0.978)
pt3dadd(97.075, 79.101, 29.345, 0.986)
pt3dadd(97.011, 79.01, 29.384, 0.994)
pt3dadd(96.947, 78.919, 29.422, 1.002)
pt3dadd(96.884, 78.828, 29.46, 1.01)
pt3dadd(96.82, 78.738, 29.498, 1.018)
pt3dadd(96.756, 78.647, 29.536, 1.026)
pt3dadd(96.692, 78.556, 29.575, 1.034)
pt3dadd(96.632, 78.462, 29.61, 1.038)
pt3dadd(96.578, 78.361, 29.639, 1.038)
pt3dadd(96.524, 78.26, 29.669, 1.038)
pt3dadd(96.47, 78.159, 29.698, 1.038)
pt3dadd(96.416, 78.058, 29.728, 1.038)
pt3dadd(96.362, 77.956, 29.757, 1.038)
pt3dadd(96.308, 77.855, 29.786, 1.038)
pt3dadd(96.253, 77.754, 29.816, 1.038)
pt3dadd(96.199, 77.653, 29.845, 1.038)
pt3dadd(96.145, 77.552, 29.875, 1.038)
pt3dadd(96.099, 77.447, 29.904, 1.032)
pt3dadd(96.062, 77.338, 29.933, 1.014)
pt3dadd(96.025, 77.23, 29.962, 0.996)
pt3dadd(95.988, 77.121, 29.991, 0.978)
pt3dadd(95.952, 77.012, 30.02, 0.96)
pt3dadd(95.915, 76.903, 30.049, 0.942)
pt3dadd(95.878, 76.794, 30.078, 0.924)
pt3dadd(95.842, 76.686, 30.107, 0.906)
pt3dadd(95.805, 76.577, 30.136, 0.888)
pt3dadd(95.768, 76.468, 30.165, 0.87)
pt3dadd(95.736, 76.36, 30.198, 0.854)
pt3dadd(95.709, 76.253, 30.237, 0.836)
pt3dadd(95.683, 76.146, 30.277, 0.82)
pt3dadd(95.656, 76.039, 30.316, 0.804)
pt3dadd(95.629, 75.931, 30.355, 0.788)
pt3dadd(95.603, 75.824, 30.395, 0.772)
pt3dadd(95.576, 75.717, 30.434, 0.756)
pt3dadd(95.55, 75.61, 30.473, 0.74)
pt3dadd(95.523, 75.503, 30.513, 0.724)
pt3dadd(95.496, 75.396, 30.552, 0.706)
pt3dadd(95.461, 75.29, 30.587, 0.704)
pt3dadd(95.416, 75.185, 30.618, 0.716)
pt3dadd(95.371, 75.08, 30.648, 0.728)
pt3dadd(95.326, 74.975, 30.679, 0.74)
pt3dadd(95.281, 74.87, 30.71, 0.752)
pt3dadd(95.236, 74.765, 30.74, 0.764)
pt3dadd(95.191, 74.66, 30.771, 0.776)
pt3dadd(95.146, 74.555, 30.801, 0.788)
pt3dadd(95.101, 74.45, 30.832, 0.8)
pt3dadd(95.056, 74.345, 30.863, 0.812)
pt3dadd(95.012, 74.239, 30.892, 0.824)
pt3dadd(94.968, 74.132, 30.918, 0.832)
pt3dadd(94.924, 74.025, 30.945, 0.84)
pt3dadd(94.88, 73.918, 30.972, 0.848)
}
}
proc shape3d_136() {
dend_7[12] { pt3dadd(94.836, 73.812, 30.999, 0.858)
pt3dadd(94.791, 73.705, 31.026, 0.866)
pt3dadd(94.747, 73.598, 31.053, 0.874)
pt3dadd(94.703, 73.491, 31.08, 0.882)
pt3dadd(94.659, 73.384, 31.107, 0.892)
pt3dadd(94.615, 73.277, 31.134, 0.9)
pt3dadd(94.574, 73.17, 31.161, 0.904)
pt3dadd(94.535, 73.061, 31.19, 0.904)
pt3dadd(94.497, 72.953, 31.218, 0.904)
pt3dadd(94.458, 72.845, 31.247, 0.904)
pt3dadd(94.42, 72.736, 31.275, 0.904)
pt3dadd(94.381, 72.628, 31.304, 0.904)
pt3dadd(94.343, 72.519, 31.332, 0.904)
pt3dadd(94.304, 72.411, 31.36, 0.904)
pt3dadd(94.265, 72.303, 31.389, 0.904)
pt3dadd(94.227, 72.194, 31.417, 0.904)
pt3dadd(94.192, 72.088, 31.454, 0.904)
pt3dadd(94.16, 71.985, 31.497, 0.904)
pt3dadd(94.128, 71.882, 31.541, 0.904)
pt3dadd(94.096, 71.779, 31.585, 0.904)
pt3dadd(94.064, 71.676, 31.628, 0.904)
pt3dadd(94.032, 71.573, 31.672, 0.904)
pt3dadd(93.999, 71.47, 31.716, 0.904)
pt3dadd(93.967, 71.367, 31.76, 0.904)
pt3dadd(93.935, 71.264, 31.803, 0.904)
pt3dadd(93.903, 71.161, 31.847, 0.904)
pt3dadd(93.85, 71.07, 31.89, 0.916)
pt3dadd(93.777, 70.989, 31.932, 0.938)
pt3dadd(93.703, 70.908, 31.973, 0.96)
pt3dadd(93.63, 70.827, 32.015, 0.98)
pt3dadd(93.557, 70.747, 32.057, 1.002)
pt3dadd(93.484, 70.666, 32.099, 1.024)
pt3dadd(93.41, 70.585, 32.14, 1.046)
pt3dadd(93.337, 70.504, 32.182, 1.068)
pt3dadd(93.264, 70.424, 32.224, 1.09)
pt3dadd(93.191, 70.343, 32.266, 1.112)
pt3dadd(93.123, 70.254, 32.302, 1.11)
pt3dadd(93.06, 70.16, 32.334, 1.088)
pt3dadd(92.997, 70.065, 32.367, 1.066)
pt3dadd(92.934, 69.97, 32.399, 1.046)
pt3dadd(92.872, 69.876, 32.431, 1.024)
pt3dadd(92.809, 69.781, 32.463, 1.002)
pt3dadd(92.746, 69.687, 32.495, 0.98)
pt3dadd(92.683, 69.592, 32.527, 0.96)
pt3dadd(92.62, 69.497, 32.559, 0.938)
pt3dadd(92.557, 69.403, 32.591, 0.916)
pt3dadd(92.482, 69.327, 32.634, 0.894)
pt3dadd(92.399, 69.266, 32.684, 0.874)
pt3dadd(92.315, 69.204, 32.735, 0.854)
pt3dadd(92.231, 69.143, 32.785, 0.832)
pt3dadd(92.148, 69.082, 32.835, 0.812)
pt3dadd(92.064, 69.021, 32.886, 0.792)
pt3dadd(91.98, 68.96, 32.936, 0.77)
pt3dadd(91.896, 68.899, 32.986, 0.75)
pt3dadd(91.813, 68.838, 33.037, 0.728)
pt3dadd(91.729, 68.776, 33.087, 0.708)
pt3dadd(91.658, 68.699, 33.132, 0.732)
pt3dadd(91.596, 68.609, 33.174, 0.788)
pt3dadd(91.534, 68.519, 33.216, 0.846)
pt3dadd(91.472, 68.43, 33.258, 0.902)
pt3dadd(91.41, 68.34, 33.299, 0.96)
pt3dadd(91.348, 68.25, 33.341, 1.016)
pt3dadd(91.286, 68.16, 33.383, 1.074)
pt3dadd(91.224, 68.07, 33.424, 1.13)
pt3dadd(91.162, 67.981, 33.466, 1.186)
pt3dadd(91.101, 67.891, 33.508, 1.244)
pt3dadd(91.03, 67.803, 33.542, 1.26)
pt3dadd(90.954, 67.717, 33.571, 1.252)
pt3dadd(90.878, 67.631, 33.601, 1.246)
pt3dadd(90.802, 67.545, 33.63, 1.238)
pt3dadd(90.726, 67.459, 33.66, 1.23)
pt3dadd(90.651, 67.373, 33.689, 1.224)
pt3dadd(90.575, 67.287, 33.719, 1.216)
pt3dadd(90.499, 67.201, 33.748, 1.208)
pt3dadd(90.423, 67.115, 33.778, 1.2)
pt3dadd(90.347, 67.029, 33.807, 1.194)
pt3dadd(90.273, 66.954, 33.853, 1.186)
pt3dadd(90.201, 66.883, 33.906, 1.18)
pt3dadd(90.128, 66.813, 33.96, 1.174)
pt3dadd(90.055, 66.742, 34.013, 1.168)
pt3dadd(89.982, 66.672, 34.067, 1.162)
pt3dadd(89.909, 66.602, 34.12, 1.156)
pt3dadd(89.836, 66.531, 34.174, 1.15)
pt3dadd(89.763, 66.461, 34.228, 1.144)
pt3dadd(89.69, 66.391, 34.281, 1.138)
pt3dadd(89.617, 66.32, 34.335, 1.13)
pt3dadd(89.526, 66.28, 34.388, 1.16)
pt3dadd(89.43, 66.246, 34.442, 1.198)
pt3dadd(89.335, 66.211, 34.496, 1.234)
pt3dadd(89.24, 66.177, 34.549, 1.27)
pt3dadd(89.145, 66.142, 34.603, 1.306)
pt3dadd(89.05, 66.108, 34.657, 1.344)
pt3dadd(88.954, 66.073, 34.71, 1.38)
pt3dadd(88.859, 66.039, 34.764, 1.416)
pt3dadd(88.764, 66.004, 34.818, 1.452)
pt3dadd(88.669, 65.97, 34.872, 1.486)
pt3dadd(88.583, 65.952, 34.94, 1.456)
pt3dadd(88.497, 65.934, 35.008, 1.426)
pt3dadd(88.411, 65.915, 35.076, 1.394)
pt3dadd(88.325, 65.897, 35.144, 1.364)
pt3dadd(88.239, 65.879, 35.212, 1.334)
pt3dadd(88.152, 65.861, 35.28, 1.302)
pt3dadd(88.066, 65.842, 35.348, 1.272)
pt3dadd(87.98, 65.824, 35.416, 1.242)
pt3dadd(87.894, 65.806, 35.483, 1.21)
pt3dadd(87.805, 65.787, 35.548, 1.18)
pt3dadd(87.697, 65.76, 35.585, 1.156)
pt3dadd(87.588, 65.733, 35.621, 1.13)
pt3dadd(87.48, 65.707, 35.658, 1.106)
pt3dadd(87.372, 65.68, 35.694, 1.08)
pt3dadd(87.263, 65.654, 35.731, 1.056)
pt3dadd(87.155, 65.627, 35.768, 1.03)
pt3dadd(87.046, 65.6, 35.804, 1.006)
pt3dadd(86.938, 65.574, 35.841, 0.98)
pt3dadd(86.829, 65.547, 35.877, 0.954)
pt3dadd(86.722, 65.514, 35.91, 0.932)
pt3dadd(86.617, 65.459, 35.926, 0.914)
pt3dadd(86.513, 65.403, 35.942, 0.896)
pt3dadd(86.408, 65.347, 35.958, 0.878)
pt3dadd(86.304, 65.292, 35.974, 0.86)
pt3dadd(86.199, 65.236, 35.991, 0.842)
pt3dadd(86.095, 65.181, 36.007, 0.824)
pt3dadd(85.99, 65.125, 36.023, 0.806)
pt3dadd(85.886, 65.069, 36.039, 0.788)
pt3dadd(85.781, 65.014, 36.056, 0.77)
pt3dadd(85.677, 64.956, 36.07, 0.754)
pt3dadd(85.576, 64.893, 36.079, 0.746)
pt3dadd(85.474, 64.83, 36.089, 0.738)
pt3dadd(85.373, 64.767, 36.098, 0.73)
pt3dadd(85.271, 64.704, 36.108, 0.722)
pt3dadd(85.169, 64.641, 36.117, 0.716)
pt3dadd(85.068, 64.579, 36.126, 0.708)
pt3dadd(84.966, 64.516, 36.136, 0.7)
pt3dadd(84.865, 64.453, 36.145, 0.692)
pt3dadd(84.763, 64.39, 36.155, 0.684)
pt3dadd(84.662, 64.326, 36.163, 0.678)
pt3dadd(84.561, 64.262, 36.169, 0.676)
pt3dadd(84.46, 64.197, 36.175, 0.676)
pt3dadd(84.359, 64.132, 36.181, 0.674)
pt3dadd(84.258, 64.068, 36.187, 0.674)
pt3dadd(84.158, 64.003, 36.194, 0.672)
pt3dadd(84.057, 63.938, 36.2, 0.672)
pt3dadd(83.956, 63.874, 36.206, 0.67)
pt3dadd(83.855, 63.809, 36.212, 0.67)
pt3dadd(83.754, 63.744, 36.218, 0.668)
pt3dadd(83.65, 63.687, 36.226, 0.658)
pt3dadd(83.538, 63.646, 36.236, 0.624)
pt3dadd(83.426, 63.605, 36.248, 0.59)
pt3dadd(83.314, 63.564, 36.258, 0.558)
pt3dadd(83.202, 63.523, 36.27, 0.524)
pt3dadd(83.09, 63.483, 36.28, 0.49)
pt3dadd(82.978, 63.442, 36.292, 0.458)
pt3dadd(82.866, 63.401, 36.302, 0.424)
pt3dadd(82.754, 63.36, 36.313, 0.39)
pt3dadd(82.642, 63.319, 36.325, 0.358)
pt3dadd(82.53, 63.283, 36.341, 0.33)
pt3dadd(82.417, 63.26, 36.37, 0.32)
pt3dadd(82.305, 63.237, 36.399, 0.308)
pt3dadd(82.192, 63.214, 36.428, 0.298)
pt3dadd(82.08, 63.191, 36.457, 0.288)
pt3dadd(81.967, 63.168, 36.486, 0.276)
pt3dadd(81.855, 63.145, 36.515, 0.266)
pt3dadd(81.742, 63.122, 36.544, 0.254)
pt3dadd(81.63, 63.099, 36.573, 0.244)
pt3dadd(81.517, 63.076, 36.603, 0.232)
pt3dadd(81.405, 63.058, 36.633, 0.228)
pt3dadd(81.292, 63.047, 36.667, 0.234)
pt3dadd(81.18, 63.036, 36.7, 0.238)
pt3dadd(81.067, 63.026, 36.734, 0.244)
pt3dadd(80.955, 63.015, 36.767, 0.25)
pt3dadd(80.842, 63.004, 36.801, 0.254)
pt3dadd(80.729, 62.993, 36.834, 0.26)
pt3dadd(80.617, 62.982, 36.868, 0.264)
pt3dadd(80.504, 62.971, 36.901, 0.27)
pt3dadd(80.392, 62.96, 36.935, 0.276)
pt3dadd(80.277, 62.952, 36.964, 0.286)
pt3dadd(80.161, 62.949, 36.988, 0.304)
pt3dadd(80.045, 62.945, 37.013, 0.32)
pt3dadd(79.929, 62.941, 37.037, 0.338)
pt3dadd(79.812, 62.938, 37.062, 0.356)
pt3dadd(79.696, 62.934, 37.086, 0.372)
pt3dadd(79.58, 62.93, 37.111, 0.39)
pt3dadd(79.464, 62.927, 37.136, 0.408)
pt3dadd(79.347, 62.923, 37.16, 0.424)
pt3dadd(79.231, 62.919, 37.185, 0.442)
pt3dadd(79.114, 62.913, 37.203, 0.468)
pt3dadd(78.995, 62.904, 37.216, 0.502)
pt3dadd(78.876, 62.895, 37.228, 0.538)
pt3dadd(78.757, 62.886, 37.241, 0.574)
pt3dadd(78.639, 62.877, 37.253, 0.608)
pt3dadd(78.52, 62.868, 37.266, 0.644)
pt3dadd(78.401, 62.859, 37.278, 0.68)
pt3dadd(78.282, 62.849, 37.291, 0.714)
pt3dadd(78.164, 62.84, 37.303, 0.75)
pt3dadd(78.045, 62.831, 37.316, 0.784)
pt3dadd(77.926, 62.82, 37.325, 0.814)
pt3dadd(77.807, 62.806, 37.33, 0.838)
pt3dadd(77.688, 62.793, 37.336, 0.86)
pt3dadd(77.569, 62.779, 37.342, 0.882)
pt3dadd(77.45, 62.765, 37.347, 0.906)
}
}
proc shape3d_137() {
dend_7[12] { pt3dadd(77.331, 62.751, 37.353, 0.928)
pt3dadd(77.212, 62.737, 37.358, 0.95)
pt3dadd(77.093, 62.724, 37.364, 0.974)
pt3dadd(76.974, 62.71, 37.369, 0.996)
pt3dadd(76.855, 62.696, 37.375, 1.018)
pt3dadd(76.737, 62.675, 37.38, 1.032)
pt3dadd(76.621, 62.645, 37.384, 1.034)
pt3dadd(76.505, 62.615, 37.389, 1.038)
pt3dadd(76.389, 62.585, 37.394, 1.04)
pt3dadd(76.273, 62.556, 37.398, 1.042)
pt3dadd(76.157, 62.526, 37.403, 1.046)
pt3dadd(76.041, 62.496, 37.407, 1.048)
pt3dadd(75.925, 62.466, 37.411, 1.052)
pt3dadd(75.808, 62.436, 37.416, 1.054)
pt3dadd(75.692, 62.407, 37.42, 1.056)
pt3dadd(75.58, 62.367, 37.426, 1.048)
pt3dadd(75.469, 62.321, 37.433, 1.032)
pt3dadd(75.359, 62.274, 37.44, 1.016)
pt3dadd(75.249, 62.227, 37.447, 1)
pt3dadd(75.138, 62.181, 37.453, 0.982)
pt3dadd(75.028, 62.134, 37.46, 0.966)
pt3dadd(74.918, 62.087, 37.467, 0.95)
pt3dadd(74.808, 62.041, 37.474, 0.934)
pt3dadd(74.697, 61.994, 37.48, 0.918)
pt3dadd(74.587, 61.947, 37.487, 0.9)
pt3dadd(74.475, 61.907, 37.496, 0.884)
pt3dadd(74.361, 61.87, 37.508, 0.868)
pt3dadd(74.248, 61.834, 37.519, 0.85)
pt3dadd(74.134, 61.798, 37.53, 0.834)
pt3dadd(74.021, 61.762, 37.541, 0.816)
pt3dadd(73.907, 61.726, 37.552, 0.8)
pt3dadd(73.793, 61.689, 37.563, 0.782)
pt3dadd(73.68, 61.653, 37.574, 0.766)
pt3dadd(73.566, 61.617, 37.585, 0.748)
pt3dadd(73.452, 61.581, 37.596, 0.732)
pt3dadd(73.34, 61.549, 37.618, 0.736)
pt3dadd(73.229, 61.521, 37.648, 0.754)
pt3dadd(73.118, 61.492, 37.678, 0.774)
pt3dadd(73.007, 61.464, 37.707, 0.792)
pt3dadd(72.896, 61.436, 37.737, 0.812)
pt3dadd(72.785, 61.407, 37.767, 0.83)
pt3dadd(72.674, 61.379, 37.797, 0.85)
pt3dadd(72.563, 61.35, 37.826, 0.868)
pt3dadd(72.452, 61.322, 37.856, 0.888)
pt3dadd(72.341, 61.294, 37.886, 0.906)
pt3dadd(72.231, 61.263, 37.917, 0.914)
pt3dadd(72.122, 61.232, 37.949, 0.914)
pt3dadd(72.013, 61.2, 37.981, 0.914)
pt3dadd(71.904, 61.169, 38.013, 0.914)
pt3dadd(71.794, 61.137, 38.045, 0.916)
pt3dadd(71.685, 61.106, 38.077, 0.916)
pt3dadd(71.576, 61.074, 38.109, 0.916)
pt3dadd(71.467, 61.043, 38.142, 0.916)
pt3dadd(71.358, 61.011, 38.174, 0.918)
pt3dadd(71.248, 60.98, 38.206, 0.918)
pt3dadd(71.14, 60.94, 38.231, 0.872)
pt3dadd(71.032, 60.896, 38.254, 0.808)
pt3dadd(70.923, 60.852, 38.276, 0.744)
pt3dadd(70.815, 60.808, 38.299, 0.68)
pt3dadd(70.707, 60.764, 38.322, 0.614)
pt3dadd(70.599, 60.72, 38.344, 0.55)
pt3dadd(70.49, 60.675, 38.367, 0.486)
pt3dadd(70.382, 60.631, 38.39, 0.422)
pt3dadd(70.274, 60.587, 38.412, 0.358)
pt3dadd(70.166, 60.543, 38.435, 0.292)
pt3dadd(70.053, 60.508, 38.45, 0.28)
pt3dadd(69.938, 60.477, 38.463, 0.292)
pt3dadd(69.823, 60.446, 38.475, 0.304)
pt3dadd(69.708, 60.415, 38.487, 0.314)
pt3dadd(69.593, 60.383, 38.5, 0.326)
pt3dadd(69.478, 60.352, 38.512, 0.336)
pt3dadd(69.363, 60.321, 38.524, 0.348)
pt3dadd(69.248, 60.29, 38.536, 0.36)
pt3dadd(69.133, 60.259, 38.549, 0.37)
pt3dadd(69.018, 60.227, 38.561, 0.382)
pt3dadd(68.901, 60.203, 38.569, 0.382)
pt3dadd(68.784, 60.181, 38.574, 0.378)
pt3dadd(68.666, 60.159, 38.58, 0.374)
pt3dadd(68.548, 60.137, 38.585, 0.37)
pt3dadd(68.43, 60.115, 38.591, 0.366)
pt3dadd(68.312, 60.093, 38.597, 0.362)
pt3dadd(68.195, 60.071, 38.602, 0.358)
pt3dadd(68.077, 60.049, 38.608, 0.354)
pt3dadd(67.959, 60.027, 38.613, 0.348)
pt3dadd(67.841, 60.006, 38.619, 0.344)
pt3dadd(67.722, 59.99, 38.622, 0.336)
pt3dadd(67.603, 59.976, 38.625, 0.324)
pt3dadd(67.484, 59.962, 38.627, 0.312)
pt3dadd(67.365, 59.948, 38.63, 0.3)
pt3dadd(67.246, 59.934, 38.632, 0.288)
pt3dadd(67.127, 59.92, 38.635, 0.276)
pt3dadd(67.007, 59.906, 38.637, 0.264)
pt3dadd(66.888, 59.892, 38.64, 0.252)
pt3dadd(66.769, 59.879, 38.642, 0.24)
pt3dadd(66.65, 59.865, 38.645, 0.228)
pt3dadd(66.531, 59.855, 38.648, 0.228)
pt3dadd(66.411, 59.846, 38.653, 0.232)
pt3dadd(66.291, 59.837, 38.657, 0.236)
pt3dadd(66.172, 59.828, 38.661, 0.24)
pt3dadd(66.052, 59.819, 38.665, 0.244)
pt3dadd(65.933, 59.81, 38.669, 0.246)
pt3dadd(65.813, 59.802, 38.673, 0.25)
pt3dadd(65.693, 59.793, 38.677, 0.254)
pt3dadd(65.574, 59.784, 38.681, 0.258)
pt3dadd(65.454, 59.775, 38.686, 0.262)
pt3dadd(65.335, 59.763, 38.693, 0.302)
pt3dadd(65.217, 59.749, 38.702, 0.354)
pt3dadd(65.098, 59.735, 38.711, 0.408)
pt3dadd(64.979, 59.721, 38.72, 0.462)
pt3dadd(64.861, 59.707, 38.729, 0.514)
pt3dadd(64.742, 59.693, 38.739, 0.568)
pt3dadd(64.623, 59.679, 38.748, 0.62)
pt3dadd(64.504, 59.666, 38.757, 0.674)
pt3dadd(64.386, 59.652, 38.766, 0.726)
pt3dadd(64.267, 59.638, 38.775, 0.78)
pt3dadd(64.153, 59.606, 38.787, 0.782)
pt3dadd(64.04, 59.568, 38.8, 0.768)
pt3dadd(63.928, 59.529, 38.814, 0.752)
pt3dadd(63.815, 59.491, 38.827, 0.736)
pt3dadd(63.703, 59.452, 38.841, 0.722)
pt3dadd(63.59, 59.414, 38.854, 0.706)
pt3dadd(63.478, 59.375, 38.868, 0.69)
pt3dadd(63.365, 59.337, 38.881, 0.676)
pt3dadd(63.253, 59.298, 38.895, 0.66)
pt3dadd(63.14, 59.26, 38.908, 0.644)
pt3dadd(63.03, 59.223, 38.933, 0.632)
pt3dadd(62.921, 59.185, 38.961, 0.62)
pt3dadd(62.812, 59.148, 38.989, 0.606)
pt3dadd(62.703, 59.111, 39.016, 0.594)
pt3dadd(62.594, 59.074, 39.044, 0.582)
pt3dadd(62.485, 59.037, 39.072, 0.57)
pt3dadd(62.376, 59, 39.1, 0.556)
pt3dadd(62.266, 58.963, 39.127, 0.544)
pt3dadd(62.157, 58.925, 39.155, 0.532)
pt3dadd(62.048, 58.888, 39.183, 0.52)
pt3dadd(61.944, 58.862, 39.227, 0.534)
pt3dadd(61.839, 58.836, 39.271, 0.55)
pt3dadd(61.735, 58.81, 39.315, 0.564)
pt3dadd(61.631, 58.784, 39.36, 0.58)
pt3dadd(61.526, 58.758, 39.404, 0.596)
pt3dadd(61.422, 58.732, 39.448, 0.612)
pt3dadd(61.318, 58.706, 39.493, 0.628)
pt3dadd(61.213, 58.68, 39.537, 0.644)
pt3dadd(61.109, 58.654, 39.582, 0.66)
pt3dadd(61.005, 58.628, 39.626, 0.674)
pt3dadd(60.895, 58.614, 39.666, 0.66)
pt3dadd(60.786, 58.601, 39.706, 0.642)
pt3dadd(60.677, 58.587, 39.745, 0.624)
pt3dadd(60.567, 58.574, 39.785, 0.608)
pt3dadd(60.458, 58.56, 39.824, 0.59)
pt3dadd(60.349, 58.546, 39.864, 0.572)
pt3dadd(60.239, 58.533, 39.903, 0.556)
pt3dadd(60.13, 58.519, 39.943, 0.538)
pt3dadd(60.02, 58.506, 39.982, 0.52)
pt3dadd(59.911, 58.492, 40.022, 0.504)
pt3dadd(59.809, 58.488, 40.074, 0.488)
pt3dadd(59.707, 58.484, 40.126, 0.474)
pt3dadd(59.604, 58.48, 40.179, 0.46)
pt3dadd(59.502, 58.477, 40.231, 0.446)
pt3dadd(59.4, 58.473, 40.284, 0.43)
pt3dadd(59.298, 58.469, 40.336, 0.416)
pt3dadd(59.196, 58.465, 40.389, 0.402)
pt3dadd(59.094, 58.461, 40.442, 0.386)
pt3dadd(58.992, 58.458, 40.494, 0.372)
pt3dadd(58.89, 58.454, 40.547, 0.358)
pt3dadd(58.792, 58.454, 40.604, 0.344)
pt3dadd(58.694, 58.454, 40.661, 0.332)
pt3dadd(58.595, 58.454, 40.719, 0.318)
pt3dadd(58.497, 58.454, 40.776, 0.306)
pt3dadd(58.399, 58.454, 40.833, 0.292)
pt3dadd(58.3, 58.454, 40.891, 0.278)
pt3dadd(58.202, 58.454, 40.948, 0.266)
pt3dadd(58.104, 58.454, 41.005, 0.252)
pt3dadd(58.005, 58.454, 41.063, 0.24)
pt3dadd(57.907, 58.454, 41.12, 0.226)
}
dend_7[13] {pt3dclear()
pt3dadd(108.449, 92.831, 25.632, 0.678)
pt3dadd(108.444, 92.818, 25.614, 0.684)
pt3dadd(108.42, 92.755, 25.531, 0.71)
pt3dadd(108.396, 92.693, 25.448, 0.734)
pt3dadd(108.373, 92.63, 25.365, 0.76)
pt3dadd(108.349, 92.568, 25.282, 0.786)
pt3dadd(108.325, 92.505, 25.199, 0.812)
pt3dadd(108.302, 92.443, 25.116, 0.838)
pt3dadd(108.278, 92.38, 25.033, 0.862)
pt3dadd(108.254, 92.318, 24.95, 0.888)
pt3dadd(108.237, 92.232, 24.9, 0.904)
pt3dadd(108.229, 92.112, 24.9, 0.904)
pt3dadd(108.221, 91.993, 24.9, 0.904)
pt3dadd(108.213, 91.873, 24.9, 0.904)
pt3dadd(108.205, 91.753, 24.9, 0.904)
pt3dadd(108.197, 91.633, 24.9, 0.904)
pt3dadd(108.189, 91.514, 24.9, 0.904)
pt3dadd(108.119, 91.421, 24.9, 0.904)
pt3dadd(108.037, 91.333, 24.9, 0.904)
pt3dadd(107.999, 91.224, 24.9, 0.904)
pt3dadd(107.979, 91.105, 24.9, 0.904)
pt3dadd(107.951, 90.99, 24.9, 0.904)
pt3dadd(107.87, 90.903, 24.9, 0.904)
pt3dadd(107.788, 90.815, 24.9, 0.904)
pt3dadd(107.685, 90.754, 24.9, 0.904)
}
}
proc shape3d_138() {
dend_7[13] { pt3dadd(107.581, 90.693, 24.9, 0.904)
pt3dadd(107.488, 90.617, 24.9, 0.904)
pt3dadd(107.398, 90.538, 24.9, 0.904)
pt3dadd(107.308, 90.459, 24.9, 0.904)
pt3dadd(107.232, 90.371, 24.9, 0.904)
pt3dadd(107.199, 90.255, 24.9, 0.904)
pt3dadd(107.166, 90.14, 24.9, 0.904)
pt3dadd(107.09, 90.05, 24.9, 0.904)
pt3dadd(107.005, 89.965, 24.9, 0.904)
pt3dadd(106.92, 89.88, 24.9, 0.904)
pt3dadd(106.802, 89.86, 24.9, 0.904)
pt3dadd(106.684, 89.839, 24.9, 0.904)
pt3dadd(106.605, 89.78, 24.9, 0.904)
pt3dadd(106.586, 89.661, 24.9, 0.904)
pt3dadd(106.567, 89.543, 24.9, 0.904)
pt3dadd(106.548, 89.424, 24.9, 0.904)
pt3dadd(106.504, 89.313, 24.9, 0.904)
pt3dadd(106.458, 89.202, 24.9, 0.904)
pt3dadd(106.388, 89.108, 24.9, 0.904)
pt3dadd(106.303, 89.023, 24.9, 0.904)
pt3dadd(106.218, 88.938, 24.9, 0.904)
pt3dadd(106.118, 88.872, 24.9, 0.904)
pt3dadd(106.015, 88.811, 24.9, 0.904)
pt3dadd(105.909, 88.755, 24.9, 0.904)
pt3dadd(105.84, 88.66, 24.9, 0.904)
pt3dadd(105.777, 88.558, 24.9, 0.904)
pt3dadd(105.714, 88.455, 24.9, 0.904)
pt3dadd(105.651, 88.353, 24.9, 0.904)
pt3dadd(105.588, 88.251, 24.9, 0.904)
pt3dadd(105.546, 88.139, 24.9, 0.904)
pt3dadd(105.51, 88.025, 24.9, 0.904)
pt3dadd(105.474, 87.91, 24.9, 0.904)
pt3dadd(105.439, 87.796, 24.9, 0.904)
pt3dadd(105.403, 87.681, 24.9, 0.904)
pt3dadd(105.371, 87.566, 24.9, 0.904)
pt3dadd(105.361, 87.446, 24.9, 0.904)
pt3dadd(105.351, 87.327, 24.9, 0.904)
pt3dadd(105.341, 87.207, 24.9, 0.904)
pt3dadd(105.331, 87.087, 24.9, 0.904)
pt3dadd(105.32, 86.968, 24.9, 0.904)
pt3dadd(105.31, 86.848, 24.9, 0.904)
pt3dadd(105.284, 86.732, 24.9, 0.904)
pt3dadd(105.251, 86.616, 24.9, 0.904)
pt3dadd(105.218, 86.501, 24.9, 0.904)
pt3dadd(105.185, 86.386, 24.9, 0.904)
pt3dadd(105.152, 86.27, 24.9, 0.904)
pt3dadd(105.119, 86.155, 24.9, 0.904)
pt3dadd(105.097, 86.037, 24.9, 0.904)
pt3dadd(105.075, 85.919, 24.9, 0.904)
pt3dadd(105.052, 85.801, 24.9, 0.904)
pt3dadd(105.03, 85.683, 24.9, 0.904)
pt3dadd(105.008, 85.565, 24.9, 0.904)
pt3dadd(104.984, 85.448, 24.9, 0.904)
pt3dadd(104.927, 85.342, 24.9, 0.904)
pt3dadd(104.87, 85.236, 24.9, 0.904)
pt3dadd(104.813, 85.131, 24.9, 0.904)
pt3dadd(104.757, 85.025, 24.9, 0.904)
pt3dadd(104.7, 84.919, 24.9, 0.904)
pt3dadd(104.686, 84.801, 24.9, 0.904)
pt3dadd(104.678, 84.682, 24.9, 0.904)
pt3dadd(104.67, 84.562, 24.9, 0.904)
pt3dadd(104.662, 84.442, 24.9, 0.904)
pt3dadd(104.654, 84.322, 24.9, 0.904)
pt3dadd(104.646, 84.203, 24.9, 0.904)
pt3dadd(104.64, 84.083, 24.9, 0.904)
pt3dadd(104.64, 83.963, 24.9, 0.904)
pt3dadd(104.64, 83.843, 24.9, 0.904)
pt3dadd(104.639, 83.723, 24.9, 0.904)
pt3dadd(104.634, 83.603, 24.9, 0.904)
pt3dadd(104.629, 83.483, 24.9, 0.904)
pt3dadd(104.607, 83.367, 24.9, 0.904)
pt3dadd(104.561, 83.256, 24.9, 0.904)
pt3dadd(104.508, 83.151, 24.9, 0.904)
pt3dadd(104.414, 83.076, 24.9, 0.904)
pt3dadd(104.321, 83.001, 24.9, 0.904)
pt3dadd(104.236, 82.916, 24.9, 0.904)
pt3dadd(104.153, 82.829, 24.9, 0.904)
pt3dadd(104.073, 82.74, 24.9, 0.904)
pt3dadd(103.992, 82.651, 24.9, 0.904)
pt3dadd(103.911, 82.562, 24.9, 0.904)
pt3dadd(103.83, 82.473, 24.9, 0.904)
pt3dadd(103.755, 82.38, 24.9, 0.904)
pt3dadd(103.683, 82.284, 24.9, 0.904)
pt3dadd(103.611, 82.188, 24.9, 0.904)
pt3dadd(103.539, 82.092, 24.9, 0.904)
pt3dadd(103.467, 81.996, 24.9, 0.904)
pt3dadd(103.395, 81.9, 24.9, 0.904)
pt3dadd(103.323, 81.804, 24.9, 0.904)
pt3dadd(103.251, 81.708, 24.9, 0.904)
pt3dadd(103.179, 81.612, 24.9, 0.904)
pt3dadd(103.107, 81.516, 24.9, 0.904)
pt3dadd(103.041, 81.416, 24.9, 0.904)
pt3dadd(102.978, 81.314, 24.9, 0.904)
pt3dadd(102.915, 81.212, 24.9, 0.904)
pt3dadd(102.852, 81.11, 24.9, 0.904)
pt3dadd(102.789, 81.008, 24.9, 0.904)
pt3dadd(102.71, 80.92, 24.9, 0.904)
pt3dadd(102.616, 80.845, 24.9, 0.904)
pt3dadd(102.522, 80.77, 24.9, 0.904)
pt3dadd(102.429, 80.695, 24.9, 0.904)
pt3dadd(102.335, 80.62, 24.9, 0.904)
pt3dadd(102.241, 80.545, 24.9, 0.904)
pt3dadd(102.148, 80.47, 24.9, 0.904)
pt3dadd(102.054, 80.395, 24.9, 0.904)
pt3dadd(101.96, 80.32, 24.9, 0.904)
pt3dadd(101.867, 80.245, 24.9, 0.904)
pt3dadd(101.772, 80.172, 24.9, 0.904)
pt3dadd(101.676, 80.1, 24.9, 0.904)
pt3dadd(101.58, 80.028, 24.9, 0.904)
pt3dadd(101.484, 79.956, 24.9, 0.904)
pt3dadd(101.388, 79.884, 24.9, 0.904)
pt3dadd(101.292, 79.812, 24.9, 0.904)
pt3dadd(101.196, 79.74, 24.9, 0.904)
pt3dadd(101.1, 79.668, 24.9, 0.904)
pt3dadd(101.004, 79.596, 24.9, 0.904)
pt3dadd(100.908, 79.524, 24.9, 0.904)
pt3dadd(100.816, 79.447, 24.9, 0.904)
pt3dadd(100.727, 79.366, 24.9, 0.904)
pt3dadd(100.638, 79.285, 24.9, 0.904)
pt3dadd(100.549, 79.205, 24.9, 0.904)
pt3dadd(100.461, 79.124, 24.9, 0.904)
pt3dadd(100.402, 79.023, 24.9, 0.904)
pt3dadd(100.362, 78.91, 24.9, 0.904)
pt3dadd(100.321, 78.797, 24.9, 0.904)
pt3dadd(100.274, 78.687, 24.9, 0.904)
pt3dadd(100.228, 78.576, 24.9, 0.904)
pt3dadd(100.141, 78.494, 24.9, 0.904)
pt3dadd(100.053, 78.412, 24.9, 0.904)
pt3dadd(99.949, 78.354, 24.9, 0.904)
pt3dadd(99.841, 78.3, 24.9, 0.904)
pt3dadd(99.738, 78.24, 24.9, 0.904)
pt3dadd(99.639, 78.172, 24.9, 0.904)
pt3dadd(99.559, 78.083, 24.9, 0.904)
pt3dadd(99.478, 77.994, 24.9, 0.904)
pt3dadd(99.397, 77.906, 24.9, 0.904)
pt3dadd(99.317, 77.817, 24.9, 0.904)
pt3dadd(99.23, 77.737, 24.9, 0.904)
pt3dadd(99.119, 77.69, 24.9, 0.904)
pt3dadd(99.009, 77.644, 24.9, 0.904)
pt3dadd(98.901, 77.591, 24.9, 0.904)
pt3dadd(98.794, 77.537, 24.9, 0.904)
pt3dadd(98.718, 77.449, 24.9, 0.904)
pt3dadd(98.658, 77.346, 24.9, 0.904)
pt3dadd(98.586, 77.25, 24.9, 0.904)
pt3dadd(98.505, 77.162, 24.9, 0.904)
pt3dadd(98.441, 77.064, 24.9, 0.904)
pt3dadd(98.408, 76.949, 24.9, 0.904)
pt3dadd(98.355, 76.842, 24.9, 0.904)
pt3dadd(98.295, 76.738, 24.9, 0.904)
pt3dadd(98.235, 76.634, 24.9, 0.904)
pt3dadd(98.175, 76.53, 24.9, 0.904)
pt3dadd(98.115, 76.426, 24.9, 0.904)
pt3dadd(98.051, 76.325, 24.9, 0.904)
pt3dadd(97.983, 76.226, 24.9, 0.904)
pt3dadd(97.915, 76.127, 24.9, 0.904)
pt3dadd(97.847, 76.028, 24.9, 0.904)
pt3dadd(97.797, 75.943, 24.872, 0.95)
pt3dadd(97.789, 75.889, 24.783, 1.096)
pt3dadd(97.781, 75.835, 24.694, 1.244)
pt3dadd(97.773, 75.781, 24.605, 1.39)
pt3dadd(97.765, 75.727, 24.516, 1.536)
pt3dadd(97.757, 75.673, 24.427, 1.684)
pt3dadd(97.746, 75.609, 24.354, 1.802)
pt3dadd(97.725, 75.494, 24.373, 1.762)
pt3dadd(97.704, 75.378, 24.392, 1.724)
pt3dadd(97.682, 75.262, 24.41, 1.684)
pt3dadd(97.661, 75.146, 24.429, 1.644)
pt3dadd(97.64, 75.03, 24.448, 1.604)
pt3dadd(97.618, 74.914, 24.466, 1.566)
pt3dadd(97.597, 74.798, 24.485, 1.526)
pt3dadd(97.576, 74.682, 24.504, 1.486)
pt3dadd(97.554, 74.566, 24.522, 1.446)
pt3dadd(97.528, 74.451, 24.54, 1.41)
pt3dadd(97.489, 74.339, 24.554, 1.376)
pt3dadd(97.451, 74.226, 24.567, 1.342)
pt3dadd(97.413, 74.114, 24.581, 1.31)
pt3dadd(97.375, 74.001, 24.595, 1.276)
pt3dadd(97.337, 73.888, 24.609, 1.242)
pt3dadd(97.299, 73.776, 24.623, 1.21)
pt3dadd(97.26, 73.663, 24.637, 1.176)
pt3dadd(97.222, 73.551, 24.651, 1.142)
pt3dadd(97.184, 73.438, 24.665, 1.11)
pt3dadd(97.12, 73.34, 24.669, 1.09)
pt3dadd(97.04, 73.25, 24.669, 1.078)
pt3dadd(96.96, 73.161, 24.668, 1.066)
pt3dadd(96.881, 73.071, 24.667, 1.054)
pt3dadd(96.801, 72.981, 24.666, 1.042)
pt3dadd(96.722, 72.891, 24.665, 1.028)
pt3dadd(96.642, 72.801, 24.665, 1.016)
pt3dadd(96.563, 72.711, 24.664, 1.004)
pt3dadd(96.483, 72.622, 24.663, 0.992)
pt3dadd(96.403, 72.532, 24.662, 0.98)
pt3dadd(96.324, 72.442, 24.661, 0.988)
pt3dadd(96.245, 72.352, 24.66, 1.006)
pt3dadd(96.166, 72.262, 24.659, 1.024)
pt3dadd(96.087, 72.171, 24.658, 1.042)
pt3dadd(96.007, 72.081, 24.657, 1.06)
pt3dadd(95.928, 71.991, 24.656, 1.078)
pt3dadd(95.849, 71.901, 24.655, 1.096)
pt3dadd(95.77, 71.811, 24.654, 1.114)
}
}
proc shape3d_139() {
dend_7[13] { pt3dadd(95.691, 71.721, 24.653, 1.132)
pt3dadd(95.611, 71.631, 24.653, 1.15)
pt3dadd(95.532, 71.54, 24.651, 1.196)
pt3dadd(95.454, 71.449, 24.65, 1.258)
pt3dadd(95.375, 71.359, 24.649, 1.318)
pt3dadd(95.297, 71.268, 24.648, 1.38)
pt3dadd(95.218, 71.177, 24.646, 1.442)
pt3dadd(95.139, 71.087, 24.645, 1.504)
pt3dadd(95.061, 70.996, 24.644, 1.566)
pt3dadd(94.982, 70.905, 24.643, 1.628)
pt3dadd(94.904, 70.815, 24.641, 1.69)
pt3dadd(94.825, 70.724, 24.64, 1.75)
pt3dadd(94.757, 70.626, 24.638, 1.738)
pt3dadd(94.695, 70.523, 24.636, 1.682)
pt3dadd(94.633, 70.42, 24.633, 1.624)
pt3dadd(94.572, 70.317, 24.631, 1.568)
pt3dadd(94.51, 70.215, 24.628, 1.512)
pt3dadd(94.448, 70.112, 24.626, 1.456)
pt3dadd(94.386, 70.009, 24.624, 1.398)
pt3dadd(94.324, 69.906, 24.621, 1.342)
pt3dadd(94.262, 69.803, 24.618, 1.286)
pt3dadd(94.2, 69.701, 24.616, 1.23)
pt3dadd(94.136, 69.6, 24.612, 1.18)
pt3dadd(94.07, 69.5, 24.608, 1.132)
pt3dadd(94.004, 69.4, 24.604, 1.086)
pt3dadd(93.938, 69.3, 24.599, 1.04)
pt3dadd(93.871, 69.2, 24.595, 0.994)
pt3dadd(93.805, 69.1, 24.59, 0.946)
pt3dadd(93.739, 69, 24.586, 0.9)
pt3dadd(93.673, 68.9, 24.582, 0.852)
pt3dadd(93.607, 68.799, 24.577, 0.806)
pt3dadd(93.541, 68.7, 24.573, 0.76)
pt3dadd(93.471, 68.602, 24.567, 0.726)
pt3dadd(93.4, 68.506, 24.561, 0.7)
pt3dadd(93.329, 68.41, 24.555, 0.674)
pt3dadd(93.257, 68.314, 24.548, 0.646)
pt3dadd(93.186, 68.217, 24.542, 0.62)
pt3dadd(93.114, 68.121, 24.536, 0.594)
pt3dadd(93.043, 68.025, 24.529, 0.566)
pt3dadd(92.971, 67.929, 24.523, 0.54)
pt3dadd(92.9, 67.833, 24.517, 0.514)
pt3dadd(92.829, 67.737, 24.51, 0.486)
pt3dadd(92.752, 67.645, 24.502, 0.508)
pt3dadd(92.674, 67.555, 24.492, 0.554)
pt3dadd(92.595, 67.465, 24.482, 0.598)
pt3dadd(92.516, 67.375, 24.472, 0.644)
pt3dadd(92.438, 67.286, 24.462, 0.69)
pt3dadd(92.359, 67.196, 24.452, 0.736)
pt3dadd(92.28, 67.106, 24.443, 0.78)
pt3dadd(92.202, 67.016, 24.433, 0.826)
pt3dadd(92.123, 66.926, 24.423, 0.872)
pt3dadd(92.044, 66.836, 24.413, 0.918)
pt3dadd(91.965, 66.751, 24.39, 0.946)
pt3dadd(91.887, 66.667, 24.361, 0.966)
pt3dadd(91.808, 66.584, 24.333, 0.986)
pt3dadd(91.729, 66.5, 24.304, 1.006)
pt3dadd(91.65, 66.417, 24.275, 1.026)
pt3dadd(91.571, 66.333, 24.246, 1.046)
pt3dadd(91.492, 66.249, 24.217, 1.066)
pt3dadd(91.414, 66.166, 24.188, 1.086)
pt3dadd(91.335, 66.082, 24.159, 1.106)
pt3dadd(91.256, 65.999, 24.13, 1.126)
pt3dadd(91.176, 65.919, 24.096, 1.124)
pt3dadd(91.097, 65.84, 24.06, 1.118)
pt3dadd(91.017, 65.761, 24.025, 1.112)
pt3dadd(90.938, 65.682, 23.99, 1.106)
pt3dadd(90.858, 65.602, 23.955, 1.1)
pt3dadd(90.778, 65.523, 23.919, 1.094)
pt3dadd(90.699, 65.444, 23.884, 1.088)
pt3dadd(90.619, 65.365, 23.849, 1.08)
pt3dadd(90.539, 65.286, 23.813, 1.074)
pt3dadd(90.46, 65.207, 23.778, 1.068)
pt3dadd(90.377, 65.125, 23.754, 1.054)
pt3dadd(90.294, 65.043, 23.731, 1.036)
pt3dadd(90.211, 64.96, 23.708, 1.02)
pt3dadd(90.128, 64.878, 23.686, 1.004)
pt3dadd(90.045, 64.796, 23.663, 0.988)
pt3dadd(89.962, 64.714, 23.641, 0.972)
pt3dadd(89.879, 64.631, 23.618, 0.956)
pt3dadd(89.796, 64.549, 23.595, 0.938)
pt3dadd(89.713, 64.467, 23.573, 0.922)
pt3dadd(89.63, 64.385, 23.55, 0.906)
pt3dadd(89.545, 64.301, 23.539, 0.904)
pt3dadd(89.46, 64.217, 23.53, 0.904)
pt3dadd(89.374, 64.133, 23.522, 0.904)
pt3dadd(89.289, 64.05, 23.513, 0.904)
pt3dadd(89.204, 63.966, 23.504, 0.904)
pt3dadd(89.119, 63.882, 23.495, 0.904)
pt3dadd(89.034, 63.798, 23.486, 0.904)
pt3dadd(88.948, 63.714, 23.477, 0.904)
pt3dadd(88.863, 63.63, 23.468, 0.904)
pt3dadd(88.778, 63.546, 23.459, 0.904)
pt3dadd(88.692, 63.463, 23.454, 0.9)
pt3dadd(88.607, 63.379, 23.449, 0.894)
pt3dadd(88.521, 63.295, 23.444, 0.888)
pt3dadd(88.435, 63.211, 23.438, 0.884)
pt3dadd(88.35, 63.127, 23.433, 0.878)
pt3dadd(88.264, 63.044, 23.428, 0.872)
pt3dadd(88.178, 62.96, 23.423, 0.866)
pt3dadd(88.093, 62.876, 23.418, 0.862)
pt3dadd(88.007, 62.792, 23.413, 0.856)
pt3dadd(87.921, 62.708, 23.407, 0.85)
pt3dadd(87.835, 62.625, 23.407, 0.838)
pt3dadd(87.749, 62.541, 23.407, 0.826)
pt3dadd(87.663, 62.458, 23.407, 0.814)
pt3dadd(87.577, 62.374, 23.407, 0.8)
pt3dadd(87.491, 62.291, 23.407, 0.788)
pt3dadd(87.405, 62.207, 23.407, 0.774)
pt3dadd(87.319, 62.124, 23.407, 0.762)
pt3dadd(87.232, 62.04, 23.407, 0.75)
pt3dadd(87.146, 61.956, 23.407, 0.736)
pt3dadd(87.06, 61.873, 23.407, 0.724)
pt3dadd(86.973, 61.791, 23.407, 0.726)
pt3dadd(86.886, 61.708, 23.407, 0.73)
pt3dadd(86.798, 61.626, 23.407, 0.734)
pt3dadd(86.711, 61.544, 23.407, 0.738)
pt3dadd(86.623, 61.461, 23.407, 0.742)
pt3dadd(86.536, 61.379, 23.407, 0.746)
pt3dadd(86.449, 61.297, 23.407, 0.75)
pt3dadd(86.361, 61.215, 23.407, 0.756)
pt3dadd(86.274, 61.133, 23.407, 0.76)
pt3dadd(86.187, 61.05, 23.407, 0.764)
pt3dadd(86.098, 60.969, 23.407, 0.776)
pt3dadd(86.01, 60.887, 23.407, 0.788)
pt3dadd(85.922, 60.806, 23.407, 0.802)
pt3dadd(85.834, 60.724, 23.407, 0.814)
pt3dadd(85.746, 60.643, 23.407, 0.828)
pt3dadd(85.658, 60.561, 23.407, 0.842)
pt3dadd(85.57, 60.48, 23.407, 0.854)
pt3dadd(85.482, 60.398, 23.407, 0.868)
pt3dadd(85.394, 60.317, 23.407, 0.88)
pt3dadd(85.306, 60.235, 23.407, 0.894)
pt3dadd(85.216, 60.156, 23.407, 0.896)
pt3dadd(85.126, 60.076, 23.407, 0.896)
pt3dadd(85.036, 59.997, 23.407, 0.898)
pt3dadd(84.946, 59.918, 23.407, 0.898)
pt3dadd(84.856, 59.838, 23.407, 0.9)
pt3dadd(84.766, 59.759, 23.407, 0.9)
pt3dadd(84.675, 59.68, 23.407, 0.902)
pt3dadd(84.585, 59.601, 23.407, 0.902)
pt3dadd(84.495, 59.521, 23.407, 0.904)
pt3dadd(84.405, 59.442, 23.407, 0.904)
pt3dadd(84.312, 59.367, 23.407, 0.904)
pt3dadd(84.218, 59.292, 23.407, 0.904)
pt3dadd(84.124, 59.217, 23.407, 0.904)
pt3dadd(84.03, 59.142, 23.407, 0.904)
pt3dadd(83.937, 59.067, 23.407, 0.904)
pt3dadd(83.843, 58.993, 23.407, 0.904)
pt3dadd(83.749, 58.918, 23.407, 0.904)
pt3dadd(83.655, 58.843, 23.407, 0.904)
pt3dadd(83.561, 58.768, 23.407, 0.904)
pt3dadd(83.467, 58.694, 23.407, 0.904)
pt3dadd(83.365, 58.632, 23.407, 0.904)
pt3dadd(83.261, 58.571, 23.407, 0.904)
pt3dadd(83.157, 58.511, 23.407, 0.904)
pt3dadd(83.054, 58.45, 23.407, 0.904)
pt3dadd(82.95, 58.389, 23.407, 0.904)
pt3dadd(82.847, 58.329, 23.407, 0.904)
pt3dadd(82.743, 58.268, 23.407, 0.904)
pt3dadd(82.64, 58.208, 23.407, 0.904)
pt3dadd(82.536, 58.147, 23.407, 0.904)
pt3dadd(82.432, 58.086, 23.407, 0.904)
pt3dadd(82.333, 58.019, 23.407, 0.894)
pt3dadd(82.235, 57.95, 23.407, 0.882)
pt3dadd(82.136, 57.882, 23.407, 0.872)
pt3dadd(82.037, 57.814, 23.407, 0.86)
pt3dadd(81.939, 57.746, 23.407, 0.848)
pt3dadd(81.84, 57.677, 23.407, 0.836)
pt3dadd(81.741, 57.609, 23.407, 0.826)
pt3dadd(81.643, 57.541, 23.407, 0.814)
pt3dadd(81.544, 57.472, 23.407, 0.802)
pt3dadd(81.445, 57.404, 23.407, 0.792)
pt3dadd(81.349, 57.333, 23.407, 0.782)
pt3dadd(81.252, 57.261, 23.407, 0.774)
pt3dadd(81.156, 57.189, 23.407, 0.766)
pt3dadd(81.06, 57.118, 23.407, 0.758)
pt3dadd(80.964, 57.046, 23.407, 0.75)
pt3dadd(80.867, 56.975, 23.407, 0.742)
pt3dadd(80.771, 56.903, 23.407, 0.734)
pt3dadd(80.675, 56.831, 23.407, 0.726)
pt3dadd(80.579, 56.76, 23.407, 0.718)
pt3dadd(80.482, 56.688, 23.407, 0.71)
pt3dadd(80.389, 56.612, 23.407, 0.722)
pt3dadd(80.296, 56.536, 23.407, 0.736)
pt3dadd(80.203, 56.46, 23.407, 0.75)
pt3dadd(80.11, 56.385, 23.407, 0.764)
pt3dadd(80.018, 56.309, 23.407, 0.776)
pt3dadd(79.925, 56.233, 23.407, 0.79)
pt3dadd(79.832, 56.157, 23.407, 0.804)
pt3dadd(79.739, 56.081, 23.407, 0.818)
pt3dadd(79.646, 56.005, 23.407, 0.832)
pt3dadd(79.553, 55.929, 23.407, 0.846)
pt3dadd(79.462, 55.851, 23.407, 0.852)
pt3dadd(79.37, 55.773, 23.407, 0.858)
pt3dadd(79.279, 55.695, 23.407, 0.864)
pt3dadd(79.188, 55.617, 23.407, 0.87)
pt3dadd(79.096, 55.54, 23.407, 0.876)
pt3dadd(79.005, 55.462, 23.407, 0.88)
pt3dadd(78.914, 55.384, 23.407, 0.886)
pt3dadd(78.823, 55.306, 23.407, 0.892)
}
}
proc shape3d_140() {
dend_7[13] { pt3dadd(78.731, 55.228, 23.407, 0.898)
pt3dadd(78.64, 55.15, 23.407, 0.904)
pt3dadd(78.55, 55.071, 23.407, 0.904)
pt3dadd(78.46, 54.992, 23.407, 0.904)
pt3dadd(78.37, 54.912, 23.407, 0.904)
pt3dadd(78.28, 54.833, 23.407, 0.904)
pt3dadd(78.19, 54.754, 23.407, 0.904)
pt3dadd(78.1, 54.674, 23.407, 0.904)
pt3dadd(78.01, 54.595, 23.407, 0.904)
pt3dadd(77.92, 54.516, 23.407, 0.904)
pt3dadd(77.829, 54.436, 23.407, 0.904)
pt3dadd(77.739, 54.357, 23.407, 0.904)
pt3dadd(77.638, 54.293, 23.407, 0.904)
pt3dadd(77.536, 54.23, 23.408, 0.904)
pt3dadd(77.434, 54.167, 23.408, 0.904)
pt3dadd(77.332, 54.104, 23.408, 0.904)
pt3dadd(77.23, 54.041, 23.408, 0.904)
pt3dadd(77.128, 53.978, 23.408, 0.904)
pt3dadd(77.025, 53.915, 23.408, 0.904)
pt3dadd(76.923, 53.852, 23.408, 0.904)
pt3dadd(76.821, 53.789, 23.408, 0.904)
pt3dadd(76.719, 53.726, 23.408, 0.904)
pt3dadd(76.618, 53.66, 23.408, 0.91)
pt3dadd(76.518, 53.595, 23.408, 0.916)
pt3dadd(76.418, 53.529, 23.408, 0.922)
pt3dadd(76.317, 53.463, 23.408, 0.928)
pt3dadd(76.217, 53.398, 23.408, 0.934)
pt3dadd(76.116, 53.332, 23.409, 0.942)
pt3dadd(76.016, 53.266, 23.409, 0.948)
pt3dadd(75.915, 53.201, 23.409, 0.954)
pt3dadd(75.815, 53.135, 23.409, 0.96)
pt3dadd(75.714, 53.07, 23.409, 0.966)
pt3dadd(75.618, 52.998, 23.409, 0.98)
pt3dadd(75.521, 52.927, 23.409, 0.994)
pt3dadd(75.425, 52.856, 23.409, 1.008)
pt3dadd(75.328, 52.785, 23.409, 1.024)
pt3dadd(75.232, 52.713, 23.409, 1.038)
pt3dadd(75.135, 52.642, 23.41, 1.052)
pt3dadd(75.039, 52.571, 23.41, 1.066)
pt3dadd(74.942, 52.499, 23.41, 1.08)
pt3dadd(74.846, 52.428, 23.41, 1.096)
pt3dadd(74.749, 52.357, 23.41, 1.11)
pt3dadd(74.657, 52.28, 23.41, 1.09)
pt3dadd(74.565, 52.202, 23.41, 1.068)
pt3dadd(74.474, 52.125, 23.41, 1.046)
pt3dadd(74.382, 52.048, 23.411, 1.026)
pt3dadd(74.29, 51.971, 23.411, 1.004)
pt3dadd(74.198, 51.893, 23.411, 0.982)
pt3dadd(74.106, 51.816, 23.411, 0.96)
pt3dadd(74.014, 51.739, 23.412, 0.94)
pt3dadd(73.923, 51.661, 23.412, 0.918)
pt3dadd(73.831, 51.584, 23.412, 0.896)
pt3dadd(73.74, 51.505, 23.412, 0.878)
pt3dadd(73.65, 51.426, 23.413, 0.858)
pt3dadd(73.559, 51.348, 23.413, 0.84)
pt3dadd(73.469, 51.269, 23.413, 0.82)
pt3dadd(73.379, 51.19, 23.413, 0.8)
pt3dadd(73.288, 51.111, 23.414, 0.782)
pt3dadd(73.198, 51.032, 23.414, 0.762)
pt3dadd(73.107, 50.953, 23.414, 0.744)
pt3dadd(73.017, 50.874, 23.414, 0.724)
pt3dadd(72.926, 50.796, 23.415, 0.706)
pt3dadd(72.838, 50.714, 23.415, 0.716)
pt3dadd(72.75, 50.632, 23.416, 0.73)
pt3dadd(72.663, 50.551, 23.416, 0.744)
pt3dadd(72.575, 50.469, 23.417, 0.756)
pt3dadd(72.487, 50.387, 23.417, 0.77)
pt3dadd(72.399, 50.306, 23.417, 0.782)
pt3dadd(72.311, 50.224, 23.418, 0.796)
pt3dadd(72.223, 50.142, 23.418, 0.81)
pt3dadd(72.135, 50.061, 23.419, 0.822)
pt3dadd(72.047, 49.979, 23.419, 0.836)
pt3dadd(71.958, 49.898, 23.42, 0.842)
pt3dadd(71.869, 49.818, 23.421, 0.85)
pt3dadd(71.78, 49.737, 23.422, 0.856)
pt3dadd(71.691, 49.657, 23.422, 0.864)
pt3dadd(71.602, 49.576, 23.423, 0.87)
pt3dadd(71.513, 49.496, 23.424, 0.876)
pt3dadd(71.424, 49.416, 23.425, 0.884)
pt3dadd(71.335, 49.335, 23.426, 0.89)
pt3dadd(71.246, 49.255, 23.426, 0.896)
pt3dadd(71.157, 49.174, 23.427, 0.904)
pt3dadd(71.067, 49.095, 23.428, 0.904)
pt3dadd(70.977, 49.016, 23.429, 0.904)
pt3dadd(70.887, 48.936, 23.43, 0.904)
pt3dadd(70.797, 48.857, 23.431, 0.904)
pt3dadd(70.707, 48.778, 23.432, 0.904)
pt3dadd(70.617, 48.699, 23.434, 0.904)
pt3dadd(70.526, 48.619, 23.435, 0.904)
pt3dadd(70.436, 48.54, 23.436, 0.904)
pt3dadd(70.346, 48.461, 23.437, 0.904)
pt3dadd(70.256, 48.381, 23.438, 0.904)
pt3dadd(70.155, 48.317, 23.44, 0.866)
pt3dadd(70.054, 48.253, 23.442, 0.828)
pt3dadd(69.952, 48.189, 23.445, 0.788)
pt3dadd(69.851, 48.125, 23.447, 0.748)
pt3dadd(69.749, 48.061, 23.449, 0.71)
pt3dadd(69.648, 47.997, 23.451, 0.67)
pt3dadd(69.546, 47.933, 23.454, 0.63)
pt3dadd(69.445, 47.869, 23.456, 0.592)
pt3dadd(69.343, 47.805, 23.458, 0.552)
pt3dadd(69.242, 47.741, 23.461, 0.512)
pt3dadd(69.141, 47.677, 23.465, 0.496)
pt3dadd(69.04, 47.612, 23.469, 0.48)
pt3dadd(68.938, 47.548, 23.472, 0.464)
pt3dadd(68.837, 47.483, 23.476, 0.448)
pt3dadd(68.736, 47.419, 23.48, 0.432)
pt3dadd(68.635, 47.355, 23.485, 0.416)
pt3dadd(68.534, 47.29, 23.488, 0.398)
pt3dadd(68.433, 47.226, 23.492, 0.382)
pt3dadd(68.332, 47.161, 23.496, 0.366)
pt3dadd(68.231, 47.097, 23.5, 0.35)
pt3dadd(68.134, 47.027, 23.507, 0.382)
pt3dadd(68.037, 46.956, 23.513, 0.412)
pt3dadd(67.94, 46.886, 23.519, 0.444)
pt3dadd(67.843, 46.816, 23.525, 0.474)
pt3dadd(67.746, 46.745, 23.531, 0.506)
pt3dadd(67.649, 46.675, 23.537, 0.536)
pt3dadd(67.552, 46.605, 23.543, 0.568)
pt3dadd(67.455, 46.535, 23.549, 0.598)
pt3dadd(67.358, 46.464, 23.556, 0.63)
pt3dadd(67.261, 46.394, 23.562, 0.66)
pt3dadd(67.169, 46.317, 23.571, 0.634)
pt3dadd(67.078, 46.24, 23.581, 0.606)
pt3dadd(66.987, 46.163, 23.591, 0.58)
pt3dadd(66.896, 46.086, 23.601, 0.552)
pt3dadd(66.804, 46.009, 23.611, 0.524)
pt3dadd(66.713, 45.932, 23.62, 0.498)
pt3dadd(66.622, 45.855, 23.63, 0.47)
pt3dadd(66.531, 45.778, 23.64, 0.442)
pt3dadd(66.439, 45.701, 23.65, 0.416)
pt3dadd(66.348, 45.624, 23.66, 0.388)
pt3dadd(66.261, 45.547, 23.686, 0.4)
pt3dadd(66.175, 45.47, 23.712, 0.412)
pt3dadd(66.088, 45.394, 23.739, 0.424)
pt3dadd(66.001, 45.317, 23.765, 0.434)
pt3dadd(65.914, 45.241, 23.791, 0.446)
pt3dadd(65.828, 45.164, 23.818, 0.458)
pt3dadd(65.741, 45.087, 23.844, 0.47)
pt3dadd(65.654, 45.011, 23.87, 0.482)
pt3dadd(65.567, 44.934, 23.897, 0.492)
pt3dadd(65.481, 44.858, 23.925, 0.508)
pt3dadd(65.399, 44.783, 23.963, 0.542)
pt3dadd(65.317, 44.708, 24, 0.578)
pt3dadd(65.234, 44.634, 24.038, 0.612)
pt3dadd(65.152, 44.559, 24.076, 0.648)
pt3dadd(65.07, 44.484, 24.114, 0.682)
pt3dadd(64.988, 44.41, 24.152, 0.716)
pt3dadd(64.905, 44.335, 24.19, 0.752)
pt3dadd(64.823, 44.261, 24.228, 0.786)
pt3dadd(64.741, 44.186, 24.265, 0.822)
pt3dadd(64.657, 44.111, 24.301, 0.846)
pt3dadd(64.569, 44.034, 24.324, 0.828)
pt3dadd(64.481, 43.958, 24.348, 0.81)
pt3dadd(64.393, 43.882, 24.372, 0.792)
pt3dadd(64.305, 43.805, 24.396, 0.774)
pt3dadd(64.217, 43.729, 24.42, 0.758)
pt3dadd(64.129, 43.653, 24.443, 0.74)
pt3dadd(64.041, 43.576, 24.467, 0.722)
pt3dadd(63.953, 43.5, 24.491, 0.704)
pt3dadd(63.865, 43.423, 24.515, 0.686)
pt3dadd(63.776, 43.347, 24.536, 0.666)
pt3dadd(63.682, 43.273, 24.545, 0.634)
pt3dadd(63.589, 43.199, 24.555, 0.602)
pt3dadd(63.495, 43.125, 24.565, 0.572)
pt3dadd(63.401, 43.051, 24.575, 0.54)
pt3dadd(63.307, 42.977, 24.585, 0.508)
pt3dadd(63.214, 42.903, 24.595, 0.478)
pt3dadd(63.12, 42.829, 24.604, 0.446)
pt3dadd(63.026, 42.755, 24.614, 0.414)
pt3dadd(62.933, 42.681, 24.624, 0.384)
pt3dadd(62.837, 42.61, 24.633, 0.362)
pt3dadd(62.734, 42.548, 24.637, 0.376)
pt3dadd(62.631, 42.487, 24.641, 0.39)
pt3dadd(62.528, 42.425, 24.645, 0.406)
pt3dadd(62.426, 42.363, 24.649, 0.42)
pt3dadd(62.323, 42.302, 24.653, 0.436)
pt3dadd(62.22, 42.24, 24.658, 0.45)
pt3dadd(62.117, 42.178, 24.662, 0.466)
pt3dadd(62.014, 42.117, 24.666, 0.48)
pt3dadd(61.911, 42.055, 24.67, 0.494)
pt3dadd(61.807, 41.997, 24.673, 0.514)
pt3dadd(61.698, 41.947, 24.673, 0.546)
pt3dadd(61.589, 41.897, 24.674, 0.576)
pt3dadd(61.479, 41.847, 24.674, 0.608)
pt3dadd(61.37, 41.797, 24.674, 0.638)
pt3dadd(61.261, 41.747, 24.674, 0.668)
pt3dadd(61.152, 41.698, 24.674, 0.7)
pt3dadd(61.043, 41.648, 24.674, 0.73)
pt3dadd(60.934, 41.598, 24.674, 0.762)
pt3dadd(60.825, 41.548, 24.674, 0.792)
pt3dadd(60.714, 41.501, 24.674, 0.8)
pt3dadd(60.601, 41.462, 24.674, 0.75)
pt3dadd(60.488, 41.422, 24.674, 0.7)
pt3dadd(60.374, 41.383, 24.675, 0.648)
pt3dadd(60.261, 41.343, 24.675, 0.598)
pt3dadd(60.148, 41.304, 24.675, 0.546)
pt3dadd(60.034, 41.264, 24.675, 0.496)
pt3dadd(59.921, 41.225, 24.675, 0.446)
pt3dadd(59.808, 41.185, 24.675, 0.394)
}
}
proc shape3d_141() {
dend_7[13] { pt3dadd(59.694, 41.145, 24.676, 0.344)
pt3dadd(59.584, 41.1, 24.676, 0.314)
pt3dadd(59.48, 41.04, 24.676, 0.33)
pt3dadd(59.377, 40.979, 24.676, 0.348)
pt3dadd(59.273, 40.919, 24.677, 0.364)
pt3dadd(59.169, 40.858, 24.677, 0.382)
pt3dadd(59.066, 40.798, 24.677, 0.4)
pt3dadd(58.962, 40.737, 24.677, 0.416)
pt3dadd(58.858, 40.677, 24.677, 0.434)
pt3dadd(58.755, 40.616, 24.678, 0.45)
pt3dadd(58.651, 40.556, 24.678, 0.468)
pt3dadd(58.549, 40.492, 24.678, 0.488)
pt3dadd(58.451, 40.423, 24.679, 0.512)
pt3dadd(58.354, 40.353, 24.679, 0.536)
pt3dadd(58.256, 40.284, 24.68, 0.562)
pt3dadd(58.158, 40.214, 24.68, 0.586)
pt3dadd(58.06, 40.145, 24.68, 0.61)
pt3dadd(57.962, 40.075, 24.681, 0.636)
pt3dadd(57.864, 40.006, 24.681, 0.66)
pt3dadd(57.767, 39.936, 24.681, 0.684)
pt3dadd(57.669, 39.867, 24.682, 0.708)
pt3dadd(57.574, 39.794, 24.682, 0.73)
pt3dadd(57.483, 39.715, 24.683, 0.744)
pt3dadd(57.393, 39.636, 24.683, 0.756)
pt3dadd(57.303, 39.557, 24.684, 0.77)
pt3dadd(57.212, 39.478, 24.684, 0.784)
pt3dadd(57.122, 39.399, 24.685, 0.798)
pt3dadd(57.031, 39.32, 24.685, 0.81)
pt3dadd(56.941, 39.241, 24.686, 0.824)
pt3dadd(56.851, 39.162, 24.687, 0.838)
pt3dadd(56.76, 39.084, 24.687, 0.852)
pt3dadd(56.671, 39.003, 24.688, 0.852)
pt3dadd(56.583, 38.921, 24.689, 0.83)
pt3dadd(56.496, 38.839, 24.69, 0.808)
pt3dadd(56.409, 38.757, 24.691, 0.786)
pt3dadd(56.321, 38.675, 24.692, 0.764)
pt3dadd(56.234, 38.593, 24.693, 0.742)
pt3dadd(56.146, 38.511, 24.694, 0.72)
pt3dadd(56.058, 38.429, 24.695, 0.698)
pt3dadd(55.971, 38.346, 24.696, 0.676)
pt3dadd(55.884, 38.264, 24.697, 0.654)
pt3dadd(55.797, 38.182, 24.698, 0.626)
pt3dadd(55.71, 38.098, 24.699, 0.586)
pt3dadd(55.624, 38.015, 24.7, 0.548)
pt3dadd(55.538, 37.931, 24.701, 0.508)
pt3dadd(55.452, 37.847, 24.702, 0.47)
pt3dadd(55.366, 37.764, 24.704, 0.43)
pt3dadd(55.28, 37.68, 24.705, 0.392)
pt3dadd(55.194, 37.596, 24.706, 0.352)
pt3dadd(55.108, 37.513, 24.707, 0.314)
pt3dadd(55.022, 37.429, 24.708, 0.274)
pt3dadd(54.935, 37.346, 24.71, 0.248)
pt3dadd(54.847, 37.265, 24.712, 0.246)
pt3dadd(54.76, 37.183, 24.715, 0.244)
pt3dadd(54.672, 37.101, 24.717, 0.24)
pt3dadd(54.584, 37.02, 24.72, 0.238)
pt3dadd(54.496, 36.938, 24.722, 0.236)
pt3dadd(54.408, 36.856, 24.724, 0.234)
pt3dadd(54.32, 36.774, 24.727, 0.232)
pt3dadd(54.232, 36.693, 24.729, 0.23)
pt3dadd(54.144, 36.611, 24.732, 0.228)
pt3dadd(54.056, 36.53, 24.735, 0.226)
pt3dadd(53.968, 36.449, 24.738, 0.226)
pt3dadd(53.879, 36.368, 24.742, 0.226)
pt3dadd(53.791, 36.287, 24.745, 0.226)
pt3dadd(53.702, 36.207, 24.749, 0.226)
pt3dadd(53.613, 36.126, 24.752, 0.226)
pt3dadd(53.525, 36.045, 24.756, 0.226)
pt3dadd(53.436, 35.964, 24.76, 0.226)
pt3dadd(53.348, 35.883, 24.763, 0.226)
pt3dadd(53.259, 35.802, 24.767, 0.226)
pt3dadd(53.17, 35.722, 24.771, 0.226)
pt3dadd(53.08, 35.644, 24.778, 0.226)
pt3dadd(52.989, 35.565, 24.785, 0.226)
pt3dadd(52.899, 35.486, 24.791, 0.226)
pt3dadd(52.809, 35.407, 24.798, 0.226)
pt3dadd(52.719, 35.329, 24.804, 0.226)
pt3dadd(52.629, 35.25, 24.81, 0.226)
pt3dadd(52.538, 35.171, 24.817, 0.226)
pt3dadd(52.448, 35.092, 24.823, 0.226)
pt3dadd(52.358, 35.014, 24.83, 0.226)
pt3dadd(52.264, 34.941, 24.838, 0.24)
pt3dadd(52.162, 34.878, 24.85, 0.28)
pt3dadd(52.061, 34.815, 24.862, 0.32)
pt3dadd(51.96, 34.753, 24.874, 0.36)
pt3dadd(51.858, 34.69, 24.886, 0.4)
pt3dadd(51.757, 34.628, 24.898, 0.44)
pt3dadd(51.655, 34.565, 24.91, 0.48)
pt3dadd(51.554, 34.503, 24.922, 0.52)
pt3dadd(51.453, 34.44, 24.934, 0.56)
pt3dadd(51.351, 34.378, 24.946, 0.6)
pt3dadd(51.251, 34.319, 24.968, 0.626)
pt3dadd(51.153, 34.266, 25.004, 0.63)
pt3dadd(51.054, 34.213, 25.041, 0.636)
pt3dadd(50.956, 34.159, 25.077, 0.642)
pt3dadd(50.857, 34.106, 25.113, 0.648)
pt3dadd(50.759, 34.053, 25.149, 0.654)
pt3dadd(50.66, 34, 25.185, 0.66)
pt3dadd(50.562, 33.947, 25.221, 0.664)
pt3dadd(50.463, 33.893, 25.257, 0.67)
pt3dadd(50.365, 33.84, 25.293, 0.676)
pt3dadd(50.275, 33.783, 25.338, 0.67)
pt3dadd(50.189, 33.723, 25.386, 0.656)
pt3dadd(50.102, 33.663, 25.435, 0.644)
pt3dadd(50.016, 33.603, 25.484, 0.632)
pt3dadd(49.93, 33.544, 25.532, 0.62)
pt3dadd(49.844, 33.484, 25.581, 0.606)
pt3dadd(49.757, 33.424, 25.629, 0.594)
pt3dadd(49.671, 33.365, 25.678, 0.582)
pt3dadd(49.585, 33.305, 25.726, 0.57)
pt3dadd(49.499, 33.245, 25.775, 0.556)
pt3dadd(49.414, 33.174, 25.813, 0.554)
pt3dadd(49.33, 33.099, 25.847, 0.552)
pt3dadd(49.246, 33.024, 25.882, 0.55)
pt3dadd(49.162, 32.949, 25.917, 0.548)
pt3dadd(49.078, 32.875, 25.952, 0.546)
pt3dadd(48.994, 32.8, 25.986, 0.544)
pt3dadd(48.91, 32.725, 26.021, 0.544)
pt3dadd(48.825, 32.65, 26.056, 0.542)
pt3dadd(48.741, 32.576, 26.091, 0.54)
pt3dadd(48.657, 32.501, 26.125, 0.538)
pt3dadd(48.577, 32.422, 26.16, 0.512)
pt3dadd(48.498, 32.343, 26.195, 0.48)
pt3dadd(48.418, 32.263, 26.23, 0.45)
pt3dadd(48.339, 32.184, 26.265, 0.418)
pt3dadd(48.259, 32.104, 26.3, 0.386)
pt3dadd(48.18, 32.025, 26.335, 0.354)
pt3dadd(48.1, 31.945, 26.37, 0.322)
pt3dadd(48.021, 31.866, 26.405, 0.29)
pt3dadd(47.941, 31.786, 26.44, 0.258)
pt3dadd(47.862, 31.707, 26.475, 0.226)
pt3dadd(47.804, 31.648, 26.548, 0.226)
pt3dadd(47.745, 31.59, 26.621, 0.226)
pt3dadd(47.687, 31.532, 26.693, 0.226)
pt3dadd(47.629, 31.474, 26.766, 0.226)
pt3dadd(47.57, 31.416, 26.839, 0.226)
pt3dadd(47.512, 31.357, 26.912, 0.226)
pt3dadd(47.454, 31.299, 26.984, 0.226)
pt3dadd(47.395, 31.241, 27.057, 0.226)
pt3dadd(47.337, 31.183, 27.13, 0.226)
pt3dadd(47.279, 31.125, 27.202, 0.226)
}
dend_7[14] {pt3dclear()
pt3dadd(115.612, 97.861, 25.93, 0.678)
pt3dadd(115.597, 97.862, 25.93, 0.694)
pt3dadd(115.477, 97.867, 25.931, 0.818)
pt3dadd(115.357, 97.873, 25.931, 0.942)
pt3dadd(115.237, 97.878, 25.932, 1.066)
pt3dadd(115.117, 97.885, 25.932, 1.186)
pt3dadd(114.998, 97.891, 25.932, 1.306)
pt3dadd(114.878, 97.898, 25.932, 1.426)
pt3dadd(114.758, 97.904, 25.932, 1.546)
pt3dadd(114.638, 97.911, 25.932, 1.666)
pt3dadd(114.518, 97.917, 25.932, 1.786)
pt3dadd(114.398, 97.924, 25.932, 1.906)
pt3dadd(114.279, 97.93, 25.932, 2.026)
pt3dadd(114.159, 97.937, 25.932, 2.146)
pt3dadd(114.042, 97.953, 25.928, 2.232)
pt3dadd(113.941, 98.011, 25.904, 2.162)
pt3dadd(113.84, 98.069, 25.88, 2.092)
pt3dadd(113.739, 98.127, 25.857, 2.024)
pt3dadd(113.638, 98.186, 25.833, 1.954)
pt3dadd(113.538, 98.244, 25.809, 1.884)
pt3dadd(113.436, 98.302, 25.785, 1.816)
pt3dadd(113.335, 98.36, 25.762, 1.746)
pt3dadd(113.235, 98.418, 25.738, 1.676)
pt3dadd(113.133, 98.477, 25.714, 1.608)
pt3dadd(113.033, 98.53, 25.685, 1.54)
pt3dadd(112.937, 98.562, 25.632, 1.478)
pt3dadd(112.841, 98.594, 25.578, 1.418)
pt3dadd(112.744, 98.626, 25.525, 1.356)
pt3dadd(112.648, 98.658, 25.472, 1.294)
pt3dadd(112.552, 98.69, 25.418, 1.234)
pt3dadd(112.455, 98.722, 25.365, 1.172)
pt3dadd(112.359, 98.754, 25.312, 1.112)
pt3dadd(112.262, 98.785, 25.258, 1.05)
pt3dadd(112.166, 98.817, 25.205, 0.988)
pt3dadd(112.066, 98.816, 25.161, 0.962)
pt3dadd(111.96, 98.775, 25.127, 0.976)
pt3dadd(111.855, 98.733, 25.094, 0.99)
pt3dadd(111.75, 98.692, 25.061, 1.004)
pt3dadd(111.644, 98.651, 25.028, 1.018)
pt3dadd(111.539, 98.61, 24.994, 1.032)
pt3dadd(111.433, 98.568, 24.961, 1.046)
pt3dadd(111.328, 98.527, 24.927, 1.06)
pt3dadd(111.223, 98.486, 24.894, 1.074)
pt3dadd(111.117, 98.445, 24.861, 1.088)
pt3dadd(111.009, 98.401, 24.838, 1.106)
pt3dadd(110.9, 98.357, 24.822, 1.126)
pt3dadd(110.79, 98.312, 24.806, 1.144)
pt3dadd(110.68, 98.268, 24.79, 1.164)
pt3dadd(110.57, 98.223, 24.774, 1.182)
pt3dadd(110.461, 98.179, 24.758, 1.202)
pt3dadd(110.351, 98.134, 24.741, 1.222)
pt3dadd(110.241, 98.09, 24.725, 1.24)
pt3dadd(110.131, 98.045, 24.709, 1.26)
pt3dadd(110.022, 98.001, 24.693, 1.278)
pt3dadd(109.91, 97.96, 24.683, 1.268)
pt3dadd(109.796, 97.921, 24.676, 1.242)
pt3dadd(109.683, 97.883, 24.669, 1.216)
pt3dadd(109.57, 97.844, 24.663, 1.19)
pt3dadd(109.456, 97.805, 24.656, 1.164)
}
}
proc shape3d_142() {
dend_7[14] { pt3dadd(109.343, 97.766, 24.649, 1.14)
pt3dadd(109.23, 97.727, 24.642, 1.114)
pt3dadd(109.117, 97.689, 24.635, 1.088)
pt3dadd(109.003, 97.65, 24.628, 1.062)
pt3dadd(108.89, 97.611, 24.622, 1.036)
pt3dadd(108.778, 97.569, 24.616, 1.008)
pt3dadd(108.666, 97.525, 24.612, 0.978)
pt3dadd(108.555, 97.482, 24.608, 0.948)
pt3dadd(108.443, 97.438, 24.604, 0.918)
pt3dadd(108.331, 97.395, 24.599, 0.89)
pt3dadd(108.22, 97.351, 24.595, 0.86)
pt3dadd(108.108, 97.307, 24.591, 0.83)
pt3dadd(107.996, 97.264, 24.587, 0.8)
pt3dadd(107.885, 97.22, 24.582, 0.772)
pt3dadd(107.773, 97.176, 24.578, 0.742)
pt3dadd(107.667, 97.122, 24.572, 0.746)
pt3dadd(107.562, 97.063, 24.565, 0.762)
pt3dadd(107.458, 97.004, 24.558, 0.78)
pt3dadd(107.354, 96.945, 24.551, 0.796)
pt3dadd(107.25, 96.886, 24.544, 0.814)
pt3dadd(107.145, 96.828, 24.538, 0.83)
pt3dadd(107.041, 96.769, 24.531, 0.846)
pt3dadd(106.937, 96.71, 24.524, 0.864)
pt3dadd(106.833, 96.651, 24.517, 0.88)
pt3dadd(106.728, 96.592, 24.51, 0.896)
pt3dadd(106.631, 96.524, 24.5, 0.912)
pt3dadd(106.535, 96.453, 24.489, 0.928)
pt3dadd(106.44, 96.381, 24.478, 0.944)
pt3dadd(106.344, 96.309, 24.467, 0.962)
pt3dadd(106.249, 96.238, 24.456, 0.978)
pt3dadd(106.153, 96.166, 24.445, 0.994)
pt3dadd(106.058, 96.095, 24.434, 1.01)
pt3dadd(105.962, 96.023, 24.423, 1.026)
pt3dadd(105.867, 95.952, 24.412, 1.042)
pt3dadd(105.771, 95.88, 24.401, 1.058)
pt3dadd(105.678, 95.814, 24.373, 1.076)
pt3dadd(105.586, 95.749, 24.339, 1.096)
pt3dadd(105.493, 95.685, 24.305, 1.116)
pt3dadd(105.401, 95.62, 24.271, 1.136)
pt3dadd(105.308, 95.556, 24.236, 1.154)
pt3dadd(105.216, 95.491, 24.202, 1.174)
pt3dadd(105.123, 95.427, 24.168, 1.194)
pt3dadd(105.031, 95.362, 24.134, 1.214)
pt3dadd(104.939, 95.297, 24.1, 1.234)
pt3dadd(104.846, 95.233, 24.066, 1.254)
pt3dadd(104.746, 95.189, 24.024, 1.252)
pt3dadd(104.646, 95.147, 23.982, 1.252)
pt3dadd(104.546, 95.104, 23.94, 1.25)
pt3dadd(104.445, 95.062, 23.898, 1.25)
pt3dadd(104.345, 95.019, 23.856, 1.248)
pt3dadd(104.245, 94.977, 23.815, 1.246)
pt3dadd(104.144, 94.934, 23.773, 1.246)
pt3dadd(104.044, 94.891, 23.731, 1.244)
pt3dadd(103.944, 94.849, 23.689, 1.244)
pt3dadd(103.842, 94.808, 23.648, 1.24)
pt3dadd(103.729, 94.784, 23.621, 1.23)
pt3dadd(103.616, 94.76, 23.595, 1.218)
pt3dadd(103.503, 94.736, 23.568, 1.208)
pt3dadd(103.39, 94.712, 23.541, 1.196)
pt3dadd(103.277, 94.688, 23.514, 1.184)
pt3dadd(103.164, 94.664, 23.487, 1.174)
pt3dadd(103.051, 94.64, 23.46, 1.162)
pt3dadd(102.938, 94.616, 23.433, 1.152)
pt3dadd(102.825, 94.592, 23.406, 1.14)
pt3dadd(102.711, 94.568, 23.381, 1.13)
pt3dadd(102.597, 94.538, 23.364, 1.136)
pt3dadd(102.482, 94.509, 23.347, 1.142)
pt3dadd(102.368, 94.479, 23.33, 1.146)
pt3dadd(102.253, 94.45, 23.313, 1.152)
pt3dadd(102.139, 94.421, 23.296, 1.156)
pt3dadd(102.024, 94.391, 23.279, 1.162)
pt3dadd(101.91, 94.362, 23.262, 1.168)
pt3dadd(101.795, 94.332, 23.245, 1.172)
pt3dadd(101.68, 94.303, 23.228, 1.178)
pt3dadd(101.567, 94.268, 23.213, 1.186)
pt3dadd(101.459, 94.218, 23.202, 1.202)
pt3dadd(101.352, 94.167, 23.192, 1.218)
pt3dadd(101.244, 94.116, 23.181, 1.234)
pt3dadd(101.136, 94.065, 23.171, 1.25)
pt3dadd(101.028, 94.014, 23.16, 1.266)
pt3dadd(100.92, 93.963, 23.15, 1.282)
pt3dadd(100.812, 93.912, 23.139, 1.298)
pt3dadd(100.704, 93.862, 23.129, 1.314)
pt3dadd(100.596, 93.811, 23.118, 1.33)
pt3dadd(100.488, 93.762, 23.103, 1.34)
pt3dadd(100.382, 93.723, 23.07, 1.326)
pt3dadd(100.276, 93.683, 23.037, 1.314)
pt3dadd(100.17, 93.644, 23.003, 1.3)
pt3dadd(100.064, 93.604, 22.97, 1.288)
pt3dadd(99.958, 93.565, 22.937, 1.274)
pt3dadd(99.852, 93.525, 22.904, 1.262)
pt3dadd(99.746, 93.486, 22.871, 1.248)
pt3dadd(99.64, 93.446, 22.837, 1.236)
pt3dadd(99.534, 93.406, 22.804, 1.222)
pt3dadd(99.428, 93.365, 22.772, 1.21)
pt3dadd(99.322, 93.319, 22.743, 1.202)
pt3dadd(99.217, 93.274, 22.715, 1.194)
pt3dadd(99.111, 93.228, 22.686, 1.186)
pt3dadd(99.006, 93.182, 22.657, 1.178)
pt3dadd(98.901, 93.137, 22.628, 1.168)
pt3dadd(98.795, 93.091, 22.599, 1.16)
pt3dadd(98.69, 93.045, 22.57, 1.152)
pt3dadd(98.584, 93, 22.542, 1.144)
pt3dadd(98.479, 92.954, 22.513, 1.136)
pt3dadd(98.374, 92.906, 22.486, 1.13)
pt3dadd(98.269, 92.853, 22.465, 1.13)
pt3dadd(98.165, 92.8, 22.444, 1.13)
pt3dadd(98.06, 92.747, 22.423, 1.13)
pt3dadd(97.955, 92.694, 22.401, 1.13)
pt3dadd(97.851, 92.641, 22.38, 1.13)
pt3dadd(97.746, 92.588, 22.359, 1.13)
pt3dadd(97.642, 92.535, 22.337, 1.13)
pt3dadd(97.537, 92.482, 22.316, 1.13)
pt3dadd(97.432, 92.429, 22.295, 1.13)
pt3dadd(97.324, 92.383, 22.277, 1.13)
pt3dadd(97.209, 92.355, 22.266, 1.13)
pt3dadd(97.093, 92.326, 22.255, 1.13)
pt3dadd(96.977, 92.297, 22.245, 1.13)
pt3dadd(96.861, 92.268, 22.234, 1.13)
pt3dadd(96.745, 92.24, 22.223, 1.13)
pt3dadd(96.63, 92.211, 22.212, 1.13)
pt3dadd(96.514, 92.182, 22.202, 1.13)
pt3dadd(96.398, 92.153, 22.191, 1.13)
pt3dadd(96.282, 92.124, 22.18, 1.13)
pt3dadd(96.166, 92.099, 22.172, 1.13)
pt3dadd(96.047, 92.081, 22.169, 1.13)
pt3dadd(95.928, 92.063, 22.166, 1.13)
pt3dadd(95.81, 92.045, 22.162, 1.13)
pt3dadd(95.691, 92.027, 22.159, 1.13)
pt3dadd(95.573, 92.009, 22.156, 1.13)
pt3dadd(95.454, 91.99, 22.153, 1.13)
pt3dadd(95.336, 91.972, 22.15, 1.13)
pt3dadd(95.217, 91.954, 22.147, 1.13)
pt3dadd(95.099, 91.936, 22.143, 1.13)
pt3dadd(94.98, 91.922, 22.141, 1.124)
pt3dadd(94.86, 91.913, 22.141, 1.11)
pt3dadd(94.74, 91.905, 22.141, 1.094)
pt3dadd(94.62, 91.897, 22.141, 1.078)
pt3dadd(94.501, 91.889, 22.141, 1.062)
pt3dadd(94.381, 91.881, 22.141, 1.046)
pt3dadd(94.261, 91.873, 22.141, 1.032)
pt3dadd(94.141, 91.865, 22.141, 1.016)
pt3dadd(94.022, 91.857, 22.141, 1)
pt3dadd(93.902, 91.849, 22.141, 0.984)
pt3dadd(93.782, 91.843, 22.141, 0.966)
pt3dadd(93.662, 91.842, 22.141, 0.938)
pt3dadd(93.542, 91.842, 22.141, 0.912)
pt3dadd(93.422, 91.841, 22.141, 0.886)
pt3dadd(93.302, 91.84, 22.141, 0.858)
pt3dadd(93.182, 91.839, 22.141, 0.832)
pt3dadd(93.062, 91.838, 22.141, 0.806)
pt3dadd(92.942, 91.837, 22.141, 0.78)
pt3dadd(92.822, 91.836, 22.141, 0.752)
pt3dadd(92.702, 91.835, 22.141, 0.726)
pt3dadd(92.582, 91.834, 22.141, 0.714)
pt3dadd(92.462, 91.832, 22.141, 0.732)
pt3dadd(92.342, 91.83, 22.141, 0.75)
pt3dadd(92.222, 91.828, 22.141, 0.768)
pt3dadd(92.102, 91.827, 22.14, 0.786)
pt3dadd(91.982, 91.825, 22.14, 0.804)
pt3dadd(91.862, 91.823, 22.14, 0.822)
pt3dadd(91.742, 91.821, 22.14, 0.84)
pt3dadd(91.622, 91.819, 22.14, 0.858)
pt3dadd(91.502, 91.818, 22.14, 0.876)
pt3dadd(91.382, 91.815, 22.14, 0.9)
pt3dadd(91.262, 91.812, 22.14, 0.934)
pt3dadd(91.143, 91.808, 22.14, 0.968)
pt3dadd(91.023, 91.805, 22.14, 1.002)
pt3dadd(90.903, 91.802, 22.14, 1.036)
pt3dadd(90.783, 91.798, 22.139, 1.07)
pt3dadd(90.663, 91.795, 22.139, 1.104)
pt3dadd(90.543, 91.791, 22.139, 1.138)
pt3dadd(90.423, 91.788, 22.139, 1.172)
pt3dadd(90.303, 91.784, 22.139, 1.206)
pt3dadd(90.183, 91.78, 22.139, 1.216)
pt3dadd(90.063, 91.773, 22.139, 1.184)
pt3dadd(89.943, 91.766, 22.138, 1.15)
pt3dadd(89.823, 91.759, 22.138, 1.118)
pt3dadd(89.704, 91.752, 22.138, 1.084)
pt3dadd(89.584, 91.745, 22.138, 1.052)
pt3dadd(89.464, 91.738, 22.137, 1.018)
pt3dadd(89.344, 91.731, 22.137, 0.984)
pt3dadd(89.225, 91.724, 22.137, 0.952)
pt3dadd(89.105, 91.717, 22.137, 0.918)
pt3dadd(88.985, 91.709, 22.136, 0.888)
pt3dadd(88.866, 91.698, 22.136, 0.864)
pt3dadd(88.746, 91.687, 22.135, 0.84)
pt3dadd(88.627, 91.676, 22.135, 0.816)
pt3dadd(88.507, 91.665, 22.135, 0.792)
pt3dadd(88.388, 91.654, 22.134, 0.766)
pt3dadd(88.268, 91.643, 22.134, 0.742)
pt3dadd(88.149, 91.632, 22.133, 0.718)
pt3dadd(88.029, 91.621, 22.133, 0.694)
pt3dadd(87.91, 91.61, 22.132, 0.67)
pt3dadd(87.79, 91.596, 22.132, 0.67)
pt3dadd(87.672, 91.578, 22.131, 0.718)
pt3dadd(87.553, 91.56, 22.13, 0.766)
pt3dadd(87.435, 91.541, 22.13, 0.814)
pt3dadd(87.316, 91.523, 22.129, 0.862)
pt3dadd(87.197, 91.505, 22.128, 0.91)
}
}
proc shape3d_143() {
dend_7[14] { pt3dadd(87.079, 91.487, 22.128, 0.958)
pt3dadd(86.96, 91.468, 22.127, 1.006)
pt3dadd(86.842, 91.45, 22.126, 1.054)
pt3dadd(86.723, 91.432, 22.125, 1.1)
pt3dadd(86.608, 91.403, 22.125, 1.13)
pt3dadd(86.497, 91.356, 22.123, 1.13)
pt3dadd(86.386, 91.31, 22.122, 1.13)
pt3dadd(86.276, 91.263, 22.121, 1.13)
pt3dadd(86.165, 91.217, 22.119, 1.13)
pt3dadd(86.055, 91.17, 22.118, 1.13)
pt3dadd(85.944, 91.124, 22.117, 1.13)
pt3dadd(85.833, 91.077, 22.115, 1.13)
pt3dadd(85.723, 91.031, 22.114, 1.13)
pt3dadd(85.612, 90.984, 22.113, 1.13)
pt3dadd(85.5, 90.942, 22.111, 1.124)
pt3dadd(85.386, 90.906, 22.109, 1.112)
pt3dadd(85.271, 90.87, 22.106, 1.098)
pt3dadd(85.157, 90.833, 22.104, 1.084)
pt3dadd(85.042, 90.797, 22.101, 1.072)
pt3dadd(84.928, 90.761, 22.099, 1.058)
pt3dadd(84.813, 90.725, 22.096, 1.044)
pt3dadd(84.699, 90.689, 22.094, 1.032)
pt3dadd(84.585, 90.653, 22.091, 1.018)
pt3dadd(84.47, 90.617, 22.089, 1.004)
pt3dadd(84.355, 90.584, 22.085, 0.988)
pt3dadd(84.238, 90.556, 22.08, 0.97)
pt3dadd(84.122, 90.528, 22.075, 0.952)
pt3dadd(84.005, 90.5, 22.07, 0.934)
pt3dadd(83.889, 90.472, 22.065, 0.916)
pt3dadd(83.772, 90.444, 22.06, 0.898)
pt3dadd(83.656, 90.416, 22.055, 0.88)
pt3dadd(83.539, 90.388, 22.05, 0.862)
pt3dadd(83.423, 90.36, 22.045, 0.842)
pt3dadd(83.306, 90.333, 22.04, 0.824)
pt3dadd(83.189, 90.308, 22.033, 0.81)
pt3dadd(83.071, 90.287, 22.024, 0.802)
pt3dadd(82.954, 90.266, 22.015, 0.794)
pt3dadd(82.836, 90.246, 22.006, 0.786)
pt3dadd(82.718, 90.225, 21.997, 0.778)
pt3dadd(82.601, 90.204, 21.988, 0.77)
pt3dadd(82.483, 90.184, 21.979, 0.762)
pt3dadd(82.365, 90.163, 21.971, 0.754)
pt3dadd(82.247, 90.142, 21.962, 0.746)
pt3dadd(82.13, 90.122, 21.953, 0.738)
pt3dadd(82.013, 90.101, 21.94, 0.742)
pt3dadd(81.897, 90.079, 21.921, 0.762)
pt3dadd(81.781, 90.057, 21.903, 0.784)
pt3dadd(81.665, 90.036, 21.884, 0.804)
pt3dadd(81.549, 90.014, 21.866, 0.824)
pt3dadd(81.433, 89.993, 21.848, 0.844)
pt3dadd(81.317, 89.971, 21.829, 0.866)
pt3dadd(81.201, 89.95, 21.811, 0.886)
pt3dadd(81.085, 89.928, 21.792, 0.906)
pt3dadd(80.969, 89.907, 21.774, 0.926)
pt3dadd(80.869, 89.864, 21.738, 0.946)
pt3dadd(80.779, 89.809, 21.691, 0.966)
pt3dadd(80.688, 89.753, 21.644, 0.986)
pt3dadd(80.598, 89.698, 21.597, 1.006)
pt3dadd(80.508, 89.643, 21.55, 1.026)
pt3dadd(80.418, 89.587, 21.503, 1.046)
pt3dadd(80.328, 89.532, 21.456, 1.064)
pt3dadd(80.238, 89.476, 21.409, 1.084)
pt3dadd(80.147, 89.421, 21.361, 1.104)
pt3dadd(80.057, 89.365, 21.314, 1.124)
pt3dadd(79.954, 89.325, 21.279, 1.13)
pt3dadd(79.844, 89.292, 21.25, 1.13)
pt3dadd(79.733, 89.26, 21.221, 1.13)
pt3dadd(79.623, 89.227, 21.192, 1.13)
pt3dadd(79.513, 89.195, 21.163, 1.13)
pt3dadd(79.403, 89.162, 21.134, 1.13)
pt3dadd(79.293, 89.13, 21.105, 1.13)
pt3dadd(79.183, 89.097, 21.076, 1.13)
pt3dadd(79.073, 89.064, 21.047, 1.13)
pt3dadd(78.963, 89.032, 21.018, 1.13)
pt3dadd(78.847, 89.014, 21.001, 1.13)
pt3dadd(78.728, 89.003, 20.988, 1.13)
pt3dadd(78.609, 88.992, 20.976, 1.13)
pt3dadd(78.491, 88.981, 20.963, 1.13)
pt3dadd(78.372, 88.97, 20.951, 1.13)
pt3dadd(78.254, 88.959, 20.939, 1.13)
pt3dadd(78.135, 88.948, 20.926, 1.13)
pt3dadd(78.017, 88.937, 20.914, 1.13)
pt3dadd(77.898, 88.926, 20.901, 1.13)
pt3dadd(77.78, 88.915, 20.889, 1.13)
pt3dadd(77.66, 88.916, 20.884, 1.096)
pt3dadd(77.54, 88.923, 20.883, 1.048)
pt3dadd(77.421, 88.93, 20.882, 0.998)
pt3dadd(77.301, 88.937, 20.881, 0.948)
pt3dadd(77.181, 88.944, 20.88, 0.9)
pt3dadd(77.061, 88.951, 20.878, 0.85)
pt3dadd(76.941, 88.958, 20.877, 0.802)
pt3dadd(76.822, 88.965, 20.876, 0.752)
pt3dadd(76.702, 88.971, 20.875, 0.704)
pt3dadd(76.582, 88.978, 20.874, 0.654)
pt3dadd(76.462, 88.989, 20.873, 0.626)
pt3dadd(76.343, 89.001, 20.873, 0.608)
pt3dadd(76.224, 89.013, 20.873, 0.588)
pt3dadd(76.104, 89.025, 20.873, 0.57)
pt3dadd(75.985, 89.037, 20.872, 0.552)
pt3dadd(75.865, 89.049, 20.872, 0.532)
pt3dadd(75.746, 89.061, 20.872, 0.514)
pt3dadd(75.627, 89.073, 20.872, 0.494)
pt3dadd(75.507, 89.085, 20.871, 0.476)
pt3dadd(75.388, 89.097, 20.871, 0.458)
pt3dadd(75.27, 89.119, 20.871, 0.466)
pt3dadd(75.153, 89.145, 20.87, 0.484)
pt3dadd(75.036, 89.17, 20.87, 0.504)
pt3dadd(74.918, 89.196, 20.869, 0.522)
pt3dadd(74.801, 89.222, 20.869, 0.54)
pt3dadd(74.684, 89.247, 20.868, 0.56)
pt3dadd(74.567, 89.273, 20.868, 0.578)
pt3dadd(74.45, 89.299, 20.868, 0.598)
pt3dadd(74.332, 89.325, 20.867, 0.616)
pt3dadd(74.215, 89.35, 20.867, 0.634)
pt3dadd(74.103, 89.391, 20.866, 0.676)
pt3dadd(73.991, 89.436, 20.866, 0.726)
pt3dadd(73.88, 89.48, 20.865, 0.774)
pt3dadd(73.768, 89.525, 20.864, 0.822)
pt3dadd(73.657, 89.569, 20.864, 0.87)
pt3dadd(73.545, 89.614, 20.863, 0.918)
pt3dadd(73.434, 89.658, 20.862, 0.966)
pt3dadd(73.323, 89.703, 20.862, 1.016)
pt3dadd(73.211, 89.748, 20.861, 1.064)
pt3dadd(73.1, 89.792, 20.861, 1.112)
pt3dadd(72.984, 89.824, 20.859, 1.068)
pt3dadd(72.868, 89.853, 20.858, 0.998)
pt3dadd(72.752, 89.883, 20.857, 0.928)
pt3dadd(72.635, 89.912, 20.855, 0.86)
pt3dadd(72.519, 89.941, 20.854, 0.79)
pt3dadd(72.402, 89.97, 20.852, 0.72)
pt3dadd(72.286, 89.999, 20.851, 0.652)
pt3dadd(72.17, 90.028, 20.849, 0.582)
pt3dadd(72.053, 90.057, 20.848, 0.512)
pt3dadd(71.937, 90.086, 20.846, 0.444)
pt3dadd(71.819, 90.107, 20.844, 0.412)
pt3dadd(71.7, 90.125, 20.842, 0.392)
pt3dadd(71.582, 90.144, 20.839, 0.372)
pt3dadd(71.463, 90.162, 20.837, 0.352)
pt3dadd(71.345, 90.181, 20.834, 0.332)
pt3dadd(71.226, 90.199, 20.831, 0.312)
pt3dadd(71.107, 90.218, 20.829, 0.29)
pt3dadd(70.989, 90.236, 20.826, 0.27)
pt3dadd(70.87, 90.255, 20.824, 0.25)
pt3dadd(70.752, 90.273, 20.821, 0.23)
pt3dadd(70.632, 90.283, 20.817, 0.226)
pt3dadd(70.513, 90.292, 20.812, 0.226)
pt3dadd(70.393, 90.301, 20.807, 0.226)
pt3dadd(70.274, 90.309, 20.802, 0.226)
pt3dadd(70.154, 90.318, 20.797, 0.226)
pt3dadd(70.035, 90.327, 20.792, 0.226)
pt3dadd(69.915, 90.336, 20.788, 0.226)
pt3dadd(69.796, 90.344, 20.783, 0.226)
pt3dadd(69.676, 90.353, 20.778, 0.226)
pt3dadd(69.557, 90.361, 20.773, 0.226)
pt3dadd(69.437, 90.365, 20.765, 0.228)
pt3dadd(69.318, 90.367, 20.757, 0.232)
pt3dadd(69.198, 90.369, 20.749, 0.234)
pt3dadd(69.078, 90.371, 20.741, 0.238)
pt3dadd(68.959, 90.373, 20.733, 0.24)
pt3dadd(68.839, 90.375, 20.725, 0.242)
pt3dadd(68.72, 90.377, 20.717, 0.246)
pt3dadd(68.6, 90.379, 20.708, 0.248)
pt3dadd(68.48, 90.381, 20.7, 0.252)
pt3dadd(68.361, 90.383, 20.692, 0.254)
pt3dadd(68.242, 90.386, 20.681, 0.27)
pt3dadd(68.123, 90.389, 20.669, 0.288)
pt3dadd(68.004, 90.393, 20.656, 0.306)
pt3dadd(67.884, 90.396, 20.644, 0.322)
pt3dadd(67.765, 90.399, 20.632, 0.34)
pt3dadd(67.646, 90.403, 20.62, 0.358)
pt3dadd(67.527, 90.406, 20.608, 0.376)
pt3dadd(67.408, 90.409, 20.595, 0.394)
pt3dadd(67.289, 90.413, 20.583, 0.412)
pt3dadd(67.17, 90.416, 20.571, 0.43)
pt3dadd(67.057, 90.423, 20.54, 0.458)
pt3dadd(66.945, 90.43, 20.504, 0.49)
pt3dadd(66.833, 90.438, 20.469, 0.52)
pt3dadd(66.721, 90.445, 20.433, 0.552)
pt3dadd(66.609, 90.452, 20.398, 0.584)
pt3dadd(66.497, 90.459, 20.362, 0.614)
pt3dadd(66.385, 90.467, 20.327, 0.646)
pt3dadd(66.273, 90.474, 20.291, 0.678)
pt3dadd(66.161, 90.481, 20.256, 0.708)
pt3dadd(66.049, 90.489, 20.22, 0.74)
pt3dadd(65.937, 90.499, 20.187, 0.766)
pt3dadd(65.823, 90.51, 20.155, 0.79)
pt3dadd(65.71, 90.52, 20.123, 0.816)
pt3dadd(65.597, 90.531, 20.09, 0.84)
pt3dadd(65.484, 90.542, 20.058, 0.866)
pt3dadd(65.371, 90.552, 20.026, 0.89)
pt3dadd(65.258, 90.563, 19.993, 0.914)
pt3dadd(65.145, 90.574, 19.961, 0.94)
pt3dadd(65.032, 90.585, 19.929, 0.964)
pt3dadd(64.919, 90.595, 19.897, 0.99)
pt3dadd(64.805, 90.614, 19.871, 1.004)
pt3dadd(64.69, 90.633, 19.846, 1.018)
pt3dadd(64.575, 90.653, 19.821, 1.032)
pt3dadd(64.461, 90.672, 19.797, 1.046)
pt3dadd(64.346, 90.692, 19.772, 1.06)
pt3dadd(64.231, 90.711, 19.747, 1.074)
}
}
proc shape3d_144() {
dend_7[14] { pt3dadd(64.117, 90.731, 19.722, 1.088)
pt3dadd(64.002, 90.75, 19.698, 1.102)
pt3dadd(63.888, 90.769, 19.673, 1.116)
pt3dadd(63.773, 90.789, 19.648, 1.13)
pt3dadd(63.663, 90.831, 19.631, 1.13)
pt3dadd(63.553, 90.875, 19.614, 1.13)
pt3dadd(63.443, 90.919, 19.597, 1.13)
pt3dadd(63.333, 90.963, 19.58, 1.13)
pt3dadd(63.224, 91.007, 19.563, 1.13)
pt3dadd(63.114, 91.051, 19.546, 1.13)
pt3dadd(63.004, 91.095, 19.529, 1.13)
pt3dadd(62.894, 91.139, 19.513, 1.13)
pt3dadd(62.784, 91.183, 19.496, 1.13)
pt3dadd(62.675, 91.227, 19.479, 1.13)
pt3dadd(62.56, 91.26, 19.466, 1.116)
pt3dadd(62.445, 91.291, 19.453, 1.102)
pt3dadd(62.331, 91.323, 19.44, 1.088)
pt3dadd(62.216, 91.354, 19.427, 1.074)
pt3dadd(62.101, 91.386, 19.414, 1.06)
pt3dadd(61.986, 91.417, 19.402, 1.046)
pt3dadd(61.872, 91.449, 19.389, 1.032)
pt3dadd(61.757, 91.48, 19.376, 1.018)
pt3dadd(61.642, 91.512, 19.363, 1.004)
pt3dadd(61.527, 91.543, 19.35, 0.99)
pt3dadd(61.413, 91.564, 19.326, 0.982)
pt3dadd(61.299, 91.585, 19.3, 0.974)
pt3dadd(61.185, 91.606, 19.275, 0.964)
pt3dadd(61.07, 91.626, 19.25, 0.956)
pt3dadd(60.956, 91.647, 19.225, 0.946)
pt3dadd(60.842, 91.668, 19.199, 0.938)
pt3dadd(60.728, 91.688, 19.174, 0.93)
pt3dadd(60.613, 91.709, 19.149, 0.92)
pt3dadd(60.499, 91.729, 19.124, 0.912)
pt3dadd(60.385, 91.749, 19.098, 0.904)
pt3dadd(60.274, 91.76, 19.061, 0.906)
pt3dadd(60.163, 91.771, 19.024, 0.908)
pt3dadd(60.052, 91.782, 18.987, 0.91)
pt3dadd(59.941, 91.792, 18.951, 0.912)
pt3dadd(59.83, 91.803, 18.914, 0.914)
pt3dadd(59.718, 91.814, 18.877, 0.916)
pt3dadd(59.607, 91.825, 18.84, 0.92)
pt3dadd(59.496, 91.835, 18.804, 0.922)
pt3dadd(59.385, 91.846, 18.767, 0.924)
pt3dadd(59.274, 91.856, 18.731, 0.926)
pt3dadd(59.158, 91.856, 18.705, 0.944)
pt3dadd(59.042, 91.856, 18.678, 0.962)
pt3dadd(58.927, 91.856, 18.651, 0.978)
pt3dadd(58.811, 91.856, 18.625, 0.996)
pt3dadd(58.695, 91.856, 18.598, 1.012)
pt3dadd(58.58, 91.856, 18.572, 1.03)
pt3dadd(58.464, 91.856, 18.545, 1.048)
pt3dadd(58.348, 91.856, 18.519, 1.064)
pt3dadd(58.233, 91.856, 18.492, 1.082)
pt3dadd(58.117, 91.856, 18.466, 1.096)
pt3dadd(57.999, 91.856, 18.446, 1.086)
pt3dadd(57.881, 91.856, 18.427, 1.074)
pt3dadd(57.764, 91.856, 18.407, 1.064)
pt3dadd(57.646, 91.856, 18.388, 1.052)
pt3dadd(57.528, 91.856, 18.368, 1.042)
pt3dadd(57.411, 91.856, 18.349, 1.03)
pt3dadd(57.293, 91.856, 18.33, 1.02)
pt3dadd(57.175, 91.856, 18.31, 1.008)
pt3dadd(57.057, 91.856, 18.291, 0.998)
pt3dadd(56.94, 91.856, 18.271, 0.988)
pt3dadd(56.821, 91.856, 18.257, 0.988)
pt3dadd(56.702, 91.856, 18.242, 0.99)
pt3dadd(56.583, 91.856, 18.228, 0.99)
pt3dadd(56.465, 91.856, 18.213, 0.992)
pt3dadd(56.346, 91.856, 18.198, 0.992)
pt3dadd(56.227, 91.856, 18.184, 0.994)
pt3dadd(56.109, 91.856, 18.169, 0.994)
pt3dadd(55.99, 91.856, 18.155, 0.996)
pt3dadd(55.871, 91.856, 18.14, 0.996)
pt3dadd(55.752, 91.856, 18.125, 0.998)
pt3dadd(55.635, 91.856, 18.107, 0.998)
pt3dadd(55.517, 91.856, 18.089, 0.998)
pt3dadd(55.398, 91.856, 18.071, 1)
pt3dadd(55.281, 91.856, 18.053, 1)
pt3dadd(55.162, 91.856, 18.035, 1.002)
pt3dadd(55.044, 91.856, 18.016, 1.002)
pt3dadd(54.926, 91.856, 17.998, 1.002)
pt3dadd(54.808, 91.856, 17.98, 1.004)
pt3dadd(54.69, 91.856, 17.962, 1.004)
pt3dadd(54.573, 91.856, 17.941, 0.996)
pt3dadd(54.462, 91.856, 17.904, 0.948)
pt3dadd(54.351, 91.856, 17.867, 0.898)
pt3dadd(54.239, 91.856, 17.83, 0.848)
pt3dadd(54.128, 91.856, 17.792, 0.798)
pt3dadd(54.016, 91.856, 17.755, 0.748)
pt3dadd(53.905, 91.856, 17.718, 0.698)
pt3dadd(53.794, 91.856, 17.681, 0.65)
pt3dadd(53.682, 91.856, 17.644, 0.6)
pt3dadd(53.571, 91.856, 17.607, 0.55)
pt3dadd(53.459, 91.856, 17.571, 0.512)
pt3dadd(53.343, 91.856, 17.546, 0.536)
pt3dadd(53.226, 91.856, 17.52, 0.562)
pt3dadd(53.11, 91.856, 17.495, 0.588)
pt3dadd(52.994, 91.856, 17.47, 0.612)
pt3dadd(52.878, 91.856, 17.444, 0.638)
pt3dadd(52.762, 91.856, 17.418, 0.664)
pt3dadd(52.646, 91.856, 17.393, 0.688)
pt3dadd(52.53, 91.856, 17.368, 0.714)
pt3dadd(52.414, 91.856, 17.342, 0.74)
pt3dadd(52.298, 91.856, 17.318, 0.758)
pt3dadd(52.179, 91.856, 17.302, 0.74)
pt3dadd(52.061, 91.856, 17.285, 0.724)
pt3dadd(51.943, 91.856, 17.269, 0.706)
pt3dadd(51.824, 91.856, 17.252, 0.69)
pt3dadd(51.706, 91.856, 17.236, 0.674)
pt3dadd(51.588, 91.856, 17.219, 0.656)
pt3dadd(51.469, 91.856, 17.203, 0.64)
pt3dadd(51.351, 91.856, 17.187, 0.622)
pt3dadd(51.233, 91.856, 17.17, 0.606)
pt3dadd(51.114, 91.856, 17.155, 0.588)
pt3dadd(50.994, 91.856, 17.148, 0.568)
pt3dadd(50.875, 91.856, 17.14, 0.548)
pt3dadd(50.755, 91.856, 17.132, 0.528)
pt3dadd(50.635, 91.856, 17.125, 0.508)
pt3dadd(50.516, 91.856, 17.117, 0.49)
pt3dadd(50.396, 91.856, 17.11, 0.468)
pt3dadd(50.276, 91.856, 17.102, 0.45)
pt3dadd(50.157, 91.856, 17.094, 0.43)
pt3dadd(50.037, 91.856, 17.087, 0.41)
pt3dadd(49.917, 91.856, 17.081, 0.404)
pt3dadd(49.797, 91.856, 17.081, 0.454)
pt3dadd(49.677, 91.856, 17.081, 0.506)
pt3dadd(49.557, 91.856, 17.081, 0.556)
pt3dadd(49.437, 91.856, 17.081, 0.608)
pt3dadd(49.317, 91.856, 17.081, 0.66)
pt3dadd(49.197, 91.856, 17.081, 0.71)
pt3dadd(49.077, 91.856, 17.081, 0.762)
pt3dadd(48.957, 91.856, 17.081, 0.812)
pt3dadd(48.837, 91.856, 17.081, 0.864)
pt3dadd(48.717, 91.856, 17.081, 0.904)
pt3dadd(48.597, 91.856, 17.081, 0.904)
pt3dadd(48.477, 91.856, 17.081, 0.904)
pt3dadd(48.357, 91.855, 17.081, 0.904)
pt3dadd(48.237, 91.855, 17.081, 0.904)
pt3dadd(48.117, 91.855, 17.081, 0.904)
pt3dadd(47.997, 91.855, 17.081, 0.904)
pt3dadd(47.877, 91.855, 17.081, 0.904)
pt3dadd(47.757, 91.855, 17.081, 0.904)
pt3dadd(47.637, 91.855, 17.081, 0.904)
pt3dadd(47.517, 91.855, 17.081, 0.902)
pt3dadd(47.397, 91.855, 17.081, 0.888)
pt3dadd(47.277, 91.855, 17.081, 0.874)
pt3dadd(47.157, 91.855, 17.081, 0.86)
pt3dadd(47.037, 91.855, 17.081, 0.846)
pt3dadd(46.917, 91.855, 17.081, 0.832)
pt3dadd(46.797, 91.855, 17.081, 0.818)
pt3dadd(46.677, 91.855, 17.081, 0.804)
pt3dadd(46.557, 91.855, 17.081, 0.79)
pt3dadd(46.437, 91.855, 17.081, 0.776)
pt3dadd(46.317, 91.854, 17.081, 0.762)
pt3dadd(46.197, 91.854, 17.081, 0.754)
pt3dadd(46.077, 91.854, 17.081, 0.746)
pt3dadd(45.957, 91.854, 17.081, 0.736)
pt3dadd(45.837, 91.854, 17.081, 0.728)
pt3dadd(45.717, 91.854, 17.081, 0.72)
pt3dadd(45.597, 91.854, 17.081, 0.71)
pt3dadd(45.477, 91.854, 17.082, 0.702)
pt3dadd(45.357, 91.854, 17.082, 0.694)
pt3dadd(45.237, 91.853, 17.082, 0.686)
pt3dadd(45.117, 91.853, 17.082, 0.676)
pt3dadd(44.997, 91.853, 17.082, 0.668)
pt3dadd(44.877, 91.853, 17.082, 0.658)
pt3dadd(44.757, 91.853, 17.082, 0.65)
pt3dadd(44.637, 91.852, 17.082, 0.64)
pt3dadd(44.517, 91.852, 17.082, 0.632)
pt3dadd(44.397, 91.852, 17.082, 0.622)
pt3dadd(44.277, 91.852, 17.082, 0.614)
pt3dadd(44.157, 91.851, 17.082, 0.604)
pt3dadd(44.037, 91.851, 17.082, 0.596)
pt3dadd(43.917, 91.851, 17.083, 0.582)
pt3dadd(43.797, 91.851, 17.083, 0.546)
pt3dadd(43.677, 91.85, 17.083, 0.51)
pt3dadd(43.557, 91.85, 17.083, 0.474)
pt3dadd(43.437, 91.849, 17.083, 0.438)
pt3dadd(43.317, 91.849, 17.083, 0.402)
pt3dadd(43.197, 91.849, 17.083, 0.366)
pt3dadd(43.077, 91.848, 17.083, 0.33)
pt3dadd(42.957, 91.848, 17.084, 0.296)
pt3dadd(42.837, 91.848, 17.084, 0.26)
pt3dadd(42.717, 91.847, 17.084, 0.23)
pt3dadd(42.597, 91.846, 17.084, 0.23)
pt3dadd(42.477, 91.845, 17.084, 0.23)
pt3dadd(42.357, 91.845, 17.085, 0.23)
pt3dadd(42.237, 91.844, 17.085, 0.228)
pt3dadd(42.117, 91.843, 17.085, 0.228)
pt3dadd(41.997, 91.842, 17.086, 0.228)
pt3dadd(41.877, 91.842, 17.086, 0.228)
pt3dadd(41.757, 91.841, 17.086, 0.226)
pt3dadd(41.637, 91.84, 17.087, 0.226)
pt3dadd(41.517, 91.839, 17.087, 0.232)
pt3dadd(41.397, 91.838, 17.087, 0.256)
pt3dadd(41.277, 91.836, 17.088, 0.282)
pt3dadd(41.157, 91.835, 17.088, 0.308)
pt3dadd(41.037, 91.833, 17.089, 0.334)
pt3dadd(40.917, 91.831, 17.09, 0.36)
pt3dadd(40.797, 91.83, 17.09, 0.386)
}
}
proc shape3d_145() {
dend_7[14] { pt3dadd(40.677, 91.828, 17.091, 0.412)
pt3dadd(40.557, 91.827, 17.091, 0.438)
pt3dadd(40.437, 91.825, 17.092, 0.462)
pt3dadd(40.317, 91.824, 17.092, 0.488)
pt3dadd(40.197, 91.821, 17.093, 0.506)
pt3dadd(40.077, 91.818, 17.094, 0.526)
pt3dadd(39.958, 91.816, 17.095, 0.546)
pt3dadd(39.838, 91.813, 17.096, 0.566)
pt3dadd(39.718, 91.811, 17.097, 0.584)
pt3dadd(39.598, 91.808, 17.098, 0.604)
pt3dadd(39.478, 91.805, 17.099, 0.624)
pt3dadd(39.358, 91.803, 17.1, 0.642)
pt3dadd(39.238, 91.8, 17.101, 0.662)
pt3dadd(39.118, 91.797, 17.102, 0.678)
pt3dadd(38.998, 91.793, 17.104, 0.674)
pt3dadd(38.878, 91.788, 17.106, 0.67)
pt3dadd(38.758, 91.783, 17.107, 0.668)
pt3dadd(38.638, 91.779, 17.109, 0.664)
pt3dadd(38.518, 91.774, 17.111, 0.66)
pt3dadd(38.398, 91.77, 17.112, 0.658)
pt3dadd(38.279, 91.765, 17.114, 0.654)
pt3dadd(38.159, 91.76, 17.116, 0.65)
pt3dadd(38.039, 91.756, 17.118, 0.648)
pt3dadd(37.919, 91.75, 17.119, 0.64)
pt3dadd(37.799, 91.741, 17.122, 0.622)
pt3dadd(37.68, 91.733, 17.125, 0.606)
pt3dadd(37.56, 91.724, 17.128, 0.588)
pt3dadd(37.44, 91.715, 17.131, 0.57)
pt3dadd(37.321, 91.706, 17.134, 0.552)
pt3dadd(37.201, 91.697, 17.136, 0.534)
pt3dadd(37.082, 91.689, 17.139, 0.516)
pt3dadd(36.962, 91.68, 17.142, 0.498)
pt3dadd(36.842, 91.671, 17.145, 0.48)
pt3dadd(36.723, 91.661, 17.149, 0.47)
pt3dadd(36.604, 91.647, 17.155, 0.484)
pt3dadd(36.485, 91.633, 17.162, 0.5)
pt3dadd(36.366, 91.618, 17.168, 0.514)
pt3dadd(36.247, 91.604, 17.175, 0.528)
pt3dadd(36.128, 91.59, 17.182, 0.544)
pt3dadd(36.009, 91.576, 17.188, 0.558)
pt3dadd(35.891, 91.562, 17.195, 0.574)
pt3dadd(35.772, 91.547, 17.201, 0.588)
pt3dadd(35.653, 91.533, 17.208, 0.604)
pt3dadd(35.535, 91.515, 17.215, 0.616)
pt3dadd(35.421, 91.48, 17.225, 0.622)
pt3dadd(35.306, 91.444, 17.234, 0.628)
pt3dadd(35.192, 91.409, 17.243, 0.636)
pt3dadd(35.078, 91.374, 17.253, 0.642)
pt3dadd(34.964, 91.339, 17.262, 0.648)
pt3dadd(34.85, 91.304, 17.272, 0.654)
pt3dadd(34.735, 91.269, 17.281, 0.66)
pt3dadd(34.621, 91.234, 17.29, 0.668)
pt3dadd(34.507, 91.199, 17.3, 0.674)
pt3dadd(34.394, 91.162, 17.312, 0.676)
pt3dadd(34.284, 91.12, 17.329, 0.672)
pt3dadd(34.173, 91.078, 17.347, 0.668)
pt3dadd(34.063, 91.036, 17.364, 0.664)
pt3dadd(33.952, 90.994, 17.382, 0.66)
pt3dadd(33.842, 90.952, 17.399, 0.656)
pt3dadd(33.732, 90.91, 17.417, 0.65)
pt3dadd(33.621, 90.868, 17.434, 0.646)
pt3dadd(33.511, 90.826, 17.452, 0.642)
pt3dadd(33.4, 90.783, 17.47, 0.638)
pt3dadd(33.291, 90.746, 17.494, 0.628)
pt3dadd(33.183, 90.716, 17.53, 0.612)
pt3dadd(33.075, 90.686, 17.566, 0.596)
pt3dadd(32.967, 90.656, 17.602, 0.58)
pt3dadd(32.859, 90.625, 17.638, 0.564)
pt3dadd(32.752, 90.595, 17.674, 0.548)
pt3dadd(32.644, 90.565, 17.71, 0.532)
pt3dadd(32.536, 90.535, 17.746, 0.516)
pt3dadd(32.428, 90.505, 17.782, 0.5)
pt3dadd(32.32, 90.475, 17.818, 0.484)
pt3dadd(32.21, 90.447, 17.849, 0.478)
pt3dadd(32.096, 90.424, 17.875, 0.492)
pt3dadd(31.982, 90.402, 17.9, 0.504)
pt3dadd(31.869, 90.379, 17.925, 0.516)
pt3dadd(31.755, 90.356, 17.95, 0.53)
pt3dadd(31.641, 90.333, 17.975, 0.542)
pt3dadd(31.527, 90.31, 18.001, 0.554)
pt3dadd(31.413, 90.287, 18.026, 0.568)
pt3dadd(31.299, 90.264, 18.051, 0.58)
pt3dadd(31.185, 90.241, 18.076, 0.592)
pt3dadd(31.07, 90.22, 18.098, 0.604)
pt3dadd(30.954, 90.201, 18.114, 0.612)
pt3dadd(30.837, 90.183, 18.131, 0.618)
pt3dadd(30.72, 90.164, 18.147, 0.626)
pt3dadd(30.603, 90.146, 18.163, 0.634)
pt3dadd(30.486, 90.127, 18.18, 0.642)
pt3dadd(30.369, 90.109, 18.196, 0.65)
pt3dadd(30.252, 90.09, 18.212, 0.658)
pt3dadd(30.135, 90.072, 18.229, 0.666)
pt3dadd(30.018, 90.053, 18.245, 0.674)
pt3dadd(29.901, 90.032, 18.257, 0.678)
pt3dadd(29.784, 90.006, 18.265, 0.678)
pt3dadd(29.667, 89.981, 18.272, 0.678)
pt3dadd(29.55, 89.956, 18.279, 0.678)
pt3dadd(29.433, 89.93, 18.286, 0.678)
pt3dadd(29.316, 89.905, 18.293, 0.678)
pt3dadd(29.199, 89.88, 18.3, 0.678)
pt3dadd(29.082, 89.854, 18.307, 0.678)
pt3dadd(28.965, 89.829, 18.315, 0.678)
pt3dadd(28.848, 89.804, 18.322, 0.678)
pt3dadd(28.735, 89.766, 18.324, 0.678)
pt3dadd(28.625, 89.718, 18.323, 0.678)
pt3dadd(28.516, 89.669, 18.321, 0.678)
pt3dadd(28.406, 89.62, 18.32, 0.678)
pt3dadd(28.296, 89.571, 18.319, 0.678)
pt3dadd(28.187, 89.523, 18.317, 0.678)
pt3dadd(28.077, 89.474, 18.316, 0.678)
pt3dadd(27.968, 89.425, 18.314, 0.678)
pt3dadd(27.858, 89.376, 18.313, 0.678)
pt3dadd(27.748, 89.328, 18.311, 0.678)
pt3dadd(27.637, 89.284, 18.309, 0.678)
pt3dadd(27.524, 89.244, 18.306, 0.678)
pt3dadd(27.411, 89.204, 18.303, 0.678)
pt3dadd(27.297, 89.164, 18.299, 0.678)
pt3dadd(27.184, 89.124, 18.296, 0.678)
pt3dadd(27.071, 89.084, 18.293, 0.678)
pt3dadd(26.958, 89.044, 18.29, 0.678)
pt3dadd(26.845, 89.004, 18.287, 0.678)
pt3dadd(26.732, 88.965, 18.284, 0.678)
pt3dadd(26.619, 88.925, 18.281, 0.678)
pt3dadd(26.505, 88.888, 18.276, 0.686)
pt3dadd(26.39, 88.854, 18.269, 0.698)
pt3dadd(26.275, 88.821, 18.262, 0.712)
pt3dadd(26.16, 88.787, 18.255, 0.726)
pt3dadd(26.045, 88.753, 18.248, 0.74)
pt3dadd(25.93, 88.719, 18.241, 0.754)
pt3dadd(25.815, 88.686, 18.235, 0.766)
pt3dadd(25.701, 88.652, 18.228, 0.78)
pt3dadd(25.586, 88.618, 18.221, 0.794)
pt3dadd(25.471, 88.585, 18.214, 0.808)
pt3dadd(25.36, 88.541, 18.203, 0.812)
pt3dadd(25.254, 88.489, 18.19, 0.808)
pt3dadd(25.147, 88.437, 18.176, 0.804)
pt3dadd(25.04, 88.384, 18.162, 0.8)
pt3dadd(24.933, 88.332, 18.148, 0.796)
pt3dadd(24.827, 88.28, 18.135, 0.79)
pt3dadd(24.72, 88.228, 18.121, 0.786)
pt3dadd(24.613, 88.175, 18.107, 0.782)
pt3dadd(24.506, 88.123, 18.093, 0.778)
pt3dadd(24.4, 88.071, 18.079, 0.774)
pt3dadd(24.298, 88.019, 18.05, 0.748)
pt3dadd(24.2, 87.967, 18.013, 0.714)
pt3dadd(24.101, 87.915, 17.976, 0.68)
pt3dadd(24.002, 87.863, 17.939, 0.646)
pt3dadd(23.904, 87.811, 17.902, 0.612)
pt3dadd(23.805, 87.76, 17.865, 0.576)
pt3dadd(23.706, 87.708, 17.828, 0.542)
pt3dadd(23.607, 87.656, 17.791, 0.508)
pt3dadd(23.509, 87.604, 17.754, 0.474)
pt3dadd(23.41, 87.552, 17.717, 0.44)
pt3dadd(23.307, 87.517, 17.675, 0.432)
pt3dadd(23.203, 87.485, 17.633, 0.43)
pt3dadd(23.099, 87.452, 17.591, 0.428)
pt3dadd(22.995, 87.419, 17.549, 0.426)
pt3dadd(22.891, 87.387, 17.507, 0.424)
pt3dadd(22.787, 87.354, 17.465, 0.422)
pt3dadd(22.684, 87.321, 17.423, 0.418)
pt3dadd(22.58, 87.289, 17.381, 0.416)
pt3dadd(22.476, 87.256, 17.339, 0.414)
pt3dadd(22.372, 87.224, 17.297, 0.412)
pt3dadd(22.262, 87.195, 17.264, 0.436)
pt3dadd(22.152, 87.166, 17.233, 0.462)
pt3dadd(22.042, 87.138, 17.201, 0.49)
pt3dadd(21.932, 87.11, 17.169, 0.516)
pt3dadd(21.822, 87.081, 17.137, 0.542)
pt3dadd(21.711, 87.053, 17.105, 0.57)
pt3dadd(21.601, 87.024, 17.073, 0.596)
pt3dadd(21.491, 86.996, 17.042, 0.624)
pt3dadd(21.381, 86.967, 17.01, 0.65)
pt3dadd(21.271, 86.939, 16.978, 0.676)
pt3dadd(21.161, 86.905, 16.951, 0.68)
pt3dadd(21.05, 86.871, 16.924, 0.682)
pt3dadd(20.94, 86.836, 16.897, 0.684)
pt3dadd(20.83, 86.802, 16.87, 0.686)
pt3dadd(20.719, 86.767, 16.843, 0.688)
pt3dadd(20.609, 86.733, 16.816, 0.69)
pt3dadd(20.499, 86.698, 16.788, 0.692)
pt3dadd(20.389, 86.664, 16.762, 0.694)
pt3dadd(20.278, 86.629, 16.734, 0.696)
pt3dadd(20.168, 86.595, 16.707, 0.698)
pt3dadd(20.063, 86.581, 16.661, 0.718)
pt3dadd(19.957, 86.567, 16.615, 0.738)
pt3dadd(19.852, 86.554, 16.568, 0.76)
pt3dadd(19.747, 86.54, 16.521, 0.78)
pt3dadd(19.642, 86.527, 16.474, 0.8)
pt3dadd(19.536, 86.513, 16.428, 0.82)
pt3dadd(19.431, 86.5, 16.381, 0.84)
pt3dadd(19.326, 86.486, 16.334, 0.862)
pt3dadd(19.221, 86.472, 16.288, 0.882)
pt3dadd(19.115, 86.459, 16.241, 0.902)
pt3dadd(19.046, 86.541, 16.198, 0.836)
pt3dadd(18.978, 86.626, 16.156, 0.768)
pt3dadd(18.91, 86.71, 16.113, 0.7)
pt3dadd(18.842, 86.794, 16.071, 0.634)
pt3dadd(18.773, 86.879, 16.028, 0.566)
pt3dadd(18.705, 86.963, 15.986, 0.498)
pt3dadd(18.637, 87.048, 15.943, 0.43)
}
}
proc shape3d_146() {
dend_7[14] { pt3dadd(18.569, 87.132, 15.901, 0.362)
pt3dadd(18.5, 87.217, 15.858, 0.294)
pt3dadd(18.432, 87.301, 15.815, 0.226)
}
dend_0[4] {pt3dclear()
pt3dadd(138.715, 111.594, 20.876, 13.958)
pt3dadd(138.773, 111.593, 20.876, 13.874)
pt3dadd(138.893, 111.592, 20.876, 13.696)
pt3dadd(139.013, 111.591, 20.876, 13.518)
pt3dadd(139.132, 111.59, 20.875, 13.34)
pt3dadd(139.252, 111.589, 20.875, 13.162)
pt3dadd(139.372, 111.588, 20.875, 12.984)
pt3dadd(139.492, 111.587, 20.874, 12.806)
pt3dadd(139.612, 111.586, 20.874, 12.628)
pt3dadd(139.732, 111.585, 20.874, 12.45)
pt3dadd(139.852, 111.583, 20.873, 12.272)
pt3dadd(139.963, 111.553, 20.864, 12.122)
pt3dadd(140.064, 111.492, 20.846, 12)
pt3dadd(140.165, 111.431, 20.827, 11.878)
pt3dadd(140.266, 111.37, 20.809, 11.756)
pt3dadd(140.366, 111.309, 20.791, 11.636)
pt3dadd(140.467, 111.248, 20.773, 11.514)
pt3dadd(140.568, 111.187, 20.754, 11.392)
pt3dadd(140.67, 111.126, 20.736, 11.27)
pt3dadd(140.771, 111.065, 20.718, 11.148)
pt3dadd(140.872, 111.004, 20.699, 11.026)
pt3dadd(140.974, 110.947, 20.677, 10.886)
pt3dadd(141.078, 110.895, 20.651, 10.724)
pt3dadd(141.181, 110.843, 20.625, 10.564)
pt3dadd(141.284, 110.792, 20.6, 10.402)
pt3dadd(141.389, 110.74, 20.574, 10.242)
pt3dadd(141.492, 110.688, 20.548, 10.082)
pt3dadd(141.595, 110.636, 20.522, 9.92)
pt3dadd(141.7, 110.584, 20.496, 9.76)
pt3dadd(141.803, 110.532, 20.47, 9.598)
pt3dadd(141.906, 110.48, 20.444, 9.438)
pt3dadd(142.012, 110.44, 20.41, 9.238)
pt3dadd(142.117, 110.408, 20.372, 9.012)
pt3dadd(142.223, 110.376, 20.333, 8.786)
pt3dadd(142.33, 110.343, 20.295, 8.56)
pt3dadd(142.435, 110.311, 20.256, 8.334)
pt3dadd(142.541, 110.279, 20.218, 8.11)
pt3dadd(142.646, 110.246, 20.179, 7.884)
pt3dadd(142.753, 110.214, 20.14, 7.658)
pt3dadd(142.859, 110.181, 20.102, 7.432)
pt3dadd(142.964, 110.149, 20.063, 7.206)
pt3dadd(143.076, 110.124, 20.034, 7.016)
pt3dadd(143.19, 110.102, 20.01, 6.844)
pt3dadd(143.305, 110.08, 19.987, 6.674)
pt3dadd(143.419, 110.058, 19.963, 6.504)
pt3dadd(143.534, 110.037, 19.94, 6.332)
pt3dadd(143.648, 110.015, 19.916, 6.162)
pt3dadd(143.764, 109.993, 19.893, 5.992)
pt3dadd(143.878, 109.972, 19.869, 5.822)
pt3dadd(143.993, 109.95, 19.846, 5.65)
pt3dadd(144.107, 109.928, 19.822, 5.48)
}
dend_7[15] {pt3dclear()
pt3dadd(144.107, 109.928, 19.822, 5.48)
pt3dadd(144.223, 109.909, 19.804, 5.306)
pt3dadd(144.341, 109.892, 19.79, 5.132)
pt3dadd(144.458, 109.875, 19.776, 4.958)
pt3dadd(144.576, 109.857, 19.761, 4.782)
pt3dadd(144.694, 109.84, 19.747, 4.608)
pt3dadd(144.811, 109.823, 19.733, 4.434)
pt3dadd(144.929, 109.805, 19.719, 4.258)
pt3dadd(145.046, 109.788, 19.705, 4.084)
pt3dadd(145.164, 109.771, 19.69, 3.91)
pt3dadd(145.282, 109.753, 19.676, 3.734)
pt3dadd(145.398, 109.727, 19.667, 3.586)
pt3dadd(145.513, 109.697, 19.661, 3.45)
pt3dadd(145.628, 109.666, 19.655, 3.316)
pt3dadd(145.745, 109.635, 19.649, 3.182)
pt3dadd(145.86, 109.604, 19.643, 3.046)
pt3dadd(145.976, 109.574, 19.637, 2.912)
pt3dadd(146.092, 109.543, 19.631, 2.778)
pt3dadd(146.208, 109.512, 19.625, 2.642)
pt3dadd(146.323, 109.482, 19.619, 2.508)
pt3dadd(146.44, 109.451, 19.613, 2.374)
pt3dadd(146.551, 109.408, 19.611, 2.284)
pt3dadd(146.662, 109.361, 19.611, 2.212)
pt3dadd(146.772, 109.313, 19.611, 2.138)
pt3dadd(146.882, 109.266, 19.611, 2.064)
pt3dadd(146.993, 109.219, 19.611, 1.992)
pt3dadd(147.103, 109.172, 19.611, 1.918)
pt3dadd(147.214, 109.125, 19.611, 1.846)
pt3dadd(147.324, 109.077, 19.611, 1.772)
pt3dadd(147.433, 109.03, 19.611, 1.698)
pt3dadd(147.544, 108.983, 19.611, 1.626)
pt3dadd(147.658, 108.943, 19.611, 1.632)
pt3dadd(147.772, 108.905, 19.611, 1.666)
pt3dadd(147.884, 108.867, 19.611, 1.7)
pt3dadd(147.998, 108.83, 19.611, 1.734)
pt3dadd(148.112, 108.792, 19.611, 1.768)
pt3dadd(148.226, 108.754, 19.611, 1.802)
pt3dadd(148.34, 108.716, 19.611, 1.836)
pt3dadd(148.454, 108.679, 19.611, 1.87)
pt3dadd(148.568, 108.641, 19.611, 1.904)
pt3dadd(148.682, 108.603, 19.611, 1.938)
pt3dadd(148.798, 108.57, 19.611, 1.944)
pt3dadd(148.913, 108.538, 19.611, 1.94)
pt3dadd(149.029, 108.506, 19.611, 1.936)
pt3dadd(149.144, 108.474, 19.611, 1.932)
pt3dadd(149.261, 108.442, 19.611, 1.928)
pt3dadd(149.376, 108.411, 19.611, 1.924)
pt3dadd(149.491, 108.379, 19.611, 1.918)
pt3dadd(149.608, 108.347, 19.611, 1.914)
pt3dadd(149.723, 108.315, 19.611, 1.91)
pt3dadd(149.839, 108.283, 19.611, 1.906)
pt3dadd(149.953, 108.246, 19.611, 1.882)
pt3dadd(150.066, 108.206, 19.611, 1.852)
pt3dadd(150.18, 108.167, 19.611, 1.82)
pt3dadd(150.293, 108.128, 19.611, 1.79)
pt3dadd(150.407, 108.089, 19.611, 1.758)
pt3dadd(150.52, 108.049, 19.611, 1.728)
pt3dadd(150.634, 108.01, 19.611, 1.696)
pt3dadd(150.746, 107.971, 19.611, 1.664)
pt3dadd(150.86, 107.931, 19.611, 1.634)
pt3dadd(150.973, 107.892, 19.611, 1.604)
pt3dadd(151.082, 107.844, 19.611, 1.56)
pt3dadd(151.192, 107.793, 19.611, 1.514)
pt3dadd(151.301, 107.742, 19.611, 1.47)
pt3dadd(151.409, 107.691, 19.611, 1.424)
pt3dadd(151.518, 107.641, 19.611, 1.378)
pt3dadd(151.626, 107.59, 19.611, 1.334)
pt3dadd(151.735, 107.539, 19.611, 1.288)
pt3dadd(151.844, 107.488, 19.611, 1.242)
pt3dadd(151.952, 107.438, 19.611, 1.196)
pt3dadd(152.062, 107.387, 19.611, 1.152)
pt3dadd(152.173, 107.344, 19.611, 1.17)
pt3dadd(152.286, 107.303, 19.611, 1.202)
pt3dadd(152.399, 107.262, 19.611, 1.236)
pt3dadd(152.512, 107.221, 19.611, 1.27)
pt3dadd(152.624, 107.18, 19.611, 1.304)
pt3dadd(152.737, 107.139, 19.611, 1.338)
pt3dadd(152.85, 107.098, 19.611, 1.37)
pt3dadd(152.963, 107.056, 19.611, 1.404)
pt3dadd(153.076, 107.015, 19.611, 1.438)
pt3dadd(153.188, 106.974, 19.611, 1.472)
pt3dadd(153.298, 106.926, 19.611, 1.478)
pt3dadd(153.407, 106.875, 19.611, 1.476)
pt3dadd(153.516, 106.824, 19.611, 1.476)
pt3dadd(153.624, 106.774, 19.611, 1.476)
pt3dadd(153.733, 106.723, 19.611, 1.476)
pt3dadd(153.842, 106.673, 19.611, 1.474)
pt3dadd(153.95, 106.622, 19.611, 1.474)
pt3dadd(154.06, 106.571, 19.611, 1.474)
pt3dadd(154.169, 106.521, 19.611, 1.472)
pt3dadd(154.277, 106.47, 19.611, 1.472)
pt3dadd(154.387, 106.422, 19.611, 1.458)
pt3dadd(154.496, 106.373, 19.611, 1.442)
pt3dadd(154.607, 106.325, 19.611, 1.426)
pt3dadd(154.717, 106.277, 19.611, 1.41)
pt3dadd(154.826, 106.229, 19.611, 1.394)
pt3dadd(154.937, 106.181, 19.611, 1.378)
pt3dadd(155.046, 106.133, 19.611, 1.36)
pt3dadd(155.156, 106.085, 19.611, 1.344)
pt3dadd(155.267, 106.037, 19.611, 1.328)
pt3dadd(155.376, 105.989, 19.611, 1.312)
pt3dadd(155.492, 105.957, 19.611, 1.294)
pt3dadd(155.609, 105.928, 19.611, 1.276)
pt3dadd(155.725, 105.899, 19.611, 1.26)
pt3dadd(155.842, 105.87, 19.611, 1.242)
pt3dadd(155.958, 105.841, 19.611, 1.224)
pt3dadd(156.074, 105.812, 19.611, 1.208)
pt3dadd(156.191, 105.783, 19.611, 1.19)
pt3dadd(156.307, 105.754, 19.611, 1.172)
pt3dadd(156.424, 105.725, 19.611, 1.156)
pt3dadd(156.54, 105.696, 19.611, 1.138)
pt3dadd(156.659, 105.68, 19.611, 1.166)
pt3dadd(156.778, 105.665, 19.611, 1.2)
pt3dadd(156.896, 105.651, 19.611, 1.232)
pt3dadd(157.016, 105.636, 19.611, 1.266)
pt3dadd(157.135, 105.622, 19.611, 1.3)
pt3dadd(157.254, 105.608, 19.611, 1.334)
pt3dadd(157.374, 105.593, 19.611, 1.368)
pt3dadd(157.493, 105.579, 19.611, 1.4)
pt3dadd(157.612, 105.564, 19.611, 1.434)
pt3dadd(157.73, 105.55, 19.611, 1.468)
pt3dadd(157.85, 105.544, 19.611, 1.45)
pt3dadd(157.97, 105.538, 19.611, 1.424)
pt3dadd(158.09, 105.533, 19.611, 1.398)
pt3dadd(158.21, 105.528, 19.611, 1.372)
pt3dadd(158.33, 105.522, 19.611, 1.346)
pt3dadd(158.45, 105.517, 19.611, 1.32)
pt3dadd(158.57, 105.512, 19.611, 1.292)
pt3dadd(158.689, 105.507, 19.611, 1.266)
pt3dadd(158.809, 105.501, 19.611, 1.24)
pt3dadd(158.929, 105.496, 19.611, 1.214)
pt3dadd(159.049, 105.493, 19.611, 1.204)
pt3dadd(159.169, 105.491, 19.611, 1.196)
pt3dadd(159.289, 105.489, 19.611, 1.188)
pt3dadd(159.409, 105.487, 19.611, 1.18)
pt3dadd(159.529, 105.485, 19.611, 1.172)
pt3dadd(159.649, 105.483, 19.611, 1.164)
pt3dadd(159.769, 105.481, 19.611, 1.156)
pt3dadd(159.889, 105.479, 19.611, 1.148)
pt3dadd(160.009, 105.477, 19.611, 1.14)
pt3dadd(160.129, 105.475, 19.611, 1.132)
pt3dadd(160.249, 105.471, 19.611, 1.172)
pt3dadd(160.369, 105.468, 19.611, 1.218)
pt3dadd(160.489, 105.464, 19.611, 1.262)
pt3dadd(160.609, 105.461, 19.611, 1.306)
pt3dadd(160.729, 105.457, 19.611, 1.352)
}
}
proc shape3d_147() {
dend_7[15] { pt3dadd(160.849, 105.453, 19.611, 1.396)
pt3dadd(160.969, 105.45, 19.611, 1.442)
pt3dadd(161.089, 105.446, 19.611, 1.486)
pt3dadd(161.209, 105.443, 19.611, 1.532)
pt3dadd(161.329, 105.439, 19.611, 1.576)
pt3dadd(161.449, 105.432, 19.611, 1.582)
pt3dadd(161.568, 105.425, 19.611, 1.582)
pt3dadd(161.688, 105.418, 19.611, 1.582)
pt3dadd(161.808, 105.41, 19.611, 1.582)
pt3dadd(161.928, 105.403, 19.611, 1.582)
pt3dadd(162.048, 105.396, 19.611, 1.582)
pt3dadd(162.167, 105.389, 19.611, 1.582)
pt3dadd(162.287, 105.381, 19.611, 1.582)
pt3dadd(162.407, 105.374, 19.611, 1.582)
pt3dadd(162.527, 105.367, 19.611, 1.582)
pt3dadd(162.646, 105.356, 19.611, 1.554)
pt3dadd(162.766, 105.345, 19.611, 1.522)
pt3dadd(162.886, 105.334, 19.611, 1.49)
pt3dadd(163.004, 105.323, 19.611, 1.458)
pt3dadd(163.124, 105.312, 19.611, 1.426)
pt3dadd(163.243, 105.301, 19.611, 1.396)
pt3dadd(163.363, 105.291, 19.611, 1.364)
pt3dadd(163.483, 105.28, 19.611, 1.332)
pt3dadd(163.602, 105.269, 19.611, 1.3)
pt3dadd(163.722, 105.258, 19.611, 1.268)
pt3dadd(163.838, 105.23, 19.611, 1.272)
pt3dadd(163.955, 105.201, 19.61, 1.278)
pt3dadd(164.071, 105.171, 19.61, 1.286)
pt3dadd(164.188, 105.141, 19.61, 1.294)
pt3dadd(164.304, 105.112, 19.61, 1.302)
pt3dadd(164.42, 105.082, 19.61, 1.308)
pt3dadd(164.536, 105.053, 19.61, 1.316)
pt3dadd(164.652, 105.023, 19.61, 1.324)
pt3dadd(164.768, 104.994, 19.61, 1.332)
pt3dadd(164.885, 104.964, 19.61, 1.34)
pt3dadd(165, 104.93, 19.61, 1.368)
pt3dadd(165.115, 104.896, 19.61, 1.396)
pt3dadd(165.23, 104.862, 19.61, 1.426)
pt3dadd(165.346, 104.828, 19.61, 1.456)
pt3dadd(165.461, 104.794, 19.61, 1.484)
pt3dadd(165.576, 104.76, 19.61, 1.514)
pt3dadd(165.691, 104.726, 19.609, 1.544)
pt3dadd(165.805, 104.692, 19.609, 1.572)
pt3dadd(165.92, 104.658, 19.609, 1.602)
pt3dadd(166.036, 104.625, 19.609, 1.632)
pt3dadd(166.154, 104.607, 19.609, 1.648)
pt3dadd(166.273, 104.59, 19.609, 1.666)
pt3dadd(166.392, 104.573, 19.609, 1.684)
pt3dadd(166.511, 104.556, 19.609, 1.702)
pt3dadd(166.63, 104.539, 19.609, 1.72)
pt3dadd(166.748, 104.521, 19.608, 1.738)
pt3dadd(166.867, 104.504, 19.608, 1.754)
pt3dadd(166.986, 104.487, 19.608, 1.772)
pt3dadd(167.105, 104.47, 19.608, 1.79)
pt3dadd(167.224, 104.453, 19.608, 1.808)
}
dend_7[16] {pt3dclear()
pt3dadd(167.224, 104.453, 19.608, 1.808)
pt3dadd(167.311, 104.46, 19.608, 1.782)
pt3dadd(167.43, 104.47, 19.607, 1.746)
pt3dadd(167.55, 104.48, 19.607, 1.71)
pt3dadd(167.67, 104.49, 19.607, 1.676)
pt3dadd(167.789, 104.501, 19.606, 1.64)
pt3dadd(167.909, 104.512, 19.606, 1.604)
pt3dadd(168.029, 104.522, 19.606, 1.57)
pt3dadd(168.148, 104.533, 19.605, 1.534)
pt3dadd(168.268, 104.544, 19.605, 1.498)
pt3dadd(168.386, 104.554, 19.605, 1.464)
pt3dadd(168.506, 104.565, 19.604, 1.428)
pt3dadd(168.626, 104.576, 19.604, 1.394)
pt3dadd(168.745, 104.587, 19.604, 1.358)
pt3dadd(168.853, 104.637, 19.603, 1.34)
pt3dadd(168.959, 104.694, 19.603, 1.324)
pt3dadd(169.064, 104.75, 19.602, 1.308)
pt3dadd(169.171, 104.806, 19.602, 1.292)
pt3dadd(169.277, 104.863, 19.601, 1.276)
pt3dadd(169.382, 104.919, 19.601, 1.26)
pt3dadd(169.489, 104.975, 19.6, 1.244)
pt3dadd(169.595, 105.032, 19.599, 1.23)
pt3dadd(169.7, 105.088, 19.599, 1.214)
pt3dadd(169.806, 105.144, 19.598, 1.198)
pt3dadd(169.909, 105.207, 19.597, 1.204)
pt3dadd(170.011, 105.269, 19.596, 1.216)
pt3dadd(170.113, 105.332, 19.596, 1.226)
pt3dadd(170.215, 105.395, 19.595, 1.238)
pt3dadd(170.318, 105.458, 19.594, 1.248)
pt3dadd(170.42, 105.521, 19.593, 1.258)
pt3dadd(170.522, 105.584, 19.592, 1.27)
pt3dadd(170.624, 105.647, 19.591, 1.28)
pt3dadd(170.726, 105.71, 19.59, 1.29)
pt3dadd(170.828, 105.773, 19.589, 1.302)
pt3dadd(170.929, 105.839, 19.588, 1.326)
pt3dadd(171.029, 105.905, 19.586, 1.354)
pt3dadd(171.128, 105.971, 19.585, 1.38)
pt3dadd(171.229, 106.038, 19.584, 1.408)
pt3dadd(171.329, 106.104, 19.583, 1.434)
pt3dadd(171.43, 106.17, 19.581, 1.462)
pt3dadd(171.529, 106.236, 19.58, 1.488)
pt3dadd(171.629, 106.303, 19.579, 1.516)
pt3dadd(171.73, 106.369, 19.577, 1.542)
pt3dadd(171.829, 106.435, 19.576, 1.57)
pt3dadd(171.938, 106.485, 19.574, 1.558)
pt3dadd(172.048, 106.533, 19.571, 1.542)
pt3dadd(172.158, 106.581, 19.568, 1.526)
pt3dadd(172.268, 106.628, 19.566, 1.51)
pt3dadd(172.379, 106.676, 19.563, 1.492)
pt3dadd(172.488, 106.724, 19.56, 1.476)
pt3dadd(172.598, 106.771, 19.557, 1.46)
pt3dadd(172.709, 106.819, 19.555, 1.444)
pt3dadd(172.818, 106.867, 19.552, 1.426)
pt3dadd(172.928, 106.915, 19.549, 1.41)
pt3dadd(173.042, 106.95, 19.544, 1.394)
pt3dadd(173.158, 106.985, 19.538, 1.376)
pt3dadd(173.273, 107.019, 19.533, 1.36)
pt3dadd(173.387, 107.053, 19.527, 1.342)
pt3dadd(173.502, 107.088, 19.522, 1.326)
pt3dadd(173.617, 107.122, 19.516, 1.308)
pt3dadd(173.731, 107.156, 19.51, 1.29)
pt3dadd(173.846, 107.19, 19.505, 1.274)
pt3dadd(173.962, 107.225, 19.499, 1.256)
pt3dadd(174.076, 107.259, 19.494, 1.24)
pt3dadd(174.191, 107.294, 19.485, 1.24)
pt3dadd(174.305, 107.329, 19.477, 1.242)
pt3dadd(174.419, 107.364, 19.468, 1.242)
pt3dadd(174.534, 107.399, 19.46, 1.244)
pt3dadd(174.648, 107.434, 19.451, 1.246)
pt3dadd(174.762, 107.469, 19.443, 1.248)
pt3dadd(174.876, 107.503, 19.434, 1.248)
pt3dadd(174.991, 107.538, 19.426, 1.25)
pt3dadd(175.105, 107.573, 19.417, 1.252)
pt3dadd(175.219, 107.608, 19.409, 1.254)
pt3dadd(175.33, 107.654, 19.398, 1.284)
pt3dadd(175.439, 107.701, 19.387, 1.318)
pt3dadd(175.549, 107.748, 19.376, 1.35)
pt3dadd(175.658, 107.794, 19.365, 1.384)
pt3dadd(175.769, 107.841, 19.354, 1.416)
pt3dadd(175.878, 107.887, 19.343, 1.448)
pt3dadd(175.988, 107.934, 19.332, 1.482)
pt3dadd(176.098, 107.981, 19.321, 1.514)
pt3dadd(176.208, 108.027, 19.31, 1.546)
pt3dadd(176.317, 108.074, 19.299, 1.58)
pt3dadd(176.425, 108.106, 19.264, 1.596)
pt3dadd(176.532, 108.138, 19.227, 1.612)
pt3dadd(176.639, 108.17, 19.191, 1.628)
pt3dadd(176.746, 108.202, 19.154, 1.644)
pt3dadd(176.854, 108.233, 19.118, 1.66)
pt3dadd(176.96, 108.265, 19.081, 1.678)
pt3dadd(177.067, 108.297, 19.045, 1.694)
pt3dadd(177.174, 108.329, 19.008, 1.71)
pt3dadd(177.282, 108.36, 18.972, 1.726)
pt3dadd(177.389, 108.392, 18.935, 1.742)
pt3dadd(177.499, 108.42, 18.905, 1.748)
pt3dadd(177.611, 108.448, 18.875, 1.756)
pt3dadd(177.722, 108.476, 18.846, 1.762)
pt3dadd(177.833, 108.504, 18.816, 1.768)
pt3dadd(177.944, 108.532, 18.786, 1.774)
pt3dadd(178.055, 108.56, 18.756, 1.782)
pt3dadd(178.166, 108.588, 18.726, 1.788)
pt3dadd(178.277, 108.616, 18.696, 1.794)
pt3dadd(178.388, 108.644, 18.667, 1.802)
pt3dadd(178.499, 108.672, 18.637, 1.808)
pt3dadd(178.614, 108.697, 18.615, 1.808)
pt3dadd(178.728, 108.722, 18.593, 1.808)
pt3dadd(178.842, 108.748, 18.57, 1.808)
pt3dadd(178.956, 108.773, 18.548, 1.808)
pt3dadd(179.071, 108.798, 18.526, 1.808)
pt3dadd(179.185, 108.823, 18.504, 1.808)
pt3dadd(179.299, 108.848, 18.482, 1.808)
pt3dadd(179.413, 108.874, 18.46, 1.808)
pt3dadd(179.528, 108.899, 18.438, 1.808)
pt3dadd(179.642, 108.924, 18.416, 1.808)
pt3dadd(179.759, 108.949, 18.402, 1.808)
pt3dadd(179.874, 108.974, 18.388, 1.808)
pt3dadd(179.99, 108.999, 18.374, 1.808)
pt3dadd(180.107, 109.024, 18.36, 1.808)
pt3dadd(180.223, 109.049, 18.346, 1.808)
pt3dadd(180.34, 109.074, 18.332, 1.808)
pt3dadd(180.456, 109.099, 18.318, 1.808)
pt3dadd(180.571, 109.124, 18.304, 1.808)
pt3dadd(180.688, 109.148, 18.29, 1.808)
pt3dadd(180.804, 109.173, 18.276, 1.808)
}
dend_7[17] {pt3dclear()
pt3dadd(180.804, 109.173, 18.276, 1.808)
pt3dadd(180.869, 109.212, 18.272, 1.788)
pt3dadd(180.971, 109.274, 18.265, 1.754)
pt3dadd(181.073, 109.336, 18.259, 1.722)
pt3dadd(181.176, 109.398, 18.252, 1.688)
pt3dadd(181.278, 109.46, 18.246, 1.656)
pt3dadd(181.38, 109.523, 18.239, 1.622)
pt3dadd(181.481, 109.587, 18.232, 1.584)
pt3dadd(181.582, 109.651, 18.225, 1.548)
pt3dadd(181.684, 109.716, 18.218, 1.51)
pt3dadd(181.784, 109.78, 18.211, 1.474)
pt3dadd(181.885, 109.844, 18.204, 1.436)
pt3dadd(181.986, 109.908, 18.197, 1.4)
pt3dadd(182.087, 109.973, 18.19, 1.364)
pt3dadd(182.188, 110.037, 18.183, 1.326)
pt3dadd(182.29, 110.101, 18.176, 1.29)
pt3dadd(182.386, 110.172, 18.167, 1.24)
pt3dadd(182.476, 110.249, 18.157, 1.18)
pt3dadd(182.567, 110.327, 18.147, 1.118)
pt3dadd(182.658, 110.404, 18.137, 1.056)
pt3dadd(182.749, 110.481, 18.127, 0.994)
}
}
proc shape3d_148() {
dend_7[17] { pt3dadd(182.839, 110.559, 18.117, 0.934)
pt3dadd(182.93, 110.636, 18.107, 0.872)
pt3dadd(183.022, 110.713, 18.096, 0.81)
pt3dadd(183.113, 110.791, 18.086, 0.75)
pt3dadd(183.203, 110.868, 18.076, 0.688)
pt3dadd(183.29, 110.945, 18.054, 0.668)
pt3dadd(183.374, 111.02, 18.021, 0.686)
pt3dadd(183.46, 111.096, 17.987, 0.706)
pt3dadd(183.544, 111.171, 17.954, 0.724)
pt3dadd(183.628, 111.247, 17.921, 0.742)
pt3dadd(183.712, 111.323, 17.887, 0.762)
pt3dadd(183.796, 111.398, 17.854, 0.78)
pt3dadd(183.88, 111.474, 17.82, 0.8)
pt3dadd(183.964, 111.55, 17.787, 0.818)
pt3dadd(184.048, 111.625, 17.754, 0.838)
pt3dadd(184.132, 111.701, 17.72, 0.85)
pt3dadd(184.216, 111.776, 17.685, 0.862)
pt3dadd(184.3, 111.851, 17.651, 0.872)
pt3dadd(184.384, 111.926, 17.616, 0.882)
pt3dadd(184.468, 112.001, 17.582, 0.894)
pt3dadd(184.552, 112.076, 17.547, 0.904)
pt3dadd(184.636, 112.151, 17.513, 0.914)
pt3dadd(184.72, 112.227, 17.478, 0.926)
pt3dadd(184.802, 112.302, 17.443, 0.936)
pt3dadd(184.886, 112.377, 17.409, 0.946)
pt3dadd(184.974, 112.452, 17.383, 0.928)
pt3dadd(185.064, 112.528, 17.361, 0.896)
pt3dadd(185.153, 112.604, 17.34, 0.866)
pt3dadd(185.243, 112.68, 17.318, 0.836)
pt3dadd(185.332, 112.756, 17.296, 0.804)
pt3dadd(185.42, 112.832, 17.274, 0.774)
pt3dadd(185.51, 112.908, 17.252, 0.742)
pt3dadd(185.599, 112.983, 17.231, 0.712)
pt3dadd(185.688, 113.059, 17.209, 0.682)
pt3dadd(185.778, 113.135, 17.187, 0.65)
pt3dadd(185.87, 113.209, 17.173, 0.63)
pt3dadd(185.964, 113.283, 17.162, 0.614)
pt3dadd(186.058, 113.357, 17.151, 0.598)
pt3dadd(186.151, 113.431, 17.139, 0.582)
pt3dadd(186.245, 113.504, 17.128, 0.566)
pt3dadd(186.338, 113.578, 17.117, 0.55)
pt3dadd(186.432, 113.652, 17.106, 0.534)
pt3dadd(186.526, 113.726, 17.095, 0.518)
pt3dadd(186.619, 113.799, 17.083, 0.502)
pt3dadd(186.714, 113.873, 17.072, 0.486)
pt3dadd(186.816, 113.934, 17.066, 0.51)
pt3dadd(186.923, 113.989, 17.062, 0.548)
pt3dadd(187.028, 114.045, 17.057, 0.586)
pt3dadd(187.135, 114.1, 17.053, 0.622)
pt3dadd(187.241, 114.156, 17.049, 0.66)
pt3dadd(187.348, 114.212, 17.044, 0.698)
pt3dadd(187.453, 114.267, 17.04, 0.736)
pt3dadd(187.56, 114.323, 17.035, 0.774)
pt3dadd(187.666, 114.378, 17.031, 0.812)
pt3dadd(187.772, 114.434, 17.027, 0.848)
pt3dadd(187.883, 114.48, 17.022, 0.884)
pt3dadd(187.994, 114.524, 17.017, 0.92)
pt3dadd(188.106, 114.568, 17.013, 0.956)
pt3dadd(188.218, 114.612, 17.008, 0.992)
pt3dadd(188.329, 114.655, 17.003, 1.028)
pt3dadd(188.441, 114.699, 16.998, 1.064)
pt3dadd(188.552, 114.743, 16.993, 1.1)
pt3dadd(188.664, 114.787, 16.989, 1.136)
pt3dadd(188.776, 114.83, 16.984, 1.17)
pt3dadd(188.887, 114.874, 16.979, 1.206)
pt3dadd(188.999, 114.916, 16.971, 1.22)
pt3dadd(189.112, 114.957, 16.963, 1.226)
pt3dadd(189.223, 114.999, 16.955, 1.232)
pt3dadd(189.336, 115.04, 16.946, 1.238)
pt3dadd(189.448, 115.081, 16.938, 1.244)
pt3dadd(189.56, 115.123, 16.93, 1.25)
pt3dadd(189.672, 115.164, 16.921, 1.256)
pt3dadd(189.785, 115.206, 16.913, 1.262)
pt3dadd(189.896, 115.247, 16.905, 1.268)
pt3dadd(190.009, 115.288, 16.896, 1.274)
pt3dadd(190.112, 115.347, 16.885, 1.246)
pt3dadd(190.214, 115.409, 16.874, 1.21)
pt3dadd(190.316, 115.47, 16.863, 1.176)
pt3dadd(190.418, 115.532, 16.851, 1.14)
pt3dadd(190.52, 115.593, 16.84, 1.106)
pt3dadd(190.622, 115.655, 16.828, 1.07)
pt3dadd(190.724, 115.717, 16.817, 1.036)
pt3dadd(190.826, 115.778, 16.805, 1)
pt3dadd(190.928, 115.84, 16.794, 0.966)
pt3dadd(191.03, 115.901, 16.782, 0.93)
pt3dadd(191.116, 115.969, 16.742, 0.924)
pt3dadd(191.198, 116.038, 16.697, 0.922)
pt3dadd(191.28, 116.106, 16.651, 0.92)
pt3dadd(191.362, 116.175, 16.606, 0.918)
pt3dadd(191.444, 116.244, 16.561, 0.916)
pt3dadd(191.526, 116.312, 16.515, 0.912)
pt3dadd(191.608, 116.381, 16.47, 0.91)
pt3dadd(191.69, 116.45, 16.425, 0.908)
pt3dadd(191.772, 116.518, 16.379, 0.906)
pt3dadd(191.854, 116.587, 16.334, 0.904)
pt3dadd(191.933, 116.67, 16.305, 0.918)
pt3dadd(192.012, 116.754, 16.278, 0.932)
pt3dadd(192.091, 116.838, 16.251, 0.948)
pt3dadd(192.17, 116.922, 16.223, 0.962)
pt3dadd(192.25, 117.007, 16.196, 0.976)
pt3dadd(192.328, 117.091, 16.169, 0.992)
pt3dadd(192.407, 117.175, 16.141, 1.006)
pt3dadd(192.486, 117.259, 16.114, 1.022)
pt3dadd(192.565, 117.344, 16.087, 1.036)
pt3dadd(192.643, 117.428, 16.06, 1.052)
pt3dadd(192.722, 117.516, 16.043, 1.036)
pt3dadd(192.8, 117.605, 16.026, 1.018)
pt3dadd(192.88, 117.693, 16.01, 1.002)
pt3dadd(192.958, 117.782, 15.993, 0.984)
pt3dadd(193.037, 117.87, 15.977, 0.968)
pt3dadd(193.115, 117.959, 15.961, 0.95)
pt3dadd(193.194, 118.048, 15.944, 0.934)
pt3dadd(193.272, 118.136, 15.928, 0.916)
pt3dadd(193.35, 118.225, 15.911, 0.898)
pt3dadd(193.429, 118.313, 15.895, 0.882)
pt3dadd(193.506, 118.404, 15.885, 0.842)
pt3dadd(193.584, 118.495, 15.876, 0.802)
pt3dadd(193.661, 118.586, 15.866, 0.762)
pt3dadd(193.739, 118.677, 15.857, 0.722)
pt3dadd(193.816, 118.768, 15.847, 0.682)
pt3dadd(193.894, 118.859, 15.838, 0.642)
pt3dadd(193.97, 118.95, 15.828, 0.602)
pt3dadd(194.048, 119.041, 15.819, 0.562)
pt3dadd(194.125, 119.132, 15.809, 0.522)
pt3dadd(194.203, 119.223, 15.8, 0.48)
pt3dadd(194.264, 119.326, 15.799, 0.526)
pt3dadd(194.326, 119.43, 15.797, 0.574)
pt3dadd(194.387, 119.533, 15.796, 0.62)
pt3dadd(194.448, 119.636, 15.795, 0.666)
pt3dadd(194.509, 119.739, 15.793, 0.714)
pt3dadd(194.572, 119.842, 15.792, 0.76)
pt3dadd(194.633, 119.945, 15.791, 0.808)
pt3dadd(194.694, 120.048, 15.79, 0.854)
pt3dadd(194.755, 120.151, 15.788, 0.9)
pt3dadd(194.816, 120.254, 15.787, 0.948)
pt3dadd(194.884, 120.354, 15.785, 0.984)
pt3dadd(194.952, 120.452, 15.783, 1.02)
pt3dadd(195.02, 120.552, 15.781, 1.058)
pt3dadd(195.088, 120.65, 15.78, 1.094)
pt3dadd(195.156, 120.749, 15.777, 1.13)
pt3dadd(195.223, 120.848, 15.776, 1.166)
pt3dadd(195.292, 120.947, 15.774, 1.202)
pt3dadd(195.36, 121.046, 15.772, 1.238)
pt3dadd(195.427, 121.145, 15.77, 1.276)
pt3dadd(195.496, 121.244, 15.768, 1.312)
pt3dadd(195.568, 121.339, 15.765, 1.334)
pt3dadd(195.641, 121.435, 15.762, 1.356)
pt3dadd(195.713, 121.53, 15.76, 1.378)
pt3dadd(195.786, 121.626, 15.757, 1.4)
pt3dadd(195.858, 121.721, 15.754, 1.422)
pt3dadd(195.931, 121.817, 15.752, 1.444)
pt3dadd(196.003, 121.912, 15.749, 1.466)
pt3dadd(196.076, 122.008, 15.746, 1.488)
pt3dadd(196.148, 122.102, 15.744, 1.51)
pt3dadd(196.222, 122.198, 15.741, 1.532)
pt3dadd(196.301, 122.288, 15.735, 1.474)
pt3dadd(196.381, 122.377, 15.729, 1.414)
pt3dadd(196.46, 122.467, 15.724, 1.356)
pt3dadd(196.541, 122.556, 15.718, 1.298)
pt3dadd(196.62, 122.646, 15.712, 1.24)
pt3dadd(196.699, 122.735, 15.707, 1.182)
pt3dadd(196.78, 122.825, 15.701, 1.124)
pt3dadd(196.859, 122.915, 15.695, 1.066)
pt3dadd(196.938, 123.004, 15.689, 1.008)
pt3dadd(197.018, 123.094, 15.684, 0.95)
pt3dadd(197.101, 123.18, 15.676, 0.93)
pt3dadd(197.184, 123.266, 15.668, 0.91)
pt3dadd(197.267, 123.352, 15.66, 0.892)
pt3dadd(197.35, 123.438, 15.652, 0.872)
pt3dadd(197.432, 123.524, 15.645, 0.852)
pt3dadd(197.515, 123.611, 15.637, 0.834)
pt3dadd(197.598, 123.697, 15.629, 0.814)
pt3dadd(197.681, 123.784, 15.621, 0.794)
pt3dadd(197.765, 123.87, 15.614, 0.774)
pt3dadd(197.848, 123.956, 15.606, 0.756)
pt3dadd(197.933, 124.039, 15.596, 0.77)
pt3dadd(198.018, 124.123, 15.587, 0.784)
pt3dadd(198.103, 124.206, 15.577, 0.8)
pt3dadd(198.19, 124.29, 15.568, 0.814)
pt3dadd(198.275, 124.373, 15.558, 0.828)
pt3dadd(198.36, 124.457, 15.549, 0.842)
pt3dadd(198.446, 124.54, 15.539, 0.858)
pt3dadd(198.532, 124.622, 15.53, 0.872)
pt3dadd(198.617, 124.706, 15.52, 0.886)
pt3dadd(198.702, 124.789, 15.51, 0.9)
pt3dadd(198.782, 124.862, 15.466, 0.902)
pt3dadd(198.862, 124.934, 15.421, 0.902)
pt3dadd(198.941, 125.006, 15.376, 0.902)
pt3dadd(199.02, 125.078, 15.332, 0.902)
pt3dadd(199.099, 125.15, 15.287, 0.902)
pt3dadd(199.178, 125.224, 15.242, 0.902)
pt3dadd(199.258, 125.296, 15.197, 0.904)
pt3dadd(199.337, 125.368, 15.153, 0.904)
pt3dadd(199.417, 125.44, 15.108, 0.904)
pt3dadd(199.496, 125.513, 15.064, 0.904)
pt3dadd(199.583, 125.588, 15.035, 0.872)
pt3dadd(199.669, 125.665, 15.007, 0.842)
pt3dadd(199.754, 125.742, 14.979, 0.81)
pt3dadd(199.841, 125.818, 14.951, 0.78)
pt3dadd(199.927, 125.894, 14.923, 0.748)
}
}
proc shape3d_149() {
dend_7[17] { pt3dadd(200.014, 125.97, 14.895, 0.718)
pt3dadd(200.1, 126.047, 14.867, 0.686)
pt3dadd(200.186, 126.124, 14.839, 0.656)
pt3dadd(200.273, 126.199, 14.811, 0.624)
pt3dadd(200.359, 126.276, 14.783, 0.596)
pt3dadd(200.455, 126.343, 14.766, 0.616)
pt3dadd(200.552, 126.412, 14.748, 0.636)
pt3dadd(200.648, 126.48, 14.731, 0.654)
pt3dadd(200.746, 126.547, 14.713, 0.674)
pt3dadd(200.842, 126.616, 14.696, 0.694)
pt3dadd(200.939, 126.684, 14.678, 0.714)
pt3dadd(201.035, 126.751, 14.66, 0.734)
pt3dadd(201.132, 126.82, 14.643, 0.752)
pt3dadd(201.228, 126.888, 14.625, 0.772)
pt3dadd(201.325, 126.955, 14.609, 0.794)
pt3dadd(201.424, 127.024, 14.601, 0.834)
pt3dadd(201.521, 127.093, 14.593, 0.876)
pt3dadd(201.619, 127.162, 14.585, 0.916)
pt3dadd(201.718, 127.23, 14.577, 0.956)
pt3dadd(201.815, 127.298, 14.569, 0.996)
pt3dadd(201.913, 127.367, 14.561, 1.036)
pt3dadd(202.012, 127.435, 14.553, 1.076)
pt3dadd(202.109, 127.505, 14.545, 1.118)
pt3dadd(202.207, 127.573, 14.537, 1.158)
pt3dadd(202.304, 127.643, 14.53, 1.194)
pt3dadd(202.394, 127.722, 14.529, 1.21)
pt3dadd(202.486, 127.8, 14.527, 1.224)
pt3dadd(202.576, 127.879, 14.526, 1.24)
pt3dadd(202.667, 127.957, 14.525, 1.256)
pt3dadd(202.757, 128.036, 14.524, 1.272)
pt3dadd(202.848, 128.114, 14.522, 1.288)
pt3dadd(202.938, 128.194, 14.521, 1.302)
pt3dadd(203.029, 128.272, 14.52, 1.318)
pt3dadd(203.119, 128.351, 14.519, 1.334)
pt3dadd(203.207, 128.432, 14.517, 1.342)
pt3dadd(203.273, 128.533, 14.515, 1.31)
pt3dadd(203.339, 128.633, 14.512, 1.28)
pt3dadd(203.405, 128.734, 14.509, 1.248)
pt3dadd(203.47, 128.833, 14.507, 1.218)
pt3dadd(203.536, 128.934, 14.504, 1.186)
pt3dadd(203.602, 129.034, 14.501, 1.156)
pt3dadd(203.668, 129.134, 14.499, 1.124)
pt3dadd(203.734, 129.234, 14.496, 1.092)
pt3dadd(203.8, 129.335, 14.493, 1.062)
pt3dadd(203.866, 129.434, 14.49, 1.028)
pt3dadd(203.932, 129.535, 14.486, 0.988)
pt3dadd(203.998, 129.635, 14.481, 0.948)
pt3dadd(204.064, 129.736, 14.476, 0.908)
pt3dadd(204.128, 129.835, 14.471, 0.868)
pt3dadd(204.194, 129.936, 14.467, 0.826)
pt3dadd(204.26, 130.036, 14.462, 0.786)
pt3dadd(204.326, 130.136, 14.457, 0.746)
pt3dadd(204.392, 130.236, 14.453, 0.706)
pt3dadd(204.457, 130.337, 14.448, 0.666)
pt3dadd(204.523, 130.436, 14.443, 0.626)
pt3dadd(204.59, 130.536, 14.437, 0.586)
pt3dadd(204.658, 130.636, 14.431, 0.548)
pt3dadd(204.725, 130.735, 14.424, 0.51)
pt3dadd(204.792, 130.834, 14.418, 0.472)
pt3dadd(204.858, 130.933, 14.412, 0.434)
pt3dadd(204.925, 131.033, 14.406, 0.396)
pt3dadd(204.992, 131.132, 14.4, 0.358)
pt3dadd(205.06, 131.231, 14.393, 0.32)
pt3dadd(205.127, 131.33, 14.387, 0.282)
pt3dadd(205.194, 131.429, 14.38, 0.256)
pt3dadd(205.266, 131.525, 14.371, 0.286)
pt3dadd(205.337, 131.621, 14.362, 0.314)
pt3dadd(205.409, 131.717, 14.352, 0.342)
pt3dadd(205.48, 131.813, 14.343, 0.372)
pt3dadd(205.552, 131.908, 14.333, 0.4)
pt3dadd(205.622, 132.004, 14.324, 0.428)
pt3dadd(205.694, 132.1, 14.314, 0.456)
pt3dadd(205.765, 132.196, 14.305, 0.486)
pt3dadd(205.836, 132.292, 14.295, 0.514)
pt3dadd(205.907, 132.388, 14.284, 0.542)
pt3dadd(205.969, 132.486, 14.262, 0.564)
pt3dadd(206.032, 132.586, 14.239, 0.586)
pt3dadd(206.094, 132.684, 14.217, 0.608)
pt3dadd(206.158, 132.784, 14.195, 0.63)
pt3dadd(206.22, 132.882, 14.173, 0.652)
pt3dadd(206.282, 132.98, 14.151, 0.674)
pt3dadd(206.345, 133.08, 14.129, 0.694)
pt3dadd(206.408, 133.178, 14.107, 0.716)
pt3dadd(206.471, 133.277, 14.085, 0.738)
pt3dadd(206.531, 133.376, 14.059, 0.758)
pt3dadd(206.584, 133.476, 14.026, 0.774)
pt3dadd(206.636, 133.576, 13.992, 0.788)
pt3dadd(206.689, 133.675, 13.958, 0.804)
pt3dadd(206.742, 133.775, 13.924, 0.818)
pt3dadd(206.795, 133.874, 13.89, 0.834)
pt3dadd(206.848, 133.975, 13.856, 0.848)
pt3dadd(206.9, 134.075, 13.823, 0.864)
pt3dadd(206.954, 134.174, 13.789, 0.878)
pt3dadd(207.007, 134.274, 13.755, 0.894)
pt3dadd(207.062, 134.37, 13.717, 0.918)
pt3dadd(207.124, 134.455, 13.669, 0.968)
pt3dadd(207.185, 134.542, 13.622, 1.018)
pt3dadd(207.246, 134.627, 13.574, 1.068)
pt3dadd(207.308, 134.713, 13.526, 1.118)
pt3dadd(207.37, 134.798, 13.479, 1.168)
pt3dadd(207.431, 134.884, 13.431, 1.218)
pt3dadd(207.492, 134.97, 13.383, 1.268)
pt3dadd(207.554, 135.055, 13.336, 1.318)
pt3dadd(207.6, 135.15, 13.3, 1.358)
pt3dadd(207.6, 135.27, 13.3, 1.366)
pt3dadd(207.6, 135.39, 13.3, 1.374)
pt3dadd(207.601, 135.51, 13.3, 1.374)
pt3dadd(207.606, 135.63, 13.3, 1.348)
pt3dadd(207.611, 135.75, 13.3, 1.322)
pt3dadd(207.65, 135.848, 13.3, 1.294)
pt3dadd(207.754, 135.91, 13.3, 1.26)
pt3dadd(207.859, 135.966, 13.3, 1.224)
pt3dadd(207.972, 136.007, 13.3, 1.18)
pt3dadd(208.085, 136.046, 13.3, 1.138)
pt3dadd(208.16, 136.135, 13.3, 1.118)
pt3dadd(208.228, 136.235, 13.3, 1.104)
pt3dadd(208.294, 136.334, 13.3, 1.09)
pt3dadd(208.355, 136.438, 13.3, 1.08)
pt3dadd(208.394, 136.55, 13.3, 1.08)
pt3dadd(208.434, 136.663, 13.3, 1.08)
pt3dadd(208.44, 136.782, 13.3, 1.122)
pt3dadd(208.492, 136.889, 13.3, 1.138)
pt3dadd(208.552, 136.993, 13.3, 1.148)
pt3dadd(208.612, 137.096, 13.3, 1.158)
pt3dadd(208.672, 137.201, 13.3, 1.168)
pt3dadd(208.73, 137.305, 13.3, 1.178)
pt3dadd(208.795, 137.406, 13.3, 1.18)
pt3dadd(208.861, 137.507, 13.3, 1.18)
pt3dadd(208.927, 137.606, 13.3, 1.18)
pt3dadd(208.992, 137.707, 13.3, 1.18)
pt3dadd(209.058, 137.808, 13.3, 1.18)
pt3dadd(209.146, 137.886, 13.3, 1.164)
pt3dadd(209.245, 137.954, 13.3, 1.142)
pt3dadd(209.353, 138, 13.3, 1.124)
pt3dadd(209.471, 138.026, 13.3, 1.114)
pt3dadd(209.587, 138.053, 13.3, 1.104)
pt3dadd(209.608, 138.172, 13.3, 1.114)
pt3dadd(209.628, 138.289, 13.3, 1.124)
pt3dadd(209.662, 138.403, 13.3, 1.134)
pt3dadd(209.716, 138.511, 13.3, 1.146)
pt3dadd(209.773, 138.616, 13.3, 1.156)
pt3dadd(209.848, 138.709, 13.3, 1.156)
pt3dadd(209.916, 138.808, 13.3, 1.148)
pt3dadd(209.982, 138.908, 13.3, 1.138)
pt3dadd(210.048, 139.008, 13.3, 1.128)
pt3dadd(210.114, 139.109, 13.3, 1.118)
pt3dadd(210.18, 139.208, 13.3, 1.108)
pt3dadd(210.264, 139.294, 13.3, 1.098)
pt3dadd(210.355, 139.372, 13.3, 1.088)
pt3dadd(210.446, 139.45, 13.3, 1.078)
pt3dadd(210.538, 139.528, 13.3, 1.068)
pt3dadd(210.628, 139.606, 13.3, 1.058)
pt3dadd(210.703, 139.696, 13.283, 1.038)
pt3dadd(210.774, 139.789, 13.261, 1.016)
pt3dadd(210.844, 139.883, 13.238, 0.992)
pt3dadd(210.913, 139.976, 13.215, 0.97)
pt3dadd(210.983, 140.063, 13.181, 0.94)
pt3dadd(211.052, 140.132, 13.123, 0.896)
pt3dadd(211.096, 140.221, 13.073, 0.872)
pt3dadd(211.123, 140.324, 13.027, 0.858)
pt3dadd(211.21, 140.371, 13.005, 0.866)
pt3dadd(211.328, 140.387, 12.996, 0.888)
pt3dadd(211.441, 140.407, 12.978, 0.912)
pt3dadd(211.523, 140.453, 12.916, 0.954)
pt3dadd(211.607, 140.492, 12.853, 0.988)
pt3dadd(211.694, 140.528, 12.792, 1.004)
pt3dadd(211.787, 140.579, 12.745, 0.998)
pt3dadd(211.879, 140.63, 12.697, 0.992)
pt3dadd(211.972, 140.681, 12.649, 0.986)
pt3dadd(212.064, 140.732, 12.601, 0.98)
pt3dadd(212.17, 140.782, 12.579, 0.968)
pt3dadd(212.276, 140.831, 12.557, 0.958)
pt3dadd(212.383, 140.879, 12.536, 0.946)
pt3dadd(212.49, 140.928, 12.514, 0.936)
pt3dadd(212.594, 140.982, 12.5, 0.928)
pt3dadd(212.696, 141.044, 12.5, 0.922)
pt3dadd(212.8, 141.107, 12.5, 0.918)
pt3dadd(212.902, 141.17, 12.5, 0.912)
pt3dadd(213.004, 141.233, 12.5, 0.908)
pt3dadd(213.109, 141.29, 12.5, 0.904)
pt3dadd(213.221, 141.331, 12.5, 0.904)
pt3dadd(213.334, 141.373, 12.5, 0.904)
pt3dadd(213.446, 141.415, 12.5, 0.904)
pt3dadd(213.559, 141.456, 12.5, 0.904)
pt3dadd(213.671, 141.498, 12.5, 0.904)
pt3dadd(213.769, 141.566, 12.5, 0.904)
pt3dadd(213.863, 141.642, 12.5, 0.904)
pt3dadd(213.956, 141.716, 12.5, 0.904)
pt3dadd(214.05, 141.791, 12.5, 0.904)
pt3dadd(214.144, 141.866, 12.5, 0.904)
pt3dadd(214.211, 141.965, 12.5, 0.922)
pt3dadd(214.271, 142.068, 12.5, 0.946)
pt3dadd(214.337, 142.169, 12.5, 0.962)
pt3dadd(214.404, 142.267, 12.5, 0.974)
pt3dadd(214.489, 142.349, 12.5, 0.974)
pt3dadd(214.592, 142.41, 12.5, 0.962)
pt3dadd(214.698, 142.466, 12.5, 0.936)
pt3dadd(214.808, 142.513, 12.5, 0.87)
pt3dadd(214.919, 142.56, 12.5, 0.804)
pt3dadd(215.026, 142.614, 12.5, 0.736)
}
}
proc shape3d_150() {
dend_7[17] { pt3dadd(215.13, 142.67, 12.489, 0.704)
pt3dadd(215.231, 142.729, 12.467, 0.704)
pt3dadd(215.332, 142.788, 12.444, 0.704)
pt3dadd(215.432, 142.848, 12.422, 0.704)
pt3dadd(215.533, 142.907, 12.4, 0.704)
pt3dadd(215.621, 142.986, 12.38, 0.732)
pt3dadd(215.708, 143.064, 12.36, 0.76)
pt3dadd(215.796, 143.143, 12.339, 0.788)
pt3dadd(215.884, 143.221, 12.319, 0.816)
pt3dadd(215.974, 143.294, 12.296, 0.846)
pt3dadd(216.066, 143.365, 12.271, 0.874)
pt3dadd(216.158, 143.436, 12.245, 0.904)
pt3dadd(216.251, 143.506, 12.219, 0.932)
pt3dadd(216.347, 143.573, 12.2, 0.962)
pt3dadd(216.454, 143.627, 12.2, 0.996)
pt3dadd(216.56, 143.68, 12.2, 1.03)
pt3dadd(216.636, 143.774, 12.2, 1.042)
pt3dadd(216.71, 143.868, 12.2, 1.054)
pt3dadd(216.768, 143.97, 12.18, 1.044)
pt3dadd(216.823, 144.073, 12.157, 1.03)
pt3dadd(216.854, 144.097, 12.067, 0.998)
pt3dadd(216.884, 144.115, 11.971, 0.964)
pt3dadd(216.979, 144.12, 11.937, 0.938)
pt3dadd(217.098, 144.12, 11.928, 0.916)
pt3dadd(217.218, 144.12, 11.918, 0.894)
pt3dadd(217.337, 144.12, 11.908, 0.872)
pt3dadd(217.457, 144.12, 11.9, 0.85)
pt3dadd(217.577, 144.12, 11.9, 0.816)
pt3dadd(217.697, 144.12, 11.9, 0.782)
pt3dadd(217.816, 144.12, 11.896, 0.75)
pt3dadd(217.93, 144.12, 11.864, 0.736)
pt3dadd(218.044, 144.12, 11.832, 0.72)
pt3dadd(218.158, 144.12, 11.801, 0.704)
pt3dadd(218.242, 144.172, 11.745, 0.69)
pt3dadd(218.323, 144.234, 11.7, 0.686)
pt3dadd(218.413, 144.31, 11.7, 0.706)
pt3dadd(218.516, 144.37, 11.7, 0.71)
pt3dadd(218.621, 144.43, 11.7, 0.716)
pt3dadd(218.725, 144.49, 11.7, 0.72)
pt3dadd(218.828, 144.55, 11.7, 0.726)
pt3dadd(218.932, 144.611, 11.7, 0.732)
pt3dadd(219.034, 144.673, 11.7, 0.742)
pt3dadd(219.137, 144.737, 11.7, 0.752)
pt3dadd(219.239, 144.799, 11.7, 0.762)
pt3dadd(219.341, 144.863, 11.7, 0.772)
pt3dadd(219.446, 144.916, 11.7, 0.778)
pt3dadd(219.563, 144.946, 11.7, 0.778)
pt3dadd(219.679, 144.976, 11.7, 0.778)
pt3dadd(219.796, 145.007, 11.7, 0.778)
pt3dadd(219.912, 145.037, 11.7, 0.778)
pt3dadd(220.027, 145.067, 11.7, 0.778)
pt3dadd(220.129, 145.124, 11.7, 0.778)
pt3dadd(220.218, 145.205, 11.7, 0.778)
pt3dadd(220.307, 145.285, 11.7, 0.778)
pt3dadd(220.396, 145.366, 11.7, 0.778)
pt3dadd(220.484, 145.447, 11.7, 0.778)
pt3dadd(220.586, 145.508, 11.7, 0.772)
pt3dadd(220.696, 145.555, 11.7, 0.764)
pt3dadd(220.806, 145.603, 11.7, 0.754)
pt3dadd(220.916, 145.65, 11.7, 0.744)
pt3dadd(221.027, 145.698, 11.7, 0.736)
pt3dadd(221.136, 145.746, 11.7, 0.728)
pt3dadd(221.245, 145.798, 11.7, 0.728)
pt3dadd(221.353, 145.848, 11.7, 0.728)
pt3dadd(221.462, 145.898, 11.7, 0.728)
pt3dadd(221.572, 145.95, 11.7, 0.728)
pt3dadd(221.68, 146, 11.7, 0.728)
pt3dadd(221.795, 146.033, 11.7, 0.738)
pt3dadd(221.911, 146.065, 11.7, 0.748)
pt3dadd(222.025, 146.102, 11.7, 0.778)
pt3dadd(222.138, 146.142, 11.7, 0.82)
pt3dadd(222.245, 146.192, 11.7, 0.864)
pt3dadd(222.326, 146.281, 11.7, 0.912)
pt3dadd(222.404, 146.371, 11.7, 0.958)
pt3dadd(222.458, 146.478, 11.7, 0.992)
pt3dadd(222.512, 146.585, 11.7, 1.024)
pt3dadd(222.614, 146.639, 11.692, 1.03)
pt3dadd(222.726, 146.682, 11.683, 1.03)
pt3dadd(222.836, 146.726, 11.674, 1.03)
pt3dadd(222.948, 146.766, 11.659, 1.024)
pt3dadd(223.058, 146.792, 11.626, 0.998)
pt3dadd(223.159, 146.833, 11.597, 0.956)
pt3dadd(223.206, 146.915, 11.547, 0.882)
pt3dadd(223.242, 146.98, 11.468, 0.842)
pt3dadd(223.334, 147.004, 11.432, 0.808)
pt3dadd(223.453, 147.008, 11.414, 0.778)
pt3dadd(223.56, 147.034, 11.4, 0.75)
pt3dadd(223.628, 147.132, 11.4, 0.74)
pt3dadd(223.696, 147.232, 11.399, 0.728)
pt3dadd(223.748, 147.337, 11.383, 0.742)
pt3dadd(223.804, 147.44, 11.366, 0.754)
pt3dadd(223.921, 147.45, 11.35, 0.772)
pt3dadd(224.039, 147.46, 11.333, 0.79)
pt3dadd(224.158, 147.47, 11.317, 0.81)
pt3dadd(224.275, 147.48, 11.301, 0.828)
pt3dadd(224.395, 147.485, 11.3, 0.846)
pt3dadd(224.515, 147.488, 11.3, 0.862)
pt3dadd(224.634, 147.497, 11.3, 0.88)
pt3dadd(224.741, 147.551, 11.3, 0.888)
pt3dadd(224.849, 147.604, 11.3, 0.896)
pt3dadd(224.952, 147.661, 11.3, 0.904)
pt3dadd(225.013, 147.764, 11.3, 0.916)
pt3dadd(225.074, 147.869, 11.3, 0.928)
pt3dadd(225.134, 147.97, 11.3, 0.954)
pt3dadd(225.236, 148.032, 11.3, 0.954)
pt3dadd(225.34, 148.096, 11.3, 0.954)
pt3dadd(225.442, 148.158, 11.3, 0.954)
pt3dadd(225.544, 148.222, 11.3, 0.954)
pt3dadd(225.646, 148.284, 11.3, 0.954)
pt3dadd(225.754, 148.337, 11.3, 0.944)
pt3dadd(225.86, 148.391, 11.3, 0.934)
pt3dadd(225.968, 148.445, 11.3, 0.924)
pt3dadd(226.075, 148.498, 11.3, 0.916)
pt3dadd(226.183, 148.552, 11.3, 0.906)
pt3dadd(226.284, 148.615, 11.3, 0.896)
pt3dadd(226.385, 148.681, 11.3, 0.886)
pt3dadd(226.484, 148.747, 11.3, 0.876)
pt3dadd(226.585, 148.813, 11.3, 0.866)
pt3dadd(226.685, 148.879, 11.3, 0.856)
pt3dadd(226.77, 148.963, 11.3, 0.85)
pt3dadd(226.85, 149.052, 11.3, 0.844)
pt3dadd(226.932, 149.141, 11.3, 0.84)
pt3dadd(227.012, 149.23, 11.3, 0.834)
pt3dadd(227.094, 149.317, 11.3, 0.83)
pt3dadd(227.194, 149.382, 11.3, 0.824)
pt3dadd(227.298, 149.442, 11.3, 0.82)
pt3dadd(227.401, 149.502, 11.3, 0.814)
pt3dadd(227.506, 149.562, 11.3, 0.81)
pt3dadd(227.609, 149.622, 11.3, 0.806)
pt3dadd(227.714, 149.677, 11.285, 0.796)
pt3dadd(227.819, 149.729, 11.263, 0.784)
pt3dadd(227.923, 149.782, 11.241, 0.774)
pt3dadd(228.028, 149.834, 11.219, 0.762)
pt3dadd(228.13, 149.89, 11.197, 0.752)
pt3dadd(228.212, 149.972, 11.174, 0.74)
pt3dadd(228.295, 150.055, 11.151, 0.728)
pt3dadd(228.378, 150.138, 11.128, 0.718)
pt3dadd(228.461, 150.221, 11.105, 0.706)
pt3dadd(228.57, 150.256, 11.1, 0.704)
pt3dadd(228.689, 150.276, 11.1, 0.704)
pt3dadd(228.791, 150.312, 11.099, 0.704)
pt3dadd(228.812, 150.431, 11.095, 0.714)
pt3dadd(228.833, 150.548, 11.09, 0.726)
pt3dadd(228.84, 150.661, 11.063, 0.742)
pt3dadd(228.84, 150.772, 11.024, 0.764)
pt3dadd(228.857, 150.876, 10.981, 0.778)
pt3dadd(228.901, 150.972, 10.932, 0.778)
pt3dadd(228.926, 151.074, 10.888, 0.786)
pt3dadd(228.938, 151.183, 10.847, 0.8)
pt3dadd(228.949, 151.292, 10.807, 0.814)
pt3dadd(228.96, 151.4, 10.766, 0.828)
pt3dadd(229, 151.427, 10.674, 0.854)
pt3dadd(229.039, 151.452, 10.582, 0.878)
pt3dadd(229.072, 151.541, 10.522, 0.918)
pt3dadd(229.103, 151.633, 10.463, 0.958)
pt3dadd(229.16, 151.721, 10.425, 0.986)
pt3dadd(229.244, 151.804, 10.407, 0.998)
pt3dadd(229.3, 151.906, 10.4, 0.986)
pt3dadd(229.326, 152.021, 10.387, 0.976)
pt3dadd(229.352, 152.137, 10.37, 0.97)
pt3dadd(229.378, 152.252, 10.353, 0.966)
pt3dadd(229.403, 152.368, 10.336, 0.962)
pt3dadd(229.429, 152.483, 10.318, 0.956)
pt3dadd(229.44, 152.6, 10.309, 0.96)
pt3dadd(229.44, 152.72, 10.305, 0.968)
pt3dadd(229.44, 152.84, 10.301, 0.976)
pt3dadd(229.44, 152.96, 10.3, 0.996)
pt3dadd(229.44, 153.08, 10.3, 1.022)
pt3dadd(229.44, 153.2, 10.3, 1.046)
pt3dadd(229.45, 153.32, 10.3, 1.062)
pt3dadd(229.465, 153.439, 10.3, 1.07)
pt3dadd(229.48, 153.558, 10.3, 1.08)
pt3dadd(229.54, 153.662, 10.3, 1.058)
pt3dadd(229.6, 153.766, 10.3, 1.034)
pt3dadd(229.693, 153.838, 10.3, 0.974)
pt3dadd(229.783, 153.913, 10.3, 0.918)
pt3dadd(229.852, 154.012, 10.3, 0.882)
pt3dadd(229.908, 154.115, 10.3, 0.856)
pt3dadd(229.918, 154.235, 10.3, 0.864)
pt3dadd(229.927, 154.354, 10.3, 0.874)
pt3dadd(229.96, 154.465, 10.3, 0.892)
pt3dadd(230.028, 154.565, 10.3, 0.928)
pt3dadd(230.101, 154.658, 10.3, 0.962)
pt3dadd(230.196, 154.733, 10.3, 0.998)
pt3dadd(230.288, 154.808, 10.3, 1.032)
pt3dadd(230.374, 154.894, 10.3, 1.05)
pt3dadd(230.476, 154.952, 10.3, 1.054)
pt3dadd(230.586, 154.999, 10.3, 1.054)
pt3dadd(230.693, 155.053, 10.3, 1.05)
pt3dadd(230.791, 155.122, 10.3, 1.038)
pt3dadd(230.876, 155.2, 10.3, 1.022)
pt3dadd(230.916, 155.314, 10.3, 0.99)
pt3dadd(230.956, 155.426, 10.3, 0.958)
pt3dadd(230.989, 155.542, 10.3, 0.918)
pt3dadd(231.022, 155.657, 10.3, 0.876)
pt3dadd(231.064, 155.768, 10.3, 0.846)
pt3dadd(231.118, 155.876, 10.3, 0.83)
pt3dadd(231.163, 155.987, 10.3, 0.838)
pt3dadd(231.208, 156.098, 10.3, 0.848)
pt3dadd(231.252, 156.21, 10.3, 0.856)
}
}
proc shape3d_151() {
dend_7[17] { pt3dadd(231.296, 156.322, 10.3, 0.866)
pt3dadd(231.341, 156.433, 10.3, 0.876)
pt3dadd(231.402, 156.535, 10.3, 0.888)
pt3dadd(231.474, 156.631, 10.3, 0.902)
pt3dadd(231.546, 156.727, 10.3, 0.918)
pt3dadd(231.618, 156.823, 10.3, 0.932)
pt3dadd(231.69, 156.919, 10.3, 0.948)
pt3dadd(231.782, 156.991, 10.3, 0.952)
pt3dadd(231.889, 157.044, 10.3, 0.946)
pt3dadd(231.997, 157.098, 10.3, 0.942)
pt3dadd(232.104, 157.152, 10.3, 0.936)
pt3dadd(232.212, 157.205, 10.3, 0.932)
pt3dadd(232.314, 157.266, 10.3, 0.926)
pt3dadd(232.408, 157.342, 10.3, 0.916)
pt3dadd(232.501, 157.416, 10.3, 0.906)
pt3dadd(232.595, 157.492, 10.3, 0.896)
pt3dadd(232.69, 157.566, 10.3, 0.886)
pt3dadd(232.775, 157.648, 10.291, 0.872)
pt3dadd(232.848, 157.739, 10.268, 0.856)
pt3dadd(232.92, 157.83, 10.246, 0.838)
pt3dadd(232.993, 157.921, 10.223, 0.82)
pt3dadd(233.066, 158.014, 10.2, 0.804)
pt3dadd(233.113, 158.123, 10.2, 0.804)
pt3dadd(233.161, 158.233, 10.2, 0.804)
pt3dadd(233.209, 158.344, 10.2, 0.804)
pt3dadd(233.256, 158.454, 10.2, 0.804)
pt3dadd(233.304, 158.564, 10.2, 0.804)
pt3dadd(233.358, 158.671, 10.2, 0.804)
pt3dadd(233.414, 158.777, 10.2, 0.804)
pt3dadd(233.471, 158.882, 10.2, 0.804)
pt3dadd(233.528, 158.988, 10.2, 0.804)
pt3dadd(233.585, 159.094, 10.2, 0.804)
pt3dadd(233.654, 159.191, 10.2, 0.81)
pt3dadd(233.736, 159.278, 10.2, 0.822)
pt3dadd(233.812, 159.371, 10.2, 0.824)
pt3dadd(233.88, 159.47, 10.2, 0.812)
pt3dadd(233.951, 159.566, 10.2, 0.798)
pt3dadd(234.032, 159.654, 10.2, 0.774)
pt3dadd(234.107, 159.745, 10.2, 0.752)
pt3dadd(234.112, 159.865, 10.2, 0.734)
pt3dadd(234.116, 159.985, 10.2, 0.716)
pt3dadd(234.12, 160.104, 10.2, 0.7)
pt3dadd(234.12, 160.224, 10.2, 0.688)
pt3dadd(234.125, 160.344, 10.196, 0.678)
pt3dadd(234.151, 160.458, 10.176, 0.684)
pt3dadd(234.178, 160.573, 10.157, 0.688)
pt3dadd(234.204, 160.687, 10.137, 0.694)
pt3dadd(234.229, 160.802, 10.118, 0.698)
pt3dadd(234.258, 160.916, 10.097, 0.706)
pt3dadd(234.308, 161.016, 10.061, 0.748)
pt3dadd(234.358, 161.118, 10.03, 0.792)
pt3dadd(234.402, 161.227, 10.014, 0.854)
pt3dadd(234.449, 161.335, 9.994, 0.914)
pt3dadd(234.498, 161.436, 9.958, 0.982)
pt3dadd(234.569, 161.508, 9.929, 1.036)
pt3dadd(234.688, 161.514, 9.917, 1.054)
pt3dadd(234.806, 161.519, 9.904, 1.074)
pt3dadd(234.924, 161.537, 9.9, 1.058)
pt3dadd(235.042, 161.561, 9.9, 1.028)
pt3dadd(235.135, 161.636, 9.9, 0.97)
pt3dadd(235.229, 161.711, 9.9, 0.912)
pt3dadd(235.344, 161.738, 9.9, 0.87)
pt3dadd(235.462, 161.759, 9.9, 0.832)
pt3dadd(235.564, 161.802, 9.9, 0.798)
pt3dadd(235.625, 161.905, 9.9, 0.774)
pt3dadd(235.682, 162.011, 9.9, 0.754)
pt3dadd(235.702, 162.128, 9.9, 0.764)
pt3dadd(235.722, 162.247, 9.9, 0.774)
pt3dadd(235.78, 162.343, 9.9, 0.788)
pt3dadd(235.872, 162.42, 9.9, 0.804)
pt3dadd(235.937, 162.52, 9.9, 0.808)
pt3dadd(236.003, 162.62, 9.9, 0.814)
pt3dadd(236.069, 162.721, 9.9, 0.818)
pt3dadd(236.135, 162.821, 9.9, 0.824)
pt3dadd(236.201, 162.92, 9.9, 0.828)
pt3dadd(236.32, 162.941, 9.9, 0.82)
pt3dadd(236.437, 162.961, 9.9, 0.81)
pt3dadd(236.548, 163.001, 9.9, 0.798)
pt3dadd(236.647, 163.069, 9.9, 0.788)
pt3dadd(236.724, 163.15, 9.9, 0.776)
pt3dadd(236.738, 163.27, 9.9, 0.766)
pt3dadd(236.754, 163.388, 9.9, 0.758)
pt3dadd(236.772, 163.507, 9.9, 0.764)
pt3dadd(236.792, 163.625, 9.9, 0.784)
pt3dadd(236.812, 163.744, 9.9, 0.802)
pt3dadd(236.911, 163.808, 9.9, 0.82)
pt3dadd(237, 163.886, 9.9, 0.834)
pt3dadd(237.078, 163.978, 9.9, 0.844)
pt3dadd(237.156, 164.07, 9.9, 0.854)
pt3dadd(237.234, 164.161, 9.9, 0.864)
pt3dadd(237.312, 164.252, 9.9, 0.874)
pt3dadd(237.388, 164.345, 9.9, 0.876)
pt3dadd(237.463, 164.438, 9.9, 0.872)
pt3dadd(237.538, 164.532, 9.9, 0.866)
pt3dadd(237.613, 164.626, 9.9, 0.862)
pt3dadd(237.688, 164.719, 9.9, 0.856)
pt3dadd(237.761, 164.815, 9.9, 0.854)
pt3dadd(237.833, 164.911, 9.9, 0.854)
pt3dadd(237.905, 165.007, 9.9, 0.854)
pt3dadd(237.977, 165.103, 9.9, 0.854)
pt3dadd(238.049, 165.199, 9.9, 0.854)
pt3dadd(238.093, 165.307, 9.9, 0.85)
pt3dadd(238.115, 165.425, 9.9, 0.84)
pt3dadd(238.138, 165.544, 9.9, 0.832)
pt3dadd(238.159, 165.661, 9.9, 0.824)
pt3dadd(238.182, 165.779, 9.9, 0.816)
pt3dadd(238.204, 165.896, 9.9, 0.808)
pt3dadd(238.249, 166.006, 9.9, 0.798)
pt3dadd(238.313, 166.108, 9.9, 0.788)
pt3dadd(238.375, 166.21, 9.9, 0.778)
pt3dadd(238.439, 166.312, 9.9, 0.768)
pt3dadd(238.501, 166.415, 9.9, 0.758)
pt3dadd(238.568, 166.513, 9.9, 0.75)
pt3dadd(238.64, 166.609, 9.9, 0.746)
pt3dadd(238.712, 166.705, 9.9, 0.74)
pt3dadd(238.784, 166.801, 9.9, 0.736)
pt3dadd(238.856, 166.897, 9.9, 0.73)
pt3dadd(238.934, 166.988, 9.9, 0.73)
pt3dadd(239.017, 167.075, 9.9, 0.736)
pt3dadd(239.101, 167.161, 9.9, 0.74)
pt3dadd(239.184, 167.248, 9.9, 0.746)
pt3dadd(239.268, 167.334, 9.9, 0.75)
pt3dadd(239.347, 167.424, 9.9, 0.762)
pt3dadd(239.422, 167.518, 9.9, 0.776)
pt3dadd(239.497, 167.611, 9.9, 0.792)
pt3dadd(239.572, 167.705, 9.9, 0.806)
pt3dadd(239.646, 167.8, 9.9, 0.822)
pt3dadd(239.714, 167.898, 9.9, 0.832)
pt3dadd(239.778, 168, 9.9, 0.836)
pt3dadd(239.84, 168.102, 9.9, 0.842)
pt3dadd(239.904, 168.204, 9.9, 0.846)
pt3dadd(239.966, 168.306, 9.9, 0.852)
pt3dadd(240.028, 168.402, 9.878, 0.85)
pt3dadd(240.085, 168.492, 9.833, 0.846)
pt3dadd(240.143, 168.582, 9.788, 0.838)
pt3dadd(240.2, 168.672, 9.742, 0.832)
pt3dadd(240.269, 168.758, 9.705, 0.824)
pt3dadd(240.358, 168.835, 9.688, 0.806)
pt3dadd(240.446, 168.913, 9.671, 0.79)
pt3dadd(240.536, 168.99, 9.653, 0.772)
pt3dadd(240.625, 169.068, 9.636, 0.756)
pt3dadd(240.701, 169.154, 9.607, 0.744)
pt3dadd(240.773, 169.242, 9.575, 0.732)
pt3dadd(240.845, 169.33, 9.544, 0.72)
pt3dadd(240.918, 169.418, 9.513, 0.708)
pt3dadd(240.964, 169.508, 9.465, 0.696)
pt3dadd(240.991, 169.601, 9.405, 0.682)
pt3dadd(241.063, 169.654, 9.345, 0.678)
pt3dadd(241.151, 169.69, 9.284, 0.678)
pt3dadd(241.206, 169.739, 9.207, 0.69)
pt3dadd(241.261, 169.79, 9.132, 0.706)
pt3dadd(241.372, 169.836, 9.116, 0.73)
pt3dadd(241.481, 169.88, 9.1, 0.754)
pt3dadd(241.594, 169.921, 9.1, 0.78)
pt3dadd(241.706, 169.962, 9.1, 0.806)
pt3dadd(241.819, 170.004, 9.1, 0.83)
pt3dadd(241.925, 170.052, 9.1, 0.858)
pt3dadd(241.972, 170.162, 9.1, 0.902)
pt3dadd(242.018, 170.273, 9.1, 0.946)
pt3dadd(242.039, 170.39, 9.1, 1.046)
pt3dadd(242.081, 170.502, 9.1, 1.054)
pt3dadd(242.125, 170.614, 9.1, 1.054)
pt3dadd(242.17, 170.725, 9.1, 1.054)
pt3dadd(242.215, 170.837, 9.1, 1.054)
pt3dadd(242.26, 170.948, 9.1, 1.054)
pt3dadd(242.312, 171.055, 9.1, 1.042)
pt3dadd(242.374, 171.158, 9.1, 1.02)
pt3dadd(242.447, 171.25, 9.1, 0.984)
pt3dadd(242.546, 171.318, 9.1, 0.926)
pt3dadd(242.628, 171.395, 9.099, 0.874)
pt3dadd(242.633, 171.515, 9.095, 0.846)
pt3dadd(242.638, 171.635, 9.091, 0.82)
pt3dadd(242.64, 171.739, 9.06, 0.79)
pt3dadd(242.64, 171.821, 8.986, 0.754)
pt3dadd(242.642, 171.893, 8.908, 0.718)
pt3dadd(242.652, 171.938, 8.816, 0.684)
pt3dadd(242.672, 172.033, 8.762, 0.668)
pt3dadd(242.695, 172.138, 8.716, 0.658)
pt3dadd(242.719, 172.242, 8.67, 0.648)
pt3dadd(242.742, 172.345, 8.625, 0.636)
pt3dadd(242.76, 172.452, 8.581, 0.626)
pt3dadd(242.76, 172.564, 8.547, 0.616)
pt3dadd(242.76, 172.676, 8.512, 0.608)
pt3dadd(242.76, 172.789, 8.477, 0.598)
pt3dadd(242.76, 172.902, 8.443, 0.588)
pt3dadd(242.76, 173.015, 8.408, 0.58)
pt3dadd(242.77, 173.132, 8.4, 0.578)
pt3dadd(242.783, 173.251, 8.4, 0.578)
pt3dadd(242.795, 173.371, 8.4, 0.578)
pt3dadd(242.808, 173.49, 8.4, 0.578)
pt3dadd(242.82, 173.61, 8.4, 0.578)
pt3dadd(242.833, 173.729, 8.4, 0.578)
pt3dadd(242.85, 173.848, 8.4, 0.578)
pt3dadd(242.872, 173.965, 8.4, 0.578)
pt3dadd(242.894, 174.083, 8.4, 0.578)
pt3dadd(242.916, 174.202, 8.4, 0.578)
pt3dadd(242.939, 174.319, 8.4, 0.578)
pt3dadd(242.96, 174.437, 8.4, 0.578)
pt3dadd(242.987, 174.554, 8.4, 0.584)
pt3dadd(243.02, 174.67, 8.4, 0.596)
}
}
proc shape3d_152() {
dend_7[17] { pt3dadd(243.053, 174.785, 8.4, 0.61)
pt3dadd(243.085, 174.9, 8.4, 0.624)
pt3dadd(243.119, 175.015, 8.4, 0.636)
pt3dadd(243.151, 175.132, 8.4, 0.65)
pt3dadd(243.19, 175.244, 8.4, 0.684)
pt3dadd(243.229, 175.358, 8.4, 0.728)
pt3dadd(243.287, 175.46, 8.398, 0.778)
pt3dadd(243.372, 175.544, 8.392, 0.838)
pt3dadd(243.437, 175.625, 8.362, 0.892)
pt3dadd(243.466, 175.696, 8.285, 0.932)
pt3dadd(243.48, 175.789, 8.236, 0.95)
pt3dadd(243.48, 175.907, 8.219, 0.94)
pt3dadd(243.48, 176.026, 8.202, 0.93)
pt3dadd(243.508, 176.141, 8.192, 0.912)
pt3dadd(243.539, 176.256, 8.184, 0.892)
pt3dadd(243.57, 176.371, 8.175, 0.872)
pt3dadd(243.606, 176.483, 8.165, 0.85)
pt3dadd(243.706, 176.533, 8.129, 0.796)
pt3dadd(243.798, 176.593, 8.1, 0.74)
pt3dadd(243.84, 176.705, 8.1, 0.7)
pt3dadd(243.87, 176.821, 8.1, 0.69)
pt3dadd(243.9, 176.938, 8.1, 0.682)
pt3dadd(243.93, 177.054, 8.1, 0.674)
pt3dadd(243.96, 177.169, 8.1, 0.664)
pt3dadd(243.991, 177.286, 8.1, 0.656)
pt3dadd(244.018, 177.402, 8.088, 0.65)
pt3dadd(244.043, 177.517, 8.071, 0.644)
pt3dadd(244.069, 177.632, 8.054, 0.64)
pt3dadd(244.094, 177.748, 8.037, 0.636)
pt3dadd(244.12, 177.863, 8.02, 0.63)
pt3dadd(244.151, 177.978, 8.007, 0.626)
pt3dadd(244.187, 178.092, 7.998, 0.62)
pt3dadd(244.222, 178.206, 7.99, 0.616)
pt3dadd(244.258, 178.32, 7.982, 0.612)
pt3dadd(244.294, 178.434, 7.973, 0.606)
pt3dadd(244.325, 178.548, 7.959, 0.606)
pt3dadd(244.343, 178.661, 7.928, 0.618)
pt3dadd(244.364, 178.772, 7.896, 0.63)
pt3dadd(244.406, 178.877, 7.861, 0.642)
pt3dadd(244.45, 178.982, 7.83, 0.658)
pt3dadd(244.494, 179.092, 7.814, 0.682)
pt3dadd(244.548, 179.191, 7.8, 0.704)
pt3dadd(244.662, 179.232, 7.8, 0.716)
pt3dadd(244.775, 179.272, 7.8, 0.726)
pt3dadd(244.876, 179.335, 7.8, 0.728)
pt3dadd(244.973, 179.406, 7.8, 0.728)
pt3dadd(245.069, 179.477, 7.8, 0.728)
pt3dadd(245.15, 179.557, 7.8, 0.724)
pt3dadd(245.171, 179.675, 7.8, 0.704)
pt3dadd(245.191, 179.794, 7.8, 0.686)
pt3dadd(245.245, 179.897, 7.8, 0.636)
pt3dadd(245.315, 179.994, 7.8, 0.628)
pt3dadd(245.384, 180.092, 7.8, 0.628)
pt3dadd(245.453, 180.191, 7.8, 0.628)
pt3dadd(245.522, 180.288, 7.8, 0.628)
pt3dadd(245.591, 180.386, 7.8, 0.628)
pt3dadd(245.647, 180.493, 7.8, 0.632)
pt3dadd(245.7, 180.6, 7.8, 0.636)
pt3dadd(245.754, 180.708, 7.8, 0.642)
pt3dadd(245.808, 180.815, 7.8, 0.646)
pt3dadd(245.861, 180.923, 7.8, 0.652)
pt3dadd(245.915, 181.03, 7.8, 0.656)
pt3dadd(245.969, 181.138, 7.8, 0.66)
pt3dadd(246.022, 181.244, 7.8, 0.666)
pt3dadd(246.076, 181.352, 7.8, 0.67)
pt3dadd(246.13, 181.459, 7.8, 0.676)
pt3dadd(246.198, 181.555, 7.8, 0.678)
pt3dadd(246.287, 181.636, 7.8, 0.678)
pt3dadd(246.376, 181.716, 7.8, 0.678)
pt3dadd(246.464, 181.796, 7.8, 0.678)
pt3dadd(246.553, 181.878, 7.8, 0.678)
pt3dadd(246.622, 181.973, 7.8, 0.678)
pt3dadd(246.666, 182.084, 7.8, 0.678)
pt3dadd(246.71, 182.196, 7.8, 0.678)
pt3dadd(246.755, 182.308, 7.8, 0.678)
pt3dadd(246.799, 182.418, 7.8, 0.678)
pt3dadd(246.841, 182.531, 7.8, 0.678)
pt3dadd(246.859, 182.65, 7.8, 0.678)
pt3dadd(246.876, 182.768, 7.8, 0.678)
pt3dadd(246.894, 182.887, 7.8, 0.678)
pt3dadd(246.911, 183.006, 7.8, 0.678)
pt3dadd(246.928, 183.125, 7.8, 0.678)
pt3dadd(246.946, 183.244, 7.8, 0.678)
pt3dadd(246.95, 183.362, 7.8, 0.678)
pt3dadd(246.954, 183.482, 7.8, 0.678)
pt3dadd(246.958, 183.602, 7.8, 0.678)
pt3dadd(246.962, 183.722, 7.8, 0.678)
pt3dadd(246.966, 183.842, 7.8, 0.678)
pt3dadd(246.97, 183.962, 7.8, 0.678)
pt3dadd(246.976, 184.082, 7.8, 0.678)
pt3dadd(246.992, 184.201, 7.8, 0.678)
pt3dadd(247.01, 184.32, 7.8, 0.678)
pt3dadd(247.027, 184.439, 7.8, 0.678)
pt3dadd(247.045, 184.558, 7.8, 0.678)
pt3dadd(247.062, 184.676, 7.8, 0.678)
pt3dadd(247.079, 184.795, 7.8, 0.678)
pt3dadd(247.08, 184.914, 7.79, 0.678)
pt3dadd(247.08, 185.034, 7.78, 0.678)
pt3dadd(247.08, 185.153, 7.769, 0.678)
pt3dadd(247.08, 185.272, 7.759, 0.678)
pt3dadd(247.08, 185.392, 7.748, 0.678)
pt3dadd(247.08, 185.51, 7.738, 0.678)
pt3dadd(247.1, 185.624, 7.717, 0.678)
pt3dadd(247.134, 185.735, 7.688, 0.678)
pt3dadd(247.168, 185.845, 7.66, 0.678)
pt3dadd(247.201, 185.954, 7.632, 0.678)
pt3dadd(247.235, 186.065, 7.604, 0.678)
pt3dadd(247.252, 186.182, 7.595, 0.682)
pt3dadd(247.265, 186.302, 7.59, 0.686)
pt3dadd(247.278, 186.421, 7.584, 0.69)
pt3dadd(247.291, 186.54, 7.579, 0.694)
pt3dadd(247.304, 186.659, 7.573, 0.698)
pt3dadd(247.318, 186.779, 7.568, 0.702)
pt3dadd(247.32, 186.883, 7.524, 0.704)
pt3dadd(247.32, 186.985, 7.472, 0.704)
pt3dadd(247.32, 187.088, 7.419, 0.704)
pt3dadd(247.32, 187.19, 7.367, 0.704)
pt3dadd(247.32, 187.292, 7.314, 0.704)
pt3dadd(247.31, 187.406, 7.295, 0.704)
pt3dadd(247.297, 187.525, 7.287, 0.704)
pt3dadd(247.283, 187.644, 7.28, 0.704)
pt3dadd(247.27, 187.763, 7.272, 0.704)
pt3dadd(247.256, 187.883, 7.265, 0.704)
pt3dadd(247.242, 188.002, 7.257, 0.704)
pt3dadd(247.212, 188.11, 7.227, 0.694)
pt3dadd(247.177, 188.215, 7.19, 0.684)
pt3dadd(247.141, 188.322, 7.153, 0.672)
pt3dadd(247.106, 188.428, 7.116, 0.662)
pt3dadd(247.08, 188.537, 7.085, 0.654)
pt3dadd(247.08, 188.656, 7.071, 0.658)
pt3dadd(247.08, 188.774, 7.057, 0.662)
pt3dadd(247.08, 188.893, 7.042, 0.666)
pt3dadd(247.08, 189.012, 7.028, 0.67)
pt3dadd(247.08, 189.131, 7.013, 0.674)
pt3dadd(247.076, 189.248, 6.998, 0.678)
pt3dadd(247.031, 189.356, 6.977, 0.69)
pt3dadd(246.985, 189.464, 6.956, 0.7)
pt3dadd(246.94, 189.572, 6.934, 0.71)
pt3dadd(246.894, 189.68, 6.913, 0.722)
pt3dadd(246.836, 189.782, 6.9, 0.734)
pt3dadd(246.758, 189.874, 6.9, 0.75)
pt3dadd(246.68, 189.965, 6.9, 0.764)
pt3dadd(246.602, 190.056, 6.9, 0.78)
pt3dadd(246.524, 190.147, 6.9, 0.794)
pt3dadd(246.461, 190.247, 6.9, 0.804)
pt3dadd(246.414, 190.357, 6.9, 0.804)
pt3dadd(246.37, 190.469, 6.9, 0.8)
pt3dadd(246.343, 190.586, 6.9, 0.77)
pt3dadd(246.317, 190.703, 6.9, 0.74)
pt3dadd(246.234, 190.764, 6.9, 0.704)
pt3dadd(246.118, 190.79, 6.9, 0.664)
pt3dadd(246, 190.818, 6.9, 0.624)
pt3dadd(245.887, 190.858, 6.9, 0.58)
pt3dadd(245.774, 190.897, 6.9, 0.538)
pt3dadd(245.657, 190.909, 6.893, 0.518)
pt3dadd(245.537, 190.912, 6.883, 0.508)
pt3dadd(245.418, 190.915, 6.873, 0.496)
pt3dadd(245.298, 190.918, 6.863, 0.484)
pt3dadd(245.207, 190.92, 6.828, 0.474)
pt3dadd(245.186, 190.92, 6.729, 0.464)
pt3dadd(245.166, 190.92, 6.63, 0.454)
pt3dadd(245.183, 190.92, 6.533, 0.452)
pt3dadd(245.22, 190.921, 6.441, 0.452)
pt3dadd(245.326, 190.951, 6.404, 0.452)
pt3dadd(245.4, 191.04, 6.4, 0.452)
}
dend_7[18] {pt3dclear()
pt3dadd(180.804, 109.173, 18.276, 1.808)
pt3dadd(180.894, 109.139, 18.28, 1.782)
pt3dadd(181.007, 109.096, 18.285, 1.752)
pt3dadd(181.118, 109.053, 18.29, 1.72)
pt3dadd(181.23, 109.01, 18.295, 1.688)
pt3dadd(181.342, 108.967, 18.299, 1.656)
pt3dadd(181.453, 108.924, 18.304, 1.624)
pt3dadd(181.566, 108.881, 18.309, 1.594)
pt3dadd(181.678, 108.837, 18.314, 1.562)
pt3dadd(181.789, 108.795, 18.319, 1.53)
pt3dadd(181.903, 108.757, 18.322, 1.512)
pt3dadd(182.017, 108.719, 18.324, 1.496)
pt3dadd(182.131, 108.681, 18.327, 1.478)
pt3dadd(182.245, 108.643, 18.33, 1.46)
pt3dadd(182.358, 108.605, 18.332, 1.442)
pt3dadd(182.472, 108.567, 18.335, 1.426)
pt3dadd(182.586, 108.529, 18.338, 1.408)
pt3dadd(182.7, 108.491, 18.34, 1.39)
pt3dadd(182.814, 108.453, 18.343, 1.372)
pt3dadd(182.928, 108.416, 18.346, 1.356)
pt3dadd(183.043, 108.384, 18.346, 1.356)
pt3dadd(183.16, 108.353, 18.346, 1.356)
pt3dadd(183.275, 108.322, 18.346, 1.356)
pt3dadd(183.391, 108.29, 18.346, 1.356)
pt3dadd(183.506, 108.259, 18.345, 1.356)
pt3dadd(183.623, 108.227, 18.345, 1.356)
pt3dadd(183.738, 108.196, 18.345, 1.356)
pt3dadd(183.854, 108.165, 18.345, 1.356)
pt3dadd(183.97, 108.133, 18.345, 1.356)
pt3dadd(184.086, 108.101, 18.345, 1.354)
pt3dadd(184.192, 108.045, 18.345, 1.302)
pt3dadd(184.297, 107.988, 18.345, 1.25)
pt3dadd(184.403, 107.931, 18.345, 1.196)
pt3dadd(184.508, 107.875, 18.345, 1.144)
pt3dadd(184.615, 107.818, 18.345, 1.092)
}
}
proc shape3d_153() {
dend_7[18] { pt3dadd(184.721, 107.762, 18.345, 1.038)
pt3dadd(184.826, 107.706, 18.345, 0.986)
pt3dadd(184.932, 107.649, 18.345, 0.934)
pt3dadd(185.039, 107.592, 18.345, 0.88)
pt3dadd(185.144, 107.536, 18.345, 0.83)
pt3dadd(185.255, 107.49, 18.345, 0.814)
pt3dadd(185.365, 107.443, 18.344, 0.798)
pt3dadd(185.476, 107.397, 18.344, 0.784)
pt3dadd(185.587, 107.35, 18.344, 0.768)
pt3dadd(185.698, 107.304, 18.344, 0.754)
pt3dadd(185.808, 107.257, 18.344, 0.738)
pt3dadd(185.918, 107.211, 18.344, 0.722)
pt3dadd(186.029, 107.164, 18.344, 0.708)
pt3dadd(186.139, 107.117, 18.344, 0.692)
pt3dadd(186.251, 107.071, 18.344, 0.678)
pt3dadd(186.36, 107.023, 18.343, 0.69)
pt3dadd(186.47, 106.975, 18.343, 0.702)
pt3dadd(186.581, 106.928, 18.343, 0.712)
pt3dadd(186.691, 106.88, 18.343, 0.724)
pt3dadd(186.8, 106.832, 18.343, 0.736)
pt3dadd(186.911, 106.785, 18.342, 0.746)
pt3dadd(187.021, 106.737, 18.342, 0.758)
pt3dadd(187.132, 106.689, 18.342, 0.77)
pt3dadd(187.241, 106.642, 18.342, 0.782)
pt3dadd(187.351, 106.593, 18.342, 0.794)
pt3dadd(187.457, 106.536, 18.341, 0.826)
pt3dadd(187.562, 106.479, 18.341, 0.856)
pt3dadd(187.668, 106.422, 18.341, 0.888)
pt3dadd(187.774, 106.365, 18.341, 0.92)
pt3dadd(187.879, 106.308, 18.34, 0.952)
pt3dadd(187.985, 106.251, 18.34, 0.982)
pt3dadd(188.09, 106.195, 18.34, 1.014)
pt3dadd(188.196, 106.138, 18.34, 1.046)
pt3dadd(188.302, 106.081, 18.339, 1.078)
pt3dadd(188.408, 106.025, 18.339, 1.108)
pt3dadd(188.522, 105.987, 18.338, 1.126)
pt3dadd(188.636, 105.95, 18.338, 1.144)
pt3dadd(188.749, 105.912, 18.337, 1.162)
pt3dadd(188.863, 105.875, 18.337, 1.18)
pt3dadd(188.977, 105.837, 18.336, 1.198)
pt3dadd(189.091, 105.799, 18.336, 1.216)
pt3dadd(189.205, 105.762, 18.335, 1.234)
pt3dadd(189.319, 105.724, 18.334, 1.252)
pt3dadd(189.433, 105.686, 18.334, 1.272)
pt3dadd(189.547, 105.649, 18.333, 1.286)
pt3dadd(189.664, 105.619, 18.332, 1.272)
pt3dadd(189.78, 105.589, 18.331, 1.258)
pt3dadd(189.896, 105.559, 18.33, 1.244)
pt3dadd(190.013, 105.529, 18.329, 1.23)
pt3dadd(190.128, 105.499, 18.328, 1.216)
pt3dadd(190.244, 105.469, 18.327, 1.202)
pt3dadd(190.361, 105.44, 18.326, 1.188)
pt3dadd(190.477, 105.41, 18.325, 1.174)
pt3dadd(190.594, 105.38, 18.324, 1.16)
pt3dadd(190.71, 105.349, 18.322, 1.146)
pt3dadd(190.825, 105.318, 18.321, 1.126)
pt3dadd(190.942, 105.287, 18.319, 1.106)
pt3dadd(191.057, 105.256, 18.317, 1.088)
pt3dadd(191.173, 105.224, 18.315, 1.068)
pt3dadd(191.288, 105.193, 18.314, 1.048)
pt3dadd(191.405, 105.162, 18.312, 1.03)
pt3dadd(191.52, 105.131, 18.31, 1.01)
pt3dadd(191.636, 105.099, 18.308, 0.992)
pt3dadd(191.752, 105.068, 18.306, 0.972)
pt3dadd(191.867, 105.036, 18.305, 0.956)
pt3dadd(191.98, 104.992, 18.302, 0.972)
pt3dadd(192.091, 104.949, 18.299, 0.99)
pt3dadd(192.203, 104.906, 18.297, 1.006)
pt3dadd(192.314, 104.862, 18.294, 1.022)
pt3dadd(192.427, 104.819, 18.291, 1.04)
pt3dadd(192.539, 104.776, 18.289, 1.056)
pt3dadd(192.65, 104.732, 18.286, 1.072)
pt3dadd(192.762, 104.689, 18.283, 1.09)
pt3dadd(192.874, 104.646, 18.281, 1.106)
pt3dadd(192.986, 104.604, 18.278, 1.116)
pt3dadd(193.103, 104.577, 18.271, 1.066)
pt3dadd(193.22, 104.551, 18.264, 1.018)
pt3dadd(193.337, 104.524, 18.258, 0.97)
pt3dadd(193.453, 104.497, 18.251, 0.922)
pt3dadd(193.57, 104.471, 18.244, 0.872)
pt3dadd(193.687, 104.444, 18.238, 0.824)
pt3dadd(193.804, 104.417, 18.231, 0.776)
pt3dadd(193.92, 104.391, 18.224, 0.728)
pt3dadd(194.038, 104.364, 18.218, 0.678)
pt3dadd(194.154, 104.339, 18.211, 0.638)
pt3dadd(194.273, 104.326, 18.201, 0.654)
pt3dadd(194.392, 104.314, 18.191, 0.67)
pt3dadd(194.51, 104.301, 18.181, 0.686)
pt3dadd(194.629, 104.289, 18.171, 0.702)
pt3dadd(194.748, 104.276, 18.161, 0.718)
pt3dadd(194.867, 104.264, 18.151, 0.734)
pt3dadd(194.986, 104.251, 18.141, 0.75)
pt3dadd(195.104, 104.239, 18.131, 0.766)
pt3dadd(195.223, 104.226, 18.122, 0.782)
pt3dadd(195.341, 104.216, 18.11, 0.8)
pt3dadd(195.458, 104.217, 18.088, 0.828)
pt3dadd(195.576, 104.218, 18.067, 0.856)
pt3dadd(195.694, 104.22, 18.046, 0.882)
pt3dadd(195.81, 104.221, 18.025, 0.91)
pt3dadd(195.928, 104.222, 18.004, 0.938)
pt3dadd(196.045, 104.223, 17.982, 0.966)
pt3dadd(196.162, 104.225, 17.961, 0.994)
pt3dadd(196.279, 104.226, 17.94, 1.02)
pt3dadd(196.397, 104.227, 17.919, 1.048)
pt3dadd(196.512, 104.231, 17.893, 1.064)
pt3dadd(196.622, 104.243, 17.856, 1.048)
pt3dadd(196.734, 104.255, 17.819, 1.032)
pt3dadd(196.844, 104.268, 17.782, 1.016)
pt3dadd(196.956, 104.28, 17.745, 0.998)
pt3dadd(197.066, 104.292, 17.708, 0.982)
pt3dadd(197.177, 104.304, 17.671, 0.966)
pt3dadd(197.288, 104.316, 17.635, 0.95)
pt3dadd(197.399, 104.328, 17.597, 0.932)
pt3dadd(197.509, 104.341, 17.56, 0.916)
pt3dadd(197.62, 104.361, 17.527, 0.914)
pt3dadd(197.729, 104.403, 17.505, 0.946)
pt3dadd(197.838, 104.445, 17.483, 0.978)
pt3dadd(197.947, 104.487, 17.46, 1.01)
pt3dadd(198.056, 104.529, 17.438, 1.042)
pt3dadd(198.166, 104.571, 17.415, 1.076)
pt3dadd(198.275, 104.613, 17.393, 1.108)
pt3dadd(198.384, 104.655, 17.37, 1.14)
pt3dadd(198.493, 104.697, 17.348, 1.172)
pt3dadd(198.602, 104.739, 17.326, 1.206)
pt3dadd(198.713, 104.778, 17.305, 1.224)
pt3dadd(198.827, 104.81, 17.29, 1.206)
pt3dadd(198.941, 104.842, 17.274, 1.186)
pt3dadd(199.055, 104.874, 17.259, 1.166)
pt3dadd(199.17, 104.906, 17.243, 1.148)
pt3dadd(199.284, 104.937, 17.228, 1.128)
pt3dadd(199.398, 104.969, 17.212, 1.11)
pt3dadd(199.512, 105.001, 17.197, 1.09)
pt3dadd(199.626, 105.033, 17.182, 1.07)
pt3dadd(199.74, 105.065, 17.166, 1.052)
pt3dadd(199.856, 105.093, 17.153, 1.026)
pt3dadd(199.974, 105.111, 17.146, 0.984)
pt3dadd(200.093, 105.13, 17.138, 0.942)
pt3dadd(200.21, 105.149, 17.131, 0.9)
pt3dadd(200.329, 105.168, 17.123, 0.858)
pt3dadd(200.447, 105.186, 17.116, 0.816)
pt3dadd(200.566, 105.205, 17.108, 0.774)
pt3dadd(200.683, 105.224, 17.101, 0.734)
pt3dadd(200.802, 105.243, 17.093, 0.692)
pt3dadd(200.92, 105.261, 17.086, 0.65)
pt3dadd(201.038, 105.274, 17.081, 0.616)
pt3dadd(201.158, 105.278, 17.081, 0.6)
pt3dadd(201.278, 105.281, 17.081, 0.584)
pt3dadd(201.398, 105.284, 17.081, 0.568)
pt3dadd(201.518, 105.288, 17.081, 0.552)
pt3dadd(201.638, 105.291, 17.081, 0.536)
pt3dadd(201.758, 105.294, 17.081, 0.52)
pt3dadd(201.878, 105.297, 17.081, 0.502)
pt3dadd(201.998, 105.301, 17.081, 0.486)
pt3dadd(202.118, 105.304, 17.081, 0.47)
pt3dadd(202.237, 105.301, 17.081, 0.466)
pt3dadd(202.357, 105.285, 17.082, 0.484)
pt3dadd(202.476, 105.27, 17.082, 0.502)
pt3dadd(202.595, 105.254, 17.082, 0.52)
pt3dadd(202.714, 105.238, 17.082, 0.536)
pt3dadd(202.832, 105.223, 17.082, 0.554)
pt3dadd(202.951, 105.207, 17.082, 0.572)
pt3dadd(203.071, 105.192, 17.082, 0.59)
pt3dadd(203.19, 105.176, 17.082, 0.608)
pt3dadd(203.309, 105.161, 17.082, 0.626)
pt3dadd(203.425, 105.136, 17.082, 0.642)
pt3dadd(203.538, 105.096, 17.082, 0.66)
pt3dadd(203.652, 105.056, 17.082, 0.676)
pt3dadd(203.765, 105.016, 17.083, 0.694)
pt3dadd(203.878, 104.976, 17.083, 0.71)
pt3dadd(203.99, 104.935, 17.083, 0.728)
pt3dadd(204.104, 104.895, 17.083, 0.744)
pt3dadd(204.217, 104.855, 17.083, 0.76)
pt3dadd(204.33, 104.815, 17.083, 0.778)
pt3dadd(204.443, 104.775, 17.083, 0.794)
pt3dadd(204.556, 104.733, 17.083, 0.802)
pt3dadd(204.667, 104.69, 17.084, 0.8)
pt3dadd(204.78, 104.647, 17.084, 0.796)
pt3dadd(204.892, 104.604, 17.084, 0.792)
pt3dadd(205.003, 104.561, 17.084, 0.79)
pt3dadd(205.116, 104.518, 17.084, 0.786)
pt3dadd(205.228, 104.475, 17.085, 0.782)
pt3dadd(205.339, 104.432, 17.085, 0.78)
pt3dadd(205.452, 104.389, 17.085, 0.776)
pt3dadd(205.564, 104.346, 17.085, 0.774)
pt3dadd(205.676, 104.306, 17.085, 0.758)
pt3dadd(205.792, 104.27, 17.086, 0.726)
pt3dadd(205.906, 104.234, 17.086, 0.694)
pt3dadd(206.021, 104.199, 17.087, 0.662)
pt3dadd(206.135, 104.163, 17.087, 0.63)
pt3dadd(206.25, 104.127, 17.087, 0.598)
pt3dadd(206.364, 104.092, 17.087, 0.566)
pt3dadd(206.479, 104.056, 17.088, 0.534)
pt3dadd(206.593, 104.02, 17.088, 0.502)
pt3dadd(206.708, 103.985, 17.088, 0.47)
pt3dadd(206.824, 103.953, 17.089, 0.452)
pt3dadd(206.941, 103.926, 17.09, 0.452)
pt3dadd(207.058, 103.9, 17.09, 0.452)
pt3dadd(207.175, 103.873, 17.091, 0.452)
pt3dadd(207.292, 103.846, 17.092, 0.452)
pt3dadd(207.409, 103.82, 17.092, 0.452)
}
}
proc shape3d_154() {
dend_7[18] { pt3dadd(207.526, 103.793, 17.093, 0.452)
pt3dadd(207.643, 103.767, 17.094, 0.452)
pt3dadd(207.76, 103.74, 17.094, 0.452)
pt3dadd(207.877, 103.713, 17.095, 0.452)
pt3dadd(207.992, 103.68, 17.096, 0.468)
pt3dadd(208.105, 103.64, 17.097, 0.506)
pt3dadd(208.218, 103.599, 17.099, 0.546)
pt3dadd(208.331, 103.559, 17.1, 0.584)
pt3dadd(208.444, 103.518, 17.101, 0.622)
pt3dadd(208.556, 103.478, 17.102, 0.66)
pt3dadd(208.669, 103.437, 17.104, 0.698)
pt3dadd(208.782, 103.397, 17.105, 0.736)
pt3dadd(208.896, 103.356, 17.106, 0.774)
pt3dadd(209.009, 103.316, 17.108, 0.812)
pt3dadd(209.122, 103.276, 17.109, 0.846)
pt3dadd(209.236, 103.238, 17.111, 0.876)
pt3dadd(209.35, 103.2, 17.113, 0.906)
pt3dadd(209.462, 103.161, 17.115, 0.936)
pt3dadd(209.576, 103.123, 17.118, 0.966)
pt3dadd(209.69, 103.085, 17.12, 0.996)
pt3dadd(209.804, 103.047, 17.122, 1.026)
pt3dadd(209.917, 103.008, 17.124, 1.056)
pt3dadd(210.031, 102.97, 17.126, 1.086)
pt3dadd(210.145, 102.932, 17.128, 1.114)
pt3dadd(210.26, 102.899, 17.131, 1.128)
pt3dadd(210.377, 102.871, 17.134, 1.124)
pt3dadd(210.493, 102.844, 17.138, 1.122)
pt3dadd(210.611, 102.817, 17.141, 1.118)
pt3dadd(210.727, 102.79, 17.145, 1.114)
pt3dadd(210.844, 102.762, 17.148, 1.112)
pt3dadd(210.961, 102.735, 17.152, 1.108)
pt3dadd(211.078, 102.708, 17.155, 1.104)
pt3dadd(211.194, 102.681, 17.159, 1.1)
pt3dadd(211.312, 102.654, 17.162, 1.098)
pt3dadd(211.429, 102.633, 17.168, 1.078)
pt3dadd(211.548, 102.62, 17.176, 1.042)
pt3dadd(211.667, 102.607, 17.183, 1.008)
pt3dadd(211.786, 102.594, 17.191, 0.972)
pt3dadd(211.904, 102.58, 17.198, 0.936)
pt3dadd(212.023, 102.567, 17.206, 0.9)
pt3dadd(212.143, 102.554, 17.213, 0.866)
pt3dadd(212.262, 102.541, 17.221, 0.83)
pt3dadd(212.381, 102.528, 17.229, 0.794)
pt3dadd(212.5, 102.514, 17.236, 0.76)
pt3dadd(212.618, 102.506, 17.246, 0.73)
pt3dadd(212.737, 102.504, 17.258, 0.71)
pt3dadd(212.857, 102.502, 17.27, 0.69)
pt3dadd(212.976, 102.499, 17.282, 0.668)
pt3dadd(213.095, 102.497, 17.294, 0.648)
pt3dadd(213.214, 102.495, 17.306, 0.626)
pt3dadd(213.334, 102.492, 17.318, 0.606)
pt3dadd(213.452, 102.49, 17.33, 0.584)
pt3dadd(213.571, 102.487, 17.342, 0.564)
pt3dadd(213.69, 102.485, 17.354, 0.542)
pt3dadd(213.808, 102.484, 17.374, 0.528)
pt3dadd(213.923, 102.484, 17.402, 0.52)
pt3dadd(214.038, 102.484, 17.43, 0.512)
pt3dadd(214.153, 102.484, 17.457, 0.504)
pt3dadd(214.268, 102.484, 17.485, 0.496)
pt3dadd(214.384, 102.484, 17.513, 0.488)
pt3dadd(214.5, 102.484, 17.54, 0.48)
pt3dadd(214.615, 102.484, 17.568, 0.472)
pt3dadd(214.73, 102.484, 17.596, 0.464)
pt3dadd(214.846, 102.484, 17.623, 0.456)
pt3dadd(214.958, 102.484, 17.657, 0.45)
pt3dadd(215.069, 102.484, 17.695, 0.448)
pt3dadd(215.18, 102.484, 17.733, 0.444)
pt3dadd(215.291, 102.484, 17.771, 0.442)
pt3dadd(215.402, 102.484, 17.809, 0.438)
pt3dadd(215.513, 102.484, 17.847, 0.436)
pt3dadd(215.624, 102.484, 17.885, 0.434)
pt3dadd(215.736, 102.484, 17.922, 0.43)
pt3dadd(215.846, 102.484, 17.96, 0.428)
pt3dadd(215.958, 102.484, 17.998, 0.424)
pt3dadd(216.071, 102.484, 18.031, 0.412)
pt3dadd(216.185, 102.484, 18.062, 0.396)
pt3dadd(216.299, 102.484, 18.092, 0.38)
pt3dadd(216.414, 102.484, 18.122, 0.362)
pt3dadd(216.528, 102.484, 18.152, 0.344)
pt3dadd(216.642, 102.484, 18.183, 0.328)
pt3dadd(216.757, 102.484, 18.213, 0.31)
pt3dadd(216.871, 102.484, 18.243, 0.294)
pt3dadd(216.985, 102.484, 18.273, 0.276)
pt3dadd(217.1, 102.484, 18.304, 0.26)
pt3dadd(217.216, 102.484, 18.33, 0.26)
pt3dadd(217.332, 102.484, 18.353, 0.272)
pt3dadd(217.45, 102.484, 18.377, 0.284)
pt3dadd(217.566, 102.484, 18.4, 0.296)
pt3dadd(217.682, 102.484, 18.424, 0.308)
pt3dadd(217.799, 102.484, 18.447, 0.32)
pt3dadd(217.915, 102.484, 18.471, 0.332)
pt3dadd(218.033, 102.484, 18.494, 0.344)
pt3dadd(218.149, 102.484, 18.517, 0.356)
pt3dadd(218.266, 102.484, 18.541, 0.368)
pt3dadd(218.381, 102.484, 18.569, 0.382)
pt3dadd(218.495, 102.484, 18.599, 0.4)
pt3dadd(218.61, 102.484, 18.63, 0.416)
pt3dadd(218.724, 102.484, 18.66, 0.434)
pt3dadd(218.838, 102.484, 18.691, 0.45)
pt3dadd(218.952, 102.484, 18.721, 0.468)
pt3dadd(219.067, 102.484, 18.752, 0.484)
pt3dadd(219.181, 102.484, 18.782, 0.502)
pt3dadd(219.295, 102.484, 18.813, 0.518)
pt3dadd(219.409, 102.484, 18.843, 0.536)
pt3dadd(219.522, 102.484, 18.876, 0.546)
pt3dadd(219.635, 102.484, 18.911, 0.554)
pt3dadd(219.748, 102.484, 18.946, 0.562)
pt3dadd(219.86, 102.484, 18.981, 0.568)
pt3dadd(219.972, 102.484, 19.016, 0.576)
pt3dadd(220.085, 102.484, 19.051, 0.584)
pt3dadd(220.198, 102.484, 19.086, 0.59)
pt3dadd(220.31, 102.484, 19.12, 0.598)
pt3dadd(220.422, 102.484, 19.155, 0.606)
pt3dadd(220.535, 102.484, 19.19, 0.612)
pt3dadd(220.65, 102.484, 19.218, 0.592)
pt3dadd(220.766, 102.484, 19.242, 0.558)
pt3dadd(220.883, 102.484, 19.266, 0.524)
pt3dadd(220.999, 102.484, 19.29, 0.488)
pt3dadd(221.116, 102.484, 19.314, 0.454)
pt3dadd(221.232, 102.484, 19.338, 0.42)
pt3dadd(221.348, 102.484, 19.362, 0.384)
pt3dadd(221.465, 102.484, 19.386, 0.35)
pt3dadd(221.581, 102.484, 19.41, 0.316)
pt3dadd(221.699, 102.484, 19.434, 0.28)
pt3dadd(221.816, 102.484, 19.451, 0.286)
pt3dadd(221.935, 102.484, 19.464, 0.314)
pt3dadd(222.054, 102.484, 19.476, 0.34)
pt3dadd(222.174, 102.484, 19.489, 0.368)
pt3dadd(222.293, 102.484, 19.502, 0.394)
pt3dadd(222.412, 102.484, 19.515, 0.42)
pt3dadd(222.53, 102.484, 19.527, 0.448)
pt3dadd(222.649, 102.484, 19.54, 0.474)
pt3dadd(222.768, 102.484, 19.553, 0.502)
pt3dadd(222.888, 102.484, 19.566, 0.528)
pt3dadd(223.007, 102.484, 19.573, 0.554)
pt3dadd(223.127, 102.484, 19.578, 0.578)
pt3dadd(223.247, 102.484, 19.582, 0.604)
pt3dadd(223.367, 102.484, 19.587, 0.628)
pt3dadd(223.487, 102.484, 19.592, 0.654)
pt3dadd(223.607, 102.484, 19.596, 0.678)
pt3dadd(223.727, 102.484, 19.601, 0.704)
pt3dadd(223.847, 102.484, 19.605, 0.728)
pt3dadd(223.966, 102.484, 19.61, 0.754)
pt3dadd(224.086, 102.484, 19.615, 0.778)
pt3dadd(224.206, 102.484, 19.616, 0.786)
pt3dadd(224.326, 102.484, 19.617, 0.786)
pt3dadd(224.446, 102.484, 19.617, 0.786)
pt3dadd(224.566, 102.484, 19.618, 0.784)
pt3dadd(224.686, 102.484, 19.618, 0.784)
pt3dadd(224.806, 102.484, 19.618, 0.784)
pt3dadd(224.926, 102.484, 19.619, 0.784)
pt3dadd(225.046, 102.484, 19.619, 0.784)
pt3dadd(225.166, 102.484, 19.62, 0.784)
pt3dadd(225.286, 102.484, 19.62, 0.784)
pt3dadd(225.406, 102.484, 19.621, 0.76)
pt3dadd(225.526, 102.484, 19.621, 0.726)
pt3dadd(225.646, 102.484, 19.622, 0.69)
pt3dadd(225.766, 102.484, 19.623, 0.656)
pt3dadd(225.886, 102.484, 19.623, 0.622)
pt3dadd(226.006, 102.484, 19.624, 0.588)
pt3dadd(226.126, 102.484, 19.625, 0.554)
pt3dadd(226.246, 102.484, 19.625, 0.518)
pt3dadd(226.366, 102.484, 19.626, 0.484)
pt3dadd(226.486, 102.484, 19.627, 0.45)
pt3dadd(226.606, 102.484, 19.628, 0.426)
pt3dadd(226.726, 102.484, 19.629, 0.408)
pt3dadd(226.846, 102.485, 19.631, 0.39)
pt3dadd(226.966, 102.485, 19.632, 0.374)
pt3dadd(227.086, 102.485, 19.634, 0.356)
pt3dadd(227.206, 102.485, 19.635, 0.338)
pt3dadd(227.326, 102.485, 19.637, 0.32)
pt3dadd(227.446, 102.485, 19.638, 0.302)
pt3dadd(227.566, 102.485, 19.639, 0.284)
pt3dadd(227.686, 102.485, 19.641, 0.266)
pt3dadd(227.806, 102.485, 19.643, 0.298)
pt3dadd(227.926, 102.485, 19.646, 0.352)
pt3dadd(228.046, 102.485, 19.648, 0.406)
pt3dadd(228.166, 102.485, 19.651, 0.46)
pt3dadd(228.286, 102.485, 19.653, 0.514)
pt3dadd(228.406, 102.485, 19.656, 0.568)
pt3dadd(228.526, 102.485, 19.659, 0.622)
pt3dadd(228.646, 102.485, 19.661, 0.676)
pt3dadd(228.766, 102.485, 19.664, 0.732)
pt3dadd(228.886, 102.486, 19.666, 0.786)
pt3dadd(229.006, 102.486, 19.671, 0.818)
pt3dadd(229.126, 102.486, 19.676, 0.842)
pt3dadd(229.244, 102.486, 19.681, 0.864)
pt3dadd(229.364, 102.486, 19.686, 0.888)
pt3dadd(229.484, 102.486, 19.691, 0.91)
pt3dadd(229.604, 102.486, 19.696, 0.934)
pt3dadd(229.724, 102.486, 19.701, 0.956)
pt3dadd(229.844, 102.486, 19.706, 0.98)
pt3dadd(229.964, 102.487, 19.712, 1.004)
pt3dadd(230.084, 102.487, 19.717, 1.026)
pt3dadd(230.203, 102.487, 19.724, 1.024)
pt3dadd(230.323, 102.487, 19.732, 1.012)
pt3dadd(230.443, 102.487, 19.74, 0.998)
pt3dadd(230.562, 102.488, 19.749, 0.986)
pt3dadd(230.682, 102.488, 19.757, 0.972)
pt3dadd(230.802, 102.488, 19.765, 0.96)
}
}
proc shape3d_155() {
dend_7[18] { pt3dadd(230.921, 102.488, 19.774, 0.946)
pt3dadd(231.041, 102.489, 19.782, 0.934)
pt3dadd(231.161, 102.489, 19.79, 0.92)
pt3dadd(231.28, 102.489, 19.798, 0.908)
pt3dadd(231.4, 102.489, 19.809, 0.904)
pt3dadd(231.518, 102.49, 19.82, 0.904)
pt3dadd(231.637, 102.49, 19.832, 0.904)
pt3dadd(231.757, 102.49, 19.844, 0.904)
pt3dadd(231.876, 102.491, 19.855, 0.904)
pt3dadd(231.995, 102.491, 19.867, 0.904)
pt3dadd(232.115, 102.492, 19.878, 0.904)
pt3dadd(232.234, 102.492, 19.89, 0.904)
pt3dadd(232.352, 102.492, 19.901, 0.904)
pt3dadd(232.472, 102.493, 19.913, 0.904)
pt3dadd(232.585, 102.493, 19.942, 0.892)
pt3dadd(232.697, 102.494, 19.979, 0.876)
pt3dadd(232.808, 102.495, 20.016, 0.86)
pt3dadd(232.92, 102.495, 20.054, 0.842)
pt3dadd(233.032, 102.496, 20.091, 0.826)
pt3dadd(233.143, 102.497, 20.128, 0.81)
pt3dadd(233.254, 102.498, 20.165, 0.794)
pt3dadd(233.365, 102.498, 20.202, 0.776)
pt3dadd(233.477, 102.499, 20.24, 0.76)
pt3dadd(233.588, 102.5, 20.277, 0.744)
pt3dadd(233.702, 102.501, 20.308, 0.75)
pt3dadd(233.816, 102.502, 20.337, 0.766)
pt3dadd(233.932, 102.504, 20.366, 0.782)
pt3dadd(234.047, 102.505, 20.395, 0.798)
pt3dadd(234.162, 102.507, 20.424, 0.814)
pt3dadd(234.276, 102.508, 20.452, 0.83)
pt3dadd(234.391, 102.509, 20.481, 0.846)
pt3dadd(234.506, 102.511, 20.51, 0.862)
pt3dadd(234.622, 102.512, 20.539, 0.878)
pt3dadd(234.736, 102.513, 20.568, 0.894)
pt3dadd(234.853, 102.515, 20.59, 0.906)
pt3dadd(234.971, 102.518, 20.61, 0.918)
pt3dadd(235.088, 102.52, 20.629, 0.93)
pt3dadd(235.206, 102.522, 20.649, 0.94)
pt3dadd(235.324, 102.525, 20.669, 0.952)
pt3dadd(235.441, 102.527, 20.688, 0.964)
pt3dadd(235.559, 102.529, 20.708, 0.974)
pt3dadd(235.676, 102.532, 20.728, 0.986)
pt3dadd(235.794, 102.534, 20.748, 0.998)
pt3dadd(235.912, 102.537, 20.767, 1.008)
pt3dadd(236.03, 102.54, 20.78, 0.988)
pt3dadd(236.149, 102.544, 20.791, 0.954)
pt3dadd(236.269, 102.548, 20.801, 0.92)
pt3dadd(236.388, 102.552, 20.811, 0.888)
pt3dadd(236.508, 102.555, 20.822, 0.854)
pt3dadd(236.627, 102.559, 20.832, 0.82)
pt3dadd(236.746, 102.563, 20.843, 0.786)
pt3dadd(236.866, 102.567, 20.853, 0.754)
pt3dadd(236.984, 102.571, 20.863, 0.72)
pt3dadd(237.104, 102.575, 20.874, 0.686)
pt3dadd(237.223, 102.582, 20.876, 0.678)
pt3dadd(237.343, 102.591, 20.876, 0.678)
pt3dadd(237.463, 102.6, 20.876, 0.678)
pt3dadd(237.583, 102.609, 20.876, 0.678)
pt3dadd(237.702, 102.617, 20.876, 0.678)
pt3dadd(237.822, 102.626, 20.876, 0.678)
pt3dadd(237.942, 102.635, 20.876, 0.678)
pt3dadd(238.061, 102.644, 20.876, 0.678)
pt3dadd(238.181, 102.653, 20.876, 0.678)
pt3dadd(238.301, 102.661, 20.876, 0.678)
pt3dadd(238.42, 102.673, 20.876, 0.668)
pt3dadd(238.54, 102.687, 20.876, 0.654)
pt3dadd(238.658, 102.7, 20.876, 0.64)
pt3dadd(238.778, 102.714, 20.876, 0.626)
pt3dadd(238.897, 102.727, 20.876, 0.612)
pt3dadd(239.016, 102.741, 20.876, 0.598)
pt3dadd(239.136, 102.754, 20.876, 0.584)
pt3dadd(239.255, 102.767, 20.876, 0.57)
pt3dadd(239.374, 102.781, 20.876, 0.556)
pt3dadd(239.494, 102.794, 20.876, 0.542)
pt3dadd(239.61, 102.821, 20.876, 0.544)
pt3dadd(239.726, 102.852, 20.876, 0.552)
pt3dadd(239.842, 102.883, 20.876, 0.562)
pt3dadd(239.958, 102.914, 20.876, 0.57)
pt3dadd(240.073, 102.945, 20.876, 0.578)
pt3dadd(240.19, 102.976, 20.876, 0.586)
pt3dadd(240.306, 103.007, 20.876, 0.596)
pt3dadd(240.421, 103.038, 20.876, 0.604)
pt3dadd(240.538, 103.07, 20.876, 0.612)
pt3dadd(240.653, 103.101, 20.876, 0.62)
pt3dadd(240.766, 103.142, 20.876, 0.64)
pt3dadd(240.877, 103.186, 20.876, 0.66)
pt3dadd(240.989, 103.23, 20.876, 0.68)
pt3dadd(241.1, 103.274, 20.876, 0.702)
pt3dadd(241.212, 103.318, 20.876, 0.722)
pt3dadd(241.324, 103.362, 20.876, 0.742)
pt3dadd(241.435, 103.406, 20.876, 0.762)
pt3dadd(241.547, 103.45, 20.876, 0.784)
pt3dadd(241.658, 103.494, 20.876, 0.804)
pt3dadd(241.771, 103.538, 20.876, 0.824)
pt3dadd(241.885, 103.572, 20.876, 0.786)
pt3dadd(242.002, 103.603, 20.876, 0.734)
pt3dadd(242.117, 103.635, 20.876, 0.682)
pt3dadd(242.233, 103.667, 20.876, 0.63)
pt3dadd(242.348, 103.699, 20.876, 0.578)
pt3dadd(242.464, 103.731, 20.876, 0.526)
pt3dadd(242.58, 103.763, 20.876, 0.476)
pt3dadd(242.695, 103.795, 20.876, 0.424)
pt3dadd(242.812, 103.827, 20.876, 0.372)
pt3dadd(242.927, 103.858, 20.876, 0.32)
pt3dadd(243.044, 103.883, 20.876, 0.304)
pt3dadd(243.162, 103.906, 20.876, 0.296)
pt3dadd(243.28, 103.929, 20.876, 0.288)
pt3dadd(243.397, 103.952, 20.876, 0.278)
pt3dadd(243.515, 103.976, 20.876, 0.27)
pt3dadd(243.632, 103.999, 20.876, 0.262)
pt3dadd(243.751, 104.022, 20.876, 0.254)
pt3dadd(243.869, 104.045, 20.876, 0.244)
pt3dadd(243.986, 104.068, 20.876, 0.236)
pt3dadd(244.104, 104.091, 20.876, 0.228)
pt3dadd(244.223, 104.11, 20.876, 0.242)
pt3dadd(244.342, 104.127, 20.876, 0.262)
pt3dadd(244.46, 104.144, 20.876, 0.282)
pt3dadd(244.579, 104.162, 20.876, 0.3)
pt3dadd(244.698, 104.179, 20.876, 0.32)
pt3dadd(244.817, 104.196, 20.876, 0.34)
pt3dadd(244.936, 104.214, 20.876, 0.36)
pt3dadd(245.053, 104.231, 20.876, 0.378)
pt3dadd(245.172, 104.248, 20.876, 0.398)
pt3dadd(245.291, 104.265, 20.876, 0.418)
pt3dadd(245.41, 104.287, 20.876, 0.438)
pt3dadd(245.527, 104.31, 20.876, 0.46)
pt3dadd(245.645, 104.332, 20.876, 0.482)
pt3dadd(245.762, 104.355, 20.876, 0.502)
pt3dadd(245.881, 104.377, 20.876, 0.524)
pt3dadd(245.999, 104.4, 20.876, 0.546)
pt3dadd(246.116, 104.422, 20.876, 0.566)
pt3dadd(246.234, 104.445, 20.876, 0.588)
pt3dadd(246.353, 104.467, 20.876, 0.61)
pt3dadd(246.47, 104.49, 20.876, 0.63)
pt3dadd(246.582, 104.532, 20.876, 0.618)
pt3dadd(246.694, 104.577, 20.876, 0.6)
pt3dadd(246.805, 104.622, 20.876, 0.584)
pt3dadd(246.917, 104.666, 20.876, 0.568)
pt3dadd(247.027, 104.711, 20.876, 0.55)
pt3dadd(247.139, 104.756, 20.876, 0.534)
pt3dadd(247.25, 104.8, 20.876, 0.518)
pt3dadd(247.362, 104.845, 20.876, 0.502)
pt3dadd(247.474, 104.889, 20.876, 0.484)
pt3dadd(247.584, 104.934, 20.876, 0.468)
pt3dadd(247.7, 104.965, 20.876, 0.466)
pt3dadd(247.817, 104.996, 20.876, 0.464)
pt3dadd(247.932, 105.026, 20.876, 0.462)
pt3dadd(248.048, 105.056, 20.876, 0.462)
pt3dadd(248.165, 105.086, 20.876, 0.46)
pt3dadd(248.281, 105.117, 20.876, 0.458)
pt3dadd(248.398, 105.147, 20.876, 0.456)
pt3dadd(248.513, 105.177, 20.876, 0.454)
pt3dadd(248.629, 105.207, 20.875, 0.454)
pt3dadd(248.746, 105.237, 20.875, 0.452)
pt3dadd(248.863, 105.258, 20.875, 0.452)
pt3dadd(248.982, 105.277, 20.875, 0.452)
pt3dadd(249.101, 105.296, 20.875, 0.452)
pt3dadd(249.22, 105.315, 20.875, 0.452)
pt3dadd(249.337, 105.335, 20.875, 0.452)
pt3dadd(249.456, 105.354, 20.875, 0.452)
pt3dadd(249.575, 105.374, 20.875, 0.452)
pt3dadd(249.692, 105.393, 20.875, 0.452)
pt3dadd(249.811, 105.412, 20.875, 0.452)
pt3dadd(249.93, 105.432, 20.875, 0.452)
pt3dadd(250.049, 105.441, 20.875, 0.458)
pt3dadd(250.169, 105.45, 20.875, 0.464)
pt3dadd(250.289, 105.459, 20.874, 0.47)
pt3dadd(250.409, 105.467, 20.874, 0.476)
pt3dadd(250.528, 105.476, 20.874, 0.482)
pt3dadd(250.648, 105.485, 20.874, 0.488)
pt3dadd(250.768, 105.494, 20.874, 0.494)
pt3dadd(250.886, 105.503, 20.874, 0.5)
pt3dadd(251.006, 105.511, 20.874, 0.506)
pt3dadd(251.126, 105.52, 20.874, 0.512)
pt3dadd(251.246, 105.521, 20.873, 0.528)
pt3dadd(251.366, 105.521, 20.873, 0.544)
pt3dadd(251.486, 105.521, 20.873, 0.562)
pt3dadd(251.606, 105.521, 20.873, 0.578)
pt3dadd(251.726, 105.521, 20.873, 0.594)
pt3dadd(251.846, 105.521, 20.872, 0.612)
pt3dadd(251.966, 105.521, 20.872, 0.628)
pt3dadd(252.086, 105.521, 20.872, 0.644)
pt3dadd(252.206, 105.521, 20.872, 0.66)
pt3dadd(252.326, 105.521, 20.871, 0.678)
pt3dadd(252.446, 105.521, 20.871, 0.678)
pt3dadd(252.566, 105.521, 20.871, 0.678)
pt3dadd(252.686, 105.521, 20.87, 0.678)
pt3dadd(252.806, 105.521, 20.87, 0.678)
pt3dadd(252.926, 105.521, 20.869, 0.678)
pt3dadd(253.046, 105.521, 20.869, 0.678)
pt3dadd(253.166, 105.521, 20.868, 0.678)
pt3dadd(253.286, 105.521, 20.868, 0.678)
pt3dadd(253.406, 105.521, 20.868, 0.678)
pt3dadd(253.526, 105.521, 20.867, 0.678)
pt3dadd(253.646, 105.521, 20.866, 0.692)
pt3dadd(253.766, 105.521, 20.865, 0.706)
pt3dadd(253.886, 105.521, 20.865, 0.722)
pt3dadd(254.006, 105.521, 20.864, 0.736)
pt3dadd(254.126, 105.521, 20.863, 0.752)
pt3dadd(254.246, 105.521, 20.862, 0.766)
}
}
proc shape3d_156() {
dend_7[18] { pt3dadd(254.366, 105.521, 20.861, 0.78)
pt3dadd(254.486, 105.521, 20.86, 0.796)
pt3dadd(254.606, 105.521, 20.86, 0.81)
pt3dadd(254.726, 105.521, 20.859, 0.824)
pt3dadd(254.846, 105.521, 20.857, 0.804)
pt3dadd(254.966, 105.521, 20.855, 0.78)
pt3dadd(255.086, 105.521, 20.854, 0.756)
pt3dadd(255.206, 105.521, 20.852, 0.734)
pt3dadd(255.326, 105.521, 20.851, 0.71)
pt3dadd(255.446, 105.521, 20.849, 0.688)
pt3dadd(255.566, 105.521, 20.847, 0.664)
pt3dadd(255.686, 105.521, 20.846, 0.64)
pt3dadd(255.806, 105.521, 20.844, 0.618)
pt3dadd(255.926, 105.521, 20.843, 0.594)
pt3dadd(256.046, 105.521, 20.84, 0.564)
pt3dadd(256.166, 105.521, 20.837, 0.534)
pt3dadd(256.286, 105.521, 20.834, 0.502)
pt3dadd(256.406, 105.521, 20.831, 0.472)
pt3dadd(256.526, 105.521, 20.829, 0.442)
pt3dadd(256.646, 105.521, 20.826, 0.412)
pt3dadd(256.765, 105.521, 20.823, 0.38)
pt3dadd(256.885, 105.521, 20.82, 0.35)
pt3dadd(257.005, 105.521, 20.817, 0.32)
pt3dadd(257.125, 105.521, 20.814, 0.29)
pt3dadd(257.245, 105.521, 20.809, 0.306)
pt3dadd(257.365, 105.521, 20.804, 0.326)
pt3dadd(257.485, 105.521, 20.799, 0.344)
pt3dadd(257.605, 105.521, 20.794, 0.364)
pt3dadd(257.725, 105.521, 20.788, 0.382)
pt3dadd(257.845, 105.521, 20.783, 0.402)
pt3dadd(257.964, 105.521, 20.778, 0.42)
pt3dadd(258.084, 105.521, 20.773, 0.44)
pt3dadd(258.204, 105.521, 20.767, 0.458)
pt3dadd(258.324, 105.521, 20.762, 0.478)
pt3dadd(258.443, 105.521, 20.75, 0.496)
pt3dadd(258.563, 105.521, 20.738, 0.518)
pt3dadd(258.682, 105.521, 20.726, 0.536)
pt3dadd(258.8, 105.521, 20.715, 0.558)
pt3dadd(258.919, 105.521, 20.703, 0.576)
pt3dadd(259.039, 105.521, 20.691, 0.598)
pt3dadd(259.158, 105.521, 20.679, 0.618)
pt3dadd(259.277, 105.521, 20.667, 0.638)
pt3dadd(259.397, 105.521, 20.655, 0.658)
pt3dadd(259.516, 105.521, 20.643, 0.678)
pt3dadd(259.633, 105.521, 20.623, 0.656)
pt3dadd(259.751, 105.521, 20.603, 0.634)
pt3dadd(259.868, 105.521, 20.583, 0.61)
pt3dadd(259.986, 105.521, 20.563, 0.586)
pt3dadd(260.104, 105.521, 20.543, 0.564)
pt3dadd(260.221, 105.521, 20.523, 0.542)
pt3dadd(260.339, 105.521, 20.503, 0.518)
pt3dadd(260.456, 105.521, 20.483, 0.496)
pt3dadd(260.574, 105.521, 20.463, 0.472)
pt3dadd(260.692, 105.521, 20.443, 0.45)
pt3dadd(260.758, 105.521, 20.36, 0.426)
pt3dadd(260.825, 105.521, 20.277, 0.404)
pt3dadd(260.891, 105.521, 20.194, 0.382)
pt3dadd(260.958, 105.521, 20.111, 0.36)
pt3dadd(261.024, 105.521, 20.027, 0.338)
pt3dadd(261.09, 105.521, 19.944, 0.316)
pt3dadd(261.157, 105.521, 19.861, 0.292)
pt3dadd(261.223, 105.521, 19.778, 0.27)
pt3dadd(261.29, 105.521, 19.694, 0.248)
pt3dadd(261.356, 105.521, 19.611, 0.226)
}
dend_7[19] {pt3dclear()
pt3dadd(167.224, 104.453, 19.608, 1.808)
pt3dadd(167.264, 104.399, 19.608, 1.784)
pt3dadd(167.338, 104.304, 19.608, 1.74)
pt3dadd(167.411, 104.209, 19.608, 1.696)
pt3dadd(167.485, 104.114, 19.608, 1.652)
pt3dadd(167.558, 104.019, 19.609, 1.608)
pt3dadd(167.632, 103.924, 19.609, 1.566)
pt3dadd(167.705, 103.829, 19.609, 1.522)
pt3dadd(167.778, 103.734, 19.609, 1.478)
pt3dadd(167.851, 103.639, 19.609, 1.434)
pt3dadd(167.924, 103.544, 19.609, 1.39)
pt3dadd(167.998, 103.449, 19.609, 1.348)
pt3dadd(168.071, 103.354, 19.61, 1.304)
pt3dadd(168.144, 103.259, 19.61, 1.26)
pt3dadd(168.217, 103.164, 19.61, 1.216)
pt3dadd(168.29, 103.069, 19.61, 1.172)
pt3dadd(168.366, 102.976, 19.613, 1.136)
pt3dadd(168.448, 102.888, 19.621, 1.118)
pt3dadd(168.529, 102.801, 19.63, 1.1)
pt3dadd(168.611, 102.713, 19.638, 1.082)
pt3dadd(168.691, 102.625, 19.646, 1.066)
pt3dadd(168.773, 102.537, 19.655, 1.048)
pt3dadd(168.854, 102.45, 19.663, 1.03)
pt3dadd(168.935, 102.362, 19.672, 1.012)
pt3dadd(169.016, 102.274, 19.68, 0.994)
pt3dadd(169.098, 102.187, 19.689, 0.976)
pt3dadd(169.182, 102.103, 19.701, 0.97)
pt3dadd(169.271, 102.026, 19.719, 0.984)
pt3dadd(169.361, 101.948, 19.737, 0.998)
pt3dadd(169.45, 101.871, 19.755, 1.01)
pt3dadd(169.538, 101.794, 19.774, 1.024)
pt3dadd(169.627, 101.716, 19.792, 1.038)
pt3dadd(169.717, 101.639, 19.81, 1.052)
pt3dadd(169.806, 101.562, 19.828, 1.064)
pt3dadd(169.895, 101.484, 19.847, 1.078)
pt3dadd(169.985, 101.407, 19.865, 1.092)
pt3dadd(170.075, 101.336, 19.89, 1.112)
pt3dadd(170.168, 101.274, 19.925, 1.144)
pt3dadd(170.262, 101.211, 19.961, 1.174)
pt3dadd(170.354, 101.149, 19.997, 1.206)
pt3dadd(170.448, 101.087, 20.033, 1.236)
pt3dadd(170.542, 101.025, 20.069, 1.268)
pt3dadd(170.634, 100.963, 20.104, 1.3)
pt3dadd(170.728, 100.901, 20.14, 1.33)
pt3dadd(170.821, 100.839, 20.176, 1.362)
pt3dadd(170.914, 100.776, 20.212, 1.394)
pt3dadd(171.004, 100.708, 20.247, 1.41)
pt3dadd(171.089, 100.633, 20.28, 1.408)
pt3dadd(171.173, 100.558, 20.313, 1.404)
pt3dadd(171.258, 100.483, 20.346, 1.402)
pt3dadd(171.343, 100.408, 20.379, 1.4)
pt3dadd(171.427, 100.333, 20.413, 1.398)
pt3dadd(171.512, 100.258, 20.446, 1.396)
pt3dadd(171.598, 100.183, 20.479, 1.394)
pt3dadd(171.682, 100.108, 20.512, 1.392)
pt3dadd(171.767, 100.033, 20.545, 1.388)
pt3dadd(171.846, 99.95, 20.571, 1.37)
pt3dadd(171.923, 99.861, 20.592, 1.338)
pt3dadd(172, 99.773, 20.613, 1.308)
pt3dadd(172.076, 99.684, 20.634, 1.278)
pt3dadd(172.153, 99.595, 20.655, 1.246)
pt3dadd(172.23, 99.507, 20.676, 1.216)
pt3dadd(172.307, 99.418, 20.697, 1.184)
pt3dadd(172.384, 99.329, 20.718, 1.154)
pt3dadd(172.46, 99.24, 20.739, 1.124)
pt3dadd(172.537, 99.152, 20.76, 1.092)
pt3dadd(172.618, 99.064, 20.774, 1.072)
pt3dadd(172.699, 98.977, 20.785, 1.054)
pt3dadd(172.781, 98.89, 20.795, 1.038)
pt3dadd(172.862, 98.803, 20.805, 1.022)
pt3dadd(172.944, 98.715, 20.815, 1.006)
pt3dadd(173.026, 98.628, 20.825, 0.99)
pt3dadd(173.107, 98.541, 20.835, 0.974)
pt3dadd(173.189, 98.454, 20.846, 0.958)
pt3dadd(173.27, 98.367, 20.856, 0.942)
pt3dadd(173.352, 98.28, 20.866, 0.926)
pt3dadd(173.436, 98.195, 20.871, 0.936)
pt3dadd(173.522, 98.111, 20.872, 0.96)
pt3dadd(173.609, 98.028, 20.873, 0.984)
pt3dadd(173.694, 97.944, 20.874, 1.01)
pt3dadd(173.78, 97.861, 20.875, 1.034)
pt3dadd(173.867, 97.777, 20.877, 1.058)
pt3dadd(173.953, 97.693, 20.878, 1.084)
pt3dadd(174.038, 97.61, 20.879, 1.108)
pt3dadd(174.125, 97.526, 20.88, 1.132)
pt3dadd(174.211, 97.443, 20.881, 1.158)
pt3dadd(174.302, 97.365, 20.882, 1.172)
pt3dadd(174.397, 97.291, 20.882, 1.18)
pt3dadd(174.491, 97.217, 20.883, 1.188)
pt3dadd(174.586, 97.142, 20.883, 1.196)
pt3dadd(174.679, 97.068, 20.884, 1.204)
pt3dadd(174.774, 96.994, 20.884, 1.212)
pt3dadd(174.868, 96.92, 20.884, 1.22)
pt3dadd(174.962, 96.846, 20.885, 1.226)
pt3dadd(175.057, 96.771, 20.885, 1.234)
pt3dadd(175.151, 96.697, 20.885, 1.242)
pt3dadd(175.254, 96.636, 20.886, 1.222)
pt3dadd(175.36, 96.58, 20.886, 1.19)
pt3dadd(175.466, 96.525, 20.887, 1.158)
pt3dadd(175.572, 96.469, 20.888, 1.126)
pt3dadd(175.679, 96.413, 20.888, 1.094)
pt3dadd(175.786, 96.357, 20.889, 1.062)
pt3dadd(175.891, 96.301, 20.889, 1.032)
pt3dadd(175.998, 96.246, 20.89, 1)
pt3dadd(176.104, 96.19, 20.89, 0.968)
pt3dadd(176.21, 96.134, 20.891, 0.936)
pt3dadd(176.314, 96.073, 20.892, 0.936)
pt3dadd(176.416, 96.01, 20.893, 0.948)
pt3dadd(176.518, 95.947, 20.894, 0.96)
pt3dadd(176.62, 95.883, 20.895, 0.972)
pt3dadd(176.722, 95.82, 20.896, 0.984)
pt3dadd(176.824, 95.757, 20.898, 0.996)
pt3dadd(176.926, 95.694, 20.899, 1.008)
pt3dadd(177.028, 95.631, 20.9, 1.02)
pt3dadd(177.13, 95.567, 20.901, 1.032)
pt3dadd(177.232, 95.504, 20.902, 1.044)
pt3dadd(177.336, 95.445, 20.904, 1.048)
pt3dadd(177.44, 95.387, 20.906, 1.048)
pt3dadd(177.546, 95.329, 20.908, 1.048)
pt3dadd(177.65, 95.271, 20.91, 1.05)
pt3dadd(177.756, 95.213, 20.912, 1.05)
pt3dadd(177.86, 95.155, 20.913, 1.05)
pt3dadd(177.966, 95.097, 20.915, 1.052)
pt3dadd(178.07, 95.039, 20.917, 1.052)
pt3dadd(178.176, 94.982, 20.919, 1.054)
pt3dadd(178.282, 94.924, 20.921, 1.054)
pt3dadd(178.388, 94.87, 20.924, 1.042)
pt3dadd(178.496, 94.817, 20.927, 1.028)
pt3dadd(178.604, 94.764, 20.93, 1.012)
pt3dadd(178.711, 94.712, 20.933, 0.998)
pt3dadd(178.819, 94.659, 20.936, 0.982)
pt3dadd(178.927, 94.607, 20.939, 0.968)
pt3dadd(179.035, 94.554, 20.942, 0.952)
pt3dadd(179.143, 94.501, 20.945, 0.938)
pt3dadd(179.25, 94.449, 20.948, 0.922)
pt3dadd(179.358, 94.396, 20.951, 0.908)
}
}
proc shape3d_157() {
dend_7[19] { pt3dadd(179.458, 94.33, 20.956, 0.904)
pt3dadd(179.556, 94.261, 20.962, 0.904)
pt3dadd(179.653, 94.191, 20.969, 0.904)
pt3dadd(179.75, 94.121, 20.975, 0.904)
pt3dadd(179.848, 94.051, 20.981, 0.904)
pt3dadd(179.945, 93.981, 20.987, 0.904)
pt3dadd(180.042, 93.912, 20.993, 0.904)
pt3dadd(180.139, 93.842, 20.999, 0.904)
pt3dadd(180.236, 93.772, 21.005, 0.904)
pt3dadd(180.334, 93.702, 21.012, 0.904)
pt3dadd(180.428, 93.629, 21.02, 0.92)
pt3dadd(180.522, 93.555, 21.028, 0.94)
pt3dadd(180.616, 93.48, 21.037, 0.96)
pt3dadd(180.709, 93.406, 21.046, 0.98)
pt3dadd(180.803, 93.332, 21.055, 1)
pt3dadd(180.898, 93.258, 21.063, 1.02)
pt3dadd(180.991, 93.183, 21.072, 1.04)
pt3dadd(181.085, 93.109, 21.081, 1.06)
pt3dadd(181.178, 93.035, 21.089, 1.08)
pt3dadd(181.272, 92.961, 21.098, 1.1)
pt3dadd(181.363, 92.885, 21.113, 1.116)
pt3dadd(181.453, 92.808, 21.129, 1.13)
pt3dadd(181.544, 92.732, 21.146, 1.144)
pt3dadd(181.634, 92.656, 21.163, 1.158)
pt3dadd(181.724, 92.58, 21.18, 1.172)
pt3dadd(181.816, 92.504, 21.196, 1.186)
pt3dadd(181.906, 92.427, 21.213, 1.2)
pt3dadd(181.997, 92.351, 21.23, 1.214)
pt3dadd(182.087, 92.275, 21.247, 1.228)
pt3dadd(182.177, 92.199, 21.263, 1.244)
pt3dadd(182.26, 92.127, 21.304, 1.196)
pt3dadd(182.341, 92.057, 21.348, 1.14)
pt3dadd(182.423, 91.987, 21.392, 1.084)
pt3dadd(182.504, 91.916, 21.436, 1.03)
pt3dadd(182.586, 91.846, 21.479, 0.974)
pt3dadd(182.668, 91.775, 21.524, 0.918)
pt3dadd(182.749, 91.705, 21.567, 0.862)
pt3dadd(182.831, 91.634, 21.611, 0.806)
pt3dadd(182.912, 91.564, 21.655, 0.75)
pt3dadd(182.994, 91.494, 21.699, 0.696)
pt3dadd(183.084, 91.42, 21.726, 0.704)
pt3dadd(183.174, 91.347, 21.751, 0.722)
pt3dadd(183.264, 91.273, 21.775, 0.74)
pt3dadd(183.354, 91.2, 21.8, 0.758)
pt3dadd(183.444, 91.126, 21.825, 0.776)
pt3dadd(183.534, 91.053, 21.849, 0.794)
pt3dadd(183.624, 90.979, 21.874, 0.812)
pt3dadd(183.714, 90.906, 21.899, 0.83)
pt3dadd(183.804, 90.832, 21.923, 0.846)
pt3dadd(183.894, 90.759, 21.948, 0.864)
pt3dadd(183.996, 90.699, 21.963, 0.858)
pt3dadd(184.1, 90.641, 21.977, 0.848)
pt3dadd(184.204, 90.583, 21.992, 0.836)
pt3dadd(184.308, 90.526, 22.006, 0.826)
pt3dadd(184.411, 90.468, 22.02, 0.816)
pt3dadd(184.516, 90.41, 22.034, 0.806)
pt3dadd(184.619, 90.352, 22.048, 0.794)
pt3dadd(184.723, 90.294, 22.062, 0.784)
pt3dadd(184.826, 90.237, 22.076, 0.774)
pt3dadd(184.931, 90.179, 22.091, 0.764)
pt3dadd(185.034, 90.119, 22.097, 0.74)
pt3dadd(185.138, 90.06, 22.102, 0.716)
pt3dadd(185.243, 90, 22.108, 0.692)
pt3dadd(185.346, 89.94, 22.113, 0.666)
pt3dadd(185.45, 89.88, 22.119, 0.642)
pt3dadd(185.554, 89.821, 22.124, 0.618)
pt3dadd(185.658, 89.761, 22.13, 0.594)
pt3dadd(185.761, 89.701, 22.135, 0.57)
pt3dadd(185.866, 89.641, 22.141, 0.546)
pt3dadd(185.969, 89.582, 22.146, 0.522)
pt3dadd(186.07, 89.516, 22.146, 0.494)
pt3dadd(186.17, 89.451, 22.147, 0.466)
pt3dadd(186.271, 89.386, 22.147, 0.436)
pt3dadd(186.372, 89.32, 22.147, 0.408)
pt3dadd(186.473, 89.255, 22.148, 0.38)
pt3dadd(186.574, 89.19, 22.148, 0.352)
pt3dadd(186.674, 89.124, 22.148, 0.324)
pt3dadd(186.774, 89.059, 22.148, 0.296)
pt3dadd(186.875, 88.994, 22.149, 0.268)
pt3dadd(186.976, 88.928, 22.149, 0.24)
pt3dadd(187.074, 88.86, 22.149, 0.31)
pt3dadd(187.174, 88.792, 22.15, 0.384)
pt3dadd(187.272, 88.724, 22.15, 0.458)
pt3dadd(187.37, 88.655, 22.151, 0.53)
pt3dadd(187.469, 88.587, 22.151, 0.604)
pt3dadd(187.568, 88.519, 22.152, 0.678)
pt3dadd(187.667, 88.45, 22.153, 0.752)
pt3dadd(187.765, 88.382, 22.153, 0.824)
pt3dadd(187.864, 88.314, 22.154, 0.898)
pt3dadd(187.963, 88.246, 22.154, 0.972)
pt3dadd(188.066, 88.186, 22.155, 1.012)
pt3dadd(188.171, 88.126, 22.156, 1.05)
pt3dadd(188.275, 88.066, 22.157, 1.088)
pt3dadd(188.38, 88.007, 22.158, 1.126)
pt3dadd(188.483, 87.947, 22.159, 1.164)
pt3dadd(188.587, 87.887, 22.159, 1.202)
pt3dadd(188.692, 87.828, 22.16, 1.242)
pt3dadd(188.795, 87.768, 22.161, 1.28)
pt3dadd(188.899, 87.708, 22.162, 1.318)
pt3dadd(189.004, 87.648, 22.163, 1.356)
pt3dadd(189.113, 87.6, 22.164, 1.354)
pt3dadd(189.223, 87.551, 22.166, 1.354)
pt3dadd(189.332, 87.502, 22.167, 1.352)
pt3dadd(189.443, 87.454, 22.169, 1.35)
pt3dadd(189.552, 87.405, 22.17, 1.348)
pt3dadd(189.661, 87.357, 22.172, 1.346)
pt3dadd(189.772, 87.308, 22.173, 1.346)
pt3dadd(189.881, 87.259, 22.174, 1.344)
pt3dadd(189.991, 87.211, 22.176, 1.342)
pt3dadd(190.1, 87.162, 22.177, 1.34)
pt3dadd(190.216, 87.127, 22.18, 1.324)
pt3dadd(190.33, 87.093, 22.183, 1.306)
pt3dadd(190.445, 87.058, 22.186, 1.29)
pt3dadd(190.56, 87.024, 22.188, 1.272)
pt3dadd(190.675, 86.989, 22.191, 1.256)
pt3dadd(190.789, 86.955, 22.194, 1.238)
pt3dadd(190.904, 86.92, 22.197, 1.22)
pt3dadd(191.02, 86.885, 22.199, 1.204)
pt3dadd(191.134, 86.851, 22.202, 1.186)
pt3dadd(191.249, 86.816, 22.205, 1.17)
pt3dadd(191.358, 86.765, 22.211, 1.178)
pt3dadd(191.466, 86.714, 22.216, 1.186)
pt3dadd(191.574, 86.663, 22.222, 1.194)
pt3dadd(191.683, 86.613, 22.227, 1.202)
pt3dadd(191.791, 86.562, 22.233, 1.21)
pt3dadd(191.9, 86.511, 22.238, 1.218)
pt3dadd(192.008, 86.46, 22.243, 1.226)
pt3dadd(192.116, 86.409, 22.249, 1.236)
pt3dadd(192.226, 86.358, 22.254, 1.244)
pt3dadd(192.334, 86.307, 22.26, 1.252)
pt3dadd(192.438, 86.248, 22.267, 1.258)
pt3dadd(192.541, 86.189, 22.275, 1.262)
pt3dadd(192.646, 86.13, 22.282, 1.268)
pt3dadd(192.75, 86.07, 22.29, 1.274)
pt3dadd(192.853, 86.011, 22.297, 1.278)
pt3dadd(192.958, 85.952, 22.305, 1.284)
pt3dadd(193.062, 85.893, 22.312, 1.29)
pt3dadd(193.166, 85.834, 22.32, 1.296)
pt3dadd(193.27, 85.775, 22.327, 1.302)
pt3dadd(193.374, 85.715, 22.335, 1.306)
pt3dadd(193.474, 85.649, 22.345, 1.29)
pt3dadd(193.573, 85.583, 22.354, 1.276)
pt3dadd(193.672, 85.517, 22.364, 1.26)
pt3dadd(193.771, 85.451, 22.374, 1.246)
pt3dadd(193.871, 85.385, 22.384, 1.232)
pt3dadd(193.97, 85.319, 22.394, 1.216)
pt3dadd(194.07, 85.253, 22.403, 1.202)
pt3dadd(194.17, 85.187, 22.413, 1.186)
pt3dadd(194.269, 85.121, 22.423, 1.172)
pt3dadd(194.369, 85.056, 22.434, 1.156)
pt3dadd(194.473, 85.01, 22.465, 1.128)
pt3dadd(194.578, 84.964, 22.496, 1.1)
pt3dadd(194.683, 84.918, 22.526, 1.072)
pt3dadd(194.788, 84.872, 22.557, 1.042)
pt3dadd(194.892, 84.827, 22.588, 1.014)
pt3dadd(194.996, 84.781, 22.618, 0.986)
pt3dadd(195.101, 84.735, 22.649, 0.958)
pt3dadd(195.205, 84.689, 22.68, 0.93)
pt3dadd(195.31, 84.643, 22.711, 0.9)
pt3dadd(195.415, 84.599, 22.741, 0.876)
pt3dadd(195.524, 84.565, 22.773, 0.868)
pt3dadd(195.632, 84.531, 22.805, 0.86)
pt3dadd(195.742, 84.497, 22.836, 0.854)
pt3dadd(195.851, 84.463, 22.868, 0.846)
pt3dadd(195.959, 84.429, 22.899, 0.838)
pt3dadd(196.068, 84.395, 22.93, 0.83)
pt3dadd(196.176, 84.361, 22.962, 0.824)
pt3dadd(196.285, 84.327, 22.993, 0.816)
pt3dadd(196.394, 84.294, 23.025, 0.808)
pt3dadd(196.504, 84.262, 23.055, 0.808)
pt3dadd(196.619, 84.241, 23.079, 0.838)
pt3dadd(196.733, 84.22, 23.102, 0.87)
pt3dadd(196.848, 84.199, 23.126, 0.9)
pt3dadd(196.962, 84.178, 23.15, 0.93)
pt3dadd(197.077, 84.157, 23.174, 0.962)
pt3dadd(197.191, 84.135, 23.198, 0.992)
pt3dadd(197.306, 84.114, 23.222, 1.022)
pt3dadd(197.42, 84.093, 23.245, 1.054)
pt3dadd(197.536, 84.072, 23.269, 1.084)
pt3dadd(197.651, 84.052, 23.291, 1.098)
pt3dadd(197.768, 84.037, 23.303, 1.044)
pt3dadd(197.887, 84.022, 23.316, 0.992)
pt3dadd(198.005, 84.007, 23.329, 0.938)
pt3dadd(198.122, 83.992, 23.341, 0.886)
pt3dadd(198.241, 83.977, 23.354, 0.832)
pt3dadd(198.359, 83.961, 23.366, 0.778)
pt3dadd(198.478, 83.946, 23.379, 0.726)
pt3dadd(198.595, 83.931, 23.391, 0.672)
pt3dadd(198.713, 83.916, 23.404, 0.62)
pt3dadd(198.83, 83.896, 23.415, 0.58)
pt3dadd(198.943, 83.856, 23.42, 0.592)
pt3dadd(199.056, 83.816, 23.426, 0.606)
pt3dadd(199.169, 83.776, 23.431, 0.618)
pt3dadd(199.282, 83.735, 23.436, 0.632)
pt3dadd(199.394, 83.695, 23.442, 0.646)
pt3dadd(199.508, 83.655, 23.447, 0.658)
pt3dadd(199.621, 83.615, 23.452, 0.672)
pt3dadd(199.734, 83.575, 23.458, 0.684)
pt3dadd(199.847, 83.535, 23.463, 0.698)
pt3dadd(199.96, 83.494, 23.468, 0.708)
}
}
proc shape3d_158() {
dend_7[19] { pt3dadd(200.071, 83.451, 23.473, 0.714)
pt3dadd(200.184, 83.409, 23.478, 0.72)
pt3dadd(200.296, 83.367, 23.483, 0.724)
pt3dadd(200.407, 83.324, 23.488, 0.73)
pt3dadd(200.52, 83.282, 23.493, 0.734)
pt3dadd(200.632, 83.239, 23.498, 0.74)
pt3dadd(200.744, 83.197, 23.503, 0.744)
pt3dadd(200.856, 83.155, 23.508, 0.75)
pt3dadd(200.968, 83.112, 23.513, 0.756)
pt3dadd(201.08, 83.072, 23.519, 0.75)
pt3dadd(201.196, 83.038, 23.527, 0.726)
pt3dadd(201.31, 83.004, 23.536, 0.7)
pt3dadd(201.425, 82.97, 23.545, 0.674)
pt3dadd(201.539, 82.936, 23.553, 0.648)
pt3dadd(201.654, 82.902, 23.562, 0.622)
pt3dadd(201.769, 82.868, 23.57, 0.596)
pt3dadd(201.883, 82.834, 23.579, 0.572)
pt3dadd(201.998, 82.8, 23.587, 0.546)
pt3dadd(202.112, 82.766, 23.596, 0.52)
pt3dadd(202.228, 82.734, 23.606, 0.514)
pt3dadd(202.343, 82.706, 23.62, 0.55)
pt3dadd(202.458, 82.678, 23.634, 0.588)
pt3dadd(202.573, 82.65, 23.648, 0.626)
pt3dadd(202.69, 82.622, 23.663, 0.664)
pt3dadd(202.805, 82.594, 23.677, 0.702)
pt3dadd(202.92, 82.566, 23.691, 0.74)
pt3dadd(203.035, 82.538, 23.705, 0.778)
pt3dadd(203.152, 82.51, 23.719, 0.814)
pt3dadd(203.267, 82.482, 23.733, 0.852)
pt3dadd(203.378, 82.455, 23.756, 0.884)
pt3dadd(203.484, 82.429, 23.799, 0.904)
pt3dadd(203.59, 82.403, 23.841, 0.924)
pt3dadd(203.695, 82.377, 23.884, 0.944)
pt3dadd(203.801, 82.351, 23.927, 0.964)
pt3dadd(203.905, 82.325, 23.969, 0.984)
pt3dadd(204.011, 82.299, 24.012, 1.002)
pt3dadd(204.116, 82.273, 24.055, 1.022)
pt3dadd(204.222, 82.247, 24.097, 1.042)
pt3dadd(204.328, 82.221, 24.14, 1.062)
pt3dadd(204.426, 82.182, 24.183, 1.076)
pt3dadd(204.512, 82.115, 24.225, 1.082)
pt3dadd(204.598, 82.049, 24.268, 1.088)
pt3dadd(204.684, 81.982, 24.31, 1.094)
pt3dadd(204.769, 81.916, 24.353, 1.1)
pt3dadd(204.856, 81.849, 24.396, 1.106)
pt3dadd(204.941, 81.783, 24.438, 1.11)
pt3dadd(205.027, 81.716, 24.48, 1.116)
pt3dadd(205.112, 81.65, 24.523, 1.122)
pt3dadd(205.199, 81.583, 24.566, 1.128)
pt3dadd(205.277, 81.503, 24.601, 1.13)
pt3dadd(205.35, 81.416, 24.631, 1.13)
pt3dadd(205.423, 81.328, 24.662, 1.13)
pt3dadd(205.496, 81.241, 24.693, 1.13)
pt3dadd(205.571, 81.153, 24.723, 1.13)
pt3dadd(205.644, 81.066, 24.754, 1.13)
pt3dadd(205.717, 80.978, 24.785, 1.13)
pt3dadd(205.79, 80.891, 24.816, 1.13)
pt3dadd(205.864, 80.804, 24.846, 1.13)
pt3dadd(205.937, 80.716, 24.877, 1.13)
pt3dadd(206.008, 80.628, 24.912, 1.124)
pt3dadd(206.076, 80.541, 24.949, 1.116)
pt3dadd(206.144, 80.453, 24.987, 1.108)
pt3dadd(206.213, 80.365, 25.024, 1.1)
pt3dadd(206.281, 80.277, 25.061, 1.092)
pt3dadd(206.35, 80.189, 25.099, 1.084)
pt3dadd(206.418, 80.101, 25.136, 1.076)
pt3dadd(206.486, 80.014, 25.173, 1.068)
pt3dadd(206.555, 79.926, 25.211, 1.06)
pt3dadd(206.623, 79.838, 25.248, 1.052)
pt3dadd(206.689, 79.755, 25.295, 1.044)
pt3dadd(206.754, 79.674, 25.346, 1.034)
pt3dadd(206.818, 79.593, 25.396, 1.024)
pt3dadd(206.882, 79.512, 25.446, 1.016)
pt3dadd(206.947, 79.431, 25.497, 1.006)
pt3dadd(207.012, 79.35, 25.547, 0.996)
pt3dadd(207.077, 79.268, 25.597, 0.988)
pt3dadd(207.142, 79.187, 25.647, 0.978)
pt3dadd(207.205, 79.106, 25.698, 0.968)
pt3dadd(207.27, 79.025, 25.748, 0.96)
pt3dadd(207.344, 78.943, 25.787, 0.972)
pt3dadd(207.42, 78.861, 25.824, 0.988)
pt3dadd(207.496, 78.78, 25.861, 1.006)
pt3dadd(207.571, 78.698, 25.899, 1.022)
pt3dadd(207.647, 78.616, 25.936, 1.038)
pt3dadd(207.722, 78.534, 25.973, 1.054)
pt3dadd(207.798, 78.452, 26.011, 1.072)
pt3dadd(207.874, 78.371, 26.048, 1.088)
pt3dadd(207.949, 78.289, 26.085, 1.104)
pt3dadd(208.025, 78.207, 26.122, 1.12)
pt3dadd(208.082, 78.12, 26.17, 1.108)
pt3dadd(208.139, 78.033, 26.22, 1.09)
pt3dadd(208.195, 77.945, 26.27, 1.074)
pt3dadd(208.252, 77.857, 26.32, 1.056)
pt3dadd(208.307, 77.769, 26.37, 1.038)
pt3dadd(208.363, 77.682, 26.42, 1.022)
pt3dadd(208.42, 77.594, 26.469, 1.004)
pt3dadd(208.475, 77.506, 26.519, 0.986)
pt3dadd(208.531, 77.419, 26.569, 0.97)
pt3dadd(208.588, 77.331, 26.619, 0.952)
pt3dadd(208.667, 77.253, 26.654, 0.934)
pt3dadd(208.751, 77.177, 26.687, 0.916)
pt3dadd(208.835, 77.101, 26.72, 0.896)
pt3dadd(208.919, 77.025, 26.753, 0.878)
pt3dadd(209.003, 76.949, 26.786, 0.86)
pt3dadd(209.087, 76.873, 26.819, 0.84)
pt3dadd(209.171, 76.797, 26.853, 0.822)
pt3dadd(209.254, 76.72, 26.886, 0.804)
pt3dadd(209.338, 76.644, 26.919, 0.786)
pt3dadd(209.422, 76.568, 26.951, 0.768)
pt3dadd(209.515, 76.496, 26.97, 0.784)
pt3dadd(209.609, 76.424, 26.989, 0.8)
pt3dadd(209.702, 76.352, 27.007, 0.818)
pt3dadd(209.796, 76.28, 27.026, 0.834)
pt3dadd(209.888, 76.208, 27.045, 0.85)
pt3dadd(209.982, 76.136, 27.063, 0.866)
pt3dadd(210.076, 76.065, 27.082, 0.882)
pt3dadd(210.169, 75.993, 27.101, 0.9)
pt3dadd(210.263, 75.921, 27.12, 0.916)
pt3dadd(210.356, 75.849, 27.138, 0.934)
pt3dadd(210.45, 75.775, 27.148, 0.972)
pt3dadd(210.544, 75.702, 27.158, 1.01)
pt3dadd(210.638, 75.628, 27.169, 1.05)
pt3dadd(210.732, 75.555, 27.179, 1.088)
pt3dadd(210.827, 75.482, 27.189, 1.126)
pt3dadd(210.92, 75.408, 27.2, 1.164)
pt3dadd(211.015, 75.335, 27.21, 1.204)
pt3dadd(211.109, 75.261, 27.22, 1.242)
pt3dadd(211.204, 75.188, 27.23, 1.28)
pt3dadd(211.297, 75.114, 27.24, 1.314)
pt3dadd(211.391, 75.04, 27.243, 1.284)
pt3dadd(211.484, 74.965, 27.245, 1.254)
pt3dadd(211.578, 74.89, 27.248, 1.224)
pt3dadd(211.672, 74.815, 27.25, 1.194)
pt3dadd(211.765, 74.74, 27.253, 1.164)
pt3dadd(211.86, 74.665, 27.255, 1.134)
pt3dadd(211.954, 74.59, 27.258, 1.104)
pt3dadd(212.047, 74.515, 27.261, 1.074)
pt3dadd(212.141, 74.44, 27.263, 1.044)
pt3dadd(212.234, 74.366, 27.266, 1.016)
pt3dadd(212.334, 74.299, 27.271, 1.016)
pt3dadd(212.434, 74.233, 27.277, 1.016)
pt3dadd(212.533, 74.166, 27.282, 1.016)
pt3dadd(212.633, 74.1, 27.287, 1.014)
pt3dadd(212.732, 74.033, 27.293, 1.014)
pt3dadd(212.832, 73.966, 27.298, 1.014)
pt3dadd(212.932, 73.9, 27.304, 1.014)
pt3dadd(213.031, 73.833, 27.309, 1.014)
pt3dadd(213.131, 73.767, 27.315, 1.012)
pt3dadd(213.23, 73.7, 27.32, 1.014)
pt3dadd(213.328, 73.63, 27.33, 1.026)
pt3dadd(213.424, 73.56, 27.339, 1.038)
pt3dadd(213.521, 73.489, 27.349, 1.05)
pt3dadd(213.617, 73.419, 27.358, 1.062)
pt3dadd(213.714, 73.349, 27.368, 1.072)
pt3dadd(213.811, 73.279, 27.377, 1.084)
pt3dadd(213.907, 73.209, 27.387, 1.096)
pt3dadd(214.004, 73.139, 27.396, 1.108)
pt3dadd(214.1, 73.068, 27.405, 1.12)
pt3dadd(214.195, 72.996, 27.417, 1.13)
pt3dadd(214.28, 72.915, 27.438, 1.126)
pt3dadd(214.364, 72.834, 27.458, 1.12)
pt3dadd(214.45, 72.752, 27.479, 1.116)
pt3dadd(214.534, 72.671, 27.499, 1.112)
pt3dadd(214.619, 72.59, 27.52, 1.108)
pt3dadd(214.704, 72.508, 27.541, 1.104)
pt3dadd(214.788, 72.427, 27.561, 1.1)
pt3dadd(214.873, 72.346, 27.582, 1.096)
pt3dadd(214.957, 72.264, 27.603, 1.092)
pt3dadd(215.045, 72.19, 27.63, 1.084)
pt3dadd(215.136, 72.131, 27.673, 1.066)
pt3dadd(215.227, 72.073, 27.715, 1.048)
pt3dadd(215.318, 72.014, 27.758, 1.028)
pt3dadd(215.41, 71.956, 27.801, 1.01)
pt3dadd(215.501, 71.897, 27.844, 0.992)
pt3dadd(215.592, 71.839, 27.886, 0.974)
pt3dadd(215.684, 71.78, 27.929, 0.956)
pt3dadd(215.776, 71.722, 27.972, 0.936)
pt3dadd(215.867, 71.663, 28.014, 0.918)
pt3dadd(215.957, 71.6, 28.052, 0.906)
pt3dadd(216.047, 71.525, 28.075, 0.906)
pt3dadd(216.136, 71.45, 28.099, 0.906)
pt3dadd(216.226, 71.376, 28.123, 0.904)
pt3dadd(216.314, 71.301, 28.147, 0.904)
pt3dadd(216.404, 71.226, 28.171, 0.904)
pt3dadd(216.493, 71.151, 28.195, 0.904)
pt3dadd(216.583, 71.077, 28.219, 0.904)
pt3dadd(216.672, 71.002, 28.243, 0.904)
pt3dadd(216.762, 70.927, 28.267, 0.904)
pt3dadd(216.851, 70.852, 28.289, 0.902)
pt3dadd(216.941, 70.775, 28.308, 0.894)
pt3dadd(217.03, 70.698, 28.327, 0.886)
pt3dadd(217.12, 70.622, 28.346, 0.878)
pt3dadd(217.208, 70.545, 28.365, 0.872)
pt3dadd(217.298, 70.468, 28.384, 0.864)
pt3dadd(217.387, 70.391, 28.403, 0.856)
pt3dadd(217.477, 70.314, 28.422, 0.848)
pt3dadd(217.566, 70.238, 28.441, 0.84)
pt3dadd(217.656, 70.161, 28.46, 0.834)
pt3dadd(217.745, 70.084, 28.477, 0.824)
pt3dadd(217.835, 70.006, 28.492, 0.81)
}
}
proc shape3d_159() {
dend_7[19] { pt3dadd(217.924, 69.927, 28.506, 0.794)
pt3dadd(218.014, 69.849, 28.521, 0.78)
pt3dadd(218.102, 69.771, 28.535, 0.766)
pt3dadd(218.192, 69.693, 28.55, 0.752)
pt3dadd(218.281, 69.615, 28.564, 0.738)
pt3dadd(218.371, 69.537, 28.579, 0.724)
pt3dadd(218.46, 69.459, 28.593, 0.708)
pt3dadd(218.55, 69.38, 28.608, 0.694)
pt3dadd(218.638, 69.301, 28.62, 0.688)
pt3dadd(218.723, 69.217, 28.63, 0.702)
pt3dadd(218.808, 69.133, 28.64, 0.714)
pt3dadd(218.893, 69.05, 28.649, 0.728)
pt3dadd(218.978, 68.966, 28.659, 0.74)
pt3dadd(219.065, 68.883, 28.668, 0.754)
pt3dadd(219.15, 68.799, 28.678, 0.766)
pt3dadd(219.235, 68.715, 28.687, 0.78)
pt3dadd(219.32, 68.632, 28.697, 0.792)
pt3dadd(219.406, 68.548, 28.706, 0.806)
pt3dadd(219.491, 68.465, 28.72, 0.818)
pt3dadd(219.574, 68.384, 28.742, 0.826)
pt3dadd(219.658, 68.302, 28.765, 0.836)
pt3dadd(219.742, 68.22, 28.787, 0.844)
pt3dadd(219.826, 68.139, 28.81, 0.854)
pt3dadd(219.908, 68.057, 28.832, 0.862)
pt3dadd(219.992, 67.975, 28.855, 0.872)
pt3dadd(220.076, 67.894, 28.877, 0.88)
pt3dadd(220.16, 67.812, 28.9, 0.89)
pt3dadd(220.243, 67.731, 28.923, 0.9)
pt3dadd(220.326, 67.652, 28.953, 0.904)
pt3dadd(220.406, 67.576, 28.992, 0.904)
pt3dadd(220.487, 67.5, 29.031, 0.904)
pt3dadd(220.566, 67.424, 29.07, 0.904)
pt3dadd(220.646, 67.348, 29.109, 0.904)
pt3dadd(220.727, 67.272, 29.148, 0.904)
pt3dadd(220.807, 67.196, 29.187, 0.904)
pt3dadd(220.888, 67.12, 29.227, 0.904)
pt3dadd(220.968, 67.044, 29.266, 0.904)
pt3dadd(221.047, 66.968, 29.305, 0.904)
pt3dadd(221.131, 66.891, 29.336, 0.904)
pt3dadd(221.218, 66.812, 29.359, 0.904)
pt3dadd(221.303, 66.733, 29.382, 0.904)
pt3dadd(221.389, 66.655, 29.405, 0.904)
pt3dadd(221.476, 66.576, 29.429, 0.904)
pt3dadd(221.561, 66.497, 29.452, 0.904)
pt3dadd(221.647, 66.418, 29.475, 0.904)
pt3dadd(221.734, 66.339, 29.498, 0.904)
pt3dadd(221.82, 66.26, 29.521, 0.904)
pt3dadd(221.905, 66.182, 29.545, 0.904)
pt3dadd(221.994, 66.103, 29.561, 0.912)
pt3dadd(222.083, 66.024, 29.571, 0.924)
pt3dadd(222.173, 65.944, 29.581, 0.938)
pt3dadd(222.262, 65.865, 29.59, 0.952)
pt3dadd(222.352, 65.786, 29.6, 0.966)
pt3dadd(222.44, 65.707, 29.61, 0.98)
pt3dadd(222.53, 65.628, 29.62, 0.994)
pt3dadd(222.619, 65.549, 29.629, 1.008)
pt3dadd(222.709, 65.469, 29.639, 1.022)
pt3dadd(222.798, 65.39, 29.649, 1.036)
pt3dadd(222.89, 65.315, 29.656, 1.04)
pt3dadd(222.986, 65.242, 29.659, 1.036)
pt3dadd(223.082, 65.169, 29.663, 1.03)
pt3dadd(223.177, 65.097, 29.667, 1.026)
pt3dadd(223.273, 65.024, 29.671, 1.022)
pt3dadd(223.368, 64.951, 29.675, 1.018)
pt3dadd(223.464, 64.879, 29.679, 1.012)
pt3dadd(223.559, 64.806, 29.682, 1.008)
pt3dadd(223.655, 64.733, 29.686, 1.004)
pt3dadd(223.75, 64.661, 29.69, 1)
pt3dadd(223.849, 64.594, 29.69, 0.98)
pt3dadd(223.951, 64.531, 29.688, 0.948)
pt3dadd(224.053, 64.468, 29.686, 0.916)
pt3dadd(224.155, 64.405, 29.683, 0.886)
pt3dadd(224.257, 64.342, 29.681, 0.854)
pt3dadd(224.359, 64.279, 29.678, 0.822)
pt3dadd(224.461, 64.216, 29.676, 0.792)
pt3dadd(224.563, 64.153, 29.674, 0.76)
pt3dadd(224.666, 64.09, 29.671, 0.728)
pt3dadd(224.768, 64.027, 29.669, 0.698)
pt3dadd(224.866, 63.957, 29.665, 0.676)
pt3dadd(224.958, 63.882, 29.659, 0.66)
pt3dadd(225.052, 63.807, 29.654, 0.644)
pt3dadd(225.145, 63.732, 29.648, 0.63)
pt3dadd(225.239, 63.657, 29.642, 0.614)
pt3dadd(225.332, 63.582, 29.637, 0.598)
pt3dadd(225.425, 63.507, 29.631, 0.584)
pt3dadd(225.518, 63.431, 29.626, 0.568)
pt3dadd(225.612, 63.356, 29.62, 0.552)
pt3dadd(225.706, 63.281, 29.615, 0.538)
pt3dadd(225.796, 63.203, 29.608, 0.522)
pt3dadd(225.886, 63.123, 29.601, 0.508)
pt3dadd(225.974, 63.044, 29.594, 0.494)
pt3dadd(226.063, 62.964, 29.587, 0.478)
pt3dadd(226.152, 62.884, 29.58, 0.464)
pt3dadd(226.242, 62.804, 29.573, 0.45)
pt3dadd(226.331, 62.724, 29.566, 0.434)
pt3dadd(226.42, 62.644, 29.558, 0.42)
pt3dadd(226.508, 62.564, 29.551, 0.406)
pt3dadd(226.598, 62.484, 29.544, 0.39)
pt3dadd(226.685, 62.401, 29.536, 0.376)
pt3dadd(226.769, 62.317, 29.527, 0.362)
pt3dadd(226.853, 62.232, 29.518, 0.348)
pt3dadd(226.937, 62.147, 29.51, 0.334)
pt3dadd(227.022, 62.062, 29.501, 0.318)
pt3dadd(227.106, 61.978, 29.492, 0.304)
pt3dadd(227.19, 61.893, 29.483, 0.29)
pt3dadd(227.275, 61.808, 29.475, 0.276)
pt3dadd(227.359, 61.724, 29.466, 0.262)
pt3dadd(227.443, 61.639, 29.457, 0.248)
pt3dadd(227.514, 61.547, 29.436, 0.27)
pt3dadd(227.575, 61.45, 29.407, 0.322)
pt3dadd(227.636, 61.353, 29.377, 0.374)
pt3dadd(227.698, 61.256, 29.347, 0.426)
pt3dadd(227.759, 61.159, 29.318, 0.478)
pt3dadd(227.82, 61.063, 29.288, 0.53)
pt3dadd(227.881, 60.966, 29.258, 0.582)
pt3dadd(227.942, 60.869, 29.229, 0.634)
pt3dadd(228.004, 60.772, 29.199, 0.686)
pt3dadd(228.065, 60.675, 29.17, 0.736)
pt3dadd(228.127, 60.578, 29.142, 0.78)
pt3dadd(228.191, 60.481, 29.115, 0.816)
pt3dadd(228.253, 60.384, 29.088, 0.854)
pt3dadd(228.317, 60.287, 29.061, 0.892)
pt3dadd(228.379, 60.19, 29.035, 0.93)
pt3dadd(228.443, 60.093, 29.008, 0.968)
pt3dadd(228.505, 59.996, 28.981, 1.006)
pt3dadd(228.569, 59.899, 28.954, 1.042)
pt3dadd(228.631, 59.802, 28.928, 1.08)
pt3dadd(228.695, 59.706, 28.901, 1.118)
pt3dadd(228.763, 59.61, 28.88, 1.13)
pt3dadd(228.834, 59.516, 28.863, 1.13)
pt3dadd(228.905, 59.421, 28.845, 1.13)
pt3dadd(228.976, 59.326, 28.827, 1.13)
pt3dadd(229.046, 59.232, 28.81, 1.13)
pt3dadd(229.117, 59.137, 28.792, 1.13)
pt3dadd(229.188, 59.043, 28.775, 1.13)
pt3dadd(229.259, 58.948, 28.757, 1.13)
pt3dadd(229.33, 58.854, 28.739, 1.13)
pt3dadd(229.4, 58.759, 28.722, 1.13)
pt3dadd(229.476, 58.667, 28.712, 1.114)
pt3dadd(229.554, 58.577, 28.707, 1.09)
pt3dadd(229.632, 58.486, 28.702, 1.066)
pt3dadd(229.711, 58.395, 28.696, 1.042)
pt3dadd(229.789, 58.305, 28.691, 1.018)
pt3dadd(229.867, 58.214, 28.685, 0.994)
pt3dadd(229.946, 58.123, 28.68, 0.97)
pt3dadd(230.024, 58.033, 28.674, 0.946)
pt3dadd(230.102, 57.942, 28.669, 0.922)
pt3dadd(230.182, 57.852, 28.663, 0.898)
pt3dadd(230.262, 57.763, 28.662, 0.884)
pt3dadd(230.344, 57.675, 28.663, 0.874)
pt3dadd(230.425, 57.587, 28.664, 0.866)
pt3dadd(230.507, 57.499, 28.665, 0.856)
pt3dadd(230.588, 57.411, 28.666, 0.848)
pt3dadd(230.67, 57.322, 28.667, 0.838)
pt3dadd(230.75, 57.234, 28.668, 0.828)
pt3dadd(230.832, 57.146, 28.669, 0.82)
pt3dadd(230.914, 57.058, 28.67, 0.81)
pt3dadd(230.995, 56.97, 28.67, 0.802)
pt3dadd(231.08, 56.886, 28.678, 0.83)
pt3dadd(231.166, 56.802, 28.689, 0.874)
pt3dadd(231.251, 56.719, 28.7, 0.918)
pt3dadd(231.336, 56.636, 28.711, 0.962)
pt3dadd(231.421, 56.552, 28.721, 1.006)
pt3dadd(231.506, 56.469, 28.732, 1.05)
pt3dadd(231.592, 56.385, 28.743, 1.092)
pt3dadd(231.677, 56.302, 28.753, 1.136)
pt3dadd(231.763, 56.219, 28.764, 1.18)
pt3dadd(231.848, 56.135, 28.775, 1.224)
pt3dadd(231.93, 56.058, 28.806, 1.236)
pt3dadd(232.012, 55.983, 28.845, 1.232)
pt3dadd(232.093, 55.908, 28.884, 1.228)
pt3dadd(232.174, 55.833, 28.923, 1.226)
pt3dadd(232.255, 55.759, 28.962, 1.224)
pt3dadd(232.337, 55.684, 29.001, 1.22)
pt3dadd(232.417, 55.609, 29.041, 1.218)
pt3dadd(232.499, 55.534, 29.08, 1.214)
pt3dadd(232.58, 55.459, 29.119, 1.212)
pt3dadd(232.661, 55.384, 29.158, 1.208)
pt3dadd(232.744, 55.311, 29.197, 1.172)
pt3dadd(232.826, 55.237, 29.236, 1.13)
pt3dadd(232.908, 55.164, 29.276, 1.088)
pt3dadd(232.991, 55.09, 29.315, 1.046)
pt3dadd(233.072, 55.017, 29.354, 1.004)
pt3dadd(233.155, 54.943, 29.393, 0.96)
pt3dadd(233.238, 54.87, 29.432, 0.918)
pt3dadd(233.32, 54.796, 29.472, 0.876)
pt3dadd(233.402, 54.723, 29.511, 0.834)
pt3dadd(233.485, 54.649, 29.55, 0.792)
pt3dadd(233.576, 54.581, 29.581, 0.78)
pt3dadd(233.669, 54.513, 29.611, 0.768)
pt3dadd(233.76, 54.446, 29.641, 0.758)
pt3dadd(233.852, 54.378, 29.672, 0.748)
pt3dadd(233.945, 54.31, 29.702, 0.736)
pt3dadd(234.037, 54.242, 29.732, 0.726)
pt3dadd(234.13, 54.175, 29.762, 0.716)
pt3dadd(234.222, 54.107, 29.792, 0.706)
pt3dadd(234.313, 54.039, 29.823, 0.694)
pt3dadd(234.406, 53.972, 29.853, 0.684)
pt3dadd(234.503, 53.91, 29.883, 0.728)
pt3dadd(234.599, 53.849, 29.913, 0.774)
}
}
proc shape3d_160() {
dend_7[19] { pt3dadd(234.696, 53.787, 29.943, 0.818)
pt3dadd(234.792, 53.726, 29.973, 0.864)
pt3dadd(234.889, 53.664, 30.003, 0.908)
pt3dadd(234.985, 53.603, 30.033, 0.954)
pt3dadd(235.082, 53.542, 30.063, 0.998)
pt3dadd(235.178, 53.48, 30.093, 1.044)
pt3dadd(235.276, 53.419, 30.123, 1.09)
pt3dadd(235.37, 53.356, 30.154, 1.13)
pt3dadd(235.446, 53.278, 30.196, 1.128)
pt3dadd(235.522, 53.2, 30.238, 1.128)
pt3dadd(235.598, 53.122, 30.28, 1.126)
pt3dadd(235.674, 53.044, 30.322, 1.124)
pt3dadd(235.75, 52.966, 30.364, 1.124)
pt3dadd(235.825, 52.888, 30.406, 1.122)
pt3dadd(235.902, 52.809, 30.448, 1.12)
pt3dadd(235.978, 52.731, 30.49, 1.12)
pt3dadd(236.053, 52.653, 30.532, 1.118)
pt3dadd(236.131, 52.577, 30.573, 1.114)
pt3dadd(236.228, 52.516, 30.601, 1.074)
pt3dadd(236.327, 52.455, 30.629, 1.036)
pt3dadd(236.424, 52.394, 30.657, 0.998)
pt3dadd(236.522, 52.333, 30.686, 0.96)
pt3dadd(236.62, 52.272, 30.714, 0.92)
pt3dadd(236.717, 52.212, 30.742, 0.882)
pt3dadd(236.815, 52.151, 30.77, 0.844)
pt3dadd(236.912, 52.09, 30.799, 0.804)
pt3dadd(237.011, 52.029, 30.827, 0.766)
pt3dadd(237.108, 51.967, 30.854, 0.728)
pt3dadd(237.202, 51.894, 30.868, 0.696)
pt3dadd(237.295, 51.821, 30.883, 0.664)
pt3dadd(237.389, 51.748, 30.897, 0.632)
pt3dadd(237.482, 51.675, 30.912, 0.6)
pt3dadd(237.576, 51.602, 30.926, 0.566)
pt3dadd(237.67, 51.529, 30.941, 0.534)
pt3dadd(237.763, 51.456, 30.955, 0.502)
pt3dadd(237.857, 51.383, 30.97, 0.47)
pt3dadd(237.95, 51.31, 30.984, 0.438)
pt3dadd(238.044, 51.237, 30.998, 0.408)
pt3dadd(238.138, 51.162, 31.008, 0.388)
pt3dadd(238.231, 51.087, 31.017, 0.37)
pt3dadd(238.324, 51.013, 31.027, 0.352)
pt3dadd(238.417, 50.938, 31.036, 0.334)
pt3dadd(238.511, 50.863, 31.046, 0.316)
pt3dadd(238.603, 50.789, 31.055, 0.298)
pt3dadd(238.697, 50.714, 31.065, 0.278)
pt3dadd(238.79, 50.639, 31.074, 0.26)
pt3dadd(238.883, 50.565, 31.084, 0.242)
pt3dadd(238.976, 50.49, 31.093, 0.226)
pt3dadd(239.07, 50.415, 31.099, 0.226)
pt3dadd(239.164, 50.341, 31.104, 0.226)
pt3dadd(239.257, 50.266, 31.11, 0.226)
pt3dadd(239.352, 50.191, 31.115, 0.226)
pt3dadd(239.446, 50.117, 31.121, 0.226)
pt3dadd(239.539, 50.042, 31.127, 0.226)
pt3dadd(239.633, 49.968, 31.132, 0.226)
pt3dadd(239.726, 49.893, 31.138, 0.226)
pt3dadd(239.82, 49.818, 31.144, 0.226)
pt3dadd(239.914, 49.743, 31.15, 0.228)
pt3dadd(240.006, 49.667, 31.158, 0.25)
pt3dadd(240.097, 49.59, 31.167, 0.272)
pt3dadd(240.19, 49.514, 31.175, 0.294)
pt3dadd(240.281, 49.438, 31.183, 0.316)
pt3dadd(240.373, 49.361, 31.192, 0.336)
pt3dadd(240.466, 49.285, 31.2, 0.358)
pt3dadd(240.557, 49.208, 31.209, 0.38)
pt3dadd(240.649, 49.132, 31.217, 0.402)
pt3dadd(240.742, 49.056, 31.226, 0.424)
pt3dadd(240.834, 48.98, 31.235, 0.446)
pt3dadd(240.926, 48.906, 31.248, 0.474)
pt3dadd(241.02, 48.832, 31.26, 0.502)
pt3dadd(241.114, 48.759, 31.273, 0.53)
pt3dadd(241.207, 48.685, 31.286, 0.558)
pt3dadd(241.301, 48.611, 31.298, 0.586)
pt3dadd(241.394, 48.538, 31.311, 0.614)
pt3dadd(241.488, 48.464, 31.324, 0.642)
pt3dadd(241.582, 48.391, 31.337, 0.67)
pt3dadd(241.675, 48.317, 31.349, 0.698)
pt3dadd(241.77, 48.248, 31.367, 0.726)
pt3dadd(241.871, 48.198, 31.401, 0.756)
pt3dadd(241.972, 48.148, 31.436, 0.786)
pt3dadd(242.072, 48.098, 31.47, 0.816)
pt3dadd(242.174, 48.048, 31.505, 0.846)
pt3dadd(242.275, 47.999, 31.539, 0.876)
pt3dadd(242.376, 47.949, 31.574, 0.908)
pt3dadd(242.477, 47.899, 31.609, 0.938)
pt3dadd(242.578, 47.849, 31.643, 0.968)
pt3dadd(242.678, 47.799, 31.678, 0.998)
pt3dadd(242.779, 47.748, 31.711, 1.024)
pt3dadd(242.881, 47.694, 31.738, 1.034)
pt3dadd(242.983, 47.64, 31.765, 1.046)
pt3dadd(243.085, 47.585, 31.792, 1.056)
pt3dadd(243.187, 47.531, 31.819, 1.068)
pt3dadd(243.289, 47.477, 31.846, 1.078)
pt3dadd(243.391, 47.422, 31.873, 1.09)
pt3dadd(243.493, 47.368, 31.9, 1.1)
pt3dadd(243.595, 47.314, 31.927, 1.11)
pt3dadd(243.697, 47.259, 31.954, 1.122)
pt3dadd(243.8, 47.205, 31.98, 1.128)
pt3dadd(243.904, 47.152, 32.002, 1.114)
pt3dadd(244.008, 47.098, 32.023, 1.102)
pt3dadd(244.112, 47.045, 32.044, 1.09)
pt3dadd(244.217, 46.991, 32.065, 1.078)
pt3dadd(244.321, 46.938, 32.087, 1.066)
pt3dadd(244.426, 46.884, 32.108, 1.054)
pt3dadd(244.53, 46.831, 32.13, 1.04)
pt3dadd(244.634, 46.777, 32.151, 1.028)
pt3dadd(244.739, 46.724, 32.172, 1.016)
pt3dadd(244.846, 46.674, 32.192, 0.99)
pt3dadd(244.957, 46.636, 32.206, 0.92)
pt3dadd(245.07, 46.598, 32.22, 0.852)
pt3dadd(245.183, 46.56, 32.234, 0.782)
pt3dadd(245.296, 46.521, 32.248, 0.714)
pt3dadd(245.407, 46.483, 32.262, 0.644)
pt3dadd(245.52, 46.445, 32.276, 0.576)
pt3dadd(245.633, 46.406, 32.291, 0.506)
pt3dadd(245.744, 46.368, 32.305, 0.438)
pt3dadd(245.857, 46.33, 32.319, 0.368)
pt3dadd(245.97, 46.293, 32.332, 0.328)
pt3dadd(246.085, 46.261, 32.341, 0.366)
pt3dadd(246.2, 46.229, 32.351, 0.404)
pt3dadd(246.316, 46.196, 32.36, 0.444)
pt3dadd(246.431, 46.164, 32.37, 0.482)
pt3dadd(246.546, 46.131, 32.379, 0.522)
pt3dadd(246.66, 46.099, 32.389, 0.56)
pt3dadd(246.775, 46.067, 32.398, 0.6)
pt3dadd(246.89, 46.035, 32.408, 0.638)
pt3dadd(247.006, 46.002, 32.417, 0.678)
pt3dadd(247.12, 45.966, 32.427, 0.712)
pt3dadd(247.229, 45.919, 32.44, 0.732)
pt3dadd(247.338, 45.872, 32.452, 0.752)
pt3dadd(247.447, 45.825, 32.465, 0.772)
pt3dadd(247.556, 45.778, 32.478, 0.792)
pt3dadd(247.666, 45.731, 32.49, 0.812)
pt3dadd(247.775, 45.684, 32.503, 0.832)
pt3dadd(247.884, 45.637, 32.515, 0.85)
pt3dadd(247.994, 45.59, 32.528, 0.87)
pt3dadd(248.104, 45.542, 32.54, 0.89)
pt3dadd(248.209, 45.493, 32.558, 0.904)
pt3dadd(248.31, 45.438, 32.589, 0.904)
pt3dadd(248.411, 45.384, 32.62, 0.904)
pt3dadd(248.51, 45.329, 32.651, 0.904)
pt3dadd(248.611, 45.274, 32.681, 0.904)
pt3dadd(248.711, 45.22, 32.712, 0.904)
pt3dadd(248.812, 45.165, 32.743, 0.904)
pt3dadd(248.911, 45.111, 32.773, 0.904)
pt3dadd(249.012, 45.056, 32.804, 0.904)
pt3dadd(249.113, 45.001, 32.835, 0.904)
pt3dadd(249.206, 44.947, 32.877, 0.894)
pt3dadd(249.294, 44.894, 32.928, 0.878)
pt3dadd(249.383, 44.84, 32.979, 0.86)
pt3dadd(249.47, 44.787, 33.03, 0.842)
pt3dadd(249.559, 44.733, 33.081, 0.826)
pt3dadd(249.647, 44.68, 33.132, 0.808)
pt3dadd(249.736, 44.627, 33.183, 0.792)
pt3dadd(249.824, 44.573, 33.234, 0.774)
pt3dadd(249.912, 44.52, 33.285, 0.756)
pt3dadd(250.001, 44.466, 33.336, 0.74)
pt3dadd(250.092, 44.411, 33.38, 0.704)
pt3dadd(250.187, 44.354, 33.42, 0.658)
pt3dadd(250.282, 44.297, 33.459, 0.612)
pt3dadd(250.375, 44.24, 33.499, 0.566)
pt3dadd(250.47, 44.183, 33.538, 0.52)
pt3dadd(250.565, 44.126, 33.578, 0.474)
pt3dadd(250.658, 44.069, 33.617, 0.426)
pt3dadd(250.753, 44.012, 33.657, 0.38)
pt3dadd(250.848, 43.955, 33.696, 0.334)
pt3dadd(250.942, 43.898, 33.736, 0.288)
pt3dadd(251.041, 43.866, 33.782, 0.306)
pt3dadd(251.143, 43.845, 33.832, 0.358)
pt3dadd(251.245, 43.825, 33.883, 0.41)
pt3dadd(251.346, 43.804, 33.933, 0.462)
pt3dadd(251.448, 43.784, 33.983, 0.514)
pt3dadd(251.55, 43.763, 34.033, 0.566)
pt3dadd(251.652, 43.743, 34.084, 0.616)
pt3dadd(251.753, 43.722, 34.134, 0.668)
pt3dadd(251.855, 43.702, 34.184, 0.72)
pt3dadd(251.957, 43.682, 34.234, 0.772)
pt3dadd(252.066, 43.672, 34.273, 0.788)
pt3dadd(252.18, 43.668, 34.305, 0.786)
pt3dadd(252.294, 43.664, 34.337, 0.784)
pt3dadd(252.407, 43.66, 34.369, 0.782)
pt3dadd(252.521, 43.656, 34.401, 0.778)
pt3dadd(252.635, 43.652, 34.433, 0.776)
pt3dadd(252.748, 43.648, 34.465, 0.774)
pt3dadd(252.862, 43.644, 34.496, 0.772)
pt3dadd(252.976, 43.64, 34.528, 0.77)
pt3dadd(253.088, 43.635, 34.561, 0.768)
pt3dadd(253.204, 43.652, 34.584, 0.746)
pt3dadd(253.319, 43.676, 34.605, 0.72)
pt3dadd(253.433, 43.7, 34.626, 0.694)
pt3dadd(253.548, 43.724, 34.647, 0.668)
pt3dadd(253.663, 43.747, 34.668, 0.64)
pt3dadd(253.778, 43.771, 34.689, 0.614)
pt3dadd(253.892, 43.795, 34.71, 0.588)
pt3dadd(254.008, 43.819, 34.731, 0.562)
pt3dadd(254.123, 43.843, 34.752, 0.534)
pt3dadd(254.238, 43.867, 34.773, 0.508)
pt3dadd(254.348, 43.909, 34.787, 0.48)
pt3dadd(254.459, 43.953, 34.801, 0.452)
pt3dadd(254.569, 43.996, 34.815, 0.424)
}
}
proc shape3d_161() {
dend_7[19] { pt3dadd(254.68, 44.04, 34.829, 0.396)
pt3dadd(254.79, 44.084, 34.843, 0.368)
pt3dadd(254.9, 44.127, 34.857, 0.34)
pt3dadd(255.011, 44.171, 34.871, 0.312)
pt3dadd(255.121, 44.215, 34.885, 0.284)
pt3dadd(255.232, 44.259, 34.899, 0.256)
pt3dadd(255.343, 44.302, 34.913, 0.228)
pt3dadd(255.457, 44.334, 34.925, 0.226)
pt3dadd(255.572, 44.366, 34.937, 0.228)
pt3dadd(255.688, 44.398, 34.948, 0.228)
pt3dadd(255.802, 44.43, 34.96, 0.228)
pt3dadd(255.917, 44.462, 34.972, 0.23)
pt3dadd(256.032, 44.494, 34.983, 0.23)
pt3dadd(256.146, 44.526, 34.995, 0.23)
pt3dadd(256.261, 44.557, 35.007, 0.232)
pt3dadd(256.376, 44.589, 35.018, 0.232)
pt3dadd(256.49, 44.621, 35.03, 0.234)
pt3dadd(256.607, 44.638, 35.049, 0.298)
pt3dadd(256.723, 44.655, 35.069, 0.364)
pt3dadd(256.841, 44.672, 35.089, 0.43)
pt3dadd(256.957, 44.689, 35.108, 0.496)
pt3dadd(257.074, 44.706, 35.128, 0.562)
pt3dadd(257.19, 44.722, 35.148, 0.63)
pt3dadd(257.306, 44.739, 35.168, 0.696)
pt3dadd(257.423, 44.756, 35.188, 0.762)
pt3dadd(257.539, 44.772, 35.207, 0.828)
pt3dadd(257.656, 44.789, 35.227, 0.894)
pt3dadd(257.722, 44.789, 35.31, 0.828)
pt3dadd(257.789, 44.789, 35.393, 0.762)
pt3dadd(257.855, 44.789, 35.477, 0.694)
pt3dadd(257.921, 44.789, 35.56, 0.628)
pt3dadd(257.988, 44.789, 35.643, 0.56)
pt3dadd(258.054, 44.789, 35.726, 0.494)
pt3dadd(258.121, 44.789, 35.81, 0.426)
pt3dadd(258.187, 44.789, 35.893, 0.36)
pt3dadd(258.254, 44.789, 35.976, 0.292)
pt3dadd(258.32, 44.789, 36.059, 0.226)
}
dend_0[5] {pt3dclear()
pt3dadd(138.715, 111.594, 20.876, 13.958)
pt3dadd(138.746, 111.48, 20.876, 13.962)
pt3dadd(138.778, 111.364, 20.876, 13.968)
pt3dadd(138.809, 111.248, 20.876, 13.972)
pt3dadd(138.841, 111.132, 20.876, 13.976)
pt3dadd(138.923, 111.046, 20.876, 13.894)
pt3dadd(139.008, 110.961, 20.876, 13.804)
pt3dadd(139.093, 110.876, 20.876, 13.716)
pt3dadd(139.178, 110.792, 20.876, 13.628)
pt3dadd(139.262, 110.707, 20.876, 13.54)
pt3dadd(139.348, 110.622, 20.876, 13.452)
pt3dadd(139.433, 110.537, 20.876, 13.364)
pt3dadd(139.518, 110.452, 20.876, 13.276)
pt3dadd(139.602, 110.368, 20.876, 13.186)
pt3dadd(139.687, 110.283, 20.876, 13.098)
pt3dadd(139.776, 110.205, 20.86, 12.916)
pt3dadd(139.866, 110.127, 20.844, 12.728)
pt3dadd(139.955, 110.05, 20.827, 12.54)
pt3dadd(140.045, 109.972, 20.81, 12.352)
pt3dadd(140.134, 109.895, 20.793, 12.164)
pt3dadd(140.222, 109.817, 20.776, 11.974)
pt3dadd(140.312, 109.739, 20.759, 11.786)
pt3dadd(140.401, 109.662, 20.742, 11.598)
pt3dadd(140.491, 109.584, 20.725, 11.41)
pt3dadd(140.58, 109.507, 20.708, 11.222)
pt3dadd(140.67, 109.432, 20.686, 11.004)
pt3dadd(140.76, 109.357, 20.664, 10.786)
pt3dadd(140.85, 109.282, 20.642, 10.568)
pt3dadd(140.94, 109.208, 20.62, 10.35)
pt3dadd(141.03, 109.133, 20.597, 10.132)
pt3dadd(141.12, 109.058, 20.575, 9.912)
pt3dadd(141.21, 108.983, 20.553, 9.694)
pt3dadd(141.3, 108.908, 20.531, 9.476)
pt3dadd(141.39, 108.834, 20.509, 9.258)
pt3dadd(141.48, 108.759, 20.487, 9.04)
}
dend_0[6] {pt3dclear()
pt3dadd(141.48, 108.759, 20.487, 9.04)
pt3dadd(141.514, 108.739, 20.47, 8.972)
pt3dadd(141.605, 108.683, 20.424, 8.786)
pt3dadd(141.696, 108.628, 20.378, 8.6)
pt3dadd(141.787, 108.573, 20.332, 8.414)
pt3dadd(141.878, 108.518, 20.286, 8.228)
pt3dadd(141.97, 108.462, 20.241, 8.042)
pt3dadd(142.061, 108.407, 20.195, 7.856)
pt3dadd(142.152, 108.351, 20.149, 7.67)
pt3dadd(142.243, 108.296, 20.104, 7.486)
pt3dadd(142.334, 108.24, 20.058, 7.3)
pt3dadd(142.426, 108.185, 20.012, 7.114)
pt3dadd(142.517, 108.129, 19.967, 6.928)
pt3dadd(142.608, 108.074, 19.921, 6.744)
pt3dadd(142.699, 108.018, 19.875, 6.558)
pt3dadd(142.786, 107.947, 19.84, 6.39)
pt3dadd(142.871, 107.873, 19.808, 6.226)
}
dend_7[20] {pt3dclear()
pt3dadd(142.871, 107.873, 19.808, 6.226)
pt3dadd(142.957, 107.798, 19.775, 6.062)
pt3dadd(143.042, 107.723, 19.743, 5.9)
pt3dadd(143.128, 107.649, 19.71, 5.736)
pt3dadd(143.213, 107.574, 19.677, 5.572)
pt3dadd(143.298, 107.499, 19.645, 5.408)
pt3dadd(143.383, 107.425, 19.612, 5.244)
pt3dadd(143.47, 107.35, 19.579, 5.082)
pt3dadd(143.555, 107.276, 19.547, 4.918)
pt3dadd(143.628, 107.194, 19.507, 4.782)
pt3dadd(143.699, 107.111, 19.465, 4.652)
pt3dadd(143.77, 107.028, 19.423, 4.524)
pt3dadd(143.84, 106.944, 19.382, 4.394)
pt3dadd(143.91, 106.861, 19.34, 4.264)
pt3dadd(143.981, 106.778, 19.298, 4.136)
pt3dadd(144.052, 106.695, 19.257, 4.006)
pt3dadd(144.122, 106.612, 19.215, 3.876)
pt3dadd(144.193, 106.529, 19.173, 3.748)
pt3dadd(144.264, 106.446, 19.132, 3.618)
pt3dadd(144.318, 106.356, 19.083, 3.526)
pt3dadd(144.372, 106.267, 19.034, 3.436)
pt3dadd(144.426, 106.178, 18.984, 3.346)
pt3dadd(144.48, 106.088, 18.935, 3.254)
pt3dadd(144.534, 105.999, 18.886, 3.164)
pt3dadd(144.588, 105.91, 18.836, 3.074)
pt3dadd(144.642, 105.82, 18.787, 2.984)
pt3dadd(144.696, 105.731, 18.738, 2.894)
pt3dadd(144.75, 105.642, 18.689, 2.802)
pt3dadd(144.804, 105.552, 18.639, 2.712)
pt3dadd(144.866, 105.456, 18.609, 2.68)
pt3dadd(144.929, 105.361, 18.579, 2.65)
pt3dadd(144.991, 105.265, 18.549, 2.622)
pt3dadd(145.054, 105.169, 18.519, 2.592)
pt3dadd(145.116, 105.073, 18.489, 2.562)
pt3dadd(145.18, 104.977, 18.459, 2.534)
pt3dadd(145.242, 104.881, 18.429, 2.504)
pt3dadd(145.304, 104.785, 18.399, 2.474)
pt3dadd(145.367, 104.689, 18.37, 2.446)
pt3dadd(145.429, 104.593, 18.34, 2.416)
pt3dadd(145.486, 104.497, 18.303, 2.392)
pt3dadd(145.543, 104.401, 18.266, 2.37)
pt3dadd(145.6, 104.304, 18.23, 2.348)
pt3dadd(145.656, 104.208, 18.193, 2.324)
pt3dadd(145.712, 104.112, 18.156, 2.302)
pt3dadd(145.769, 104.016, 18.12, 2.278)
pt3dadd(145.825, 103.92, 18.083, 2.256)
pt3dadd(145.883, 103.823, 18.046, 2.232)
pt3dadd(145.939, 103.727, 18.01, 2.21)
pt3dadd(145.996, 103.631, 17.973, 2.188)
pt3dadd(146.045, 103.535, 17.929, 2.172)
pt3dadd(146.095, 103.44, 17.885, 2.156)
pt3dadd(146.144, 103.344, 17.841, 2.142)
pt3dadd(146.195, 103.248, 17.798, 2.126)
pt3dadd(146.244, 103.152, 17.754, 2.11)
pt3dadd(146.293, 103.057, 17.71, 2.096)
pt3dadd(146.344, 102.961, 17.666, 2.08)
pt3dadd(146.393, 102.865, 17.622, 2.064)
pt3dadd(146.443, 102.77, 17.578, 2.05)
pt3dadd(146.492, 102.674, 17.534, 2.034)
}
dend_7[21] {pt3dclear()
pt3dadd(146.492, 102.674, 17.534, 2.034)
pt3dadd(146.567, 102.584, 17.514, 2.018)
pt3dadd(146.642, 102.494, 17.493, 2.004)
pt3dadd(146.718, 102.404, 17.472, 1.988)
pt3dadd(146.792, 102.314, 17.451, 1.974)
pt3dadd(146.868, 102.224, 17.43, 1.958)
pt3dadd(146.944, 102.134, 17.409, 1.942)
pt3dadd(147.018, 102.044, 17.388, 1.928)
pt3dadd(147.094, 101.954, 17.367, 1.912)
pt3dadd(147.169, 101.864, 17.346, 1.898)
pt3dadd(147.253, 101.781, 17.329, 1.888)
pt3dadd(147.338, 101.699, 17.312, 1.878)
pt3dadd(147.425, 101.618, 17.296, 1.87)
pt3dadd(147.51, 101.536, 17.279, 1.862)
pt3dadd(147.596, 101.454, 17.263, 1.852)
pt3dadd(147.682, 101.373, 17.246, 1.844)
pt3dadd(147.767, 101.291, 17.229, 1.834)
pt3dadd(147.853, 101.209, 17.213, 1.826)
pt3dadd(147.938, 101.128, 17.196, 1.818)
pt3dadd(148.024, 101.046, 17.179, 1.808)
pt3dadd(148.121, 100.977, 17.17, 1.806)
pt3dadd(148.219, 100.908, 17.16, 1.806)
pt3dadd(148.316, 100.839, 17.151, 1.804)
pt3dadd(148.414, 100.77, 17.141, 1.802)
pt3dadd(148.511, 100.701, 17.132, 1.802)
pt3dadd(148.609, 100.632, 17.122, 1.8)
pt3dadd(148.706, 100.563, 17.113, 1.798)
pt3dadd(148.804, 100.493, 17.103, 1.798)
pt3dadd(148.901, 100.424, 17.094, 1.796)
pt3dadd(148.999, 100.355, 17.084, 1.794)
pt3dadd(149.092, 100.28, 17.084, 1.78)
pt3dadd(149.185, 100.204, 17.085, 1.766)
pt3dadd(149.278, 100.128, 17.085, 1.75)
pt3dadd(149.371, 100.053, 17.085, 1.736)
pt3dadd(149.465, 99.977, 17.085, 1.72)
pt3dadd(149.557, 99.901, 17.086, 1.704)
pt3dadd(149.651, 99.826, 17.086, 1.69)
pt3dadd(149.743, 99.75, 17.086, 1.676)
pt3dadd(149.837, 99.674, 17.086, 1.66)
pt3dadd(149.93, 99.599, 17.087, 1.646)
pt3dadd(150.018, 99.517, 17.087, 1.63)
pt3dadd(150.107, 99.436, 17.087, 1.616)
pt3dadd(150.194, 99.354, 17.088, 1.602)
pt3dadd(150.282, 99.273, 17.088, 1.586)
pt3dadd(150.371, 99.191, 17.089, 1.572)
pt3dadd(150.458, 99.11, 17.089, 1.558)
pt3dadd(150.547, 99.028, 17.09, 1.542)
pt3dadd(150.635, 98.947, 17.09, 1.528)
pt3dadd(150.724, 98.865, 17.09, 1.514)
pt3dadd(150.811, 98.784, 17.091, 1.5)
pt3dadd(150.895, 98.699, 17.091, 1.484)
pt3dadd(150.979, 98.613, 17.092, 1.47)
}
}
proc shape3d_162() {
dend_7[21] { pt3dadd(151.064, 98.528, 17.092, 1.456)
pt3dadd(151.148, 98.442, 17.093, 1.442)
pt3dadd(151.232, 98.357, 17.093, 1.428)
pt3dadd(151.316, 98.271, 17.094, 1.414)
pt3dadd(151.4, 98.186, 17.094, 1.398)
pt3dadd(151.486, 98.1, 17.095, 1.384)
pt3dadd(151.57, 98.015, 17.096, 1.37)
pt3dadd(151.654, 97.929, 17.096, 1.356)
}
dend_7[22] {pt3dclear()
pt3dadd(151.654, 97.929, 17.096, 1.356)
pt3dadd(151.669, 97.903, 17.096, 1.352)
pt3dadd(151.729, 97.799, 17.098, 1.336)
pt3dadd(151.79, 97.695, 17.099, 1.322)
pt3dadd(151.85, 97.592, 17.1, 1.306)
pt3dadd(151.912, 97.488, 17.101, 1.29)
pt3dadd(151.972, 97.385, 17.103, 1.274)
pt3dadd(152.033, 97.281, 17.104, 1.26)
pt3dadd(152.093, 97.177, 17.105, 1.244)
pt3dadd(152.154, 97.074, 17.106, 1.228)
pt3dadd(152.214, 96.97, 17.108, 1.214)
pt3dadd(152.276, 96.868, 17.109, 1.198)
pt3dadd(152.342, 96.768, 17.111, 1.182)
pt3dadd(152.408, 96.667, 17.113, 1.168)
pt3dadd(152.473, 96.567, 17.115, 1.154)
pt3dadd(152.539, 96.466, 17.116, 1.138)
pt3dadd(152.605, 96.366, 17.118, 1.124)
pt3dadd(152.67, 96.265, 17.12, 1.108)
pt3dadd(152.736, 96.165, 17.122, 1.094)
pt3dadd(152.802, 96.064, 17.124, 1.078)
pt3dadd(152.867, 95.964, 17.126, 1.064)
pt3dadd(152.935, 95.865, 17.128, 1.048)
pt3dadd(153.005, 95.768, 17.13, 1.034)
pt3dadd(153.076, 95.67, 17.132, 1.02)
pt3dadd(153.145, 95.573, 17.135, 1.006)
pt3dadd(153.216, 95.476, 17.137, 0.99)
pt3dadd(153.286, 95.379, 17.139, 0.976)
pt3dadd(153.356, 95.281, 17.142, 0.962)
pt3dadd(153.426, 95.184, 17.144, 0.948)
pt3dadd(153.497, 95.087, 17.147, 0.932)
pt3dadd(153.566, 94.989, 17.149, 0.918)
pt3dadd(153.64, 94.894, 17.153, 0.91)
pt3dadd(153.714, 94.801, 17.158, 0.91)
pt3dadd(153.79, 94.707, 17.164, 0.908)
pt3dadd(153.865, 94.614, 17.169, 0.908)
pt3dadd(153.94, 94.521, 17.174, 0.908)
pt3dadd(154.015, 94.428, 17.18, 0.906)
pt3dadd(154.091, 94.335, 17.185, 0.906)
pt3dadd(154.166, 94.241, 17.191, 0.906)
pt3dadd(154.241, 94.148, 17.196, 0.904)
pt3dadd(154.316, 94.055, 17.202, 0.904)
pt3dadd(154.392, 93.962, 17.208, 0.908)
pt3dadd(154.469, 93.87, 17.214, 0.916)
pt3dadd(154.546, 93.778, 17.221, 0.926)
pt3dadd(154.622, 93.686, 17.228, 0.934)
pt3dadd(154.698, 93.594, 17.235, 0.944)
pt3dadd(154.775, 93.502, 17.241, 0.952)
pt3dadd(154.852, 93.41, 17.248, 0.96)
pt3dadd(154.928, 93.318, 17.255, 0.97)
pt3dadd(155.005, 93.225, 17.261, 0.978)
pt3dadd(155.081, 93.133, 17.268, 0.988)
pt3dadd(155.159, 93.042, 17.276, 1.004)
pt3dadd(155.237, 92.952, 17.285, 1.032)
pt3dadd(155.315, 92.862, 17.294, 1.058)
pt3dadd(155.394, 92.772, 17.303, 1.086)
pt3dadd(155.472, 92.681, 17.312, 1.112)
pt3dadd(155.55, 92.591, 17.321, 1.14)
pt3dadd(155.629, 92.501, 17.33, 1.166)
pt3dadd(155.707, 92.411, 17.339, 1.194)
pt3dadd(155.785, 92.32, 17.348, 1.22)
pt3dadd(155.864, 92.23, 17.357, 1.246)
pt3dadd(155.936, 92.137, 17.373, 1.262)
pt3dadd(156, 92.04, 17.399, 1.262)
pt3dadd(156.065, 91.944, 17.424, 1.262)
pt3dadd(156.13, 91.847, 17.449, 1.262)
pt3dadd(156.193, 91.751, 17.474, 1.262)
pt3dadd(156.258, 91.654, 17.499, 1.26)
pt3dadd(156.323, 91.558, 17.525, 1.26)
pt3dadd(156.388, 91.461, 17.55, 1.26)
pt3dadd(156.451, 91.364, 17.575, 1.26)
pt3dadd(156.516, 91.268, 17.6, 1.26)
pt3dadd(156.576, 91.17, 17.63, 1.25)
pt3dadd(156.634, 91.072, 17.662, 1.234)
pt3dadd(156.69, 90.974, 17.694, 1.218)
pt3dadd(156.748, 90.876, 17.726, 1.202)
pt3dadd(156.804, 90.777, 17.758, 1.186)
pt3dadd(156.862, 90.679, 17.791, 1.17)
pt3dadd(156.919, 90.581, 17.823, 1.152)
pt3dadd(156.976, 90.483, 17.855, 1.136)
pt3dadd(157.033, 90.384, 17.887, 1.12)
pt3dadd(157.09, 90.286, 17.919, 1.104)
pt3dadd(157.152, 90.189, 17.945, 1.08)
pt3dadd(157.218, 90.092, 17.967, 1.05)
pt3dadd(157.284, 89.994, 17.988, 1.02)
pt3dadd(157.349, 89.898, 18.01, 0.992)
pt3dadd(157.415, 89.8, 18.031, 0.962)
pt3dadd(157.481, 89.703, 18.052, 0.932)
pt3dadd(157.547, 89.606, 18.074, 0.904)
pt3dadd(157.613, 89.509, 18.095, 0.874)
pt3dadd(157.678, 89.412, 18.117, 0.846)
pt3dadd(157.744, 89.315, 18.138, 0.816)
pt3dadd(157.812, 89.219, 18.156, 0.8)
pt3dadd(157.882, 89.123, 18.172, 0.796)
pt3dadd(157.951, 89.027, 18.188, 0.792)
pt3dadd(158.021, 88.932, 18.204, 0.788)
pt3dadd(158.09, 88.836, 18.219, 0.784)
pt3dadd(158.16, 88.74, 18.235, 0.78)
pt3dadd(158.23, 88.644, 18.251, 0.776)
pt3dadd(158.3, 88.548, 18.266, 0.772)
pt3dadd(158.37, 88.452, 18.282, 0.766)
pt3dadd(158.44, 88.357, 18.298, 0.762)
pt3dadd(158.51, 88.261, 18.311, 0.77)
pt3dadd(158.582, 88.167, 18.322, 0.784)
pt3dadd(158.656, 88.072, 18.334, 0.8)
pt3dadd(158.728, 87.977, 18.345, 0.814)
pt3dadd(158.8, 87.882, 18.356, 0.828)
pt3dadd(158.872, 87.787, 18.368, 0.844)
pt3dadd(158.945, 87.692, 18.379, 0.858)
pt3dadd(159.017, 87.598, 18.39, 0.874)
pt3dadd(159.089, 87.503, 18.402, 0.888)
pt3dadd(159.161, 87.408, 18.413, 0.904)
pt3dadd(159.226, 87.308, 18.422, 0.93)
pt3dadd(159.284, 87.203, 18.428, 0.962)
pt3dadd(159.343, 87.099, 18.435, 0.996)
pt3dadd(159.403, 86.995, 18.442, 1.03)
pt3dadd(159.462, 86.891, 18.448, 1.062)
pt3dadd(159.521, 86.787, 18.455, 1.096)
pt3dadd(159.581, 86.683, 18.462, 1.13)
pt3dadd(159.64, 86.579, 18.469, 1.162)
pt3dadd(159.698, 86.475, 18.475, 1.196)
pt3dadd(159.757, 86.371, 18.482, 1.23)
pt3dadd(159.821, 86.269, 18.49, 1.244)
pt3dadd(159.888, 86.17, 18.5, 1.244)
pt3dadd(159.954, 86.07, 18.509, 1.244)
pt3dadd(160.02, 85.971, 18.519, 1.244)
pt3dadd(160.086, 85.872, 18.528, 1.246)
pt3dadd(160.152, 85.772, 18.538, 1.246)
pt3dadd(160.218, 85.673, 18.547, 1.246)
pt3dadd(160.285, 85.573, 18.557, 1.246)
pt3dadd(160.351, 85.474, 18.566, 1.248)
pt3dadd(160.417, 85.375, 18.576, 1.248)
pt3dadd(160.486, 85.278, 18.593, 1.24)
pt3dadd(160.555, 85.184, 18.614, 1.228)
pt3dadd(160.626, 85.09, 18.635, 1.216)
pt3dadd(160.696, 84.996, 18.657, 1.204)
pt3dadd(160.765, 84.902, 18.678, 1.192)
pt3dadd(160.835, 84.808, 18.7, 1.18)
pt3dadd(160.906, 84.714, 18.721, 1.168)
pt3dadd(160.975, 84.62, 18.742, 1.156)
pt3dadd(161.045, 84.526, 18.764, 1.144)
pt3dadd(161.114, 84.432, 18.785, 1.132)
pt3dadd(161.185, 84.346, 18.823, 1.128)
pt3dadd(161.255, 84.263, 18.866, 1.124)
pt3dadd(161.324, 84.181, 18.909, 1.122)
pt3dadd(161.395, 84.098, 18.952, 1.118)
pt3dadd(161.465, 84.015, 18.995, 1.116)
pt3dadd(161.534, 83.933, 19.038, 1.112)
pt3dadd(161.605, 83.85, 19.081, 1.11)
pt3dadd(161.675, 83.767, 19.124, 1.106)
pt3dadd(161.744, 83.685, 19.167, 1.104)
pt3dadd(161.815, 83.602, 19.21, 1.1)
pt3dadd(161.894, 83.52, 19.238, 1.086)
pt3dadd(161.977, 83.437, 19.262, 1.07)
pt3dadd(162.059, 83.355, 19.286, 1.052)
pt3dadd(162.142, 83.273, 19.31, 1.036)
pt3dadd(162.224, 83.19, 19.335, 1.02)
pt3dadd(162.306, 83.108, 19.359, 1.002)
pt3dadd(162.389, 83.025, 19.383, 0.986)
pt3dadd(162.47, 82.943, 19.407, 0.97)
pt3dadd(162.553, 82.861, 19.432, 0.954)
pt3dadd(162.636, 82.779, 19.456, 0.936)
pt3dadd(162.719, 82.695, 19.472, 0.96)
pt3dadd(162.803, 82.611, 19.485, 0.994)
pt3dadd(162.887, 82.527, 19.499, 1.026)
pt3dadd(162.971, 82.443, 19.513, 1.06)
pt3dadd(163.056, 82.359, 19.526, 1.092)
pt3dadd(163.14, 82.275, 19.54, 1.126)
pt3dadd(163.224, 82.191, 19.554, 1.158)
pt3dadd(163.308, 82.107, 19.568, 1.192)
pt3dadd(163.392, 82.023, 19.581, 1.224)
pt3dadd(163.476, 81.938, 19.595, 1.258)
pt3dadd(163.56, 81.854, 19.605, 1.278)
pt3dadd(163.644, 81.77, 19.615, 1.294)
pt3dadd(163.729, 81.685, 19.625, 1.312)
pt3dadd(163.813, 81.601, 19.635, 1.328)
pt3dadd(163.897, 81.516, 19.644, 1.346)
pt3dadd(163.982, 81.432, 19.654, 1.362)
pt3dadd(164.066, 81.347, 19.664, 1.38)
pt3dadd(164.15, 81.263, 19.674, 1.396)
pt3dadd(164.236, 81.178, 19.684, 1.414)
pt3dadd(164.32, 81.094, 19.693, 1.43)
pt3dadd(164.405, 81.009, 19.699, 1.388)
pt3dadd(164.489, 80.924, 19.705, 1.334)
pt3dadd(164.574, 80.839, 19.71, 1.28)
pt3dadd(164.658, 80.754, 19.715, 1.226)
pt3dadd(164.743, 80.67, 19.721, 1.172)
pt3dadd(164.827, 80.585, 19.726, 1.116)
pt3dadd(164.912, 80.5, 19.732, 1.062)
pt3dadd(164.996, 80.415, 19.737, 1.008)
pt3dadd(165.082, 80.33, 19.742, 0.954)
pt3dadd(165.166, 80.245, 19.748, 0.9)
pt3dadd(165.251, 80.161, 19.755, 0.88)
}
}
proc shape3d_163() {
dend_7[22] { pt3dadd(165.335, 80.076, 19.763, 0.868)
pt3dadd(165.42, 79.991, 19.771, 0.854)
pt3dadd(165.504, 79.906, 19.778, 0.842)
pt3dadd(165.588, 79.822, 19.786, 0.83)
pt3dadd(165.673, 79.737, 19.794, 0.818)
pt3dadd(165.757, 79.652, 19.802, 0.804)
pt3dadd(165.842, 79.568, 19.809, 0.792)
pt3dadd(165.926, 79.483, 19.817, 0.78)
pt3dadd(166.01, 79.398, 19.825, 0.766)
pt3dadd(166.096, 79.314, 19.835, 0.776)
pt3dadd(166.18, 79.229, 19.845, 0.79)
pt3dadd(166.264, 79.144, 19.855, 0.802)
pt3dadd(166.348, 79.06, 19.865, 0.816)
pt3dadd(166.433, 78.975, 19.875, 0.83)
pt3dadd(166.517, 78.891, 19.885, 0.844)
pt3dadd(166.601, 78.806, 19.895, 0.856)
pt3dadd(166.685, 78.722, 19.905, 0.87)
pt3dadd(166.769, 78.637, 19.916, 0.884)
pt3dadd(166.854, 78.552, 19.926, 0.898)
pt3dadd(166.931, 78.474, 19.964, 0.884)
pt3dadd(167.008, 78.397, 20.007, 0.864)
pt3dadd(167.083, 78.32, 20.05, 0.844)
pt3dadd(167.16, 78.243, 20.093, 0.826)
pt3dadd(167.236, 78.166, 20.136, 0.806)
pt3dadd(167.312, 78.089, 20.179, 0.788)
pt3dadd(167.388, 78.012, 20.222, 0.768)
pt3dadd(167.465, 77.935, 20.264, 0.75)
pt3dadd(167.54, 77.858, 20.307, 0.73)
pt3dadd(167.617, 77.781, 20.351, 0.71)
pt3dadd(167.698, 77.699, 20.379, 0.73)
pt3dadd(167.778, 77.617, 20.405, 0.754)
pt3dadd(167.86, 77.534, 20.431, 0.78)
pt3dadd(167.941, 77.451, 20.457, 0.804)
pt3dadd(168.022, 77.369, 20.483, 0.828)
pt3dadd(168.103, 77.286, 20.509, 0.854)
pt3dadd(168.185, 77.203, 20.535, 0.878)
pt3dadd(168.265, 77.121, 20.562, 0.904)
pt3dadd(168.347, 77.038, 20.588, 0.928)
pt3dadd(168.428, 76.956, 20.614, 0.954)
pt3dadd(168.51, 76.871, 20.631, 0.972)
pt3dadd(168.593, 76.786, 20.648, 0.988)
pt3dadd(168.676, 76.702, 20.664, 1.006)
pt3dadd(168.758, 76.617, 20.68, 1.024)
pt3dadd(168.841, 76.532, 20.697, 1.042)
pt3dadd(168.924, 76.447, 20.713, 1.058)
pt3dadd(169.007, 76.363, 20.729, 1.076)
pt3dadd(169.09, 76.278, 20.746, 1.094)
pt3dadd(169.171, 76.193, 20.762, 1.11)
pt3dadd(169.254, 76.108, 20.779, 1.128)
pt3dadd(169.338, 76.023, 20.788, 1.13)
pt3dadd(169.421, 75.937, 20.798, 1.13)
pt3dadd(169.504, 75.851, 20.806, 1.13)
pt3dadd(169.586, 75.765, 20.816, 1.13)
pt3dadd(169.669, 75.679, 20.825, 1.13)
pt3dadd(169.753, 75.593, 20.834, 1.13)
pt3dadd(169.836, 75.507, 20.843, 1.13)
pt3dadd(169.919, 75.421, 20.852, 1.13)
pt3dadd(170.002, 75.335, 20.861, 1.13)
pt3dadd(170.086, 75.249, 20.87, 1.13)
pt3dadd(170.167, 75.162, 20.872, 1.12)
pt3dadd(170.249, 75.074, 20.873, 1.108)
pt3dadd(170.33, 74.986, 20.874, 1.096)
pt3dadd(170.413, 74.899, 20.875, 1.084)
pt3dadd(170.495, 74.811, 20.876, 1.072)
pt3dadd(170.576, 74.724, 20.877, 1.06)
pt3dadd(170.659, 74.636, 20.878, 1.048)
pt3dadd(170.741, 74.548, 20.879, 1.036)
pt3dadd(170.822, 74.46, 20.88, 1.024)
pt3dadd(170.904, 74.373, 20.882, 1.012)
pt3dadd(170.986, 74.285, 20.882, 1)
pt3dadd(171.067, 74.196, 20.882, 0.986)
pt3dadd(171.149, 74.108, 20.882, 0.974)
pt3dadd(171.229, 74.02, 20.883, 0.96)
pt3dadd(171.311, 73.932, 20.883, 0.946)
pt3dadd(171.392, 73.843, 20.883, 0.934)
pt3dadd(171.474, 73.755, 20.884, 0.92)
pt3dadd(171.554, 73.667, 20.884, 0.908)
pt3dadd(171.636, 73.578, 20.884, 0.894)
pt3dadd(171.718, 73.49, 20.884, 0.88)
pt3dadd(171.797, 73.4, 20.885, 0.868)
pt3dadd(171.876, 73.31, 20.885, 0.854)
pt3dadd(171.955, 73.22, 20.886, 0.84)
pt3dadd(172.034, 73.13, 20.886, 0.826)
pt3dadd(172.115, 73.04, 20.887, 0.814)
pt3dadd(172.194, 72.95, 20.887, 0.8)
pt3dadd(172.273, 72.86, 20.888, 0.786)
pt3dadd(172.352, 72.77, 20.888, 0.772)
pt3dadd(172.432, 72.68, 20.889, 0.76)
pt3dadd(172.511, 72.59, 20.889, 0.746)
pt3dadd(172.583, 72.494, 20.89, 0.746)
pt3dadd(172.652, 72.396, 20.891, 0.746)
pt3dadd(172.723, 72.3, 20.891, 0.748)
pt3dadd(172.794, 72.202, 20.892, 0.75)
pt3dadd(172.865, 72.105, 20.893, 0.75)
pt3dadd(172.936, 72.008, 20.894, 0.752)
pt3dadd(173.006, 71.911, 20.895, 0.754)
pt3dadd(173.076, 71.814, 20.896, 0.754)
pt3dadd(173.147, 71.717, 20.897, 0.756)
pt3dadd(173.218, 71.62, 20.898, 0.756)
pt3dadd(173.28, 71.518, 20.899, 0.772)
pt3dadd(173.342, 71.415, 20.9, 0.786)
pt3dadd(173.404, 71.312, 20.901, 0.802)
pt3dadd(173.466, 71.209, 20.903, 0.818)
pt3dadd(173.527, 71.106, 20.904, 0.834)
pt3dadd(173.59, 71.004, 20.905, 0.85)
pt3dadd(173.651, 70.901, 20.907, 0.864)
pt3dadd(173.713, 70.798, 20.908, 0.88)
pt3dadd(173.774, 70.695, 20.909, 0.896)
pt3dadd(173.837, 70.592, 20.91, 0.912)
pt3dadd(173.908, 70.496, 20.913, 0.926)
pt3dadd(173.98, 70.4, 20.915, 0.94)
pt3dadd(174.052, 70.304, 20.918, 0.956)
pt3dadd(174.124, 70.207, 20.92, 0.97)
pt3dadd(174.194, 70.111, 20.922, 0.984)
pt3dadd(174.266, 70.015, 20.925, 1)
pt3dadd(174.338, 69.919, 20.927, 1.014)
pt3dadd(174.41, 69.823, 20.929, 1.03)
pt3dadd(174.482, 69.727, 20.932, 1.044)
pt3dadd(174.553, 69.631, 20.934, 1.058)
pt3dadd(174.629, 69.537, 20.938, 1.074)
pt3dadd(174.704, 69.444, 20.942, 1.088)
pt3dadd(174.78, 69.351, 20.946, 1.102)
pt3dadd(174.856, 69.258, 20.95, 1.116)
pt3dadd(174.931, 69.165, 20.954, 1.132)
pt3dadd(175.008, 69.072, 20.958, 1.146)
pt3dadd(175.084, 68.979, 20.963, 1.16)
pt3dadd(175.159, 68.886, 20.967, 1.176)
pt3dadd(175.235, 68.793, 20.971, 1.19)
pt3dadd(175.31, 68.7, 20.975, 1.204)
pt3dadd(175.39, 68.61, 20.98, 1.218)
pt3dadd(175.469, 68.52, 20.986, 1.234)
pt3dadd(175.548, 68.431, 20.992, 1.248)
pt3dadd(175.627, 68.341, 20.998, 1.262)
pt3dadd(175.706, 68.251, 21.003, 1.276)
pt3dadd(175.786, 68.161, 21.009, 1.29)
pt3dadd(175.865, 68.071, 21.015, 1.306)
pt3dadd(175.944, 67.981, 21.02, 1.32)
pt3dadd(176.023, 67.891, 21.026, 1.334)
pt3dadd(176.102, 67.801, 21.032, 1.348)
pt3dadd(176.186, 67.716, 21.041, 1.336)
pt3dadd(176.27, 67.632, 21.05, 1.324)
pt3dadd(176.354, 67.547, 21.059, 1.312)
pt3dadd(176.438, 67.462, 21.068, 1.298)
pt3dadd(176.522, 67.377, 21.077, 1.286)
pt3dadd(176.608, 67.293, 21.086, 1.272)
pt3dadd(176.692, 67.208, 21.095, 1.26)
pt3dadd(176.776, 67.123, 21.104, 1.246)
pt3dadd(176.86, 67.038, 21.114, 1.234)
pt3dadd(176.945, 66.954, 21.123, 1.222)
pt3dadd(177.028, 66.871, 21.144, 1.206)
pt3dadd(177.11, 66.788, 21.166, 1.188)
pt3dadd(177.193, 66.705, 21.188, 1.172)
pt3dadd(177.276, 66.622, 21.209, 1.156)
pt3dadd(177.359, 66.54, 21.231, 1.14)
pt3dadd(177.442, 66.457, 21.253, 1.124)
pt3dadd(177.524, 66.374, 21.275, 1.108)
pt3dadd(177.607, 66.291, 21.296, 1.092)
pt3dadd(177.69, 66.209, 21.318, 1.076)
pt3dadd(177.773, 66.126, 21.342, 1.058)
pt3dadd(177.851, 66.048, 21.381, 1.04)
pt3dadd(177.929, 65.97, 21.42, 1.022)
pt3dadd(178.007, 65.892, 21.46, 1.002)
pt3dadd(178.085, 65.814, 21.499, 0.984)
pt3dadd(178.163, 65.736, 21.538, 0.966)
pt3dadd(178.241, 65.658, 21.578, 0.946)
pt3dadd(178.319, 65.58, 21.617, 0.928)
pt3dadd(178.397, 65.502, 21.656, 0.91)
pt3dadd(178.475, 65.424, 21.696, 0.89)
pt3dadd(178.554, 65.346, 21.733, 0.872)
pt3dadd(178.636, 65.263, 21.755, 0.856)
pt3dadd(178.718, 65.181, 21.778, 0.84)
pt3dadd(178.801, 65.098, 21.801, 0.824)
pt3dadd(178.884, 65.016, 21.824, 0.808)
pt3dadd(178.967, 64.933, 21.846, 0.79)
pt3dadd(179.05, 64.85, 21.869, 0.774)
pt3dadd(179.132, 64.768, 21.892, 0.758)
pt3dadd(179.215, 64.685, 21.914, 0.742)
pt3dadd(179.298, 64.603, 21.937, 0.726)
pt3dadd(179.381, 64.52, 21.958, 0.712)
pt3dadd(179.465, 64.436, 21.97, 0.72)
pt3dadd(179.55, 64.352, 21.982, 0.728)
pt3dadd(179.634, 64.268, 21.993, 0.736)
pt3dadd(179.718, 64.183, 22.005, 0.744)
pt3dadd(179.803, 64.099, 22.017, 0.752)
pt3dadd(179.887, 64.015, 22.029, 0.76)
pt3dadd(179.972, 63.931, 22.04, 0.768)
pt3dadd(180.056, 63.847, 22.052, 0.776)
pt3dadd(180.14, 63.763, 22.064, 0.784)
pt3dadd(180.226, 63.679, 22.075, 0.794)
pt3dadd(180.31, 63.594, 22.082, 0.808)
pt3dadd(180.395, 63.51, 22.089, 0.822)
pt3dadd(180.48, 63.426, 22.096, 0.836)
pt3dadd(180.564, 63.341, 22.104, 0.85)
pt3dadd(180.649, 63.257, 22.111, 0.862)
pt3dadd(180.734, 63.172, 22.118, 0.876)
pt3dadd(180.818, 63.088, 22.125, 0.89)
pt3dadd(180.904, 63.003, 22.132, 0.904)
pt3dadd(180.989, 62.919, 22.139, 0.918)
pt3dadd(181.073, 62.834, 22.145, 0.932)
pt3dadd(181.158, 62.75, 22.146, 0.944)
}
}
proc shape3d_164() {
dend_7[22] { pt3dadd(181.243, 62.665, 22.146, 0.958)
pt3dadd(181.328, 62.581, 22.146, 0.97)
pt3dadd(181.414, 62.496, 22.146, 0.984)
pt3dadd(181.499, 62.412, 22.146, 0.996)
pt3dadd(181.584, 62.327, 22.147, 1.008)
pt3dadd(181.669, 62.242, 22.147, 1.022)
pt3dadd(181.754, 62.158, 22.147, 1.034)
pt3dadd(181.84, 62.073, 22.147, 1.046)
pt3dadd(181.925, 61.989, 22.147, 1.06)
pt3dadd(182.01, 61.905, 22.148, 1.072)
pt3dadd(182.095, 61.82, 22.148, 1.084)
pt3dadd(182.182, 61.736, 22.148, 1.098)
pt3dadd(182.267, 61.651, 22.149, 1.11)
pt3dadd(182.352, 61.567, 22.149, 1.122)
pt3dadd(182.437, 61.483, 22.149, 1.136)
pt3dadd(182.522, 61.398, 22.15, 1.148)
pt3dadd(182.608, 61.314, 22.15, 1.162)
pt3dadd(182.693, 61.229, 22.15, 1.174)
pt3dadd(182.778, 61.145, 22.151, 1.186)
pt3dadd(182.864, 61.061, 22.151, 1.2)
pt3dadd(182.95, 60.977, 22.152, 1.212)
pt3dadd(183.035, 60.893, 22.152, 1.226)
pt3dadd(183.12, 60.809, 22.152, 1.238)
pt3dadd(183.206, 60.724, 22.153, 1.25)
pt3dadd(183.292, 60.64, 22.153, 1.264)
pt3dadd(183.377, 60.556, 22.154, 1.276)
pt3dadd(183.463, 60.472, 22.154, 1.29)
pt3dadd(183.548, 60.388, 22.155, 1.302)
pt3dadd(183.634, 60.304, 22.155, 1.312)
pt3dadd(183.72, 60.22, 22.156, 1.308)
pt3dadd(183.806, 60.136, 22.157, 1.304)
pt3dadd(183.892, 60.053, 22.158, 1.3)
pt3dadd(183.978, 59.969, 22.159, 1.294)
pt3dadd(184.063, 59.885, 22.159, 1.29)
pt3dadd(184.15, 59.802, 22.16, 1.286)
pt3dadd(184.236, 59.718, 22.161, 1.282)
pt3dadd(184.321, 59.634, 22.162, 1.278)
pt3dadd(184.408, 59.55, 22.163, 1.274)
pt3dadd(184.494, 59.467, 22.164, 1.268)
pt3dadd(184.58, 59.383, 22.165, 1.254)
pt3dadd(184.666, 59.3, 22.166, 1.242)
pt3dadd(184.752, 59.216, 22.167, 1.228)
pt3dadd(184.838, 59.133, 22.168, 1.216)
pt3dadd(184.925, 59.05, 22.169, 1.202)
pt3dadd(185.011, 58.966, 22.17, 1.19)
pt3dadd(185.098, 58.883, 22.171, 1.176)
pt3dadd(185.184, 58.799, 22.172, 1.164)
pt3dadd(185.27, 58.716, 22.173, 1.15)
pt3dadd(185.357, 58.633, 22.174, 1.134)
pt3dadd(185.444, 58.551, 22.176, 1.108)
pt3dadd(185.533, 58.47, 22.178, 1.082)
pt3dadd(185.621, 58.389, 22.18, 1.056)
pt3dadd(185.71, 58.308, 22.182, 1.03)
pt3dadd(185.797, 58.226, 22.184, 1.004)
pt3dadd(185.886, 58.145, 22.187, 0.978)
pt3dadd(185.974, 58.063, 22.189, 0.952)
pt3dadd(186.062, 57.982, 22.191, 0.926)
pt3dadd(186.15, 57.901, 22.193, 0.9)
pt3dadd(186.239, 57.82, 22.195, 0.878)
pt3dadd(186.328, 57.739, 22.198, 0.868)
pt3dadd(186.416, 57.659, 22.201, 0.86)
pt3dadd(186.505, 57.578, 22.204, 0.85)
pt3dadd(186.594, 57.498, 22.208, 0.842)
pt3dadd(186.684, 57.417, 22.211, 0.834)
pt3dadd(186.773, 57.337, 22.214, 0.824)
pt3dadd(186.862, 57.257, 22.217, 0.816)
pt3dadd(186.95, 57.176, 22.22, 0.808)
pt3dadd(187.039, 57.096, 22.223, 0.798)
pt3dadd(187.129, 57.016, 22.227, 0.798)
pt3dadd(187.22, 56.938, 22.232, 0.842)
pt3dadd(187.31, 56.86, 22.238, 0.886)
pt3dadd(187.402, 56.782, 22.244, 0.93)
pt3dadd(187.493, 56.704, 22.25, 0.974)
pt3dadd(187.584, 56.627, 22.255, 1.016)
pt3dadd(187.675, 56.549, 22.261, 1.06)
pt3dadd(187.766, 56.471, 22.267, 1.104)
pt3dadd(187.858, 56.393, 22.273, 1.148)
pt3dadd(187.949, 56.315, 22.278, 1.192)
pt3dadd(188.041, 56.24, 22.285, 1.23)
pt3dadd(188.143, 56.179, 22.295, 1.244)
pt3dadd(188.246, 56.117, 22.305, 1.256)
pt3dadd(188.348, 56.056, 22.315, 1.27)
pt3dadd(188.452, 55.995, 22.325, 1.282)
pt3dadd(188.554, 55.934, 22.335, 1.294)
pt3dadd(188.657, 55.873, 22.345, 1.308)
pt3dadd(188.759, 55.811, 22.355, 1.32)
pt3dadd(188.861, 55.75, 22.365, 1.334)
pt3dadd(188.964, 55.689, 22.375, 1.346)
pt3dadd(189.066, 55.63, 22.389, 1.356)
pt3dadd(189.169, 55.581, 22.42, 1.356)
pt3dadd(189.272, 55.531, 22.45, 1.356)
pt3dadd(189.376, 55.482, 22.481, 1.356)
pt3dadd(189.479, 55.432, 22.511, 1.356)
pt3dadd(189.581, 55.383, 22.542, 1.356)
pt3dadd(189.684, 55.333, 22.572, 1.356)
pt3dadd(189.787, 55.284, 22.603, 1.356)
pt3dadd(189.89, 55.234, 22.633, 1.356)
pt3dadd(189.994, 55.185, 22.664, 1.356)
pt3dadd(190.093, 55.134, 22.699, 1.36)
pt3dadd(190.189, 55.081, 22.739, 1.37)
pt3dadd(190.286, 55.029, 22.78, 1.378)
pt3dadd(190.382, 54.976, 22.82, 1.388)
pt3dadd(190.478, 54.924, 22.861, 1.398)
pt3dadd(190.576, 54.871, 22.901, 1.406)
pt3dadd(190.672, 54.819, 22.941, 1.416)
pt3dadd(190.768, 54.766, 22.982, 1.424)
pt3dadd(190.864, 54.714, 23.022, 1.434)
pt3dadd(190.961, 54.661, 23.063, 1.444)
pt3dadd(191.059, 54.604, 23.093, 1.452)
pt3dadd(191.16, 54.545, 23.115, 1.46)
pt3dadd(191.261, 54.485, 23.137, 1.468)
pt3dadd(191.362, 54.426, 23.159, 1.476)
pt3dadd(191.462, 54.366, 23.181, 1.484)
pt3dadd(191.563, 54.306, 23.203, 1.492)
pt3dadd(191.664, 54.247, 23.225, 1.5)
pt3dadd(191.765, 54.187, 23.247, 1.51)
pt3dadd(191.866, 54.128, 23.269, 1.518)
pt3dadd(191.966, 54.068, 23.291, 1.526)
pt3dadd(192.071, 54.014, 23.306, 1.518)
pt3dadd(192.18, 53.964, 23.317, 1.5)
pt3dadd(192.288, 53.913, 23.328, 1.482)
pt3dadd(192.396, 53.863, 23.338, 1.464)
pt3dadd(192.504, 53.812, 23.349, 1.446)
pt3dadd(192.612, 53.762, 23.36, 1.428)
pt3dadd(192.72, 53.712, 23.371, 1.41)
pt3dadd(192.828, 53.661, 23.381, 1.392)
pt3dadd(192.936, 53.611, 23.392, 1.374)
pt3dadd(193.044, 53.56, 23.403, 1.356)
pt3dadd(193.148, 53.502, 23.407, 1.34)
pt3dadd(193.25, 53.439, 23.407, 1.324)
pt3dadd(193.354, 53.376, 23.407, 1.308)
pt3dadd(193.456, 53.313, 23.407, 1.294)
pt3dadd(193.558, 53.25, 23.407, 1.278)
pt3dadd(193.66, 53.187, 23.407, 1.262)
pt3dadd(193.762, 53.124, 23.407, 1.248)
pt3dadd(193.864, 53.061, 23.407, 1.232)
pt3dadd(193.967, 52.999, 23.407, 1.218)
pt3dadd(194.069, 52.936, 23.407, 1.202)
pt3dadd(194.173, 52.878, 23.407, 1.192)
pt3dadd(194.28, 52.823, 23.407, 1.186)
pt3dadd(194.387, 52.767, 23.407, 1.178)
pt3dadd(194.494, 52.712, 23.407, 1.172)
pt3dadd(194.6, 52.657, 23.407, 1.166)
pt3dadd(194.706, 52.602, 23.407, 1.158)
pt3dadd(194.813, 52.547, 23.407, 1.152)
pt3dadd(194.92, 52.492, 23.407, 1.146)
pt3dadd(195.026, 52.437, 23.407, 1.14)
pt3dadd(195.133, 52.382, 23.407, 1.132)
pt3dadd(195.241, 52.329, 23.407, 1.13)
pt3dadd(195.349, 52.277, 23.407, 1.13)
pt3dadd(195.457, 52.225, 23.407, 1.13)
pt3dadd(195.565, 52.173, 23.407, 1.13)
pt3dadd(195.673, 52.122, 23.407, 1.13)
pt3dadd(195.781, 52.07, 23.407, 1.13)
pt3dadd(195.89, 52.018, 23.407, 1.13)
pt3dadd(195.998, 51.966, 23.407, 1.13)
pt3dadd(196.106, 51.914, 23.407, 1.13)
pt3dadd(196.214, 51.862, 23.407, 1.13)
pt3dadd(196.318, 51.801, 23.407, 1.13)
pt3dadd(196.418, 51.736, 23.407, 1.13)
pt3dadd(196.519, 51.67, 23.407, 1.13)
pt3dadd(196.619, 51.605, 23.407, 1.13)
pt3dadd(196.72, 51.539, 23.407, 1.13)
pt3dadd(196.82, 51.474, 23.407, 1.13)
pt3dadd(196.921, 51.408, 23.407, 1.13)
pt3dadd(197.022, 51.343, 23.407, 1.13)
pt3dadd(197.122, 51.277, 23.407, 1.13)
pt3dadd(197.222, 51.212, 23.407, 1.13)
pt3dadd(197.322, 51.145, 23.407, 1.13)
pt3dadd(197.422, 51.077, 23.407, 1.13)
pt3dadd(197.52, 51.009, 23.407, 1.13)
pt3dadd(197.62, 50.942, 23.407, 1.13)
pt3dadd(197.719, 50.874, 23.407, 1.13)
pt3dadd(197.818, 50.807, 23.407, 1.13)
pt3dadd(197.917, 50.739, 23.407, 1.13)
pt3dadd(198.016, 50.671, 23.407, 1.13)
pt3dadd(198.115, 50.604, 23.407, 1.13)
pt3dadd(198.215, 50.536, 23.407, 1.13)
pt3dadd(198.314, 50.469, 23.407, 1.13)
pt3dadd(198.414, 50.403, 23.407, 1.13)
pt3dadd(198.514, 50.336, 23.407, 1.13)
pt3dadd(198.613, 50.27, 23.407, 1.13)
pt3dadd(198.713, 50.203, 23.407, 1.13)
pt3dadd(198.814, 50.136, 23.407, 1.13)
pt3dadd(198.913, 50.07, 23.407, 1.13)
pt3dadd(199.013, 50.003, 23.407, 1.13)
pt3dadd(199.112, 49.937, 23.407, 1.13)
pt3dadd(199.213, 49.87, 23.407, 1.13)
pt3dadd(199.319, 49.814, 23.407, 1.13)
pt3dadd(199.427, 49.763, 23.407, 1.13)
pt3dadd(199.536, 49.712, 23.407, 1.13)
pt3dadd(199.644, 49.66, 23.407, 1.13)
pt3dadd(199.752, 49.609, 23.407, 1.13)
pt3dadd(199.861, 49.558, 23.407, 1.13)
pt3dadd(199.969, 49.506, 23.407, 1.13)
pt3dadd(200.078, 49.455, 23.407, 1.13)
pt3dadd(200.186, 49.404, 23.407, 1.13)
pt3dadd(200.294, 49.353, 23.407, 1.13)
pt3dadd(200.406, 49.308, 23.407, 1.13)
pt3dadd(200.519, 49.267, 23.407, 1.13)
}
}
proc shape3d_165() {
dend_7[22] { pt3dadd(200.632, 49.225, 23.407, 1.13)
pt3dadd(200.744, 49.184, 23.407, 1.13)
pt3dadd(200.857, 49.143, 23.407, 1.13)
pt3dadd(200.969, 49.101, 23.407, 1.13)
pt3dadd(201.082, 49.06, 23.407, 1.13)
pt3dadd(201.194, 49.018, 23.407, 1.13)
pt3dadd(201.307, 48.977, 23.407, 1.13)
pt3dadd(201.42, 48.935, 23.407, 1.13)
pt3dadd(201.53, 48.89, 23.407, 1.112)
pt3dadd(201.641, 48.843, 23.407, 1.088)
pt3dadd(201.751, 48.795, 23.407, 1.064)
pt3dadd(201.862, 48.748, 23.407, 1.04)
pt3dadd(201.972, 48.701, 23.407, 1.016)
pt3dadd(202.082, 48.654, 23.407, 0.992)
pt3dadd(202.193, 48.607, 23.407, 0.966)
pt3dadd(202.303, 48.559, 23.407, 0.942)
pt3dadd(202.414, 48.512, 23.407, 0.918)
pt3dadd(202.524, 48.465, 23.407, 0.894)
pt3dadd(202.628, 48.407, 23.407, 0.842)
pt3dadd(202.732, 48.346, 23.407, 0.78)
pt3dadd(202.835, 48.284, 23.407, 0.718)
pt3dadd(202.938, 48.223, 23.407, 0.658)
pt3dadd(203.041, 48.162, 23.407, 0.596)
pt3dadd(203.144, 48.1, 23.407, 0.534)
pt3dadd(203.248, 48.039, 23.407, 0.474)
pt3dadd(203.351, 47.978, 23.407, 0.412)
pt3dadd(203.454, 47.917, 23.407, 0.35)
pt3dadd(203.557, 47.855, 23.407, 0.29)
pt3dadd(203.654, 47.785, 23.407, 0.3)
pt3dadd(203.749, 47.712, 23.407, 0.334)
pt3dadd(203.845, 47.639, 23.407, 0.368)
pt3dadd(203.94, 47.566, 23.407, 0.402)
pt3dadd(204.036, 47.494, 23.407, 0.438)
pt3dadd(204.131, 47.421, 23.407, 0.47)
pt3dadd(204.227, 47.348, 23.407, 0.506)
pt3dadd(204.322, 47.275, 23.407, 0.54)
pt3dadd(204.416, 47.202, 23.407, 0.574)
pt3dadd(204.512, 47.129, 23.407, 0.608)
pt3dadd(204.607, 47.055, 23.407, 0.644)
pt3dadd(204.701, 46.981, 23.407, 0.682)
pt3dadd(204.796, 46.907, 23.407, 0.72)
pt3dadd(204.89, 46.833, 23.407, 0.758)
pt3dadd(204.985, 46.759, 23.407, 0.796)
pt3dadd(205.079, 46.685, 23.407, 0.834)
pt3dadd(205.174, 46.611, 23.407, 0.87)
pt3dadd(205.268, 46.537, 23.407, 0.908)
pt3dadd(205.362, 46.463, 23.407, 0.946)
pt3dadd(205.457, 46.389, 23.407, 0.984)
pt3dadd(205.55, 46.315, 23.407, 1.014)
pt3dadd(205.645, 46.24, 23.407, 1.042)
pt3dadd(205.739, 46.166, 23.407, 1.07)
pt3dadd(205.834, 46.091, 23.407, 1.098)
pt3dadd(205.927, 46.017, 23.407, 1.126)
pt3dadd(206.021, 45.942, 23.407, 1.154)
pt3dadd(206.116, 45.868, 23.407, 1.182)
pt3dadd(206.209, 45.793, 23.407, 1.21)
pt3dadd(206.304, 45.719, 23.407, 1.238)
pt3dadd(206.398, 45.644, 23.407, 1.266)
pt3dadd(206.501, 45.584, 23.407, 1.252)
pt3dadd(206.606, 45.528, 23.407, 1.226)
pt3dadd(206.713, 45.471, 23.407, 1.2)
pt3dadd(206.819, 45.415, 23.407, 1.174)
pt3dadd(206.924, 45.358, 23.407, 1.146)
pt3dadd(207.031, 45.302, 23.407, 1.12)
pt3dadd(207.137, 45.246, 23.407, 1.094)
pt3dadd(207.242, 45.189, 23.407, 1.068)
pt3dadd(207.348, 45.133, 23.407, 1.042)
pt3dadd(207.455, 45.077, 23.407, 1.016)
pt3dadd(207.565, 45.032, 23.407, 0.988)
pt3dadd(207.678, 44.99, 23.407, 0.96)
pt3dadd(207.791, 44.948, 23.407, 0.932)
pt3dadd(207.902, 44.906, 23.407, 0.904)
pt3dadd(208.015, 44.864, 23.407, 0.876)
pt3dadd(208.128, 44.821, 23.407, 0.848)
pt3dadd(208.24, 44.779, 23.407, 0.82)
pt3dadd(208.352, 44.737, 23.407, 0.794)
pt3dadd(208.465, 44.695, 23.407, 0.766)
pt3dadd(208.577, 44.653, 23.407, 0.738)
pt3dadd(208.693, 44.622, 23.407, 0.75)
pt3dadd(208.81, 44.593, 23.407, 0.766)
pt3dadd(208.926, 44.563, 23.407, 0.784)
pt3dadd(209.042, 44.534, 23.407, 0.802)
pt3dadd(209.159, 44.505, 23.407, 0.82)
pt3dadd(209.274, 44.475, 23.407, 0.838)
pt3dadd(209.39, 44.446, 23.407, 0.854)
pt3dadd(209.507, 44.417, 23.407, 0.872)
pt3dadd(209.623, 44.387, 23.407, 0.89)
pt3dadd(209.74, 44.358, 23.407, 0.908)
pt3dadd(209.85, 44.312, 23.407, 0.938)
pt3dadd(209.96, 44.263, 23.407, 0.97)
pt3dadd(210.07, 44.214, 23.407, 1.004)
pt3dadd(210.18, 44.165, 23.407, 1.036)
pt3dadd(210.289, 44.116, 23.407, 1.068)
pt3dadd(210.398, 44.068, 23.407, 1.102)
pt3dadd(210.509, 44.019, 23.407, 1.134)
pt3dadd(210.618, 43.97, 23.407, 1.166)
pt3dadd(210.727, 43.921, 23.407, 1.2)
pt3dadd(210.838, 43.872, 23.407, 1.232)
pt3dadd(210.949, 43.829, 23.407, 1.228)
pt3dadd(211.061, 43.786, 23.407, 1.218)
pt3dadd(211.174, 43.743, 23.407, 1.21)
pt3dadd(211.285, 43.7, 23.407, 1.2)
pt3dadd(211.397, 43.657, 23.407, 1.19)
pt3dadd(211.51, 43.614, 23.407, 1.182)
pt3dadd(211.621, 43.571, 23.407, 1.172)
pt3dadd(211.733, 43.528, 23.407, 1.162)
pt3dadd(211.846, 43.485, 23.407, 1.154)
pt3dadd(211.957, 43.442, 23.407, 1.144)
pt3dadd(212.071, 43.403, 23.407, 1.13)
pt3dadd(212.184, 43.365, 23.407, 1.116)
pt3dadd(212.298, 43.326, 23.407, 1.102)
pt3dadd(212.412, 43.288, 23.407, 1.088)
pt3dadd(212.526, 43.25, 23.407, 1.074)
pt3dadd(212.639, 43.211, 23.407, 1.062)
pt3dadd(212.753, 43.173, 23.407, 1.048)
pt3dadd(212.867, 43.135, 23.407, 1.034)
pt3dadd(212.981, 43.097, 23.407, 1.02)
pt3dadd(213.095, 43.058, 23.407, 1.006)
pt3dadd(213.209, 43.023, 23.407, 1.034)
pt3dadd(213.324, 42.988, 23.407, 1.068)
pt3dadd(213.438, 42.952, 23.407, 1.102)
pt3dadd(213.553, 42.917, 23.407, 1.136)
pt3dadd(213.668, 42.882, 23.407, 1.17)
pt3dadd(213.782, 42.847, 23.407, 1.204)
pt3dadd(213.898, 42.812, 23.407, 1.238)
pt3dadd(214.012, 42.777, 23.407, 1.274)
pt3dadd(214.127, 42.742, 23.407, 1.308)
pt3dadd(214.242, 42.707, 23.407, 1.342)
pt3dadd(214.349, 42.653, 23.407, 1.28)
pt3dadd(214.454, 42.597, 23.407, 1.204)
pt3dadd(214.561, 42.541, 23.407, 1.128)
pt3dadd(214.667, 42.485, 23.407, 1.054)
pt3dadd(214.774, 42.429, 23.407, 0.978)
pt3dadd(214.879, 42.373, 23.407, 0.902)
pt3dadd(214.986, 42.317, 23.407, 0.826)
pt3dadd(215.092, 42.261, 23.407, 0.752)
pt3dadd(215.198, 42.205, 23.407, 0.676)
pt3dadd(215.304, 42.149, 23.407, 0.6)
pt3dadd(215.407, 42.087, 23.407, 0.566)
pt3dadd(215.509, 42.024, 23.407, 0.538)
pt3dadd(215.611, 41.962, 23.407, 0.51)
pt3dadd(215.713, 41.899, 23.407, 0.48)
pt3dadd(215.816, 41.836, 23.407, 0.452)
pt3dadd(215.918, 41.774, 23.407, 0.422)
pt3dadd(216.02, 41.711, 23.407, 0.394)
pt3dadd(216.122, 41.648, 23.407, 0.366)
pt3dadd(216.226, 41.586, 23.407, 0.336)
pt3dadd(216.328, 41.523, 23.407, 0.308)
pt3dadd(216.427, 41.456, 23.407, 0.318)
pt3dadd(216.526, 41.388, 23.407, 0.332)
pt3dadd(216.625, 41.32, 23.407, 0.348)
pt3dadd(216.724, 41.253, 23.407, 0.362)
pt3dadd(216.823, 41.185, 23.407, 0.376)
pt3dadd(216.923, 41.117, 23.407, 0.392)
pt3dadd(217.021, 41.049, 23.407, 0.406)
pt3dadd(217.121, 40.982, 23.407, 0.422)
pt3dadd(217.219, 40.914, 23.407, 0.436)
pt3dadd(217.319, 40.846, 23.407, 0.45)
pt3dadd(217.427, 40.795, 23.407, 0.452)
pt3dadd(217.537, 40.746, 23.407, 0.452)
pt3dadd(217.646, 40.698, 23.407, 0.452)
pt3dadd(217.756, 40.649, 23.407, 0.452)
pt3dadd(217.865, 40.6, 23.407, 0.452)
pt3dadd(217.975, 40.551, 23.407, 0.452)
pt3dadd(218.084, 40.502, 23.407, 0.452)
pt3dadd(218.194, 40.453, 23.407, 0.452)
pt3dadd(218.304, 40.404, 23.407, 0.452)
pt3dadd(218.413, 40.355, 23.407, 0.452)
pt3dadd(218.527, 40.316, 23.407, 0.472)
pt3dadd(218.64, 40.278, 23.407, 0.492)
pt3dadd(218.754, 40.24, 23.407, 0.514)
pt3dadd(218.868, 40.202, 23.407, 0.536)
pt3dadd(218.982, 40.164, 23.407, 0.556)
pt3dadd(219.096, 40.127, 23.407, 0.578)
pt3dadd(219.21, 40.089, 23.407, 0.6)
pt3dadd(219.324, 40.051, 23.407, 0.62)
pt3dadd(219.438, 40.013, 23.407, 0.642)
pt3dadd(219.552, 39.975, 23.407, 0.664)
pt3dadd(219.665, 39.937, 23.407, 0.688)
pt3dadd(219.779, 39.9, 23.407, 0.712)
pt3dadd(219.893, 39.862, 23.407, 0.736)
pt3dadd(220.007, 39.824, 23.407, 0.76)
pt3dadd(220.121, 39.786, 23.407, 0.784)
pt3dadd(220.235, 39.749, 23.407, 0.808)
pt3dadd(220.349, 39.711, 23.407, 0.832)
pt3dadd(220.463, 39.673, 23.407, 0.856)
pt3dadd(220.577, 39.635, 23.407, 0.88)
pt3dadd(220.691, 39.597, 23.407, 0.904)
pt3dadd(220.799, 39.545, 23.407, 0.904)
pt3dadd(220.906, 39.492, 23.407, 0.904)
pt3dadd(221.014, 39.439, 23.407, 0.904)
pt3dadd(221.122, 39.386, 23.407, 0.904)
pt3dadd(221.23, 39.333, 23.407, 0.904)
pt3dadd(221.336, 39.28, 23.407, 0.904)
pt3dadd(221.444, 39.227, 23.407, 0.904)
pt3dadd(221.552, 39.174, 23.407, 0.904)
pt3dadd(221.659, 39.121, 23.407, 0.904)
pt3dadd(221.767, 39.068, 23.407, 0.904)
pt3dadd(221.879, 39.022, 23.407, 0.86)
pt3dadd(221.989, 38.976, 23.407, 0.814)
}
}
proc shape3d_166() {
dend_7[22] { pt3dadd(222.1, 38.931, 23.407, 0.77)
pt3dadd(222.211, 38.885, 23.407, 0.726)
pt3dadd(222.322, 38.839, 23.407, 0.68)
pt3dadd(222.433, 38.793, 23.407, 0.636)
pt3dadd(222.544, 38.747, 23.407, 0.59)
pt3dadd(222.654, 38.701, 23.407, 0.546)
pt3dadd(222.766, 38.655, 23.407, 0.5)
pt3dadd(222.876, 38.609, 23.407, 0.456)
pt3dadd(222.983, 38.555, 23.407, 0.448)
pt3dadd(223.09, 38.5, 23.407, 0.442)
pt3dadd(223.196, 38.445, 23.407, 0.436)
pt3dadd(223.303, 38.39, 23.408, 0.43)
pt3dadd(223.41, 38.336, 23.408, 0.424)
pt3dadd(223.517, 38.281, 23.408, 0.418)
pt3dadd(223.624, 38.226, 23.408, 0.41)
pt3dadd(223.73, 38.171, 23.408, 0.404)
pt3dadd(223.837, 38.116, 23.408, 0.398)
pt3dadd(223.944, 38.062, 23.408, 0.392)
pt3dadd(224.047, 38, 23.408, 0.422)
pt3dadd(224.149, 37.938, 23.408, 0.452)
pt3dadd(224.252, 37.876, 23.408, 0.482)
pt3dadd(224.356, 37.815, 23.408, 0.512)
pt3dadd(224.459, 37.753, 23.408, 0.542)
pt3dadd(224.562, 37.691, 23.408, 0.572)
pt3dadd(224.664, 37.63, 23.408, 0.6)
pt3dadd(224.767, 37.568, 23.408, 0.63)
pt3dadd(224.87, 37.506, 23.408, 0.66)
pt3dadd(224.974, 37.445, 23.409, 0.69)
pt3dadd(225.084, 37.398, 23.409, 0.706)
pt3dadd(225.194, 37.351, 23.409, 0.724)
pt3dadd(225.305, 37.304, 23.409, 0.74)
pt3dadd(225.415, 37.257, 23.409, 0.756)
pt3dadd(225.526, 37.21, 23.409, 0.774)
pt3dadd(225.636, 37.163, 23.409, 0.79)
pt3dadd(225.746, 37.116, 23.409, 0.808)
pt3dadd(225.857, 37.069, 23.41, 0.824)
pt3dadd(225.967, 37.022, 23.41, 0.84)
pt3dadd(226.078, 36.975, 23.41, 0.856)
pt3dadd(226.181, 36.914, 23.41, 0.838)
pt3dadd(226.284, 36.853, 23.41, 0.822)
pt3dadd(226.387, 36.792, 23.41, 0.804)
pt3dadd(226.49, 36.731, 23.411, 0.786)
pt3dadd(226.594, 36.669, 23.411, 0.768)
pt3dadd(226.697, 36.608, 23.411, 0.75)
pt3dadd(226.8, 36.547, 23.411, 0.734)
pt3dadd(226.904, 36.486, 23.412, 0.716)
pt3dadd(227.008, 36.425, 23.412, 0.698)
pt3dadd(227.111, 36.364, 23.412, 0.68)
pt3dadd(227.212, 36.3, 23.412, 0.656)
pt3dadd(227.314, 36.236, 23.413, 0.634)
pt3dadd(227.416, 36.173, 23.413, 0.612)
pt3dadd(227.516, 36.109, 23.413, 0.588)
pt3dadd(227.618, 36.045, 23.414, 0.566)
pt3dadd(227.72, 35.981, 23.414, 0.542)
pt3dadd(227.821, 35.917, 23.415, 0.52)
pt3dadd(227.923, 35.853, 23.415, 0.496)
pt3dadd(228.025, 35.79, 23.415, 0.474)
pt3dadd(228.127, 35.726, 23.416, 0.452)
pt3dadd(228.233, 35.67, 23.416, 0.452)
pt3dadd(228.338, 35.613, 23.417, 0.452)
pt3dadd(228.444, 35.556, 23.417, 0.452)
pt3dadd(228.55, 35.499, 23.418, 0.452)
pt3dadd(228.655, 35.442, 23.419, 0.452)
pt3dadd(228.761, 35.386, 23.419, 0.452)
pt3dadd(228.866, 35.329, 23.42, 0.452)
pt3dadd(228.972, 35.272, 23.421, 0.452)
pt3dadd(229.078, 35.215, 23.421, 0.452)
pt3dadd(229.183, 35.157, 23.422, 0.452)
pt3dadd(229.273, 35.078, 23.423, 0.452)
pt3dadd(229.363, 34.999, 23.424, 0.452)
pt3dadd(229.454, 34.92, 23.426, 0.452)
pt3dadd(229.544, 34.841, 23.427, 0.452)
pt3dadd(229.634, 34.762, 23.428, 0.452)
pt3dadd(229.724, 34.683, 23.429, 0.452)
pt3dadd(229.814, 34.604, 23.431, 0.452)
pt3dadd(229.906, 34.525, 23.432, 0.452)
pt3dadd(229.996, 34.446, 23.433, 0.452)
pt3dadd(230.084, 34.366, 23.434, 0.452)
pt3dadd(230.159, 34.272, 23.437, 0.462)
pt3dadd(230.233, 34.177, 23.439, 0.472)
pt3dadd(230.308, 34.083, 23.441, 0.48)
pt3dadd(230.382, 33.989, 23.443, 0.49)
pt3dadd(230.456, 33.894, 23.445, 0.5)
pt3dadd(230.53, 33.8, 23.447, 0.508)
pt3dadd(230.604, 33.706, 23.449, 0.518)
pt3dadd(230.678, 33.612, 23.452, 0.528)
pt3dadd(230.753, 33.517, 23.454, 0.536)
pt3dadd(230.824, 33.421, 23.456, 0.546)
pt3dadd(230.882, 33.317, 23.46, 0.556)
pt3dadd(230.941, 33.212, 23.464, 0.566)
pt3dadd(231, 33.108, 23.467, 0.576)
pt3dadd(231.06, 33.003, 23.471, 0.586)
pt3dadd(231.119, 32.899, 23.475, 0.594)
pt3dadd(231.178, 32.794, 23.478, 0.604)
pt3dadd(231.236, 32.69, 23.482, 0.614)
pt3dadd(231.295, 32.586, 23.486, 0.624)
pt3dadd(231.354, 32.481, 23.489, 0.634)
pt3dadd(231.413, 32.377, 23.493, 0.638)
pt3dadd(231.472, 32.272, 23.5, 0.622)
pt3dadd(231.53, 32.168, 23.506, 0.606)
pt3dadd(231.59, 32.064, 23.512, 0.592)
pt3dadd(231.649, 31.96, 23.518, 0.576)
pt3dadd(231.708, 31.855, 23.525, 0.56)
pt3dadd(231.767, 31.751, 23.531, 0.544)
pt3dadd(231.826, 31.647, 23.537, 0.53)
pt3dadd(231.884, 31.543, 23.543, 0.514)
pt3dadd(231.943, 31.438, 23.55, 0.498)
pt3dadd(232, 31.333, 23.557, 0.482)
pt3dadd(232.045, 31.222, 23.567, 0.466)
pt3dadd(232.09, 31.112, 23.577, 0.45)
pt3dadd(232.135, 31.001, 23.587, 0.432)
pt3dadd(232.181, 30.891, 23.597, 0.416)
pt3dadd(232.226, 30.781, 23.607, 0.4)
pt3dadd(232.272, 30.67, 23.618, 0.384)
pt3dadd(232.316, 30.56, 23.628, 0.366)
pt3dadd(232.362, 30.449, 23.638, 0.35)
pt3dadd(232.408, 30.339, 23.648, 0.334)
pt3dadd(232.452, 30.228, 23.661, 0.32)
pt3dadd(232.492, 30.118, 23.683, 0.318)
pt3dadd(232.531, 30.008, 23.705, 0.316)
pt3dadd(232.571, 29.898, 23.727, 0.312)
pt3dadd(232.61, 29.788, 23.749, 0.31)
pt3dadd(232.651, 29.678, 23.771, 0.306)
pt3dadd(232.691, 29.568, 23.793, 0.304)
pt3dadd(232.73, 29.458, 23.816, 0.302)
pt3dadd(232.77, 29.348, 23.838, 0.298)
pt3dadd(232.81, 29.238, 23.86, 0.296)
pt3dadd(232.849, 29.129, 23.886, 0.3)
pt3dadd(232.886, 29.024, 23.922, 0.314)
pt3dadd(232.924, 28.918, 23.958, 0.33)
pt3dadd(232.96, 28.812, 23.994, 0.346)
pt3dadd(232.997, 28.707, 24.03, 0.362)
pt3dadd(233.034, 28.601, 24.066, 0.378)
pt3dadd(233.071, 28.496, 24.102, 0.394)
pt3dadd(233.108, 28.39, 24.138, 0.41)
pt3dadd(233.146, 28.284, 24.174, 0.424)
pt3dadd(233.183, 28.179, 24.21, 0.44)
pt3dadd(233.228, 28.075, 24.242, 0.446)
pt3dadd(233.291, 27.977, 24.264, 0.432)
pt3dadd(233.354, 27.878, 24.286, 0.416)
pt3dadd(233.417, 27.779, 24.308, 0.402)
pt3dadd(233.48, 27.681, 24.33, 0.386)
pt3dadd(233.543, 27.582, 24.351, 0.372)
pt3dadd(233.606, 27.483, 24.373, 0.356)
pt3dadd(233.669, 27.384, 24.395, 0.342)
pt3dadd(233.732, 27.286, 24.417, 0.326)
pt3dadd(233.795, 27.187, 24.439, 0.312)
pt3dadd(233.861, 27.09, 24.459, 0.304)
pt3dadd(233.933, 26.996, 24.476, 0.31)
pt3dadd(234.004, 26.901, 24.492, 0.316)
pt3dadd(234.076, 26.807, 24.509, 0.322)
pt3dadd(234.146, 26.712, 24.525, 0.328)
pt3dadd(234.218, 26.618, 24.541, 0.334)
pt3dadd(234.289, 26.524, 24.558, 0.34)
pt3dadd(234.361, 26.43, 24.574, 0.346)
pt3dadd(234.433, 26.335, 24.591, 0.352)
pt3dadd(234.504, 26.241, 24.607, 0.358)
pt3dadd(234.578, 26.148, 24.622, 0.372)
pt3dadd(234.659, 26.06, 24.632, 0.4)
pt3dadd(234.738, 25.971, 24.643, 0.428)
pt3dadd(234.817, 25.882, 24.654, 0.454)
pt3dadd(234.896, 25.793, 24.665, 0.482)
pt3dadd(234.977, 25.704, 24.675, 0.51)
pt3dadd(235.056, 25.615, 24.686, 0.536)
pt3dadd(235.135, 25.526, 24.697, 0.564)
pt3dadd(235.214, 25.437, 24.708, 0.592)
pt3dadd(235.295, 25.348, 24.718, 0.62)
pt3dadd(235.376, 25.261, 24.727, 0.638)
pt3dadd(235.46, 25.176, 24.734, 0.642)
pt3dadd(235.546, 25.092, 24.74, 0.646)
pt3dadd(235.63, 25.007, 24.746, 0.65)
pt3dadd(235.715, 24.922, 24.752, 0.654)
pt3dadd(235.8, 24.838, 24.759, 0.66)
pt3dadd(235.884, 24.753, 24.765, 0.664)
pt3dadd(235.969, 24.668, 24.771, 0.668)
pt3dadd(236.054, 24.584, 24.777, 0.672)
pt3dadd(236.138, 24.499, 24.784, 0.676)
pt3dadd(236.224, 24.415, 24.79, 0.68)
pt3dadd(236.31, 24.331, 24.796, 0.682)
pt3dadd(236.395, 24.248, 24.802, 0.686)
pt3dadd(236.48, 24.164, 24.808, 0.688)
pt3dadd(236.567, 24.08, 24.815, 0.69)
pt3dadd(236.652, 23.997, 24.821, 0.694)
pt3dadd(236.738, 23.913, 24.827, 0.696)
pt3dadd(236.824, 23.829, 24.833, 0.7)
pt3dadd(236.91, 23.746, 24.84, 0.702)
pt3dadd(236.995, 23.662, 24.846, 0.706)
pt3dadd(237.082, 23.579, 24.853, 0.714)
pt3dadd(237.168, 23.496, 24.863, 0.728)
pt3dadd(237.254, 23.414, 24.872, 0.742)
pt3dadd(237.341, 23.331, 24.882, 0.756)
pt3dadd(237.427, 23.249, 24.891, 0.772)
pt3dadd(237.514, 23.166, 24.901, 0.786)
pt3dadd(237.6, 23.084, 24.91, 0.8)
pt3dadd(237.686, 23.001, 24.92, 0.814)
pt3dadd(237.773, 22.919, 24.93, 0.83)
pt3dadd(237.859, 22.836, 24.939, 0.844)
pt3dadd(237.944, 22.757, 24.957, 0.85)
pt3dadd(238.03, 22.682, 24.991, 0.842)
pt3dadd(238.114, 22.607, 25.025, 0.834)
}
}
proc shape3d_167() {
dend_7[22] { pt3dadd(238.199, 22.532, 25.058, 0.826)
pt3dadd(238.283, 22.457, 25.092, 0.816)
pt3dadd(238.368, 22.382, 25.125, 0.808)
pt3dadd(238.452, 22.307, 25.159, 0.8)
pt3dadd(238.537, 22.233, 25.193, 0.792)
pt3dadd(238.621, 22.158, 25.226, 0.784)
pt3dadd(238.706, 22.083, 25.26, 0.776)
pt3dadd(238.793, 22.01, 25.294, 0.762)
pt3dadd(238.88, 21.939, 25.329, 0.742)
pt3dadd(238.968, 21.869, 25.364, 0.722)
pt3dadd(239.054, 21.798, 25.399, 0.704)
pt3dadd(239.142, 21.727, 25.434, 0.684)
pt3dadd(239.23, 21.657, 25.468, 0.666)
pt3dadd(239.317, 21.586, 25.503, 0.646)
pt3dadd(239.405, 21.515, 25.538, 0.626)
pt3dadd(239.492, 21.444, 25.573, 0.608)
pt3dadd(239.58, 21.374, 25.608, 0.588)
pt3dadd(239.674, 21.307, 25.635, 0.576)
pt3dadd(239.771, 21.242, 25.656, 0.568)
pt3dadd(239.869, 21.178, 25.678, 0.56)
pt3dadd(239.966, 21.113, 25.699, 0.554)
pt3dadd(240.065, 21.049, 25.721, 0.546)
pt3dadd(240.162, 20.984, 25.742, 0.538)
pt3dadd(240.26, 20.919, 25.764, 0.532)
pt3dadd(240.358, 20.855, 25.785, 0.524)
pt3dadd(240.456, 20.79, 25.807, 0.516)
pt3dadd(240.554, 20.726, 25.828, 0.508)
pt3dadd(240.66, 20.673, 25.842, 0.518)
pt3dadd(240.769, 20.627, 25.853, 0.534)
pt3dadd(240.88, 20.58, 25.864, 0.55)
pt3dadd(240.989, 20.533, 25.875, 0.566)
pt3dadd(241.098, 20.486, 25.886, 0.582)
pt3dadd(241.208, 20.439, 25.897, 0.598)
pt3dadd(241.318, 20.392, 25.908, 0.614)
pt3dadd(241.427, 20.345, 25.919, 0.63)
pt3dadd(241.537, 20.298, 25.93, 0.646)
pt3dadd(241.646, 20.251, 25.941, 0.662)
pt3dadd(241.753, 20.197, 25.945, 0.654)
pt3dadd(241.859, 20.141, 25.946, 0.638)
pt3dadd(241.966, 20.084, 25.946, 0.622)
pt3dadd(242.071, 20.028, 25.947, 0.606)
pt3dadd(242.177, 19.971, 25.947, 0.59)
pt3dadd(242.282, 19.914, 25.948, 0.574)
pt3dadd(242.388, 19.858, 25.948, 0.558)
pt3dadd(242.495, 19.801, 25.949, 0.542)
pt3dadd(242.6, 19.745, 25.95, 0.526)
pt3dadd(242.706, 19.688, 25.95, 0.51)
pt3dadd(242.816, 19.642, 25.951, 0.51)
pt3dadd(242.929, 19.601, 25.952, 0.516)
pt3dadd(243.042, 19.56, 25.953, 0.522)
pt3dadd(243.155, 19.518, 25.955, 0.53)
pt3dadd(243.268, 19.477, 25.956, 0.536)
pt3dadd(243.38, 19.436, 25.957, 0.542)
pt3dadd(243.493, 19.395, 25.958, 0.548)
pt3dadd(243.606, 19.354, 25.959, 0.556)
pt3dadd(243.718, 19.313, 25.96, 0.562)
pt3dadd(243.83, 19.271, 25.961, 0.568)
pt3dadd(243.947, 19.239, 25.963, 0.572)
pt3dadd(244.062, 19.21, 25.965, 0.576)
pt3dadd(244.178, 19.18, 25.967, 0.58)
pt3dadd(244.295, 19.151, 25.969, 0.582)
pt3dadd(244.411, 19.121, 25.971, 0.586)
pt3dadd(244.528, 19.092, 25.973, 0.59)
pt3dadd(244.644, 19.063, 25.975, 0.594)
pt3dadd(244.76, 19.033, 25.977, 0.596)
pt3dadd(244.877, 19.004, 25.98, 0.6)
pt3dadd(244.993, 18.975, 25.982, 0.604)
pt3dadd(245.111, 18.95, 25.985, 0.598)
pt3dadd(245.228, 18.928, 25.989, 0.592)
pt3dadd(245.346, 18.906, 25.993, 0.584)
pt3dadd(245.464, 18.883, 25.997, 0.576)
pt3dadd(245.581, 18.861, 26.001, 0.57)
pt3dadd(245.7, 18.839, 26.005, 0.562)
pt3dadd(245.818, 18.816, 26.009, 0.554)
pt3dadd(245.935, 18.794, 26.013, 0.546)
pt3dadd(246.053, 18.771, 26.017, 0.54)
pt3dadd(246.17, 18.749, 26.021, 0.532)
pt3dadd(246.288, 18.728, 26.028, 0.558)
pt3dadd(246.406, 18.706, 26.037, 0.596)
pt3dadd(246.523, 18.685, 26.046, 0.634)
pt3dadd(246.641, 18.664, 26.054, 0.672)
pt3dadd(246.76, 18.643, 26.063, 0.71)
pt3dadd(246.877, 18.622, 26.071, 0.748)
pt3dadd(246.995, 18.601, 26.08, 0.784)
pt3dadd(247.112, 18.579, 26.089, 0.822)
pt3dadd(247.23, 18.558, 26.097, 0.86)
pt3dadd(247.348, 18.537, 26.106, 0.898)
pt3dadd(247.447, 18.479, 26.125, 0.902)
pt3dadd(247.544, 18.413, 26.146, 0.898)
pt3dadd(247.642, 18.347, 26.168, 0.894)
pt3dadd(247.739, 18.281, 26.189, 0.892)
pt3dadd(247.836, 18.215, 26.21, 0.888)
pt3dadd(247.932, 18.149, 26.232, 0.884)
pt3dadd(248.029, 18.083, 26.253, 0.88)
pt3dadd(248.126, 18.017, 26.274, 0.878)
pt3dadd(248.224, 17.951, 26.295, 0.874)
pt3dadd(248.321, 17.885, 26.317, 0.87)
pt3dadd(248.419, 17.844, 26.361, 0.85)
pt3dadd(248.519, 17.805, 26.406, 0.83)
pt3dadd(248.618, 17.765, 26.452, 0.81)
pt3dadd(248.718, 17.726, 26.497, 0.788)
pt3dadd(248.816, 17.686, 26.543, 0.768)
pt3dadd(248.916, 17.646, 26.588, 0.746)
pt3dadd(249.016, 17.607, 26.634, 0.726)
pt3dadd(249.115, 17.567, 26.679, 0.704)
pt3dadd(249.214, 17.528, 26.725, 0.684)
pt3dadd(249.313, 17.488, 26.77, 0.662)
pt3dadd(249.424, 17.457, 26.8, 0.642)
pt3dadd(249.534, 17.426, 26.829, 0.62)
pt3dadd(249.644, 17.395, 26.858, 0.6)
pt3dadd(249.755, 17.364, 26.887, 0.578)
pt3dadd(249.865, 17.333, 26.917, 0.558)
pt3dadd(249.976, 17.302, 26.946, 0.536)
pt3dadd(250.086, 17.271, 26.975, 0.516)
pt3dadd(250.196, 17.24, 27.004, 0.494)
pt3dadd(250.307, 17.209, 27.033, 0.474)
pt3dadd(250.418, 17.178, 27.062, 0.452)
pt3dadd(250.534, 17.154, 27.077, 0.452)
pt3dadd(250.65, 17.13, 27.091, 0.452)
pt3dadd(250.768, 17.106, 27.105, 0.452)
pt3dadd(250.884, 17.083, 27.119, 0.45)
pt3dadd(251, 17.059, 27.133, 0.45)
pt3dadd(251.117, 17.035, 27.147, 0.45)
pt3dadd(251.233, 17.012, 27.161, 0.45)
pt3dadd(251.35, 16.988, 27.175, 0.45)
pt3dadd(251.466, 16.964, 27.189, 0.45)
pt3dadd(251.582, 16.941, 27.202, 0.45)
pt3dadd(251.648, 16.841, 27.202, 0.426)
pt3dadd(251.716, 16.741, 27.202, 0.404)
pt3dadd(251.782, 16.641, 27.202, 0.382)
pt3dadd(251.849, 16.541, 27.202, 0.36)
pt3dadd(251.915, 16.441, 27.202, 0.338)
pt3dadd(251.981, 16.342, 27.202, 0.316)
pt3dadd(252.048, 16.242, 27.202, 0.292)
pt3dadd(252.114, 16.142, 27.202, 0.27)
pt3dadd(252.181, 16.042, 27.202, 0.248)
pt3dadd(252.247, 15.942, 27.202, 0.226)
}
dend_7[23] {pt3dclear()
pt3dadd(151.654, 97.929, 17.096, 1.356)
pt3dadd(151.686, 97.929, 17.074, 1.356)
pt3dadd(151.778, 97.929, 17.012, 1.356)
pt3dadd(151.872, 97.929, 16.949, 1.356)
pt3dadd(151.966, 97.929, 16.886, 1.356)
pt3dadd(152.059, 97.929, 16.823, 1.356)
pt3dadd(152.153, 97.929, 16.761, 1.356)
pt3dadd(152.246, 97.929, 16.698, 1.356)
pt3dadd(152.34, 97.929, 16.635, 1.356)
pt3dadd(152.432, 97.929, 16.572, 1.356)
pt3dadd(152.526, 97.929, 16.51, 1.356)
pt3dadd(152.62, 97.929, 16.447, 1.356)
pt3dadd(152.713, 97.929, 16.384, 1.356)
pt3dadd(152.807, 97.929, 16.321, 1.356)
pt3dadd(152.9, 97.929, 16.259, 1.356)
pt3dadd(152.999, 97.91, 16.205, 1.348)
pt3dadd(153.098, 97.883, 16.154, 1.34)
pt3dadd(153.199, 97.857, 16.104, 1.33)
pt3dadd(153.299, 97.83, 16.053, 1.32)
pt3dadd(153.398, 97.804, 16.003, 1.31)
pt3dadd(153.499, 97.777, 15.952, 1.3)
pt3dadd(153.599, 97.751, 15.902, 1.29)
pt3dadd(153.7, 97.725, 15.851, 1.28)
pt3dadd(153.799, 97.698, 15.801, 1.27)
pt3dadd(153.895, 97.647, 15.769, 1.252)
pt3dadd(153.986, 97.571, 15.756, 1.224)
pt3dadd(154.078, 97.494, 15.743, 1.194)
pt3dadd(154.169, 97.418, 15.73, 1.166)
pt3dadd(154.26, 97.341, 15.718, 1.138)
pt3dadd(154.351, 97.265, 15.705, 1.11)
pt3dadd(154.442, 97.188, 15.692, 1.082)
pt3dadd(154.534, 97.112, 15.68, 1.054)
pt3dadd(154.625, 97.035, 15.667, 1.024)
pt3dadd(154.716, 96.959, 15.654, 0.996)
pt3dadd(154.812, 96.889, 15.64, 1)
pt3dadd(154.912, 96.827, 15.623, 1.038)
pt3dadd(155.012, 96.764, 15.606, 1.076)
pt3dadd(155.113, 96.702, 15.59, 1.114)
pt3dadd(155.214, 96.64, 15.573, 1.15)
pt3dadd(155.315, 96.578, 15.556, 1.188)
pt3dadd(155.416, 96.515, 15.54, 1.226)
pt3dadd(155.515, 96.453, 15.523, 1.264)
pt3dadd(155.616, 96.391, 15.506, 1.302)
pt3dadd(155.717, 96.329, 15.489, 1.34)
pt3dadd(155.808, 96.261, 15.46, 1.364)
pt3dadd(155.891, 96.189, 15.418, 1.374)
pt3dadd(155.972, 96.117, 15.377, 1.384)
pt3dadd(156.055, 96.045, 15.336, 1.394)
pt3dadd(156.137, 95.973, 15.295, 1.406)
pt3dadd(156.22, 95.901, 15.253, 1.416)
pt3dadd(156.301, 95.829, 15.212, 1.426)
pt3dadd(156.384, 95.757, 15.171, 1.438)
pt3dadd(156.466, 95.685, 15.129, 1.448)
pt3dadd(156.548, 95.614, 15.088, 1.458)
pt3dadd(156.625, 95.543, 15.039, 1.444)
pt3dadd(156.702, 95.473, 14.988, 1.424)
pt3dadd(156.778, 95.404, 14.938, 1.404)
pt3dadd(156.854, 95.334, 14.887, 1.384)
pt3dadd(156.931, 95.264, 14.836, 1.364)
pt3dadd(157.007, 95.194, 14.785, 1.344)
pt3dadd(157.084, 95.124, 14.735, 1.324)
pt3dadd(157.159, 95.054, 14.684, 1.304)
pt3dadd(157.236, 94.985, 14.633, 1.284)
}
}
proc shape3d_168() {
dend_7[23] { pt3dadd(157.312, 94.915, 14.582, 1.264)
pt3dadd(157.388, 94.848, 14.529, 1.262)
pt3dadd(157.465, 94.783, 14.474, 1.262)
pt3dadd(157.541, 94.717, 14.42, 1.262)
pt3dadd(157.618, 94.651, 14.366, 1.262)
pt3dadd(157.694, 94.585, 14.312, 1.262)
pt3dadd(157.77, 94.519, 14.258, 1.262)
pt3dadd(157.847, 94.453, 14.204, 1.262)
pt3dadd(157.924, 94.388, 14.149, 1.262)
pt3dadd(157.999, 94.322, 14.095, 1.262)
pt3dadd(158.076, 94.256, 14.041, 1.262)
pt3dadd(158.135, 94.181, 13.98, 1.296)
pt3dadd(158.194, 94.107, 13.919, 1.33)
pt3dadd(158.252, 94.032, 13.858, 1.366)
pt3dadd(158.311, 93.958, 13.796, 1.4)
pt3dadd(158.37, 93.884, 13.735, 1.434)
pt3dadd(158.429, 93.809, 13.674, 1.468)
pt3dadd(158.488, 93.735, 13.613, 1.502)
pt3dadd(158.546, 93.66, 13.551, 1.536)
pt3dadd(158.605, 93.586, 13.49, 1.57)
pt3dadd(158.665, 93.511, 13.43, 1.604)
pt3dadd(158.744, 93.439, 13.385, 1.622)
pt3dadd(158.824, 93.367, 13.34, 1.638)
pt3dadd(158.904, 93.296, 13.295, 1.656)
pt3dadd(158.983, 93.224, 13.25, 1.674)
pt3dadd(159.062, 93.152, 13.205, 1.692)
pt3dadd(159.143, 93.08, 13.161, 1.708)
pt3dadd(159.222, 93.008, 13.116, 1.726)
pt3dadd(159.301, 92.936, 13.071, 1.744)
pt3dadd(159.38, 92.864, 13.026, 1.762)
pt3dadd(159.461, 92.794, 12.98, 1.778)
pt3dadd(159.547, 92.755, 12.919, 1.766)
pt3dadd(159.634, 92.717, 12.857, 1.756)
pt3dadd(159.72, 92.679, 12.795, 1.744)
pt3dadd(159.806, 92.641, 12.734, 1.732)
pt3dadd(159.893, 92.602, 12.672, 1.722)
pt3dadd(159.979, 92.564, 12.61, 1.71)
pt3dadd(160.066, 92.526, 12.549, 1.7)
pt3dadd(160.152, 92.488, 12.487, 1.688)
pt3dadd(160.238, 92.449, 12.425, 1.676)
pt3dadd(160.324, 92.415, 12.362, 1.668)
pt3dadd(160.404, 92.402, 12.289, 1.68)
pt3dadd(160.484, 92.389, 12.215, 1.69)
pt3dadd(160.565, 92.376, 12.142, 1.7)
pt3dadd(160.645, 92.362, 12.069, 1.71)
pt3dadd(160.727, 92.349, 11.995, 1.72)
pt3dadd(160.807, 92.336, 11.922, 1.73)
pt3dadd(160.888, 92.323, 11.849, 1.742)
pt3dadd(160.968, 92.31, 11.775, 1.752)
pt3dadd(161.048, 92.297, 11.702, 1.762)
pt3dadd(161.128, 92.294, 11.628, 1.772)
pt3dadd(161.204, 92.315, 11.553, 1.784)
pt3dadd(161.281, 92.336, 11.478, 1.796)
pt3dadd(161.357, 92.357, 11.403, 1.806)
pt3dadd(161.434, 92.378, 11.328, 1.818)
pt3dadd(161.51, 92.399, 11.253, 1.828)
pt3dadd(161.587, 92.42, 11.178, 1.84)
pt3dadd(161.664, 92.442, 11.103, 1.852)
pt3dadd(161.74, 92.463, 11.028, 1.862)
pt3dadd(161.816, 92.484, 10.953, 1.874)
pt3dadd(161.896, 92.526, 10.889, 1.848)
pt3dadd(161.976, 92.583, 10.832, 1.796)
pt3dadd(162.058, 92.64, 10.776, 1.744)
pt3dadd(162.138, 92.697, 10.719, 1.692)
pt3dadd(162.218, 92.754, 10.663, 1.64)
pt3dadd(162.299, 92.811, 10.606, 1.588)
pt3dadd(162.38, 92.869, 10.55, 1.536)
pt3dadd(162.461, 92.926, 10.493, 1.484)
pt3dadd(162.541, 92.983, 10.436, 1.432)
pt3dadd(162.623, 93.04, 10.38, 1.38)
pt3dadd(162.704, 93.089, 10.32, 1.366)
pt3dadd(162.788, 93.131, 10.257, 1.382)
pt3dadd(162.871, 93.173, 10.194, 1.398)
pt3dadd(162.954, 93.216, 10.131, 1.414)
pt3dadd(163.038, 93.258, 10.068, 1.432)
pt3dadd(163.121, 93.3, 10.006, 1.448)
pt3dadd(163.205, 93.342, 9.943, 1.464)
pt3dadd(163.288, 93.385, 9.88, 1.48)
pt3dadd(163.37, 93.427, 9.817, 1.496)
pt3dadd(163.454, 93.469, 9.755, 1.512)
pt3dadd(163.531, 93.518, 9.69, 1.528)
pt3dadd(163.603, 93.573, 9.624, 1.544)
pt3dadd(163.675, 93.627, 9.558, 1.56)
pt3dadd(163.746, 93.681, 9.492, 1.576)
pt3dadd(163.818, 93.736, 9.426, 1.592)
pt3dadd(163.89, 93.79, 9.36, 1.608)
pt3dadd(163.962, 93.844, 9.294, 1.624)
pt3dadd(164.034, 93.899, 9.227, 1.64)
pt3dadd(164.106, 93.953, 9.161, 1.656)
pt3dadd(164.178, 94.007, 9.095, 1.672)
pt3dadd(164.246, 94.064, 9.028, 1.686)
pt3dadd(164.312, 94.122, 8.961, 1.698)
pt3dadd(164.38, 94.18, 8.893, 1.712)
pt3dadd(164.446, 94.238, 8.825, 1.726)
pt3dadd(164.513, 94.296, 8.757, 1.738)
pt3dadd(164.579, 94.354, 8.69, 1.752)
pt3dadd(164.646, 94.412, 8.622, 1.764)
pt3dadd(164.712, 94.47, 8.554, 1.778)
pt3dadd(164.779, 94.528, 8.487, 1.79)
pt3dadd(164.845, 94.586, 8.419, 1.804)
pt3dadd(164.922, 94.631, 8.352, 1.808)
pt3dadd(165.001, 94.669, 8.285, 1.808)
pt3dadd(165.082, 94.708, 8.217, 1.808)
pt3dadd(165.162, 94.747, 8.15, 1.808)
pt3dadd(165.241, 94.785, 8.083, 1.808)
pt3dadd(165.322, 94.824, 8.016, 1.808)
pt3dadd(165.402, 94.863, 7.949, 1.808)
pt3dadd(165.482, 94.901, 7.881, 1.808)
pt3dadd(165.562, 94.94, 7.814, 1.808)
pt3dadd(165.642, 94.978, 7.747, 1.808)
pt3dadd(165.732, 95.027, 7.697, 1.824)
pt3dadd(165.827, 95.079, 7.654, 1.85)
pt3dadd(165.923, 95.132, 7.612, 1.874)
pt3dadd(166.018, 95.185, 7.569, 1.9)
pt3dadd(166.112, 95.238, 7.527, 1.924)
pt3dadd(166.207, 95.29, 7.484, 1.948)
pt3dadd(166.302, 95.343, 7.442, 1.974)
pt3dadd(166.397, 95.396, 7.4, 1.998)
pt3dadd(166.492, 95.448, 7.357, 2.024)
pt3dadd(166.588, 95.501, 7.314, 2.048)
pt3dadd(166.692, 95.549, 7.287, 2.054)
pt3dadd(166.798, 95.596, 7.261, 2.056)
pt3dadd(166.904, 95.643, 7.236, 2.058)
pt3dadd(167.01, 95.69, 7.211, 2.058)
pt3dadd(167.117, 95.737, 7.186, 2.06)
pt3dadd(167.222, 95.784, 7.161, 2.062)
pt3dadd(167.329, 95.831, 7.136, 2.064)
pt3dadd(167.435, 95.878, 7.111, 2.066)
pt3dadd(167.542, 95.925, 7.085, 2.068)
pt3dadd(167.647, 95.972, 7.06, 2.07)
pt3dadd(167.764, 95.999, 7.05, 2.02)
pt3dadd(167.88, 96.027, 7.04, 1.968)
pt3dadd(167.996, 96.055, 7.03, 1.918)
pt3dadd(168.112, 96.083, 7.02, 1.866)
pt3dadd(168.228, 96.11, 7.009, 1.816)
pt3dadd(168.344, 96.138, 6.999, 1.766)
pt3dadd(168.461, 96.166, 6.989, 1.714)
pt3dadd(168.576, 96.193, 6.979, 1.664)
pt3dadd(168.692, 96.221, 6.969, 1.612)
pt3dadd(168.809, 96.249, 6.959, 1.562)
}
dend_7[24] {pt3dclear()
pt3dadd(168.809, 96.249, 6.959, 1.562)
pt3dadd(168.906, 96.272, 6.952, 1.532)
pt3dadd(169.027, 96.292, 6.949, 1.498)
pt3dadd(169.146, 96.311, 6.946, 1.462)
pt3dadd(169.266, 96.331, 6.943, 1.426)
pt3dadd(169.385, 96.351, 6.94, 1.39)
pt3dadd(169.504, 96.37, 6.936, 1.356)
pt3dadd(169.625, 96.39, 6.933, 1.32)
pt3dadd(169.744, 96.409, 6.93, 1.284)
pt3dadd(169.864, 96.429, 6.927, 1.248)
pt3dadd(169.982, 96.448, 6.924, 1.212)
pt3dadd(170.102, 96.459, 6.92, 1.178)
pt3dadd(170.224, 96.468, 6.917, 1.142)
pt3dadd(170.344, 96.477, 6.914, 1.106)
pt3dadd(170.464, 96.486, 6.911, 1.07)
pt3dadd(170.584, 96.495, 6.907, 1.034)
pt3dadd(170.704, 96.504, 6.904, 0.998)
pt3dadd(170.825, 96.514, 6.901, 0.962)
pt3dadd(170.945, 96.523, 6.898, 0.928)
pt3dadd(171.065, 96.532, 6.895, 0.892)
pt3dadd(171.185, 96.541, 6.891, 0.856)
pt3dadd(171.305, 96.547, 6.888, 0.836)
pt3dadd(171.425, 96.553, 6.885, 0.818)
pt3dadd(171.546, 96.56, 6.882, 0.8)
pt3dadd(171.666, 96.566, 6.879, 0.784)
pt3dadd(171.786, 96.572, 6.875, 0.766)
pt3dadd(171.906, 96.578, 6.872, 0.75)
pt3dadd(172.026, 96.584, 6.869, 0.732)
pt3dadd(172.147, 96.59, 6.866, 0.716)
pt3dadd(172.267, 96.596, 6.863, 0.698)
pt3dadd(172.387, 96.602, 6.859, 0.68)
pt3dadd(172.507, 96.608, 6.856, 0.69)
pt3dadd(172.627, 96.614, 6.853, 0.704)
pt3dadd(172.748, 96.62, 6.85, 0.718)
pt3dadd(172.868, 96.626, 6.847, 0.732)
pt3dadd(172.988, 96.632, 6.843, 0.746)
pt3dadd(173.108, 96.638, 6.84, 0.76)
pt3dadd(173.228, 96.644, 6.837, 0.774)
pt3dadd(173.35, 96.65, 6.834, 0.788)
pt3dadd(173.47, 96.656, 6.83, 0.802)
pt3dadd(173.59, 96.662, 6.827, 0.814)
pt3dadd(173.71, 96.667, 6.824, 0.862)
pt3dadd(173.83, 96.673, 6.821, 0.916)
pt3dadd(173.831, 96.679, 6.818, 0.916)
pt3dadd(173.951, 96.685, 6.814, 0.97)
pt3dadd(174.071, 96.691, 6.811, 1.024)
pt3dadd(174.191, 96.696, 6.808, 1.078)
pt3dadd(174.311, 96.702, 6.805, 1.132)
pt3dadd(174.432, 96.708, 6.802, 1.184)
pt3dadd(174.552, 96.713, 6.798, 1.238)
pt3dadd(174.672, 96.719, 6.795, 1.292)
pt3dadd(174.792, 96.725, 6.792, 1.346)
pt3dadd(174.907, 96.753, 6.805, 1.34)
pt3dadd(175.022, 96.787, 6.823, 1.322)
pt3dadd(175.136, 96.821, 6.84, 1.302)
pt3dadd(175.25, 96.854, 6.857, 1.284)
pt3dadd(175.366, 96.888, 6.874, 1.264)
pt3dadd(175.48, 96.922, 6.891, 1.246)
pt3dadd(175.594, 96.955, 6.908, 1.226)
pt3dadd(175.595, 96.962, 6.905, 1.226)
}
}
proc shape3d_169() {
dend_7[24] { pt3dadd(175.709, 96.995, 6.922, 1.208)
pt3dadd(175.824, 97.029, 6.939, 1.188)
pt3dadd(175.938, 97.062, 6.956, 1.17)
pt3dadd(176.052, 97.096, 6.973, 1.15)
pt3dadd(176.167, 97.13, 6.99, 1.132)
pt3dadd(176.286, 97.12, 6.988, 1.13)
pt3dadd(176.404, 97.106, 6.985, 1.13)
pt3dadd(176.522, 97.093, 6.982, 1.13)
pt3dadd(176.641, 97.08, 6.979, 1.13)
pt3dadd(176.76, 97.066, 6.975, 1.13)
pt3dadd(176.879, 97.053, 6.972, 1.13)
pt3dadd(176.999, 97.056, 6.965, 1.13)
pt3dadd(177.118, 97.062, 6.957, 1.13)
pt3dadd(177.238, 97.069, 6.948, 1.13)
pt3dadd(177.359, 97.075, 6.94, 1.13)
pt3dadd(177.479, 97.081, 6.932, 1.13)
pt3dadd(177.599, 97.088, 6.924, 1.13)
pt3dadd(177.716, 97.086, 6.914, 1.13)
pt3dadd(177.826, 97.046, 6.897, 1.13)
pt3dadd(177.937, 97.006, 6.88, 1.13)
pt3dadd(178.046, 96.966, 6.863, 1.13)
pt3dadd(178.156, 96.925, 6.847, 1.13)
pt3dadd(178.267, 96.898, 6.828, 1.13)
pt3dadd(178.385, 96.902, 6.806, 1.13)
pt3dadd(178.505, 96.906, 6.784, 1.13)
pt3dadd(178.622, 96.911, 6.762, 1.13)
pt3dadd(178.74, 96.915, 6.74, 1.13)
pt3dadd(178.858, 96.919, 6.718, 1.13)
pt3dadd(178.974, 96.924, 6.69, 1.13)
pt3dadd(179.089, 96.93, 6.655, 1.13)
pt3dadd(179.202, 96.936, 6.619, 1.13)
pt3dadd(179.316, 96.943, 6.584, 1.13)
pt3dadd(179.429, 96.949, 6.548, 1.13)
pt3dadd(179.543, 96.955, 6.513, 1.13)
pt3dadd(179.663, 96.962, 6.505, 1.13)
pt3dadd(179.784, 96.968, 6.5, 1.13)
pt3dadd(179.904, 96.974, 6.495, 1.13)
pt3dadd(179.904, 96.981, 6.492, 1.13)
pt3dadd(180.024, 96.987, 6.487, 1.13)
pt3dadd(180.144, 96.993, 6.482, 1.13)
pt3dadd(180.265, 97, 6.478, 1.13)
pt3dadd(180.385, 97.006, 6.473, 1.13)
pt3dadd(180.505, 97.012, 6.47, 1.13)
pt3dadd(180.625, 97.019, 6.466, 1.13)
pt3dadd(180.745, 97.025, 6.463, 1.13)
pt3dadd(180.866, 97.031, 6.46, 1.13)
pt3dadd(180.986, 97.038, 6.457, 1.13)
pt3dadd(181.106, 97.044, 6.454, 1.13)
pt3dadd(181.225, 97.05, 6.45, 1.13)
pt3dadd(181.344, 97.057, 6.433, 1.13)
pt3dadd(181.464, 97.063, 6.415, 1.13)
pt3dadd(181.583, 97.069, 6.397, 1.13)
pt3dadd(181.702, 97.076, 6.38, 1.13)
pt3dadd(181.702, 97.082, 6.377, 1.13)
pt3dadd(181.702, 97.088, 6.373, 1.13)
pt3dadd(181.822, 97.095, 6.356, 1.13)
pt3dadd(181.94, 97.101, 6.338, 1.13)
pt3dadd(182.056, 97.107, 6.306, 1.13)
pt3dadd(182.168, 97.114, 6.27, 1.13)
pt3dadd(182.282, 97.12, 6.235, 1.13)
pt3dadd(182.398, 97.126, 6.199, 1.13)
pt3dadd(182.51, 97.133, 6.164, 1.13)
pt3dadd(182.626, 97.139, 6.131, 1.13)
pt3dadd(182.741, 97.145, 6.102, 1.13)
pt3dadd(182.857, 97.152, 6.074, 1.13)
pt3dadd(182.975, 97.158, 6.046, 1.13)
pt3dadd(183.091, 97.164, 6.017, 1.13)
pt3dadd(183.208, 97.171, 5.989, 1.13)
pt3dadd(183.32, 97.177, 5.954, 1.13)
pt3dadd(183.432, 97.183, 5.913, 1.13)
pt3dadd(183.545, 97.19, 5.873, 1.13)
pt3dadd(183.656, 97.196, 5.833, 1.13)
pt3dadd(183.767, 97.202, 5.792, 1.13)
pt3dadd(183.767, 97.209, 5.789, 1.13)
pt3dadd(183.88, 97.215, 5.753, 1.13)
pt3dadd(183.998, 97.221, 5.736, 1.13)
pt3dadd(184.118, 97.228, 5.718, 1.13)
pt3dadd(184.237, 97.234, 5.7, 1.13)
pt3dadd(184.356, 97.24, 5.683, 1.13)
pt3dadd(184.475, 97.247, 5.665, 1.13)
pt3dadd(184.594, 97.253, 5.648, 1.13)
pt3dadd(184.715, 97.259, 5.644, 1.13)
pt3dadd(184.835, 97.266, 5.641, 1.13)
pt3dadd(184.955, 97.272, 5.638, 1.13)
pt3dadd(185.075, 97.278, 5.635, 1.13)
pt3dadd(185.195, 97.285, 5.632, 1.13)
pt3dadd(185.316, 97.291, 5.628, 1.13)
pt3dadd(185.436, 97.297, 5.625, 1.13)
pt3dadd(185.556, 97.304, 5.622, 1.13)
pt3dadd(185.676, 97.31, 5.619, 1.13)
pt3dadd(185.796, 97.316, 5.616, 1.13)
pt3dadd(185.917, 97.323, 5.612, 1.13)
pt3dadd(186.037, 97.329, 5.609, 1.13)
pt3dadd(186.157, 97.335, 5.606, 1.13)
pt3dadd(186.277, 97.342, 5.603, 1.13)
pt3dadd(186.395, 97.373, 5.6, 1.13)
pt3dadd(186.514, 97.404, 5.596, 1.13)
pt3dadd(186.631, 97.435, 5.593, 1.13)
pt3dadd(186.749, 97.467, 5.59, 1.13)
pt3dadd(186.865, 97.498, 5.587, 1.13)
pt3dadd(186.983, 97.528, 5.584, 1.13)
pt3dadd(187.104, 97.549, 5.58, 1.13)
pt3dadd(187.223, 97.57, 5.577, 1.13)
pt3dadd(187.342, 97.592, 5.574, 1.13)
pt3dadd(187.46, 97.613, 5.571, 1.13)
pt3dadd(187.579, 97.634, 5.567, 1.13)
pt3dadd(187.7, 97.655, 5.564, 1.13)
pt3dadd(187.82, 97.664, 5.561, 1.13)
pt3dadd(187.94, 97.67, 5.558, 1.13)
pt3dadd(188.06, 97.677, 5.555, 1.13)
pt3dadd(188.18, 97.683, 5.551, 1.13)
pt3dadd(188.3, 97.689, 5.548, 1.13)
pt3dadd(188.422, 97.696, 5.545, 1.13)
pt3dadd(188.542, 97.702, 5.542, 1.13)
pt3dadd(188.66, 97.721, 5.539, 1.13)
pt3dadd(188.76, 97.787, 5.532, 1.13)
pt3dadd(188.798, 97.895, 5.494, 1.13)
pt3dadd(188.802, 97.956, 5.405, 1.13)
pt3dadd(188.802, 97.974, 5.302, 1.13)
pt3dadd(188.815, 97.98, 5.201, 1.13)
pt3dadd(188.868, 97.986, 5.109, 1.13)
pt3dadd(188.922, 97.993, 5.016, 1.13)
pt3dadd(189.032, 97.957, 4.992, 0.904)
pt3dadd(189.143, 97.921, 4.968, 0.904)
pt3dadd(189.252, 97.885, 4.943, 0.904)
pt3dadd(189.362, 97.854, 4.922, 0.904)
pt3dadd(189.362, 97.86, 4.919, 0.904)
pt3dadd(189.484, 97.861, 4.915, 0.904)
pt3dadd(189.604, 97.861, 4.912, 0.904)
pt3dadd(189.724, 97.862, 4.909, 0.904)
pt3dadd(189.844, 97.862, 4.906, 0.904)
pt3dadd(189.962, 97.862, 4.903, 0.904)
pt3dadd(190.084, 97.863, 4.899, 0.904)
pt3dadd(190.201, 97.85, 4.893, 0.904)
pt3dadd(190.316, 97.821, 4.884, 0.904)
pt3dadd(190.43, 97.793, 4.874, 0.904)
pt3dadd(190.546, 97.764, 4.865, 0.904)
pt3dadd(190.661, 97.736, 4.856, 0.904)
pt3dadd(190.774, 97.705, 4.843, 0.904)
pt3dadd(190.868, 97.654, 4.8, 0.904)
pt3dadd(190.963, 97.604, 4.757, 0.904)
pt3dadd(191.057, 97.554, 4.715, 0.904)
pt3dadd(191.153, 97.503, 4.672, 0.904)
pt3dadd(191.266, 97.473, 4.664, 0.904)
pt3dadd(191.381, 97.447, 4.661, 0.904)
pt3dadd(191.496, 97.42, 4.658, 0.904)
pt3dadd(191.612, 97.394, 4.654, 0.904)
pt3dadd(191.728, 97.367, 4.651, 0.904)
pt3dadd(191.842, 97.336, 4.648, 0.904)
pt3dadd(191.95, 97.289, 4.645, 0.904)
pt3dadd(192.056, 97.242, 4.642, 0.904)
pt3dadd(192.164, 97.194, 4.638, 0.904)
pt3dadd(192.271, 97.147, 4.635, 0.904)
pt3dadd(192.38, 97.1, 4.632, 0.904)
pt3dadd(192.468, 97.027, 4.614, 0.904)
pt3dadd(192.557, 96.954, 4.596, 0.904)
pt3dadd(192.644, 96.881, 4.578, 0.904)
pt3dadd(192.733, 96.808, 4.56, 0.904)
pt3dadd(192.817, 96.73, 4.541, 0.904)
pt3dadd(192.893, 96.646, 4.521, 0.904)
pt3dadd(192.989, 96.589, 4.51, 0.904)
pt3dadd(193.103, 96.555, 4.506, 0.904)
pt3dadd(193.216, 96.522, 4.503, 0.904)
pt3dadd(193.331, 96.489, 4.5, 0.904)
pt3dadd(193.444, 96.456, 4.497, 0.904)
pt3dadd(193.444, 96.462, 4.493, 0.904)
pt3dadd(193.481, 96.364, 4.49, 0.904)
pt3dadd(193.501, 96.252, 4.487, 0.904)
pt3dadd(193.519, 96.14, 4.484, 0.904)
pt3dadd(193.526, 96.027, 4.481, 0.904)
pt3dadd(193.559, 95.924, 4.477, 0.904)
pt3dadd(193.64, 95.843, 4.474, 0.904)
pt3dadd(193.71, 95.755, 4.471, 0.904)
pt3dadd(193.732, 95.643, 4.468, 0.904)
pt3dadd(193.751, 95.531, 4.465, 0.904)
pt3dadd(193.796, 95.428, 4.461, 0.904)
pt3dadd(193.858, 95.331, 4.458, 0.904)
pt3dadd(193.943, 95.269, 4.455, 0.904)
pt3dadd(193.944, 95.275, 4.452, 0.904)
pt3dadd(193.944, 95.282, 4.449, 0.904)
pt3dadd(194.062, 95.268, 4.445, 0.904)
pt3dadd(194.18, 95.253, 4.442, 0.904)
pt3dadd(194.286, 95.213, 4.418, 0.904)
pt3dadd(194.383, 95.156, 4.393, 0.904)
pt3dadd(194.477, 95.088, 4.373, 0.904)
pt3dadd(194.569, 95.02, 4.352, 0.904)
pt3dadd(194.66, 94.952, 4.331, 0.904)
pt3dadd(194.754, 94.886, 4.311, 0.904)
pt3dadd(194.864, 94.859, 4.282, 0.904)
pt3dadd(194.977, 94.832, 4.253, 0.904)
pt3dadd(195.089, 94.805, 4.225, 0.904)
pt3dadd(195.199, 94.778, 4.196, 0.904)
pt3dadd(195.312, 94.759, 4.169, 0.904)
pt3dadd(195.431, 94.766, 4.15, 0.904)
pt3dadd(195.551, 94.772, 4.13, 0.904)
pt3dadd(195.668, 94.778, 4.111, 0.904)
pt3dadd(195.787, 94.785, 4.091, 0.904)
pt3dadd(195.906, 94.791, 4.071, 0.904)
pt3dadd(196.02, 94.797, 4.044, 0.904)
pt3dadd(196.115, 94.804, 3.978, 0.904)
}
}
proc shape3d_170() {
dend_7[24] { pt3dadd(196.208, 94.81, 3.913, 0.904)
pt3dadd(196.316, 94.816, 3.865, 0.904)
pt3dadd(196.423, 94.823, 3.817, 0.904)
pt3dadd(196.534, 94.81, 3.781, 0.904)
pt3dadd(196.616, 94.736, 3.768, 0.904)
pt3dadd(196.655, 94.63, 3.765, 0.904)
pt3dadd(196.69, 94.521, 3.762, 0.904)
pt3dadd(196.738, 94.418, 3.759, 0.904)
pt3dadd(196.77, 94.309, 3.756, 0.904)
pt3dadd(196.812, 94.203, 3.752, 0.904)
pt3dadd(196.856, 94.098, 3.749, 0.904)
pt3dadd(196.901, 93.992, 3.746, 0.904)
pt3dadd(196.945, 93.887, 3.743, 0.904)
pt3dadd(196.99, 93.782, 3.74, 0.904)
pt3dadd(197.042, 93.682, 3.729, 0.904)
pt3dadd(197.11, 93.592, 3.703, 0.904)
pt3dadd(197.176, 93.502, 3.678, 0.904)
pt3dadd(197.242, 93.412, 3.652, 0.904)
pt3dadd(197.308, 93.322, 3.626, 0.904)
pt3dadd(197.394, 93.247, 3.607, 0.904)
pt3dadd(197.483, 93.174, 3.589, 0.904)
pt3dadd(197.572, 93.101, 3.571, 0.904)
pt3dadd(197.659, 93.028, 3.554, 0.904)
pt3dadd(197.752, 92.959, 3.536, 0.904)
pt3dadd(197.85, 92.899, 3.518, 0.904)
pt3dadd(197.95, 92.839, 3.5, 0.904)
pt3dadd(198.048, 92.779, 3.483, 0.904)
pt3dadd(198.145, 92.718, 3.465, 0.904)
pt3dadd(198.253, 92.688, 3.434, 0.904)
pt3dadd(198.364, 92.669, 3.398, 0.904)
pt3dadd(198.431, 92.591, 3.385, 0.904)
pt3dadd(198.478, 92.486, 3.382, 0.904)
pt3dadd(198.552, 92.417, 3.373, 0.904)
pt3dadd(198.668, 92.4, 3.355, 0.904)
pt3dadd(198.782, 92.385, 3.333, 0.904)
pt3dadd(198.877, 92.392, 3.267, 0.904)
pt3dadd(198.971, 92.398, 3.201, 0.904)
pt3dadd(198.971, 92.404, 3.198, 0.904)
pt3dadd(198.971, 92.411, 3.194, 0.904)
pt3dadd(198.971, 92.417, 3.191, 0.904)
pt3dadd(199.073, 92.364, 3.17, 0.904)
pt3dadd(199.175, 92.31, 3.15, 0.904)
pt3dadd(199.175, 92.316, 3.147, 0.904)
pt3dadd(199.228, 92.216, 3.143, 0.904)
pt3dadd(199.272, 92.111, 3.14, 0.904)
pt3dadd(199.294, 91.999, 3.137, 0.904)
pt3dadd(199.308, 91.886, 3.134, 0.904)
pt3dadd(199.35, 91.786, 3.111, 0.904)
pt3dadd(199.426, 91.717, 3.063, 0.904)
pt3dadd(199.519, 91.665, 3.033, 0.904)
pt3dadd(199.636, 91.637, 3.025, 0.904)
pt3dadd(199.75, 91.607, 3.018, 0.904)
pt3dadd(199.858, 91.563, 3.009, 0.904)
pt3dadd(199.968, 91.526, 2.993, 0.904)
pt3dadd(200.08, 91.49, 2.976, 0.904)
pt3dadd(200.191, 91.453, 2.959, 0.904)
pt3dadd(200.302, 91.416, 2.943, 0.904)
pt3dadd(200.398, 91.359, 2.924, 0.904)
pt3dadd(200.474, 91.275, 2.904, 0.904)
pt3dadd(200.567, 91.22, 2.875, 0.904)
pt3dadd(200.675, 91.193, 2.838, 0.904)
pt3dadd(200.73, 91.129, 2.791, 0.904)
pt3dadd(200.736, 91.034, 2.735, 0.904)
pt3dadd(200.759, 90.957, 2.667, 0.904)
pt3dadd(200.803, 90.905, 2.585, 0.904)
pt3dadd(200.839, 90.857, 2.498, 0.904)
pt3dadd(200.861, 90.815, 2.406, 0.904)
pt3dadd(200.861, 90.782, 2.308, 0.904)
pt3dadd(200.861, 90.749, 2.211, 0.904)
pt3dadd(200.861, 90.654, 2.155, 0.904)
pt3dadd(200.861, 90.557, 2.101, 0.904)
pt3dadd(200.88, 90.45, 2.075, 0.904)
pt3dadd(200.903, 90.339, 2.058, 0.904)
pt3dadd(200.903, 90.346, 2.055, 0.904)
pt3dadd(200.964, 90.261, 2.041, 0.904)
pt3dadd(201.066, 90.204, 2.033, 0.904)
pt3dadd(201.169, 90.159, 2.01, 0.904)
pt3dadd(201.274, 90.133, 1.967, 0.904)
pt3dadd(201.385, 90.096, 1.957, 0.904)
pt3dadd(201.497, 90.058, 1.947, 0.904)
pt3dadd(201.607, 90.02, 1.938, 0.904)
pt3dadd(201.72, 89.983, 1.928, 0.904)
pt3dadd(201.832, 89.945, 1.918, 0.904)
pt3dadd(201.935, 89.889, 1.915, 0.904)
pt3dadd(202.037, 89.833, 1.912, 0.904)
pt3dadd(202.139, 89.776, 1.909, 0.904)
pt3dadd(202.242, 89.72, 1.905, 0.904)
pt3dadd(202.344, 89.663, 1.902, 0.904)
pt3dadd(202.433, 89.589, 1.899, 0.904)
pt3dadd(202.519, 89.512, 1.896, 0.904)
pt3dadd(202.606, 89.434, 1.892, 0.904)
pt3dadd(202.693, 89.357, 1.889, 0.904)
pt3dadd(202.778, 89.28, 1.886, 0.904)
pt3dadd(202.891, 89.248, 1.879, 0.904)
pt3dadd(203.006, 89.219, 1.871, 0.904)
pt3dadd(203.11, 89.186, 1.837, 0.904)
pt3dadd(203.204, 89.148, 1.785, 0.904)
pt3dadd(203.206, 89.155, 1.782, 0.904)
pt3dadd(203.244, 89.082, 1.718, 0.904)
pt3dadd(203.264, 88.998, 1.652, 0.904)
pt3dadd(203.326, 88.926, 1.595, 0.904)
pt3dadd(203.398, 88.859, 1.54, 0.904)
pt3dadd(203.488, 88.82, 1.482, 0.904)
pt3dadd(203.508, 88.733, 1.423, 0.904)
pt3dadd(203.521, 88.64, 1.365, 0.904)
pt3dadd(203.579, 88.545, 1.351, 0.904)
pt3dadd(203.642, 88.449, 1.342, 0.904)
pt3dadd(203.735, 88.381, 1.338, 0.904)
pt3dadd(203.833, 88.319, 1.335, 0.904)
pt3dadd(203.938, 88.266, 1.332, 0.904)
pt3dadd(204.046, 88.219, 1.328, 0.904)
pt3dadd(204.136, 88.153, 1.324, 0.904)
pt3dadd(204.2, 88.058, 1.317, 0.904)
pt3dadd(204.265, 87.963, 1.311, 0.904)
pt3dadd(204.329, 87.868, 1.305, 0.904)
pt3dadd(204.361, 87.768, 1.268, 0.904)
pt3dadd(204.388, 87.667, 1.226, 0.904)
pt3dadd(204.437, 87.57, 1.198, 0.904)
pt3dadd(204.456, 87.466, 1.158, 0.904)
pt3dadd(204.475, 87.365, 1.114, 0.904)
pt3dadd(204.496, 87.275, 1.054, 0.904)
pt3dadd(204.52, 87.182, 1.003, 0.904)
pt3dadd(204.563, 87.076, 0.995, 0.904)
pt3dadd(204.605, 86.97, 0.987, 0.904)
pt3dadd(204.689, 86.893, 0.983, 0.904)
pt3dadd(204.778, 86.817, 0.98, 0.904)
pt3dadd(204.863, 86.739, 0.977, 0.904)
pt3dadd(204.932, 86.651, 0.965, 0.904)
pt3dadd(204.974, 86.548, 0.941, 0.904)
pt3dadd(205.016, 86.445, 0.917, 0.904)
pt3dadd(205.058, 86.342, 0.893, 0.904)
pt3dadd(205.1, 86.238, 0.868, 0.904)
pt3dadd(205.172, 86.153, 0.856, 0.904)
pt3dadd(205.26, 86.077, 0.851, 0.904)
pt3dadd(205.348, 86.002, 0.845, 0.904)
pt3dadd(205.348, 86.008, 0.842, 0.904)
pt3dadd(205.435, 85.932, 0.837, 0.904)
pt3dadd(205.523, 85.857, 0.831, 0.904)
pt3dadd(205.609, 85.781, 0.812, 0.904)
pt3dadd(205.694, 85.706, 0.789, 0.904)
pt3dadd(205.778, 85.631, 0.765, 0.904)
pt3dadd(205.864, 85.556, 0.742, 0.904)
pt3dadd(205.948, 85.485, 0.71, 0.904)
pt3dadd(206.032, 85.423, 0.662, 0.904)
pt3dadd(206.114, 85.375, 0.604, 0.904)
pt3dadd(206.196, 85.336, 0.539, 0.904)
pt3dadd(206.286, 85.318, 0.472, 0.904)
pt3dadd(206.376, 85.303, 0.405, 0.904)
pt3dadd(206.393, 85.307, 0.306, 0.904)
pt3dadd(206.4, 85.314, 0.203, 0.904)
}
dend_7[25] {pt3dclear()
pt3dadd(168.809, 96.249, 6.959, 1.562)
pt3dadd(168.784, 96.301, 6.947, 1.572)
pt3dadd(168.724, 96.404, 6.922, 1.594)
pt3dadd(168.661, 96.507, 6.898, 1.616)
pt3dadd(168.6, 96.609, 6.873, 1.64)
pt3dadd(168.538, 96.712, 6.848, 1.662)
pt3dadd(168.478, 96.815, 6.824, 1.684)
pt3dadd(168.415, 96.918, 6.799, 1.706)
pt3dadd(168.354, 97.021, 6.775, 1.73)
pt3dadd(168.292, 97.124, 6.75, 1.752)
pt3dadd(168.229, 97.227, 6.726, 1.774)
pt3dadd(168.169, 97.329, 6.701, 1.796)
pt3dadd(168.139, 97.443, 6.688, 1.78)
pt3dadd(168.14, 97.568, 6.687, 1.726)
pt3dadd(168.142, 97.693, 6.687, 1.674)
pt3dadd(168.144, 97.818, 6.686, 1.62)
pt3dadd(168.145, 97.943, 6.685, 1.566)
pt3dadd(168.146, 98.068, 6.684, 1.512)
pt3dadd(168.148, 98.192, 6.683, 1.458)
pt3dadd(168.149, 98.317, 6.682, 1.414)
pt3dadd(168.151, 98.442, 6.681, 1.382)
pt3dadd(168.152, 98.567, 6.68, 1.35)
pt3dadd(168.154, 98.692, 6.679, 1.318)
pt3dadd(168.155, 98.816, 6.678, 1.286)
pt3dadd(168.157, 98.941, 6.678, 1.254)
pt3dadd(168.158, 98.946, 6.677, 1.254)
pt3dadd(168.16, 99.071, 6.676, 1.222)
pt3dadd(168.161, 99.196, 6.674, 1.19)
pt3dadd(168.162, 99.321, 6.672, 1.162)
pt3dadd(168.164, 99.445, 6.669, 1.132)
pt3dadd(168.166, 99.57, 6.667, 1.102)
pt3dadd(168.167, 99.695, 6.664, 1.074)
pt3dadd(168.168, 99.82, 6.662, 1.044)
pt3dadd(168.17, 99.945, 6.659, 1.016)
pt3dadd(168.172, 100.065, 6.638, 1.002)
pt3dadd(168.173, 100.184, 6.605, 0.996)
pt3dadd(168.174, 100.302, 6.571, 0.992)
pt3dadd(168.175, 100.421, 6.538, 0.988)
pt3dadd(168.178, 100.539, 6.505, 0.984)
pt3dadd(168.179, 100.658, 6.474, 0.98)
pt3dadd(168.182, 100.781, 6.456, 0.988)
pt3dadd(168.186, 100.904, 6.438, 0.996)
pt3dadd(168.191, 101.027, 6.421, 1.006)
pt3dadd(168.192, 101.032, 6.42, 1.006)
pt3dadd(168.196, 101.155, 6.402, 1.014)
pt3dadd(168.198, 101.278, 6.384, 1.022)
pt3dadd(168.206, 101.401, 6.368, 1.032)
pt3dadd(168.251, 101.518, 6.362, 1.054)
pt3dadd(168.294, 101.635, 6.357, 1.078)
pt3dadd(168.335, 101.753, 6.355, 1.07)
}
}
proc shape3d_171() {
dend_7[25] { pt3dadd(168.376, 101.871, 6.354, 1.06)
pt3dadd(168.408, 101.98, 6.324, 1.034)
pt3dadd(168.43, 102.081, 6.266, 0.996)
pt3dadd(168.439, 102.154, 6.187, 0.966)
pt3dadd(168.44, 102.205, 6.094, 0.944)
pt3dadd(168.444, 102.272, 6.012, 0.926)
pt3dadd(168.452, 102.379, 5.959, 0.914)
pt3dadd(168.472, 102.479, 5.904, 0.904)
pt3dadd(168.568, 102.522, 5.861, 0.882)
pt3dadd(168.688, 102.529, 5.846, 0.814)
pt3dadd(168.81, 102.534, 5.845, 0.678)
pt3dadd(168.811, 102.539, 5.744, 0.904)
pt3dadd(168.812, 102.543, 5.644, 0.904)
pt3dadd(168.814, 102.548, 5.543, 0.904)
pt3dadd(168.815, 102.553, 5.442, 0.904)
pt3dadd(168.817, 102.558, 5.341, 0.904)
pt3dadd(168.818, 102.568, 5.241, 0.904)
pt3dadd(168.82, 102.613, 5.145, 0.904)
pt3dadd(168.821, 102.657, 5.05, 0.904)
pt3dadd(168.823, 102.734, 4.971, 0.904)
pt3dadd(168.824, 102.821, 4.897, 0.904)
pt3dadd(168.826, 102.889, 4.812, 0.904)
pt3dadd(168.827, 102.894, 4.811, 0.904)
pt3dadd(168.828, 102.955, 4.722, 0.904)
pt3dadd(168.83, 102.96, 4.721, 0.904)
pt3dadd(168.832, 103.033, 4.639, 0.904)
pt3dadd(168.833, 103.107, 4.556, 0.904)
pt3dadd(168.834, 103.181, 4.473, 0.904)
pt3dadd(168.836, 103.255, 4.391, 0.904)
pt3dadd(168.838, 103.334, 4.312, 0.904)
pt3dadd(168.839, 103.443, 4.262, 0.904)
pt3dadd(168.84, 103.551, 4.211, 0.904)
pt3dadd(168.841, 103.66, 4.16, 0.904)
pt3dadd(168.844, 103.769, 4.11, 0.904)
pt3dadd(168.845, 103.878, 4.059, 0.904)
pt3dadd(168.846, 103.981, 4, 0.904)
pt3dadd(168.847, 104.084, 3.942, 0.904)
pt3dadd(168.85, 104.089, 3.941, 0.904)
pt3dadd(168.851, 104.192, 3.883, 0.904)
pt3dadd(168.852, 104.295, 3.824, 0.904)
pt3dadd(168.853, 104.398, 3.766, 0.904)
pt3dadd(168.854, 104.466, 3.68, 0.904)
pt3dadd(168.857, 104.533, 3.594, 0.904)
pt3dadd(168.858, 104.601, 3.508, 0.904)
pt3dadd(168.859, 104.669, 3.422, 0.904)
pt3dadd(168.86, 104.736, 3.336, 0.904)
pt3dadd(168.863, 104.815, 3.256, 0.904)
pt3dadd(168.864, 104.895, 3.177, 0.904)
pt3dadd(168.865, 104.975, 3.098, 0.904)
pt3dadd(168.866, 105.054, 3.019, 0.904)
pt3dadd(168.868, 105.134, 2.94, 0.904)
pt3dadd(168.87, 105.246, 2.897, 0.904)
pt3dadd(168.871, 105.361, 2.856, 0.904)
pt3dadd(168.872, 105.477, 2.816, 0.904)
pt3dadd(168.874, 105.591, 2.775, 0.904)
pt3dadd(168.875, 105.706, 2.734, 0.904)
pt3dadd(168.877, 105.821, 2.694, 0.904)
pt3dadd(168.878, 105.936, 2.653, 0.904)
pt3dadd(168.88, 106.051, 2.613, 0.904)
pt3dadd(168.881, 106.166, 2.572, 0.904)
pt3dadd(168.883, 106.281, 2.532, 0.904)
pt3dadd(168.884, 106.396, 2.491, 0.904)
pt3dadd(168.886, 106.51, 2.448, 0.904)
pt3dadd(168.887, 106.623, 2.404, 0.904)
pt3dadd(168.888, 106.737, 2.361, 0.904)
pt3dadd(168.89, 106.851, 2.318, 0.904)
pt3dadd(168.892, 106.964, 2.275, 0.904)
pt3dadd(168.893, 107.047, 2.198, 0.904)
pt3dadd(168.894, 107.129, 2.121, 0.904)
pt3dadd(168.896, 107.212, 2.044, 0.904)
pt3dadd(168.898, 107.295, 1.967, 0.904)
pt3dadd(168.899, 107.376, 1.889, 0.904)
pt3dadd(168.9, 107.42, 1.794, 0.904)
pt3dadd(168.901, 107.465, 1.699, 0.904)
pt3dadd(168.904, 107.533, 1.615, 0.904)
pt3dadd(168.905, 107.613, 1.536, 0.904)
pt3dadd(168.906, 107.713, 1.478, 0.904)
pt3dadd(168.907, 107.828, 1.439, 0.904)
pt3dadd(168.911, 107.944, 1.4, 0.904)
pt3dadd(168.918, 108.061, 1.365, 0.904)
pt3dadd(168.926, 108.178, 1.329, 0.904)
pt3dadd(168.928, 108.183, 1.328, 0.904)
pt3dadd(169.018, 108.255, 1.29, 0.904)
pt3dadd(169.081, 108.357, 1.267, 0.904)
pt3dadd(169.138, 108.465, 1.247, 0.904)
pt3dadd(169.194, 108.574, 1.226, 0.904)
pt3dadd(169.249, 108.683, 1.206, 0.904)
pt3dadd(169.316, 108.785, 1.19, 0.904)
pt3dadd(169.416, 108.858, 1.189, 0.904)
pt3dadd(169.512, 108.933, 1.187, 0.904)
pt3dadd(169.525, 109.051, 1.156, 0.904)
pt3dadd(169.538, 109.17, 1.125, 0.904)
pt3dadd(169.591, 109.273, 1.089, 0.904)
pt3dadd(169.651, 109.373, 1.051, 0.904)
pt3dadd(169.763, 109.404, 1.018, 0.904)
pt3dadd(169.874, 109.435, 0.985, 0.904)
pt3dadd(169.984, 109.492, 0.982, 0.904)
pt3dadd(170.081, 109.566, 0.981, 0.904)
pt3dadd(170.164, 109.659, 0.98, 0.904)
pt3dadd(170.246, 109.751, 0.979, 0.904)
pt3dadd(170.329, 109.844, 0.978, 0.904)
pt3dadd(170.419, 109.928, 0.974, 0.904)
pt3dadd(170.53, 109.978, 0.957, 0.904)
pt3dadd(170.634, 110.031, 0.934, 0.904)
pt3dadd(170.696, 110.105, 0.869, 0.904)
pt3dadd(170.737, 110.184, 0.8, 0.904)
pt3dadd(170.742, 110.269, 0.725, 0.904)
pt3dadd(170.748, 110.355, 0.651, 0.904)
pt3dadd(170.753, 110.441, 0.576, 0.904)
pt3dadd(170.754, 110.563, 0.567, 0.904)
pt3dadd(170.756, 110.687, 0.562, 0.904)
pt3dadd(170.759, 110.812, 0.556, 0.904)
pt3dadd(170.796, 110.923, 0.521, 0.904)
pt3dadd(170.833, 111.035, 0.486, 0.904)
pt3dadd(170.888, 111.124, 0.439, 0.904)
pt3dadd(170.89, 111.129, 0.438, 0.904)
pt3dadd(170.966, 111.187, 0.373, 0.904)
pt3dadd(171.014, 111.209, 0.287, 0.904)
pt3dadd(171.049, 111.261, 0.2, 0.904)
pt3dadd(171.084, 111.32, 0.114, 0.904)
pt3dadd(171.119, 111.378, 0.028, 0.904)
pt3dadd(171.152, 111.437, -0.058, 0.904)
pt3dadd(171.187, 111.476, -0.148, 0.904)
pt3dadd(171.19, 111.48, -0.149, 0.904)
pt3dadd(171.226, 111.491, -0.246, 0.904)
pt3dadd(171.258, 111.507, -0.341, 0.904)
pt3dadd(171.259, 111.573, -0.429, 0.904)
pt3dadd(171.26, 111.638, -0.516, 0.904)
pt3dadd(171.263, 111.71, -0.599, 0.904)
pt3dadd(171.264, 111.783, -0.683, 0.904)
pt3dadd(171.265, 111.788, -0.684, 0.904)
pt3dadd(171.266, 111.898, -0.718, 0.904)
pt3dadd(171.269, 112.022, -0.736, 0.904)
pt3dadd(171.27, 112.145, -0.751, 0.904)
pt3dadd(171.271, 112.27, -0.752, 0.904)
pt3dadd(171.272, 112.394, -0.753, 0.904)
pt3dadd(171.274, 112.519, -0.754, 0.904)
pt3dadd(171.276, 112.644, -0.755, 0.904)
pt3dadd(171.277, 112.766, -0.764, 0.904)
pt3dadd(171.278, 112.875, -0.815, 0.904)
pt3dadd(171.28, 112.983, -0.867, 0.904)
pt3dadd(171.287, 112.996, -0.966, 0.904)
pt3dadd(171.293, 113.006, -1.066, 0.904)
pt3dadd(171.306, 113.019, -1.165, 0.904)
pt3dadd(171.354, 113.051, -1.255, 0.904)
pt3dadd(171.394, 113.1, -1.331, 0.904)
pt3dadd(171.4, 113.224, -1.341, 0.904)
pt3dadd(171.403, 113.348, -1.352, 0.904)
pt3dadd(171.408, 113.472, -1.363, 0.904)
pt3dadd(171.412, 113.597, -1.374, 0.904)
pt3dadd(171.415, 113.715, -1.406, 0.904)
pt3dadd(171.416, 113.83, -1.445, 0.904)
pt3dadd(171.437, 113.926, -1.5, 0.904)
pt3dadd(171.438, 113.931, -1.501, 0.904)
pt3dadd(171.484, 114.003, -1.576, 0.904)
pt3dadd(171.529, 114.073, -1.652, 0.904)
pt3dadd(171.536, 114.113, -1.749, 0.904)
pt3dadd(171.544, 114.152, -1.845, 0.904)
pt3dadd(171.546, 114.197, -1.94, 0.904)
pt3dadd(171.548, 114.245, -2.035, 0.904)
pt3dadd(171.55, 114.293, -2.129, 0.904)
pt3dadd(171.56, 114.388, -2.171, 0.904)
pt3dadd(171.578, 114.511, -2.181, 0.904)
pt3dadd(171.602, 114.63, -2.195, 0.904)
pt3dadd(171.66, 114.724, -2.243, 0.904)
pt3dadd(171.701, 114.835, -2.274, 0.904)
pt3dadd(171.75, 114.949, -2.281, 0.904)
pt3dadd(171.786, 115.068, -2.282, 0.904)
pt3dadd(171.802, 115.192, -2.284, 0.904)
pt3dadd(171.803, 115.313, -2.306, 0.904)
pt3dadd(171.804, 115.398, -2.374, 0.904)
pt3dadd(171.805, 115.403, -2.374, 0.904)
pt3dadd(171.806, 115.408, -2.375, 0.904)
pt3dadd(171.809, 115.437, -2.473, 0.904)
pt3dadd(171.81, 115.444, -2.574, 0.904)
pt3dadd(171.811, 115.449, -2.675, 0.904)
pt3dadd(171.812, 115.453, -2.776, 0.904)
pt3dadd(171.815, 115.458, -2.877, 0.904)
pt3dadd(171.816, 115.478, -2.977, 0.904)
pt3dadd(171.817, 115.5, -3.076, 0.904)
pt3dadd(171.818, 115.522, -3.176, 0.904)
pt3dadd(171.82, 115.544, -3.276, 0.904)
pt3dadd(171.822, 115.566, -3.376, 0.904)
pt3dadd(171.823, 115.588, -3.476, 0.904)
pt3dadd(171.826, 115.614, -3.575, 0.904)
pt3dadd(171.829, 115.642, -3.674, 0.904)
pt3dadd(171.834, 115.669, -3.773, 0.904)
pt3dadd(171.838, 115.696, -3.872, 0.904)
pt3dadd(171.841, 115.724, -3.971, 0.904)
pt3dadd(171.845, 115.752, -4.071, 0.904)
pt3dadd(171.864, 115.797, -4.164, 0.904)
pt3dadd(171.889, 115.846, -4.256, 0.904)
pt3dadd(171.912, 115.896, -4.347, 0.904)
pt3dadd(171.936, 115.945, -4.439, 0.904)
pt3dadd(171.959, 115.995, -4.531, 0.904)
pt3dadd(171.979, 116.067, -4.613, 0.904)
pt3dadd(171.998, 116.138, -4.696, 0.904)
pt3dadd(172.016, 116.21, -4.779, 0.904)
pt3dadd(172.036, 116.281, -4.862, 0.904)
pt3dadd(172.037, 116.286, -4.863, 0.904)
}
}
proc shape3d_172() {
dend_7[25] { pt3dadd(172.057, 116.345, -4.951, 0.904)
pt3dadd(172.076, 116.387, -5.045, 0.904)
pt3dadd(172.091, 116.423, -5.142, 0.904)
pt3dadd(172.092, 116.442, -5.242, 0.904)
pt3dadd(172.094, 116.462, -5.342, 0.904)
pt3dadd(172.128, 116.514, -5.424, 0.904)
pt3dadd(172.182, 116.587, -5.494, 0.904)
pt3dadd(172.253, 116.676, -5.532, 0.904)
pt3dadd(172.327, 116.768, -5.564, 0.904)
pt3dadd(172.387, 116.784, -5.652, 0.904)
pt3dadd(172.447, 116.801, -5.74, 0.904)
pt3dadd(172.506, 116.817, -5.828, 0.904)
pt3dadd(172.544, 116.827, -5.922, 0.904)
pt3dadd(172.547, 116.832, -5.923, 0.904)
pt3dadd(172.568, 116.836, -6.023, 0.904)
pt3dadd(172.59, 116.841, -6.122, 0.904)
pt3dadd(172.591, 116.846, -6.123, 0.904)
pt3dadd(172.592, 116.851, -6.224, 0.904)
pt3dadd(172.616, 116.856, -6.323, 0.904)
pt3dadd(172.64, 116.861, -6.422, 0.904)
pt3dadd(172.663, 116.865, -6.521, 0.904)
pt3dadd(172.687, 116.87, -6.621, 0.904)
pt3dadd(172.711, 116.875, -6.72, 0.904)
pt3dadd(172.735, 116.88, -6.819, 0.904)
pt3dadd(172.78, 116.885, -6.913, 0.904)
pt3dadd(172.781, 116.889, -6.914, 0.904)
pt3dadd(172.782, 116.894, -6.915, 0.904)
pt3dadd(172.83, 116.899, -7.008, 0.904)
pt3dadd(172.876, 116.904, -7.102, 0.904)
pt3dadd(172.921, 116.909, -7.196, 0.904)
pt3dadd(172.967, 116.913, -7.29, 0.904)
pt3dadd(173.036, 116.918, -7.372, 0.904)
pt3dadd(173.119, 116.923, -7.446, 0.904)
pt3dadd(173.191, 116.949, -7.523, 0.904)
pt3dadd(173.25, 116.997, -7.603, 0.904)
pt3dadd(173.346, 117.04, -7.635, 0.904)
pt3dadd(173.464, 117.079, -7.64, 0.904)
pt3dadd(173.567, 117.137, -7.645, 0.904)
pt3dadd(173.642, 117.236, -7.645, 0.904)
pt3dadd(173.723, 117.331, -7.646, 0.904)
pt3dadd(173.819, 117.411, -7.647, 0.904)
pt3dadd(173.927, 117.46, -7.664, 0.904)
pt3dadd(174.041, 117.501, -7.685, 0.904)
pt3dadd(174.154, 117.541, -7.707, 0.904)
pt3dadd(174.266, 117.581, -7.728, 0.904)
pt3dadd(174.382, 117.621, -7.749, 0.904)
pt3dadd(174.491, 117.645, -7.789, 0.904)
pt3dadd(174.6, 117.667, -7.832, 0.904)
pt3dadd(174.709, 117.688, -7.874, 0.904)
pt3dadd(174.818, 117.709, -7.916, 0.904)
pt3dadd(174.929, 117.731, -7.957, 0.904)
pt3dadd(175.045, 117.756, -7.98, 0.904)
pt3dadd(175.162, 117.782, -8.002, 0.904)
pt3dadd(175.279, 117.807, -8.024, 0.904)
pt3dadd(175.397, 117.833, -8.047, 0.904)
pt3dadd(175.513, 117.858, -8.069, 0.904)
pt3dadd(175.631, 117.885, -8.087, 0.904)
pt3dadd(175.632, 117.89, -8.088, 0.904)
pt3dadd(175.748, 117.917, -8.106, 0.904)
pt3dadd(175.867, 117.945, -8.124, 0.904)
pt3dadd(175.985, 117.972, -8.141, 0.904)
pt3dadd(176.102, 118, -8.159, 0.904)
pt3dadd(176.221, 118.017, -8.167, 0.904)
pt3dadd(176.344, 118.026, -8.168, 0.904)
pt3dadd(176.465, 118.036, -8.169, 0.904)
pt3dadd(176.578, 118.042, -8.2, 0.904)
pt3dadd(176.686, 118.047, -8.246, 0.904)
pt3dadd(176.789, 118.061, -8.297, 0.904)
pt3dadd(176.888, 118.086, -8.355, 0.904)
pt3dadd(176.95, 118.125, -8.43, 0.904)
pt3dadd(176.951, 118.13, -8.431, 0.904)
pt3dadd(176.978, 118.182, -8.521, 0.904)
pt3dadd(177.03, 118.25, -8.591, 0.904)
pt3dadd(177.1, 118.332, -8.641, 0.904)
pt3dadd(177.17, 118.415, -8.692, 0.904)
pt3dadd(177.172, 118.42, -8.693, 0.904)
pt3dadd(177.264, 118.459, -8.741, 0.904)
pt3dadd(177.372, 118.47, -8.789, 0.904)
pt3dadd(177.472, 118.499, -8.841, 0.904)
pt3dadd(177.557, 118.583, -8.864, 0.904)
pt3dadd(177.642, 118.671, -8.882, 0.904)
pt3dadd(177.644, 118.676, -8.883, 0.904)
pt3dadd(177.646, 118.681, -8.884, 0.904)
pt3dadd(177.763, 118.705, -8.899, 0.904)
pt3dadd(177.882, 118.727, -8.914, 0.904)
pt3dadd(177.983, 118.738, -8.96, 0.904)
pt3dadd(178.073, 118.743, -9.029, 0.904)
pt3dadd(178.15, 118.748, -9.107, 0.904)
pt3dadd(178.212, 118.753, -9.194, 0.904)
pt3dadd(178.286, 118.765, -9.269, 0.904)
pt3dadd(178.394, 118.799, -9.31, 0.904)
pt3dadd(178.501, 118.832, -9.352, 0.904)
pt3dadd(178.608, 118.865, -9.393, 0.904)
pt3dadd(178.609, 118.87, -9.394, 0.904)
pt3dadd(178.61, 118.875, -9.395, 0.904)
pt3dadd(178.613, 118.88, -9.396, 0.904)
pt3dadd(178.667, 118.979, -9.44, 0.904)
pt3dadd(178.714, 119.078, -9.488, 0.904)
pt3dadd(178.769, 119.141, -9.557, 0.904)
pt3dadd(178.853, 119.184, -9.623, 0.904)
pt3dadd(178.937, 119.227, -9.69, 0.904)
pt3dadd(179.02, 119.269, -9.757, 0.904)
pt3dadd(179.102, 119.308, -9.825, 0.904)
pt3dadd(179.185, 119.337, -9.896, 0.904)
pt3dadd(179.269, 119.366, -9.968, 0.904)
pt3dadd(179.352, 119.395, -10.039, 0.904)
pt3dadd(179.435, 119.424, -10.11, 0.904)
pt3dadd(179.524, 119.465, -10.173, 0.904)
pt3dadd(179.614, 119.508, -10.234, 0.904)
pt3dadd(179.704, 119.55, -10.295, 0.904)
pt3dadd(179.792, 119.593, -10.356, 0.904)
pt3dadd(179.874, 119.651, -10.415, 0.904)
pt3dadd(179.951, 119.719, -10.474, 0.904)
pt3dadd(180.029, 119.786, -10.532, 0.904)
pt3dadd(180.106, 119.853, -10.591, 0.904)
pt3dadd(180.175, 119.914, -10.658, 0.904)
pt3dadd(180.241, 119.97, -10.732, 0.904)
pt3dadd(180.308, 120.026, -10.805, 0.904)
pt3dadd(180.373, 120.083, -10.879, 0.904)
pt3dadd(180.374, 120.088, -10.879, 0.904)
pt3dadd(180.443, 120.148, -10.95, 0.904)
pt3dadd(180.512, 120.211, -11.016, 0.904)
pt3dadd(180.583, 120.276, -11.083, 0.904)
pt3dadd(180.654, 120.34, -11.149, 0.904)
pt3dadd(180.716, 120.418, -11.206, 0.904)
pt3dadd(180.769, 120.518, -11.25, 0.904)
pt3dadd(180.797, 120.6, -11.318, 0.904)
pt3dadd(180.804, 120.668, -11.404, 0.904)
pt3dadd(180.805, 120.673, -11.405, 0.904)
pt3dadd(180.863, 120.72, -11.468, 0.904)
pt3dadd(180.974, 120.744, -11.506, 0.904)
pt3dadd(181.087, 120.776, -11.529, 0.904)
pt3dadd(181.202, 120.821, -11.53, 0.904)
pt3dadd(181.313, 120.869, -11.534, 0.904)
pt3dadd(181.367, 120.956, -11.592, 0.904)
pt3dadd(181.406, 121.042, -11.656, 0.904)
pt3dadd(181.408, 121.133, -11.726, 0.904)
pt3dadd(181.409, 121.228, -11.792, 0.904)
pt3dadd(181.41, 121.298, -11.876, 0.904)
pt3dadd(181.411, 121.372, -11.958, 0.904)
pt3dadd(181.414, 121.478, -12.011, 0.904)
pt3dadd(181.415, 121.585, -12.065, 0.904)
pt3dadd(181.416, 121.693, -12.118, 0.904)
pt3dadd(181.417, 121.8, -12.171, 0.904)
pt3dadd(181.42, 121.907, -12.225, 0.904)
pt3dadd(181.421, 121.999, -12.294, 0.904)
pt3dadd(181.422, 122.09, -12.364, 0.904)
pt3dadd(181.423, 122.182, -12.434, 0.904)
pt3dadd(181.424, 122.273, -12.505, 0.904)
pt3dadd(181.427, 122.363, -12.575, 0.904)
pt3dadd(181.428, 122.426, -12.664, 0.904)
pt3dadd(181.429, 122.488, -12.753, 0.904)
pt3dadd(181.43, 122.549, -12.842, 0.904)
pt3dadd(181.433, 122.611, -12.931, 0.904)
pt3dadd(181.434, 122.672, -13.02, 0.904)
pt3dadd(181.435, 122.737, -13.107, 0.904)
pt3dadd(181.436, 122.803, -13.194, 0.904)
pt3dadd(181.465, 122.876, -13.271, 0.904)
pt3dadd(181.512, 122.957, -13.34, 0.904)
pt3dadd(181.537, 123.061, -13.39, 0.904)
pt3dadd(181.559, 123.172, -13.435, 0.904)
pt3dadd(181.564, 123.293, -13.458, 0.904)
pt3dadd(181.566, 123.415, -13.476, 0.904)
pt3dadd(181.567, 123.529, -13.507, 0.904)
pt3dadd(181.568, 123.534, -13.508, 0.904)
pt3dadd(181.57, 123.539, -13.509, 0.904)
pt3dadd(181.571, 123.544, -13.51, 0.904)
pt3dadd(181.573, 123.624, -13.589, 0.904)
pt3dadd(181.574, 123.703, -13.668, 0.904)
pt3dadd(181.576, 123.784, -13.747, 0.904)
pt3dadd(181.577, 123.845, -13.835, 0.904)
pt3dadd(181.579, 123.896, -13.928, 0.904)
pt3dadd(181.58, 123.958, -14.016, 0.904)
pt3dadd(181.582, 123.962, -14.017, 0.904)
pt3dadd(181.571, 124.022, -14.104, 0.904)
pt3dadd(181.553, 124.073, -14.196, 0.904)
pt3dadd(181.523, 124.121, -14.286, 0.904)
pt3dadd(181.482, 124.168, -14.374, 0.904)
pt3dadd(181.427, 124.205, -14.458, 0.904)
pt3dadd(181.366, 124.237, -14.541, 0.904)
pt3dadd(181.284, 124.295, -14.595, 0.904)
pt3dadd(181.195, 124.36, -14.64, 0.904)
pt3dadd(181.139, 124.444, -14.697, 0.904)
pt3dadd(181.08, 124.537, -14.743, 0.904)
pt3dadd(181.02, 124.632, -14.787, 0.904)
pt3dadd(180.961, 124.726, -14.831, 0.904)
pt3dadd(180.901, 124.82, -14.874, 0.904)
pt3dadd(180.866, 124.932, -14.903, 0.904)
pt3dadd(180.845, 125.052, -14.923, 0.904)
pt3dadd(180.824, 125.173, -14.943, 0.904)
pt3dadd(180.803, 125.293, -14.963, 0.904)
pt3dadd(180.78, 125.413, -14.983, 0.904)
pt3dadd(180.749, 125.526, -15.014, 0.904)
pt3dadd(180.708, 125.632, -15.057, 0.904)
pt3dadd(180.68, 125.74, -15.101, 0.904)
pt3dadd(180.662, 125.851, -15.146, 0.904)
pt3dadd(180.68, 125.929, -15.213, 0.904)
pt3dadd(180.725, 125.983, -15.298, 0.904)
pt3dadd(180.751, 126.019, -15.392, 0.904)
pt3dadd(180.77, 126.048, -15.49, 0.904)
}
}
proc shape3d_173() {
dend_7[25] { pt3dadd(180.781, 126.116, -15.552, 0.904)
pt3dadd(180.782, 126.121, -15.552, 0.904)
pt3dadd(180.784, 126.245, -15.566, 0.904)
pt3dadd(180.786, 126.37, -15.579, 0.904)
pt3dadd(180.787, 126.493, -15.592, 0.904)
pt3dadd(180.788, 126.617, -15.606, 0.904)
pt3dadd(180.79, 126.733, -15.644, 0.904)
pt3dadd(180.792, 126.848, -15.684, 0.904)
pt3dadd(180.793, 126.953, -15.739, 0.904)
pt3dadd(180.794, 127.039, -15.812, 0.904)
pt3dadd(180.796, 127.126, -15.887, 0.904)
pt3dadd(180.797, 127.212, -15.961, 0.904)
pt3dadd(180.799, 127.298, -16.035, 0.904)
pt3dadd(180.8, 127.411, -16.07, 0.904)
pt3dadd(180.802, 127.534, -16.088, 0.904)
pt3dadd(180.803, 127.657, -16.105, 0.904)
pt3dadd(180.805, 127.781, -16.119, 0.904)
pt3dadd(180.806, 127.906, -16.132, 0.904)
pt3dadd(180.82, 128.012, -16.17, 0.904)
pt3dadd(180.85, 128.095, -16.243, 0.904)
pt3dadd(180.925, 128.146, -16.293, 0.904)
pt3dadd(181.044, 128.168, -16.309, 0.904)
pt3dadd(181.156, 128.216, -16.31, 0.904)
pt3dadd(181.25, 128.296, -16.311, 0.904)
pt3dadd(181.332, 128.388, -16.316, 0.904)
pt3dadd(181.423, 128.456, -16.357, 0.904)
pt3dadd(181.514, 128.526, -16.398, 0.904)
pt3dadd(181.604, 128.594, -16.439, 0.904)
pt3dadd(181.696, 128.663, -16.48, 0.904)
pt3dadd(181.768, 128.756, -16.513, 0.904)
pt3dadd(181.838, 128.852, -16.545, 0.904)
pt3dadd(181.909, 128.948, -16.577, 0.904)
pt3dadd(181.979, 129.043, -16.609, 0.904)
pt3dadd(182.059, 129.136, -16.62, 0.904)
pt3dadd(182.06, 129.14, -16.621, 0.904)
pt3dadd(182.146, 129.232, -16.622, 0.904)
pt3dadd(182.231, 129.323, -16.623, 0.904)
pt3dadd(182.315, 129.414, -16.624, 0.904)
pt3dadd(182.4, 129.505, -16.625, 0.904)
pt3dadd(182.491, 129.59, -16.626, 0.904)
pt3dadd(182.584, 129.673, -16.626, 0.904)
pt3dadd(182.676, 129.755, -16.627, 0.904)
pt3dadd(182.768, 129.838, -16.628, 0.904)
pt3dadd(182.862, 129.92, -16.629, 0.904)
pt3dadd(182.954, 129.988, -16.665, 0.904)
pt3dadd(183.046, 130.051, -16.711, 0.904)
pt3dadd(183.137, 130.114, -16.757, 0.904)
pt3dadd(183.227, 130.176, -16.804, 0.904)
pt3dadd(183.337, 130.213, -16.828, 0.904)
pt3dadd(183.456, 130.234, -16.838, 0.904)
pt3dadd(183.565, 130.266, -16.851, 0.904)
pt3dadd(183.593, 130.379, -16.891, 0.904)
pt3dadd(183.617, 130.492, -16.931, 0.904)
pt3dadd(183.619, 130.496, -16.931, 0.904)
pt3dadd(183.62, 130.614, -16.965, 0.904)
pt3dadd(183.622, 130.732, -16.999, 0.904)
pt3dadd(183.623, 130.846, -17.042, 0.904)
pt3dadd(183.625, 130.957, -17.088, 0.904)
pt3dadd(183.626, 131.075, -17.124, 0.904)
pt3dadd(183.628, 131.195, -17.153, 0.904)
pt3dadd(183.629, 131.3, -17.206, 0.904)
pt3dadd(183.63, 131.406, -17.262, 0.904)
pt3dadd(183.632, 131.51, -17.318, 0.904)
pt3dadd(183.634, 131.616, -17.374, 0.904)
pt3dadd(183.635, 131.72, -17.43, 0.904)
pt3dadd(183.636, 131.807, -17.504, 0.904)
pt3dadd(183.638, 131.89, -17.581, 0.904)
pt3dadd(183.64, 131.972, -17.658, 0.904)
pt3dadd(183.641, 132.055, -17.735, 0.904)
pt3dadd(183.642, 132.137, -17.812, 0.904)
pt3dadd(183.643, 132.142, -17.813, 0.904)
pt3dadd(183.646, 132.259, -17.846, 0.904)
pt3dadd(183.647, 132.379, -17.874, 0.904)
pt3dadd(183.648, 132.476, -17.929, 0.904)
pt3dadd(183.649, 132.55, -18.012, 0.904)
pt3dadd(183.652, 132.604, -18.101, 0.904)
pt3dadd(183.653, 132.608, -18.102, 0.904)
pt3dadd(183.654, 132.623, -18.202, 0.904)
pt3dadd(183.655, 132.637, -18.303, 0.904)
pt3dadd(183.656, 132.667, -18.401, 0.904)
pt3dadd(183.659, 132.712, -18.496, 0.904)
pt3dadd(183.66, 132.763, -18.588, 0.904)
pt3dadd(183.661, 132.847, -18.664, 0.904)
pt3dadd(183.662, 132.931, -18.74, 0.904)
pt3dadd(183.665, 133.015, -18.816, 0.904)
pt3dadd(183.666, 133.092, -18.897, 0.904)
pt3dadd(183.667, 133.164, -18.98, 0.904)
pt3dadd(183.668, 133.256, -19.046, 0.904)
pt3dadd(183.67, 133.373, -19.083, 0.904)
pt3dadd(183.672, 133.49, -19.117, 0.904)
pt3dadd(183.673, 133.609, -19.148, 0.904)
pt3dadd(183.674, 133.729, -19.177, 0.904)
pt3dadd(183.676, 133.85, -19.205, 0.904)
pt3dadd(183.678, 133.932, -19.282, 0.904)
pt3dadd(183.679, 134.011, -19.361, 0.904)
pt3dadd(183.68, 134.086, -19.443, 0.904)
pt3dadd(183.682, 134.159, -19.527, 0.904)
pt3dadd(183.683, 134.221, -19.614, 0.904)
pt3dadd(183.685, 134.273, -19.707, 0.904)
pt3dadd(183.686, 134.278, -19.707, 0.904)
pt3dadd(183.688, 134.292, -19.808, 0.904)
pt3dadd(183.689, 134.306, -19.909, 0.904)
pt3dadd(183.691, 134.344, -20.002, 0.904)
pt3dadd(183.692, 134.416, -20.086, 0.904)
pt3dadd(183.694, 134.496, -20.162, 0.904)
pt3dadd(183.695, 134.605, -20.214, 0.904)
pt3dadd(183.695, 134.713, -20.265, 0.904)
pt3dadd(183.67, 134.81, -20.326, 0.904)
pt3dadd(183.63, 134.898, -20.383, 0.904)
pt3dadd(183.528, 134.933, -20.427, 0.904)
pt3dadd(183.494, 134.957, -20.518, 0.904)
pt3dadd(183.474, 134.98, -20.615, 0.904)
pt3dadd(183.454, 135.04, -20.698, 0.904)
pt3dadd(183.434, 135.128, -20.768, 0.904)
pt3dadd(183.4, 135.194, -20.848, 0.904)
pt3dadd(183.358, 135.25, -20.932, 0.904)
pt3dadd(183.36, 135.254, -20.933, 0.904)
pt3dadd(183.32, 135.356, -20.969, 0.904)
pt3dadd(183.28, 135.47, -20.993, 0.904)
pt3dadd(183.235, 135.586, -20.997, 0.904)
pt3dadd(183.238, 135.59, -20.998, 0.904)
pt3dadd(183.239, 135.595, -20.999, 0.904)
}
dend_7[26] {pt3dclear()
pt3dadd(146.492, 102.674, 17.534, 2.034)
pt3dadd(146.477, 102.621, 17.521, 2.014)
pt3dadd(146.442, 102.512, 17.491, 1.97)
pt3dadd(146.408, 102.402, 17.462, 1.926)
pt3dadd(146.375, 102.292, 17.433, 1.882)
pt3dadd(146.341, 102.183, 17.404, 1.838)
pt3dadd(146.308, 102.073, 17.375, 1.796)
pt3dadd(146.274, 101.963, 17.346, 1.752)
pt3dadd(146.24, 101.853, 17.316, 1.708)
pt3dadd(146.207, 101.744, 17.287, 1.664)
pt3dadd(146.173, 101.634, 17.258, 1.622)
pt3dadd(146.14, 101.524, 17.229, 1.578)
pt3dadd(146.106, 101.414, 17.2, 1.534)
pt3dadd(146.072, 101.304, 17.171, 1.49)
pt3dadd(146.062, 101.199, 17.125, 1.478)
pt3dadd(146.058, 101.095, 17.076, 1.476)
pt3dadd(146.054, 100.991, 17.026, 1.472)
pt3dadd(146.051, 100.887, 16.976, 1.47)
pt3dadd(146.046, 100.783, 16.926, 1.466)
pt3dadd(146.042, 100.68, 16.876, 1.462)
pt3dadd(146.039, 100.576, 16.826, 1.46)
pt3dadd(146.035, 100.472, 16.776, 1.456)
pt3dadd(146.03, 100.368, 16.726, 1.454)
pt3dadd(146.027, 100.264, 16.677, 1.45)
pt3dadd(146.035, 100.165, 16.62, 1.464)
pt3dadd(146.044, 100.067, 16.563, 1.476)
pt3dadd(146.052, 99.968, 16.507, 1.49)
pt3dadd(146.06, 99.87, 16.45, 1.502)
pt3dadd(146.068, 99.771, 16.393, 1.516)
pt3dadd(146.076, 99.673, 16.336, 1.53)
pt3dadd(146.084, 99.574, 16.28, 1.542)
pt3dadd(146.093, 99.476, 16.223, 1.556)
pt3dadd(146.101, 99.377, 16.166, 1.568)
pt3dadd(146.11, 99.279, 16.11, 1.582)
}
dend_7[27] {pt3dclear()
pt3dadd(146.11, 99.279, 16.11, 1.582)
pt3dadd(146.119, 99.204, 16.084, 1.594)
pt3dadd(146.134, 99.093, 16.046, 1.612)
pt3dadd(146.148, 98.983, 16.009, 1.632)
pt3dadd(146.162, 98.873, 15.971, 1.65)
pt3dadd(146.176, 98.763, 15.934, 1.668)
pt3dadd(146.19, 98.652, 15.896, 1.686)
pt3dadd(146.204, 98.542, 15.858, 1.706)
pt3dadd(146.219, 98.432, 15.821, 1.724)
pt3dadd(146.233, 98.322, 15.783, 1.742)
pt3dadd(146.248, 98.211, 15.745, 1.76)
pt3dadd(146.262, 98.101, 15.708, 1.78)
pt3dadd(146.276, 97.991, 15.67, 1.798)
pt3dadd(146.297, 97.885, 15.627, 1.802)
pt3dadd(146.32, 97.78, 15.582, 1.802)
pt3dadd(146.342, 97.675, 15.538, 1.804)
pt3dadd(146.365, 97.57, 15.493, 1.804)
pt3dadd(146.387, 97.465, 15.449, 1.804)
pt3dadd(146.41, 97.359, 15.404, 1.806)
pt3dadd(146.432, 97.254, 15.36, 1.806)
pt3dadd(146.455, 97.149, 15.315, 1.806)
pt3dadd(146.478, 97.044, 15.271, 1.808)
pt3dadd(146.5, 96.939, 15.226, 1.808)
pt3dadd(146.539, 96.834, 15.191, 1.788)
pt3dadd(146.582, 96.73, 15.157, 1.766)
pt3dadd(146.624, 96.625, 15.124, 1.742)
pt3dadd(146.668, 96.52, 15.091, 1.718)
pt3dadd(146.711, 96.415, 15.058, 1.694)
pt3dadd(146.753, 96.311, 15.025, 1.67)
pt3dadd(146.796, 96.206, 14.992, 1.648)
pt3dadd(146.839, 96.101, 14.959, 1.624)
pt3dadd(146.881, 95.996, 14.925, 1.6)
pt3dadd(146.924, 95.891, 14.892, 1.576)
pt3dadd(146.984, 95.791, 14.871, 1.532)
pt3dadd(147.044, 95.69, 14.85, 1.486)
pt3dadd(147.104, 95.589, 14.83, 1.442)
pt3dadd(147.166, 95.488, 14.809, 1.396)
pt3dadd(147.226, 95.387, 14.788, 1.352)
pt3dadd(147.286, 95.287, 14.767, 1.306)
pt3dadd(147.346, 95.186, 14.746, 1.262)
pt3dadd(147.406, 95.085, 14.725, 1.218)
pt3dadd(147.466, 94.984, 14.704, 1.172)
pt3dadd(147.526, 94.884, 14.683, 1.128)
pt3dadd(147.599, 94.789, 14.674, 1.1)
}
}
proc shape3d_174() {
dend_7[27] { pt3dadd(147.672, 94.695, 14.665, 1.072)
pt3dadd(147.746, 94.601, 14.656, 1.042)
pt3dadd(147.82, 94.506, 14.647, 1.014)
pt3dadd(147.893, 94.412, 14.637, 0.986)
pt3dadd(147.966, 94.318, 14.628, 0.958)
pt3dadd(148.04, 94.224, 14.619, 0.93)
pt3dadd(148.114, 94.129, 14.61, 0.902)
pt3dadd(148.187, 94.035, 14.601, 0.874)
pt3dadd(148.26, 93.941, 14.592, 0.846)
pt3dadd(148.334, 93.847, 14.586, 0.842)
pt3dadd(148.408, 93.752, 14.58, 0.836)
pt3dadd(148.482, 93.658, 14.574, 0.83)
pt3dadd(148.555, 93.564, 14.568, 0.824)
pt3dadd(148.63, 93.469, 14.562, 0.818)
pt3dadd(148.704, 93.375, 14.556, 0.812)
pt3dadd(148.777, 93.281, 14.55, 0.806)
pt3dadd(148.852, 93.187, 14.544, 0.8)
pt3dadd(148.925, 93.092, 14.538, 0.796)
pt3dadd(148.999, 92.998, 14.532, 0.79)
pt3dadd(149.074, 92.904, 14.531, 0.818)
pt3dadd(149.148, 92.81, 14.53, 0.846)
pt3dadd(149.222, 92.716, 14.529, 0.874)
pt3dadd(149.297, 92.621, 14.528, 0.902)
pt3dadd(149.371, 92.527, 14.527, 0.93)
pt3dadd(149.446, 92.433, 14.526, 0.958)
pt3dadd(149.52, 92.339, 14.525, 0.986)
pt3dadd(149.594, 92.245, 14.524, 1.014)
pt3dadd(149.669, 92.151, 14.523, 1.042)
pt3dadd(149.743, 92.056, 14.522, 1.07)
pt3dadd(149.796, 91.949, 14.52, 1.076)
pt3dadd(149.85, 91.842, 14.518, 1.082)
pt3dadd(149.904, 91.735, 14.516, 1.088)
pt3dadd(149.958, 91.628, 14.513, 1.094)
pt3dadd(150.012, 91.52, 14.511, 1.1)
pt3dadd(150.066, 91.413, 14.509, 1.106)
pt3dadd(150.12, 91.306, 14.507, 1.112)
pt3dadd(150.173, 91.199, 14.505, 1.118)
pt3dadd(150.227, 91.091, 14.503, 1.124)
pt3dadd(150.28, 90.984, 14.501, 1.13)
pt3dadd(150.32, 90.871, 14.497, 1.114)
pt3dadd(150.36, 90.758, 14.493, 1.1)
pt3dadd(150.4, 90.645, 14.488, 1.086)
pt3dadd(150.44, 90.532, 14.484, 1.072)
pt3dadd(150.48, 90.419, 14.48, 1.058)
pt3dadd(150.52, 90.306, 14.476, 1.044)
pt3dadd(150.56, 90.192, 14.472, 1.03)
pt3dadd(150.6, 90.079, 14.468, 1.016)
pt3dadd(150.64, 89.966, 14.464, 1.002)
pt3dadd(150.679, 89.853, 14.46, 0.986)
pt3dadd(150.709, 89.737, 14.453, 0.956)
pt3dadd(150.739, 89.621, 14.447, 0.928)
pt3dadd(150.769, 89.505, 14.44, 0.898)
pt3dadd(150.799, 89.39, 14.433, 0.868)
pt3dadd(150.829, 89.274, 14.427, 0.838)
pt3dadd(150.859, 89.158, 14.42, 0.81)
pt3dadd(150.89, 89.042, 14.413, 0.78)
pt3dadd(150.92, 88.926, 14.406, 0.75)
pt3dadd(150.95, 88.81, 14.4, 0.72)
pt3dadd(150.983, 88.695, 14.393, 0.696)
pt3dadd(151.03, 88.585, 14.383, 0.712)
pt3dadd(151.076, 88.476, 14.373, 0.73)
pt3dadd(151.124, 88.366, 14.364, 0.746)
pt3dadd(151.171, 88.256, 14.354, 0.762)
pt3dadd(151.218, 88.146, 14.345, 0.778)
pt3dadd(151.265, 88.037, 14.335, 0.794)
pt3dadd(151.313, 87.927, 14.325, 0.81)
pt3dadd(151.36, 87.817, 14.316, 0.828)
pt3dadd(151.406, 87.708, 14.306, 0.844)
pt3dadd(151.453, 87.598, 14.294, 0.862)
pt3dadd(151.492, 87.489, 14.267, 0.89)
pt3dadd(151.529, 87.38, 14.24, 0.916)
pt3dadd(151.567, 87.271, 14.212, 0.944)
pt3dadd(151.606, 87.162, 14.185, 0.972)
pt3dadd(151.644, 87.053, 14.158, 1)
pt3dadd(151.682, 86.944, 14.131, 1.028)
pt3dadd(151.721, 86.835, 14.103, 1.056)
pt3dadd(151.758, 86.726, 14.076, 1.084)
pt3dadd(151.796, 86.617, 14.049, 1.112)
pt3dadd(151.834, 86.508, 14.021, 1.138)
pt3dadd(151.866, 86.398, 13.992, 1.154)
pt3dadd(151.897, 86.288, 13.963, 1.172)
pt3dadd(151.93, 86.178, 13.933, 1.188)
pt3dadd(151.962, 86.067, 13.904, 1.206)
pt3dadd(151.994, 85.957, 13.875, 1.222)
pt3dadd(152.026, 85.847, 13.846, 1.24)
pt3dadd(152.058, 85.737, 13.816, 1.256)
pt3dadd(152.09, 85.627, 13.787, 1.274)
pt3dadd(152.122, 85.516, 13.758, 1.29)
pt3dadd(152.153, 85.405, 13.731, 1.3)
pt3dadd(152.179, 85.29, 13.713, 1.282)
pt3dadd(152.206, 85.175, 13.694, 1.266)
pt3dadd(152.232, 85.06, 13.676, 1.248)
pt3dadd(152.258, 84.945, 13.658, 1.232)
pt3dadd(152.285, 84.83, 13.639, 1.214)
pt3dadd(152.312, 84.715, 13.621, 1.198)
pt3dadd(152.339, 84.6, 13.603, 1.18)
pt3dadd(152.365, 84.486, 13.584, 1.162)
pt3dadd(152.392, 84.371, 13.566, 1.146)
pt3dadd(152.422, 84.257, 13.551, 1.128)
pt3dadd(152.467, 84.145, 13.549, 1.112)
pt3dadd(152.512, 84.034, 13.546, 1.096)
pt3dadd(152.557, 83.923, 13.544, 1.08)
pt3dadd(152.602, 83.812, 13.541, 1.062)
pt3dadd(152.647, 83.7, 13.539, 1.046)
pt3dadd(152.692, 83.589, 13.536, 1.03)
pt3dadd(152.736, 83.478, 13.534, 1.012)
pt3dadd(152.782, 83.367, 13.531, 0.996)
pt3dadd(152.826, 83.255, 13.529, 0.98)
pt3dadd(152.869, 83.144, 13.531, 0.966)
pt3dadd(152.905, 83.031, 13.549, 0.96)
pt3dadd(152.94, 82.919, 13.567, 0.952)
pt3dadd(152.976, 82.806, 13.585, 0.946)
pt3dadd(153.012, 82.694, 13.603, 0.94)
pt3dadd(153.048, 82.581, 13.621, 0.934)
pt3dadd(153.083, 82.469, 13.639, 0.928)
pt3dadd(153.119, 82.356, 13.657, 0.92)
pt3dadd(153.155, 82.244, 13.676, 0.914)
pt3dadd(153.191, 82.131, 13.694, 0.908)
pt3dadd(153.222, 82.019, 13.715, 0.9)
pt3dadd(153.248, 81.906, 13.74, 0.886)
pt3dadd(153.275, 81.793, 13.766, 0.872)
pt3dadd(153.3, 81.68, 13.792, 0.86)
pt3dadd(153.326, 81.567, 13.818, 0.846)
pt3dadd(153.353, 81.454, 13.844, 0.834)
pt3dadd(153.378, 81.341, 13.87, 0.82)
pt3dadd(153.404, 81.228, 13.895, 0.808)
pt3dadd(153.431, 81.115, 13.921, 0.794)
pt3dadd(153.456, 81.002, 13.947, 0.782)
pt3dadd(153.479, 80.887, 13.967, 0.752)
pt3dadd(153.496, 80.769, 13.979, 0.7)
pt3dadd(153.511, 80.651, 13.991, 0.646)
pt3dadd(153.528, 80.533, 14.004, 0.594)
pt3dadd(153.545, 80.415, 14.016, 0.542)
pt3dadd(153.562, 80.297, 14.028, 0.488)
pt3dadd(153.578, 80.179, 14.04, 0.436)
pt3dadd(153.594, 80.061, 14.052, 0.382)
pt3dadd(153.611, 79.943, 14.065, 0.33)
pt3dadd(153.628, 79.825, 14.077, 0.278)
pt3dadd(153.641, 79.709, 14.072, 0.266)
pt3dadd(153.649, 79.593, 14.045, 0.314)
pt3dadd(153.658, 79.478, 14.017, 0.362)
pt3dadd(153.666, 79.363, 13.99, 0.408)
pt3dadd(153.674, 79.248, 13.962, 0.456)
pt3dadd(153.684, 79.133, 13.935, 0.502)
pt3dadd(153.692, 79.018, 13.908, 0.55)
pt3dadd(153.701, 78.903, 13.88, 0.598)
pt3dadd(153.709, 78.788, 13.853, 0.644)
pt3dadd(153.718, 78.673, 13.825, 0.692)
pt3dadd(153.727, 78.558, 13.798, 0.74)
pt3dadd(153.739, 78.443, 13.771, 0.792)
pt3dadd(153.751, 78.328, 13.743, 0.842)
pt3dadd(153.763, 78.214, 13.716, 0.894)
pt3dadd(153.775, 78.099, 13.688, 0.946)
pt3dadd(153.786, 77.984, 13.661, 0.996)
pt3dadd(153.798, 77.869, 13.634, 1.048)
pt3dadd(153.81, 77.754, 13.606, 1.1)
pt3dadd(153.822, 77.64, 13.579, 1.15)
pt3dadd(153.834, 77.525, 13.551, 1.202)
pt3dadd(153.851, 77.41, 13.526, 1.238)
pt3dadd(153.875, 77.296, 13.502, 1.26)
pt3dadd(153.898, 77.182, 13.479, 1.278)
pt3dadd(153.922, 77.067, 13.455, 1.3)
pt3dadd(153.944, 76.953, 13.431, 1.32)
pt3dadd(153.968, 76.839, 13.408, 1.34)
pt3dadd(153.991, 76.725, 13.384, 1.36)
pt3dadd(154.015, 76.611, 13.361, 1.38)
pt3dadd(154.038, 76.496, 13.337, 1.4)
pt3dadd(154.062, 76.382, 13.313, 1.42)
pt3dadd(154.097, 76.27, 13.294, 1.402)
pt3dadd(154.141, 76.161, 13.277, 1.354)
pt3dadd(154.187, 76.051, 13.26, 1.304)
pt3dadd(154.231, 75.942, 13.243, 1.256)
pt3dadd(154.276, 75.832, 13.227, 1.206)
pt3dadd(154.32, 75.723, 13.21, 1.158)
pt3dadd(154.364, 75.613, 13.193, 1.108)
pt3dadd(154.41, 75.503, 13.177, 1.06)
pt3dadd(154.454, 75.394, 13.16, 1.01)
pt3dadd(154.499, 75.284, 13.143, 0.962)
pt3dadd(154.536, 75.172, 13.129, 0.98)
pt3dadd(154.567, 75.057, 13.117, 1.056)
pt3dadd(154.598, 74.942, 13.105, 1.132)
pt3dadd(154.63, 74.827, 13.094, 1.21)
pt3dadd(154.661, 74.712, 13.082, 1.286)
pt3dadd(154.692, 74.597, 13.07, 1.362)
pt3dadd(154.723, 74.482, 13.058, 1.438)
pt3dadd(154.754, 74.367, 13.046, 1.514)
pt3dadd(154.786, 74.252, 13.034, 1.59)
pt3dadd(154.817, 74.137, 13.023, 1.666)
pt3dadd(154.843, 74.023, 13.002, 1.696)
pt3dadd(154.865, 73.909, 12.974, 1.69)
pt3dadd(154.885, 73.796, 12.947, 1.684)
pt3dadd(154.907, 73.683, 12.919, 1.676)
pt3dadd(154.928, 73.569, 12.892, 1.67)
pt3dadd(154.95, 73.456, 12.864, 1.662)
pt3dadd(154.97, 73.343, 12.836, 1.656)
pt3dadd(154.992, 73.229, 12.809, 1.648)
pt3dadd(155.014, 73.116, 12.781, 1.642)
pt3dadd(155.035, 73.003, 12.754, 1.636)
pt3dadd(155.051, 72.89, 12.721, 1.602)
pt3dadd(155.065, 72.779, 12.687, 1.556)
}
}
proc shape3d_175() {
dend_7[27] { pt3dadd(155.078, 72.667, 12.652, 1.51)
pt3dadd(155.093, 72.555, 12.618, 1.464)
pt3dadd(155.106, 72.443, 12.583, 1.418)
pt3dadd(155.12, 72.331, 12.549, 1.372)
pt3dadd(155.134, 72.22, 12.514, 1.324)
pt3dadd(155.147, 72.108, 12.479, 1.278)
pt3dadd(155.161, 71.996, 12.445, 1.232)
pt3dadd(155.174, 71.884, 12.41, 1.186)
pt3dadd(155.185, 71.77, 12.382, 1.182)
pt3dadd(155.192, 71.654, 12.357, 1.2)
pt3dadd(155.201, 71.538, 12.332, 1.216)
pt3dadd(155.209, 71.422, 12.306, 1.234)
pt3dadd(155.218, 71.307, 12.281, 1.25)
pt3dadd(155.226, 71.191, 12.256, 1.268)
pt3dadd(155.233, 71.075, 12.231, 1.286)
pt3dadd(155.242, 70.959, 12.205, 1.302)
pt3dadd(155.25, 70.843, 12.18, 1.32)
pt3dadd(155.258, 70.727, 12.155, 1.338)
pt3dadd(155.269, 70.61, 12.137, 1.344)
pt3dadd(155.284, 70.492, 12.122, 1.346)
pt3dadd(155.297, 70.374, 12.108, 1.346)
pt3dadd(155.31, 70.256, 12.093, 1.348)
pt3dadd(155.323, 70.138, 12.078, 1.348)
pt3dadd(155.336, 70.02, 12.064, 1.35)
pt3dadd(155.35, 69.902, 12.049, 1.352)
pt3dadd(155.363, 69.784, 12.034, 1.352)
pt3dadd(155.376, 69.666, 12.02, 1.354)
pt3dadd(155.389, 69.549, 12.005, 1.356)
pt3dadd(155.417, 69.433, 11.994, 1.342)
pt3dadd(155.45, 69.318, 11.985, 1.32)
pt3dadd(155.484, 69.203, 11.976, 1.3)
pt3dadd(155.518, 69.089, 11.966, 1.278)
pt3dadd(155.551, 68.974, 11.957, 1.256)
pt3dadd(155.585, 68.859, 11.948, 1.236)
pt3dadd(155.617, 68.745, 11.939, 1.214)
pt3dadd(155.651, 68.63, 11.929, 1.192)
pt3dadd(155.684, 68.515, 11.92, 1.172)
pt3dadd(155.718, 68.401, 11.911, 1.15)
pt3dadd(155.756, 68.287, 11.903, 1.13)
pt3dadd(155.797, 68.175, 11.895, 1.11)
pt3dadd(155.837, 68.062, 11.887, 1.092)
pt3dadd(155.878, 67.949, 11.879, 1.072)
pt3dadd(155.917, 67.837, 11.872, 1.052)
pt3dadd(155.958, 67.724, 11.864, 1.034)
pt3dadd(155.998, 67.611, 11.856, 1.014)
pt3dadd(156.038, 67.499, 11.848, 0.994)
pt3dadd(156.078, 67.386, 11.84, 0.974)
pt3dadd(156.119, 67.273, 11.832, 0.956)
pt3dadd(156.15, 67.158, 11.822, 0.964)
pt3dadd(156.178, 67.042, 11.811, 0.982)
pt3dadd(156.206, 66.927, 11.799, 0.998)
pt3dadd(156.235, 66.811, 11.788, 1.016)
pt3dadd(156.263, 66.695, 11.777, 1.034)
pt3dadd(156.292, 66.579, 11.765, 1.05)
pt3dadd(156.32, 66.463, 11.754, 1.068)
pt3dadd(156.348, 66.348, 11.743, 1.086)
pt3dadd(156.377, 66.232, 11.732, 1.102)
pt3dadd(156.406, 66.116, 11.72, 1.12)
pt3dadd(156.421, 66.004, 11.69, 1.148)
pt3dadd(156.434, 65.893, 11.654, 1.182)
pt3dadd(156.446, 65.781, 11.618, 1.214)
pt3dadd(156.46, 65.67, 11.581, 1.246)
pt3dadd(156.472, 65.559, 11.545, 1.278)
pt3dadd(156.485, 65.448, 11.509, 1.312)
pt3dadd(156.497, 65.337, 11.473, 1.344)
pt3dadd(156.51, 65.226, 11.437, 1.376)
pt3dadd(156.522, 65.114, 11.401, 1.408)
pt3dadd(156.535, 65.003, 11.365, 1.44)
pt3dadd(156.541, 64.889, 11.334, 1.442)
pt3dadd(156.546, 64.775, 11.304, 1.434)
pt3dadd(156.55, 64.66, 11.275, 1.428)
pt3dadd(156.554, 64.546, 11.245, 1.42)
pt3dadd(156.559, 64.431, 11.216, 1.414)
pt3dadd(156.564, 64.317, 11.186, 1.406)
pt3dadd(156.568, 64.202, 11.157, 1.398)
pt3dadd(156.572, 64.087, 11.127, 1.392)
pt3dadd(156.577, 63.973, 11.097, 1.384)
pt3dadd(156.581, 63.858, 11.068, 1.378)
pt3dadd(156.581, 63.741, 11.046, 1.338)
pt3dadd(156.581, 63.624, 11.026, 1.294)
pt3dadd(156.58, 63.506, 11.005, 1.248)
pt3dadd(156.578, 63.389, 10.985, 1.202)
pt3dadd(156.577, 63.271, 10.964, 1.158)
pt3dadd(156.576, 63.154, 10.944, 1.112)
pt3dadd(156.576, 63.036, 10.923, 1.066)
pt3dadd(156.575, 62.919, 10.903, 1.02)
pt3dadd(156.574, 62.802, 10.882, 0.976)
pt3dadd(156.572, 62.684, 10.862, 0.93)
pt3dadd(156.571, 62.565, 10.849, 0.864)
pt3dadd(156.57, 62.446, 10.838, 0.796)
pt3dadd(156.568, 62.327, 10.827, 0.726)
pt3dadd(156.566, 62.207, 10.816, 0.656)
pt3dadd(156.565, 62.088, 10.805, 0.586)
pt3dadd(156.563, 61.969, 10.794, 0.518)
pt3dadd(156.562, 61.85, 10.782, 0.448)
pt3dadd(156.56, 61.731, 10.771, 0.378)
pt3dadd(156.558, 61.611, 10.76, 0.31)
pt3dadd(156.557, 61.492, 10.749, 0.24)
pt3dadd(156.553, 61.372, 10.747, 0.244)
pt3dadd(156.548, 61.252, 10.746, 0.262)
pt3dadd(156.544, 61.132, 10.746, 0.28)
pt3dadd(156.54, 61.012, 10.745, 0.298)
pt3dadd(156.535, 60.893, 10.744, 0.316)
pt3dadd(156.53, 60.773, 10.744, 0.334)
pt3dadd(156.527, 60.653, 10.743, 0.352)
pt3dadd(156.522, 60.533, 10.742, 0.37)
pt3dadd(156.517, 60.413, 10.742, 0.388)
pt3dadd(156.514, 60.293, 10.741, 0.406)
pt3dadd(156.509, 60.173, 10.74, 0.448)
pt3dadd(156.504, 60.053, 10.739, 0.494)
pt3dadd(156.499, 59.933, 10.738, 0.54)
pt3dadd(156.496, 59.813, 10.736, 0.586)
pt3dadd(156.491, 59.693, 10.735, 0.63)
pt3dadd(156.486, 59.574, 10.734, 0.676)
pt3dadd(156.482, 59.454, 10.733, 0.722)
pt3dadd(156.478, 59.334, 10.731, 0.768)
pt3dadd(156.473, 59.214, 10.73, 0.814)
pt3dadd(156.469, 59.094, 10.729, 0.86)
pt3dadd(156.452, 58.975, 10.727, 0.866)
pt3dadd(156.434, 58.857, 10.725, 0.864)
pt3dadd(156.415, 58.738, 10.722, 0.864)
pt3dadd(156.397, 58.619, 10.72, 0.862)
pt3dadd(156.379, 58.501, 10.718, 0.862)
pt3dadd(156.36, 58.382, 10.716, 0.86)
pt3dadd(156.342, 58.264, 10.714, 0.86)
pt3dadd(156.324, 58.145, 10.712, 0.858)
pt3dadd(156.306, 58.027, 10.709, 0.858)
pt3dadd(156.287, 57.908, 10.707, 0.856)
pt3dadd(156.269, 57.789, 10.703, 0.814)
pt3dadd(156.251, 57.671, 10.699, 0.768)
pt3dadd(156.233, 57.552, 10.695, 0.722)
pt3dadd(156.215, 57.434, 10.691, 0.676)
pt3dadd(156.197, 57.315, 10.687, 0.63)
pt3dadd(156.179, 57.197, 10.683, 0.584)
pt3dadd(156.161, 57.078, 10.679, 0.54)
pt3dadd(156.143, 56.96, 10.675, 0.494)
pt3dadd(156.125, 56.841, 10.671, 0.448)
pt3dadd(156.113, 56.723, 10.667, 0.404)
pt3dadd(156.138, 56.606, 10.659, 0.388)
pt3dadd(156.163, 56.489, 10.652, 0.37)
pt3dadd(156.188, 56.372, 10.644, 0.352)
pt3dadd(156.214, 56.255, 10.637, 0.336)
pt3dadd(156.239, 56.138, 10.629, 0.318)
pt3dadd(156.264, 56.021, 10.622, 0.3)
pt3dadd(156.289, 55.904, 10.614, 0.282)
pt3dadd(156.314, 55.787, 10.607, 0.266)
pt3dadd(156.34, 55.67, 10.599, 0.248)
pt3dadd(156.366, 55.554, 10.591, 0.234)
pt3dadd(156.397, 55.439, 10.578, 0.254)
pt3dadd(156.428, 55.324, 10.566, 0.274)
pt3dadd(156.46, 55.209, 10.553, 0.292)
pt3dadd(156.492, 55.094, 10.54, 0.312)
pt3dadd(156.523, 54.979, 10.528, 0.332)
pt3dadd(156.554, 54.864, 10.515, 0.352)
pt3dadd(156.586, 54.75, 10.503, 0.37)
pt3dadd(156.617, 54.635, 10.49, 0.39)
pt3dadd(156.648, 54.52, 10.478, 0.41)
pt3dadd(156.682, 54.407, 10.461, 0.426)
pt3dadd(156.727, 54.312, 10.414, 0.43)
pt3dadd(156.773, 54.216, 10.368, 0.432)
pt3dadd(156.82, 54.12, 10.322, 0.434)
pt3dadd(156.865, 54.024, 10.275, 0.438)
pt3dadd(156.911, 53.928, 10.229, 0.44)
pt3dadd(156.958, 53.832, 10.183, 0.442)
pt3dadd(157.003, 53.736, 10.136, 0.444)
pt3dadd(157.05, 53.641, 10.09, 0.448)
pt3dadd(157.096, 53.545, 10.044, 0.45)
pt3dadd(157.146, 53.449, 10.002, 0.452)
pt3dadd(157.212, 53.355, 9.973, 0.452)
pt3dadd(157.278, 53.261, 9.944, 0.452)
pt3dadd(157.344, 53.167, 9.915, 0.452)
pt3dadd(157.41, 53.073, 9.886, 0.452)
pt3dadd(157.476, 52.979, 9.857, 0.452)
pt3dadd(157.541, 52.884, 9.828, 0.452)
pt3dadd(157.607, 52.79, 9.799, 0.452)
pt3dadd(157.673, 52.696, 9.77, 0.452)
pt3dadd(157.739, 52.602, 9.741, 0.452)
pt3dadd(157.807, 52.508, 9.717, 0.45)
pt3dadd(157.879, 52.414, 9.701, 0.438)
pt3dadd(157.952, 52.321, 9.686, 0.428)
pt3dadd(158.026, 52.227, 9.671, 0.418)
pt3dadd(158.098, 52.134, 9.656, 0.408)
pt3dadd(158.171, 52.04, 9.641, 0.398)
pt3dadd(158.244, 51.946, 9.626, 0.388)
pt3dadd(158.317, 51.853, 9.611, 0.378)
pt3dadd(158.389, 51.759, 9.596, 0.368)
pt3dadd(158.462, 51.665, 9.581, 0.356)
pt3dadd(158.534, 51.571, 9.569, 0.346)
pt3dadd(158.605, 51.474, 9.561, 0.334)
pt3dadd(158.676, 51.378, 9.554, 0.32)
pt3dadd(158.747, 51.281, 9.546, 0.308)
pt3dadd(158.818, 51.185, 9.539, 0.296)
pt3dadd(158.888, 51.088, 9.532, 0.284)
pt3dadd(158.959, 50.991, 9.524, 0.272)
pt3dadd(159.029, 50.895, 9.517, 0.258)
pt3dadd(159.1, 50.798, 9.51, 0.246)
pt3dadd(159.17, 50.702, 9.502, 0.234)
pt3dadd(159.234, 50.601, 9.498, 0.226)
pt3dadd(159.286, 50.492, 9.498, 0.226)
pt3dadd(159.337, 50.384, 9.499, 0.226)
}
}
proc shape3d_176() {
dend_7[27] { pt3dadd(159.389, 50.275, 9.499, 0.226)
pt3dadd(159.44, 50.167, 9.5, 0.226)
pt3dadd(159.492, 50.059, 9.5, 0.226)
pt3dadd(159.542, 49.95, 9.501, 0.226)
pt3dadd(159.594, 49.842, 9.502, 0.226)
pt3dadd(159.646, 49.734, 9.502, 0.226)
pt3dadd(159.697, 49.625, 9.503, 0.226)
pt3dadd(159.75, 49.517, 9.503, 0.226)
pt3dadd(159.804, 49.41, 9.505, 0.226)
pt3dadd(159.858, 49.303, 9.506, 0.226)
pt3dadd(159.912, 49.196, 9.507, 0.226)
pt3dadd(159.966, 49.089, 9.508, 0.226)
pt3dadd(160.02, 48.981, 9.509, 0.226)
pt3dadd(160.074, 48.874, 9.51, 0.226)
pt3dadd(160.128, 48.767, 9.511, 0.226)
pt3dadd(160.182, 48.66, 9.513, 0.226)
pt3dadd(160.236, 48.553, 9.514, 0.226)
pt3dadd(160.286, 48.444, 9.515, 0.226)
pt3dadd(160.332, 48.333, 9.517, 0.226)
pt3dadd(160.376, 48.222, 9.519, 0.226)
pt3dadd(160.422, 48.111, 9.521, 0.226)
pt3dadd(160.468, 48, 9.523, 0.226)
pt3dadd(160.512, 47.888, 9.524, 0.226)
pt3dadd(160.558, 47.777, 9.526, 0.226)
pt3dadd(160.603, 47.666, 9.528, 0.226)
pt3dadd(160.648, 47.555, 9.53, 0.226)
pt3dadd(160.693, 47.444, 9.532, 0.226)
pt3dadd(160.73, 47.33, 9.534, 0.228)
pt3dadd(160.758, 47.213, 9.537, 0.232)
pt3dadd(160.786, 47.097, 9.54, 0.236)
pt3dadd(160.813, 46.98, 9.543, 0.24)
pt3dadd(160.841, 46.863, 9.547, 0.244)
pt3dadd(160.868, 46.747, 9.55, 0.248)
pt3dadd(160.896, 46.63, 9.553, 0.252)
pt3dadd(160.924, 46.513, 9.556, 0.256)
pt3dadd(160.951, 46.396, 9.559, 0.262)
pt3dadd(160.979, 46.28, 9.562, 0.266)
pt3dadd(161, 46.162, 9.567, 0.292)
pt3dadd(161.014, 46.043, 9.574, 0.344)
pt3dadd(161.027, 45.924, 9.581, 0.398)
pt3dadd(161.04, 45.805, 9.588, 0.45)
pt3dadd(161.053, 45.686, 9.595, 0.504)
pt3dadd(161.066, 45.567, 9.602, 0.556)
pt3dadd(161.081, 45.448, 9.609, 0.61)
pt3dadd(161.094, 45.329, 9.616, 0.662)
pt3dadd(161.107, 45.21, 9.623, 0.716)
pt3dadd(161.12, 45.091, 9.63, 0.77)
pt3dadd(161.129, 44.972, 9.638, 0.816)
pt3dadd(161.132, 44.853, 9.649, 0.854)
pt3dadd(161.135, 44.734, 9.66, 0.894)
pt3dadd(161.138, 44.614, 9.67, 0.932)
pt3dadd(161.141, 44.495, 9.681, 0.972)
pt3dadd(161.144, 44.376, 9.692, 1.012)
pt3dadd(161.147, 44.256, 9.702, 1.05)
pt3dadd(161.15, 44.137, 9.713, 1.09)
pt3dadd(161.153, 44.018, 9.724, 1.128)
pt3dadd(161.156, 43.899, 9.734, 1.168)
pt3dadd(161.158, 43.781, 9.752, 1.188)
pt3dadd(161.159, 43.665, 9.777, 1.188)
pt3dadd(161.159, 43.549, 9.802, 1.186)
pt3dadd(161.159, 43.433, 9.828, 1.186)
pt3dadd(161.16, 43.317, 9.853, 1.186)
pt3dadd(161.16, 43.2, 9.878, 1.184)
pt3dadd(161.161, 43.084, 9.904, 1.184)
pt3dadd(161.161, 42.968, 9.929, 1.182)
pt3dadd(161.161, 42.852, 9.954, 1.182)
pt3dadd(161.162, 42.736, 9.98, 1.182)
pt3dadd(161.162, 42.622, 10.01, 1.166)
pt3dadd(161.164, 42.51, 10.045, 1.138)
pt3dadd(161.165, 42.397, 10.08, 1.11)
pt3dadd(161.165, 42.285, 10.115, 1.082)
pt3dadd(161.166, 42.172, 10.15, 1.054)
pt3dadd(161.166, 42.06, 10.186, 1.028)
pt3dadd(161.167, 41.948, 10.221, 1)
pt3dadd(161.168, 41.835, 10.256, 0.972)
pt3dadd(161.168, 41.723, 10.291, 0.944)
pt3dadd(161.17, 41.611, 10.326, 0.916)
pt3dadd(161.171, 41.496, 10.355, 0.904)
pt3dadd(161.172, 41.379, 10.379, 0.904)
pt3dadd(161.173, 41.263, 10.403, 0.904)
pt3dadd(161.176, 41.146, 10.427, 0.904)
pt3dadd(161.177, 41.03, 10.451, 0.904)
pt3dadd(161.178, 40.914, 10.475, 0.904)
pt3dadd(161.18, 40.797, 10.499, 0.904)
pt3dadd(161.182, 40.68, 10.523, 0.904)
pt3dadd(161.183, 40.564, 10.547, 0.904)
pt3dadd(161.184, 40.448, 10.571, 0.904)
pt3dadd(161.186, 40.33, 10.589, 0.912)
pt3dadd(161.19, 40.211, 10.601, 0.928)
pt3dadd(161.194, 40.092, 10.614, 0.944)
pt3dadd(161.196, 39.973, 10.627, 0.958)
pt3dadd(161.2, 39.854, 10.64, 0.974)
pt3dadd(161.202, 39.735, 10.653, 0.988)
pt3dadd(161.206, 39.616, 10.666, 1.004)
pt3dadd(161.209, 39.497, 10.679, 1.02)
pt3dadd(161.212, 39.378, 10.692, 1.034)
pt3dadd(161.215, 39.259, 10.705, 1.05)
pt3dadd(161.22, 39.14, 10.713, 1.05)
pt3dadd(161.226, 39.02, 10.718, 1.036)
pt3dadd(161.232, 38.9, 10.722, 1.022)
pt3dadd(161.238, 38.781, 10.727, 1.008)
pt3dadd(161.244, 38.661, 10.732, 0.994)
pt3dadd(161.25, 38.541, 10.736, 0.98)
pt3dadd(161.256, 38.421, 10.741, 0.968)
pt3dadd(161.262, 38.302, 10.746, 0.954)
pt3dadd(161.268, 38.182, 10.75, 0.94)
pt3dadd(161.274, 38.062, 10.755, 0.926)
pt3dadd(161.282, 37.943, 10.757, 0.91)
pt3dadd(161.292, 37.823, 10.757, 0.892)
pt3dadd(161.302, 37.703, 10.757, 0.872)
pt3dadd(161.311, 37.584, 10.757, 0.854)
pt3dadd(161.321, 37.464, 10.758, 0.836)
pt3dadd(161.33, 37.345, 10.758, 0.816)
pt3dadd(161.34, 37.225, 10.758, 0.798)
pt3dadd(161.35, 37.105, 10.758, 0.78)
pt3dadd(161.36, 36.986, 10.758, 0.76)
pt3dadd(161.37, 36.866, 10.759, 0.742)
pt3dadd(161.382, 36.747, 10.759, 0.744)
pt3dadd(161.396, 36.628, 10.759, 0.76)
pt3dadd(161.411, 36.509, 10.76, 0.776)
pt3dadd(161.425, 36.39, 10.76, 0.792)
pt3dadd(161.441, 36.27, 10.76, 0.808)
pt3dadd(161.455, 36.151, 10.76, 0.826)
pt3dadd(161.47, 36.032, 10.761, 0.842)
pt3dadd(161.484, 35.913, 10.761, 0.858)
pt3dadd(161.498, 35.794, 10.761, 0.874)
pt3dadd(161.513, 35.675, 10.762, 0.89)
pt3dadd(161.545, 35.56, 10.762, 0.886)
pt3dadd(161.588, 35.448, 10.763, 0.87)
pt3dadd(161.632, 35.336, 10.763, 0.852)
pt3dadd(161.675, 35.224, 10.764, 0.836)
pt3dadd(161.718, 35.112, 10.765, 0.82)
pt3dadd(161.761, 35, 10.765, 0.802)
pt3dadd(161.804, 34.888, 10.766, 0.786)
pt3dadd(161.848, 34.776, 10.766, 0.77)
pt3dadd(161.891, 34.664, 10.767, 0.752)
pt3dadd(161.934, 34.552, 10.768, 0.736)
pt3dadd(161.97, 34.438, 10.768, 0.726)
pt3dadd(162.001, 34.322, 10.77, 0.722)
pt3dadd(162.032, 34.206, 10.771, 0.716)
pt3dadd(162.064, 34.091, 10.772, 0.71)
pt3dadd(162.095, 33.975, 10.773, 0.706)
pt3dadd(162.126, 33.859, 10.774, 0.7)
pt3dadd(162.157, 33.743, 10.775, 0.696)
pt3dadd(162.188, 33.627, 10.776, 0.69)
pt3dadd(162.22, 33.511, 10.778, 0.686)
pt3dadd(162.251, 33.396, 10.779, 0.68)
pt3dadd(162.274, 33.278, 10.78, 0.686)
pt3dadd(162.292, 33.159, 10.782, 0.702)
pt3dadd(162.308, 33.041, 10.784, 0.716)
pt3dadd(162.326, 32.922, 10.786, 0.73)
pt3dadd(162.343, 32.803, 10.788, 0.744)
pt3dadd(162.361, 32.684, 10.79, 0.758)
pt3dadd(162.378, 32.566, 10.792, 0.772)
pt3dadd(162.396, 32.447, 10.794, 0.786)
pt3dadd(162.414, 32.328, 10.796, 0.8)
pt3dadd(162.431, 32.21, 10.798, 0.814)
pt3dadd(162.438, 32.09, 10.801, 0.836)
pt3dadd(162.44, 31.97, 10.805, 0.864)
pt3dadd(162.443, 31.85, 10.808, 0.89)
pt3dadd(162.445, 31.73, 10.811, 0.916)
pt3dadd(162.448, 31.611, 10.815, 0.944)
pt3dadd(162.45, 31.491, 10.818, 0.97)
pt3dadd(162.452, 31.371, 10.822, 0.996)
pt3dadd(162.455, 31.251, 10.825, 1.022)
pt3dadd(162.457, 31.131, 10.828, 1.05)
pt3dadd(162.46, 31.011, 10.832, 1.076)
pt3dadd(162.451, 30.892, 10.838, 1.06)
pt3dadd(162.438, 30.773, 10.845, 1.026)
pt3dadd(162.424, 30.654, 10.852, 0.99)
pt3dadd(162.41, 30.535, 10.859, 0.954)
pt3dadd(162.396, 30.416, 10.866, 0.918)
pt3dadd(162.383, 30.297, 10.873, 0.884)
pt3dadd(162.368, 30.178, 10.88, 0.848)
pt3dadd(162.355, 30.059, 10.887, 0.812)
pt3dadd(162.341, 29.94, 10.894, 0.778)
pt3dadd(162.328, 29.822, 10.901, 0.742)
pt3dadd(162.295, 29.707, 10.91, 0.756)
pt3dadd(162.256, 29.595, 10.92, 0.792)
pt3dadd(162.216, 29.482, 10.93, 0.83)
pt3dadd(162.175, 29.37, 10.941, 0.866)
pt3dadd(162.136, 29.257, 10.951, 0.904)
pt3dadd(162.096, 29.145, 10.961, 0.94)
pt3dadd(162.055, 29.032, 10.972, 0.978)
pt3dadd(162.016, 28.92, 10.982, 1.014)
pt3dadd(161.976, 28.807, 10.992, 1.052)
pt3dadd(161.935, 28.695, 11.003, 1.088)
pt3dadd(161.898, 28.584, 11.022, 1.09)
pt3dadd(161.862, 28.473, 11.045, 1.076)
pt3dadd(161.826, 28.362, 11.069, 1.064)
pt3dadd(161.789, 28.251, 11.092, 1.05)
pt3dadd(161.753, 28.14, 11.115, 1.036)
pt3dadd(161.717, 28.029, 11.139, 1.024)
pt3dadd(161.681, 27.918, 11.162, 1.01)
pt3dadd(161.645, 27.807, 11.186, 0.996)
pt3dadd(161.608, 27.696, 11.209, 0.984)
pt3dadd(161.572, 27.585, 11.232, 0.97)
pt3dadd(161.544, 27.476, 11.266, 0.906)
pt3dadd(161.519, 27.367, 11.301, 0.832)
pt3dadd(161.492, 27.257, 11.336, 0.758)
}
}
proc shape3d_177() {
dend_7[27] { pt3dadd(161.467, 27.148, 11.372, 0.684)
pt3dadd(161.441, 27.039, 11.407, 0.61)
pt3dadd(161.416, 26.93, 11.443, 0.534)
pt3dadd(161.39, 26.82, 11.478, 0.46)
pt3dadd(161.364, 26.711, 11.513, 0.386)
pt3dadd(161.339, 26.602, 11.549, 0.312)
pt3dadd(161.312, 26.493, 11.584, 0.238)
pt3dadd(161.298, 26.378, 11.61, 0.226)
pt3dadd(161.285, 26.262, 11.634, 0.226)
pt3dadd(161.273, 26.146, 11.658, 0.226)
pt3dadd(161.26, 26.031, 11.682, 0.226)
pt3dadd(161.246, 25.915, 11.706, 0.226)
pt3dadd(161.233, 25.799, 11.731, 0.226)
pt3dadd(161.221, 25.683, 11.755, 0.226)
pt3dadd(161.208, 25.568, 11.779, 0.226)
pt3dadd(161.195, 25.452, 11.803, 0.226)
pt3dadd(161.183, 25.336, 11.827, 0.226)
pt3dadd(161.178, 25.218, 11.843, 0.25)
pt3dadd(161.174, 25.099, 11.858, 0.276)
pt3dadd(161.172, 24.981, 11.872, 0.304)
pt3dadd(161.168, 24.862, 11.887, 0.332)
pt3dadd(161.166, 24.743, 11.901, 0.358)
pt3dadd(161.162, 24.625, 11.916, 0.386)
pt3dadd(161.16, 24.506, 11.93, 0.414)
pt3dadd(161.156, 24.387, 11.945, 0.44)
pt3dadd(161.154, 24.269, 11.959, 0.468)
pt3dadd(161.15, 24.15, 11.974, 0.496)
pt3dadd(161.15, 24.03, 11.982, 0.514)
pt3dadd(161.15, 23.91, 11.988, 0.532)
pt3dadd(161.15, 23.791, 11.995, 0.55)
pt3dadd(161.15, 23.671, 12.001, 0.568)
pt3dadd(161.15, 23.551, 12.008, 0.586)
pt3dadd(161.15, 23.432, 12.015, 0.604)
pt3dadd(161.15, 23.312, 12.021, 0.622)
pt3dadd(161.15, 23.192, 12.028, 0.64)
pt3dadd(161.15, 23.072, 12.034, 0.658)
pt3dadd(161.15, 22.953, 12.041, 0.676)
pt3dadd(161.15, 22.833, 12.043, 0.678)
pt3dadd(161.15, 22.713, 12.045, 0.678)
pt3dadd(161.15, 22.593, 12.047, 0.678)
pt3dadd(161.15, 22.473, 12.049, 0.678)
pt3dadd(161.15, 22.353, 12.05, 0.678)
pt3dadd(161.152, 22.233, 12.052, 0.678)
pt3dadd(161.152, 22.113, 12.054, 0.678)
pt3dadd(161.152, 21.993, 12.056, 0.678)
pt3dadd(161.152, 21.873, 12.057, 0.678)
pt3dadd(161.152, 21.753, 12.059, 0.678)
pt3dadd(161.152, 21.633, 12.062, 0.678)
pt3dadd(161.152, 21.513, 12.065, 0.678)
pt3dadd(161.152, 21.393, 12.067, 0.678)
pt3dadd(161.152, 21.273, 12.07, 0.678)
pt3dadd(161.152, 21.153, 12.073, 0.678)
pt3dadd(161.153, 21.033, 12.076, 0.678)
pt3dadd(161.153, 20.913, 12.079, 0.678)
pt3dadd(161.153, 20.793, 12.082, 0.678)
pt3dadd(161.153, 20.673, 12.085, 0.678)
pt3dadd(161.153, 20.553, 12.087, 0.678)
pt3dadd(161.153, 20.433, 12.094, 0.694)
pt3dadd(161.153, 20.314, 12.101, 0.71)
pt3dadd(161.153, 20.194, 12.108, 0.728)
pt3dadd(161.153, 20.074, 12.115, 0.744)
pt3dadd(161.153, 19.955, 12.121, 0.762)
pt3dadd(161.154, 19.835, 12.128, 0.78)
pt3dadd(161.154, 19.715, 12.135, 0.796)
pt3dadd(161.154, 19.596, 12.142, 0.814)
pt3dadd(161.154, 19.476, 12.149, 0.83)
pt3dadd(161.154, 19.356, 12.156, 0.848)
pt3dadd(161.154, 19.237, 12.165, 0.822)
pt3dadd(161.154, 19.117, 12.176, 0.79)
pt3dadd(161.155, 18.998, 12.186, 0.758)
pt3dadd(161.155, 18.879, 12.196, 0.728)
pt3dadd(161.155, 18.759, 12.206, 0.696)
pt3dadd(161.155, 18.64, 12.216, 0.664)
pt3dadd(161.155, 18.52, 12.227, 0.632)
pt3dadd(161.156, 18.401, 12.237, 0.6)
pt3dadd(161.156, 18.282, 12.247, 0.568)
pt3dadd(161.156, 18.162, 12.257, 0.536)
pt3dadd(161.156, 18.045, 12.278, 0.506)
pt3dadd(161.158, 17.928, 12.301, 0.474)
pt3dadd(161.158, 17.811, 12.323, 0.444)
pt3dadd(161.159, 17.694, 12.346, 0.412)
pt3dadd(161.159, 17.577, 12.369, 0.382)
pt3dadd(161.16, 17.461, 12.391, 0.35)
pt3dadd(161.16, 17.344, 12.414, 0.32)
pt3dadd(161.161, 17.227, 12.436, 0.288)
pt3dadd(161.161, 17.11, 12.459, 0.258)
pt3dadd(161.162, 16.993, 12.482, 0.226)
pt3dadd(161.164, 16.881, 12.517, 0.226)
pt3dadd(161.164, 16.769, 12.554, 0.226)
pt3dadd(161.165, 16.658, 12.59, 0.226)
pt3dadd(161.166, 16.546, 12.627, 0.226)
pt3dadd(161.166, 16.434, 12.663, 0.226)
pt3dadd(161.167, 16.322, 12.7, 0.226)
pt3dadd(161.168, 16.211, 12.736, 0.226)
pt3dadd(161.17, 16.099, 12.772, 0.226)
pt3dadd(161.17, 15.987, 12.809, 0.226)
pt3dadd(161.171, 15.875, 12.845, 0.226)
pt3dadd(161.172, 15.759, 12.87, 0.226)
pt3dadd(161.174, 15.642, 12.893, 0.226)
pt3dadd(161.176, 15.526, 12.917, 0.226)
pt3dadd(161.178, 15.409, 12.941, 0.226)
pt3dadd(161.179, 15.293, 12.965, 0.226)
pt3dadd(161.18, 15.176, 12.989, 0.226)
pt3dadd(161.183, 15.06, 13.013, 0.226)
pt3dadd(161.184, 14.943, 13.037, 0.226)
pt3dadd(161.186, 14.827, 13.061, 0.226)
pt3dadd(161.188, 14.71, 13.085, 0.226)
pt3dadd(161.191, 14.592, 13.1, 0.226)
pt3dadd(161.194, 14.473, 13.114, 0.226)
pt3dadd(161.197, 14.354, 13.128, 0.226)
pt3dadd(161.2, 14.235, 13.142, 0.226)
pt3dadd(161.203, 14.117, 13.156, 0.226)
pt3dadd(161.207, 13.998, 13.17, 0.226)
pt3dadd(161.209, 13.879, 13.185, 0.226)
pt3dadd(161.213, 13.761, 13.199, 0.226)
pt3dadd(161.215, 13.642, 13.213, 0.226)
pt3dadd(161.219, 13.523, 13.227, 0.226)
pt3dadd(161.225, 13.403, 13.233, 0.226)
pt3dadd(161.231, 13.284, 13.239, 0.226)
pt3dadd(161.237, 13.164, 13.244, 0.226)
pt3dadd(161.243, 13.044, 13.25, 0.226)
pt3dadd(161.249, 12.925, 13.256, 0.226)
pt3dadd(161.255, 12.805, 13.261, 0.226)
pt3dadd(161.261, 12.685, 13.267, 0.226)
pt3dadd(161.267, 12.566, 13.273, 0.226)
pt3dadd(161.273, 12.446, 13.278, 0.226)
pt3dadd(161.279, 12.327, 13.284, 0.226)
pt3dadd(161.288, 12.207, 13.284, 0.226)
pt3dadd(161.299, 12.087, 13.284, 0.226)
pt3dadd(161.309, 11.968, 13.284, 0.226)
pt3dadd(161.318, 11.848, 13.284, 0.226)
pt3dadd(161.329, 11.729, 13.284, 0.226)
pt3dadd(161.339, 11.609, 13.283, 0.226)
pt3dadd(161.348, 11.489, 13.283, 0.226)
pt3dadd(161.358, 11.37, 13.283, 0.226)
pt3dadd(161.369, 11.25, 13.283, 0.226)
pt3dadd(161.378, 11.131, 13.283, 0.226)
pt3dadd(161.393, 11.012, 13.283, 0.226)
pt3dadd(161.407, 10.892, 13.283, 0.226)
pt3dadd(161.422, 10.773, 13.283, 0.226)
pt3dadd(161.437, 10.654, 13.282, 0.226)
pt3dadd(161.452, 10.535, 13.282, 0.226)
pt3dadd(161.466, 10.416, 13.282, 0.226)
pt3dadd(161.48, 10.297, 13.282, 0.226)
pt3dadd(161.495, 10.178, 13.282, 0.226)
pt3dadd(161.509, 10.059, 13.282, 0.226)
pt3dadd(161.524, 9.94, 13.282, 0.226)
pt3dadd(161.569, 9.828, 13.281, 0.258)
pt3dadd(161.614, 9.717, 13.281, 0.29)
pt3dadd(161.658, 9.605, 13.281, 0.32)
pt3dadd(161.702, 9.494, 13.28, 0.352)
pt3dadd(161.747, 9.382, 13.28, 0.384)
pt3dadd(161.791, 9.271, 13.28, 0.414)
pt3dadd(161.836, 9.159, 13.28, 0.446)
pt3dadd(161.88, 9.048, 13.279, 0.478)
pt3dadd(161.924, 8.937, 13.279, 0.51)
pt3dadd(161.969, 8.825, 13.279, 0.54)
pt3dadd(162.006, 8.711, 13.278, 0.532)
pt3dadd(162.044, 8.597, 13.278, 0.526)
pt3dadd(162.082, 8.483, 13.277, 0.52)
pt3dadd(162.12, 8.369, 13.277, 0.514)
pt3dadd(162.157, 8.255, 13.276, 0.506)
pt3dadd(162.196, 8.142, 13.276, 0.5)
pt3dadd(162.233, 8.028, 13.275, 0.494)
pt3dadd(162.271, 7.914, 13.275, 0.488)
pt3dadd(162.308, 7.8, 13.274, 0.48)
pt3dadd(162.346, 7.686, 13.274, 0.474)
pt3dadd(162.374, 7.569, 13.273, 0.454)
pt3dadd(162.403, 7.453, 13.272, 0.434)
pt3dadd(162.432, 7.336, 13.271, 0.414)
pt3dadd(162.461, 7.22, 13.27, 0.396)
pt3dadd(162.49, 7.103, 13.269, 0.376)
pt3dadd(162.518, 6.987, 13.268, 0.356)
pt3dadd(162.547, 6.87, 13.267, 0.336)
pt3dadd(162.576, 6.754, 13.266, 0.316)
pt3dadd(162.604, 6.637, 13.266, 0.296)
pt3dadd(162.632, 6.521, 13.265, 0.278)
pt3dadd(162.653, 6.402, 13.263, 0.296)
pt3dadd(162.673, 6.284, 13.262, 0.316)
pt3dadd(162.694, 6.166, 13.26, 0.334)
pt3dadd(162.714, 6.048, 13.258, 0.352)
pt3dadd(162.736, 5.929, 13.257, 0.37)
pt3dadd(162.756, 5.811, 13.255, 0.388)
pt3dadd(162.776, 5.693, 13.254, 0.406)
pt3dadd(162.797, 5.575, 13.252, 0.424)
pt3dadd(162.817, 5.457, 13.251, 0.442)
pt3dadd(162.838, 5.338, 13.249, 0.46)
pt3dadd(162.85, 5.219, 13.246, 0.478)
pt3dadd(162.862, 5.1, 13.242, 0.498)
pt3dadd(162.874, 4.98, 13.239, 0.516)
pt3dadd(162.886, 4.861, 13.236, 0.534)
pt3dadd(162.898, 4.742, 13.233, 0.554)
pt3dadd(162.91, 4.622, 13.229, 0.572)
pt3dadd(162.922, 4.503, 13.226, 0.592)
pt3dadd(162.934, 4.384, 13.223, 0.61)
pt3dadd(162.947, 4.264, 13.22, 0.628)
pt3dadd(162.96, 4.146, 13.216, 0.648)
pt3dadd(163, 4.033, 13.209, 0.684)
pt3dadd(163.04, 3.92, 13.202, 0.718)
pt3dadd(163.081, 3.807, 13.195, 0.752)
}
}
proc shape3d_178() {
dend_7[27] { pt3dadd(163.121, 3.695, 13.188, 0.788)
pt3dadd(163.16, 3.582, 13.181, 0.822)
pt3dadd(163.201, 3.469, 13.174, 0.856)
pt3dadd(163.241, 3.356, 13.167, 0.892)
pt3dadd(163.282, 3.243, 13.16, 0.926)
pt3dadd(163.322, 3.131, 13.153, 0.96)
pt3dadd(163.361, 3.018, 13.145, 0.99)
pt3dadd(163.391, 2.903, 13.132, 0.974)
pt3dadd(163.422, 2.788, 13.119, 0.96)
pt3dadd(163.452, 2.673, 13.106, 0.944)
pt3dadd(163.483, 2.558, 13.092, 0.93)
pt3dadd(163.513, 2.443, 13.079, 0.914)
pt3dadd(163.544, 2.328, 13.066, 0.9)
pt3dadd(163.574, 2.213, 13.053, 0.884)
pt3dadd(163.606, 2.098, 13.04, 0.868)
pt3dadd(163.636, 1.983, 13.026, 0.854)
pt3dadd(163.661, 1.871, 13.005, 0.846)
pt3dadd(163.663, 1.773, 12.948, 0.874)
pt3dadd(163.667, 1.675, 12.891, 0.902)
pt3dadd(163.669, 1.576, 12.833, 0.928)
pt3dadd(163.672, 1.478, 12.776, 0.956)
pt3dadd(163.674, 1.38, 12.719, 0.984)
pt3dadd(163.676, 1.281, 12.661, 1.012)
pt3dadd(163.679, 1.183, 12.604, 1.038)
pt3dadd(163.681, 1.085, 12.546, 1.066)
pt3dadd(163.685, 0.987, 12.489, 1.094)
pt3dadd(163.604, 0.948, 12.44, 1.03)
pt3dadd(163.5, 0.927, 12.393, 0.942)
pt3dadd(163.397, 0.906, 12.347, 0.852)
pt3dadd(163.292, 0.885, 12.3, 0.762)
pt3dadd(163.188, 0.864, 12.253, 0.674)
pt3dadd(163.085, 0.843, 12.207, 0.584)
pt3dadd(162.98, 0.822, 12.16, 0.494)
pt3dadd(162.876, 0.801, 12.113, 0.404)
pt3dadd(162.773, 0.78, 12.066, 0.316)
pt3dadd(162.668, 0.759, 12.02, 0.226)
}
dend_7[28] {pt3dclear()
pt3dadd(146.11, 99.279, 16.11, 1.582)
pt3dadd(146.108, 99.266, 16.095, 1.584)
pt3dadd(146.101, 99.196, 16.014, 1.596)
pt3dadd(146.093, 99.126, 15.933, 1.608)
pt3dadd(146.086, 99.056, 15.852, 1.62)
pt3dadd(146.078, 98.986, 15.771, 1.632)
pt3dadd(146.071, 98.916, 15.69, 1.642)
pt3dadd(146.064, 98.845, 15.609, 1.654)
pt3dadd(146.057, 98.775, 15.528, 1.666)
pt3dadd(146.05, 98.705, 15.447, 1.678)
pt3dadd(146.041, 98.635, 15.366, 1.69)
pt3dadd(146.034, 98.565, 15.285, 1.702)
pt3dadd(146.027, 98.495, 15.204, 1.714)
pt3dadd(146.02, 98.425, 15.123, 1.724)
pt3dadd(146.012, 98.355, 15.042, 1.736)
pt3dadd(146.005, 98.285, 14.961, 1.748)
pt3dadd(145.962, 98.238, 14.88, 1.726)
pt3dadd(145.903, 98.202, 14.799, 1.688)
pt3dadd(145.844, 98.166, 14.717, 1.648)
pt3dadd(145.784, 98.13, 14.635, 1.61)
pt3dadd(145.726, 98.093, 14.554, 1.572)
pt3dadd(145.666, 98.057, 14.472, 1.532)
pt3dadd(145.607, 98.021, 14.391, 1.494)
pt3dadd(145.547, 97.985, 14.309, 1.454)
pt3dadd(145.488, 97.949, 14.228, 1.416)
pt3dadd(145.398, 97.947, 14.163, 1.344)
pt3dadd(145.306, 97.95, 14.099, 1.27)
pt3dadd(145.212, 97.953, 14.036, 1.194)
pt3dadd(145.12, 97.956, 13.973, 1.118)
pt3dadd(145.026, 97.959, 13.91, 1.042)
pt3dadd(144.934, 97.962, 13.847, 0.968)
pt3dadd(144.84, 97.965, 13.784, 0.892)
pt3dadd(144.748, 97.968, 13.72, 0.816)
pt3dadd(144.654, 97.971, 13.657, 0.74)
pt3dadd(144.562, 97.974, 13.594, 0.664)
pt3dadd(144.467, 97.976, 13.533, 0.702)
pt3dadd(144.372, 97.977, 13.471, 0.752)
pt3dadd(144.277, 97.979, 13.41, 0.802)
pt3dadd(144.182, 97.98, 13.349, 0.854)
pt3dadd(144.088, 97.981, 13.288, 0.904)
pt3dadd(143.993, 97.983, 13.226, 0.956)
pt3dadd(143.898, 97.984, 13.165, 1.006)
pt3dadd(143.803, 97.986, 13.104, 1.058)
pt3dadd(143.708, 97.987, 13.043, 1.108)
pt3dadd(143.614, 97.988, 12.981, 1.16)
pt3dadd(143.513, 97.995, 12.927, 1.186)
pt3dadd(143.411, 98.004, 12.875, 1.21)
pt3dadd(143.31, 98.012, 12.822, 1.236)
pt3dadd(143.208, 98.019, 12.769, 1.26)
pt3dadd(143.107, 98.028, 12.716, 1.284)
pt3dadd(143.005, 98.036, 12.663, 1.308)
pt3dadd(142.903, 98.043, 12.61, 1.332)
pt3dadd(142.802, 98.052, 12.557, 1.356)
pt3dadd(142.7, 98.06, 12.504, 1.38)
pt3dadd(142.6, 98.068, 12.451, 1.404)
pt3dadd(142.489, 98.089, 12.414, 1.286)
pt3dadd(142.38, 98.111, 12.378, 1.168)
pt3dadd(142.271, 98.132, 12.341, 1.05)
pt3dadd(142.162, 98.154, 12.304, 0.932)
pt3dadd(142.051, 98.175, 12.267, 0.814)
pt3dadd(141.942, 98.197, 12.231, 0.698)
pt3dadd(141.833, 98.219, 12.194, 0.58)
pt3dadd(141.724, 98.24, 12.157, 0.462)
pt3dadd(141.613, 98.262, 12.121, 0.344)
pt3dadd(141.504, 98.283, 12.084, 0.226)
}
dend_7[29] {pt3dclear()
pt3dadd(141.504, 98.283, 12.084, 0.226)
pt3dadd(141.491, 98.279, 12.082, 0.232)
pt3dadd(141.379, 98.24, 12.063, 0.286)
pt3dadd(141.268, 98.202, 12.044, 0.34)
pt3dadd(141.156, 98.163, 12.025, 0.394)
pt3dadd(141.044, 98.125, 12.006, 0.448)
pt3dadd(140.933, 98.087, 11.987, 0.502)
pt3dadd(140.824, 98.042, 11.969, 0.538)
pt3dadd(140.717, 97.994, 11.952, 0.562)
pt3dadd(140.609, 97.945, 11.935, 0.586)
pt3dadd(140.501, 97.897, 11.918, 0.61)
pt3dadd(140.393, 97.848, 11.901, 0.634)
pt3dadd(140.285, 97.8, 11.884, 0.656)
pt3dadd(140.177, 97.751, 11.867, 0.68)
pt3dadd(140.069, 97.703, 11.85, 0.704)
pt3dadd(139.961, 97.654, 11.833, 0.728)
pt3dadd(139.854, 97.606, 11.816, 0.752)
pt3dadd(139.754, 97.542, 11.802, 0.726)
pt3dadd(139.658, 97.471, 11.79, 0.676)
pt3dadd(139.562, 97.399, 11.778, 0.628)
pt3dadd(139.468, 97.328, 11.766, 0.578)
pt3dadd(139.372, 97.257, 11.754, 0.528)
pt3dadd(139.277, 97.186, 11.742, 0.48)
pt3dadd(139.181, 97.115, 11.73, 0.43)
pt3dadd(139.085, 97.044, 11.718, 0.382)
pt3dadd(138.99, 96.973, 11.706, 0.332)
pt3dadd(138.894, 96.902, 11.694, 0.284)
pt3dadd(138.811, 96.828, 11.659, 0.316)
pt3dadd(138.734, 96.753, 11.615, 0.384)
pt3dadd(138.656, 96.678, 11.571, 0.45)
pt3dadd(138.58, 96.603, 11.526, 0.518)
pt3dadd(138.503, 96.528, 11.482, 0.586)
pt3dadd(138.425, 96.454, 11.437, 0.654)
pt3dadd(138.348, 96.379, 11.393, 0.722)
pt3dadd(138.271, 96.304, 11.349, 0.788)
pt3dadd(138.193, 96.229, 11.304, 0.856)
pt3dadd(138.116, 96.154, 11.26, 0.924)
pt3dadd(138.037, 96.076, 11.222, 0.924)
pt3dadd(137.958, 95.997, 11.187, 0.904)
pt3dadd(137.879, 95.918, 11.151, 0.882)
pt3dadd(137.798, 95.838, 11.116, 0.862)
pt3dadd(137.719, 95.759, 11.081, 0.84)
pt3dadd(137.64, 95.68, 11.045, 0.82)
pt3dadd(137.561, 95.601, 11.01, 0.798)
pt3dadd(137.482, 95.521, 10.974, 0.776)
pt3dadd(137.401, 95.442, 10.939, 0.756)
pt3dadd(137.322, 95.363, 10.903, 0.734)
pt3dadd(137.24, 95.282, 10.875, 0.732)
pt3dadd(137.159, 95.2, 10.848, 0.734)
pt3dadd(137.077, 95.119, 10.821, 0.738)
pt3dadd(136.994, 95.037, 10.795, 0.74)
pt3dadd(136.913, 94.956, 10.768, 0.742)
pt3dadd(136.831, 94.874, 10.741, 0.746)
pt3dadd(136.748, 94.792, 10.715, 0.748)
pt3dadd(136.667, 94.711, 10.688, 0.75)
pt3dadd(136.585, 94.629, 10.661, 0.754)
pt3dadd(136.504, 94.548, 10.635, 0.756)
pt3dadd(136.421, 94.465, 10.611, 0.804)
pt3dadd(136.337, 94.383, 10.588, 0.862)
pt3dadd(136.254, 94.301, 10.566, 0.922)
pt3dadd(136.171, 94.219, 10.543, 0.98)
pt3dadd(136.088, 94.136, 10.52, 1.038)
pt3dadd(136.006, 94.054, 10.497, 1.098)
pt3dadd(135.923, 93.972, 10.475, 1.156)
pt3dadd(135.84, 93.889, 10.452, 1.214)
pt3dadd(135.757, 93.807, 10.429, 1.274)
pt3dadd(135.673, 93.725, 10.406, 1.332)
pt3dadd(135.596, 93.648, 10.366, 1.328)
pt3dadd(135.52, 93.573, 10.321, 1.308)
pt3dadd(135.443, 93.498, 10.276, 1.29)
pt3dadd(135.366, 93.423, 10.232, 1.27)
pt3dadd(135.289, 93.348, 10.187, 1.25)
pt3dadd(135.212, 93.273, 10.143, 1.232)
pt3dadd(135.136, 93.198, 10.098, 1.212)
pt3dadd(135.059, 93.123, 10.054, 1.194)
pt3dadd(134.982, 93.048, 10.009, 1.174)
pt3dadd(134.905, 92.972, 9.964, 1.154)
pt3dadd(134.824, 92.893, 9.933, 1.126)
pt3dadd(134.741, 92.813, 9.905, 1.094)
pt3dadd(134.658, 92.733, 9.877, 1.062)
pt3dadd(134.575, 92.653, 9.849, 1.03)
pt3dadd(134.492, 92.573, 9.821, 0.998)
pt3dadd(134.41, 92.493, 9.793, 0.968)
pt3dadd(134.327, 92.412, 9.765, 0.936)
pt3dadd(134.244, 92.332, 9.737, 0.904)
pt3dadd(134.161, 92.252, 9.709, 0.872)
pt3dadd(134.078, 92.172, 9.681, 0.84)
pt3dadd(133.993, 92.092, 9.659, 0.808)
pt3dadd(133.908, 92.011, 9.639, 0.778)
pt3dadd(133.823, 91.93, 9.618, 0.746)
pt3dadd(133.738, 91.849, 9.598, 0.714)
pt3dadd(133.652, 91.769, 9.577, 0.684)
pt3dadd(133.567, 91.688, 9.557, 0.652)
pt3dadd(133.482, 91.607, 9.536, 0.62)
pt3dadd(133.396, 91.527, 9.516, 0.59)
pt3dadd(133.31, 91.446, 9.495, 0.558)
pt3dadd(133.225, 91.365, 9.475, 0.526)
pt3dadd(133.139, 91.284, 9.458, 0.496)
pt3dadd(133.052, 91.204, 9.443, 0.468)
}
}
proc shape3d_179() {
dend_7[29] { pt3dadd(132.965, 91.123, 9.427, 0.438)
pt3dadd(132.878, 91.042, 9.412, 0.408)
pt3dadd(132.792, 90.962, 9.396, 0.378)
pt3dadd(132.704, 90.881, 9.381, 0.348)
pt3dadd(132.618, 90.8, 9.365, 0.32)
pt3dadd(132.53, 90.72, 9.35, 0.29)
pt3dadd(132.444, 90.639, 9.334, 0.26)
pt3dadd(132.358, 90.558, 9.319, 0.23)
pt3dadd(132.269, 90.479, 9.308, 0.262)
pt3dadd(132.18, 90.399, 9.298, 0.302)
pt3dadd(132.09, 90.319, 9.288, 0.342)
pt3dadd(132.001, 90.24, 9.278, 0.384)
pt3dadd(131.912, 90.16, 9.268, 0.424)
pt3dadd(131.824, 90.081, 9.258, 0.466)
pt3dadd(131.735, 90.001, 9.248, 0.506)
pt3dadd(131.646, 89.922, 9.238, 0.546)
pt3dadd(131.556, 89.842, 9.228, 0.588)
pt3dadd(131.467, 89.762, 9.218, 0.628)
pt3dadd(131.376, 89.688, 9.2, 0.672)
pt3dadd(131.284, 89.615, 9.181, 0.714)
pt3dadd(131.191, 89.541, 9.161, 0.758)
pt3dadd(131.099, 89.468, 9.142, 0.8)
pt3dadd(131.008, 89.395, 9.123, 0.844)
pt3dadd(130.915, 89.322, 9.104, 0.886)
pt3dadd(130.823, 89.248, 9.084, 0.93)
pt3dadd(130.73, 89.175, 9.065, 0.972)
pt3dadd(130.638, 89.102, 9.046, 1.016)
pt3dadd(130.546, 89.029, 9.026, 1.058)
pt3dadd(130.451, 88.97, 8.99, 1.104)
pt3dadd(130.356, 88.911, 8.954, 1.15)
pt3dadd(130.261, 88.853, 8.917, 1.196)
pt3dadd(130.165, 88.794, 8.88, 1.242)
pt3dadd(130.07, 88.736, 8.844, 1.288)
pt3dadd(129.976, 88.677, 8.807, 1.332)
pt3dadd(129.881, 88.619, 8.771, 1.378)
pt3dadd(129.785, 88.56, 8.734, 1.424)
pt3dadd(129.69, 88.502, 8.697, 1.47)
pt3dadd(129.595, 88.443, 8.661, 1.516)
pt3dadd(129.503, 88.375, 8.632, 1.472)
pt3dadd(129.412, 88.306, 8.603, 1.426)
pt3dadd(129.319, 88.237, 8.574, 1.38)
pt3dadd(129.227, 88.168, 8.546, 1.332)
pt3dadd(129.136, 88.099, 8.517, 1.286)
pt3dadd(129.043, 88.03, 8.488, 1.24)
pt3dadd(128.951, 87.961, 8.46, 1.194)
pt3dadd(128.86, 87.892, 8.431, 1.146)
pt3dadd(128.767, 87.823, 8.402, 1.1)
pt3dadd(128.675, 87.754, 8.373, 1.054)
pt3dadd(128.591, 87.675, 8.348, 1.044)
pt3dadd(128.507, 87.595, 8.322, 1.034)
pt3dadd(128.423, 87.515, 8.296, 1.024)
pt3dadd(128.339, 87.435, 8.27, 1.014)
pt3dadd(128.255, 87.356, 8.245, 1.004)
pt3dadd(128.17, 87.276, 8.219, 0.996)
pt3dadd(128.086, 87.196, 8.193, 0.986)
pt3dadd(128.002, 87.116, 8.167, 0.976)
pt3dadd(127.918, 87.036, 8.142, 0.966)
pt3dadd(127.834, 86.956, 8.116, 0.96)
pt3dadd(127.76, 86.866, 8.091, 1.014)
pt3dadd(127.687, 86.776, 8.066, 1.068)
pt3dadd(127.613, 86.686, 8.042, 1.122)
pt3dadd(127.54, 86.596, 8.017, 1.178)
pt3dadd(127.466, 86.506, 7.992, 1.232)
pt3dadd(127.392, 86.416, 7.967, 1.286)
pt3dadd(127.319, 86.326, 7.942, 1.34)
pt3dadd(127.246, 86.236, 7.918, 1.394)
pt3dadd(127.171, 86.147, 7.893, 1.448)
pt3dadd(127.097, 86.059, 7.867, 1.49)
pt3dadd(127.01, 85.99, 7.828, 1.422)
pt3dadd(126.924, 85.92, 7.789, 1.354)
pt3dadd(126.836, 85.851, 7.751, 1.284)
pt3dadd(126.75, 85.782, 7.712, 1.216)
pt3dadd(126.664, 85.713, 7.674, 1.148)
pt3dadd(126.577, 85.644, 7.635, 1.078)
pt3dadd(126.491, 85.575, 7.596, 1.01)
pt3dadd(126.404, 85.506, 7.558, 0.942)
pt3dadd(126.318, 85.437, 7.519, 0.872)
pt3dadd(126.232, 85.367, 7.482, 0.812)
pt3dadd(126.143, 85.292, 7.458, 0.822)
pt3dadd(126.054, 85.217, 7.433, 0.834)
pt3dadd(125.965, 85.142, 7.409, 0.846)
pt3dadd(125.876, 85.066, 7.384, 0.856)
pt3dadd(125.788, 84.991, 7.36, 0.868)
pt3dadd(125.699, 84.916, 7.335, 0.878)
pt3dadd(125.61, 84.841, 7.311, 0.89)
pt3dadd(125.52, 84.766, 7.286, 0.902)
pt3dadd(125.431, 84.691, 7.262, 0.912)
pt3dadd(125.342, 84.615, 7.238, 0.922)
pt3dadd(125.254, 84.538, 7.221, 0.926)
pt3dadd(125.165, 84.46, 7.204, 0.93)
pt3dadd(125.075, 84.383, 7.187, 0.934)
pt3dadd(124.986, 84.305, 7.17, 0.938)
pt3dadd(124.897, 84.227, 7.153, 0.942)
pt3dadd(124.807, 84.15, 7.135, 0.946)
pt3dadd(124.718, 84.072, 7.118, 0.95)
pt3dadd(124.63, 83.995, 7.101, 0.954)
pt3dadd(124.54, 83.917, 7.084, 0.958)
pt3dadd(124.451, 83.839, 7.068, 0.954)
pt3dadd(124.362, 83.759, 7.059, 0.9)
pt3dadd(124.273, 83.679, 7.051, 0.846)
pt3dadd(124.186, 83.598, 7.042, 0.792)
pt3dadd(124.097, 83.518, 7.033, 0.738)
pt3dadd(124.008, 83.438, 7.025, 0.684)
pt3dadd(123.919, 83.358, 7.016, 0.63)
pt3dadd(123.83, 83.278, 7.007, 0.576)
pt3dadd(123.742, 83.197, 6.999, 0.522)
pt3dadd(123.653, 83.117, 6.99, 0.468)
pt3dadd(123.565, 83.037, 6.982, 0.42)
pt3dadd(123.48, 82.952, 6.979, 0.4)
pt3dadd(123.395, 82.868, 6.975, 0.38)
pt3dadd(123.308, 82.784, 6.972, 0.36)
pt3dadd(123.223, 82.699, 6.968, 0.342)
pt3dadd(123.138, 82.615, 6.965, 0.322)
pt3dadd(123.053, 82.531, 6.962, 0.302)
pt3dadd(122.968, 82.446, 6.958, 0.282)
pt3dadd(122.882, 82.362, 6.955, 0.262)
pt3dadd(122.797, 82.278, 6.951, 0.242)
pt3dadd(122.712, 82.193, 6.948, 0.226)
pt3dadd(122.629, 82.107, 6.948, 0.226)
pt3dadd(122.545, 82.02, 6.947, 0.226)
pt3dadd(122.462, 81.934, 6.947, 0.226)
pt3dadd(122.38, 81.847, 6.946, 0.226)
pt3dadd(122.296, 81.761, 6.946, 0.226)
pt3dadd(122.213, 81.674, 6.945, 0.226)
pt3dadd(122.13, 81.588, 6.945, 0.226)
pt3dadd(122.046, 81.501, 6.944, 0.226)
pt3dadd(121.963, 81.415, 6.944, 0.226)
pt3dadd(121.88, 81.328, 6.943, 0.226)
pt3dadd(121.8, 81.24, 6.942, 0.226)
pt3dadd(121.718, 81.151, 6.941, 0.226)
pt3dadd(121.637, 81.063, 6.94, 0.226)
pt3dadd(121.556, 80.974, 6.939, 0.226)
pt3dadd(121.475, 80.886, 6.938, 0.226)
pt3dadd(121.394, 80.797, 6.937, 0.226)
pt3dadd(121.313, 80.709, 6.936, 0.226)
pt3dadd(121.232, 80.621, 6.935, 0.226)
pt3dadd(121.151, 80.532, 6.934, 0.226)
pt3dadd(121.07, 80.443, 6.933, 0.226)
pt3dadd(120.99, 80.354, 6.931, 0.23)
pt3dadd(120.91, 80.265, 6.93, 0.232)
pt3dadd(120.83, 80.175, 6.928, 0.236)
pt3dadd(120.75, 80.086, 6.927, 0.238)
pt3dadd(120.67, 79.996, 6.926, 0.242)
pt3dadd(120.59, 79.907, 6.924, 0.244)
pt3dadd(120.51, 79.817, 6.923, 0.248)
pt3dadd(120.431, 79.728, 6.921, 0.25)
pt3dadd(120.35, 79.638, 6.92, 0.254)
pt3dadd(120.271, 79.548, 6.918, 0.258)
pt3dadd(120.194, 79.456, 6.916, 0.272)
pt3dadd(120.118, 79.364, 6.914, 0.286)
pt3dadd(120.04, 79.272, 6.911, 0.3)
pt3dadd(119.963, 79.18, 6.909, 0.314)
pt3dadd(119.886, 79.088, 6.906, 0.33)
pt3dadd(119.809, 78.996, 6.904, 0.344)
pt3dadd(119.732, 78.904, 6.901, 0.358)
pt3dadd(119.655, 78.812, 6.899, 0.372)
pt3dadd(119.579, 78.72, 6.897, 0.386)
pt3dadd(119.504, 78.626, 6.894, 0.398)
pt3dadd(119.442, 78.523, 6.888, 0.404)
pt3dadd(119.381, 78.421, 6.883, 0.41)
pt3dadd(119.319, 78.318, 6.877, 0.414)
pt3dadd(119.257, 78.215, 6.872, 0.42)
pt3dadd(119.196, 78.112, 6.866, 0.426)
pt3dadd(119.134, 78.01, 6.861, 0.432)
pt3dadd(119.072, 77.907, 6.856, 0.436)
pt3dadd(119.011, 77.804, 6.85, 0.442)
pt3dadd(118.949, 77.701, 6.845, 0.448)
pt3dadd(118.89, 77.598, 6.838, 0.452)
pt3dadd(118.839, 77.489, 6.829, 0.452)
pt3dadd(118.788, 77.381, 6.82, 0.452)
pt3dadd(118.737, 77.273, 6.811, 0.452)
pt3dadd(118.686, 77.165, 6.801, 0.452)
pt3dadd(118.635, 77.057, 6.792, 0.452)
pt3dadd(118.584, 76.949, 6.783, 0.452)
pt3dadd(118.533, 76.841, 6.774, 0.452)
pt3dadd(118.482, 76.733, 6.764, 0.452)
pt3dadd(118.431, 76.625, 6.755, 0.452)
pt3dadd(118.38, 76.517, 6.744, 0.454)
pt3dadd(118.333, 76.409, 6.725, 0.46)
pt3dadd(118.285, 76.302, 6.706, 0.466)
pt3dadd(118.238, 76.194, 6.687, 0.472)
pt3dadd(118.19, 76.086, 6.668, 0.478)
pt3dadd(118.143, 75.978, 6.649, 0.484)
pt3dadd(118.095, 75.87, 6.63, 0.49)
pt3dadd(118.047, 75.763, 6.611, 0.496)
pt3dadd(118, 75.655, 6.592, 0.502)
pt3dadd(117.952, 75.547, 6.573, 0.51)
pt3dadd(117.926, 75.443, 6.538, 0.524)
pt3dadd(117.932, 75.345, 6.481, 0.548)
pt3dadd(117.938, 75.247, 6.424, 0.574)
pt3dadd(117.944, 75.148, 6.367, 0.6)
pt3dadd(117.95, 75.05, 6.309, 0.626)
pt3dadd(117.956, 74.952, 6.252, 0.652)
pt3dadd(117.962, 74.854, 6.195, 0.678)
pt3dadd(117.968, 74.756, 6.138, 0.704)
pt3dadd(117.974, 74.657, 6.08, 0.73)
pt3dadd(117.98, 74.559, 6.023, 0.756)
pt3dadd(118.046, 74.467, 5.99, 0.702)
pt3dadd(118.112, 74.375, 5.957, 0.65)
pt3dadd(118.178, 74.282, 5.924, 0.596)
}
}
proc shape3d_180() {
dend_7[29] { pt3dadd(118.243, 74.19, 5.891, 0.544)
pt3dadd(118.309, 74.098, 5.858, 0.49)
pt3dadd(118.375, 74.006, 5.825, 0.438)
pt3dadd(118.441, 73.913, 5.792, 0.384)
pt3dadd(118.506, 73.821, 5.76, 0.332)
pt3dadd(118.572, 73.729, 5.727, 0.278)
pt3dadd(118.638, 73.637, 5.694, 0.226)
}
dend_7[30] {pt3dclear()
pt3dadd(141.504, 98.283, 12.084, 0.226)
pt3dadd(141.488, 98.325, 12.082, 0.232)
pt3dadd(141.427, 98.433, 12.079, 0.248)
pt3dadd(141.368, 98.54, 12.076, 0.266)
pt3dadd(141.307, 98.647, 12.074, 0.284)
pt3dadd(141.248, 98.755, 12.071, 0.3)
pt3dadd(141.187, 98.862, 12.068, 0.318)
pt3dadd(141.128, 98.97, 12.065, 0.336)
pt3dadd(141.067, 99.077, 12.062, 0.354)
pt3dadd(141.008, 99.184, 12.059, 0.37)
pt3dadd(140.948, 99.292, 12.056, 0.388)
pt3dadd(140.888, 99.399, 12.054, 0.404)
pt3dadd(140.828, 99.507, 12.05, 0.422)
pt3dadd(140.768, 99.614, 12.048, 0.44)
pt3dadd(140.708, 99.722, 12.045, 0.456)
pt3dadd(140.65, 99.829, 12.042, 0.474)
pt3dadd(140.588, 99.936, 12.039, 0.492)
pt3dadd(140.528, 100.044, 12.036, 0.508)
pt3dadd(140.468, 100.151, 12.033, 0.526)
pt3dadd(140.408, 100.259, 12.03, 0.544)
pt3dadd(140.341, 100.36, 12.021, 0.562)
pt3dadd(140.262, 100.45, 12.002, 0.586)
pt3dadd(140.184, 100.54, 11.983, 0.608)
pt3dadd(140.104, 100.63, 11.964, 0.63)
pt3dadd(140.026, 100.721, 11.944, 0.652)
pt3dadd(139.945, 100.811, 11.925, 0.674)
pt3dadd(139.867, 100.901, 11.906, 0.696)
pt3dadd(139.788, 100.991, 11.887, 0.718)
pt3dadd(139.709, 101.082, 11.867, 0.742)
pt3dadd(139.622, 101.146, 11.836, 0.766)
pt3dadd(139.524, 101.164, 11.782, 0.792)
pt3dadd(139.424, 101.182, 11.729, 0.82)
pt3dadd(139.326, 101.201, 11.675, 0.846)
pt3dadd(139.226, 101.219, 11.622, 0.874)
pt3dadd(139.127, 101.237, 11.568, 0.9)
pt3dadd(139.028, 101.255, 11.515, 0.928)
pt3dadd(138.929, 101.273, 11.461, 0.954)
pt3dadd(138.83, 101.292, 11.407, 0.982)
pt3dadd(138.731, 101.31, 11.354, 1.008)
pt3dadd(138.63, 101.329, 11.305, 1.03)
pt3dadd(138.523, 101.35, 11.263, 1.04)
pt3dadd(138.418, 101.371, 11.221, 1.05)
pt3dadd(138.311, 101.392, 11.179, 1.06)
pt3dadd(138.205, 101.413, 11.137, 1.072)
pt3dadd(138.1, 101.434, 11.095, 1.082)
pt3dadd(137.994, 101.455, 11.053, 1.092)
pt3dadd(137.995, 101.46, 11.052, 1.092)
pt3dadd(137.89, 101.481, 11.01, 1.102)
pt3dadd(137.783, 101.502, 10.968, 1.114)
pt3dadd(137.677, 101.523, 10.926, 1.124)
pt3dadd(137.569, 101.55, 10.889, 1.13)
pt3dadd(137.46, 101.586, 10.86, 1.13)
pt3dadd(137.352, 101.621, 10.83, 1.13)
pt3dadd(137.243, 101.657, 10.8, 1.13)
pt3dadd(137.135, 101.693, 10.771, 1.13)
pt3dadd(137.026, 101.729, 10.741, 1.13)
pt3dadd(137.028, 101.733, 10.741, 1.13)
pt3dadd(136.919, 101.769, 10.711, 1.13)
pt3dadd(136.811, 101.805, 10.682, 1.13)
pt3dadd(136.702, 101.84, 10.652, 1.13)
pt3dadd(136.594, 101.876, 10.622, 1.13)
pt3dadd(136.487, 101.922, 10.597, 1.13)
pt3dadd(136.382, 101.976, 10.575, 1.13)
pt3dadd(136.278, 102.03, 10.553, 1.13)
pt3dadd(136.175, 102.085, 10.531, 1.13)
pt3dadd(136.069, 102.139, 10.509, 1.13)
pt3dadd(135.966, 102.194, 10.487, 1.13)
pt3dadd(135.86, 102.248, 10.465, 1.13)
pt3dadd(135.756, 102.302, 10.443, 1.13)
pt3dadd(135.653, 102.357, 10.421, 1.13)
pt3dadd(135.547, 102.411, 10.399, 1.13)
pt3dadd(135.444, 102.459, 10.369, 1.154)
pt3dadd(135.341, 102.502, 10.332, 1.2)
pt3dadd(135.343, 102.507, 10.331, 1.2)
pt3dadd(135.24, 102.549, 10.293, 1.244)
pt3dadd(135.138, 102.592, 10.256, 1.29)
pt3dadd(135.035, 102.635, 10.218, 1.336)
pt3dadd(134.933, 102.678, 10.181, 1.38)
pt3dadd(134.828, 102.72, 10.143, 1.426)
pt3dadd(134.726, 102.763, 10.105, 1.472)
pt3dadd(134.623, 102.806, 10.068, 1.518)
pt3dadd(134.521, 102.848, 10.03, 1.562)
pt3dadd(134.418, 102.895, 9.995, 1.578)
pt3dadd(134.316, 102.945, 9.962, 1.57)
pt3dadd(134.214, 102.995, 9.928, 1.56)
pt3dadd(134.111, 103.045, 9.895, 1.55)
pt3dadd(134.009, 103.095, 9.862, 1.54)
pt3dadd(133.907, 103.145, 9.829, 1.53)
pt3dadd(133.805, 103.194, 9.796, 1.522)
pt3dadd(133.703, 103.244, 9.763, 1.512)
pt3dadd(133.601, 103.294, 9.73, 1.502)
pt3dadd(133.498, 103.344, 9.697, 1.492)
pt3dadd(133.397, 103.397, 9.667, 1.458)
pt3dadd(133.295, 103.453, 9.639, 1.402)
pt3dadd(133.194, 103.509, 9.611, 1.348)
pt3dadd(133.091, 103.564, 9.583, 1.292)
pt3dadd(132.99, 103.62, 9.555, 1.236)
pt3dadd(132.888, 103.676, 9.527, 1.182)
pt3dadd(132.787, 103.731, 9.499, 1.126)
pt3dadd(132.685, 103.787, 9.471, 1.07)
pt3dadd(132.584, 103.842, 9.443, 1.016)
pt3dadd(132.482, 103.898, 9.414, 0.96)
pt3dadd(132.373, 103.94, 9.389, 0.976)
pt3dadd(132.263, 103.971, 9.366, 1.044)
pt3dadd(132.15, 104.003, 9.342, 1.112)
pt3dadd(132.038, 104.034, 9.319, 1.18)
pt3dadd(131.927, 104.066, 9.295, 1.248)
pt3dadd(131.815, 104.097, 9.272, 1.316)
pt3dadd(131.702, 104.129, 9.248, 1.384)
pt3dadd(131.592, 104.16, 9.225, 1.452)
pt3dadd(131.479, 104.192, 9.201, 1.52)
pt3dadd(131.368, 104.223, 9.178, 1.588)
pt3dadd(131.27, 104.283, 9.183, 1.592)
pt3dadd(131.185, 104.363, 9.21, 1.544)
pt3dadd(131.099, 104.442, 9.237, 1.498)
pt3dadd(131.014, 104.522, 9.263, 1.452)
pt3dadd(130.927, 104.602, 9.29, 1.406)
pt3dadd(130.842, 104.682, 9.317, 1.36)
pt3dadd(130.756, 104.762, 9.343, 1.314)
pt3dadd(130.669, 104.842, 9.37, 1.266)
pt3dadd(130.584, 104.922, 9.396, 1.22)
pt3dadd(130.498, 105.002, 9.423, 1.174)
pt3dadd(130.412, 105.078, 9.447, 1.13)
pt3dadd(130.302, 105.083, 9.409, 1.13)
pt3dadd(130.193, 105.087, 9.371, 1.13)
pt3dadd(130.082, 105.092, 9.334, 1.13)
pt3dadd(129.973, 105.096, 9.296, 1.13)
pt3dadd(129.863, 105.101, 9.259, 1.13)
pt3dadd(129.75, 105.105, 9.233, 1.13)
pt3dadd(129.634, 105.11, 9.215, 1.13)
pt3dadd(129.517, 105.114, 9.196, 1.13)
pt3dadd(129.401, 105.119, 9.177, 1.13)
pt3dadd(129.286, 105.123, 9.158, 1.13)
pt3dadd(129.169, 105.128, 9.139, 1.13)
pt3dadd(129.059, 105.133, 9.104, 1.13)
pt3dadd(128.952, 105.137, 9.061, 1.13)
pt3dadd(128.844, 105.142, 9.019, 1.13)
pt3dadd(128.737, 105.146, 8.976, 1.13)
pt3dadd(128.63, 105.151, 8.934, 1.13)
pt3dadd(128.633, 105.155, 8.933, 1.13)
pt3dadd(128.533, 105.16, 8.881, 1.13)
pt3dadd(128.447, 105.164, 8.813, 1.13)
pt3dadd(128.359, 105.169, 8.745, 1.13)
pt3dadd(128.273, 105.173, 8.677, 1.13)
pt3dadd(128.185, 105.178, 8.61, 1.13)
pt3dadd(128.099, 105.183, 8.542, 1.13)
pt3dadd(128.011, 105.187, 8.474, 1.13)
pt3dadd(127.925, 105.192, 8.407, 1.13)
pt3dadd(127.837, 105.196, 8.339, 1.13)
pt3dadd(127.751, 105.201, 8.271, 1.13)
pt3dadd(127.652, 105.205, 8.218, 1.13)
pt3dadd(127.543, 105.21, 8.181, 1.13)
pt3dadd(127.433, 105.214, 8.143, 1.13)
pt3dadd(127.322, 105.219, 8.106, 1.13)
pt3dadd(127.213, 105.223, 8.068, 1.13)
pt3dadd(127.104, 105.228, 8.03, 1.13)
pt3dadd(126.998, 105.232, 7.985, 1.13)
pt3dadd(126.893, 105.237, 7.94, 1.13)
pt3dadd(126.787, 105.242, 7.894, 1.13)
pt3dadd(126.788, 105.246, 7.894, 1.13)
pt3dadd(126.684, 105.251, 7.849, 1.13)
pt3dadd(126.577, 105.255, 7.804, 1.13)
pt3dadd(126.462, 105.26, 7.789, 1.13)
pt3dadd(126.344, 105.264, 7.778, 1.13)
pt3dadd(126.227, 105.269, 7.767, 1.13)
pt3dadd(126.109, 105.273, 7.756, 1.13)
pt3dadd(125.992, 105.278, 7.745, 1.13)
pt3dadd(125.874, 105.282, 7.734, 1.13)
pt3dadd(125.758, 105.287, 7.723, 1.13)
pt3dadd(125.639, 105.291, 7.71, 1.13)
pt3dadd(125.521, 105.296, 7.697, 1.13)
pt3dadd(125.41, 105.3, 7.667, 1.13)
pt3dadd(125.297, 105.305, 7.634, 1.13)
pt3dadd(125.194, 105.31, 7.589, 1.13)
pt3dadd(125.095, 105.314, 7.532, 1.13)
pt3dadd(125.018, 105.319, 7.463, 1.13)
pt3dadd(124.98, 105.323, 7.368, 1.13)
pt3dadd(124.943, 105.328, 7.273, 1.13)
pt3dadd(124.831, 105.332, 7.243, 1.13)
pt3dadd(124.718, 105.339, 7.215, 1.13)
pt3dadd(124.606, 105.349, 7.185, 1.13)
pt3dadd(124.493, 105.36, 7.156, 1.13)
pt3dadd(124.394, 105.415, 7.12, 1.13)
pt3dadd(124.295, 105.466, 7.083, 1.13)
pt3dadd(124.189, 105.497, 7.044, 1.13)
pt3dadd(124.098, 105.53, 6.996, 1.13)
pt3dadd(124.073, 105.574, 6.903, 1.13)
pt3dadd(124.042, 105.613, 6.814, 1.13)
pt3dadd(123.953, 105.618, 6.747, 1.13)
pt3dadd(123.864, 105.622, 6.681, 1.13)
pt3dadd(123.776, 105.627, 6.615, 1.13)
pt3dadd(123.674, 105.631, 6.567, 1.13)
pt3dadd(123.563, 105.636, 6.534, 1.13)
}
}
proc shape3d_181() {
dend_7[30] { pt3dadd(123.452, 105.641, 6.498, 1.13)
pt3dadd(123.346, 105.65, 6.456, 1.13)
pt3dadd(123.238, 105.66, 6.415, 1.13)
pt3dadd(123.151, 105.681, 6.36, 1.13)
pt3dadd(123.152, 105.685, 6.36, 1.13)
pt3dadd(123.12, 105.738, 6.272, 1.13)
pt3dadd(123.086, 105.781, 6.183, 1.13)
pt3dadd(123.048, 105.792, 6.089, 1.13)
pt3dadd(123.006, 105.797, 5.995, 1.13)
pt3dadd(122.965, 105.801, 5.901, 1.13)
pt3dadd(122.923, 105.806, 5.808, 1.13)
pt3dadd(122.881, 105.81, 5.714, 1.13)
pt3dadd(122.768, 105.792, 5.694, 0.352)
pt3dadd(122.654, 105.773, 5.675, 0.478)
pt3dadd(122.54, 105.755, 5.655, 0.602)
pt3dadd(122.426, 105.736, 5.635, 0.728)
pt3dadd(122.314, 105.717, 5.616, 0.854)
pt3dadd(122.197, 105.717, 5.598, 0.908)
pt3dadd(122.081, 105.722, 5.581, 0.946)
pt3dadd(121.964, 105.727, 5.564, 0.984)
pt3dadd(121.848, 105.731, 5.548, 1.02)
pt3dadd(121.73, 105.736, 5.531, 1.058)
pt3dadd(121.614, 105.74, 5.514, 1.094)
pt3dadd(121.496, 105.745, 5.504, 1.114)
pt3dadd(121.379, 105.749, 5.497, 1.124)
pt3dadd(121.261, 105.754, 5.49, 1.136)
pt3dadd(121.142, 105.758, 5.482, 1.148)
pt3dadd(121.025, 105.763, 5.475, 1.158)
pt3dadd(120.907, 105.767, 5.468, 1.17)
pt3dadd(120.792, 105.772, 5.454, 1.18)
pt3dadd(120.691, 105.777, 5.401, 1.174)
pt3dadd(120.59, 105.781, 5.349, 1.17)
pt3dadd(120.49, 105.786, 5.296, 1.164)
pt3dadd(120.39, 105.79, 5.243, 1.16)
pt3dadd(120.292, 105.795, 5.188, 1.154)
pt3dadd(120.226, 105.799, 5.105, 1.142)
pt3dadd(120.16, 105.804, 5.022, 1.132)
pt3dadd(120.092, 105.808, 4.939, 1.13)
pt3dadd(120.026, 105.813, 4.857, 1.13)
pt3dadd(120.029, 105.817, 4.856, 1.13)
pt3dadd(119.924, 105.822, 4.826, 1.122)
pt3dadd(119.807, 105.826, 4.813, 1.114)
pt3dadd(119.69, 105.831, 4.799, 1.104)
pt3dadd(119.578, 105.835, 4.765, 1.094)
pt3dadd(119.467, 105.84, 4.732, 1.082)
pt3dadd(119.369, 105.845, 4.678, 1.068)
pt3dadd(119.272, 105.849, 4.623, 1.054)
pt3dadd(119.161, 105.854, 4.588, 1.054)
pt3dadd(119.163, 105.858, 4.587, 1.054)
pt3dadd(119.052, 105.863, 4.552, 1.054)
pt3dadd(118.941, 105.867, 4.517, 1.054)
pt3dadd(118.831, 105.872, 4.482, 1.054)
pt3dadd(118.72, 105.876, 4.447, 1.054)
pt3dadd(118.608, 105.868, 4.417, 1.046)
pt3dadd(118.495, 105.857, 4.389, 1.036)
pt3dadd(118.383, 105.846, 4.36, 1.026)
pt3dadd(118.271, 105.835, 4.332, 1.018)
pt3dadd(118.158, 105.824, 4.303, 1.008)
pt3dadd(118.048, 105.818, 4.269, 0.99)
pt3dadd(117.938, 105.815, 4.232, 0.972)
pt3dadd(117.829, 105.812, 4.194, 0.952)
pt3dadd(117.719, 105.808, 4.157, 0.932)
pt3dadd(117.61, 105.805, 4.12, 0.912)
pt3dadd(117.508, 105.806, 4.071, 0.89)
pt3dadd(117.414, 105.811, 4.01, 0.866)
pt3dadd(117.32, 105.815, 3.95, 0.84)
pt3dadd(117.226, 105.82, 3.889, 0.814)
pt3dadd(117.131, 105.824, 3.829, 0.79)
pt3dadd(117.068, 105.829, 3.75, 0.76)
pt3dadd(117.03, 105.833, 3.655, 0.73)
pt3dadd(116.988, 105.838, 3.562, 0.702)
pt3dadd(116.929, 105.843, 3.475, 0.69)
pt3dadd(116.87, 105.847, 3.389, 0.678)
pt3dadd(116.871, 105.852, 3.388, 0.678)
pt3dadd(116.774, 105.856, 3.331, 0.69)
pt3dadd(116.677, 105.861, 3.274, 0.702)
pt3dadd(116.568, 105.865, 3.237, 0.738)
pt3dadd(116.457, 105.87, 3.203, 0.782)
pt3dadd(116.458, 105.874, 3.203, 0.782)
pt3dadd(116.344, 105.879, 3.185, 0.846)
pt3dadd(116.225, 105.883, 3.185, 0.934)
pt3dadd(116.107, 105.888, 3.184, 1.008)
pt3dadd(115.989, 105.892, 3.184, 1.066)
pt3dadd(115.871, 105.897, 3.184, 1.124)
pt3dadd(115.752, 105.902, 3.183, 1.168)
pt3dadd(115.634, 105.906, 3.183, 1.192)
pt3dadd(115.516, 105.911, 3.182, 1.218)
pt3dadd(115.401, 105.915, 3.166, 1.226)
pt3dadd(115.29, 105.92, 3.132, 1.214)
pt3dadd(115.184, 105.924, 3.092, 1.2)
pt3dadd(115.118, 105.929, 3.009, 1.166)
pt3dadd(115.052, 105.933, 2.927, 1.13)
pt3dadd(115.004, 105.938, 2.835, 1.11)
pt3dadd(114.956, 105.942, 2.744, 1.09)
pt3dadd(114.908, 105.947, 2.652, 1.07)
pt3dadd(114.866, 105.951, 2.559, 1.05)
pt3dadd(114.847, 105.956, 2.46, 1.032)
pt3dadd(114.829, 105.96, 2.361, 1.012)
pt3dadd(114.831, 105.965, 2.361, 1.012)
pt3dadd(114.768, 105.97, 2.284, 0.984)
pt3dadd(114.711, 105.974, 2.197, 0.99)
pt3dadd(114.659, 105.979, 2.107, 1)
pt3dadd(114.629, 105.983, 2.011, 1.016)
pt3dadd(114.611, 105.988, 1.913, 1.036)
pt3dadd(114.612, 105.992, 1.912, 1.036)
pt3dadd(114.588, 105.997, 1.818, 1.058)
pt3dadd(114.472, 106.001, 1.8, 1.106)
pt3dadd(114.355, 106.006, 1.783, 1.154)
pt3dadd(114.241, 106.01, 1.758, 1.194)
pt3dadd(114.129, 106.015, 1.724, 1.226)
pt3dadd(114.021, 106.02, 1.687, 1.254)
pt3dadd(113.938, 106.024, 1.616, 1.236)
pt3dadd(113.839, 106.03, 1.564, 1.206)
pt3dadd(113.732, 106.037, 1.521, 1.172)
pt3dadd(113.625, 106.045, 1.477, 1.14)
pt3dadd(113.519, 106.052, 1.434, 1.104)
pt3dadd(113.412, 106.059, 1.39, 1.072)
pt3dadd(113.313, 106.091, 1.347, 1.012)
pt3dadd(113.219, 106.147, 1.304, 0.928)
pt3dadd(113.148, 106.171, 1.231, 0.888)
pt3dadd(113.086, 106.182, 1.146, 0.864)
pt3dadd(112.991, 106.189, 1.102, 0.854)
pt3dadd(112.875, 106.194, 1.084, 0.854)
pt3dadd(112.876, 106.198, 1.084, 0.854)
pt3dadd(112.76, 106.203, 1.066, 0.854)
pt3dadd(112.642, 106.208, 1.066, 0.846)
pt3dadd(112.524, 106.212, 1.066, 0.838)
pt3dadd(112.405, 106.217, 1.065, 0.828)
pt3dadd(112.287, 106.221, 1.065, 0.778)
pt3dadd(112.169, 106.226, 1.064, 0.728)
pt3dadd(112.052, 106.23, 1.047, 0.712)
pt3dadd(111.936, 106.235, 1.03, 0.694)
pt3dadd(111.819, 106.239, 1.014, 0.678)
pt3dadd(111.702, 106.244, 0.997, 0.662)
pt3dadd(111.586, 106.248, 0.98, 0.646)
pt3dadd(111.469, 106.253, 0.963, 0.628)
pt3dadd(111.352, 106.257, 0.95, 0.594)
pt3dadd(111.235, 106.262, 0.937, 0.556)
pt3dadd(111.119, 106.267, 0.919, 0.522)
pt3dadd(111.007, 106.271, 0.886, 0.5)
pt3dadd(110.896, 106.276, 0.852, 0.48)
pt3dadd(110.824, 106.28, 0.775, 0.478)
pt3dadd(110.758, 106.285, 0.692, 0.478)
pt3dadd(110.697, 106.289, 0.607, 0.502)
pt3dadd(110.638, 106.294, 0.52, 0.536)
pt3dadd(110.55, 106.298, 0.463, 0.572)
pt3dadd(110.438, 106.303, 0.432, 0.61)
pt3dadd(110.326, 106.307, 0.401, 0.648)
pt3dadd(110.213, 106.312, 0.37, 0.686)
pt3dadd(110.097, 106.317, 0.356, 0.74)
pt3dadd(109.979, 106.321, 0.355, 0.808)
pt3dadd(109.861, 106.326, 0.355, 0.874)
pt3dadd(109.743, 106.33, 0.355, 1.004)
pt3dadd(109.626, 106.335, 0.341, 1.09)
pt3dadd(109.511, 106.339, 0.318, 1.106)
pt3dadd(109.396, 106.344, 0.295, 1.124)
pt3dadd(109.281, 106.348, 0.271, 1.142)
pt3dadd(109.166, 106.353, 0.248, 1.158)
pt3dadd(109.051, 106.357, 0.225, 1.176)
pt3dadd(108.948, 106.362, 0.178, 1.18)
pt3dadd(108.85, 106.366, 0.122, 1.18)
pt3dadd(108.751, 106.371, 0.067, 1.18)
pt3dadd(108.653, 106.375, 0.012, 1.18)
pt3dadd(108.555, 106.38, -0.044, 1.18)
pt3dadd(108.447, 106.362, -0.075, 1.176)
pt3dadd(108.336, 106.335, -0.096, 1.172)
pt3dadd(108.225, 106.307, -0.117, 1.166)
pt3dadd(108.114, 106.279, -0.137, 1.162)
pt3dadd(108.002, 106.251, -0.158, 1.156)
pt3dadd(107.897, 106.207, -0.178, 1.148)
pt3dadd(107.795, 106.157, -0.197, 1.136)
pt3dadd(107.693, 106.106, -0.217, 1.126)
pt3dadd(107.59, 106.056, -0.237, 1.114)
pt3dadd(107.493, 106.001, -0.257, 1.102)
pt3dadd(107.494, 106.005, -0.257, 1.102)
pt3dadd(107.43, 105.913, -0.28, 1.086)
pt3dadd(107.366, 105.821, -0.303, 1.068)
pt3dadd(107.301, 105.729, -0.326, 1.052)
pt3dadd(107.237, 105.638, -0.349, 1.034)
pt3dadd(107.238, 105.642, -0.35, 1.034)
pt3dadd(107.154, 105.582, -0.388, 1.018)
pt3dadd(107.062, 105.536, -0.433, 1)
pt3dadd(106.969, 105.49, -0.478, 0.982)
pt3dadd(106.876, 105.444, -0.524, 0.964)
pt3dadd(106.798, 105.382, -0.571, 0.948)
pt3dadd(106.738, 105.302, -0.62, 0.936)
pt3dadd(106.678, 105.222, -0.669, 0.924)
pt3dadd(106.618, 105.142, -0.718, 0.912)
pt3dadd(106.552, 105.068, -0.768, 0.906)
pt3dadd(106.475, 105.003, -0.817, 0.912)
pt3dadd(106.398, 104.939, -0.867, 0.918)
pt3dadd(106.321, 104.875, -0.916, 0.924)
pt3dadd(106.261, 104.806, -0.972, 0.93)
pt3dadd(106.238, 104.726, -1.04, 0.936)
pt3dadd(106.216, 104.646, -1.108, 0.942)
pt3dadd(106.193, 104.566, -1.177, 0.948)
pt3dadd(106.171, 104.486, -1.245, 0.954)
pt3dadd(106.17, 104.441, -1.336, 0.962)
pt3dadd(106.172, 104.401, -1.429, 0.972)
pt3dadd(106.173, 104.361, -1.522, 0.982)
}
}
proc shape3d_182() {
dend_7[30] { pt3dadd(106.175, 104.321, -1.616, 0.99)
pt3dadd(106.177, 104.281, -1.709, 1)
pt3dadd(106.155, 104.231, -1.793, 1.014)
pt3dadd(106.108, 104.172, -1.868, 1.032)
pt3dadd(106.062, 104.113, -1.943, 1.05)
pt3dadd(106.016, 104.053, -2.018, 1.068)
pt3dadd(105.964, 103.986, -2.082, 1.09)
pt3dadd(105.901, 103.904, -2.126, 1.12)
pt3dadd(105.839, 103.821, -2.169, 1.15)
pt3dadd(105.776, 103.739, -2.213, 1.18)
pt3dadd(105.709, 103.664, -2.259, 1.212)
pt3dadd(105.624, 103.62, -2.315, 1.248)
pt3dadd(105.539, 103.576, -2.372, 1.286)
pt3dadd(105.454, 103.533, -2.429, 1.322)
pt3dadd(105.369, 103.49, -2.486, 1.358)
pt3dadd(105.296, 103.456, -2.557, 1.388)
pt3dadd(105.222, 103.423, -2.629, 1.416)
pt3dadd(105.148, 103.39, -2.7, 1.446)
pt3dadd(105.074, 103.357, -2.771, 1.476)
pt3dadd(104.98, 103.319, -2.819, 1.504)
pt3dadd(104.881, 103.28, -2.861, 1.53)
pt3dadd(104.77, 103.249, -2.873, 1.532)
pt3dadd(104.658, 103.217, -2.883, 1.532)
pt3dadd(104.579, 103.197, -2.945, 1.522)
pt3dadd(104.512, 103.181, -3.026, 1.51)
pt3dadd(104.47, 103.167, -3.117, 1.506)
pt3dadd(104.434, 103.152, -3.211, 1.506)
pt3dadd(104.388, 103.106, -3.289, 1.498)
pt3dadd(104.337, 103.042, -3.359, 1.484)
pt3dadd(104.239, 102.991, -3.378, 1.408)
pt3dadd(104.123, 102.971, -3.378, 1.32)
pt3dadd(104.005, 102.969, -3.379, 1.226)
pt3dadd(103.888, 102.965, -3.379, 1.104)
pt3dadd(103.778, 102.93, -3.379, 0.948)
pt3dadd(103.711, 102.838, -3.385, 0.896)
pt3dadd(103.65, 102.741, -3.39, 0.862)
pt3dadd(103.622, 102.653, -3.442, 0.854)
pt3dadd(103.603, 102.567, -3.506, 0.854)
pt3dadd(103.6, 102.508, -3.589, 0.878)
pt3dadd(103.581, 102.416, -3.646, 0.878)
pt3dadd(103.552, 102.329, -3.702, 0.874)
pt3dadd(103.478, 102.257, -3.747, 0.846)
pt3dadd(103.392, 102.191, -3.774, 0.814)
pt3dadd(103.293, 102.132, -3.78, 0.778)
pt3dadd(103.204, 102.061, -3.784, 0.746)
pt3dadd(103.138, 101.967, -3.784, 0.722)
pt3dadd(103.064, 101.882, -3.787, 0.7)
pt3dadd(103.066, 101.886, -3.787, 0.7)
pt3dadd(103.068, 101.891, -3.788, 0.7)
pt3dadd(102.96, 101.85, -3.801, 0.686)
pt3dadd(102.851, 101.809, -3.814, 0.672)
pt3dadd(102.743, 101.768, -3.827, 0.658)
pt3dadd(102.66, 101.739, -3.882, 0.644)
pt3dadd(102.591, 101.715, -3.96, 0.63)
pt3dadd(102.513, 101.661, -4.012, 0.604)
pt3dadd(102.453, 101.604, -4.08, 0.61)
pt3dadd(102.392, 101.546, -4.149, 0.616)
pt3dadd(102.332, 101.489, -4.217, 0.622)
pt3dadd(102.272, 101.431, -4.286, 0.63)
pt3dadd(102.215, 101.37, -4.355, 0.642)
pt3dadd(102.158, 101.309, -4.423, 0.654)
pt3dadd(102.101, 101.248, -4.491, 0.666)
pt3dadd(102.043, 101.189, -4.56, 0.678)
pt3dadd(101.946, 101.166, -4.612, 0.696)
pt3dadd(101.849, 101.144, -4.665, 0.712)
pt3dadd(101.752, 101.121, -4.718, 0.73)
pt3dadd(101.655, 101.099, -4.77, 0.746)
pt3dadd(101.554, 101.077, -4.817, 0.762)
pt3dadd(101.449, 101.056, -4.858, 0.778)
pt3dadd(101.344, 101.035, -4.899, 0.796)
pt3dadd(101.239, 101.013, -4.94, 0.812)
pt3dadd(101.135, 100.992, -4.981, 0.828)
pt3dadd(101.018, 100.995, -4.992, 0.854)
pt3dadd(100.9, 100.999, -5.001, 0.88)
pt3dadd(100.784, 101.004, -5.015, 0.908)
pt3dadd(100.683, 101.008, -5.066, 0.944)
pt3dadd(100.581, 101.013, -5.117, 0.978)
pt3dadd(100.52, 101.017, -5.202, 1.012)
pt3dadd(100.461, 101.022, -5.289, 1.046)
pt3dadd(100.428, 101.026, -5.384, 1.07)
pt3dadd(100.403, 101.031, -5.482, 1.09)
pt3dadd(100.357, 101.035, -5.565, 1.106)
pt3dadd(100.248, 101.04, -5.603, 1.114)
pt3dadd(100.139, 101.045, -5.641, 1.12)
pt3dadd(100.029, 101.049, -5.679, 1.126)
pt3dadd(99.921, 101.054, -5.72, 1.13)
pt3dadd(99.923, 101.058, -5.72, 1.13)
pt3dadd(99.817, 101.063, -5.765, 1.13)
pt3dadd(99.718, 101.067, -5.817, 1.13)
pt3dadd(99.65, 101.072, -5.898, 1.13)
pt3dadd(99.582, 101.076, -5.98, 1.13)
pt3dadd(99.525, 101.081, -6.066, 1.13)
pt3dadd(99.495, 101.085, -6.163, 1.13)
pt3dadd(99.464, 101.09, -6.26, 1.13)
pt3dadd(99.414, 101.094, -6.35, 1.132)
pt3dadd(99.362, 101.099, -6.44, 1.142)
pt3dadd(99.31, 101.103, -6.53, 1.154)
pt3dadd(99.312, 101.108, -6.53, 1.154)
pt3dadd(99.279, 101.113, -6.626, 1.174)
pt3dadd(99.248, 101.117, -6.723, 1.194)
pt3dadd(99.204, 101.122, -6.815, 1.226)
pt3dadd(99.144, 101.126, -6.901, 1.272)
pt3dadd(99.071, 101.131, -6.973, 1.32)
pt3dadd(98.959, 101.135, -7.007, 1.374)
pt3dadd(98.848, 101.14, -7.04, 1.426)
pt3dadd(98.737, 101.144, -7.076, 1.52)
pt3dadd(98.627, 101.149, -7.111, 1.606)
pt3dadd(98.515, 101.153, -7.145, 1.67)
pt3dadd(98.404, 101.158, -7.179, 1.734)
pt3dadd(98.318, 101.163, -7.247, 1.78)
pt3dadd(98.232, 101.167, -7.316, 1.828)
pt3dadd(98.233, 101.172, -7.316, 1.828)
pt3dadd(98.19, 101.176, -7.408, 1.852)
pt3dadd(98.153, 101.181, -7.503, 1.874)
pt3dadd(98.128, 101.185, -7.6, 1.874)
pt3dadd(98.115, 101.19, -7.7, 1.854)
pt3dadd(98.102, 101.194, -7.8, 1.836)
pt3dadd(98.102, 101.199, -7.9, 1.79)
pt3dadd(98.103, 101.203, -8.001, 1.74)
pt3dadd(98.059, 101.208, -8.092, 1.684)
pt3dadd(98.061, 101.212, -8.092, 1.684)
pt3dadd(98.009, 101.217, -8.182, 1.628)
pt3dadd(97.953, 101.222, -8.27, 1.586)
pt3dadd(97.894, 101.226, -8.357, 1.552)
pt3dadd(97.818, 101.233, -8.429, 1.526)
pt3dadd(97.718, 101.244, -8.482, 1.514)
pt3dadd(97.626, 101.273, -8.537, 1.502)
pt3dadd(97.551, 101.339, -8.595, 1.488)
pt3dadd(97.495, 101.408, -8.663, 1.444)
pt3dadd(97.435, 101.472, -8.729, 1.394)
pt3dadd(97.347, 101.524, -8.783, 1.364)
pt3dadd(97.259, 101.577, -8.837, 1.334)
pt3dadd(97.171, 101.629, -8.89, 1.304)
pt3dadd(97.088, 101.679, -8.949, 1.274)
pt3dadd(97.021, 101.722, -9.025, 1.244)
pt3dadd(96.954, 101.764, -9.101, 1.216)
pt3dadd(96.887, 101.806, -9.177, 1.186)
pt3dadd(96.82, 101.848, -9.253, 1.156)
pt3dadd(96.733, 101.91, -9.3, 1.132)
pt3dadd(96.645, 101.972, -9.346, 1.108)
pt3dadd(96.556, 102.034, -9.392, 1.084)
pt3dadd(96.468, 102.097, -9.438, 1.06)
pt3dadd(96.404, 102.185, -9.483, 1.032)
pt3dadd(96.345, 102.278, -9.526, 1.004)
pt3dadd(96.243, 102.344, -9.526, 0.992)
pt3dadd(96.142, 102.409, -9.526, 0.982)
pt3dadd(96.064, 102.492, -9.558, 0.992)
pt3dadd(95.995, 102.581, -9.595, 1.006)
pt3dadd(95.997, 102.701, -9.623, 1.026)
pt3dadd(95.998, 102.821, -9.651, 1.048)
pt3dadd(95.993, 102.913, -9.712, 1.06)
pt3dadd(95.983, 102.99, -9.792, 1.066)
pt3dadd(95.972, 103.066, -9.872, 1.074)
pt3dadd(95.953, 103.128, -9.955, 1.08)
pt3dadd(95.91, 103.151, -10.047, 1.08)
pt3dadd(95.858, 103.18, -10.132, 1.078)
pt3dadd(95.776, 103.23, -10.193, 1.068)
pt3dadd(95.694, 103.279, -10.254, 1.056)
pt3dadd(95.695, 103.284, -10.254, 1.056)
pt3dadd(95.595, 103.301, -10.304, 1.074)
pt3dadd(95.491, 103.312, -10.351, 1.098)
pt3dadd(95.395, 103.318, -10.41, 1.178)
pt3dadd(95.33, 103.323, -10.493, 1.2)
pt3dadd(95.266, 103.328, -10.577, 1.22)
pt3dadd(95.202, 103.332, -10.661, 1.24)
pt3dadd(95.138, 103.337, -10.745, 1.26)
pt3dadd(95.073, 103.341, -10.829, 1.28)
pt3dadd(95.052, 103.346, -10.927, 1.292)
pt3dadd(95.034, 103.35, -11.025, 1.304)
pt3dadd(95.016, 103.355, -11.125, 1.316)
pt3dadd(94.998, 103.359, -11.224, 1.33)
pt3dadd(94.98, 103.364, -11.323, 1.342)
pt3dadd(94.962, 103.368, -11.422, 1.354)
pt3dadd(94.9, 103.373, -11.505, 1.364)
pt3dadd(94.83, 103.377, -11.586, 1.374)
pt3dadd(94.76, 103.382, -11.666, 1.384)
pt3dadd(94.689, 103.387, -11.747, 1.394)
pt3dadd(94.619, 103.391, -11.827, 1.404)
pt3dadd(94.621, 103.396, -11.827, 1.404)
pt3dadd(94.572, 103.4, -11.918, 1.424)
pt3dadd(94.527, 103.405, -12.01, 1.446)
pt3dadd(94.505, 103.409, -12.107, 1.462)
pt3dadd(94.503, 103.414, -12.208, 1.47)
pt3dadd(94.5, 103.418, -12.308, 1.478)
pt3dadd(94.46, 103.423, -12.399, 1.496)
pt3dadd(94.401, 103.427, -12.486, 1.52)
pt3dadd(94.322, 103.432, -12.556, 1.538)
pt3dadd(94.221, 103.437, -12.607, 1.548)
pt3dadd(94.129, 103.441, -12.668, 1.562)
pt3dadd(94.067, 103.446, -12.752, 1.578)
pt3dadd(93.993, 103.45, -12.83, 1.578)
pt3dadd(93.917, 103.455, -12.907, 1.572)
pt3dadd(93.919, 103.459, -12.907, 1.572)
pt3dadd(93.843, 103.464, -12.984, 1.568)
pt3dadd(93.766, 103.468, -13.06, 1.562)
pt3dadd(93.69, 103.473, -13.137, 1.558)
pt3dadd(93.619, 103.477, -13.217, 1.552)
pt3dadd(93.549, 103.482, -13.297, 1.548)
pt3dadd(93.479, 103.486, -13.377, 1.542)
pt3dadd(93.409, 103.491, -13.458, 1.538)
}
}
proc shape3d_183() {
dend_7[30] { pt3dadd(93.338, 103.495, -13.538, 1.532)
pt3dadd(93.29, 103.507, -13.629, 1.528)
pt3dadd(93.244, 103.519, -13.721, 1.522)
pt3dadd(93.199, 103.532, -13.813, 1.518)
pt3dadd(93.153, 103.544, -13.905, 1.512)
pt3dadd(93.108, 103.556, -13.997, 1.508)
pt3dadd(93.047, 103.631, -14.047, 1.518)
pt3dadd(92.982, 103.725, -14.085, 1.532)
pt3dadd(92.923, 103.752, -14.169, 1.556)
pt3dadd(92.864, 103.776, -14.253, 1.582)
pt3dadd(92.767, 103.809, -14.306, 1.622)
pt3dadd(92.676, 103.849, -14.354, 1.66)
pt3dadd(92.632, 103.965, -14.355, 1.694)
pt3dadd(92.587, 104.08, -14.355, 1.726)
pt3dadd(92.49, 104.121, -14.384, 1.738)
pt3dadd(92.381, 104.145, -14.419, 1.746)
pt3dadd(92.272, 104.168, -14.454, 1.752)
pt3dadd(92.185, 104.202, -14.505, 1.754)
pt3dadd(92.144, 104.256, -14.589, 1.74)
pt3dadd(92.084, 104.298, -14.667, 1.644)
pt3dadd(92.022, 104.32, -14.749, 1.582)
pt3dadd(91.964, 104.342, -14.835, 1.548)
pt3dadd(91.906, 104.363, -14.921, 1.516)
pt3dadd(91.848, 104.385, -15.007, 1.484)
pt3dadd(91.79, 104.413, -15.091, 1.45)
pt3dadd(91.737, 104.483, -15.162, 1.408)
pt3dadd(91.683, 104.552, -15.233, 1.366)
pt3dadd(91.63, 104.621, -15.304, 1.322)
pt3dadd(91.576, 104.691, -15.374, 1.28)
pt3dadd(91.525, 104.772, -15.438, 1.222)
pt3dadd(91.457, 104.833, -15.494, 1.172)
pt3dadd(91.346, 104.844, -15.529, 1.138)
pt3dadd(91.236, 104.856, -15.563, 1.104)
pt3dadd(91.167, 104.953, -15.588, 1.078)
pt3dadd(91.106, 105.04, -15.622, 1.052)
pt3dadd(91.09, 105.068, -15.72, 1.03)
pt3dadd(91.075, 105.095, -15.817, 1.008)
pt3dadd(91.048, 105.166, -15.896, 1.004)
pt3dadd(91.02, 105.243, -15.972, 1.004)
pt3dadd(90.991, 105.321, -16.047, 1.004)
pt3dadd(90.993, 105.326, -16.048, 1.004)
pt3dadd(90.913, 105.399, -16.067, 1.022)
pt3dadd(90.816, 105.472, -16.067, 1.046)
pt3dadd(90.709, 105.523, -16.068, 1.064)
pt3dadd(90.595, 105.561, -16.068, 1.08)
pt3dadd(90.482, 105.599, -16.069, 1.094)
pt3dadd(90.366, 105.624, -16.069, 1.104)
pt3dadd(90.248, 105.629, -16.069, 1.104)
pt3dadd(90.13, 105.633, -16.07, 1.104)
pt3dadd(90.012, 105.638, -16.07, 1.078)
pt3dadd(89.893, 105.642, -16.071, 1.012)
pt3dadd(89.775, 105.647, -16.071, 0.962)
pt3dadd(89.657, 105.651, -16.071, 0.912)
pt3dadd(89.543, 105.656, -16.088, 0.85)
pt3dadd(89.438, 105.66, -16.133, 0.772)
pt3dadd(89.335, 105.672, -16.18, 0.692)
pt3dadd(89.254, 105.729, -16.237, 0.606)
pt3dadd(89.169, 105.793, -16.282, 0.538)
pt3dadd(89.078, 105.869, -16.306, 0.498)
pt3dadd(89.003, 105.92, -16.36, 0.478)
pt3dadd(88.937, 105.949, -16.436, 0.478)
pt3dadd(88.834, 105.998, -16.469, 0.484)
pt3dadd(88.731, 106.047, -16.501, 0.49)
pt3dadd(88.629, 106.097, -16.534, 0.494)
pt3dadd(88.526, 106.146, -16.567, 0.5)
pt3dadd(88.437, 106.209, -16.609, 0.51)
pt3dadd(88.355, 106.279, -16.655, 0.522)
pt3dadd(88.272, 106.348, -16.702, 0.536)
pt3dadd(88.189, 106.418, -16.749, 0.548)
pt3dadd(88.095, 106.464, -16.793, 0.556)
pt3dadd(87.992, 106.495, -16.837, 0.562)
pt3dadd(87.888, 106.526, -16.882, 0.566)
pt3dadd(87.786, 106.556, -16.926, 0.572)
pt3dadd(87.682, 106.587, -16.97, 0.578)
pt3dadd(87.568, 106.591, -16.995, 0.586)
pt3dadd(87.454, 106.596, -17.021, 0.596)
pt3dadd(87.339, 106.6, -17.046, 0.604)
pt3dadd(87.225, 106.605, -17.072, 0.612)
pt3dadd(87.111, 106.609, -17.097, 0.622)
pt3dadd(87, 106.625, -17.126, 0.63)
pt3dadd(86.899, 106.672, -17.165, 0.636)
pt3dadd(86.798, 106.719, -17.203, 0.64)
pt3dadd(86.697, 106.766, -17.241, 0.646)
pt3dadd(86.596, 106.813, -17.279, 0.652)
pt3dadd(86.482, 106.841, -17.285, 0.662)
pt3dadd(86.365, 106.866, -17.285, 0.67)
pt3dadd(86.248, 106.887, -17.286, 0.68)
pt3dadd(86.13, 106.896, -17.286, 0.69)
pt3dadd(86.012, 106.905, -17.287, 0.698)
pt3dadd(85.913, 106.949, -17.287, 0.712)
pt3dadd(85.847, 107.053, -17.287, 0.734)
pt3dadd(85.781, 107.156, -17.288, 0.764)
pt3dadd(85.715, 107.26, -17.288, 0.81)
pt3dadd(85.646, 107.36, -17.289, 0.856)
pt3dadd(85.534, 107.401, -17.289, 0.88)
pt3dadd(85.421, 107.443, -17.29, 0.906)
pt3dadd(85.309, 107.484, -17.29, 0.932)
pt3dadd(85.196, 107.523, -17.29, 0.956)
pt3dadd(85.078, 107.532, -17.291, 0.972)
pt3dadd(84.96, 107.541, -17.291, 0.99)
pt3dadd(84.841, 107.549, -17.292, 0.994)
pt3dadd(84.725, 107.559, -17.298, 0.948)
pt3dadd(84.617, 107.592, -17.332, 0.916)
pt3dadd(84.509, 107.625, -17.365, 0.884)
pt3dadd(84.401, 107.657, -17.398, 0.852)
pt3dadd(84.293, 107.69, -17.432, 0.82)
pt3dadd(84.192, 107.725, -17.474, 0.788)
pt3dadd(84.098, 107.764, -17.529, 0.754)
pt3dadd(84.004, 107.802, -17.583, 0.718)
pt3dadd(83.911, 107.84, -17.637, 0.684)
pt3dadd(83.816, 107.882, -17.686, 0.65)
pt3dadd(83.714, 107.945, -17.698, 0.63)
pt3dadd(83.613, 108.008, -17.71, 0.608)
pt3dadd(83.511, 108.072, -17.722, 0.586)
pt3dadd(83.409, 108.135, -17.735, 0.566)
pt3dadd(83.331, 108.201, -17.771, 0.552)
pt3dadd(83.297, 108.271, -17.849, 0.552)
pt3dadd(83.221, 108.315, -17.898, 0.564)
pt3dadd(83.107, 108.337, -17.917, 0.586)
pt3dadd(82.992, 108.355, -17.939, 0.61)
pt3dadd(82.879, 108.36, -17.967, 0.64)
pt3dadd(82.765, 108.365, -17.995, 0.672)
pt3dadd(82.648, 108.369, -18.001, 0.698)
pt3dadd(82.53, 108.374, -18.001, 0.724)
pt3dadd(82.411, 108.378, -18.002, 0.748)
pt3dadd(82.293, 108.383, -18.007, 0.786)
pt3dadd(82.175, 108.387, -18.013, 0.824)
pt3dadd(82.075, 108.392, -18.064, 0.834)
pt3dadd(81.976, 108.396, -18.119, 0.838)
pt3dadd(81.878, 108.401, -18.175, 0.844)
pt3dadd(81.779, 108.405, -18.23, 0.848)
pt3dadd(81.681, 108.41, -18.285, 0.854)
pt3dadd(81.571, 108.414, -18.322, 0.844)
pt3dadd(81.46, 108.419, -18.356, 0.834)
pt3dadd(81.346, 108.415, -18.38, 0.812)
pt3dadd(81.23, 108.403, -18.394, 0.782)
pt3dadd(81.117, 108.384, -18.407, 0.75)
pt3dadd(81.028, 108.31, -18.413, 0.712)
pt3dadd(80.942, 108.239, -18.424, 0.676)
pt3dadd(80.885, 108.199, -18.504, 0.634)
pt3dadd(80.826, 108.149, -18.573, 0.592)
pt3dadd(80.76, 108.065, -18.611, 0.552)
pt3dadd(80.686, 107.994, -18.655, 0.552)
pt3dadd(80.624, 107.933, -18.714, 0.56)
pt3dadd(80.592, 107.897, -18.804, 0.586)
pt3dadd(80.536, 107.873, -18.876, 0.61)
pt3dadd(80.424, 107.878, -18.91, 0.63)
pt3dadd(80.313, 107.883, -18.943, 0.652)
pt3dadd(80.204, 107.862, -18.976, 0.676)
pt3dadd(80.095, 107.841, -19.009, 0.7)
pt3dadd(80.024, 107.754, -19.02, 0.736)
pt3dadd(79.94, 107.692, -19.048, 0.762)
pt3dadd(79.842, 107.657, -19.091, 0.78)
pt3dadd(79.743, 107.622, -19.135, 0.798)
pt3dadd(79.644, 107.587, -19.178, 0.814)
pt3dadd(79.542, 107.556, -19.215, 0.83)
pt3dadd(79.543, 107.56, -19.215, 0.83)
pt3dadd(79.426, 107.548, -19.215, 0.838)
pt3dadd(79.309, 107.535, -19.216, 0.846)
pt3dadd(79.192, 107.522, -19.216, 0.854)
pt3dadd(79.075, 107.51, -19.217, 0.862)
pt3dadd(78.958, 107.497, -19.217, 0.87)
pt3dadd(78.841, 107.484, -19.218, 0.878)
pt3dadd(78.723, 107.484, -19.218, 0.878)
pt3dadd(78.605, 107.484, -19.219, 0.878)
pt3dadd(78.488, 107.482, -19.222, 0.876)
pt3dadd(78.379, 107.46, -19.255, 0.838)
pt3dadd(78.274, 107.435, -19.288, 0.802)
pt3dadd(78.228, 107.332, -19.31, 0.75)
pt3dadd(78.184, 107.23, -19.335, 0.702)
pt3dadd(78.158, 107.142, -19.395, 0.674)
pt3dadd(78.116, 107.065, -19.448, 0.654)
pt3dadd(78.006, 107.035, -19.471, 0.662)
pt3dadd(77.896, 107.005, -19.494, 0.668)
pt3dadd(77.787, 106.975, -19.516, 0.676)
pt3dadd(77.674, 106.946, -19.523, 0.7)
pt3dadd(77.56, 106.917, -19.524, 0.732)
pt3dadd(77.449, 106.883, -19.524, 0.764)
pt3dadd(77.338, 106.852, -19.524, 0.78)
pt3dadd(77.221, 106.837, -19.525, 0.784)
pt3dadd(77.104, 106.822, -19.525, 0.788)
pt3dadd(76.988, 106.807, -19.526, 0.794)
pt3dadd(76.871, 106.792, -19.526, 0.798)
pt3dadd(76.755, 106.776, -19.527, 0.802)
pt3dadd(76.638, 106.767, -19.535, 0.802)
pt3dadd(76.522, 106.765, -19.553, 0.798)
pt3dadd(76.406, 106.762, -19.57, 0.792)
pt3dadd(76.289, 106.76, -19.588, 0.788)
pt3dadd(76.173, 106.758, -19.606, 0.784)
pt3dadd(76.057, 106.755, -19.624, 0.78)
pt3dadd(75.94, 106.758, -19.639, 0.778)
pt3dadd(75.823, 106.762, -19.654, 0.778)
pt3dadd(75.706, 106.767, -19.669, 0.778)
pt3dadd(75.589, 106.771, -19.684, 0.778)
pt3dadd(75.472, 106.776, -19.699, 0.778)
pt3dadd(75.355, 106.78, -19.714, 0.778)
pt3dadd(75.242, 106.768, -19.733, 0.772)
pt3dadd(75.131, 106.739, -19.756, 0.762)
pt3dadd(75.021, 106.711, -19.779, 0.752)
pt3dadd(74.911, 106.683, -19.802, 0.742)
}
}
proc shape3d_184() {
dend_7[30] { pt3dadd(74.8, 106.655, -19.826, 0.732)
pt3dadd(74.698, 106.617, -19.861, 0.728)
pt3dadd(74.601, 106.576, -19.903, 0.728)
pt3dadd(74.504, 106.534, -19.944, 0.728)
pt3dadd(74.407, 106.492, -19.986, 0.728)
pt3dadd(74.306, 106.466, -20.028, 0.728)
pt3dadd(74.199, 106.47, -20.07, 0.728)
pt3dadd(74.092, 106.475, -20.113, 0.728)
pt3dadd(73.985, 106.479, -20.156, 0.728)
pt3dadd(73.878, 106.484, -20.198, 0.728)
pt3dadd(73.771, 106.49, -20.238, 0.728)
pt3dadd(73.654, 106.514, -20.238, 0.732)
pt3dadd(73.537, 106.538, -20.239, 0.736)
pt3dadd(73.421, 106.563, -20.239, 0.74)
pt3dadd(73.304, 106.587, -20.24, 0.744)
pt3dadd(73.188, 106.611, -20.24, 0.75)
pt3dadd(73.071, 106.635, -20.24, 0.754)
pt3dadd(72.953, 106.646, -20.243, 0.75)
pt3dadd(72.835, 106.657, -20.245, 0.746)
pt3dadd(72.717, 106.667, -20.247, 0.742)
pt3dadd(72.599, 106.678, -20.249, 0.738)
pt3dadd(72.48, 106.689, -20.251, 0.734)
pt3dadd(72.363, 106.699, -20.253, 0.73)
pt3dadd(72.26, 106.736, -20.273, 0.716)
pt3dadd(72.178, 106.809, -20.318, 0.688)
pt3dadd(72.078, 106.864, -20.336, 0.664)
pt3dadd(71.967, 106.91, -20.342, 0.64)
pt3dadd(71.868, 106.96, -20.368, 0.616)
pt3dadd(71.787, 107.018, -20.425, 0.588)
pt3dadd(71.713, 107.046, -20.498, 0.578)
pt3dadd(71.644, 107.056, -20.579, 0.578)
pt3dadd(71.551, 107.064, -20.633, 0.578)
pt3dadd(71.44, 107.068, -20.668, 0.578)
pt3dadd(71.329, 107.073, -20.702, 0.578)
pt3dadd(71.218, 107.077, -20.737, 0.578)
pt3dadd(71.102, 107.082, -20.748, 0.594)
pt3dadd(70.984, 107.086, -20.749, 0.62)
pt3dadd(70.865, 107.091, -20.749, 0.644)
pt3dadd(70.747, 107.095, -20.75, 0.67)
pt3dadd(70.63, 107.113, -20.75, 0.68)
pt3dadd(70.513, 107.138, -20.75, 0.686)
pt3dadd(70.397, 107.162, -20.751, 0.69)
pt3dadd(70.28, 107.186, -20.751, 0.694)
pt3dadd(70.164, 107.21, -20.752, 0.698)
pt3dadd(70.047, 107.235, -20.752, 0.702)
pt3dadd(69.93, 107.247, -20.761, 0.7)
pt3dadd(69.813, 107.252, -20.776, 0.696)
pt3dadd(69.696, 107.256, -20.791, 0.692)
pt3dadd(69.579, 107.261, -20.806, 0.688)
pt3dadd(69.462, 107.265, -20.82, 0.684)
pt3dadd(69.345, 107.27, -20.835, 0.68)
pt3dadd(69.228, 107.274, -20.845, 0.68)
pt3dadd(69.11, 107.279, -20.847, 0.688)
pt3dadd(68.991, 107.283, -20.849, 0.696)
pt3dadd(68.873, 107.288, -20.851, 0.702)
pt3dadd(68.755, 107.293, -20.853, 0.71)
pt3dadd(68.637, 107.297, -20.855, 0.718)
pt3dadd(68.518, 107.302, -20.857, 0.724)
pt3dadd(68.4, 107.306, -20.86, 0.742)
pt3dadd(68.282, 107.311, -20.864, 0.768)
pt3dadd(68.164, 107.315, -20.868, 0.794)
pt3dadd(68.059, 107.32, -20.906, 0.826)
pt3dadd(67.962, 107.324, -20.963, 0.86)
pt3dadd(67.905, 107.329, -21.041, 0.878)
pt3dadd(67.892, 107.333, -21.14, 0.878)
pt3dadd(67.879, 107.338, -21.24, 0.878)
pt3dadd(67.874, 107.33, -21.34, 0.864)
pt3dadd(67.87, 107.319, -21.439, 0.844)
pt3dadd(67.845, 107.304, -21.522, 0.822)
pt3dadd(67.736, 107.269, -21.544, 0.784)
pt3dadd(67.626, 107.241, -21.563, 0.746)
pt3dadd(67.508, 107.245, -21.563, 0.696)
pt3dadd(67.389, 107.25, -21.564, 0.65)
pt3dadd(67.271, 107.254, -21.564, 0.624)
pt3dadd(67.153, 107.259, -21.565, 0.614)
pt3dadd(67.035, 107.263, -21.565, 0.694)
pt3dadd(66.918, 107.268, -21.571, 0.786)
pt3dadd(66.806, 107.272, -21.604, 0.84)
pt3dadd(66.695, 107.277, -21.638, 0.894)
pt3dadd(66.603, 107.282, -21.699, 0.904)
pt3dadd(66.517, 107.286, -21.767, 0.904)
pt3dadd(66.427, 107.291, -21.833, 0.856)
pt3dadd(66.31, 107.293, -21.84, 0.836)
pt3dadd(66.192, 107.296, -21.845, 0.816)
pt3dadd(66.074, 107.298, -21.851, 0.798)
pt3dadd(65.956, 107.301, -21.856, 0.778)
pt3dadd(65.838, 107.303, -21.862, 0.758)
pt3dadd(65.72, 107.306, -21.867, 0.74)
pt3dadd(65.603, 107.296, -21.871, 0.69)
pt3dadd(65.503, 107.242, -21.871, 0.612)
pt3dadd(65.411, 107.172, -21.871, 0.628)
pt3dadd(65.31, 107.119, -21.879, 0.628)
pt3dadd(65.312, 107.123, -21.879, 0.628)
pt3dadd(65.214, 107.105, -21.925, 0.602)
pt3dadd(65.175, 107.11, -22.018, 0.602)
pt3dadd(65.169, 107.114, -22.118, 0.602)
pt3dadd(65.164, 107.119, -22.218, 0.628)
pt3dadd(65.141, 107.123, -22.316, 0.704)
pt3dadd(65.09, 107.111, -22.404, 0.836)
pt3dadd(65.06, 107.065, -22.49, 0.878)
pt3dadd(65.04, 107.043, -22.585, 0.854)
pt3dadd(65.018, 107.03, -22.683, 0.82)
pt3dadd(64.957, 107.026, -22.757, 0.78)
pt3dadd(64.855, 107.03, -22.808, 0.734)
pt3dadd(64.749, 107.035, -22.848, 0.694)
pt3dadd(64.632, 107.04, -22.861, 0.666)
pt3dadd(64.514, 107.044, -22.873, 0.638)
pt3dadd(64.397, 107.049, -22.879, 0.628)
pt3dadd(64.278, 107.053, -22.879, 0.628)
pt3dadd(64.16, 107.058, -22.879, 0.628)
pt3dadd(64.042, 107.062, -22.88, 0.644)
pt3dadd(63.924, 107.067, -22.88, 0.668)
pt3dadd(63.805, 107.071, -22.881, 0.694)
pt3dadd(63.687, 107.076, -22.881, 0.718)
pt3dadd(63.569, 107.08, -22.882, 0.744)
pt3dadd(63.452, 107.085, -22.892, 0.766)
pt3dadd(63.335, 107.089, -22.91, 0.784)
pt3dadd(63.219, 107.094, -22.928, 0.804)
pt3dadd(63.136, 107.105, -22.999, 0.816)
pt3dadd(63.054, 107.116, -23.07, 0.828)
pt3dadd(62.987, 107.202, -23.116, 0.814)
pt3dadd(62.935, 107.296, -23.157, 0.8)
pt3dadd(62.937, 107.416, -23.185, 0.784)
pt3dadd(62.889, 107.486, -23.236, 0.772)
pt3dadd(62.807, 107.522, -23.304, 0.76)
pt3dadd(62.725, 107.557, -23.371, 0.748)
pt3dadd(62.643, 107.593, -23.438, 0.736)
pt3dadd(62.565, 107.619, -23.51, 0.726)
pt3dadd(62.495, 107.624, -23.59, 0.722)
pt3dadd(62.425, 107.628, -23.67, 0.716)
pt3dadd(62.354, 107.633, -23.751, 0.712)
pt3dadd(62.284, 107.637, -23.831, 0.706)
pt3dadd(62.228, 107.642, -23.917, 0.702)
pt3dadd(62.207, 107.647, -24.015, 0.698)
pt3dadd(62.187, 107.651, -24.114, 0.694)
pt3dadd(62.166, 107.656, -24.213, 0.69)
pt3dadd(62.146, 107.66, -24.312, 0.686)
pt3dadd(62.126, 107.665, -24.41, 0.68)
pt3dadd(62.097, 107.657, -24.505, 0.678)
pt3dadd(62.049, 107.618, -24.588, 0.678)
pt3dadd(62.016, 107.583, -24.677, 0.674)
pt3dadd(62.006, 107.552, -24.773, 0.662)
pt3dadd(61.986, 107.514, -24.862, 0.648)
pt3dadd(61.927, 107.449, -24.926, 0.618)
pt3dadd(61.863, 107.385, -24.987, 0.582)
pt3dadd(61.796, 107.32, -25.046, 0.54)
pt3dadd(61.706, 107.263, -25.08, 0.51)
pt3dadd(61.607, 107.209, -25.104, 0.486)
pt3dadd(61.508, 107.155, -25.129, 0.462)
pt3dadd(61.455, 107.13, -25.194, 0.436)
pt3dadd(61.442, 107.129, -25.294, 0.408)
pt3dadd(61.428, 107.128, -25.393, 0.378)
pt3dadd(61.429, 107.147, -25.493, 0.356)
pt3dadd(61.431, 107.166, -25.593, 0.336)
pt3dadd(61.433, 107.186, -25.692, 0.314)
pt3dadd(61.41, 107.236, -25.764, 0.29)
pt3dadd(61.345, 107.336, -25.789, 0.264)
pt3dadd(61.251, 107.39, -25.8, 0.236)
}
dend_0[7] {pt3dclear()
pt3dadd(141.48, 108.759, 20.487, 9.04)
pt3dadd(141.479, 108.736, 20.509, 9.004)
pt3dadd(141.476, 108.658, 20.584, 8.88)
pt3dadd(141.473, 108.579, 20.66, 8.756)
pt3dadd(141.469, 108.501, 20.735, 8.632)
pt3dadd(141.467, 108.422, 20.811, 8.508)
pt3dadd(141.463, 108.343, 20.887, 8.384)
pt3dadd(141.461, 108.265, 20.962, 8.26)
pt3dadd(141.457, 108.186, 21.038, 8.138)
pt3dadd(141.454, 108.108, 21.113, 8.014)
pt3dadd(141.451, 108.029, 21.189, 7.89)
pt3dadd(141.448, 107.951, 21.264, 7.766)
pt3dadd(141.445, 107.872, 21.34, 7.642)
pt3dadd(141.442, 107.794, 21.415, 7.518)
pt3dadd(141.439, 107.715, 21.491, 7.394)
pt3dadd(141.436, 107.637, 21.566, 7.27)
pt3dadd(141.433, 107.558, 21.642, 7.146)
pt3dadd(141.43, 107.479, 21.718, 7.022)
pt3dadd(141.428, 107.402, 21.793, 6.9)
pt3dadd(141.479, 107.359, 21.877, 6.82)
pt3dadd(141.53, 107.317, 21.96, 6.74)
pt3dadd(141.582, 107.274, 22.043, 6.66)
pt3dadd(141.632, 107.232, 22.126, 6.58)
pt3dadd(141.684, 107.189, 22.21, 6.5)
}
dend_7[31] {pt3dclear()
pt3dadd(141.684, 107.189, 22.21, 6.5)
pt3dadd(141.734, 107.147, 22.293, 6.42)
pt3dadd(141.786, 107.104, 22.376, 6.34)
pt3dadd(141.836, 107.062, 22.46, 6.26)
pt3dadd(141.899, 107.032, 22.539, 6.198)
pt3dadd(141.984, 107.031, 22.609, 6.174)
pt3dadd(142.07, 107.029, 22.679, 6.152)
pt3dadd(142.156, 107.028, 22.749, 6.128)
pt3dadd(142.241, 107.027, 22.819, 6.106)
pt3dadd(142.327, 107.026, 22.889, 6.084)
pt3dadd(142.412, 107.025, 22.959, 6.06)
pt3dadd(142.499, 107.023, 23.029, 6.038)
pt3dadd(142.584, 107.022, 23.099, 6.014)
pt3dadd(142.669, 107.021, 23.169, 5.992)
pt3dadd(142.756, 107.019, 23.239, 5.948)
pt3dadd(142.841, 107.018, 23.309, 5.856)
pt3dadd(142.927, 107.016, 23.378, 5.764)
pt3dadd(143.014, 107.015, 23.448, 5.672)
}
}
proc shape3d_185() {
dend_7[31] { pt3dadd(143.099, 107.013, 23.518, 5.58)
pt3dadd(143.185, 107.012, 23.588, 5.488)
pt3dadd(143.27, 107.01, 23.658, 5.396)
pt3dadd(143.357, 107.008, 23.727, 5.306)
pt3dadd(143.443, 107.007, 23.797, 5.214)
pt3dadd(143.528, 107.005, 23.867, 5.122)
pt3dadd(143.615, 107.004, 23.937, 5.014)
pt3dadd(143.7, 107.002, 24.007, 4.87)
pt3dadd(143.786, 107, 24.076, 4.726)
pt3dadd(143.873, 106.998, 24.146, 4.582)
pt3dadd(143.959, 106.996, 24.216, 4.438)
pt3dadd(144.044, 106.995, 24.285, 4.294)
pt3dadd(144.131, 106.993, 24.355, 4.148)
pt3dadd(144.217, 106.991, 24.425, 4.004)
pt3dadd(144.302, 106.989, 24.494, 3.86)
pt3dadd(144.389, 106.987, 24.564, 3.716)
pt3dadd(144.475, 106.985, 24.634, 3.588)
pt3dadd(144.563, 106.982, 24.702, 3.498)
pt3dadd(144.649, 106.978, 24.771, 3.408)
pt3dadd(144.737, 106.975, 24.84, 3.316)
pt3dadd(144.824, 106.971, 24.908, 3.226)
pt3dadd(144.911, 106.968, 24.977, 3.136)
pt3dadd(144.998, 106.965, 25.046, 3.044)
pt3dadd(145.085, 106.961, 25.115, 2.954)
pt3dadd(145.172, 106.958, 25.183, 2.862)
pt3dadd(145.259, 106.955, 25.252, 2.772)
pt3dadd(145.346, 106.951, 25.321, 2.68)
pt3dadd(145.433, 106.948, 25.39, 2.59)
pt3dadd(145.52, 106.944, 25.458, 2.5)
pt3dadd(145.607, 106.941, 25.527, 2.408)
pt3dadd(145.694, 106.938, 25.596, 2.318)
pt3dadd(145.783, 106.931, 25.663, 2.298)
pt3dadd(145.872, 106.924, 25.73, 2.28)
pt3dadd(145.962, 106.917, 25.796, 2.26)
pt3dadd(146.051, 106.911, 25.863, 2.24)
pt3dadd(146.14, 106.904, 25.93, 2.222)
pt3dadd(146.228, 106.897, 25.997, 2.202)
pt3dadd(146.318, 106.89, 26.063, 2.184)
pt3dadd(146.407, 106.883, 26.13, 2.164)
pt3dadd(146.496, 106.877, 26.197, 2.144)
pt3dadd(146.585, 106.87, 26.264, 2.126)
pt3dadd(146.675, 106.861, 26.329, 2.14)
pt3dadd(146.765, 106.853, 26.395, 2.152)
pt3dadd(146.855, 106.845, 26.461, 2.166)
pt3dadd(146.945, 106.836, 26.527, 2.18)
pt3dadd(147.035, 106.828, 26.593, 2.194)
pt3dadd(147.125, 106.82, 26.658, 2.206)
pt3dadd(147.215, 106.812, 26.724, 2.22)
pt3dadd(147.305, 106.803, 26.79, 2.234)
pt3dadd(147.395, 106.795, 26.856, 2.246)
pt3dadd(147.485, 106.787, 26.922, 2.26)
}
dend_7[32] {pt3dclear()
pt3dadd(147.485, 106.787, 26.922, 2.26)
pt3dadd(147.494, 106.785, 26.928, 2.254)
pt3dadd(147.589, 106.77, 26.988, 2.198)
pt3dadd(147.683, 106.754, 27.048, 2.142)
pt3dadd(147.778, 106.739, 27.108, 2.086)
pt3dadd(147.872, 106.723, 27.169, 2.03)
pt3dadd(147.967, 106.708, 27.229, 1.974)
pt3dadd(148.061, 106.693, 27.289, 1.916)
pt3dadd(148.156, 106.677, 27.349, 1.86)
pt3dadd(148.25, 106.662, 27.41, 1.804)
pt3dadd(148.345, 106.646, 27.47, 1.748)
pt3dadd(148.439, 106.631, 27.53, 1.692)
pt3dadd(148.534, 106.616, 27.591, 1.636)
pt3dadd(148.628, 106.6, 27.651, 1.58)
pt3dadd(148.723, 106.585, 27.711, 1.522)
pt3dadd(148.817, 106.569, 27.772, 1.466)
pt3dadd(148.912, 106.554, 27.832, 1.41)
pt3dadd(149.009, 106.524, 27.881, 1.37)
pt3dadd(149.111, 106.474, 27.914, 1.354)
pt3dadd(149.213, 106.423, 27.946, 1.336)
pt3dadd(149.314, 106.373, 27.979, 1.32)
pt3dadd(149.416, 106.323, 28.012, 1.304)
pt3dadd(149.518, 106.272, 28.044, 1.286)
pt3dadd(149.618, 106.222, 28.077, 1.27)
pt3dadd(149.72, 106.172, 28.11, 1.254)
pt3dadd(149.822, 106.121, 28.143, 1.236)
pt3dadd(149.923, 106.071, 28.175, 1.22)
pt3dadd(150.026, 106.02, 28.204, 1.206)
pt3dadd(150.132, 105.97, 28.227, 1.198)
pt3dadd(150.238, 105.919, 28.249, 1.19)
pt3dadd(150.342, 105.869, 28.272, 1.182)
pt3dadd(150.448, 105.818, 28.295, 1.174)
pt3dadd(150.553, 105.767, 28.318, 1.166)
pt3dadd(150.659, 105.717, 28.341, 1.158)
pt3dadd(150.763, 105.666, 28.364, 1.15)
pt3dadd(150.869, 105.615, 28.387, 1.142)
pt3dadd(150.974, 105.565, 28.41, 1.134)
pt3dadd(151.081, 105.514, 28.427, 1.132)
pt3dadd(151.189, 105.464, 28.44, 1.134)
pt3dadd(151.296, 105.413, 28.452, 1.136)
pt3dadd(151.404, 105.363, 28.464, 1.138)
pt3dadd(151.512, 105.313, 28.477, 1.14)
pt3dadd(151.62, 105.262, 28.489, 1.142)
pt3dadd(151.728, 105.212, 28.501, 1.144)
pt3dadd(151.836, 105.162, 28.514, 1.146)
pt3dadd(151.944, 105.111, 28.526, 1.148)
pt3dadd(152.052, 105.061, 28.538, 1.15)
pt3dadd(152.155, 105.002, 28.547, 1.166)
pt3dadd(152.255, 104.936, 28.554, 1.196)
pt3dadd(152.354, 104.869, 28.56, 1.226)
pt3dadd(152.454, 104.803, 28.566, 1.256)
pt3dadd(152.554, 104.736, 28.572, 1.284)
pt3dadd(152.653, 104.67, 28.578, 1.314)
pt3dadd(152.753, 104.603, 28.584, 1.344)
pt3dadd(152.852, 104.537, 28.59, 1.374)
pt3dadd(152.952, 104.47, 28.596, 1.404)
pt3dadd(153.052, 104.404, 28.602, 1.434)
pt3dadd(153.151, 104.336, 28.61, 1.456)
pt3dadd(153.248, 104.267, 28.618, 1.468)
pt3dadd(153.346, 104.198, 28.626, 1.482)
pt3dadd(153.444, 104.129, 28.634, 1.496)
pt3dadd(153.541, 104.06, 28.642, 1.508)
pt3dadd(153.638, 103.991, 28.651, 1.522)
pt3dadd(153.737, 103.922, 28.659, 1.536)
pt3dadd(153.834, 103.852, 28.667, 1.548)
pt3dadd(153.932, 103.783, 28.675, 1.562)
pt3dadd(154.03, 103.714, 28.683, 1.576)
pt3dadd(154.127, 103.644, 28.692, 1.582)
pt3dadd(154.222, 103.573, 28.702, 1.582)
pt3dadd(154.318, 103.502, 28.712, 1.582)
pt3dadd(154.414, 103.431, 28.722, 1.582)
pt3dadd(154.51, 103.36, 28.732, 1.582)
pt3dadd(154.606, 103.288, 28.742, 1.582)
pt3dadd(154.702, 103.217, 28.752, 1.582)
pt3dadd(154.798, 103.146, 28.762, 1.582)
pt3dadd(154.894, 103.075, 28.772, 1.582)
pt3dadd(154.99, 103.004, 28.781, 1.582)
pt3dadd(155.087, 102.942, 28.804, 1.574)
pt3dadd(155.186, 102.89, 28.839, 1.56)
pt3dadd(155.286, 102.837, 28.873, 1.544)
pt3dadd(155.386, 102.785, 28.908, 1.53)
pt3dadd(155.485, 102.732, 28.942, 1.516)
pt3dadd(155.585, 102.68, 28.977, 1.5)
pt3dadd(155.684, 102.627, 29.011, 1.486)
pt3dadd(155.784, 102.575, 29.046, 1.47)
pt3dadd(155.884, 102.522, 29.081, 1.456)
pt3dadd(155.983, 102.47, 29.115, 1.442)
pt3dadd(156.083, 102.415, 29.147, 1.426)
pt3dadd(156.182, 102.358, 29.177, 1.41)
pt3dadd(156.282, 102.302, 29.206, 1.396)
pt3dadd(156.382, 102.245, 29.236, 1.38)
pt3dadd(156.481, 102.188, 29.265, 1.366)
pt3dadd(156.581, 102.131, 29.295, 1.35)
pt3dadd(156.68, 102.074, 29.325, 1.334)
pt3dadd(156.78, 102.017, 29.354, 1.32)
pt3dadd(156.88, 101.961, 29.384, 1.304)
pt3dadd(156.979, 101.904, 29.413, 1.29)
pt3dadd(157.079, 101.844, 29.44, 1.274)
pt3dadd(157.177, 101.782, 29.463, 1.258)
pt3dadd(157.277, 101.721, 29.487, 1.244)
pt3dadd(157.375, 101.659, 29.51, 1.228)
pt3dadd(157.474, 101.597, 29.534, 1.214)
pt3dadd(157.573, 101.535, 29.557, 1.198)
pt3dadd(157.672, 101.473, 29.581, 1.182)
pt3dadd(157.771, 101.411, 29.605, 1.168)
pt3dadd(157.87, 101.35, 29.628, 1.152)
pt3dadd(157.968, 101.288, 29.652, 1.138)
pt3dadd(158.072, 101.233, 29.672, 1.15)
pt3dadd(158.18, 101.185, 29.69, 1.184)
pt3dadd(158.288, 101.137, 29.708, 1.22)
pt3dadd(158.396, 101.09, 29.726, 1.254)
pt3dadd(158.503, 101.042, 29.744, 1.29)
pt3dadd(158.611, 100.994, 29.761, 1.324)
pt3dadd(158.719, 100.946, 29.779, 1.36)
pt3dadd(158.827, 100.898, 29.797, 1.394)
pt3dadd(158.935, 100.85, 29.815, 1.43)
pt3dadd(159.043, 100.802, 29.833, 1.464)
pt3dadd(159.146, 100.745, 29.848, 1.474)
pt3dadd(159.247, 100.681, 29.861, 1.46)
pt3dadd(159.348, 100.618, 29.875, 1.446)
pt3dadd(159.449, 100.554, 29.888, 1.432)
pt3dadd(159.548, 100.49, 29.901, 1.418)
pt3dadd(159.649, 100.427, 29.914, 1.404)
pt3dadd(159.75, 100.363, 29.927, 1.39)
pt3dadd(159.851, 100.299, 29.94, 1.376)
pt3dadd(159.95, 100.236, 29.953, 1.362)
pt3dadd(160.051, 100.172, 29.967, 1.348)
pt3dadd(160.147, 100.104, 29.988, 1.324)
pt3dadd(160.24, 100.035, 30.014, 1.294)
pt3dadd(160.332, 99.965, 30.04, 1.264)
pt3dadd(160.424, 99.895, 30.067, 1.234)
pt3dadd(160.517, 99.825, 30.093, 1.204)
pt3dadd(160.609, 99.756, 30.119, 1.174)
pt3dadd(160.702, 99.686, 30.146, 1.144)
pt3dadd(160.794, 99.616, 30.172, 1.114)
pt3dadd(160.886, 99.546, 30.198, 1.082)
pt3dadd(160.979, 99.477, 30.225, 1.052)
pt3dadd(161.062, 99.404, 30.264, 1.04)
pt3dadd(161.142, 99.332, 30.306, 1.034)
pt3dadd(161.224, 99.259, 30.348, 1.026)
pt3dadd(161.304, 99.187, 30.391, 1.018)
pt3dadd(161.384, 99.114, 30.433, 1.01)
pt3dadd(161.466, 99.041, 30.476, 1.004)
pt3dadd(161.546, 98.969, 30.518, 0.996)
pt3dadd(161.628, 98.896, 30.561, 0.988)
pt3dadd(161.708, 98.823, 30.603, 0.982)
pt3dadd(161.789, 98.751, 30.645, 0.974)
pt3dadd(161.869, 98.667, 30.672, 0.98)
pt3dadd(161.948, 98.582, 30.697, 0.988)
}
}
proc shape3d_186() {
dend_7[32] { pt3dadd(162.028, 98.497, 30.722, 0.998)
pt3dadd(162.107, 98.413, 30.747, 1.006)
pt3dadd(162.186, 98.328, 30.772, 1.014)
pt3dadd(162.265, 98.243, 30.797, 1.022)
pt3dadd(162.344, 98.158, 30.822, 1.032)
pt3dadd(162.424, 98.073, 30.847, 1.04)
pt3dadd(162.503, 97.988, 30.872, 1.048)
pt3dadd(162.583, 97.903, 30.897, 1.056)
pt3dadd(162.656, 97.81, 30.912, 1.02)
pt3dadd(162.73, 97.717, 30.926, 0.98)
pt3dadd(162.804, 97.624, 30.939, 0.94)
pt3dadd(162.877, 97.53, 30.953, 0.9)
pt3dadd(162.95, 97.437, 30.967, 0.858)
pt3dadd(163.024, 97.343, 30.981, 0.818)
pt3dadd(163.097, 97.25, 30.995, 0.778)
pt3dadd(163.171, 97.156, 31.008, 0.738)
pt3dadd(163.244, 97.063, 31.022, 0.698)
pt3dadd(163.318, 96.969, 31.036, 0.658)
pt3dadd(163.421, 96.909, 31.04, 0.636)
pt3dadd(163.525, 96.849, 31.043, 0.616)
pt3dadd(163.628, 96.789, 31.046, 0.596)
pt3dadd(163.733, 96.729, 31.05, 0.576)
pt3dadd(163.836, 96.669, 31.053, 0.554)
pt3dadd(163.94, 96.609, 31.057, 0.534)
pt3dadd(164.044, 96.549, 31.06, 0.514)
pt3dadd(164.148, 96.489, 31.064, 0.494)
pt3dadd(164.252, 96.429, 31.067, 0.472)
pt3dadd(164.356, 96.369, 31.071, 0.452)
}
dend_7[33] {pt3dclear()
pt3dadd(164.356, 96.369, 31.071, 0.452)
pt3dadd(164.357, 96.368, 31.071, 0.452)
pt3dadd(164.473, 96.337, 31.079, 0.51)
pt3dadd(164.588, 96.305, 31.087, 0.568)
pt3dadd(164.704, 96.273, 31.095, 0.626)
pt3dadd(164.818, 96.24, 31.103, 0.676)
pt3dadd(164.933, 96.206, 31.111, 0.722)
pt3dadd(165.047, 96.171, 31.12, 0.768)
pt3dadd(165.162, 96.137, 31.128, 0.814)
pt3dadd(165.276, 96.103, 31.137, 0.86)
pt3dadd(165.391, 96.068, 31.145, 0.904)
pt3dadd(165.505, 96.034, 31.154, 0.95)
pt3dadd(165.62, 96, 31.162, 0.996)
pt3dadd(165.734, 95.965, 31.171, 1.042)
pt3dadd(165.848, 95.931, 31.179, 1.088)
pt3dadd(165.96, 95.888, 31.189, 1.092)
pt3dadd(166.069, 95.84, 31.201, 1.076)
pt3dadd(166.178, 95.793, 31.212, 1.06)
pt3dadd(166.289, 95.745, 31.223, 1.044)
pt3dadd(166.398, 95.698, 31.234, 1.026)
pt3dadd(166.507, 95.651, 31.245, 1.01)
pt3dadd(166.616, 95.603, 31.257, 0.994)
pt3dadd(166.726, 95.556, 31.268, 0.978)
pt3dadd(166.835, 95.508, 31.279, 0.962)
pt3dadd(166.945, 95.461, 31.29, 0.946)
pt3dadd(167.053, 95.42, 31.315, 0.938)
pt3dadd(167.16, 95.382, 31.346, 0.934)
pt3dadd(167.268, 95.344, 31.377, 0.93)
pt3dadd(167.376, 95.306, 31.408, 0.926)
pt3dadd(167.483, 95.268, 31.44, 0.922)
pt3dadd(167.591, 95.23, 31.471, 0.92)
pt3dadd(167.698, 95.193, 31.502, 0.916)
pt3dadd(167.806, 95.155, 31.533, 0.912)
pt3dadd(167.914, 95.117, 31.565, 0.908)
pt3dadd(168.02, 95.079, 31.596, 0.904)
pt3dadd(168.128, 95.045, 31.628, 0.9)
pt3dadd(168.238, 95.013, 31.661, 0.894)
pt3dadd(168.346, 94.98, 31.694, 0.888)
pt3dadd(168.455, 94.947, 31.727, 0.882)
pt3dadd(168.563, 94.915, 31.76, 0.876)
pt3dadd(168.671, 94.882, 31.793, 0.87)
pt3dadd(168.78, 94.85, 31.826, 0.864)
pt3dadd(168.888, 94.817, 31.859, 0.858)
pt3dadd(168.997, 94.785, 31.892, 0.852)
pt3dadd(169.105, 94.752, 31.925, 0.848)
pt3dadd(169.217, 94.723, 31.953, 0.834)
pt3dadd(169.33, 94.695, 31.979, 0.816)
pt3dadd(169.441, 94.667, 32.005, 0.8)
pt3dadd(169.554, 94.639, 32.03, 0.784)
pt3dadd(169.667, 94.61, 32.056, 0.766)
pt3dadd(169.78, 94.582, 32.082, 0.75)
pt3dadd(169.891, 94.554, 32.108, 0.732)
pt3dadd(170.004, 94.526, 32.134, 0.716)
pt3dadd(170.117, 94.498, 32.159, 0.7)
pt3dadd(170.23, 94.47, 32.185, 0.682)
pt3dadd(170.339, 94.427, 32.204, 0.69)
pt3dadd(170.447, 94.378, 32.22, 0.706)
pt3dadd(170.555, 94.33, 32.237, 0.722)
pt3dadd(170.663, 94.281, 32.253, 0.738)
pt3dadd(170.771, 94.233, 32.27, 0.754)
pt3dadd(170.879, 94.185, 32.286, 0.77)
pt3dadd(170.987, 94.136, 32.302, 0.786)
pt3dadd(171.095, 94.088, 32.319, 0.802)
pt3dadd(171.203, 94.039, 32.335, 0.818)
pt3dadd(171.311, 93.991, 32.352, 0.834)
pt3dadd(171.42, 93.946, 32.366, 0.844)
pt3dadd(171.532, 93.902, 32.379, 0.85)
pt3dadd(171.642, 93.859, 32.392, 0.856)
pt3dadd(171.752, 93.815, 32.405, 0.864)
pt3dadd(171.863, 93.772, 32.418, 0.87)
pt3dadd(171.974, 93.728, 32.431, 0.876)
pt3dadd(172.085, 93.685, 32.445, 0.882)
pt3dadd(172.195, 93.641, 32.458, 0.89)
pt3dadd(172.306, 93.597, 32.471, 0.896)
pt3dadd(172.416, 93.554, 32.484, 0.902)
pt3dadd(172.528, 93.514, 32.5, 0.902)
pt3dadd(172.639, 93.475, 32.517, 0.898)
pt3dadd(172.751, 93.436, 32.535, 0.894)
pt3dadd(172.862, 93.397, 32.552, 0.89)
pt3dadd(172.974, 93.358, 32.569, 0.886)
pt3dadd(173.086, 93.319, 32.586, 0.882)
pt3dadd(173.198, 93.28, 32.603, 0.878)
pt3dadd(173.31, 93.241, 32.62, 0.874)
pt3dadd(173.422, 93.202, 32.637, 0.87)
pt3dadd(173.533, 93.163, 32.654, 0.866)
pt3dadd(173.64, 93.128, 32.687, 0.852)
pt3dadd(173.747, 93.094, 32.722, 0.836)
pt3dadd(173.854, 93.059, 32.758, 0.82)
pt3dadd(173.96, 93.025, 32.794, 0.804)
pt3dadd(174.067, 92.991, 32.83, 0.788)
pt3dadd(174.174, 92.956, 32.866, 0.772)
pt3dadd(174.28, 92.922, 32.902, 0.758)
pt3dadd(174.386, 92.887, 32.937, 0.742)
pt3dadd(174.493, 92.853, 32.973, 0.726)
pt3dadd(174.6, 92.819, 33.009, 0.71)
pt3dadd(174.703, 92.768, 33.035, 0.734)
pt3dadd(174.806, 92.714, 33.059, 0.77)
pt3dadd(174.911, 92.66, 33.083, 0.804)
pt3dadd(175.014, 92.606, 33.107, 0.84)
pt3dadd(175.117, 92.552, 33.131, 0.874)
pt3dadd(175.22, 92.498, 33.155, 0.908)
pt3dadd(175.324, 92.444, 33.179, 0.944)
pt3dadd(175.427, 92.39, 33.203, 0.978)
pt3dadd(175.53, 92.336, 33.227, 1.014)
pt3dadd(175.633, 92.282, 33.251, 1.048)
pt3dadd(175.733, 92.22, 33.269, 1.076)
pt3dadd(175.834, 92.157, 33.287, 1.1)
pt3dadd(175.933, 92.094, 33.304, 1.126)
pt3dadd(176.033, 92.031, 33.321, 1.152)
pt3dadd(176.132, 91.968, 33.339, 1.178)
pt3dadd(176.232, 91.905, 33.356, 1.202)
pt3dadd(176.333, 91.841, 33.374, 1.228)
pt3dadd(176.432, 91.778, 33.391, 1.254)
pt3dadd(176.532, 91.715, 33.408, 1.28)
pt3dadd(176.632, 91.652, 33.426, 1.306)
pt3dadd(176.728, 91.58, 33.436, 1.296)
pt3dadd(176.822, 91.507, 33.445, 1.282)
pt3dadd(176.917, 91.435, 33.455, 1.266)
pt3dadd(177.012, 91.362, 33.464, 1.252)
pt3dadd(177.107, 91.289, 33.474, 1.238)
pt3dadd(177.202, 91.216, 33.483, 1.224)
pt3dadd(177.296, 91.144, 33.492, 1.21)
pt3dadd(177.391, 91.071, 33.502, 1.196)
pt3dadd(177.486, 90.998, 33.511, 1.182)
pt3dadd(177.581, 90.926, 33.521, 1.168)
pt3dadd(177.682, 90.861, 33.525, 1.174)
pt3dadd(177.782, 90.797, 33.528, 1.182)
pt3dadd(177.884, 90.733, 33.532, 1.19)
pt3dadd(177.985, 90.669, 33.535, 1.198)
pt3dadd(178.087, 90.605, 33.538, 1.206)
pt3dadd(178.188, 90.541, 33.542, 1.214)
pt3dadd(178.29, 90.477, 33.545, 1.222)
pt3dadd(178.392, 90.413, 33.549, 1.23)
pt3dadd(178.493, 90.349, 33.552, 1.238)
pt3dadd(178.595, 90.285, 33.556, 1.246)
pt3dadd(178.696, 90.222, 33.558, 1.244)
pt3dadd(178.798, 90.158, 33.559, 1.242)
pt3dadd(178.9, 90.094, 33.561, 1.24)
pt3dadd(179, 90.03, 33.563, 1.236)
pt3dadd(179.102, 89.966, 33.565, 1.234)
pt3dadd(179.203, 89.902, 33.566, 1.232)
pt3dadd(179.305, 89.838, 33.568, 1.228)
pt3dadd(179.407, 89.774, 33.57, 1.226)
pt3dadd(179.508, 89.711, 33.572, 1.224)
pt3dadd(179.61, 89.647, 33.574, 1.222)
pt3dadd(179.707, 89.576, 33.576, 1.18)
pt3dadd(179.804, 89.506, 33.579, 1.134)
pt3dadd(179.9, 89.435, 33.582, 1.09)
pt3dadd(179.998, 89.364, 33.584, 1.046)
pt3dadd(180.095, 89.293, 33.587, 1)
pt3dadd(180.192, 89.222, 33.59, 0.956)
pt3dadd(180.288, 89.152, 33.592, 0.912)
pt3dadd(180.385, 89.081, 33.595, 0.866)
pt3dadd(180.482, 89.01, 33.598, 0.822)
pt3dadd(180.578, 88.939, 33.6, 0.778)
pt3dadd(180.672, 88.863, 33.606, 0.776)
pt3dadd(180.764, 88.787, 33.611, 0.778)
pt3dadd(180.857, 88.711, 33.617, 0.78)
pt3dadd(180.949, 88.635, 33.623, 0.782)
pt3dadd(181.042, 88.559, 33.628, 0.784)
pt3dadd(181.134, 88.482, 33.634, 0.786)
pt3dadd(181.226, 88.406, 33.64, 0.788)
pt3dadd(181.319, 88.33, 33.645, 0.79)
pt3dadd(181.411, 88.254, 33.651, 0.792)
pt3dadd(181.504, 88.178, 33.657, 0.794)
pt3dadd(181.595, 88.1, 33.664, 0.808)
pt3dadd(181.685, 88.021, 33.672, 0.822)
pt3dadd(181.775, 87.943, 33.679, 0.838)
pt3dadd(181.866, 87.864, 33.687, 0.852)
pt3dadd(181.956, 87.786, 33.695, 0.866)
pt3dadd(182.046, 87.708, 33.702, 0.882)
pt3dadd(182.136, 87.629, 33.71, 0.896)
}
}
proc shape3d_187() {
dend_7[33] { pt3dadd(182.227, 87.551, 33.718, 0.912)
pt3dadd(182.317, 87.472, 33.725, 0.926)
pt3dadd(182.407, 87.394, 33.733, 0.94)
pt3dadd(182.496, 87.313, 33.744, 0.956)
pt3dadd(182.584, 87.232, 33.755, 0.97)
pt3dadd(182.671, 87.151, 33.767, 0.986)
pt3dadd(182.759, 87.07, 33.778, 1.002)
pt3dadd(182.846, 86.99, 33.789, 1.016)
pt3dadd(182.934, 86.909, 33.801, 1.032)
pt3dadd(183.022, 86.828, 33.812, 1.046)
pt3dadd(183.109, 86.747, 33.823, 1.062)
pt3dadd(183.197, 86.666, 33.834, 1.076)
pt3dadd(183.284, 86.585, 33.846, 1.092)
pt3dadd(183.367, 86.515, 33.886, 1.112)
pt3dadd(183.451, 86.445, 33.929, 1.132)
pt3dadd(183.534, 86.375, 33.971, 1.152)
pt3dadd(183.618, 86.305, 34.013, 1.172)
pt3dadd(183.701, 86.236, 34.055, 1.192)
pt3dadd(183.785, 86.166, 34.098, 1.212)
pt3dadd(183.868, 86.096, 34.14, 1.232)
pt3dadd(183.952, 86.026, 34.182, 1.252)
pt3dadd(184.034, 85.956, 34.225, 1.272)
pt3dadd(184.12, 85.889, 34.267, 1.288)
pt3dadd(184.214, 85.839, 34.313, 1.28)
pt3dadd(184.308, 85.789, 34.358, 1.27)
pt3dadd(184.403, 85.739, 34.403, 1.262)
pt3dadd(184.498, 85.689, 34.448, 1.252)
pt3dadd(184.592, 85.639, 34.494, 1.244)
pt3dadd(184.687, 85.589, 34.539, 1.236)
pt3dadd(184.782, 85.539, 34.584, 1.226)
pt3dadd(184.876, 85.489, 34.63, 1.218)
pt3dadd(184.97, 85.44, 34.675, 1.21)
pt3dadd(185.065, 85.388, 34.718, 1.2)
pt3dadd(185.162, 85.328, 34.75, 1.194)
pt3dadd(185.26, 85.269, 34.783, 1.186)
pt3dadd(185.356, 85.209, 34.815, 1.18)
pt3dadd(185.453, 85.149, 34.847, 1.172)
pt3dadd(185.549, 85.09, 34.88, 1.164)
pt3dadd(185.646, 85.03, 34.912, 1.158)
pt3dadd(185.742, 84.971, 34.944, 1.15)
pt3dadd(185.839, 84.911, 34.977, 1.142)
pt3dadd(185.935, 84.852, 35.009, 1.136)
pt3dadd(186.029, 84.789, 35.044, 1.132)
pt3dadd(186.114, 84.721, 35.086, 1.144)
pt3dadd(186.198, 84.652, 35.128, 1.154)
pt3dadd(186.282, 84.583, 35.17, 1.164)
pt3dadd(186.366, 84.514, 35.212, 1.174)
pt3dadd(186.45, 84.445, 35.254, 1.186)
pt3dadd(186.535, 84.376, 35.296, 1.196)
pt3dadd(186.619, 84.307, 35.338, 1.206)
pt3dadd(186.703, 84.238, 35.381, 1.216)
pt3dadd(186.787, 84.17, 35.423, 1.228)
pt3dadd(186.866, 84.097, 35.467, 1.236)
pt3dadd(186.938, 84.02, 35.515, 1.24)
pt3dadd(187.009, 83.943, 35.563, 1.246)
pt3dadd(187.081, 83.866, 35.611, 1.25)
pt3dadd(187.152, 83.788, 35.66, 1.256)
pt3dadd(187.224, 83.711, 35.708, 1.26)
pt3dadd(187.296, 83.634, 35.756, 1.266)
pt3dadd(187.367, 83.557, 35.804, 1.27)
pt3dadd(187.439, 83.48, 35.852, 1.276)
pt3dadd(187.51, 83.402, 35.9, 1.28)
pt3dadd(187.579, 83.32, 35.943, 1.276)
pt3dadd(187.645, 83.231, 35.981, 1.264)
pt3dadd(187.711, 83.142, 36.019, 1.25)
pt3dadd(187.778, 83.053, 36.057, 1.236)
pt3dadd(187.844, 82.964, 36.095, 1.224)
pt3dadd(187.91, 82.875, 36.133, 1.21)
pt3dadd(187.978, 82.786, 36.171, 1.196)
pt3dadd(188.044, 82.697, 36.209, 1.184)
pt3dadd(188.11, 82.608, 36.247, 1.17)
pt3dadd(188.177, 82.519, 36.285, 1.156)
pt3dadd(188.23, 82.426, 36.328, 1.158)
pt3dadd(188.273, 82.33, 36.377, 1.176)
pt3dadd(188.315, 82.234, 36.425, 1.192)
pt3dadd(188.357, 82.138, 36.473, 1.208)
pt3dadd(188.4, 82.042, 36.522, 1.224)
pt3dadd(188.442, 81.946, 36.57, 1.24)
pt3dadd(188.484, 81.849, 36.619, 1.258)
pt3dadd(188.527, 81.753, 36.667, 1.274)
pt3dadd(188.569, 81.657, 36.716, 1.29)
pt3dadd(188.611, 81.561, 36.764, 1.306)
pt3dadd(188.66, 81.463, 36.803, 1.304)
pt3dadd(188.714, 81.363, 36.834, 1.286)
pt3dadd(188.768, 81.262, 36.865, 1.266)
pt3dadd(188.824, 81.162, 36.896, 1.248)
pt3dadd(188.878, 81.062, 36.927, 1.228)
pt3dadd(188.932, 80.961, 36.958, 1.21)
pt3dadd(188.987, 80.861, 36.989, 1.19)
pt3dadd(189.041, 80.761, 37.019, 1.172)
pt3dadd(189.095, 80.66, 37.05, 1.154)
pt3dadd(189.15, 80.56, 37.081, 1.134)
pt3dadd(189.204, 80.458, 37.107, 1.12)
pt3dadd(189.258, 80.354, 37.13, 1.106)
pt3dadd(189.311, 80.25, 37.153, 1.094)
pt3dadd(189.365, 80.147, 37.177, 1.082)
pt3dadd(189.419, 80.043, 37.2, 1.07)
pt3dadd(189.473, 79.94, 37.223, 1.058)
pt3dadd(189.527, 79.836, 37.246, 1.044)
pt3dadd(189.58, 79.732, 37.269, 1.032)
pt3dadd(189.634, 79.629, 37.292, 1.02)
pt3dadd(189.688, 79.525, 37.315, 1.008)
pt3dadd(189.734, 79.417, 37.336, 1.024)
pt3dadd(189.776, 79.308, 37.356, 1.06)
pt3dadd(189.818, 79.197, 37.375, 1.094)
pt3dadd(189.86, 79.088, 37.395, 1.13)
pt3dadd(189.902, 78.978, 37.414, 1.166)
pt3dadd(189.944, 78.868, 37.433, 1.2)
pt3dadd(189.986, 78.758, 37.453, 1.236)
pt3dadd(190.028, 78.648, 37.472, 1.27)
pt3dadd(190.07, 78.538, 37.492, 1.306)
pt3dadd(190.112, 78.428, 37.511, 1.342)
pt3dadd(190.153, 78.317, 37.528, 1.342)
pt3dadd(190.194, 78.206, 37.544, 1.324)
pt3dadd(190.234, 78.094, 37.56, 1.306)
pt3dadd(190.274, 77.983, 37.575, 1.288)
pt3dadd(190.315, 77.871, 37.591, 1.268)
pt3dadd(190.356, 77.76, 37.606, 1.25)
pt3dadd(190.396, 77.649, 37.622, 1.232)
pt3dadd(190.436, 77.537, 37.638, 1.214)
pt3dadd(190.477, 77.426, 37.653, 1.194)
pt3dadd(190.517, 77.314, 37.669, 1.176)
pt3dadd(190.573, 77.219, 37.702, 1.166)
pt3dadd(190.64, 77.134, 37.747, 1.162)
pt3dadd(190.706, 77.05, 37.791, 1.158)
pt3dadd(190.772, 76.965, 37.835, 1.154)
pt3dadd(190.838, 76.88, 37.879, 1.15)
pt3dadd(190.906, 76.795, 37.923, 1.146)
pt3dadd(190.972, 76.71, 37.967, 1.142)
pt3dadd(191.038, 76.625, 38.011, 1.138)
pt3dadd(191.104, 76.54, 38.055, 1.134)
pt3dadd(191.171, 76.455, 38.099, 1.13)
pt3dadd(191.245, 76.376, 38.14, 1.13)
pt3dadd(191.322, 76.298, 38.181, 1.13)
pt3dadd(191.399, 76.219, 38.222, 1.13)
pt3dadd(191.476, 76.141, 38.263, 1.13)
pt3dadd(191.552, 76.063, 38.303, 1.13)
pt3dadd(191.629, 75.984, 38.344, 1.13)
pt3dadd(191.706, 75.906, 38.385, 1.13)
pt3dadd(191.783, 75.828, 38.425, 1.13)
pt3dadd(191.858, 75.749, 38.466, 1.13)
pt3dadd(191.935, 75.671, 38.507, 1.13)
pt3dadd(192.012, 75.59, 38.543, 1.128)
pt3dadd(192.089, 75.508, 38.579, 1.126)
pt3dadd(192.166, 75.427, 38.614, 1.122)
pt3dadd(192.242, 75.345, 38.65, 1.12)
pt3dadd(192.32, 75.264, 38.686, 1.118)
pt3dadd(192.397, 75.182, 38.722, 1.116)
pt3dadd(192.474, 75.1, 38.757, 1.114)
pt3dadd(192.551, 75.019, 38.793, 1.112)
pt3dadd(192.628, 74.937, 38.829, 1.108)
pt3dadd(192.704, 74.856, 38.865, 1.106)
pt3dadd(192.762, 74.766, 38.91, 1.092)
pt3dadd(192.82, 74.676, 38.956, 1.078)
pt3dadd(192.877, 74.587, 39.003, 1.062)
pt3dadd(192.934, 74.497, 39.049, 1.048)
pt3dadd(192.991, 74.407, 39.095, 1.032)
pt3dadd(193.048, 74.317, 39.141, 1.016)
pt3dadd(193.105, 74.228, 39.187, 1.002)
pt3dadd(193.163, 74.138, 39.234, 0.986)
pt3dadd(193.219, 74.048, 39.28, 0.972)
pt3dadd(193.277, 73.958, 39.326, 0.956)
pt3dadd(193.339, 73.864, 39.36, 0.924)
pt3dadd(193.402, 73.77, 39.394, 0.89)
pt3dadd(193.463, 73.676, 39.427, 0.856)
pt3dadd(193.525, 73.581, 39.461, 0.822)
pt3dadd(193.588, 73.487, 39.495, 0.79)
pt3dadd(193.65, 73.393, 39.528, 0.756)
pt3dadd(193.712, 73.298, 39.562, 0.722)
pt3dadd(193.775, 73.204, 39.595, 0.688)
pt3dadd(193.837, 73.11, 39.629, 0.654)
pt3dadd(193.9, 73.016, 39.662, 0.62)
pt3dadd(193.964, 72.92, 39.689, 0.584)
pt3dadd(194.03, 72.824, 39.715, 0.546)
pt3dadd(194.095, 72.728, 39.741, 0.51)
pt3dadd(194.16, 72.632, 39.767, 0.472)
pt3dadd(194.225, 72.537, 39.793, 0.436)
pt3dadd(194.29, 72.441, 39.82, 0.398)
pt3dadd(194.356, 72.345, 39.846, 0.362)
pt3dadd(194.42, 72.249, 39.872, 0.326)
pt3dadd(194.485, 72.153, 39.898, 0.288)
pt3dadd(194.55, 72.058, 39.925, 0.252)
pt3dadd(194.621, 71.964, 39.945, 0.278)
pt3dadd(194.692, 71.87, 39.965, 0.308)
pt3dadd(194.762, 71.776, 39.986, 0.336)
pt3dadd(194.833, 71.683, 40.006, 0.364)
pt3dadd(194.904, 71.589, 40.027, 0.392)
pt3dadd(194.975, 71.495, 40.047, 0.42)
pt3dadd(195.046, 71.401, 40.068, 0.45)
pt3dadd(195.116, 71.308, 40.088, 0.478)
pt3dadd(195.187, 71.214, 40.109, 0.506)
pt3dadd(195.258, 71.12, 40.129, 0.534)
pt3dadd(195.32, 71.024, 40.159, 0.564)
pt3dadd(195.383, 70.928, 40.189, 0.592)
pt3dadd(195.445, 70.832, 40.219, 0.622)
pt3dadd(195.506, 70.736, 40.249, 0.652)
pt3dadd(195.569, 70.64, 40.28, 0.68)
pt3dadd(195.631, 70.544, 40.31, 0.71)
pt3dadd(195.694, 70.448, 40.34, 0.74)
pt3dadd(195.756, 70.352, 40.37, 0.768)
}
}
proc shape3d_188() {
dend_7[33] { pt3dadd(195.817, 70.255, 40.4, 0.798)
pt3dadd(195.88, 70.159, 40.431, 0.826)
pt3dadd(195.931, 70.062, 40.47, 0.856)
pt3dadd(195.984, 69.966, 40.51, 0.886)
pt3dadd(196.037, 69.869, 40.549, 0.916)
pt3dadd(196.09, 69.772, 40.589, 0.946)
pt3dadd(196.142, 69.675, 40.629, 0.976)
pt3dadd(196.194, 69.578, 40.668, 1.006)
pt3dadd(196.247, 69.481, 40.708, 1.036)
pt3dadd(196.3, 69.384, 40.747, 1.066)
pt3dadd(196.352, 69.287, 40.787, 1.096)
pt3dadd(196.405, 69.191, 40.826, 1.124)
pt3dadd(196.469, 69.096, 40.857, 1.124)
pt3dadd(196.534, 69.002, 40.889, 1.124)
pt3dadd(196.597, 68.908, 40.921, 1.126)
pt3dadd(196.661, 68.814, 40.952, 1.126)
pt3dadd(196.724, 68.72, 40.984, 1.126)
pt3dadd(196.789, 68.625, 41.016, 1.128)
pt3dadd(196.853, 68.531, 41.047, 1.128)
pt3dadd(196.916, 68.437, 41.079, 1.128)
pt3dadd(196.98, 68.343, 41.111, 1.13)
pt3dadd(197.044, 68.249, 41.143, 1.13)
pt3dadd(197.101, 68.155, 41.182, 1.138)
pt3dadd(197.159, 68.061, 41.222, 1.146)
pt3dadd(197.216, 67.966, 41.261, 1.154)
pt3dadd(197.275, 67.872, 41.3, 1.162)
pt3dadd(197.333, 67.778, 41.339, 1.17)
pt3dadd(197.39, 67.684, 41.379, 1.178)
pt3dadd(197.448, 67.59, 41.418, 1.186)
pt3dadd(197.506, 67.496, 41.457, 1.194)
pt3dadd(197.563, 67.402, 41.497, 1.2)
pt3dadd(197.621, 67.308, 41.537, 1.21)
pt3dadd(197.675, 67.216, 41.583, 1.222)
pt3dadd(197.728, 67.125, 41.629, 1.236)
pt3dadd(197.782, 67.032, 41.675, 1.25)
pt3dadd(197.836, 66.94, 41.721, 1.264)
pt3dadd(197.888, 66.848, 41.767, 1.278)
pt3dadd(197.942, 66.756, 41.813, 1.29)
pt3dadd(197.996, 66.664, 41.859, 1.304)
pt3dadd(198.049, 66.572, 41.905, 1.318)
pt3dadd(198.103, 66.48, 41.951, 1.332)
pt3dadd(198.163, 66.392, 41.995, 1.34)
pt3dadd(198.253, 66.321, 42.024, 1.32)
pt3dadd(198.343, 66.249, 42.053, 1.302)
pt3dadd(198.433, 66.178, 42.082, 1.284)
pt3dadd(198.523, 66.107, 42.111, 1.264)
pt3dadd(198.613, 66.036, 42.14, 1.246)
pt3dadd(198.703, 65.964, 42.17, 1.228)
pt3dadd(198.793, 65.893, 42.199, 1.208)
pt3dadd(198.883, 65.822, 42.228, 1.19)
pt3dadd(198.973, 65.75, 42.257, 1.172)
pt3dadd(199.063, 65.678, 42.285, 1.152)
pt3dadd(199.153, 65.603, 42.304, 1.136)
pt3dadd(199.243, 65.527, 42.323, 1.118)
pt3dadd(199.333, 65.452, 42.342, 1.102)
pt3dadd(199.424, 65.376, 42.361, 1.084)
pt3dadd(199.514, 65.301, 42.381, 1.068)
pt3dadd(199.604, 65.225, 42.4, 1.05)
pt3dadd(199.694, 65.149, 42.419, 1.034)
pt3dadd(199.786, 65.074, 42.439, 1.016)
pt3dadd(199.876, 64.998, 42.458, 1)
pt3dadd(199.966, 64.922, 42.476, 0.986)
pt3dadd(200.056, 64.844, 42.491, 0.986)
pt3dadd(200.144, 64.766, 42.505, 0.984)
pt3dadd(200.234, 64.689, 42.52, 0.984)
pt3dadd(200.324, 64.611, 42.534, 0.984)
pt3dadd(200.413, 64.533, 42.549, 0.984)
pt3dadd(200.503, 64.455, 42.563, 0.984)
pt3dadd(200.593, 64.377, 42.577, 0.984)
pt3dadd(200.682, 64.299, 42.592, 0.984)
pt3dadd(200.772, 64.221, 42.606, 0.984)
pt3dadd(200.861, 64.143, 42.621, 0.986)
pt3dadd(200.95, 64.063, 42.635, 1)
pt3dadd(201.037, 63.983, 42.649, 1.014)
pt3dadd(201.126, 63.904, 42.663, 1.026)
pt3dadd(201.214, 63.824, 42.677, 1.04)
pt3dadd(201.301, 63.744, 42.691, 1.054)
pt3dadd(201.39, 63.664, 42.705, 1.066)
pt3dadd(201.478, 63.585, 42.719, 1.08)
pt3dadd(201.566, 63.505, 42.733, 1.092)
pt3dadd(201.654, 63.425, 42.748, 1.106)
pt3dadd(201.738, 63.346, 42.77, 1.112)
pt3dadd(201.808, 63.268, 42.819, 1.092)
pt3dadd(201.878, 63.191, 42.868, 1.07)
pt3dadd(201.948, 63.113, 42.917, 1.05)
pt3dadd(202.019, 63.035, 42.966, 1.03)
pt3dadd(202.088, 62.958, 43.015, 1.01)
pt3dadd(202.159, 62.88, 43.063, 0.99)
pt3dadd(202.229, 62.802, 43.112, 0.97)
pt3dadd(202.3, 62.725, 43.161, 0.948)
pt3dadd(202.369, 62.647, 43.21, 0.928)
pt3dadd(202.441, 62.568, 43.256, 0.912)
pt3dadd(202.516, 62.484, 43.29, 0.912)
pt3dadd(202.591, 62.4, 43.324, 0.912)
pt3dadd(202.666, 62.315, 43.358, 0.91)
pt3dadd(202.741, 62.231, 43.392, 0.91)
pt3dadd(202.816, 62.147, 43.426, 0.908)
pt3dadd(202.891, 62.062, 43.459, 0.908)
pt3dadd(202.967, 61.978, 43.493, 0.906)
pt3dadd(203.041, 61.894, 43.528, 0.906)
pt3dadd(203.117, 61.81, 43.561, 0.904)
pt3dadd(203.188, 61.722, 43.594, 0.894)
pt3dadd(203.249, 61.624, 43.622, 0.85)
pt3dadd(203.309, 61.526, 43.65, 0.806)
pt3dadd(203.37, 61.428, 43.678, 0.762)
pt3dadd(203.431, 61.33, 43.706, 0.718)
pt3dadd(203.491, 61.233, 43.734, 0.674)
pt3dadd(203.552, 61.135, 43.762, 0.63)
pt3dadd(203.612, 61.037, 43.791, 0.586)
pt3dadd(203.674, 60.939, 43.819, 0.542)
pt3dadd(203.734, 60.841, 43.847, 0.498)
pt3dadd(203.797, 60.746, 43.877, 0.466)
pt3dadd(203.868, 60.66, 43.915, 0.464)
pt3dadd(203.938, 60.573, 43.952, 0.462)
pt3dadd(204.008, 60.487, 43.989, 0.462)
pt3dadd(204.078, 60.401, 44.026, 0.46)
pt3dadd(204.149, 60.314, 44.063, 0.458)
pt3dadd(204.218, 60.228, 44.101, 0.456)
pt3dadd(204.289, 60.141, 44.138, 0.454)
pt3dadd(204.359, 60.055, 44.175, 0.454)
pt3dadd(204.43, 59.968, 44.212, 0.452)
pt3dadd(204.5, 59.883, 44.25, 0.468)
pt3dadd(204.574, 59.8, 44.289, 0.508)
pt3dadd(204.646, 59.717, 44.328, 0.546)
pt3dadd(204.719, 59.633, 44.367, 0.586)
pt3dadd(204.792, 59.55, 44.406, 0.624)
pt3dadd(204.864, 59.467, 44.445, 0.664)
pt3dadd(204.937, 59.383, 44.484, 0.702)
pt3dadd(205.009, 59.3, 44.523, 0.742)
pt3dadd(205.082, 59.217, 44.562, 0.78)
pt3dadd(205.154, 59.133, 44.601, 0.818)
pt3dadd(205.224, 59.044, 44.633, 0.85)
pt3dadd(205.289, 58.949, 44.66, 0.876)
pt3dadd(205.355, 58.854, 44.688, 0.9)
pt3dadd(205.421, 58.759, 44.715, 0.926)
pt3dadd(205.487, 58.664, 44.742, 0.95)
pt3dadd(205.553, 58.569, 44.77, 0.976)
pt3dadd(205.618, 58.474, 44.797, 1)
pt3dadd(205.684, 58.379, 44.824, 1.026)
pt3dadd(205.75, 58.284, 44.851, 1.05)
pt3dadd(205.816, 58.19, 44.879, 1.076)
pt3dadd(205.888, 58.098, 44.9, 1.076)
pt3dadd(205.964, 58.007, 44.917, 1.06)
pt3dadd(206.04, 57.917, 44.934, 1.042)
pt3dadd(206.117, 57.827, 44.951, 1.026)
pt3dadd(206.194, 57.737, 44.968, 1.01)
pt3dadd(206.27, 57.647, 44.985, 0.992)
pt3dadd(206.347, 57.557, 45.002, 0.976)
pt3dadd(206.423, 57.467, 45.019, 0.96)
pt3dadd(206.5, 57.377, 45.036, 0.942)
pt3dadd(206.576, 57.286, 45.053, 0.926)
pt3dadd(206.654, 57.197, 45.067, 0.91)
pt3dadd(206.735, 57.109, 45.077, 0.894)
pt3dadd(206.815, 57.02, 45.088, 0.878)
pt3dadd(206.894, 56.931, 45.099, 0.864)
pt3dadd(206.975, 56.843, 45.11, 0.848)
pt3dadd(207.054, 56.754, 45.12, 0.832)
pt3dadd(207.134, 56.666, 45.131, 0.816)
pt3dadd(207.215, 56.577, 45.142, 0.8)
pt3dadd(207.294, 56.489, 45.153, 0.786)
pt3dadd(207.374, 56.4, 45.164, 0.77)
pt3dadd(207.455, 56.315, 45.183, 0.754)
pt3dadd(207.538, 56.233, 45.21, 0.736)
pt3dadd(207.619, 56.152, 45.236, 0.718)
pt3dadd(207.701, 56.07, 45.262, 0.7)
pt3dadd(207.782, 55.988, 45.289, 0.682)
pt3dadd(207.864, 55.906, 45.315, 0.664)
pt3dadd(207.947, 55.824, 45.341, 0.646)
pt3dadd(208.028, 55.742, 45.368, 0.628)
pt3dadd(208.11, 55.661, 45.394, 0.61)
pt3dadd(208.192, 55.579, 45.42, 0.592)
pt3dadd(208.276, 55.504, 45.457, 0.578)
pt3dadd(208.36, 55.432, 45.495, 0.564)
pt3dadd(208.442, 55.36, 45.535, 0.55)
pt3dadd(208.526, 55.288, 45.573, 0.536)
pt3dadd(208.61, 55.216, 45.613, 0.524)
pt3dadd(208.694, 55.144, 45.652, 0.51)
pt3dadd(208.778, 55.072, 45.691, 0.496)
pt3dadd(208.861, 55, 45.73, 0.482)
pt3dadd(208.945, 54.928, 45.769, 0.468)
pt3dadd(209.029, 54.856, 45.808, 0.454)
pt3dadd(209.118, 54.783, 45.835, 0.454)
pt3dadd(209.208, 54.709, 45.86, 0.456)
pt3dadd(209.298, 54.636, 45.884, 0.458)
pt3dadd(209.389, 54.562, 45.909, 0.46)
pt3dadd(209.479, 54.489, 45.933, 0.462)
pt3dadd(209.569, 54.415, 45.958, 0.464)
pt3dadd(209.659, 54.342, 45.982, 0.466)
pt3dadd(209.749, 54.268, 46.007, 0.468)
pt3dadd(209.839, 54.195, 46.032, 0.472)
pt3dadd(209.929, 54.121, 46.056, 0.474)
pt3dadd(210.032, 54.063, 46.071, 0.518)
pt3dadd(210.138, 54.008, 46.083, 0.57)
pt3dadd(210.244, 53.953, 46.095, 0.624)
pt3dadd(210.349, 53.898, 46.108, 0.676)
pt3dadd(210.455, 53.843, 46.12, 0.73)
pt3dadd(210.56, 53.788, 46.133, 0.782)
pt3dadd(210.666, 53.733, 46.145, 0.836)
pt3dadd(210.772, 53.678, 46.158, 0.888)
pt3dadd(210.877, 53.623, 46.17, 0.942)
}
}
proc shape3d_189() {
dend_7[33] { pt3dadd(210.983, 53.568, 46.183, 0.996)
pt3dadd(211.085, 53.505, 46.189, 1.014)
pt3dadd(211.184, 53.439, 46.193, 1.028)
pt3dadd(211.285, 53.373, 46.198, 1.04)
pt3dadd(211.385, 53.307, 46.203, 1.052)
pt3dadd(211.486, 53.242, 46.208, 1.066)
pt3dadd(211.585, 53.176, 46.212, 1.078)
pt3dadd(211.686, 53.111, 46.217, 1.09)
pt3dadd(211.787, 53.045, 46.222, 1.102)
pt3dadd(211.886, 52.979, 46.226, 1.116)
pt3dadd(211.987, 52.914, 46.231, 1.128)
pt3dadd(212.084, 52.845, 46.235, 1.12)
pt3dadd(212.183, 52.775, 46.237, 1.106)
pt3dadd(212.28, 52.705, 46.241, 1.094)
pt3dadd(212.377, 52.635, 46.244, 1.082)
pt3dadd(212.476, 52.566, 46.247, 1.068)
pt3dadd(212.573, 52.496, 46.25, 1.056)
pt3dadd(212.67, 52.426, 46.253, 1.044)
pt3dadd(212.768, 52.356, 46.256, 1.032)
pt3dadd(212.866, 52.287, 46.259, 1.018)
pt3dadd(212.963, 52.217, 46.262, 1.006)
pt3dadd(213.059, 52.145, 46.267, 0.956)
pt3dadd(213.154, 52.072, 46.273, 0.9)
pt3dadd(213.248, 51.999, 46.278, 0.842)
pt3dadd(213.344, 51.926, 46.284, 0.786)
pt3dadd(213.439, 51.853, 46.29, 0.728)
pt3dadd(213.534, 51.78, 46.295, 0.672)
pt3dadd(213.629, 51.707, 46.301, 0.614)
pt3dadd(213.725, 51.634, 46.306, 0.558)
pt3dadd(213.82, 51.561, 46.312, 0.502)
pt3dadd(213.914, 51.489, 46.318, 0.444)
pt3dadd(214.009, 51.416, 46.325, 0.434)
pt3dadd(214.104, 51.343, 46.333, 0.43)
pt3dadd(214.199, 51.27, 46.341, 0.428)
pt3dadd(214.295, 51.197, 46.349, 0.424)
pt3dadd(214.39, 51.125, 46.357, 0.422)
pt3dadd(214.484, 51.052, 46.365, 0.418)
pt3dadd(214.579, 50.979, 46.373, 0.416)
pt3dadd(214.674, 50.906, 46.381, 0.412)
pt3dadd(214.769, 50.833, 46.389, 0.41)
pt3dadd(214.864, 50.761, 46.397, 0.406)
pt3dadd(214.96, 50.689, 46.407, 0.43)
pt3dadd(215.054, 50.618, 46.417, 0.458)
pt3dadd(215.15, 50.546, 46.428, 0.486)
pt3dadd(215.246, 50.475, 46.438, 0.514)
pt3dadd(215.342, 50.403, 46.449, 0.542)
pt3dadd(215.437, 50.332, 46.46, 0.57)
pt3dadd(215.533, 50.261, 46.47, 0.598)
pt3dadd(215.629, 50.189, 46.481, 0.626)
pt3dadd(215.724, 50.118, 46.491, 0.654)
pt3dadd(215.82, 50.047, 46.502, 0.682)
pt3dadd(215.924, 50.005, 46.535, 0.7)
pt3dadd(216.03, 49.967, 46.57, 0.716)
pt3dadd(216.136, 49.929, 46.605, 0.732)
pt3dadd(216.241, 49.891, 46.641, 0.746)
pt3dadd(216.347, 49.853, 46.676, 0.762)
pt3dadd(216.452, 49.815, 46.712, 0.778)
pt3dadd(216.558, 49.777, 46.747, 0.794)
pt3dadd(216.664, 49.739, 46.783, 0.81)
pt3dadd(216.769, 49.701, 46.818, 0.826)
pt3dadd(216.875, 49.662, 46.854, 0.842)
pt3dadd(216.985, 49.637, 46.884, 0.828)
pt3dadd(217.098, 49.614, 46.914, 0.812)
pt3dadd(217.21, 49.591, 46.944, 0.794)
pt3dadd(217.322, 49.567, 46.974, 0.776)
pt3dadd(217.434, 49.544, 47.003, 0.76)
pt3dadd(217.547, 49.521, 47.033, 0.742)
pt3dadd(217.658, 49.497, 47.063, 0.724)
pt3dadd(217.771, 49.474, 47.093, 0.708)
pt3dadd(217.883, 49.451, 47.122, 0.69)
pt3dadd(217.996, 49.427, 47.152, 0.674)
pt3dadd(218.112, 49.418, 47.172, 0.658)
pt3dadd(218.23, 49.41, 47.192, 0.642)
pt3dadd(218.347, 49.402, 47.211, 0.626)
pt3dadd(218.465, 49.394, 47.23, 0.61)
pt3dadd(218.582, 49.385, 47.25, 0.596)
pt3dadd(218.7, 49.377, 47.269, 0.58)
pt3dadd(218.816, 49.369, 47.289, 0.564)
pt3dadd(218.934, 49.361, 47.308, 0.548)
pt3dadd(219.052, 49.352, 47.327, 0.534)
pt3dadd(219.169, 49.344, 47.347, 0.518)
pt3dadd(219.288, 49.344, 47.357, 0.534)
pt3dadd(219.408, 49.344, 47.367, 0.55)
pt3dadd(219.527, 49.344, 47.377, 0.566)
pt3dadd(219.647, 49.344, 47.387, 0.582)
pt3dadd(219.766, 49.344, 47.396, 0.598)
pt3dadd(219.886, 49.344, 47.407, 0.614)
pt3dadd(220.004, 49.344, 47.416, 0.63)
pt3dadd(220.124, 49.344, 47.426, 0.646)
pt3dadd(220.243, 49.344, 47.436, 0.662)
pt3dadd(220.363, 49.344, 47.446, 0.678)
}
dend_7[34] {pt3dclear()
pt3dadd(164.356, 96.369, 31.071, 0.452)
pt3dadd(164.352, 96.341, 31.093, 0.448)
pt3dadd(164.342, 96.255, 31.163, 0.434)
pt3dadd(164.332, 96.169, 31.232, 0.422)
pt3dadd(164.322, 96.083, 31.302, 0.408)
pt3dadd(164.312, 95.997, 31.371, 0.396)
pt3dadd(164.303, 95.911, 31.44, 0.382)
pt3dadd(164.293, 95.826, 31.51, 0.368)
pt3dadd(164.282, 95.74, 31.579, 0.356)
pt3dadd(164.273, 95.654, 31.648, 0.342)
pt3dadd(164.263, 95.568, 31.718, 0.33)
pt3dadd(164.254, 95.482, 31.787, 0.316)
pt3dadd(164.244, 95.396, 31.857, 0.304)
pt3dadd(164.243, 95.295, 31.91, 0.314)
pt3dadd(164.243, 95.192, 31.961, 0.326)
pt3dadd(164.243, 95.089, 32.013, 0.338)
pt3dadd(164.243, 94.986, 32.064, 0.352)
pt3dadd(164.244, 94.884, 32.116, 0.364)
pt3dadd(164.244, 94.781, 32.168, 0.376)
pt3dadd(164.244, 94.678, 32.219, 0.39)
pt3dadd(164.244, 94.575, 32.271, 0.402)
pt3dadd(164.244, 94.473, 32.323, 0.414)
pt3dadd(164.249, 94.365, 32.365, 0.438)
pt3dadd(164.262, 94.249, 32.387, 0.484)
pt3dadd(164.276, 94.133, 32.409, 0.532)
pt3dadd(164.29, 94.017, 32.432, 0.578)
pt3dadd(164.304, 93.901, 32.454, 0.624)
pt3dadd(164.317, 93.785, 32.476, 0.672)
pt3dadd(164.332, 93.669, 32.499, 0.718)
pt3dadd(164.345, 93.552, 32.521, 0.764)
pt3dadd(164.359, 93.436, 32.543, 0.812)
pt3dadd(164.372, 93.32, 32.566, 0.858)
pt3dadd(164.387, 93.207, 32.594, 0.896)
pt3dadd(164.402, 93.098, 32.636, 0.914)
pt3dadd(164.417, 92.99, 32.677, 0.934)
pt3dadd(164.432, 92.882, 32.719, 0.952)
pt3dadd(164.447, 92.774, 32.761, 0.972)
pt3dadd(164.462, 92.666, 32.802, 0.99)
pt3dadd(164.477, 92.558, 32.844, 1.01)
pt3dadd(164.492, 92.45, 32.886, 1.028)
pt3dadd(164.507, 92.342, 32.927, 1.048)
pt3dadd(164.522, 92.234, 32.969, 1.066)
pt3dadd(164.544, 92.126, 33.007, 1.084)
pt3dadd(164.58, 92.017, 33.037, 1.102)
pt3dadd(164.617, 91.909, 33.067, 1.118)
pt3dadd(164.653, 91.801, 33.098, 1.134)
pt3dadd(164.69, 91.692, 33.128, 1.152)
pt3dadd(164.726, 91.584, 33.159, 1.168)
pt3dadd(164.764, 91.476, 33.189, 1.184)
pt3dadd(164.8, 91.367, 33.219, 1.202)
pt3dadd(164.837, 91.259, 33.25, 1.218)
pt3dadd(164.873, 91.151, 33.28, 1.234)
pt3dadd(164.911, 91.042, 33.307, 1.238)
pt3dadd(164.952, 90.933, 33.33, 1.224)
pt3dadd(164.993, 90.823, 33.354, 1.21)
pt3dadd(165.035, 90.714, 33.377, 1.196)
pt3dadd(165.076, 90.605, 33.4, 1.182)
pt3dadd(165.116, 90.495, 33.424, 1.166)
pt3dadd(165.157, 90.386, 33.447, 1.152)
pt3dadd(165.198, 90.277, 33.47, 1.138)
pt3dadd(165.239, 90.168, 33.494, 1.124)
pt3dadd(165.28, 90.058, 33.517, 1.11)
pt3dadd(165.317, 89.947, 33.538, 1.064)
pt3dadd(165.348, 89.834, 33.557, 0.98)
pt3dadd(165.38, 89.72, 33.575, 0.896)
pt3dadd(165.412, 89.607, 33.594, 0.81)
pt3dadd(165.444, 89.493, 33.613, 0.726)
pt3dadd(165.475, 89.379, 33.631, 0.642)
pt3dadd(165.508, 89.266, 33.65, 0.558)
pt3dadd(165.539, 89.152, 33.669, 0.472)
pt3dadd(165.571, 89.039, 33.687, 0.388)
pt3dadd(165.602, 88.925, 33.706, 0.304)
pt3dadd(165.63, 88.811, 33.723, 0.262)
pt3dadd(165.653, 88.694, 33.737, 0.276)
pt3dadd(165.676, 88.577, 33.752, 0.29)
pt3dadd(165.697, 88.461, 33.767, 0.304)
pt3dadd(165.72, 88.344, 33.781, 0.318)
pt3dadd(165.743, 88.228, 33.796, 0.33)
pt3dadd(165.764, 88.111, 33.81, 0.344)
pt3dadd(165.787, 87.994, 33.825, 0.358)
pt3dadd(165.81, 87.878, 33.84, 0.372)
pt3dadd(165.833, 87.761, 33.854, 0.386)
pt3dadd(165.852, 87.647, 33.877, 0.406)
pt3dadd(165.87, 87.535, 33.911, 0.434)
pt3dadd(165.887, 87.424, 33.945, 0.46)
pt3dadd(165.905, 87.312, 33.978, 0.488)
pt3dadd(165.922, 87.2, 34.012, 0.516)
pt3dadd(165.94, 87.089, 34.046, 0.544)
pt3dadd(165.956, 86.977, 34.079, 0.57)
pt3dadd(165.974, 86.865, 34.113, 0.598)
pt3dadd(165.991, 86.754, 34.147, 0.626)
pt3dadd(166.008, 86.642, 34.18, 0.652)
pt3dadd(166.028, 86.533, 34.218, 0.682)
pt3dadd(166.051, 86.426, 34.258, 0.714)
pt3dadd(166.074, 86.318, 34.299, 0.746)
pt3dadd(166.097, 86.211, 34.34, 0.78)
pt3dadd(166.121, 86.104, 34.38, 0.812)
pt3dadd(166.144, 85.997, 34.421, 0.844)
pt3dadd(166.166, 85.889, 34.462, 0.876)
pt3dadd(166.189, 85.782, 34.502, 0.908)
pt3dadd(166.212, 85.675, 34.543, 0.94)
pt3dadd(166.235, 85.568, 34.583, 0.972)
pt3dadd(166.272, 85.463, 34.619, 1.002)
pt3dadd(166.318, 85.359, 34.652, 1.034)
pt3dadd(166.363, 85.256, 34.685, 1.064)
pt3dadd(166.41, 85.152, 34.718, 1.096)
pt3dadd(166.456, 85.048, 34.751, 1.128)
pt3dadd(166.501, 84.945, 34.784, 1.158)
pt3dadd(166.547, 84.841, 34.817, 1.188)
}
}
proc shape3d_190() {
dend_7[34] { pt3dadd(166.594, 84.738, 34.849, 1.22)
pt3dadd(166.639, 84.634, 34.882, 1.252)
pt3dadd(166.685, 84.53, 34.915, 1.282)
pt3dadd(166.726, 84.428, 34.955, 1.29)
pt3dadd(166.763, 84.327, 34.998, 1.284)
pt3dadd(166.8, 84.225, 35.042, 1.278)
pt3dadd(166.837, 84.124, 35.086, 1.272)
pt3dadd(166.874, 84.022, 35.129, 1.266)
pt3dadd(166.912, 83.921, 35.173, 1.26)
pt3dadd(166.949, 83.82, 35.216, 1.254)
pt3dadd(166.986, 83.718, 35.26, 1.248)
pt3dadd(167.023, 83.617, 35.303, 1.242)
pt3dadd(167.06, 83.515, 35.347, 1.236)
pt3dadd(167.095, 83.412, 35.389, 1.224)
pt3dadd(167.129, 83.308, 35.43, 1.208)
pt3dadd(167.164, 83.205, 35.472, 1.192)
pt3dadd(167.197, 83.101, 35.513, 1.176)
pt3dadd(167.231, 82.997, 35.554, 1.16)
pt3dadd(167.266, 82.893, 35.595, 1.146)
pt3dadd(167.299, 82.789, 35.637, 1.13)
pt3dadd(167.333, 82.685, 35.678, 1.114)
pt3dadd(167.366, 82.581, 35.719, 1.098)
pt3dadd(167.401, 82.477, 35.761, 1.082)
pt3dadd(167.434, 82.369, 35.794, 1.066)
pt3dadd(167.465, 82.26, 35.825, 1.048)
pt3dadd(167.496, 82.15, 35.855, 1.032)
pt3dadd(167.528, 82.04, 35.885, 1.014)
pt3dadd(167.56, 81.93, 35.916, 0.998)
pt3dadd(167.591, 81.82, 35.946, 0.982)
pt3dadd(167.623, 81.71, 35.976, 0.964)
pt3dadd(167.654, 81.6, 36.007, 0.948)
pt3dadd(167.686, 81.49, 36.037, 0.93)
pt3dadd(167.717, 81.38, 36.067, 0.914)
pt3dadd(167.766, 81.275, 36.092, 0.896)
pt3dadd(167.822, 81.173, 36.114, 0.88)
pt3dadd(167.879, 81.07, 36.135, 0.864)
pt3dadd(167.936, 80.968, 36.157, 0.848)
pt3dadd(167.993, 80.865, 36.179, 0.83)
pt3dadd(168.049, 80.763, 36.201, 0.814)
pt3dadd(168.106, 80.66, 36.223, 0.798)
pt3dadd(168.162, 80.558, 36.244, 0.782)
pt3dadd(168.22, 80.455, 36.266, 0.764)
pt3dadd(168.276, 80.353, 36.288, 0.748)
pt3dadd(168.331, 80.252, 36.317, 0.752)
pt3dadd(168.386, 80.153, 36.349, 0.766)
pt3dadd(168.44, 80.053, 36.381, 0.78)
pt3dadd(168.496, 79.953, 36.413, 0.794)
pt3dadd(168.55, 79.854, 36.445, 0.808)
pt3dadd(168.605, 79.754, 36.477, 0.822)
pt3dadd(168.659, 79.655, 36.509, 0.834)
pt3dadd(168.714, 79.555, 36.542, 0.848)
pt3dadd(168.769, 79.455, 36.574, 0.862)
pt3dadd(168.823, 79.356, 36.606, 0.876)
pt3dadd(168.884, 79.261, 36.641, 0.888)
pt3dadd(168.947, 79.169, 36.678, 0.9)
pt3dadd(169.009, 79.077, 36.715, 0.91)
pt3dadd(169.072, 78.984, 36.752, 0.922)
pt3dadd(169.135, 78.892, 36.789, 0.932)
pt3dadd(169.198, 78.8, 36.825, 0.944)
pt3dadd(169.26, 78.708, 36.862, 0.954)
pt3dadd(169.322, 78.615, 36.899, 0.966)
pt3dadd(169.386, 78.523, 36.936, 0.976)
pt3dadd(169.448, 78.431, 36.972, 0.988)
pt3dadd(169.535, 78.356, 37.002, 0.944)
pt3dadd(169.625, 78.284, 37.03, 0.89)
pt3dadd(169.714, 78.212, 37.059, 0.838)
pt3dadd(169.804, 78.14, 37.087, 0.784)
pt3dadd(169.894, 78.069, 37.116, 0.732)
pt3dadd(169.984, 77.997, 37.144, 0.678)
pt3dadd(170.074, 77.925, 37.173, 0.626)
pt3dadd(170.164, 77.853, 37.201, 0.572)
pt3dadd(170.252, 77.781, 37.229, 0.52)
pt3dadd(170.342, 77.709, 37.258, 0.466)
pt3dadd(170.432, 77.633, 37.277, 0.474)
pt3dadd(170.522, 77.556, 37.294, 0.49)
pt3dadd(170.612, 77.479, 37.311, 0.508)
pt3dadd(170.701, 77.402, 37.328, 0.524)
pt3dadd(170.791, 77.325, 37.345, 0.54)
pt3dadd(170.881, 77.248, 37.363, 0.558)
pt3dadd(170.971, 77.171, 37.38, 0.574)
pt3dadd(171.061, 77.094, 37.397, 0.592)
pt3dadd(171.15, 77.017, 37.414, 0.608)
pt3dadd(171.24, 76.94, 37.431, 0.624)
pt3dadd(171.329, 76.861, 37.444, 0.65)
pt3dadd(171.418, 76.781, 37.457, 0.678)
pt3dadd(171.505, 76.702, 37.47, 0.704)
pt3dadd(171.594, 76.622, 37.482, 0.73)
pt3dadd(171.683, 76.542, 37.494, 0.758)
pt3dadd(171.772, 76.463, 37.507, 0.784)
pt3dadd(171.859, 76.383, 37.52, 0.812)
pt3dadd(171.948, 76.303, 37.532, 0.838)
pt3dadd(172.037, 76.224, 37.545, 0.864)
pt3dadd(172.126, 76.144, 37.557, 0.892)
pt3dadd(172.21, 76.062, 37.576, 0.898)
pt3dadd(172.294, 75.98, 37.595, 0.902)
pt3dadd(172.378, 75.897, 37.615, 0.904)
pt3dadd(172.462, 75.815, 37.635, 0.908)
pt3dadd(172.546, 75.733, 37.655, 0.912)
pt3dadd(172.63, 75.65, 37.674, 0.914)
pt3dadd(172.714, 75.568, 37.694, 0.918)
pt3dadd(172.798, 75.486, 37.714, 0.92)
pt3dadd(172.882, 75.403, 37.733, 0.924)
pt3dadd(172.966, 75.321, 37.754, 0.926)
pt3dadd(173.034, 75.237, 37.798, 0.864)
pt3dadd(173.102, 75.154, 37.841, 0.802)
pt3dadd(173.17, 75.07, 37.886, 0.738)
pt3dadd(173.238, 74.986, 37.929, 0.676)
pt3dadd(173.305, 74.903, 37.973, 0.614)
pt3dadd(173.374, 74.819, 38.017, 0.552)
pt3dadd(173.442, 74.736, 38.061, 0.49)
pt3dadd(173.509, 74.652, 38.105, 0.426)
pt3dadd(173.578, 74.568, 38.149, 0.364)
pt3dadd(173.646, 74.484, 38.192, 0.308)
pt3dadd(173.714, 74.391, 38.22, 0.364)
pt3dadd(173.783, 74.298, 38.247, 0.42)
pt3dadd(173.85, 74.205, 38.274, 0.474)
pt3dadd(173.918, 74.112, 38.301, 0.53)
pt3dadd(173.987, 74.019, 38.328, 0.586)
pt3dadd(174.055, 73.926, 38.356, 0.642)
pt3dadd(174.124, 73.832, 38.383, 0.698)
pt3dadd(174.192, 73.739, 38.41, 0.754)
pt3dadd(174.26, 73.646, 38.437, 0.81)
pt3dadd(174.328, 73.552, 38.464, 0.862)
pt3dadd(174.372, 73.443, 38.48, 0.866)
pt3dadd(174.416, 73.333, 38.496, 0.87)
pt3dadd(174.461, 73.223, 38.512, 0.876)
pt3dadd(174.506, 73.113, 38.528, 0.88)
pt3dadd(174.551, 73.004, 38.543, 0.884)
pt3dadd(174.595, 72.894, 38.559, 0.888)
pt3dadd(174.64, 72.784, 38.575, 0.892)
pt3dadd(174.684, 72.674, 38.591, 0.896)
pt3dadd(174.73, 72.565, 38.607, 0.9)
pt3dadd(174.773, 72.454, 38.622, 0.904)
pt3dadd(174.808, 72.34, 38.632, 0.904)
pt3dadd(174.842, 72.226, 38.641, 0.904)
pt3dadd(174.876, 72.111, 38.651, 0.904)
pt3dadd(174.911, 71.997, 38.66, 0.904)
pt3dadd(174.946, 71.883, 38.67, 0.904)
pt3dadd(174.98, 71.768, 38.679, 0.904)
pt3dadd(175.014, 71.654, 38.688, 0.904)
pt3dadd(175.049, 71.539, 38.698, 0.904)
pt3dadd(175.084, 71.425, 38.707, 0.904)
pt3dadd(175.118, 71.311, 38.716, 0.902)
pt3dadd(175.162, 71.199, 38.726, 0.888)
pt3dadd(175.205, 71.088, 38.735, 0.872)
pt3dadd(175.247, 70.976, 38.745, 0.856)
pt3dadd(175.29, 70.865, 38.754, 0.84)
pt3dadd(175.332, 70.753, 38.763, 0.824)
pt3dadd(175.375, 70.642, 38.773, 0.81)
pt3dadd(175.418, 70.53, 38.782, 0.794)
pt3dadd(175.46, 70.418, 38.792, 0.778)
pt3dadd(175.504, 70.307, 38.801, 0.762)
pt3dadd(175.548, 70.196, 38.811, 0.744)
pt3dadd(175.603, 70.091, 38.827, 0.714)
pt3dadd(175.658, 69.986, 38.842, 0.686)
pt3dadd(175.712, 69.881, 38.857, 0.654)
pt3dadd(175.768, 69.776, 38.873, 0.626)
pt3dadd(175.823, 69.671, 38.888, 0.596)
pt3dadd(175.877, 69.566, 38.903, 0.566)
pt3dadd(175.932, 69.46, 38.919, 0.536)
pt3dadd(175.987, 69.355, 38.934, 0.506)
pt3dadd(176.042, 69.25, 38.949, 0.476)
pt3dadd(176.095, 69.146, 38.97, 0.452)
pt3dadd(176.141, 69.046, 39.01, 0.452)
pt3dadd(176.186, 68.946, 39.05, 0.452)
pt3dadd(176.233, 68.846, 39.09, 0.452)
pt3dadd(176.279, 68.746, 39.13, 0.452)
pt3dadd(176.324, 68.646, 39.169, 0.452)
pt3dadd(176.371, 68.546, 39.209, 0.452)
pt3dadd(176.417, 68.446, 39.249, 0.452)
pt3dadd(176.462, 68.346, 39.289, 0.452)
pt3dadd(176.508, 68.247, 39.329, 0.452)
pt3dadd(176.561, 68.15, 39.368, 0.452)
pt3dadd(176.636, 68.067, 39.402, 0.452)
pt3dadd(176.713, 67.983, 39.436, 0.452)
pt3dadd(176.789, 67.9, 39.47, 0.452)
pt3dadd(176.866, 67.817, 39.503, 0.452)
pt3dadd(176.941, 67.733, 39.537, 0.452)
pt3dadd(177.018, 67.65, 39.571, 0.452)
pt3dadd(177.094, 67.567, 39.605, 0.452)
pt3dadd(177.17, 67.483, 39.639, 0.452)
pt3dadd(177.246, 67.4, 39.673, 0.452)
pt3dadd(177.319, 67.313, 39.704, 0.462)
pt3dadd(177.386, 67.218, 39.73, 0.494)
pt3dadd(177.452, 67.123, 39.757, 0.524)
pt3dadd(177.518, 67.029, 39.783, 0.556)
pt3dadd(177.586, 66.934, 39.809, 0.588)
pt3dadd(177.652, 66.839, 39.835, 0.62)
pt3dadd(177.719, 66.744, 39.861, 0.65)
pt3dadd(177.785, 66.649, 39.887, 0.682)
pt3dadd(177.852, 66.554, 39.913, 0.714)
pt3dadd(177.918, 66.46, 39.939, 0.746)
pt3dadd(177.985, 66.364, 39.962, 0.774)
pt3dadd(178.055, 66.268, 39.979, 0.802)
pt3dadd(178.123, 66.172, 39.995, 0.828)
pt3dadd(178.192, 66.076, 40.012, 0.854)
pt3dadd(178.261, 65.979, 40.028, 0.882)
pt3dadd(178.33, 65.883, 40.045, 0.908)
pt3dadd(178.399, 65.787, 40.062, 0.934)
pt3dadd(178.468, 65.691, 40.078, 0.962)
}
}
proc shape3d_191() {
dend_7[34] { pt3dadd(178.536, 65.594, 40.095, 0.988)
pt3dadd(178.606, 65.498, 40.112, 1.014)
pt3dadd(178.674, 65.404, 40.135, 1.034)
pt3dadd(178.741, 65.313, 40.168, 1.044)
pt3dadd(178.807, 65.221, 40.2, 1.054)
pt3dadd(178.874, 65.129, 40.232, 1.066)
pt3dadd(178.942, 65.038, 40.265, 1.076)
pt3dadd(179.009, 64.946, 40.297, 1.086)
pt3dadd(179.076, 64.855, 40.33, 1.096)
pt3dadd(179.143, 64.763, 40.362, 1.106)
pt3dadd(179.21, 64.672, 40.395, 1.116)
pt3dadd(179.278, 64.58, 40.427, 1.126)
pt3dadd(179.342, 64.492, 40.468, 1.108)
pt3dadd(179.406, 64.406, 40.513, 1.074)
pt3dadd(179.47, 64.32, 40.558, 1.042)
pt3dadd(179.532, 64.233, 40.604, 1.008)
pt3dadd(179.596, 64.147, 40.649, 0.974)
pt3dadd(179.659, 64.061, 40.694, 0.942)
pt3dadd(179.722, 63.975, 40.739, 0.908)
pt3dadd(179.785, 63.888, 40.785, 0.874)
pt3dadd(179.849, 63.802, 40.83, 0.84)
pt3dadd(179.912, 63.716, 40.875, 0.808)
pt3dadd(179.977, 63.625, 40.912, 0.768)
pt3dadd(180.042, 63.532, 40.944, 0.726)
pt3dadd(180.108, 63.44, 40.977, 0.684)
pt3dadd(180.173, 63.347, 41.01, 0.642)
pt3dadd(180.238, 63.254, 41.042, 0.6)
pt3dadd(180.304, 63.162, 41.075, 0.56)
pt3dadd(180.368, 63.069, 41.108, 0.518)
pt3dadd(180.434, 62.976, 41.14, 0.476)
pt3dadd(180.499, 62.883, 41.173, 0.434)
pt3dadd(180.565, 62.791, 41.206, 0.392)
pt3dadd(180.616, 62.689, 41.237, 0.42)
pt3dadd(180.662, 62.586, 41.269, 0.47)
pt3dadd(180.71, 62.482, 41.3, 0.518)
pt3dadd(180.757, 62.378, 41.331, 0.568)
pt3dadd(180.804, 62.274, 41.362, 0.616)
pt3dadd(180.851, 62.17, 41.393, 0.664)
pt3dadd(180.898, 62.066, 41.424, 0.714)
pt3dadd(180.944, 61.962, 41.456, 0.762)
pt3dadd(180.991, 61.858, 41.487, 0.812)
pt3dadd(181.038, 61.754, 41.518, 0.86)
pt3dadd(181.086, 61.66, 41.565, 0.856)
pt3dadd(181.135, 61.568, 41.615, 0.84)
pt3dadd(181.183, 61.476, 41.664, 0.824)
pt3dadd(181.231, 61.384, 41.714, 0.808)
pt3dadd(181.279, 61.292, 41.764, 0.792)
pt3dadd(181.327, 61.2, 41.814, 0.776)
pt3dadd(181.376, 61.107, 41.864, 0.76)
pt3dadd(181.424, 61.015, 41.914, 0.746)
pt3dadd(181.472, 60.923, 41.964, 0.73)
pt3dadd(181.52, 60.831, 42.014, 0.714)
pt3dadd(181.585, 60.738, 42.045, 0.73)
pt3dadd(181.652, 60.645, 42.075, 0.748)
pt3dadd(181.72, 60.552, 42.105, 0.768)
pt3dadd(181.787, 60.459, 42.134, 0.786)
pt3dadd(181.854, 60.366, 42.164, 0.806)
pt3dadd(181.921, 60.273, 42.194, 0.826)
pt3dadd(181.988, 60.18, 42.223, 0.844)
pt3dadd(182.056, 60.087, 42.253, 0.864)
pt3dadd(182.123, 59.994, 42.282, 0.882)
pt3dadd(182.19, 59.902, 42.312, 0.902)
pt3dadd(182.25, 59.801, 42.332, 0.986)
pt3dadd(182.31, 59.699, 42.351, 1.08)
pt3dadd(182.37, 59.598, 42.37, 1.172)
pt3dadd(182.429, 59.496, 42.389, 1.264)
pt3dadd(182.489, 59.395, 42.408, 1.356)
pt3dadd(182.549, 59.293, 42.427, 1.45)
pt3dadd(182.609, 59.192, 42.446, 1.542)
pt3dadd(182.669, 59.09, 42.465, 1.634)
pt3dadd(182.728, 58.989, 42.484, 1.726)
pt3dadd(182.788, 58.887, 42.503, 1.82)
pt3dadd(182.86, 58.792, 42.516, 1.792)
pt3dadd(182.933, 58.698, 42.528, 1.752)
pt3dadd(183.006, 58.604, 42.541, 1.712)
pt3dadd(183.079, 58.51, 42.553, 1.672)
pt3dadd(183.151, 58.416, 42.565, 1.632)
pt3dadd(183.224, 58.322, 42.577, 1.592)
pt3dadd(183.298, 58.228, 42.59, 1.552)
pt3dadd(183.371, 58.134, 42.602, 1.512)
pt3dadd(183.444, 58.04, 42.614, 1.472)
pt3dadd(183.517, 57.946, 42.627, 1.432)
pt3dadd(183.599, 57.862, 42.646, 1.39)
pt3dadd(183.682, 57.778, 42.665, 1.346)
pt3dadd(183.764, 57.694, 42.684, 1.304)
pt3dadd(183.847, 57.61, 42.703, 1.262)
pt3dadd(183.93, 57.527, 42.722, 1.218)
pt3dadd(184.013, 57.443, 42.742, 1.176)
pt3dadd(184.096, 57.359, 42.761, 1.132)
pt3dadd(184.178, 57.275, 42.78, 1.09)
pt3dadd(184.261, 57.192, 42.799, 1.046)
pt3dadd(184.345, 57.11, 42.82, 1.01)
pt3dadd(184.438, 57.046, 42.857, 1.044)
pt3dadd(184.529, 56.983, 42.893, 1.076)
pt3dadd(184.621, 56.92, 42.93, 1.108)
pt3dadd(184.712, 56.856, 42.967, 1.14)
pt3dadd(184.805, 56.793, 43.004, 1.172)
pt3dadd(184.897, 56.73, 43.04, 1.204)
pt3dadd(184.988, 56.667, 43.077, 1.236)
pt3dadd(185.081, 56.603, 43.114, 1.268)
pt3dadd(185.172, 56.54, 43.151, 1.3)
pt3dadd(185.264, 56.476, 43.186, 1.328)
pt3dadd(185.356, 56.403, 43.209, 1.318)
pt3dadd(185.448, 56.331, 43.232, 1.306)
pt3dadd(185.539, 56.259, 43.256, 1.296)
pt3dadd(185.63, 56.186, 43.279, 1.284)
pt3dadd(185.723, 56.114, 43.302, 1.272)
pt3dadd(185.814, 56.042, 43.325, 1.262)
pt3dadd(185.905, 55.969, 43.348, 1.25)
pt3dadd(185.998, 55.897, 43.371, 1.24)
pt3dadd(186.089, 55.825, 43.395, 1.228)
pt3dadd(186.18, 55.752, 43.417, 1.218)
pt3dadd(186.269, 55.674, 43.435, 1.208)
pt3dadd(186.359, 55.597, 43.453, 1.2)
pt3dadd(186.448, 55.519, 43.471, 1.19)
pt3dadd(186.536, 55.442, 43.489, 1.182)
pt3dadd(186.625, 55.364, 43.507, 1.172)
pt3dadd(186.714, 55.287, 43.525, 1.164)
pt3dadd(186.804, 55.209, 43.543, 1.156)
pt3dadd(186.893, 55.131, 43.56, 1.146)
pt3dadd(186.982, 55.054, 43.578, 1.138)
pt3dadd(187.07, 54.976, 43.595, 1.13)
pt3dadd(187.156, 54.892, 43.608, 1.13)
pt3dadd(187.241, 54.809, 43.619, 1.13)
pt3dadd(187.326, 54.726, 43.631, 1.13)
pt3dadd(187.41, 54.642, 43.643, 1.13)
pt3dadd(187.495, 54.559, 43.655, 1.13)
pt3dadd(187.58, 54.475, 43.667, 1.13)
pt3dadd(187.666, 54.392, 43.679, 1.13)
pt3dadd(187.751, 54.309, 43.691, 1.13)
pt3dadd(187.836, 54.225, 43.703, 1.13)
pt3dadd(187.918, 54.139, 43.715, 1.13)
pt3dadd(187.978, 54.036, 43.722, 1.13)
pt3dadd(188.039, 53.933, 43.73, 1.13)
pt3dadd(188.099, 53.829, 43.738, 1.13)
pt3dadd(188.159, 53.726, 43.745, 1.13)
pt3dadd(188.219, 53.622, 43.753, 1.13)
pt3dadd(188.279, 53.519, 43.761, 1.13)
pt3dadd(188.339, 53.415, 43.768, 1.13)
pt3dadd(188.399, 53.312, 43.776, 1.13)
pt3dadd(188.46, 53.209, 43.783, 1.13)
pt3dadd(188.521, 53.106, 43.792, 1.122)
pt3dadd(188.593, 53.012, 43.804, 1.064)
pt3dadd(188.666, 52.917, 43.817, 1.008)
pt3dadd(188.738, 52.823, 43.829, 0.952)
pt3dadd(188.81, 52.728, 43.841, 0.894)
pt3dadd(188.882, 52.633, 43.854, 0.838)
pt3dadd(188.954, 52.539, 43.866, 0.782)
pt3dadd(189.028, 52.444, 43.878, 0.724)
pt3dadd(189.1, 52.349, 43.891, 0.668)
pt3dadd(189.172, 52.254, 43.903, 0.612)
pt3dadd(189.241, 52.159, 43.92, 0.568)
pt3dadd(189.299, 52.062, 43.955, 0.57)
pt3dadd(189.356, 51.966, 43.989, 0.57)
pt3dadd(189.414, 51.869, 44.023, 0.572)
pt3dadd(189.472, 51.772, 44.057, 0.574)
pt3dadd(189.529, 51.675, 44.092, 0.576)
pt3dadd(189.587, 51.578, 44.126, 0.578)
pt3dadd(189.644, 51.481, 44.16, 0.578)
pt3dadd(189.702, 51.385, 44.195, 0.58)
pt3dadd(189.76, 51.288, 44.229, 0.582)
pt3dadd(189.808, 51.187, 44.265, 0.602)
pt3dadd(189.844, 51.082, 44.303, 0.642)
pt3dadd(189.88, 50.977, 44.341, 0.684)
pt3dadd(189.916, 50.872, 44.379, 0.724)
pt3dadd(189.952, 50.767, 44.417, 0.764)
pt3dadd(189.988, 50.662, 44.455, 0.806)
pt3dadd(190.024, 50.557, 44.493, 0.846)
pt3dadd(190.06, 50.452, 44.532, 0.888)
pt3dadd(190.096, 50.347, 44.57, 0.928)
pt3dadd(190.132, 50.242, 44.608, 0.968)
pt3dadd(190.165, 50.134, 44.639, 0.996)
pt3dadd(190.198, 50.023, 44.665, 1.01)
pt3dadd(190.23, 49.912, 44.691, 1.024)
pt3dadd(190.262, 49.8, 44.717, 1.038)
pt3dadd(190.295, 49.689, 44.743, 1.052)
pt3dadd(190.327, 49.578, 44.769, 1.066)
pt3dadd(190.36, 49.467, 44.795, 1.08)
pt3dadd(190.392, 49.355, 44.821, 1.096)
pt3dadd(190.424, 49.244, 44.847, 1.11)
pt3dadd(190.457, 49.133, 44.873, 1.124)
pt3dadd(190.495, 49.022, 44.894, 1.13)
pt3dadd(190.54, 48.912, 44.911, 1.13)
pt3dadd(190.584, 48.803, 44.927, 1.13)
pt3dadd(190.627, 48.693, 44.944, 1.13)
pt3dadd(190.672, 48.583, 44.961, 1.13)
pt3dadd(190.716, 48.473, 44.978, 1.13)
pt3dadd(190.759, 48.363, 44.994, 1.13)
pt3dadd(190.804, 48.254, 45.011, 1.13)
pt3dadd(190.848, 48.144, 45.028, 1.13)
pt3dadd(190.892, 48.034, 45.044, 1.13)
pt3dadd(190.928, 47.921, 45.058, 1.114)
pt3dadd(190.96, 47.806, 45.071, 1.084)
pt3dadd(190.991, 47.691, 45.083, 1.054)
pt3dadd(191.022, 47.576, 45.095, 1.024)
pt3dadd(191.053, 47.461, 45.107, 0.996)
pt3dadd(191.083, 47.346, 45.119, 0.966)
pt3dadd(191.114, 47.231, 45.131, 0.936)
pt3dadd(191.146, 47.116, 45.144, 0.906)
pt3dadd(191.177, 47.001, 45.156, 0.876)
}
}
proc shape3d_192() {
dend_7[34] { pt3dadd(191.208, 46.886, 45.168, 0.848)
pt3dadd(191.233, 46.772, 45.188, 0.814)
pt3dadd(191.252, 46.658, 45.214, 0.78)
pt3dadd(191.273, 46.544, 45.239, 0.746)
pt3dadd(191.293, 46.429, 45.265, 0.712)
pt3dadd(191.314, 46.315, 45.291, 0.678)
pt3dadd(191.334, 46.201, 45.317, 0.644)
pt3dadd(191.354, 46.087, 45.343, 0.61)
pt3dadd(191.375, 45.973, 45.369, 0.576)
pt3dadd(191.395, 45.859, 45.395, 0.542)
pt3dadd(191.414, 45.745, 45.42, 0.508)
pt3dadd(191.429, 45.632, 45.453, 0.478)
pt3dadd(191.44, 45.52, 45.488, 0.452)
pt3dadd(191.449, 45.408, 45.523, 0.424)
pt3dadd(191.46, 45.296, 45.558, 0.398)
pt3dadd(191.471, 45.185, 45.593, 0.37)
pt3dadd(191.48, 45.073, 45.628, 0.344)
pt3dadd(191.491, 44.961, 45.664, 0.316)
pt3dadd(191.502, 44.849, 45.699, 0.288)
pt3dadd(191.513, 44.737, 45.734, 0.262)
pt3dadd(191.522, 44.625, 45.769, 0.234)
pt3dadd(191.526, 44.51, 45.797, 0.226)
pt3dadd(191.527, 44.394, 45.822, 0.226)
pt3dadd(191.528, 44.278, 45.847, 0.226)
pt3dadd(191.53, 44.162, 45.871, 0.226)
pt3dadd(191.53, 44.045, 45.896, 0.226)
pt3dadd(191.531, 43.929, 45.921, 0.226)
pt3dadd(191.532, 43.813, 45.945, 0.226)
pt3dadd(191.532, 43.697, 45.97, 0.226)
pt3dadd(191.533, 43.58, 45.995, 0.226)
pt3dadd(191.534, 43.464, 46.02, 0.226)
pt3dadd(191.536, 43.346, 46.037, 0.248)
pt3dadd(191.537, 43.227, 46.051, 0.28)
pt3dadd(191.539, 43.109, 46.065, 0.312)
pt3dadd(191.54, 42.99, 46.08, 0.344)
pt3dadd(191.543, 42.871, 46.094, 0.376)
pt3dadd(191.544, 42.752, 46.108, 0.408)
pt3dadd(191.545, 42.633, 46.122, 0.44)
pt3dadd(191.548, 42.515, 46.136, 0.47)
pt3dadd(191.549, 42.396, 46.15, 0.502)
pt3dadd(191.551, 42.277, 46.164, 0.534)
pt3dadd(191.554, 42.158, 46.173, 0.538)
pt3dadd(191.556, 42.038, 46.18, 0.528)
pt3dadd(191.56, 41.918, 46.187, 0.518)
pt3dadd(191.563, 41.799, 46.194, 0.508)
pt3dadd(191.566, 41.679, 46.2, 0.498)
pt3dadd(191.569, 41.559, 46.207, 0.488)
pt3dadd(191.572, 41.439, 46.214, 0.478)
pt3dadd(191.575, 41.32, 46.22, 0.468)
pt3dadd(191.579, 41.2, 46.227, 0.458)
pt3dadd(191.581, 41.08, 46.234, 0.448)
pt3dadd(191.587, 40.961, 46.239, 0.436)
pt3dadd(191.593, 40.841, 46.244, 0.422)
pt3dadd(191.599, 40.721, 46.25, 0.408)
pt3dadd(191.605, 40.602, 46.255, 0.394)
pt3dadd(191.611, 40.482, 46.26, 0.38)
pt3dadd(191.617, 40.362, 46.265, 0.364)
pt3dadd(191.623, 40.243, 46.27, 0.35)
pt3dadd(191.629, 40.123, 46.275, 0.336)
pt3dadd(191.635, 40.003, 46.28, 0.322)
pt3dadd(191.641, 39.883, 46.285, 0.308)
pt3dadd(191.651, 39.764, 46.294, 0.322)
pt3dadd(191.663, 39.645, 46.303, 0.346)
pt3dadd(191.674, 39.527, 46.313, 0.372)
pt3dadd(191.686, 39.408, 46.322, 0.396)
pt3dadd(191.696, 39.289, 46.332, 0.42)
pt3dadd(191.708, 39.17, 46.341, 0.444)
pt3dadd(191.72, 39.051, 46.351, 0.468)
pt3dadd(191.731, 38.932, 46.361, 0.494)
pt3dadd(191.743, 38.813, 46.37, 0.518)
pt3dadd(191.754, 38.694, 46.38, 0.542)
pt3dadd(191.774, 38.578, 46.396, 0.58)
pt3dadd(191.798, 38.463, 46.416, 0.622)
pt3dadd(191.821, 38.347, 46.436, 0.664)
pt3dadd(191.845, 38.232, 46.455, 0.706)
pt3dadd(191.868, 38.117, 46.474, 0.748)
pt3dadd(191.892, 38.001, 46.494, 0.79)
pt3dadd(191.915, 37.886, 46.514, 0.832)
pt3dadd(191.939, 37.771, 46.533, 0.874)
pt3dadd(191.962, 37.655, 46.553, 0.916)
pt3dadd(191.986, 37.54, 46.572, 0.958)
pt3dadd(192.044, 37.455, 46.621, 0.984)
pt3dadd(192.106, 37.372, 46.672, 1.008)
pt3dadd(192.167, 37.288, 46.723, 1.034)
pt3dadd(192.228, 37.205, 46.774, 1.058)
pt3dadd(192.289, 37.122, 46.825, 1.084)
pt3dadd(192.349, 37.039, 46.876, 1.108)
pt3dadd(192.41, 36.955, 46.927, 1.134)
pt3dadd(192.472, 36.872, 46.978, 1.158)
pt3dadd(192.533, 36.789, 47.029, 1.184)
pt3dadd(192.594, 36.706, 47.08, 1.208)
pt3dadd(192.638, 36.603, 47.117, 1.11)
pt3dadd(192.682, 36.5, 47.153, 1.012)
pt3dadd(192.726, 36.398, 47.19, 0.914)
pt3dadd(192.77, 36.295, 47.226, 0.816)
pt3dadd(192.815, 36.193, 47.263, 0.716)
pt3dadd(192.858, 36.09, 47.3, 0.618)
pt3dadd(192.902, 35.987, 47.336, 0.52)
pt3dadd(192.947, 35.885, 47.373, 0.422)
pt3dadd(192.99, 35.782, 47.41, 0.324)
pt3dadd(193.034, 35.68, 47.446, 0.226)
}
dend_7[35] {pt3dclear()
pt3dadd(147.485, 106.787, 26.922, 2.26)
pt3dadd(147.587, 106.804, 26.941, 2.184)
pt3dadd(147.703, 106.823, 26.962, 2.098)
pt3dadd(147.818, 106.842, 26.983, 2.012)
pt3dadd(147.934, 106.861, 27.005, 1.926)
pt3dadd(148.05, 106.88, 27.026, 1.84)
pt3dadd(148.165, 106.899, 27.047, 1.754)
pt3dadd(148.282, 106.919, 27.069, 1.668)
pt3dadd(148.397, 106.938, 27.09, 1.582)
pt3dadd(148.512, 106.957, 27.111, 1.496)
pt3dadd(148.609, 106.995, 27.145, 1.418)
pt3dadd(148.666, 107.073, 27.204, 1.36)
pt3dadd(148.722, 107.152, 27.263, 1.3)
pt3dadd(148.778, 107.231, 27.322, 1.242)
pt3dadd(148.835, 107.31, 27.381, 1.182)
pt3dadd(148.891, 107.389, 27.44, 1.124)
pt3dadd(148.948, 107.467, 27.499, 1.064)
pt3dadd(149.004, 107.546, 27.558, 1.006)
pt3dadd(149.059, 107.625, 27.617, 0.946)
pt3dadd(149.07, 107.717, 27.681, 0.924)
pt3dadd(149.078, 107.809, 27.744, 0.9)
pt3dadd(149.088, 107.901, 27.808, 0.878)
pt3dadd(149.096, 107.994, 27.871, 0.856)
pt3dadd(149.106, 108.086, 27.935, 0.832)
pt3dadd(149.116, 108.178, 27.998, 0.81)
pt3dadd(149.124, 108.27, 28.062, 0.788)
pt3dadd(149.134, 108.362, 28.126, 0.766)
pt3dadd(149.142, 108.455, 28.189, 0.742)
pt3dadd(149.152, 108.547, 28.253, 0.72)
pt3dadd(149.167, 108.651, 28.301, 0.784)
pt3dadd(149.183, 108.755, 28.349, 0.848)
pt3dadd(149.198, 108.859, 28.397, 0.91)
pt3dadd(149.214, 108.963, 28.446, 0.974)
pt3dadd(149.23, 109.067, 28.494, 1.038)
pt3dadd(149.245, 109.171, 28.542, 1.102)
pt3dadd(149.261, 109.275, 28.59, 1.166)
pt3dadd(149.276, 109.378, 28.639, 1.228)
pt3dadd(149.292, 109.482, 28.687, 1.292)
pt3dadd(149.308, 109.586, 28.735, 1.356)
}
dend_7[36] {pt3dclear()
pt3dadd(149.308, 109.586, 28.735, 1.356)
pt3dadd(149.333, 109.646, 28.795, 1.392)
pt3dadd(149.364, 109.719, 28.87, 1.434)
pt3dadd(149.394, 109.793, 28.945, 1.478)
pt3dadd(149.425, 109.866, 29.019, 1.522)
pt3dadd(149.456, 109.939, 29.094, 1.566)
pt3dadd(149.488, 110.013, 29.169, 1.61)
pt3dadd(149.519, 110.086, 29.244, 1.654)
pt3dadd(149.569, 110.161, 29.307, 1.678)
pt3dadd(149.632, 110.237, 29.365, 1.692)
pt3dadd(149.694, 110.313, 29.422, 1.706)
pt3dadd(149.756, 110.389, 29.48, 1.72)
pt3dadd(149.819, 110.465, 29.537, 1.736)
pt3dadd(149.88, 110.541, 29.595, 1.75)
pt3dadd(149.942, 110.617, 29.653, 1.764)
pt3dadd(150.005, 110.693, 29.71, 1.778)
pt3dadd(150.067, 110.769, 29.767, 1.792)
pt3dadd(150.13, 110.844, 29.825, 1.806)
pt3dadd(150.209, 110.905, 29.88, 1.792)
pt3dadd(150.292, 110.963, 29.935, 1.774)
pt3dadd(150.373, 111.021, 29.989, 1.756)
pt3dadd(150.455, 111.079, 30.044, 1.738)
pt3dadd(150.538, 111.137, 30.098, 1.72)
pt3dadd(150.619, 111.195, 30.153, 1.702)
pt3dadd(150.702, 111.254, 30.207, 1.684)
pt3dadd(150.784, 111.312, 30.262, 1.666)
pt3dadd(150.865, 111.37, 30.316, 1.648)
pt3dadd(150.948, 111.428, 30.371, 1.63)
pt3dadd(151.032, 111.471, 30.432, 1.61)
pt3dadd(151.116, 111.514, 30.494, 1.59)
pt3dadd(151.201, 111.557, 30.555, 1.57)
pt3dadd(151.285, 111.599, 30.617, 1.55)
pt3dadd(151.369, 111.642, 30.678, 1.528)
pt3dadd(151.454, 111.685, 30.74, 1.508)
pt3dadd(151.538, 111.728, 30.801, 1.488)
pt3dadd(151.622, 111.771, 30.863, 1.468)
pt3dadd(151.708, 111.813, 30.924, 1.448)
pt3dadd(151.792, 111.856, 30.986, 1.428)
pt3dadd(151.866, 111.901, 31.055, 1.466)
pt3dadd(151.94, 111.946, 31.124, 1.504)
pt3dadd(152.015, 111.991, 31.193, 1.542)
pt3dadd(152.088, 112.036, 31.262, 1.58)
pt3dadd(152.162, 112.081, 31.331, 1.618)
pt3dadd(152.237, 112.126, 31.401, 1.656)
pt3dadd(152.311, 112.171, 31.47, 1.694)
pt3dadd(152.384, 112.216, 31.539, 1.732)
pt3dadd(152.459, 112.261, 31.608, 1.77)
pt3dadd(152.533, 112.306, 31.677, 1.808)
}
dend_7[37] {pt3dclear()
pt3dadd(152.533, 112.306, 31.677, 1.808)
pt3dadd(152.563, 112.333, 31.69, 1.782)
pt3dadd(152.647, 112.408, 31.725, 1.714)
pt3dadd(152.731, 112.483, 31.761, 1.644)
pt3dadd(152.814, 112.558, 31.796, 1.574)
pt3dadd(152.898, 112.633, 31.832, 1.504)
pt3dadd(152.981, 112.707, 31.867, 1.436)
pt3dadd(153.065, 112.782, 31.903, 1.366)
pt3dadd(153.149, 112.857, 31.938, 1.296)
pt3dadd(153.232, 112.932, 31.973, 1.226)
pt3dadd(153.314, 113.014, 31.998, 1.186)
pt3dadd(153.397, 113.097, 32.02, 1.156)
}
}
proc shape3d_193() {
dend_7[37] { pt3dadd(153.479, 113.18, 32.042, 1.124)
pt3dadd(153.562, 113.264, 32.063, 1.094)
pt3dadd(153.643, 113.347, 32.085, 1.064)
pt3dadd(153.726, 113.431, 32.107, 1.032)
pt3dadd(153.808, 113.514, 32.129, 1.002)
pt3dadd(153.89, 113.598, 32.15, 0.97)
pt3dadd(153.972, 113.681, 32.172, 0.94)
pt3dadd(154.055, 113.764, 32.193, 0.908)
pt3dadd(154.135, 113.852, 32.205, 0.906)
pt3dadd(154.214, 113.941, 32.215, 0.906)
pt3dadd(154.295, 114.03, 32.226, 0.908)
pt3dadd(154.374, 114.119, 32.236, 0.91)
pt3dadd(154.454, 114.207, 32.246, 0.912)
pt3dadd(154.534, 114.296, 32.256, 0.914)
pt3dadd(154.614, 114.385, 32.266, 0.914)
pt3dadd(154.693, 114.474, 32.276, 0.916)
pt3dadd(154.774, 114.563, 32.286, 0.918)
pt3dadd(154.853, 114.651, 32.297, 0.92)
pt3dadd(154.931, 114.743, 32.3, 0.954)
pt3dadd(155.009, 114.834, 32.302, 0.996)
pt3dadd(155.086, 114.926, 32.304, 1.036)
pt3dadd(155.164, 115.018, 32.307, 1.078)
pt3dadd(155.24, 115.109, 32.309, 1.118)
pt3dadd(155.318, 115.201, 32.311, 1.16)
pt3dadd(155.395, 115.293, 32.313, 1.2)
pt3dadd(155.473, 115.384, 32.315, 1.242)
pt3dadd(155.55, 115.476, 32.318, 1.282)
pt3dadd(155.628, 115.568, 32.32, 1.324)
pt3dadd(155.698, 115.665, 32.324, 1.34)
pt3dadd(155.767, 115.763, 32.327, 1.354)
pt3dadd(155.836, 115.861, 32.331, 1.366)
pt3dadd(155.905, 115.959, 32.335, 1.38)
pt3dadd(155.975, 116.057, 32.339, 1.394)
pt3dadd(156.043, 116.155, 32.343, 1.406)
pt3dadd(156.113, 116.253, 32.347, 1.42)
pt3dadd(156.181, 116.351, 32.351, 1.432)
pt3dadd(156.251, 116.449, 32.354, 1.446)
pt3dadd(156.319, 116.547, 32.358, 1.46)
pt3dadd(156.374, 116.653, 32.364, 1.432)
pt3dadd(156.43, 116.76, 32.371, 1.4)
pt3dadd(156.484, 116.867, 32.377, 1.368)
pt3dadd(156.538, 116.973, 32.383, 1.336)
pt3dadd(156.592, 117.08, 32.39, 1.304)
pt3dadd(156.646, 117.187, 32.396, 1.272)
pt3dadd(156.7, 117.294, 32.403, 1.24)
pt3dadd(156.754, 117.401, 32.409, 1.208)
pt3dadd(156.808, 117.507, 32.416, 1.176)
pt3dadd(156.862, 117.614, 32.422, 1.144)
pt3dadd(156.922, 117.717, 32.432, 1.14)
pt3dadd(156.983, 117.82, 32.442, 1.14)
pt3dadd(157.043, 117.923, 32.452, 1.138)
pt3dadd(157.104, 118.026, 32.462, 1.138)
pt3dadd(157.164, 118.129, 32.472, 1.136)
pt3dadd(157.225, 118.232, 32.482, 1.134)
pt3dadd(157.285, 118.335, 32.492, 1.134)
pt3dadd(157.346, 118.437, 32.502, 1.132)
pt3dadd(157.406, 118.54, 32.513, 1.132)
pt3dadd(157.468, 118.643, 32.523, 1.13)
pt3dadd(157.519, 118.748, 32.545, 1.122)
pt3dadd(157.571, 118.853, 32.568, 1.116)
pt3dadd(157.622, 118.958, 32.591, 1.108)
pt3dadd(157.674, 119.063, 32.614, 1.1)
pt3dadd(157.726, 119.168, 32.636, 1.092)
pt3dadd(157.776, 119.272, 32.66, 1.084)
pt3dadd(157.828, 119.377, 32.683, 1.076)
pt3dadd(157.879, 119.482, 32.705, 1.068)
pt3dadd(157.931, 119.587, 32.728, 1.06)
pt3dadd(157.981, 119.692, 32.752, 1.052)
pt3dadd(158.022, 119.797, 32.787, 1.038)
pt3dadd(158.064, 119.901, 32.822, 1.022)
pt3dadd(158.105, 120.006, 32.857, 1.006)
pt3dadd(158.146, 120.11, 32.892, 0.99)
pt3dadd(158.186, 120.215, 32.927, 0.974)
pt3dadd(158.227, 120.319, 32.963, 0.958)
pt3dadd(158.268, 120.425, 32.998, 0.944)
pt3dadd(158.309, 120.529, 33.033, 0.928)
pt3dadd(158.351, 120.634, 33.068, 0.912)
pt3dadd(158.392, 120.738, 33.103, 0.896)
pt3dadd(158.449, 120.84, 33.125, 0.88)
pt3dadd(158.506, 120.942, 33.148, 0.866)
pt3dadd(158.562, 121.044, 33.17, 0.85)
pt3dadd(158.62, 121.147, 33.193, 0.834)
pt3dadd(158.676, 121.249, 33.215, 0.818)
pt3dadd(158.734, 121.351, 33.238, 0.804)
pt3dadd(158.79, 121.453, 33.26, 0.788)
pt3dadd(158.848, 121.555, 33.283, 0.772)
pt3dadd(158.904, 121.657, 33.306, 0.758)
pt3dadd(158.96, 121.759, 33.328, 0.742)
pt3dadd(159.007, 121.868, 33.345, 0.714)
pt3dadd(159.053, 121.978, 33.362, 0.688)
pt3dadd(159.1, 122.086, 33.38, 0.662)
pt3dadd(159.146, 122.195, 33.397, 0.634)
pt3dadd(159.193, 122.303, 33.415, 0.608)
pt3dadd(159.24, 122.412, 33.432, 0.582)
pt3dadd(159.286, 122.52, 33.449, 0.554)
pt3dadd(159.332, 122.629, 33.467, 0.528)
pt3dadd(159.379, 122.737, 33.484, 0.502)
pt3dadd(159.425, 122.846, 33.501, 0.476)
pt3dadd(159.462, 122.959, 33.513, 0.456)
pt3dadd(159.499, 123.073, 33.524, 0.436)
pt3dadd(159.536, 123.186, 33.536, 0.416)
pt3dadd(159.574, 123.299, 33.548, 0.394)
pt3dadd(159.611, 123.413, 33.56, 0.374)
pt3dadd(159.649, 123.526, 33.572, 0.354)
pt3dadd(159.686, 123.638, 33.583, 0.334)
pt3dadd(159.724, 123.751, 33.595, 0.314)
pt3dadd(159.761, 123.865, 33.607, 0.294)
pt3dadd(159.798, 123.978, 33.618, 0.278)
pt3dadd(159.832, 124.093, 33.626, 0.296)
pt3dadd(159.866, 124.207, 33.633, 0.314)
pt3dadd(159.9, 124.322, 33.641, 0.332)
pt3dadd(159.935, 124.438, 33.648, 0.352)
pt3dadd(159.968, 124.552, 33.656, 0.37)
pt3dadd(160.002, 124.667, 33.663, 0.388)
pt3dadd(160.037, 124.781, 33.671, 0.406)
pt3dadd(160.07, 124.896, 33.678, 0.424)
pt3dadd(160.105, 125.01, 33.686, 0.444)
pt3dadd(160.142, 125.124, 33.694, 0.462)
pt3dadd(160.2, 125.228, 33.705, 0.48)
pt3dadd(160.258, 125.332, 33.717, 0.496)
pt3dadd(160.316, 125.436, 33.728, 0.514)
pt3dadd(160.374, 125.54, 33.74, 0.532)
pt3dadd(160.432, 125.645, 33.751, 0.55)
pt3dadd(160.49, 125.749, 33.763, 0.566)
pt3dadd(160.548, 125.852, 33.774, 0.584)
pt3dadd(160.607, 125.957, 33.786, 0.602)
pt3dadd(160.664, 126.061, 33.797, 0.62)
pt3dadd(160.723, 126.163, 33.812, 0.636)
pt3dadd(160.782, 126.256, 33.852, 0.64)
pt3dadd(160.842, 126.348, 33.892, 0.644)
pt3dadd(160.902, 126.44, 33.932, 0.648)
pt3dadd(160.962, 126.533, 33.972, 0.652)
pt3dadd(161.022, 126.625, 34.012, 0.658)
pt3dadd(161.082, 126.718, 34.052, 0.662)
pt3dadd(161.142, 126.809, 34.092, 0.666)
pt3dadd(161.202, 126.901, 34.132, 0.67)
pt3dadd(161.262, 126.994, 34.172, 0.674)
pt3dadd(161.324, 127.085, 34.21, 0.684)
pt3dadd(161.395, 127.175, 34.242, 0.71)
pt3dadd(161.465, 127.264, 34.274, 0.736)
pt3dadd(161.536, 127.354, 34.306, 0.76)
pt3dadd(161.605, 127.442, 34.338, 0.786)
pt3dadd(161.676, 127.532, 34.37, 0.812)
pt3dadd(161.746, 127.621, 34.402, 0.836)
pt3dadd(161.816, 127.711, 34.434, 0.862)
pt3dadd(161.887, 127.8, 34.466, 0.888)
pt3dadd(161.957, 127.889, 34.499, 0.912)
pt3dadd(162.025, 127.981, 34.526, 0.934)
pt3dadd(162.091, 128.08, 34.546, 0.946)
pt3dadd(162.157, 128.177, 34.565, 0.958)
pt3dadd(162.223, 128.274, 34.584, 0.97)
pt3dadd(162.289, 128.371, 34.604, 0.982)
pt3dadd(162.355, 128.47, 34.623, 0.996)
pt3dadd(162.421, 128.567, 34.642, 1.008)
pt3dadd(162.487, 128.664, 34.662, 1.02)
pt3dadd(162.553, 128.762, 34.681, 1.032)
pt3dadd(162.619, 128.86, 34.7, 1.046)
pt3dadd(162.68, 128.96, 34.716, 1.046)
pt3dadd(162.738, 129.065, 34.726, 1.032)
pt3dadd(162.794, 129.17, 34.736, 1.016)
pt3dadd(162.851, 129.276, 34.746, 1.002)
pt3dadd(162.907, 129.38, 34.756, 0.986)
pt3dadd(162.965, 129.486, 34.765, 0.972)
pt3dadd(163.021, 129.59, 34.775, 0.958)
pt3dadd(163.078, 129.696, 34.785, 0.942)
pt3dadd(163.135, 129.8, 34.795, 0.928)
pt3dadd(163.192, 129.906, 34.805, 0.912)
pt3dadd(163.253, 130.008, 34.812, 0.904)
pt3dadd(163.32, 130.108, 34.813, 0.904)
pt3dadd(163.387, 130.207, 34.814, 0.904)
pt3dadd(163.454, 130.307, 34.815, 0.904)
pt3dadd(163.52, 130.406, 34.816, 0.904)
pt3dadd(163.588, 130.506, 34.817, 0.904)
pt3dadd(163.655, 130.606, 34.819, 0.904)
pt3dadd(163.722, 130.705, 34.82, 0.904)
pt3dadd(163.789, 130.805, 34.821, 0.904)
pt3dadd(163.856, 130.904, 34.822, 0.904)
pt3dadd(163.925, 131.002, 34.824, 0.904)
pt3dadd(163.996, 131.099, 34.826, 0.904)
pt3dadd(164.066, 131.196, 34.828, 0.904)
pt3dadd(164.137, 131.293, 34.83, 0.904)
pt3dadd(164.208, 131.389, 34.832, 0.904)
pt3dadd(164.28, 131.486, 34.834, 0.904)
pt3dadd(164.351, 131.584, 34.836, 0.904)
pt3dadd(164.422, 131.68, 34.838, 0.904)
pt3dadd(164.492, 131.777, 34.84, 0.904)
pt3dadd(164.563, 131.874, 34.842, 0.904)
pt3dadd(164.634, 131.97, 34.844, 0.904)
pt3dadd(164.705, 132.067, 34.847, 0.904)
pt3dadd(164.776, 132.163, 34.85, 0.904)
pt3dadd(164.846, 132.26, 34.853, 0.904)
pt3dadd(164.917, 132.358, 34.855, 0.904)
pt3dadd(164.989, 132.454, 34.858, 0.904)
pt3dadd(165.06, 132.551, 34.861, 0.904)
pt3dadd(165.131, 132.647, 34.864, 0.904)
pt3dadd(165.202, 132.744, 34.867, 0.904)
pt3dadd(165.272, 132.84, 34.87, 0.904)
pt3dadd(165.338, 132.941, 34.875, 0.904)
pt3dadd(165.396, 133.045, 34.881, 0.904)
pt3dadd(165.455, 133.15, 34.888, 0.904)
}
}
proc shape3d_194() {
dend_7[37] { pt3dadd(165.512, 133.254, 34.894, 0.904)
pt3dadd(165.571, 133.36, 34.901, 0.904)
pt3dadd(165.63, 133.464, 34.908, 0.904)
pt3dadd(165.688, 133.568, 34.914, 0.904)
pt3dadd(165.746, 133.673, 34.921, 0.904)
pt3dadd(165.804, 133.777, 34.927, 0.904)
pt3dadd(165.863, 133.882, 34.934, 0.904)
pt3dadd(165.924, 133.985, 34.942, 0.898)
pt3dadd(165.99, 134.084, 34.952, 0.886)
pt3dadd(166.056, 134.184, 34.962, 0.872)
pt3dadd(166.122, 134.284, 34.972, 0.86)
pt3dadd(166.188, 134.383, 34.982, 0.848)
pt3dadd(166.254, 134.483, 34.992, 0.834)
pt3dadd(166.319, 134.582, 35.001, 0.822)
pt3dadd(166.385, 134.682, 35.011, 0.808)
pt3dadd(166.451, 134.782, 35.021, 0.796)
pt3dadd(166.517, 134.881, 35.031, 0.784)
pt3dadd(166.583, 134.978, 35.048, 0.764)
pt3dadd(166.65, 135.073, 35.075, 0.736)
pt3dadd(166.717, 135.167, 35.101, 0.708)
pt3dadd(166.783, 135.262, 35.127, 0.682)
pt3dadd(166.85, 135.356, 35.153, 0.654)
pt3dadd(166.918, 135.451, 35.179, 0.626)
pt3dadd(166.985, 135.546, 35.206, 0.6)
pt3dadd(167.051, 135.641, 35.232, 0.572)
pt3dadd(167.118, 135.734, 35.258, 0.544)
pt3dadd(167.185, 135.829, 35.284, 0.516)
pt3dadd(167.251, 135.919, 35.319, 0.492)
pt3dadd(167.318, 136.007, 35.359, 0.47)
pt3dadd(167.386, 136.093, 35.399, 0.448)
pt3dadd(167.453, 136.181, 35.44, 0.426)
pt3dadd(167.52, 136.267, 35.48, 0.404)
pt3dadd(167.587, 136.355, 35.52, 0.38)
pt3dadd(167.654, 136.441, 35.56, 0.358)
pt3dadd(167.722, 136.529, 35.6, 0.336)
pt3dadd(167.789, 136.615, 35.64, 0.314)
pt3dadd(167.856, 136.703, 35.681, 0.292)
pt3dadd(167.928, 136.792, 35.709, 0.296)
pt3dadd(168.004, 136.88, 35.733, 0.312)
pt3dadd(168.078, 136.969, 35.757, 0.328)
pt3dadd(168.154, 137.059, 35.781, 0.344)
pt3dadd(168.228, 137.148, 35.805, 0.36)
pt3dadd(168.302, 137.237, 35.829, 0.376)
pt3dadd(168.378, 137.327, 35.853, 0.392)
pt3dadd(168.452, 137.416, 35.877, 0.408)
pt3dadd(168.528, 137.506, 35.9, 0.424)
pt3dadd(168.602, 137.594, 35.924, 0.44)
pt3dadd(168.676, 137.688, 35.939, 0.432)
pt3dadd(168.746, 137.784, 35.949, 0.416)
pt3dadd(168.818, 137.879, 35.96, 0.4)
pt3dadd(168.89, 137.975, 35.97, 0.384)
pt3dadd(168.961, 138.07, 35.981, 0.368)
pt3dadd(169.033, 138.166, 35.991, 0.352)
pt3dadd(169.105, 138.26, 36.002, 0.336)
pt3dadd(169.176, 138.356, 36.012, 0.32)
pt3dadd(169.248, 138.451, 36.023, 0.304)
pt3dadd(169.32, 138.547, 36.033, 0.288)
pt3dadd(169.379, 138.65, 36.04, 0.28)
pt3dadd(169.434, 138.757, 36.045, 0.274)
pt3dadd(169.489, 138.864, 36.049, 0.268)
pt3dadd(169.543, 138.971, 36.054, 0.262)
pt3dadd(169.598, 139.078, 36.059, 0.256)
pt3dadd(169.654, 139.183, 36.064, 0.25)
pt3dadd(169.708, 139.29, 36.069, 0.244)
pt3dadd(169.763, 139.397, 36.073, 0.238)
pt3dadd(169.818, 139.504, 36.078, 0.234)
pt3dadd(169.872, 139.61, 36.083, 0.228)
pt3dadd(169.914, 139.722, 36.085, 0.226)
pt3dadd(169.952, 139.836, 36.087, 0.226)
pt3dadd(169.992, 139.95, 36.089, 0.226)
pt3dadd(170.03, 140.063, 36.091, 0.226)
pt3dadd(170.069, 140.177, 36.092, 0.226)
pt3dadd(170.108, 140.29, 36.094, 0.226)
pt3dadd(170.147, 140.404, 36.096, 0.226)
pt3dadd(170.185, 140.518, 36.098, 0.226)
pt3dadd(170.225, 140.63, 36.1, 0.226)
pt3dadd(170.263, 140.744, 36.102, 0.226)
pt3dadd(170.29, 140.861, 36.104, 0.226)
pt3dadd(170.314, 140.978, 36.107, 0.226)
pt3dadd(170.338, 141.096, 36.11, 0.226)
pt3dadd(170.362, 141.214, 36.113, 0.226)
pt3dadd(170.386, 141.331, 36.116, 0.226)
pt3dadd(170.41, 141.449, 36.119, 0.226)
pt3dadd(170.434, 141.566, 36.122, 0.226)
pt3dadd(170.458, 141.684, 36.125, 0.226)
pt3dadd(170.482, 141.802, 36.128, 0.226)
pt3dadd(170.506, 141.919, 36.131, 0.226)
pt3dadd(170.525, 142.037, 36.137, 0.284)
pt3dadd(170.545, 142.154, 36.145, 0.354)
pt3dadd(170.564, 142.273, 36.152, 0.424)
pt3dadd(170.584, 142.391, 36.159, 0.492)
pt3dadd(170.603, 142.51, 36.166, 0.562)
pt3dadd(170.622, 142.627, 36.174, 0.632)
pt3dadd(170.641, 142.746, 36.181, 0.702)
pt3dadd(170.66, 142.864, 36.188, 0.77)
pt3dadd(170.68, 142.981, 36.195, 0.84)
pt3dadd(170.699, 143.1, 36.202, 0.91)
pt3dadd(170.74, 143.212, 36.212, 0.94)
pt3dadd(170.784, 143.323, 36.222, 0.96)
pt3dadd(170.828, 143.434, 36.232, 0.982)
pt3dadd(170.873, 143.544, 36.242, 1.002)
pt3dadd(170.917, 143.656, 36.252, 1.024)
pt3dadd(170.962, 143.766, 36.262, 1.044)
pt3dadd(171.006, 143.876, 36.272, 1.066)
pt3dadd(171.052, 143.988, 36.282, 1.086)
pt3dadd(171.096, 144.098, 36.292, 1.108)
pt3dadd(171.14, 144.209, 36.302, 1.128)
pt3dadd(171.192, 144.316, 36.32, 1.13)
pt3dadd(171.245, 144.421, 36.338, 1.13)
pt3dadd(171.296, 144.527, 36.356, 1.13)
pt3dadd(171.349, 144.632, 36.374, 1.13)
pt3dadd(171.402, 144.738, 36.392, 1.13)
pt3dadd(171.454, 144.844, 36.411, 1.13)
pt3dadd(171.506, 144.949, 36.429, 1.13)
pt3dadd(171.559, 145.055, 36.447, 1.13)
pt3dadd(171.611, 145.16, 36.465, 1.13)
pt3dadd(171.664, 145.266, 36.484, 1.13)
pt3dadd(171.71, 145.368, 36.519, 1.13)
pt3dadd(171.757, 145.47, 36.555, 1.13)
pt3dadd(171.804, 145.572, 36.591, 1.13)
pt3dadd(171.851, 145.674, 36.627, 1.13)
pt3dadd(171.898, 145.775, 36.663, 1.13)
pt3dadd(171.944, 145.877, 36.699, 1.13)
pt3dadd(171.991, 145.979, 36.735, 1.13)
pt3dadd(172.038, 146.081, 36.771, 1.13)
pt3dadd(172.085, 146.183, 36.806, 1.13)
pt3dadd(172.132, 146.284, 36.842, 1.13)
pt3dadd(172.195, 146.382, 36.868, 1.13)
pt3dadd(172.258, 146.479, 36.893, 1.13)
pt3dadd(172.32, 146.576, 36.919, 1.13)
pt3dadd(172.384, 146.675, 36.944, 1.13)
pt3dadd(172.446, 146.772, 36.97, 1.13)
pt3dadd(172.51, 146.869, 36.995, 1.13)
pt3dadd(172.572, 146.966, 37.021, 1.13)
pt3dadd(172.634, 147.065, 37.046, 1.13)
pt3dadd(172.698, 147.162, 37.072, 1.13)
pt3dadd(172.76, 147.259, 37.097, 1.13)
pt3dadd(172.829, 147.355, 37.118, 1.12)
pt3dadd(172.897, 147.45, 37.139, 1.112)
pt3dadd(172.966, 147.545, 37.16, 1.104)
pt3dadd(173.035, 147.641, 37.181, 1.094)
pt3dadd(173.104, 147.736, 37.202, 1.086)
pt3dadd(173.172, 147.832, 37.223, 1.078)
pt3dadd(173.24, 147.926, 37.244, 1.068)
pt3dadd(173.309, 148.021, 37.265, 1.06)
pt3dadd(173.377, 148.117, 37.286, 1.052)
pt3dadd(173.446, 148.212, 37.306, 1.042)
pt3dadd(173.52, 148.304, 37.322, 1.012)
pt3dadd(173.594, 148.397, 37.338, 0.982)
pt3dadd(173.668, 148.489, 37.353, 0.952)
pt3dadd(173.742, 148.582, 37.369, 0.922)
pt3dadd(173.816, 148.674, 37.385, 0.892)
pt3dadd(173.891, 148.766, 37.401, 0.862)
pt3dadd(173.965, 148.859, 37.416, 0.832)
pt3dadd(174.038, 148.951, 37.432, 0.802)
pt3dadd(174.113, 149.044, 37.448, 0.772)
pt3dadd(174.186, 149.137, 37.463, 0.746)
pt3dadd(174.251, 149.237, 37.477, 0.766)
pt3dadd(174.314, 149.338, 37.49, 0.786)
pt3dadd(174.378, 149.438, 37.504, 0.808)
pt3dadd(174.442, 149.538, 37.517, 0.828)
pt3dadd(174.506, 149.639, 37.531, 0.85)
pt3dadd(174.57, 149.738, 37.544, 0.87)
pt3dadd(174.634, 149.839, 37.558, 0.89)
pt3dadd(174.697, 149.939, 37.571, 0.912)
pt3dadd(174.761, 150.04, 37.585, 0.932)
pt3dadd(174.826, 150.139, 37.6, 0.952)
pt3dadd(174.896, 150.229, 37.63, 0.96)
pt3dadd(174.968, 150.319, 37.66, 0.97)
pt3dadd(175.039, 150.408, 37.689, 0.978)
pt3dadd(175.11, 150.498, 37.72, 0.986)
pt3dadd(175.181, 150.588, 37.75, 0.996)
pt3dadd(175.253, 150.678, 37.779, 1.004)
pt3dadd(175.324, 150.767, 37.809, 1.012)
pt3dadd(175.394, 150.857, 37.839, 1.022)
pt3dadd(175.465, 150.947, 37.869, 1.03)
pt3dadd(175.537, 151.033, 37.904, 1.032)
pt3dadd(175.61, 151.112, 37.947, 1.018)
pt3dadd(175.684, 151.193, 37.991, 1.004)
pt3dadd(175.756, 151.272, 38.035, 0.992)
pt3dadd(175.829, 151.352, 38.078, 0.978)
pt3dadd(175.902, 151.432, 38.122, 0.966)
pt3dadd(175.974, 151.512, 38.165, 0.952)
pt3dadd(176.047, 151.591, 38.209, 0.938)
pt3dadd(176.12, 151.67, 38.253, 0.926)
pt3dadd(176.192, 151.751, 38.296, 0.912)
pt3dadd(176.262, 151.835, 38.336, 0.908)
pt3dadd(176.326, 151.928, 38.37, 0.916)
pt3dadd(176.39, 152.021, 38.405, 0.924)
pt3dadd(176.454, 152.114, 38.439, 0.934)
pt3dadd(176.518, 152.207, 38.473, 0.942)
pt3dadd(176.581, 152.3, 38.507, 0.952)
pt3dadd(176.645, 152.394, 38.541, 0.96)
pt3dadd(176.71, 152.486, 38.575, 0.968)
pt3dadd(176.773, 152.58, 38.609, 0.978)
pt3dadd(176.837, 152.672, 38.643, 0.986)
pt3dadd(176.906, 152.764, 38.673, 1.006)
pt3dadd(176.983, 152.851, 38.695, 1.042)
pt3dadd(177.059, 152.94, 38.718, 1.078)
pt3dadd(177.136, 153.028, 38.741, 1.114)
}
}
proc shape3d_195() {
dend_7[37] { pt3dadd(177.212, 153.116, 38.764, 1.15)
pt3dadd(177.289, 153.204, 38.787, 1.186)
pt3dadd(177.366, 153.293, 38.81, 1.222)
pt3dadd(177.443, 153.382, 38.832, 1.258)
pt3dadd(177.518, 153.469, 38.855, 1.292)
pt3dadd(177.595, 153.558, 38.878, 1.328)
pt3dadd(177.671, 153.64, 38.912, 1.34)
pt3dadd(177.743, 153.715, 38.961, 1.32)
pt3dadd(177.816, 153.791, 39.01, 1.298)
pt3dadd(177.888, 153.865, 39.059, 1.278)
pt3dadd(177.961, 153.941, 39.108, 1.256)
pt3dadd(178.033, 154.016, 39.158, 1.236)
pt3dadd(178.106, 154.091, 39.207, 1.214)
pt3dadd(178.178, 154.166, 39.256, 1.194)
pt3dadd(178.252, 154.242, 39.305, 1.172)
pt3dadd(178.324, 154.316, 39.354, 1.152)
pt3dadd(178.405, 154.391, 39.393, 1.124)
pt3dadd(178.495, 154.462, 39.419, 1.088)
pt3dadd(178.586, 154.534, 39.446, 1.052)
pt3dadd(178.678, 154.606, 39.472, 1.016)
pt3dadd(178.769, 154.676, 39.498, 0.98)
pt3dadd(178.86, 154.748, 39.524, 0.946)
pt3dadd(178.951, 154.819, 39.55, 0.91)
pt3dadd(179.042, 154.891, 39.577, 0.874)
pt3dadd(179.134, 154.963, 39.603, 0.838)
pt3dadd(179.224, 155.034, 39.629, 0.802)
pt3dadd(179.322, 155.098, 39.651, 0.79)
pt3dadd(179.428, 155.152, 39.666, 0.806)
pt3dadd(179.533, 155.206, 39.682, 0.822)
pt3dadd(179.639, 155.258, 39.697, 0.838)
pt3dadd(179.744, 155.312, 39.713, 0.854)
pt3dadd(179.85, 155.366, 39.729, 0.87)
pt3dadd(179.956, 155.419, 39.744, 0.886)
pt3dadd(180.061, 155.473, 39.76, 0.902)
pt3dadd(180.167, 155.527, 39.776, 0.918)
pt3dadd(180.274, 155.58, 39.791, 0.934)
pt3dadd(180.38, 155.633, 39.802, 0.942)
pt3dadd(180.488, 155.683, 39.808, 0.946)
pt3dadd(180.598, 155.735, 39.814, 0.95)
pt3dadd(180.706, 155.785, 39.82, 0.954)
pt3dadd(180.814, 155.837, 39.826, 0.956)
pt3dadd(180.923, 155.887, 39.832, 0.96)
pt3dadd(181.031, 155.938, 39.838, 0.964)
pt3dadd(181.139, 155.989, 39.845, 0.968)
pt3dadd(181.248, 156.04, 39.851, 0.972)
pt3dadd(181.356, 156.091, 39.857, 0.974)
pt3dadd(181.464, 156.144, 39.86, 0.958)
pt3dadd(181.571, 156.199, 39.86, 0.926)
pt3dadd(181.676, 156.253, 39.86, 0.894)
pt3dadd(181.783, 156.308, 39.86, 0.864)
pt3dadd(181.89, 156.362, 39.861, 0.832)
pt3dadd(181.997, 156.418, 39.861, 0.8)
pt3dadd(182.104, 156.473, 39.861, 0.768)
pt3dadd(182.21, 156.527, 39.861, 0.736)
pt3dadd(182.317, 156.582, 39.862, 0.704)
pt3dadd(182.424, 156.637, 39.862, 0.672)
pt3dadd(182.537, 156.678, 39.863, 0.64)
pt3dadd(182.652, 156.71, 39.863, 0.604)
pt3dadd(182.767, 156.743, 39.864, 0.57)
pt3dadd(182.884, 156.775, 39.864, 0.536)
pt3dadd(182.999, 156.808, 39.865, 0.502)
pt3dadd(183.114, 156.84, 39.866, 0.468)
pt3dadd(183.23, 156.871, 39.866, 0.432)
pt3dadd(183.346, 156.904, 39.867, 0.398)
pt3dadd(183.461, 156.936, 39.867, 0.364)
pt3dadd(183.577, 156.968, 39.868, 0.33)
pt3dadd(183.694, 156.996, 39.869, 0.34)
pt3dadd(183.811, 157.021, 39.87, 0.384)
pt3dadd(183.928, 157.046, 39.871, 0.426)
pt3dadd(184.045, 157.07, 39.873, 0.47)
pt3dadd(184.163, 157.096, 39.874, 0.512)
pt3dadd(184.28, 157.121, 39.875, 0.556)
pt3dadd(184.398, 157.146, 39.876, 0.598)
pt3dadd(184.514, 157.171, 39.877, 0.642)
pt3dadd(184.632, 157.195, 39.879, 0.686)
pt3dadd(184.75, 157.22, 39.88, 0.728)
pt3dadd(184.867, 157.242, 39.882, 0.778)
pt3dadd(184.986, 157.261, 39.884, 0.832)
pt3dadd(185.105, 157.28, 39.886, 0.886)
pt3dadd(185.222, 157.3, 39.888, 0.942)
pt3dadd(185.341, 157.319, 39.89, 0.996)
pt3dadd(185.46, 157.338, 39.892, 1.05)
pt3dadd(185.578, 157.357, 39.894, 1.104)
pt3dadd(185.696, 157.376, 39.896, 1.16)
pt3dadd(185.815, 157.396, 39.898, 1.214)
pt3dadd(185.934, 157.415, 39.9, 1.268)
pt3dadd(186.052, 157.436, 39.903, 1.302)
pt3dadd(186.169, 157.457, 39.907, 1.324)
pt3dadd(186.288, 157.478, 39.91, 1.344)
pt3dadd(186.406, 157.5, 39.914, 1.364)
pt3dadd(186.523, 157.522, 39.917, 1.384)
pt3dadd(186.642, 157.543, 39.92, 1.406)
pt3dadd(186.76, 157.565, 39.924, 1.426)
pt3dadd(186.877, 157.586, 39.927, 1.446)
pt3dadd(186.996, 157.608, 39.931, 1.468)
pt3dadd(187.114, 157.63, 39.935, 1.488)
pt3dadd(187.226, 157.668, 39.94, 1.464)
pt3dadd(187.336, 157.715, 39.946, 1.414)
pt3dadd(187.446, 157.763, 39.953, 1.366)
pt3dadd(187.556, 157.811, 39.959, 1.316)
pt3dadd(187.666, 157.858, 39.966, 1.268)
pt3dadd(187.776, 157.906, 39.972, 1.218)
pt3dadd(187.885, 157.954, 39.979, 1.17)
pt3dadd(187.996, 158, 39.985, 1.12)
pt3dadd(188.105, 158.048, 39.992, 1.072)
pt3dadd(188.215, 158.096, 39.998, 1.022)
pt3dadd(188.327, 158.138, 40.007, 0.99)
pt3dadd(188.44, 158.177, 40.017, 0.966)
pt3dadd(188.552, 158.216, 40.027, 0.942)
pt3dadd(188.665, 158.256, 40.037, 0.918)
pt3dadd(188.778, 158.294, 40.048, 0.896)
pt3dadd(188.891, 158.334, 40.058, 0.872)
pt3dadd(189.004, 158.374, 40.068, 0.848)
pt3dadd(189.116, 158.412, 40.078, 0.824)
pt3dadd(189.229, 158.452, 40.088, 0.802)
pt3dadd(189.342, 158.491, 40.098, 0.778)
pt3dadd(189.455, 158.526, 40.117, 0.768)
pt3dadd(189.566, 158.558, 40.139, 0.766)
pt3dadd(189.679, 158.591, 40.162, 0.766)
pt3dadd(189.791, 158.623, 40.185, 0.764)
pt3dadd(189.904, 158.656, 40.208, 0.762)
pt3dadd(190.015, 158.688, 40.231, 0.76)
pt3dadd(190.128, 158.72, 40.254, 0.758)
pt3dadd(190.24, 158.753, 40.276, 0.756)
pt3dadd(190.352, 158.785, 40.299, 0.754)
pt3dadd(190.464, 158.818, 40.322, 0.752)
pt3dadd(190.574, 158.846, 40.354, 0.762)
pt3dadd(190.682, 158.875, 40.39, 0.776)
pt3dadd(190.792, 158.903, 40.425, 0.788)
pt3dadd(190.9, 158.93, 40.461, 0.802)
pt3dadd(191.009, 158.958, 40.497, 0.816)
pt3dadd(191.117, 158.986, 40.532, 0.828)
pt3dadd(191.226, 159.014, 40.568, 0.842)
pt3dadd(191.334, 159.042, 40.603, 0.856)
pt3dadd(191.443, 159.07, 40.639, 0.868)
pt3dadd(191.551, 159.097, 40.674, 0.882)
pt3dadd(191.659, 159.139, 40.7, 0.862)
pt3dadd(191.766, 159.186, 40.722, 0.83)
pt3dadd(191.874, 159.233, 40.745, 0.798)
pt3dadd(191.981, 159.28, 40.767, 0.766)
pt3dadd(192.088, 159.326, 40.789, 0.734)
pt3dadd(192.196, 159.373, 40.812, 0.702)
pt3dadd(192.302, 159.42, 40.834, 0.67)
pt3dadd(192.409, 159.467, 40.856, 0.638)
pt3dadd(192.517, 159.514, 40.879, 0.606)
pt3dadd(192.624, 159.56, 40.901, 0.574)
pt3dadd(192.734, 159.604, 40.918, 0.566)
pt3dadd(192.845, 159.644, 40.933, 0.566)
pt3dadd(192.956, 159.686, 40.948, 0.564)
pt3dadd(193.068, 159.727, 40.964, 0.564)
pt3dadd(193.178, 159.769, 40.979, 0.564)
pt3dadd(193.29, 159.81, 40.994, 0.562)
pt3dadd(193.402, 159.851, 41.009, 0.562)
pt3dadd(193.512, 159.893, 41.024, 0.562)
pt3dadd(193.624, 159.934, 41.039, 0.56)
pt3dadd(193.735, 159.974, 41.054, 0.56)
pt3dadd(193.848, 160.012, 41.064, 0.578)
pt3dadd(193.962, 160.048, 41.072, 0.6)
pt3dadd(194.077, 160.084, 41.08, 0.622)
pt3dadd(194.191, 160.118, 41.089, 0.644)
pt3dadd(194.305, 160.154, 41.097, 0.666)
pt3dadd(194.419, 160.19, 41.105, 0.688)
pt3dadd(194.533, 160.226, 41.113, 0.71)
pt3dadd(194.647, 160.261, 41.121, 0.732)
pt3dadd(194.761, 160.297, 41.13, 0.754)
pt3dadd(194.875, 160.333, 41.138, 0.776)
pt3dadd(194.992, 160.364, 41.141, 0.808)
pt3dadd(195.108, 160.396, 41.142, 0.844)
pt3dadd(195.223, 160.426, 41.144, 0.878)
pt3dadd(195.34, 160.457, 41.145, 0.912)
pt3dadd(195.456, 160.487, 41.146, 0.946)
pt3dadd(195.571, 160.518, 41.148, 0.982)
pt3dadd(195.688, 160.548, 41.149, 1.016)
pt3dadd(195.804, 160.579, 41.151, 1.05)
pt3dadd(195.919, 160.609, 41.152, 1.086)
pt3dadd(196.036, 160.64, 41.153, 1.12)
pt3dadd(196.145, 160.688, 41.156, 1.076)
pt3dadd(196.253, 160.74, 41.158, 1.014)
pt3dadd(196.361, 160.793, 41.161, 0.95)
pt3dadd(196.469, 160.844, 41.164, 0.886)
pt3dadd(196.577, 160.897, 41.166, 0.824)
pt3dadd(196.685, 160.949, 41.169, 0.76)
pt3dadd(196.793, 161.002, 41.171, 0.696)
pt3dadd(196.901, 161.053, 41.174, 0.634)
pt3dadd(197.009, 161.106, 41.177, 0.57)
pt3dadd(197.117, 161.158, 41.179, 0.508)
pt3dadd(197.227, 161.207, 41.184, 0.504)
pt3dadd(197.336, 161.254, 41.189, 0.516)
pt3dadd(197.447, 161.302, 41.194, 0.528)
pt3dadd(197.557, 161.35, 41.199, 0.54)
pt3dadd(197.666, 161.398, 41.204, 0.55)
pt3dadd(197.777, 161.444, 41.209, 0.562)
pt3dadd(197.886, 161.492, 41.214, 0.574)
pt3dadd(197.996, 161.54, 41.219, 0.586)
pt3dadd(198.107, 161.588, 41.224, 0.598)
pt3dadd(198.216, 161.635, 41.229, 0.61)
pt3dadd(198.326, 161.683, 41.236, 0.654)
pt3dadd(198.436, 161.731, 41.243, 0.706)
pt3dadd(198.546, 161.779, 41.25, 0.758)
pt3dadd(198.655, 161.826, 41.258, 0.81)
}
}
proc shape3d_196() {
dend_7[37] { pt3dadd(198.766, 161.874, 41.265, 0.862)
pt3dadd(198.875, 161.922, 41.273, 0.914)
pt3dadd(198.985, 161.97, 41.28, 0.966)
pt3dadd(199.094, 162.017, 41.288, 1.018)
pt3dadd(199.204, 162.065, 41.295, 1.068)
pt3dadd(199.314, 162.113, 41.303, 1.12)
pt3dadd(199.418, 162.172, 41.312, 1.13)
pt3dadd(199.52, 162.232, 41.323, 1.13)
pt3dadd(199.624, 162.293, 41.333, 1.13)
pt3dadd(199.726, 162.354, 41.343, 1.13)
pt3dadd(199.829, 162.414, 41.354, 1.13)
pt3dadd(199.932, 162.475, 41.364, 1.13)
pt3dadd(200.034, 162.535, 41.374, 1.13)
pt3dadd(200.137, 162.596, 41.384, 1.13)
pt3dadd(200.24, 162.658, 41.395, 1.13)
pt3dadd(200.342, 162.718, 41.405, 1.13)
pt3dadd(200.448, 162.766, 41.431, 1.11)
pt3dadd(200.552, 162.812, 41.46, 1.088)
pt3dadd(200.658, 162.858, 41.489, 1.064)
pt3dadd(200.764, 162.904, 41.519, 1.04)
pt3dadd(200.868, 162.949, 41.548, 1.018)
pt3dadd(200.974, 162.995, 41.577, 0.994)
pt3dadd(201.079, 163.04, 41.606, 0.97)
pt3dadd(201.185, 163.086, 41.636, 0.946)
pt3dadd(201.289, 163.132, 41.665, 0.924)
pt3dadd(201.395, 163.177, 41.694, 0.9)
pt3dadd(201.499, 163.222, 41.726, 0.886)
pt3dadd(201.604, 163.267, 41.758, 0.874)
pt3dadd(201.708, 163.312, 41.79, 0.86)
pt3dadd(201.812, 163.357, 41.821, 0.848)
pt3dadd(201.918, 163.402, 41.853, 0.834)
pt3dadd(202.022, 163.447, 41.885, 0.82)
pt3dadd(202.127, 163.492, 41.917, 0.808)
pt3dadd(202.231, 163.536, 41.949, 0.794)
pt3dadd(202.336, 163.582, 41.98, 0.782)
pt3dadd(202.44, 163.626, 42.012, 0.768)
pt3dadd(202.543, 163.682, 42.035, 0.796)
pt3dadd(202.645, 163.739, 42.058, 0.828)
pt3dadd(202.747, 163.795, 42.08, 0.858)
pt3dadd(202.85, 163.852, 42.102, 0.888)
pt3dadd(202.952, 163.907, 42.125, 0.92)
pt3dadd(203.056, 163.963, 42.147, 0.95)
pt3dadd(203.158, 164.02, 42.169, 0.98)
pt3dadd(203.261, 164.076, 42.192, 1.01)
pt3dadd(203.363, 164.132, 42.214, 1.042)
pt3dadd(203.465, 164.189, 42.237, 1.072)
pt3dadd(203.576, 164.231, 42.252, 1.066)
pt3dadd(203.688, 164.272, 42.267, 1.058)
pt3dadd(203.798, 164.314, 42.282, 1.05)
pt3dadd(203.91, 164.354, 42.297, 1.042)
pt3dadd(204.022, 164.396, 42.312, 1.034)
pt3dadd(204.132, 164.437, 42.327, 1.026)
pt3dadd(204.244, 164.478, 42.342, 1.018)
pt3dadd(204.355, 164.52, 42.357, 1.01)
pt3dadd(204.466, 164.561, 42.372, 1.002)
pt3dadd(204.577, 164.603, 42.387, 0.994)
pt3dadd(204.691, 164.636, 42.397, 0.976)
pt3dadd(204.805, 164.671, 42.408, 0.96)
pt3dadd(204.92, 164.706, 42.418, 0.942)
pt3dadd(205.034, 164.741, 42.428, 0.926)
pt3dadd(205.148, 164.774, 42.439, 0.908)
pt3dadd(205.262, 164.809, 42.449, 0.892)
pt3dadd(205.378, 164.844, 42.459, 0.874)
pt3dadd(205.492, 164.878, 42.47, 0.856)
pt3dadd(205.606, 164.912, 42.48, 0.84)
pt3dadd(205.72, 164.947, 42.49, 0.824)
pt3dadd(205.835, 164.981, 42.498, 0.808)
pt3dadd(205.949, 165.016, 42.506, 0.794)
pt3dadd(206.064, 165.05, 42.514, 0.78)
pt3dadd(206.178, 165.084, 42.521, 0.764)
pt3dadd(206.293, 165.119, 42.529, 0.75)
pt3dadd(206.407, 165.152, 42.537, 0.736)
pt3dadd(206.522, 165.187, 42.545, 0.722)
pt3dadd(206.636, 165.222, 42.552, 0.706)
pt3dadd(206.752, 165.256, 42.56, 0.692)
pt3dadd(206.866, 165.29, 42.568, 0.678)
pt3dadd(206.974, 165.343, 42.579, 0.678)
pt3dadd(207.08, 165.395, 42.59, 0.678)
pt3dadd(207.187, 165.448, 42.601, 0.678)
pt3dadd(207.294, 165.5, 42.612, 0.678)
pt3dadd(207.402, 165.553, 42.623, 0.678)
pt3dadd(207.509, 165.605, 42.634, 0.678)
pt3dadd(207.616, 165.658, 42.645, 0.678)
pt3dadd(207.722, 165.71, 42.655, 0.678)
pt3dadd(207.83, 165.762, 42.667, 0.678)
pt3dadd(207.937, 165.815, 42.678, 0.678)
pt3dadd(208.043, 165.859, 42.708, 0.69)
pt3dadd(208.147, 165.904, 42.738, 0.702)
pt3dadd(208.253, 165.949, 42.769, 0.714)
pt3dadd(208.358, 165.994, 42.799, 0.726)
pt3dadd(208.464, 166.038, 42.829, 0.738)
pt3dadd(208.568, 166.082, 42.859, 0.75)
pt3dadd(208.674, 166.128, 42.89, 0.762)
pt3dadd(208.78, 166.172, 42.92, 0.774)
pt3dadd(208.885, 166.217, 42.95, 0.786)
pt3dadd(208.99, 166.262, 42.981, 0.796)
pt3dadd(209.093, 166.31, 43.013, 0.798)
pt3dadd(209.196, 166.357, 43.045, 0.798)
pt3dadd(209.299, 166.405, 43.078, 0.8)
pt3dadd(209.402, 166.453, 43.11, 0.802)
pt3dadd(209.504, 166.501, 43.142, 0.802)
pt3dadd(209.608, 166.548, 43.175, 0.804)
pt3dadd(209.711, 166.596, 43.207, 0.806)
pt3dadd(209.814, 166.644, 43.239, 0.806)
pt3dadd(209.917, 166.692, 43.272, 0.808)
pt3dadd(210.019, 166.741, 43.303, 0.804)
pt3dadd(210.119, 166.801, 43.326, 0.774)
pt3dadd(210.218, 166.862, 43.35, 0.744)
pt3dadd(210.318, 166.924, 43.373, 0.714)
pt3dadd(210.418, 166.984, 43.396, 0.682)
pt3dadd(210.517, 167.045, 43.42, 0.652)
pt3dadd(210.617, 167.106, 43.443, 0.622)
pt3dadd(210.716, 167.166, 43.466, 0.59)
pt3dadd(210.817, 167.227, 43.49, 0.56)
pt3dadd(210.917, 167.287, 43.513, 0.53)
pt3dadd(211.018, 167.347, 43.536, 0.504)
pt3dadd(211.124, 167.394, 43.554, 0.514)
pt3dadd(211.232, 167.442, 43.572, 0.524)
pt3dadd(211.34, 167.49, 43.59, 0.532)
pt3dadd(211.448, 167.538, 43.609, 0.542)
pt3dadd(211.556, 167.585, 43.627, 0.552)
pt3dadd(211.664, 167.633, 43.645, 0.562)
pt3dadd(211.772, 167.681, 43.663, 0.57)
pt3dadd(211.88, 167.729, 43.681, 0.58)
pt3dadd(211.988, 167.776, 43.7, 0.59)
pt3dadd(212.095, 167.825, 43.717, 0.598)
pt3dadd(212.201, 167.88, 43.73, 0.596)
pt3dadd(212.306, 167.935, 43.744, 0.596)
pt3dadd(212.412, 167.99, 43.757, 0.594)
pt3dadd(212.516, 168.046, 43.77, 0.592)
pt3dadd(212.622, 168.102, 43.783, 0.592)
pt3dadd(212.728, 168.157, 43.797, 0.59)
pt3dadd(212.833, 168.212, 43.81, 0.588)
pt3dadd(212.939, 168.268, 43.823, 0.588)
pt3dadd(213.043, 168.323, 43.836, 0.586)
pt3dadd(213.148, 168.379, 43.85, 0.584)
pt3dadd(213.248, 168.442, 43.869, 0.582)
pt3dadd(213.349, 168.503, 43.887, 0.578)
pt3dadd(213.449, 168.565, 43.906, 0.574)
pt3dadd(213.55, 168.626, 43.924, 0.572)
pt3dadd(213.65, 168.689, 43.943, 0.568)
pt3dadd(213.75, 168.75, 43.961, 0.566)
pt3dadd(213.851, 168.812, 43.98, 0.562)
pt3dadd(213.952, 168.874, 43.998, 0.56)
pt3dadd(214.051, 168.936, 44.017, 0.556)
pt3dadd(214.151, 168.994, 44.043, 0.564)
pt3dadd(214.247, 169.044, 44.085, 0.594)
pt3dadd(214.344, 169.094, 44.127, 0.624)
pt3dadd(214.441, 169.145, 44.169, 0.654)
pt3dadd(214.537, 169.195, 44.211, 0.684)
pt3dadd(214.634, 169.246, 44.253, 0.714)
pt3dadd(214.73, 169.296, 44.295, 0.744)
pt3dadd(214.828, 169.346, 44.337, 0.774)
pt3dadd(214.924, 169.397, 44.379, 0.804)
pt3dadd(215.021, 169.447, 44.42, 0.834)
pt3dadd(215.122, 169.495, 44.452, 0.842)
pt3dadd(215.231, 169.542, 44.469, 0.82)
pt3dadd(215.34, 169.588, 44.486, 0.8)
pt3dadd(215.449, 169.633, 44.503, 0.778)
pt3dadd(215.557, 169.68, 44.52, 0.756)
pt3dadd(215.666, 169.726, 44.537, 0.736)
pt3dadd(215.776, 169.772, 44.554, 0.714)
pt3dadd(215.885, 169.818, 44.571, 0.692)
pt3dadd(215.994, 169.864, 44.588, 0.672)
pt3dadd(216.102, 169.91, 44.605, 0.65)
pt3dadd(216.209, 169.964, 44.613, 0.63)
pt3dadd(216.311, 170.026, 44.612, 0.612)
pt3dadd(216.414, 170.088, 44.611, 0.594)
pt3dadd(216.517, 170.149, 44.611, 0.576)
pt3dadd(216.619, 170.212, 44.61, 0.56)
pt3dadd(216.722, 170.274, 44.609, 0.542)
pt3dadd(216.826, 170.335, 44.609, 0.524)
pt3dadd(216.928, 170.398, 44.608, 0.506)
pt3dadd(217.031, 170.459, 44.607, 0.488)
pt3dadd(217.134, 170.521, 44.606, 0.47)
pt3dadd(217.235, 170.578, 44.589, 0.468)
pt3dadd(217.336, 170.629, 44.554, 0.482)
pt3dadd(217.435, 170.681, 44.52, 0.496)
pt3dadd(217.536, 170.731, 44.485, 0.512)
pt3dadd(217.636, 170.783, 44.45, 0.526)
pt3dadd(217.735, 170.834, 44.416, 0.54)
pt3dadd(217.836, 170.886, 44.381, 0.554)
pt3dadd(217.936, 170.938, 44.346, 0.568)
pt3dadd(218.036, 170.988, 44.311, 0.584)
pt3dadd(218.136, 171.04, 44.277, 0.598)
pt3dadd(218.234, 171.097, 44.245, 0.608)
pt3dadd(218.329, 171.162, 44.216, 0.616)
pt3dadd(218.425, 171.226, 44.187, 0.624)
pt3dadd(218.52, 171.289, 44.158, 0.63)
pt3dadd(218.616, 171.353, 44.129, 0.638)
pt3dadd(218.712, 171.416, 44.101, 0.646)
pt3dadd(218.807, 171.481, 44.072, 0.652)
pt3dadd(218.903, 171.545, 44.043, 0.66)
pt3dadd(218.998, 171.608, 44.014, 0.668)
pt3dadd(219.094, 171.672, 43.985, 0.676)
pt3dadd(219.185, 171.744, 43.961, 0.678)
pt3dadd(219.275, 171.82, 43.939, 0.678)
pt3dadd(219.364, 171.895, 43.917, 0.678)
pt3dadd(219.452, 171.972, 43.896, 0.678)
pt3dadd(219.542, 172.048, 43.875, 0.678)
}
}
proc shape3d_197() {
dend_7[37] { pt3dadd(219.631, 172.124, 43.853, 0.678)
pt3dadd(219.72, 172.2, 43.832, 0.678)
pt3dadd(219.809, 172.276, 43.81, 0.678)
pt3dadd(219.899, 172.352, 43.788, 0.678)
pt3dadd(219.988, 172.428, 43.767, 0.678)
pt3dadd(220.064, 172.517, 43.751, 0.678)
pt3dadd(220.134, 172.613, 43.737, 0.678)
pt3dadd(220.205, 172.71, 43.724, 0.678)
pt3dadd(220.274, 172.806, 43.711, 0.678)
pt3dadd(220.344, 172.902, 43.697, 0.678)
pt3dadd(220.414, 172.998, 43.684, 0.678)
pt3dadd(220.483, 173.094, 43.671, 0.678)
pt3dadd(220.554, 173.191, 43.657, 0.678)
pt3dadd(220.624, 173.287, 43.644, 0.678)
pt3dadd(220.693, 173.383, 43.631, 0.678)
pt3dadd(220.766, 173.477, 43.622, 0.678)
pt3dadd(220.843, 173.569, 43.617, 0.678)
pt3dadd(220.919, 173.663, 43.612, 0.678)
pt3dadd(220.996, 173.755, 43.606, 0.678)
pt3dadd(221.071, 173.848, 43.601, 0.678)
pt3dadd(221.147, 173.94, 43.595, 0.678)
pt3dadd(221.224, 174.032, 43.59, 0.678)
pt3dadd(221.299, 174.126, 43.585, 0.678)
pt3dadd(221.375, 174.218, 43.579, 0.678)
pt3dadd(221.452, 174.311, 43.574, 0.678)
pt3dadd(221.536, 174.395, 43.567, 0.678)
pt3dadd(221.624, 174.475, 43.56, 0.678)
pt3dadd(221.713, 174.556, 43.553, 0.678)
pt3dadd(221.803, 174.635, 43.545, 0.678)
pt3dadd(221.892, 174.715, 43.538, 0.678)
pt3dadd(221.981, 174.796, 43.531, 0.678)
pt3dadd(222.07, 174.875, 43.523, 0.678)
pt3dadd(222.158, 174.955, 43.516, 0.678)
pt3dadd(222.247, 175.036, 43.509, 0.678)
pt3dadd(222.337, 175.115, 43.501, 0.678)
pt3dadd(222.434, 175.183, 43.49, 0.674)
pt3dadd(222.535, 175.247, 43.477, 0.668)
pt3dadd(222.635, 175.312, 43.464, 0.664)
pt3dadd(222.736, 175.375, 43.451, 0.658)
pt3dadd(222.835, 175.44, 43.438, 0.652)
pt3dadd(222.936, 175.504, 43.426, 0.646)
pt3dadd(223.036, 175.568, 43.413, 0.642)
pt3dadd(223.136, 175.632, 43.4, 0.636)
pt3dadd(223.236, 175.697, 43.387, 0.63)
pt3dadd(223.337, 175.76, 43.374, 0.626)
pt3dadd(223.434, 175.826, 43.354, 0.608)
pt3dadd(223.53, 175.892, 43.332, 0.588)
pt3dadd(223.627, 175.958, 43.31, 0.57)
pt3dadd(223.724, 176.024, 43.287, 0.55)
pt3dadd(223.82, 176.089, 43.265, 0.53)
pt3dadd(223.918, 176.155, 43.243, 0.51)
pt3dadd(224.014, 176.221, 43.22, 0.49)
pt3dadd(224.111, 176.287, 43.198, 0.472)
pt3dadd(224.207, 176.353, 43.176, 0.452)
pt3dadd(224.304, 176.419, 43.154, 0.432)
pt3dadd(224.365, 176.465, 43.077, 0.412)
pt3dadd(224.426, 176.512, 43, 0.39)
pt3dadd(224.489, 176.557, 42.923, 0.37)
pt3dadd(224.55, 176.604, 42.846, 0.35)
pt3dadd(224.611, 176.65, 42.77, 0.33)
pt3dadd(224.672, 176.695, 42.693, 0.308)
pt3dadd(224.734, 176.742, 42.616, 0.288)
pt3dadd(224.796, 176.788, 42.539, 0.268)
pt3dadd(224.857, 176.834, 42.462, 0.246)
pt3dadd(224.918, 176.88, 42.385, 0.226)
}
dend_7[38] {pt3dclear()
pt3dadd(152.533, 112.306, 31.677, 1.808)
pt3dadd(152.554, 112.261, 31.689, 1.794)
pt3dadd(152.602, 112.156, 31.716, 1.762)
pt3dadd(152.65, 112.051, 31.744, 1.73)
pt3dadd(152.699, 111.947, 31.771, 1.698)
pt3dadd(152.747, 111.842, 31.799, 1.666)
pt3dadd(152.795, 111.737, 31.827, 1.636)
pt3dadd(152.843, 111.632, 31.854, 1.604)
pt3dadd(152.891, 111.527, 31.882, 1.572)
pt3dadd(152.939, 111.423, 31.909, 1.54)
pt3dadd(152.988, 111.318, 31.937, 1.508)
pt3dadd(153.036, 111.213, 31.964, 1.476)
pt3dadd(153.084, 111.108, 31.992, 1.444)
pt3dadd(153.132, 111.003, 32.02, 1.412)
pt3dadd(153.18, 110.899, 32.047, 1.38)
pt3dadd(153.229, 110.794, 32.075, 1.348)
pt3dadd(153.277, 110.689, 32.102, 1.316)
pt3dadd(153.325, 110.584, 32.13, 1.284)
pt3dadd(153.373, 110.479, 32.157, 1.252)
pt3dadd(153.421, 110.375, 32.185, 1.222)
pt3dadd(153.474, 110.309, 32.244, 1.21)
pt3dadd(153.529, 110.27, 32.327, 1.216)
pt3dadd(153.584, 110.231, 32.41, 1.222)
pt3dadd(153.641, 110.193, 32.493, 1.226)
pt3dadd(153.696, 110.154, 32.575, 1.232)
pt3dadd(153.751, 110.115, 32.658, 1.236)
pt3dadd(153.806, 110.077, 32.74, 1.242)
pt3dadd(153.862, 110.038, 32.823, 1.248)
pt3dadd(153.918, 110, 32.906, 1.252)
pt3dadd(153.976, 109.975, 32.99, 1.25)
pt3dadd(154.037, 109.963, 33.075, 1.238)
pt3dadd(154.098, 109.95, 33.161, 1.226)
pt3dadd(154.159, 109.938, 33.246, 1.216)
pt3dadd(154.22, 109.926, 33.332, 1.204)
pt3dadd(154.282, 109.913, 33.417, 1.194)
pt3dadd(154.343, 109.901, 33.503, 1.182)
pt3dadd(154.404, 109.888, 33.588, 1.172)
pt3dadd(154.464, 109.876, 33.674, 1.16)
pt3dadd(154.525, 109.863, 33.759, 1.15)
pt3dadd(154.598, 109.849, 33.837, 1.12)
pt3dadd(154.678, 109.833, 33.911, 1.076)
pt3dadd(154.757, 109.816, 33.985, 1.034)
pt3dadd(154.836, 109.8, 34.059, 0.992)
pt3dadd(154.915, 109.784, 34.132, 0.948)
pt3dadd(154.994, 109.768, 34.206, 0.906)
pt3dadd(155.074, 109.751, 34.28, 0.864)
pt3dadd(155.154, 109.735, 34.354, 0.822)
pt3dadd(155.233, 109.719, 34.427, 0.778)
pt3dadd(155.312, 109.703, 34.501, 0.736)
pt3dadd(155.402, 109.67, 34.56, 0.746)
pt3dadd(155.496, 109.629, 34.612, 0.778)
pt3dadd(155.591, 109.589, 34.664, 0.812)
pt3dadd(155.684, 109.548, 34.716, 0.844)
pt3dadd(155.779, 109.508, 34.768, 0.876)
pt3dadd(155.873, 109.468, 34.819, 0.91)
pt3dadd(155.968, 109.427, 34.871, 0.942)
pt3dadd(156.061, 109.387, 34.923, 0.974)
pt3dadd(156.156, 109.347, 34.975, 1.008)
pt3dadd(156.25, 109.306, 35.027, 1.04)
pt3dadd(156.346, 109.278, 35.083, 1.064)
pt3dadd(156.442, 109.255, 35.14, 1.084)
pt3dadd(156.538, 109.232, 35.196, 1.104)
pt3dadd(156.634, 109.209, 35.253, 1.122)
pt3dadd(156.73, 109.186, 35.31, 1.142)
pt3dadd(156.826, 109.163, 35.367, 1.162)
pt3dadd(156.922, 109.14, 35.424, 1.182)
pt3dadd(157.018, 109.116, 35.481, 1.202)
pt3dadd(157.114, 109.093, 35.538, 1.222)
pt3dadd(157.21, 109.07, 35.595, 1.242)
pt3dadd(157.304, 109.056, 35.654, 1.248)
pt3dadd(157.399, 109.044, 35.715, 1.25)
pt3dadd(157.494, 109.032, 35.775, 1.252)
pt3dadd(157.589, 109.021, 35.836, 1.254)
pt3dadd(157.684, 109.009, 35.896, 1.256)
pt3dadd(157.778, 108.997, 35.957, 1.258)
pt3dadd(157.873, 108.986, 36.017, 1.26)
pt3dadd(157.968, 108.974, 36.078, 1.262)
pt3dadd(158.063, 108.962, 36.138, 1.264)
pt3dadd(158.158, 108.951, 36.199, 1.266)
pt3dadd(158.25, 108.95, 36.263, 1.244)
pt3dadd(158.34, 108.953, 36.328, 1.212)
pt3dadd(158.431, 108.955, 36.394, 1.182)
pt3dadd(158.522, 108.958, 36.459, 1.152)
pt3dadd(158.614, 108.96, 36.524, 1.12)
pt3dadd(158.704, 108.963, 36.589, 1.09)
pt3dadd(158.795, 108.965, 36.654, 1.058)
pt3dadd(158.886, 108.968, 36.72, 1.028)
pt3dadd(158.977, 108.971, 36.785, 0.996)
pt3dadd(159.068, 108.973, 36.85, 0.966)
pt3dadd(159.15, 109.011, 36.913, 0.968)
pt3dadd(159.23, 109.059, 36.976, 0.978)
pt3dadd(159.311, 109.107, 37.039, 0.988)
pt3dadd(159.39, 109.155, 37.102, 0.998)
pt3dadd(159.47, 109.203, 37.165, 1.01)
pt3dadd(159.551, 109.251, 37.228, 1.02)
pt3dadd(159.631, 109.299, 37.291, 1.03)
pt3dadd(159.71, 109.347, 37.354, 1.04)
pt3dadd(159.791, 109.395, 37.416, 1.05)
pt3dadd(159.871, 109.443, 37.479, 1.062)
pt3dadd(159.952, 109.488, 37.542, 1.058)
pt3dadd(160.033, 109.534, 37.606, 1.054)
pt3dadd(160.114, 109.579, 37.669, 1.05)
pt3dadd(160.195, 109.625, 37.732, 1.046)
pt3dadd(160.276, 109.671, 37.795, 1.042)
pt3dadd(160.357, 109.716, 37.859, 1.038)
pt3dadd(160.438, 109.762, 37.922, 1.032)
pt3dadd(160.519, 109.807, 37.985, 1.028)
pt3dadd(160.6, 109.853, 38.049, 1.024)
pt3dadd(160.681, 109.898, 38.112, 1.02)
pt3dadd(160.765, 109.935, 38.176, 1.014)
pt3dadd(160.849, 109.971, 38.241, 1.006)
pt3dadd(160.934, 110.006, 38.305, 1)
pt3dadd(161.018, 110.042, 38.37, 0.994)
pt3dadd(161.102, 110.078, 38.434, 0.986)
pt3dadd(161.188, 110.114, 38.499, 0.98)
pt3dadd(161.272, 110.15, 38.563, 0.974)
pt3dadd(161.356, 110.186, 38.627, 0.966)
pt3dadd(161.441, 110.222, 38.692, 0.96)
pt3dadd(161.525, 110.258, 38.756, 0.952)
pt3dadd(161.611, 110.287, 38.821, 0.968)
pt3dadd(161.698, 110.316, 38.886, 0.982)
pt3dadd(161.785, 110.345, 38.951, 0.998)
pt3dadd(161.872, 110.374, 39.016, 1.014)
pt3dadd(161.958, 110.403, 39.081, 1.028)
pt3dadd(162.044, 110.432, 39.146, 1.044)
pt3dadd(162.131, 110.461, 39.21, 1.06)
pt3dadd(162.218, 110.49, 39.275, 1.074)
pt3dadd(162.305, 110.518, 39.34, 1.09)
pt3dadd(162.391, 110.547, 39.405, 1.106)
pt3dadd(162.481, 110.597, 39.456, 1.058)
pt3dadd(162.572, 110.647, 39.507, 1.008)
pt3dadd(162.662, 110.696, 39.558, 0.96)
pt3dadd(162.752, 110.746, 39.609, 0.91)
pt3dadd(162.844, 110.796, 39.66, 0.86)
pt3dadd(162.934, 110.846, 39.711, 0.812)
}
}
proc shape3d_198() {
dend_7[38] { pt3dadd(163.025, 110.896, 39.761, 0.762)
pt3dadd(163.115, 110.946, 39.812, 0.712)
pt3dadd(163.205, 110.996, 39.863, 0.664)
pt3dadd(163.296, 111.046, 39.914, 0.616)
pt3dadd(163.384, 111.098, 39.966, 0.604)
pt3dadd(163.471, 111.151, 40.018, 0.594)
pt3dadd(163.56, 111.203, 40.07, 0.584)
pt3dadd(163.648, 111.256, 40.122, 0.574)
pt3dadd(163.735, 111.309, 40.174, 0.562)
pt3dadd(163.824, 111.361, 40.226, 0.552)
pt3dadd(163.912, 111.414, 40.278, 0.542)
pt3dadd(163.999, 111.466, 40.33, 0.53)
pt3dadd(164.088, 111.519, 40.382, 0.52)
pt3dadd(164.176, 111.572, 40.434, 0.514)
pt3dadd(164.258, 111.622, 40.492, 0.592)
pt3dadd(164.341, 111.673, 40.551, 0.672)
pt3dadd(164.424, 111.724, 40.61, 0.75)
pt3dadd(164.507, 111.775, 40.668, 0.828)
pt3dadd(164.59, 111.826, 40.727, 0.908)
pt3dadd(164.674, 111.877, 40.785, 0.986)
pt3dadd(164.756, 111.927, 40.844, 1.064)
pt3dadd(164.839, 111.978, 40.903, 1.144)
pt3dadd(164.922, 112.029, 40.961, 1.222)
pt3dadd(165.004, 112.081, 41.02, 1.296)
pt3dadd(165.05, 112.158, 41.086, 1.258)
pt3dadd(165.097, 112.236, 41.151, 1.218)
pt3dadd(165.144, 112.313, 41.217, 1.18)
pt3dadd(165.192, 112.391, 41.283, 1.142)
pt3dadd(165.239, 112.468, 41.348, 1.102)
pt3dadd(165.286, 112.545, 41.414, 1.064)
pt3dadd(165.332, 112.623, 41.479, 1.024)
pt3dadd(165.379, 112.7, 41.545, 0.986)
pt3dadd(165.427, 112.777, 41.611, 0.948)
pt3dadd(165.473, 112.856, 41.675, 0.91)
pt3dadd(165.509, 112.947, 41.734, 0.896)
pt3dadd(165.544, 113.037, 41.792, 0.882)
pt3dadd(165.58, 113.128, 41.85, 0.866)
pt3dadd(165.616, 113.219, 41.909, 0.852)
pt3dadd(165.65, 113.31, 41.967, 0.838)
pt3dadd(165.686, 113.401, 42.025, 0.824)
pt3dadd(165.722, 113.491, 42.083, 0.808)
pt3dadd(165.757, 113.582, 42.142, 0.794)
pt3dadd(165.793, 113.673, 42.2, 0.78)
pt3dadd(165.827, 113.766, 42.257, 0.77)
pt3dadd(165.853, 113.865, 42.308, 0.78)
pt3dadd(165.88, 113.965, 42.358, 0.79)
pt3dadd(165.906, 114.065, 42.409, 0.8)
pt3dadd(165.932, 114.165, 42.46, 0.81)
pt3dadd(165.959, 114.265, 42.511, 0.82)
pt3dadd(165.985, 114.365, 42.562, 0.83)
pt3dadd(166.012, 114.465, 42.612, 0.84)
pt3dadd(166.038, 114.565, 42.663, 0.85)
pt3dadd(166.064, 114.665, 42.714, 0.86)
pt3dadd(166.091, 114.765, 42.765, 0.866)
pt3dadd(166.115, 114.863, 42.819, 0.85)
pt3dadd(166.14, 114.961, 42.873, 0.834)
pt3dadd(166.164, 115.06, 42.926, 0.818)
pt3dadd(166.188, 115.158, 42.98, 0.802)
pt3dadd(166.212, 115.256, 43.033, 0.786)
pt3dadd(166.237, 115.355, 43.087, 0.77)
pt3dadd(166.261, 115.453, 43.14, 0.754)
pt3dadd(166.285, 115.551, 43.194, 0.738)
pt3dadd(166.31, 115.65, 43.248, 0.722)
pt3dadd(166.34, 115.747, 43.299, 0.714)
pt3dadd(166.399, 115.841, 43.338, 0.736)
pt3dadd(166.457, 115.934, 43.377, 0.76)
pt3dadd(166.516, 116.028, 43.417, 0.782)
pt3dadd(166.573, 116.122, 43.456, 0.804)
pt3dadd(166.632, 116.215, 43.496, 0.828)
pt3dadd(166.69, 116.309, 43.535, 0.85)
pt3dadd(166.748, 116.403, 43.575, 0.872)
pt3dadd(166.806, 116.496, 43.614, 0.896)
pt3dadd(166.865, 116.59, 43.653, 0.918)
pt3dadd(166.927, 116.679, 43.694, 0.94)
pt3dadd(167.002, 116.759, 43.736, 0.96)
pt3dadd(167.076, 116.838, 43.779, 0.98)
pt3dadd(167.15, 116.917, 43.821, 1)
pt3dadd(167.225, 116.996, 43.864, 1.02)
pt3dadd(167.299, 117.075, 43.906, 1.04)
pt3dadd(167.374, 117.155, 43.949, 1.06)
pt3dadd(167.448, 117.234, 43.991, 1.08)
pt3dadd(167.522, 117.313, 44.034, 1.1)
pt3dadd(167.597, 117.392, 44.076, 1.12)
pt3dadd(167.677, 117.46, 44.123, 1.13)
pt3dadd(167.762, 117.517, 44.175, 1.13)
pt3dadd(167.848, 117.573, 44.227, 1.13)
pt3dadd(167.933, 117.63, 44.279, 1.13)
pt3dadd(168.019, 117.686, 44.331, 1.13)
pt3dadd(168.104, 117.742, 44.383, 1.13)
pt3dadd(168.19, 117.799, 44.435, 1.13)
pt3dadd(168.276, 117.855, 44.487, 1.13)
pt3dadd(168.361, 117.911, 44.539, 1.13)
pt3dadd(168.446, 117.968, 44.591, 1.13)
pt3dadd(168.535, 118.028, 44.636, 1.116)
pt3dadd(168.628, 118.092, 44.671, 1.086)
pt3dadd(168.72, 118.155, 44.707, 1.058)
pt3dadd(168.812, 118.219, 44.742, 1.028)
pt3dadd(168.905, 118.283, 44.778, 1)
pt3dadd(168.997, 118.347, 44.813, 0.97)
pt3dadd(169.088, 118.411, 44.849, 0.942)
pt3dadd(169.181, 118.475, 44.884, 0.912)
pt3dadd(169.273, 118.539, 44.92, 0.882)
pt3dadd(169.366, 118.602, 44.955, 0.854)
pt3dadd(169.453, 118.669, 44.996, 0.84)
pt3dadd(169.535, 118.737, 45.041, 0.84)
pt3dadd(169.616, 118.806, 45.086, 0.84)
pt3dadd(169.699, 118.874, 45.132, 0.842)
pt3dadd(169.781, 118.943, 45.177, 0.842)
pt3dadd(169.864, 119.011, 45.223, 0.842)
pt3dadd(169.945, 119.08, 45.268, 0.842)
pt3dadd(170.027, 119.148, 45.313, 0.844)
pt3dadd(170.11, 119.217, 45.359, 0.844)
pt3dadd(170.191, 119.286, 45.404, 0.844)
pt3dadd(170.269, 119.353, 45.455, 0.862)
pt3dadd(170.345, 119.42, 45.509, 0.892)
pt3dadd(170.42, 119.486, 45.564, 0.92)
pt3dadd(170.496, 119.553, 45.618, 0.95)
pt3dadd(170.572, 119.619, 45.672, 0.978)
pt3dadd(170.647, 119.686, 45.727, 1.006)
pt3dadd(170.723, 119.753, 45.781, 1.036)
pt3dadd(170.798, 119.819, 45.835, 1.064)
pt3dadd(170.874, 119.886, 45.889, 1.094)
pt3dadd(170.95, 119.953, 45.944, 1.122)
pt3dadd(171.044, 119.997, 45.989, 1.13)
pt3dadd(171.148, 120.034, 46.032, 1.132)
pt3dadd(171.25, 120.07, 46.074, 1.134)
pt3dadd(171.353, 120.107, 46.116, 1.134)
pt3dadd(171.455, 120.143, 46.159, 1.136)
pt3dadd(171.557, 120.179, 46.201, 1.136)
pt3dadd(171.66, 120.216, 46.243, 1.138)
pt3dadd(171.762, 120.252, 46.285, 1.14)
pt3dadd(171.865, 120.289, 46.328, 1.14)
pt3dadd(171.967, 120.325, 46.37, 1.142)
pt3dadd(172.07, 120.332, 46.418, 1.156)
pt3dadd(172.175, 120.33, 46.468, 1.172)
pt3dadd(172.278, 120.329, 46.519, 1.19)
pt3dadd(172.382, 120.326, 46.569, 1.208)
pt3dadd(172.486, 120.324, 46.619, 1.226)
pt3dadd(172.589, 120.323, 46.669, 1.242)
pt3dadd(172.693, 120.32, 46.72, 1.26)
pt3dadd(172.796, 120.319, 46.77, 1.278)
pt3dadd(172.901, 120.317, 46.82, 1.296)
pt3dadd(173.004, 120.314, 46.87, 1.312)
pt3dadd(173.111, 120.286, 46.905, 1.278)
pt3dadd(173.219, 120.247, 46.935, 1.226)
pt3dadd(173.327, 120.209, 46.966, 1.176)
pt3dadd(173.435, 120.17, 46.996, 1.124)
pt3dadd(173.543, 120.133, 47.027, 1.074)
pt3dadd(173.651, 120.095, 47.057, 1.022)
pt3dadd(173.758, 120.056, 47.087, 0.972)
pt3dadd(173.866, 120.019, 47.118, 0.922)
pt3dadd(173.974, 119.981, 47.148, 0.87)
pt3dadd(174.082, 119.943, 47.178, 0.82)
pt3dadd(174.192, 119.901, 47.196, 0.788)
pt3dadd(174.302, 119.86, 47.213, 0.76)
pt3dadd(174.414, 119.818, 47.23, 0.73)
pt3dadd(174.524, 119.777, 47.248, 0.7)
pt3dadd(174.635, 119.736, 47.265, 0.672)
pt3dadd(174.746, 119.694, 47.282, 0.642)
pt3dadd(174.857, 119.653, 47.299, 0.612)
pt3dadd(174.967, 119.611, 47.316, 0.584)
pt3dadd(175.078, 119.57, 47.334, 0.554)
pt3dadd(175.189, 119.529, 47.351, 0.524)
pt3dadd(175.303, 119.494, 47.36, 0.54)
pt3dadd(175.417, 119.46, 47.37, 0.556)
pt3dadd(175.532, 119.426, 47.38, 0.57)
pt3dadd(175.646, 119.391, 47.389, 0.586)
pt3dadd(175.76, 119.357, 47.399, 0.602)
pt3dadd(175.876, 119.322, 47.408, 0.616)
pt3dadd(175.99, 119.288, 47.418, 0.632)
pt3dadd(176.104, 119.254, 47.427, 0.648)
pt3dadd(176.219, 119.219, 47.437, 0.662)
pt3dadd(176.333, 119.185, 47.446, 0.678)
}
dend_7[39] {pt3dclear()
pt3dadd(149.308, 109.586, 28.735, 1.356)
pt3dadd(149.3, 109.595, 28.734, 1.356)
pt3dadd(149.22, 109.683, 28.722, 1.356)
pt3dadd(149.14, 109.771, 28.71, 1.356)
pt3dadd(149.06, 109.86, 28.699, 1.356)
pt3dadd(148.98, 109.948, 28.687, 1.356)
pt3dadd(148.9, 110.036, 28.675, 1.356)
pt3dadd(148.819, 110.124, 28.663, 1.356)
pt3dadd(148.74, 110.213, 28.652, 1.356)
pt3dadd(148.66, 110.301, 28.64, 1.356)
pt3dadd(148.579, 110.389, 28.628, 1.356)
pt3dadd(148.499, 110.477, 28.616, 1.356)
pt3dadd(148.42, 110.565, 28.605, 1.356)
pt3dadd(148.339, 110.654, 28.593, 1.356)
pt3dadd(148.259, 110.742, 28.581, 1.356)
pt3dadd(148.18, 110.832, 28.572, 1.354)
pt3dadd(148.102, 110.922, 28.563, 1.354)
pt3dadd(148.022, 111.012, 28.554, 1.352)
pt3dadd(147.944, 111.102, 28.545, 1.352)
pt3dadd(147.865, 111.192, 28.536, 1.35)
pt3dadd(147.787, 111.282, 28.527, 1.348)
pt3dadd(147.708, 111.372, 28.518, 1.348)
pt3dadd(147.63, 111.462, 28.509, 1.346)
pt3dadd(147.551, 111.552, 28.5, 1.346)
pt3dadd(147.474, 111.642, 28.494, 1.344)
pt3dadd(147.45, 111.741, 28.546, 1.316)
pt3dadd(147.425, 111.84, 28.599, 1.29)
}
}
proc shape3d_199() {
dend_7[39] { pt3dadd(147.401, 111.938, 28.652, 1.264)
pt3dadd(147.377, 112.037, 28.705, 1.236)
pt3dadd(147.352, 112.136, 28.758, 1.21)
pt3dadd(147.328, 112.235, 28.811, 1.184)
pt3dadd(147.302, 112.334, 28.864, 1.158)
pt3dadd(147.278, 112.433, 28.917, 1.13)
pt3dadd(147.254, 112.531, 28.97, 1.104)
pt3dadd(147.229, 112.63, 29.023, 1.078)
pt3dadd(147.196, 112.731, 29.069, 1.06)
pt3dadd(147.162, 112.832, 29.115, 1.042)
pt3dadd(147.128, 112.933, 29.161, 1.024)
pt3dadd(147.095, 113.034, 29.208, 1.008)
pt3dadd(147.061, 113.135, 29.254, 0.99)
pt3dadd(147.026, 113.236, 29.3, 0.972)
pt3dadd(146.993, 113.337, 29.346, 0.954)
pt3dadd(146.959, 113.438, 29.392, 0.936)
pt3dadd(146.926, 113.539, 29.439, 0.92)
pt3dadd(146.89, 113.64, 29.483, 0.904)
pt3dadd(146.84, 113.742, 29.515, 0.904)
pt3dadd(146.79, 113.844, 29.547, 0.904)
pt3dadd(146.74, 113.946, 29.579, 0.902)
pt3dadd(146.689, 114.048, 29.611, 0.902)
pt3dadd(146.64, 114.15, 29.643, 0.902)
pt3dadd(146.59, 114.252, 29.675, 0.902)
pt3dadd(146.539, 114.354, 29.707, 0.902)
pt3dadd(146.489, 114.456, 29.739, 0.9)
pt3dadd(146.44, 114.558, 29.771, 0.9)
pt3dadd(146.392, 114.662, 29.802, 0.898)
pt3dadd(146.353, 114.772, 29.826, 0.882)
pt3dadd(146.316, 114.882, 29.851, 0.864)
pt3dadd(146.279, 114.992, 29.875, 0.848)
pt3dadd(146.242, 115.103, 29.899, 0.832)
pt3dadd(146.204, 115.213, 29.924, 0.814)
pt3dadd(146.167, 115.323, 29.948, 0.798)
pt3dadd(146.13, 115.433, 29.973, 0.782)
pt3dadd(146.093, 115.543, 29.997, 0.766)
pt3dadd(146.056, 115.654, 30.022, 0.748)
pt3dadd(146.018, 115.763, 30.048, 0.73)
pt3dadd(145.987, 115.87, 30.085, 0.704)
pt3dadd(145.956, 115.977, 30.122, 0.678)
pt3dadd(145.925, 116.084, 30.159, 0.652)
pt3dadd(145.894, 116.191, 30.196, 0.624)
pt3dadd(145.862, 116.298, 30.233, 0.598)
pt3dadd(145.831, 116.405, 30.27, 0.572)
pt3dadd(145.799, 116.512, 30.307, 0.544)
pt3dadd(145.768, 116.619, 30.344, 0.518)
pt3dadd(145.736, 116.726, 30.381, 0.492)
pt3dadd(145.705, 116.832, 30.419, 0.466)
pt3dadd(145.672, 116.936, 30.461, 0.444)
pt3dadd(145.638, 117.04, 30.502, 0.424)
pt3dadd(145.604, 117.144, 30.544, 0.404)
pt3dadd(145.571, 117.248, 30.585, 0.382)
pt3dadd(145.537, 117.352, 30.627, 0.362)
pt3dadd(145.504, 117.456, 30.668, 0.34)
pt3dadd(145.47, 117.56, 30.71, 0.32)
pt3dadd(145.436, 117.664, 30.751, 0.298)
pt3dadd(145.404, 117.768, 30.793, 0.278)
pt3dadd(145.366, 117.871, 30.833, 0.266)
pt3dadd(145.315, 117.971, 30.867, 0.28)
pt3dadd(145.265, 118.072, 30.902, 0.296)
pt3dadd(145.213, 118.172, 30.937, 0.312)
pt3dadd(145.163, 118.272, 30.971, 0.328)
pt3dadd(145.111, 118.373, 31.006, 0.342)
pt3dadd(145.061, 118.473, 31.041, 0.358)
pt3dadd(145.01, 118.574, 31.075, 0.374)
pt3dadd(144.959, 118.674, 31.11, 0.39)
pt3dadd(144.908, 118.774, 31.145, 0.404)
pt3dadd(144.859, 118.874, 31.183, 0.424)
pt3dadd(144.815, 118.97, 31.23, 0.45)
pt3dadd(144.772, 119.066, 31.278, 0.478)
pt3dadd(144.728, 119.161, 31.326, 0.506)
pt3dadd(144.684, 119.257, 31.374, 0.532)
pt3dadd(144.641, 119.353, 31.422, 0.56)
pt3dadd(144.598, 119.449, 31.47, 0.588)
pt3dadd(144.553, 119.545, 31.518, 0.614)
pt3dadd(144.51, 119.641, 31.566, 0.642)
pt3dadd(144.467, 119.737, 31.613, 0.67)
pt3dadd(144.421, 119.832, 31.661, 0.7)
pt3dadd(144.373, 119.926, 31.708, 0.742)
pt3dadd(144.324, 120.02, 31.755, 0.782)
pt3dadd(144.276, 120.114, 31.802, 0.824)
pt3dadd(144.227, 120.209, 31.85, 0.864)
pt3dadd(144.179, 120.302, 31.897, 0.906)
pt3dadd(144.131, 120.397, 31.944, 0.946)
pt3dadd(144.082, 120.491, 31.991, 0.988)
pt3dadd(144.034, 120.584, 32.038, 1.028)
pt3dadd(143.984, 120.679, 32.085, 1.07)
pt3dadd(143.93, 120.772, 32.129, 1.118)
pt3dadd(143.866, 120.864, 32.164, 1.184)
pt3dadd(143.801, 120.955, 32.2, 1.248)
pt3dadd(143.737, 121.046, 32.236, 1.312)
pt3dadd(143.672, 121.138, 32.272, 1.376)
pt3dadd(143.608, 121.23, 32.308, 1.44)
pt3dadd(143.543, 121.321, 32.343, 1.504)
pt3dadd(143.478, 121.412, 32.379, 1.568)
pt3dadd(143.413, 121.504, 32.415, 1.632)
pt3dadd(143.348, 121.596, 32.451, 1.696)
pt3dadd(143.287, 121.681, 32.496, 1.736)
pt3dadd(143.231, 121.753, 32.56, 1.724)
pt3dadd(143.176, 121.826, 32.625, 1.714)
pt3dadd(143.12, 121.9, 32.69, 1.702)
pt3dadd(143.064, 121.972, 32.754, 1.69)
pt3dadd(143.009, 122.045, 32.819, 1.68)
pt3dadd(142.952, 122.117, 32.883, 1.668)
pt3dadd(142.897, 122.19, 32.948, 1.656)
pt3dadd(142.842, 122.263, 33.013, 1.646)
pt3dadd(142.786, 122.335, 33.077, 1.634)
pt3dadd(142.723, 122.41, 33.135, 1.614)
pt3dadd(142.651, 122.486, 33.183, 1.58)
pt3dadd(142.579, 122.563, 33.231, 1.544)
pt3dadd(142.507, 122.64, 33.28, 1.51)
pt3dadd(142.435, 122.717, 33.328, 1.476)
pt3dadd(142.363, 122.794, 33.376, 1.442)
pt3dadd(142.291, 122.869, 33.424, 1.408)
pt3dadd(142.219, 122.946, 33.472, 1.372)
pt3dadd(142.147, 123.023, 33.52, 1.338)
pt3dadd(142.075, 123.1, 33.568, 1.304)
pt3dadd(142.006, 123.173, 33.622, 1.266)
pt3dadd(141.94, 123.241, 33.682, 1.224)
pt3dadd(141.872, 123.311, 33.743, 1.182)
pt3dadd(141.806, 123.379, 33.803, 1.14)
pt3dadd(141.74, 123.449, 33.863, 1.098)
pt3dadd(141.673, 123.517, 33.923, 1.056)
pt3dadd(141.607, 123.587, 33.983, 1.014)
pt3dadd(141.541, 123.655, 34.044, 0.972)
pt3dadd(141.474, 123.725, 34.104, 0.93)
pt3dadd(141.408, 123.793, 34.164, 0.888)
pt3dadd(141.34, 123.865, 34.221, 0.86)
pt3dadd(141.271, 123.94, 34.275, 0.84)
pt3dadd(141.203, 124.013, 34.33, 0.82)
pt3dadd(141.134, 124.086, 34.384, 0.8)
pt3dadd(141.066, 124.16, 34.439, 0.78)
pt3dadd(140.998, 124.234, 34.493, 0.76)
pt3dadd(140.928, 124.307, 34.548, 0.74)
pt3dadd(140.86, 124.381, 34.603, 0.72)
pt3dadd(140.791, 124.454, 34.657, 0.702)
pt3dadd(140.723, 124.528, 34.712, 0.682)
pt3dadd(140.654, 124.606, 34.762, 0.692)
pt3dadd(140.586, 124.685, 34.811, 0.708)
pt3dadd(140.518, 124.764, 34.86, 0.726)
pt3dadd(140.449, 124.842, 34.909, 0.742)
pt3dadd(140.381, 124.921, 34.959, 0.758)
pt3dadd(140.311, 125, 35.008, 0.776)
pt3dadd(140.243, 125.078, 35.057, 0.792)
pt3dadd(140.174, 125.158, 35.106, 0.808)
pt3dadd(140.106, 125.237, 35.155, 0.826)
pt3dadd(140.038, 125.316, 35.205, 0.842)
pt3dadd(139.976, 125.398, 35.257, 0.852)
pt3dadd(139.915, 125.479, 35.31, 0.86)
pt3dadd(139.854, 125.561, 35.363, 0.868)
pt3dadd(139.794, 125.642, 35.416, 0.876)
pt3dadd(139.733, 125.724, 35.469, 0.886)
pt3dadd(139.672, 125.806, 35.521, 0.894)
pt3dadd(139.61, 125.887, 35.574, 0.902)
pt3dadd(139.549, 125.969, 35.627, 0.912)
pt3dadd(139.489, 126.05, 35.68, 0.92)
pt3dadd(139.428, 126.134, 35.729, 0.92)
pt3dadd(139.366, 126.232, 35.755, 0.88)
pt3dadd(139.303, 126.33, 35.781, 0.838)
pt3dadd(139.24, 126.427, 35.807, 0.796)
pt3dadd(139.177, 126.524, 35.833, 0.754)
pt3dadd(139.115, 126.622, 35.859, 0.714)
pt3dadd(139.052, 126.72, 35.886, 0.672)
pt3dadd(138.99, 126.817, 35.912, 0.63)
pt3dadd(138.928, 126.914, 35.938, 0.588)
pt3dadd(138.865, 127.012, 35.964, 0.546)
pt3dadd(138.809, 127.114, 35.988, 0.524)
pt3dadd(138.773, 127.225, 36.004, 0.562)
pt3dadd(138.736, 127.338, 36.02, 0.602)
pt3dadd(138.7, 127.451, 36.036, 0.64)
pt3dadd(138.662, 127.564, 36.052, 0.68)
pt3dadd(138.626, 127.676, 36.067, 0.718)
pt3dadd(138.589, 127.789, 36.083, 0.758)
pt3dadd(138.553, 127.902, 36.099, 0.796)
pt3dadd(138.516, 128.015, 36.115, 0.836)
pt3dadd(138.48, 128.128, 36.131, 0.874)
pt3dadd(138.446, 128.24, 36.146, 0.914)
pt3dadd(138.422, 128.358, 36.155, 0.95)
pt3dadd(138.398, 128.476, 36.163, 0.988)
pt3dadd(138.374, 128.592, 36.172, 1.026)
pt3dadd(138.35, 128.71, 36.181, 1.064)
pt3dadd(138.328, 128.827, 36.19, 1.1)
pt3dadd(138.304, 128.944, 36.199, 1.138)
pt3dadd(138.28, 129.061, 36.208, 1.176)
pt3dadd(138.256, 129.178, 36.217, 1.214)
pt3dadd(138.232, 129.295, 36.226, 1.25)
pt3dadd(138.21, 129.413, 36.236, 1.288)
pt3dadd(138.191, 129.529, 36.25, 1.328)
pt3dadd(138.172, 129.647, 36.265, 1.366)
pt3dadd(138.152, 129.764, 36.28, 1.406)
pt3dadd(138.134, 129.881, 36.294, 1.446)
pt3dadd(138.115, 129.998, 36.309, 1.484)
pt3dadd(138.096, 130.116, 36.323, 1.524)
pt3dadd(138.078, 130.232, 36.338, 1.562)
pt3dadd(138.059, 130.35, 36.353, 1.602)
pt3dadd(138.04, 130.468, 36.367, 1.64)
pt3dadd(138.014, 130.58, 36.388, 1.67)
pt3dadd(137.968, 130.678, 36.431, 1.672)
pt3dadd(137.921, 130.776, 36.473, 1.672)
pt3dadd(137.874, 130.874, 36.516, 1.672)
}
}
proc shape3d_200() {
dend_7[39] { pt3dadd(137.827, 130.973, 36.558, 1.672)
pt3dadd(137.782, 131.071, 36.601, 1.674)
pt3dadd(137.735, 131.168, 36.643, 1.674)
pt3dadd(137.688, 131.267, 36.685, 1.674)
pt3dadd(137.641, 131.365, 36.728, 1.674)
pt3dadd(137.594, 131.464, 36.77, 1.674)
pt3dadd(137.545, 131.557, 36.816, 1.648)
pt3dadd(137.494, 131.651, 36.863, 1.606)
pt3dadd(137.442, 131.743, 36.91, 1.564)
pt3dadd(137.392, 131.836, 36.957, 1.522)
pt3dadd(137.34, 131.928, 37.004, 1.48)
pt3dadd(137.288, 132.022, 37.051, 1.438)
pt3dadd(137.237, 132.114, 37.098, 1.396)
pt3dadd(137.186, 132.206, 37.145, 1.354)
pt3dadd(137.135, 132.299, 37.192, 1.312)
pt3dadd(137.083, 132.392, 37.239, 1.27)
pt3dadd(137.042, 132.491, 37.284, 1.232)
pt3dadd(137.004, 132.592, 37.328, 1.196)
pt3dadd(136.967, 132.692, 37.372, 1.162)
pt3dadd(136.93, 132.793, 37.416, 1.126)
pt3dadd(136.892, 132.894, 37.46, 1.09)
pt3dadd(136.854, 132.995, 37.504, 1.054)
pt3dadd(136.817, 133.097, 37.548, 1.02)
pt3dadd(136.78, 133.198, 37.592, 0.984)
pt3dadd(136.741, 133.298, 37.636, 0.948)
pt3dadd(136.704, 133.399, 37.68, 0.914)
pt3dadd(136.673, 133.501, 37.727, 0.906)
pt3dadd(136.643, 133.602, 37.774, 0.91)
pt3dadd(136.613, 133.704, 37.821, 0.914)
pt3dadd(136.583, 133.805, 37.868, 0.918)
pt3dadd(136.553, 133.907, 37.915, 0.92)
pt3dadd(136.523, 134.009, 37.962, 0.924)
pt3dadd(136.493, 134.11, 38.009, 0.928)
pt3dadd(136.463, 134.212, 38.056, 0.932)
pt3dadd(136.433, 134.314, 38.103, 0.936)
pt3dadd(136.403, 134.414, 38.15, 0.938)
pt3dadd(136.358, 134.52, 38.178, 0.976)
pt3dadd(136.312, 134.627, 38.201, 1.024)
pt3dadd(136.264, 134.734, 38.223, 1.072)
pt3dadd(136.216, 134.84, 38.246, 1.12)
pt3dadd(136.168, 134.947, 38.269, 1.168)
pt3dadd(136.12, 135.054, 38.291, 1.216)
pt3dadd(136.073, 135.161, 38.314, 1.264)
pt3dadd(136.025, 135.268, 38.337, 1.312)
pt3dadd(135.977, 135.373, 38.359, 1.36)
pt3dadd(135.929, 135.48, 38.382, 1.408)
pt3dadd(135.886, 135.59, 38.399, 1.414)
pt3dadd(135.842, 135.701, 38.415, 1.408)
pt3dadd(135.8, 135.811, 38.431, 1.402)
pt3dadd(135.757, 135.922, 38.446, 1.396)
pt3dadd(135.715, 136.033, 38.462, 1.39)
pt3dadd(135.672, 136.144, 38.477, 1.384)
pt3dadd(135.63, 136.254, 38.493, 1.378)
pt3dadd(135.587, 136.364, 38.509, 1.372)
pt3dadd(135.545, 136.475, 38.524, 1.366)
pt3dadd(135.503, 136.585, 38.54, 1.36)
pt3dadd(135.463, 136.698, 38.55, 1.344)
pt3dadd(135.424, 136.811, 38.559, 1.328)
pt3dadd(135.385, 136.925, 38.568, 1.31)
pt3dadd(135.347, 137.038, 38.577, 1.294)
pt3dadd(135.308, 137.15, 38.586, 1.276)
pt3dadd(135.269, 137.263, 38.595, 1.26)
pt3dadd(135.23, 137.377, 38.604, 1.242)
pt3dadd(135.192, 137.49, 38.613, 1.224)
pt3dadd(135.154, 137.603, 38.622, 1.208)
pt3dadd(135.114, 137.716, 38.631, 1.19)
pt3dadd(135.077, 137.83, 38.635, 1.202)
pt3dadd(135.04, 137.944, 38.638, 1.22)
pt3dadd(135.002, 138.058, 38.641, 1.236)
pt3dadd(134.965, 138.172, 38.644, 1.254)
pt3dadd(134.929, 138.286, 38.647, 1.272)
pt3dadd(134.892, 138.4, 38.65, 1.29)
pt3dadd(134.855, 138.515, 38.653, 1.306)
pt3dadd(134.818, 138.629, 38.656, 1.324)
pt3dadd(134.78, 138.743, 38.659, 1.342)
pt3dadd(134.743, 138.857, 38.662, 1.36)
pt3dadd(134.688, 138.962, 38.668, 1.376)
pt3dadd(134.628, 139.066, 38.675, 1.392)
pt3dadd(134.568, 139.17, 38.682, 1.41)
pt3dadd(134.508, 139.273, 38.688, 1.426)
pt3dadd(134.448, 139.378, 38.695, 1.442)
pt3dadd(134.389, 139.481, 38.702, 1.46)
pt3dadd(134.329, 139.584, 38.709, 1.476)
pt3dadd(134.269, 139.688, 38.715, 1.492)
pt3dadd(134.209, 139.792, 38.722, 1.51)
pt3dadd(134.149, 139.896, 38.729, 1.526)
pt3dadd(134.082, 139.994, 38.738, 1.524)
pt3dadd(134.014, 140.092, 38.747, 1.518)
pt3dadd(133.944, 140.19, 38.757, 1.514)
pt3dadd(133.876, 140.287, 38.766, 1.508)
pt3dadd(133.806, 140.384, 38.775, 1.502)
pt3dadd(133.738, 140.482, 38.785, 1.496)
pt3dadd(133.668, 140.58, 38.794, 1.492)
pt3dadd(133.6, 140.677, 38.804, 1.486)
pt3dadd(133.53, 140.774, 38.813, 1.48)
pt3dadd(133.462, 140.872, 38.822, 1.474)
pt3dadd(133.39, 140.965, 38.841, 1.46)
pt3dadd(133.318, 141.059, 38.862, 1.442)
pt3dadd(133.247, 141.151, 38.883, 1.424)
pt3dadd(133.175, 141.245, 38.904, 1.406)
pt3dadd(133.103, 141.337, 38.924, 1.388)
pt3dadd(133.031, 141.431, 38.945, 1.372)
pt3dadd(132.96, 141.523, 38.966, 1.354)
pt3dadd(132.888, 141.616, 38.987, 1.336)
pt3dadd(132.816, 141.709, 39.007, 1.318)
pt3dadd(132.744, 141.802, 39.028, 1.302)
pt3dadd(132.685, 141.892, 39.073, 1.272)
pt3dadd(132.625, 141.98, 39.118, 1.242)
pt3dadd(132.566, 142.069, 39.164, 1.212)
pt3dadd(132.508, 142.158, 39.209, 1.184)
pt3dadd(132.449, 142.247, 39.255, 1.154)
pt3dadd(132.389, 142.337, 39.3, 1.124)
pt3dadd(132.33, 142.426, 39.345, 1.094)
pt3dadd(132.271, 142.514, 39.391, 1.066)
pt3dadd(132.211, 142.603, 39.436, 1.036)
pt3dadd(132.154, 142.693, 39.481, 1.004)
pt3dadd(132.112, 142.801, 39.51, 0.948)
pt3dadd(132.071, 142.908, 39.539, 0.892)
pt3dadd(132.029, 143.015, 39.569, 0.836)
pt3dadd(131.987, 143.122, 39.598, 0.782)
pt3dadd(131.946, 143.228, 39.628, 0.726)
pt3dadd(131.904, 143.335, 39.657, 0.67)
pt3dadd(131.862, 143.442, 39.687, 0.614)
pt3dadd(131.821, 143.549, 39.716, 0.558)
pt3dadd(131.779, 143.656, 39.745, 0.502)
pt3dadd(131.736, 143.762, 39.773, 0.452)
pt3dadd(131.677, 143.866, 39.788, 0.452)
pt3dadd(131.618, 143.969, 39.802, 0.452)
pt3dadd(131.558, 144.071, 39.816, 0.452)
pt3dadd(131.5, 144.174, 39.831, 0.452)
pt3dadd(131.441, 144.277, 39.845, 0.452)
pt3dadd(131.382, 144.38, 39.859, 0.452)
pt3dadd(131.323, 144.484, 39.874, 0.452)
pt3dadd(131.263, 144.587, 39.888, 0.452)
pt3dadd(131.204, 144.69, 39.902, 0.452)
pt3dadd(131.147, 144.793, 39.916, 0.456)
pt3dadd(131.096, 144.902, 39.925, 0.486)
pt3dadd(131.047, 145.01, 39.933, 0.516)
pt3dadd(130.998, 145.12, 39.942, 0.548)
pt3dadd(130.948, 145.229, 39.951, 0.578)
pt3dadd(130.898, 145.337, 39.959, 0.608)
pt3dadd(130.848, 145.446, 39.968, 0.64)
pt3dadd(130.799, 145.554, 39.976, 0.67)
pt3dadd(130.748, 145.663, 39.985, 0.7)
pt3dadd(130.699, 145.772, 39.993, 0.732)
pt3dadd(130.648, 145.88, 40.002, 0.764)
pt3dadd(130.588, 145.982, 40.013, 0.808)
pt3dadd(130.528, 146.086, 40.023, 0.852)
pt3dadd(130.468, 146.189, 40.034, 0.894)
pt3dadd(130.406, 146.292, 40.045, 0.938)
pt3dadd(130.346, 146.395, 40.055, 0.982)
pt3dadd(130.286, 146.497, 40.066, 1.026)
pt3dadd(130.226, 146.6, 40.076, 1.07)
pt3dadd(130.165, 146.704, 40.087, 1.114)
pt3dadd(130.105, 146.807, 40.097, 1.158)
pt3dadd(130.044, 146.909, 40.11, 1.198)
pt3dadd(129.976, 147.004, 40.131, 1.23)
pt3dadd(129.908, 147.1, 40.152, 1.26)
pt3dadd(129.84, 147.196, 40.173, 1.29)
pt3dadd(129.772, 147.29, 40.194, 1.32)
pt3dadd(129.704, 147.386, 40.215, 1.35)
pt3dadd(129.636, 147.482, 40.236, 1.38)
pt3dadd(129.569, 147.577, 40.257, 1.41)
pt3dadd(129.5, 147.673, 40.278, 1.442)
pt3dadd(129.432, 147.769, 40.3, 1.472)
pt3dadd(129.366, 147.86, 40.329, 1.482)
pt3dadd(129.301, 147.943, 40.378, 1.45)
pt3dadd(129.238, 148.026, 40.427, 1.418)
pt3dadd(129.173, 148.11, 40.475, 1.386)
pt3dadd(129.109, 148.193, 40.524, 1.354)
pt3dadd(129.046, 148.276, 40.573, 1.322)
pt3dadd(128.981, 148.358, 40.621, 1.29)
pt3dadd(128.917, 148.441, 40.67, 1.258)
pt3dadd(128.852, 148.524, 40.719, 1.226)
pt3dadd(128.789, 148.607, 40.767, 1.194)
pt3dadd(128.722, 148.691, 40.811, 1.184)
pt3dadd(128.646, 148.776, 40.843, 1.218)
pt3dadd(128.57, 148.86, 40.876, 1.252)
pt3dadd(128.495, 148.945, 40.908, 1.286)
pt3dadd(128.419, 149.03, 40.94, 1.32)
pt3dadd(128.344, 149.116, 40.973, 1.354)
pt3dadd(128.269, 149.2, 41.006, 1.388)
pt3dadd(128.194, 149.285, 41.038, 1.422)
pt3dadd(128.118, 149.37, 41.07, 1.458)
pt3dadd(128.042, 149.454, 41.103, 1.492)
pt3dadd(127.968, 149.54, 41.133, 1.5)
pt3dadd(127.892, 149.629, 41.159, 1.458)
pt3dadd(127.818, 149.718, 41.184, 1.414)
pt3dadd(127.742, 149.807, 41.209, 1.372)
pt3dadd(127.668, 149.896, 41.235, 1.328)
pt3dadd(127.592, 149.983, 41.26, 1.286)
pt3dadd(127.518, 150.072, 41.286, 1.242)
pt3dadd(127.442, 150.161, 41.311, 1.2)
pt3dadd(127.368, 150.25, 41.337, 1.156)
pt3dadd(127.294, 150.338, 41.362, 1.114)
pt3dadd(127.222, 150.428, 41.389, 1.076)
pt3dadd(127.154, 150.521, 41.42, 1.044)
pt3dadd(127.088, 150.613, 41.451, 1.014)
pt3dadd(127.021, 150.707, 41.482, 0.984)
pt3dadd(126.955, 150.799, 41.513, 0.954)
}
}
proc shape3d_201() {
dend_7[39] { pt3dadd(126.888, 150.892, 41.544, 0.922)
pt3dadd(126.822, 150.984, 41.575, 0.892)
pt3dadd(126.755, 151.078, 41.605, 0.862)
pt3dadd(126.689, 151.17, 41.636, 0.832)
pt3dadd(126.622, 151.262, 41.667, 0.8)
pt3dadd(126.563, 151.357, 41.704, 0.796)
pt3dadd(126.514, 151.453, 41.747, 0.828)
pt3dadd(126.464, 151.549, 41.791, 0.858)
pt3dadd(126.415, 151.645, 41.835, 0.89)
pt3dadd(126.367, 151.741, 41.878, 0.92)
pt3dadd(126.318, 151.837, 41.922, 0.95)
pt3dadd(126.269, 151.934, 41.966, 0.982)
pt3dadd(126.22, 152.03, 42.009, 1.012)
pt3dadd(126.17, 152.126, 42.053, 1.042)
pt3dadd(126.121, 152.222, 42.097, 1.074)
pt3dadd(126.07, 152.318, 42.139, 1.086)
pt3dadd(126.016, 152.413, 42.18, 1.076)
pt3dadd(125.96, 152.508, 42.22, 1.066)
pt3dadd(125.906, 152.604, 42.261, 1.056)
pt3dadd(125.852, 152.699, 42.302, 1.046)
pt3dadd(125.797, 152.794, 42.342, 1.036)
pt3dadd(125.743, 152.888, 42.383, 1.026)
pt3dadd(125.688, 152.984, 42.424, 1.016)
pt3dadd(125.634, 153.079, 42.464, 1.006)
pt3dadd(125.58, 153.174, 42.505, 0.996)
pt3dadd(125.53, 153.266, 42.552, 0.994)
pt3dadd(125.484, 153.355, 42.608, 1.004)
pt3dadd(125.438, 153.444, 42.664, 1.012)
pt3dadd(125.393, 153.533, 42.719, 1.022)
pt3dadd(125.347, 153.622, 42.775, 1.032)
pt3dadd(125.302, 153.71, 42.83, 1.042)
pt3dadd(125.256, 153.799, 42.886, 1.05)
pt3dadd(125.212, 153.888, 42.942, 1.06)
pt3dadd(125.166, 153.977, 42.998, 1.07)
pt3dadd(125.12, 154.066, 43.053, 1.078)
pt3dadd(125.087, 154.148, 43.118, 1.088)
pt3dadd(125.06, 154.229, 43.189, 1.094)
pt3dadd(125.033, 154.309, 43.26, 1.102)
pt3dadd(125.006, 154.39, 43.331, 1.11)
pt3dadd(124.979, 154.47, 43.402, 1.118)
pt3dadd(124.952, 154.55, 43.472, 1.126)
pt3dadd(124.926, 154.631, 43.543, 1.132)
pt3dadd(124.898, 154.711, 43.614, 1.14)
pt3dadd(124.872, 154.792, 43.685, 1.148)
pt3dadd(124.846, 154.872, 43.756, 1.156)
pt3dadd(124.828, 154.956, 43.825, 1.114)
pt3dadd(124.814, 155.042, 43.894, 1.046)
pt3dadd(124.801, 155.128, 43.963, 0.978)
pt3dadd(124.788, 155.214, 44.032, 0.91)
pt3dadd(124.775, 155.3, 44.101, 0.842)
pt3dadd(124.762, 155.386, 44.17, 0.774)
pt3dadd(124.748, 155.472, 44.239, 0.706)
pt3dadd(124.735, 155.558, 44.308, 0.638)
pt3dadd(124.722, 155.644, 44.377, 0.57)
pt3dadd(124.709, 155.73, 44.445, 0.502)
pt3dadd(124.703, 155.828, 44.501, 0.522)
pt3dadd(124.702, 155.933, 44.55, 0.586)
pt3dadd(124.699, 156.037, 44.599, 0.652)
pt3dadd(124.698, 156.142, 44.648, 0.718)
pt3dadd(124.696, 156.246, 44.697, 0.782)
pt3dadd(124.694, 156.35, 44.746, 0.848)
pt3dadd(124.693, 156.456, 44.795, 0.912)
pt3dadd(124.691, 156.56, 44.844, 0.978)
pt3dadd(124.69, 156.665, 44.894, 1.042)
pt3dadd(124.687, 156.769, 44.942, 1.108)
pt3dadd(124.686, 156.875, 44.991, 1.122)
pt3dadd(124.684, 156.979, 45.038, 1.114)
pt3dadd(124.682, 157.085, 45.086, 1.104)
pt3dadd(124.68, 157.19, 45.134, 1.094)
pt3dadd(124.679, 157.296, 45.181, 1.086)
pt3dadd(124.676, 157.402, 45.229, 1.076)
pt3dadd(124.674, 157.507, 45.277, 1.068)
pt3dadd(124.673, 157.613, 45.325, 1.058)
pt3dadd(124.67, 157.718, 45.372, 1.048)
pt3dadd(124.669, 157.823, 45.42, 1.04)
pt3dadd(124.666, 157.931, 45.465, 1.016)
pt3dadd(124.663, 158.039, 45.508, 0.984)
pt3dadd(124.661, 158.147, 45.552, 0.952)
pt3dadd(124.657, 158.255, 45.596, 0.92)
pt3dadd(124.655, 158.363, 45.639, 0.888)
pt3dadd(124.651, 158.471, 45.683, 0.856)
pt3dadd(124.649, 158.579, 45.726, 0.824)
pt3dadd(124.646, 158.687, 45.77, 0.792)
pt3dadd(124.643, 158.795, 45.813, 0.76)
pt3dadd(124.64, 158.903, 45.857, 0.728)
pt3dadd(124.636, 159.014, 45.891, 0.73)
pt3dadd(124.631, 159.13, 45.921, 0.748)
pt3dadd(124.626, 159.244, 45.951, 0.764)
pt3dadd(124.62, 159.358, 45.982, 0.782)
pt3dadd(124.615, 159.472, 46.012, 0.798)
pt3dadd(124.61, 159.586, 46.042, 0.816)
pt3dadd(124.606, 159.701, 46.072, 0.834)
pt3dadd(124.601, 159.815, 46.103, 0.85)
pt3dadd(124.595, 159.929, 46.133, 0.868)
pt3dadd(124.59, 160.043, 46.163, 0.884)
pt3dadd(124.58, 160.159, 46.188, 0.924)
pt3dadd(124.57, 160.276, 46.211, 0.972)
pt3dadd(124.558, 160.392, 46.234, 1.022)
pt3dadd(124.546, 160.507, 46.257, 1.07)
pt3dadd(124.535, 160.624, 46.279, 1.12)
pt3dadd(124.523, 160.74, 46.302, 1.168)
pt3dadd(124.512, 160.856, 46.325, 1.218)
pt3dadd(124.5, 160.973, 46.348, 1.266)
pt3dadd(124.488, 161.089, 46.371, 1.316)
pt3dadd(124.477, 161.206, 46.393, 1.364)
pt3dadd(124.46, 161.32, 46.422, 1.378)
pt3dadd(124.444, 161.431, 46.453, 1.38)
pt3dadd(124.426, 161.544, 46.484, 1.38)
pt3dadd(124.408, 161.657, 46.515, 1.38)
pt3dadd(124.39, 161.77, 46.546, 1.38)
pt3dadd(124.372, 161.882, 46.577, 1.382)
pt3dadd(124.354, 161.995, 46.608, 1.382)
pt3dadd(124.336, 162.108, 46.639, 1.382)
pt3dadd(124.319, 162.221, 46.671, 1.382)
pt3dadd(124.301, 162.332, 46.702, 1.382)
pt3dadd(124.274, 162.443, 46.735, 1.364)
pt3dadd(124.244, 162.552, 46.768, 1.338)
pt3dadd(124.214, 162.661, 46.802, 1.312)
pt3dadd(124.186, 162.77, 46.835, 1.288)
pt3dadd(124.156, 162.88, 46.869, 1.262)
pt3dadd(124.126, 162.989, 46.902, 1.236)
pt3dadd(124.097, 163.098, 46.936, 1.21)
pt3dadd(124.067, 163.207, 46.969, 1.186)
pt3dadd(124.038, 163.316, 47.003, 1.16)
pt3dadd(124.008, 163.426, 47.036, 1.134)
pt3dadd(123.956, 163.529, 47.059, 1.13)
pt3dadd(123.901, 163.632, 47.081, 1.13)
pt3dadd(123.845, 163.735, 47.102, 1.13)
pt3dadd(123.79, 163.84, 47.123, 1.13)
pt3dadd(123.734, 163.943, 47.145, 1.13)
pt3dadd(123.678, 164.046, 47.166, 1.13)
pt3dadd(123.623, 164.149, 47.187, 1.13)
pt3dadd(123.568, 164.252, 47.208, 1.13)
pt3dadd(123.511, 164.356, 47.23, 1.13)
pt3dadd(123.456, 164.459, 47.251, 1.13)
pt3dadd(123.392, 164.558, 47.265, 1.12)
pt3dadd(123.328, 164.658, 47.277, 1.11)
pt3dadd(123.262, 164.758, 47.289, 1.098)
pt3dadd(123.197, 164.857, 47.301, 1.086)
pt3dadd(123.131, 164.957, 47.313, 1.076)
pt3dadd(123.066, 165.056, 47.325, 1.064)
pt3dadd(123, 165.156, 47.337, 1.054)
pt3dadd(122.935, 165.256, 47.35, 1.042)
pt3dadd(122.87, 165.355, 47.362, 1.03)
pt3dadd(122.804, 165.455, 47.374, 1.02)
pt3dadd(122.74, 165.556, 47.382, 1.008)
pt3dadd(122.675, 165.656, 47.389, 0.996)
pt3dadd(122.611, 165.757, 47.396, 0.986)
pt3dadd(122.546, 165.858, 47.403, 0.974)
pt3dadd(122.482, 165.959, 47.41, 0.962)
pt3dadd(122.418, 166.06, 47.417, 0.95)
pt3dadd(122.353, 166.16, 47.424, 0.94)
pt3dadd(122.288, 166.261, 47.431, 0.928)
pt3dadd(122.224, 166.362, 47.438, 0.916)
pt3dadd(122.16, 166.463, 47.446, 0.906)
pt3dadd(122.107, 166.571, 47.446, 0.904)
pt3dadd(122.057, 166.68, 47.446, 0.904)
pt3dadd(122.005, 166.788, 47.446, 0.904)
pt3dadd(121.955, 166.897, 47.446, 0.904)
pt3dadd(121.903, 167.005, 47.446, 0.904)
pt3dadd(121.853, 167.114, 47.446, 0.904)
pt3dadd(121.801, 167.224, 47.446, 0.904)
pt3dadd(121.751, 167.332, 47.446, 0.904)
pt3dadd(121.7, 167.441, 47.446, 0.904)
pt3dadd(121.649, 167.549, 47.446, 0.904)
pt3dadd(121.612, 167.663, 47.446, 0.918)
pt3dadd(121.576, 167.778, 47.446, 0.934)
pt3dadd(121.54, 167.892, 47.446, 0.95)
pt3dadd(121.505, 168.007, 47.446, 0.966)
pt3dadd(121.469, 168.121, 47.446, 0.982)
pt3dadd(121.433, 168.235, 47.446, 0.998)
pt3dadd(121.397, 168.35, 47.446, 1.014)
pt3dadd(121.361, 168.464, 47.446, 1.03)
pt3dadd(121.325, 168.58, 47.446, 1.046)
pt3dadd(121.289, 168.694, 47.446, 1.06)
pt3dadd(121.238, 168.803, 47.446, 1.044)
pt3dadd(121.187, 168.911, 47.446, 1.024)
pt3dadd(121.135, 169.019, 47.446, 1.004)
pt3dadd(121.084, 169.128, 47.446, 0.984)
pt3dadd(121.032, 169.236, 47.446, 0.964)
pt3dadd(120.98, 169.344, 47.446, 0.944)
pt3dadd(120.929, 169.452, 47.446, 0.926)
pt3dadd(120.877, 169.561, 47.446, 0.906)
pt3dadd(120.826, 169.669, 47.446, 0.886)
pt3dadd(120.774, 169.777, 47.446, 0.866)
pt3dadd(120.713, 169.88, 47.446, 0.824)
pt3dadd(120.65, 169.984, 47.446, 0.782)
pt3dadd(120.589, 170.087, 47.446, 0.742)
pt3dadd(120.527, 170.189, 47.446, 0.7)
pt3dadd(120.466, 170.292, 47.446, 0.658)
pt3dadd(120.404, 170.395, 47.446, 0.618)
pt3dadd(120.342, 170.498, 47.446, 0.576)
pt3dadd(120.281, 170.6, 47.446, 0.534)
pt3dadd(120.218, 170.704, 47.446, 0.494)
pt3dadd(120.157, 170.807, 47.446, 0.452)
}
dend_0[8] {pt3dclear()
pt3dstyle(1, 138.757, 111.594, 20.559)
pt3dadd(138.842, 111.594, 20.488, 13.84)
pt3dadd(138.926, 111.594, 20.417, 13.726)
pt3dadd(139.012, 111.594, 20.347, 13.612)
pt3dadd(139.097, 111.594, 20.276, 13.498)
}
}
proc shape3d_202() {
dend_0[8] { pt3dadd(139.182, 111.594, 20.205, 13.384)
pt3dadd(139.266, 111.594, 20.134, 13.272)
pt3dadd(139.351, 111.594, 20.064, 13.158)
pt3dadd(139.436, 111.594, 19.993, 13.044)
pt3dadd(139.52, 111.594, 19.922, 12.93)
pt3dadd(139.618, 111.621, 19.871, 12.76)
pt3dadd(139.718, 111.661, 19.829, 12.564)
pt3dadd(139.819, 111.7, 19.786, 12.368)
pt3dadd(139.921, 111.739, 19.743, 12.174)
pt3dadd(140.022, 111.778, 19.7, 11.978)
pt3dadd(140.123, 111.818, 19.658, 11.784)
pt3dadd(140.224, 111.857, 19.615, 11.59)
pt3dadd(140.326, 111.896, 19.572, 11.394)
pt3dadd(140.426, 111.936, 19.529, 11.198)
pt3dadd(140.527, 111.984, 19.497, 10.99)
pt3dadd(140.628, 112.046, 19.478, 10.762)
pt3dadd(140.728, 112.108, 19.46, 10.532)
pt3dadd(140.828, 112.17, 19.442, 10.304)
pt3dadd(140.929, 112.232, 19.424, 10.074)
pt3dadd(141.029, 112.294, 19.405, 9.846)
pt3dadd(141.13, 112.356, 19.387, 9.618)
pt3dadd(141.229, 112.418, 19.369, 9.388)
pt3dadd(141.33, 112.48, 19.351, 9.16)
pt3dadd(141.431, 112.542, 19.333, 8.93)
pt3dadd(141.533, 112.594, 19.306, 8.708)
pt3dadd(141.637, 112.632, 19.269, 8.496)
pt3dadd(141.742, 112.67, 19.231, 8.282)
pt3dadd(141.846, 112.707, 19.194, 8.07)
pt3dadd(141.952, 112.745, 19.156, 7.856)
pt3dadd(142.056, 112.782, 19.119, 7.644)
pt3dadd(142.16, 112.82, 19.081, 7.432)
pt3dadd(142.265, 112.857, 19.043, 7.218)
pt3dadd(142.37, 112.895, 19.006, 7.006)
pt3dadd(142.475, 112.932, 18.968, 6.792)
pt3dadd(142.582, 112.966, 18.934, 6.586)
pt3dadd(142.693, 112.996, 18.905, 6.39)
pt3dadd(142.804, 113.025, 18.875, 6.194)
pt3dadd(142.914, 113.054, 18.846, 5.998)
pt3dadd(143.026, 113.084, 18.816, 5.802)
pt3dadd(143.136, 113.113, 18.786, 5.606)
pt3dadd(143.246, 113.142, 18.757, 5.408)
pt3dadd(143.358, 113.172, 18.727, 5.212)
pt3dadd(143.468, 113.201, 18.697, 5.016)
pt3dadd(143.579, 113.231, 18.668, 4.82)
pt3dadd(143.692, 113.258, 18.643, 4.642)
pt3dadd(143.807, 113.284, 18.623, 4.484)
pt3dadd(143.921, 113.31, 18.603, 4.326)
}
dend_7[40] {pt3dclear()
pt3dadd(143.921, 113.31, 18.603, 4.326)
pt3dadd(144.036, 113.335, 18.583, 4.168)
pt3dadd(144.151, 113.361, 18.563, 4.01)
pt3dadd(144.265, 113.387, 18.543, 3.852)
pt3dadd(144.38, 113.412, 18.523, 3.694)
pt3dadd(144.496, 113.438, 18.503, 3.536)
pt3dadd(144.61, 113.464, 18.483, 3.378)
pt3dadd(144.725, 113.49, 18.463, 3.22)
pt3dadd(144.84, 113.515, 18.448, 3.098)
pt3dadd(144.956, 113.541, 18.437, 3.01)
pt3dadd(145.073, 113.567, 18.426, 2.924)
pt3dadd(145.189, 113.592, 18.415, 2.836)
pt3dadd(145.307, 113.618, 18.404, 2.75)
pt3dadd(145.423, 113.643, 18.393, 2.662)
pt3dadd(145.54, 113.669, 18.382, 2.576)
pt3dadd(145.656, 113.695, 18.372, 2.49)
pt3dadd(145.772, 113.72, 18.361, 2.402)
pt3dadd(145.889, 113.746, 18.35, 2.316)
pt3dadd(145.998, 113.79, 18.344, 2.234)
pt3dadd(146.101, 113.851, 18.344, 2.156)
pt3dadd(146.206, 113.912, 18.343, 2.08)
pt3dadd(146.309, 113.973, 18.343, 2.002)
pt3dadd(146.412, 114.034, 18.342, 1.926)
pt3dadd(146.515, 114.095, 18.342, 1.848)
pt3dadd(146.618, 114.156, 18.342, 1.77)
pt3dadd(146.722, 114.217, 18.341, 1.694)
pt3dadd(146.825, 114.278, 18.341, 1.616)
pt3dadd(146.928, 114.339, 18.34, 1.54)
pt3dadd(147.029, 114.404, 18.34, 1.476)
pt3dadd(147.128, 114.472, 18.34, 1.424)
pt3dadd(147.227, 114.54, 18.339, 1.372)
pt3dadd(147.325, 114.609, 18.339, 1.32)
pt3dadd(147.424, 114.677, 18.338, 1.268)
pt3dadd(147.523, 114.745, 18.338, 1.216)
pt3dadd(147.622, 114.813, 18.338, 1.164)
pt3dadd(147.72, 114.882, 18.337, 1.112)
pt3dadd(147.818, 114.95, 18.337, 1.06)
pt3dadd(147.917, 115.018, 18.337, 1.008)
pt3dadd(148.014, 115.09, 18.336, 0.968)
pt3dadd(148.108, 115.164, 18.335, 0.94)
pt3dadd(148.202, 115.238, 18.335, 0.912)
pt3dadd(148.296, 115.312, 18.334, 0.884)
pt3dadd(148.391, 115.387, 18.334, 0.856)
pt3dadd(148.486, 115.461, 18.333, 0.828)
pt3dadd(148.579, 115.535, 18.333, 0.8)
pt3dadd(148.674, 115.609, 18.333, 0.772)
pt3dadd(148.768, 115.683, 18.332, 0.742)
pt3dadd(148.862, 115.758, 18.332, 0.714)
pt3dadd(148.956, 115.833, 18.331, 0.708)
pt3dadd(149.05, 115.908, 18.33, 0.718)
pt3dadd(149.143, 115.983, 18.329, 0.728)
pt3dadd(149.237, 116.058, 18.327, 0.74)
pt3dadd(149.329, 116.134, 18.326, 0.75)
pt3dadd(149.423, 116.209, 18.325, 0.76)
pt3dadd(149.516, 116.285, 18.324, 0.77)
pt3dadd(149.61, 116.36, 18.323, 0.782)
pt3dadd(149.704, 116.435, 18.322, 0.792)
pt3dadd(149.796, 116.511, 18.321, 0.802)
pt3dadd(149.893, 116.582, 18.32, 0.822)
pt3dadd(149.992, 116.65, 18.318, 0.846)
pt3dadd(150.091, 116.718, 18.317, 0.872)
pt3dadd(150.19, 116.786, 18.315, 0.898)
pt3dadd(150.288, 116.854, 18.313, 0.924)
pt3dadd(150.388, 116.922, 18.312, 0.948)
pt3dadd(150.486, 116.99, 18.31, 0.974)
pt3dadd(150.586, 117.058, 18.309, 1)
pt3dadd(150.684, 117.126, 18.307, 1.026)
pt3dadd(150.782, 117.194, 18.305, 1.052)
pt3dadd(150.888, 117.251, 18.303, 1.092)
pt3dadd(150.997, 117.301, 18.3, 1.142)
pt3dadd(151.105, 117.352, 18.298, 1.192)
pt3dadd(151.214, 117.402, 18.295, 1.242)
pt3dadd(151.324, 117.452, 18.292, 1.292)
pt3dadd(151.433, 117.503, 18.29, 1.342)
pt3dadd(151.541, 117.553, 18.287, 1.392)
pt3dadd(151.65, 117.603, 18.284, 1.442)
pt3dadd(151.759, 117.654, 18.281, 1.492)
pt3dadd(151.867, 117.704, 18.279, 1.544)
pt3dadd(151.98, 117.744, 18.274, 1.542)
pt3dadd(152.095, 117.778, 18.266, 1.508)
pt3dadd(152.209, 117.812, 18.259, 1.474)
pt3dadd(152.324, 117.846, 18.252, 1.442)
pt3dadd(152.44, 117.88, 18.245, 1.408)
pt3dadd(152.554, 117.914, 18.238, 1.374)
pt3dadd(152.669, 117.948, 18.231, 1.34)
pt3dadd(152.784, 117.982, 18.224, 1.306)
pt3dadd(152.898, 118.016, 18.216, 1.272)
pt3dadd(153.013, 118.05, 18.209, 1.24)
pt3dadd(153.124, 118.095, 18.2, 1.22)
pt3dadd(153.23, 118.148, 18.19, 1.21)
pt3dadd(153.337, 118.2, 18.179, 1.2)
pt3dadd(153.445, 118.253, 18.169, 1.192)
pt3dadd(153.552, 118.306, 18.158, 1.182)
pt3dadd(153.659, 118.358, 18.148, 1.172)
pt3dadd(153.766, 118.411, 18.137, 1.162)
pt3dadd(153.874, 118.463, 18.127, 1.152)
pt3dadd(153.98, 118.516, 18.116, 1.142)
pt3dadd(154.087, 118.568, 18.106, 1.134)
pt3dadd(154.188, 118.627, 18.083, 1.13)
pt3dadd(154.285, 118.688, 18.054, 1.13)
pt3dadd(154.382, 118.749, 18.024, 1.13)
pt3dadd(154.478, 118.81, 17.995, 1.13)
pt3dadd(154.576, 118.872, 17.966, 1.13)
pt3dadd(154.673, 118.933, 17.936, 1.13)
pt3dadd(154.77, 118.994, 17.907, 1.13)
pt3dadd(154.867, 119.055, 17.878, 1.13)
pt3dadd(154.964, 119.117, 17.848, 1.13)
pt3dadd(155.062, 119.178, 17.819, 1.13)
pt3dadd(155.149, 119.246, 17.781, 1.13)
pt3dadd(155.234, 119.315, 17.742, 1.13)
pt3dadd(155.321, 119.384, 17.702, 1.13)
pt3dadd(155.407, 119.453, 17.663, 1.13)
pt3dadd(155.494, 119.521, 17.624, 1.13)
pt3dadd(155.58, 119.59, 17.585, 1.13)
pt3dadd(155.666, 119.659, 17.546, 1.13)
pt3dadd(155.753, 119.728, 17.506, 1.13)
pt3dadd(155.839, 119.797, 17.467, 1.13)
pt3dadd(155.924, 119.866, 17.428, 1.13)
pt3dadd(156.014, 119.941, 17.405, 1.13)
pt3dadd(156.103, 120.016, 17.382, 1.13)
pt3dadd(156.193, 120.091, 17.359, 1.13)
pt3dadd(156.282, 120.167, 17.336, 1.13)
pt3dadd(156.372, 120.242, 17.313, 1.13)
pt3dadd(156.461, 120.317, 17.29, 1.13)
pt3dadd(156.551, 120.392, 17.267, 1.13)
pt3dadd(156.64, 120.468, 17.245, 1.13)
pt3dadd(156.73, 120.542, 17.222, 1.13)
pt3dadd(156.818, 120.618, 17.199, 1.13)
pt3dadd(156.919, 120.68, 17.187, 1.13)
pt3dadd(157.021, 120.744, 17.175, 1.13)
pt3dadd(157.122, 120.806, 17.163, 1.13)
pt3dadd(157.224, 120.869, 17.151, 1.13)
pt3dadd(157.325, 120.932, 17.139, 1.13)
pt3dadd(157.426, 120.995, 17.127, 1.13)
pt3dadd(157.528, 121.057, 17.115, 1.13)
pt3dadd(157.628, 121.12, 17.103, 1.13)
pt3dadd(157.73, 121.183, 17.091, 1.13)
pt3dadd(157.831, 121.246, 17.079, 1.13)
}
dend_7[41] {pt3dclear()
pt3dadd(157.831, 121.246, 17.079, 1.13)
pt3dadd(157.832, 121.246, 17.079, 1.13)
pt3dadd(157.948, 121.211, 17.079, 1.072)
pt3dadd(158.062, 121.176, 17.079, 1.014)
pt3dadd(158.177, 121.142, 17.08, 0.956)
pt3dadd(158.292, 121.108, 17.08, 0.898)
pt3dadd(158.407, 121.073, 17.08, 0.842)
pt3dadd(158.521, 121.038, 17.08, 0.784)
pt3dadd(158.636, 121.003, 17.08, 0.726)
pt3dadd(158.752, 120.968, 17.08, 0.668)
pt3dadd(158.867, 120.934, 17.08, 0.61)
pt3dadd(158.981, 120.899, 17.08, 0.554)
pt3dadd(159.096, 120.864, 17.08, 0.496)
pt3dadd(159.212, 120.835, 17.076, 0.448)
pt3dadd(159.33, 120.821, 17.063, 0.424)
}
}
proc shape3d_203() {
dend_7[41] { pt3dadd(159.448, 120.806, 17.05, 0.402)
pt3dadd(159.566, 120.791, 17.036, 0.378)
pt3dadd(159.684, 120.776, 17.023, 0.354)
pt3dadd(159.802, 120.761, 17.01, 0.332)
pt3dadd(159.92, 120.746, 16.996, 0.308)
pt3dadd(160.038, 120.732, 16.983, 0.286)
pt3dadd(160.156, 120.716, 16.97, 0.262)
pt3dadd(160.274, 120.702, 16.956, 0.238)
pt3dadd(160.391, 120.692, 16.938, 0.228)
pt3dadd(160.507, 120.691, 16.912, 0.236)
pt3dadd(160.624, 120.69, 16.887, 0.242)
pt3dadd(160.739, 120.689, 16.861, 0.248)
pt3dadd(160.855, 120.686, 16.836, 0.254)
pt3dadd(160.972, 120.685, 16.811, 0.26)
pt3dadd(161.088, 120.684, 16.785, 0.266)
pt3dadd(161.203, 120.682, 16.76, 0.272)
pt3dadd(161.32, 120.68, 16.735, 0.28)
pt3dadd(161.436, 120.679, 16.709, 0.286)
pt3dadd(161.549, 120.677, 16.676, 0.306)
pt3dadd(161.657, 120.674, 16.634, 0.344)
pt3dadd(161.766, 120.672, 16.592, 0.38)
pt3dadd(161.875, 120.67, 16.55, 0.416)
pt3dadd(161.984, 120.667, 16.508, 0.454)
pt3dadd(162.092, 120.666, 16.466, 0.49)
pt3dadd(162.202, 120.664, 16.425, 0.526)
pt3dadd(162.311, 120.661, 16.383, 0.564)
pt3dadd(162.42, 120.659, 16.341, 0.6)
pt3dadd(162.529, 120.656, 16.299, 0.636)
pt3dadd(162.641, 120.653, 16.264, 0.658)
pt3dadd(162.756, 120.649, 16.237, 0.66)
pt3dadd(162.872, 120.646, 16.211, 0.662)
pt3dadd(162.988, 120.641, 16.184, 0.664)
pt3dadd(163.103, 120.637, 16.157, 0.666)
pt3dadd(163.218, 120.632, 16.131, 0.668)
pt3dadd(163.334, 120.629, 16.104, 0.67)
pt3dadd(163.45, 120.625, 16.077, 0.672)
pt3dadd(163.565, 120.62, 16.051, 0.674)
pt3dadd(163.681, 120.617, 16.024, 0.676)
pt3dadd(163.798, 120.611, 16.001, 0.678)
pt3dadd(163.915, 120.602, 15.983, 0.678)
pt3dadd(164.033, 120.594, 15.964, 0.678)
pt3dadd(164.15, 120.586, 15.946, 0.678)
pt3dadd(164.268, 120.577, 15.927, 0.678)
pt3dadd(164.386, 120.57, 15.909, 0.678)
pt3dadd(164.503, 120.562, 15.89, 0.678)
pt3dadd(164.621, 120.553, 15.872, 0.678)
pt3dadd(164.738, 120.545, 15.854, 0.678)
pt3dadd(164.856, 120.536, 15.835, 0.678)
pt3dadd(164.975, 120.526, 15.82, 0.686)
pt3dadd(165.092, 120.512, 15.808, 0.7)
pt3dadd(165.211, 120.498, 15.796, 0.716)
pt3dadd(165.329, 120.485, 15.784, 0.732)
pt3dadd(165.448, 120.47, 15.772, 0.746)
pt3dadd(165.566, 120.457, 15.76, 0.762)
pt3dadd(165.684, 120.443, 15.748, 0.776)
pt3dadd(165.803, 120.43, 15.736, 0.792)
pt3dadd(165.922, 120.415, 15.724, 0.808)
pt3dadd(166.039, 120.402, 15.712, 0.822)
pt3dadd(166.157, 120.38, 15.702, 0.85)
pt3dadd(166.273, 120.354, 15.693, 0.886)
pt3dadd(166.39, 120.328, 15.683, 0.924)
pt3dadd(166.506, 120.3, 15.674, 0.962)
pt3dadd(166.622, 120.274, 15.665, 1)
pt3dadd(166.739, 120.246, 15.656, 1.038)
pt3dadd(166.855, 120.22, 15.647, 1.076)
pt3dadd(166.972, 120.193, 15.637, 1.112)
pt3dadd(167.088, 120.166, 15.628, 1.15)
pt3dadd(167.204, 120.139, 15.619, 1.188)
pt3dadd(167.314, 120.094, 15.607, 1.224)
pt3dadd(167.418, 120.037, 15.595, 1.26)
pt3dadd(167.524, 119.981, 15.582, 1.294)
pt3dadd(167.628, 119.924, 15.569, 1.33)
pt3dadd(167.732, 119.867, 15.556, 1.366)
pt3dadd(167.837, 119.811, 15.543, 1.4)
pt3dadd(167.941, 119.754, 15.53, 1.436)
pt3dadd(168.047, 119.697, 15.517, 1.472)
pt3dadd(168.151, 119.641, 15.504, 1.506)
pt3dadd(168.256, 119.584, 15.491, 1.542)
pt3dadd(168.35, 119.528, 15.456, 1.532)
pt3dadd(168.439, 119.473, 15.407, 1.496)
pt3dadd(168.528, 119.417, 15.358, 1.458)
pt3dadd(168.617, 119.362, 15.308, 1.42)
pt3dadd(168.704, 119.307, 15.259, 1.382)
pt3dadd(168.793, 119.251, 15.21, 1.346)
pt3dadd(168.882, 119.196, 15.161, 1.308)
pt3dadd(168.971, 119.141, 15.112, 1.27)
pt3dadd(169.06, 119.085, 15.062, 1.234)
pt3dadd(169.148, 119.03, 15.013, 1.196)
pt3dadd(169.238, 118.968, 14.974, 1.158)
pt3dadd(169.331, 118.903, 14.939, 1.122)
pt3dadd(169.422, 118.838, 14.904, 1.084)
pt3dadd(169.513, 118.773, 14.869, 1.046)
pt3dadd(169.606, 118.708, 14.834, 1.01)
pt3dadd(169.697, 118.643, 14.799, 0.972)
pt3dadd(169.788, 118.578, 14.764, 0.934)
pt3dadd(169.88, 118.512, 14.729, 0.898)
pt3dadd(169.972, 118.447, 14.694, 0.86)
pt3dadd(170.064, 118.382, 14.659, 0.822)
pt3dadd(170.164, 118.327, 14.63, 0.802)
pt3dadd(170.268, 118.277, 14.602, 0.788)
pt3dadd(170.372, 118.227, 14.575, 0.776)
pt3dadd(170.476, 118.177, 14.548, 0.762)
pt3dadd(170.58, 118.127, 14.521, 0.748)
pt3dadd(170.684, 118.077, 14.494, 0.734)
pt3dadd(170.788, 118.027, 14.467, 0.722)
pt3dadd(170.892, 117.977, 14.44, 0.708)
pt3dadd(170.996, 117.927, 14.412, 0.694)
pt3dadd(171.101, 117.877, 14.385, 0.68)
pt3dadd(171.209, 117.839, 14.357, 0.668)
pt3dadd(171.318, 117.804, 14.327, 0.654)
pt3dadd(171.427, 117.77, 14.299, 0.642)
pt3dadd(171.538, 117.735, 14.269, 0.628)
pt3dadd(171.647, 117.701, 14.24, 0.616)
pt3dadd(171.756, 117.666, 14.211, 0.602)
pt3dadd(171.866, 117.632, 14.182, 0.59)
pt3dadd(171.976, 117.597, 14.153, 0.576)
pt3dadd(172.085, 117.563, 14.124, 0.564)
pt3dadd(172.194, 117.528, 14.095, 0.55)
pt3dadd(172.303, 117.501, 14.06, 0.522)
pt3dadd(172.411, 117.474, 14.023, 0.49)
pt3dadd(172.52, 117.448, 13.986, 0.458)
pt3dadd(172.628, 117.422, 13.949, 0.426)
pt3dadd(172.736, 117.395, 13.913, 0.394)
pt3dadd(172.846, 117.369, 13.876, 0.36)
pt3dadd(172.954, 117.343, 13.839, 0.328)
pt3dadd(173.062, 117.316, 13.802, 0.296)
pt3dadd(173.171, 117.29, 13.766, 0.264)
pt3dadd(173.279, 117.264, 13.729, 0.232)
pt3dadd(173.387, 117.221, 13.703, 0.252)
pt3dadd(173.494, 117.175, 13.68, 0.284)
pt3dadd(173.6, 117.129, 13.656, 0.316)
pt3dadd(173.708, 117.083, 13.633, 0.348)
pt3dadd(173.815, 117.037, 13.61, 0.38)
pt3dadd(173.922, 116.991, 13.586, 0.412)
pt3dadd(174.03, 116.945, 13.563, 0.444)
pt3dadd(174.137, 116.899, 13.54, 0.476)
pt3dadd(174.244, 116.853, 13.516, 0.508)
pt3dadd(174.352, 116.807, 13.493, 0.54)
pt3dadd(174.462, 116.765, 13.474, 0.556)
pt3dadd(174.572, 116.725, 13.457, 0.57)
pt3dadd(174.684, 116.685, 13.439, 0.584)
pt3dadd(174.794, 116.644, 13.422, 0.596)
pt3dadd(174.906, 116.604, 13.404, 0.61)
pt3dadd(175.016, 116.564, 13.387, 0.622)
pt3dadd(175.128, 116.523, 13.37, 0.636)
pt3dadd(175.24, 116.483, 13.352, 0.65)
pt3dadd(175.35, 116.442, 13.335, 0.662)
pt3dadd(175.462, 116.402, 13.317, 0.676)
pt3dadd(175.574, 116.367, 13.304, 0.682)
pt3dadd(175.69, 116.333, 13.293, 0.686)
pt3dadd(175.804, 116.3, 13.281, 0.69)
pt3dadd(175.918, 116.266, 13.269, 0.694)
pt3dadd(176.032, 116.232, 13.257, 0.698)
pt3dadd(176.146, 116.198, 13.246, 0.704)
pt3dadd(176.261, 116.164, 13.234, 0.708)
pt3dadd(176.375, 116.13, 13.222, 0.712)
pt3dadd(176.489, 116.096, 13.21, 0.716)
pt3dadd(176.603, 116.062, 13.199, 0.72)
pt3dadd(176.719, 116.034, 13.191, 0.736)
pt3dadd(176.836, 116.008, 13.184, 0.754)
pt3dadd(176.953, 115.981, 13.177, 0.77)
pt3dadd(177.07, 115.954, 13.17, 0.788)
pt3dadd(177.186, 115.927, 13.163, 0.806)
pt3dadd(177.302, 115.9, 13.156, 0.822)
pt3dadd(177.419, 115.873, 13.149, 0.84)
pt3dadd(177.536, 115.846, 13.142, 0.856)
pt3dadd(177.653, 115.819, 13.135, 0.874)
pt3dadd(177.769, 115.793, 13.128, 0.892)
pt3dadd(177.881, 115.751, 13.118, 0.922)
pt3dadd(177.992, 115.707, 13.107, 0.954)
pt3dadd(178.103, 115.663, 13.096, 0.986)
pt3dadd(178.213, 115.619, 13.086, 1.018)
pt3dadd(178.325, 115.575, 13.075, 1.05)
pt3dadd(178.435, 115.531, 13.064, 1.082)
pt3dadd(178.547, 115.487, 13.053, 1.114)
pt3dadd(178.657, 115.443, 13.043, 1.146)
pt3dadd(178.769, 115.4, 13.032, 1.178)
pt3dadd(178.879, 115.356, 13.021, 1.21)
pt3dadd(178.99, 115.319, 12.997, 1.226)
pt3dadd(179.1, 115.283, 12.971, 1.24)
pt3dadd(179.21, 115.247, 12.945, 1.256)
pt3dadd(179.321, 115.211, 12.92, 1.27)
pt3dadd(179.43, 115.175, 12.894, 1.284)
pt3dadd(179.54, 115.14, 12.868, 1.298)
pt3dadd(179.651, 115.104, 12.842, 1.312)
pt3dadd(179.761, 115.068, 12.816, 1.326)
pt3dadd(179.872, 115.032, 12.79, 1.342)
pt3dadd(179.982, 114.996, 12.764, 1.356)
pt3dadd(180.091, 114.97, 12.73, 1.35)
pt3dadd(180.2, 114.944, 12.695, 1.344)
pt3dadd(180.31, 114.917, 12.66, 1.34)
pt3dadd(180.419, 114.891, 12.625, 1.334)
pt3dadd(180.528, 114.865, 12.59, 1.328)
pt3dadd(180.638, 114.838, 12.555, 1.322)
pt3dadd(180.748, 114.812, 12.52, 1.316)
pt3dadd(180.857, 114.786, 12.486, 1.312)
pt3dadd(180.966, 114.759, 12.451, 1.306)
pt3dadd(181.075, 114.733, 12.416, 1.3)
pt3dadd(181.19, 114.717, 12.391, 1.266)
pt3dadd(181.306, 114.701, 12.365, 1.232)
}
}
proc shape3d_204() {
dend_7[41] { pt3dadd(181.421, 114.685, 12.34, 1.198)
pt3dadd(181.536, 114.669, 12.315, 1.164)
pt3dadd(181.65, 114.653, 12.29, 1.128)
pt3dadd(181.765, 114.637, 12.265, 1.094)
pt3dadd(181.88, 114.621, 12.24, 1.06)
pt3dadd(181.996, 114.605, 12.215, 1.026)
pt3dadd(182.111, 114.589, 12.19, 0.992)
pt3dadd(182.226, 114.573, 12.165, 0.958)
pt3dadd(182.344, 114.563, 12.149, 0.966)
pt3dadd(182.462, 114.553, 12.133, 0.976)
pt3dadd(182.58, 114.544, 12.117, 0.986)
pt3dadd(182.698, 114.534, 12.101, 0.996)
pt3dadd(182.816, 114.525, 12.086, 1.006)
pt3dadd(182.934, 114.515, 12.07, 1.014)
pt3dadd(183.053, 114.506, 12.054, 1.024)
pt3dadd(183.17, 114.496, 12.039, 1.034)
pt3dadd(183.289, 114.486, 12.023, 1.044)
pt3dadd(183.407, 114.477, 12.007, 1.052)
pt3dadd(183.526, 114.465, 11.997, 1.06)
pt3dadd(183.644, 114.454, 11.986, 1.068)
pt3dadd(183.763, 114.442, 11.976, 1.076)
pt3dadd(183.882, 114.431, 11.966, 1.084)
pt3dadd(184.001, 114.42, 11.956, 1.092)
pt3dadd(184.12, 114.408, 11.945, 1.1)
pt3dadd(184.238, 114.397, 11.935, 1.106)
pt3dadd(184.357, 114.385, 11.925, 1.114)
pt3dadd(184.476, 114.374, 11.914, 1.122)
pt3dadd(184.595, 114.362, 11.904, 1.13)
pt3dadd(184.712, 114.339, 11.896, 1.12)
pt3dadd(184.83, 114.317, 11.887, 1.112)
pt3dadd(184.948, 114.294, 11.878, 1.102)
pt3dadd(185.064, 114.271, 11.87, 1.092)
pt3dadd(185.182, 114.249, 11.861, 1.082)
pt3dadd(185.299, 114.226, 11.852, 1.074)
pt3dadd(185.417, 114.203, 11.844, 1.064)
pt3dadd(185.534, 114.18, 11.835, 1.054)
pt3dadd(185.651, 114.158, 11.826, 1.044)
pt3dadd(185.768, 114.133, 11.817, 1.034)
pt3dadd(185.879, 114.089, 11.806, 1)
pt3dadd(185.989, 114.044, 11.794, 0.968)
pt3dadd(186.1, 114, 11.782, 0.934)
pt3dadd(186.211, 113.956, 11.771, 0.902)
pt3dadd(186.322, 113.911, 11.759, 0.868)
pt3dadd(186.432, 113.867, 11.748, 0.836)
pt3dadd(186.542, 113.823, 11.736, 0.802)
pt3dadd(186.653, 113.778, 11.724, 0.77)
pt3dadd(186.763, 113.734, 11.713, 0.736)
pt3dadd(186.875, 113.691, 11.699, 0.704)
pt3dadd(186.983, 113.663, 11.663, 0.672)
pt3dadd(187.091, 113.634, 11.628, 0.64)
pt3dadd(187.2, 113.606, 11.592, 0.606)
pt3dadd(187.308, 113.578, 11.556, 0.574)
pt3dadd(187.416, 113.55, 11.521, 0.542)
pt3dadd(187.525, 113.521, 11.485, 0.51)
pt3dadd(187.633, 113.493, 11.449, 0.478)
pt3dadd(187.742, 113.465, 11.414, 0.446)
pt3dadd(187.85, 113.436, 11.378, 0.414)
pt3dadd(187.96, 113.409, 11.343, 0.384)
pt3dadd(188.071, 113.39, 11.31, 0.386)
pt3dadd(188.183, 113.37, 11.277, 0.388)
pt3dadd(188.294, 113.35, 11.244, 0.388)
pt3dadd(188.406, 113.33, 11.211, 0.39)
pt3dadd(188.518, 113.311, 11.179, 0.392)
pt3dadd(188.629, 113.291, 11.146, 0.394)
pt3dadd(188.741, 113.271, 11.113, 0.394)
pt3dadd(188.852, 113.251, 11.08, 0.396)
pt3dadd(188.964, 113.232, 11.047, 0.398)
pt3dadd(189.076, 113.213, 11.015, 0.402)
pt3dadd(189.191, 113.203, 10.989, 0.428)
pt3dadd(189.307, 113.192, 10.963, 0.452)
pt3dadd(189.422, 113.182, 10.936, 0.476)
pt3dadd(189.538, 113.171, 10.91, 0.502)
pt3dadd(189.653, 113.161, 10.883, 0.526)
pt3dadd(189.768, 113.15, 10.857, 0.552)
pt3dadd(189.883, 113.139, 10.83, 0.576)
pt3dadd(189.998, 113.129, 10.804, 0.6)
pt3dadd(190.114, 113.118, 10.778, 0.626)
pt3dadd(190.229, 113.11, 10.752, 0.644)
pt3dadd(190.346, 113.109, 10.731, 0.626)
pt3dadd(190.464, 113.109, 10.711, 0.608)
pt3dadd(190.582, 113.109, 10.69, 0.59)
pt3dadd(190.699, 113.109, 10.67, 0.574)
pt3dadd(190.816, 113.109, 10.649, 0.556)
pt3dadd(190.933, 113.109, 10.629, 0.538)
pt3dadd(191.051, 113.108, 10.608, 0.522)
pt3dadd(191.168, 113.108, 10.587, 0.504)
pt3dadd(191.286, 113.108, 10.567, 0.486)
pt3dadd(191.404, 113.108, 10.547, 0.476)
pt3dadd(191.521, 113.107, 10.528, 0.506)
pt3dadd(191.639, 113.107, 10.509, 0.534)
pt3dadd(191.758, 113.107, 10.491, 0.564)
pt3dadd(191.875, 113.106, 10.472, 0.594)
pt3dadd(191.993, 113.106, 10.453, 0.622)
pt3dadd(192.11, 113.106, 10.435, 0.652)
pt3dadd(192.229, 113.105, 10.416, 0.68)
pt3dadd(192.347, 113.105, 10.397, 0.71)
pt3dadd(192.464, 113.104, 10.379, 0.74)
pt3dadd(192.581, 113.104, 10.357, 0.768)
pt3dadd(192.694, 113.103, 10.322, 0.792)
pt3dadd(192.806, 113.103, 10.286, 0.816)
pt3dadd(192.918, 113.102, 10.251, 0.838)
pt3dadd(193.031, 113.102, 10.216, 0.862)
pt3dadd(193.142, 113.101, 10.18, 0.886)
pt3dadd(193.255, 113.1, 10.145, 0.91)
pt3dadd(193.367, 113.1, 10.11, 0.934)
pt3dadd(193.48, 113.099, 10.074, 0.958)
pt3dadd(193.591, 113.098, 10.039, 0.982)
pt3dadd(193.702, 113.098, 10, 1)
pt3dadd(193.807, 113.097, 9.953, 1.006)
pt3dadd(193.913, 113.096, 9.905, 1.01)
pt3dadd(194.018, 113.095, 9.858, 1.016)
pt3dadd(194.124, 113.094, 9.81, 1.022)
pt3dadd(194.23, 113.093, 9.762, 1.026)
pt3dadd(194.335, 113.092, 9.715, 1.032)
pt3dadd(194.441, 113.091, 9.667, 1.036)
pt3dadd(194.546, 113.091, 9.62, 1.042)
pt3dadd(194.652, 113.09, 9.572, 1.048)
pt3dadd(194.756, 113.088, 9.523, 1.038)
pt3dadd(194.857, 113.087, 9.468, 0.994)
pt3dadd(194.957, 113.085, 9.414, 0.948)
pt3dadd(195.058, 113.084, 9.359, 0.904)
pt3dadd(195.158, 113.082, 9.305, 0.86)
pt3dadd(195.259, 113.081, 9.25, 0.814)
pt3dadd(195.36, 113.079, 9.196, 0.77)
pt3dadd(195.461, 113.077, 9.141, 0.724)
pt3dadd(195.56, 113.076, 9.087, 0.68)
pt3dadd(195.661, 113.074, 9.032, 0.634)
pt3dadd(195.764, 113.072, 8.981, 0.6)
pt3dadd(195.874, 113.069, 8.94, 0.598)
pt3dadd(195.983, 113.066, 8.899, 0.594)
pt3dadd(196.092, 113.063, 8.857, 0.59)
pt3dadd(196.201, 113.06, 8.816, 0.586)
pt3dadd(196.31, 113.057, 8.775, 0.582)
pt3dadd(196.42, 113.054, 8.734, 0.578)
pt3dadd(196.529, 113.051, 8.693, 0.574)
pt3dadd(196.638, 113.048, 8.651, 0.57)
pt3dadd(196.748, 113.046, 8.61, 0.566)
pt3dadd(196.859, 113.042, 8.573, 0.572)
pt3dadd(196.974, 113.036, 8.546, 0.594)
pt3dadd(197.089, 113.031, 8.518, 0.616)
pt3dadd(197.204, 113.025, 8.491, 0.64)
pt3dadd(197.32, 113.02, 8.463, 0.662)
pt3dadd(197.435, 113.014, 8.436, 0.686)
pt3dadd(197.551, 113.009, 8.408, 0.708)
pt3dadd(197.666, 113.003, 8.381, 0.73)
pt3dadd(197.782, 112.998, 8.354, 0.754)
pt3dadd(197.897, 112.992, 8.326, 0.776)
pt3dadd(198.013, 112.985, 8.304, 0.804)
pt3dadd(198.132, 112.976, 8.292, 0.836)
pt3dadd(198.251, 112.966, 8.28, 0.868)
pt3dadd(198.37, 112.957, 8.268, 0.9)
pt3dadd(198.488, 112.947, 8.256, 0.934)
pt3dadd(198.607, 112.938, 8.244, 0.966)
pt3dadd(198.726, 112.928, 8.232, 0.998)
pt3dadd(198.844, 112.918, 8.22, 1.03)
pt3dadd(198.962, 112.909, 8.208, 1.064)
pt3dadd(199.081, 112.899, 8.196, 1.096)
pt3dadd(199.2, 112.887, 8.187, 1.102)
pt3dadd(199.319, 112.871, 8.184, 1.066)
pt3dadd(199.438, 112.855, 8.181, 1.03)
pt3dadd(199.558, 112.839, 8.178, 0.996)
pt3dadd(199.676, 112.823, 8.175, 0.96)
pt3dadd(199.795, 112.808, 8.172, 0.924)
pt3dadd(199.914, 112.792, 8.169, 0.89)
pt3dadd(200.033, 112.776, 8.166, 0.854)
pt3dadd(200.152, 112.76, 8.163, 0.818)
pt3dadd(200.27, 112.744, 8.161, 0.782)
pt3dadd(200.387, 112.718, 8.156, 0.762)
pt3dadd(200.5, 112.677, 8.15, 0.768)
pt3dadd(200.612, 112.637, 8.145, 0.772)
pt3dadd(200.725, 112.596, 8.139, 0.776)
pt3dadd(200.837, 112.555, 8.133, 0.78)
pt3dadd(200.95, 112.514, 8.127, 0.784)
pt3dadd(201.062, 112.473, 8.121, 0.788)
pt3dadd(201.175, 112.433, 8.115, 0.792)
pt3dadd(201.288, 112.392, 8.109, 0.796)
pt3dadd(201.401, 112.351, 8.103, 0.802)
pt3dadd(201.512, 112.309, 8.096, 0.814)
pt3dadd(201.624, 112.265, 8.088, 0.838)
pt3dadd(201.734, 112.221, 8.079, 0.86)
pt3dadd(201.846, 112.176, 8.07, 0.884)
pt3dadd(201.956, 112.132, 8.062, 0.906)
pt3dadd(202.068, 112.088, 8.053, 0.93)
pt3dadd(202.18, 112.044, 8.044, 0.954)
pt3dadd(202.29, 112, 8.036, 0.976)
pt3dadd(202.402, 111.956, 8.027, 1)
pt3dadd(202.512, 111.912, 8.018, 1.022)
pt3dadd(202.625, 111.871, 8.008, 1.05)
pt3dadd(202.738, 111.833, 7.995, 1.08)
pt3dadd(202.85, 111.796, 7.982, 1.11)
pt3dadd(202.963, 111.758, 7.969, 1.14)
pt3dadd(203.076, 111.721, 7.956, 1.172)
pt3dadd(203.189, 111.684, 7.943, 1.202)
pt3dadd(203.302, 111.646, 7.93, 1.232)
pt3dadd(203.416, 111.609, 7.917, 1.262)
pt3dadd(203.528, 111.571, 7.904, 1.294)
pt3dadd(203.641, 111.534, 7.891, 1.324)
pt3dadd(203.752, 111.501, 7.866, 1.324)
pt3dadd(203.858, 111.472, 7.828, 1.292)
pt3dadd(203.966, 111.444, 7.791, 1.258)
}
}
proc shape3d_205() {
dend_7[41] { pt3dadd(204.073, 111.416, 7.753, 1.226)
pt3dadd(204.181, 111.388, 7.715, 1.194)
pt3dadd(204.288, 111.359, 7.677, 1.162)
pt3dadd(204.396, 111.331, 7.64, 1.128)
pt3dadd(204.504, 111.303, 7.602, 1.096)
pt3dadd(204.611, 111.274, 7.564, 1.064)
pt3dadd(204.719, 111.246, 7.527, 1.032)
pt3dadd(204.826, 111.21, 7.493, 1.014)
pt3dadd(204.931, 111.166, 7.464, 1.014)
pt3dadd(205.038, 111.123, 7.434, 1.014)
pt3dadd(205.144, 111.079, 7.405, 1.012)
pt3dadd(205.249, 111.035, 7.376, 1.012)
pt3dadd(205.356, 110.992, 7.347, 1.012)
pt3dadd(205.462, 110.948, 7.317, 1.012)
pt3dadd(205.568, 110.904, 7.288, 1.01)
pt3dadd(205.674, 110.86, 7.259, 1.01)
pt3dadd(205.78, 110.817, 7.229, 1.01)
pt3dadd(205.886, 110.77, 7.204, 1.012)
pt3dadd(205.992, 110.72, 7.181, 1.014)
pt3dadd(206.098, 110.67, 7.158, 1.018)
pt3dadd(206.203, 110.621, 7.135, 1.022)
pt3dadd(206.309, 110.571, 7.112, 1.024)
pt3dadd(206.414, 110.521, 7.089, 1.028)
pt3dadd(206.52, 110.471, 7.066, 1.032)
pt3dadd(206.626, 110.422, 7.043, 1.036)
pt3dadd(206.731, 110.372, 7.02, 1.038)
pt3dadd(206.837, 110.322, 6.997, 1.042)
pt3dadd(206.945, 110.275, 6.977, 1.024)
pt3dadd(207.054, 110.231, 6.959, 0.988)
pt3dadd(207.163, 110.186, 6.941, 0.954)
pt3dadd(207.272, 110.142, 6.923, 0.918)
pt3dadd(207.382, 110.097, 6.905, 0.884)
pt3dadd(207.491, 110.052, 6.887, 0.848)
pt3dadd(207.601, 110.008, 6.87, 0.814)
pt3dadd(207.71, 109.963, 6.852, 0.778)
pt3dadd(207.82, 109.919, 6.834, 0.744)
pt3dadd(207.929, 109.874, 6.816, 0.708)
pt3dadd(208.034, 109.82, 6.802, 0.72)
pt3dadd(208.135, 109.758, 6.79, 0.768)
pt3dadd(208.237, 109.696, 6.779, 0.816)
pt3dadd(208.339, 109.635, 6.767, 0.864)
pt3dadd(208.441, 109.573, 6.756, 0.912)
pt3dadd(208.543, 109.511, 6.744, 0.958)
pt3dadd(208.645, 109.449, 6.733, 1.006)
pt3dadd(208.747, 109.387, 6.721, 1.054)
pt3dadd(208.849, 109.325, 6.71, 1.102)
pt3dadd(208.951, 109.264, 6.699, 1.15)
pt3dadd(209.05, 109.206, 6.672, 1.166)
pt3dadd(209.147, 109.15, 6.634, 1.154)
pt3dadd(209.243, 109.095, 6.597, 1.142)
pt3dadd(209.339, 109.04, 6.559, 1.132)
pt3dadd(209.436, 108.985, 6.521, 1.12)
pt3dadd(209.532, 108.929, 6.483, 1.11)
pt3dadd(209.628, 108.874, 6.446, 1.098)
pt3dadd(209.725, 108.819, 6.408, 1.088)
pt3dadd(209.821, 108.764, 6.37, 1.076)
pt3dadd(209.917, 108.708, 6.332, 1.064)
pt3dadd(210.019, 108.665, 6.295, 1.028)
pt3dadd(210.124, 108.625, 6.257, 0.982)
pt3dadd(210.227, 108.584, 6.219, 0.938)
pt3dadd(210.33, 108.544, 6.181, 0.894)
pt3dadd(210.434, 108.504, 6.144, 0.848)
pt3dadd(210.538, 108.464, 6.106, 0.804)
pt3dadd(210.641, 108.423, 6.068, 0.76)
pt3dadd(210.745, 108.383, 6.03, 0.714)
pt3dadd(210.848, 108.343, 5.992, 0.67)
pt3dadd(210.952, 108.303, 5.955, 0.626)
pt3dadd(211.06, 108.257, 5.933, 0.616)
pt3dadd(211.168, 108.21, 5.914, 0.61)
pt3dadd(211.276, 108.163, 5.895, 0.606)
pt3dadd(211.384, 108.116, 5.875, 0.602)
pt3dadd(211.492, 108.069, 5.856, 0.596)
pt3dadd(211.6, 108.022, 5.837, 0.592)
pt3dadd(211.708, 107.975, 5.818, 0.588)
pt3dadd(211.816, 107.928, 5.798, 0.582)
pt3dadd(211.924, 107.881, 5.779, 0.578)
pt3dadd(212.032, 107.835, 5.76, 0.574)
pt3dadd(212.142, 107.789, 5.753, 0.57)
pt3dadd(212.254, 107.744, 5.746, 0.566)
pt3dadd(212.364, 107.699, 5.74, 0.562)
pt3dadd(212.476, 107.654, 5.733, 0.558)
pt3dadd(212.586, 107.609, 5.726, 0.554)
pt3dadd(212.696, 107.564, 5.72, 0.55)
pt3dadd(212.808, 107.519, 5.713, 0.546)
pt3dadd(212.918, 107.474, 5.707, 0.542)
pt3dadd(213.03, 107.429, 5.7, 0.538)
pt3dadd(213.14, 107.384, 5.694, 0.534)
pt3dadd(213.256, 107.349, 5.694, 0.504)
pt3dadd(213.371, 107.315, 5.694, 0.472)
pt3dadd(213.486, 107.28, 5.694, 0.442)
pt3dadd(213.6, 107.246, 5.694, 0.41)
pt3dadd(213.715, 107.211, 5.694, 0.38)
pt3dadd(213.83, 107.177, 5.694, 0.35)
pt3dadd(213.946, 107.142, 5.694, 0.318)
pt3dadd(214.06, 107.108, 5.694, 0.288)
pt3dadd(214.175, 107.073, 5.694, 0.256)
pt3dadd(214.29, 107.039, 5.694, 0.226)
}
dend_7[42] {pt3dclear()
pt3dadd(157.831, 121.246, 17.079, 1.13)
pt3dadd(157.876, 121.288, 17.079, 1.13)
pt3dadd(157.963, 121.369, 17.079, 1.13)
pt3dadd(158.052, 121.451, 17.079, 1.13)
pt3dadd(158.14, 121.532, 17.079, 1.13)
pt3dadd(158.227, 121.615, 17.079, 1.13)
pt3dadd(158.315, 121.697, 17.079, 1.13)
pt3dadd(158.402, 121.778, 17.078, 1.13)
pt3dadd(158.49, 121.86, 17.078, 1.13)
pt3dadd(158.578, 121.943, 17.078, 1.13)
pt3dadd(158.665, 122.024, 17.078, 1.13)
pt3dadd(158.753, 122.106, 17.078, 1.13)
pt3dadd(158.84, 122.189, 17.078, 1.13)
pt3dadd(158.921, 122.276, 17.077, 1.126)
pt3dadd(158.982, 122.38, 17.077, 1.11)
pt3dadd(159.044, 122.482, 17.077, 1.096)
pt3dadd(159.107, 122.585, 17.077, 1.08)
pt3dadd(159.168, 122.688, 17.076, 1.066)
pt3dadd(159.23, 122.79, 17.076, 1.052)
pt3dadd(159.292, 122.893, 17.076, 1.036)
pt3dadd(159.354, 122.996, 17.076, 1.022)
pt3dadd(159.416, 123.098, 17.075, 1.006)
pt3dadd(159.478, 123.202, 17.075, 0.992)
pt3dadd(159.533, 123.307, 17.075, 0.984)
pt3dadd(159.578, 123.419, 17.074, 0.984)
pt3dadd(159.623, 123.53, 17.074, 0.986)
pt3dadd(159.668, 123.641, 17.073, 0.988)
pt3dadd(159.714, 123.752, 17.073, 0.99)
pt3dadd(159.758, 123.864, 17.072, 0.992)
pt3dadd(159.804, 123.974, 17.072, 0.994)
pt3dadd(159.848, 124.086, 17.071, 0.996)
pt3dadd(159.894, 124.198, 17.071, 0.998)
pt3dadd(159.938, 124.309, 17.07, 0.998)
pt3dadd(159.983, 124.421, 17.07, 1.004)
pt3dadd(160.025, 124.532, 17.069, 1.014)
pt3dadd(160.067, 124.645, 17.068, 1.022)
pt3dadd(160.109, 124.758, 17.068, 1.032)
pt3dadd(160.151, 124.87, 17.067, 1.04)
pt3dadd(160.193, 124.982, 17.066, 1.05)
pt3dadd(160.235, 125.095, 17.065, 1.06)
pt3dadd(160.277, 125.207, 17.065, 1.068)
pt3dadd(160.319, 125.32, 17.064, 1.078)
pt3dadd(160.361, 125.432, 17.063, 1.088)
pt3dadd(160.411, 125.54, 17.062, 1.084)
pt3dadd(160.47, 125.645, 17.061, 1.068)
pt3dadd(160.529, 125.749, 17.059, 1.054)
pt3dadd(160.588, 125.855, 17.058, 1.038)
pt3dadd(160.646, 125.959, 17.057, 1.022)
pt3dadd(160.705, 126.064, 17.056, 1.006)
pt3dadd(160.764, 126.168, 17.054, 0.99)
pt3dadd(160.823, 126.272, 17.053, 0.974)
pt3dadd(160.882, 126.377, 17.052, 0.958)
pt3dadd(160.942, 126.481, 17.051, 0.942)
pt3dadd(161.005, 126.582, 17.049, 0.944)
pt3dadd(161.076, 126.679, 17.047, 0.964)
pt3dadd(161.146, 126.776, 17.045, 0.984)
pt3dadd(161.216, 126.874, 17.042, 1.006)
pt3dadd(161.286, 126.971, 17.04, 1.026)
pt3dadd(161.357, 127.068, 17.038, 1.048)
pt3dadd(161.428, 127.166, 17.036, 1.068)
pt3dadd(161.497, 127.264, 17.034, 1.088)
pt3dadd(161.568, 127.361, 17.032, 1.11)
pt3dadd(161.638, 127.458, 17.029, 1.13)
pt3dadd(161.707, 127.555, 17.027, 1.148)
pt3dadd(161.777, 127.654, 17.023, 1.166)
pt3dadd(161.846, 127.751, 17.02, 1.184)
pt3dadd(161.915, 127.849, 17.016, 1.2)
pt3dadd(161.984, 127.948, 17.013, 1.218)
pt3dadd(162.053, 128.045, 17.009, 1.234)
pt3dadd(162.122, 128.143, 17.006, 1.252)
pt3dadd(162.192, 128.24, 17.002, 1.268)
pt3dadd(162.26, 128.339, 16.999, 1.286)
pt3dadd(162.33, 128.437, 16.995, 1.304)
pt3dadd(162.394, 128.538, 16.99, 1.304)
pt3dadd(162.452, 128.642, 16.984, 1.286)
pt3dadd(162.511, 128.747, 16.977, 1.27)
pt3dadd(162.57, 128.851, 16.97, 1.254)
pt3dadd(162.628, 128.956, 16.963, 1.236)
pt3dadd(162.686, 129.06, 16.957, 1.22)
pt3dadd(162.745, 129.164, 16.95, 1.204)
pt3dadd(162.804, 129.269, 16.944, 1.186)
pt3dadd(162.863, 129.373, 16.937, 1.17)
pt3dadd(162.922, 129.478, 16.93, 1.154)
pt3dadd(162.984, 129.58, 16.922, 1.144)
pt3dadd(163.052, 129.678, 16.911, 1.142)
pt3dadd(163.12, 129.776, 16.901, 1.142)
pt3dadd(163.187, 129.875, 16.89, 1.14)
pt3dadd(163.255, 129.972, 16.88, 1.138)
pt3dadd(163.322, 130.07, 16.869, 1.136)
pt3dadd(163.391, 130.169, 16.859, 1.136)
pt3dadd(163.458, 130.267, 16.848, 1.134)
pt3dadd(163.525, 130.366, 16.838, 1.132)
pt3dadd(163.594, 130.464, 16.827, 1.13)
pt3dadd(163.661, 130.559, 16.807, 1.13)
pt3dadd(163.728, 130.651, 16.776, 1.13)
pt3dadd(163.795, 130.744, 16.745, 1.13)
pt3dadd(163.862, 130.835, 16.714, 1.13)
pt3dadd(163.931, 130.927, 16.683, 1.13)
pt3dadd(163.998, 131.02, 16.652, 1.13)
pt3dadd(164.065, 131.112, 16.621, 1.13)
pt3dadd(164.132, 131.203, 16.59, 1.13)
pt3dadd(164.2, 131.296, 16.559, 1.13)
pt3dadd(164.267, 131.388, 16.528, 1.13)
}
}
proc shape3d_206() {
dend_7[42] { pt3dadd(164.336, 131.476, 16.493, 1.13)
pt3dadd(164.407, 131.562, 16.455, 1.13)
pt3dadd(164.478, 131.648, 16.418, 1.13)
pt3dadd(164.549, 131.734, 16.381, 1.13)
pt3dadd(164.62, 131.82, 16.344, 1.13)
pt3dadd(164.69, 131.906, 16.307, 1.13)
pt3dadd(164.761, 131.993, 16.27, 1.13)
pt3dadd(164.832, 132.079, 16.233, 1.13)
pt3dadd(164.903, 132.164, 16.196, 1.13)
pt3dadd(164.974, 132.251, 16.159, 1.13)
pt3dadd(165.05, 132.338, 16.133, 1.128)
pt3dadd(165.127, 132.425, 16.111, 1.126)
pt3dadd(165.205, 132.512, 16.088, 1.124)
pt3dadd(165.283, 132.6, 16.066, 1.122)
pt3dadd(165.361, 132.688, 16.043, 1.12)
pt3dadd(165.438, 132.775, 16.021, 1.118)
pt3dadd(165.516, 132.862, 15.998, 1.116)
pt3dadd(165.594, 132.949, 15.976, 1.114)
pt3dadd(165.672, 133.037, 15.954, 1.112)
pt3dadd(165.75, 133.124, 15.931, 1.11)
pt3dadd(165.827, 133.214, 15.918, 1.098)
pt3dadd(165.904, 133.306, 15.907, 1.082)
pt3dadd(165.982, 133.397, 15.896, 1.066)
pt3dadd(166.058, 133.487, 15.886, 1.052)
pt3dadd(166.135, 133.578, 15.875, 1.036)
pt3dadd(166.213, 133.669, 15.864, 1.022)
pt3dadd(166.29, 133.76, 15.854, 1.006)
pt3dadd(166.367, 133.852, 15.843, 0.99)
pt3dadd(166.445, 133.942, 15.832, 0.976)
pt3dadd(166.522, 134.033, 15.821, 0.96)
pt3dadd(166.589, 134.131, 15.815, 0.952)
pt3dadd(166.655, 134.232, 15.809, 0.948)
pt3dadd(166.72, 134.333, 15.804, 0.942)
pt3dadd(166.786, 134.432, 15.799, 0.936)
pt3dadd(166.85, 134.533, 15.793, 0.932)
pt3dadd(166.916, 134.634, 15.788, 0.926)
pt3dadd(166.981, 134.734, 15.783, 0.92)
pt3dadd(167.047, 134.834, 15.777, 0.916)
pt3dadd(167.112, 134.935, 15.772, 0.91)
pt3dadd(167.178, 135.036, 15.766, 0.904)
pt3dadd(167.239, 135.138, 15.763, 0.906)
pt3dadd(167.299, 135.242, 15.76, 0.91)
pt3dadd(167.359, 135.346, 15.757, 0.912)
pt3dadd(167.419, 135.45, 15.753, 0.916)
pt3dadd(167.479, 135.553, 15.75, 0.918)
pt3dadd(167.54, 135.658, 15.747, 0.922)
pt3dadd(167.6, 135.761, 15.744, 0.924)
pt3dadd(167.66, 135.864, 15.74, 0.928)
pt3dadd(167.72, 135.968, 15.737, 0.93)
pt3dadd(167.78, 136.072, 15.734, 0.934)
pt3dadd(167.846, 136.172, 15.729, 0.946)
pt3dadd(167.912, 136.272, 15.723, 0.962)
pt3dadd(167.978, 136.373, 15.717, 0.976)
pt3dadd(168.044, 136.472, 15.711, 0.992)
pt3dadd(168.11, 136.572, 15.705, 1.006)
pt3dadd(168.176, 136.673, 15.699, 1.022)
pt3dadd(168.242, 136.772, 15.693, 1.036)
pt3dadd(168.308, 136.872, 15.687, 1.05)
pt3dadd(168.374, 136.973, 15.681, 1.066)
pt3dadd(168.44, 137.072, 15.675, 1.08)
pt3dadd(168.509, 137.171, 15.667, 1.086)
pt3dadd(168.577, 137.268, 15.659, 1.092)
pt3dadd(168.647, 137.365, 15.65, 1.096)
pt3dadd(168.715, 137.464, 15.642, 1.102)
pt3dadd(168.784, 137.561, 15.634, 1.106)
pt3dadd(168.853, 137.659, 15.625, 1.11)
pt3dadd(168.922, 137.756, 15.617, 1.116)
pt3dadd(168.991, 137.855, 15.609, 1.12)
pt3dadd(169.06, 137.952, 15.6, 1.124)
pt3dadd(169.129, 138.05, 15.592, 1.13)
pt3dadd(169.198, 138.148, 15.58, 1.128)
pt3dadd(169.265, 138.245, 15.568, 1.126)
pt3dadd(169.333, 138.342, 15.555, 1.126)
pt3dadd(169.402, 138.44, 15.543, 1.124)
pt3dadd(169.47, 138.538, 15.531, 1.122)
pt3dadd(169.538, 138.635, 15.518, 1.12)
pt3dadd(169.607, 138.732, 15.506, 1.118)
pt3dadd(169.675, 138.83, 15.494, 1.116)
pt3dadd(169.744, 138.928, 15.481, 1.114)
pt3dadd(169.812, 139.025, 15.469, 1.114)
pt3dadd(169.865, 139.126, 15.437, 1.1)
pt3dadd(169.915, 139.226, 15.403, 1.084)
pt3dadd(169.964, 139.327, 15.369, 1.07)
pt3dadd(170.015, 139.429, 15.335, 1.054)
pt3dadd(170.065, 139.53, 15.301, 1.04)
pt3dadd(170.116, 139.631, 15.267, 1.024)
pt3dadd(170.166, 139.732, 15.233, 1.01)
pt3dadd(170.215, 139.834, 15.199, 0.994)
pt3dadd(170.266, 139.934, 15.165, 0.98)
pt3dadd(170.316, 140.035, 15.131, 0.964)
pt3dadd(170.37, 140.137, 15.103, 0.974)
pt3dadd(170.424, 140.239, 15.077, 0.986)
pt3dadd(170.478, 140.341, 15.05, 1)
pt3dadd(170.532, 140.443, 15.023, 1.012)
pt3dadd(170.587, 140.545, 14.997, 1.024)
pt3dadd(170.641, 140.648, 14.97, 1.038)
pt3dadd(170.695, 140.75, 14.943, 1.05)
pt3dadd(170.749, 140.852, 14.917, 1.064)
pt3dadd(170.804, 140.954, 14.89, 1.076)
pt3dadd(170.858, 141.056, 14.864, 1.09)
pt3dadd(170.912, 141.161, 14.843, 1.108)
pt3dadd(170.968, 141.264, 14.822, 1.128)
pt3dadd(171.022, 141.368, 14.801, 1.148)
pt3dadd(171.077, 141.472, 14.781, 1.168)
pt3dadd(171.132, 141.576, 14.76, 1.188)
pt3dadd(171.186, 141.68, 14.74, 1.21)
pt3dadd(171.241, 141.784, 14.719, 1.23)
pt3dadd(171.295, 141.888, 14.699, 1.25)
pt3dadd(171.35, 141.991, 14.678, 1.27)
pt3dadd(171.404, 142.096, 14.657, 1.29)
pt3dadd(171.445, 142.207, 14.645, 1.246)
pt3dadd(171.485, 142.32, 14.633, 1.194)
pt3dadd(171.523, 142.433, 14.621, 1.144)
pt3dadd(171.563, 142.546, 14.608, 1.094)
pt3dadd(171.601, 142.657, 14.596, 1.044)
pt3dadd(171.641, 142.77, 14.584, 0.994)
pt3dadd(171.68, 142.883, 14.572, 0.944)
pt3dadd(171.719, 142.994, 14.56, 0.894)
pt3dadd(171.758, 143.107, 14.548, 0.842)
pt3dadd(171.798, 143.22, 14.536, 0.792)
pt3dadd(171.833, 143.334, 14.53, 0.804)
pt3dadd(171.869, 143.449, 14.524, 0.818)
pt3dadd(171.905, 143.563, 14.519, 0.834)
pt3dadd(171.941, 143.677, 14.513, 0.85)
pt3dadd(171.976, 143.792, 14.508, 0.866)
pt3dadd(172.012, 143.906, 14.502, 0.882)
pt3dadd(172.048, 144.02, 14.497, 0.896)
pt3dadd(172.082, 144.136, 14.492, 0.912)
pt3dadd(172.118, 144.25, 14.486, 0.928)
pt3dadd(172.154, 144.364, 14.481, 0.944)
pt3dadd(172.198, 144.475, 14.475, 0.948)
pt3dadd(172.243, 144.587, 14.47, 0.952)
pt3dadd(172.288, 144.697, 14.464, 0.956)
pt3dadd(172.332, 144.809, 14.458, 0.96)
pt3dadd(172.376, 144.92, 14.453, 0.964)
pt3dadd(172.421, 145.032, 14.447, 0.968)
pt3dadd(172.465, 145.142, 14.442, 0.972)
pt3dadd(172.51, 145.254, 14.436, 0.976)
pt3dadd(172.554, 145.366, 14.431, 0.982)
pt3dadd(172.598, 145.476, 14.425, 0.986)
pt3dadd(172.655, 145.583, 14.417, 0.956)
pt3dadd(172.71, 145.688, 14.409, 0.926)
pt3dadd(172.766, 145.794, 14.401, 0.896)
pt3dadd(172.823, 145.9, 14.393, 0.866)
pt3dadd(172.878, 146.005, 14.385, 0.836)
pt3dadd(172.934, 146.111, 14.377, 0.806)
pt3dadd(172.99, 146.216, 14.369, 0.776)
pt3dadd(173.046, 146.322, 14.361, 0.746)
pt3dadd(173.102, 146.428, 14.353, 0.716)
pt3dadd(173.158, 146.534, 14.345, 0.686)
pt3dadd(173.224, 146.633, 14.332, 0.716)
pt3dadd(173.29, 146.732, 14.319, 0.744)
pt3dadd(173.356, 146.831, 14.306, 0.774)
pt3dadd(173.422, 146.93, 14.294, 0.804)
pt3dadd(173.488, 147.029, 14.281, 0.834)
pt3dadd(173.554, 147.128, 14.268, 0.864)
pt3dadd(173.62, 147.227, 14.255, 0.892)
pt3dadd(173.686, 147.326, 14.242, 0.922)
pt3dadd(173.752, 147.425, 14.229, 0.952)
pt3dadd(173.818, 147.524, 14.217, 0.982)
pt3dadd(173.872, 147.626, 14.189, 0.99)
pt3dadd(173.926, 147.728, 14.161, 0.996)
pt3dadd(173.98, 147.829, 14.133, 1.004)
pt3dadd(174.034, 147.931, 14.105, 1.012)
pt3dadd(174.088, 148.033, 14.078, 1.018)
pt3dadd(174.142, 148.135, 14.05, 1.026)
pt3dadd(174.196, 148.237, 14.022, 1.034)
pt3dadd(174.25, 148.339, 13.994, 1.04)
pt3dadd(174.304, 148.441, 13.966, 1.048)
pt3dadd(174.355, 148.543, 13.936, 1.052)
pt3dadd(174.395, 148.644, 13.894, 1.038)
pt3dadd(174.434, 148.746, 13.852, 1.024)
pt3dadd(174.475, 148.847, 13.811, 1.01)
pt3dadd(174.515, 148.949, 13.769, 0.996)
pt3dadd(174.554, 149.05, 13.727, 0.982)
pt3dadd(174.594, 149.152, 13.685, 0.968)
pt3dadd(174.634, 149.252, 13.643, 0.954)
pt3dadd(174.674, 149.354, 13.601, 0.94)
pt3dadd(174.714, 149.455, 13.559, 0.924)
pt3dadd(174.751, 149.558, 13.518, 0.922)
pt3dadd(174.773, 149.666, 13.48, 0.988)
pt3dadd(174.793, 149.776, 13.442, 1.054)
pt3dadd(174.815, 149.885, 13.405, 1.12)
pt3dadd(174.836, 149.994, 13.367, 1.186)
pt3dadd(174.858, 150.103, 13.329, 1.254)
pt3dadd(174.88, 150.212, 13.291, 1.32)
pt3dadd(174.901, 150.32, 13.253, 1.386)
pt3dadd(174.923, 150.43, 13.215, 1.452)
pt3dadd(174.944, 150.539, 13.177, 1.518)
pt3dadd(174.965, 150.647, 13.138, 1.578)
pt3dadd(174.983, 150.751, 13.09, 1.6)
pt3dadd(175, 150.854, 13.042, 1.624)
pt3dadd(175.016, 150.959, 12.994, 1.648)
pt3dadd(175.034, 151.062, 12.946, 1.672)
pt3dadd(175.051, 151.166, 12.898, 1.694)
pt3dadd(175.068, 151.27, 12.849, 1.718)
pt3dadd(175.086, 151.374, 12.801, 1.742)
pt3dadd(175.103, 151.477, 12.753, 1.766)
pt3dadd(175.12, 151.582, 12.705, 1.788)
pt3dadd(175.138, 151.685, 12.656, 1.804)
}
}
proc shape3d_207() {
dend_7[42] { pt3dadd(175.159, 151.784, 12.605, 1.782)
pt3dadd(175.181, 151.885, 12.553, 1.762)
pt3dadd(175.202, 151.986, 12.502, 1.74)
pt3dadd(175.223, 152.087, 12.45, 1.72)
pt3dadd(175.244, 152.188, 12.399, 1.698)
pt3dadd(175.266, 152.288, 12.347, 1.676)
pt3dadd(175.286, 152.389, 12.296, 1.656)
pt3dadd(175.308, 152.49, 12.245, 1.634)
pt3dadd(175.33, 152.59, 12.193, 1.614)
pt3dadd(175.358, 152.69, 12.144, 1.568)
pt3dadd(175.408, 152.789, 12.104, 1.456)
pt3dadd(175.457, 152.886, 12.064, 1.344)
pt3dadd(175.506, 152.984, 12.024, 1.232)
pt3dadd(175.555, 153.083, 11.984, 1.118)
pt3dadd(175.604, 153.181, 11.943, 1.006)
pt3dadd(175.654, 153.28, 11.903, 0.894)
pt3dadd(175.703, 153.378, 11.863, 0.782)
pt3dadd(175.752, 153.476, 11.823, 0.67)
pt3dadd(175.801, 153.575, 11.782, 0.558)
pt3dadd(175.848, 153.671, 11.739, 0.468)
pt3dadd(175.89, 153.762, 11.684, 0.442)
pt3dadd(175.932, 153.854, 11.63, 0.418)
pt3dadd(175.973, 153.946, 11.576, 0.394)
pt3dadd(176.015, 154.038, 11.521, 0.368)
pt3dadd(176.057, 154.129, 11.467, 0.344)
pt3dadd(176.098, 154.222, 11.413, 0.318)
pt3dadd(176.14, 154.313, 11.359, 0.294)
pt3dadd(176.182, 154.405, 11.305, 0.268)
pt3dadd(176.224, 154.496, 11.25, 0.244)
pt3dadd(176.264, 154.585, 11.193, 0.24)
pt3dadd(176.306, 154.667, 11.128, 0.286)
pt3dadd(176.348, 154.748, 11.064, 0.332)
pt3dadd(176.389, 154.83, 10.999, 0.378)
pt3dadd(176.431, 154.912, 10.934, 0.424)
pt3dadd(176.473, 154.993, 10.87, 0.47)
pt3dadd(176.515, 155.075, 10.805, 0.516)
pt3dadd(176.556, 155.156, 10.74, 0.562)
pt3dadd(176.598, 155.238, 10.676, 0.608)
pt3dadd(176.64, 155.32, 10.611, 0.654)
pt3dadd(176.684, 155.395, 10.544, 0.722)
pt3dadd(176.734, 155.461, 10.471, 0.824)
pt3dadd(176.784, 155.527, 10.399, 0.928)
pt3dadd(176.833, 155.593, 10.326, 1.03)
pt3dadd(176.884, 155.659, 10.254, 1.134)
pt3dadd(176.934, 155.725, 10.182, 1.238)
pt3dadd(176.983, 155.792, 10.109, 1.34)
pt3dadd(177.034, 155.858, 10.037, 1.444)
pt3dadd(177.083, 155.924, 9.964, 1.546)
pt3dadd(177.133, 155.99, 9.892, 1.65)
pt3dadd(177.197, 156.059, 9.832, 1.668)
pt3dadd(177.274, 156.13, 9.784, 1.596)
pt3dadd(177.352, 156.202, 9.736, 1.524)
pt3dadd(177.43, 156.272, 9.689, 1.452)
pt3dadd(177.506, 156.344, 9.641, 1.38)
pt3dadd(177.584, 156.415, 9.593, 1.308)
pt3dadd(177.662, 156.487, 9.545, 1.236)
pt3dadd(177.739, 156.558, 9.497, 1.164)
pt3dadd(177.817, 156.63, 9.45, 1.092)
pt3dadd(177.895, 156.701, 9.402, 1.02)
pt3dadd(177.98, 156.761, 9.355, 0.972)
pt3dadd(178.076, 156.806, 9.308, 0.95)
pt3dadd(178.171, 156.853, 9.261, 0.928)
pt3dadd(178.267, 156.9, 9.214, 0.904)
pt3dadd(178.362, 156.946, 9.167, 0.882)
pt3dadd(178.458, 156.992, 9.12, 0.86)
pt3dadd(178.553, 157.039, 9.073, 0.838)
pt3dadd(178.648, 157.085, 9.026, 0.814)
pt3dadd(178.744, 157.132, 8.98, 0.792)
pt3dadd(178.838, 157.178, 8.933, 0.77)
pt3dadd(178.937, 157.226, 8.892, 0.75)
pt3dadd(179.039, 157.276, 8.858, 0.734)
pt3dadd(179.14, 157.326, 8.824, 0.718)
pt3dadd(179.24, 157.375, 8.79, 0.702)
pt3dadd(179.342, 157.424, 8.755, 0.688)
pt3dadd(179.443, 157.475, 8.721, 0.67)
pt3dadd(179.544, 157.524, 8.687, 0.654)
pt3dadd(179.646, 157.574, 8.653, 0.638)
pt3dadd(179.747, 157.624, 8.619, 0.622)
pt3dadd(179.848, 157.673, 8.584, 0.608)
pt3dadd(179.918, 157.758, 8.583, 0.67)
pt3dadd(179.971, 157.864, 8.602, 0.784)
pt3dadd(180.024, 157.968, 8.622, 0.896)
pt3dadd(180.077, 158.074, 8.641, 1.008)
pt3dadd(180.13, 158.179, 8.66, 1.12)
pt3dadd(180.182, 158.285, 8.679, 1.232)
pt3dadd(180.235, 158.39, 8.698, 1.346)
pt3dadd(180.288, 158.496, 8.685, 1.39)
pt3dadd(180.341, 158.602, 8.669, 1.426)
pt3dadd(180.359, 158.672, 8.593, 1.41)
pt3dadd(180.372, 158.738, 8.511, 1.384)
pt3dadd(180.463, 158.758, 8.458, 1.35)
pt3dadd(180.568, 158.771, 8.409, 1.312)
pt3dadd(180.649, 158.848, 8.386, 1.252)
pt3dadd(180.725, 158.938, 8.369, 1.188)
pt3dadd(180.823, 158.962, 8.319, 1.16)
pt3dadd(180.923, 158.977, 8.266, 1.138)
pt3dadd(181.024, 158.993, 8.212, 1.114)
pt3dadd(181.102, 159, 8.14, 1.092)
pt3dadd(181.162, 159, 8.054, 1.07)
pt3dadd(181.218, 159.02, 7.971, 1.058)
pt3dadd(181.268, 159.076, 7.892, 1.068)
pt3dadd(181.319, 159.131, 7.814, 1.08)
pt3dadd(181.374, 159.235, 7.806, 1.08)
pt3dadd(181.43, 159.341, 7.801, 1.08)
pt3dadd(181.513, 159.416, 7.782, 1.078)
pt3dadd(181.553, 159.517, 7.739, 1.074)
pt3dadd(181.592, 159.618, 7.695, 1.068)
pt3dadd(181.632, 159.719, 7.652, 1.062)
pt3dadd(181.672, 159.82, 7.609, 1.056)
pt3dadd(181.718, 159.89, 7.541, 1.06)
pt3dadd(181.766, 159.954, 7.466, 1.066)
pt3dadd(181.814, 160.019, 7.392, 1.072)
pt3dadd(181.862, 160.082, 7.317, 1.078)
pt3dadd(181.897, 160.135, 7.233, 1.08)
pt3dadd(181.924, 160.183, 7.144, 1.08)
pt3dadd(181.996, 160.2, 7.075, 1.072)
pt3dadd(182.094, 160.2, 7.019, 1.06)
pt3dadd(182.183, 160.21, 6.953, 1.036)
pt3dadd(182.26, 160.23, 6.878, 0.996)
pt3dadd(182.323, 160.296, 6.832, 0.972)
pt3dadd(182.378, 160.399, 6.809, 0.96)
pt3dadd(182.432, 160.505, 6.8, 0.974)
pt3dadd(182.483, 160.614, 6.8, 1.01)
pt3dadd(182.503, 160.732, 6.8, 1.058)
pt3dadd(182.524, 160.85, 6.8, 1.106)
pt3dadd(182.557, 160.963, 6.788, 1.162)
pt3dadd(182.605, 161.07, 6.766, 1.226)
pt3dadd(182.641, 161.154, 6.712, 1.276)
pt3dadd(182.669, 161.216, 6.63, 1.316)
pt3dadd(182.704, 161.256, 6.542, 1.346)
pt3dadd(182.743, 161.282, 6.45, 1.37)
pt3dadd(182.762, 161.338, 6.367, 1.394)
pt3dadd(182.766, 161.414, 6.29, 1.416)
pt3dadd(182.77, 161.491, 6.213, 1.436)
pt3dadd(182.784, 161.564, 6.142, 1.462)
pt3dadd(182.891, 161.611, 6.12, 1.512)
pt3dadd(182.999, 161.657, 6.098, 1.564)
pt3dadd(183.102, 161.699, 6.068, 1.598)
pt3dadd(183.192, 161.747, 6.015, 1.574)
pt3dadd(183.282, 161.795, 5.961, 1.55)
pt3dadd(183.371, 161.843, 5.908, 1.526)
pt3dadd(183.458, 161.897, 5.858, 1.478)
pt3dadd(183.541, 161.971, 5.821, 1.352)
pt3dadd(183.616, 162.059, 5.798, 1.216)
pt3dadd(183.678, 162.16, 5.792, 1.074)
pt3dadd(183.742, 162.229, 5.76, 0.938)
pt3dadd(183.805, 162.235, 5.675, 0.818)
pt3dadd(183.876, 162.245, 5.595, 0.702)
pt3dadd(183.966, 162.265, 5.532, 0.598)
pt3dadd(184.042, 162.308, 5.471, 0.494)
pt3dadd(184.086, 162.392, 5.412, 0.394)
pt3dadd(184.133, 162.439, 5.328, 0.336)
pt3dadd(184.181, 162.446, 5.246, 0.29)
pt3dadd(184.231, 162.395, 5.167, 0.262)
pt3dadd(184.322, 162.371, 5.126, 0.246)
pt3dadd(184.441, 162.365, 5.113, 0.236)
pt3dadd(184.56, 162.36, 5.1, 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()
shape3d_198()
shape3d_199()
shape3d_200()
basic_shape_2()
}
proc basic_shape_2() {
shape3d_201()
shape3d_202()
shape3d_203()
shape3d_204()
shape3d_205()
shape3d_206()
shape3d_207()
}
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, 8 dend_0[i] all.append()
for i=0, 26 apic[i] all.append()
for i=0, 19 dend_5[i] all.append()
for i=0, 42 dend_7[i] all.append()
dendritic_0 = new SectionList()
for i=0, 8 dend_0[i] dendritic_0.append()
somatic = new SectionList()
soma somatic.append()
apical = new SectionList()
for i=0, 26 apic[i] apical.append()
dendritic_5 = new SectionList()
for i=0, 19 dend_5[i] dendritic_5.append()
dendritic_7 = new SectionList()
for i=0, 42 dend_7[i] dendritic_7.append()
}
proc geom() {
}
proc geom_nseg() {
}
proc biophys() {
}
access soma
celldef()