proc celldef() {
topol()
subsets()
geom()
biophys()
geom_nseg()
}
create soma, dend_0[8], apic[31], dend_5[13], dend_7[53]
proc topol() { local i
connect dend_0(0), soma(0.5)
for i = 1, 2 connect dend_0[i](0), dend_0(1)
for i = 3, 4 connect dend_0[i](0), dend_0[2](1)
for i = 5, 6 connect dend_0[i](0), dend_0(1)
connect dend_0[7](0), soma(0.5)
connect apic(0), dend_0[1](1)
for i = 1, 6 connect apic[i](0), apic[i-1](1)
connect apic[7](0), apic[5](1)
connect apic[8](0), apic[4](1)
connect apic[9](0), apic[3](1)
for i = 10, 11 connect apic[i](0), apic[i-1](1)
connect apic[12](0), apic[10](1)
for i = 13, 14 connect apic[i](0), apic[12](1)
connect apic[15](0), apic[9](1)
connect apic[16](0), apic[2](1)
for i = 17, 18 connect apic[i](0), apic[16](1)
connect apic[19](0), apic[1](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)
for i = 27, 28 connect apic[i](0), apic[i-1](1)
connect apic[29](0), apic[27](1)
connect apic[30](0), apic[26](1)
connect dend_5(0), apic[13](1)
for i = 1, 2 connect dend_5[i](0), dend_5[i-1](1)
connect dend_5[3](0), dend_5[1](1)
for i = 4, 5 connect dend_5[i](0), dend_5[3](1)
connect dend_5[6](0), dend_5(1)
for i = 7, 9 connect dend_5[i](0), dend_5[i-1](1)
connect dend_5[10](0), dend_5[8](1)
connect dend_5[11](0), dend_5[7](1)
connect dend_5[12](0), dend_5[6](1)
connect dend_7(0), dend_0[3](1)
for i = 1, 4 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[5](0), dend_7[3](1)
connect dend_7[6](0), dend_7[2](1)
connect dend_7[7](0), dend_7[1](1)
connect dend_7[8](0), dend_7(1)
connect dend_7[9](0), dend_0[4](1)
for i = 10, 11 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[12](0), dend_7[10](1)
connect dend_7[13](0), dend_7[9](1)
for i = 14, 15 connect dend_7[i](0), dend_7[13](1)
for i = 16, 17 connect dend_7[i](0), dend_7[15](1)
connect dend_7[18](0), dend_0[5](1)
for i = 19, 21 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[22](0), dend_7[20](1)
connect dend_7[23](0), dend_7[19](1)
connect dend_7[24](0), dend_7[18](1)
for i = 25, 26 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[27](0), dend_7[25](1)
connect dend_7[28](0), dend_7[24](1)
for i = 29, 30 connect dend_7[i](0), dend_7[28](1)
connect dend_7[31](0), dend_0[6](1)
for i = 32, 35 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[36](0), dend_7[34](1)
for i = 37, 38 connect dend_7[i](0), dend_7[36](1)
connect dend_7[39](0), dend_7[33](1)
connect dend_7[40](0), dend_7[32](1)
for i = 41, 42 connect dend_7[i](0), dend_7[40](1)
connect dend_7[43](0), dend_7[31](1)
for i = 44, 45 connect dend_7[i](0), dend_7[43](1)
connect dend_7[46](0), dend_0[7](1)
for i = 47, 48 connect dend_7[i](0), dend_7[46](1)
for i = 49, 50 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[51](0), dend_7[49](1)
connect dend_7[52](0), dend_7[48](1)
basic_shape()
}
proc shape3d_1() {
soma {pt3dclear()
pt3dadd(163.621, 112.011, 13.295, 12.954)
pt3dadd(170.098, 112.011, 13.295, 12.954)
pt3dadd(176.575, 112.011, 13.295, 12.954)
}
dend_0 {pt3dclear()
pt3dstyle(1, 170.098, 112.011, 13.295)
pt3dadd(170.098, 112.131, 13.295, 13.054)
pt3dadd(170.098, 112.194, 13.295, 13.108)
}
dend_0[1] {pt3dclear()
pt3dadd(170.098, 112.194, 13.295, 13.108)
pt3dadd(170.087, 112.287, 13.311, 12.976)
pt3dadd(170.072, 112.403, 13.332, 12.812)
pt3dadd(170.059, 112.52, 13.353, 12.648)
pt3dadd(170.045, 112.636, 13.374, 12.484)
pt3dadd(170.032, 112.753, 13.395, 12.32)
pt3dadd(170.017, 112.869, 13.416, 12.156)
pt3dadd(170.004, 112.986, 13.437, 11.992)
pt3dadd(169.99, 113.102, 13.458, 11.828)
pt3dadd(169.976, 113.219, 13.479, 11.664)
pt3dadd(169.962, 113.335, 13.5, 11.5)
pt3dadd(169.949, 113.452, 13.521, 11.334)
pt3dadd(169.934, 113.568, 13.542, 11.17)
pt3dadd(169.92, 113.684, 13.565, 11.004)
pt3dadd(169.906, 113.798, 13.596, 10.826)
pt3dadd(169.891, 113.911, 13.626, 10.648)
pt3dadd(169.877, 114.025, 13.656, 10.47)
pt3dadd(169.862, 114.138, 13.687, 10.292)
pt3dadd(169.848, 114.251, 13.717, 10.114)
pt3dadd(169.834, 114.365, 13.748, 9.936)
pt3dadd(169.819, 114.478, 13.778, 9.758)
pt3dadd(169.805, 114.592, 13.808, 9.582)
pt3dadd(169.79, 114.705, 13.839, 9.404)
pt3dadd(169.776, 114.817, 13.872, 9.222)
pt3dadd(169.76, 114.926, 13.912, 9.03)
pt3dadd(169.745, 115.034, 13.953, 8.84)
pt3dadd(169.73, 115.143, 13.994, 8.648)
pt3dadd(169.715, 115.252, 14.034, 8.458)
pt3dadd(169.7, 115.36, 14.075, 8.266)
pt3dadd(169.685, 115.469, 14.115, 8.074)
pt3dadd(169.669, 115.577, 14.156, 7.884)
pt3dadd(169.655, 115.686, 14.197, 7.692)
pt3dadd(169.639, 115.795, 14.237, 7.502)
pt3dadd(169.616, 115.903, 14.273, 7.326)
pt3dadd(169.573, 116.012, 14.297, 7.19)
pt3dadd(169.53, 116.12, 14.32, 7.056)
pt3dadd(169.487, 116.228, 14.343, 6.922)
pt3dadd(169.444, 116.337, 14.366, 6.786)
pt3dadd(169.4, 116.445, 14.39, 6.652)
pt3dadd(169.357, 116.554, 14.413, 6.518)
pt3dadd(169.314, 116.662, 14.436, 6.382)
pt3dadd(169.271, 116.77, 14.46, 6.248)
pt3dadd(169.228, 116.879, 14.483, 6.114)
pt3dadd(169.186, 116.988, 14.505, 5.982)
pt3dadd(169.142, 117.097, 14.525, 5.854)
pt3dadd(169.099, 117.207, 14.545, 5.728)
pt3dadd(169.057, 117.317, 14.564, 5.602)
pt3dadd(169.014, 117.426, 14.584, 5.474)
pt3dadd(168.972, 117.536, 14.604, 5.348)
pt3dadd(168.929, 117.645, 14.623, 5.222)
pt3dadd(168.886, 117.755, 14.643, 5.094)
pt3dadd(168.844, 117.865, 14.663, 4.968)
pt3dadd(168.8, 117.974, 14.682, 4.842)
pt3dadd(168.761, 118.086, 14.699, 4.72)
}
apic {pt3dclear()
pt3dadd(168.761, 118.086, 14.699, 4.72)
pt3dadd(168.728, 118.201, 14.709, 4.61)
pt3dadd(168.697, 118.316, 14.719, 4.498)
pt3dadd(168.665, 118.431, 14.729, 4.388)
pt3dadd(168.632, 118.545, 14.739, 4.276)
pt3dadd(168.6, 118.66, 14.749, 4.166)
pt3dadd(168.568, 118.775, 14.759, 4.056)
pt3dadd(168.535, 118.89, 14.769, 3.944)
pt3dadd(168.503, 119.005, 14.779, 3.834)
pt3dadd(168.47, 119.12, 14.789, 3.722)
pt3dadd(168.44, 119.236, 14.797, 3.624)
pt3dadd(168.413, 119.353, 14.801, 3.552)
pt3dadd(168.386, 119.469, 14.804, 3.48)
pt3dadd(168.359, 119.586, 14.808, 3.406)
pt3dadd(168.332, 119.703, 14.811, 3.334)
pt3dadd(168.305, 119.82, 14.815, 3.262)
pt3dadd(168.278, 119.937, 14.819, 3.19)
pt3dadd(168.251, 120.054, 14.822, 3.116)
pt3dadd(168.223, 120.17, 14.826, 3.044)
pt3dadd(168.197, 120.287, 14.829, 2.972)
pt3dadd(168.172, 120.404, 14.831, 2.91)
pt3dadd(168.149, 120.522, 14.83, 2.868)
pt3dadd(168.126, 120.64, 14.828, 2.824)
pt3dadd(168.103, 120.758, 14.827, 2.782)
pt3dadd(168.08, 120.876, 14.826, 2.74)
pt3dadd(168.059, 120.994, 14.824, 2.696)
pt3dadd(168.036, 121.111, 14.823, 2.654)
pt3dadd(168.013, 121.229, 14.821, 2.612)
pt3dadd(167.99, 121.348, 14.82, 2.568)
pt3dadd(167.968, 121.465, 14.818, 2.526)
pt3dadd(167.947, 121.583, 14.816, 2.502)
pt3dadd(167.93, 121.702, 14.814, 2.516)
pt3dadd(167.914, 121.82, 14.811, 2.528)
pt3dadd(167.897, 121.939, 14.808, 2.54)
pt3dadd(167.879, 122.058, 14.805, 2.554)
pt3dadd(167.862, 122.177, 14.802, 2.566)
pt3dadd(167.845, 122.296, 14.799, 2.578)
pt3dadd(167.828, 122.414, 14.796, 2.592)
pt3dadd(167.812, 122.533, 14.794, 2.604)
pt3dadd(167.794, 122.652, 14.791, 2.616)
pt3dadd(167.772, 122.77, 14.787, 2.63)
pt3dadd(167.743, 122.886, 14.783, 2.644)
pt3dadd(167.713, 123.001, 14.779, 2.658)
pt3dadd(167.683, 123.118, 14.774, 2.672)
pt3dadd(167.653, 123.234, 14.77, 2.686)
pt3dadd(167.623, 123.35, 14.766, 2.7)
pt3dadd(167.593, 123.466, 14.761, 2.714)
pt3dadd(167.563, 123.582, 14.757, 2.728)
pt3dadd(167.533, 123.698, 14.752, 2.742)
pt3dadd(167.503, 123.815, 14.748, 2.756)
pt3dadd(167.465, 123.928, 14.743, 2.77)
pt3dadd(167.416, 124.037, 14.736, 2.782)
pt3dadd(167.365, 124.145, 14.73, 2.796)
pt3dadd(167.316, 124.254, 14.723, 2.808)
pt3dadd(167.267, 124.363, 14.717, 2.822)
pt3dadd(167.216, 124.472, 14.71, 2.834)
pt3dadd(167.167, 124.582, 14.704, 2.848)
pt3dadd(167.118, 124.691, 14.697, 2.862)
pt3dadd(167.068, 124.799, 14.691, 2.874)
pt3dadd(167.018, 124.908, 14.684, 2.888)
pt3dadd(166.972, 125.018, 14.676, 2.888)
pt3dadd(166.927, 125.129, 14.667, 2.874)
pt3dadd(166.883, 125.24, 14.657, 2.86)
pt3dadd(166.84, 125.351, 14.647, 2.848)
pt3dadd(166.795, 125.462, 14.638, 2.834)
pt3dadd(166.751, 125.573, 14.628, 2.82)
pt3dadd(166.708, 125.684, 14.618, 2.806)
pt3dadd(166.663, 125.796, 14.609, 2.792)
pt3dadd(166.619, 125.906, 14.599, 2.778)
pt3dadd(166.574, 126.018, 14.589, 2.764)
pt3dadd(166.532, 126.128, 14.579, 2.744)
pt3dadd(166.49, 126.241, 14.568, 2.718)
pt3dadd(166.45, 126.353, 14.557, 2.69)
pt3dadd(166.408, 126.464, 14.545, 2.664)
pt3dadd(166.367, 126.576, 14.534, 2.636)
pt3dadd(166.326, 126.688, 14.523, 2.61)
pt3dadd(166.284, 126.8, 14.512, 2.582)
pt3dadd(166.243, 126.912, 14.501, 2.556)
pt3dadd(166.201, 127.024, 14.49, 2.528)
pt3dadd(166.16, 127.135, 14.479, 2.5)
pt3dadd(166.121, 127.244, 14.456, 2.508)
pt3dadd(166.085, 127.35, 14.42, 2.56)
pt3dadd(166.048, 127.457, 14.384, 2.612)
pt3dadd(166.012, 127.562, 14.348, 2.662)
pt3dadd(165.974, 127.668, 14.312, 2.714)
pt3dadd(165.938, 127.774, 14.276, 2.766)
}
apic[1] {pt3dclear()
pt3dadd(165.938, 127.774, 14.276, 2.766)
pt3dadd(165.908, 127.859, 14.246, 2.806)
pt3dadd(165.872, 127.966, 14.21, 2.858)
pt3dadd(165.835, 128.071, 14.174, 2.91)
pt3dadd(165.799, 128.177, 14.138, 2.96)
pt3dadd(165.762, 128.282, 14.102, 3.012)
pt3dadd(165.726, 128.388, 14.066, 3.064)
pt3dadd(165.689, 128.494, 14.03, 3.114)
pt3dadd(165.653, 128.599, 13.994, 3.166)
pt3dadd(165.616, 128.706, 13.958, 3.216)
pt3dadd(165.58, 128.812, 13.922, 3.268)
pt3dadd(165.527, 128.914, 13.895, 3.242)
pt3dadd(165.469, 129.014, 13.869, 3.196)
pt3dadd(165.412, 129.115, 13.844, 3.15)
pt3dadd(165.354, 129.216, 13.819, 3.104)
pt3dadd(165.296, 129.317, 13.794, 3.058)
pt3dadd(165.239, 129.419, 13.769, 3.012)
pt3dadd(165.182, 129.52, 13.744, 2.966)
pt3dadd(165.125, 129.62, 13.719, 2.92)
pt3dadd(165.067, 129.721, 13.694, 2.874)
pt3dadd(165.01, 129.822, 13.668, 2.83)
pt3dadd(164.948, 129.922, 13.646, 2.76)
pt3dadd(164.885, 130.02, 13.624, 2.688)
pt3dadd(164.822, 130.12, 13.602, 2.616)
pt3dadd(164.76, 130.218, 13.581, 2.542)
pt3dadd(164.698, 130.318, 13.559, 2.47)
pt3dadd(164.635, 130.416, 13.537, 2.398)
pt3dadd(164.572, 130.516, 13.515, 2.326)
pt3dadd(164.509, 130.614, 13.493, 2.252)
pt3dadd(164.447, 130.714, 13.471, 2.18)
pt3dadd(164.384, 130.812, 13.45, 2.108)
pt3dadd(164.309, 130.903, 13.437, 2.092)
pt3dadd(164.232, 130.994, 13.425, 2.086)
pt3dadd(164.154, 131.086, 13.413, 2.08)
pt3dadd(164.077, 131.176, 13.401, 2.074)
pt3dadd(163.999, 131.267, 13.389, 2.066)
pt3dadd(163.922, 131.357, 13.378, 2.06)
pt3dadd(163.846, 131.448, 13.366, 2.054)
pt3dadd(163.768, 131.538, 13.354, 2.048)
pt3dadd(163.691, 131.629, 13.342, 2.042)
pt3dadd(163.613, 131.72, 13.331, 2.034)
pt3dadd(163.535, 131.809, 13.32, 2.034)
pt3dadd(163.456, 131.899, 13.309, 2.034)
pt3dadd(163.378, 131.989, 13.298, 2.034)
pt3dadd(163.298, 132.079, 13.288, 2.034)
pt3dadd(163.22, 132.168, 13.277, 2.034)
pt3dadd(163.141, 132.258, 13.266, 2.034)
pt3dadd(163.062, 132.348, 13.255, 2.034)
pt3dadd(162.984, 132.438, 13.245, 2.034)
pt3dadd(162.905, 132.527, 13.234, 2.034)
pt3dadd(162.827, 132.617, 13.223, 2.034)
pt3dadd(162.744, 132.703, 13.216, 2.034)
pt3dadd(162.66, 132.79, 13.21, 2.034)
pt3dadd(162.577, 132.876, 13.204, 2.034)
pt3dadd(162.494, 132.961, 13.198, 2.034)
}
}
proc shape3d_2() {
apic[1] { pt3dadd(162.41, 133.048, 13.192, 2.034)
pt3dadd(162.328, 133.134, 13.186, 2.034)
pt3dadd(162.244, 133.22, 13.18, 2.034)
pt3dadd(162.161, 133.306, 13.174, 2.034)
pt3dadd(162.077, 133.392, 13.168, 2.034)
pt3dadd(161.994, 133.478, 13.162, 2.034)
pt3dadd(161.91, 133.564, 13.156, 2.034)
pt3dadd(161.826, 133.649, 13.151, 2.034)
pt3dadd(161.742, 133.735, 13.145, 2.034)
pt3dadd(161.659, 133.82, 13.14, 2.034)
pt3dadd(161.575, 133.906, 13.135, 2.034)
pt3dadd(161.491, 133.992, 13.129, 2.034)
pt3dadd(161.407, 134.077, 13.124, 2.034)
pt3dadd(161.323, 134.162, 13.118, 2.034)
pt3dadd(161.239, 134.248, 13.113, 2.034)
pt3dadd(161.155, 134.334, 13.107, 2.034)
pt3dadd(161.072, 134.42, 13.099, 2.06)
pt3dadd(160.99, 134.507, 13.09, 2.09)
pt3dadd(160.907, 134.592, 13.081, 2.12)
pt3dadd(160.824, 134.678, 13.072, 2.15)
pt3dadd(160.741, 134.765, 13.063, 2.18)
pt3dadd(160.658, 134.851, 13.054, 2.208)
pt3dadd(160.577, 134.938, 13.046, 2.238)
pt3dadd(160.494, 135.024, 13.037, 2.268)
pt3dadd(160.411, 135.11, 13.028, 2.298)
pt3dadd(160.328, 135.197, 13.019, 2.328)
pt3dadd(160.246, 135.283, 13.01, 2.362)
pt3dadd(160.163, 135.37, 13, 2.398)
pt3dadd(160.08, 135.456, 12.99, 2.432)
pt3dadd(159.998, 135.542, 12.981, 2.468)
pt3dadd(159.916, 135.628, 12.971, 2.504)
pt3dadd(159.833, 135.714, 12.962, 2.538)
pt3dadd(159.75, 135.8, 12.952, 2.574)
pt3dadd(159.667, 135.887, 12.943, 2.61)
pt3dadd(159.584, 135.973, 12.933, 2.644)
pt3dadd(159.503, 136.06, 12.924, 2.68)
pt3dadd(159.431, 136.142, 12.884, 2.7)
pt3dadd(159.36, 136.224, 12.841, 2.718)
pt3dadd(159.289, 136.307, 12.798, 2.736)
pt3dadd(159.218, 136.39, 12.755, 2.754)
pt3dadd(159.149, 136.471, 12.712, 2.772)
pt3dadd(159.078, 136.554, 12.67, 2.79)
pt3dadd(159.007, 136.636, 12.627, 2.808)
pt3dadd(158.936, 136.718, 12.583, 2.826)
pt3dadd(158.866, 136.8, 12.54, 2.844)
pt3dadd(158.796, 136.883, 12.498, 2.862)
pt3dadd(158.725, 136.969, 12.462, 2.87)
pt3dadd(158.653, 137.057, 12.427, 2.878)
pt3dadd(158.582, 137.144, 12.393, 2.886)
pt3dadd(158.512, 137.231, 12.358, 2.892)
pt3dadd(158.441, 137.318, 12.323, 2.9)
pt3dadd(158.37, 137.406, 12.288, 2.908)
pt3dadd(158.299, 137.494, 12.253, 2.916)
pt3dadd(158.227, 137.58, 12.219, 2.922)
pt3dadd(158.156, 137.668, 12.184, 2.93)
pt3dadd(158.086, 137.755, 12.149, 2.938)
pt3dadd(158.014, 137.846, 12.123, 2.938)
pt3dadd(157.943, 137.938, 12.098, 2.938)
pt3dadd(157.871, 138.029, 12.073, 2.938)
pt3dadd(157.799, 138.12, 12.047, 2.938)
pt3dadd(157.727, 138.211, 12.022, 2.938)
pt3dadd(157.655, 138.302, 11.997, 2.938)
pt3dadd(157.583, 138.394, 11.971, 2.938)
pt3dadd(157.512, 138.485, 11.946, 2.938)
pt3dadd(157.44, 138.576, 11.921, 2.938)
pt3dadd(157.368, 138.667, 11.895, 2.938)
}
apic[2] {pt3dclear()
pt3dadd(157.368, 138.667, 11.895, 2.938)
pt3dadd(157.326, 138.764, 11.885, 2.912)
pt3dadd(157.279, 138.874, 11.872, 2.882)
pt3dadd(157.231, 138.983, 11.86, 2.852)
pt3dadd(157.184, 139.092, 11.848, 2.822)
pt3dadd(157.136, 139.202, 11.836, 2.792)
pt3dadd(157.09, 139.312, 11.824, 2.762)
pt3dadd(157.043, 139.421, 11.812, 2.732)
pt3dadd(156.995, 139.53, 11.8, 2.702)
pt3dadd(156.948, 139.639, 11.788, 2.674)
pt3dadd(156.901, 139.748, 11.775, 2.644)
pt3dadd(156.848, 139.856, 11.768, 2.626)
pt3dadd(156.796, 139.963, 11.761, 2.612)
pt3dadd(156.743, 140.071, 11.754, 2.596)
pt3dadd(156.69, 140.178, 11.747, 2.58)
pt3dadd(156.637, 140.286, 11.74, 2.564)
pt3dadd(156.584, 140.394, 11.733, 2.548)
pt3dadd(156.532, 140.501, 11.726, 2.534)
pt3dadd(156.479, 140.609, 11.719, 2.518)
pt3dadd(156.426, 140.716, 11.713, 2.502)
pt3dadd(156.374, 140.824, 11.706, 2.486)
pt3dadd(156.316, 140.928, 11.704, 2.486)
pt3dadd(156.257, 141.034, 11.703, 2.486)
pt3dadd(156.199, 141.138, 11.702, 2.486)
pt3dadd(156.14, 141.242, 11.7, 2.486)
pt3dadd(156.082, 141.348, 11.699, 2.486)
pt3dadd(156.023, 141.452, 11.698, 2.486)
pt3dadd(155.965, 141.557, 11.696, 2.486)
pt3dadd(155.906, 141.662, 11.695, 2.486)
pt3dadd(155.848, 141.767, 11.694, 2.486)
pt3dadd(155.79, 141.871, 11.693, 2.486)
pt3dadd(155.744, 141.983, 11.69, 2.466)
pt3dadd(155.699, 142.093, 11.688, 2.446)
pt3dadd(155.654, 142.205, 11.685, 2.426)
pt3dadd(155.61, 142.316, 11.683, 2.406)
pt3dadd(155.564, 142.427, 11.681, 2.386)
pt3dadd(155.52, 142.538, 11.678, 2.366)
pt3dadd(155.474, 142.65, 11.676, 2.346)
pt3dadd(155.43, 142.762, 11.673, 2.326)
pt3dadd(155.384, 142.872, 11.671, 2.304)
pt3dadd(155.34, 142.984, 11.668, 2.284)
}
apic[3] {pt3dclear()
pt3dadd(155.34, 142.984, 11.668, 2.284)
pt3dadd(155.304, 143.089, 11.665, 2.26)
pt3dadd(155.266, 143.203, 11.662, 2.234)
pt3dadd(155.226, 143.317, 11.659, 2.206)
pt3dadd(155.188, 143.43, 11.655, 2.18)
pt3dadd(155.149, 143.544, 11.652, 2.154)
pt3dadd(155.11, 143.657, 11.649, 2.126)
pt3dadd(155.071, 143.771, 11.645, 2.1)
pt3dadd(155.033, 143.884, 11.642, 2.074)
pt3dadd(154.993, 143.998, 11.639, 2.046)
pt3dadd(154.955, 144.112, 11.635, 2.02)
pt3dadd(154.921, 144.226, 11.628, 2.004)
pt3dadd(154.889, 144.341, 11.621, 1.99)
pt3dadd(154.855, 144.456, 11.613, 1.974)
pt3dadd(154.822, 144.571, 11.606, 1.96)
pt3dadd(154.789, 144.686, 11.599, 1.944)
pt3dadd(154.756, 144.802, 11.591, 1.93)
pt3dadd(154.723, 144.916, 11.584, 1.914)
pt3dadd(154.69, 145.031, 11.576, 1.9)
pt3dadd(154.656, 145.146, 11.569, 1.884)
pt3dadd(154.624, 145.261, 11.561, 1.87)
pt3dadd(154.576, 145.37, 11.552, 1.856)
pt3dadd(154.528, 145.48, 11.542, 1.84)
pt3dadd(154.478, 145.589, 11.531, 1.826)
pt3dadd(154.43, 145.698, 11.521, 1.812)
pt3dadd(154.381, 145.807, 11.511, 1.796)
pt3dadd(154.333, 145.915, 11.501, 1.782)
pt3dadd(154.284, 146.024, 11.491, 1.768)
pt3dadd(154.236, 146.134, 11.481, 1.754)
pt3dadd(154.187, 146.243, 11.471, 1.738)
pt3dadd(154.139, 146.352, 11.461, 1.724)
pt3dadd(154.08, 146.456, 11.45, 1.71)
pt3dadd(154.021, 146.56, 11.438, 1.696)
pt3dadd(153.964, 146.664, 11.426, 1.682)
pt3dadd(153.905, 146.767, 11.414, 1.668)
pt3dadd(153.846, 146.872, 11.403, 1.652)
pt3dadd(153.787, 146.975, 11.391, 1.638)
pt3dadd(153.728, 147.079, 11.379, 1.624)
pt3dadd(153.671, 147.182, 11.367, 1.61)
pt3dadd(153.612, 147.287, 11.356, 1.596)
pt3dadd(153.553, 147.39, 11.344, 1.582)
}
apic[4] {pt3dclear()
pt3dadd(153.553, 147.39, 11.344, 1.582)
pt3dadd(153.548, 147.419, 11.33, 1.57)
pt3dadd(153.534, 147.521, 11.278, 1.532)
pt3dadd(153.518, 147.623, 11.227, 1.492)
pt3dadd(153.503, 147.725, 11.176, 1.452)
pt3dadd(153.488, 147.826, 11.125, 1.414)
pt3dadd(153.473, 147.928, 11.073, 1.374)
pt3dadd(153.457, 148.03, 11.022, 1.334)
pt3dadd(153.443, 148.132, 10.971, 1.296)
pt3dadd(153.427, 148.234, 10.92, 1.256)
pt3dadd(153.413, 148.336, 10.868, 1.218)
pt3dadd(153.397, 148.438, 10.817, 1.178)
pt3dadd(153.382, 148.54, 10.766, 1.138)
pt3dadd(153.367, 148.642, 10.714, 1.098)
pt3dadd(153.352, 148.744, 10.663, 1.06)
pt3dadd(153.336, 148.846, 10.612, 1.02)
pt3dadd(153.322, 148.948, 10.561, 0.98)
pt3dadd(153.306, 149.05, 10.509, 0.942)
pt3dadd(153.292, 149.152, 10.458, 0.902)
pt3dadd(153.313, 149.252, 10.413, 0.864)
pt3dadd(153.355, 149.352, 10.372, 0.828)
pt3dadd(153.398, 149.453, 10.33, 0.794)
pt3dadd(153.442, 149.554, 10.289, 0.758)
pt3dadd(153.485, 149.654, 10.248, 0.722)
pt3dadd(153.528, 149.754, 10.207, 0.686)
pt3dadd(153.571, 149.855, 10.165, 0.65)
pt3dadd(153.614, 149.956, 10.124, 0.614)
pt3dadd(153.659, 150.054, 10.084, 0.58)
pt3dadd(153.756, 150.122, 10.066, 0.558)
pt3dadd(153.852, 150.192, 10.049, 0.538)
pt3dadd(153.948, 150.26, 10.031, 0.516)
pt3dadd(154.044, 150.329, 10.014, 0.496)
pt3dadd(154.141, 150.397, 9.997, 0.476)
pt3dadd(154.237, 150.466, 9.979, 0.454)
pt3dadd(154.333, 150.534, 9.962, 0.434)
pt3dadd(154.429, 150.602, 9.944, 0.412)
pt3dadd(154.526, 150.671, 9.927, 0.392)
pt3dadd(154.622, 150.739, 9.909, 0.372)
pt3dadd(154.721, 150.8, 9.885, 0.374)
pt3dadd(154.819, 150.863, 9.861, 0.376)
pt3dadd(154.919, 150.924, 9.837, 0.378)
pt3dadd(155.017, 150.986, 9.813, 0.38)
pt3dadd(155.116, 151.048, 9.789, 0.382)
pt3dadd(155.215, 151.11, 9.765, 0.384)
pt3dadd(155.314, 151.171, 9.741, 0.386)
pt3dadd(155.412, 151.234, 9.717, 0.388)
pt3dadd(155.512, 151.295, 9.693, 0.39)
pt3dadd(155.61, 151.355, 9.667, 0.4)
pt3dadd(155.712, 151.399, 9.629, 0.456)
pt3dadd(155.813, 151.444, 9.591, 0.51)
pt3dadd(155.915, 151.488, 9.552, 0.566)
pt3dadd(156.017, 151.532, 9.514, 0.62)
}
}
proc shape3d_3() {
apic[4] { pt3dadd(156.118, 151.577, 9.476, 0.676)
pt3dadd(156.22, 151.621, 9.438, 0.73)
pt3dadd(156.322, 151.666, 9.4, 0.786)
pt3dadd(156.422, 151.711, 9.361, 0.84)
pt3dadd(156.524, 151.756, 9.323, 0.896)
pt3dadd(156.626, 151.801, 9.286, 0.944)
pt3dadd(156.728, 151.855, 9.26, 0.956)
pt3dadd(156.83, 151.909, 9.233, 0.966)
pt3dadd(156.932, 151.963, 9.205, 0.976)
pt3dadd(157.034, 152.017, 9.179, 0.988)
pt3dadd(157.136, 152.071, 9.151, 0.998)
pt3dadd(157.238, 152.125, 9.124, 1.008)
pt3dadd(157.34, 152.18, 9.097, 1.02)
pt3dadd(157.442, 152.234, 9.07, 1.03)
pt3dadd(157.544, 152.288, 9.043, 1.04)
pt3dadd(157.646, 152.344, 9.017, 1.046)
pt3dadd(157.748, 152.402, 8.996, 1.034)
pt3dadd(157.849, 152.46, 8.975, 1.022)
pt3dadd(157.951, 152.519, 8.954, 1.01)
pt3dadd(158.053, 152.578, 8.933, 0.998)
pt3dadd(158.154, 152.636, 8.912, 0.986)
pt3dadd(158.256, 152.695, 8.891, 0.974)
pt3dadd(158.358, 152.754, 8.87, 0.96)
pt3dadd(158.459, 152.813, 8.849, 0.948)
pt3dadd(158.561, 152.872, 8.828, 0.936)
pt3dadd(158.664, 152.927, 8.809, 0.924)
pt3dadd(158.776, 152.97, 8.796, 0.91)
pt3dadd(158.886, 153.013, 8.783, 0.898)
pt3dadd(158.996, 153.056, 8.771, 0.884)
pt3dadd(159.108, 153.1, 8.758, 0.87)
pt3dadd(159.218, 153.143, 8.745, 0.858)
pt3dadd(159.33, 153.186, 8.733, 0.844)
pt3dadd(159.44, 153.229, 8.72, 0.83)
pt3dadd(159.552, 153.272, 8.707, 0.816)
pt3dadd(159.662, 153.316, 8.694, 0.804)
pt3dadd(159.774, 153.358, 8.683, 0.79)
pt3dadd(159.886, 153.4, 8.673, 0.776)
pt3dadd(159.998, 153.442, 8.664, 0.764)
pt3dadd(160.11, 153.482, 8.655, 0.75)
pt3dadd(160.222, 153.524, 8.646, 0.736)
pt3dadd(160.334, 153.565, 8.637, 0.722)
pt3dadd(160.446, 153.607, 8.628, 0.708)
pt3dadd(160.558, 153.649, 8.618, 0.696)
pt3dadd(160.67, 153.69, 8.609, 0.682)
pt3dadd(160.782, 153.732, 8.6, 0.668)
pt3dadd(160.894, 153.776, 8.593, 0.654)
pt3dadd(161.002, 153.828, 8.592, 0.642)
pt3dadd(161.108, 153.881, 8.592, 0.628)
pt3dadd(161.216, 153.934, 8.591, 0.616)
pt3dadd(161.324, 153.986, 8.59, 0.602)
pt3dadd(161.432, 154.039, 8.59, 0.59)
pt3dadd(161.54, 154.092, 8.589, 0.576)
pt3dadd(161.648, 154.144, 8.589, 0.564)
pt3dadd(161.756, 154.196, 8.588, 0.55)
pt3dadd(161.864, 154.249, 8.587, 0.538)
pt3dadd(161.974, 154.3, 8.587, 0.526)
pt3dadd(162.086, 154.339, 8.586, 0.526)
pt3dadd(162.199, 154.379, 8.585, 0.524)
pt3dadd(162.313, 154.418, 8.584, 0.522)
pt3dadd(162.426, 154.458, 8.583, 0.522)
pt3dadd(162.539, 154.498, 8.582, 0.52)
pt3dadd(162.653, 154.537, 8.581, 0.518)
pt3dadd(162.766, 154.577, 8.58, 0.518)
pt3dadd(162.878, 154.616, 8.579, 0.516)
pt3dadd(162.992, 154.656, 8.578, 0.514)
pt3dadd(163.106, 154.691, 8.577, 0.518)
pt3dadd(163.225, 154.712, 8.576, 0.532)
pt3dadd(163.343, 154.733, 8.575, 0.546)
pt3dadd(163.46, 154.754, 8.573, 0.562)
pt3dadd(163.579, 154.776, 8.572, 0.576)
pt3dadd(163.697, 154.798, 8.57, 0.59)
pt3dadd(163.816, 154.819, 8.569, 0.604)
pt3dadd(163.933, 154.841, 8.567, 0.618)
pt3dadd(164.051, 154.862, 8.566, 0.634)
pt3dadd(164.17, 154.884, 8.565, 0.648)
pt3dadd(164.288, 154.9, 8.563, 0.65)
pt3dadd(164.408, 154.903, 8.56, 0.626)
pt3dadd(164.527, 154.907, 8.557, 0.602)
pt3dadd(164.647, 154.909, 8.555, 0.58)
pt3dadd(164.767, 154.913, 8.552, 0.556)
pt3dadd(164.887, 154.916, 8.549, 0.532)
pt3dadd(165.007, 154.92, 8.546, 0.508)
pt3dadd(165.127, 154.924, 8.544, 0.486)
pt3dadd(165.247, 154.926, 8.541, 0.462)
pt3dadd(165.367, 154.93, 8.538, 0.438)
pt3dadd(165.487, 154.927, 8.535, 0.422)
pt3dadd(165.606, 154.912, 8.531, 0.416)
pt3dadd(165.725, 154.896, 8.526, 0.41)
pt3dadd(165.844, 154.879, 8.522, 0.406)
pt3dadd(165.962, 154.864, 8.517, 0.4)
pt3dadd(166.081, 154.848, 8.513, 0.394)
pt3dadd(166.2, 154.832, 8.509, 0.39)
pt3dadd(166.319, 154.817, 8.504, 0.384)
pt3dadd(166.438, 154.801, 8.5, 0.38)
pt3dadd(166.556, 154.786, 8.495, 0.374)
pt3dadd(166.67, 154.754, 8.49, 0.394)
pt3dadd(166.782, 154.709, 8.483, 0.436)
pt3dadd(166.892, 154.663, 8.476, 0.48)
pt3dadd(167.003, 154.618, 8.469, 0.522)
pt3dadd(167.113, 154.572, 8.462, 0.566)
pt3dadd(167.224, 154.525, 8.455, 0.608)
pt3dadd(167.334, 154.48, 8.448, 0.652)
pt3dadd(167.446, 154.434, 8.441, 0.694)
pt3dadd(167.556, 154.388, 8.434, 0.736)
pt3dadd(167.666, 154.343, 8.427, 0.78)
pt3dadd(167.779, 154.303, 8.418, 0.8)
pt3dadd(167.893, 154.271, 8.406, 0.798)
pt3dadd(168.008, 154.238, 8.395, 0.796)
pt3dadd(168.124, 154.206, 8.384, 0.796)
pt3dadd(168.238, 154.174, 8.372, 0.794)
pt3dadd(168.353, 154.141, 8.361, 0.792)
pt3dadd(168.467, 154.109, 8.349, 0.79)
pt3dadd(168.582, 154.076, 8.338, 0.788)
pt3dadd(168.697, 154.044, 8.327, 0.786)
pt3dadd(168.811, 154.012, 8.315, 0.784)
pt3dadd(168.925, 153.985, 8.295, 0.786)
pt3dadd(169.039, 153.964, 8.268, 0.788)
pt3dadd(169.152, 153.942, 8.241, 0.79)
pt3dadd(169.266, 153.92, 8.213, 0.794)
pt3dadd(169.379, 153.899, 8.186, 0.796)
pt3dadd(169.493, 153.878, 8.158, 0.798)
pt3dadd(169.606, 153.857, 8.131, 0.8)
pt3dadd(169.72, 153.835, 8.104, 0.804)
pt3dadd(169.832, 153.814, 8.076, 0.806)
pt3dadd(169.946, 153.793, 8.049, 0.808)
pt3dadd(170.052, 153.788, 8.002, 0.828)
pt3dadd(170.154, 153.787, 7.951, 0.854)
pt3dadd(170.257, 153.786, 7.9, 0.88)
pt3dadd(170.36, 153.786, 7.849, 0.904)
pt3dadd(170.464, 153.785, 7.798, 0.93)
pt3dadd(170.567, 153.784, 7.747, 0.956)
pt3dadd(170.67, 153.784, 7.695, 0.98)
pt3dadd(170.773, 153.782, 7.644, 1.006)
pt3dadd(170.876, 153.782, 7.593, 1.03)
pt3dadd(170.98, 153.781, 7.542, 1.056)
pt3dadd(171.091, 153.799, 7.509, 1.026)
pt3dadd(171.203, 153.818, 7.478, 0.99)
pt3dadd(171.316, 153.838, 7.447, 0.954)
pt3dadd(171.428, 153.857, 7.416, 0.918)
pt3dadd(171.541, 153.877, 7.386, 0.882)
pt3dadd(171.653, 153.896, 7.355, 0.846)
pt3dadd(171.766, 153.916, 7.324, 0.81)
pt3dadd(171.878, 153.936, 7.293, 0.774)
pt3dadd(171.99, 153.955, 7.262, 0.738)
pt3dadd(172.103, 153.974, 7.231, 0.702)
pt3dadd(172.211, 154.022, 7.217, 0.684)
pt3dadd(172.319, 154.073, 7.204, 0.668)
pt3dadd(172.427, 154.123, 7.192, 0.654)
pt3dadd(172.535, 154.174, 7.179, 0.638)
pt3dadd(172.643, 154.224, 7.167, 0.622)
pt3dadd(172.751, 154.274, 7.155, 0.606)
pt3dadd(172.859, 154.325, 7.142, 0.59)
pt3dadd(172.967, 154.375, 7.129, 0.574)
pt3dadd(173.075, 154.426, 7.117, 0.558)
pt3dadd(173.183, 154.476, 7.104, 0.542)
pt3dadd(173.292, 154.522, 7.097, 0.548)
pt3dadd(173.402, 154.568, 7.09, 0.554)
pt3dadd(173.513, 154.614, 7.083, 0.562)
pt3dadd(173.623, 154.661, 7.076, 0.57)
pt3dadd(173.734, 154.708, 7.069, 0.576)
pt3dadd(173.844, 154.753, 7.062, 0.584)
pt3dadd(173.954, 154.8, 7.055, 0.59)
pt3dadd(174.065, 154.846, 7.048, 0.598)
pt3dadd(174.175, 154.892, 7.041, 0.606)
pt3dadd(174.286, 154.938, 7.033, 0.612)
pt3dadd(174.4, 154.975, 7.033, 0.652)
pt3dadd(174.515, 155.012, 7.033, 0.694)
pt3dadd(174.629, 155.05, 7.032, 0.736)
pt3dadd(174.743, 155.086, 7.032, 0.776)
pt3dadd(174.857, 155.123, 7.032, 0.818)
pt3dadd(174.971, 155.159, 7.032, 0.86)
pt3dadd(175.086, 155.196, 7.031, 0.902)
pt3dadd(175.2, 155.233, 7.031, 0.942)
pt3dadd(175.314, 155.269, 7.031, 0.984)
pt3dadd(175.428, 155.306, 7.03, 1.026)
pt3dadd(175.544, 155.336, 7.03, 1.026)
pt3dadd(175.661, 155.366, 7.029, 1.026)
pt3dadd(175.777, 155.396, 7.029, 1.026)
pt3dadd(175.894, 155.426, 7.028, 1.026)
pt3dadd(176.009, 155.456, 7.028, 1.026)
pt3dadd(176.125, 155.485, 7.027, 1.026)
pt3dadd(176.242, 155.515, 7.027, 1.024)
pt3dadd(176.358, 155.545, 7.026, 1.024)
pt3dadd(176.474, 155.575, 7.026, 1.024)
pt3dadd(176.591, 155.605, 7.025, 1.024)
pt3dadd(176.706, 155.636, 7.024, 1.022)
pt3dadd(176.822, 155.666, 7.024, 1.02)
pt3dadd(176.939, 155.696, 7.023, 1.02)
pt3dadd(177.054, 155.728, 7.022, 1.018)
pt3dadd(177.17, 155.758, 7.021, 1.016)
pt3dadd(177.287, 155.789, 7.021, 1.014)
pt3dadd(177.403, 155.819, 7.02, 1.012)
pt3dadd(177.518, 155.85, 7.019, 1.012)
pt3dadd(177.635, 155.88, 7.018, 1.01)
pt3dadd(177.751, 155.911, 7.018, 1.008)
pt3dadd(177.862, 155.957, 7.016, 1.074)
pt3dadd(177.972, 156.004, 7.015, 1.142)
pt3dadd(178.082, 156.05, 7.014, 1.21)
pt3dadd(178.193, 156.097, 7.012, 1.278)
pt3dadd(178.303, 156.144, 7.011, 1.344)
}
}
proc shape3d_4() {
apic[4] { pt3dadd(178.414, 156.191, 7.01, 1.412)
pt3dadd(178.524, 156.238, 7.009, 1.48)
pt3dadd(178.636, 156.284, 7.007, 1.548)
pt3dadd(178.746, 156.331, 7.006, 1.614)
pt3dadd(178.856, 156.378, 7.004, 1.682)
pt3dadd(178.969, 156.418, 7.003, 1.664)
pt3dadd(179.082, 156.457, 7, 1.644)
pt3dadd(179.195, 156.498, 6.998, 1.624)
pt3dadd(179.309, 156.538, 6.996, 1.604)
pt3dadd(179.422, 156.578, 6.994, 1.584)
pt3dadd(179.534, 156.618, 6.992, 1.564)
pt3dadd(179.647, 156.659, 6.99, 1.544)
pt3dadd(179.761, 156.698, 6.988, 1.524)
pt3dadd(179.874, 156.739, 6.986, 1.504)
pt3dadd(179.987, 156.779, 6.984, 1.484)
pt3dadd(180.102, 156.811, 6.981, 1.37)
pt3dadd(180.217, 156.845, 6.978, 1.256)
pt3dadd(180.332, 156.877, 6.975, 1.142)
pt3dadd(180.448, 156.911, 6.973, 1.028)
pt3dadd(180.563, 156.943, 6.97, 0.914)
pt3dadd(180.679, 156.977, 6.967, 0.798)
pt3dadd(180.794, 157.009, 6.964, 0.684)
pt3dadd(180.91, 157.043, 6.961, 0.57)
pt3dadd(181.025, 157.075, 6.958, 0.456)
pt3dadd(181.14, 157.109, 6.956, 0.342)
}
apic[5] {pt3dclear()
pt3dadd(181.14, 157.109, 6.956, 0.342)
pt3dadd(181.256, 157.085, 6.908, 0.33)
pt3dadd(181.375, 157.086, 6.881, 0.32)
pt3dadd(181.495, 157.087, 6.853, 0.308)
pt3dadd(181.614, 157.087, 6.825, 0.296)
pt3dadd(181.616, 157.063, 6.805, 0.296)
pt3dadd(181.738, 157.066, 6.777, 0.284)
pt3dadd(181.858, 157.067, 6.75, 0.272)
pt3dadd(181.976, 157.067, 6.722, 0.262)
pt3dadd(182.096, 157.068, 6.695, 0.25)
pt3dadd(182.216, 157.069, 6.667, 0.238)
pt3dadd(182.335, 157.07, 6.64, 0.226)
pt3dadd(182.455, 157.068, 6.61, 0.232)
pt3dadd(182.575, 157.064, 6.58, 0.238)
pt3dadd(182.695, 157.063, 6.549, 0.246)
pt3dadd(182.815, 157.061, 6.519, 0.252)
pt3dadd(182.935, 157.057, 6.489, 0.258)
pt3dadd(183.055, 157.055, 6.458, 0.266)
pt3dadd(183.175, 157.054, 6.428, 0.272)
pt3dadd(183.295, 157.05, 6.398, 0.278)
pt3dadd(183.299, 157.026, 6.377, 0.278)
pt3dadd(183.419, 157.024, 6.347, 0.286)
pt3dadd(183.539, 157.021, 6.317, 0.292)
pt3dadd(183.659, 157.015, 6.283, 0.308)
pt3dadd(183.779, 157.009, 6.25, 0.324)
pt3dadd(183.899, 157.002, 6.216, 0.34)
pt3dadd(184.019, 156.997, 6.183, 0.356)
pt3dadd(184.139, 156.99, 6.149, 0.372)
pt3dadd(184.259, 156.984, 6.116, 0.388)
pt3dadd(184.379, 156.978, 6.082, 0.404)
pt3dadd(184.499, 156.972, 6.048, 0.42)
pt3dadd(184.619, 156.966, 6.015, 0.436)
pt3dadd(184.739, 156.959, 5.981, 0.45)
pt3dadd(184.742, 156.935, 5.961, 0.45)
pt3dadd(184.832, 156.972, 5.894, 0.436)
pt3dadd(184.92, 157.009, 5.825, 0.418)
pt3dadd(185.009, 157.048, 5.757, 0.4)
pt3dadd(185.096, 157.085, 5.689, 0.384)
pt3dadd(185.184, 157.123, 5.62, 0.366)
pt3dadd(185.273, 157.16, 5.552, 0.348)
pt3dadd(185.36, 157.198, 5.484, 0.332)
pt3dadd(185.448, 157.236, 5.415, 0.314)
pt3dadd(185.537, 157.274, 5.347, 0.298)
pt3dadd(185.624, 157.312, 5.279, 0.28)
pt3dadd(185.728, 157.338, 5.223, 0.274)
pt3dadd(185.83, 157.364, 5.167, 0.268)
pt3dadd(185.933, 157.392, 5.111, 0.264)
pt3dadd(186.037, 157.418, 5.056, 0.258)
pt3dadd(186.14, 157.445, 5, 0.252)
pt3dadd(186.242, 157.471, 4.944, 0.248)
pt3dadd(186.346, 157.499, 4.889, 0.242)
pt3dadd(186.449, 157.524, 4.833, 0.236)
pt3dadd(186.552, 157.55, 4.777, 0.232)
pt3dadd(186.655, 157.577, 4.722, 0.228)
pt3dadd(186.767, 157.592, 4.679, 0.256)
pt3dadd(186.88, 157.609, 4.635, 0.284)
pt3dadd(186.991, 157.625, 4.591, 0.31)
pt3dadd(187.104, 157.64, 4.548, 0.338)
pt3dadd(187.216, 157.656, 4.504, 0.366)
pt3dadd(187.218, 157.633, 4.484, 0.366)
pt3dadd(187.332, 157.649, 4.44, 0.394)
pt3dadd(187.444, 157.664, 4.396, 0.422)
pt3dadd(187.556, 157.68, 4.353, 0.45)
pt3dadd(187.668, 157.697, 4.309, 0.478)
pt3dadd(187.781, 157.712, 4.266, 0.512)
pt3dadd(187.898, 157.717, 4.234, 0.59)
pt3dadd(188.017, 157.723, 4.201, 0.668)
pt3dadd(188.135, 157.73, 4.168, 0.746)
pt3dadd(188.252, 157.735, 4.136, 0.824)
pt3dadd(188.37, 157.741, 4.103, 0.902)
pt3dadd(188.488, 157.747, 4.071, 0.98)
pt3dadd(188.605, 157.754, 4.038, 1.058)
pt3dadd(188.723, 157.759, 4.005, 1.138)
pt3dadd(188.842, 157.765, 3.973, 1.216)
pt3dadd(188.959, 157.772, 3.941, 1.286)
pt3dadd(189.074, 157.793, 3.919, 1.292)
pt3dadd(189.188, 157.813, 3.898, 1.3)
pt3dadd(189.302, 157.832, 3.876, 1.306)
pt3dadd(189.416, 157.852, 3.854, 1.314)
pt3dadd(189.53, 157.873, 3.832, 1.322)
pt3dadd(189.644, 157.892, 3.81, 1.328)
pt3dadd(189.758, 157.913, 3.789, 1.336)
pt3dadd(189.874, 157.932, 3.767, 1.342)
pt3dadd(189.988, 157.952, 3.745, 1.35)
pt3dadd(190.102, 157.972, 3.724, 1.354)
pt3dadd(190.217, 157.99, 3.703, 1.346)
pt3dadd(190.332, 158.008, 3.682, 1.336)
pt3dadd(190.447, 158.026, 3.661, 1.326)
pt3dadd(190.562, 158.044, 3.641, 1.318)
pt3dadd(190.678, 158.06, 3.62, 1.308)
pt3dadd(190.68, 158.036, 3.599, 1.308)
pt3dadd(190.795, 158.056, 3.579, 1.298)
pt3dadd(190.91, 158.072, 3.558, 1.29)
pt3dadd(191.026, 158.09, 3.537, 1.28)
pt3dadd(191.141, 158.107, 3.516, 1.27)
pt3dadd(191.256, 158.125, 3.496, 1.256)
pt3dadd(191.375, 158.13, 3.475, 1.214)
pt3dadd(191.494, 158.136, 3.454, 1.172)
pt3dadd(191.612, 158.141, 3.433, 1.13)
pt3dadd(191.731, 158.148, 3.412, 1.088)
pt3dadd(191.849, 158.153, 3.392, 1.046)
pt3dadd(191.969, 158.159, 3.371, 1.004)
pt3dadd(192.088, 158.165, 3.35, 0.962)
pt3dadd(192.206, 158.17, 3.329, 0.92)
pt3dadd(192.325, 158.177, 3.308, 0.878)
pt3dadd(192.444, 158.18, 3.287, 0.84)
pt3dadd(192.565, 158.178, 3.266, 0.824)
pt3dadd(192.685, 158.174, 3.245, 0.808)
pt3dadd(192.806, 158.172, 3.224, 0.79)
pt3dadd(192.926, 158.168, 3.203, 0.774)
pt3dadd(193.048, 158.166, 3.182, 0.758)
pt3dadd(193.168, 158.162, 3.161, 0.742)
pt3dadd(193.289, 158.16, 3.14, 0.724)
pt3dadd(193.409, 158.156, 3.119, 0.708)
pt3dadd(193.531, 158.153, 3.098, 0.692)
pt3dadd(193.651, 158.149, 3.077, 0.678)
pt3dadd(193.774, 158.141, 3.056, 0.676)
pt3dadd(193.895, 158.131, 3.034, 0.676)
pt3dadd(194.016, 158.122, 3.013, 0.676)
pt3dadd(194.138, 158.112, 2.992, 0.674)
pt3dadd(194.26, 158.104, 2.971, 0.674)
pt3dadd(194.381, 158.095, 2.95, 0.672)
pt3dadd(194.502, 158.086, 2.928, 0.672)
pt3dadd(194.624, 158.076, 2.907, 0.67)
pt3dadd(194.746, 158.068, 2.886, 0.67)
pt3dadd(194.867, 158.056, 2.865, 0.664)
pt3dadd(194.989, 158.035, 2.843, 0.636)
pt3dadd(195.112, 158.015, 2.821, 0.606)
pt3dadd(195.235, 157.996, 2.799, 0.578)
pt3dadd(195.358, 157.975, 2.777, 0.548)
pt3dadd(195.48, 157.955, 2.755, 0.52)
pt3dadd(195.602, 157.934, 2.733, 0.49)
pt3dadd(195.725, 157.915, 2.711, 0.462)
pt3dadd(195.847, 157.895, 2.689, 0.434)
pt3dadd(195.97, 157.874, 2.667, 0.404)
pt3dadd(196.092, 157.854, 2.645, 0.378)
pt3dadd(196.214, 157.837, 2.623, 0.37)
pt3dadd(196.336, 157.818, 2.6, 0.362)
pt3dadd(196.458, 157.8, 2.578, 0.352)
pt3dadd(196.58, 157.782, 2.555, 0.344)
pt3dadd(196.703, 157.765, 2.532, 0.336)
pt3dadd(196.826, 157.747, 2.51, 0.326)
pt3dadd(196.949, 157.728, 2.487, 0.318)
pt3dadd(197.071, 157.71, 2.465, 0.31)
pt3dadd(197.192, 157.693, 2.442, 0.3)
pt3dadd(197.195, 157.669, 2.421, 0.3)
pt3dadd(197.317, 157.651, 2.399, 0.296)
pt3dadd(197.44, 157.636, 2.375, 0.31)
pt3dadd(197.562, 157.621, 2.352, 0.324)
pt3dadd(197.683, 157.606, 2.329, 0.34)
pt3dadd(197.806, 157.59, 2.305, 0.354)
pt3dadd(197.928, 157.574, 2.282, 0.368)
pt3dadd(198.05, 157.56, 2.259, 0.382)
pt3dadd(198.172, 157.544, 2.235, 0.398)
pt3dadd(198.294, 157.529, 2.212, 0.412)
pt3dadd(198.418, 157.513, 2.189, 0.426)
pt3dadd(198.539, 157.499, 2.165, 0.436)
pt3dadd(198.661, 157.489, 2.138, 0.424)
pt3dadd(198.782, 157.478, 2.111, 0.412)
pt3dadd(198.904, 157.468, 2.084, 0.402)
pt3dadd(199.025, 157.457, 2.057, 0.39)
pt3dadd(199.146, 157.447, 2.03, 0.378)
pt3dadd(199.267, 157.436, 2.003, 0.366)
pt3dadd(199.39, 157.427, 1.976, 0.356)
pt3dadd(199.511, 157.416, 1.949, 0.344)
pt3dadd(199.632, 157.406, 1.922, 0.332)
pt3dadd(199.753, 157.397, 1.895, 0.322)
pt3dadd(199.873, 157.397, 1.866, 0.322)
pt3dadd(199.993, 157.397, 1.838, 0.32)
pt3dadd(200.113, 157.398, 1.809, 0.32)
pt3dadd(200.232, 157.398, 1.781, 0.318)
pt3dadd(200.352, 157.399, 1.752, 0.318)
pt3dadd(200.472, 157.399, 1.723, 0.318)
pt3dadd(200.591, 157.4, 1.695, 0.316)
pt3dadd(200.711, 157.4, 1.666, 0.316)
}
}
proc shape3d_5() {
apic[5] { pt3dadd(200.831, 157.4, 1.638, 0.314)
pt3dadd(200.948, 157.405, 1.609, 0.32)
pt3dadd(201.061, 157.427, 1.578, 0.346)
pt3dadd(201.174, 157.447, 1.547, 0.374)
pt3dadd(201.288, 157.469, 1.516, 0.4)
pt3dadd(201.401, 157.489, 1.485, 0.428)
pt3dadd(201.515, 157.511, 1.454, 0.454)
pt3dadd(201.628, 157.531, 1.423, 0.48)
pt3dadd(201.742, 157.552, 1.392, 0.508)
pt3dadd(201.854, 157.573, 1.361, 0.534)
pt3dadd(201.967, 157.595, 1.33, 0.562)
pt3dadd(202.08, 157.613, 1.295, 0.58)
pt3dadd(202.193, 157.622, 1.247, 0.572)
pt3dadd(202.307, 157.632, 1.2, 0.566)
pt3dadd(202.42, 157.643, 1.152, 0.558)
pt3dadd(202.532, 157.652, 1.105, 0.55)
pt3dadd(202.645, 157.662, 1.057, 0.542)
pt3dadd(202.648, 157.638, 1.037, 0.542)
pt3dadd(202.76, 157.649, 0.989, 0.536)
pt3dadd(202.873, 157.658, 0.942, 0.528)
pt3dadd(202.987, 157.668, 0.894, 0.52)
pt3dadd(203.1, 157.678, 0.847, 0.514)
pt3dadd(203.213, 157.687, 0.796, 0.5)
pt3dadd(203.323, 157.69, 0.74, 0.474)
pt3dadd(203.435, 157.693, 0.683, 0.446)
pt3dadd(203.546, 157.696, 0.627, 0.42)
pt3dadd(203.657, 157.7, 0.57, 0.394)
pt3dadd(203.768, 157.704, 0.514, 0.368)
pt3dadd(203.879, 157.706, 0.458, 0.34)
pt3dadd(203.99, 157.71, 0.401, 0.314)
pt3dadd(204.102, 157.714, 0.345, 0.288)
pt3dadd(204.212, 157.717, 0.288, 0.262)
pt3dadd(204.326, 157.716, 0.236, 0.244)
pt3dadd(204.445, 157.706, 0.192, 0.242)
pt3dadd(204.564, 157.697, 0.148, 0.24)
pt3dadd(204.682, 157.687, 0.105, 0.238)
pt3dadd(204.8, 157.678, 0.061, 0.236)
pt3dadd(204.918, 157.668, 0.017, 0.234)
pt3dadd(205.037, 157.658, -0.027, 0.232)
pt3dadd(205.154, 157.65, -0.071, 0.23)
pt3dadd(205.273, 157.64, -0.115, 0.228)
pt3dadd(205.391, 157.63, -0.159, 0.228)
pt3dadd(205.51, 157.619, -0.201, 0.23)
pt3dadd(205.631, 157.604, -0.239, 0.24)
pt3dadd(205.751, 157.589, -0.276, 0.252)
pt3dadd(205.871, 157.573, -0.314, 0.262)
pt3dadd(205.991, 157.558, -0.352, 0.274)
pt3dadd(206.113, 157.543, -0.389, 0.284)
pt3dadd(206.233, 157.528, -0.427, 0.294)
pt3dadd(206.353, 157.512, -0.465, 0.306)
pt3dadd(206.474, 157.496, -0.503, 0.316)
pt3dadd(206.594, 157.483, -0.54, 0.328)
pt3dadd(206.716, 157.464, -0.574, 0.346)
pt3dadd(206.837, 157.44, -0.602, 0.376)
pt3dadd(206.959, 157.416, -0.63, 0.406)
pt3dadd(207.082, 157.393, -0.658, 0.438)
pt3dadd(207.203, 157.369, -0.686, 0.468)
pt3dadd(207.325, 157.345, -0.714, 0.498)
pt3dadd(207.448, 157.321, -0.742, 0.528)
pt3dadd(207.57, 157.298, -0.77, 0.558)
pt3dadd(207.692, 157.274, -0.798, 0.588)
pt3dadd(207.815, 157.25, -0.826, 0.62)
pt3dadd(207.937, 157.226, -0.848, 0.64)
pt3dadd(208.058, 157.204, -0.859, 0.644)
pt3dadd(208.181, 157.18, -0.87, 0.648)
pt3dadd(208.302, 157.156, -0.881, 0.652)
pt3dadd(208.304, 157.132, -0.902, 0.652)
pt3dadd(208.307, 157.109, -0.922, 0.652)
pt3dadd(208.429, 157.085, -0.933, 0.656)
pt3dadd(208.552, 157.061, -0.944, 0.66)
pt3dadd(208.673, 157.037, -0.956, 0.664)
pt3dadd(208.795, 157.014, -0.967, 0.668)
pt3dadd(208.916, 156.99, -0.978, 0.672)
pt3dadd(209.039, 156.966, -0.989, 0.676)
pt3dadd(209.161, 156.942, -0.998, 0.678)
pt3dadd(209.282, 156.919, -1.003, 0.678)
pt3dadd(209.404, 156.895, -1.008, 0.678)
pt3dadd(209.524, 156.871, -1.013, 0.678)
pt3dadd(209.645, 156.847, -1.019, 0.678)
pt3dadd(209.766, 156.824, -1.024, 0.678)
pt3dadd(209.887, 156.8, -1.029, 0.678)
pt3dadd(210.008, 156.776, -1.034, 0.678)
pt3dadd(210.13, 156.752, -1.04, 0.678)
pt3dadd(210.25, 156.728, -1.045, 0.678)
pt3dadd(210.368, 156.706, -1.041, 0.674)
pt3dadd(210.481, 156.682, -1.024, 0.664)
pt3dadd(210.595, 156.658, -1.007, 0.654)
pt3dadd(210.71, 156.634, -0.99, 0.644)
pt3dadd(210.824, 156.611, -0.973, 0.636)
pt3dadd(210.937, 156.587, -0.957, 0.626)
pt3dadd(211.051, 156.563, -0.94, 0.616)
pt3dadd(211.165, 156.539, -0.923, 0.606)
pt3dadd(211.278, 156.516, -0.906, 0.596)
pt3dadd(211.392, 156.492, -0.889, 0.586)
pt3dadd(211.462, 156.468, -0.826, 0.55)
pt3dadd(211.53, 156.444, -0.764, 0.514)
pt3dadd(211.6, 156.421, -0.701, 0.478)
pt3dadd(211.668, 156.397, -0.638, 0.442)
pt3dadd(211.738, 156.373, -0.576, 0.406)
pt3dadd(211.806, 156.349, -0.513, 0.37)
pt3dadd(211.876, 156.326, -0.45, 0.334)
pt3dadd(211.945, 156.302, -0.388, 0.298)
pt3dadd(212.015, 156.278, -0.325, 0.262)
pt3dadd(212.083, 156.254, -0.263, 0.226)
pt3dadd(212.198, 156.274, -0.283, 1.102)
pt3dadd(212.314, 156.29, -0.304, 1.074)
pt3dadd(212.428, 156.308, -0.324, 1.048)
pt3dadd(212.543, 156.326, -0.345, 1.02)
pt3dadd(212.658, 156.344, -0.365, 0.992)
pt3dadd(212.776, 156.352, -0.386, 0.976)
pt3dadd(212.896, 156.35, -0.407, 0.972)
pt3dadd(213.017, 156.348, -0.427, 0.968)
pt3dadd(213.137, 156.348, -0.448, 0.964)
pt3dadd(213.257, 156.346, -0.468, 0.96)
pt3dadd(213.379, 156.344, -0.489, 0.956)
pt3dadd(213.499, 156.341, -0.509, 0.956)
pt3dadd(213.62, 156.338, -0.53, 0.96)
pt3dadd(213.74, 156.334, -0.55, 0.964)
pt3dadd(213.862, 156.329, -0.571, 0.968)
pt3dadd(213.983, 156.325, -0.592, 0.972)
pt3dadd(214.103, 156.322, -0.612, 0.976)
pt3dadd(214.224, 156.311, -0.633, 0.984)
pt3dadd(214.346, 156.293, -0.653, 0.996)
pt3dadd(214.469, 156.275, -0.674, 1.008)
pt3dadd(214.591, 156.258, -0.694, 1.018)
pt3dadd(214.714, 156.24, -0.715, 1.03)
pt3dadd(214.836, 156.222, -0.736, 1.042)
pt3dadd(214.958, 156.204, -0.756, 1.052)
pt3dadd(215.071, 156.224, -0.777, 1.166)
pt3dadd(215.19, 156.229, -0.797, 1.36)
pt3dadd(215.312, 156.215, -0.818, 1.568)
pt3dadd(215.435, 156.191, -0.838, 1.718)
pt3dadd(215.556, 156.173, -0.859, 1.774)
pt3dadd(215.627, 156.133, -0.9, 1.758)
}
apic[6] {pt3dclear()
pt3dadd(215.627, 156.133, -0.9, 1.758)
pt3dadd(215.676, 156.146, -0.9, 1.732)
pt3dadd(215.777, 156.206, -0.9, 1.664)
pt3dadd(215.846, 156.301, -0.9, 1.726)
pt3dadd(215.873, 156.419, -0.9, 1.836)
pt3dadd(215.88, 156.538, -0.9, 1.982)
pt3dadd(215.88, 156.658, -0.9, 2.12)
pt3dadd(215.88, 156.778, -0.9, 2.16)
pt3dadd(215.88, 156.898, -0.9, 2.114)
pt3dadd(215.88, 157.018, -0.9, 2.07)
pt3dadd(215.88, 157.138, -0.9, 2.028)
pt3dadd(215.88, 157.258, -0.9, 1.984)
pt3dadd(215.88, 157.378, -0.9, 1.942)
pt3dadd(215.88, 157.498, -0.9, 1.898)
pt3dadd(215.88, 157.618, -0.9, 1.856)
pt3dadd(215.88, 157.738, -0.907, 1.806)
pt3dadd(215.88, 157.856, -0.921, 1.748)
pt3dadd(215.88, 157.975, -0.936, 1.692)
pt3dadd(215.88, 158.094, -0.95, 1.634)
pt3dadd(215.88, 158.213, -0.965, 1.578)
pt3dadd(215.88, 158.332, -0.979, 1.52)
pt3dadd(215.88, 158.45, -0.989, 1.472)
pt3dadd(215.88, 158.57, -0.991, 1.438)
pt3dadd(215.88, 158.69, -0.993, 1.406)
pt3dadd(215.88, 158.81, -0.994, 1.374)
pt3dadd(215.88, 158.93, -0.996, 1.34)
pt3dadd(215.88, 159.05, -0.998, 1.308)
pt3dadd(215.88, 159.17, -0.999, 1.274)
pt3dadd(215.89, 159.289, -1, 1.25)
pt3dadd(215.911, 159.408, -1, 1.238)
pt3dadd(215.934, 159.526, -1, 1.226)
pt3dadd(215.956, 159.643, -1, 1.212)
pt3dadd(215.978, 159.761, -1, 1.2)
pt3dadd(216, 159.88, -1, 1.188)
pt3dadd(216.034, 159.994, -1, 1.166)
pt3dadd(216.079, 160.104, -1, 1.134)
pt3dadd(216.126, 160.216, -1, 1.1)
pt3dadd(216.173, 160.326, -1, 1.068)
pt3dadd(216.22, 160.436, -1, 1.034)
pt3dadd(216.284, 160.537, -1, 1.02)
pt3dadd(216.352, 160.636, -1, 1.008)
pt3dadd(216.449, 160.699, -1, 1.012)
pt3dadd(216.56, 160.746, -1, 1.024)
pt3dadd(216.649, 160.816, -1, 1.036)
pt3dadd(216.708, 160.92, -1, 1.048)
pt3dadd(216.766, 161.026, -1, 1.062)
pt3dadd(216.823, 161.13, -1, 1.076)
pt3dadd(216.84, 161.246, -1, 1.104)
pt3dadd(216.84, 161.366, -1, 1.138)
pt3dadd(216.84, 161.486, -1, 1.17)
pt3dadd(216.84, 161.606, -1, 1.252)
pt3dadd(216.876, 161.718, -1, 1.288)
pt3dadd(216.926, 161.827, -1, 1.298)
pt3dadd(216.978, 161.936, -1, 1.306)
pt3dadd(217.028, 162.044, -1, 1.316)
pt3dadd(217.079, 162.154, -1, 1.326)
pt3dadd(217.116, 162.266, -1, 1.328)
pt3dadd(217.139, 162.384, -1, 1.318)
pt3dadd(217.16, 162.503, -1, 1.31)
pt3dadd(217.183, 162.62, -1, 1.302)
pt3dadd(217.205, 162.738, -1, 1.294)
pt3dadd(217.228, 162.856, -1, 1.286)
pt3dadd(217.246, 162.974, -1, 1.276)
pt3dadd(217.258, 163.094, -1, 1.264)
pt3dadd(217.271, 163.213, -1, 1.252)
pt3dadd(217.283, 163.333, -1, 1.24)
}
}
proc shape3d_6() {
apic[6] { pt3dadd(217.296, 163.452, -1, 1.228)
pt3dadd(217.308, 163.571, -1, 1.216)
pt3dadd(217.32, 163.691, -1, 1.204)
pt3dadd(217.32, 163.811, -1, 1.194)
pt3dadd(217.32, 163.931, -1, 1.182)
pt3dadd(217.32, 164.051, -1, 1.172)
pt3dadd(217.32, 164.171, -1, 1.162)
pt3dadd(217.32, 164.291, -1, 1.15)
pt3dadd(217.32, 164.411, -1, 1.14)
pt3dadd(217.32, 164.531, -1, 1.128)
pt3dadd(217.32, 164.651, -1, 1.11)
pt3dadd(217.32, 164.771, -1, 1.092)
pt3dadd(217.32, 164.891, -1, 1.074)
pt3dadd(217.32, 165.011, -1, 1.056)
pt3dadd(217.32, 165.131, -1, 1.038)
pt3dadd(217.32, 165.251, -1, 1.02)
pt3dadd(217.316, 165.37, -1, 1.002)
pt3dadd(217.278, 165.484, -1, 0.98)
pt3dadd(217.24, 165.598, -1, 0.956)
pt3dadd(217.2, 165.71, -1, 0.934)
pt3dadd(217.162, 165.824, -1, 0.912)
pt3dadd(217.123, 165.938, -1, 0.888)
pt3dadd(217.052, 166.02, -1.021, 0.84)
pt3dadd(216.956, 166.079, -1.058, 0.77)
pt3dadd(216.882, 166.166, -1.08, 0.734)
pt3dadd(216.814, 166.262, -1.097, 0.708)
pt3dadd(216.757, 166.368, -1.1, 0.684)
pt3dadd(216.703, 166.475, -1.1, 0.662)
pt3dadd(216.661, 166.586, -1.1, 0.64)
pt3dadd(216.628, 166.702, -1.1, 0.62)
pt3dadd(216.6, 166.818, -1.1, 0.598)
pt3dadd(216.6, 166.938, -1.1, 0.574)
pt3dadd(216.6, 167.058, -1.1, 0.552)
pt3dadd(216.6, 167.178, -1.1, 0.552)
pt3dadd(216.6, 167.298, -1.1, 0.552)
pt3dadd(216.6, 167.418, -1.1, 0.554)
pt3dadd(216.6, 167.538, -1.1, 0.572)
pt3dadd(216.6, 167.658, -1.1, 0.588)
pt3dadd(216.6, 167.778, -1.101, 0.606)
pt3dadd(216.6, 167.898, -1.104, 0.632)
pt3dadd(216.6, 168.018, -1.108, 0.658)
pt3dadd(216.6, 168.122, -1.133, 0.684)
pt3dadd(216.6, 168.184, -1.22, 0.706)
pt3dadd(216.6, 168.24, -1.307, 0.73)
pt3dadd(216.6, 168.24, -1.407, 0.756)
pt3dadd(216.6, 168.241, -1.507, 0.78)
pt3dadd(216.6, 168.262, -1.605, 0.788)
pt3dadd(216.6, 168.282, -1.704, 0.798)
pt3dadd(216.6, 168.347, -1.771, 0.814)
pt3dadd(216.6, 168.46, -1.804, 0.836)
pt3dadd(216.6, 168.571, -1.84, 0.856)
pt3dadd(216.6, 168.665, -1.903, 0.866)
pt3dadd(216.6, 168.758, -1.966, 0.878)
pt3dadd(216.6, 168.877, -1.979, 0.898)
pt3dadd(216.6, 168.996, -1.991, 0.916)
pt3dadd(216.6, 169.115, -2.006, 0.934)
pt3dadd(216.6, 169.232, -2.025, 0.948)
pt3dadd(216.6, 169.348, -2.051, 0.956)
pt3dadd(216.6, 169.463, -2.081, 0.962)
pt3dadd(216.6, 169.577, -2.111, 0.966)
pt3dadd(216.6, 169.692, -2.14, 0.97)
pt3dadd(216.6, 169.806, -2.17, 0.974)
pt3dadd(216.6, 169.92, -2.2, 0.98)
pt3dadd(216.6, 170.032, -2.237, 0.98)
pt3dadd(216.6, 170.143, -2.275, 0.98)
pt3dadd(216.6, 170.255, -2.312, 0.98)
pt3dadd(216.6, 170.366, -2.349, 0.98)
pt3dadd(216.6, 170.478, -2.386, 0.98)
pt3dadd(216.6, 170.588, -2.425, 0.982)
pt3dadd(216.6, 170.699, -2.464, 0.986)
pt3dadd(216.6, 170.809, -2.504, 0.992)
pt3dadd(216.6, 170.918, -2.543, 0.996)
pt3dadd(216.6, 171.029, -2.583, 1)
pt3dadd(216.6, 171.137, -2.627, 1.008)
pt3dadd(216.6, 171.236, -2.682, 1.018)
pt3dadd(216.6, 171.337, -2.737, 1.028)
pt3dadd(216.6, 171.437, -2.792, 1.038)
pt3dadd(216.6, 171.538, -2.847, 1.048)
pt3dadd(216.604, 171.641, -2.896, 1.056)
pt3dadd(216.619, 171.755, -2.924, 1.06)
pt3dadd(216.635, 171.869, -2.952, 1.066)
pt3dadd(216.65, 171.983, -2.98, 1.07)
pt3dadd(216.666, 172.097, -3.008, 1.076)
pt3dadd(216.684, 172.21, -3.038, 1.08)
pt3dadd(216.725, 172.308, -3.084, 1.08)
pt3dadd(216.764, 172.408, -3.13, 1.08)
pt3dadd(216.804, 172.506, -3.176, 1.08)
pt3dadd(216.844, 172.604, -3.223, 1.08)
pt3dadd(216.889, 172.711, -3.244, 1.076)
pt3dadd(216.936, 172.82, -3.258, 1.07)
pt3dadd(216.982, 172.93, -3.271, 1.066)
pt3dadd(217.028, 173.039, -3.285, 1.06)
pt3dadd(217.075, 173.149, -3.299, 1.056)
pt3dadd(217.098, 173.267, -3.3, 1.058)
pt3dadd(217.117, 173.384, -3.3, 1.062)
pt3dadd(217.138, 173.503, -3.3, 1.066)
pt3dadd(217.157, 173.621, -3.3, 1.07)
pt3dadd(217.177, 173.74, -3.3, 1.074)
pt3dadd(217.196, 173.858, -3.3, 1.08)
pt3dadd(217.2, 173.977, -3.3, 1.092)
pt3dadd(217.2, 174.097, -3.3, 1.106)
pt3dadd(217.2, 174.217, -3.3, 1.12)
pt3dadd(217.2, 174.337, -3.3, 1.134)
pt3dadd(217.2, 174.457, -3.3, 1.148)
pt3dadd(217.2, 174.577, -3.3, 1.164)
pt3dadd(217.2, 174.697, -3.3, 1.178)
pt3dadd(217.184, 174.816, -3.3, 1.208)
pt3dadd(217.164, 174.935, -3.3, 1.24)
pt3dadd(217.145, 175.054, -3.3, 1.274)
pt3dadd(217.124, 175.171, -3.3, 1.306)
pt3dadd(217.105, 175.29, -3.3, 1.34)
pt3dadd(217.085, 175.409, -3.3, 1.372)
pt3dadd(217.08, 175.528, -3.3, 1.404)
pt3dadd(217.08, 175.648, -3.3, 1.436)
pt3dadd(217.08, 175.768, -3.3, 1.47)
pt3dadd(217.08, 175.888, -3.3, 1.502)
pt3dadd(217.08, 176.008, -3.3, 1.534)
pt3dadd(217.08, 176.128, -3.3, 1.566)
pt3dadd(217.08, 176.248, -3.3, 1.598)
pt3dadd(217.066, 176.366, -3.3, 1.62)
pt3dadd(217.046, 176.485, -3.3, 1.636)
pt3dadd(217.026, 176.603, -3.3, 1.652)
pt3dadd(217.007, 176.722, -3.3, 1.668)
pt3dadd(216.986, 176.84, -3.3, 1.686)
pt3dadd(216.967, 176.958, -3.3, 1.702)
pt3dadd(216.931, 177.072, -3.3, 1.696)
pt3dadd(216.887, 177.184, -3.3, 1.676)
pt3dadd(216.842, 177.295, -3.3, 1.658)
pt3dadd(216.797, 177.407, -3.3, 1.64)
pt3dadd(216.752, 177.518, -3.3, 1.62)
pt3dadd(216.71, 177.63, -3.3, 1.598)
pt3dadd(216.674, 177.745, -3.3, 1.568)
pt3dadd(216.638, 177.859, -3.3, 1.536)
pt3dadd(216.602, 177.973, -3.3, 1.504)
pt3dadd(216.568, 178.088, -3.3, 1.472)
pt3dadd(216.532, 178.202, -3.3, 1.442)
pt3dadd(216.467, 178.302, -3.3, 1.408)
pt3dadd(216.389, 178.393, -3.3, 1.372)
pt3dadd(216.311, 178.484, -3.3, 1.336)
pt3dadd(216.233, 178.576, -3.3, 1.302)
pt3dadd(216.156, 178.667, -3.3, 1.266)
pt3dadd(216.102, 178.772, -3.3, 1.238)
pt3dadd(216.056, 178.884, -3.3, 1.216)
pt3dadd(216.012, 178.996, -3.3, 1.192)
pt3dadd(215.968, 179.107, -3.3, 1.17)
pt3dadd(215.923, 179.219, -3.3, 1.146)
pt3dadd(215.892, 179.333, -3.302, 1.122)
pt3dadd(215.891, 179.453, -3.307, 1.1)
pt3dadd(215.888, 179.572, -3.312, 1.076)
pt3dadd(215.886, 179.692, -3.317, 1.054)
pt3dadd(215.885, 179.812, -3.322, 1.03)
pt3dadd(215.882, 179.932, -3.327, 1.008)
pt3dadd(215.88, 180.052, -3.332, 0.984)
pt3dadd(215.864, 180.167, -3.353, 0.96)
pt3dadd(215.843, 180.281, -3.38, 0.936)
pt3dadd(215.821, 180.394, -3.406, 0.91)
pt3dadd(215.801, 180.508, -3.433, 0.886)
pt3dadd(215.779, 180.622, -3.459, 0.86)
pt3dadd(215.771, 180.733, -3.494, 0.846)
pt3dadd(215.768, 180.845, -3.532, 0.838)
pt3dadd(215.766, 180.955, -3.57, 0.828)
pt3dadd(215.764, 181.067, -3.608, 0.818)
pt3dadd(215.761, 181.177, -3.646, 0.808)
pt3dadd(215.761, 181.292, -3.669, 0.806)
pt3dadd(215.762, 181.412, -3.674, 0.81)
pt3dadd(215.765, 181.532, -3.679, 0.812)
pt3dadd(215.767, 181.652, -3.684, 0.816)
pt3dadd(215.768, 181.772, -3.689, 0.82)
pt3dadd(215.771, 181.891, -3.694, 0.824)
pt3dadd(215.773, 182.011, -3.699, 0.828)
pt3dadd(215.815, 182.123, -3.7, 0.846)
pt3dadd(215.862, 182.233, -3.7, 0.864)
pt3dadd(215.91, 182.344, -3.7, 0.882)
pt3dadd(215.957, 182.454, -3.7, 0.902)
pt3dadd(216.005, 182.563, -3.7, 0.92)
pt3dadd(216.06, 182.67, -3.7, 0.96)
pt3dadd(216.12, 182.773, -3.7, 1.018)
pt3dadd(216.18, 182.878, -3.702, 1.072)
pt3dadd(216.235, 182.984, -3.707, 1.118)
pt3dadd(216.289, 183.079, -3.728, 1.158)
pt3dadd(216.334, 183.138, -3.808, 1.172)
pt3dadd(216.36, 183.22, -3.862, 1.172)
pt3dadd(216.36, 183.337, -3.879, 1.154)
pt3dadd(216.36, 183.456, -3.897, 1.134)
pt3dadd(216.36, 183.574, -3.916, 1.142)
pt3dadd(216.364, 183.691, -3.935, 1.156)
pt3dadd(216.404, 183.803, -3.948, 1.178)
pt3dadd(216.444, 183.914, -3.961, 1.198)
pt3dadd(216.484, 184.027, -3.975, 1.218)
pt3dadd(216.524, 184.139, -3.988, 1.238)
pt3dadd(216.566, 184.25, -4, 1.26)
pt3dadd(216.623, 184.356, -4, 1.292)
pt3dadd(216.679, 184.462, -4, 1.326)
pt3dadd(216.736, 184.567, -4, 1.36)
pt3dadd(216.792, 184.673, -4, 1.394)
pt3dadd(216.85, 184.778, -4, 1.428)
pt3dadd(216.929, 184.868, -4, 1.476)
pt3dadd(217.012, 184.956, -4, 1.522)
pt3dadd(217.096, 185.041, -4.004, 1.562)
pt3dadd(217.18, 185.126, -4.01, 1.598)
}
}
proc shape3d_7() {
apic[6] { pt3dadd(217.252, 185.188, -4.064, 1.608)
pt3dadd(217.32, 185.24, -4.133, 1.608)
pt3dadd(217.32, 185.315, -4.211, 1.572)
pt3dadd(217.32, 185.389, -4.289, 1.536)
pt3dadd(217.32, 185.501, -4.321, 1.5)
pt3dadd(217.32, 185.617, -4.345, 1.464)
pt3dadd(217.32, 185.734, -4.369, 1.428)
pt3dadd(217.32, 185.85, -4.394, 1.39)
pt3dadd(217.324, 185.969, -4.4, 1.33)
pt3dadd(217.328, 186.089, -4.4, 1.26)
pt3dadd(217.332, 186.209, -4.4, 1.19)
pt3dadd(217.36, 186.325, -4.4, 1.004)
pt3dadd(217.373, 186.444, -4.406, 0.974)
pt3dadd(217.387, 186.563, -4.411, 0.946)
pt3dadd(217.4, 186.682, -4.417, 0.916)
pt3dadd(217.414, 186.802, -4.422, 0.888)
pt3dadd(217.427, 186.92, -4.428, 0.858)
pt3dadd(217.44, 187.039, -4.433, 0.828)
pt3dadd(217.459, 187.157, -4.445, 0.82)
pt3dadd(217.478, 187.274, -4.457, 0.81)
pt3dadd(217.498, 187.392, -4.469, 0.802)
pt3dadd(217.517, 187.51, -4.481, 0.792)
pt3dadd(217.536, 187.627, -4.493, 0.784)
pt3dadd(217.553, 187.746, -4.5, 0.784)
pt3dadd(217.568, 187.865, -4.5, 0.796)
pt3dadd(217.583, 187.984, -4.5, 0.808)
pt3dadd(217.598, 188.102, -4.5, 0.82)
pt3dadd(217.613, 188.221, -4.5, 0.832)
pt3dadd(217.628, 188.341, -4.5, 0.844)
pt3dadd(217.648, 188.459, -4.502, 0.86)
pt3dadd(217.687, 188.57, -4.516, 0.894)
pt3dadd(217.727, 188.683, -4.529, 0.93)
pt3dadd(217.766, 188.795, -4.542, 0.966)
pt3dadd(217.806, 188.906, -4.556, 1)
pt3dadd(217.847, 189.019, -4.569, 1.034)
pt3dadd(217.886, 189.131, -4.582, 1.06)
pt3dadd(217.926, 189.242, -4.596, 1.084)
pt3dadd(217.967, 189.355, -4.609, 1.108)
pt3dadd(218.006, 189.467, -4.622, 1.134)
pt3dadd(218.05, 189.576, -4.64, 1.158)
pt3dadd(218.106, 189.671, -4.679, 1.176)
pt3dadd(218.162, 189.766, -4.719, 1.194)
pt3dadd(218.22, 189.859, -4.758, 1.212)
pt3dadd(218.276, 189.954, -4.797, 1.23)
pt3dadd(218.299, 190.07, -4.805, 1.242)
pt3dadd(218.321, 190.189, -4.811, 1.256)
pt3dadd(218.341, 190.307, -4.817, 1.268)
pt3dadd(218.362, 190.424, -4.823, 1.282)
pt3dadd(218.383, 190.542, -4.828, 1.294)
pt3dadd(218.405, 190.66, -4.839, 1.31)
pt3dadd(218.43, 190.769, -4.874, 1.336)
pt3dadd(218.455, 190.878, -4.91, 1.364)
pt3dadd(218.48, 190.987, -4.945, 1.39)
pt3dadd(218.506, 191.096, -4.98, 1.416)
pt3dadd(218.52, 191.21, -5, 1.446)
pt3dadd(218.52, 191.33, -5, 1.478)
pt3dadd(218.52, 191.45, -5, 1.512)
pt3dadd(218.52, 191.57, -5, 1.532)
pt3dadd(218.52, 191.69, -5, 1.532)
pt3dadd(218.52, 191.81, -5, 1.532)
pt3dadd(218.537, 191.928, -5, 1.51)
pt3dadd(218.576, 192.041, -5, 1.456)
pt3dadd(218.621, 192.151, -5, 1.4)
pt3dadd(218.719, 192.22, -5, 1.306)
pt3dadd(218.819, 192.287, -5, 1.214)
pt3dadd(218.89, 192.383, -5.007, 1.07)
pt3dadd(218.946, 192.48, -5.035, 0.984)
pt3dadd(218.993, 192.577, -5.08, 0.95)
pt3dadd(219.04, 192.674, -5.124, 0.914)
pt3dadd(219.086, 192.77, -5.168, 0.88)
pt3dadd(219.12, 192.871, -5.211, 0.85)
pt3dadd(219.12, 192.983, -5.248, 0.836)
pt3dadd(219.12, 193.094, -5.285, 0.822)
pt3dadd(219.12, 193.206, -5.322, 0.808)
pt3dadd(219.12, 193.318, -5.359, 0.794)
pt3dadd(219.12, 193.429, -5.396, 0.78)
pt3dadd(219.12, 193.547, -5.411, 0.77)
pt3dadd(219.12, 193.666, -5.424, 0.76)
pt3dadd(219.121, 193.784, -5.439, 0.756)
pt3dadd(219.127, 193.9, -5.468, 0.766)
pt3dadd(219.132, 194.014, -5.497, 0.778)
pt3dadd(219.187, 194.119, -5.5, 0.788)
pt3dadd(219.248, 194.222, -5.5, 0.8)
pt3dadd(219.308, 194.326, -5.5, 0.828)
pt3dadd(219.37, 194.429, -5.5, 0.862)
pt3dadd(219.438, 194.527, -5.5, 0.906)
pt3dadd(219.51, 194.623, -5.5, 0.956)
pt3dadd(219.548, 194.736, -5.5, 0.968)
pt3dadd(219.587, 194.85, -5.5, 0.982)
pt3dadd(219.625, 194.964, -5.5, 0.996)
pt3dadd(219.665, 195.077, -5.5, 1.01)
pt3dadd(219.703, 195.191, -5.5, 1.024)
pt3dadd(219.72, 195.308, -5.5, 1.032)
pt3dadd(219.72, 195.428, -5.5, 1.036)
pt3dadd(219.72, 195.548, -5.5, 1.038)
pt3dadd(219.72, 195.668, -5.5, 1.042)
pt3dadd(219.72, 195.788, -5.5, 1.046)
pt3dadd(219.72, 195.908, -5.5, 1.05)
pt3dadd(219.72, 196.028, -5.5, 1.054)
pt3dadd(219.72, 196.148, -5.5, 1.054)
pt3dadd(219.72, 196.268, -5.5, 1.054)
pt3dadd(219.72, 196.388, -5.5, 1.054)
pt3dadd(219.72, 196.508, -5.5, 1.054)
pt3dadd(219.72, 196.628, -5.5, 1.054)
pt3dadd(219.72, 196.748, -5.5, 1.054)
pt3dadd(219.72, 196.868, -5.5, 1.054)
pt3dadd(219.72, 196.988, -5.5, 1.054)
pt3dadd(219.72, 197.108, -5.5, 1.054)
pt3dadd(219.72, 197.228, -5.5, 1.054)
pt3dadd(219.728, 197.347, -5.5, 1.054)
pt3dadd(219.743, 197.466, -5.5, 1.054)
pt3dadd(219.757, 197.586, -5.5, 1.054)
pt3dadd(219.832, 197.677, -5.5, 1.054)
pt3dadd(219.913, 197.765, -5.5, 1.054)
pt3dadd(219.995, 197.852, -5.5, 1.072)
pt3dadd(220.076, 197.941, -5.5, 1.096)
pt3dadd(220.165, 198.02, -5.5, 1.138)
pt3dadd(220.253, 198.102, -5.5, 1.184)
pt3dadd(220.315, 198.204, -5.5, 1.198)
pt3dadd(220.379, 198.306, -5.5, 1.212)
pt3dadd(220.441, 198.408, -5.5, 1.228)
pt3dadd(220.505, 198.51, -5.5, 1.242)
pt3dadd(220.562, 198.614, -5.5, 1.256)
pt3dadd(220.582, 198.733, -5.5, 1.25)
pt3dadd(220.602, 198.851, -5.5, 1.246)
pt3dadd(220.621, 198.97, -5.5, 1.242)
pt3dadd(220.642, 199.087, -5.5, 1.238)
pt3dadd(220.661, 199.206, -5.5, 1.234)
pt3dadd(220.681, 199.325, -5.5, 1.23)
pt3dadd(220.7, 199.442, -5.5, 1.222)
pt3dadd(220.721, 199.561, -5.5, 1.214)
pt3dadd(220.74, 199.68, -5.5, 1.206)
pt3dadd(220.759, 199.798, -5.5, 1.198)
pt3dadd(220.78, 199.916, -5.5, 1.188)
pt3dadd(220.799, 200.035, -5.5, 1.18)
pt3dadd(220.8, 200.155, -5.5, 1.176)
pt3dadd(220.8, 200.275, -5.5, 1.174)
pt3dadd(220.8, 200.395, -5.5, 1.17)
pt3dadd(220.8, 200.515, -5.5, 1.166)
pt3dadd(220.8, 200.635, -5.5, 1.162)
pt3dadd(220.8, 200.755, -5.5, 1.158)
pt3dadd(220.8, 200.875, -5.5, 1.156)
pt3dadd(220.8, 200.995, -5.5, 1.172)
pt3dadd(220.8, 201.115, -5.5, 1.19)
pt3dadd(220.8, 201.235, -5.5, 1.208)
pt3dadd(220.8, 201.355, -5.5, 1.226)
pt3dadd(220.8, 201.475, -5.5, 1.244)
pt3dadd(220.8, 201.595, -5.5, 1.262)
pt3dadd(220.8, 201.715, -5.5, 1.28)
pt3dadd(220.8, 201.835, -5.5, 1.328)
pt3dadd(220.8, 201.955, -5.5, 1.378)
pt3dadd(220.8, 202.075, -5.5, 1.428)
pt3dadd(220.766, 202.189, -5.505, 1.472)
pt3dadd(220.733, 202.304, -5.509, 1.516)
pt3dadd(220.672, 202.394, -5.539, 1.504)
pt3dadd(220.595, 202.471, -5.584, 1.462)
pt3dadd(220.486, 202.512, -5.598, 1.366)
pt3dadd(220.373, 202.548, -5.608, 1.266)
pt3dadd(220.265, 202.58, -5.64, 1.102)
pt3dadd(220.17, 202.632, -5.669, 0.964)
pt3dadd(220.088, 202.72, -5.676, 0.92)
pt3dadd(220.007, 202.807, -5.683, 0.878)
pt3dadd(219.924, 202.895, -5.69, 0.836)
pt3dadd(219.842, 202.982, -5.697, 0.794)
pt3dadd(219.773, 203.08, -5.7, 0.778)
pt3dadd(219.71, 203.182, -5.7, 0.778)
pt3dadd(219.647, 203.284, -5.7, 0.778)
pt3dadd(219.584, 203.386, -5.7, 0.778)
pt3dadd(219.521, 203.488, -5.7, 0.778)
pt3dadd(219.451, 203.585, -5.7, 0.79)
pt3dadd(219.377, 203.678, -5.7, 0.81)
pt3dadd(219.302, 203.772, -5.7, 0.83)
pt3dadd(219.227, 203.867, -5.7, 0.85)
pt3dadd(219.152, 203.96, -5.7, 0.87)
pt3dadd(219.107, 204.066, -5.713, 0.896)
pt3dadd(219.083, 204.181, -5.734, 0.926)
pt3dadd(219.06, 204.295, -5.756, 0.954)
pt3dadd(219.036, 204.41, -5.778, 0.984)
pt3dadd(219.013, 204.524, -5.799, 1.014)
pt3dadd(218.978, 204.599, -5.852, 1.048)
pt3dadd(218.932, 204.625, -5.942, 1.084)
pt3dadd(218.876, 204.688, -5.991, 1.116)
pt3dadd(218.813, 204.79, -5.997, 1.14)
pt3dadd(218.772, 204.898, -6, 1.158)
pt3dadd(218.767, 205.018, -6, 1.168)
pt3dadd(218.762, 205.138, -6, 1.176)
pt3dadd(218.76, 205.258, -6, 1.184)
pt3dadd(218.76, 205.378, -6, 1.192)
pt3dadd(218.76, 205.498, -6, 1.2)
pt3dadd(218.76, 205.618, -6, 1.194)
pt3dadd(218.76, 205.738, -6, 1.168)
pt3dadd(218.735, 205.852, -6, 1.146)
pt3dadd(218.681, 205.958, -6, 1.126)
pt3dadd(218.627, 206.066, -6, 1.108)
pt3dadd(218.574, 206.173, -6, 1.088)
pt3dadd(218.52, 206.281, -6, 1.068)
pt3dadd(218.47, 206.389, -6.005, 1.048)
pt3dadd(218.428, 206.498, -6.026, 1.022)
pt3dadd(218.386, 206.608, -6.048, 0.996)
pt3dadd(218.342, 206.717, -6.069, 0.968)
}
}
proc shape3d_8() {
apic[6] { pt3dadd(218.3, 206.826, -6.09, 0.942)
pt3dadd(218.28, 206.941, -6.1, 0.92)
pt3dadd(218.28, 207.061, -6.1, 0.904)
pt3dadd(218.28, 207.181, -6.1, 0.888)
pt3dadd(218.278, 207.301, -6.1, 0.884)
pt3dadd(218.273, 207.421, -6.1, 0.892)
pt3dadd(218.268, 207.541, -6.1, 0.9)
pt3dadd(218.216, 207.641, -6.1, 0.912)
pt3dadd(218.134, 207.728, -6.1, 0.924)
pt3dadd(218.072, 207.829, -6.102, 0.918)
pt3dadd(218.032, 207.941, -6.107, 0.896)
pt3dadd(217.979, 208.04, -6.122, 0.858)
pt3dadd(217.89, 208.098, -6.167, 0.778)
pt3dadd(217.82, 208.195, -6.174, 0.768)
pt3dadd(217.751, 208.294, -6.181, 0.756)
pt3dadd(217.681, 208.391, -6.188, 0.746)
pt3dadd(217.612, 208.488, -6.195, 0.736)
pt3dadd(217.535, 208.578, -6.2, 0.728)
pt3dadd(217.435, 208.645, -6.2, 0.728)
pt3dadd(217.34, 208.717, -6.2, 0.73)
pt3dadd(217.279, 208.82, -6.2, 0.74)
pt3dadd(217.219, 208.924, -6.2, 0.752)
pt3dadd(217.21, 209.042, -6.2, 0.762)
pt3dadd(217.205, 209.162, -6.2, 0.77)
pt3dadd(217.2, 209.282, -6.2, 0.778)
pt3dadd(217.2, 209.402, -6.2, 0.796)
pt3dadd(217.2, 209.522, -6.2, 0.812)
pt3dadd(217.2, 209.642, -6.2, 0.828)
pt3dadd(217.17, 209.759, -6.2, 0.842)
pt3dadd(217.141, 209.875, -6.2, 0.854)
pt3dadd(217.112, 209.992, -6.2, 0.866)
pt3dadd(217.084, 210.108, -6.2, 0.878)
pt3dadd(216.996, 210.187, -6.2, 0.868)
pt3dadd(216.902, 210.262, -6.2, 0.856)
pt3dadd(216.809, 210.337, -6.2, 0.778)
pt3dadd(216.706, 210.397, -6.2, 0.754)
pt3dadd(216.601, 210.458, -6.2, 0.732)
pt3dadd(216.486, 210.49, -6.2, 0.746)
pt3dadd(216.37, 210.516, -6.2, 0.766)
pt3dadd(216.269, 210.568, -6.2, 0.798)
pt3dadd(216.202, 210.666, -6.2, 0.856)
pt3dadd(216.133, 210.766, -6.2, 0.908)
pt3dadd(216.066, 210.864, -6.2, 0.932)
pt3dadd(215.998, 210.964, -6.2, 0.954)
pt3dadd(215.933, 211.064, -6.2, 0.918)
pt3dadd(215.875, 211.169, -6.2, 0.888)
pt3dadd(215.821, 211.277, -6.2, 0.858)
pt3dadd(215.768, 211.384, -6.2, 0.83)
pt3dadd(215.714, 211.492, -6.2, 0.8)
pt3dadd(215.66, 211.598, -6.2, 0.772)
pt3dadd(215.606, 211.704, -6.208, 0.75)
pt3dadd(215.551, 211.807, -6.23, 0.738)
pt3dadd(215.495, 211.91, -6.252, 0.728)
pt3dadd(215.44, 212.012, -6.274, 0.716)
pt3dadd(215.383, 212.116, -6.296, 0.704)
pt3dadd(215.294, 212.189, -6.319, 0.704)
pt3dadd(215.197, 212.255, -6.341, 0.704)
pt3dadd(215.101, 212.321, -6.364, 0.704)
pt3dadd(215.005, 212.387, -6.386, 0.704)
pt3dadd(214.919, 212.465, -6.4, 0.71)
pt3dadd(214.85, 212.563, -6.4, 0.732)
pt3dadd(214.781, 212.662, -6.4, 0.75)
pt3dadd(214.712, 212.76, -6.4, 0.772)
pt3dadd(214.643, 212.858, -6.4, 0.792)
pt3dadd(214.586, 212.963, -6.4, 0.808)
pt3dadd(214.55, 213.077, -6.4, 0.822)
pt3dadd(214.516, 213.191, -6.4, 0.836)
pt3dadd(214.48, 213.306, -6.4, 0.85)
pt3dadd(214.444, 213.42, -6.4, 0.862)
pt3dadd(214.409, 213.535, -6.4, 0.876)
pt3dadd(214.356, 213.634, -6.431, 0.888)
pt3dadd(214.3, 213.728, -6.47, 0.9)
pt3dadd(214.242, 213.823, -6.51, 0.912)
pt3dadd(214.186, 213.918, -6.549, 0.924)
pt3dadd(214.13, 214.019, -6.572, 0.924)
pt3dadd(214.075, 214.124, -6.581, 0.914)
pt3dadd(214.021, 214.231, -6.59, 0.902)
pt3dadd(213.966, 214.338, -6.599, 0.892)
pt3dadd(213.911, 214.444, -6.608, 0.882)
pt3dadd(213.868, 214.554, -6.623, 0.866)
pt3dadd(213.829, 214.666, -6.641, 0.844)
pt3dadd(213.792, 214.777, -6.659, 0.824)
pt3dadd(213.754, 214.889, -6.678, 0.804)
pt3dadd(213.715, 215, -6.696, 0.784)
pt3dadd(213.689, 215.107, -6.733, 0.774)
pt3dadd(213.666, 215.214, -6.776, 0.768)
pt3dadd(213.643, 215.32, -6.819, 0.764)
pt3dadd(213.62, 215.425, -6.862, 0.758)
pt3dadd(213.6, 215.533, -6.9, 0.756)
pt3dadd(213.6, 215.653, -6.9, 0.784)
pt3dadd(213.6, 215.773, -6.9, 0.828)
pt3dadd(213.6, 215.893, -6.901, 0.832)
pt3dadd(213.6, 216.011, -6.917, 0.866)
pt3dadd(213.6, 216.118, -6.958, 0.946)
pt3dadd(213.616, 216.203, -7.027, 1.056)
pt3dadd(213.667, 216.245, -7.108, 1.062)
pt3dadd(213.739, 216.294, -7.175, 0.918)
pt3dadd(213.841, 216.347, -7.2, 0.754)
pt3dadd(213.96, 216.36, -7.2, 0.704)
}
apic[7] {pt3dclear()
pt3dadd(215.627, 156.133, -0.9, 1.758)
pt3dadd(215.7, 156.156, -0.89, 1.728)
pt3dadd(215.814, 156.191, -0.874, 1.68)
pt3dadd(215.927, 156.226, -0.859, 1.634)
pt3dadd(216.04, 156.262, -0.844, 1.588)
pt3dadd(216.154, 156.296, -0.828, 1.542)
pt3dadd(216.266, 156.331, -0.813, 1.494)
pt3dadd(216.382, 156.36, -0.8, 1.45)
pt3dadd(216.502, 156.36, -0.8, 1.418)
pt3dadd(216.622, 156.36, -0.8, 1.386)
pt3dadd(216.742, 156.36, -0.8, 1.354)
pt3dadd(216.862, 156.36, -0.8, 1.322)
pt3dadd(216.982, 156.36, -0.8, 1.29)
pt3dadd(217.102, 156.36, -0.8, 1.258)
pt3dadd(217.22, 156.362, -0.8, 1.224)
pt3dadd(217.34, 156.374, -0.8, 1.188)
pt3dadd(217.459, 156.388, -0.8, 1.154)
pt3dadd(217.579, 156.4, -0.8, 1.118)
pt3dadd(217.698, 156.413, -0.8, 1.082)
pt3dadd(217.818, 156.425, -0.8, 1.046)
pt3dadd(217.937, 156.438, -0.8, 1.012)
pt3dadd(218.054, 156.461, -0.8, 0.988)
pt3dadd(218.172, 156.485, -0.8, 0.966)
pt3dadd(218.29, 156.51, -0.8, 0.944)
pt3dadd(218.407, 156.535, -0.8, 0.924)
pt3dadd(218.525, 156.559, -0.8, 0.902)
pt3dadd(218.642, 156.584, -0.8, 0.88)
pt3dadd(218.743, 156.648, -0.8, 0.858)
pt3dadd(218.842, 156.716, -0.8, 0.834)
pt3dadd(218.917, 156.806, -0.8, 0.82)
pt3dadd(218.986, 156.906, -0.8, 0.808)
pt3dadd(219.084, 156.949, -0.8, 0.788)
pt3dadd(219.204, 156.954, -0.8, 0.762)
pt3dadd(219.324, 156.959, -0.8, 0.736)
pt3dadd(219.444, 156.96, -0.8, 0.71)
pt3dadd(219.564, 156.96, -0.8, 0.686)
pt3dadd(219.684, 156.96, -0.8, 0.66)
pt3dadd(219.802, 156.976, -0.8, 0.632)
pt3dadd(219.919, 157, -0.8, 0.602)
pt3dadd(220.034, 157.036, -0.8, 0.612)
pt3dadd(220.148, 157.072, -0.8, 0.62)
pt3dadd(220.264, 157.106, -0.8, 0.63)
pt3dadd(220.378, 157.142, -0.8, 0.638)
pt3dadd(220.492, 157.178, -0.8, 0.648)
pt3dadd(220.609, 157.2, -0.8, 0.656)
pt3dadd(220.729, 157.2, -0.8, 0.664)
pt3dadd(220.849, 157.2, -0.8, 0.67)
pt3dadd(220.969, 157.2, -0.8, 0.678)
pt3dadd(221.089, 157.2, -0.8, 0.684)
pt3dadd(221.209, 157.2, -0.8, 0.692)
pt3dadd(221.329, 157.2, -0.8, 0.698)
pt3dadd(221.448, 157.211, -0.8, 0.71)
pt3dadd(221.564, 157.238, -0.8, 0.728)
pt3dadd(221.681, 157.266, -0.8, 0.744)
pt3dadd(221.798, 157.294, -0.8, 0.762)
pt3dadd(221.915, 157.321, -0.8, 0.78)
pt3dadd(222.031, 157.348, -0.8, 0.796)
pt3dadd(222.149, 157.373, -0.8, 0.804)
pt3dadd(222.268, 157.394, -0.8, 0.804)
pt3dadd(222.385, 157.417, -0.8, 0.804)
pt3dadd(222.503, 157.439, -0.8, 0.804)
pt3dadd(222.62, 157.462, -0.8, 0.804)
pt3dadd(222.739, 157.483, -0.8, 0.804)
pt3dadd(222.85, 157.526, -0.8, 0.804)
pt3dadd(222.955, 157.583, -0.8, 0.804)
pt3dadd(223.061, 157.64, -0.8, 0.804)
pt3dadd(223.166, 157.697, -0.8, 0.804)
pt3dadd(223.272, 157.754, -0.8, 0.804)
pt3dadd(223.384, 157.788, -0.8, 0.8)
pt3dadd(223.504, 157.789, -0.8, 0.788)
pt3dadd(223.624, 157.792, -0.8, 0.778)
pt3dadd(223.744, 157.793, -0.8, 0.766)
pt3dadd(223.864, 157.795, -0.8, 0.756)
pt3dadd(223.984, 157.798, -0.8, 0.744)
pt3dadd(224.104, 157.799, -0.8, 0.734)
pt3dadd(224.224, 157.799, -0.8, 0.73)
pt3dadd(224.344, 157.798, -0.8, 0.734)
pt3dadd(224.464, 157.795, -0.8, 0.738)
pt3dadd(224.584, 157.793, -0.8, 0.742)
pt3dadd(224.704, 157.792, -0.8, 0.744)
pt3dadd(224.824, 157.789, -0.8, 0.748)
pt3dadd(224.944, 157.788, -0.8, 0.752)
pt3dadd(225.062, 157.776, -0.8, 0.758)
pt3dadd(225.181, 157.758, -0.8, 0.766)
pt3dadd(225.3, 157.741, -0.8, 0.774)
pt3dadd(225.419, 157.724, -0.8, 0.782)
pt3dadd(225.538, 157.706, -0.8, 0.792)
pt3dadd(225.656, 157.69, -0.8, 0.8)
pt3dadd(225.776, 157.68, -0.8, 0.814)
pt3dadd(225.896, 157.68, -0.8, 0.836)
pt3dadd(226.016, 157.68, -0.8, 0.856)
pt3dadd(226.136, 157.68, -0.8, 0.878)
pt3dadd(226.256, 157.68, -0.8, 0.9)
pt3dadd(226.376, 157.68, -0.8, 0.922)
pt3dadd(226.496, 157.68, -0.8, 0.942)
pt3dadd(226.616, 157.68, -0.8, 0.96)
pt3dadd(226.736, 157.68, -0.8, 0.976)
pt3dadd(226.856, 157.68, -0.8, 0.99)
pt3dadd(226.976, 157.68, -0.8, 1.004)
pt3dadd(227.096, 157.68, -0.8, 1.018)
pt3dadd(227.216, 157.68, -0.8, 1.032)
}
}
proc shape3d_9() {
apic[7] { pt3dadd(227.336, 157.68, -0.8, 1.048)
pt3dadd(227.456, 157.679, -0.8, 1.064)
pt3dadd(227.576, 157.678, -0.8, 1.082)
pt3dadd(227.696, 157.675, -0.8, 1.1)
pt3dadd(227.816, 157.673, -0.8, 1.118)
pt3dadd(227.936, 157.672, -0.8, 1.136)
pt3dadd(228.056, 157.669, -0.8, 1.154)
pt3dadd(228.176, 157.668, -0.8, 1.172)
pt3dadd(228.295, 157.657, -0.8, 1.178)
pt3dadd(228.414, 157.639, -0.8, 1.174)
pt3dadd(228.533, 157.622, -0.8, 1.17)
pt3dadd(228.652, 157.604, -0.8, 1.166)
pt3dadd(228.77, 157.588, -0.8, 1.162)
pt3dadd(228.889, 157.571, -0.8, 1.158)
pt3dadd(229.008, 157.56, -0.8, 1.152)
pt3dadd(229.128, 157.56, -0.8, 1.146)
pt3dadd(229.248, 157.56, -0.8, 1.138)
pt3dadd(229.368, 157.56, -0.8, 1.13)
pt3dadd(229.488, 157.56, -0.8, 1.124)
pt3dadd(229.608, 157.56, -0.8, 1.116)
pt3dadd(229.728, 157.56, -0.8, 1.11)
pt3dadd(229.848, 157.56, -0.8, 1.098)
pt3dadd(229.968, 157.56, -0.8, 1.08)
pt3dadd(230.088, 157.56, -0.8, 1.062)
pt3dadd(230.208, 157.56, -0.8, 1.044)
pt3dadd(230.328, 157.56, -0.8, 1.026)
pt3dadd(230.448, 157.56, -0.8, 1.008)
pt3dadd(230.568, 157.56, -0.8, 0.99)
pt3dadd(230.688, 157.552, -0.8, 0.976)
pt3dadd(230.806, 157.532, -0.8, 0.968)
pt3dadd(230.924, 157.513, -0.8, 0.96)
pt3dadd(231.042, 157.493, -0.8, 0.952)
pt3dadd(231.161, 157.474, -0.8, 0.942)
pt3dadd(231.28, 157.453, -0.8, 0.934)
pt3dadd(231.398, 157.44, -0.8, 0.93)
pt3dadd(231.518, 157.44, -0.8, 0.93)
pt3dadd(231.638, 157.44, -0.8, 0.93)
pt3dadd(231.758, 157.44, -0.8, 0.93)
pt3dadd(231.878, 157.44, -0.8, 0.93)
pt3dadd(231.998, 157.44, -0.8, 0.93)
pt3dadd(232.118, 157.44, -0.8, 0.93)
pt3dadd(232.238, 157.444, -0.8, 0.93)
pt3dadd(232.357, 157.457, -0.8, 0.93)
pt3dadd(232.476, 157.469, -0.8, 0.93)
pt3dadd(232.596, 157.482, -0.8, 0.93)
pt3dadd(232.715, 157.494, -0.8, 0.93)
pt3dadd(232.835, 157.507, -0.8, 0.93)
pt3dadd(232.954, 157.52, -0.8, 0.93)
pt3dadd(233.074, 157.526, -0.8, 0.94)
pt3dadd(233.194, 157.532, -0.8, 0.952)
pt3dadd(233.314, 157.538, -0.8, 0.962)
pt3dadd(233.434, 157.544, -0.8, 0.974)
pt3dadd(233.554, 157.549, -0.8, 0.984)
pt3dadd(233.674, 157.555, -0.8, 0.996)
pt3dadd(233.792, 157.56, -0.8, 1.006)
pt3dadd(233.912, 157.56, -0.8, 1.014)
pt3dadd(234.032, 157.56, -0.8, 1.02)
pt3dadd(234.152, 157.56, -0.8, 1.028)
pt3dadd(234.272, 157.56, -0.8, 1.036)
pt3dadd(234.392, 157.56, -0.8, 1.042)
pt3dadd(234.512, 157.56, -0.8, 1.05)
pt3dadd(234.632, 157.56, -0.8, 1.056)
pt3dadd(234.752, 157.56, -0.8, 1.064)
pt3dadd(234.872, 157.56, -0.8, 1.072)
pt3dadd(234.992, 157.56, -0.8, 1.078)
pt3dadd(235.112, 157.56, -0.8, 1.086)
pt3dadd(235.232, 157.56, -0.8, 1.092)
pt3dadd(235.352, 157.56, -0.8, 1.1)
pt3dadd(235.472, 157.565, -0.8, 1.1)
pt3dadd(235.591, 157.582, -0.8, 1.084)
pt3dadd(235.71, 157.6, -0.8, 1.068)
pt3dadd(235.829, 157.616, -0.8, 1.052)
pt3dadd(235.948, 157.634, -0.8, 1.036)
pt3dadd(236.066, 157.651, -0.8, 1.02)
pt3dadd(236.185, 157.669, -0.8, 1.002)
pt3dadd(236.303, 157.691, -0.8, 0.99)
pt3dadd(236.42, 157.714, -0.8, 0.978)
pt3dadd(236.539, 157.735, -0.8, 0.966)
pt3dadd(236.657, 157.758, -0.8, 0.952)
pt3dadd(236.774, 157.78, -0.8, 0.94)
pt3dadd(236.893, 157.8, -0.8, 0.93)
pt3dadd(237.013, 157.8, -0.8, 0.934)
pt3dadd(237.133, 157.8, -0.8, 0.936)
pt3dadd(237.253, 157.8, -0.8, 0.94)
pt3dadd(237.373, 157.8, -0.8, 0.944)
pt3dadd(237.493, 157.8, -0.8, 0.948)
pt3dadd(237.613, 157.8, -0.8, 0.952)
pt3dadd(237.733, 157.8, -0.8, 0.956)
pt3dadd(237.853, 157.8, -0.8, 0.97)
pt3dadd(237.973, 157.8, -0.8, 0.984)
pt3dadd(238.093, 157.8, -0.8, 0.998)
pt3dadd(238.213, 157.8, -0.8, 1.014)
pt3dadd(238.333, 157.8, -0.8, 1.028)
pt3dadd(238.453, 157.8, -0.8, 1.042)
pt3dadd(238.572, 157.799, -0.797, 1.056)
pt3dadd(238.686, 157.792, -0.765, 1.06)
pt3dadd(238.799, 157.784, -0.733, 1.064)
pt3dadd(238.913, 157.777, -0.702, 1.07)
pt3dadd(239.027, 157.769, -0.67, 1.074)
pt3dadd(239.14, 157.762, -0.639, 1.078)
pt3dadd(239.258, 157.75, -0.629, 1.062)
pt3dadd(239.377, 157.736, -0.623, 1.042)
pt3dadd(239.496, 157.723, -0.618, 1.022)
pt3dadd(239.616, 157.71, -0.612, 1)
pt3dadd(239.735, 157.697, -0.607, 0.98)
pt3dadd(239.854, 157.682, -0.601, 0.958)
pt3dadd(239.971, 157.658, -0.6, 0.934)
pt3dadd(240.088, 157.631, -0.6, 0.908)
pt3dadd(240.205, 157.604, -0.6, 0.882)
pt3dadd(240.322, 157.577, -0.6, 0.856)
pt3dadd(240.438, 157.549, -0.6, 0.83)
pt3dadd(240.556, 157.522, -0.6, 0.804)
pt3dadd(240.666, 157.483, -0.58, 0.784)
pt3dadd(240.776, 157.445, -0.559, 0.762)
pt3dadd(240.888, 157.405, -0.539, 0.742)
pt3dadd(240.998, 157.367, -0.518, 0.72)
pt3dadd(241.108, 157.324, -0.499, 0.702)
pt3dadd(241.205, 157.254, -0.492, 0.698)
pt3dadd(241.302, 157.184, -0.485, 0.692)
pt3dadd(241.399, 157.115, -0.478, 0.686)
pt3dadd(241.496, 157.045, -0.471, 0.682)
pt3dadd(241.591, 156.979, -0.45, 0.68)
pt3dadd(241.678, 156.92, -0.401, 0.686)
pt3dadd(241.765, 156.863, -0.353, 0.692)
pt3dadd(241.853, 156.804, -0.304, 0.698)
pt3dadd(241.946, 156.758, -0.259, 0.706)
pt3dadd(242.059, 156.75, -0.228, 0.714)
pt3dadd(242.173, 156.743, -0.196, 0.724)
pt3dadd(242.287, 156.736, -0.165, 0.734)
pt3dadd(242.4, 156.728, -0.133, 0.744)
pt3dadd(242.514, 156.72, -0.102, 0.752)
pt3dadd(242.627, 156.68, -0.1, 0.766)
pt3dadd(242.74, 156.638, -0.1, 0.78)
pt3dadd(242.851, 156.598, -0.1, 0.794)
pt3dadd(242.964, 156.556, -0.1, 0.808)
pt3dadd(243.077, 156.514, -0.1, 0.822)
pt3dadd(243.193, 156.488, -0.1, 0.838)
pt3dadd(243.312, 156.479, -0.1, 0.856)
pt3dadd(243.432, 156.469, -0.1, 0.874)
pt3dadd(243.547, 156.438, -0.1, 0.894)
pt3dadd(243.66, 156.398, -0.1, 0.916)
pt3dadd(243.775, 156.364, -0.1, 0.93)
pt3dadd(243.892, 156.337, -0.1, 0.93)
pt3dadd(244.009, 156.311, -0.1, 0.93)
pt3dadd(244.05, 156.208, -0.1, 0.92)
pt3dadd(244.075, 156.091, -0.1, 0.91)
pt3dadd(244.111, 155.977, -0.1, 0.882)
pt3dadd(244.165, 155.87, -0.1, 0.814)
pt3dadd(244.253, 155.79, -0.1, 0.766)
pt3dadd(244.346, 155.716, -0.1, 0.722)
pt3dadd(244.44, 155.64, -0.1, 0.678)
}
apic[8] {pt3dclear()
pt3dadd(181.14, 157.109, 6.956, 0.342)
pt3dadd(181.159, 157.088, 6.873, 0.392)
pt3dadd(181.188, 157.081, 6.768, 0.464)
pt3dadd(181.218, 157.075, 6.663, 0.536)
pt3dadd(181.247, 157.068, 6.558, 0.608)
pt3dadd(181.276, 157.061, 6.454, 0.68)
pt3dadd(181.304, 157.054, 6.349, 0.752)
pt3dadd(181.334, 157.046, 6.244, 0.824)
pt3dadd(181.363, 157.04, 6.139, 0.896)
pt3dadd(181.466, 157.064, 6.115, 0.904)
pt3dadd(181.577, 157.094, 6.102, 0.904)
pt3dadd(181.667, 157.132, 6.053, 0.904)
pt3dadd(181.742, 157.172, 5.981, 0.904)
pt3dadd(181.774, 157.208, 5.887, 0.904)
pt3dadd(181.8, 157.243, 5.79, 0.904)
pt3dadd(181.88, 157.3, 5.742, 0.904)
pt3dadd(181.968, 157.358, 5.701, 0.904)
pt3dadd(182.056, 157.418, 5.659, 0.904)
pt3dadd(182.148, 157.481, 5.647, 0.904)
pt3dadd(182.242, 157.543, 5.639, 0.904)
pt3dadd(182.321, 157.62, 5.631, 0.904)
pt3dadd(182.413, 157.682, 5.623, 0.904)
pt3dadd(182.507, 157.746, 5.615, 0.904)
pt3dadd(182.599, 157.808, 5.606, 0.904)
pt3dadd(182.694, 157.873, 5.598, 0.904)
pt3dadd(182.785, 157.936, 5.589, 0.904)
pt3dadd(182.872, 157.991, 5.541, 0.904)
pt3dadd(182.958, 158.046, 5.492, 0.904)
pt3dadd(183.043, 158.101, 5.444, 0.904)
pt3dadd(183.131, 158.158, 5.396, 0.904)
pt3dadd(183.209, 158.159, 5.316, 0.904)
pt3dadd(183.287, 158.154, 5.233, 0.904)
pt3dadd(183.362, 158.207, 5.175, 0.904)
pt3dadd(183.437, 158.273, 5.126, 0.904)
pt3dadd(183.497, 158.364, 5.118, 0.904)
pt3dadd(183.557, 158.455, 5.11, 0.904)
pt3dadd(183.623, 158.543, 5.102, 0.904)
pt3dadd(183.691, 158.63, 5.094, 0.904)
pt3dadd(183.792, 158.67, 5.085, 0.904)
pt3dadd(183.906, 158.69, 5.077, 0.904)
pt3dadd(184.021, 158.712, 5.069, 0.904)
pt3dadd(184.135, 158.732, 5.061, 0.904)
pt3dadd(184.254, 158.731, 5.053, 0.904)
pt3dadd(184.373, 158.719, 5.045, 0.904)
pt3dadd(184.493, 158.707, 5.037, 0.904)
pt3dadd(184.612, 158.696, 5.029, 0.904)
pt3dadd(184.727, 158.712, 5.017, 0.904)
pt3dadd(184.838, 158.741, 5.002, 0.904)
pt3dadd(184.951, 158.771, 4.988, 0.904)
}
}
proc shape3d_10() {
apic[8] { pt3dadd(185.062, 158.8, 4.973, 0.904)
pt3dadd(185.174, 158.828, 4.959, 0.904)
pt3dadd(185.272, 158.873, 4.93, 0.904)
pt3dadd(185.353, 158.938, 4.884, 0.904)
pt3dadd(185.456, 158.976, 4.865, 0.904)
pt3dadd(185.568, 159.004, 4.856, 0.904)
pt3dadd(185.678, 159.032, 4.837, 0.904)
pt3dadd(185.782, 159.061, 4.794, 0.904)
pt3dadd(185.868, 159.095, 4.734, 0.904)
pt3dadd(185.927, 159.136, 4.651, 0.904)
pt3dadd(185.96, 159.175, 4.559, 0.904)
pt3dadd(186.002, 159.206, 4.473, 0.904)
pt3dadd(186.104, 159.221, 4.418, 0.904)
pt3dadd(186.206, 159.235, 4.364, 0.904)
pt3dadd(186.31, 159.25, 4.309, 0.904)
pt3dadd(186.412, 159.264, 4.255, 0.904)
pt3dadd(186.499, 159.31, 4.202, 0.904)
pt3dadd(186.582, 159.367, 4.149, 0.904)
pt3dadd(186.671, 159.377, 4.078, 0.904)
pt3dadd(186.757, 159.388, 4.006, 0.904)
pt3dadd(186.776, 159.444, 3.918, 0.904)
pt3dadd(186.794, 159.505, 3.833, 0.904)
pt3dadd(186.793, 159.596, 3.774, 0.904)
pt3dadd(186.793, 159.688, 3.715, 0.904)
pt3dadd(186.792, 159.763, 3.638, 0.904)
pt3dadd(186.815, 159.839, 3.567, 0.904)
pt3dadd(186.858, 159.916, 3.503, 0.904)
pt3dadd(186.89, 160.002, 3.446, 0.904)
pt3dadd(186.917, 160.093, 3.392, 0.904)
pt3dadd(186.991, 160.168, 3.37, 0.904)
pt3dadd(187.078, 160.237, 3.356, 0.904)
pt3dadd(187.147, 160.322, 3.347, 0.904)
pt3dadd(187.147, 160.31, 3.339, 0.904)
pt3dadd(187.146, 160.298, 3.331, 0.904)
pt3dadd(187.146, 160.286, 3.323, 0.678)
pt3dadd(187.265, 160.274, 3.315, 0.728)
pt3dadd(187.385, 160.262, 3.306, 0.778)
pt3dadd(187.504, 160.25, 3.298, 0.828)
pt3dadd(187.624, 160.24, 3.29, 0.878)
pt3dadd(187.742, 160.228, 3.282, 0.93)
pt3dadd(187.862, 160.216, 3.274, 0.98)
pt3dadd(187.981, 160.204, 3.266, 1.03)
pt3dadd(188.101, 160.192, 3.254, 1.038)
pt3dadd(188.22, 160.18, 3.242, 1.048)
pt3dadd(188.338, 160.168, 3.227, 1.054)
pt3dadd(188.448, 160.157, 3.18, 1.042)
pt3dadd(188.557, 160.145, 3.133, 1.032)
pt3dadd(188.639, 160.133, 3.054, 1.02)
pt3dadd(188.712, 160.121, 2.968, 1.008)
pt3dadd(188.792, 160.109, 2.885, 1.02)
pt3dadd(188.873, 160.097, 2.804, 1.044)
pt3dadd(188.965, 160.085, 2.733, 1.074)
pt3dadd(189.065, 160.074, 2.671, 1.106)
pt3dadd(189.161, 160.062, 2.603, 1.11)
pt3dadd(189.256, 160.05, 2.534, 1.116)
pt3dadd(189.352, 160.038, 2.466, 1.12)
pt3dadd(189.446, 160.026, 2.398, 1.126)
pt3dadd(189.542, 160.012, 2.332, 1.13)
pt3dadd(189.65, 159.984, 2.283, 1.13)
pt3dadd(189.757, 159.956, 2.233, 1.13)
pt3dadd(189.865, 159.928, 2.184, 1.13)
pt3dadd(189.972, 159.899, 2.134, 1.13)
pt3dadd(190.073, 159.869, 2.076, 1.142)
pt3dadd(190.156, 159.836, 1.999, 1.18)
pt3dadd(190.231, 159.8, 1.916, 1.24)
pt3dadd(190.292, 159.761, 1.827, 1.332)
pt3dadd(190.336, 159.684, 1.758, 1.444)
pt3dadd(190.354, 159.562, 1.712, 1.578)
pt3dadd(190.372, 159.438, 1.674, 1.692)
pt3dadd(190.387, 159.31, 1.646, 1.78)
pt3dadd(190.411, 159.19, 1.615, 1.862)
pt3dadd(190.505, 159.15, 1.548, 1.902)
pt3dadd(190.591, 159.116, 1.476, 1.918)
pt3dadd(190.676, 159.106, 1.398, 1.846)
pt3dadd(190.77, 159.094, 1.331, 1.808)
pt3dadd(190.886, 159.082, 1.299, 1.808)
pt3dadd(191.005, 159.07, 1.284, 1.798)
pt3dadd(191.124, 159.044, 1.276, 1.774)
pt3dadd(191.238, 159, 1.268, 1.754)
pt3dadd(191.353, 158.954, 1.26, 1.734)
pt3dadd(191.459, 158.891, 1.252, 1.7)
pt3dadd(191.567, 158.825, 1.244, 1.666)
pt3dadd(191.678, 158.774, 1.235, 1.634)
pt3dadd(191.792, 158.736, 1.209, 1.624)
pt3dadd(191.908, 158.698, 1.182, 1.614)
pt3dadd(192.02, 158.66, 1.154, 1.604)
pt3dadd(192.136, 158.622, 1.127, 1.594)
pt3dadd(192.248, 158.585, 1.099, 1.584)
pt3dadd(192.368, 158.568, 1.087, 1.576)
pt3dadd(192.487, 158.556, 1.079, 1.57)
pt3dadd(192.607, 158.544, 1.071, 1.562)
pt3dadd(192.726, 158.532, 1.063, 1.554)
pt3dadd(192.846, 158.52, 1.055, 1.548)
pt3dadd(192.965, 158.509, 1.047, 1.54)
pt3dadd(193.085, 158.497, 1.039, 1.534)
pt3dadd(193.19, 158.464, 0.995, 1.51)
pt3dadd(193.295, 158.426, 0.944, 1.482)
pt3dadd(193.399, 158.388, 0.892, 1.454)
pt3dadd(193.502, 158.35, 0.84, 1.428)
pt3dadd(193.61, 158.312, 0.798, 1.404)
pt3dadd(193.609, 158.302, 0.79, 1.404)
pt3dadd(193.728, 158.27, 0.782, 1.396)
pt3dadd(193.844, 158.238, 0.774, 1.388)
pt3dadd(193.963, 158.207, 0.766, 1.38)
pt3dadd(194.081, 158.176, 0.758, 1.372)
pt3dadd(194.198, 158.143, 0.75, 1.364)
pt3dadd(194.316, 158.113, 0.742, 1.356)
pt3dadd(194.435, 158.089, 0.734, 1.352)
pt3dadd(194.554, 158.064, 0.726, 1.348)
pt3dadd(194.672, 158.04, 0.718, 1.344)
pt3dadd(194.791, 158.015, 0.71, 1.34)
pt3dadd(194.909, 157.991, 0.702, 1.336)
pt3dadd(195.029, 157.966, 0.694, 1.332)
pt3dadd(195.142, 157.945, 0.659, 1.33)
pt3dadd(195.254, 157.927, 0.617, 1.33)
pt3dadd(195.365, 157.907, 0.575, 1.33)
pt3dadd(195.478, 157.888, 0.532, 1.33)
pt3dadd(195.589, 157.868, 0.49, 1.33)
pt3dadd(195.695, 157.838, 0.44, 1.33)
pt3dadd(195.794, 157.799, 0.382, 1.33)
pt3dadd(195.895, 157.76, 0.325, 1.33)
pt3dadd(195.995, 157.723, 0.267, 1.33)
pt3dadd(196.097, 157.686, 0.21, 1.332)
pt3dadd(196.206, 157.674, 0.163, 1.34)
pt3dadd(196.315, 157.662, 0.115, 1.35)
pt3dadd(196.424, 157.65, 0.067, 1.36)
pt3dadd(196.534, 157.638, 0.02, 1.37)
pt3dadd(196.644, 157.626, -0.028, 1.378)
pt3dadd(196.75, 157.596, -0.077, 1.406)
pt3dadd(196.856, 157.558, -0.126, 1.438)
pt3dadd(196.962, 157.52, -0.174, 1.47)
pt3dadd(197.069, 157.482, -0.223, 1.502)
pt3dadd(197.174, 157.446, -0.268, 1.536)
pt3dadd(197.294, 157.418, -0.276, 1.572)
pt3dadd(197.412, 157.392, -0.284, 1.61)
pt3dadd(197.528, 157.357, -0.298, 1.632)
pt3dadd(197.64, 157.308, -0.322, 1.632)
pt3dadd(197.743, 157.268, -0.36, 1.616)
pt3dadd(197.832, 157.256, -0.437, 1.556)
pt3dadd(197.918, 157.244, -0.513, 1.5)
pt3dadd(198.006, 157.232, -0.589, 1.452)
pt3dadd(198.094, 157.22, -0.663, 1.406)
pt3dadd(198.212, 157.206, -0.69, 1.394)
pt3dadd(198.329, 157.192, -0.716, 1.382)
pt3dadd(198.446, 157.176, -0.743, 1.37)
pt3dadd(198.563, 157.16, -0.77, 1.358)
pt3dadd(198.638, 157.064, -0.781, 1.346)
pt3dadd(198.706, 156.953, -0.789, 1.334)
pt3dadd(198.749, 156.83, -0.797, 1.33)
pt3dadd(198.823, 156.73, -0.805, 1.342)
pt3dadd(198.905, 156.63, -0.813, 1.354)
pt3dadd(199.007, 156.562, -0.833, 1.384)
pt3dadd(199.116, 156.505, -0.857, 1.42)
pt3dadd(199.22, 156.479, -0.905, 1.448)
pt3dadd(199.324, 156.467, -0.964, 1.47)
pt3dadd(199.418, 156.455, -1.031, 1.494)
pt3dadd(199.505, 156.444, -1.108, 1.518)
pt3dadd(199.6, 156.414, -1.167, 1.54)
pt3dadd(199.704, 156.353, -1.199, 1.564)
pt3dadd(199.811, 156.292, -1.231, 1.586)
pt3dadd(199.913, 156.228, -1.262, 1.61)
pt3dadd(199.996, 156.132, -1.287, 1.636)
pt3dadd(200.084, 156.049, -1.314, 1.658)
pt3dadd(200.2, 156.025, -1.343, 1.658)
pt3dadd(200.316, 156.001, -1.373, 1.658)
pt3dadd(200.431, 155.977, -1.402, 1.654)
pt3dadd(200.551, 155.965, -1.422, 1.626)
pt3dadd(200.669, 155.953, -1.443, 1.598)
pt3dadd(200.786, 155.928, -1.458, 1.582)
pt3dadd(200.9, 155.884, -1.466, 1.582)
pt3dadd(200.982, 155.791, -1.474, 1.642)
pt3dadd(201.035, 155.671, -1.482, 1.754)
pt3dadd(201.077, 155.548, -1.49, 1.8)
pt3dadd(201.096, 155.418, -1.509, 1.76)
pt3dadd(201.108, 155.297, -1.546, 1.65)
pt3dadd(201.178, 155.201, -1.595, 1.6)
pt3dadd(201.247, 155.105, -1.643, 1.552)
pt3dadd(201.318, 155.01, -1.692, 1.504)
pt3dadd(201.389, 154.915, -1.739, 1.454)
pt3dadd(201.499, 154.858, -1.747, 1.378)
pt3dadd(201.61, 154.799, -1.755, 1.302)
pt3dadd(201.672, 154.693, -1.763, 1.232)
pt3dadd(201.718, 154.571, -1.771, 1.166)
pt3dadd(201.794, 154.488, -1.779, 1.126)
pt3dadd(201.912, 154.457, -1.787, 1.116)
pt3dadd(202.03, 154.424, -1.795, 1.106)
pt3dadd(202.144, 154.38, -1.807, 1.104)
pt3dadd(202.259, 154.333, -1.82, 1.104)
pt3dadd(202.346, 154.288, -1.872, 1.116)
pt3dadd(202.405, 154.253, -1.964, 1.128)
pt3dadd(202.451, 154.241, -2.064, 1.116)
pt3dadd(202.496, 154.23, -2.164, 1.106)
pt3dadd(202.596, 154.176, -2.215, 1.092)
pt3dadd(202.696, 154.12, -2.26, 1.08)
pt3dadd(202.802, 154.054, -2.268, 1.08)
pt3dadd(202.909, 153.988, -2.276, 1.08)
pt3dadd(203.027, 153.956, -2.288, 1.106)
pt3dadd(203.144, 153.929, -2.3, 1.134)
pt3dadd(203.26, 153.896, -2.32, 1.166)
pt3dadd(203.368, 153.848, -2.358, 1.204)
}
}
proc shape3d_11() {
apic[8] { pt3dadd(203.476, 153.8, -2.397, 1.242)
pt3dadd(203.584, 153.751, -2.435, 1.28)
pt3dadd(203.597, 153.63, -2.479, 1.36)
pt3dadd(203.608, 153.506, -2.523, 1.442)
pt3dadd(203.645, 153.385, -2.548, 1.666)
pt3dadd(203.726, 153.287, -2.556, 1.75)
pt3dadd(203.807, 153.187, -2.565, 1.832)
pt3dadd(203.911, 153.114, -2.573, 1.878)
pt3dadd(204.013, 153.041, -2.581, 1.924)
pt3dadd(204.124, 152.987, -2.601, 1.924)
pt3dadd(204.235, 152.938, -2.625, 1.912)
pt3dadd(204.343, 152.909, -2.669, 1.886)
pt3dadd(204.448, 152.891, -2.724, 1.85)
pt3dadd(204.527, 152.83, -2.779, 1.766)
pt3dadd(204.599, 152.74, -2.824, 1.672)
pt3dadd(204.703, 152.674, -2.848, 1.64)
pt3dadd(204.808, 152.608, -2.873, 1.608)
pt3dadd(204.912, 152.542, -2.898, 1.574)
pt3dadd(205.018, 152.476, -2.922, 1.542)
pt3dadd(205.124, 152.416, -2.947, 1.476)
pt3dadd(205.234, 152.359, -2.971, 1.392)
pt3dadd(205.339, 152.324, -3.013, 1.322)
pt3dadd(205.446, 152.306, -3.067, 1.264)
pt3dadd(205.528, 152.291, -3.141, 1.216)
pt3dadd(205.58, 152.279, -3.239, 1.182)
pt3dadd(205.637, 152.267, -3.335, 1.152)
pt3dadd(205.704, 152.256, -3.425, 1.142)
pt3dadd(205.77, 152.244, -3.516, 1.13)
pt3dadd(205.828, 152.222, -3.611, 1.13)
pt3dadd(205.87, 152.176, -3.706, 1.138)
pt3dadd(205.902, 152.114, -3.801, 1.152)
pt3dadd(205.988, 152.084, -3.867, 1.18)
pt3dadd(206.094, 152.066, -3.922, 1.216)
pt3dadd(206.207, 152.053, -3.956, 1.258)
pt3dadd(206.326, 152.041, -3.977, 1.304)
pt3dadd(206.444, 152.029, -3.997, 1.352)
pt3dadd(206.563, 152.017, -4.006, 1.394)
pt3dadd(206.683, 152.005, -4.015, 1.436)
pt3dadd(206.802, 151.993, -4.023, 1.478)
pt3dadd(206.922, 151.975, -4.031, 1.518)
pt3dadd(207.04, 151.957, -4.039, 1.556)
pt3dadd(207.157, 151.926, -4.059, 1.556)
pt3dadd(207.274, 151.895, -4.079, 1.556)
pt3dadd(207.39, 151.864, -4.099, 1.556)
pt3dadd(207.508, 151.832, -4.119, 1.556)
pt3dadd(207.624, 151.801, -4.139, 1.556)
pt3dadd(207.736, 151.771, -4.175, 1.552)
pt3dadd(207.839, 151.742, -4.23, 1.542)
pt3dadd(207.944, 151.714, -4.285, 1.53)
pt3dadd(208.048, 151.685, -4.34, 1.52)
pt3dadd(208.152, 151.656, -4.396, 1.51)
pt3dadd(208.261, 151.618, -4.433, 1.492)
pt3dadd(208.374, 151.576, -4.463, 1.472)
pt3dadd(208.487, 151.535, -4.494, 1.452)
pt3dadd(208.6, 151.494, -4.524, 1.432)
pt3dadd(208.711, 151.452, -4.555, 1.41)
pt3dadd(208.829, 151.433, -4.568, 1.394)
pt3dadd(208.949, 151.418, -4.576, 1.38)
pt3dadd(209.068, 151.405, -4.584, 1.366)
pt3dadd(209.188, 151.391, -4.592, 1.352)
pt3dadd(209.306, 151.376, -4.6, 1.336)
pt3dadd(209.426, 151.364, -4.608, 1.322)
pt3dadd(209.545, 151.35, -4.616, 1.308)
pt3dadd(209.665, 151.338, -4.624, 1.29)
pt3dadd(209.784, 151.326, -4.632, 1.272)
pt3dadd(209.904, 151.314, -4.64, 1.254)
pt3dadd(210.023, 151.302, -4.648, 1.236)
pt3dadd(210.143, 151.29, -4.656, 1.218)
pt3dadd(210.262, 151.279, -4.665, 1.2)
pt3dadd(210.38, 151.267, -4.673, 1.182)
pt3dadd(210.498, 151.255, -4.701, 1.16)
pt3dadd(210.613, 151.243, -4.732, 1.14)
pt3dadd(210.73, 151.231, -4.763, 1.118)
pt3dadd(210.846, 151.219, -4.794, 1.096)
pt3dadd(210.962, 151.207, -4.825, 1.074)
pt3dadd(211.078, 151.196, -4.856, 1.054)
pt3dadd(211.193, 151.184, -4.894, 1.036)
pt3dadd(211.306, 151.172, -4.932, 1.018)
pt3dadd(211.42, 151.16, -4.97, 1)
pt3dadd(211.534, 151.148, -5.008, 0.982)
pt3dadd(211.648, 151.136, -5.046, 0.964)
pt3dadd(211.764, 151.124, -5.069, 0.954)
pt3dadd(211.884, 151.114, -5.077, 0.954)
pt3dadd(212.003, 151.102, -5.085, 0.954)
pt3dadd(212.122, 151.09, -5.094, 0.978)
pt3dadd(212.242, 151.078, -5.102, 1.028)
pt3dadd(212.36, 151.066, -5.11, 1.078)
pt3dadd(212.478, 151.054, -5.131, 1.15)
pt3dadd(212.592, 151.042, -5.167, 1.242)
pt3dadd(212.706, 151.031, -5.204, 1.338)
pt3dadd(212.8, 151.019, -5.275, 1.454)
pt3dadd(212.893, 151.007, -5.345, 1.572)
pt3dadd(212.986, 150.995, -5.416, 1.728)
pt3dadd(213.082, 150.983, -5.483, 1.848)
pt3dadd(213.179, 150.971, -5.548, 1.93)
pt3dadd(213.252, 150.959, -5.627, 1.994)
pt3dadd(213.271, 150.948, -5.733, 2.022)
pt3dadd(213.29, 150.936, -5.84, 2.052)
pt3dadd(213.341, 150.924, -5.937, 2.042)
pt3dadd(213.4, 150.912, -6.032, 2.02)
pt3dadd(213.493, 150.9, -6.088, 1.972)
pt3dadd(213.61, 150.888, -6.113, 1.904)
pt3dadd(213.728, 150.876, -6.138, 1.836)
pt3dadd(213.845, 150.865, -6.165, 1.706)
pt3dadd(213.962, 150.847, -6.191, 1.594)
pt3dadd(214.078, 150.814, -6.212, 1.544)
pt3dadd(214.195, 150.78, -6.232, 1.494)
pt3dadd(214.194, 150.768, -6.24, 1.494)
pt3dadd(214.31, 150.733, -6.26, 1.442)
pt3dadd(214.427, 150.7, -6.28, 1.392)
pt3dadd(214.542, 150.667, -6.301, 1.342)
pt3dadd(214.661, 150.635, -6.311, 1.304)
pt3dadd(214.777, 150.604, -6.319, 1.272)
pt3dadd(214.896, 150.571, -6.327, 1.238)
pt3dadd(215.014, 150.54, -6.335, 1.206)
pt3dadd(215.131, 150.508, -6.344, 1.172)
pt3dadd(215.249, 150.476, -6.352, 1.14)
pt3dadd(215.366, 150.46, -6.373, 1.116)
pt3dadd(215.484, 150.448, -6.399, 1.094)
pt3dadd(215.602, 150.436, -6.426, 1.074)
pt3dadd(215.718, 150.424, -6.453, 1.052)
pt3dadd(215.836, 150.412, -6.479, 1.032)
pt3dadd(215.953, 150.4, -6.506, 1.01)
pt3dadd(216.061, 150.37, -6.548, 1)
pt3dadd(216.168, 150.332, -6.597, 0.996)
pt3dadd(216.167, 150.32, -6.605, 0.996)
pt3dadd(216.274, 150.282, -6.654, 0.99)
pt3dadd(216.378, 150.245, -6.703, 0.984)
pt3dadd(216.485, 150.209, -6.751, 0.978)
pt3dadd(216.594, 150.197, -6.799, 0.974)
pt3dadd(216.704, 150.185, -6.847, 0.97)
pt3dadd(216.814, 150.174, -6.895, 0.964)
pt3dadd(216.924, 150.162, -6.942, 0.96)
pt3dadd(217.032, 150.15, -6.99, 0.956)
pt3dadd(217.138, 150.138, -7.045, 0.944)
pt3dadd(217.241, 150.126, -7.103, 0.928)
pt3dadd(217.344, 150.114, -7.161, 0.914)
pt3dadd(217.447, 150.102, -7.219, 0.9)
pt3dadd(217.55, 150.091, -7.277, 0.884)
pt3dadd(217.65, 150.046, -7.328, 0.864)
pt3dadd(217.746, 149.981, -7.375, 0.84)
pt3dadd(217.842, 149.916, -7.423, 0.816)
pt3dadd(217.938, 149.85, -7.47, 0.794)
pt3dadd(218.03, 149.785, -7.523, 0.768)
pt3dadd(218.112, 149.72, -7.588, 0.74)
pt3dadd(218.196, 149.676, -7.66, 0.728)
pt3dadd(218.278, 149.642, -7.738, 0.728)
pt3dadd(218.386, 149.624, -7.777, 0.742)
pt3dadd(218.503, 149.612, -7.797, 0.76)
pt3dadd(218.621, 149.6, -7.818, 0.778)
pt3dadd(218.741, 149.588, -7.826, 0.804)
pt3dadd(218.86, 149.576, -7.834, 0.828)
pt3dadd(218.98, 149.566, -7.842, 0.854)
pt3dadd(219.098, 149.554, -7.85, 0.904)
pt3dadd(219.218, 149.542, -7.858, 0.954)
pt3dadd(219.337, 149.53, -7.866, 0.964)
pt3dadd(219.457, 149.518, -7.874, 0.976)
pt3dadd(219.576, 149.506, -7.882, 0.986)
pt3dadd(219.696, 149.494, -7.89, 0.998)
pt3dadd(219.815, 149.483, -7.898, 1.008)
pt3dadd(219.935, 149.471, -7.906, 1.018)
pt3dadd(220.054, 149.459, -7.915, 1.03)
pt3dadd(220.171, 149.447, -7.939, 1.026)
pt3dadd(220.29, 149.435, -7.963, 1.022)
pt3dadd(220.406, 149.423, -7.988, 1.018)
pt3dadd(220.525, 149.411, -8.012, 1.012)
pt3dadd(220.643, 149.4, -8.037, 1.008)
pt3dadd(220.76, 149.388, -8.061, 1.004)
pt3dadd(220.879, 149.376, -8.071, 0.99)
pt3dadd(220.999, 149.364, -8.079, 0.972)
pt3dadd(221.118, 149.352, -8.087, 0.956)
pt3dadd(221.238, 149.34, -8.095, 0.932)
pt3dadd(221.357, 149.329, -8.103, 0.906)
pt3dadd(221.477, 149.317, -8.111, 0.882)
pt3dadd(221.596, 149.305, -8.123, 0.872)
pt3dadd(221.716, 149.293, -8.135, 0.862)
pt3dadd(221.833, 149.281, -8.148, 0.854)
pt3dadd(221.893, 149.269, -8.243, 0.83)
pt3dadd(221.953, 149.257, -8.337, 0.808)
pt3dadd(221.963, 149.246, -8.443, 0.814)
pt3dadd(221.963, 149.234, -8.551, 0.826)
pt3dadd(222.006, 149.222, -8.65, 0.848)
pt3dadd(222.06, 149.21, -8.747, 0.87)
pt3dadd(222.138, 149.195, -8.827, 0.908)
pt3dadd(222.234, 149.177, -8.894, 0.956)
pt3dadd(222.319, 149.134, -8.963, 0.994)
pt3dadd(222.395, 149.068, -9.035, 1.022)
pt3dadd(222.499, 149.04, -9.079, 1.03)
pt3dadd(222.614, 149.023, -9.116, 1.03)
pt3dadd(222.73, 149.008, -9.149, 1.024)
pt3dadd(222.846, 148.996, -9.177, 1.008)
pt3dadd(222.965, 148.984, -9.198, 0.996)
pt3dadd(223.082, 148.972, -9.216, 0.984)
pt3dadd(223.202, 148.961, -9.235, 0.972)
pt3dadd(223.32, 148.949, -9.253, 0.96)
pt3dadd(223.44, 148.937, -9.272, 0.948)
pt3dadd(223.558, 148.925, -9.29, 0.936)
pt3dadd(223.676, 148.92, -9.305, 0.924)
pt3dadd(223.794, 148.928, -9.313, 0.912)
pt3dadd(223.794, 148.916, -9.321, 0.912)
}
}
proc shape3d_12() {
apic[8] { pt3dadd(223.912, 148.925, -9.329, 0.9)
pt3dadd(224.029, 148.933, -9.337, 0.888)
pt3dadd(224.147, 148.94, -9.345, 0.874)
pt3dadd(224.264, 148.948, -9.353, 0.862)
pt3dadd(224.383, 148.95, -9.361, 0.85)
pt3dadd(224.502, 148.938, -9.369, 0.836)
pt3dadd(224.622, 148.926, -9.377, 0.82)
pt3dadd(224.741, 148.915, -9.385, 0.806)
pt3dadd(224.861, 148.903, -9.394, 0.792)
pt3dadd(224.98, 148.891, -9.402, 0.778)
pt3dadd(225.1, 148.879, -9.41, 0.764)
pt3dadd(225.217, 148.873, -9.421, 0.75)
pt3dadd(225.334, 148.884, -9.442, 0.742)
pt3dadd(225.332, 148.872, -9.45, 0.742)
pt3dadd(225.45, 148.883, -9.47, 0.732)
pt3dadd(225.566, 148.892, -9.49, 0.722)
pt3dadd(225.682, 148.903, -9.51, 0.714)
pt3dadd(225.799, 148.913, -9.531, 0.704)
pt3dadd(225.916, 148.904, -9.555, 0.704)
pt3dadd(226.034, 148.892, -9.579, 0.704)
pt3dadd(226.151, 148.88, -9.604, 0.704)
pt3dadd(226.27, 148.87, -9.628, 0.704)
pt3dadd(226.387, 148.858, -9.653, 0.704)
pt3dadd(226.505, 148.846, -9.677, 0.704)
pt3dadd(226.62, 148.852, -9.706, 0.71)
pt3dadd(226.734, 148.862, -9.735, 0.72)
pt3dadd(226.848, 148.874, -9.765, 0.73)
pt3dadd(226.963, 148.885, -9.795, 0.74)
pt3dadd(227.076, 148.898, -9.825, 0.75)
pt3dadd(227.191, 148.895, -9.854, 0.766)
pt3dadd(227.309, 148.883, -9.883, 0.788)
pt3dadd(227.425, 148.871, -9.911, 0.81)
pt3dadd(227.543, 148.859, -9.94, 0.83)
pt3dadd(227.659, 148.847, -9.969, 0.852)
pt3dadd(227.776, 148.835, -9.998, 0.874)
pt3dadd(227.894, 148.824, -10.011, 0.892)
pt3dadd(228.014, 148.812, -10.019, 0.91)
pt3dadd(228.133, 148.8, -10.027, 0.928)
pt3dadd(228.253, 148.788, -10.036, 0.946)
pt3dadd(228.372, 148.776, -10.043, 0.964)
pt3dadd(228.492, 148.764, -10.052, 0.982)
pt3dadd(228.611, 148.752, -10.06, 1)
pt3dadd(228.722, 148.741, -10.097, 1.018)
pt3dadd(228.833, 148.729, -10.144, 1.036)
pt3dadd(228.941, 148.717, -10.192, 1.056)
pt3dadd(229.051, 148.705, -10.24, 1.074)
pt3dadd(229.16, 148.693, -10.287, 1.094)
pt3dadd(229.26, 148.672, -10.346, 1.104)
pt3dadd(229.344, 148.636, -10.422, 1.104)
pt3dadd(229.428, 148.601, -10.499, 1.104)
pt3dadd(229.512, 148.564, -10.575, 1.104)
pt3dadd(229.596, 148.528, -10.651, 1.104)
pt3dadd(229.708, 148.513, -10.694, 1.114)
pt3dadd(229.819, 148.499, -10.738, 1.124)
pt3dadd(229.931, 148.484, -10.781, 1.132)
pt3dadd(230.041, 148.47, -10.825, 1.142)
pt3dadd(230.154, 148.457, -10.868, 1.152)
pt3dadd(230.264, 148.444, -10.913, 1.168)
pt3dadd(230.376, 148.432, -10.958, 1.186)
pt3dadd(230.485, 148.42, -11.003, 1.204)
pt3dadd(230.597, 148.408, -11.048, 1.224)
pt3dadd(230.707, 148.396, -11.094, 1.242)
pt3dadd(230.82, 148.384, -11.134, 1.264)
pt3dadd(230.936, 148.373, -11.163, 1.294)
pt3dadd(231.054, 148.361, -11.192, 1.322)
pt3dadd(231.17, 148.349, -11.221, 1.352)
pt3dadd(231.288, 148.337, -11.249, 1.382)
pt3dadd(231.404, 148.325, -11.278, 1.412)
pt3dadd(231.509, 148.313, -11.325, 1.44)
pt3dadd(231.589, 148.301, -11.407, 1.464)
pt3dadd(231.673, 148.285, -11.484, 1.478)
pt3dadd(231.769, 148.253, -11.55, 1.466)
pt3dadd(231.869, 148.217, -11.6, 1.44)
pt3dadd(231.984, 148.17, -11.613, 1.386)
pt3dadd(232.098, 148.123, -11.626, 1.332)
pt3dadd(232.218, 148.11, -11.634, 1.306)
pt3dadd(232.337, 148.098, -11.642, 1.282)
pt3dadd(232.457, 148.087, -11.65, 1.256)
pt3dadd(232.576, 148.075, -11.658, 1.268)
pt3dadd(232.696, 148.063, -11.666, 1.28)
pt3dadd(232.799, 148.026, -11.716, 1.308)
pt3dadd(232.904, 147.988, -11.768, 1.334)
pt3dadd(233.008, 147.949, -11.82, 1.362)
pt3dadd(233.111, 147.911, -11.872, 1.39)
pt3dadd(233.204, 147.872, -11.935, 1.418)
pt3dadd(233.276, 147.83, -12.017, 1.446)
pt3dadd(233.351, 147.787, -12.1, 1.476)
pt3dadd(233.424, 147.744, -12.182, 1.504)
pt3dadd(233.496, 147.701, -12.265, 1.532)
pt3dadd(233.537, 147.638, -12.357, 1.532)
pt3dadd(233.587, 147.584, -12.447, 1.524)
pt3dadd(233.664, 147.568, -12.531, 1.488)
pt3dadd(233.738, 147.544, -12.616, 1.448)
pt3dadd(233.786, 147.488, -12.707, 1.396)
pt3dadd(233.851, 147.43, -12.779, 1.346)
pt3dadd(233.954, 147.359, -12.798, 1.31)
pt3dadd(234.058, 147.296, -12.824, 1.272)
pt3dadd(234.163, 147.265, -12.876, 1.236)
pt3dadd(234.265, 147.239, -12.932, 1.19)
pt3dadd(234.34, 147.227, -13.016, 1.138)
pt3dadd(234.364, 147.227, -13.12, 1.13)
pt3dadd(234.365, 147.275, -13.212, 1.122)
pt3dadd(234.373, 147.361, -13.276, 1.03)
pt3dadd(234.445, 147.428, -13.324, 0.922)
pt3dadd(234.527, 147.491, -13.368, 0.824)
pt3dadd(234.62, 147.556, -13.376, 0.73)
pt3dadd(234.714, 147.618, -13.384, 0.636)
pt3dadd(234.714, 147.606, -13.392, 0.636)
}
apic[9] {pt3dclear()
pt3dadd(153.553, 147.39, 11.344, 1.582)
pt3dadd(153.518, 147.439, 11.315, 1.572)
pt3dadd(153.458, 147.526, 11.267, 1.554)
pt3dadd(153.398, 147.611, 11.218, 1.538)
pt3dadd(153.337, 147.697, 11.169, 1.52)
pt3dadd(153.277, 147.782, 11.12, 1.502)
pt3dadd(153.215, 147.869, 11.073, 1.498)
pt3dadd(153.151, 147.955, 11.029, 1.5)
pt3dadd(153.088, 148.042, 10.984, 1.502)
pt3dadd(153.024, 148.128, 10.939, 1.506)
pt3dadd(152.96, 148.214, 10.894, 1.508)
pt3dadd(152.897, 148.301, 10.85, 1.51)
pt3dadd(152.833, 148.387, 10.805, 1.514)
pt3dadd(152.77, 148.474, 10.76, 1.516)
pt3dadd(152.706, 148.56, 10.715, 1.518)
pt3dadd(152.642, 148.646, 10.671, 1.52)
pt3dadd(152.57, 148.734, 10.639, 1.582)
pt3dadd(152.495, 148.822, 10.613, 1.666)
pt3dadd(152.419, 148.909, 10.587, 1.752)
pt3dadd(152.344, 148.998, 10.561, 1.838)
pt3dadd(152.269, 149.086, 10.535, 1.924)
pt3dadd(152.194, 149.173, 10.509, 2.01)
pt3dadd(152.118, 149.261, 10.483, 2.096)
pt3dadd(152.042, 149.35, 10.458, 2.182)
pt3dadd(151.967, 149.437, 10.432, 2.268)
pt3dadd(151.891, 149.525, 10.406, 2.354)
pt3dadd(151.823, 149.62, 10.385, 2.378)
pt3dadd(151.757, 149.718, 10.366, 2.376)
pt3dadd(151.691, 149.815, 10.347, 2.374)
pt3dadd(151.626, 149.914, 10.328, 2.372)
pt3dadd(151.56, 150.011, 10.309, 2.37)
pt3dadd(151.494, 150.109, 10.291, 2.366)
pt3dadd(151.429, 150.208, 10.272, 2.364)
pt3dadd(151.363, 150.305, 10.253, 2.362)
pt3dadd(151.297, 150.403, 10.234, 2.36)
pt3dadd(151.232, 150.502, 10.215, 2.356)
pt3dadd(151.171, 150.602, 10.2, 2.316)
pt3dadd(151.111, 150.706, 10.187, 2.26)
pt3dadd(151.052, 150.809, 10.173, 2.206)
pt3dadd(150.992, 150.912, 10.159, 2.15)
pt3dadd(150.934, 151.014, 10.146, 2.096)
pt3dadd(150.874, 151.117, 10.132, 2.04)
pt3dadd(150.815, 151.22, 10.118, 1.986)
pt3dadd(150.755, 151.324, 10.104, 1.93)
pt3dadd(150.696, 151.426, 10.091, 1.876)
pt3dadd(150.636, 151.529, 10.077, 1.822)
pt3dadd(150.564, 151.625, 10.069, 1.808)
pt3dadd(150.49, 151.718, 10.063, 1.808)
pt3dadd(150.414, 151.811, 10.057, 1.808)
pt3dadd(150.338, 151.904, 10.051, 1.808)
pt3dadd(150.264, 151.998, 10.045, 1.808)
pt3dadd(150.188, 152.09, 10.038, 1.808)
pt3dadd(150.113, 152.184, 10.032, 1.808)
pt3dadd(150.038, 152.278, 10.026, 1.808)
pt3dadd(149.963, 152.37, 10.02, 1.808)
pt3dadd(149.887, 152.464, 10.014, 1.808)
pt3dadd(149.812, 152.556, 10.007, 1.806)
pt3dadd(149.735, 152.647, 10.001, 1.804)
pt3dadd(149.658, 152.74, 9.994, 1.802)
pt3dadd(149.58, 152.831, 9.987, 1.8)
pt3dadd(149.503, 152.923, 9.98, 1.798)
pt3dadd(149.426, 153.014, 9.973, 1.796)
pt3dadd(149.35, 153.107, 9.967, 1.794)
pt3dadd(149.273, 153.198, 9.96, 1.792)
pt3dadd(149.196, 153.29, 9.953, 1.79)
pt3dadd(149.119, 153.382, 9.946, 1.788)
pt3dadd(149.036, 153.468, 9.937, 1.778)
pt3dadd(148.952, 153.552, 9.927, 1.766)
pt3dadd(148.867, 153.637, 9.918, 1.756)
pt3dadd(148.783, 153.721, 9.908, 1.744)
pt3dadd(148.699, 153.805, 9.898, 1.732)
pt3dadd(148.614, 153.89, 9.888, 1.72)
pt3dadd(148.53, 153.974, 9.878, 1.71)
pt3dadd(148.446, 154.058, 9.869, 1.698)
pt3dadd(148.361, 154.144, 9.859, 1.686)
pt3dadd(148.277, 154.228, 9.849, 1.674)
pt3dadd(148.189, 154.309, 9.835, 1.662)
pt3dadd(148.102, 154.388, 9.82, 1.646)
pt3dadd(148.014, 154.468, 9.805, 1.632)
pt3dadd(147.926, 154.548, 9.79, 1.618)
pt3dadd(147.838, 154.627, 9.774, 1.604)
pt3dadd(147.75, 154.706, 9.759, 1.59)
pt3dadd(147.662, 154.787, 9.744, 1.576)
pt3dadd(147.575, 154.866, 9.729, 1.56)
pt3dadd(147.486, 154.945, 9.714, 1.546)
pt3dadd(147.398, 155.026, 9.698, 1.532)
pt3dadd(147.304, 155.087, 9.667, 1.51)
pt3dadd(147.206, 155.146, 9.633, 1.486)
pt3dadd(147.11, 155.204, 9.6, 1.462)
pt3dadd(147.013, 155.263, 9.566, 1.44)
pt3dadd(146.917, 155.322, 9.532, 1.416)
pt3dadd(146.821, 155.381, 9.498, 1.392)
}
}
proc shape3d_13() {
apic[9] { pt3dadd(146.724, 155.44, 9.464, 1.368)
pt3dadd(146.628, 155.497, 9.43, 1.346)
pt3dadd(146.531, 155.556, 9.397, 1.322)
pt3dadd(146.435, 155.615, 9.363, 1.298)
pt3dadd(146.339, 155.677, 9.332, 1.296)
pt3dadd(146.244, 155.741, 9.302, 1.296)
pt3dadd(146.148, 155.803, 9.271, 1.298)
pt3dadd(146.052, 155.866, 9.241, 1.298)
pt3dadd(145.957, 155.929, 9.211, 1.298)
pt3dadd(145.861, 155.992, 9.18, 1.3)
pt3dadd(145.766, 156.054, 9.15, 1.3)
pt3dadd(145.67, 156.118, 9.12, 1.3)
pt3dadd(145.574, 156.18, 9.089, 1.302)
pt3dadd(145.48, 156.242, 9.059, 1.302)
pt3dadd(145.386, 156.313, 9.036, 1.354)
pt3dadd(145.294, 156.385, 9.014, 1.41)
pt3dadd(145.201, 156.457, 8.993, 1.468)
pt3dadd(145.109, 156.529, 8.971, 1.526)
pt3dadd(145.016, 156.601, 8.949, 1.582)
pt3dadd(144.924, 156.672, 8.927, 1.64)
pt3dadd(144.832, 156.744, 8.905, 1.698)
pt3dadd(144.739, 156.816, 8.883, 1.756)
pt3dadd(144.646, 156.888, 8.861, 1.812)
pt3dadd(144.553, 156.96, 8.839, 1.87)
pt3dadd(144.463, 157.034, 8.82, 1.906)
pt3dadd(144.372, 157.11, 8.8, 1.942)
pt3dadd(144.282, 157.184, 8.781, 1.976)
pt3dadd(144.191, 157.26, 8.762, 2.012)
pt3dadd(144.101, 157.336, 8.743, 2.046)
pt3dadd(144.01, 157.411, 8.723, 2.082)
pt3dadd(143.92, 157.486, 8.704, 2.116)
pt3dadd(143.83, 157.561, 8.685, 2.15)
pt3dadd(143.738, 157.637, 8.665, 2.186)
pt3dadd(143.648, 157.711, 8.646, 2.22)
pt3dadd(143.562, 157.793, 8.632, 2.212)
pt3dadd(143.476, 157.876, 8.618, 2.202)
pt3dadd(143.39, 157.957, 8.604, 2.19)
pt3dadd(143.304, 158.04, 8.59, 2.18)
pt3dadd(143.219, 158.122, 8.576, 2.168)
pt3dadd(143.132, 158.204, 8.562, 2.158)
pt3dadd(143.047, 158.286, 8.548, 2.146)
pt3dadd(142.961, 158.369, 8.534, 2.136)
pt3dadd(142.876, 158.45, 8.52, 2.124)
pt3dadd(142.789, 158.533, 8.506, 2.112)
pt3dadd(142.705, 158.617, 8.493, 2.114)
pt3dadd(142.621, 158.702, 8.481, 2.116)
pt3dadd(142.537, 158.786, 8.469, 2.118)
pt3dadd(142.453, 158.87, 8.456, 2.12)
pt3dadd(142.369, 158.956, 8.444, 2.122)
pt3dadd(142.285, 159.04, 8.431, 2.124)
pt3dadd(142.201, 159.124, 8.419, 2.126)
pt3dadd(142.117, 159.209, 8.406, 2.128)
pt3dadd(142.034, 159.293, 8.394, 2.128)
pt3dadd(141.95, 159.377, 8.382, 2.13)
pt3dadd(141.87, 159.467, 8.373, 2.16)
pt3dadd(141.791, 159.556, 8.364, 2.194)
pt3dadd(141.713, 159.646, 8.355, 2.226)
pt3dadd(141.634, 159.736, 8.346, 2.258)
pt3dadd(141.554, 159.826, 8.338, 2.29)
pt3dadd(141.475, 159.914, 8.329, 2.322)
pt3dadd(141.396, 160.004, 8.32, 2.356)
pt3dadd(141.317, 160.094, 8.312, 2.388)
pt3dadd(141.238, 160.183, 8.303, 2.42)
pt3dadd(141.158, 160.273, 8.294, 2.452)
pt3dadd(141.083, 160.366, 8.281, 2.474)
pt3dadd(141.007, 160.457, 8.267, 2.496)
pt3dadd(140.932, 160.549, 8.253, 2.516)
pt3dadd(140.857, 160.64, 8.24, 2.538)
pt3dadd(140.782, 160.733, 8.226, 2.558)
pt3dadd(140.706, 160.824, 8.212, 2.58)
pt3dadd(140.63, 160.916, 8.199, 2.6)
pt3dadd(140.555, 161.008, 8.185, 2.622)
pt3dadd(140.479, 161.1, 8.171, 2.642)
pt3dadd(140.404, 161.192, 8.157, 2.664)
pt3dadd(140.346, 161.29, 8.125, 2.64)
pt3dadd(140.287, 161.387, 8.093, 2.618)
pt3dadd(140.23, 161.484, 8.06, 2.594)
pt3dadd(140.171, 161.581, 8.027, 2.57)
pt3dadd(140.113, 161.678, 7.995, 2.546)
pt3dadd(140.054, 161.776, 7.962, 2.524)
pt3dadd(139.997, 161.874, 7.93, 2.5)
pt3dadd(139.938, 161.971, 7.897, 2.476)
pt3dadd(139.88, 162.068, 7.865, 2.452)
pt3dadd(139.822, 162.166, 7.832, 2.43)
}
apic[10] {pt3dclear()
pt3dadd(139.822, 162.166, 7.832, 2.43)
pt3dadd(139.789, 162.216, 7.817, 2.42)
pt3dadd(139.727, 162.313, 7.788, 2.404)
pt3dadd(139.666, 162.41, 7.759, 2.386)
pt3dadd(139.603, 162.506, 7.73, 2.37)
pt3dadd(139.542, 162.604, 7.701, 2.352)
pt3dadd(139.48, 162.7, 7.672, 2.336)
pt3dadd(139.418, 162.797, 7.643, 2.318)
pt3dadd(139.356, 162.894, 7.614, 2.302)
pt3dadd(139.295, 162.99, 7.585, 2.284)
pt3dadd(139.232, 163.087, 7.556, 2.268)
pt3dadd(139.165, 163.182, 7.532, 2.26)
pt3dadd(139.096, 163.277, 7.513, 2.26)
pt3dadd(139.025, 163.37, 7.493, 2.26)
pt3dadd(138.954, 163.465, 7.474, 2.26)
pt3dadd(138.883, 163.559, 7.455, 2.26)
pt3dadd(138.812, 163.654, 7.435, 2.26)
pt3dadd(138.742, 163.747, 7.416, 2.26)
pt3dadd(138.671, 163.842, 7.396, 2.26)
pt3dadd(138.6, 163.936, 7.377, 2.26)
pt3dadd(138.53, 164.03, 7.357, 2.26)
pt3dadd(138.458, 164.124, 7.34, 2.26)
pt3dadd(138.385, 164.216, 7.324, 2.26)
pt3dadd(138.312, 164.31, 7.307, 2.26)
pt3dadd(138.239, 164.402, 7.291, 2.26)
pt3dadd(138.166, 164.496, 7.275, 2.26)
pt3dadd(138.091, 164.588, 7.258, 2.26)
pt3dadd(138.018, 164.682, 7.242, 2.26)
pt3dadd(137.945, 164.774, 7.226, 2.26)
pt3dadd(137.872, 164.868, 7.209, 2.26)
pt3dadd(137.798, 164.96, 7.193, 2.26)
pt3dadd(137.723, 165.052, 7.181, 2.26)
pt3dadd(137.644, 165.142, 7.173, 2.26)
pt3dadd(137.564, 165.232, 7.164, 2.26)
pt3dadd(137.485, 165.32, 7.156, 2.26)
pt3dadd(137.406, 165.41, 7.148, 2.26)
pt3dadd(137.327, 165.5, 7.139, 2.26)
pt3dadd(137.248, 165.59, 7.131, 2.26)
pt3dadd(137.168, 165.679, 7.122, 2.26)
pt3dadd(137.089, 165.769, 7.114, 2.26)
pt3dadd(137.01, 165.859, 7.106, 2.26)
pt3dadd(136.931, 165.948, 7.098, 2.258)
pt3dadd(136.85, 166.037, 7.091, 2.254)
pt3dadd(136.77, 166.126, 7.084, 2.25)
pt3dadd(136.691, 166.216, 7.078, 2.246)
pt3dadd(136.61, 166.304, 7.071, 2.242)
pt3dadd(136.53, 166.393, 7.064, 2.238)
pt3dadd(136.45, 166.482, 7.057, 2.234)
pt3dadd(136.369, 166.571, 7.05, 2.23)
pt3dadd(136.29, 166.66, 7.044, 2.226)
pt3dadd(136.21, 166.748, 7.037, 2.222)
pt3dadd(136.127, 166.836, 7.034, 2.208)
pt3dadd(136.043, 166.921, 7.034, 2.186)
pt3dadd(135.959, 167.006, 7.033, 2.166)
pt3dadd(135.875, 167.092, 7.033, 2.146)
pt3dadd(135.79, 167.178, 7.033, 2.124)
pt3dadd(135.706, 167.263, 7.033, 2.104)
pt3dadd(135.622, 167.348, 7.032, 2.084)
pt3dadd(135.538, 167.434, 7.032, 2.062)
pt3dadd(135.454, 167.52, 7.032, 2.042)
pt3dadd(135.37, 167.605, 7.032, 2.022)
pt3dadd(135.284, 167.69, 7.032, 2.002)
pt3dadd(135.2, 167.776, 7.031, 1.98)
pt3dadd(135.116, 167.862, 7.031, 1.96)
pt3dadd(135.032, 167.947, 7.031, 1.94)
pt3dadd(134.948, 168.032, 7.031, 1.918)
pt3dadd(134.864, 168.118, 7.03, 1.898)
pt3dadd(134.779, 168.204, 7.03, 1.878)
pt3dadd(134.695, 168.289, 7.03, 1.858)
pt3dadd(134.611, 168.374, 7.03, 1.838)
pt3dadd(134.527, 168.461, 7.03, 1.816)
pt3dadd(134.443, 168.546, 7.029, 1.808)
pt3dadd(134.36, 168.632, 7.029, 1.808)
pt3dadd(134.276, 168.719, 7.028, 1.808)
pt3dadd(134.192, 168.804, 7.028, 1.808)
pt3dadd(134.11, 168.89, 7.028, 1.808)
pt3dadd(134.026, 168.977, 7.027, 1.808)
pt3dadd(133.943, 169.063, 7.027, 1.808)
pt3dadd(133.859, 169.15, 7.026, 1.808)
pt3dadd(133.775, 169.236, 7.026, 1.808)
pt3dadd(133.692, 169.321, 7.025, 1.808)
pt3dadd(133.608, 169.408, 7.025, 1.808)
pt3dadd(133.525, 169.494, 7.024, 1.808)
pt3dadd(133.441, 169.58, 7.024, 1.808)
pt3dadd(133.357, 169.667, 7.023, 1.808)
pt3dadd(133.274, 169.752, 7.023, 1.808)
pt3dadd(133.19, 169.838, 7.023, 1.808)
pt3dadd(133.108, 169.925, 7.022, 1.808)
pt3dadd(133.024, 170.011, 7.022, 1.808)
pt3dadd(132.94, 170.098, 7.021, 1.808)
pt3dadd(132.857, 170.183, 7.021, 1.808)
pt3dadd(132.774, 170.27, 7.02, 1.814)
pt3dadd(132.692, 170.358, 7.019, 1.822)
pt3dadd(132.611, 170.446, 7.018, 1.832)
pt3dadd(132.529, 170.534, 7.017, 1.84)
pt3dadd(132.448, 170.622, 7.016, 1.85)
pt3dadd(132.365, 170.71, 7.015, 1.858)
pt3dadd(132.283, 170.797, 7.014, 1.868)
pt3dadd(132.202, 170.885, 7.013, 1.876)
pt3dadd(132.12, 170.974, 7.012, 1.886)
pt3dadd(132.038, 171.061, 7.011, 1.896)
pt3dadd(131.957, 171.149, 7.01, 1.904)
pt3dadd(131.875, 171.238, 7.009, 1.916)
pt3dadd(131.794, 171.325, 7.008, 1.926)
pt3dadd(131.712, 171.413, 7.007, 1.938)
pt3dadd(131.63, 171.502, 7.006, 1.948)
pt3dadd(131.549, 171.589, 7.005, 1.958)
pt3dadd(131.468, 171.678, 7.004, 1.97)
pt3dadd(131.387, 171.766, 7.003, 1.98)
pt3dadd(131.305, 171.853, 7.002, 1.992)
pt3dadd(131.224, 171.942, 7.001, 2.002)
pt3dadd(131.143, 172.031, 6.999, 2.028)
pt3dadd(131.064, 172.121, 6.997, 2.064)
pt3dadd(130.984, 172.211, 6.995, 2.1)
pt3dadd(130.904, 172.3, 6.993, 2.136)
pt3dadd(130.825, 172.39, 6.991, 2.172)
}
}
proc shape3d_14() {
apic[10] { pt3dadd(130.745, 172.48, 6.99, 2.208)
pt3dadd(130.666, 172.57, 6.988, 2.244)
pt3dadd(130.586, 172.66, 6.986, 2.28)
pt3dadd(130.506, 172.75, 6.984, 2.316)
pt3dadd(130.427, 172.838, 6.982, 2.352)
pt3dadd(130.348, 172.93, 6.98, 2.394)
pt3dadd(130.268, 173.02, 6.978, 2.438)
pt3dadd(130.19, 173.11, 6.975, 2.484)
pt3dadd(130.111, 173.201, 6.973, 2.528)
pt3dadd(130.033, 173.291, 6.971, 2.572)
pt3dadd(129.954, 173.382, 6.969, 2.618)
pt3dadd(129.875, 173.472, 6.967, 2.662)
pt3dadd(129.797, 173.563, 6.964, 2.708)
pt3dadd(129.718, 173.653, 6.962, 2.752)
pt3dadd(129.64, 173.743, 6.96, 2.798)
pt3dadd(129.569, 173.84, 6.956, 2.822)
pt3dadd(129.505, 173.942, 6.95, 2.836)
pt3dadd(129.442, 174.043, 6.945, 2.848)
pt3dadd(129.378, 174.145, 6.939, 2.86)
pt3dadd(129.314, 174.246, 6.934, 2.872)
pt3dadd(129.251, 174.348, 6.929, 2.884)
pt3dadd(129.186, 174.449, 6.923, 2.896)
pt3dadd(129.122, 174.551, 6.918, 2.908)
pt3dadd(129.059, 174.653, 6.912, 2.922)
pt3dadd(128.995, 174.754, 6.907, 2.934)
pt3dadd(128.935, 174.857, 6.9, 2.936)
pt3dadd(128.876, 174.961, 6.893, 2.93)
pt3dadd(128.819, 175.067, 6.887, 2.926)
pt3dadd(128.76, 175.171, 6.88, 2.922)
pt3dadd(128.702, 175.276, 6.873, 2.918)
pt3dadd(128.644, 175.38, 6.866, 2.914)
pt3dadd(128.586, 175.484, 6.859, 2.908)
pt3dadd(128.527, 175.589, 6.852, 2.904)
pt3dadd(128.47, 175.694, 6.845, 2.9)
pt3dadd(128.411, 175.799, 6.838, 2.896)
pt3dadd(128.347, 175.9, 6.829, 2.852)
pt3dadd(128.28, 175.998, 6.818, 2.784)
pt3dadd(128.214, 176.098, 6.807, 2.716)
pt3dadd(128.147, 176.196, 6.796, 2.65)
pt3dadd(128.08, 176.294, 6.786, 2.582)
pt3dadd(128.014, 176.394, 6.775, 2.514)
pt3dadd(127.946, 176.492, 6.764, 2.448)
pt3dadd(127.879, 176.591, 6.753, 2.38)
pt3dadd(127.813, 176.69, 6.742, 2.314)
pt3dadd(127.746, 176.789, 6.731, 2.246)
pt3dadd(127.68, 176.886, 6.711, 2.194)
pt3dadd(127.616, 176.982, 6.685, 2.152)
pt3dadd(127.552, 177.079, 6.659, 2.11)
pt3dadd(127.487, 177.175, 6.633, 2.068)
pt3dadd(127.423, 177.271, 6.607, 2.026)
pt3dadd(127.358, 177.367, 6.581, 1.984)
pt3dadd(127.294, 177.463, 6.555, 1.942)
pt3dadd(127.229, 177.56, 6.529, 1.9)
pt3dadd(127.165, 177.656, 6.503, 1.858)
pt3dadd(127.1, 177.752, 6.477, 1.816)
pt3dadd(127.04, 177.842, 6.434, 1.814)
pt3dadd(126.98, 177.93, 6.388, 1.822)
pt3dadd(126.922, 178.019, 6.341, 1.83)
pt3dadd(126.863, 178.106, 6.295, 1.836)
pt3dadd(126.803, 178.195, 6.248, 1.844)
pt3dadd(126.744, 178.283, 6.202, 1.852)
pt3dadd(126.684, 178.372, 6.155, 1.858)
pt3dadd(126.625, 178.459, 6.109, 1.866)
pt3dadd(126.566, 178.548, 6.062, 1.874)
pt3dadd(126.506, 178.636, 6.016, 1.88)
pt3dadd(126.437, 178.727, 5.988, 1.944)
pt3dadd(126.365, 178.818, 5.963, 2.018)
pt3dadd(126.293, 178.909, 5.938, 2.09)
pt3dadd(126.222, 179.002, 5.913, 2.164)
pt3dadd(126.15, 179.093, 5.888, 2.236)
pt3dadd(126.078, 179.184, 5.863, 2.31)
pt3dadd(126.006, 179.275, 5.838, 2.382)
pt3dadd(125.935, 179.366, 5.813, 2.456)
pt3dadd(125.863, 179.458, 5.788, 2.53)
pt3dadd(125.791, 179.55, 5.763, 2.602)
pt3dadd(125.731, 179.651, 5.744, 2.62)
pt3dadd(125.672, 179.753, 5.727, 2.628)
pt3dadd(125.614, 179.856, 5.709, 2.636)
pt3dadd(125.556, 179.959, 5.691, 2.644)
pt3dadd(125.497, 180.061, 5.674, 2.65)
pt3dadd(125.44, 180.164, 5.656, 2.658)
pt3dadd(125.381, 180.266, 5.638, 2.666)
pt3dadd(125.322, 180.37, 5.621, 2.674)
pt3dadd(125.264, 180.473, 5.603, 2.682)
pt3dadd(125.206, 180.575, 5.585, 2.69)
pt3dadd(125.159, 180.684, 5.574, 2.648)
pt3dadd(125.111, 180.794, 5.563, 2.602)
pt3dadd(125.064, 180.904, 5.552, 2.558)
pt3dadd(125.017, 181.013, 5.541, 2.512)
pt3dadd(124.97, 181.123, 5.53, 2.468)
pt3dadd(124.922, 181.232, 5.519, 2.424)
pt3dadd(124.876, 181.342, 5.508, 2.378)
pt3dadd(124.829, 181.451, 5.497, 2.334)
pt3dadd(124.782, 181.561, 5.486, 2.288)
pt3dadd(124.735, 181.67, 5.475, 2.244)
pt3dadd(124.678, 181.776, 5.475, 2.194)
pt3dadd(124.619, 181.88, 5.475, 2.144)
pt3dadd(124.561, 181.986, 5.475, 2.092)
pt3dadd(124.502, 182.09, 5.475, 2.042)
pt3dadd(124.445, 182.196, 5.475, 1.992)
pt3dadd(124.387, 182.3, 5.475, 1.94)
pt3dadd(124.328, 182.406, 5.475, 1.89)
pt3dadd(124.271, 182.51, 5.475, 1.84)
pt3dadd(124.212, 182.616, 5.475, 1.79)
pt3dadd(124.154, 182.72, 5.475, 1.738)
pt3dadd(124.102, 182.828, 5.475, 1.684)
pt3dadd(124.05, 182.936, 5.475, 1.628)
pt3dadd(123.997, 183.044, 5.475, 1.572)
pt3dadd(123.944, 183.152, 5.475, 1.516)
pt3dadd(123.893, 183.26, 5.475, 1.462)
pt3dadd(123.84, 183.368, 5.475, 1.406)
pt3dadd(123.788, 183.476, 5.475, 1.35)
pt3dadd(123.736, 183.584, 5.475, 1.294)
pt3dadd(123.683, 183.692, 5.475, 1.24)
pt3dadd(123.631, 183.8, 5.475, 1.184)
pt3dadd(123.598, 183.916, 5.475, 1.114)
pt3dadd(123.564, 184.031, 5.475, 1.046)
pt3dadd(123.53, 184.146, 5.475, 0.976)
pt3dadd(123.497, 184.261, 5.475, 0.906)
pt3dadd(123.462, 184.376, 5.476, 0.838)
pt3dadd(123.428, 184.492, 5.476, 0.768)
pt3dadd(123.395, 184.607, 5.476, 0.698)
pt3dadd(123.361, 184.722, 5.476, 0.63)
pt3dadd(123.328, 184.837, 5.476, 0.56)
pt3dadd(123.294, 184.952, 5.476, 0.49)
}
apic[11] {pt3dclear()
pt3dadd(123.294, 184.952, 5.476, 0.49)
pt3dadd(123.256, 185.062, 5.476, 0.474)
pt3dadd(123.215, 185.174, 5.476, 0.454)
pt3dadd(123.174, 185.288, 5.476, 0.436)
pt3dadd(123.134, 185.401, 5.476, 0.418)
pt3dadd(123.094, 185.514, 5.476, 0.4)
pt3dadd(123.054, 185.627, 5.477, 0.382)
pt3dadd(123.013, 185.74, 5.477, 0.364)
pt3dadd(122.974, 185.854, 5.477, 0.346)
pt3dadd(122.933, 185.966, 5.477, 0.328)
pt3dadd(122.893, 186.079, 5.477, 0.31)
pt3dadd(122.849, 186.191, 5.477, 0.322)
pt3dadd(122.804, 186.302, 5.477, 0.336)
pt3dadd(122.76, 186.414, 5.477, 0.348)
pt3dadd(122.717, 186.526, 5.477, 0.362)
pt3dadd(122.672, 186.637, 5.477, 0.376)
pt3dadd(122.628, 186.749, 5.478, 0.39)
pt3dadd(122.584, 186.86, 5.478, 0.402)
pt3dadd(122.539, 186.972, 5.478, 0.416)
pt3dadd(122.496, 187.084, 5.478, 0.43)
pt3dadd(122.452, 187.195, 5.478, 0.444)
pt3dadd(122.465, 187.314, 5.478, 0.458)
pt3dadd(122.478, 187.433, 5.479, 0.472)
pt3dadd(122.492, 187.553, 5.479, 0.486)
pt3dadd(122.507, 187.672, 5.479, 0.5)
pt3dadd(122.521, 187.79, 5.48, 0.514)
pt3dadd(122.536, 187.91, 5.48, 0.53)
pt3dadd(122.549, 188.029, 5.48, 0.544)
pt3dadd(122.563, 188.148, 5.48, 0.558)
pt3dadd(122.578, 188.267, 5.481, 0.572)
pt3dadd(122.592, 188.387, 5.481, 0.586)
pt3dadd(122.609, 188.506, 5.481, 0.584)
pt3dadd(122.627, 188.624, 5.482, 0.584)
pt3dadd(122.644, 188.743, 5.482, 0.582)
pt3dadd(122.66, 188.862, 5.483, 0.582)
pt3dadd(122.677, 188.981, 5.483, 0.582)
pt3dadd(122.695, 189.1, 5.484, 0.58)
pt3dadd(122.712, 189.217, 5.484, 0.58)
pt3dadd(122.729, 189.336, 5.484, 0.578)
pt3dadd(122.747, 189.455, 5.485, 0.578)
pt3dadd(122.764, 189.574, 5.485, 0.574)
pt3dadd(122.779, 189.694, 5.486, 0.546)
pt3dadd(122.795, 189.812, 5.486, 0.518)
pt3dadd(122.81, 189.931, 5.487, 0.488)
pt3dadd(122.827, 190.05, 5.488, 0.46)
pt3dadd(122.843, 190.169, 5.488, 0.432)
pt3dadd(122.858, 190.288, 5.489, 0.402)
pt3dadd(122.874, 190.406, 5.49, 0.374)
pt3dadd(122.89, 190.525, 5.49, 0.346)
pt3dadd(122.906, 190.645, 5.491, 0.316)
pt3dadd(122.922, 190.764, 5.491, 0.29)
pt3dadd(122.935, 190.883, 5.493, 0.284)
pt3dadd(122.948, 191.002, 5.494, 0.276)
pt3dadd(122.96, 191.122, 5.495, 0.27)
pt3dadd(122.974, 191.24, 5.496, 0.264)
pt3dadd(122.987, 191.36, 5.498, 0.258)
pt3dadd(123, 191.479, 5.499, 0.252)
pt3dadd(123.013, 191.598, 5.5, 0.244)
pt3dadd(123.026, 191.718, 5.501, 0.238)
pt3dadd(123.04, 191.837, 5.503, 0.232)
pt3dadd(123.053, 191.957, 5.504, 0.226)
pt3dadd(123.062, 192.076, 5.506, 0.23)
pt3dadd(123.072, 192.196, 5.507, 0.232)
pt3dadd(123.082, 192.316, 5.509, 0.236)
pt3dadd(123.091, 192.434, 5.511, 0.238)
pt3dadd(123.101, 192.554, 5.512, 0.24)
pt3dadd(123.11, 192.674, 5.514, 0.244)
pt3dadd(123.12, 192.793, 5.516, 0.246)
pt3dadd(123.13, 192.913, 5.518, 0.25)
pt3dadd(123.139, 193.033, 5.519, 0.252)
pt3dadd(123.148, 193.152, 5.521, 0.256)
pt3dadd(123.145, 193.272, 5.524, 0.27)
pt3dadd(123.144, 193.392, 5.527, 0.286)
pt3dadd(123.142, 193.512, 5.53, 0.3)
pt3dadd(123.139, 193.632, 5.533, 0.314)
}
}
proc shape3d_15() {
apic[11] { pt3dadd(123.138, 193.752, 5.536, 0.328)
pt3dadd(123.136, 193.872, 5.538, 0.344)
pt3dadd(123.134, 193.992, 5.541, 0.358)
pt3dadd(123.132, 194.112, 5.544, 0.372)
pt3dadd(123.13, 194.232, 5.547, 0.386)
pt3dadd(123.128, 194.352, 5.55, 0.4)
pt3dadd(123.125, 194.472, 5.556, 0.416)
pt3dadd(123.122, 194.591, 5.561, 0.43)
pt3dadd(123.119, 194.711, 5.567, 0.444)
pt3dadd(123.115, 194.831, 5.572, 0.458)
pt3dadd(123.113, 194.951, 5.578, 0.474)
pt3dadd(123.109, 195.071, 5.583, 0.488)
pt3dadd(123.107, 195.19, 5.589, 0.502)
pt3dadd(123.103, 195.31, 5.595, 0.516)
pt3dadd(123.1, 195.43, 5.6, 0.53)
pt3dadd(123.097, 195.55, 5.606, 0.546)
pt3dadd(123.092, 195.67, 5.613, 0.558)
pt3dadd(123.089, 195.788, 5.62, 0.572)
pt3dadd(123.085, 195.908, 5.628, 0.586)
pt3dadd(123.08, 196.028, 5.635, 0.598)
pt3dadd(123.077, 196.147, 5.643, 0.612)
pt3dadd(123.072, 196.267, 5.65, 0.626)
pt3dadd(123.068, 196.387, 5.657, 0.638)
pt3dadd(123.065, 196.506, 5.665, 0.652)
pt3dadd(123.06, 196.626, 5.672, 0.666)
pt3dadd(123.055, 196.746, 5.68, 0.678)
pt3dadd(123.047, 196.865, 5.691, 0.678)
pt3dadd(123.037, 196.984, 5.703, 0.678)
pt3dadd(123.028, 197.102, 5.715, 0.678)
pt3dadd(123.019, 197.221, 5.726, 0.678)
pt3dadd(123.01, 197.34, 5.738, 0.678)
pt3dadd(123, 197.459, 5.749, 0.678)
pt3dadd(122.99, 197.578, 5.761, 0.678)
pt3dadd(122.982, 197.696, 5.773, 0.678)
pt3dadd(122.972, 197.815, 5.784, 0.678)
pt3dadd(122.963, 197.934, 5.797, 0.676)
pt3dadd(122.951, 198.049, 5.821, 0.664)
pt3dadd(122.939, 198.166, 5.845, 0.65)
pt3dadd(122.928, 198.281, 5.87, 0.638)
pt3dadd(122.916, 198.396, 5.894, 0.624)
pt3dadd(122.904, 198.512, 5.919, 0.61)
pt3dadd(122.892, 198.628, 5.943, 0.598)
pt3dadd(122.88, 198.744, 5.967, 0.584)
pt3dadd(122.868, 198.859, 5.992, 0.572)
pt3dadd(122.856, 198.976, 6.016, 0.558)
pt3dadd(122.844, 199.091, 6.043, 0.542)
pt3dadd(122.83, 199.201, 6.08, 0.516)
pt3dadd(122.815, 199.312, 6.117, 0.49)
pt3dadd(122.801, 199.422, 6.154, 0.462)
pt3dadd(122.786, 199.532, 6.191, 0.436)
pt3dadd(122.771, 199.643, 6.228, 0.41)
pt3dadd(122.756, 199.753, 6.265, 0.382)
pt3dadd(122.742, 199.864, 6.302, 0.356)
pt3dadd(122.728, 199.974, 6.339, 0.33)
pt3dadd(122.713, 200.084, 6.376, 0.302)
pt3dadd(122.694, 200.195, 6.411, 0.28)
pt3dadd(122.654, 200.304, 6.437, 0.274)
pt3dadd(122.614, 200.413, 6.463, 0.268)
pt3dadd(122.574, 200.521, 6.488, 0.262)
pt3dadd(122.533, 200.63, 6.514, 0.258)
pt3dadd(122.494, 200.738, 6.54, 0.252)
pt3dadd(122.453, 200.848, 6.565, 0.246)
pt3dadd(122.413, 200.957, 6.591, 0.242)
pt3dadd(122.372, 201.065, 6.616, 0.236)
pt3dadd(122.332, 201.174, 6.642, 0.23)
pt3dadd(122.291, 201.283, 6.667, 0.226)
pt3dadd(122.245, 201.39, 6.689, 0.226)
pt3dadd(122.198, 201.498, 6.711, 0.226)
pt3dadd(122.153, 201.606, 6.732, 0.226)
pt3dadd(122.107, 201.714, 6.754, 0.226)
pt3dadd(122.062, 201.821, 6.776, 0.226)
pt3dadd(122.015, 201.929, 6.798, 0.226)
pt3dadd(121.969, 202.037, 6.82, 0.226)
pt3dadd(121.924, 202.145, 6.842, 0.226)
pt3dadd(121.878, 202.253, 6.864, 0.226)
pt3dadd(121.834, 202.362, 6.883, 0.226)
pt3dadd(121.798, 202.475, 6.894, 0.226)
pt3dadd(121.76, 202.589, 6.905, 0.226)
pt3dadd(121.724, 202.702, 6.916, 0.226)
pt3dadd(121.687, 202.816, 6.928, 0.226)
pt3dadd(121.651, 202.928, 6.939, 0.226)
pt3dadd(121.614, 203.042, 6.95, 0.226)
pt3dadd(121.578, 203.156, 6.961, 0.226)
pt3dadd(121.541, 203.269, 6.973, 0.226)
pt3dadd(121.505, 203.383, 6.984, 0.226)
pt3dadd(121.469, 203.497, 6.994, 0.226)
pt3dadd(121.436, 203.611, 7.001, 0.226)
pt3dadd(121.403, 203.726, 7.009, 0.226)
pt3dadd(121.37, 203.842, 7.016, 0.226)
pt3dadd(121.337, 203.957, 7.023, 0.226)
pt3dadd(121.303, 204.072, 7.03, 0.226)
pt3dadd(121.271, 204.187, 7.038, 0.226)
pt3dadd(121.237, 204.302, 7.045, 0.226)
pt3dadd(121.205, 204.416, 7.052, 0.226)
pt3dadd(121.171, 204.532, 7.06, 0.226)
pt3dadd(121.14, 204.647, 7.065, 0.226)
pt3dadd(121.112, 204.764, 7.067, 0.226)
pt3dadd(121.085, 204.881, 7.068, 0.226)
pt3dadd(121.057, 204.997, 7.07, 0.226)
pt3dadd(121.03, 205.115, 7.071, 0.226)
pt3dadd(121.002, 205.231, 7.073, 0.226)
pt3dadd(120.974, 205.348, 7.075, 0.226)
pt3dadd(120.947, 205.465, 7.076, 0.226)
pt3dadd(120.919, 205.582, 7.078, 0.226)
pt3dadd(120.892, 205.698, 7.079, 0.226)
pt3dadd(120.859, 205.813, 7.081, 0.23)
pt3dadd(120.815, 205.925, 7.084, 0.24)
pt3dadd(120.772, 206.036, 7.086, 0.252)
pt3dadd(120.727, 206.148, 7.089, 0.264)
pt3dadd(120.684, 206.261, 7.092, 0.274)
pt3dadd(120.64, 206.372, 7.095, 0.286)
pt3dadd(120.596, 206.484, 7.097, 0.296)
pt3dadd(120.552, 206.596, 7.1, 0.308)
pt3dadd(120.509, 206.707, 7.103, 0.32)
pt3dadd(120.464, 206.819, 7.106, 0.33)
pt3dadd(120.42, 206.93, 7.109, 0.342)
pt3dadd(120.376, 207.041, 7.113, 0.356)
pt3dadd(120.33, 207.152, 7.116, 0.37)
pt3dadd(120.286, 207.264, 7.12, 0.384)
pt3dadd(120.24, 207.374, 7.124, 0.398)
pt3dadd(120.196, 207.486, 7.128, 0.412)
pt3dadd(120.15, 207.596, 7.132, 0.426)
pt3dadd(120.106, 207.708, 7.136, 0.44)
pt3dadd(120.061, 207.82, 7.14, 0.454)
pt3dadd(120.016, 207.93, 7.143, 0.468)
pt3dadd(119.974, 208.043, 7.148, 0.482)
pt3dadd(119.94, 208.157, 7.156, 0.496)
pt3dadd(119.906, 208.272, 7.164, 0.512)
pt3dadd(119.872, 208.387, 7.172, 0.526)
pt3dadd(119.838, 208.501, 7.18, 0.542)
pt3dadd(119.804, 208.616, 7.188, 0.556)
pt3dadd(119.77, 208.73, 7.196, 0.572)
pt3dadd(119.736, 208.846, 7.204, 0.586)
pt3dadd(119.702, 208.96, 7.212, 0.6)
pt3dadd(119.667, 209.075, 7.22, 0.616)
pt3dadd(119.635, 209.19, 7.229, 0.634)
pt3dadd(119.608, 209.305, 7.241, 0.66)
pt3dadd(119.58, 209.422, 7.253, 0.686)
pt3dadd(119.552, 209.537, 7.265, 0.712)
pt3dadd(119.524, 209.653, 7.277, 0.738)
pt3dadd(119.496, 209.768, 7.289, 0.762)
pt3dadd(119.469, 209.885, 7.301, 0.788)
pt3dadd(119.441, 210.001, 7.314, 0.814)
pt3dadd(119.413, 210.116, 7.326, 0.84)
pt3dadd(119.385, 210.233, 7.338, 0.866)
pt3dadd(119.359, 210.348, 7.354, 0.89)
pt3dadd(119.336, 210.462, 7.378, 0.906)
pt3dadd(119.312, 210.576, 7.403, 0.922)
pt3dadd(119.289, 210.69, 7.427, 0.938)
pt3dadd(119.265, 210.804, 7.451, 0.954)
pt3dadd(119.242, 210.917, 7.476, 0.97)
pt3dadd(119.218, 211.031, 7.5, 0.986)
pt3dadd(119.195, 211.145, 7.525, 1.002)
pt3dadd(119.171, 211.259, 7.549, 1.02)
pt3dadd(119.148, 211.373, 7.574, 1.036)
pt3dadd(119.125, 211.478, 7.614, 1.024)
pt3dadd(119.104, 211.576, 7.671, 0.986)
pt3dadd(119.083, 211.672, 7.727, 0.948)
pt3dadd(119.061, 211.769, 7.784, 0.91)
pt3dadd(119.04, 211.866, 7.84, 0.87)
pt3dadd(119.019, 211.962, 7.896, 0.832)
pt3dadd(118.998, 212.059, 7.953, 0.794)
pt3dadd(118.976, 212.155, 8.009, 0.756)
pt3dadd(118.955, 212.252, 8.066, 0.718)
pt3dadd(118.934, 212.35, 8.122, 0.678)
pt3dadd(118.895, 212.447, 8.167, 0.644)
pt3dadd(118.841, 212.545, 8.202, 0.612)
pt3dadd(118.787, 212.645, 8.237, 0.58)
pt3dadd(118.733, 212.743, 8.272, 0.55)
pt3dadd(118.679, 212.842, 8.307, 0.518)
pt3dadd(118.625, 212.941, 8.341, 0.486)
pt3dadd(118.572, 213.04, 8.376, 0.454)
pt3dadd(118.518, 213.138, 8.411, 0.422)
pt3dadd(118.464, 213.236, 8.446, 0.392)
pt3dadd(118.41, 213.336, 8.481, 0.36)
pt3dadd(118.363, 213.439, 8.512, 0.344)
pt3dadd(118.321, 213.546, 8.54, 0.342)
pt3dadd(118.28, 213.654, 8.569, 0.338)
pt3dadd(118.238, 213.761, 8.597, 0.336)
pt3dadd(118.197, 213.869, 8.625, 0.334)
pt3dadd(118.155, 213.976, 8.654, 0.332)
pt3dadd(118.113, 214.082, 8.682, 0.328)
pt3dadd(118.072, 214.19, 8.71, 0.326)
pt3dadd(118.03, 214.297, 8.739, 0.324)
pt3dadd(117.989, 214.405, 8.767, 0.322)
pt3dadd(117.953, 214.514, 8.794, 0.328)
pt3dadd(117.921, 214.626, 8.819, 0.342)
pt3dadd(117.89, 214.738, 8.845, 0.354)
pt3dadd(117.858, 214.849, 8.871, 0.368)
pt3dadd(117.826, 214.961, 8.897, 0.382)
pt3dadd(117.794, 215.072, 8.923, 0.394)
pt3dadd(117.763, 215.184, 8.949, 0.408)
pt3dadd(117.731, 215.296, 8.975, 0.42)
pt3dadd(117.699, 215.407, 9, 0.434)
pt3dadd(117.667, 215.518, 9.026, 0.448)
pt3dadd(117.645, 215.629, 9.059, 0.452)
pt3dadd(117.627, 215.738, 9.096, 0.452)
pt3dadd(117.61, 215.849, 9.134, 0.452)
pt3dadd(117.593, 215.959, 9.171, 0.452)
pt3dadd(117.575, 216.068, 9.208, 0.452)
}
}
proc shape3d_16() {
apic[11] { pt3dadd(117.558, 216.179, 9.246, 0.452)
pt3dadd(117.541, 216.289, 9.283, 0.452)
pt3dadd(117.524, 216.398, 9.32, 0.452)
pt3dadd(117.506, 216.509, 9.358, 0.452)
pt3dadd(117.489, 216.619, 9.395, 0.452)
pt3dadd(117.473, 216.731, 9.429, 0.448)
pt3dadd(117.458, 216.842, 9.461, 0.442)
pt3dadd(117.442, 216.955, 9.493, 0.436)
pt3dadd(117.427, 217.068, 9.526, 0.43)
pt3dadd(117.412, 217.181, 9.558, 0.424)
pt3dadd(117.397, 217.294, 9.59, 0.42)
pt3dadd(117.381, 217.405, 9.623, 0.414)
pt3dadd(117.366, 217.518, 9.655, 0.408)
pt3dadd(117.351, 217.631, 9.687, 0.402)
pt3dadd(117.336, 217.744, 9.719, 0.396)
pt3dadd(117.322, 217.858, 9.747, 0.384)
pt3dadd(117.31, 217.973, 9.772, 0.37)
pt3dadd(117.298, 218.089, 9.797, 0.356)
pt3dadd(117.285, 218.204, 9.823, 0.342)
pt3dadd(117.273, 218.32, 9.848, 0.33)
pt3dadd(117.261, 218.435, 9.873, 0.316)
pt3dadd(117.249, 218.55, 9.898, 0.302)
pt3dadd(117.237, 218.666, 9.923, 0.288)
pt3dadd(117.224, 218.782, 9.948, 0.274)
pt3dadd(117.212, 218.897, 9.974, 0.26)
pt3dadd(117.194, 219.013, 9.993, 0.266)
pt3dadd(117.173, 219.13, 10.009, 0.286)
pt3dadd(117.151, 219.246, 10.025, 0.306)
pt3dadd(117.13, 219.362, 10.041, 0.326)
pt3dadd(117.108, 219.479, 10.057, 0.344)
pt3dadd(117.087, 219.595, 10.073, 0.364)
pt3dadd(117.066, 219.712, 10.089, 0.384)
pt3dadd(117.044, 219.829, 10.105, 0.404)
pt3dadd(117.023, 219.946, 10.121, 0.422)
pt3dadd(117.001, 220.062, 10.137, 0.442)
pt3dadd(116.974, 220.177, 10.151, 0.462)
pt3dadd(116.944, 220.292, 10.163, 0.484)
pt3dadd(116.914, 220.408, 10.175, 0.504)
pt3dadd(116.884, 220.523, 10.188, 0.524)
pt3dadd(116.854, 220.638, 10.2, 0.546)
pt3dadd(116.824, 220.753, 10.213, 0.566)
pt3dadd(116.794, 220.868, 10.225, 0.586)
pt3dadd(116.763, 220.984, 10.237, 0.608)
pt3dadd(116.733, 221.099, 10.25, 0.628)
pt3dadd(116.703, 221.214, 10.262, 0.65)
pt3dadd(116.653, 221.322, 10.27, 0.646)
pt3dadd(116.595, 221.426, 10.276, 0.632)
pt3dadd(116.538, 221.532, 10.283, 0.62)
pt3dadd(116.48, 221.636, 10.289, 0.608)
pt3dadd(116.423, 221.742, 10.295, 0.594)
pt3dadd(116.365, 221.846, 10.302, 0.582)
pt3dadd(116.307, 221.952, 10.308, 0.57)
pt3dadd(116.25, 222.056, 10.314, 0.556)
pt3dadd(116.192, 222.162, 10.32, 0.544)
pt3dadd(116.135, 222.266, 10.327, 0.532)
pt3dadd(116.073, 222.37, 10.334, 0.526)
pt3dadd(116.01, 222.472, 10.342, 0.522)
pt3dadd(115.948, 222.574, 10.349, 0.52)
pt3dadd(115.885, 222.676, 10.357, 0.516)
pt3dadd(115.822, 222.778, 10.365, 0.514)
pt3dadd(115.759, 222.878, 10.372, 0.51)
pt3dadd(115.697, 222.98, 10.38, 0.508)
pt3dadd(115.634, 223.082, 10.387, 0.504)
pt3dadd(115.571, 223.184, 10.395, 0.502)
pt3dadd(115.508, 223.286, 10.403, 0.498)
pt3dadd(115.44, 223.385, 10.412, 0.506)
pt3dadd(115.37, 223.481, 10.421, 0.518)
pt3dadd(115.3, 223.578, 10.431, 0.53)
pt3dadd(115.23, 223.674, 10.441, 0.542)
pt3dadd(115.159, 223.771, 10.45, 0.554)
pt3dadd(115.089, 223.867, 10.46, 0.566)
pt3dadd(115.019, 223.964, 10.47, 0.576)
pt3dadd(114.949, 224.062, 10.479, 0.588)
pt3dadd(114.879, 224.158, 10.489, 0.6)
pt3dadd(114.809, 224.255, 10.499, 0.612)
pt3dadd(114.745, 224.353, 10.517, 0.612)
pt3dadd(114.683, 224.453, 10.538, 0.606)
pt3dadd(114.622, 224.554, 10.559, 0.602)
pt3dadd(114.56, 224.653, 10.58, 0.596)
pt3dadd(114.499, 224.753, 10.602, 0.592)
pt3dadd(114.437, 224.852, 10.623, 0.586)
pt3dadd(114.375, 224.952, 10.644, 0.582)
pt3dadd(114.314, 225.052, 10.665, 0.578)
pt3dadd(114.252, 225.152, 10.686, 0.572)
pt3dadd(114.191, 225.252, 10.707, 0.568)
pt3dadd(114.139, 225.353, 10.74, 0.546)
pt3dadd(114.09, 225.454, 10.774, 0.522)
pt3dadd(114.04, 225.554, 10.809, 0.496)
pt3dadd(113.99, 225.656, 10.843, 0.472)
pt3dadd(113.94, 225.757, 10.877, 0.448)
pt3dadd(113.89, 225.858, 10.912, 0.424)
pt3dadd(113.841, 225.959, 10.946, 0.4)
pt3dadd(113.791, 226.061, 10.98, 0.376)
pt3dadd(113.741, 226.162, 11.015, 0.35)
pt3dadd(113.691, 226.262, 11.049, 0.326)
pt3dadd(113.638, 226.364, 11.077, 0.314)
pt3dadd(113.584, 226.466, 11.105, 0.306)
pt3dadd(113.531, 226.57, 11.132, 0.296)
pt3dadd(113.477, 226.672, 11.159, 0.286)
pt3dadd(113.423, 226.774, 11.186, 0.276)
pt3dadd(113.369, 226.876, 11.214, 0.266)
pt3dadd(113.315, 226.978, 11.241, 0.256)
pt3dadd(113.262, 227.08, 11.268, 0.246)
pt3dadd(113.208, 227.182, 11.296, 0.236)
pt3dadd(113.154, 227.284, 11.323, 0.228)
pt3dadd(113.098, 227.387, 11.346, 0.226)
pt3dadd(113.042, 227.489, 11.368, 0.226)
pt3dadd(112.986, 227.592, 11.391, 0.226)
pt3dadd(112.93, 227.694, 11.413, 0.226)
pt3dadd(112.874, 227.797, 11.436, 0.226)
pt3dadd(112.817, 227.899, 11.458, 0.226)
pt3dadd(112.761, 228.002, 11.481, 0.226)
pt3dadd(112.705, 228.104, 11.503, 0.226)
pt3dadd(112.649, 228.208, 11.525, 0.226)
pt3dadd(112.593, 228.31, 11.548, 0.226)
pt3dadd(112.549, 228.42, 11.564, 0.226)
pt3dadd(112.507, 228.53, 11.58, 0.226)
pt3dadd(112.465, 228.641, 11.595, 0.226)
pt3dadd(112.423, 228.752, 11.611, 0.226)
pt3dadd(112.38, 228.863, 11.627, 0.226)
pt3dadd(112.338, 228.973, 11.642, 0.226)
pt3dadd(112.296, 229.085, 11.658, 0.226)
pt3dadd(112.254, 229.195, 11.673, 0.226)
pt3dadd(112.212, 229.306, 11.689, 0.226)
pt3dadd(112.17, 229.417, 11.704, 0.226)
pt3dadd(112.133, 229.53, 11.717, 0.226)
pt3dadd(112.096, 229.643, 11.73, 0.226)
pt3dadd(112.059, 229.756, 11.743, 0.226)
pt3dadd(112.022, 229.87, 11.756, 0.226)
pt3dadd(111.986, 229.982, 11.768, 0.226)
pt3dadd(111.949, 230.096, 11.781, 0.226)
pt3dadd(111.912, 230.209, 11.794, 0.226)
pt3dadd(111.875, 230.322, 11.807, 0.226)
pt3dadd(111.839, 230.436, 11.82, 0.226)
pt3dadd(111.802, 230.549, 11.832, 0.226)
pt3dadd(111.771, 230.664, 11.84, 0.226)
pt3dadd(111.741, 230.78, 11.848, 0.226)
pt3dadd(111.71, 230.896, 11.855, 0.226)
pt3dadd(111.68, 231.012, 11.863, 0.226)
pt3dadd(111.65, 231.127, 11.87, 0.226)
pt3dadd(111.619, 231.242, 11.878, 0.226)
pt3dadd(111.589, 231.359, 11.885, 0.226)
pt3dadd(111.559, 231.474, 11.893, 0.226)
pt3dadd(111.528, 231.59, 11.9, 0.226)
pt3dadd(111.498, 231.706, 11.908, 0.226)
pt3dadd(111.458, 231.818, 11.917, 0.226)
pt3dadd(111.416, 231.93, 11.927, 0.226)
pt3dadd(111.375, 232.043, 11.937, 0.226)
pt3dadd(111.333, 232.154, 11.946, 0.226)
pt3dadd(111.292, 232.266, 11.956, 0.226)
pt3dadd(111.25, 232.379, 11.966, 0.226)
pt3dadd(111.209, 232.49, 11.976, 0.226)
pt3dadd(111.168, 232.602, 11.986, 0.226)
pt3dadd(111.126, 232.715, 11.995, 0.226)
pt3dadd(111.085, 232.826, 12.005, 0.226)
pt3dadd(111.033, 232.933, 12.017, 0.226)
pt3dadd(110.981, 233.041, 12.029, 0.226)
pt3dadd(110.929, 233.148, 12.041, 0.226)
pt3dadd(110.876, 233.255, 12.053, 0.226)
pt3dadd(110.824, 233.362, 12.064, 0.226)
pt3dadd(110.772, 233.47, 12.076, 0.226)
pt3dadd(110.72, 233.576, 12.088, 0.226)
pt3dadd(110.668, 233.683, 12.1, 0.226)
pt3dadd(110.616, 233.79, 12.112, 0.226)
pt3dadd(110.563, 233.898, 12.124, 0.226)
pt3dadd(110.52, 234.002, 12.156, 0.226)
pt3dadd(110.476, 234.108, 12.189, 0.226)
pt3dadd(110.433, 234.212, 12.221, 0.226)
pt3dadd(110.39, 234.317, 12.254, 0.226)
pt3dadd(110.346, 234.422, 12.286, 0.226)
pt3dadd(110.303, 234.527, 12.319, 0.226)
pt3dadd(110.259, 234.631, 12.351, 0.226)
pt3dadd(110.216, 234.737, 12.384, 0.226)
pt3dadd(110.173, 234.841, 12.416, 0.226)
pt3dadd(110.13, 234.947, 12.449, 0.226)
pt3dadd(110.089, 235.05, 12.487, 0.226)
pt3dadd(110.048, 235.153, 12.525, 0.226)
pt3dadd(110.007, 235.256, 12.563, 0.226)
pt3dadd(109.966, 235.36, 12.601, 0.226)
pt3dadd(109.926, 235.463, 12.639, 0.226)
pt3dadd(109.885, 235.566, 12.677, 0.226)
pt3dadd(109.844, 235.669, 12.715, 0.226)
pt3dadd(109.803, 235.772, 12.753, 0.226)
pt3dadd(109.762, 235.876, 12.792, 0.226)
pt3dadd(109.721, 235.978, 12.829, 0.226)
pt3dadd(109.662, 236.077, 12.858, 0.226)
pt3dadd(109.604, 236.176, 12.886, 0.226)
pt3dadd(109.545, 236.275, 12.915, 0.226)
pt3dadd(109.487, 236.374, 12.943, 0.226)
pt3dadd(109.428, 236.473, 12.972, 0.226)
pt3dadd(109.37, 236.573, 13.001, 0.226)
pt3dadd(109.312, 236.671, 13.029, 0.226)
pt3dadd(109.253, 236.771, 13.058, 0.226)
pt3dadd(109.195, 236.869, 13.086, 0.226)
pt3dadd(109.136, 236.969, 13.115, 0.226)
pt3dadd(109.082, 237.071, 13.142, 0.234)
pt3dadd(109.028, 237.172, 13.17, 0.242)
pt3dadd(108.973, 237.274, 13.197, 0.25)
pt3dadd(108.919, 237.376, 13.225, 0.256)
pt3dadd(108.864, 237.478, 13.252, 0.264)
}
}
proc shape3d_17() {
apic[11] { pt3dadd(108.81, 237.578, 13.28, 0.272)
pt3dadd(108.756, 237.68, 13.307, 0.28)
pt3dadd(108.701, 237.782, 13.335, 0.286)
pt3dadd(108.647, 237.884, 13.363, 0.294)
pt3dadd(108.593, 237.986, 13.39, 0.304)
pt3dadd(108.552, 238.096, 13.414, 0.334)
pt3dadd(108.51, 238.204, 13.438, 0.362)
pt3dadd(108.469, 238.313, 13.462, 0.392)
pt3dadd(108.427, 238.422, 13.487, 0.422)
pt3dadd(108.386, 238.53, 13.511, 0.452)
pt3dadd(108.344, 238.639, 13.535, 0.482)
pt3dadd(108.303, 238.747, 13.559, 0.512)
pt3dadd(108.261, 238.856, 13.584, 0.542)
pt3dadd(108.22, 238.966, 13.608, 0.572)
pt3dadd(108.178, 239.074, 13.634, 0.598)
pt3dadd(108.137, 239.171, 13.68, 0.592)
pt3dadd(108.095, 239.268, 13.727, 0.586)
pt3dadd(108.053, 239.366, 13.774, 0.58)
pt3dadd(108.011, 239.464, 13.821, 0.574)
pt3dadd(107.97, 239.561, 13.867, 0.568)
pt3dadd(107.928, 239.658, 13.914, 0.562)
pt3dadd(107.886, 239.756, 13.961, 0.558)
pt3dadd(107.844, 239.854, 14.008, 0.552)
pt3dadd(107.803, 239.951, 14.054, 0.546)
pt3dadd(107.759, 240.048, 14.1, 0.538)
pt3dadd(107.705, 240.143, 14.142, 0.53)
pt3dadd(107.652, 240.238, 14.184, 0.52)
pt3dadd(107.598, 240.332, 14.227, 0.512)
pt3dadd(107.544, 240.427, 14.269, 0.504)
pt3dadd(107.49, 240.522, 14.311, 0.494)
pt3dadd(107.437, 240.617, 14.353, 0.486)
pt3dadd(107.383, 240.712, 14.395, 0.476)
pt3dadd(107.33, 240.805, 14.437, 0.468)
pt3dadd(107.276, 240.9, 14.479, 0.458)
pt3dadd(107.22, 240.996, 14.518, 0.452)
pt3dadd(107.157, 241.092, 14.547, 0.454)
pt3dadd(107.095, 241.188, 14.577, 0.458)
pt3dadd(107.032, 241.284, 14.607, 0.46)
pt3dadd(106.97, 241.38, 14.636, 0.462)
pt3dadd(106.907, 241.476, 14.666, 0.464)
pt3dadd(106.845, 241.572, 14.695, 0.466)
pt3dadd(106.782, 241.668, 14.725, 0.468)
pt3dadd(106.72, 241.764, 14.755, 0.472)
pt3dadd(106.657, 241.86, 14.784, 0.474)
pt3dadd(106.599, 241.96, 14.811, 0.484)
pt3dadd(106.549, 242.065, 14.831, 0.514)
pt3dadd(106.498, 242.172, 14.852, 0.544)
pt3dadd(106.448, 242.279, 14.872, 0.574)
pt3dadd(106.398, 242.384, 14.892, 0.604)
pt3dadd(106.348, 242.491, 14.913, 0.634)
pt3dadd(106.298, 242.597, 14.933, 0.664)
pt3dadd(106.248, 242.704, 14.954, 0.694)
pt3dadd(106.197, 242.809, 14.974, 0.724)
pt3dadd(106.147, 242.916, 14.994, 0.754)
pt3dadd(106.094, 243.02, 15.013, 0.772)
pt3dadd(106.035, 243.124, 15.03, 0.762)
pt3dadd(105.975, 243.226, 15.046, 0.754)
pt3dadd(105.916, 243.328, 15.062, 0.744)
pt3dadd(105.857, 243.431, 15.079, 0.734)
pt3dadd(105.797, 243.533, 15.095, 0.724)
pt3dadd(105.738, 243.636, 15.111, 0.716)
pt3dadd(105.679, 243.738, 15.127, 0.706)
pt3dadd(105.619, 243.84, 15.144, 0.696)
pt3dadd(105.56, 243.943, 15.16, 0.686)
pt3dadd(105.498, 244.044, 15.175, 0.666)
pt3dadd(105.433, 244.144, 15.188, 0.628)
pt3dadd(105.367, 244.242, 15.202, 0.588)
pt3dadd(105.301, 244.342, 15.215, 0.55)
pt3dadd(105.235, 244.44, 15.228, 0.51)
pt3dadd(105.169, 244.54, 15.241, 0.47)
pt3dadd(105.103, 244.638, 15.254, 0.432)
pt3dadd(105.038, 244.738, 15.267, 0.392)
pt3dadd(104.972, 244.836, 15.281, 0.354)
pt3dadd(104.906, 244.936, 15.294, 0.314)
pt3dadd(104.845, 245.034, 15.316, 0.298)
pt3dadd(104.794, 245.131, 15.356, 0.326)
pt3dadd(104.744, 245.23, 15.396, 0.354)
pt3dadd(104.693, 245.327, 15.436, 0.384)
pt3dadd(104.642, 245.424, 15.476, 0.412)
pt3dadd(104.592, 245.522, 15.516, 0.44)
pt3dadd(104.541, 245.62, 15.556, 0.47)
pt3dadd(104.49, 245.717, 15.596, 0.498)
pt3dadd(104.439, 245.815, 15.637, 0.526)
pt3dadd(104.389, 245.912, 15.677, 0.556)
pt3dadd(104.336, 246.007, 15.719, 0.584)
pt3dadd(104.281, 246.1, 15.763, 0.61)
pt3dadd(104.226, 246.192, 15.808, 0.638)
pt3dadd(104.171, 246.284, 15.852, 0.666)
pt3dadd(104.116, 246.377, 15.897, 0.692)
pt3dadd(104.061, 246.469, 15.941, 0.72)
pt3dadd(104.006, 246.562, 15.986, 0.748)
pt3dadd(103.951, 246.654, 16.03, 0.776)
pt3dadd(103.896, 246.746, 16.075, 0.802)
pt3dadd(103.841, 246.838, 16.119, 0.83)
pt3dadd(103.77, 246.918, 16.162, 0.826)
pt3dadd(103.685, 246.988, 16.203, 0.794)
pt3dadd(103.6, 247.056, 16.244, 0.76)
pt3dadd(103.516, 247.126, 16.285, 0.728)
pt3dadd(103.431, 247.195, 16.326, 0.696)
pt3dadd(103.346, 247.264, 16.367, 0.664)
pt3dadd(103.261, 247.333, 16.408, 0.632)
pt3dadd(103.176, 247.403, 16.449, 0.6)
pt3dadd(103.092, 247.471, 16.49, 0.566)
pt3dadd(103.007, 247.541, 16.531, 0.534)
pt3dadd(102.931, 247.614, 16.578, 0.516)
pt3dadd(102.865, 247.691, 16.631, 0.508)
pt3dadd(102.798, 247.768, 16.684, 0.502)
pt3dadd(102.731, 247.844, 16.737, 0.496)
pt3dadd(102.664, 247.921, 16.79, 0.488)
pt3dadd(102.597, 247.998, 16.842, 0.482)
pt3dadd(102.53, 248.076, 16.895, 0.476)
pt3dadd(102.464, 248.153, 16.948, 0.468)
pt3dadd(102.397, 248.23, 17.001, 0.462)
pt3dadd(102.33, 248.306, 17.054, 0.454)
pt3dadd(102.258, 248.381, 17.104, 0.448)
pt3dadd(102.182, 248.453, 17.152, 0.444)
pt3dadd(102.106, 248.526, 17.2, 0.438)
pt3dadd(102.03, 248.599, 17.248, 0.432)
pt3dadd(101.954, 248.671, 17.296, 0.426)
pt3dadd(101.878, 248.744, 17.344, 0.42)
pt3dadd(101.802, 248.818, 17.392, 0.414)
pt3dadd(101.726, 248.89, 17.44, 0.41)
pt3dadd(101.65, 248.963, 17.488, 0.404)
pt3dadd(101.574, 249.036, 17.536, 0.398)
pt3dadd(101.478, 249.096, 17.569, 0.384)
pt3dadd(101.379, 249.152, 17.599, 0.368)
pt3dadd(101.279, 249.21, 17.628, 0.35)
pt3dadd(101.18, 249.266, 17.658, 0.334)
pt3dadd(101.08, 249.323, 17.688, 0.318)
pt3dadd(100.981, 249.38, 17.717, 0.302)
pt3dadd(100.881, 249.437, 17.747, 0.286)
pt3dadd(100.782, 249.494, 17.776, 0.268)
pt3dadd(100.682, 249.551, 17.806, 0.252)
pt3dadd(100.583, 249.607, 17.836, 0.236)
pt3dadd(100.487, 249.676, 17.852, 0.232)
pt3dadd(100.392, 249.748, 17.866, 0.232)
pt3dadd(100.296, 249.818, 17.88, 0.23)
pt3dadd(100.201, 249.889, 17.894, 0.23)
pt3dadd(100.106, 249.96, 17.908, 0.23)
pt3dadd(100.011, 250.032, 17.922, 0.228)
pt3dadd(99.915, 250.103, 17.935, 0.228)
pt3dadd(99.82, 250.174, 17.949, 0.228)
pt3dadd(99.725, 250.244, 17.963, 0.226)
pt3dadd(99.63, 250.316, 17.977, 0.226)
pt3dadd(99.532, 250.385, 17.989, 0.23)
pt3dadd(99.434, 250.452, 18, 0.234)
pt3dadd(99.336, 250.52, 18.012, 0.238)
pt3dadd(99.238, 250.588, 18.023, 0.242)
pt3dadd(99.14, 250.656, 18.034, 0.246)
pt3dadd(99.042, 250.723, 18.046, 0.25)
pt3dadd(98.944, 250.792, 18.057, 0.254)
pt3dadd(98.846, 250.859, 18.068, 0.258)
pt3dadd(98.748, 250.927, 18.08, 0.262)
pt3dadd(98.65, 250.994, 18.091, 0.266)
pt3dadd(98.546, 251.054, 18.099, 0.28)
pt3dadd(98.441, 251.112, 18.105, 0.294)
pt3dadd(98.336, 251.17, 18.112, 0.308)
pt3dadd(98.231, 251.226, 18.119, 0.322)
pt3dadd(98.126, 251.284, 18.126, 0.336)
pt3dadd(98.021, 251.341, 18.133, 0.35)
pt3dadd(97.916, 251.399, 18.14, 0.364)
pt3dadd(97.811, 251.456, 18.147, 0.378)
pt3dadd(97.706, 251.514, 18.154, 0.392)
pt3dadd(97.601, 251.572, 18.161, 0.408)
pt3dadd(97.506, 251.644, 18.17, 0.404)
pt3dadd(97.413, 251.719, 18.18, 0.4)
pt3dadd(97.32, 251.794, 18.189, 0.396)
pt3dadd(97.228, 251.869, 18.199, 0.39)
pt3dadd(97.135, 251.945, 18.209, 0.386)
pt3dadd(97.042, 252.019, 18.218, 0.38)
pt3dadd(96.949, 252.095, 18.228, 0.376)
pt3dadd(96.856, 252.169, 18.237, 0.37)
pt3dadd(96.763, 252.245, 18.247, 0.366)
pt3dadd(96.67, 252.32, 18.257, 0.36)
pt3dadd(96.583, 252.402, 18.267, 0.348)
pt3dadd(96.497, 252.484, 18.278, 0.336)
pt3dadd(96.41, 252.565, 18.288, 0.322)
pt3dadd(96.324, 252.648, 18.299, 0.308)
pt3dadd(96.237, 252.73, 18.31, 0.296)
pt3dadd(96.15, 252.812, 18.32, 0.282)
pt3dadd(96.064, 252.894, 18.331, 0.27)
pt3dadd(95.977, 252.977, 18.342, 0.256)
pt3dadd(95.891, 253.058, 18.352, 0.244)
pt3dadd(95.804, 253.14, 18.363, 0.23)
pt3dadd(95.751, 253.238, 18.398, 0.24)
pt3dadd(95.7, 253.338, 18.435, 0.254)
pt3dadd(95.649, 253.438, 18.472, 0.266)
pt3dadd(95.599, 253.536, 18.509, 0.28)
pt3dadd(95.548, 253.636, 18.546, 0.292)
pt3dadd(95.497, 253.735, 18.583, 0.306)
pt3dadd(95.447, 253.835, 18.62, 0.318)
pt3dadd(95.396, 253.933, 18.657, 0.332)
pt3dadd(95.345, 254.033, 18.694, 0.344)
pt3dadd(95.295, 254.132, 18.731, 0.358)
pt3dadd(95.25, 254.236, 18.764, 0.366)
pt3dadd(95.207, 254.34, 18.798, 0.376)
pt3dadd(95.163, 254.444, 18.832, 0.386)
pt3dadd(95.119, 254.549, 18.865, 0.396)
pt3dadd(95.075, 254.653, 18.899, 0.404)
pt3dadd(95.031, 254.758, 18.932, 0.414)
}
}
proc shape3d_18() {
apic[11] { pt3dadd(94.987, 254.861, 18.966, 0.424)
pt3dadd(94.944, 254.965, 18.999, 0.434)
pt3dadd(94.9, 255.07, 19.033, 0.442)
pt3dadd(94.856, 255.174, 19.066, 0.452)
pt3dadd(94.827, 255.287, 19.09, 0.452)
pt3dadd(94.798, 255.4, 19.113, 0.452)
pt3dadd(94.769, 255.512, 19.137, 0.452)
pt3dadd(94.739, 255.625, 19.16, 0.452)
pt3dadd(94.71, 255.739, 19.184, 0.452)
pt3dadd(94.681, 255.852, 19.208, 0.452)
pt3dadd(94.652, 255.965, 19.231, 0.452)
pt3dadd(94.623, 256.078, 19.255, 0.452)
pt3dadd(94.594, 256.19, 19.278, 0.452)
pt3dadd(94.564, 256.303, 19.302, 0.452)
pt3dadd(94.521, 256.414, 19.317, 0.46)
pt3dadd(94.477, 256.524, 19.333, 0.468)
pt3dadd(94.433, 256.634, 19.348, 0.478)
pt3dadd(94.389, 256.744, 19.363, 0.486)
pt3dadd(94.346, 256.854, 19.378, 0.494)
pt3dadd(94.302, 256.964, 19.394, 0.502)
pt3dadd(94.258, 257.075, 19.409, 0.51)
pt3dadd(94.215, 257.185, 19.424, 0.52)
pt3dadd(94.171, 257.296, 19.44, 0.528)
pt3dadd(94.127, 257.405, 19.455, 0.536)
pt3dadd(94.075, 257.513, 19.465, 0.55)
pt3dadd(94.024, 257.621, 19.476, 0.562)
pt3dadd(93.973, 257.729, 19.487, 0.576)
pt3dadd(93.921, 257.837, 19.497, 0.588)
pt3dadd(93.87, 257.944, 19.508, 0.602)
pt3dadd(93.819, 258.052, 19.518, 0.614)
pt3dadd(93.767, 258.16, 19.529, 0.628)
pt3dadd(93.716, 258.268, 19.54, 0.64)
pt3dadd(93.665, 258.374, 19.55, 0.654)
pt3dadd(93.614, 258.482, 19.56, 0.664)
pt3dadd(93.571, 258.595, 19.563, 0.64)
pt3dadd(93.528, 258.707, 19.565, 0.618)
pt3dadd(93.485, 258.818, 19.567, 0.594)
pt3dadd(93.442, 258.931, 19.569, 0.57)
pt3dadd(93.399, 259.043, 19.572, 0.546)
pt3dadd(93.356, 259.154, 19.574, 0.522)
pt3dadd(93.313, 259.267, 19.576, 0.5)
pt3dadd(93.27, 259.379, 19.579, 0.476)
pt3dadd(93.227, 259.49, 19.581, 0.452)
pt3dadd(93.183, 259.602, 19.583, 0.43)
pt3dadd(93.137, 259.714, 19.585, 0.412)
pt3dadd(93.091, 259.824, 19.586, 0.394)
pt3dadd(93.045, 259.934, 19.588, 0.378)
pt3dadd(92.999, 260.046, 19.59, 0.36)
pt3dadd(92.953, 260.156, 19.592, 0.344)
pt3dadd(92.907, 260.268, 19.593, 0.326)
pt3dadd(92.861, 260.378, 19.595, 0.308)
pt3dadd(92.815, 260.489, 19.597, 0.292)
pt3dadd(92.769, 260.6, 19.598, 0.274)
pt3dadd(92.722, 260.71, 19.6, 0.26)
pt3dadd(92.665, 260.815, 19.603, 0.272)
pt3dadd(92.608, 260.921, 19.606, 0.286)
pt3dadd(92.551, 261.026, 19.608, 0.298)
pt3dadd(92.494, 261.132, 19.611, 0.312)
pt3dadd(92.436, 261.238, 19.614, 0.324)
pt3dadd(92.379, 261.343, 19.616, 0.338)
pt3dadd(92.322, 261.449, 19.619, 0.35)
pt3dadd(92.265, 261.554, 19.622, 0.364)
pt3dadd(92.208, 261.66, 19.624, 0.376)
pt3dadd(92.152, 261.766, 19.627, 0.388)
pt3dadd(92.106, 261.876, 19.632, 0.394)
pt3dadd(92.061, 261.988, 19.637, 0.402)
pt3dadd(92.015, 262.098, 19.642, 0.408)
pt3dadd(91.969, 262.208, 19.647, 0.414)
pt3dadd(91.923, 262.319, 19.652, 0.42)
pt3dadd(91.878, 262.43, 19.657, 0.428)
pt3dadd(91.832, 262.541, 19.663, 0.434)
pt3dadd(91.786, 262.651, 19.667, 0.44)
pt3dadd(91.74, 262.763, 19.673, 0.446)
pt3dadd(91.696, 262.874, 19.678, 0.452)
pt3dadd(91.662, 262.988, 19.685, 0.452)
pt3dadd(91.628, 263.104, 19.693, 0.452)
pt3dadd(91.593, 263.218, 19.7, 0.452)
pt3dadd(91.559, 263.333, 19.707, 0.452)
pt3dadd(91.525, 263.447, 19.714, 0.452)
pt3dadd(91.491, 263.562, 19.722, 0.452)
pt3dadd(91.456, 263.676, 19.729, 0.452)
pt3dadd(91.422, 263.791, 19.736, 0.452)
pt3dadd(91.388, 263.905, 19.743, 0.452)
pt3dadd(91.354, 264.02, 19.751, 0.45)
pt3dadd(91.328, 264.137, 19.764, 0.436)
pt3dadd(91.301, 264.252, 19.777, 0.422)
pt3dadd(91.274, 264.368, 19.789, 0.408)
pt3dadd(91.247, 264.485, 19.802, 0.392)
pt3dadd(91.221, 264.6, 19.815, 0.378)
pt3dadd(91.194, 264.716, 19.827, 0.364)
pt3dadd(91.167, 264.833, 19.84, 0.35)
pt3dadd(91.14, 264.948, 19.853, 0.336)
pt3dadd(91.113, 265.064, 19.865, 0.322)
pt3dadd(91.087, 265.18, 19.88, 0.308)
pt3dadd(91.063, 265.292, 19.907, 0.3)
pt3dadd(91.038, 265.405, 19.935, 0.292)
pt3dadd(91.014, 265.518, 19.962, 0.282)
pt3dadd(90.99, 265.631, 19.99, 0.274)
pt3dadd(90.966, 265.744, 20.017, 0.266)
pt3dadd(90.941, 265.858, 20.044, 0.258)
pt3dadd(90.917, 265.97, 20.072, 0.25)
pt3dadd(90.893, 266.083, 20.099, 0.24)
pt3dadd(90.868, 266.196, 20.126, 0.232)
pt3dadd(90.845, 266.306, 20.158, 0.226)
pt3dadd(90.824, 266.412, 20.202, 0.226)
pt3dadd(90.802, 266.519, 20.245, 0.226)
pt3dadd(90.781, 266.624, 20.289, 0.226)
pt3dadd(90.76, 266.73, 20.332, 0.226)
pt3dadd(90.739, 266.836, 20.376, 0.226)
pt3dadd(90.717, 266.942, 20.419, 0.226)
pt3dadd(90.696, 267.048, 20.463, 0.226)
pt3dadd(90.675, 267.154, 20.507, 0.226)
pt3dadd(90.654, 267.259, 20.55, 0.226)
pt3dadd(90.616, 267.358, 20.591, 0.226)
pt3dadd(90.537, 267.437, 20.627, 0.226)
pt3dadd(90.458, 267.516, 20.663, 0.226)
pt3dadd(90.378, 267.595, 20.699, 0.226)
pt3dadd(90.299, 267.674, 20.736, 0.226)
pt3dadd(90.22, 267.754, 20.771, 0.226)
pt3dadd(90.141, 267.833, 20.807, 0.226)
pt3dadd(90.061, 267.912, 20.844, 0.226)
pt3dadd(89.982, 267.99, 20.88, 0.226)
pt3dadd(89.903, 268.069, 20.916, 0.226)
pt3dadd(89.824, 268.151, 20.949, 0.244)
pt3dadd(89.748, 268.237, 20.975, 0.302)
pt3dadd(89.671, 268.324, 21.002, 0.36)
pt3dadd(89.594, 268.411, 21.029, 0.418)
pt3dadd(89.518, 268.498, 21.055, 0.476)
pt3dadd(89.441, 268.584, 21.082, 0.534)
pt3dadd(89.364, 268.67, 21.109, 0.592)
pt3dadd(89.288, 268.757, 21.135, 0.65)
pt3dadd(89.211, 268.844, 21.162, 0.708)
pt3dadd(89.135, 268.931, 21.189, 0.766)
pt3dadd(89.052, 269.011, 21.212, 0.8)
pt3dadd(88.957, 269.082, 21.231, 0.794)
pt3dadd(88.863, 269.153, 21.25, 0.786)
pt3dadd(88.769, 269.224, 21.268, 0.778)
pt3dadd(88.674, 269.294, 21.287, 0.772)
pt3dadd(88.58, 269.365, 21.305, 0.764)
pt3dadd(88.485, 269.436, 21.324, 0.756)
pt3dadd(88.391, 269.507, 21.342, 0.75)
pt3dadd(88.296, 269.576, 21.361, 0.742)
pt3dadd(88.202, 269.647, 21.379, 0.734)
pt3dadd(88.102, 269.707, 21.399, 0.704)
pt3dadd(87.996, 269.759, 21.421, 0.652)
pt3dadd(87.891, 269.81, 21.442, 0.602)
pt3dadd(87.786, 269.862, 21.464, 0.55)
pt3dadd(87.68, 269.912, 21.485, 0.5)
pt3dadd(87.575, 269.964, 21.507, 0.448)
pt3dadd(87.469, 270.016, 21.528, 0.398)
pt3dadd(87.364, 270.067, 21.549, 0.346)
pt3dadd(87.259, 270.118, 21.571, 0.296)
pt3dadd(87.153, 270.169, 21.592, 0.244)
pt3dadd(87.05, 270.215, 21.625, 0.226)
pt3dadd(86.949, 270.258, 21.666, 0.226)
pt3dadd(86.848, 270.301, 21.706, 0.226)
pt3dadd(86.747, 270.343, 21.746, 0.226)
pt3dadd(86.645, 270.386, 21.786, 0.226)
pt3dadd(86.544, 270.428, 21.826, 0.226)
pt3dadd(86.443, 270.472, 21.867, 0.226)
pt3dadd(86.342, 270.514, 21.907, 0.226)
pt3dadd(86.24, 270.557, 21.947, 0.226)
pt3dadd(86.139, 270.6, 21.987, 0.226)
pt3dadd(86.04, 270.655, 22.019, 0.226)
pt3dadd(85.943, 270.718, 22.046, 0.226)
pt3dadd(85.846, 270.78, 22.073, 0.226)
pt3dadd(85.749, 270.842, 22.099, 0.226)
pt3dadd(85.652, 270.906, 22.126, 0.226)
pt3dadd(85.555, 270.968, 22.153, 0.226)
pt3dadd(85.458, 271.031, 22.18, 0.226)
pt3dadd(85.361, 271.094, 22.207, 0.226)
pt3dadd(85.264, 271.157, 22.234, 0.226)
pt3dadd(85.167, 271.219, 22.26, 0.226)
pt3dadd(85.071, 271.286, 22.284, 0.226)
pt3dadd(84.977, 271.356, 22.305, 0.226)
pt3dadd(84.882, 271.426, 22.327, 0.226)
pt3dadd(84.788, 271.494, 22.348, 0.226)
pt3dadd(84.693, 271.564, 22.37, 0.226)
pt3dadd(84.599, 271.633, 22.392, 0.226)
pt3dadd(84.504, 271.702, 22.413, 0.226)
pt3dadd(84.41, 271.771, 22.435, 0.226)
pt3dadd(84.315, 271.841, 22.457, 0.226)
pt3dadd(84.221, 271.909, 22.478, 0.226)
pt3dadd(84.138, 271.994, 22.49, 0.226)
pt3dadd(84.06, 272.084, 22.499, 0.226)
pt3dadd(83.982, 272.176, 22.507, 0.226)
pt3dadd(83.904, 272.267, 22.515, 0.226)
pt3dadd(83.827, 272.357, 22.523, 0.226)
pt3dadd(83.749, 272.448, 22.532, 0.226)
pt3dadd(83.671, 272.539, 22.54, 0.226)
pt3dadd(83.593, 272.629, 22.548, 0.226)
pt3dadd(83.515, 272.72, 22.556, 0.226)
pt3dadd(83.437, 272.812, 22.565, 0.226)
pt3dadd(83.363, 272.905, 22.572, 0.226)
pt3dadd(83.291, 273.001, 22.578, 0.226)
pt3dadd(83.219, 273.096, 22.585, 0.226)
pt3dadd(83.146, 273.192, 22.591, 0.226)
pt3dadd(83.074, 273.287, 22.598, 0.226)
pt3dadd(83.001, 273.382, 22.604, 0.226)
pt3dadd(82.929, 273.478, 22.611, 0.226)
}
}
proc shape3d_19() {
apic[11] { pt3dadd(82.856, 273.572, 22.617, 0.226)
pt3dadd(82.784, 273.668, 22.623, 0.226)
pt3dadd(82.711, 273.763, 22.63, 0.226)
pt3dadd(82.665, 273.874, 22.629, 0.226)
pt3dadd(82.625, 273.986, 22.626, 0.226)
pt3dadd(82.584, 274.099, 22.623, 0.226)
pt3dadd(82.544, 274.212, 22.62, 0.226)
pt3dadd(82.503, 274.325, 22.617, 0.226)
pt3dadd(82.463, 274.438, 22.614, 0.226)
pt3dadd(82.422, 274.55, 22.611, 0.226)
pt3dadd(82.382, 274.663, 22.609, 0.226)
pt3dadd(82.341, 274.777, 22.606, 0.226)
pt3dadd(82.301, 274.89, 22.603, 0.226)
pt3dadd(82.272, 275.005, 22.598, 0.226)
pt3dadd(82.245, 275.123, 22.593, 0.226)
pt3dadd(82.218, 275.239, 22.588, 0.226)
pt3dadd(82.191, 275.356, 22.583, 0.226)
pt3dadd(82.164, 275.473, 22.577, 0.226)
pt3dadd(82.137, 275.59, 22.572, 0.226)
pt3dadd(82.11, 275.706, 22.567, 0.226)
pt3dadd(82.083, 275.822, 22.562, 0.226)
pt3dadd(82.056, 275.94, 22.557, 0.226)
pt3dadd(82.029, 276.056, 22.551, 0.226)
pt3dadd(82.014, 276.175, 22.544, 0.226)
pt3dadd(82.001, 276.294, 22.537, 0.226)
pt3dadd(81.987, 276.413, 22.529, 0.226)
pt3dadd(81.974, 276.532, 22.522, 0.226)
pt3dadd(81.96, 276.65, 22.515, 0.226)
pt3dadd(81.947, 276.769, 22.507, 0.226)
pt3dadd(81.933, 276.889, 22.5, 0.226)
pt3dadd(81.92, 277.008, 22.493, 0.226)
pt3dadd(81.907, 277.127, 22.485, 0.226)
pt3dadd(81.893, 277.246, 22.478, 0.226)
pt3dadd(81.891, 277.364, 22.466, 0.226)
pt3dadd(81.89, 277.483, 22.454, 0.226)
pt3dadd(81.89, 277.602, 22.441, 0.226)
pt3dadd(81.889, 277.722, 22.429, 0.226)
pt3dadd(81.888, 277.841, 22.416, 0.226)
pt3dadd(81.887, 277.96, 22.404, 0.226)
pt3dadd(81.887, 278.078, 22.391, 0.226)
pt3dadd(81.886, 278.198, 22.379, 0.226)
pt3dadd(81.885, 278.317, 22.366, 0.226)
pt3dadd(81.885, 278.436, 22.354, 0.226)
pt3dadd(81.884, 278.552, 22.332, 0.226)
pt3dadd(81.884, 278.67, 22.308, 0.226)
pt3dadd(81.884, 278.786, 22.284, 0.226)
pt3dadd(81.884, 278.903, 22.261, 0.226)
pt3dadd(81.884, 279.019, 22.237, 0.226)
pt3dadd(81.884, 279.136, 22.214, 0.226)
pt3dadd(81.884, 279.253, 22.19, 0.226)
pt3dadd(81.884, 279.37, 22.166, 0.226)
pt3dadd(81.884, 279.486, 22.143, 0.226)
pt3dadd(81.884, 279.602, 22.119, 0.226)
pt3dadd(81.884, 279.712, 22.079, 0.226)
pt3dadd(81.884, 279.822, 22.038, 0.226)
pt3dadd(81.884, 279.931, 21.997, 0.226)
pt3dadd(81.884, 280.04, 21.957, 0.226)
pt3dadd(81.884, 280.151, 21.916, 0.226)
pt3dadd(81.884, 280.26, 21.875, 0.226)
pt3dadd(81.884, 280.37, 21.834, 0.226)
pt3dadd(81.884, 280.48, 21.794, 0.226)
pt3dadd(81.884, 280.589, 21.753, 0.226)
pt3dadd(81.884, 280.699, 21.712, 0.226)
pt3dadd(81.884, 280.813, 21.681, 0.226)
pt3dadd(81.884, 280.927, 21.65, 0.226)
pt3dadd(81.884, 281.041, 21.619, 0.226)
pt3dadd(81.884, 281.155, 21.588, 0.226)
pt3dadd(81.884, 281.269, 21.557, 0.226)
pt3dadd(81.884, 281.383, 21.526, 0.226)
pt3dadd(81.884, 281.497, 21.495, 0.226)
pt3dadd(81.884, 281.611, 21.464, 0.226)
pt3dadd(81.884, 281.725, 21.433, 0.226)
pt3dadd(81.884, 281.839, 21.402, 0.226)
pt3dadd(81.884, 281.954, 21.373, 0.226)
pt3dadd(81.884, 282.07, 21.345, 0.226)
pt3dadd(81.884, 282.184, 21.316, 0.226)
pt3dadd(81.884, 282.299, 21.287, 0.226)
pt3dadd(81.884, 282.414, 21.258, 0.226)
pt3dadd(81.884, 282.529, 21.23, 0.226)
pt3dadd(81.884, 282.644, 21.201, 0.226)
pt3dadd(81.884, 282.758, 21.172, 0.226)
pt3dadd(81.884, 282.874, 21.143, 0.226)
pt3dadd(81.884, 282.989, 21.115, 0.226)
}
apic[12] {pt3dclear()
pt3dadd(123.294, 184.952, 5.476, 0.49)
pt3dadd(123.289, 184.933, 5.417, 0.518)
pt3dadd(123.256, 184.874, 5.312, 0.662)
pt3dadd(123.223, 184.814, 5.206, 0.806)
pt3dadd(123.191, 184.756, 5.101, 0.95)
pt3dadd(123.158, 184.696, 4.996, 1.092)
pt3dadd(123.068, 184.712, 4.953, 1.17)
pt3dadd(122.957, 184.756, 4.932, 1.226)
pt3dadd(122.87, 184.823, 4.911, 1.276)
pt3dadd(122.809, 184.922, 4.89, 1.322)
pt3dadd(122.762, 185.026, 4.869, 1.368)
pt3dadd(122.748, 185.141, 4.848, 1.414)
pt3dadd(122.734, 185.255, 4.827, 1.462)
pt3dadd(122.684, 185.356, 4.806, 1.552)
pt3dadd(122.609, 185.446, 4.785, 1.662)
pt3dadd(122.533, 185.532, 4.764, 1.698)
pt3dadd(122.455, 185.62, 4.742, 1.734)
pt3dadd(122.378, 185.707, 4.721, 1.768)
pt3dadd(122.3, 185.795, 4.7, 1.804)
pt3dadd(122.23, 185.885, 4.679, 1.836)
pt3dadd(122.185, 185.993, 4.658, 1.85)
pt3dadd(122.141, 186.1, 4.637, 1.864)
pt3dadd(122.098, 186.206, 4.616, 1.878)
pt3dadd(122.053, 186.314, 4.595, 1.892)
pt3dadd(122.01, 186.421, 4.574, 1.906)
pt3dadd(121.926, 186.5, 4.553, 1.908)
pt3dadd(121.834, 186.57, 4.532, 1.908)
pt3dadd(121.74, 186.642, 4.511, 1.908)
pt3dadd(121.645, 186.712, 4.49, 1.908)
pt3dadd(121.553, 186.784, 4.469, 1.908)
pt3dadd(121.447, 186.834, 4.448, 1.908)
pt3dadd(121.339, 186.88, 4.427, 1.908)
pt3dadd(121.231, 186.928, 4.406, 1.908)
pt3dadd(121.123, 186.973, 4.385, 1.908)
pt3dadd(121.014, 187.02, 4.364, 1.908)
pt3dadd(120.908, 187.072, 4.343, 1.922)
pt3dadd(120.806, 187.128, 4.322, 1.944)
pt3dadd(120.722, 187.202, 4.299, 1.962)
pt3dadd(120.724, 187.198, 4.278, 1.962)
pt3dadd(120.724, 187.194, 4.257, 1.962)
pt3dadd(120.725, 187.189, 4.236, 1.962)
pt3dadd(120.725, 187.186, 4.215, 1.962)
pt3dadd(120.725, 187.181, 4.194, 1.962)
pt3dadd(120.726, 187.177, 4.173, 1.962)
pt3dadd(120.726, 187.172, 4.152, 1.962)
pt3dadd(120.727, 187.169, 4.131, 1.962)
pt3dadd(120.727, 187.165, 4.11, 1.962)
pt3dadd(120.679, 187.271, 4.084, 1.974)
pt3dadd(120.679, 187.267, 4.063, 1.974)
pt3dadd(120.679, 187.262, 4.042, 1.974)
pt3dadd(120.68, 187.259, 4.021, 1.974)
pt3dadd(120.637, 187.355, 3.981, 1.982)
pt3dadd(120.626, 187.41, 3.874, 1.97)
pt3dadd(120.607, 187.458, 3.766, 1.954)
pt3dadd(120.54, 187.453, 3.663, 1.92)
pt3dadd(120.473, 187.45, 3.559, 1.884)
pt3dadd(120.385, 187.522, 3.525, 1.868)
pt3dadd(120.298, 187.598, 3.494, 1.854)
pt3dadd(120.209, 187.673, 3.463, 1.838)
pt3dadd(120.113, 187.738, 3.438, 1.848)
pt3dadd(120.01, 187.795, 3.417, 1.87)
pt3dadd(119.911, 187.858, 3.396, 1.976)
pt3dadd(119.83, 187.934, 3.35, 2.068)
pt3dadd(119.754, 188.012, 3.295, 2.116)
pt3dadd(119.679, 188.092, 3.239, 2.164)
pt3dadd(119.603, 188.17, 3.184, 2.212)
pt3dadd(119.553, 188.243, 3.105, 2.27)
pt3dadd(119.525, 188.31, 3.007, 2.338)
pt3dadd(119.488, 188.404, 2.957, 2.382)
pt3dadd(119.447, 188.513, 2.931, 2.416)
pt3dadd(119.402, 188.605, 2.881, 2.448)
pt3dadd(119.349, 188.677, 2.796, 2.476)
pt3dadd(119.328, 188.699, 2.688, 2.504)
pt3dadd(119.324, 188.695, 2.567, 2.53)
pt3dadd(119.32, 188.69, 2.446, 2.556)
pt3dadd(119.3, 188.693, 2.327, 2.586)
pt3dadd(119.273, 188.705, 2.211, 2.612)
pt3dadd(119.23, 188.75, 2.106, 2.612)
pt3dadd(119.188, 188.784, 1.999, 2.602)
pt3dadd(119.147, 188.784, 1.884, 2.568)
pt3dadd(119.102, 188.788, 1.772, 2.532)
pt3dadd(118.996, 188.809, 1.712, 2.456)
pt3dadd(118.892, 188.837, 1.655, 2.382)
pt3dadd(118.832, 188.938, 1.633, 2.312)
pt3dadd(118.771, 189.036, 1.612, 2.244)
pt3dadd(118.752, 189.143, 1.561, 2.174)
pt3dadd(118.739, 189.25, 1.505, 2.104)
pt3dadd(118.725, 189.358, 1.449, 2.034)
pt3dadd(118.726, 189.353, 1.428, 0.678)
pt3dadd(118.682, 189.461, 1.407, 0.836)
pt3dadd(118.638, 189.569, 1.386, 0.996)
pt3dadd(118.594, 189.676, 1.365, 1.154)
pt3dadd(118.55, 189.782, 1.344, 1.312)
pt3dadd(118.506, 189.889, 1.323, 1.47)
pt3dadd(118.467, 190, 1.302, 1.578)
pt3dadd(118.431, 190.109, 1.281, 1.656)
pt3dadd(118.396, 190.22, 1.26, 1.732)
pt3dadd(118.361, 190.331, 1.239, 1.808)
pt3dadd(118.325, 190.44, 1.218, 1.884)
pt3dadd(118.29, 190.552, 1.197, 1.962)
pt3dadd(118.251, 190.66, 1.176, 2.09)
pt3dadd(118.213, 190.77, 1.155, 2.218)
pt3dadd(118.126, 190.834, 1.134, 2.29)
pt3dadd(118.016, 190.876, 1.113, 2.332)
pt3dadd(117.939, 190.944, 1.092, 2.342)
pt3dadd(117.919, 191.058, 1.071, 2.294)
pt3dadd(117.9, 191.173, 1.05, 2.246)
pt3dadd(117.896, 191.288, 1.029, 2.164)
pt3dadd(117.896, 191.405, 1.008, 2.072)
pt3dadd(117.897, 191.52, 0.987, 1.98)
pt3dadd(117.897, 191.636, 0.966, 1.822)
pt3dadd(117.898, 191.752, 0.945, 1.646)
pt3dadd(117.898, 191.868, 0.924, 1.548)
pt3dadd(117.899, 191.984, 0.903, 1.474)
pt3dadd(117.899, 192.1, 0.882, 1.398)
pt3dadd(117.884, 192.215, 0.861, 1.382)
pt3dadd(117.864, 192.328, 0.839, 1.382)
}
}
proc shape3d_20() {
apic[12] { pt3dadd(117.828, 192.428, 0.818, 1.39)
pt3dadd(117.715, 192.462, 0.797, 1.444)
pt3dadd(117.602, 192.498, 0.776, 1.498)
pt3dadd(117.51, 192.569, 0.755, 1.546)
pt3dadd(117.423, 192.646, 0.734, 1.592)
pt3dadd(117.423, 192.642, 0.713, 1.592)
pt3dadd(117.382, 192.745, 0.692, 1.59)
pt3dadd(117.383, 192.742, 0.671, 1.59)
pt3dadd(117.361, 192.854, 0.65, 1.568)
pt3dadd(117.34, 192.968, 0.629, 1.544)
pt3dadd(117.319, 193.084, 0.608, 1.52)
pt3dadd(117.293, 193.195, 0.587, 1.482)
pt3dadd(117.294, 193.192, 0.566, 1.482)
pt3dadd(117.261, 193.302, 0.545, 1.42)
pt3dadd(117.228, 193.414, 0.524, 1.358)
pt3dadd(117.178, 193.518, 0.503, 1.262)
pt3dadd(117.134, 193.626, 0.482, 1.29)
pt3dadd(117.09, 193.733, 0.461, 1.318)
pt3dadd(117.046, 193.84, 0.44, 1.346)
pt3dadd(117.002, 193.948, 0.419, 1.374)
pt3dadd(116.958, 194.054, 0.398, 1.402)
pt3dadd(116.933, 194.168, 0.377, 1.464)
pt3dadd(116.911, 194.281, 0.356, 1.53)
pt3dadd(116.889, 194.395, 0.335, 1.598)
pt3dadd(116.868, 194.508, 0.314, 1.664)
pt3dadd(116.846, 194.623, 0.293, 1.732)
pt3dadd(116.824, 194.737, 0.272, 1.798)
pt3dadd(116.76, 194.832, 0.251, 1.894)
pt3dadd(116.688, 194.924, 0.23, 1.994)
pt3dadd(116.617, 195.016, 0.209, 2.094)
pt3dadd(116.545, 195.108, 0.188, 2.196)
pt3dadd(116.474, 195.199, 0.167, 2.296)
pt3dadd(116.397, 195.287, 0.145, 2.358)
pt3dadd(116.32, 195.374, 0.124, 2.414)
pt3dadd(116.243, 195.461, 0.103, 2.47)
pt3dadd(116.166, 195.55, 0.082, 2.524)
pt3dadd(116.088, 195.636, 0.061, 2.58)
pt3dadd(116.045, 195.743, 0.04, 2.538)
pt3dadd(116.006, 195.851, 0.019, 2.486)
pt3dadd(115.963, 195.96, -0.002, 2.378)
pt3dadd(115.916, 196.067, -0.023, 2.224)
pt3dadd(115.855, 196.158, -0.044, 2.07)
pt3dadd(115.749, 196.208, -0.065, 1.914)
pt3dadd(115.642, 196.256, -0.086, 1.756)
pt3dadd(115.529, 196.294, -0.107, 1.66)
pt3dadd(115.416, 196.328, -0.128, 1.564)
pt3dadd(115.417, 196.325, -0.149, 1.564)
pt3dadd(115.349, 196.406, -0.17, 1.498)
pt3dadd(115.349, 196.403, -0.191, 1.498)
pt3dadd(115.304, 196.511, -0.212, 1.444)
pt3dadd(115.26, 196.616, -0.233, 1.392)
pt3dadd(115.215, 196.724, -0.254, 1.34)
pt3dadd(115.175, 196.832, -0.275, 1.296)
pt3dadd(115.136, 196.942, -0.296, 1.254)
pt3dadd(115.072, 197.033, -0.317, 1.23)
pt3dadd(114.982, 197.108, -0.338, 1.25)
pt3dadd(114.894, 197.185, -0.359, 1.274)
pt3dadd(114.806, 197.261, -0.38, 1.3)
pt3dadd(114.717, 197.338, -0.401, 1.326)
pt3dadd(114.629, 197.413, -0.422, 1.35)
pt3dadd(114.569, 197.512, -0.443, 1.38)
pt3dadd(114.516, 197.615, -0.464, 1.408)
pt3dadd(114.462, 197.718, -0.485, 1.436)
pt3dadd(114.409, 197.822, -0.506, 1.466)
pt3dadd(114.356, 197.924, -0.527, 1.494)
pt3dadd(114.315, 198.034, -0.548, 1.548)
pt3dadd(114.282, 198.144, -0.57, 1.622)
pt3dadd(114.247, 198.254, -0.591, 1.7)
pt3dadd(114.193, 198.356, -0.612, 1.812)
pt3dadd(114.14, 198.461, -0.633, 1.924)
pt3dadd(114.101, 198.569, -0.654, 2.042)
pt3dadd(114.062, 198.678, -0.675, 2.158)
pt3dadd(113.98, 198.739, -0.696, 2.254)
pt3dadd(113.863, 198.761, -0.717, 2.334)
pt3dadd(113.749, 198.787, -0.738, 2.41)
pt3dadd(113.749, 198.782, -0.759, 2.41)
pt3dadd(113.677, 198.874, -0.783, 2.418)
pt3dadd(113.605, 198.965, -0.807, 2.426)
pt3dadd(113.533, 199.057, -0.832, 2.432)
pt3dadd(113.491, 199.157, -0.875, 2.422)
pt3dadd(113.472, 199.261, -0.933, 2.398)
pt3dadd(113.422, 199.354, -0.982, 2.328)
pt3dadd(113.326, 199.42, -1.006, 2.28)
pt3dadd(113.227, 199.483, -1.027, 2.246)
pt3dadd(113.18, 199.579, -1.062, 2.188)
pt3dadd(113.157, 199.691, -1.103, 2.12)
pt3dadd(113.145, 199.786, -1.17, 2.05)
pt3dadd(113.146, 199.862, -1.264, 1.98)
pt3dadd(113.146, 199.951, -1.346, 1.918)
pt3dadd(113.147, 200.057, -1.406, 1.874)
pt3dadd(113.147, 200.164, -1.466, 1.834)
pt3dadd(113.148, 200.272, -1.522, 1.834)
pt3dadd(113.136, 200.371, -1.59, 1.842)
pt3dadd(113.112, 200.464, -1.669, 1.858)
pt3dadd(113.089, 200.554, -1.747, 1.876)
pt3dadd(113.066, 200.646, -1.825, 1.892)
pt3dadd(113.041, 200.737, -1.902, 1.91)
pt3dadd(112.992, 200.839, -1.944, 1.954)
pt3dadd(112.944, 200.941, -1.987, 1.998)
pt3dadd(112.896, 201.044, -2.029, 2.04)
pt3dadd(112.847, 201.145, -2.072, 2.084)
pt3dadd(112.805, 201.239, -2.133, 2.138)
pt3dadd(112.771, 201.32, -2.219, 2.21)
pt3dadd(112.737, 201.4, -2.305, 2.28)
pt3dadd(112.704, 201.48, -2.391, 2.35)
pt3dadd(112.665, 201.562, -2.472, 2.422)
pt3dadd(112.6, 201.652, -2.524, 2.498)
pt3dadd(112.536, 201.74, -2.576, 2.574)
pt3dadd(112.471, 201.83, -2.629, 2.65)
pt3dadd(112.406, 201.92, -2.681, 2.726)
pt3dadd(112.354, 202.012, -2.742, 2.782)
pt3dadd(112.305, 202.105, -2.805, 2.836)
pt3dadd(112.255, 202.196, -2.868, 2.89)
pt3dadd(112.206, 202.29, -2.93, 2.942)
pt3dadd(112.187, 202.32, -2.989, 2.964)
}
apic[13] {pt3dclear()
pt3dadd(112.187, 202.32, -2.989, 2.964)
pt3dadd(112.186, 202.321, -2.989, 2.964)
pt3dadd(112.129, 202.423, -3.014, 2.986)
pt3dadd(112.073, 202.525, -3.039, 3.008)
pt3dadd(112.016, 202.626, -3.064, 3.03)
pt3dadd(111.959, 202.728, -3.089, 3.054)
pt3dadd(111.888, 202.814, -3.121, 3.072)
pt3dadd(111.806, 202.89, -3.158, 3.086)
pt3dadd(111.703, 202.942, -3.179, 3.042)
pt3dadd(111.594, 202.987, -3.195, 2.982)
pt3dadd(111.499, 203.057, -3.2, 2.872)
pt3dadd(111.411, 203.138, -3.2, 2.742)
pt3dadd(111.371, 203.242, -3.2, 2.598)
pt3dadd(111.366, 203.362, -3.2, 2.44)
pt3dadd(111.361, 203.482, -3.2, 2.284)
pt3dadd(111.36, 203.6, -3.213, 2.084)
pt3dadd(111.36, 203.718, -3.233, 1.862)
pt3dadd(111.326, 203.826, -3.266, 1.794)
pt3dadd(111.291, 203.933, -3.3, 1.728)
pt3dadd(111.256, 204.041, -3.334, 1.662)
pt3dadd(111.222, 204.148, -3.368, 1.598)
pt3dadd(111.193, 204.259, -3.39, 1.548)
pt3dadd(111.173, 204.378, -3.391, 1.528)
pt3dadd(111.152, 204.496, -3.393, 1.506)
pt3dadd(111.132, 204.614, -3.395, 1.486)
pt3dadd(111.112, 204.733, -3.397, 1.464)
pt3dadd(111.092, 204.851, -3.399, 1.444)
pt3dadd(111.062, 204.966, -3.4, 1.43)
pt3dadd(111.017, 205.078, -3.4, 1.424)
pt3dadd(110.973, 205.189, -3.4, 1.42)
pt3dadd(110.928, 205.301, -3.4, 1.416)
pt3dadd(110.884, 205.412, -3.4, 1.41)
pt3dadd(110.839, 205.523, -3.4, 1.406)
pt3dadd(110.773, 205.624, -3.4, 1.426)
pt3dadd(110.707, 205.723, -3.4, 1.446)
pt3dadd(110.64, 205.824, -3.4, 1.466)
pt3dadd(110.574, 205.924, -3.4, 1.486)
pt3dadd(110.508, 206.024, -3.4, 1.506)
pt3dadd(110.425, 206.111, -3.4, 1.532)
pt3dadd(110.342, 206.197, -3.4, 1.556)
pt3dadd(110.258, 206.282, -3.4, 1.582)
pt3dadd(110.174, 206.369, -3.4, 1.608)
pt3dadd(110.092, 206.455, -3.4, 1.632)
pt3dadd(110.059, 206.57, -3.4, 1.642)
pt3dadd(110.026, 206.687, -3.4, 1.65)
pt3dadd(109.994, 206.802, -3.4, 1.658)
pt3dadd(109.961, 206.917, -3.4, 1.668)
pt3dadd(109.928, 207.032, -3.4, 1.676)
pt3dadd(109.895, 207.148, -3.4, 1.68)
pt3dadd(109.862, 207.264, -3.4, 1.676)
pt3dadd(109.829, 207.379, -3.4, 1.672)
pt3dadd(109.796, 207.494, -3.4, 1.668)
pt3dadd(109.763, 207.61, -3.4, 1.664)
pt3dadd(109.73, 207.725, -3.4, 1.658)
pt3dadd(109.682, 207.835, -3.4, 1.644)
pt3dadd(109.629, 207.942, -3.4, 1.624)
pt3dadd(109.575, 208.049, -3.4, 1.606)
pt3dadd(109.521, 208.157, -3.4, 1.586)
pt3dadd(109.468, 208.264, -3.4, 1.566)
pt3dadd(109.408, 208.368, -3.4, 1.542)
pt3dadd(109.342, 208.469, -3.4, 1.512)
pt3dadd(109.276, 208.568, -3.4, 1.484)
pt3dadd(109.21, 208.669, -3.4, 1.454)
pt3dadd(109.144, 208.769, -3.4, 1.424)
pt3dadd(109.081, 208.871, -3.4, 1.398)
pt3dadd(109.021, 208.975, -3.4, 1.378)
pt3dadd(108.962, 209.08, -3.4, 1.358)
pt3dadd(108.902, 209.183, -3.4, 1.34)
pt3dadd(108.842, 209.287, -3.4, 1.32)
pt3dadd(108.79, 209.394, -3.4, 1.308)
pt3dadd(108.754, 209.509, -3.4, 1.312)
pt3dadd(108.718, 209.623, -3.4, 1.316)
pt3dadd(108.682, 209.738, -3.4, 1.32)
pt3dadd(108.646, 209.852, -3.4, 1.326)
pt3dadd(108.61, 209.966, -3.4, 1.33)
pt3dadd(108.549, 210.068, -3.4, 1.36)
pt3dadd(108.477, 210.164, -3.4, 1.4)
pt3dadd(108.405, 210.26, -3.4, 1.44)
pt3dadd(108.333, 210.356, -3.4, 1.48)
pt3dadd(108.261, 210.452, -3.4, 1.52)
pt3dadd(108.208, 210.559, -3.4, 1.566)
pt3dadd(108.164, 210.671, -3.4, 1.612)
pt3dadd(108.119, 210.782, -3.4, 1.658)
pt3dadd(108.075, 210.894, -3.4, 1.704)
pt3dadd(108.03, 211.004, -3.4, 1.752)
}
}
proc shape3d_21() {
apic[13] { pt3dadd(107.976, 211.111, -3.4, 1.798)
pt3dadd(107.904, 211.207, -3.4, 1.842)
pt3dadd(107.832, 211.303, -3.4, 1.888)
pt3dadd(107.76, 211.399, -3.4, 1.934)
pt3dadd(107.688, 211.495, -3.4, 1.978)
pt3dadd(107.625, 211.596, -3.4, 2.034)
pt3dadd(107.578, 211.706, -3.4, 2.11)
pt3dadd(107.533, 211.818, -3.401, 2.186)
pt3dadd(107.528, 211.937, -3.413, 2.246)
pt3dadd(107.523, 212.056, -3.426, 2.304)
pt3dadd(107.501, 212.167, -3.449, 2.37)
pt3dadd(107.459, 212.272, -3.484, 2.45)
pt3dadd(107.425, 212.372, -3.529, 2.514)
pt3dadd(107.397, 212.471, -3.581, 2.568)
pt3dadd(107.333, 212.52, -3.644, 2.586)
pt3dadd(107.26, 212.569, -3.701, 2.582)
pt3dadd(107.205, 212.668, -3.734, 2.57)
pt3dadd(107.149, 212.766, -3.768, 2.558)
pt3dadd(107.094, 212.864, -3.801, 2.548)
pt3dadd(107.039, 212.963, -3.835, 2.536)
pt3dadd(106.991, 213.058, -3.882, 2.524)
pt3dadd(106.944, 213.152, -3.929, 2.512)
pt3dadd(106.896, 213.247, -3.977, 2.5)
pt3dadd(106.849, 213.341, -4.024, 2.488)
pt3dadd(106.791, 213.434, -4.065, 2.486)
pt3dadd(106.731, 213.526, -4.105, 2.486)
pt3dadd(106.671, 213.618, -4.145, 2.486)
pt3dadd(106.61, 213.71, -4.184, 2.486)
pt3dadd(106.545, 213.791, -4.233, 2.474)
pt3dadd(106.475, 213.863, -4.288, 2.456)
pt3dadd(106.406, 213.936, -4.343, 2.438)
pt3dadd(106.337, 214.008, -4.398, 2.418)
pt3dadd(106.253, 214.064, -4.45, 2.364)
pt3dadd(106.158, 214.108, -4.498, 2.282)
pt3dadd(106.076, 214.17, -4.549, 2.154)
pt3dadd(106, 214.24, -4.6, 2.01)
pt3dadd(105.93, 214.309, -4.658, 1.85)
pt3dadd(105.874, 214.386, -4.713, 1.696)
pt3dadd(105.854, 214.488, -4.764, 1.556)
pt3dadd(105.837, 214.59, -4.814, 1.414)
pt3dadd(105.828, 214.696, -4.862, 1.27)
pt3dadd(105.741, 214.759, -4.899, 1.218)
pt3dadd(105.649, 214.82, -4.936, 1.182)
pt3dadd(105.6, 214.921, -4.972, 1.224)
pt3dadd(105.54, 215.015, -5, 1.278)
pt3dadd(105.441, 215.082, -5, 1.382)
pt3dadd(105.341, 215.147, -5, 1.486)
pt3dadd(105.221, 215.156, -5, 1.594)
pt3dadd(105.102, 215.166, -5, 1.702)
pt3dadd(105.004, 215.203, -5, 1.8)
pt3dadd(104.967, 215.317, -5, 1.87)
pt3dadd(104.93, 215.431, -5, 1.94)
pt3dadd(104.893, 215.545, -5, 2.01)
pt3dadd(104.855, 215.659, -5, 2.078)
pt3dadd(104.816, 215.772, -5, 2.142)
pt3dadd(104.776, 215.886, -5, 2.206)
pt3dadd(104.76, 216.005, -5.001, 2.208)
pt3dadd(104.76, 216.124, -5.013, 2.184)
pt3dadd(104.76, 216.242, -5.025, 2.16)
pt3dadd(104.76, 216.361, -5.038, 2.136)
pt3dadd(104.76, 216.481, -5.05, 2.112)
pt3dadd(104.76, 216.6, -5.063, 2.088)
pt3dadd(104.76, 216.719, -5.075, 2.064)
pt3dadd(104.76, 216.826, -5.117, 1.97)
pt3dadd(104.76, 216.93, -5.168, 1.856)
pt3dadd(104.76, 217.042, -5.199, 1.758)
pt3dadd(104.76, 217.159, -5.216, 1.67)
pt3dadd(104.76, 217.278, -5.233, 1.584)
pt3dadd(104.742, 217.391, -5.264, 1.558)
pt3dadd(104.723, 217.502, -5.295, 1.536)
pt3dadd(104.644, 217.585, -5.315, 1.576)
pt3dadd(104.554, 217.661, -5.332, 1.628)
pt3dadd(104.463, 217.718, -5.377, 1.71)
pt3dadd(104.426, 217.813, -5.417, 1.724)
pt3dadd(104.406, 217.922, -5.454, 1.712)
pt3dadd(104.396, 218.03, -5.498, 1.676)
pt3dadd(104.39, 218.136, -5.544, 1.63)
pt3dadd(104.336, 218.222, -5.576, 1.6)
pt3dadd(104.24, 218.291, -5.593, 1.588)
pt3dadd(104.156, 218.374, -5.6, 1.602)
pt3dadd(104.081, 218.468, -5.6, 1.638)
pt3dadd(104.004, 218.538, -5.63, 1.688)
pt3dadd(103.924, 218.578, -5.696, 1.754)
pt3dadd(103.844, 218.618, -5.763, 1.822)
pt3dadd(103.797, 218.665, -5.839, 1.9)
pt3dadd(103.791, 218.722, -5.928, 1.994)
pt3dadd(103.763, 218.788, -5.99, 2.082)
pt3dadd(103.686, 218.88, -5.994, 2.154)
pt3dadd(103.608, 218.971, -5.998, 2.226)
pt3dadd(103.57, 219.077, -6.01, 2.298)
pt3dadd(103.565, 219.196, -6.028, 2.368)
pt3dadd(103.56, 219.31, -6.049, 2.452)
pt3dadd(103.541, 219.373, -6.125, 2.676)
pt3dadd(103.48, 219.461, -6.171, 2.726)
pt3dadd(103.418, 219.548, -6.217, 2.774)
pt3dadd(103.357, 219.635, -6.262, 2.822)
pt3dadd(103.298, 219.725, -6.306, 2.87)
pt3dadd(103.247, 219.824, -6.342, 2.91)
pt3dadd(103.211, 219.925, -6.384, 2.926)
pt3dadd(103.205, 220.027, -6.437, 2.89)
pt3dadd(103.194, 220.127, -6.491, 2.856)
pt3dadd(103.166, 220.219, -6.55, 2.83)
pt3dadd(103.107, 220.285, -6.59, 2.82)
pt3dadd(102.988, 220.301, -6.595, 2.838)
pt3dadd(102.869, 220.316, -6.599, 2.858)
pt3dadd(102.751, 220.32, -6.615, 2.94)
pt3dadd(102.635, 220.32, -6.638, 3.042)
pt3dadd(102.561, 220.32, -6.716, 3.088)
pt3dadd(102.486, 220.32, -6.794, 3.136)
pt3dadd(102.391, 220.339, -6.853, 3.15)
pt3dadd(102.295, 220.36, -6.91, 3.164)
pt3dadd(102.259, 220.462, -6.951, 3.112)
pt3dadd(102.223, 220.566, -6.989, 3.06)
pt3dadd(102.152, 220.662, -6.995, 3)
pt3dadd(102.081, 220.759, -7, 2.938)
pt3dadd(101.981, 220.789, -7.048, 2.892)
pt3dadd(101.881, 220.818, -7.097, 2.844)
pt3dadd(101.78, 220.847, -7.146, 2.796)
pt3dadd(101.76, 220.919, -7.214, 2.702)
pt3dadd(101.76, 221, -7.287, 2.596)
pt3dadd(101.76, 221.036, -7.378, 2.354)
pt3dadd(101.76, 221.056, -7.477, 2.188)
pt3dadd(101.76, 221.076, -7.575, 2.062)
pt3dadd(101.76, 221.114, -7.659, 1.94)
pt3dadd(101.76, 221.233, -7.676, 1.844)
pt3dadd(101.76, 221.351, -7.693, 1.748)
pt3dadd(101.76, 221.471, -7.7, 1.678)
pt3dadd(101.76, 221.591, -7.7, 1.628)
pt3dadd(101.76, 221.711, -7.7, 1.578)
pt3dadd(101.751, 221.83, -7.697, 1.552)
pt3dadd(101.736, 221.948, -7.693, 1.542)
pt3dadd(101.72, 222.067, -7.689, 1.532)
pt3dadd(101.617, 222.095, -7.643, 1.57)
pt3dadd(101.514, 222.12, -7.596, 1.618)
pt3dadd(101.434, 222.12, -7.525, 1.802)
pt3dadd(101.394, 222.12, -7.431, 1.996)
pt3dadd(101.361, 222.12, -7.335, 2.182)
pt3dadd(101.284, 222.126, -7.259, 2.388)
pt3dadd(101.196, 222.181, -7.222, 2.486)
pt3dadd(101.106, 222.258, -7.205, 2.524)
pt3dadd(101.044, 222.352, -7.175, 2.546)
pt3dadd(100.995, 222.451, -7.139, 2.56)
pt3dadd(100.907, 222.514, -7.111, 2.532)
pt3dadd(100.843, 222.616, -7.108, 2.512)
pt3dadd(100.778, 222.716, -7.106, 2.492)
pt3dadd(100.714, 222.818, -7.104, 2.472)
pt3dadd(100.65, 222.919, -7.102, 2.452)
pt3dadd(100.597, 223.025, -7.1, 2.43)
pt3dadd(100.585, 223.145, -7.1, 2.398)
pt3dadd(100.572, 223.264, -7.1, 2.366)
pt3dadd(100.56, 223.382, -7.1, 2.334)
pt3dadd(100.547, 223.502, -7.1, 2.304)
pt3dadd(100.535, 223.621, -7.1, 2.272)
pt3dadd(100.522, 223.741, -7.1, 2.24)
pt3dadd(100.497, 223.859, -7.1, 2.202)
pt3dadd(100.47, 223.975, -7.1, 2.164)
pt3dadd(100.442, 224.092, -7.1, 2.124)
pt3dadd(100.414, 224.208, -7.1, 2.086)
pt3dadd(100.387, 224.326, -7.1, 2.046)
pt3dadd(100.359, 224.442, -7.1, 2.008)
pt3dadd(100.345, 224.561, -7.1, 1.932)
pt3dadd(100.33, 224.681, -7.1, 1.858)
pt3dadd(100.318, 224.8, -7.1, 1.79)
pt3dadd(100.314, 224.92, -7.1, 1.738)
pt3dadd(100.309, 225.04, -7.1, 1.686)
pt3dadd(100.268, 225.143, -7.1, 1.626)
pt3dadd(100.18, 225.224, -7.1, 1.556)
pt3dadd(100.096, 225.31, -7.1, 1.504)
pt3dadd(100.021, 225.403, -7.1, 1.492)
pt3dadd(99.945, 225.496, -7.1, 1.504)
pt3dadd(99.86, 225.58, -7.1, 1.628)
pt3dadd(99.768, 225.658, -7.1, 1.684)
pt3dadd(99.674, 225.732, -7.1, 1.72)
pt3dadd(99.581, 225.808, -7.1, 1.754)
pt3dadd(99.487, 225.882, -7.1, 1.79)
pt3dadd(99.393, 225.958, -7.1, 1.826)
pt3dadd(99.3, 226.032, -7.1, 1.86)
pt3dadd(99.206, 226.108, -7.1, 1.896)
pt3dadd(99.112, 226.182, -7.1, 1.932)
pt3dadd(99.018, 226.256, -7.1, 1.966)
pt3dadd(98.925, 226.332, -7.1, 2.002)
pt3dadd(98.831, 226.406, -7.1, 2.05)
pt3dadd(98.737, 226.482, -7.1, 2.1)
pt3dadd(98.643, 226.556, -7.1, 2.15)
pt3dadd(98.55, 226.632, -7.1, 2.2)
pt3dadd(98.456, 226.706, -7.1, 2.252)
pt3dadd(98.371, 226.79, -7.1, 2.256)
pt3dadd(98.287, 226.877, -7.1, 2.25)
pt3dadd(98.204, 226.963, -7.1, 2.246)
pt3dadd(98.121, 227.05, -7.1, 2.24)
pt3dadd(98.037, 227.136, -7.1, 2.236)
pt3dadd(97.992, 227.246, -7.1, 2.142)
pt3dadd(97.952, 227.359, -7.1, 2.034)
pt3dadd(97.92, 227.474, -7.1, 1.942)
pt3dadd(97.893, 227.592, -7.1, 1.862)
pt3dadd(97.866, 227.708, -7.1, 1.784)
pt3dadd(97.778, 227.79, -7.1, 1.806)
pt3dadd(97.69, 227.87, -7.1, 1.83)
pt3dadd(97.588, 227.934, -7.1, 1.934)
pt3dadd(97.485, 227.995, -7.1, 2.05)
}
}
proc shape3d_22() {
apic[13] { pt3dadd(97.396, 228.073, -7.1, 2.144)
pt3dadd(97.313, 228.161, -7.1, 2.228)
pt3dadd(97.23, 228.247, -7.1, 2.314)
pt3dadd(97.155, 228.338, -7.1, 2.398)
pt3dadd(97.122, 228.454, -7.1, 2.482)
pt3dadd(97.089, 228.57, -7.1, 2.564)
pt3dadd(97.069, 228.688, -7.1, 2.668)
pt3dadd(97.006, 228.787, -7.1, 2.696)
pt3dadd(96.934, 228.883, -7.1, 2.706)
pt3dadd(96.862, 228.979, -7.1, 2.716)
pt3dadd(96.79, 229.075, -7.1, 2.726)
pt3dadd(96.718, 229.171, -7.1, 2.736)
pt3dadd(96.672, 229.282, -7.1, 2.74)
pt3dadd(96.63, 229.393, -7.1, 2.746)
pt3dadd(96.589, 229.506, -7.1, 2.75)
pt3dadd(96.547, 229.619, -7.1, 2.754)
pt3dadd(96.505, 229.732, -7.1, 2.76)
pt3dadd(96.452, 229.837, -7.1, 2.764)
pt3dadd(96.38, 229.933, -7.1, 2.77)
pt3dadd(96.308, 230.029, -7.1, 2.774)
}
dend_5 {pt3dclear()
pt3dadd(96.308, 230.029, -7.1, 2.774)
pt3dadd(96.236, 230.125, -7.1, 2.78)
pt3dadd(96.164, 230.221, -7.1, 2.784)
pt3dadd(96.099, 230.322, -7.1, 2.788)
pt3dadd(96.045, 230.429, -7.1, 2.788)
pt3dadd(96, 230.538, -7.1, 2.788)
pt3dadd(96, 230.658, -7.1, 2.796)
pt3dadd(96, 230.778, -7.1, 2.806)
pt3dadd(95.991, 230.896, -7.1, 2.818)
pt3dadd(95.93, 231, -7.1, 2.852)
pt3dadd(95.869, 231.103, -7.1, 2.886)
pt3dadd(95.754, 231.132, -7.1, 2.908)
pt3dadd(95.637, 231.158, -7.1, 2.926)
pt3dadd(95.544, 231.218, -7.1, 2.914)
pt3dadd(95.48, 231.32, -7.1, 2.862)
}
dend_5[1] {pt3dclear()
pt3dadd(95.48, 231.32, -7.1, 2.862)
pt3dadd(95.448, 231.367, -7.1, 2.844)
pt3dadd(95.379, 231.466, -7.1, 2.804)
pt3dadd(95.31, 231.563, -7.1, 2.764)
pt3dadd(95.241, 231.661, -7.1, 2.724)
pt3dadd(95.172, 231.76, -7.1, 2.684)
pt3dadd(95.104, 231.859, -7.1, 2.642)
pt3dadd(95.038, 231.959, -7.1, 2.596)
pt3dadd(94.972, 232.06, -7.1, 2.552)
pt3dadd(94.906, 232.159, -7.1, 2.508)
pt3dadd(94.84, 232.26, -7.1, 2.462)
pt3dadd(94.773, 232.358, -7.1, 2.424)
pt3dadd(94.704, 232.457, -7.1, 2.394)
pt3dadd(94.635, 232.555, -7.1, 2.364)
pt3dadd(94.566, 232.654, -7.1, 2.334)
pt3dadd(94.497, 232.752, -7.1, 2.304)
pt3dadd(94.428, 232.849, -7.1, 2.274)
pt3dadd(94.358, 232.948, -7.1, 2.244)
pt3dadd(94.289, 233.046, -7.1, 2.214)
pt3dadd(94.22, 233.144, -7.1, 2.184)
pt3dadd(94.151, 233.243, -7.1, 2.154)
pt3dadd(94.076, 233.335, -7.1, 2.11)
pt3dadd(93.988, 233.417, -7.1, 2.038)
pt3dadd(93.9, 233.498, -7.1, 1.966)
pt3dadd(93.812, 233.58, -7.1, 1.882)
pt3dadd(93.733, 233.665, -7.103, 1.804)
pt3dadd(93.727, 233.78, -7.132, 1.772)
pt3dadd(93.721, 233.894, -7.16, 1.74)
pt3dadd(93.715, 233.99, -7.217, 1.684)
pt3dadd(93.709, 234.082, -7.282, 1.624)
pt3dadd(93.666, 234.148, -7.354, 1.53)
pt3dadd(93.614, 234.211, -7.427, 1.446)
pt3dadd(93.565, 234.282, -7.497, 1.378)
pt3dadd(93.517, 234.354, -7.566, 1.312)
pt3dadd(93.469, 234.425, -7.636, 1.246)
pt3dadd(93.412, 234.493, -7.702, 1.188)
pt3dadd(93.343, 234.559, -7.763, 1.144)
pt3dadd(93.273, 234.625, -7.823, 1.1)
pt3dadd(93.204, 234.691, -7.884, 1.058)
pt3dadd(93.131, 234.764, -7.928, 1.018)
pt3dadd(93.05, 234.851, -7.946, 0.984)
pt3dadd(92.97, 234.937, -7.963, 0.95)
pt3dadd(92.889, 235.024, -7.981, 0.916)
pt3dadd(92.808, 235.11, -7.998, 0.882)
pt3dadd(92.751, 235.212, -8.017, 0.878)
pt3dadd(92.696, 235.316, -8.036, 0.878)
pt3dadd(92.641, 235.421, -8.056, 0.878)
pt3dadd(92.586, 235.525, -8.075, 0.878)
pt3dadd(92.534, 235.622, -8.107, 0.878)
pt3dadd(92.489, 235.703, -8.171, 0.878)
pt3dadd(92.444, 235.783, -8.235, 0.878)
pt3dadd(92.399, 235.864, -8.3, 0.878)
pt3dadd(92.353, 235.944, -8.362, 0.88)
pt3dadd(92.294, 236.029, -8.414, 0.886)
pt3dadd(92.236, 236.113, -8.465, 0.892)
pt3dadd(92.177, 236.198, -8.517, 0.898)
pt3dadd(92.118, 236.282, -8.567, 0.904)
pt3dadd(92.034, 236.365, -8.585, 0.918)
pt3dadd(91.955, 236.452, -8.604, 0.93)
pt3dadd(91.914, 236.556, -8.639, 0.944)
pt3dadd(91.872, 236.652, -8.682, 0.956)
pt3dadd(91.828, 236.71, -8.761, 0.97)
pt3dadd(91.778, 236.752, -8.843, 0.974)
pt3dadd(91.72, 236.765, -8.93, 0.962)
pt3dadd(91.655, 236.802, -8.991, 0.954)
pt3dadd(91.575, 236.891, -9, 0.954)
pt3dadd(91.543, 236.974, -9.067, 0.96)
pt3dadd(91.512, 237.055, -9.135, 0.966)
pt3dadd(91.482, 237.138, -9.203, 0.974)
pt3dadd(91.449, 237.22, -9.271, 0.98)
pt3dadd(91.398, 237.304, -9.328, 1.004)
pt3dadd(91.346, 237.388, -9.384, 1.026)
pt3dadd(91.294, 237.472, -9.441, 1.048)
pt3dadd(91.225, 237.562, -9.469, 1.068)
pt3dadd(91.151, 237.654, -9.486, 1.084)
pt3dadd(91.077, 237.746, -9.503, 1.1)
pt3dadd(91.003, 237.838, -9.52, 1.118)
pt3dadd(90.923, 237.922, -9.542, 1.144)
pt3dadd(90.828, 237.979, -9.579, 1.198)
pt3dadd(90.744, 238.055, -9.6, 1.254)
pt3dadd(90.676, 238.153, -9.6, 1.314)
pt3dadd(90.601, 238.242, -9.59, 1.374)
pt3dadd(90.506, 238.301, -9.554, 1.444)
pt3dadd(90.427, 238.375, -9.517, 1.482)
pt3dadd(90.369, 238.471, -9.481, 1.482)
pt3dadd(90.291, 238.542, -9.438, 1.428)
pt3dadd(90.215, 238.619, -9.408, 1.358)
pt3dadd(90.157, 238.723, -9.403, 1.302)
pt3dadd(90.099, 238.829, -9.396, 1.248)
pt3dadd(90.041, 238.933, -9.39, 1.194)
pt3dadd(89.973, 239.032, -9.389, 1.16)
pt3dadd(89.901, 239.128, -9.389, 1.134)
pt3dadd(89.83, 239.225, -9.389, 1.108)
pt3dadd(89.758, 239.321, -9.389, 1.084)
pt3dadd(89.687, 239.417, -9.389, 1.058)
pt3dadd(89.613, 239.512, -9.386, 1.03)
pt3dadd(89.54, 239.606, -9.383, 1.004)
pt3dadd(89.466, 239.701, -9.38, 0.978)
pt3dadd(89.391, 239.795, -9.381, 0.954)
pt3dadd(89.307, 239.873, -9.409, 0.948)
pt3dadd(89.223, 239.951, -9.438, 0.942)
pt3dadd(89.138, 240.029, -9.467, 0.936)
pt3dadd(89.054, 240.107, -9.495, 0.93)
pt3dadd(88.962, 240.182, -9.5, 0.938)
pt3dadd(88.868, 240.258, -9.5, 0.948)
pt3dadd(88.774, 240.332, -9.5, 0.958)
pt3dadd(88.681, 240.407, -9.5, 0.968)
pt3dadd(88.587, 240.482, -9.5, 0.978)
pt3dadd(88.489, 240.552, -9.5, 1.01)
pt3dadd(88.391, 240.622, -9.5, 1.044)
pt3dadd(88.293, 240.69, -9.5, 1.08)
pt3dadd(88.195, 240.76, -9.5, 1.114)
pt3dadd(88.097, 240.828, -9.5, 1.15)
pt3dadd(88.036, 240.929, -9.5, 1.196)
pt3dadd(87.982, 241.037, -9.5, 1.244)
pt3dadd(87.928, 241.144, -9.5, 1.292)
pt3dadd(87.875, 241.252, -9.5, 1.34)
pt3dadd(87.821, 241.358, -9.5, 1.388)
pt3dadd(87.78, 241.471, -9.5, 1.438)
pt3dadd(87.747, 241.586, -9.5, 1.49)
pt3dadd(87.713, 241.702, -9.5, 1.528)
pt3dadd(87.673, 241.814, -9.5, 1.506)
pt3dadd(87.633, 241.927, -9.5, 1.486)
pt3dadd(87.538, 241.991, -9.514, 1.43)
pt3dadd(87.432, 242.044, -9.53, 1.368)
pt3dadd(87.39, 242.129, -9.582, 1.324)
pt3dadd(87.362, 242.221, -9.641, 1.284)
pt3dadd(87.36, 242.287, -9.724, 1.298)
pt3dadd(87.337, 242.35, -9.804, 1.314)
pt3dadd(87.289, 242.41, -9.881, 1.332)
pt3dadd(87.241, 242.47, -9.958, 1.35)
pt3dadd(87.193, 242.53, -10.035, 1.368)
pt3dadd(87.148, 242.602, -10.103, 1.394)
pt3dadd(87.108, 242.698, -10.153, 1.434)
pt3dadd(87.067, 242.794, -10.202, 1.476)
pt3dadd(87.027, 242.891, -10.251, 1.516)
pt3dadd(86.987, 242.987, -10.3, 1.556)
}
dend_5[2] {pt3dclear()
pt3dadd(86.987, 242.987, -10.3, 1.556)
pt3dadd(86.975, 243.005, -10.31, 1.566)
pt3dadd(86.917, 243.091, -10.358, 1.616)
pt3dadd(86.859, 243.179, -10.407, 1.664)
pt3dadd(86.8, 243.266, -10.455, 1.712)
pt3dadd(86.74, 243.353, -10.502, 1.76)
pt3dadd(86.652, 243.43, -10.525, 1.776)
pt3dadd(86.563, 243.505, -10.548, 1.794)
pt3dadd(86.475, 243.582, -10.57, 1.81)
pt3dadd(86.386, 243.658, -10.593, 1.828)
pt3dadd(86.279, 243.703, -10.6, 1.812)
pt3dadd(86.163, 243.736, -10.6, 1.78)
pt3dadd(86.05, 243.774, -10.6, 1.742)
pt3dadd(85.943, 243.828, -10.6, 1.686)
pt3dadd(85.837, 243.883, -10.6, 1.632)
pt3dadd(85.769, 243.983, -10.6, 1.632)
pt3dadd(85.701, 244.081, -10.6, 1.632)
pt3dadd(85.684, 244.198, -10.612, 1.65)
pt3dadd(85.673, 244.316, -10.625, 1.67)
pt3dadd(85.651, 244.428, -10.65, 1.686)
pt3dadd(85.613, 244.53, -10.693, 1.694)
pt3dadd(85.575, 244.631, -10.735, 1.702)
pt3dadd(85.525, 244.721, -10.781, 1.704)
pt3dadd(85.442, 244.774, -10.838, 1.69)
pt3dadd(85.347, 244.8, -10.889, 1.682)
pt3dadd(85.251, 244.8, -10.948, 1.736)
pt3dadd(85.208, 244.805, -11.04, 1.782)
pt3dadd(85.2, 244.84, -11.134, 1.75)
}
}
proc shape3d_23() {
dend_5[2] { pt3dadd(85.2, 244.934, -11.189, 1.632)
pt3dadd(85.176, 245.05, -11.2, 1.496)
pt3dadd(85.1, 245.135, -11.192, 1.336)
pt3dadd(84.998, 245.18, -11.157, 1.224)
pt3dadd(84.922, 245.251, -11.112, 1.206)
pt3dadd(84.836, 245.332, -11.1, 1.168)
pt3dadd(84.734, 245.393, -11.1, 1.114)
pt3dadd(84.638, 245.465, -11.1, 1.084)
pt3dadd(84.544, 245.54, -11.1, 1.06)
pt3dadd(84.491, 245.644, -11.1, 1.038)
pt3dadd(84.452, 245.756, -11.1, 1.018)
pt3dadd(84.389, 245.851, -11.102, 1.004)
pt3dadd(84.287, 245.915, -11.107, 1.004)
pt3dadd(84.183, 245.965, -11.122, 1.018)
pt3dadd(84.074, 245.984, -11.159, 1.066)
pt3dadd(83.962, 246, -11.19, 1.114)
pt3dadd(83.842, 246, -11.196, 1.154)
pt3dadd(83.723, 246, -11.205, 1.182)
pt3dadd(83.604, 246, -11.222, 1.186)
pt3dadd(83.486, 246, -11.238, 1.19)
pt3dadd(83.368, 246, -11.254, 1.194)
pt3dadd(83.249, 246, -11.271, 1.198)
pt3dadd(83.131, 246, -11.287, 1.202)
pt3dadd(83.016, 246.004, -11.312, 1.198)
pt3dadd(82.914, 246.022, -11.361, 1.172)
pt3dadd(82.811, 246.038, -11.411, 1.146)
pt3dadd(82.708, 246.055, -11.461, 1.118)
pt3dadd(82.606, 246.073, -11.511, 1.092)
pt3dadd(82.526, 246.091, -11.58, 1.058)
pt3dadd(82.465, 246.112, -11.665, 1.02)
pt3dadd(82.395, 246.16, -11.73, 0.996)
pt3dadd(82.319, 246.229, -11.781, 0.982)
pt3dadd(82.247, 246.322, -11.793, 1.01)
pt3dadd(82.176, 246.419, -11.799, 1.046)
pt3dadd(82.07, 246.454, -11.811, 1.062)
pt3dadd(81.952, 246.47, -11.825, 1.074)
pt3dadd(81.836, 246.48, -11.847, 1.074)
pt3dadd(81.724, 246.48, -11.883, 1.058)
pt3dadd(81.618, 246.48, -11.929, 1.046)
pt3dadd(81.512, 246.48, -11.976, 1.036)
pt3dadd(81.406, 246.48, -12.023, 1.026)
pt3dadd(81.3, 246.48, -12.07, 1.018)
pt3dadd(81.195, 246.48, -12.118, 1.008)
pt3dadd(81.084, 246.492, -12.154, 1.012)
pt3dadd(80.972, 246.511, -12.185, 1.024)
pt3dadd(80.862, 246.548, -12.2, 1.06)
pt3dadd(80.755, 246.602, -12.2, 1.116)
pt3dadd(80.65, 246.655, -12.211, 1.188)
pt3dadd(80.55, 246.704, -12.247, 1.296)
pt3dadd(80.473, 246.78, -12.276, 1.394)
pt3dadd(80.426, 246.888, -12.299, 1.484)
pt3dadd(80.355, 246.971, -12.324, 1.542)
pt3dadd(80.253, 247.026, -12.352, 1.566)
pt3dadd(80.152, 247.08, -12.38, 1.59)
pt3dadd(80.053, 247.141, -12.4, 1.594)
pt3dadd(79.96, 247.217, -12.4, 1.546)
pt3dadd(79.863, 247.285, -12.4, 1.464)
pt3dadd(79.751, 247.315, -12.415, 1.266)
pt3dadd(79.646, 247.342, -12.458, 1.222)
pt3dadd(79.542, 247.368, -12.502, 1.178)
pt3dadd(79.437, 247.394, -12.546, 1.134)
pt3dadd(79.332, 247.421, -12.589, 1.09)
pt3dadd(79.235, 247.463, -12.636, 1.084)
pt3dadd(79.141, 247.51, -12.683, 1.09)
pt3dadd(79.046, 247.558, -12.731, 1.096)
pt3dadd(78.952, 247.604, -12.778, 1.102)
pt3dadd(78.849, 247.645, -12.815, 1.132)
pt3dadd(78.739, 247.679, -12.843, 1.186)
pt3dadd(78.629, 247.712, -12.871, 1.24)
pt3dadd(78.519, 247.746, -12.899, 1.292)
pt3dadd(78.408, 247.78, -12.928, 1.346)
pt3dadd(78.321, 247.847, -12.963, 1.492)
pt3dadd(78.238, 247.921, -13, 1.658)
pt3dadd(78.136, 247.982, -13.017, 1.736)
pt3dadd(78.035, 248.04, -13.036, 1.808)
pt3dadd(77.942, 248.04, -13.099, 1.82)
pt3dadd(77.848, 248.04, -13.161, 1.832)
pt3dadd(77.754, 248.04, -13.224, 1.812)
pt3dadd(77.661, 248.04, -13.286, 1.788)
pt3dadd(77.585, 248.108, -13.326, 1.776)
pt3dadd(77.514, 248.197, -13.359, 1.768)
pt3dadd(77.443, 248.286, -13.392, 1.76)
pt3dadd(77.36, 248.369, -13.4, 1.74)
pt3dadd(77.272, 248.45, -13.4, 1.716)
pt3dadd(77.166, 248.501, -13.4, 1.668)
pt3dadd(77.049, 248.515, -13.411, 1.616)
pt3dadd(76.93, 248.526, -13.424, 1.564)
pt3dadd(76.841, 248.57, -13.445, 1.506)
pt3dadd(76.808, 248.678, -13.479, 1.43)
pt3dadd(76.749, 248.77, -13.502, 1.36)
pt3dadd(76.648, 248.833, -13.507, 1.3)
pt3dadd(76.545, 248.88, -13.525, 1.256)
pt3dadd(76.442, 248.88, -13.575, 1.256)
pt3dadd(76.338, 248.88, -13.626, 1.26)
pt3dadd(76.231, 248.88, -13.67, 1.328)
pt3dadd(76.117, 248.892, -13.69, 1.37)
pt3dadd(75.999, 248.912, -13.692, 1.396)
pt3dadd(75.881, 248.932, -13.694, 1.422)
pt3dadd(75.762, 248.952, -13.696, 1.446)
pt3dadd(75.644, 248.972, -13.697, 1.472)
pt3dadd(75.526, 248.993, -13.699, 1.498)
pt3dadd(75.409, 249.018, -13.7, 1.512)
pt3dadd(75.293, 249.048, -13.7, 1.52)
pt3dadd(75.177, 249.079, -13.7, 1.53)
pt3dadd(75.06, 249.109, -13.7, 1.538)
pt3dadd(74.944, 249.139, -13.7, 1.546)
pt3dadd(74.828, 249.169, -13.7, 1.556)
pt3dadd(74.715, 249.209, -13.7, 1.55)
pt3dadd(74.602, 249.251, -13.7, 1.54)
pt3dadd(74.49, 249.293, -13.7, 1.53)
pt3dadd(74.377, 249.334, -13.7, 1.522)
pt3dadd(74.265, 249.376, -13.7, 1.512)
pt3dadd(74.155, 249.41, -13.717, 1.488)
pt3dadd(74.048, 249.437, -13.758, 1.446)
pt3dadd(73.942, 249.462, -13.799, 1.402)
pt3dadd(73.835, 249.488, -13.84, 1.358)
pt3dadd(73.729, 249.514, -13.88, 1.316)
pt3dadd(73.648, 249.581, -13.923, 1.276)
pt3dadd(73.573, 249.66, -13.966, 1.24)
pt3dadd(73.498, 249.738, -14.01, 1.204)
pt3dadd(73.424, 249.816, -14.053, 1.166)
pt3dadd(73.331, 249.87, -14.095, 1.128)
pt3dadd(73.231, 249.913, -14.137, 1.088)
pt3dadd(73.193, 249.94, -14.223, 1.098)
pt3dadd(73.17, 249.964, -14.319, 1.122)
pt3dadd(73.104, 250.01, -14.383, 1.138)
pt3dadd(73.014, 250.07, -14.426, 1.152)
pt3dadd(72.978, 250.172, -14.46, 1.144)
pt3dadd(72.952, 250.283, -14.493, 1.132)
pt3dadd(72.857, 250.336, -14.5, 1.12)
pt3dadd(72.743, 250.373, -14.5, 1.108)
pt3dadd(72.629, 250.409, -14.5, 1.094)
pt3dadd(72.515, 250.446, -14.5, 1.082)
pt3dadd(72.416, 250.495, -14.535, 1.092)
pt3dadd(72.321, 250.547, -14.578, 1.104)
pt3dadd(72.28, 250.555, -14.671, 1.13)
pt3dadd(72.239, 250.565, -14.765, 1.156)
pt3dadd(72.197, 250.576, -14.857, 1.182)
pt3dadd(72.101, 250.626, -14.9, 1.238)
pt3dadd(72.008, 250.672, -14.948, 1.298)
pt3dadd(71.93, 250.68, -15.023, 1.352)
pt3dadd(71.892, 250.68, -15.117, 1.412)
pt3dadd(71.878, 250.68, -15.216, 1.5)
pt3dadd(71.853, 250.68, -15.313, 1.6)
pt3dadd(71.774, 250.691, -15.382, 1.672)
pt3dadd(71.664, 250.728, -15.4, 1.738)
pt3dadd(71.554, 250.774, -15.4, 1.746)
pt3dadd(71.436, 250.795, -15.4, 1.682)
pt3dadd(71.317, 250.811, -15.4, 1.638)
pt3dadd(71.201, 250.84, -15.4, 1.608)
pt3dadd(71.107, 250.914, -15.4, 1.588)
pt3dadd(71.021, 250.997, -15.4, 1.556)
pt3dadd(70.94, 251.086, -15.4, 1.556)
pt3dadd(70.859, 251.174, -15.4, 1.556)
pt3dadd(70.779, 251.263, -15.4, 1.556)
pt3dadd(70.698, 251.352, -15.4, 1.556)
pt3dadd(70.613, 251.437, -15.401, 1.554)
pt3dadd(70.526, 251.519, -15.404, 1.548)
pt3dadd(70.438, 251.6, -15.406, 1.544)
pt3dadd(70.35, 251.683, -15.408, 1.538)
pt3dadd(70.263, 251.765, -15.41, 1.534)
pt3dadd(70.202, 251.857, -15.443, 1.512)
pt3dadd(70.151, 251.953, -15.485, 1.484)
pt3dadd(70.055, 252, -15.527, 1.432)
pt3dadd(69.957, 252.042, -15.571, 1.38)
pt3dadd(69.898, 252.086, -15.65, 1.352)
pt3dadd(69.843, 252.125, -15.732, 1.336)
pt3dadd(69.798, 252.144, -15.823, 1.36)
pt3dadd(69.744, 252.169, -15.905, 1.384)
pt3dadd(69.645, 252.224, -15.938, 1.4)
pt3dadd(69.546, 252.281, -15.97, 1.416)
pt3dadd(69.449, 252.34, -16, 1.43)
pt3dadd(69.381, 252.439, -16, 1.418)
pt3dadd(69.314, 252.538, -16, 1.408)
pt3dadd(69.211, 252.598, -16, 1.33)
pt3dadd(69.112, 252.665, -16, 1.318)
pt3dadd(69.013, 252.733, -16, 1.306)
pt3dadd(69.009, 252.853, -16.004, 1.324)
pt3dadd(69.004, 252.973, -16.008, 1.342)
pt3dadd(68.989, 253.087, -16.02, 1.358)
pt3dadd(68.937, 253.183, -16.063, 1.372)
pt3dadd(68.868, 253.258, -16.109, 1.37)
pt3dadd(68.773, 253.302, -16.157, 1.342)
pt3dadd(68.673, 253.342, -16.2, 1.308)
pt3dadd(68.568, 253.379, -16.238, 1.268)
pt3dadd(68.464, 253.417, -16.277, 1.23)
pt3dadd(68.354, 253.44, -16.3, 1.19)
pt3dadd(68.234, 253.44, -16.3, 1.148)
pt3dadd(68.114, 253.44, -16.3, 1.106)
pt3dadd(67.994, 253.44, -16.305, 1.068)
pt3dadd(67.882, 253.466, -16.32, 1.066)
pt3dadd(67.778, 253.522, -16.34, 1.088)
pt3dadd(67.674, 253.577, -16.359, 1.108)
pt3dadd(67.57, 253.632, -16.378, 1.13)
pt3dadd(67.466, 253.686, -16.398, 1.152)
pt3dadd(67.376, 253.763, -16.418, 1.186)
pt3dadd(67.289, 253.841, -16.438, 1.22)
pt3dadd(67.201, 253.919, -16.458, 1.254)
pt3dadd(67.114, 253.998, -16.478, 1.288)
pt3dadd(67.024, 254.066, -16.509, 1.314)
}
}
proc shape3d_24() {
dend_5[2] { pt3dadd(66.932, 254.124, -16.551, 1.332)
pt3dadd(66.84, 254.182, -16.594, 1.35)
pt3dadd(66.747, 254.238, -16.636, 1.368)
pt3dadd(66.653, 254.296, -16.675, 1.376)
pt3dadd(66.552, 254.35, -16.705, 1.36)
pt3dadd(66.452, 254.405, -16.736, 1.342)
pt3dadd(66.352, 254.459, -16.766, 1.324)
pt3dadd(66.251, 254.514, -16.797, 1.308)
pt3dadd(66.154, 254.57, -16.832, 1.28)
pt3dadd(66.058, 254.626, -16.869, 1.25)
pt3dadd(65.961, 254.682, -16.905, 1.22)
pt3dadd(65.864, 254.738, -16.942, 1.192)
pt3dadd(65.761, 254.785, -16.973, 1.156)
pt3dadd(65.653, 254.826, -17.001, 1.118)
pt3dadd(65.553, 254.873, -17.038, 1.132)
pt3dadd(65.457, 254.923, -17.081, 1.172)
pt3dadd(65.423, 255.012, -17.136, 1.222)
pt3dadd(65.403, 255.108, -17.193, 1.274)
pt3dadd(65.361, 255.172, -17.269, 1.304)
pt3dadd(65.314, 255.228, -17.347, 1.33)
pt3dadd(65.21, 255.247, -17.393, 1.308)
pt3dadd(65.106, 255.268, -17.44, 1.284)
pt3dadd(65.002, 255.287, -17.487, 1.262)
pt3dadd(64.944, 255.374, -17.5, 1.232)
pt3dadd(64.905, 255.488, -17.5, 1.2)
pt3dadd(64.853, 255.594, -17.5, 1.154)
pt3dadd(64.77, 255.68, -17.5, 1.126)
pt3dadd(64.684, 255.764, -17.5, 1.122)
pt3dadd(64.598, 255.848, -17.5, 1.116)
pt3dadd(64.512, 255.932, -17.5, 1.112)
pt3dadd(64.426, 256.015, -17.5, 1.106)
pt3dadd(64.321, 256.068, -17.5, 1.104)
pt3dadd(64.207, 256.108, -17.5, 1.104)
pt3dadd(64.123, 256.172, -17.505, 1.112)
pt3dadd(64.093, 256.288, -17.52, 1.136)
pt3dadd(64.06, 256.399, -17.539, 1.168)
pt3dadd(64.009, 256.495, -17.582, 1.264)
pt3dadd(63.971, 256.592, -17.628, 1.358)
pt3dadd(63.965, 256.693, -17.681, 1.44)
pt3dadd(63.96, 256.795, -17.734, 1.526)
pt3dadd(63.96, 256.896, -17.787, 1.612)
pt3dadd(63.908, 256.986, -17.831, 1.628)
pt3dadd(63.841, 257.074, -17.871, 1.622)
pt3dadd(63.774, 257.16, -17.911, 1.616)
pt3dadd(63.706, 257.246, -17.951, 1.61)
pt3dadd(63.618, 257.317, -17.977, 1.592)
pt3dadd(63.516, 257.378, -17.994, 1.566)
pt3dadd(63.423, 257.453, -18, 1.556)
pt3dadd(63.335, 257.533, -18, 1.556)
pt3dadd(63.279, 257.629, -18.02, 1.59)
pt3dadd(63.252, 257.736, -18.059, 1.652)
pt3dadd(63.24, 257.819, -18.123, 1.724)
pt3dadd(63.24, 257.879, -18.21, 1.806)
pt3dadd(63.24, 257.948, -18.291, 1.882)
pt3dadd(63.24, 258.034, -18.361, 1.954)
pt3dadd(63.24, 258.139, -18.408, 1.938)
pt3dadd(63.24, 258.246, -18.453, 1.916)
pt3dadd(63.236, 258.342, -18.511, 1.85)
pt3dadd(63.229, 258.433, -18.576, 1.764)
pt3dadd(63.193, 258.515, -18.64, 1.652)
pt3dadd(63.14, 258.59, -18.703, 1.522)
pt3dadd(63.06, 258.66, -18.75, 1.418)
pt3dadd(62.972, 258.721, -18.79, 1.322)
pt3dadd(62.853, 258.728, -18.796, 1.252)
pt3dadd(62.737, 258.749, -18.806, 1.202)
pt3dadd(62.63, 258.798, -18.825, 1.192)
pt3dadd(62.522, 258.846, -18.844, 1.18)
pt3dadd(62.415, 258.894, -18.863, 1.17)
pt3dadd(62.307, 258.942, -18.882, 1.16)
pt3dadd(62.192, 258.96, -18.891, 1.15)
pt3dadd(62.072, 258.96, -18.895, 1.142)
pt3dadd(61.952, 258.96, -18.899, 1.132)
pt3dadd(61.836, 258.984, -18.9, 1.13)
pt3dadd(61.72, 259.018, -18.9, 1.13)
pt3dadd(61.611, 259.063, -18.9, 1.126)
pt3dadd(61.518, 259.138, -18.9, 1.114)
pt3dadd(61.424, 259.213, -18.901, 1.102)
pt3dadd(61.333, 259.291, -18.906, 1.09)
pt3dadd(61.251, 259.37, -18.919, 1.078)
pt3dadd(61.235, 259.456, -18.987, 1.072)
pt3dadd(61.218, 259.542, -19.056, 1.064)
pt3dadd(61.202, 259.628, -19.124, 1.056)
pt3dadd(61.167, 259.656, -19.214, 1.076)
pt3dadd(61.13, 259.675, -19.308, 1.098)
pt3dadd(61.096, 259.68, -19.403, 1.172)
pt3dadd(61.038, 259.724, -19.482, 1.196)
pt3dadd(60.977, 259.771, -19.559, 1.214)
pt3dadd(60.917, 259.819, -19.635, 1.232)
pt3dadd(60.857, 259.867, -19.712, 1.25)
pt3dadd(60.815, 259.907, -19.799, 1.256)
pt3dadd(60.781, 259.944, -19.889, 1.256)
pt3dadd(60.747, 259.981, -19.98, 1.256)
pt3dadd(60.712, 260.018, -20.071, 1.256)
pt3dadd(60.678, 260.057, -20.161, 1.252)
pt3dadd(60.633, 260.116, -20.24, 1.212)
pt3dadd(60.589, 260.177, -20.318, 1.164)
pt3dadd(60.544, 260.243, -20.392, 1.094)
pt3dadd(60.486, 260.317, -20.45, 1.016)
pt3dadd(60.411, 260.399, -20.487, 0.932)
pt3dadd(60.331, 260.477, -20.475, 0.866)
pt3dadd(60.249, 260.551, -20.438, 0.81)
pt3dadd(60.172, 260.636, -20.409, 0.804)
pt3dadd(60.091, 260.723, -20.396, 0.836)
pt3dadd(60.006, 260.808, -20.391, 0.886)
pt3dadd(59.927, 260.887, -20.362, 0.956)
pt3dadd(59.851, 260.963, -20.317, 1.042)
pt3dadd(59.765, 261.042, -20.322, 1.126)
pt3dadd(59.677, 261.122, -20.335, 1.208)
pt3dadd(59.602, 261.205, -20.372, 1.264)
pt3dadd(59.524, 261.283, -20.41, 1.312)
pt3dadd(59.437, 261.349, -20.449, 1.328)
pt3dadd(59.395, 261.4, -20.533, 1.274)
pt3dadd(59.347, 261.454, -20.611, 1.22)
pt3dadd(59.278, 261.523, -20.669, 1.162)
pt3dadd(59.223, 261.569, -20.743, 1.114)
pt3dadd(59.185, 261.588, -20.837, 1.078)
pt3dadd(59.16, 261.6, -20.933, 1.058)
pt3dadd(59.16, 261.6, -21.033, 1.066)
pt3dadd(59.16, 261.6, -21.133, 1.074)
pt3dadd(59.15, 261.624, -21.225, 1.082)
pt3dadd(59.12, 261.697, -21.3, 1.09)
pt3dadd(59.09, 261.77, -21.375, 1.098)
pt3dadd(59.045, 261.839, -21.443, 1.108)
pt3dadd(58.95, 261.89, -21.486, 1.122)
pt3dadd(58.85, 261.937, -21.525, 1.13)
pt3dadd(58.766, 261.968, -21.589, 1.13)
pt3dadd(58.687, 261.997, -21.66, 1.13)
pt3dadd(58.617, 262.063, -21.719, 1.13)
pt3dadd(58.545, 262.134, -21.77, 1.13)
pt3dadd(58.462, 262.218, -21.787, 1.13)
pt3dadd(58.373, 262.295, -21.799, 1.136)
pt3dadd(58.267, 262.351, -21.793, 1.16)
pt3dadd(58.165, 262.406, -21.781, 1.186)
pt3dadd(58.092, 262.456, -21.713, 1.228)
pt3dadd(58.02, 262.506, -21.645, 1.27)
pt3dadd(57.946, 262.549, -21.576, 1.324)
pt3dadd(57.865, 262.562, -21.503, 1.426)
pt3dadd(57.785, 262.591, -21.441, 1.52)
pt3dadd(57.706, 262.68, -21.424, 1.59)
pt3dadd(57.628, 262.769, -21.406, 1.658)
pt3dadd(57.54, 262.848, -21.4, 1.698)
pt3dadd(57.446, 262.922, -21.4, 1.72)
pt3dadd(57.373, 263.014, -21.4, 1.664)
pt3dadd(57.301, 263.11, -21.4, 1.602)
pt3dadd(57.223, 263.201, -21.4, 1.56)
pt3dadd(57.145, 263.292, -21.4, 1.52)
pt3dadd(57.067, 263.383, -21.4, 1.48)
pt3dadd(56.99, 263.474, -21.4, 1.44)
pt3dadd(56.914, 263.558, -21.43, 1.352)
pt3dadd(56.839, 263.641, -21.467, 1.254)
pt3dadd(56.753, 263.719, -21.491, 1.188)
pt3dadd(56.677, 263.803, -21.517, 1.126)
pt3dadd(56.658, 263.912, -21.554, 1.102)
pt3dadd(56.64, 264.023, -21.591, 1.08)
pt3dadd(56.64, 264.139, -21.613, 1.068)
pt3dadd(56.64, 264.257, -21.635, 1.06)
pt3dadd(56.622, 264.336, -21.694, 1.054)
pt3dadd(56.589, 264.404, -21.762, 1.052)
pt3dadd(56.55, 264.515, -21.783, 1.04)
pt3dadd(56.511, 264.625, -21.804, 1.024)
pt3dadd(56.474, 264.738, -21.819, 1)
pt3dadd(56.433, 264.847, -21.837, 0.976)
pt3dadd(56.365, 264.931, -21.882, 0.948)
pt3dadd(56.29, 265.007, -21.926, 0.93)
pt3dadd(56.2, 265.067, -21.97, 0.93)
pt3dadd(56.099, 265.118, -21.993, 0.948)
pt3dadd(55.988, 265.162, -22.001, 0.982)
pt3dadd(55.87, 265.178, -22.015, 1.014)
pt3dadd(55.752, 265.195, -22.029, 1.046)
pt3dadd(55.66, 265.249, -22.065, 1.096)
pt3dadd(55.576, 265.318, -22.109, 1.154)
pt3dadd(55.499, 265.386, -22.16, 1.238)
pt3dadd(55.423, 265.44, -22.218, 1.322)
pt3dadd(55.348, 265.44, -22.296, 1.392)
pt3dadd(55.274, 265.447, -22.371, 1.458)
pt3dadd(55.2, 265.525, -22.417, 1.476)
pt3dadd(55.127, 265.602, -22.462, 1.492)
pt3dadd(55.053, 265.682, -22.5, 1.498)
pt3dadd(54.971, 265.77, -22.5, 1.452)
pt3dadd(54.889, 265.858, -22.5, 1.394)
pt3dadd(54.817, 265.945, -22.518, 1.218)
pt3dadd(54.748, 266.022, -22.57, 1.18)
pt3dadd(54.679, 266.098, -22.622, 1.144)
pt3dadd(54.61, 266.173, -22.674, 1.106)
pt3dadd(54.535, 266.238, -22.728, 1.064)
pt3dadd(54.447, 266.274, -22.789, 1.01)
pt3dadd(54.361, 266.328, -22.837, 0.972)
pt3dadd(54.276, 266.405, -22.865, 0.954)
pt3dadd(54.21, 266.494, -22.828, 0.954)
pt3dadd(54.146, 266.587, -22.8, 0.958)
pt3dadd(54.092, 266.694, -22.8, 0.968)
pt3dadd(54.039, 266.802, -22.8, 0.978)
pt3dadd(54.016, 266.92, -22.8, 0.95)
pt3dadd(53.973, 267.026, -22.806, 0.924)
pt3dadd(53.889, 267.108, -22.826, 0.906)
pt3dadd(53.804, 267.19, -22.847, 0.89)
pt3dadd(53.719, 267.271, -22.867, 0.872)
pt3dadd(53.635, 267.353, -22.887, 0.856)
pt3dadd(53.55, 267.413, -22.935, 0.842)
pt3dadd(53.466, 267.472, -22.987, 0.83)
}
}
proc shape3d_25() {
dend_5[2] { pt3dadd(53.381, 267.53, -23.038, 0.818)
pt3dadd(53.296, 267.589, -23.09, 0.806)
pt3dadd(53.222, 267.667, -23.132, 0.81)
pt3dadd(53.151, 267.751, -23.172, 0.818)
pt3dadd(53.079, 267.834, -23.212, 0.824)
pt3dadd(53.026, 267.931, -23.243, 0.838)
pt3dadd(52.997, 268.044, -23.266, 0.862)
pt3dadd(52.967, 268.158, -23.288, 0.884)
pt3dadd(52.937, 268.271, -23.31, 0.906)
pt3dadd(52.908, 268.384, -23.333, 0.928)
pt3dadd(52.858, 268.484, -23.368, 0.982)
pt3dadd(52.809, 268.586, -23.4, 1.036)
pt3dadd(52.769, 268.699, -23.4, 1.088)
pt3dadd(52.729, 268.812, -23.4, 1.142)
pt3dadd(52.704, 268.916, -23.438, 1.194)
pt3dadd(52.684, 269.018, -23.489, 1.244)
pt3dadd(52.675, 269.112, -23.551, 1.274)
pt3dadd(52.668, 269.203, -23.616, 1.3)
pt3dadd(52.618, 269.26, -23.688, 1.29)
pt3dadd(52.546, 269.321, -23.746, 1.25)
pt3dadd(52.47, 269.396, -23.79, 1.192)
pt3dadd(52.445, 269.506, -23.81, 1.148)
pt3dadd(52.434, 269.624, -23.824, 1.108)
pt3dadd(52.402, 269.73, -23.845, 1.068)
pt3dadd(52.32, 269.804, -23.882, 1.024)
pt3dadd(52.229, 269.873, -23.912, 0.998)
pt3dadd(52.131, 269.936, -23.935, 0.984)
pt3dadd(52.068, 269.986, -23.998, 0.98)
pt3dadd(52.014, 270.04, -24.069, 0.978)
pt3dadd(51.936, 270.118, -24.11, 0.972)
pt3dadd(51.859, 270.194, -24.15, 0.966)
pt3dadd(51.781, 270.272, -24.19, 0.958)
pt3dadd(51.708, 270.353, -24.231, 0.954)
pt3dadd(51.65, 270.445, -24.274, 0.954)
pt3dadd(51.593, 270.538, -24.316, 0.954)
pt3dadd(51.536, 270.63, -24.359, 0.954)
pt3dadd(51.48, 270.722, -24.401, 0.954)
pt3dadd(51.48, 270.83, -24.446, 0.966)
pt3dadd(51.48, 270.937, -24.491, 0.976)
pt3dadd(51.464, 271.054, -24.5, 0.994)
pt3dadd(51.444, 271.171, -24.5, 1.014)
pt3dadd(51.405, 271.273, -24.503, 1.028)
pt3dadd(51.29, 271.303, -24.518, 1.016)
pt3dadd(51.175, 271.332, -24.533, 1.004)
pt3dadd(51.137, 271.405, -24.605, 0.95)
pt3dadd(51.098, 271.478, -24.676, 0.888)
pt3dadd(51.04, 271.559, -24.733, 0.78)
pt3dadd(50.973, 271.637, -24.782, 0.686)
pt3dadd(50.91, 271.726, -24.823, 0.696)
pt3dadd(50.881, 271.798, -24.896, 0.822)
pt3dadd(50.854, 271.867, -24.972, 0.98)
pt3dadd(50.794, 271.962, -24.984, 0.968)
pt3dadd(50.751, 272.058, -24.938, 0.908)
pt3dadd(50.699, 272.141, -24.882, 0.904)
pt3dadd(50.651, 272.228, -24.829, 0.908)
pt3dadd(50.634, 272.344, -24.809, 0.938)
pt3dadd(50.618, 272.462, -24.805, 0.956)
pt3dadd(50.603, 272.581, -24.801, 0.976)
pt3dadd(50.569, 272.694, -24.813, 1.018)
pt3dadd(50.531, 272.807, -24.829, 1.066)
pt3dadd(50.505, 272.911, -24.869, 1.182)
pt3dadd(50.472, 273.013, -24.914, 1.204)
pt3dadd(50.439, 273.115, -24.959, 1.226)
pt3dadd(50.406, 273.217, -25.004, 1.25)
pt3dadd(50.374, 273.319, -25.049, 1.272)
pt3dadd(50.338, 273.413, -25.103, 1.288)
pt3dadd(50.3, 273.5, -25.163, 1.3)
pt3dadd(50.262, 273.589, -25.223, 1.312)
pt3dadd(50.224, 273.677, -25.284, 1.324)
pt3dadd(50.186, 273.755, -25.351, 1.334)
pt3dadd(50.149, 273.817, -25.431, 1.346)
pt3dadd(50.112, 273.878, -25.511, 1.358)
pt3dadd(50.075, 273.941, -25.591, 1.37)
pt3dadd(50.04, 274.001, -25.671, 1.382)
pt3dadd(50.04, 274.034, -25.767, 1.382)
pt3dadd(50.04, 274.068, -25.864, 1.382)
pt3dadd(50.04, 274.093, -25.961, 1.382)
pt3dadd(50.04, 274.114, -26.06, 1.382)
pt3dadd(50.04, 274.135, -26.157, 1.38)
pt3dadd(50.04, 274.235, -26.214, 1.346)
pt3dadd(50.04, 274.333, -26.27, 1.31)
pt3dadd(50.022, 274.43, -26.327, 1.272)
pt3dadd(50.002, 274.526, -26.385, 1.234)
pt3dadd(49.957, 274.636, -26.396, 1.134)
pt3dadd(49.931, 274.751, -26.4, 1.054)
pt3dadd(49.926, 274.871, -26.4, 1.002)
pt3dadd(49.922, 274.991, -26.4, 0.95)
pt3dadd(49.901, 275.107, -26.4, 0.898)
pt3dadd(49.867, 275.222, -26.4, 0.848)
pt3dadd(49.83, 275.336, -26.401, 0.802)
pt3dadd(49.774, 275.443, -26.406, 0.79)
pt3dadd(49.719, 275.548, -26.413, 0.778)
pt3dadd(49.699, 275.624, -26.488, 0.778)
pt3dadd(49.679, 275.702, -26.561, 0.778)
pt3dadd(49.669, 275.801, -26.618, 0.778)
pt3dadd(49.611, 275.892, -26.649, 0.772)
pt3dadd(49.534, 275.982, -26.67, 0.764)
pt3dadd(49.458, 276.071, -26.691, 0.756)
pt3dadd(49.378, 276.156, -26.714, 0.76)
pt3dadd(49.295, 276.239, -26.736, 0.772)
pt3dadd(49.213, 276.32, -26.76, 0.784)
pt3dadd(49.13, 276.403, -26.782, 0.794)
pt3dadd(49.039, 276.472, -26.8, 0.808)
pt3dadd(48.921, 276.492, -26.8, 0.828)
pt3dadd(48.803, 276.512, -26.8, 0.846)
pt3dadd(48.715, 276.581, -26.803, 0.87)
pt3dadd(48.644, 276.678, -26.809, 0.894)
pt3dadd(48.61, 276.768, -26.851, 0.896)
pt3dadd(48.603, 276.852, -26.922, 0.884)
pt3dadd(48.579, 276.949, -26.97, 0.866)
pt3dadd(48.538, 277.057, -26.998, 0.84)
pt3dadd(48.497, 277.152, -27.045, 0.81)
pt3dadd(48.455, 277.236, -27.107, 0.774)
pt3dadd(48.413, 277.32, -27.169, 0.74)
pt3dadd(48.348, 277.398, -27.159, 0.728)
pt3dadd(48.272, 277.475, -27.114, 0.728)
pt3dadd(48.199, 277.564, -27.108, 0.842)
pt3dadd(48.148, 277.668, -27.135, 0.886)
pt3dadd(48.098, 277.771, -27.162, 0.932)
pt3dadd(48.047, 277.876, -27.189, 0.976)
pt3dadd(47.997, 277.979, -27.217, 1.02)
pt3dadd(47.941, 278.074, -27.256, 1.04)
pt3dadd(47.884, 278.166, -27.298, 1.052)
pt3dadd(47.826, 278.258, -27.341, 1.064)
pt3dadd(47.769, 278.351, -27.383, 1.076)
pt3dadd(47.688, 278.424, -27.419, 1.07)
pt3dadd(47.592, 278.486, -27.45, 1.052)
pt3dadd(47.496, 278.548, -27.481, 1.034)
pt3dadd(47.4, 278.61, -27.512, 1.016)
pt3dadd(47.308, 278.678, -27.538, 0.996)
pt3dadd(47.222, 278.76, -27.552, 0.968)
pt3dadd(47.137, 278.843, -27.567, 0.94)
pt3dadd(47.051, 278.926, -27.582, 0.912)
pt3dadd(46.966, 279.007, -27.597, 0.886)
pt3dadd(46.873, 279.066, -27.635, 0.874)
pt3dadd(46.779, 279.116, -27.679, 0.868)
pt3dadd(46.684, 279.167, -27.724, 0.862)
pt3dadd(46.589, 279.217, -27.769, 0.856)
pt3dadd(46.481, 279.242, -27.791, 0.864)
pt3dadd(46.361, 279.247, -27.795, 0.882)
pt3dadd(46.241, 279.252, -27.799, 0.9)
pt3dadd(46.137, 279.305, -27.8, 0.922)
pt3dadd(46.038, 279.373, -27.8, 0.946)
pt3dadd(45.962, 279.46, -27.814, 0.97)
pt3dadd(45.899, 279.558, -27.837, 0.996)
pt3dadd(45.825, 279.592, -27.898, 1.022)
pt3dadd(45.747, 279.598, -27.974, 1.046)
pt3dadd(45.657, 279.62, -28.035, 1.108)
pt3dadd(45.577, 279.658, -28.099, 1.164)
pt3dadd(45.521, 279.701, -28.18, 1.188)
pt3dadd(45.465, 279.745, -28.261, 1.212)
pt3dadd(45.409, 279.788, -28.341, 1.236)
pt3dadd(45.359, 279.829, -28.424, 1.26)
pt3dadd(45.354, 279.851, -28.522, 1.302)
pt3dadd(45.349, 279.872, -28.62, 1.342)
pt3dadd(45.3, 279.936, -28.675, 1.382)
pt3dadd(45.227, 280.024, -28.705, 1.424)
pt3dadd(45.151, 280.103, -28.747, 1.478)
pt3dadd(45.074, 280.178, -28.788, 1.532)
pt3dadd(44.98, 280.25, -28.776, 1.546)
pt3dadd(44.886, 280.32, -28.756, 1.548)
pt3dadd(44.798, 280.378, -28.711, 1.504)
pt3dadd(44.743, 280.484, -28.709, 1.466)
pt3dadd(44.688, 280.591, -28.707, 1.426)
pt3dadd(44.634, 280.698, -28.705, 1.388)
pt3dadd(44.579, 280.805, -28.702, 1.348)
pt3dadd(44.524, 280.912, -28.7, 1.308)
pt3dadd(44.448, 281.004, -28.7, 1.278)
pt3dadd(44.371, 281.095, -28.7, 1.248)
pt3dadd(44.293, 281.186, -28.7, 1.218)
pt3dadd(44.215, 281.278, -28.7, 1.186)
pt3dadd(44.137, 281.369, -28.7, 1.156)
pt3dadd(44.051, 281.453, -28.7, 1.13)
pt3dadd(43.965, 281.537, -28.7, 1.106)
pt3dadd(43.879, 281.62, -28.7, 1.08)
pt3dadd(43.792, 281.704, -28.7, 1.054)
pt3dadd(43.706, 281.786, -28.7, 1.03)
pt3dadd(43.625, 281.875, -28.7, 1.018)
pt3dadd(43.543, 281.963, -28.7, 1.006)
pt3dadd(43.479, 282.041, -28.751, 0.966)
pt3dadd(43.419, 282.114, -28.811, 0.926)
pt3dadd(43.368, 282.166, -28.891, 0.898)
pt3dadd(43.332, 282.211, -28.976, 0.872)
pt3dadd(43.326, 282.246, -29.071, 0.85)
pt3dadd(43.32, 282.28, -29.167, 0.828)
pt3dadd(43.32, 282.323, -29.26, 0.846)
pt3dadd(43.32, 282.352, -29.356, 0.854)
pt3dadd(43.32, 282.36, -29.456, 0.854)
pt3dadd(43.32, 282.37, -29.556, 0.854)
pt3dadd(43.305, 282.438, -29.626, 0.844)
pt3dadd(43.283, 282.535, -29.682, 0.83)
pt3dadd(43.216, 282.618, -29.653, 0.774)
pt3dadd(43.149, 282.694, -29.641, 0.714)
pt3dadd(43.101, 282.749, -29.721, 0.654)
pt3dadd(43.043, 282.829, -29.758, 0.61)
pt3dadd(42.978, 282.93, -29.761, 0.576)
pt3dadd(42.912, 283.03, -29.765, 0.544)
pt3dadd(42.842, 283.122, -29.748, 0.514)
pt3dadd(42.767, 283.204, -29.71, 0.484)
pt3dadd(42.689, 283.286, -29.683, 0.478)
}
}
proc shape3d_26() {
dend_5[2] { pt3dadd(42.633, 283.355, -29.615, 0.49)
pt3dadd(42.578, 283.423, -29.547, 0.502)
pt3dadd(42.522, 283.492, -29.48, 0.514)
pt3dadd(42.467, 283.56, -29.411, 0.528)
pt3dadd(42.379, 283.64, -29.4, 0.578)
pt3dadd(42.293, 283.721, -29.387, 0.628)
pt3dadd(42.266, 283.768, -29.298, 0.68)
pt3dadd(42.239, 283.816, -29.209, 0.73)
pt3dadd(42.194, 283.897, -29.147, 0.786)
pt3dadd(42.142, 283.982, -29.1, 0.838)
pt3dadd(42.067, 284.076, -29.1, 0.872)
pt3dadd(41.99, 284.168, -29.102, 0.906)
pt3dadd(41.901, 284.245, -29.123, 0.922)
pt3dadd(41.812, 284.321, -29.145, 0.938)
pt3dadd(41.723, 284.398, -29.166, 0.954)
pt3dadd(41.678, 284.456, -29.243, 0.954)
pt3dadd(41.64, 284.512, -29.325, 0.94)
pt3dadd(41.625, 284.552, -29.415, 0.86)
pt3dadd(41.581, 284.611, -29.495, 0.806)
pt3dadd(41.545, 284.68, -29.57, 0.764)
pt3dadd(41.517, 284.759, -29.642, 0.738)
pt3dadd(41.467, 284.836, -29.704, 0.746)
pt3dadd(41.405, 284.912, -29.762, 0.776)
pt3dadd(41.331, 285.002, -29.783, 0.838)
pt3dadd(41.254, 285.092, -29.8, 0.904)
pt3dadd(41.181, 285.17, -29.755, 0.946)
pt3dadd(41.108, 285.248, -29.709, 0.99)
pt3dadd(41.035, 285.326, -29.664, 1.032)
pt3dadd(40.968, 285.415, -29.627, 1.074)
pt3dadd(40.907, 285.51, -29.603, 1.104)
pt3dadd(40.86, 285.619, -29.615, 1.104)
pt3dadd(40.812, 285.728, -29.627, 1.104)
pt3dadd(40.742, 285.811, -29.653, 1.092)
pt3dadd(40.647, 285.862, -29.696, 1.064)
pt3dadd(40.587, 285.899, -29.77, 1.036)
pt3dadd(40.548, 285.929, -29.861, 1.008)
pt3dadd(40.508, 285.959, -29.952, 0.98)
pt3dadd(40.398, 285.966, -29.989, 0.946)
pt3dadd(40.286, 285.972, -30.023, 0.914)
pt3dadd(40.203, 286.022, -30.075, 0.826)
pt3dadd(40.131, 286.088, -30.132, 0.808)
pt3dadd(40.059, 286.154, -30.19, 0.788)
pt3dadd(39.986, 286.22, -30.248, 0.77)
pt3dadd(39.917, 286.283, -30.308, 0.75)
pt3dadd(39.878, 286.308, -30.4, 0.714)
pt3dadd(39.838, 286.336, -30.491, 0.676)
pt3dadd(39.785, 286.412, -30.555, 0.634)
pt3dadd(39.722, 286.489, -30.6, 0.592)
pt3dadd(39.634, 286.572, -30.6, 0.558)
pt3dadd(39.543, 286.648, -30.606, 0.526)
pt3dadd(39.439, 286.688, -30.64, 0.512)
pt3dadd(39.336, 286.735, -30.673, 0.508)
pt3dadd(39.24, 286.8, -30.7, 0.528)
pt3dadd(39.15, 286.86, -30.744, 0.57)
pt3dadd(39.064, 286.919, -30.792, 0.612)
pt3dadd(38.988, 286.972, -30.855, 0.654)
pt3dadd(38.898, 287.027, -30.891, 0.71)
pt3dadd(38.792, 287.082, -30.896, 0.782)
pt3dadd(38.688, 287.129, -30.883, 0.872)
pt3dadd(38.59, 287.158, -30.83, 1.004)
pt3dadd(38.493, 287.2, -30.787, 1.122)
pt3dadd(38.398, 287.263, -30.757, 1.226)
pt3dadd(38.303, 287.327, -30.727, 1.328)
pt3dadd(38.214, 287.393, -30.732, 1.422)
pt3dadd(38.13, 287.461, -30.776, 1.508)
pt3dadd(38.034, 287.514, -30.813, 1.478)
pt3dadd(37.952, 287.598, -30.833, 1.426)
pt3dadd(37.87, 287.683, -30.853, 1.376)
pt3dadd(37.789, 287.767, -30.873, 1.324)
pt3dadd(37.707, 287.852, -30.893, 1.272)
pt3dadd(37.608, 287.916, -30.9, 1.196)
pt3dadd(37.501, 287.97, -30.9, 1.106)
pt3dadd(37.414, 288.044, -30.9, 1.026)
pt3dadd(37.353, 288.148, -30.9, 0.956)
pt3dadd(37.296, 288.252, -30.905, 0.898)
pt3dadd(37.249, 288.36, -30.928, 0.872)
pt3dadd(37.212, 288.454, -30.966, 0.85)
pt3dadd(37.206, 288.51, -31.054, 0.84)
pt3dadd(37.192, 288.565, -31.14, 0.828)
pt3dadd(37.116, 288.61, -31.208, 0.82)
pt3dadd(37.039, 288.655, -31.275, 0.81)
pt3dadd(36.963, 288.706, -31.339, 0.808)
pt3dadd(36.888, 288.787, -31.376, 0.836)
pt3dadd(36.806, 288.866, -31.4, 0.88)
pt3dadd(36.714, 288.938, -31.417, 0.918)
pt3dadd(36.621, 289.009, -31.442, 0.942)
pt3dadd(36.529, 289.08, -31.468, 0.966)
pt3dadd(36.437, 289.151, -31.493, 0.988)
pt3dadd(36.339, 289.201, -31.522, 1)
pt3dadd(36.227, 289.207, -31.556, 0.99)
pt3dadd(36.117, 289.218, -31.589, 0.98)
pt3dadd(36.059, 289.322, -31.6, 0.98)
pt3dadd(36, 289.427, -31.611, 0.98)
pt3dadd(35.979, 289.502, -31.686, 0.966)
pt3dadd(35.957, 289.579, -31.761, 0.956)
pt3dadd(35.912, 289.654, -31.83, 0.97)
pt3dadd(35.871, 289.726, -31.902, 0.974)
pt3dadd(35.837, 289.789, -31.981, 0.952)
pt3dadd(35.769, 289.842, -32.05, 0.924)
pt3dadd(35.707, 289.9, -32.121, 0.884)
pt3dadd(35.663, 289.967, -32.195, 0.814)
pt3dadd(35.618, 290.01, -32.278, 0.742)
pt3dadd(35.573, 290.029, -32.369, 0.67)
pt3dadd(35.5, 290.048, -32.438, 0.602)
pt3dadd(35.391, 290.068, -32.476, 0.542)
pt3dadd(35.287, 290.102, -32.488, 0.502)
pt3dadd(35.195, 290.168, -32.455, 0.502)
pt3dadd(35.103, 290.234, -32.423, 0.502)
pt3dadd(35.012, 290.297, -32.384, 0.524)
pt3dadd(34.922, 290.35, -32.334, 0.594)
pt3dadd(34.844, 290.42, -32.291, 0.83)
pt3dadd(34.756, 290.483, -32.248, 0.972)
pt3dadd(34.663, 290.539, -32.21, 1.088)
pt3dadd(34.55, 290.581, -32.205, 1.144)
pt3dadd(34.438, 290.623, -32.201, 1.2)
pt3dadd(34.319, 290.632, -32.204, 1.188)
pt3dadd(34.199, 290.636, -32.208, 1.17)
pt3dadd(34.081, 290.635, -32.216, 1.148)
pt3dadd(33.981, 290.592, -32.258, 1.094)
pt3dadd(33.884, 290.543, -32.298, 1.048)
pt3dadd(33.795, 290.476, -32.336, 1.024)
pt3dadd(33.705, 290.41, -32.373, 0.998)
pt3dadd(33.635, 290.329, -32.405, 0.98)
pt3dadd(33.618, 290.213, -32.424, 0.98)
pt3dadd(33.6, 290.096, -32.444, 0.98)
pt3dadd(33.558, 290.075, -32.534, 0.962)
pt3dadd(33.515, 290.056, -32.625, 0.944)
pt3dadd(33.462, 290.04, -32.712, 0.924)
pt3dadd(33.369, 290.04, -32.774, 0.902)
pt3dadd(33.274, 290.04, -32.836, 0.876)
pt3dadd(33.165, 290.04, -32.877, 0.832)
pt3dadd(33.052, 290.04, -32.91, 0.842)
pt3dadd(32.938, 290.04, -32.943, 0.854)
pt3dadd(32.884, 290.089, -33.02, 0.88)
pt3dadd(32.826, 290.143, -33.089, 0.912)
pt3dadd(32.726, 290.209, -33.089, 0.976)
pt3dadd(32.628, 290.275, -33.083, 1.046)
pt3dadd(32.538, 290.335, -33.039, 1.174)
pt3dadd(32.453, 290.392, -33.034, 1.294)
pt3dadd(32.377, 290.444, -33.097, 1.402)
pt3dadd(32.3, 290.497, -33.161, 1.51)
pt3dadd(32.224, 290.55, -33.224, 1.662)
pt3dadd(32.148, 290.603, -33.288, 1.848)
pt3dadd(32.076, 290.684, -33.308, 2.112)
pt3dadd(32.04, 290.74, -33.392, 2.14)
pt3dadd(32.003, 290.795, -33.476, 2.17)
pt3dadd(31.967, 290.849, -33.559, 2.198)
pt3dadd(31.93, 290.904, -33.643, 2.226)
pt3dadd(31.897, 290.951, -33.73, 2.232)
pt3dadd(31.865, 290.994, -33.82, 2.226)
pt3dadd(31.834, 291.037, -33.909, 2.22)
pt3dadd(31.802, 291.082, -33.998, 2.214)
pt3dadd(31.764, 291.121, -34.086, 2.206)
pt3dadd(31.679, 291.127, -34.156, 2.168)
pt3dadd(31.599, 291.138, -34.227, 2.132)
pt3dadd(31.578, 291.215, -34.302, 2.092)
pt3dadd(31.559, 291.295, -34.373, 2.058)
pt3dadd(31.553, 291.401, -34.42, 2.046)
pt3dadd(31.546, 291.506, -34.467, 2.034)
pt3dadd(31.44, 291.559, -34.483, 1.996)
pt3dadd(31.335, 291.612, -34.5, 1.96)
pt3dadd(31.245, 291.691, -34.508, 1.848)
pt3dadd(31.157, 291.76, -34.541, 1.772)
pt3dadd(31.07, 291.821, -34.586, 1.718)
pt3dadd(30.983, 291.882, -34.632, 1.664)
pt3dadd(30.895, 291.943, -34.678, 1.608)
pt3dadd(30.808, 292.015, -34.7, 1.54)
pt3dadd(30.72, 292.098, -34.7, 1.456)
pt3dadd(30.622, 292.163, -34.702, 1.384)
pt3dadd(30.51, 292.205, -34.707, 1.328)
pt3dadd(30.402, 292.249, -34.718, 1.278)
pt3dadd(30.326, 292.319, -34.77, 1.264)
pt3dadd(30.244, 292.378, -34.822, 1.272)
pt3dadd(30.155, 292.422, -34.878, 1.314)
pt3dadd(30.059, 292.44, -34.934, 1.356)
pt3dadd(29.96, 292.44, -34.989, 1.398)
pt3dadd(29.86, 292.44, -35.045, 1.44)
pt3dadd(29.76, 292.44, -35.1, 1.482)
pt3dadd(29.64, 292.44, -35.1, 1.506)
pt3dadd(29.52, 292.44, -35.1, 1.532)
pt3dadd(29.4, 292.44, -35.1, 1.556)
pt3dadd(29.28, 292.44, -35.1, 1.482)
pt3dadd(29.173, 292.438, -35.146, 1.442)
pt3dadd(29.066, 292.435, -35.191, 1.404)
pt3dadd(28.959, 292.433, -35.237, 1.364)
pt3dadd(28.853, 292.429, -35.282, 1.324)
pt3dadd(28.746, 292.427, -35.328, 1.286)
pt3dadd(28.667, 292.405, -35.4, 1.246)
pt3dadd(28.592, 292.381, -35.475, 1.206)
pt3dadd(28.516, 292.357, -35.55, 1.166)
pt3dadd(28.441, 292.333, -35.625, 1.126)
pt3dadd(28.353, 292.32, -35.689, 1.092)
pt3dadd(28.249, 292.32, -35.739, 1.062)
pt3dadd(28.145, 292.32, -35.789, 1.032)
pt3dadd(28.041, 292.32, -35.839, 1.004)
pt3dadd(27.937, 292.32, -35.889, 0.974)
pt3dadd(27.833, 292.328, -35.937, 0.946)
pt3dadd(27.73, 292.355, -35.984, 0.924)
pt3dadd(27.627, 292.381, -36.03, 0.902)
pt3dadd(27.525, 292.408, -36.077, 0.88)
}
}
proc shape3d_27() {
dend_5[2] { pt3dadd(27.422, 292.434, -36.123, 0.858)
pt3dadd(27.345, 292.442, -36.197, 0.838)
pt3dadd(27.274, 292.445, -36.278, 0.818)
pt3dadd(27.204, 292.447, -36.359, 0.798)
pt3dadd(27.134, 292.45, -36.44, 0.776)
pt3dadd(27.064, 292.453, -36.521, 0.756)
pt3dadd(26.988, 292.518, -36.571, 0.742)
pt3dadd(26.915, 292.591, -36.619, 0.73)
pt3dadd(26.863, 292.643, -36.699, 0.744)
pt3dadd(26.793, 292.68, -36.761, 0.764)
pt3dadd(26.675, 292.68, -36.778, 0.802)
pt3dadd(26.557, 292.68, -36.795, 0.842)
pt3dadd(26.438, 292.694, -36.8, 0.888)
pt3dadd(26.32, 292.715, -36.8, 0.936)
pt3dadd(26.211, 292.744, -36.804, 0.986)
pt3dadd(26.184, 292.85, -36.843, 1.048)
pt3dadd(26.16, 292.956, -36.884, 1.116)
pt3dadd(26.16, 293.05, -36.947, 1.18)
pt3dadd(26.16, 293.153, -36.997, 1.18)
pt3dadd(26.156, 293.26, -37.043, 1.234)
pt3dadd(26.125, 293.362, -37.085, 1.43)
pt3dadd(26.038, 293.437, -37.11, 1.552)
pt3dadd(25.946, 293.507, -37.134, 1.658)
pt3dadd(25.88, 293.52, -37.217, 1.746)
pt3dadd(25.813, 293.533, -37.3, 1.834)
pt3dadd(25.752, 293.576, -37.372, 1.876)
pt3dadd(25.655, 293.623, -37.416, 1.86)
pt3dadd(25.558, 293.67, -37.46, 1.842)
pt3dadd(25.461, 293.718, -37.504, 1.824)
pt3dadd(25.367, 293.762, -37.552, 1.804)
pt3dadd(25.301, 293.79, -37.632, 1.77)
pt3dadd(25.235, 293.816, -37.712, 1.736)
pt3dadd(25.168, 293.844, -37.793, 1.702)
pt3dadd(25.102, 293.87, -37.873, 1.668)
pt3dadd(25.02, 293.916, -37.932, 1.634)
pt3dadd(24.93, 293.971, -37.98, 1.596)
pt3dadd(24.841, 294.025, -38.028, 1.56)
pt3dadd(24.751, 294.08, -38.076, 1.524)
pt3dadd(24.646, 294.118, -38.102, 1.47)
pt3dadd(24.528, 294.139, -38.107, 1.4)
pt3dadd(24.411, 294.161, -38.112, 1.328)
pt3dadd(24.316, 294.212, -38.155, 1.232)
pt3dadd(24.224, 294.272, -38.19, 1.14)
pt3dadd(24.146, 294.364, -38.195, 1.066)
pt3dadd(24.068, 294.454, -38.2, 0.998)
pt3dadd(23.986, 294.541, -38.2, 0.95)
pt3dadd(23.903, 294.629, -38.2, 0.904)
pt3dadd(23.803, 294.692, -38.214, 0.88)
pt3dadd(23.703, 294.757, -38.227, 0.858)
pt3dadd(23.603, 294.821, -38.241, 0.836)
pt3dadd(23.55, 294.869, -38.308, 0.802)
pt3dadd(23.516, 294.91, -38.397, 0.764)
pt3dadd(23.452, 294.948, -38.471, 0.732)
pt3dadd(23.34, 294.954, -38.506, 0.754)
pt3dadd(23.227, 294.959, -38.54, 0.776)
pt3dadd(23.195, 294.96, -38.631, 0.82)
pt3dadd(23.175, 294.96, -38.729, 0.87)
pt3dadd(23.155, 294.973, -38.826, 0.918)
pt3dadd(23.135, 295.018, -38.917, 0.966)
pt3dadd(23.111, 295.074, -38.998, 1.008)
pt3dadd(23.068, 295.175, -39.039, 1.02)
pt3dadd(23.03, 295.277, -39.081, 1.022)
pt3dadd(23.001, 295.382, -39.122, 0.998)
pt3dadd(22.973, 295.488, -39.162, 0.976)
pt3dadd(22.938, 295.59, -39.2, 0.952)
pt3dadd(22.828, 295.637, -39.2, 0.908)
pt3dadd(22.717, 295.684, -39.2, 0.864)
pt3dadd(22.603, 295.718, -39.2, 0.756)
pt3dadd(22.527, 295.811, -39.2, 0.748)
pt3dadd(22.452, 295.904, -39.2, 0.744)
pt3dadd(22.377, 295.998, -39.2, 0.738)
pt3dadd(22.302, 296.092, -39.2, 0.734)
pt3dadd(22.227, 296.186, -39.2, 0.728)
pt3dadd(22.139, 296.268, -39.2, 0.728)
pt3dadd(22.052, 296.35, -39.2, 0.728)
pt3dadd(21.952, 296.413, -39.215, 0.74)
pt3dadd(21.851, 296.474, -39.231, 0.752)
pt3dadd(21.74, 296.48, -39.267, 0.74)
pt3dadd(21.628, 296.477, -39.3, 0.726)
pt3dadd(21.514, 296.442, -39.305, 0.704)
pt3dadd(21.399, 296.407, -39.31, 0.682)
pt3dadd(21.286, 296.4, -39.339, 0.652)
pt3dadd(21.173, 296.404, -39.37, 0.626)
pt3dadd(21.055, 296.42, -39.384, 0.614)
pt3dadd(20.938, 296.437, -39.398, 0.604)
pt3dadd(20.824, 296.473, -39.4, 0.62)
pt3dadd(20.711, 296.513, -39.4, 0.642)
pt3dadd(20.606, 296.562, -39.418, 0.674)
pt3dadd(20.511, 296.621, -39.455, 0.714)
pt3dadd(20.452, 296.71, -39.49, 0.772)
pt3dadd(20.41, 296.815, -39.525, 0.838)
pt3dadd(20.4, 296.911, -39.58, 0.894)
pt3dadd(20.393, 296.999, -39.647, 0.934)
pt3dadd(20.372, 297.076, -39.722, 0.946)
pt3dadd(20.328, 297.145, -39.79, 0.93)
pt3dadd(20.252, 297.206, -39.848, 0.872)
pt3dadd(20.153, 297.257, -39.877, 0.814)
pt3dadd(20.044, 297.302, -39.894, 0.752)
pt3dadd(19.928, 297.326, -39.9, 0.704)
pt3dadd(19.809, 297.337, -39.9, 0.666)
pt3dadd(19.689, 297.346, -39.901, 0.628)
pt3dadd(19.582, 297.298, -39.923, 0.628)
pt3dadd(19.478, 297.252, -39.948, 0.63)
pt3dadd(19.448, 297.24, -40.044, 0.706)
pt3dadd(19.44, 297.24, -40.144, 0.786)
pt3dadd(19.44, 297.246, -40.243, 0.854)
pt3dadd(19.45, 297.274, -40.34, 0.918)
pt3dadd(19.494, 297.356, -40.393, 1.006)
pt3dadd(19.531, 297.468, -40.4, 1.098)
pt3dadd(19.507, 297.582, -40.404, 1.13)
pt3dadd(19.443, 297.677, -40.432, 1.13)
pt3dadd(19.366, 297.745, -40.481, 1.056)
pt3dadd(19.258, 297.792, -40.493, 0.994)
pt3dadd(19.146, 297.834, -40.498, 0.95)
pt3dadd(19.046, 297.898, -40.5, 0.904)
pt3dadd(18.959, 297.979, -40.5, 0.856)
pt3dadd(18.862, 298.034, -40.515, 0.826)
pt3dadd(18.751, 298.054, -40.551, 0.816)
pt3dadd(18.641, 298.073, -40.587, 0.808)
pt3dadd(18.558, 298.108, -40.647, 0.794)
pt3dadd(18.491, 298.153, -40.721, 0.78)
pt3dadd(18.413, 298.213, -40.771, 0.772)
pt3dadd(18.307, 298.267, -40.787, 0.746)
pt3dadd(18.202, 298.308, -40.813, 0.726)
pt3dadd(18.1, 298.315, -40.866, 0.714)
pt3dadd(18.01, 298.326, -40.924, 0.702)
pt3dadd(17.984, 298.364, -41.016, 0.69)
pt3dadd(17.956, 298.402, -41.108, 0.678)
pt3dadd(17.911, 298.421, -41.2, 0.678)
pt3dadd(17.865, 298.441, -41.291, 0.678)
pt3dadd(17.801, 298.472, -41.371, 0.698)
pt3dadd(17.722, 298.544, -41.402, 0.764)
pt3dadd(17.658, 298.631, -41.438, 0.824)
pt3dadd(17.64, 298.673, -41.529, 0.87)
pt3dadd(17.633, 298.708, -41.624, 0.968)
pt3dadd(17.577, 298.764, -41.69, 1.024)
pt3dadd(17.462, 298.793, -41.7, 0.948)
pt3dadd(17.343, 298.8, -41.694, 0.878)
pt3dadd(17.226, 298.8, -41.673, 0.836)
pt3dadd(17.117, 298.8, -41.633, 0.854)
pt3dadd(17.002, 298.8, -41.605, 0.892)
pt3dadd(16.886, 298.8, -41.578, 0.954)
pt3dadd(16.776, 298.8, -41.54, 1.04)
pt3dadd(16.662, 298.8, -41.51, 1.106)
pt3dadd(16.547, 298.805, -41.481, 1.122)
pt3dadd(16.447, 298.836, -41.437, 1.06)
pt3dadd(16.35, 298.895, -41.411, 0.952)
pt3dadd(16.239, 298.92, -41.434, 0.904)
pt3dadd(16.151, 298.92, -41.502, 0.904)
pt3dadd(16.098, 298.931, -41.589, 0.904)
pt3dadd(16.08, 298.969, -41.682, 0.91)
pt3dadd(16.08, 299.014, -41.774, 0.956)
pt3dadd(16.08, 299.036, -41.872, 1.032)
pt3dadd(16.069, 299.04, -41.971, 1.094)
pt3dadd(16.039, 299.04, -42.068, 1.13)
pt3dadd(15.986, 299.04, -42.157, 1.13)
pt3dadd(15.932, 299.04, -42.247, 1.13)
pt3dadd(15.875, 299.062, -42.331, 1.16)
pt3dadd(15.844, 299.152, -42.383, 1.198)
pt3dadd(15.826, 299.268, -42.4, 1.18)
pt3dadd(15.789, 299.382, -42.4, 1.134)
pt3dadd(15.743, 299.491, -42.407, 1.014)
pt3dadd(15.706, 299.569, -42.47, 0.918)
pt3dadd(15.67, 299.634, -42.548, 0.836)
pt3dadd(15.56, 299.64, -42.571, 0.794)
pt3dadd(15.441, 299.64, -42.588, 0.754)
pt3dadd(15.323, 299.645, -42.6, 0.71)
pt3dadd(15.208, 299.672, -42.607, 0.682)
pt3dadd(15.098, 299.717, -42.623, 0.696)
pt3dadd(14.992, 299.764, -42.646, 0.718)
pt3dadd(14.892, 299.814, -42.681, 0.758)
pt3dadd(14.793, 299.87, -42.711, 0.798)
pt3dadd(14.695, 299.934, -42.735, 0.838)
pt3dadd(14.636, 299.971, -42.8, 0.86)
pt3dadd(14.606, 299.989, -42.895, 0.872)
pt3dadd(14.543, 299.996, -42.959, 0.87)
pt3dadd(14.424, 299.987, -42.97, 0.846)
pt3dadd(14.305, 299.978, -42.98, 0.822)
pt3dadd(14.186, 299.969, -42.991, 0.8)
pt3dadd(14.067, 299.957, -42.998, 0.774)
pt3dadd(13.955, 299.918, -42.983, 0.726)
pt3dadd(13.843, 299.881, -42.967, 0.68)
pt3dadd(13.741, 299.851, -42.922, 0.616)
pt3dadd(13.641, 299.801, -42.886, 0.656)
pt3dadd(13.535, 299.767, -42.853, 0.704)
pt3dadd(13.421, 299.756, -42.823, 0.76)
pt3dadd(13.308, 299.736, -42.804, 0.824)
pt3dadd(13.199, 299.692, -42.82, 0.908)
pt3dadd(13.093, 299.652, -42.845, 0.988)
pt3dadd(13.008, 299.646, -42.915, 1.036)
pt3dadd(12.927, 299.64, -42.988, 1.08)
pt3dadd(12.867, 299.644, -43.075, 1.08)
pt3dadd(12.807, 299.647, -43.161, 1.08)
pt3dadd(12.748, 299.652, -43.248, 1.08)
pt3dadd(12.684, 299.686, -43.323, 1.064)
pt3dadd(12.615, 299.747, -43.387, 1.036)
pt3dadd(12.526, 299.819, -43.4, 1.022)
pt3dadd(12.432, 299.894, -43.4, 1.014)
pt3dadd(12.339, 299.969, -43.4, 1.004)
pt3dadd(12.296, 300.08, -43.4, 1.044)
}
}
proc shape3d_28() {
dend_5[2] { pt3dadd(12.256, 300.193, -43.4, 1.088)
pt3dadd(12.24, 300.3, -43.432, 1.136)
pt3dadd(12.24, 300.401, -43.486, 1.188)
pt3dadd(12.24, 300.502, -43.539, 1.24)
pt3dadd(12.24, 300.605, -43.591, 1.304)
pt3dadd(12.24, 300.708, -43.642, 1.372)
pt3dadd(12.225, 300.815, -43.683, 1.434)
pt3dadd(12.189, 300.918, -43.72, 1.482)
pt3dadd(12.125, 300.959, -43.793, 1.416)
pt3dadd(12.044, 300.96, -43.865, 1.27)
pt3dadd(11.931, 300.96, -43.895, 1.116)
pt3dadd(11.812, 300.968, -43.9, 0.96)
pt3dadd(11.728, 301.039, -43.9, 0.864)
pt3dadd(11.66, 301.139, -43.9, 0.806)
pt3dadd(11.581, 301.229, -43.9, 0.772)
pt3dadd(11.493, 301.31, -43.9, 0.76)
pt3dadd(11.394, 301.369, -43.9, 0.762)
pt3dadd(11.276, 301.392, -43.9, 0.784)
pt3dadd(11.158, 301.416, -43.9, 0.806)
pt3dadd(11.041, 301.44, -43.9, 0.828)
pt3dadd(10.927, 301.44, -43.933, 0.892)
pt3dadd(10.814, 301.44, -43.966, 0.956)
pt3dadd(10.739, 301.44, -44.035, 1.022)
pt3dadd(10.691, 301.44, -44.126, 1.088)
pt3dadd(10.68, 301.44, -44.225, 1.13)
pt3dadd(10.68, 301.44, -44.325, 1.13)
pt3dadd(10.68, 301.44, -44.425, 1.13)
pt3dadd(10.676, 301.44, -44.525, 1.122)
pt3dadd(10.647, 301.44, -44.621, 1.092)
pt3dadd(10.561, 301.44, -44.683, 1.038)
pt3dadd(10.445, 301.424, -44.7, 1)
pt3dadd(10.332, 301.386, -44.7, 0.946)
pt3dadd(10.224, 301.332, -44.7, 0.912)
pt3dadd(10.117, 301.279, -44.7, 0.876)
pt3dadd(10.034, 301.232, -44.656, 0.81)
pt3dadd(9.981, 301.213, -44.568, 0.76)
pt3dadd(9.913, 301.193, -44.491, 0.714)
pt3dadd(9.816, 301.172, -44.434, 0.676)
pt3dadd(9.72, 301.132, -44.4, 0.642)
pt3dadd(9.622, 301.062, -44.4, 0.616)
pt3dadd(9.525, 300.992, -44.4, 0.59)
pt3dadd(9.447, 300.905, -44.409, 0.57)
pt3dadd(9.386, 300.803, -44.426, 0.558)
pt3dadd(9.294, 300.752, -44.446, 0.548)
pt3dadd(9.177, 300.739, -44.467, 0.54)
pt3dadd(9.061, 300.727, -44.489, 0.532)
pt3dadd(8.943, 300.727, -44.5, 0.536)
pt3dadd(8.824, 300.742, -44.5, 0.556)
pt3dadd(8.705, 300.756, -44.5, 0.574)
pt3dadd(8.603, 300.803, -44.529, 0.642)
pt3dadd(8.539, 300.838, -44.597, 0.778)
pt3dadd(8.521, 300.84, -44.695, 0.876)
pt3dadd(8.52, 300.84, -44.795, 0.902)
pt3dadd(8.52, 300.84, -44.895, 0.904)
pt3dadd(8.52, 300.84, -44.995, 0.928)
pt3dadd(8.52, 300.84, -45.095, 0.954)
pt3dadd(8.477, 300.822, -45.187, 0.966)
pt3dadd(8.432, 300.803, -45.278, 0.978)
pt3dadd(8.325, 300.769, -45.293, 0.96)
pt3dadd(8.21, 300.736, -45.298, 0.938)
pt3dadd(8.093, 300.72, -45.3, 0.9)
pt3dadd(7.973, 300.72, -45.3, 0.874)
pt3dadd(7.853, 300.72, -45.3, 0.868)
pt3dadd(7.733, 300.72, -45.3, 0.86)
pt3dadd(7.613, 300.72, -45.3, 0.854)
pt3dadd(7.493, 300.72, -45.3, 0.846)
pt3dadd(7.373, 300.72, -45.3, 0.84)
pt3dadd(7.253, 300.72, -45.3, 0.832)
pt3dadd(7.134, 300.731, -45.303, 0.832)
pt3dadd(7.015, 300.75, -45.308, 0.838)
pt3dadd(6.897, 300.769, -45.314, 0.844)
pt3dadd(6.779, 300.788, -45.319, 0.85)
pt3dadd(6.662, 300.811, -45.328, 0.856)
pt3dadd(6.546, 300.84, -45.343, 0.86)
pt3dadd(6.431, 300.868, -45.358, 0.866)
pt3dadd(6.316, 300.895, -45.373, 0.87)
pt3dadd(6.201, 300.924, -45.388, 0.876)
pt3dadd(6.087, 300.942, -45.408, 0.88)
pt3dadd(5.981, 300.919, -45.45, 0.886)
pt3dadd(5.874, 300.895, -45.492, 0.892)
pt3dadd(5.768, 300.871, -45.533, 0.896)
pt3dadd(5.661, 300.847, -45.575, 0.902)
pt3dadd(5.546, 300.836, -45.592, 0.904)
pt3dadd(5.426, 300.832, -45.596, 0.904)
pt3dadd(5.306, 300.827, -45.6, 0.904)
pt3dadd(5.215, 300.754, -45.6, 0.914)
pt3dadd(5.127, 300.672, -45.6, 0.926)
pt3dadd(5.036, 300.599, -45.618, 0.95)
pt3dadd(4.944, 300.528, -45.642, 0.976)
pt3dadd(4.872, 300.502, -45.716, 1.014)
pt3dadd(4.803, 300.481, -45.796, 1.052)
pt3dadd(4.719, 300.48, -45.867, 1.054)
pt3dadd(4.63, 300.48, -45.933, 1.036)
pt3dadd(4.536, 300.48, -45.996, 1)
pt3dadd(4.444, 300.478, -46.059, 0.95)
pt3dadd(4.353, 300.47, -46.124, 0.876)
pt3dadd(4.269, 300.433, -46.173, 0.81)
pt3dadd(4.201, 300.337, -46.19, 0.758)
pt3dadd(4.137, 300.236, -46.202, 0.724)
pt3dadd(4.081, 300.131, -46.207, 0.712)
pt3dadd(4.025, 300.038, -46.231, 0.714)
pt3dadd(3.97, 299.978, -46.304, 0.756)
pt3dadd(3.93, 299.88, -46.35, 0.778)
pt3dadd(3.89, 299.782, -46.396, 0.802)
pt3dadd(3.85, 299.683, -46.442, 0.824)
pt3dadd(3.81, 299.585, -46.488, 0.848)
pt3dadd(3.754, 299.527, -46.558, 0.978)
pt3dadd(3.723, 299.476, -46.644, 1.094)
pt3dadd(3.718, 299.374, -46.69, 1.13)
pt3dadd(3.695, 299.258, -46.695, 1.13)
pt3dadd(3.626, 299.173, -46.667, 1.13)
pt3dadd(3.519, 299.16, -46.628, 1.118)
pt3dadd(3.401, 299.16, -46.633, 1.056)
pt3dadd(3.292, 299.165, -46.674, 0.962)
pt3dadd(3.18, 299.194, -46.697, 0.892)
pt3dadd(3.073, 299.242, -46.704, 0.852)
pt3dadd(2.976, 299.262, -46.762, 0.84)
pt3dadd(2.89, 299.28, -46.824, 0.828)
pt3dadd(2.863, 299.28, -46.922, 0.828)
pt3dadd(2.837, 299.28, -47.02, 0.828)
pt3dadd(2.752, 299.278, -47.064, 0.824)
pt3dadd(2.633, 299.274, -47.076, 0.816)
pt3dadd(2.514, 299.27, -47.089, 0.81)
pt3dadd(2.396, 299.261, -47.1, 0.8)
pt3dadd(2.283, 299.221, -47.1, 0.78)
pt3dadd(2.169, 299.182, -47.1, 0.758)
pt3dadd(2.053, 299.16, -47.089, 0.704)
pt3dadd(1.96, 299.084, -47.083, 0.696)
pt3dadd(1.867, 299.009, -47.077, 0.69)
pt3dadd(1.774, 298.933, -47.072, 0.684)
pt3dadd(1.688, 298.853, -47.071, 0.678)
pt3dadd(1.645, 298.745, -47.089, 0.698)
pt3dadd(1.561, 298.68, -47.05, 0.778)
pt3dadd(1.462, 298.636, -47.01, 0.828)
pt3dadd(1.379, 298.552, -47.007, 0.828)
pt3dadd(1.33, 298.474, -47.061, 0.828)
pt3dadd(1.32, 298.438, -47.156, 0.844)
pt3dadd(1.32, 298.392, -47.248, 0.854)
pt3dadd(1.32, 298.288, -47.293, 0.784)
pt3dadd(1.313, 298.174, -47.322, 0.678)
pt3dadd(1.272, 298.069, -47.354, 0.672)
pt3dadd(1.218, 297.968, -47.386, 0.7)
pt3dadd(1.208, 297.858, -47.357, 0.734)
pt3dadd(1.202, 297.745, -47.323, 0.768)
pt3dadd(1.146, 297.649, -47.308, 0.796)
pt3dadd(1.063, 297.563, -47.304, 0.824)
pt3dadd(0.981, 297.475, -47.3, 0.852)
pt3dadd(0.871, 297.431, -47.3, 0.874)
pt3dadd(0.758, 297.391, -47.3, 0.894)
pt3dadd(0.646, 297.349, -47.309, 0.918)
pt3dadd(0.536, 297.306, -47.325, 0.946)
pt3dadd(0.425, 297.263, -47.341, 0.972)
pt3dadd(0.385, 297.212, -47.412, 0.98)
pt3dadd(0.365, 297.16, -47.5, 0.98)
pt3dadd(0.293, 297.085, -47.527, 0.958)
pt3dadd(0.205, 297.005, -47.533, 0.93)
pt3dadd(0.088, 297, -47.522, 0.886)
pt3dadd(-0.031, 297, -47.509, 0.838)
pt3dadd(-0.151, 297, -47.5, 0.784)
pt3dadd(-0.267, 296.988, -47.506, 0.722)
pt3dadd(-0.374, 296.939, -47.527, 0.702)
pt3dadd(-0.48, 296.89, -47.549, 0.68)
pt3dadd(-0.587, 296.84, -47.57, 0.658)
pt3dadd(-0.693, 296.791, -47.592, 0.636)
pt3dadd(-0.807, 296.759, -47.6, 0.628)
pt3dadd(-0.925, 296.737, -47.6, 0.628)
pt3dadd(-1.043, 296.714, -47.6, 0.628)
pt3dadd(-1.161, 296.693, -47.6, 0.628)
pt3dadd(-1.278, 296.67, -47.6, 0.628)
pt3dadd(-1.396, 296.648, -47.6, 0.628)
pt3dadd(-1.516, 296.64, -47.6, 0.634)
pt3dadd(-1.636, 296.64, -47.6, 0.642)
pt3dadd(-1.756, 296.64, -47.6, 0.65)
pt3dadd(-1.875, 296.64, -47.602, 0.686)
pt3dadd(-1.995, 296.64, -47.606, 0.738)
pt3dadd(-2.115, 296.64, -47.61, 0.79)
pt3dadd(-2.192, 296.64, -47.675, 0.838)
pt3dadd(-2.252, 296.64, -47.761, 0.884)
pt3dadd(-2.305, 296.629, -47.85, 0.91)
pt3dadd(-2.35, 296.61, -47.941, 0.922)
pt3dadd(-2.423, 296.573, -47.993, 0.878)
pt3dadd(-2.527, 296.518, -48.005, 0.774)
pt3dadd(-2.612, 296.479, -48.068, 0.72)
pt3dadd(-2.697, 296.442, -48.131, 0.668)
pt3dadd(-2.782, 296.404, -48.194, 0.614)
pt3dadd(-2.867, 296.366, -48.257, 0.56)
pt3dadd(-2.978, 296.347, -48.288, 0.524)
pt3dadd(-3.093, 296.332, -48.314, 0.49)
pt3dadd(-3.208, 296.316, -48.34, 0.456)
pt3dadd(-3.323, 296.302, -48.365, 0.422)
pt3dadd(-3.438, 296.286, -48.391, 0.39)
pt3dadd(-3.556, 296.28, -48.4, 0.366)
pt3dadd(-3.676, 296.28, -48.4, 0.35)
pt3dadd(-3.796, 296.28, -48.4, 0.332)
pt3dadd(-3.906, 296.242, -48.4, 0.334)
pt3dadd(-4.009, 296.18, -48.4, 0.346)
pt3dadd(-4.069, 296.094, -48.4, 0.352)
pt3dadd(-4.073, 295.974, -48.4, 0.352)
pt3dadd(-4.078, 295.854, -48.4, 0.352)
pt3dadd(-4.083, 295.734, -48.4, 0.346)
}
}
proc shape3d_29() {
dend_5[2] { pt3dadd(-4.087, 295.614, -48.4, 0.338)
pt3dadd(-4.092, 295.494, -48.4, 0.33)
pt3dadd(-4.16, 295.411, -48.403, 0.326)
pt3dadd(-4.262, 295.348, -48.409, 0.326)
pt3dadd(-4.371, 295.32, -48.426, 0.362)
pt3dadd(-4.48, 295.32, -48.467, 0.452)
pt3dadd(-4.593, 295.294, -48.489, 0.564)
pt3dadd(-4.686, 295.234, -48.461, 0.62)
pt3dadd(-4.755, 295.154, -48.414, 0.468)
pt3dadd(-4.79, 295.042, -48.4, 0.308)
pt3dadd(-4.8, 294.923, -48.4, 0.244)
pt3dadd(-4.8, 294.803, -48.4, 0.226)
pt3dadd(-4.8, 294.683, -48.4, 0.226)
pt3dadd(-4.795, 294.563, -48.4, 0.226)
pt3dadd(-4.765, 294.454, -48.418, 0.226)
pt3dadd(-4.714, 294.359, -48.461, 0.226)
pt3dadd(-4.693, 294.26, -48.511, 0.226)
pt3dadd(-4.693, 294.161, -48.567, 0.226)
pt3dadd(-4.728, 294.058, -48.594, 0.226)
pt3dadd(-4.788, 293.954, -48.6, 0.226)
pt3dadd(-4.863, 293.861, -48.6, 0.226)
pt3dadd(-4.922, 293.758, -48.6, 0.226)
pt3dadd(-5.007, 293.676, -48.6, 0.226)
pt3dadd(-5.121, 293.645, -48.6, 0.226)
pt3dadd(-5.23, 293.599, -48.6, 0.226)
pt3dadd(-5.334, 293.539, -48.6, 0.226)
pt3dadd(-5.438, 293.479, -48.6, 0.226)
pt3dadd(-5.542, 293.419, -48.6, 0.226)
pt3dadd(-5.646, 293.36, -48.6, 0.226)
pt3dadd(-5.75, 293.3, -48.6, 0.226)
pt3dadd(-5.854, 293.24, -48.6, 0.226)
pt3dadd(-5.958, 293.18, -48.6, 0.226)
pt3dadd(-6.063, 293.12, -48.6, 0.226)
pt3dadd(-6.167, 293.062, -48.6, 0.226)
pt3dadd(-6.266, 292.996, -48.6, 0.226)
pt3dadd(-6.36, 292.92, -48.6, 0.226)
}
dend_5[3] {pt3dclear()
pt3dadd(86.987, 242.987, -10.3, 1.556)
pt3dadd(86.936, 243.001, -10.256, 1.51)
pt3dadd(86.854, 243.025, -10.186, 1.436)
pt3dadd(86.772, 243.048, -10.116, 1.36)
pt3dadd(86.69, 243.072, -10.045, 1.286)
pt3dadd(86.607, 243.095, -9.975, 1.21)
pt3dadd(86.526, 243.119, -9.905, 1.134)
pt3dadd(86.541, 243.23, -9.9, 1.216)
pt3dadd(86.563, 243.348, -9.9, 1.308)
pt3dadd(86.585, 243.466, -9.9, 1.4)
pt3dadd(86.607, 243.584, -9.9, 1.492)
pt3dadd(86.63, 243.702, -9.9, 1.584)
pt3dadd(86.652, 243.82, -9.9, 1.676)
pt3dadd(86.71, 243.924, -9.9, 1.758)
pt3dadd(86.771, 244.027, -9.9, 1.838)
pt3dadd(86.848, 244.12, -9.9, 1.84)
pt3dadd(86.93, 244.207, -9.9, 1.816)
pt3dadd(86.97, 244.314, -9.9, 1.762)
pt3dadd(86.984, 244.433, -9.9, 1.686)
pt3dadd(86.999, 244.553, -9.9, 1.612)
pt3dadd(87, 244.672, -9.912, 1.528)
pt3dadd(87, 244.79, -9.924, 1.444)
pt3dadd(87, 244.908, -9.942, 1.354)
pt3dadd(87, 245.02, -9.978, 1.24)
pt3dadd(87, 245.131, -10.015, 1.188)
pt3dadd(87, 245.243, -10.052, 1.166)
pt3dadd(87, 245.354, -10.089, 1.142)
pt3dadd(87, 245.466, -10.126, 1.12)
pt3dadd(87, 245.576, -10.163, 1.096)
pt3dadd(87, 245.69, -10.195, 1.074)
pt3dadd(87, 245.808, -10.213, 1.058)
pt3dadd(87, 245.927, -10.232, 1.04)
pt3dadd(87, 246.044, -10.25, 1.024)
pt3dadd(87, 246.162, -10.269, 1.008)
pt3dadd(87, 246.28, -10.287, 0.99)
pt3dadd(86.993, 246.397, -10.306, 0.976)
pt3dadd(86.97, 246.512, -10.325, 0.966)
pt3dadd(86.946, 246.628, -10.345, 0.956)
pt3dadd(86.923, 246.744, -10.364, 0.948)
pt3dadd(86.9, 246.859, -10.383, 0.938)
pt3dadd(86.88, 246.974, -10.402, 0.93)
pt3dadd(86.88, 247.093, -10.418, 0.93)
pt3dadd(86.88, 247.212, -10.435, 0.93)
pt3dadd(86.88, 247.33, -10.451, 0.93)
pt3dadd(86.88, 247.448, -10.468, 0.93)
pt3dadd(86.88, 247.567, -10.484, 0.93)
pt3dadd(86.88, 247.685, -10.5, 0.93)
pt3dadd(86.88, 247.805, -10.5, 0.94)
pt3dadd(86.88, 247.925, -10.5, 0.952)
pt3dadd(86.88, 248.045, -10.5, 0.962)
pt3dadd(86.88, 248.165, -10.5, 0.972)
pt3dadd(86.88, 248.285, -10.5, 0.984)
pt3dadd(86.88, 248.405, -10.5, 0.994)
pt3dadd(86.88, 248.525, -10.501, 1.006)
pt3dadd(86.88, 248.644, -10.517, 1.022)
pt3dadd(86.88, 248.761, -10.534, 1.038)
pt3dadd(86.88, 248.88, -10.55, 1.054)
pt3dadd(86.88, 248.999, -10.566, 1.072)
pt3dadd(86.88, 249.116, -10.583, 1.088)
pt3dadd(86.88, 249.235, -10.599, 1.104)
pt3dadd(86.864, 249.338, -10.648, 1.126)
pt3dadd(86.846, 249.442, -10.698, 1.146)
pt3dadd(86.829, 249.544, -10.748, 1.168)
pt3dadd(86.812, 249.647, -10.797, 1.19)
pt3dadd(86.792, 249.75, -10.843, 1.206)
pt3dadd(86.763, 249.859, -10.879, 1.212)
pt3dadd(86.735, 249.967, -10.915, 1.218)
pt3dadd(86.706, 250.075, -10.95, 1.222)
pt3dadd(86.678, 250.184, -10.986, 1.228)
pt3dadd(86.649, 250.296, -11.012, 1.228)
pt3dadd(86.62, 250.41, -11.032, 1.222)
pt3dadd(86.59, 250.524, -11.052, 1.218)
pt3dadd(86.561, 250.638, -11.072, 1.212)
pt3dadd(86.532, 250.752, -11.092, 1.208)
pt3dadd(86.52, 250.87, -11.101, 1.198)
pt3dadd(86.52, 250.99, -11.102, 1.188)
pt3dadd(86.52, 251.11, -11.104, 1.178)
pt3dadd(86.52, 251.23, -11.106, 1.166)
pt3dadd(86.52, 251.35, -11.107, 1.156)
pt3dadd(86.52, 251.47, -11.109, 1.144)
pt3dadd(86.52, 251.59, -11.111, 1.134)
pt3dadd(86.52, 251.708, -11.121, 1.124)
pt3dadd(86.52, 251.827, -11.135, 1.116)
pt3dadd(86.52, 251.946, -11.15, 1.108)
pt3dadd(86.52, 252.065, -11.164, 1.1)
pt3dadd(86.52, 252.184, -11.179, 1.092)
pt3dadd(86.52, 252.302, -11.193, 1.084)
pt3dadd(86.52, 252.415, -11.221, 1.08)
pt3dadd(86.52, 252.524, -11.264, 1.08)
pt3dadd(86.52, 252.634, -11.306, 1.08)
pt3dadd(86.52, 252.742, -11.348, 1.08)
pt3dadd(86.52, 252.851, -11.39, 1.08)
pt3dadd(86.52, 252.959, -11.434, 1.08)
pt3dadd(86.52, 253.064, -11.481, 1.08)
pt3dadd(86.52, 253.17, -11.528, 1.08)
pt3dadd(86.52, 253.276, -11.576, 1.08)
pt3dadd(86.52, 253.381, -11.623, 1.08)
pt3dadd(86.52, 253.488, -11.668, 1.08)
pt3dadd(86.52, 253.608, -11.68, 1.07)
pt3dadd(86.52, 253.727, -11.692, 1.06)
pt3dadd(86.52, 253.846, -11.707, 1.04)
pt3dadd(86.52, 253.963, -11.724, 1.002)
pt3dadd(86.52, 254.082, -11.741, 0.962)
pt3dadd(86.52, 254.16, -11.809, 0.918)
pt3dadd(86.52, 254.228, -11.892, 0.872)
pt3dadd(86.52, 254.292, -11.976, 0.824)
pt3dadd(86.52, 254.353, -12.063, 0.78)
pt3dadd(86.524, 254.402, -12.153, 0.738)
pt3dadd(86.532, 254.437, -12.248, 0.706)
pt3dadd(86.581, 254.488, -12.329, 0.69)
pt3dadd(86.627, 254.538, -12.41, 0.68)
pt3dadd(86.634, 254.587, -12.501, 0.69)
pt3dadd(86.64, 254.636, -12.592, 0.702)
pt3dadd(86.689, 254.716, -12.652, 0.73)
pt3dadd(86.744, 254.802, -12.7, 0.76)
pt3dadd(86.812, 254.9, -12.7, 0.808)
pt3dadd(86.88, 255, -12.7, 0.854)
pt3dadd(86.934, 255.107, -12.7, 0.904)
pt3dadd(86.979, 255.217, -12.7, 0.936)
pt3dadd(87.014, 255.332, -12.7, 0.95)
pt3dadd(87.05, 255.446, -12.7, 0.962)
pt3dadd(87.085, 255.562, -12.7, 0.976)
pt3dadd(87.121, 255.676, -12.7, 0.99)
pt3dadd(87.157, 255.791, -12.7, 1.004)
pt3dadd(87.192, 255.905, -12.7, 1.008)
pt3dadd(87.228, 256.02, -12.7, 1.012)
pt3dadd(87.264, 256.134, -12.7, 1.018)
pt3dadd(87.3, 256.249, -12.7, 1.022)
pt3dadd(87.336, 256.363, -12.7, 1.026)
pt3dadd(87.365, 256.48, -12.7, 1.036)
pt3dadd(87.38, 256.598, -12.7, 1.054)
pt3dadd(87.394, 256.717, -12.7, 1.074)
pt3dadd(87.428, 256.817, -12.736, 1.088)
pt3dadd(87.473, 256.907, -12.791, 1.102)
pt3dadd(87.485, 256.961, -12.877, 1.104)
pt3dadd(87.491, 257.01, -12.968, 1.104)
pt3dadd(87.532, 257.062, -13.049, 1.086)
pt3dadd(87.592, 257.113, -13.124, 1.058)
pt3dadd(87.672, 257.168, -13.183, 1.04)
pt3dadd(87.754, 257.222, -13.24, 1.022)
pt3dadd(87.836, 257.278, -13.297, 1.006)
pt3dadd(87.929, 257.351, -13.3, 1.016)
pt3dadd(88.023, 257.425, -13.3, 1.028)
pt3dadd(88.049, 257.537, -13.3, 1.046)
pt3dadd(88.06, 257.657, -13.3, 1.066)
pt3dadd(88.071, 257.776, -13.3, 1.088)
pt3dadd(88.08, 257.893, -13.306, 1.11)
pt3dadd(88.08, 258.001, -13.351, 1.156)
pt3dadd(88.08, 258.108, -13.395, 1.2)
pt3dadd(88.098, 258.186, -13.462, 1.232)
pt3dadd(88.119, 258.3, -13.488, 1.236)
pt3dadd(88.141, 258.414, -13.515, 1.242)
pt3dadd(88.162, 258.528, -13.541, 1.246)
pt3dadd(88.183, 258.642, -13.568, 1.252)
pt3dadd(88.211, 258.754, -13.592, 1.258)
pt3dadd(88.269, 258.857, -13.609, 1.276)
pt3dadd(88.326, 258.96, -13.626, 1.292)
pt3dadd(88.383, 259.063, -13.642, 1.308)
pt3dadd(88.441, 259.168, -13.659, 1.324)
pt3dadd(88.478, 259.27, -13.695, 1.352)
pt3dadd(88.498, 259.37, -13.746, 1.39)
pt3dadd(88.518, 259.472, -13.796, 1.428)
pt3dadd(88.539, 259.573, -13.847, 1.466)
pt3dadd(88.559, 259.675, -13.898, 1.504)
}
}
proc shape3d_30() {
dend_5[3] { pt3dadd(88.583, 259.769, -13.957, 1.55)
pt3dadd(88.607, 259.861, -14.017, 1.596)
pt3dadd(88.631, 259.955, -14.077, 1.64)
pt3dadd(88.655, 260.047, -14.137, 1.686)
pt3dadd(88.676, 260.15, -14.182, 1.78)
pt3dadd(88.68, 260.264, -14.211, 1.832)
pt3dadd(88.68, 260.376, -14.244, 1.802)
pt3dadd(88.68, 260.47, -14.307, 1.734)
pt3dadd(88.681, 260.564, -14.368, 1.574)
pt3dadd(88.713, 260.674, -14.394, 1.406)
pt3dadd(88.805, 260.743, -14.4, 1.288)
pt3dadd(88.921, 260.76, -14.415, 1.194)
pt3dadd(89.03, 260.76, -14.453, 1.096)
pt3dadd(89.118, 260.772, -14.52, 0.984)
pt3dadd(89.164, 260.816, -14.604, 0.93)
pt3dadd(89.215, 260.868, -14.684, 0.93)
pt3dadd(89.279, 260.932, -14.745, 0.958)
pt3dadd(89.355, 261.008, -14.789, 1.016)
pt3dadd(89.458, 261.062, -14.8, 1.088)
pt3dadd(89.568, 261.108, -14.8, 1.164)
pt3dadd(89.655, 261.182, -14.8, 1.248)
pt3dadd(89.716, 261.286, -14.8, 1.34)
pt3dadd(89.76, 261.39, -14.813, 1.424)
pt3dadd(89.76, 261.497, -14.857, 1.492)
pt3dadd(89.76, 261.602, -14.904, 1.562)
pt3dadd(89.76, 261.656, -14.993, 1.688)
pt3dadd(89.76, 261.698, -15.086, 1.784)
pt3dadd(89.76, 261.718, -15.185, 1.87)
pt3dadd(89.772, 261.72, -15.284, 1.954)
pt3dadd(89.809, 261.76, -15.362, 2.012)
pt3dadd(89.85, 261.866, -15.39, 2.024)
pt3dadd(89.898, 261.968, -15.423, 2.022)
pt3dadd(89.966, 262.051, -15.467, 1.98)
pt3dadd(90.051, 262.123, -15.497, 1.826)
pt3dadd(90.135, 262.207, -15.5, 1.736)
pt3dadd(90.216, 262.296, -15.5, 1.68)
pt3dadd(90.296, 262.385, -15.5, 1.624)
pt3dadd(90.377, 262.474, -15.5, 1.568)
pt3dadd(90.458, 262.562, -15.5, 1.514)
pt3dadd(90.531, 262.64, -15.544, 1.446)
pt3dadd(90.603, 262.716, -15.593, 1.378)
pt3dadd(90.675, 262.792, -15.642, 1.31)
pt3dadd(90.747, 262.867, -15.691, 1.242)
pt3dadd(90.795, 262.963, -15.734, 1.142)
pt3dadd(90.838, 263.063, -15.776, 1.034)
pt3dadd(90.859, 263.118, -15.863, 0.958)
pt3dadd(90.879, 263.171, -15.951, 0.882)
pt3dadd(90.922, 263.251, -16.015, 0.866)
pt3dadd(90.96, 263.34, -16.069, 0.854)
pt3dadd(90.96, 263.459, -16.081, 0.854)
pt3dadd(90.96, 263.578, -16.094, 0.854)
pt3dadd(90.962, 263.69, -16.122, 0.866)
pt3dadd(90.965, 263.797, -16.168, 0.894)
pt3dadd(90.969, 263.904, -16.214, 0.922)
pt3dadd(90.973, 264.011, -16.26, 0.95)
pt3dadd(91.044, 264.072, -16.315, 0.978)
pt3dadd(91.129, 264.12, -16.371, 1.014)
pt3dadd(91.223, 264.139, -16.423, 1.082)
pt3dadd(91.292, 264.194, -16.491, 1.088)
pt3dadd(91.36, 264.25, -16.559, 1.094)
pt3dadd(91.428, 264.305, -16.627, 1.1)
pt3dadd(91.491, 264.354, -16.7, 1.104)
pt3dadd(91.538, 264.38, -16.79, 1.104)
pt3dadd(91.592, 264.422, -16.863, 1.102)
pt3dadd(91.665, 264.51, -16.894, 1.088)
pt3dadd(91.736, 264.569, -16.946, 1.08)
pt3dadd(91.805, 264.589, -17.026, 1.08)
pt3dadd(91.856, 264.6, -17.114, 1.096)
pt3dadd(91.889, 264.6, -17.21, 1.126)
pt3dadd(91.921, 264.6, -17.307, 1.158)
pt3dadd(91.936, 264.606, -17.406, 1.186)
pt3dadd(91.952, 264.611, -17.505, 1.216)
pt3dadd(91.994, 264.647, -17.584, 1.272)
pt3dadd(92.03, 264.756, -17.603, 1.28)
pt3dadd(92.04, 264.872, -17.622, 1.256)
pt3dadd(92.04, 264.983, -17.66, 1.17)
pt3dadd(92.041, 265.097, -17.691, 1.03)
pt3dadd(92.069, 265.178, -17.76, 1.024)
pt3dadd(92.096, 265.261, -17.829, 1.018)
pt3dadd(92.124, 265.344, -17.898, 1.012)
pt3dadd(92.151, 265.427, -17.967, 1.006)
pt3dadd(92.192, 265.524, -18.009, 1.008)
pt3dadd(92.24, 265.628, -18.039, 1.014)
pt3dadd(92.288, 265.733, -18.069, 1.02)
pt3dadd(92.335, 265.836, -18.098, 1.026)
pt3dadd(92.38, 265.937, -18.135, 1.036)
pt3dadd(92.415, 266.024, -18.197, 1.064)
pt3dadd(92.449, 266.112, -18.259, 1.094)
pt3dadd(92.483, 266.2, -18.322, 1.124)
pt3dadd(92.517, 266.286, -18.384, 1.152)
pt3dadd(92.52, 266.384, -18.441, 1.166)
pt3dadd(92.52, 266.484, -18.498, 1.178)
pt3dadd(92.52, 266.554, -18.577, 1.188)
pt3dadd(92.52, 266.614, -18.663, 1.2)
pt3dadd(92.536, 266.699, -18.726, 1.212)
pt3dadd(92.563, 266.802, -18.772, 1.226)
pt3dadd(92.644, 266.867, -18.792, 1.272)
pt3dadd(92.757, 266.908, -18.797, 1.34)
pt3dadd(92.839, 266.976, -18.8, 1.404)
pt3dadd(92.872, 267.091, -18.8, 1.466)
pt3dadd(92.885, 267.199, -18.835, 1.472)
pt3dadd(92.891, 267.306, -18.882, 1.46)
pt3dadd(92.94, 267.384, -18.935, 1.394)
pt3dadd(93.017, 267.445, -18.993, 1.294)
pt3dadd(93.079, 267.544, -19, 1.2)
pt3dadd(93.14, 267.647, -19, 1.11)
pt3dadd(93.223, 267.731, -19, 1.04)
pt3dadd(93.317, 267.806, -19, 0.982)
pt3dadd(93.397, 267.894, -19.005, 0.946)
pt3dadd(93.464, 267.992, -19.015, 0.932)
pt3dadd(93.531, 268.091, -19.025, 0.916)
pt3dadd(93.588, 268.193, -19.039, 0.904)
pt3dadd(93.594, 268.304, -19.074, 0.904)
pt3dadd(93.6, 268.417, -19.108, 0.904)
pt3dadd(93.603, 268.529, -19.14, 0.904)
pt3dadd(93.63, 268.612, -19.209, 0.898)
pt3dadd(93.658, 268.694, -19.278, 0.892)
pt3dadd(93.685, 268.777, -19.347, 0.886)
pt3dadd(93.713, 268.859, -19.416, 0.88)
pt3dadd(93.762, 268.952, -19.46, 0.878)
pt3dadd(93.818, 269.05, -19.497, 0.878)
pt3dadd(93.874, 269.146, -19.533, 0.878)
pt3dadd(93.93, 269.243, -19.57, 0.878)
pt3dadd(93.993, 269.322, -19.619, 0.886)
pt3dadd(94.062, 269.383, -19.683, 0.9)
pt3dadd(94.1, 269.472, -19.738, 0.942)
pt3dadd(94.128, 269.57, -19.791, 0.996)
pt3dadd(94.201, 269.66, -19.8, 1.034)
pt3dadd(94.283, 269.748, -19.8, 1.07)
pt3dadd(94.335, 269.854, -19.8, 1.088)
pt3dadd(94.375, 269.966, -19.8, 1.098)
pt3dadd(94.421, 270.077, -19.8, 1.1)
pt3dadd(94.478, 270.182, -19.8, 1.086)
pt3dadd(94.536, 270.287, -19.8, 1.072)
pt3dadd(94.594, 270.392, -19.8, 1.06)
pt3dadd(94.675, 270.446, -19.84, 1.028)
pt3dadd(94.767, 270.474, -19.899, 0.988)
pt3dadd(94.79, 270.503, -19.988, 0.974)
pt3dadd(94.794, 270.533, -20.085, 0.966)
pt3dadd(94.798, 270.562, -20.182, 0.958)
pt3dadd(94.8, 270.634, -20.252, 0.954)
pt3dadd(94.8, 270.737, -20.302, 0.954)
pt3dadd(94.802, 270.834, -20.36, 0.958)
pt3dadd(94.807, 270.922, -20.429, 0.966)
pt3dadd(94.811, 271.009, -20.497, 0.976)
pt3dadd(94.866, 271.084, -20.55, 0.962)
pt3dadd(94.949, 271.152, -20.595, 0.932)
pt3dadd(95.054, 271.206, -20.601, 0.906)
pt3dadd(95.164, 271.255, -20.606, 0.916)
pt3dadd(95.273, 271.303, -20.611, 0.928)
pt3dadd(95.344, 271.385, -20.653, 1.01)
pt3dadd(95.4, 271.474, -20.696, 1.092)
pt3dadd(95.4, 271.584, -20.735, 1.158)
pt3dadd(95.4, 271.694, -20.774, 1.224)
pt3dadd(95.418, 271.787, -20.834, 1.276)
pt3dadd(95.439, 271.877, -20.898, 1.33)
pt3dadd(95.483, 271.958, -20.962, 1.33)
pt3dadd(95.528, 272.039, -21.025, 1.33)
pt3dadd(95.573, 272.12, -21.089, 1.33)
pt3dadd(95.688, 272.144, -21.109, 1.32)
pt3dadd(95.803, 272.168, -21.129, 1.308)
pt3dadd(95.843, 272.246, -21.181, 1.298)
pt3dadd(95.864, 272.34, -21.241, 1.288)
pt3dadd(95.88, 272.44, -21.289, 1.284)
pt3dadd(95.88, 272.56, -21.289, 1.302)
pt3dadd(95.88, 272.68, -21.289, 1.32)
pt3dadd(95.906, 272.788, -21.273, 1.344)
pt3dadd(95.967, 272.881, -21.236, 1.376)
pt3dadd(96.027, 272.976, -21.2, 1.406)
pt3dadd(96.08, 273.082, -21.217, 1.432)
pt3dadd(96.133, 273.187, -21.233, 1.456)
}
dend_5[4] {pt3dclear()
pt3dadd(96.133, 273.187, -21.233, 1.456)
pt3dadd(96.141, 273.203, -21.243, 1.442)
pt3dadd(96.217, 273.278, -21.271, 1.394)
pt3dadd(96.317, 273.346, -21.278, 1.374)
pt3dadd(96.417, 273.412, -21.285, 1.352)
pt3dadd(96.516, 273.478, -21.291, 1.332)
pt3dadd(96.616, 273.545, -21.298, 1.31)
pt3dadd(96.707, 273.622, -21.3, 1.294)
pt3dadd(96.796, 273.702, -21.3, 1.278)
pt3dadd(96.885, 273.782, -21.3, 1.264)
pt3dadd(96.974, 273.864, -21.3, 1.248)
pt3dadd(97.063, 273.944, -21.3, 1.234)
pt3dadd(97.157, 274.018, -21.3, 1.226)
pt3dadd(97.253, 274.09, -21.3, 1.222)
pt3dadd(97.349, 274.162, -21.3, 1.216)
pt3dadd(97.445, 274.234, -21.3, 1.212)
pt3dadd(97.541, 274.306, -21.3, 1.206)
pt3dadd(97.646, 274.363, -21.3, 1.196)
pt3dadd(97.754, 274.417, -21.3, 1.184)
pt3dadd(97.853, 274.482, -21.3, 1.174)
pt3dadd(97.947, 274.558, -21.3, 1.162)
pt3dadd(98.008, 274.65, -21.308, 1.15)
pt3dadd(98.025, 274.766, -21.328, 1.14)
pt3dadd(98.04, 274.877, -21.356, 1.128)
pt3dadd(98.04, 274.944, -21.438, 1.116)
pt3dadd(98.04, 275.012, -21.521, 1.106)
pt3dadd(98.116, 275.098, -21.547, 1.09)
pt3dadd(98.194, 275.184, -21.572, 1.072)
pt3dadd(98.272, 275.27, -21.597, 1.056)
}
}
proc shape3d_31() {
dend_5[4] { pt3dadd(98.328, 275.376, -21.6, 1.014)
pt3dadd(98.382, 275.483, -21.6, 0.97)
pt3dadd(98.435, 275.591, -21.6, 0.866)
pt3dadd(98.487, 275.695, -21.62, 0.838)
pt3dadd(98.54, 275.801, -21.642, 0.822)
pt3dadd(98.592, 275.905, -21.663, 0.806)
pt3dadd(98.644, 276.01, -21.685, 0.79)
pt3dadd(98.691, 276.114, -21.714, 0.778)
pt3dadd(98.728, 276.216, -21.757, 0.778)
pt3dadd(98.764, 276.318, -21.799, 0.778)
pt3dadd(98.801, 276.42, -21.842, 0.778)
pt3dadd(98.837, 276.523, -21.885, 0.778)
pt3dadd(98.898, 276.62, -21.912, 0.788)
pt3dadd(98.961, 276.718, -21.937, 0.8)
pt3dadd(99.025, 276.815, -21.962, 0.812)
pt3dadd(99.089, 276.912, -21.987, 0.824)
pt3dadd(99.143, 277.004, -22.028, 0.842)
pt3dadd(99.187, 277.094, -22.084, 0.87)
pt3dadd(99.224, 277.201, -22.1, 0.886)
pt3dadd(99.256, 277.318, -22.1, 0.896)
pt3dadd(99.291, 277.432, -22.106, 0.904)
pt3dadd(99.33, 277.542, -22.128, 0.904)
pt3dadd(99.36, 277.638, -22.165, 0.904)
pt3dadd(99.36, 277.684, -22.258, 0.904)
pt3dadd(99.36, 277.73, -22.35, 0.904)
pt3dadd(99.36, 277.822, -22.414, 0.888)
pt3dadd(99.382, 277.897, -22.485, 0.864)
pt3dadd(99.427, 277.955, -22.564, 0.838)
pt3dadd(99.451, 278.054, -22.595, 0.814)
pt3dadd(99.467, 278.173, -22.604, 0.794)
pt3dadd(99.48, 278.291, -22.618, 0.778)
pt3dadd(99.48, 278.404, -22.651, 0.778)
pt3dadd(99.48, 278.516, -22.684, 0.778)
pt3dadd(99.48, 278.633, -22.668, 0.788)
pt3dadd(99.48, 278.749, -22.644, 0.798)
pt3dadd(99.485, 278.866, -22.622, 0.804)
pt3dadd(99.493, 278.983, -22.601, 0.804)
pt3dadd(99.541, 279.09, -22.621, 0.794)
pt3dadd(99.589, 279.197, -22.642, 0.782)
pt3dadd(99.638, 279.302, -22.664, 0.772)
pt3dadd(99.687, 279.409, -22.686, 0.76)
pt3dadd(99.72, 279.52, -22.7, 0.748)
pt3dadd(99.72, 279.64, -22.7, 0.73)
pt3dadd(99.72, 279.76, -22.7, 0.714)
pt3dadd(99.725, 279.88, -22.7, 0.7)
pt3dadd(99.74, 279.998, -22.7, 0.69)
pt3dadd(99.754, 280.118, -22.7, 0.682)
pt3dadd(99.785, 280.231, -22.714, 0.678)
pt3dadd(99.824, 280.342, -22.736, 0.678)
pt3dadd(99.84, 280.439, -22.785, 0.686)
pt3dadd(99.84, 280.526, -22.853, 0.696)
pt3dadd(99.84, 280.626, -22.906, 0.718)
pt3dadd(99.84, 280.738, -22.941, 0.75)
pt3dadd(99.84, 280.783, -23.031, 0.782)
pt3dadd(99.84, 280.823, -23.126, 0.814)
pt3dadd(99.866, 280.882, -23.205, 0.844)
pt3dadd(99.911, 280.957, -23.274, 0.872)
pt3dadd(99.966, 281.054, -23.297, 0.878)
pt3dadd(100.025, 281.159, -23.308, 0.878)
pt3dadd(100.06, 281.264, -23.34, 0.86)
pt3dadd(100.086, 281.372, -23.379, 0.836)
pt3dadd(100.128, 281.482, -23.395, 0.79)
pt3dadd(100.176, 281.591, -23.4, 0.746)
pt3dadd(100.23, 281.698, -23.4, 0.724)
pt3dadd(100.281, 281.807, -23.4, 0.704)
pt3dadd(100.291, 281.926, -23.4, 0.704)
pt3dadd(100.302, 282.046, -23.4, 0.704)
pt3dadd(100.27, 282.144, -23.422, 0.718)
pt3dadd(100.194, 282.22, -23.466, 0.746)
pt3dadd(100.135, 282.29, -23.529, 0.796)
pt3dadd(100.081, 282.358, -23.598, 0.852)
pt3dadd(100.08, 282.473, -23.627, 0.878)
pt3dadd(100.08, 282.588, -23.654, 0.902)
pt3dadd(100.08, 282.703, -23.682, 0.928)
pt3dadd(100.08, 282.818, -23.709, 0.952)
pt3dadd(100.08, 282.923, -23.758, 0.986)
pt3dadd(100.08, 283.026, -23.809, 1.02)
pt3dadd(100.081, 283.123, -23.867, 1.004)
pt3dadd(100.104, 283.237, -23.892, 0.978)
pt3dadd(100.128, 283.35, -23.916, 0.954)
pt3dadd(100.152, 283.464, -23.94, 0.928)
pt3dadd(100.176, 283.578, -23.965, 0.904)
pt3dadd(100.2, 283.692, -23.989, 0.88)
pt3dadd(100.2, 283.812, -23.996, 0.852)
pt3dadd(100.2, 283.932, -24.002, 0.826)
pt3dadd(100.2, 284.052, -24.009, 0.798)
pt3dadd(100.2, 284.171, -24.016, 0.772)
pt3dadd(100.2, 284.291, -24.023, 0.746)
pt3dadd(100.2, 284.411, -24.029, 0.718)
pt3dadd(100.2, 284.531, -24.038, 0.694)
pt3dadd(100.2, 284.65, -24.048, 0.676)
pt3dadd(100.2, 284.768, -24.059, 0.656)
pt3dadd(100.2, 284.888, -24.069, 0.636)
pt3dadd(100.2, 285.007, -24.08, 0.616)
pt3dadd(100.2, 285.127, -24.09, 0.596)
pt3dadd(100.201, 285.246, -24.102, 0.578)
pt3dadd(100.22, 285.359, -24.133, 0.578)
pt3dadd(100.238, 285.47, -24.164, 0.578)
pt3dadd(100.276, 285.582, -24.187, 0.622)
pt3dadd(100.315, 285.692, -24.208, 0.672)
pt3dadd(100.314, 285.78, -24.272, 0.732)
pt3dadd(100.308, 285.864, -24.343, 0.792)
pt3dadd(100.263, 285.942, -24.408, 0.85)
pt3dadd(100.213, 286.021, -24.469, 0.908)
pt3dadd(100.204, 286.135, -24.498, 0.974)
pt3dadd(100.2, 286.249, -24.529, 1.04)
pt3dadd(100.2, 286.362, -24.562, 1.104)
pt3dadd(100.201, 286.476, -24.592, 1.166)
pt3dadd(100.206, 286.595, -24.61, 1.216)
pt3dadd(100.212, 286.712, -24.628, 1.266)
pt3dadd(100.291, 286.765, -24.656, 1.298)
pt3dadd(100.401, 286.792, -24.689, 1.322)
pt3dadd(100.507, 286.84, -24.7, 1.302)
pt3dadd(100.611, 286.901, -24.7, 1.256)
pt3dadd(100.668, 286.988, -24.703, 1.218)
pt3dadd(100.671, 287.108, -24.711, 1.19)
pt3dadd(100.674, 287.227, -24.718, 1.162)
pt3dadd(100.677, 287.347, -24.725, 1.136)
pt3dadd(100.68, 287.467, -24.733, 1.108)
pt3dadd(100.68, 287.575, -24.773, 1.056)
pt3dadd(100.68, 287.683, -24.818, 0.998)
pt3dadd(100.68, 287.782, -24.874, 0.91)
pt3dadd(100.68, 287.85, -24.955, 0.882)
pt3dadd(100.68, 287.918, -25.038, 0.858)
pt3dadd(100.68, 288.011, -25.1, 0.854)
pt3dadd(100.68, 288.109, -25.157, 0.854)
pt3dadd(100.68, 288.211, -25.21, 0.876)
pt3dadd(100.68, 288.314, -25.26, 0.91)
pt3dadd(100.689, 288.425, -25.291, 0.946)
pt3dadd(100.71, 288.542, -25.295, 0.986)
pt3dadd(100.732, 288.66, -25.3, 1.028)
pt3dadd(100.822, 288.737, -25.3, 1.062)
pt3dadd(100.888, 288.823, -25.326, 1.076)
pt3dadd(100.928, 288.919, -25.375, 1.072)
pt3dadd(100.969, 289.015, -25.424, 1.066)
pt3dadd(101.009, 289.112, -25.473, 1.06)
pt3dadd(101.052, 289.202, -25.527, 1.05)
pt3dadd(101.104, 289.27, -25.597, 1.024)
pt3dadd(101.156, 289.338, -25.667, 1)
pt3dadd(101.207, 289.406, -25.737, 0.976)
pt3dadd(101.26, 289.477, -25.803, 0.952)
pt3dadd(101.318, 289.576, -25.834, 0.928)
pt3dadd(101.376, 289.674, -25.865, 0.906)
pt3dadd(101.435, 289.772, -25.895, 0.882)
pt3dadd(101.493, 289.87, -25.926, 0.86)
pt3dadd(101.54, 289.964, -25.972, 0.74)
pt3dadd(101.592, 290.066, -25.998, 0.682)
pt3dadd(101.646, 290.173, -26, 0.678)
pt3dadd(101.703, 290.279, -26.006, 0.692)
pt3dadd(101.749, 290.365, -26.056, 0.766)
pt3dadd(101.767, 290.394, -26.151, 0.854)
pt3dadd(101.793, 290.4, -26.248, 0.918)
pt3dadd(101.844, 290.4, -26.339, 0.986)
pt3dadd(101.903, 290.4, -26.425, 1.076)
pt3dadd(101.998, 290.4, -26.483, 1.104)
pt3dadd(102.11, 290.405, -26.518, 1.086)
pt3dadd(102.222, 290.411, -26.553, 1.064)
pt3dadd(102.308, 290.472, -26.577, 1.024)
pt3dadd(102.376, 290.568, -26.594, 0.972)
pt3dadd(102.441, 290.666, -26.611, 0.878)
pt3dadd(102.517, 290.743, -26.656, 0.864)
pt3dadd(102.599, 290.815, -26.69, 0.86)
pt3dadd(102.701, 290.879, -26.695, 0.884)
pt3dadd(102.791, 290.951, -26.697, 0.906)
pt3dadd(102.815, 291.066, -26.677, 0.918)
pt3dadd(102.839, 291.181, -26.657, 0.928)
pt3dadd(102.84, 291.27, -26.592, 0.904)
pt3dadd(102.84, 291.359, -26.524, 0.88)
pt3dadd(102.84, 291.418, -26.608, 0.83)
pt3dadd(102.84, 291.476, -26.695, 0.782)
pt3dadd(102.84, 291.48, -26.794, 0.708)
pt3dadd(102.84, 291.494, -26.893, 0.678)
pt3dadd(102.84, 291.533, -26.988, 0.678)
pt3dadd(102.84, 291.587, -27.077, 0.678)
pt3dadd(102.84, 291.64, -27.167, 0.652)
pt3dadd(102.84, 291.679, -27.261, 0.632)
pt3dadd(102.84, 291.719, -27.355, 0.61)
pt3dadd(102.844, 291.774, -27.444, 0.58)
pt3dadd(102.85, 291.838, -27.528, 0.544)
pt3dadd(102.891, 291.919, -27.576, 0.52)
pt3dadd(102.959, 292.015, -27.593, 0.508)
pt3dadd(103.01, 292.122, -27.6, 0.508)
pt3dadd(103.05, 292.235, -27.6, 0.52)
pt3dadd(103.09, 292.34, -27.617, 0.53)
pt3dadd(103.13, 292.42, -27.683, 0.538)
pt3dadd(103.17, 292.5, -27.75, 0.546)
pt3dadd(103.2, 292.576, -27.821, 0.552)
pt3dadd(103.2, 292.636, -27.908, 0.552)
pt3dadd(103.2, 292.7, -27.989, 0.552)
pt3dadd(103.2, 292.82, -27.992, 0.552)
pt3dadd(103.2, 292.94, -27.995, 0.552)
pt3dadd(103.2, 293.06, -27.998, 0.552)
pt3dadd(103.2, 293.18, -28, 0.558)
pt3dadd(103.2, 293.3, -28, 0.592)
pt3dadd(103.2, 293.42, -28, 0.624)
pt3dadd(103.205, 293.539, -28, 0.668)
pt3dadd(103.238, 293.654, -28, 0.762)
pt3dadd(103.308, 293.74, -28.009, 0.948)
pt3dadd(103.416, 293.76, -28.044, 1.16)
pt3dadd(103.51, 293.76, -28.107, 1.304)
}
}
proc shape3d_32() {
dend_5[4] { pt3dadd(103.597, 293.778, -28.173, 1.416)
pt3dadd(103.676, 293.839, -28.226, 1.464)
pt3dadd(103.745, 293.916, -28.277, 1.478)
pt3dadd(103.772, 294.025, -28.292, 1.436)
pt3dadd(103.788, 294.144, -28.296, 1.378)
pt3dadd(103.8, 294.263, -28.3, 1.284)
pt3dadd(103.814, 294.378, -28.299, 1.068)
pt3dadd(103.887, 294.473, -28.292, 1.01)
pt3dadd(103.959, 294.569, -28.285, 0.954)
pt3dadd(104.032, 294.664, -28.278, 0.894)
pt3dadd(104.105, 294.758, -28.271, 0.838)
pt3dadd(104.171, 294.857, -28.274, 0.79)
pt3dadd(104.228, 294.96, -28.292, 0.756)
pt3dadd(104.285, 295.064, -28.31, 0.722)
pt3dadd(104.342, 295.168, -28.328, 0.688)
pt3dadd(104.412, 295.256, -28.359, 0.688)
pt3dadd(104.486, 295.338, -28.396, 0.702)
pt3dadd(104.555, 295.435, -28.4, 0.746)
pt3dadd(104.623, 295.535, -28.4, 0.792)
pt3dadd(104.693, 295.632, -28.404, 0.83)
pt3dadd(104.763, 295.729, -28.409, 0.868)
pt3dadd(104.82, 295.789, -28.467, 0.878)
pt3dadd(104.871, 295.831, -28.551, 0.878)
pt3dadd(104.888, 295.904, -28.627, 0.864)
pt3dadd(104.914, 295.998, -28.674, 0.842)
pt3dadd(104.96, 296.107, -28.69, 0.818)
pt3dadd(105.005, 296.216, -28.706, 0.804)
pt3dadd(105.05, 296.327, -28.722, 0.804)
pt3dadd(105.087, 296.428, -28.756, 0.808)
pt3dadd(105.108, 296.51, -28.826, 0.822)
pt3dadd(105.12, 296.598, -28.892, 0.844)
pt3dadd(105.12, 296.693, -28.955, 0.878)
pt3dadd(105.129, 296.782, -29.02, 0.91)
pt3dadd(105.16, 296.858, -29.091, 0.928)
pt3dadd(105.177, 296.966, -29.133, 0.918)
pt3dadd(105.194, 297.074, -29.174, 0.908)
pt3dadd(105.21, 297.182, -29.215, 0.898)
pt3dadd(105.227, 297.29, -29.257, 0.886)
pt3dadd(105.251, 297.398, -29.295, 0.874)
pt3dadd(105.297, 297.505, -29.319, 0.852)
pt3dadd(105.343, 297.612, -29.343, 0.83)
pt3dadd(105.39, 297.719, -29.367, 0.808)
pt3dadd(105.436, 297.826, -29.391, 0.786)
pt3dadd(105.487, 297.922, -29.43, 0.77)
pt3dadd(105.542, 298.012, -29.478, 0.758)
pt3dadd(105.597, 298.102, -29.526, 0.746)
pt3dadd(105.651, 298.192, -29.574, 0.734)
pt3dadd(105.708, 298.288, -29.607, 0.734)
pt3dadd(105.768, 298.39, -29.621, 0.744)
pt3dadd(105.828, 298.493, -29.635, 0.754)
pt3dadd(105.888, 298.595, -29.649, 0.766)
pt3dadd(105.947, 298.698, -29.664, 0.776)
pt3dadd(105.979, 298.808, -29.688, 0.798)
pt3dadd(106.003, 298.921, -29.715, 0.824)
pt3dadd(106.027, 299.035, -29.742, 0.85)
pt3dadd(106.052, 299.148, -29.769, 0.874)
pt3dadd(106.076, 299.261, -29.795, 0.9)
pt3dadd(106.146, 299.351, -29.819, 0.928)
pt3dadd(106.226, 299.436, -29.842, 0.956)
pt3dadd(106.305, 299.522, -29.865, 0.986)
pt3dadd(106.385, 299.608, -29.888, 1.014)
pt3dadd(106.465, 299.694, -29.9, 1.04)
pt3dadd(106.546, 299.783, -29.9, 1.064)
pt3dadd(106.634, 299.864, -29.9, 1.076)
pt3dadd(106.733, 299.932, -29.9, 1.064)
pt3dadd(106.835, 299.989, -29.906, 1.046)
pt3dadd(106.948, 300.001, -29.936, 1)
pt3dadd(107.062, 300.013, -29.966, 0.956)
pt3dadd(107.118, 300.094, -30.021, 0.9)
pt3dadd(107.16, 300.184, -30.071, 0.842)
pt3dadd(107.16, 300.301, -30.09, 0.782)
pt3dadd(107.164, 300.407, -30.132, 0.75)
pt3dadd(107.172, 300.499, -30.195, 0.746)
pt3dadd(107.181, 300.592, -30.258, 0.74)
pt3dadd(107.189, 300.684, -30.321, 0.734)
pt3dadd(107.198, 300.778, -30.384, 0.73)
pt3dadd(107.224, 300.887, -30.4, 0.736)
pt3dadd(107.258, 301.002, -30.4, 0.746)
pt3dadd(107.28, 301.115, -30.414, 0.764)
pt3dadd(107.28, 301.223, -30.459, 0.798)
pt3dadd(107.28, 301.325, -30.508, 0.83)
pt3dadd(107.28, 301.379, -30.597, 0.854)
pt3dadd(107.28, 301.432, -30.687, 0.876)
pt3dadd(107.263, 301.492, -30.772, 0.878)
pt3dadd(107.243, 301.553, -30.857, 0.878)
pt3dadd(107.219, 301.655, -30.902, 0.872)
pt3dadd(107.195, 301.762, -30.942, 0.864)
pt3dadd(107.171, 301.87, -30.981, 0.858)
pt3dadd(107.16, 301.984, -31, 0.846)
pt3dadd(107.16, 302.104, -31, 0.828)
pt3dadd(107.16, 302.224, -31, 0.812)
pt3dadd(107.16, 302.344, -31, 0.79)
pt3dadd(107.16, 302.461, -31.015, 0.768)
pt3dadd(107.16, 302.576, -31.042, 0.746)
pt3dadd(107.162, 302.693, -31.068, 0.728)
pt3dadd(107.178, 302.81, -31.082, 0.728)
pt3dadd(107.195, 302.928, -31.096, 0.728)
pt3dadd(107.228, 303.04, -31.116, 0.736)
pt3dadd(107.267, 303.15, -31.137, 0.75)
pt3dadd(107.28, 303.218, -31.206, 0.776)
pt3dadd(107.28, 303.264, -31.298, 0.808)
pt3dadd(107.297, 303.335, -31.36, 0.834)
pt3dadd(107.343, 303.444, -31.373, 0.848)
pt3dadd(107.388, 303.554, -31.386, 0.862)
pt3dadd(107.433, 303.665, -31.398, 0.876)
pt3dadd(107.497, 303.757, -31.432, 0.89)
pt3dadd(107.564, 303.846, -31.469, 0.902)
pt3dadd(107.63, 303.937, -31.505, 0.878)
pt3dadd(107.692, 304.031, -31.539, 0.878)
pt3dadd(107.754, 304.124, -31.573, 0.878)
pt3dadd(107.817, 304.219, -31.606, 0.878)
pt3dadd(107.875, 304.314, -31.641, 0.878)
pt3dadd(107.918, 304.417, -31.679, 0.878)
pt3dadd(107.96, 304.52, -31.717, 0.878)
pt3dadd(108.002, 304.622, -31.754, 0.878)
pt3dadd(108.044, 304.726, -31.792, 0.878)
pt3dadd(108.111, 304.819, -31.818, 0.884)
pt3dadd(108.184, 304.91, -31.841, 0.89)
pt3dadd(108.257, 305.002, -31.864, 0.894)
pt3dadd(108.33, 305.093, -31.886, 0.9)
pt3dadd(108.404, 305.176, -31.92, 0.896)
pt3dadd(108.48, 305.249, -31.969, 0.878)
pt3dadd(108.555, 305.321, -32.019, 0.86)
pt3dadd(108.631, 305.393, -32.068, 0.84)
pt3dadd(108.711, 305.468, -32.1, 0.812)
pt3dadd(108.798, 305.55, -32.1, 0.766)
pt3dadd(108.88, 305.63, -32.113, 0.716)
pt3dadd(108.941, 305.707, -32.17, 0.658)
pt3dadd(109.021, 305.761, -32.224, 0.62)
pt3dadd(109.12, 305.791, -32.275, 0.606)
pt3dadd(109.208, 305.849, -32.257, 0.602)
pt3dadd(109.291, 305.917, -32.213, 0.602)
pt3dadd(109.345, 305.971, -32.136, 0.602)
pt3dadd(109.398, 306.025, -32.058, 0.602)
pt3dadd(109.451, 306.078, -31.98, 0.602)
pt3dadd(109.497, 306.098, -31.89, 0.602)
pt3dadd(109.542, 306.118, -31.798, 0.602)
pt3dadd(109.56, 306.12, -31.7, 0.578)
pt3dadd(109.56, 306.12, -31.6, 0.552)
pt3dadd(109.577, 306.122, -31.501, 0.556)
pt3dadd(109.635, 306.15, -31.423, 0.578)
pt3dadd(109.728, 306.211, -31.424, 0.498)
pt3dadd(109.799, 306.24, -31.498, 0.38)
pt3dadd(109.88, 306.235, -31.569, 0.28)
pt3dadd(109.989, 306.204, -31.598, 0.252)
pt3dadd(110.096, 306.151, -31.6, 0.286)
pt3dadd(110.204, 306.098, -31.6, 0.34)
pt3dadd(110.302, 306.03, -31.6, 0.422)
pt3dadd(110.406, 305.977, -31.621, 0.442)
pt3dadd(110.511, 305.924, -31.642, 0.46)
pt3dadd(110.615, 305.872, -31.664, 0.476)
pt3dadd(110.72, 305.82, -31.686, 0.492)
pt3dadd(110.821, 305.76, -31.697, 0.51)
pt3dadd(110.916, 305.687, -31.691, 0.53)
pt3dadd(111.011, 305.615, -31.683, 0.552)
pt3dadd(111.106, 305.542, -31.677, 0.574)
pt3dadd(111.202, 305.468, -31.67, 0.594)
pt3dadd(111.293, 305.413, -31.633, 0.652)
pt3dadd(111.401, 305.374, -31.605, 0.728)
pt3dadd(111.509, 305.324, -31.6, 0.82)
pt3dadd(111.624, 305.292, -31.6, 0.882)
pt3dadd(111.743, 305.28, -31.598, 0.904)
pt3dadd(111.861, 305.286, -31.58, 0.894)
pt3dadd(111.946, 305.32, -31.523, 0.83)
pt3dadd(111.96, 305.406, -31.456, 0.716)
pt3dadd(111.96, 305.514, -31.416, 0.618)
pt3dadd(111.96, 305.632, -31.401, 0.556)
pt3dadd(111.96, 305.752, -31.4, 0.576)
pt3dadd(111.96, 305.872, -31.389, 0.612)
pt3dadd(111.96, 305.99, -31.376, 0.65)
pt3dadd(111.97, 306.106, -31.358, 0.694)
pt3dadd(112.012, 306.21, -31.323, 0.76)
pt3dadd(112.053, 306.317, -31.3, 0.81)
pt3dadd(112.092, 306.431, -31.3, 0.832)
pt3dadd(112.132, 306.544, -31.3, 0.854)
pt3dadd(112.248, 306.568, -31.296, 0.844)
pt3dadd(112.365, 306.589, -31.291, 0.834)
pt3dadd(112.48, 306.605, -31.27, 0.804)
pt3dadd(112.59, 306.614, -31.232, 0.75)
pt3dadd(112.686, 306.673, -31.204, 0.688)
pt3dadd(112.777, 306.75, -31.2, 0.678)
pt3dadd(112.854, 306.841, -31.206, 0.678)
pt3dadd(112.928, 306.924, -31.238, 0.678)
pt3dadd(113.023, 306.956, -31.292, 0.696)
pt3dadd(113.114, 306.96, -31.355, 0.766)
pt3dadd(113.159, 306.96, -31.447, 0.852)
pt3dadd(113.192, 306.96, -31.543, 0.896)
pt3dadd(113.241, 306.96, -31.634, 0.904)
pt3dadd(113.275, 306.959, -31.73, 0.902)
pt3dadd(113.317, 306.953, -31.824, 0.89)
pt3dadd(113.358, 306.947, -31.917, 0.88)
pt3dadd(113.402, 306.892, -31.998, 0.84)
pt3dadd(113.45, 306.829, -32.069, 0.796)
pt3dadd(113.534, 306.746, -32.086, 0.744)
pt3dadd(113.613, 306.659, -32.1, 0.698)
pt3dadd(113.674, 306.556, -32.1, 0.676)
pt3dadd(113.736, 306.452, -32.1, 0.654)
pt3dadd(113.84, 306.395, -32.11, 0.66)
pt3dadd(113.944, 306.336, -32.119, 0.668)
pt3dadd(114.049, 306.278, -32.129, 0.674)
}
}
proc shape3d_33() {
dend_5[4] { pt3dadd(114.144, 306.253, -32.172, 0.692)
pt3dadd(114.232, 306.253, -32.24, 0.718)
pt3dadd(114.313, 306.306, -32.283, 0.716)
pt3dadd(114.388, 306.396, -32.3, 0.664)
pt3dadd(114.476, 306.476, -32.3, 0.534)
pt3dadd(114.56, 306.559, -32.3, 0.46)
pt3dadd(114.603, 306.671, -32.3, 0.442)
pt3dadd(114.639, 306.784, -32.311, 0.524)
pt3dadd(114.744, 306.812, -32.349, 0.612)
pt3dadd(114.851, 306.84, -32.388, 0.702)
pt3dadd(114.95, 306.84, -32.444, 0.772)
pt3dadd(115.049, 306.84, -32.501, 0.842)
pt3dadd(115.098, 306.84, -32.589, 0.886)
pt3dadd(115.136, 306.84, -32.684, 0.926)
pt3dadd(115.174, 306.84, -32.779, 0.966)
pt3dadd(115.19, 306.84, -32.877, 0.996)
pt3dadd(115.194, 306.84, -32.977, 1.022)
pt3dadd(115.199, 306.84, -33.077, 1.048)
pt3dadd(115.2, 306.84, -33.177, 1.054)
pt3dadd(115.234, 306.84, -33.271, 1.044)
pt3dadd(115.279, 306.84, -33.364, 1.03)
pt3dadd(115.323, 306.84, -33.457, 1.016)
pt3dadd(115.368, 306.84, -33.55, 1.002)
pt3dadd(115.412, 306.84, -33.642, 0.988)
pt3dadd(115.457, 306.828, -33.734, 0.962)
pt3dadd(115.5, 306.796, -33.823, 0.918)
pt3dadd(115.544, 306.764, -33.913, 0.876)
pt3dadd(115.587, 306.732, -34.002, 0.832)
pt3dadd(115.631, 306.701, -34.091, 0.788)
pt3dadd(115.656, 306.661, -34.183, 0.708)
pt3dadd(115.677, 306.619, -34.275, 0.616)
pt3dadd(115.703, 306.653, -34.365, 0.538)
pt3dadd(115.729, 306.7, -34.454, 0.462)
pt3dadd(115.832, 306.712, -34.491, 0.452)
pt3dadd(115.946, 306.718, -34.52, 0.452)
pt3dadd(116.06, 306.72, -34.551, 0.458)
pt3dadd(116.174, 306.72, -34.584, 0.468)
pt3dadd(116.28, 306.725, -34.624, 0.478)
pt3dadd(116.357, 306.75, -34.698, 0.486)
pt3dadd(116.433, 306.775, -34.773, 0.494)
pt3dadd(116.508, 306.8, -34.847, 0.502)
pt3dadd(116.531, 306.818, -34.945, 0.468)
pt3dadd(116.554, 306.835, -35.042, 0.436)
pt3dadd(116.604, 306.84, -35.131, 0.402)
pt3dadd(116.663, 306.84, -35.218, 0.368)
pt3dadd(116.722, 306.84, -35.305, 0.334)
pt3dadd(116.825, 306.84, -35.349, 0.3)
pt3dadd(116.938, 306.84, -35.382, 0.268)
pt3dadd(117.054, 306.84, -35.4, 0.248)
pt3dadd(117.174, 306.84, -35.4, 0.242)
pt3dadd(117.294, 306.84, -35.4, 0.236)
pt3dadd(117.414, 306.84, -35.4, 0.23)
pt3dadd(117.534, 306.84, -35.4, 0.226)
pt3dadd(117.654, 306.84, -35.4, 0.226)
pt3dadd(117.774, 306.84, -35.4, 0.226)
pt3dadd(117.894, 306.84, -35.4, 0.226)
pt3dadd(118.014, 306.84, -35.4, 0.226)
pt3dadd(118.134, 306.84, -35.4, 0.226)
pt3dadd(118.254, 306.84, -35.4, 0.226)
pt3dadd(118.374, 306.84, -35.4, 0.226)
pt3dadd(118.494, 306.84, -35.4, 0.226)
pt3dadd(118.614, 306.84, -35.4, 0.226)
pt3dadd(118.734, 306.84, -35.4, 0.226)
pt3dadd(118.854, 306.839, -35.4, 0.226)
pt3dadd(118.974, 306.838, -35.4, 0.226)
pt3dadd(119.094, 306.835, -35.4, 0.226)
pt3dadd(119.214, 306.833, -35.4, 0.226)
pt3dadd(119.334, 306.832, -35.4, 0.226)
pt3dadd(119.454, 306.829, -35.4, 0.226)
pt3dadd(119.574, 306.828, -35.4, 0.226)
pt3dadd(119.693, 306.817, -35.4, 0.226)
pt3dadd(119.812, 306.799, -35.4, 0.226)
pt3dadd(119.931, 306.782, -35.4, 0.226)
pt3dadd(120.049, 306.766, -35.4, 0.226)
pt3dadd(120.168, 306.748, -35.4, 0.226)
pt3dadd(120.287, 306.731, -35.4, 0.226)
pt3dadd(120.407, 306.72, -35.4, 0.23)
pt3dadd(120.527, 306.72, -35.4, 0.238)
pt3dadd(120.647, 306.72, -35.4, 0.246)
pt3dadd(120.767, 306.72, -35.4, 0.26)
pt3dadd(120.887, 306.72, -35.4, 0.286)
pt3dadd(121.007, 306.72, -35.4, 0.31)
pt3dadd(121.126, 306.714, -35.4, 0.344)
pt3dadd(121.246, 306.7, -35.4, 0.392)
pt3dadd(121.364, 306.685, -35.4, 0.438)
pt3dadd(121.452, 306.614, -35.4, 0.492)
pt3dadd(121.528, 306.521, -35.4, 0.552)
pt3dadd(121.612, 306.437, -35.403, 0.606)
pt3dadd(121.703, 306.359, -35.408, 0.654)
pt3dadd(121.782, 306.284, -35.44, 0.744)
pt3dadd(121.804, 306.25, -35.533, 0.836)
pt3dadd(121.828, 306.24, -35.63, 0.828)
pt3dadd(121.873, 306.24, -35.722, 0.68)
pt3dadd(121.932, 306.24, -35.808, 0.474)
pt3dadd(122.026, 306.24, -35.87, 0.448)
pt3dadd(122.119, 306.24, -35.933, 0.424)
pt3dadd(122.213, 306.24, -35.995, 0.398)
pt3dadd(122.306, 306.24, -36.058, 0.374)
pt3dadd(122.404, 306.241, -36.116, 0.352)
pt3dadd(122.515, 306.247, -36.151, 0.352)
pt3dadd(122.628, 306.252, -36.185, 0.352)
pt3dadd(122.701, 306.301, -36.251, 0.416)
pt3dadd(122.76, 306.347, -36.324, 0.482)
pt3dadd(122.76, 306.347, -36.424, 0.528)
pt3dadd(122.76, 306.347, -36.524, 0.574)
pt3dadd(122.76, 306.325, -36.619, 0.61)
pt3dadd(122.76, 306.264, -36.706, 0.634)
pt3dadd(122.774, 306.209, -36.788, 0.648)
pt3dadd(122.861, 306.179, -36.853, 0.616)
pt3dadd(122.946, 306.148, -36.918, 0.582)
pt3dadd(123.03, 306.12, -36.985, 0.548)
pt3dadd(123.077, 306.12, -37.077, 0.494)
pt3dadd(123.124, 306.12, -37.169, 0.438)
pt3dadd(123.199, 306.12, -37.244, 0.392)
pt3dadd(123.284, 306.12, -37.315, 0.348)
pt3dadd(123.37, 306.12, -37.386, 0.304)
pt3dadd(123.487, 306.134, -37.393, 0.282)
pt3dadd(123.606, 306.15, -37.397, 0.264)
pt3dadd(123.72, 306.18, -37.4, 0.238)
pt3dadd(123.833, 306.215, -37.388, 0.226)
pt3dadd(123.948, 306.238, -37.369, 0.226)
pt3dadd(124.063, 306.262, -37.349, 0.226)
pt3dadd(124.178, 306.284, -37.33, 0.226)
pt3dadd(124.294, 306.307, -37.311, 0.226)
pt3dadd(124.41, 306.331, -37.299, 0.228)
pt3dadd(124.528, 306.356, -37.297, 0.232)
pt3dadd(124.645, 306.382, -37.295, 0.236)
pt3dadd(124.763, 306.407, -37.293, 0.24)
pt3dadd(124.879, 306.432, -37.292, 0.246)
pt3dadd(124.997, 306.457, -37.29, 0.25)
pt3dadd(125.107, 306.484, -37.264, 0.276)
pt3dadd(125.215, 306.51, -37.225, 0.312)
pt3dadd(125.327, 306.541, -37.208, 0.36)
pt3dadd(125.442, 306.576, -37.203, 0.416)
pt3dadd(125.554, 306.6, -37.216, 0.47)
pt3dadd(125.657, 306.6, -37.267, 0.528)
pt3dadd(125.748, 306.607, -37.322, 0.582)
pt3dadd(125.761, 306.666, -37.409, 0.62)
pt3dadd(125.782, 306.724, -37.491, 0.654)
pt3dadd(125.887, 306.773, -37.514, 0.67)
pt3dadd(125.993, 306.821, -37.538, 0.684)
pt3dadd(126.098, 306.87, -37.562, 0.7)
pt3dadd(126.202, 306.928, -37.58, 0.714)
pt3dadd(126.302, 306.989, -37.597, 0.726)
pt3dadd(126.396, 307.062, -37.604, 0.754)
pt3dadd(126.478, 307.136, -37.642, 0.754)
pt3dadd(126.572, 307.188, -37.671, 0.756)
pt3dadd(126.691, 307.194, -37.684, 0.766)
pt3dadd(126.81, 307.199, -37.697, 0.776)
pt3dadd(126.925, 307.2, -37.725, 0.794)
pt3dadd(127.038, 307.2, -37.758, 0.816)
pt3dadd(127.126, 307.2, -37.814, 0.834)
pt3dadd(127.171, 307.2, -37.907, 0.844)
pt3dadd(127.223, 307.202, -37.996, 0.852)
pt3dadd(127.307, 307.229, -38.063, 0.846)
pt3dadd(127.392, 307.254, -38.131, 0.836)
pt3dadd(127.477, 307.279, -38.198, 0.828)
pt3dadd(127.595, 307.295, -38.204, 0.81)
pt3dadd(127.714, 307.31, -38.208, 0.79)
pt3dadd(127.804, 307.32, -38.247, 0.776)
pt3dadd(127.847, 307.32, -38.341, 0.768)
pt3dadd(127.89, 307.32, -38.434, 0.758)
pt3dadd(127.927, 307.332, -38.527, 0.754)
pt3dadd(127.954, 307.37, -38.619, 0.754)
pt3dadd(127.998, 307.414, -38.691, 0.744)
pt3dadd(128.104, 307.471, -38.699, 0.708)
pt3dadd(128.21, 307.524, -38.698, 0.586)
pt3dadd(128.323, 307.554, -38.677, 0.424)
pt3dadd(128.432, 307.56, -38.636, 0.332)
pt3dadd(128.543, 307.582, -38.604, 0.31)
pt3dadd(128.634, 307.626, -38.553, 0.342)
pt3dadd(128.717, 307.67, -38.491, 0.37)
pt3dadd(128.827, 307.68, -38.463, 0.398)
pt3dadd(128.945, 307.68, -38.445, 0.426)
pt3dadd(129.03, 307.686, -38.514, 0.452)
pt3dadd(129.115, 307.693, -38.585, 0.476)
pt3dadd(129.199, 307.774, -38.594, 0.5)
pt3dadd(129.283, 307.858, -38.599, 0.524)
pt3dadd(129.38, 307.927, -38.593, 0.61)
pt3dadd(129.458, 308.008, -38.566, 0.69)
pt3dadd(129.517, 308.098, -38.522, 0.76)
pt3dadd(129.622, 308.132, -38.508, 0.808)
pt3dadd(129.74, 308.147, -38.504, 0.846)
pt3dadd(129.859, 308.16, -38.505, 0.878)
pt3dadd(129.974, 308.16, -38.532, 0.866)
pt3dadd(130.09, 308.16, -38.56, 0.856)
pt3dadd(130.205, 308.164, -38.588, 0.83)
pt3dadd(130.32, 308.17, -38.617, 0.798)
pt3dadd(130.424, 308.196, -38.653, 0.744)
pt3dadd(130.516, 308.255, -38.69, 0.67)
pt3dadd(130.618, 308.318, -38.695, 0.634)
pt3dadd(130.72, 308.382, -38.701, 0.6)
pt3dadd(130.822, 308.446, -38.706, 0.576)
pt3dadd(130.921, 308.507, -38.714, 0.552)
pt3dadd(130.98, 308.52, -38.8, 0.528)
pt3dadd(131.039, 308.533, -38.887, 0.502)
pt3dadd(131.106, 308.585, -38.957, 0.488)
pt3dadd(131.177, 308.629, -39.027, 0.466)
pt3dadd(131.256, 308.639, -39.102, 0.41)
pt3dadd(131.275, 308.64, -39.198, 0.386)
}
}
proc shape3d_34() {
dend_5[4] { pt3dadd(131.285, 308.64, -39.298, 0.368)
pt3dadd(131.299, 308.644, -39.395, 0.348)
pt3dadd(131.375, 308.689, -39.463, 0.306)
pt3dadd(131.448, 308.729, -39.535, 0.272)
pt3dadd(131.519, 308.758, -39.612, 0.258)
pt3dadd(131.599, 308.803, -39.666, 0.246)
pt3dadd(131.692, 308.874, -39.689, 0.232)
pt3dadd(131.789, 308.942, -39.7, 0.226)
pt3dadd(131.891, 309.005, -39.7, 0.226)
pt3dadd(132.002, 309.049, -39.7, 0.232)
pt3dadd(132.114, 309.094, -39.7, 0.236)
pt3dadd(132.226, 309.138, -39.7, 0.24)
pt3dadd(132.337, 309.182, -39.7, 0.246)
pt3dadd(132.449, 309.227, -39.7, 0.25)
pt3dadd(132.558, 309.27, -39.685, 0.262)
pt3dadd(132.667, 309.312, -39.664, 0.278)
pt3dadd(132.778, 309.355, -39.643, 0.294)
pt3dadd(132.887, 309.397, -39.622, 0.31)
pt3dadd(132.996, 309.439, -39.601, 0.326)
pt3dadd(133.104, 309.492, -39.6, 0.38)
pt3dadd(133.211, 309.546, -39.6, 0.438)
pt3dadd(133.315, 309.605, -39.6, 0.494)
pt3dadd(133.418, 309.666, -39.6, 0.552)
pt3dadd(133.511, 309.742, -39.6, 0.604)
pt3dadd(133.592, 309.829, -39.6, 0.65)
pt3dadd(133.667, 309.92, -39.61, 0.69)
pt3dadd(133.729, 310.019, -39.633, 0.716)
pt3dadd(133.772, 310.084, -39.693, 0.724)
pt3dadd(133.794, 310.118, -39.787, 0.718)
pt3dadd(133.817, 310.152, -39.881, 0.71)
pt3dadd(133.838, 310.186, -39.975, 0.704)
pt3dadd(133.922, 310.193, -40.046, 0.668)
pt3dadd(134.006, 310.2, -40.117, 0.63)
pt3dadd(134.12, 310.204, -40.145, 0.606)
pt3dadd(134.237, 310.208, -40.169, 0.582)
pt3dadd(134.353, 310.212, -40.193, 0.56)
pt3dadd(134.466, 310.247, -40.2, 0.568)
pt3dadd(134.576, 310.294, -40.2, 0.59)
pt3dadd(134.677, 310.352, -40.211, 0.638)
pt3dadd(134.75, 310.433, -40.243, 0.74)
pt3dadd(134.76, 310.542, -40.282, 0.862)
pt3dadd(134.76, 310.66, -40.298, 0.9)
pt3dadd(134.76, 310.78, -40.3, 0.904)
pt3dadd(134.76, 310.9, -40.3, 0.924)
pt3dadd(134.76, 311.02, -40.3, 0.97)
pt3dadd(134.76, 311.14, -40.297, 1)
pt3dadd(134.76, 311.26, -40.293, 1.028)
pt3dadd(134.76, 311.38, -40.289, 1.054)
pt3dadd(134.76, 311.48, -40.236, 1.076)
pt3dadd(134.76, 311.579, -40.179, 1.1)
pt3dadd(134.76, 311.644, -40.098, 1.104)
pt3dadd(134.754, 311.75, -40.052, 1.068)
pt3dadd(134.748, 311.856, -40.005, 1.034)
pt3dadd(134.686, 311.956, -40, 0.988)
pt3dadd(134.618, 312.054, -40, 0.942)
pt3dadd(134.531, 312.136, -40, 0.912)
pt3dadd(134.437, 312.21, -40, 0.888)
pt3dadd(134.359, 312.294, -40.022, 0.888)
pt3dadd(134.292, 312.383, -40.06, 0.902)
pt3dadd(134.198, 312.448, -40.086, 0.904)
pt3dadd(134.098, 312.506, -40.111, 0.904)
pt3dadd(133.998, 312.565, -40.135, 0.904)
pt3dadd(133.95, 312.59, -40.206, 0.886)
pt3dadd(133.934, 312.595, -40.305, 0.856)
pt3dadd(133.92, 312.602, -40.404, 0.828)
pt3dadd(133.92, 312.644, -40.497, 0.794)
pt3dadd(133.92, 312.688, -40.591, 0.762)
pt3dadd(133.92, 312.731, -40.684, 0.73)
pt3dadd(133.925, 312.847, -40.693, 0.728)
pt3dadd(133.93, 312.967, -40.697, 0.728)
pt3dadd(133.939, 313.086, -40.7, 0.744)
pt3dadd(133.956, 313.2, -40.712, 0.808)
pt3dadd(133.946, 313.313, -40.747, 0.82)
pt3dadd(133.937, 313.424, -40.782, 0.832)
pt3dadd(133.927, 313.536, -40.816, 0.844)
pt3dadd(133.92, 313.644, -40.857, 0.852)
pt3dadd(133.92, 313.732, -40.926, 0.84)
pt3dadd(133.92, 313.822, -40.991, 0.828)
pt3dadd(133.92, 313.939, -41.013, 0.808)
pt3dadd(133.92, 314.056, -41.035, 0.788)
pt3dadd(133.92, 314.141, -41.093, 0.778)
pt3dadd(133.92, 314.202, -41.179, 0.778)
pt3dadd(133.92, 314.252, -41.269, 0.79)
pt3dadd(133.92, 314.285, -41.365, 0.822)
pt3dadd(133.92, 314.317, -41.461, 0.852)
pt3dadd(133.92, 314.36, -41.555, 0.914)
pt3dadd(133.92, 314.395, -41.65, 0.966)
pt3dadd(133.92, 314.416, -41.749, 0.994)
pt3dadd(133.92, 314.436, -41.847, 1.024)
pt3dadd(133.92, 314.483, -41.938, 1.038)
pt3dadd(133.92, 314.537, -42.028, 1.05)
pt3dadd(133.916, 314.579, -42.121, 1.042)
pt3dadd(133.912, 314.614, -42.216, 1.02)
pt3dadd(133.883, 314.641, -42.302, 0.996)
pt3dadd(133.781, 314.648, -42.355, 0.96)
pt3dadd(133.681, 314.663, -42.405, 0.924)
pt3dadd(133.592, 314.734, -42.438, 0.882)
pt3dadd(133.504, 314.804, -42.471, 0.84)
pt3dadd(133.414, 314.873, -42.5, 0.798)
pt3dadd(133.302, 314.92, -42.5, 0.754)
pt3dadd(133.192, 314.966, -42.5, 0.71)
pt3dadd(133.096, 315.036, -42.5, 0.626)
pt3dadd(133.008, 315.119, -42.5, 0.614)
pt3dadd(132.92, 315.2, -42.5, 0.602)
pt3dadd(132.833, 315.282, -42.5, 0.626)
pt3dadd(132.744, 315.364, -42.5, 0.65)
pt3dadd(132.73, 315.479, -42.5, 0.676)
pt3dadd(132.725, 315.599, -42.5, 0.702)
pt3dadd(132.72, 315.718, -42.5, 0.728)
pt3dadd(132.714, 315.833, -42.528, 0.77)
pt3dadd(132.709, 315.948, -42.557, 0.814)
pt3dadd(132.656, 316.012, -42.614, 0.852)
pt3dadd(132.583, 316.022, -42.681, 0.9)
pt3dadd(132.5, 315.972, -42.738, 0.984)
pt3dadd(132.413, 315.96, -42.805, 1.03)
pt3dadd(132.332, 315.96, -42.879, 0.978)
pt3dadd(132.262, 315.966, -42.958, 0.896)
pt3dadd(132.2, 315.986, -43.043, 0.872)
pt3dadd(132.151, 316.02, -43.127, 0.85)
pt3dadd(132.122, 316.084, -43.208, 0.836)
pt3dadd(132.091, 316.168, -43.262, 0.836)
pt3dadd(132.054, 316.28, -43.278, 0.854)
pt3dadd(132.016, 316.392, -43.293, 0.872)
pt3dadd(131.986, 316.504, -43.319, 0.892)
pt3dadd(131.959, 316.614, -43.351, 0.918)
pt3dadd(131.887, 316.672, -43.382, 0.946)
pt3dadd(131.773, 316.68, -43.411, 0.98)
pt3dadd(131.68, 316.68, -43.467, 0.946)
pt3dadd(131.646, 316.68, -43.562, 0.914)
pt3dadd(131.64, 316.69, -43.661, 0.904)
pt3dadd(131.64, 316.717, -43.758, 0.926)
pt3dadd(131.614, 316.777, -43.84, 0.99)
pt3dadd(131.561, 316.846, -43.909, 1.032)
pt3dadd(131.5, 316.89, -43.984, 1.068)
pt3dadd(131.431, 316.91, -44.064, 1.094)
pt3dadd(131.347, 316.944, -44.127, 1.104)
pt3dadd(131.252, 316.988, -44.176, 1.104)
pt3dadd(131.165, 317.062, -44.193, 1.078)
pt3dadd(131.08, 317.147, -44.198, 1.042)
pt3dadd(131.024, 317.25, -44.2, 0.964)
pt3dadd(130.973, 317.353, -44.202, 0.874)
pt3dadd(130.861, 317.396, -44.215, 0.844)
pt3dadd(130.751, 317.438, -44.229, 0.814)
pt3dadd(130.64, 317.482, -44.242, 0.784)
pt3dadd(130.529, 317.525, -44.256, 0.752)
pt3dadd(130.418, 317.567, -44.27, 0.722)
pt3dadd(130.306, 317.605, -44.285, 0.686)
pt3dadd(130.193, 317.642, -44.301, 0.654)
pt3dadd(130.081, 317.68, -44.317, 0.69)
pt3dadd(129.968, 317.718, -44.332, 0.726)
pt3dadd(129.896, 317.784, -44.387, 0.796)
pt3dadd(129.828, 317.854, -44.446, 0.864)
pt3dadd(129.767, 317.923, -44.509, 0.922)
pt3dadd(129.728, 317.992, -44.582, 0.946)
pt3dadd(129.715, 318.06, -44.662, 0.928)
pt3dadd(129.664, 318.131, -44.73, 0.908)
pt3dadd(129.611, 318.203, -44.797, 0.89)
pt3dadd(129.559, 318.275, -44.865, 0.872)
pt3dadd(129.506, 318.346, -44.933, 0.854)
pt3dadd(129.408, 318.396, -44.969, 0.814)
pt3dadd(129.308, 318.443, -45.007, 0.778)
pt3dadd(129.211, 318.463, -45.064, 0.778)
pt3dadd(129.132, 318.486, -45.129, 0.782)
pt3dadd(129.126, 318.521, -45.224, 0.804)
pt3dadd(129.121, 318.556, -45.32, 0.826)
pt3dadd(129.115, 318.608, -45.409, 0.838)
pt3dadd(129.108, 318.665, -45.498, 0.85)
pt3dadd(129.06, 318.727, -45.569, 0.854)
pt3dadd(128.995, 318.791, -45.634, 0.854)
pt3dadd(128.932, 318.854, -45.7, 0.854)
pt3dadd(128.863, 318.935, -45.748, 0.842)
pt3dadd(128.797, 319.02, -45.79, 0.828)
pt3dadd(128.764, 319.133, -45.807, 0.826)
pt3dadd(128.738, 319.248, -45.826, 0.822)
pt3dadd(128.712, 319.363, -45.846, 0.818)
pt3dadd(128.686, 319.477, -45.866, 0.812)
pt3dadd(128.66, 319.592, -45.885, 0.808)
pt3dadd(128.622, 319.702, -45.9, 0.802)
pt3dadd(128.544, 319.793, -45.9, 0.798)
pt3dadd(128.466, 319.884, -45.9, 0.792)
pt3dadd(128.388, 319.975, -45.9, 0.788)
pt3dadd(128.31, 320.066, -45.9, 0.782)
pt3dadd(128.234, 320.16, -45.9, 0.78)
pt3dadd(128.162, 320.256, -45.9, 0.784)
pt3dadd(128.09, 320.352, -45.9, 0.79)
pt3dadd(128.018, 320.448, -45.9, 0.794)
pt3dadd(127.946, 320.544, -45.9, 0.8)
pt3dadd(127.867, 320.632, -45.9, 0.814)
pt3dadd(127.768, 320.7, -45.9, 0.848)
pt3dadd(127.67, 320.767, -45.896, 0.884)
pt3dadd(127.58, 320.834, -45.859, 0.926)
pt3dadd(127.506, 320.899, -45.808, 0.954)
pt3dadd(127.463, 320.957, -45.729, 0.954)
pt3dadd(127.427, 321.01, -45.645, 0.954)
pt3dadd(127.4, 321.058, -45.555, 0.954)
pt3dadd(127.337, 321.102, -45.489, 0.958)
pt3dadd(127.237, 321.145, -45.446, 0.966)
pt3dadd(127.139, 321.188, -45.403, 0.974)
pt3dadd(127.08, 321.26, -45.364, 0.992)
pt3dadd(127.08, 321.373, -45.331, 1.024)
}
}
proc shape3d_35() {
dend_5[4] { pt3dadd(127.078, 321.487, -45.3, 1.056)
pt3dadd(127.034, 321.599, -45.3, 1.064)
pt3dadd(126.991, 321.71, -45.3, 1.072)
pt3dadd(126.948, 321.823, -45.3, 1.08)
pt3dadd(126.847, 321.886, -45.3, 1.068)
pt3dadd(126.744, 321.947, -45.3, 1.058)
pt3dadd(126.678, 322.043, -45.299, 0.954)
pt3dadd(126.605, 322.128, -45.265, 0.93)
pt3dadd(126.533, 322.214, -45.23, 0.906)
pt3dadd(126.458, 322.3, -45.196, 0.882)
pt3dadd(126.386, 322.386, -45.162, 0.858)
pt3dadd(126.294, 322.432, -45.113, 0.83)
pt3dadd(126.198, 322.468, -45.061, 0.8)
pt3dadd(126.102, 322.505, -45.01, 0.772)
pt3dadd(126.006, 322.542, -44.958, 0.742)
pt3dadd(125.904, 322.585, -44.929, 0.718)
pt3dadd(125.794, 322.633, -44.92, 0.698)
pt3dadd(125.684, 322.681, -44.911, 0.678)
pt3dadd(125.575, 322.729, -44.902, 0.658)
pt3dadd(125.466, 322.777, -44.893, 0.638)
pt3dadd(125.362, 322.823, -44.867, 0.606)
pt3dadd(125.261, 322.866, -44.825, 0.566)
pt3dadd(125.16, 322.922, -44.808, 0.552)
pt3dadd(125.058, 322.986, -44.802, 0.552)
pt3dadd(124.963, 323.057, -44.79, 0.574)
pt3dadd(124.872, 323.132, -44.773, 0.614)
pt3dadd(124.823, 323.231, -44.746, 0.636)
pt3dadd(124.798, 323.341, -44.714, 0.648)
pt3dadd(124.758, 323.44, -44.669, 0.648)
pt3dadd(124.709, 323.528, -44.617, 0.64)
pt3dadd(124.66, 323.618, -44.565, 0.63)
pt3dadd(124.574, 323.682, -44.531, 0.59)
pt3dadd(124.468, 323.729, -44.508, 0.526)
pt3dadd(124.354, 323.756, -44.5, 0.468)
pt3dadd(124.238, 323.788, -44.5, 0.446)
pt3dadd(124.124, 323.827, -44.5, 0.436)
pt3dadd(124.01, 323.866, -44.5, 0.428)
pt3dadd(123.898, 323.904, -44.5, 0.418)
pt3dadd(123.784, 323.942, -44.5, 0.41)
pt3dadd(123.674, 323.989, -44.5, 0.402)
pt3dadd(123.589, 324.073, -44.5, 0.368)
pt3dadd(123.502, 324.154, -44.5, 0.35)
pt3dadd(123.42, 324.24, -44.5, 0.338)
pt3dadd(123.326, 324.316, -44.5, 0.352)
pt3dadd(123.217, 324.356, -44.519, 0.41)
pt3dadd(123.134, 324.398, -44.577, 0.452)
pt3dadd(123.12, 324.446, -44.665, 0.502)
pt3dadd(123.12, 324.44, -44.764, 0.6)
pt3dadd(123.086, 324.385, -44.845, 0.628)
pt3dadd(122.992, 324.344, -44.89, 0.606)
pt3dadd(122.881, 324.3, -44.9, 0.64)
pt3dadd(122.77, 324.259, -44.9, 0.672)
pt3dadd(122.653, 324.227, -44.9, 0.678)
pt3dadd(122.54, 324.188, -44.903, 0.646)
pt3dadd(122.437, 324.149, -44.935, 0.622)
pt3dadd(122.332, 324.13, -44.979, 0.608)
pt3dadd(122.249, 324.12, -45.044, 0.602)
pt3dadd(122.188, 324.12, -45.131, 0.602)
pt3dadd(122.12, 324.137, -45.209, 0.596)
pt3dadd(122.041, 324.187, -45.27, 0.574)
pt3dadd(121.962, 324.239, -45.332, 0.552)
pt3dadd(121.892, 324.3, -45.396, 0.51)
pt3dadd(121.83, 324.356, -45.465, 0.45)
pt3dadd(121.768, 324.406, -45.538, 0.41)
pt3dadd(121.692, 324.458, -45.601, 0.424)
pt3dadd(121.6, 324.51, -45.647, 0.462)
pt3dadd(121.504, 324.562, -45.689, 0.504)
pt3dadd(121.391, 324.602, -45.694, 0.536)
pt3dadd(121.278, 324.643, -45.699, 0.57)
pt3dadd(121.194, 324.722, -45.687, 0.578)
pt3dadd(121.118, 324.814, -45.669, 0.578)
pt3dadd(121.064, 324.88, -45.603, 0.57)
pt3dadd(121.015, 324.942, -45.528, 0.562)
pt3dadd(120.966, 325.006, -45.454, 0.554)
pt3dadd(120.96, 325.116, -45.429, 0.544)
pt3dadd(120.96, 325.235, -45.412, 0.534)
pt3dadd(120.95, 325.352, -45.4, 0.532)
pt3dadd(120.918, 325.468, -45.4, 0.548)
pt3dadd(120.836, 325.542, -45.4, 0.552)
pt3dadd(120.719, 325.56, -45.4, 0.578)
pt3dadd(120.599, 325.56, -45.4, 0.552)
pt3dadd(120.479, 325.56, -45.4, 0.552)
pt3dadd(120.359, 325.56, -45.4, 0.528)
pt3dadd(120.239, 325.56, -45.4, 0.552)
pt3dadd(120.126, 325.598, -45.416, 0.576)
pt3dadd(120.013, 325.636, -45.431, 0.6)
pt3dadd(119.953, 325.657, -45.511, 0.624)
pt3dadd(119.901, 325.678, -45.599, 0.65)
pt3dadd(119.88, 325.68, -45.697, 0.678)
pt3dadd(119.86, 325.68, -45.795, 0.668)
pt3dadd(119.84, 325.68, -45.894, 0.66)
pt3dadd(119.79, 325.696, -45.971, 0.652)
pt3dadd(119.689, 325.739, -46.013, 0.652)
pt3dadd(119.587, 325.781, -46.051, 0.66)
pt3dadd(119.482, 325.823, -46.086, 0.672)
pt3dadd(119.378, 325.865, -46.121, 0.702)
pt3dadd(119.274, 325.907, -46.155, 0.74)
pt3dadd(119.162, 325.92, -46.185, 0.764)
pt3dadd(119.048, 325.922, -46.214, 0.778)
pt3dadd(118.959, 325.97, -46.267, 0.766)
pt3dadd(118.869, 326.018, -46.321, 0.754)
pt3dadd(118.78, 326.066, -46.374, 0.742)
pt3dadd(118.69, 326.114, -46.427, 0.73)
pt3dadd(118.608, 326.186, -46.469, 0.712)
pt3dadd(118.527, 326.261, -46.51, 0.694)
pt3dadd(118.446, 326.335, -46.55, 0.676)
pt3dadd(118.366, 326.408, -46.59, 0.658)
pt3dadd(118.275, 326.483, -46.6, 0.604)
pt3dadd(118.171, 326.543, -46.6, 0.638)
pt3dadd(118.089, 326.629, -46.6, 0.674)
pt3dadd(118.009, 326.716, -46.6, 0.714)
pt3dadd(117.898, 326.76, -46.6, 0.792)
pt3dadd(117.787, 326.806, -46.6, 0.87)
pt3dadd(117.729, 326.9, -46.621, 0.904)
pt3dadd(117.731, 326.98, -46.691, 0.904)
pt3dadd(117.777, 327.024, -46.774, 0.904)
pt3dadd(117.827, 327.084, -46.848, 0.904)
pt3dadd(117.834, 327.162, -46.924, 0.904)
pt3dadd(117.84, 327.24, -47, 0.904)
}
dend_5[5] {pt3dclear()
pt3dadd(96.133, 273.187, -21.233, 1.456)
pt3dadd(96.104, 273.216, -21.177, 1.444)
pt3dadd(96.06, 273.26, -21.092, 1.424)
pt3dadd(96.019, 273.305, -21.007, 1.4)
pt3dadd(96.062, 273.35, -20.926, 1.266)
pt3dadd(96.162, 273.401, -20.9, 1.112)
pt3dadd(96.227, 273.496, -20.9, 0.978)
pt3dadd(96.24, 273.614, -20.9, 0.922)
pt3dadd(96.24, 273.734, -20.9, 0.876)
pt3dadd(96.24, 273.854, -20.902, 0.848)
pt3dadd(96.24, 273.973, -20.917, 0.796)
pt3dadd(96.232, 274.082, -20.955, 0.746)
pt3dadd(96.189, 274.171, -21.009, 0.71)
pt3dadd(96.134, 274.252, -21.066, 0.802)
pt3dadd(96.082, 274.327, -21.131, 0.828)
pt3dadd(96.03, 274.402, -21.196, 0.852)
pt3dadd(95.978, 274.476, -21.261, 0.876)
pt3dadd(95.926, 274.552, -21.326, 0.902)
pt3dadd(95.859, 274.614, -21.39, 0.904)
pt3dadd(95.787, 274.668, -21.455, 0.9)
pt3dadd(95.703, 274.674, -21.525, 0.876)
pt3dadd(95.615, 274.682, -21.589, 0.85)
pt3dadd(95.497, 274.703, -21.594, 0.81)
pt3dadd(95.379, 274.724, -21.598, 0.77)
pt3dadd(95.291, 274.792, -21.61, 0.746)
pt3dadd(95.223, 274.888, -21.628, 0.732)
pt3dadd(95.147, 274.966, -21.665, 0.728)
pt3dadd(95.058, 275.032, -21.701, 0.742)
pt3dadd(94.959, 275.095, -21.724, 0.768)
pt3dadd(94.871, 275.165, -21.756, 0.778)
pt3dadd(94.788, 275.24, -21.793, 0.778)
pt3dadd(94.732, 275.335, -21.829, 0.79)
pt3dadd(94.682, 275.436, -21.865, 0.804)
pt3dadd(94.639, 275.536, -21.907, 0.804)
pt3dadd(94.597, 275.628, -21.953, 0.806)
pt3dadd(94.571, 275.646, -22.05, 0.822)
pt3dadd(94.528, 275.699, -22.127, 0.828)
pt3dadd(94.475, 275.774, -22.19, 0.828)
pt3dadd(94.377, 275.831, -22.214, 0.828)
pt3dadd(94.272, 275.884, -22.23, 0.828)
pt3dadd(94.23, 275.974, -22.277, 0.84)
pt3dadd(94.202, 276.072, -22.329, 0.852)
pt3dadd(94.182, 276.181, -22.368, 0.864)
pt3dadd(94.163, 276.29, -22.405, 0.878)
pt3dadd(94.114, 276.392, -22.435, 0.878)
pt3dadd(94.059, 276.494, -22.463, 0.878)
pt3dadd(94.003, 276.595, -22.491, 0.878)
pt3dadd(93.915, 276.668, -22.5, 0.864)
pt3dadd(93.811, 276.73, -22.5, 0.84)
pt3dadd(93.706, 276.787, -22.5, 0.762)
pt3dadd(93.593, 276.826, -22.5, 0.704)
pt3dadd(93.477, 276.858, -22.5, 0.674)
pt3dadd(93.37, 276.905, -22.502, 0.64)
pt3dadd(93.279, 276.984, -22.507, 0.604)
pt3dadd(93.199, 277.055, -22.533, 0.578)
pt3dadd(93.148, 277.105, -22.613, 0.578)
pt3dadd(93.118, 277.187, -22.664, 0.582)
pt3dadd(93.112, 277.306, -22.682, 0.592)
pt3dadd(93.107, 277.423, -22.699, 0.602)
pt3dadd(93.079, 277.54, -22.7, 0.626)
pt3dadd(93.05, 277.656, -22.7, 0.65)
pt3dadd(93.02, 277.772, -22.7, 0.676)
pt3dadd(92.991, 277.889, -22.7, 0.7)
pt3dadd(92.899, 277.958, -22.7, 0.752)
pt3dadd(92.796, 278.018, -22.7, 0.808)
pt3dadd(92.682, 278.04, -22.7, 0.928)
pt3dadd(92.562, 278.042, -22.7, 1.02)
pt3dadd(92.442, 278.047, -22.7, 1.08)
pt3dadd(92.322, 278.052, -22.7, 1.14)
pt3dadd(92.247, 278.132, -22.7, 1.216)
pt3dadd(92.186, 278.236, -22.7, 1.296)
pt3dadd(92.16, 278.348, -22.702, 1.356)
pt3dadd(92.16, 278.468, -22.706, 1.398)
pt3dadd(92.16, 278.588, -22.71, 1.442)
pt3dadd(92.16, 278.701, -22.737, 1.464)
pt3dadd(92.16, 278.813, -22.776, 1.474)
pt3dadd(92.15, 278.91, -22.829, 1.472)
pt3dadd(92.125, 278.986, -22.903, 1.448)
pt3dadd(92.099, 279.062, -22.977, 1.424)
pt3dadd(92.075, 279.134, -23.054, 1.388)
pt3dadd(92.055, 279.196, -23.138, 1.312)
}
}
proc shape3d_36() {
dend_5[5] { pt3dadd(92.027, 279.266, -23.211, 1.234)
pt3dadd(91.978, 279.365, -23.252, 1.152)
pt3dadd(91.929, 279.462, -23.293, 1.07)
pt3dadd(91.847, 279.535, -23.33, 0.962)
pt3dadd(91.758, 279.602, -23.368, 0.848)
pt3dadd(91.68, 279.666, -23.422, 0.722)
pt3dadd(91.593, 279.724, -23.47, 0.71)
pt3dadd(91.506, 279.782, -23.519, 0.698)
pt3dadd(91.419, 279.84, -23.567, 0.686)
pt3dadd(91.339, 279.912, -23.607, 0.68)
pt3dadd(91.277, 280.01, -23.63, 0.686)
pt3dadd(91.214, 280.109, -23.652, 0.692)
pt3dadd(91.151, 280.208, -23.675, 0.696)
pt3dadd(91.088, 280.307, -23.697, 0.702)
pt3dadd(91.044, 280.415, -23.718, 0.708)
pt3dadd(91.001, 280.524, -23.739, 0.714)
pt3dadd(90.959, 280.633, -23.76, 0.718)
pt3dadd(90.917, 280.744, -23.781, 0.724)
pt3dadd(90.879, 280.852, -23.806, 0.728)
pt3dadd(90.87, 280.954, -23.859, 0.734)
pt3dadd(90.862, 281.054, -23.912, 0.74)
pt3dadd(90.854, 281.156, -23.964, 0.744)
pt3dadd(90.846, 281.258, -24.017, 0.75)
pt3dadd(90.831, 281.362, -24.063, 0.752)
pt3dadd(90.797, 281.472, -24.091, 0.746)
pt3dadd(90.764, 281.582, -24.12, 0.742)
pt3dadd(90.73, 281.693, -24.148, 0.736)
pt3dadd(90.696, 281.802, -24.176, 0.73)
pt3dadd(90.637, 281.9, -24.195, 0.714)
pt3dadd(90.556, 281.988, -24.206, 0.69)
pt3dadd(90.482, 282.073, -24.236, 0.654)
pt3dadd(90.413, 282.156, -24.28, 0.612)
pt3dadd(90.383, 282.266, -24.292, 0.578)
pt3dadd(90.362, 282.385, -24.297, 0.548)
pt3dadd(90.335, 282.502, -24.3, 0.524)
pt3dadd(90.295, 282.614, -24.3, 0.514)
pt3dadd(90.255, 282.728, -24.3, 0.502)
pt3dadd(90.247, 282.847, -24.3, 0.502)
pt3dadd(90.24, 282.967, -24.301, 0.502)
pt3dadd(90.24, 283.086, -24.313, 0.512)
pt3dadd(90.24, 283.205, -24.326, 0.522)
pt3dadd(90.224, 283.318, -24.349, 0.528)
pt3dadd(90.181, 283.417, -24.391, 0.528)
pt3dadd(90.145, 283.502, -24.45, 0.534)
pt3dadd(90.117, 283.573, -24.527, 0.548)
pt3dadd(90.073, 283.643, -24.6, 0.57)
pt3dadd(90.02, 283.711, -24.669, 0.6)
pt3dadd(89.941, 283.771, -24.724, 0.61)
pt3dadd(89.859, 283.831, -24.778, 0.618)
pt3dadd(89.777, 283.891, -24.831, 0.628)
pt3dadd(89.702, 283.972, -24.869, 0.628)
pt3dadd(89.623, 284.053, -24.9, 0.622)
pt3dadd(89.554, 284.14, -24.92, 0.606)
pt3dadd(89.515, 284.24, -24.963, 0.612)
pt3dadd(89.475, 284.341, -25.006, 0.616)
pt3dadd(89.436, 284.442, -25.05, 0.622)
pt3dadd(89.396, 284.544, -25.089, 0.628)
pt3dadd(89.354, 284.656, -25.091, 0.638)
pt3dadd(89.311, 284.768, -25.093, 0.648)
pt3dadd(89.269, 284.88, -25.095, 0.656)
pt3dadd(89.226, 284.993, -25.097, 0.666)
pt3dadd(89.184, 285.104, -25.099, 0.676)
pt3dadd(89.166, 285.222, -25.1, 0.704)
pt3dadd(89.157, 285.342, -25.1, 0.74)
pt3dadd(89.147, 285.462, -25.1, 0.776)
pt3dadd(89.096, 285.54, -25.161, 0.846)
pt3dadd(89.052, 285.601, -25.231, 0.914)
pt3dadd(89.047, 285.606, -25.331, 0.958)
pt3dadd(89.043, 285.611, -25.431, 1.004)
pt3dadd(89.011, 285.636, -25.518, 1.048)
pt3dadd(88.943, 285.689, -25.587, 1.09)
pt3dadd(88.864, 285.733, -25.653, 1.11)
pt3dadd(88.78, 285.773, -25.715, 1.118)
pt3dadd(88.696, 285.814, -25.778, 1.128)
pt3dadd(88.593, 285.83, -25.823, 1.122)
pt3dadd(88.481, 285.836, -25.857, 1.112)
pt3dadd(88.38, 285.848, -25.906, 1.074)
pt3dadd(88.315, 285.904, -25.974, 1.04)
pt3dadd(88.256, 285.968, -26.042, 1.022)
pt3dadd(88.197, 286.033, -26.11, 1.004)
pt3dadd(88.138, 286.099, -26.178, 0.986)
pt3dadd(88.106, 286.162, -26.258, 0.954)
pt3dadd(88.086, 286.222, -26.342, 0.916)
pt3dadd(88.032, 286.278, -26.416, 0.884)
pt3dadd(87.963, 286.331, -26.485, 0.856)
pt3dadd(87.907, 286.434, -26.494, 0.842)
pt3dadd(87.851, 286.54, -26.499, 0.832)
pt3dadd(87.825, 286.651, -26.525, 0.848)
pt3dadd(87.806, 286.764, -26.556, 0.872)
pt3dadd(87.755, 286.83, -26.617, 0.896)
pt3dadd(87.688, 286.874, -26.691, 0.92)
pt3dadd(87.621, 286.919, -26.765, 0.946)
pt3dadd(87.545, 286.993, -26.796, 0.972)
pt3dadd(87.464, 287.081, -26.808, 0.996)
pt3dadd(87.389, 287.154, -26.85, 0.952)
pt3dadd(87.299, 287.212, -26.895, 0.928)
pt3dadd(87.209, 287.269, -26.941, 0.902)
pt3dadd(87.119, 287.327, -26.986, 0.878)
pt3dadd(87.029, 287.386, -27.032, 0.854)
pt3dadd(86.922, 287.419, -27.066, 0.816)
pt3dadd(86.814, 287.453, -27.1, 0.778)
pt3dadd(86.787, 287.562, -27.132, 0.754)
pt3dadd(86.762, 287.672, -27.165, 0.73)
pt3dadd(86.76, 287.791, -27.178, 0.71)
pt3dadd(86.76, 287.911, -27.191, 0.692)
pt3dadd(86.752, 288.029, -27.2, 0.672)
pt3dadd(86.719, 288.144, -27.2, 0.652)
pt3dadd(86.685, 288.259, -27.2, 0.632)
pt3dadd(86.645, 288.372, -27.202, 0.628)
pt3dadd(86.603, 288.485, -27.205, 0.628)
pt3dadd(86.561, 288.598, -27.208, 0.628)
pt3dadd(86.518, 288.708, -27.212, 0.628)
pt3dadd(86.414, 288.734, -27.258, 0.64)
pt3dadd(86.316, 288.767, -27.305, 0.656)
pt3dadd(86.265, 288.859, -27.351, 0.692)
pt3dadd(86.206, 288.954, -27.388, 0.718)
pt3dadd(86.129, 289.04, -27.4, 0.752)
pt3dadd(86.041, 289.122, -27.4, 0.788)
pt3dadd(85.953, 289.204, -27.4, 0.828)
pt3dadd(85.865, 289.285, -27.4, 0.876)
pt3dadd(85.811, 289.382, -27.405, 0.908)
pt3dadd(85.806, 289.501, -27.418, 0.918)
pt3dadd(85.801, 289.62, -27.431, 0.928)
pt3dadd(85.775, 289.715, -27.484, 0.93)
pt3dadd(85.745, 289.806, -27.545, 0.93)
pt3dadd(85.715, 289.896, -27.606, 0.93)
pt3dadd(85.629, 289.934, -27.654, 0.912)
pt3dadd(85.523, 289.954, -27.698, 0.886)
pt3dadd(85.431, 290.009, -27.738, 0.852)
pt3dadd(85.348, 290.084, -27.775, 0.838)
pt3dadd(85.264, 290.161, -27.8, 0.832)
pt3dadd(85.176, 290.243, -27.8, 0.844)
pt3dadd(85.082, 290.315, -27.801, 0.858)
pt3dadd(84.97, 290.357, -27.806, 0.88)
pt3dadd(84.858, 290.399, -27.811, 0.904)
pt3dadd(84.744, 290.4, -27.843, 0.914)
pt3dadd(84.631, 290.4, -27.876, 0.926)
pt3dadd(84.514, 290.4, -27.896, 0.93)
pt3dadd(84.395, 290.4, -27.909, 0.93)
pt3dadd(84.296, 290.447, -27.943, 0.914)
pt3dadd(84.202, 290.503, -27.983, 0.896)
pt3dadd(84.107, 290.56, -28.022, 0.878)
pt3dadd(84.013, 290.616, -28.062, 0.862)
pt3dadd(83.946, 290.656, -28.13, 0.832)
pt3dadd(83.899, 290.682, -28.22, 0.794)
pt3dadd(83.852, 290.756, -28.269, 0.74)
pt3dadd(83.805, 290.864, -28.291, 0.678)
pt3dadd(83.724, 290.944, -28.3, 0.632)
pt3dadd(83.62, 291.004, -28.3, 0.598)
pt3dadd(83.512, 291.053, -28.3, 0.57)
pt3dadd(83.397, 291.086, -28.3, 0.548)
pt3dadd(83.281, 291.12, -28.3, 0.528)
pt3dadd(83.172, 291.143, -28.335, 0.528)
pt3dadd(83.062, 291.167, -28.371, 0.528)
pt3dadd(82.953, 291.191, -28.407, 0.528)
pt3dadd(82.876, 291.24, -28.462, 0.528)
pt3dadd(82.823, 291.308, -28.532, 0.528)
pt3dadd(82.806, 291.367, -28.616, 0.534)
pt3dadd(82.796, 291.425, -28.704, 0.544)
pt3dadd(82.785, 291.482, -28.789, 0.554)
pt3dadd(82.737, 291.593, -28.794, 0.588)
pt3dadd(82.688, 291.702, -28.799, 0.622)
pt3dadd(82.627, 291.8, -28.822, 0.652)
pt3dadd(82.563, 291.896, -28.849, 0.684)
pt3dadd(82.485, 291.979, -28.875, 0.708)
pt3dadd(82.382, 292.033, -28.897, 0.72)
pt3dadd(82.278, 292.084, -28.925, 0.712)
pt3dadd(82.189, 292.157, -28.927, 0.698)
pt3dadd(82.105, 292.242, -28.918, 0.692)
pt3dadd(82.02, 292.327, -28.909, 0.684)
pt3dadd(81.936, 292.411, -28.9, 0.678)
pt3dadd(81.835, 292.471, -28.922, 0.684)
pt3dadd(81.735, 292.53, -28.944, 0.69)
pt3dadd(81.634, 292.59, -28.966, 0.694)
pt3dadd(81.533, 292.649, -28.988, 0.7)
pt3dadd(81.425, 292.682, -28.986, 0.708)
pt3dadd(81.31, 292.688, -28.958, 0.72)
pt3dadd(81.205, 292.71, -28.933, 0.732)
pt3dadd(81.152, 292.817, -28.933, 0.762)
pt3dadd(81.12, 292.927, -28.947, 0.782)
pt3dadd(81.12, 293.04, -28.98, 0.794)
pt3dadd(81.12, 293.152, -29.015, 0.802)
pt3dadd(81.113, 293.237, -29.086, 0.79)
pt3dadd(81.105, 293.321, -29.156, 0.778)
pt3dadd(81.008, 293.375, -29.192, 0.716)
pt3dadd(80.902, 293.424, -29.217, 0.664)
pt3dadd(80.795, 293.471, -29.24, 0.614)
pt3dadd(80.768, 293.531, -29.312, 0.594)
pt3dadd(80.762, 293.594, -29.396, 0.582)
pt3dadd(80.756, 293.692, -29.446, 0.586)
pt3dadd(80.75, 293.804, -29.481, 0.596)
pt3dadd(80.72, 293.912, -29.5, 0.618)
pt3dadd(80.659, 294.016, -29.5, 0.652)
pt3dadd(80.599, 294.107, -29.519, 0.684)
pt3dadd(80.54, 294.161, -29.594, 0.71)
pt3dadd(80.482, 294.215, -29.669, 0.736)
pt3dadd(80.413, 294.268, -29.734, 0.758)
pt3dadd(80.317, 294.319, -29.777, 0.772)
pt3dadd(80.211, 294.354, -29.8, 0.778)
pt3dadd(80.094, 294.36, -29.816, 0.778)
}
}
proc shape3d_37() {
dend_5[5] { pt3dadd(79.978, 294.36, -29.843, 0.778)
pt3dadd(79.863, 294.364, -29.869, 0.784)
pt3dadd(79.746, 294.386, -29.883, 0.828)
pt3dadd(79.63, 294.409, -29.898, 0.872)
pt3dadd(79.579, 294.51, -29.9, 0.934)
pt3dadd(79.54, 294.623, -29.9, 0.998)
pt3dadd(79.474, 294.718, -29.9, 1.052)
pt3dadd(79.38, 294.792, -29.9, 1.1)
pt3dadd(79.288, 294.854, -29.921, 1.124)
pt3dadd(79.2, 294.894, -29.98, 1.108)
pt3dadd(79.112, 294.934, -30.039, 1.09)
pt3dadd(79.019, 294.962, -30.096, 1.06)
pt3dadd(78.917, 294.968, -30.149, 1)
pt3dadd(78.827, 294.984, -30.209, 0.942)
pt3dadd(78.773, 295.027, -30.29, 0.89)
pt3dadd(78.718, 295.07, -30.372, 0.84)
pt3dadd(78.665, 295.14, -30.439, 0.806)
pt3dadd(78.612, 295.217, -30.5, 0.778)
pt3dadd(78.583, 295.333, -30.496, 0.762)
pt3dadd(78.554, 295.45, -30.493, 0.746)
pt3dadd(78.525, 295.566, -30.489, 0.73)
pt3dadd(78.441, 295.63, -30.453, 0.716)
pt3dadd(78.345, 295.68, -30.412, 0.702)
pt3dadd(78.234, 295.68, -30.45, 0.694)
pt3dadd(78.124, 295.68, -30.489, 0.686)
pt3dadd(78.016, 295.686, -30.53, 0.678)
pt3dadd(77.934, 295.73, -30.592, 0.678)
pt3dadd(77.856, 295.792, -30.642, 0.678)
pt3dadd(77.786, 295.884, -30.67, 0.678)
pt3dadd(77.716, 295.975, -30.697, 0.678)
pt3dadd(77.621, 296.046, -30.7, 0.668)
pt3dadd(77.522, 296.114, -30.7, 0.656)
pt3dadd(77.426, 296.186, -30.7, 0.602)
pt3dadd(77.332, 296.256, -30.723, 0.592)
pt3dadd(77.239, 296.326, -30.745, 0.58)
pt3dadd(77.145, 296.396, -30.768, 0.568)
pt3dadd(77.051, 296.466, -30.791, 0.556)
pt3dadd(76.959, 296.542, -30.799, 0.556)
pt3dadd(76.869, 296.62, -30.796, 0.56)
pt3dadd(76.779, 296.699, -30.794, 0.566)
pt3dadd(76.689, 296.778, -30.792, 0.572)
pt3dadd(76.599, 296.857, -30.79, 0.576)
pt3dadd(76.53, 296.953, -30.798, 0.594)
pt3dadd(76.469, 297.055, -30.811, 0.614)
pt3dadd(76.408, 297.158, -30.823, 0.636)
pt3dadd(76.346, 297.257, -30.841, 0.658)
pt3dadd(76.279, 297.344, -30.882, 0.682)
pt3dadd(76.211, 297.431, -30.922, 0.706)
pt3dadd(76.144, 297.517, -30.962, 0.73)
pt3dadd(76.079, 297.606, -31.002, 0.754)
pt3dadd(76.054, 297.718, -31.031, 0.764)
pt3dadd(76.03, 297.829, -31.061, 0.774)
pt3dadd(76.005, 297.942, -31.09, 0.784)
pt3dadd(75.981, 298.054, -31.12, 0.796)
pt3dadd(75.96, 298.154, -31.16, 0.806)
pt3dadd(75.96, 298.201, -31.252, 0.816)
pt3dadd(75.96, 298.247, -31.344, 0.828)
pt3dadd(75.945, 298.355, -31.373, 0.82)
pt3dadd(75.928, 298.471, -31.392, 0.808)
pt3dadd(75.885, 298.58, -31.4, 0.784)
pt3dadd(75.824, 298.684, -31.4, 0.75)
pt3dadd(75.742, 298.757, -31.4, 0.716)
pt3dadd(75.625, 298.783, -31.4, 0.686)
pt3dadd(75.508, 298.81, -31.4, 0.656)
pt3dadd(75.399, 298.86, -31.4, 0.638)
pt3dadd(75.288, 298.903, -31.4, 0.632)
pt3dadd(75.171, 298.928, -31.4, 0.646)
pt3dadd(75.053, 298.952, -31.4, 0.658)
pt3dadd(74.936, 298.978, -31.4, 0.67)
pt3dadd(74.819, 299.003, -31.4, 0.684)
pt3dadd(74.701, 299.027, -31.4, 0.696)
pt3dadd(74.583, 299.047, -31.4, 0.72)
pt3dadd(74.464, 299.062, -31.4, 0.758)
pt3dadd(74.345, 299.076, -31.4, 0.796)
pt3dadd(74.254, 299.122, -31.445, 0.838)
pt3dadd(74.172, 299.174, -31.502, 0.88)
pt3dadd(74.12, 299.226, -31.582, 0.894)
pt3dadd(74.075, 299.272, -31.665, 0.904)
pt3dadd(74.051, 299.296, -31.761, 0.904)
pt3dadd(74.026, 299.32, -31.856, 0.904)
pt3dadd(73.919, 299.357, -31.89, 0.912)
pt3dadd(73.812, 299.394, -31.924, 0.92)
pt3dadd(73.706, 299.431, -31.958, 0.928)
pt3dadd(73.622, 299.508, -31.98, 0.948)
pt3dadd(73.546, 299.598, -31.997, 0.974)
pt3dadd(73.471, 299.686, -32.019, 1.026)
pt3dadd(73.429, 299.786, -32.061, 1.014)
pt3dadd(73.372, 299.881, -32.091, 0.992)
pt3dadd(73.287, 299.966, -32.096, 0.956)
pt3dadd(73.194, 300.037, -32.1, 0.92)
pt3dadd(73.081, 300.078, -32.1, 0.888)
pt3dadd(72.968, 300.118, -32.1, 0.856)
pt3dadd(72.864, 300.12, -32.147, 0.854)
pt3dadd(72.76, 300.12, -32.198, 0.854)
pt3dadd(72.711, 300.122, -32.283, 0.854)
pt3dadd(72.681, 300.126, -32.379, 0.854)
pt3dadd(72.651, 300.128, -32.476, 0.854)
pt3dadd(72.621, 300.132, -32.573, 0.854)
pt3dadd(72.604, 300.181, -32.66, 0.854)
pt3dadd(72.591, 300.247, -32.742, 0.854)
pt3dadd(72.541, 300.335, -32.785, 0.826)
pt3dadd(72.464, 300.421, -32.8, 0.788)
pt3dadd(72.36, 300.48, -32.8, 0.728)
pt3dadd(72.253, 300.534, -32.8, 0.694)
pt3dadd(72.145, 300.588, -32.8, 0.696)
pt3dadd(72.042, 300.644, -32.814, 0.754)
pt3dadd(71.936, 300.689, -32.844, 0.766)
pt3dadd(71.83, 300.732, -32.873, 0.776)
pt3dadd(71.724, 300.776, -32.902, 0.788)
pt3dadd(71.618, 300.821, -32.932, 0.798)
pt3dadd(71.519, 300.874, -32.965, 0.808)
pt3dadd(71.425, 300.934, -33.002, 0.812)
pt3dadd(71.331, 300.994, -33.039, 0.818)
pt3dadd(71.236, 301.054, -33.075, 0.824)
pt3dadd(71.149, 301.126, -33.1, 0.828)
pt3dadd(71.077, 301.222, -33.1, 0.828)
pt3dadd(71.005, 301.318, -33.1, 0.828)
pt3dadd(70.933, 301.412, -33.1, 0.828)
pt3dadd(70.861, 301.508, -33.1, 0.828)
pt3dadd(70.794, 301.603, -33.114, 0.826)
pt3dadd(70.737, 301.696, -33.157, 0.82)
pt3dadd(70.68, 301.788, -33.199, 0.814)
pt3dadd(70.622, 301.88, -33.242, 0.808)
pt3dadd(70.572, 301.974, -33.286, 0.798)
pt3dadd(70.566, 302.07, -33.345, 0.762)
pt3dadd(70.56, 302.166, -33.405, 0.724)
pt3dadd(70.553, 302.244, -33.481, 0.662)
pt3dadd(70.545, 302.321, -33.557, 0.602)
pt3dadd(70.469, 302.374, -33.62, 0.544)
pt3dadd(70.388, 302.431, -33.671, 0.498)
pt3dadd(70.291, 302.5, -33.688, 0.486)
pt3dadd(70.202, 302.561, -33.722, 0.48)
pt3dadd(70.125, 302.606, -33.789, 0.488)
pt3dadd(70.049, 302.651, -33.857, 0.496)
pt3dadd(69.993, 302.718, -33.916, 0.506)
pt3dadd(69.973, 302.824, -33.96, 0.52)
pt3dadd(69.96, 302.934, -33.99, 0.524)
pt3dadd(69.96, 303.054, -33.993, 0.518)
pt3dadd(69.96, 303.174, -33.996, 0.512)
pt3dadd(69.96, 303.294, -33.998, 0.506)
pt3dadd(69.942, 303.41, -34, 0.498)
pt3dadd(69.902, 303.524, -34, 0.486)
pt3dadd(69.859, 303.631, -34.006, 0.476)
pt3dadd(69.78, 303.676, -34.072, 0.454)
pt3dadd(69.702, 303.721, -34.138, 0.432)
pt3dadd(69.629, 303.8, -34.173, 0.418)
pt3dadd(69.558, 303.893, -34.196, 0.404)
pt3dadd(69.456, 303.95, -34.201, 0.406)
pt3dadd(69.343, 303.992, -34.205, 0.438)
pt3dadd(69.231, 304.034, -34.21, 0.472)
pt3dadd(69.175, 304.057, -34.289, 0.508)
pt3dadd(69.13, 304.075, -34.38, 0.544)
pt3dadd(69.1, 304.11, -34.472, 0.572)
pt3dadd(69.074, 304.15, -34.564, 0.596)
pt3dadd(68.993, 304.206, -34.593, 0.602)
pt3dadd(68.892, 304.27, -34.598, 0.602)
pt3dadd(68.813, 304.357, -34.6, 0.624)
pt3dadd(68.745, 304.453, -34.607, 0.66)
pt3dadd(68.663, 304.528, -34.644, 0.702)
pt3dadd(68.575, 304.601, -34.674, 0.748)
pt3dadd(68.479, 304.669, -34.691, 0.8)
pt3dadd(68.378, 304.73, -34.708, 0.84)
pt3dadd(68.272, 304.783, -34.724, 0.864)
pt3dadd(68.198, 304.835, -34.771, 0.89)
pt3dadd(68.163, 304.883, -34.858, 0.916)
pt3dadd(68.097, 304.91, -34.93, 0.936)
pt3dadd(67.999, 304.919, -34.988, 0.952)
pt3dadd(67.902, 304.926, -35.047, 0.966)
pt3dadd(67.804, 304.937, -35.1, 0.982)
pt3dadd(67.693, 304.984, -35.1, 1.004)
pt3dadd(67.583, 305.03, -35.1, 1.026)
pt3dadd(67.526, 305.129, -35.1, 1.03)
pt3dadd(67.483, 305.242, -35.1, 1.03)
pt3dadd(67.44, 305.353, -35.1, 1.03)
pt3dadd(67.379, 305.456, -35.1, 1.014)
pt3dadd(67.311, 305.555, -35.1, 0.99)
pt3dadd(67.216, 305.606, -35.1, 0.972)
pt3dadd(67.096, 305.617, -35.1, 0.958)
pt3dadd(66.977, 305.628, -35.1, 0.944)
pt3dadd(66.857, 305.639, -35.1, 0.932)
pt3dadd(66.749, 305.645, -35.14, 0.92)
pt3dadd(66.643, 305.652, -35.187, 0.908)
pt3dadd(66.606, 305.71, -35.253, 0.904)
pt3dadd(66.6, 305.8, -35.317, 0.892)
pt3dadd(66.6, 305.908, -35.361, 0.836)
pt3dadd(66.581, 306.019, -35.392, 0.742)
pt3dadd(66.535, 306.13, -35.4, 0.672)
pt3dadd(66.482, 306.236, -35.4, 0.606)
pt3dadd(66.414, 306.336, -35.4, 0.568)
pt3dadd(66.347, 306.434, -35.4, 0.534)
pt3dadd(66.3, 306.545, -35.396, 0.51)
pt3dadd(66.258, 306.656, -35.391, 0.488)
pt3dadd(66.24, 306.756, -35.351, 0.47)
pt3dadd(66.24, 306.844, -35.283, 0.458)
pt3dadd(66.212, 306.934, -35.231, 0.452)
pt3dadd(66.147, 307.028, -35.201, 0.452)
pt3dadd(66.062, 307.092, -35.162, 0.452)
pt3dadd(65.976, 307.152, -35.12, 0.452)
pt3dadd(65.909, 307.242, -35.083, 0.452)
pt3dadd(65.83, 307.319, -35.046, 0.46)
}
}
proc shape3d_38() {
dend_5[5] { pt3dadd(65.741, 307.385, -35.008, 0.474)
pt3dadd(65.631, 307.426, -35, 0.484)
pt3dadd(65.516, 307.458, -35, 0.496)
pt3dadd(65.409, 307.495, -35.019, 0.516)
pt3dadd(65.32, 307.54, -35.075, 0.558)
pt3dadd(65.238, 307.578, -35.14, 0.612)
pt3dadd(65.16, 307.626, -35.196, 0.662)
pt3dadd(65.077, 307.709, -35.219, 0.69)
pt3dadd(64.995, 307.792, -35.242, 0.72)
pt3dadd(64.912, 307.873, -35.265, 0.748)
pt3dadd(64.83, 307.956, -35.288, 0.778)
pt3dadd(64.744, 308.03, -35.322, 0.79)
pt3dadd(64.658, 308.104, -35.356, 0.802)
pt3dadd(64.573, 308.176, -35.391, 0.814)
pt3dadd(64.487, 308.249, -35.425, 0.826)
pt3dadd(64.384, 308.292, -35.459, 0.828)
pt3dadd(64.276, 308.326, -35.493, 0.828)
pt3dadd(64.214, 308.411, -35.528, 0.786)
pt3dadd(64.164, 308.512, -35.564, 0.732)
pt3dadd(64.078, 308.581, -35.601, 0.716)
pt3dadd(63.997, 308.653, -35.637, 0.708)
pt3dadd(63.979, 308.766, -35.668, 0.742)
pt3dadd(63.96, 308.879, -35.7, 0.778)
pt3dadd(63.957, 308.994, -35.724, 0.834)
pt3dadd(63.954, 309.11, -35.749, 0.89)
pt3dadd(63.95, 309.227, -35.774, 0.946)
pt3dadd(63.947, 309.343, -35.799, 1.002)
pt3dadd(63.9, 309.353, -35.888, 1.082)
pt3dadd(63.851, 309.359, -35.979, 1.162)
pt3dadd(63.779, 309.376, -36.057, 1.202)
pt3dadd(63.701, 309.397, -36.131, 1.232)
pt3dadd(63.632, 309.438, -36.19, 1.25)
pt3dadd(63.598, 309.552, -36.195, 1.23)
pt3dadd(63.564, 309.667, -36.2, 1.208)
pt3dadd(63.494, 309.763, -36.204, 1.152)
pt3dadd(63.423, 309.856, -36.228, 1.14)
pt3dadd(63.353, 309.926, -36.268, 1.126)
pt3dadd(63.284, 309.947, -36.348, 1.114)
pt3dadd(63.216, 309.979, -36.425, 1.09)
pt3dadd(63.147, 310.032, -36.494, 1.046)
pt3dadd(63.109, 310.118, -36.545, 0.986)
pt3dadd(63.089, 310.229, -36.582, 0.914)
pt3dadd(63.034, 310.318, -36.583, 0.848)
pt3dadd(62.945, 310.388, -36.549, 0.79)
pt3dadd(62.856, 310.458, -36.516, 0.732)
pt3dadd(62.77, 310.536, -36.497, 0.666)
pt3dadd(62.685, 310.621, -36.492, 0.592)
pt3dadd(62.592, 310.686, -36.473, 0.516)
pt3dadd(62.513, 310.771, -36.467, 0.502)
pt3dadd(62.441, 310.867, -36.467, 0.502)
pt3dadd(62.368, 310.963, -36.467, 0.502)
pt3dadd(62.296, 311.059, -36.467, 0.502)
pt3dadd(62.219, 311.146, -36.489, 0.506)
pt3dadd(62.141, 311.23, -36.518, 0.512)
pt3dadd(62.063, 311.314, -36.546, 0.518)
pt3dadd(61.985, 311.399, -36.575, 0.524)
pt3dadd(61.894, 311.472, -36.592, 0.522)
pt3dadd(61.793, 311.536, -36.597, 0.51)
pt3dadd(61.699, 311.609, -36.6, 0.498)
pt3dadd(61.618, 311.698, -36.6, 0.486)
pt3dadd(61.542, 311.789, -36.607, 0.474)
pt3dadd(61.479, 311.887, -36.63, 0.46)
pt3dadd(61.44, 311.965, -36.68, 0.452)
pt3dadd(61.44, 312.011, -36.772, 0.452)
pt3dadd(61.44, 312.064, -36.857, 0.452)
pt3dadd(61.446, 312.182, -36.875, 0.464)
pt3dadd(61.451, 312.3, -36.893, 0.474)
pt3dadd(61.476, 312.415, -36.891, 0.52)
pt3dadd(61.533, 312.499, -36.845, 0.628)
pt3dadd(61.559, 312.578, -36.774, 0.676)
pt3dadd(61.53, 312.67, -36.719, 0.604)
pt3dadd(61.477, 312.775, -36.707, 0.532)
pt3dadd(61.421, 312.882, -36.702, 0.474)
pt3dadd(61.338, 312.964, -36.7, 0.414)
pt3dadd(61.239, 313.031, -36.7, 0.356)
pt3dadd(61.132, 313.082, -36.7, 0.312)
pt3dadd(61.056, 313.162, -36.715, 0.308)
pt3dadd(61, 313.265, -36.737, 0.32)
pt3dadd(60.944, 313.368, -36.759, 0.33)
pt3dadd(60.889, 313.47, -36.781, 0.342)
pt3dadd(60.83, 313.571, -36.802, 0.354)
pt3dadd(60.75, 313.66, -36.817, 0.37)
pt3dadd(60.671, 313.747, -36.831, 0.386)
pt3dadd(60.591, 313.836, -36.846, 0.404)
pt3dadd(60.512, 313.924, -36.861, 0.42)
pt3dadd(60.429, 314.005, -36.886, 0.424)
pt3dadd(60.344, 314.081, -36.917, 0.418)
pt3dadd(60.259, 314.156, -36.948, 0.412)
pt3dadd(60.174, 314.232, -36.98, 0.406)
pt3dadd(60.095, 314.305, -37.021, 0.386)
pt3dadd(60.025, 314.375, -37.079, 0.342)
pt3dadd(59.961, 314.465, -37.111, 0.31)
pt3dadd(59.901, 314.566, -37.128, 0.284)
pt3dadd(59.821, 314.645, -37.158, 0.294)
pt3dadd(59.732, 314.712, -37.195, 0.322)
pt3dadd(59.619, 314.735, -37.217, 0.374)
pt3dadd(59.503, 314.753, -37.236, 0.428)
pt3dadd(59.444, 314.766, -37.301, 0.47)
pt3dadd(59.428, 314.774, -37.399, 0.5)
pt3dadd(59.412, 314.784, -37.498, 0.53)
pt3dadd(59.396, 314.794, -37.597, 0.56)
pt3dadd(59.366, 314.818, -37.69, 0.594)
pt3dadd(59.316, 314.861, -37.773, 0.634)
pt3dadd(59.285, 314.88, -37.865, 0.638)
pt3dadd(59.259, 314.88, -37.962, 0.608)
pt3dadd(59.225, 314.88, -38.058, 0.576)
pt3dadd(59.188, 314.88, -38.153, 0.542)
pt3dadd(59.134, 314.88, -38.243, 0.498)
pt3dadd(59.08, 314.88, -38.332, 0.452)
pt3dadd(59.06, 314.947, -38.412, 0.426)
pt3dadd(59.038, 315.018, -38.49, 0.4)
pt3dadd(58.991, 315.125, -38.512, 0.376)
pt3dadd(58.942, 315.229, -38.536, 0.35)
pt3dadd(58.852, 315.286, -38.583, 0.306)
pt3dadd(58.808, 315.389, -38.609, 0.296)
pt3dadd(58.773, 315.5, -38.632, 0.292)
pt3dadd(58.737, 315.611, -38.655, 0.286)
pt3dadd(58.701, 315.722, -38.678, 0.282)
pt3dadd(58.663, 315.833, -38.7, 0.278)
pt3dadd(58.602, 315.936, -38.7, 0.3)
pt3dadd(58.542, 316.04, -38.7, 0.324)
pt3dadd(58.493, 316.146, -38.719, 0.382)
pt3dadd(58.446, 316.254, -38.742, 0.444)
pt3dadd(58.402, 316.31, -38.817, 0.5)
pt3dadd(58.359, 316.36, -38.901, 0.552)
pt3dadd(58.292, 316.405, -38.975, 0.58)
pt3dadd(58.221, 316.451, -39.045, 0.604)
pt3dadd(58.135, 316.5, -39.102, 0.614)
pt3dadd(58.05, 316.55, -39.159, 0.622)
pt3dadd(57.97, 316.614, -39.2, 0.64)
pt3dadd(57.91, 316.717, -39.2, 0.686)
pt3dadd(57.847, 316.819, -39.2, 0.732)
pt3dadd(57.757, 316.9, -39.2, 0.786)
pt3dadd(57.668, 316.979, -39.2, 0.838)
pt3dadd(57.572, 317.04, -39.204, 0.888)
pt3dadd(57.453, 317.04, -39.221, 0.926)
pt3dadd(57.335, 317.04, -39.238, 0.966)
pt3dadd(57.258, 317.04, -39.302, 0.974)
pt3dadd(57.205, 317.04, -39.391, 0.966)
pt3dadd(57.151, 317.04, -39.481, 0.958)
pt3dadd(57.091, 317.036, -39.567, 0.906)
pt3dadd(57.028, 317.029, -39.652, 0.836)
pt3dadd(56.935, 317.008, -39.691, 0.776)
pt3dadd(56.82, 316.974, -39.694, 0.728)
pt3dadd(56.705, 316.939, -39.698, 0.68)
pt3dadd(56.591, 316.937, -39.7, 0.634)
pt3dadd(56.478, 316.976, -39.7, 0.592)
pt3dadd(56.366, 317.018, -39.7, 0.552)
pt3dadd(56.264, 317.083, -39.7, 0.552)
pt3dadd(56.163, 317.147, -39.7, 0.552)
pt3dadd(56.065, 317.208, -39.711, 0.562)
pt3dadd(55.983, 317.252, -39.773, 0.62)
pt3dadd(55.919, 317.297, -39.847, 0.672)
pt3dadd(55.883, 317.338, -39.936, 0.72)
pt3dadd(55.847, 317.378, -40.025, 0.768)
pt3dadd(55.826, 317.405, -40.12, 0.822)
pt3dadd(55.809, 317.428, -40.217, 0.876)
pt3dadd(55.8, 317.466, -40.311, 0.904)
pt3dadd(55.771, 317.5, -40.402, 0.876)
pt3dadd(55.732, 317.525, -40.494, 0.84)
pt3dadd(55.689, 317.574, -40.577, 0.762)
pt3dadd(55.646, 317.633, -40.657, 0.666)
pt3dadd(55.562, 317.706, -40.682, 0.584)
pt3dadd(55.471, 317.783, -40.699, 0.506)
pt3dadd(55.368, 317.844, -40.7, 0.458)
pt3dadd(55.265, 317.905, -40.7, 0.414)
pt3dadd(55.169, 317.976, -40.7, 0.416)
pt3dadd(55.072, 318.047, -40.7, 0.432)
pt3dadd(54.97, 318.11, -40.7, 0.446)
pt3dadd(54.868, 318.173, -40.7, 0.462)
pt3dadd(54.766, 318.236, -40.7, 0.476)
pt3dadd(54.664, 318.299, -40.7, 0.492)
pt3dadd(54.56, 318.358, -40.704, 0.518)
pt3dadd(54.45, 318.403, -40.72, 0.578)
pt3dadd(54.345, 318.452, -40.741, 0.638)
pt3dadd(54.262, 318.521, -40.785, 0.694)
pt3dadd(54.182, 318.569, -40.842, 0.744)
pt3dadd(54.106, 318.589, -40.918, 0.784)
pt3dadd(54.017, 318.596, -40.982, 0.804)
pt3dadd(53.915, 318.59, -41.035, 0.804)
pt3dadd(53.829, 318.577, -41.099, 0.8)
pt3dadd(53.767, 318.553, -41.183, 0.792)
pt3dadd(53.705, 318.529, -41.266, 0.782)
pt3dadd(53.669, 318.542, -41.355, 0.778)
pt3dadd(53.65, 318.58, -41.449, 0.778)
pt3dadd(53.633, 318.635, -41.535, 0.792)
pt3dadd(53.618, 318.712, -41.611, 0.82)
pt3dadd(53.603, 318.787, -41.687, 0.848)
pt3dadd(53.518, 318.857, -41.7, 0.882)
pt3dadd(53.419, 318.924, -41.7, 0.918)
pt3dadd(53.307, 318.956, -41.7, 0.986)
pt3dadd(53.214, 319.016, -41.727, 1.01)
pt3dadd(53.128, 319.09, -41.761, 1.014)
pt3dadd(53.042, 319.163, -41.795, 1.022)
pt3dadd(52.956, 319.236, -41.83, 1.028)
pt3dadd(52.916, 319.316, -41.885, 1.036)
pt3dadd(52.91, 319.4, -41.956, 1.05)
pt3dadd(52.857, 319.477, -42.002, 1.048)
pt3dadd(52.765, 319.549, -42.025, 1.034)
pt3dadd(52.714, 319.62, -42.084, 1.038)
}
}
proc shape3d_39() {
dend_5[5] { pt3dadd(52.686, 319.691, -42.161, 1.052)
pt3dadd(52.68, 319.738, -42.251, 1.08)
pt3dadd(52.68, 319.777, -42.346, 1.112)
pt3dadd(52.645, 319.786, -42.428, 1.152)
pt3dadd(52.561, 319.75, -42.494, 1.2)
pt3dadd(52.478, 319.715, -42.559, 1.25)
pt3dadd(52.388, 319.691, -42.62, 1.29)
pt3dadd(52.286, 319.685, -42.673, 1.314)
pt3dadd(52.205, 319.681, -42.738, 1.326)
pt3dadd(52.176, 319.685, -42.835, 1.31)
pt3dadd(52.147, 319.69, -42.932, 1.296)
pt3dadd(52.115, 319.699, -43.025, 1.274)
pt3dadd(52.046, 319.782, -43.07, 1.174)
pt3dadd(51.983, 319.873, -43.1, 1.032)
pt3dadd(51.913, 319.958, -43.125, 0.88)
pt3dadd(51.83, 320.027, -43.169, 0.794)
pt3dadd(51.745, 320.045, -43.235, 0.748)
pt3dadd(51.66, 320.052, -43.305, 0.712)
pt3dadd(51.582, 320.111, -43.356, 0.692)
pt3dadd(51.506, 320.186, -43.4, 0.678)
pt3dadd(51.402, 320.248, -43.4, 0.678)
pt3dadd(51.299, 320.309, -43.4, 0.678)
pt3dadd(51.238, 320.351, -43.469, 0.684)
pt3dadd(51.187, 320.389, -43.554, 0.692)
pt3dadd(51.137, 320.428, -43.639, 0.7)
pt3dadd(51.12, 320.506, -43.705, 0.71)
pt3dadd(51.12, 320.605, -43.761, 0.722)
pt3dadd(51.12, 320.714, -43.792, 0.734)
pt3dadd(51.12, 320.834, -43.798, 0.748)
pt3dadd(51.111, 320.953, -43.8, 0.736)
pt3dadd(51.08, 321.067, -43.788, 0.728)
pt3dadd(51.022, 321.125, -43.718, 0.804)
pt3dadd(50.997, 321.187, -43.638, 0.884)
pt3dadd(50.966, 321.293, -43.611, 0.924)
pt3dadd(50.882, 321.359, -43.649, 1.014)
pt3dadd(50.796, 321.404, -43.706, 1.08)
pt3dadd(50.753, 321.46, -43.786, 1.062)
pt3dadd(50.685, 321.48, -43.859, 1.022)
pt3dadd(50.567, 321.48, -43.876, 0.984)
pt3dadd(50.449, 321.48, -43.893, 0.946)
pt3dadd(50.33, 321.48, -43.902, 0.888)
pt3dadd(50.21, 321.48, -43.906, 0.82)
pt3dadd(50.09, 321.48, -43.91, 0.75)
pt3dadd(49.973, 321.48, -43.93, 0.534)
pt3dadd(49.864, 321.48, -43.971, 0.314)
pt3dadd(49.747, 321.48, -43.993, 0.242)
pt3dadd(49.628, 321.48, -44, 0.236)
pt3dadd(49.508, 321.48, -44.005, 0.288)
pt3dadd(49.391, 321.48, -44.026, 0.41)
pt3dadd(49.287, 321.497, -44.071, 0.586)
pt3dadd(49.219, 321.552, -44.135, 0.672)
pt3dadd(49.2, 321.589, -44.227, 0.678)
pt3dadd(49.2, 321.6, -44.326, 0.678)
pt3dadd(49.2, 321.6, -44.427, 0.684)
pt3dadd(49.2, 321.6, -44.527, 0.716)
pt3dadd(49.196, 321.6, -44.626, 0.784)
pt3dadd(49.175, 321.6, -44.724, 0.9)
pt3dadd(49.13, 321.6, -44.817, 1.03)
pt3dadd(49.093, 321.6, -44.911, 1.104)
pt3dadd(49.08, 321.624, -45.008, 1.098)
pt3dadd(49.08, 321.703, -45.076, 1.064)
pt3dadd(49.08, 321.818, -45.098, 1.094)
pt3dadd(49.08, 321.938, -45.1, 1.166)
pt3dadd(49.068, 322.058, -45.1, 1.272)
pt3dadd(49.034, 322.172, -45.1, 1.306)
pt3dadd(48.987, 322.283, -45.1, 1.282)
pt3dadd(48.955, 322.398, -45.1, 1.256)
pt3dadd(48.896, 322.501, -45.1, 1.274)
pt3dadd(48.828, 322.6, -45.1, 1.296)
pt3dadd(48.734, 322.648, -45.12, 1.342)
pt3dadd(48.621, 322.661, -45.153, 1.406)
pt3dadd(48.512, 322.636, -45.174, 1.458)
pt3dadd(48.405, 322.583, -45.186, 1.504)
pt3dadd(48.299, 322.53, -45.198, 1.548)
pt3dadd(48.185, 322.493, -45.2, 1.574)
pt3dadd(48.07, 322.46, -45.2, 1.594)
pt3dadd(47.953, 322.442, -45.2, 1.608)
pt3dadd(47.833, 322.45, -45.2, 1.608)
pt3dadd(47.719, 322.48, -45.2, 1.59)
pt3dadd(47.653, 322.574, -45.2, 1.582)
pt3dadd(47.64, 322.693, -45.201, 1.55)
pt3dadd(47.64, 322.81, -45.221, 1.478)
pt3dadd(47.64, 322.892, -45.286, 1.342)
pt3dadd(47.628, 322.919, -45.382, 1.214)
pt3dadd(47.591, 322.92, -45.476, 1.118)
pt3dadd(47.516, 322.92, -45.554, 1.012)
pt3dadd(47.428, 322.92, -45.621, 0.906)
pt3dadd(47.328, 322.92, -45.674, 0.794)
pt3dadd(47.211, 322.922, -45.691, 0.712)
pt3dadd(47.091, 322.927, -45.695, 0.676)
pt3dadd(46.971, 322.932, -45.699, 0.64)
pt3dadd(46.862, 322.975, -45.7, 0.596)
pt3dadd(46.759, 323.035, -45.7, 0.55)
pt3dadd(46.668, 323.086, -45.734, 0.516)
pt3dadd(46.591, 323.124, -45.803, 0.496)
pt3dadd(46.512, 323.16, -45.871, 0.478)
pt3dadd(46.413, 323.16, -45.928, 0.478)
pt3dadd(46.314, 323.16, -45.985, 0.478)
pt3dadd(46.197, 323.161, -46.001, 0.502)
pt3dadd(46.091, 323.206, -46.03, 0.514)
pt3dadd(45.985, 323.25, -46.06, 0.524)
pt3dadd(45.879, 323.294, -46.089, 0.536)
pt3dadd(45.773, 323.338, -46.118, 0.546)
pt3dadd(45.676, 323.392, -46.153, 0.556)
pt3dadd(45.586, 323.456, -46.193, 0.562)
pt3dadd(45.496, 323.52, -46.233, 0.568)
pt3dadd(45.407, 323.584, -46.273, 0.574)
pt3dadd(45.319, 323.653, -46.305, 0.582)
pt3dadd(45.233, 323.736, -46.32, 0.592)
pt3dadd(45.148, 323.819, -46.334, 0.604)
pt3dadd(45.063, 323.902, -46.349, 0.614)
pt3dadd(44.977, 323.983, -46.364, 0.626)
pt3dadd(44.882, 324.047, -46.391, 0.638)
pt3dadd(44.783, 324.104, -46.422, 0.648)
pt3dadd(44.685, 324.163, -46.453, 0.66)
pt3dadd(44.587, 324.222, -46.483, 0.672)
pt3dadd(44.484, 324.277, -46.5, 0.724)
pt3dadd(44.4, 324.36, -46.5, 0.828)
pt3dadd(44.318, 324.444, -46.495, 0.89)
pt3dadd(44.21, 324.479, -46.469, 0.904)
pt3dadd(44.1, 324.48, -46.431, 0.904)
pt3dadd(43.982, 324.48, -46.43, 0.886)
pt3dadd(43.885, 324.48, -46.486, 0.818)
pt3dadd(43.827, 324.48, -46.571, 0.728)
pt3dadd(43.805, 324.48, -46.669, 0.686)
pt3dadd(43.8, 324.49, -46.768, 0.658)
pt3dadd(43.8, 324.538, -46.858, 0.598)
pt3dadd(43.795, 324.648, -46.893, 0.508)
pt3dadd(43.768, 324.764, -46.9, 0.46)
pt3dadd(43.68, 324.84, -46.9, 0.452)
}
dend_5[6] {pt3dclear()
pt3dadd(95.48, 231.32, -7.1, 2.862)
pt3dadd(95.449, 231.334, -7.055, 2.86)
pt3dadd(95.427, 231.362, -6.947, 2.844)
pt3dadd(95.404, 231.392, -6.839, 2.83)
pt3dadd(95.382, 231.424, -6.731, 2.816)
pt3dadd(95.359, 231.452, -6.624, 2.8)
pt3dadd(95.337, 231.484, -6.516, 2.786)
pt3dadd(95.314, 231.512, -6.408, 2.772)
pt3dadd(95.292, 231.542, -6.3, 2.756)
pt3dadd(95.269, 231.574, -6.192, 2.742)
pt3dadd(95.247, 231.602, -6.085, 2.728)
pt3dadd(95.224, 231.632, -5.977, 2.712)
pt3dadd(95.19, 231.75, -5.962, 2.708)
pt3dadd(95.156, 231.871, -5.951, 2.704)
pt3dadd(95.121, 231.992, -5.941, 2.7)
pt3dadd(95.087, 232.114, -5.93, 2.696)
pt3dadd(95.052, 232.235, -5.919, 2.692)
pt3dadd(95.018, 232.356, -5.909, 2.688)
pt3dadd(95.001, 232.478, -5.898, 2.674)
pt3dadd(94.986, 232.601, -5.888, 2.66)
pt3dadd(94.971, 232.724, -5.877, 2.646)
pt3dadd(94.957, 232.847, -5.866, 2.632)
pt3dadd(94.942, 232.969, -5.856, 2.616)
pt3dadd(94.927, 233.093, -5.845, 2.602)
pt3dadd(94.913, 233.215, -5.835, 2.588)
pt3dadd(94.898, 233.338, -5.824, 2.564)
pt3dadd(94.883, 233.461, -5.813, 2.54)
pt3dadd(94.869, 233.584, -5.803, 2.514)
pt3dadd(94.854, 233.706, -5.792, 2.49)
pt3dadd(94.839, 233.83, -5.781, 2.464)
pt3dadd(94.825, 233.952, -5.771, 2.438)
pt3dadd(94.81, 234.076, -5.76, 2.414)
pt3dadd(94.795, 234.198, -5.75, 2.386)
pt3dadd(94.781, 234.32, -5.739, 2.356)
pt3dadd(94.766, 234.444, -5.728, 2.328)
pt3dadd(94.751, 234.566, -5.718, 2.3)
pt3dadd(94.737, 234.689, -5.707, 2.27)
pt3dadd(94.722, 234.812, -5.696, 2.242)
pt3dadd(94.707, 234.935, -5.686, 2.214)
pt3dadd(94.692, 235.057, -5.675, 2.192)
pt3dadd(94.678, 235.181, -5.665, 2.17)
pt3dadd(94.663, 235.303, -5.654, 2.148)
pt3dadd(94.648, 235.426, -5.643, 2.126)
pt3dadd(94.634, 235.549, -5.633, 2.104)
pt3dadd(94.619, 235.672, -5.622, 2.084)
pt3dadd(94.604, 235.795, -5.612, 2.062)
pt3dadd(94.59, 235.916, -5.588, 2.038)
pt3dadd(94.575, 236.038, -5.563, 2.014)
pt3dadd(94.56, 236.16, -5.538, 1.99)
pt3dadd(94.545, 236.281, -5.513, 1.964)
pt3dadd(94.531, 236.402, -5.488, 1.94)
pt3dadd(94.516, 236.525, -5.463, 1.916)
pt3dadd(94.501, 236.647, -5.447, 1.888)
pt3dadd(94.487, 236.77, -5.435, 1.858)
pt3dadd(94.472, 236.893, -5.423, 1.83)
pt3dadd(94.457, 237.016, -5.41, 1.8)
pt3dadd(94.443, 237.139, -5.398, 1.772)
pt3dadd(94.428, 237.262, -5.386, 1.742)
pt3dadd(94.413, 237.384, -5.374, 1.714)
pt3dadd(94.385, 237.506, -5.363, 1.682)
pt3dadd(94.353, 237.628, -5.352, 1.648)
pt3dadd(94.321, 237.749, -5.342, 1.616)
pt3dadd(94.289, 237.871, -5.331, 1.584)
pt3dadd(94.257, 237.992, -5.32, 1.552)
pt3dadd(94.225, 238.114, -5.31, 1.518)
pt3dadd(94.202, 238.236, -5.299, 1.498)
pt3dadd(94.186, 238.358, -5.288, 1.484)
pt3dadd(94.171, 238.361, -5.278, 1.484)
pt3dadd(94.155, 238.484, -5.267, 1.468)
pt3dadd(94.138, 238.607, -5.257, 1.454)
}
}
proc shape3d_40() {
dend_5[6] { pt3dadd(94.121, 238.73, -5.246, 1.44)
pt3dadd(94.105, 238.853, -5.235, 1.424)
pt3dadd(94.088, 238.975, -5.225, 1.41)
pt3dadd(94.058, 239.098, -5.214, 1.416)
pt3dadd(94.024, 239.219, -5.204, 1.428)
pt3dadd(93.989, 239.34, -5.193, 1.44)
pt3dadd(93.955, 239.461, -5.182, 1.452)
pt3dadd(93.921, 239.582, -5.172, 1.464)
pt3dadd(93.886, 239.702, -5.161, 1.478)
pt3dadd(93.872, 239.706, -5.15, 1.478)
pt3dadd(93.821, 239.822, -5.14, 1.5)
pt3dadd(93.761, 239.938, -5.129, 1.528)
pt3dadd(93.702, 240.052, -5.119, 1.556)
pt3dadd(93.643, 240.166, -5.108, 1.584)
pt3dadd(93.584, 240.281, -5.097, 1.612)
pt3dadd(93.531, 240.396, -5.087, 1.634)
pt3dadd(93.497, 240.517, -5.076, 1.638)
pt3dadd(93.462, 240.638, -5.065, 1.642)
pt3dadd(93.428, 240.76, -5.055, 1.646)
pt3dadd(93.393, 240.881, -5.044, 1.65)
pt3dadd(93.359, 241.002, -5.034, 1.654)
pt3dadd(93.321, 241.122, -5.019, 1.654)
pt3dadd(93.267, 241.235, -4.988, 1.638)
pt3dadd(93.214, 241.349, -4.956, 1.622)
pt3dadd(93.16, 241.463, -4.925, 1.608)
pt3dadd(93.107, 241.577, -4.893, 1.592)
pt3dadd(93.065, 241.693, -4.87, 1.574)
pt3dadd(93.042, 241.816, -4.859, 1.556)
pt3dadd(93.019, 241.939, -4.849, 1.536)
pt3dadd(92.997, 242.06, -4.838, 1.518)
pt3dadd(92.974, 242.183, -4.827, 1.498)
pt3dadd(92.951, 242.306, -4.817, 1.48)
pt3dadd(92.928, 242.429, -4.806, 1.46)
pt3dadd(92.912, 242.551, -4.796, 1.476)
pt3dadd(92.898, 242.675, -4.785, 1.502)
pt3dadd(92.883, 242.797, -4.774, 1.526)
pt3dadd(92.868, 242.921, -4.764, 1.552)
pt3dadd(92.853, 243.043, -4.753, 1.578)
pt3dadd(92.839, 243.166, -4.742, 1.602)
pt3dadd(92.824, 243.289, -4.732, 1.628)
pt3dadd(92.792, 243.409, -4.721, 1.68)
pt3dadd(92.754, 243.53, -4.711, 1.738)
pt3dadd(92.718, 243.652, -4.7, 1.796)
pt3dadd(92.681, 243.772, -4.689, 1.856)
pt3dadd(92.644, 243.892, -4.679, 1.914)
pt3dadd(92.607, 244.014, -4.668, 1.972)
pt3dadd(92.525, 244.112, -4.658, 2.054)
pt3dadd(92.432, 244.206, -4.647, 2.14)
pt3dadd(92.34, 244.301, -4.636, 2.226)
pt3dadd(92.247, 244.394, -4.626, 2.312)
pt3dadd(92.155, 244.489, -4.615, 2.398)
pt3dadd(92.075, 244.592, -4.604, 2.444)
pt3dadd(91.997, 244.697, -4.594, 2.484)
pt3dadd(91.92, 244.802, -4.583, 2.524)
pt3dadd(91.842, 244.907, -4.573, 2.562)
pt3dadd(91.764, 245.012, -4.562, 2.602)
pt3dadd(91.701, 245.125, -4.551, 2.604)
pt3dadd(91.641, 245.238, -4.541, 2.596)
pt3dadd(91.582, 245.352, -4.53, 2.586)
pt3dadd(91.523, 245.467, -4.519, 2.576)
pt3dadd(91.463, 245.581, -4.509, 2.568)
pt3dadd(91.403, 245.69, -4.482, 2.542)
pt3dadd(91.342, 245.79, -4.427, 2.488)
pt3dadd(91.28, 245.89, -4.372, 2.436)
pt3dadd(91.218, 245.989, -4.317, 2.382)
pt3dadd(91.154, 246.088, -4.265, 2.33)
pt3dadd(91.065, 246.182, -4.237, 2.28)
pt3dadd(90.976, 246.278, -4.209, 2.23)
pt3dadd(90.888, 246.373, -4.181, 2.178)
pt3dadd(90.799, 246.468, -4.153, 2.128)
pt3dadd(90.715, 246.566, -4.122, 2.092)
pt3dadd(90.634, 246.665, -4.089, 2.064)
pt3dadd(90.553, 246.763, -4.056, 2.036)
pt3dadd(90.472, 246.863, -4.022, 2.006)
pt3dadd(90.392, 246.962, -3.992, 1.984)
pt3dadd(90.317, 247.07, -3.975, 1.99)
pt3dadd(90.243, 247.176, -3.957, 1.996)
pt3dadd(90.168, 247.283, -3.94, 2)
pt3dadd(90.094, 247.39, -3.922, 2.006)
pt3dadd(90.015, 247.493, -3.903, 2.016)
pt3dadd(89.927, 247.589, -3.877, 2.038)
pt3dadd(89.839, 247.686, -3.852, 2.06)
pt3dadd(89.752, 247.782, -3.827, 2.082)
pt3dadd(89.664, 247.878, -3.802, 2.104)
pt3dadd(89.649, 247.882, -3.791, 2.104)
pt3dadd(89.594, 247.993, -3.772, 2.122)
pt3dadd(89.55, 248.112, -3.756, 2.14)
pt3dadd(89.507, 248.232, -3.739, 2.16)
pt3dadd(89.463, 248.351, -3.722, 2.178)
pt3dadd(89.419, 248.471, -3.706, 2.196)
pt3dadd(89.365, 248.584, -3.69, 2.212)
pt3dadd(89.272, 248.677, -3.68, 2.222)
pt3dadd(89.179, 248.772, -3.669, 2.232)
pt3dadd(89.086, 248.866, -3.658, 2.242)
pt3dadd(88.994, 248.959, -3.648, 2.252)
pt3dadd(88.901, 249.054, -3.637, 2.254)
pt3dadd(88.808, 249.148, -3.627, 2.234)
pt3dadd(88.716, 249.241, -3.616, 2.214)
pt3dadd(88.623, 249.336, -3.605, 2.194)
pt3dadd(88.531, 249.43, -3.595, 2.174)
pt3dadd(88.454, 249.533, -3.58, 2.152)
pt3dadd(88.414, 249.652, -3.557, 2.13)
pt3dadd(88.375, 249.77, -3.534, 2.106)
pt3dadd(88.335, 249.89, -3.511, 2.082)
pt3dadd(88.296, 250.009, -3.488, 2.06)
pt3dadd(88.257, 250.128, -3.465, 2.036)
pt3dadd(88.24, 250.247, -3.429, 1.968)
pt3dadd(88.225, 250.364, -3.391, 1.896)
pt3dadd(88.19, 250.477, -3.349, 1.852)
pt3dadd(88.133, 250.585, -3.303, 1.838)
pt3dadd(88.089, 250.699, -3.278, 1.834)
pt3dadd(88.054, 250.82, -3.267, 1.834)
pt3dadd(88.019, 250.943, -3.257, 1.834)
pt3dadd(87.907, 251.014, -3.246, 1.834)
pt3dadd(87.794, 251.086, -3.235, 1.834)
pt3dadd(87.673, 251.144, -3.225, 1.75)
pt3dadd(87.551, 251.2, -3.214, 1.666)
pt3dadd(87.427, 251.254, -3.204, 1.62)
pt3dadd(87.304, 251.306, -3.193, 1.572)
pt3dadd(87.18, 251.359, -3.182, 1.524)
pt3dadd(87.057, 251.413, -3.172, 1.476)
pt3dadd(86.935, 251.467, -3.159, 1.422)
pt3dadd(86.837, 251.538, -3.104, 1.266)
pt3dadd(86.733, 251.592, -3.046, 1.13)
pt3dadd(86.617, 251.6, -2.983, 1.046)
pt3dadd(86.505, 251.627, -2.929, 0.974)
pt3dadd(86.413, 251.72, -2.913, 0.95)
pt3dadd(86.318, 251.812, -2.897, 0.934)
pt3dadd(86.21, 251.89, -2.887, 0.97)
pt3dadd(86.101, 251.968, -2.876, 1.004)
pt3dadd(86.007, 252.059, -2.857, 1.042)
pt3dadd(85.925, 252.138, -2.801, 1.074)
pt3dadd(85.849, 252.21, -2.727, 1.102)
pt3dadd(85.759, 252.288, -2.67, 1.132)
pt3dadd(85.681, 252.374, -2.623, 1.164)
pt3dadd(85.666, 252.377, -2.612, 1.164)
pt3dadd(85.647, 252.5, -2.602, 1.216)
pt3dadd(85.628, 252.623, -2.591, 1.268)
pt3dadd(85.61, 252.745, -2.581, 1.324)
pt3dadd(85.595, 252.869, -2.57, 1.392)
pt3dadd(85.58, 252.991, -2.559, 1.458)
pt3dadd(85.566, 253.114, -2.549, 1.538)
pt3dadd(85.551, 253.237, -2.538, 1.652)
pt3dadd(85.536, 253.36, -2.527, 1.74)
pt3dadd(85.522, 253.482, -2.517, 1.764)
pt3dadd(85.507, 253.606, -2.506, 1.79)
pt3dadd(85.492, 253.728, -2.496, 1.816)
pt3dadd(85.478, 253.85, -2.485, 1.84)
pt3dadd(85.463, 253.974, -2.474, 1.866)
pt3dadd(85.448, 254.096, -2.464, 1.89)
pt3dadd(85.433, 254.22, -2.453, 1.918)
pt3dadd(85.419, 254.342, -2.442, 1.952)
pt3dadd(85.404, 254.465, -2.432, 1.984)
pt3dadd(85.389, 254.588, -2.421, 2.006)
pt3dadd(85.375, 254.711, -2.411, 1.998)
pt3dadd(85.36, 254.833, -2.4, 1.99)
pt3dadd(85.33, 254.953, -2.389, 1.978)
pt3dadd(85.262, 255.064, -2.379, 1.956)
pt3dadd(85.192, 255.172, -2.368, 1.932)
pt3dadd(85.083, 255.25, -2.358, 1.896)
pt3dadd(84.974, 255.326, -2.347, 1.862)
pt3dadd(84.93, 255.444, -2.336, 1.858)
pt3dadd(84.894, 255.565, -2.326, 1.862)
pt3dadd(84.865, 255.686, -2.315, 1.88)
pt3dadd(84.835, 255.809, -2.304, 1.9)
pt3dadd(84.786, 255.924, -2.294, 1.932)
pt3dadd(84.717, 256.034, -2.283, 1.976)
pt3dadd(84.647, 256.144, -2.273, 2.012)
pt3dadd(84.572, 256.25, -2.262, 2.024)
pt3dadd(84.493, 256.352, -2.25, 2.028)
pt3dadd(84.382, 256.424, -2.222, 1.964)
pt3dadd(84.271, 256.487, -2.188, 1.898)
pt3dadd(84.161, 256.501, -2.118, 1.822)
pt3dadd(84.05, 256.517, -2.047, 1.748)
pt3dadd(83.94, 256.531, -1.977, 1.672)
pt3dadd(83.845, 256.554, -1.895, 1.564)
pt3dadd(83.754, 256.577, -1.809, 1.446)
pt3dadd(83.695, 256.633, -1.725, 1.39)
pt3dadd(83.582, 256.686, -1.675, 1.43)
pt3dadd(83.468, 256.738, -1.626, 1.472)
pt3dadd(83.354, 256.789, -1.577, 1.512)
pt3dadd(83.24, 256.842, -1.528, 1.554)
pt3dadd(83.226, 256.844, -1.517, 1.554)
pt3dadd(83.142, 256.939, -1.482, 1.624)
pt3dadd(83.061, 257.039, -1.449, 1.698)
pt3dadd(82.98, 257.137, -1.416, 1.77)
pt3dadd(82.899, 257.238, -1.383, 1.844)
pt3dadd(82.836, 257.34, -1.339, 1.914)
pt3dadd(82.792, 257.446, -1.284, 1.982)
pt3dadd(82.748, 257.552, -1.229, 2.048)
pt3dadd(82.703, 257.658, -1.174, 2.116)
pt3dadd(82.659, 257.765, -1.119, 2.182)
pt3dadd(82.598, 257.875, -1.086, 2.282)
pt3dadd(82.536, 257.984, -1.053, 2.382)
pt3dadd(82.515, 258.024, -0.949, 2.364)
pt3dadd(82.494, 258.061, -0.842, 2.342)
pt3dadd(82.478, 258.097, -0.736, 2.262)
pt3dadd(82.463, 258.132, -0.629, 2.148)
pt3dadd(82.435, 258.162, -0.524, 2.014)
pt3dadd(82.36, 258.164, -0.428, 1.808)
}
}
proc shape3d_41() {
dend_5[6] { pt3dadd(82.282, 258.168, -0.333, 1.606)
pt3dadd(82.148, 258.17, -0.32, 1.534)
pt3dadd(82.013, 258.173, -0.307, 1.462)
pt3dadd(81.878, 258.176, -0.294, 1.39)
pt3dadd(81.744, 258.179, -0.282, 1.318)
pt3dadd(81.61, 258.187, -0.269, 1.248)
pt3dadd(81.482, 258.23, -0.258, 1.194)
pt3dadd(81.354, 258.272, -0.248, 1.142)
pt3dadd(81.339, 258.275, -0.237, 1.142)
pt3dadd(81.234, 258.34, -0.193, 1.156)
pt3dadd(81.134, 258.41, -0.14, 1.186)
pt3dadd(81.059, 258.493, -0.083, 1.238)
pt3dadd(81.016, 258.595, -0.02, 1.318)
pt3dadd(80.976, 258.706, 0.016, 1.372)
pt3dadd(80.938, 258.827, 0.027, 1.4)
pt3dadd(80.899, 258.947, 0.037, 1.43)
pt3dadd(80.863, 259.067, 0.048, 1.456)
pt3dadd(80.849, 259.07, 0.058, 1.456)
pt3dadd(80.829, 259.193, 0.069, 1.456)
pt3dadd(80.81, 259.315, 0.08, 1.456)
pt3dadd(80.784, 259.438, 0.09, 1.428)
pt3dadd(80.732, 259.554, 0.101, 1.348)
pt3dadd(80.673, 259.668, 0.112, 1.33)
pt3dadd(80.613, 259.783, 0.122, 1.31)
pt3dadd(80.554, 259.897, 0.133, 1.292)
pt3dadd(80.495, 260.012, 0.143, 1.274)
pt3dadd(80.436, 260.125, 0.154, 1.256)
pt3dadd(80.376, 260.239, 0.165, 1.256)
pt3dadd(80.317, 260.354, 0.175, 1.256)
pt3dadd(80.258, 260.468, 0.186, 1.256)
pt3dadd(80.199, 260.582, 0.196, 1.256)
pt3dadd(80.139, 260.698, 0.207, 1.256)
pt3dadd(80.06, 260.8, 0.218, 1.286)
pt3dadd(79.97, 260.896, 0.228, 1.334)
pt3dadd(79.908, 261.005, 0.239, 1.382)
pt3dadd(79.874, 261.126, 0.25, 1.43)
pt3dadd(79.838, 261.246, 0.26, 1.478)
pt3dadd(79.76, 261.35, 0.271, 1.492)
pt3dadd(79.677, 261.451, 0.281, 1.504)
pt3dadd(79.556, 261.49, 0.292, 1.5)
pt3dadd(79.422, 261.508, 0.303, 1.49)
pt3dadd(79.291, 261.53, 0.313, 1.482)
pt3dadd(79.206, 261.631, 0.324, 1.474)
pt3dadd(79.121, 261.73, 0.335, 1.466)
pt3dadd(79.035, 261.829, 0.345, 1.46)
pt3dadd(78.955, 261.934, 0.356, 1.468)
pt3dadd(78.879, 262.039, 0.366, 1.49)
pt3dadd(78.799, 262.141, 0.377, 1.528)
pt3dadd(78.697, 262.226, 0.388, 1.556)
pt3dadd(78.586, 262.301, 0.398, 1.556)
pt3dadd(78.475, 262.376, 0.409, 1.556)
pt3dadd(78.364, 262.451, 0.419, 1.556)
pt3dadd(78.254, 262.525, 0.43, 1.556)
pt3dadd(78.139, 262.595, 0.441, 1.56)
pt3dadd(78.023, 262.661, 0.451, 1.564)
pt3dadd(77.906, 262.726, 0.462, 1.57)
pt3dadd(77.789, 262.793, 0.473, 1.574)
pt3dadd(77.672, 262.858, 0.483, 1.58)
pt3dadd(77.551, 262.915, 0.494, 1.592)
pt3dadd(77.426, 262.967, 0.504, 1.61)
pt3dadd(77.301, 263.016, 0.515, 1.63)
pt3dadd(77.177, 263.066, 0.526, 1.648)
pt3dadd(77.052, 263.117, 0.536, 1.666)
pt3dadd(76.929, 263.172, 0.547, 1.688)
pt3dadd(76.819, 263.248, 0.558, 1.718)
pt3dadd(76.804, 263.25, 0.568, 1.718)
pt3dadd(76.693, 263.324, 0.579, 1.748)
pt3dadd(76.583, 263.4, 0.589, 1.778)
pt3dadd(76.472, 263.474, 0.6, 1.808)
pt3dadd(76.365, 263.552, 0.611, 1.838)
pt3dadd(76.275, 263.65, 0.621, 1.862)
pt3dadd(76.186, 263.746, 0.632, 1.888)
pt3dadd(76.096, 263.842, 0.642, 1.914)
pt3dadd(76.007, 263.939, 0.653, 1.938)
pt3dadd(75.913, 264.031, 0.664, 1.956)
pt3dadd(75.898, 264.035, 0.674, 1.956)
pt3dadd(75.787, 264.109, 0.685, 1.946)
pt3dadd(75.677, 264.184, 0.696, 1.936)
pt3dadd(75.566, 264.259, 0.706, 1.926)
pt3dadd(75.455, 264.334, 0.717, 1.916)
pt3dadd(75.353, 264.415, 0.727, 1.902)
pt3dadd(75.285, 264.526, 0.738, 1.868)
pt3dadd(75.216, 264.636, 0.749, 1.834)
pt3dadd(75.148, 264.745, 0.759, 1.8)
pt3dadd(75.08, 264.857, 0.77, 1.768)
pt3dadd(75.012, 264.966, 0.781, 1.734)
pt3dadd(74.937, 265.073, 0.791, 1.676)
pt3dadd(74.863, 265.181, 0.802, 1.616)
pt3dadd(74.788, 265.286, 0.812, 1.558)
pt3dadd(74.713, 265.394, 0.823, 1.498)
pt3dadd(74.639, 265.5, 0.834, 1.44)
pt3dadd(74.531, 265.577, 0.844, 1.398)
pt3dadd(74.419, 265.65, 0.855, 1.358)
pt3dadd(74.306, 265.721, 0.865, 1.318)
pt3dadd(74.193, 265.793, 0.876, 1.278)
pt3dadd(74.08, 265.865, 0.887, 1.238)
pt3dadd(73.95, 265.896, 0.897, 1.226)
pt3dadd(73.817, 265.918, 0.908, 1.222)
pt3dadd(73.684, 265.942, 0.919, 1.218)
pt3dadd(73.551, 265.963, 0.929, 1.214)
pt3dadd(73.418, 265.986, 0.94, 1.21)
pt3dadd(73.285, 266.009, 0.95, 1.206)
pt3dadd(73.154, 266.041, 0.961, 1.236)
pt3dadd(73.024, 266.077, 0.972, 1.278)
pt3dadd(72.894, 266.113, 0.982, 1.322)
pt3dadd(72.764, 266.148, 0.993, 1.374)
pt3dadd(72.634, 266.184, 1.004, 1.426)
pt3dadd(72.511, 266.238, 1.014, 1.442)
pt3dadd(72.389, 266.294, 1.025, 1.452)
pt3dadd(72.293, 266.381, 1.035, 1.448)
pt3dadd(72.21, 266.483, 1.046, 1.438)
pt3dadd(72.145, 266.592, 1.057, 1.4)
pt3dadd(72.098, 266.711, 1.067, 1.338)
pt3dadd(72.032, 266.821, 1.078, 1.292)
pt3dadd(71.964, 266.933, 1.089, 1.246)
pt3dadd(71.891, 267.04, 1.099, 1.208)
pt3dadd(71.816, 267.145, 1.11, 1.174)
pt3dadd(71.716, 267.224, 1.12, 1.146)
pt3dadd(71.588, 267.265, 1.131, 1.124)
pt3dadd(71.46, 267.307, 1.142, 1.104)
pt3dadd(71.332, 267.35, 1.152, 1.094)
pt3dadd(71.204, 267.392, 1.163, 1.082)
pt3dadd(71.077, 267.438, 1.173, 1.056)
pt3dadd(70.955, 267.492, 1.184, 1.028)
pt3dadd(70.852, 267.575, 1.195, 1.024)
pt3dadd(70.748, 267.659, 1.205, 1.018)
pt3dadd(70.645, 267.742, 1.216, 1.014)
pt3dadd(70.541, 267.826, 1.227, 1.008)
pt3dadd(70.446, 267.916, 1.237, 0.994)
pt3dadd(70.377, 268.026, 1.248, 0.948)
pt3dadd(70.309, 268.135, 1.258, 0.904)
pt3dadd(70.295, 268.139, 1.269, 0.904)
pt3dadd(70.28, 268.141, 1.28, 0.904)
pt3dadd(70.265, 268.144, 1.29, 0.904)
pt3dadd(70.25, 268.147, 1.301, 0.904)
pt3dadd(70.236, 268.15, 1.311, 0.904)
pt3dadd(70.221, 268.152, 1.322, 0.904)
pt3dadd(70.206, 268.156, 1.333, 0.904)
pt3dadd(70.088, 268.218, 1.343, 0.918)
pt3dadd(69.969, 268.282, 1.354, 0.934)
pt3dadd(69.85, 268.344, 1.365, 0.948)
pt3dadd(69.732, 268.406, 1.375, 0.962)
pt3dadd(69.613, 268.47, 1.386, 0.978)
pt3dadd(69.484, 268.506, 1.396, 0.99)
pt3dadd(69.353, 268.538, 1.407, 1.004)
pt3dadd(69.222, 268.572, 1.418, 1.016)
pt3dadd(69.091, 268.604, 1.428, 1.03)
pt3dadd(68.96, 268.637, 1.439, 1.044)
pt3dadd(68.829, 268.667, 1.45, 1.062)
pt3dadd(68.694, 268.669, 1.46, 1.104)
pt3dadd(68.56, 268.673, 1.471, 1.094)
pt3dadd(68.425, 268.678, 1.481, 1.014)
pt3dadd(68.294, 268.703, 1.492, 0.906)
pt3dadd(68.198, 268.787, 1.503, 0.838)
pt3dadd(68.159, 268.906, 1.513, 0.828)
pt3dadd(68.142, 269.028, 1.524, 0.828)
pt3dadd(68.127, 269.152, 1.535, 0.872)
pt3dadd(68.113, 269.274, 1.545, 0.922)
pt3dadd(68.098, 269.396, 1.556, 0.972)
pt3dadd(68.071, 269.519, 1.566, 0.98)
pt3dadd(68.018, 269.634, 1.577, 0.944)
pt3dadd(67.923, 269.724, 1.588, 0.884)
pt3dadd(67.82, 269.81, 1.598, 0.836)
pt3dadd(67.712, 269.886, 1.61, 0.79)
pt3dadd(67.592, 269.946, 1.626, 0.742)
pt3dadd(67.474, 270.006, 1.647, 0.682)
pt3dadd(67.367, 270.079, 1.682, 0.628)
pt3dadd(67.259, 270.156, 1.708, 0.628)
pt3dadd(67.151, 270.232, 1.733, 0.628)
pt3dadd(67.043, 270.306, 1.758, 0.628)
pt3dadd(66.934, 270.383, 1.783, 0.628)
pt3dadd(66.826, 270.457, 1.773, 0.668)
pt3dadd(66.718, 270.53, 1.763, 0.71)
pt3dadd(66.611, 270.606, 1.753, 0.75)
pt3dadd(66.503, 270.679, 1.743, 0.792)
pt3dadd(66.393, 270.752, 1.762, 0.84)
pt3dadd(66.283, 270.823, 1.792, 0.89)
pt3dadd(66.173, 270.895, 1.823, 0.942)
pt3dadd(66.063, 270.967, 1.853, 0.992)
pt3dadd(65.953, 271.039, 1.879, 1.042)
pt3dadd(65.845, 271.117, 1.889, 1.092)
pt3dadd(65.736, 271.195, 1.9, 1.142)
pt3dadd(65.628, 271.273, 1.911, 1.194)
pt3dadd(65.519, 271.35, 1.921, 1.244)
pt3dadd(65.409, 271.426, 1.932, 1.282)
pt3dadd(65.292, 271.49, 1.942, 1.288)
pt3dadd(65.175, 271.556, 1.953, 1.292)
pt3dadd(65.058, 271.622, 1.964, 1.296)
pt3dadd(64.941, 271.688, 1.974, 1.302)
pt3dadd(64.824, 271.753, 1.985, 1.3)
pt3dadd(64.704, 271.812, 2.003, 1.198)
pt3dadd(64.597, 271.876, 2.049, 1.05)
pt3dadd(64.48, 271.909, 2.102, 0.938)
pt3dadd(64.351, 271.915, 2.14, 0.904)
pt3dadd(64.239, 271.945, 2.197, 0.904)
pt3dadd(64.194, 272.023, 2.277, 0.936)
pt3dadd(64.18, 272.128, 2.337, 1.028)
pt3dadd(64.165, 272.248, 2.366, 1.162)
pt3dadd(64.15, 272.371, 2.381, 1.292)
pt3dadd(64.136, 272.494, 2.391, 1.4)
}
}
proc shape3d_42() {
dend_5[6] { pt3dadd(64.111, 272.616, 2.402, 1.45)
pt3dadd(64.048, 272.726, 2.412, 1.48)
pt3dadd(63.922, 272.771, 2.423, 1.448)
pt3dadd(63.788, 272.783, 2.434, 1.39)
pt3dadd(63.654, 272.785, 2.444, 1.28)
pt3dadd(63.519, 272.788, 2.455, 1.164)
pt3dadd(63.386, 272.806, 2.465, 1.104)
pt3dadd(63.257, 272.844, 2.476, 1.104)
pt3dadd(63.128, 272.882, 2.487, 1.104)
pt3dadd(62.999, 272.922, 2.497, 1.104)
pt3dadd(62.87, 272.96, 2.508, 1.104)
pt3dadd(62.74, 272.999, 2.519, 1.104)
pt3dadd(62.628, 273.07, 2.529, 1.126)
pt3dadd(62.52, 273.146, 2.54, 1.15)
pt3dadd(62.411, 273.226, 2.55, 1.176)
pt3dadd(62.303, 273.302, 2.561, 1.2)
pt3dadd(62.194, 273.38, 2.572, 1.226)
pt3dadd(62.108, 273.479, 2.582, 1.308)
pt3dadd(62.025, 273.58, 2.593, 1.402)
pt3dadd(61.909, 273.632, 2.604, 1.472)
pt3dadd(61.777, 273.662, 2.614, 1.532)
pt3dadd(61.655, 273.704, 2.625, 1.59)
pt3dadd(61.58, 273.81, 2.635, 1.636)
pt3dadd(61.504, 273.917, 2.646, 1.682)
pt3dadd(61.47, 274.032, 2.687, 1.706)
pt3dadd(61.437, 274.147, 2.729, 1.73)
pt3dadd(61.341, 274.232, 2.753, 1.758)
pt3dadd(61.234, 274.31, 2.774, 1.788)
pt3dadd(61.128, 274.39, 2.794, 1.818)
pt3dadd(61.013, 274.453, 2.821, 1.86)
pt3dadd(60.891, 274.502, 2.854, 1.91)
pt3dadd(60.812, 274.534, 2.926, 1.942)
pt3dadd(60.773, 274.543, 3.034, 1.958)
pt3dadd(60.733, 274.554, 3.143, 1.974)
pt3dadd(60.686, 274.591, 3.239, 1.974)
pt3dadd(60.627, 274.675, 3.312, 1.946)
pt3dadd(60.592, 274.78, 3.362, 1.892)
pt3dadd(60.577, 274.901, 3.392, 1.82)
pt3dadd(60.563, 275.023, 3.405, 1.702)
pt3dadd(60.548, 275.147, 3.416, 1.618)
pt3dadd(60.533, 275.269, 3.427, 1.586)
pt3dadd(60.519, 275.392, 3.437, 1.582)
pt3dadd(60.504, 275.515, 3.448, 1.582)
pt3dadd(60.489, 275.636, 3.469, 1.63)
pt3dadd(60.472, 275.758, 3.494, 1.648)
pt3dadd(60.456, 275.88, 3.519, 1.664)
pt3dadd(60.439, 276.001, 3.545, 1.682)
pt3dadd(60.422, 276.122, 3.57, 1.698)
pt3dadd(60.405, 276.245, 3.595, 1.714)
pt3dadd(60.388, 276.366, 3.62, 1.73)
pt3dadd(60.332, 276.48, 3.633, 1.782)
pt3dadd(60.27, 276.594, 3.643, 1.836)
pt3dadd(60.205, 276.704, 3.664, 1.88)
pt3dadd(60.138, 276.814, 3.691, 1.918)
pt3dadd(60.053, 276.904, 3.73, 1.95)
pt3dadd(59.956, 276.98, 3.778, 1.978)
pt3dadd(59.829, 277.003, 3.796, 1.998)
pt3dadd(59.694, 277.01, 3.807, 2.016)
pt3dadd(59.56, 277.018, 3.818, 2.032)
pt3dadd(59.429, 277.051, 3.828, 2.04)
pt3dadd(59.299, 277.086, 3.839, 2.046)
pt3dadd(59.169, 277.122, 3.85, 2.052)
pt3dadd(59.039, 277.158, 3.86, 2.058)
pt3dadd(59.005, 277.268, 3.871, 2.036)
pt3dadd(58.985, 277.392, 3.881, 2.01)
pt3dadd(58.966, 277.514, 3.892, 1.984)
pt3dadd(58.869, 277.603, 3.903, 1.932)
pt3dadd(58.769, 277.691, 3.913, 1.878)
pt3dadd(58.665, 277.768, 3.924, 1.824)
pt3dadd(58.53, 277.774, 3.935, 1.764)
pt3dadd(58.395, 277.782, 3.945, 1.702)
pt3dadd(58.272, 277.812, 3.956, 1.646)
pt3dadd(58.183, 277.908, 3.966, 1.602)
pt3dadd(58.093, 278.005, 3.977, 1.558)
pt3dadd(58.025, 278.111, 3.988, 1.524)
pt3dadd(57.99, 278.232, 3.998, 1.504)
pt3dadd(57.955, 278.353, 4.009, 1.486)
pt3dadd(57.864, 278.443, 4.019, 1.496)
pt3dadd(57.76, 278.527, 4.03, 1.514)
pt3dadd(57.656, 278.609, 4.041, 1.532)
pt3dadd(57.538, 278.672, 4.051, 1.576)
pt3dadd(57.42, 278.737, 4.062, 1.622)
pt3dadd(57.289, 278.765, 4.073, 1.632)
pt3dadd(57.155, 278.768, 4.083, 1.58)
pt3dadd(57.02, 278.772, 4.094, 1.522)
pt3dadd(56.886, 278.774, 4.104, 1.462)
pt3dadd(56.751, 278.777, 4.115, 1.368)
pt3dadd(56.616, 278.78, 4.126, 1.266)
pt3dadd(56.481, 278.783, 4.136, 1.166)
pt3dadd(56.348, 278.804, 4.147, 1.078)
pt3dadd(56.215, 278.827, 4.158, 0.99)
pt3dadd(56.11, 278.879, 4.168, 0.932)
pt3dadd(56.068, 278.999, 4.179, 0.942)
pt3dadd(56.027, 279.119, 4.189, 0.952)
pt3dadd(55.973, 279.234, 4.2, 1.082)
pt3dadd(55.924, 279.352, 4.213, 1.216)
pt3dadd(55.902, 279.473, 4.235, 1.262)
pt3dadd(55.881, 279.594, 4.257, 1.308)
pt3dadd(55.86, 279.718, 4.278, 1.354)
pt3dadd(55.838, 279.839, 4.3, 1.4)
pt3dadd(55.817, 279.96, 4.322, 1.444)
pt3dadd(55.797, 280.082, 4.343, 1.488)
pt3dadd(55.782, 280.204, 4.366, 1.516)
pt3dadd(55.768, 280.327, 4.389, 1.544)
pt3dadd(55.736, 280.446, 4.406, 1.526)
pt3dadd(55.689, 280.565, 4.417, 1.464)
pt3dadd(55.641, 280.684, 4.427, 1.398)
pt3dadd(55.586, 280.799, 4.438, 1.302)
pt3dadd(55.532, 280.914, 4.449, 1.208)
pt3dadd(55.432, 280.993, 4.459, 1.114)
pt3dadd(55.314, 281.057, 4.47, 1.022)
pt3dadd(55.188, 281.1, 4.481, 0.94)
pt3dadd(55.056, 281.128, 4.491, 0.866)
pt3dadd(54.922, 281.137, 4.502, 0.854)
pt3dadd(54.787, 281.146, 4.512, 0.854)
pt3dadd(54.652, 281.153, 4.523, 0.854)
pt3dadd(54.554, 281.238, 4.534, 0.932)
pt3dadd(54.458, 281.329, 4.544, 1.014)
pt3dadd(54.401, 281.442, 4.555, 1.138)
pt3dadd(54.353, 281.56, 4.565, 1.274)
pt3dadd(54.31, 281.68, 4.576, 1.394)
pt3dadd(54.275, 281.801, 4.587, 1.49)
pt3dadd(54.24, 281.921, 4.597, 1.586)
pt3dadd(54.126, 281.959, 4.608, 1.62)
pt3dadd(53.992, 281.972, 4.619, 1.636)
pt3dadd(53.858, 281.988, 4.629, 1.652)
pt3dadd(53.724, 282.001, 4.64, 1.67)
pt3dadd(53.59, 282.014, 4.65, 1.674)
pt3dadd(53.455, 282.023, 4.661, 1.64)
pt3dadd(53.321, 282.029, 4.672, 1.606)
pt3dadd(53.202, 282.065, 4.691, 1.562)
pt3dadd(53.117, 282.16, 4.729, 1.502)
pt3dadd(53.032, 282.254, 4.766, 1.44)
pt3dadd(52.926, 282.32, 4.812, 1.35)
pt3dadd(52.816, 282.38, 4.859, 1.248)
pt3dadd(52.697, 282.413, 4.908, 1.018)
pt3dadd(52.573, 282.461, 4.935, 0.922)
pt3dadd(52.463, 282.527, 4.957, 0.84)
pt3dadd(52.388, 282.632, 4.967, 0.794)
pt3dadd(52.313, 282.74, 4.978, 0.754)
pt3dadd(52.245, 282.85, 4.988, 0.754)
pt3dadd(52.176, 282.96, 4.999, 0.754)
pt3dadd(52.121, 283.073, 5.029, 0.796)
pt3dadd(52.067, 283.186, 5.061, 0.846)
pt3dadd(52.045, 283.27, 5.14, 0.898)
pt3dadd(52.031, 283.361, 5.215, 0.97)
pt3dadd(52.005, 283.477, 5.25, 1.046)
pt3dadd(51.959, 283.595, 5.263, 1.162)
pt3dadd(51.89, 283.705, 5.273, 1.286)
pt3dadd(51.81, 283.808, 5.284, 1.37)
pt3dadd(51.692, 283.866, 5.295, 1.406)
pt3dadd(51.558, 283.882, 5.308, 1.384)
pt3dadd(51.426, 283.884, 5.335, 1.248)
pt3dadd(51.307, 283.888, 5.391, 1.05)
pt3dadd(51.214, 283.89, 5.477, 0.896)
pt3dadd(51.144, 283.9, 5.576, 0.804)
pt3dadd(51.047, 283.957, 5.63, 0.788)
pt3dadd(50.94, 284.03, 5.664, 0.8)
pt3dadd(50.841, 284.118, 5.68, 0.86)
pt3dadd(50.745, 284.209, 5.69, 0.93)
pt3dadd(50.653, 284.303, 5.701, 1.192)
pt3dadd(50.547, 284.358, 5.758, 1.258)
pt3dadd(50.44, 284.412, 5.816, 1.312)
pt3dadd(50.333, 284.466, 5.874, 1.366)
pt3dadd(50.226, 284.52, 5.933, 1.42)
pt3dadd(50.125, 284.598, 5.97, 1.454)
pt3dadd(50.025, 284.682, 6, 1.482)
pt3dadd(49.926, 284.767, 6.031, 1.51)
pt3dadd(49.827, 284.851, 6.062, 1.538)
pt3dadd(49.735, 284.942, 6.086, 1.56)
pt3dadd(49.656, 285.047, 6.099, 1.57)
pt3dadd(49.577, 285.151, 6.112, 1.58)
pt3dadd(49.499, 285.254, 6.125, 1.59)
pt3dadd(49.42, 285.36, 6.138, 1.6)
pt3dadd(49.345, 285.466, 6.15, 1.614)
pt3dadd(49.277, 285.575, 6.16, 1.634)
pt3dadd(49.208, 285.686, 6.171, 1.652)
pt3dadd(49.14, 285.796, 6.181, 1.672)
pt3dadd(49.072, 285.907, 6.192, 1.692)
pt3dadd(49.004, 286.018, 6.203, 1.714)
pt3dadd(48.942, 286.129, 6.213, 1.752)
pt3dadd(48.88, 286.243, 6.224, 1.788)
pt3dadd(48.817, 286.356, 6.235, 1.826)
pt3dadd(48.755, 286.469, 6.245, 1.864)
pt3dadd(48.693, 286.583, 6.256, 1.902)
pt3dadd(48.628, 286.694, 6.266, 1.944)
pt3dadd(48.563, 286.805, 6.277, 1.986)
pt3dadd(48.498, 286.918, 6.288, 2.03)
pt3dadd(48.432, 287.029, 6.298, 2.072)
pt3dadd(48.367, 287.141, 6.309, 2.116)
pt3dadd(48.267, 287.214, 6.319, 2.176)
pt3dadd(48.139, 287.256, 6.33, 2.25)
pt3dadd(48.021, 287.311, 6.341, 2.316)
pt3dadd(47.946, 287.417, 6.351, 2.352)
pt3dadd(47.871, 287.524, 6.362, 2.386)
pt3dadd(47.841, 287.646, 6.373, 2.394)
pt3dadd(47.812, 287.767, 6.383, 2.404)
pt3dadd(47.781, 287.886, 6.406, 2.41)
pt3dadd(47.747, 287.999, 6.454, 2.41)
pt3dadd(47.698, 288.086, 6.511, 2.402)
}
}
proc shape3d_43() {
dend_5[6] { pt3dadd(47.604, 288.098, 6.596, 2.364)
pt3dadd(47.557, 288.205, 6.636, 2.328)
pt3dadd(47.516, 288.32, 6.672, 2.292)
pt3dadd(47.474, 288.438, 6.707, 2.258)
pt3dadd(47.432, 288.553, 6.742, 2.222)
pt3dadd(47.391, 288.668, 6.778, 2.186)
pt3dadd(47.36, 288.68, 6.8, 2.184)
}
dend_5[7] {pt3dclear()
pt3dadd(47.36, 288.68, 6.8, 2.184)
pt3dadd(47.333, 288.797, 6.8, 2.142)
pt3dadd(47.305, 288.914, 6.8, 2.098)
pt3dadd(47.277, 289.031, 6.8, 2.056)
pt3dadd(47.25, 289.147, 6.8, 2.012)
pt3dadd(47.222, 289.265, 6.8, 1.968)
pt3dadd(47.195, 289.381, 6.8, 1.924)
pt3dadd(47.167, 289.498, 6.8, 1.878)
pt3dadd(47.14, 289.615, 6.8, 1.83)
pt3dadd(47.112, 289.732, 6.8, 1.782)
pt3dadd(47.085, 289.848, 6.8, 1.736)
pt3dadd(47.058, 289.966, 6.8, 1.688)
pt3dadd(47.018, 290.076, 6.806, 1.63)
pt3dadd(46.957, 290.178, 6.823, 1.554)
pt3dadd(46.913, 290.282, 6.848, 1.484)
pt3dadd(46.893, 290.392, 6.885, 1.422)
pt3dadd(46.852, 290.479, 6.93, 1.368)
pt3dadd(46.764, 290.515, 6.991, 1.326)
pt3dadd(46.686, 290.563, 7.054, 1.278)
pt3dadd(46.617, 290.624, 7.118, 1.22)
pt3dadd(46.553, 290.716, 7.149, 1.194)
pt3dadd(46.491, 290.815, 7.17, 1.178)
pt3dadd(46.429, 290.915, 7.19, 1.162)
pt3dadd(46.347, 290.996, 7.2, 1.136)
pt3dadd(46.248, 291.065, 7.2, 1.102)
pt3dadd(46.141, 291.113, 7.2, 1.048)
pt3dadd(46.026, 291.142, 7.204, 0.994)
pt3dadd(45.915, 291.187, 7.213, 0.974)
pt3dadd(45.805, 291.232, 7.222, 0.956)
pt3dadd(45.694, 291.276, 7.231, 0.936)
pt3dadd(45.583, 291.322, 7.239, 0.916)
pt3dadd(45.489, 291.359, 7.278, 0.892)
pt3dadd(45.418, 291.388, 7.355, 0.866)
pt3dadd(45.324, 291.421, 7.383, 0.854)
pt3dadd(45.212, 291.462, 7.372, 0.854)
pt3dadd(45.104, 291.503, 7.348, 0.868)
pt3dadd(44.999, 291.545, 7.313, 0.894)
pt3dadd(44.905, 291.611, 7.3, 0.94)
pt3dadd(44.817, 291.692, 7.3, 1)
pt3dadd(44.772, 291.792, 7.287, 1.046)
pt3dadd(44.768, 291.907, 7.263, 1.076)
pt3dadd(44.765, 292.024, 7.238, 1.108)
pt3dadd(44.762, 292.14, 7.213, 1.14)
pt3dadd(44.739, 292.229, 7.162, 1.182)
pt3dadd(44.695, 292.288, 7.082, 1.238)
pt3dadd(44.655, 292.319, 6.993, 1.256)
pt3dadd(44.625, 292.42, 6.95, 1.256)
pt3dadd(44.596, 292.525, 6.908, 1.256)
pt3dadd(44.567, 292.631, 6.867, 1.256)
pt3dadd(44.538, 292.735, 6.825, 1.256)
pt3dadd(44.52, 292.847, 6.8, 1.26)
pt3dadd(44.52, 292.967, 6.8, 1.27)
pt3dadd(44.52, 293.087, 6.8, 1.282)
pt3dadd(44.52, 293.207, 6.8, 1.292)
pt3dadd(44.52, 293.327, 6.8, 1.302)
pt3dadd(44.52, 293.447, 6.8, 1.314)
pt3dadd(44.52, 293.567, 6.8, 1.324)
pt3dadd(44.507, 293.684, 6.8, 1.364)
pt3dadd(44.474, 293.801, 6.8, 1.446)
pt3dadd(44.441, 293.916, 6.8, 1.53)
pt3dadd(44.426, 294.035, 6.8, 1.612)
pt3dadd(44.411, 294.154, 6.8, 1.698)
pt3dadd(44.396, 294.272, 6.8, 1.778)
pt3dadd(44.381, 294.392, 6.8, 1.852)
pt3dadd(44.366, 294.511, 6.8, 1.928)
pt3dadd(44.305, 294.604, 6.8, 1.966)
pt3dadd(44.211, 294.679, 6.8, 1.978)
pt3dadd(44.114, 294.749, 6.8, 1.944)
pt3dadd(44.013, 294.814, 6.8, 1.858)
pt3dadd(43.969, 294.919, 6.829, 1.786)
pt3dadd(43.925, 295.026, 6.859, 1.714)
pt3dadd(43.881, 295.132, 6.888, 1.642)
pt3dadd(43.837, 295.237, 6.918, 1.57)
pt3dadd(43.811, 295.348, 6.947, 1.472)
pt3dadd(43.805, 295.463, 6.975, 1.342)
pt3dadd(43.799, 295.578, 7, 1.218)
pt3dadd(43.795, 295.698, 7, 1.14)
pt3dadd(43.79, 295.818, 7, 1.062)
pt3dadd(43.77, 295.933, 7.001, 0.996)
pt3dadd(43.707, 296.034, 7.007, 0.96)
pt3dadd(43.641, 296.131, 7.018, 0.93)
pt3dadd(43.557, 296.2, 7.062, 0.93)
pt3dadd(43.465, 296.263, 7.092, 0.936)
pt3dadd(43.36, 296.32, 7.1, 0.954)
pt3dadd(43.278, 296.394, 7.137, 0.996)
pt3dadd(43.198, 296.474, 7.171, 1.038)
pt3dadd(43.13, 296.57, 7.188, 1.076)
pt3dadd(43.08, 296.64, 7.2, 1.104)
}
dend_5[8] {pt3dclear()
pt3dadd(43.08, 296.64, 7.2, 1.104)
pt3dadd(43.057, 296.678, 7.155, 1.148)
pt3dadd(42.99, 296.722, 7.132, 1.192)
pt3dadd(42.917, 296.735, 7.106, 1.218)
pt3dadd(42.841, 296.736, 7.08, 1.236)
pt3dadd(42.765, 296.737, 7.053, 1.254)
pt3dadd(42.696, 296.732, 6.997, 1.226)
pt3dadd(42.626, 296.729, 6.945, 1.198)
pt3dadd(42.551, 296.725, 6.906, 1.182)
pt3dadd(42.477, 296.722, 6.867, 1.166)
pt3dadd(42.402, 296.717, 6.828, 1.15)
pt3dadd(42.327, 296.713, 6.789, 1.132)
pt3dadd(42.253, 296.71, 6.75, 1.116)
pt3dadd(42.178, 296.71, 6.714, 1.098)
pt3dadd(42.103, 296.718, 6.686, 1.072)
pt3dadd(42.028, 296.728, 6.657, 1.048)
pt3dadd(41.952, 296.738, 6.629, 1.022)
pt3dadd(41.877, 296.748, 6.601, 0.998)
pt3dadd(41.802, 296.756, 6.573, 0.972)
pt3dadd(41.73, 296.777, 6.546, 0.952)
pt3dadd(41.67, 296.833, 6.523, 0.942)
pt3dadd(41.61, 296.89, 6.5, 0.932)
pt3dadd(41.55, 296.945, 6.478, 0.922)
pt3dadd(41.489, 297, 6.455, 0.912)
pt3dadd(41.429, 297.056, 6.432, 0.9)
pt3dadd(41.37, 297.114, 6.41, 0.866)
pt3dadd(41.31, 297.17, 6.387, 0.832)
pt3dadd(41.283, 297.263, 6.364, 0.806)
pt3dadd(41.259, 297.359, 6.341, 0.784)
pt3dadd(41.28, 297.469, 6.319, 0.758)
pt3dadd(41.315, 297.586, 6.296, 0.73)
pt3dadd(41.349, 297.701, 6.273, 0.704)
pt3dadd(41.34, 297.78, 6.194, 0.732)
pt3dadd(41.341, 297.859, 6.111, 0.766)
pt3dadd(41.375, 297.935, 6.014, 0.822)
pt3dadd(41.411, 298.044, 5.967, 0.844)
pt3dadd(41.448, 298.158, 5.927, 0.862)
pt3dadd(41.485, 298.273, 5.887, 0.878)
pt3dadd(41.522, 298.387, 5.847, 0.896)
pt3dadd(41.559, 298.5, 5.807, 0.914)
pt3dadd(41.59, 298.613, 5.769, 0.93)
pt3dadd(41.58, 298.717, 5.746, 0.934)
pt3dadd(41.571, 298.82, 5.723, 0.94)
pt3dadd(41.561, 298.924, 5.701, 0.944)
pt3dadd(41.551, 299.027, 5.678, 0.948)
pt3dadd(41.541, 299.131, 5.655, 0.954)
pt3dadd(41.555, 299.243, 5.633, 0.966)
pt3dadd(41.571, 299.356, 5.61, 0.978)
pt3dadd(41.587, 299.468, 5.587, 0.992)
pt3dadd(41.604, 299.581, 5.564, 1.004)
pt3dadd(41.62, 299.695, 5.542, 1.018)
pt3dadd(41.638, 299.807, 5.517, 1.032)
pt3dadd(41.676, 299.917, 5.465, 1.052)
pt3dadd(41.714, 300.029, 5.414, 1.074)
pt3dadd(41.716, 300.133, 5.372, 1.098)
pt3dadd(41.707, 300.234, 5.332, 1.124)
pt3dadd(41.685, 300.33, 5.309, 1.13)
pt3dadd(41.658, 300.422, 5.292, 1.13)
pt3dadd(41.611, 300.48, 5.299, 1.13)
pt3dadd(41.555, 300.517, 5.318, 1.13)
pt3dadd(41.492, 300.562, 5.317, 1.13)
pt3dadd(41.445, 300.598, 5.338, 1.13)
pt3dadd(41.418, 300.623, 5.392, 1.13)
pt3dadd(41.368, 300.654, 5.414, 1.13)
pt3dadd(41.301, 300.688, 5.413, 1.13)
pt3dadd(41.233, 300.724, 5.401, 1.124)
pt3dadd(41.164, 300.76, 5.378, 1.114)
pt3dadd(41.097, 300.8, 5.356, 1.104)
pt3dadd(41.042, 300.864, 5.333, 1.092)
pt3dadd(40.987, 300.929, 5.31, 1.08)
pt3dadd(40.991, 301.033, 5.26, 1.072)
pt3dadd(40.994, 301.138, 5.211, 1.064)
pt3dadd(40.998, 301.242, 5.162, 1.058)
pt3dadd(40.999, 301.349, 5.123, 1.062)
pt3dadd(41, 301.456, 5.09, 1.074)
pt3dadd(41.002, 301.56, 5.044, 1.08)
pt3dadd(40.994, 301.661, 4.999, 1.08)
pt3dadd(40.986, 301.762, 4.954, 1.08)
pt3dadd(40.977, 301.862, 4.91, 1.08)
pt3dadd(40.968, 301.963, 4.865, 1.08)
pt3dadd(40.953, 302.057, 4.815, 1.078)
pt3dadd(40.923, 302.134, 4.752, 1.072)
pt3dadd(40.892, 302.21, 4.688, 1.066)
pt3dadd(40.861, 302.287, 4.625, 1.06)
pt3dadd(40.827, 302.363, 4.57, 1.058)
pt3dadd(40.778, 302.434, 4.547, 1.068)
pt3dadd(40.727, 302.503, 4.524, 1.08)
pt3dadd(40.656, 302.534, 4.496, 1.092)
pt3dadd(40.585, 302.563, 4.469, 1.102)
pt3dadd(40.573, 302.599, 4.38, 1.104)
pt3dadd(40.583, 302.635, 4.267, 1.104)
pt3dadd(40.557, 302.676, 4.175, 1.074)
pt3dadd(40.518, 302.718, 4.09, 1.032)
pt3dadd(40.479, 302.798, 4.065, 0.996)
pt3dadd(40.44, 302.881, 4.042, 0.96)
pt3dadd(40.401, 302.964, 4.02, 0.924)
pt3dadd(40.362, 303.048, 3.997, 0.884)
pt3dadd(40.324, 303.131, 3.974, 0.836)
pt3dadd(40.286, 303.214, 3.957, 0.816)
pt3dadd(40.23, 303.27, 3.953, 0.85)
pt3dadd(40.166, 303.314, 3.949, 0.882)
pt3dadd(40.102, 303.358, 3.945, 0.914)
pt3dadd(40.039, 303.402, 3.941, 0.946)
pt3dadd(39.975, 303.446, 3.937, 0.978)
pt3dadd(39.928, 303.498, 3.962, 1.032)
}
}
proc shape3d_44() {
dend_5[8] { pt3dadd(39.882, 303.547, 3.987, 1.086)
pt3dadd(39.836, 303.599, 4.012, 1.14)
pt3dadd(39.79, 303.649, 4.038, 1.194)
pt3dadd(39.761, 303.673, 4.089, 1.278)
pt3dadd(39.736, 303.689, 4.147, 1.368)
pt3dadd(39.675, 303.721, 4.153, 1.412)
pt3dadd(39.608, 303.757, 4.152, 1.45)
pt3dadd(39.534, 303.761, 4.134, 1.442)
pt3dadd(39.458, 303.756, 4.111, 1.426)
pt3dadd(39.382, 303.752, 4.088, 1.41)
pt3dadd(39.307, 303.749, 4.052, 1.366)
pt3dadd(39.232, 303.745, 4.012, 1.318)
pt3dadd(39.179, 303.744, 3.954, 1.272)
pt3dadd(39.199, 303.758, 3.835, 1.228)
pt3dadd(39.22, 303.772, 3.715, 1.184)
pt3dadd(39.262, 303.816, 3.601, 1.13)
pt3dadd(39.306, 303.844, 3.482, 1.13)
pt3dadd(39.339, 303.875, 3.365, 1.13)
pt3dadd(39.333, 303.952, 3.291, 1.086)
pt3dadd(39.294, 304.034, 3.261, 1.04)
pt3dadd(39.256, 304.118, 3.238, 1.016)
pt3dadd(39.213, 304.194, 3.204, 1.004)
pt3dadd(39.164, 304.261, 3.158, 1.004)
pt3dadd(39.163, 304.344, 3.09, 1.016)
pt3dadd(39.192, 304.436, 3.008, 1.036)
pt3dadd(39.221, 304.528, 2.927, 1.054)
pt3dadd(39.228, 304.636, 2.887, 1.078)
pt3dadd(39.234, 304.745, 2.849, 1.102)
pt3dadd(39.26, 304.799, 2.747, 1.112)
pt3dadd(39.289, 304.842, 2.633, 1.122)
pt3dadd(39.319, 304.885, 2.52, 1.13)
pt3dadd(39.343, 304.934, 2.409, 1.118)
pt3dadd(39.366, 304.985, 2.299, 1.104)
pt3dadd(39.325, 305.047, 2.233, 1.094)
pt3dadd(39.284, 305.112, 2.168, 1.084)
pt3dadd(39.226, 305.156, 2.117, 1.064)
pt3dadd(39.159, 305.192, 2.072, 1.04)
pt3dadd(39.09, 305.203, 2.025, 1.01)
pt3dadd(39.015, 305.2, 1.986, 0.99)
pt3dadd(38.94, 305.196, 1.951, 0.97)
pt3dadd(38.865, 305.192, 1.916, 0.952)
pt3dadd(38.789, 305.188, 1.881, 0.934)
pt3dadd(38.714, 305.184, 1.846, 0.914)
pt3dadd(38.758, 305.18, 1.823, 0.914)
pt3dadd(38.802, 305.177, 1.801, 0.914)
pt3dadd(38.845, 305.172, 1.778, 0.914)
pt3dadd(38.889, 305.168, 1.755, 0.904)
pt3dadd(38.933, 305.165, 1.732, 0.904)
pt3dadd(38.977, 305.161, 1.71, 0.904)
pt3dadd(39.021, 305.232, 1.765, 0.928)
pt3dadd(39.065, 305.303, 1.821, 0.952)
pt3dadd(39.147, 305.374, 1.868, 0.954)
pt3dadd(39.234, 305.448, 1.911, 0.952)
pt3dadd(39.297, 305.554, 1.926, 0.928)
pt3dadd(39.36, 305.659, 1.94, 0.904)
pt3dadd(39.42, 305.773, 1.932, 0.862)
pt3dadd(39.481, 305.887, 1.923, 0.82)
pt3dadd(39.565, 305.993, 1.897, 0.79)
pt3dadd(39.664, 306.094, 1.861, 0.768)
pt3dadd(39.763, 306.196, 1.826, 0.746)
pt3dadd(39.851, 306.287, 1.773, 0.718)
pt3dadd(39.901, 306.34, 1.662, 0.67)
pt3dadd(39.95, 306.389, 1.551, 0.622)
pt3dadd(39.994, 306.413, 1.431, 0.554)
pt3dadd(40.038, 306.425, 1.309, 0.482)
pt3dadd(40.082, 306.444, 1.189, 0.408)
pt3dadd(40.126, 306.486, 1.074, 0.31)
pt3dadd(40.169, 306.517, 0.956, 0.248)
pt3dadd(40.213, 306.553, 0.839, 0.226)
pt3dadd(40.257, 306.632, 0.752, 0.226)
pt3dadd(40.301, 306.628, 0.729, 0.226)
pt3dadd(40.345, 306.742, 0.688, 0.226)
pt3dadd(40.389, 306.858, 0.665, 0.226)
pt3dadd(40.432, 306.974, 0.642, 0.226)
pt3dadd(40.476, 307.09, 0.619, 0.226)
pt3dadd(40.52, 307.206, 0.596, 0.226)
pt3dadd(40.564, 307.322, 0.574, 0.272)
pt3dadd(40.608, 307.439, 0.551, 0.3)
pt3dadd(40.651, 307.554, 0.528, 0.324)
pt3dadd(40.695, 307.67, 0.506, 0.35)
pt3dadd(40.722, 307.777, 0.449, 0.408)
pt3dadd(40.746, 307.883, 0.388, 0.468)
pt3dadd(40.75, 307.945, 0.293, 0.524)
pt3dadd(40.751, 307.999, 0.191, 0.578)
pt3dadd(40.794, 308.077, 0.095, 0.626)
pt3dadd(40.838, 308.155, -0.001, 0.674)
pt3dadd(40.868, 308.218, -0.106, 0.698)
pt3dadd(40.896, 308.278, -0.213, 0.72)
pt3dadd(40.924, 308.338, -0.319, 0.744)
pt3dadd(40.912, 308.365, -0.417, 0.768)
pt3dadd(40.871, 308.368, -0.511, 0.792)
pt3dadd(40.839, 308.411, -0.589, 0.814)
pt3dadd(40.815, 308.492, -0.654, 0.836)
pt3dadd(40.792, 308.576, -0.712, 0.856)
pt3dadd(40.775, 308.677, -0.735, 0.868)
pt3dadd(40.758, 308.776, -0.758, 0.878)
pt3dadd(40.747, 308.874, -0.758, 0.954)
pt3dadd(40.747, 308.965, -0.734, 1.062)
pt3dadd(40.731, 309.056, -0.729, 1.122)
pt3dadd(40.698, 309.144, -0.749, 1.126)
pt3dadd(40.675, 309.239, -0.771, 1.08)
pt3dadd(40.661, 309.34, -0.805, 0.982)
pt3dadd(40.648, 309.385, -0.898, 0.916)
pt3dadd(40.67, 309.386, -1.018, 0.904)
pt3dadd(40.711, 309.395, -1.14, 0.882)
pt3dadd(40.755, 309.448, -1.247, 0.818)
pt3dadd(40.792, 309.557, -1.298, 0.774)
pt3dadd(40.821, 309.671, -1.325, 0.764)
pt3dadd(40.849, 309.786, -1.352, 0.756)
pt3dadd(40.822, 309.872, -1.39, 0.754)
pt3dadd(40.782, 309.952, -1.43, 0.754)
pt3dadd(40.817, 310.061, -1.476, 0.746)
pt3dadd(40.861, 310.172, -1.523, 0.736)
pt3dadd(40.917, 310.28, -1.569, 0.726)
pt3dadd(41.045, 310.361, -1.609, 0.714)
pt3dadd(41.169, 310.436, -1.659, 0.694)
pt3dadd(41.28, 310.516, -1.724, 0.68)
pt3dadd(41.374, 310.618, -1.757, 0.728)
pt3dadd(41.44, 310.732, -1.78, 0.786)
pt3dadd(41.488, 310.848, -1.811, 0.804)
pt3dadd(41.513, 310.954, -1.864, 0.746)
pt3dadd(41.47, 311.004, -1.932, 0.684)
pt3dadd(41.405, 311.045, -1.971, 0.714)
pt3dadd(41.355, 311.116, -1.994, 0.8)
pt3dadd(41.305, 311.185, -2.016, 0.906)
pt3dadd(41.234, 311.215, -2.039, 1.006)
pt3dadd(41.18, 311.264, -2.078, 1.088)
pt3dadd(41.153, 311.345, -2.141, 1.106)
pt3dadd(41.126, 311.424, -2.204, 1.124)
pt3dadd(41.099, 311.504, -2.267, 1.142)
pt3dadd(41.079, 311.59, -2.328, 1.156)
pt3dadd(41.078, 311.69, -2.383, 1.162)
pt3dadd(41.077, 311.79, -2.438, 1.168)
pt3dadd(41.076, 311.891, -2.493, 1.174)
pt3dadd(41.075, 311.992, -2.548, 1.18)
pt3dadd(41.042, 312.059, -2.616, 1.16)
pt3dadd(41.001, 312.115, -2.687, 1.136)
pt3dadd(40.961, 312.174, -2.759, 1.112)
pt3dadd(40.92, 312.232, -2.83, 1.088)
pt3dadd(40.894, 312.301, -2.906, 1.054)
pt3dadd(40.876, 312.377, -2.983, 1.016)
pt3dadd(40.858, 312.451, -3.061, 0.98)
pt3dadd(40.839, 312.527, -3.138, 0.942)
pt3dadd(40.79, 312.568, -3.202, 0.898)
pt3dadd(40.724, 312.59, -3.257, 0.85)
pt3dadd(40.681, 312.654, -3.293, 0.828)
pt3dadd(40.657, 312.749, -3.316, 0.828)
pt3dadd(40.623, 312.833, -3.349, 0.852)
pt3dadd(40.574, 312.9, -3.395, 0.904)
pt3dadd(40.56, 312.937, -3.48, 0.948)
pt3dadd(40.573, 312.952, -3.599, 0.982)
pt3dadd(40.575, 312.99, -3.698, 1.026)
pt3dadd(40.548, 313.07, -3.758, 1.08)
pt3dadd(40.499, 313.12, -3.826, 1.086)
pt3dadd(40.451, 313.17, -3.894, 1.092)
pt3dadd(40.402, 313.222, -3.962, 1.098)
pt3dadd(40.354, 313.272, -4.03, 1.104)
pt3dadd(40.286, 313.309, -4.059, 1.116)
pt3dadd(40.218, 313.348, -4.087, 1.126)
pt3dadd(40.155, 313.364, -4.145, 1.138)
pt3dadd(40.095, 313.374, -4.217, 1.15)
pt3dadd(40.093, 313.417, -4.31, 1.164)
pt3dadd(40.124, 313.48, -4.416, 1.176)
pt3dadd(40.129, 313.567, -4.479, 1.18)
pt3dadd(40.12, 313.669, -4.518, 1.18)
pt3dadd(40.072, 313.723, -4.548, 1.166)
pt3dadd(40, 313.748, -4.57, 1.14)
pt3dadd(39.927, 313.774, -4.593, 1.116)
pt3dadd(39.855, 313.8, -4.616, 1.092)
pt3dadd(39.781, 313.817, -4.64, 1.052)
pt3dadd(39.706, 313.829, -4.668, 0.992)
pt3dadd(39.63, 313.841, -4.695, 0.934)
pt3dadd(39.674, 313.837, -4.717, 0.934)
pt3dadd(39.718, 313.834, -4.74, 0.934)
pt3dadd(39.7, 313.912, -4.806, 0.832)
pt3dadd(39.693, 313.996, -4.882, 0.794)
pt3dadd(39.681, 314.071, -4.961, 0.946)
pt3dadd(39.709, 314.167, -5.038, 1.086)
pt3dadd(39.742, 314.237, -5.136, 1.196)
pt3dadd(39.714, 314.287, -5.224, 1.244)
pt3dadd(39.678, 314.332, -5.309, 1.282)
pt3dadd(39.626, 314.348, -5.389, 1.296)
pt3dadd(39.576, 314.364, -5.471, 1.288)
pt3dadd(39.526, 314.399, -5.541, 1.238)
pt3dadd(39.467, 314.447, -5.593, 1.21)
pt3dadd(39.409, 314.494, -5.646, 1.182)
pt3dadd(39.35, 314.54, -5.699, 1.154)
pt3dadd(39.29, 314.58, -5.753, 1.124)
pt3dadd(39.224, 314.576, -5.815, 1.08)
pt3dadd(39.157, 314.573, -5.876, 1.036)
pt3dadd(39.088, 314.573, -5.934, 1.02)
pt3dadd(39.02, 314.575, -5.991, 1.008)
pt3dadd(38.955, 314.606, -6.038, 1.02)
pt3dadd(38.999, 314.603, -6.06, 1.02)
pt3dadd(38.937, 314.651, -6.099, 1.044)
pt3dadd(38.879, 314.71, -6.129, 1.062)
pt3dadd(38.824, 314.773, -6.152, 1.074)
pt3dadd(38.775, 314.845, -6.174, 1.064)
pt3dadd(38.734, 314.926, -6.197, 1.03)
pt3dadd(38.682, 314.994, -6.22, 1.01)
}
}
proc shape3d_45() {
dend_5[8] { pt3dadd(38.629, 315.062, -6.242, 0.988)
pt3dadd(38.577, 315.131, -6.265, 0.968)
pt3dadd(38.525, 315.198, -6.288, 0.948)
pt3dadd(38.473, 315.266, -6.311, 0.928)
pt3dadd(38.442, 315.356, -6.333, 0.89)
pt3dadd(38.424, 315.455, -6.356, 0.964)
pt3dadd(38.414, 315.559, -6.379, 1.07)
pt3dadd(38.41, 315.664, -6.407, 1.22)
pt3dadd(38.428, 315.764, -6.468, 1.38)
pt3dadd(38.467, 315.805, -6.582, 1.424)
pt3dadd(38.487, 315.811, -6.702, 1.378)
pt3dadd(38.484, 315.806, -6.817, 1.29)
pt3dadd(38.495, 315.803, -6.935, 1.228)
pt3dadd(38.527, 315.799, -7.057, 1.2)
pt3dadd(38.564, 315.796, -7.179, 1.172)
pt3dadd(38.575, 315.791, -7.298, 1.13)
pt3dadd(38.586, 315.787, -7.417, 1.09)
pt3dadd(38.592, 315.784, -7.535, 1.038)
pt3dadd(38.596, 315.78, -7.652, 0.986)
pt3dadd(38.57, 315.778, -7.744, 0.932)
pt3dadd(38.501, 315.78, -7.801, 0.876)
pt3dadd(38.435, 315.791, -7.859, 0.824)
pt3dadd(38.384, 315.846, -7.918, 0.796)
pt3dadd(38.325, 315.887, -7.964, 0.774)
pt3dadd(38.251, 315.906, -7.983, 0.76)
pt3dadd(38.177, 315.924, -8.003, 0.746)
pt3dadd(38.103, 315.943, -8.023, 0.732)
pt3dadd(38.078, 315.913, -7.985, 0.718)
pt3dadd(38.071, 315.866, -7.924, 0.706)
pt3dadd(38.056, 315.84, -7.862, 0.694)
pt3dadd(38.039, 315.816, -7.8, 0.686)
pt3dadd(38.031, 315.775, -7.743, 0.68)
pt3dadd(38.054, 315.682, -7.702, 0.694)
pt3dadd(38.063, 315.613, -7.656, 0.708)
pt3dadd(38.04, 315.605, -7.595, 0.726)
pt3dadd(38.018, 315.596, -7.535, 0.744)
pt3dadd(38.017, 315.592, -7.467, 0.764)
pt3dadd(38.04, 315.594, -7.391, 0.784)
pt3dadd(38.063, 315.595, -7.316, 0.804)
pt3dadd(38.138, 315.656, -7.259, 0.784)
pt3dadd(38.234, 315.745, -7.251, 0.63)
pt3dadd(38.305, 315.858, -7.274, 0.428)
pt3dadd(38.358, 315.974, -7.296, 0.296)
pt3dadd(38.401, 316.091, -7.319, 0.242)
pt3dadd(38.445, 316.205, -7.337, 0.238)
pt3dadd(38.479, 316.3, -7.316, 0.264)
pt3dadd(38.502, 316.372, -7.263, 0.29)
pt3dadd(38.483, 316.441, -7.241, 0.324)
pt3dadd(38.434, 316.508, -7.24, 0.364)
pt3dadd(38.38, 316.571, -7.255, 0.396)
pt3dadd(38.322, 316.632, -7.278, 0.422)
pt3dadd(38.265, 316.693, -7.301, 0.448)
pt3dadd(38.215, 316.758, -7.343, 0.484)
pt3dadd(38.166, 316.825, -7.389, 0.524)
pt3dadd(38.193, 316.83, -7.506, 0.54)
pt3dadd(38.226, 316.83, -7.628, 0.554)
pt3dadd(38.258, 316.829, -7.75, 0.568)
pt3dadd(38.279, 316.835, -7.87, 0.578)
pt3dadd(38.277, 316.85, -7.984, 0.578)
pt3dadd(38.259, 316.873, -8.08, 0.572)
pt3dadd(38.199, 316.915, -8.133, 0.552)
pt3dadd(38.138, 316.958, -8.186, 0.532)
pt3dadd(38.11, 317.034, -8.249, 0.506)
pt3dadd(38.094, 317.12, -8.315, 0.478)
pt3dadd(38.138, 317.116, -8.338, 0.478)
pt3dadd(38.149, 317.129, -8.454, 0.47)
pt3dadd(38.162, 317.138, -8.572, 0.46)
pt3dadd(38.175, 317.148, -8.691, 0.452)
pt3dadd(38.203, 317.146, -8.813, 0.444)
pt3dadd(38.232, 317.141, -8.935, 0.434)
pt3dadd(38.254, 317.141, -9.055, 0.422)
pt3dadd(38.256, 317.15, -9.171, 0.406)
pt3dadd(38.258, 317.161, -9.287, 0.388)
pt3dadd(38.238, 317.188, -9.373, 0.362)
pt3dadd(38.18, 317.245, -9.413, 0.324)
pt3dadd(38.126, 317.309, -9.446, 0.272)
pt3dadd(38.089, 317.352, -9.519, 0.252)
pt3dadd(38.058, 317.381, -9.614, 0.252)
pt3dadd(38.027, 317.412, -9.71, 0.252)
pt3dadd(37.996, 317.442, -9.805, 0.252)
pt3dadd(37.962, 317.488, -9.89, 0.258)
pt3dadd(37.924, 317.551, -9.959, 0.278)
pt3dadd(37.887, 317.616, -10.028, 0.296)
pt3dadd(37.849, 317.681, -10.096, 0.314)
pt3dadd(37.808, 317.747, -10.158, 0.336)
pt3dadd(37.761, 317.815, -10.203, 0.364)
pt3dadd(37.713, 317.885, -10.249, 0.394)
pt3dadd(37.666, 317.954, -10.294, 0.422)
pt3dadd(37.619, 318.023, -10.34, 0.45)
pt3dadd(37.574, 318.1, -10.364, 0.496)
pt3dadd(37.53, 318.178, -10.386, 0.544)
pt3dadd(37.517, 318.271, -10.439, 0.564)
pt3dadd(37.511, 318.367, -10.497, 0.576)
pt3dadd(37.502, 318.425, -10.593, 0.538)
pt3dadd(37.547, 318.467, -10.7, 0.502)
}
dend_5[9] {pt3dclear()
pt3dadd(37.547, 318.467, -10.7, 0.502)
pt3dadd(37.457, 318.494, -10.757, 0.45)
pt3dadd(37.364, 318.524, -10.814, 0.398)
pt3dadd(37.262, 318.58, -10.842, 0.368)
pt3dadd(37.161, 318.635, -10.87, 0.336)
pt3dadd(37.06, 318.69, -10.898, 0.304)
pt3dadd(36.957, 318.75, -10.9, 0.29)
pt3dadd(36.853, 318.811, -10.9, 0.28)
pt3dadd(36.741, 318.853, -10.9, 0.282)
pt3dadd(36.627, 318.888, -10.9, 0.29)
pt3dadd(36.512, 318.924, -10.9, 0.298)
pt3dadd(36.419, 318.872, -10.904, 0.33)
pt3dadd(36.335, 318.787, -10.91, 0.37)
pt3dadd(36.229, 318.784, -10.942, 0.408)
pt3dadd(36.119, 318.797, -10.98, 0.444)
pt3dadd(36.04, 318.816, -10.927, 0.482)
pt3dadd(35.972, 318.836, -10.847, 0.52)
pt3dadd(35.934, 318.851, -10.754, 0.542)
pt3dadd(35.903, 318.864, -10.658, 0.558)
pt3dadd(35.872, 318.877, -10.562, 0.574)
pt3dadd(35.826, 318.914, -10.476, 0.588)
pt3dadd(35.775, 318.958, -10.392, 0.602)
pt3dadd(35.759, 318.956, -10.294, 0.602)
pt3dadd(35.743, 318.953, -10.195, 0.602)
pt3dadd(35.728, 318.949, -10.096, 0.602)
pt3dadd(35.687, 318.917, -10.014, 0.61)
pt3dadd(35.618, 318.856, -9.95, 0.624)
pt3dadd(35.53, 318.787, -9.919, 0.628)
pt3dadd(35.439, 318.719, -9.934, 0.628)
pt3dadd(35.37, 318.65, -9.992, 0.622)
pt3dadd(35.31, 318.608, -10.068, 0.662)
pt3dadd(35.285, 318.6, -10.165, 0.678)
pt3dadd(35.267, 318.6, -10.264, 0.678)
pt3dadd(35.246, 318.6, -10.362, 0.678)
pt3dadd(35.22, 318.6, -10.457, 0.678)
pt3dadd(35.102, 318.606, -10.474, 0.688)
pt3dadd(34.984, 318.611, -10.492, 0.698)
pt3dadd(34.902, 318.666, -10.524, 0.72)
pt3dadd(34.847, 318.761, -10.565, 0.752)
pt3dadd(34.8, 318.848, -10.614, 0.788)
pt3dadd(34.8, 318.902, -10.704, 0.844)
pt3dadd(34.8, 318.955, -10.793, 0.9)
pt3dadd(34.8, 319.01, -10.882, 1.034)
pt3dadd(34.8, 319.072, -10.968, 1.056)
pt3dadd(34.8, 319.132, -11.054, 1.08)
pt3dadd(34.736, 319.225, -11.085, 1.052)
pt3dadd(34.672, 319.308, -11.123, 1.02)
pt3dadd(34.616, 319.314, -11.212, 0.95)
pt3dadd(34.56, 319.32, -11.3, 0.878)
pt3dadd(34.52, 319.32, -11.394, 0.804)
pt3dadd(34.481, 319.32, -11.489, 0.73)
pt3dadd(34.421, 319.338, -11.572, 0.642)
pt3dadd(34.35, 319.367, -11.649, 0.548)
pt3dadd(34.32, 319.459, -11.69, 0.396)
pt3dadd(34.32, 319.579, -11.7, 0.294)
pt3dadd(34.32, 319.699, -11.7, 0.248)
pt3dadd(34.32, 319.819, -11.7, 0.226)
pt3dadd(34.318, 319.939, -11.7, 0.226)
pt3dadd(34.298, 320.057, -11.7, 0.226)
pt3dadd(34.246, 320.162, -11.7, 0.226)
pt3dadd(34.157, 320.242, -11.7, 0.226)
pt3dadd(34.041, 320.27, -11.7, 0.226)
pt3dadd(33.921, 320.28, -11.7, 0.226)
pt3dadd(33.801, 320.28, -11.7, 0.226)
pt3dadd(33.686, 320.298, -11.698, 0.226)
pt3dadd(33.58, 320.354, -11.693, 0.226)
pt3dadd(33.492, 320.42, -11.681, 0.228)
pt3dadd(33.486, 320.53, -11.641, 0.24)
pt3dadd(33.48, 320.639, -11.6, 0.252)
pt3dadd(33.448, 320.704, -11.52, 0.262)
pt3dadd(33.416, 320.767, -11.44, 0.272)
pt3dadd(33.375, 320.821, -11.358, 0.282)
pt3dadd(33.325, 320.864, -11.275, 0.296)
pt3dadd(33.25, 320.929, -11.233, 0.294)
pt3dadd(33.162, 321.008, -11.216, 0.286)
pt3dadd(33.074, 321.088, -11.2, 0.276)
pt3dadd(32.992, 321.175, -11.2, 0.264)
pt3dadd(32.91, 321.263, -11.2, 0.252)
pt3dadd(32.832, 321.349, -11.209, 0.228)
pt3dadd(32.743, 321.416, -11.246, 0.234)
pt3dadd(32.653, 321.484, -11.283, 0.24)
pt3dadd(32.564, 321.55, -11.321, 0.246)
pt3dadd(32.475, 321.617, -11.358, 0.252)
pt3dadd(32.385, 321.677, -11.402, 0.28)
pt3dadd(32.296, 321.738, -11.443, 0.312)
pt3dadd(32.206, 321.805, -11.481, 0.354)
pt3dadd(32.127, 321.869, -11.531, 0.398)
pt3dadd(32.058, 321.931, -11.594, 0.44)
pt3dadd(32.005, 321.966, -11.677, 0.498)
pt3dadd(31.958, 321.992, -11.766, 0.562)
pt3dadd(31.914, 322.018, -11.857, 0.616)
pt3dadd(31.871, 322.04, -11.948, 0.668)
pt3dadd(31.828, 322.064, -12.04, 0.72)
pt3dadd(31.795, 322.08, -12.134, 0.776)
pt3dadd(31.78, 322.08, -12.233, 0.84)
pt3dadd(31.765, 322.08, -12.332, 0.906)
pt3dadd(31.725, 322.08, -12.425, 0.962)
pt3dadd(31.668, 322.08, -12.513, 0.994)
pt3dadd(31.581, 322.09, -12.578, 0.886)
pt3dadd(31.485, 322.147, -12.598, 0.708)
pt3dadd(31.434, 322.25, -12.573, 0.534)
pt3dadd(31.365, 322.325, -12.544, 0.394)
pt3dadd(31.279, 322.392, -12.586, 0.368)
pt3dadd(31.194, 322.459, -12.627, 0.342)
pt3dadd(31.108, 322.528, -12.669, 0.314)
}
}
proc shape3d_46() {
dend_5[9] { pt3dadd(31.016, 322.592, -12.702, 0.296)
pt3dadd(30.919, 322.657, -12.727, 0.284)
pt3dadd(30.822, 322.721, -12.753, 0.272)
pt3dadd(30.725, 322.784, -12.778, 0.262)
pt3dadd(30.629, 322.849, -12.8, 0.25)
pt3dadd(30.541, 322.932, -12.8, 0.238)
pt3dadd(30.454, 323.014, -12.8, 0.226)
pt3dadd(30.379, 323.095, -12.837, 0.254)
pt3dadd(30.303, 323.173, -12.879, 0.288)
pt3dadd(30.227, 323.234, -12.937, 0.346)
pt3dadd(30.146, 323.27, -13.001, 0.412)
pt3dadd(30.061, 323.276, -13.071, 0.486)
pt3dadd(30.008, 323.281, -13.154, 0.536)
pt3dadd(29.996, 323.285, -13.254, 0.56)
pt3dadd(29.984, 323.287, -13.353, 0.582)
pt3dadd(29.972, 323.29, -13.453, 0.604)
pt3dadd(29.961, 323.293, -13.552, 0.626)
pt3dadd(29.897, 323.366, -13.503, 0.668)
pt3dadd(29.88, 323.398, -13.415, 0.678)
pt3dadd(29.821, 323.459, -13.449, 0.666)
pt3dadd(29.754, 323.521, -13.51, 0.648)
pt3dadd(29.698, 323.527, -13.598, 0.614)
pt3dadd(29.642, 323.533, -13.687, 0.578)
pt3dadd(29.544, 323.598, -13.7, 0.542)
pt3dadd(29.444, 323.664, -13.711, 0.504)
pt3dadd(29.349, 323.716, -13.752, 0.476)
pt3dadd(29.25, 323.76, -13.787, 0.454)
pt3dadd(29.131, 323.76, -13.774, 0.476)
pt3dadd(29.012, 323.76, -13.76, 0.496)
pt3dadd(28.955, 323.791, -13.696, 0.51)
pt3dadd(28.929, 323.839, -13.606, 0.524)
pt3dadd(28.92, 323.917, -13.535, 0.552)
pt3dadd(28.92, 324.032, -13.509, 0.494)
pt3dadd(28.92, 324.151, -13.503, 0.43)
pt3dadd(28.92, 324.266, -13.528, 0.34)
pt3dadd(28.907, 324.344, -13.597, 0.278)
pt3dadd(28.833, 324.406, -13.655, 0.29)
pt3dadd(28.76, 324.475, -13.692, 0.31)
pt3dadd(28.701, 324.57, -13.655, 0.352)
pt3dadd(28.65, 324.668, -13.619, 0.424)
pt3dadd(28.578, 324.748, -13.645, 0.462)
pt3dadd(28.497, 324.818, -13.69, 0.474)
pt3dadd(28.417, 324.889, -13.735, 0.488)
pt3dadd(28.336, 324.959, -13.78, 0.5)
pt3dadd(28.262, 325.018, -13.841, 0.508)
pt3dadd(28.191, 325.073, -13.907, 0.514)
pt3dadd(28.119, 325.129, -13.972, 0.52)
pt3dadd(28.047, 325.184, -14.037, 0.526)
pt3dadd(27.98, 325.262, -14.087, 0.522)
pt3dadd(27.916, 325.35, -14.129, 0.516)
pt3dadd(27.851, 325.436, -14.173, 0.51)
pt3dadd(27.787, 325.524, -14.215, 0.504)
pt3dadd(27.743, 325.606, -14.275, 0.502)
pt3dadd(27.715, 325.685, -14.347, 0.502)
pt3dadd(27.657, 325.776, -14.379, 0.502)
pt3dadd(27.588, 325.872, -14.396, 0.502)
pt3dadd(27.505, 325.957, -14.4, 0.512)
pt3dadd(27.417, 326.039, -14.4, 0.524)
pt3dadd(27.314, 326.098, -14.4, 0.52)
pt3dadd(27.203, 326.143, -14.4, 0.51)
pt3dadd(27.093, 326.19, -14.403, 0.496)
pt3dadd(26.982, 326.237, -14.41, 0.478)
pt3dadd(26.891, 326.293, -14.453, 0.472)
pt3dadd(26.801, 326.351, -14.498, 0.466)
pt3dadd(26.711, 326.41, -14.544, 0.46)
pt3dadd(26.621, 326.467, -14.589, 0.454)
pt3dadd(26.542, 326.548, -14.618, 0.456)
pt3dadd(26.465, 326.636, -14.64, 0.462)
pt3dadd(26.389, 326.725, -14.663, 0.468)
pt3dadd(26.313, 326.814, -14.686, 0.474)
pt3dadd(26.247, 326.906, -14.714, 0.488)
pt3dadd(26.196, 327.007, -14.75, 0.514)
pt3dadd(26.146, 327.107, -14.786, 0.542)
pt3dadd(26.096, 327.208, -14.822, 0.568)
pt3dadd(26.02, 327.286, -14.858, 0.588)
pt3dadd(25.931, 327.352, -14.896, 0.6)
pt3dadd(25.853, 327.414, -14.951, 0.602)
pt3dadd(25.774, 327.468, -15.009, 0.606)
pt3dadd(25.685, 327.478, -15.075, 0.624)
pt3dadd(25.581, 327.517, -15.107, 0.638)
pt3dadd(25.474, 327.564, -15.129, 0.65)
pt3dadd(25.413, 327.654, -15.162, 0.664)
pt3dadd(25.363, 327.755, -15.198, 0.678)
pt3dadd(25.346, 327.872, -15.2, 0.686)
pt3dadd(25.331, 327.991, -15.2, 0.696)
pt3dadd(25.312, 328.11, -15.2, 0.708)
pt3dadd(25.278, 328.225, -15.2, 0.73)
pt3dadd(25.245, 328.34, -15.2, 0.75)
pt3dadd(25.207, 328.454, -15.2, 0.788)
pt3dadd(25.168, 328.567, -15.2, 0.832)
pt3dadd(25.096, 328.652, -15.2, 0.918)
pt3dadd(24.98, 328.678, -15.2, 1.036)
pt3dadd(24.861, 328.68, -15.21, 1.102)
pt3dadd(24.759, 328.68, -15.259, 1.13)
pt3dadd(24.684, 328.68, -15.337, 1.096)
pt3dadd(24.58, 328.68, -15.381, 1.048)
pt3dadd(24.467, 328.68, -15.414, 1.004)
pt3dadd(24.366, 328.711, -15.449, 0.944)
pt3dadd(24.284, 328.786, -15.486, 0.86)
pt3dadd(24.25, 328.884, -15.522, 0.794)
pt3dadd(24.244, 328.997, -15.556, 0.738)
pt3dadd(24.24, 329.106, -15.597, 0.686)
pt3dadd(24.24, 329.209, -15.648, 0.64)
pt3dadd(24.233, 329.314, -15.684, 0.6)
pt3dadd(24.196, 329.424, -15.661, 0.584)
pt3dadd(24.159, 329.534, -15.637, 0.568)
pt3dadd(24.123, 329.646, -15.613, 0.554)
pt3dadd(24.061, 329.748, -15.606, 0.552)
pt3dadd(23.997, 329.85, -15.601, 0.552)
pt3dadd(23.948, 329.958, -15.606, 0.566)
pt3dadd(23.903, 330.061, -15.632, 0.578)
pt3dadd(23.861, 330.109, -15.713, 0.518)
pt3dadd(23.817, 330.12, -15.805, 0.462)
pt3dadd(23.777, 330.12, -15.899, 0.43)
pt3dadd(23.76, 330.12, -15.998, 0.402)
pt3dadd(23.744, 330.12, -16.097, 0.352)
pt3dadd(23.699, 330.12, -16.188, 0.342)
pt3dadd(23.624, 330.12, -16.266, 0.326)
pt3dadd(23.535, 330.122, -16.332, 0.27)
pt3dadd(23.448, 330.167, -16.385, 0.23)
pt3dadd(23.382, 330.263, -16.4, 0.226)
pt3dadd(23.297, 330.347, -16.4, 0.244)
pt3dadd(23.207, 330.425, -16.4, 0.346)
pt3dadd(23.168, 330.536, -16.4, 0.492)
pt3dadd(23.16, 330.656, -16.4, 0.552)
pt3dadd(23.16, 330.776, -16.4, 0.54)
pt3dadd(23.16, 330.896, -16.4, 0.516)
pt3dadd(23.16, 331.016, -16.4, 0.49)
pt3dadd(23.153, 331.135, -16.4, 0.464)
pt3dadd(23.138, 331.255, -16.4, 0.436)
pt3dadd(23.123, 331.374, -16.4, 0.408)
pt3dadd(23.055, 331.465, -16.413, 0.402)
pt3dadd(22.971, 331.549, -16.431, 0.402)
pt3dadd(22.943, 331.606, -16.51, 0.412)
pt3dadd(22.923, 331.658, -16.598, 0.426)
pt3dadd(22.891, 331.717, -16.681, 0.44)
pt3dadd(22.857, 331.777, -16.763, 0.456)
pt3dadd(22.823, 331.837, -16.845, 0.472)
pt3dadd(22.78, 331.933, -16.878, 0.486)
pt3dadd(22.735, 332.042, -16.895, 0.498)
pt3dadd(22.698, 332.155, -16.9, 0.542)
pt3dadd(22.665, 332.272, -16.901, 0.58)
pt3dadd(22.618, 332.376, -16.923, 0.628)
pt3dadd(22.55, 332.453, -16.972, 0.584)
pt3dadd(22.483, 332.543, -17.009, 0.504)
pt3dadd(22.447, 332.614, -17.077, 0.514)
pt3dadd(22.44, 332.636, -17.175, 0.51)
pt3dadd(22.429, 332.64, -17.274, 0.482)
pt3dadd(22.398, 332.64, -17.37, 0.45)
pt3dadd(22.35, 332.64, -17.462, 0.418)
pt3dadd(22.317, 332.64, -17.558, 0.386)
pt3dadd(22.27, 332.64, -17.649, 0.376)
pt3dadd(22.172, 332.67, -17.694, 0.33)
pt3dadd(22.1, 332.759, -17.7, 0.26)
pt3dadd(22.065, 332.874, -17.7, 0.256)
pt3dadd(22.027, 332.987, -17.7, 0.368)
pt3dadd(21.99, 333.091, -17.674, 0.49)
pt3dadd(21.969, 333.193, -17.624, 0.568)
pt3dadd(21.923, 333.272, -17.566, 0.648)
pt3dadd(21.854, 333.334, -17.502, 0.736)
pt3dadd(21.766, 333.364, -17.441, 0.8)
pt3dadd(21.673, 333.384, -17.38, 0.858)
pt3dadd(21.575, 333.408, -17.33, 0.918)
pt3dadd(21.463, 333.445, -17.314, 0.976)
pt3dadd(21.35, 333.48, -17.302, 1.034)
pt3dadd(21.235, 333.48, -17.33, 1.08)
pt3dadd(21.148, 333.48, -17.386, 1.12)
pt3dadd(21.123, 333.48, -17.483, 1.13)
pt3dadd(21.12, 333.492, -17.582, 1.13)
pt3dadd(21.116, 333.552, -17.665, 1.144)
pt3dadd(21.087, 333.659, -17.697, 1.254)
pt3dadd(21.007, 333.743, -17.714, 1.344)
pt3dadd(20.916, 333.818, -17.731, 1.422)
pt3dadd(20.833, 333.894, -17.767, 1.482)
pt3dadd(20.754, 333.968, -17.807, 1.534)
pt3dadd(20.703, 334.042, -17.874, 1.556)
pt3dadd(20.652, 334.116, -17.94, 1.578)
pt3dadd(20.624, 334.207, -17.999, 1.582)
pt3dadd(20.604, 334.303, -18.057, 1.582)
pt3dadd(20.529, 334.376, -18.099, 1.576)
pt3dadd(20.453, 334.453, -18.143, 1.546)
pt3dadd(20.392, 334.544, -18.174, 1.508)
pt3dadd(20.347, 334.654, -18.19, 1.46)
pt3dadd(20.29, 334.757, -18.2, 1.394)
pt3dadd(20.215, 334.852, -18.2, 1.3)
pt3dadd(20.14, 334.942, -18.19, 1.2)
pt3dadd(20.065, 335.024, -18.153, 1.088)
pt3dadd(19.971, 335.083, -18.129, 1.006)
pt3dadd(19.857, 335.119, -18.12, 0.96)
pt3dadd(19.743, 335.155, -18.111, 0.912)
pt3dadd(19.629, 335.19, -18.102, 0.866)
pt3dadd(19.538, 335.239, -18.142, 0.822)
pt3dadd(19.455, 335.292, -18.199, 0.78)
pt3dadd(19.449, 335.332, -18.293, 0.778)
pt3dadd(19.445, 335.371, -18.388, 0.778)
pt3dadd(19.44, 335.411, -18.482, 0.778)
pt3dadd(19.421, 335.502, -18.542, 0.802)
pt3dadd(19.4, 335.599, -18.599, 0.828)
pt3dadd(19.373, 335.699, -18.65, 0.89)
pt3dadd(19.345, 335.798, -18.701, 0.952)
}
}
proc shape3d_47() {
dend_5[9] { pt3dadd(19.388, 335.866, -18.75, 1.026)
pt3dadd(19.483, 335.909, -18.799, 1.11)
pt3dadd(19.521, 335.957, -18.879, 1.164)
pt3dadd(19.541, 336.005, -18.969, 1.21)
pt3dadd(19.559, 336.056, -19.056, 1.256)
pt3dadd(19.512, 336.163, -19.079, 1.242)
pt3dadd(19.463, 336.268, -19.101, 1.23)
pt3dadd(19.356, 336.304, -19.135, 1.21)
pt3dadd(19.248, 336.34, -19.169, 1.192)
pt3dadd(19.139, 336.378, -19.191, 1.17)
pt3dadd(19.027, 336.419, -19.196, 1.148)
pt3dadd(18.928, 336.473, -19.2, 1.13)
pt3dadd(18.895, 336.588, -19.2, 1.13)
pt3dadd(18.862, 336.704, -19.2, 1.13)
pt3dadd(18.829, 336.82, -19.2, 1.13)
pt3dadd(18.73, 336.883, -19.2, 1.13)
pt3dadd(18.627, 336.944, -19.2, 1.13)
pt3dadd(18.511, 336.971, -19.2, 1.13)
pt3dadd(18.438, 337.056, -19.217, 1.126)
pt3dadd(18.373, 337.154, -19.236, 1.12)
pt3dadd(18.308, 337.252, -19.256, 1.114)
pt3dadd(18.242, 337.35, -19.276, 1.108)
pt3dadd(18.183, 337.445, -19.308, 1.1)
pt3dadd(18.135, 337.535, -19.361, 1.088)
pt3dadd(18.087, 337.624, -19.414, 1.076)
pt3dadd(18.039, 337.714, -19.467, 1.064)
pt3dadd(17.989, 337.789, -19.527, 1.044)
pt3dadd(17.931, 337.802, -19.613, 0.982)
pt3dadd(17.879, 337.826, -19.696, 0.92)
pt3dadd(17.873, 337.928, -19.749, 0.848)
pt3dadd(17.864, 338.029, -19.8, 0.776)
pt3dadd(17.765, 338.096, -19.8, 0.694)
pt3dadd(17.666, 338.165, -19.8, 0.614)
pt3dadd(17.577, 338.244, -19.8, 0.572)
pt3dadd(17.489, 338.327, -19.8, 0.536)
pt3dadd(17.381, 338.371, -19.8, 0.528)
pt3dadd(17.266, 338.405, -19.805, 0.528)
pt3dadd(17.161, 338.44, -19.841, 0.54)
pt3dadd(17.055, 338.474, -19.878, 0.55)
pt3dadd(16.949, 338.51, -19.915, 0.562)
pt3dadd(16.843, 338.545, -19.952, 0.574)
pt3dadd(16.737, 338.588, -19.981, 0.578)
pt3dadd(16.631, 338.636, -20.005, 0.578)
pt3dadd(16.525, 338.684, -20.029, 0.578)
pt3dadd(16.419, 338.734, -20.053, 0.578)
pt3dadd(16.316, 338.788, -20.057, 0.57)
pt3dadd(16.218, 338.851, -20.034, 0.554)
pt3dadd(16.165, 338.95, -20.068, 0.552)
pt3dadd(16.114, 339.049, -20.1, 0.552)
pt3dadd(16.053, 339.154, -20.1, 0.552)
pt3dadd(15.992, 339.257, -20.1, 0.552)
pt3dadd(15.917, 339.322, -20.048, 0.526)
pt3dadd(15.844, 339.39, -19.995, 0.496)
pt3dadd(15.786, 339.488, -19.965, 0.454)
pt3dadd(15.727, 339.587, -19.935, 0.412)
pt3dadd(15.67, 339.685, -19.919, 0.37)
pt3dadd(15.619, 339.78, -19.962, 0.328)
pt3dadd(15.573, 339.882, -19.995, 0.288)
pt3dadd(15.549, 339.99, -20.029, 0.284)
pt3dadd(15.532, 340.097, -20.073, 0.294)
pt3dadd(15.515, 340.202, -20.118, 0.304)
pt3dadd(15.499, 340.309, -20.162, 0.314)
pt3dadd(15.482, 340.416, -20.206, 0.326)
pt3dadd(15.459, 340.523, -20.243, 0.366)
pt3dadd(15.399, 340.6, -20.301, 0.428)
pt3dadd(15.33, 340.67, -20.358, 0.452)
pt3dadd(15.261, 340.739, -20.416, 0.426)
pt3dadd(15.176, 340.789, -20.47, 0.466)
pt3dadd(15.06, 340.8, -20.489, 0.59)
pt3dadd(14.945, 340.811, -20.47, 0.65)
pt3dadd(14.887, 340.858, -20.397, 0.606)
pt3dadd(14.88, 340.914, -20.309, 0.556)
pt3dadd(14.856, 340.975, -20.227, 0.492)
pt3dadd(14.783, 341.028, -20.165, 0.45)
pt3dadd(14.687, 341.071, -20.118, 0.41)
pt3dadd(14.601, 341.149, -20.1, 0.42)
pt3dadd(14.543, 341.251, -20.107, 0.542)
pt3dadd(14.52, 341.363, -20.135, 0.654)
pt3dadd(14.52, 341.471, -20.179, 0.722)
pt3dadd(14.52, 341.57, -20.233, 0.81)
pt3dadd(14.52, 341.648, -20.309, 0.912)
pt3dadd(14.513, 341.737, -20.37, 0.958)
pt3dadd(14.497, 341.849, -20.406, 0.968)
pt3dadd(14.481, 341.959, -20.442, 0.978)
pt3dadd(14.465, 342.07, -20.478, 0.988)
pt3dadd(14.449, 342.181, -20.514, 0.998)
pt3dadd(14.427, 342.286, -20.558, 1.004)
pt3dadd(14.399, 342.384, -20.61, 1.004)
pt3dadd(14.356, 342.484, -20.651, 0.996)
pt3dadd(14.302, 342.583, -20.684, 0.982)
pt3dadd(14.224, 342.656, -20.652, 0.908)
pt3dadd(14.138, 342.72, -20.612, 0.822)
pt3dadd(14.019, 342.72, -20.626, 0.742)
pt3dadd(13.9, 342.72, -20.639, 0.66)
pt3dadd(13.814, 342.744, -20.691, 0.582)
pt3dadd(13.748, 342.784, -20.768, 0.508)
pt3dadd(13.682, 342.823, -20.845, 0.434)
pt3dadd(13.603, 342.84, -20.916, 0.368)
pt3dadd(13.515, 342.84, -20.984, 0.31)
pt3dadd(13.432, 342.877, -21.037, 0.266)
pt3dadd(13.355, 342.96, -21.069, 0.246)
pt3dadd(13.277, 343.043, -21.1, 0.226)
pt3dadd(13.195, 343.132, -21.1, 0.226)
pt3dadd(13.114, 343.219, -21.1, 0.226)
pt3dadd(13.016, 343.283, -21.1, 0.226)
pt3dadd(12.897, 343.298, -21.1, 0.226)
pt3dadd(12.778, 343.313, -21.1, 0.226)
pt3dadd(12.665, 343.348, -21.1, 0.232)
pt3dadd(12.558, 343.402, -21.1, 0.242)
pt3dadd(12.467, 343.47, -21.1, 0.26)
pt3dadd(12.42, 343.582, -21.1, 0.294)
pt3dadd(12.374, 343.692, -21.1, 0.326)
pt3dadd(12.363, 343.81, -21.087, 0.376)
pt3dadd(12.352, 343.928, -21.073, 0.426)
pt3dadd(12.318, 344.027, -21.038, 0.506)
pt3dadd(12.265, 344.102, -20.975, 0.62)
pt3dadd(12.24, 344.166, -20.893, 0.71)
pt3dadd(12.24, 344.249, -20.821, 0.806)
pt3dadd(12.24, 344.351, -20.771, 0.92)
pt3dadd(12.237, 344.459, -20.728, 0.974)
pt3dadd(12.199, 344.567, -20.703, 0.92)
pt3dadd(12.104, 344.629, -20.716, 0.778)
pt3dadd(11.996, 344.648, -20.755, 0.58)
pt3dadd(11.895, 344.692, -20.791, 0.38)
pt3dadd(11.807, 344.771, -20.8, 0.266)
pt3dadd(11.717, 344.846, -20.782, 0.246)
pt3dadd(11.629, 344.923, -20.759, 0.24)
pt3dadd(11.54, 344.999, -20.736, 0.236)
pt3dadd(11.452, 345.076, -20.713, 0.23)
pt3dadd(11.365, 345.155, -20.7, 0.226)
pt3dadd(11.28, 345.24, -20.7, 0.226)
}
dend_5[10] {pt3dclear()
pt3dadd(37.547, 318.467, -10.7, 0.502)
pt3dadd(37.549, 318.484, -10.694, 0.52)
pt3dadd(37.562, 318.593, -10.653, 0.628)
pt3dadd(37.575, 318.702, -10.613, 0.736)
pt3dadd(37.588, 318.811, -10.572, 0.846)
pt3dadd(37.601, 318.919, -10.532, 0.954)
pt3dadd(37.614, 319.028, -10.491, 1.064)
pt3dadd(37.627, 319.138, -10.451, 1.172)
pt3dadd(37.641, 319.247, -10.41, 1.28)
pt3dadd(37.654, 319.355, -10.37, 1.39)
pt3dadd(37.667, 319.464, -10.329, 1.498)
pt3dadd(37.68, 319.573, -10.289, 1.608)
pt3dadd(37.68, 319.603, -10.34, 1.646)
pt3dadd(37.661, 319.698, -10.392, 1.702)
pt3dadd(37.616, 319.808, -10.4, 1.636)
pt3dadd(37.586, 319.912, -10.436, 1.58)
pt3dadd(37.565, 320.014, -10.487, 1.542)
pt3dadd(37.555, 320.118, -10.534, 1.524)
pt3dadd(37.549, 320.224, -10.581, 1.512)
pt3dadd(37.527, 320.335, -10.6, 1.488)
pt3dadd(37.506, 320.431, -10.65, 1.472)
pt3dadd(37.489, 320.522, -10.714, 1.462)
pt3dadd(37.471, 320.614, -10.777, 1.45)
pt3dadd(37.453, 320.705, -10.841, 1.44)
pt3dadd(37.441, 320.8, -10.899, 1.428)
pt3dadd(37.443, 320.91, -10.939, 1.414)
pt3dadd(37.446, 321.019, -10.979, 1.398)
pt3dadd(37.448, 321.13, -11.02, 1.384)
pt3dadd(37.451, 321.239, -11.06, 1.37)
pt3dadd(37.454, 321.348, -11.1, 1.354)
pt3dadd(37.518, 321.448, -11.1, 1.262)
pt3dadd(37.613, 321.522, -11.1, 1.21)
pt3dadd(37.671, 321.619, -11.121, 1.198)
pt3dadd(37.68, 321.707, -11.186, 1.162)
pt3dadd(37.68, 321.785, -11.26, 1.13)
pt3dadd(37.68, 321.896, -11.293, 1.13)
pt3dadd(37.673, 322.015, -11.3, 1.13)
pt3dadd(37.636, 322.128, -11.3, 1.112)
pt3dadd(37.538, 322.188, -11.3, 1.048)
pt3dadd(37.419, 322.202, -11.3, 0.964)
pt3dadd(37.312, 322.235, -11.287, 0.892)
pt3dadd(37.236, 322.31, -11.243, 0.848)
pt3dadd(37.2, 322.393, -11.186, 0.81)
pt3dadd(37.2, 322.481, -11.118, 0.774)
pt3dadd(37.2, 322.577, -11.06, 0.74)
pt3dadd(37.2, 322.685, -11.015, 0.706)
pt3dadd(37.2, 322.802, -11, 0.678)
pt3dadd(37.2, 322.922, -11, 0.704)
pt3dadd(37.2, 323.04, -11.017, 0.8)
pt3dadd(37.2, 323.128, -11.078, 0.98)
pt3dadd(37.2, 323.156, -11.174, 1.144)
pt3dadd(37.195, 323.201, -11.265, 1.224)
pt3dadd(37.189, 323.257, -11.353, 1.282)
pt3dadd(37.158, 323.342, -11.406, 1.322)
pt3dadd(37.109, 323.447, -11.435, 1.348)
pt3dadd(37.061, 323.49, -11.506, 1.35)
pt3dadd(37.014, 323.504, -11.597, 1.342)
pt3dadd(36.966, 323.518, -11.688, 1.332)
pt3dadd(36.879, 323.52, -11.754, 1.27)
pt3dadd(36.785, 323.52, -11.816, 1.2)
pt3dadd(36.718, 323.527, -11.897, 1.114)
pt3dadd(36.657, 323.556, -11.975, 1.026)
pt3dadd(36.611, 323.653, -12.015, 1.058)
pt3dadd(36.6, 323.764, -12.051, 1.052)
pt3dadd(36.6, 323.876, -12.085, 0.906)
pt3dadd(36.6, 323.994, -12.099, 0.76)
pt3dadd(36.574, 324.112, -12.1, 0.75)
pt3dadd(36.546, 324.228, -12.1, 0.744)
pt3dadd(36.519, 324.346, -12.1, 0.74)
}
}
proc shape3d_48() {
dend_5[10] { pt3dadd(36.491, 324.462, -12.1, 0.736)
pt3dadd(36.464, 324.578, -12.1, 0.732)
pt3dadd(36.432, 324.692, -12.104, 0.732)
pt3dadd(36.365, 324.784, -12.139, 0.762)
pt3dadd(36.299, 324.875, -12.173, 0.792)
pt3dadd(36.233, 324.966, -12.207, 0.822)
pt3dadd(36.167, 325.057, -12.241, 0.85)
pt3dadd(36.121, 325.112, -12.319, 0.926)
pt3dadd(36.078, 325.163, -12.402, 1.006)
pt3dadd(36.009, 325.24, -12.453, 1.064)
pt3dadd(35.946, 325.32, -12.473, 1.11)
pt3dadd(35.897, 325.409, -12.419, 1.124)
pt3dadd(35.88, 325.513, -12.378, 1.11)
pt3dadd(35.88, 325.626, -12.345, 1.08)
pt3dadd(35.842, 325.682, -12.426, 1.048)
pt3dadd(35.803, 325.738, -12.509, 1.016)
pt3dadd(35.764, 325.794, -12.591, 0.982)
pt3dadd(35.67, 325.854, -12.615, 0.912)
pt3dadd(35.568, 325.915, -12.632, 0.836)
pt3dadd(35.548, 326.027, -12.653, 0.798)
pt3dadd(35.535, 326.143, -12.675, 0.766)
pt3dadd(35.522, 326.26, -12.696, 0.734)
pt3dadd(35.52, 326.38, -12.7, 0.714)
pt3dadd(35.52, 326.5, -12.7, 0.698)
pt3dadd(35.52, 326.62, -12.7, 0.68)
pt3dadd(35.52, 326.74, -12.7, 0.678)
pt3dadd(35.537, 326.857, -12.705, 0.678)
pt3dadd(35.558, 326.976, -12.711, 0.678)
pt3dadd(35.579, 327.094, -12.716, 0.678)
pt3dadd(35.6, 327.211, -12.722, 0.678)
pt3dadd(35.62, 327.33, -12.728, 0.678)
pt3dadd(35.64, 327.446, -12.736, 0.678)
pt3dadd(35.64, 327.552, -12.783, 0.678)
pt3dadd(35.64, 327.658, -12.831, 0.678)
pt3dadd(35.64, 327.764, -12.878, 0.678)
pt3dadd(35.64, 327.87, -12.926, 0.678)
pt3dadd(35.64, 327.976, -12.973, 0.678)
pt3dadd(35.617, 328.08, -13.017, 0.678)
pt3dadd(35.59, 328.184, -13.06, 0.678)
pt3dadd(35.564, 328.29, -13.104, 0.678)
pt3dadd(35.538, 328.394, -13.148, 0.678)
pt3dadd(35.514, 328.492, -13.201, 0.678)
pt3dadd(35.497, 328.571, -13.274, 0.678)
pt3dadd(35.479, 328.65, -13.348, 0.678)
pt3dadd(35.462, 328.729, -13.421, 0.678)
pt3dadd(35.444, 328.808, -13.495, 0.678)
pt3dadd(35.395, 328.896, -13.546, 0.674)
pt3dadd(35.337, 328.986, -13.592, 0.668)
pt3dadd(35.279, 329.076, -13.637, 0.662)
pt3dadd(35.222, 329.166, -13.683, 0.656)
pt3dadd(35.162, 329.264, -13.7, 0.646)
pt3dadd(35.101, 329.368, -13.7, 0.634)
pt3dadd(35.031, 329.465, -13.7, 0.622)
pt3dadd(34.95, 329.552, -13.7, 0.61)
pt3dadd(34.866, 329.639, -13.7, 0.606)
pt3dadd(34.778, 329.72, -13.7, 0.618)
pt3dadd(34.691, 329.796, -13.711, 0.634)
pt3dadd(34.608, 329.85, -13.767, 0.662)
pt3dadd(34.526, 329.897, -13.829, 0.686)
pt3dadd(34.446, 329.938, -13.895, 0.702)
pt3dadd(34.366, 329.977, -13.962, 0.718)
pt3dadd(34.32, 330.047, -14.017, 0.738)
pt3dadd(34.32, 330.157, -14.055, 0.76)
pt3dadd(34.32, 330.269, -14.093, 0.786)
pt3dadd(34.32, 330.384, -14.122, 0.84)
pt3dadd(34.32, 330.497, -14.155, 0.872)
pt3dadd(34.32, 330.611, -14.188, 0.904)
pt3dadd(34.32, 330.724, -14.221, 0.924)
pt3dadd(34.32, 330.836, -14.254, 0.946)
pt3dadd(34.32, 330.953, -14.277, 0.948)
pt3dadd(34.32, 331.072, -14.294, 0.938)
pt3dadd(34.32, 331.188, -14.313, 0.928)
pt3dadd(34.314, 331.252, -14.398, 0.88)
pt3dadd(34.307, 331.315, -14.483, 0.832)
pt3dadd(34.264, 331.328, -14.574, 0.748)
pt3dadd(34.224, 331.369, -14.657, 0.694)
pt3dadd(34.189, 331.444, -14.729, 0.678)
pt3dadd(34.155, 331.519, -14.802, 0.66)
pt3dadd(34.121, 331.594, -14.875, 0.642)
pt3dadd(34.091, 331.67, -14.947, 0.63)
pt3dadd(34.077, 331.758, -15.014, 0.642)
pt3dadd(34.057, 331.85, -15.07, 0.662)
pt3dadd(34.012, 331.961, -15.086, 0.698)
pt3dadd(33.97, 332.071, -15.1, 0.734)
pt3dadd(33.95, 332.189, -15.1, 0.772)
pt3dadd(33.929, 332.308, -15.1, 0.812)
pt3dadd(33.897, 332.418, -15.081, 0.844)
pt3dadd(33.855, 332.522, -15.046, 0.87)
pt3dadd(33.84, 332.636, -15.024, 0.89)
pt3dadd(33.838, 332.755, -15.012, 0.904)
pt3dadd(33.813, 332.87, -15.029, 0.904)
pt3dadd(33.787, 332.986, -15.046, 0.904)
pt3dadd(33.761, 333.101, -15.064, 0.904)
pt3dadd(33.736, 333.216, -15.081, 0.904)
pt3dadd(33.71, 333.331, -15.098, 0.904)
pt3dadd(33.692, 333.45, -15.1, 0.904)
pt3dadd(33.674, 333.569, -15.1, 0.904)
pt3dadd(33.657, 333.688, -15.1, 0.904)
pt3dadd(33.64, 333.806, -15.1, 0.904)
pt3dadd(33.623, 333.925, -15.1, 0.904)
pt3dadd(33.605, 334.044, -15.1, 0.904)
pt3dadd(33.582, 334.156, -15.124, 0.904)
pt3dadd(33.557, 334.266, -15.16, 0.904)
pt3dadd(33.532, 334.375, -15.195, 0.904)
pt3dadd(33.507, 334.484, -15.23, 0.904)
pt3dadd(33.481, 334.594, -15.265, 0.904)
pt3dadd(33.48, 334.714, -15.267, 0.9)
pt3dadd(33.48, 334.834, -15.267, 0.894)
pt3dadd(33.48, 334.954, -15.267, 0.89)
pt3dadd(33.48, 335.074, -15.267, 0.884)
pt3dadd(33.48, 335.194, -15.267, 0.88)
pt3dadd(33.48, 335.303, -15.307, 0.87)
pt3dadd(33.48, 335.412, -15.349, 0.86)
pt3dadd(33.48, 335.52, -15.391, 0.85)
pt3dadd(33.48, 335.629, -15.433, 0.842)
pt3dadd(33.48, 335.738, -15.475, 0.832)
pt3dadd(33.466, 335.844, -15.52, 0.818)
pt3dadd(33.447, 335.95, -15.565, 0.802)
pt3dadd(33.427, 336.055, -15.61, 0.786)
pt3dadd(33.407, 336.161, -15.655, 0.77)
pt3dadd(33.387, 336.265, -15.7, 0.754)
pt3dadd(33.311, 336.328, -15.757, 0.71)
pt3dadd(33.246, 336.398, -15.813, 0.668)
pt3dadd(33.218, 336.497, -15.866, 0.628)
pt3dadd(33.166, 336.584, -15.9, 0.594)
pt3dadd(33.067, 336.652, -15.9, 0.572)
pt3dadd(32.964, 336.708, -15.901, 0.554)
pt3dadd(32.844, 336.713, -15.905, 0.564)
pt3dadd(32.724, 336.718, -15.909, 0.572)
pt3dadd(32.622, 336.744, -15.936, 0.592)
pt3dadd(32.545, 336.802, -15.996, 0.628)
pt3dadd(32.468, 336.858, -16.056, 0.664)
pt3dadd(32.426, 336.941, -16.042, 0.732)
pt3dadd(32.404, 337.038, -15.987, 0.816)
pt3dadd(32.393, 337.134, -15.932, 0.958)
pt3dadd(32.339, 337.241, -15.926, 0.982)
pt3dadd(32.286, 337.348, -15.919, 1.008)
pt3dadd(32.232, 337.456, -15.912, 1.034)
pt3dadd(32.179, 337.562, -15.906, 1.058)
pt3dadd(32.121, 337.666, -15.899, 1.086)
pt3dadd(32.036, 337.751, -15.894, 1.122)
pt3dadd(31.958, 337.835, -15.881, 1.158)
pt3dadd(31.937, 337.91, -15.806, 1.184)
pt3dadd(31.92, 337.994, -15.741, 1.206)
pt3dadd(31.92, 338.113, -15.724, 1.206)
pt3dadd(31.92, 338.231, -15.707, 1.206)
pt3dadd(31.92, 338.35, -15.71, 1.2)
pt3dadd(31.92, 338.467, -15.727, 1.19)
pt3dadd(31.92, 338.586, -15.744, 1.18)
pt3dadd(31.889, 338.638, -15.83, 1.142)
pt3dadd(31.869, 338.735, -15.872, 1.12)
pt3dadd(31.854, 338.85, -15.895, 1.106)
pt3dadd(31.839, 338.966, -15.918, 1.092)
pt3dadd(31.824, 339.082, -15.941, 1.078)
pt3dadd(31.809, 339.198, -15.964, 1.064)
pt3dadd(31.8, 339.314, -15.986, 1.052)
pt3dadd(31.8, 339.432, -16.007, 1.048)
pt3dadd(31.8, 339.548, -16.028, 1.044)
pt3dadd(31.8, 339.666, -16.048, 1.04)
pt3dadd(31.8, 339.784, -16.069, 1.036)
pt3dadd(31.8, 339.901, -16.09, 1.032)
pt3dadd(31.8, 340.02, -16.1, 1.032)
pt3dadd(31.8, 340.14, -16.1, 1.036)
pt3dadd(31.8, 340.26, -16.1, 1.038)
pt3dadd(31.8, 340.38, -16.1, 1.042)
pt3dadd(31.8, 340.5, -16.1, 1.046)
pt3dadd(31.8, 340.62, -16.1, 1.05)
pt3dadd(31.8, 340.74, -16.1, 1.052)
pt3dadd(31.8, 340.86, -16.1, 1.08)
pt3dadd(31.8, 340.98, -16.1, 1.104)
pt3dadd(31.8, 341.1, -16.1, 1.092)
pt3dadd(31.793, 341.22, -16.1, 1.052)
pt3dadd(31.755, 341.332, -16.1, 1.03)
pt3dadd(31.654, 341.388, -16.1, 1.004)
pt3dadd(31.534, 341.4, -16.1, 0.994)
pt3dadd(31.414, 341.4, -16.1, 0.954)
pt3dadd(31.294, 341.4, -16.1, 0.954)
pt3dadd(31.174, 341.4, -16.1, 0.954)
pt3dadd(31.054, 341.4, -16.1, 0.932)
pt3dadd(30.934, 341.404, -16.1, 0.824)
pt3dadd(30.819, 341.43, -16.1, 0.674)
pt3dadd(30.743, 341.514, -16.1, 0.584)
pt3dadd(30.72, 341.63, -16.112, 0.58)
pt3dadd(30.72, 341.741, -16.147, 0.636)
pt3dadd(30.72, 341.825, -16.218, 0.67)
pt3dadd(30.72, 341.882, -16.305, 0.678)
pt3dadd(30.72, 341.936, -16.394, 0.678)
pt3dadd(30.72, 341.99, -16.484, 0.678)
pt3dadd(30.72, 342.065, -16.56, 0.674)
pt3dadd(30.726, 342.175, -16.594, 0.63)
pt3dadd(30.752, 342.292, -16.6, 0.55)
pt3dadd(30.801, 342.401, -16.6, 0.478)
pt3dadd(30.827, 342.517, -16.6, 0.49)
pt3dadd(30.811, 342.635, -16.593, 0.572)
pt3dadd(30.755, 342.709, -16.543, 0.658)
pt3dadd(30.719, 342.72, -16.448, 0.692)
pt3dadd(30.684, 342.731, -16.354, 0.724)
pt3dadd(30.587, 342.782, -16.324, 0.728)
pt3dadd(30.484, 342.838, -16.301, 0.728)
pt3dadd(30.383, 342.899, -16.284, 0.704)
}
}
proc shape3d_49() {
dend_5[10] { pt3dadd(30.281, 342.959, -16.267, 0.678)
pt3dadd(30.235, 343.066, -16.242, 0.66)
pt3dadd(30.189, 343.172, -16.216, 0.64)
pt3dadd(30.153, 343.277, -16.219, 0.624)
pt3dadd(30.132, 343.378, -16.269, 0.61)
pt3dadd(30.12, 343.469, -16.331, 0.602)
pt3dadd(30.115, 343.572, -16.374, 0.602)
pt3dadd(30.108, 343.687, -16.4, 0.602)
pt3dadd(30.1, 343.802, -16.427, 0.602)
pt3dadd(30.093, 343.918, -16.453, 0.602)
pt3dadd(30.086, 344.033, -16.48, 0.602)
pt3dadd(30.071, 344.148, -16.504, 0.604)
pt3dadd(30.036, 344.261, -16.522, 0.61)
pt3dadd(30.002, 344.374, -16.54, 0.614)
pt3dadd(29.967, 344.486, -16.558, 0.62)
pt3dadd(29.932, 344.599, -16.576, 0.624)
pt3dadd(29.885, 344.701, -16.602, 0.636)
pt3dadd(29.809, 344.777, -16.646, 0.664)
pt3dadd(29.77, 344.869, -16.692, 0.696)
pt3dadd(29.764, 344.975, -16.738, 0.732)
pt3dadd(29.784, 345.079, -16.773, 0.764)
pt3dadd(29.845, 345.181, -16.79, 0.788)
pt3dadd(29.907, 345.277, -16.817, 0.798)
pt3dadd(29.972, 345.366, -16.857, 0.782)
pt3dadd(29.935, 345.462, -16.874, 0.762)
pt3dadd(29.868, 345.56, -16.884, 0.74)
pt3dadd(29.801, 345.66, -16.894, 0.716)
pt3dadd(29.733, 345.757, -16.907, 0.688)
pt3dadd(29.665, 345.854, -16.924, 0.65)
pt3dadd(29.602, 345.926, -16.97, 0.628)
pt3dadd(29.556, 345.96, -17.055, 0.636)
pt3dadd(29.559, 345.972, -17.152, 0.7)
pt3dadd(29.651, 346.022, -17.195, 0.728)
pt3dadd(29.761, 346.067, -17.2, 0.652)
pt3dadd(29.88, 346.08, -17.2, 0.552)
}
dend_5[11] {pt3dclear()
pt3dadd(43.08, 296.64, 7.2, 1.104)
pt3dadd(43.067, 296.639, 7.216, 1.106)
pt3dadd(42.997, 296.635, 7.298, 1.114)
pt3dadd(42.928, 296.632, 7.379, 1.12)
pt3dadd(42.859, 296.628, 7.461, 1.126)
pt3dadd(42.791, 296.678, 7.5, 1.166)
pt3dadd(42.723, 296.778, 7.5, 1.236)
pt3dadd(42.641, 296.86, 7.5, 1.306)
pt3dadd(42.533, 296.914, 7.5, 1.372)
pt3dadd(42.425, 296.963, 7.5, 1.436)
pt3dadd(42.305, 296.977, 7.5, 1.474)
pt3dadd(42.186, 296.992, 7.5, 1.512)
pt3dadd(42.083, 297.034, 7.515, 1.532)
pt3dadd(41.998, 297.109, 7.548, 1.532)
pt3dadd(41.914, 297.185, 7.581, 1.532)
pt3dadd(41.825, 297.242, 7.624, 1.496)
pt3dadd(41.731, 297.278, 7.678, 1.414)
pt3dadd(41.661, 297.356, 7.7, 1.18)
pt3dadd(41.631, 297.467, 7.728, 1.036)
pt3dadd(41.605, 297.577, 7.76, 0.926)
pt3dadd(41.564, 297.688, 7.78, 0.856)
pt3dadd(41.519, 297.797, 7.796, 0.796)
pt3dadd(41.477, 297.908, 7.796, 0.794)
pt3dadd(41.435, 298.021, 7.792, 0.816)
pt3dadd(41.4, 298.114, 7.752, 0.854)
pt3dadd(41.371, 298.184, 7.675, 0.908)
pt3dadd(41.332, 298.279, 7.641, 0.974)
pt3dadd(41.285, 298.39, 7.634, 1.048)
pt3dadd(41.28, 298.484, 7.69, 1.08)
pt3dadd(41.28, 298.57, 7.76, 1.064)
pt3dadd(41.258, 298.646, 7.832, 1.074)
pt3dadd(41.167, 298.676, 7.883, 0.998)
pt3dadd(41.057, 298.712, 7.907, 0.92)
pt3dadd(40.946, 298.751, 7.928, 0.846)
pt3dadd(40.852, 298.811, 7.962, 0.808)
pt3dadd(40.763, 298.878, 7.999, 0.78)
pt3dadd(40.676, 298.954, 8.026, 0.798)
pt3dadd(40.589, 299.029, 8.054, 0.818)
pt3dadd(40.522, 299.122, 8.078, 0.862)
pt3dadd(40.476, 299.228, 8.101, 0.924)
pt3dadd(40.444, 299.339, 8.127, 0.992)
pt3dadd(40.422, 299.449, 8.161, 1)
pt3dadd(40.4, 299.56, 8.196, 0.994)
pt3dadd(40.378, 299.67, 8.23, 0.99)
pt3dadd(40.356, 299.782, 8.265, 0.984)
pt3dadd(40.334, 299.892, 8.299, 0.98)
pt3dadd(40.329, 300.011, 8.304, 0.962)
pt3dadd(40.324, 300.131, 8.308, 0.944)
pt3dadd(40.319, 300.25, 8.318, 0.934)
pt3dadd(40.313, 300.361, 8.352, 0.956)
pt3dadd(40.307, 300.474, 8.387, 0.978)
pt3dadd(40.24, 300.571, 8.394, 1.026)
pt3dadd(40.169, 300.668, 8.399, 1.074)
pt3dadd(40.08, 300.749, 8.405, 1.122)
pt3dadd(39.989, 300.827, 8.41, 1.172)
pt3dadd(39.97, 300.916, 8.464, 1.162)
pt3dadd(39.966, 301.008, 8.528, 1.14)
pt3dadd(39.963, 301.1, 8.592, 1.118)
pt3dadd(39.953, 301.199, 8.646, 1.08)
pt3dadd(39.934, 301.308, 8.684, 1.006)
pt3dadd(39.902, 301.398, 8.733, 0.934)
pt3dadd(39.836, 301.435, 8.81, 0.862)
pt3dadd(39.77, 301.474, 8.888, 0.79)
pt3dadd(39.684, 301.524, 8.942, 0.742)
pt3dadd(39.595, 301.578, 8.989, 0.702)
pt3dadd(39.508, 301.661, 8.993, 0.684)
pt3dadd(39.42, 301.742, 8.997, 0.666)
pt3dadd(39.33, 301.82, 9, 0.646)
pt3dadd(39.231, 301.889, 9, 0.622)
pt3dadd(39.135, 301.961, 9, 0.592)
pt3dadd(39.057, 302.051, 9, 0.554)
pt3dadd(38.973, 302.137, 9, 0.56)
pt3dadd(38.89, 302.224, 9, 0.564)
pt3dadd(38.806, 302.31, 9, 0.57)
pt3dadd(38.723, 302.395, 9, 0.574)
pt3dadd(38.645, 302.486, 9.008, 0.586)
pt3dadd(38.574, 302.58, 9.026, 0.602)
pt3dadd(38.504, 302.675, 9.043, 0.62)
pt3dadd(38.433, 302.77, 9.06, 0.636)
pt3dadd(38.362, 302.864, 9.077, 0.652)
pt3dadd(38.29, 302.954, 9.106, 0.67)
pt3dadd(38.219, 303.044, 9.134, 0.688)
pt3dadd(38.147, 303.134, 9.163, 0.706)
pt3dadd(38.076, 303.224, 9.191, 0.722)
pt3dadd(37.985, 303.299, 9.2, 0.724)
pt3dadd(37.884, 303.365, 9.2, 0.72)
pt3dadd(37.784, 303.431, 9.2, 0.714)
pt3dadd(37.684, 303.497, 9.2, 0.71)
pt3dadd(37.584, 303.563, 9.2, 0.704)
pt3dadd(37.485, 303.63, 9.2, 0.704)
pt3dadd(37.387, 303.7, 9.2, 0.704)
pt3dadd(37.289, 303.768, 9.2, 0.704)
pt3dadd(37.19, 303.838, 9.2, 0.704)
pt3dadd(37.092, 303.906, 9.2, 0.704)
pt3dadd(36.991, 303.967, 9.213, 0.714)
pt3dadd(36.888, 304.024, 9.235, 0.73)
pt3dadd(36.786, 304.079, 9.257, 0.746)
pt3dadd(36.683, 304.135, 9.28, 0.762)
pt3dadd(36.579, 304.19, 9.3, 0.782)
pt3dadd(36.474, 304.247, 9.3, 0.826)
pt3dadd(36.368, 304.304, 9.3, 0.868)
pt3dadd(36.262, 304.361, 9.3, 0.912)
pt3dadd(36.156, 304.417, 9.3, 0.956)
pt3dadd(36.051, 304.474, 9.3, 1)
pt3dadd(35.94, 304.52, 9.302, 1.034)
pt3dadd(35.829, 304.566, 9.304, 1.068)
pt3dadd(35.718, 304.612, 9.306, 1.1)
pt3dadd(35.607, 304.657, 9.308, 1.134)
pt3dadd(35.496, 304.702, 9.31, 1.168)
pt3dadd(35.432, 304.783, 9.336, 1.212)
pt3dadd(35.397, 304.888, 9.377, 1.264)
pt3dadd(35.313, 304.958, 9.392, 1.272)
pt3dadd(35.208, 305.015, 9.398, 1.26)
pt3dadd(35.094, 305.04, 9.4, 1.246)
pt3dadd(34.974, 305.04, 9.4, 1.23)
pt3dadd(34.854, 305.04, 9.4, 1.212)
pt3dadd(34.734, 305.042, 9.4, 1.19)
pt3dadd(34.614, 305.047, 9.4, 1.164)
pt3dadd(34.494, 305.052, 9.4, 1.138)
pt3dadd(34.377, 305.074, 9.406, 1.126)
pt3dadd(34.262, 305.106, 9.414, 1.12)
pt3dadd(34.146, 305.137, 9.423, 1.112)
pt3dadd(34.031, 305.168, 9.432, 1.106)
pt3dadd(33.991, 305.264, 9.466, 1.126)
pt3dadd(33.964, 305.371, 9.505, 1.152)
pt3dadd(33.932, 305.472, 9.538, 1.204)
pt3dadd(33.824, 305.506, 9.572, 1.19)
pt3dadd(33.716, 305.54, 9.603, 1.172)
pt3dadd(33.606, 305.586, 9.619, 1.124)
pt3dadd(33.497, 305.63, 9.636, 1.078)
pt3dadd(33.389, 305.663, 9.67, 1.052)
pt3dadd(33.289, 305.705, 9.704, 1.032)
pt3dadd(33.256, 305.813, 9.738, 1.044)
pt3dadd(33.222, 305.92, 9.773, 1.056)
pt3dadd(33.188, 306.022, 9.818, 1.072)
pt3dadd(33.155, 306.122, 9.864, 1.088)
pt3dadd(33.121, 306.223, 9.91, 1.104)
pt3dadd(33.099, 306.232, 10.007, 1.096)
pt3dadd(33.078, 306.238, 10.105, 1.086)
pt3dadd(33.013, 306.259, 10.165, 1.062)
pt3dadd(32.902, 306.298, 10.185, 1.026)
pt3dadd(32.791, 306.336, 10.205, 0.99)
pt3dadd(32.71, 306.402, 10.248, 0.916)
pt3dadd(32.641, 306.479, 10.299, 0.83)
pt3dadd(32.629, 306.586, 10.337, 0.726)
pt3dadd(32.583, 306.695, 10.35, 0.716)
pt3dadd(32.536, 306.805, 10.364, 0.706)
pt3dadd(32.49, 306.914, 10.378, 0.694)
pt3dadd(32.443, 307.024, 10.391, 0.684)
pt3dadd(32.396, 307.133, 10.4, 0.682)
pt3dadd(32.349, 307.243, 10.4, 0.69)
pt3dadd(32.301, 307.354, 10.4, 0.7)
pt3dadd(32.253, 307.464, 10.4, 0.71)
pt3dadd(32.206, 307.573, 10.4, 0.72)
pt3dadd(32.158, 307.684, 10.4, 0.73)
pt3dadd(32.094, 307.786, 10.402, 0.754)
pt3dadd(32.03, 307.886, 10.405, 0.78)
pt3dadd(31.965, 307.988, 10.407, 0.804)
pt3dadd(31.901, 308.089, 10.409, 0.83)
pt3dadd(31.836, 308.19, 10.412, 0.856)
pt3dadd(31.755, 308.275, 10.432, 0.902)
pt3dadd(31.673, 308.359, 10.452, 0.946)
pt3dadd(31.592, 308.443, 10.472, 0.992)
pt3dadd(31.51, 308.528, 10.493, 1.038)
pt3dadd(31.413, 308.596, 10.5, 1.074)
}
}
proc shape3d_50() {
dend_5[11] { pt3dadd(31.308, 308.652, 10.5, 1.102)
pt3dadd(31.202, 308.71, 10.5, 1.132)
pt3dadd(31.096, 308.766, 10.5, 1.16)
pt3dadd(30.99, 308.822, 10.5, 1.19)
pt3dadd(30.902, 308.899, 10.5, 1.216)
pt3dadd(30.834, 308.998, 10.5, 1.24)
pt3dadd(30.752, 309.076, 10.5, 1.25)
pt3dadd(30.635, 309.102, 10.5, 1.23)
pt3dadd(30.517, 309.127, 10.5, 1.21)
pt3dadd(30.415, 309.187, 10.5, 1.178)
pt3dadd(30.316, 309.254, 10.5, 1.142)
pt3dadd(30.259, 309.353, 10.5, 1.116)
pt3dadd(30.226, 309.469, 10.5, 1.096)
pt3dadd(30.191, 309.583, 10.5, 1.076)
pt3dadd(30.148, 309.695, 10.5, 1.06)
pt3dadd(30.12, 309.811, 10.5, 1.062)
pt3dadd(30.099, 309.93, 10.5, 1.07)
pt3dadd(30.075, 310.046, 10.5, 1.08)
pt3dadd(29.993, 310.134, 10.5, 1.092)
pt3dadd(29.911, 310.222, 10.5, 1.104)
pt3dadd(29.802, 310.271, 10.5, 1.104)
pt3dadd(29.692, 310.318, 10.5, 1.104)
pt3dadd(29.596, 310.387, 10.5, 1.098)
pt3dadd(29.508, 310.469, 10.5, 1.086)
pt3dadd(29.413, 310.541, 10.5, 1.07)
pt3dadd(29.312, 310.606, 10.5, 1.056)
pt3dadd(29.217, 310.679, 10.502, 1.06)
pt3dadd(29.122, 310.752, 10.505, 1.066)
pt3dadd(29.027, 310.825, 10.507, 1.07)
pt3dadd(28.932, 310.898, 10.509, 1.076)
pt3dadd(28.839, 310.973, 10.514, 1.078)
pt3dadd(28.751, 311.051, 10.535, 1.074)
pt3dadd(28.664, 311.13, 10.555, 1.068)
pt3dadd(28.576, 311.208, 10.575, 1.062)
pt3dadd(28.488, 311.287, 10.595, 1.056)
pt3dadd(28.382, 311.336, 10.6, 1.038)
pt3dadd(28.269, 311.376, 10.6, 1.018)
pt3dadd(28.155, 311.416, 10.6, 0.988)
pt3dadd(28.042, 311.455, 10.6, 0.944)
pt3dadd(27.932, 311.498, 10.6, 0.904)
pt3dadd(27.89, 311.61, 10.605, 0.88)
pt3dadd(27.849, 311.723, 10.61, 0.858)
pt3dadd(27.824, 311.807, 10.67, 0.834)
pt3dadd(27.803, 311.884, 10.746, 0.808)
pt3dadd(27.719, 311.957, 10.767, 0.79)
pt3dadd(27.625, 312.03, 10.781, 0.774)
pt3dadd(27.531, 312.103, 10.795, 0.76)
pt3dadd(27.433, 312.17, 10.803, 0.74)
pt3dadd(27.331, 312.234, 10.808, 0.716)
pt3dadd(27.247, 312.311, 10.829, 0.704)
pt3dadd(27.152, 312.379, 10.846, 0.718)
pt3dadd(27.054, 312.446, 10.861, 0.734)
pt3dadd(26.955, 312.512, 10.875, 0.75)
pt3dadd(26.857, 312.578, 10.89, 0.766)
pt3dadd(26.77, 312.656, 10.9, 0.784)
pt3dadd(26.71, 312.76, 10.9, 0.804)
pt3dadd(26.65, 312.864, 10.9, 0.824)
pt3dadd(26.59, 312.968, 10.9, 0.842)
pt3dadd(26.531, 313.073, 10.9, 0.862)
pt3dadd(26.474, 313.177, 10.9, 0.884)
pt3dadd(26.434, 313.291, 10.9, 0.916)
pt3dadd(26.395, 313.404, 10.9, 0.948)
pt3dadd(26.351, 313.514, 10.887, 0.964)
pt3dadd(26.305, 313.624, 10.871, 0.976)
pt3dadd(26.25, 313.723, 10.84, 0.99)
pt3dadd(26.192, 313.818, 10.803, 1.004)
pt3dadd(26.083, 313.862, 10.8, 1.014)
pt3dadd(25.97, 313.902, 10.8, 1.024)
pt3dadd(25.856, 313.938, 10.8, 1.03)
pt3dadd(25.74, 313.97, 10.8, 1.03)
pt3dadd(25.662, 314.06, 10.798, 1.02)
pt3dadd(25.585, 314.153, 10.796, 1.01)
pt3dadd(25.509, 314.245, 10.793, 1)
pt3dadd(25.433, 314.338, 10.791, 0.99)
pt3dadd(25.358, 314.431, 10.787, 0.978)
pt3dadd(25.312, 314.53, 10.746, 0.968)
pt3dadd(25.265, 314.629, 10.705, 0.956)
pt3dadd(25.219, 314.728, 10.663, 0.944)
pt3dadd(25.173, 314.827, 10.622, 0.932)
pt3dadd(25.13, 314.935, 10.614, 0.926)
pt3dadd(25.088, 315.048, 10.619, 0.92)
pt3dadd(25.046, 315.16, 10.623, 0.916)
pt3dadd(25.004, 315.272, 10.627, 0.91)
pt3dadd(24.962, 315.385, 10.632, 0.906)
pt3dadd(24.909, 315.491, 10.642, 0.904)
pt3dadd(24.849, 315.594, 10.656, 0.904)
pt3dadd(24.79, 315.696, 10.671, 0.904)
pt3dadd(24.73, 315.799, 10.685, 0.904)
pt3dadd(24.67, 315.901, 10.699, 0.904)
pt3dadd(24.582, 315.982, 10.707, 0.904)
pt3dadd(24.491, 316.061, 10.714, 0.904)
pt3dadd(24.401, 316.139, 10.721, 0.904)
pt3dadd(24.311, 316.218, 10.728, 0.904)
pt3dadd(24.217, 316.285, 10.74, 0.906)
pt3dadd(24.106, 316.312, 10.773, 0.918)
pt3dadd(23.998, 316.344, 10.8, 0.93)
pt3dadd(23.899, 316.412, 10.8, 0.942)
pt3dadd(23.8, 316.48, 10.8, 0.954)
pt3dadd(23.785, 316.598, 10.8, 0.972)
pt3dadd(23.77, 316.718, 10.8, 0.992)
pt3dadd(23.76, 316.837, 10.8, 1.004)
pt3dadd(23.76, 316.957, 10.8, 1.004)
pt3dadd(23.76, 317.077, 10.8, 1.004)
pt3dadd(23.739, 317.191, 10.8, 1.004)
pt3dadd(23.673, 317.291, 10.8, 1.004)
pt3dadd(23.606, 317.39, 10.8, 1.004)
pt3dadd(23.54, 317.491, 10.8, 1.004)
pt3dadd(23.477, 317.592, 10.812, 0.978)
pt3dadd(23.416, 317.693, 10.829, 0.94)
pt3dadd(23.35, 317.776, 10.868, 0.824)
pt3dadd(23.283, 317.875, 10.875, 0.798)
pt3dadd(23.217, 317.975, 10.882, 0.772)
pt3dadd(23.151, 318.074, 10.889, 0.746)
pt3dadd(23.084, 318.174, 10.895, 0.72)
pt3dadd(23.029, 318.278, 10.894, 0.7)
pt3dadd(22.998, 318.392, 10.876, 0.69)
pt3dadd(22.966, 318.506, 10.859, 0.68)
pt3dadd(22.934, 318.619, 10.841, 0.67)
pt3dadd(22.902, 318.733, 10.823, 0.66)
pt3dadd(22.855, 318.839, 10.806, 0.654)
pt3dadd(22.772, 318.922, 10.788, 0.66)
pt3dadd(22.688, 319.006, 10.771, 0.666)
pt3dadd(22.605, 319.088, 10.754, 0.672)
pt3dadd(22.521, 319.172, 10.736, 0.678)
pt3dadd(22.414, 319.22, 10.728, 0.682)
pt3dadd(22.301, 319.261, 10.722, 0.686)
pt3dadd(22.188, 319.303, 10.715, 0.692)
pt3dadd(22.076, 319.344, 10.709, 0.696)
pt3dadd(21.963, 319.385, 10.703, 0.702)
pt3dadd(21.865, 319.45, 10.7, 0.696)
pt3dadd(21.777, 319.531, 10.7, 0.686)
pt3dadd(21.688, 319.612, 10.7, 0.676)
pt3dadd(21.599, 319.692, 10.7, 0.666)
pt3dadd(21.51, 319.772, 10.7, 0.656)
pt3dadd(21.445, 319.87, 10.714, 0.642)
pt3dadd(21.393, 319.974, 10.736, 0.626)
pt3dadd(21.341, 320.078, 10.758, 0.61)
pt3dadd(21.288, 320.184, 10.78, 0.592)
pt3dadd(21.24, 320.29, 10.801, 0.578)
pt3dadd(21.24, 320.408, 10.816, 0.582)
pt3dadd(21.24, 320.527, 10.83, 0.586)
pt3dadd(21.24, 320.646, 10.844, 0.59)
pt3dadd(21.24, 320.765, 10.859, 0.594)
pt3dadd(21.24, 320.884, 10.873, 0.598)
pt3dadd(21.24, 321.001, 10.887, 0.602)
pt3dadd(21.267, 321.115, 10.909, 0.626)
pt3dadd(21.296, 321.229, 10.932, 0.65)
pt3dadd(21.326, 321.342, 10.954, 0.676)
pt3dadd(21.356, 321.455, 10.976, 0.702)
pt3dadd(21.385, 321.568, 10.999, 0.726)
pt3dadd(21.423, 321.682, 11, 0.754)
pt3dadd(21.462, 321.796, 11, 0.782)
pt3dadd(21.501, 321.908, 11, 0.808)
pt3dadd(21.54, 322.022, 11, 0.836)
pt3dadd(21.578, 322.136, 11, 0.864)
pt3dadd(21.636, 322.237, 11, 0.886)
pt3dadd(21.72, 322.324, 11, 0.9)
pt3dadd(21.803, 322.41, 11, 0.916)
pt3dadd(21.887, 322.496, 11, 0.932)
pt3dadd(21.97, 322.583, 11, 0.946)
pt3dadd(22.029, 322.682, 11, 0.954)
pt3dadd(22.062, 322.799, 11, 0.954)
pt3dadd(22.095, 322.914, 11, 0.954)
pt3dadd(22.128, 323.029, 11, 0.954)
pt3dadd(22.161, 323.144, 11, 0.954)
pt3dadd(22.194, 323.26, 11, 0.954)
pt3dadd(22.2, 323.377, 10.986, 0.944)
pt3dadd(22.2, 323.496, 10.97, 0.932)
pt3dadd(22.2, 323.615, 10.954, 0.92)
pt3dadd(22.2, 323.732, 10.937, 0.906)
pt3dadd(22.2, 323.851, 10.921, 0.894)
pt3dadd(22.2, 323.97, 10.904, 0.882)
pt3dadd(22.176, 324.084, 10.887, 0.86)
pt3dadd(22.145, 324.198, 10.869, 0.836)
pt3dadd(22.113, 324.312, 10.852, 0.81)
pt3dadd(22.081, 324.426, 10.834, 0.786)
pt3dadd(22.05, 324.54, 10.816, 0.76)
pt3dadd(22.029, 324.656, 10.814, 0.738)
pt3dadd(22.013, 324.775, 10.818, 0.716)
pt3dadd(21.997, 324.894, 10.821, 0.696)
pt3dadd(21.981, 325.013, 10.825, 0.674)
pt3dadd(21.965, 325.133, 10.829, 0.652)
pt3dadd(21.949, 325.252, 10.833, 0.63)
pt3dadd(21.903, 325.354, 10.864, 0.604)
pt3dadd(21.853, 325.454, 10.9, 0.578)
pt3dadd(21.849, 325.574, 10.9, 0.586)
pt3dadd(21.844, 325.693, 10.9, 0.596)
pt3dadd(21.84, 325.813, 10.9, 0.606)
pt3dadd(21.845, 325.933, 10.9, 0.642)
pt3dadd(21.85, 326.053, 10.9, 0.676)
pt3dadd(21.868, 326.168, 10.9, 0.722)
pt3dadd(21.936, 326.268, 10.9, 0.802)
pt3dadd(22.007, 326.363, 10.902, 0.888)
pt3dadd(22.116, 326.402, 10.926, 1.038)
pt3dadd(22.154, 326.495, 10.957, 1.104)
pt3dadd(22.164, 326.608, 10.989, 1.138)
pt3dadd(22.175, 326.722, 11.021, 1.172)
pt3dadd(22.185, 326.834, 11.053, 1.206)
pt3dadd(22.195, 326.947, 11.085, 1.24)
pt3dadd(22.2, 327.064, 11.109, 1.258)
}
}
proc shape3d_51() {
dend_5[11] { pt3dadd(22.2, 327.181, 11.125, 1.262)
pt3dadd(22.2, 327.3, 11.142, 1.266)
pt3dadd(22.2, 327.419, 11.158, 1.27)
pt3dadd(22.2, 327.536, 11.175, 1.274)
pt3dadd(22.2, 327.655, 11.191, 1.278)
pt3dadd(22.2, 327.774, 11.2, 1.276)
pt3dadd(22.2, 327.894, 11.2, 1.266)
pt3dadd(22.2, 328.014, 11.2, 1.254)
pt3dadd(22.2, 328.134, 11.2, 1.244)
pt3dadd(22.2, 328.254, 11.2, 1.232)
pt3dadd(22.2, 328.374, 11.2, 1.222)
pt3dadd(22.2, 328.494, 11.2, 1.212)
pt3dadd(22.2, 328.614, 11.2, 1.19)
pt3dadd(22.2, 328.734, 11.2, 1.156)
pt3dadd(22.2, 328.854, 11.2, 1.124)
pt3dadd(22.2, 328.974, 11.202, 1.098)
pt3dadd(22.2, 329.094, 11.206, 1.08)
pt3dadd(22.2, 329.214, 11.209, 1.062)
pt3dadd(22.196, 329.315, 11.251, 1.054)
pt3dadd(22.19, 329.399, 11.321, 1.054)
pt3dadd(22.159, 329.479, 11.388, 1.048)
pt3dadd(22.106, 329.555, 11.452, 1.034)
pt3dadd(22.087, 329.663, 11.483, 0.994)
pt3dadd(22.071, 329.774, 11.508, 0.952)
pt3dadd(22.016, 329.864, 11.556, 0.932)
pt3dadd(21.962, 329.954, 11.604, 0.914)
pt3dadd(21.907, 330.044, 11.653, 0.896)
pt3dadd(21.853, 330.134, 11.7, 0.878)
pt3dadd(21.825, 330.251, 11.713, 0.864)
pt3dadd(21.798, 330.366, 11.725, 0.85)
pt3dadd(21.77, 330.482, 11.738, 0.836)
pt3dadd(21.742, 330.598, 11.751, 0.822)
pt3dadd(21.714, 330.714, 11.763, 0.808)
pt3dadd(21.677, 330.826, 11.756, 0.804)
pt3dadd(21.635, 330.937, 11.741, 0.804)
pt3dadd(21.593, 331.048, 11.726, 0.804)
pt3dadd(21.551, 331.159, 11.711, 0.804)
pt3dadd(21.513, 331.272, 11.7, 0.804)
pt3dadd(21.485, 331.388, 11.7, 0.804)
pt3dadd(21.458, 331.505, 11.7, 0.804)
pt3dadd(21.43, 331.622, 11.7, 0.804)
pt3dadd(21.403, 331.739, 11.7, 0.804)
pt3dadd(21.375, 331.855, 11.7, 0.804)
pt3dadd(21.351, 331.972, 11.691, 0.81)
pt3dadd(21.331, 332.088, 11.673, 0.824)
pt3dadd(21.311, 332.204, 11.654, 0.838)
pt3dadd(21.29, 332.321, 11.635, 0.852)
pt3dadd(21.27, 332.436, 11.616, 0.866)
pt3dadd(21.253, 332.554, 11.6, 0.884)
pt3dadd(21.248, 332.672, 11.6, 0.91)
pt3dadd(21.243, 332.792, 11.6, 0.936)
pt3dadd(21.24, 332.912, 11.6, 0.968)
pt3dadd(21.24, 333.032, 11.6, 1.018)
pt3dadd(21.24, 333.152, 11.6, 1.068)
pt3dadd(21.234, 333.272, 11.6, 1.116)
pt3dadd(21.214, 333.39, 11.6, 1.154)
pt3dadd(21.193, 333.509, 11.6, 1.192)
pt3dadd(21.12, 333.593, 11.6, 1.222)
pt3dadd(21.021, 333.661, 11.6, 1.244)
pt3dadd(20.925, 333.732, 11.6, 1.21)
pt3dadd(20.837, 333.811, 11.6, 1.126)
pt3dadd(20.801, 333.926, 11.6, 1.09)
pt3dadd(20.765, 334.04, 11.6, 1.054)
pt3dadd(20.729, 334.154, 11.6, 1.018)
pt3dadd(20.693, 334.27, 11.6, 0.982)
pt3dadd(20.658, 334.384, 11.6, 0.946)
pt3dadd(20.62, 334.498, 11.6, 0.91)
pt3dadd(20.582, 334.612, 11.6, 0.874)
pt3dadd(20.543, 334.726, 11.6, 0.838)
pt3dadd(20.504, 334.838, 11.6, 0.802)
pt3dadd(20.466, 334.952, 11.6, 0.764)
pt3dadd(20.427, 335.066, 11.6, 0.728)
pt3dadd(20.366, 335.17, 11.6, 0.682)
pt3dadd(20.305, 335.273, 11.6, 0.636)
pt3dadd(20.293, 335.389, 11.6, 0.628)
pt3dadd(20.293, 335.509, 11.6, 0.628)
pt3dadd(20.295, 335.629, 11.6, 0.628)
pt3dadd(20.356, 335.732, 11.6, 0.64)
pt3dadd(20.416, 335.837, 11.6, 0.65)
pt3dadd(20.5, 335.921, 11.6, 0.652)
pt3dadd(20.588, 336.002, 11.6, 0.652)
pt3dadd(20.698, 336.036, 11.6, 0.64)
pt3dadd(20.817, 336.05, 11.6, 0.62)
pt3dadd(20.937, 336.064, 11.6, 0.6)
pt3dadd(21.056, 336.078, 11.6, 0.582)
pt3dadd(21.172, 336.054, 11.6, 0.544)
pt3dadd(21.287, 336.02, 11.6, 0.504)
pt3dadd(21.404, 336.002, 11.6, 0.468)
pt3dadd(21.524, 336.01, 11.6, 0.44)
pt3dadd(21.638, 336.038, 11.6, 0.46)
pt3dadd(21.708, 336.128, 11.587, 0.586)
pt3dadd(21.72, 336.239, 11.55, 0.678)
pt3dadd(21.72, 336.35, 11.516, 0.76)
pt3dadd(21.72, 336.469, 11.501, 0.868)
pt3dadd(21.72, 336.589, 11.497, 0.902)
pt3dadd(21.72, 336.709, 11.493, 0.928)
pt3dadd(21.72, 336.828, 11.487, 0.954)
pt3dadd(21.72, 336.896, 11.405, 0.942)
pt3dadd(21.72, 336.964, 11.323, 0.93)
pt3dadd(21.72, 337.003, 11.229, 0.852)
pt3dadd(21.72, 337.063, 11.142, 0.806)
pt3dadd(21.72, 337.124, 11.056, 0.76)
pt3dadd(21.72, 337.235, 11.03, 0.744)
pt3dadd(21.72, 337.352, 11.013, 0.736)
pt3dadd(21.71, 337.47, 11, 0.73)
pt3dadd(21.67, 337.583, 11, 0.742)
pt3dadd(21.63, 337.697, 11, 0.752)
pt3dadd(21.565, 337.796, 11, 0.774)
pt3dadd(21.497, 337.896, 11, 0.798)
pt3dadd(21.451, 337.997, 10.968, 0.81)
pt3dadd(21.413, 338.099, 10.926, 0.818)
pt3dadd(21.375, 338.201, 10.883, 0.826)
pt3dadd(21.376, 338.308, 10.847, 0.828)
pt3dadd(21.402, 338.418, 10.814, 0.828)
pt3dadd(21.464, 338.506, 10.815, 0.834)
pt3dadd(21.556, 338.576, 10.842, 0.844)
pt3dadd(21.645, 338.648, 10.868, 0.856)
pt3dadd(21.706, 338.75, 10.885, 0.882)
pt3dadd(21.767, 338.851, 10.9, 0.906)
pt3dadd(21.832, 338.953, 10.9, 0.932)
pt3dadd(21.896, 339.054, 10.9, 0.958)
pt3dadd(21.948, 339.158, 10.894, 0.986)
pt3dadd(21.954, 339.272, 10.865, 1.018)
pt3dadd(21.959, 339.388, 10.836, 1.052)
pt3dadd(21.96, 339.493, 10.789, 1.07)
pt3dadd(21.96, 339.598, 10.74, 1.088)
pt3dadd(21.96, 339.702, 10.691, 1.104)
pt3dadd(21.96, 339.732, 10.596, 1.104)
pt3dadd(21.96, 339.758, 10.498, 1.104)
pt3dadd(21.96, 339.827, 10.439, 1.098)
pt3dadd(21.96, 339.946, 10.426, 1.084)
pt3dadd(21.96, 340.064, 10.414, 1.07)
pt3dadd(21.96, 340.183, 10.402, 1.056)
pt3dadd(21.96, 340.3, 10.376, 1.028)
pt3dadd(21.96, 340.415, 10.349, 0.996)
pt3dadd(21.968, 340.529, 10.32, 0.964)
pt3dadd(21.986, 340.646, 10.308, 0.954)
pt3dadd(22.004, 340.764, 10.305, 0.954)
pt3dadd(22.022, 340.883, 10.301, 0.954)
pt3dadd(22.04, 341.002, 10.297, 0.954)
pt3dadd(22.058, 341.12, 10.293, 0.954)
pt3dadd(22.076, 341.239, 10.29, 0.954)
pt3dadd(22.08, 341.358, 10.278, 0.958)
pt3dadd(22.08, 341.477, 10.264, 0.962)
pt3dadd(22.08, 341.596, 10.249, 0.966)
pt3dadd(22.08, 341.713, 10.235, 0.97)
pt3dadd(22.08, 341.832, 10.22, 0.974)
pt3dadd(22.08, 341.951, 10.206, 0.978)
pt3dadd(22.054, 342.066, 10.2, 0.976)
pt3dadd(22.009, 342.178, 10.2, 0.972)
pt3dadd(21.965, 342.288, 10.2, 0.968)
pt3dadd(21.92, 342.4, 10.2, 0.962)
pt3dadd(21.875, 342.511, 10.2, 0.958)
pt3dadd(21.834, 342.624, 10.2, 0.954)
pt3dadd(21.807, 342.74, 10.2, 0.954)
pt3dadd(21.779, 342.858, 10.2, 0.954)
pt3dadd(21.752, 342.974, 10.2, 0.954)
pt3dadd(21.725, 343.091, 10.2, 0.954)
pt3dadd(21.697, 343.208, 10.2, 0.954)
pt3dadd(21.665, 343.324, 10.2, 0.954)
pt3dadd(21.625, 343.436, 10.2, 0.954)
pt3dadd(21.585, 343.549, 10.2, 0.954)
pt3dadd(21.524, 343.654, 10.2, 0.978)
pt3dadd(21.463, 343.757, 10.2, 1)
pt3dadd(21.42, 343.868, 10.2, 1.014)
pt3dadd(21.381, 343.981, 10.2, 1.024)
pt3dadd(21.362, 344.098, 10.2, 1.034)
pt3dadd(21.367, 344.218, 10.2, 1.042)
pt3dadd(21.371, 344.338, 10.2, 1.052)
pt3dadd(21.404, 344.448, 10.185, 1.044)
pt3dadd(21.442, 344.555, 10.157, 1.026)
pt3dadd(21.447, 344.668, 10.125, 1.016)
pt3dadd(21.452, 344.782, 10.092, 1.008)
pt3dadd(21.457, 344.896, 10.06, 0.998)
pt3dadd(21.462, 345.008, 10.028, 0.988)
pt3dadd(21.464, 345.122, 9.997, 0.978)
pt3dadd(21.446, 345.239, 9.978, 0.962)
pt3dadd(21.428, 345.355, 9.959, 0.948)
pt3dadd(21.41, 345.472, 9.939, 0.934)
pt3dadd(21.392, 345.588, 9.92, 0.918)
pt3dadd(21.374, 345.704, 9.9, 0.904)
pt3dadd(21.401, 345.818, 9.883, 0.894)
pt3dadd(21.43, 345.934, 9.866, 0.884)
pt3dadd(21.459, 346.048, 9.848, 0.874)
pt3dadd(21.487, 346.163, 9.831, 0.866)
pt3dadd(21.516, 346.277, 9.814, 0.856)
pt3dadd(21.553, 346.388, 9.793, 0.844)
pt3dadd(21.592, 346.499, 9.771, 0.832)
pt3dadd(21.6, 346.613, 9.745, 0.838)
pt3dadd(21.6, 346.729, 9.717, 0.848)
pt3dadd(21.587, 346.844, 9.698, 0.862)
pt3dadd(21.552, 346.958, 9.693, 0.884)
pt3dadd(21.519, 347.07, 9.684, 0.906)
pt3dadd(21.499, 347.123, 9.595, 0.944)
pt3dadd(21.477, 347.177, 9.508, 0.98)
pt3dadd(21.418, 347.25, 9.447, 1.006)
pt3dadd(21.358, 347.323, 9.386, 1.032)
pt3dadd(21.289, 347.388, 9.333, 1.056)
pt3dadd(21.17, 347.401, 9.333, 1.068)
pt3dadd(21.052, 347.416, 9.334, 1.08)
}
}
proc shape3d_52() {
dend_5[11] { pt3dadd(20.997, 347.509, 9.376, 1.08)
pt3dadd(20.941, 347.604, 9.417, 1.08)
pt3dadd(20.895, 347.704, 9.455, 1.08)
pt3dadd(20.853, 347.808, 9.489, 1.08)
pt3dadd(20.783, 347.9, 9.497, 1.098)
pt3dadd(20.701, 347.988, 9.493, 1.126)
pt3dadd(20.618, 348.076, 9.489, 1.154)
pt3dadd(20.547, 348.107, 9.416, 1.168)
pt3dadd(20.473, 348.136, 9.343, 1.178)
pt3dadd(20.36, 348.173, 9.328, 1.152)
pt3dadd(20.248, 348.211, 9.312, 1.126)
pt3dadd(20.134, 348.241, 9.3, 1.09)
pt3dadd(20.014, 348.246, 9.3, 1.02)
pt3dadd(19.894, 348.25, 9.3, 0.95)
pt3dadd(19.784, 348.28, 9.297, 0.874)
pt3dadd(19.695, 348.359, 9.289, 0.78)
pt3dadd(19.68, 348.466, 9.25, 0.748)
pt3dadd(19.68, 348.559, 9.187, 0.798)
pt3dadd(19.68, 348.656, 9.129, 0.862)
pt3dadd(19.68, 348.772, 9.102, 0.914)
pt3dadd(19.68, 348.889, 9.089, 0.924)
pt3dadd(19.68, 349.009, 9.089, 0.914)
pt3dadd(19.68, 349.129, 9.089, 0.904)
pt3dadd(19.68, 349.249, 9.089, 0.896)
pt3dadd(19.68, 349.369, 9.089, 0.886)
pt3dadd(19.68, 349.489, 9.09, 0.866)
pt3dadd(19.68, 349.609, 9.094, 0.822)
pt3dadd(19.68, 349.729, 9.098, 0.78)
pt3dadd(19.68, 349.849, 9.1, 0.744)
pt3dadd(19.68, 349.969, 9.1, 0.718)
pt3dadd(19.68, 350.089, 9.1, 0.692)
pt3dadd(19.68, 350.208, 9.095, 0.678)
pt3dadd(19.68, 350.328, 9.083, 0.678)
pt3dadd(19.68, 350.447, 9.07, 0.678)
pt3dadd(19.68, 350.528, 9.008, 0.686)
pt3dadd(19.68, 350.597, 8.925, 0.698)
pt3dadd(19.68, 350.669, 8.845, 0.696)
pt3dadd(19.68, 350.743, 8.767, 0.682)
pt3dadd(19.68, 350.819, 8.689, 0.666)
pt3dadd(19.68, 350.893, 8.611, 0.652)
pt3dadd(19.695, 351.012, 8.607, 0.614)
pt3dadd(19.711, 351.131, 8.602, 0.574)
pt3dadd(19.732, 351.236, 8.628, 0.534)
pt3dadd(19.76, 351.322, 8.694, 0.492)
pt3dadd(19.782, 351.408, 8.757, 0.45)
pt3dadd(19.728, 351.511, 8.78, 0.41)
pt3dadd(19.668, 351.611, 8.8, 0.374)
pt3dadd(19.579, 351.691, 8.8, 0.356)
pt3dadd(19.489, 351.77, 8.8, 0.338)
pt3dadd(19.391, 351.833, 8.8, 0.33)
pt3dadd(19.273, 351.853, 8.8, 0.338)
pt3dadd(19.155, 351.874, 8.8, 0.348)
pt3dadd(19.044, 351.918, 8.8, 0.446)
pt3dadd(18.938, 351.97, 8.782, 0.488)
pt3dadd(18.833, 352.021, 8.763, 0.526)
pt3dadd(18.727, 352.073, 8.743, 0.564)
pt3dadd(18.621, 352.124, 8.724, 0.602)
pt3dadd(18.518, 352.181, 8.704, 0.642)
pt3dadd(18.421, 352.247, 8.682, 0.686)
pt3dadd(18.325, 352.313, 8.659, 0.732)
pt3dadd(18.228, 352.379, 8.636, 0.778)
pt3dadd(18.132, 352.445, 8.614, 0.824)
pt3dadd(18.073, 352.543, 8.59, 0.868)
pt3dadd(18.02, 352.648, 8.565, 0.912)
pt3dadd(17.967, 352.751, 8.54, 0.956)
pt3dadd(17.914, 352.854, 8.516, 1.002)
pt3dadd(17.855, 352.956, 8.5, 1.038)
pt3dadd(17.786, 353.053, 8.5, 1.064)
pt3dadd(17.717, 353.152, 8.5, 1.088)
pt3dadd(17.648, 353.25, 8.5, 1.114)
pt3dadd(17.579, 353.348, 8.5, 1.138)
pt3dadd(17.512, 353.448, 8.498, 1.156)
pt3dadd(17.448, 353.549, 8.493, 1.156)
pt3dadd(17.4, 353.653, 8.481, 1.15)
pt3dadd(17.4, 353.767, 8.448, 1.128)
pt3dadd(17.4, 353.88, 8.415, 1.108)
pt3dadd(17.386, 353.998, 8.403, 1.088)
pt3dadd(17.37, 354.116, 8.394, 1.066)
pt3dadd(17.325, 354.199, 8.363, 1.06)
pt3dadd(17.239, 354.227, 8.297, 1.074)
pt3dadd(17.184, 354.262, 8.218, 1.1)
pt3dadd(17.151, 354.313, 8.138, 1.134)
pt3dadd(17.106, 354.418, 8.106, 1.15)
pt3dadd(17.062, 354.522, 8.073, 1.168)
pt3dadd(17.017, 354.626, 8.041, 1.184)
pt3dadd(16.972, 354.731, 8.009, 1.2)
pt3dadd(16.922, 354.826, 7.964, 1.236)
pt3dadd(16.87, 354.916, 7.914, 1.278)
pt3dadd(16.784, 354.996, 7.9, 1.304)
pt3dadd(16.696, 355.078, 7.889, 1.33)
pt3dadd(16.634, 355.146, 7.827, 1.316)
pt3dadd(16.562, 355.2, 7.769, 1.296)
pt3dadd(16.451, 355.2, 7.73, 1.252)
pt3dadd(16.341, 355.2, 7.691, 1.208)
pt3dadd(16.264, 355.255, 7.632, 1.156)
pt3dadd(16.191, 355.315, 7.57, 1.104)
pt3dadd(16.119, 355.378, 7.511, 1.052)
pt3dadd(16.084, 355.492, 7.506, 0.998)
pt3dadd(16.05, 355.607, 7.501, 0.944)
pt3dadd(15.987, 355.706, 7.5, 0.828)
pt3dadd(15.904, 355.789, 7.477, 0.812)
pt3dadd(15.822, 355.872, 7.454, 0.794)
pt3dadd(15.739, 355.954, 7.431, 0.776)
pt3dadd(15.656, 356.036, 7.408, 0.76)
pt3dadd(15.596, 356.137, 7.4, 0.748)
pt3dadd(15.549, 356.248, 7.4, 0.738)
pt3dadd(15.501, 356.357, 7.4, 0.728)
pt3dadd(15.453, 356.467, 7.4, 0.718)
pt3dadd(15.406, 356.578, 7.4, 0.71)
pt3dadd(15.365, 356.688, 7.389, 0.704)
pt3dadd(15.34, 356.797, 7.354, 0.704)
pt3dadd(15.315, 356.906, 7.319, 0.704)
pt3dadd(15.29, 357.016, 7.284, 0.704)
pt3dadd(15.264, 357.126, 7.248, 0.704)
pt3dadd(15.228, 357.235, 7.224, 0.716)
pt3dadd(15.183, 357.344, 7.208, 0.742)
pt3dadd(15.13, 357.451, 7.2, 0.77)
pt3dadd(15.069, 357.554, 7.2, 0.804)
pt3dadd(15.003, 357.654, 7.195, 0.836)
pt3dadd(14.927, 357.744, 7.177, 0.862)
pt3dadd(14.84, 357.816, 7.154, 0.884)
pt3dadd(14.736, 357.858, 7.119, 0.896)
pt3dadd(14.633, 357.875, 7.075, 0.904)
pt3dadd(14.532, 357.864, 7.022, 0.904)
pt3dadd(14.431, 357.853, 6.969, 0.904)
pt3dadd(14.329, 357.847, 6.916, 0.904)
pt3dadd(14.227, 357.841, 6.863, 0.904)
pt3dadd(14.172, 357.84, 6.777, 0.932)
pt3dadd(14.163, 357.84, 6.678, 0.96)
pt3dadd(14.153, 357.84, 6.578, 0.986)
pt3dadd(14.118, 357.84, 6.489, 1.024)
pt3dadd(14.03, 357.84, 6.421, 1.082)
pt3dadd(13.937, 357.84, 6.36, 1.138)
pt3dadd(13.823, 357.84, 6.327, 1.182)
pt3dadd(13.71, 357.84, 6.294, 1.224)
pt3dadd(13.598, 357.845, 6.26, 1.23)
pt3dadd(13.485, 357.851, 6.225, 1.23)
pt3dadd(13.419, 357.919, 6.195, 1.212)
pt3dadd(13.383, 358.03, 6.169, 1.182)
pt3dadd(13.348, 358.14, 6.143, 1.154)
pt3dadd(13.309, 358.237, 6.105, 1.112)
pt3dadd(13.258, 358.289, 6.026, 1.03)
pt3dadd(13.184, 358.337, 5.966, 0.96)
pt3dadd(13.077, 358.378, 5.936, 0.912)
pt3dadd(12.97, 358.418, 5.906, 0.864)
pt3dadd(12.86, 358.463, 5.9, 0.82)
pt3dadd(12.75, 358.51, 5.9, 0.776)
pt3dadd(12.655, 358.579, 5.898, 0.744)
pt3dadd(12.578, 358.67, 5.894, 0.726)
pt3dadd(12.501, 358.762, 5.89, 0.708)
pt3dadd(12.43, 358.848, 5.857, 0.682)
pt3dadd(12.362, 358.931, 5.812, 0.654)
pt3dadd(12.359, 359.048, 5.798, 0.626)
pt3dadd(12.34, 359.161, 5.766, 0.616)
pt3dadd(12.321, 359.273, 5.735, 0.604)
pt3dadd(12.28, 359.375, 5.694, 0.602)
pt3dadd(12.239, 359.47, 5.649, 0.602)
pt3dadd(12.221, 359.5, 5.553, 0.602)
pt3dadd(12.202, 359.53, 5.457, 0.602)
pt3dadd(12.12, 359.594, 5.424, 0.592)
pt3dadd(12.028, 359.665, 5.4, 0.578)
pt3dadd(11.923, 359.724, 5.4, 0.57)
pt3dadd(11.818, 359.782, 5.4, 0.564)
pt3dadd(11.713, 359.84, 5.4, 0.558)
pt3dadd(11.623, 359.914, 5.4, 0.546)
pt3dadd(11.57, 360.02, 5.4, 0.522)
pt3dadd(11.516, 360.126, 5.404, 0.5)
pt3dadd(11.466, 360.216, 5.455, 0.48)
pt3dadd(11.415, 360.306, 5.506, 0.458)
pt3dadd(11.4, 360.412, 5.545, 0.43)
pt3dadd(11.4, 360.526, 5.578, 0.398)
pt3dadd(11.4, 360.641, 5.6, 0.37)
pt3dadd(11.4, 360.761, 5.6, 0.352)
pt3dadd(11.4, 360.881, 5.6, 0.332)
pt3dadd(11.4, 361.001, 5.6, 0.314)
pt3dadd(11.387, 361.117, 5.593, 0.302)
pt3dadd(11.348, 361.228, 5.571, 0.302)
pt3dadd(11.308, 361.319, 5.53, 0.324)
pt3dadd(11.27, 361.406, 5.487, 0.364)
pt3dadd(11.235, 361.518, 5.466, 0.386)
pt3dadd(11.199, 361.63, 5.446, 0.406)
pt3dadd(11.164, 361.742, 5.425, 0.426)
pt3dadd(11.128, 361.854, 5.405, 0.448)
pt3dadd(11.062, 361.95, 5.389, 0.46)
pt3dadd(10.985, 362.041, 5.374, 0.472)
pt3dadd(10.909, 362.131, 5.359, 0.482)
pt3dadd(10.833, 362.222, 5.345, 0.494)
pt3dadd(10.76, 362.316, 5.332, 0.506)
pt3dadd(10.7, 362.42, 5.325, 0.522)
pt3dadd(10.64, 362.524, 5.318, 0.536)
pt3dadd(10.58, 362.627, 5.311, 0.552)
pt3dadd(10.52, 362.731, 5.304, 0.568)
pt3dadd(10.463, 362.834, 5.294, 0.586)
pt3dadd(10.411, 362.941, 5.274, 0.614)
pt3dadd(10.36, 363.047, 5.255, 0.64)
pt3dadd(10.308, 363.152, 5.236, 0.668)
pt3dadd(10.257, 363.259, 5.217, 0.694)
pt3dadd(10.236, 363.374, 5.206, 0.716)
pt3dadd(10.229, 363.493, 5.199, 0.736)
pt3dadd(10.223, 363.613, 5.192, 0.756)
}
}
proc shape3d_53() {
dend_5[11] { pt3dadd(10.216, 363.732, 5.185, 0.776)
pt3dadd(10.21, 363.852, 5.178, 0.798)
pt3dadd(10.204, 363.972, 5.171, 0.818)
pt3dadd(10.194, 364.091, 5.162, 0.832)
pt3dadd(10.18, 364.208, 5.15, 0.842)
pt3dadd(10.166, 364.327, 5.138, 0.85)
pt3dadd(10.152, 364.446, 5.127, 0.858)
pt3dadd(10.138, 364.564, 5.115, 0.868)
pt3dadd(10.124, 364.682, 5.104, 0.876)
pt3dadd(10.113, 364.801, 5.1, 0.842)
pt3dadd(10.102, 364.921, 5.1, 0.788)
pt3dadd(10.091, 365.04, 5.1, 0.732)
pt3dadd(10.08, 365.16, 5.1, 0.678)
}
dend_5[12] {pt3dclear()
pt3dadd(47.36, 288.68, 6.8, 2.184)
pt3dadd(47.38, 288.715, 6.887, 2.054)
pt3dadd(47.401, 288.752, 6.98, 1.914)
pt3dadd(47.423, 288.79, 7.074, 1.772)
pt3dadd(47.444, 288.827, 7.167, 1.632)
pt3dadd(47.465, 288.864, 7.26, 1.492)
pt3dadd(47.487, 288.901, 7.354, 1.35)
pt3dadd(47.508, 288.938, 7.447, 1.21)
pt3dadd(47.475, 288.96, 7.522, 1.22)
pt3dadd(47.372, 288.96, 7.573, 1.426)
pt3dadd(47.288, 288.961, 7.635, 1.594)
pt3dadd(47.267, 288.966, 7.733, 1.644)
pt3dadd(47.245, 288.972, 7.831, 1.696)
pt3dadd(47.208, 289.049, 7.887, 1.718)
pt3dadd(47.165, 289.15, 7.929, 1.732)
pt3dadd(47.16, 289.226, 8.003, 1.712)
pt3dadd(47.16, 289.302, 8.081, 1.688)
pt3dadd(47.14, 289.346, 8.17, 1.682)
pt3dadd(47.113, 289.381, 8.263, 1.682)
pt3dadd(47.086, 289.416, 8.356, 1.682)
pt3dadd(47.034, 289.44, 8.434, 1.686)
pt3dadd(46.924, 289.44, 8.472, 1.696)
pt3dadd(46.813, 289.44, 8.511, 1.708)
pt3dadd(46.726, 289.44, 8.569, 1.7)
pt3dadd(46.7, 289.44, 8.667, 1.67)
pt3dadd(46.673, 289.44, 8.764, 1.64)
pt3dadd(46.593, 289.44, 8.831, 1.588)
pt3dadd(46.494, 289.44, 8.888, 1.53)
pt3dadd(46.416, 289.444, 8.961, 1.458)
pt3dadd(46.352, 289.45, 9.046, 1.374)
pt3dadd(46.294, 289.49, 9.12, 1.288)
pt3dadd(46.241, 289.566, 9.184, 1.202)
pt3dadd(46.161, 289.639, 9.225, 1.15)
pt3dadd(46.073, 289.71, 9.258, 1.108)
pt3dadd(45.985, 289.781, 9.291, 1.066)
pt3dadd(45.88, 289.8, 9.328, 1.046)
pt3dadd(45.77, 289.8, 9.367, 1.036)
pt3dadd(45.655, 289.8, 9.394, 1.03)
pt3dadd(45.56, 289.8, 9.442, 1.032)
pt3dadd(45.485, 289.8, 9.52, 1.038)
pt3dadd(45.41, 289.8, 9.598, 1.042)
pt3dadd(45.335, 289.8, 9.676, 1.048)
pt3dadd(45.26, 289.8, 9.754, 1.052)
pt3dadd(45.208, 289.8, 9.842, 1.038)
pt3dadd(45.16, 289.8, 9.933, 0.98)
pt3dadd(45.13, 289.8, 10.03, 0.924)
pt3dadd(45.116, 289.8, 10.129, 0.904)
pt3dadd(45.085, 289.8, 10.225, 0.904)
pt3dadd(45.005, 289.8, 10.296, 0.88)
pt3dadd(44.899, 289.8, 10.342, 0.848)
pt3dadd(44.788, 289.8, 10.379, 0.842)
pt3dadd(44.67, 289.8, 10.397, 0.89)
pt3dadd(44.55, 289.8, 10.4, 0.96)
pt3dadd(44.43, 289.8, 10.4, 1.016)
pt3dadd(44.31, 289.8, 10.4, 1.03)
pt3dadd(44.196, 289.831, 10.4, 1.022)
pt3dadd(44.083, 289.873, 10.4, 1.014)
pt3dadd(43.971, 289.914, 10.4, 1.004)
pt3dadd(43.858, 289.956, 10.4, 0.996)
pt3dadd(43.746, 289.998, 10.4, 0.986)
pt3dadd(43.631, 290.028, 10.395, 0.976)
pt3dadd(43.513, 290.029, 10.378, 0.968)
pt3dadd(43.395, 290.032, 10.361, 0.96)
pt3dadd(43.277, 290.034, 10.345, 0.952)
pt3dadd(43.158, 290.036, 10.328, 0.944)
pt3dadd(43.04, 290.039, 10.311, 0.934)
pt3dadd(42.923, 290.051, 10.3, 0.93)
pt3dadd(42.807, 290.084, 10.3, 0.93)
pt3dadd(42.692, 290.117, 10.3, 0.93)
pt3dadd(42.573, 290.134, 10.3, 0.946)
pt3dadd(42.454, 290.148, 10.3, 0.964)
pt3dadd(42.338, 290.16, 10.311, 0.982)
pt3dadd(42.235, 290.16, 10.361, 0.994)
pt3dadd(42.133, 290.16, 10.413, 1.004)
pt3dadd(42.106, 290.16, 10.51, 0.984)
pt3dadd(42.08, 290.16, 10.608, 0.964)
pt3dadd(42.017, 290.195, 10.663, 0.934)
pt3dadd(41.92, 290.264, 10.676, 0.896)
pt3dadd(41.823, 290.333, 10.689, 0.858)
pt3dadd(41.721, 290.388, 10.7, 0.824)
pt3dadd(41.601, 290.393, 10.7, 0.798)
pt3dadd(41.481, 290.396, 10.7, 0.77)
pt3dadd(41.361, 290.4, 10.7, 0.746)
pt3dadd(41.243, 290.412, 10.701, 0.732)
pt3dadd(41.129, 290.448, 10.703, 0.74)
pt3dadd(41.015, 290.485, 10.705, 0.75)
pt3dadd(40.9, 290.521, 10.707, 0.758)
pt3dadd(40.786, 290.558, 10.709, 0.768)
pt3dadd(40.672, 290.594, 10.711, 0.776)
pt3dadd(40.56, 290.633, 10.726, 0.786)
pt3dadd(40.448, 290.67, 10.745, 0.798)
pt3dadd(40.336, 290.708, 10.763, 0.808)
pt3dadd(40.225, 290.747, 10.781, 0.818)
pt3dadd(40.113, 290.784, 10.799, 0.828)
pt3dadd(39.996, 290.802, 10.785, 0.846)
pt3dadd(39.879, 290.82, 10.768, 0.864)
pt3dadd(39.762, 290.837, 10.752, 0.882)
pt3dadd(39.645, 290.854, 10.736, 0.902)
pt3dadd(39.528, 290.872, 10.719, 0.92)
pt3dadd(39.41, 290.891, 10.713, 0.938)
pt3dadd(39.292, 290.911, 10.717, 0.956)
pt3dadd(39.174, 290.933, 10.721, 0.974)
pt3dadd(39.056, 290.954, 10.725, 0.992)
pt3dadd(38.938, 290.975, 10.729, 1.008)
pt3dadd(38.82, 290.996, 10.733, 1.026)
pt3dadd(38.701, 291, 10.744, 1.034)
pt3dadd(38.582, 291, 10.756, 1.036)
pt3dadd(38.463, 291, 10.768, 1.04)
pt3dadd(38.344, 291, 10.781, 1.046)
pt3dadd(38.225, 291, 10.793, 1.05)
pt3dadd(38.106, 291, 10.806, 1.052)
pt3dadd(37.994, 291.029, 10.822, 1.046)
pt3dadd(37.888, 291.08, 10.841, 1.03)
pt3dadd(37.782, 291.132, 10.86, 1.014)
pt3dadd(37.676, 291.184, 10.879, 0.998)
pt3dadd(37.57, 291.235, 10.898, 0.98)
pt3dadd(37.452, 291.253, 10.9, 0.928)
pt3dadd(37.333, 291.268, 10.9, 0.872)
pt3dadd(37.223, 291.299, 10.905, 0.816)
pt3dadd(37.144, 291.384, 10.929, 0.764)
pt3dadd(37.076, 291.455, 10.974, 0.718)
pt3dadd(37.026, 291.498, 11.057, 0.692)
pt3dadd(36.963, 291.541, 11.134, 0.678)
pt3dadd(36.889, 291.587, 11.202, 0.678)
pt3dadd(36.799, 291.623, 11.26, 0.664)
pt3dadd(36.707, 291.673, 11.305, 0.65)
pt3dadd(36.621, 291.746, 11.339, 0.644)
pt3dadd(36.536, 291.82, 11.373, 0.638)
pt3dadd(36.45, 291.893, 11.408, 0.632)
pt3dadd(36.362, 291.962, 11.443, 0.624)
pt3dadd(36.267, 292.021, 11.479, 0.61)
pt3dadd(36.171, 292.084, 11.493, 0.614)
pt3dadd(36.075, 292.152, 11.475, 0.64)
pt3dadd(35.97, 292.189, 11.452, 0.668)
pt3dadd(35.855, 292.195, 11.424, 0.702)
pt3dadd(35.739, 292.2, 11.4, 0.734)
pt3dadd(35.619, 292.2, 11.4, 0.768)
pt3dadd(35.499, 292.2, 11.4, 0.802)
pt3dadd(35.379, 292.2, 11.4, 0.834)
pt3dadd(35.259, 292.2, 11.4, 0.858)
pt3dadd(35.139, 292.2, 11.4, 0.882)
pt3dadd(35.019, 292.2, 11.4, 0.898)
pt3dadd(34.899, 292.2, 11.4, 0.916)
pt3dadd(34.779, 292.201, 11.4, 0.932)
pt3dadd(34.659, 292.205, 11.4, 0.95)
pt3dadd(34.539, 292.21, 11.4, 0.966)
pt3dadd(34.436, 292.242, 11.4, 0.986)
pt3dadd(34.375, 292.346, 11.4, 1.008)
pt3dadd(34.314, 292.45, 11.4, 1.028)
pt3dadd(34.254, 292.553, 11.4, 1.016)
pt3dadd(34.193, 292.656, 11.4, 1.006)
pt3dadd(34.098, 292.67, 11.451, 0.978)
pt3dadd(33.999, 292.674, 11.508, 0.95)
pt3dadd(33.901, 292.678, 11.565, 0.922)
pt3dadd(33.813, 292.682, 11.631, 0.88)
pt3dadd(33.742, 292.688, 11.711, 0.82)
pt3dadd(33.669, 292.722, 11.771, 0.77)
pt3dadd(33.593, 292.813, 11.783, 0.74)
pt3dadd(33.517, 292.904, 11.796, 0.712)
pt3dadd(33.447, 293.002, 11.8, 0.688)
pt3dadd(33.379, 293.1, 11.8, 0.664)
pt3dadd(33.283, 293.148, 11.8, 0.646)
pt3dadd(33.163, 293.152, 11.8, 0.634)
pt3dadd(33.043, 293.155, 11.8, 0.62)
pt3dadd(32.923, 293.159, 11.8, 0.608)
pt3dadd(32.806, 293.182, 11.8, 0.59)
pt3dadd(32.691, 293.214, 11.8, 0.568)
pt3dadd(32.576, 293.248, 11.8, 0.546)
pt3dadd(32.458, 293.266, 11.8, 0.528)
pt3dadd(32.338, 293.261, 11.8, 0.532)
pt3dadd(32.218, 293.257, 11.8, 0.536)
pt3dadd(32.098, 293.254, 11.8, 0.54)
pt3dadd(31.979, 293.249, 11.8, 0.544)
pt3dadd(31.859, 293.245, 11.8, 0.548)
pt3dadd(31.739, 293.242, 11.8, 0.552)
pt3dadd(31.622, 293.227, 11.783, 0.556)
pt3dadd(31.505, 293.213, 11.762, 0.56)
pt3dadd(31.389, 293.198, 11.741, 0.566)
pt3dadd(31.272, 293.183, 11.721, 0.57)
pt3dadd(31.156, 293.168, 11.7, 0.576)
pt3dadd(31.04, 293.16, 11.676, 0.606)
pt3dadd(30.93, 293.16, 11.637, 0.672)
pt3dadd(30.819, 293.182, 11.604, 0.776)
pt3dadd(30.724, 293.238, 11.568, 0.876)
pt3dadd(30.629, 293.281, 11.521, 0.904)
pt3dadd(30.525, 293.328, 11.518, 0.904)
pt3dadd(30.483, 293.381, 11.595, 0.904)
}
}
proc shape3d_54() {
dend_5[12] { pt3dadd(30.465, 293.401, 11.693, 0.904)
pt3dadd(30.411, 293.428, 11.774, 0.918)
pt3dadd(30.329, 293.503, 11.8, 0.982)
pt3dadd(30.283, 293.614, 11.8, 1.004)
pt3dadd(30.236, 293.724, 11.8, 1.026)
pt3dadd(30.178, 293.83, 11.8, 1.03)
pt3dadd(30.117, 293.933, 11.8, 1.03)
pt3dadd(30.055, 294.012, 11.841, 1.004)
pt3dadd(29.992, 294.074, 11.907, 0.96)
pt3dadd(29.918, 294.12, 11.97, 0.914)
pt3dadd(29.814, 294.12, 12.021, 0.856)
pt3dadd(29.71, 294.121, 12.071, 0.8)
pt3dadd(29.604, 294.136, 12.115, 0.754)
pt3dadd(29.497, 294.15, 12.16, 0.708)
pt3dadd(29.397, 294.187, 12.189, 0.674)
pt3dadd(29.309, 294.269, 12.189, 0.662)
pt3dadd(29.221, 294.337, 12.168, 0.652)
pt3dadd(29.133, 294.408, 12.142, 0.66)
pt3dadd(29.045, 294.487, 12.125, 0.666)
pt3dadd(28.957, 294.566, 12.107, 0.674)
pt3dadd(28.881, 294.656, 12.1, 0.684)
pt3dadd(28.813, 294.756, 12.1, 0.696)
pt3dadd(28.73, 294.839, 12.1, 0.712)
pt3dadd(28.627, 294.9, 12.1, 0.736)
pt3dadd(28.52, 294.948, 12.1, 0.76)
pt3dadd(28.4, 294.953, 12.1, 0.786)
pt3dadd(28.28, 294.956, 12.1, 0.812)
pt3dadd(28.16, 294.961, 12.104, 0.832)
pt3dadd(28.041, 294.967, 12.117, 0.842)
pt3dadd(27.923, 294.972, 12.13, 0.852)
pt3dadd(27.851, 295.016, 12.19, 0.822)
pt3dadd(27.763, 295.031, 12.24, 0.792)
pt3dadd(27.651, 295.013, 12.272, 0.768)
pt3dadd(27.539, 294.995, 12.304, 0.746)
pt3dadd(27.426, 294.977, 12.336, 0.724)
pt3dadd(27.314, 294.96, 12.367, 0.702)
pt3dadd(27.194, 294.967, 12.374, 0.69)
pt3dadd(27.075, 294.973, 12.381, 0.678)
pt3dadd(26.955, 294.979, 12.388, 0.666)
pt3dadd(26.836, 294.985, 12.396, 0.654)
pt3dadd(26.716, 294.992, 12.403, 0.642)
pt3dadd(26.596, 294.998, 12.41, 0.63)
pt3dadd(26.489, 295.033, 12.439, 0.632)
pt3dadd(26.385, 295.075, 12.474, 0.638)
pt3dadd(26.28, 295.117, 12.509, 0.644)
pt3dadd(26.176, 295.159, 12.544, 0.65)
pt3dadd(26.074, 295.207, 12.577, 0.66)
pt3dadd(25.978, 295.27, 12.608, 0.684)
pt3dadd(25.883, 295.331, 12.639, 0.708)
pt3dadd(25.787, 295.393, 12.67, 0.73)
pt3dadd(25.691, 295.454, 12.7, 0.754)
pt3dadd(25.589, 295.518, 12.707, 0.774)
pt3dadd(25.487, 295.582, 12.714, 0.796)
pt3dadd(25.386, 295.645, 12.721, 0.816)
pt3dadd(25.284, 295.708, 12.728, 0.836)
pt3dadd(25.182, 295.77, 12.736, 0.856)
pt3dadd(25.077, 295.826, 12.75, 0.872)
pt3dadd(24.973, 295.883, 12.764, 0.888)
pt3dadd(24.868, 295.939, 12.778, 0.904)
pt3dadd(24.764, 295.996, 12.792, 0.92)
pt3dadd(24.657, 296.048, 12.8, 0.934)
pt3dadd(24.547, 296.096, 12.8, 0.942)
pt3dadd(24.436, 296.143, 12.8, 0.952)
pt3dadd(24.326, 296.191, 12.8, 0.962)
pt3dadd(24.216, 296.238, 12.8, 0.972)
pt3dadd(24.109, 296.291, 12.8, 0.982)
pt3dadd(24.026, 296.377, 12.8, 0.996)
pt3dadd(23.942, 296.464, 12.8, 1.012)
pt3dadd(23.859, 296.55, 12.8, 1.026)
pt3dadd(23.776, 296.636, 12.8, 1.042)
pt3dadd(23.686, 296.711, 12.8, 1.058)
pt3dadd(23.568, 296.731, 12.8, 1.078)
pt3dadd(23.449, 296.752, 12.8, 1.096)
pt3dadd(23.34, 296.795, 12.8, 1.112)
pt3dadd(23.236, 296.856, 12.8, 1.122)
pt3dadd(23.171, 296.94, 12.802, 1.138)
pt3dadd(23.167, 297.06, 12.805, 1.156)
pt3dadd(23.162, 297.18, 12.809, 1.174)
pt3dadd(23.144, 297.292, 12.835, 1.188)
pt3dadd(23.117, 297.398, 12.874, 1.2)
pt3dadd(23.036, 297.457, 12.898, 1.184)
pt3dadd(22.925, 297.491, 12.913, 1.152)
pt3dadd(22.849, 297.581, 12.934, 1.118)
pt3dadd(22.774, 297.671, 12.954, 1.082)
pt3dadd(22.699, 297.761, 12.974, 1.05)
pt3dadd(22.623, 297.852, 12.994, 1.014)
pt3dadd(22.539, 297.935, 13.01, 0.986)
pt3dadd(22.451, 298.014, 13.025, 0.958)
pt3dadd(22.363, 298.093, 13.04, 0.93)
pt3dadd(22.275, 298.172, 13.054, 0.902)
pt3dadd(22.188, 298.253, 13.072, 0.878)
pt3dadd(22.113, 298.338, 13.103, 0.866)
pt3dadd(22.037, 298.423, 13.135, 0.854)
pt3dadd(21.961, 298.508, 13.166, 0.842)
pt3dadd(21.886, 298.594, 13.198, 0.83)
pt3dadd(21.836, 298.702, 13.2, 0.828)
pt3dadd(21.788, 298.812, 13.2, 0.828)
pt3dadd(21.741, 298.922, 13.2, 0.828)
pt3dadd(21.693, 299.032, 13.2, 0.828)
pt3dadd(21.646, 299.142, 13.2, 0.828)
pt3dadd(21.569, 299.23, 13.2, 0.832)
pt3dadd(21.473, 299.302, 13.2, 0.836)
pt3dadd(21.377, 299.374, 13.2, 0.842)
pt3dadd(21.281, 299.446, 13.2, 0.846)
pt3dadd(21.185, 299.518, 13.2, 0.852)
pt3dadd(21.11, 299.609, 13.2, 0.868)
pt3dadd(21.049, 299.712, 13.2, 0.89)
pt3dadd(21.003, 299.821, 13.2, 0.912)
pt3dadd(20.976, 299.938, 13.2, 0.932)
pt3dadd(20.949, 300.055, 13.2, 0.952)
pt3dadd(20.845, 300.102, 13.2, 0.954)
pt3dadd(20.732, 300.142, 13.2, 0.954)
pt3dadd(20.632, 300.204, 13.2, 0.942)
pt3dadd(20.545, 300.286, 13.2, 0.918)
pt3dadd(20.454, 300.365, 13.2, 0.882)
pt3dadd(20.361, 300.439, 13.2, 0.83)
pt3dadd(20.248, 300.473, 13.22, 0.814)
pt3dadd(20.135, 300.504, 13.24, 0.798)
pt3dadd(20.022, 300.536, 13.26, 0.784)
pt3dadd(19.909, 300.569, 13.281, 0.768)
pt3dadd(19.796, 300.602, 13.3, 0.752)
pt3dadd(19.689, 300.655, 13.3, 0.73)
pt3dadd(19.581, 300.709, 13.3, 0.708)
pt3dadd(19.5, 300.796, 13.3, 0.694)
pt3dadd(19.425, 300.889, 13.3, 0.682)
pt3dadd(19.321, 300.93, 13.3, 0.678)
pt3dadd(19.202, 300.944, 13.3, 0.678)
pt3dadd(19.083, 300.96, 13.3, 0.678)
pt3dadd(18.963, 300.96, 13.296, 0.67)
pt3dadd(18.843, 300.96, 13.292, 0.66)
pt3dadd(18.724, 300.962, 13.285, 0.654)
pt3dadd(18.621, 300.994, 13.242, 0.674)
pt3dadd(18.507, 301.024, 13.227, 0.682)
pt3dadd(18.391, 301.054, 13.219, 0.686)
pt3dadd(18.276, 301.082, 13.21, 0.69)
pt3dadd(18.16, 301.112, 13.202, 0.696)
pt3dadd(18.044, 301.142, 13.194, 0.7)
pt3dadd(17.936, 301.187, 13.181, 0.71)
pt3dadd(17.84, 301.255, 13.161, 0.726)
pt3dadd(17.745, 301.325, 13.141, 0.744)
pt3dadd(17.649, 301.393, 13.121, 0.76)
pt3dadd(17.554, 301.462, 13.101, 0.776)
pt3dadd(17.439, 301.494, 13.1, 0.774)
pt3dadd(17.323, 301.525, 13.1, 0.77)
pt3dadd(17.207, 301.555, 13.1, 0.766)
pt3dadd(17.091, 301.585, 13.1, 0.762)
pt3dadd(16.975, 301.615, 13.1, 0.756)
pt3dadd(16.862, 301.654, 13.103, 0.754)
pt3dadd(16.766, 301.722, 13.12, 0.754)
pt3dadd(16.673, 301.792, 13.142, 0.754)
pt3dadd(16.591, 301.867, 13.18, 0.754)
pt3dadd(16.491, 301.909, 13.202, 0.766)
pt3dadd(16.371, 301.914, 13.206, 0.794)
pt3dadd(16.251, 301.919, 13.21, 0.82)
pt3dadd(16.136, 301.92, 13.234, 0.844)
pt3dadd(16.023, 301.92, 13.267, 0.864)
pt3dadd(15.909, 301.92, 13.298, 0.878)
pt3dadd(15.794, 301.92, 13.325, 0.878)
pt3dadd(15.693, 301.92, 13.378, 0.862)
pt3dadd(15.6, 301.92, 13.44, 0.838)
pt3dadd(15.492, 301.93, 13.475, 0.816)
pt3dadd(15.375, 301.946, 13.489, 0.796)
pt3dadd(15.263, 301.975, 13.5, 0.776)
pt3dadd(15.175, 302.057, 13.5, 0.764)
pt3dadd(15.087, 302.138, 13.5, 0.754)
pt3dadd(14.988, 302.206, 13.5, 0.766)
pt3dadd(14.889, 302.274, 13.5, 0.778)
pt3dadd(14.782, 302.329, 13.5, 0.794)
pt3dadd(14.694, 302.404, 13.5, 0.808)
pt3dadd(14.631, 302.506, 13.5, 0.818)
pt3dadd(14.568, 302.608, 13.5, 0.828)
pt3dadd(14.505, 302.71, 13.5, 0.838)
pt3dadd(14.442, 302.812, 13.5, 0.848)
pt3dadd(14.366, 302.9, 13.495, 0.854)
pt3dadd(14.264, 302.96, 13.479, 0.854)
pt3dadd(14.162, 303.022, 13.463, 0.854)
pt3dadd(14.06, 303.082, 13.447, 0.854)
pt3dadd(13.956, 303.136, 13.435, 0.854)
pt3dadd(13.839, 303.155, 13.447, 0.86)
pt3dadd(13.721, 303.174, 13.459, 0.864)
pt3dadd(13.603, 303.193, 13.471, 0.868)
pt3dadd(13.486, 303.212, 13.483, 0.872)
pt3dadd(13.368, 303.232, 13.495, 0.878)
pt3dadd(13.249, 303.24, 13.5, 0.88)
pt3dadd(13.129, 303.24, 13.5, 0.884)
pt3dadd(13.009, 303.24, 13.5, 0.888)
pt3dadd(12.889, 303.24, 13.5, 0.892)
pt3dadd(12.769, 303.24, 13.5, 0.896)
pt3dadd(12.649, 303.24, 13.5, 0.9)
pt3dadd(12.529, 303.24, 13.5, 0.902)
pt3dadd(12.41, 303.228, 13.5, 0.914)
pt3dadd(12.292, 303.209, 13.5, 0.93)
pt3dadd(12.173, 303.188, 13.5, 0.946)
pt3dadd(12.055, 303.169, 13.5, 0.964)
pt3dadd(11.937, 303.15, 13.5, 0.98)
pt3dadd(11.818, 303.13, 13.5, 0.996)
pt3dadd(11.7, 303.126, 13.5, 1.01)
pt3dadd(11.58, 303.139, 13.5, 1.022)
pt3dadd(11.461, 303.151, 13.5, 1.034)
pt3dadd(11.341, 303.164, 13.5, 1.046)
}
}
proc shape3d_55() {
dend_5[12] { pt3dadd(11.222, 303.176, 13.5, 1.058)
pt3dadd(11.103, 303.19, 13.5, 1.07)
pt3dadd(10.986, 303.209, 13.503, 1.082)
pt3dadd(10.885, 303.268, 13.525, 1.092)
pt3dadd(10.784, 303.328, 13.548, 1.104)
pt3dadd(10.683, 303.386, 13.57, 1.114)
pt3dadd(10.583, 303.445, 13.592, 1.126)
pt3dadd(10.48, 303.503, 13.614, 1.126)
pt3dadd(10.377, 303.558, 13.636, 1.12)
pt3dadd(10.275, 303.614, 13.658, 1.116)
pt3dadd(10.172, 303.67, 13.68, 1.11)
pt3dadd(10.067, 303.72, 13.7, 1.104)
pt3dadd(9.947, 303.725, 13.7, 1.086)
pt3dadd(9.827, 303.73, 13.7, 1.068)
pt3dadd(9.714, 303.751, 13.7, 1.048)
pt3dadd(9.627, 303.833, 13.7, 1.012)
pt3dadd(9.536, 303.91, 13.7, 0.976)
pt3dadd(9.418, 303.93, 13.705, 0.946)
pt3dadd(9.3, 303.952, 13.709, 0.916)
pt3dadd(9.204, 303.96, 13.755, 0.89)
pt3dadd(9.122, 303.96, 13.829, 0.866)
pt3dadd(9.054, 303.96, 13.91, 0.854)
pt3dadd(9, 303.96, 13.999, 0.854)
pt3dadd(8.883, 303.96, 14.016, 0.866)
pt3dadd(8.764, 303.96, 14.033, 0.878)
pt3dadd(8.646, 303.96, 14.049, 0.89)
pt3dadd(8.528, 303.96, 14.066, 0.904)
pt3dadd(8.409, 303.96, 14.082, 0.916)
pt3dadd(8.291, 303.96, 14.099, 0.928)
pt3dadd(8.171, 303.96, 14.1, 0.952)
pt3dadd(8.051, 303.96, 14.1, 0.976)
pt3dadd(7.931, 303.96, 14.1, 1.002)
pt3dadd(7.816, 303.929, 14.104, 1.014)
pt3dadd(7.701, 303.894, 14.109, 1.026)
pt3dadd(7.609, 303.868, 14.155, 1)
pt3dadd(7.532, 303.847, 14.23, 0.946)
pt3dadd(7.44, 303.811, 14.283, 0.884)
pt3dadd(7.34, 303.768, 14.325, 0.818)
pt3dadd(7.226, 303.752, 14.346, 0.78)
pt3dadd(7.108, 303.742, 14.363, 0.748)
pt3dadd(6.99, 303.732, 14.379, 0.718)
pt3dadd(6.872, 303.722, 14.396, 0.686)
pt3dadd(6.756, 303.72, 14.38, 0.67)
pt3dadd(6.64, 303.72, 14.352, 0.66)
pt3dadd(6.525, 303.72, 14.325, 0.662)
pt3dadd(6.408, 303.72, 14.303, 0.688)
pt3dadd(6.29, 303.72, 14.285, 0.706)
pt3dadd(6.172, 303.72, 14.268, 0.726)
pt3dadd(6.063, 303.72, 14.226, 0.748)
pt3dadd(5.956, 303.72, 14.182, 0.77)
pt3dadd(5.843, 303.72, 14.148, 0.778)
pt3dadd(5.728, 303.72, 14.121, 0.778)
pt3dadd(5.612, 303.721, 14.103, 0.778)
pt3dadd(5.493, 303.726, 14.116, 0.778)
pt3dadd(5.374, 303.732, 14.129, 0.778)
pt3dadd(5.285, 303.776, 14.171, 0.772)
pt3dadd(5.211, 303.84, 14.229, 0.764)
pt3dadd(5.137, 303.905, 14.287, 0.756)
pt3dadd(5.048, 303.978, 14.3, 0.762)
pt3dadd(4.954, 304.052, 14.3, 0.774)
pt3dadd(4.873, 304.14, 14.3, 0.846)
pt3dadd(4.775, 304.207, 14.3, 0.868)
pt3dadd(4.674, 304.273, 14.3, 0.882)
pt3dadd(4.574, 304.339, 14.3, 0.898)
pt3dadd(4.474, 304.405, 14.3, 0.912)
pt3dadd(4.373, 304.471, 14.3, 0.928)
pt3dadd(4.261, 304.511, 14.298, 0.934)
pt3dadd(4.146, 304.548, 14.296, 0.938)
pt3dadd(4.032, 304.584, 14.294, 0.942)
pt3dadd(3.918, 304.621, 14.292, 0.946)
pt3dadd(3.804, 304.657, 14.29, 0.952)
pt3dadd(3.691, 304.68, 14.274, 0.938)
pt3dadd(3.58, 304.68, 14.235, 0.894)
pt3dadd(3.47, 304.682, 14.196, 0.848)
pt3dadd(3.364, 304.702, 14.152, 0.786)
pt3dadd(3.258, 304.723, 14.114, 0.724)
pt3dadd(3.154, 304.769, 14.145, 0.668)
pt3dadd(3.046, 304.8, 14.175, 0.628)
pt3dadd(2.93, 304.8, 14.202, 0.628)
pt3dadd(2.815, 304.8, 14.23, 0.628)
pt3dadd(2.697, 304.8, 14.218, 0.634)
pt3dadd(2.579, 304.8, 14.201, 0.642)
pt3dadd(2.461, 304.8, 14.183, 0.65)
pt3dadd(2.357, 304.8, 14.138, 0.67)
pt3dadd(2.258, 304.8, 14.081, 0.692)
pt3dadd(2.157, 304.8, 14.026, 0.708)
pt3dadd(2.055, 304.8, 13.974, 0.718)
pt3dadd(1.953, 304.8, 13.921, 0.726)
pt3dadd(1.867, 304.8, 13.97, 0.748)
pt3dadd(1.786, 304.8, 14.044, 0.77)
pt3dadd(1.739, 304.81, 14.132, 0.784)
pt3dadd(1.708, 304.822, 14.228, 0.792)
pt3dadd(1.677, 304.835, 14.324, 0.8)
pt3dadd(1.603, 304.884, 14.376, 0.822)
pt3dadd(1.509, 304.949, 14.406, 0.85)
pt3dadd(1.447, 305.03, 14.451, 0.882)
pt3dadd(1.418, 305.101, 14.528, 0.896)
pt3dadd(1.365, 305.152, 14.597, 0.908)
pt3dadd(1.266, 305.165, 14.652, 0.92)
pt3dadd(1.162, 305.188, 14.691, 0.932)
pt3dadd(1.05, 305.228, 14.696, 0.944)
pt3dadd(0.937, 305.27, 14.7, 0.956)
pt3dadd(0.827, 305.317, 14.7, 0.966)
pt3dadd(0.716, 305.364, 14.7, 0.976)
pt3dadd(0.633, 305.443, 14.721, 0.98)
pt3dadd(0.549, 305.519, 14.754, 0.98)
pt3dadd(0.46, 305.585, 14.791, 0.98)
pt3dadd(0.364, 305.65, 14.818, 0.98)
pt3dadd(0.266, 305.712, 14.841, 0.98)
pt3dadd(0.248, 305.75, 14.928, 0.97)
pt3dadd(0.243, 305.784, 15.023, 0.96)
pt3dadd(0.24, 305.854, 15.098, 0.948)
pt3dadd(0.24, 305.953, 15.154, 0.936)
pt3dadd(0.239, 306.059, 15.199, 0.922)
pt3dadd(0.235, 306.174, 15.224, 0.904)
pt3dadd(0.232, 306.29, 15.248, 0.884)
pt3dadd(0.229, 306.407, 15.273, 0.866)
pt3dadd(0.2, 306.516, 15.291, 0.836)
pt3dadd(0.13, 306.612, 15.296, 0.788)
pt3dadd(0.044, 306.684, 15.3, 0.742)
pt3dadd(-0.075, 306.695, 15.3, 0.7)
pt3dadd(-0.195, 306.706, 15.3, 0.66)
pt3dadd(-0.314, 306.716, 15.3, 0.618)
pt3dadd(-0.433, 306.72, 15.308, 0.58)
pt3dadd(-0.552, 306.72, 15.32, 0.542)
pt3dadd(-0.672, 306.72, 15.332, 0.504)
pt3dadd(-0.774, 306.75, 15.369, 0.482)
pt3dadd(-0.876, 306.814, 15.375, 0.496)
pt3dadd(-0.978, 306.877, 15.382, 0.512)
pt3dadd(-1.079, 306.941, 15.389, 0.528)
pt3dadd(-1.181, 307.003, 15.396, 0.544)
pt3dadd(-1.285, 307.062, 15.4, 0.562)
pt3dadd(-1.394, 307.112, 15.4, 0.586)
pt3dadd(-1.503, 307.163, 15.4, 0.61)
pt3dadd(-1.612, 307.213, 15.4, 0.634)
pt3dadd(-1.721, 307.264, 15.4, 0.658)
pt3dadd(-1.83, 307.308, 15.396, 0.686)
pt3dadd(-1.944, 307.32, 15.365, 0.742)
pt3dadd(-2.058, 307.332, 15.336, 0.8)
pt3dadd(-2.123, 307.404, 15.28, 0.83)
pt3dadd(-2.194, 307.475, 15.23, 0.85)
pt3dadd(-2.303, 307.52, 15.214, 0.826)
pt3dadd(-2.414, 307.56, 15.2, 0.8)
pt3dadd(-2.534, 307.565, 15.2, 0.764)
pt3dadd(-2.654, 307.57, 15.2, 0.73)
pt3dadd(-2.763, 307.584, 15.215, 0.698)
pt3dadd(-2.835, 307.634, 15.283, 0.672)
pt3dadd(-2.908, 307.684, 15.351, 0.646)
pt3dadd(-2.968, 307.748, 15.413, 0.628)
pt3dadd(-2.995, 307.852, 15.459, 0.628)
pt3dadd(-3.034, 307.955, 15.495, 0.654)
pt3dadd(-3.111, 308.029, 15.533, 0.694)
pt3dadd(-3.195, 308.09, 15.582, 0.72)
pt3dadd(-3.28, 308.153, 15.631, 0.744)
pt3dadd(-3.364, 308.214, 15.679, 0.768)
pt3dadd(-3.461, 308.261, 15.721, 0.794)
pt3dadd(-3.567, 308.296, 15.758, 0.822)
pt3dadd(-3.673, 308.332, 15.795, 0.85)
pt3dadd(-3.779, 308.366, 15.832, 0.878)
pt3dadd(-3.883, 308.401, 15.871, 0.912)
pt3dadd(-3.936, 308.429, 15.956, 1.004)
pt3dadd(-3.962, 308.484, 16.042, 0.888)
pt3dadd(-3.996, 308.514, 16.132, 0.734)
pt3dadd(-4.091, 308.52, 16.188, 0.678)
pt3dadd(-4.21, 308.52, 16.2, 0.678)
pt3dadd(-4.33, 308.52, 16.2, 0.68)
pt3dadd(-4.45, 308.52, 16.199, 0.708)
pt3dadd(-4.568, 308.52, 16.184, 0.77)
pt3dadd(-4.681, 308.52, 16.15, 0.854)
pt3dadd(-4.793, 308.52, 16.116, 0.898)
pt3dadd(-4.911, 308.52, 16.101, 0.95)
pt3dadd(-5.031, 308.52, 16.1, 0.96)
pt3dadd(-5.151, 308.52, 16.1, 0.968)
pt3dadd(-5.271, 308.52, 16.1, 0.976)
pt3dadd(-5.391, 308.52, 16.1, 0.982)
pt3dadd(-5.511, 308.52, 16.1, 0.99)
pt3dadd(-5.631, 308.52, 16.1, 0.996)
pt3dadd(-5.751, 308.52, 16.1, 1.004)
pt3dadd(-5.864, 308.52, 16.132, 1.008)
pt3dadd(-5.977, 308.52, 16.167, 1.014)
pt3dadd(-6.09, 308.52, 16.201, 1.018)
pt3dadd(-6.202, 308.52, 16.236, 1.022)
pt3dadd(-6.315, 308.52, 16.271, 1.028)
pt3dadd(-6.427, 308.54, 16.29, 1.022)
pt3dadd(-6.539, 308.582, 16.292, 1.008)
pt3dadd(-6.651, 308.626, 16.294, 0.994)
pt3dadd(-6.764, 308.668, 16.296, 0.98)
pt3dadd(-6.876, 308.71, 16.298, 0.966)
pt3dadd(-6.989, 308.747, 16.3, 0.952)
pt3dadd(-7.109, 308.749, 16.3, 0.938)
pt3dadd(-7.229, 308.75, 16.3, 0.924)
pt3dadd(-7.349, 308.753, 16.3, 0.908)
pt3dadd(-7.469, 308.755, 16.3, 0.894)
pt3dadd(-7.589, 308.756, 16.3, 0.88)
pt3dadd(-7.709, 308.759, 16.3, 0.864)
pt3dadd(-7.829, 308.76, 16.3, 0.852)
pt3dadd(-7.949, 308.76, 16.3, 0.846)
pt3dadd(-8.069, 308.76, 16.3, 0.838)
pt3dadd(-8.189, 308.76, 16.3, 0.83)
pt3dadd(-8.309, 308.76, 16.3, 0.824)
}
}
proc shape3d_56() {
dend_5[12] { pt3dadd(-8.429, 308.76, 16.3, 0.816)
pt3dadd(-8.549, 308.76, 16.3, 0.81)
pt3dadd(-8.667, 308.76, 16.309, 0.804)
pt3dadd(-8.778, 308.76, 16.346, 0.804)
pt3dadd(-8.89, 308.76, 16.383, 0.804)
pt3dadd(-9.001, 308.76, 16.42, 0.804)
pt3dadd(-9.113, 308.76, 16.458, 0.804)
pt3dadd(-9.224, 308.76, 16.495, 0.804)
pt3dadd(-9.337, 308.783, 16.521, 0.808)
pt3dadd(-9.45, 308.81, 16.546, 0.814)
pt3dadd(-9.563, 308.837, 16.57, 0.818)
pt3dadd(-9.676, 308.863, 16.595, 0.824)
pt3dadd(-9.789, 308.891, 16.62, 0.828)
pt3dadd(-9.9, 308.929, 16.643, 0.828)
pt3dadd(-10.009, 308.969, 16.667, 0.828)
pt3dadd(-10.119, 309.008, 16.69, 0.828)
pt3dadd(-10.229, 309.048, 16.714, 0.828)
pt3dadd(-10.34, 309.082, 16.733, 0.83)
pt3dadd(-10.46, 309.09, 16.728, 0.834)
pt3dadd(-10.58, 309.097, 16.724, 0.84)
pt3dadd(-10.699, 309.104, 16.72, 0.844)
pt3dadd(-10.819, 309.113, 16.715, 0.85)
pt3dadd(-10.938, 309.12, 16.71, 0.854)
pt3dadd(-11.056, 309.127, 16.693, 0.876)
pt3dadd(-11.174, 309.134, 16.676, 0.898)
pt3dadd(-11.292, 309.14, 16.658, 0.92)
pt3dadd(-11.41, 309.148, 16.641, 0.942)
pt3dadd(-11.528, 309.155, 16.624, 0.964)
pt3dadd(-11.645, 309.169, 16.61, 0.998)
pt3dadd(-11.76, 309.204, 16.605, 1.062)
pt3dadd(-11.875, 309.239, 16.6, 1.128)
pt3dadd(-11.983, 309.292, 16.6, 1.172)
pt3dadd(-12.09, 309.344, 16.6, 1.218)
pt3dadd(-12.197, 309.398, 16.6, 1.206)
pt3dadd(-12.305, 309.452, 16.6, 1.172)
pt3dadd(-12.418, 309.473, 16.6, 1.128)
pt3dadd(-12.537, 309.458, 16.6, 1.072)
pt3dadd(-12.656, 309.444, 16.6, 1.016)
pt3dadd(-12.762, 309.398, 16.579, 0.926)
pt3dadd(-12.873, 309.371, 16.576, 0.874)
pt3dadd(-12.991, 309.365, 16.596, 0.862)
pt3dadd(-13.108, 309.359, 16.615, 0.852)
pt3dadd(-13.226, 309.353, 16.634, 0.84)
pt3dadd(-13.344, 309.348, 16.653, 0.83)
pt3dadd(-13.45, 309.305, 16.681, 0.852)
pt3dadd(-13.554, 309.256, 16.709, 0.878)
pt3dadd(-13.666, 309.247, 16.744, 0.89)
pt3dadd(-13.778, 309.242, 16.778, 0.9)
pt3dadd(-13.896, 309.24, 16.792, 0.91)
pt3dadd(-14.016, 309.24, 16.795, 0.918)
pt3dadd(-14.136, 309.24, 16.799, 0.928)
pt3dadd(-14.245, 309.283, 16.8, 0.902)
pt3dadd(-14.353, 309.336, 16.8, 0.868)
pt3dadd(-14.448, 309.408, 16.8, 0.844)
pt3dadd(-14.536, 309.487, 16.801, 0.828)
pt3dadd(-14.646, 309.536, 16.806, 0.816)
pt3dadd(-14.755, 309.584, 16.811, 0.804)
pt3dadd(-14.846, 309.637, 16.859, 0.83)
pt3dadd(-14.938, 309.684, 16.908, 0.858)
pt3dadd(-15.044, 309.703, 16.952, 0.882)
pt3dadd(-15.152, 309.719, 16.99, 0.908)
pt3dadd(-15.272, 309.714, 16.993, 0.936)
pt3dadd(-15.392, 309.709, 16.998, 0.962)
pt3dadd(-15.507, 309.686, 17, 0.998)
pt3dadd(-15.614, 309.632, 17, 1.048)
pt3dadd(-15.73, 309.605, 17, 1.062)
pt3dadd(-15.848, 309.58, 17, 1.07)
pt3dadd(-15.965, 309.554, 17, 1.08)
pt3dadd(-16.083, 309.53, 17, 1.088)
pt3dadd(-16.2, 309.505, 17, 1.096)
pt3dadd(-16.317, 309.48, 17, 1.104)
pt3dadd(-16.436, 309.48, 17.012, 1.104)
pt3dadd(-16.555, 309.48, 17.024, 1.104)
pt3dadd(-16.674, 309.48, 17.037, 1.104)
pt3dadd(-16.794, 309.48, 17.049, 1.104)
pt3dadd(-16.913, 309.48, 17.062, 1.104)
pt3dadd(-17.032, 309.48, 17.074, 1.104)
pt3dadd(-17.141, 309.468, 17.111, 1.098)
pt3dadd(-17.245, 309.451, 17.158, 1.086)
pt3dadd(-17.349, 309.434, 17.205, 1.076)
pt3dadd(-17.454, 309.416, 17.252, 1.066)
pt3dadd(-17.559, 309.4, 17.299, 1.054)
pt3dadd(-17.678, 309.394, 17.3, 1.044)
pt3dadd(-17.798, 309.388, 17.3, 1.032)
pt3dadd(-17.918, 309.382, 17.3, 1.022)
pt3dadd(-18.038, 309.376, 17.3, 1.01)
pt3dadd(-18.158, 309.37, 17.3, 0.998)
pt3dadd(-18.277, 309.364, 17.3, 0.986)
pt3dadd(-18.396, 309.371, 17.3, 0.97)
pt3dadd(-18.511, 309.403, 17.3, 0.938)
pt3dadd(-18.627, 309.437, 17.3, 0.908)
pt3dadd(-18.735, 309.488, 17.3, 0.874)
pt3dadd(-18.842, 309.541, 17.3, 0.84)
pt3dadd(-18.941, 309.608, 17.3, 0.806)
pt3dadd(-19.035, 309.684, 17.3, 0.77)
pt3dadd(-19.108, 309.775, 17.3, 0.736)
pt3dadd(-19.161, 309.882, 17.3, 0.702)
pt3dadd(-19.218, 309.989, 17.3, 0.668)
pt3dadd(-19.283, 310.09, 17.3, 0.634)
pt3dadd(-19.347, 310.189, 17.313, 0.622)
pt3dadd(-19.411, 310.289, 17.329, 0.616)
pt3dadd(-19.475, 310.388, 17.345, 0.61)
pt3dadd(-19.539, 310.488, 17.361, 0.604)
pt3dadd(-19.573, 310.596, 17.346, 0.61)
pt3dadd(-19.591, 310.709, 17.314, 0.622)
pt3dadd(-19.644, 310.807, 17.3, 0.64)
pt3dadd(-19.726, 310.896, 17.3, 0.664)
pt3dadd(-19.815, 310.968, 17.315, 0.7)
pt3dadd(-19.916, 311.017, 17.351, 0.754)
pt3dadd(-20.023, 311.062, 17.375, 0.818)
pt3dadd(-20.135, 311.099, 17.391, 0.888)
pt3dadd(-20.25, 311.13, 17.4, 0.966)
pt3dadd(-20.367, 311.154, 17.4, 1.056)
pt3dadd(-20.481, 311.161, 17.426, 1.09)
pt3dadd(-20.593, 311.165, 17.461, 1.104)
pt3dadd(-20.706, 311.167, 17.496, 1.118)
pt3dadd(-20.818, 311.17, 17.532, 1.132)
pt3dadd(-20.93, 311.172, 17.567, 1.146)
pt3dadd(-21.029, 311.194, 17.613, 1.144)
pt3dadd(-21.105, 311.246, 17.676, 1.116)
pt3dadd(-21.199, 311.27, 17.729, 1.076)
pt3dadd(-21.305, 311.276, 17.776, 1.028)
pt3dadd(-21.417, 311.282, 17.806, 0.986)
pt3dadd(-21.536, 311.287, 17.819, 0.946)
pt3dadd(-21.655, 311.293, 17.832, 0.908)
pt3dadd(-21.691, 311.335, 17.914, 0.87)
pt3dadd(-21.718, 311.383, 18.003, 0.832)
pt3dadd(-21.794, 311.428, 18.069, 0.806)
pt3dadd(-21.875, 311.472, 18.133, 0.78)
pt3dadd(-21.956, 311.518, 18.196, 0.754)
pt3dadd(-22.063, 311.563, 18.215, 0.742)
pt3dadd(-22.173, 311.608, 18.231, 0.73)
pt3dadd(-22.228, 311.696, 18.271, 0.796)
pt3dadd(-22.281, 311.802, 18.288, 0.858)
pt3dadd(-22.344, 311.899, 18.3, 0.92)
pt3dadd(-22.438, 311.975, 18.3, 0.978)
pt3dadd(-22.532, 312.046, 18.307, 1.036)
pt3dadd(-22.621, 312.09, 18.363, 1.076)
pt3dadd(-22.71, 312.122, 18.422, 1.108)
pt3dadd(-22.801, 312.128, 18.487, 1.122)
pt3dadd(-22.898, 312.142, 18.542, 1.132)
pt3dadd(-23.008, 312.174, 18.571, 1.14)
pt3dadd(-23.118, 312.205, 18.601, 1.146)
pt3dadd(-23.228, 312.236, 18.63, 1.154)
pt3dadd(-23.343, 312.24, 18.658, 1.156)
pt3dadd(-23.459, 312.24, 18.685, 1.156)
pt3dadd(-23.576, 312.24, 18.7, 1.132)
pt3dadd(-23.693, 312.257, 18.701, 1.092)
pt3dadd(-23.808, 312.294, 18.703, 1.064)
pt3dadd(-23.922, 312.33, 18.705, 1.038)
pt3dadd(-24.036, 312.367, 18.707, 1.01)
pt3dadd(-24.15, 312.403, 18.709, 0.982)
pt3dadd(-24.265, 312.44, 18.711, 0.954)
pt3dadd(-24.365, 312.482, 18.752, 0.888)
pt3dadd(-24.464, 312.53, 18.79, 0.826)
pt3dadd(-24.548, 312.614, 18.795, 0.802)
pt3dadd(-24.63, 312.702, 18.8, 0.78)
pt3dadd(-24.671, 312.815, 18.805, 0.802)
pt3dadd(-24.713, 312.926, 18.81, 0.824)
pt3dadd(-24.757, 313.008, 18.868, 0.852)
pt3dadd(-24.802, 313.08, 18.937, 0.88)
pt3dadd(-24.841, 313.08, 19.032, 0.89)
pt3dadd(-24.881, 313.08, 19.126, 0.9)
pt3dadd(-24.967, 313.08, 19.186, 0.904)
pt3dadd(-25.086, 313.08, 19.2, 0.932)
pt3dadd(-25.206, 313.08, 19.2, 0.982)
pt3dadd(-25.326, 313.08, 19.2, 1.058)
pt3dadd(-25.446, 313.08, 19.2, 1.104)
pt3dadd(-25.565, 313.082, 19.201, 1.078)
pt3dadd(-25.665, 313.138, 19.232, 1.056)
pt3dadd(-25.765, 313.192, 19.262, 1.032)
pt3dadd(-25.866, 313.247, 19.293, 1.01)
pt3dadd(-25.966, 313.302, 19.323, 0.986)
pt3dadd(-26.074, 313.331, 19.355, 0.96)
pt3dadd(-26.186, 313.346, 19.389, 0.93)
pt3dadd(-26.298, 313.363, 19.422, 0.9)
pt3dadd(-26.41, 313.379, 19.455, 0.868)
pt3dadd(-26.522, 313.394, 19.489, 0.838)
pt3dadd(-26.627, 313.414, 19.534, 0.796)
pt3dadd(-26.728, 313.434, 19.584, 0.744)
pt3dadd(-26.83, 313.426, 19.635, 0.71)
pt3dadd(-26.931, 313.406, 19.686, 0.686)
pt3dadd(-27.042, 313.375, 19.697, 0.678)
pt3dadd(-27.157, 313.34, 19.692, 0.678)
pt3dadd(-27.271, 313.32, 19.676, 0.678)
pt3dadd(-27.385, 313.32, 19.643, 0.678)
pt3dadd(-27.498, 313.32, 19.611, 0.678)
pt3dadd(-27.618, 313.32, 19.605, 0.692)
pt3dadd(-27.738, 313.32, 19.6, 0.706)
pt3dadd(-27.858, 313.32, 19.6, 0.732)
pt3dadd(-27.978, 313.32, 19.6, 0.75)
pt3dadd(-28.098, 313.32, 19.6, 0.724)
pt3dadd(-28.218, 313.32, 19.602, 0.7)
pt3dadd(-28.335, 313.325, 19.619, 0.678)
pt3dadd(-28.435, 313.357, 19.663, 0.678)
pt3dadd(-28.501, 313.448, 19.695, 0.742)
pt3dadd(-28.543, 313.559, 19.7, 0.884)
pt3dadd(-28.56, 313.678, 19.7, 1.026)
pt3dadd(-28.56, 313.798, 19.7, 1.128)
pt3dadd(-28.56, 313.918, 19.7, 1.18)
}
}
proc shape3d_57() {
dend_5[12] { pt3dadd(-28.576, 314.036, 19.701, 1.196)
pt3dadd(-28.626, 314.132, 19.732, 1.066)
pt3dadd(-28.687, 314.16, 19.812, 0.87)
pt3dadd(-28.749, 314.16, 19.897, 0.814)
pt3dadd(-28.824, 314.16, 19.975, 0.852)
pt3dadd(-28.921, 314.166, 20.032, 0.826)
pt3dadd(-29.029, 314.192, 20.07, 0.816)
pt3dadd(-29.137, 314.218, 20.108, 0.804)
pt3dadd(-29.245, 314.243, 20.146, 0.794)
pt3dadd(-29.353, 314.269, 20.184, 0.784)
pt3dadd(-29.468, 314.28, 20.2, 0.768)
pt3dadd(-29.588, 314.28, 20.2, 0.752)
pt3dadd(-29.708, 314.28, 20.2, 0.736)
pt3dadd(-29.828, 314.282, 20.2, 0.734)
pt3dadd(-29.948, 314.287, 20.2, 0.742)
pt3dadd(-30.068, 314.292, 20.2, 0.75)
pt3dadd(-30.162, 314.353, 20.2, 0.77)
pt3dadd(-30.243, 314.441, 20.2, 0.794)
pt3dadd(-30.325, 314.528, 20.2, 0.816)
pt3dadd(-30.407, 314.616, 20.2, 0.84)
pt3dadd(-30.497, 314.694, 20.2, 0.868)
pt3dadd(-30.598, 314.759, 20.2, 0.904)
pt3dadd(-30.7, 314.81, 20.229, 0.926)
pt3dadd(-30.803, 314.862, 20.26, 0.948)
pt3dadd(-30.905, 314.912, 20.29, 0.972)
pt3dadd(-31.007, 314.964, 20.32, 0.994)
pt3dadd(-31.116, 314.988, 20.35, 1.01)
pt3dadd(-31.231, 314.99, 20.38, 1.018)
pt3dadd(-31.345, 314.993, 20.411, 1.028)
pt3dadd(-31.459, 314.995, 20.441, 1.036)
pt3dadd(-31.574, 314.998, 20.472, 1.046)
pt3dadd(-31.688, 315.001, 20.5, 1.054)
pt3dadd(-31.807, 315.013, 20.5, 1.06)
pt3dadd(-31.927, 315.026, 20.5, 1.062)
pt3dadd(-32.046, 315.038, 20.5, 1.066)
pt3dadd(-32.166, 315.052, 20.5, 1.07)
pt3dadd(-32.285, 315.064, 20.5, 1.074)
pt3dadd(-32.404, 315.077, 20.5, 1.078)
pt3dadd(-32.522, 315.1, 20.501, 1.074)
pt3dadd(-32.638, 315.128, 20.503, 1.064)
pt3dadd(-32.755, 315.156, 20.505, 1.056)
pt3dadd(-32.872, 315.184, 20.507, 1.048)
pt3dadd(-32.988, 315.211, 20.509, 1.038)
pt3dadd(-33.105, 315.24, 20.511, 1.03)
pt3dadd(-33.202, 315.287, 20.555, 1.024)
pt3dadd(-33.299, 315.334, 20.599, 1.018)
pt3dadd(-33.396, 315.38, 20.643, 1.012)
pt3dadd(-33.493, 315.427, 20.688, 1.006)
pt3dadd(-33.602, 315.468, 20.7, 1.002)
pt3dadd(-33.715, 315.506, 20.7, 0.996)
pt3dadd(-33.829, 315.545, 20.7, 0.992)
pt3dadd(-33.942, 315.583, 20.7, 0.988)
pt3dadd(-34.056, 315.622, 20.7, 0.982)
pt3dadd(-34.166, 315.668, 20.7, 0.98)
pt3dadd(-34.259, 315.743, 20.7, 0.986)
pt3dadd(-34.353, 315.818, 20.7, 0.99)
pt3dadd(-34.446, 315.893, 20.7, 0.996)
pt3dadd(-34.54, 315.968, 20.7, 1)
pt3dadd(-34.636, 316.038, 20.705, 1.006)
pt3dadd(-34.743, 316.086, 20.726, 1.01)
pt3dadd(-34.85, 316.135, 20.748, 1.016)
pt3dadd(-34.956, 316.184, 20.77, 1.022)
pt3dadd(-35.063, 316.232, 20.791, 1.028)
pt3dadd(-35.168, 316.288, 20.8, 1.036)
pt3dadd(-35.272, 316.348, 20.8, 1.046)
pt3dadd(-35.376, 316.408, 20.8, 1.054)
pt3dadd(-35.48, 316.468, 20.8, 1.064)
pt3dadd(-35.584, 316.528, 20.8, 1.074)
pt3dadd(-35.695, 316.56, 20.8, 1.084)
pt3dadd(-35.815, 316.56, 20.8, 1.09)
pt3dadd(-35.935, 316.56, 20.8, 1.098)
pt3dadd(-36.055, 316.56, 20.8, 1.104)
pt3dadd(-36.175, 316.56, 20.8, 1.112)
pt3dadd(-36.295, 316.56, 20.8, 1.118)
pt3dadd(-36.415, 316.56, 20.8, 1.126)
pt3dadd(-36.535, 316.56, 20.802, 1.134)
pt3dadd(-36.655, 316.56, 20.806, 1.142)
pt3dadd(-36.775, 316.56, 20.809, 1.152)
pt3dadd(-36.877, 316.56, 20.85, 1.148)
pt3dadd(-36.964, 316.56, 20.918, 1.136)
pt3dadd(-37.052, 316.56, 20.986, 1.114)
pt3dadd(-37.14, 316.56, 21.054, 1.078)
pt3dadd(-37.22, 316.585, 21.118, 1.046)
pt3dadd(-37.281, 316.661, 21.176, 1.016)
pt3dadd(-37.356, 316.738, 21.219, 1)
pt3dadd(-37.44, 316.813, 21.253, 0.992)
pt3dadd(-37.524, 316.888, 21.286, 0.982)
pt3dadd(-37.623, 316.924, 21.323, 0.972)
pt3dadd(-37.733, 316.93, 21.364, 0.962)
pt3dadd(-37.832, 316.967, 21.39, 0.95)
pt3dadd(-37.914, 317.054, 21.395, 0.942)
pt3dadd(-37.997, 317.141, 21.399, 0.932)
pt3dadd(-38.044, 317.242, 21.425, 0.914)
pt3dadd(-38.07, 317.348, 21.464, 0.888)
pt3dadd(-38.15, 317.389, 21.504, 0.874)
pt3dadd(-38.259, 317.394, 21.546, 0.864)
pt3dadd(-38.368, 317.399, 21.588, 0.856)
pt3dadd(-38.485, 317.4, 21.6, 0.854)
pt3dadd(-38.605, 317.4, 21.6, 0.854)
pt3dadd(-38.725, 317.4, 21.6, 0.854)
pt3dadd(-38.845, 317.4, 21.6, 0.906)
pt3dadd(-38.959, 317.4, 21.625, 0.938)
pt3dadd(-39.072, 317.4, 21.659, 0.952)
pt3dadd(-39.185, 317.4, 21.694, 0.966)
pt3dadd(-39.297, 317.4, 21.729, 0.98)
pt3dadd(-39.41, 317.4, 21.763, 0.994)
pt3dadd(-39.517, 317.4, 21.805, 1.008)
pt3dadd(-39.611, 317.4, 21.867, 1.016)
pt3dadd(-39.705, 317.4, 21.93, 1.028)
pt3dadd(-39.798, 317.4, 21.992, 1.038)
pt3dadd(-39.892, 317.4, 22.055, 1.048)
pt3dadd(-39.977, 317.4, 22.124, 1.052)
pt3dadd(-40.038, 317.4, 22.21, 1.04)
pt3dadd(-40.103, 317.4, 22.292, 1.028)
pt3dadd(-40.216, 317.4, 22.325, 1.006)
pt3dadd(-40.329, 317.4, 22.358, 0.986)
pt3dadd(-40.447, 317.4, 22.376, 0.952)
pt3dadd(-40.566, 317.4, 22.388, 0.914)
pt3dadd(-40.685, 317.4, 22.4, 0.878)
pt3dadd(-40.805, 317.4, 22.4, 0.844)
pt3dadd(-40.925, 317.4, 22.4, 0.81)
pt3dadd(-41.045, 317.4, 22.4, 0.778)
pt3dadd(-41.165, 317.4, 22.4, 0.752)
pt3dadd(-41.285, 317.4, 22.4, 0.728)
pt3dadd(-41.405, 317.4, 22.4, 0.736)
pt3dadd(-41.525, 317.4, 22.4, 0.746)
pt3dadd(-41.645, 317.401, 22.401, 0.754)
pt3dadd(-41.757, 317.44, 22.416, 0.79)
pt3dadd(-41.87, 317.477, 22.432, 0.826)
pt3dadd(-41.935, 317.498, 22.51, 0.84)
pt3dadd(-41.996, 317.519, 22.595, 0.852)
pt3dadd(-42.088, 317.52, 22.659, 0.864)
pt3dadd(-42.181, 317.52, 22.721, 0.876)
pt3dadd(-42.251, 317.544, 22.798, 0.886)
pt3dadd(-42.314, 317.574, 22.879, 0.894)
pt3dadd(-42.378, 317.603, 22.961, 0.902)
pt3dadd(-42.466, 317.654, 22.992, 0.936)
pt3dadd(-42.568, 317.718, 22.998, 0.984)
pt3dadd(-42.68, 317.747, 23, 1.016)
pt3dadd(-42.8, 317.747, 23, 1.036)
pt3dadd(-42.92, 317.747, 23, 1.056)
pt3dadd(-43.04, 317.747, 23, 1.076)
pt3dadd(-43.126, 317.706, 23.049, 1.102)
pt3dadd(-43.2, 317.653, 23.113, 1.13)
pt3dadd(-43.24, 317.64, 23.193, 1.13)
pt3dadd(-43.358, 317.64, 23.212, 1.13)
pt3dadd(-43.476, 317.64, 23.23, 1.13)
pt3dadd(-43.594, 317.64, 23.249, 1.13)
pt3dadd(-43.712, 317.64, 23.267, 1.13)
pt3dadd(-43.83, 317.64, 23.286, 1.13)
pt3dadd(-43.948, 317.64, 23.304, 1.13)
pt3dadd(-44.066, 317.64, 23.32, 1.136)
pt3dadd(-44.185, 317.64, 23.337, 1.14)
pt3dadd(-44.303, 317.64, 23.353, 1.144)
pt3dadd(-44.421, 317.64, 23.37, 1.148)
pt3dadd(-44.54, 317.64, 23.386, 1.152)
pt3dadd(-44.658, 317.64, 23.403, 1.156)
pt3dadd(-44.776, 317.64, 23.419, 1.164)
pt3dadd(-44.895, 317.64, 23.435, 1.172)
pt3dadd(-45.013, 317.64, 23.452, 1.182)
pt3dadd(-45.132, 317.64, 23.468, 1.19)
pt3dadd(-45.25, 317.64, 23.485, 1.198)
pt3dadd(-45.367, 317.64, 23.503, 1.206)
pt3dadd(-45.475, 317.64, 23.548, 1.218)
pt3dadd(-45.582, 317.64, 23.593, 1.228)
pt3dadd(-45.694, 317.64, 23.627, 1.212)
pt3dadd(-45.808, 317.64, 23.661, 1.192)
pt3dadd(-45.895, 317.662, 23.716, 1.148)
pt3dadd(-45.953, 317.705, 23.795, 1.078)
pt3dadd(-46.012, 317.749, 23.874, 1.036)
pt3dadd(-46.07, 317.792, 23.954, 1.008)
pt3dadd(-46.165, 317.836, 23.999, 1.018)
pt3dadd(-46.267, 317.878, 24.038, 1.034)
pt3dadd(-46.369, 317.92, 24.077, 1.05)
pt3dadd(-46.411, 318.016, 24.095, 1.098)
pt3dadd(-46.427, 318.134, 24.104, 1.158)
pt3dadd(-46.444, 318.251, 24.118, 1.228)
pt3dadd(-46.478, 318.324, 24.177, 1.274)
pt3dadd(-46.526, 318.359, 24.264, 1.262)
pt3dadd(-46.568, 318.428, 24.332, 1.208)
pt3dadd(-46.604, 318.522, 24.386, 1.126)
pt3dadd(-46.699, 318.564, 24.411, 1.048)
pt3dadd(-46.815, 318.587, 24.425, 0.972)
pt3dadd(-46.931, 318.6, 24.445, 0.906)
pt3dadd(-47.047, 318.6, 24.473, 0.854)
pt3dadd(-47.162, 318.6, 24.5, 0.804)
pt3dadd(-47.282, 318.6, 24.5, 0.79)
pt3dadd(-47.402, 318.6, 24.501, 0.778)
pt3dadd(-47.512, 318.6, 24.54, 0.792)
pt3dadd(-47.622, 318.6, 24.58, 0.808)
pt3dadd(-47.733, 318.6, 24.62, 0.822)
pt3dadd(-47.843, 318.6, 24.659, 0.836)
pt3dadd(-47.953, 318.6, 24.699, 0.85)
pt3dadd(-48.019, 318.6, 24.775, 0.876)
pt3dadd(-48.066, 318.6, 24.867, 0.91)
pt3dadd(-48.139, 318.602, 24.936, 0.938)
pt3dadd(-48.251, 318.608, 24.971, 0.96)
pt3dadd(-48.364, 318.619, 25, 0.978)
pt3dadd(-48.477, 318.659, 25, 0.968)
pt3dadd(-48.59, 318.698, 25, 0.956)
}
}
proc shape3d_58() {
dend_5[12] { pt3dadd(-48.708, 318.714, 25, 0.94)
pt3dadd(-48.828, 318.724, 25, 0.922)
pt3dadd(-48.948, 318.733, 25, 0.904)
pt3dadd(-49.059, 318.776, 25, 0.872)
pt3dadd(-49.174, 318.806, 25.005, 0.852)
pt3dadd(-49.293, 318.821, 25.017, 0.848)
pt3dadd(-49.411, 318.834, 25.029, 0.842)
pt3dadd(-49.53, 318.848, 25.04, 0.838)
pt3dadd(-49.648, 318.862, 25.052, 0.834)
pt3dadd(-49.766, 318.876, 25.063, 0.83)
pt3dadd(-49.885, 318.89, 25.071, 0.828)
pt3dadd(-50.004, 318.906, 25.076, 0.828)
pt3dadd(-50.123, 318.923, 25.082, 0.828)
pt3dadd(-50.241, 318.938, 25.087, 0.828)
pt3dadd(-50.36, 318.954, 25.093, 0.828)
pt3dadd(-50.479, 318.97, 25.099, 0.828)
pt3dadd(-50.588, 318.994, 25.131, 0.824)
pt3dadd(-50.695, 319.019, 25.172, 0.82)
pt3dadd(-50.801, 319.045, 25.213, 0.814)
pt3dadd(-50.908, 319.07, 25.253, 0.808)
pt3dadd(-51.015, 319.096, 25.291, 0.802)
pt3dadd(-51.132, 319.118, 25.305, 0.794)
pt3dadd(-51.249, 319.141, 25.32, 0.784)
pt3dadd(-51.365, 319.163, 25.334, 0.774)
pt3dadd(-51.482, 319.186, 25.349, 0.766)
pt3dadd(-51.598, 319.208, 25.363, 0.756)
pt3dadd(-51.711, 319.247, 25.372, 0.75)
pt3dadd(-51.822, 319.291, 25.378, 0.744)
pt3dadd(-51.934, 319.334, 25.385, 0.74)
pt3dadd(-52.045, 319.379, 25.391, 0.734)
pt3dadd(-52.157, 319.423, 25.398, 0.73)
pt3dadd(-52.264, 319.456, 25.427, 0.732)
pt3dadd(-52.369, 319.482, 25.47, 0.736)
pt3dadd(-52.473, 319.508, 25.514, 0.742)
pt3dadd(-52.578, 319.535, 25.557, 0.748)
pt3dadd(-52.683, 319.56, 25.6, 0.754)
pt3dadd(-52.803, 319.56, 25.6, 0.772)
pt3dadd(-52.923, 319.56, 25.6, 0.79)
pt3dadd(-53.043, 319.56, 25.6, 0.808)
pt3dadd(-53.163, 319.56, 25.6, 0.826)
pt3dadd(-53.283, 319.56, 25.6, 0.844)
pt3dadd(-53.403, 319.56, 25.6, 0.862)
pt3dadd(-53.523, 319.561, 25.6, 0.88)
pt3dadd(-53.633, 319.608, 25.607, 0.9)
pt3dadd(-53.743, 319.656, 25.613, 0.918)
pt3dadd(-53.853, 319.703, 25.62, 0.938)
pt3dadd(-53.963, 319.75, 25.626, 0.958)
pt3dadd(-54.073, 319.798, 25.633, 0.978)
pt3dadd(-54.169, 319.855, 25.668, 1.006)
pt3dadd(-54.267, 319.906, 25.7, 1.026)
pt3dadd(-54.387, 319.895, 25.7, 0.986)
pt3dadd(-54.506, 319.885, 25.7, 0.946)
pt3dadd(-54.624, 319.862, 25.7, 0.906)
pt3dadd(-54.739, 319.829, 25.7, 0.864)
pt3dadd(-54.853, 319.807, 25.699, 0.826)
pt3dadd(-54.959, 319.862, 25.694, 0.802)
pt3dadd(-55.065, 319.919, 25.689, 0.778)
pt3dadd(-55.073, 319.975, 25.602, 0.802)
pt3dadd(-55.079, 320.032, 25.514, 0.826)
pt3dadd(-55.08, 320.04, 25.416, 0.872)
pt3dadd(-55.08, 320.04, 25.316, 0.9)
pt3dadd(-55.08, 320.04, 25.216, 0.904)
pt3dadd(-55.092, 320.04, 25.116, 0.904)
pt3dadd(-55.141, 320.016, 25.031, 0.86)
pt3dadd(-55.238, 319.961, 25, 0.756)
pt3dadd(-55.353, 319.931, 25, 0.664)
pt3dadd(-55.473, 319.92, 25, 0.582)
pt3dadd(-55.593, 319.92, 25, 0.514)
pt3dadd(-55.713, 319.92, 25, 0.478)
pt3dadd(-55.833, 319.916, 25, 0.5)
pt3dadd(-55.945, 319.883, 25.002, 0.58)
pt3dadd(-56.047, 319.819, 25.007, 0.652)
pt3dadd(-56.127, 319.76, 25.036, 0.732)
pt3dadd(-56.154, 319.714, 25.125, 0.832)
pt3dadd(-56.184, 319.675, 25.216, 0.996)
pt3dadd(-56.24, 319.632, 25.292, 1.204)
pt3dadd(-56.309, 319.57, 25.356, 1.334)
pt3dadd(-56.351, 319.466, 25.38, 1.434)
pt3dadd(-56.389, 319.354, 25.395, 1.528)
pt3dadd(-56.432, 319.243, 25.411, 1.59)
pt3dadd(-56.477, 319.134, 25.427, 1.64)
pt3dadd(-56.535, 319.093, 25.486, 1.642)
pt3dadd(-56.602, 319.093, 25.569, 1.616)
pt3dadd(-56.629, 319.112, 25.661, 1.58)
pt3dadd(-56.632, 319.142, 25.758, 1.536)
pt3dadd(-56.635, 319.171, 25.854, 1.492)
pt3dadd(-56.639, 319.201, 25.951, 1.448)
pt3dadd(-56.644, 319.238, 26.046, 1.39)
pt3dadd(-56.649, 319.28, 26.14, 1.324)
pt3dadd(-56.677, 319.322, 26.227, 1.258)
pt3dadd(-56.75, 319.369, 26.292, 1.206)
pt3dadd(-56.858, 319.417, 26.3, 1.19)
pt3dadd(-56.976, 319.438, 26.3, 1.16)
pt3dadd(-57.096, 319.44, 26.3, 1.136)
pt3dadd(-57.216, 319.44, 26.3, 1.13)
pt3dadd(-57.336, 319.44, 26.3, 1.15)
pt3dadd(-57.456, 319.44, 26.3, 1.182)
pt3dadd(-57.576, 319.44, 26.3, 1.216)
pt3dadd(-57.696, 319.44, 26.3, 1.248)
pt3dadd(-57.815, 319.452, 26.3, 1.316)
pt3dadd(-57.934, 319.466, 26.3, 1.39)
pt3dadd(-58.053, 319.483, 26.301, 1.468)
pt3dadd(-58.167, 319.518, 26.305, 1.576)
pt3dadd(-58.282, 319.553, 26.31, 1.684)
pt3dadd(-58.371, 319.56, 26.369, 1.772)
pt3dadd(-58.452, 319.56, 26.442, 1.856)
pt3dadd(-58.536, 319.56, 26.514, 1.884)
pt3dadd(-58.628, 319.565, 26.574, 1.874)
pt3dadd(-58.741, 319.586, 26.603, 1.832)
pt3dadd(-58.854, 319.608, 26.632, 1.792)
pt3dadd(-58.966, 319.63, 26.661, 1.752)
pt3dadd(-59.079, 319.651, 26.69, 1.712)
pt3dadd(-59.192, 319.668, 26.721, 1.664)
pt3dadd(-59.304, 319.67, 26.757, 1.604)
pt3dadd(-59.416, 319.673, 26.792, 1.542)
pt3dadd(-59.529, 319.675, 26.827, 1.482)
pt3dadd(-59.641, 319.678, 26.862, 1.42)
pt3dadd(-59.753, 319.68, 26.898, 1.36)
pt3dadd(-59.871, 319.698, 26.9, 1.31)
pt3dadd(-59.989, 319.718, 26.9, 1.26)
pt3dadd(-60.108, 319.738, 26.9, 1.21)
pt3dadd(-60.226, 319.758, 26.9, 1.16)
pt3dadd(-60.344, 319.777, 26.9, 1.112)
pt3dadd(-60.463, 319.798, 26.9, 1.062)
pt3dadd(-60.581, 319.818, 26.907, 1.024)
pt3dadd(-60.698, 319.84, 26.914, 0.988)
pt3dadd(-60.816, 319.86, 26.922, 0.954)
pt3dadd(-60.934, 319.882, 26.93, 0.918)
pt3dadd(-61.052, 319.903, 26.938, 0.882)
pt3dadd(-61.169, 319.92, 26.95, 0.852)
pt3dadd(-61.284, 319.92, 26.977, 0.838)
pt3dadd(-61.4, 319.92, 27.005, 0.824)
pt3dadd(-61.515, 319.92, 27.032, 0.812)
pt3dadd(-61.63, 319.92, 27.06, 0.798)
pt3dadd(-61.746, 319.92, 27.087, 0.784)
pt3dadd(-61.864, 319.919, 27.1, 0.774)
pt3dadd(-61.984, 319.918, 27.1, 0.768)
pt3dadd(-62.104, 319.915, 27.1, 0.76)
pt3dadd(-62.224, 319.913, 27.1, 0.752)
pt3dadd(-62.343, 319.912, 27.1, 0.746)
pt3dadd(-62.463, 319.909, 27.1, 0.738)
pt3dadd(-62.583, 319.908, 27.1, 0.73)
pt3dadd(-62.703, 319.896, 27.1, 0.726)
pt3dadd(-62.821, 319.878, 27.1, 0.722)
pt3dadd(-62.94, 319.861, 27.1, 0.718)
pt3dadd(-63.059, 319.844, 27.1, 0.714)
pt3dadd(-63.178, 319.826, 27.1, 0.71)
pt3dadd(-63.296, 319.81, 27.1, 0.706)
pt3dadd(-63.416, 319.798, 27.1, 0.7)
pt3dadd(-63.536, 319.793, 27.1, 0.69)
pt3dadd(-63.656, 319.789, 27.1, 0.682)
pt3dadd(-63.761, 319.753, 27.121, 0.686)
pt3dadd(-63.856, 319.694, 27.158, 0.7)
pt3dadd(-63.926, 319.603, 27.179, 0.712)
pt3dadd(-63.986, 319.502, 27.196, 0.726)
pt3dadd(-64.061, 319.409, 27.196, 0.738)
pt3dadd(-64.139, 319.319, 27.19, 0.75)
pt3dadd(-64.23, 319.256, 27.158, 0.754)
pt3dadd(-64.325, 319.205, 27.115, 0.754)
pt3dadd(-64.442, 319.2, 27.1, 0.78)
pt3dadd(-64.562, 319.2, 27.1, 0.83)
pt3dadd(-64.681, 319.217, 27.1, 0.878)
pt3dadd(-64.793, 319.256, 27.1, 0.868)
pt3dadd(-64.901, 319.31, 27.1, 0.854)
pt3dadd(-64.977, 319.37, 27.152, 0.878)
pt3dadd(-65.045, 319.428, 27.218, 0.908)
pt3dadd(-65.103, 319.441, 27.305, 0.956)
pt3dadd(-65.161, 319.457, 27.389, 1.006)
pt3dadd(-65.2, 319.57, 27.393, 1.038)
pt3dadd(-65.24, 319.684, 27.396, 1.072)
pt3dadd(-65.279, 319.796, 27.4, 1.104)
pt3dadd(-65.339, 319.9, 27.4, 1.15)
pt3dadd(-65.4, 320.004, 27.4, 1.196)
pt3dadd(-65.506, 320.029, 27.4, 1.216)
pt3dadd(-65.626, 320.033, 27.4, 1.228)
pt3dadd(-65.746, 320.036, 27.4, 1.242)
pt3dadd(-65.866, 320.04, 27.4, 1.254)
pt3dadd(-65.985, 320.053, 27.4, 1.264)
pt3dadd(-66.105, 320.068, 27.4, 1.274)
pt3dadd(-66.219, 320.093, 27.405, 1.288)
pt3dadd(-66.315, 320.156, 27.432, 1.328)
pt3dadd(-66.353, 320.252, 27.478, 1.444)
pt3dadd(-66.36, 320.369, 27.497, 1.482)
pt3dadd(-66.36, 320.489, 27.5, 1.426)
pt3dadd(-66.371, 320.609, 27.5, 1.302)
pt3dadd(-66.411, 320.711, 27.52, 1.118)
pt3dadd(-66.497, 320.74, 27.585, 1.024)
pt3dadd(-66.573, 320.772, 27.656, 0.928)
pt3dadd(-66.624, 320.815, 27.739, 0.834)
pt3dadd(-66.698, 320.858, 27.79, 0.758)
pt3dadd(-66.81, 320.903, 27.794, 0.708)
pt3dadd(-66.921, 320.947, 27.798, 0.658)
pt3dadd(-67.026, 321.002, 27.793, 0.618)
pt3dadd(-67.122, 321.071, 27.776, 0.592)
pt3dadd(-67.213, 321.116, 27.734, 0.614)
pt3dadd(-67.32, 321.154, 27.731, 0.646)
pt3dadd(-67.433, 321.193, 27.741, 0.67)
pt3dadd(-67.545, 321.234, 27.751, 0.692)
pt3dadd(-67.659, 321.268, 27.762, 0.714)
pt3dadd(-67.775, 321.295, 27.773, 0.734)
}
}
proc shape3d_59() {
dend_5[12] { pt3dadd(-67.891, 321.324, 27.785, 0.752)
pt3dadd(-68.007, 321.352, 27.797, 0.772)
pt3dadd(-68.124, 321.36, 27.788, 0.782)
pt3dadd(-68.243, 321.36, 27.772, 0.786)
pt3dadd(-68.361, 321.36, 27.755, 0.79)
pt3dadd(-68.48, 321.36, 27.739, 0.794)
pt3dadd(-68.598, 321.36, 27.722, 0.798)
pt3dadd(-68.716, 321.36, 27.706, 0.802)
pt3dadd(-68.836, 321.36, 27.7, 0.808)
pt3dadd(-68.956, 321.36, 27.7, 0.818)
pt3dadd(-69.076, 321.36, 27.7, 0.826)
pt3dadd(-69.196, 321.36, 27.7, 0.824)
pt3dadd(-69.316, 321.36, 27.7, 0.816)
pt3dadd(-69.436, 321.36, 27.7, 0.806)
pt3dadd(-69.552, 321.364, 27.718, 0.79)
pt3dadd(-69.667, 321.37, 27.747, 0.768)
pt3dadd(-69.761, 321.407, 27.774, 0.746)
pt3dadd(-69.808, 321.514, 27.796, 0.72)
pt3dadd(-69.854, 321.618, 27.825, 0.696)
pt3dadd(-69.902, 321.71, 27.87, 0.678)
pt3dadd(-70.001, 321.754, 27.914, 0.678)
pt3dadd(-70.101, 321.797, 27.957, 0.678)
pt3dadd(-70.2, 321.84, 28, 0.678)
}
apic[14] {pt3dclear()
pt3dadd(112.187, 202.32, -2.989, 2.964)
pt3dadd(112.209, 202.324, -3.029, 3)
pt3dadd(112.26, 202.332, -3.119, 3.082)
pt3dadd(112.31, 202.34, -3.21, 3.166)
pt3dadd(112.361, 202.349, -3.3, 3.248)
pt3dadd(112.411, 202.357, -3.39, 3.332)
pt3dadd(112.462, 202.366, -3.481, 3.416)
pt3dadd(112.512, 202.373, -3.571, 3.498)
pt3dadd(112.563, 202.381, -3.662, 3.582)
pt3dadd(112.614, 202.39, -3.752, 3.664)
pt3dadd(112.664, 202.398, -3.842, 3.748)
pt3dadd(112.715, 202.406, -3.933, 3.83)
pt3dadd(112.765, 202.415, -4.023, 3.914)
pt3dadd(112.816, 202.423, -4.114, 3.998)
pt3dadd(112.866, 202.432, -4.204, 4.08)
pt3dadd(112.917, 202.44, -4.295, 4.164)
pt3dadd(112.92, 202.541, -4.342, 4.2)
pt3dadd(112.92, 202.649, -4.387, 4.234)
pt3dadd(112.92, 202.74, -4.45, 4.168)
pt3dadd(112.92, 202.832, -4.511, 4.072)
pt3dadd(112.92, 202.944, -4.548, 3.996)
pt3dadd(112.92, 203.056, -4.585, 3.922)
pt3dadd(112.92, 203.167, -4.622, 3.848)
pt3dadd(112.92, 203.278, -4.659, 3.772)
pt3dadd(112.92, 203.389, -4.696, 3.698)
pt3dadd(112.938, 203.507, -4.7, 3.612)
pt3dadd(112.958, 203.626, -4.7, 3.526)
pt3dadd(112.977, 203.744, -4.7, 3.44)
pt3dadd(112.997, 203.862, -4.7, 3.352)
pt3dadd(113.017, 203.981, -4.7, 3.266)
pt3dadd(113.037, 204.098, -4.7, 3.18)
pt3dadd(113.057, 204.217, -4.705, 3.074)
pt3dadd(113.078, 204.335, -4.71, 2.966)
pt3dadd(113.099, 204.454, -4.716, 2.856)
pt3dadd(113.12, 204.571, -4.722, 2.748)
pt3dadd(113.14, 204.689, -4.728, 2.64)
pt3dadd(113.162, 204.806, -4.735, 2.518)
pt3dadd(113.204, 204.911, -4.77, 2.204)
pt3dadd(113.243, 205.016, -4.801, 1.906)
pt3dadd(113.258, 205.135, -4.805, 1.712)
pt3dadd(113.273, 205.255, -4.809, 1.516)
pt3dadd(113.292, 205.35, -4.853, 1.336)
pt3dadd(113.312, 205.426, -4.929, 1.166)
pt3dadd(113.376, 205.5, -4.975, 1.06)
pt3dadd(113.464, 205.573, -5.005, 0.992)
pt3dadd(113.516, 205.667, -5.048, 0.996)
pt3dadd(113.596, 205.734, -5.08, 1.034)
pt3dadd(113.703, 205.781, -5.102, 1.084)
pt3dadd(113.793, 205.841, -5.142, 1.13)
pt3dadd(113.869, 205.91, -5.193, 1.174)
pt3dadd(113.897, 206.011, -5.238, 1.18)
pt3dadd(113.916, 206.117, -5.282, 1.18)
pt3dadd(113.949, 206.23, -5.293, 1.172)
pt3dadd(113.983, 206.345, -5.298, 1.16)
pt3dadd(114, 206.461, -5.31, 1.156)
pt3dadd(114, 206.579, -5.33, 1.156)
pt3dadd(114, 206.682, -5.378, 1.16)
pt3dadd(114, 206.783, -5.433, 1.164)
pt3dadd(114, 206.882, -5.488, 1.17)
pt3dadd(114, 206.983, -5.543, 1.174)
pt3dadd(114, 207.083, -5.598, 1.18)
pt3dadd(114, 207.193, -5.636, 1.18)
pt3dadd(114, 207.306, -5.669, 1.18)
pt3dadd(114, 207.422, -5.692, 1.17)
pt3dadd(114, 207.542, -5.7, 1.142)
pt3dadd(114, 207.661, -5.708, 1.116)
pt3dadd(114.028, 207.758, -5.75, 1.078)
pt3dadd(114.073, 207.84, -5.812, 1.036)
pt3dadd(114.138, 207.923, -5.859, 1.042)
pt3dadd(114.203, 208.009, -5.902, 1.064)
pt3dadd(114.231, 208.122, -5.925, 1.188)
pt3dadd(114.282, 208.223, -5.956, 1.27)
pt3dadd(114.344, 208.316, -5.99, 1.328)
pt3dadd(114.407, 208.41, -6.024, 1.388)
pt3dadd(114.469, 208.505, -6.058, 1.446)
pt3dadd(114.528, 208.596, -6.1, 1.506)
pt3dadd(114.579, 208.682, -6.154, 1.568)
pt3dadd(114.631, 208.77, -6.207, 1.628)
pt3dadd(114.682, 208.856, -6.261, 1.688)
pt3dadd(114.734, 208.944, -6.314, 1.764)
pt3dadd(114.787, 209.034, -6.364, 1.876)
pt3dadd(114.852, 209.122, -6.401, 1.986)
pt3dadd(114.931, 209.208, -6.424, 2.094)
pt3dadd(114.994, 209.257, -6.487, 2.192)
pt3dadd(115.05, 209.285, -6.573, 2.282)
pt3dadd(115.075, 209.323, -6.664, 2.366)
pt3dadd(115.087, 209.366, -6.756, 2.448)
pt3dadd(115.12, 209.407, -6.845, 2.502)
pt3dadd(115.171, 209.446, -6.93, 2.534)
pt3dadd(115.222, 209.483, -7.014, 2.566)
pt3dadd(115.297, 209.519, -7.072, 2.586)
pt3dadd(115.412, 209.548, -7.088, 2.586)
pt3dadd(115.51, 209.592, -7.106, 2.578)
pt3dadd(115.529, 209.702, -7.142, 2.534)
pt3dadd(115.548, 209.813, -7.178, 2.488)
pt3dadd(115.56, 209.916, -7.224, 2.42)
pt3dadd(115.56, 210.01, -7.286, 2.314)
pt3dadd(115.578, 210.085, -7.353, 2.21)
pt3dadd(115.651, 210.106, -7.43, 2.114)
pt3dadd(115.724, 210.126, -7.508, 2.016)
pt3dadd(115.799, 210.185, -7.563, 1.858)
pt3dadd(115.875, 210.26, -7.608, 1.672)
pt3dadd(115.929, 210.332, -7.669, 1.302)
pt3dadd(115.998, 210.37, -7.745, 1.214)
pt3dadd(116.067, 210.408, -7.82, 1.126)
pt3dadd(116.135, 210.445, -7.896, 1.036)
pt3dadd(116.203, 210.486, -7.97, 0.946)
pt3dadd(116.256, 210.569, -8.027, 0.818)
pt3dadd(116.312, 210.65, -8.084, 0.706)
pt3dadd(116.373, 210.726, -8.142, 0.634)
pt3dadd(116.434, 210.817, -8.176, 0.61)
pt3dadd(116.495, 210.919, -8.193, 0.622)
pt3dadd(116.553, 211.021, -8.186, 0.644)
pt3dadd(116.607, 211.124, -8.164, 0.668)
pt3dadd(116.654, 211.187, -8.099, 0.716)
pt3dadd(116.705, 211.249, -8.036, 0.758)
pt3dadd(116.771, 211.345, -8.015, 0.772)
pt3dadd(116.838, 211.442, -7.993, 0.786)
pt3dadd(116.905, 211.538, -7.972, 0.8)
pt3dadd(116.984, 211.624, -7.949, 0.79)
pt3dadd(117.057, 211.712, -7.943, 0.762)
pt3dadd(117.112, 211.812, -7.974, 0.71)
pt3dadd(117.12, 211.879, -8.052, 0.674)
pt3dadd(117.12, 211.939, -8.138, 0.64)
pt3dadd(117.133, 211.99, -8.228, 0.628)
pt3dadd(117.152, 212.035, -8.319, 0.628)
pt3dadd(117.213, 212.1, -8.346, 0.638)
pt3dadd(117.297, 212.177, -8.319, 0.674)
pt3dadd(117.366, 212.246, -8.262, 0.768)
pt3dadd(117.434, 212.324, -8.214, 0.94)
pt3dadd(117.473, 212.435, -8.221, 1.076)
pt3dadd(117.48, 212.536, -8.271, 1.126)
pt3dadd(117.48, 212.606, -8.35, 1.16)
pt3dadd(117.48, 212.632, -8.447, 1.19)
pt3dadd(117.48, 212.64, -8.547, 1.194)
pt3dadd(117.48, 212.64, -8.647, 1.168)
pt3dadd(117.48, 212.647, -8.747, 1.128)
pt3dadd(117.51, 212.683, -8.835, 1.09)
pt3dadd(117.561, 212.735, -8.914, 1.062)
pt3dadd(117.63, 212.809, -8.962, 1.044)
pt3dadd(117.705, 212.891, -8.999, 1.03)
pt3dadd(117.722, 213.01, -9.002, 1.082)
pt3dadd(117.745, 213.124, -9.024, 1.106)
pt3dadd(117.769, 213.239, -9.045, 1.13)
pt3dadd(117.792, 213.354, -9.067, 1.156)
pt3dadd(117.816, 213.468, -9.089, 1.18)
pt3dadd(117.839, 213.583, -9.11, 1.204)
pt3dadd(117.893, 213.673, -9.158, 1.222)
pt3dadd(117.947, 213.763, -9.206, 1.24)
pt3dadd(118.002, 213.853, -9.254, 1.26)
pt3dadd(118.057, 213.943, -9.302, 1.278)
pt3dadd(118.099, 214.04, -9.349, 1.28)
pt3dadd(118.139, 214.139, -9.395, 1.28)
pt3dadd(118.179, 214.237, -9.441, 1.28)
pt3dadd(118.219, 214.337, -9.487, 1.28)
pt3dadd(118.252, 214.441, -9.527, 1.274)
pt3dadd(118.277, 214.552, -9.559, 1.258)
pt3dadd(118.302, 214.662, -9.592, 1.242)
pt3dadd(118.326, 214.774, -9.624, 1.226)
pt3dadd(118.351, 214.884, -9.656, 1.21)
pt3dadd(118.393, 214.987, -9.691, 1.188)
pt3dadd(118.444, 215.088, -9.726, 1.16)
pt3dadd(118.496, 215.174, -9.779, 1.144)
pt3dadd(118.549, 215.258, -9.835, 1.13)
pt3dadd(118.601, 215.353, -9.878, 1.13)
pt3dadd(118.645, 215.437, -9.932, 1.13)
pt3dadd(118.664, 215.483, -10.024, 1.13)
pt3dadd(118.684, 215.521, -10.116, 1.128)
pt3dadd(118.709, 215.53, -10.214, 1.112)
pt3dadd(118.753, 215.581, -10.285, 1.104)
pt3dadd(118.812, 215.666, -10.337, 1.104)
pt3dadd(118.87, 215.75, -10.388, 1.104)
pt3dadd(118.929, 215.836, -10.439, 1.104)
pt3dadd(119, 215.893, -10.497, 1.118)
pt3dadd(119.086, 215.922, -10.563, 1.144)
pt3dadd(119.154, 215.996, -10.592, 1.19)
pt3dadd(119.21, 216.103, -10.597, 1.25)
}
}
proc shape3d_60() {
apic[14] { pt3dadd(119.249, 216.21, -10.617, 1.298)
pt3dadd(119.268, 216.32, -10.655, 1.334)
pt3dadd(119.28, 216.413, -10.71, 1.352)
pt3dadd(119.28, 216.481, -10.793, 1.34)
pt3dadd(119.288, 216.56, -10.858, 1.324)
pt3dadd(119.32, 216.674, -10.87, 1.298)
pt3dadd(119.352, 216.79, -10.882, 1.27)
pt3dadd(119.384, 216.904, -10.894, 1.244)
pt3dadd(119.427, 217.015, -10.9, 1.208)
pt3dadd(119.481, 217.122, -10.9, 1.162)
pt3dadd(119.535, 217.23, -10.9, 1.102)
pt3dadd(119.603, 217.327, -10.9, 1.042)
pt3dadd(119.685, 217.415, -10.9, 1.018)
pt3dadd(119.758, 217.508, -10.9, 1)
pt3dadd(119.819, 217.612, -10.9, 0.988)
pt3dadd(119.868, 217.715, -10.911, 0.982)
pt3dadd(119.874, 217.817, -10.964, 0.994)
pt3dadd(119.885, 217.91, -11.021, 1.004)
pt3dadd(119.932, 217.937, -11.111, 1.004)
pt3dadd(119.978, 217.974, -11.189, 1.006)
pt3dadd(120.016, 218.088, -11.192, 1.012)
pt3dadd(120.054, 218.201, -11.195, 1.018)
pt3dadd(120.092, 218.315, -11.198, 1.024)
pt3dadd(120.12, 218.43, -11.2, 1.028)
pt3dadd(120.12, 218.55, -11.2, 1.02)
pt3dadd(120.12, 218.67, -11.2, 1.01)
pt3dadd(120.12, 218.79, -11.2, 0.998)
pt3dadd(120.124, 218.91, -11.205, 0.976)
pt3dadd(120.139, 219.026, -11.226, 0.962)
pt3dadd(120.154, 219.143, -11.247, 0.948)
pt3dadd(120.169, 219.259, -11.267, 0.934)
pt3dadd(120.184, 219.376, -11.288, 0.92)
pt3dadd(120.198, 219.492, -11.309, 0.906)
pt3dadd(120.21, 219.59, -11.363, 0.894)
pt3dadd(120.221, 219.686, -11.422, 0.884)
pt3dadd(120.233, 219.784, -11.481, 0.874)
pt3dadd(120.244, 219.88, -11.54, 0.862)
pt3dadd(120.257, 219.976, -11.599, 0.854)
pt3dadd(120.281, 220.068, -11.659, 0.86)
pt3dadd(120.305, 220.162, -11.719, 0.866)
pt3dadd(120.329, 220.254, -11.779, 0.872)
pt3dadd(120.353, 220.346, -11.839, 0.878)
pt3dadd(120.4, 220.44, -11.888, 0.884)
pt3dadd(120.454, 220.532, -11.933, 0.89)
pt3dadd(120.508, 220.625, -11.978, 0.896)
pt3dadd(120.562, 220.717, -12.023, 0.902)
pt3dadd(120.588, 220.814, -12.073, 0.906)
pt3dadd(120.59, 220.915, -12.126, 0.912)
pt3dadd(120.594, 221.017, -12.179, 0.916)
pt3dadd(120.596, 221.118, -12.233, 0.922)
pt3dadd(120.599, 221.22, -12.286, 0.926)
pt3dadd(120.622, 221.321, -12.334, 0.92)
pt3dadd(120.661, 221.422, -12.378, 0.902)
pt3dadd(120.701, 221.522, -12.421, 0.886)
pt3dadd(120.739, 221.623, -12.464, 0.868)
pt3dadd(120.784, 221.723, -12.502, 0.852)
pt3dadd(120.851, 221.821, -12.517, 0.848)
pt3dadd(120.917, 221.92, -12.531, 0.842)
pt3dadd(120.984, 222.018, -12.546, 0.836)
pt3dadd(121.051, 222.116, -12.56, 0.832)
pt3dadd(121.111, 222.218, -12.571, 0.828)
pt3dadd(121.168, 222.324, -12.577, 0.828)
pt3dadd(121.225, 222.43, -12.584, 0.828)
pt3dadd(121.282, 222.535, -12.591, 0.828)
pt3dadd(121.338, 222.641, -12.597, 0.828)
pt3dadd(121.422, 222.721, -12.6, 0.842)
pt3dadd(121.523, 222.787, -12.6, 0.86)
pt3dadd(121.622, 222.853, -12.6, 0.88)
pt3dadd(121.723, 222.918, -12.6, 0.9)
pt3dadd(121.824, 222.984, -12.6, 0.92)
pt3dadd(121.894, 223.075, -12.6, 0.954)
pt3dadd(121.939, 223.187, -12.6, 0.998)
pt3dadd(122.003, 223.279, -12.6, 1.038)
pt3dadd(122.113, 223.326, -12.6, 1.072)
pt3dadd(122.225, 223.372, -12.6, 1.104)
pt3dadd(122.246, 223.488, -12.6, 1.114)
pt3dadd(122.267, 223.607, -12.6, 1.124)
pt3dadd(122.286, 223.724, -12.6, 1.122)
pt3dadd(122.3, 223.844, -12.6, 1.104)
pt3dadd(122.315, 223.963, -12.6, 1.086)
pt3dadd(122.35, 224.077, -12.6, 1.046)
pt3dadd(122.387, 224.189, -12.605, 1)
pt3dadd(122.389, 224.3, -12.643, 0.978)
pt3dadd(122.392, 224.411, -12.681, 0.954)
pt3dadd(122.395, 224.522, -12.719, 0.93)
pt3dadd(122.398, 224.633, -12.757, 0.906)
pt3dadd(122.4, 224.744, -12.795, 0.882)
pt3dadd(122.424, 224.828, -12.861, 0.874)
pt3dadd(122.452, 224.908, -12.932, 0.868)
pt3dadd(122.479, 224.987, -13.004, 0.862)
pt3dadd(122.506, 225.067, -13.075, 0.856)
pt3dadd(122.533, 225.16, -13.131, 0.854)
pt3dadd(122.558, 225.266, -13.172, 0.854)
pt3dadd(122.585, 225.372, -13.213, 0.854)
pt3dadd(122.61, 225.479, -13.254, 0.854)
pt3dadd(122.636, 225.586, -13.294, 0.854)
pt3dadd(122.64, 225.694, -13.336, 0.866)
pt3dadd(122.64, 225.803, -13.378, 0.88)
pt3dadd(122.64, 225.912, -13.421, 0.894)
pt3dadd(122.64, 226.02, -13.463, 0.908)
pt3dadd(122.64, 226.129, -13.505, 0.924)
pt3dadd(122.64, 226.241, -13.542, 0.93)
pt3dadd(122.64, 226.354, -13.575, 0.93)
pt3dadd(122.64, 226.469, -13.6, 0.932)
pt3dadd(122.64, 226.589, -13.6, 0.94)
pt3dadd(122.64, 226.709, -13.6, 0.948)
pt3dadd(122.64, 226.825, -13.612, 0.96)
pt3dadd(122.64, 226.928, -13.663, 0.982)
pt3dadd(122.64, 227.028, -13.716, 1.006)
pt3dadd(122.64, 227.048, -13.814, 1.044)
pt3dadd(122.64, 227.069, -13.913, 1.084)
pt3dadd(122.645, 227.13, -13.983, 1.114)
pt3dadd(122.656, 227.24, -14.02, 1.136)
pt3dadd(122.666, 227.352, -14.057, 1.156)
pt3dadd(122.678, 227.462, -14.094, 1.176)
pt3dadd(122.708, 227.576, -14.104, 1.172)
pt3dadd(122.743, 227.692, -14.109, 1.16)
pt3dadd(122.76, 227.803, -14.134, 1.102)
pt3dadd(122.762, 227.906, -14.184, 1.064)
pt3dadd(122.765, 228.011, -14.234, 1.044)
pt3dadd(122.767, 228.114, -14.285, 1.024)
pt3dadd(122.77, 228.217, -14.336, 1.004)
pt3dadd(122.772, 228.32, -14.387, 0.984)
pt3dadd(122.789, 228.43, -14.424, 0.972)
pt3dadd(122.812, 228.541, -14.455, 0.962)
pt3dadd(122.833, 228.653, -14.487, 0.952)
pt3dadd(122.855, 228.764, -14.519, 0.94)
pt3dadd(122.876, 228.876, -14.551, 0.93)
pt3dadd(122.88, 228.985, -14.591, 0.926)
pt3dadd(122.88, 229.094, -14.634, 0.92)
pt3dadd(122.88, 229.204, -14.676, 0.916)
pt3dadd(122.88, 229.312, -14.718, 0.91)
pt3dadd(122.88, 229.421, -14.76, 0.906)
pt3dadd(122.88, 229.534, -14.794, 0.902)
pt3dadd(122.88, 229.649, -14.821, 0.896)
pt3dadd(122.88, 229.764, -14.849, 0.892)
pt3dadd(122.88, 229.879, -14.876, 0.888)
pt3dadd(122.88, 229.994, -14.904, 0.884)
pt3dadd(122.88, 230.111, -14.931, 0.88)
pt3dadd(122.861, 230.196, -14.997, 0.854)
pt3dadd(122.84, 230.28, -15.067, 0.828)
pt3dadd(122.795, 230.363, -15.129, 0.772)
pt3dadd(122.76, 230.449, -15.189, 0.72)
pt3dadd(122.76, 230.552, -15.24, 0.686)
pt3dadd(122.76, 230.657, -15.289, 0.652)
pt3dadd(122.76, 230.777, -15.293, 0.644)
pt3dadd(122.76, 230.897, -15.297, 0.636)
pt3dadd(122.76, 231.017, -15.3, 0.632)
pt3dadd(122.76, 231.137, -15.3, 0.656)
pt3dadd(122.76, 231.256, -15.302, 0.68)
pt3dadd(122.76, 231.374, -15.319, 0.688)
pt3dadd(122.76, 231.493, -15.335, 0.696)
pt3dadd(122.76, 231.611, -15.351, 0.704)
pt3dadd(122.76, 231.73, -15.368, 0.712)
pt3dadd(122.76, 231.848, -15.384, 0.72)
pt3dadd(122.76, 231.966, -15.402, 0.728)
pt3dadd(122.762, 232.078, -15.437, 0.734)
pt3dadd(122.765, 232.19, -15.473, 0.738)
pt3dadd(122.767, 232.302, -15.508, 0.742)
pt3dadd(122.77, 232.415, -15.543, 0.748)
pt3dadd(122.772, 232.528, -15.579, 0.752)
pt3dadd(122.81, 232.608, -15.638, 0.764)
pt3dadd(122.864, 232.676, -15.707, 0.778)
pt3dadd(122.873, 232.776, -15.761, 0.812)
pt3dadd(122.879, 232.878, -15.814, 0.848)
pt3dadd(122.88, 232.99, -15.85, 0.89)
pt3dadd(122.88, 233.102, -15.883, 0.932)
pt3dadd(122.88, 233.219, -15.902, 0.972)
pt3dadd(122.88, 233.339, -15.906, 1.006)
pt3dadd(122.88, 233.459, -15.91, 1.04)
pt3dadd(122.896, 233.572, -15.934, 1.07)
pt3dadd(122.922, 233.678, -15.974, 1.094)
pt3dadd(122.996, 233.746, -16.01, 1.128)
pt3dadd(123.084, 233.76, -16.072, 1.094)
pt3dadd(123.115, 233.76, -16.167, 1.064)
pt3dadd(123.12, 233.77, -16.266, 1.074)
pt3dadd(123.121, 233.815, -16.356, 1.106)
pt3dadd(123.162, 233.923, -16.384, 1.13)
pt3dadd(123.202, 234.03, -16.414, 1.156)
pt3dadd(123.222, 234.106, -16.49, 1.182)
pt3dadd(123.24, 234.186, -16.561, 1.214)
pt3dadd(123.24, 234.296, -16.598, 1.254)
pt3dadd(123.24, 234.413, -16.624, 1.25)
pt3dadd(123.24, 234.529, -16.649, 1.246)
pt3dadd(123.24, 234.646, -16.674, 1.24)
pt3dadd(123.24, 234.762, -16.699, 1.236)
pt3dadd(123.24, 234.877, -16.724, 1.232)
pt3dadd(123.251, 234.978, -16.774, 1.216)
pt3dadd(123.269, 235.069, -16.837, 1.194)
pt3dadd(123.287, 235.159, -16.901, 1.172)
pt3dadd(123.305, 235.25, -16.964, 1.15)
pt3dadd(123.322, 235.343, -17.025, 1.128)
pt3dadd(123.331, 235.456, -17.06, 1.104)
pt3dadd(123.342, 235.567, -17.095, 1.078)
pt3dadd(123.353, 235.68, -17.129, 1.054)
pt3dadd(123.362, 235.792, -17.164, 1.03)
pt3dadd(123.373, 235.903, -17.199, 1.006)
pt3dadd(123.419, 236.014, -17.2, 0.962)
pt3dadd(123.466, 236.125, -17.2, 0.918)
pt3dadd(123.514, 236.234, -17.203, 0.88)
}
}
proc shape3d_61() {
apic[14] { pt3dadd(123.562, 236.344, -17.208, 0.846)
pt3dadd(123.59, 236.449, -17.237, 0.816)
pt3dadd(123.596, 236.551, -17.29, 0.794)
pt3dadd(123.6, 236.653, -17.342, 0.778)
pt3dadd(123.6, 236.758, -17.392, 0.778)
pt3dadd(123.6, 236.861, -17.442, 0.784)
pt3dadd(123.6, 236.969, -17.487, 0.818)
pt3dadd(123.6, 237.07, -17.54, 0.846)
pt3dadd(123.6, 237.169, -17.597, 0.868)
pt3dadd(123.6, 237.276, -17.64, 0.878)
pt3dadd(123.6, 237.389, -17.673, 0.878)
pt3dadd(123.604, 237.503, -17.7, 0.878)
pt3dadd(123.624, 237.622, -17.7, 0.868)
pt3dadd(123.644, 237.739, -17.7, 0.858)
pt3dadd(123.706, 237.836, -17.7, 0.854)
pt3dadd(123.793, 237.917, -17.7, 0.854)
pt3dadd(123.865, 238.01, -17.7, 0.886)
pt3dadd(123.919, 238.118, -17.7, 0.954)
pt3dadd(123.928, 238.236, -17.717, 0.976)
pt3dadd(123.934, 238.354, -17.734, 0.998)
pt3dadd(123.941, 238.472, -17.752, 1.02)
pt3dadd(123.948, 238.59, -17.769, 1.04)
pt3dadd(123.955, 238.708, -17.787, 1.062)
pt3dadd(123.96, 238.826, -17.804, 1.082)
pt3dadd(123.96, 238.944, -17.823, 1.09)
pt3dadd(123.96, 239.062, -17.841, 1.098)
pt3dadd(123.96, 239.179, -17.86, 1.106)
pt3dadd(123.96, 239.298, -17.878, 1.116)
pt3dadd(123.96, 239.416, -17.897, 1.124)
pt3dadd(123.961, 239.528, -17.924, 1.126)
pt3dadd(123.964, 239.626, -17.983, 1.106)
pt3dadd(123.966, 239.723, -18.041, 1.084)
pt3dadd(123.968, 239.82, -18.1, 1.064)
pt3dadd(123.971, 239.917, -18.159, 1.044)
pt3dadd(123.98, 240.018, -18.21, 1.02)
pt3dadd(124.006, 240.128, -18.245, 0.988)
pt3dadd(124.031, 240.238, -18.28, 0.956)
pt3dadd(124.056, 240.347, -18.316, 0.926)
pt3dadd(124.081, 240.456, -18.351, 0.894)
pt3dadd(124.103, 240.571, -18.37, 0.874)
pt3dadd(124.121, 240.689, -18.375, 0.866)
pt3dadd(124.14, 240.808, -18.381, 0.858)
pt3dadd(124.158, 240.926, -18.387, 0.848)
pt3dadd(124.176, 241.044, -18.392, 0.84)
pt3dadd(124.194, 241.163, -18.398, 0.832)
pt3dadd(124.184, 241.279, -18.413, 0.832)
pt3dadd(124.162, 241.394, -18.432, 0.836)
pt3dadd(124.138, 241.51, -18.452, 0.842)
pt3dadd(124.115, 241.626, -18.471, 0.846)
pt3dadd(124.092, 241.741, -18.49, 0.852)
pt3dadd(124.08, 241.858, -18.511, 0.858)
pt3dadd(124.08, 241.974, -18.534, 0.866)
pt3dadd(124.08, 242.09, -18.557, 0.876)
pt3dadd(124.08, 242.208, -18.58, 0.884)
pt3dadd(124.08, 242.324, -18.603, 0.892)
pt3dadd(124.08, 242.441, -18.626, 0.902)
pt3dadd(124.08, 242.557, -18.65, 0.904)
pt3dadd(124.08, 242.674, -18.675, 0.904)
pt3dadd(124.08, 242.79, -18.701, 0.904)
pt3dadd(124.08, 242.906, -18.726, 0.904)
pt3dadd(124.08, 243.023, -18.751, 0.904)
pt3dadd(124.08, 243.138, -18.776, 0.904)
pt3dadd(124.055, 243.242, -18.821, 0.91)
pt3dadd(124.028, 243.346, -18.868, 0.914)
pt3dadd(124.002, 243.448, -18.914, 0.92)
pt3dadd(123.976, 243.551, -18.961, 0.926)
pt3dadd(123.937, 243.647, -19.009, 0.938)
pt3dadd(123.878, 243.731, -19.061, 0.964)
pt3dadd(123.82, 243.816, -19.112, 0.988)
pt3dadd(123.761, 243.9, -19.164, 1.012)
pt3dadd(123.72, 243.986, -19.219, 1.04)
pt3dadd(123.72, 244.078, -19.284, 1.076)
pt3dadd(123.72, 244.17, -19.349, 1.11)
pt3dadd(123.72, 244.261, -19.414, 1.146)
pt3dadd(123.72, 244.352, -19.479, 1.182)
pt3dadd(123.728, 244.447, -19.536, 1.224)
pt3dadd(123.755, 244.553, -19.58, 1.286)
pt3dadd(123.781, 244.657, -19.624, 1.346)
pt3dadd(123.808, 244.762, -19.667, 1.406)
pt3dadd(123.833, 244.867, -19.711, 1.466)
pt3dadd(123.848, 244.967, -19.764, 1.51)
pt3dadd(123.859, 245.065, -19.82, 1.546)
pt3dadd(123.871, 245.164, -19.877, 1.584)
pt3dadd(123.882, 245.262, -19.933, 1.62)
pt3dadd(123.893, 245.362, -19.989, 1.658)
pt3dadd(123.941, 245.47, -20.005, 1.652)
pt3dadd(123.988, 245.578, -20.021, 1.646)
pt3dadd(124.036, 245.687, -20.038, 1.642)
pt3dadd(124.082, 245.795, -20.054, 1.636)
pt3dadd(124.129, 245.899, -20.079, 1.614)
pt3dadd(124.174, 245.988, -20.135, 1.53)
pt3dadd(124.219, 246.078, -20.19, 1.446)
pt3dadd(124.264, 246.167, -20.246, 1.362)
pt3dadd(124.307, 246.257, -20.301, 1.278)
pt3dadd(124.309, 246.365, -20.344, 1.196)
pt3dadd(124.312, 246.473, -20.387, 1.114)
pt3dadd(124.314, 246.582, -20.43, 1.03)
pt3dadd(124.318, 246.69, -20.473, 0.948)
pt3dadd(124.32, 246.798, -20.516, 0.866)
pt3dadd(124.32, 246.902, -20.566, 0.726)
pt3dadd(124.32, 247.006, -20.616, 0.578)
pt3dadd(124.32, 247.09, -20.685, 0.504)
pt3dadd(124.32, 247.165, -20.763, 0.468)
pt3dadd(124.32, 247.24, -20.842, 0.464)
pt3dadd(124.32, 247.315, -20.92, 0.488)
pt3dadd(124.326, 247.406, -20.972, 0.518)
pt3dadd(124.343, 247.524, -20.986, 0.562)
pt3dadd(124.361, 247.642, -21, 0.604)
pt3dadd(124.415, 247.748, -21, 0.636)
pt3dadd(124.468, 247.855, -21.009, 0.652)
pt3dadd(124.52, 247.961, -21.025, 0.652)
pt3dadd(124.572, 248.064, -21.052, 0.64)
pt3dadd(124.622, 248.165, -21.087, 0.612)
pt3dadd(124.662, 248.274, -21.1, 0.596)
pt3dadd(124.694, 248.39, -21.1, 0.586)
pt3dadd(124.732, 248.498, -21.088, 0.584)
pt3dadd(124.784, 248.581, -21.031, 0.612)
pt3dadd(124.841, 248.662, -20.974, 0.66)
pt3dadd(124.902, 248.738, -20.916, 0.732)
pt3dadd(124.958, 248.837, -20.9, 0.85)
pt3dadd(125.014, 248.934, -20.929, 0.89)
pt3dadd(125.04, 248.987, -21.011, 0.828)
pt3dadd(125.04, 249.019, -21.108, 0.742)
pt3dadd(125.056, 249.055, -21.2, 0.704)
pt3dadd(125.098, 249.097, -21.287, 0.704)
pt3dadd(125.105, 249.131, -21.377, 0.718)
pt3dadd(125.072, 249.155, -21.472, 0.748)
pt3dadd(124.975, 249.192, -21.495, 0.768)
pt3dadd(124.862, 249.233, -21.502, 0.784)
pt3dadd(124.75, 249.274, -21.51, 0.802)
pt3dadd(124.709, 249.34, -21.577, 0.792)
pt3dadd(124.681, 249.412, -21.654, 0.778)
pt3dadd(124.68, 249.491, -21.728, 0.736)
pt3dadd(124.68, 249.571, -21.803, 0.69)
pt3dadd(124.681, 249.65, -21.878, 0.64)
pt3dadd(124.687, 249.73, -21.953, 0.556)
pt3dadd(124.699, 249.803, -22.029, 0.468)
pt3dadd(124.763, 249.835, -22.109, 0.368)
pt3dadd(124.855, 249.84, -22.17, 0.334)
pt3dadd(124.972, 249.84, -22.193, 0.394)
pt3dadd(125.09, 249.846, -22.2, 0.45)
pt3dadd(125.203, 249.881, -22.2, 0.53)
pt3dadd(125.285, 249.966, -22.197, 0.656)
pt3dadd(125.352, 250.055, -22.16, 0.698)
pt3dadd(125.417, 250.141, -22.117, 0.732)
pt3dadd(125.478, 250.217, -22.06, 0.746)
pt3dadd(125.509, 250.312, -22.011, 0.762)
pt3dadd(125.514, 250.421, -21.969, 0.78)
pt3dadd(125.518, 250.53, -21.928, 0.796)
pt3dadd(125.52, 250.645, -21.909, 0.82)
pt3dadd(125.52, 250.765, -21.905, 0.846)
pt3dadd(125.52, 250.885, -21.901, 0.872)
pt3dadd(125.52, 251.005, -21.9, 0.932)
pt3dadd(125.52, 251.123, -21.915, 0.952)
pt3dadd(125.52, 251.24, -21.935, 0.946)
pt3dadd(125.52, 251.358, -21.956, 0.942)
pt3dadd(125.52, 251.476, -21.977, 0.938)
pt3dadd(125.52, 251.593, -21.997, 0.934)
pt3dadd(125.52, 251.71, -22.018, 0.93)
pt3dadd(125.507, 251.822, -22.051, 0.916)
pt3dadd(125.491, 251.933, -22.087, 0.902)
pt3dadd(125.474, 252.043, -22.123, 0.886)
pt3dadd(125.458, 252.155, -22.159, 0.872)
pt3dadd(125.442, 252.265, -22.195, 0.856)
pt3dadd(125.424, 252.377, -22.227, 0.812)
pt3dadd(125.405, 252.49, -22.258, 0.766)
pt3dadd(125.434, 252.6, -22.278, 0.736)
pt3dadd(125.478, 252.709, -22.295, 0.712)
pt3dadd(125.569, 252.773, -22.3, 0.696)
pt3dadd(125.682, 252.812, -22.3, 0.686)
pt3dadd(125.797, 252.845, -22.301, 0.678)
pt3dadd(125.916, 252.86, -22.306, 0.678)
pt3dadd(126.035, 252.876, -22.31, 0.678)
pt3dadd(126.096, 252.959, -22.33, 0.678)
pt3dadd(126.137, 253.067, -22.357, 0.678)
pt3dadd(126.176, 253.175, -22.384, 0.678)
pt3dadd(126.226, 253.282, -22.4, 0.674)
pt3dadd(126.286, 253.385, -22.4, 0.662)
pt3dadd(126.349, 253.487, -22.4, 0.652)
pt3dadd(126.396, 253.592, -22.41, 0.656)
pt3dadd(126.416, 253.708, -22.428, 0.66)
pt3dadd(126.437, 253.824, -22.447, 0.664)
pt3dadd(126.457, 253.94, -22.466, 0.67)
pt3dadd(126.478, 254.057, -22.485, 0.674)
pt3dadd(126.503, 254.172, -22.5, 0.686)
pt3dadd(126.544, 254.284, -22.5, 0.718)
pt3dadd(126.586, 254.396, -22.5, 0.75)
pt3dadd(126.628, 254.509, -22.5, 0.782)
pt3dadd(126.668, 254.622, -22.5, 0.814)
pt3dadd(126.71, 254.735, -22.5, 0.846)
pt3dadd(126.755, 254.846, -22.5, 0.878)
pt3dadd(126.799, 254.957, -22.5, 0.912)
pt3dadd(126.844, 255.068, -22.5, 0.944)
pt3dadd(126.888, 255.18, -22.5, 0.976)
pt3dadd(126.932, 255.292, -22.5, 1.01)
pt3dadd(126.97, 255.401, -22.517, 1.044)
pt3dadd(126.996, 255.505, -22.56, 1.082)
pt3dadd(127.022, 255.61, -22.604, 1.122)
pt3dadd(127.049, 255.715, -22.648, 1.16)
pt3dadd(127.075, 255.82, -22.691, 1.198)
}
}
proc shape3d_62() {
apic[14] { pt3dadd(127.08, 255.936, -22.7, 1.206)
pt3dadd(127.08, 256.056, -22.7, 1.206)
pt3dadd(127.08, 256.176, -22.7, 1.206)
pt3dadd(127.08, 256.296, -22.7, 1.206)
pt3dadd(127.08, 256.416, -22.7, 1.206)
pt3dadd(127.08, 256.536, -22.7, 1.206)
pt3dadd(127.08, 256.656, -22.7, 1.206)
pt3dadd(127.08, 256.776, -22.7, 1.186)
pt3dadd(127.08, 256.896, -22.7, 1.1)
pt3dadd(127.08, 257.016, -22.69, 0.99)
pt3dadd(127.054, 257.12, -22.655, 0.828)
pt3dadd(126.959, 257.16, -22.611, 0.754)
pt3dadd(126.84, 257.16, -22.6, 0.728)
}
apic[15] {pt3dclear()
pt3dadd(139.822, 162.166, 7.832, 2.43)
pt3dadd(139.853, 162.114, 7.745, 2.366)
pt3dadd(139.896, 162.054, 7.651, 2.286)
pt3dadd(139.937, 161.995, 7.557, 2.206)
pt3dadd(139.98, 161.936, 7.463, 2.124)
pt3dadd(140.021, 161.876, 7.369, 2.044)
pt3dadd(140.063, 161.819, 7.275, 1.964)
pt3dadd(140.106, 161.759, 7.181, 1.884)
pt3dadd(140.147, 161.7, 7.087, 1.802)
pt3dadd(140.189, 161.64, 6.993, 1.722)
pt3dadd(140.231, 161.581, 6.899, 1.64)
pt3dadd(140.273, 161.521, 6.805, 1.56)
pt3dadd(140.315, 161.462, 6.711, 1.48)
pt3dadd(140.357, 161.402, 6.617, 1.4)
pt3dadd(140.334, 161.389, 6.539, 1.356)
pt3dadd(140.239, 161.429, 6.478, 1.356)
pt3dadd(140.15, 161.443, 6.403, 1.356)
pt3dadd(140.065, 161.446, 6.32, 1.356)
pt3dadd(139.99, 161.474, 6.238, 1.356)
pt3dadd(139.92, 161.525, 6.157, 1.356)
pt3dadd(139.88, 161.533, 6.053, 1.356)
pt3dadd(139.844, 161.534, 5.945, 1.356)
pt3dadd(139.787, 161.532, 5.848, 1.356)
pt3dadd(139.709, 161.527, 5.76, 1.356)
pt3dadd(139.628, 161.522, 5.673, 1.356)
pt3dadd(139.549, 161.518, 5.585, 1.356)
pt3dadd(139.429, 161.513, 5.567, 1.356)
pt3dadd(139.309, 161.508, 5.551, 1.356)
pt3dadd(139.189, 161.503, 5.532, 1.356)
pt3dadd(139.082, 161.498, 5.475, 1.356)
pt3dadd(138.992, 161.494, 5.398, 1.356)
pt3dadd(138.955, 161.49, 5.292, 1.356)
pt3dadd(138.943, 161.485, 5.181, 1.356)
pt3dadd(138.942, 161.48, 5.068, 1.356)
pt3dadd(138.942, 161.476, 4.956, 1.356)
pt3dadd(138.934, 161.471, 4.845, 1.356)
pt3dadd(138.889, 161.466, 4.74, 1.356)
pt3dadd(138.842, 161.461, 4.635, 1.356)
pt3dadd(138.798, 161.456, 4.53, 1.356)
pt3dadd(138.754, 161.452, 4.425, 1.356)
pt3dadd(138.708, 161.447, 4.32, 1.356)
pt3dadd(138.672, 161.442, 4.212, 1.356)
pt3dadd(138.638, 161.437, 4.104, 1.356)
pt3dadd(138.61, 161.432, 3.995, 1.356)
pt3dadd(138.588, 161.429, 3.884, 1.356)
pt3dadd(138.568, 161.424, 3.773, 1.356)
pt3dadd(138.527, 161.419, 3.667, 1.356)
pt3dadd(138.48, 161.414, 3.563, 1.356)
pt3dadd(138.404, 161.41, 3.481, 1.356)
pt3dadd(138.295, 161.405, 3.424, 1.356)
pt3dadd(138.188, 161.413, 3.378, 1.356)
pt3dadd(138.079, 161.461, 3.366, 1.356)
pt3dadd(137.972, 161.51, 3.353, 1.356)
pt3dadd(137.971, 161.506, 3.241, 1.556)
pt3dadd(137.971, 161.501, 3.129, 1.532)
pt3dadd(137.971, 161.51, 3.018, 1.532)
pt3dadd(137.97, 161.52, 2.906, 1.532)
pt3dadd(137.948, 161.544, 2.804, 1.55)
pt3dadd(137.88, 161.592, 2.722, 1.606)
pt3dadd(137.788, 161.632, 2.67, 1.748)
pt3dadd(137.69, 161.695, 2.655, 1.946)
pt3dadd(137.6, 161.77, 2.636, 2.008)
pt3dadd(137.52, 161.818, 2.572, 1.938)
pt3dadd(137.49, 161.851, 2.469, 1.846)
pt3dadd(137.486, 161.897, 2.366, 1.778)
pt3dadd(137.485, 161.92, 2.257, 1.704)
pt3dadd(137.485, 161.924, 2.145, 1.604)
pt3dadd(137.484, 161.92, 2.033, 1.538)
pt3dadd(137.484, 161.915, 1.921, 1.516)
pt3dadd(137.483, 161.91, 1.809, 1.542)
pt3dadd(137.483, 161.906, 1.696, 1.566)
pt3dadd(137.483, 161.902, 1.584, 1.582)
pt3dadd(137.482, 161.897, 1.472, 1.582)
pt3dadd(137.482, 161.892, 1.36, 1.592)
pt3dadd(137.476, 161.887, 1.248, 1.628)
pt3dadd(137.452, 161.882, 1.138, 1.716)
pt3dadd(137.452, 161.878, 1.126, 1.716)
pt3dadd(137.39, 161.873, 1.029, 1.828)
pt3dadd(137.308, 161.868, 0.946, 1.932)
pt3dadd(137.203, 161.863, 0.883, 2.036)
pt3dadd(137.099, 161.858, 0.822, 2.138)
pt3dadd(136.979, 161.854, 0.802, 2.228)
pt3dadd(136.859, 161.849, 0.782, 2.318)
pt3dadd(136.741, 161.845, 0.752, 2.456)
pt3dadd(136.661, 161.84, 0.672, 2.672)
pt3dadd(136.637, 161.836, 0.563, 2.798)
pt3dadd(136.621, 161.831, 0.452, 2.934)
pt3dadd(136.556, 161.826, 0.36, 3.094)
pt3dadd(136.444, 161.83, 0.318, 3.21)
pt3dadd(136.328, 161.855, 0.291, 3.312)
pt3dadd(136.328, 161.85, 0.279, 3.312)
pt3dadd(136.278, 161.938, 0.225, 3.326)
pt3dadd(136.277, 161.933, 0.213, 3.326)
pt3dadd(136.271, 162.04, 0.166, 3.248)
pt3dadd(136.271, 162.15, 0.127, 3.158)
pt3dadd(136.27, 162.256, 0.077, 3.104)
pt3dadd(136.27, 162.334, -0.007, 3.11)
pt3dadd(136.268, 162.367, -0.113, 3.14)
pt3dadd(136.268, 162.374, -0.224, 3.168)
pt3dadd(136.267, 162.37, -0.337, 3.198)
pt3dadd(136.267, 162.365, -0.449, 3.256)
pt3dadd(136.267, 162.36, -0.561, 3.356)
pt3dadd(136.266, 162.355, -0.673, 3.448)
pt3dadd(136.266, 162.35, -0.785, 3.498)
pt3dadd(136.265, 162.354, -0.896, 3.542)
pt3dadd(136.265, 162.403, -0.998, 3.554)
pt3dadd(136.264, 162.452, -1.099, 3.564)
pt3dadd(136.289, 162.51, -1.194, 3.542)
pt3dadd(136.318, 162.568, -1.288, 3.514)
pt3dadd(136.318, 162.563, -1.3, 3.514)
pt3dadd(136.398, 162.558, -1.385, 3.432)
pt3dadd(136.48, 162.553, -1.471, 3.348)
pt3dadd(136.506, 162.548, -1.579, 3.244)
pt3dadd(136.526, 162.544, -1.689, 3.138)
pt3dadd(136.55, 162.539, -1.799, 3.048)
pt3dadd(136.585, 162.534, -1.907, 2.994)
pt3dadd(136.621, 162.529, -2.014, 2.94)
pt3dadd(136.656, 162.524, -2.122, 2.886)
pt3dadd(136.692, 162.52, -2.23, 2.832)
pt3dadd(136.727, 162.515, -2.337, 2.778)
pt3dadd(136.775, 162.51, -2.441, 2.732)
pt3dadd(136.828, 162.506, -2.542, 2.688)
pt3dadd(136.882, 162.502, -2.644, 2.644)
pt3dadd(136.934, 162.497, -2.746, 2.602)
pt3dadd(136.987, 162.492, -2.847, 2.558)
pt3dadd(137.059, 162.487, -2.937, 2.528)
pt3dadd(137.15, 162.482, -3.014, 2.514)
pt3dadd(137.24, 162.478, -3.091, 2.498)
pt3dadd(137.332, 162.473, -3.168, 2.484)
pt3dadd(137.423, 162.468, -3.245, 2.468)
pt3dadd(137.503, 162.463, -3.33, 2.464)
pt3dadd(137.574, 162.458, -3.422, 2.468)
pt3dadd(137.646, 162.454, -3.515, 2.474)
pt3dadd(137.718, 162.449, -3.607, 2.478)
pt3dadd(137.789, 162.445, -3.699, 2.484)
pt3dadd(137.884, 162.44, -3.763, 2.518)
pt3dadd(137.989, 162.436, -3.82, 2.544)
pt3dadd(138.092, 162.431, -3.882, 2.556)
pt3dadd(138.092, 162.426, -3.895, 2.556)
pt3dadd(138.091, 162.421, -3.907, 2.556)
pt3dadd(138.162, 162.424, -3.992, 2.55)
pt3dadd(138.202, 162.434, -4.098, 2.53)
pt3dadd(138.242, 162.444, -4.203, 2.508)
pt3dadd(138.283, 162.454, -4.308, 2.488)
pt3dadd(138.301, 162.56, -4.344, 2.434)
pt3dadd(138.317, 162.672, -4.375, 2.38)
pt3dadd(138.382, 162.758, -4.405, 2.31)
pt3dadd(138.472, 162.83, -4.435, 2.232)
pt3dadd(138.547, 162.851, -4.51, 2.192)
pt3dadd(138.618, 162.852, -4.603, 2.168)
pt3dadd(138.686, 162.85, -4.697, 2.19)
pt3dadd(138.754, 162.845, -4.792, 2.236)
pt3dadd(138.834, 162.84, -4.876, 2.42)
pt3dadd(138.907, 162.835, -4.967, 2.606)
pt3dadd(138.974, 162.83, -5.061, 2.756)
pt3dadd(139.025, 162.834, -5.163, 2.874)
pt3dadd(139.067, 162.844, -5.268, 2.97)
pt3dadd(139.108, 162.852, -5.373, 3.066)
pt3dadd(139.117, 162.881, -5.479, 3.154)
pt3dadd(139.116, 162.917, -5.586, 3.24)
pt3dadd(139.132, 162.979, -5.669, 3.296)
pt3dadd(139.168, 163.079, -5.72, 3.312)
pt3dadd(139.205, 163.178, -5.77, 3.328)
pt3dadd(139.235, 163.279, -5.821, 3.34)
pt3dadd(139.234, 163.385, -5.872, 3.34)
pt3dadd(139.234, 163.49, -5.923, 3.34)
pt3dadd(139.232, 163.543, -6.021, 3.33)
pt3dadd(139.232, 163.592, -6.122, 3.318)
pt3dadd(139.231, 163.588, -6.134, 3.318)
pt3dadd(139.231, 163.603, -6.243, 3.314)
pt3dadd(139.23, 163.602, -6.355, 3.314)
pt3dadd(139.23, 163.602, -6.468, 3.314)
pt3dadd(139.23, 163.631, -6.575, 3.29)
pt3dadd(139.229, 163.667, -6.682, 3.258)
pt3dadd(139.229, 163.697, -6.789, 3.226)
pt3dadd(139.228, 163.722, -6.898, 3.196)
pt3dadd(139.228, 163.747, -7.007, 3.164)
pt3dadd(139.226, 163.772, -7.116, 3.134)
pt3dadd(139.226, 163.798, -7.225, 3.104)
pt3dadd(139.226, 163.824, -7.334, 3.072)
pt3dadd(139.225, 163.855, -7.442, 3.032)
pt3dadd(139.225, 163.889, -7.549, 2.986)
pt3dadd(139.224, 163.922, -7.656, 2.94)
pt3dadd(139.224, 163.956, -7.762, 2.896)
pt3dadd(139.223, 163.992, -7.869, 2.85)
pt3dadd(139.223, 164.027, -7.976, 2.786)
pt3dadd(139.223, 164.065, -8.081, 2.64)
}
}
proc shape3d_63() {
apic[15] { pt3dadd(139.222, 164.086, -8.191, 2.55)
pt3dadd(139.222, 164.095, -8.302, 2.494)
pt3dadd(139.22, 164.105, -8.413, 2.438)
pt3dadd(139.22, 164.12, -8.524, 2.408)
pt3dadd(139.219, 164.136, -8.635, 2.38)
pt3dadd(139.219, 164.182, -8.729, 2.36)
pt3dadd(139.218, 164.28, -8.792, 2.36)
pt3dadd(139.218, 164.376, -8.857, 2.366)
pt3dadd(139.218, 164.459, -8.937, 2.402)
pt3dadd(139.218, 164.542, -9.018, 2.436)
pt3dadd(139.243, 164.59, -9.118, 2.448)
pt3dadd(139.27, 164.638, -9.217, 2.458)
pt3dadd(139.295, 164.686, -9.317, 2.47)
pt3dadd(139.321, 164.732, -9.416, 2.48)
pt3dadd(139.345, 164.76, -9.52, 2.478)
pt3dadd(139.37, 164.764, -9.63, 2.464)
pt3dadd(139.402, 164.76, -9.739, 2.426)
pt3dadd(139.434, 164.755, -9.847, 2.384)
pt3dadd(139.46, 164.77, -9.953, 2.35)
pt3dadd(139.48, 164.81, -10.057, 2.326)
pt3dadd(139.512, 164.872, -10.131, 2.324)
pt3dadd(139.57, 164.971, -10.154, 2.36)
pt3dadd(139.63, 165.049, -10.198, 2.406)
pt3dadd(139.694, 165.082, -10.289, 2.474)
pt3dadd(139.758, 165.13, -10.371, 2.528)
pt3dadd(139.82, 165.198, -10.443, 2.566)
pt3dadd(139.882, 165.265, -10.516, 2.602)
pt3dadd(139.944, 165.334, -10.588, 2.64)
pt3dadd(140.022, 165.396, -10.643, 2.724)
pt3dadd(140.124, 165.426, -10.694, 2.792)
pt3dadd(140.227, 165.449, -10.752, 2.83)
pt3dadd(140.262, 165.505, -10.837, 2.828)
pt3dadd(140.262, 165.5, -10.85, 2.828)
pt3dadd(140.282, 165.564, -10.942, 2.814)
pt3dadd(140.284, 165.662, -10.999, 2.69)
pt3dadd(140.284, 165.778, -11.024, 2.522)
pt3dadd(140.282, 165.892, -11.054, 2.35)
pt3dadd(140.293, 165.995, -11.105, 2.18)
pt3dadd(140.363, 166.068, -11.156, 2.11)
pt3dadd(140.465, 166.091, -11.212, 2.11)
pt3dadd(140.51, 166.087, -11.315, 2.184)
pt3dadd(140.525, 166.082, -11.427, 2.314)
pt3dadd(140.546, 166.078, -11.537, 2.49)
pt3dadd(140.605, 166.073, -11.634, 2.692)
pt3dadd(140.682, 166.069, -11.722, 2.84)
pt3dadd(140.766, 166.073, -11.805, 2.85)
pt3dadd(140.85, 166.076, -11.888, 2.86)
pt3dadd(140.934, 166.08, -11.97, 2.872)
pt3dadd(141.019, 166.085, -12.053, 2.882)
pt3dadd(141.095, 166.117, -12.13, 2.888)
pt3dadd(141.122, 166.136, -12.235, 2.878)
pt3dadd(141.145, 166.148, -12.344, 2.868)
pt3dadd(141.186, 166.206, -12.422, 2.868)
pt3dadd(141.239, 166.295, -12.478, 2.876)
pt3dadd(141.293, 166.384, -12.535, 2.884)
pt3dadd(141.346, 166.48, -12.565, 2.894)
pt3dadd(141.398, 166.583, -12.577, 2.906)
pt3dadd(141.443, 166.682, -12.608, 2.918)
pt3dadd(141.469, 166.776, -12.673, 2.93)
pt3dadd(141.509, 166.859, -12.743, 2.938)
pt3dadd(141.562, 166.93, -12.818, 2.938)
pt3dadd(141.596, 166.999, -12.904, 2.92)
pt3dadd(141.624, 167.065, -12.993, 2.892)
pt3dadd(141.689, 167.135, -13.053, 2.766)
pt3dadd(141.766, 167.221, -13.071, 2.68)
pt3dadd(141.835, 167.297, -13.105, 2.602)
pt3dadd(141.87, 167.328, -13.207, 2.548)
pt3dadd(141.906, 167.359, -13.31, 2.496)
pt3dadd(141.942, 167.39, -13.413, 2.442)
pt3dadd(141.962, 167.43, -13.516, 2.34)
pt3dadd(141.982, 167.471, -13.62, 2.23)
pt3dadd(142.018, 167.566, -13.653, 2.12)
pt3dadd(142.058, 167.674, -13.67, 2.008)
pt3dadd(142.118, 167.764, -13.705, 1.864)
pt3dadd(142.193, 167.843, -13.755, 1.694)
pt3dadd(142.25, 167.921, -13.82, 1.546)
pt3dadd(142.303, 168, -13.888, 1.406)
pt3dadd(142.34, 168.108, -13.906, 1.372)
pt3dadd(142.378, 168.217, -13.925, 1.34)
pt3dadd(142.415, 168.326, -13.943, 1.306)
pt3dadd(142.452, 168.434, -13.962, 1.272)
pt3dadd(142.489, 168.544, -13.98, 1.24)
pt3dadd(142.523, 168.654, -13.994, 1.196)
pt3dadd(142.556, 168.764, -14.009, 1.154)
pt3dadd(142.601, 168.869, -14.037, 1.142)
pt3dadd(142.644, 168.973, -14.066, 1.13)
pt3dadd(142.65, 169.081, -14.113, 1.13)
pt3dadd(142.655, 169.19, -14.159, 1.13)
pt3dadd(142.656, 169.29, -14.219, 1.13)
pt3dadd(142.655, 169.39, -14.282, 1.13)
pt3dadd(142.655, 169.462, -14.366, 1.136)
pt3dadd(142.654, 169.518, -14.464, 1.148)
pt3dadd(142.654, 169.568, -14.565, 1.158)
pt3dadd(142.654, 169.564, -14.577, 1.158)
pt3dadd(142.652, 169.607, -14.681, 1.168)
pt3dadd(142.652, 169.649, -14.785, 1.178)
pt3dadd(142.651, 169.692, -14.889, 1.188)
pt3dadd(142.651, 169.735, -14.993, 1.196)
pt3dadd(142.65, 169.78, -15.096, 1.208)
pt3dadd(142.65, 169.844, -15.191, 1.232)
pt3dadd(142.65, 169.84, -15.203, 1.232)
pt3dadd(142.649, 169.835, -15.215, 1.232)
pt3dadd(142.649, 169.9, -15.309, 1.258)
pt3dadd(142.648, 169.963, -15.403, 1.282)
pt3dadd(142.648, 170.028, -15.497, 1.308)
pt3dadd(142.646, 170.089, -15.592, 1.34)
pt3dadd(142.646, 170.096, -15.704, 1.462)
pt3dadd(142.645, 170.092, -15.816, 1.496)
pt3dadd(142.645, 170.087, -15.928, 1.528)
pt3dadd(142.645, 170.09, -16.039, 1.556)
pt3dadd(142.65, 170.135, -16.142, 1.546)
pt3dadd(142.654, 170.18, -16.245, 1.538)
pt3dadd(142.668, 170.238, -16.335, 1.522)
pt3dadd(142.717, 170.334, -16.383, 1.482)
pt3dadd(142.765, 170.424, -16.44, 1.454)
pt3dadd(142.81, 170.504, -16.512, 1.444)
pt3dadd(142.854, 170.585, -16.584, 1.436)
pt3dadd(142.91, 170.634, -16.662, 1.45)
pt3dadd(142.988, 170.635, -16.75, 1.5)
pt3dadd(143.071, 170.638, -16.832, 1.568)
pt3dadd(143.168, 170.639, -16.904, 1.678)
pt3dadd(143.255, 170.665, -16.965, 1.79)
pt3dadd(143.317, 170.759, -17.001, 1.908)
pt3dadd(143.376, 170.846, -17.048, 2.014)
pt3dadd(143.429, 170.924, -17.117, 2.1)
pt3dadd(143.509, 170.981, -17.18, 2.134)
pt3dadd(143.596, 171.038, -17.222, 2.116)
pt3dadd(143.666, 171.131, -17.24, 2.068)
pt3dadd(143.734, 171.221, -17.269, 2)
pt3dadd(143.792, 171.305, -17.325, 1.886)
pt3dadd(143.792, 171.3, -17.337, 1.886)
pt3dadd(143.824, 171.389, -17.401, 1.782)
pt3dadd(143.83, 171.481, -17.472, 1.686)
pt3dadd(143.832, 171.58, -17.534, 1.598)
pt3dadd(143.832, 171.685, -17.585, 1.52)
pt3dadd(143.831, 171.79, -17.638, 1.456)
pt3dadd(143.831, 171.887, -17.703, 1.456)
pt3dadd(143.83, 171.984, -17.768, 1.456)
pt3dadd(143.83, 172.082, -17.832, 1.456)
pt3dadd(143.83, 172.18, -17.897, 1.456)
pt3dadd(143.828, 172.278, -17.961, 1.458)
pt3dadd(143.828, 172.38, -18.018, 1.478)
pt3dadd(143.827, 172.483, -18.075, 1.496)
pt3dadd(143.827, 172.585, -18.132, 1.516)
pt3dadd(143.826, 172.688, -18.188, 1.534)
pt3dadd(143.826, 172.79, -18.245, 1.554)
pt3dadd(143.825, 172.902, -18.28, 1.568)
pt3dadd(143.825, 173.015, -18.311, 1.58)
pt3dadd(143.825, 173.129, -18.341, 1.592)
pt3dadd(143.824, 173.242, -18.372, 1.606)
pt3dadd(143.824, 173.356, -18.403, 1.618)
pt3dadd(143.822, 173.468, -18.434, 1.63)
pt3dadd(143.822, 173.561, -18.502, 1.602)
pt3dadd(143.83, 173.657, -18.566, 1.544)
pt3dadd(143.849, 173.761, -18.616, 1.46)
pt3dadd(143.898, 173.846, -18.66, 1.386)
pt3dadd(144.001, 173.897, -18.695, 1.336)
pt3dadd(144.089, 173.946, -18.75, 1.288)
pt3dadd(144.156, 173.994, -18.832, 1.244)
pt3dadd(144.179, 174.029, -18.931, 1.23)
pt3dadd(144.178, 174.056, -19.039, 1.23)
pt3dadd(144.184, 174.1, -19.139, 1.23)
pt3dadd(144.211, 174.188, -19.209, 1.23)
pt3dadd(144.238, 174.278, -19.279, 1.23)
pt3dadd(144.264, 174.368, -19.349, 1.23)
pt3dadd(144.29, 174.457, -19.419, 1.23)
pt3dadd(144.295, 174.52, -19.512, 1.25)
pt3dadd(144.294, 174.578, -19.61, 1.276)
pt3dadd(144.294, 174.636, -19.707, 1.3)
pt3dadd(144.293, 174.694, -19.805, 1.326)
pt3dadd(144.293, 174.752, -19.902, 1.35)
pt3dadd(144.293, 174.748, -19.914, 1.35)
pt3dadd(144.292, 174.827, -19.996, 1.382)
pt3dadd(144.292, 174.913, -20.073, 1.418)
pt3dadd(144.29, 175, -20.151, 1.454)
pt3dadd(144.29, 175.086, -20.227, 1.488)
pt3dadd(144.289, 175.174, -20.305, 1.524)
pt3dadd(144.289, 175.254, -20.387, 1.552)
pt3dadd(144.289, 175.333, -20.471, 1.576)
pt3dadd(144.288, 175.412, -20.555, 1.602)
pt3dadd(144.288, 175.49, -20.639, 1.628)
pt3dadd(144.287, 175.57, -20.723, 1.652)
pt3dadd(144.264, 175.655, -20.798, 1.648)
pt3dadd(144.236, 175.741, -20.871, 1.636)
pt3dadd(144.208, 175.828, -20.944, 1.624)
pt3dadd(144.18, 175.914, -21.017, 1.614)
pt3dadd(144.164, 176.012, -21.063, 1.58)
pt3dadd(144.164, 176.128, -21.075, 1.516)
pt3dadd(144.163, 176.24, -21.102, 1.462)
pt3dadd(144.163, 176.35, -21.147, 1.42)
pt3dadd(144.162, 176.456, -21.196, 1.382)
pt3dadd(144.162, 176.539, -21.276, 1.394)
pt3dadd(144.161, 176.622, -21.356, 1.406)
pt3dadd(144.161, 176.7, -21.442, 1.474)
pt3dadd(144.161, 176.776, -21.527, 1.546)
pt3dadd(144.16, 176.818, -21.63, 1.666)
pt3dadd(144.16, 176.852, -21.737, 1.794)
pt3dadd(144.158, 176.903, -21.837, 1.896)
pt3dadd(144.158, 176.97, -21.929, 1.97)
pt3dadd(144.157, 177.037, -22.021, 2.046)
}
}
proc shape3d_64() {
apic[15] { pt3dadd(144.157, 177.104, -22.113, 2.122)
pt3dadd(144.157, 177.173, -22.205, 2.196)
pt3dadd(144.156, 177.168, -22.218, 2.196)
pt3dadd(144.156, 177.209, -22.319, 2.256)
pt3dadd(144.155, 177.221, -22.43, 2.302)
pt3dadd(144.155, 177.234, -22.541, 2.346)
pt3dadd(144.154, 177.246, -22.653, 2.392)
pt3dadd(144.154, 177.259, -22.764, 2.436)
pt3dadd(144.152, 177.271, -22.875, 2.48)
pt3dadd(144.158, 177.28, -22.986, 2.516)
pt3dadd(144.179, 177.276, -23.097, 2.528)
pt3dadd(144.198, 177.274, -23.207, 2.54)
pt3dadd(144.217, 177.271, -23.318, 2.552)
pt3dadd(144.236, 177.269, -23.429, 2.566)
pt3dadd(144.257, 177.268, -23.54, 2.578)
pt3dadd(144.256, 177.263, -23.552, 2.578)
pt3dadd(144.269, 177.259, -23.663, 2.58)
pt3dadd(144.269, 177.254, -23.775, 2.562)
pt3dadd(144.268, 177.25, -23.888, 2.544)
pt3dadd(144.268, 177.245, -24, 2.526)
pt3dadd(144.266, 177.24, -24.112, 2.508)
pt3dadd(144.266, 177.235, -24.224, 2.49)
pt3dadd(144.265, 177.23, -24.336, 2.472)
pt3dadd(144.265, 177.226, -24.449, 2.418)
pt3dadd(144.264, 177.221, -24.561, 2.31)
pt3dadd(144.264, 177.216, -24.673, 2.26)
pt3dadd(144.264, 177.211, -24.785, 2.26)
pt3dadd(144.263, 177.208, -24.897, 2.252)
pt3dadd(144.263, 177.203, -25.01, 2.192)
pt3dadd(144.248, 177.19, -25.119, 2.076)
pt3dadd(144.209, 177.158, -25.223, 1.978)
pt3dadd(144.17, 177.102, -25.302, 1.878)
pt3dadd(144.137, 176.983, -25.319, 1.77)
pt3dadd(144.102, 176.863, -25.336, 1.662)
pt3dadd(144.062, 176.748, -25.369, 1.586)
pt3dadd(144.023, 176.633, -25.403, 1.514)
pt3dadd(144.018, 176.575, -25.501, 1.476)
pt3dadd(144.018, 176.525, -25.606, 1.444)
pt3dadd(144.017, 176.438, -25.684, 1.438)
pt3dadd(144.017, 176.329, -25.747, 1.45)
pt3dadd(144.017, 176.248, -25.828, 1.462)
pt3dadd(144.016, 176.198, -25.933, 1.476)
pt3dadd(144.016, 176.149, -26.038, 1.49)
pt3dadd(144.014, 176.1, -26.143, 1.504)
pt3dadd(144.014, 176.051, -26.248, 1.518)
pt3dadd(144.013, 176, -26.353, 1.536)
pt3dadd(144.013, 175.939, -26.454, 1.618)
pt3dadd(144.012, 175.873, -26.552, 1.652)
pt3dadd(144.011, 175.804, -26.647, 1.682)
pt3dadd(143.994, 175.699, -26.713, 1.682)
pt3dadd(143.977, 175.594, -26.778, 1.682)
pt3dadd(143.962, 175.489, -26.844, 1.682)
pt3dadd(143.886, 175.441, -26.914, 1.682)
pt3dadd(143.792, 175.408, -26.985, 1.682)
pt3dadd(143.728, 175.4, -27.081, 1.652)
pt3dadd(143.666, 175.396, -27.179, 1.618)
pt3dadd(143.61, 175.391, -27.28, 1.592)
pt3dadd(143.556, 175.386, -27.382, 1.568)
pt3dadd(143.527, 175.381, -27.488, 1.55)
pt3dadd(143.526, 175.376, -27.6, 1.532)
pt3dadd(143.526, 175.372, -27.712, 1.516)
pt3dadd(143.532, 175.356, -27.824, 1.514)
pt3dadd(143.546, 175.33, -27.933, 1.526)
pt3dadd(143.561, 175.303, -28.043, 1.54)
pt3dadd(143.575, 175.277, -28.153, 1.554)
pt3dadd(143.588, 175.25, -28.263, 1.568)
pt3dadd(143.603, 175.224, -28.372, 1.582)
pt3dadd(143.603, 175.219, -28.385, 1.582)
pt3dadd(143.602, 175.214, -28.397, 1.582)
pt3dadd(143.602, 175.21, -28.409, 1.582)
pt3dadd(143.6, 175.205, -28.421, 1.582)
}
apic[16] {pt3dclear()
pt3dadd(155.34, 142.984, 11.668, 2.284)
pt3dadd(155.329, 142.982, 11.684, 2.298)
pt3dadd(155.266, 142.975, 11.769, 2.374)
pt3dadd(155.203, 142.968, 11.854, 2.45)
pt3dadd(155.141, 142.96, 11.939, 2.526)
pt3dadd(155.077, 142.952, 12.024, 2.602)
pt3dadd(155.015, 142.945, 12.109, 2.678)
pt3dadd(154.952, 142.938, 12.194, 2.754)
pt3dadd(154.89, 142.931, 12.279, 2.83)
pt3dadd(154.826, 142.924, 12.364, 2.906)
pt3dadd(154.732, 142.92, 12.4, 2.844)
pt3dadd(154.612, 142.92, 12.4, 2.678)
pt3dadd(154.492, 142.92, 12.4, 2.514)
pt3dadd(154.372, 142.92, 12.4, 2.348)
pt3dadd(154.252, 142.92, 12.4, 2.184)
pt3dadd(154.132, 142.92, 12.4, 2.018)
pt3dadd(154.012, 142.92, 12.4, 1.852)
pt3dadd(153.892, 142.927, 12.4, 1.738)
pt3dadd(153.772, 142.94, 12.4, 1.658)
pt3dadd(153.653, 142.952, 12.4, 1.58)
pt3dadd(153.533, 142.966, 12.4, 1.5)
pt3dadd(153.414, 142.978, 12.4, 1.422)
pt3dadd(153.295, 142.991, 12.4, 1.344)
pt3dadd(153.176, 143.006, 12.4, 1.272)
pt3dadd(153.059, 143.034, 12.4, 1.234)
pt3dadd(152.942, 143.06, 12.4, 1.196)
pt3dadd(152.826, 143.088, 12.4, 1.156)
pt3dadd(152.708, 143.116, 12.4, 1.118)
pt3dadd(152.592, 143.143, 12.4, 1.078)
pt3dadd(152.473, 143.16, 12.4, 1.052)
pt3dadd(152.353, 143.16, 12.4, 1.044)
pt3dadd(152.233, 143.16, 12.4, 1.034)
pt3dadd(152.117, 143.176, 12.4, 1.034)
pt3dadd(152.003, 143.215, 12.4, 1.044)
pt3dadd(151.89, 143.256, 12.4, 1.054)
pt3dadd(151.792, 143.323, 12.4, 1.054)
pt3dadd(151.692, 143.392, 12.4, 1.054)
pt3dadd(151.615, 143.482, 12.4, 1.034)
pt3dadd(151.54, 143.576, 12.4, 1.01)
pt3dadd(151.458, 143.663, 12.4, 0.952)
pt3dadd(151.363, 143.732, 12.4, 0.896)
pt3dadd(151.248, 143.767, 12.4, 0.874)
pt3dadd(151.134, 143.803, 12.4, 0.852)
pt3dadd(151.019, 143.839, 12.4, 0.83)
pt3dadd(150.905, 143.874, 12.4, 0.806)
pt3dadd(150.79, 143.91, 12.4, 0.784)
pt3dadd(150.689, 143.972, 12.4, 0.774)
pt3dadd(150.593, 144.044, 12.4, 0.77)
pt3dadd(150.497, 144.116, 12.4, 0.764)
pt3dadd(150.401, 144.188, 12.4, 0.76)
pt3dadd(150.305, 144.26, 12.4, 0.754)
pt3dadd(150.211, 144.335, 12.4, 0.78)
pt3dadd(150.118, 144.41, 12.4, 0.814)
pt3dadd(150.011, 144.46, 12.4, 0.86)
pt3dadd(149.896, 144.492, 12.4, 0.912)
pt3dadd(149.782, 144.529, 12.4, 0.96)
pt3dadd(149.674, 144.582, 12.4, 0.994)
pt3dadd(149.567, 144.636, 12.4, 1.028)
pt3dadd(149.496, 144.732, 12.4, 1.04)
pt3dadd(149.429, 144.83, 12.4, 1.052)
pt3dadd(149.407, 144.946, 12.4, 1.064)
pt3dadd(149.401, 145.066, 12.4, 1.078)
pt3dadd(149.334, 145.163, 12.4, 1.094)
pt3dadd(149.26, 145.256, 12.4, 1.108)
pt3dadd(149.184, 145.35, 12.4, 1.124)
pt3dadd(149.11, 145.444, 12.4, 1.138)
pt3dadd(149.034, 145.537, 12.4, 1.154)
pt3dadd(148.933, 145.601, 12.4, 1.178)
pt3dadd(148.829, 145.661, 12.4, 1.202)
pt3dadd(148.724, 145.72, 12.4, 1.226)
pt3dadd(148.621, 145.78, 12.4, 1.25)
pt3dadd(148.517, 145.84, 12.4, 1.276)
pt3dadd(148.442, 145.931, 12.4, 1.296)
pt3dadd(148.376, 146.03, 12.4, 1.316)
pt3dadd(148.31, 146.131, 12.4, 1.336)
pt3dadd(148.244, 146.232, 12.4, 1.356)
pt3dadd(148.18, 146.332, 12.4, 1.376)
pt3dadd(148.085, 146.401, 12.4, 1.378)
pt3dadd(147.979, 146.458, 12.4, 1.372)
pt3dadd(147.874, 146.514, 12.4, 1.368)
pt3dadd(147.767, 146.57, 12.4, 1.364)
pt3dadd(147.661, 146.627, 12.4, 1.358)
pt3dadd(147.552, 146.675, 12.401, 1.344)
pt3dadd(147.438, 146.714, 12.403, 1.32)
pt3dadd(147.325, 146.754, 12.405, 1.298)
pt3dadd(147.211, 146.794, 12.407, 1.274)
pt3dadd(147.098, 146.832, 12.409, 1.25)
pt3dadd(146.986, 146.872, 12.413, 1.228)
pt3dadd(146.873, 146.906, 12.431, 1.208)
pt3dadd(146.76, 146.941, 12.449, 1.188)
pt3dadd(146.647, 146.976, 12.467, 1.168)
pt3dadd(146.534, 147.011, 12.485, 1.146)
pt3dadd(146.424, 147.052, 12.5, 1.13)
pt3dadd(146.328, 147.124, 12.5, 1.136)
pt3dadd(146.232, 147.196, 12.5, 1.14)
pt3dadd(146.136, 147.268, 12.5, 1.146)
pt3dadd(146.04, 147.34, 12.5, 1.15)
pt3dadd(145.948, 147.415, 12.501, 1.162)
pt3dadd(145.877, 147.512, 12.506, 1.212)
pt3dadd(145.806, 147.606, 12.515, 1.258)
pt3dadd(145.722, 147.674, 12.559, 1.286)
pt3dadd(145.627, 147.72, 12.59, 1.302)
pt3dadd(145.507, 147.72, 12.594, 1.294)
pt3dadd(145.387, 147.72, 12.598, 1.286)
pt3dadd(145.267, 147.72, 12.6, 1.274)
pt3dadd(145.147, 147.72, 12.6, 1.256)
pt3dadd(145.027, 147.72, 12.6, 1.24)
pt3dadd(144.908, 147.734, 12.6, 1.224)
pt3dadd(144.793, 147.767, 12.6, 1.208)
pt3dadd(144.688, 147.822, 12.6, 1.21)
pt3dadd(144.583, 147.882, 12.6, 1.214)
pt3dadd(144.48, 147.942, 12.6, 1.22)
pt3dadd(144.376, 148.002, 12.6, 1.224)
pt3dadd(144.271, 148.062, 12.6, 1.228)
pt3dadd(144.172, 148.128, 12.6, 1.24)
pt3dadd(144.073, 148.198, 12.6, 1.256)
pt3dadd(143.975, 148.266, 12.6, 1.27)
pt3dadd(143.878, 148.336, 12.6, 1.286)
pt3dadd(143.779, 148.404, 12.6, 1.3)
pt3dadd(143.678, 148.469, 12.6, 1.33)
pt3dadd(143.576, 148.532, 12.6, 1.364)
pt3dadd(143.474, 148.595, 12.6, 1.398)
pt3dadd(143.371, 148.658, 12.6, 1.432)
pt3dadd(143.269, 148.721, 12.6, 1.468)
pt3dadd(143.177, 148.796, 12.6, 1.506)
pt3dadd(143.09, 148.879, 12.6, 1.546)
pt3dadd(143.004, 148.963, 12.6, 1.586)
pt3dadd(142.918, 149.046, 12.6, 1.626)
pt3dadd(142.831, 149.13, 12.6, 1.668)
}
}
proc shape3d_65() {
apic[16] { pt3dadd(142.778, 149.233, 12.6, 1.708)
pt3dadd(142.746, 149.348, 12.6, 1.75)
pt3dadd(142.703, 149.458, 12.6, 1.772)
pt3dadd(142.621, 149.546, 12.6, 1.726)
pt3dadd(142.536, 149.628, 12.6, 1.674)
pt3dadd(142.418, 149.648, 12.6, 1.588)
pt3dadd(142.3, 149.669, 12.6, 1.5)
pt3dadd(142.184, 149.699, 12.6, 1.41)
pt3dadd(142.07, 149.738, 12.6, 1.314)
pt3dadd(141.96, 149.784, 12.6, 1.216)
pt3dadd(141.866, 149.858, 12.6, 1.11)
pt3dadd(141.786, 149.947, 12.6, 1.062)
pt3dadd(141.712, 150.041, 12.6, 1.036)
pt3dadd(141.637, 150.134, 12.6, 1.012)
pt3dadd(141.562, 150.228, 12.6, 0.986)
pt3dadd(141.487, 150.322, 12.6, 0.96)
pt3dadd(141.384, 150.376, 12.6, 0.922)
pt3dadd(141.27, 150.415, 12.6, 0.88)
pt3dadd(141.157, 150.455, 12.6, 0.846)
pt3dadd(141.044, 150.494, 12.6, 0.824)
pt3dadd(140.932, 150.535, 12.6, 0.804)
pt3dadd(140.87, 150.638, 12.6, 0.826)
pt3dadd(140.81, 150.742, 12.6, 0.85)
pt3dadd(140.772, 150.856, 12.6, 0.888)
pt3dadd(140.74, 150.971, 12.6, 0.93)
pt3dadd(140.676, 151.057, 12.6, 0.964)
pt3dadd(140.563, 151.098, 12.6, 0.99)
pt3dadd(140.45, 151.139, 12.6, 1.016)
pt3dadd(140.338, 151.18, 12.6, 1.042)
pt3dadd(140.221, 151.202, 12.6, 1.064)
pt3dadd(140.101, 151.207, 12.6, 1.08)
pt3dadd(139.981, 151.211, 12.6, 1.098)
pt3dadd(139.879, 151.261, 12.6, 1.116)
pt3dadd(139.79, 151.342, 12.6, 1.134)
pt3dadd(139.7, 151.422, 12.6, 1.152)
pt3dadd(139.622, 151.512, 12.6, 1.156)
pt3dadd(139.548, 151.606, 12.6, 1.156)
pt3dadd(139.447, 151.661, 12.6, 1.156)
pt3dadd(139.333, 151.699, 12.6, 1.148)
pt3dadd(139.219, 151.738, 12.6, 1.138)
pt3dadd(139.106, 151.776, 12.6, 1.13)
pt3dadd(138.992, 151.814, 12.6, 1.12)
pt3dadd(138.878, 151.854, 12.6, 1.112)
pt3dadd(138.767, 151.891, 12.608, 1.104)
pt3dadd(138.656, 151.928, 12.634, 1.098)
pt3dadd(138.546, 151.964, 12.66, 1.092)
pt3dadd(138.437, 152.002, 12.685, 1.088)
pt3dadd(138.326, 152.038, 12.711, 1.082)
pt3dadd(138.226, 152.089, 12.742, 1.084)
pt3dadd(138.132, 152.152, 12.776, 1.09)
pt3dadd(138.037, 152.214, 12.81, 1.094)
pt3dadd(137.944, 152.278, 12.844, 1.1)
pt3dadd(137.86, 152.35, 12.877, 1.11)
pt3dadd(137.794, 152.443, 12.908, 1.128)
pt3dadd(137.729, 152.537, 12.939, 1.146)
pt3dadd(137.663, 152.63, 12.97, 1.164)
pt3dadd(137.598, 152.724, 13.001, 1.182)
pt3dadd(137.533, 152.821, 13.021, 1.204)
pt3dadd(137.467, 152.92, 13.04, 1.226)
pt3dadd(137.401, 153.017, 13.06, 1.248)
pt3dadd(137.336, 153.115, 13.08, 1.27)
pt3dadd(137.255, 153.199, 13.09, 1.286)
pt3dadd(137.16, 153.272, 13.092, 1.296)
pt3dadd(137.065, 153.346, 13.095, 1.306)
pt3dadd(136.97, 153.419, 13.097, 1.316)
pt3dadd(136.874, 153.492, 13.099, 1.328)
pt3dadd(136.805, 153.583, 13.119, 1.338)
pt3dadd(136.751, 153.683, 13.149, 1.35)
pt3dadd(136.696, 153.784, 13.18, 1.36)
pt3dadd(136.642, 153.884, 13.21, 1.372)
pt3dadd(136.59, 153.98, 13.249, 1.382)
pt3dadd(136.553, 154.066, 13.312, 1.388)
pt3dadd(136.514, 154.151, 13.375, 1.394)
pt3dadd(136.477, 154.236, 13.438, 1.4)
pt3dadd(136.44, 154.321, 13.501, 1.406)
pt3dadd(136.44, 154.388, 13.584, 1.406)
pt3dadd(136.44, 154.457, 13.666, 1.406)
pt3dadd(136.423, 154.512, 13.753, 1.406)
pt3dadd(136.404, 154.565, 13.842, 1.406)
pt3dadd(136.322, 154.633, 13.876, 1.418)
pt3dadd(136.23, 154.704, 13.899, 1.43)
pt3dadd(136.168, 154.806, 13.9, 1.464)
pt3dadd(136.108, 154.909, 13.9, 1.498)
pt3dadd(136.082, 155.024, 13.9, 1.54)
pt3dadd(136.067, 155.144, 13.9, 1.582)
pt3dadd(135.971, 155.214, 13.9, 1.586)
pt3dadd(135.872, 155.284, 13.9, 1.592)
pt3dadd(135.774, 155.352, 13.9, 1.596)
pt3dadd(135.677, 155.422, 13.9, 1.602)
pt3dadd(135.578, 155.49, 13.9, 1.606)
pt3dadd(135.493, 155.572, 13.919, 1.602)
pt3dadd(135.408, 155.653, 13.939, 1.596)
pt3dadd(135.324, 155.735, 13.96, 1.59)
pt3dadd(135.239, 155.816, 13.98, 1.584)
pt3dadd(135.151, 155.897, 13.99, 1.57)
pt3dadd(135.061, 155.976, 13.992, 1.55)
pt3dadd(134.971, 156.055, 13.995, 1.53)
pt3dadd(134.881, 156.133, 13.997, 1.51)
pt3dadd(134.791, 156.212, 13.999, 1.488)
pt3dadd(134.713, 156.289, 14.032, 1.47)
pt3dadd(134.64, 156.365, 14.082, 1.45)
pt3dadd(134.568, 156.44, 14.131, 1.432)
pt3dadd(134.496, 156.516, 14.18, 1.414)
pt3dadd(134.417, 156.598, 14.203, 1.384)
pt3dadd(134.332, 156.682, 14.209, 1.348)
pt3dadd(134.251, 156.758, 14.239, 1.316)
pt3dadd(134.174, 156.827, 14.29, 1.286)
pt3dadd(134.076, 156.862, 14.337, 1.25)
pt3dadd(133.973, 156.889, 14.383, 1.21)
pt3dadd(133.946, 156.996, 14.393, 1.188)
pt3dadd(133.931, 157.115, 14.397, 1.17)
pt3dadd(133.901, 157.228, 14.404, 1.152)
pt3dadd(133.832, 157.325, 14.417, 1.146)
pt3dadd(133.763, 157.422, 14.431, 1.138)
pt3dadd(133.694, 157.519, 14.444, 1.13)
pt3dadd(133.643, 157.571, 14.523, 1.13)
pt3dadd(133.585, 157.627, 14.59, 1.132)
pt3dadd(133.504, 157.715, 14.594, 1.14)
pt3dadd(133.421, 157.801, 14.598, 1.15)
pt3dadd(133.337, 157.886, 14.6, 1.174)
pt3dadd(133.249, 157.969, 14.6, 1.222)
pt3dadd(133.152, 158.032, 14.6, 1.296)
pt3dadd(133.042, 158.069, 14.6, 1.386)
pt3dadd(132.946, 158.141, 14.6, 1.396)
pt3dadd(132.85, 158.213, 14.6, 1.406)
pt3dadd(132.754, 158.285, 14.6, 1.416)
pt3dadd(132.658, 158.357, 14.6, 1.426)
pt3dadd(132.56, 158.426, 14.6, 1.418)
pt3dadd(132.462, 158.495, 14.6, 1.382)
pt3dadd(132.362, 158.562, 14.6, 1.348)
pt3dadd(132.264, 158.63, 14.6, 1.312)
pt3dadd(132.172, 158.702, 14.6, 1.282)
pt3dadd(132.151, 158.82, 14.6, 1.302)
pt3dadd(132.131, 158.939, 14.6, 1.32)
pt3dadd(132.113, 159.058, 14.6, 1.354)
pt3dadd(132.098, 159.176, 14.6, 1.4)
pt3dadd(132.084, 159.295, 14.6, 1.446)
pt3dadd(132.006, 159.378, 14.611, 1.48)
pt3dadd(131.912, 159.451, 14.624, 1.512)
pt3dadd(131.819, 159.524, 14.638, 1.542)
pt3dadd(131.743, 159.583, 14.685, 1.57)
pt3dadd(131.684, 159.626, 14.764, 1.598)
pt3dadd(131.628, 159.71, 14.804, 1.62)
pt3dadd(131.572, 159.814, 14.825, 1.64)
pt3dadd(131.52, 159.914, 14.851, 1.662)
pt3dadd(131.513, 160, 14.921, 1.71)
pt3dadd(131.503, 160.085, 14.989, 1.76)
pt3dadd(131.431, 160.181, 14.993, 1.786)
pt3dadd(131.359, 160.276, 14.997, 1.814)
pt3dadd(131.284, 160.368, 15, 1.834)
pt3dadd(131.196, 160.451, 15, 1.834)
pt3dadd(131.104, 160.525, 15, 1.81)
pt3dadd(130.987, 160.555, 15, 1.68)
pt3dadd(130.871, 160.582, 15, 1.6)
pt3dadd(130.753, 160.608, 15, 1.52)
pt3dadd(130.682, 160.698, 15, 1.44)
pt3dadd(130.622, 160.801, 15, 1.36)
pt3dadd(130.582, 160.902, 14.967, 1.29)
pt3dadd(130.554, 161, 14.914, 1.224)
pt3dadd(130.513, 161.046, 14.835, 1.178)
pt3dadd(130.465, 161.072, 14.746, 1.14)
pt3dadd(130.408, 161.13, 14.675, 1.088)
pt3dadd(130.346, 161.2, 14.611, 1.03)
pt3dadd(130.26, 161.28, 14.6, 0.804)
pt3dadd(130.178, 161.368, 14.6, 0.638)
pt3dadd(130.1, 161.453, 14.622, 0.59)
pt3dadd(130.031, 161.53, 14.668, 0.552)
pt3dadd(129.944, 161.612, 14.677, 0.552)
pt3dadd(129.858, 161.695, 14.687, 0.552)
pt3dadd(129.773, 161.778, 14.696, 0.552)
pt3dadd(129.686, 161.862, 14.706, 0.552)
pt3dadd(129.61, 161.941, 14.736, 0.56)
pt3dadd(129.544, 162.017, 14.791, 0.58)
pt3dadd(129.478, 162.092, 14.846, 0.598)
pt3dadd(129.413, 162.168, 14.901, 0.616)
pt3dadd(129.371, 162.239, 14.968, 0.652)
pt3dadd(129.365, 162.302, 15.052, 0.712)
pt3dadd(129.346, 162.355, 15.138, 0.776)
pt3dadd(129.299, 162.382, 15.228, 0.852)
pt3dadd(129.241, 162.427, 15.296, 0.926)
pt3dadd(129.163, 162.514, 15.32, 0.992)
pt3dadd(129.071, 162.572, 15.348, 1.052)
pt3dadd(128.959, 162.598, 15.38, 1.1)
pt3dadd(128.849, 162.63, 15.4, 1.15)
pt3dadd(128.737, 162.674, 15.4, 1.198)
pt3dadd(128.629, 162.726, 15.4, 1.224)
pt3dadd(128.521, 162.78, 15.4, 1.248)
pt3dadd(128.418, 162.827, 15.426, 1.256)
pt3dadd(128.318, 162.869, 15.468, 1.256)
pt3dadd(128.288, 162.938, 15.535, 1.228)
pt3dadd(128.282, 163.016, 15.61, 1.192)
pt3dadd(128.28, 163.092, 15.688, 1.14)
pt3dadd(128.28, 163.168, 15.766, 1.08)
pt3dadd(128.264, 163.219, 15.853, 1.03)
pt3dadd(128.238, 163.254, 15.946, 0.986)
pt3dadd(128.21, 163.289, 16.039, 0.944)
pt3dadd(128.179, 163.322, 16.13, 0.898)
pt3dadd(128.111, 163.343, 16.211, 0.832)
pt3dadd(128.039, 163.368, 16.286, 0.774)
pt3dadd(127.949, 163.418, 16.337, 0.742)
}
}
proc shape3d_66() {
apic[16] { pt3dadd(127.859, 163.469, 16.389, 0.71)
pt3dadd(127.766, 163.538, 16.4, 0.712)
pt3dadd(127.673, 163.614, 16.4, 0.724)
pt3dadd(127.567, 163.664, 16.41, 0.842)
pt3dadd(127.474, 163.734, 16.43, 0.89)
pt3dadd(127.38, 163.806, 16.45, 0.93)
pt3dadd(127.288, 163.878, 16.47, 0.97)
pt3dadd(127.194, 163.95, 16.49, 1.01)
pt3dadd(127.096, 164.016, 16.5, 1.04)
pt3dadd(126.992, 164.076, 16.5, 1.058)
pt3dadd(126.888, 164.136, 16.5, 1.078)
pt3dadd(126.784, 164.196, 16.5, 1.098)
pt3dadd(126.679, 164.255, 16.5, 1.118)
pt3dadd(126.583, 164.324, 16.5, 1.13)
pt3dadd(126.499, 164.411, 16.5, 1.13)
pt3dadd(126.416, 164.497, 16.5, 1.13)
pt3dadd(126.332, 164.584, 16.5, 1.13)
pt3dadd(126.25, 164.67, 16.5, 1.13)
pt3dadd(126.158, 164.744, 16.509, 1.128)
pt3dadd(126.058, 164.804, 16.531, 1.122)
pt3dadd(125.957, 164.863, 16.554, 1.116)
pt3dadd(125.856, 164.922, 16.576, 1.112)
pt3dadd(125.755, 164.982, 16.598, 1.106)
pt3dadd(125.642, 164.989, 16.628, 1.122)
pt3dadd(125.528, 164.992, 16.658, 1.14)
pt3dadd(125.413, 164.994, 16.689, 1.158)
pt3dadd(125.299, 164.996, 16.719, 1.176)
pt3dadd(125.185, 164.999, 16.75, 1.194)
pt3dadd(125.074, 165.022, 16.77, 1.22)
pt3dadd(124.964, 165.072, 16.776, 1.256)
pt3dadd(124.855, 165.122, 16.783, 1.29)
pt3dadd(124.747, 165.173, 16.789, 1.326)
pt3dadd(124.638, 165.223, 16.796, 1.36)
pt3dadd(124.531, 165.274, 16.809, 1.392)
pt3dadd(124.427, 165.326, 16.83, 1.42)
pt3dadd(124.322, 165.379, 16.852, 1.446)
pt3dadd(124.217, 165.431, 16.874, 1.474)
pt3dadd(124.112, 165.484, 16.896, 1.502)
pt3dadd(124.028, 165.547, 16.942, 1.506)
pt3dadd(123.95, 165.612, 16.994, 1.506)
pt3dadd(123.871, 165.678, 17.046, 1.506)
pt3dadd(123.792, 165.744, 17.098, 1.506)
pt3dadd(123.696, 165.787, 17.143, 1.506)
pt3dadd(123.594, 165.823, 17.186, 1.506)
pt3dadd(123.491, 165.859, 17.229, 1.506)
pt3dadd(123.389, 165.896, 17.271, 1.506)
pt3dadd(123.288, 165.932, 17.315, 1.516)
pt3dadd(123.187, 165.968, 17.361, 1.544)
pt3dadd(123.086, 166.006, 17.406, 1.574)
pt3dadd(122.986, 166.042, 17.452, 1.602)
pt3dadd(122.886, 166.078, 17.497, 1.63)
pt3dadd(122.779, 166.126, 17.52, 1.668)
pt3dadd(122.674, 166.175, 17.542, 1.706)
pt3dadd(122.567, 166.224, 17.563, 1.744)
pt3dadd(122.46, 166.273, 17.585, 1.782)
pt3dadd(122.35, 166.309, 17.6, 1.82)
pt3dadd(122.23, 166.319, 17.6, 1.856)
pt3dadd(122.111, 166.328, 17.6, 1.892)
pt3dadd(122, 166.367, 17.603, 1.902)
pt3dadd(121.898, 166.429, 17.608, 1.89)
pt3dadd(121.828, 166.496, 17.643, 1.866)
pt3dadd(121.8, 166.567, 17.721, 1.826)
pt3dadd(121.748, 166.65, 17.768, 1.778)
pt3dadd(121.678, 166.742, 17.792, 1.726)
pt3dadd(121.603, 166.831, 17.818, 1.654)
pt3dadd(121.524, 166.918, 17.84, 1.598)
pt3dadd(121.441, 167.003, 17.854, 1.576)
pt3dadd(121.36, 167.088, 17.869, 1.554)
pt3dadd(121.277, 167.174, 17.884, 1.53)
pt3dadd(121.194, 167.26, 17.899, 1.508)
pt3dadd(121.096, 167.327, 17.9, 1.498)
pt3dadd(120.995, 167.393, 17.9, 1.488)
pt3dadd(120.895, 167.459, 17.9, 1.478)
pt3dadd(120.794, 167.525, 17.9, 1.468)
pt3dadd(120.695, 167.591, 17.9, 1.458)
pt3dadd(120.613, 167.678, 17.9, 1.444)
pt3dadd(120.535, 167.77, 17.9, 1.428)
pt3dadd(120.457, 167.861, 17.9, 1.412)
pt3dadd(120.379, 167.952, 17.9, 1.398)
pt3dadd(120.301, 168.043, 17.9, 1.382)
pt3dadd(120.22, 168.132, 17.9, 1.37)
pt3dadd(120.139, 168.22, 17.9, 1.358)
pt3dadd(120.062, 168.312, 17.9, 1.346)
pt3dadd(119.988, 168.406, 17.9, 1.336)
pt3dadd(119.918, 168.497, 17.924, 1.348)
pt3dadd(119.851, 168.586, 17.961, 1.376)
pt3dadd(119.803, 168.649, 18.033, 1.392)
pt3dadd(119.759, 168.708, 18.113, 1.406)
pt3dadd(119.709, 168.74, 18.199, 1.414)
pt3dadd(119.66, 168.774, 18.286, 1.422)
pt3dadd(119.61, 168.808, 18.373, 1.43)
pt3dadd(119.531, 168.882, 18.393, 1.432)
pt3dadd(119.446, 168.967, 18.399, 1.432)
pt3dadd(119.369, 169.054, 18.417, 1.354)
pt3dadd(119.329, 169.153, 18.46, 1.33)
pt3dadd(119.289, 169.254, 18.503, 1.308)
pt3dadd(119.249, 169.355, 18.546, 1.284)
pt3dadd(119.209, 169.456, 18.59, 1.262)
pt3dadd(119.177, 169.568, 18.6, 1.242)
pt3dadd(119.147, 169.684, 18.6, 1.224)
pt3dadd(119.117, 169.8, 18.6, 1.208)
pt3dadd(119.086, 169.916, 18.6, 1.19)
pt3dadd(119.056, 170.033, 18.6, 1.172)
pt3dadd(119.026, 170.148, 18.6, 1.156)
pt3dadd(118.96, 170.249, 18.6, 1.156)
pt3dadd(118.894, 170.348, 18.6, 1.156)
pt3dadd(118.828, 170.449, 18.6, 1.156)
pt3dadd(118.762, 170.549, 18.6, 1.156)
pt3dadd(118.696, 170.65, 18.6, 1.156)
pt3dadd(118.674, 170.767, 18.6, 1.174)
pt3dadd(118.653, 170.886, 18.6, 1.194)
pt3dadd(118.628, 171.002, 18.6, 1.212)
pt3dadd(118.595, 171.118, 18.6, 1.234)
pt3dadd(118.562, 171.233, 18.6, 1.254)
pt3dadd(118.503, 171.337, 18.6, 1.288)
pt3dadd(118.442, 171.44, 18.6, 1.322)
pt3dadd(118.344, 171.502, 18.6, 1.356)
pt3dadd(118.233, 171.548, 18.6, 1.388)
pt3dadd(118.131, 171.608, 18.6, 1.446)
pt3dadd(118.037, 171.683, 18.6, 1.532)
pt3dadd(117.946, 171.761, 18.6, 1.552)
pt3dadd(117.854, 171.839, 18.6, 1.572)
pt3dadd(117.763, 171.917, 18.6, 1.594)
pt3dadd(117.672, 171.995, 18.6, 1.614)
pt3dadd(117.583, 172.074, 18.602, 1.634)
pt3dadd(117.532, 172.176, 18.632, 1.65)
pt3dadd(117.481, 172.279, 18.662, 1.668)
pt3dadd(117.43, 172.381, 18.692, 1.684)
pt3dadd(117.378, 172.483, 18.722, 1.702)
pt3dadd(117.332, 172.552, 18.787, 1.698)
pt3dadd(117.289, 172.602, 18.87, 1.686)
pt3dadd(117.219, 172.684, 18.893, 1.644)
pt3dadd(117.141, 172.775, 18.899, 1.596)
pt3dadd(117.081, 172.878, 18.9, 1.542)
pt3dadd(117.027, 172.985, 18.9, 1.486)
pt3dadd(116.997, 173.096, 18.914, 1.44)
pt3dadd(116.991, 173.212, 18.943, 1.408)
pt3dadd(116.978, 173.324, 18.971, 1.378)
pt3dadd(116.926, 173.428, 18.997, 1.358)
pt3dadd(116.909, 173.545, 19, 1.352)
pt3dadd(116.896, 173.664, 19, 1.348)
pt3dadd(116.884, 173.784, 19, 1.344)
pt3dadd(116.871, 173.903, 19, 1.34)
pt3dadd(116.859, 174.023, 19, 1.336)
pt3dadd(116.847, 174.142, 19, 1.332)
pt3dadd(116.834, 174.262, 19, 1.326)
pt3dadd(116.821, 174.38, 19, 1.318)
pt3dadd(116.809, 174.499, 19, 1.312)
pt3dadd(116.796, 174.619, 19, 1.304)
pt3dadd(116.783, 174.738, 19, 1.296)
pt3dadd(116.771, 174.858, 19, 1.288)
pt3dadd(116.76, 174.977, 19, 1.278)
pt3dadd(116.76, 175.097, 19, 1.252)
pt3dadd(116.76, 175.217, 19, 1.226)
pt3dadd(116.759, 175.337, 19, 1.202)
pt3dadd(116.755, 175.457, 19, 1.186)
pt3dadd(116.75, 175.577, 19, 1.168)
pt3dadd(116.737, 175.696, 19, 1.158)
pt3dadd(116.697, 175.808, 19, 1.168)
pt3dadd(116.657, 175.921, 19, 1.18)
pt3dadd(116.611, 176.033, 19, 1.23)
pt3dadd(116.565, 176.143, 19, 1.284)
pt3dadd(116.481, 176.219, 19, 1.378)
pt3dadd(116.373, 176.27, 19, 1.486)
pt3dadd(116.256, 176.297, 19, 1.516)
pt3dadd(116.139, 176.322, 19, 1.546)
pt3dadd(116.056, 176.395, 19, 1.536)
pt3dadd(115.995, 176.5, 19, 1.502)
pt3dadd(115.952, 176.608, 19.008, 1.45)
pt3dadd(115.935, 176.724, 19.027, 1.374)
pt3dadd(115.92, 176.838, 19.052, 1.302)
pt3dadd(115.92, 176.926, 19.121, 1.266)
pt3dadd(115.92, 177.013, 19.189, 1.23)
pt3dadd(115.888, 177.127, 19.201, 1.238)
pt3dadd(115.856, 177.242, 19.213, 1.244)
pt3dadd(115.823, 177.358, 19.225, 1.25)
pt3dadd(115.77, 177.448, 19.242, 1.268)
pt3dadd(115.659, 177.473, 19.275, 1.318)
pt3dadd(115.548, 177.502, 19.304, 1.364)
pt3dadd(115.463, 177.565, 19.333, 1.382)
pt3dadd(115.403, 177.655, 19.377, 1.382)
pt3dadd(115.305, 177.71, 19.392, 1.382)
pt3dadd(115.193, 177.751, 19.397, 1.382)
pt3dadd(115.123, 177.828, 19.4, 1.386)
pt3dadd(115.103, 177.947, 19.4, 1.396)
pt3dadd(115.083, 178.064, 19.4, 1.404)
pt3dadd(115.08, 178.184, 19.4, 1.414)
pt3dadd(115.08, 178.304, 19.4, 1.422)
pt3dadd(115.08, 178.424, 19.4, 1.43)
pt3dadd(115.06, 178.542, 19.4, 1.432)
pt3dadd(115.031, 178.658, 19.4, 1.434)
pt3dadd(114.978, 178.766, 19.4, 1.444)
pt3dadd(114.924, 178.873, 19.4, 1.456)
pt3dadd(114.85, 178.968, 19.4, 1.468)
pt3dadd(114.775, 179.06, 19.4, 1.48)
pt3dadd(114.728, 179.171, 19.4, 1.474)
pt3dadd(114.689, 179.284, 19.4, 1.462)
pt3dadd(114.615, 179.356, 19.4, 1.44)
pt3dadd(114.497, 179.376, 19.4, 1.4)
pt3dadd(114.379, 179.396, 19.4, 1.362)
}
}
proc shape3d_67() {
apic[16] { pt3dadd(114.282, 179.437, 19.444, 1.328)
pt3dadd(114.189, 179.482, 19.495, 1.294)
pt3dadd(114.096, 179.526, 19.547, 1.262)
pt3dadd(114.047, 179.622, 19.579, 1.246)
pt3dadd(114.006, 179.73, 19.607, 1.232)
pt3dadd(113.999, 179.844, 19.634, 1.282)
pt3dadd(113.975, 179.958, 19.661, 1.292)
pt3dadd(113.951, 180.071, 19.688, 1.302)
pt3dadd(113.926, 180.184, 19.715, 1.312)
pt3dadd(113.902, 180.296, 19.742, 1.322)
pt3dadd(113.878, 180.408, 19.771, 1.33)
pt3dadd(113.858, 180.51, 19.822, 1.33)
pt3dadd(113.83, 180.608, 19.869, 1.328)
pt3dadd(113.74, 180.685, 19.886, 1.302)
pt3dadd(113.647, 180.758, 19.9, 1.262)
pt3dadd(113.546, 180.823, 19.9, 1.156)
pt3dadd(113.482, 180.833, 19.967, 1.044)
pt3dadd(113.43, 180.824, 20.057, 0.926)
pt3dadd(113.379, 180.815, 20.147, 0.81)
pt3dadd(113.327, 180.806, 20.236, 0.694)
pt3dadd(113.275, 180.797, 20.326, 0.576)
pt3dadd(113.224, 180.788, 20.417, 0.46)
pt3dadd(113.172, 180.779, 20.506, 0.342)
pt3dadd(113.12, 180.77, 20.596, 0.226)
}
apic[17] {pt3dclear()
pt3dadd(113.12, 180.77, 20.596, 0.226)
pt3dadd(113.023, 180.817, 20.626, 0.288)
pt3dadd(112.921, 180.868, 20.657, 0.354)
pt3dadd(112.818, 180.917, 20.689, 0.42)
pt3dadd(112.716, 180.967, 20.72, 0.484)
pt3dadd(112.613, 181.016, 20.751, 0.55)
pt3dadd(112.511, 181.067, 20.783, 0.616)
pt3dadd(112.408, 181.116, 20.814, 0.682)
pt3dadd(112.306, 181.166, 20.846, 0.748)
pt3dadd(112.201, 181.212, 20.876, 0.798)
pt3dadd(112.091, 181.246, 20.902, 0.808)
pt3dadd(111.98, 181.28, 20.928, 0.82)
pt3dadd(111.869, 181.314, 20.954, 0.83)
pt3dadd(111.759, 181.349, 20.98, 0.84)
pt3dadd(111.648, 181.382, 21.006, 0.85)
pt3dadd(111.537, 181.416, 21.032, 0.86)
pt3dadd(111.426, 181.451, 21.058, 0.87)
pt3dadd(111.316, 181.484, 21.084, 0.882)
pt3dadd(111.205, 181.519, 21.11, 0.892)
pt3dadd(111.092, 181.546, 21.134, 0.88)
pt3dadd(110.975, 181.562, 21.153, 0.834)
pt3dadd(110.859, 181.578, 21.173, 0.788)
pt3dadd(110.742, 181.595, 21.193, 0.744)
pt3dadd(110.626, 181.61, 21.212, 0.698)
pt3dadd(110.509, 181.626, 21.232, 0.652)
pt3dadd(110.392, 181.643, 21.251, 0.608)
pt3dadd(110.276, 181.658, 21.271, 0.562)
pt3dadd(110.159, 181.675, 21.29, 0.516)
pt3dadd(110.043, 181.691, 21.31, 0.47)
pt3dadd(109.925, 181.702, 21.326, 0.438)
pt3dadd(109.806, 181.706, 21.338, 0.424)
pt3dadd(109.687, 181.711, 21.35, 0.41)
pt3dadd(109.568, 181.715, 21.362, 0.394)
pt3dadd(109.449, 181.72, 21.374, 0.38)
pt3dadd(109.33, 181.723, 21.385, 0.366)
pt3dadd(109.211, 181.728, 21.397, 0.352)
pt3dadd(109.092, 181.733, 21.409, 0.338)
pt3dadd(108.972, 181.736, 21.421, 0.322)
pt3dadd(108.853, 181.741, 21.433, 0.308)
pt3dadd(108.736, 181.746, 21.45, 0.3)
pt3dadd(108.619, 181.753, 21.474, 0.298)
pt3dadd(108.503, 181.76, 21.499, 0.298)
pt3dadd(108.387, 181.768, 21.524, 0.296)
pt3dadd(108.271, 181.774, 21.549, 0.296)
pt3dadd(108.155, 181.781, 21.573, 0.296)
pt3dadd(108.039, 181.788, 21.598, 0.294)
pt3dadd(107.923, 181.795, 21.623, 0.294)
pt3dadd(107.807, 181.801, 21.648, 0.292)
pt3dadd(107.691, 181.808, 21.672, 0.292)
pt3dadd(107.577, 181.817, 21.703, 0.298)
pt3dadd(107.467, 181.826, 21.741, 0.312)
pt3dadd(107.356, 181.836, 21.779, 0.324)
pt3dadd(107.245, 181.846, 21.817, 0.338)
pt3dadd(107.135, 181.854, 21.855, 0.352)
pt3dadd(107.024, 181.864, 21.892, 0.364)
pt3dadd(106.913, 181.873, 21.93, 0.378)
pt3dadd(106.803, 181.883, 21.968, 0.392)
pt3dadd(106.692, 181.892, 22.006, 0.406)
pt3dadd(106.581, 181.902, 22.044, 0.418)
pt3dadd(106.469, 181.914, 22.076, 0.438)
pt3dadd(106.355, 181.931, 22.104, 0.464)
pt3dadd(106.24, 181.946, 22.132, 0.488)
pt3dadd(106.126, 181.962, 22.16, 0.514)
pt3dadd(106.012, 181.978, 22.188, 0.538)
pt3dadd(105.898, 181.993, 22.216, 0.564)
pt3dadd(105.784, 182.009, 22.243, 0.588)
pt3dadd(105.67, 182.024, 22.271, 0.614)
pt3dadd(105.555, 182.04, 22.299, 0.64)
pt3dadd(105.441, 182.057, 22.327, 0.664)
pt3dadd(105.327, 182.076, 22.352, 0.688)
pt3dadd(105.213, 182.1, 22.376, 0.712)
pt3dadd(105.099, 182.125, 22.399, 0.734)
pt3dadd(104.984, 182.149, 22.422, 0.758)
pt3dadd(104.87, 182.173, 22.445, 0.78)
pt3dadd(104.756, 182.197, 22.468, 0.802)
pt3dadd(104.642, 182.221, 22.491, 0.826)
pt3dadd(104.528, 182.245, 22.514, 0.848)
pt3dadd(104.413, 182.27, 22.538, 0.872)
pt3dadd(104.299, 182.294, 22.561, 0.894)
pt3dadd(104.189, 182.335, 22.578, 0.904)
pt3dadd(104.083, 182.388, 22.59, 0.904)
pt3dadd(103.976, 182.44, 22.603, 0.904)
pt3dadd(103.869, 182.492, 22.616, 0.904)
pt3dadd(103.762, 182.545, 22.629, 0.904)
pt3dadd(103.655, 182.598, 22.642, 0.904)
pt3dadd(103.549, 182.651, 22.654, 0.904)
pt3dadd(103.442, 182.702, 22.667, 0.904)
pt3dadd(103.335, 182.755, 22.68, 0.904)
pt3dadd(103.228, 182.808, 22.693, 0.904)
pt3dadd(103.12, 182.858, 22.704, 0.892)
pt3dadd(103.011, 182.908, 22.714, 0.872)
pt3dadd(102.903, 182.957, 22.724, 0.85)
pt3dadd(102.794, 183.006, 22.734, 0.83)
pt3dadd(102.685, 183.055, 22.744, 0.808)
pt3dadd(102.576, 183.104, 22.754, 0.788)
pt3dadd(102.467, 183.154, 22.764, 0.766)
pt3dadd(102.359, 183.203, 22.774, 0.746)
pt3dadd(102.25, 183.252, 22.784, 0.726)
pt3dadd(102.141, 183.301, 22.794, 0.704)
pt3dadd(102.031, 183.347, 22.802, 0.67)
pt3dadd(101.92, 183.392, 22.809, 0.626)
pt3dadd(101.809, 183.438, 22.816, 0.584)
pt3dadd(101.698, 183.482, 22.823, 0.54)
pt3dadd(101.587, 183.528, 22.83, 0.498)
pt3dadd(101.476, 183.572, 22.837, 0.454)
pt3dadd(101.366, 183.618, 22.844, 0.412)
pt3dadd(101.255, 183.664, 22.851, 0.368)
pt3dadd(101.144, 183.708, 22.858, 0.326)
pt3dadd(101.033, 183.754, 22.865, 0.282)
pt3dadd(100.927, 183.808, 22.875, 0.292)
pt3dadd(100.824, 183.869, 22.885, 0.34)
pt3dadd(100.722, 183.93, 22.896, 0.386)
pt3dadd(100.619, 183.991, 22.907, 0.432)
pt3dadd(100.517, 184.051, 22.918, 0.478)
pt3dadd(100.414, 184.112, 22.928, 0.526)
pt3dadd(100.312, 184.174, 22.939, 0.572)
pt3dadd(100.209, 184.235, 22.95, 0.618)
pt3dadd(100.106, 184.295, 22.961, 0.664)
pt3dadd(100.004, 184.356, 22.972, 0.71)
pt3dadd(99.903, 184.416, 22.99, 0.754)
pt3dadd(99.802, 184.476, 23.012, 0.794)
pt3dadd(99.702, 184.536, 23.034, 0.836)
pt3dadd(99.601, 184.596, 23.057, 0.876)
pt3dadd(99.501, 184.656, 23.079, 0.918)
pt3dadd(99.4, 184.716, 23.102, 0.958)
pt3dadd(99.3, 184.776, 23.124, 0.998)
pt3dadd(99.199, 184.836, 23.147, 1.04)
pt3dadd(99.099, 184.895, 23.169, 1.08)
pt3dadd(98.999, 184.955, 23.192, 1.122)
pt3dadd(98.905, 185.006, 23.236, 1.128)
pt3dadd(98.813, 185.054, 23.286, 1.128)
pt3dadd(98.721, 185.104, 23.336, 1.126)
pt3dadd(98.629, 185.153, 23.386, 1.124)
pt3dadd(98.537, 185.201, 23.435, 1.124)
pt3dadd(98.445, 185.25, 23.485, 1.122)
pt3dadd(98.353, 185.298, 23.535, 1.12)
pt3dadd(98.262, 185.347, 23.585, 1.12)
pt3dadd(98.17, 185.395, 23.635, 1.118)
pt3dadd(98.078, 185.444, 23.685, 1.116)
pt3dadd(97.972, 185.482, 23.719, 1.088)
pt3dadd(97.863, 185.518, 23.749, 1.054)
pt3dadd(97.754, 185.552, 23.778, 1.018)
pt3dadd(97.645, 185.587, 23.808, 0.984)
pt3dadd(97.536, 185.622, 23.838, 0.948)
pt3dadd(97.427, 185.657, 23.868, 0.914)
pt3dadd(97.318, 185.693, 23.898, 0.878)
pt3dadd(97.209, 185.728, 23.927, 0.844)
pt3dadd(97.1, 185.762, 23.957, 0.808)
pt3dadd(96.991, 185.797, 23.987, 0.774)
pt3dadd(96.882, 185.843, 24.006, 0.76)
pt3dadd(96.774, 185.891, 24.022, 0.75)
pt3dadd(96.666, 185.939, 24.038, 0.742)
pt3dadd(96.557, 185.987, 24.054, 0.734)
pt3dadd(96.449, 186.035, 24.07, 0.724)
pt3dadd(96.341, 186.083, 24.086, 0.716)
pt3dadd(96.232, 186.131, 24.102, 0.706)
pt3dadd(96.124, 186.179, 24.118, 0.698)
pt3dadd(96.016, 186.226, 24.134, 0.688)
pt3dadd(95.907, 186.274, 24.15, 0.68)
pt3dadd(95.798, 186.323, 24.16, 0.674)
pt3dadd(95.689, 186.372, 24.169, 0.668)
pt3dadd(95.58, 186.421, 24.179, 0.664)
pt3dadd(95.472, 186.47, 24.188, 0.658)
pt3dadd(95.363, 186.52, 24.197, 0.652)
pt3dadd(95.254, 186.569, 24.206, 0.648)
pt3dadd(95.145, 186.617, 24.215, 0.642)
pt3dadd(95.036, 186.666, 24.224, 0.636)
pt3dadd(94.927, 186.715, 24.233, 0.632)
pt3dadd(94.818, 186.764, 24.242, 0.626)
pt3dadd(94.704, 186.803, 24.243, 0.602)
pt3dadd(94.59, 186.839, 24.243, 0.574)
pt3dadd(94.475, 186.875, 24.243, 0.546)
pt3dadd(94.361, 186.912, 24.243, 0.518)
pt3dadd(94.247, 186.948, 24.243, 0.492)
pt3dadd(94.132, 186.984, 24.243, 0.464)
pt3dadd(94.018, 187.021, 24.243, 0.436)
}
}
proc shape3d_68() {
apic[17] { pt3dadd(93.903, 187.057, 24.243, 0.408)
pt3dadd(93.789, 187.093, 24.243, 0.382)
pt3dadd(93.675, 187.129, 24.243, 0.354)
pt3dadd(93.559, 187.162, 24.243, 0.366)
pt3dadd(93.443, 187.193, 24.243, 0.386)
pt3dadd(93.327, 187.224, 24.243, 0.404)
pt3dadd(93.211, 187.255, 24.243, 0.422)
pt3dadd(93.096, 187.286, 24.243, 0.44)
pt3dadd(92.98, 187.318, 24.243, 0.46)
pt3dadd(92.864, 187.349, 24.243, 0.478)
pt3dadd(92.748, 187.38, 24.243, 0.496)
pt3dadd(92.632, 187.411, 24.243, 0.514)
pt3dadd(92.516, 187.442, 24.243, 0.534)
pt3dadd(92.399, 187.47, 24.243, 0.586)
pt3dadd(92.283, 187.496, 24.243, 0.642)
pt3dadd(92.166, 187.524, 24.243, 0.698)
pt3dadd(92.049, 187.55, 24.243, 0.754)
pt3dadd(91.932, 187.577, 24.243, 0.81)
pt3dadd(91.815, 187.604, 24.243, 0.866)
pt3dadd(91.698, 187.631, 24.243, 0.922)
pt3dadd(91.581, 187.658, 24.243, 0.98)
pt3dadd(91.464, 187.685, 24.243, 1.036)
pt3dadd(91.347, 187.711, 24.243, 1.092)
pt3dadd(91.235, 187.753, 24.243, 1.102)
pt3dadd(91.123, 187.798, 24.243, 1.104)
pt3dadd(91.011, 187.842, 24.243, 1.108)
pt3dadd(90.9, 187.885, 24.243, 1.11)
pt3dadd(90.788, 187.93, 24.243, 1.114)
pt3dadd(90.676, 187.974, 24.243, 1.118)
pt3dadd(90.565, 188.017, 24.243, 1.12)
pt3dadd(90.453, 188.062, 24.244, 1.124)
pt3dadd(90.341, 188.106, 24.244, 1.126)
pt3dadd(90.23, 188.149, 24.244, 1.13)
pt3dadd(90.117, 188.191, 24.244, 1.12)
pt3dadd(90.004, 188.232, 24.244, 1.11)
pt3dadd(89.892, 188.274, 24.244, 1.098)
pt3dadd(89.779, 188.315, 24.244, 1.088)
pt3dadd(89.666, 188.356, 24.244, 1.076)
pt3dadd(89.554, 188.398, 24.244, 1.066)
pt3dadd(89.441, 188.438, 24.244, 1.056)
pt3dadd(89.328, 188.479, 24.244, 1.044)
pt3dadd(89.216, 188.521, 24.244, 1.034)
pt3dadd(89.103, 188.562, 24.244, 1.022)
pt3dadd(88.987, 188.593, 24.244, 0.984)
pt3dadd(88.871, 188.623, 24.244, 0.942)
pt3dadd(88.755, 188.653, 24.244, 0.9)
pt3dadd(88.638, 188.682, 24.244, 0.858)
pt3dadd(88.522, 188.712, 24.244, 0.816)
pt3dadd(88.406, 188.742, 24.244, 0.774)
pt3dadd(88.29, 188.772, 24.244, 0.732)
pt3dadd(88.173, 188.802, 24.245, 0.69)
pt3dadd(88.057, 188.832, 24.245, 0.648)
pt3dadd(87.941, 188.862, 24.245, 0.606)
pt3dadd(87.823, 188.884, 24.245, 0.588)
pt3dadd(87.705, 188.904, 24.245, 0.572)
pt3dadd(87.587, 188.924, 24.245, 0.558)
pt3dadd(87.468, 188.946, 24.245, 0.542)
pt3dadd(87.35, 188.966, 24.245, 0.528)
pt3dadd(87.232, 188.987, 24.245, 0.514)
pt3dadd(87.114, 189.008, 24.245, 0.498)
pt3dadd(86.996, 189.029, 24.246, 0.482)
pt3dadd(86.877, 189.049, 24.246, 0.468)
pt3dadd(86.759, 189.071, 24.246, 0.454)
pt3dadd(86.64, 189.086, 24.246, 0.452)
pt3dadd(86.521, 189.101, 24.246, 0.45)
pt3dadd(86.402, 189.116, 24.246, 0.45)
pt3dadd(86.283, 189.131, 24.246, 0.448)
pt3dadd(86.164, 189.146, 24.246, 0.448)
pt3dadd(86.045, 189.161, 24.247, 0.446)
pt3dadd(85.926, 189.176, 24.247, 0.444)
pt3dadd(85.807, 189.191, 24.247, 0.444)
pt3dadd(85.688, 189.206, 24.247, 0.444)
pt3dadd(85.569, 189.221, 24.247, 0.442)
pt3dadd(85.449, 189.227, 24.247, 0.428)
pt3dadd(85.329, 189.233, 24.248, 0.414)
pt3dadd(85.209, 189.238, 24.248, 0.4)
pt3dadd(85.089, 189.242, 24.248, 0.386)
pt3dadd(84.969, 189.248, 24.249, 0.37)
pt3dadd(84.849, 189.253, 24.249, 0.356)
pt3dadd(84.73, 189.259, 24.249, 0.342)
pt3dadd(84.61, 189.264, 24.25, 0.328)
pt3dadd(84.49, 189.269, 24.25, 0.312)
pt3dadd(84.37, 189.275, 24.25, 0.298)
pt3dadd(84.25, 189.283, 24.25, 0.304)
pt3dadd(84.131, 189.292, 24.251, 0.312)
pt3dadd(84.011, 189.301, 24.251, 0.32)
pt3dadd(83.891, 189.31, 24.252, 0.328)
pt3dadd(83.772, 189.319, 24.252, 0.334)
pt3dadd(83.652, 189.328, 24.253, 0.342)
pt3dadd(83.532, 189.336, 24.253, 0.35)
pt3dadd(83.413, 189.346, 24.254, 0.358)
pt3dadd(83.293, 189.354, 24.254, 0.364)
pt3dadd(83.173, 189.364, 24.255, 0.372)
pt3dadd(83.054, 189.376, 24.255, 0.4)
pt3dadd(82.935, 189.388, 24.256, 0.428)
pt3dadd(82.815, 189.4, 24.257, 0.458)
pt3dadd(82.696, 189.412, 24.257, 0.486)
pt3dadd(82.576, 189.424, 24.258, 0.516)
pt3dadd(82.457, 189.437, 24.259, 0.544)
pt3dadd(82.338, 189.449, 24.259, 0.574)
pt3dadd(82.218, 189.461, 24.26, 0.602)
pt3dadd(82.099, 189.473, 24.26, 0.632)
pt3dadd(81.98, 189.485, 24.261, 0.66)
pt3dadd(81.862, 189.508, 24.263, 0.664)
pt3dadd(81.744, 189.529, 24.264, 0.666)
pt3dadd(81.626, 189.552, 24.265, 0.666)
pt3dadd(81.508, 189.575, 24.267, 0.668)
pt3dadd(81.39, 189.598, 24.268, 0.67)
pt3dadd(81.272, 189.62, 24.269, 0.672)
pt3dadd(81.155, 189.642, 24.271, 0.674)
pt3dadd(81.037, 189.665, 24.272, 0.674)
pt3dadd(80.919, 189.688, 24.273, 0.676)
pt3dadd(80.801, 189.71, 24.275, 0.678)
pt3dadd(80.686, 189.745, 24.277, 0.674)
pt3dadd(80.572, 189.782, 24.278, 0.668)
pt3dadd(80.458, 189.818, 24.28, 0.664)
pt3dadd(80.343, 189.854, 24.282, 0.658)
pt3dadd(80.229, 189.892, 24.284, 0.654)
pt3dadd(80.115, 189.928, 24.286, 0.648)
pt3dadd(80.001, 189.964, 24.288, 0.644)
pt3dadd(79.886, 190.001, 24.29, 0.638)
pt3dadd(79.772, 190.037, 24.292, 0.634)
pt3dadd(79.658, 190.074, 24.293, 0.628)
pt3dadd(79.553, 190.132, 24.296, 0.616)
pt3dadd(79.448, 190.189, 24.299, 0.602)
pt3dadd(79.342, 190.247, 24.301, 0.59)
pt3dadd(79.237, 190.304, 24.304, 0.576)
pt3dadd(79.132, 190.362, 24.306, 0.564)
pt3dadd(79.027, 190.42, 24.309, 0.55)
pt3dadd(78.921, 190.477, 24.312, 0.538)
pt3dadd(78.816, 190.535, 24.314, 0.524)
pt3dadd(78.711, 190.592, 24.317, 0.512)
pt3dadd(78.606, 190.651, 24.319, 0.498)
pt3dadd(78.506, 190.717, 24.324, 0.486)
pt3dadd(78.406, 190.783, 24.329, 0.472)
pt3dadd(78.306, 190.849, 24.334, 0.46)
pt3dadd(78.206, 190.915, 24.339, 0.448)
pt3dadd(78.106, 190.981, 24.344, 0.434)
pt3dadd(78.006, 191.047, 24.348, 0.422)
pt3dadd(77.906, 191.113, 24.353, 0.41)
pt3dadd(77.806, 191.179, 24.358, 0.396)
pt3dadd(77.706, 191.245, 24.363, 0.384)
pt3dadd(77.606, 191.311, 24.368, 0.37)
pt3dadd(77.509, 191.382, 24.374, 0.358)
pt3dadd(77.412, 191.453, 24.38, 0.346)
pt3dadd(77.315, 191.522, 24.386, 0.334)
pt3dadd(77.219, 191.593, 24.392, 0.32)
pt3dadd(77.122, 191.664, 24.398, 0.308)
pt3dadd(77.025, 191.735, 24.404, 0.296)
pt3dadd(76.928, 191.806, 24.411, 0.284)
pt3dadd(76.831, 191.875, 24.417, 0.27)
pt3dadd(76.734, 191.946, 24.423, 0.258)
pt3dadd(76.637, 192.016, 24.429, 0.25)
pt3dadd(76.531, 192.071, 24.44, 0.296)
pt3dadd(76.426, 192.126, 24.451, 0.344)
pt3dadd(76.32, 192.181, 24.462, 0.39)
pt3dadd(76.214, 192.238, 24.473, 0.438)
pt3dadd(76.109, 192.293, 24.484, 0.484)
pt3dadd(76.003, 192.348, 24.495, 0.532)
pt3dadd(75.897, 192.403, 24.505, 0.578)
pt3dadd(75.792, 192.458, 24.516, 0.626)
pt3dadd(75.686, 192.514, 24.527, 0.672)
pt3dadd(75.58, 192.569, 24.539, 0.718)
pt3dadd(75.475, 192.618, 24.563, 0.744)
pt3dadd(75.369, 192.666, 24.587, 0.768)
pt3dadd(75.264, 192.715, 24.612, 0.794)
pt3dadd(75.158, 192.764, 24.636, 0.82)
pt3dadd(75.052, 192.814, 24.66, 0.844)
pt3dadd(74.947, 192.863, 24.684, 0.87)
pt3dadd(74.841, 192.911, 24.708, 0.896)
pt3dadd(74.735, 192.96, 24.732, 0.92)
pt3dadd(74.63, 193.009, 24.757, 0.946)
pt3dadd(74.527, 193.056, 24.788, 0.95)
pt3dadd(74.431, 193.094, 24.839, 0.902)
pt3dadd(74.335, 193.134, 24.889, 0.854)
pt3dadd(74.239, 193.172, 24.94, 0.806)
pt3dadd(74.143, 193.212, 24.99, 0.758)
pt3dadd(74.047, 193.252, 25.041, 0.71)
pt3dadd(73.951, 193.29, 25.091, 0.662)
pt3dadd(73.855, 193.33, 25.141, 0.614)
pt3dadd(73.759, 193.369, 25.192, 0.566)
pt3dadd(73.663, 193.408, 25.242, 0.518)
pt3dadd(73.566, 193.453, 25.285, 0.496)
pt3dadd(73.465, 193.508, 25.313, 0.528)
pt3dadd(73.364, 193.565, 25.34, 0.56)
pt3dadd(73.263, 193.62, 25.368, 0.594)
pt3dadd(73.162, 193.676, 25.395, 0.626)
pt3dadd(73.061, 193.732, 25.423, 0.658)
pt3dadd(72.96, 193.788, 25.451, 0.69)
pt3dadd(72.859, 193.843, 25.478, 0.722)
pt3dadd(72.758, 193.9, 25.506, 0.754)
pt3dadd(72.657, 193.955, 25.533, 0.786)
pt3dadd(72.553, 194.006, 25.557, 0.804)
pt3dadd(72.442, 194.048, 25.574, 0.792)
pt3dadd(72.332, 194.09, 25.59, 0.78)
pt3dadd(72.221, 194.132, 25.607, 0.768)
pt3dadd(72.11, 194.174, 25.624, 0.756)
pt3dadd(72, 194.215, 25.64, 0.744)
pt3dadd(71.889, 194.257, 25.657, 0.732)
pt3dadd(71.778, 194.299, 25.673, 0.718)
}
}
proc shape3d_69() {
apic[17] { pt3dadd(71.668, 194.341, 25.69, 0.706)
pt3dadd(71.557, 194.383, 25.707, 0.694)
pt3dadd(71.445, 194.422, 25.72, 0.682)
pt3dadd(71.33, 194.454, 25.729, 0.668)
pt3dadd(71.215, 194.486, 25.738, 0.654)
pt3dadd(71.1, 194.519, 25.747, 0.642)
pt3dadd(70.985, 194.552, 25.757, 0.628)
pt3dadd(70.87, 194.585, 25.766, 0.614)
pt3dadd(70.755, 194.617, 25.775, 0.6)
pt3dadd(70.64, 194.65, 25.784, 0.588)
pt3dadd(70.525, 194.682, 25.793, 0.574)
pt3dadd(70.41, 194.714, 25.802, 0.56)
pt3dadd(70.294, 194.743, 25.807, 0.57)
pt3dadd(70.176, 194.765, 25.807, 0.614)
pt3dadd(70.058, 194.788, 25.807, 0.656)
pt3dadd(69.94, 194.809, 25.807, 0.698)
pt3dadd(69.822, 194.832, 25.807, 0.742)
pt3dadd(69.704, 194.854, 25.807, 0.784)
pt3dadd(69.586, 194.876, 25.807, 0.826)
pt3dadd(69.468, 194.898, 25.807, 0.868)
pt3dadd(69.35, 194.921, 25.807, 0.912)
pt3dadd(69.232, 194.942, 25.807, 0.954)
pt3dadd(69.114, 194.963, 25.807, 0.97)
pt3dadd(68.995, 194.981, 25.807, 0.948)
pt3dadd(68.877, 194.999, 25.807, 0.926)
pt3dadd(68.758, 195.017, 25.807, 0.904)
pt3dadd(68.64, 195.035, 25.807, 0.882)
pt3dadd(68.521, 195.053, 25.807, 0.86)
pt3dadd(68.402, 195.071, 25.807, 0.838)
pt3dadd(68.284, 195.089, 25.807, 0.816)
pt3dadd(68.165, 195.107, 25.807, 0.794)
pt3dadd(68.046, 195.125, 25.807, 0.774)
pt3dadd(67.928, 195.143, 25.807, 0.738)
pt3dadd(67.809, 195.161, 25.807, 0.684)
pt3dadd(67.69, 195.179, 25.807, 0.63)
pt3dadd(67.572, 195.197, 25.807, 0.576)
pt3dadd(67.453, 195.215, 25.807, 0.524)
pt3dadd(67.334, 195.233, 25.807, 0.47)
pt3dadd(67.216, 195.25, 25.807, 0.416)
pt3dadd(67.097, 195.268, 25.807, 0.362)
pt3dadd(66.978, 195.286, 25.807, 0.308)
pt3dadd(66.86, 195.304, 25.807, 0.256)
pt3dadd(66.745, 195.335, 25.807, 0.226)
pt3dadd(66.635, 195.382, 25.807, 0.226)
pt3dadd(66.524, 195.43, 25.807, 0.226)
pt3dadd(66.414, 195.478, 25.807, 0.226)
pt3dadd(66.304, 195.524, 25.807, 0.226)
pt3dadd(66.194, 195.572, 25.807, 0.226)
pt3dadd(66.084, 195.619, 25.807, 0.226)
pt3dadd(65.973, 195.667, 25.807, 0.226)
pt3dadd(65.863, 195.715, 25.807, 0.226)
pt3dadd(65.753, 195.762, 25.807, 0.226)
pt3dadd(65.642, 195.808, 25.807, 0.228)
pt3dadd(65.53, 195.852, 25.807, 0.234)
pt3dadd(65.419, 195.895, 25.807, 0.238)
pt3dadd(65.307, 195.94, 25.807, 0.244)
pt3dadd(65.195, 195.983, 25.807, 0.248)
pt3dadd(65.083, 196.026, 25.807, 0.254)
pt3dadd(64.971, 196.07, 25.807, 0.258)
pt3dadd(64.86, 196.114, 25.807, 0.264)
pt3dadd(64.748, 196.157, 25.807, 0.268)
pt3dadd(64.636, 196.201, 25.807, 0.274)
pt3dadd(64.523, 196.241, 25.807, 0.282)
pt3dadd(64.409, 196.278, 25.807, 0.296)
pt3dadd(64.295, 196.315, 25.807, 0.31)
pt3dadd(64.181, 196.351, 25.807, 0.324)
pt3dadd(64.066, 196.388, 25.807, 0.338)
pt3dadd(63.952, 196.426, 25.807, 0.352)
pt3dadd(63.838, 196.463, 25.807, 0.364)
pt3dadd(63.724, 196.499, 25.807, 0.378)
pt3dadd(63.609, 196.536, 25.807, 0.392)
pt3dadd(63.495, 196.573, 25.807, 0.406)
pt3dadd(63.38, 196.607, 25.807, 0.41)
pt3dadd(63.264, 196.637, 25.807, 0.404)
pt3dadd(63.148, 196.667, 25.807, 0.398)
pt3dadd(63.032, 196.697, 25.807, 0.392)
pt3dadd(62.916, 196.727, 25.807, 0.386)
pt3dadd(62.799, 196.757, 25.807, 0.38)
pt3dadd(62.683, 196.787, 25.807, 0.372)
pt3dadd(62.567, 196.818, 25.807, 0.366)
pt3dadd(62.451, 196.848, 25.807, 0.36)
pt3dadd(62.335, 196.878, 25.807, 0.354)
pt3dadd(62.219, 196.908, 25.807, 0.346)
pt3dadd(62.103, 196.938, 25.807, 0.336)
pt3dadd(61.986, 196.968, 25.807, 0.328)
pt3dadd(61.87, 196.998, 25.807, 0.318)
pt3dadd(61.754, 197.028, 25.807, 0.308)
pt3dadd(61.638, 197.058, 25.807, 0.298)
pt3dadd(61.521, 197.087, 25.807, 0.29)
pt3dadd(61.405, 197.117, 25.807, 0.28)
pt3dadd(61.289, 197.147, 25.807, 0.27)
pt3dadd(61.173, 197.177, 25.807, 0.262)
pt3dadd(61.059, 197.215, 25.807, 0.27)
pt3dadd(60.949, 197.262, 25.807, 0.296)
pt3dadd(60.838, 197.309, 25.807, 0.322)
pt3dadd(60.728, 197.356, 25.807, 0.35)
pt3dadd(60.617, 197.402, 25.807, 0.376)
pt3dadd(60.507, 197.448, 25.807, 0.402)
pt3dadd(60.396, 197.495, 25.807, 0.428)
pt3dadd(60.285, 197.542, 25.807, 0.456)
pt3dadd(60.175, 197.588, 25.807, 0.482)
pt3dadd(60.064, 197.635, 25.807, 0.508)
pt3dadd(59.953, 197.68, 25.807, 0.53)
pt3dadd(59.84, 197.72, 25.807, 0.546)
pt3dadd(59.727, 197.761, 25.807, 0.562)
pt3dadd(59.615, 197.803, 25.807, 0.576)
pt3dadd(59.502, 197.844, 25.807, 0.592)
pt3dadd(59.389, 197.886, 25.807, 0.608)
pt3dadd(59.277, 197.927, 25.807, 0.624)
pt3dadd(59.164, 197.968, 25.807, 0.64)
pt3dadd(59.051, 198.01, 25.807, 0.654)
pt3dadd(58.938, 198.05, 25.807, 0.67)
pt3dadd(58.825, 198.088, 25.807, 0.678)
pt3dadd(58.709, 198.121, 25.807, 0.678)
pt3dadd(58.594, 198.155, 25.807, 0.678)
pt3dadd(58.479, 198.188, 25.807, 0.678)
pt3dadd(58.364, 198.222, 25.807, 0.678)
pt3dadd(58.249, 198.256, 25.807, 0.678)
pt3dadd(58.133, 198.289, 25.807, 0.678)
pt3dadd(58.018, 198.323, 25.807, 0.678)
pt3dadd(57.903, 198.356, 25.807, 0.678)
pt3dadd(57.788, 198.39, 25.807, 0.678)
pt3dadd(57.672, 198.42, 25.807, 0.666)
pt3dadd(57.555, 198.448, 25.807, 0.644)
pt3dadd(57.438, 198.474, 25.807, 0.622)
pt3dadd(57.321, 198.502, 25.807, 0.6)
pt3dadd(57.204, 198.528, 25.807, 0.578)
pt3dadd(57.087, 198.554, 25.807, 0.556)
pt3dadd(56.97, 198.582, 25.807, 0.534)
pt3dadd(56.853, 198.608, 25.807, 0.51)
pt3dadd(56.736, 198.636, 25.807, 0.488)
pt3dadd(56.619, 198.662, 25.807, 0.466)
pt3dadd(56.502, 198.689, 25.807, 0.446)
pt3dadd(56.385, 198.713, 25.807, 0.428)
pt3dadd(56.267, 198.738, 25.807, 0.412)
pt3dadd(56.15, 198.762, 25.807, 0.394)
pt3dadd(56.032, 198.787, 25.807, 0.376)
pt3dadd(55.915, 198.811, 25.807, 0.358)
pt3dadd(55.797, 198.836, 25.807, 0.34)
pt3dadd(55.68, 198.862, 25.807, 0.324)
pt3dadd(55.563, 198.886, 25.807, 0.306)
pt3dadd(55.445, 198.911, 25.807, 0.288)
pt3dadd(55.327, 198.935, 25.807, 0.294)
pt3dadd(55.21, 198.958, 25.807, 0.322)
pt3dadd(55.092, 198.98, 25.807, 0.35)
pt3dadd(54.974, 199.003, 25.807, 0.378)
pt3dadd(54.856, 199.026, 25.807, 0.408)
pt3dadd(54.739, 199.049, 25.807, 0.436)
pt3dadd(54.621, 199.072, 25.807, 0.464)
pt3dadd(54.503, 199.094, 25.807, 0.492)
pt3dadd(54.385, 199.118, 25.807, 0.52)
pt3dadd(54.267, 199.141, 25.807, 0.548)
pt3dadd(54.153, 199.175, 25.807, 0.58)
pt3dadd(54.041, 199.218, 25.807, 0.614)
pt3dadd(53.929, 199.261, 25.807, 0.65)
pt3dadd(53.817, 199.304, 25.807, 0.684)
pt3dadd(53.705, 199.348, 25.807, 0.718)
pt3dadd(53.593, 199.391, 25.807, 0.754)
pt3dadd(53.481, 199.435, 25.807, 0.788)
pt3dadd(53.37, 199.478, 25.807, 0.822)
pt3dadd(53.258, 199.522, 25.807, 0.858)
pt3dadd(53.146, 199.565, 25.807, 0.892)
pt3dadd(53.037, 199.616, 25.807, 0.928)
pt3dadd(52.932, 199.673, 25.807, 0.966)
pt3dadd(52.826, 199.729, 25.807, 1.006)
pt3dadd(52.72, 199.786, 25.807, 1.044)
pt3dadd(52.614, 199.842, 25.807, 1.082)
pt3dadd(52.508, 199.898, 25.807, 1.12)
pt3dadd(52.402, 199.956, 25.807, 1.158)
pt3dadd(52.297, 200.012, 25.807, 1.196)
pt3dadd(52.191, 200.069, 25.807, 1.234)
pt3dadd(52.085, 200.125, 25.807, 1.272)
pt3dadd(51.982, 200.188, 25.807, 1.274)
pt3dadd(51.882, 200.254, 25.807, 1.25)
pt3dadd(51.782, 200.318, 25.807, 1.228)
pt3dadd(51.681, 200.384, 25.807, 1.206)
pt3dadd(51.581, 200.45, 25.807, 1.184)
pt3dadd(51.481, 200.516, 25.807, 1.16)
pt3dadd(51.381, 200.582, 25.807, 1.138)
pt3dadd(51.28, 200.648, 25.807, 1.116)
pt3dadd(51.18, 200.714, 25.807, 1.094)
pt3dadd(51.079, 200.779, 25.807, 1.07)
pt3dadd(50.98, 200.846, 25.807, 1.04)
pt3dadd(50.881, 200.915, 25.807, 1.004)
pt3dadd(50.782, 200.982, 25.807, 0.968)
pt3dadd(50.683, 201.05, 25.807, 0.932)
pt3dadd(50.584, 201.118, 25.807, 0.896)
pt3dadd(50.485, 201.186, 25.807, 0.86)
pt3dadd(50.386, 201.253, 25.807, 0.826)
pt3dadd(50.287, 201.322, 25.807, 0.79)
pt3dadd(50.188, 201.389, 25.807, 0.754)
pt3dadd(50.089, 201.456, 25.807, 0.718)
pt3dadd(49.983, 201.514, 25.807, 0.688)
pt3dadd(49.874, 201.564, 25.807, 0.66)
pt3dadd(49.765, 201.614, 25.807, 0.634)
pt3dadd(49.656, 201.664, 25.807, 0.606)
pt3dadd(49.547, 201.714, 25.807, 0.578)
pt3dadd(49.438, 201.764, 25.807, 0.552)
pt3dadd(49.329, 201.815, 25.807, 0.524)
pt3dadd(49.221, 201.865, 25.807, 0.498)
}
}
proc shape3d_70() {
apic[17] { pt3dadd(49.111, 201.916, 25.807, 0.47)
pt3dadd(49.002, 201.966, 25.807, 0.442)
pt3dadd(48.892, 202.013, 25.807, 0.42)
pt3dadd(48.781, 202.057, 25.807, 0.4)
pt3dadd(48.67, 202.103, 25.807, 0.378)
pt3dadd(48.558, 202.147, 25.807, 0.358)
pt3dadd(48.447, 202.193, 25.807, 0.336)
pt3dadd(48.336, 202.237, 25.807, 0.316)
pt3dadd(48.225, 202.283, 25.807, 0.296)
pt3dadd(48.113, 202.327, 25.807, 0.274)
pt3dadd(48.002, 202.373, 25.807, 0.254)
pt3dadd(47.891, 202.417, 25.807, 0.234)
pt3dadd(47.776, 202.453, 25.807, 0.226)
pt3dadd(47.66, 202.483, 25.807, 0.226)
pt3dadd(47.544, 202.513, 25.807, 0.226)
pt3dadd(47.428, 202.543, 25.807, 0.226)
pt3dadd(47.312, 202.574, 25.807, 0.226)
pt3dadd(47.196, 202.604, 25.807, 0.226)
pt3dadd(47.08, 202.634, 25.807, 0.226)
pt3dadd(46.964, 202.666, 25.807, 0.226)
pt3dadd(46.848, 202.696, 25.807, 0.226)
pt3dadd(46.732, 202.726, 25.807, 0.226)
pt3dadd(46.618, 202.765, 25.807, 0.236)
pt3dadd(46.507, 202.808, 25.807, 0.252)
pt3dadd(46.395, 202.853, 25.807, 0.268)
pt3dadd(46.283, 202.896, 25.807, 0.284)
pt3dadd(46.171, 202.94, 25.807, 0.3)
pt3dadd(46.06, 202.984, 25.807, 0.316)
pt3dadd(45.948, 203.028, 25.807, 0.332)
pt3dadd(45.836, 203.071, 25.807, 0.346)
pt3dadd(45.724, 203.116, 25.807, 0.362)
pt3dadd(45.613, 203.159, 25.807, 0.378)
pt3dadd(45.504, 203.209, 25.807, 0.402)
pt3dadd(45.396, 203.261, 25.807, 0.428)
pt3dadd(45.288, 203.314, 25.807, 0.454)
pt3dadd(45.18, 203.365, 25.807, 0.48)
pt3dadd(45.072, 203.418, 25.807, 0.506)
pt3dadd(44.964, 203.471, 25.807, 0.532)
pt3dadd(44.856, 203.522, 25.807, 0.558)
pt3dadd(44.748, 203.575, 25.807, 0.584)
pt3dadd(44.64, 203.627, 25.807, 0.61)
pt3dadd(44.532, 203.68, 25.807, 0.636)
pt3dadd(44.421, 203.726, 25.807, 0.654)
pt3dadd(44.31, 203.772, 25.807, 0.67)
pt3dadd(44.199, 203.816, 25.807, 0.686)
pt3dadd(44.088, 203.862, 25.807, 0.7)
pt3dadd(43.976, 203.906, 25.807, 0.716)
pt3dadd(43.865, 203.951, 25.807, 0.73)
pt3dadd(43.754, 203.996, 25.807, 0.746)
pt3dadd(43.642, 204.041, 25.807, 0.762)
pt3dadd(43.531, 204.086, 25.807, 0.776)
pt3dadd(43.42, 204.131, 25.807, 0.792)
pt3dadd(43.309, 204.178, 25.807, 0.806)
pt3dadd(43.199, 204.224, 25.807, 0.818)
pt3dadd(43.088, 204.271, 25.807, 0.832)
pt3dadd(42.978, 204.318, 25.807, 0.846)
pt3dadd(42.867, 204.365, 25.807, 0.86)
pt3dadd(42.757, 204.412, 25.807, 0.872)
pt3dadd(42.647, 204.46, 25.807, 0.886)
pt3dadd(42.536, 204.506, 25.807, 0.9)
pt3dadd(42.426, 204.553, 25.807, 0.912)
pt3dadd(42.315, 204.6, 25.807, 0.926)
pt3dadd(42.21, 204.656, 25.807, 0.94)
pt3dadd(42.105, 204.716, 25.807, 0.952)
pt3dadd(42.001, 204.775, 25.807, 0.964)
pt3dadd(41.897, 204.835, 25.807, 0.978)
pt3dadd(41.793, 204.895, 25.807, 0.99)
pt3dadd(41.689, 204.955, 25.807, 1.002)
pt3dadd(41.585, 205.015, 25.807, 1.016)
pt3dadd(41.481, 205.075, 25.807, 1.028)
pt3dadd(41.377, 205.134, 25.807, 1.04)
pt3dadd(41.273, 205.194, 25.807, 1.054)
pt3dadd(41.166, 205.249, 25.807, 1.058)
pt3dadd(41.058, 205.301, 25.807, 1.06)
pt3dadd(40.95, 205.354, 25.807, 1.06)
pt3dadd(40.843, 205.406, 25.807, 1.062)
pt3dadd(40.735, 205.459, 25.807, 1.064)
pt3dadd(40.627, 205.512, 25.807, 1.064)
pt3dadd(40.519, 205.565, 25.807, 1.066)
pt3dadd(40.411, 205.616, 25.807, 1.066)
pt3dadd(40.303, 205.669, 25.807, 1.068)
pt3dadd(40.195, 205.722, 25.807, 1.07)
pt3dadd(40.084, 205.768, 25.807, 1.06)
pt3dadd(39.972, 205.811, 25.807, 1.046)
pt3dadd(39.86, 205.853, 25.807, 1.032)
pt3dadd(39.748, 205.896, 25.807, 1.018)
pt3dadd(39.636, 205.939, 25.807, 1.004)
pt3dadd(39.524, 205.981, 25.807, 0.99)
pt3dadd(39.412, 206.024, 25.807, 0.976)
pt3dadd(39.3, 206.068, 25.807, 0.962)
pt3dadd(39.188, 206.11, 25.807, 0.948)
pt3dadd(39.076, 206.153, 25.807, 0.934)
pt3dadd(38.963, 206.195, 25.807, 0.92)
pt3dadd(38.851, 206.238, 25.807, 0.904)
pt3dadd(38.739, 206.28, 25.807, 0.89)
pt3dadd(38.626, 206.322, 25.807, 0.876)
pt3dadd(38.514, 206.364, 25.807, 0.86)
pt3dadd(38.402, 206.406, 25.807, 0.846)
pt3dadd(38.289, 206.448, 25.807, 0.832)
pt3dadd(38.177, 206.49, 25.807, 0.816)
pt3dadd(38.064, 206.532, 25.807, 0.802)
pt3dadd(37.952, 206.574, 25.807, 0.788)
pt3dadd(37.842, 206.623, 25.807, 0.782)
pt3dadd(37.734, 206.674, 25.807, 0.778)
pt3dadd(37.625, 206.724, 25.807, 0.776)
pt3dadd(37.516, 206.774, 25.807, 0.772)
pt3dadd(37.407, 206.825, 25.807, 0.77)
pt3dadd(37.298, 206.876, 25.807, 0.766)
pt3dadd(37.189, 206.927, 25.807, 0.764)
pt3dadd(37.081, 206.977, 25.807, 0.76)
pt3dadd(36.972, 207.028, 25.807, 0.758)
pt3dadd(36.863, 207.078, 25.807, 0.756)
pt3dadd(36.764, 207.145, 25.807, 0.776)
pt3dadd(36.667, 207.216, 25.807, 0.804)
pt3dadd(36.571, 207.288, 25.807, 0.83)
pt3dadd(36.474, 207.359, 25.807, 0.858)
pt3dadd(36.377, 207.43, 25.807, 0.884)
pt3dadd(36.28, 207.5, 25.807, 0.912)
pt3dadd(36.184, 207.571, 25.807, 0.938)
pt3dadd(36.087, 207.642, 25.807, 0.966)
pt3dadd(35.99, 207.714, 25.807, 0.992)
pt3dadd(35.893, 207.785, 25.807, 1.02)
pt3dadd(35.812, 207.872, 25.807, 1.002)
pt3dadd(35.734, 207.962, 25.807, 0.974)
pt3dadd(35.655, 208.054, 25.807, 0.948)
pt3dadd(35.577, 208.145, 25.807, 0.922)
pt3dadd(35.499, 208.236, 25.807, 0.894)
pt3dadd(35.421, 208.327, 25.807, 0.868)
pt3dadd(35.342, 208.417, 25.807, 0.842)
pt3dadd(35.264, 208.508, 25.807, 0.814)
pt3dadd(35.186, 208.6, 25.807, 0.788)
pt3dadd(35.107, 208.691, 25.807, 0.762)
pt3dadd(35.043, 208.792, 25.807, 0.708)
pt3dadd(34.978, 208.892, 25.807, 0.654)
pt3dadd(34.914, 208.994, 25.807, 0.6)
pt3dadd(34.849, 209.095, 25.807, 0.548)
pt3dadd(34.785, 209.196, 25.807, 0.494)
pt3dadd(34.72, 209.298, 25.807, 0.44)
pt3dadd(34.656, 209.399, 25.807, 0.386)
pt3dadd(34.591, 209.5, 25.807, 0.334)
pt3dadd(34.526, 209.6, 25.807, 0.28)
pt3dadd(34.462, 209.702, 25.807, 0.226)
pt3dadd(34.393, 209.801, 25.807, 0.226)
pt3dadd(34.324, 209.899, 25.807, 0.226)
pt3dadd(34.255, 209.998, 25.807, 0.226)
pt3dadd(34.187, 210.095, 25.807, 0.226)
pt3dadd(34.118, 210.193, 25.807, 0.226)
pt3dadd(34.049, 210.292, 25.807, 0.226)
pt3dadd(33.98, 210.39, 25.807, 0.226)
pt3dadd(33.912, 210.488, 25.807, 0.226)
pt3dadd(33.843, 210.587, 25.807, 0.226)
pt3dadd(33.774, 210.685, 25.807, 0.226)
pt3dadd(33.705, 210.784, 25.807, 0.226)
pt3dadd(33.636, 210.882, 25.807, 0.226)
pt3dadd(33.567, 210.98, 25.807, 0.226)
pt3dadd(33.498, 211.079, 25.807, 0.226)
pt3dadd(33.43, 211.177, 25.807, 0.226)
pt3dadd(33.361, 211.274, 25.807, 0.226)
pt3dadd(33.292, 211.373, 25.807, 0.226)
pt3dadd(33.223, 211.471, 25.807, 0.226)
pt3dadd(33.154, 211.57, 25.807, 0.226)
pt3dadd(33.085, 211.668, 25.807, 0.226)
}
apic[18] {pt3dclear()
pt3dadd(113.12, 180.77, 20.596, 0.226)
pt3dadd(113.132, 180.817, 20.605, 0.234)
pt3dadd(113.159, 180.931, 20.627, 0.252)
pt3dadd(113.187, 181.045, 20.648, 0.272)
pt3dadd(113.215, 181.159, 20.67, 0.29)
pt3dadd(113.243, 181.272, 20.691, 0.308)
pt3dadd(113.271, 181.386, 20.713, 0.328)
pt3dadd(113.298, 181.5, 20.734, 0.346)
pt3dadd(113.326, 181.614, 20.756, 0.364)
pt3dadd(113.354, 181.728, 20.777, 0.384)
pt3dadd(113.382, 181.842, 20.799, 0.402)
pt3dadd(113.41, 181.956, 20.82, 0.422)
pt3dadd(113.437, 182.07, 20.842, 0.44)
pt3dadd(113.465, 182.183, 20.863, 0.458)
pt3dadd(113.493, 182.297, 20.885, 0.478)
pt3dadd(113.521, 182.411, 20.906, 0.496)
pt3dadd(113.549, 182.525, 20.928, 0.514)
pt3dadd(113.577, 182.639, 20.949, 0.534)
pt3dadd(113.605, 182.753, 20.971, 0.552)
pt3dadd(113.632, 182.867, 20.992, 0.572)
pt3dadd(113.66, 182.98, 21.014, 0.59)
pt3dadd(113.688, 183.094, 21.035, 0.608)
pt3dadd(113.716, 183.208, 21.057, 0.628)
pt3dadd(113.715, 183.317, 21.079, 0.648)
pt3dadd(113.653, 183.416, 21.101, 0.674)
pt3dadd(113.592, 183.516, 21.123, 0.698)
pt3dadd(113.531, 183.616, 21.145, 0.722)
pt3dadd(113.47, 183.716, 21.167, 0.748)
pt3dadd(113.408, 183.816, 21.189, 0.772)
pt3dadd(113.347, 183.916, 21.211, 0.798)
pt3dadd(113.286, 184.015, 21.233, 0.822)
pt3dadd(113.225, 184.115, 21.255, 0.848)
pt3dadd(113.163, 184.214, 21.277, 0.872)
pt3dadd(113.084, 184.302, 21.297, 0.896)
pt3dadd(113.006, 184.39, 21.317, 0.92)
pt3dadd(112.927, 184.477, 21.338, 0.944)
pt3dadd(112.849, 184.564, 21.358, 0.968)
pt3dadd(112.77, 184.651, 21.378, 0.994)
}
}
proc shape3d_71() {
apic[18] { pt3dadd(112.692, 184.739, 21.399, 1.018)
pt3dadd(112.614, 184.826, 21.419, 1.042)
pt3dadd(112.535, 184.914, 21.439, 1.066)
pt3dadd(112.457, 185.002, 21.459, 1.09)
pt3dadd(112.378, 185.089, 21.48, 1.112)
pt3dadd(112.315, 185.17, 21.533, 1.04)
pt3dadd(112.252, 185.25, 21.585, 0.968)
pt3dadd(112.189, 185.33, 21.637, 0.896)
pt3dadd(112.126, 185.411, 21.69, 0.824)
pt3dadd(112.063, 185.491, 21.742, 0.754)
pt3dadd(111.999, 185.572, 21.794, 0.682)
pt3dadd(111.936, 185.652, 21.846, 0.61)
pt3dadd(111.873, 185.732, 21.899, 0.538)
pt3dadd(111.81, 185.813, 21.951, 0.466)
pt3dadd(111.746, 185.893, 22.002, 0.4)
pt3dadd(111.679, 185.986, 22.034, 0.418)
pt3dadd(111.612, 186.077, 22.067, 0.436)
pt3dadd(111.545, 186.168, 22.099, 0.454)
pt3dadd(111.478, 186.26, 22.131, 0.472)
pt3dadd(111.411, 186.352, 22.164, 0.49)
pt3dadd(111.344, 186.443, 22.196, 0.508)
pt3dadd(111.276, 186.535, 22.228, 0.526)
pt3dadd(111.209, 186.626, 22.261, 0.544)
pt3dadd(111.142, 186.718, 22.293, 0.562)
pt3dadd(111.076, 186.811, 22.324, 0.582)
pt3dadd(111.015, 186.911, 22.346, 0.606)
pt3dadd(110.954, 187.01, 22.368, 0.63)
pt3dadd(110.893, 187.11, 22.39, 0.654)
pt3dadd(110.832, 187.211, 22.412, 0.68)
pt3dadd(110.771, 187.31, 22.434, 0.704)
pt3dadd(110.71, 187.41, 22.457, 0.728)
pt3dadd(110.649, 187.511, 22.479, 0.752)
pt3dadd(110.589, 187.61, 22.501, 0.778)
pt3dadd(110.528, 187.71, 22.523, 0.802)
pt3dadd(110.472, 187.813, 22.542, 0.812)
pt3dadd(110.431, 187.925, 22.554, 0.782)
pt3dadd(110.39, 188.036, 22.566, 0.752)
pt3dadd(110.349, 188.149, 22.578, 0.722)
pt3dadd(110.308, 188.261, 22.59, 0.692)
pt3dadd(110.267, 188.372, 22.602, 0.662)
pt3dadd(110.226, 188.484, 22.613, 0.63)
pt3dadd(110.185, 188.597, 22.625, 0.6)
pt3dadd(110.144, 188.708, 22.637, 0.57)
pt3dadd(110.103, 188.82, 22.649, 0.54)
pt3dadd(110.065, 188.933, 22.658, 0.52)
pt3dadd(110.033, 189.049, 22.661, 0.536)
pt3dadd(110.002, 189.164, 22.664, 0.552)
pt3dadd(109.971, 189.281, 22.667, 0.568)
pt3dadd(109.94, 189.396, 22.669, 0.584)
pt3dadd(109.908, 189.512, 22.672, 0.598)
pt3dadd(109.877, 189.628, 22.675, 0.614)
pt3dadd(109.846, 189.744, 22.678, 0.63)
pt3dadd(109.815, 189.859, 22.681, 0.646)
pt3dadd(109.783, 189.976, 22.683, 0.662)
pt3dadd(109.752, 190.091, 22.685, 0.678)
pt3dadd(109.72, 190.207, 22.686, 0.694)
pt3dadd(109.688, 190.322, 22.686, 0.71)
pt3dadd(109.656, 190.438, 22.686, 0.726)
pt3dadd(109.624, 190.554, 22.687, 0.742)
pt3dadd(109.592, 190.669, 22.687, 0.758)
pt3dadd(109.56, 190.784, 22.687, 0.774)
pt3dadd(109.528, 190.901, 22.688, 0.79)
pt3dadd(109.496, 191.016, 22.688, 0.806)
pt3dadd(109.464, 191.132, 22.688, 0.822)
pt3dadd(109.427, 191.246, 22.689, 0.822)
pt3dadd(109.379, 191.356, 22.69, 0.782)
pt3dadd(109.332, 191.466, 22.69, 0.742)
pt3dadd(109.284, 191.576, 22.691, 0.702)
pt3dadd(109.236, 191.686, 22.691, 0.662)
pt3dadd(109.188, 191.796, 22.692, 0.622)
pt3dadd(109.14, 191.906, 22.693, 0.584)
pt3dadd(109.092, 192.016, 22.693, 0.544)
pt3dadd(109.044, 192.126, 22.694, 0.504)
pt3dadd(108.996, 192.236, 22.694, 0.464)
pt3dadd(108.95, 192.347, 22.695, 0.436)
pt3dadd(108.907, 192.458, 22.696, 0.434)
pt3dadd(108.864, 192.571, 22.697, 0.432)
pt3dadd(108.821, 192.683, 22.698, 0.43)
pt3dadd(108.778, 192.794, 22.699, 0.43)
pt3dadd(108.735, 192.907, 22.7, 0.428)
pt3dadd(108.692, 193.019, 22.701, 0.426)
pt3dadd(108.649, 193.13, 22.702, 0.426)
pt3dadd(108.606, 193.243, 22.703, 0.424)
pt3dadd(108.563, 193.355, 22.704, 0.422)
pt3dadd(108.521, 193.468, 22.705, 0.434)
pt3dadd(108.484, 193.582, 22.706, 0.476)
pt3dadd(108.446, 193.696, 22.708, 0.516)
pt3dadd(108.408, 193.81, 22.709, 0.558)
pt3dadd(108.371, 193.924, 22.71, 0.6)
pt3dadd(108.333, 194.038, 22.712, 0.64)
pt3dadd(108.295, 194.152, 22.713, 0.682)
pt3dadd(108.258, 194.266, 22.714, 0.722)
pt3dadd(108.22, 194.378, 22.716, 0.764)
pt3dadd(108.182, 194.492, 22.717, 0.806)
pt3dadd(108.147, 194.608, 22.719, 0.826)
pt3dadd(108.116, 194.723, 22.722, 0.798)
pt3dadd(108.085, 194.839, 22.724, 0.77)
pt3dadd(108.054, 194.956, 22.727, 0.742)
pt3dadd(108.023, 195.071, 22.729, 0.714)
pt3dadd(107.992, 195.187, 22.732, 0.684)
pt3dadd(107.961, 195.302, 22.735, 0.656)
pt3dadd(107.93, 195.419, 22.737, 0.628)
pt3dadd(107.899, 195.534, 22.74, 0.6)
pt3dadd(107.868, 195.65, 22.742, 0.572)
pt3dadd(107.836, 195.766, 22.745, 0.544)
pt3dadd(107.801, 195.881, 22.749, 0.518)
pt3dadd(107.767, 195.996, 22.753, 0.49)
pt3dadd(107.732, 196.11, 22.757, 0.464)
pt3dadd(107.698, 196.225, 22.76, 0.438)
pt3dadd(107.663, 196.34, 22.764, 0.41)
pt3dadd(107.628, 196.454, 22.768, 0.384)
pt3dadd(107.594, 196.57, 22.771, 0.358)
pt3dadd(107.559, 196.685, 22.775, 0.33)
pt3dadd(107.525, 196.8, 22.779, 0.304)
pt3dadd(107.485, 196.913, 22.784, 0.296)
pt3dadd(107.435, 197.021, 22.79, 0.322)
pt3dadd(107.385, 197.13, 22.797, 0.348)
pt3dadd(107.335, 197.238, 22.803, 0.376)
pt3dadd(107.284, 197.347, 22.81, 0.402)
pt3dadd(107.234, 197.456, 22.816, 0.428)
pt3dadd(107.184, 197.564, 22.823, 0.456)
pt3dadd(107.134, 197.674, 22.83, 0.482)
pt3dadd(107.084, 197.782, 22.836, 0.508)
pt3dadd(107.034, 197.891, 22.843, 0.534)
pt3dadd(106.985, 198, 22.85, 0.556)
pt3dadd(106.938, 198.11, 22.86, 0.57)
pt3dadd(106.892, 198.221, 22.869, 0.582)
pt3dadd(106.846, 198.33, 22.878, 0.594)
pt3dadd(106.799, 198.44, 22.887, 0.608)
pt3dadd(106.753, 198.551, 22.896, 0.62)
pt3dadd(106.707, 198.661, 22.905, 0.632)
pt3dadd(106.66, 198.77, 22.915, 0.644)
pt3dadd(106.614, 198.881, 22.924, 0.658)
pt3dadd(106.568, 198.991, 22.933, 0.67)
pt3dadd(106.522, 199.102, 22.943, 0.678)
pt3dadd(106.479, 199.213, 22.954, 0.678)
pt3dadd(106.437, 199.324, 22.966, 0.678)
pt3dadd(106.394, 199.435, 22.977, 0.678)
pt3dadd(106.351, 199.547, 22.989, 0.678)
pt3dadd(106.308, 199.658, 23, 0.678)
pt3dadd(106.265, 199.769, 23.012, 0.678)
pt3dadd(106.222, 199.88, 23.023, 0.678)
pt3dadd(106.18, 199.992, 23.034, 0.678)
pt3dadd(106.137, 200.102, 23.046, 0.678)
pt3dadd(106.095, 200.212, 23.066, 0.682)
pt3dadd(106.055, 200.317, 23.101, 0.694)
pt3dadd(106.015, 200.422, 23.137, 0.706)
pt3dadd(105.975, 200.526, 23.172, 0.718)
pt3dadd(105.935, 200.632, 23.207, 0.73)
pt3dadd(105.895, 200.736, 23.243, 0.744)
pt3dadd(105.855, 200.84, 23.278, 0.756)
pt3dadd(105.814, 200.946, 23.314, 0.768)
pt3dadd(105.774, 201.05, 23.349, 0.78)
pt3dadd(105.734, 201.155, 23.385, 0.792)
pt3dadd(105.692, 201.259, 23.42, 0.8)
pt3dadd(105.645, 201.361, 23.455, 0.802)
pt3dadd(105.598, 201.463, 23.49, 0.804)
pt3dadd(105.552, 201.565, 23.525, 0.804)
pt3dadd(105.505, 201.667, 23.56, 0.806)
pt3dadd(105.458, 201.77, 23.596, 0.808)
pt3dadd(105.411, 201.872, 23.631, 0.81)
pt3dadd(105.365, 201.974, 23.666, 0.812)
pt3dadd(105.318, 202.076, 23.701, 0.812)
pt3dadd(105.271, 202.178, 23.736, 0.814)
pt3dadd(105.214, 202.277, 23.766, 0.798)
pt3dadd(105.144, 202.37, 23.789, 0.758)
pt3dadd(105.075, 202.464, 23.813, 0.72)
pt3dadd(105.006, 202.558, 23.837, 0.68)
pt3dadd(104.936, 202.651, 23.86, 0.642)
pt3dadd(104.867, 202.745, 23.884, 0.602)
pt3dadd(104.797, 202.838, 23.907, 0.562)
pt3dadd(104.728, 202.933, 23.931, 0.524)
pt3dadd(104.658, 203.027, 23.954, 0.484)
pt3dadd(104.589, 203.12, 23.978, 0.446)
pt3dadd(104.512, 203.208, 23.999, 0.416)
pt3dadd(104.425, 203.288, 24.018, 0.396)
pt3dadd(104.339, 203.369, 24.037, 0.374)
pt3dadd(104.253, 203.449, 24.055, 0.354)
pt3dadd(104.167, 203.53, 24.074, 0.334)
pt3dadd(104.081, 203.61, 24.093, 0.314)
pt3dadd(103.994, 203.69, 24.112, 0.294)
pt3dadd(103.908, 203.77, 24.13, 0.274)
pt3dadd(103.822, 203.85, 24.149, 0.254)
pt3dadd(103.736, 203.93, 24.168, 0.234)
pt3dadd(103.64, 204.001, 24.183, 0.226)
pt3dadd(103.54, 204.065, 24.196, 0.226)
pt3dadd(103.44, 204.128, 24.209, 0.226)
pt3dadd(103.339, 204.192, 24.223, 0.226)
pt3dadd(103.239, 204.256, 24.236, 0.226)
pt3dadd(103.138, 204.32, 24.249, 0.226)
pt3dadd(103.038, 204.384, 24.262, 0.226)
pt3dadd(102.938, 204.448, 24.275, 0.226)
pt3dadd(102.837, 204.511, 24.288, 0.226)
pt3dadd(102.737, 204.575, 24.302, 0.226)
pt3dadd(102.637, 204.641, 24.311, 0.226)
pt3dadd(102.537, 204.707, 24.318, 0.226)
pt3dadd(102.437, 204.773, 24.325, 0.226)
pt3dadd(102.337, 204.839, 24.332, 0.226)
pt3dadd(102.238, 204.905, 24.339, 0.226)
pt3dadd(102.138, 204.971, 24.347, 0.226)
}
}
proc shape3d_72() {
apic[18] { pt3dadd(102.038, 205.037, 24.354, 0.226)
pt3dadd(101.938, 205.103, 24.361, 0.226)
pt3dadd(101.838, 205.169, 24.368, 0.226)
pt3dadd(101.739, 205.235, 24.375, 0.226)
pt3dadd(101.639, 205.301, 24.381, 0.226)
pt3dadd(101.539, 205.368, 24.387, 0.226)
pt3dadd(101.44, 205.434, 24.393, 0.226)
pt3dadd(101.34, 205.501, 24.399, 0.226)
pt3dadd(101.241, 205.567, 24.405, 0.226)
pt3dadd(101.141, 205.634, 24.41, 0.226)
pt3dadd(101.041, 205.7, 24.416, 0.226)
pt3dadd(100.942, 205.768, 24.422, 0.226)
pt3dadd(100.842, 205.834, 24.428, 0.226)
pt3dadd(100.743, 205.901, 24.434, 0.226)
pt3dadd(100.645, 205.97, 24.442, 0.24)
pt3dadd(100.549, 206.041, 24.451, 0.262)
pt3dadd(100.453, 206.112, 24.46, 0.284)
pt3dadd(100.357, 206.183, 24.47, 0.306)
pt3dadd(100.261, 206.254, 24.479, 0.328)
pt3dadd(100.164, 206.324, 24.488, 0.35)
pt3dadd(100.068, 206.395, 24.497, 0.372)
pt3dadd(99.972, 206.466, 24.506, 0.394)
pt3dadd(99.876, 206.538, 24.515, 0.414)
pt3dadd(99.78, 206.609, 24.525, 0.436)
pt3dadd(99.684, 206.68, 24.534, 0.46)
pt3dadd(99.588, 206.75, 24.543, 0.482)
pt3dadd(99.492, 206.822, 24.553, 0.506)
pt3dadd(99.396, 206.893, 24.562, 0.528)
pt3dadd(99.3, 206.965, 24.571, 0.552)
pt3dadd(99.204, 207.036, 24.581, 0.574)
pt3dadd(99.109, 207.107, 24.59, 0.598)
pt3dadd(99.013, 207.179, 24.599, 0.622)
pt3dadd(98.917, 207.25, 24.609, 0.644)
pt3dadd(98.821, 207.322, 24.618, 0.668)
pt3dadd(98.722, 207.38, 24.643, 0.676)
pt3dadd(98.622, 207.433, 24.676, 0.676)
pt3dadd(98.522, 207.486, 24.709, 0.676)
pt3dadd(98.422, 207.54, 24.743, 0.676)
pt3dadd(98.322, 207.593, 24.776, 0.676)
pt3dadd(98.222, 207.646, 24.809, 0.678)
pt3dadd(98.122, 207.698, 24.843, 0.678)
pt3dadd(98.022, 207.751, 24.876, 0.678)
pt3dadd(97.922, 207.804, 24.909, 0.678)
pt3dadd(97.822, 207.857, 24.942, 0.678)
pt3dadd(97.722, 207.911, 24.975, 0.676)
pt3dadd(97.622, 207.965, 25.007, 0.674)
pt3dadd(97.522, 208.019, 25.039, 0.67)
pt3dadd(97.422, 208.072, 25.071, 0.668)
pt3dadd(97.322, 208.126, 25.103, 0.666)
pt3dadd(97.222, 208.18, 25.135, 0.662)
pt3dadd(97.122, 208.234, 25.167, 0.66)
pt3dadd(97.022, 208.288, 25.2, 0.658)
pt3dadd(96.922, 208.342, 25.232, 0.654)
pt3dadd(96.821, 208.396, 25.264, 0.652)
pt3dadd(96.722, 208.454, 25.288, 0.636)
pt3dadd(96.623, 208.518, 25.309, 0.612)
pt3dadd(96.523, 208.58, 25.33, 0.588)
pt3dadd(96.424, 208.643, 25.351, 0.564)
pt3dadd(96.325, 208.705, 25.371, 0.54)
pt3dadd(96.225, 208.768, 25.392, 0.516)
pt3dadd(96.126, 208.831, 25.413, 0.492)
pt3dadd(96.027, 208.894, 25.433, 0.468)
pt3dadd(95.928, 208.956, 25.454, 0.444)
pt3dadd(95.828, 209.018, 25.475, 0.42)
pt3dadd(95.728, 209.08, 25.494, 0.4)
pt3dadd(95.626, 209.141, 25.512, 0.38)
pt3dadd(95.525, 209.201, 25.531, 0.362)
pt3dadd(95.424, 209.261, 25.549, 0.344)
pt3dadd(95.322, 209.321, 25.568, 0.324)
pt3dadd(95.221, 209.382, 25.586, 0.306)
pt3dadd(95.12, 209.442, 25.605, 0.288)
pt3dadd(95.018, 209.502, 25.623, 0.27)
pt3dadd(94.917, 209.563, 25.642, 0.25)
pt3dadd(94.816, 209.623, 25.66, 0.232)
pt3dadd(94.71, 209.677, 25.673, 0.226)
pt3dadd(94.602, 209.729, 25.684, 0.226)
pt3dadd(94.495, 209.779, 25.694, 0.226)
pt3dadd(94.387, 209.831, 25.705, 0.226)
pt3dadd(94.279, 209.882, 25.715, 0.226)
pt3dadd(94.171, 209.933, 25.726, 0.226)
pt3dadd(94.063, 209.984, 25.737, 0.226)
pt3dadd(93.956, 210.036, 25.747, 0.226)
pt3dadd(93.848, 210.088, 25.758, 0.226)
pt3dadd(93.74, 210.138, 25.768, 0.226)
pt3dadd(93.636, 210.197, 25.776, 0.234)
pt3dadd(93.533, 210.257, 25.782, 0.244)
pt3dadd(93.429, 210.318, 25.788, 0.256)
pt3dadd(93.326, 210.379, 25.794, 0.268)
pt3dadd(93.223, 210.44, 25.8, 0.28)
pt3dadd(93.12, 210.502, 25.806, 0.29)
pt3dadd(93.017, 210.563, 25.813, 0.302)
pt3dadd(92.914, 210.623, 25.819, 0.314)
pt3dadd(92.811, 210.684, 25.825, 0.324)
pt3dadd(92.708, 210.745, 25.831, 0.336)
pt3dadd(92.609, 210.814, 25.833, 0.356)
pt3dadd(92.512, 210.884, 25.835, 0.38)
pt3dadd(92.415, 210.954, 25.836, 0.402)
pt3dadd(92.318, 211.025, 25.837, 0.426)
pt3dadd(92.221, 211.096, 25.838, 0.45)
pt3dadd(92.124, 211.166, 25.839, 0.474)
pt3dadd(92.027, 211.237, 25.841, 0.496)
pt3dadd(91.93, 211.308, 25.842, 0.52)
pt3dadd(91.833, 211.378, 25.843, 0.544)
pt3dadd(91.736, 211.448, 25.844, 0.566)
pt3dadd(91.641, 211.522, 25.846, 0.572)
pt3dadd(91.547, 211.596, 25.848, 0.57)
pt3dadd(91.452, 211.67, 25.85, 0.568)
pt3dadd(91.358, 211.745, 25.852, 0.566)
pt3dadd(91.264, 211.819, 25.853, 0.564)
pt3dadd(91.17, 211.892, 25.855, 0.562)
pt3dadd(91.075, 211.967, 25.857, 0.562)
pt3dadd(90.981, 212.041, 25.859, 0.56)
pt3dadd(90.887, 212.116, 25.861, 0.558)
pt3dadd(90.793, 212.19, 25.862, 0.556)
pt3dadd(90.7, 212.266, 25.865, 0.54)
pt3dadd(90.608, 212.344, 25.867, 0.516)
pt3dadd(90.516, 212.42, 25.869, 0.494)
pt3dadd(90.424, 212.497, 25.872, 0.472)
pt3dadd(90.332, 212.574, 25.874, 0.45)
pt3dadd(90.24, 212.651, 25.877, 0.428)
pt3dadd(90.148, 212.728, 25.879, 0.406)
pt3dadd(90.056, 212.806, 25.881, 0.384)
pt3dadd(89.964, 212.882, 25.883, 0.362)
pt3dadd(89.872, 212.959, 25.886, 0.34)
pt3dadd(89.781, 213.037, 25.889, 0.334)
pt3dadd(89.69, 213.115, 25.893, 0.334)
pt3dadd(89.599, 213.193, 25.898, 0.334)
pt3dadd(89.509, 213.272, 25.902, 0.336)
pt3dadd(89.418, 213.35, 25.905, 0.336)
pt3dadd(89.327, 213.428, 25.91, 0.336)
pt3dadd(89.236, 213.506, 25.914, 0.338)
pt3dadd(89.145, 213.586, 25.918, 0.338)
pt3dadd(89.055, 213.664, 25.922, 0.338)
pt3dadd(88.964, 213.742, 25.926, 0.338)
pt3dadd(88.874, 213.821, 25.931, 0.356)
pt3dadd(88.784, 213.9, 25.936, 0.376)
pt3dadd(88.694, 213.979, 25.942, 0.398)
pt3dadd(88.605, 214.06, 25.948, 0.42)
pt3dadd(88.515, 214.139, 25.953, 0.442)
pt3dadd(88.425, 214.218, 25.959, 0.464)
pt3dadd(88.335, 214.297, 25.964, 0.486)
pt3dadd(88.246, 214.376, 25.97, 0.508)
pt3dadd(88.156, 214.457, 25.975, 0.53)
pt3dadd(88.066, 214.536, 25.981, 0.552)
pt3dadd(87.975, 214.613, 25.988, 0.57)
pt3dadd(87.883, 214.69, 25.996, 0.588)
pt3dadd(87.791, 214.765, 26.003, 0.604)
pt3dadd(87.698, 214.842, 26.011, 0.622)
pt3dadd(87.606, 214.919, 26.018, 0.64)
pt3dadd(87.514, 214.994, 26.026, 0.656)
pt3dadd(87.422, 215.071, 26.034, 0.674)
pt3dadd(87.33, 215.148, 26.041, 0.69)
pt3dadd(87.238, 215.224, 26.049, 0.708)
pt3dadd(87.146, 215.3, 26.057, 0.726)
pt3dadd(87.052, 215.374, 26.066, 0.738)
pt3dadd(86.957, 215.446, 26.076, 0.75)
pt3dadd(86.862, 215.519, 26.086, 0.762)
pt3dadd(86.767, 215.591, 26.097, 0.772)
pt3dadd(86.672, 215.663, 26.107, 0.784)
pt3dadd(86.577, 215.736, 26.117, 0.796)
pt3dadd(86.482, 215.808, 26.127, 0.808)
pt3dadd(86.387, 215.88, 26.137, 0.818)
pt3dadd(86.292, 215.952, 26.147, 0.83)
pt3dadd(86.197, 216.025, 26.158, 0.842)
pt3dadd(86.098, 216.086, 26.178, 0.834)
pt3dadd(85.997, 216.145, 26.202, 0.82)
pt3dadd(85.896, 216.203, 26.227, 0.806)
pt3dadd(85.795, 216.262, 26.251, 0.792)
pt3dadd(85.694, 216.319, 26.275, 0.778)
pt3dadd(85.593, 216.377, 26.3, 0.764)
pt3dadd(85.493, 216.436, 26.324, 0.75)
pt3dadd(85.392, 216.493, 26.348, 0.736)
pt3dadd(85.291, 216.552, 26.372, 0.722)
pt3dadd(85.19, 216.61, 26.397, 0.708)
pt3dadd(85.087, 216.652, 26.434, 0.668)
pt3dadd(84.984, 216.691, 26.473, 0.628)
pt3dadd(84.881, 216.732, 26.511, 0.586)
pt3dadd(84.777, 216.773, 26.549, 0.546)
pt3dadd(84.674, 216.814, 26.588, 0.504)
pt3dadd(84.571, 216.853, 26.626, 0.464)
pt3dadd(84.468, 216.894, 26.664, 0.424)
pt3dadd(84.365, 216.935, 26.703, 0.382)
pt3dadd(84.262, 216.974, 26.741, 0.342)
pt3dadd(84.158, 217.015, 26.78, 0.3)
pt3dadd(84.046, 217.033, 26.81, 0.302)
pt3dadd(83.933, 217.05, 26.841, 0.304)
pt3dadd(83.82, 217.067, 26.871, 0.308)
pt3dadd(83.707, 217.084, 26.902, 0.31)
pt3dadd(83.594, 217.1, 26.932, 0.314)
pt3dadd(83.481, 217.117, 26.963, 0.316)
pt3dadd(83.368, 217.134, 26.993, 0.318)
pt3dadd(83.255, 217.151, 27.024, 0.322)
pt3dadd(83.142, 217.168, 27.054, 0.324)
pt3dadd(83.029, 217.184, 27.085, 0.328)
pt3dadd(82.914, 217.195, 27.114, 0.34)
pt3dadd(82.8, 217.207, 27.142, 0.352)
pt3dadd(82.685, 217.218, 27.171, 0.366)
pt3dadd(82.571, 217.23, 27.199, 0.378)
pt3dadd(82.456, 217.241, 27.228, 0.39)
pt3dadd(82.342, 217.253, 27.257, 0.402)
}
}
proc shape3d_73() {
apic[18] { pt3dadd(82.228, 217.264, 27.285, 0.414)
pt3dadd(82.113, 217.276, 27.314, 0.428)
pt3dadd(81.999, 217.286, 27.342, 0.44)
pt3dadd(81.884, 217.298, 27.371, 0.452)
}
apic[19] {pt3dclear()
pt3dadd(157.368, 138.667, 11.895, 2.938)
pt3dadd(157.189, 138.347, 10.837, 2.89)
pt3dadd(157.096, 138.418, 10.821, 2.822)
pt3dadd(157.001, 138.49, 10.806, 2.756)
pt3dadd(156.906, 138.56, 10.791, 2.69)
pt3dadd(156.812, 138.631, 10.776, 2.622)
pt3dadd(156.716, 138.702, 10.76, 2.556)
pt3dadd(156.623, 138.774, 10.745, 2.488)
pt3dadd(156.528, 138.845, 10.73, 2.422)
pt3dadd(156.433, 138.916, 10.714, 2.356)
pt3dadd(156.34, 138.989, 10.699, 2.288)
pt3dadd(156.245, 139.06, 10.684, 2.222)
pt3dadd(156.15, 139.13, 10.669, 2.156)
pt3dadd(156.055, 139.201, 10.653, 2.088)
pt3dadd(155.96, 139.273, 10.638, 2.022)
pt3dadd(155.867, 139.344, 10.623, 1.954)
pt3dadd(155.772, 139.415, 10.608, 1.888)
pt3dadd(155.677, 139.487, 10.592, 1.822)
pt3dadd(155.582, 139.558, 10.577, 1.754)
pt3dadd(155.488, 139.628, 10.562, 1.688)
pt3dadd(155.393, 139.699, 10.546, 1.62)
pt3dadd(155.298, 139.771, 10.531, 1.554)
pt3dadd(155.204, 139.842, 10.516, 1.488)
pt3dadd(155.094, 139.854, 10.497, 1.44)
pt3dadd(154.979, 139.84, 10.477, 1.404)
pt3dadd(154.862, 139.824, 10.456, 1.368)
pt3dadd(154.746, 139.807, 10.436, 1.332)
pt3dadd(154.631, 139.792, 10.415, 1.296)
pt3dadd(154.514, 139.777, 10.395, 1.26)
pt3dadd(154.398, 139.762, 10.374, 1.222)
pt3dadd(154.282, 139.746, 10.354, 1.186)
pt3dadd(154.165, 139.73, 10.333, 1.15)
pt3dadd(154.051, 139.71, 10.313, 1.116)
pt3dadd(153.94, 139.672, 10.292, 1.09)
pt3dadd(153.829, 139.634, 10.271, 1.064)
pt3dadd(153.718, 139.597, 10.25, 1.04)
pt3dadd(153.607, 139.559, 10.229, 1.014)
pt3dadd(153.496, 139.52, 10.208, 0.988)
pt3dadd(153.385, 139.483, 10.187, 0.962)
pt3dadd(153.275, 139.445, 10.166, 0.938)
pt3dadd(153.163, 139.406, 10.145, 0.912)
pt3dadd(153.054, 139.369, 10.124, 0.886)
pt3dadd(152.945, 139.326, 10.102, 0.864)
pt3dadd(152.843, 139.267, 10.081, 0.848)
pt3dadd(152.742, 139.208, 10.059, 0.83)
pt3dadd(152.64, 139.151, 10.037, 0.814)
pt3dadd(152.539, 139.092, 10.016, 0.798)
pt3dadd(152.437, 139.033, 9.994, 0.782)
pt3dadd(152.336, 138.974, 9.972, 0.766)
pt3dadd(152.234, 138.917, 9.951, 0.75)
pt3dadd(152.134, 138.858, 9.929, 0.734)
pt3dadd(152.032, 138.799, 9.907, 0.718)
pt3dadd(151.933, 138.743, 9.877, 0.704)
pt3dadd(151.842, 138.691, 9.823, 0.702)
pt3dadd(151.75, 138.638, 9.77, 0.7)
pt3dadd(151.66, 138.586, 9.716, 0.696)
pt3dadd(151.568, 138.534, 9.662, 0.694)
pt3dadd(151.477, 138.481, 9.608, 0.69)
pt3dadd(151.386, 138.43, 9.555, 0.688)
pt3dadd(151.294, 138.378, 9.501, 0.686)
pt3dadd(151.204, 138.325, 9.447, 0.682)
pt3dadd(151.111, 138.272, 9.393, 0.68)
pt3dadd(151.018, 138.223, 9.342, 0.678)
pt3dadd(150.919, 138.181, 9.293, 0.678)
pt3dadd(150.82, 138.138, 9.245, 0.678)
pt3dadd(150.721, 138.094, 9.197, 0.678)
pt3dadd(150.622, 138.052, 9.148, 0.678)
pt3dadd(150.523, 138.008, 9.1, 0.678)
pt3dadd(150.425, 137.964, 9.051, 0.678)
pt3dadd(150.324, 137.921, 9.003, 0.678)
pt3dadd(150.226, 137.879, 8.955, 0.678)
pt3dadd(150.126, 137.836, 8.906, 0.678)
pt3dadd(150.025, 137.791, 8.864, 0.68)
pt3dadd(149.921, 137.748, 8.829, 0.684)
pt3dadd(149.815, 137.704, 8.794, 0.688)
pt3dadd(149.711, 137.659, 8.759, 0.692)
pt3dadd(149.605, 137.616, 8.724, 0.698)
pt3dadd(149.501, 137.572, 8.689, 0.702)
pt3dadd(149.395, 137.527, 8.654, 0.706)
pt3dadd(149.291, 137.483, 8.619, 0.71)
pt3dadd(149.186, 137.44, 8.584, 0.714)
pt3dadd(149.081, 137.394, 8.549, 0.718)
pt3dadd(148.979, 137.342, 8.521, 0.728)
pt3dadd(148.876, 137.286, 8.498, 0.744)
pt3dadd(148.775, 137.227, 8.476, 0.758)
pt3dadd(148.674, 137.168, 8.453, 0.772)
pt3dadd(148.572, 137.111, 8.431, 0.786)
pt3dadd(148.471, 137.053, 8.409, 0.8)
pt3dadd(148.368, 136.994, 8.386, 0.816)
pt3dadd(148.267, 136.936, 8.363, 0.83)
pt3dadd(148.165, 136.879, 8.341, 0.844)
pt3dadd(148.064, 136.82, 8.319, 0.858)
pt3dadd(147.96, 136.766, 8.299, 0.868)
pt3dadd(147.853, 136.717, 8.281, 0.872)
pt3dadd(147.746, 136.668, 8.264, 0.876)
pt3dadd(147.64, 136.618, 8.246, 0.88)
pt3dadd(147.533, 136.568, 8.229, 0.882)
pt3dadd(147.427, 136.519, 8.211, 0.886)
pt3dadd(147.32, 136.47, 8.194, 0.89)
pt3dadd(147.214, 136.42, 8.176, 0.894)
pt3dadd(147.107, 136.369, 8.159, 0.898)
pt3dadd(147, 136.321, 8.142, 0.902)
pt3dadd(146.893, 136.271, 8.125, 0.906)
pt3dadd(146.786, 136.222, 8.108, 0.908)
pt3dadd(146.68, 136.172, 8.092, 0.91)
pt3dadd(146.573, 136.123, 8.076, 0.912)
pt3dadd(146.466, 136.073, 8.059, 0.914)
pt3dadd(146.358, 136.024, 8.043, 0.916)
pt3dadd(146.252, 135.974, 8.027, 0.918)
pt3dadd(146.146, 135.925, 8.011, 0.92)
pt3dadd(146.038, 135.875, 7.994, 0.922)
pt3dadd(145.932, 135.827, 7.978, 0.924)
pt3dadd(145.83, 135.768, 7.959, 0.932)
pt3dadd(145.733, 135.702, 7.94, 0.946)
pt3dadd(145.636, 135.636, 7.92, 0.96)
pt3dadd(145.537, 135.571, 7.9, 0.974)
pt3dadd(145.441, 135.505, 7.88, 0.986)
pt3dadd(145.343, 135.439, 7.86, 1)
pt3dadd(145.246, 135.374, 7.84, 1.014)
pt3dadd(145.147, 135.308, 7.82, 1.028)
pt3dadd(145.05, 135.244, 7.8, 1.04)
pt3dadd(144.954, 135.178, 7.78, 1.054)
pt3dadd(144.858, 135.115, 7.749, 1.05)
pt3dadd(144.764, 135.053, 7.709, 1.03)
pt3dadd(144.67, 134.992, 7.669, 1.01)
pt3dadd(144.576, 134.93, 7.629, 0.992)
pt3dadd(144.484, 134.869, 7.589, 0.972)
pt3dadd(144.389, 134.808, 7.55, 0.954)
pt3dadd(144.295, 134.746, 7.51, 0.934)
pt3dadd(144.2, 134.686, 7.47, 0.916)
pt3dadd(144.108, 134.623, 7.43, 0.896)
pt3dadd(144.014, 134.562, 7.391, 0.876)
pt3dadd(143.924, 134.504, 7.339, 0.85)
pt3dadd(143.838, 134.448, 7.283, 0.82)
pt3dadd(143.749, 134.39, 7.228, 0.79)
pt3dadd(143.663, 134.333, 7.173, 0.76)
pt3dadd(143.575, 134.278, 7.118, 0.73)
pt3dadd(143.488, 134.22, 7.063, 0.7)
pt3dadd(143.401, 134.162, 7.008, 0.67)
pt3dadd(143.314, 134.107, 6.952, 0.642)
pt3dadd(143.226, 134.05, 6.897, 0.612)
pt3dadd(143.138, 133.993, 6.842, 0.582)
pt3dadd(143.047, 133.927, 6.801, 0.628)
pt3dadd(142.956, 133.862, 6.764, 0.688)
pt3dadd(142.864, 133.796, 6.726, 0.748)
pt3dadd(142.772, 133.73, 6.688, 0.808)
pt3dadd(142.68, 133.664, 6.651, 0.87)
pt3dadd(142.59, 133.598, 6.613, 0.93)
pt3dadd(142.498, 133.532, 6.575, 0.99)
pt3dadd(142.406, 133.466, 6.537, 1.05)
pt3dadd(142.315, 133.4, 6.5, 1.11)
pt3dadd(142.223, 133.334, 6.462, 1.17)
pt3dadd(142.12, 133.285, 6.429, 1.186)
pt3dadd(142.013, 133.242, 6.397, 1.192)
pt3dadd(141.908, 133.196, 6.365, 1.2)
pt3dadd(141.803, 133.151, 6.333, 1.206)
pt3dadd(141.697, 133.106, 6.301, 1.212)
pt3dadd(141.592, 133.062, 6.27, 1.22)
pt3dadd(141.485, 133.016, 6.238, 1.226)
pt3dadd(141.38, 132.972, 6.206, 1.234)
pt3dadd(141.275, 132.928, 6.174, 1.24)
pt3dadd(141.169, 132.882, 6.142, 1.246)
pt3dadd(141.059, 132.848, 6.114, 1.232)
pt3dadd(140.947, 132.817, 6.087, 1.218)
pt3dadd(140.836, 132.784, 6.059, 1.202)
pt3dadd(140.724, 132.751, 6.031, 1.188)
pt3dadd(140.614, 132.718, 6.004, 1.172)
pt3dadd(140.503, 132.686, 5.976, 1.156)
pt3dadd(140.392, 132.653, 5.948, 1.142)
pt3dadd(140.281, 132.62, 5.921, 1.126)
pt3dadd(140.168, 132.588, 5.893, 1.112)
pt3dadd(140.058, 132.556, 5.866, 1.096)
pt3dadd(139.944, 132.532, 5.842, 1.082)
pt3dadd(139.829, 132.508, 5.82, 1.068)
pt3dadd(139.715, 132.486, 5.797, 1.052)
pt3dadd(139.6, 132.462, 5.774, 1.038)
pt3dadd(139.486, 132.439, 5.751, 1.024)
pt3dadd(139.37, 132.416, 5.728, 1.01)
pt3dadd(139.256, 132.394, 5.706, 0.996)
pt3dadd(139.142, 132.37, 5.683, 0.98)
pt3dadd(139.027, 132.347, 5.66, 0.966)
pt3dadd(138.913, 132.324, 5.637, 0.952)
pt3dadd(138.804, 132.305, 5.595, 0.974)
pt3dadd(138.696, 132.286, 5.551, 0.996)
pt3dadd(138.587, 132.268, 5.508, 1.02)
pt3dadd(138.478, 132.248, 5.464, 1.042)
pt3dadd(138.37, 132.229, 5.42, 1.066)
pt3dadd(138.26, 132.211, 5.377, 1.09)
pt3dadd(138.152, 132.193, 5.333, 1.114)
pt3dadd(138.043, 132.174, 5.289, 1.136)
pt3dadd(138.044, 132.174, 5.281, 1.136)
pt3dadd(137.936, 132.156, 5.238, 1.16)
pt3dadd(137.827, 132.137, 5.193, 1.184)
pt3dadd(137.724, 132.119, 5.14, 1.224)
pt3dadd(137.62, 132.102, 5.088, 1.264)
pt3dadd(137.515, 132.085, 5.035, 1.304)
}
}
proc shape3d_74() {
apic[19] { pt3dadd(137.412, 132.068, 4.982, 1.342)
pt3dadd(137.308, 132.05, 4.929, 1.382)
pt3dadd(137.203, 132.034, 4.876, 1.422)
pt3dadd(137.099, 132.017, 4.823, 1.462)
pt3dadd(136.996, 131.999, 4.771, 1.502)
pt3dadd(136.891, 131.981, 4.718, 1.542)
pt3dadd(136.787, 131.962, 4.666, 1.578)
pt3dadd(136.69, 131.909, 4.623, 1.564)
pt3dadd(136.591, 131.856, 4.581, 1.55)
pt3dadd(136.494, 131.804, 4.538, 1.536)
pt3dadd(136.396, 131.752, 4.496, 1.522)
pt3dadd(136.298, 131.699, 4.454, 1.51)
pt3dadd(136.202, 131.645, 4.411, 1.496)
pt3dadd(136.104, 131.593, 4.369, 1.482)
pt3dadd(136.007, 131.54, 4.326, 1.468)
pt3dadd(135.908, 131.488, 4.284, 1.454)
pt3dadd(135.811, 131.436, 4.241, 1.442)
pt3dadd(135.719, 131.383, 4.189, 1.44)
pt3dadd(135.626, 131.33, 4.137, 1.438)
pt3dadd(135.534, 131.278, 4.085, 1.434)
pt3dadd(135.44, 131.226, 4.033, 1.432)
pt3dadd(135.349, 131.174, 3.981, 1.43)
pt3dadd(135.257, 131.122, 3.93, 1.426)
pt3dadd(135.163, 131.07, 3.878, 1.424)
pt3dadd(135.072, 131.017, 3.826, 1.422)
pt3dadd(134.978, 130.964, 3.774, 1.418)
pt3dadd(134.888, 130.913, 3.72, 1.42)
pt3dadd(134.807, 130.864, 3.652, 1.436)
pt3dadd(134.726, 130.813, 3.585, 1.452)
pt3dadd(134.646, 130.763, 3.518, 1.468)
pt3dadd(134.564, 130.714, 3.451, 1.484)
pt3dadd(134.483, 130.663, 3.384, 1.502)
pt3dadd(134.401, 130.613, 3.317, 1.518)
pt3dadd(134.321, 130.562, 3.25, 1.534)
pt3dadd(134.24, 130.513, 3.182, 1.55)
pt3dadd(134.159, 130.463, 3.115, 1.568)
pt3dadd(134.076, 130.41, 3.054, 1.576)
pt3dadd(133.981, 130.346, 3.019, 1.544)
pt3dadd(133.888, 130.282, 2.985, 1.514)
pt3dadd(133.793, 130.217, 2.95, 1.484)
pt3dadd(133.7, 130.152, 2.916, 1.452)
pt3dadd(133.607, 130.087, 2.881, 1.422)
pt3dadd(133.512, 130.022, 2.847, 1.392)
pt3dadd(133.418, 129.958, 2.812, 1.36)
pt3dadd(133.42, 129.959, 2.804, 1.36)
pt3dadd(133.422, 129.959, 2.796, 1.36)
pt3dadd(133.424, 129.959, 2.788, 1.36)
pt3dadd(133.426, 129.96, 2.779, 1.36)
pt3dadd(133.332, 129.894, 2.745, 1.33)
pt3dadd(133.237, 129.829, 2.71, 1.3)
pt3dadd(133.142, 129.767, 2.677, 1.272)
pt3dadd(133.037, 129.72, 2.65, 1.258)
pt3dadd(132.931, 129.672, 2.622, 1.242)
pt3dadd(132.826, 129.624, 2.595, 1.228)
pt3dadd(132.72, 129.576, 2.568, 1.214)
pt3dadd(132.614, 129.528, 2.54, 1.198)
pt3dadd(132.509, 129.48, 2.513, 1.184)
pt3dadd(132.403, 129.432, 2.486, 1.17)
pt3dadd(132.298, 129.385, 2.458, 1.154)
pt3dadd(132.192, 129.336, 2.431, 1.14)
pt3dadd(132.084, 129.294, 2.406, 1.128)
pt3dadd(131.97, 129.265, 2.387, 1.126)
pt3dadd(131.857, 129.234, 2.367, 1.122)
pt3dadd(131.744, 129.204, 2.348, 1.12)
pt3dadd(131.63, 129.173, 2.329, 1.116)
pt3dadd(131.518, 129.144, 2.309, 1.112)
pt3dadd(131.404, 129.114, 2.29, 1.11)
pt3dadd(131.291, 129.083, 2.27, 1.106)
pt3dadd(131.177, 129.054, 2.251, 1.102)
pt3dadd(131.063, 129.024, 2.231, 1.1)
pt3dadd(130.949, 128.999, 2.216, 1.082)
pt3dadd(130.831, 128.986, 2.207, 1.04)
pt3dadd(130.714, 128.974, 2.199, 0.996)
pt3dadd(130.596, 128.96, 2.19, 0.954)
pt3dadd(130.48, 128.947, 2.182, 0.91)
pt3dadd(130.362, 128.935, 2.173, 0.868)
pt3dadd(130.244, 128.922, 2.165, 0.824)
pt3dadd(130.128, 128.909, 2.156, 0.782)
pt3dadd(130.009, 128.894, 2.148, 0.738)
pt3dadd(129.893, 128.882, 2.139, 0.696)
pt3dadd(129.774, 128.872, 2.131, 0.656)
pt3dadd(129.656, 128.866, 2.122, 0.628)
pt3dadd(129.54, 128.86, 2.114, 0.6)
pt3dadd(129.421, 128.854, 2.105, 0.57)
pt3dadd(129.304, 128.846, 2.097, 0.542)
pt3dadd(129.185, 128.84, 2.088, 0.514)
pt3dadd(129.067, 128.834, 2.08, 0.484)
pt3dadd(128.95, 128.828, 2.071, 0.456)
pt3dadd(128.831, 128.821, 2.063, 0.426)
pt3dadd(128.714, 128.816, 2.054, 0.398)
pt3dadd(128.596, 128.812, 2.046, 0.374)
pt3dadd(128.478, 128.812, 2.037, 0.36)
pt3dadd(128.36, 128.812, 2.029, 0.346)
pt3dadd(128.242, 128.813, 2.02, 0.332)
pt3dadd(128.124, 128.813, 2.011, 0.316)
pt3dadd(128.005, 128.813, 2.003, 0.302)
pt3dadd(127.888, 128.814, 1.994, 0.288)
pt3dadd(127.769, 128.814, 1.985, 0.274)
pt3dadd(127.651, 128.814, 1.977, 0.258)
pt3dadd(127.654, 128.814, 1.969, 0.258)
pt3dadd(127.535, 128.815, 1.96, 0.244)
pt3dadd(127.417, 128.815, 1.951, 0.234)
pt3dadd(127.298, 128.815, 1.942, 0.234)
pt3dadd(127.301, 128.816, 1.934, 0.234)
pt3dadd(127.183, 128.816, 1.925, 0.234)
pt3dadd(127.064, 128.816, 1.916, 0.232)
pt3dadd(126.947, 128.816, 1.907, 0.232)
pt3dadd(126.828, 128.818, 1.898, 0.23)
pt3dadd(126.71, 128.818, 1.889, 0.23)
pt3dadd(126.592, 128.818, 1.88, 0.228)
pt3dadd(126.474, 128.819, 1.872, 0.228)
pt3dadd(126.356, 128.819, 1.863, 0.226)
pt3dadd(126.238, 128.819, 1.854, 0.228)
pt3dadd(126.12, 128.819, 1.844, 0.234)
pt3dadd(126.121, 128.82, 1.836, 0.234)
pt3dadd(126.004, 128.82, 1.827, 0.238)
pt3dadd(125.886, 128.82, 1.818, 0.244)
pt3dadd(125.767, 128.821, 1.808, 0.25)
pt3dadd(125.65, 128.821, 1.799, 0.254)
pt3dadd(125.531, 128.821, 1.79, 0.26)
pt3dadd(125.413, 128.821, 1.781, 0.266)
pt3dadd(125.296, 128.822, 1.771, 0.272)
pt3dadd(125.177, 128.822, 1.762, 0.276)
pt3dadd(125.059, 128.822, 1.753, 0.286)
pt3dadd(124.94, 128.824, 1.743, 0.3)
pt3dadd(124.823, 128.824, 1.733, 0.314)
pt3dadd(124.704, 128.824, 1.724, 0.328)
pt3dadd(124.586, 128.825, 1.714, 0.342)
pt3dadd(124.469, 128.825, 1.704, 0.358)
pt3dadd(124.35, 128.825, 1.694, 0.372)
pt3dadd(124.232, 128.825, 1.685, 0.386)
pt3dadd(124.114, 128.826, 1.675, 0.4)
pt3dadd(123.996, 128.826, 1.665, 0.416)
pt3dadd(123.878, 128.826, 1.655, 0.422)
pt3dadd(123.76, 128.827, 1.644, 0.412)
pt3dadd(123.642, 128.827, 1.634, 0.404)
pt3dadd(123.523, 128.827, 1.623, 0.394)
}
apic[20] {pt3dclear()
pt3dadd(123.523, 128.827, 1.623, 0.394)
pt3dadd(123.407, 128.831, 1.622, 0.386)
pt3dadd(123.289, 128.836, 1.621, 0.376)
pt3dadd(123.173, 128.839, 1.62, 0.368)
pt3dadd(123.055, 128.843, 1.62, 0.358)
pt3dadd(122.939, 128.848, 1.619, 0.35)
pt3dadd(122.821, 128.851, 1.618, 0.34)
pt3dadd(122.705, 128.855, 1.617, 0.332)
pt3dadd(122.587, 128.86, 1.615, 0.324)
pt3dadd(122.471, 128.863, 1.613, 0.318)
pt3dadd(122.353, 128.867, 1.611, 0.31)
pt3dadd(122.238, 128.872, 1.609, 0.302)
pt3dadd(122.12, 128.875, 1.607, 0.296)
pt3dadd(122.004, 128.879, 1.605, 0.288)
pt3dadd(121.886, 128.884, 1.603, 0.28)
pt3dadd(121.77, 128.887, 1.601, 0.274)
pt3dadd(121.652, 128.891, 1.599, 0.266)
pt3dadd(121.536, 128.894, 1.595, 0.266)
pt3dadd(121.418, 128.899, 1.59, 0.28)
pt3dadd(121.302, 128.903, 1.585, 0.296)
pt3dadd(121.186, 128.906, 1.58, 0.31)
pt3dadd(121.069, 128.911, 1.575, 0.324)
pt3dadd(120.952, 128.915, 1.57, 0.338)
pt3dadd(120.835, 128.918, 1.564, 0.354)
pt3dadd(120.719, 128.923, 1.559, 0.368)
pt3dadd(120.602, 128.927, 1.554, 0.382)
pt3dadd(120.485, 128.93, 1.549, 0.396)
pt3dadd(120.368, 128.935, 1.543, 0.408)
pt3dadd(120.252, 128.939, 1.535, 0.412)
pt3dadd(120.136, 128.942, 1.526, 0.416)
pt3dadd(120.019, 128.947, 1.518, 0.422)
pt3dadd(119.903, 128.951, 1.51, 0.426)
pt3dadd(119.787, 128.954, 1.502, 0.43)
pt3dadd(119.67, 128.959, 1.494, 0.436)
pt3dadd(119.554, 128.963, 1.486, 0.44)
pt3dadd(119.437, 128.966, 1.477, 0.444)
pt3dadd(119.321, 128.971, 1.469, 0.45)
pt3dadd(119.205, 128.975, 1.46, 0.452)
pt3dadd(119.089, 128.978, 1.447, 0.456)
pt3dadd(118.973, 128.982, 1.435, 0.458)
pt3dadd(118.976, 128.987, 1.437, 0.458)
pt3dadd(118.86, 128.99, 1.424, 0.462)
pt3dadd(118.744, 128.994, 1.412, 0.464)
pt3dadd(118.629, 128.999, 1.4, 0.466)
pt3dadd(118.513, 129.002, 1.387, 0.47)
pt3dadd(118.397, 129.006, 1.375, 0.472)
pt3dadd(118.281, 129.011, 1.363, 0.476)
pt3dadd(118.165, 129.014, 1.35, 0.478)
pt3dadd(118.052, 129.018, 1.329, 0.49)
pt3dadd(117.944, 129.023, 1.294, 0.516)
pt3dadd(117.835, 129.026, 1.259, 0.544)
pt3dadd(117.727, 129.03, 1.224, 0.57)
pt3dadd(117.618, 129.035, 1.189, 0.598)
pt3dadd(117.51, 129.04, 1.154, 0.624)
pt3dadd(117.401, 129.043, 1.118, 0.652)
pt3dadd(117.293, 129.048, 1.083, 0.678)
pt3dadd(117.296, 129.052, 1.085, 0.678)
pt3dadd(117.299, 129.055, 1.087, 0.678)
pt3dadd(117.302, 129.06, 1.089, 0.678)
pt3dadd(117.305, 129.064, 1.091, 0.678)
pt3dadd(117.308, 129.067, 1.092, 0.678)
pt3dadd(117.311, 129.071, 1.094, 0.678)
pt3dadd(117.314, 129.076, 1.096, 0.678)
}
}
proc shape3d_75() {
apic[20] { pt3dadd(117.317, 129.079, 1.098, 0.678)
pt3dadd(117.32, 129.083, 1.1, 0.678)
pt3dadd(117.323, 129.088, 1.101, 0.678)
pt3dadd(117.326, 129.091, 1.103, 0.678)
pt3dadd(117.329, 129.095, 1.105, 0.678)
pt3dadd(117.332, 129.1, 1.107, 0.678)
pt3dadd(117.335, 129.103, 1.109, 0.678)
pt3dadd(117.226, 129.107, 1.073, 0.704)
pt3dadd(117.117, 129.112, 1.038, 0.732)
pt3dadd(117.008, 129.115, 1.005, 0.748)
pt3dadd(116.897, 129.119, 0.976, 0.746)
pt3dadd(116.786, 129.124, 0.946, 0.744)
pt3dadd(116.675, 129.127, 0.917, 0.742)
pt3dadd(116.564, 129.131, 0.887, 0.74)
pt3dadd(116.453, 129.136, 0.858, 0.736)
pt3dadd(116.342, 129.139, 0.828, 0.734)
pt3dadd(116.231, 129.143, 0.799, 0.732)
pt3dadd(116.12, 129.148, 0.769, 0.73)
pt3dadd(116.01, 129.151, 0.74, 0.728)
pt3dadd(115.897, 129.155, 0.713, 0.71)
pt3dadd(115.784, 129.158, 0.692, 0.668)
pt3dadd(115.67, 129.163, 0.67, 0.626)
pt3dadd(115.556, 129.167, 0.649, 0.584)
pt3dadd(115.443, 129.17, 0.627, 0.54)
pt3dadd(115.329, 129.175, 0.605, 0.498)
pt3dadd(115.215, 129.179, 0.584, 0.456)
pt3dadd(115.102, 129.182, 0.562, 0.414)
pt3dadd(114.988, 129.187, 0.541, 0.372)
pt3dadd(114.874, 129.191, 0.519, 0.33)
pt3dadd(114.76, 129.194, 0.502, 0.302)
pt3dadd(114.643, 129.199, 0.492, 0.294)
pt3dadd(114.527, 129.203, 0.481, 0.286)
pt3dadd(114.411, 129.206, 0.471, 0.278)
pt3dadd(114.295, 129.211, 0.46, 0.27)
pt3dadd(114.179, 129.216, 0.45, 0.262)
pt3dadd(114.063, 129.22, 0.439, 0.254)
pt3dadd(113.947, 129.224, 0.429, 0.246)
pt3dadd(113.831, 129.228, 0.418, 0.238)
pt3dadd(113.715, 129.232, 0.408, 0.23)
pt3dadd(113.598, 129.236, 0.4, 0.226)
pt3dadd(113.481, 129.24, 0.395, 0.226)
pt3dadd(113.484, 129.244, 0.397, 0.226)
pt3dadd(113.368, 129.247, 0.392, 0.226)
pt3dadd(113.251, 129.252, 0.387, 0.226)
pt3dadd(113.134, 129.256, 0.382, 0.226)
pt3dadd(113.017, 129.259, 0.377, 0.226)
pt3dadd(112.901, 129.264, 0.373, 0.226)
pt3dadd(112.784, 129.268, 0.368, 0.226)
pt3dadd(112.667, 129.271, 0.363, 0.226)
pt3dadd(112.551, 129.276, 0.358, 0.226)
pt3dadd(112.434, 129.28, 0.357, 0.226)
pt3dadd(112.317, 129.283, 0.362, 0.226)
pt3dadd(112.2, 129.288, 0.367, 0.226)
pt3dadd(112.083, 129.293, 0.371, 0.226)
pt3dadd(111.966, 129.296, 0.376, 0.226)
pt3dadd(111.969, 129.301, 0.378, 0.226)
pt3dadd(111.972, 129.305, 0.38, 0.226)
pt3dadd(111.975, 129.308, 0.381, 0.226)
pt3dadd(111.978, 129.313, 0.383, 0.226)
pt3dadd(111.981, 129.317, 0.385, 0.226)
pt3dadd(111.984, 129.32, 0.387, 0.226)
pt3dadd(111.987, 129.325, 0.389, 0.226)
pt3dadd(111.99, 129.329, 0.39, 0.226)
pt3dadd(111.993, 129.332, 0.392, 0.226)
pt3dadd(111.996, 129.336, 0.394, 0.226)
pt3dadd(111.999, 129.341, 0.396, 0.226)
pt3dadd(112.002, 129.344, 0.398, 0.226)
pt3dadd(112.005, 129.348, 0.399, 0.226)
pt3dadd(112.008, 129.353, 0.401, 0.226)
pt3dadd(112.011, 129.356, 0.403, 0.226)
pt3dadd(112.014, 129.36, 0.405, 0.226)
pt3dadd(112.017, 129.365, 0.407, 0.226)
pt3dadd(112.02, 129.368, 0.408, 0.226)
pt3dadd(112.023, 129.372, 0.41, 0.226)
pt3dadd(112.026, 129.377, 0.412, 0.226)
pt3dadd(112.029, 129.38, 0.414, 0.226)
pt3dadd(112.032, 129.384, 0.416, 0.226)
pt3dadd(112.035, 129.389, 0.417, 0.226)
pt3dadd(112.038, 129.392, 0.419, 0.226)
pt3dadd(112.041, 129.396, 0.421, 0.226)
pt3dadd(111.924, 129.401, 0.426, 0.226)
pt3dadd(111.807, 129.404, 0.43, 0.226)
pt3dadd(111.69, 129.408, 0.435, 0.226)
pt3dadd(111.573, 129.414, 0.44, 0.226)
pt3dadd(111.456, 129.418, 0.444, 0.226)
pt3dadd(111.459, 129.421, 0.446, 0.226)
pt3dadd(111.342, 129.425, 0.452, 0.234)
pt3dadd(111.225, 129.43, 0.46, 0.254)
pt3dadd(111.108, 129.434, 0.467, 0.274)
pt3dadd(110.991, 129.438, 0.475, 0.294)
pt3dadd(110.875, 129.443, 0.482, 0.312)
pt3dadd(110.758, 129.448, 0.49, 0.332)
pt3dadd(110.641, 129.451, 0.497, 0.352)
pt3dadd(110.524, 129.456, 0.504, 0.37)
pt3dadd(110.407, 129.461, 0.512, 0.39)
pt3dadd(110.29, 129.464, 0.519, 0.41)
pt3dadd(110.174, 129.469, 0.528, 0.432)
pt3dadd(110.057, 129.474, 0.537, 0.46)
pt3dadd(109.94, 129.478, 0.546, 0.488)
pt3dadd(109.824, 129.482, 0.556, 0.514)
pt3dadd(109.707, 129.487, 0.565, 0.542)
pt3dadd(109.59, 129.491, 0.574, 0.57)
pt3dadd(109.474, 129.497, 0.584, 0.596)
pt3dadd(109.357, 129.5, 0.593, 0.624)
pt3dadd(109.24, 129.504, 0.602, 0.65)
pt3dadd(109.124, 129.51, 0.611, 0.678)
pt3dadd(109.007, 129.514, 0.623, 0.7)
pt3dadd(108.891, 129.518, 0.636, 0.714)
pt3dadd(108.775, 129.523, 0.649, 0.728)
pt3dadd(108.659, 129.528, 0.663, 0.742)
pt3dadd(108.543, 129.533, 0.676, 0.758)
pt3dadd(108.426, 129.538, 0.689, 0.772)
pt3dadd(108.31, 129.544, 0.703, 0.786)
pt3dadd(108.194, 129.547, 0.716, 0.8)
pt3dadd(108.078, 129.552, 0.73, 0.814)
pt3dadd(107.961, 129.558, 0.743, 0.828)
pt3dadd(107.847, 129.563, 0.762, 0.836)
pt3dadd(107.734, 129.568, 0.79, 0.836)
pt3dadd(107.62, 129.574, 0.817, 0.836)
pt3dadd(107.507, 129.578, 0.844, 0.836)
pt3dadd(107.394, 129.583, 0.871, 0.834)
pt3dadd(107.281, 129.589, 0.899, 0.834)
pt3dadd(107.168, 129.594, 0.926, 0.834)
pt3dadd(107.055, 129.599, 0.953, 0.834)
pt3dadd(106.942, 129.605, 0.98, 0.834)
pt3dadd(106.829, 129.61, 1.007, 0.832)
pt3dadd(106.719, 129.616, 1.041, 0.826)
pt3dadd(106.61, 129.622, 1.08, 0.812)
pt3dadd(106.502, 129.628, 1.119, 0.798)
pt3dadd(106.393, 129.632, 1.158, 0.786)
pt3dadd(106.285, 129.637, 1.197, 0.772)
pt3dadd(106.176, 129.644, 1.236, 0.758)
pt3dadd(106.068, 129.649, 1.275, 0.746)
pt3dadd(105.96, 129.655, 1.314, 0.732)
pt3dadd(105.851, 129.661, 1.353, 0.718)
pt3dadd(105.743, 129.666, 1.392, 0.704)
pt3dadd(105.632, 129.673, 1.425, 0.684)
pt3dadd(105.519, 129.683, 1.452, 0.66)
pt3dadd(105.407, 129.69, 1.48, 0.634)
pt3dadd(105.294, 129.698, 1.508, 0.608)
pt3dadd(105.181, 129.707, 1.536, 0.582)
pt3dadd(105.068, 129.715, 1.564, 0.556)
pt3dadd(104.955, 129.724, 1.591, 0.53)
pt3dadd(104.843, 129.732, 1.619, 0.504)
pt3dadd(104.73, 129.74, 1.647, 0.478)
pt3dadd(104.733, 129.744, 1.649, 0.478)
pt3dadd(104.62, 129.752, 1.677, 0.452)
pt3dadd(104.506, 129.761, 1.702, 0.428)
pt3dadd(104.392, 129.769, 1.724, 0.408)
pt3dadd(104.278, 129.78, 1.747, 0.386)
pt3dadd(104.164, 129.788, 1.77, 0.364)
pt3dadd(104.049, 129.797, 1.793, 0.342)
pt3dadd(103.935, 129.805, 1.816, 0.322)
pt3dadd(103.821, 129.816, 1.838, 0.3)
pt3dadd(103.707, 129.824, 1.861, 0.278)
pt3dadd(103.592, 129.833, 1.884, 0.256)
pt3dadd(103.478, 129.842, 1.907, 0.236)
pt3dadd(103.363, 129.852, 1.924, 0.226)
pt3dadd(103.247, 129.86, 1.937, 0.226)
pt3dadd(103.131, 129.871, 1.949, 0.226)
pt3dadd(103.014, 129.88, 1.962, 0.226)
pt3dadd(102.898, 129.889, 1.975, 0.226)
pt3dadd(102.782, 129.899, 1.988, 0.226)
pt3dadd(102.666, 129.908, 2.001, 0.226)
pt3dadd(102.55, 129.917, 2.014, 0.226)
pt3dadd(102.434, 129.928, 2.026, 0.226)
pt3dadd(102.318, 129.936, 2.039, 0.226)
pt3dadd(102.202, 129.955, 2.048, 0.232)
pt3dadd(102.088, 129.984, 2.054, 0.24)
pt3dadd(101.973, 130.01, 2.059, 0.25)
pt3dadd(101.859, 130.038, 2.065, 0.258)
pt3dadd(101.744, 130.067, 2.07, 0.268)
pt3dadd(101.629, 130.093, 2.076, 0.278)
pt3dadd(101.515, 130.121, 2.081, 0.286)
pt3dadd(101.4, 130.148, 2.087, 0.296)
pt3dadd(101.286, 130.176, 2.093, 0.306)
pt3dadd(101.171, 130.204, 2.098, 0.314)
pt3dadd(101.058, 130.236, 2.101, 0.326)
pt3dadd(100.945, 130.272, 2.103, 0.34)
pt3dadd(100.832, 130.307, 2.105, 0.354)
pt3dadd(100.719, 130.342, 2.107, 0.366)
pt3dadd(100.606, 130.378, 2.108, 0.38)
pt3dadd(100.493, 130.411, 2.11, 0.394)
pt3dadd(100.38, 130.446, 2.112, 0.408)
pt3dadd(100.267, 130.482, 2.114, 0.42)
pt3dadd(100.154, 130.517, 2.116, 0.434)
pt3dadd(100.041, 130.552, 2.117, 0.448)
pt3dadd(99.927, 130.555, 2.119, 0.452)
pt3dadd(99.811, 130.54, 2.121, 0.452)
pt3dadd(99.696, 130.525, 2.123, 0.452)
pt3dadd(99.58, 130.512, 2.125, 0.452)
pt3dadd(99.464, 130.496, 2.126, 0.452)
pt3dadd(99.349, 130.482, 2.128, 0.452)
pt3dadd(99.233, 130.468, 2.13, 0.452)
pt3dadd(99.118, 130.453, 2.132, 0.452)
pt3dadd(99.002, 130.439, 2.133, 0.452)
pt3dadd(98.887, 130.423, 2.135, 0.452)
pt3dadd(98.771, 130.41, 2.137, 0.456)
pt3dadd(98.774, 130.414, 2.139, 0.456)
pt3dadd(98.658, 130.4, 2.141, 0.462)
}
}
proc shape3d_76() {
apic[20] { pt3dadd(98.542, 130.387, 2.142, 0.47)
pt3dadd(98.427, 130.373, 2.144, 0.476)
pt3dadd(98.311, 130.36, 2.146, 0.482)
pt3dadd(98.195, 130.346, 2.148, 0.488)
pt3dadd(98.079, 130.333, 2.149, 0.496)
pt3dadd(97.964, 130.319, 2.151, 0.502)
pt3dadd(97.848, 130.307, 2.153, 0.508)
pt3dadd(97.732, 130.292, 2.155, 0.514)
pt3dadd(97.617, 130.279, 2.156, 0.526)
pt3dadd(97.501, 130.267, 2.158, 0.54)
pt3dadd(97.385, 130.255, 2.16, 0.554)
pt3dadd(97.269, 130.242, 2.162, 0.57)
pt3dadd(97.153, 130.23, 2.163, 0.584)
pt3dadd(97.037, 130.217, 2.165, 0.598)
pt3dadd(96.921, 130.205, 2.167, 0.612)
pt3dadd(96.805, 130.193, 2.169, 0.626)
pt3dadd(96.69, 130.18, 2.17, 0.64)
pt3dadd(96.574, 130.168, 2.172, 0.654)
pt3dadd(96.458, 130.156, 2.174, 0.652)
pt3dadd(96.341, 130.146, 2.175, 0.642)
pt3dadd(96.344, 130.15, 2.177, 0.642)
pt3dadd(96.347, 130.153, 2.179, 0.642)
pt3dadd(96.231, 130.144, 2.181, 0.632)
pt3dadd(96.115, 130.133, 2.182, 0.62)
pt3dadd(95.999, 130.122, 2.184, 0.61)
pt3dadd(95.883, 130.112, 2.186, 0.6)
pt3dadd(95.767, 130.102, 2.187, 0.588)
pt3dadd(95.651, 130.091, 2.189, 0.578)
pt3dadd(95.654, 130.096, 2.191, 0.578)
pt3dadd(95.537, 130.085, 2.193, 0.568)
pt3dadd(95.421, 130.074, 2.194, 0.556)
pt3dadd(95.424, 130.079, 2.196, 0.556)
pt3dadd(95.308, 130.07, 2.198, 0.544)
pt3dadd(95.191, 130.063, 2.199, 0.528)
pt3dadd(95.075, 130.058, 2.201, 0.514)
pt3dadd(94.958, 130.051, 2.203, 0.5)
pt3dadd(94.842, 130.044, 2.204, 0.486)
pt3dadd(94.725, 130.039, 2.206, 0.472)
pt3dadd(94.609, 130.032, 2.207, 0.456)
pt3dadd(94.492, 130.025, 2.209, 0.442)
pt3dadd(94.375, 130.019, 2.211, 0.428)
pt3dadd(94.259, 130.013, 2.212, 0.414)
pt3dadd(94.142, 130.012, 2.214, 0.4)
pt3dadd(94.025, 130.013, 2.215, 0.384)
pt3dadd(93.908, 130.016, 2.217, 0.37)
pt3dadd(93.791, 130.018, 2.218, 0.356)
pt3dadd(93.674, 130.02, 2.22, 0.342)
pt3dadd(93.557, 130.022, 2.221, 0.328)
pt3dadd(93.44, 130.025, 2.223, 0.312)
pt3dadd(93.323, 130.026, 2.224, 0.298)
pt3dadd(93.206, 130.03, 2.226, 0.284)
pt3dadd(93.089, 130.031, 2.227, 0.27)
pt3dadd(92.972, 130.032, 2.229, 0.262)
pt3dadd(92.855, 130.034, 2.23, 0.258)
pt3dadd(92.738, 130.034, 2.231, 0.254)
pt3dadd(92.621, 130.034, 2.233, 0.25)
pt3dadd(92.504, 130.037, 2.234, 0.246)
pt3dadd(92.387, 130.037, 2.235, 0.242)
pt3dadd(92.27, 130.038, 2.236, 0.238)
pt3dadd(92.153, 130.038, 2.238, 0.236)
pt3dadd(92.036, 130.039, 2.239, 0.232)
pt3dadd(92.039, 130.043, 2.241, 0.232)
pt3dadd(92.042, 130.046, 2.242, 0.232)
pt3dadd(91.925, 130.049, 2.244, 0.228)
pt3dadd(91.928, 130.052, 2.246, 0.228)
pt3dadd(91.931, 130.056, 2.247, 0.228)
pt3dadd(91.814, 130.057, 2.248, 0.226)
pt3dadd(91.817, 130.061, 2.25, 0.226)
pt3dadd(91.82, 130.064, 2.252, 0.226)
pt3dadd(91.823, 130.069, 2.254, 0.226)
pt3dadd(91.706, 130.068, 2.255, 0.226)
pt3dadd(91.59, 130.067, 2.256, 0.226)
pt3dadd(91.473, 130.067, 2.257, 0.226)
pt3dadd(91.356, 130.067, 2.258, 0.226)
pt3dadd(91.239, 130.066, 2.259, 0.226)
pt3dadd(91.122, 130.066, 2.26, 0.226)
pt3dadd(91.005, 130.066, 2.261, 0.226)
pt3dadd(90.888, 130.064, 2.262, 0.226)
pt3dadd(90.771, 130.064, 2.263, 0.226)
pt3dadd(90.654, 130.061, 2.264, 0.226)
pt3dadd(90.538, 130.056, 2.264, 0.226)
pt3dadd(90.421, 130.05, 2.265, 0.226)
pt3dadd(90.304, 130.046, 2.265, 0.226)
pt3dadd(90.188, 130.04, 2.265, 0.226)
pt3dadd(90.071, 130.036, 2.266, 0.226)
pt3dadd(89.954, 130.032, 2.266, 0.226)
pt3dadd(89.838, 130.026, 2.267, 0.226)
pt3dadd(89.721, 130.021, 2.267, 0.226)
pt3dadd(89.604, 130.016, 2.267, 0.226)
pt3dadd(89.488, 130.009, 2.267, 0.226)
pt3dadd(89.371, 130.001, 2.267, 0.226)
pt3dadd(89.255, 129.992, 2.266, 0.226)
pt3dadd(89.139, 129.984, 2.266, 0.226)
pt3dadd(89.022, 129.974, 2.265, 0.226)
pt3dadd(88.906, 129.967, 2.265, 0.226)
pt3dadd(88.79, 129.959, 2.264, 0.226)
pt3dadd(88.674, 129.949, 2.264, 0.226)
pt3dadd(88.557, 129.942, 2.263, 0.226)
pt3dadd(88.441, 129.932, 2.263, 0.226)
pt3dadd(88.325, 129.922, 2.262, 0.226)
pt3dadd(88.209, 129.911, 2.261, 0.226)
pt3dadd(88.093, 129.899, 2.26, 0.226)
pt3dadd(87.977, 129.887, 2.259, 0.226)
pt3dadd(87.861, 129.876, 2.257, 0.226)
pt3dadd(87.745, 129.865, 2.256, 0.226)
pt3dadd(87.629, 129.853, 2.255, 0.226)
pt3dadd(87.513, 129.841, 2.254, 0.226)
pt3dadd(87.397, 129.83, 2.253, 0.226)
pt3dadd(87.281, 129.818, 2.252, 0.226)
pt3dadd(87.171, 129.785, 2.248, 0.226)
pt3dadd(87.064, 129.744, 2.244, 0.226)
pt3dadd(86.956, 129.702, 2.239, 0.226)
pt3dadd(86.849, 129.659, 2.234, 0.226)
pt3dadd(86.741, 129.618, 2.23, 0.226)
pt3dadd(86.633, 129.575, 2.225, 0.226)
pt3dadd(86.636, 129.578, 2.227, 0.226)
pt3dadd(86.639, 129.583, 2.229, 0.226)
pt3dadd(86.642, 129.587, 2.23, 0.226)
pt3dadd(86.645, 129.59, 2.232, 0.226)
pt3dadd(86.648, 129.595, 2.234, 0.226)
pt3dadd(86.651, 129.599, 2.236, 0.226)
pt3dadd(86.654, 129.602, 2.238, 0.226)
pt3dadd(86.657, 129.607, 2.239, 0.226)
pt3dadd(86.66, 129.611, 2.241, 0.226)
pt3dadd(86.663, 129.614, 2.243, 0.226)
pt3dadd(86.666, 129.618, 2.245, 0.226)
pt3dadd(86.669, 129.623, 2.247, 0.226)
pt3dadd(86.672, 129.626, 2.248, 0.226)
pt3dadd(86.565, 129.584, 2.244, 0.226)
pt3dadd(86.457, 129.544, 2.239, 0.226)
pt3dadd(86.35, 129.5, 2.234, 0.226)
pt3dadd(86.242, 129.458, 2.23, 0.226)
pt3dadd(86.134, 129.42, 2.224, 0.226)
pt3dadd(86.025, 129.382, 2.218, 0.226)
pt3dadd(85.915, 129.343, 2.212, 0.226)
pt3dadd(85.806, 129.306, 2.205, 0.226)
pt3dadd(85.697, 129.269, 2.199, 0.226)
pt3dadd(85.588, 129.23, 2.193, 0.226)
pt3dadd(85.479, 129.193, 2.187, 0.226)
pt3dadd(85.37, 129.155, 2.181, 0.226)
pt3dadd(85.261, 129.116, 2.174, 0.226)
pt3dadd(85.152, 129.079, 2.168, 0.226)
pt3dadd(85.041, 129.048, 2.16, 0.226)
pt3dadd(84.929, 129.019, 2.15, 0.226)
pt3dadd(84.817, 128.992, 2.141, 0.226)
pt3dadd(84.705, 128.963, 2.132, 0.226)
pt3dadd(84.594, 128.934, 2.122, 0.226)
pt3dadd(84.482, 128.906, 2.113, 0.226)
pt3dadd(84.37, 128.879, 2.104, 0.226)
pt3dadd(84.258, 128.85, 2.094, 0.226)
pt3dadd(84.146, 128.821, 2.085, 0.226)
pt3dadd(84.035, 128.794, 2.076, 0.226)
pt3dadd(83.925, 128.77, 2.054, 0.226)
pt3dadd(83.816, 128.748, 2.027, 0.226)
pt3dadd(83.706, 128.729, 1.999, 0.226)
pt3dadd(83.597, 128.707, 1.972, 0.226)
pt3dadd(83.488, 128.686, 1.945, 0.226)
pt3dadd(83.379, 128.665, 1.918, 0.226)
pt3dadd(83.27, 128.644, 1.891, 0.226)
pt3dadd(83.161, 128.622, 1.864, 0.226)
pt3dadd(83.052, 128.602, 1.837, 0.226)
pt3dadd(82.943, 128.58, 1.809, 0.226)
pt3dadd(82.836, 128.562, 1.776, 0.226)
pt3dadd(82.729, 128.545, 1.741, 0.226)
pt3dadd(82.622, 128.527, 1.707, 0.226)
pt3dadd(82.516, 128.509, 1.672, 0.226)
pt3dadd(82.409, 128.492, 1.637, 0.226)
pt3dadd(82.303, 128.474, 1.602, 0.226)
pt3dadd(82.196, 128.458, 1.567, 0.226)
pt3dadd(82.089, 128.44, 1.533, 0.226)
pt3dadd(81.983, 128.423, 1.498, 0.226)
pt3dadd(81.876, 128.405, 1.463, 0.226)
pt3dadd(81.765, 128.39, 1.438, 0.258)
pt3dadd(81.653, 128.378, 1.416, 0.298)
pt3dadd(81.541, 128.365, 1.393, 0.34)
pt3dadd(81.428, 128.352, 1.371, 0.38)
pt3dadd(81.316, 128.339, 1.349, 0.422)
pt3dadd(81.204, 128.326, 1.327, 0.462)
pt3dadd(81.092, 128.312, 1.304, 0.504)
pt3dadd(80.979, 128.3, 1.282, 0.544)
pt3dadd(80.867, 128.287, 1.26, 0.586)
pt3dadd(80.755, 128.274, 1.238, 0.626)
pt3dadd(80.644, 128.252, 1.219, 0.656)
pt3dadd(80.533, 128.226, 1.202, 0.684)
pt3dadd(80.421, 128.201, 1.185, 0.71)
pt3dadd(80.31, 128.177, 1.167, 0.738)
pt3dadd(80.199, 128.15, 1.15, 0.766)
pt3dadd(80.088, 128.125, 1.133, 0.792)
pt3dadd(79.977, 128.1, 1.115, 0.82)
pt3dadd(79.866, 128.075, 1.098, 0.848)
pt3dadd(79.755, 128.05, 1.081, 0.874)
pt3dadd(79.644, 128.023, 1.063, 0.902)
pt3dadd(79.538, 127.979, 1.054, 0.904)
pt3dadd(79.433, 127.932, 1.046, 0.904)
pt3dadd(79.328, 127.884, 1.038, 0.904)
pt3dadd(79.223, 127.838, 1.03, 0.904)
pt3dadd(79.118, 127.79, 1.021, 0.904)
pt3dadd(79.013, 127.744, 1.013, 0.904)
pt3dadd(78.909, 127.697, 1.005, 0.904)
pt3dadd(78.803, 127.65, 0.997, 0.904)
}
}
proc shape3d_77() {
apic[20] { pt3dadd(78.698, 127.602, 0.989, 0.904)
pt3dadd(78.594, 127.556, 0.98, 0.904)
pt3dadd(78.486, 127.514, 0.978, 0.904)
pt3dadd(78.378, 127.472, 0.976, 0.904)
pt3dadd(78.269, 127.433, 0.974, 0.904)
pt3dadd(78.161, 127.391, 0.972, 0.904)
pt3dadd(78.053, 127.349, 0.97, 0.904)
pt3dadd(77.945, 127.309, 0.968, 0.904)
pt3dadd(77.837, 127.267, 0.966, 0.904)
pt3dadd(77.84, 127.271, 0.968, 0.904)
pt3dadd(77.732, 127.231, 0.966, 0.904)
pt3dadd(77.624, 127.189, 0.964, 0.904)
pt3dadd(77.516, 127.148, 0.962, 0.904)
pt3dadd(77.519, 127.152, 0.964, 0.904)
pt3dadd(77.409, 127.115, 0.965, 0.904)
pt3dadd(77.299, 127.076, 0.967, 0.904)
pt3dadd(77.19, 127.039, 0.969, 0.904)
pt3dadd(77.08, 127.002, 0.97, 0.904)
pt3dadd(76.971, 126.965, 0.972, 0.904)
pt3dadd(76.861, 126.926, 0.974, 0.904)
pt3dadd(76.751, 126.89, 0.976, 0.904)
pt3dadd(76.642, 126.852, 0.978, 0.904)
pt3dadd(76.532, 126.815, 0.979, 0.904)
pt3dadd(76.422, 126.778, 0.981, 0.904)
pt3dadd(76.318, 126.727, 0.983, 0.868)
pt3dadd(76.214, 126.677, 0.985, 0.83)
pt3dadd(76.11, 126.626, 0.987, 0.794)
pt3dadd(76.006, 126.576, 0.989, 0.756)
pt3dadd(75.903, 126.524, 0.99, 0.718)
pt3dadd(75.799, 126.475, 0.992, 0.68)
pt3dadd(75.695, 126.425, 0.994, 0.642)
pt3dadd(75.591, 126.373, 0.996, 0.604)
pt3dadd(75.487, 126.324, 0.998, 0.566)
pt3dadd(75.383, 126.272, 0.999, 0.528)
pt3dadd(75.277, 126.226, 1.001, 0.498)
pt3dadd(75.171, 126.18, 1.003, 0.468)
pt3dadd(75.065, 126.134, 1.005, 0.438)
pt3dadd(74.958, 126.089, 1.007, 0.408)
pt3dadd(74.852, 126.042, 1.008, 0.378)
pt3dadd(74.746, 125.998, 1.01, 0.348)
pt3dadd(74.64, 125.951, 1.012, 0.318)
pt3dadd(74.534, 125.905, 1.014, 0.288)
pt3dadd(74.427, 125.86, 1.016, 0.256)
pt3dadd(74.321, 125.814, 1.017, 0.226)
pt3dadd(74.209, 125.786, 1.019, 0.226)
pt3dadd(74.096, 125.759, 1.021, 0.226)
pt3dadd(73.983, 125.731, 1.023, 0.226)
pt3dadd(73.87, 125.704, 1.025, 0.226)
pt3dadd(73.757, 125.677, 1.026, 0.226)
pt3dadd(73.76, 125.681, 1.028, 0.226)
pt3dadd(73.647, 125.653, 1.03, 0.226)
pt3dadd(73.534, 125.627, 1.032, 0.226)
pt3dadd(73.422, 125.599, 1.034, 0.226)
pt3dadd(73.309, 125.572, 1.035, 0.226)
pt3dadd(73.196, 125.545, 1.037, 0.226)
pt3dadd(73.08, 125.531, 1.039, 0.226)
pt3dadd(72.964, 125.518, 1.041, 0.226)
pt3dadd(72.849, 125.504, 1.043, 0.226)
pt3dadd(72.733, 125.492, 1.044, 0.226)
pt3dadd(72.617, 125.479, 1.046, 0.226)
pt3dadd(72.501, 125.466, 1.048, 0.226)
pt3dadd(72.385, 125.454, 1.05, 0.226)
pt3dadd(72.269, 125.441, 1.052, 0.226)
pt3dadd(72.154, 125.428, 1.053, 0.226)
pt3dadd(72.038, 125.416, 1.055, 0.226)
pt3dadd(71.921, 125.407, 1.057, 0.226)
pt3dadd(71.805, 125.399, 1.059, 0.226)
pt3dadd(71.689, 125.392, 1.061, 0.226)
pt3dadd(71.572, 125.383, 1.062, 0.226)
pt3dadd(71.456, 125.375, 1.064, 0.226)
pt3dadd(71.339, 125.368, 1.066, 0.226)
pt3dadd(71.223, 125.359, 1.068, 0.226)
pt3dadd(71.107, 125.351, 1.07, 0.226)
pt3dadd(70.99, 125.344, 1.071, 0.226)
pt3dadd(70.874, 125.335, 1.073, 0.226)
pt3dadd(70.877, 125.339, 1.075, 0.452)
pt3dadd(70.879, 125.341, 1.072, 0.452)
pt3dadd(70.789, 125.318, 1.015, 0.626)
pt3dadd(70.763, 125.263, 0.928, 0.678)
pt3dadd(70.733, 125.234, 0.834, 0.678)
pt3dadd(70.641, 125.232, 0.782, 0.674)
pt3dadd(70.541, 125.267, 0.816, 0.59)
pt3dadd(70.448, 125.326, 0.846, 0.446)
pt3dadd(70.334, 125.353, 0.857, 0.402)
pt3dadd(70.221, 125.358, 0.878, 0.426)
pt3dadd(70.115, 125.365, 0.917, 0.518)
pt3dadd(70.005, 125.399, 0.929, 0.63)
pt3dadd(69.895, 125.443, 0.928, 0.682)
pt3dadd(69.785, 125.488, 0.927, 0.734)
pt3dadd(69.676, 125.532, 0.926, 0.784)
pt3dadd(69.566, 125.576, 0.925, 0.836)
pt3dadd(69.46, 125.628, 0.923, 0.892)
pt3dadd(69.374, 125.711, 0.92, 0.962)
pt3dadd(69.287, 125.794, 0.916, 1.034)
pt3dadd(69.201, 125.876, 0.913, 1.104)
pt3dadd(69.114, 125.959, 0.91, 1.174)
pt3dadd(69.023, 126.032, 0.907, 1.242)
pt3dadd(68.91, 126.07, 0.903, 1.29)
pt3dadd(68.798, 126.108, 0.9, 1.34)
pt3dadd(68.686, 126.146, 0.897, 1.39)
pt3dadd(68.574, 126.184, 0.894, 1.44)
pt3dadd(68.462, 126.222, 0.89, 1.488)
pt3dadd(68.347, 126.238, 0.887, 1.522)
pt3dadd(68.229, 126.24, 0.884, 1.548)
pt3dadd(68.112, 126.241, 0.881, 1.572)
pt3dadd(67.999, 126.268, 0.868, 1.568)
pt3dadd(67.889, 126.307, 0.849, 1.544)
pt3dadd(67.796, 126.343, 0.802, 1.504)
pt3dadd(67.719, 126.373, 0.727, 1.45)
pt3dadd(67.655, 126.419, 0.65, 1.432)
pt3dadd(67.598, 126.474, 0.572, 1.432)
pt3dadd(67.505, 126.487, 0.512, 1.45)
pt3dadd(67.507, 126.49, 0.509, 1.45)
pt3dadd(67.408, 126.496, 0.452, 1.47)
pt3dadd(67.309, 126.5, 0.396, 1.492)
pt3dadd(67.204, 126.505, 0.355, 1.514)
pt3dadd(67.087, 126.508, 0.348, 1.54)
pt3dadd(66.969, 126.51, 0.341, 1.566)
pt3dadd(66.852, 126.512, 0.335, 1.56)
pt3dadd(66.734, 126.515, 0.332, 1.52)
pt3dadd(66.617, 126.516, 0.329, 1.492)
pt3dadd(66.499, 126.518, 0.325, 1.462)
pt3dadd(66.382, 126.521, 0.322, 1.434)
pt3dadd(66.264, 126.523, 0.319, 1.406)
pt3dadd(66.147, 126.526, 0.316, 1.376)
pt3dadd(66.029, 126.527, 0.312, 1.348)
pt3dadd(65.912, 126.538, 0.309, 1.316)
pt3dadd(65.796, 126.559, 0.306, 1.278)
pt3dadd(65.68, 126.581, 0.303, 1.242)
pt3dadd(65.564, 126.604, 0.299, 1.204)
pt3dadd(65.448, 126.625, 0.296, 1.166)
pt3dadd(65.332, 126.647, 0.293, 1.13)
pt3dadd(65.216, 126.662, 0.29, 1.082)
pt3dadd(65.098, 126.665, 0.286, 1.016)
pt3dadd(64.981, 126.667, 0.283, 0.948)
pt3dadd(64.863, 126.671, 0.28, 0.892)
pt3dadd(64.746, 126.677, 0.277, 0.858)
pt3dadd(64.628, 126.684, 0.273, 0.824)
pt3dadd(64.53, 126.728, 0.262, 0.798)
pt3dadd(64.457, 126.821, 0.242, 0.784)
pt3dadd(64.373, 126.893, 0.208, 0.792)
pt3dadd(64.28, 126.947, 0.162, 0.82)
pt3dadd(64.191, 127.003, 0.113, 0.874)
pt3dadd(64.099, 127.063, 0.071, 0.906)
pt3dadd(64.003, 127.123, 0.037, 0.912)
pt3dadd(63.908, 127.184, 0.003, 0.918)
pt3dadd(63.812, 127.244, -0.031, 0.924)
pt3dadd(63.714, 127.295, -0.066, 0.93)
pt3dadd(63.605, 127.297, -0.106, 0.93)
pt3dadd(63.496, 127.3, -0.147, 0.93)
pt3dadd(63.387, 127.301, -0.187, 0.93)
pt3dadd(63.278, 127.303, -0.227, 0.93)
pt3dadd(63.169, 127.306, -0.268, 0.93)
pt3dadd(63.053, 127.313, -0.279, 0.934)
pt3dadd(62.936, 127.32, -0.282, 0.942)
pt3dadd(62.818, 127.328, -0.285, 0.95)
pt3dadd(62.701, 127.337, -0.289, 0.958)
pt3dadd(62.584, 127.345, -0.292, 0.966)
pt3dadd(62.466, 127.352, -0.295, 0.972)
pt3dadd(62.35, 127.364, -0.299, 0.982)
pt3dadd(62.239, 127.408, -0.309, 1.006)
pt3dadd(62.129, 127.451, -0.318, 1.03)
pt3dadd(62.019, 127.494, -0.328, 1.054)
pt3dadd(61.909, 127.537, -0.338, 1.078)
pt3dadd(61.799, 127.58, -0.347, 1.102)
pt3dadd(61.692, 127.628, -0.363, 1.132)
pt3dadd(61.585, 127.678, -0.38, 1.164)
pt3dadd(61.478, 127.726, -0.397, 1.194)
pt3dadd(61.371, 127.775, -0.414, 1.226)
pt3dadd(61.264, 127.823, -0.431, 1.256)
pt3dadd(61.148, 127.844, -0.434, 1.256)
pt3dadd(61.032, 127.867, -0.437, 1.256)
pt3dadd(60.916, 127.889, -0.441, 1.256)
pt3dadd(60.8, 127.91, -0.444, 1.256)
pt3dadd(60.684, 127.932, -0.447, 1.256)
pt3dadd(60.568, 127.954, -0.45, 1.256)
pt3dadd(60.451, 127.957, -0.454, 1.248)
pt3dadd(60.333, 127.96, -0.457, 1.242)
pt3dadd(60.216, 127.962, -0.46, 1.234)
pt3dadd(60.098, 127.964, -0.463, 1.228)
pt3dadd(59.981, 127.966, -0.467, 1.22)
pt3dadd(59.863, 127.968, -0.47, 1.212)
pt3dadd(59.746, 127.97, -0.473, 1.206)
pt3dadd(59.629, 127.985, -0.475, 1.194)
pt3dadd(59.512, 128, -0.476, 1.182)
pt3dadd(59.395, 128.015, -0.478, 1.17)
pt3dadd(59.278, 128.03, -0.479, 1.158)
pt3dadd(59.161, 128.045, -0.481, 1.146)
pt3dadd(59.045, 128.06, -0.482, 1.134)
pt3dadd(58.928, 128.071, -0.475, 1.132)
pt3dadd(58.812, 128.08, -0.463, 1.138)
pt3dadd(58.696, 128.088, -0.451, 1.142)
pt3dadd(58.581, 128.098, -0.439, 1.146)
pt3dadd(58.464, 128.106, -0.427, 1.15)
pt3dadd(58.349, 128.116, -0.415, 1.154)
pt3dadd(58.231, 128.12, -0.416, 1.162)
pt3dadd(58.114, 128.124, -0.419, 1.168)
pt3dadd(57.996, 128.129, -0.422, 1.176)
pt3dadd(57.879, 128.132, -0.425, 1.182)
pt3dadd(57.761, 128.136, -0.429, 1.19)
}
}
proc shape3d_78() {
apic[20] { pt3dadd(57.644, 128.141, -0.432, 1.198)
pt3dadd(57.526, 128.144, -0.435, 1.204)
pt3dadd(57.423, 128.203, -0.438, 1.22)
pt3dadd(57.322, 128.266, -0.442, 1.234)
pt3dadd(57.22, 128.327, -0.445, 1.248)
pt3dadd(57.119, 128.389, -0.448, 1.264)
pt3dadd(57.017, 128.452, -0.451, 1.278)
pt3dadd(56.903, 128.47, -0.455, 1.284)
pt3dadd(56.786, 128.478, -0.458, 1.288)
pt3dadd(56.668, 128.486, -0.461, 1.292)
pt3dadd(56.551, 128.494, -0.464, 1.294)
pt3dadd(56.433, 128.502, -0.468, 1.298)
pt3dadd(56.316, 128.51, -0.471, 1.302)
pt3dadd(56.2, 128.524, -0.474, 1.304)
pt3dadd(56.092, 128.574, -0.477, 1.296)
pt3dadd(55.984, 128.623, -0.481, 1.286)
pt3dadd(55.877, 128.672, -0.484, 1.276)
pt3dadd(55.769, 128.723, -0.487, 1.266)
pt3dadd(55.661, 128.772, -0.49, 1.258)
pt3dadd(55.552, 128.82, -0.494, 1.236)
pt3dadd(55.443, 128.867, -0.497, 1.214)
pt3dadd(55.335, 128.914, -0.5, 1.19)
pt3dadd(55.226, 128.96, -0.503, 1.166)
pt3dadd(55.117, 129.007, -0.507, 1.144)
pt3dadd(55.012, 129.061, -0.507, 1.12)
pt3dadd(54.913, 129.127, -0.503, 1.094)
pt3dadd(54.813, 129.192, -0.5, 1.068)
pt3dadd(54.714, 129.258, -0.496, 1.042)
pt3dadd(54.615, 129.323, -0.493, 1.016)
pt3dadd(54.506, 129.359, -0.497, 1.004)
pt3dadd(54.389, 129.372, -0.507, 1.004)
pt3dadd(54.272, 129.384, -0.517, 1.004)
pt3dadd(54.156, 129.397, -0.527, 1.004)
pt3dadd(54.039, 129.41, -0.537, 1.004)
pt3dadd(53.931, 129.431, -0.57, 1.014)
pt3dadd(53.827, 129.456, -0.616, 1.032)
pt3dadd(53.724, 129.481, -0.663, 1.048)
pt3dadd(53.62, 129.506, -0.709, 1.064)
pt3dadd(53.517, 129.532, -0.755, 1.08)
pt3dadd(53.409, 129.541, -0.798, 1.094)
pt3dadd(53.301, 129.552, -0.84, 1.11)
pt3dadd(53.194, 129.562, -0.883, 1.124)
pt3dadd(53.086, 129.571, -0.925, 1.138)
pt3dadd(52.979, 129.581, -0.968, 1.154)
pt3dadd(52.869, 129.599, -1.005, 1.142)
pt3dadd(52.76, 129.617, -1.042, 1.126)
pt3dadd(52.65, 129.635, -1.078, 1.112)
pt3dadd(52.541, 129.654, -1.115, 1.096)
pt3dadd(52.431, 129.672, -1.152, 1.082)
pt3dadd(52.317, 129.676, -1.177, 1.06)
pt3dadd(52.202, 129.678, -1.201, 1.04)
pt3dadd(52.087, 129.679, -1.225, 1.018)
pt3dadd(51.972, 129.682, -1.249, 0.996)
pt3dadd(51.857, 129.684, -1.272, 0.976)
pt3dadd(51.742, 129.686, -1.296, 0.954)
pt3dadd(51.624, 129.689, -1.304, 0.928)
pt3dadd(51.507, 129.691, -1.311, 0.902)
pt3dadd(51.391, 129.692, -1.322, 0.882)
pt3dadd(51.286, 129.695, -1.37, 0.904)
pt3dadd(51.181, 129.697, -1.418, 0.926)
pt3dadd(51.129, 129.7, -1.507, 0.986)
pt3dadd(51.085, 129.702, -1.602, 1.052)
pt3dadd(51.056, 129.703, -1.702, 1.124)
pt3dadd(51.038, 129.706, -1.803, 1.202)
pt3dadd(51.02, 129.708, -1.905, 1.28)
pt3dadd(50.979, 129.71, -2.002, 1.392)
pt3dadd(50.948, 129.713, -2.101, 1.474)
pt3dadd(50.931, 129.714, -2.202, 1.512)
pt3dadd(50.913, 129.716, -2.304, 1.55)
pt3dadd(50.829, 129.719, -2.371, 1.566)
pt3dadd(50.732, 129.721, -2.431, 1.578)
pt3dadd(50.621, 129.724, -2.454, 1.582)
pt3dadd(50.504, 129.725, -2.462, 1.582)
pt3dadd(50.386, 129.727, -2.469, 1.582)
pt3dadd(50.27, 129.73, -2.482, 1.582)
pt3dadd(50.153, 129.732, -2.498, 1.582)
pt3dadd(50.037, 129.734, -2.516, 1.582)
pt3dadd(49.927, 129.736, -2.555, 1.582)
pt3dadd(49.814, 129.738, -2.579, 1.578)
pt3dadd(49.697, 129.74, -2.59, 1.568)
pt3dadd(49.579, 129.743, -2.601, 1.558)
pt3dadd(49.469, 129.745, -2.636, 1.532)
pt3dadd(49.361, 129.746, -2.678, 1.498)
pt3dadd(49.363, 129.749, -2.682, 1.498)
pt3dadd(49.279, 129.751, -2.746, 1.454)
pt3dadd(49.221, 129.754, -2.836, 1.396)
pt3dadd(49.155, 129.757, -2.921, 1.342)
pt3dadd(49.073, 129.766, -2.994, 1.292)
pt3dadd(48.992, 129.787, -3.065, 1.256)
pt3dadd(48.916, 129.847, -3.126, 1.258)
pt3dadd(48.849, 129.919, -3.187, 1.288)
pt3dadd(48.782, 129.99, -3.248, 1.32)
pt3dadd(48.715, 130.062, -3.309, 1.352)
pt3dadd(48.647, 130.133, -3.369, 1.382)
pt3dadd(48.555, 130.192, -3.412, 1.406)
pt3dadd(48.463, 130.25, -3.454, 1.43)
pt3dadd(48.37, 130.309, -3.497, 1.454)
pt3dadd(48.278, 130.368, -3.54, 1.476)
pt3dadd(48.181, 130.403, -3.591, 1.482)
pt3dadd(48.083, 130.432, -3.643, 1.482)
pt3dadd(47.984, 130.46, -3.696, 1.482)
pt3dadd(47.886, 130.489, -3.749, 1.482)
pt3dadd(47.787, 130.519, -3.8, 1.472)
pt3dadd(47.686, 130.55, -3.847, 1.438)
pt3dadd(47.585, 130.583, -3.895, 1.404)
pt3dadd(47.484, 130.614, -3.942, 1.372)
pt3dadd(47.383, 130.646, -3.99, 1.338)
pt3dadd(47.329, 130.7, -4.065, 1.254)
pt3dadd(47.288, 130.762, -4.148, 1.158)
pt3dadd(47.222, 130.832, -4.21, 1.056)
pt3dadd(47.146, 130.901, -4.261, 0.964)
pt3dadd(47.043, 130.955, -4.28, 0.902)
pt3dadd(46.938, 131.008, -4.296, 0.852)
pt3dadd(46.827, 131.05, -4.3, 0.84)
pt3dadd(46.716, 131.092, -4.303, 0.83)
pt3dadd(46.609, 131.132, -4.328, 0.846)
pt3dadd(46.502, 131.167, -4.361, 0.862)
pt3dadd(46.395, 131.195, -4.4, 0.878)
pt3dadd(46.288, 131.222, -4.438, 0.894)
pt3dadd(46.181, 131.249, -4.476, 0.91)
pt3dadd(46.074, 131.276, -4.515, 0.926)
pt3dadd(45.963, 131.315, -4.526, 0.93)
pt3dadd(45.852, 131.356, -4.529, 0.93)
pt3dadd(45.741, 131.396, -4.532, 0.93)
pt3dadd(45.63, 131.437, -4.535, 0.93)
pt3dadd(45.519, 131.478, -4.539, 0.93)
pt3dadd(45.413, 131.528, -4.542, 0.932)
pt3dadd(45.322, 131.605, -4.545, 0.942)
pt3dadd(45.23, 131.683, -4.548, 0.952)
pt3dadd(45.139, 131.76, -4.552, 0.962)
pt3dadd(45.048, 131.837, -4.555, 0.972)
pt3dadd(44.95, 131.899, -4.563, 0.982)
pt3dadd(44.836, 131.924, -4.583, 0.992)
pt3dadd(44.723, 131.95, -4.603, 1)
pt3dadd(44.609, 131.974, -4.623, 1.01)
pt3dadd(44.496, 131.999, -4.643, 1.02)
pt3dadd(44.382, 132.024, -4.663, 1.03)
pt3dadd(44.264, 132.026, -4.667, 1.04)
pt3dadd(44.147, 132.028, -4.67, 1.052)
pt3dadd(44.029, 132.03, -4.673, 1.062)
pt3dadd(43.912, 132.032, -4.676, 1.074)
pt3dadd(43.794, 132.035, -4.68, 1.086)
pt3dadd(43.677, 132.037, -4.683, 1.096)
pt3dadd(43.559, 132.038, -4.683, 1.104)
pt3dadd(43.443, 132.041, -4.672, 1.104)
pt3dadd(43.327, 132.043, -4.661, 1.104)
pt3dadd(43.211, 132.046, -4.65, 1.104)
pt3dadd(43.094, 132.048, -4.638, 1.104)
pt3dadd(43.097, 132.049, -4.642, 1.104)
pt3dadd(42.98, 132.052, -4.631, 1.104)
pt3dadd(42.864, 132.055, -4.62, 1.104)
pt3dadd(42.75, 132.085, -4.623, 1.096)
pt3dadd(42.635, 132.114, -4.627, 1.088)
pt3dadd(42.521, 132.144, -4.63, 1.078)
pt3dadd(42.407, 132.174, -4.633, 1.07)
pt3dadd(42.292, 132.203, -4.636, 1.062)
pt3dadd(42.182, 132.241, -4.645, 1.054)
pt3dadd(42.086, 132.306, -4.67, 1.048)
pt3dadd(41.99, 132.371, -4.696, 1.042)
pt3dadd(41.894, 132.436, -4.722, 1.036)
pt3dadd(41.797, 132.502, -4.747, 1.032)
pt3dadd(41.687, 132.539, -4.756, 1.036)
pt3dadd(41.573, 132.569, -4.759, 1.044)
pt3dadd(41.459, 132.598, -4.762, 1.054)
pt3dadd(41.344, 132.628, -4.766, 1.062)
pt3dadd(41.23, 132.658, -4.769, 1.07)
pt3dadd(41.115, 132.688, -4.772, 1.08)
pt3dadd(41.004, 132.728, -4.775, 1.12)
pt3dadd(40.894, 132.77, -4.779, 1.162)
pt3dadd(40.79, 132.826, -4.785, 1.216)
pt3dadd(40.691, 132.892, -4.794, 1.276)
pt3dadd(40.587, 132.932, -4.817, 1.328)
pt3dadd(40.478, 132.947, -4.856, 1.374)
pt3dadd(40.383, 132.977, -4.905, 1.43)
pt3dadd(40.317, 133.04, -4.972, 1.502)
pt3dadd(40.264, 133.108, -5.045, 1.582)
pt3dadd(40.193, 133.157, -5.095, 1.648)
pt3dadd(40.077, 133.174, -5.103, 1.686)
pt3dadd(39.96, 133.192, -5.11, 1.726)
pt3dadd(39.852, 133.234, -5.128, 1.742)
pt3dadd(39.744, 133.28, -5.147, 1.754)
pt3dadd(39.709, 133.344, -5.216, 1.73)
pt3dadd(39.698, 133.412, -5.302, 1.692)
pt3dadd(39.636, 133.471, -5.369, 1.61)
pt3dadd(39.556, 133.526, -5.429, 1.51)
pt3dadd(39.45, 133.559, -5.466, 1.362)
pt3dadd(39.371, 133.576, -5.535, 1.262)
pt3dadd(39.31, 133.584, -5.622, 1.19)
pt3dadd(39.268, 133.638, -5.697, 1.128)
pt3dadd(39.242, 133.733, -5.759, 1.074)
pt3dadd(39.165, 133.784, -5.809, 1.022)
pt3dadd(39.06, 133.813, -5.851, 0.972)
pt3dadd(38.963, 133.859, -5.896, 0.918)
pt3dadd(38.87, 133.913, -5.942, 0.862)
pt3dadd(38.809, 134.011, -5.959, 0.794)
pt3dadd(38.748, 134.114, -5.967, 0.754)
pt3dadd(38.678, 134.212, -5.97, 0.754)
pt3dadd(38.609, 134.31, -5.973, 0.754)
pt3dadd(38.539, 134.408, -5.976, 0.754)
pt3dadd(38.47, 134.506, -5.98, 0.754)
}
}
proc shape3d_79() {
apic[20] { pt3dadd(38.388, 134.593, -5.983, 0.76)
pt3dadd(38.293, 134.664, -5.986, 0.774)
pt3dadd(38.197, 134.736, -5.989, 0.79)
pt3dadd(38.101, 134.807, -5.993, 0.806)
pt3dadd(38.006, 134.878, -5.996, 0.82)
pt3dadd(37.908, 134.945, -5.999, 0.852)
pt3dadd(37.806, 135.008, -6.002, 0.91)
pt3dadd(37.705, 135.07, -6.006, 0.96)
pt3dadd(37.6, 135.126, -6.009, 0.982)
pt3dadd(37.495, 135.181, -6.012, 1.004)
pt3dadd(37.385, 135.202, -6.046, 0.982)
pt3dadd(37.275, 135.223, -6.081, 0.958)
pt3dadd(37.211, 135.31, -6.12, 0.918)
pt3dadd(37.156, 135.407, -6.161, 0.878)
pt3dadd(37.138, 135.492, -6.233, 0.858)
pt3dadd(37.078, 135.566, -6.292, 0.876)
pt3dadd(37.003, 135.637, -6.347, 0.904)
pt3dadd(36.93, 135.66, -6.426, 0.944)
pt3dadd(36.853, 135.686, -6.499, 0.982)
pt3dadd(36.748, 135.734, -6.525, 1.006)
pt3dadd(36.646, 135.787, -6.548, 1.032)
pt3dadd(36.567, 135.878, -6.551, 1.056)
pt3dadd(36.487, 135.968, -6.554, 1.08)
pt3dadd(36.39, 136.038, -6.558, 1.086)
pt3dadd(36.293, 136.105, -6.561, 1.094)
pt3dadd(36.195, 136.174, -6.564, 1.1)
pt3dadd(36.092, 136.23, -6.567, 1.102)
pt3dadd(35.979, 136.266, -6.571, 1.09)
pt3dadd(35.866, 136.302, -6.574, 1.08)
pt3dadd(35.749, 136.304, -6.577, 0.984)
pt3dadd(35.639, 136.348, -6.58, 0.952)
pt3dadd(35.529, 136.392, -6.584, 0.924)
pt3dadd(35.419, 136.436, -6.587, 0.896)
pt3dadd(35.309, 136.482, -6.59, 0.868)
pt3dadd(35.199, 136.525, -6.593, 0.84)
pt3dadd(35.085, 136.553, -6.597, 0.738)
}
apic[21] {pt3dclear()
pt3dadd(123.523, 128.827, 1.623, 0.394)
pt3dadd(123.503, 128.826, 1.519, 1.406)
pt3dadd(123.484, 128.824, 1.415, 1.454)
pt3dadd(123.463, 128.822, 1.312, 1.504)
pt3dadd(123.443, 128.82, 1.208, 1.554)
pt3dadd(123.422, 128.819, 1.104, 1.604)
pt3dadd(123.402, 128.816, 1, 1.654)
pt3dadd(123.374, 128.814, 0.898, 1.696)
pt3dadd(123.347, 128.813, 0.795, 1.74)
pt3dadd(123.319, 128.81, 0.693, 1.784)
pt3dadd(123.29, 128.809, 0.591, 1.826)
pt3dadd(123.263, 128.807, 0.488, 1.87)
pt3dadd(123.233, 128.806, 0.386, 1.912)
pt3dadd(123.188, 128.803, 0.288, 1.96)
pt3dadd(123.143, 128.802, 0.19, 2.006)
pt3dadd(123.098, 128.8, 0.093, 2.052)
pt3dadd(123.053, 128.798, -0.005, 2.1)
pt3dadd(123.007, 128.796, -0.103, 2.146)
pt3dadd(122.969, 128.795, -0.203, 2.17)
pt3dadd(122.933, 128.792, -0.304, 2.182)
pt3dadd(122.896, 128.791, -0.404, 2.196)
pt3dadd(122.86, 128.789, -0.505, 2.21)
pt3dadd(122.824, 128.788, -0.605, 2.224)
pt3dadd(122.786, 128.785, -0.705, 2.234)
pt3dadd(122.744, 128.784, -0.804, 2.224)
pt3dadd(122.743, 128.782, -0.809, 2.224)
pt3dadd(122.701, 128.78, -0.908, 2.216)
pt3dadd(122.659, 128.778, -1.007, 2.206)
pt3dadd(122.617, 128.777, -1.106, 2.196)
pt3dadd(122.574, 128.774, -1.205, 2.188)
pt3dadd(122.56, 128.761, -1.307, 2.174)
pt3dadd(122.558, 128.759, -1.312, 2.174)
pt3dadd(122.556, 128.74, -1.416, 2.156)
pt3dadd(122.554, 128.72, -1.52, 2.14)
pt3dadd(122.55, 128.701, -1.624, 2.124)
pt3dadd(122.548, 128.681, -1.728, 2.108)
pt3dadd(122.545, 128.662, -1.832, 2.09)
pt3dadd(122.544, 128.66, -1.837, 2.09)
pt3dadd(122.543, 128.615, -1.933, 2.078)
pt3dadd(122.543, 128.552, -2.024, 2.066)
pt3dadd(122.542, 128.489, -2.116, 2.074)
pt3dadd(122.542, 128.426, -2.207, 2.108)
pt3dadd(122.53, 128.366, -2.297, 2.146)
pt3dadd(122.477, 128.312, -2.381, 2.202)
pt3dadd(122.42, 128.278, -2.468, 2.26)
pt3dadd(122.357, 128.27, -2.558, 2.318)
pt3dadd(122.293, 128.243, -2.641, 2.374)
pt3dadd(122.233, 128.172, -2.711, 2.418)
pt3dadd(122.173, 128.101, -2.782, 2.46)
pt3dadd(122.119, 128.024, -2.851, 2.508)
pt3dadd(122.074, 127.94, -2.918, 2.566)
pt3dadd(122.056, 127.898, -3.008, 2.586)
pt3dadd(122.036, 127.854, -3.104, 2.578)
pt3dadd(122.01, 127.8, -3.196, 2.568)
pt3dadd(121.982, 127.746, -3.289, 2.556)
pt3dadd(121.956, 127.692, -3.381, 2.546)
pt3dadd(121.933, 127.638, -3.474, 2.536)
pt3dadd(121.933, 127.583, -3.568, 2.53)
pt3dadd(121.932, 127.526, -3.663, 2.526)
pt3dadd(121.932, 127.471, -3.757, 2.522)
pt3dadd(121.931, 127.416, -3.852, 2.516)
pt3dadd(121.931, 127.361, -3.946, 2.512)
pt3dadd(121.915, 127.321, -4.045, 2.524)
pt3dadd(121.898, 127.282, -4.145, 2.54)
pt3dadd(121.883, 127.243, -4.244, 2.554)
pt3dadd(121.866, 127.205, -4.343, 2.57)
pt3dadd(121.849, 127.165, -4.442, 2.584)
pt3dadd(121.799, 127.153, -4.537, 2.606)
pt3dadd(121.742, 127.145, -4.63, 2.63)
pt3dadd(121.712, 127.115, -4.727, 2.628)
pt3dadd(121.693, 127.075, -4.826, 2.616)
pt3dadd(121.681, 127.013, -4.914, 2.54)
pt3dadd(121.674, 126.932, -4.995, 2.418)
pt3dadd(121.637, 126.84, -5.038, 2.27)
pt3dadd(121.573, 126.737, -5.049, 2.104)
pt3dadd(121.522, 126.635, -5.078, 1.952)
pt3dadd(121.487, 126.535, -5.133, 1.824)
pt3dadd(121.452, 126.434, -5.188, 1.696)
pt3dadd(121.412, 126.353, -5.254, 1.572)
pt3dadd(121.361, 126.307, -5.343, 1.466)
pt3dadd(121.326, 126.282, -5.438, 1.368)
pt3dadd(121.31, 126.252, -5.537, 1.33)
pt3dadd(121.294, 126.2, -5.632, 1.33)
pt3dadd(121.276, 126.149, -5.727, 1.33)
pt3dadd(121.276, 126.148, -5.732, 1.33)
pt3dadd(121.258, 126.096, -5.827, 1.33)
pt3dadd(121.241, 126.044, -5.922, 1.33)
pt3dadd(121.207, 125.981, -6.007, 1.264)
pt3dadd(121.195, 125.938, -6.103, 1.17)
pt3dadd(121.195, 125.952, -6.206, 1.13)
pt3dadd(121.195, 125.992, -6.304, 1.144)
pt3dadd(121.194, 125.989, -6.309, 1.144)
pt3dadd(121.192, 125.956, -6.404, 1.218)
pt3dadd(121.163, 125.848, -6.444, 1.312)
pt3dadd(121.109, 125.742, -6.439, 1.388)
pt3dadd(121.076, 125.636, -6.402, 1.498)
pt3dadd(121.055, 125.525, -6.374, 1.64)
pt3dadd(120.998, 125.432, -6.406, 1.708)
pt3dadd(120.998, 125.43, -6.411, 1.708)
pt3dadd(120.96, 125.407, -6.507, 1.612)
pt3dadd(120.949, 125.406, -6.611, 1.504)
pt3dadd(120.949, 125.4, -6.716, 1.424)
pt3dadd(120.948, 125.368, -6.817, 1.432)
pt3dadd(120.935, 125.282, -6.886, 1.578)
pt3dadd(120.888, 125.173, -6.914, 1.62)
pt3dadd(120.84, 125.064, -6.942, 1.656)
pt3dadd(120.834, 124.948, -6.975, 1.678)
pt3dadd(120.827, 124.831, -7.009, 1.7)
pt3dadd(120.824, 124.711, -7.024, 1.742)
pt3dadd(120.824, 124.59, -7.038, 1.768)
pt3dadd(120.823, 124.47, -7.058, 1.784)
pt3dadd(120.823, 124.349, -7.077, 1.802)
pt3dadd(120.823, 124.229, -7.097, 1.818)
pt3dadd(120.822, 124.108, -7.116, 1.834)
pt3dadd(120.822, 123.988, -7.136, 1.85)
pt3dadd(120.821, 123.866, -7.15, 1.858)
pt3dadd(120.821, 123.864, -7.155, 1.858)
pt3dadd(120.82, 123.743, -7.164, 1.858)
pt3dadd(120.82, 123.62, -7.173, 1.858)
pt3dadd(120.818, 123.503, -7.199, 1.814)
pt3dadd(120.818, 123.388, -7.237, 1.738)
pt3dadd(120.818, 123.286, -7.289, 1.656)
pt3dadd(120.817, 123.284, -7.294, 1.656)
pt3dadd(120.817, 123.222, -7.385, 1.554)
pt3dadd(120.816, 123.16, -7.476, 1.452)
pt3dadd(120.816, 123.103, -7.571, 1.386)
pt3dadd(120.815, 123.048, -7.665, 1.318)
pt3dadd(120.779, 122.992, -7.753, 1.34)
pt3dadd(120.709, 122.96, -7.831, 1.394)
pt3dadd(120.62, 122.945, -7.904, 1.458)
pt3dadd(120.578, 122.911, -7.992, 1.524)
pt3dadd(120.566, 122.866, -8.089, 1.594)
pt3dadd(120.53, 122.806, -8.171, 1.658)
pt3dadd(120.469, 122.728, -8.234, 1.716)
pt3dadd(120.413, 122.627, -8.255, 1.756)
pt3dadd(120.358, 122.518, -8.26, 1.79)
pt3dadd(120.296, 122.434, -8.298, 1.828)
pt3dadd(120.296, 122.432, -8.303, 1.828)
pt3dadd(120.227, 122.376, -8.377, 1.872)
pt3dadd(120.158, 122.32, -8.45, 1.914)
pt3dadd(120.103, 122.244, -8.516, 1.964)
pt3dadd(120.058, 122.153, -8.577, 2.02)
pt3dadd(119.994, 122.075, -8.637, 2.076)
pt3dadd(119.925, 121.99, -8.686, 2.034)
pt3dadd(119.876, 121.907, -8.748, 1.982)
pt3dadd(119.855, 121.829, -8.829, 1.916)
pt3dadd(119.844, 121.748, -8.908, 1.848)
pt3dadd(119.844, 121.664, -8.986, 1.778)
pt3dadd(119.843, 121.609, -9.074, 1.716)
pt3dadd(119.843, 121.603, -9.179, 1.674)
pt3dadd(119.842, 121.597, -9.284, 1.63)
pt3dadd(119.828, 121.586, -9.388, 1.6)
pt3dadd(119.799, 121.571, -9.489, 1.588)
pt3dadd(119.771, 121.555, -9.591, 1.574)
pt3dadd(119.742, 121.538, -9.692, 1.562)
pt3dadd(119.702, 121.458, -9.739, 1.582)
pt3dadd(119.656, 121.346, -9.76, 1.618)
pt3dadd(119.63, 121.232, -9.79, 1.664)
pt3dadd(119.616, 121.117, -9.825, 1.714)
pt3dadd(119.602, 121.002, -9.861, 1.766)
pt3dadd(119.597, 120.882, -9.878, 1.812)
pt3dadd(119.596, 120.761, -9.887, 1.856)
pt3dadd(119.596, 120.64, -9.896, 1.898)
pt3dadd(119.595, 120.545, -9.957, 1.916)
}
}
proc shape3d_80() {
apic[21] { pt3dadd(119.594, 120.458, -10.033, 1.924)
pt3dadd(119.594, 120.371, -10.109, 1.934)
pt3dadd(119.593, 120.307, -10.199, 1.912)
pt3dadd(119.593, 120.245, -10.29, 1.888)
pt3dadd(119.592, 120.14, -10.337, 1.766)
pt3dadd(119.592, 120.062, -10.418, 1.73)
pt3dadd(119.591, 119.985, -10.501, 1.698)
pt3dadd(119.591, 119.909, -10.584, 1.668)
pt3dadd(119.59, 119.832, -10.667, 1.638)
pt3dadd(119.59, 119.755, -10.75, 1.608)
pt3dadd(119.589, 119.67, -10.827, 1.572)
pt3dadd(119.589, 119.585, -10.904, 1.538)
pt3dadd(119.588, 119.499, -10.981, 1.502)
pt3dadd(119.587, 119.414, -11.058, 1.466)
pt3dadd(119.587, 119.329, -11.135, 1.43)
pt3dadd(119.578, 119.248, -11.215, 1.414)
pt3dadd(119.569, 119.167, -11.295, 1.4)
pt3dadd(119.56, 119.087, -11.375, 1.384)
pt3dadd(119.551, 119.006, -11.455, 1.368)
pt3dadd(119.525, 118.923, -11.525, 1.344)
pt3dadd(119.475, 118.848, -11.593, 1.36)
pt3dadd(119.463, 118.788, -11.685, 1.41)
pt3dadd(119.463, 118.733, -11.779, 1.524)
pt3dadd(119.457, 118.655, -11.861, 1.668)
pt3dadd(119.409, 118.566, -11.917, 1.782)
pt3dadd(119.409, 118.564, -11.922, 1.782)
pt3dadd(119.295, 118.531, -11.939, 1.792)
pt3dadd(119.175, 118.52, -11.944, 1.73)
pt3dadd(119.054, 118.513, -11.949, 1.64)
pt3dadd(118.938, 118.485, -11.961, 1.532)
pt3dadd(118.854, 118.412, -11.994, 1.48)
pt3dadd(118.749, 118.353, -12.014, 1.476)
pt3dadd(118.644, 118.295, -12.033, 1.47)
pt3dadd(118.539, 118.237, -12.052, 1.464)
pt3dadd(118.434, 118.179, -12.071, 1.46)
pt3dadd(118.337, 118.11, -12.094, 1.456)
pt3dadd(118.251, 118.029, -12.122, 1.456)
pt3dadd(118.165, 117.947, -12.15, 1.456)
pt3dadd(118.079, 117.866, -12.178, 1.456)
pt3dadd(117.992, 117.785, -12.204, 1.454)
pt3dadd(117.898, 117.708, -12.209, 1.428)
pt3dadd(117.804, 117.632, -12.214, 1.404)
pt3dadd(117.709, 117.555, -12.219, 1.378)
pt3dadd(117.615, 117.478, -12.225, 1.354)
pt3dadd(117.521, 117.403, -12.233, 1.326)
pt3dadd(117.426, 117.341, -12.275, 1.286)
pt3dadd(117.331, 117.28, -12.317, 1.244)
pt3dadd(117.236, 117.218, -12.359, 1.202)
pt3dadd(117.141, 117.157, -12.4, 1.16)
pt3dadd(117.05, 117.082, -12.428, 1.112)
pt3dadd(116.959, 117.005, -12.453, 1.06)
pt3dadd(116.868, 116.928, -12.478, 1.01)
pt3dadd(116.777, 116.85, -12.503, 0.958)
pt3dadd(116.686, 116.779, -12.535, 0.914)
pt3dadd(116.593, 116.714, -12.577, 0.878)
pt3dadd(116.501, 116.648, -12.62, 0.842)
pt3dadd(116.409, 116.583, -12.661, 0.806)
pt3dadd(116.326, 116.508, -12.695, 0.774)
pt3dadd(116.279, 116.395, -12.7, 0.752)
pt3dadd(116.232, 116.283, -12.705, 0.73)
pt3dadd(116.132, 116.217, -12.711, 0.728)
pt3dadd(116.028, 116.154, -12.716, 0.728)
pt3dadd(115.942, 116.073, -12.738, 0.738)
pt3dadd(115.863, 115.985, -12.767, 0.752)
pt3dadd(115.848, 115.936, -12.857, 0.754)
pt3dadd(115.841, 115.894, -12.956, 0.754)
pt3dadd(115.793, 115.828, -13.025, 0.758)
pt3dadd(115.719, 115.748, -13.076, 0.768)
pt3dadd(115.646, 115.669, -13.126, 0.776)
pt3dadd(115.548, 115.611, -13.161, 0.806)
pt3dadd(115.44, 115.562, -13.188, 0.842)
pt3dadd(115.348, 115.51, -13.237, 0.938)
pt3dadd(115.272, 115.422, -13.269, 0.98)
pt3dadd(115.176, 115.351, -13.276, 1.014)
pt3dadd(115.059, 115.323, -13.281, 1.074)
pt3dadd(114.939, 115.313, -13.292, 1.13)
pt3dadd(114.826, 115.311, -13.328, 1.192)
pt3dadd(114.765, 115.309, -13.415, 1.284)
pt3dadd(114.764, 115.307, -13.42, 1.284)
pt3dadd(114.764, 115.305, -13.425, 1.284)
pt3dadd(114.751, 115.304, -13.529, 1.34)
pt3dadd(114.75, 115.302, -13.634, 1.394)
pt3dadd(114.75, 115.297, -13.739, 1.48)
pt3dadd(114.749, 115.276, -13.843, 1.626)
pt3dadd(114.749, 115.221, -13.935, 1.758)
pt3dadd(114.714, 115.139, -14.006, 1.794)
pt3dadd(114.668, 115.055, -14.074, 1.808)
pt3dadd(114.579, 114.992, -14.123, 1.808)
pt3dadd(114.487, 114.938, -14.173, 1.816)
pt3dadd(114.391, 114.896, -14.226, 1.84)
pt3dadd(114.3, 114.837, -14.276, 1.852)
pt3dadd(114.21, 114.777, -14.327, 1.864)
pt3dadd(114.12, 114.717, -14.378, 1.876)
pt3dadd(114.047, 114.657, -14.441, 1.892)
pt3dadd(114.002, 114.596, -14.525, 1.916)
pt3dadd(113.958, 114.534, -14.608, 1.94)
pt3dadd(113.913, 114.472, -14.692, 1.964)
pt3dadd(113.865, 114.406, -14.767, 1.994)
pt3dadd(113.796, 114.308, -14.789, 2.072)
pt3dadd(113.732, 114.212, -14.82, 2.156)
pt3dadd(113.686, 114.128, -14.888, 2.27)
pt3dadd(113.686, 114.126, -14.893, 2.27)
pt3dadd(113.652, 114.072, -14.976, 2.36)
pt3dadd(113.652, 114.071, -14.98, 2.36)
pt3dadd(113.635, 114.058, -15.084, 2.422)
pt3dadd(113.619, 114.046, -15.188, 2.482)
pt3dadd(113.576, 113.988, -15.273, 2.512)
pt3dadd(113.536, 113.928, -15.359, 2.53)
pt3dadd(113.536, 113.926, -15.364, 2.53)
pt3dadd(113.535, 113.871, -15.458, 2.48)
pt3dadd(113.517, 113.828, -15.555, 2.452)
pt3dadd(113.49, 113.794, -15.654, 2.436)
pt3dadd(113.462, 113.759, -15.752, 2.42)
pt3dadd(113.434, 113.724, -15.851, 2.404)
pt3dadd(113.406, 113.69, -15.949, 2.39)
pt3dadd(113.384, 113.665, -16.051, 2.376)
pt3dadd(113.363, 113.643, -16.153, 2.362)
pt3dadd(113.343, 113.622, -16.255, 2.348)
pt3dadd(113.322, 113.6, -16.358, 2.332)
pt3dadd(113.302, 113.578, -16.46, 2.318)
pt3dadd(113.286, 113.546, -16.56, 2.31)
pt3dadd(113.278, 113.497, -16.657, 2.31)
pt3dadd(113.27, 113.448, -16.754, 2.31)
pt3dadd(113.261, 113.399, -16.85, 2.31)
pt3dadd(113.253, 113.35, -16.947, 2.31)
pt3dadd(113.236, 113.314, -17.045, 2.312)
pt3dadd(113.198, 113.307, -17.145, 2.316)
pt3dadd(113.16, 113.3, -17.245, 2.32)
pt3dadd(113.123, 113.293, -17.345, 2.326)
pt3dadd(113.085, 113.287, -17.445, 2.33)
pt3dadd(113.047, 113.28, -17.545, 2.334)
pt3dadd(112.986, 113.252, -17.633, 2.372)
pt3dadd(112.922, 113.222, -17.72, 2.41)
pt3dadd(112.858, 113.192, -17.807, 2.45)
pt3dadd(112.858, 113.19, -17.812, 2.45)
pt3dadd(112.857, 113.189, -17.817, 2.45)
pt3dadd(112.857, 113.187, -17.822, 2.45)
}
apic[22] {pt3dclear()
pt3dadd(165.938, 127.774, 14.276, 2.766)
pt3dadd(166.002, 127.787, 14.297, 2.738)
pt3dadd(166.111, 127.808, 14.333, 2.69)
pt3dadd(166.22, 127.831, 14.37, 2.642)
pt3dadd(166.33, 127.853, 14.406, 2.594)
pt3dadd(166.44, 127.876, 14.443, 2.546)
pt3dadd(166.549, 127.897, 14.48, 2.498)
pt3dadd(166.658, 127.92, 14.516, 2.45)
pt3dadd(166.768, 127.942, 14.553, 2.404)
pt3dadd(166.877, 127.964, 14.589, 2.356)
pt3dadd(166.987, 127.986, 14.626, 2.308)
pt3dadd(167.08, 128.052, 14.647, 2.282)
pt3dadd(167.167, 128.131, 14.663, 2.262)
pt3dadd(167.256, 128.21, 14.68, 2.244)
pt3dadd(167.344, 128.291, 14.696, 2.224)
pt3dadd(167.431, 128.37, 14.712, 2.206)
pt3dadd(167.519, 128.449, 14.729, 2.186)
pt3dadd(167.606, 128.528, 14.745, 2.168)
pt3dadd(167.694, 128.609, 14.761, 2.148)
pt3dadd(167.782, 128.688, 14.777, 2.13)
pt3dadd(167.869, 128.767, 14.794, 2.11)
pt3dadd(167.959, 128.846, 14.802, 2.076)
pt3dadd(168.05, 128.924, 14.808, 2.038)
pt3dadd(168.14, 129.004, 14.813, 2)
pt3dadd(168.23, 129.082, 14.819, 1.962)
pt3dadd(168.322, 129.161, 14.825, 1.924)
pt3dadd(168.412, 129.239, 14.831, 1.886)
pt3dadd(168.502, 129.318, 14.836, 1.848)
pt3dadd(168.593, 129.396, 14.842, 1.808)
pt3dadd(168.683, 129.475, 14.848, 1.77)
pt3dadd(168.773, 129.553, 14.854, 1.732)
pt3dadd(168.864, 129.631, 14.854, 1.686)
pt3dadd(168.955, 129.709, 14.854, 1.636)
pt3dadd(169.048, 129.787, 14.853, 1.586)
pt3dadd(169.139, 129.865, 14.852, 1.536)
pt3dadd(169.23, 129.943, 14.852, 1.488)
pt3dadd(169.321, 130.02, 14.851, 1.438)
pt3dadd(169.412, 130.098, 14.851, 1.388)
pt3dadd(169.504, 130.176, 14.85, 1.338)
pt3dadd(169.595, 130.254, 14.849, 1.288)
pt3dadd(169.686, 130.332, 14.849, 1.24)
pt3dadd(169.778, 130.409, 14.848, 1.21)
pt3dadd(169.871, 130.486, 14.847, 1.186)
pt3dadd(169.962, 130.564, 14.847, 1.162)
pt3dadd(170.054, 130.64, 14.846, 1.138)
pt3dadd(170.147, 130.717, 14.845, 1.114)
pt3dadd(170.238, 130.794, 14.844, 1.092)
pt3dadd(170.33, 130.872, 14.844, 1.068)
pt3dadd(170.422, 130.949, 14.843, 1.044)
pt3dadd(170.514, 131.026, 14.842, 1.02)
pt3dadd(170.606, 131.102, 14.842, 0.996)
pt3dadd(170.699, 131.179, 14.841, 1.01)
pt3dadd(170.791, 131.255, 14.84, 1.036)
pt3dadd(170.885, 131.33, 14.839, 1.062)
pt3dadd(170.977, 131.406, 14.838, 1.086)
pt3dadd(171.071, 131.483, 14.837, 1.112)
pt3dadd(171.163, 131.558, 14.836, 1.136)
pt3dadd(171.257, 131.634, 14.835, 1.162)
pt3dadd(171.349, 131.71, 14.834, 1.186)
pt3dadd(171.443, 131.785, 14.833, 1.212)
pt3dadd(171.535, 131.862, 14.832, 1.238)
pt3dadd(171.636, 131.928, 14.831, 1.264)
pt3dadd(171.738, 131.992, 14.829, 1.288)
}
}
proc shape3d_81() {
apic[22] { pt3dadd(171.839, 132.055, 14.828, 1.314)
pt3dadd(171.941, 132.119, 14.826, 1.34)
pt3dadd(172.043, 132.182, 14.825, 1.366)
pt3dadd(172.145, 132.246, 14.823, 1.392)
pt3dadd(172.247, 132.31, 14.822, 1.418)
pt3dadd(172.348, 132.372, 14.821, 1.444)
pt3dadd(172.45, 132.436, 14.819, 1.47)
pt3dadd(172.552, 132.499, 14.818, 1.496)
pt3dadd(172.658, 132.554, 14.816, 1.52)
pt3dadd(172.766, 132.607, 14.814, 1.546)
pt3dadd(172.874, 132.66, 14.812, 1.572)
pt3dadd(172.981, 132.713, 14.81, 1.598)
pt3dadd(173.089, 132.766, 14.808, 1.624)
pt3dadd(173.197, 132.818, 14.806, 1.65)
pt3dadd(173.305, 132.871, 14.804, 1.676)
pt3dadd(173.412, 132.924, 14.802, 1.702)
pt3dadd(173.52, 132.977, 14.8, 1.728)
pt3dadd(173.628, 133.03, 14.799, 1.754)
pt3dadd(173.734, 133.085, 14.795, 1.728)
pt3dadd(173.84, 133.141, 14.79, 1.692)
pt3dadd(173.946, 133.198, 14.786, 1.656)
pt3dadd(174.052, 133.254, 14.782, 1.62)
pt3dadd(174.157, 133.31, 14.778, 1.584)
pt3dadd(174.263, 133.367, 14.774, 1.546)
pt3dadd(174.368, 133.423, 14.769, 1.51)
pt3dadd(174.474, 133.48, 14.765, 1.474)
pt3dadd(174.581, 133.536, 14.761, 1.438)
pt3dadd(174.686, 133.592, 14.757, 1.402)
pt3dadd(174.792, 133.65, 14.752, 1.356)
pt3dadd(174.898, 133.706, 14.747, 1.308)
pt3dadd(175.003, 133.764, 14.742, 1.258)
pt3dadd(175.108, 133.82, 14.737, 1.21)
pt3dadd(175.213, 133.877, 14.733, 1.162)
pt3dadd(175.319, 133.934, 14.728, 1.112)
pt3dadd(175.424, 133.991, 14.723, 1.064)
pt3dadd(175.53, 134.048, 14.718, 1.016)
pt3dadd(175.636, 134.105, 14.713, 0.966)
pt3dadd(175.741, 134.162, 14.708, 0.918)
pt3dadd(175.854, 134.202, 14.701, 0.936)
pt3dadd(175.968, 134.238, 14.693, 0.962)
pt3dadd(176.081, 134.275, 14.685, 0.99)
pt3dadd(176.195, 134.312, 14.677, 1.018)
pt3dadd(176.309, 134.35, 14.669, 1.046)
pt3dadd(176.423, 134.387, 14.661, 1.072)
pt3dadd(176.537, 134.423, 14.653, 1.1)
pt3dadd(176.65, 134.46, 14.645, 1.128)
pt3dadd(176.764, 134.497, 14.637, 1.154)
pt3dadd(176.878, 134.534, 14.63, 1.182)
pt3dadd(176.992, 134.568, 14.614, 1.214)
pt3dadd(177.104, 134.602, 14.598, 1.246)
pt3dadd(177.218, 134.635, 14.582, 1.28)
pt3dadd(177.332, 134.669, 14.565, 1.312)
pt3dadd(177.445, 134.702, 14.549, 1.344)
pt3dadd(177.559, 134.736, 14.532, 1.378)
pt3dadd(177.672, 134.77, 14.516, 1.41)
pt3dadd(177.786, 134.803, 14.5, 1.442)
pt3dadd(177.9, 134.837, 14.483, 1.474)
pt3dadd(178.013, 134.87, 14.467, 1.508)
pt3dadd(178.124, 134.898, 14.438, 1.548)
pt3dadd(178.236, 134.926, 14.408, 1.588)
pt3dadd(178.346, 134.952, 14.378, 1.628)
pt3dadd(178.458, 134.98, 14.349, 1.668)
pt3dadd(178.57, 135.007, 14.319, 1.708)
pt3dadd(178.681, 135.035, 14.289, 1.748)
pt3dadd(178.792, 135.061, 14.259, 1.79)
pt3dadd(178.903, 135.089, 14.229, 1.83)
pt3dadd(179.015, 135.116, 14.199, 1.87)
pt3dadd(179.125, 135.143, 14.17, 1.91)
pt3dadd(179.237, 135.185, 14.153, 1.906)
pt3dadd(179.347, 135.227, 14.137, 1.9)
pt3dadd(179.458, 135.269, 14.12, 1.894)
pt3dadd(179.568, 135.311, 14.104, 1.888)
pt3dadd(179.68, 135.353, 14.088, 1.88)
pt3dadd(179.79, 135.395, 14.072, 1.874)
pt3dadd(179.9, 135.437, 14.056, 1.868)
pt3dadd(180.011, 135.479, 14.04, 1.86)
pt3dadd(180.122, 135.521, 14.024, 1.854)
pt3dadd(180.233, 135.563, 14.008, 1.848)
pt3dadd(180.342, 135.611, 13.998, 1.822)
pt3dadd(180.451, 135.659, 13.988, 1.794)
pt3dadd(180.56, 135.707, 13.978, 1.768)
pt3dadd(180.67, 135.755, 13.968, 1.742)
pt3dadd(180.78, 135.803, 13.957, 1.714)
pt3dadd(180.889, 135.851, 13.948, 1.688)
pt3dadd(180.998, 135.899, 13.937, 1.662)
pt3dadd(181.108, 135.947, 13.927, 1.636)
pt3dadd(181.217, 135.995, 13.917, 1.608)
pt3dadd(181.326, 136.043, 13.907, 1.582)
}
apic[23] {pt3dclear()
pt3dadd(181.326, 136.043, 13.907, 1.582)
pt3dadd(181.346, 136.05, 13.913, 1.584)
pt3dadd(181.454, 136.086, 13.944, 1.598)
pt3dadd(181.562, 136.123, 13.974, 1.612)
pt3dadd(181.672, 136.159, 14.005, 1.624)
pt3dadd(181.78, 136.195, 14.036, 1.638)
pt3dadd(181.888, 136.232, 14.067, 1.65)
pt3dadd(181.996, 136.268, 14.097, 1.664)
pt3dadd(182.104, 136.304, 14.128, 1.678)
pt3dadd(182.213, 136.342, 14.159, 1.69)
pt3dadd(182.321, 136.378, 14.19, 1.704)
pt3dadd(182.429, 136.414, 14.22, 1.718)
pt3dadd(182.537, 136.451, 14.251, 1.73)
pt3dadd(182.645, 136.487, 14.282, 1.744)
pt3dadd(182.754, 136.523, 14.313, 1.758)
pt3dadd(182.862, 136.559, 14.343, 1.77)
pt3dadd(182.97, 136.592, 14.375, 1.766)
pt3dadd(183.079, 136.622, 14.408, 1.748)
pt3dadd(183.188, 136.654, 14.44, 1.73)
pt3dadd(183.298, 136.684, 14.473, 1.712)
pt3dadd(183.408, 136.715, 14.506, 1.694)
pt3dadd(183.517, 136.746, 14.538, 1.676)
pt3dadd(183.626, 136.776, 14.571, 1.66)
pt3dadd(183.736, 136.807, 14.604, 1.642)
pt3dadd(183.845, 136.837, 14.636, 1.624)
pt3dadd(183.954, 136.868, 14.669, 1.606)
pt3dadd(184.062, 136.9, 14.702, 1.586)
pt3dadd(184.171, 136.931, 14.734, 1.562)
pt3dadd(184.28, 136.962, 14.767, 1.54)
pt3dadd(184.388, 136.994, 14.8, 1.518)
pt3dadd(184.498, 137.026, 14.833, 1.494)
pt3dadd(184.607, 137.058, 14.866, 1.472)
pt3dadd(184.716, 137.089, 14.899, 1.45)
pt3dadd(184.824, 137.122, 14.931, 1.426)
pt3dadd(184.933, 137.153, 14.964, 1.404)
pt3dadd(185.042, 137.185, 14.997, 1.382)
pt3dadd(185.147, 137.228, 15.027, 1.38)
pt3dadd(185.249, 137.281, 15.056, 1.394)
pt3dadd(185.352, 137.333, 15.085, 1.408)
pt3dadd(185.454, 137.384, 15.114, 1.422)
pt3dadd(185.557, 137.436, 15.143, 1.436)
pt3dadd(185.659, 137.488, 15.172, 1.45)
pt3dadd(185.762, 137.54, 15.201, 1.462)
pt3dadd(185.864, 137.592, 15.23, 1.476)
pt3dadd(185.966, 137.644, 15.259, 1.49)
pt3dadd(186.07, 137.695, 15.288, 1.504)
pt3dadd(186.17, 137.744, 15.323, 1.502)
pt3dadd(186.269, 137.792, 15.363, 1.49)
pt3dadd(186.368, 137.84, 15.402, 1.478)
pt3dadd(186.468, 137.888, 15.442, 1.466)
pt3dadd(186.568, 137.935, 15.481, 1.452)
pt3dadd(186.667, 137.983, 15.521, 1.44)
pt3dadd(186.766, 138.031, 15.56, 1.428)
pt3dadd(186.865, 138.079, 15.6, 1.416)
pt3dadd(186.965, 138.127, 15.639, 1.404)
pt3dadd(187.064, 138.174, 15.679, 1.392)
pt3dadd(187.16, 138.218, 15.726, 1.36)
pt3dadd(187.254, 138.262, 15.777, 1.318)
pt3dadd(187.348, 138.304, 15.828, 1.278)
pt3dadd(187.442, 138.347, 15.879, 1.236)
pt3dadd(187.536, 138.389, 15.93, 1.194)
pt3dadd(187.631, 138.432, 15.98, 1.154)
pt3dadd(187.724, 138.474, 16.031, 1.112)
pt3dadd(187.819, 138.517, 16.082, 1.07)
pt3dadd(187.913, 138.559, 16.133, 1.028)
pt3dadd(188.006, 138.602, 16.184, 0.988)
pt3dadd(188.083, 138.648, 16.25, 0.97)
pt3dadd(188.152, 138.695, 16.322, 0.962)
pt3dadd(188.219, 138.742, 16.395, 0.956)
pt3dadd(188.287, 138.788, 16.467, 0.948)
pt3dadd(188.354, 138.836, 16.54, 0.942)
pt3dadd(188.423, 138.883, 16.612, 0.934)
pt3dadd(188.491, 138.93, 16.685, 0.926)
pt3dadd(188.558, 138.977, 16.757, 0.92)
pt3dadd(188.627, 139.024, 16.83, 0.912)
pt3dadd(188.695, 139.07, 16.902, 0.906)
pt3dadd(188.76, 139.132, 16.969, 0.904)
pt3dadd(188.824, 139.196, 17.035, 0.904)
pt3dadd(188.887, 139.261, 17.1, 0.904)
pt3dadd(188.951, 139.326, 17.165, 0.904)
pt3dadd(189.016, 139.391, 17.23, 0.904)
pt3dadd(189.079, 139.454, 17.296, 0.904)
pt3dadd(189.143, 139.519, 17.361, 0.904)
pt3dadd(189.206, 139.584, 17.426, 0.904)
pt3dadd(189.271, 139.649, 17.492, 0.904)
pt3dadd(189.335, 139.714, 17.557, 0.904)
pt3dadd(189.398, 139.798, 17.605, 0.904)
pt3dadd(189.461, 139.882, 17.653, 0.904)
pt3dadd(189.524, 139.966, 17.701, 0.904)
pt3dadd(189.588, 140.05, 17.749, 0.904)
pt3dadd(189.652, 140.134, 17.796, 0.904)
pt3dadd(189.715, 140.218, 17.844, 0.904)
pt3dadd(189.779, 140.303, 17.892, 0.904)
pt3dadd(189.841, 140.387, 17.94, 0.904)
pt3dadd(189.905, 140.471, 17.988, 0.904)
pt3dadd(189.968, 140.555, 18.036, 0.904)
}
apic[24] {pt3dclear()
pt3dadd(189.968, 140.555, 18.036, 0.904)
pt3dadd(189.971, 140.566, 18.038, 0.902)
pt3dadd(189.992, 140.678, 18.065, 0.888)
pt3dadd(190.015, 140.792, 18.091, 0.872)
pt3dadd(190.038, 140.905, 18.117, 0.856)
pt3dadd(190.061, 141.019, 18.144, 0.842)
pt3dadd(190.082, 141.133, 18.17, 0.826)
pt3dadd(190.105, 141.246, 18.197, 0.81)
pt3dadd(190.128, 141.36, 18.223, 0.796)
pt3dadd(190.145, 141.473, 18.253, 0.79)
pt3dadd(190.163, 141.587, 18.283, 0.784)
pt3dadd(190.18, 141.7, 18.313, 0.778)
pt3dadd(190.196, 141.812, 18.343, 0.774)
pt3dadd(190.213, 141.926, 18.373, 0.768)
pt3dadd(190.231, 142.039, 18.403, 0.762)
pt3dadd(190.248, 142.152, 18.433, 0.758)
}
}
proc shape3d_82() {
apic[24] { pt3dadd(190.265, 142.266, 18.463, 0.752)
pt3dadd(190.283, 142.379, 18.493, 0.746)
pt3dadd(190.298, 142.492, 18.523, 0.742)
pt3dadd(190.297, 142.601, 18.564, 0.768)
pt3dadd(190.297, 142.711, 18.604, 0.796)
pt3dadd(190.296, 142.82, 18.645, 0.822)
pt3dadd(190.296, 142.931, 18.685, 0.848)
pt3dadd(190.295, 143.04, 18.726, 0.874)
pt3dadd(190.295, 143.149, 18.766, 0.902)
pt3dadd(190.294, 143.26, 18.807, 0.928)
pt3dadd(190.294, 143.369, 18.847, 0.954)
pt3dadd(190.292, 143.479, 18.888, 0.98)
pt3dadd(190.291, 143.588, 18.928, 1.004)
pt3dadd(190.268, 143.698, 18.964, 0.99)
pt3dadd(190.244, 143.808, 19, 0.974)
pt3dadd(190.222, 143.917, 19.036, 0.96)
pt3dadd(190.199, 144.026, 19.072, 0.946)
pt3dadd(190.176, 144.137, 19.108, 0.93)
pt3dadd(190.153, 144.246, 19.144, 0.916)
pt3dadd(190.129, 144.355, 19.18, 0.902)
pt3dadd(190.106, 144.466, 19.216, 0.886)
pt3dadd(190.084, 144.575, 19.252, 0.872)
pt3dadd(190.056, 144.684, 19.286, 0.85)
pt3dadd(190.014, 144.79, 19.317, 0.798)
pt3dadd(189.971, 144.895, 19.348, 0.748)
pt3dadd(189.929, 145.002, 19.378, 0.696)
pt3dadd(189.887, 145.108, 19.409, 0.646)
pt3dadd(189.844, 145.214, 19.44, 0.594)
pt3dadd(189.802, 145.32, 19.47, 0.542)
pt3dadd(189.758, 145.426, 19.501, 0.492)
pt3dadd(189.716, 145.532, 19.531, 0.44)
pt3dadd(189.674, 145.638, 19.562, 0.39)
pt3dadd(189.634, 145.745, 19.592, 0.362)
pt3dadd(189.602, 145.855, 19.621, 0.422)
pt3dadd(189.571, 145.967, 19.649, 0.482)
pt3dadd(189.54, 146.077, 19.678, 0.54)
pt3dadd(189.509, 146.188, 19.707, 0.6)
pt3dadd(189.478, 146.298, 19.736, 0.658)
pt3dadd(189.446, 146.408, 19.764, 0.718)
pt3dadd(189.415, 146.52, 19.793, 0.776)
pt3dadd(189.384, 146.63, 19.821, 0.836)
pt3dadd(189.353, 146.741, 19.85, 0.896)
pt3dadd(189.323, 146.851, 19.879, 0.962)
pt3dadd(189.296, 146.963, 19.908, 1.048)
pt3dadd(189.27, 147.074, 19.938, 1.134)
pt3dadd(189.244, 147.186, 19.967, 1.222)
pt3dadd(189.216, 147.298, 19.997, 1.308)
pt3dadd(189.19, 147.409, 20.026, 1.396)
pt3dadd(189.163, 147.521, 20.055, 1.484)
pt3dadd(189.137, 147.632, 20.085, 1.57)
pt3dadd(189.11, 147.744, 20.114, 1.656)
pt3dadd(189.084, 147.856, 20.144, 1.744)
pt3dadd(189.061, 147.966, 20.177, 1.808)
pt3dadd(189.05, 148.072, 20.223, 1.808)
pt3dadd(189.038, 148.178, 20.269, 1.808)
pt3dadd(189.026, 148.284, 20.315, 1.808)
pt3dadd(189.014, 148.39, 20.361, 1.808)
pt3dadd(189.002, 148.495, 20.407, 1.808)
pt3dadd(188.99, 148.602, 20.453, 1.808)
pt3dadd(188.978, 148.708, 20.499, 1.808)
pt3dadd(188.966, 148.813, 20.545, 1.808)
pt3dadd(188.954, 148.92, 20.591, 1.808)
pt3dadd(188.944, 149.026, 20.638, 1.806)
pt3dadd(188.935, 149.13, 20.686, 1.798)
pt3dadd(188.928, 149.234, 20.735, 1.792)
pt3dadd(188.92, 149.339, 20.784, 1.784)
pt3dadd(188.911, 149.443, 20.833, 1.776)
pt3dadd(188.903, 149.548, 20.882, 1.768)
pt3dadd(188.894, 149.652, 20.931, 1.762)
pt3dadd(188.887, 149.756, 20.979, 1.754)
pt3dadd(188.879, 149.861, 21.028, 1.746)
pt3dadd(188.87, 149.965, 21.077, 1.74)
pt3dadd(188.864, 150.068, 21.127, 1.726)
pt3dadd(188.864, 150.168, 21.182, 1.702)
pt3dadd(188.864, 150.269, 21.237, 1.678)
pt3dadd(188.864, 150.37, 21.292, 1.654)
pt3dadd(188.864, 150.469, 21.347, 1.63)
pt3dadd(188.863, 150.57, 21.401, 1.606)
pt3dadd(188.863, 150.671, 21.456, 1.582)
pt3dadd(188.863, 150.77, 21.511, 1.558)
pt3dadd(188.863, 150.871, 21.566, 1.534)
pt3dadd(188.863, 150.972, 21.621, 1.51)
pt3dadd(188.863, 151.074, 21.673, 1.48)
pt3dadd(188.863, 151.18, 21.719, 1.436)
pt3dadd(188.863, 151.286, 21.766, 1.392)
pt3dadd(188.863, 151.392, 21.812, 1.35)
pt3dadd(188.863, 151.499, 21.859, 1.306)
pt3dadd(188.862, 151.604, 21.905, 1.262)
pt3dadd(188.862, 151.711, 21.952, 1.22)
pt3dadd(188.862, 151.817, 21.998, 1.176)
pt3dadd(188.862, 151.924, 22.045, 1.132)
pt3dadd(188.862, 152.029, 22.091, 1.088)
pt3dadd(188.862, 152.138, 22.134, 1.036)
pt3dadd(188.862, 152.25, 22.169, 0.97)
pt3dadd(188.862, 152.363, 22.204, 0.902)
pt3dadd(188.862, 152.476, 22.239, 0.834)
pt3dadd(188.862, 152.587, 22.275, 0.766)
pt3dadd(188.861, 152.7, 22.31, 0.698)
pt3dadd(188.861, 152.812, 22.345, 0.63)
pt3dadd(188.861, 152.924, 22.38, 0.564)
pt3dadd(188.861, 153.037, 22.415, 0.496)
pt3dadd(188.861, 153.149, 22.45, 0.428)
pt3dadd(188.861, 153.263, 22.48, 0.378)
pt3dadd(188.861, 153.382, 22.5, 0.362)
pt3dadd(188.861, 153.499, 22.519, 0.346)
pt3dadd(188.86, 153.617, 22.538, 0.33)
pt3dadd(188.86, 153.734, 22.558, 0.314)
pt3dadd(188.86, 153.852, 22.577, 0.298)
pt3dadd(188.86, 153.97, 22.597, 0.284)
pt3dadd(188.86, 154.087, 22.616, 0.268)
pt3dadd(188.858, 154.205, 22.635, 0.252)
pt3dadd(188.858, 154.322, 22.655, 0.236)
pt3dadd(188.858, 154.441, 22.672, 0.226)
pt3dadd(188.857, 154.56, 22.685, 0.226)
pt3dadd(188.857, 154.679, 22.699, 0.226)
pt3dadd(188.857, 154.798, 22.712, 0.226)
pt3dadd(188.856, 154.916, 22.726, 0.226)
pt3dadd(188.856, 155.035, 22.739, 0.226)
pt3dadd(188.855, 155.154, 22.752, 0.226)
pt3dadd(188.855, 155.273, 22.766, 0.226)
pt3dadd(188.855, 155.393, 22.779, 0.226)
pt3dadd(188.854, 155.512, 22.793, 0.226)
pt3dadd(188.854, 155.63, 22.804, 0.226)
pt3dadd(188.852, 155.75, 22.813, 0.226)
pt3dadd(188.851, 155.869, 22.821, 0.226)
pt3dadd(188.851, 155.989, 22.83, 0.226)
pt3dadd(188.85, 156.108, 22.838, 0.226)
pt3dadd(188.849, 156.228, 22.847, 0.226)
pt3dadd(188.849, 156.348, 22.856, 0.226)
pt3dadd(188.848, 156.467, 22.864, 0.226)
pt3dadd(188.846, 156.587, 22.873, 0.226)
pt3dadd(188.845, 156.707, 22.881, 0.226)
pt3dadd(188.845, 156.826, 22.891, 0.226)
pt3dadd(188.843, 156.944, 22.904, 0.226)
pt3dadd(188.842, 157.064, 22.916, 0.226)
pt3dadd(188.84, 157.183, 22.928, 0.226)
pt3dadd(188.839, 157.302, 22.941, 0.226)
pt3dadd(188.838, 157.421, 22.953, 0.226)
pt3dadd(188.837, 157.54, 22.965, 0.226)
pt3dadd(188.836, 157.66, 22.978, 0.226)
pt3dadd(188.834, 157.778, 22.99, 0.226)
pt3dadd(188.833, 157.897, 23.002, 0.226)
pt3dadd(188.831, 158.016, 23.016, 0.228)
pt3dadd(188.83, 158.135, 23.032, 0.23)
pt3dadd(188.827, 158.254, 23.048, 0.232)
pt3dadd(188.826, 158.371, 23.063, 0.236)
pt3dadd(188.824, 158.49, 23.079, 0.238)
pt3dadd(188.821, 158.609, 23.095, 0.24)
pt3dadd(188.82, 158.728, 23.11, 0.244)
pt3dadd(188.818, 158.845, 23.126, 0.246)
pt3dadd(188.816, 158.964, 23.142, 0.25)
pt3dadd(188.814, 159.083, 23.157, 0.252)
pt3dadd(188.812, 159.197, 23.184, 0.284)
pt3dadd(188.808, 159.305, 23.227, 0.364)
pt3dadd(188.806, 159.414, 23.27, 0.442)
pt3dadd(188.802, 159.522, 23.313, 0.52)
pt3dadd(188.798, 159.63, 23.356, 0.598)
pt3dadd(188.795, 159.738, 23.4, 0.676)
pt3dadd(188.792, 159.846, 23.443, 0.754)
pt3dadd(188.789, 159.955, 23.486, 0.832)
pt3dadd(188.785, 160.063, 23.529, 0.91)
pt3dadd(188.783, 160.171, 23.572, 0.988)
pt3dadd(188.778, 160.28, 23.614, 1.048)
pt3dadd(188.773, 160.39, 23.655, 1.078)
pt3dadd(188.768, 160.499, 23.696, 1.108)
pt3dadd(188.764, 160.608, 23.737, 1.138)
pt3dadd(188.759, 160.717, 23.778, 1.168)
pt3dadd(188.754, 160.828, 23.818, 1.2)
pt3dadd(188.749, 160.937, 23.859, 1.23)
pt3dadd(188.744, 161.046, 23.9, 1.26)
pt3dadd(188.74, 161.155, 23.941, 1.29)
pt3dadd(188.735, 161.264, 23.982, 1.32)
pt3dadd(188.729, 161.375, 24.02, 1.304)
pt3dadd(188.72, 161.488, 24.056, 1.224)
pt3dadd(188.713, 161.599, 24.091, 1.144)
pt3dadd(188.705, 161.711, 24.126, 1.062)
pt3dadd(188.696, 161.824, 24.162, 0.982)
pt3dadd(188.688, 161.935, 24.197, 0.9)
pt3dadd(188.68, 162.047, 24.232, 0.82)
pt3dadd(188.672, 162.158, 24.268, 0.738)
pt3dadd(188.664, 162.271, 24.303, 0.658)
pt3dadd(188.656, 162.383, 24.338, 0.576)
pt3dadd(188.646, 162.493, 24.377, 0.532)
pt3dadd(188.635, 162.601, 24.42, 0.542)
pt3dadd(188.624, 162.708, 24.463, 0.552)
pt3dadd(188.612, 162.816, 24.506, 0.56)
pt3dadd(188.602, 162.924, 24.549, 0.57)
pt3dadd(188.591, 163.032, 24.593, 0.58)
pt3dadd(188.579, 163.139, 24.636, 0.588)
pt3dadd(188.568, 163.247, 24.679, 0.598)
pt3dadd(188.557, 163.355, 24.722, 0.606)
pt3dadd(188.545, 163.463, 24.765, 0.616)
pt3dadd(188.533, 163.568, 24.81, 0.648)
pt3dadd(188.52, 163.674, 24.857, 0.712)
pt3dadd(188.508, 163.778, 24.905, 0.774)
pt3dadd(188.495, 163.883, 24.952, 0.838)
pt3dadd(188.482, 163.988, 25, 0.902)
pt3dadd(188.468, 164.093, 25.047, 0.964)
pt3dadd(188.455, 164.197, 25.095, 1.028)
pt3dadd(188.443, 164.303, 25.142, 1.09)
}
}
proc shape3d_83() {
apic[24] { pt3dadd(188.43, 164.407, 25.19, 1.154)
pt3dadd(188.417, 164.513, 25.237, 1.216)
pt3dadd(188.393, 164.618, 25.278, 1.244)
pt3dadd(188.353, 164.724, 25.31, 1.222)
pt3dadd(188.314, 164.831, 25.342, 1.2)
pt3dadd(188.274, 164.938, 25.374, 1.178)
pt3dadd(188.234, 165.044, 25.406, 1.156)
pt3dadd(188.196, 165.151, 25.438, 1.134)
pt3dadd(188.156, 165.258, 25.47, 1.112)
pt3dadd(188.117, 165.365, 25.502, 1.09)
pt3dadd(188.077, 165.47, 25.534, 1.068)
pt3dadd(188.038, 165.577, 25.566, 1.046)
pt3dadd(187.997, 165.684, 25.596, 1.018)
pt3dadd(187.952, 165.791, 25.625, 0.984)
pt3dadd(187.909, 165.898, 25.653, 0.95)
pt3dadd(187.866, 166.004, 25.681, 0.916)
pt3dadd(187.823, 166.11, 25.709, 0.882)
pt3dadd(187.78, 166.217, 25.738, 0.848)
pt3dadd(187.735, 166.324, 25.766, 0.814)
pt3dadd(187.692, 166.43, 25.794, 0.782)
pt3dadd(187.649, 166.537, 25.823, 0.748)
pt3dadd(187.606, 166.643, 25.851, 0.714)
pt3dadd(187.568, 166.753, 25.877, 0.71)
pt3dadd(187.536, 166.865, 25.899, 0.738)
pt3dadd(187.505, 166.978, 25.922, 0.766)
pt3dadd(187.474, 167.09, 25.945, 0.792)
pt3dadd(187.441, 167.203, 25.968, 0.82)
pt3dadd(187.41, 167.315, 25.991, 0.846)
pt3dadd(187.379, 167.428, 26.014, 0.874)
pt3dadd(187.346, 167.54, 26.036, 0.9)
pt3dadd(187.315, 167.653, 26.059, 0.928)
pt3dadd(187.284, 167.765, 26.082, 0.956)
pt3dadd(187.254, 167.878, 26.108, 0.974)
pt3dadd(187.228, 167.988, 26.138, 0.984)
pt3dadd(187.2, 168.1, 26.168, 0.996)
pt3dadd(187.172, 168.211, 26.197, 1.006)
pt3dadd(187.146, 168.323, 26.227, 1.018)
pt3dadd(187.118, 168.433, 26.257, 1.028)
pt3dadd(187.091, 168.545, 26.286, 1.04)
pt3dadd(187.064, 168.656, 26.316, 1.05)
pt3dadd(187.037, 168.768, 26.345, 1.062)
pt3dadd(187.009, 168.88, 26.375, 1.072)
pt3dadd(186.985, 168.989, 26.41, 1.07)
pt3dadd(186.965, 169.097, 26.449, 1.056)
pt3dadd(186.944, 169.206, 26.489, 1.044)
pt3dadd(186.924, 169.314, 26.528, 1.03)
pt3dadd(186.902, 169.422, 26.567, 1.016)
pt3dadd(186.882, 169.531, 26.607, 1.004)
pt3dadd(186.862, 169.639, 26.646, 0.99)
pt3dadd(186.84, 169.747, 26.685, 0.978)
pt3dadd(186.82, 169.855, 26.724, 0.964)
pt3dadd(186.799, 169.964, 26.764, 0.952)
pt3dadd(186.78, 170.075, 26.8, 0.932)
pt3dadd(186.763, 170.186, 26.833, 0.91)
pt3dadd(186.745, 170.298, 26.867, 0.886)
pt3dadd(186.728, 170.41, 26.901, 0.864)
pt3dadd(186.712, 170.521, 26.934, 0.84)
pt3dadd(186.694, 170.633, 26.968, 0.818)
pt3dadd(186.677, 170.744, 27.001, 0.794)
pt3dadd(186.66, 170.856, 27.035, 0.772)
pt3dadd(186.643, 170.968, 27.069, 0.748)
pt3dadd(186.625, 171.08, 27.102, 0.726)
pt3dadd(186.608, 171.192, 27.134, 0.702)
pt3dadd(186.592, 171.305, 27.165, 0.676)
pt3dadd(186.574, 171.418, 27.195, 0.652)
pt3dadd(186.557, 171.532, 27.226, 0.628)
pt3dadd(186.54, 171.644, 27.256, 0.604)
pt3dadd(186.523, 171.757, 27.287, 0.578)
pt3dadd(186.506, 171.87, 27.317, 0.554)
pt3dadd(186.488, 171.983, 27.348, 0.53)
pt3dadd(186.472, 172.096, 27.379, 0.506)
pt3dadd(186.455, 172.208, 27.409, 0.48)
pt3dadd(186.419, 172.318, 27.435, 0.494)
pt3dadd(186.371, 172.424, 27.457, 0.534)
pt3dadd(186.323, 172.531, 27.479, 0.574)
pt3dadd(186.275, 172.638, 27.501, 0.614)
pt3dadd(186.227, 172.745, 27.523, 0.652)
pt3dadd(186.178, 172.852, 27.545, 0.692)
pt3dadd(186.13, 172.958, 27.567, 0.732)
pt3dadd(186.082, 173.065, 27.59, 0.772)
pt3dadd(186.034, 173.171, 27.612, 0.812)
pt3dadd(185.986, 173.278, 27.634, 0.852)
pt3dadd(185.939, 173.384, 27.659, 0.872)
pt3dadd(185.894, 173.49, 27.688, 0.88)
pt3dadd(185.849, 173.597, 27.716, 0.888)
pt3dadd(185.804, 173.702, 27.744, 0.896)
pt3dadd(185.76, 173.808, 27.772, 0.904)
pt3dadd(185.714, 173.915, 27.801, 0.914)
pt3dadd(185.67, 174.02, 27.829, 0.922)
pt3dadd(185.626, 174.126, 27.857, 0.93)
pt3dadd(185.58, 174.233, 27.885, 0.938)
pt3dadd(185.536, 174.338, 27.913, 0.946)
pt3dadd(185.495, 174.443, 27.949, 0.916)
pt3dadd(185.458, 174.546, 27.989, 0.862)
pt3dadd(185.419, 174.649, 28.028, 0.808)
pt3dadd(185.382, 174.754, 28.068, 0.754)
pt3dadd(185.344, 174.857, 28.108, 0.7)
pt3dadd(185.306, 174.96, 28.148, 0.648)
pt3dadd(185.268, 175.063, 28.188, 0.594)
pt3dadd(185.231, 175.166, 28.227, 0.54)
pt3dadd(185.192, 175.27, 28.267, 0.486)
pt3dadd(185.155, 175.374, 28.307, 0.432)
pt3dadd(185.118, 175.478, 28.344, 0.414)
pt3dadd(185.083, 175.585, 28.379, 0.414)
pt3dadd(185.048, 175.692, 28.414, 0.414)
pt3dadd(185.012, 175.799, 28.449, 0.414)
pt3dadd(184.978, 175.906, 28.484, 0.416)
pt3dadd(184.943, 176.012, 28.519, 0.416)
pt3dadd(184.907, 176.119, 28.554, 0.416)
pt3dadd(184.872, 176.226, 28.589, 0.418)
pt3dadd(184.837, 176.333, 28.624, 0.418)
pt3dadd(184.802, 176.44, 28.659, 0.418)
pt3dadd(184.764, 176.546, 28.692, 0.442)
pt3dadd(184.726, 176.653, 28.724, 0.48)
pt3dadd(184.687, 176.76, 28.756, 0.516)
pt3dadd(184.648, 176.867, 28.788, 0.554)
pt3dadd(184.609, 176.974, 28.82, 0.59)
pt3dadd(184.57, 177.08, 28.852, 0.628)
pt3dadd(184.531, 177.187, 28.885, 0.664)
pt3dadd(184.493, 177.294, 28.917, 0.702)
pt3dadd(184.453, 177.401, 28.949, 0.738)
pt3dadd(184.415, 177.508, 28.981, 0.774)
pt3dadd(184.35, 177.601, 29.01, 0.85)
pt3dadd(184.276, 177.689, 29.038, 0.938)
pt3dadd(184.201, 177.776, 29.065, 1.026)
pt3dadd(184.127, 177.865, 29.093, 1.114)
pt3dadd(184.052, 177.953, 29.121, 1.202)
pt3dadd(183.978, 178.04, 29.149, 1.29)
pt3dadd(183.904, 178.129, 29.176, 1.38)
pt3dadd(183.829, 178.217, 29.204, 1.468)
pt3dadd(183.754, 178.304, 29.232, 1.556)
pt3dadd(183.679, 178.393, 29.26, 1.644)
pt3dadd(183.616, 178.484, 29.296, 1.634)
pt3dadd(183.557, 178.578, 29.335, 1.584)
pt3dadd(183.498, 178.67, 29.375, 1.534)
pt3dadd(183.438, 178.764, 29.414, 1.486)
pt3dadd(183.379, 178.856, 29.453, 1.436)
pt3dadd(183.32, 178.95, 29.492, 1.386)
pt3dadd(183.262, 179.042, 29.532, 1.338)
pt3dadd(183.202, 179.136, 29.571, 1.288)
pt3dadd(183.143, 179.23, 29.611, 1.238)
pt3dadd(183.084, 179.322, 29.65, 1.19)
pt3dadd(183.023, 179.417, 29.686, 1.14)
pt3dadd(182.962, 179.51, 29.721, 1.09)
pt3dadd(182.9, 179.605, 29.756, 1.04)
pt3dadd(182.839, 179.699, 29.791, 0.988)
pt3dadd(182.778, 179.794, 29.826, 0.938)
pt3dadd(182.717, 179.887, 29.861, 0.888)
pt3dadd(182.656, 179.982, 29.896, 0.838)
pt3dadd(182.594, 180.077, 29.931, 0.788)
pt3dadd(182.533, 180.17, 29.966, 0.738)
pt3dadd(182.472, 180.265, 30.001, 0.688)
pt3dadd(182.404, 180.359, 30.025, 0.678)
pt3dadd(182.333, 180.452, 30.046, 0.678)
pt3dadd(182.263, 180.546, 30.068, 0.678)
pt3dadd(182.192, 180.641, 30.089, 0.678)
pt3dadd(182.122, 180.734, 30.111, 0.678)
pt3dadd(182.052, 180.828, 30.132, 0.678)
pt3dadd(181.981, 180.922, 30.153, 0.678)
pt3dadd(181.912, 181.015, 30.175, 0.678)
pt3dadd(181.841, 181.109, 30.196, 0.678)
pt3dadd(181.771, 181.204, 30.218, 0.678)
pt3dadd(181.7, 181.298, 30.234, 0.668)
pt3dadd(181.63, 181.393, 30.248, 0.654)
pt3dadd(181.559, 181.489, 30.262, 0.642)
pt3dadd(181.488, 181.584, 30.276, 0.628)
pt3dadd(181.417, 181.68, 30.291, 0.616)
pt3dadd(181.346, 181.775, 30.305, 0.602)
pt3dadd(181.276, 181.871, 30.319, 0.59)
pt3dadd(181.205, 181.966, 30.334, 0.578)
pt3dadd(181.134, 182.062, 30.348, 0.564)
pt3dadd(181.063, 182.156, 30.362, 0.552)
pt3dadd(180.992, 182.252, 30.372, 0.53)
pt3dadd(180.922, 182.35, 30.38, 0.506)
pt3dadd(180.851, 182.446, 30.389, 0.484)
pt3dadd(180.78, 182.542, 30.397, 0.46)
pt3dadd(180.709, 182.638, 30.405, 0.438)
pt3dadd(180.638, 182.734, 30.414, 0.414)
pt3dadd(180.566, 182.831, 30.422, 0.39)
pt3dadd(180.496, 182.927, 30.431, 0.368)
pt3dadd(180.425, 183.023, 30.439, 0.344)
pt3dadd(180.354, 183.119, 30.448, 0.322)
pt3dadd(180.292, 183.221, 30.451, 0.322)
pt3dadd(180.229, 183.324, 30.454, 0.33)
pt3dadd(180.168, 183.427, 30.457, 0.336)
pt3dadd(180.107, 183.53, 30.459, 0.342)
pt3dadd(180.046, 183.634, 30.462, 0.348)
pt3dadd(179.983, 183.736, 30.465, 0.356)
pt3dadd(179.922, 183.839, 30.467, 0.362)
pt3dadd(179.861, 183.942, 30.47, 0.368)
pt3dadd(179.8, 184.045, 30.473, 0.374)
pt3dadd(179.738, 184.148, 30.475, 0.382)
pt3dadd(179.682, 184.254, 30.475, 0.404)
pt3dadd(179.628, 184.361, 30.473, 0.43)
pt3dadd(179.573, 184.468, 30.472, 0.456)
pt3dadd(179.519, 184.574, 30.471, 0.482)
pt3dadd(179.464, 184.681, 30.47, 0.508)
pt3dadd(179.408, 184.788, 30.469, 0.532)
pt3dadd(179.354, 184.895, 30.468, 0.558)
pt3dadd(179.299, 185.002, 30.467, 0.584)
}
}
proc shape3d_84() {
apic[24] { pt3dadd(179.245, 185.108, 30.465, 0.61)
pt3dadd(179.19, 185.215, 30.464, 0.636)
pt3dadd(179.13, 185.32, 30.462, 0.652)
pt3dadd(179.069, 185.423, 30.46, 0.666)
pt3dadd(179.008, 185.526, 30.458, 0.68)
pt3dadd(178.946, 185.629, 30.456, 0.694)
pt3dadd(178.886, 185.732, 30.454, 0.708)
pt3dadd(178.825, 185.836, 30.452, 0.724)
pt3dadd(178.764, 185.939, 30.45, 0.738)
pt3dadd(178.703, 186.043, 30.448, 0.752)
pt3dadd(178.642, 186.146, 30.446, 0.766)
pt3dadd(178.582, 186.25, 30.444, 0.782)
pt3dadd(178.519, 186.353, 30.442, 0.794)
pt3dadd(178.458, 186.455, 30.44, 0.806)
pt3dadd(178.396, 186.558, 30.437, 0.816)
pt3dadd(178.334, 186.661, 30.435, 0.828)
pt3dadd(178.273, 186.764, 30.433, 0.84)
pt3dadd(178.211, 186.866, 30.431, 0.852)
pt3dadd(178.15, 186.97, 30.428, 0.864)
pt3dadd(178.087, 187.073, 30.426, 0.876)
pt3dadd(178.026, 187.175, 30.424, 0.888)
pt3dadd(177.964, 187.278, 30.422, 0.9)
pt3dadd(177.917, 187.388, 30.416, 0.89)
pt3dadd(177.871, 187.499, 30.41, 0.876)
pt3dadd(177.826, 187.61, 30.404, 0.862)
pt3dadd(177.781, 187.721, 30.398, 0.85)
pt3dadd(177.736, 187.831, 30.392, 0.836)
pt3dadd(177.69, 187.943, 30.387, 0.822)
pt3dadd(177.644, 188.053, 30.381, 0.81)
pt3dadd(177.599, 188.165, 30.375, 0.796)
pt3dadd(177.554, 188.275, 30.369, 0.782)
pt3dadd(177.509, 188.386, 30.363, 0.77)
pt3dadd(177.458, 188.495, 30.356, 0.752)
pt3dadd(177.407, 188.603, 30.349, 0.736)
pt3dadd(177.355, 188.711, 30.342, 0.718)
pt3dadd(177.304, 188.819, 30.336, 0.702)
pt3dadd(177.253, 188.927, 30.329, 0.684)
pt3dadd(177.202, 189.035, 30.322, 0.668)
pt3dadd(177.15, 189.144, 30.315, 0.65)
pt3dadd(177.098, 189.252, 30.308, 0.634)
pt3dadd(177.048, 189.36, 30.302, 0.616)
pt3dadd(176.996, 189.468, 30.295, 0.6)
pt3dadd(176.934, 189.57, 30.286, 0.576)
pt3dadd(176.872, 189.672, 30.278, 0.55)
pt3dadd(176.809, 189.774, 30.269, 0.526)
pt3dadd(176.746, 189.875, 30.26, 0.502)
pt3dadd(176.683, 189.977, 30.252, 0.478)
pt3dadd(176.62, 190.079, 30.243, 0.454)
pt3dadd(176.557, 190.181, 30.234, 0.428)
pt3dadd(176.495, 190.282, 30.226, 0.404)
pt3dadd(176.431, 190.384, 30.217, 0.38)
pt3dadd(176.369, 190.486, 30.208, 0.356)
pt3dadd(176.312, 190.589, 30.189, 0.342)
pt3dadd(176.257, 190.692, 30.169, 0.328)
pt3dadd(176.202, 190.796, 30.149, 0.316)
pt3dadd(176.146, 190.9, 30.129, 0.302)
pt3dadd(176.09, 191.003, 30.108, 0.29)
pt3dadd(176.035, 191.107, 30.088, 0.278)
pt3dadd(175.98, 191.21, 30.068, 0.264)
pt3dadd(175.924, 191.315, 30.048, 0.252)
pt3dadd(175.868, 191.418, 30.028, 0.238)
pt3dadd(175.813, 191.521, 30.008, 0.226)
pt3dadd(175.766, 191.626, 29.975, 0.226)
pt3dadd(175.72, 191.729, 29.943, 0.226)
pt3dadd(175.674, 191.832, 29.911, 0.226)
pt3dadd(175.627, 191.936, 29.879, 0.226)
pt3dadd(175.58, 192.04, 29.847, 0.226)
pt3dadd(175.534, 192.144, 29.815, 0.226)
pt3dadd(175.487, 192.247, 29.783, 0.226)
pt3dadd(175.441, 192.35, 29.751, 0.226)
pt3dadd(175.394, 192.455, 29.719, 0.226)
pt3dadd(175.348, 192.558, 29.686, 0.226)
pt3dadd(175.288, 192.659, 29.666, 0.258)
pt3dadd(175.229, 192.761, 29.645, 0.29)
pt3dadd(175.169, 192.862, 29.625, 0.322)
pt3dadd(175.109, 192.962, 29.605, 0.356)
pt3dadd(175.049, 193.064, 29.584, 0.388)
pt3dadd(174.99, 193.165, 29.564, 0.42)
pt3dadd(174.93, 193.266, 29.543, 0.452)
pt3dadd(174.87, 193.368, 29.523, 0.484)
pt3dadd(174.811, 193.469, 29.502, 0.516)
pt3dadd(174.751, 193.57, 29.482, 0.55)
pt3dadd(174.685, 193.669, 29.468, 0.598)
pt3dadd(174.619, 193.768, 29.453, 0.646)
pt3dadd(174.554, 193.867, 29.439, 0.692)
pt3dadd(174.488, 193.966, 29.424, 0.74)
pt3dadd(174.424, 194.065, 29.41, 0.788)
pt3dadd(174.358, 194.164, 29.395, 0.836)
pt3dadd(174.293, 194.263, 29.38, 0.884)
pt3dadd(174.227, 194.363, 29.366, 0.932)
pt3dadd(174.162, 194.461, 29.351, 0.98)
pt3dadd(174.096, 194.561, 29.337, 1.024)
pt3dadd(174.026, 194.658, 29.335, 1.036)
pt3dadd(173.957, 194.755, 29.332, 1.046)
pt3dadd(173.887, 194.854, 29.329, 1.056)
pt3dadd(173.818, 194.951, 29.326, 1.068)
pt3dadd(173.748, 195.049, 29.323, 1.078)
pt3dadd(173.678, 195.146, 29.32, 1.088)
pt3dadd(173.609, 195.245, 29.317, 1.1)
pt3dadd(173.539, 195.342, 29.314, 1.11)
pt3dadd(173.47, 195.439, 29.312, 1.12)
pt3dadd(173.4, 195.538, 29.309, 1.13)
pt3dadd(173.329, 195.635, 29.309, 1.13)
pt3dadd(173.258, 195.732, 29.31, 1.13)
pt3dadd(173.189, 195.828, 29.311, 1.13)
pt3dadd(173.118, 195.925, 29.311, 1.13)
pt3dadd(173.047, 196.022, 29.311, 1.13)
pt3dadd(172.976, 196.12, 29.312, 1.13)
pt3dadd(172.907, 196.217, 29.313, 1.13)
pt3dadd(172.836, 196.314, 29.313, 1.13)
pt3dadd(172.765, 196.411, 29.314, 1.13)
pt3dadd(172.696, 196.508, 29.316, 1.128)
pt3dadd(172.643, 196.61, 29.345, 1.108)
pt3dadd(172.589, 196.711, 29.374, 1.086)
pt3dadd(172.535, 196.813, 29.403, 1.066)
pt3dadd(172.481, 196.914, 29.433, 1.046)
pt3dadd(172.428, 197.016, 29.462, 1.024)
pt3dadd(172.374, 197.118, 29.491, 1.004)
pt3dadd(172.32, 197.219, 29.52, 0.982)
pt3dadd(172.267, 197.321, 29.549, 0.962)
pt3dadd(172.213, 197.422, 29.578, 0.94)
pt3dadd(172.16, 197.524, 29.608, 0.92)
pt3dadd(172.11, 197.624, 29.642, 0.894)
pt3dadd(172.06, 197.726, 29.676, 0.87)
pt3dadd(172.01, 197.827, 29.709, 0.846)
pt3dadd(171.96, 197.928, 29.743, 0.822)
pt3dadd(171.911, 198.03, 29.777, 0.798)
pt3dadd(171.86, 198.131, 29.811, 0.772)
pt3dadd(171.811, 198.233, 29.845, 0.748)
pt3dadd(171.761, 198.334, 29.879, 0.724)
pt3dadd(171.71, 198.434, 29.913, 0.7)
pt3dadd(171.66, 198.536, 29.945, 0.676)
pt3dadd(171.604, 198.638, 29.967, 0.65)
pt3dadd(171.547, 198.742, 29.988, 0.626)
pt3dadd(171.49, 198.844, 30.01, 0.6)
pt3dadd(171.433, 198.947, 30.031, 0.576)
pt3dadd(171.377, 199.049, 30.053, 0.55)
pt3dadd(171.32, 199.152, 30.074, 0.526)
pt3dadd(171.264, 199.255, 30.096, 0.502)
pt3dadd(171.208, 199.357, 30.117, 0.476)
pt3dadd(171.151, 199.46, 30.139, 0.452)
pt3dadd(171.095, 199.562, 30.16, 0.428)
pt3dadd(171.041, 199.668, 30.18, 0.41)
pt3dadd(170.988, 199.772, 30.199, 0.392)
pt3dadd(170.934, 199.877, 30.219, 0.374)
pt3dadd(170.881, 199.982, 30.239, 0.356)
pt3dadd(170.827, 200.087, 30.259, 0.336)
pt3dadd(170.773, 200.191, 30.278, 0.318)
pt3dadd(170.72, 200.297, 30.298, 0.3)
pt3dadd(170.666, 200.401, 30.318, 0.282)
pt3dadd(170.614, 200.506, 30.337, 0.264)
pt3dadd(170.563, 200.612, 30.355, 0.252)
pt3dadd(170.525, 200.725, 30.367, 0.266)
pt3dadd(170.486, 200.838, 30.378, 0.28)
pt3dadd(170.448, 200.951, 30.389, 0.294)
pt3dadd(170.41, 201.064, 30.4, 0.308)
pt3dadd(170.372, 201.178, 30.411, 0.32)
pt3dadd(170.334, 201.29, 30.422, 0.334)
pt3dadd(170.296, 201.403, 30.433, 0.348)
pt3dadd(170.257, 201.516, 30.445, 0.362)
pt3dadd(170.219, 201.629, 30.456, 0.376)
pt3dadd(170.182, 201.743, 30.466, 0.39)
pt3dadd(170.147, 201.857, 30.472, 0.404)
pt3dadd(170.112, 201.972, 30.478, 0.418)
pt3dadd(170.077, 202.086, 30.484, 0.432)
pt3dadd(170.042, 202.201, 30.49, 0.444)
pt3dadd(170.008, 202.315, 30.496, 0.46)
pt3dadd(169.973, 202.43, 30.502, 0.474)
pt3dadd(169.938, 202.544, 30.508, 0.486)
pt3dadd(169.904, 202.66, 30.514, 0.5)
pt3dadd(169.87, 202.774, 30.52, 0.514)
pt3dadd(169.835, 202.889, 30.526, 0.528)
pt3dadd(169.804, 203.005, 30.527, 0.542)
pt3dadd(169.772, 203.12, 30.528, 0.558)
pt3dadd(169.741, 203.237, 30.53, 0.572)
pt3dadd(169.71, 203.352, 30.531, 0.586)
pt3dadd(169.679, 203.468, 30.533, 0.6)
pt3dadd(169.648, 203.584, 30.534, 0.614)
pt3dadd(169.616, 203.7, 30.535, 0.628)
pt3dadd(169.585, 203.816, 30.537, 0.642)
pt3dadd(169.554, 203.932, 30.538, 0.656)
pt3dadd(169.518, 204.046, 30.54, 0.668)
pt3dadd(169.465, 204.154, 30.542, 0.668)
pt3dadd(169.412, 204.262, 30.545, 0.67)
pt3dadd(169.36, 204.368, 30.548, 0.67)
pt3dadd(169.307, 204.476, 30.55, 0.672)
pt3dadd(169.254, 204.584, 30.553, 0.674)
pt3dadd(169.202, 204.692, 30.555, 0.674)
pt3dadd(169.15, 204.8, 30.558, 0.676)
pt3dadd(169.097, 204.907, 30.56, 0.676)
pt3dadd(169.044, 205.015, 30.563, 0.678)
pt3dadd(168.991, 205.123, 30.566, 0.678)
pt3dadd(168.937, 205.231, 30.569, 0.678)
pt3dadd(168.884, 205.338, 30.573, 0.678)
pt3dadd(168.832, 205.446, 30.577, 0.678)
pt3dadd(168.778, 205.553, 30.58, 0.678)
pt3dadd(168.725, 205.661, 30.584, 0.678)
pt3dadd(168.672, 205.768, 30.587, 0.678)
pt3dadd(168.618, 205.876, 30.591, 0.678)
pt3dadd(168.565, 205.982, 30.595, 0.678)
}
}
proc shape3d_85() {
apic[24] { pt3dadd(168.512, 206.09, 30.598, 0.678)
pt3dadd(168.46, 206.198, 30.603, 0.678)
pt3dadd(168.412, 206.308, 30.61, 0.678)
pt3dadd(168.362, 206.417, 30.617, 0.678)
pt3dadd(168.314, 206.527, 30.624, 0.678)
pt3dadd(168.266, 206.636, 30.631, 0.678)
pt3dadd(168.217, 206.746, 30.638, 0.678)
pt3dadd(168.169, 206.855, 30.645, 0.678)
pt3dadd(168.12, 206.964, 30.652, 0.678)
pt3dadd(168.072, 207.074, 30.659, 0.678)
pt3dadd(168.024, 207.184, 30.666, 0.678)
pt3dadd(167.972, 207.292, 30.673, 0.68)
pt3dadd(167.91, 207.394, 30.683, 0.688)
pt3dadd(167.849, 207.496, 30.692, 0.696)
pt3dadd(167.786, 207.598, 30.702, 0.706)
pt3dadd(167.725, 207.7, 30.711, 0.714)
pt3dadd(167.663, 207.803, 30.721, 0.722)
pt3dadd(167.602, 207.905, 30.73, 0.732)
pt3dadd(167.539, 208.007, 30.74, 0.74)
pt3dadd(167.478, 208.109, 30.749, 0.748)
pt3dadd(167.416, 208.212, 30.759, 0.756)
pt3dadd(167.352, 208.313, 30.769, 0.766)
pt3dadd(167.284, 208.41, 30.78, 0.78)
pt3dadd(167.214, 208.507, 30.791, 0.794)
pt3dadd(167.146, 208.604, 30.802, 0.806)
pt3dadd(167.076, 208.702, 30.813, 0.82)
pt3dadd(167.008, 208.799, 30.823, 0.834)
pt3dadd(166.938, 208.896, 30.834, 0.846)
pt3dadd(166.87, 208.993, 30.845, 0.86)
pt3dadd(166.8, 209.09, 30.856, 0.874)
pt3dadd(166.732, 209.188, 30.867, 0.888)
pt3dadd(166.663, 209.281, 30.888, 0.896)
pt3dadd(166.598, 209.365, 30.934, 0.898)
pt3dadd(166.532, 209.449, 30.98, 0.898)
pt3dadd(166.468, 209.534, 31.026, 0.9)
pt3dadd(166.403, 209.618, 31.073, 0.9)
pt3dadd(166.337, 209.702, 31.119, 0.9)
pt3dadd(166.272, 209.786, 31.165, 0.902)
pt3dadd(166.206, 209.87, 31.211, 0.902)
pt3dadd(166.141, 209.954, 31.257, 0.902)
pt3dadd(166.075, 210.038, 31.303, 0.904)
pt3dadd(166.007, 210.122, 31.345, 0.898)
pt3dadd(165.932, 210.208, 31.379, 0.88)
pt3dadd(165.858, 210.293, 31.413, 0.862)
pt3dadd(165.784, 210.377, 31.446, 0.844)
pt3dadd(165.709, 210.462, 31.48, 0.826)
pt3dadd(165.634, 210.547, 31.514, 0.808)
pt3dadd(165.559, 210.631, 31.547, 0.79)
pt3dadd(165.485, 210.716, 31.581, 0.772)
pt3dadd(165.41, 210.802, 31.615, 0.754)
pt3dadd(165.336, 210.886, 31.649, 0.736)
pt3dadd(165.259, 210.971, 31.679, 0.714)
pt3dadd(165.18, 211.056, 31.703, 0.686)
pt3dadd(165.1, 211.141, 31.727, 0.658)
pt3dadd(165.02, 211.226, 31.752, 0.63)
pt3dadd(164.941, 211.31, 31.776, 0.602)
pt3dadd(164.862, 211.396, 31.801, 0.574)
pt3dadd(164.782, 211.481, 31.825, 0.546)
pt3dadd(164.702, 211.566, 31.849, 0.518)
pt3dadd(164.623, 211.651, 31.874, 0.49)
pt3dadd(164.544, 211.736, 31.898, 0.464)
pt3dadd(164.464, 211.822, 31.917, 0.442)
pt3dadd(164.382, 211.909, 31.928, 0.428)
pt3dadd(164.3, 211.997, 31.94, 0.416)
pt3dadd(164.22, 212.083, 31.951, 0.402)
pt3dadd(164.138, 212.171, 31.962, 0.39)
pt3dadd(164.057, 212.258, 31.974, 0.376)
pt3dadd(163.975, 212.345, 31.985, 0.364)
pt3dadd(163.894, 212.432, 31.996, 0.35)
pt3dadd(163.813, 212.52, 32.008, 0.338)
pt3dadd(163.732, 212.606, 32.019, 0.324)
pt3dadd(163.652, 212.695, 32.029, 0.318)
pt3dadd(163.576, 212.788, 32.038, 0.322)
pt3dadd(163.499, 212.879, 32.047, 0.326)
pt3dadd(163.422, 212.971, 32.055, 0.33)
pt3dadd(163.345, 213.062, 32.064, 0.334)
pt3dadd(163.268, 213.154, 32.073, 0.338)
pt3dadd(163.192, 213.246, 32.082, 0.342)
pt3dadd(163.115, 213.337, 32.09, 0.346)
pt3dadd(163.038, 213.428, 32.099, 0.35)
pt3dadd(162.961, 213.521, 32.108, 0.354)
pt3dadd(162.89, 213.617, 32.114, 0.376)
pt3dadd(162.824, 213.718, 32.117, 0.418)
pt3dadd(162.76, 213.817, 32.119, 0.46)
pt3dadd(162.695, 213.918, 32.122, 0.504)
pt3dadd(162.629, 214.019, 32.125, 0.546)
pt3dadd(162.564, 214.12, 32.128, 0.588)
pt3dadd(162.499, 214.22, 32.131, 0.632)
pt3dadd(162.433, 214.321, 32.133, 0.674)
pt3dadd(162.368, 214.422, 32.136, 0.716)
pt3dadd(162.304, 214.523, 32.139, 0.76)
pt3dadd(162.229, 214.615, 32.144, 0.782)
pt3dadd(162.144, 214.699, 32.151, 0.782)
pt3dadd(162.058, 214.783, 32.158, 0.782)
pt3dadd(161.972, 214.867, 32.164, 0.782)
pt3dadd(161.887, 214.951, 32.171, 0.782)
pt3dadd(161.801, 215.034, 32.178, 0.782)
pt3dadd(161.716, 215.118, 32.185, 0.782)
pt3dadd(161.63, 215.202, 32.192, 0.782)
pt3dadd(161.544, 215.286, 32.199, 0.782)
pt3dadd(161.459, 215.37, 32.206, 0.78)
pt3dadd(161.371, 215.45, 32.214, 0.768)
pt3dadd(161.28, 215.528, 32.224, 0.746)
pt3dadd(161.19, 215.606, 32.234, 0.722)
pt3dadd(161.1, 215.684, 32.244, 0.7)
pt3dadd(161.009, 215.761, 32.254, 0.678)
pt3dadd(160.919, 215.839, 32.264, 0.654)
pt3dadd(160.828, 215.917, 32.274, 0.632)
pt3dadd(160.738, 215.995, 32.284, 0.61)
pt3dadd(160.648, 216.073, 32.294, 0.586)
pt3dadd(160.556, 216.151, 32.304, 0.564)
pt3dadd(160.469, 216.232, 32.316, 0.536)
pt3dadd(160.381, 216.312, 32.328, 0.506)
pt3dadd(160.294, 216.394, 32.34, 0.476)
pt3dadd(160.207, 216.475, 32.353, 0.444)
pt3dadd(160.12, 216.556, 32.365, 0.414)
pt3dadd(160.032, 216.637, 32.377, 0.384)
pt3dadd(159.946, 216.718, 32.39, 0.354)
pt3dadd(159.858, 216.799, 32.402, 0.322)
pt3dadd(159.772, 216.881, 32.414, 0.292)
pt3dadd(159.684, 216.961, 32.427, 0.262)
pt3dadd(159.606, 217.04, 32.46, 0.286)
pt3dadd(159.535, 217.117, 32.509, 0.354)
pt3dadd(159.463, 217.193, 32.558, 0.42)
pt3dadd(159.392, 217.27, 32.608, 0.488)
pt3dadd(159.322, 217.346, 32.657, 0.556)
pt3dadd(159.251, 217.423, 32.706, 0.624)
pt3dadd(159.179, 217.499, 32.756, 0.692)
pt3dadd(159.108, 217.576, 32.805, 0.76)
pt3dadd(159.037, 217.652, 32.854, 0.826)
pt3dadd(158.966, 217.729, 32.903, 0.894)
pt3dadd(158.909, 217.82, 32.945, 0.91)
pt3dadd(158.862, 217.921, 32.981, 0.894)
pt3dadd(158.814, 218.022, 33.018, 0.876)
pt3dadd(158.766, 218.123, 33.054, 0.86)
pt3dadd(158.718, 218.224, 33.091, 0.844)
pt3dadd(158.67, 218.326, 33.127, 0.826)
pt3dadd(158.622, 218.426, 33.164, 0.81)
pt3dadd(158.574, 218.527, 33.2, 0.794)
pt3dadd(158.526, 218.628, 33.236, 0.776)
pt3dadd(158.479, 218.729, 33.273, 0.76)
pt3dadd(158.431, 218.836, 33.298, 0.732)
pt3dadd(158.384, 218.942, 33.32, 0.702)
pt3dadd(158.338, 219.049, 33.342, 0.67)
pt3dadd(158.291, 219.157, 33.364, 0.64)
pt3dadd(158.244, 219.264, 33.386, 0.61)
pt3dadd(158.197, 219.372, 33.408, 0.578)
pt3dadd(158.15, 219.479, 33.43, 0.548)
pt3dadd(158.104, 219.586, 33.452, 0.516)
pt3dadd(158.057, 219.694, 33.474, 0.486)
pt3dadd(158.01, 219.8, 33.496, 0.456)
pt3dadd(157.954, 219.905, 33.508, 0.452)
pt3dadd(157.896, 220.009, 33.519, 0.452)
pt3dadd(157.838, 220.114, 33.53, 0.452)
pt3dadd(157.781, 220.218, 33.541, 0.452)
pt3dadd(157.722, 220.322, 33.552, 0.452)
pt3dadd(157.664, 220.427, 33.562, 0.452)
pt3dadd(157.607, 220.531, 33.573, 0.452)
pt3dadd(157.549, 220.636, 33.584, 0.452)
pt3dadd(157.492, 220.74, 33.595, 0.452)
pt3dadd(157.434, 220.844, 33.606, 0.452)
pt3dadd(157.385, 220.954, 33.609, 0.472)
pt3dadd(157.337, 221.064, 33.611, 0.494)
pt3dadd(157.289, 221.173, 33.613, 0.516)
pt3dadd(157.241, 221.284, 33.615, 0.536)
pt3dadd(157.193, 221.394, 33.617, 0.558)
pt3dadd(157.145, 221.503, 33.619, 0.58)
pt3dadd(157.097, 221.614, 33.621, 0.602)
pt3dadd(157.049, 221.724, 33.623, 0.624)
pt3dadd(157.001, 221.833, 33.625, 0.646)
pt3dadd(156.953, 221.944, 33.627, 0.668)
pt3dadd(156.905, 222.053, 33.627, 0.686)
pt3dadd(156.857, 222.163, 33.627, 0.706)
pt3dadd(156.809, 222.274, 33.627, 0.724)
pt3dadd(156.761, 222.384, 33.627, 0.744)
pt3dadd(156.713, 222.493, 33.627, 0.762)
pt3dadd(156.665, 222.604, 33.627, 0.782)
pt3dadd(156.618, 222.714, 33.627, 0.8)
pt3dadd(156.57, 222.823, 33.627, 0.82)
pt3dadd(156.522, 222.934, 33.627, 0.838)
pt3dadd(156.474, 223.044, 33.627, 0.856)
pt3dadd(156.412, 223.146, 33.627, 0.824)
pt3dadd(156.348, 223.248, 33.627, 0.788)
pt3dadd(156.286, 223.35, 33.627, 0.75)
pt3dadd(156.222, 223.452, 33.627, 0.714)
pt3dadd(156.158, 223.554, 33.627, 0.676)
pt3dadd(156.095, 223.656, 33.627, 0.64)
pt3dadd(156.031, 223.758, 33.627, 0.602)
pt3dadd(155.969, 223.86, 33.627, 0.566)
pt3dadd(155.905, 223.962, 33.627, 0.53)
pt3dadd(155.842, 224.064, 33.627, 0.492)
pt3dadd(155.782, 224.167, 33.627, 0.466)
pt3dadd(155.722, 224.272, 33.627, 0.438)
pt3dadd(155.663, 224.376, 33.627, 0.412)
pt3dadd(155.603, 224.48, 33.627, 0.386)
pt3dadd(155.543, 224.584, 33.627, 0.36)
pt3dadd(155.484, 224.688, 33.627, 0.334)
pt3dadd(155.424, 224.792, 33.627, 0.306)
pt3dadd(155.364, 224.897, 33.627, 0.28)
pt3dadd(155.305, 225.001, 33.627, 0.254)
}
}
proc shape3d_86() {
apic[24] { pt3dadd(155.245, 225.104, 33.627, 0.228)
pt3dadd(155.195, 225.214, 33.627, 0.226)
pt3dadd(155.146, 225.323, 33.627, 0.226)
pt3dadd(155.095, 225.432, 33.627, 0.226)
pt3dadd(155.046, 225.541, 33.627, 0.226)
pt3dadd(154.996, 225.65, 33.627, 0.226)
pt3dadd(154.946, 225.76, 33.627, 0.226)
pt3dadd(154.896, 225.869, 33.627, 0.226)
pt3dadd(154.847, 225.978, 33.627, 0.226)
pt3dadd(154.796, 226.087, 33.627, 0.226)
pt3dadd(154.747, 226.196, 33.627, 0.226)
pt3dadd(154.687, 226.301, 33.627, 0.226)
pt3dadd(154.627, 226.405, 33.627, 0.226)
pt3dadd(154.568, 226.508, 33.627, 0.226)
pt3dadd(154.508, 226.613, 33.627, 0.226)
pt3dadd(154.448, 226.717, 33.627, 0.226)
pt3dadd(154.388, 226.82, 33.627, 0.226)
pt3dadd(154.328, 226.925, 33.627, 0.226)
pt3dadd(154.268, 227.029, 33.627, 0.226)
pt3dadd(154.208, 227.132, 33.627, 0.226)
pt3dadd(154.148, 227.237, 33.627, 0.226)
pt3dadd(154.081, 227.336, 33.627, 0.226)
pt3dadd(154.014, 227.436, 33.627, 0.226)
pt3dadd(153.947, 227.536, 33.627, 0.226)
pt3dadd(153.88, 227.634, 33.627, 0.226)
pt3dadd(153.812, 227.734, 33.627, 0.226)
pt3dadd(153.745, 227.833, 33.627, 0.226)
pt3dadd(153.679, 227.933, 33.627, 0.226)
pt3dadd(153.612, 228.032, 33.627, 0.226)
pt3dadd(153.545, 228.132, 33.627, 0.226)
pt3dadd(153.478, 228.232, 33.627, 0.226)
pt3dadd(153.406, 228.328, 33.627, 0.242)
pt3dadd(153.335, 228.425, 33.627, 0.258)
pt3dadd(153.264, 228.522, 33.627, 0.274)
pt3dadd(153.193, 228.618, 33.627, 0.29)
pt3dadd(153.122, 228.715, 33.627, 0.308)
pt3dadd(153.05, 228.811, 33.627, 0.324)
pt3dadd(152.98, 228.908, 33.627, 0.34)
pt3dadd(152.909, 229.006, 33.627, 0.356)
pt3dadd(152.838, 229.102, 33.627, 0.372)
pt3dadd(152.767, 229.199, 33.627, 0.388)
pt3dadd(152.694, 229.294, 33.627, 0.412)
pt3dadd(152.622, 229.39, 33.627, 0.436)
pt3dadd(152.549, 229.486, 33.627, 0.458)
pt3dadd(152.477, 229.58, 33.627, 0.482)
pt3dadd(152.404, 229.676, 33.627, 0.504)
pt3dadd(152.332, 229.771, 33.627, 0.528)
pt3dadd(152.258, 229.867, 33.627, 0.55)
pt3dadd(152.186, 229.963, 33.627, 0.574)
pt3dadd(152.113, 230.058, 33.627, 0.598)
pt3dadd(152.041, 230.154, 33.627, 0.62)
pt3dadd(151.979, 230.256, 33.627, 0.606)
pt3dadd(151.916, 230.359, 33.627, 0.592)
pt3dadd(151.855, 230.462, 33.627, 0.576)
pt3dadd(151.793, 230.566, 33.627, 0.56)
pt3dadd(151.732, 230.668, 33.627, 0.546)
pt3dadd(151.669, 230.771, 33.627, 0.53)
pt3dadd(151.608, 230.874, 33.627, 0.516)
pt3dadd(151.546, 230.976, 33.627, 0.5)
pt3dadd(151.484, 231.079, 33.627, 0.484)
pt3dadd(151.422, 231.182, 33.627, 0.47)
pt3dadd(151.363, 231.287, 33.627, 0.444)
pt3dadd(151.303, 231.39, 33.627, 0.42)
pt3dadd(151.244, 231.494, 33.627, 0.396)
pt3dadd(151.184, 231.599, 33.627, 0.372)
pt3dadd(151.124, 231.703, 33.627, 0.348)
pt3dadd(151.066, 231.808, 33.627, 0.324)
pt3dadd(151.006, 231.912, 33.627, 0.298)
pt3dadd(150.947, 232.016, 33.627, 0.274)
pt3dadd(150.887, 232.121, 33.627, 0.25)
pt3dadd(150.828, 232.224, 33.627, 0.226)
pt3dadd(150.758, 232.322, 33.627, 0.226)
pt3dadd(150.69, 232.421, 33.627, 0.226)
pt3dadd(150.622, 232.519, 33.627, 0.226)
pt3dadd(150.552, 232.618, 33.627, 0.226)
pt3dadd(150.484, 232.716, 33.627, 0.226)
pt3dadd(150.415, 232.814, 33.627, 0.226)
pt3dadd(150.346, 232.913, 33.627, 0.226)
pt3dadd(150.277, 233.011, 33.627, 0.226)
pt3dadd(150.209, 233.11, 33.627, 0.226)
pt3dadd(150.139, 233.208, 33.627, 0.226)
pt3dadd(150.071, 233.306, 33.627, 0.226)
pt3dadd(150.002, 233.405, 33.627, 0.226)
pt3dadd(149.933, 233.502, 33.627, 0.226)
pt3dadd(149.864, 233.6, 33.627, 0.226)
pt3dadd(149.796, 233.699, 33.627, 0.226)
pt3dadd(149.726, 233.797, 33.627, 0.226)
pt3dadd(149.658, 233.896, 33.627, 0.226)
pt3dadd(149.59, 233.994, 33.627, 0.226)
pt3dadd(149.52, 234.092, 33.627, 0.226)
pt3dadd(149.452, 234.191, 33.627, 0.226)
}
apic[25] {pt3dclear()
pt3dadd(189.968, 140.555, 18.036, 0.904)
pt3dadd(190.004, 140.552, 18.056, 0.9)
pt3dadd(190.103, 140.544, 18.113, 0.892)
pt3dadd(190.202, 140.537, 18.169, 0.884)
pt3dadd(190.301, 140.528, 18.226, 0.876)
pt3dadd(190.399, 140.521, 18.282, 0.868)
pt3dadd(190.499, 140.513, 18.338, 0.858)
pt3dadd(190.597, 140.506, 18.395, 0.85)
pt3dadd(190.696, 140.497, 18.451, 0.842)
pt3dadd(190.795, 140.49, 18.508, 0.834)
pt3dadd(190.894, 140.482, 18.564, 0.826)
pt3dadd(190.992, 140.474, 18.621, 0.816)
pt3dadd(191.09, 140.466, 18.677, 0.808)
pt3dadd(191.19, 140.459, 18.734, 0.8)
pt3dadd(191.288, 140.45, 18.79, 0.792)
pt3dadd(191.387, 140.443, 18.846, 0.784)
pt3dadd(191.486, 140.435, 18.903, 0.774)
pt3dadd(191.585, 140.428, 18.959, 0.766)
pt3dadd(191.683, 140.419, 19.016, 0.758)
pt3dadd(191.782, 140.412, 19.072, 0.75)
pt3dadd(191.881, 140.404, 19.129, 0.742)
pt3dadd(191.98, 140.396, 19.185, 0.732)
pt3dadd(192.078, 140.388, 19.241, 0.724)
pt3dadd(192.185, 140.382, 19.285, 0.714)
pt3dadd(192.299, 140.378, 19.316, 0.704)
pt3dadd(192.413, 140.375, 19.347, 0.692)
pt3dadd(192.527, 140.371, 19.378, 0.68)
pt3dadd(192.641, 140.368, 19.409, 0.67)
pt3dadd(192.755, 140.364, 19.44, 0.658)
pt3dadd(192.869, 140.36, 19.471, 0.648)
pt3dadd(192.983, 140.356, 19.502, 0.636)
pt3dadd(193.097, 140.352, 19.533, 0.624)
pt3dadd(193.211, 140.348, 19.564, 0.614)
pt3dadd(193.331, 140.348, 19.569, 0.6)
pt3dadd(193.451, 140.35, 19.572, 0.588)
pt3dadd(193.571, 140.35, 19.575, 0.574)
pt3dadd(193.691, 140.35, 19.578, 0.562)
pt3dadd(193.811, 140.35, 19.581, 0.548)
pt3dadd(193.931, 140.351, 19.584, 0.536)
pt3dadd(194.051, 140.351, 19.587, 0.522)
pt3dadd(194.171, 140.351, 19.59, 0.51)
pt3dadd(194.291, 140.352, 19.594, 0.496)
pt3dadd(194.411, 140.352, 19.597, 0.484)
pt3dadd(194.53, 140.352, 19.601, 0.468)
pt3dadd(194.65, 140.353, 19.606, 0.454)
pt3dadd(194.77, 140.353, 19.611, 0.438)
pt3dadd(194.89, 140.354, 19.616, 0.422)
pt3dadd(195.01, 140.354, 19.621, 0.406)
pt3dadd(195.13, 140.354, 19.625, 0.392)
pt3dadd(195.25, 140.356, 19.63, 0.376)
pt3dadd(195.37, 140.356, 19.635, 0.36)
pt3dadd(195.49, 140.357, 19.64, 0.346)
pt3dadd(195.608, 140.357, 19.645, 0.33)
pt3dadd(195.728, 140.358, 19.651, 0.338)
pt3dadd(195.848, 140.358, 19.656, 0.35)
pt3dadd(195.968, 140.359, 19.662, 0.36)
pt3dadd(196.088, 140.359, 19.667, 0.372)
pt3dadd(196.208, 140.36, 19.673, 0.382)
pt3dadd(196.327, 140.362, 19.679, 0.394)
pt3dadd(196.447, 140.362, 19.684, 0.404)
pt3dadd(196.567, 140.363, 19.69, 0.416)
pt3dadd(196.687, 140.363, 19.696, 0.426)
pt3dadd(196.807, 140.364, 19.701, 0.438)
pt3dadd(196.927, 140.365, 19.707, 0.492)
pt3dadd(197.046, 140.366, 19.713, 0.55)
pt3dadd(197.166, 140.366, 19.719, 0.608)
pt3dadd(197.286, 140.368, 19.725, 0.666)
pt3dadd(197.406, 140.369, 19.731, 0.724)
pt3dadd(197.526, 140.37, 19.737, 0.78)
pt3dadd(197.646, 140.371, 19.743, 0.838)
pt3dadd(197.765, 140.371, 19.749, 0.896)
pt3dadd(197.885, 140.372, 19.755, 0.954)
pt3dadd(198.005, 140.374, 19.761, 1.012)
pt3dadd(198.121, 140.376, 19.785, 1.026)
pt3dadd(198.238, 140.377, 19.81, 1.038)
pt3dadd(198.353, 140.38, 19.836, 1.05)
pt3dadd(198.469, 140.382, 19.861, 1.06)
pt3dadd(198.586, 140.383, 19.886, 1.072)
pt3dadd(198.702, 140.386, 19.911, 1.084)
pt3dadd(198.817, 140.388, 19.937, 1.096)
pt3dadd(198.934, 140.39, 19.962, 1.106)
pt3dadd(199.05, 140.392, 19.987, 1.118)
pt3dadd(199.166, 140.394, 20.012, 1.13)
pt3dadd(199.283, 140.396, 20.036, 1.13)
pt3dadd(199.399, 140.399, 20.06, 1.13)
pt3dadd(199.516, 140.401, 20.084, 1.13)
pt3dadd(199.632, 140.404, 20.108, 1.13)
pt3dadd(199.748, 140.407, 20.132, 1.13)
pt3dadd(199.865, 140.41, 20.156, 1.13)
pt3dadd(199.981, 140.412, 20.18, 1.13)
pt3dadd(200.098, 140.414, 20.203, 1.13)
pt3dadd(200.214, 140.417, 20.227, 1.13)
pt3dadd(200.332, 140.419, 20.249, 1.13)
pt3dadd(200.45, 140.424, 20.24, 1.13)
pt3dadd(200.57, 140.429, 20.232, 1.13)
pt3dadd(200.689, 140.434, 20.224, 1.13)
pt3dadd(200.809, 140.438, 20.216, 1.13)
pt3dadd(200.929, 140.443, 20.207, 1.13)
pt3dadd(201.048, 140.448, 20.199, 1.13)
pt3dadd(201.168, 140.453, 20.191, 1.13)
pt3dadd(201.287, 140.458, 20.182, 1.13)
pt3dadd(201.407, 140.461, 20.174, 1.13)
pt3dadd(201.526, 140.467, 20.166, 1.128)
pt3dadd(201.646, 140.476, 20.162, 1.112)
pt3dadd(201.766, 140.484, 20.157, 1.094)
pt3dadd(201.884, 140.492, 20.153, 1.078)
pt3dadd(202.004, 140.501, 20.148, 1.06)
pt3dadd(202.124, 140.509, 20.144, 1.044)
pt3dadd(202.243, 140.518, 20.139, 1.026)
}
}
proc shape3d_87() {
apic[25] { pt3dadd(202.363, 140.526, 20.135, 1.01)
pt3dadd(202.483, 140.534, 20.13, 0.992)
pt3dadd(202.602, 140.544, 20.126, 0.976)
pt3dadd(202.722, 140.552, 20.122, 0.958)
pt3dadd(202.841, 140.563, 20.12, 0.93)
pt3dadd(202.961, 140.574, 20.119, 0.902)
pt3dadd(203.081, 140.586, 20.118, 0.874)
pt3dadd(203.2, 140.597, 20.116, 0.846)
pt3dadd(203.32, 140.608, 20.115, 0.818)
pt3dadd(203.438, 140.62, 20.114, 0.79)
pt3dadd(203.558, 140.63, 20.112, 0.762)
pt3dadd(203.677, 140.641, 20.111, 0.734)
pt3dadd(203.797, 140.653, 20.11, 0.706)
pt3dadd(203.916, 140.664, 20.111, 0.682)
pt3dadd(204.03, 140.683, 20.139, 0.696)
pt3dadd(204.144, 140.702, 20.166, 0.71)
pt3dadd(204.258, 140.72, 20.194, 0.724)
pt3dadd(204.371, 140.74, 20.222, 0.736)
pt3dadd(204.485, 140.759, 20.249, 0.75)
pt3dadd(204.599, 140.777, 20.277, 0.764)
pt3dadd(204.713, 140.796, 20.304, 0.778)
pt3dadd(204.827, 140.814, 20.332, 0.792)
pt3dadd(204.941, 140.833, 20.359, 0.806)
pt3dadd(205.054, 140.854, 20.387, 0.818)
pt3dadd(205.165, 140.885, 20.412, 0.822)
pt3dadd(205.277, 140.917, 20.438, 0.826)
pt3dadd(205.388, 140.948, 20.463, 0.83)
pt3dadd(205.5, 140.981, 20.489, 0.834)
pt3dadd(205.612, 141.012, 20.514, 0.838)
pt3dadd(205.723, 141.044, 20.54, 0.842)
pt3dadd(205.835, 141.076, 20.566, 0.846)
pt3dadd(205.946, 141.108, 20.591, 0.85)
pt3dadd(206.058, 141.139, 20.617, 0.854)
pt3dadd(206.168, 141.175, 20.642, 0.854)
pt3dadd(206.273, 141.228, 20.663, 0.842)
pt3dadd(206.377, 141.282, 20.685, 0.83)
pt3dadd(206.482, 141.335, 20.706, 0.816)
pt3dadd(206.586, 141.388, 20.728, 0.804)
pt3dadd(206.69, 141.442, 20.75, 0.792)
pt3dadd(206.795, 141.494, 20.771, 0.78)
pt3dadd(206.899, 141.547, 20.793, 0.766)
pt3dadd(207.004, 141.601, 20.814, 0.754)
pt3dadd(207.108, 141.654, 20.836, 0.742)
pt3dadd(207.212, 141.707, 20.856, 0.73)
pt3dadd(207.32, 141.757, 20.872, 0.726)
pt3dadd(207.427, 141.809, 20.887, 0.72)
pt3dadd(207.534, 141.859, 20.902, 0.714)
pt3dadd(207.641, 141.911, 20.917, 0.708)
pt3dadd(207.749, 141.962, 20.932, 0.704)
pt3dadd(207.856, 142.013, 20.947, 0.698)
pt3dadd(207.962, 142.064, 20.962, 0.692)
pt3dadd(208.069, 142.115, 20.977, 0.688)
pt3dadd(208.176, 142.166, 20.993, 0.682)
pt3dadd(208.284, 142.217, 21.007, 0.678)
pt3dadd(208.392, 142.266, 21.017, 0.678)
pt3dadd(208.501, 142.315, 21.027, 0.678)
pt3dadd(208.61, 142.364, 21.038, 0.678)
pt3dadd(208.718, 142.415, 21.048, 0.678)
pt3dadd(208.828, 142.464, 21.059, 0.678)
pt3dadd(208.936, 142.513, 21.069, 0.678)
pt3dadd(209.045, 142.562, 21.079, 0.678)
pt3dadd(209.153, 142.612, 21.09, 0.678)
pt3dadd(209.262, 142.661, 21.1, 0.678)
pt3dadd(209.369, 142.714, 21.108, 0.676)
pt3dadd(209.47, 142.778, 21.11, 0.666)
pt3dadd(209.572, 142.843, 21.112, 0.656)
pt3dadd(209.672, 142.907, 21.114, 0.646)
pt3dadd(209.773, 142.972, 21.116, 0.634)
pt3dadd(209.875, 143.036, 21.118, 0.624)
pt3dadd(209.976, 143.101, 21.121, 0.614)
pt3dadd(210.077, 143.165, 21.123, 0.604)
pt3dadd(210.179, 143.23, 21.125, 0.594)
pt3dadd(210.28, 143.294, 21.127, 0.584)
pt3dadd(210.38, 143.359, 21.128, 0.574)
pt3dadd(210.48, 143.426, 21.129, 0.562)
pt3dadd(210.58, 143.492, 21.129, 0.55)
pt3dadd(210.679, 143.56, 21.13, 0.538)
pt3dadd(210.779, 143.627, 21.13, 0.526)
pt3dadd(210.878, 143.694, 21.131, 0.514)
pt3dadd(210.978, 143.76, 21.131, 0.502)
pt3dadd(211.078, 143.827, 21.132, 0.49)
pt3dadd(211.177, 143.894, 21.132, 0.478)
pt3dadd(211.277, 143.962, 21.133, 0.466)
pt3dadd(211.376, 144.029, 21.134, 0.462)
pt3dadd(211.472, 144.101, 21.135, 0.484)
pt3dadd(211.568, 144.173, 21.136, 0.506)
pt3dadd(211.664, 144.245, 21.137, 0.528)
pt3dadd(211.76, 144.316, 21.138, 0.55)
pt3dadd(211.856, 144.388, 21.139, 0.572)
pt3dadd(211.954, 144.46, 21.14, 0.594)
pt3dadd(212.05, 144.532, 21.141, 0.614)
pt3dadd(212.146, 144.602, 21.143, 0.636)
pt3dadd(212.242, 144.674, 21.144, 0.658)
pt3dadd(212.338, 144.746, 21.145, 0.68)
pt3dadd(212.434, 144.818, 21.146, 0.704)
pt3dadd(212.53, 144.89, 21.147, 0.726)
pt3dadd(212.627, 144.961, 21.148, 0.748)
pt3dadd(212.723, 145.033, 21.149, 0.772)
pt3dadd(212.819, 145.105, 21.151, 0.794)
pt3dadd(212.915, 145.177, 21.152, 0.818)
pt3dadd(213.011, 145.249, 21.153, 0.84)
pt3dadd(213.107, 145.321, 21.154, 0.864)
pt3dadd(213.203, 145.392, 21.155, 0.886)
pt3dadd(213.301, 145.46, 21.157, 0.9)
pt3dadd(213.407, 145.518, 21.159, 0.888)
pt3dadd(213.511, 145.577, 21.162, 0.874)
pt3dadd(213.617, 145.634, 21.165, 0.862)
pt3dadd(213.722, 145.692, 21.167, 0.85)
pt3dadd(213.827, 145.75, 21.17, 0.836)
pt3dadd(213.932, 145.807, 21.172, 0.824)
pt3dadd(214.037, 145.866, 21.175, 0.812)
pt3dadd(214.142, 145.924, 21.177, 0.798)
pt3dadd(214.248, 145.981, 21.18, 0.786)
pt3dadd(214.352, 146.039, 21.182, 0.774)
pt3dadd(214.457, 146.099, 21.186, 0.768)
pt3dadd(214.561, 146.158, 21.189, 0.76)
pt3dadd(214.666, 146.216, 21.192, 0.754)
pt3dadd(214.77, 146.276, 21.196, 0.746)
pt3dadd(214.874, 146.335, 21.199, 0.74)
pt3dadd(214.979, 146.394, 21.202, 0.732)
pt3dadd(215.082, 146.454, 21.205, 0.724)
pt3dadd(215.186, 146.513, 21.209, 0.718)
pt3dadd(215.291, 146.572, 21.212, 0.71)
pt3dadd(215.395, 146.633, 21.216, 0.708)
pt3dadd(215.496, 146.696, 21.222, 0.72)
pt3dadd(215.597, 146.761, 21.228, 0.732)
pt3dadd(215.698, 146.826, 21.234, 0.744)
pt3dadd(215.798, 146.89, 21.24, 0.758)
pt3dadd(215.899, 146.954, 21.246, 0.77)
pt3dadd(216.001, 147.019, 21.252, 0.782)
pt3dadd(216.102, 147.083, 21.258, 0.794)
pt3dadd(216.203, 147.148, 21.264, 0.806)
pt3dadd(216.304, 147.212, 21.27, 0.818)
pt3dadd(216.404, 147.277, 21.276, 0.83)
pt3dadd(216.505, 147.342, 21.284, 0.842)
pt3dadd(216.605, 147.407, 21.291, 0.854)
pt3dadd(216.706, 147.473, 21.298, 0.866)
pt3dadd(216.806, 147.538, 21.306, 0.878)
pt3dadd(216.906, 147.602, 21.313, 0.89)
pt3dadd(217.007, 147.668, 21.32, 0.902)
pt3dadd(217.106, 147.733, 21.328, 0.914)
pt3dadd(217.207, 147.798, 21.335, 0.926)
pt3dadd(217.308, 147.864, 21.343, 0.938)
pt3dadd(217.408, 147.929, 21.351, 0.952)
pt3dadd(217.507, 147.995, 21.36, 0.962)
pt3dadd(217.607, 148.062, 21.37, 0.974)
pt3dadd(217.706, 148.128, 21.38, 0.986)
pt3dadd(217.805, 148.194, 21.39, 0.998)
pt3dadd(217.904, 148.26, 21.399, 1.01)
pt3dadd(218.004, 148.326, 21.409, 1.022)
pt3dadd(218.104, 148.393, 21.419, 1.034)
pt3dadd(218.203, 148.459, 21.429, 1.046)
pt3dadd(218.302, 148.525, 21.438, 1.058)
pt3dadd(218.402, 148.589, 21.451, 1.064)
pt3dadd(218.506, 148.644, 21.473, 1.052)
pt3dadd(218.609, 148.699, 21.496, 1.04)
pt3dadd(218.712, 148.756, 21.518, 1.028)
pt3dadd(218.815, 148.811, 21.54, 1.016)
pt3dadd(218.917, 148.866, 21.562, 1.006)
pt3dadd(219.02, 148.921, 21.584, 0.994)
pt3dadd(219.124, 148.976, 21.606, 0.982)
pt3dadd(219.227, 149.033, 21.628, 0.97)
pt3dadd(219.33, 149.088, 21.651, 0.958)
pt3dadd(219.433, 149.138, 21.678, 0.936)
pt3dadd(219.538, 149.18, 21.713, 0.898)
pt3dadd(219.642, 149.222, 21.748, 0.86)
pt3dadd(219.746, 149.263, 21.783, 0.822)
pt3dadd(219.851, 149.305, 21.818, 0.786)
pt3dadd(219.955, 149.347, 21.853, 0.748)
pt3dadd(220.06, 149.389, 21.888, 0.71)
pt3dadd(220.163, 149.431, 21.923, 0.672)
pt3dadd(220.267, 149.473, 21.958, 0.634)
pt3dadd(220.372, 149.515, 21.994, 0.596)
pt3dadd(220.478, 149.552, 22.026, 0.566)
pt3dadd(220.59, 149.582, 22.054, 0.544)
pt3dadd(220.702, 149.612, 22.081, 0.522)
pt3dadd(220.813, 149.642, 22.109, 0.5)
pt3dadd(220.924, 149.672, 22.137, 0.48)
pt3dadd(221.035, 149.702, 22.165, 0.458)
pt3dadd(221.147, 149.732, 22.193, 0.436)
pt3dadd(221.258, 149.762, 22.22, 0.414)
pt3dadd(221.369, 149.792, 22.248, 0.392)
pt3dadd(221.48, 149.822, 22.276, 0.372)
pt3dadd(221.593, 149.85, 22.302, 0.354)
pt3dadd(221.707, 149.874, 22.326, 0.342)
pt3dadd(221.821, 149.898, 22.349, 0.33)
pt3dadd(221.935, 149.922, 22.373, 0.318)
pt3dadd(222.049, 149.946, 22.397, 0.308)
pt3dadd(222.163, 149.97, 22.421, 0.296)
pt3dadd(222.277, 149.994, 22.445, 0.284)
pt3dadd(222.391, 150.019, 22.468, 0.272)
pt3dadd(222.505, 150.043, 22.492, 0.26)
pt3dadd(222.619, 150.067, 22.516, 0.248)
pt3dadd(222.734, 150.09, 22.535, 0.268)
pt3dadd(222.852, 150.113, 22.547, 0.324)
pt3dadd(222.968, 150.134, 22.559, 0.38)
pt3dadd(223.086, 150.157, 22.572, 0.436)
pt3dadd(223.202, 150.18, 22.584, 0.492)
pt3dadd(223.32, 150.202, 22.596, 0.548)
pt3dadd(223.436, 150.224, 22.609, 0.606)
}
}
proc shape3d_88() {
apic[25] { pt3dadd(223.554, 150.246, 22.621, 0.662)
pt3dadd(223.67, 150.269, 22.634, 0.718)
pt3dadd(223.788, 150.292, 22.646, 0.774)
pt3dadd(223.903, 150.32, 22.656, 0.816)
pt3dadd(224.017, 150.356, 22.665, 0.838)
pt3dadd(224.13, 150.394, 22.673, 0.86)
pt3dadd(224.244, 150.43, 22.682, 0.88)
pt3dadd(224.358, 150.467, 22.69, 0.902)
pt3dadd(224.472, 150.504, 22.698, 0.924)
pt3dadd(224.586, 150.54, 22.707, 0.946)
pt3dadd(224.699, 150.577, 22.715, 0.968)
pt3dadd(224.813, 150.614, 22.724, 0.99)
pt3dadd(224.927, 150.65, 22.732, 1.012)
pt3dadd(225.036, 150.698, 22.737, 1.008)
pt3dadd(225.143, 150.754, 22.74, 0.982)
pt3dadd(225.248, 150.81, 22.743, 0.956)
pt3dadd(225.355, 150.865, 22.746, 0.93)
pt3dadd(225.461, 150.922, 22.749, 0.904)
pt3dadd(225.568, 150.977, 22.751, 0.88)
pt3dadd(225.673, 151.033, 22.754, 0.854)
pt3dadd(225.78, 151.088, 22.757, 0.828)
pt3dadd(225.886, 151.145, 22.76, 0.802)
pt3dadd(225.992, 151.2, 22.763, 0.776)
pt3dadd(226.096, 151.26, 22.767, 0.752)
pt3dadd(226.199, 151.322, 22.772, 0.728)
pt3dadd(226.301, 151.386, 22.777, 0.702)
pt3dadd(226.403, 151.448, 22.782, 0.678)
pt3dadd(226.505, 151.511, 22.787, 0.654)
pt3dadd(226.607, 151.573, 22.792, 0.63)
pt3dadd(226.709, 151.637, 22.798, 0.604)
pt3dadd(226.811, 151.699, 22.803, 0.58)
pt3dadd(226.913, 151.762, 22.808, 0.556)
pt3dadd(227.015, 151.824, 22.813, 0.53)
pt3dadd(227.116, 151.889, 22.819, 0.506)
pt3dadd(227.215, 151.956, 22.825, 0.482)
pt3dadd(227.316, 152.022, 22.832, 0.458)
pt3dadd(227.416, 152.088, 22.838, 0.434)
pt3dadd(227.515, 152.154, 22.845, 0.41)
pt3dadd(227.615, 152.221, 22.851, 0.386)
pt3dadd(227.714, 152.287, 22.858, 0.362)
pt3dadd(227.814, 152.353, 22.864, 0.338)
pt3dadd(227.914, 152.419, 22.87, 0.314)
pt3dadd(228.013, 152.485, 22.877, 0.29)
pt3dadd(228.119, 152.542, 22.886, 0.3)
pt3dadd(228.228, 152.591, 22.896, 0.336)
pt3dadd(228.336, 152.64, 22.907, 0.372)
pt3dadd(228.445, 152.689, 22.918, 0.41)
pt3dadd(228.554, 152.737, 22.929, 0.444)
pt3dadd(228.662, 152.786, 22.94, 0.482)
pt3dadd(228.772, 152.836, 22.951, 0.518)
pt3dadd(228.881, 152.885, 22.962, 0.554)
pt3dadd(228.989, 152.933, 22.973, 0.59)
pt3dadd(229.098, 152.982, 22.984, 0.626)
pt3dadd(229.208, 153.026, 22.997, 0.67)
pt3dadd(229.319, 153.068, 23.011, 0.718)
pt3dadd(229.43, 153.11, 23.025, 0.766)
pt3dadd(229.541, 153.152, 23.04, 0.814)
pt3dadd(229.652, 153.194, 23.054, 0.862)
pt3dadd(229.764, 153.236, 23.068, 0.91)
pt3dadd(229.874, 153.278, 23.083, 0.958)
pt3dadd(229.986, 153.32, 23.097, 1.006)
pt3dadd(230.096, 153.362, 23.111, 1.054)
pt3dadd(230.208, 153.404, 23.126, 1.102)
pt3dadd(230.317, 153.433, 23.156, 1.11)
pt3dadd(230.425, 153.454, 23.195, 1.098)
pt3dadd(230.534, 153.475, 23.234, 1.084)
pt3dadd(230.642, 153.497, 23.273, 1.072)
pt3dadd(230.752, 153.518, 23.312, 1.058)
pt3dadd(230.86, 153.54, 23.351, 1.046)
pt3dadd(230.968, 153.56, 23.39, 1.032)
pt3dadd(231.077, 153.582, 23.429, 1.02)
pt3dadd(231.185, 153.604, 23.468, 1.006)
pt3dadd(231.294, 153.625, 23.507, 0.994)
pt3dadd(231.403, 153.646, 23.543, 0.98)
pt3dadd(231.514, 153.665, 23.579, 0.966)
pt3dadd(231.624, 153.685, 23.615, 0.954)
pt3dadd(231.733, 153.704, 23.651, 0.94)
pt3dadd(231.844, 153.724, 23.687, 0.926)
pt3dadd(231.954, 153.744, 23.723, 0.914)
pt3dadd(232.064, 153.763, 23.759, 0.9)
pt3dadd(232.175, 153.784, 23.795, 0.888)
pt3dadd(232.285, 153.803, 23.831, 0.874)
pt3dadd(232.396, 153.823, 23.867, 0.86)
pt3dadd(232.507, 153.84, 23.899, 0.848)
pt3dadd(232.621, 153.857, 23.929, 0.834)
pt3dadd(232.734, 153.874, 23.959, 0.82)
pt3dadd(232.847, 153.89, 23.99, 0.806)
pt3dadd(232.961, 153.906, 24.02, 0.792)
pt3dadd(233.074, 153.923, 24.05, 0.778)
pt3dadd(233.186, 153.94, 24.08, 0.766)
pt3dadd(233.299, 153.956, 24.11, 0.752)
pt3dadd(233.413, 153.973, 24.141, 0.738)
pt3dadd(233.526, 153.989, 24.171, 0.724)
pt3dadd(233.636, 154.021, 24.197, 0.722)
pt3dadd(233.746, 154.062, 24.221, 0.728)
pt3dadd(233.856, 154.103, 24.245, 0.732)
pt3dadd(233.965, 154.142, 24.268, 0.738)
pt3dadd(234.074, 154.183, 24.292, 0.742)
pt3dadd(234.184, 154.223, 24.316, 0.746)
pt3dadd(234.293, 154.264, 24.34, 0.752)
pt3dadd(234.402, 154.304, 24.364, 0.756)
pt3dadd(234.511, 154.344, 24.388, 0.76)
pt3dadd(234.62, 154.385, 24.411, 0.766)
pt3dadd(234.727, 154.433, 24.433, 0.776)
pt3dadd(234.834, 154.483, 24.454, 0.79)
pt3dadd(234.94, 154.534, 24.474, 0.802)
pt3dadd(235.046, 154.584, 24.495, 0.814)
pt3dadd(235.152, 154.634, 24.516, 0.828)
pt3dadd(235.258, 154.684, 24.536, 0.84)
pt3dadd(235.364, 154.734, 24.557, 0.852)
pt3dadd(235.47, 154.784, 24.578, 0.866)
pt3dadd(235.577, 154.835, 24.598, 0.878)
pt3dadd(235.682, 154.885, 24.619, 0.892)
pt3dadd(235.788, 154.927, 24.651, 0.886)
pt3dadd(235.892, 154.967, 24.686, 0.876)
pt3dadd(235.998, 155.008, 24.721, 0.864)
pt3dadd(236.102, 155.047, 24.756, 0.854)
pt3dadd(236.208, 155.087, 24.791, 0.844)
pt3dadd(236.312, 155.126, 24.827, 0.832)
pt3dadd(236.418, 155.166, 24.862, 0.822)
pt3dadd(236.524, 155.206, 24.897, 0.81)
pt3dadd(236.628, 155.246, 24.932, 0.8)
pt3dadd(236.734, 155.286, 24.967, 0.79)
pt3dadd(236.838, 155.327, 25.002, 0.776)
pt3dadd(236.942, 155.368, 25.037, 0.762)
pt3dadd(237.048, 155.408, 25.071, 0.748)
pt3dadd(237.152, 155.449, 25.106, 0.732)
pt3dadd(237.257, 155.491, 25.141, 0.718)
pt3dadd(237.362, 155.532, 25.175, 0.704)
pt3dadd(237.467, 155.573, 25.21, 0.69)
pt3dadd(237.571, 155.614, 25.245, 0.676)
pt3dadd(237.677, 155.656, 25.279, 0.662)
pt3dadd(237.781, 155.696, 25.314, 0.648)
pt3dadd(237.884, 155.748, 25.34, 0.624)
pt3dadd(237.988, 155.802, 25.364, 0.6)
pt3dadd(238.091, 155.857, 25.387, 0.574)
pt3dadd(238.194, 155.911, 25.411, 0.55)
pt3dadd(238.297, 155.965, 25.435, 0.524)
pt3dadd(238.4, 156.02, 25.459, 0.5)
pt3dadd(238.504, 156.074, 25.483, 0.476)
pt3dadd(238.607, 156.128, 25.506, 0.45)
pt3dadd(238.71, 156.182, 25.53, 0.426)
pt3dadd(238.812, 156.238, 25.554, 0.4)
pt3dadd(238.919, 156.287, 25.576, 0.382)
pt3dadd(239.026, 156.334, 25.598, 0.364)
pt3dadd(239.132, 156.382, 25.62, 0.348)
pt3dadd(239.24, 156.428, 25.642, 0.33)
pt3dadd(239.347, 156.476, 25.663, 0.314)
pt3dadd(239.454, 156.524, 25.685, 0.296)
pt3dadd(239.561, 156.571, 25.707, 0.28)
pt3dadd(239.668, 156.619, 25.729, 0.262)
pt3dadd(239.774, 156.666, 25.751, 0.246)
pt3dadd(239.882, 156.714, 25.773, 0.228)
pt3dadd(239.995, 156.749, 25.791, 0.226)
pt3dadd(240.108, 156.78, 25.808, 0.226)
pt3dadd(240.222, 156.812, 25.826, 0.226)
pt3dadd(240.336, 156.844, 25.843, 0.226)
pt3dadd(240.45, 156.876, 25.861, 0.226)
pt3dadd(240.564, 156.907, 25.878, 0.226)
pt3dadd(240.678, 156.94, 25.895, 0.226)
pt3dadd(240.791, 156.971, 25.913, 0.226)
pt3dadd(240.905, 157.003, 25.93, 0.226)
pt3dadd(241.019, 157.034, 25.948, 0.226)
pt3dadd(241.135, 157.061, 25.962, 0.25)
pt3dadd(241.25, 157.086, 25.975, 0.28)
pt3dadd(241.367, 157.112, 25.989, 0.308)
pt3dadd(241.483, 157.138, 26.002, 0.336)
pt3dadd(241.6, 157.163, 26.016, 0.366)
pt3dadd(241.715, 157.188, 26.03, 0.394)
pt3dadd(241.831, 157.213, 26.043, 0.422)
pt3dadd(241.948, 157.24, 26.057, 0.452)
pt3dadd(242.064, 157.265, 26.071, 0.48)
pt3dadd(242.18, 157.29, 26.084, 0.508)
pt3dadd(242.297, 157.313, 26.098, 0.546)
pt3dadd(242.413, 157.334, 26.112, 0.584)
pt3dadd(242.531, 157.356, 26.126, 0.622)
pt3dadd(242.647, 157.378, 26.14, 0.66)
pt3dadd(242.764, 157.399, 26.154, 0.698)
pt3dadd(242.881, 157.421, 26.168, 0.736)
pt3dadd(242.998, 157.442, 26.181, 0.774)
pt3dadd(243.114, 157.464, 26.195, 0.812)
pt3dadd(243.232, 157.486, 26.209, 0.85)
pt3dadd(243.348, 157.507, 26.223, 0.888)
pt3dadd(243.458, 157.523, 26.258, 0.882)
pt3dadd(243.569, 157.537, 26.296, 0.868)
pt3dadd(243.679, 157.553, 26.334, 0.854)
pt3dadd(243.79, 157.567, 26.372, 0.84)
pt3dadd(243.899, 157.582, 26.41, 0.828)
pt3dadd(244.009, 157.596, 26.448, 0.814)
pt3dadd(244.12, 157.612, 26.486, 0.8)
pt3dadd(244.229, 157.626, 26.524, 0.788)
pt3dadd(244.339, 157.64, 26.562, 0.774)
pt3dadd(244.45, 157.656, 26.6, 0.76)
pt3dadd(244.559, 157.682, 26.633, 0.752)
pt3dadd(244.669, 157.71, 26.666, 0.744)
pt3dadd(244.778, 157.739, 26.699, 0.736)
pt3dadd(244.889, 157.768, 26.732, 0.728)
pt3dadd(244.998, 157.795, 26.764, 0.718)
pt3dadd(245.108, 157.824, 26.797, 0.71)
pt3dadd(245.218, 157.852, 26.83, 0.702)
}
}
proc shape3d_89() {
apic[25] { pt3dadd(245.328, 157.88, 26.862, 0.694)
pt3dadd(245.437, 157.908, 26.895, 0.686)
pt3dadd(245.548, 157.937, 26.928, 0.678)
pt3dadd(245.654, 157.984, 26.952, 0.678)
pt3dadd(245.76, 158.032, 26.976, 0.678)
pt3dadd(245.867, 158.08, 27, 0.678)
pt3dadd(245.974, 158.126, 27.024, 0.678)
pt3dadd(246.079, 158.174, 27.048, 0.678)
pt3dadd(246.186, 158.221, 27.072, 0.678)
pt3dadd(246.292, 158.269, 27.096, 0.678)
pt3dadd(246.398, 158.316, 27.12, 0.678)
pt3dadd(246.505, 158.364, 27.144, 0.678)
pt3dadd(246.611, 158.411, 27.168, 0.678)
pt3dadd(246.722, 158.453, 27.186, 0.658)
pt3dadd(246.833, 158.495, 27.203, 0.638)
pt3dadd(246.943, 158.537, 27.22, 0.618)
pt3dadd(247.054, 158.579, 27.238, 0.598)
pt3dadd(247.164, 158.62, 27.255, 0.578)
pt3dadd(247.274, 158.662, 27.273, 0.556)
pt3dadd(247.385, 158.704, 27.29, 0.536)
pt3dadd(247.495, 158.746, 27.308, 0.516)
pt3dadd(247.606, 158.788, 27.325, 0.496)
pt3dadd(247.717, 158.83, 27.342, 0.476)
pt3dadd(247.829, 158.867, 27.356, 0.456)
pt3dadd(247.942, 158.905, 27.369, 0.436)
pt3dadd(248.054, 158.944, 27.383, 0.414)
pt3dadd(248.167, 158.982, 27.397, 0.394)
pt3dadd(248.28, 159.02, 27.41, 0.372)
pt3dadd(248.392, 159.059, 27.424, 0.352)
pt3dadd(248.504, 159.096, 27.438, 0.332)
pt3dadd(248.617, 159.134, 27.451, 0.31)
pt3dadd(248.73, 159.173, 27.465, 0.29)
pt3dadd(248.843, 159.211, 27.478, 0.272)
pt3dadd(248.958, 159.242, 27.487, 0.302)
pt3dadd(249.073, 159.275, 27.495, 0.334)
pt3dadd(249.188, 159.307, 27.504, 0.366)
pt3dadd(249.304, 159.338, 27.512, 0.398)
pt3dadd(249.419, 159.371, 27.52, 0.43)
pt3dadd(249.534, 159.403, 27.529, 0.462)
pt3dadd(249.649, 159.434, 27.537, 0.492)
pt3dadd(249.764, 159.467, 27.546, 0.524)
pt3dadd(249.88, 159.499, 27.554, 0.556)
pt3dadd(249.995, 159.532, 27.563, 0.588)
pt3dadd(250.097, 159.592, 27.578, 0.596)
pt3dadd(250.199, 159.652, 27.594, 0.606)
pt3dadd(250.301, 159.712, 27.609, 0.614)
pt3dadd(250.403, 159.773, 27.625, 0.624)
pt3dadd(250.505, 159.833, 27.64, 0.634)
pt3dadd(250.607, 159.893, 27.656, 0.642)
pt3dadd(250.709, 159.953, 27.671, 0.652)
pt3dadd(250.811, 160.013, 27.686, 0.662)
pt3dadd(250.914, 160.074, 27.702, 0.67)
pt3dadd(251.015, 160.133, 27.721, 0.676)
pt3dadd(251.112, 160.189, 27.756, 0.668)
pt3dadd(251.209, 160.246, 27.792, 0.658)
pt3dadd(251.306, 160.301, 27.827, 0.648)
pt3dadd(251.404, 160.357, 27.862, 0.64)
pt3dadd(251.501, 160.414, 27.898, 0.63)
pt3dadd(251.598, 160.47, 27.933, 0.622)
pt3dadd(251.695, 160.526, 27.969, 0.612)
pt3dadd(251.792, 160.582, 28.004, 0.602)
pt3dadd(251.89, 160.638, 28.039, 0.594)
pt3dadd(251.987, 160.69, 28.079, 0.584)
pt3dadd(252.084, 160.732, 28.125, 0.57)
pt3dadd(252.182, 160.774, 28.171, 0.556)
pt3dadd(252.28, 160.814, 28.218, 0.542)
pt3dadd(252.378, 160.856, 28.264, 0.528)
pt3dadd(252.475, 160.898, 28.31, 0.516)
pt3dadd(252.574, 160.94, 28.357, 0.502)
pt3dadd(252.671, 160.981, 28.403, 0.488)
pt3dadd(252.769, 161.023, 28.449, 0.474)
pt3dadd(252.868, 161.065, 28.495, 0.46)
pt3dadd(252.968, 161.104, 28.538, 0.452)
pt3dadd(253.075, 161.136, 28.574, 0.452)
pt3dadd(253.183, 161.167, 28.61, 0.452)
pt3dadd(253.29, 161.2, 28.646, 0.452)
pt3dadd(253.397, 161.232, 28.682, 0.452)
pt3dadd(253.505, 161.264, 28.718, 0.452)
pt3dadd(253.612, 161.297, 28.754, 0.452)
pt3dadd(253.72, 161.328, 28.79, 0.452)
pt3dadd(253.826, 161.36, 28.826, 0.452)
pt3dadd(253.933, 161.393, 28.862, 0.452)
pt3dadd(254.04, 161.43, 28.895, 0.46)
pt3dadd(254.146, 161.478, 28.922, 0.482)
pt3dadd(254.25, 161.525, 28.949, 0.504)
pt3dadd(254.356, 161.573, 28.977, 0.526)
pt3dadd(254.461, 161.62, 29.005, 0.548)
pt3dadd(254.566, 161.668, 29.032, 0.57)
pt3dadd(254.671, 161.714, 29.059, 0.592)
pt3dadd(254.777, 161.762, 29.087, 0.614)
pt3dadd(254.881, 161.809, 29.114, 0.636)
pt3dadd(254.987, 161.857, 29.142, 0.658)
pt3dadd(255.09, 161.906, 29.171, 0.68)
pt3dadd(255.192, 161.959, 29.202, 0.704)
pt3dadd(255.293, 162.011, 29.234, 0.728)
pt3dadd(255.394, 162.064, 29.265, 0.75)
pt3dadd(255.494, 162.116, 29.297, 0.774)
pt3dadd(255.596, 162.169, 29.328, 0.798)
pt3dadd(255.697, 162.221, 29.36, 0.822)
pt3dadd(255.798, 162.274, 29.391, 0.846)
pt3dadd(255.9, 162.326, 29.422, 0.868)
pt3dadd(256.001, 162.379, 29.454, 0.892)
pt3dadd(256.093, 162.431, 29.498, 0.904)
pt3dadd(256.178, 162.481, 29.555, 0.902)
pt3dadd(256.264, 162.532, 29.612, 0.902)
pt3dadd(256.348, 162.582, 29.668, 0.9)
pt3dadd(256.433, 162.632, 29.725, 0.9)
pt3dadd(256.518, 162.683, 29.782, 0.898)
pt3dadd(256.603, 162.733, 29.839, 0.898)
pt3dadd(256.687, 162.784, 29.895, 0.896)
pt3dadd(256.772, 162.835, 29.952, 0.896)
pt3dadd(256.858, 162.886, 30.009, 0.894)
pt3dadd(256.951, 162.929, 30.058, 0.874)
pt3dadd(257.053, 162.966, 30.101, 0.836)
pt3dadd(257.155, 163.003, 30.143, 0.796)
pt3dadd(257.258, 163.039, 30.186, 0.758)
pt3dadd(257.36, 163.076, 30.228, 0.72)
pt3dadd(257.462, 163.114, 30.27, 0.68)
pt3dadd(257.564, 163.151, 30.313, 0.642)
pt3dadd(257.666, 163.188, 30.355, 0.604)
pt3dadd(257.768, 163.224, 30.398, 0.564)
pt3dadd(257.87, 163.261, 30.44, 0.526)
pt3dadd(257.966, 163.315, 30.479, 0.534)
pt3dadd(258.056, 163.382, 30.514, 0.584)
pt3dadd(258.145, 163.45, 30.549, 0.634)
pt3dadd(258.235, 163.518, 30.585, 0.682)
pt3dadd(258.324, 163.585, 30.62, 0.732)
pt3dadd(258.414, 163.654, 30.655, 0.782)
pt3dadd(258.504, 163.721, 30.69, 0.832)
pt3dadd(258.593, 163.789, 30.726, 0.882)
pt3dadd(258.683, 163.856, 30.761, 0.932)
pt3dadd(258.772, 163.925, 30.796, 0.982)
pt3dadd(258.868, 163.978, 30.836, 0.994)
pt3dadd(258.967, 164.021, 30.879, 0.98)
pt3dadd(259.067, 164.064, 30.922, 0.968)
pt3dadd(259.165, 164.106, 30.965, 0.954)
pt3dadd(259.265, 164.149, 31.009, 0.942)
pt3dadd(259.364, 164.192, 31.052, 0.928)
pt3dadd(259.464, 164.236, 31.095, 0.914)
pt3dadd(259.564, 164.278, 31.138, 0.902)
pt3dadd(259.662, 164.321, 31.181, 0.888)
pt3dadd(259.762, 164.364, 31.224, 0.874)
pt3dadd(259.867, 164.396, 31.264, 0.862)
pt3dadd(259.974, 164.425, 31.302, 0.848)
pt3dadd(260.082, 164.454, 31.339, 0.836)
pt3dadd(260.189, 164.482, 31.377, 0.822)
pt3dadd(260.297, 164.51, 31.415, 0.81)
pt3dadd(260.404, 164.539, 31.453, 0.796)
pt3dadd(260.512, 164.567, 31.491, 0.784)
pt3dadd(260.618, 164.596, 31.529, 0.77)
pt3dadd(260.726, 164.624, 31.567, 0.756)
pt3dadd(260.833, 164.652, 31.604, 0.744)
pt3dadd(260.946, 164.674, 31.633, 0.752)
pt3dadd(261.06, 164.692, 31.66, 0.768)
pt3dadd(261.174, 164.71, 31.687, 0.784)
pt3dadd(261.289, 164.728, 31.713, 0.8)
pt3dadd(261.403, 164.746, 31.74, 0.814)
pt3dadd(261.517, 164.764, 31.767, 0.83)
pt3dadd(261.631, 164.782, 31.793, 0.846)
pt3dadd(261.746, 164.8, 31.82, 0.862)
pt3dadd(261.86, 164.818, 31.846, 0.876)
pt3dadd(261.974, 164.836, 31.873, 0.892)
pt3dadd(262.092, 164.846, 31.889, 0.896)
pt3dadd(262.211, 164.855, 31.901, 0.898)
pt3dadd(262.33, 164.864, 31.913, 0.898)
pt3dadd(262.448, 164.873, 31.925, 0.898)
pt3dadd(262.567, 164.881, 31.937, 0.9)
pt3dadd(262.686, 164.891, 31.949, 0.9)
pt3dadd(262.805, 164.899, 31.962, 0.902)
pt3dadd(262.924, 164.909, 31.974, 0.902)
pt3dadd(263.042, 164.917, 31.986, 0.902)
pt3dadd(263.161, 164.926, 31.998, 0.904)
pt3dadd(263.28, 164.936, 32.007, 0.892)
pt3dadd(263.4, 164.946, 32.014, 0.876)
pt3dadd(263.519, 164.957, 32.021, 0.86)
pt3dadd(263.638, 164.968, 32.029, 0.844)
pt3dadd(263.758, 164.978, 32.036, 0.828)
pt3dadd(263.876, 164.988, 32.044, 0.812)
pt3dadd(263.995, 164.999, 32.051, 0.796)
pt3dadd(264.115, 165.01, 32.058, 0.78)
pt3dadd(264.234, 165.019, 32.066, 0.764)
pt3dadd(264.353, 165.03, 32.073, 0.748)
pt3dadd(264.473, 165.043, 32.075, 0.712)
pt3dadd(264.592, 165.058, 32.076, 0.668)
pt3dadd(264.71, 165.071, 32.077, 0.626)
pt3dadd(264.83, 165.085, 32.077, 0.582)
pt3dadd(264.949, 165.098, 32.078, 0.538)
pt3dadd(265.068, 165.113, 32.079, 0.496)
pt3dadd(265.188, 165.126, 32.079, 0.452)
pt3dadd(265.307, 165.14, 32.08, 0.41)
pt3dadd(265.426, 165.154, 32.081, 0.366)
pt3dadd(265.546, 165.168, 32.081, 0.324)
pt3dadd(265.66, 165.202, 32.083, 0.308)
pt3dadd(265.774, 165.24, 32.084, 0.298)
pt3dadd(265.888, 165.278, 32.085, 0.29)
pt3dadd(266, 165.317, 32.086, 0.28)
pt3dadd(266.114, 165.355, 32.088, 0.272)
pt3dadd(266.228, 165.394, 32.089, 0.262)
pt3dadd(266.341, 165.433, 32.09, 0.254)
pt3dadd(266.455, 165.472, 32.091, 0.246)
}
}
proc shape3d_90() {
apic[25] { pt3dadd(266.569, 165.51, 32.093, 0.236)
pt3dadd(266.682, 165.548, 32.094, 0.228)
pt3dadd(266.795, 165.59, 32.095, 0.226)
pt3dadd(266.906, 165.634, 32.097, 0.226)
pt3dadd(267.019, 165.677, 32.098, 0.226)
pt3dadd(267.131, 165.72, 32.1, 0.226)
pt3dadd(267.242, 165.762, 32.102, 0.226)
pt3dadd(267.355, 165.805, 32.103, 0.226)
pt3dadd(267.467, 165.848, 32.105, 0.226)
pt3dadd(267.58, 165.892, 32.106, 0.226)
pt3dadd(267.691, 165.934, 32.108, 0.226)
pt3dadd(267.803, 165.977, 32.11, 0.226)
pt3dadd(267.919, 166.008, 32.112, 0.226)
pt3dadd(268.036, 166.037, 32.115, 0.226)
pt3dadd(268.152, 166.066, 32.118, 0.226)
pt3dadd(268.268, 166.094, 32.121, 0.226)
pt3dadd(268.385, 166.123, 32.124, 0.226)
pt3dadd(268.501, 166.152, 32.127, 0.226)
pt3dadd(268.618, 166.181, 32.13, 0.226)
pt3dadd(268.734, 166.21, 32.133, 0.226)
pt3dadd(268.85, 166.238, 32.136, 0.226)
pt3dadd(268.967, 166.268, 32.139, 0.226)
pt3dadd(269.084, 166.29, 32.144, 0.232)
pt3dadd(269.202, 166.312, 32.149, 0.24)
pt3dadd(269.321, 166.332, 32.154, 0.248)
pt3dadd(269.438, 166.354, 32.16, 0.254)
pt3dadd(269.556, 166.374, 32.165, 0.262)
pt3dadd(269.675, 166.396, 32.17, 0.268)
pt3dadd(269.792, 166.416, 32.175, 0.276)
pt3dadd(269.91, 166.438, 32.18, 0.284)
pt3dadd(270.029, 166.458, 32.186, 0.292)
pt3dadd(270.146, 166.48, 32.191, 0.298)
pt3dadd(270.265, 166.494, 32.198, 0.312)
pt3dadd(270.384, 166.507, 32.205, 0.326)
pt3dadd(270.503, 166.52, 32.213, 0.342)
pt3dadd(270.622, 166.534, 32.22, 0.356)
pt3dadd(270.74, 166.547, 32.227, 0.37)
pt3dadd(270.859, 166.56, 32.235, 0.384)
pt3dadd(270.979, 166.573, 32.242, 0.398)
pt3dadd(271.098, 166.588, 32.25, 0.414)
pt3dadd(271.217, 166.601, 32.257, 0.428)
pt3dadd(271.336, 166.614, 32.264, 0.442)
pt3dadd(271.454, 166.616, 32.276, 0.456)
pt3dadd(271.573, 166.616, 32.289, 0.472)
pt3dadd(271.692, 166.618, 32.301, 0.486)
pt3dadd(271.812, 166.618, 32.313, 0.5)
pt3dadd(271.931, 166.619, 32.326, 0.514)
pt3dadd(272.05, 166.62, 32.339, 0.53)
pt3dadd(272.168, 166.62, 32.351, 0.544)
pt3dadd(272.288, 166.621, 32.363, 0.558)
pt3dadd(272.407, 166.621, 32.376, 0.572)
pt3dadd(272.526, 166.622, 32.388, 0.586)
pt3dadd(272.642, 166.622, 32.411, 0.602)
pt3dadd(272.76, 166.622, 32.434, 0.616)
pt3dadd(272.876, 166.622, 32.458, 0.63)
pt3dadd(272.993, 166.622, 32.481, 0.646)
pt3dadd(273.109, 166.622, 32.505, 0.66)
pt3dadd(273.226, 166.622, 32.529, 0.674)
pt3dadd(273.342, 166.622, 32.552, 0.688)
pt3dadd(273.46, 166.622, 32.576, 0.704)
pt3dadd(273.576, 166.622, 32.599, 0.718)
pt3dadd(273.692, 166.622, 32.623, 0.732)
pt3dadd(273.802, 166.622, 32.664, 0.746)
pt3dadd(273.912, 166.622, 32.704, 0.762)
pt3dadd(274.021, 166.622, 32.745, 0.776)
pt3dadd(274.13, 166.622, 32.786, 0.79)
pt3dadd(274.241, 166.622, 32.826, 0.804)
pt3dadd(274.35, 166.622, 32.867, 0.82)
pt3dadd(274.459, 166.622, 32.908, 0.834)
pt3dadd(274.57, 166.622, 32.948, 0.848)
pt3dadd(274.679, 166.622, 32.989, 0.862)
pt3dadd(274.789, 166.622, 33.03, 0.876)
pt3dadd(274.903, 166.622, 33.061, 0.87)
pt3dadd(275.017, 166.622, 33.092, 0.862)
pt3dadd(275.131, 166.622, 33.123, 0.854)
pt3dadd(275.245, 166.622, 33.154, 0.848)
pt3dadd(275.359, 166.622, 33.185, 0.84)
pt3dadd(275.473, 166.622, 33.216, 0.832)
pt3dadd(275.587, 166.622, 33.247, 0.824)
pt3dadd(275.701, 166.622, 33.278, 0.818)
pt3dadd(275.815, 166.622, 33.309, 0.81)
pt3dadd(275.929, 166.622, 33.34, 0.802)
pt3dadd(276.044, 166.622, 33.369, 0.79)
pt3dadd(276.16, 166.622, 33.397, 0.778)
pt3dadd(276.274, 166.622, 33.426, 0.766)
pt3dadd(276.389, 166.622, 33.455, 0.752)
pt3dadd(276.504, 166.622, 33.484, 0.74)
pt3dadd(276.619, 166.622, 33.512, 0.728)
pt3dadd(276.734, 166.622, 33.541, 0.716)
pt3dadd(276.848, 166.622, 33.57, 0.702)
pt3dadd(276.964, 166.622, 33.599, 0.69)
pt3dadd(277.079, 166.622, 33.627, 0.678)
}
apic[26] {pt3dclear()
pt3dadd(181.326, 136.043, 13.907, 1.582)
pt3dadd(181.374, 136.057, 13.892, 1.6)
pt3dadd(181.483, 136.087, 13.857, 1.638)
pt3dadd(181.591, 136.118, 13.822, 1.676)
pt3dadd(181.699, 136.15, 13.788, 1.714)
pt3dadd(181.807, 136.181, 13.753, 1.752)
pt3dadd(181.915, 136.212, 13.718, 1.792)
pt3dadd(182.023, 136.243, 13.684, 1.83)
pt3dadd(182.131, 136.274, 13.649, 1.868)
pt3dadd(182.239, 136.306, 13.614, 1.906)
pt3dadd(182.348, 136.337, 13.579, 1.944)
pt3dadd(182.456, 136.368, 13.545, 1.984)
pt3dadd(182.564, 136.399, 13.51, 2.022)
pt3dadd(182.672, 136.43, 13.475, 2.06)
pt3dadd(182.78, 136.462, 13.441, 2.098)
pt3dadd(182.894, 136.486, 13.418, 2.1)
pt3dadd(183.011, 136.507, 13.401, 2.084)
pt3dadd(183.127, 136.528, 13.384, 2.066)
pt3dadd(183.244, 136.548, 13.367, 2.05)
pt3dadd(183.36, 136.57, 13.35, 2.032)
pt3dadd(183.476, 136.59, 13.333, 2.016)
pt3dadd(183.593, 136.61, 13.316, 1.998)
pt3dadd(183.709, 136.632, 13.299, 1.982)
pt3dadd(183.826, 136.652, 13.282, 1.964)
pt3dadd(183.942, 136.673, 13.265, 1.946)
pt3dadd(184.061, 136.688, 13.257, 1.902)
pt3dadd(184.18, 136.703, 13.252, 1.85)
pt3dadd(184.298, 136.716, 13.247, 1.8)
pt3dadd(184.417, 136.73, 13.241, 1.748)
pt3dadd(184.536, 136.745, 13.236, 1.696)
pt3dadd(184.655, 136.758, 13.23, 1.644)
pt3dadd(184.775, 136.772, 13.225, 1.594)
pt3dadd(184.894, 136.786, 13.22, 1.542)
pt3dadd(185.012, 136.8, 13.214, 1.49)
pt3dadd(185.131, 136.814, 13.209, 1.438)
pt3dadd(185.25, 136.829, 13.201, 1.454)
pt3dadd(185.369, 136.846, 13.193, 1.488)
pt3dadd(185.488, 136.861, 13.185, 1.524)
pt3dadd(185.605, 136.877, 13.177, 1.558)
pt3dadd(185.724, 136.892, 13.169, 1.592)
pt3dadd(185.843, 136.908, 13.161, 1.626)
pt3dadd(185.962, 136.925, 13.153, 1.66)
pt3dadd(186.08, 136.94, 13.145, 1.696)
pt3dadd(186.198, 136.956, 13.137, 1.73)
pt3dadd(186.317, 136.972, 13.129, 1.764)
pt3dadd(186.433, 136.999, 13.119, 1.772)
pt3dadd(186.548, 137.028, 13.109, 1.774)
pt3dadd(186.665, 137.058, 13.099, 1.778)
pt3dadd(186.78, 137.088, 13.088, 1.78)
pt3dadd(186.895, 137.118, 13.078, 1.782)
pt3dadd(187.012, 137.147, 13.068, 1.784)
pt3dadd(187.127, 137.177, 13.058, 1.786)
pt3dadd(187.243, 137.207, 13.048, 1.788)
pt3dadd(187.358, 137.236, 13.038, 1.79)
pt3dadd(187.474, 137.266, 13.027, 1.794)
pt3dadd(187.585, 137.309, 13.016, 1.746)
pt3dadd(187.694, 137.354, 13.004, 1.694)
pt3dadd(187.805, 137.4, 12.992, 1.64)
pt3dadd(187.915, 137.446, 12.98, 1.588)
pt3dadd(188.026, 137.49, 12.968, 1.534)
pt3dadd(188.136, 137.536, 12.956, 1.482)
pt3dadd(188.245, 137.581, 12.944, 1.428)
pt3dadd(188.356, 137.627, 12.932, 1.376)
pt3dadd(188.466, 137.672, 12.92, 1.322)
pt3dadd(188.576, 137.717, 12.908, 1.27)
pt3dadd(188.686, 137.752, 12.878, 1.268)
pt3dadd(188.794, 137.785, 12.846, 1.274)
pt3dadd(188.903, 137.819, 12.814, 1.28)
pt3dadd(189.011, 137.852, 12.782, 1.286)
pt3dadd(189.12, 137.886, 12.75, 1.292)
pt3dadd(189.229, 137.918, 12.719, 1.298)
pt3dadd(189.337, 137.952, 12.686, 1.304)
pt3dadd(189.446, 137.986, 12.655, 1.31)
pt3dadd(189.554, 138.019, 12.623, 1.316)
pt3dadd(189.664, 138.053, 12.591, 1.324)
pt3dadd(189.77, 138.082, 12.553, 1.348)
pt3dadd(189.877, 138.11, 12.514, 1.374)
pt3dadd(189.984, 138.14, 12.476, 1.4)
pt3dadd(190.092, 138.169, 12.438, 1.426)
pt3dadd(190.199, 138.198, 12.4, 1.45)
pt3dadd(190.306, 138.227, 12.361, 1.476)
pt3dadd(190.412, 138.256, 12.323, 1.502)
pt3dadd(190.519, 138.286, 12.285, 1.528)
pt3dadd(190.626, 138.314, 12.246, 1.554)
pt3dadd(190.733, 138.343, 12.208, 1.58)
pt3dadd(190.846, 138.362, 12.178, 1.594)
pt3dadd(190.96, 138.38, 12.148, 1.608)
pt3dadd(191.072, 138.398, 12.118, 1.622)
pt3dadd(191.185, 138.416, 12.088, 1.636)
pt3dadd(191.298, 138.434, 12.058, 1.648)
pt3dadd(191.411, 138.454, 12.028, 1.662)
pt3dadd(191.525, 138.472, 11.998, 1.676)
pt3dadd(191.638, 138.49, 11.968, 1.69)
pt3dadd(191.75, 138.508, 11.939, 1.704)
pt3dadd(191.863, 138.526, 11.909, 1.718)
pt3dadd(191.977, 138.542, 11.881, 1.712)
pt3dadd(192.092, 138.559, 11.854, 1.708)
pt3dadd(192.206, 138.576, 11.827, 1.702)
pt3dadd(192.32, 138.593, 11.799, 1.698)
pt3dadd(192.434, 138.61, 11.772, 1.692)
pt3dadd(192.548, 138.626, 11.745, 1.688)
pt3dadd(192.664, 138.643, 11.718, 1.682)
pt3dadd(192.778, 138.66, 11.69, 1.678)
pt3dadd(192.892, 138.677, 11.663, 1.672)
pt3dadd(193.006, 138.694, 11.636, 1.668)
pt3dadd(193.122, 138.707, 11.613, 1.626)
pt3dadd(193.238, 138.72, 11.591, 1.584)
pt3dadd(193.355, 138.734, 11.569, 1.542)
}
}
proc shape3d_91() {
apic[26] { pt3dadd(193.471, 138.748, 11.547, 1.5)
pt3dadd(193.588, 138.761, 11.525, 1.458)
pt3dadd(193.703, 138.774, 11.503, 1.416)
pt3dadd(193.819, 138.788, 11.481, 1.374)
pt3dadd(193.936, 138.802, 11.459, 1.332)
pt3dadd(194.052, 138.815, 11.437, 1.29)
pt3dadd(194.168, 138.829, 11.415, 1.248)
pt3dadd(194.28, 138.85, 11.383, 1.198)
pt3dadd(194.392, 138.871, 11.35, 1.15)
pt3dadd(194.503, 138.893, 11.318, 1.1)
pt3dadd(194.615, 138.914, 11.285, 1.05)
pt3dadd(194.725, 138.936, 11.253, 1)
pt3dadd(194.837, 138.958, 11.22, 0.95)
pt3dadd(194.948, 138.978, 11.188, 0.9)
pt3dadd(195.06, 139, 11.155, 0.85)
pt3dadd(195.172, 139.021, 11.123, 0.802)
pt3dadd(195.283, 139.043, 11.09, 0.752)
pt3dadd(195.392, 139.067, 11.054, 0.698)
pt3dadd(195.502, 139.091, 11.018, 0.646)
pt3dadd(195.611, 139.116, 10.981, 0.594)
pt3dadd(195.719, 139.14, 10.945, 0.542)
pt3dadd(195.828, 139.164, 10.908, 0.488)
pt3dadd(195.937, 139.188, 10.872, 0.436)
pt3dadd(196.046, 139.212, 10.836, 0.384)
pt3dadd(196.156, 139.237, 10.799, 0.332)
pt3dadd(196.265, 139.261, 10.763, 0.278)
pt3dadd(196.374, 139.285, 10.726, 0.226)
}
apic[27] {pt3dclear()
pt3dadd(196.374, 139.285, 10.726, 0.226)
pt3dadd(196.388, 139.294, 10.723, 0.23)
pt3dadd(196.488, 139.355, 10.703, 0.254)
pt3dadd(196.589, 139.415, 10.682, 0.278)
pt3dadd(196.69, 139.476, 10.661, 0.302)
pt3dadd(196.79, 139.536, 10.641, 0.326)
pt3dadd(196.89, 139.597, 10.62, 0.35)
pt3dadd(196.991, 139.657, 10.599, 0.374)
pt3dadd(197.092, 139.718, 10.579, 0.398)
pt3dadd(197.192, 139.78, 10.558, 0.424)
pt3dadd(197.293, 139.84, 10.537, 0.448)
pt3dadd(197.393, 139.901, 10.516, 0.472)
pt3dadd(197.494, 139.961, 10.496, 0.496)
pt3dadd(197.593, 140.024, 10.477, 0.518)
pt3dadd(197.692, 140.089, 10.46, 0.538)
pt3dadd(197.791, 140.154, 10.443, 0.558)
pt3dadd(197.89, 140.218, 10.425, 0.58)
pt3dadd(197.989, 140.282, 10.408, 0.6)
pt3dadd(198.088, 140.347, 10.39, 0.62)
pt3dadd(198.187, 140.412, 10.373, 0.642)
pt3dadd(198.286, 140.477, 10.356, 0.662)
pt3dadd(198.384, 140.542, 10.338, 0.682)
pt3dadd(198.484, 140.606, 10.321, 0.704)
pt3dadd(198.578, 140.677, 10.31, 0.718)
pt3dadd(198.672, 140.752, 10.301, 0.728)
pt3dadd(198.766, 140.826, 10.292, 0.74)
pt3dadd(198.859, 140.902, 10.284, 0.752)
pt3dadd(198.953, 140.976, 10.275, 0.762)
pt3dadd(199.046, 141.05, 10.266, 0.774)
pt3dadd(199.14, 141.125, 10.258, 0.784)
pt3dadd(199.234, 141.199, 10.249, 0.796)
pt3dadd(199.326, 141.274, 10.24, 0.808)
pt3dadd(199.42, 141.348, 10.232, 0.818)
pt3dadd(199.513, 141.424, 10.225, 0.83)
pt3dadd(199.607, 141.498, 10.218, 0.842)
pt3dadd(199.699, 141.574, 10.212, 0.852)
pt3dadd(199.793, 141.649, 10.206, 0.864)
pt3dadd(199.886, 141.724, 10.199, 0.874)
pt3dadd(199.979, 141.799, 10.193, 0.886)
pt3dadd(200.072, 141.875, 10.187, 0.898)
pt3dadd(200.166, 141.949, 10.18, 0.908)
pt3dadd(200.258, 142.025, 10.174, 0.92)
pt3dadd(200.352, 142.1, 10.168, 0.93)
pt3dadd(200.444, 142.176, 10.166, 0.942)
pt3dadd(200.537, 142.253, 10.166, 0.954)
pt3dadd(200.629, 142.331, 10.166, 0.964)
pt3dadd(200.72, 142.408, 10.166, 0.976)
pt3dadd(200.813, 142.484, 10.166, 0.986)
pt3dadd(200.905, 142.561, 10.166, 0.998)
pt3dadd(200.996, 142.638, 10.166, 1.008)
pt3dadd(201.089, 142.716, 10.166, 1.02)
pt3dadd(201.181, 142.793, 10.166, 1.03)
pt3dadd(201.272, 142.87, 10.166, 1.042)
pt3dadd(201.367, 142.943, 10.166, 1.058)
pt3dadd(201.464, 143.015, 10.166, 1.076)
pt3dadd(201.56, 143.087, 10.166, 1.094)
pt3dadd(201.656, 143.158, 10.166, 1.11)
pt3dadd(201.752, 143.23, 10.166, 1.128)
pt3dadd(201.848, 143.302, 10.165, 1.146)
pt3dadd(201.944, 143.374, 10.165, 1.164)
pt3dadd(202.042, 143.444, 10.165, 1.182)
pt3dadd(202.138, 143.516, 10.165, 1.2)
pt3dadd(202.234, 143.588, 10.165, 1.216)
pt3dadd(202.338, 143.646, 10.165, 1.25)
pt3dadd(202.446, 143.699, 10.165, 1.29)
pt3dadd(202.554, 143.752, 10.165, 1.328)
pt3dadd(202.661, 143.804, 10.165, 1.368)
pt3dadd(202.769, 143.858, 10.165, 1.406)
pt3dadd(202.877, 143.911, 10.165, 1.446)
pt3dadd(202.985, 143.964, 10.165, 1.484)
pt3dadd(203.092, 144.017, 10.165, 1.522)
pt3dadd(203.2, 144.07, 10.165, 1.562)
pt3dadd(203.308, 144.122, 10.165, 1.6)
pt3dadd(203.414, 144.178, 10.165, 1.616)
pt3dadd(203.521, 144.233, 10.165, 1.624)
pt3dadd(203.628, 144.288, 10.165, 1.63)
pt3dadd(203.734, 144.343, 10.164, 1.638)
pt3dadd(203.84, 144.398, 10.164, 1.646)
pt3dadd(203.947, 144.454, 10.164, 1.652)
pt3dadd(204.054, 144.509, 10.164, 1.66)
pt3dadd(204.161, 144.564, 10.164, 1.666)
pt3dadd(204.266, 144.619, 10.164, 1.674)
pt3dadd(204.373, 144.674, 10.164, 1.682)
pt3dadd(204.479, 144.731, 10.164, 1.664)
pt3dadd(204.584, 144.788, 10.164, 1.638)
pt3dadd(204.69, 144.846, 10.164, 1.614)
pt3dadd(204.794, 144.904, 10.163, 1.588)
pt3dadd(204.9, 144.961, 10.163, 1.562)
pt3dadd(205.006, 145.019, 10.163, 1.538)
pt3dadd(205.11, 145.076, 10.163, 1.512)
pt3dadd(205.216, 145.134, 10.163, 1.486)
pt3dadd(205.321, 145.192, 10.163, 1.462)
pt3dadd(205.427, 145.249, 10.163, 1.436)
pt3dadd(205.536, 145.296, 10.163, 1.402)
pt3dadd(205.649, 145.34, 10.162, 1.366)
pt3dadd(205.76, 145.384, 10.162, 1.328)
pt3dadd(205.872, 145.427, 10.162, 1.292)
pt3dadd(205.984, 145.471, 10.162, 1.256)
pt3dadd(206.095, 145.514, 10.161, 1.218)
pt3dadd(206.207, 145.559, 10.161, 1.182)
pt3dadd(206.32, 145.602, 10.161, 1.144)
pt3dadd(206.431, 145.645, 10.161, 1.108)
pt3dadd(206.543, 145.69, 10.16, 1.072)
pt3dadd(206.657, 145.728, 10.16, 1.034)
pt3dadd(206.771, 145.765, 10.16, 0.994)
pt3dadd(206.885, 145.802, 10.159, 0.956)
pt3dadd(206.999, 145.84, 10.159, 0.918)
pt3dadd(207.113, 145.877, 10.159, 0.878)
pt3dadd(207.227, 145.914, 10.158, 0.84)
pt3dadd(207.341, 145.951, 10.158, 0.802)
pt3dadd(207.455, 145.988, 10.158, 0.764)
pt3dadd(207.569, 146.026, 10.158, 0.724)
pt3dadd(207.683, 146.063, 10.157, 0.686)
pt3dadd(207.799, 146.094, 10.157, 0.678)
pt3dadd(207.916, 146.124, 10.156, 0.678)
pt3dadd(208.031, 146.153, 10.156, 0.678)
pt3dadd(208.147, 146.183, 10.155, 0.678)
pt3dadd(208.264, 146.213, 10.154, 0.678)
pt3dadd(208.38, 146.243, 10.154, 0.678)
pt3dadd(208.496, 146.273, 10.153, 0.678)
pt3dadd(208.613, 146.303, 10.152, 0.678)
pt3dadd(208.729, 146.333, 10.152, 0.678)
pt3dadd(208.844, 146.363, 10.151, 0.678)
pt3dadd(208.958, 146.4, 10.15, 0.674)
pt3dadd(209.072, 146.44, 10.149, 0.668)
pt3dadd(209.185, 146.479, 10.148, 0.662)
pt3dadd(209.299, 146.518, 10.147, 0.656)
pt3dadd(209.412, 146.557, 10.146, 0.65)
pt3dadd(209.526, 146.597, 10.146, 0.644)
pt3dadd(209.639, 146.636, 10.145, 0.638)
pt3dadd(209.752, 146.676, 10.144, 0.632)
pt3dadd(209.866, 146.716, 10.143, 0.626)
pt3dadd(209.978, 146.755, 10.142, 0.62)
pt3dadd(210.088, 146.804, 10.141, 0.608)
pt3dadd(210.197, 146.855, 10.139, 0.596)
pt3dadd(210.305, 146.906, 10.138, 0.582)
pt3dadd(210.414, 146.957, 10.137, 0.57)
pt3dadd(210.522, 147.008, 10.135, 0.556)
pt3dadd(210.631, 147.06, 10.134, 0.544)
pt3dadd(210.739, 147.11, 10.133, 0.53)
pt3dadd(210.848, 147.162, 10.131, 0.518)
pt3dadd(210.956, 147.214, 10.13, 0.504)
pt3dadd(211.066, 147.264, 10.129, 0.49)
pt3dadd(211.176, 147.31, 10.127, 0.478)
pt3dadd(211.288, 147.353, 10.124, 0.464)
pt3dadd(211.399, 147.397, 10.122, 0.45)
pt3dadd(211.511, 147.442, 10.12, 0.438)
pt3dadd(211.622, 147.485, 10.117, 0.424)
pt3dadd(211.734, 147.529, 10.115, 0.41)
pt3dadd(211.846, 147.572, 10.113, 0.396)
pt3dadd(211.957, 147.617, 10.11, 0.384)
pt3dadd(212.069, 147.661, 10.108, 0.37)
pt3dadd(212.18, 147.704, 10.106, 0.356)
pt3dadd(212.293, 147.746, 10.103, 0.346)
pt3dadd(212.406, 147.788, 10.1, 0.336)
pt3dadd(212.518, 147.83, 10.097, 0.326)
pt3dadd(212.63, 147.871, 10.094, 0.316)
pt3dadd(212.743, 147.913, 10.091, 0.306)
pt3dadd(212.856, 147.955, 10.088, 0.296)
pt3dadd(212.968, 147.997, 10.085, 0.286)
pt3dadd(213.08, 148.038, 10.082, 0.276)
pt3dadd(213.193, 148.08, 10.079, 0.266)
pt3dadd(213.306, 148.122, 10.076, 0.256)
pt3dadd(213.413, 148.175, 10.07, 0.296)
pt3dadd(213.52, 148.229, 10.064, 0.348)
pt3dadd(213.626, 148.284, 10.057, 0.4)
pt3dadd(213.733, 148.338, 10.051, 0.452)
pt3dadd(213.839, 148.393, 10.045, 0.502)
pt3dadd(213.946, 148.447, 10.038, 0.554)
pt3dadd(214.052, 148.502, 10.032, 0.606)
pt3dadd(214.159, 148.556, 10.026, 0.656)
pt3dadd(214.266, 148.612, 10.019, 0.708)
pt3dadd(214.373, 148.666, 10.013, 0.76)
}
}
proc shape3d_92() {
apic[27] { pt3dadd(214.482, 148.714, 10.005, 0.788)
pt3dadd(214.591, 148.762, 9.997, 0.812)
pt3dadd(214.702, 148.808, 9.989, 0.836)
pt3dadd(214.812, 148.855, 9.981, 0.86)
pt3dadd(214.921, 148.903, 9.974, 0.884)
pt3dadd(215.032, 148.95, 9.966, 0.908)
pt3dadd(215.141, 148.997, 9.958, 0.932)
pt3dadd(215.251, 149.045, 9.95, 0.956)
pt3dadd(215.362, 149.092, 9.942, 0.98)
pt3dadd(215.471, 149.138, 9.934, 1.006)
pt3dadd(215.586, 149.17, 9.923, 0.97)
pt3dadd(215.702, 149.197, 9.911, 0.928)
pt3dadd(215.818, 149.226, 9.9, 0.886)
pt3dadd(215.933, 149.255, 9.888, 0.844)
pt3dadd(216.049, 149.284, 9.877, 0.802)
pt3dadd(216.164, 149.312, 9.865, 0.76)
pt3dadd(216.281, 149.34, 9.854, 0.718)
pt3dadd(216.396, 149.369, 9.842, 0.676)
pt3dadd(216.512, 149.398, 9.83, 0.634)
pt3dadd(216.628, 149.426, 9.819, 0.594)
pt3dadd(216.742, 149.444, 9.791, 0.568)
pt3dadd(216.854, 149.462, 9.762, 0.546)
pt3dadd(216.968, 149.48, 9.733, 0.522)
pt3dadd(217.081, 149.498, 9.704, 0.5)
pt3dadd(217.195, 149.516, 9.674, 0.476)
pt3dadd(217.308, 149.534, 9.645, 0.454)
pt3dadd(217.422, 149.551, 9.616, 0.432)
pt3dadd(217.535, 149.569, 9.587, 0.408)
pt3dadd(217.649, 149.587, 9.557, 0.386)
pt3dadd(217.762, 149.605, 9.528, 0.362)
}
apic[28] {pt3dclear()
pt3dadd(217.762, 149.605, 9.528, 0.362)
pt3dadd(217.825, 149.612, 9.507, 0.354)
pt3dadd(217.936, 149.624, 9.469, 0.342)
pt3dadd(218.046, 149.636, 9.432, 0.328)
pt3dadd(218.156, 149.65, 9.394, 0.316)
pt3dadd(218.267, 149.662, 9.357, 0.302)
pt3dadd(218.377, 149.674, 9.319, 0.288)
pt3dadd(218.488, 149.687, 9.282, 0.276)
pt3dadd(218.598, 149.699, 9.244, 0.262)
pt3dadd(218.71, 149.711, 9.207, 0.248)
pt3dadd(218.82, 149.724, 9.169, 0.236)
pt3dadd(218.933, 149.729, 9.139, 0.244)
pt3dadd(219.049, 149.73, 9.113, 0.272)
pt3dadd(219.166, 149.73, 9.087, 0.298)
pt3dadd(219.281, 149.73, 9.062, 0.326)
pt3dadd(219.397, 149.731, 9.036, 0.352)
pt3dadd(219.514, 149.731, 9.011, 0.38)
pt3dadd(219.629, 149.732, 8.985, 0.406)
pt3dadd(219.745, 149.732, 8.959, 0.434)
pt3dadd(219.862, 149.732, 8.934, 0.46)
pt3dadd(219.977, 149.734, 8.908, 0.488)
pt3dadd(220.094, 149.734, 8.885, 0.512)
pt3dadd(220.211, 149.734, 8.864, 0.534)
pt3dadd(220.328, 149.734, 8.843, 0.558)
pt3dadd(220.446, 149.734, 8.821, 0.582)
pt3dadd(220.564, 149.734, 8.8, 0.604)
pt3dadd(220.68, 149.734, 8.779, 0.628)
pt3dadd(220.798, 149.734, 8.758, 0.65)
pt3dadd(220.915, 149.734, 8.737, 0.674)
pt3dadd(221.032, 149.734, 8.715, 0.696)
pt3dadd(221.149, 149.734, 8.694, 0.72)
pt3dadd(221.268, 149.734, 8.677, 0.738)
pt3dadd(221.387, 149.734, 8.663, 0.752)
pt3dadd(221.506, 149.735, 8.649, 0.766)
pt3dadd(221.624, 149.735, 8.636, 0.78)
pt3dadd(221.743, 149.735, 8.622, 0.794)
pt3dadd(221.862, 149.735, 8.608, 0.81)
pt3dadd(221.981, 149.735, 8.594, 0.824)
pt3dadd(222.1, 149.736, 8.58, 0.838)
pt3dadd(222.218, 149.736, 8.566, 0.852)
pt3dadd(222.337, 149.736, 8.552, 0.866)
pt3dadd(222.456, 149.736, 8.542, 0.868)
pt3dadd(222.576, 149.736, 8.533, 0.86)
pt3dadd(222.696, 149.737, 8.524, 0.852)
pt3dadd(222.815, 149.737, 8.516, 0.844)
pt3dadd(222.935, 149.737, 8.507, 0.836)
pt3dadd(223.054, 149.737, 8.499, 0.828)
pt3dadd(223.174, 149.737, 8.49, 0.82)
pt3dadd(223.294, 149.738, 8.482, 0.812)
pt3dadd(223.412, 149.738, 8.473, 0.804)
pt3dadd(223.532, 149.738, 8.464, 0.796)
pt3dadd(223.652, 149.738, 8.456, 0.782)
pt3dadd(223.771, 149.74, 8.448, 0.764)
pt3dadd(223.891, 149.74, 8.44, 0.746)
pt3dadd(224.011, 149.74, 8.432, 0.73)
pt3dadd(224.13, 149.741, 8.424, 0.712)
pt3dadd(224.25, 149.741, 8.416, 0.694)
pt3dadd(224.37, 149.742, 8.408, 0.676)
pt3dadd(224.489, 149.742, 8.4, 0.66)
pt3dadd(224.609, 149.742, 8.392, 0.642)
pt3dadd(224.729, 149.743, 8.384, 0.624)
pt3dadd(224.848, 149.743, 8.373, 0.6)
pt3dadd(224.966, 149.744, 8.362, 0.572)
pt3dadd(225.086, 149.746, 8.35, 0.544)
pt3dadd(225.205, 149.747, 8.338, 0.514)
pt3dadd(225.324, 149.747, 8.327, 0.486)
pt3dadd(225.444, 149.748, 8.315, 0.458)
pt3dadd(225.563, 149.749, 8.303, 0.428)
pt3dadd(225.682, 149.749, 8.292, 0.4)
pt3dadd(225.802, 149.75, 8.28, 0.372)
pt3dadd(225.92, 149.752, 8.268, 0.342)
pt3dadd(226.037, 149.753, 8.247, 0.346)
pt3dadd(226.152, 149.754, 8.218, 0.368)
pt3dadd(226.267, 149.755, 8.19, 0.392)
pt3dadd(226.382, 149.756, 8.162, 0.416)
pt3dadd(226.498, 149.758, 8.134, 0.44)
pt3dadd(226.613, 149.759, 8.105, 0.464)
pt3dadd(226.728, 149.76, 8.077, 0.488)
pt3dadd(226.843, 149.761, 8.049, 0.512)
pt3dadd(226.958, 149.764, 8.021, 0.534)
pt3dadd(227.074, 149.765, 7.992, 0.558)
pt3dadd(227.185, 149.766, 7.958, 0.602)
pt3dadd(227.297, 149.767, 7.92, 0.656)
pt3dadd(227.408, 149.77, 7.883, 0.71)
pt3dadd(227.519, 149.771, 7.846, 0.764)
pt3dadd(227.63, 149.773, 7.808, 0.816)
pt3dadd(227.742, 149.774, 7.771, 0.87)
pt3dadd(227.854, 149.776, 7.733, 0.924)
pt3dadd(227.964, 149.778, 7.696, 0.978)
pt3dadd(228.076, 149.779, 7.659, 1.032)
pt3dadd(228.187, 149.782, 7.621, 1.084)
pt3dadd(228.301, 149.784, 7.592, 1.068)
pt3dadd(228.418, 149.788, 7.567, 1.018)
pt3dadd(228.534, 149.791, 7.542, 0.968)
pt3dadd(228.649, 149.795, 7.516, 0.916)
pt3dadd(228.766, 149.798, 7.491, 0.866)
pt3dadd(228.882, 149.801, 7.466, 0.816)
pt3dadd(228.998, 149.804, 7.441, 0.766)
pt3dadd(229.114, 149.808, 7.415, 0.716)
pt3dadd(229.23, 149.812, 7.39, 0.666)
pt3dadd(229.346, 149.815, 7.365, 0.614)
pt3dadd(229.463, 149.82, 7.343, 0.58)
pt3dadd(229.58, 149.825, 7.322, 0.552)
pt3dadd(229.698, 149.831, 7.302, 0.524)
pt3dadd(229.816, 149.836, 7.281, 0.496)
pt3dadd(229.932, 149.84, 7.261, 0.468)
pt3dadd(230.05, 149.845, 7.24, 0.44)
pt3dadd(230.167, 149.851, 7.22, 0.414)
pt3dadd(230.285, 149.856, 7.199, 0.386)
pt3dadd(230.401, 149.861, 7.179, 0.358)
pt3dadd(230.519, 149.867, 7.158, 0.33)
pt3dadd(230.638, 149.874, 7.143, 0.342)
pt3dadd(230.756, 149.882, 7.131, 0.37)
pt3dadd(230.875, 149.892, 7.119, 0.398)
pt3dadd(230.994, 149.9, 7.106, 0.428)
pt3dadd(231.113, 149.909, 7.094, 0.456)
pt3dadd(231.232, 149.918, 7.081, 0.484)
pt3dadd(231.35, 149.927, 7.069, 0.514)
pt3dadd(231.469, 149.935, 7.057, 0.542)
pt3dadd(231.588, 149.945, 7.044, 0.57)
pt3dadd(231.706, 149.953, 7.032, 0.598)
pt3dadd(231.826, 149.965, 7.025, 0.598)
pt3dadd(231.944, 149.978, 7.019, 0.582)
pt3dadd(232.063, 149.992, 7.014, 0.568)
pt3dadd(232.182, 150.005, 7.009, 0.554)
pt3dadd(232.302, 150.018, 7.004, 0.54)
pt3dadd(232.421, 150.031, 6.998, 0.524)
pt3dadd(232.54, 150.044, 6.993, 0.51)
pt3dadd(232.658, 150.058, 6.988, 0.496)
pt3dadd(232.778, 150.071, 6.983, 0.48)
pt3dadd(232.897, 150.084, 6.978, 0.466)
pt3dadd(233.016, 150.102, 6.974, 0.448)
pt3dadd(233.134, 150.122, 6.97, 0.43)
pt3dadd(233.252, 150.143, 6.967, 0.41)
pt3dadd(233.37, 150.163, 6.963, 0.392)
pt3dadd(233.489, 150.184, 6.96, 0.372)
pt3dadd(233.606, 150.204, 6.956, 0.354)
pt3dadd(233.725, 150.224, 6.953, 0.334)
pt3dadd(233.843, 150.245, 6.949, 0.316)
pt3dadd(233.962, 150.265, 6.946, 0.296)
pt3dadd(234.079, 150.286, 6.942, 0.278)
pt3dadd(234.192, 150.325, 6.936, 0.294)
pt3dadd(234.302, 150.372, 6.93, 0.32)
pt3dadd(234.413, 150.418, 6.923, 0.346)
pt3dadd(234.523, 150.463, 6.917, 0.374)
pt3dadd(234.634, 150.51, 6.91, 0.4)
pt3dadd(234.744, 150.556, 6.904, 0.426)
pt3dadd(234.854, 150.601, 6.898, 0.454)
pt3dadd(234.966, 150.648, 6.891, 0.48)
pt3dadd(235.076, 150.694, 6.885, 0.506)
pt3dadd(235.187, 150.739, 6.878, 0.534)
pt3dadd(235.298, 150.78, 6.87, 0.54)
pt3dadd(235.412, 150.82, 6.861, 0.54)
pt3dadd(235.525, 150.859, 6.852, 0.54)
pt3dadd(235.638, 150.899, 6.844, 0.542)
pt3dadd(235.751, 150.938, 6.835, 0.542)
pt3dadd(235.864, 150.978, 6.826, 0.542)
pt3dadd(235.976, 151.016, 6.817, 0.544)
pt3dadd(236.089, 151.056, 6.809, 0.544)
pt3dadd(236.202, 151.096, 6.8, 0.544)
pt3dadd(236.315, 151.135, 6.791, 0.546)
pt3dadd(236.429, 151.169, 6.78, 0.524)
pt3dadd(236.544, 151.201, 6.769, 0.496)
pt3dadd(236.659, 151.232, 6.758, 0.468)
pt3dadd(236.773, 151.265, 6.747, 0.44)
pt3dadd(236.888, 151.297, 6.736, 0.412)
pt3dadd(237.004, 151.33, 6.725, 0.386)
pt3dadd(237.119, 151.361, 6.714, 0.358)
pt3dadd(237.233, 151.393, 6.703, 0.33)
pt3dadd(237.348, 151.426, 6.691, 0.302)
}
}
proc shape3d_93() {
apic[28] { pt3dadd(237.463, 151.457, 6.68, 0.274)
pt3dadd(237.575, 151.482, 6.652, 0.266)
pt3dadd(237.686, 151.504, 6.619, 0.262)
pt3dadd(237.797, 151.526, 6.586, 0.256)
pt3dadd(237.908, 151.549, 6.553, 0.252)
pt3dadd(238.019, 151.572, 6.521, 0.248)
pt3dadd(238.13, 151.594, 6.488, 0.244)
pt3dadd(238.241, 151.616, 6.455, 0.24)
pt3dadd(238.352, 151.639, 6.422, 0.236)
pt3dadd(238.464, 151.661, 6.389, 0.23)
pt3dadd(238.574, 151.684, 6.356, 0.226)
pt3dadd(238.685, 151.704, 6.321, 0.228)
pt3dadd(238.796, 151.724, 6.287, 0.23)
pt3dadd(238.907, 151.744, 6.252, 0.232)
pt3dadd(239.017, 151.764, 6.217, 0.234)
pt3dadd(239.128, 151.783, 6.182, 0.236)
pt3dadd(239.239, 151.804, 6.147, 0.238)
pt3dadd(239.35, 151.824, 6.112, 0.238)
pt3dadd(239.46, 151.843, 6.077, 0.24)
pt3dadd(239.57, 151.864, 6.042, 0.242)
pt3dadd(239.681, 151.884, 6.007, 0.244)
pt3dadd(239.796, 151.9, 5.982, 0.256)
pt3dadd(239.911, 151.915, 5.958, 0.27)
pt3dadd(240.028, 151.93, 5.934, 0.284)
pt3dadd(240.143, 151.945, 5.91, 0.298)
pt3dadd(240.258, 151.961, 5.887, 0.312)
pt3dadd(240.374, 151.975, 5.863, 0.326)
pt3dadd(240.49, 151.991, 5.839, 0.34)
pt3dadd(240.605, 152.006, 5.815, 0.354)
pt3dadd(240.72, 152.021, 5.791, 0.368)
pt3dadd(240.836, 152.036, 5.767, 0.382)
pt3dadd(240.95, 152.066, 5.749, 0.384)
pt3dadd(241.064, 152.098, 5.733, 0.384)
pt3dadd(241.178, 152.13, 5.715, 0.384)
pt3dadd(241.291, 152.161, 5.698, 0.384)
pt3dadd(241.405, 152.194, 5.681, 0.384)
pt3dadd(241.519, 152.226, 5.664, 0.384)
pt3dadd(241.633, 152.257, 5.647, 0.384)
pt3dadd(241.747, 152.29, 5.63, 0.384)
pt3dadd(241.861, 152.321, 5.613, 0.384)
pt3dadd(241.975, 152.353, 5.596, 0.384)
pt3dadd(242.084, 152.4, 5.586, 0.372)
pt3dadd(242.194, 152.448, 5.576, 0.358)
pt3dadd(242.304, 152.495, 5.565, 0.346)
pt3dadd(242.413, 152.543, 5.555, 0.332)
pt3dadd(242.522, 152.59, 5.545, 0.32)
pt3dadd(242.633, 152.638, 5.535, 0.306)
pt3dadd(242.742, 152.684, 5.525, 0.292)
pt3dadd(242.851, 152.732, 5.515, 0.28)
pt3dadd(242.962, 152.779, 5.504, 0.266)
pt3dadd(243.071, 152.827, 5.494, 0.254)
pt3dadd(243.184, 152.866, 5.492, 0.25)
pt3dadd(243.298, 152.905, 5.49, 0.248)
pt3dadd(243.41, 152.944, 5.488, 0.244)
pt3dadd(243.524, 152.983, 5.486, 0.242)
pt3dadd(243.638, 153.022, 5.483, 0.24)
pt3dadd(243.751, 153.061, 5.481, 0.236)
pt3dadd(243.865, 153.1, 5.479, 0.234)
pt3dadd(243.978, 153.139, 5.477, 0.232)
pt3dadd(244.092, 153.178, 5.475, 0.228)
pt3dadd(244.205, 153.216, 5.473, 0.226)
pt3dadd(244.32, 153.252, 5.473, 0.226)
pt3dadd(244.434, 153.288, 5.473, 0.226)
pt3dadd(244.549, 153.323, 5.473, 0.226)
pt3dadd(244.664, 153.359, 5.473, 0.226)
pt3dadd(244.778, 153.394, 5.472, 0.226)
pt3dadd(244.894, 153.43, 5.472, 0.226)
pt3dadd(245.008, 153.464, 5.472, 0.226)
pt3dadd(245.123, 153.5, 5.472, 0.226)
pt3dadd(245.237, 153.535, 5.472, 0.226)
pt3dadd(245.352, 153.571, 5.472, 0.226)
pt3dadd(245.468, 153.599, 5.472, 0.226)
pt3dadd(245.585, 153.626, 5.472, 0.226)
pt3dadd(245.702, 153.654, 5.472, 0.226)
pt3dadd(245.819, 153.682, 5.472, 0.226)
pt3dadd(245.935, 153.71, 5.471, 0.226)
pt3dadd(246.052, 153.738, 5.471, 0.226)
pt3dadd(246.169, 153.766, 5.471, 0.226)
pt3dadd(246.286, 153.793, 5.471, 0.226)
pt3dadd(246.402, 153.821, 5.471, 0.226)
pt3dadd(246.52, 153.85, 5.471, 0.226)
pt3dadd(246.632, 153.887, 5.471, 0.248)
pt3dadd(246.746, 153.925, 5.47, 0.27)
pt3dadd(246.86, 153.964, 5.47, 0.292)
pt3dadd(246.974, 154.002, 5.47, 0.314)
pt3dadd(247.087, 154.04, 5.47, 0.336)
pt3dadd(247.201, 154.079, 5.47, 0.358)
pt3dadd(247.315, 154.117, 5.469, 0.38)
pt3dadd(247.429, 154.156, 5.469, 0.402)
pt3dadd(247.542, 154.194, 5.469, 0.424)
pt3dadd(247.656, 154.232, 5.469, 0.446)
pt3dadd(247.766, 154.279, 5.468, 0.486)
pt3dadd(247.877, 154.326, 5.468, 0.526)
pt3dadd(247.988, 154.373, 5.468, 0.566)
pt3dadd(248.099, 154.42, 5.468, 0.606)
pt3dadd(248.209, 154.465, 5.467, 0.646)
pt3dadd(248.32, 154.512, 5.467, 0.686)
pt3dadd(248.43, 154.559, 5.467, 0.726)
pt3dadd(248.54, 154.606, 5.467, 0.766)
pt3dadd(248.651, 154.652, 5.466, 0.806)
pt3dadd(248.761, 154.699, 5.466, 0.844)
pt3dadd(248.876, 154.735, 5.465, 0.814)
pt3dadd(248.99, 154.772, 5.465, 0.784)
pt3dadd(249.104, 154.808, 5.464, 0.756)
pt3dadd(249.218, 154.844, 5.464, 0.726)
pt3dadd(249.334, 154.882, 5.463, 0.696)
pt3dadd(249.448, 154.918, 5.463, 0.668)
pt3dadd(249.562, 154.955, 5.462, 0.638)
pt3dadd(249.677, 154.991, 5.462, 0.61)
pt3dadd(249.791, 155.028, 5.461, 0.58)
pt3dadd(249.905, 155.064, 5.46, 0.55)
pt3dadd(250.02, 155.096, 5.46, 0.518)
pt3dadd(250.136, 155.129, 5.459, 0.486)
pt3dadd(250.252, 155.161, 5.458, 0.452)
pt3dadd(250.367, 155.192, 5.457, 0.42)
pt3dadd(250.483, 155.225, 5.457, 0.388)
pt3dadd(250.598, 155.257, 5.456, 0.356)
pt3dadd(250.714, 155.29, 5.455, 0.322)
pt3dadd(250.83, 155.322, 5.454, 0.29)
pt3dadd(250.945, 155.354, 5.453, 0.258)
pt3dadd(251.06, 155.387, 5.453, 0.226)
pt3dadd(251.178, 155.41, 5.451, 0.226)
pt3dadd(251.296, 155.432, 5.45, 0.226)
pt3dadd(251.414, 155.456, 5.449, 0.226)
pt3dadd(251.532, 155.479, 5.447, 0.226)
pt3dadd(251.65, 155.502, 5.446, 0.226)
pt3dadd(251.767, 155.525, 5.444, 0.226)
pt3dadd(251.885, 155.549, 5.443, 0.226)
pt3dadd(252.002, 155.572, 5.442, 0.226)
pt3dadd(252.12, 155.594, 5.44, 0.226)
pt3dadd(252.238, 155.618, 5.439, 0.226)
pt3dadd(252.354, 155.65, 5.437, 0.252)
pt3dadd(252.469, 155.682, 5.434, 0.278)
pt3dadd(252.584, 155.714, 5.432, 0.304)
pt3dadd(252.701, 155.746, 5.43, 0.33)
pt3dadd(252.816, 155.778, 5.428, 0.356)
pt3dadd(252.932, 155.809, 5.425, 0.38)
pt3dadd(253.048, 155.842, 5.423, 0.406)
pt3dadd(253.163, 155.873, 5.421, 0.432)
pt3dadd(253.279, 155.905, 5.419, 0.458)
pt3dadd(253.394, 155.938, 5.417, 0.484)
pt3dadd(253.508, 155.975, 5.414, 0.526)
pt3dadd(253.622, 156.012, 5.411, 0.566)
pt3dadd(253.736, 156.049, 5.408, 0.608)
pt3dadd(253.85, 156.086, 5.406, 0.65)
pt3dadd(253.964, 156.124, 5.403, 0.69)
pt3dadd(254.078, 156.161, 5.4, 0.732)
pt3dadd(254.192, 156.198, 5.398, 0.772)
pt3dadd(254.306, 156.235, 5.395, 0.814)
pt3dadd(254.42, 156.272, 5.392, 0.856)
pt3dadd(254.536, 156.308, 5.389, 0.892)
pt3dadd(254.654, 156.323, 5.382, 0.85)
pt3dadd(254.773, 156.337, 5.376, 0.81)
pt3dadd(254.892, 156.353, 5.369, 0.77)
pt3dadd(255.011, 156.367, 5.362, 0.728)
pt3dadd(255.13, 156.382, 5.355, 0.688)
pt3dadd(255.248, 156.397, 5.348, 0.646)
pt3dadd(255.367, 156.412, 5.341, 0.606)
pt3dadd(255.486, 156.426, 5.334, 0.564)
pt3dadd(255.605, 156.44, 5.327, 0.524)
pt3dadd(255.724, 156.455, 5.32, 0.482)
pt3dadd(255.842, 156.449, 5.312, 0.456)
pt3dadd(255.962, 156.443, 5.303, 0.43)
pt3dadd(256.081, 156.438, 5.294, 0.404)
pt3dadd(256.201, 156.432, 5.285, 0.378)
pt3dadd(256.32, 156.426, 5.276, 0.35)
pt3dadd(256.44, 156.421, 5.268, 0.324)
pt3dadd(256.559, 156.415, 5.259, 0.298)
pt3dadd(256.679, 156.409, 5.25, 0.272)
pt3dadd(256.798, 156.403, 5.241, 0.246)
pt3dadd(256.915, 156.39, 5.232, 0.226)
pt3dadd(257.029, 156.354, 5.221, 0.226)
pt3dadd(257.143, 156.319, 5.21, 0.226)
pt3dadd(257.257, 156.283, 5.199, 0.226)
pt3dadd(257.371, 156.248, 5.188, 0.226)
pt3dadd(257.485, 156.212, 5.177, 0.226)
pt3dadd(257.599, 156.176, 5.166, 0.226)
pt3dadd(257.713, 156.142, 5.155, 0.226)
pt3dadd(257.826, 156.106, 5.144, 0.226)
pt3dadd(257.94, 156.071, 5.132, 0.226)
pt3dadd(258.053, 156.036, 5.116, 0.226)
pt3dadd(258.163, 156.002, 5.086, 0.226)
pt3dadd(258.272, 155.97, 5.056, 0.226)
pt3dadd(258.383, 155.938, 5.026, 0.226)
pt3dadd(258.492, 155.905, 4.996, 0.226)
pt3dadd(258.601, 155.872, 4.966, 0.226)
pt3dadd(258.712, 155.839, 4.936, 0.226)
pt3dadd(258.821, 155.807, 4.906, 0.226)
pt3dadd(258.931, 155.773, 4.876, 0.226)
pt3dadd(259.04, 155.741, 4.846, 0.226)
pt3dadd(259.15, 155.708, 4.814, 0.226)
pt3dadd(259.256, 155.677, 4.779, 0.226)
pt3dadd(259.364, 155.646, 4.743, 0.226)
pt3dadd(259.472, 155.614, 4.707, 0.226)
pt3dadd(259.579, 155.582, 4.671, 0.226)
pt3dadd(259.687, 155.551, 4.635, 0.226)
pt3dadd(259.794, 155.519, 4.6, 0.226)
pt3dadd(259.902, 155.488, 4.564, 0.226)
pt3dadd(260.01, 155.456, 4.528, 0.226)
pt3dadd(260.117, 155.425, 4.492, 0.226)
}
}
proc shape3d_94() {
apic[28] { pt3dadd(260.226, 155.395, 4.46, 0.226)
pt3dadd(260.34, 155.37, 4.437, 0.226)
pt3dadd(260.454, 155.345, 4.413, 0.226)
pt3dadd(260.568, 155.32, 4.39, 0.226)
pt3dadd(260.682, 155.294, 4.366, 0.226)
pt3dadd(260.796, 155.27, 4.343, 0.226)
pt3dadd(260.91, 155.245, 4.319, 0.226)
pt3dadd(261.024, 155.22, 4.296, 0.226)
pt3dadd(261.138, 155.195, 4.272, 0.226)
pt3dadd(261.252, 155.17, 4.248, 0.226)
pt3dadd(261.366, 155.144, 4.227, 0.234)
pt3dadd(261.481, 155.119, 4.208, 0.254)
pt3dadd(261.596, 155.095, 4.189, 0.276)
pt3dadd(261.712, 155.07, 4.17, 0.298)
pt3dadd(261.827, 155.046, 4.151, 0.32)
pt3dadd(261.942, 155.021, 4.132, 0.34)
pt3dadd(262.057, 154.996, 4.114, 0.362)
pt3dadd(262.172, 154.972, 4.095, 0.384)
pt3dadd(262.288, 154.946, 4.076, 0.406)
pt3dadd(262.403, 154.921, 4.057, 0.426)
pt3dadd(262.519, 154.897, 4.041, 0.46)
pt3dadd(262.636, 154.873, 4.03, 0.518)
pt3dadd(262.752, 154.848, 4.019, 0.574)
pt3dadd(262.87, 154.824, 4.009, 0.632)
pt3dadd(262.986, 154.8, 3.998, 0.69)
pt3dadd(263.102, 154.776, 3.987, 0.746)
pt3dadd(263.22, 154.752, 3.976, 0.804)
pt3dadd(263.336, 154.728, 3.965, 0.86)
pt3dadd(263.453, 154.703, 3.954, 0.918)
pt3dadd(263.57, 154.679, 3.944, 0.974)
pt3dadd(263.683, 154.645, 3.936, 1.002)
pt3dadd(263.791, 154.592, 3.934, 0.972)
pt3dadd(263.899, 154.54, 3.932, 0.942)
pt3dadd(264.007, 154.487, 3.93, 0.912)
pt3dadd(264.115, 154.434, 3.928, 0.884)
pt3dadd(264.222, 154.381, 3.926, 0.854)
pt3dadd(264.33, 154.328, 3.924, 0.824)
pt3dadd(264.438, 154.276, 3.921, 0.794)
pt3dadd(264.546, 154.223, 3.919, 0.766)
pt3dadd(264.654, 154.171, 3.917, 0.736)
pt3dadd(264.76, 154.115, 3.916, 0.698)
pt3dadd(264.864, 154.055, 3.917, 0.648)
pt3dadd(264.967, 153.994, 3.917, 0.598)
pt3dadd(265.072, 153.934, 3.917, 0.55)
pt3dadd(265.175, 153.874, 3.917, 0.5)
pt3dadd(265.278, 153.814, 3.918, 0.45)
pt3dadd(265.382, 153.752, 3.918, 0.402)
pt3dadd(265.486, 153.692, 3.918, 0.352)
pt3dadd(265.59, 153.632, 3.919, 0.302)
pt3dadd(265.693, 153.572, 3.919, 0.254)
pt3dadd(265.793, 153.505, 3.919, 0.226)
pt3dadd(265.886, 153.431, 3.92, 0.226)
pt3dadd(265.981, 153.355, 3.92, 0.226)
pt3dadd(266.075, 153.281, 3.921, 0.226)
pt3dadd(266.168, 153.206, 3.921, 0.226)
pt3dadd(266.262, 153.131, 3.922, 0.226)
pt3dadd(266.356, 153.056, 3.922, 0.226)
pt3dadd(266.45, 152.982, 3.923, 0.226)
pt3dadd(266.544, 152.908, 3.923, 0.226)
pt3dadd(266.638, 152.832, 3.924, 0.226)
pt3dadd(266.732, 152.759, 3.924, 0.23)
pt3dadd(266.828, 152.687, 3.925, 0.238)
pt3dadd(266.924, 152.615, 3.926, 0.248)
pt3dadd(267.02, 152.543, 3.927, 0.256)
pt3dadd(267.116, 152.471, 3.927, 0.264)
pt3dadd(267.212, 152.399, 3.928, 0.274)
pt3dadd(267.308, 152.327, 3.929, 0.282)
pt3dadd(267.404, 152.255, 3.929, 0.292)
pt3dadd(267.5, 152.183, 3.93, 0.3)
pt3dadd(267.596, 152.111, 3.931, 0.308)
pt3dadd(267.696, 152.045, 3.932, 0.334)
pt3dadd(267.799, 151.984, 3.933, 0.376)
pt3dadd(267.904, 151.922, 3.935, 0.42)
pt3dadd(268.007, 151.862, 3.936, 0.462)
pt3dadd(268.11, 151.801, 3.937, 0.506)
pt3dadd(268.213, 151.741, 3.939, 0.548)
pt3dadd(268.318, 151.68, 3.94, 0.592)
pt3dadd(268.421, 151.62, 3.942, 0.634)
pt3dadd(268.524, 151.559, 3.943, 0.678)
pt3dadd(268.627, 151.498, 3.944, 0.72)
pt3dadd(268.726, 151.429, 3.946, 0.736)
pt3dadd(268.817, 151.352, 3.949, 0.718)
pt3dadd(268.908, 151.274, 3.952, 0.702)
pt3dadd(269, 151.196, 3.954, 0.684)
pt3dadd(269.092, 151.12, 3.957, 0.668)
pt3dadd(269.183, 151.042, 3.96, 0.65)
pt3dadd(269.274, 150.964, 3.962, 0.634)
pt3dadd(269.365, 150.886, 3.965, 0.616)
pt3dadd(269.458, 150.809, 3.968, 0.6)
pt3dadd(269.549, 150.731, 3.971, 0.582)
pt3dadd(269.64, 150.653, 3.975, 0.568)
pt3dadd(269.73, 150.575, 3.98, 0.558)
pt3dadd(269.821, 150.497, 3.985, 0.548)
pt3dadd(269.912, 150.419, 3.99, 0.538)
pt3dadd(270.004, 150.341, 3.996, 0.528)
pt3dadd(270.094, 150.263, 4.001, 0.518)
pt3dadd(270.185, 150.184, 4.006, 0.508)
pt3dadd(270.276, 150.106, 4.012, 0.498)
pt3dadd(270.366, 150.028, 4.017, 0.488)
pt3dadd(270.457, 149.95, 4.022, 0.476)
pt3dadd(270.556, 149.882, 4.03, 0.514)
pt3dadd(270.659, 149.822, 4.039, 0.576)
pt3dadd(270.762, 149.761, 4.048, 0.64)
pt3dadd(270.865, 149.7, 4.057, 0.702)
pt3dadd(270.967, 149.64, 4.066, 0.764)
pt3dadd(271.07, 149.579, 4.076, 0.828)
pt3dadd(271.174, 149.518, 4.085, 0.89)
pt3dadd(271.276, 149.458, 4.094, 0.952)
pt3dadd(271.379, 149.396, 4.103, 1.014)
pt3dadd(271.482, 149.335, 4.112, 1.078)
pt3dadd(271.579, 149.268, 4.123, 1.08)
pt3dadd(271.675, 149.196, 4.135, 1.05)
pt3dadd(271.77, 149.124, 4.147, 1.02)
pt3dadd(271.866, 149.053, 4.158, 0.99)
pt3dadd(271.961, 148.981, 4.17, 0.96)
pt3dadd(272.057, 148.91, 4.182, 0.93)
pt3dadd(272.152, 148.838, 4.194, 0.9)
pt3dadd(272.246, 148.766, 4.206, 0.87)
pt3dadd(272.342, 148.696, 4.217, 0.84)
pt3dadd(272.437, 148.624, 4.229, 0.812)
pt3dadd(272.532, 148.559, 4.256, 0.778)
pt3dadd(272.626, 148.496, 4.291, 0.744)
pt3dadd(272.719, 148.434, 4.326, 0.71)
pt3dadd(272.813, 148.372, 4.36, 0.676)
pt3dadd(272.906, 148.309, 4.395, 0.642)
pt3dadd(273, 148.247, 4.43, 0.608)
pt3dadd(273.094, 148.184, 4.464, 0.572)
pt3dadd(273.187, 148.122, 4.499, 0.538)
pt3dadd(273.281, 148.06, 4.534, 0.504)
pt3dadd(273.374, 147.997, 4.568, 0.47)
pt3dadd(273.468, 147.938, 4.609, 0.444)
pt3dadd(273.56, 147.881, 4.651, 0.42)
pt3dadd(273.653, 147.823, 4.693, 0.396)
pt3dadd(273.745, 147.766, 4.735, 0.372)
pt3dadd(273.838, 147.708, 4.777, 0.348)
pt3dadd(273.93, 147.65, 4.819, 0.324)
pt3dadd(274.022, 147.593, 4.86, 0.3)
pt3dadd(274.115, 147.535, 4.902, 0.276)
pt3dadd(274.207, 147.478, 4.944, 0.252)
pt3dadd(274.3, 147.42, 4.986, 0.228)
pt3dadd(274.396, 147.355, 5.013, 0.226)
pt3dadd(274.492, 147.292, 5.038, 0.226)
pt3dadd(274.589, 147.227, 5.064, 0.226)
pt3dadd(274.685, 147.162, 5.09, 0.226)
pt3dadd(274.781, 147.097, 5.116, 0.226)
pt3dadd(274.877, 147.032, 5.141, 0.226)
pt3dadd(274.973, 146.968, 5.167, 0.226)
pt3dadd(275.07, 146.903, 5.193, 0.226)
pt3dadd(275.166, 146.838, 5.219, 0.226)
pt3dadd(275.262, 146.773, 5.244, 0.226)
pt3dadd(275.376, 146.74, 5.257, 0.254)
pt3dadd(275.49, 146.707, 5.269, 0.282)
pt3dadd(275.605, 146.676, 5.281, 0.312)
pt3dadd(275.72, 146.644, 5.293, 0.34)
pt3dadd(275.834, 146.611, 5.304, 0.37)
pt3dadd(275.95, 146.58, 5.316, 0.398)
pt3dadd(276.065, 146.548, 5.328, 0.428)
pt3dadd(276.179, 146.515, 5.34, 0.456)
pt3dadd(276.294, 146.484, 5.352, 0.486)
pt3dadd(276.409, 146.452, 5.364, 0.514)
pt3dadd(276.527, 146.434, 5.367, 0.524)
pt3dadd(276.646, 146.414, 5.37, 0.532)
pt3dadd(276.764, 146.396, 5.373, 0.542)
pt3dadd(276.883, 146.377, 5.376, 0.55)
pt3dadd(277.001, 146.359, 5.379, 0.56)
pt3dadd(277.12, 146.341, 5.382, 0.568)
pt3dadd(277.238, 146.322, 5.385, 0.576)
pt3dadd(277.357, 146.304, 5.388, 0.586)
pt3dadd(277.475, 146.285, 5.391, 0.594)
pt3dadd(277.594, 146.267, 5.394, 0.602)
pt3dadd(277.714, 146.258, 5.389, 0.586)
pt3dadd(277.834, 146.251, 5.385, 0.572)
pt3dadd(277.952, 146.242, 5.381, 0.558)
pt3dadd(278.072, 146.233, 5.377, 0.542)
pt3dadd(278.192, 146.226, 5.372, 0.528)
pt3dadd(278.311, 146.218, 5.368, 0.512)
pt3dadd(278.431, 146.209, 5.364, 0.498)
pt3dadd(278.551, 146.201, 5.36, 0.482)
pt3dadd(278.67, 146.192, 5.355, 0.468)
pt3dadd(278.79, 146.186, 5.351, 0.456)
pt3dadd(278.903, 146.221, 5.339, 0.486)
pt3dadd(279.017, 146.257, 5.328, 0.518)
pt3dadd(279.131, 146.292, 5.316, 0.548)
pt3dadd(279.245, 146.327, 5.305, 0.58)
pt3dadd(279.359, 146.363, 5.293, 0.61)
pt3dadd(279.473, 146.398, 5.282, 0.642)
pt3dadd(279.587, 146.432, 5.27, 0.672)
pt3dadd(279.701, 146.467, 5.259, 0.704)
pt3dadd(279.815, 146.503, 5.247, 0.734)
pt3dadd(279.929, 146.536, 5.236, 0.762)
pt3dadd(280.048, 146.539, 5.22, 0.746)
pt3dadd(280.165, 146.542, 5.204, 0.73)
pt3dadd(280.284, 146.544, 5.188, 0.714)
pt3dadd(280.403, 146.548, 5.172, 0.698)
pt3dadd(280.522, 146.55, 5.156, 0.682)
pt3dadd(280.639, 146.552, 5.14, 0.666)
pt3dadd(280.758, 146.556, 5.125, 0.65)
pt3dadd(280.877, 146.558, 5.109, 0.634)
pt3dadd(280.994, 146.562, 5.093, 0.616)
pt3dadd(281.108, 146.552, 5.068, 0.592)
}
}
proc shape3d_95() {
apic[28] { pt3dadd(281.215, 146.524, 5.028, 0.55)
pt3dadd(281.322, 146.496, 4.989, 0.51)
pt3dadd(281.429, 146.467, 4.949, 0.47)
pt3dadd(281.534, 146.44, 4.91, 0.428)
pt3dadd(281.641, 146.411, 4.87, 0.388)
pt3dadd(281.748, 146.383, 4.831, 0.348)
pt3dadd(281.855, 146.354, 4.791, 0.308)
pt3dadd(281.96, 146.326, 4.752, 0.266)
pt3dadd(282.067, 146.298, 4.712, 0.226)
pt3dadd(282.132, 146.266, 4.632, 0.226)
pt3dadd(282.196, 146.234, 4.551, 0.226)
pt3dadd(282.26, 146.202, 4.471, 0.226)
pt3dadd(282.324, 146.17, 4.391, 0.226)
pt3dadd(282.389, 146.137, 4.311, 0.226)
pt3dadd(282.452, 146.106, 4.231, 0.226)
pt3dadd(282.517, 146.074, 4.151, 0.226)
pt3dadd(282.581, 146.041, 4.071, 0.226)
pt3dadd(282.646, 146.01, 3.99, 0.226)
pt3dadd(282.709, 145.978, 3.91, 0.226)
}
apic[29] {pt3dclear()
pt3dadd(217.762, 149.605, 9.528, 0.362)
pt3dadd(217.792, 149.672, 9.58, 0.422)
pt3dadd(217.83, 149.756, 9.644, 0.494)
pt3dadd(217.868, 149.839, 9.708, 0.568)
pt3dadd(217.907, 149.923, 9.773, 0.642)
pt3dadd(217.944, 150.007, 9.837, 0.714)
pt3dadd(217.982, 150.09, 9.901, 0.788)
pt3dadd(218.021, 150.174, 9.965, 0.862)
pt3dadd(218.059, 150.258, 10.03, 0.936)
pt3dadd(218.096, 150.342, 10.094, 1.008)
pt3dadd(218.135, 150.425, 10.158, 1.082)
pt3dadd(218.14, 150.508, 10.18, 1.152)
pt3dadd(218.081, 150.586, 10.123, 1.212)
pt3dadd(218.022, 150.665, 10.066, 1.274)
pt3dadd(217.963, 150.743, 10.008, 1.336)
pt3dadd(217.904, 150.827, 9.956, 1.382)
pt3dadd(217.848, 150.92, 9.916, 1.382)
pt3dadd(217.79, 151.015, 9.877, 1.382)
pt3dadd(217.734, 151.11, 9.837, 1.382)
pt3dadd(217.678, 151.204, 9.797, 1.38)
pt3dadd(217.619, 151.283, 9.74, 1.368)
pt3dadd(217.559, 151.361, 9.683, 1.356)
pt3dadd(217.5, 151.44, 9.625, 1.344)
pt3dadd(217.441, 151.519, 9.568, 1.332)
pt3dadd(217.415, 151.626, 9.53, 1.3)
pt3dadd(217.39, 151.734, 9.492, 1.268)
pt3dadd(217.363, 151.842, 9.454, 1.236)
pt3dadd(217.338, 151.95, 9.416, 1.202)
pt3dadd(217.32, 152.059, 9.378, 1.174)
pt3dadd(217.32, 152.17, 9.339, 1.152)
pt3dadd(217.32, 152.28, 9.3, 1.13)
pt3dadd(217.32, 152.39, 9.261, 1.108)
pt3dadd(217.32, 152.501, 9.222, 1.086)
pt3dadd(217.32, 152.604, 9.171, 1.072)
pt3dadd(217.32, 152.702, 9.114, 1.06)
pt3dadd(217.32, 152.768, 9.037, 1.048)
pt3dadd(217.32, 152.808, 8.943, 1.038)
pt3dadd(217.32, 152.856, 8.852, 1.032)
pt3dadd(217.32, 152.935, 8.777, 1.046)
pt3dadd(217.32, 153.014, 8.701, 1.06)
pt3dadd(217.32, 153.092, 8.626, 1.074)
pt3dadd(217.32, 153.198, 8.592, 1.104)
pt3dadd(217.32, 153.317, 8.58, 1.142)
pt3dadd(217.32, 153.437, 8.567, 1.178)
pt3dadd(217.309, 153.544, 8.53, 1.23)
pt3dadd(217.259, 153.652, 8.516, 1.224)
pt3dadd(217.21, 153.76, 8.503, 1.218)
pt3dadd(217.159, 153.868, 8.489, 1.214)
pt3dadd(217.11, 153.976, 8.475, 1.208)
pt3dadd(217.056, 154.075, 8.448, 1.2)
pt3dadd(216.994, 154.163, 8.403, 1.188)
pt3dadd(216.932, 154.25, 8.357, 1.176)
pt3dadd(216.871, 154.337, 8.311, 1.164)
pt3dadd(216.82, 154.426, 8.261, 1.154)
pt3dadd(216.796, 154.516, 8.198, 1.148)
pt3dadd(216.772, 154.606, 8.135, 1.142)
pt3dadd(216.748, 154.696, 8.072, 1.136)
pt3dadd(216.724, 154.787, 8.01, 1.13)
pt3dadd(216.698, 154.889, 7.963, 1.13)
pt3dadd(216.672, 154.993, 7.919, 1.13)
pt3dadd(216.646, 155.099, 7.876, 1.13)
pt3dadd(216.619, 155.203, 7.832, 1.13)
pt3dadd(216.6, 155.305, 7.783, 1.126)
pt3dadd(216.6, 155.399, 7.721, 1.116)
pt3dadd(216.6, 155.488, 7.656, 1.102)
pt3dadd(216.6, 155.549, 7.569, 1.08)
pt3dadd(216.6, 155.61, 7.483, 1.056)
pt3dadd(216.6, 155.719, 7.447, 1.014)
pt3dadd(216.6, 155.833, 7.414, 0.972)
pt3dadd(216.6, 155.95, 7.393, 0.932)
pt3dadd(216.6, 156.068, 7.38, 0.894)
pt3dadd(216.6, 156.188, 7.368, 0.858)
pt3dadd(216.6, 156.296, 7.327, 0.808)
pt3dadd(216.6, 156.406, 7.285, 0.786)
pt3dadd(216.6, 156.517, 7.248, 0.804)
pt3dadd(216.6, 156.628, 7.211, 0.824)
pt3dadd(216.6, 156.739, 7.174, 0.842)
pt3dadd(216.6, 156.851, 7.136, 0.86)
pt3dadd(216.6, 156.962, 7.099, 0.88)
pt3dadd(216.6, 157.073, 7.06, 0.922)
pt3dadd(216.6, 157.183, 7.02, 0.964)
pt3dadd(216.6, 157.292, 6.98, 1.008)
pt3dadd(216.6, 157.403, 6.941, 1.05)
pt3dadd(216.6, 157.513, 6.901, 1.092)
pt3dadd(216.617, 157.608, 6.843, 1.148)
pt3dadd(216.641, 157.696, 6.778, 1.21)
pt3dadd(216.665, 157.782, 6.713, 1.274)
pt3dadd(216.689, 157.87, 6.647, 1.336)
pt3dadd(216.715, 157.962, 6.588, 1.386)
pt3dadd(216.744, 158.065, 6.543, 1.402)
pt3dadd(216.774, 158.168, 6.499, 1.42)
pt3dadd(216.804, 158.273, 6.455, 1.436)
pt3dadd(216.833, 158.376, 6.41, 1.452)
pt3dadd(216.888, 158.476, 6.383, 1.444)
pt3dadd(216.95, 158.574, 6.36, 1.426)
pt3dadd(217.013, 158.674, 6.338, 1.41)
pt3dadd(217.076, 158.772, 6.316, 1.392)
pt3dadd(217.142, 158.866, 6.289, 1.352)
pt3dadd(217.217, 158.947, 6.251, 1.252)
pt3dadd(217.303, 159.018, 6.214, 1.17)
pt3dadd(217.398, 159.076, 6.178, 1.1)
pt3dadd(217.432, 159.168, 6.134, 1.048)
pt3dadd(217.438, 159.274, 6.087, 1)
pt3dadd(217.44, 159.384, 6.048, 0.974)
pt3dadd(217.44, 159.497, 6.015, 0.962)
pt3dadd(217.44, 159.61, 5.981, 0.958)
pt3dadd(217.44, 159.721, 5.946, 0.974)
pt3dadd(217.44, 159.838, 5.92, 0.988)
pt3dadd(217.44, 159.955, 5.899, 1)
pt3dadd(217.44, 160.072, 5.878, 1.014)
pt3dadd(217.44, 160.189, 5.858, 1.026)
pt3dadd(217.44, 160.307, 5.837, 1.038)
pt3dadd(217.44, 160.424, 5.816, 1.052)
pt3dadd(217.44, 160.542, 5.797, 1.064)
pt3dadd(217.44, 160.66, 5.779, 1.076)
pt3dadd(217.44, 160.778, 5.76, 1.09)
pt3dadd(217.44, 160.896, 5.741, 1.102)
pt3dadd(217.44, 161.014, 5.723, 1.114)
pt3dadd(217.44, 161.131, 5.704, 1.128)
pt3dadd(217.44, 161.242, 5.666, 1.138)
pt3dadd(217.44, 161.348, 5.621, 1.146)
pt3dadd(217.44, 161.456, 5.577, 1.156)
pt3dadd(217.44, 161.563, 5.532, 1.166)
pt3dadd(217.44, 161.671, 5.487, 1.176)
pt3dadd(217.44, 161.782, 5.449, 1.182)
pt3dadd(217.44, 161.896, 5.417, 1.188)
pt3dadd(217.44, 162.008, 5.385, 1.192)
pt3dadd(217.44, 162.122, 5.353, 1.196)
pt3dadd(217.44, 162.236, 5.32, 1.2)
pt3dadd(217.44, 162.349, 5.287, 1.206)
pt3dadd(217.44, 162.448, 5.23, 1.2)
pt3dadd(217.44, 162.546, 5.172, 1.196)
pt3dadd(217.44, 162.643, 5.115, 1.19)
pt3dadd(217.44, 162.742, 5.057, 1.186)
pt3dadd(217.44, 162.84, 5, 1.18)
pt3dadd(217.44, 162.914, 4.922, 1.156)
pt3dadd(217.44, 162.99, 4.844, 1.134)
pt3dadd(217.44, 163.081, 4.779, 1.1)
pt3dadd(217.44, 163.175, 4.717, 1.064)
pt3dadd(217.49, 163.25, 4.658, 1.022)
pt3dadd(217.56, 163.32, 4.6, 0.98)
}
apic[30] {pt3dclear()
pt3dadd(196.374, 139.285, 10.726, 0.226)
pt3dadd(196.426, 139.188, 10.699, 0.24)
pt3dadd(196.49, 139.084, 10.673, 0.256)
pt3dadd(196.555, 138.98, 10.648, 0.272)
pt3dadd(196.619, 138.876, 10.623, 0.288)
pt3dadd(196.684, 138.773, 10.598, 0.304)
pt3dadd(196.747, 138.67, 10.573, 0.32)
pt3dadd(196.812, 138.565, 10.547, 0.338)
pt3dadd(196.878, 138.462, 10.522, 0.354)
pt3dadd(196.942, 138.359, 10.497, 0.37)
pt3dadd(197.006, 138.254, 10.472, 0.386)
pt3dadd(197.071, 138.151, 10.446, 0.402)
pt3dadd(197.135, 138.047, 10.421, 0.418)
pt3dadd(197.2, 137.942, 10.396, 0.434)
pt3dadd(197.263, 137.839, 10.371, 0.45)
pt3dadd(197.328, 137.735, 10.345, 0.466)
pt3dadd(197.393, 137.632, 10.32, 0.482)
pt3dadd(197.456, 137.528, 10.295, 0.5)
pt3dadd(197.521, 137.424, 10.27, 0.516)
pt3dadd(197.586, 137.321, 10.245, 0.532)
pt3dadd(197.65, 137.216, 10.219, 0.548)
pt3dadd(197.714, 137.113, 10.194, 0.564)
pt3dadd(197.778, 137.01, 10.169, 0.58)
pt3dadd(197.843, 136.906, 10.144, 0.596)
pt3dadd(197.908, 136.802, 10.118, 0.612)
pt3dadd(197.971, 136.699, 10.093, 0.628)
pt3dadd(198.036, 136.595, 10.068, 0.644)
pt3dadd(198.101, 136.492, 10.043, 0.66)
pt3dadd(198.185, 136.415, 10.021, 0.682)
pt3dadd(198.296, 136.373, 10.003, 0.71)
pt3dadd(198.407, 136.331, 9.985, 0.738)
pt3dadd(198.517, 136.289, 9.967, 0.766)
pt3dadd(198.629, 136.247, 9.949, 0.794)
pt3dadd(198.739, 136.205, 9.931, 0.822)
pt3dadd(198.851, 136.162, 9.913, 0.85)
pt3dadd(198.962, 136.12, 9.895, 0.876)
pt3dadd(199.073, 136.078, 9.878, 0.904)
pt3dadd(199.183, 136.036, 9.86, 0.932)
pt3dadd(199.292, 135.99, 9.842, 0.952)
pt3dadd(199.403, 135.943, 9.824, 0.966)
}
}
proc shape3d_96() {
apic[30] { pt3dadd(199.512, 135.894, 9.806, 0.978)
pt3dadd(199.62, 135.846, 9.788, 0.992)
pt3dadd(199.729, 135.798, 9.771, 1.004)
pt3dadd(199.84, 135.75, 9.753, 1.018)
pt3dadd(199.948, 135.702, 9.735, 1.03)
pt3dadd(200.057, 135.655, 9.717, 1.044)
pt3dadd(200.165, 135.607, 9.699, 1.056)
pt3dadd(200.275, 135.559, 9.681, 1.07)
pt3dadd(200.38, 135.5, 9.663, 1.064)
pt3dadd(200.479, 135.436, 9.645, 1.048)
pt3dadd(200.581, 135.37, 9.627, 1.032)
pt3dadd(200.682, 135.305, 9.608, 1.016)
pt3dadd(200.783, 135.24, 9.59, 1)
pt3dadd(200.884, 135.174, 9.572, 0.984)
pt3dadd(200.984, 135.109, 9.553, 0.968)
pt3dadd(201.085, 135.043, 9.535, 0.952)
pt3dadd(201.187, 134.978, 9.517, 0.936)
pt3dadd(201.287, 134.914, 9.498, 0.92)
pt3dadd(201.382, 134.854, 9.458, 0.912)
pt3dadd(201.472, 134.796, 9.404, 0.912)
pt3dadd(201.559, 134.74, 9.349, 0.91)
pt3dadd(201.649, 134.683, 9.295, 0.91)
pt3dadd(201.738, 134.627, 9.241, 0.908)
pt3dadd(201.828, 134.569, 9.187, 0.908)
pt3dadd(201.917, 134.513, 9.132, 0.906)
pt3dadd(202.006, 134.456, 9.078, 0.906)
pt3dadd(202.096, 134.4, 9.024, 0.906)
pt3dadd(202.184, 134.341, 8.97, 0.904)
pt3dadd(202.282, 134.292, 8.923, 0.92)
pt3dadd(202.384, 134.245, 8.882, 0.946)
pt3dadd(202.484, 134.2, 8.84, 0.97)
pt3dadd(202.588, 134.154, 8.798, 0.996)
pt3dadd(202.69, 134.107, 8.756, 1.02)
pt3dadd(202.79, 134.062, 8.714, 1.046)
pt3dadd(202.892, 134.016, 8.672, 1.07)
pt3dadd(202.996, 133.969, 8.631, 1.096)
pt3dadd(203.096, 133.924, 8.589, 1.12)
pt3dadd(203.198, 133.878, 8.547, 1.146)
pt3dadd(203.303, 133.83, 8.515, 1.158)
pt3dadd(203.41, 133.781, 8.487, 1.166)
pt3dadd(203.516, 133.733, 8.459, 1.174)
pt3dadd(203.622, 133.684, 8.431, 1.182)
pt3dadd(203.729, 133.636, 8.402, 1.192)
pt3dadd(203.836, 133.586, 8.374, 1.2)
pt3dadd(203.941, 133.537, 8.346, 1.208)
pt3dadd(204.048, 133.489, 8.318, 1.216)
pt3dadd(204.154, 133.44, 8.29, 1.224)
pt3dadd(204.26, 133.392, 8.262, 1.232)
pt3dadd(204.366, 133.336, 8.242, 1.21)
pt3dadd(204.47, 133.277, 8.225, 1.182)
pt3dadd(204.575, 133.219, 8.207, 1.152)
pt3dadd(204.68, 133.16, 8.19, 1.122)
pt3dadd(204.785, 133.103, 8.172, 1.094)
pt3dadd(204.889, 133.044, 8.155, 1.064)
pt3dadd(204.994, 132.985, 8.138, 1.036)
pt3dadd(205.099, 132.926, 8.12, 1.006)
pt3dadd(205.204, 132.869, 8.103, 0.976)
pt3dadd(205.308, 132.811, 8.086, 0.948)
pt3dadd(205.418, 132.764, 8.075, 0.948)
pt3dadd(205.531, 132.722, 8.067, 0.956)
pt3dadd(205.528, 132.715, 8.061, 0.956)
pt3dadd(205.639, 132.672, 8.053, 0.966)
pt3dadd(205.751, 132.63, 8.044, 0.974)
pt3dadd(205.862, 132.587, 8.036, 0.982)
pt3dadd(205.975, 132.545, 8.027, 0.99)
pt3dadd(206.086, 132.502, 8.019, 0.998)
pt3dadd(206.198, 132.458, 8.01, 1.008)
pt3dadd(206.31, 132.416, 8.002, 1.016)
pt3dadd(206.422, 132.373, 7.993, 1.024)
pt3dadd(206.534, 132.335, 7.985, 1.038)
pt3dadd(206.647, 132.296, 7.977, 1.052)
pt3dadd(206.76, 132.258, 7.969, 1.066)
pt3dadd(206.874, 132.22, 7.961, 1.08)
pt3dadd(206.986, 132.182, 7.954, 1.094)
pt3dadd(207.1, 132.144, 7.946, 1.108)
pt3dadd(207.212, 132.106, 7.938, 1.122)
pt3dadd(207.325, 132.067, 7.93, 1.136)
pt3dadd(207.439, 132.029, 7.922, 1.15)
pt3dadd(207.551, 131.992, 7.914, 1.164)
pt3dadd(207.666, 131.958, 7.905, 1.178)
pt3dadd(207.781, 131.927, 7.895, 1.192)
pt3dadd(207.894, 131.894, 7.886, 1.208)
pt3dadd(208.009, 131.863, 7.876, 1.222)
pt3dadd(208.124, 131.831, 7.867, 1.236)
pt3dadd(208.238, 131.8, 7.857, 1.25)
pt3dadd(208.354, 131.768, 7.847, 1.264)
pt3dadd(208.468, 131.737, 7.838, 1.28)
pt3dadd(208.582, 131.706, 7.828, 1.294)
pt3dadd(208.697, 131.674, 7.818, 1.308)
pt3dadd(208.811, 131.645, 7.805, 1.314)
pt3dadd(208.926, 131.617, 7.792, 1.318)
pt3dadd(209.041, 131.588, 7.778, 1.324)
pt3dadd(209.156, 131.561, 7.764, 1.328)
pt3dadd(209.272, 131.532, 7.751, 1.332)
pt3dadd(209.386, 131.503, 7.737, 1.338)
pt3dadd(209.501, 131.476, 7.723, 1.342)
pt3dadd(209.616, 131.447, 7.709, 1.346)
pt3dadd(209.73, 131.419, 7.696, 1.35)
pt3dadd(209.845, 131.39, 7.682, 1.356)
pt3dadd(209.959, 131.359, 7.666, 1.352)
pt3dadd(210.072, 131.327, 7.649, 1.35)
pt3dadd(210.07, 131.32, 7.644, 1.35)
pt3dadd(210.182, 131.287, 7.627, 1.346)
pt3dadd(210.298, 131.255, 7.61, 1.342)
pt3dadd(210.412, 131.224, 7.593, 1.338)
pt3dadd(210.524, 131.191, 7.577, 1.334)
pt3dadd(210.638, 131.159, 7.56, 1.33)
pt3dadd(210.752, 131.128, 7.543, 1.328)
pt3dadd(210.865, 131.094, 7.526, 1.324)
pt3dadd(210.979, 131.062, 7.51, 1.32)
pt3dadd(211.081, 131, 7.487, 1.296)
pt3dadd(211.182, 130.937, 7.463, 1.268)
pt3dadd(211.283, 130.873, 7.44, 1.242)
pt3dadd(211.382, 130.81, 7.416, 1.214)
pt3dadd(211.484, 130.746, 7.393, 1.188)
pt3dadd(211.585, 130.682, 7.369, 1.16)
pt3dadd(211.685, 130.618, 7.346, 1.134)
pt3dadd(211.786, 130.554, 7.322, 1.106)
pt3dadd(211.886, 130.49, 7.299, 1.08)
pt3dadd(211.987, 130.427, 7.275, 1.052)
pt3dadd(212.086, 130.366, 7.239, 1.02)
pt3dadd(212.182, 130.306, 7.202, 0.988)
pt3dadd(212.28, 130.244, 7.164, 0.954)
pt3dadd(212.377, 130.184, 7.126, 0.922)
pt3dadd(212.474, 130.123, 7.089, 0.89)
pt3dadd(212.572, 130.063, 7.051, 0.856)
pt3dadd(212.669, 130.002, 7.014, 0.824)
pt3dadd(212.766, 129.942, 6.976, 0.79)
pt3dadd(212.864, 129.881, 6.939, 0.758)
pt3dadd(212.96, 129.821, 6.901, 0.724)
pt3dadd(213.052, 129.766, 6.848, 0.686)
pt3dadd(213.143, 129.71, 6.794, 0.648)
pt3dadd(213.233, 129.654, 6.741, 0.608)
pt3dadd(213.324, 129.599, 6.688, 0.57)
pt3dadd(213.414, 129.544, 6.635, 0.532)
pt3dadd(213.505, 129.487, 6.582, 0.492)
pt3dadd(213.596, 129.432, 6.529, 0.454)
pt3dadd(213.686, 129.376, 6.476, 0.414)
pt3dadd(213.778, 129.32, 6.422, 0.376)
pt3dadd(213.869, 129.265, 6.369, 0.338)
pt3dadd(213.937, 129.193, 6.305, 0.356)
pt3dadd(214.006, 129.12, 6.241, 0.372)
pt3dadd(214.074, 129.048, 6.177, 0.388)
pt3dadd(214.144, 128.976, 6.113, 0.404)
pt3dadd(214.213, 128.904, 6.048, 0.422)
pt3dadd(214.282, 128.832, 5.984, 0.438)
pt3dadd(214.351, 128.76, 5.92, 0.454)
pt3dadd(214.421, 128.688, 5.856, 0.47)
pt3dadd(214.489, 128.616, 5.792, 0.488)
pt3dadd(214.558, 128.543, 5.727, 0.508)
pt3dadd(214.615, 128.465, 5.66, 0.546)
pt3dadd(214.675, 128.387, 5.592, 0.586)
pt3dadd(214.734, 128.309, 5.525, 0.624)
pt3dadd(214.793, 128.231, 5.457, 0.662)
pt3dadd(214.852, 128.153, 5.39, 0.702)
pt3dadd(214.91, 128.075, 5.322, 0.74)
pt3dadd(214.969, 127.997, 5.255, 0.78)
pt3dadd(215.028, 127.919, 5.187, 0.818)
pt3dadd(215.087, 127.842, 5.12, 0.856)
pt3dadd(215.148, 127.763, 5.056, 0.884)
pt3dadd(215.222, 127.676, 5.01, 0.846)
pt3dadd(215.294, 127.59, 4.964, 0.81)
pt3dadd(215.369, 127.505, 4.919, 0.774)
pt3dadd(215.443, 127.417, 4.873, 0.738)
pt3dadd(215.515, 127.331, 4.827, 0.7)
pt3dadd(215.59, 127.246, 4.782, 0.664)
pt3dadd(215.663, 127.159, 4.736, 0.628)
pt3dadd(215.736, 127.073, 4.69, 0.59)
pt3dadd(215.734, 127.066, 4.685, 0.59)
pt3dadd(215.807, 126.98, 4.639, 0.554)
pt3dadd(215.881, 126.895, 4.594, 0.52)
pt3dadd(215.96, 126.814, 4.549, 0.502)
pt3dadd(216.037, 126.732, 4.503, 0.482)
pt3dadd(216.116, 126.65, 4.458, 0.464)
pt3dadd(216.194, 126.57, 4.413, 0.444)
pt3dadd(216.272, 126.488, 4.368, 0.424)
pt3dadd(216.352, 126.407, 4.323, 0.406)
pt3dadd(216.43, 126.325, 4.277, 0.386)
pt3dadd(216.508, 126.244, 4.232, 0.368)
pt3dadd(216.587, 126.162, 4.187, 0.348)
pt3dadd(216.667, 126.085, 4.142, 0.342)
pt3dadd(216.757, 126.019, 4.096, 0.386)
pt3dadd(216.847, 125.953, 4.05, 0.43)
pt3dadd(216.937, 125.888, 4.005, 0.472)
pt3dadd(217.028, 125.822, 3.959, 0.516)
pt3dadd(217.117, 125.758, 3.914, 0.56)
pt3dadd(217.208, 125.692, 3.868, 0.602)
pt3dadd(217.298, 125.626, 3.822, 0.646)
pt3dadd(217.388, 125.561, 3.777, 0.69)
pt3dadd(217.478, 125.495, 3.731, 0.732)
pt3dadd(217.568, 125.426, 3.69, 0.764)
pt3dadd(217.664, 125.354, 3.664, 0.758)
pt3dadd(217.76, 125.282, 3.639, 0.75)
pt3dadd(217.854, 125.21, 3.613, 0.742)
pt3dadd(217.95, 125.138, 3.588, 0.734)
pt3dadd(218.046, 125.066, 3.563, 0.728)
pt3dadd(218.14, 124.994, 3.537, 0.72)
pt3dadd(218.236, 124.922, 3.512, 0.712)
pt3dadd(218.33, 124.85, 3.486, 0.704)
pt3dadd(218.425, 124.778, 3.461, 0.696)
}
}
proc shape3d_97() {
apic[30] { pt3dadd(218.521, 124.705, 3.444, 0.682)
pt3dadd(218.616, 124.631, 3.448, 0.652)
pt3dadd(218.712, 124.555, 3.451, 0.622)
pt3dadd(218.808, 124.48, 3.454, 0.592)
pt3dadd(218.903, 124.405, 3.458, 0.562)
pt3dadd(218.999, 124.33, 3.461, 0.53)
pt3dadd(219.094, 124.255, 3.465, 0.5)
pt3dadd(219.19, 124.18, 3.468, 0.47)
pt3dadd(219.286, 124.104, 3.471, 0.44)
pt3dadd(219.38, 124.03, 3.475, 0.41)
pt3dadd(219.446, 123.972, 3.54, 0.392)
pt3dadd(219.511, 123.913, 3.606, 0.374)
pt3dadd(219.576, 123.856, 3.671, 0.354)
pt3dadd(219.641, 123.797, 3.737, 0.336)
pt3dadd(219.706, 123.739, 3.803, 0.318)
pt3dadd(219.772, 123.682, 3.868, 0.3)
pt3dadd(219.836, 123.622, 3.934, 0.282)
pt3dadd(219.901, 123.564, 3.999, 0.262)
pt3dadd(219.966, 123.505, 4.065, 0.244)
pt3dadd(220.032, 123.448, 4.13, 0.226)
pt3dadd(220.028, 123.44, 4.125, 0.226)
pt3dadd(220.026, 123.433, 4.12, 1.13)
pt3dadd(220.022, 123.426, 4.115, 1.13)
pt3dadd(220.118, 123.352, 4.11, 1.234)
pt3dadd(220.216, 123.276, 4.104, 1.34)
pt3dadd(220.285, 123.175, 4.099, 1.424)
pt3dadd(220.35, 123.068, 4.094, 1.506)
pt3dadd(220.421, 122.966, 4.089, 1.588)
pt3dadd(220.492, 122.864, 4.084, 1.67)
pt3dadd(220.589, 122.807, 4.079, 1.724)
pt3dadd(220.704, 122.785, 4.073, 1.752)
pt3dadd(220.82, 122.764, 4.068, 1.78)
pt3dadd(220.938, 122.748, 4.063, 1.726)
pt3dadd(221.054, 122.734, 4.058, 1.66)
pt3dadd(221.154, 122.665, 4.053, 1.604)
pt3dadd(221.254, 122.596, 4.048, 1.55)
pt3dadd(221.352, 122.525, 4.042, 1.496)
pt3dadd(221.453, 122.455, 4.037, 1.442)
pt3dadd(221.551, 122.384, 4.032, 1.388)
pt3dadd(221.634, 122.294, 4.027, 1.35)
pt3dadd(221.716, 122.201, 4.022, 1.314)
pt3dadd(221.796, 122.107, 4.017, 1.278)
pt3dadd(221.876, 122.014, 4.011, 1.244)
pt3dadd(221.958, 121.921, 4.006, 1.208)
pt3dadd(222.062, 121.864, 4.001, 1.206)
pt3dadd(222.17, 121.808, 3.996, 1.206)
pt3dadd(222.277, 121.753, 3.991, 1.206)
pt3dadd(222.385, 121.699, 3.986, 1.206)
pt3dadd(222.493, 121.644, 3.98, 1.206)
pt3dadd(222.583, 121.566, 3.975, 1.218)
pt3dadd(222.664, 121.472, 3.97, 1.238)
pt3dadd(222.745, 121.379, 3.965, 1.258)
pt3dadd(222.824, 121.285, 3.96, 1.278)
pt3dadd(222.906, 121.192, 3.955, 1.298)
pt3dadd(223.001, 121.12, 3.949, 1.302)
pt3dadd(223.106, 121.058, 3.944, 1.298)
pt3dadd(223.211, 120.998, 3.939, 1.294)
pt3dadd(223.315, 120.937, 3.934, 1.288)
pt3dadd(223.42, 120.876, 3.929, 1.284)
pt3dadd(223.51, 120.797, 3.923, 1.274)
pt3dadd(223.578, 120.694, 3.918, 1.26)
pt3dadd(223.648, 120.59, 3.913, 1.244)
pt3dadd(223.716, 120.487, 3.908, 1.228)
pt3dadd(223.786, 120.384, 3.903, 1.214)
pt3dadd(223.87, 120.298, 3.898, 1.2)
pt3dadd(223.972, 120.234, 3.892, 1.192)
pt3dadd(224.075, 120.169, 3.887, 1.182)
pt3dadd(224.178, 120.106, 3.882, 1.172)
pt3dadd(224.28, 120.041, 3.877, 1.162)
pt3dadd(224.387, 119.985, 3.872, 1.158)
pt3dadd(224.5, 119.95, 3.867, 1.172)
pt3dadd(224.615, 119.916, 3.861, 1.184)
pt3dadd(224.729, 119.881, 3.856, 1.198)
pt3dadd(224.842, 119.846, 3.851, 1.21)
pt3dadd(224.957, 119.812, 3.846, 1.224)
pt3dadd(225.06, 119.756, 3.841, 1.242)
pt3dadd(225.151, 119.674, 3.836, 1.266)
pt3dadd(225.242, 119.592, 3.83, 1.292)
pt3dadd(225.332, 119.51, 3.825, 1.318)
pt3dadd(225.424, 119.427, 3.82, 1.342)
pt3dadd(225.51, 119.34, 3.815, 1.366)
pt3dadd(225.59, 119.246, 3.81, 1.386)
pt3dadd(225.671, 119.153, 3.805, 1.406)
pt3dadd(225.752, 119.059, 3.799, 1.426)
pt3dadd(225.832, 118.966, 3.794, 1.446)
pt3dadd(225.925, 118.89, 3.788, 1.458)
pt3dadd(226.03, 118.831, 3.781, 1.464)
pt3dadd(226.136, 118.773, 3.773, 1.468)
pt3dadd(226.242, 118.714, 3.766, 1.474)
pt3dadd(226.346, 118.655, 3.759, 1.478)
pt3dadd(226.45, 118.593, 3.746, 1.478)
pt3dadd(226.548, 118.524, 3.721, 1.466)
pt3dadd(226.644, 118.455, 3.696, 1.456)
pt3dadd(226.742, 118.386, 3.671, 1.444)
pt3dadd(226.84, 118.317, 3.646, 1.434)
pt3dadd(226.946, 118.269, 3.621, 1.422)
pt3dadd(227.056, 118.226, 3.595, 1.412)
pt3dadd(227.164, 118.183, 3.569, 1.402)
pt3dadd(227.273, 118.14, 3.544, 1.392)
pt3dadd(227.383, 118.097, 3.518, 1.382)
pt3dadd(227.474, 118.018, 3.512, 1.382)
pt3dadd(227.566, 117.936, 3.506, 1.382)
pt3dadd(227.657, 117.854, 3.501, 1.382)
pt3dadd(227.747, 117.771, 3.496, 1.382)
pt3dadd(227.838, 117.689, 3.491, 1.382)
pt3dadd(227.951, 117.656, 3.48, 1.382)
pt3dadd(228.066, 117.625, 3.469, 1.382)
pt3dadd(228.181, 117.594, 3.458, 1.382)
pt3dadd(228.295, 117.564, 3.447, 1.382)
pt3dadd(228.41, 117.533, 3.436, 1.382)
pt3dadd(228.518, 117.488, 3.423, 1.382)
pt3dadd(228.605, 117.405, 3.403, 1.382)
pt3dadd(228.694, 117.321, 3.383, 1.382)
pt3dadd(228.781, 117.237, 3.363, 1.382)
pt3dadd(228.869, 117.154, 3.343, 1.382)
pt3dadd(228.976, 117.107, 3.323, 1.374)
pt3dadd(229.088, 117.075, 3.303, 1.364)
pt3dadd(229.202, 117.043, 3.283, 1.356)
pt3dadd(229.315, 117.01, 3.264, 1.346)
pt3dadd(229.428, 116.978, 3.244, 1.336)
pt3dadd(229.538, 116.956, 3.212, 1.326)
pt3dadd(229.644, 116.949, 3.164, 1.318)
pt3dadd(229.75, 116.942, 3.117, 1.308)
pt3dadd(229.856, 116.935, 3.07, 1.298)
pt3dadd(229.962, 116.927, 3.022, 1.288)
pt3dadd(230.07, 116.92, 2.98, 1.28)
pt3dadd(230.186, 116.913, 2.963, 1.276)
pt3dadd(230.302, 116.906, 2.945, 1.272)
pt3dadd(230.419, 116.898, 2.927, 1.268)
pt3dadd(230.534, 116.891, 2.91, 1.264)
pt3dadd(230.651, 116.884, 2.892, 1.26)
pt3dadd(230.767, 116.877, 2.875, 1.256)
pt3dadd(230.864, 116.845, 2.821, 1.27)
pt3dadd(230.96, 116.811, 2.764, 1.288)
pt3dadd(231.058, 116.777, 2.706, 1.304)
pt3dadd(231.152, 116.743, 2.649, 1.322)
pt3dadd(231.252, 116.699, 2.606, 1.344)
pt3dadd(231.356, 116.644, 2.582, 1.378)
pt3dadd(231.462, 116.588, 2.558, 1.41)
pt3dadd(231.566, 116.533, 2.534, 1.44)
pt3dadd(231.671, 116.478, 2.51, 1.474)
pt3dadd(231.775, 116.422, 2.484, 1.51)
pt3dadd(231.88, 116.365, 2.457, 1.548)
pt3dadd(231.982, 116.309, 2.43, 1.586)
pt3dadd(232.086, 116.253, 2.404, 1.624)
pt3dadd(232.188, 116.196, 2.376, 1.66)
pt3dadd(232.284, 116.127, 2.343, 1.682)
pt3dadd(232.379, 116.059, 2.31, 1.706)
pt3dadd(232.472, 115.991, 2.277, 1.728)
pt3dadd(232.568, 115.923, 2.244, 1.752)
pt3dadd(232.663, 115.882, 2.191, 1.766)
pt3dadd(232.758, 115.851, 2.132, 1.778)
pt3dadd(232.853, 115.82, 2.072, 1.788)
pt3dadd(232.948, 115.789, 2.012, 1.8)
pt3dadd(233.044, 115.752, 1.957, 1.806)
pt3dadd(233.14, 115.695, 1.913, 1.794)
pt3dadd(233.236, 115.638, 1.869, 1.782)
pt3dadd(233.332, 115.581, 1.825, 1.77)
pt3dadd(233.429, 115.525, 1.781, 1.758)
pt3dadd(233.524, 115.479, 1.728, 1.748)
pt3dadd(233.62, 115.436, 1.675, 1.736)
pt3dadd(233.713, 115.392, 1.621, 1.724)
pt3dadd(233.809, 115.348, 1.567, 1.712)
pt3dadd(233.902, 115.315, 1.505, 1.704)
pt3dadd(233.988, 115.29, 1.436, 1.698)
pt3dadd(234.077, 115.265, 1.367, 1.694)
pt3dadd(234.166, 115.24, 1.299, 1.688)
pt3dadd(234.253, 115.215, 1.23, 1.682)
pt3dadd(234.348, 115.2, 1.167, 1.694)
pt3dadd(234.442, 115.184, 1.104, 1.704)
pt3dadd(234.536, 115.169, 1.041, 1.714)
pt3dadd(234.632, 115.153, 0.977, 1.724)
pt3dadd(234.731, 115.14, 0.924, 1.732)
pt3dadd(234.847, 115.132, 0.903, 1.732)
pt3dadd(234.962, 115.125, 0.881, 1.732)
pt3dadd(235.078, 115.118, 0.859, 1.732)
pt3dadd(235.194, 115.111, 0.838, 1.732)
pt3dadd(235.308, 115.104, 0.816, 1.732)
pt3dadd(235.422, 115.088, 0.793, 1.73)
pt3dadd(235.522, 115.026, 0.76, 1.714)
pt3dadd(235.62, 114.965, 0.728, 1.696)
pt3dadd(235.72, 114.904, 0.695, 1.68)
pt3dadd(235.819, 114.843, 0.662, 1.662)
pt3dadd(235.92, 114.801, 0.62, 1.638)
pt3dadd(236.024, 114.768, 0.574, 1.61)
pt3dadd(236.128, 114.735, 0.528, 1.584)
pt3dadd(236.231, 114.702, 0.482, 1.556)
pt3dadd(236.333, 114.671, 0.433, 1.53)
pt3dadd(236.396, 114.664, 0.345, 1.506)
pt3dadd(236.462, 114.657, 0.258, 1.484)
pt3dadd(236.53, 114.643, 0.172, 1.492)
pt3dadd(236.597, 114.63, 0.086, 1.504)
pt3dadd(236.687, 114.578, 0.033, 1.53)
pt3dadd(236.777, 114.519, -0.016, 1.556)
pt3dadd(236.818, 114.453, -0.101, 1.556)
pt3dadd(236.874, 114.391, -0.169, 1.554)
pt3dadd(236.87, 114.384, -0.174, 1.554)
pt3dadd(236.982, 114.339, -0.182, 1.542)
pt3dadd(237.094, 114.294, -0.19, 1.528)
pt3dadd(237.204, 114.249, -0.198, 1.516)
}
}
proc shape3d_98() {
apic[30] { pt3dadd(237.317, 114.215, -0.205, 1.494)
pt3dadd(237.433, 114.204, -0.211, 1.46)
pt3dadd(237.551, 114.192, -0.216, 1.426)
pt3dadd(237.667, 114.167, -0.221, 1.378)
pt3dadd(237.779, 114.138, -0.242, 1.36)
pt3dadd(237.89, 114.116, -0.273, 1.364)
pt3dadd(238.003, 114.093, -0.304, 1.368)
pt3dadd(238.115, 114.07, -0.335, 1.374)
pt3dadd(238.228, 114.048, -0.365, 1.378)
pt3dadd(238.339, 114.029, -0.397, 1.422)
pt3dadd(238.451, 114.016, -0.431, 1.52)
pt3dadd(238.561, 113.998, -0.466, 1.624)
pt3dadd(238.652, 113.932, -0.508, 1.79)
pt3dadd(238.742, 113.86, -0.546, 1.958)
pt3dadd(238.826, 113.775, -0.575, 2.132)
pt3dadd(238.902, 113.69, -0.615, 2.272)
pt3dadd(238.969, 113.606, -0.672, 2.358)
pt3dadd(239.009, 113.515, -0.736, 2.372)
pt3dadd(239.072, 113.439, -0.788, 2.338)
pt3dadd(239.176, 113.385, -0.82, 2.288)
pt3dadd(239.278, 113.33, -0.852, 2.238)
pt3dadd(239.381, 113.276, -0.884, 2.188)
pt3dadd(239.484, 113.222, -0.917, 2.14)
pt3dadd(239.596, 113.192, -0.941, 2.07)
pt3dadd(239.708, 113.164, -0.965, 1.998)
pt3dadd(239.821, 113.137, -0.99, 1.928)
pt3dadd(239.935, 113.109, -1.014, 1.856)
pt3dadd(240.049, 113.082, -1.038, 1.784)
pt3dadd(240.162, 113.053, -1.05, 1.716)
pt3dadd(240.278, 113.024, -1.055, 1.648)
pt3dadd(240.394, 112.994, -1.06, 1.582)
pt3dadd(240.508, 112.965, -1.066, 1.514)
pt3dadd(240.623, 112.935, -1.071, 1.448)
pt3dadd(240.738, 112.906, -1.076, 1.38)
pt3dadd(240.853, 112.878, -1.081, 1.322)
pt3dadd(240.97, 112.851, -1.086, 1.268)
pt3dadd(241.084, 112.824, -1.091, 1.214)
pt3dadd(241.2, 112.797, -1.097, 1.162)
pt3dadd(241.198, 112.79, -1.102, 1.162)
pt3dadd(241.313, 112.763, -1.107, 1.108)
pt3dadd(241.428, 112.736, -1.112, 1.054)
pt3dadd(241.544, 112.72, -1.117, 1.02)
pt3dadd(241.662, 112.713, -1.122, 1.002)
pt3dadd(241.78, 112.705, -1.128, 0.984)
pt3dadd(241.896, 112.698, -1.133, 0.966)
pt3dadd(242.014, 112.691, -1.138, 0.948)
pt3dadd(242.131, 112.684, -1.143, 0.93)
pt3dadd(242.248, 112.676, -1.148, 0.912)
pt3dadd(242.36, 112.645, -1.153, 0.906)
pt3dadd(242.468, 112.593, -1.159, 0.912)
pt3dadd(242.578, 112.541, -1.164, 0.916)
pt3dadd(242.686, 112.489, -1.169, 0.92)
pt3dadd(242.794, 112.437, -1.174, 0.926)
pt3dadd(242.904, 112.387, -1.179, 0.932)
pt3dadd(243.016, 112.344, -1.184, 0.95)
pt3dadd(243.126, 112.301, -1.19, 0.968)
pt3dadd(243.239, 112.258, -1.195, 0.986)
pt3dadd(243.349, 112.215, -1.2, 1.004)
pt3dadd(243.462, 112.171, -1.205, 1.022)
pt3dadd(243.569, 112.116, -1.21, 1.046)
pt3dadd(243.671, 112.053, -1.215, 1.076)
pt3dadd(243.774, 111.989, -1.221, 1.104)
pt3dadd(243.877, 111.925, -1.226, 1.134)
pt3dadd(243.98, 111.861, -1.231, 1.162)
pt3dadd(244.086, 111.804, -1.236, 1.188)
pt3dadd(244.196, 111.758, -1.241, 1.206)
pt3dadd(244.308, 111.712, -1.247, 1.224)
pt3dadd(244.418, 111.666, -1.252, 1.242)
pt3dadd(244.529, 111.62, -1.257, 1.26)
pt3dadd(244.64, 111.574, -1.262, 1.278)
pt3dadd(244.751, 111.528, -1.267, 1.328)
pt3dadd(244.86, 111.48, -1.272, 1.382)
pt3dadd(244.974, 111.447, -1.278, 1.416)
pt3dadd(245.09, 111.425, -1.283, 1.434)
pt3dadd(245.207, 111.403, -1.288, 1.454)
pt3dadd(245.322, 111.376, -1.293, 1.472)
pt3dadd(245.437, 111.349, -1.298, 1.492)
pt3dadd(245.54, 111.302, -1.308, 1.5)
pt3dadd(245.606, 111.199, -1.33, 1.474)
pt3dadd(245.672, 111.103, -1.365, 1.43)
pt3dadd(245.738, 111.024, -1.425, 1.352)
pt3dadd(245.81, 110.937, -1.471, 1.328)
pt3dadd(245.882, 110.849, -1.516, 1.304)
pt3dadd(245.954, 110.761, -1.562, 1.28)
pt3dadd(246.025, 110.673, -1.606, 1.256)
pt3dadd(246.102, 110.576, -1.619, 1.244)
pt3dadd(246.178, 110.478, -1.631, 1.234)
pt3dadd(246.253, 110.381, -1.643, 1.224)
pt3dadd(246.329, 110.283, -1.655, 1.212)
pt3dadd(246.414, 110.198, -1.667, 1.206)
pt3dadd(246.521, 110.142, -1.677, 1.206)
pt3dadd(246.625, 110.086, -1.692, 1.202)
pt3dadd(246.712, 110.026, -1.747, 1.174)
pt3dadd(246.787, 109.954, -1.802, 1.138)
pt3dadd(246.838, 109.857, -1.857, 1.08)
pt3dadd(246.887, 109.76, -1.912, 1.01)
pt3dadd(246.936, 109.663, -1.967, 0.924)
pt3dadd(246.961, 109.568, -2.035, 0.874)
pt3dadd(246.979, 109.473, -2.106, 0.834)
pt3dadd(246.997, 109.378, -2.177, 0.796)
pt3dadd(246.994, 109.371, -2.182, 0.796)
pt3dadd(247.066, 109.306, -2.219, 0.76)
pt3dadd(247.177, 109.264, -2.229, 0.728)
pt3dadd(247.284, 109.213, -2.238, 0.694)
pt3dadd(247.37, 109.126, -2.243, 0.684)
pt3dadd(247.453, 109.036, -2.248, 0.694)
pt3dadd(247.537, 108.945, -2.253, 0.704)
pt3dadd(247.621, 108.854, -2.258, 0.714)
pt3dadd(247.704, 108.764, -2.264, 0.724)
pt3dadd(247.788, 108.673, -2.269, 0.742)
pt3dadd(247.872, 108.582, -2.274, 0.768)
pt3dadd(247.954, 108.491, -2.279, 0.794)
pt3dadd(248.038, 108.401, -2.284, 0.818)
pt3dadd(248.12, 108.31, -2.289, 0.844)
pt3dadd(248.198, 108.221, -2.318, 0.884)
pt3dadd(248.273, 108.133, -2.361, 0.932)
pt3dadd(248.347, 108.046, -2.403, 0.98)
pt3dadd(248.422, 107.959, -2.446, 1.03)
pt3dadd(248.484, 107.864, -2.491, 1.1)
pt3dadd(248.532, 107.761, -2.539, 1.196)
pt3dadd(248.622, 107.713, -2.578, 1.26)
pt3dadd(248.732, 107.694, -2.614, 1.304)
pt3dadd(248.824, 107.638, -2.636, 1.35)
pt3dadd(248.89, 107.532, -2.641, 1.398)
pt3dadd(248.952, 107.424, -2.646, 1.452)
pt3dadd(249.01, 107.313, -2.651, 1.532)
pt3dadd(249.072, 107.207, -2.659, 1.612)
pt3dadd(249.173, 107.154, -2.696, 1.684)
pt3dadd(249.275, 107.101, -2.732, 1.754)
pt3dadd(249.376, 107.048, -2.768, 1.824)
pt3dadd(249.481, 107.03, -2.813, 1.884)
pt3dadd(249.589, 107.017, -2.859, 1.94)
pt3dadd(249.658, 106.934, -2.879, 1.952)
pt3dadd(249.71, 106.821, -2.888, 1.944)
pt3dadd(249.763, 106.707, -2.897, 1.936)
pt3dadd(249.806, 106.613, -2.953, 1.9)
pt3dadd(249.848, 106.524, -3.021, 1.856)
pt3dadd(249.859, 106.478, -3.116, 1.776)
pt3dadd(249.926, 106.41, -3.185, 1.748)
pt3dadd(249.989, 106.321, -3.224, 1.712)
pt3dadd(250.046, 106.21, -3.229, 1.666)
pt3dadd(250.116, 106.112, -3.234, 1.616)
pt3dadd(250.217, 106.044, -3.239, 1.558)
pt3dadd(250.318, 105.98, -3.247, 1.502)
pt3dadd(250.43, 105.967, -3.281, 1.448)
pt3dadd(250.542, 105.954, -3.315, 1.394)
pt3dadd(250.625, 105.875, -3.334, 1.364)
pt3dadd(250.698, 105.776, -3.35, 1.342)
pt3dadd(250.77, 105.676, -3.365, 1.318)
pt3dadd(250.825, 105.567, -3.376, 1.306)
pt3dadd(250.856, 105.444, -3.381, 1.306)
pt3dadd(250.885, 105.322, -3.386, 1.306)
pt3dadd(250.906, 105.2, -3.394, 1.28)
pt3dadd(250.982, 105.109, -3.425, 1.268)
pt3dadd(251.06, 105.018, -3.456, 1.256)
pt3dadd(251.138, 104.927, -3.487, 1.244)
pt3dadd(251.215, 104.836, -3.518, 1.232)
pt3dadd(251.254, 104.721, -3.542, 1.214)
pt3dadd(251.284, 104.601, -3.565, 1.194)
pt3dadd(251.311, 104.479, -3.588, 1.174)
pt3dadd(251.34, 104.358, -3.61, 1.154)
pt3dadd(251.369, 104.237, -3.633, 1.134)
pt3dadd(251.438, 104.139, -3.648, 1.122)
pt3dadd(251.52, 104.047, -3.66, 1.112)
pt3dadd(251.602, 103.955, -3.672, 1.1)
pt3dadd(251.684, 103.863, -3.685, 1.09)
pt3dadd(251.766, 103.772, -3.698, 1.08)
pt3dadd(251.838, 103.679, -3.734, 1.068)
pt3dadd(251.911, 103.587, -3.771, 1.056)
pt3dadd(251.983, 103.494, -3.808, 1.044)
pt3dadd(252.056, 103.402, -3.845, 1.032)
pt3dadd(252.118, 103.296, -3.87, 1.02)
pt3dadd(252.174, 103.187, -3.892, 1.006)
pt3dadd(252.251, 103.09, -3.9, 1.004)
pt3dadd(252.33, 102.995, -3.905, 1.004)
pt3dadd(252.431, 102.934, -3.91, 1.02)
pt3dadd(252.541, 102.887, -3.915, 1.04)
pt3dadd(252.653, 102.853, -3.925, 1.066)
pt3dadd(252.769, 102.84, -3.943, 1.094)
pt3dadd(252.886, 102.828, -3.961, 1.124)
pt3dadd(252.953, 102.75, -4.005, 1.162)
pt3dadd(253.037, 102.68, -4.044, 1.19)
pt3dadd(253.142, 102.63, -4.073, 1.206)
pt3dadd(253.248, 102.58, -4.102, 1.222)
pt3dadd(253.354, 102.53, -4.131, 1.238)
pt3dadd(253.458, 102.48, -4.16, 1.254)
pt3dadd(253.565, 102.423, -4.167, 1.264)
pt3dadd(253.672, 102.365, -4.172, 1.274)
pt3dadd(253.776, 102.307, -4.177, 1.284)
pt3dadd(253.883, 102.249, -4.182, 1.292)
pt3dadd(253.99, 102.192, -4.187, 1.302)
pt3dadd(254.099, 102.145, -4.193, 1.314)
pt3dadd(254.212, 102.105, -4.198, 1.328)
pt3dadd(254.323, 102.065, -4.203, 1.34)
pt3dadd(254.437, 102.025, -4.208, 1.354)
pt3dadd(254.55, 101.985, -4.213, 1.368)
pt3dadd(254.662, 101.945, -4.218, 1.38)
pt3dadd(254.75, 101.86, -4.224, 1.392)
pt3dadd(254.839, 101.775, -4.229, 1.4)
pt3dadd(254.836, 101.768, -4.234, 1.4)
}
}
proc shape3d_99() {
apic[30] { pt3dadd(254.924, 101.683, -4.239, 1.412)
pt3dadd(255.012, 101.597, -4.244, 1.422)
pt3dadd(255.101, 101.512, -4.249, 1.432)
pt3dadd(255.194, 101.433, -4.255, 1.446)
pt3dadd(255.287, 101.354, -4.26, 1.462)
pt3dadd(255.38, 101.274, -4.265, 1.476)
pt3dadd(255.474, 101.195, -4.27, 1.492)
pt3dadd(255.566, 101.116, -4.276, 1.506)
pt3dadd(255.643, 101.023, -4.304, 1.512)
pt3dadd(255.72, 100.93, -4.332, 1.518)
pt3dadd(255.797, 100.837, -4.36, 1.524)
pt3dadd(255.874, 100.744, -4.388, 1.53)
pt3dadd(255.971, 100.68, -4.401, 1.52)
pt3dadd(256.081, 100.631, -4.406, 1.502)
pt3dadd(256.192, 100.583, -4.412, 1.482)
pt3dadd(256.301, 100.534, -4.417, 1.464)
pt3dadd(256.41, 100.485, -4.422, 1.446)
pt3dadd(256.52, 100.434, -4.427, 1.424)
pt3dadd(256.625, 100.376, -4.432, 1.386)
pt3dadd(256.732, 100.318, -4.437, 1.348)
pt3dadd(256.837, 100.261, -4.443, 1.308)
pt3dadd(256.943, 100.203, -4.448, 1.272)
pt3dadd(257.05, 100.145, -4.453, 1.232)
pt3dadd(257.164, 100.116, -4.458, 1.168)
pt3dadd(257.28, 100.088, -4.463, 1.1)
pt3dadd(257.387, 100.042, -4.468, 1.038)
pt3dadd(257.477, 99.959, -4.474, 0.992)
pt3dadd(257.573, 99.885, -4.479, 0.952)
pt3dadd(257.684, 99.846, -4.484, 0.942)
pt3dadd(257.797, 99.806, -4.489, 0.932)
pt3dadd(257.874, 99.715, -4.494, 0.92)
pt3dadd(257.938, 99.608, -4.499, 0.908)
pt3dadd(257.971, 99.49, -4.505, 0.922)
pt3dadd(257.982, 99.363, -4.51, 0.95)
pt3dadd(258.067, 99.285, -4.515, 0.992)
pt3dadd(258.168, 99.217, -4.52, 1.038)
pt3dadd(258.271, 99.159, -4.535, 1.1)
pt3dadd(258.379, 99.106, -4.557, 1.174)
pt3dadd(258.432, 99.016, -4.586, 1.236)
pt3dadd(258.439, 98.895, -4.621, 1.294)
pt3dadd(258.466, 98.777, -4.646, 1.342)
pt3dadd(258.523, 98.666, -4.651, 1.376)
pt3dadd(258.586, 98.56, -4.656, 1.406)
pt3dadd(258.677, 98.477, -4.661, 1.406)
pt3dadd(258.767, 98.395, -4.667, 1.406)
pt3dadd(258.858, 98.313, -4.672, 1.406)
pt3dadd(258.956, 98.244, -4.687, 1.392)
pt3dadd(259.06, 98.184, -4.708, 1.366)
pt3dadd(259.153, 98.128, -4.752, 1.26)
pt3dadd(259.217, 98.029, -4.789, 1.222)
pt3dadd(259.279, 97.929, -4.826, 1.186)
pt3dadd(259.342, 97.828, -4.862, 1.152)
pt3dadd(259.404, 97.728, -4.898, 1.116)
pt3dadd(259.483, 97.636, -4.913, 1.084)
pt3dadd(259.57, 97.547, -4.918, 1.054)
pt3dadd(259.655, 97.459, -4.923, 1.024)
pt3dadd(259.74, 97.371, -4.929, 0.992)
pt3dadd(259.826, 97.283, -4.934, 0.962)
pt3dadd(259.92, 97.21, -4.957, 0.938)
pt3dadd(260.017, 97.143, -4.988, 0.914)
pt3dadd(260.112, 97.075, -5.018, 0.892)
pt3dadd(260.209, 97.008, -5.048, 0.87)
pt3dadd(260.308, 96.941, -5.077, 0.854)
pt3dadd(260.406, 96.876, -5.101, 0.854)
pt3dadd(260.506, 96.81, -5.126, 0.854)
pt3dadd(260.605, 96.744, -5.151, 0.854)
pt3dadd(260.705, 96.679, -5.175, 0.854)
pt3dadd(260.789, 96.591, -5.185, 0.872)
pt3dadd(260.867, 96.496, -5.191, 0.894)
pt3dadd(260.947, 96.403, -5.199, 0.926)
pt3dadd(261.03, 96.311, -5.21, 0.964)
pt3dadd(261.107, 96.224, -5.242, 1.004)
pt3dadd(261.18, 96.141, -5.292, 1.046)
pt3dadd(261.286, 96.091, -5.309, 1.064)
pt3dadd(261.397, 96.049, -5.319, 1.074)
pt3dadd(261.511, 96.021, -5.327, 1.092)
pt3dadd(261.628, 96.007, -5.332, 1.12)
pt3dadd(261.727, 95.962, -5.364, 1.14)
pt3dadd(261.815, 95.897, -5.415, 1.158)
pt3dadd(261.901, 95.832, -5.466, 1.178)
pt3dadd(261.989, 95.767, -5.516, 1.196)
pt3dadd(262.086, 95.709, -5.548, 1.22)
pt3dadd(262.194, 95.659, -5.555, 1.252)
pt3dadd(262.304, 95.61, -5.562, 1.286)
pt3dadd(262.412, 95.56, -5.569, 1.318)
pt3dadd(262.523, 95.51, -5.577, 1.352)
pt3dadd(262.633, 95.465, -5.585, 1.384)
pt3dadd(262.748, 95.458, -5.602, 1.422)
pt3dadd(262.866, 95.451, -5.62, 1.46)
pt3dadd(262.976, 95.426, -5.647, 1.488)
pt3dadd(263.077, 95.377, -5.687, 1.5)
pt3dadd(263.177, 95.318, -5.718, 1.482)
pt3dadd(263.275, 95.25, -5.74, 1.43)
pt3dadd(263.353, 95.203, -5.798, 1.38)
pt3dadd(263.411, 95.176, -5.887, 1.328)
pt3dadd(263.471, 95.16, -5.977, 1.268)
pt3dadd(263.537, 95.152, -6.063, 1.204)
pt3dadd(263.638, 95.136, -6.118, 1.194)
pt3dadd(263.738, 95.121, -6.173, 1.184)
pt3dadd(263.839, 95.106, -6.228, 1.174)
pt3dadd(263.939, 95.09, -6.284, 1.164)
pt3dadd(264.04, 95.065, -6.334, 1.156)
pt3dadd(264.139, 95.004, -6.366, 1.156)
pt3dadd(264.238, 94.943, -6.399, 1.156)
pt3dadd(264.337, 94.881, -6.432, 1.156)
pt3dadd(264.437, 94.82, -6.464, 1.156)
pt3dadd(264.527, 94.74, -6.478, 1.162)
pt3dadd(264.614, 94.653, -6.485, 1.174)
pt3dadd(264.701, 94.566, -6.493, 1.184)
pt3dadd(264.787, 94.48, -6.5, 1.194)
pt3dadd(264.875, 94.393, -6.507, 1.204)
pt3dadd(264.977, 94.334, -6.53, 1.224)
pt3dadd(265.082, 94.279, -6.554, 1.246)
pt3dadd(265.188, 94.224, -6.578, 1.266)
pt3dadd(265.292, 94.169, -6.602, 1.288)
pt3dadd(265.391, 94.106, -6.627, 1.316)
pt3dadd(265.458, 94.006, -6.655, 1.368)
pt3dadd(265.53, 93.918, -6.694, 1.418)
pt3dadd(265.612, 93.858, -6.756, 1.462)
pt3dadd(265.706, 93.816, -6.804, 1.482)
pt3dadd(265.817, 93.79, -6.841, 1.482)
pt3dadd(265.93, 93.765, -6.865, 1.474)
pt3dadd(266.045, 93.744, -6.87, 1.456)
pt3dadd(266.161, 93.722, -6.875, 1.436)
pt3dadd(266.272, 93.679, -6.88, 1.408)
pt3dadd(266.382, 93.635, -6.89, 1.38)
pt3dadd(266.494, 93.622, -6.924, 1.368)
pt3dadd(266.605, 93.609, -6.958, 1.358)
pt3dadd(266.708, 93.601, -7.01, 1.356)
pt3dadd(266.809, 93.593, -7.066, 1.356)
pt3dadd(266.881, 93.541, -7.131, 1.366)
pt3dadd(266.94, 93.465, -7.199, 1.38)
pt3dadd(267.025, 93.381, -7.215, 1.392)
pt3dadd(267.114, 93.296, -7.226, 1.404)
pt3dadd(267.221, 93.24, -7.232, 1.406)
pt3dadd(267.326, 93.183, -7.239, 1.392)
pt3dadd(267.425, 93.113, -7.249, 1.344)
pt3dadd(267.509, 93.033, -7.268, 1.294)
pt3dadd(267.532, 92.923, -7.319, 1.244)
pt3dadd(267.575, 92.829, -7.371, 1.194)
pt3dadd(267.667, 92.778, -7.425, 1.152)
pt3dadd(267.76, 92.727, -7.479, 1.142)
pt3dadd(267.852, 92.676, -7.533, 1.17)
pt3dadd(267.92, 92.646, -7.611, 1.214)
pt3dadd(267.98, 92.616, -7.695, 1.262)
pt3dadd(267.978, 92.609, -7.7, 1.262)
pt3dadd(268.054, 92.533, -7.754, 1.294)
pt3dadd(268.129, 92.457, -7.808, 1.324)
pt3dadd(268.205, 92.381, -7.863, 1.356)
pt3dadd(268.276, 92.298, -7.909, 1.386)
pt3dadd(268.319, 92.18, -7.914, 1.42)
pt3dadd(268.362, 92.062, -7.92, 1.452)
pt3dadd(268.448, 91.98, -7.94, 1.456)
pt3dadd(268.543, 91.905, -7.962, 1.456)
pt3dadd(268.639, 91.853, -8.007, 1.406)
pt3dadd(268.736, 91.803, -8.054, 1.352)
pt3dadd(268.829, 91.752, -8.108, 1.284)
pt3dadd(268.922, 91.711, -8.163, 1.218)
pt3dadd(269.021, 91.703, -8.222, 1.166)
pt3dadd(269.122, 91.683, -8.276, 1.146)
pt3dadd(269.224, 91.658, -8.328, 1.136)
pt3dadd(269.326, 91.634, -8.38, 1.126)
pt3dadd(269.426, 91.61, -8.433, 1.114)
pt3dadd(269.528, 91.583, -8.483, 1.104)
pt3dadd(269.632, 91.527, -8.51, 1.094)
pt3dadd(269.736, 91.471, -8.537, 1.082)
pt3dadd(269.839, 91.415, -8.563, 1.072)
pt3dadd(269.942, 91.359, -8.59, 1.06)
pt3dadd(270.038, 91.29, -8.616, 1.05)
pt3dadd(270.124, 91.204, -8.642, 1.038)
pt3dadd(270.208, 91.119, -8.667, 1.026)
pt3dadd(270.293, 91.033, -8.692, 1.016)
pt3dadd(270.378, 90.948, -8.718, 1.004)
pt3dadd(270.48, 90.891, -8.747, 0.994)
pt3dadd(270.583, 90.834, -8.777, 0.982)
pt3dadd(270.685, 90.777, -8.806, 0.972)
pt3dadd(270.787, 90.72, -8.836, 0.96)
pt3dadd(270.884, 90.672, -8.881, 0.952)
pt3dadd(270.973, 90.634, -8.945, 0.946)
pt3dadd(271.062, 90.596, -9.009, 0.94)
pt3dadd(271.151, 90.558, -9.073, 0.934)
pt3dadd(271.24, 90.515, -9.134, 0.928)
pt3dadd(271.32, 90.432, -9.174, 0.916)
pt3dadd(271.399, 90.348, -9.213, 0.904)
pt3dadd(271.48, 90.264, -9.253, 0.892)
pt3dadd(271.56, 90.18, -9.293, 0.88)
pt3dadd(271.658, 90.123, -9.328, 0.894)
pt3dadd(271.76, 90.068, -9.363, 0.912)
pt3dadd(271.861, 90.014, -9.398, 0.928)
pt3dadd(271.963, 89.959, -9.433, 0.944)
pt3dadd(272.068, 89.913, -9.467, 0.964)
pt3dadd(272.177, 89.878, -9.499, 0.984)
pt3dadd(272.286, 89.843, -9.532, 1.004)
pt3dadd(272.396, 89.809, -9.564, 1.026)
pt3dadd(272.504, 89.774, -9.597, 1.046)
pt3dadd(272.615, 89.742, -9.628, 1.072)
pt3dadd(272.725, 89.711, -9.657, 1.102)
pt3dadd(272.837, 89.679, -9.687, 1.132)
pt3dadd(272.948, 89.648, -9.716, 1.162)
pt3dadd(273.059, 89.617, -9.745, 1.192)
}
}
proc shape3d_100() {
apic[30] { pt3dadd(273.162, 89.565, -9.775, 1.208)
pt3dadd(273.257, 89.494, -9.806, 1.214)
pt3dadd(273.35, 89.423, -9.836, 1.22)
pt3dadd(273.444, 89.352, -9.867, 1.226)
pt3dadd(273.541, 89.286, -9.894, 1.23)
pt3dadd(273.654, 89.245, -9.899, 1.23)
pt3dadd(273.767, 89.205, -9.904, 1.23)
pt3dadd(273.882, 89.188, -9.909, 1.224)
pt3dadd(274, 89.181, -9.914, 1.216)
pt3dadd(274.117, 89.174, -9.919, 1.208)
pt3dadd(274.229, 89.138, -9.925, 1.198)
pt3dadd(274.339, 89.091, -9.93, 1.186)
pt3dadd(274.43, 89.022, -9.937, 1.18)
pt3dadd(274.492, 88.913, -9.947, 1.18)
pt3dadd(274.562, 88.816, -9.965, 1.182)
pt3dadd(274.657, 88.753, -10.002, 1.19)
pt3dadd(274.754, 88.69, -10.04, 1.198)
pt3dadd(274.847, 88.629, -10.083, 1.208)
pt3dadd(274.918, 88.576, -10.157, 1.222)
pt3dadd(274.962, 88.521, -10.238, 1.204)
pt3dadd(275.021, 88.455, -10.29, 1.162)
pt3dadd(275.117, 88.384, -10.318, 1.134)
pt3dadd(275.214, 88.315, -10.346, 1.106)
pt3dadd(275.309, 88.245, -10.373, 1.078)
pt3dadd(275.402, 88.17, -10.397, 1.052)
pt3dadd(275.48, 88.074, -10.402, 1.032)
pt3dadd(275.557, 87.978, -10.407, 1.01)
pt3dadd(275.635, 87.882, -10.413, 0.99)
pt3dadd(275.712, 87.786, -10.418, 0.97)
pt3dadd(275.795, 87.694, -10.423, 0.946)
pt3dadd(275.891, 87.619, -10.428, 0.912)
pt3dadd(275.987, 87.544, -10.433, 0.878)
pt3dadd(276.083, 87.469, -10.438, 0.854)
pt3dadd(276.18, 87.394, -10.443, 0.832)
pt3dadd(276.204, 87.273, -10.449, 0.812)
pt3dadd(276.222, 87.148, -10.454, 0.792)
pt3dadd(276.242, 87.023, -10.459, 0.776)
pt3dadd(276.274, 86.901, -10.464, 0.764)
pt3dadd(276.305, 86.778, -10.469, 0.754)
pt3dadd(276.316, 86.69, -10.542, 0.754)
pt3dadd(276.325, 86.607, -10.624, 0.754)
pt3dadd(276.335, 86.523, -10.706, 0.754)
pt3dadd(276.346, 86.419, -10.76, 0.772)
pt3dadd(276.361, 86.297, -10.79, 0.806)
pt3dadd(276.394, 86.19, -10.831, 0.93)
pt3dadd(276.46, 86.117, -10.896, 1.06)
pt3dadd(276.527, 86.043, -10.961, 1.136)
pt3dadd(276.593, 85.97, -11.027, 1.21)
pt3dadd(276.659, 85.897, -11.093, 1.284)
pt3dadd(276.68, 85.791, -11.14, 1.378)
pt3dadd(276.683, 85.671, -11.179, 1.478)
pt3dadd(276.722, 85.579, -11.229, 1.552)
pt3dadd(276.719, 85.572, -11.235, 1.552)
pt3dadd(276.799, 85.511, -11.297, 1.594)
pt3dadd(276.883, 85.488, -11.366, 1.574)
pt3dadd(276.968, 85.481, -11.44, 1.526)
pt3dadd(277.006, 85.471, -11.531, 1.476)
pt3dadd(277.008, 85.459, -11.636, 1.422)
pt3dadd(277.009, 85.447, -11.741, 1.368)
pt3dadd(277.044, 85.379, -11.821, 1.312)
pt3dadd(277.086, 85.297, -11.895, 1.254)
pt3dadd(277.151, 85.209, -11.946, 1.162)
pt3dadd(277.208, 85.11, -11.986, 1.088)
pt3dadd(277.23, 84.987, -11.999, 0.996)
pt3dadd(277.234, 84.86, -12.004, 0.906)
pt3dadd(277.246, 84.734, -12.009, 0.872)
pt3dadd(277.264, 84.609, -12.014, 0.858)
pt3dadd(277.284, 84.484, -12.019, 0.846)
pt3dadd(277.302, 84.359, -12.024, 0.834)
pt3dadd(277.322, 84.234, -12.03, 0.82)
pt3dadd(277.342, 84.108, -12.035, 0.808)
pt3dadd(277.39, 83.996, -12.04, 0.806)
pt3dadd(277.457, 83.89, -12.045, 0.812)
pt3dadd(277.523, 83.785, -12.05, 0.816)
pt3dadd(277.589, 83.68, -12.056, 0.822)
pt3dadd(277.656, 83.574, -12.061, 0.826)
pt3dadd(277.736, 83.483, -12.066, 0.834)
pt3dadd(277.828, 83.401, -12.071, 0.846)
pt3dadd(277.919, 83.319, -12.076, 0.854)
pt3dadd(278.009, 83.236, -12.081, 0.866)
pt3dadd(278.1, 83.154, -12.087, 0.876)
pt3dadd(278.179, 83.06, -12.092, 0.894)
pt3dadd(278.251, 82.959, -12.097, 0.92)
pt3dadd(278.323, 82.858, -12.102, 0.946)
pt3dadd(278.395, 82.757, -12.107, 0.97)
pt3dadd(278.467, 82.656, -12.112, 0.996)
pt3dadd(278.504, 82.539, -12.118, 1.012)
pt3dadd(278.52, 82.414, -12.123, 1.024)
pt3dadd(278.538, 82.288, -12.128, 1.038)
pt3dadd(278.555, 82.162, -12.133, 1.05)
pt3dadd(278.57, 82.037, -12.138, 1.062)
pt3dadd(278.588, 81.911, -12.143, 1.074)
pt3dadd(278.593, 81.785, -12.149, 1.084)
pt3dadd(278.591, 81.657, -12.154, 1.092)
pt3dadd(278.588, 81.53, -12.159, 1.102)
pt3dadd(278.585, 81.403, -12.164, 1.1)
pt3dadd(278.582, 81.276, -12.169, 1.092)
pt3dadd(278.58, 81.148, -12.174, 1.084)
pt3dadd(278.588, 81.022, -12.179, 1.074)
pt3dadd(278.606, 80.897, -12.185, 1.064)
pt3dadd(278.622, 80.771, -12.19, 1.054)
pt3dadd(278.706, 80.681, -12.195, 1.09)
pt3dadd(278.792, 80.593, -12.2, 1.124)
pt3dadd(278.848, 80.482, -12.205, 1.186)
pt3dadd(278.906, 80.373, -12.211, 1.248)
pt3dadd(278.978, 80.271, -12.216, 1.294)
pt3dadd(279.054, 80.175, -12.221, 1.326)
pt3dadd(279.146, 80.093, -12.226, 1.302)
pt3dadd(279.233, 80.008, -12.233, 1.276)
pt3dadd(279.292, 79.9, -12.255, 1.212)
pt3dadd(279.35, 79.794, -12.281, 1.146)
pt3dadd(279.416, 79.718, -12.344, 1.058)
pt3dadd(279.469, 79.643, -12.416, 0.982)
pt3dadd(279.494, 79.576, -12.503, 0.92)
pt3dadd(279.491, 79.542, -12.605, 0.86)
pt3dadd(279.488, 79.52, -12.71, 0.792)
pt3dadd(279.485, 79.477, -12.809, 0.718)
pt3dadd(279.5, 79.377, -12.869, 0.648)
pt3dadd(279.551, 79.266, -12.883, 0.598)
pt3dadd(279.622, 79.164, -12.888, 0.578)
pt3dadd(279.713, 79.082, -12.893, 0.608)
pt3dadd(279.817, 79.024, -12.898, 0.706)
pt3dadd(279.931, 78.997, -12.904, 0.812)
pt3dadd(280.048, 78.975, -12.909, 0.876)
pt3dadd(280.16, 78.933, -12.914, 0.878)
pt3dadd(280.264, 78.872, -12.919, 0.866)
pt3dadd(280.369, 78.811, -12.924, 0.854)
pt3dadd(280.465, 78.76, -12.968, 0.842)
pt3dadd(280.561, 78.709, -13.017, 0.828)
pt3dadd(280.618, 78.658, -13.101, 0.828)
pt3dadd(280.67, 78.605, -13.186, 0.826)
pt3dadd(280.72, 78.547, -13.271, 0.812)
pt3dadd(280.772, 78.467, -13.326, 0.798)
pt3dadd(280.832, 78.358, -13.341, 0.782)
pt3dadd(280.892, 78.25, -13.356, 0.768)
pt3dadd(280.951, 78.141, -13.371, 0.754)
pt3dadd(281.005, 78.027, -13.381, 0.73)
pt3dadd(281.059, 77.914, -13.391, 0.706)
pt3dadd(281.09, 77.832, -13.464, 0.694)
pt3dadd(281.12, 77.754, -13.545, 0.684)
pt3dadd(281.164, 77.677, -13.62, 0.672)
pt3dadd(281.231, 77.6, -13.682, 0.658)
pt3dadd(281.294, 77.54, -13.757, 0.626)
pt3dadd(281.334, 77.483, -13.845, 0.6)
pt3dadd(281.387, 77.432, -13.926, 0.576)
pt3dadd(281.49, 77.405, -13.976, 0.562)
pt3dadd(281.594, 77.379, -14.017, 0.55)
pt3dadd(281.711, 77.356, -14.027, 0.54)
pt3dadd(281.827, 77.333, -14.036, 0.532)
pt3dadd(281.94, 77.296, -14.043, 0.528)
pt3dadd(282.05, 77.249, -14.048, 0.528)
pt3dadd(282.157, 77.199, -14.047, 0.528)
pt3dadd(282.259, 77.14, -14.026, 0.528)
pt3dadd(282.361, 77.076, -14.017, 0.522)
pt3dadd(282.462, 77.012, -14.008, 0.516)
pt3dadd(282.564, 76.949, -13.999, 0.512)
pt3dadd(282.665, 76.885, -13.99, 0.506)
pt3dadd(282.769, 76.824, -13.984, 0.498)
pt3dadd(282.878, 76.774, -13.99, 0.482)
pt3dadd(282.986, 76.724, -13.995, 0.466)
}
dend_0[2] {pt3dclear()
pt3dadd(170.098, 112.194, 13.295, 13.108)
pt3dadd(170.094, 112.194, 13.298, 13.102)
pt3dadd(170.009, 112.194, 13.368, 12.99)
pt3dadd(169.924, 112.194, 13.439, 12.878)
pt3dadd(169.838, 112.194, 13.51, 12.766)
pt3dadd(169.754, 112.194, 13.58, 12.654)
pt3dadd(169.669, 112.194, 13.651, 12.54)
pt3dadd(169.584, 112.194, 13.722, 12.428)
pt3dadd(169.5, 112.194, 13.793, 12.316)
pt3dadd(169.415, 112.194, 13.863, 12.204)
pt3dadd(169.33, 112.194, 13.934, 12.092)
pt3dadd(169.244, 112.194, 14.005, 11.978)
pt3dadd(169.16, 112.194, 14.076, 11.866)
pt3dadd(169.075, 112.194, 14.146, 11.754)
pt3dadd(168.99, 112.194, 14.217, 11.642)
pt3dadd(168.902, 112.189, 14.285, 11.522)
pt3dadd(168.815, 112.182, 14.353, 11.4)
pt3dadd(168.726, 112.176, 14.42, 11.28)
pt3dadd(168.638, 112.169, 14.488, 11.158)
pt3dadd(168.551, 112.162, 14.556, 11.036)
pt3dadd(168.462, 112.156, 14.623, 10.914)
pt3dadd(168.374, 112.149, 14.691, 10.794)
pt3dadd(168.286, 112.142, 14.758, 10.672)
pt3dadd(168.198, 112.136, 14.826, 10.55)
pt3dadd(168.109, 112.129, 14.894, 10.428)
pt3dadd(168.011, 112.072, 14.925, 10.258)
pt3dadd(167.912, 112.015, 14.956, 10.086)
pt3dadd(167.813, 111.958, 14.987, 9.916)
pt3dadd(167.714, 111.901, 15.018, 9.744)
pt3dadd(167.616, 111.844, 15.05, 9.572)
pt3dadd(167.518, 111.787, 15.081, 9.402)
pt3dadd(167.418, 111.73, 15.112, 9.23)
pt3dadd(167.32, 111.673, 15.143, 9.058)
pt3dadd(167.221, 111.616, 15.175, 8.888)
pt3dadd(167.123, 111.559, 15.206, 8.716)
pt3dadd(167.023, 111.502, 15.237, 8.546)
pt3dadd(166.925, 111.445, 15.268, 8.374)
pt3dadd(166.826, 111.388, 15.299, 8.204)
pt3dadd(166.728, 111.331, 15.33, 8.032)
pt3dadd(166.628, 111.273, 15.362, 7.862)
}
}
proc shape3d_101() {
dend_0[2] { pt3dadd(166.53, 111.216, 15.393, 7.69)
pt3dadd(166.432, 111.159, 15.424, 7.52)
pt3dadd(166.333, 111.102, 15.455, 7.348)
pt3dadd(166.234, 111.045, 15.486, 7.178)
pt3dadd(166.135, 110.988, 15.517, 7.006)
}
dend_0[3] {pt3dclear()
pt3dadd(166.135, 110.988, 15.517, 7.006)
pt3dadd(166.118, 110.983, 15.526, 6.982)
pt3dadd(166.021, 110.956, 15.58, 6.836)
pt3dadd(165.924, 110.929, 15.634, 6.69)
pt3dadd(165.826, 110.902, 15.688, 6.546)
pt3dadd(165.728, 110.875, 15.741, 6.4)
pt3dadd(165.631, 110.848, 15.795, 6.256)
pt3dadd(165.534, 110.821, 15.849, 6.11)
pt3dadd(165.436, 110.794, 15.902, 5.964)
pt3dadd(165.338, 110.767, 15.956, 5.82)
pt3dadd(165.241, 110.741, 16.01, 5.674)
pt3dadd(165.143, 110.714, 16.064, 5.53)
pt3dadd(165.046, 110.687, 16.118, 5.384)
pt3dadd(164.948, 110.66, 16.171, 5.24)
pt3dadd(164.851, 110.633, 16.225, 5.094)
pt3dadd(164.753, 110.606, 16.279, 4.95)
pt3dadd(164.656, 110.579, 16.333, 4.806)
pt3dadd(164.558, 110.552, 16.387, 4.66)
pt3dadd(164.461, 110.526, 16.44, 4.516)
pt3dadd(164.365, 110.513, 16.5, 4.388)
}
dend_7 {pt3dclear()
pt3dadd(164.365, 110.513, 16.5, 4.388)
pt3dadd(164.27, 110.502, 16.56, 4.262)
pt3dadd(164.176, 110.492, 16.621, 4.136)
pt3dadd(164.081, 110.481, 16.681, 4.01)
pt3dadd(163.986, 110.471, 16.742, 3.884)
pt3dadd(163.891, 110.46, 16.802, 3.758)
pt3dadd(163.795, 110.45, 16.863, 3.632)
pt3dadd(163.7, 110.439, 16.924, 3.506)
pt3dadd(163.606, 110.429, 16.984, 3.38)
pt3dadd(163.511, 110.418, 17.045, 3.254)
pt3dadd(163.416, 110.408, 17.105, 3.132)
pt3dadd(163.321, 110.398, 17.166, 3.01)
pt3dadd(163.225, 110.388, 17.226, 2.886)
pt3dadd(163.13, 110.378, 17.286, 2.764)
pt3dadd(163.036, 110.368, 17.347, 2.642)
pt3dadd(162.941, 110.358, 17.407, 2.52)
pt3dadd(162.846, 110.347, 17.468, 2.396)
pt3dadd(162.75, 110.337, 17.528, 2.274)
pt3dadd(162.655, 110.327, 17.589, 2.152)
pt3dadd(162.56, 110.317, 17.649, 2.03)
pt3dadd(162.464, 110.316, 17.71, 1.974)
pt3dadd(162.37, 110.316, 17.77, 1.928)
pt3dadd(162.274, 110.316, 17.831, 1.882)
pt3dadd(162.179, 110.316, 17.891, 1.836)
pt3dadd(162.083, 110.316, 17.952, 1.79)
pt3dadd(161.987, 110.316, 18.012, 1.744)
pt3dadd(161.892, 110.316, 18.073, 1.698)
pt3dadd(161.796, 110.316, 18.133, 1.652)
pt3dadd(161.7, 110.316, 18.194, 1.606)
pt3dadd(161.605, 110.316, 18.254, 1.56)
pt3dadd(161.508, 110.316, 18.313, 1.518)
pt3dadd(161.411, 110.316, 18.372, 1.478)
pt3dadd(161.314, 110.316, 18.43, 1.438)
pt3dadd(161.216, 110.316, 18.489, 1.398)
pt3dadd(161.119, 110.316, 18.547, 1.356)
pt3dadd(161.022, 110.316, 18.606, 1.316)
pt3dadd(160.925, 110.316, 18.665, 1.276)
pt3dadd(160.828, 110.316, 18.723, 1.236)
pt3dadd(160.73, 110.316, 18.782, 1.194)
pt3dadd(160.633, 110.316, 18.84, 1.154)
pt3dadd(160.522, 110.316, 18.876, 1.176)
pt3dadd(160.408, 110.316, 18.91, 1.204)
pt3dadd(160.295, 110.316, 18.944, 1.23)
pt3dadd(160.182, 110.316, 18.978, 1.258)
pt3dadd(160.069, 110.315, 19.012, 1.284)
pt3dadd(159.956, 110.315, 19.045, 1.312)
pt3dadd(159.844, 110.315, 19.079, 1.34)
pt3dadd(159.731, 110.315, 19.113, 1.366)
pt3dadd(159.618, 110.315, 19.147, 1.394)
pt3dadd(159.505, 110.315, 19.181, 1.42)
pt3dadd(159.389, 110.315, 19.206, 1.438)
pt3dadd(159.272, 110.314, 19.231, 1.454)
pt3dadd(159.156, 110.314, 19.255, 1.47)
pt3dadd(159.04, 110.314, 19.28, 1.486)
pt3dadd(158.923, 110.314, 19.305, 1.502)
pt3dadd(158.807, 110.313, 19.329, 1.518)
pt3dadd(158.69, 110.313, 19.354, 1.534)
pt3dadd(158.574, 110.313, 19.378, 1.55)
pt3dadd(158.459, 110.313, 19.403, 1.566)
pt3dadd(158.342, 110.312, 19.428, 1.582)
pt3dadd(158.222, 110.312, 19.439, 1.582)
pt3dadd(158.104, 110.312, 19.451, 1.582)
pt3dadd(157.985, 110.312, 19.462, 1.582)
pt3dadd(157.865, 110.312, 19.473, 1.582)
pt3dadd(157.746, 110.312, 19.485, 1.582)
pt3dadd(157.627, 110.312, 19.496, 1.582)
pt3dadd(157.507, 110.312, 19.507, 1.582)
pt3dadd(157.388, 110.311, 19.519, 1.582)
pt3dadd(157.27, 110.311, 19.53, 1.582)
pt3dadd(157.15, 110.311, 19.541, 1.582)
pt3dadd(157.03, 110.311, 19.544, 1.57)
pt3dadd(156.91, 110.31, 19.546, 1.558)
pt3dadd(156.79, 110.31, 19.548, 1.546)
pt3dadd(156.67, 110.31, 19.551, 1.534)
pt3dadd(156.55, 110.309, 19.553, 1.522)
pt3dadd(156.43, 110.309, 19.555, 1.51)
pt3dadd(156.31, 110.309, 19.558, 1.498)
pt3dadd(156.19, 110.308, 19.56, 1.484)
pt3dadd(156.07, 110.308, 19.562, 1.472)
pt3dadd(155.95, 110.308, 19.565, 1.46)
pt3dadd(155.83, 110.307, 19.566, 1.446)
pt3dadd(155.71, 110.307, 19.566, 1.432)
pt3dadd(155.59, 110.306, 19.567, 1.418)
pt3dadd(155.47, 110.306, 19.568, 1.402)
pt3dadd(155.35, 110.305, 19.569, 1.388)
pt3dadd(155.23, 110.305, 19.57, 1.374)
pt3dadd(155.11, 110.304, 19.571, 1.36)
pt3dadd(154.99, 110.304, 19.571, 1.344)
pt3dadd(154.87, 110.303, 19.572, 1.33)
pt3dadd(154.75, 110.303, 19.573, 1.316)
pt3dadd(154.63, 110.302, 19.575, 1.302)
pt3dadd(154.51, 110.301, 19.576, 1.288)
pt3dadd(154.391, 110.3, 19.577, 1.272)
pt3dadd(154.271, 110.299, 19.579, 1.258)
pt3dadd(154.151, 110.299, 19.58, 1.244)
pt3dadd(154.031, 110.298, 19.582, 1.23)
pt3dadd(153.911, 110.297, 19.583, 1.214)
pt3dadd(153.791, 110.296, 19.585, 1.2)
pt3dadd(153.671, 110.295, 19.586, 1.186)
pt3dadd(153.551, 110.294, 19.587, 1.172)
pt3dadd(153.431, 110.293, 19.59, 1.188)
pt3dadd(153.311, 110.291, 19.592, 1.204)
pt3dadd(153.191, 110.29, 19.595, 1.22)
pt3dadd(153.071, 110.288, 19.597, 1.238)
pt3dadd(152.951, 110.287, 19.6, 1.254)
pt3dadd(152.831, 110.285, 19.602, 1.27)
pt3dadd(152.711, 110.283, 19.604, 1.286)
pt3dadd(152.591, 110.282, 19.607, 1.302)
pt3dadd(152.471, 110.28, 19.609, 1.32)
pt3dadd(152.351, 110.279, 19.612, 1.336)
pt3dadd(152.231, 110.277, 19.615, 1.348)
pt3dadd(152.111, 110.274, 19.619, 1.36)
pt3dadd(151.991, 110.272, 19.622, 1.372)
pt3dadd(151.871, 110.27, 19.626, 1.382)
pt3dadd(151.751, 110.267, 19.629, 1.394)
pt3dadd(151.631, 110.265, 19.633, 1.406)
pt3dadd(151.512, 110.263, 19.636, 1.418)
pt3dadd(151.392, 110.261, 19.64, 1.43)
pt3dadd(151.272, 110.258, 19.643, 1.442)
pt3dadd(151.152, 110.256, 19.647, 1.454)
pt3dadd(151.032, 110.252, 19.654, 1.368)
pt3dadd(150.912, 110.248, 19.661, 1.282)
pt3dadd(150.793, 110.244, 19.668, 1.196)
pt3dadd(150.673, 110.241, 19.675, 1.108)
pt3dadd(150.553, 110.237, 19.682, 1.022)
pt3dadd(150.434, 110.233, 19.689, 0.936)
pt3dadd(150.314, 110.229, 19.696, 0.85)
pt3dadd(150.194, 110.225, 19.703, 0.762)
pt3dadd(150.074, 110.221, 19.71, 0.676)
pt3dadd(149.956, 110.218, 19.717, 0.59)
pt3dadd(149.836, 110.211, 19.726, 0.57)
pt3dadd(149.717, 110.203, 19.736, 0.55)
pt3dadd(149.598, 110.196, 19.746, 0.53)
pt3dadd(149.478, 110.189, 19.755, 0.51)
pt3dadd(149.359, 110.182, 19.765, 0.49)
pt3dadd(149.24, 110.175, 19.775, 0.47)
pt3dadd(149.12, 110.168, 19.784, 0.452)
pt3dadd(149.002, 110.161, 19.794, 0.432)
pt3dadd(148.883, 110.154, 19.804, 0.412)
pt3dadd(148.763, 110.147, 19.813, 0.392)
pt3dadd(148.644, 110.137, 19.825, 0.42)
pt3dadd(148.525, 110.128, 19.836, 0.45)
pt3dadd(148.406, 110.118, 19.848, 0.478)
pt3dadd(148.288, 110.109, 19.86, 0.506)
pt3dadd(148.169, 110.099, 19.871, 0.534)
pt3dadd(148.05, 110.09, 19.883, 0.564)
pt3dadd(147.931, 110.08, 19.894, 0.592)
pt3dadd(147.812, 110.071, 19.906, 0.62)
pt3dadd(147.694, 110.061, 19.917, 0.65)
pt3dadd(147.575, 110.052, 19.929, 0.678)
}
dend_7[1] {pt3dclear()
pt3dadd(147.575, 110.052, 19.929, 0.678)
pt3dadd(147.487, 110.04, 19.958, 0.71)
pt3dadd(147.377, 110.025, 19.995, 0.75)
pt3dadd(147.266, 110.011, 20.032, 0.79)
pt3dadd(147.156, 109.996, 20.069, 0.83)
pt3dadd(147.046, 109.981, 20.106, 0.87)
pt3dadd(146.935, 109.967, 20.142, 0.91)
pt3dadd(146.825, 109.952, 20.18, 0.948)
pt3dadd(146.714, 109.937, 20.216, 0.988)
pt3dadd(146.603, 109.923, 20.253, 1.028)
pt3dadd(146.492, 109.908, 20.29, 1.068)
pt3dadd(146.382, 109.893, 20.327, 1.108)
pt3dadd(146.272, 109.867, 20.36, 1.114)
pt3dadd(146.161, 109.839, 20.391, 1.112)
pt3dadd(146.051, 109.811, 20.422, 1.11)
pt3dadd(145.94, 109.783, 20.454, 1.11)
pt3dadd(145.83, 109.755, 20.485, 1.108)
pt3dadd(145.72, 109.727, 20.517, 1.106)
pt3dadd(145.609, 109.698, 20.548, 1.104)
pt3dadd(145.499, 109.67, 20.579, 1.104)
pt3dadd(145.388, 109.642, 20.611, 1.102)
pt3dadd(145.278, 109.614, 20.642, 1.1)
pt3dadd(145.171, 109.567, 20.665, 1.038)
pt3dadd(145.064, 109.519, 20.687, 0.974)
pt3dadd(144.958, 109.471, 20.709, 0.91)
}
}
proc shape3d_102() {
dend_7[1] { pt3dadd(144.851, 109.423, 20.731, 0.846)
pt3dadd(144.744, 109.376, 20.753, 0.78)
pt3dadd(144.637, 109.328, 20.775, 0.716)
pt3dadd(144.53, 109.28, 20.797, 0.652)
pt3dadd(144.424, 109.232, 20.819, 0.588)
pt3dadd(144.317, 109.185, 20.841, 0.522)
pt3dadd(144.21, 109.137, 20.863, 0.458)
pt3dadd(144.098, 109.097, 20.878, 0.46)
pt3dadd(143.986, 109.057, 20.893, 0.464)
pt3dadd(143.874, 109.018, 20.908, 0.466)
pt3dadd(143.762, 108.979, 20.923, 0.47)
pt3dadd(143.651, 108.939, 20.938, 0.474)
pt3dadd(143.538, 108.9, 20.952, 0.478)
pt3dadd(143.426, 108.86, 20.967, 0.48)
pt3dadd(143.315, 108.821, 20.982, 0.484)
pt3dadd(143.203, 108.781, 20.997, 0.488)
pt3dadd(143.09, 108.742, 21.012, 0.492)
pt3dadd(142.976, 108.707, 21.022, 0.532)
pt3dadd(142.862, 108.672, 21.033, 0.574)
pt3dadd(142.748, 108.638, 21.044, 0.614)
pt3dadd(142.634, 108.603, 21.055, 0.656)
pt3dadd(142.52, 108.568, 21.065, 0.698)
pt3dadd(142.406, 108.534, 21.076, 0.738)
pt3dadd(142.291, 108.499, 21.087, 0.78)
pt3dadd(142.177, 108.464, 21.097, 0.822)
pt3dadd(142.063, 108.429, 21.108, 0.862)
pt3dadd(141.949, 108.395, 21.119, 0.904)
}
dend_7[2] {pt3dclear()
pt3dadd(141.949, 108.395, 21.119, 0.904)
pt3dadd(141.876, 108.364, 21.119, 0.912)
pt3dadd(141.764, 108.318, 21.119, 0.926)
pt3dadd(141.654, 108.272, 21.12, 0.94)
pt3dadd(141.544, 108.226, 21.12, 0.954)
pt3dadd(141.432, 108.18, 21.12, 0.966)
pt3dadd(141.322, 108.134, 21.12, 0.98)
pt3dadd(141.211, 108.088, 21.121, 0.994)
pt3dadd(141.1, 108.042, 21.121, 1.006)
pt3dadd(140.989, 107.996, 21.121, 1.02)
pt3dadd(140.879, 107.95, 21.121, 1.034)
pt3dadd(140.767, 107.904, 21.122, 1.046)
pt3dadd(140.657, 107.858, 21.122, 1.06)
pt3dadd(140.546, 107.812, 21.122, 1.074)
pt3dadd(140.431, 107.78, 21.123, 1.08)
pt3dadd(140.312, 107.771, 21.123, 1.076)
pt3dadd(140.192, 107.762, 21.124, 1.07)
pt3dadd(140.072, 107.753, 21.124, 1.066)
pt3dadd(139.954, 107.743, 21.125, 1.062)
pt3dadd(139.834, 107.734, 21.125, 1.058)
pt3dadd(139.714, 107.725, 21.126, 1.052)
pt3dadd(139.594, 107.715, 21.126, 1.048)
pt3dadd(139.475, 107.706, 21.127, 1.044)
pt3dadd(139.355, 107.697, 21.127, 1.04)
pt3dadd(139.235, 107.702, 21.128, 1.03)
pt3dadd(139.116, 107.714, 21.129, 1.018)
pt3dadd(138.996, 107.726, 21.129, 1.006)
pt3dadd(138.877, 107.737, 21.13, 0.992)
pt3dadd(138.757, 107.749, 21.131, 0.98)
pt3dadd(138.638, 107.761, 21.131, 0.968)
pt3dadd(138.518, 107.773, 21.132, 0.956)
pt3dadd(138.4, 107.784, 21.133, 0.944)
pt3dadd(138.28, 107.796, 21.134, 0.932)
pt3dadd(138.161, 107.808, 21.134, 0.918)
pt3dadd(138.041, 107.817, 21.135, 0.926)
pt3dadd(137.921, 107.825, 21.137, 0.94)
pt3dadd(137.802, 107.833, 21.138, 0.954)
pt3dadd(137.682, 107.842, 21.14, 0.968)
pt3dadd(137.562, 107.85, 21.141, 0.984)
pt3dadd(137.442, 107.858, 21.142, 0.998)
pt3dadd(137.323, 107.866, 21.144, 1.012)
pt3dadd(137.203, 107.874, 21.145, 1.028)
pt3dadd(137.083, 107.883, 21.147, 1.042)
pt3dadd(136.963, 107.891, 21.148, 1.056)
pt3dadd(136.844, 107.886, 21.15, 1.088)
pt3dadd(136.724, 107.875, 21.152, 1.126)
pt3dadd(136.606, 107.864, 21.154, 1.162)
pt3dadd(136.486, 107.853, 21.157, 1.2)
pt3dadd(136.366, 107.842, 21.159, 1.238)
pt3dadd(136.247, 107.831, 21.161, 1.276)
pt3dadd(136.127, 107.82, 21.163, 1.314)
pt3dadd(136.008, 107.809, 21.166, 1.352)
pt3dadd(135.888, 107.798, 21.168, 1.39)
pt3dadd(135.769, 107.787, 21.17, 1.428)
pt3dadd(135.652, 107.763, 21.173, 1.482)
pt3dadd(135.535, 107.736, 21.175, 1.54)
pt3dadd(135.418, 107.708, 21.178, 1.598)
pt3dadd(135.301, 107.68, 21.181, 1.656)
pt3dadd(135.185, 107.652, 21.184, 1.714)
pt3dadd(135.068, 107.625, 21.187, 1.772)
pt3dadd(134.951, 107.597, 21.19, 1.83)
pt3dadd(134.834, 107.569, 21.193, 1.888)
pt3dadd(134.718, 107.541, 21.195, 1.946)
pt3dadd(134.602, 107.514, 21.198, 2.004)
pt3dadd(134.483, 107.514, 21.205, 1.98)
pt3dadd(134.363, 107.521, 21.212, 1.938)
pt3dadd(134.243, 107.528, 21.219, 1.894)
pt3dadd(134.124, 107.535, 21.227, 1.852)
pt3dadd(134.004, 107.543, 21.234, 1.808)
pt3dadd(133.885, 107.55, 21.241, 1.766)
pt3dadd(133.765, 107.557, 21.249, 1.722)
pt3dadd(133.646, 107.564, 21.256, 1.68)
pt3dadd(133.526, 107.571, 21.263, 1.636)
pt3dadd(133.408, 107.579, 21.271, 1.594)
pt3dadd(133.288, 107.573, 21.28, 1.58)
pt3dadd(133.169, 107.564, 21.291, 1.572)
pt3dadd(133.05, 107.554, 21.301, 1.566)
pt3dadd(132.931, 107.545, 21.311, 1.558)
pt3dadd(132.812, 107.536, 21.321, 1.552)
pt3dadd(132.692, 107.527, 21.331, 1.544)
pt3dadd(132.574, 107.518, 21.342, 1.538)
pt3dadd(132.455, 107.509, 21.352, 1.53)
pt3dadd(132.336, 107.5, 21.362, 1.524)
pt3dadd(132.217, 107.491, 21.372, 1.516)
pt3dadd(132.101, 107.468, 21.388, 1.532)
pt3dadd(131.984, 107.443, 21.404, 1.552)
pt3dadd(131.869, 107.419, 21.42, 1.57)
pt3dadd(131.753, 107.394, 21.437, 1.588)
pt3dadd(131.638, 107.37, 21.453, 1.606)
pt3dadd(131.521, 107.345, 21.469, 1.624)
pt3dadd(131.406, 107.321, 21.485, 1.642)
pt3dadd(131.29, 107.296, 21.501, 1.66)
pt3dadd(131.173, 107.272, 21.518, 1.678)
pt3dadd(131.058, 107.248, 21.534, 1.696)
pt3dadd(130.958, 107.244, 21.589, 1.556)
pt3dadd(130.859, 107.239, 21.645, 1.414)
pt3dadd(130.758, 107.235, 21.7, 1.274)
pt3dadd(130.658, 107.231, 21.755, 1.134)
pt3dadd(130.559, 107.227, 21.811, 0.994)
pt3dadd(130.459, 107.223, 21.866, 0.852)
pt3dadd(130.36, 107.219, 21.921, 0.712)
pt3dadd(130.259, 107.215, 21.977, 0.572)
pt3dadd(130.159, 107.211, 22.032, 0.43)
pt3dadd(130.06, 107.207, 22.088, 0.29)
}
dend_7[3] {pt3dclear()
pt3dadd(130.06, 107.207, 22.088, 0.29)
pt3dadd(129.973, 107.237, 22.112, 0.298)
pt3dadd(129.866, 107.275, 22.142, 0.308)
pt3dadd(129.758, 107.313, 22.173, 0.318)
pt3dadd(129.65, 107.35, 22.203, 0.328)
pt3dadd(129.542, 107.388, 22.233, 0.338)
pt3dadd(129.434, 107.426, 22.264, 0.348)
pt3dadd(129.326, 107.464, 22.294, 0.358)
pt3dadd(129.218, 107.502, 22.324, 0.37)
pt3dadd(129.11, 107.54, 22.355, 0.38)
pt3dadd(129.002, 107.578, 22.385, 0.39)
pt3dadd(128.89, 107.611, 22.404, 0.422)
pt3dadd(128.777, 107.644, 22.422, 0.458)
pt3dadd(128.663, 107.677, 22.44, 0.496)
pt3dadd(128.55, 107.71, 22.457, 0.532)
pt3dadd(128.436, 107.743, 22.474, 0.57)
pt3dadd(128.323, 107.776, 22.492, 0.606)
pt3dadd(128.209, 107.809, 22.51, 0.642)
pt3dadd(128.096, 107.842, 22.527, 0.68)
pt3dadd(127.982, 107.875, 22.545, 0.716)
pt3dadd(127.868, 107.908, 22.562, 0.754)
pt3dadd(127.752, 107.933, 22.571, 0.79)
pt3dadd(127.636, 107.957, 22.58, 0.828)
pt3dadd(127.518, 107.981, 22.588, 0.866)
pt3dadd(127.4, 108.006, 22.596, 0.902)
pt3dadd(127.284, 108.03, 22.605, 0.94)
pt3dadd(127.166, 108.054, 22.613, 0.978)
pt3dadd(127.05, 108.078, 22.621, 1.016)
pt3dadd(126.932, 108.102, 22.63, 1.052)
pt3dadd(126.815, 108.127, 22.638, 1.09)
pt3dadd(126.698, 108.151, 22.646, 1.128)
pt3dadd(126.578, 108.158, 22.645, 1.13)
pt3dadd(126.458, 108.164, 22.643, 1.13)
pt3dadd(126.338, 108.169, 22.641, 1.13)
pt3dadd(126.22, 108.175, 22.639, 1.13)
pt3dadd(126.1, 108.181, 22.637, 1.13)
pt3dadd(125.98, 108.187, 22.635, 1.13)
pt3dadd(125.86, 108.192, 22.634, 1.13)
pt3dadd(125.74, 108.198, 22.632, 1.13)
pt3dadd(125.62, 108.204, 22.63, 1.13)
pt3dadd(125.5, 108.21, 22.628, 1.13)
pt3dadd(125.381, 108.204, 22.624, 1.102)
pt3dadd(125.261, 108.198, 22.62, 1.074)
pt3dadd(125.141, 108.192, 22.616, 1.044)
pt3dadd(125.021, 108.186, 22.612, 1.016)
pt3dadd(124.901, 108.18, 22.608, 0.986)
pt3dadd(124.782, 108.174, 22.604, 0.958)
pt3dadd(124.662, 108.167, 22.6, 0.928)
pt3dadd(124.542, 108.161, 22.596, 0.9)
pt3dadd(124.422, 108.155, 22.592, 0.87)
pt3dadd(124.302, 108.149, 22.588, 0.842)
pt3dadd(124.183, 108.133, 22.583, 0.8)
pt3dadd(124.064, 108.118, 22.578, 0.76)
pt3dadd(123.947, 108.102, 22.572, 0.72)
pt3dadd(123.828, 108.086, 22.567, 0.68)
pt3dadd(123.709, 108.07, 22.562, 0.638)
pt3dadd(123.59, 108.054, 22.556, 0.598)
pt3dadd(123.472, 108.038, 22.551, 0.558)
pt3dadd(123.353, 108.022, 22.546, 0.516)
pt3dadd(123.234, 108.006, 22.541, 0.476)
pt3dadd(123.115, 107.99, 22.535, 0.436)
pt3dadd(123.004, 107.947, 22.528, 0.422)
pt3dadd(122.892, 107.904, 22.521, 0.408)
pt3dadd(122.779, 107.861, 22.514, 0.394)
pt3dadd(122.668, 107.818, 22.507, 0.38)
pt3dadd(122.556, 107.775, 22.5, 0.366)
pt3dadd(122.444, 107.732, 22.493, 0.352)
pt3dadd(122.333, 107.689, 22.486, 0.338)
pt3dadd(122.221, 107.646, 22.479, 0.322)
}
}
proc shape3d_103() {
dend_7[3] { pt3dadd(122.11, 107.603, 22.471, 0.308)
pt3dadd(121.998, 107.56, 22.464, 0.294)
}
dend_7[4] {pt3dclear()
pt3dadd(121.998, 107.56, 22.464, 0.294)
pt3dadd(122, 107.551, 22.455, 0.312)
pt3dadd(122.018, 107.477, 22.378, 0.456)
pt3dadd(122.038, 107.403, 22.301, 0.598)
pt3dadd(122.057, 107.328, 22.224, 0.742)
pt3dadd(122.075, 107.254, 22.147, 0.886)
pt3dadd(122.094, 107.18, 22.07, 1.028)
pt3dadd(122.113, 107.106, 21.993, 1.172)
pt3dadd(122.131, 107.032, 21.916, 1.316)
pt3dadd(122.15, 106.958, 21.839, 1.46)
pt3dadd(122.101, 106.918, 21.8, 1.55)
pt3dadd(121.981, 106.913, 21.8, 1.584)
pt3dadd(121.861, 106.909, 21.8, 1.618)
pt3dadd(121.772, 106.847, 21.8, 1.64)
pt3dadd(121.704, 106.748, 21.8, 1.65)
pt3dadd(121.627, 106.657, 21.8, 1.636)
pt3dadd(121.54, 106.576, 21.8, 1.59)
pt3dadd(121.445, 106.504, 21.8, 1.542)
pt3dadd(121.336, 106.455, 21.8, 1.496)
pt3dadd(121.226, 106.405, 21.8, 1.448)
pt3dadd(121.117, 106.356, 21.8, 1.402)
pt3dadd(121.003, 106.33, 21.79, 1.37)
pt3dadd(120.884, 106.325, 21.773, 1.35)
pt3dadd(120.769, 106.318, 21.751, 1.332)
pt3dadd(120.706, 106.286, 21.671, 1.374)
pt3dadd(120.642, 106.254, 21.591, 1.414)
pt3dadd(120.574, 106.224, 21.513, 1.468)
pt3dadd(120.503, 106.196, 21.435, 1.536)
pt3dadd(120.403, 106.161, 21.401, 1.58)
pt3dadd(120.304, 106.112, 21.362, 1.582)
pt3dadd(120.205, 106.063, 21.324, 1.582)
pt3dadd(120.106, 106.013, 21.285, 1.582)
pt3dadd(120.007, 105.963, 21.246, 1.582)
pt3dadd(119.895, 105.935, 21.229, 1.596)
pt3dadd(119.777, 105.916, 21.224, 1.618)
pt3dadd(119.658, 105.898, 21.218, 1.64)
pt3dadd(119.54, 105.88, 21.212, 1.66)
pt3dadd(119.421, 105.862, 21.207, 1.682)
pt3dadd(119.303, 105.844, 21.201, 1.704)
pt3dadd(119.184, 105.83, 21.2, 1.724)
pt3dadd(119.065, 105.817, 21.2, 1.744)
pt3dadd(118.945, 105.805, 21.2, 1.764)
pt3dadd(118.826, 105.792, 21.2, 1.782)
pt3dadd(118.707, 105.779, 21.2, 1.802)
pt3dadd(118.587, 105.767, 21.2, 1.822)
pt3dadd(118.471, 105.74, 21.2, 1.832)
pt3dadd(118.36, 105.695, 21.2, 1.826)
pt3dadd(118.249, 105.651, 21.2, 1.822)
pt3dadd(118.137, 105.606, 21.2, 1.818)
pt3dadd(118.026, 105.562, 21.2, 1.812)
pt3dadd(117.915, 105.516, 21.199, 1.806)
pt3dadd(117.811, 105.459, 21.182, 1.756)
pt3dadd(117.708, 105.402, 21.166, 1.708)
pt3dadd(117.604, 105.344, 21.149, 1.66)
pt3dadd(117.501, 105.287, 21.132, 1.61)
pt3dadd(117.404, 105.222, 21.11, 1.556)
pt3dadd(117.317, 105.147, 21.082, 1.49)
pt3dadd(117.23, 105.072, 21.053, 1.426)
pt3dadd(117.143, 104.997, 21.025, 1.362)
pt3dadd(117.051, 104.928, 21, 1.302)
pt3dadd(116.936, 104.895, 21, 1.27)
pt3dadd(116.821, 104.863, 21, 1.24)
pt3dadd(116.705, 104.83, 21, 1.208)
pt3dadd(116.59, 104.797, 21, 1.178)
pt3dadd(116.474, 104.764, 21, 1.146)
pt3dadd(116.358, 104.738, 20.994, 1.128)
pt3dadd(116.24, 104.718, 20.982, 1.124)
pt3dadd(116.123, 104.699, 20.97, 1.118)
pt3dadd(116.005, 104.68, 20.958, 1.114)
pt3dadd(115.888, 104.661, 20.946, 1.11)
pt3dadd(115.77, 104.642, 20.934, 1.106)
pt3dadd(115.653, 104.62, 20.922, 1.126)
pt3dadd(115.536, 104.598, 20.91, 1.148)
pt3dadd(115.419, 104.576, 20.898, 1.172)
pt3dadd(115.302, 104.554, 20.886, 1.194)
pt3dadd(115.185, 104.532, 20.874, 1.218)
pt3dadd(115.072, 104.509, 20.85, 1.242)
pt3dadd(114.963, 104.483, 20.812, 1.268)
pt3dadd(114.855, 104.457, 20.774, 1.296)
pt3dadd(114.747, 104.432, 20.736, 1.322)
pt3dadd(114.639, 104.406, 20.698, 1.35)
pt3dadd(114.528, 104.394, 20.663, 1.364)
pt3dadd(114.415, 104.387, 20.629, 1.372)
pt3dadd(114.303, 104.379, 20.595, 1.382)
pt3dadd(114.19, 104.371, 20.561, 1.392)
pt3dadd(114.078, 104.364, 20.527, 1.402)
pt3dadd(113.964, 104.34, 20.51, 1.406)
pt3dadd(113.85, 104.304, 20.508, 1.406)
pt3dadd(113.736, 104.267, 20.506, 1.406)
pt3dadd(113.621, 104.231, 20.504, 1.406)
pt3dadd(113.507, 104.194, 20.502, 1.406)
pt3dadd(113.393, 104.16, 20.5, 1.406)
pt3dadd(113.273, 104.162, 20.5, 1.398)
pt3dadd(113.153, 104.164, 20.5, 1.392)
pt3dadd(113.033, 104.166, 20.5, 1.384)
pt3dadd(112.913, 104.168, 20.5, 1.376)
pt3dadd(112.793, 104.17, 20.5, 1.37)
pt3dadd(112.673, 104.172, 20.5, 1.362)
pt3dadd(112.553, 104.176, 20.5, 1.354)
pt3dadd(112.434, 104.193, 20.5, 1.346)
pt3dadd(112.315, 104.211, 20.5, 1.338)
pt3dadd(112.197, 104.228, 20.5, 1.33)
pt3dadd(112.078, 104.245, 20.5, 1.322)
pt3dadd(111.959, 104.263, 20.5, 1.314)
pt3dadd(111.84, 104.28, 20.5, 1.306)
pt3dadd(111.72, 104.28, 20.5, 1.284)
pt3dadd(111.6, 104.28, 20.5, 1.262)
pt3dadd(111.48, 104.28, 20.5, 1.242)
pt3dadd(111.36, 104.28, 20.5, 1.22)
pt3dadd(111.24, 104.28, 20.5, 1.198)
pt3dadd(111.12, 104.28, 20.5, 1.176)
pt3dadd(111, 104.28, 20.5, 1.156)
pt3dadd(110.88, 104.28, 20.5, 1.144)
pt3dadd(110.76, 104.28, 20.5, 1.134)
pt3dadd(110.64, 104.28, 20.5, 1.122)
pt3dadd(110.52, 104.28, 20.5, 1.112)
pt3dadd(110.4, 104.28, 20.5, 1.102)
pt3dadd(110.28, 104.28, 20.5, 1.09)
pt3dadd(110.16, 104.28, 20.5, 1.08)
pt3dadd(110.041, 104.267, 20.5, 1.072)
pt3dadd(109.922, 104.255, 20.5, 1.064)
pt3dadd(109.802, 104.242, 20.5, 1.056)
pt3dadd(109.683, 104.229, 20.5, 1.048)
pt3dadd(109.564, 104.217, 20.5, 1.04)
pt3dadd(109.444, 104.204, 20.5, 1.032)
pt3dadd(109.327, 104.182, 20.5, 1.038)
pt3dadd(109.21, 104.155, 20.5, 1.05)
pt3dadd(109.093, 104.127, 20.5, 1.064)
pt3dadd(108.976, 104.1, 20.5, 1.076)
pt3dadd(108.859, 104.073, 20.5, 1.09)
pt3dadd(108.742, 104.045, 20.5, 1.102)
pt3dadd(108.648, 103.975, 20.5, 1.118)
pt3dadd(108.559, 103.894, 20.5, 1.132)
pt3dadd(108.471, 103.814, 20.5, 1.148)
pt3dadd(108.382, 103.733, 20.5, 1.162)
pt3dadd(108.293, 103.652, 20.5, 1.178)
pt3dadd(108.191, 103.589, 20.5, 1.196)
pt3dadd(108.087, 103.529, 20.5, 1.216)
pt3dadd(107.983, 103.469, 20.5, 1.236)
pt3dadd(107.879, 103.41, 20.5, 1.256)
pt3dadd(107.775, 103.35, 20.5, 1.276)
pt3dadd(107.66, 103.322, 20.5, 1.286)
pt3dadd(107.541, 103.307, 20.5, 1.294)
pt3dadd(107.422, 103.293, 20.5, 1.302)
pt3dadd(107.303, 103.278, 20.5, 1.31)
pt3dadd(107.184, 103.263, 20.5, 1.318)
pt3dadd(107.065, 103.248, 20.5, 1.326)
pt3dadd(106.95, 103.218, 20.5, 1.33)
pt3dadd(106.84, 103.17, 20.5, 1.33)
pt3dadd(106.73, 103.123, 20.5, 1.33)
pt3dadd(106.619, 103.075, 20.5, 1.33)
pt3dadd(106.509, 103.028, 20.5, 1.33)
pt3dadd(106.404, 102.974, 20.5, 1.33)
pt3dadd(106.329, 102.88, 20.5, 1.32)
pt3dadd(106.254, 102.787, 20.5, 1.31)
pt3dadd(106.179, 102.693, 20.5, 1.3)
pt3dadd(106.104, 102.599, 20.5, 1.29)
pt3dadd(106.025, 102.51, 20.5, 1.28)
pt3dadd(105.923, 102.447, 20.5, 1.27)
pt3dadd(105.82, 102.385, 20.5, 1.26)
pt3dadd(105.718, 102.322, 20.5, 1.25)
pt3dadd(105.616, 102.259, 20.5, 1.24)
pt3dadd(105.513, 102.197, 20.5, 1.23)
pt3dadd(105.41, 102.136, 20.5, 1.218)
pt3dadd(105.306, 102.075, 20.5, 1.206)
pt3dadd(105.217, 101.996, 20.5, 1.196)
pt3dadd(105.129, 101.914, 20.5, 1.184)
pt3dadd(105.017, 101.89, 20.5, 1.16)
pt3dadd(104.897, 101.885, 20.5, 1.134)
pt3dadd(104.777, 101.881, 20.5, 1.108)
pt3dadd(104.657, 101.88, 20.5, 1.084)
pt3dadd(104.537, 101.88, 20.5, 1.058)
pt3dadd(104.417, 101.88, 20.5, 1.034)
pt3dadd(104.297, 101.88, 20.5, 1.03)
pt3dadd(104.177, 101.88, 20.5, 1.03)
pt3dadd(104.057, 101.88, 20.5, 1.042)
pt3dadd(103.937, 101.88, 20.5, 1.056)
pt3dadd(103.817, 101.88, 20.5, 1.07)
pt3dadd(103.697, 101.88, 20.5, 1.086)
pt3dadd(103.577, 101.88, 20.5, 1.1)
pt3dadd(103.457, 101.88, 20.5, 1.114)
pt3dadd(103.337, 101.88, 20.5, 1.128)
pt3dadd(103.219, 101.863, 20.5, 1.144)
pt3dadd(103.1, 101.843, 20.5, 1.16)
pt3dadd(102.982, 101.824, 20.5, 1.178)
pt3dadd(102.864, 101.804, 20.5, 1.194)
pt3dadd(102.745, 101.784, 20.5, 1.21)
pt3dadd(102.627, 101.764, 20.5, 1.226)
pt3dadd(102.514, 101.726, 20.5, 1.234)
pt3dadd(102.402, 101.681, 20.5, 1.238)
pt3dadd(102.291, 101.636, 20.5, 1.244)
pt3dadd(102.18, 101.592, 20.5, 1.248)
pt3dadd(102.068, 101.547, 20.5, 1.252)
pt3dadd(101.954, 101.52, 20.506, 1.252)
pt3dadd(101.836, 101.52, 20.523, 1.244)
pt3dadd(101.717, 101.52, 20.539, 1.236)
pt3dadd(101.599, 101.52, 20.556, 1.228)
pt3dadd(101.481, 101.52, 20.572, 1.22)
}
}
proc shape3d_104() {
dend_7[4] { pt3dadd(101.362, 101.52, 20.589, 1.212)
pt3dadd(101.244, 101.514, 20.6, 1.202)
pt3dadd(101.126, 101.494, 20.6, 1.194)
pt3dadd(101.007, 101.475, 20.6, 1.186)
pt3dadd(100.889, 101.455, 20.6, 1.178)
pt3dadd(100.77, 101.435, 20.6, 1.17)
pt3dadd(100.652, 101.415, 20.6, 1.162)
pt3dadd(100.533, 101.4, 20.6, 1.156)
pt3dadd(100.413, 101.4, 20.6, 1.156)
pt3dadd(100.293, 101.4, 20.6, 1.156)
pt3dadd(100.173, 101.4, 20.6, 1.156)
pt3dadd(100.053, 101.4, 20.6, 1.156)
pt3dadd(99.933, 101.4, 20.6, 1.156)
pt3dadd(99.813, 101.4, 20.6, 1.156)
pt3dadd(99.693, 101.4, 20.6, 1.16)
pt3dadd(99.573, 101.4, 20.6, 1.178)
pt3dadd(99.453, 101.4, 20.6, 1.194)
pt3dadd(99.333, 101.4, 20.6, 1.212)
pt3dadd(99.213, 101.4, 20.6, 1.23)
pt3dadd(99.093, 101.4, 20.6, 1.248)
pt3dadd(98.973, 101.4, 20.6, 1.266)
pt3dadd(98.853, 101.4, 20.6, 1.284)
pt3dadd(98.733, 101.4, 20.6, 1.302)
pt3dadd(98.613, 101.4, 20.6, 1.32)
pt3dadd(98.493, 101.4, 20.6, 1.338)
pt3dadd(98.373, 101.4, 20.6, 1.356)
pt3dadd(98.253, 101.4, 20.6, 1.374)
pt3dadd(98.133, 101.4, 20.6, 1.392)
pt3dadd(98.013, 101.4, 20.6, 1.408)
pt3dadd(97.893, 101.4, 20.6, 1.414)
pt3dadd(97.773, 101.4, 20.6, 1.422)
pt3dadd(97.653, 101.4, 20.6, 1.43)
pt3dadd(97.533, 101.4, 20.6, 1.436)
pt3dadd(97.413, 101.4, 20.6, 1.444)
pt3dadd(97.293, 101.4, 20.6, 1.45)
pt3dadd(97.173, 101.4, 20.602, 1.452)
pt3dadd(97.054, 101.4, 20.613, 1.428)
pt3dadd(96.935, 101.4, 20.623, 1.404)
pt3dadd(96.816, 101.4, 20.634, 1.38)
pt3dadd(96.696, 101.4, 20.644, 1.356)
pt3dadd(96.577, 101.4, 20.655, 1.332)
pt3dadd(96.458, 101.4, 20.665, 1.31)
pt3dadd(96.338, 101.4, 20.671, 1.286)
pt3dadd(96.218, 101.4, 20.676, 1.264)
pt3dadd(96.098, 101.4, 20.681, 1.242)
pt3dadd(95.978, 101.4, 20.686, 1.218)
pt3dadd(95.858, 101.4, 20.691, 1.196)
pt3dadd(95.739, 101.4, 20.696, 1.174)
pt3dadd(95.619, 101.4, 20.7, 1.154)
pt3dadd(95.499, 101.4, 20.7, 1.142)
pt3dadd(95.379, 101.4, 20.7, 1.132)
pt3dadd(95.259, 101.4, 20.7, 1.12)
pt3dadd(95.139, 101.4, 20.7, 1.11)
pt3dadd(95.019, 101.4, 20.7, 1.1)
pt3dadd(94.899, 101.4, 20.7, 1.088)
pt3dadd(94.779, 101.4, 20.7, 1.08)
pt3dadd(94.659, 101.4, 20.7, 1.084)
pt3dadd(94.539, 101.4, 20.7, 1.088)
pt3dadd(94.419, 101.4, 20.7, 1.092)
pt3dadd(94.299, 101.4, 20.7, 1.094)
pt3dadd(94.179, 101.4, 20.7, 1.098)
pt3dadd(94.059, 101.4, 20.7, 1.102)
pt3dadd(93.939, 101.398, 20.7, 1.106)
pt3dadd(93.819, 101.385, 20.7, 1.118)
pt3dadd(93.7, 101.373, 20.7, 1.13)
pt3dadd(93.581, 101.36, 20.7, 1.142)
pt3dadd(93.461, 101.347, 20.7, 1.154)
pt3dadd(93.342, 101.335, 20.7, 1.166)
pt3dadd(93.223, 101.322, 20.7, 1.178)
pt3dadd(93.103, 101.315, 20.7, 1.184)
pt3dadd(92.983, 101.309, 20.7, 1.186)
pt3dadd(92.863, 101.303, 20.7, 1.19)
pt3dadd(92.743, 101.297, 20.7, 1.194)
pt3dadd(92.624, 101.291, 20.7, 1.198)
pt3dadd(92.504, 101.285, 20.7, 1.202)
pt3dadd(92.384, 101.28, 20.7, 1.206)
pt3dadd(92.264, 101.28, 20.7, 1.206)
pt3dadd(92.144, 101.28, 20.7, 1.206)
pt3dadd(92.024, 101.28, 20.7, 1.206)
pt3dadd(91.904, 101.28, 20.7, 1.206)
pt3dadd(91.784, 101.28, 20.7, 1.206)
pt3dadd(91.664, 101.28, 20.7, 1.206)
pt3dadd(91.544, 101.28, 20.7, 1.204)
pt3dadd(91.424, 101.28, 20.7, 1.188)
pt3dadd(91.304, 101.28, 20.7, 1.174)
pt3dadd(91.184, 101.28, 20.7, 1.16)
pt3dadd(91.064, 101.28, 20.7, 1.146)
pt3dadd(90.944, 101.28, 20.7, 1.132)
pt3dadd(90.824, 101.28, 20.7, 1.118)
pt3dadd(90.704, 101.28, 20.7, 1.104)
pt3dadd(90.584, 101.28, 20.7, 1.096)
pt3dadd(90.464, 101.28, 20.7, 1.09)
pt3dadd(90.344, 101.28, 20.7, 1.082)
pt3dadd(90.224, 101.28, 20.7, 1.076)
pt3dadd(90.104, 101.28, 20.7, 1.068)
pt3dadd(89.984, 101.28, 20.7, 1.06)
pt3dadd(89.864, 101.276, 20.7, 1.054)
pt3dadd(89.749, 101.242, 20.7, 1.05)
pt3dadd(89.634, 101.209, 20.7, 1.046)
pt3dadd(89.518, 101.176, 20.7, 1.04)
pt3dadd(89.403, 101.143, 20.7, 1.036)
pt3dadd(89.288, 101.11, 20.7, 1.032)
pt3dadd(89.171, 101.085, 20.693, 1.03)
pt3dadd(89.054, 101.068, 20.679, 1.03)
pt3dadd(88.936, 101.052, 20.665, 1.03)
pt3dadd(88.818, 101.035, 20.651, 1.03)
pt3dadd(88.701, 101.018, 20.637, 1.03)
pt3dadd(88.583, 101.002, 20.623, 1.03)
pt3dadd(88.489, 100.951, 20.581, 1.018)
pt3dadd(88.396, 100.896, 20.536, 1.006)
pt3dadd(88.304, 100.842, 20.49, 0.994)
pt3dadd(88.212, 100.788, 20.445, 0.982)
pt3dadd(88.116, 100.723, 20.421, 0.96)
pt3dadd(88.02, 100.655, 20.404, 0.934)
pt3dadd(87.917, 100.607, 20.373, 0.93)
pt3dadd(87.813, 100.565, 20.337, 0.93)
pt3dadd(87.711, 100.542, 20.289, 0.94)
pt3dadd(87.61, 100.522, 20.238, 0.954)
pt3dadd(87.552, 100.425, 20.218, 0.966)
pt3dadd(87.499, 100.319, 20.202, 0.978)
pt3dadd(87.402, 100.252, 20.2, 0.98)
pt3dadd(87.3, 100.189, 20.2, 0.98)
pt3dadd(87.197, 100.127, 20.2, 0.98)
pt3dadd(87.092, 100.07, 20.2, 0.98)
pt3dadd(86.979, 100.03, 20.2, 0.98)
pt3dadd(86.866, 99.991, 20.2, 0.98)
pt3dadd(86.768, 99.923, 20.199, 0.978)
pt3dadd(86.664, 99.863, 20.192, 0.974)
pt3dadd(86.56, 99.802, 20.185, 0.968)
pt3dadd(86.457, 99.742, 20.178, 0.962)
pt3dadd(86.353, 99.682, 20.171, 0.958)
pt3dadd(86.252, 99.619, 20.163, 0.952)
pt3dadd(86.156, 99.55, 20.148, 0.948)
pt3dadd(86.06, 99.48, 20.133, 0.942)
pt3dadd(85.964, 99.41, 20.119, 0.936)
pt3dadd(85.867, 99.341, 20.104, 0.93)
pt3dadd(85.782, 99.258, 20.1, 0.92)
pt3dadd(85.7, 99.17, 20.1, 0.908)
pt3dadd(85.597, 99.121, 20.1, 0.898)
pt3dadd(85.479, 99.101, 20.1, 0.888)
pt3dadd(85.361, 99.081, 20.1, 0.878)
pt3dadd(85.278, 99.036, 20.038, 0.864)
pt3dadd(85.2, 99, 19.971, 0.854)
pt3dadd(85.14, 99, 19.885, 0.854)
pt3dadd(85.078, 99, 19.799, 0.854)
pt3dadd(84.973, 98.99, 19.751, 0.89)
pt3dadd(84.87, 98.96, 19.71, 0.908)
pt3dadd(84.767, 98.918, 19.672, 0.914)
pt3dadd(84.664, 98.876, 19.634, 0.918)
pt3dadd(84.561, 98.833, 19.597, 0.924)
pt3dadd(84.458, 98.789, 19.564, 0.926)
pt3dadd(84.35, 98.739, 19.55, 0.916)
pt3dadd(84.242, 98.69, 19.536, 0.906)
pt3dadd(84.134, 98.64, 19.522, 0.896)
pt3dadd(84.026, 98.59, 19.508, 0.886)
pt3dadd(83.921, 98.544, 19.483, 0.87)
pt3dadd(83.82, 98.505, 19.44, 0.846)
pt3dadd(83.72, 98.465, 19.397, 0.824)
pt3dadd(83.619, 98.426, 19.354, 0.8)
pt3dadd(83.518, 98.386, 19.311, 0.778)
pt3dadd(83.405, 98.344, 19.306, 0.756)
pt3dadd(83.293, 98.303, 19.301, 0.734)
pt3dadd(83.181, 98.261, 19.296, 0.746)
pt3dadd(83.068, 98.22, 19.291, 0.768)
pt3dadd(82.978, 98.189, 19.248, 0.812)
pt3dadd(82.91, 98.169, 19.167, 0.876)
pt3dadd(82.857, 98.16, 19.079, 0.928)
pt3dadd(82.818, 98.16, 18.985, 0.972)
pt3dadd(82.767, 98.151, 18.898, 1.004)
pt3dadd(82.679, 98.111, 18.839, 1.004)
pt3dadd(82.591, 98.072, 18.78, 1.004)
pt3dadd(82.497, 98.032, 18.73, 0.994)
pt3dadd(82.385, 97.995, 18.715, 0.948)
pt3dadd(82.272, 97.957, 18.7, 0.894)
pt3dadd(82.158, 97.922, 18.7, 0.776)
pt3dadd(82.045, 97.881, 18.7, 0.766)
pt3dadd(81.933, 97.839, 18.7, 0.758)
pt3dadd(81.82, 97.797, 18.7, 0.748)
pt3dadd(81.707, 97.756, 18.7, 0.74)
pt3dadd(81.595, 97.714, 18.7, 0.73)
pt3dadd(81.524, 97.622, 18.7, 0.738)
pt3dadd(81.464, 97.519, 18.7, 0.748)
pt3dadd(81.381, 97.436, 18.697, 0.776)
pt3dadd(81.284, 97.365, 18.691, 0.812)
pt3dadd(81.18, 97.33, 18.667, 0.842)
pt3dadd(81.07, 97.324, 18.626, 0.864)
pt3dadd(80.962, 97.32, 18.584, 0.886)
pt3dadd(80.854, 97.32, 18.539, 0.91)
pt3dadd(80.75, 97.32, 18.491, 0.93)
pt3dadd(80.665, 97.32, 18.421, 0.93)
pt3dadd(80.566, 97.338, 18.369, 0.926)
pt3dadd(80.461, 97.365, 18.326, 0.92)
pt3dadd(80.357, 97.391, 18.282, 0.914)
pt3dadd(80.252, 97.417, 18.238, 0.908)
pt3dadd(80.145, 97.44, 18.198, 0.902)
pt3dadd(80.027, 97.44, 18.181, 0.886)
pt3dadd(79.909, 97.44, 18.165, 0.868)
pt3dadd(79.79, 97.44, 18.149, 0.852)
pt3dadd(79.672, 97.44, 18.132, 0.836)
pt3dadd(79.554, 97.44, 18.116, 0.82)
}
}
proc shape3d_105() {
dend_7[4] { pt3dadd(79.435, 97.439, 18.099, 0.802)
pt3dadd(79.322, 97.418, 18.073, 0.788)
pt3dadd(79.208, 97.397, 18.046, 0.774)
pt3dadd(79.094, 97.376, 18.02, 0.758)
pt3dadd(78.98, 97.354, 17.993, 0.744)
pt3dadd(78.866, 97.333, 17.967, 0.728)
pt3dadd(78.756, 97.29, 17.953, 0.718)
pt3dadd(78.645, 97.247, 17.94, 0.708)
pt3dadd(78.534, 97.203, 17.926, 0.698)
pt3dadd(78.423, 97.16, 17.913, 0.688)
pt3dadd(78.312, 97.118, 17.9, 0.678)
pt3dadd(78.196, 97.09, 17.9, 0.682)
pt3dadd(78.079, 97.063, 17.9, 0.686)
pt3dadd(77.962, 97.035, 17.9, 0.692)
pt3dadd(77.845, 97.008, 17.9, 0.696)
pt3dadd(77.728, 96.981, 17.9, 0.7)
pt3dadd(77.611, 96.957, 17.9, 0.704)
pt3dadd(77.491, 96.944, 17.9, 0.708)
pt3dadd(77.372, 96.932, 17.9, 0.712)
pt3dadd(77.253, 96.919, 17.9, 0.716)
pt3dadd(77.133, 96.906, 17.9, 0.72)
pt3dadd(77.014, 96.894, 17.9, 0.724)
pt3dadd(76.895, 96.881, 17.9, 0.728)
pt3dadd(76.79, 96.825, 17.9, 0.732)
pt3dadd(76.688, 96.762, 17.9, 0.738)
pt3dadd(76.586, 96.699, 17.9, 0.742)
pt3dadd(76.484, 96.636, 17.9, 0.748)
pt3dadd(76.381, 96.574, 17.9, 0.752)
pt3dadd(76.281, 96.508, 17.9, 0.75)
pt3dadd(76.18, 96.442, 17.9, 0.744)
pt3dadd(76.08, 96.376, 17.9, 0.74)
pt3dadd(75.98, 96.31, 17.9, 0.734)
pt3dadd(75.88, 96.244, 17.9, 0.73)
pt3dadd(75.819, 96.145, 17.9, 0.728)
pt3dadd(75.772, 96.035, 17.9, 0.728)
pt3dadd(75.7, 95.946, 17.9, 0.734)
pt3dadd(75.597, 95.886, 17.9, 0.744)
pt3dadd(75.493, 95.826, 17.901, 0.766)
pt3dadd(75.387, 95.77, 17.906, 0.812)
pt3dadd(75.286, 95.715, 17.92, 0.86)
pt3dadd(75.228, 95.671, 17.999, 0.916)
pt3dadd(75.155, 95.64, 18.066, 0.968)
pt3dadd(75.042, 95.64, 18.102, 1.016)
pt3dadd(74.934, 95.64, 18.144, 1.03)
pt3dadd(74.89, 95.64, 18.236, 0.966)
pt3dadd(74.875, 95.64, 18.335, 0.92)
pt3dadd(74.843, 95.64, 18.43, 0.888)
pt3dadd(74.751, 95.64, 18.487, 0.856)
pt3dadd(74.635, 95.618, 18.5, 0.834)
pt3dadd(74.547, 95.544, 18.507, 0.854)
pt3dadd(74.52, 95.434, 18.536, 0.852)
pt3dadd(74.514, 95.326, 18.576, 0.84)
pt3dadd(74.471, 95.22, 18.599, 0.876)
pt3dadd(74.366, 95.168, 18.606, 0.932)
pt3dadd(74.255, 95.142, 18.639, 0.944)
pt3dadd(74.147, 95.111, 18.669, 0.956)
pt3dadd(74.05, 95.042, 18.686, 0.968)
pt3dadd(73.969, 94.964, 18.7, 0.98)
pt3dadd(73.948, 94.846, 18.7, 0.98)
pt3dadd(73.928, 94.727, 18.7, 0.98)
pt3dadd(73.92, 94.608, 18.7, 0.98)
pt3dadd(73.92, 94.488, 18.7, 0.98)
pt3dadd(73.92, 94.368, 18.7, 0.98)
pt3dadd(73.92, 94.248, 18.7, 0.98)
pt3dadd(73.92, 94.128, 18.7, 0.98)
pt3dadd(73.92, 94.008, 18.7, 0.98)
pt3dadd(73.92, 93.888, 18.7, 0.98)
pt3dadd(73.92, 93.768, 18.7, 0.98)
pt3dadd(73.92, 93.648, 18.7, 0.98)
pt3dadd(73.92, 93.528, 18.7, 0.98)
pt3dadd(73.92, 93.408, 18.7, 0.98)
pt3dadd(73.92, 93.288, 18.7, 0.98)
pt3dadd(73.912, 93.168, 18.7, 0.982)
pt3dadd(73.9, 93.049, 18.7, 0.986)
pt3dadd(73.887, 92.93, 18.7, 0.99)
pt3dadd(73.875, 92.81, 18.7, 0.994)
pt3dadd(73.862, 92.691, 18.7, 0.998)
pt3dadd(73.849, 92.572, 18.7, 1.002)
pt3dadd(73.832, 92.453, 18.7, 1.006)
pt3dadd(73.799, 92.338, 18.7, 1.018)
pt3dadd(73.767, 92.222, 18.7, 1.028)
pt3dadd(73.734, 92.107, 18.7, 1.046)
pt3dadd(73.701, 91.992, 18.7, 1.066)
pt3dadd(73.665, 91.877, 18.7, 1.092)
pt3dadd(73.625, 91.764, 18.7, 1.124)
pt3dadd(73.584, 91.652, 18.7, 1.156)
pt3dadd(73.47, 91.613, 18.7, 1.22)
pt3dadd(73.357, 91.573, 18.7, 1.284)
pt3dadd(73.274, 91.494, 18.702, 1.33)
pt3dadd(73.206, 91.395, 18.705, 1.366)
pt3dadd(73.138, 91.296, 18.708, 1.402)
pt3dadd(73.072, 91.198, 18.718, 1.44)
pt3dadd(73.02, 91.103, 18.761, 1.496)
pt3dadd(72.958, 91.011, 18.795, 1.558)
pt3dadd(72.886, 90.917, 18.8, 1.606)
pt3dadd(72.818, 90.818, 18.8, 1.642)
pt3dadd(72.741, 90.727, 18.803, 1.664)
pt3dadd(72.656, 90.642, 18.808, 1.676)
pt3dadd(72.61, 90.558, 18.846, 1.676)
pt3dadd(72.603, 90.473, 18.917, 1.664)
pt3dadd(72.597, 90.376, 18.971, 1.642)
pt3dadd(72.591, 90.263, 19.006, 1.608)
pt3dadd(72.573, 90.157, 19.043, 1.564)
pt3dadd(72.504, 90.077, 19.09, 1.48)
pt3dadd(72.439, 89.993, 19.136, 1.45)
pt3dadd(72.374, 89.908, 19.182, 1.42)
pt3dadd(72.309, 89.824, 19.229, 1.388)
pt3dadd(72.245, 89.739, 19.274, 1.358)
pt3dadd(72.19, 89.639, 19.303, 1.33)
pt3dadd(72.136, 89.537, 19.331, 1.302)
pt3dadd(72.082, 89.435, 19.358, 1.274)
pt3dadd(72.028, 89.333, 19.386, 1.246)
pt3dadd(71.984, 89.231, 19.422, 1.22)
pt3dadd(71.951, 89.129, 19.467, 1.196)
pt3dadd(71.918, 89.027, 19.512, 1.174)
pt3dadd(71.885, 88.925, 19.557, 1.152)
pt3dadd(71.853, 88.823, 19.601, 1.13)
pt3dadd(71.833, 88.714, 19.641, 1.114)
pt3dadd(71.814, 88.605, 19.68, 1.098)
pt3dadd(71.794, 88.497, 19.72, 1.082)
pt3dadd(71.775, 88.388, 19.759, 1.066)
pt3dadd(71.753, 88.282, 19.801, 1.052)
pt3dadd(71.723, 88.18, 19.848, 1.04)
pt3dadd(71.693, 88.079, 19.895, 1.03)
pt3dadd(71.663, 87.977, 19.942, 1.018)
pt3dadd(71.633, 87.876, 19.99, 1.006)
pt3dadd(71.601, 87.763, 20, 1.004)
pt3dadd(71.568, 87.648, 20, 1.004)
pt3dadd(71.535, 87.533, 20, 1.004)
pt3dadd(71.502, 87.417, 20, 1.004)
pt3dadd(71.469, 87.302, 20, 1.004)
pt3dadd(71.436, 87.186, 20, 1.004)
pt3dadd(71.409, 87.07, 20, 1.01)
pt3dadd(71.382, 86.953, 20, 1.014)
pt3dadd(71.354, 86.836, 20, 1.018)
pt3dadd(71.327, 86.719, 20, 1.022)
pt3dadd(71.299, 86.602, 20, 1.026)
pt3dadd(71.28, 86.485, 20, 1.03)
pt3dadd(71.28, 86.365, 20, 1.03)
pt3dadd(71.28, 86.245, 20, 1.03)
pt3dadd(71.27, 86.126, 20, 1.024)
pt3dadd(71.237, 86.011, 20, 1.002)
pt3dadd(71.204, 85.895, 20, 0.982)
pt3dadd(71.185, 85.779, 20.017, 0.97)
pt3dadd(71.167, 85.663, 20.036, 0.958)
pt3dadd(71.122, 85.592, 20.09, 0.97)
pt3dadd(71.057, 85.556, 20.168, 0.998)
pt3dadd(71.013, 85.468, 20.214, 1.032)
pt3dadd(70.976, 85.362, 20.248, 1.072)
pt3dadd(70.939, 85.255, 20.282, 1.11)
pt3dadd(70.918, 85.142, 20.3, 1.156)
pt3dadd(70.913, 85.022, 20.3, 1.208)
pt3dadd(70.909, 84.903, 20.3, 1.26)
pt3dadd(70.887, 84.785, 20.3, 1.372)
pt3dadd(70.822, 84.687, 20.3, 1.434)
pt3dadd(70.746, 84.593, 20.3, 1.47)
pt3dadd(70.71, 84.483, 20.3, 1.482)
pt3dadd(70.695, 84.364, 20.3, 1.482)
pt3dadd(70.681, 84.245, 20.3, 1.482)
pt3dadd(70.68, 84.13, 20.326, 1.462)
pt3dadd(70.68, 84.014, 20.354, 1.44)
pt3dadd(70.68, 83.9, 20.384, 1.426)
pt3dadd(70.68, 83.787, 20.417, 1.414)
pt3dadd(70.675, 83.684, 20.459, 1.402)
pt3dadd(70.644, 83.632, 20.546, 1.384)
pt3dadd(70.602, 83.53, 20.577, 1.376)
pt3dadd(70.559, 83.422, 20.601, 1.37)
pt3dadd(70.517, 83.314, 20.624, 1.366)
pt3dadd(70.474, 83.205, 20.648, 1.36)
pt3dadd(70.44, 83.095, 20.672, 1.35)
pt3dadd(70.44, 82.978, 20.694, 1.32)
pt3dadd(70.44, 82.861, 20.717, 1.29)
pt3dadd(70.44, 82.745, 20.74, 1.258)
pt3dadd(70.44, 82.628, 20.763, 1.228)
pt3dadd(70.44, 82.511, 20.786, 1.198)
pt3dadd(70.44, 82.393, 20.8, 1.17)
pt3dadd(70.44, 82.273, 20.8, 1.146)
pt3dadd(70.44, 82.153, 20.8, 1.12)
pt3dadd(70.44, 82.033, 20.8, 1.094)
pt3dadd(70.44, 81.913, 20.8, 1.07)
pt3dadd(70.44, 81.793, 20.8, 1.044)
pt3dadd(70.44, 81.673, 20.8, 1.02)
pt3dadd(70.44, 81.553, 20.8, 0.998)
pt3dadd(70.44, 81.433, 20.8, 0.98)
pt3dadd(70.44, 81.313, 20.8, 0.962)
pt3dadd(70.44, 81.193, 20.8, 0.944)
pt3dadd(70.44, 81.073, 20.8, 0.926)
pt3dadd(70.44, 80.953, 20.8, 0.908)
pt3dadd(70.44, 80.833, 20.8, 0.89)
pt3dadd(70.44, 80.713, 20.8, 0.884)
pt3dadd(70.44, 80.593, 20.8, 0.894)
pt3dadd(70.44, 80.473, 20.8, 0.904)
pt3dadd(70.44, 80.353, 20.8, 0.916)
pt3dadd(70.44, 80.233, 20.8, 0.926)
pt3dadd(70.44, 80.113, 20.8, 0.936)
pt3dadd(70.44, 79.993, 20.8, 0.948)
pt3dadd(70.447, 79.873, 20.8, 0.962)
pt3dadd(70.464, 79.755, 20.8, 0.982)
pt3dadd(70.481, 79.636, 20.8, 1.002)
pt3dadd(70.499, 79.517, 20.8, 1.024)
}
}
proc shape3d_106() {
dend_7[4] { pt3dadd(70.516, 79.398, 20.8, 1.044)
pt3dadd(70.533, 79.28, 20.8, 1.064)
pt3dadd(70.553, 79.161, 20.8, 1.084)
pt3dadd(70.579, 79.044, 20.8, 1.104)
pt3dadd(70.605, 78.927, 20.8, 1.124)
pt3dadd(70.692, 78.86, 20.8, 1.114)
pt3dadd(70.802, 78.814, 20.8, 1.092)
pt3dadd(70.876, 78.738, 20.8, 1.064)
pt3dadd(70.896, 78.62, 20.8, 1.026)
pt3dadd(70.916, 78.501, 20.8, 0.986)
pt3dadd(70.92, 78.382, 20.8, 0.972)
pt3dadd(70.92, 78.262, 20.8, 0.964)
pt3dadd(70.92, 78.142, 20.8, 0.956)
pt3dadd(70.92, 78.022, 20.8, 0.964)
pt3dadd(70.92, 77.902, 20.8, 0.976)
pt3dadd(70.904, 77.783, 20.8, 0.986)
pt3dadd(70.884, 77.665, 20.8, 0.994)
pt3dadd(70.864, 77.546, 20.8, 1.002)
pt3dadd(70.845, 77.428, 20.8, 1.01)
pt3dadd(70.825, 77.31, 20.8, 1.02)
pt3dadd(70.805, 77.191, 20.8, 1.028)
pt3dadd(70.8, 77.072, 20.8, 1.024)
pt3dadd(70.8, 76.952, 20.8, 1.014)
pt3dadd(70.8, 76.832, 20.8, 1.006)
pt3dadd(70.803, 76.712, 20.8, 0.986)
pt3dadd(70.808, 76.592, 20.8, 0.96)
pt3dadd(70.812, 76.472, 20.8, 0.934)
pt3dadd(70.885, 76.382, 20.8, 0.898)
pt3dadd(70.97, 76.297, 20.8, 0.862)
pt3dadd(71.04, 76.2, 20.8, 0.904)
}
dend_7[5] {pt3dclear()
pt3dadd(121.998, 107.56, 22.464, 0.294)
pt3dadd(121.885, 107.527, 22.445, 0.288)
pt3dadd(121.771, 107.495, 22.425, 0.28)
pt3dadd(121.658, 107.463, 22.406, 0.274)
pt3dadd(121.546, 107.43, 22.386, 0.266)
pt3dadd(121.432, 107.398, 22.367, 0.26)
pt3dadd(121.319, 107.366, 22.347, 0.254)
pt3dadd(121.206, 107.333, 22.327, 0.246)
pt3dadd(121.092, 107.301, 22.308, 0.24)
pt3dadd(120.979, 107.269, 22.288, 0.232)
pt3dadd(120.866, 107.238, 22.267, 0.226)
pt3dadd(120.754, 107.217, 22.236, 0.226)
pt3dadd(120.642, 107.196, 22.205, 0.226)
pt3dadd(120.53, 107.175, 22.174, 0.226)
pt3dadd(120.418, 107.153, 22.143, 0.226)
pt3dadd(120.306, 107.132, 22.112, 0.226)
pt3dadd(120.193, 107.111, 22.081, 0.226)
pt3dadd(120.082, 107.09, 22.05, 0.226)
pt3dadd(119.97, 107.069, 22.019, 0.226)
pt3dadd(119.858, 107.048, 21.987, 0.226)
pt3dadd(119.745, 107.03, 21.959, 0.226)
pt3dadd(119.625, 107.033, 21.952, 0.226)
pt3dadd(119.505, 107.036, 21.945, 0.226)
pt3dadd(119.386, 107.039, 21.938, 0.226)
pt3dadd(119.266, 107.042, 21.931, 0.226)
pt3dadd(119.146, 107.045, 21.924, 0.226)
pt3dadd(119.027, 107.048, 21.917, 0.226)
pt3dadd(118.907, 107.051, 21.91, 0.226)
pt3dadd(118.787, 107.054, 21.903, 0.226)
pt3dadd(118.674, 107.073, 21.912, 0.226)
pt3dadd(118.57, 107.119, 21.944, 0.226)
pt3dadd(118.467, 107.166, 21.977, 0.226)
pt3dadd(118.363, 107.212, 22.01, 0.226)
pt3dadd(118.259, 107.258, 22.042, 0.226)
pt3dadd(118.156, 107.304, 22.075, 0.226)
pt3dadd(118.052, 107.35, 22.108, 0.226)
pt3dadd(117.949, 107.396, 22.141, 0.226)
pt3dadd(117.845, 107.442, 22.173, 0.226)
pt3dadd(117.755, 107.494, 22.219, 0.242)
pt3dadd(117.688, 107.555, 22.285, 0.286)
pt3dadd(117.621, 107.615, 22.351, 0.328)
pt3dadd(117.554, 107.675, 22.416, 0.372)
pt3dadd(117.487, 107.736, 22.482, 0.414)
pt3dadd(117.42, 107.796, 22.548, 0.458)
pt3dadd(117.353, 107.857, 22.614, 0.502)
pt3dadd(117.286, 107.917, 22.68, 0.544)
pt3dadd(117.219, 107.978, 22.746, 0.588)
pt3dadd(117.152, 108.038, 22.812, 0.63)
pt3dadd(117.09, 108.091, 22.885, 0.7)
pt3dadd(117.032, 108.137, 22.963, 0.79)
pt3dadd(116.974, 108.184, 23.042, 0.88)
pt3dadd(116.916, 108.23, 23.12, 0.97)
pt3dadd(116.857, 108.277, 23.198, 1.06)
pt3dadd(116.799, 108.323, 23.277, 1.15)
pt3dadd(116.741, 108.369, 23.355, 1.24)
pt3dadd(116.683, 108.416, 23.434, 1.33)
pt3dadd(116.625, 108.462, 23.512, 1.42)
pt3dadd(116.567, 108.509, 23.591, 1.51)
pt3dadd(116.481, 108.548, 23.649, 1.512)
pt3dadd(116.383, 108.584, 23.699, 1.474)
pt3dadd(116.286, 108.62, 23.749, 1.438)
pt3dadd(116.188, 108.656, 23.798, 1.4)
pt3dadd(116.09, 108.692, 23.848, 1.364)
pt3dadd(115.993, 108.728, 23.898, 1.328)
pt3dadd(115.895, 108.764, 23.947, 1.29)
pt3dadd(115.797, 108.8, 23.997, 1.254)
pt3dadd(115.699, 108.836, 24.047, 1.216)
pt3dadd(115.602, 108.872, 24.096, 1.18)
pt3dadd(115.498, 108.917, 24.127, 1.13)
pt3dadd(115.392, 108.966, 24.149, 1.074)
pt3dadd(115.286, 109.016, 24.171, 1.016)
pt3dadd(115.179, 109.065, 24.194, 0.96)
pt3dadd(115.073, 109.114, 24.216, 0.904)
pt3dadd(114.967, 109.163, 24.238, 0.848)
pt3dadd(114.861, 109.212, 24.26, 0.792)
pt3dadd(114.755, 109.261, 24.282, 0.736)
pt3dadd(114.649, 109.31, 24.305, 0.68)
pt3dadd(114.542, 109.359, 24.327, 0.624)
pt3dadd(114.434, 109.405, 24.345, 0.588)
pt3dadd(114.324, 109.45, 24.362, 0.558)
pt3dadd(114.215, 109.494, 24.379, 0.53)
pt3dadd(114.105, 109.539, 24.396, 0.502)
pt3dadd(113.996, 109.584, 24.412, 0.472)
pt3dadd(113.886, 109.628, 24.429, 0.444)
pt3dadd(113.776, 109.673, 24.446, 0.414)
pt3dadd(113.667, 109.718, 24.463, 0.386)
pt3dadd(113.557, 109.762, 24.479, 0.356)
pt3dadd(113.448, 109.807, 24.496, 0.328)
pt3dadd(113.334, 109.842, 24.51, 0.342)
pt3dadd(113.22, 109.875, 24.523, 0.37)
pt3dadd(113.106, 109.908, 24.535, 0.398)
pt3dadd(112.991, 109.94, 24.548, 0.426)
pt3dadd(112.877, 109.973, 24.56, 0.454)
pt3dadd(112.762, 110.006, 24.573, 0.482)
pt3dadd(112.648, 110.038, 24.586, 0.51)
pt3dadd(112.533, 110.071, 24.598, 0.538)
pt3dadd(112.419, 110.103, 24.611, 0.566)
pt3dadd(112.304, 110.136, 24.624, 0.594)
pt3dadd(112.193, 110.163, 24.652, 0.606)
pt3dadd(112.082, 110.188, 24.684, 0.614)
pt3dadd(111.971, 110.213, 24.717, 0.622)
pt3dadd(111.861, 110.238, 24.75, 0.63)
pt3dadd(111.75, 110.264, 24.782, 0.638)
pt3dadd(111.639, 110.289, 24.815, 0.646)
pt3dadd(111.529, 110.314, 24.847, 0.654)
pt3dadd(111.418, 110.339, 24.879, 0.662)
pt3dadd(111.307, 110.364, 24.912, 0.67)
pt3dadd(111.197, 110.39, 24.945, 0.676)
pt3dadd(111.088, 110.412, 24.983, 0.678)
pt3dadd(110.98, 110.434, 25.023, 0.68)
pt3dadd(110.872, 110.456, 25.062, 0.68)
pt3dadd(110.764, 110.477, 25.102, 0.682)
pt3dadd(110.656, 110.499, 25.141, 0.682)
pt3dadd(110.548, 110.521, 25.181, 0.684)
pt3dadd(110.44, 110.543, 25.22, 0.684)
pt3dadd(110.332, 110.565, 25.26, 0.686)
pt3dadd(110.224, 110.587, 25.299, 0.686)
pt3dadd(110.116, 110.608, 25.339, 0.688)
pt3dadd(110.004, 110.627, 25.372, 0.714)
pt3dadd(109.892, 110.645, 25.403, 0.742)
pt3dadd(109.78, 110.663, 25.435, 0.772)
pt3dadd(109.667, 110.68, 25.467, 0.8)
pt3dadd(109.555, 110.698, 25.499, 0.83)
pt3dadd(109.443, 110.716, 25.531, 0.858)
pt3dadd(109.33, 110.734, 25.563, 0.888)
pt3dadd(109.218, 110.752, 25.595, 0.916)
pt3dadd(109.106, 110.77, 25.627, 0.946)
pt3dadd(108.993, 110.788, 25.659, 0.974)
pt3dadd(108.884, 110.822, 25.687, 0.998)
pt3dadd(108.774, 110.858, 25.715, 1.02)
pt3dadd(108.665, 110.895, 25.743, 1.042)
pt3dadd(108.555, 110.931, 25.77, 1.064)
pt3dadd(108.446, 110.967, 25.798, 1.086)
pt3dadd(108.337, 111.004, 25.826, 1.108)
pt3dadd(108.227, 111.04, 25.853, 1.132)
pt3dadd(108.118, 111.077, 25.881, 1.154)
pt3dadd(108.008, 111.113, 25.909, 1.176)
pt3dadd(107.899, 111.15, 25.936, 1.198)
pt3dadd(107.796, 111.205, 25.958, 1.212)
pt3dadd(107.693, 111.261, 25.98, 1.226)
pt3dadd(107.59, 111.317, 26.003, 1.24)
pt3dadd(107.487, 111.372, 26.025, 1.254)
pt3dadd(107.385, 111.428, 26.047, 1.268)
pt3dadd(107.282, 111.484, 26.069, 1.282)
pt3dadd(107.179, 111.54, 26.091, 1.296)
pt3dadd(107.076, 111.595, 26.114, 1.31)
pt3dadd(106.973, 111.651, 26.136, 1.324)
pt3dadd(106.87, 111.707, 26.158, 1.336)
pt3dadd(106.78, 111.763, 26.204, 1.276)
pt3dadd(106.689, 111.819, 26.25, 1.216)
pt3dadd(106.598, 111.875, 26.296, 1.156)
pt3dadd(106.508, 111.93, 26.342, 1.096)
pt3dadd(106.417, 111.986, 26.388, 1.036)
pt3dadd(106.326, 112.042, 26.434, 0.976)
pt3dadd(106.236, 112.098, 26.48, 0.916)
pt3dadd(106.145, 112.154, 26.527, 0.856)
pt3dadd(106.054, 112.21, 26.573, 0.796)
pt3dadd(105.963, 112.267, 26.618, 0.738)
pt3dadd(105.871, 112.33, 26.654, 0.718)
pt3dadd(105.778, 112.393, 26.689, 0.698)
pt3dadd(105.686, 112.456, 26.725, 0.678)
pt3dadd(105.593, 112.519, 26.761, 0.658)
pt3dadd(105.501, 112.582, 26.797, 0.638)
pt3dadd(105.408, 112.646, 26.833, 0.618)
pt3dadd(105.315, 112.709, 26.868, 0.598)
pt3dadd(105.223, 112.772, 26.904, 0.578)
pt3dadd(105.13, 112.835, 26.94, 0.558)
pt3dadd(105.037, 112.899, 26.974, 0.544)
pt3dadd(104.941, 112.964, 26.999, 0.554)
pt3dadd(104.845, 113.029, 27.024, 0.564)
}
}
proc shape3d_107() {
dend_7[5] { pt3dadd(104.749, 113.094, 27.048, 0.576)
pt3dadd(104.653, 113.16, 27.073, 0.586)
pt3dadd(104.556, 113.225, 27.098, 0.598)
pt3dadd(104.46, 113.29, 27.123, 0.608)
pt3dadd(104.364, 113.356, 27.148, 0.62)
pt3dadd(104.268, 113.421, 27.173, 0.63)
pt3dadd(104.172, 113.486, 27.198, 0.64)
pt3dadd(104.073, 113.547, 27.22, 0.644)
pt3dadd(103.96, 113.587, 27.232, 0.614)
pt3dadd(103.848, 113.627, 27.245, 0.584)
pt3dadd(103.736, 113.667, 27.257, 0.552)
pt3dadd(103.624, 113.707, 27.269, 0.522)
pt3dadd(103.512, 113.747, 27.282, 0.492)
pt3dadd(103.4, 113.787, 27.294, 0.462)
pt3dadd(103.288, 113.827, 27.306, 0.432)
pt3dadd(103.176, 113.867, 27.319, 0.402)
pt3dadd(103.063, 113.907, 27.331, 0.37)
pt3dadd(102.951, 113.946, 27.342, 0.346)
pt3dadd(102.835, 113.978, 27.348, 0.342)
pt3dadd(102.72, 114.01, 27.354, 0.338)
pt3dadd(102.604, 114.042, 27.36, 0.334)
pt3dadd(102.489, 114.075, 27.365, 0.332)
pt3dadd(102.374, 114.107, 27.371, 0.328)
pt3dadd(102.258, 114.139, 27.377, 0.324)
pt3dadd(102.143, 114.171, 27.383, 0.32)
pt3dadd(102.027, 114.203, 27.388, 0.318)
pt3dadd(101.912, 114.235, 27.394, 0.314)
pt3dadd(101.796, 114.266, 27.399, 0.314)
pt3dadd(101.679, 114.293, 27.4, 0.328)
pt3dadd(101.562, 114.32, 27.402, 0.342)
pt3dadd(101.445, 114.347, 27.403, 0.356)
pt3dadd(101.328, 114.374, 27.405, 0.37)
pt3dadd(101.212, 114.401, 27.406, 0.384)
pt3dadd(101.095, 114.428, 27.407, 0.398)
pt3dadd(100.978, 114.454, 27.409, 0.412)
pt3dadd(100.861, 114.481, 27.41, 0.426)
pt3dadd(100.744, 114.508, 27.411, 0.44)
pt3dadd(100.628, 114.539, 27.413, 0.458)
pt3dadd(100.517, 114.584, 27.416, 0.484)
pt3dadd(100.406, 114.629, 27.419, 0.512)
pt3dadd(100.294, 114.674, 27.421, 0.538)
pt3dadd(100.183, 114.719, 27.424, 0.564)
pt3dadd(100.072, 114.763, 27.427, 0.592)
pt3dadd(99.961, 114.808, 27.43, 0.618)
pt3dadd(99.849, 114.853, 27.432, 0.646)
pt3dadd(99.738, 114.898, 27.435, 0.672)
pt3dadd(99.627, 114.943, 27.438, 0.7)
pt3dadd(99.515, 114.987, 27.441, 0.722)
pt3dadd(99.402, 115.027, 27.445, 0.732)
pt3dadd(99.289, 115.067, 27.449, 0.742)
pt3dadd(99.176, 115.107, 27.453, 0.752)
pt3dadd(99.063, 115.147, 27.457, 0.76)
pt3dadd(98.95, 115.188, 27.461, 0.77)
pt3dadd(98.837, 115.228, 27.465, 0.78)
pt3dadd(98.724, 115.268, 27.469, 0.79)
pt3dadd(98.611, 115.308, 27.473, 0.8)
pt3dadd(98.498, 115.348, 27.477, 0.81)
pt3dadd(98.385, 115.386, 27.482, 0.81)
pt3dadd(98.269, 115.415, 27.489, 0.782)
pt3dadd(98.153, 115.445, 27.495, 0.754)
pt3dadd(98.037, 115.474, 27.502, 0.726)
pt3dadd(97.921, 115.504, 27.509, 0.698)
pt3dadd(97.805, 115.533, 27.516, 0.67)
pt3dadd(97.689, 115.563, 27.523, 0.642)
pt3dadd(97.573, 115.593, 27.53, 0.614)
pt3dadd(97.457, 115.622, 27.537, 0.586)
pt3dadd(97.341, 115.652, 27.544, 0.558)
pt3dadd(97.224, 115.679, 27.552, 0.532)
pt3dadd(97.107, 115.698, 27.562, 0.514)
pt3dadd(96.989, 115.718, 27.573, 0.496)
pt3dadd(96.871, 115.737, 27.583, 0.478)
pt3dadd(96.753, 115.757, 27.593, 0.46)
pt3dadd(96.635, 115.776, 27.604, 0.44)
pt3dadd(96.518, 115.796, 27.614, 0.422)
pt3dadd(96.4, 115.815, 27.624, 0.404)
pt3dadd(96.282, 115.834, 27.634, 0.386)
pt3dadd(96.164, 115.854, 27.645, 0.366)
pt3dadd(96.047, 115.872, 27.656, 0.35)
pt3dadd(95.929, 115.886, 27.671, 0.336)
pt3dadd(95.811, 115.899, 27.685, 0.324)
pt3dadd(95.693, 115.913, 27.7, 0.312)
pt3dadd(95.575, 115.927, 27.715, 0.298)
pt3dadd(95.457, 115.941, 27.729, 0.286)
pt3dadd(95.339, 115.954, 27.744, 0.274)
pt3dadd(95.221, 115.968, 27.758, 0.26)
pt3dadd(95.103, 115.982, 27.773, 0.248)
pt3dadd(94.985, 115.995, 27.788, 0.236)
pt3dadd(94.869, 116.006, 27.809, 0.226)
pt3dadd(94.758, 116.01, 27.847, 0.226)
pt3dadd(94.647, 116.013, 27.884, 0.226)
pt3dadd(94.536, 116.017, 27.922, 0.226)
pt3dadd(94.425, 116.021, 27.96, 0.226)
pt3dadd(94.314, 116.024, 27.997, 0.226)
pt3dadd(94.203, 116.028, 28.035, 0.226)
pt3dadd(94.092, 116.031, 28.073, 0.226)
pt3dadd(93.981, 116.035, 28.11, 0.226)
pt3dadd(93.87, 116.039, 28.148, 0.226)
pt3dadd(93.758, 116.043, 28.184, 0.226)
pt3dadd(93.644, 116.049, 28.217, 0.226)
pt3dadd(93.531, 116.055, 28.249, 0.226)
pt3dadd(93.418, 116.061, 28.282, 0.226)
pt3dadd(93.304, 116.067, 28.314, 0.226)
pt3dadd(93.191, 116.073, 28.347, 0.226)
pt3dadd(93.078, 116.079, 28.379, 0.226)
pt3dadd(92.964, 116.085, 28.412, 0.226)
pt3dadd(92.851, 116.091, 28.444, 0.226)
pt3dadd(92.738, 116.097, 28.477, 0.226)
pt3dadd(92.624, 116.104, 28.507, 0.226)
pt3dadd(92.508, 116.113, 28.532, 0.226)
pt3dadd(92.392, 116.122, 28.558, 0.226)
pt3dadd(92.277, 116.131, 28.583, 0.226)
pt3dadd(92.161, 116.141, 28.608, 0.226)
pt3dadd(92.045, 116.15, 28.633, 0.226)
pt3dadd(91.929, 116.159, 28.658, 0.226)
pt3dadd(91.813, 116.168, 28.683, 0.226)
pt3dadd(91.698, 116.177, 28.709, 0.226)
pt3dadd(91.582, 116.186, 28.734, 0.226)
pt3dadd(91.466, 116.197, 28.756, 0.24)
pt3dadd(91.348, 116.211, 28.772, 0.286)
pt3dadd(91.23, 116.226, 28.788, 0.332)
pt3dadd(91.113, 116.24, 28.804, 0.376)
pt3dadd(90.995, 116.255, 28.82, 0.422)
pt3dadd(90.878, 116.269, 28.836, 0.468)
pt3dadd(90.76, 116.283, 28.853, 0.512)
pt3dadd(90.643, 116.298, 28.869, 0.558)
pt3dadd(90.525, 116.312, 28.885, 0.602)
pt3dadd(90.408, 116.327, 28.901, 0.648)
pt3dadd(90.29, 116.344, 28.916, 0.694)
pt3dadd(90.173, 116.366, 28.928, 0.74)
pt3dadd(90.056, 116.389, 28.94, 0.784)
pt3dadd(89.939, 116.412, 28.952, 0.83)
pt3dadd(89.822, 116.434, 28.965, 0.876)
pt3dadd(89.706, 116.457, 28.977, 0.92)
pt3dadd(89.589, 116.479, 28.989, 0.966)
pt3dadd(89.472, 116.502, 29.002, 1.012)
pt3dadd(89.355, 116.525, 29.014, 1.058)
pt3dadd(89.238, 116.547, 29.026, 1.102)
pt3dadd(89.124, 116.58, 29.036, 1.13)
pt3dadd(89.014, 116.628, 29.043, 1.13)
pt3dadd(88.904, 116.676, 29.049, 1.13)
pt3dadd(88.794, 116.724, 29.056, 1.13)
pt3dadd(88.685, 116.771, 29.062, 1.13)
pt3dadd(88.575, 116.819, 29.069, 1.13)
pt3dadd(88.465, 116.867, 29.075, 1.13)
pt3dadd(88.356, 116.915, 29.081, 1.13)
pt3dadd(88.246, 116.963, 29.088, 1.13)
pt3dadd(88.136, 117.011, 29.094, 1.13)
pt3dadd(88.026, 117.057, 29.102, 1.128)
pt3dadd(87.914, 117.1, 29.11, 1.12)
pt3dadd(87.802, 117.143, 29.119, 1.114)
pt3dadd(87.691, 117.186, 29.128, 1.108)
pt3dadd(87.579, 117.229, 29.136, 1.1)
pt3dadd(87.468, 117.272, 29.145, 1.094)
pt3dadd(87.356, 117.315, 29.154, 1.086)
pt3dadd(87.245, 117.358, 29.162, 1.08)
pt3dadd(87.133, 117.401, 29.171, 1.074)
pt3dadd(87.022, 117.444, 29.18, 1.066)
pt3dadd(86.909, 117.485, 29.189, 1.058)
pt3dadd(86.796, 117.522, 29.2, 1.044)
pt3dadd(86.683, 117.56, 29.211, 1.03)
pt3dadd(86.57, 117.598, 29.222, 1.016)
pt3dadd(86.457, 117.636, 29.233, 1.002)
pt3dadd(86.344, 117.674, 29.244, 0.988)
pt3dadd(86.231, 117.712, 29.255, 0.976)
pt3dadd(86.118, 117.749, 29.266, 0.962)
pt3dadd(86.004, 117.787, 29.277, 0.948)
pt3dadd(85.891, 117.825, 29.288, 0.934)
pt3dadd(85.78, 117.86, 29.308, 0.912)
pt3dadd(85.67, 117.89, 29.34, 0.876)
pt3dadd(85.56, 117.92, 29.372, 0.842)
pt3dadd(85.451, 117.95, 29.404, 0.806)
pt3dadd(85.341, 117.98, 29.436, 0.772)
pt3dadd(85.232, 118.01, 29.469, 0.736)
pt3dadd(85.122, 118.041, 29.501, 0.702)
pt3dadd(85.013, 118.071, 29.533, 0.666)
pt3dadd(84.903, 118.101, 29.565, 0.632)
pt3dadd(84.793, 118.131, 29.597, 0.596)
pt3dadd(84.685, 118.161, 29.63, 0.562)
pt3dadd(84.576, 118.192, 29.665, 0.528)
pt3dadd(84.468, 118.223, 29.7, 0.494)
pt3dadd(84.36, 118.254, 29.735, 0.46)
pt3dadd(84.252, 118.285, 29.77, 0.426)
pt3dadd(84.144, 118.315, 29.804, 0.392)
pt3dadd(84.035, 118.346, 29.839, 0.358)
pt3dadd(83.927, 118.377, 29.874, 0.324)
pt3dadd(83.819, 118.408, 29.908, 0.29)
pt3dadd(83.711, 118.439, 29.943, 0.256)
pt3dadd(83.604, 118.48, 29.972, 0.246)
pt3dadd(83.499, 118.531, 29.993, 0.258)
pt3dadd(83.393, 118.582, 30.015, 0.27)
pt3dadd(83.288, 118.633, 30.037, 0.284)
pt3dadd(83.182, 118.685, 30.058, 0.296)
pt3dadd(83.077, 118.736, 30.08, 0.308)
pt3dadd(82.972, 118.787, 30.102, 0.322)
pt3dadd(82.866, 118.838, 30.123, 0.334)
pt3dadd(82.761, 118.889, 30.145, 0.346)
pt3dadd(82.656, 118.941, 30.167, 0.36)
pt3dadd(82.549, 118.991, 30.187, 0.376)
pt3dadd(82.442, 119.04, 30.205, 0.398)
pt3dadd(82.334, 119.088, 30.223, 0.42)
}
}
proc shape3d_108() {
dend_7[5] { pt3dadd(82.227, 119.137, 30.241, 0.44)
pt3dadd(82.119, 119.186, 30.259, 0.462)
pt3dadd(82.012, 119.235, 30.277, 0.484)
pt3dadd(81.905, 119.284, 30.295, 0.506)
pt3dadd(81.797, 119.332, 30.313, 0.526)
pt3dadd(81.69, 119.381, 30.331, 0.548)
pt3dadd(81.582, 119.43, 30.349, 0.57)
pt3dadd(81.473, 119.476, 30.363, 0.6)
pt3dadd(81.362, 119.52, 30.374, 0.64)
pt3dadd(81.251, 119.564, 30.384, 0.68)
pt3dadd(81.14, 119.607, 30.394, 0.72)
pt3dadd(81.029, 119.651, 30.405, 0.762)
pt3dadd(80.918, 119.695, 30.415, 0.802)
pt3dadd(80.806, 119.738, 30.425, 0.842)
pt3dadd(80.695, 119.782, 30.436, 0.882)
pt3dadd(80.584, 119.826, 30.446, 0.922)
pt3dadd(80.473, 119.87, 30.456, 0.962)
pt3dadd(80.364, 119.919, 30.463, 0.972)
pt3dadd(80.258, 119.973, 30.467, 0.956)
pt3dadd(80.151, 120.028, 30.471, 0.94)
pt3dadd(80.044, 120.083, 30.474, 0.924)
pt3dadd(79.937, 120.137, 30.478, 0.906)
pt3dadd(79.83, 120.192, 30.482, 0.89)
pt3dadd(79.724, 120.246, 30.486, 0.874)
pt3dadd(79.617, 120.3, 30.49, 0.856)
pt3dadd(79.51, 120.355, 30.494, 0.84)
pt3dadd(79.403, 120.409, 30.497, 0.824)
pt3dadd(79.298, 120.468, 30.499, 0.788)
pt3dadd(79.195, 120.528, 30.499, 0.738)
pt3dadd(79.091, 120.589, 30.499, 0.688)
pt3dadd(78.987, 120.649, 30.499, 0.638)
pt3dadd(78.884, 120.71, 30.499, 0.588)
pt3dadd(78.78, 120.77, 30.499, 0.54)
pt3dadd(78.677, 120.832, 30.499, 0.49)
pt3dadd(78.573, 120.892, 30.499, 0.44)
pt3dadd(78.47, 120.953, 30.499, 0.39)
pt3dadd(78.366, 121.013, 30.499, 0.34)
pt3dadd(78.258, 121.066, 30.499, 0.324)
pt3dadd(78.147, 121.11, 30.499, 0.338)
pt3dadd(78.036, 121.156, 30.499, 0.35)
pt3dadd(77.925, 121.201, 30.499, 0.364)
pt3dadd(77.814, 121.246, 30.499, 0.376)
pt3dadd(77.703, 121.291, 30.499, 0.39)
pt3dadd(77.591, 121.337, 30.499, 0.402)
pt3dadd(77.48, 121.381, 30.499, 0.416)
pt3dadd(77.369, 121.427, 30.499, 0.428)
pt3dadd(77.258, 121.472, 30.499, 0.442)
pt3dadd(77.146, 121.517, 30.499, 0.462)
pt3dadd(77.035, 121.56, 30.499, 0.488)
pt3dadd(76.923, 121.604, 30.499, 0.512)
pt3dadd(76.811, 121.648, 30.499, 0.536)
pt3dadd(76.7, 121.692, 30.499, 0.562)
pt3dadd(76.588, 121.735, 30.499, 0.586)
pt3dadd(76.476, 121.78, 30.499, 0.612)
pt3dadd(76.364, 121.823, 30.499, 0.636)
pt3dadd(76.253, 121.866, 30.499, 0.662)
pt3dadd(76.141, 121.91, 30.499, 0.686)
pt3dadd(76.032, 121.961, 30.499, 0.704)
pt3dadd(75.926, 122.017, 30.499, 0.718)
pt3dadd(75.82, 122.072, 30.499, 0.73)
pt3dadd(75.714, 122.129, 30.499, 0.744)
pt3dadd(75.607, 122.184, 30.499, 0.756)
pt3dadd(75.501, 122.24, 30.499, 0.768)
pt3dadd(75.395, 122.296, 30.499, 0.782)
pt3dadd(75.289, 122.352, 30.499, 0.794)
pt3dadd(75.182, 122.407, 30.498, 0.808)
pt3dadd(75.076, 122.464, 30.498, 0.82)
pt3dadd(74.967, 122.514, 30.498, 0.836)
pt3dadd(74.857, 122.561, 30.498, 0.854)
pt3dadd(74.747, 122.608, 30.498, 0.874)
pt3dadd(74.636, 122.654, 30.498, 0.892)
pt3dadd(74.526, 122.701, 30.498, 0.91)
pt3dadd(74.415, 122.748, 30.498, 0.93)
pt3dadd(74.305, 122.795, 30.498, 0.948)
pt3dadd(74.194, 122.843, 30.498, 0.966)
pt3dadd(74.084, 122.89, 30.498, 0.986)
pt3dadd(73.973, 122.936, 30.498, 1.004)
pt3dadd(73.86, 122.974, 30.498, 1.028)
pt3dadd(73.744, 123.005, 30.498, 1.056)
pt3dadd(73.628, 123.037, 30.498, 1.084)
pt3dadd(73.512, 123.068, 30.498, 1.112)
pt3dadd(73.397, 123.101, 30.498, 1.14)
pt3dadd(73.281, 123.132, 30.498, 1.168)
pt3dadd(73.165, 123.164, 30.498, 1.196)
pt3dadd(73.05, 123.196, 30.498, 1.224)
pt3dadd(72.934, 123.228, 30.498, 1.252)
pt3dadd(72.818, 123.259, 30.498, 1.278)
pt3dadd(72.701, 123.287, 30.497, 1.272)
pt3dadd(72.584, 123.311, 30.497, 1.246)
pt3dadd(72.466, 123.335, 30.497, 1.222)
pt3dadd(72.349, 123.359, 30.497, 1.196)
pt3dadd(72.231, 123.383, 30.497, 1.17)
pt3dadd(72.114, 123.407, 30.497, 1.144)
pt3dadd(71.996, 123.431, 30.497, 1.118)
pt3dadd(71.878, 123.455, 30.497, 1.092)
pt3dadd(71.761, 123.479, 30.497, 1.066)
pt3dadd(71.643, 123.503, 30.496, 1.04)
pt3dadd(71.525, 123.524, 30.496, 1.014)
pt3dadd(71.407, 123.545, 30.496, 0.986)
pt3dadd(71.289, 123.564, 30.496, 0.958)
pt3dadd(71.17, 123.584, 30.496, 0.93)
pt3dadd(71.052, 123.605, 30.496, 0.902)
pt3dadd(70.934, 123.625, 30.495, 0.874)
pt3dadd(70.815, 123.646, 30.495, 0.846)
pt3dadd(70.697, 123.665, 30.495, 0.818)
pt3dadd(70.579, 123.685, 30.495, 0.79)
pt3dadd(70.461, 123.706, 30.495, 0.762)
pt3dadd(70.342, 123.721, 30.495, 0.78)
pt3dadd(70.222, 123.736, 30.494, 0.822)
pt3dadd(70.103, 123.749, 30.494, 0.866)
pt3dadd(69.984, 123.763, 30.494, 0.908)
pt3dadd(69.865, 123.776, 30.493, 0.952)
pt3dadd(69.746, 123.791, 30.493, 0.994)
pt3dadd(69.626, 123.804, 30.493, 1.038)
pt3dadd(69.507, 123.818, 30.492, 1.08)
pt3dadd(69.388, 123.832, 30.492, 1.124)
pt3dadd(69.269, 123.846, 30.492, 1.168)
pt3dadd(69.152, 123.871, 30.492, 1.184)
pt3dadd(69.036, 123.905, 30.491, 1.184)
pt3dadd(68.921, 123.937, 30.49, 1.186)
pt3dadd(68.805, 123.97, 30.49, 1.188)
pt3dadd(68.69, 124.002, 30.49, 1.188)
pt3dadd(68.574, 124.034, 30.489, 1.19)
pt3dadd(68.459, 124.067, 30.489, 1.192)
pt3dadd(68.343, 124.099, 30.488, 1.192)
pt3dadd(68.228, 124.132, 30.488, 1.194)
pt3dadd(68.112, 124.164, 30.487, 1.196)
pt3dadd(68, 124.205, 30.487, 1.176)
pt3dadd(67.888, 124.249, 30.486, 1.15)
pt3dadd(67.777, 124.294, 30.486, 1.122)
pt3dadd(67.665, 124.338, 30.485, 1.096)
pt3dadd(67.554, 124.384, 30.484, 1.068)
pt3dadd(67.443, 124.428, 30.484, 1.042)
pt3dadd(67.331, 124.472, 30.483, 1.016)
pt3dadd(67.22, 124.517, 30.483, 0.988)
pt3dadd(67.108, 124.561, 30.482, 0.962)
pt3dadd(66.997, 124.606, 30.481, 0.934)
pt3dadd(66.882, 124.639, 30.48, 0.954)
pt3dadd(66.766, 124.669, 30.479, 0.99)
pt3dadd(66.65, 124.699, 30.478, 1.026)
pt3dadd(66.533, 124.729, 30.476, 1.062)
pt3dadd(66.417, 124.759, 30.475, 1.098)
pt3dadd(66.301, 124.79, 30.474, 1.134)
pt3dadd(66.185, 124.82, 30.472, 1.17)
pt3dadd(66.069, 124.85, 30.471, 1.206)
pt3dadd(65.952, 124.88, 30.47, 1.242)
pt3dadd(65.836, 124.91, 30.468, 1.278)
pt3dadd(65.719, 124.936, 30.467, 1.304)
pt3dadd(65.602, 124.96, 30.465, 1.324)
pt3dadd(65.484, 124.984, 30.463, 1.344)
pt3dadd(65.366, 125.008, 30.461, 1.366)
pt3dadd(65.249, 125.032, 30.459, 1.386)
pt3dadd(65.131, 125.056, 30.458, 1.408)
pt3dadd(65.014, 125.078, 30.456, 1.428)
pt3dadd(64.896, 125.102, 30.454, 1.448)
pt3dadd(64.779, 125.126, 30.452, 1.47)
pt3dadd(64.661, 125.15, 30.45, 1.49)
pt3dadd(64.542, 125.166, 30.448, 1.474)
pt3dadd(64.423, 125.179, 30.445, 1.444)
pt3dadd(64.304, 125.192, 30.442, 1.416)
pt3dadd(64.184, 125.204, 30.439, 1.388)
pt3dadd(64.065, 125.218, 30.436, 1.358)
pt3dadd(63.946, 125.231, 30.433, 1.33)
pt3dadd(63.827, 125.243, 30.431, 1.302)
pt3dadd(63.707, 125.256, 30.428, 1.272)
pt3dadd(63.588, 125.269, 30.425, 1.244)
pt3dadd(63.469, 125.281, 30.422, 1.214)
pt3dadd(63.349, 125.287, 30.417, 1.202)
pt3dadd(63.229, 125.29, 30.411, 1.194)
pt3dadd(63.11, 125.293, 30.405, 1.186)
pt3dadd(62.99, 125.296, 30.399, 1.178)
pt3dadd(62.87, 125.298, 30.393, 1.17)
pt3dadd(62.75, 125.302, 30.388, 1.162)
pt3dadd(62.631, 125.304, 30.382, 1.156)
pt3dadd(62.511, 125.308, 30.376, 1.148)
pt3dadd(62.391, 125.31, 30.37, 1.14)
pt3dadd(62.271, 125.312, 30.364, 1.132)
pt3dadd(62.152, 125.312, 30.357, 1.128)
pt3dadd(62.032, 125.312, 30.349, 1.126)
pt3dadd(61.912, 125.311, 30.341, 1.124)
pt3dadd(61.793, 125.31, 30.334, 1.122)
pt3dadd(61.673, 125.309, 30.326, 1.12)
pt3dadd(61.554, 125.308, 30.318, 1.116)
pt3dadd(61.434, 125.308, 30.31, 1.114)
pt3dadd(61.314, 125.306, 30.303, 1.112)
pt3dadd(61.195, 125.305, 30.295, 1.11)
pt3dadd(61.075, 125.304, 30.287, 1.108)
pt3dadd(60.956, 125.303, 30.276, 1.096)
pt3dadd(60.837, 125.3, 30.265, 1.082)
pt3dadd(60.717, 125.299, 30.253, 1.068)
pt3dadd(60.598, 125.297, 30.242, 1.052)
pt3dadd(60.479, 125.296, 30.23, 1.038)
pt3dadd(60.36, 125.293, 30.219, 1.024)
pt3dadd(60.241, 125.292, 30.207, 1.01)
pt3dadd(60.121, 125.29, 30.195, 0.996)
pt3dadd(60.002, 125.288, 30.184, 0.982)
pt3dadd(59.883, 125.286, 30.172, 0.966)
pt3dadd(59.767, 125.284, 30.149, 0.94)
pt3dadd(59.651, 125.281, 30.122, 0.912)
pt3dadd(59.535, 125.278, 30.095, 0.882)
}
}
proc shape3d_109() {
dend_7[5] { pt3dadd(59.42, 125.275, 30.069, 0.852)
pt3dadd(59.304, 125.272, 30.042, 0.822)
pt3dadd(59.189, 125.269, 30.015, 0.792)
pt3dadd(59.073, 125.267, 29.988, 0.762)
pt3dadd(58.958, 125.263, 29.962, 0.732)
pt3dadd(58.842, 125.261, 29.935, 0.702)
pt3dadd(58.726, 125.257, 29.908, 0.674)
pt3dadd(58.614, 125.255, 29.872, 0.634)
pt3dadd(58.503, 125.251, 29.835, 0.594)
pt3dadd(58.392, 125.248, 29.798, 0.554)
pt3dadd(58.28, 125.244, 29.761, 0.514)
pt3dadd(58.169, 125.24, 29.724, 0.474)
pt3dadd(58.058, 125.237, 29.687, 0.434)
pt3dadd(57.946, 125.233, 29.649, 0.392)
pt3dadd(57.835, 125.23, 29.612, 0.352)
pt3dadd(57.724, 125.226, 29.575, 0.312)
pt3dadd(57.612, 125.222, 29.538, 0.272)
pt3dadd(57.497, 125.215, 29.511, 0.284)
pt3dadd(57.381, 125.207, 29.486, 0.306)
pt3dadd(57.265, 125.198, 29.461, 0.326)
pt3dadd(57.15, 125.19, 29.435, 0.348)
pt3dadd(57.034, 125.182, 29.41, 0.37)
pt3dadd(56.918, 125.173, 29.385, 0.39)
pt3dadd(56.802, 125.165, 29.36, 0.412)
pt3dadd(56.686, 125.156, 29.334, 0.432)
pt3dadd(56.571, 125.148, 29.309, 0.454)
pt3dadd(56.455, 125.14, 29.284, 0.476)
pt3dadd(56.338, 125.129, 29.263, 0.488)
pt3dadd(56.221, 125.118, 29.243, 0.5)
pt3dadd(56.104, 125.107, 29.222, 0.512)
pt3dadd(55.987, 125.096, 29.202, 0.524)
pt3dadd(55.87, 125.086, 29.182, 0.536)
pt3dadd(55.753, 125.075, 29.161, 0.548)
pt3dadd(55.636, 125.064, 29.141, 0.56)
pt3dadd(55.519, 125.053, 29.121, 0.572)
pt3dadd(55.402, 125.042, 29.101, 0.584)
pt3dadd(55.285, 125.032, 29.08, 0.596)
pt3dadd(55.167, 125.017, 29.069, 0.572)
pt3dadd(55.048, 125.002, 29.058, 0.544)
pt3dadd(54.93, 124.986, 29.047, 0.514)
pt3dadd(54.812, 124.97, 29.036, 0.486)
pt3dadd(54.693, 124.955, 29.025, 0.458)
pt3dadd(54.575, 124.94, 29.014, 0.43)
pt3dadd(54.457, 124.925, 29.003, 0.4)
pt3dadd(54.339, 124.909, 28.992, 0.372)
pt3dadd(54.22, 124.894, 28.981, 0.344)
pt3dadd(54.102, 124.878, 28.97, 0.316)
pt3dadd(53.988, 124.843, 28.966, 0.33)
pt3dadd(53.874, 124.805, 28.963, 0.348)
pt3dadd(53.76, 124.766, 28.96, 0.368)
pt3dadd(53.647, 124.729, 28.956, 0.388)
pt3dadd(53.533, 124.691, 28.953, 0.406)
pt3dadd(53.419, 124.652, 28.95, 0.426)
pt3dadd(53.305, 124.615, 28.946, 0.446)
pt3dadd(53.192, 124.577, 28.943, 0.464)
pt3dadd(53.078, 124.538, 28.94, 0.484)
pt3dadd(52.964, 124.501, 28.936, 0.504)
pt3dadd(52.854, 124.453, 28.936, 0.544)
pt3dadd(52.743, 124.406, 28.936, 0.582)
pt3dadd(52.633, 124.36, 28.937, 0.622)
pt3dadd(52.523, 124.312, 28.937, 0.662)
pt3dadd(52.412, 124.265, 28.937, 0.702)
pt3dadd(52.302, 124.218, 28.937, 0.742)
pt3dadd(52.192, 124.171, 28.937, 0.782)
pt3dadd(52.081, 124.123, 28.937, 0.822)
pt3dadd(51.971, 124.076, 28.937, 0.862)
pt3dadd(51.861, 124.03, 28.937, 0.902)
pt3dadd(51.746, 123.992, 28.937, 0.902)
pt3dadd(51.632, 123.956, 28.937, 0.902)
pt3dadd(51.518, 123.92, 28.937, 0.902)
pt3dadd(51.403, 123.884, 28.938, 0.904)
pt3dadd(51.289, 123.848, 28.938, 0.904)
pt3dadd(51.174, 123.811, 28.938, 0.904)
pt3dadd(51.06, 123.775, 28.938, 0.904)
pt3dadd(50.946, 123.739, 28.938, 0.904)
pt3dadd(50.831, 123.703, 28.938, 0.904)
pt3dadd(50.717, 123.667, 28.938, 0.904)
pt3dadd(50.601, 123.634, 28.939, 0.904)
pt3dadd(50.486, 123.601, 28.939, 0.904)
pt3dadd(50.37, 123.569, 28.939, 0.904)
pt3dadd(50.255, 123.536, 28.939, 0.904)
pt3dadd(50.139, 123.503, 28.939, 0.904)
pt3dadd(50.024, 123.47, 28.939, 0.904)
pt3dadd(49.908, 123.438, 28.94, 0.904)
pt3dadd(49.793, 123.406, 28.94, 0.904)
pt3dadd(49.678, 123.372, 28.94, 0.904)
pt3dadd(49.562, 123.34, 28.94, 0.904)
pt3dadd(49.445, 123.313, 28.941, 0.904)
pt3dadd(49.328, 123.287, 28.941, 0.904)
pt3dadd(49.211, 123.26, 28.941, 0.904)
pt3dadd(49.094, 123.234, 28.941, 0.904)
pt3dadd(48.977, 123.208, 28.942, 0.904)
pt3dadd(48.86, 123.181, 28.942, 0.904)
pt3dadd(48.743, 123.155, 28.942, 0.904)
pt3dadd(48.626, 123.128, 28.943, 0.904)
pt3dadd(48.509, 123.102, 28.943, 0.904)
pt3dadd(48.392, 123.076, 28.943, 0.904)
pt3dadd(48.278, 123.036, 28.944, 0.904)
pt3dadd(48.165, 122.996, 28.944, 0.904)
pt3dadd(48.052, 122.956, 28.945, 0.904)
pt3dadd(47.939, 122.916, 28.945, 0.904)
pt3dadd(47.826, 122.876, 28.946, 0.904)
pt3dadd(47.712, 122.837, 28.946, 0.904)
pt3dadd(47.599, 122.796, 28.947, 0.904)
pt3dadd(47.486, 122.756, 28.947, 0.904)
pt3dadd(47.373, 122.717, 28.948, 0.904)
pt3dadd(47.26, 122.677, 28.948, 0.904)
pt3dadd(47.148, 122.634, 28.949, 0.9)
pt3dadd(47.036, 122.591, 28.95, 0.898)
pt3dadd(46.924, 122.548, 28.95, 0.894)
pt3dadd(46.812, 122.506, 28.951, 0.892)
pt3dadd(46.699, 122.462, 28.952, 0.888)
pt3dadd(46.587, 122.419, 28.952, 0.886)
pt3dadd(46.475, 122.377, 28.953, 0.882)
pt3dadd(46.363, 122.334, 28.954, 0.878)
pt3dadd(46.251, 122.291, 28.954, 0.876)
pt3dadd(46.139, 122.249, 28.955, 0.872)
pt3dadd(46.022, 122.221, 28.956, 0.83)
pt3dadd(45.905, 122.194, 28.958, 0.786)
pt3dadd(45.789, 122.166, 28.959, 0.744)
pt3dadd(45.672, 122.138, 28.961, 0.702)
pt3dadd(45.555, 122.111, 28.962, 0.66)
pt3dadd(45.438, 122.083, 28.963, 0.618)
pt3dadd(45.322, 122.056, 28.965, 0.576)
pt3dadd(45.205, 122.028, 28.966, 0.534)
pt3dadd(45.088, 122, 28.968, 0.49)
pt3dadd(44.971, 121.973, 28.969, 0.45)
pt3dadd(44.853, 121.952, 28.971, 0.434)
pt3dadd(44.735, 121.933, 28.973, 0.418)
pt3dadd(44.616, 121.914, 28.975, 0.402)
pt3dadd(44.498, 121.895, 28.977, 0.386)
pt3dadd(44.379, 121.874, 28.98, 0.372)
pt3dadd(44.261, 121.855, 28.982, 0.356)
pt3dadd(44.143, 121.836, 28.984, 0.34)
pt3dadd(44.024, 121.817, 28.986, 0.324)
pt3dadd(43.906, 121.798, 28.988, 0.31)
pt3dadd(43.787, 121.778, 28.99, 0.296)
pt3dadd(43.668, 121.768, 28.993, 0.31)
pt3dadd(43.548, 121.758, 28.996, 0.324)
pt3dadd(43.429, 121.747, 28.999, 0.338)
pt3dadd(43.309, 121.738, 29.002, 0.354)
pt3dadd(43.19, 121.727, 29.005, 0.368)
pt3dadd(43.07, 121.717, 29.008, 0.382)
pt3dadd(42.951, 121.706, 29.011, 0.396)
pt3dadd(42.831, 121.697, 29.014, 0.412)
pt3dadd(42.712, 121.686, 29.016, 0.426)
pt3dadd(42.592, 121.676, 29.02, 0.438)
pt3dadd(42.473, 121.681, 29.026, 0.426)
pt3dadd(42.353, 121.686, 29.033, 0.414)
pt3dadd(42.233, 121.691, 29.04, 0.402)
pt3dadd(42.114, 121.697, 29.047, 0.39)
pt3dadd(41.994, 121.702, 29.054, 0.378)
pt3dadd(41.875, 121.706, 29.061, 0.366)
pt3dadd(41.755, 121.711, 29.067, 0.354)
pt3dadd(41.635, 121.716, 29.074, 0.342)
pt3dadd(41.516, 121.721, 29.081, 0.33)
pt3dadd(41.396, 121.726, 29.088, 0.318)
pt3dadd(41.277, 121.735, 29.097, 0.308)
pt3dadd(41.158, 121.745, 29.106, 0.3)
pt3dadd(41.039, 121.754, 29.115, 0.29)
pt3dadd(40.92, 121.764, 29.124, 0.282)
pt3dadd(40.8, 121.774, 29.133, 0.272)
pt3dadd(40.681, 121.784, 29.142, 0.262)
pt3dadd(40.562, 121.794, 29.151, 0.254)
pt3dadd(40.443, 121.804, 29.16, 0.244)
pt3dadd(40.324, 121.813, 29.169, 0.234)
pt3dadd(40.205, 121.823, 29.178, 0.226)
pt3dadd(40.087, 121.837, 29.19, 0.226)
pt3dadd(39.969, 121.853, 29.202, 0.226)
pt3dadd(39.85, 121.867, 29.214, 0.226)
pt3dadd(39.732, 121.882, 29.226, 0.226)
pt3dadd(39.614, 121.897, 29.238, 0.226)
pt3dadd(39.496, 121.912, 29.25, 0.226)
pt3dadd(39.378, 121.927, 29.263, 0.226)
pt3dadd(39.259, 121.942, 29.275, 0.226)
pt3dadd(39.141, 121.956, 29.287, 0.226)
pt3dadd(39.024, 121.972, 29.3, 0.226)
pt3dadd(38.914, 121.998, 29.335, 0.226)
pt3dadd(38.804, 122.023, 29.369, 0.226)
pt3dadd(38.695, 122.048, 29.404, 0.226)
pt3dadd(38.585, 122.074, 29.439, 0.226)
pt3dadd(38.475, 122.1, 29.473, 0.226)
pt3dadd(38.366, 122.125, 29.508, 0.226)
pt3dadd(38.256, 122.15, 29.542, 0.226)
pt3dadd(38.146, 122.176, 29.577, 0.226)
pt3dadd(38.037, 122.202, 29.612, 0.226)
pt3dadd(37.928, 122.228, 29.647, 0.228)
pt3dadd(37.822, 122.264, 29.683, 0.236)
pt3dadd(37.716, 122.302, 29.719, 0.244)
pt3dadd(37.61, 122.338, 29.755, 0.252)
pt3dadd(37.504, 122.374, 29.791, 0.26)
pt3dadd(37.398, 122.41, 29.828, 0.268)
pt3dadd(37.293, 122.447, 29.864, 0.276)
pt3dadd(37.187, 122.483, 29.9, 0.284)
pt3dadd(37.081, 122.519, 29.936, 0.292)
pt3dadd(36.975, 122.555, 29.972, 0.3)
pt3dadd(36.872, 122.599, 30.005, 0.316)
pt3dadd(36.778, 122.668, 30.028, 0.356)
pt3dadd(36.683, 122.736, 30.052, 0.396)
pt3dadd(36.588, 122.804, 30.075, 0.434)
}
}
proc shape3d_110() {
dend_7[5] { pt3dadd(36.494, 122.873, 30.098, 0.474)
pt3dadd(36.399, 122.941, 30.121, 0.512)
pt3dadd(36.305, 123.01, 30.144, 0.552)
pt3dadd(36.21, 123.078, 30.167, 0.592)
pt3dadd(36.115, 123.146, 30.191, 0.63)
pt3dadd(36.021, 123.215, 30.214, 0.67)
pt3dadd(35.929, 123.287, 30.236, 0.702)
pt3dadd(35.847, 123.372, 30.254, 0.716)
pt3dadd(35.764, 123.456, 30.273, 0.73)
pt3dadd(35.682, 123.541, 30.291, 0.744)
pt3dadd(35.6, 123.625, 30.309, 0.76)
pt3dadd(35.517, 123.709, 30.328, 0.774)
pt3dadd(35.435, 123.794, 30.346, 0.788)
pt3dadd(35.353, 123.878, 30.365, 0.802)
pt3dadd(35.27, 123.962, 30.383, 0.816)
pt3dadd(35.188, 124.048, 30.402, 0.83)
pt3dadd(35.113, 124.138, 30.417, 0.832)
pt3dadd(35.047, 124.237, 30.43, 0.818)
pt3dadd(34.981, 124.336, 30.443, 0.806)
pt3dadd(34.915, 124.435, 30.455, 0.792)
pt3dadd(34.849, 124.535, 30.468, 0.778)
pt3dadd(34.783, 124.633, 30.48, 0.764)
pt3dadd(34.717, 124.733, 30.493, 0.75)
pt3dadd(34.651, 124.831, 30.506, 0.736)
pt3dadd(34.585, 124.931, 30.518, 0.722)
pt3dadd(34.519, 125.029, 30.531, 0.708)
pt3dadd(34.451, 125.128, 30.54, 0.7)
pt3dadd(34.38, 125.225, 30.545, 0.698)
pt3dadd(34.31, 125.322, 30.55, 0.694)
pt3dadd(34.239, 125.419, 30.555, 0.692)
pt3dadd(34.169, 125.515, 30.56, 0.69)
pt3dadd(34.098, 125.612, 30.565, 0.688)
pt3dadd(34.028, 125.71, 30.57, 0.686)
pt3dadd(33.957, 125.807, 30.574, 0.684)
pt3dadd(33.887, 125.903, 30.579, 0.682)
pt3dadd(33.816, 126, 30.584, 0.68)
pt3dadd(33.746, 126.097, 30.589, 0.678)
pt3dadd(33.674, 126.193, 30.592, 0.678)
pt3dadd(33.603, 126.289, 30.595, 0.678)
pt3dadd(33.532, 126.386, 30.599, 0.678)
pt3dadd(33.46, 126.482, 30.602, 0.678)
pt3dadd(33.389, 126.58, 30.606, 0.678)
pt3dadd(33.318, 126.676, 30.609, 0.678)
pt3dadd(33.246, 126.772, 30.612, 0.678)
pt3dadd(33.175, 126.869, 30.616, 0.678)
pt3dadd(33.104, 126.965, 30.619, 0.678)
pt3dadd(33.029, 127.058, 30.625, 0.672)
pt3dadd(32.95, 127.148, 30.634, 0.66)
pt3dadd(32.872, 127.238, 30.643, 0.648)
pt3dadd(32.793, 127.328, 30.652, 0.636)
pt3dadd(32.715, 127.418, 30.661, 0.624)
pt3dadd(32.636, 127.508, 30.67, 0.612)
pt3dadd(32.557, 127.598, 30.679, 0.6)
pt3dadd(32.479, 127.688, 30.688, 0.588)
pt3dadd(32.4, 127.778, 30.697, 0.576)
pt3dadd(32.322, 127.868, 30.706, 0.564)
pt3dadd(32.243, 127.958, 30.715, 0.554)
pt3dadd(32.163, 128.047, 30.725, 0.548)
pt3dadd(32.084, 128.136, 30.735, 0.54)
pt3dadd(32.004, 128.226, 30.745, 0.534)
pt3dadd(31.925, 128.315, 30.754, 0.528)
pt3dadd(31.845, 128.404, 30.764, 0.52)
pt3dadd(31.766, 128.494, 30.774, 0.514)
pt3dadd(31.686, 128.582, 30.783, 0.506)
pt3dadd(31.607, 128.671, 30.793, 0.5)
pt3dadd(31.527, 128.761, 30.803, 0.494)
pt3dadd(31.446, 128.848, 30.814, 0.502)
pt3dadd(31.362, 128.932, 30.828, 0.528)
pt3dadd(31.278, 129.016, 30.841, 0.554)
pt3dadd(31.194, 129.1, 30.855, 0.58)
pt3dadd(31.11, 129.184, 30.868, 0.606)
pt3dadd(31.026, 129.268, 30.882, 0.634)
pt3dadd(30.942, 129.352, 30.895, 0.66)
pt3dadd(30.858, 129.436, 30.909, 0.686)
pt3dadd(30.773, 129.52, 30.923, 0.712)
pt3dadd(30.689, 129.605, 30.936, 0.74)
pt3dadd(30.608, 129.685, 30.962, 0.752)
pt3dadd(30.531, 129.762, 31.003, 0.746)
pt3dadd(30.454, 129.84, 31.045, 0.74)
pt3dadd(30.377, 129.917, 31.086, 0.734)
pt3dadd(30.3, 129.994, 31.128, 0.728)
pt3dadd(30.222, 130.072, 31.17, 0.722)
pt3dadd(30.145, 130.148, 31.211, 0.716)
pt3dadd(30.068, 130.225, 31.252, 0.71)
pt3dadd(29.991, 130.303, 31.294, 0.706)
pt3dadd(29.914, 130.38, 31.336, 0.7)
pt3dadd(29.855, 130.438, 31.408, 0.652)
pt3dadd(29.797, 130.496, 31.481, 0.604)
pt3dadd(29.739, 130.554, 31.554, 0.558)
pt3dadd(29.681, 130.613, 31.627, 0.51)
pt3dadd(29.623, 130.67, 31.699, 0.462)
pt3dadd(29.564, 130.729, 31.772, 0.416)
pt3dadd(29.506, 130.788, 31.845, 0.368)
pt3dadd(29.448, 130.846, 31.918, 0.32)
pt3dadd(29.39, 130.903, 31.99, 0.274)
pt3dadd(29.332, 130.962, 32.063, 0.226)
}
dend_7[6] {pt3dclear()
pt3dadd(130.06, 107.207, 22.088, 0.29)
pt3dadd(130.098, 107.173, 22.089, 0.366)
pt3dadd(130.189, 107.095, 22.091, 0.542)
pt3dadd(130.279, 107.016, 22.093, 0.718)
pt3dadd(130.37, 106.937, 22.096, 0.894)
pt3dadd(130.462, 106.859, 22.098, 1.07)
pt3dadd(130.507, 106.793, 22.042, 1.13)
pt3dadd(130.531, 106.734, 21.958, 1.13)
pt3dadd(130.516, 106.672, 21.9, 1.13)
pt3dadd(130.416, 106.604, 21.9, 1.13)
pt3dadd(130.322, 106.531, 21.9, 1.13)
pt3dadd(130.254, 106.432, 21.9, 1.13)
pt3dadd(130.187, 106.333, 21.9, 1.13)
pt3dadd(130.091, 106.265, 21.917, 1.13)
pt3dadd(129.994, 106.198, 21.935, 1.13)
pt3dadd(129.882, 106.163, 21.957, 1.13)
pt3dadd(129.769, 106.129, 21.98, 1.13)
pt3dadd(129.658, 106.094, 22.002, 1.13)
pt3dadd(129.546, 106.08, 22.031, 1.13)
pt3dadd(129.432, 106.08, 22.064, 1.13)
pt3dadd(129.318, 106.08, 22.092, 1.13)
pt3dadd(129.198, 106.08, 22.1, 1.13)
pt3dadd(129.078, 106.08, 22.1, 1.13)
pt3dadd(128.958, 106.08, 22.1, 1.13)
pt3dadd(128.838, 106.08, 22.1, 1.13)
pt3dadd(128.718, 106.08, 22.1, 1.13)
pt3dadd(128.598, 106.08, 22.1, 1.13)
pt3dadd(128.478, 106.08, 22.1, 1.13)
pt3dadd(128.364, 106.059, 22.1, 1.13)
pt3dadd(128.26, 105.999, 22.1, 1.13)
pt3dadd(128.156, 105.939, 22.1, 1.13)
pt3dadd(128.052, 105.879, 22.1, 1.13)
pt3dadd(127.948, 105.819, 22.1, 1.13)
pt3dadd(127.841, 105.769, 22.1, 1.13)
pt3dadd(127.722, 105.752, 22.1, 1.13)
pt3dadd(127.603, 105.735, 22.1, 1.13)
pt3dadd(127.484, 105.718, 22.1, 1.13)
pt3dadd(127.366, 105.701, 22.1, 1.13)
pt3dadd(127.247, 105.684, 22.1, 1.13)
pt3dadd(127.128, 105.665, 22.1, 1.13)
pt3dadd(127.025, 105.605, 22.1, 1.13)
pt3dadd(126.92, 105.545, 22.1, 1.13)
pt3dadd(126.817, 105.485, 22.1, 1.13)
pt3dadd(126.713, 105.425, 22.1, 1.13)
pt3dadd(126.608, 105.365, 22.1, 1.13)
pt3dadd(126.492, 105.341, 22.105, 1.13)
pt3dadd(126.374, 105.32, 22.111, 1.13)
pt3dadd(126.256, 105.299, 22.117, 1.13)
pt3dadd(126.138, 105.279, 22.123, 1.13)
pt3dadd(126.02, 105.258, 22.128, 1.13)
pt3dadd(125.903, 105.234, 22.135, 1.13)
pt3dadd(125.792, 105.19, 22.149, 1.13)
pt3dadd(125.682, 105.147, 22.162, 1.13)
pt3dadd(125.572, 105.104, 22.176, 1.13)
pt3dadd(125.46, 105.06, 22.189, 1.13)
pt3dadd(125.348, 105.019, 22.2, 1.13)
pt3dadd(125.233, 104.986, 22.2, 1.13)
pt3dadd(125.118, 104.954, 22.2, 1.13)
pt3dadd(125.003, 104.921, 22.2, 1.13)
pt3dadd(124.886, 104.888, 22.2, 1.13)
pt3dadd(124.771, 104.855, 22.2, 1.13)
pt3dadd(124.656, 104.821, 22.2, 1.13)
pt3dadd(124.542, 104.785, 22.2, 1.13)
pt3dadd(124.428, 104.749, 22.2, 1.13)
pt3dadd(124.313, 104.713, 22.2, 1.13)
pt3dadd(124.199, 104.677, 22.2, 1.13)
pt3dadd(124.084, 104.641, 22.2, 1.13)
pt3dadd(123.965, 104.64, 22.195, 1.13)
pt3dadd(123.845, 104.64, 22.19, 1.13)
pt3dadd(123.725, 104.64, 22.185, 1.13)
pt3dadd(123.605, 104.64, 22.18, 1.13)
pt3dadd(123.485, 104.64, 22.175, 1.13)
pt3dadd(123.365, 104.64, 22.17, 1.13)
pt3dadd(123.246, 104.638, 22.163, 1.13)
pt3dadd(123.126, 104.632, 22.153, 1.13)
pt3dadd(123.007, 104.625, 22.141, 1.13)
pt3dadd(122.888, 104.619, 22.13, 1.13)
pt3dadd(122.77, 104.612, 22.119, 1.13)
pt3dadd(122.65, 104.605, 22.108, 1.13)
pt3dadd(122.531, 104.597, 22.1, 1.13)
pt3dadd(122.412, 104.585, 22.1, 1.13)
pt3dadd(122.292, 104.572, 22.1, 1.13)
pt3dadd(122.173, 104.559, 22.1, 1.13)
pt3dadd(122.053, 104.547, 22.1, 1.13)
pt3dadd(121.934, 104.534, 22.1, 1.13)
pt3dadd(121.814, 104.522, 22.1, 1.13)
pt3dadd(121.7, 104.485, 22.1, 1.13)
pt3dadd(121.588, 104.445, 22.1, 1.13)
pt3dadd(121.488, 104.384, 22.1, 1.13)
pt3dadd(121.399, 104.302, 22.1, 1.13)
pt3dadd(121.313, 104.232, 22.077, 1.13)
pt3dadd(121.23, 104.179, 22.021, 1.13)
pt3dadd(121.152, 104.16, 21.95, 1.13)
pt3dadd(121.078, 104.16, 21.872, 1.13)
pt3dadd(120.986, 104.16, 21.811, 1.13)
pt3dadd(120.878, 104.16, 21.766, 1.13)
pt3dadd(120.764, 104.152, 21.735, 1.13)
pt3dadd(120.652, 104.145, 21.703, 1.13)
pt3dadd(120.538, 104.137, 21.672, 1.13)
pt3dadd(120.424, 104.13, 21.64, 1.13)
pt3dadd(120.311, 104.122, 21.609, 1.13)
pt3dadd(120.199, 104.09, 21.585, 1.13)
pt3dadd(120.09, 104.047, 21.564, 1.13)
pt3dadd(119.981, 104.005, 21.542, 1.13)
}
}
proc shape3d_111() {
dend_7[6] { pt3dadd(119.871, 103.963, 21.521, 1.13)
pt3dadd(119.762, 103.921, 21.5, 1.13)
pt3dadd(119.652, 103.873, 21.5, 1.13)
pt3dadd(119.541, 103.826, 21.5, 1.13)
pt3dadd(119.431, 103.778, 21.5, 1.13)
pt3dadd(119.321, 103.731, 21.5, 1.13)
pt3dadd(119.211, 103.683, 21.5, 1.13)
pt3dadd(119.095, 103.655, 21.5, 1.13)
pt3dadd(118.976, 103.638, 21.5, 1.13)
pt3dadd(118.858, 103.621, 21.5, 1.13)
pt3dadd(118.739, 103.604, 21.5, 1.13)
pt3dadd(118.62, 103.586, 21.5, 1.13)
pt3dadd(118.501, 103.569, 21.5, 1.13)
pt3dadd(118.384, 103.547, 21.5, 1.13)
pt3dadd(118.267, 103.519, 21.5, 1.13)
pt3dadd(118.15, 103.492, 21.5, 1.13)
pt3dadd(118.033, 103.465, 21.5, 1.13)
pt3dadd(117.916, 103.437, 21.5, 1.13)
pt3dadd(117.799, 103.41, 21.5, 1.13)
pt3dadd(117.684, 103.379, 21.5, 1.13)
pt3dadd(117.568, 103.346, 21.5, 1.13)
pt3dadd(117.453, 103.312, 21.5, 1.13)
pt3dadd(117.338, 103.279, 21.5, 1.13)
pt3dadd(117.222, 103.246, 21.5, 1.13)
pt3dadd(117.107, 103.213, 21.5, 1.13)
pt3dadd(117.015, 103.135, 21.5, 1.13)
pt3dadd(116.924, 103.058, 21.5, 1.13)
pt3dadd(116.833, 102.98, 21.5, 1.13)
pt3dadd(116.741, 102.902, 21.5, 1.13)
pt3dadd(116.65, 102.825, 21.5, 1.13)
pt3dadd(116.546, 102.765, 21.5, 1.13)
pt3dadd(116.442, 102.705, 21.5, 1.13)
pt3dadd(116.338, 102.645, 21.5, 1.13)
pt3dadd(116.234, 102.585, 21.5, 1.13)
pt3dadd(116.13, 102.525, 21.5, 1.13)
pt3dadd(116.014, 102.495, 21.5, 1.13)
pt3dadd(115.897, 102.467, 21.5, 1.13)
pt3dadd(115.781, 102.44, 21.5, 1.13)
pt3dadd(115.664, 102.412, 21.5, 1.13)
pt3dadd(115.547, 102.385, 21.5, 1.13)
pt3dadd(115.431, 102.356, 21.5, 1.13)
pt3dadd(115.319, 102.312, 21.5, 1.13)
pt3dadd(115.208, 102.267, 21.5, 1.13)
pt3dadd(115.096, 102.222, 21.5, 1.13)
pt3dadd(114.985, 102.178, 21.5, 1.13)
pt3dadd(114.873, 102.133, 21.5, 1.13)
pt3dadd(114.757, 102.104, 21.5, 1.13)
pt3dadd(114.64, 102.082, 21.5, 1.13)
pt3dadd(114.522, 102.06, 21.5, 1.13)
pt3dadd(114.404, 102.038, 21.5, 1.13)
pt3dadd(114.286, 102.016, 21.5, 1.13)
pt3dadd(114.168, 101.993, 21.5, 1.13)
pt3dadd(114.061, 101.942, 21.5, 1.13)
pt3dadd(113.959, 101.879, 21.5, 1.13)
pt3dadd(113.857, 101.816, 21.5, 1.13)
pt3dadd(113.755, 101.753, 21.5, 1.13)
pt3dadd(113.652, 101.69, 21.5, 1.13)
pt3dadd(113.549, 101.629, 21.5, 1.13)
pt3dadd(113.445, 101.57, 21.5, 1.13)
pt3dadd(113.341, 101.51, 21.5, 1.13)
pt3dadd(113.237, 101.451, 21.5, 1.13)
pt3dadd(113.133, 101.391, 21.5, 1.13)
pt3dadd(113.03, 101.33, 21.5, 1.13)
pt3dadd(112.927, 101.267, 21.5, 1.13)
pt3dadd(112.825, 101.204, 21.5, 1.13)
pt3dadd(112.723, 101.141, 21.5, 1.13)
pt3dadd(112.621, 101.078, 21.5, 1.13)
pt3dadd(112.515, 101.023, 21.5, 1.13)
pt3dadd(112.402, 100.982, 21.5, 1.13)
pt3dadd(112.29, 100.94, 21.5, 1.13)
pt3dadd(112.177, 100.898, 21.5, 1.13)
pt3dadd(112.064, 100.857, 21.5, 1.13)
pt3dadd(111.952, 100.815, 21.5, 1.13)
pt3dadd(111.834, 100.792, 21.5, 1.13)
pt3dadd(111.716, 100.77, 21.5, 1.13)
pt3dadd(111.598, 100.748, 21.5, 1.13)
pt3dadd(111.48, 100.725, 21.5, 1.13)
pt3dadd(111.363, 100.703, 21.5, 1.13)
pt3dadd(111.245, 100.681, 21.5, 1.13)
pt3dadd(111.125, 100.68, 21.5, 1.13)
pt3dadd(111.005, 100.68, 21.5, 1.13)
pt3dadd(110.885, 100.68, 21.5, 1.13)
pt3dadd(110.766, 100.68, 21.512, 1.13)
pt3dadd(110.646, 100.68, 21.524, 1.13)
pt3dadd(110.539, 100.68, 21.554, 1.13)
pt3dadd(110.465, 100.68, 21.633, 1.13)
pt3dadd(110.387, 100.68, 21.709, 1.13)
pt3dadd(110.293, 100.68, 21.771, 1.13)
pt3dadd(110.199, 100.68, 21.833, 1.13)
pt3dadd(110.092, 100.68, 21.878, 1.13)
pt3dadd(110.006, 100.68, 21.943, 1.13)
pt3dadd(109.94, 100.68, 22.026, 1.13)
pt3dadd(109.874, 100.68, 22.11, 1.13)
pt3dadd(109.808, 100.68, 22.193, 1.13)
pt3dadd(109.742, 100.68, 22.277, 1.13)
pt3dadd(109.66, 100.68, 22.347, 1.13)
pt3dadd(109.56, 100.68, 22.402, 1.13)
pt3dadd(109.46, 100.68, 22.457, 1.13)
pt3dadd(109.36, 100.68, 22.512, 1.13)
pt3dadd(109.26, 100.68, 22.567, 1.13)
pt3dadd(109.154, 100.68, 22.612, 1.13)
pt3dadd(109.039, 100.68, 22.642, 1.13)
pt3dadd(108.924, 100.68, 22.672, 1.13)
pt3dadd(108.81, 100.68, 22.702, 1.13)
pt3dadd(108.695, 100.68, 22.732, 1.13)
pt3dadd(108.581, 100.68, 22.761, 1.13)
pt3dadd(108.483, 100.68, 22.818, 1.13)
pt3dadd(108.39, 100.68, 22.88, 1.13)
pt3dadd(108.296, 100.68, 22.943, 1.13)
pt3dadd(108.202, 100.68, 23.005, 1.13)
pt3dadd(108.109, 100.68, 23.068, 1.13)
pt3dadd(108.017, 100.68, 23.132, 1.13)
pt3dadd(107.926, 100.68, 23.197, 1.13)
pt3dadd(107.834, 100.68, 23.262, 1.13)
pt3dadd(107.743, 100.68, 23.327, 1.13)
pt3dadd(107.652, 100.68, 23.392, 1.13)
pt3dadd(107.546, 100.68, 23.439, 1.13)
pt3dadd(107.439, 100.68, 23.484, 1.13)
pt3dadd(107.332, 100.68, 23.528, 1.13)
pt3dadd(107.224, 100.68, 23.573, 1.13)
pt3dadd(107.117, 100.68, 23.618, 1.13)
pt3dadd(107.033, 100.68, 23.685, 1.13)
pt3dadd(106.961, 100.68, 23.765, 1.13)
pt3dadd(106.889, 100.68, 23.846, 1.13)
pt3dadd(106.817, 100.68, 23.926, 1.13)
pt3dadd(106.745, 100.68, 24.005, 1.13)
pt3dadd(106.674, 100.68, 24.087, 1.13)
pt3dadd(106.605, 100.68, 24.168, 1.13)
pt3dadd(106.536, 100.68, 24.25, 1.13)
pt3dadd(106.467, 100.68, 24.332, 1.13)
pt3dadd(106.398, 100.68, 24.414, 1.13)
pt3dadd(106.333, 100.699, 24.495, 1.13)
pt3dadd(106.269, 100.729, 24.576, 1.13)
pt3dadd(106.206, 100.76, 24.657, 1.13)
pt3dadd(106.142, 100.79, 24.738, 1.13)
pt3dadd(106.07, 100.819, 24.812, 1.13)
pt3dadd(105.97, 100.842, 24.863, 1.13)
pt3dadd(105.87, 100.866, 24.915, 1.13)
pt3dadd(105.769, 100.889, 24.966, 1.13)
pt3dadd(105.669, 100.913, 25.018, 1.13)
pt3dadd(105.568, 100.92, 25.07, 1.13)
pt3dadd(105.465, 100.92, 25.123, 1.13)
pt3dadd(105.363, 100.92, 25.175, 1.13)
pt3dadd(105.261, 100.92, 25.227, 1.13)
pt3dadd(105.159, 100.92, 25.28, 1.13)
pt3dadd(105.052, 100.92, 25.324, 1.13)
pt3dadd(104.941, 100.92, 25.363, 1.13)
pt3dadd(104.83, 100.92, 25.4, 1.13)
pt3dadd(104.716, 100.92, 25.433, 1.13)
pt3dadd(104.603, 100.92, 25.466, 1.13)
pt3dadd(104.499, 100.92, 25.516, 1.13)
pt3dadd(104.396, 100.92, 25.567, 1.13)
pt3dadd(104.338, 100.935, 25.649, 1.13)
pt3dadd(104.293, 100.954, 25.741, 1.13)
pt3dadd(104.28, 100.998, 25.83, 1.13)
pt3dadd(104.27, 101.052, 25.918, 1.13)
pt3dadd(104.223, 101.105, 25.999, 1.13)
pt3dadd(104.176, 101.158, 26.079, 1.13)
pt3dadd(104.129, 101.211, 26.16, 1.13)
pt3dadd(104.082, 101.264, 26.241, 1.13)
pt3dadd(104.047, 101.302, 26.331, 1.13)
pt3dadd(104.013, 101.339, 26.422, 1.13)
pt3dadd(103.978, 101.376, 26.512, 1.13)
pt3dadd(103.944, 101.414, 26.603, 1.13)
pt3dadd(103.918, 101.463, 26.689, 1.13)
pt3dadd(103.912, 101.541, 26.765, 1.13)
pt3dadd(103.894, 101.617, 26.839, 1.13)
pt3dadd(103.841, 101.685, 26.908, 1.13)
pt3dadd(103.791, 101.73, 26.988, 1.13)
pt3dadd(103.746, 101.749, 27.08, 1.13)
pt3dadd(103.706, 101.76, 27.173, 1.13)
pt3dadd(103.674, 101.76, 27.269, 1.13)
pt3dadd(103.641, 101.76, 27.365, 1.13)
pt3dadd(103.587, 101.76, 27.455, 1.13)
pt3dadd(103.545, 101.768, 27.547, 1.13)
pt3dadd(103.514, 101.783, 27.643, 1.13)
pt3dadd(103.484, 101.798, 27.739, 1.13)
pt3dadd(103.453, 101.814, 27.835, 1.13)
pt3dadd(103.423, 101.829, 27.931, 1.13)
pt3dadd(103.389, 101.844, 28.026, 1.13)
pt3dadd(103.35, 101.857, 28.12, 1.13)
pt3dadd(103.32, 101.856, 28.213, 1.13)
pt3dadd(103.32, 101.817, 28.308, 1.13)
pt3dadd(103.32, 101.777, 28.402, 1.13)
pt3dadd(103.32, 101.755, 28.5, 1.13)
pt3dadd(103.32, 101.734, 28.599, 1.13)
pt3dadd(103.326, 101.692, 28.686, 1.13)
pt3dadd(103.347, 101.602, 28.75, 1.13)
pt3dadd(103.379, 101.504, 28.79, 1.13)
pt3dadd(103.43, 101.396, 28.793, 1.13)
pt3dadd(103.481, 101.287, 28.796, 1.13)
pt3dadd(103.532, 101.179, 28.799, 1.13)
pt3dadd(103.551, 101.066, 28.82, 1.13)
pt3dadd(103.557, 100.951, 28.849, 1.13)
pt3dadd(103.567, 100.837, 28.879, 1.13)
pt3dadd(103.605, 100.728, 28.904, 1.13)
pt3dadd(103.652, 100.621, 28.926, 1.13)
pt3dadd(103.671, 100.51, 28.957, 1.13)
pt3dadd(103.677, 100.398, 28.991, 1.13)
pt3dadd(103.68, 100.296, 29.04, 1.13)
}
}
proc shape3d_112() {
dend_7[6] { pt3dadd(103.68, 100.208, 29.108, 1.13)
pt3dadd(103.702, 100.119, 29.163, 1.13)
pt3dadd(103.773, 100.026, 29.186, 1.13)
pt3dadd(103.865, 99.97, 29.2, 1.13)
pt3dadd(103.984, 99.963, 29.2, 1.13)
pt3dadd(104.097, 99.934, 29.212, 1.13)
pt3dadd(104.203, 99.885, 29.233, 1.13)
pt3dadd(104.31, 99.836, 29.255, 1.13)
pt3dadd(104.416, 99.787, 29.276, 1.13)
pt3dadd(104.523, 99.738, 29.298, 1.13)
pt3dadd(104.607, 99.66, 29.326, 1.13)
pt3dadd(104.688, 99.579, 29.355, 1.13)
pt3dadd(104.769, 99.497, 29.383, 1.13)
pt3dadd(104.85, 99.416, 29.412, 1.13)
pt3dadd(104.903, 99.321, 29.449, 1.13)
pt3dadd(104.939, 99.219, 29.492, 1.13)
pt3dadd(104.975, 99.116, 29.535, 1.13)
pt3dadd(105.011, 99.014, 29.577, 1.13)
pt3dadd(105.055, 98.915, 29.618, 1.13)
pt3dadd(105.131, 98.83, 29.649, 1.13)
pt3dadd(105.207, 98.745, 29.681, 1.13)
pt3dadd(105.282, 98.66, 29.712, 1.13)
pt3dadd(105.358, 98.575, 29.744, 1.13)
pt3dadd(105.424, 98.538, 29.821, 1.13)
pt3dadd(105.494, 98.499, 29.892, 1.13)
pt3dadd(105.597, 98.445, 29.915, 1.13)
pt3dadd(105.69, 98.381, 29.94, 1.13)
pt3dadd(105.739, 98.28, 29.976, 1.13)
pt3dadd(105.8, 98.184, 30, 1.13)
pt3dadd(105.882, 98.097, 30, 1.13)
pt3dadd(105.948, 98.003, 30.004, 1.13)
pt3dadd(105.957, 97.886, 30.025, 1.13)
pt3dadd(105.98, 97.776, 30.057, 1.13)
pt3dadd(106.012, 97.67, 30.096, 1.13)
pt3dadd(106.044, 97.564, 30.135, 1.13)
pt3dadd(106.076, 97.459, 30.174, 1.13)
pt3dadd(106.107, 97.352, 30.212, 1.13)
pt3dadd(106.125, 97.235, 30.228, 1.13)
pt3dadd(106.142, 97.118, 30.245, 1.13)
pt3dadd(106.159, 97.001, 30.261, 1.13)
pt3dadd(106.176, 96.884, 30.277, 1.13)
pt3dadd(106.193, 96.767, 30.293, 1.13)
pt3dadd(106.188, 96.65, 30.309, 1.13)
pt3dadd(106.169, 96.532, 30.323, 1.13)
pt3dadd(106.149, 96.415, 30.337, 1.13)
pt3dadd(106.13, 96.298, 30.351, 1.13)
pt3dadd(106.11, 96.181, 30.365, 1.13)
pt3dadd(106.093, 96.065, 30.384, 1.13)
pt3dadd(106.09, 95.957, 30.427, 1.13)
pt3dadd(106.088, 95.848, 30.47, 1.13)
pt3dadd(106.085, 95.74, 30.513, 1.13)
pt3dadd(106.083, 95.632, 30.556, 1.13)
pt3dadd(106.08, 95.523, 30.599, 1.13)
pt3dadd(106.08, 95.411, 30.634, 1.13)
pt3dadd(106.08, 95.298, 30.668, 1.13)
pt3dadd(106.08, 95.186, 30.703, 1.13)
pt3dadd(106.08, 95.073, 30.738, 1.13)
pt3dadd(106.08, 94.961, 30.772, 1.13)
pt3dadd(106.08, 94.844, 30.79, 1.13)
pt3dadd(106.08, 94.724, 30.791, 1.13)
pt3dadd(106.08, 94.604, 30.793, 1.13)
pt3dadd(106.08, 94.484, 30.795, 1.13)
pt3dadd(106.08, 94.364, 30.796, 1.13)
pt3dadd(106.08, 94.244, 30.798, 1.13)
pt3dadd(106.08, 94.124, 30.799, 1.13)
pt3dadd(106.114, 94.012, 30.8, 1.13)
pt3dadd(106.167, 93.905, 30.8, 1.13)
pt3dadd(106.225, 93.801, 30.809, 1.13)
pt3dadd(106.288, 93.703, 30.833, 1.13)
pt3dadd(106.32, 93.623, 30.887, 1.13)
pt3dadd(106.32, 93.563, 30.973, 1.13)
pt3dadd(106.32, 93.495, 31.055, 1.13)
pt3dadd(106.32, 93.414, 31.129, 1.13)
pt3dadd(106.32, 93.325, 31.189, 1.13)
pt3dadd(106.32, 93.205, 31.192, 1.13)
pt3dadd(106.32, 93.085, 31.194, 1.13)
pt3dadd(106.32, 92.965, 31.196, 1.13)
pt3dadd(106.32, 92.845, 31.198, 1.13)
pt3dadd(106.32, 92.726, 31.201, 1.13)
pt3dadd(106.32, 92.606, 31.205, 1.13)
pt3dadd(106.32, 92.486, 31.209, 1.13)
pt3dadd(106.32, 92.382, 31.241, 1.13)
pt3dadd(106.32, 92.302, 31.315, 1.13)
pt3dadd(106.32, 92.222, 31.39, 1.13)
pt3dadd(106.32, 92.124, 31.444, 1.13)
pt3dadd(106.32, 92.014, 31.483, 1.13)
pt3dadd(106.32, 91.91, 31.53, 1.13)
pt3dadd(106.32, 91.825, 31.601, 1.13)
pt3dadd(106.32, 91.74, 31.672, 1.13)
pt3dadd(106.32, 91.691, 31.755, 1.13)
pt3dadd(106.32, 91.687, 31.855, 1.13)
pt3dadd(106.32, 91.682, 31.955, 1.13)
pt3dadd(106.32, 91.68, 32.055, 1.13)
pt3dadd(106.32, 91.657, 32.152, 1.13)
pt3dadd(106.32, 91.615, 32.246, 1.13)
pt3dadd(106.32, 91.574, 32.34, 1.13)
pt3dadd(106.32, 91.532, 32.433, 1.13)
pt3dadd(106.32, 91.491, 32.527, 1.13)
pt3dadd(106.32, 91.446, 32.62, 1.13)
pt3dadd(106.32, 91.377, 32.701, 1.13)
pt3dadd(106.32, 91.308, 32.783, 1.13)
pt3dadd(106.32, 91.239, 32.865, 1.13)
pt3dadd(106.32, 91.17, 32.947, 1.13)
pt3dadd(106.323, 91.102, 33.028, 1.13)
pt3dadd(106.364, 91.039, 33.107, 1.13)
pt3dadd(106.404, 90.976, 33.185, 1.13)
pt3dadd(106.445, 90.914, 33.263, 1.13)
pt3dadd(106.486, 90.851, 33.342, 1.13)
pt3dadd(106.555, 90.791, 33.405, 1.13)
pt3dadd(106.631, 90.732, 33.465, 1.13)
pt3dadd(106.706, 90.673, 33.525, 1.13)
pt3dadd(106.782, 90.614, 33.585, 1.13)
pt3dadd(106.829, 90.543, 33.654, 1.13)
pt3dadd(106.866, 90.467, 33.725, 1.13)
pt3dadd(106.904, 90.391, 33.796, 1.13)
pt3dadd(106.942, 90.316, 33.867, 1.13)
pt3dadd(106.992, 90.26, 33.942, 1.13)
pt3dadd(107.054, 90.223, 34.022, 1.13)
pt3dadd(107.116, 90.186, 34.102, 1.13)
pt3dadd(107.178, 90.149, 34.182, 1.13)
pt3dadd(107.24, 90.12, 34.263, 1.13)
pt3dadd(107.301, 90.12, 34.349, 1.13)
pt3dadd(107.361, 90.12, 34.436, 1.13)
pt3dadd(107.401, 90.12, 34.53, 1.13)
pt3dadd(107.44, 90.12, 34.625, 1.13)
pt3dadd(107.512, 90.12, 34.701, 1.13)
pt3dadd(107.6, 90.12, 34.769, 1.13)
pt3dadd(107.699, 90.12, 34.824, 1.13)
pt3dadd(107.806, 90.12, 34.869, 1.13)
pt3dadd(107.916, 90.12, 34.909, 1.13)
pt3dadd(108.031, 90.12, 34.936, 1.13)
pt3dadd(108.094, 90.12, 35.009, 1.13)
pt3dadd(108.133, 90.12, 35.104, 1.13)
pt3dadd(108.185, 90.105, 35.19, 1.13)
pt3dadd(108.259, 90.06, 35.258, 1.13)
pt3dadd(108.357, 90.03, 35.3, 1.13)
pt3dadd(108.474, 90.013, 35.319, 1.13)
pt3dadd(108.588, 89.998, 35.345, 1.13)
pt3dadd(108.693, 89.992, 35.392, 1.13)
pt3dadd(108.798, 89.98, 35.439, 1.13)
pt3dadd(108.887, 89.924, 35.486, 1.13)
pt3dadd(108.983, 89.882, 35.535, 1.13)
pt3dadd(109.079, 89.842, 35.584, 1.13)
pt3dadd(109.176, 89.802, 35.633, 1.13)
pt3dadd(109.272, 89.761, 35.682, 1.13)
pt3dadd(109.34, 89.714, 35.751, 1.13)
pt3dadd(109.391, 89.662, 35.83, 1.13)
pt3dadd(109.442, 89.611, 35.91, 1.13)
pt3dadd(109.494, 89.56, 35.989, 1.13)
pt3dadd(109.612, 89.538, 35.993, 1.13)
pt3dadd(109.73, 89.517, 35.998, 1.13)
pt3dadd(109.826, 89.46, 36.009, 1.13)
pt3dadd(109.903, 89.37, 36.026, 1.13)
pt3dadd(109.974, 89.285, 36.062, 1.13)
pt3dadd(110.048, 89.212, 36.111, 1.13)
pt3dadd(110.126, 89.146, 36.163, 1.13)
pt3dadd(110.205, 89.08, 36.215, 1.13)
pt3dadd(110.283, 89.014, 36.267, 1.13)
pt3dadd(110.361, 88.942, 36.312, 1.13)
pt3dadd(110.437, 88.857, 36.343, 1.13)
pt3dadd(110.512, 88.771, 36.375, 1.13)
pt3dadd(110.588, 88.686, 36.406, 1.13)
pt3dadd(110.664, 88.602, 36.439, 1.13)
pt3dadd(110.739, 88.519, 36.476, 1.13)
pt3dadd(110.808, 88.432, 36.513, 1.13)
pt3dadd(110.866, 88.337, 36.55, 1.13)
pt3dadd(110.925, 88.265, 36.607, 1.13)
pt3dadd(110.985, 88.213, 36.682, 1.13)
pt3dadd(111.067, 88.166, 36.742, 1.13)
pt3dadd(111.156, 88.122, 36.798, 1.13)
pt3dadd(111.272, 88.096, 36.807, 1.13)
pt3dadd(111.389, 88.07, 36.817, 1.13)
pt3dadd(111.503, 88.041, 36.835, 1.13)
pt3dadd(111.618, 88.012, 36.852, 1.13)
pt3dadd(111.733, 87.984, 36.869, 1.13)
pt3dadd(111.847, 87.955, 36.887, 1.13)
pt3dadd(111.96, 87.922, 36.907, 1.13)
pt3dadd(112.065, 87.875, 36.933, 1.13)
pt3dadd(112.171, 87.828, 36.96, 1.13)
pt3dadd(112.276, 87.781, 36.987, 1.13)
pt3dadd(112.382, 87.734, 37.014, 1.13)
pt3dadd(112.493, 87.698, 37.035, 1.13)
pt3dadd(112.607, 87.666, 37.052, 1.13)
pt3dadd(112.721, 87.634, 37.07, 1.13)
pt3dadd(112.835, 87.603, 37.088, 1.13)
pt3dadd(112.949, 87.571, 37.105, 1.13)
pt3dadd(113.05, 87.526, 37.139, 1.13)
pt3dadd(113.145, 87.474, 37.182, 1.13)
pt3dadd(113.253, 87.425, 37.193, 1.13)
pt3dadd(113.362, 87.377, 37.198, 1.13)
pt3dadd(113.462, 87.311, 37.2, 1.13)
pt3dadd(113.555, 87.236, 37.2, 1.13)
pt3dadd(113.617, 87.14, 37.2, 1.13)
pt3dadd(113.65, 87.024, 37.2, 1.13)
pt3dadd(113.688, 86.912, 37.2, 1.13)
pt3dadd(113.772, 86.827, 37.2, 1.13)
pt3dadd(113.859, 86.745, 37.2, 1.13)
pt3dadd(113.948, 86.663, 37.2, 1.13)
pt3dadd(114.022, 86.57, 37.197, 1.13)
pt3dadd(114.085, 86.469, 37.192, 1.13)
}
}
proc shape3d_113() {
dend_7[6] { pt3dadd(114.165, 86.407, 37.164, 1.13)
pt3dadd(114.265, 86.394, 37.109, 1.13)
pt3dadd(114.352, 86.362, 37.049, 1.13)
pt3dadd(114.423, 86.307, 36.983, 1.13)
pt3dadd(114.48, 86.28, 36.9, 1.13)
}
dend_7[7] {pt3dclear()
pt3dadd(141.949, 108.395, 21.119, 0.904)
pt3dadd(141.949, 108.408, 21.129, 0.9)
pt3dadd(141.949, 108.494, 21.199, 0.87)
pt3dadd(141.948, 108.58, 21.269, 0.838)
pt3dadd(141.948, 108.666, 21.339, 0.808)
pt3dadd(141.948, 108.751, 21.409, 0.778)
pt3dadd(141.948, 108.837, 21.478, 0.748)
pt3dadd(141.948, 108.923, 21.548, 0.718)
pt3dadd(141.947, 109.009, 21.618, 0.688)
pt3dadd(141.947, 109.095, 21.688, 0.656)
pt3dadd(141.947, 109.181, 21.757, 0.626)
pt3dadd(141.947, 109.267, 21.827, 0.596)
pt3dadd(141.947, 109.353, 21.897, 0.566)
pt3dadd(141.946, 109.439, 21.967, 0.536)
pt3dadd(141.946, 109.525, 22.037, 0.506)
pt3dadd(141.946, 109.611, 22.106, 0.476)
pt3dadd(141.928, 109.699, 22.172, 0.468)
pt3dadd(141.911, 109.788, 22.238, 0.462)
pt3dadd(141.894, 109.876, 22.305, 0.454)
pt3dadd(141.877, 109.965, 22.371, 0.448)
pt3dadd(141.859, 110.053, 22.437, 0.44)
pt3dadd(141.842, 110.142, 22.503, 0.434)
pt3dadd(141.826, 110.23, 22.569, 0.426)
pt3dadd(141.809, 110.319, 22.635, 0.418)
pt3dadd(141.792, 110.407, 22.701, 0.412)
pt3dadd(141.73, 110.485, 22.743, 0.472)
pt3dadd(141.64, 110.557, 22.77, 0.576)
pt3dadd(141.548, 110.629, 22.797, 0.678)
pt3dadd(141.457, 110.7, 22.824, 0.782)
pt3dadd(141.367, 110.772, 22.851, 0.886)
pt3dadd(141.276, 110.844, 22.878, 0.988)
pt3dadd(141.186, 110.915, 22.905, 1.092)
pt3dadd(141.095, 110.987, 22.932, 1.196)
pt3dadd(141.005, 111.058, 22.959, 1.3)
pt3dadd(140.914, 111.13, 22.986, 1.402)
pt3dadd(140.825, 111.196, 23.024, 1.474)
pt3dadd(140.738, 111.258, 23.069, 1.526)
pt3dadd(140.651, 111.321, 23.114, 1.578)
pt3dadd(140.564, 111.383, 23.16, 1.63)
pt3dadd(140.477, 111.445, 23.205, 1.682)
pt3dadd(140.39, 111.507, 23.25, 1.734)
pt3dadd(140.303, 111.57, 23.295, 1.786)
pt3dadd(140.215, 111.632, 23.34, 1.838)
pt3dadd(140.129, 111.694, 23.385, 1.89)
pt3dadd(140.041, 111.756, 23.431, 1.94)
pt3dadd(139.956, 111.8, 23.49, 1.9)
pt3dadd(139.87, 111.84, 23.551, 1.848)
pt3dadd(139.784, 111.881, 23.612, 1.794)
pt3dadd(139.698, 111.921, 23.674, 1.74)
pt3dadd(139.613, 111.962, 23.735, 1.688)
pt3dadd(139.528, 112.002, 23.796, 1.634)
pt3dadd(139.441, 112.043, 23.858, 1.58)
pt3dadd(139.356, 112.084, 23.919, 1.528)
pt3dadd(139.27, 112.124, 23.98, 1.474)
pt3dadd(139.184, 112.165, 24.042, 1.42)
pt3dadd(139.082, 112.191, 24.09, 1.304)
pt3dadd(138.98, 112.217, 24.137, 1.188)
pt3dadd(138.878, 112.243, 24.185, 1.07)
pt3dadd(138.776, 112.269, 24.233, 0.954)
pt3dadd(138.673, 112.295, 24.281, 0.836)
pt3dadd(138.571, 112.321, 24.328, 0.72)
pt3dadd(138.469, 112.347, 24.376, 0.602)
pt3dadd(138.367, 112.373, 24.424, 0.486)
pt3dadd(138.265, 112.399, 24.472, 0.37)
pt3dadd(138.163, 112.425, 24.519, 0.252)
pt3dadd(138.065, 112.439, 24.576, 0.296)
pt3dadd(137.968, 112.453, 24.633, 0.342)
pt3dadd(137.87, 112.467, 24.69, 0.388)
pt3dadd(137.772, 112.481, 24.747, 0.434)
pt3dadd(137.675, 112.495, 24.804, 0.48)
pt3dadd(137.578, 112.509, 24.861, 0.524)
pt3dadd(137.479, 112.523, 24.918, 0.57)
pt3dadd(137.382, 112.537, 24.975, 0.616)
pt3dadd(137.285, 112.551, 25.032, 0.662)
pt3dadd(137.186, 112.565, 25.089, 0.708)
pt3dadd(137.09, 112.605, 25.138, 0.696)
pt3dadd(136.994, 112.646, 25.187, 0.684)
pt3dadd(136.897, 112.687, 25.236, 0.67)
pt3dadd(136.801, 112.727, 25.285, 0.658)
pt3dadd(136.704, 112.768, 25.333, 0.646)
pt3dadd(136.608, 112.809, 25.382, 0.634)
pt3dadd(136.511, 112.85, 25.431, 0.622)
pt3dadd(136.415, 112.89, 25.48, 0.61)
pt3dadd(136.319, 112.931, 25.529, 0.598)
pt3dadd(136.222, 112.974, 25.575, 0.586)
pt3dadd(136.122, 113.024, 25.612, 0.58)
pt3dadd(136.022, 113.075, 25.648, 0.576)
pt3dadd(135.923, 113.125, 25.685, 0.57)
pt3dadd(135.823, 113.176, 25.722, 0.564)
pt3dadd(135.724, 113.226, 25.759, 0.56)
pt3dadd(135.624, 113.277, 25.796, 0.554)
pt3dadd(135.524, 113.328, 25.832, 0.548)
pt3dadd(135.425, 113.378, 25.869, 0.544)
pt3dadd(135.326, 113.429, 25.906, 0.538)
pt3dadd(135.223, 113.473, 25.941, 0.558)
pt3dadd(135.113, 113.503, 25.97, 0.634)
pt3dadd(135.001, 113.534, 25.999, 0.712)
pt3dadd(134.891, 113.564, 26.028, 0.79)
pt3dadd(134.78, 113.594, 26.057, 0.866)
pt3dadd(134.67, 113.625, 26.087, 0.944)
pt3dadd(134.558, 113.655, 26.116, 1.022)
pt3dadd(134.448, 113.685, 26.145, 1.098)
pt3dadd(134.338, 113.715, 26.174, 1.176)
pt3dadd(134.227, 113.746, 26.204, 1.252)
pt3dadd(134.117, 113.768, 26.237, 1.28)
pt3dadd(134.008, 113.773, 26.278, 1.206)
pt3dadd(133.898, 113.778, 26.32, 1.132)
pt3dadd(133.789, 113.783, 26.362, 1.058)
pt3dadd(133.681, 113.788, 26.403, 0.986)
pt3dadd(133.572, 113.793, 26.445, 0.912)
pt3dadd(133.463, 113.799, 26.486, 0.838)
pt3dadd(133.354, 113.804, 26.528, 0.764)
pt3dadd(133.244, 113.809, 26.57, 0.69)
pt3dadd(133.135, 113.814, 26.611, 0.616)
pt3dadd(133.025, 113.816, 26.65, 0.56)
pt3dadd(132.912, 113.811, 26.683, 0.542)
pt3dadd(132.799, 113.807, 26.716, 0.522)
pt3dadd(132.685, 113.802, 26.749, 0.502)
pt3dadd(132.572, 113.797, 26.782, 0.484)
pt3dadd(132.46, 113.793, 26.815, 0.464)
pt3dadd(132.347, 113.788, 26.848, 0.444)
pt3dadd(132.233, 113.783, 26.881, 0.426)
pt3dadd(132.12, 113.778, 26.914, 0.406)
pt3dadd(132.007, 113.774, 26.947, 0.388)
pt3dadd(131.893, 113.766, 26.977, 0.386)
pt3dadd(131.777, 113.753, 27.002, 0.414)
pt3dadd(131.662, 113.74, 27.028, 0.442)
pt3dadd(131.546, 113.727, 27.053, 0.47)
pt3dadd(131.431, 113.714, 27.078, 0.498)
pt3dadd(131.316, 113.701, 27.104, 0.526)
pt3dadd(131.201, 113.688, 27.129, 0.554)
pt3dadd(131.086, 113.675, 27.154, 0.582)
pt3dadd(130.969, 113.662, 27.179, 0.608)
pt3dadd(130.854, 113.649, 27.205, 0.636)
pt3dadd(130.74, 113.625, 27.225, 0.66)
pt3dadd(130.628, 113.584, 27.24, 0.674)
pt3dadd(130.518, 113.543, 27.254, 0.688)
pt3dadd(130.406, 113.502, 27.268, 0.704)
pt3dadd(130.295, 113.461, 27.283, 0.718)
pt3dadd(130.183, 113.42, 27.297, 0.732)
pt3dadd(130.072, 113.379, 27.311, 0.748)
pt3dadd(129.96, 113.338, 27.325, 0.762)
pt3dadd(129.848, 113.298, 27.34, 0.776)
pt3dadd(129.737, 113.257, 27.354, 0.792)
pt3dadd(129.625, 113.216, 27.367, 0.802)
pt3dadd(129.512, 113.176, 27.379, 0.81)
pt3dadd(129.401, 113.136, 27.391, 0.818)
pt3dadd(129.288, 113.096, 27.403, 0.824)
pt3dadd(129.176, 113.057, 27.415, 0.832)
pt3dadd(129.064, 113.017, 27.427, 0.84)
pt3dadd(128.952, 112.977, 27.439, 0.848)
pt3dadd(128.839, 112.937, 27.451, 0.854)
pt3dadd(128.728, 112.897, 27.463, 0.862)
pt3dadd(128.615, 112.857, 27.475, 0.87)
pt3dadd(128.501, 112.823, 27.485, 0.868)
pt3dadd(128.384, 112.796, 27.492, 0.854)
pt3dadd(128.268, 112.769, 27.5, 0.84)
pt3dadd(128.15, 112.742, 27.507, 0.826)
pt3dadd(128.034, 112.715, 27.515, 0.812)
pt3dadd(127.918, 112.688, 27.522, 0.798)
pt3dadd(127.801, 112.662, 27.53, 0.784)
pt3dadd(127.685, 112.635, 27.537, 0.768)
pt3dadd(127.568, 112.608, 27.545, 0.754)
pt3dadd(127.451, 112.581, 27.552, 0.74)
pt3dadd(127.334, 112.559, 27.561, 0.734)
pt3dadd(127.216, 112.543, 27.572, 0.738)
pt3dadd(127.098, 112.527, 27.583, 0.74)
pt3dadd(126.979, 112.51, 27.594, 0.744)
pt3dadd(126.862, 112.494, 27.604, 0.748)
pt3dadd(126.743, 112.478, 27.615, 0.75)
pt3dadd(126.625, 112.462, 27.626, 0.754)
pt3dadd(126.506, 112.446, 27.637, 0.756)
pt3dadd(126.389, 112.43, 27.648, 0.76)
pt3dadd(126.27, 112.414, 27.658, 0.764)
pt3dadd(126.151, 112.401, 27.671, 0.772)
pt3dadd(126.034, 112.392, 27.684, 0.786)
pt3dadd(125.915, 112.384, 27.698, 0.8)
pt3dadd(125.796, 112.375, 27.712, 0.816)
pt3dadd(125.677, 112.366, 27.725, 0.83)
pt3dadd(125.558, 112.358, 27.739, 0.844)
pt3dadd(125.441, 112.349, 27.752, 0.86)
pt3dadd(125.322, 112.341, 27.766, 0.874)
pt3dadd(125.203, 112.332, 27.78, 0.888)
pt3dadd(125.084, 112.323, 27.793, 0.904)
pt3dadd(124.97, 112.323, 27.82, 0.924)
pt3dadd(124.86, 112.333, 27.859, 0.95)
pt3dadd(124.751, 112.342, 27.898, 0.976)
pt3dadd(124.64, 112.351, 27.938, 1.004)
pt3dadd(124.531, 112.36, 27.977, 1.03)
pt3dadd(124.421, 112.37, 28.017, 1.056)
pt3dadd(124.31, 112.379, 28.056, 1.082)
pt3dadd(124.201, 112.388, 28.095, 1.108)
pt3dadd(124.091, 112.397, 28.135, 1.136)
pt3dadd(123.982, 112.407, 28.174, 1.162)
pt3dadd(123.87, 112.417, 28.212, 1.182)
}
}
proc shape3d_114() {
dend_7[7] { pt3dadd(123.76, 112.428, 28.248, 1.196)
pt3dadd(123.648, 112.44, 28.285, 1.21)
pt3dadd(123.538, 112.451, 28.321, 1.224)
pt3dadd(123.426, 112.462, 28.358, 1.238)
pt3dadd(123.314, 112.474, 28.394, 1.25)
pt3dadd(123.204, 112.485, 28.431, 1.264)
pt3dadd(123.092, 112.497, 28.467, 1.278)
pt3dadd(122.981, 112.508, 28.504, 1.292)
pt3dadd(122.87, 112.52, 28.54, 1.306)
pt3dadd(122.758, 112.533, 28.573, 1.306)
pt3dadd(122.645, 112.55, 28.604, 1.292)
pt3dadd(122.531, 112.566, 28.634, 1.278)
pt3dadd(122.418, 112.582, 28.664, 1.264)
pt3dadd(122.305, 112.598, 28.694, 1.252)
pt3dadd(122.191, 112.614, 28.724, 1.238)
pt3dadd(122.078, 112.631, 28.754, 1.224)
pt3dadd(121.964, 112.647, 28.784, 1.21)
pt3dadd(121.852, 112.663, 28.814, 1.196)
pt3dadd(121.739, 112.679, 28.844, 1.182)
pt3dadd(121.627, 112.707, 28.871, 1.178)
pt3dadd(121.517, 112.745, 28.895, 1.182)
pt3dadd(121.408, 112.784, 28.919, 1.186)
pt3dadd(121.297, 112.823, 28.943, 1.19)
pt3dadd(121.187, 112.861, 28.967, 1.194)
pt3dadd(121.078, 112.9, 28.991, 1.198)
pt3dadd(120.967, 112.939, 29.015, 1.202)
pt3dadd(120.858, 112.977, 29.039, 1.206)
pt3dadd(120.748, 113.016, 29.063, 1.21)
pt3dadd(120.637, 113.055, 29.087, 1.214)
pt3dadd(120.53, 113.1, 29.109, 1.222)
pt3dadd(120.424, 113.149, 29.129, 1.236)
pt3dadd(120.317, 113.199, 29.15, 1.248)
pt3dadd(120.21, 113.249, 29.17, 1.262)
pt3dadd(120.104, 113.298, 29.191, 1.274)
pt3dadd(119.997, 113.348, 29.211, 1.286)
pt3dadd(119.891, 113.397, 29.232, 1.3)
pt3dadd(119.784, 113.447, 29.252, 1.312)
pt3dadd(119.678, 113.496, 29.273, 1.326)
pt3dadd(119.572, 113.546, 29.293, 1.338)
pt3dadd(119.466, 113.589, 29.322, 1.33)
pt3dadd(119.36, 113.628, 29.357, 1.308)
pt3dadd(119.254, 113.667, 29.391, 1.286)
pt3dadd(119.148, 113.705, 29.426, 1.266)
pt3dadd(119.042, 113.744, 29.46, 1.244)
pt3dadd(118.936, 113.783, 29.494, 1.222)
pt3dadd(118.831, 113.821, 29.529, 1.2)
pt3dadd(118.725, 113.86, 29.563, 1.178)
pt3dadd(118.619, 113.899, 29.598, 1.156)
pt3dadd(118.513, 113.937, 29.632, 1.134)
pt3dadd(118.407, 113.976, 29.666, 1.114)
pt3dadd(118.302, 114.016, 29.701, 1.092)
pt3dadd(118.196, 114.055, 29.735, 1.072)
pt3dadd(118.09, 114.094, 29.769, 1.052)
pt3dadd(117.985, 114.133, 29.804, 1.03)
pt3dadd(117.879, 114.172, 29.838, 1.01)
pt3dadd(117.773, 114.211, 29.872, 0.99)
pt3dadd(117.668, 114.251, 29.906, 0.968)
pt3dadd(117.562, 114.29, 29.941, 0.948)
pt3dadd(117.456, 114.329, 29.975, 0.928)
pt3dadd(117.351, 114.375, 30.002, 0.928)
pt3dadd(117.246, 114.426, 30.025, 0.94)
pt3dadd(117.14, 114.477, 30.048, 0.954)
pt3dadd(117.035, 114.528, 30.071, 0.966)
pt3dadd(116.93, 114.579, 30.094, 0.978)
pt3dadd(116.825, 114.629, 30.117, 0.992)
pt3dadd(116.72, 114.68, 30.14, 1.004)
pt3dadd(116.615, 114.731, 30.163, 1.016)
pt3dadd(116.51, 114.782, 30.186, 1.03)
pt3dadd(116.404, 114.832, 30.209, 1.042)
pt3dadd(116.296, 114.878, 30.23, 1.04)
pt3dadd(116.187, 114.921, 30.25, 1.028)
pt3dadd(116.077, 114.963, 30.27, 1.018)
pt3dadd(115.967, 115.005, 30.29, 1.006)
pt3dadd(115.858, 115.048, 30.31, 0.994)
pt3dadd(115.748, 115.09, 30.33, 0.984)
pt3dadd(115.638, 115.133, 30.35, 0.972)
pt3dadd(115.529, 115.176, 30.37, 0.962)
pt3dadd(115.419, 115.218, 30.39, 0.95)
pt3dadd(115.31, 115.26, 30.41, 0.938)
pt3dadd(115.195, 115.292, 30.425, 0.896)
pt3dadd(115.08, 115.318, 30.439, 0.84)
pt3dadd(114.964, 115.344, 30.453, 0.784)
pt3dadd(114.848, 115.371, 30.466, 0.728)
pt3dadd(114.732, 115.397, 30.48, 0.672)
pt3dadd(114.616, 115.423, 30.494, 0.616)
pt3dadd(114.5, 115.449, 30.508, 0.56)
pt3dadd(114.384, 115.476, 30.521, 0.502)
pt3dadd(114.268, 115.502, 30.535, 0.446)
pt3dadd(114.152, 115.528, 30.549, 0.39)
pt3dadd(114.034, 115.533, 30.559, 0.364)
pt3dadd(113.914, 115.529, 30.568, 0.348)
pt3dadd(113.795, 115.525, 30.577, 0.334)
pt3dadd(113.676, 115.522, 30.587, 0.318)
pt3dadd(113.556, 115.518, 30.596, 0.304)
pt3dadd(113.437, 115.514, 30.605, 0.288)
pt3dadd(113.317, 115.51, 30.614, 0.274)
pt3dadd(113.198, 115.506, 30.623, 0.258)
pt3dadd(113.078, 115.502, 30.632, 0.244)
pt3dadd(112.959, 115.498, 30.642, 0.228)
pt3dadd(112.839, 115.492, 30.65, 0.226)
pt3dadd(112.72, 115.486, 30.658, 0.226)
pt3dadd(112.601, 115.48, 30.667, 0.226)
pt3dadd(112.481, 115.473, 30.675, 0.226)
pt3dadd(112.362, 115.467, 30.683, 0.226)
pt3dadd(112.242, 115.461, 30.692, 0.226)
pt3dadd(112.123, 115.455, 30.7, 0.226)
pt3dadd(112.004, 115.448, 30.708, 0.226)
pt3dadd(111.884, 115.442, 30.717, 0.226)
pt3dadd(111.765, 115.436, 30.725, 0.226)
pt3dadd(111.65, 115.465, 30.737, 0.226)
pt3dadd(111.535, 115.497, 30.749, 0.226)
pt3dadd(111.42, 115.529, 30.761, 0.226)
pt3dadd(111.306, 115.561, 30.773, 0.226)
pt3dadd(111.191, 115.593, 30.785, 0.226)
pt3dadd(111.076, 115.625, 30.798, 0.226)
pt3dadd(110.961, 115.657, 30.81, 0.226)
pt3dadd(110.847, 115.689, 30.822, 0.226)
pt3dadd(110.732, 115.722, 30.834, 0.226)
pt3dadd(110.617, 115.754, 30.846, 0.226)
pt3dadd(110.508, 115.791, 30.873, 0.264)
pt3dadd(110.399, 115.828, 30.901, 0.304)
pt3dadd(110.29, 115.865, 30.929, 0.344)
pt3dadd(110.181, 115.903, 30.957, 0.382)
pt3dadd(110.072, 115.94, 30.985, 0.422)
pt3dadd(109.963, 115.977, 31.013, 0.462)
pt3dadd(109.854, 116.015, 31.041, 0.502)
pt3dadd(109.745, 116.052, 31.069, 0.542)
pt3dadd(109.636, 116.089, 31.096, 0.582)
pt3dadd(109.527, 116.127, 31.125, 0.624)
pt3dadd(109.424, 116.167, 31.163, 0.69)
pt3dadd(109.32, 116.207, 31.202, 0.756)
pt3dadd(109.217, 116.247, 31.24, 0.824)
pt3dadd(109.114, 116.287, 31.278, 0.89)
pt3dadd(109.011, 116.327, 31.317, 0.958)
pt3dadd(108.907, 116.367, 31.355, 1.024)
pt3dadd(108.804, 116.407, 31.394, 1.09)
pt3dadd(108.701, 116.447, 31.432, 1.158)
pt3dadd(108.597, 116.487, 31.471, 1.224)
pt3dadd(108.495, 116.529, 31.509, 1.288)
pt3dadd(108.403, 116.6, 31.534, 1.284)
pt3dadd(108.311, 116.67, 31.559, 1.28)
pt3dadd(108.219, 116.741, 31.584, 1.276)
pt3dadd(108.127, 116.812, 31.61, 1.272)
pt3dadd(108.035, 116.883, 31.635, 1.266)
pt3dadd(107.943, 116.954, 31.66, 1.262)
pt3dadd(107.851, 117.025, 31.685, 1.258)
pt3dadd(107.759, 117.096, 31.71, 1.254)
pt3dadd(107.667, 117.167, 31.736, 1.25)
pt3dadd(107.575, 117.238, 31.761, 1.244)
pt3dadd(107.486, 117.313, 31.784, 1.23)
pt3dadd(107.397, 117.388, 31.807, 1.218)
pt3dadd(107.308, 117.464, 31.83, 1.204)
pt3dadd(107.218, 117.539, 31.854, 1.19)
pt3dadd(107.129, 117.614, 31.877, 1.178)
pt3dadd(107.04, 117.69, 31.901, 1.164)
pt3dadd(106.951, 117.765, 31.924, 1.15)
pt3dadd(106.862, 117.84, 31.947, 1.138)
pt3dadd(106.773, 117.916, 31.97, 1.124)
pt3dadd(106.686, 117.993, 31.993, 1.11)
pt3dadd(106.616, 118.088, 32.011, 1.08)
pt3dadd(106.546, 118.183, 32.029, 1.052)
pt3dadd(106.476, 118.278, 32.047, 1.024)
pt3dadd(106.406, 118.373, 32.065, 0.996)
pt3dadd(106.336, 118.468, 32.083, 0.968)
pt3dadd(106.266, 118.563, 32.101, 0.94)
pt3dadd(106.196, 118.658, 32.119, 0.912)
pt3dadd(106.126, 118.753, 32.137, 0.884)
pt3dadd(106.056, 118.849, 32.155, 0.856)
pt3dadd(105.986, 118.943, 32.173, 0.83)
pt3dadd(105.912, 119.037, 32.188, 0.826)
pt3dadd(105.838, 119.13, 32.202, 0.822)
pt3dadd(105.765, 119.223, 32.217, 0.818)
pt3dadd(105.691, 119.316, 32.232, 0.814)
pt3dadd(105.617, 119.409, 32.246, 0.812)
pt3dadd(105.544, 119.502, 32.261, 0.808)
pt3dadd(105.47, 119.595, 32.276, 0.804)
pt3dadd(105.396, 119.688, 32.291, 0.8)
pt3dadd(105.323, 119.781, 32.305, 0.796)
pt3dadd(105.249, 119.874, 32.319, 0.794)
pt3dadd(105.171, 119.964, 32.33, 0.82)
pt3dadd(105.093, 120.055, 32.341, 0.844)
pt3dadd(105.015, 120.145, 32.352, 0.87)
pt3dadd(104.938, 120.236, 32.362, 0.894)
pt3dadd(104.86, 120.326, 32.373, 0.92)
pt3dadd(104.782, 120.416, 32.384, 0.944)
pt3dadd(104.704, 120.508, 32.395, 0.97)
pt3dadd(104.627, 120.598, 32.405, 0.994)
pt3dadd(104.549, 120.689, 32.416, 1.02)
pt3dadd(104.47, 120.776, 32.429, 1.04)
pt3dadd(104.38, 120.85, 32.457, 1.032)
pt3dadd(104.291, 120.922, 32.485, 1.024)
pt3dadd(104.201, 120.995, 32.513, 1.018)
pt3dadd(104.112, 121.067, 32.541, 1.01)
pt3dadd(104.022, 121.14, 32.569, 1.002)
pt3dadd(103.933, 121.212, 32.597, 0.994)
pt3dadd(103.843, 121.285, 32.625, 0.986)
pt3dadd(103.754, 121.357, 32.652, 0.98)
pt3dadd(103.665, 121.43, 32.68, 0.972)
pt3dadd(103.574, 121.5, 32.711, 0.958)
pt3dadd(103.48, 121.56, 32.748, 0.934)
}
}
proc shape3d_115() {
dend_7[7] { pt3dadd(103.387, 121.621, 32.784, 0.908)
pt3dadd(103.293, 121.682, 32.821, 0.882)
pt3dadd(103.2, 121.742, 32.858, 0.858)
pt3dadd(103.106, 121.804, 32.895, 0.832)
pt3dadd(103.013, 121.865, 32.931, 0.806)
pt3dadd(102.919, 121.925, 32.968, 0.782)
pt3dadd(102.825, 121.986, 33.005, 0.756)
pt3dadd(102.732, 122.047, 33.042, 0.73)
pt3dadd(102.638, 122.11, 33.075, 0.706)
pt3dadd(102.543, 122.177, 33.099, 0.682)
pt3dadd(102.447, 122.243, 33.124, 0.658)
pt3dadd(102.352, 122.31, 33.148, 0.636)
pt3dadd(102.257, 122.377, 33.173, 0.612)
pt3dadd(102.162, 122.444, 33.197, 0.588)
pt3dadd(102.067, 122.512, 33.222, 0.564)
pt3dadd(101.972, 122.578, 33.246, 0.542)
pt3dadd(101.876, 122.645, 33.271, 0.518)
pt3dadd(101.781, 122.712, 33.295, 0.494)
pt3dadd(101.686, 122.779, 33.319, 0.472)
pt3dadd(101.591, 122.846, 33.342, 0.448)
pt3dadd(101.496, 122.915, 33.364, 0.424)
pt3dadd(101.4, 122.982, 33.387, 0.402)
pt3dadd(101.305, 123.05, 33.409, 0.378)
pt3dadd(101.21, 123.118, 33.432, 0.356)
pt3dadd(101.115, 123.186, 33.454, 0.332)
pt3dadd(101.019, 123.253, 33.477, 0.31)
pt3dadd(100.924, 123.322, 33.499, 0.286)
pt3dadd(100.829, 123.389, 33.522, 0.264)
pt3dadd(100.734, 123.458, 33.543, 0.258)
pt3dadd(100.641, 123.532, 33.559, 0.298)
pt3dadd(100.548, 123.605, 33.575, 0.336)
pt3dadd(100.455, 123.678, 33.591, 0.376)
pt3dadd(100.361, 123.751, 33.607, 0.416)
pt3dadd(100.268, 123.824, 33.623, 0.454)
pt3dadd(100.175, 123.898, 33.639, 0.494)
pt3dadd(100.082, 123.971, 33.655, 0.532)
pt3dadd(99.989, 124.043, 33.671, 0.572)
pt3dadd(99.896, 124.116, 33.687, 0.612)
pt3dadd(99.802, 124.189, 33.703, 0.652)
pt3dadd(99.709, 124.264, 33.719, 0.698)
pt3dadd(99.617, 124.337, 33.734, 0.744)
pt3dadd(99.524, 124.41, 33.75, 0.788)
pt3dadd(99.431, 124.484, 33.765, 0.834)
pt3dadd(99.338, 124.558, 33.78, 0.88)
pt3dadd(99.245, 124.631, 33.796, 0.924)
pt3dadd(99.152, 124.705, 33.811, 0.97)
pt3dadd(99.059, 124.778, 33.827, 1.016)
pt3dadd(98.966, 124.853, 33.842, 1.062)
pt3dadd(98.873, 124.926, 33.857, 1.08)
pt3dadd(98.781, 125.002, 33.868, 1.042)
pt3dadd(98.688, 125.077, 33.88, 1.004)
pt3dadd(98.596, 125.153, 33.892, 0.966)
pt3dadd(98.504, 125.227, 33.904, 0.928)
pt3dadd(98.412, 125.303, 33.916, 0.89)
pt3dadd(98.319, 125.378, 33.928, 0.852)
pt3dadd(98.227, 125.454, 33.94, 0.814)
pt3dadd(98.135, 125.528, 33.952, 0.774)
pt3dadd(98.042, 125.604, 33.964, 0.736)
pt3dadd(97.95, 125.68, 33.976, 0.696)
pt3dadd(97.858, 125.755, 33.987, 0.65)
pt3dadd(97.765, 125.831, 33.999, 0.604)
pt3dadd(97.673, 125.905, 34.01, 0.558)
pt3dadd(97.581, 125.981, 34.022, 0.514)
pt3dadd(97.488, 126.056, 34.034, 0.468)
pt3dadd(97.396, 126.132, 34.045, 0.422)
pt3dadd(97.304, 126.208, 34.057, 0.376)
pt3dadd(97.211, 126.282, 34.068, 0.33)
pt3dadd(97.119, 126.358, 34.08, 0.284)
pt3dadd(97.025, 126.425, 34.1, 0.266)
pt3dadd(96.926, 126.474, 34.141, 0.312)
pt3dadd(96.828, 126.523, 34.181, 0.358)
pt3dadd(96.73, 126.571, 34.221, 0.402)
pt3dadd(96.631, 126.62, 34.261, 0.448)
pt3dadd(96.533, 126.67, 34.302, 0.494)
pt3dadd(96.434, 126.718, 34.342, 0.54)
pt3dadd(96.336, 126.767, 34.382, 0.586)
pt3dadd(96.238, 126.816, 34.423, 0.63)
pt3dadd(96.139, 126.864, 34.463, 0.676)
pt3dadd(96.04, 126.912, 34.503, 0.72)
pt3dadd(95.94, 126.956, 34.545, 0.76)
pt3dadd(95.84, 127.001, 34.586, 0.8)
pt3dadd(95.74, 127.045, 34.627, 0.84)
pt3dadd(95.64, 127.09, 34.668, 0.88)
pt3dadd(95.54, 127.134, 34.709, 0.92)
pt3dadd(95.44, 127.178, 34.75, 0.96)
pt3dadd(95.341, 127.223, 34.791, 1)
pt3dadd(95.241, 127.267, 34.833, 1.04)
pt3dadd(95.141, 127.312, 34.874, 1.08)
pt3dadd(95.038, 127.351, 34.914, 1.1)
pt3dadd(94.931, 127.381, 34.951, 1.086)
pt3dadd(94.824, 127.412, 34.988, 1.072)
pt3dadd(94.718, 127.444, 35.026, 1.056)
pt3dadd(94.611, 127.475, 35.063, 1.042)
pt3dadd(94.504, 127.506, 35.1, 1.028)
pt3dadd(94.397, 127.537, 35.138, 1.012)
pt3dadd(94.29, 127.568, 35.175, 0.998)
pt3dadd(94.183, 127.6, 35.212, 0.984)
pt3dadd(94.076, 127.631, 35.25, 0.968)
pt3dadd(93.975, 127.669, 35.292, 0.95)
pt3dadd(93.885, 127.721, 35.342, 0.926)
pt3dadd(93.795, 127.771, 35.392, 0.9)
pt3dadd(93.704, 127.822, 35.443, 0.874)
pt3dadd(93.614, 127.873, 35.493, 0.85)
pt3dadd(93.524, 127.924, 35.544, 0.824)
pt3dadd(93.433, 127.974, 35.594, 0.798)
pt3dadd(93.343, 128.026, 35.644, 0.774)
pt3dadd(93.253, 128.076, 35.695, 0.748)
pt3dadd(93.162, 128.126, 35.745, 0.722)
pt3dadd(93.077, 128.183, 35.797, 0.698)
pt3dadd(92.994, 128.243, 35.85, 0.674)
pt3dadd(92.912, 128.303, 35.903, 0.652)
pt3dadd(92.83, 128.363, 35.956, 0.628)
pt3dadd(92.748, 128.423, 36.009, 0.604)
pt3dadd(92.666, 128.483, 36.062, 0.582)
pt3dadd(92.584, 128.543, 36.115, 0.558)
pt3dadd(92.502, 128.604, 36.168, 0.534)
pt3dadd(92.42, 128.664, 36.221, 0.512)
pt3dadd(92.338, 128.724, 36.274, 0.488)
pt3dadd(92.243, 128.778, 36.313, 0.49)
pt3dadd(92.141, 128.828, 36.345, 0.506)
pt3dadd(92.039, 128.879, 36.377, 0.522)
pt3dadd(91.937, 128.929, 36.408, 0.54)
pt3dadd(91.835, 128.98, 36.44, 0.556)
pt3dadd(91.733, 129.03, 36.472, 0.572)
pt3dadd(91.631, 129.08, 36.503, 0.588)
pt3dadd(91.529, 129.131, 36.535, 0.604)
pt3dadd(91.427, 129.182, 36.567, 0.622)
pt3dadd(91.325, 129.233, 36.598, 0.638)
pt3dadd(91.223, 129.288, 36.623, 0.646)
pt3dadd(91.121, 129.347, 36.644, 0.65)
pt3dadd(91.02, 129.406, 36.665, 0.652)
pt3dadd(90.918, 129.464, 36.686, 0.656)
pt3dadd(90.817, 129.523, 36.707, 0.66)
pt3dadd(90.715, 129.582, 36.728, 0.662)
pt3dadd(90.613, 129.64, 36.749, 0.666)
pt3dadd(90.512, 129.698, 36.77, 0.67)
pt3dadd(90.41, 129.757, 36.791, 0.674)
pt3dadd(90.309, 129.816, 36.812, 0.676)
pt3dadd(90.206, 129.874, 36.83, 0.68)
pt3dadd(90.102, 129.93, 36.847, 0.682)
pt3dadd(89.998, 129.988, 36.865, 0.684)
pt3dadd(89.895, 130.044, 36.882, 0.686)
pt3dadd(89.791, 130.1, 36.899, 0.688)
pt3dadd(89.687, 130.158, 36.917, 0.69)
pt3dadd(89.584, 130.214, 36.934, 0.692)
pt3dadd(89.48, 130.271, 36.951, 0.694)
pt3dadd(89.376, 130.328, 36.968, 0.696)
pt3dadd(89.273, 130.385, 36.986, 0.698)
pt3dadd(89.161, 130.424, 37, 0.708)
pt3dadd(89.047, 130.458, 37.013, 0.722)
pt3dadd(88.933, 130.49, 37.025, 0.736)
pt3dadd(88.818, 130.523, 37.038, 0.75)
pt3dadd(88.704, 130.556, 37.051, 0.766)
pt3dadd(88.59, 130.589, 37.064, 0.78)
pt3dadd(88.475, 130.621, 37.076, 0.794)
pt3dadd(88.361, 130.655, 37.089, 0.808)
pt3dadd(88.246, 130.687, 37.102, 0.822)
pt3dadd(88.132, 130.721, 37.115, 0.836)
pt3dadd(88.019, 130.75, 37.138, 0.838)
pt3dadd(87.907, 130.777, 37.166, 0.838)
pt3dadd(87.795, 130.804, 37.194, 0.838)
pt3dadd(87.683, 130.831, 37.221, 0.836)
pt3dadd(87.571, 130.859, 37.249, 0.836)
pt3dadd(87.459, 130.886, 37.277, 0.836)
pt3dadd(87.347, 130.913, 37.305, 0.834)
pt3dadd(87.235, 130.94, 37.332, 0.834)
pt3dadd(87.123, 130.968, 37.36, 0.832)
pt3dadd(87.011, 130.996, 37.388, 0.832)
pt3dadd(86.903, 131.018, 37.425, 0.822)
pt3dadd(86.795, 131.04, 37.466, 0.808)
pt3dadd(86.687, 131.062, 37.506, 0.794)
pt3dadd(86.579, 131.084, 37.546, 0.782)
pt3dadd(86.472, 131.106, 37.586, 0.768)
pt3dadd(86.364, 131.128, 37.626, 0.754)
pt3dadd(86.256, 131.149, 37.666, 0.74)
pt3dadd(86.148, 131.172, 37.706, 0.728)
pt3dadd(86.041, 131.194, 37.746, 0.714)
pt3dadd(85.933, 131.215, 37.786, 0.7)
pt3dadd(85.822, 131.234, 37.821, 0.706)
pt3dadd(85.711, 131.254, 37.855, 0.716)
pt3dadd(85.599, 131.272, 37.889, 0.728)
pt3dadd(85.488, 131.291, 37.923, 0.738)
pt3dadd(85.377, 131.309, 37.957, 0.748)
pt3dadd(85.265, 131.327, 37.99, 0.758)
pt3dadd(85.154, 131.346, 38.024, 0.768)
pt3dadd(85.043, 131.364, 38.058, 0.78)
pt3dadd(84.931, 131.383, 38.092, 0.79)
pt3dadd(84.82, 131.401, 38.126, 0.8)
pt3dadd(84.709, 131.429, 38.157, 0.808)
pt3dadd(84.599, 131.459, 38.187, 0.812)
pt3dadd(84.489, 131.489, 38.217, 0.82)
pt3dadd(84.378, 131.519, 38.248, 0.824)
pt3dadd(84.268, 131.549, 38.278, 0.832)
pt3dadd(84.158, 131.579, 38.308, 0.836)
pt3dadd(84.047, 131.609, 38.339, 0.842)
pt3dadd(83.937, 131.639, 38.369, 0.848)
pt3dadd(83.826, 131.669, 38.399, 0.854)
pt3dadd(83.716, 131.699, 38.43, 0.86)
pt3dadd(83.613, 131.754, 38.454, 0.848)
pt3dadd(83.511, 131.81, 38.478, 0.834)
}
}
proc shape3d_116() {
dend_7[7] { pt3dadd(83.409, 131.867, 38.501, 0.82)
pt3dadd(83.307, 131.922, 38.525, 0.806)
pt3dadd(83.205, 131.978, 38.549, 0.792)
pt3dadd(83.103, 132.035, 38.572, 0.778)
pt3dadd(83.001, 132.091, 38.596, 0.764)
pt3dadd(82.899, 132.148, 38.62, 0.748)
pt3dadd(82.797, 132.204, 38.644, 0.734)
pt3dadd(82.695, 132.26, 38.667, 0.72)
pt3dadd(82.603, 132.318, 38.711, 0.728)
pt3dadd(82.513, 132.374, 38.756, 0.736)
pt3dadd(82.422, 132.432, 38.8, 0.744)
pt3dadd(82.331, 132.488, 38.845, 0.754)
pt3dadd(82.24, 132.546, 38.89, 0.762)
pt3dadd(82.15, 132.604, 38.935, 0.77)
pt3dadd(82.059, 132.66, 38.98, 0.778)
pt3dadd(81.968, 132.718, 39.025, 0.788)
pt3dadd(81.877, 132.775, 39.07, 0.796)
pt3dadd(81.787, 132.832, 39.114, 0.804)
pt3dadd(81.7, 132.895, 39.16, 0.8)
pt3dadd(81.614, 132.959, 39.205, 0.796)
pt3dadd(81.527, 133.021, 39.25, 0.794)
pt3dadd(81.441, 133.085, 39.295, 0.79)
pt3dadd(81.354, 133.147, 39.34, 0.786)
pt3dadd(81.267, 133.211, 39.385, 0.782)
pt3dadd(81.181, 133.274, 39.43, 0.778)
pt3dadd(81.094, 133.337, 39.475, 0.776)
pt3dadd(81.008, 133.4, 39.52, 0.772)
pt3dadd(80.921, 133.464, 39.564, 0.766)
pt3dadd(80.833, 133.535, 39.598, 0.734)
pt3dadd(80.745, 133.606, 39.632, 0.704)
pt3dadd(80.658, 133.676, 39.667, 0.672)
pt3dadd(80.57, 133.747, 39.701, 0.642)
pt3dadd(80.482, 133.818, 39.735, 0.61)
pt3dadd(80.394, 133.889, 39.769, 0.58)
pt3dadd(80.306, 133.96, 39.803, 0.548)
pt3dadd(80.218, 134.03, 39.838, 0.518)
pt3dadd(80.13, 134.1, 39.872, 0.486)
pt3dadd(80.041, 134.168, 39.905, 0.456)
pt3dadd(79.935, 134.215, 39.932, 0.44)
pt3dadd(79.829, 134.262, 39.958, 0.424)
pt3dadd(79.724, 134.31, 39.985, 0.406)
pt3dadd(79.618, 134.357, 40.011, 0.39)
pt3dadd(79.512, 134.404, 40.038, 0.372)
pt3dadd(79.406, 134.45, 40.065, 0.356)
pt3dadd(79.301, 134.497, 40.091, 0.338)
pt3dadd(79.195, 134.544, 40.118, 0.322)
pt3dadd(79.089, 134.591, 40.145, 0.306)
pt3dadd(78.984, 134.638, 40.173, 0.296)
pt3dadd(78.885, 134.682, 40.216, 0.334)
pt3dadd(78.786, 134.726, 40.259, 0.374)
pt3dadd(78.687, 134.771, 40.302, 0.414)
pt3dadd(78.588, 134.814, 40.345, 0.454)
pt3dadd(78.489, 134.858, 40.388, 0.494)
pt3dadd(78.39, 134.903, 40.431, 0.532)
pt3dadd(78.291, 134.947, 40.473, 0.572)
pt3dadd(78.192, 134.99, 40.516, 0.612)
pt3dadd(78.093, 135.035, 40.559, 0.652)
pt3dadd(77.995, 135.08, 40.602, 0.692)
pt3dadd(77.9, 135.132, 40.645, 0.738)
pt3dadd(77.804, 135.184, 40.689, 0.782)
pt3dadd(77.709, 135.234, 40.732, 0.828)
pt3dadd(77.614, 135.286, 40.775, 0.874)
pt3dadd(77.519, 135.337, 40.818, 0.918)
pt3dadd(77.423, 135.388, 40.862, 0.964)
pt3dadd(77.328, 135.439, 40.905, 1.01)
pt3dadd(77.233, 135.491, 40.948, 1.054)
pt3dadd(77.137, 135.541, 40.991, 1.1)
pt3dadd(77.042, 135.598, 41.03, 1.13)
pt3dadd(76.946, 135.661, 41.057, 1.13)
pt3dadd(76.85, 135.725, 41.085, 1.13)
pt3dadd(76.754, 135.788, 41.113, 1.13)
pt3dadd(76.658, 135.852, 41.141, 1.13)
pt3dadd(76.562, 135.916, 41.169, 1.13)
pt3dadd(76.465, 135.979, 41.197, 1.13)
pt3dadd(76.369, 136.043, 41.225, 1.13)
pt3dadd(76.273, 136.106, 41.253, 1.13)
pt3dadd(76.177, 136.17, 41.28, 1.13)
pt3dadd(76.078, 136.23, 41.304, 1.122)
pt3dadd(75.972, 136.284, 41.32, 1.094)
pt3dadd(75.866, 136.337, 41.335, 1.068)
pt3dadd(75.76, 136.39, 41.35, 1.04)
pt3dadd(75.654, 136.442, 41.366, 1.014)
pt3dadd(75.548, 136.495, 41.381, 0.986)
pt3dadd(75.442, 136.548, 41.396, 0.96)
pt3dadd(75.336, 136.602, 41.412, 0.932)
pt3dadd(75.23, 136.655, 41.427, 0.906)
pt3dadd(75.123, 136.708, 41.442, 0.878)
pt3dadd(75.018, 136.762, 41.456, 0.856)
pt3dadd(74.913, 136.818, 41.468, 0.842)
pt3dadd(74.808, 136.874, 41.479, 0.828)
pt3dadd(74.703, 136.932, 41.491, 0.814)
pt3dadd(74.598, 136.988, 41.502, 0.8)
pt3dadd(74.493, 137.045, 41.514, 0.788)
pt3dadd(74.388, 137.101, 41.525, 0.774)
pt3dadd(74.283, 137.158, 41.537, 0.76)
pt3dadd(74.178, 137.214, 41.548, 0.746)
pt3dadd(74.073, 137.27, 41.56, 0.732)
pt3dadd(73.969, 137.329, 41.569, 0.728)
pt3dadd(73.868, 137.393, 41.576, 0.74)
pt3dadd(73.767, 137.458, 41.583, 0.752)
pt3dadd(73.665, 137.521, 41.589, 0.764)
pt3dadd(73.564, 137.585, 41.596, 0.776)
pt3dadd(73.463, 137.648, 41.602, 0.788)
pt3dadd(73.361, 137.712, 41.609, 0.8)
pt3dadd(73.26, 137.776, 41.615, 0.812)
pt3dadd(73.158, 137.839, 41.622, 0.826)
pt3dadd(73.057, 137.903, 41.629, 0.838)
pt3dadd(72.956, 137.966, 41.636, 0.854)
pt3dadd(72.855, 138.031, 41.645, 0.878)
pt3dadd(72.754, 138.096, 41.654, 0.904)
pt3dadd(72.654, 138.16, 41.663, 0.928)
pt3dadd(72.553, 138.224, 41.672, 0.952)
pt3dadd(72.452, 138.289, 41.681, 0.978)
pt3dadd(72.351, 138.353, 41.689, 1.002)
pt3dadd(72.251, 138.418, 41.698, 1.026)
pt3dadd(72.15, 138.481, 41.707, 1.052)
pt3dadd(72.049, 138.546, 41.716, 1.076)
pt3dadd(71.949, 138.611, 41.726, 1.104)
pt3dadd(71.849, 138.676, 41.737, 1.142)
pt3dadd(71.749, 138.74, 41.748, 1.178)
pt3dadd(71.649, 138.805, 41.759, 1.214)
pt3dadd(71.549, 138.87, 41.77, 1.25)
pt3dadd(71.449, 138.935, 41.781, 1.286)
pt3dadd(71.349, 139, 41.792, 1.322)
pt3dadd(71.248, 139.064, 41.803, 1.358)
pt3dadd(71.148, 139.13, 41.814, 1.394)
pt3dadd(71.048, 139.195, 41.826, 1.43)
pt3dadd(70.947, 139.254, 41.843, 1.446)
pt3dadd(70.842, 139.302, 41.872, 1.426)
pt3dadd(70.738, 139.35, 41.901, 1.406)
pt3dadd(70.634, 139.398, 41.93, 1.386)
pt3dadd(70.529, 139.446, 41.958, 1.366)
pt3dadd(70.425, 139.494, 41.987, 1.346)
pt3dadd(70.32, 139.542, 42.016, 1.326)
pt3dadd(70.216, 139.59, 42.045, 1.306)
pt3dadd(70.112, 139.638, 42.074, 1.286)
pt3dadd(70.007, 139.686, 42.103, 1.266)
pt3dadd(69.903, 139.728, 42.136, 1.23)
pt3dadd(69.798, 139.765, 42.174, 1.178)
pt3dadd(69.694, 139.804, 42.212, 1.128)
pt3dadd(69.589, 139.841, 42.25, 1.078)
pt3dadd(69.485, 139.879, 42.288, 1.028)
pt3dadd(69.381, 139.916, 42.326, 0.976)
pt3dadd(69.276, 139.954, 42.364, 0.926)
pt3dadd(69.172, 139.992, 42.402, 0.876)
pt3dadd(69.067, 140.029, 42.439, 0.826)
pt3dadd(68.963, 140.068, 42.477, 0.774)
pt3dadd(68.854, 140.094, 42.512, 0.746)
pt3dadd(68.742, 140.11, 42.545, 0.738)
pt3dadd(68.629, 140.126, 42.577, 0.732)
pt3dadd(68.517, 140.142, 42.609, 0.724)
pt3dadd(68.404, 140.159, 42.641, 0.718)
pt3dadd(68.292, 140.176, 42.674, 0.71)
pt3dadd(68.18, 140.191, 42.706, 0.702)
pt3dadd(68.067, 140.208, 42.738, 0.696)
pt3dadd(67.955, 140.224, 42.77, 0.688)
pt3dadd(67.842, 140.24, 42.802, 0.682)
pt3dadd(67.729, 140.252, 42.833, 0.674)
pt3dadd(67.615, 140.263, 42.863, 0.668)
pt3dadd(67.501, 140.273, 42.893, 0.662)
pt3dadd(67.386, 140.282, 42.923, 0.656)
pt3dadd(67.272, 140.292, 42.952, 0.65)
pt3dadd(67.158, 140.302, 42.982, 0.642)
pt3dadd(67.044, 140.312, 43.012, 0.636)
pt3dadd(66.93, 140.322, 43.042, 0.63)
pt3dadd(66.816, 140.332, 43.071, 0.624)
pt3dadd(66.702, 140.341, 43.101, 0.618)
pt3dadd(66.586, 140.346, 43.128, 0.598)
pt3dadd(66.47, 140.346, 43.153, 0.57)
pt3dadd(66.354, 140.346, 43.177, 0.542)
pt3dadd(66.237, 140.346, 43.202, 0.512)
pt3dadd(66.121, 140.346, 43.227, 0.484)
pt3dadd(66.005, 140.346, 43.252, 0.456)
pt3dadd(65.889, 140.346, 43.276, 0.426)
pt3dadd(65.772, 140.346, 43.301, 0.398)
pt3dadd(65.656, 140.346, 43.326, 0.37)
pt3dadd(65.54, 140.346, 43.35, 0.34)
pt3dadd(65.426, 140.346, 43.381, 0.342)
pt3dadd(65.314, 140.346, 43.417, 0.368)
pt3dadd(65.202, 140.346, 43.453, 0.394)
pt3dadd(65.09, 140.346, 43.489, 0.418)
pt3dadd(64.978, 140.346, 43.526, 0.444)
pt3dadd(64.866, 140.346, 43.562, 0.47)
pt3dadd(64.754, 140.346, 43.598, 0.496)
pt3dadd(64.642, 140.346, 43.634, 0.52)
pt3dadd(64.53, 140.346, 43.67, 0.546)
pt3dadd(64.419, 140.346, 43.706, 0.572)
pt3dadd(64.308, 140.346, 43.746, 0.614)
pt3dadd(64.2, 140.346, 43.788, 0.668)
pt3dadd(64.091, 140.346, 43.83, 0.722)
pt3dadd(63.982, 140.346, 43.872, 0.778)
pt3dadd(63.873, 140.346, 43.914, 0.832)
pt3dadd(63.764, 140.346, 43.956, 0.886)
pt3dadd(63.655, 140.346, 43.998, 0.94)
pt3dadd(63.547, 140.346, 44.04, 0.994)
pt3dadd(63.438, 140.346, 44.082, 1.048)
pt3dadd(63.329, 140.346, 44.124, 1.102)
pt3dadd(63.219, 140.346, 44.164, 1.088)
pt3dadd(63.107, 140.346, 44.201, 1.028)
pt3dadd(62.996, 140.346, 44.238, 0.968)
}
}
proc shape3d_117() {
dend_7[7] { pt3dadd(62.884, 140.346, 44.275, 0.906)
pt3dadd(62.773, 140.346, 44.312, 0.846)
pt3dadd(62.661, 140.346, 44.349, 0.786)
pt3dadd(62.55, 140.346, 44.386, 0.724)
pt3dadd(62.438, 140.346, 44.423, 0.664)
pt3dadd(62.327, 140.346, 44.46, 0.604)
pt3dadd(62.216, 140.346, 44.498, 0.544)
pt3dadd(62.103, 140.346, 44.533, 0.502)
pt3dadd(61.991, 140.346, 44.567, 0.472)
pt3dadd(61.878, 140.346, 44.602, 0.442)
pt3dadd(61.766, 140.346, 44.636, 0.414)
pt3dadd(61.653, 140.346, 44.671, 0.384)
pt3dadd(61.54, 140.346, 44.705, 0.354)
pt3dadd(61.428, 140.346, 44.74, 0.326)
pt3dadd(61.315, 140.346, 44.774, 0.296)
pt3dadd(61.202, 140.346, 44.809, 0.268)
pt3dadd(61.09, 140.346, 44.843, 0.238)
pt3dadd(60.981, 140.346, 44.885, 0.226)
pt3dadd(60.875, 140.346, 44.932, 0.226)
pt3dadd(60.769, 140.346, 44.979, 0.226)
pt3dadd(60.663, 140.346, 45.026, 0.226)
pt3dadd(60.557, 140.346, 45.073, 0.226)
pt3dadd(60.451, 140.346, 45.12, 0.226)
pt3dadd(60.345, 140.346, 45.167, 0.226)
pt3dadd(60.239, 140.346, 45.214, 0.226)
pt3dadd(60.133, 140.346, 45.261, 0.226)
pt3dadd(60.027, 140.346, 45.308, 0.226)
pt3dadd(59.961, 140.346, 45.391, 0.226)
pt3dadd(59.894, 140.346, 45.474, 0.226)
pt3dadd(59.828, 140.346, 45.558, 0.226)
pt3dadd(59.761, 140.346, 45.641, 0.226)
pt3dadd(59.694, 140.346, 45.724, 0.226)
pt3dadd(59.628, 140.346, 45.807, 0.226)
pt3dadd(59.561, 140.346, 45.89, 0.226)
pt3dadd(59.495, 140.346, 45.973, 0.226)
pt3dadd(59.428, 140.346, 46.057, 0.226)
pt3dadd(59.362, 140.346, 46.14, 0.226)
}
dend_7[8] {pt3dclear()
pt3dadd(147.575, 110.052, 19.929, 0.678)
pt3dadd(147.494, 110.058, 19.895, 0.72)
pt3dadd(147.382, 110.072, 19.864, 0.776)
pt3dadd(147.269, 110.085, 19.832, 0.832)
pt3dadd(147.157, 110.098, 19.801, 0.888)
pt3dadd(147.043, 110.112, 19.77, 0.942)
pt3dadd(146.932, 110.125, 19.738, 0.998)
pt3dadd(146.819, 110.138, 19.707, 1.054)
pt3dadd(146.707, 110.151, 19.675, 1.11)
pt3dadd(146.593, 110.164, 19.644, 1.166)
pt3dadd(146.482, 110.178, 19.613, 1.22)
pt3dadd(146.37, 110.191, 19.581, 1.276)
pt3dadd(146.256, 110.204, 19.55, 1.332)
pt3dadd(146.144, 110.217, 19.518, 1.388)
pt3dadd(146.038, 110.22, 19.47, 1.37)
pt3dadd(145.933, 110.222, 19.419, 1.344)
pt3dadd(145.826, 110.224, 19.368, 1.32)
pt3dadd(145.722, 110.226, 19.318, 1.294)
pt3dadd(145.616, 110.228, 19.267, 1.268)
pt3dadd(145.511, 110.23, 19.216, 1.242)
pt3dadd(145.406, 110.232, 19.165, 1.216)
pt3dadd(145.301, 110.233, 19.115, 1.192)
pt3dadd(145.195, 110.235, 19.064, 1.166)
pt3dadd(145.09, 110.237, 19.013, 1.138)
pt3dadd(144.99, 110.233, 18.953, 1.072)
pt3dadd(144.89, 110.229, 18.893, 1.006)
pt3dadd(144.791, 110.225, 18.833, 0.938)
pt3dadd(144.691, 110.221, 18.774, 0.872)
pt3dadd(144.592, 110.217, 18.714, 0.804)
pt3dadd(144.491, 110.213, 18.654, 0.738)
pt3dadd(144.392, 110.209, 18.594, 0.672)
pt3dadd(144.293, 110.205, 18.534, 0.604)
pt3dadd(144.193, 110.2, 18.474, 0.538)
pt3dadd(144.094, 110.196, 18.415, 0.472)
pt3dadd(143.986, 110.192, 18.369, 0.478)
pt3dadd(143.878, 110.187, 18.322, 0.482)
pt3dadd(143.77, 110.183, 18.276, 0.486)
pt3dadd(143.662, 110.178, 18.229, 0.492)
pt3dadd(143.554, 110.173, 18.183, 0.496)
pt3dadd(143.447, 110.169, 18.137, 0.502)
pt3dadd(143.338, 110.164, 18.09, 0.506)
pt3dadd(143.231, 110.16, 18.044, 0.51)
pt3dadd(143.124, 110.155, 17.998, 0.516)
pt3dadd(143.015, 110.151, 17.952, 0.522)
pt3dadd(142.903, 110.146, 17.916, 0.554)
pt3dadd(142.79, 110.141, 17.879, 0.584)
pt3dadd(142.679, 110.136, 17.843, 0.616)
pt3dadd(142.566, 110.13, 17.807, 0.646)
pt3dadd(142.454, 110.125, 17.771, 0.678)
pt3dadd(142.342, 110.12, 17.735, 0.708)
pt3dadd(142.23, 110.115, 17.698, 0.74)
pt3dadd(142.117, 110.11, 17.662, 0.77)
pt3dadd(142.006, 110.105, 17.626, 0.802)
pt3dadd(141.894, 110.1, 17.591, 0.826)
pt3dadd(141.779, 110.094, 17.564, 0.784)
pt3dadd(141.665, 110.088, 17.537, 0.74)
pt3dadd(141.55, 110.081, 17.51, 0.698)
pt3dadd(141.434, 110.075, 17.483, 0.656)
pt3dadd(141.319, 110.068, 17.457, 0.614)
pt3dadd(141.205, 110.062, 17.43, 0.57)
pt3dadd(141.09, 110.056, 17.403, 0.528)
pt3dadd(140.976, 110.049, 17.376, 0.486)
pt3dadd(140.862, 110.043, 17.349, 0.442)
pt3dadd(140.746, 110.037, 17.323, 0.402)
pt3dadd(140.632, 110.027, 17.299, 0.384)
pt3dadd(140.515, 110.018, 17.275, 0.368)
pt3dadd(140.4, 110.009, 17.251, 0.35)
pt3dadd(140.285, 110, 17.227, 0.332)
pt3dadd(140.17, 109.99, 17.203, 0.314)
pt3dadd(140.054, 109.981, 17.18, 0.296)
pt3dadd(139.939, 109.972, 17.156, 0.278)
pt3dadd(139.823, 109.963, 17.132, 0.26)
pt3dadd(139.709, 109.953, 17.108, 0.242)
pt3dadd(139.594, 109.944, 17.084, 0.226)
pt3dadd(139.477, 109.933, 17.063, 0.226)
pt3dadd(139.362, 109.921, 17.041, 0.226)
pt3dadd(139.247, 109.91, 17.019, 0.226)
pt3dadd(139.132, 109.898, 16.998, 0.226)
pt3dadd(139.015, 109.887, 16.976, 0.226)
pt3dadd(138.9, 109.876, 16.955, 0.226)
pt3dadd(138.784, 109.864, 16.933, 0.226)
pt3dadd(138.67, 109.853, 16.911, 0.226)
pt3dadd(138.553, 109.841, 16.889, 0.226)
pt3dadd(138.439, 109.83, 16.865, 0.232)
pt3dadd(138.334, 109.814, 16.817, 0.298)
pt3dadd(138.227, 109.798, 16.768, 0.364)
pt3dadd(138.121, 109.782, 16.72, 0.43)
pt3dadd(138.014, 109.767, 16.671, 0.494)
pt3dadd(137.909, 109.751, 16.623, 0.56)
pt3dadd(137.802, 109.735, 16.575, 0.626)
pt3dadd(137.696, 109.72, 16.526, 0.692)
pt3dadd(137.59, 109.704, 16.478, 0.758)
pt3dadd(137.485, 109.688, 16.43, 0.822)
pt3dadd(137.378, 109.672, 16.381, 0.886)
pt3dadd(137.273, 109.648, 16.335, 0.938)
pt3dadd(137.167, 109.623, 16.289, 0.99)
pt3dadd(137.06, 109.6, 16.243, 1.04)
pt3dadd(136.955, 109.576, 16.197, 1.092)
pt3dadd(136.848, 109.552, 16.151, 1.144)
pt3dadd(136.744, 109.527, 16.105, 1.194)
pt3dadd(136.637, 109.503, 16.059, 1.246)
pt3dadd(136.531, 109.479, 16.013, 1.298)
pt3dadd(136.424, 109.455, 15.967, 1.348)
pt3dadd(136.32, 109.428, 15.922, 1.394)
pt3dadd(136.217, 109.382, 15.883, 1.406)
pt3dadd(136.114, 109.337, 15.845, 1.42)
pt3dadd(136.01, 109.292, 15.806, 1.432)
pt3dadd(135.907, 109.246, 15.767, 1.444)
pt3dadd(135.805, 109.201, 15.728, 1.458)
pt3dadd(135.701, 109.156, 15.69, 1.47)
pt3dadd(135.599, 109.11, 15.651, 1.482)
pt3dadd(135.494, 109.065, 15.612, 1.496)
pt3dadd(135.392, 109.02, 15.573, 1.508)
pt3dadd(135.288, 108.975, 15.535, 1.516)
pt3dadd(135.182, 108.938, 15.497, 1.494)
pt3dadd(135.077, 108.9, 15.46, 1.474)
pt3dadd(134.97, 108.861, 15.422, 1.452)
pt3dadd(134.864, 108.824, 15.385, 1.432)
pt3dadd(134.758, 108.786, 15.347, 1.41)
pt3dadd(134.652, 108.748, 15.31, 1.39)
pt3dadd(134.545, 108.71, 15.272, 1.368)
pt3dadd(134.44, 108.672, 15.235, 1.348)
pt3dadd(134.333, 108.634, 15.197, 1.326)
pt3dadd(134.227, 108.597, 15.16, 1.298)
pt3dadd(134.117, 108.567, 15.124, 1.244)
pt3dadd(134.009, 108.536, 15.087, 1.192)
pt3dadd(133.901, 108.505, 15.051, 1.138)
pt3dadd(133.792, 108.475, 15.015, 1.084)
pt3dadd(133.684, 108.444, 14.979, 1.03)
pt3dadd(133.574, 108.414, 14.943, 0.976)
pt3dadd(133.465, 108.383, 14.907, 0.922)
pt3dadd(133.356, 108.352, 14.871, 0.868)
pt3dadd(133.248, 108.322, 14.834, 0.814)
pt3dadd(133.14, 108.294, 14.795, 0.772)
pt3dadd(133.036, 108.276, 14.744, 0.784)
pt3dadd(132.931, 108.259, 14.693, 0.796)
pt3dadd(132.827, 108.242, 14.641, 0.808)
pt3dadd(132.724, 108.225, 14.59, 0.82)
pt3dadd(132.619, 108.207, 14.538, 0.832)
pt3dadd(132.515, 108.19, 14.487, 0.844)
pt3dadd(132.41, 108.172, 14.436, 0.856)
pt3dadd(132.307, 108.155, 14.385, 0.868)
pt3dadd(132.202, 108.138, 14.333, 0.88)
pt3dadd(132.098, 108.121, 14.281, 0.894)
pt3dadd(131.995, 108.107, 14.226, 0.918)
pt3dadd(131.893, 108.093, 14.171, 0.94)
pt3dadd(131.791, 108.08, 14.117, 0.962)
pt3dadd(131.688, 108.066, 14.062, 0.986)
pt3dadd(131.586, 108.052, 14.007, 1.008)
pt3dadd(131.483, 108.038, 13.952, 1.032)
pt3dadd(131.381, 108.024, 13.898, 1.054)
pt3dadd(131.278, 108.01, 13.843, 1.076)
pt3dadd(131.176, 107.996, 13.788, 1.1)
pt3dadd(131.075, 107.985, 13.731, 1.112)
pt3dadd(130.978, 107.982, 13.668, 1.086)
pt3dadd(130.88, 107.98, 13.604, 1.062)
pt3dadd(130.784, 107.977, 13.541, 1.038)
pt3dadd(130.687, 107.974, 13.478, 1.014)
pt3dadd(130.59, 107.972, 13.415, 0.99)
pt3dadd(130.493, 107.969, 13.351, 0.966)
pt3dadd(130.396, 107.967, 13.288, 0.942)
pt3dadd(130.3, 107.964, 13.225, 0.918)
pt3dadd(130.201, 107.961, 13.161, 0.894)
}
}
proc shape3d_118() {
dend_7[8] { pt3dadd(130.205, 107.958, 13.153, 0.894)
pt3dadd(130.207, 107.955, 13.145, 0.894)
pt3dadd(130.11, 107.953, 13.083, 0.874)
pt3dadd(130.01, 107.95, 13.022, 0.864)
pt3dadd(129.912, 107.947, 12.962, 0.854)
pt3dadd(129.812, 107.945, 12.902, 0.842)
pt3dadd(129.713, 107.942, 12.842, 0.832)
pt3dadd(129.613, 107.94, 12.782, 0.822)
pt3dadd(129.514, 107.937, 12.722, 0.812)
pt3dadd(129.415, 107.934, 12.662, 0.802)
pt3dadd(129.314, 107.932, 12.602, 0.792)
pt3dadd(129.216, 107.929, 12.542, 0.782)
pt3dadd(129.113, 107.927, 12.486, 0.788)
pt3dadd(129.005, 107.924, 12.442, 0.842)
pt3dadd(128.896, 107.922, 12.398, 0.896)
pt3dadd(128.786, 107.92, 12.353, 0.95)
pt3dadd(128.678, 107.918, 12.309, 1.004)
pt3dadd(128.569, 107.916, 12.265, 1.058)
pt3dadd(128.461, 107.914, 12.22, 1.112)
pt3dadd(128.351, 107.911, 12.176, 1.166)
pt3dadd(128.243, 107.909, 12.132, 1.22)
pt3dadd(128.134, 107.907, 12.088, 1.274)
pt3dadd(128.024, 107.905, 12.046, 1.314)
pt3dadd(127.912, 107.903, 12.01, 1.32)
pt3dadd(127.8, 107.902, 11.975, 1.326)
pt3dadd(127.687, 107.9, 11.94, 1.332)
pt3dadd(127.574, 107.898, 11.904, 1.336)
pt3dadd(127.463, 107.897, 11.869, 1.342)
pt3dadd(127.35, 107.895, 11.833, 1.348)
pt3dadd(127.238, 107.893, 11.798, 1.354)
pt3dadd(127.124, 107.892, 11.762, 1.36)
pt3dadd(127.013, 107.89, 11.727, 1.364)
pt3dadd(126.899, 107.889, 11.695, 1.354)
pt3dadd(126.785, 107.887, 11.668, 1.312)
pt3dadd(126.67, 107.886, 11.642, 1.27)
pt3dadd(126.554, 107.885, 11.616, 1.228)
pt3dadd(126.44, 107.884, 11.59, 1.184)
pt3dadd(126.325, 107.883, 11.563, 1.142)
pt3dadd(126.21, 107.882, 11.537, 1.1)
pt3dadd(126.095, 107.88, 11.511, 1.056)
pt3dadd(125.981, 107.879, 11.485, 1.014)
pt3dadd(125.864, 107.878, 11.458, 0.972)
pt3dadd(125.75, 107.877, 11.434, 0.942)
pt3dadd(125.634, 107.878, 11.413, 0.938)
pt3dadd(125.519, 107.878, 11.392, 0.934)
pt3dadd(125.401, 107.879, 11.371, 0.93)
pt3dadd(125.286, 107.88, 11.35, 0.926)
pt3dadd(125.171, 107.88, 11.33, 0.922)
pt3dadd(125.054, 107.881, 11.309, 0.918)
pt3dadd(124.939, 107.882, 11.288, 0.914)
pt3dadd(124.823, 107.882, 11.267, 0.91)
pt3dadd(124.708, 107.883, 11.246, 0.906)
pt3dadd(124.591, 107.884, 11.222, 0.906)
pt3dadd(124.477, 107.886, 11.193, 0.91)
pt3dadd(124.363, 107.889, 11.164, 0.914)
pt3dadd(124.249, 107.891, 11.135, 0.918)
pt3dadd(124.134, 107.894, 11.106, 0.924)
pt3dadd(124.021, 107.896, 11.076, 0.928)
pt3dadd(123.907, 107.899, 11.047, 0.932)
pt3dadd(123.793, 107.901, 11.018, 0.936)
pt3dadd(123.679, 107.904, 10.989, 0.942)
pt3dadd(123.564, 107.906, 10.959, 0.946)
pt3dadd(123.454, 107.91, 10.923, 0.954)
pt3dadd(123.346, 107.915, 10.877, 0.968)
pt3dadd(123.239, 107.921, 10.83, 0.98)
pt3dadd(123.131, 107.926, 10.784, 0.994)
pt3dadd(123.023, 107.931, 10.738, 1.006)
pt3dadd(122.916, 107.937, 10.691, 1.02)
pt3dadd(122.808, 107.942, 10.645, 1.034)
pt3dadd(122.701, 107.948, 10.598, 1.046)
pt3dadd(122.593, 107.953, 10.552, 1.06)
pt3dadd(122.486, 107.958, 10.505, 1.074)
pt3dadd(122.377, 107.966, 10.462, 1.084)
pt3dadd(122.267, 107.975, 10.423, 1.088)
pt3dadd(122.156, 107.985, 10.384, 1.094)
pt3dadd(122.046, 107.994, 10.345, 1.098)
pt3dadd(121.936, 108.004, 10.306, 1.102)
pt3dadd(121.825, 108.014, 10.267, 1.108)
pt3dadd(121.716, 108.023, 10.228, 1.112)
pt3dadd(121.604, 108.033, 10.189, 1.118)
pt3dadd(121.495, 108.043, 10.149, 1.122)
pt3dadd(121.384, 108.052, 10.11, 1.128)
pt3dadd(121.273, 108.063, 10.073, 1.13)
pt3dadd(121.162, 108.075, 10.038, 1.13)
pt3dadd(121.05, 108.087, 10.004, 1.13)
pt3dadd(120.938, 108.099, 9.969, 1.13)
pt3dadd(120.827, 108.111, 9.934, 1.13)
pt3dadd(120.715, 108.123, 9.899, 1.13)
pt3dadd(120.604, 108.135, 9.865, 1.13)
pt3dadd(120.492, 108.147, 9.83, 1.13)
pt3dadd(120.38, 108.159, 9.795, 1.13)
pt3dadd(120.269, 108.171, 9.761, 1.13)
pt3dadd(120.16, 108.196, 9.73, 1.124)
pt3dadd(120.054, 108.24, 9.705, 1.112)
pt3dadd(119.948, 108.284, 9.679, 1.098)
pt3dadd(119.843, 108.327, 9.654, 1.086)
pt3dadd(119.737, 108.371, 9.629, 1.072)
pt3dadd(119.632, 108.414, 9.604, 1.06)
pt3dadd(119.526, 108.458, 9.579, 1.046)
pt3dadd(119.42, 108.501, 9.554, 1.034)
pt3dadd(119.315, 108.545, 9.528, 1.02)
pt3dadd(119.209, 108.589, 9.503, 1.006)
pt3dadd(119.103, 108.631, 9.478, 0.99)
pt3dadd(119.106, 108.628, 9.47, 0.99)
pt3dadd(118.999, 108.669, 9.446, 0.97)
pt3dadd(118.892, 108.71, 9.422, 0.95)
pt3dadd(118.785, 108.751, 9.399, 0.928)
pt3dadd(118.678, 108.792, 9.375, 0.908)
pt3dadd(118.571, 108.833, 9.351, 0.888)
pt3dadd(118.464, 108.873, 9.327, 0.866)
pt3dadd(118.357, 108.914, 9.303, 0.846)
pt3dadd(118.25, 108.955, 9.279, 0.826)
pt3dadd(118.143, 108.996, 9.255, 0.804)
pt3dadd(118.034, 109.033, 9.232, 0.774)
pt3dadd(117.924, 109.067, 9.212, 0.734)
pt3dadd(117.814, 109.1, 9.191, 0.692)
pt3dadd(117.703, 109.133, 9.171, 0.652)
pt3dadd(117.593, 109.166, 9.15, 0.61)
pt3dadd(117.483, 109.199, 9.13, 0.57)
pt3dadd(117.372, 109.232, 9.109, 0.53)
pt3dadd(117.262, 109.265, 9.088, 0.488)
pt3dadd(117.151, 109.298, 9.068, 0.448)
pt3dadd(117.041, 109.331, 9.047, 0.406)
pt3dadd(116.931, 109.362, 9.02, 0.376)
pt3dadd(116.823, 109.388, 8.982, 0.36)
pt3dadd(116.716, 109.414, 8.945, 0.344)
pt3dadd(116.607, 109.441, 8.908, 0.328)
pt3dadd(116.5, 109.467, 8.871, 0.312)
pt3dadd(116.392, 109.493, 8.834, 0.296)
pt3dadd(116.284, 109.52, 8.797, 0.28)
pt3dadd(116.176, 109.546, 8.76, 0.266)
pt3dadd(116.068, 109.572, 8.723, 0.25)
pt3dadd(115.96, 109.599, 8.685, 0.234)
pt3dadd(115.854, 109.623, 8.643, 0.226)
pt3dadd(115.749, 109.644, 8.596, 0.226)
pt3dadd(115.644, 109.666, 8.549, 0.226)
pt3dadd(115.539, 109.687, 8.502, 0.226)
pt3dadd(115.434, 109.709, 8.455, 0.226)
pt3dadd(115.33, 109.731, 8.409, 0.226)
pt3dadd(115.225, 109.752, 8.362, 0.226)
pt3dadd(115.228, 109.749, 8.354, 0.226)
pt3dadd(115.123, 109.771, 8.307, 0.226)
pt3dadd(115.018, 109.792, 8.26, 0.226)
pt3dadd(114.914, 109.814, 8.213, 0.226)
pt3dadd(114.809, 109.844, 8.171, 0.256)
pt3dadd(114.705, 109.882, 8.132, 0.312)
pt3dadd(114.602, 109.92, 8.094, 0.368)
pt3dadd(114.498, 109.957, 8.056, 0.426)
pt3dadd(114.394, 109.995, 8.018, 0.482)
pt3dadd(114.29, 110.033, 7.98, 0.538)
pt3dadd(114.186, 110.071, 7.942, 0.594)
pt3dadd(114.082, 110.109, 7.903, 0.65)
pt3dadd(113.978, 110.146, 7.865, 0.706)
pt3dadd(113.874, 110.184, 7.827, 0.764)
pt3dadd(113.77, 110.222, 7.79, 0.82)
pt3dadd(113.666, 110.26, 7.754, 0.874)
pt3dadd(113.561, 110.299, 7.718, 0.93)
pt3dadd(113.457, 110.337, 7.681, 0.984)
pt3dadd(113.352, 110.375, 7.645, 1.04)
pt3dadd(113.248, 110.413, 7.609, 1.096)
pt3dadd(113.143, 110.452, 7.573, 1.15)
pt3dadd(113.039, 110.49, 7.537, 1.206)
pt3dadd(112.934, 110.528, 7.5, 1.262)
pt3dadd(112.83, 110.566, 7.464, 1.316)
pt3dadd(112.722, 110.597, 7.431, 1.332)
pt3dadd(112.612, 110.623, 7.4, 1.318)
pt3dadd(112.502, 110.648, 7.369, 1.306)
pt3dadd(112.392, 110.674, 7.338, 1.292)
pt3dadd(112.281, 110.699, 7.307, 1.278)
pt3dadd(112.171, 110.725, 7.276, 1.264)
pt3dadd(112.061, 110.751, 7.245, 1.25)
pt3dadd(111.951, 110.776, 7.214, 1.236)
pt3dadd(111.84, 110.802, 7.184, 1.224)
pt3dadd(111.73, 110.827, 7.153, 1.21)
pt3dadd(111.62, 110.849, 7.117, 1.192)
pt3dadd(111.511, 110.868, 7.079, 1.174)
pt3dadd(111.402, 110.886, 7.04, 1.154)
pt3dadd(111.293, 110.905, 7.001, 1.134)
pt3dadd(111.184, 110.923, 6.963, 1.114)
pt3dadd(111.187, 110.92, 6.955, 1.114)
pt3dadd(111.078, 110.939, 6.916, 1.094)
pt3dadd(110.969, 110.958, 6.877, 1.076)
pt3dadd(110.972, 110.955, 6.869, 1.076)
pt3dadd(110.862, 110.973, 6.831, 1.056)
pt3dadd(110.753, 110.992, 6.792, 1.036)
pt3dadd(110.644, 111.011, 6.753, 1.016)
pt3dadd(110.537, 111.024, 6.709, 0.992)
pt3dadd(110.43, 111.034, 6.662, 0.966)
pt3dadd(110.324, 111.045, 6.615, 0.94)
pt3dadd(110.217, 111.055, 6.568, 0.914)
pt3dadd(110.111, 111.065, 6.52, 0.888)
pt3dadd(110.004, 111.076, 6.473, 0.86)
pt3dadd(109.898, 111.086, 6.426, 0.834)
pt3dadd(109.791, 111.096, 6.378, 0.808)
pt3dadd(109.684, 111.107, 6.331, 0.782)
pt3dadd(109.578, 111.117, 6.284, 0.756)
pt3dadd(109.469, 111.122, 6.241, 0.728)
pt3dadd(109.359, 111.124, 6.2, 0.7)
pt3dadd(109.249, 111.127, 6.159, 0.674)
pt3dadd(109.138, 111.129, 6.118, 0.646)
}
}
proc shape3d_119() {
dend_7[8] { pt3dadd(109.028, 111.131, 6.078, 0.618)
pt3dadd(108.918, 111.133, 6.037, 0.592)
pt3dadd(108.808, 111.135, 5.996, 0.564)
pt3dadd(108.697, 111.137, 5.955, 0.536)
pt3dadd(108.587, 111.14, 5.915, 0.51)
pt3dadd(108.477, 111.142, 5.874, 0.482)
pt3dadd(108.366, 111.143, 5.835, 0.46)
pt3dadd(108.369, 111.14, 5.827, 0.46)
pt3dadd(108.257, 111.139, 5.789, 0.442)
pt3dadd(108.146, 111.139, 5.752, 0.424)
pt3dadd(108.034, 111.139, 5.714, 0.404)
pt3dadd(107.922, 111.139, 5.677, 0.386)
pt3dadd(107.811, 111.139, 5.639, 0.368)
pt3dadd(107.699, 111.139, 5.602, 0.348)
pt3dadd(107.588, 111.139, 5.564, 0.33)
pt3dadd(107.476, 111.139, 5.527, 0.312)
pt3dadd(107.364, 111.139, 5.489, 0.292)
pt3dadd(107.252, 111.14, 5.456, 0.322)
pt3dadd(107.138, 111.143, 5.426, 0.378)
pt3dadd(107.024, 111.145, 5.395, 0.434)
pt3dadd(106.91, 111.147, 5.365, 0.49)
pt3dadd(106.913, 111.144, 5.357, 0.49)
pt3dadd(106.799, 111.147, 5.326, 0.548)
pt3dadd(106.686, 111.149, 5.296, 0.604)
pt3dadd(106.572, 111.152, 5.265, 0.66)
pt3dadd(106.458, 111.154, 5.235, 0.716)
pt3dadd(106.344, 111.156, 5.205, 0.772)
pt3dadd(106.231, 111.159, 5.174, 0.828)
pt3dadd(106.118, 111.163, 5.139, 0.868)
pt3dadd(106.007, 111.169, 5.101, 0.896)
pt3dadd(105.896, 111.174, 5.063, 0.924)
pt3dadd(105.785, 111.18, 5.025, 0.952)
pt3dadd(105.674, 111.185, 4.987, 0.98)
pt3dadd(105.563, 111.191, 4.948, 1.008)
pt3dadd(105.452, 111.197, 4.91, 1.036)
pt3dadd(105.341, 111.202, 4.872, 1.064)
pt3dadd(105.23, 111.208, 4.834, 1.092)
pt3dadd(105.118, 111.213, 4.796, 1.12)
pt3dadd(105.01, 111.221, 4.753, 1.13)
pt3dadd(104.902, 111.23, 4.708, 1.13)
pt3dadd(104.795, 111.239, 4.662, 1.13)
pt3dadd(104.687, 111.248, 4.617, 1.13)
pt3dadd(104.579, 111.257, 4.571, 1.13)
pt3dadd(104.472, 111.266, 4.526, 1.13)
pt3dadd(104.364, 111.274, 4.48, 1.13)
pt3dadd(104.256, 111.283, 4.435, 1.13)
pt3dadd(104.149, 111.292, 4.39, 1.13)
pt3dadd(104.041, 111.301, 4.344, 1.13)
pt3dadd(103.932, 111.316, 4.306, 1.138)
pt3dadd(103.821, 111.334, 4.271, 1.148)
pt3dadd(103.71, 111.352, 4.236, 1.16)
pt3dadd(103.6, 111.37, 4.201, 1.172)
pt3dadd(103.489, 111.388, 4.166, 1.182)
pt3dadd(103.378, 111.406, 4.132, 1.194)
pt3dadd(103.268, 111.424, 4.097, 1.206)
pt3dadd(103.157, 111.442, 4.062, 1.216)
pt3dadd(103.046, 111.461, 4.027, 1.228)
pt3dadd(102.936, 111.479, 3.992, 1.238)
pt3dadd(102.825, 111.503, 3.961, 1.242)
pt3dadd(102.715, 111.529, 3.93, 1.242)
pt3dadd(102.605, 111.556, 3.9, 1.242)
pt3dadd(102.495, 111.583, 3.87, 1.242)
pt3dadd(102.385, 111.609, 3.84, 1.242)
pt3dadd(102.275, 111.636, 3.81, 1.242)
pt3dadd(102.164, 111.663, 3.78, 1.244)
pt3dadd(102.054, 111.689, 3.749, 1.244)
pt3dadd(101.944, 111.716, 3.719, 1.244)
pt3dadd(101.834, 111.742, 3.689, 1.244)
pt3dadd(101.731, 111.791, 3.667, 1.194)
pt3dadd(101.63, 111.846, 3.648, 1.13)
pt3dadd(101.528, 111.901, 3.629, 1.066)
pt3dadd(101.427, 111.956, 3.61, 1.002)
pt3dadd(101.326, 112.011, 3.591, 0.94)
pt3dadd(101.225, 112.066, 3.572, 0.876)
pt3dadd(101.124, 112.121, 3.552, 0.812)
pt3dadd(101.022, 112.176, 3.533, 0.748)
pt3dadd(100.921, 112.231, 3.514, 0.684)
pt3dadd(100.82, 112.286, 3.495, 0.622)
pt3dadd(100.721, 112.345, 3.479, 0.578)
pt3dadd(100.623, 112.406, 3.463, 0.54)
pt3dadd(100.525, 112.467, 3.447, 0.5)
pt3dadd(100.427, 112.528, 3.431, 0.462)
pt3dadd(100.329, 112.588, 3.416, 0.424)
pt3dadd(100.23, 112.649, 3.4, 0.386)
pt3dadd(100.132, 112.71, 3.384, 0.348)
pt3dadd(100.034, 112.771, 3.369, 0.31)
pt3dadd(99.936, 112.831, 3.353, 0.272)
pt3dadd(99.837, 112.892, 3.337, 0.234)
pt3dadd(99.744, 112.959, 3.326, 0.226)
pt3dadd(99.65, 113.028, 3.315, 0.226)
pt3dadd(99.557, 113.097, 3.305, 0.226)
pt3dadd(99.464, 113.166, 3.294, 0.226)
pt3dadd(99.467, 113.163, 3.286, 0.226)
pt3dadd(99.374, 113.231, 3.276, 0.226)
pt3dadd(99.281, 113.3, 3.265, 0.226)
pt3dadd(99.188, 113.369, 3.255, 0.226)
pt3dadd(99.095, 113.438, 3.244, 0.226)
pt3dadd(99.002, 113.507, 3.234, 0.226)
pt3dadd(98.909, 113.575, 3.223, 0.226)
pt3dadd(98.811, 113.638, 3.211, 0.248)
pt3dadd(98.713, 113.699, 3.198, 0.276)
pt3dadd(98.615, 113.759, 3.185, 0.304)
pt3dadd(98.516, 113.82, 3.173, 0.332)
pt3dadd(98.418, 113.881, 3.16, 0.36)
pt3dadd(98.319, 113.942, 3.147, 0.388)
pt3dadd(98.221, 114.003, 3.135, 0.416)
pt3dadd(98.122, 114.063, 3.122, 0.444)
pt3dadd(98.024, 114.124, 3.109, 0.472)
pt3dadd(97.926, 114.185, 3.096, 0.5)
pt3dadd(97.824, 114.239, 3.082, 0.55)
pt3dadd(97.721, 114.292, 3.067, 0.604)
pt3dadd(97.618, 114.345, 3.052, 0.66)
pt3dadd(97.515, 114.398, 3.037, 0.714)
pt3dadd(97.412, 114.451, 3.022, 0.77)
pt3dadd(97.309, 114.504, 3.007, 0.824)
pt3dadd(97.206, 114.556, 2.993, 0.88)
pt3dadd(97.104, 114.609, 2.978, 0.934)
pt3dadd(97.001, 114.662, 2.963, 0.99)
pt3dadd(96.898, 114.715, 2.948, 1.044)
pt3dadd(96.798, 114.772, 2.93, 1.03)
pt3dadd(96.699, 114.831, 2.911, 1.002)
pt3dadd(96.6, 114.889, 2.892, 0.974)
pt3dadd(96.501, 114.948, 2.873, 0.946)
pt3dadd(96.401, 115.006, 2.854, 0.918)
pt3dadd(96.302, 115.065, 2.836, 0.89)
pt3dadd(96.203, 115.123, 2.817, 0.862)
pt3dadd(96.104, 115.182, 2.798, 0.832)
pt3dadd(96.004, 115.24, 2.779, 0.804)
pt3dadd(96.008, 115.237, 2.771, 0.804)
pt3dadd(95.908, 115.296, 2.752, 0.776)
pt3dadd(95.81, 115.353, 2.725, 0.748)
pt3dadd(95.713, 115.41, 2.696, 0.72)
pt3dadd(95.615, 115.468, 2.667, 0.692)
pt3dadd(95.517, 115.525, 2.638, 0.664)
pt3dadd(95.42, 115.582, 2.609, 0.636)
pt3dadd(95.322, 115.639, 2.58, 0.608)
pt3dadd(95.225, 115.697, 2.551, 0.578)
pt3dadd(95.127, 115.754, 2.522, 0.55)
pt3dadd(95.029, 115.811, 2.493, 0.522)
pt3dadd(94.932, 115.868, 2.464, 0.494)
pt3dadd(94.844, 115.914, 2.405, 0.512)
pt3dadd(94.756, 115.96, 2.345, 0.53)
pt3dadd(94.668, 116.006, 2.286, 0.548)
pt3dadd(94.581, 116.051, 2.227, 0.568)
pt3dadd(94.493, 116.097, 2.167, 0.586)
pt3dadd(94.405, 116.143, 2.108, 0.604)
pt3dadd(94.318, 116.189, 2.048, 0.622)
pt3dadd(94.23, 116.234, 1.989, 0.64)
pt3dadd(94.142, 116.28, 1.93, 0.658)
pt3dadd(94.055, 116.326, 1.87, 0.678)
pt3dadd(93.949, 116.357, 1.831, 0.694)
pt3dadd(93.843, 116.388, 1.791, 0.712)
pt3dadd(93.737, 116.419, 1.752, 0.73)
pt3dadd(93.632, 116.45, 1.713, 0.748)
pt3dadd(93.635, 116.447, 1.705, 0.748)
pt3dadd(93.529, 116.478, 1.665, 0.764)
pt3dadd(93.423, 116.509, 1.626, 0.782)
pt3dadd(93.318, 116.541, 1.587, 0.8)
pt3dadd(93.212, 116.572, 1.547, 0.818)
pt3dadd(93.106, 116.603, 1.508, 0.834)
pt3dadd(93, 116.634, 1.469, 0.852)
pt3dadd(92.895, 116.677, 1.442, 0.848)
pt3dadd(92.79, 116.72, 1.415, 0.842)
pt3dadd(92.684, 116.763, 1.389, 0.836)
pt3dadd(92.579, 116.807, 1.362, 0.832)
pt3dadd(92.473, 116.85, 1.335, 0.826)
pt3dadd(92.368, 116.893, 1.308, 0.82)
pt3dadd(92.262, 116.936, 1.281, 0.816)
pt3dadd(92.157, 116.979, 1.255, 0.81)
pt3dadd(92.052, 117.022, 1.228, 0.806)
pt3dadd(91.946, 117.066, 1.202, 0.8)
pt3dadd(91.84, 117.111, 1.182, 0.788)
pt3dadd(91.734, 117.156, 1.162, 0.774)
pt3dadd(91.628, 117.2, 1.142, 0.762)
pt3dadd(91.522, 117.245, 1.122, 0.75)
pt3dadd(91.416, 117.29, 1.102, 0.738)
pt3dadd(91.31, 117.335, 1.082, 0.726)
pt3dadd(91.204, 117.38, 1.062, 0.714)
pt3dadd(91.098, 117.425, 1.042, 0.702)
pt3dadd(90.992, 117.47, 1.022, 0.69)
pt3dadd(90.885, 117.513, 1.002, 0.678)
pt3dadd(90.773, 117.543, 0.989, 0.678)
pt3dadd(90.661, 117.573, 0.976, 0.678)
pt3dadd(90.549, 117.603, 0.963, 0.678)
pt3dadd(90.436, 117.633, 0.95, 0.678)
pt3dadd(90.324, 117.663, 0.937, 0.678)
pt3dadd(90.212, 117.692, 0.924, 0.678)
pt3dadd(90.1, 117.722, 0.911, 0.678)
pt3dadd(89.987, 117.752, 0.898, 0.678)
pt3dadd(89.875, 117.782, 0.885, 0.678)
pt3dadd(89.763, 117.811, 0.872, 0.678)
pt3dadd(89.649, 117.835, 0.857, 0.668)
pt3dadd(89.536, 117.859, 0.843, 0.66)
pt3dadd(89.422, 117.883, 0.828, 0.652)
pt3dadd(89.308, 117.907, 0.813, 0.642)
pt3dadd(89.195, 117.931, 0.799, 0.634)
pt3dadd(89.081, 117.955, 0.784, 0.626)
pt3dadd(88.968, 117.979, 0.769, 0.616)
pt3dadd(88.854, 118.003, 0.754, 0.608)
pt3dadd(88.741, 118.027, 0.74, 0.598)
}
}
proc shape3d_120() {
dend_7[8] { pt3dadd(88.627, 118.051, 0.725, 0.59)
pt3dadd(88.513, 118.07, 0.707, 0.576)
pt3dadd(88.398, 118.09, 0.69, 0.562)
pt3dadd(88.284, 118.109, 0.672, 0.548)
pt3dadd(88.287, 118.106, 0.664, 0.548)
pt3dadd(88.173, 118.126, 0.646, 0.534)
pt3dadd(88.059, 118.145, 0.629, 0.52)
pt3dadd(87.944, 118.165, 0.611, 0.506)
pt3dadd(87.83, 118.184, 0.594, 0.492)
pt3dadd(87.716, 118.204, 0.576, 0.478)
pt3dadd(87.601, 118.223, 0.559, 0.464)
pt3dadd(87.488, 118.242, 0.539, 0.452)
pt3dadd(87.378, 118.255, 0.5, 0.452)
pt3dadd(87.268, 118.269, 0.46, 0.452)
pt3dadd(87.158, 118.282, 0.421, 0.452)
pt3dadd(87.048, 118.294, 0.382, 0.452)
pt3dadd(86.939, 118.308, 0.343, 0.452)
pt3dadd(86.829, 118.321, 0.303, 0.452)
pt3dadd(86.719, 118.335, 0.264, 0.452)
pt3dadd(86.609, 118.347, 0.225, 0.452)
pt3dadd(86.499, 118.361, 0.186, 0.452)
pt3dadd(86.39, 118.377, 0.148, 0.45)
pt3dadd(86.283, 118.414, 0.12, 0.44)
pt3dadd(86.175, 118.452, 0.092, 0.43)
pt3dadd(86.068, 118.489, 0.064, 0.42)
pt3dadd(85.96, 118.527, 0.036, 0.41)
pt3dadd(85.853, 118.565, 0.008, 0.4)
pt3dadd(85.746, 118.603, -0.019, 0.39)
pt3dadd(85.638, 118.639, -0.047, 0.38)
pt3dadd(85.531, 118.677, -0.075, 0.37)
pt3dadd(85.424, 118.715, -0.103, 0.36)
pt3dadd(85.318, 118.758, -0.123, 0.35)
pt3dadd(85.217, 118.815, -0.123, 0.336)
pt3dadd(85.116, 118.871, -0.123, 0.322)
pt3dadd(85.015, 118.926, -0.123, 0.308)
pt3dadd(84.914, 118.982, -0.123, 0.294)
pt3dadd(84.813, 119.038, -0.123, 0.28)
pt3dadd(84.712, 119.094, -0.123, 0.268)
pt3dadd(84.611, 119.151, -0.123, 0.254)
pt3dadd(84.51, 119.207, -0.123, 0.24)
pt3dadd(84.409, 119.262, -0.123, 0.226)
pt3dadd(84.344, 119.31, -0.061, 0.226)
pt3dadd(84.28, 119.358, 0.002, 0.226)
pt3dadd(84.215, 119.406, 0.064, 0.226)
pt3dadd(84.15, 119.454, 0.127, 0.226)
pt3dadd(84.085, 119.502, 0.19, 0.226)
pt3dadd(84.021, 119.55, 0.252, 0.226)
pt3dadd(83.956, 119.598, 0.315, 0.226)
pt3dadd(83.959, 119.595, 0.307, 0.226)
pt3dadd(83.962, 119.592, 0.299, 0.226)
pt3dadd(83.897, 119.64, 0.361, 0.226)
pt3dadd(83.832, 119.688, 0.424, 0.226)
pt3dadd(83.768, 119.736, 0.487, 0.226)
pt3dadd(83.771, 119.734, 0.478, 0.904)
pt3dadd(83.774, 119.731, 0.47, 0.904)
pt3dadd(83.668, 119.736, 0.42, 0.988)
pt3dadd(83.563, 119.74, 0.37, 1.074)
pt3dadd(83.457, 119.745, 0.32, 1.158)
pt3dadd(83.351, 119.75, 0.27, 1.244)
pt3dadd(83.246, 119.755, 0.22, 1.328)
pt3dadd(83.153, 119.802, 0.169, 1.452)
pt3dadd(83.062, 119.851, 0.117, 1.568)
pt3dadd(82.975, 119.9, 0.059, 1.638)
pt3dadd(82.905, 119.952, -0.01, 1.698)
pt3dadd(82.864, 120.007, -0.097, 1.74)
pt3dadd(82.847, 120.088, -0.169, 1.764)
pt3dadd(82.851, 120.188, -0.227, 1.776)
pt3dadd(82.854, 120.29, -0.284, 1.782)
pt3dadd(82.857, 120.395, -0.337, 1.782)
pt3dadd(82.86, 120.499, -0.39, 1.716)
pt3dadd(82.863, 120.604, -0.443, 1.594)
pt3dadd(82.866, 120.708, -0.495, 1.514)
pt3dadd(82.84, 120.804, -0.551, 1.516)
pt3dadd(82.753, 120.86, -0.594, 1.606)
pt3dadd(82.645, 120.871, -0.637, 1.814)
pt3dadd(82.537, 120.868, -0.681, 1.974)
pt3dadd(82.422, 120.865, -0.706, 2.03)
pt3dadd(82.306, 120.862, -0.726, 2.01)
pt3dadd(82.196, 120.859, -0.765, 1.95)
pt3dadd(82.107, 120.847, -0.836, 1.914)
pt3dadd(82.019, 120.823, -0.908, 1.926)
pt3dadd(81.956, 120.79, -0.991, 1.966)
pt3dadd(81.917, 120.745, -1.086, 2.032)
pt3dadd(81.872, 120.724, -1.182, 2.136)
pt3dadd(81.796, 120.721, -1.265, 2.164)
pt3dadd(81.716, 120.718, -1.345, 2.168)
pt3dadd(81.636, 120.715, -1.425, 2.174)
pt3dadd(81.555, 120.712, -1.505, 2.18)
pt3dadd(81.475, 120.709, -1.585, 2.184)
pt3dadd(81.397, 120.664, -1.656, 2.158)
pt3dadd(81.319, 120.612, -1.726, 2.128)
pt3dadd(81.241, 120.56, -1.796, 2.098)
pt3dadd(81.163, 120.509, -1.866, 2.066)
pt3dadd(81.083, 120.487, -1.943, 2.04)
pt3dadd(81.001, 120.476, -2.021, 2.012)
pt3dadd(80.92, 120.464, -2.1, 1.986)
pt3dadd(80.838, 120.454, -2.179, 1.96)
pt3dadd(80.757, 120.442, -2.257, 1.932)
pt3dadd(80.672, 120.439, -2.333, 1.874)
pt3dadd(80.587, 120.436, -2.409, 1.814)
pt3dadd(80.492, 120.433, -2.475, 1.788)
pt3dadd(80.396, 120.43, -2.54, 1.764)
pt3dadd(80.356, 120.414, -2.634, 1.758)
pt3dadd(80.336, 120.394, -2.74, 1.758)
pt3dadd(80.327, 120.367, -2.844, 1.758)
pt3dadd(80.33, 120.33, -2.949, 1.758)
pt3dadd(80.331, 120.295, -3.053, 1.758)
pt3dadd(80.278, 120.286, -3.149, 1.734)
pt3dadd(80.226, 120.277, -3.245, 1.71)
pt3dadd(80.229, 120.274, -3.253, 1.71)
pt3dadd(80.129, 120.23, -3.283, 1.59)
pt3dadd(80.038, 120.152, -3.291, 1.532)
pt3dadd(79.947, 120.076, -3.3, 1.53)
pt3dadd(79.838, 120.042, -3.328, 1.484)
pt3dadd(79.734, 120.031, -3.38, 1.456)
pt3dadd(79.634, 120.028, -3.438, 1.456)
pt3dadd(79.565, 120.025, -3.516, 1.474)
pt3dadd(79.542, 120.023, -3.622, 1.514)
pt3dadd(79.519, 120.019, -3.728, 1.554)
pt3dadd(79.489, 120.016, -3.832, 1.66)
pt3dadd(79.458, 120.007, -3.936, 1.692)
pt3dadd(79.426, 119.998, -4.04, 1.726)
pt3dadd(79.422, 119.963, -4.142, 1.716)
pt3dadd(79.425, 119.921, -4.245, 1.694)
pt3dadd(79.428, 119.918, -4.253, 1.694)
pt3dadd(79.422, 119.889, -4.357, 1.674)
pt3dadd(79.404, 119.881, -4.464, 1.654)
pt3dadd(79.386, 119.873, -4.57, 1.634)
pt3dadd(79.305, 119.869, -4.648, 1.61)
pt3dadd(79.22, 119.866, -4.724, 1.586)
pt3dadd(79.137, 119.863, -4.802, 1.61)
pt3dadd(79.051, 119.851, -4.875, 1.64)
pt3dadd(78.956, 119.824, -4.937, 1.664)
pt3dadd(78.861, 119.798, -4.999, 1.686)
pt3dadd(78.766, 119.771, -5.062, 1.708)
pt3dadd(78.671, 119.744, -5.124, 1.73)
pt3dadd(78.609, 119.709, -5.211, 1.764)
pt3dadd(78.551, 119.672, -5.301, 1.798)
pt3dadd(78.493, 119.636, -5.39, 1.832)
pt3dadd(78.435, 119.599, -5.48, 1.866)
pt3dadd(78.391, 119.53, -5.555, 1.92)
pt3dadd(78.358, 119.433, -5.617, 1.988)
pt3dadd(78.276, 119.382, -5.669, 2.034)
pt3dadd(78.172, 119.353, -5.716, 2.072)
pt3dadd(78.086, 119.31, -5.779, 2.084)
pt3dadd(78.006, 119.262, -5.85, 2.084)
pt3dadd(77.894, 119.241, -5.867, 2.048)
pt3dadd(77.778, 119.223, -5.88, 2.01)
pt3dadd(77.663, 119.21, -5.9, 1.954)
pt3dadd(77.551, 119.207, -5.935, 1.86)
pt3dadd(77.439, 119.204, -5.972, 1.81)
pt3dadd(77.328, 119.201, -6.01, 1.78)
pt3dadd(77.216, 119.198, -6.048, 1.748)
pt3dadd(77.105, 119.195, -6.086, 1.716)
pt3dadd(76.993, 119.192, -6.124, 1.684)
pt3dadd(76.885, 119.195, -6.165, 1.654)
pt3dadd(76.798, 119.24, -6.226, 1.63)
pt3dadd(76.712, 119.285, -6.288, 1.606)
pt3dadd(76.626, 119.33, -6.349, 1.582)
pt3dadd(76.539, 119.375, -6.411, 1.558)
pt3dadd(76.48, 119.393, -6.502, 1.544)
pt3dadd(76.422, 119.41, -6.594, 1.532)
pt3dadd(76.351, 119.408, -6.681, 1.566)
pt3dadd(76.279, 119.405, -6.767, 1.602)
pt3dadd(76.282, 119.402, -6.775, 1.602)
pt3dadd(76.175, 119.413, -6.811, 1.644)
pt3dadd(76.061, 119.427, -6.839, 1.688)
pt3dadd(75.992, 119.481, -6.889, 1.73)
pt3dadd(75.959, 119.566, -6.958, 1.772)
pt3dadd(75.888, 119.619, -7.023, 1.798)
pt3dadd(75.798, 119.664, -7.08, 1.808)
pt3dadd(75.706, 119.713, -7.131, 1.808)
pt3dadd(75.609, 119.729, -7.19, 1.808)
pt3dadd(75.51, 119.732, -7.251, 1.808)
pt3dadd(75.415, 119.744, -7.314, 1.808)
pt3dadd(75.322, 119.762, -7.379, 1.808)
pt3dadd(75.237, 119.822, -7.41, 1.808)
pt3dadd(75.155, 119.904, -7.424, 1.808)
pt3dadd(75.11, 120.004, -7.452, 1.808)
pt3dadd(75.086, 120.112, -7.489, 1.808)
pt3dadd(75.062, 120.221, -7.526, 1.808)
pt3dadd(75.039, 120.322, -7.571, 1.806)
pt3dadd(75.021, 120.388, -7.659, 1.792)
pt3dadd(74.993, 120.454, -7.743, 1.764)
pt3dadd(74.942, 120.518, -7.819, 1.718)
pt3dadd(74.901, 120.582, -7.901, 1.694)
pt3dadd(74.86, 120.646, -7.984, 1.67)
pt3dadd(74.818, 120.71, -8.066, 1.646)
pt3dadd(74.758, 120.782, -8.117, 1.61)
pt3dadd(74.676, 120.863, -8.131, 1.56)
pt3dadd(74.621, 120.932, -8.178, 1.516)
pt3dadd(74.605, 120.982, -8.274, 1.48)
pt3dadd(74.588, 121.028, -8.372, 1.456)
pt3dadd(74.572, 121.072, -8.471, 1.456)
pt3dadd(74.551, 121.1, -8.572, 1.466)
pt3dadd(74.52, 121.104, -8.675, 1.5)
pt3dadd(74.488, 121.106, -8.779, 1.532)
pt3dadd(74.443, 121.127, -8.877, 1.554)
pt3dadd(74.399, 121.148, -8.975, 1.576)
pt3dadd(74.354, 121.169, -9.072, 1.6)
}
}
proc shape3d_121() {
dend_7[8] { pt3dadd(74.282, 121.208, -9.144, 1.634)
pt3dadd(74.195, 121.256, -9.202, 1.676)
pt3dadd(74.161, 121.362, -9.22, 1.696)
pt3dadd(74.135, 121.475, -9.231, 1.712)
pt3dadd(74.11, 121.589, -9.243, 1.728)
pt3dadd(74.026, 121.639, -9.252, 1.758)
pt3dadd(73.91, 121.657, -9.26, 1.796)
pt3dadd(73.796, 121.675, -9.271, 1.836)
pt3dadd(73.702, 121.716, -9.324, 1.888)
pt3dadd(73.607, 121.757, -9.378, 1.938)
pt3dadd(73.61, 121.753, -9.386, 1.938)
pt3dadd(73.54, 121.771, -9.465, 1.986)
pt3dadd(73.487, 121.775, -9.561, 2.034)
pt3dadd(73.417, 121.775, -9.646, 2.108)
pt3dadd(73.367, 121.774, -9.74, 2.138)
pt3dadd(73.37, 121.771, -9.748, 2.138)
pt3dadd(73.333, 121.77, -9.85, 2.142)
pt3dadd(73.297, 121.77, -9.953, 2.148)
pt3dadd(73.261, 121.769, -10.056, 2.152)
pt3dadd(73.225, 121.769, -10.158, 2.156)
pt3dadd(73.177, 121.776, -10.254, 2.16)
pt3dadd(73.104, 121.796, -10.338, 2.16)
pt3dadd(73.032, 121.818, -10.421, 2.16)
pt3dadd(72.96, 121.838, -10.504, 2.16)
pt3dadd(72.888, 121.86, -10.588, 2.16)
pt3dadd(72.801, 121.859, -10.662, 2.142)
pt3dadd(72.713, 121.856, -10.735, 2.122)
pt3dadd(72.624, 121.853, -10.808, 2.1)
pt3dadd(72.536, 121.85, -10.88, 2.08)
pt3dadd(72.448, 121.848, -10.954, 2.06)
pt3dadd(72.375, 121.844, -11.039, 2.026)
pt3dadd(72.303, 121.842, -11.125, 1.99)
pt3dadd(72.306, 121.838, -11.133, 1.99)
pt3dadd(72.309, 121.836, -11.141, 1.99)
pt3dadd(72.237, 121.832, -11.227, 1.956)
pt3dadd(72.165, 121.83, -11.314, 1.92)
pt3dadd(72.094, 121.826, -11.4, 1.884)
pt3dadd(71.999, 121.824, -11.466, 1.84)
pt3dadd(71.904, 121.82, -11.532, 1.796)
pt3dadd(71.809, 121.818, -11.597, 1.75)
pt3dadd(71.714, 121.814, -11.663, 1.706)
pt3dadd(71.619, 121.812, -11.729, 1.66)
pt3dadd(71.504, 121.808, -11.744, 1.592)
pt3dadd(71.387, 121.806, -11.756, 1.524)
pt3dadd(71.27, 121.802, -11.769, 1.454)
pt3dadd(71.155, 121.8, -11.794, 1.386)
pt3dadd(71.04, 121.796, -11.819, 1.318)
pt3dadd(70.965, 121.794, -11.88, 1.264)
pt3dadd(70.942, 121.79, -11.985, 1.222)
pt3dadd(70.918, 121.788, -12.091, 1.182)
pt3dadd(70.837, 121.784, -12.169, 1.158)
pt3dadd(70.752, 121.782, -12.245, 1.134)
pt3dadd(70.755, 121.778, -12.253, 1.134)
pt3dadd(70.646, 121.776, -12.286, 1.13)
pt3dadd(70.53, 121.772, -12.31, 1.13)
pt3dadd(70.415, 121.77, -12.333, 1.13)
pt3dadd(70.299, 121.766, -12.357, 1.13)
pt3dadd(70.186, 121.764, -12.387, 1.13)
pt3dadd(70.076, 121.76, -12.429, 1.13)
pt3dadd(69.968, 121.758, -12.473, 1.128)
pt3dadd(69.908, 121.77, -12.562, 1.096)
pt3dadd(69.87, 121.808, -12.658, 1.07)
pt3dadd(69.803, 121.838, -12.733, 1.026)
pt3dadd(69.7, 121.855, -12.786, 0.964)
pt3dadd(69.591, 121.862, -12.819, 0.91)
pt3dadd(69.474, 121.86, -12.827, 0.864)
pt3dadd(69.357, 121.856, -12.835, 0.82)
pt3dadd(69.244, 121.854, -12.822, 0.768)
pt3dadd(69.134, 121.85, -12.797, 0.716)
pt3dadd(69.022, 121.848, -12.78, 0.678)
pt3dadd(68.905, 121.844, -12.782, 0.678)
pt3dadd(68.789, 121.842, -12.792, 0.686)
pt3dadd(68.673, 121.838, -12.812, 0.704)
pt3dadd(68.557, 121.836, -12.833, 0.722)
pt3dadd(68.445, 121.832, -12.868, 0.75)
pt3dadd(68.335, 121.83, -12.909, 0.784)
pt3dadd(68.234, 121.826, -12.963, 0.808)
pt3dadd(68.149, 121.824, -13.039, 0.82)
pt3dadd(68.062, 121.82, -13.113, 0.826)
pt3dadd(67.966, 121.818, -13.177, 0.814)
pt3dadd(67.873, 121.814, -13.244, 0.802)
pt3dadd(67.811, 121.812, -13.337, 0.784)
pt3dadd(67.728, 121.808, -13.411, 0.76)
pt3dadd(67.631, 121.806, -13.474, 0.732)
pt3dadd(67.534, 121.802, -13.538, 0.706)
}
dend_0[4] {pt3dclear()
pt3dadd(166.135, 110.988, 15.517, 7.006)
pt3dadd(166.142, 110.9, 15.549, 6.912)
pt3dadd(166.152, 110.79, 15.588, 6.796)
pt3dadd(166.16, 110.68, 15.627, 6.678)
pt3dadd(166.17, 110.57, 15.666, 6.562)
pt3dadd(166.178, 110.46, 15.705, 6.444)
pt3dadd(166.188, 110.35, 15.744, 6.326)
pt3dadd(166.196, 110.239, 15.783, 6.21)
pt3dadd(166.206, 110.129, 15.822, 6.092)
pt3dadd(166.214, 110.019, 15.861, 5.976)
pt3dadd(166.224, 109.909, 15.9, 5.858)
pt3dadd(166.232, 109.799, 15.94, 5.742)
pt3dadd(166.242, 109.689, 15.979, 5.624)
pt3dadd(166.25, 109.579, 16.018, 5.506)
pt3dadd(166.26, 109.469, 16.057, 5.39)
pt3dadd(166.268, 109.359, 16.096, 5.272)
pt3dadd(166.278, 109.249, 16.135, 5.156)
}
dend_7[9] {pt3dclear()
pt3dadd(166.278, 109.249, 16.135, 5.156)
pt3dadd(166.286, 109.139, 16.174, 5.038)
pt3dadd(166.296, 109.029, 16.213, 4.922)
pt3dadd(166.304, 108.919, 16.252, 4.804)
pt3dadd(166.314, 108.809, 16.292, 4.686)
pt3dadd(166.322, 108.699, 16.331, 4.57)
pt3dadd(166.332, 108.588, 16.37, 4.452)
pt3dadd(166.34, 108.478, 16.409, 4.336)
pt3dadd(166.28, 108.387, 16.416, 4.21)
pt3dadd(166.196, 108.301, 16.413, 4.084)
pt3dadd(166.112, 108.216, 16.409, 3.958)
pt3dadd(166.028, 108.13, 16.405, 3.83)
pt3dadd(165.944, 108.044, 16.401, 3.704)
pt3dadd(165.86, 107.959, 16.398, 3.576)
pt3dadd(165.776, 107.873, 16.394, 3.45)
pt3dadd(165.692, 107.788, 16.39, 3.322)
pt3dadd(165.608, 107.702, 16.386, 3.196)
pt3dadd(165.523, 107.617, 16.382, 3.068)
pt3dadd(165.439, 107.532, 16.378, 2.942)
pt3dadd(165.354, 107.447, 16.374, 2.816)
pt3dadd(165.27, 107.362, 16.37, 2.688)
pt3dadd(165.185, 107.277, 16.366, 2.562)
pt3dadd(165.101, 107.192, 16.362, 2.436)
pt3dadd(165.016, 107.107, 16.358, 2.31)
pt3dadd(164.932, 107.022, 16.354, 2.182)
pt3dadd(164.846, 106.938, 16.349, 2.056)
pt3dadd(164.762, 106.853, 16.345, 1.93)
pt3dadd(164.677, 106.768, 16.341, 1.802)
pt3dadd(164.593, 106.683, 16.336, 1.756)
pt3dadd(164.508, 106.598, 16.33, 1.73)
pt3dadd(164.424, 106.513, 16.324, 1.706)
pt3dadd(164.339, 106.428, 16.318, 1.68)
pt3dadd(164.255, 106.343, 16.312, 1.656)
pt3dadd(164.171, 106.258, 16.306, 1.63)
pt3dadd(164.086, 106.173, 16.3, 1.606)
pt3dadd(164.002, 106.088, 16.294, 1.58)
pt3dadd(163.918, 106.003, 16.288, 1.554)
pt3dadd(163.832, 105.918, 16.282, 1.53)
pt3dadd(163.748, 105.833, 16.276, 1.544)
pt3dadd(163.664, 105.748, 16.269, 1.57)
pt3dadd(163.579, 105.663, 16.262, 1.594)
pt3dadd(163.495, 105.579, 16.255, 1.62)
pt3dadd(163.411, 105.494, 16.249, 1.644)
pt3dadd(163.326, 105.409, 16.242, 1.67)
pt3dadd(163.242, 105.324, 16.235, 1.696)
pt3dadd(163.158, 105.239, 16.228, 1.72)
pt3dadd(163.073, 105.154, 16.221, 1.746)
pt3dadd(162.989, 105.069, 16.215, 1.77)
pt3dadd(162.905, 104.984, 16.205, 1.762)
pt3dadd(162.821, 104.899, 16.194, 1.744)
pt3dadd(162.737, 104.814, 16.184, 1.728)
pt3dadd(162.653, 104.73, 16.174, 1.71)
pt3dadd(162.569, 104.645, 16.163, 1.694)
pt3dadd(162.485, 104.56, 16.153, 1.676)
pt3dadd(162.401, 104.475, 16.143, 1.658)
pt3dadd(162.317, 104.39, 16.132, 1.642)
pt3dadd(162.233, 104.305, 16.122, 1.624)
pt3dadd(162.149, 104.221, 16.111, 1.606)
pt3dadd(162.065, 104.136, 16.101, 1.584)
pt3dadd(161.982, 104.051, 16.09, 1.56)
pt3dadd(161.898, 103.966, 16.079, 1.538)
pt3dadd(161.814, 103.881, 16.068, 1.514)
pt3dadd(161.73, 103.796, 16.057, 1.49)
pt3dadd(161.646, 103.711, 16.046, 1.466)
pt3dadd(161.562, 103.626, 16.035, 1.444)
pt3dadd(161.479, 103.542, 16.024, 1.42)
pt3dadd(161.395, 103.457, 16.013, 1.396)
pt3dadd(161.311, 103.372, 16.002, 1.372)
pt3dadd(161.236, 103.293, 15.964, 1.366)
pt3dadd(161.161, 103.217, 15.917, 1.366)
pt3dadd(161.088, 103.141, 15.871, 1.364)
pt3dadd(161.014, 103.064, 15.824, 1.364)
pt3dadd(160.94, 102.988, 15.777, 1.362)
pt3dadd(160.867, 102.911, 15.731, 1.36)
pt3dadd(160.793, 102.835, 15.684, 1.36)
pt3dadd(160.72, 102.758, 15.638, 1.358)
pt3dadd(160.645, 102.682, 15.591, 1.358)
pt3dadd(160.572, 102.605, 15.545, 1.356)
pt3dadd(160.498, 102.526, 15.503, 1.376)
pt3dadd(160.422, 102.446, 15.462, 1.398)
pt3dadd(160.346, 102.366, 15.422, 1.422)
pt3dadd(160.271, 102.287, 15.381, 1.446)
pt3dadd(160.196, 102.207, 15.341, 1.47)
pt3dadd(160.121, 102.127, 15.3, 1.494)
pt3dadd(160.045, 102.047, 15.26, 1.516)
pt3dadd(159.971, 101.967, 15.219, 1.54)
pt3dadd(159.895, 101.887, 15.179, 1.564)
pt3dadd(159.82, 101.808, 15.138, 1.588)
pt3dadd(159.743, 101.725, 15.104, 1.628)
pt3dadd(159.666, 101.643, 15.07, 1.672)
pt3dadd(159.589, 101.56, 15.036, 1.716)
pt3dadd(159.512, 101.477, 15.003, 1.76)
pt3dadd(159.436, 101.394, 14.969, 1.804)
pt3dadd(159.359, 101.311, 14.935, 1.848)
pt3dadd(159.282, 101.229, 14.902, 1.892)
pt3dadd(159.205, 101.146, 14.868, 1.934)
pt3dadd(159.127, 101.063, 14.835, 1.978)
pt3dadd(159.05, 100.98, 14.801, 2.022)
}
}
proc shape3d_122() {
dend_7[9] { pt3dadd(158.975, 100.893, 14.775, 1.982)
pt3dadd(158.899, 100.805, 14.75, 1.928)
pt3dadd(158.824, 100.717, 14.725, 1.876)
pt3dadd(158.747, 100.629, 14.701, 1.822)
pt3dadd(158.671, 100.54, 14.676, 1.768)
pt3dadd(158.596, 100.452, 14.651, 1.714)
pt3dadd(158.52, 100.364, 14.626, 1.66)
pt3dadd(158.444, 100.276, 14.601, 1.606)
pt3dadd(158.368, 100.188, 14.577, 1.552)
pt3dadd(158.292, 100.1, 14.552, 1.498)
pt3dadd(158.221, 100.012, 14.518, 1.464)
pt3dadd(158.153, 99.924, 14.482, 1.434)
pt3dadd(158.083, 99.836, 14.446, 1.402)
pt3dadd(158.014, 99.748, 14.41, 1.372)
pt3dadd(157.944, 99.66, 14.374, 1.342)
pt3dadd(157.874, 99.572, 14.338, 1.31)
pt3dadd(157.805, 99.484, 14.302, 1.28)
pt3dadd(157.736, 99.396, 14.267, 1.25)
pt3dadd(157.667, 99.309, 14.231, 1.218)
pt3dadd(157.597, 99.221, 14.195, 1.188)
pt3dadd(157.542, 99.137, 14.139, 1.204)
pt3dadd(157.488, 99.053, 14.084, 1.222)
pt3dadd(157.434, 98.97, 14.028, 1.238)
pt3dadd(157.379, 98.886, 13.973, 1.256)
pt3dadd(157.325, 98.802, 13.917, 1.272)
pt3dadd(157.271, 98.719, 13.862, 1.288)
pt3dadd(157.216, 98.635, 13.806, 1.306)
pt3dadd(157.162, 98.552, 13.751, 1.322)
pt3dadd(157.106, 98.468, 13.695, 1.34)
pt3dadd(157.052, 98.384, 13.64, 1.356)
}
dend_7[10] {pt3dclear()
pt3dadd(157.052, 98.384, 13.64, 1.356)
pt3dadd(157.007, 98.356, 13.632, 1.35)
pt3dadd(156.906, 98.295, 13.614, 1.34)
pt3dadd(156.805, 98.233, 13.596, 1.328)
pt3dadd(156.704, 98.171, 13.579, 1.316)
pt3dadd(156.604, 98.11, 13.561, 1.304)
pt3dadd(156.503, 98.048, 13.543, 1.292)
pt3dadd(156.402, 97.986, 13.526, 1.282)
pt3dadd(156.301, 97.925, 13.508, 1.27)
pt3dadd(156.2, 97.863, 13.49, 1.258)
pt3dadd(156.1, 97.801, 13.473, 1.246)
pt3dadd(155.999, 97.74, 13.455, 1.236)
pt3dadd(155.899, 97.678, 13.438, 1.224)
pt3dadd(155.798, 97.616, 13.42, 1.212)
pt3dadd(155.692, 97.565, 13.401, 1.192)
pt3dadd(155.585, 97.516, 13.382, 1.166)
pt3dadd(155.478, 97.468, 13.362, 1.142)
pt3dadd(155.37, 97.419, 13.343, 1.118)
pt3dadd(155.263, 97.371, 13.323, 1.094)
pt3dadd(155.156, 97.322, 13.304, 1.07)
pt3dadd(155.048, 97.274, 13.284, 1.046)
pt3dadd(154.942, 97.225, 13.265, 1.022)
pt3dadd(154.834, 97.177, 13.245, 0.996)
pt3dadd(154.727, 97.128, 13.226, 0.972)
pt3dadd(154.612, 97.11, 13.204, 0.924)
pt3dadd(154.496, 97.093, 13.181, 0.872)
pt3dadd(154.38, 97.076, 13.159, 0.822)
pt3dadd(154.265, 97.059, 13.137, 0.772)
pt3dadd(154.148, 97.043, 13.114, 0.72)
pt3dadd(154.033, 97.026, 13.092, 0.67)
pt3dadd(153.917, 97.009, 13.07, 0.618)
pt3dadd(153.802, 96.992, 13.047, 0.568)
pt3dadd(153.685, 96.975, 13.025, 0.518)
pt3dadd(153.57, 96.959, 13.002, 0.466)
pt3dadd(153.458, 96.941, 12.97, 0.456)
pt3dadd(153.346, 96.923, 12.937, 0.448)
pt3dadd(153.234, 96.905, 12.903, 0.44)
pt3dadd(153.122, 96.887, 12.87, 0.432)
pt3dadd(153.011, 96.869, 12.837, 0.424)
pt3dadd(152.899, 96.851, 12.804, 0.416)
pt3dadd(152.788, 96.833, 12.77, 0.408)
pt3dadd(152.676, 96.815, 12.737, 0.4)
pt3dadd(152.564, 96.797, 12.704, 0.392)
pt3dadd(152.453, 96.779, 12.67, 0.384)
pt3dadd(152.345, 96.76, 12.628, 0.412)
pt3dadd(152.238, 96.741, 12.585, 0.442)
pt3dadd(152.131, 96.722, 12.543, 0.472)
pt3dadd(152.024, 96.703, 12.5, 0.502)
pt3dadd(151.918, 96.685, 12.458, 0.53)
pt3dadd(151.811, 96.666, 12.416, 0.56)
pt3dadd(151.703, 96.647, 12.373, 0.59)
pt3dadd(151.596, 96.628, 12.331, 0.62)
pt3dadd(151.489, 96.609, 12.288, 0.648)
pt3dadd(151.382, 96.59, 12.246, 0.678)
}
dend_7[11] {pt3dclear()
pt3dadd(151.382, 96.59, 12.246, 0.678)
pt3dadd(151.31, 96.573, 12.221, 0.678)
pt3dadd(151.199, 96.526, 12.19, 0.678)
pt3dadd(151.086, 96.478, 12.159, 0.678)
pt3dadd(150.973, 96.431, 12.128, 0.678)
pt3dadd(150.862, 96.383, 12.098, 0.678)
pt3dadd(150.749, 96.336, 12.067, 0.678)
pt3dadd(150.636, 96.289, 12.036, 0.678)
pt3dadd(150.523, 96.241, 12.005, 0.678)
pt3dadd(150.412, 96.194, 11.975, 0.678)
pt3dadd(150.299, 96.146, 11.944, 0.678)
pt3dadd(150.186, 96.099, 11.913, 0.678)
pt3dadd(150.074, 96.052, 11.882, 0.678)
pt3dadd(149.96, 96.004, 11.851, 0.678)
pt3dadd(149.848, 95.958, 11.822, 0.674)
pt3dadd(149.734, 95.913, 11.795, 0.666)
pt3dadd(149.617, 95.869, 11.768, 0.66)
pt3dadd(149.503, 95.824, 11.741, 0.652)
pt3dadd(149.388, 95.779, 11.713, 0.644)
pt3dadd(149.273, 95.735, 11.686, 0.636)
pt3dadd(149.159, 95.69, 11.659, 0.628)
pt3dadd(149.044, 95.645, 11.632, 0.62)
pt3dadd(148.928, 95.601, 11.604, 0.612)
pt3dadd(148.813, 95.556, 11.577, 0.604)
pt3dadd(148.698, 95.512, 11.552, 0.594)
pt3dadd(148.58, 95.47, 11.527, 0.58)
pt3dadd(148.464, 95.428, 11.503, 0.566)
pt3dadd(148.348, 95.385, 11.479, 0.552)
pt3dadd(148.23, 95.343, 11.454, 0.538)
pt3dadd(148.114, 95.301, 11.43, 0.524)
pt3dadd(147.997, 95.258, 11.406, 0.51)
pt3dadd(147.88, 95.216, 11.382, 0.494)
pt3dadd(147.763, 95.174, 11.357, 0.48)
pt3dadd(147.647, 95.131, 11.333, 0.466)
pt3dadd(147.534, 95.08, 11.311, 0.464)
pt3dadd(147.427, 95.017, 11.293, 0.476)
pt3dadd(147.322, 94.955, 11.275, 0.49)
pt3dadd(147.214, 94.893, 11.256, 0.502)
pt3dadd(147.107, 94.831, 11.238, 0.514)
pt3dadd(147, 94.768, 11.219, 0.526)
pt3dadd(146.893, 94.706, 11.2, 0.538)
pt3dadd(146.786, 94.644, 11.182, 0.55)
pt3dadd(146.68, 94.582, 11.164, 0.562)
pt3dadd(146.573, 94.519, 11.145, 0.574)
pt3dadd(146.467, 94.457, 11.122, 0.584)
pt3dadd(146.363, 94.394, 11.092, 0.594)
pt3dadd(146.26, 94.331, 11.063, 0.604)
pt3dadd(146.156, 94.268, 11.034, 0.614)
pt3dadd(146.052, 94.205, 11.005, 0.624)
pt3dadd(145.949, 94.142, 10.976, 0.634)
pt3dadd(145.846, 94.079, 10.946, 0.644)
pt3dadd(145.741, 94.017, 10.917, 0.654)
pt3dadd(145.638, 93.954, 10.888, 0.664)
pt3dadd(145.535, 93.891, 10.858, 0.674)
pt3dadd(145.439, 93.832, 10.811, 0.678)
pt3dadd(145.349, 93.774, 10.754, 0.678)
pt3dadd(145.259, 93.717, 10.697, 0.678)
pt3dadd(145.166, 93.66, 10.639, 0.678)
pt3dadd(145.076, 93.602, 10.582, 0.678)
pt3dadd(144.986, 93.545, 10.525, 0.678)
pt3dadd(144.895, 93.488, 10.468, 0.678)
pt3dadd(144.805, 93.43, 10.41, 0.678)
pt3dadd(144.715, 93.373, 10.353, 0.678)
pt3dadd(144.623, 93.316, 10.296, 0.678)
pt3dadd(144.532, 93.249, 10.25, 0.678)
pt3dadd(144.44, 93.178, 10.211, 0.678)
pt3dadd(144.347, 93.106, 10.172, 0.678)
pt3dadd(144.256, 93.035, 10.133, 0.678)
pt3dadd(144.164, 92.963, 10.094, 0.678)
pt3dadd(144.071, 92.892, 10.055, 0.678)
pt3dadd(143.98, 92.82, 10.016, 0.678)
pt3dadd(143.887, 92.748, 9.977, 0.678)
pt3dadd(143.795, 92.677, 9.938, 0.678)
pt3dadd(143.702, 92.605, 9.9, 0.678)
pt3dadd(143.609, 92.534, 9.864, 0.678)
pt3dadd(143.514, 92.462, 9.83, 0.678)
pt3dadd(143.419, 92.391, 9.796, 0.678)
pt3dadd(143.326, 92.319, 9.762, 0.678)
pt3dadd(143.23, 92.248, 9.728, 0.678)
pt3dadd(143.135, 92.176, 9.694, 0.678)
pt3dadd(143.041, 92.105, 9.66, 0.678)
pt3dadd(142.945, 92.033, 9.627, 0.678)
pt3dadd(142.85, 91.962, 9.593, 0.678)
pt3dadd(142.757, 91.89, 9.559, 0.678)
pt3dadd(142.66, 91.819, 9.529, 0.678)
pt3dadd(142.561, 91.748, 9.501, 0.678)
pt3dadd(142.464, 91.677, 9.473, 0.678)
pt3dadd(142.366, 91.607, 9.445, 0.678)
pt3dadd(142.268, 91.536, 9.417, 0.678)
pt3dadd(142.17, 91.465, 9.389, 0.678)
pt3dadd(142.072, 91.395, 9.361, 0.678)
pt3dadd(141.974, 91.324, 9.333, 0.678)
pt3dadd(141.877, 91.253, 9.305, 0.678)
pt3dadd(141.778, 91.182, 9.277, 0.678)
pt3dadd(141.68, 91.122, 9.234, 0.706)
pt3dadd(141.583, 91.067, 9.184, 0.75)
pt3dadd(141.485, 91.012, 9.134, 0.794)
pt3dadd(141.386, 90.957, 9.084, 0.836)
pt3dadd(141.289, 90.901, 9.033, 0.88)
pt3dadd(141.191, 90.846, 8.983, 0.922)
pt3dadd(141.094, 90.791, 8.933, 0.966)
pt3dadd(140.996, 90.736, 8.883, 1.008)
pt3dadd(140.897, 90.681, 8.832, 1.052)
pt3dadd(140.8, 90.626, 8.782, 1.094)
pt3dadd(140.693, 90.586, 8.735, 1.11)
pt3dadd(140.58, 90.552, 8.688, 1.116)
pt3dadd(140.47, 90.518, 8.642, 1.122)
pt3dadd(140.358, 90.484, 8.595, 1.128)
pt3dadd(140.246, 90.45, 8.549, 1.134)
pt3dadd(140.136, 90.416, 8.503, 1.142)
pt3dadd(140.024, 90.382, 8.456, 1.148)
pt3dadd(139.913, 90.347, 8.41, 1.154)
pt3dadd(139.802, 90.313, 8.363, 1.16)
pt3dadd(139.691, 90.279, 8.317, 1.166)
pt3dadd(139.568, 90.263, 8.284, 1.138)
pt3dadd(139.446, 90.247, 8.251, 1.108)
}
}
proc shape3d_123() {
dend_7[11] { pt3dadd(139.324, 90.232, 8.219, 1.076)
pt3dadd(139.2, 90.216, 8.187, 1.046)
pt3dadd(139.078, 90.201, 8.154, 1.014)
pt3dadd(138.955, 90.185, 8.122, 0.984)
pt3dadd(138.832, 90.17, 8.09, 0.954)
pt3dadd(138.709, 90.154, 8.058, 0.922)
pt3dadd(138.587, 90.139, 8.025, 0.892)
pt3dadd(138.464, 90.123, 7.993, 0.862)
pt3dadd(138.337, 90.115, 7.974, 0.846)
pt3dadd(138.211, 90.106, 7.954, 0.828)
pt3dadd(138.083, 90.098, 7.935, 0.812)
pt3dadd(137.957, 90.089, 7.916, 0.796)
pt3dadd(137.83, 90.081, 7.897, 0.78)
pt3dadd(137.702, 90.072, 7.878, 0.764)
pt3dadd(137.575, 90.064, 7.859, 0.748)
pt3dadd(137.449, 90.055, 7.839, 0.732)
pt3dadd(137.321, 90.047, 7.82, 0.716)
pt3dadd(137.195, 90.038, 7.801, 0.7)
pt3dadd(137.069, 90.022, 7.792, 0.674)
pt3dadd(136.94, 90.005, 7.783, 0.646)
pt3dadd(136.814, 89.988, 7.774, 0.62)
pt3dadd(136.688, 89.972, 7.765, 0.592)
pt3dadd(136.561, 89.955, 7.756, 0.564)
pt3dadd(136.434, 89.938, 7.747, 0.538)
pt3dadd(136.308, 89.922, 7.738, 0.51)
pt3dadd(136.181, 89.905, 7.728, 0.484)
pt3dadd(136.054, 89.888, 7.719, 0.456)
pt3dadd(135.926, 89.872, 7.71, 0.43)
pt3dadd(135.803, 89.844, 7.702, 0.416)
pt3dadd(135.679, 89.815, 7.694, 0.404)
pt3dadd(135.554, 89.787, 7.687, 0.39)
pt3dadd(135.431, 89.758, 7.679, 0.378)
pt3dadd(135.307, 89.73, 7.671, 0.366)
pt3dadd(135.182, 89.702, 7.663, 0.352)
pt3dadd(135.059, 89.673, 7.655, 0.34)
pt3dadd(134.935, 89.645, 7.647, 0.328)
pt3dadd(134.81, 89.616, 7.639, 0.314)
pt3dadd(134.688, 89.586, 7.631, 0.304)
pt3dadd(134.574, 89.533, 7.622, 0.332)
pt3dadd(134.46, 89.481, 7.614, 0.358)
pt3dadd(134.346, 89.428, 7.605, 0.384)
pt3dadd(134.232, 89.376, 7.596, 0.41)
pt3dadd(134.118, 89.324, 7.587, 0.436)
pt3dadd(134.004, 89.271, 7.578, 0.462)
pt3dadd(133.89, 89.219, 7.569, 0.488)
pt3dadd(133.776, 89.166, 7.561, 0.514)
pt3dadd(133.662, 89.114, 7.552, 0.54)
pt3dadd(133.549, 89.061, 7.543, 0.564)
pt3dadd(133.439, 89.001, 7.532, 0.576)
pt3dadd(133.33, 88.941, 7.521, 0.588)
pt3dadd(133.22, 88.881, 7.51, 0.598)
pt3dadd(133.11, 88.821, 7.499, 0.61)
pt3dadd(133.001, 88.762, 7.488, 0.622)
pt3dadd(132.892, 88.702, 7.477, 0.634)
pt3dadd(132.782, 88.642, 7.466, 0.644)
pt3dadd(132.673, 88.582, 7.455, 0.656)
pt3dadd(132.564, 88.522, 7.444, 0.668)
pt3dadd(132.454, 88.462, 7.433, 0.678)
pt3dadd(132.349, 88.397, 7.42, 0.678)
pt3dadd(132.244, 88.331, 7.408, 0.678)
pt3dadd(132.137, 88.266, 7.395, 0.678)
pt3dadd(132.032, 88.2, 7.383, 0.678)
pt3dadd(131.927, 88.135, 7.37, 0.678)
pt3dadd(131.821, 88.07, 7.357, 0.678)
pt3dadd(131.716, 88.004, 7.345, 0.678)
pt3dadd(131.61, 87.939, 7.332, 0.678)
pt3dadd(131.504, 87.874, 7.319, 0.678)
pt3dadd(131.398, 87.81, 7.306, 0.678)
pt3dadd(131.285, 87.758, 7.289, 0.678)
pt3dadd(131.171, 87.706, 7.271, 0.678)
pt3dadd(131.058, 87.654, 7.254, 0.678)
pt3dadd(130.944, 87.603, 7.236, 0.678)
pt3dadd(130.83, 87.551, 7.219, 0.678)
pt3dadd(130.717, 87.499, 7.201, 0.678)
pt3dadd(130.604, 87.447, 7.183, 0.678)
pt3dadd(130.489, 87.396, 7.166, 0.678)
pt3dadd(130.481, 87.401, 7.16, 0.678)
pt3dadd(130.368, 87.349, 7.142, 0.678)
pt3dadd(130.254, 87.298, 7.123, 0.678)
pt3dadd(130.14, 87.253, 7.095, 0.682)
pt3dadd(130.026, 87.209, 7.067, 0.686)
pt3dadd(129.91, 87.164, 7.039, 0.69)
pt3dadd(129.796, 87.119, 7.011, 0.694)
pt3dadd(129.682, 87.074, 6.983, 0.698)
pt3dadd(129.566, 87.029, 6.954, 0.702)
pt3dadd(129.452, 86.984, 6.926, 0.706)
pt3dadd(129.338, 86.939, 6.898, 0.71)
pt3dadd(129.223, 86.895, 6.87, 0.714)
pt3dadd(129.113, 86.854, 6.831, 0.722)
pt3dadd(129.011, 86.822, 6.77, 0.74)
pt3dadd(128.909, 86.79, 6.709, 0.76)
pt3dadd(128.808, 86.759, 6.647, 0.778)
pt3dadd(128.706, 86.727, 6.586, 0.796)
pt3dadd(128.604, 86.696, 6.525, 0.816)
pt3dadd(128.502, 86.664, 6.463, 0.834)
pt3dadd(128.401, 86.632, 6.402, 0.852)
pt3dadd(128.299, 86.601, 6.341, 0.872)
pt3dadd(128.197, 86.569, 6.279, 0.89)
pt3dadd(128.095, 86.532, 6.224, 0.892)
pt3dadd(127.987, 86.482, 6.184, 0.862)
pt3dadd(127.88, 86.432, 6.143, 0.832)
pt3dadd(127.774, 86.382, 6.102, 0.8)
pt3dadd(127.666, 86.332, 6.062, 0.768)
pt3dadd(127.56, 86.282, 6.021, 0.738)
pt3dadd(127.453, 86.233, 5.98, 0.706)
pt3dadd(127.345, 86.183, 5.94, 0.676)
pt3dadd(127.238, 86.133, 5.899, 0.644)
pt3dadd(127.23, 86.138, 5.893, 0.644)
pt3dadd(127.122, 86.088, 5.853, 0.614)
pt3dadd(127.014, 86.041, 5.814, 0.586)
pt3dadd(126.9, 86.001, 5.779, 0.562)
pt3dadd(126.784, 85.961, 5.745, 0.54)
pt3dadd(126.67, 85.921, 5.71, 0.518)
pt3dadd(126.556, 85.881, 5.675, 0.496)
pt3dadd(126.44, 85.841, 5.641, 0.474)
pt3dadd(126.326, 85.802, 5.606, 0.45)
pt3dadd(126.212, 85.761, 5.571, 0.428)
pt3dadd(126.097, 85.722, 5.537, 0.406)
pt3dadd(125.983, 85.682, 5.502, 0.384)
pt3dadd(125.866, 85.645, 5.469, 0.364)
pt3dadd(125.747, 85.614, 5.439, 0.35)
pt3dadd(125.628, 85.583, 5.409, 0.336)
pt3dadd(125.507, 85.552, 5.378, 0.32)
pt3dadd(125.388, 85.521, 5.348, 0.306)
pt3dadd(125.269, 85.49, 5.318, 0.292)
pt3dadd(125.149, 85.459, 5.288, 0.278)
pt3dadd(125.03, 85.428, 5.257, 0.264)
pt3dadd(124.91, 85.398, 5.227, 0.25)
pt3dadd(124.79, 85.367, 5.197, 0.234)
pt3dadd(124.672, 85.34, 5.162, 0.226)
pt3dadd(124.555, 85.322, 5.12, 0.226)
pt3dadd(124.436, 85.303, 5.077, 0.226)
pt3dadd(124.428, 85.308, 5.071, 0.226)
pt3dadd(124.31, 85.289, 5.029, 0.226)
pt3dadd(124.192, 85.27, 4.986, 0.226)
pt3dadd(124.074, 85.251, 4.944, 0.226)
pt3dadd(123.956, 85.233, 4.901, 0.226)
pt3dadd(123.838, 85.214, 4.859, 0.226)
pt3dadd(123.72, 85.195, 4.816, 0.226)
pt3dadd(123.602, 85.176, 4.774, 0.226)
pt3dadd(123.484, 85.157, 4.733, 0.23)
pt3dadd(123.364, 85.138, 4.694, 0.238)
pt3dadd(123.245, 85.12, 4.656, 0.248)
pt3dadd(123.124, 85.101, 4.617, 0.256)
pt3dadd(123.005, 85.082, 4.579, 0.266)
pt3dadd(122.886, 85.063, 4.541, 0.274)
pt3dadd(122.765, 85.044, 4.502, 0.282)
pt3dadd(122.646, 85.026, 4.464, 0.292)
pt3dadd(122.526, 85.007, 4.425, 0.302)
pt3dadd(122.406, 84.988, 4.387, 0.31)
pt3dadd(122.285, 84.969, 4.352, 0.326)
pt3dadd(122.162, 84.951, 4.322, 0.354)
pt3dadd(122.039, 84.932, 4.293, 0.382)
pt3dadd(121.916, 84.913, 4.263, 0.408)
pt3dadd(121.794, 84.895, 4.233, 0.436)
pt3dadd(121.67, 84.876, 4.203, 0.464)
pt3dadd(121.548, 84.857, 4.174, 0.492)
pt3dadd(121.426, 84.839, 4.144, 0.518)
pt3dadd(121.302, 84.82, 4.114, 0.546)
pt3dadd(121.18, 84.801, 4.085, 0.574)
pt3dadd(121.058, 84.773, 4.058, 0.598)
pt3dadd(120.941, 84.73, 4.038, 0.614)
pt3dadd(120.823, 84.687, 4.017, 0.632)
pt3dadd(120.707, 84.644, 3.997, 0.65)
pt3dadd(120.589, 84.601, 3.976, 0.668)
pt3dadd(120.472, 84.558, 3.955, 0.684)
pt3dadd(120.355, 84.516, 3.935, 0.702)
pt3dadd(120.236, 84.473, 3.914, 0.72)
pt3dadd(120.12, 84.43, 3.893, 0.738)
pt3dadd(120.002, 84.387, 3.873, 0.754)
pt3dadd(119.888, 84.338, 3.854, 0.77)
pt3dadd(119.774, 84.285, 3.838, 0.782)
pt3dadd(119.662, 84.232, 3.822, 0.794)
pt3dadd(119.549, 84.178, 3.806, 0.808)
pt3dadd(119.436, 84.125, 3.79, 0.82)
pt3dadd(119.324, 84.071, 3.773, 0.832)
pt3dadd(119.211, 84.018, 3.757, 0.844)
pt3dadd(119.097, 83.965, 3.741, 0.858)
pt3dadd(118.986, 83.911, 3.725, 0.87)
pt3dadd(118.872, 83.858, 3.709, 0.882)
pt3dadd(118.763, 83.798, 3.697, 0.884)
pt3dadd(118.658, 83.733, 3.689, 0.876)
pt3dadd(118.552, 83.667, 3.68, 0.866)
pt3dadd(118.446, 83.602, 3.672, 0.858)
pt3dadd(118.34, 83.536, 3.664, 0.85)
pt3dadd(118.235, 83.47, 3.656, 0.842)
pt3dadd(118.129, 83.405, 3.648, 0.832)
pt3dadd(118.023, 83.339, 3.639, 0.824)
pt3dadd(117.917, 83.274, 3.631, 0.816)
pt3dadd(117.812, 83.208, 3.623, 0.808)
pt3dadd(117.706, 83.142, 3.615, 0.796)
pt3dadd(117.603, 83.075, 3.608, 0.786)
pt3dadd(117.498, 83.008, 3.601, 0.774)
pt3dadd(117.393, 82.941, 3.594, 0.762)
pt3dadd(117.288, 82.874, 3.587, 0.75)
pt3dadd(117.184, 82.806, 3.58, 0.74)
pt3dadd(117.079, 82.739, 3.573, 0.728)
pt3dadd(116.975, 82.672, 3.566, 0.716)
pt3dadd(116.87, 82.605, 3.559, 0.704)
pt3dadd(116.766, 82.538, 3.551, 0.694)
}
}
proc shape3d_124() {
dend_7[11] { pt3dadd(116.657, 82.477, 3.544, 0.688)
pt3dadd(116.544, 82.423, 3.535, 0.686)
pt3dadd(116.432, 82.368, 3.527, 0.686)
pt3dadd(116.319, 82.313, 3.519, 0.684)
pt3dadd(116.206, 82.258, 3.51, 0.684)
pt3dadd(116.094, 82.203, 3.502, 0.682)
pt3dadd(115.981, 82.148, 3.494, 0.682)
pt3dadd(115.972, 82.153, 3.488, 0.682)
pt3dadd(115.86, 82.098, 3.479, 0.68)
pt3dadd(115.747, 82.043, 3.471, 0.68)
pt3dadd(115.634, 81.989, 3.463, 0.678)
pt3dadd(115.522, 81.934, 3.454, 0.68)
pt3dadd(115.409, 81.879, 3.445, 0.682)
pt3dadd(115.296, 81.824, 3.436, 0.686)
pt3dadd(115.287, 81.83, 3.43, 0.686)
pt3dadd(115.175, 81.775, 3.422, 0.688)
pt3dadd(115.062, 81.72, 3.413, 0.69)
pt3dadd(114.949, 81.666, 3.404, 0.694)
pt3dadd(114.836, 81.611, 3.395, 0.696)
pt3dadd(114.724, 81.556, 3.386, 0.7)
pt3dadd(114.611, 81.502, 3.377, 0.702)
pt3dadd(114.498, 81.447, 3.368, 0.706)
pt3dadd(114.388, 81.389, 3.358, 0.72)
pt3dadd(114.279, 81.327, 3.346, 0.744)
pt3dadd(114.171, 81.266, 3.335, 0.768)
pt3dadd(114.063, 81.205, 3.323, 0.792)
pt3dadd(113.954, 81.143, 3.311, 0.816)
pt3dadd(113.846, 81.082, 3.299, 0.84)
pt3dadd(113.737, 81.021, 3.287, 0.864)
pt3dadd(113.629, 80.959, 3.275, 0.888)
pt3dadd(113.52, 80.898, 3.264, 0.912)
pt3dadd(113.412, 80.837, 3.252, 0.936)
pt3dadd(113.304, 80.775, 3.24, 0.95)
pt3dadd(113.196, 80.712, 3.227, 0.958)
pt3dadd(113.089, 80.65, 3.214, 0.966)
pt3dadd(112.981, 80.587, 3.202, 0.972)
pt3dadd(112.874, 80.525, 3.189, 0.98)
pt3dadd(112.766, 80.462, 3.176, 0.988)
pt3dadd(112.757, 80.467, 3.17, 0.988)
pt3dadd(112.65, 80.405, 3.158, 0.996)
pt3dadd(112.542, 80.343, 3.145, 1.002)
pt3dadd(112.435, 80.28, 3.133, 1.01)
pt3dadd(112.327, 80.218, 3.12, 1.018)
pt3dadd(112.221, 80.153, 3.106, 0.996)
pt3dadd(112.116, 80.087, 3.091, 0.95)
pt3dadd(112.011, 80.021, 3.075, 0.904)
pt3dadd(111.907, 79.955, 3.06, 0.858)
pt3dadd(111.802, 79.889, 3.045, 0.81)
pt3dadd(111.697, 79.823, 3.029, 0.764)
pt3dadd(111.593, 79.757, 3.014, 0.718)
pt3dadd(111.488, 79.691, 2.999, 0.672)
pt3dadd(111.383, 79.625, 2.984, 0.626)
pt3dadd(111.279, 79.559, 2.968, 0.58)
pt3dadd(111.173, 79.495, 2.949, 0.544)
pt3dadd(111.066, 79.434, 2.927, 0.518)
pt3dadd(110.959, 79.372, 2.905, 0.49)
pt3dadd(110.853, 79.311, 2.883, 0.464)
pt3dadd(110.746, 79.25, 2.861, 0.438)
pt3dadd(110.639, 79.188, 2.838, 0.41)
pt3dadd(110.532, 79.127, 2.816, 0.384)
pt3dadd(110.426, 79.066, 2.794, 0.358)
pt3dadd(110.319, 79.004, 2.772, 0.33)
pt3dadd(110.212, 78.943, 2.75, 0.304)
pt3dadd(110.104, 78.89, 2.717, 0.308)
pt3dadd(109.995, 78.843, 2.677, 0.334)
pt3dadd(109.886, 78.795, 2.638, 0.358)
pt3dadd(109.777, 78.748, 2.598, 0.382)
pt3dadd(109.668, 78.701, 2.559, 0.406)
pt3dadd(109.56, 78.653, 2.519, 0.43)
pt3dadd(109.451, 78.606, 2.48, 0.454)
pt3dadd(109.342, 78.558, 2.441, 0.478)
pt3dadd(109.233, 78.511, 2.401, 0.502)
pt3dadd(109.124, 78.464, 2.362, 0.526)
pt3dadd(109.015, 78.413, 2.326, 0.538)
pt3dadd(108.906, 78.362, 2.291, 0.542)
pt3dadd(108.797, 78.31, 2.257, 0.546)
pt3dadd(108.688, 78.258, 2.223, 0.552)
pt3dadd(108.58, 78.207, 2.189, 0.556)
pt3dadd(108.471, 78.155, 2.155, 0.56)
pt3dadd(108.362, 78.104, 2.12, 0.564)
pt3dadd(108.253, 78.052, 2.086, 0.57)
pt3dadd(108.144, 78, 2.052, 0.574)
pt3dadd(108.035, 77.949, 2.018, 0.578)
pt3dadd(107.927, 77.893, 1.989, 0.564)
pt3dadd(107.818, 77.836, 1.962, 0.54)
pt3dadd(107.71, 77.778, 1.936, 0.516)
pt3dadd(107.602, 77.721, 1.909, 0.492)
pt3dadd(107.494, 77.663, 1.883, 0.468)
pt3dadd(107.386, 77.606, 1.856, 0.444)
pt3dadd(107.278, 77.548, 1.83, 0.42)
pt3dadd(107.169, 77.491, 1.803, 0.396)
pt3dadd(107.061, 77.434, 1.777, 0.372)
pt3dadd(106.953, 77.376, 1.75, 0.348)
pt3dadd(106.842, 77.323, 1.727, 0.332)
pt3dadd(106.729, 77.271, 1.706, 0.32)
pt3dadd(106.616, 77.22, 1.685, 0.31)
pt3dadd(106.503, 77.168, 1.664, 0.298)
pt3dadd(106.39, 77.117, 1.643, 0.286)
pt3dadd(106.277, 77.065, 1.622, 0.276)
pt3dadd(106.164, 77.013, 1.601, 0.264)
pt3dadd(106.051, 76.962, 1.58, 0.252)
pt3dadd(105.938, 76.91, 1.559, 0.24)
pt3dadd(105.825, 76.859, 1.538, 0.23)
pt3dadd(105.709, 76.811, 1.52, 0.226)
pt3dadd(105.593, 76.765, 1.504, 0.226)
pt3dadd(105.476, 76.72, 1.488, 0.226)
pt3dadd(105.359, 76.674, 1.472, 0.226)
pt3dadd(105.242, 76.628, 1.456, 0.226)
pt3dadd(105.126, 76.582, 1.44, 0.226)
pt3dadd(105.009, 76.536, 1.424, 0.226)
pt3dadd(104.892, 76.491, 1.408, 0.226)
pt3dadd(104.775, 76.445, 1.392, 0.226)
pt3dadd(104.659, 76.399, 1.376, 0.226)
pt3dadd(104.548, 76.343, 1.366, 0.226)
pt3dadd(104.539, 76.348, 1.36, 0.226)
pt3dadd(104.43, 76.286, 1.352, 0.226)
pt3dadd(104.322, 76.224, 1.344, 0.226)
pt3dadd(104.214, 76.163, 1.336, 0.226)
pt3dadd(104.105, 76.101, 1.328, 0.226)
pt3dadd(103.997, 76.039, 1.32, 0.226)
pt3dadd(103.888, 75.978, 1.312, 0.226)
pt3dadd(103.78, 75.916, 1.304, 0.226)
pt3dadd(103.671, 75.855, 1.296, 0.226)
pt3dadd(103.563, 75.793, 1.288, 0.226)
pt3dadd(103.456, 75.729, 1.282, 0.226)
pt3dadd(103.35, 75.663, 1.276, 0.226)
pt3dadd(103.244, 75.598, 1.27, 0.226)
pt3dadd(103.138, 75.533, 1.264, 0.226)
pt3dadd(103.032, 75.468, 1.258, 0.226)
pt3dadd(102.926, 75.402, 1.252, 0.226)
pt3dadd(102.821, 75.337, 1.246, 0.226)
pt3dadd(102.715, 75.272, 1.24, 0.226)
pt3dadd(102.609, 75.207, 1.234, 0.226)
pt3dadd(102.503, 75.141, 1.228, 0.226)
pt3dadd(102.4, 75.072, 1.222, 0.226)
pt3dadd(102.298, 75.002, 1.216, 0.226)
pt3dadd(102.196, 74.931, 1.21, 0.226)
pt3dadd(102.094, 74.861, 1.204, 0.226)
pt3dadd(101.992, 74.791, 1.198, 0.226)
pt3dadd(101.89, 74.72, 1.192, 0.226)
pt3dadd(101.788, 74.65, 1.186, 0.226)
pt3dadd(101.686, 74.579, 1.18, 0.226)
pt3dadd(101.584, 74.509, 1.174, 0.226)
pt3dadd(101.482, 74.438, 1.168, 0.226)
pt3dadd(101.381, 74.367, 1.162, 0.226)
pt3dadd(101.279, 74.296, 1.156, 0.226)
pt3dadd(101.178, 74.225, 1.15, 0.226)
pt3dadd(101.076, 74.154, 1.144, 0.226)
pt3dadd(100.975, 74.083, 1.138, 0.226)
pt3dadd(100.873, 74.012, 1.133, 0.226)
pt3dadd(100.772, 73.941, 1.127, 0.226)
pt3dadd(100.67, 73.87, 1.121, 0.226)
pt3dadd(100.569, 73.799, 1.115, 0.226)
pt3dadd(100.467, 73.728, 1.109, 0.226)
pt3dadd(100.368, 73.654, 1.103, 0.258)
pt3dadd(100.271, 73.579, 1.097, 0.302)
pt3dadd(100.173, 73.503, 1.091, 0.346)
pt3dadd(100.075, 73.428, 1.085, 0.39)
pt3dadd(99.977, 73.353, 1.079, 0.434)
pt3dadd(99.879, 73.278, 1.073, 0.478)
pt3dadd(99.781, 73.202, 1.067, 0.522)
pt3dadd(99.684, 73.127, 1.061, 0.566)
pt3dadd(99.586, 73.052, 1.055, 0.61)
pt3dadd(99.488, 72.977, 1.049, 0.656)
pt3dadd(99.39, 72.901, 1.043, 0.7)
pt3dadd(99.292, 72.826, 1.037, 0.746)
pt3dadd(99.195, 72.75, 1.031, 0.792)
pt3dadd(99.097, 72.675, 1.025, 0.838)
pt3dadd(98.999, 72.6, 1.019, 0.884)
pt3dadd(98.901, 72.525, 1.013, 0.93)
pt3dadd(98.804, 72.449, 1.007, 0.976)
pt3dadd(98.706, 72.374, 1.001, 1.022)
pt3dadd(98.608, 72.298, 0.995, 1.068)
pt3dadd(98.51, 72.223, 0.989, 1.114)
pt3dadd(98.401, 72.164, 0.984, 1.106)
pt3dadd(98.288, 72.11, 0.978, 1.076)
pt3dadd(98.174, 72.057, 0.972, 1.048)
pt3dadd(98.165, 72.062, 0.966, 1.048)
pt3dadd(98.052, 72.008, 0.96, 1.018)
pt3dadd(97.938, 71.955, 0.954, 0.99)
pt3dadd(97.825, 71.901, 0.948, 0.96)
pt3dadd(97.711, 71.848, 0.942, 0.932)
pt3dadd(97.598, 71.794, 0.936, 0.902)
pt3dadd(97.485, 71.741, 0.93, 0.874)
pt3dadd(97.371, 71.687, 0.924, 0.844)
pt3dadd(97.264, 71.624, 0.918, 0.812)
pt3dadd(97.159, 71.558, 0.912, 0.776)
pt3dadd(97.054, 71.491, 0.906, 0.742)
pt3dadd(96.949, 71.424, 0.9, 0.708)
pt3dadd(96.844, 71.358, 0.894, 0.674)
pt3dadd(96.739, 71.291, 0.888, 0.64)
pt3dadd(96.634, 71.224, 0.882, 0.604)
pt3dadd(96.529, 71.158, 0.876, 0.57)
pt3dadd(96.425, 71.091, 0.87, 0.536)
pt3dadd(96.32, 71.024, 0.864, 0.502)
pt3dadd(96.216, 70.955, 0.858, 0.478)
pt3dadd(96.114, 70.886, 0.852, 0.456)
pt3dadd(96.011, 70.817, 0.846, 0.434)
pt3dadd(95.908, 70.747, 0.84, 0.412)
pt3dadd(95.805, 70.678, 0.834, 0.39)
}
}
proc shape3d_125() {
dend_7[11] { pt3dadd(95.703, 70.608, 0.829, 0.368)
pt3dadd(95.6, 70.539, 0.823, 0.346)
pt3dadd(95.497, 70.47, 0.817, 0.324)
pt3dadd(95.394, 70.4, 0.811, 0.304)
pt3dadd(95.292, 70.331, 0.805, 0.282)
pt3dadd(95.172, 70.289, 0.799, 0.298)
pt3dadd(95.053, 70.246, 0.793, 0.316)
pt3dadd(94.934, 70.204, 0.787, 0.332)
pt3dadd(94.815, 70.162, 0.781, 0.35)
pt3dadd(94.696, 70.12, 0.775, 0.366)
pt3dadd(94.577, 70.078, 0.769, 0.384)
pt3dadd(94.458, 70.036, 0.763, 0.4)
pt3dadd(94.339, 69.994, 0.757, 0.418)
pt3dadd(94.22, 69.952, 0.751, 0.434)
pt3dadd(94.101, 69.91, 0.745, 0.452)
pt3dadd(94.092, 69.915, 0.739, 0.452)
pt3dadd(94.083, 69.92, 0.733, 0.452)
pt3dadd(94.074, 69.926, 0.727, 0.452)
pt3dadd(93.945, 69.931, 0.721, 0.586)
pt3dadd(93.816, 69.936, 0.715, 0.72)
pt3dadd(93.688, 69.941, 0.709, 0.854)
pt3dadd(93.566, 69.907, 0.703, 0.918)
pt3dadd(93.444, 69.872, 0.697, 0.982)
pt3dadd(93.338, 69.81, 0.691, 1.05)
pt3dadd(93.241, 69.734, 0.685, 1.122)
pt3dadd(93.158, 69.646, 0.68, 1.18)
pt3dadd(93.089, 69.548, 0.674, 1.224)
pt3dadd(93.034, 69.445, 0.668, 1.264)
pt3dadd(93.011, 69.331, 0.662, 1.292)
pt3dadd(92.955, 69.231, 0.656, 1.306)
pt3dadd(92.871, 69.142, 0.65, 1.306)
pt3dadd(92.787, 69.054, 0.644, 1.306)
pt3dadd(92.704, 68.965, 0.638, 1.306)
pt3dadd(92.62, 68.877, 0.632, 1.306)
pt3dadd(92.556, 68.777, 0.626, 1.306)
pt3dadd(92.509, 68.669, 0.62, 1.306)
pt3dadd(92.461, 68.56, 0.614, 1.306)
pt3dadd(92.414, 68.452, 0.608, 1.306)
pt3dadd(92.366, 68.343, 0.602, 1.306)
pt3dadd(92.319, 68.235, 0.596, 1.306)
pt3dadd(92.274, 68.126, 0.59, 1.31)
pt3dadd(92.229, 68.016, 0.584, 1.316)
pt3dadd(92.185, 67.907, 0.578, 1.32)
pt3dadd(92.14, 67.798, 0.572, 1.324)
pt3dadd(92.095, 67.689, 0.566, 1.328)
pt3dadd(92.033, 67.589, 0.56, 1.334)
pt3dadd(91.949, 67.5, 0.554, 1.338)
pt3dadd(91.865, 67.412, 0.548, 1.344)
pt3dadd(91.782, 67.323, 0.542, 1.348)
pt3dadd(91.698, 67.235, 0.536, 1.354)
pt3dadd(91.605, 67.155, 0.53, 1.354)
pt3dadd(91.503, 67.085, 0.525, 1.348)
pt3dadd(91.4, 67.016, 0.519, 1.344)
pt3dadd(91.298, 66.946, 0.513, 1.338)
pt3dadd(91.195, 66.876, 0.507, 1.334)
pt3dadd(91.088, 66.812, 0.501, 1.334)
pt3dadd(90.978, 66.754, 0.495, 1.338)
pt3dadd(90.867, 66.697, 0.489, 1.344)
pt3dadd(90.756, 66.639, 0.483, 1.348)
pt3dadd(90.645, 66.581, 0.477, 1.354)
pt3dadd(90.528, 66.537, 0.471, 1.354)
pt3dadd(90.403, 66.512, 0.465, 1.35)
pt3dadd(90.278, 66.487, 0.459, 1.346)
pt3dadd(90.153, 66.462, 0.453, 1.342)
pt3dadd(90.028, 66.437, 0.447, 1.336)
pt3dadd(89.903, 66.412, 0.441, 1.332)
pt3dadd(89.779, 66.385, 0.435, 1.328)
pt3dadd(89.655, 66.358, 0.429, 1.324)
pt3dadd(89.53, 66.33, 0.423, 1.32)
pt3dadd(89.406, 66.302, 0.417, 1.314)
pt3dadd(89.282, 66.274, 0.411, 1.31)
pt3dadd(89.158, 66.246, 0.405, 1.306)
pt3dadd(89.031, 66.232, 0.399, 1.298)
pt3dadd(88.903, 66.217, 0.393, 1.29)
pt3dadd(88.776, 66.203, 0.387, 1.28)
pt3dadd(88.649, 66.188, 0.381, 1.272)
pt3dadd(88.522, 66.174, 0.376, 1.264)
pt3dadd(88.395, 66.159, 0.37, 1.256)
pt3dadd(88.268, 66.144, 0.364, 1.256)
pt3dadd(88.14, 66.13, 0.358, 1.256)
pt3dadd(88.013, 66.115, 0.352, 1.256)
pt3dadd(87.886, 66.101, 0.346, 1.256)
pt3dadd(87.759, 66.086, 0.34, 1.256)
pt3dadd(87.632, 66.072, 0.334, 1.256)
pt3dadd(87.505, 66.053, 0.328, 1.256)
pt3dadd(87.379, 66.034, 0.322, 1.256)
pt3dadd(87.253, 66.014, 0.316, 1.256)
pt3dadd(87.127, 65.994, 0.31, 1.256)
pt3dadd(87.001, 65.975, 0.304, 1.256)
pt3dadd(86.874, 65.955, 0.298, 1.256)
pt3dadd(86.747, 65.945, 0.292, 1.24)
pt3dadd(86.619, 65.935, 0.286, 1.224)
pt3dadd(86.491, 65.925, 0.28, 1.208)
pt3dadd(86.363, 65.916, 0.274, 1.192)
pt3dadd(86.235, 65.906, 0.268, 1.176)
pt3dadd(86.107, 65.896, 0.262, 1.16)
pt3dadd(85.979, 65.896, 0.256, 1.156)
pt3dadd(85.85, 65.902, 0.25, 1.156)
pt3dadd(85.721, 65.907, 0.244, 1.156)
pt3dadd(85.592, 65.912, 0.238, 1.156)
pt3dadd(85.464, 65.917, 0.232, 1.156)
pt3dadd(85.335, 65.922, 0.227, 1.156)
pt3dadd(85.206, 65.928, 0.221, 1.156)
pt3dadd(85.077, 65.933, 0.215, 1.178)
pt3dadd(84.948, 65.938, 0.209, 1.21)
pt3dadd(84.82, 65.943, 0.203, 1.244)
pt3dadd(84.691, 65.948, 0.197, 1.306)
pt3dadd(84.562, 65.954, 0.191, 1.382)
pt3dadd(84.433, 65.959, 0.185, 1.456)
pt3dadd(84.305, 65.978, 0.179, 1.494)
pt3dadd(84.178, 66.003, 0.173, 1.514)
pt3dadd(84.057, 66.035, 0.167, 1.528)
pt3dadd(84.009, 66.153, 0.161, 1.486)
pt3dadd(83.961, 66.272, 0.155, 1.444)
pt3dadd(83.874, 66.348, 0.181, 1.378)
pt3dadd(83.772, 66.406, 0.219, 1.302)
pt3dadd(83.67, 66.465, 0.257, 1.228)
pt3dadd(83.569, 66.49, 0.31, 1.144)
pt3dadd(83.47, 66.502, 0.37, 1.06)
pt3dadd(83.373, 66.539, 0.423, 0.924)
pt3dadd(83.322, 66.6, 0.497, 0.826)
pt3dadd(83.248, 66.626, 0.57, 0.656)
pt3dadd(83.127, 66.632, 0.595, 0.566)
pt3dadd(82.999, 66.629, 0.595, 0.582)
pt3dadd(82.875, 66.606, 0.58, 0.668)
pt3dadd(82.782, 66.546, 0.532, 0.846)
pt3dadd(82.704, 66.482, 0.469, 1.05)
pt3dadd(82.627, 66.432, 0.395, 1.154)
pt3dadd(82.565, 66.417, 0.302, 1.192)
pt3dadd(82.538, 66.39, 0.203, 1.192)
pt3dadd(82.523, 66.353, 0.103, 1.17)
pt3dadd(82.51, 66.33, 0.001, 1.142)
pt3dadd(82.502, 66.331, -0.105, 1.108)
pt3dadd(82.493, 66.331, -0.211, 1.074)
pt3dadd(82.484, 66.334, -0.317, 0.984)
pt3dadd(82.488, 66.352, -0.42, 0.88)
pt3dadd(82.508, 66.386, -0.52, 0.826)
pt3dadd(82.527, 66.419, -0.62, 0.772)
pt3dadd(82.547, 66.453, -0.721, 0.72)
}
dend_7[12] {pt3dclear()
pt3dadd(151.382, 96.59, 12.246, 0.678)
pt3dadd(151.325, 96.658, 12.225, 0.678)
pt3dadd(151.249, 96.751, 12.202, 0.678)
pt3dadd(151.174, 96.844, 12.179, 0.678)
pt3dadd(151.098, 96.938, 12.156, 0.678)
pt3dadd(151.022, 97.031, 12.133, 0.678)
pt3dadd(150.947, 97.124, 12.11, 0.678)
pt3dadd(150.871, 97.218, 12.087, 0.678)
pt3dadd(150.796, 97.311, 12.064, 0.678)
pt3dadd(150.72, 97.404, 12.041, 0.678)
pt3dadd(150.644, 97.497, 12.018, 0.678)
pt3dadd(150.569, 97.591, 11.995, 0.678)
pt3dadd(150.493, 97.684, 11.972, 0.678)
pt3dadd(150.418, 97.777, 11.949, 0.678)
pt3dadd(150.342, 97.87, 11.926, 0.678)
pt3dadd(150.266, 97.964, 11.903, 0.678)
pt3dadd(150.191, 98.057, 11.88, 0.678)
pt3dadd(150.115, 98.15, 11.857, 0.678)
pt3dadd(150.038, 98.243, 11.833, 0.678)
pt3dadd(149.958, 98.331, 11.807, 0.68)
pt3dadd(149.878, 98.419, 11.78, 0.682)
pt3dadd(149.797, 98.507, 11.753, 0.684)
pt3dadd(149.717, 98.595, 11.727, 0.686)
pt3dadd(149.636, 98.683, 11.7, 0.69)
pt3dadd(149.556, 98.771, 11.674, 0.692)
pt3dadd(149.476, 98.859, 11.647, 0.694)
pt3dadd(149.395, 98.947, 11.62, 0.696)
pt3dadd(149.315, 99.035, 11.594, 0.698)
pt3dadd(149.224, 99.089, 11.554, 0.708)
pt3dadd(149.118, 99.101, 11.5, 0.73)
pt3dadd(149.014, 99.114, 11.444, 0.754)
pt3dadd(148.907, 99.126, 11.389, 0.776)
pt3dadd(148.802, 99.138, 11.334, 0.798)
pt3dadd(148.697, 99.15, 11.279, 0.82)
pt3dadd(148.592, 99.162, 11.224, 0.842)
pt3dadd(148.487, 99.174, 11.169, 0.864)
pt3dadd(148.381, 99.186, 11.114, 0.886)
pt3dadd(148.276, 99.198, 11.059, 0.908)
pt3dadd(148.171, 99.211, 11.004, 0.928)
pt3dadd(148.064, 99.223, 10.95, 0.948)
pt3dadd(147.959, 99.236, 10.896, 0.966)
pt3dadd(147.852, 99.248, 10.842, 0.984)
pt3dadd(147.746, 99.26, 10.788, 1.002)
pt3dadd(147.64, 99.273, 10.734, 1.022)
pt3dadd(147.535, 99.285, 10.681, 1.04)
pt3dadd(147.428, 99.298, 10.627, 1.058)
pt3dadd(147.323, 99.31, 10.573, 1.076)
pt3dadd(147.216, 99.322, 10.519, 1.094)
pt3dadd(147.106, 99.336, 10.474, 1.084)
pt3dadd(146.989, 99.352, 10.441, 1.038)
pt3dadd(146.873, 99.367, 10.407, 0.992)
pt3dadd(146.755, 99.383, 10.374, 0.946)
pt3dadd(146.64, 99.398, 10.341, 0.9)
pt3dadd(146.522, 99.414, 10.307, 0.852)
pt3dadd(146.406, 99.429, 10.274, 0.806)
pt3dadd(146.29, 99.445, 10.241, 0.76)
pt3dadd(146.173, 99.46, 10.207, 0.714)
pt3dadd(146.056, 99.476, 10.174, 0.668)
pt3dadd(145.94, 99.499, 10.144, 0.63)
pt3dadd(145.824, 99.532, 10.118, 0.604)
pt3dadd(145.71, 99.565, 10.092, 0.576)
}
}
proc shape3d_126() {
dend_7[12] { pt3dadd(145.594, 99.598, 10.065, 0.55)
pt3dadd(145.48, 99.631, 10.039, 0.522)
pt3dadd(145.363, 99.664, 10.013, 0.496)
pt3dadd(145.248, 99.697, 9.987, 0.468)
pt3dadd(145.134, 99.73, 9.96, 0.442)
pt3dadd(145.018, 99.763, 9.934, 0.414)
pt3dadd(145.015, 99.763, 9.93, 0.414)
pt3dadd(144.9, 99.796, 9.904, 0.386)
pt3dadd(144.786, 99.836, 9.881, 0.368)
pt3dadd(144.673, 99.88, 9.86, 0.354)
pt3dadd(144.671, 99.881, 9.856, 0.354)
pt3dadd(144.557, 99.925, 9.835, 0.342)
pt3dadd(144.445, 99.97, 9.814, 0.328)
pt3dadd(144.331, 100.014, 9.794, 0.314)
pt3dadd(144.22, 100.059, 9.773, 0.302)
pt3dadd(144.107, 100.104, 9.752, 0.288)
pt3dadd(143.994, 100.148, 9.731, 0.274)
pt3dadd(143.881, 100.193, 9.71, 0.262)
pt3dadd(143.768, 100.237, 9.689, 0.248)
pt3dadd(143.652, 100.274, 9.67, 0.276)
pt3dadd(143.536, 100.306, 9.653, 0.334)
pt3dadd(143.417, 100.337, 9.636, 0.394)
pt3dadd(143.299, 100.368, 9.619, 0.452)
pt3dadd(143.18, 100.4, 9.602, 0.512)
pt3dadd(143.064, 100.431, 9.585, 0.572)
pt3dadd(142.945, 100.462, 9.568, 0.63)
pt3dadd(142.828, 100.493, 9.551, 0.69)
pt3dadd(142.709, 100.525, 9.534, 0.75)
pt3dadd(142.592, 100.556, 9.517, 0.808)
pt3dadd(142.474, 100.584, 9.496, 0.862)
pt3dadd(142.356, 100.61, 9.473, 0.912)
pt3dadd(142.237, 100.635, 9.45, 0.96)
pt3dadd(142.121, 100.661, 9.426, 1.01)
pt3dadd(142.002, 100.686, 9.403, 1.06)
pt3dadd(141.884, 100.712, 9.379, 1.108)
pt3dadd(141.766, 100.737, 9.356, 1.158)
pt3dadd(141.648, 100.763, 9.333, 1.208)
pt3dadd(141.53, 100.788, 9.309, 1.256)
pt3dadd(141.413, 100.814, 9.286, 1.306)
pt3dadd(141.298, 100.831, 9.25, 1.314)
pt3dadd(141.186, 100.844, 9.206, 1.302)
pt3dadd(141.073, 100.858, 9.163, 1.288)
pt3dadd(140.96, 100.871, 9.12, 1.274)
pt3dadd(140.848, 100.884, 9.076, 1.262)
pt3dadd(140.736, 100.897, 9.033, 1.248)
pt3dadd(140.623, 100.91, 8.99, 1.236)
pt3dadd(140.512, 100.923, 8.946, 1.222)
pt3dadd(140.398, 100.936, 8.903, 1.21)
pt3dadd(140.286, 100.949, 8.86, 1.196)
pt3dadd(140.172, 100.958, 8.819, 1.172)
pt3dadd(140.057, 100.965, 8.78, 1.144)
pt3dadd(139.942, 100.972, 8.741, 1.116)
pt3dadd(139.828, 100.979, 8.702, 1.088)
pt3dadd(139.824, 100.98, 8.698, 1.088)
pt3dadd(139.709, 100.986, 8.659, 1.06)
pt3dadd(139.594, 100.993, 8.62, 1.032)
pt3dadd(139.48, 101, 8.581, 1.004)
pt3dadd(139.363, 101.007, 8.542, 0.976)
pt3dadd(139.249, 101.014, 8.503, 0.948)
pt3dadd(139.133, 101.021, 8.464, 0.92)
pt3dadd(139.018, 101.024, 8.428, 0.882)
pt3dadd(138.9, 101.025, 8.393, 0.842)
pt3dadd(138.784, 101.027, 8.357, 0.8)
pt3dadd(138.666, 101.028, 8.322, 0.758)
pt3dadd(138.55, 101.029, 8.287, 0.718)
pt3dadd(138.433, 101.031, 8.252, 0.676)
pt3dadd(138.317, 101.032, 8.217, 0.636)
pt3dadd(138.2, 101.034, 8.182, 0.594)
pt3dadd(138.083, 101.035, 8.147, 0.554)
pt3dadd(137.966, 101.036, 8.112, 0.512)
pt3dadd(137.848, 101.038, 8.08, 0.488)
pt3dadd(137.729, 101.04, 8.051, 0.47)
pt3dadd(137.61, 101.043, 8.022, 0.452)
pt3dadd(137.491, 101.045, 7.993, 0.436)
pt3dadd(137.371, 101.047, 7.963, 0.418)
pt3dadd(137.254, 101.05, 7.934, 0.402)
pt3dadd(137.134, 101.052, 7.905, 0.384)
pt3dadd(137.015, 101.054, 7.875, 0.368)
pt3dadd(136.896, 101.057, 7.846, 0.35)
pt3dadd(136.777, 101.059, 7.817, 0.334)
pt3dadd(136.658, 101.061, 7.785, 0.32)
pt3dadd(136.542, 101.064, 7.751, 0.31)
pt3dadd(136.424, 101.067, 7.718, 0.3)
pt3dadd(136.307, 101.07, 7.684, 0.29)
pt3dadd(136.189, 101.072, 7.651, 0.28)
pt3dadd(136.072, 101.075, 7.617, 0.27)
pt3dadd(135.954, 101.077, 7.584, 0.26)
pt3dadd(135.836, 101.08, 7.55, 0.25)
pt3dadd(135.719, 101.083, 7.517, 0.24)
pt3dadd(135.602, 101.085, 7.483, 0.228)
pt3dadd(135.488, 101.089, 7.441, 0.226)
pt3dadd(135.377, 101.093, 7.394, 0.226)
pt3dadd(135.265, 101.097, 7.348, 0.226)
pt3dadd(135.155, 101.101, 7.301, 0.226)
pt3dadd(135.043, 101.105, 7.255, 0.226)
pt3dadd(134.932, 101.109, 7.208, 0.226)
pt3dadd(134.82, 101.113, 7.162, 0.226)
pt3dadd(134.71, 101.117, 7.115, 0.226)
pt3dadd(134.597, 101.121, 7.069, 0.226)
pt3dadd(134.486, 101.125, 7.023, 0.226)
pt3dadd(134.372, 101.131, 6.979, 0.236)
pt3dadd(134.26, 101.137, 6.937, 0.252)
pt3dadd(134.146, 101.144, 6.895, 0.266)
pt3dadd(134.033, 101.15, 6.853, 0.28)
pt3dadd(133.918, 101.157, 6.811, 0.294)
pt3dadd(133.805, 101.163, 6.769, 0.31)
pt3dadd(133.691, 101.17, 6.727, 0.324)
pt3dadd(133.578, 101.176, 6.685, 0.338)
pt3dadd(133.464, 101.183, 6.643, 0.354)
pt3dadd(133.351, 101.189, 6.601, 0.368)
pt3dadd(133.235, 101.198, 6.562, 0.392)
pt3dadd(133.121, 101.206, 6.524, 0.418)
pt3dadd(133.004, 101.215, 6.485, 0.446)
pt3dadd(132.89, 101.224, 6.447, 0.474)
pt3dadd(132.774, 101.233, 6.409, 0.5)
pt3dadd(132.659, 101.242, 6.371, 0.528)
pt3dadd(132.544, 101.251, 6.333, 0.554)
pt3dadd(132.428, 101.26, 6.294, 0.582)
pt3dadd(132.313, 101.269, 6.256, 0.608)
pt3dadd(132.198, 101.278, 6.218, 0.636)
pt3dadd(132.086, 101.289, 6.172, 0.63)
pt3dadd(131.977, 101.302, 6.124, 0.61)
pt3dadd(131.867, 101.315, 6.076, 0.592)
pt3dadd(131.759, 101.328, 6.027, 0.574)
pt3dadd(131.648, 101.342, 5.979, 0.554)
pt3dadd(131.539, 101.355, 5.93, 0.536)
pt3dadd(131.429, 101.367, 5.882, 0.518)
pt3dadd(131.32, 101.38, 5.833, 0.5)
pt3dadd(131.21, 101.393, 5.785, 0.48)
pt3dadd(131.101, 101.406, 5.737, 0.462)
pt3dadd(130.992, 101.422, 5.688, 0.44)
pt3dadd(130.883, 101.439, 5.64, 0.416)
pt3dadd(130.774, 101.455, 5.592, 0.394)
pt3dadd(130.77, 101.456, 5.589, 0.394)
pt3dadd(130.662, 101.473, 5.54, 0.37)
pt3dadd(130.552, 101.489, 5.492, 0.348)
pt3dadd(130.444, 101.506, 5.444, 0.324)
pt3dadd(130.333, 101.523, 5.396, 0.3)
pt3dadd(130.224, 101.539, 5.348, 0.278)
pt3dadd(130.115, 101.556, 5.3, 0.254)
pt3dadd(130.006, 101.573, 5.252, 0.23)
pt3dadd(130.002, 101.573, 5.248, 0.23)
pt3dadd(129.893, 101.612, 5.215, 0.226)
pt3dadd(129.782, 101.658, 5.187, 0.226)
pt3dadd(129.672, 101.703, 5.159, 0.226)
pt3dadd(129.562, 101.748, 5.131, 0.226)
pt3dadd(129.451, 101.793, 5.102, 0.226)
pt3dadd(129.341, 101.839, 5.074, 0.226)
pt3dadd(129.23, 101.884, 5.046, 0.226)
pt3dadd(129.12, 101.929, 5.017, 0.226)
pt3dadd(129.01, 101.974, 4.989, 0.226)
pt3dadd(128.899, 102.02, 4.961, 0.226)
pt3dadd(128.788, 102.062, 4.934, 0.226)
pt3dadd(128.674, 102.102, 4.909, 0.226)
pt3dadd(128.562, 102.143, 4.883, 0.226)
pt3dadd(128.448, 102.184, 4.857, 0.226)
pt3dadd(128.335, 102.225, 4.831, 0.226)
pt3dadd(128.222, 102.266, 4.806, 0.226)
pt3dadd(128.22, 102.267, 4.802, 0.226)
pt3dadd(128.106, 102.308, 4.776, 0.226)
pt3dadd(127.994, 102.349, 4.75, 0.226)
pt3dadd(127.88, 102.39, 4.725, 0.226)
pt3dadd(127.769, 102.431, 4.699, 0.226)
pt3dadd(127.652, 102.465, 4.677, 0.226)
pt3dadd(127.536, 102.497, 4.656, 0.226)
pt3dadd(127.418, 102.529, 4.635, 0.226)
pt3dadd(127.302, 102.561, 4.614, 0.226)
pt3dadd(127.184, 102.594, 4.594, 0.226)
pt3dadd(127.068, 102.626, 4.573, 0.226)
pt3dadd(126.95, 102.658, 4.552, 0.226)
pt3dadd(126.834, 102.691, 4.531, 0.226)
pt3dadd(126.716, 102.723, 4.51, 0.226)
pt3dadd(126.6, 102.755, 4.489, 0.226)
pt3dadd(126.481, 102.782, 4.471, 0.226)
pt3dadd(126.362, 102.807, 4.455, 0.226)
pt3dadd(126.242, 102.833, 4.438, 0.226)
pt3dadd(126.124, 102.858, 4.421, 0.226)
pt3dadd(126.004, 102.884, 4.404, 0.226)
pt3dadd(125.885, 102.909, 4.387, 0.226)
pt3dadd(125.765, 102.935, 4.37, 0.226)
pt3dadd(125.646, 102.96, 4.354, 0.226)
pt3dadd(125.526, 102.986, 4.337, 0.226)
pt3dadd(125.408, 103.011, 4.32, 0.226)
pt3dadd(125.287, 103.034, 4.302, 0.228)
pt3dadd(125.168, 103.055, 4.284, 0.228)
pt3dadd(125.048, 103.077, 4.265, 0.23)
pt3dadd(124.928, 103.098, 4.247, 0.232)
pt3dadd(124.808, 103.12, 4.229, 0.234)
pt3dadd(124.688, 103.142, 4.211, 0.236)
pt3dadd(124.568, 103.163, 4.192, 0.238)
pt3dadd(124.45, 103.185, 4.174, 0.238)
pt3dadd(124.328, 103.206, 4.156, 0.24)
pt3dadd(124.21, 103.228, 4.138, 0.242)
pt3dadd(124.094, 103.244, 4.1, 0.254)
pt3dadd(123.982, 103.259, 4.059, 0.268)
pt3dadd(123.869, 103.274, 4.019, 0.28)
pt3dadd(123.755, 103.289, 3.978, 0.294)
pt3dadd(123.642, 103.303, 3.937, 0.308)
pt3dadd(123.528, 103.318, 3.896, 0.32)
pt3dadd(123.415, 103.333, 3.856, 0.334)
}
}
proc shape3d_127() {
dend_7[12] { pt3dadd(123.301, 103.348, 3.815, 0.348)
pt3dadd(123.187, 103.363, 3.774, 0.36)
pt3dadd(123.073, 103.378, 3.733, 0.374)
pt3dadd(122.962, 103.406, 3.697, 0.394)
pt3dadd(122.848, 103.435, 3.662, 0.414)
pt3dadd(122.735, 103.465, 3.627, 0.434)
pt3dadd(122.622, 103.494, 3.591, 0.454)
pt3dadd(122.509, 103.524, 3.556, 0.474)
pt3dadd(122.395, 103.554, 3.52, 0.494)
pt3dadd(122.284, 103.583, 3.485, 0.514)
pt3dadd(122.17, 103.613, 3.449, 0.534)
pt3dadd(122.057, 103.643, 3.414, 0.554)
pt3dadd(121.944, 103.672, 3.379, 0.574)
pt3dadd(121.835, 103.72, 3.351, 0.602)
pt3dadd(121.724, 103.768, 3.323, 0.63)
pt3dadd(121.615, 103.816, 3.296, 0.658)
pt3dadd(121.506, 103.864, 3.268, 0.686)
pt3dadd(121.397, 103.912, 3.241, 0.714)
pt3dadd(121.286, 103.96, 3.213, 0.742)
pt3dadd(121.178, 104.008, 3.185, 0.77)
pt3dadd(121.068, 104.056, 3.158, 0.798)
pt3dadd(120.959, 104.104, 3.13, 0.826)
pt3dadd(120.85, 104.152, 3.103, 0.854)
pt3dadd(120.733, 104.19, 3.087, 0.83)
pt3dadd(120.617, 104.227, 3.071, 0.804)
pt3dadd(120.502, 104.264, 3.055, 0.778)
pt3dadd(120.384, 104.302, 3.039, 0.752)
pt3dadd(120.269, 104.339, 3.024, 0.726)
pt3dadd(120.151, 104.376, 3.008, 0.7)
pt3dadd(120.036, 104.414, 2.992, 0.676)
pt3dadd(119.919, 104.451, 2.976, 0.65)
pt3dadd(119.803, 104.488, 2.961, 0.624)
pt3dadd(119.687, 104.526, 2.945, 0.598)
pt3dadd(119.569, 104.561, 2.932, 0.56)
pt3dadd(119.452, 104.596, 2.919, 0.524)
pt3dadd(119.334, 104.631, 2.906, 0.486)
pt3dadd(119.217, 104.665, 2.893, 0.45)
pt3dadd(119.1, 104.7, 2.879, 0.412)
pt3dadd(118.982, 104.735, 2.866, 0.374)
pt3dadd(118.865, 104.77, 2.853, 0.338)
pt3dadd(118.747, 104.805, 2.84, 0.3)
pt3dadd(118.63, 104.84, 2.827, 0.264)
pt3dadd(118.512, 104.875, 2.814, 0.226)
pt3dadd(118.4, 104.925, 2.81, 0.512)
pt3dadd(118.288, 104.973, 2.806, 0.706)
pt3dadd(118.168, 104.995, 2.793, 0.82)
pt3dadd(118.052, 104.997, 2.76, 0.944)
pt3dadd(117.955, 104.998, 2.694, 1.108)
pt3dadd(117.843, 105.014, 2.66, 1.158)
pt3dadd(117.723, 105.036, 2.642, 1.162)
pt3dadd(117.604, 105.06, 2.624, 1.168)
pt3dadd(117.484, 105.083, 2.606, 1.172)
pt3dadd(117.365, 105.105, 2.588, 1.176)
pt3dadd(117.248, 105.137, 2.568, 1.176)
pt3dadd(117.139, 105.189, 2.546, 1.16)
pt3dadd(117.03, 105.241, 2.523, 1.144)
pt3dadd(116.922, 105.294, 2.5, 1.126)
pt3dadd(116.813, 105.346, 2.478, 1.11)
pt3dadd(116.707, 105.388, 2.438, 1.09)
pt3dadd(116.604, 105.425, 2.389, 1.068)
pt3dadd(116.5, 105.462, 2.339, 1.044)
pt3dadd(116.397, 105.499, 2.29, 1.022)
pt3dadd(116.297, 105.544, 2.243, 0.972)
pt3dadd(116.201, 105.597, 2.195, 0.93)
pt3dadd(116.103, 105.641, 2.143, 0.93)
pt3dadd(116.071, 105.712, 2.068, 0.936)
pt3dadd(116.053, 105.789, 1.988, 0.946)
pt3dadd(116.038, 105.861, 1.905, 0.954)
pt3dadd(116.035, 105.916, 1.812, 0.954)
pt3dadd(116.032, 105.97, 1.719, 0.954)
pt3dadd(115.982, 105.972, 1.624, 0.914)
pt3dadd(115.931, 105.973, 1.529, 0.872)
pt3dadd(115.88, 105.974, 1.434, 0.832)
pt3dadd(115.81, 105.974, 1.347, 0.742)
pt3dadd(115.739, 105.975, 1.261, 0.648)
pt3dadd(115.634, 106.007, 1.229, 0.584)
pt3dadd(115.519, 106.049, 1.213, 0.528)
pt3dadd(115.404, 106.09, 1.197, 0.472)
pt3dadd(115.289, 106.131, 1.184, 0.422)
pt3dadd(115.173, 106.172, 1.18, 0.402)
pt3dadd(115.057, 106.212, 1.177, 0.38)
pt3dadd(114.941, 106.219, 1.201, 0.412)
pt3dadd(114.824, 106.22, 1.23, 0.456)
pt3dadd(114.726, 106.247, 1.275, 0.526)
pt3dadd(114.647, 106.301, 1.334, 0.626)
pt3dadd(114.573, 106.372, 1.385, 0.728)
pt3dadd(114.501, 106.449, 1.433, 0.828)
pt3dadd(114.449, 106.469, 1.519, 0.902)
pt3dadd(114.42, 106.543, 1.579, 0.952)
pt3dadd(114.404, 106.647, 1.624, 0.988)
pt3dadd(114.356, 106.749, 1.641, 1.012)
pt3dadd(114.285, 106.849, 1.637, 1.022)
pt3dadd(114.2, 106.932, 1.633, 1.04)
pt3dadd(114.093, 106.994, 1.63, 1.062)
pt3dadd(113.988, 107.057, 1.626, 1.082)
pt3dadd(113.886, 107.125, 1.623, 1.094)
pt3dadd(113.785, 107.195, 1.621, 1.106)
pt3dadd(113.699, 107.278, 1.64, 1.108)
pt3dadd(113.614, 107.361, 1.659, 1.11)
pt3dadd(113.528, 107.444, 1.679, 1.114)
pt3dadd(113.443, 107.527, 1.698, 1.116)
pt3dadd(113.357, 107.611, 1.717, 1.12)
pt3dadd(113.271, 107.694, 1.737, 1.122)
pt3dadd(113.186, 107.777, 1.756, 1.126)
pt3dadd(113.1, 107.86, 1.775, 1.128)
pt3dadd(113.005, 107.898, 1.786, 1.142)
pt3dadd(112.891, 107.852, 1.783, 1.174)
pt3dadd(112.777, 107.808, 1.779, 1.206)
pt3dadd(112.654, 107.804, 1.776, 1.206)
pt3dadd(112.531, 107.8, 1.772, 1.206)
pt3dadd(112.409, 107.797, 1.764, 1.208)
pt3dadd(112.291, 107.798, 1.733, 1.218)
pt3dadd(112.172, 107.799, 1.701, 1.228)
pt3dadd(112.063, 107.799, 1.653, 1.248)
pt3dadd(111.957, 107.8, 1.599, 1.27)
pt3dadd(111.878, 107.8, 1.523, 1.28)
pt3dadd(111.819, 107.803, 1.431, 1.28)
pt3dadd(111.816, 107.804, 1.428, 1.28)
pt3dadd(111.732, 107.839, 1.356, 1.256)
pt3dadd(111.647, 107.874, 1.285, 1.232)
pt3dadd(111.563, 107.909, 1.214, 1.208)
pt3dadd(111.479, 107.944, 1.142, 1.184)
pt3dadd(111.39, 107.97, 1.073, 1.144)
pt3dadd(111.299, 107.995, 1.004, 1.098)
pt3dadd(111.209, 108.02, 0.935, 1.052)
pt3dadd(111.118, 108.045, 0.866, 1.008)
pt3dadd(111.059, 108.076, 0.786, 0.95)
pt3dadd(111.05, 108.119, 0.688, 0.872)
pt3dadd(111.03, 108.159, 0.596, 0.798)
pt3dadd(110.934, 108.188, 0.533, 0.758)
pt3dadd(110.841, 108.227, 0.474, 0.732)
pt3dadd(110.755, 108.295, 0.426, 0.746)
pt3dadd(110.667, 108.371, 0.395, 0.778)
pt3dadd(110.576, 108.453, 0.38, 0.83)
pt3dadd(110.481, 108.515, 0.347, 0.896)
pt3dadd(110.386, 108.565, 0.296, 0.962)
pt3dadd(110.307, 108.631, 0.237, 0.986)
pt3dadd(110.229, 108.698, 0.179, 1.01)
pt3dadd(110.15, 108.764, 0.12, 1.036)
pt3dadd(110.147, 108.765, 0.117, 1.036)
pt3dadd(110.073, 108.826, 0.052, 1.056)
pt3dadd(110.07, 108.827, 0.049, 1.056)
pt3dadd(110.01, 108.871, -0.035, 1.062)
pt3dadd(109.951, 108.915, -0.12, 1.068)
pt3dadd(109.892, 108.96, -0.204, 1.074)
pt3dadd(109.833, 109.004, -0.288, 1.08)
pt3dadd(109.773, 109.009, -0.379, 1.084)
pt3dadd(109.712, 109.012, -0.47, 1.09)
pt3dadd(109.651, 109.015, -0.561, 1.094)
pt3dadd(109.59, 109.019, -0.652, 1.1)
pt3dadd(109.53, 109.022, -0.744, 1.104)
pt3dadd(109.507, 109.023, -0.845, 1.104)
pt3dadd(109.489, 109.023, -0.948, 1.104)
pt3dadd(109.471, 109.024, -1.051, 1.104)
pt3dadd(109.453, 109.025, -1.154, 1.104)
pt3dadd(109.435, 109.025, -1.257, 1.104)
pt3dadd(109.417, 109.026, -1.359, 1.104)
pt3dadd(109.409, 109.027, -1.463, 1.116)
pt3dadd(109.406, 109.027, -1.566, 1.132)
pt3dadd(109.403, 109.028, -1.67, 1.148)
pt3dadd(109.365, 109.032, -1.766, 1.162)
pt3dadd(109.306, 109.039, -1.858, 1.174)
pt3dadd(109.226, 109.074, -1.913, 1.192)
pt3dadd(109.124, 109.141, -1.928, 1.216)
pt3dadd(109.023, 109.201, -1.957, 1.262)
pt3dadd(108.925, 109.253, -2.004, 1.332)
pt3dadd(108.813, 109.288, -2.027, 1.458)
pt3dadd(108.693, 109.314, -2.037, 1.614)
pt3dadd(108.575, 109.348, -2.041, 1.77)
pt3dadd(108.456, 109.382, -2.044, 1.926)
pt3dadd(108.336, 109.404, -2.051, 2.056)
pt3dadd(108.214, 109.42, -2.059, 2.172)
pt3dadd(108.094, 109.437, -2.069, 2.288)
pt3dadd(108.033, 109.482, -2.152, 2.342)
pt3dadd(107.961, 109.509, -2.223, 2.37)
pt3dadd(107.847, 109.47, -2.248, 2.296)
pt3dadd(107.736, 109.426, -2.27, 2.226)
pt3dadd(107.636, 109.356, -2.273, 2.17)
pt3dadd(107.536, 109.286, -2.277, 2.114)
pt3dadd(107.436, 109.216, -2.28, 2.058)
pt3dadd(107.358, 109.127, -2.284, 1.994)
pt3dadd(107.294, 109.024, -2.288, 1.924)
pt3dadd(107.224, 108.925, -2.291, 1.814)
pt3dadd(107.221, 108.926, -2.295, 1.814)
pt3dadd(107.119, 108.864, -2.299, 1.736)
pt3dadd(107.006, 108.818, -2.302, 1.702)
pt3dadd(106.892, 108.771, -2.306, 1.67)
pt3dadd(106.779, 108.724, -2.309, 1.636)
pt3dadd(106.666, 108.677, -2.313, 1.604)
pt3dadd(106.552, 108.631, -2.317, 1.57)
pt3dadd(106.438, 108.587, -2.32, 1.538)
pt3dadd(106.324, 108.543, -2.324, 1.504)
pt3dadd(106.209, 108.499, -2.327, 1.472)
pt3dadd(106.095, 108.455, -2.331, 1.44)
pt3dadd(105.981, 108.411, -2.335, 1.408)
pt3dadd(105.873, 108.352, -2.338, 1.382)
pt3dadd(105.766, 108.293, -2.342, 1.358)
pt3dadd(105.659, 108.234, -2.345, 1.334)
pt3dadd(105.552, 108.174, -2.349, 1.308)
pt3dadd(105.445, 108.115, -2.353, 1.284)
}
}
proc shape3d_128() {
dend_7[12] { pt3dadd(105.34, 108.053, -2.352, 1.25)
pt3dadd(105.236, 107.99, -2.35, 1.214)
pt3dadd(105.181, 107.897, -2.322, 1.176)
pt3dadd(105.144, 107.793, -2.285, 1.136)
pt3dadd(105.047, 107.754, -2.25, 1.12)
pt3dadd(104.937, 107.728, -2.214, 1.106)
pt3dadd(104.824, 107.686, -2.198, 1.084)
pt3dadd(104.712, 107.642, -2.185, 1.06)
pt3dadd(104.592, 107.626, -2.185, 1.044)
pt3dadd(104.469, 107.62, -2.189, 1.032)
pt3dadd(104.347, 107.62, -2.178, 1.022)
pt3dadd(104.226, 107.62, -2.165, 1.014)
pt3dadd(104.105, 107.621, -2.152, 1.006)
pt3dadd(103.983, 107.622, -2.14, 0.998)
pt3dadd(103.862, 107.622, -2.127, 0.99)
pt3dadd(103.74, 107.623, -2.114, 0.982)
pt3dadd(103.618, 107.633, -2.114, 0.988)
pt3dadd(103.496, 107.647, -2.118, 1)
pt3dadd(103.374, 107.66, -2.121, 1.012)
pt3dadd(103.251, 107.673, -2.125, 1.024)
pt3dadd(103.248, 107.674, -2.128, 1.024)
pt3dadd(103.126, 107.687, -2.132, 1.036)
pt3dadd(103.004, 107.7, -2.136, 1.048)
pt3dadd(102.886, 107.731, -2.139, 1.058)
pt3dadd(102.776, 107.785, -2.143, 1.068)
pt3dadd(102.666, 107.839, -2.146, 1.078)
pt3dadd(102.555, 107.893, -2.15, 1.088)
pt3dadd(102.445, 107.947, -2.154, 1.098)
pt3dadd(102.34, 108.008, -2.162, 1.104)
pt3dadd(102.254, 108.091, -2.188, 1.104)
pt3dadd(102.168, 108.174, -2.215, 1.104)
pt3dadd(102.083, 108.257, -2.241, 1.104)
pt3dadd(101.997, 108.34, -2.268, 1.104)
pt3dadd(101.898, 108.405, -2.296, 1.086)
pt3dadd(101.795, 108.465, -2.325, 1.064)
pt3dadd(101.693, 108.526, -2.354, 1.04)
pt3dadd(101.59, 108.587, -2.382, 1.018)
pt3dadd(101.491, 108.652, -2.409, 0.998)
pt3dadd(101.395, 108.725, -2.433, 0.98)
pt3dadd(101.299, 108.798, -2.456, 0.964)
pt3dadd(101.203, 108.871, -2.48, 0.946)
pt3dadd(101.107, 108.943, -2.503, 0.93)
pt3dadd(101.001, 109.005, -2.508, 0.94)
pt3dadd(100.895, 109.066, -2.511, 0.952)
pt3dadd(100.775, 109.084, -2.515, 0.968)
pt3dadd(100.653, 109.09, -2.519, 0.984)
pt3dadd(100.53, 109.095, -2.522, 1.002)
pt3dadd(100.44, 109.162, -2.559, 1.042)
pt3dadd(100.353, 109.235, -2.6, 1.078)
pt3dadd(100.249, 109.286, -2.639, 1.064)
pt3dadd(100.148, 109.325, -2.685, 1.042)
pt3dadd(100.051, 109.325, -2.751, 0.988)
pt3dadd(99.953, 109.362, -2.806, 0.912)
pt3dadd(99.855, 109.407, -2.858, 0.83)
pt3dadd(99.756, 109.428, -2.919, 0.778)
pt3dadd(99.656, 109.449, -2.979, 0.726)
pt3dadd(99.544, 109.468, -3.02, 0.69)
pt3dadd(99.431, 109.488, -3.061, 0.654)
pt3dadd(99.334, 109.563, -3.065, 0.642)
pt3dadd(99.238, 109.639, -3.069, 0.63)
pt3dadd(99.156, 109.727, -3.091, 0.622)
pt3dadd(99.077, 109.816, -3.115, 0.614)
pt3dadd(98.997, 109.906, -3.14, 0.606)
pt3dadd(98.945, 110.012, -3.161, 0.62)
pt3dadd(98.905, 110.125, -3.18, 0.642)
pt3dadd(98.886, 110.242, -3.191, 0.71)
pt3dadd(98.883, 110.363, -3.196, 0.788)
pt3dadd(98.88, 110.483, -3.204, 0.848)
pt3dadd(98.877, 110.604, -3.211, 0.91)
pt3dadd(98.874, 110.718, -3.242, 0.982)
pt3dadd(98.871, 110.829, -3.285, 1.058)
pt3dadd(98.857, 110.938, -3.33, 1.134)
pt3dadd(98.827, 111.042, -3.379, 1.212)
pt3dadd(98.824, 111.042, -3.383, 1.212)
pt3dadd(98.758, 111.112, -3.429, 1.266)
pt3dadd(98.648, 111.139, -3.472, 1.292)
pt3dadd(98.539, 111.178, -3.509, 1.324)
pt3dadd(98.437, 111.236, -3.539, 1.356)
pt3dadd(98.359, 111.322, -3.574, 1.364)
pt3dadd(98.28, 111.407, -3.609, 1.368)
pt3dadd(98.201, 111.493, -3.645, 1.374)
pt3dadd(98.123, 111.579, -3.68, 1.38)
pt3dadd(98.109, 111.658, -3.756, 1.404)
pt3dadd(98.099, 111.736, -3.836, 1.428)
pt3dadd(98.059, 111.845, -3.853, 1.412)
pt3dadd(98.014, 111.958, -3.861, 1.39)
pt3dadd(97.953, 112.063, -3.866, 1.358)
pt3dadd(97.882, 112.162, -3.87, 1.324)
pt3dadd(97.787, 112.22, -3.874, 1.292)
pt3dadd(97.664, 112.23, -3.877, 1.266)
pt3dadd(97.541, 112.24, -3.881, 1.238)
pt3dadd(97.443, 112.302, -3.887, 1.216)
pt3dadd(97.355, 112.387, -3.893, 1.194)
pt3dadd(97.268, 112.473, -3.9, 1.172)
pt3dadd(97.189, 112.55, -3.925, 1.146)
pt3dadd(97.143, 112.601, -4.013, 1.106)
pt3dadd(97.082, 112.651, -4.09, 1.068)
pt3dadd(96.994, 112.703, -4.15, 1.036)
pt3dadd(96.906, 112.755, -4.21, 1.004)
pt3dadd(96.903, 112.755, -4.213, 1.004)
pt3dadd(96.812, 112.838, -4.217, 0.992)
pt3dadd(96.722, 112.92, -4.221, 0.98)
pt3dadd(96.622, 112.99, -4.224, 0.952)
pt3dadd(96.505, 113.029, -4.228, 0.938)
pt3dadd(96.389, 113.069, -4.231, 0.924)
pt3dadd(96.272, 113.108, -4.235, 0.91)
pt3dadd(96.156, 113.148, -4.239, 0.898)
pt3dadd(96.039, 113.187, -4.242, 0.884)
pt3dadd(95.921, 113.214, -4.26, 0.866)
pt3dadd(95.803, 113.235, -4.285, 0.846)
pt3dadd(95.684, 113.256, -4.31, 0.828)
pt3dadd(95.566, 113.278, -4.335, 0.808)
pt3dadd(95.448, 113.299, -4.36, 0.788)
pt3dadd(95.334, 113.336, -4.384, 0.774)
pt3dadd(95.227, 113.391, -4.407, 0.762)
pt3dadd(95.12, 113.447, -4.43, 0.752)
pt3dadd(95.013, 113.502, -4.452, 0.74)
pt3dadd(94.906, 113.558, -4.475, 0.73)
pt3dadd(94.823, 113.644, -4.499, 0.742)
pt3dadd(94.745, 113.734, -4.523, 0.76)
pt3dadd(94.666, 113.825, -4.546, 0.776)
pt3dadd(94.588, 113.916, -4.57, 0.794)
pt3dadd(94.512, 114.008, -4.596, 0.824)
pt3dadd(94.438, 114.101, -4.625, 0.87)
pt3dadd(94.365, 114.194, -4.654, 0.916)
pt3dadd(94.292, 114.286, -4.683, 0.962)
pt3dadd(94.218, 114.379, -4.712, 1.01)
pt3dadd(94.138, 114.468, -4.739, 1.072)
pt3dadd(94.059, 114.557, -4.765, 1.136)
pt3dadd(94.056, 114.558, -4.769, 1.136)
pt3dadd(93.977, 114.647, -4.796, 1.198)
pt3dadd(93.898, 114.736, -4.822, 1.262)
pt3dadd(93.816, 114.823, -4.849, 1.326)
pt3dadd(93.733, 114.909, -4.875, 1.388)
pt3dadd(93.651, 114.995, -4.902, 1.452)
pt3dadd(93.568, 115.081, -4.928, 1.516)
pt3dadd(93.483, 115.155, -4.966, 1.576)
pt3dadd(93.394, 115.203, -5.026, 1.63)
pt3dadd(93.304, 115.253, -5.086, 1.684)
pt3dadd(93.214, 115.301, -5.145, 1.738)
pt3dadd(93.128, 115.354, -5.206, 1.794)
pt3dadd(93.056, 115.424, -5.267, 1.852)
pt3dadd(92.987, 115.497, -5.328, 1.884)
pt3dadd(92.923, 115.575, -5.389, 1.884)
pt3dadd(92.882, 115.653, -5.461, 1.844)
pt3dadd(92.851, 115.733, -5.536, 1.79)
pt3dadd(92.753, 115.79, -5.564, 1.762)
pt3dadd(92.644, 115.843, -5.584, 1.736)
pt3dadd(92.541, 115.856, -5.638, 1.732)
pt3dadd(92.439, 115.86, -5.698, 1.732)
pt3dadd(92.338, 115.864, -5.759, 1.732)
pt3dadd(92.262, 115.867, -5.833, 1.742)
pt3dadd(92.238, 115.868, -5.935, 1.772)
pt3dadd(92.215, 115.869, -6.037, 1.8)
pt3dadd(92.128, 115.869, -6.1, 1.814)
pt3dadd(92.018, 115.87, -6.148, 1.822)
pt3dadd(91.907, 115.871, -6.197, 1.832)
pt3dadd(91.788, 115.871, -6.214, 1.8)
pt3dadd(91.665, 115.872, -6.222, 1.758)
pt3dadd(91.542, 115.872, -6.229, 1.714)
pt3dadd(91.419, 115.873, -6.233, 1.47)
pt3dadd(91.297, 115.874, -6.253, 1.382)
pt3dadd(91.176, 115.874, -6.275, 1.322)
pt3dadd(91.056, 115.875, -6.297, 1.264)
pt3dadd(90.935, 115.876, -6.319, 1.206)
pt3dadd(90.814, 115.876, -6.341, 1.146)
pt3dadd(90.693, 115.877, -6.364, 1.088)
pt3dadd(90.572, 115.877, -6.384, 1.044)
pt3dadd(90.45, 115.878, -6.404, 1.002)
pt3dadd(90.329, 115.879, -6.424, 0.962)
pt3dadd(90.208, 115.879, -6.444, 0.92)
pt3dadd(90.086, 115.88, -6.464, 0.88)
pt3dadd(89.965, 115.881, -6.484, 0.838)
pt3dadd(89.867, 115.881, -6.545, 0.782)
pt3dadd(89.777, 115.882, -6.616, 0.724)
pt3dadd(89.678, 115.911, -6.671, 0.704)
pt3dadd(89.574, 115.955, -6.716, 0.704)
pt3dadd(89.461, 115.979, -6.753, 0.732)
pt3dadd(89.346, 115.998, -6.788, 0.766)
pt3dadd(89.226, 116.008, -6.802, 0.812)
pt3dadd(89.103, 116.013, -6.805, 0.864)
pt3dadd(88.98, 116.018, -6.809, 0.916)
pt3dadd(88.88, 116.081, -6.819, 1)
pt3dadd(88.787, 116.152, -6.845, 1.062)
pt3dadd(88.691, 116.21, -6.891, 1.08)
pt3dadd(88.688, 116.21, -6.895, 1.08)
pt3dadd(88.593, 116.268, -6.941, 1.098)
pt3dadd(88.498, 116.326, -6.987, 1.116)
pt3dadd(88.397, 116.37, -7.029, 1.126)
pt3dadd(88.277, 116.371, -7.054, 1.106)
pt3dadd(88.157, 116.372, -7.08, 1.086)
pt3dadd(88.072, 116.372, -7.149, 1.062)
pt3dadd(88.001, 116.373, -7.235, 1.04)
pt3dadd(87.907, 116.385, -7.296, 1.008)
pt3dadd(87.794, 116.404, -7.337, 0.972)
pt3dadd(87.679, 116.431, -7.36, 0.948)
pt3dadd(87.561, 116.465, -7.363, 0.938)
pt3dadd(87.442, 116.496, -7.367, 0.93)
pt3dadd(87.319, 116.497, -7.37, 0.942)
pt3dadd(87.196, 116.497, -7.376, 0.954)
}
}
proc shape3d_129() {
dend_7[12] { pt3dadd(87.076, 116.498, -7.402, 0.964)
pt3dadd(86.957, 116.499, -7.429, 0.972)
pt3dadd(86.837, 116.499, -7.455, 0.98)
pt3dadd(86.717, 116.5, -7.482, 0.99)
pt3dadd(86.597, 116.5, -7.508, 0.998)
pt3dadd(86.477, 116.501, -7.535, 1.004)
pt3dadd(86.358, 116.502, -7.564, 1.004)
pt3dadd(86.239, 116.502, -7.593, 1.004)
pt3dadd(86.12, 116.503, -7.622, 1.004)
pt3dadd(86.001, 116.504, -7.65, 1.004)
pt3dadd(85.882, 116.504, -7.679, 1.004)
pt3dadd(85.879, 116.505, -7.683, 1.004)
pt3dadd(85.767, 116.522, -7.722, 0.998)
pt3dadd(85.662, 116.556, -7.77, 0.988)
pt3dadd(85.557, 116.589, -7.819, 0.976)
pt3dadd(85.452, 116.623, -7.868, 0.964)
pt3dadd(85.347, 116.658, -7.915, 0.954)
pt3dadd(85.238, 116.705, -7.945, 0.954)
pt3dadd(85.13, 116.753, -7.976, 0.954)
pt3dadd(85.021, 116.8, -8.006, 0.954)
pt3dadd(84.912, 116.848, -8.037, 0.954)
pt3dadd(84.803, 116.897, -8.061, 0.968)
pt3dadd(84.692, 116.948, -8.078, 0.994)
pt3dadd(84.581, 116.998, -8.095, 1.02)
pt3dadd(84.47, 117.048, -8.113, 1.046)
pt3dadd(84.359, 117.099, -8.13, 1.072)
pt3dadd(84.25, 117.152, -8.15, 1.106)
pt3dadd(84.141, 117.205, -8.17, 1.144)
pt3dadd(84.033, 117.231, -8.212, 1.146)
pt3dadd(83.926, 117.245, -8.264, 1.134)
pt3dadd(83.837, 117.289, -8.322, 1.084)
pt3dadd(83.757, 117.351, -8.383, 1.012)
pt3dadd(83.684, 117.42, -8.445, 0.978)
pt3dadd(83.622, 117.493, -8.508, 0.954)
pt3dadd(83.609, 117.583, -8.577, 0.954)
pt3dadd(83.533, 117.666, -8.607, 0.954)
pt3dadd(83.444, 117.747, -8.628, 0.954)
pt3dadd(83.354, 117.828, -8.649, 0.954)
pt3dadd(83.265, 117.909, -8.67, 0.954)
pt3dadd(83.167, 117.972, -8.697, 0.95)
pt3dadd(83.056, 118.001, -8.737, 0.94)
pt3dadd(82.944, 118.03, -8.776, 0.928)
pt3dadd(82.833, 118.059, -8.815, 0.918)
pt3dadd(82.722, 118.089, -8.854, 0.908)
pt3dadd(82.613, 118.131, -8.89, 0.904)
pt3dadd(82.506, 118.179, -8.923, 0.904)
pt3dadd(82.399, 118.227, -8.957, 0.904)
pt3dadd(82.292, 118.276, -8.99, 0.904)
pt3dadd(82.191, 118.331, -9.026, 0.908)
pt3dadd(82.117, 118.413, -9.073, 0.934)
pt3dadd(82.042, 118.494, -9.12, 0.958)
pt3dadd(81.968, 118.576, -9.167, 0.982)
pt3dadd(81.895, 118.658, -9.215, 1.008)
pt3dadd(81.84, 118.74, -9.278, 1.044)
pt3dadd(81.785, 118.821, -9.341, 1.082)
pt3dadd(81.73, 118.903, -9.405, 1.118)
pt3dadd(81.675, 118.985, -9.468, 1.154)
pt3dadd(81.602, 119.074, -9.506, 1.172)
pt3dadd(81.53, 119.164, -9.544, 1.19)
pt3dadd(81.457, 119.253, -9.582, 1.208)
pt3dadd(81.385, 119.342, -9.62, 1.226)
pt3dadd(81.326, 119.403, -9.693, 1.22)
pt3dadd(81.272, 119.454, -9.776, 1.206)
pt3dadd(81.188, 119.5, -9.843, 1.164)
pt3dadd(81.185, 119.501, -9.846, 1.164)
pt3dadd(81.093, 119.538, -9.902, 1.124)
pt3dadd(80.97, 119.539, -9.914, 1.088)
pt3dadd(80.848, 119.54, -9.925, 1.052)
pt3dadd(80.727, 119.54, -9.947, 1.012)
pt3dadd(80.611, 119.541, -9.984, 0.97)
pt3dadd(80.495, 119.543, -10.019, 0.926)
pt3dadd(80.378, 119.578, -10.03, 0.86)
pt3dadd(80.265, 119.627, -10.037, 0.826)
pt3dadd(80.159, 119.687, -10.041, 0.822)
pt3dadd(80.052, 119.748, -10.045, 0.816)
pt3dadd(79.945, 119.808, -10.048, 0.812)
pt3dadd(79.838, 119.869, -10.052, 0.806)
pt3dadd(79.725, 119.912, -10.055, 0.808)
pt3dadd(79.603, 119.927, -10.059, 0.816)
pt3dadd(79.481, 119.943, -10.063, 0.826)
pt3dadd(79.361, 119.971, -10.066, 0.866)
pt3dadd(79.243, 120.005, -10.07, 0.916)
pt3dadd(79.126, 120.035, -10.084, 0.968)
pt3dadd(79.014, 120.054, -10.125, 1.016)
pt3dadd(78.917, 120.078, -10.177, 1.06)
pt3dadd(78.914, 120.079, -10.181, 1.06)
pt3dadd(78.878, 120.12, -10.274, 1.086)
pt3dadd(78.827, 120.168, -10.353, 1.1)
pt3dadd(78.73, 120.236, -10.381, 1.076)
pt3dadd(78.633, 120.306, -10.41, 1.052)
pt3dadd(78.545, 120.379, -10.439, 1.024)
pt3dadd(78.53, 120.494, -10.472, 0.98)
pt3dadd(78.515, 120.608, -10.506, 0.934)
pt3dadd(78.412, 120.66, -10.513, 0.9)
pt3dadd(78.297, 120.704, -10.517, 0.868)
pt3dadd(78.182, 120.748, -10.52, 0.836)
pt3dadd(78.067, 120.787, -10.536, 0.81)
pt3dadd(77.951, 120.826, -10.555, 0.786)
pt3dadd(77.873, 120.9, -10.591, 0.772)
pt3dadd(77.815, 120.995, -10.636, 0.762)
pt3dadd(77.757, 121.091, -10.682, 0.75)
pt3dadd(77.703, 121.186, -10.728, 0.736)
pt3dadd(77.652, 121.286, -10.771, 0.678)
pt3dadd(77.583, 121.375, -10.812, 0.638)
pt3dadd(77.506, 121.458, -10.853, 0.62)
pt3dadd(77.503, 121.459, -10.856, 0.62)
pt3dadd(77.426, 121.543, -10.898, 0.602)
pt3dadd(77.349, 121.626, -10.939, 0.584)
pt3dadd(77.302, 121.726, -10.981, 0.57)
pt3dadd(77.272, 121.834, -11.023, 0.556)
pt3dadd(77.231, 121.943, -11.051, 0.576)
pt3dadd(77.183, 122.053, -11.071, 0.612)
pt3dadd(77.122, 122.156, -11.082, 0.66)
pt3dadd(77.051, 122.256, -11.085, 0.718)
pt3dadd(76.96, 122.324, -11.091, 0.778)
pt3dadd(76.839, 122.346, -11.099, 0.838)
pt3dadd(76.718, 122.368, -11.107, 0.9)
pt3dadd(76.654, 122.453, -11.154, 1.002)
pt3dadd(76.557, 122.512, -11.186, 1.038)
pt3dadd(76.447, 122.56, -11.212, 1.052)
pt3dadd(76.332, 122.573, -11.246, 1.038)
pt3dadd(76.216, 122.573, -11.283, 1.018)
pt3dadd(76.101, 122.59, -11.309, 0.996)
pt3dadd(75.985, 122.632, -11.317, 0.974)
pt3dadd(75.874, 122.681, -11.325, 0.958)
pt3dadd(75.789, 122.768, -11.329, 0.982)
pt3dadd(75.704, 122.857, -11.332, 1.004)
pt3dadd(75.678, 122.976, -11.336, 1.034)
pt3dadd(75.65, 123.094, -11.339, 1.05)
pt3dadd(75.617, 123.21, -11.343, 1.038)
pt3dadd(75.584, 123.328, -11.346, 1.024)
pt3dadd(75.55, 123.444, -11.35, 1.012)
pt3dadd(75.517, 123.56, -11.354, 0.998)
pt3dadd(75.484, 123.678, -11.357, 0.984)
pt3dadd(75.431, 123.781, -11.378, 0.956)
pt3dadd(75.363, 123.875, -11.413, 0.916)
pt3dadd(75.294, 123.97, -11.448, 0.874)
pt3dadd(75.226, 124.063, -11.483, 0.834)
pt3dadd(75.156, 124.157, -11.518, 0.794)
pt3dadd(75.084, 124.248, -11.552, 0.758)
pt3dadd(75.012, 124.339, -11.587, 0.722)
pt3dadd(74.941, 124.43, -11.622, 0.688)
pt3dadd(74.869, 124.523, -11.657, 0.652)
pt3dadd(74.797, 124.619, -11.678, 0.652)
pt3dadd(74.724, 124.715, -11.699, 0.656)
pt3dadd(74.635, 124.794, -11.726, 0.696)
pt3dadd(74.56, 124.872, -11.765, 0.748)
pt3dadd(74.537, 124.949, -11.844, 0.84)
pt3dadd(74.519, 125.039, -11.903, 0.926)
pt3dadd(74.516, 125.159, -11.914, 0.998)
pt3dadd(74.513, 125.28, -11.926, 1.07)
pt3dadd(74.489, 125.39, -11.953, 1.146)
pt3dadd(74.443, 125.494, -11.996, 1.226)
pt3dadd(74.398, 125.597, -12.038, 1.306)
pt3dadd(74.34, 125.692, -12.08, 1.378)
pt3dadd(74.262, 125.774, -12.121, 1.434)
pt3dadd(74.173, 125.852, -12.14, 1.414)
pt3dadd(74.067, 125.904, -12.17, 1.366)
pt3dadd(73.96, 125.952, -12.203, 1.322)
pt3dadd(73.853, 126.001, -12.237, 1.278)
pt3dadd(73.746, 126.049, -12.27, 1.232)
pt3dadd(73.64, 126.098, -12.306, 1.19)
pt3dadd(73.536, 126.148, -12.345, 1.148)
pt3dadd(73.432, 126.197, -12.385, 1.108)
pt3dadd(73.328, 126.247, -12.424, 1.068)
pt3dadd(73.225, 126.298, -12.462, 1.028)
pt3dadd(73.14, 126.386, -12.468, 1.014)
pt3dadd(73.055, 126.474, -12.474, 0.998)
pt3dadd(72.97, 126.562, -12.479, 0.982)
pt3dadd(72.885, 126.65, -12.485, 0.968)
pt3dadd(72.81, 126.743, -12.491, 0.956)
pt3dadd(72.786, 126.862, -12.494, 0.966)
pt3dadd(72.763, 126.98, -12.498, 0.976)
pt3dadd(72.713, 127.088, -12.502, 0.986)
pt3dadd(72.642, 127.188, -12.505, 0.998)
pt3dadd(72.551, 127.254, -12.514, 1)
pt3dadd(72.43, 127.272, -12.532, 0.99)
pt3dadd(72.31, 127.29, -12.55, 0.978)
pt3dadd(72.207, 127.34, -12.59, 0.952)
pt3dadd(72.109, 127.398, -12.628, 0.932)
pt3dadd(72.036, 127.49, -12.661, 0.948)
pt3dadd(71.963, 127.582, -12.693, 0.964)
pt3dadd(71.898, 127.676, -12.725, 0.984)
pt3dadd(71.895, 127.678, -12.728, 0.984)
pt3dadd(71.892, 127.796, -12.749, 1.032)
pt3dadd(71.889, 127.915, -12.77, 1.08)
pt3dadd(71.886, 128.028, -12.804, 1.224)
pt3dadd(71.854, 128.14, -12.831, 1.326)
pt3dadd(71.813, 128.252, -12.85, 1.384)
pt3dadd(71.786, 128.369, -12.868, 1.426)
pt3dadd(71.766, 128.488, -12.886, 1.458)
pt3dadd(71.744, 128.604, -12.908, 1.476)
pt3dadd(71.716, 128.716, -12.944, 1.452)
pt3dadd(71.672, 128.816, -12.974, 1.42)
pt3dadd(71.566, 128.879, -12.977, 1.364)
pt3dadd(71.459, 128.94, -12.981, 1.306)
pt3dadd(71.354, 128.965, -13.032, 1.26)
pt3dadd(71.248, 128.989, -13.084, 1.214)
pt3dadd(71.143, 129.014, -13.135, 1.166)
pt3dadd(71.039, 129.054, -13.182, 1.146)
}
}
proc shape3d_130() {
dend_7[12] { pt3dadd(70.936, 129.097, -13.227, 1.132)
pt3dadd(70.827, 129.143, -13.258, 1.138)
pt3dadd(70.717, 129.19, -13.287, 1.148)
pt3dadd(70.622, 129.252, -13.311, 1.16)
pt3dadd(70.571, 129.362, -13.32, 1.184)
pt3dadd(70.519, 129.473, -13.33, 1.206)
pt3dadd(70.464, 129.57, -13.371, 1.208)
pt3dadd(70.394, 129.658, -13.415, 1.214)
pt3dadd(70.323, 129.745, -13.459, 1.22)
pt3dadd(70.253, 129.833, -13.502, 1.226)
pt3dadd(70.173, 129.913, -13.537, 1.236)
pt3dadd(70.069, 129.977, -13.545, 1.26)
pt3dadd(69.968, 130.034, -13.566, 1.284)
pt3dadd(69.889, 130.055, -13.645, 1.296)
pt3dadd(69.799, 130.072, -13.709, 1.304)
pt3dadd(69.678, 130.072, -13.73, 1.294)
pt3dadd(69.557, 130.073, -13.751, 1.284)
pt3dadd(69.439, 130.073, -13.739, 1.26)
pt3dadd(69.322, 130.074, -13.709, 1.228)
pt3dadd(69.228, 130.076, -13.661, 1.198)
pt3dadd(69.225, 130.076, -13.665, 1.198)
pt3dadd(69.18, 130.084, -13.575, 1.176)
pt3dadd(69.138, 130.091, -13.485, 1.154)
pt3dadd(69.135, 130.129, -13.394, 1.13)
pt3dadd(69.132, 130.184, -13.308, 1.114)
pt3dadd(69.13, 130.255, -13.232, 1.078)
pt3dadd(69.156, 130.361, -13.197, 1.07)
pt3dadd(69.24, 130.438, -13.196, 1.104)
}
dend_7[13] {pt3dclear()
pt3dadd(157.052, 98.384, 13.64, 1.356)
pt3dadd(157.042, 98.34, 13.621, 1.32)
pt3dadd(157.015, 98.236, 13.577, 1.238)
pt3dadd(156.989, 98.131, 13.534, 1.154)
pt3dadd(156.962, 98.027, 13.49, 1.07)
pt3dadd(156.936, 97.922, 13.446, 0.986)
pt3dadd(156.91, 97.818, 13.401, 0.914)
pt3dadd(156.884, 97.713, 13.357, 0.85)
pt3dadd(156.86, 97.609, 13.312, 0.788)
pt3dadd(156.835, 97.505, 13.267, 0.724)
pt3dadd(156.81, 97.4, 13.222, 0.662)
pt3dadd(156.786, 97.296, 13.177, 0.598)
pt3dadd(156.761, 97.192, 13.132, 0.534)
pt3dadd(156.736, 97.088, 13.087, 0.472)
pt3dadd(156.71, 96.983, 13.042, 0.408)
pt3dadd(156.686, 96.879, 12.997, 0.346)
pt3dadd(156.667, 96.776, 12.948, 0.358)
pt3dadd(156.652, 96.675, 12.897, 0.428)
pt3dadd(156.636, 96.573, 12.845, 0.496)
pt3dadd(156.62, 96.471, 12.793, 0.566)
pt3dadd(156.605, 96.37, 12.742, 0.634)
pt3dadd(156.59, 96.268, 12.69, 0.704)
pt3dadd(156.575, 96.167, 12.639, 0.772)
pt3dadd(156.559, 96.065, 12.587, 0.842)
pt3dadd(156.544, 95.963, 12.535, 0.91)
pt3dadd(156.528, 95.862, 12.483, 0.98)
pt3dadd(156.504, 95.758, 12.438, 1.024)
pt3dadd(156.473, 95.653, 12.398, 1.054)
pt3dadd(156.442, 95.548, 12.357, 1.082)
pt3dadd(156.41, 95.443, 12.316, 1.112)
pt3dadd(156.379, 95.338, 12.275, 1.14)
pt3dadd(156.348, 95.233, 12.235, 1.17)
pt3dadd(156.317, 95.128, 12.194, 1.198)
pt3dadd(156.286, 95.023, 12.154, 1.228)
pt3dadd(156.254, 94.917, 12.113, 1.256)
pt3dadd(156.223, 94.812, 12.072, 1.286)
pt3dadd(156.181, 94.707, 12.041, 1.284)
pt3dadd(156.134, 94.602, 12.012, 1.27)
pt3dadd(156.089, 94.496, 11.984, 1.258)
pt3dadd(156.042, 94.391, 11.956, 1.246)
pt3dadd(155.996, 94.285, 11.928, 1.232)
pt3dadd(155.95, 94.18, 11.899, 1.22)
pt3dadd(155.904, 94.074, 11.871, 1.208)
pt3dadd(155.857, 93.969, 11.843, 1.194)
pt3dadd(155.812, 93.864, 11.815, 1.182)
pt3dadd(155.765, 93.758, 11.786, 1.168)
pt3dadd(155.724, 93.65, 11.762, 1.17)
pt3dadd(155.683, 93.54, 11.738, 1.176)
pt3dadd(155.644, 93.43, 11.714, 1.182)
pt3dadd(155.604, 93.321, 11.691, 1.188)
pt3dadd(155.564, 93.211, 11.667, 1.194)
pt3dadd(155.525, 93.102, 11.644, 1.2)
pt3dadd(155.484, 92.992, 11.62, 1.206)
pt3dadd(155.444, 92.883, 11.596, 1.214)
pt3dadd(155.405, 92.773, 11.573, 1.22)
pt3dadd(155.365, 92.663, 11.549, 1.226)
pt3dadd(155.327, 92.553, 11.526, 1.236)
pt3dadd(155.29, 92.442, 11.504, 1.25)
pt3dadd(155.252, 92.331, 11.482, 1.264)
pt3dadd(155.215, 92.22, 11.459, 1.278)
pt3dadd(155.178, 92.109, 11.437, 1.29)
pt3dadd(155.141, 91.998, 11.414, 1.304)
pt3dadd(155.105, 91.887, 11.392, 1.318)
pt3dadd(155.068, 91.777, 11.369, 1.33)
pt3dadd(155.03, 91.666, 11.347, 1.344)
pt3dadd(154.993, 91.555, 11.325, 1.358)
pt3dadd(154.962, 91.446, 11.291, 1.37)
pt3dadd(154.933, 91.339, 11.253, 1.384)
pt3dadd(154.904, 91.232, 11.215, 1.398)
pt3dadd(154.876, 91.124, 11.178, 1.41)
pt3dadd(154.848, 91.017, 11.14, 1.424)
pt3dadd(154.819, 90.909, 11.102, 1.436)
pt3dadd(154.79, 90.802, 11.065, 1.45)
pt3dadd(154.762, 90.695, 11.027, 1.462)
pt3dadd(154.733, 90.587, 10.989, 1.476)
pt3dadd(154.704, 90.48, 10.952, 1.49)
pt3dadd(154.669, 90.373, 10.917, 1.496)
pt3dadd(154.633, 90.266, 10.883, 1.502)
pt3dadd(154.597, 90.159, 10.85, 1.506)
pt3dadd(154.56, 90.052, 10.816, 1.51)
pt3dadd(154.524, 89.945, 10.782, 1.516)
pt3dadd(154.488, 89.838, 10.748, 1.52)
pt3dadd(154.452, 89.731, 10.715, 1.526)
pt3dadd(154.415, 89.624, 10.681, 1.53)
pt3dadd(154.379, 89.517, 10.647, 1.536)
pt3dadd(154.343, 89.41, 10.614, 1.54)
pt3dadd(154.294, 89.306, 10.587, 1.53)
pt3dadd(154.241, 89.202, 10.563, 1.518)
pt3dadd(154.189, 89.098, 10.538, 1.504)
pt3dadd(154.136, 88.994, 10.513, 1.492)
pt3dadd(154.085, 88.89, 10.489, 1.478)
pt3dadd(154.032, 88.786, 10.464, 1.466)
pt3dadd(153.98, 88.682, 10.439, 1.454)
pt3dadd(153.928, 88.578, 10.415, 1.44)
pt3dadd(153.876, 88.474, 10.39, 1.428)
pt3dadd(153.823, 88.37, 10.366, 1.414)
pt3dadd(153.774, 88.264, 10.344, 1.408)
pt3dadd(153.725, 88.157, 10.323, 1.402)
pt3dadd(153.677, 88.051, 10.303, 1.396)
pt3dadd(153.628, 87.944, 10.282, 1.39)
pt3dadd(153.578, 87.837, 10.261, 1.386)
pt3dadd(153.529, 87.73, 10.24, 1.38)
pt3dadd(153.481, 87.624, 10.22, 1.374)
pt3dadd(153.432, 87.517, 10.199, 1.368)
pt3dadd(153.383, 87.41, 10.178, 1.362)
pt3dadd(153.334, 87.303, 10.157, 1.356)
pt3dadd(153.287, 87.195, 10.139, 1.356)
pt3dadd(153.241, 87.087, 10.121, 1.356)
pt3dadd(153.194, 86.978, 10.104, 1.356)
pt3dadd(153.148, 86.87, 10.086, 1.356)
pt3dadd(153.101, 86.761, 10.068, 1.356)
pt3dadd(153.055, 86.652, 10.05, 1.356)
pt3dadd(153.008, 86.544, 10.033, 1.356)
pt3dadd(152.962, 86.435, 10.015, 1.356)
pt3dadd(152.916, 86.327, 9.997, 1.356)
pt3dadd(152.869, 86.218, 9.979, 1.356)
pt3dadd(152.807, 86.117, 9.967, 1.334)
pt3dadd(152.741, 86.017, 9.956, 1.308)
pt3dadd(152.676, 85.918, 9.944, 1.282)
pt3dadd(152.61, 85.818, 9.933, 1.256)
pt3dadd(152.544, 85.719, 9.922, 1.232)
pt3dadd(152.478, 85.619, 9.91, 1.206)
pt3dadd(152.413, 85.52, 9.899, 1.18)
pt3dadd(152.347, 85.42, 9.888, 1.154)
pt3dadd(152.281, 85.321, 9.876, 1.128)
pt3dadd(152.215, 85.221, 9.865, 1.102)
pt3dadd(152.15, 85.124, 9.844, 1.068)
pt3dadd(152.086, 85.026, 9.822, 1.032)
pt3dadd(152.021, 84.929, 9.8, 0.998)
pt3dadd(151.957, 84.831, 9.777, 0.962)
pt3dadd(151.892, 84.734, 9.755, 0.928)
pt3dadd(151.828, 84.637, 9.732, 0.892)
pt3dadd(151.763, 84.539, 9.71, 0.856)
pt3dadd(151.698, 84.442, 9.687, 0.822)
pt3dadd(151.633, 84.344, 9.665, 0.786)
pt3dadd(151.568, 84.247, 9.642, 0.752)
pt3dadd(151.512, 84.159, 9.593, 0.7)
pt3dadd(151.454, 84.072, 9.544, 0.646)
pt3dadd(151.398, 83.984, 9.495, 0.594)
pt3dadd(151.342, 83.896, 9.445, 0.542)
pt3dadd(151.285, 83.809, 9.396, 0.49)
pt3dadd(151.228, 83.721, 9.347, 0.438)
pt3dadd(151.171, 83.633, 9.298, 0.384)
pt3dadd(151.115, 83.546, 9.248, 0.332)
pt3dadd(151.057, 83.458, 9.199, 0.28)
pt3dadd(151.001, 83.37, 9.15, 0.228)
pt3dadd(150.931, 83.277, 9.124, 0.242)
pt3dadd(150.862, 83.185, 9.097, 0.258)
pt3dadd(150.793, 83.092, 9.071, 0.272)
pt3dadd(150.724, 82.999, 9.045, 0.288)
pt3dadd(150.654, 82.907, 9.019, 0.302)
pt3dadd(150.584, 82.814, 8.992, 0.318)
pt3dadd(150.515, 82.721, 8.966, 0.332)
pt3dadd(150.446, 82.629, 8.94, 0.348)
pt3dadd(150.377, 82.536, 8.914, 0.362)
pt3dadd(150.307, 82.443, 8.887, 0.378)
}
dend_7[14] {pt3dclear()
pt3dadd(150.307, 82.443, 8.887, 0.378)
pt3dadd(150.234, 82.472, 8.874, 0.442)
pt3dadd(150.115, 82.531, 8.869, 0.596)
pt3dadd(149.995, 82.59, 8.864, 0.752)
pt3dadd(149.875, 82.649, 8.858, 0.908)
pt3dadd(149.755, 82.708, 8.853, 1.062)
pt3dadd(149.636, 82.767, 8.848, 1.218)
pt3dadd(149.525, 82.82, 8.832, 1.356)
pt3dadd(149.51, 82.822, 8.825, 1.356)
pt3dadd(149.496, 82.825, 8.818, 1.356)
pt3dadd(149.482, 82.827, 8.811, 1.356)
pt3dadd(149.449, 82.83, 8.705, 1.356)
pt3dadd(149.414, 82.832, 8.599, 1.356)
pt3dadd(149.381, 82.835, 8.493, 1.356)
pt3dadd(149.346, 82.837, 8.387, 1.356)
pt3dadd(149.314, 82.84, 8.282, 1.356)
}
}
proc shape3d_131() {
dend_7[14] { pt3dadd(149.279, 82.842, 8.176, 1.356)
pt3dadd(149.195, 82.845, 8.087, 1.356)
pt3dadd(149.112, 82.847, 7.998, 1.356)
pt3dadd(149.028, 82.85, 7.909, 1.356)
pt3dadd(148.945, 82.852, 7.82, 1.356)
pt3dadd(148.862, 82.855, 7.731, 1.356)
pt3dadd(148.747, 82.857, 7.669, 1.356)
pt3dadd(148.633, 82.86, 7.607, 1.356)
pt3dadd(148.519, 82.862, 7.545, 1.356)
pt3dadd(148.405, 82.865, 7.483, 1.356)
pt3dadd(148.29, 82.867, 7.421, 1.356)
pt3dadd(148.157, 82.87, 7.403, 1.356)
pt3dadd(148.024, 82.872, 7.388, 1.356)
pt3dadd(147.892, 82.875, 7.368, 1.356)
pt3dadd(147.767, 82.877, 7.322, 1.356)
pt3dadd(147.642, 82.88, 7.276, 1.356)
pt3dadd(147.566, 82.882, 7.186, 1.356)
pt3dadd(147.499, 82.885, 7.089, 1.356)
pt3dadd(147.445, 82.887, 6.989, 1.356)
pt3dadd(147.397, 82.89, 6.885, 1.356)
pt3dadd(147.348, 82.892, 6.782, 1.356)
pt3dadd(147.293, 82.895, 6.681, 1.356)
pt3dadd(147.239, 82.897, 6.58, 1.356)
pt3dadd(147.184, 82.9, 6.479, 1.356)
pt3dadd(147.107, 82.902, 6.395, 1.356)
pt3dadd(146.982, 82.905, 6.349, 1.356)
pt3dadd(146.858, 82.908, 6.303, 1.356)
pt3dadd(146.736, 82.962, 6.288, 1.356)
pt3dadd(146.614, 83.016, 6.273, 1.356)
pt3dadd(146.506, 83.07, 6.245, 1.356)
pt3dadd(146.491, 83.073, 6.237, 1.356)
pt3dadd(146.478, 83.075, 6.23, 1.356)
pt3dadd(146.444, 83.131, 6.135, 1.356)
pt3dadd(146.413, 83.183, 6.038, 1.356)
pt3dadd(146.389, 83.23, 5.94, 1.356)
pt3dadd(146.35, 83.299, 5.853, 1.356)
pt3dadd(146.308, 83.368, 5.766, 1.356)
pt3dadd(146.266, 83.436, 5.678, 1.356)
pt3dadd(146.225, 83.505, 5.591, 1.356)
pt3dadd(146.202, 83.606, 5.528, 1.356)
pt3dadd(146.183, 83.71, 5.468, 1.356)
pt3dadd(146.117, 83.794, 5.404, 1.356)
pt3dadd(146.04, 83.869, 5.339, 1.356)
pt3dadd(145.946, 83.901, 5.26, 1.356)
pt3dadd(145.849, 83.937, 5.193, 1.356)
pt3dadd(145.729, 83.992, 5.169, 1.356)
pt3dadd(145.616, 84.056, 5.146, 1.356)
pt3dadd(145.532, 84.156, 5.126, 1.356)
pt3dadd(145.45, 84.255, 5.105, 1.356)
pt3dadd(145.368, 84.355, 5.084, 1.356)
pt3dadd(145.304, 84.391, 4.996, 1.356)
pt3dadd(145.243, 84.42, 4.899, 1.356)
pt3dadd(145.212, 84.53, 4.86, 1.356)
pt3dadd(145.186, 84.648, 4.827, 1.356)
pt3dadd(145.158, 84.765, 4.794, 1.356)
pt3dadd(145.142, 84.881, 4.755, 1.356)
pt3dadd(145.128, 84.997, 4.715, 1.356)
pt3dadd(145.109, 85.082, 4.645, 1.356)
pt3dadd(145.081, 85.137, 4.549, 1.356)
pt3dadd(145.013, 85.15, 4.455, 1.356)
pt3dadd(144.924, 85.152, 4.37, 1.356)
pt3dadd(144.832, 85.184, 4.292, 1.356)
pt3dadd(144.75, 85.266, 4.244, 1.356)
pt3dadd(144.654, 85.356, 4.225, 1.356)
pt3dadd(144.562, 85.439, 4.195, 1.356)
pt3dadd(144.479, 85.494, 4.119, 1.356)
pt3dadd(144.409, 85.527, 4.031, 1.356)
pt3dadd(144.356, 85.53, 3.93, 1.356)
pt3dadd(144.296, 85.532, 3.834, 1.356)
pt3dadd(144.164, 85.535, 3.805, 1.356)
pt3dadd(144.034, 85.537, 3.776, 1.356)
pt3dadd(143.911, 85.557, 3.734, 1.356)
pt3dadd(143.806, 85.608, 3.684, 1.356)
pt3dadd(143.731, 85.7, 3.633, 1.356)
pt3dadd(143.652, 85.757, 3.564, 1.356)
pt3dadd(143.569, 85.78, 3.476, 1.356)
pt3dadd(143.495, 85.795, 3.384, 1.356)
pt3dadd(143.424, 85.804, 3.289, 1.356)
pt3dadd(143.377, 85.842, 3.198, 1.356)
pt3dadd(143.363, 85.919, 3.113, 1.356)
pt3dadd(143.35, 85.922, 3.106, 1.356)
pt3dadd(143.335, 85.924, 3.098, 1.356)
pt3dadd(143.321, 85.927, 3.091, 1.356)
pt3dadd(143.306, 85.929, 3.084, 1.356)
pt3dadd(143.292, 85.932, 3.077, 1.356)
pt3dadd(143.279, 85.934, 3.07, 1.13)
pt3dadd(143.188, 85.919, 2.987, 1.142)
pt3dadd(143.098, 85.904, 2.904, 1.152)
pt3dadd(143.008, 85.889, 2.821, 1.164)
pt3dadd(142.916, 85.874, 2.738, 1.174)
pt3dadd(142.85, 85.859, 2.645, 1.2)
pt3dadd(142.813, 85.844, 2.541, 1.244)
pt3dadd(142.765, 85.827, 2.442, 1.296)
pt3dadd(142.666, 85.801, 2.369, 1.39)
pt3dadd(142.566, 85.759, 2.315, 1.474)
pt3dadd(142.468, 85.676, 2.302, 1.536)
pt3dadd(142.361, 85.614, 2.282, 1.59)
pt3dadd(142.235, 85.61, 2.241, 1.624)
pt3dadd(142.108, 85.607, 2.199, 1.658)
pt3dadd(142.004, 85.599, 2.126, 1.638)
pt3dadd(141.911, 85.564, 2.053, 1.648)
pt3dadd(141.822, 85.515, 1.981, 1.672)
pt3dadd(141.733, 85.465, 1.909, 1.698)
pt3dadd(141.643, 85.416, 1.836, 1.722)
pt3dadd(141.554, 85.394, 1.758, 1.756)
pt3dadd(141.463, 85.393, 1.673, 1.796)
pt3dadd(141.373, 85.393, 1.589, 1.838)
pt3dadd(141.283, 85.393, 1.505, 1.878)
pt3dadd(141.192, 85.393, 1.42, 1.92)
pt3dadd(141.136, 85.394, 1.322, 1.968)
pt3dadd(141.097, 85.397, 1.217, 2.018)
pt3dadd(141.058, 85.399, 1.112, 2.07)
pt3dadd(141.019, 85.402, 1.007, 2.12)
pt3dadd(140.981, 85.404, 0.902, 2.172)
pt3dadd(140.941, 85.407, 0.797, 2.222)
pt3dadd(140.892, 85.409, 0.695, 2.248)
pt3dadd(140.839, 85.412, 0.593, 2.266)
pt3dadd(140.825, 85.414, 0.586, 2.266)
pt3dadd(140.81, 85.417, 0.578, 2.266)
pt3dadd(140.758, 85.419, 0.477, 2.286)
pt3dadd(140.705, 85.422, 0.375, 2.304)
pt3dadd(140.652, 85.424, 0.273, 2.322)
pt3dadd(140.598, 85.416, 0.173, 2.334)
pt3dadd(140.543, 85.373, 0.081, 2.328)
pt3dadd(140.486, 85.33, -0.012, 2.322)
pt3dadd(140.43, 85.287, -0.105, 2.316)
pt3dadd(140.374, 85.244, -0.198, 2.312)
pt3dadd(140.292, 85.208, -0.28, 2.296)
pt3dadd(140.206, 85.173, -0.361, 2.278)
pt3dadd(140.119, 85.137, -0.441, 2.26)
pt3dadd(140.033, 85.102, -0.522, 2.242)
pt3dadd(139.946, 85.071, -0.604, 2.246)
pt3dadd(139.862, 85.043, -0.688, 2.262)
pt3dadd(139.777, 85.015, -0.772, 2.28)
pt3dadd(139.692, 84.987, -0.856, 2.296)
pt3dadd(139.616, 84.944, -0.934, 2.33)
pt3dadd(139.566, 84.852, -0.996, 2.412)
pt3dadd(139.507, 84.777, -1.065, 2.488)
pt3dadd(139.433, 84.727, -1.147, 2.558)
pt3dadd(139.331, 84.684, -1.205, 2.594)
pt3dadd(139.212, 84.644, -1.247, 2.608)
pt3dadd(139.094, 84.634, -1.3, 2.612)
pt3dadd(138.977, 84.637, -1.357, 2.612)
pt3dadd(138.884, 84.625, -1.433, 2.624)
pt3dadd(138.817, 84.598, -1.526, 2.646)
pt3dadd(138.749, 84.571, -1.62, 2.67)
pt3dadd(138.695, 84.53, -1.709, 2.71)
pt3dadd(138.673, 84.447, -1.787, 2.796)
pt3dadd(138.644, 84.36, -1.854, 2.878)
pt3dadd(138.584, 84.256, -1.886, 2.946)
pt3dadd(138.524, 84.152, -1.919, 3.012)
pt3dadd(138.446, 84.066, -1.963, 3.064)
pt3dadd(138.356, 83.992, -2.014, 3.108)
pt3dadd(138.259, 83.924, -2.063, 3.028)
pt3dadd(138.176, 83.848, -2.119, 2.984)
pt3dadd(138.094, 83.772, -2.175, 2.942)
pt3dadd(138.011, 83.696, -2.232, 2.898)
pt3dadd(137.928, 83.623, -2.291, 2.852)
pt3dadd(137.914, 83.625, -2.298, 2.852)
pt3dadd(137.831, 83.569, -2.371, 2.798)
pt3dadd(137.748, 83.512, -2.444, 2.742)
pt3dadd(137.665, 83.456, -2.516, 2.686)
pt3dadd(137.581, 83.398, -2.587, 2.626)
pt3dadd(137.491, 83.332, -2.646, 2.524)
pt3dadd(137.393, 83.283, -2.706, 2.436)
pt3dadd(137.282, 83.265, -2.771, 2.372)
pt3dadd(137.194, 83.256, -2.85, 2.33)
pt3dadd(137.132, 83.259, -2.949, 2.32)
pt3dadd(137.077, 83.261, -3.05, 2.312)
pt3dadd(137.053, 83.264, -3.157, 2.32)
pt3dadd(137.03, 83.266, -3.263, 2.33)
pt3dadd(136.982, 83.269, -3.363, 2.354)
pt3dadd(136.894, 83.271, -3.448, 2.408)
pt3dadd(136.824, 83.274, -3.544, 2.432)
pt3dadd(136.757, 83.276, -3.64, 2.454)
pt3dadd(136.688, 83.279, -3.737, 2.46)
pt3dadd(136.621, 83.281, -3.833, 2.46)
pt3dadd(136.541, 83.284, -3.923, 2.45)
pt3dadd(136.445, 83.286, -4.003, 2.426)
pt3dadd(136.337, 83.289, -4.065, 2.404)
pt3dadd(136.205, 83.291, -4.089, 2.384)
pt3dadd(136.072, 83.294, -4.113, 2.366)
pt3dadd(135.938, 83.296, -4.125, 2.342)
pt3dadd(135.804, 83.299, -4.132, 2.316)
pt3dadd(135.68, 83.314, -4.172, 2.294)
pt3dadd(135.56, 83.333, -4.223, 2.274)
pt3dadd(135.439, 83.352, -4.275, 2.252)
pt3dadd(135.319, 83.372, -4.326, 2.232)
pt3dadd(135.199, 83.391, -4.378, 2.21)
pt3dadd(135.089, 83.402, -4.445, 2.168)
pt3dadd(134.98, 83.413, -4.513, 2.126)
pt3dadd(134.87, 83.424, -4.58, 2.084)
pt3dadd(134.761, 83.435, -4.648, 2.042)
pt3dadd(134.647, 83.444, -4.707, 2.002)
pt3dadd(134.515, 83.446, -4.73, 1.964)
pt3dadd(134.382, 83.449, -4.754, 1.926)
pt3dadd(134.369, 83.451, -4.761, 1.926)
pt3dadd(134.236, 83.454, -4.785, 1.89)
pt3dadd(134.104, 83.456, -4.808, 1.852)
pt3dadd(133.97, 83.459, -4.832, 1.816)
}
}
proc shape3d_132() {
dend_7[14] { pt3dadd(133.84, 83.459, -4.859, 1.778)
pt3dadd(133.72, 83.445, -4.911, 1.742)
pt3dadd(133.6, 83.43, -4.962, 1.704)
pt3dadd(133.478, 83.416, -5.013, 1.668)
pt3dadd(133.358, 83.402, -5.065, 1.63)
pt3dadd(133.24, 83.371, -5.107, 1.598)
pt3dadd(133.126, 83.312, -5.134, 1.57)
pt3dadd(133.012, 83.253, -5.161, 1.542)
pt3dadd(132.898, 83.194, -5.188, 1.514)
pt3dadd(132.782, 83.134, -5.215, 1.486)
pt3dadd(132.655, 83.109, -5.241, 1.462)
pt3dadd(132.526, 83.092, -5.267, 1.438)
pt3dadd(132.395, 83.074, -5.293, 1.414)
pt3dadd(132.265, 83.056, -5.319, 1.39)
pt3dadd(132.134, 83.038, -5.345, 1.366)
pt3dadd(132.013, 83.015, -5.388, 1.338)
pt3dadd(131.9, 82.988, -5.446, 1.304)
pt3dadd(131.786, 82.96, -5.503, 1.27)
pt3dadd(131.672, 82.933, -5.56, 1.236)
pt3dadd(131.558, 82.906, -5.616, 1.202)
pt3dadd(131.544, 82.908, -5.623, 1.202)
pt3dadd(131.422, 82.885, -5.668, 1.182)
pt3dadd(131.3, 82.862, -5.713, 1.16)
pt3dadd(131.178, 82.839, -5.759, 1.138)
pt3dadd(131.056, 82.816, -5.804, 1.118)
pt3dadd(130.93, 82.804, -5.84, 1.096)
pt3dadd(130.796, 82.806, -5.864, 1.078)
pt3dadd(130.664, 82.809, -5.888, 1.058)
pt3dadd(130.608, 82.811, -5.979, 1.072)
pt3dadd(130.567, 82.814, -6.084, 1.092)
pt3dadd(130.502, 82.816, -6.174, 1.116)
pt3dadd(130.385, 82.819, -6.232, 1.15)
pt3dadd(130.265, 82.821, -6.283, 1.184)
pt3dadd(130.25, 82.824, -6.29, 1.184)
pt3dadd(130.237, 82.826, -6.297, 1.184)
pt3dadd(130.103, 82.829, -6.304, 1.208)
pt3dadd(129.968, 82.831, -6.311, 1.234)
pt3dadd(129.834, 82.833, -6.318, 1.256)
pt3dadd(129.7, 82.836, -6.326, 1.256)
pt3dadd(129.566, 82.839, -6.337, 1.254)
pt3dadd(129.438, 82.841, -6.374, 1.246)
pt3dadd(129.31, 82.844, -6.411, 1.236)
pt3dadd(129.181, 82.846, -6.448, 1.228)
pt3dadd(129.052, 82.848, -6.485, 1.218)
pt3dadd(128.923, 82.851, -6.522, 1.21)
pt3dadd(128.792, 82.851, -6.549, 1.194)
pt3dadd(128.659, 82.848, -6.57, 1.176)
pt3dadd(128.526, 82.845, -6.59, 1.156)
pt3dadd(128.399, 82.809, -6.597, 1.134)
pt3dadd(128.272, 82.772, -6.604, 1.114)
pt3dadd(128.148, 82.755, -6.64, 1.09)
pt3dadd(128.028, 82.752, -6.694, 1.068)
pt3dadd(127.915, 82.748, -6.756, 1.044)
pt3dadd(127.81, 82.744, -6.828, 1.018)
pt3dadd(127.705, 82.719, -6.893, 0.996)
pt3dadd(127.597, 82.669, -6.94, 0.98)
pt3dadd(127.471, 82.631, -6.963, 0.986)
pt3dadd(127.346, 82.593, -6.986, 0.99)
pt3dadd(127.22, 82.555, -7.009, 0.996)
pt3dadd(127.096, 82.517, -7.032, 1)
pt3dadd(126.978, 82.467, -7.06, 1.008)
pt3dadd(126.878, 82.394, -7.099, 1.02)
pt3dadd(126.78, 82.321, -7.137, 1.032)
pt3dadd(126.68, 82.248, -7.176, 1.044)
pt3dadd(126.58, 82.175, -7.212, 1.056)
pt3dadd(126.468, 82.108, -7.219, 1.072)
pt3dadd(126.355, 82.042, -7.226, 1.086)
pt3dadd(126.244, 81.975, -7.233, 1.1)
pt3dadd(126.131, 81.909, -7.24, 1.116)
pt3dadd(126.018, 81.844, -7.248, 1.13)
pt3dadd(125.893, 81.799, -7.255, 1.144)
pt3dadd(125.77, 81.753, -7.262, 1.16)
pt3dadd(125.645, 81.708, -7.269, 1.174)
pt3dadd(125.63, 81.711, -7.276, 1.174)
pt3dadd(125.507, 81.666, -7.283, 1.188)
pt3dadd(125.382, 81.621, -7.291, 1.202)
pt3dadd(125.257, 81.578, -7.298, 1.212)
pt3dadd(125.131, 81.536, -7.305, 1.222)
pt3dadd(125.005, 81.494, -7.312, 1.23)
pt3dadd(124.88, 81.452, -7.319, 1.24)
pt3dadd(124.754, 81.41, -7.326, 1.25)
pt3dadd(124.633, 81.36, -7.333, 1.26)
pt3dadd(124.52, 81.294, -7.341, 1.272)
pt3dadd(124.404, 81.234, -7.348, 1.278)
pt3dadd(124.277, 81.197, -7.355, 1.268)
pt3dadd(124.15, 81.16, -7.362, 1.258)
pt3dadd(124.016, 81.156, -7.369, 1.242)
pt3dadd(123.882, 81.158, -7.376, 1.224)
pt3dadd(123.749, 81.161, -7.384, 1.208)
pt3dadd(123.629, 81.163, -7.433, 1.186)
pt3dadd(123.511, 81.166, -7.491, 1.164)
pt3dadd(123.45, 81.168, -7.58, 1.146)
pt3dadd(123.421, 81.171, -7.687, 1.132)
pt3dadd(123.311, 81.173, -7.742, 1.126)
pt3dadd(123.187, 81.176, -7.789, 1.122)
pt3dadd(123.062, 81.178, -7.836, 1.116)
pt3dadd(122.938, 81.181, -7.883, 1.112)
pt3dadd(122.814, 81.183, -7.929, 1.108)
pt3dadd(122.686, 81.171, -7.955, 1.104)
pt3dadd(122.672, 81.174, -7.962, 1.104)
pt3dadd(122.658, 81.176, -7.97, 1.104)
pt3dadd(122.527, 81.151, -7.977, 1.104)
pt3dadd(122.396, 81.126, -7.984, 1.104)
pt3dadd(122.264, 81.101, -7.991, 1.104)
pt3dadd(122.134, 81.077, -7.998, 1.104)
pt3dadd(122.003, 81.052, -8.005, 1.104)
pt3dadd(121.873, 81.023, -8.012, 1.102)
pt3dadd(121.744, 80.992, -8.02, 1.098)
pt3dadd(121.614, 80.961, -8.027, 1.092)
pt3dadd(121.484, 80.931, -8.034, 1.088)
pt3dadd(121.355, 80.9, -8.041, 1.084)
pt3dadd(121.226, 80.869, -8.049, 1.08)
pt3dadd(121.103, 80.821, -8.062, 1.08)
pt3dadd(120.98, 80.773, -8.076, 1.08)
pt3dadd(120.858, 80.726, -8.09, 1.08)
pt3dadd(120.734, 80.678, -8.104, 1.08)
pt3dadd(120.612, 80.63, -8.118, 1.08)
pt3dadd(120.503, 80.579, -8.167, 1.08)
pt3dadd(120.395, 80.528, -8.216, 1.08)
pt3dadd(120.286, 80.476, -8.266, 1.08)
pt3dadd(120.176, 80.425, -8.315, 1.08)
pt3dadd(120.064, 80.385, -8.365, 1.098)
pt3dadd(119.949, 80.348, -8.415, 1.12)
pt3dadd(119.834, 80.311, -8.466, 1.144)
pt3dadd(119.719, 80.274, -8.516, 1.166)
pt3dadd(119.599, 80.235, -8.549, 1.194)
pt3dadd(119.474, 80.192, -8.559, 1.228)
pt3dadd(119.349, 80.149, -8.568, 1.26)
pt3dadd(119.224, 80.106, -8.577, 1.294)
pt3dadd(119.099, 80.063, -8.586, 1.328)
pt3dadd(118.975, 80.02, -8.601, 1.36)
pt3dadd(118.961, 80.022, -8.608, 1.36)
pt3dadd(118.947, 80.025, -8.616, 1.36)
pt3dadd(118.836, 79.98, -8.667, 1.396)
pt3dadd(118.725, 79.936, -8.718, 1.432)
pt3dadd(118.614, 79.891, -8.77, 1.466)
pt3dadd(118.504, 79.847, -8.821, 1.502)
pt3dadd(118.382, 79.843, -8.871, 1.52)
pt3dadd(118.259, 79.845, -8.92, 1.534)
pt3dadd(118.136, 79.848, -8.97, 1.548)
pt3dadd(118.013, 79.85, -9.019, 1.562)
pt3dadd(117.89, 79.853, -9.068, 1.576)
pt3dadd(117.765, 79.855, -9.112, 1.582)
pt3dadd(117.637, 79.858, -9.152, 1.582)
pt3dadd(117.508, 79.86, -9.185, 1.584)
pt3dadd(117.374, 79.863, -9.196, 1.592)
pt3dadd(117.24, 79.865, -9.207, 1.602)
pt3dadd(117.12, 79.868, -9.243, 1.612)
pt3dadd(117.024, 79.87, -9.323, 1.624)
pt3dadd(116.938, 79.873, -9.409, 1.63)
pt3dadd(116.884, 79.875, -9.51, 1.62)
pt3dadd(116.83, 79.878, -9.612, 1.608)
pt3dadd(116.714, 79.88, -9.664, 1.578)
pt3dadd(116.589, 79.883, -9.708, 1.546)
pt3dadd(116.463, 79.885, -9.753, 1.514)
pt3dadd(116.338, 79.888, -9.798, 1.48)
pt3dadd(116.218, 79.884, -9.852, 1.408)
pt3dadd(116.098, 79.88, -9.906, 1.338)
pt3dadd(116.084, 79.883, -9.913, 1.338)
pt3dadd(116.007, 79.795, -9.949, 1.296)
pt3dadd(115.935, 79.697, -9.982, 1.256)
pt3dadd(115.859, 79.601, -10.012, 1.22)
pt3dadd(115.776, 79.507, -10.037, 1.196)
pt3dadd(115.68, 79.43, -10.065, 1.168)
pt3dadd(115.566, 79.374, -10.099, 1.138)
pt3dadd(115.451, 79.319, -10.132, 1.108)
pt3dadd(115.319, 79.315, -10.142, 1.082)
pt3dadd(115.185, 79.318, -10.149, 1.058)
pt3dadd(115.051, 79.32, -10.156, 1.032)
pt3dadd(114.92, 79.323, -10.185, 1.03)
pt3dadd(114.789, 79.325, -10.215, 1.03)
pt3dadd(114.658, 79.328, -10.246, 1.03)
pt3dadd(114.556, 79.33, -10.311, 1.064)
pt3dadd(114.474, 79.333, -10.4, 1.122)
pt3dadd(114.375, 79.335, -10.474, 1.226)
pt3dadd(114.251, 79.338, -10.522, 1.284)
pt3dadd(114.127, 79.34, -10.569, 1.288)
pt3dadd(114.003, 79.343, -10.616, 1.294)
pt3dadd(113.879, 79.345, -10.663, 1.298)
pt3dadd(113.754, 79.348, -10.71, 1.302)
pt3dadd(113.628, 79.35, -10.751, 1.3)
pt3dadd(113.497, 79.353, -10.783, 1.282)
pt3dadd(113.367, 79.355, -10.816, 1.264)
pt3dadd(113.237, 79.358, -10.848, 1.248)
pt3dadd(113.107, 79.36, -10.88, 1.23)
pt3dadd(112.976, 79.363, -10.913, 1.212)
pt3dadd(112.863, 79.365, -10.971, 1.19)
pt3dadd(112.761, 79.368, -11.046, 1.168)
pt3dadd(112.747, 79.37, -11.054, 1.168)
pt3dadd(112.636, 79.386, -11.115, 1.174)
pt3dadd(112.515, 79.415, -11.161, 1.212)
pt3dadd(112.423, 79.484, -11.199, 1.28)
pt3dadd(112.362, 79.593, -11.228, 1.382)
pt3dadd(112.311, 79.685, -11.285, 1.486)
pt3dadd(112.268, 79.758, -11.37, 1.592)
pt3dadd(112.179, 79.803, -11.435, 1.652)
pt3dadd(112.062, 79.83, -11.49, 1.682)
pt3dadd(111.946, 79.857, -11.545, 1.714)
pt3dadd(111.864, 79.875, -11.62, 1.726)
pt3dadd(111.84, 79.878, -11.726, 1.708)
}
}
proc shape3d_133() {
dend_7[14] { pt3dadd(111.817, 79.88, -11.833, 1.69)
pt3dadd(111.744, 79.883, -11.918, 1.636)
pt3dadd(111.636, 79.885, -11.988, 1.556)
pt3dadd(111.528, 79.888, -12.058, 1.476)
pt3dadd(111.401, 79.89, -12.09, 1.386)
pt3dadd(111.268, 79.893, -12.109, 1.294)
pt3dadd(111.135, 79.897, -12.128, 1.202)
pt3dadd(111.007, 79.938, -12.136, 1.138)
pt3dadd(110.879, 79.978, -12.143, 1.074)
pt3dadd(110.751, 80.018, -12.15, 1.012)
pt3dadd(110.652, 80.104, -12.157, 0.972)
pt3dadd(110.557, 80.194, -12.164, 0.938)
pt3dadd(110.442, 80.258, -12.171, 0.904)
pt3dadd(110.428, 80.261, -12.179, 0.904)
pt3dadd(110.414, 80.263, -12.186, 0.904)
pt3dadd(110.4, 80.266, -12.193, 0.904)
}
dend_7[15] {pt3dclear()
pt3dadd(150.307, 82.443, 8.887, 0.378)
pt3dadd(150.286, 82.404, 8.88, 0.378)
pt3dadd(150.228, 82.302, 8.86, 0.376)
pt3dadd(150.17, 82.199, 8.84, 0.376)
pt3dadd(150.113, 82.097, 8.82, 0.376)
pt3dadd(150.055, 81.994, 8.8, 0.376)
pt3dadd(149.998, 81.892, 8.78, 0.376)
pt3dadd(149.94, 81.789, 8.76, 0.376)
pt3dadd(149.882, 81.687, 8.74, 0.376)
pt3dadd(149.825, 81.584, 8.72, 0.376)
pt3dadd(149.767, 81.482, 8.7, 0.376)
pt3dadd(149.716, 81.375, 8.683, 0.37)
pt3dadd(149.671, 81.265, 8.67, 0.356)
pt3dadd(149.627, 81.155, 8.656, 0.34)
pt3dadd(149.582, 81.044, 8.643, 0.326)
pt3dadd(149.538, 80.934, 8.63, 0.312)
pt3dadd(149.494, 80.824, 8.617, 0.298)
pt3dadd(149.449, 80.713, 8.604, 0.284)
pt3dadd(149.405, 80.603, 8.59, 0.27)
pt3dadd(149.36, 80.493, 8.577, 0.256)
pt3dadd(149.316, 80.382, 8.564, 0.24)
pt3dadd(149.275, 80.27, 8.556, 0.26)
pt3dadd(149.238, 80.156, 8.553, 0.318)
pt3dadd(149.202, 80.042, 8.55, 0.374)
pt3dadd(149.165, 79.928, 8.546, 0.432)
pt3dadd(149.128, 79.814, 8.543, 0.488)
pt3dadd(149.09, 79.699, 8.54, 0.544)
pt3dadd(149.053, 79.585, 8.537, 0.602)
pt3dadd(149.017, 79.471, 8.534, 0.658)
pt3dadd(148.98, 79.357, 8.531, 0.716)
pt3dadd(148.943, 79.243, 8.528, 0.772)
pt3dadd(148.901, 79.131, 8.524, 0.808)
pt3dadd(148.853, 79.021, 8.519, 0.824)
pt3dadd(148.806, 78.911, 8.514, 0.84)
pt3dadd(148.758, 78.801, 8.51, 0.856)
pt3dadd(148.711, 78.691, 8.505, 0.874)
pt3dadd(148.663, 78.581, 8.5, 0.89)
pt3dadd(148.616, 78.471, 8.495, 0.906)
pt3dadd(148.568, 78.36, 8.49, 0.922)
pt3dadd(148.522, 78.25, 8.486, 0.938)
pt3dadd(148.474, 78.14, 8.481, 0.954)
pt3dadd(148.418, 78.034, 8.475, 0.938)
pt3dadd(148.357, 77.931, 8.468, 0.898)
pt3dadd(148.296, 77.828, 8.461, 0.858)
pt3dadd(148.235, 77.726, 8.453, 0.818)
pt3dadd(148.174, 77.623, 8.446, 0.778)
pt3dadd(148.112, 77.52, 8.439, 0.738)
pt3dadd(148.051, 77.417, 8.432, 0.698)
pt3dadd(147.99, 77.314, 8.425, 0.658)
pt3dadd(147.929, 77.211, 8.418, 0.616)
pt3dadd(147.868, 77.108, 8.411, 0.576)
pt3dadd(147.8, 77.01, 8.402, 0.558)
pt3dadd(147.728, 76.915, 8.392, 0.556)
pt3dadd(147.655, 76.82, 8.381, 0.554)
pt3dadd(147.583, 76.725, 8.371, 0.554)
pt3dadd(147.51, 76.631, 8.361, 0.552)
pt3dadd(147.438, 76.536, 8.35, 0.55)
pt3dadd(147.365, 76.441, 8.34, 0.55)
pt3dadd(147.293, 76.346, 8.33, 0.548)
pt3dadd(147.22, 76.252, 8.319, 0.548)
pt3dadd(147.148, 76.157, 8.309, 0.546)
pt3dadd(147.073, 76.064, 8.298, 0.552)
pt3dadd(146.996, 75.972, 8.286, 0.566)
pt3dadd(146.92, 75.881, 8.275, 0.578)
pt3dadd(146.844, 75.789, 8.264, 0.59)
pt3dadd(146.767, 75.698, 8.252, 0.604)
pt3dadd(146.692, 75.606, 8.241, 0.616)
pt3dadd(146.615, 75.515, 8.229, 0.628)
pt3dadd(146.538, 75.423, 8.218, 0.642)
pt3dadd(146.462, 75.331, 8.206, 0.654)
pt3dadd(146.386, 75.24, 8.195, 0.666)
pt3dadd(146.314, 75.155, 8.163, 0.682)
pt3dadd(146.245, 75.075, 8.115, 0.698)
pt3dadd(146.177, 74.995, 8.067, 0.714)
pt3dadd(146.108, 74.915, 8.019, 0.732)
pt3dadd(146.039, 74.835, 7.971, 0.748)
pt3dadd(145.97, 74.755, 7.923, 0.764)
pt3dadd(145.902, 74.676, 7.875, 0.782)
pt3dadd(145.834, 74.596, 7.827, 0.798)
pt3dadd(145.765, 74.516, 7.779, 0.814)
pt3dadd(145.697, 74.436, 7.731, 0.83)
pt3dadd(145.627, 74.353, 7.688, 0.858)
pt3dadd(145.558, 74.268, 7.648, 0.894)
pt3dadd(145.488, 74.183, 7.607, 0.928)
pt3dadd(145.417, 74.099, 7.567, 0.962)
pt3dadd(145.348, 74.014, 7.526, 0.998)
pt3dadd(145.278, 73.929, 7.486, 1.032)
pt3dadd(145.208, 73.844, 7.446, 1.068)
pt3dadd(145.139, 73.759, 7.405, 1.102)
pt3dadd(145.069, 73.675, 7.365, 1.138)
pt3dadd(145, 73.59, 7.325, 1.172)
pt3dadd(144.905, 73.528, 7.305, 1.204)
pt3dadd(144.796, 73.478, 7.297, 1.234)
pt3dadd(144.686, 73.429, 7.29, 1.264)
pt3dadd(144.578, 73.379, 7.282, 1.296)
pt3dadd(144.469, 73.33, 7.274, 1.326)
pt3dadd(144.36, 73.28, 7.267, 1.356)
}
dend_7[16] {pt3dclear()
pt3dadd(144.36, 73.28, 7.267, 1.356)
pt3dadd(144.36, 73.251, 7.2, 1.436)
pt3dadd(144.382, 73.218, 7.103, 1.562)
pt3dadd(144.403, 73.185, 7.006, 1.688)
pt3dadd(144.426, 73.151, 6.909, 1.814)
pt3dadd(144.449, 73.118, 6.812, 1.94)
pt3dadd(144.472, 73.084, 6.715, 2.066)
pt3dadd(144.493, 73.051, 6.618, 2.194)
pt3dadd(144.5, 72.978, 6.548, 2.228)
pt3dadd(144.49, 72.861, 6.507, 2.158)
pt3dadd(144.479, 72.744, 6.465, 2.088)
pt3dadd(144.468, 72.627, 6.424, 2.018)
pt3dadd(144.457, 72.51, 6.383, 1.948)
pt3dadd(144.442, 72.393, 6.346, 1.88)
pt3dadd(144.396, 72.273, 6.342, 1.844)
pt3dadd(144.349, 72.153, 6.338, 1.808)
pt3dadd(144.302, 72.033, 6.334, 1.772)
pt3dadd(144.256, 71.913, 6.33, 1.736)
pt3dadd(144.208, 71.793, 6.326, 1.7)
pt3dadd(144.162, 71.672, 6.322, 1.664)
pt3dadd(144.119, 71.551, 6.318, 1.63)
pt3dadd(144.076, 71.43, 6.314, 1.594)
pt3dadd(144.031, 71.31, 6.311, 1.558)
pt3dadd(143.988, 71.189, 6.307, 1.524)
pt3dadd(143.942, 71.068, 6.303, 1.488)
pt3dadd(143.857, 70.971, 6.299, 1.444)
pt3dadd(143.762, 70.88, 6.295, 1.398)
pt3dadd(143.668, 70.788, 6.291, 1.352)
pt3dadd(143.574, 70.696, 6.287, 1.306)
pt3dadd(143.478, 70.605, 6.283, 1.262)
pt3dadd(143.424, 70.489, 6.28, 1.228)
pt3dadd(143.375, 70.37, 6.276, 1.196)
pt3dadd(143.324, 70.251, 6.272, 1.164)
pt3dadd(143.275, 70.131, 6.268, 1.132)
pt3dadd(143.225, 70.012, 6.264, 1.1)
pt3dadd(143.176, 69.894, 6.253, 1.078)
pt3dadd(143.126, 69.777, 6.231, 1.072)
pt3dadd(143.078, 69.659, 6.209, 1.068)
pt3dadd(143.029, 69.542, 6.187, 1.062)
pt3dadd(142.98, 69.425, 6.165, 1.058)
pt3dadd(142.92, 69.315, 6.136, 1.068)
pt3dadd(142.85, 69.213, 6.098, 1.098)
pt3dadd(142.78, 69.111, 6.061, 1.128)
pt3dadd(142.71, 69.01, 6.023, 1.156)
pt3dadd(142.644, 68.905, 5.989, 1.184)
pt3dadd(142.592, 68.787, 5.972, 1.204)
pt3dadd(142.541, 68.67, 5.955, 1.224)
pt3dadd(142.49, 68.552, 5.938, 1.244)
pt3dadd(142.439, 68.435, 5.92, 1.264)
pt3dadd(142.386, 68.319, 5.903, 1.28)
pt3dadd(142.321, 68.207, 5.885, 1.28)
pt3dadd(142.256, 68.095, 5.867, 1.28)
pt3dadd(142.193, 67.983, 5.849, 1.28)
pt3dadd(142.129, 67.871, 5.832, 1.28)
pt3dadd(142.063, 67.763, 5.807, 1.284)
pt3dadd(141.994, 67.659, 5.772, 1.288)
pt3dadd(141.924, 67.555, 5.738, 1.294)
pt3dadd(141.854, 67.452, 5.703, 1.3)
pt3dadd(141.786, 67.347, 5.67, 1.308)
pt3dadd(141.722, 67.236, 5.652, 1.334)
pt3dadd(141.658, 67.124, 5.634, 1.36)
pt3dadd(141.593, 67.012, 5.616, 1.386)
pt3dadd(141.529, 66.9, 5.598, 1.412)
pt3dadd(141.464, 66.79, 5.575, 1.446)
pt3dadd(141.4, 66.684, 5.541, 1.498)
pt3dadd(141.334, 66.578, 5.507, 1.55)
pt3dadd(141.266, 66.473, 5.472, 1.602)
pt3dadd(141.202, 66.367, 5.438, 1.652)
pt3dadd(141.149, 66.25, 5.426, 1.684)
pt3dadd(141.096, 66.132, 5.416, 1.712)
pt3dadd(141.044, 66.014, 5.405, 1.742)
pt3dadd(140.993, 65.895, 5.395, 1.77)
pt3dadd(140.94, 65.778, 5.385, 1.8)
pt3dadd(140.894, 65.663, 5.354, 1.812)
pt3dadd(140.852, 65.55, 5.313, 1.818)
pt3dadd(140.809, 65.438, 5.273, 1.822)
pt3dadd(140.767, 65.325, 5.233, 1.828)
pt3dadd(140.72, 65.213, 5.197, 1.828)
pt3dadd(140.648, 65.104, 5.193, 1.77)
pt3dadd(140.576, 64.995, 5.189, 1.712)
pt3dadd(140.525, 64.877, 5.185, 1.65)
pt3dadd(140.474, 64.758, 5.181, 1.586)
pt3dadd(140.413, 64.643, 5.174, 1.538)
pt3dadd(140.346, 64.532, 5.165, 1.502)
pt3dadd(140.274, 64.439, 5.132, 1.494)
pt3dadd(140.194, 64.372, 5.064, 1.522)
pt3dadd(140.161, 64.278, 5.003, 1.568)
}
}
proc shape3d_134() {
dend_7[16] { pt3dadd(140.14, 64.173, 4.947, 1.608)
pt3dadd(140.08, 64.073, 4.896, 1.614)
pt3dadd(140.022, 63.973, 4.845, 1.62)
pt3dadd(139.963, 63.873, 4.794, 1.626)
pt3dadd(139.906, 63.773, 4.742, 1.632)
pt3dadd(139.876, 63.658, 4.701, 1.596)
pt3dadd(139.844, 63.543, 4.659, 1.56)
pt3dadd(139.832, 63.438, 4.6, 1.546)
pt3dadd(139.822, 63.333, 4.54, 1.534)
pt3dadd(139.811, 63.229, 4.479, 1.558)
pt3dadd(139.8, 63.124, 4.419, 1.594)
pt3dadd(139.741, 63.034, 4.366, 1.668)
pt3dadd(139.655, 62.952, 4.317, 1.77)
pt3dadd(139.53, 62.93, 4.307, 1.84)
pt3dadd(139.399, 62.918, 4.304, 1.906)
pt3dadd(139.285, 62.854, 4.286, 1.904)
pt3dadd(139.172, 62.789, 4.268, 1.898)
pt3dadd(139.057, 62.724, 4.25, 1.892)
pt3dadd(138.944, 62.658, 4.231, 1.888)
pt3dadd(138.834, 62.587, 4.215, 1.874)
pt3dadd(138.733, 62.503, 4.204, 1.842)
pt3dadd(138.632, 62.419, 4.194, 1.81)
pt3dadd(138.53, 62.334, 4.183, 1.778)
pt3dadd(138.43, 62.25, 4.172, 1.746)
pt3dadd(138.343, 62.153, 4.165, 1.706)
pt3dadd(138.27, 62.045, 4.161, 1.656)
pt3dadd(138.197, 61.937, 4.157, 1.606)
pt3dadd(138.121, 61.83, 4.153, 1.558)
pt3dadd(138.048, 61.722, 4.149, 1.508)
pt3dadd(137.975, 61.613, 4.145, 1.438)
pt3dadd(137.904, 61.505, 4.141, 1.348)
pt3dadd(137.834, 61.396, 4.128, 1.27)
pt3dadd(137.774, 61.291, 4.088, 1.228)
pt3dadd(137.708, 61.187, 4.048, 1.228)
pt3dadd(137.639, 61.087, 4.008, 1.284)
pt3dadd(137.543, 61.017, 3.968, 1.36)
pt3dadd(137.428, 60.97, 3.929, 1.452)
pt3dadd(137.31, 60.915, 3.914, 1.516)
pt3dadd(137.2, 60.849, 3.901, 1.554)
pt3dadd(137.189, 60.844, 3.897, 1.554)
pt3dadd(137.12, 60.751, 3.845, 1.536)
pt3dadd(137.051, 60.658, 3.793, 1.518)
pt3dadd(136.982, 60.565, 3.74, 1.498)
pt3dadd(136.909, 60.474, 3.691, 1.476)
pt3dadd(136.802, 60.397, 3.681, 1.378)
pt3dadd(136.694, 60.321, 3.672, 1.282)
pt3dadd(136.64, 60.216, 3.627, 1.188)
pt3dadd(136.583, 60.111, 3.586, 1.098)
pt3dadd(136.494, 60.015, 3.576, 1.036)
pt3dadd(136.408, 59.916, 3.567, 0.978)
pt3dadd(136.382, 59.792, 3.564, 0.95)
pt3dadd(136.357, 59.667, 3.56, 0.922)
pt3dadd(136.334, 59.542, 3.556, 0.898)
pt3dadd(136.316, 59.417, 3.552, 0.886)
pt3dadd(136.27, 59.3, 3.548, 0.888)
pt3dadd(136.196, 59.193, 3.544, 0.908)
pt3dadd(136.122, 59.085, 3.54, 0.928)
pt3dadd(136.049, 58.977, 3.536, 0.948)
pt3dadd(135.974, 58.87, 3.533, 0.968)
pt3dadd(135.89, 58.769, 3.529, 0.996)
pt3dadd(135.793, 58.68, 3.525, 1.036)
pt3dadd(135.697, 58.591, 3.521, 1.076)
pt3dadd(135.6, 58.502, 3.517, 1.118)
pt3dadd(135.503, 58.413, 3.513, 1.158)
pt3dadd(135.406, 58.324, 3.509, 1.196)
pt3dadd(135.307, 58.235, 3.505, 1.232)
pt3dadd(135.211, 58.146, 3.501, 1.268)
pt3dadd(135.114, 58.057, 3.498, 1.302)
pt3dadd(135.017, 57.968, 3.494, 1.338)
pt3dadd(134.93, 57.872, 3.48, 1.354)
pt3dadd(134.852, 57.769, 3.456, 1.348)
pt3dadd(134.777, 57.665, 3.432, 1.342)
pt3dadd(134.701, 57.562, 3.409, 1.336)
pt3dadd(134.626, 57.458, 3.385, 1.33)
pt3dadd(134.602, 57.333, 3.38, 1.31)
pt3dadd(134.576, 57.208, 3.374, 1.29)
pt3dadd(134.554, 57.084, 3.368, 1.27)
pt3dadd(134.53, 56.959, 3.363, 1.25)
pt3dadd(134.506, 56.834, 3.357, 1.23)
pt3dadd(134.483, 56.709, 3.351, 1.21)
pt3dadd(134.468, 56.584, 3.347, 1.192)
pt3dadd(134.456, 56.458, 3.343, 1.174)
pt3dadd(134.446, 56.333, 3.339, 1.156)
pt3dadd(134.435, 56.207, 3.335, 1.138)
pt3dadd(134.424, 56.082, 3.331, 1.12)
pt3dadd(134.413, 55.956, 3.328, 1.102)
pt3dadd(134.401, 55.831, 3.324, 1.084)
pt3dadd(134.39, 55.705, 3.32, 1.068)
pt3dadd(134.38, 55.58, 3.316, 1.05)
pt3dadd(134.369, 55.454, 3.312, 1.034)
pt3dadd(134.342, 55.33, 3.308, 1.014)
pt3dadd(134.31, 55.206, 3.304, 0.996)
pt3dadd(134.267, 55.09, 3.3, 0.974)
pt3dadd(134.158, 55.017, 3.296, 0.94)
pt3dadd(134.047, 54.944, 3.293, 0.904)
pt3dadd(133.975, 54.835, 3.289, 0.892)
pt3dadd(133.904, 54.726, 3.285, 0.882)
pt3dadd(133.82, 54.625, 3.281, 0.878)
pt3dadd(133.732, 54.528, 3.277, 0.888)
pt3dadd(133.639, 54.435, 3.273, 0.912)
pt3dadd(133.554, 54.336, 3.269, 0.938)
pt3dadd(133.489, 54.223, 3.265, 0.972)
pt3dadd(133.424, 54.11, 3.261, 1.006)
pt3dadd(133.398, 53.986, 3.258, 1.042)
pt3dadd(133.373, 53.861, 3.254, 1.08)
pt3dadd(133.352, 53.736, 3.25, 1.11)
pt3dadd(133.342, 53.611, 3.246, 1.128)
pt3dadd(133.33, 53.485, 3.242, 1.144)
pt3dadd(133.319, 53.36, 3.238, 1.152)
pt3dadd(133.308, 53.234, 3.234, 1.138)
pt3dadd(133.297, 53.109, 3.23, 1.124)
pt3dadd(133.286, 52.983, 3.227, 1.108)
pt3dadd(133.276, 52.858, 3.223, 1.09)
pt3dadd(133.264, 52.732, 3.219, 1.08)
pt3dadd(133.253, 52.607, 3.215, 1.08)
pt3dadd(133.242, 52.481, 3.211, 1.08)
pt3dadd(133.231, 52.358, 3.196, 1.084)
pt3dadd(133.22, 52.239, 3.159, 1.094)
pt3dadd(133.208, 52.12, 3.122, 1.104)
pt3dadd(133.198, 52.046, 3.037, 1.116)
pt3dadd(133.187, 51.972, 2.951, 1.128)
pt3dadd(133.176, 51.871, 2.888, 1.13)
pt3dadd(133.165, 51.764, 2.831, 1.128)
pt3dadd(133.153, 51.657, 2.775, 1.124)
pt3dadd(133.142, 51.549, 2.718, 1.118)
pt3dadd(133.132, 51.441, 2.662, 1.114)
pt3dadd(133.121, 51.333, 2.606, 1.108)
pt3dadd(133.11, 51.251, 2.536, 1.088)
pt3dadd(133.099, 51.215, 2.437, 1.028)
pt3dadd(133.087, 51.13, 2.361, 0.982)
pt3dadd(133.076, 51.021, 2.308, 0.972)
pt3dadd(133.066, 50.926, 2.237, 0.936)
pt3dadd(133.055, 50.867, 2.145, 0.904)
pt3dadd(133.044, 50.862, 2.141, 0.904)
pt3dadd(132.925, 50.856, 2.092, 0.86)
pt3dadd(132.806, 50.851, 2.044, 0.814)
pt3dadd(132.679, 50.845, 2.029, 0.816)
pt3dadd(132.547, 50.84, 2.025, 0.834)
pt3dadd(132.416, 50.834, 2.022, 0.85)
pt3dadd(132.286, 50.829, 2.018, 0.886)
pt3dadd(132.155, 50.823, 2.014, 0.928)
pt3dadd(132.024, 50.818, 2.01, 0.97)
pt3dadd(131.905, 50.766, 2.006, 0.996)
pt3dadd(131.791, 50.7, 2.002, 1.02)
pt3dadd(131.69, 50.619, 1.984, 1.02)
pt3dadd(131.603, 50.527, 1.955, 1.004)
pt3dadd(131.514, 50.435, 1.926, 0.988)
pt3dadd(131.425, 50.359, 1.878, 0.938)
pt3dadd(131.339, 50.3, 1.811, 0.852)
pt3dadd(131.257, 50.218, 1.759, 0.806)
pt3dadd(131.179, 50.128, 1.713, 0.774)
pt3dadd(131.111, 50.029, 1.672, 0.762)
pt3dadd(131.059, 49.915, 1.64, 0.788)
pt3dadd(131.015, 49.821, 1.586, 0.894)
pt3dadd(130.978, 49.715, 1.545, 0.972)
pt3dadd(130.937, 49.596, 1.521, 0.998)
pt3dadd(130.897, 49.476, 1.497, 1.022)
pt3dadd(130.858, 49.357, 1.474, 1.048)
pt3dadd(130.817, 49.237, 1.45, 1.072)
pt3dadd(130.768, 49.125, 1.415, 1.08)
pt3dadd(130.715, 49.015, 1.377, 1.08)
pt3dadd(130.694, 48.894, 1.356, 1.058)
pt3dadd(130.684, 48.769, 1.339, 1.03)
pt3dadd(130.673, 48.644, 1.325, 1)
pt3dadd(130.662, 48.519, 1.325, 0.966)
pt3dadd(130.651, 48.393, 1.325, 0.932)
pt3dadd(130.639, 48.276, 1.339, 0.894)
pt3dadd(130.628, 48.189, 1.409, 0.846)
pt3dadd(130.618, 48.183, 1.405, 0.846)
pt3dadd(130.607, 48.099, 1.476, 0.8)
pt3dadd(130.596, 48.04, 1.561, 0.768)
pt3dadd(130.584, 47.98, 1.647, 0.734)
pt3dadd(130.573, 47.921, 1.732, 0.7)
pt3dadd(130.562, 47.88, 1.822, 0.662)
pt3dadd(130.552, 47.87, 1.918, 0.618)
pt3dadd(130.541, 47.859, 2.014, 0.576)
pt3dadd(130.53, 47.812, 2.096, 0.536)
pt3dadd(130.518, 47.721, 2.163, 0.5)
pt3dadd(130.507, 47.631, 2.23, 0.464)
pt3dadd(130.496, 47.522, 2.272, 0.432)
pt3dadd(130.486, 47.403, 2.301, 0.4)
pt3dadd(130.475, 47.284, 2.329, 0.35)
pt3dadd(130.463, 47.161, 2.34, 0.298)
pt3dadd(130.452, 47.036, 2.338, 0.29)
pt3dadd(130.441, 46.91, 2.336, 0.284)
pt3dadd(130.43, 46.785, 2.333, 0.276)
pt3dadd(130.42, 46.659, 2.331, 0.268)
pt3dadd(130.408, 46.533, 2.329, 0.262)
pt3dadd(130.397, 46.408, 2.327, 0.254)
pt3dadd(130.386, 46.283, 2.323, 0.25)
pt3dadd(130.375, 46.157, 2.319, 0.246)
pt3dadd(130.364, 46.032, 2.316, 0.242)
pt3dadd(130.354, 45.906, 2.312, 0.238)
pt3dadd(130.342, 45.78, 2.308, 0.234)
pt3dadd(130.331, 45.655, 2.304, 0.23)
pt3dadd(130.32, 45.529, 2.3, 0.228)
pt3dadd(130.309, 45.404, 2.296, 0.226)
pt3dadd(130.298, 45.278, 2.292, 0.226)
pt3dadd(130.286, 45.153, 2.288, 0.226)
pt3dadd(130.276, 45.027, 2.284, 0.226)
}
}
proc shape3d_135() {
dend_7[16] { pt3dadd(130.265, 44.902, 2.281, 0.226)
pt3dadd(130.254, 44.776, 2.277, 0.226)
pt3dadd(130.243, 44.651, 2.273, 0.226)
pt3dadd(130.232, 44.525, 2.269, 0.226)
pt3dadd(130.22, 44.4, 2.265, 0.226)
pt3dadd(130.21, 44.274, 2.261, 0.226)
pt3dadd(130.199, 44.149, 2.257, 0.226)
pt3dadd(130.188, 44.023, 2.253, 0.226)
pt3dadd(130.177, 43.898, 2.249, 0.226)
pt3dadd(130.165, 43.772, 2.246, 0.226)
pt3dadd(130.154, 43.647, 2.242, 0.226)
pt3dadd(130.144, 43.521, 2.238, 0.226)
pt3dadd(130.133, 43.396, 2.234, 0.226)
pt3dadd(130.122, 43.27, 2.23, 0.226)
pt3dadd(130.11, 43.145, 2.226, 0.226)
pt3dadd(130.099, 43.019, 2.222, 0.226)
pt3dadd(130.088, 42.894, 2.218, 0.226)
pt3dadd(130.078, 42.768, 2.214, 0.23)
pt3dadd(130.067, 42.643, 2.211, 0.238)
pt3dadd(130.056, 42.517, 2.207, 0.244)
pt3dadd(130.044, 42.392, 2.203, 0.252)
pt3dadd(130.033, 42.266, 2.199, 0.258)
pt3dadd(130.022, 42.141, 2.195, 0.266)
pt3dadd(130.012, 42.015, 2.191, 0.274)
pt3dadd(130.001, 41.89, 2.187, 0.29)
pt3dadd(129.989, 41.764, 2.183, 0.316)
pt3dadd(129.978, 41.639, 2.18, 0.342)
pt3dadd(129.967, 41.513, 2.176, 0.366)
pt3dadd(129.956, 41.388, 2.172, 0.392)
pt3dadd(129.946, 41.262, 2.168, 0.416)
pt3dadd(129.934, 41.136, 2.164, 0.442)
pt3dadd(129.923, 41.012, 2.15, 0.476)
pt3dadd(129.912, 40.888, 2.13, 0.518)
pt3dadd(129.901, 40.764, 2.11, 0.558)
pt3dadd(129.89, 40.64, 2.089, 0.6)
pt3dadd(129.88, 40.517, 2.069, 0.642)
pt3dadd(129.868, 40.393, 2.049, 0.682)
pt3dadd(129.86, 40.273, 2.017, 0.728)
pt3dadd(129.858, 40.157, 1.974, 0.778)
pt3dadd(129.854, 40.042, 1.931, 0.826)
pt3dadd(129.851, 39.926, 1.887, 0.876)
pt3dadd(129.848, 39.811, 1.844, 0.926)
pt3dadd(129.848, 39.693, 1.807, 0.964)
pt3dadd(129.852, 39.572, 1.777, 0.988)
pt3dadd(129.857, 39.452, 1.748, 1.012)
pt3dadd(129.86, 39.331, 1.718, 1.036)
pt3dadd(129.865, 39.211, 1.689, 1.06)
pt3dadd(129.865, 39.098, 1.65, 1.088)
pt3dadd(129.848, 39.014, 1.57, 1.124)
pt3dadd(129.826, 38.926, 1.501, 1.156)
pt3dadd(129.773, 38.808, 1.492, 1.168)
pt3dadd(129.72, 38.69, 1.483, 1.18)
pt3dadd(129.7, 38.567, 1.463, 1.18)
pt3dadd(129.684, 38.444, 1.441, 1.18)
pt3dadd(129.67, 38.357, 1.387, 1.172)
pt3dadd(129.659, 38.325, 1.286, 1.152)
pt3dadd(129.648, 38.293, 1.184, 1.132)
pt3dadd(129.69, 38.254, 1.097, 1.108)
pt3dadd(129.739, 38.215, 1.011, 1.084)
pt3dadd(129.788, 38.175, 0.925, 1.06)
pt3dadd(129.806, 38.162, 0.827, 1.04)
pt3dadd(129.816, 38.156, 0.724, 1.02)
pt3dadd(129.821, 38.151, 0.622, 1.004)
pt3dadd(129.815, 38.137, 0.519, 1.006)
pt3dadd(129.833, 38.089, 0.425, 1.016)
pt3dadd(129.851, 38.041, 0.331, 1.028)
pt3dadd(129.868, 37.992, 0.237, 1.038)
pt3dadd(129.886, 37.944, 0.143, 1.05)
pt3dadd(129.91, 37.896, 0.05, 1.094)
pt3dadd(129.953, 37.868, -0.04, 1.09)
pt3dadd(129.98, 37.833, -0.135, 0.996)
pt3dadd(130.02, 37.763, -0.21, 0.896)
pt3dadd(130.06, 37.673, -0.269, 0.738)
pt3dadd(130.06, 37.552, -0.292, 0.592)
pt3dadd(130.049, 37.43, -0.28, 0.534)
pt3dadd(130.038, 37.327, -0.228, 0.53)
pt3dadd(130.027, 37.261, -0.147, 0.586)
pt3dadd(130.016, 37.241, -0.053, 0.698)
pt3dadd(130.004, 37.236, -0.057, 0.698)
pt3dadd(129.977, 37.261, 0.033, 0.834)
pt3dadd(129.876, 37.31, 0.066, 0.896)
pt3dadd(129.746, 37.313, 0.066, 0.904)
pt3dadd(129.636, 37.256, 0.041, 0.904)
pt3dadd(129.568, 37.165, -0.01, 0.906)
pt3dadd(129.448, 37.114, -0.03, 0.944)
pt3dadd(129.326, 37.064, -0.05, 0.98)
pt3dadd(129.196, 37.058, -0.054, 1.03)
pt3dadd(129.065, 37.053, -0.058, 1.08)
pt3dadd(128.934, 37.047, -0.061, 1.13)
pt3dadd(128.804, 37.021, -0.065, 1.238)
pt3dadd(128.675, 36.996, -0.069, 1.344)
pt3dadd(128.569, 36.936, -0.073, 1.448)
pt3dadd(128.558, 36.93, -0.077, 1.448)
pt3dadd(128.486, 36.821, -0.081, 1.552)
pt3dadd(128.417, 36.713, -0.091, 1.644)
pt3dadd(128.351, 36.606, -0.123, 1.7)
pt3dadd(128.285, 36.499, -0.155, 1.756)
pt3dadd(128.219, 36.393, -0.189, 1.808)
pt3dadd(128.155, 36.312, -0.256, 1.824)
pt3dadd(128.101, 36.242, -0.333, 1.844)
pt3dadd(128.09, 36.237, -0.337, 1.844)
pt3dadd(128.071, 36.153, -0.405, 1.858)
pt3dadd(128.06, 36.04, -0.454, 1.858)
pt3dadd(128.05, 35.927, -0.502, 1.858)
pt3dadd(128.039, 35.814, -0.551, 1.858)
pt3dadd(128.027, 35.701, -0.599, 1.858)
pt3dadd(128.015, 35.596, -0.657, 1.86)
pt3dadd(128.002, 35.502, -0.729, 1.866)
pt3dadd(127.988, 35.409, -0.801, 1.87)
pt3dadd(127.974, 35.316, -0.874, 1.876)
pt3dadd(127.961, 35.223, -0.946, 1.88)
pt3dadd(127.927, 35.149, -1.026, 1.886)
pt3dadd(127.873, 35.095, -1.114, 1.892)
pt3dadd(127.819, 35.041, -1.202, 1.898)
pt3dadd(127.765, 34.987, -1.29, 1.904)
pt3dadd(127.711, 34.937, -1.379, 1.91)
pt3dadd(127.7, 34.931, -1.383, 1.91)
pt3dadd(127.646, 34.909, -1.479, 1.926)
pt3dadd(127.591, 34.888, -1.575, 1.94)
pt3dadd(127.537, 34.866, -1.671, 1.956)
pt3dadd(127.483, 34.844, -1.768, 1.972)
pt3dadd(127.42, 34.821, -1.858, 1.994)
pt3dadd(127.319, 34.795, -1.925, 2.046)
pt3dadd(127.238, 34.765, -2.001, 2.094)
pt3dadd(127.216, 34.723, -2.1, 2.128)
pt3dadd(127.19, 34.683, -2.198, 2.16)
pt3dadd(127.116, 34.671, -2.287, 2.184)
pt3dadd(127.042, 34.659, -2.376, 2.208)
pt3dadd(126.983, 34.552, -2.405, 2.246)
pt3dadd(126.925, 34.439, -2.431, 2.284)
pt3dadd(126.881, 34.337, -2.487, 2.342)
pt3dadd(126.81, 34.254, -2.545, 2.364)
pt3dadd(126.726, 34.18, -2.604, 2.37)
pt3dadd(126.642, 34.105, -2.663, 2.378)
pt3dadd(126.558, 34.031, -2.722, 2.384)
pt3dadd(126.474, 33.948, -2.771, 2.374)
pt3dadd(126.389, 33.862, -2.815, 2.356)
pt3dadd(126.304, 33.775, -2.86, 2.336)
pt3dadd(126.218, 33.689, -2.904, 2.318)
pt3dadd(126.14, 33.591, -2.936, 2.282)
pt3dadd(126.068, 33.484, -2.956, 2.232)
pt3dadd(125.988, 33.382, -2.967, 2.176)
pt3dadd(125.902, 33.283, -2.971, 2.118)
pt3dadd(125.825, 33.178, -2.975, 2.064)
pt3dadd(125.76, 33.065, -2.979, 2.02)
pt3dadd(125.702, 32.952, -2.976, 1.974)
pt3dadd(125.672, 32.837, -2.942, 1.926)
pt3dadd(125.645, 32.724, -2.905, 1.874)
pt3dadd(125.633, 32.625, -2.846, 1.804)
pt3dadd(125.603, 32.512, -2.814, 1.766)
pt3dadd(125.566, 32.393, -2.794, 1.74)
pt3dadd(125.527, 32.275, -2.773, 1.714)
pt3dadd(125.49, 32.156, -2.752, 1.688)
pt3dadd(125.452, 32.037, -2.731, 1.664)
pt3dadd(125.441, 32.032, -2.735, 1.664)
pt3dadd(125.387, 31.916, -2.742, 1.61)
pt3dadd(125.328, 31.801, -2.757, 1.544)
pt3dadd(125.267, 31.694, -2.791, 1.522)
pt3dadd(125.206, 31.588, -2.831, 1.508)
pt3dadd(125.166, 31.484, -2.887, 1.544)
pt3dadd(125.125, 31.383, -2.944, 1.584)
pt3dadd(125.029, 31.372, -3.018, 1.658)
pt3dadd(124.933, 31.36, -3.092, 1.732)
pt3dadd(124.879, 31.354, -3.189, 1.812)
pt3dadd(124.81, 31.336, -3.277, 1.866)
pt3dadd(124.718, 31.303, -3.352, 1.884)
pt3dadd(124.628, 31.27, -3.427, 1.9)
pt3dadd(124.537, 31.237, -3.502, 1.918)
pt3dadd(124.446, 31.206, -3.577, 1.934)
pt3dadd(124.338, 31.194, -3.64, 1.934)
pt3dadd(124.23, 31.182, -3.702, 1.934)
pt3dadd(124.219, 31.177, -3.706, 1.934)
pt3dadd(124.133, 31.118, -3.774, 1.904)
pt3dadd(124.044, 31.053, -3.834, 1.876)
pt3dadd(123.95, 30.973, -3.876, 1.848)
pt3dadd(123.864, 30.881, -3.9, 1.834)
pt3dadd(123.785, 30.777, -3.904, 1.834)
pt3dadd(123.703, 30.676, -3.914, 1.836)
pt3dadd(123.614, 30.583, -3.94, 1.846)
pt3dadd(123.526, 30.489, -3.965, 1.856)
pt3dadd(123.488, 30.398, -3.923, 1.858)
pt3dadd(123.472, 30.308, -3.856, 1.858)
pt3dadd(123.425, 30.201, -3.835, 1.846)
pt3dadd(123.364, 30.087, -3.835, 1.83)
pt3dadd(123.302, 29.972, -3.836, 1.812)
pt3dadd(123.223, 29.878, -3.867, 1.786)
pt3dadd(123.137, 29.79, -3.908, 1.758)
pt3dadd(123.05, 29.7, -3.945, 1.788)
pt3dadd(122.953, 29.618, -3.974, 1.798)
pt3dadd(122.856, 29.535, -4.004, 1.81)
pt3dadd(122.759, 29.452, -4.034, 1.822)
pt3dadd(122.663, 29.367, -4.063, 1.834)
pt3dadd(122.61, 29.253, -4.088, 1.85)
pt3dadd(122.557, 29.137, -4.113, 1.866)
pt3dadd(122.504, 29.022, -4.138, 1.882)
pt3dadd(122.452, 28.907, -4.163, 1.898)
pt3dadd(122.378, 28.811, -4.181, 1.912)
pt3dadd(122.256, 28.76, -4.185, 1.922)
pt3dadd(122.135, 28.708, -4.189, 1.934)
pt3dadd(122.063, 28.599, -4.193, 1.946)
}
}
proc shape3d_136() {
dend_7[16] { pt3dadd(121.991, 28.49, -4.197, 1.956)
pt3dadd(121.956, 28.368, -4.201, 1.952)
pt3dadd(121.931, 28.244, -4.205, 1.942)
pt3dadd(121.906, 28.119, -4.212, 1.93)
pt3dadd(121.89, 27.999, -4.245, 1.898)
pt3dadd(121.873, 27.879, -4.277, 1.864)
pt3dadd(121.814, 27.786, -4.332, 1.772)
pt3dadd(121.74, 27.696, -4.383, 1.706)
pt3dadd(121.661, 27.604, -4.427, 1.664)
pt3dadd(121.583, 27.512, -4.471, 1.622)
pt3dadd(121.505, 27.42, -4.515, 1.578)
pt3dadd(121.448, 27.34, -4.58, 1.526)
pt3dadd(121.418, 27.273, -4.669, 1.462)
pt3dadd(121.366, 27.186, -4.723, 1.406)
pt3dadd(121.294, 27.079, -4.743, 1.354)
pt3dadd(121.237, 26.965, -4.755, 1.326)
pt3dadd(121.193, 26.844, -4.759, 1.316)
pt3dadd(121.152, 26.723, -4.763, 1.302)
pt3dadd(121.141, 26.717, -4.767, 1.302)
pt3dadd(121.13, 26.592, -4.771, 1.268)
pt3dadd(121.12, 26.466, -4.775, 1.236)
pt3dadd(121.109, 26.341, -4.778, 1.2)
pt3dadd(121.097, 26.215, -4.782, 1.164)
pt3dadd(121.086, 26.09, -4.788, 1.13)
pt3dadd(121.075, 25.966, -4.808, 1.12)
pt3dadd(121.064, 25.842, -4.829, 1.112)
pt3dadd(121.054, 25.718, -4.849, 1.104)
pt3dadd(121.043, 25.594, -4.869, 1.096)
pt3dadd(121.031, 25.47, -4.89, 1.088)
pt3dadd(121.019, 25.347, -4.91, 1.08)
pt3dadd(120.97, 25.23, -4.935, 1.09)
pt3dadd(120.919, 25.114, -4.96, 1.102)
pt3dadd(120.869, 24.998, -4.984, 1.112)
pt3dadd(120.82, 24.882, -5.009, 1.122)
pt3dadd(120.773, 24.764, -5.029, 1.132)
pt3dadd(120.739, 24.64, -5.033, 1.14)
pt3dadd(120.707, 24.517, -5.037, 1.148)
pt3dadd(120.673, 24.394, -5.041, 1.156)
pt3dadd(120.64, 24.27, -5.045, 1.166)
pt3dadd(120.607, 24.147, -5.048, 1.174)
pt3dadd(120.572, 24.024, -5.052, 1.18)
pt3dadd(120.534, 23.901, -5.056, 1.174)
pt3dadd(120.496, 23.779, -5.06, 1.17)
pt3dadd(120.457, 23.657, -5.064, 1.166)
pt3dadd(120.419, 23.534, -5.068, 1.162)
pt3dadd(120.38, 23.412, -5.072, 1.158)
pt3dadd(120.317, 23.304, -5.076, 1.14)
pt3dadd(120.218, 23.217, -5.08, 1.106)
pt3dadd(120.127, 23.124, -5.083, 1.066)
pt3dadd(120.055, 23.015, -5.087, 1.022)
pt3dadd(119.987, 22.905, -5.092, 0.98)
pt3dadd(119.959, 22.781, -5.11, 0.98)
pt3dadd(119.932, 22.658, -5.128, 0.98)
pt3dadd(119.916, 22.542, -5.167, 0.996)
pt3dadd(119.905, 22.429, -5.216, 1.018)
pt3dadd(119.857, 22.339, -5.271, 1.046)
pt3dadd(119.768, 22.274, -5.332, 1.08)
pt3dadd(119.679, 22.209, -5.393, 1.114)
pt3dadd(119.595, 22.123, -5.432, 1.13)
pt3dadd(119.516, 22.021, -5.453, 1.13)
pt3dadd(119.478, 21.913, -5.491, 1.068)
pt3dadd(119.421, 21.8, -5.507, 1.032)
pt3dadd(119.356, 21.687, -5.517, 1.008)
pt3dadd(119.292, 21.575, -5.528, 0.982)
pt3dadd(119.227, 21.462, -5.538, 0.956)
pt3dadd(119.163, 21.349, -5.549, 0.932)
pt3dadd(119.128, 21.237, -5.591, 0.914)
pt3dadd(119.097, 21.124, -5.637, 0.9)
pt3dadd(119.067, 21.012, -5.683, 0.882)
pt3dadd(119.036, 20.899, -5.73, 0.868)
pt3dadd(119.004, 20.786, -5.773, 0.856)
pt3dadd(118.964, 20.667, -5.8, 0.868)
pt3dadd(118.925, 20.549, -5.828, 0.88)
pt3dadd(118.886, 20.43, -5.855, 0.892)
pt3dadd(118.847, 20.311, -5.882, 0.904)
pt3dadd(118.836, 20.306, -5.886, 0.904)
pt3dadd(118.824, 20.3, -5.89, 0.904)
pt3dadd(118.813, 20.295, -5.894, 0.904)
}
dend_7[17] {pt3dclear()
pt3dadd(144.36, 73.28, 7.267, 1.356)
pt3dadd(144.317, 73.229, 7.276, 1.334)
pt3dadd(144.24, 73.139, 7.294, 1.294)
pt3dadd(144.184, 73.035, 7.3, 1.274)
pt3dadd(144.137, 72.925, 7.3, 1.262)
pt3dadd(144.091, 72.814, 7.306, 1.26)
pt3dadd(144.046, 72.705, 7.322, 1.272)
pt3dadd(144.001, 72.599, 7.346, 1.292)
pt3dadd(143.954, 72.502, 7.389, 1.332)
pt3dadd(143.858, 72.432, 7.395, 1.356)
pt3dadd(143.761, 72.361, 7.4, 1.38)
pt3dadd(143.686, 72.267, 7.4, 1.392)
pt3dadd(143.611, 72.174, 7.4, 1.404)
pt3dadd(143.562, 72.066, 7.414, 1.426)
pt3dadd(143.516, 71.957, 7.43, 1.452)
pt3dadd(143.468, 71.906, 7.501, 1.476)
pt3dadd(143.42, 71.871, 7.588, 1.504)
pt3dadd(143.41, 71.784, 7.652, 1.512)
pt3dadd(143.406, 71.689, 7.713, 1.52)
pt3dadd(143.402, 71.593, 7.773, 1.528)
pt3dadd(143.398, 71.492, 7.824, 1.524)
pt3dadd(143.392, 71.379, 7.858, 1.502)
pt3dadd(143.382, 71.267, 7.891, 1.456)
pt3dadd(143.347, 71.153, 7.9, 1.324)
pt3dadd(143.314, 71.038, 7.9, 1.306)
pt3dadd(143.281, 70.922, 7.9, 1.288)
pt3dadd(143.248, 70.807, 7.9, 1.27)
pt3dadd(143.215, 70.692, 7.9, 1.252)
pt3dadd(143.182, 70.576, 7.9, 1.234)
pt3dadd(143.166, 70.458, 7.9, 1.224)
pt3dadd(143.156, 70.338, 7.9, 1.214)
pt3dadd(143.147, 70.218, 7.9, 1.206)
pt3dadd(143.108, 70.105, 7.9, 1.226)
pt3dadd(143.069, 69.992, 7.9, 1.248)
pt3dadd(143.026, 69.88, 7.9, 1.256)
pt3dadd(142.979, 69.77, 7.9, 1.256)
pt3dadd(142.912, 69.679, 7.9, 1.246)
pt3dadd(142.801, 69.632, 7.9, 1.212)
pt3dadd(142.691, 69.585, 7.9, 1.18)
pt3dadd(142.584, 69.532, 7.9, 1.128)
pt3dadd(142.495, 69.455, 7.9, 1.1)
pt3dadd(142.423, 69.359, 7.9, 1.09)
pt3dadd(142.351, 69.263, 7.9, 1.08)
pt3dadd(142.279, 69.167, 7.9, 1.07)
pt3dadd(142.207, 69.071, 7.9, 1.06)
pt3dadd(142.134, 68.977, 7.9, 1.054)
pt3dadd(142.058, 68.883, 7.9, 1.054)
pt3dadd(141.984, 68.789, 7.9, 1.054)
pt3dadd(141.908, 68.695, 7.9, 1.054)
pt3dadd(141.834, 68.602, 7.9, 1.054)
pt3dadd(141.762, 68.508, 7.887, 1.054)
pt3dadd(141.692, 68.414, 7.865, 1.054)
pt3dadd(141.623, 68.32, 7.842, 1.054)
pt3dadd(141.553, 68.227, 7.819, 1.054)
pt3dadd(141.48, 68.135, 7.8, 1.054)
pt3dadd(141.392, 68.053, 7.8, 1.054)
pt3dadd(141.304, 67.972, 7.8, 1.054)
pt3dadd(141.192, 67.931, 7.795, 1.066)
pt3dadd(141.079, 67.89, 7.79, 1.078)
pt3dadd(141.031, 67.809, 7.743, 1.09)
pt3dadd(141.004, 67.717, 7.684, 1.104)
pt3dadd(140.995, 67.606, 7.647, 1.144)
pt3dadd(140.989, 67.494, 7.612, 1.19)
pt3dadd(140.959, 67.382, 7.6, 1.236)
pt3dadd(140.92, 67.269, 7.6, 1.282)
pt3dadd(140.914, 67.149, 7.6, 1.288)
pt3dadd(140.908, 67.029, 7.6, 1.296)
pt3dadd(140.902, 66.909, 7.6, 1.304)
pt3dadd(140.896, 66.79, 7.6, 1.312)
pt3dadd(140.89, 66.67, 7.6, 1.318)
pt3dadd(140.884, 66.55, 7.6, 1.326)
pt3dadd(140.88, 66.43, 7.6, 1.314)
pt3dadd(140.88, 66.31, 7.6, 1.272)
pt3dadd(140.88, 66.19, 7.6, 1.23)
pt3dadd(140.874, 66.07, 7.598, 1.184)
pt3dadd(140.858, 65.952, 7.594, 1.136)
pt3dadd(140.843, 65.833, 7.59, 1.088)
pt3dadd(140.803, 65.744, 7.537, 1.044)
pt3dadd(140.759, 65.661, 7.475, 1.006)
pt3dadd(140.74, 65.555, 7.431, 1.03)
pt3dadd(140.718, 65.45, 7.387, 1.056)
pt3dadd(140.648, 65.37, 7.339, 1.078)
pt3dadd(140.592, 65.272, 7.307, 1.074)
pt3dadd(140.538, 65.172, 7.276, 1.07)
pt3dadd(140.483, 65.072, 7.246, 1.064)
pt3dadd(140.428, 64.971, 7.216, 1.058)
pt3dadd(140.384, 64.864, 7.2, 1.04)
pt3dadd(140.351, 64.748, 7.2, 1.008)
pt3dadd(140.318, 64.633, 7.2, 0.978)
pt3dadd(140.298, 64.515, 7.2, 0.958)
pt3dadd(140.278, 64.396, 7.2, 0.94)
pt3dadd(140.22, 64.302, 7.2, 0.934)
pt3dadd(140.122, 64.234, 7.2, 0.946)
pt3dadd(140.029, 64.159, 7.195, 0.97)
pt3dadd(139.954, 64.069, 7.177, 1.022)
pt3dadd(139.894, 63.969, 7.159, 1.066)
pt3dadd(139.86, 63.857, 7.141, 1.094)
pt3dadd(139.826, 63.744, 7.122, 1.122)
pt3dadd(139.792, 63.631, 7.103, 1.15)
pt3dadd(139.747, 63.52, 7.1, 1.156)
pt3dadd(139.7, 63.409, 7.1, 1.156)
pt3dadd(139.622, 63.327, 7.1, 1.136)
pt3dadd(139.518, 63.268, 7.1, 1.102)
pt3dadd(139.414, 63.209, 7.1, 1.068)
pt3dadd(139.322, 63.133, 7.1, 1.032)
pt3dadd(139.241, 63.045, 7.1, 0.998)
pt3dadd(139.176, 62.952, 7.08, 0.98)
pt3dadd(139.127, 62.854, 7.039, 0.98)
pt3dadd(139.08, 62.756, 6.997, 0.98)
pt3dadd(139.08, 62.657, 6.941, 0.992)
pt3dadd(139.08, 62.558, 6.884, 1.002)
pt3dadd(139.08, 62.475, 6.813, 0.974)
pt3dadd(139.08, 62.372, 6.763, 0.938)
pt3dadd(139.08, 62.268, 6.712, 0.904)
pt3dadd(139.025, 62.162, 6.706, 0.892)
pt3dadd(138.968, 62.056, 6.701, 0.88)
pt3dadd(138.881, 61.977, 6.7, 0.878)
pt3dadd(138.787, 61.902, 6.7, 0.878)
pt3dadd(138.731, 61.806, 6.725, 0.888)
pt3dadd(138.689, 61.701, 6.76, 0.902)
pt3dadd(138.611, 61.62, 6.788, 0.92)
pt3dadd(138.518, 61.548, 6.8, 0.934)
}
}
proc shape3d_137() {
dend_7[17] { pt3dadd(138.42, 61.479, 6.8, 0.944)
pt3dadd(138.322, 61.41, 6.8, 0.954)
pt3dadd(138.223, 61.341, 6.8, 0.964)
pt3dadd(138.125, 61.272, 6.8, 0.974)
pt3dadd(138.024, 61.207, 6.8, 0.998)
pt3dadd(137.921, 61.146, 6.8, 1.032)
pt3dadd(137.819, 61.083, 6.8, 1.066)
pt3dadd(137.72, 61.015, 6.8, 1.102)
pt3dadd(137.629, 60.939, 6.8, 1.134)
pt3dadd(137.576, 60.832, 6.8, 1.156)
pt3dadd(137.522, 60.725, 6.8, 1.18)
pt3dadd(137.506, 60.606, 6.8, 1.216)
pt3dadd(137.491, 60.487, 6.8, 1.254)
pt3dadd(137.466, 60.371, 6.8, 1.29)
pt3dadd(137.412, 60.264, 6.8, 1.324)
pt3dadd(137.344, 60.169, 6.818, 1.344)
pt3dadd(137.27, 60.078, 6.84, 1.362)
pt3dadd(137.197, 59.987, 6.863, 1.378)
pt3dadd(137.124, 59.896, 6.886, 1.396)
pt3dadd(137.044, 59.811, 6.9, 1.4)
pt3dadd(136.949, 59.736, 6.9, 1.386)
pt3dadd(136.855, 59.661, 6.9, 1.37)
pt3dadd(136.762, 59.586, 6.9, 1.354)
pt3dadd(136.668, 59.511, 6.9, 1.34)
pt3dadd(136.571, 59.442, 6.9, 1.326)
pt3dadd(136.466, 59.382, 6.9, 1.318)
pt3dadd(136.362, 59.322, 6.9, 1.308)
pt3dadd(136.259, 59.263, 6.9, 1.298)
pt3dadd(136.154, 59.203, 6.9, 1.288)
pt3dadd(136.048, 59.149, 6.9, 1.276)
pt3dadd(135.934, 59.11, 6.9, 1.258)
pt3dadd(135.821, 59.072, 6.9, 1.24)
pt3dadd(135.707, 59.033, 6.9, 1.22)
pt3dadd(135.593, 58.994, 6.9, 1.202)
pt3dadd(135.48, 58.956, 6.9, 1.184)
pt3dadd(135.385, 58.884, 6.9, 1.172)
pt3dadd(135.298, 58.802, 6.9, 1.16)
pt3dadd(135.203, 58.73, 6.9, 1.14)
pt3dadd(135.103, 58.662, 6.9, 1.116)
pt3dadd(135.04, 58.57, 6.9, 1.096)
pt3dadd(135.013, 58.453, 6.9, 1.076)
pt3dadd(134.987, 58.336, 6.9, 1.056)
pt3dadd(134.948, 58.222, 6.9, 1.034)
pt3dadd(134.908, 58.109, 6.9, 1.012)
pt3dadd(134.888, 57.992, 6.9, 1.004)
pt3dadd(134.882, 57.872, 6.9, 1.004)
pt3dadd(134.83, 57.768, 6.9, 1.008)
pt3dadd(134.76, 57.67, 6.9, 1.014)
pt3dadd(134.692, 57.572, 6.9, 1.018)
pt3dadd(134.622, 57.474, 6.9, 1.024)
pt3dadd(134.554, 57.375, 6.9, 1.028)
pt3dadd(134.484, 57.277, 6.9, 1.036)
pt3dadd(134.416, 57.179, 6.9, 1.046)
pt3dadd(134.346, 57.081, 6.9, 1.056)
pt3dadd(134.278, 56.983, 6.9, 1.066)
pt3dadd(134.208, 56.885, 6.9, 1.076)
pt3dadd(134.128, 56.796, 6.9, 1.084)
pt3dadd(134.041, 56.713, 6.9, 1.088)
pt3dadd(133.955, 56.629, 6.9, 1.094)
pt3dadd(133.87, 56.546, 6.9, 1.098)
pt3dadd(133.783, 56.462, 6.9, 1.104)
pt3dadd(133.685, 56.394, 6.9, 1.112)
pt3dadd(133.583, 56.331, 6.9, 1.122)
pt3dadd(133.481, 56.268, 6.9, 1.132)
pt3dadd(133.379, 56.205, 6.9, 1.142)
pt3dadd(133.276, 56.142, 6.9, 1.152)
pt3dadd(133.188, 56.063, 6.9, 1.152)
pt3dadd(133.108, 55.974, 6.9, 1.146)
pt3dadd(133.026, 55.885, 6.9, 1.142)
pt3dadd(132.946, 55.796, 6.9, 1.136)
pt3dadd(132.865, 55.708, 6.9, 1.132)
pt3dadd(132.784, 55.623, 6.916, 1.126)
pt3dadd(132.701, 55.541, 6.939, 1.12)
pt3dadd(132.618, 55.458, 6.962, 1.114)
pt3dadd(132.535, 55.375, 6.985, 1.108)
pt3dadd(132.448, 55.298, 7, 1.094)
pt3dadd(132.348, 55.23, 7, 1.058)
pt3dadd(132.25, 55.165, 7.007, 1.024)
pt3dadd(132.155, 55.113, 7.05, 0.998)
pt3dadd(132.072, 55.055, 7.101, 0.958)
pt3dadd(132.01, 54.986, 7.165, 0.9)
pt3dadd(131.957, 54.896, 7.207, 0.846)
pt3dadd(131.908, 54.792, 7.236, 0.794)
pt3dadd(131.86, 54.727, 7.302, 0.768)
pt3dadd(131.813, 54.679, 7.385, 0.75)
pt3dadd(131.765, 54.632, 7.468, 0.734)
pt3dadd(131.675, 54.597, 7.5, 0.728)
pt3dadd(131.558, 54.571, 7.5, 0.728)
pt3dadd(131.446, 54.537, 7.5, 0.73)
pt3dadd(131.376, 54.439, 7.5, 0.738)
pt3dadd(131.306, 54.341, 7.5, 0.746)
pt3dadd(131.239, 54.242, 7.5, 0.754)
pt3dadd(131.178, 54.139, 7.5, 0.754)
pt3dadd(131.118, 54.035, 7.499, 0.754)
pt3dadd(131.06, 53.954, 7.458, 0.754)
pt3dadd(131.009, 53.902, 7.379, 0.754)
pt3dadd(130.934, 53.839, 7.331, 0.754)
pt3dadd(130.842, 53.769, 7.307, 0.754)
pt3dadd(130.81, 53.664, 7.3, 0.766)
pt3dadd(130.806, 53.544, 7.3, 0.782)
pt3dadd(130.801, 53.424, 7.3, 0.8)
pt3dadd(130.8, 53.304, 7.3, 0.83)
pt3dadd(130.8, 53.184, 7.3, 0.864)
pt3dadd(130.8, 53.064, 7.3, 0.898)
pt3dadd(130.75, 52.958, 7.3, 0.926)
pt3dadd(130.687, 52.855, 7.3, 0.954)
pt3dadd(130.626, 52.753, 7.3, 0.982)
pt3dadd(130.568, 52.649, 7.295, 1.006)
pt3dadd(130.535, 52.541, 7.261, 1.02)
pt3dadd(130.488, 52.446, 7.227, 1.016)
pt3dadd(130.382, 52.401, 7.199, 0.966)
pt3dadd(130.274, 52.354, 7.177, 0.94)
pt3dadd(130.181, 52.292, 7.146, 0.922)
pt3dadd(130.099, 52.217, 7.109, 0.908)
pt3dadd(130.039, 52.117, 7.1, 0.896)
pt3dadd(129.985, 52.01, 7.1, 0.884)
pt3dadd(129.935, 51.901, 7.1, 0.874)
pt3dadd(129.888, 51.79, 7.1, 0.862)
pt3dadd(129.852, 51.678, 7.1, 0.85)
pt3dadd(129.845, 51.558, 7.1, 0.838)
pt3dadd(129.83, 51.439, 7.1, 0.832)
pt3dadd(129.803, 51.322, 7.1, 0.84)
pt3dadd(129.775, 51.205, 7.1, 0.85)
pt3dadd(129.748, 51.089, 7.1, 0.858)
pt3dadd(129.721, 50.972, 7.1, 0.866)
pt3dadd(129.694, 50.855, 7.1, 0.874)
pt3dadd(129.64, 50.752, 7.1, 0.886)
pt3dadd(129.562, 50.661, 7.1, 0.902)
pt3dadd(129.484, 50.569, 7.1, 0.918)
pt3dadd(129.406, 50.478, 7.1, 0.932)
pt3dadd(129.328, 50.387, 7.1, 0.948)
pt3dadd(129.254, 50.292, 7.1, 0.966)
pt3dadd(129.186, 50.193, 7.1, 0.986)
pt3dadd(129.116, 50.095, 7.1, 1.006)
pt3dadd(129.048, 49.997, 7.1, 1.026)
pt3dadd(128.978, 49.899, 7.1, 1.046)
pt3dadd(128.894, 49.816, 7.1, 1.062)
pt3dadd(128.796, 49.747, 7.1, 1.078)
pt3dadd(128.698, 49.678, 7.1, 1.092)
pt3dadd(128.599, 49.61, 7.1, 1.108)
pt3dadd(128.501, 49.541, 7.1, 1.122)
pt3dadd(128.4, 49.476, 7.1, 1.134)
pt3dadd(128.296, 49.416, 7.1, 1.144)
pt3dadd(128.192, 49.357, 7.1, 1.154)
pt3dadd(128.088, 49.297, 7.1, 1.164)
pt3dadd(127.984, 49.237, 7.1, 1.174)
pt3dadd(127.879, 49.178, 7.1, 1.18)
pt3dadd(127.774, 49.122, 7.1, 1.18)
pt3dadd(127.668, 49.065, 7.1, 1.18)
pt3dadd(127.562, 49.008, 7.1, 1.18)
pt3dadd(127.457, 48.951, 7.1, 1.18)
pt3dadd(127.358, 48.886, 7.1, 1.178)
pt3dadd(127.294, 48.785, 7.1, 1.168)
pt3dadd(127.228, 48.685, 7.1, 1.158)
pt3dadd(127.162, 48.585, 7.1, 1.148)
pt3dadd(127.096, 48.484, 7.1, 1.138)
pt3dadd(127.024, 48.39, 7.1, 1.128)
pt3dadd(126.919, 48.331, 7.1, 1.118)
pt3dadd(126.816, 48.271, 7.1, 1.108)
pt3dadd(126.712, 48.211, 7.1, 1.1)
pt3dadd(126.607, 48.151, 7.1, 1.09)
pt3dadd(126.503, 48.092, 7.1, 1.08)
pt3dadd(126.395, 48.041, 7.1, 1.08)
pt3dadd(126.286, 47.991, 7.1, 1.08)
pt3dadd(126.176, 47.94, 7.1, 1.08)
pt3dadd(126.068, 47.89, 7.1, 1.08)
pt3dadd(125.959, 47.839, 7.1, 1.08)
pt3dadd(125.848, 47.795, 7.1, 1.08)
pt3dadd(125.735, 47.754, 7.1, 1.08)
pt3dadd(125.622, 47.712, 7.1, 1.08)
pt3dadd(125.51, 47.67, 7.1, 1.08)
pt3dadd(125.398, 47.629, 7.1, 1.08)
pt3dadd(125.285, 47.587, 7.1, 1.076)
pt3dadd(125.172, 47.546, 7.1, 1.068)
pt3dadd(125.059, 47.504, 7.1, 1.058)
pt3dadd(124.948, 47.462, 7.1, 1.05)
pt3dadd(124.835, 47.421, 7.1, 1.04)
pt3dadd(124.722, 47.379, 7.1, 1.032)
pt3dadd(124.632, 47.301, 7.1, 1.008)
pt3dadd(124.546, 47.218, 7.1, 0.982)
pt3dadd(124.46, 47.134, 7.1, 0.956)
pt3dadd(124.374, 47.051, 7.1, 0.932)
pt3dadd(124.288, 46.967, 7.1, 0.906)
pt3dadd(124.223, 46.866, 7.1, 0.886)
pt3dadd(124.16, 46.764, 7.1, 0.866)
pt3dadd(124.097, 46.662, 7.1, 0.846)
pt3dadd(124.034, 46.56, 7.1, 0.826)
pt3dadd(123.971, 46.458, 7.1, 0.808)
pt3dadd(123.887, 46.373, 7.1, 0.804)
pt3dadd(123.798, 46.293, 7.1, 0.804)
pt3dadd(123.709, 46.212, 7.1, 0.804)
pt3dadd(123.62, 46.131, 7.1, 0.804)
pt3dadd(123.532, 46.051, 7.1, 0.804)
pt3dadd(123.426, 45.997, 7.112, 0.822)
pt3dadd(123.318, 45.947, 7.126, 0.842)
pt3dadd(123.21, 45.897, 7.14, 0.864)
pt3dadd(123.102, 45.847, 7.154, 0.884)
pt3dadd(122.995, 45.796, 7.168, 0.908)
pt3dadd(122.912, 45.712, 7.185, 0.974)
pt3dadd(122.824, 45.638, 7.2, 1.034)
}
}
proc shape3d_138() {
dend_7[17] { pt3dadd(122.705, 45.623, 7.2, 1.062)
pt3dadd(122.586, 45.608, 7.2, 1.09)
pt3dadd(122.472, 45.576, 7.2, 1.11)
pt3dadd(122.364, 45.522, 7.2, 1.122)
pt3dadd(122.27, 45.456, 7.2, 1.13)
pt3dadd(122.224, 45.346, 7.2, 1.13)
pt3dadd(122.177, 45.235, 7.2, 1.13)
pt3dadd(122.119, 45.131, 7.209, 1.124)
pt3dadd(122.062, 45.026, 7.219, 1.116)
pt3dadd(122.004, 44.922, 7.228, 1.108)
pt3dadd(121.926, 44.843, 7.25, 1.092)
pt3dadd(121.825, 44.793, 7.286, 1.066)
pt3dadd(121.714, 44.771, 7.3, 1.042)
pt3dadd(121.594, 44.768, 7.3, 1.024)
pt3dadd(121.474, 44.764, 7.3, 1.004)
pt3dadd(121.354, 44.761, 7.3, 0.984)
pt3dadd(121.234, 44.76, 7.3, 0.968)
pt3dadd(121.114, 44.76, 7.3, 0.95)
pt3dadd(120.994, 44.76, 7.3, 0.934)
pt3dadd(120.888, 44.757, 7.34, 0.93)
pt3dadd(120.788, 44.752, 7.396, 0.93)
pt3dadd(120.689, 44.747, 7.451, 0.93)
pt3dadd(120.644, 44.645, 7.475, 0.952)
pt3dadd(120.605, 44.535, 7.497, 0.976)
pt3dadd(120.6, 44.418, 7.483, 1.018)
pt3dadd(120.6, 44.304, 7.456, 1.066)
pt3dadd(120.59, 44.215, 7.391, 1.122)
pt3dadd(120.55, 44.17, 7.307, 1.13)
pt3dadd(120.503, 44.16, 7.217, 1.13)
pt3dadd(120.47, 44.16, 7.121, 1.108)
pt3dadd(120.406, 44.16, 7.037, 1.084)
pt3dadd(120.337, 44.16, 6.954, 1.06)
pt3dadd(120.233, 44.148, 6.923, 1.038)
pt3dadd(120.115, 44.131, 6.909, 1.018)
pt3dadd(120.017, 44.084, 6.896, 1.008)
pt3dadd(119.952, 43.984, 6.883, 1.018)
pt3dadd(119.887, 43.884, 6.871, 1.026)
pt3dadd(119.833, 43.829, 6.807, 1.056)
pt3dadd(119.785, 43.795, 6.72, 1.096)
pt3dadd(119.721, 43.722, 6.668, 1.13)
pt3dadd(119.654, 43.637, 6.625, 1.162)
pt3dadd(119.571, 43.562, 6.6, 1.176)
pt3dadd(119.468, 43.501, 6.6, 1.164)
pt3dadd(119.361, 43.45, 6.6, 1.142)
pt3dadd(119.245, 43.424, 6.6, 1.104)
pt3dadd(119.136, 43.373, 6.6, 1.098)
pt3dadd(119.027, 43.323, 6.6, 1.094)
pt3dadd(118.919, 43.272, 6.6, 1.09)
pt3dadd(118.81, 43.221, 6.6, 1.084)
pt3dadd(118.701, 43.171, 6.6, 1.08)
pt3dadd(118.587, 43.132, 6.6, 1.102)
pt3dadd(118.474, 43.092, 6.6, 1.124)
pt3dadd(118.356, 43.08, 6.6, 1.136)
pt3dadd(118.236, 43.08, 6.6, 1.144)
pt3dadd(118.116, 43.08, 6.6, 1.152)
pt3dadd(118.005, 43.043, 6.6, 1.132)
pt3dadd(117.898, 42.989, 6.6, 1.098)
pt3dadd(117.815, 42.91, 6.6, 1.054)
pt3dadd(117.762, 42.803, 6.6, 0.998)
pt3dadd(117.694, 42.713, 6.6, 0.95)
pt3dadd(117.577, 42.684, 6.6, 0.932)
pt3dadd(117.461, 42.655, 6.6, 0.914)
pt3dadd(117.345, 42.626, 6.6, 0.896)
pt3dadd(117.228, 42.6, 6.6, 0.88)
pt3dadd(117.108, 42.6, 6.6, 0.898)
pt3dadd(116.988, 42.6, 6.6, 0.914)
pt3dadd(116.868, 42.6, 6.6, 0.944)
pt3dadd(116.748, 42.598, 6.6, 1.082)
pt3dadd(116.63, 42.576, 6.6, 1.094)
pt3dadd(116.512, 42.553, 6.6, 1.106)
pt3dadd(116.394, 42.531, 6.6, 1.118)
pt3dadd(116.276, 42.509, 6.6, 1.132)
pt3dadd(116.158, 42.486, 6.6, 1.144)
pt3dadd(116.041, 42.462, 6.6, 1.156)
pt3dadd(115.929, 42.421, 6.6, 1.156)
pt3dadd(115.816, 42.379, 6.6, 1.156)
pt3dadd(115.703, 42.337, 6.6, 1.156)
pt3dadd(115.591, 42.296, 6.6, 1.156)
pt3dadd(115.478, 42.254, 6.6, 1.156)
pt3dadd(115.361, 42.232, 6.6, 1.136)
pt3dadd(115.242, 42.219, 6.6, 1.11)
pt3dadd(115.122, 42.207, 6.6, 1.082)
pt3dadd(115.003, 42.194, 6.6, 1.054)
pt3dadd(114.884, 42.181, 6.6, 1.026)
pt3dadd(114.765, 42.169, 6.6, 0.998)
pt3dadd(114.649, 42.144, 6.6, 0.974)
pt3dadd(114.541, 42.09, 6.6, 0.954)
pt3dadd(114.434, 42.037, 6.6, 0.936)
pt3dadd(114.327, 41.983, 6.6, 0.916)
pt3dadd(114.219, 41.93, 6.6, 0.896)
pt3dadd(114.111, 41.878, 6.6, 0.878)
pt3dadd(113.993, 41.856, 6.6, 0.87)
pt3dadd(113.875, 41.834, 6.6, 0.862)
pt3dadd(113.757, 41.812, 6.6, 0.854)
pt3dadd(113.64, 41.789, 6.6, 0.844)
pt3dadd(113.522, 41.767, 6.6, 0.836)
pt3dadd(113.404, 41.743, 6.6, 0.832)
pt3dadd(113.291, 41.704, 6.6, 0.874)
pt3dadd(113.178, 41.664, 6.6, 0.918)
pt3dadd(113.061, 41.634, 6.6, 0.966)
pt3dadd(112.944, 41.607, 6.6, 1.016)
pt3dadd(112.834, 41.568, 6.601, 1.068)
pt3dadd(112.75, 41.484, 6.607, 1.13)
pt3dadd(112.665, 41.412, 6.623, 1.186)
pt3dadd(112.581, 41.406, 6.694, 1.224)
pt3dadd(112.494, 41.399, 6.763, 1.256)
pt3dadd(112.396, 41.389, 6.82, 1.256)
pt3dadd(112.285, 41.369, 6.848, 1.244)
pt3dadd(112.169, 41.346, 6.867, 1.23)
pt3dadd(112.054, 41.323, 6.886, 1.216)
pt3dadd(111.938, 41.3, 6.906, 1.2)
pt3dadd(111.823, 41.277, 6.925, 1.186)
pt3dadd(111.711, 41.24, 6.943, 1.166)
pt3dadd(111.603, 41.193, 6.959, 1.14)
pt3dadd(111.494, 41.145, 6.975, 1.112)
pt3dadd(111.386, 41.098, 6.991, 1.086)
pt3dadd(111.277, 41.05, 7.007, 1.06)
pt3dadd(111.168, 41.025, 7.04, 0.998)
pt3dadd(111.058, 41.006, 7.078, 0.926)
pt3dadd(110.948, 40.972, 7.104, 0.878)
pt3dadd(110.838, 40.933, 7.126, 0.842)
pt3dadd(110.731, 40.893, 7.156, 0.828)
pt3dadd(110.627, 40.851, 7.191, 0.828)
pt3dadd(110.513, 40.827, 7.19, 0.844)
pt3dadd(110.395, 40.811, 7.176, 0.866)
pt3dadd(110.286, 40.8, 7.144, 0.872)
pt3dadd(110.192, 40.8, 7.082, 0.854)
pt3dadd(110.089, 40.767, 7.041, 0.838)
pt3dadd(109.985, 40.731, 7.001, 0.822)
pt3dadd(109.88, 40.695, 6.961, 0.804)
pt3dadd(109.776, 40.659, 6.921, 0.788)
pt3dadd(109.669, 40.621, 6.892, 0.774)
pt3dadd(109.559, 40.578, 6.876, 0.762)
pt3dadd(109.448, 40.536, 6.859, 0.752)
pt3dadd(109.338, 40.493, 6.843, 0.742)
pt3dadd(109.227, 40.451, 6.826, 0.73)
pt3dadd(109.115, 40.415, 6.836, 0.728)
pt3dadd(109.002, 40.382, 6.854, 0.728)
pt3dadd(108.888, 40.349, 6.873, 0.728)
pt3dadd(108.775, 40.316, 6.891, 0.728)
pt3dadd(108.662, 40.283, 6.91, 0.728)
pt3dadd(108.568, 40.209, 6.908, 0.74)
pt3dadd(108.477, 40.132, 6.905, 0.754)
pt3dadd(108.385, 40.054, 6.902, 0.768)
pt3dadd(108.3, 39.971, 6.9, 0.782)
pt3dadd(108.231, 39.873, 6.9, 0.792)
pt3dadd(108.162, 39.775, 6.9, 0.802)
pt3dadd(108.093, 39.676, 6.9, 0.812)
pt3dadd(108.024, 39.578, 6.9, 0.822)
pt3dadd(107.959, 39.484, 6.885, 0.84)
pt3dadd(107.906, 39.401, 6.828, 0.882)
pt3dadd(107.857, 39.315, 6.772, 0.912)
pt3dadd(107.812, 39.226, 6.716, 0.926)
pt3dadd(107.742, 39.137, 6.7, 0.92)
pt3dadd(107.66, 39.049, 6.7, 0.908)
pt3dadd(107.557, 38.998, 6.7, 0.892)
pt3dadd(107.44, 38.971, 6.7, 0.872)
pt3dadd(107.326, 38.94, 6.7, 0.854)
pt3dadd(107.245, 38.851, 6.704, 0.854)
pt3dadd(107.165, 38.762, 6.707, 0.854)
pt3dadd(107.084, 38.674, 6.71, 0.854)
pt3dadd(107.045, 38.578, 6.745, 0.854)
pt3dadd(107.032, 38.479, 6.8, 0.854)
pt3dadd(107, 38.399, 6.867, 0.828)
pt3dadd(106.915, 38.315, 6.874, 0.818)
pt3dadd(106.83, 38.23, 6.881, 0.808)
pt3dadd(106.746, 38.146, 6.888, 0.796)
pt3dadd(106.661, 38.061, 6.895, 0.786)
pt3dadd(106.57, 37.985, 6.9, 0.778)
pt3dadd(106.463, 37.932, 6.9, 0.778)
pt3dadd(106.355, 37.879, 6.9, 0.78)
pt3dadd(106.239, 37.846, 6.9, 0.8)
pt3dadd(106.124, 37.813, 6.9, 0.82)
pt3dadd(106.011, 37.777, 6.89, 0.844)
pt3dadd(105.898, 37.739, 6.875, 0.866)
pt3dadd(105.808, 37.677, 6.849, 0.878)
pt3dadd(105.741, 37.588, 6.812, 0.878)
pt3dadd(105.683, 37.486, 6.8, 0.844)
pt3dadd(105.633, 37.377, 6.8, 0.774)
pt3dadd(105.601, 37.262, 6.8, 0.63)
pt3dadd(105.568, 37.146, 6.8, 0.56)
pt3dadd(105.519, 37.038, 6.8, 0.604)
pt3dadd(105.487, 36.928, 6.773, 0.664)
pt3dadd(105.48, 36.853, 6.699, 0.678)
pt3dadd(105.48, 36.84, 6.6, 0.678)
}
dend_0[5] {pt3dclear()
pt3dadd(170.098, 112.194, 13.295, 13.108)
pt3dadd(170.146, 112.194, 13.335, 13.016)
pt3dadd(170.231, 112.194, 13.405, 12.852)
pt3dadd(170.316, 112.194, 13.476, 12.688)
pt3dadd(170.401, 112.194, 13.547, 12.524)
pt3dadd(170.485, 112.194, 13.618, 12.362)
pt3dadd(170.57, 112.194, 13.688, 12.198)
pt3dadd(170.656, 112.194, 13.759, 12.034)
pt3dadd(170.74, 112.194, 13.83, 11.87)
pt3dadd(170.825, 112.194, 13.9, 11.708)
pt3dadd(170.91, 112.194, 13.971, 11.544)
pt3dadd(170.994, 112.194, 14.042, 11.38)
pt3dadd(171.079, 112.194, 14.113, 11.218)
pt3dadd(171.164, 112.194, 14.183, 11.054)
pt3dadd(171.25, 112.194, 14.254, 10.89)
}
}
proc shape3d_139() {
dend_0[5] { pt3dadd(171.334, 112.194, 14.325, 10.726)
pt3dadd(171.419, 112.194, 14.395, 10.564)
pt3dadd(171.504, 112.194, 14.466, 10.4)
pt3dadd(171.588, 112.194, 14.537, 10.236)
pt3dadd(171.673, 112.194, 14.608, 10.072)
pt3dadd(171.758, 112.194, 14.678, 9.908)
pt3dadd(171.844, 112.194, 14.749, 9.746)
pt3dadd(171.928, 112.194, 14.82, 9.582)
pt3dadd(172.015, 112.151, 14.854, 9.45)
pt3dadd(172.103, 112.07, 14.858, 9.344)
pt3dadd(172.192, 111.989, 14.862, 9.238)
pt3dadd(172.28, 111.908, 14.866, 9.13)
pt3dadd(172.369, 111.827, 14.87, 9.024)
pt3dadd(172.458, 111.746, 14.874, 8.918)
}
dend_7[18] {pt3dclear()
pt3dadd(172.458, 111.746, 14.874, 8.918)
pt3dadd(172.546, 111.666, 14.878, 8.812)
pt3dadd(172.634, 111.585, 14.882, 8.706)
pt3dadd(172.723, 111.504, 14.885, 8.6)
pt3dadd(172.812, 111.423, 14.889, 8.494)
pt3dadd(172.9, 111.342, 14.893, 8.388)
pt3dadd(172.988, 111.261, 14.896, 8.284)
pt3dadd(173.076, 111.179, 14.899, 8.178)
pt3dadd(173.165, 111.098, 14.903, 8.072)
pt3dadd(173.252, 111.016, 14.906, 7.968)
pt3dadd(173.34, 110.935, 14.909, 7.862)
pt3dadd(173.429, 110.854, 14.912, 7.758)
pt3dadd(173.516, 110.772, 14.916, 7.652)
pt3dadd(173.605, 110.691, 14.919, 7.546)
pt3dadd(173.693, 110.609, 14.922, 7.442)
pt3dadd(173.782, 110.529, 14.926, 7.33)
pt3dadd(173.872, 110.449, 14.931, 7.214)
pt3dadd(173.96, 110.369, 14.935, 7.1)
pt3dadd(174.05, 110.289, 14.94, 6.984)
pt3dadd(174.139, 110.209, 14.945, 6.868)
pt3dadd(174.229, 110.129, 14.949, 6.752)
pt3dadd(174.318, 110.05, 14.954, 6.636)
pt3dadd(174.407, 109.97, 14.959, 6.52)
pt3dadd(174.497, 109.89, 14.963, 6.406)
pt3dadd(174.586, 109.81, 14.968, 6.29)
pt3dadd(174.676, 109.73, 14.973, 6.17)
pt3dadd(174.766, 109.651, 14.978, 6.048)
pt3dadd(174.856, 109.572, 14.984, 5.926)
pt3dadd(174.946, 109.493, 14.989, 5.804)
pt3dadd(175.036, 109.414, 14.995, 5.682)
pt3dadd(175.126, 109.335, 15, 5.56)
pt3dadd(175.216, 109.256, 15.005, 5.438)
pt3dadd(175.306, 109.177, 15.011, 5.316)
pt3dadd(175.396, 109.098, 15.016, 5.194)
pt3dadd(175.486, 109.019, 15.022, 5.072)
pt3dadd(175.578, 108.942, 15.028, 4.964)
pt3dadd(175.67, 108.866, 15.036, 4.868)
pt3dadd(175.763, 108.791, 15.043, 4.77)
pt3dadd(175.856, 108.715, 15.051, 4.672)
pt3dadd(175.949, 108.639, 15.058, 4.576)
pt3dadd(176.041, 108.564, 15.066, 4.478)
pt3dadd(176.135, 108.488, 15.073, 4.38)
pt3dadd(176.227, 108.413, 15.081, 4.282)
pt3dadd(176.32, 108.337, 15.088, 4.186)
pt3dadd(176.413, 108.262, 15.095, 4.088)
pt3dadd(176.507, 108.187, 15.103, 3.994)
pt3dadd(176.599, 108.112, 15.111, 3.904)
pt3dadd(176.693, 108.038, 15.119, 3.814)
pt3dadd(176.786, 107.963, 15.127, 3.724)
pt3dadd(176.88, 107.889, 15.135, 3.634)
pt3dadd(176.974, 107.814, 15.143, 3.544)
pt3dadd(177.067, 107.74, 15.151, 3.454)
pt3dadd(177.161, 107.665, 15.16, 3.364)
pt3dadd(177.254, 107.591, 15.168, 3.272)
pt3dadd(177.348, 107.516, 15.176, 3.182)
pt3dadd(177.448, 107.454, 15.195, 3.126)
pt3dadd(177.55, 107.401, 15.222, 3.096)
pt3dadd(177.653, 107.348, 15.249, 3.066)
pt3dadd(177.755, 107.295, 15.276, 3.034)
pt3dadd(177.857, 107.241, 15.303, 3.004)
pt3dadd(177.96, 107.188, 15.33, 2.974)
pt3dadd(178.062, 107.135, 15.357, 2.942)
pt3dadd(178.165, 107.081, 15.384, 2.912)
pt3dadd(178.267, 107.028, 15.411, 2.882)
pt3dadd(178.37, 106.975, 15.438, 2.85)
pt3dadd(178.474, 106.926, 15.469, 2.832)
pt3dadd(178.577, 106.88, 15.501, 2.82)
pt3dadd(178.681, 106.834, 15.533, 2.808)
pt3dadd(178.784, 106.788, 15.566, 2.796)
pt3dadd(178.889, 106.742, 15.598, 2.782)
pt3dadd(178.992, 106.696, 15.63, 2.77)
pt3dadd(179.095, 106.649, 15.663, 2.758)
pt3dadd(179.2, 106.603, 15.695, 2.746)
pt3dadd(179.303, 106.557, 15.727, 2.734)
pt3dadd(179.407, 106.511, 15.759, 2.72)
pt3dadd(179.518, 106.475, 15.782, 2.652)
pt3dadd(179.632, 106.445, 15.799, 2.558)
pt3dadd(179.746, 106.414, 15.817, 2.464)
pt3dadd(179.86, 106.383, 15.835, 2.37)
pt3dadd(179.974, 106.353, 15.853, 2.276)
pt3dadd(180.088, 106.322, 15.87, 2.184)
pt3dadd(180.202, 106.292, 15.888, 2.09)
pt3dadd(180.316, 106.261, 15.906, 1.996)
pt3dadd(180.431, 106.23, 15.924, 1.902)
pt3dadd(180.545, 106.2, 15.941, 1.808)
pt3dadd(180.658, 106.164, 15.955, 1.744)
pt3dadd(180.77, 106.126, 15.966, 1.69)
pt3dadd(180.884, 106.089, 15.978, 1.638)
pt3dadd(180.997, 106.051, 15.99, 1.586)
pt3dadd(181.11, 106.014, 16.001, 1.534)
pt3dadd(181.223, 105.976, 16.013, 1.48)
pt3dadd(181.337, 105.939, 16.025, 1.428)
pt3dadd(181.45, 105.901, 16.036, 1.376)
pt3dadd(181.562, 105.863, 16.048, 1.324)
pt3dadd(181.675, 105.826, 16.06, 1.27)
pt3dadd(181.784, 105.777, 16.062, 1.288)
pt3dadd(181.892, 105.724, 16.063, 1.328)
pt3dadd(182, 105.672, 16.063, 1.368)
pt3dadd(182.108, 105.62, 16.063, 1.406)
pt3dadd(182.216, 105.567, 16.063, 1.446)
pt3dadd(182.324, 105.515, 16.063, 1.486)
pt3dadd(182.432, 105.462, 16.063, 1.524)
pt3dadd(182.54, 105.41, 16.063, 1.564)
pt3dadd(182.648, 105.357, 16.063, 1.602)
pt3dadd(182.756, 105.305, 16.063, 1.642)
pt3dadd(182.864, 105.257, 16.047, 1.664)
pt3dadd(182.972, 105.211, 16.026, 1.68)
pt3dadd(183.079, 105.165, 16.005, 1.696)
pt3dadd(183.187, 105.118, 15.985, 1.712)
pt3dadd(183.295, 105.072, 15.964, 1.728)
pt3dadd(183.403, 105.026, 15.943, 1.744)
pt3dadd(183.511, 104.979, 15.922, 1.758)
pt3dadd(183.619, 104.933, 15.901, 1.776)
pt3dadd(183.727, 104.887, 15.88, 1.79)
pt3dadd(183.834, 104.84, 15.859, 1.806)
pt3dadd(183.94, 104.799, 15.826, 1.808)
pt3dadd(184.044, 104.757, 15.792, 1.808)
pt3dadd(184.15, 104.716, 15.757, 1.808)
pt3dadd(184.254, 104.675, 15.723, 1.808)
pt3dadd(184.36, 104.633, 15.689, 1.808)
pt3dadd(184.464, 104.592, 15.655, 1.808)
pt3dadd(184.568, 104.551, 15.621, 1.808)
pt3dadd(184.674, 104.51, 15.586, 1.808)
pt3dadd(184.778, 104.468, 15.552, 1.808)
pt3dadd(184.884, 104.427, 15.518, 1.808)
pt3dadd(184.986, 104.372, 15.495, 1.818)
pt3dadd(185.089, 104.315, 15.474, 1.828)
pt3dadd(185.192, 104.259, 15.452, 1.838)
pt3dadd(185.294, 104.203, 15.43, 1.85)
pt3dadd(185.398, 104.147, 15.409, 1.86)
pt3dadd(185.501, 104.09, 15.387, 1.87)
pt3dadd(185.603, 104.034, 15.365, 1.882)
pt3dadd(185.706, 103.978, 15.344, 1.892)
pt3dadd(185.808, 103.921, 15.322, 1.902)
pt3dadd(185.911, 103.865, 15.301, 1.914)
pt3dadd(186.013, 103.807, 15.282, 1.924)
pt3dadd(186.116, 103.748, 15.264, 1.936)
pt3dadd(186.218, 103.69, 15.245, 1.948)
pt3dadd(186.322, 103.632, 15.227, 1.958)
pt3dadd(186.424, 103.573, 15.208, 1.97)
pt3dadd(186.527, 103.515, 15.19, 1.982)
pt3dadd(186.629, 103.456, 15.172, 1.992)
pt3dadd(186.731, 103.398, 15.153, 2.004)
pt3dadd(186.834, 103.34, 15.135, 2.016)
pt3dadd(186.936, 103.281, 15.116, 2.026)
pt3dadd(187.048, 103.237, 15.112, 2.012)
pt3dadd(187.159, 103.193, 15.108, 1.998)
pt3dadd(187.271, 103.149, 15.104, 1.984)
pt3dadd(187.382, 103.105, 15.1, 1.97)
pt3dadd(187.494, 103.062, 15.096, 1.956)
pt3dadd(187.606, 103.018, 15.092, 1.94)
pt3dadd(187.717, 102.974, 15.087, 1.926)
pt3dadd(187.829, 102.93, 15.084, 1.912)
pt3dadd(187.94, 102.886, 15.079, 1.898)
pt3dadd(188.052, 102.843, 15.075, 1.882)
pt3dadd(188.164, 102.799, 15.079, 1.846)
pt3dadd(188.275, 102.756, 15.083, 1.81)
pt3dadd(188.388, 102.713, 15.087, 1.772)
pt3dadd(188.5, 102.67, 15.091, 1.736)
pt3dadd(188.611, 102.627, 15.095, 1.698)
pt3dadd(188.723, 102.584, 15.098, 1.66)
pt3dadd(188.836, 102.541, 15.102, 1.624)
pt3dadd(188.947, 102.498, 15.106, 1.586)
pt3dadd(189.059, 102.455, 15.11, 1.55)
pt3dadd(189.17, 102.411, 15.114, 1.512)
pt3dadd(189.282, 102.369, 15.126, 1.452)
pt3dadd(189.394, 102.327, 15.139, 1.39)
pt3dadd(189.505, 102.284, 15.151, 1.33)
pt3dadd(189.616, 102.242, 15.163, 1.268)
pt3dadd(189.727, 102.2, 15.175, 1.208)
pt3dadd(189.839, 102.157, 15.188, 1.148)
pt3dadd(189.95, 102.115, 15.2, 1.086)
pt3dadd(190.061, 102.073, 15.212, 1.026)
pt3dadd(190.172, 102.03, 15.224, 0.964)
pt3dadd(190.284, 101.988, 15.237, 0.904)
}
dend_7[19] {pt3dclear()
pt3dadd(190.284, 101.988, 15.237, 0.904)
pt3dadd(190.334, 101.937, 15.265, 0.874)
pt3dadd(190.411, 101.859, 15.308, 0.828)
pt3dadd(190.487, 101.782, 15.35, 0.782)
pt3dadd(190.562, 101.704, 15.393, 0.736)
pt3dadd(190.639, 101.627, 15.435, 0.69)
pt3dadd(190.715, 101.549, 15.478, 0.644)
pt3dadd(190.79, 101.472, 15.521, 0.598)
pt3dadd(190.867, 101.394, 15.563, 0.55)
pt3dadd(190.943, 101.317, 15.606, 0.504)
pt3dadd(191.02, 101.239, 15.648, 0.46)
}
}
proc shape3d_140() {
dend_7[19] { pt3dadd(191.095, 101.162, 15.691, 0.412)
pt3dadd(191.171, 101.084, 15.734, 0.366)
pt3dadd(191.25, 101.001, 15.763, 0.35)
pt3dadd(191.329, 100.917, 15.791, 0.336)
pt3dadd(191.408, 100.834, 15.82, 0.322)
pt3dadd(191.486, 100.75, 15.848, 0.308)
pt3dadd(191.566, 100.666, 15.876, 0.296)
pt3dadd(191.645, 100.582, 15.905, 0.282)
pt3dadd(191.724, 100.499, 15.933, 0.268)
pt3dadd(191.803, 100.415, 15.961, 0.254)
pt3dadd(191.882, 100.331, 15.989, 0.24)
pt3dadd(191.96, 100.248, 16.018, 0.226)
pt3dadd(192.041, 100.162, 16.04, 0.226)
pt3dadd(192.12, 100.076, 16.062, 0.226)
pt3dadd(192.199, 99.99, 16.084, 0.226)
pt3dadd(192.28, 99.904, 16.106, 0.226)
pt3dadd(192.359, 99.819, 16.128, 0.226)
pt3dadd(192.438, 99.733, 16.15, 0.226)
pt3dadd(192.518, 99.647, 16.172, 0.226)
pt3dadd(192.598, 99.561, 16.194, 0.226)
pt3dadd(192.677, 99.475, 16.216, 0.226)
pt3dadd(192.757, 99.389, 16.238, 0.226)
pt3dadd(192.841, 99.306, 16.249, 0.248)
pt3dadd(192.926, 99.222, 16.259, 0.27)
pt3dadd(193.012, 99.138, 16.268, 0.292)
pt3dadd(193.097, 99.054, 16.278, 0.314)
pt3dadd(193.182, 98.97, 16.288, 0.336)
pt3dadd(193.267, 98.887, 16.298, 0.358)
pt3dadd(193.352, 98.803, 16.308, 0.382)
pt3dadd(193.438, 98.719, 16.318, 0.404)
pt3dadd(193.523, 98.635, 16.328, 0.426)
pt3dadd(193.608, 98.552, 16.338, 0.448)
pt3dadd(193.693, 98.469, 16.347, 0.472)
pt3dadd(193.78, 98.386, 16.356, 0.496)
pt3dadd(193.866, 98.303, 16.365, 0.52)
pt3dadd(193.951, 98.22, 16.374, 0.546)
pt3dadd(194.038, 98.137, 16.382, 0.57)
pt3dadd(194.124, 98.054, 16.391, 0.594)
pt3dadd(194.209, 97.971, 16.401, 0.618)
pt3dadd(194.296, 97.888, 16.409, 0.642)
pt3dadd(194.382, 97.805, 16.418, 0.666)
pt3dadd(194.467, 97.722, 16.427, 0.692)
pt3dadd(194.573, 97.663, 16.428, 0.742)
pt3dadd(194.677, 97.606, 16.428, 0.796)
pt3dadd(194.783, 97.548, 16.429, 0.848)
pt3dadd(194.888, 97.491, 16.429, 0.9)
pt3dadd(194.994, 97.433, 16.429, 0.952)
pt3dadd(195.098, 97.376, 16.43, 1.006)
pt3dadd(195.204, 97.318, 16.43, 1.058)
pt3dadd(195.31, 97.261, 16.43, 1.11)
pt3dadd(195.415, 97.203, 16.431, 1.162)
pt3dadd(195.52, 97.146, 16.431, 1.214)
pt3dadd(195.624, 97.085, 16.431, 1.232)
pt3dadd(195.727, 97.024, 16.432, 1.25)
pt3dadd(195.83, 96.964, 16.432, 1.266)
pt3dadd(195.934, 96.903, 16.433, 1.284)
pt3dadd(196.038, 96.842, 16.433, 1.302)
pt3dadd(196.141, 96.781, 16.434, 1.318)
pt3dadd(196.244, 96.721, 16.434, 1.336)
pt3dadd(196.348, 96.66, 16.434, 1.352)
pt3dadd(196.452, 96.599, 16.435, 1.37)
pt3dadd(196.555, 96.538, 16.435, 1.386)
pt3dadd(196.654, 96.47, 16.436, 1.324)
pt3dadd(196.753, 96.402, 16.437, 1.258)
pt3dadd(196.852, 96.334, 16.437, 1.194)
pt3dadd(196.95, 96.266, 16.438, 1.13)
pt3dadd(197.048, 96.198, 16.439, 1.066)
pt3dadd(197.148, 96.13, 16.44, 1)
pt3dadd(197.246, 96.061, 16.44, 0.936)
pt3dadd(197.345, 95.993, 16.441, 0.872)
pt3dadd(197.444, 95.925, 16.442, 0.806)
pt3dadd(197.543, 95.857, 16.442, 0.742)
pt3dadd(197.645, 95.794, 16.444, 0.736)
pt3dadd(197.747, 95.731, 16.445, 0.732)
pt3dadd(197.849, 95.668, 16.446, 0.728)
pt3dadd(197.951, 95.605, 16.447, 0.722)
pt3dadd(198.054, 95.542, 16.449, 0.718)
pt3dadd(198.156, 95.479, 16.45, 0.712)
pt3dadd(198.258, 95.416, 16.451, 0.708)
pt3dadd(198.36, 95.353, 16.452, 0.702)
pt3dadd(198.462, 95.29, 16.454, 0.698)
pt3dadd(198.564, 95.227, 16.455, 0.694)
pt3dadd(198.668, 95.168, 16.457, 0.736)
pt3dadd(198.773, 95.11, 16.458, 0.78)
pt3dadd(198.878, 95.051, 16.46, 0.824)
pt3dadd(198.983, 94.992, 16.462, 0.868)
pt3dadd(199.087, 94.933, 16.464, 0.912)
pt3dadd(199.192, 94.875, 16.465, 0.956)
pt3dadd(199.296, 94.816, 16.467, 0.998)
pt3dadd(199.402, 94.757, 16.469, 1.042)
pt3dadd(199.506, 94.699, 16.471, 1.086)
pt3dadd(199.61, 94.64, 16.472, 1.13)
}
dend_7[20] {pt3dclear()
pt3dadd(199.61, 94.64, 16.472, 1.13)
pt3dadd(199.637, 94.605, 16.474, 1.13)
pt3dadd(199.709, 94.509, 16.478, 1.13)
pt3dadd(199.782, 94.413, 16.481, 1.13)
pt3dadd(199.854, 94.317, 16.485, 1.13)
pt3dadd(199.926, 94.222, 16.489, 1.13)
pt3dadd(199.998, 94.126, 16.493, 1.13)
pt3dadd(200.07, 94.03, 16.496, 1.13)
pt3dadd(200.142, 93.934, 16.5, 1.13)
pt3dadd(200.214, 93.839, 16.505, 1.12)
pt3dadd(200.287, 93.743, 16.51, 1.108)
pt3dadd(200.359, 93.647, 16.515, 1.098)
pt3dadd(200.431, 93.552, 16.52, 1.088)
pt3dadd(200.503, 93.456, 16.524, 1.076)
pt3dadd(200.575, 93.36, 16.529, 1.066)
pt3dadd(200.647, 93.264, 16.534, 1.054)
pt3dadd(200.719, 93.169, 16.539, 1.044)
pt3dadd(200.792, 93.073, 16.544, 1.034)
pt3dadd(200.864, 92.977, 16.549, 1.022)
pt3dadd(200.936, 92.882, 16.556, 0.982)
pt3dadd(201.008, 92.787, 16.564, 0.944)
pt3dadd(201.08, 92.691, 16.572, 0.904)
pt3dadd(201.154, 92.596, 16.58, 0.864)
pt3dadd(201.226, 92.501, 16.587, 0.826)
pt3dadd(201.298, 92.406, 16.595, 0.786)
pt3dadd(201.371, 92.31, 16.603, 0.746)
pt3dadd(201.443, 92.215, 16.611, 0.708)
pt3dadd(201.515, 92.12, 16.618, 0.668)
pt3dadd(201.587, 92.024, 16.626, 0.628)
pt3dadd(201.659, 91.929, 16.636, 0.604)
pt3dadd(201.731, 91.834, 16.646, 0.58)
pt3dadd(201.803, 91.738, 16.656, 0.556)
pt3dadd(201.875, 91.643, 16.666, 0.532)
pt3dadd(201.947, 91.548, 16.676, 0.508)
pt3dadd(202.019, 91.453, 16.686, 0.484)
pt3dadd(202.091, 91.357, 16.696, 0.46)
pt3dadd(202.163, 91.262, 16.707, 0.434)
pt3dadd(202.235, 91.167, 16.716, 0.41)
pt3dadd(202.307, 91.071, 16.727, 0.386)
pt3dadd(202.379, 90.976, 16.739, 0.374)
pt3dadd(202.45, 90.881, 16.751, 0.364)
pt3dadd(202.522, 90.786, 16.763, 0.352)
pt3dadd(202.594, 90.691, 16.774, 0.34)
pt3dadd(202.666, 90.596, 16.786, 0.328)
pt3dadd(202.738, 90.501, 16.798, 0.316)
pt3dadd(202.808, 90.406, 16.81, 0.304)
pt3dadd(202.88, 90.311, 16.822, 0.292)
pt3dadd(202.952, 90.215, 16.834, 0.28)
pt3dadd(203.023, 90.12, 16.847, 0.27)
pt3dadd(203.084, 90.023, 16.877, 0.298)
pt3dadd(203.144, 89.926, 16.908, 0.326)
pt3dadd(203.204, 89.829, 16.939, 0.352)
pt3dadd(203.264, 89.732, 16.969, 0.38)
pt3dadd(203.324, 89.635, 17, 0.408)
pt3dadd(203.384, 89.538, 17.031, 0.436)
pt3dadd(203.444, 89.441, 17.061, 0.464)
pt3dadd(203.506, 89.344, 17.092, 0.49)
pt3dadd(203.566, 89.247, 17.123, 0.518)
pt3dadd(203.624, 89.15, 17.155, 0.55)
pt3dadd(203.676, 89.053, 17.196, 0.6)
pt3dadd(203.729, 88.957, 17.237, 0.65)
pt3dadd(203.78, 88.861, 17.278, 0.7)
pt3dadd(203.833, 88.764, 17.319, 0.748)
pt3dadd(203.885, 88.668, 17.359, 0.798)
pt3dadd(203.938, 88.572, 17.4, 0.848)
pt3dadd(203.989, 88.476, 17.441, 0.898)
pt3dadd(204.042, 88.379, 17.482, 0.948)
pt3dadd(204.094, 88.283, 17.523, 0.998)
pt3dadd(204.148, 88.187, 17.563, 1.046)
pt3dadd(204.208, 88.092, 17.597, 1.076)
pt3dadd(204.269, 87.997, 17.632, 1.106)
pt3dadd(204.33, 87.902, 17.666, 1.136)
pt3dadd(204.39, 87.807, 17.701, 1.166)
pt3dadd(204.451, 87.712, 17.735, 1.196)
pt3dadd(204.511, 87.618, 17.77, 1.226)
pt3dadd(204.572, 87.523, 17.804, 1.256)
pt3dadd(204.632, 87.428, 17.838, 1.286)
pt3dadd(204.694, 87.333, 17.873, 1.316)
pt3dadd(204.755, 87.238, 17.907, 1.344)
pt3dadd(204.816, 87.144, 17.942, 1.362)
pt3dadd(204.878, 87.05, 17.977, 1.38)
pt3dadd(204.94, 86.956, 18.012, 1.398)
pt3dadd(205.002, 86.862, 18.047, 1.414)
pt3dadd(205.063, 86.768, 18.082, 1.432)
pt3dadd(205.126, 86.674, 18.116, 1.45)
pt3dadd(205.188, 86.58, 18.151, 1.468)
pt3dadd(205.249, 86.486, 18.186, 1.486)
pt3dadd(205.312, 86.392, 18.221, 1.504)
pt3dadd(205.37, 86.301, 18.261, 1.498)
pt3dadd(205.421, 86.219, 18.32, 1.4)
pt3dadd(205.471, 86.137, 18.38, 1.3)
pt3dadd(205.522, 86.055, 18.44, 1.202)
pt3dadd(205.572, 85.974, 18.5, 1.102)
pt3dadd(205.622, 85.892, 18.56, 1.004)
pt3dadd(205.673, 85.81, 18.62, 0.906)
pt3dadd(205.723, 85.728, 18.68, 0.806)
pt3dadd(205.774, 85.646, 18.74, 0.708)
pt3dadd(205.824, 85.565, 18.8, 0.61)
pt3dadd(205.877, 85.481, 18.855, 0.532)
pt3dadd(205.939, 85.389, 18.894, 0.544)
pt3dadd(206, 85.297, 18.933, 0.556)
pt3dadd(206.063, 85.206, 18.972, 0.568)
pt3dadd(206.124, 85.114, 19.011, 0.578)
pt3dadd(206.186, 85.022, 19.05, 0.59)
pt3dadd(206.248, 84.931, 19.089, 0.602)
pt3dadd(206.309, 84.839, 19.128, 0.612)
pt3dadd(206.371, 84.747, 19.167, 0.624)
pt3dadd(206.432, 84.656, 19.206, 0.636)
}
}
proc shape3d_141() {
dend_7[20] { pt3dadd(206.494, 84.562, 19.241, 0.658)
pt3dadd(206.554, 84.463, 19.268, 0.704)
pt3dadd(206.614, 84.364, 19.295, 0.75)
pt3dadd(206.674, 84.266, 19.323, 0.796)
pt3dadd(206.734, 84.167, 19.35, 0.842)
pt3dadd(206.794, 84.069, 19.377, 0.888)
pt3dadd(206.854, 83.97, 19.404, 0.934)
pt3dadd(206.914, 83.871, 19.431, 0.98)
pt3dadd(206.974, 83.772, 19.459, 1.026)
pt3dadd(207.034, 83.674, 19.486, 1.072)
pt3dadd(207.084, 83.57, 19.51, 1.094)
pt3dadd(207.118, 83.457, 19.529, 1.078)
pt3dadd(207.152, 83.344, 19.549, 1.064)
pt3dadd(207.186, 83.232, 19.568, 1.048)
pt3dadd(207.221, 83.119, 19.587, 1.032)
pt3dadd(207.256, 83.006, 19.607, 1.018)
pt3dadd(207.289, 82.894, 19.626, 1.002)
pt3dadd(207.324, 82.781, 19.645, 0.986)
pt3dadd(207.358, 82.669, 19.665, 0.972)
pt3dadd(207.392, 82.556, 19.684, 0.956)
pt3dadd(207.422, 82.442, 19.701, 0.958)
pt3dadd(207.446, 82.325, 19.715, 0.984)
pt3dadd(207.47, 82.209, 19.729, 1.01)
pt3dadd(207.493, 82.092, 19.743, 1.036)
pt3dadd(207.517, 81.976, 19.757, 1.064)
pt3dadd(207.541, 81.86, 19.771, 1.09)
pt3dadd(207.565, 81.743, 19.785, 1.116)
pt3dadd(207.588, 81.627, 19.799, 1.142)
pt3dadd(207.612, 81.51, 19.813, 1.168)
pt3dadd(207.636, 81.394, 19.827, 1.194)
pt3dadd(207.658, 81.277, 19.841, 1.226)
pt3dadd(207.676, 81.16, 19.857, 1.266)
pt3dadd(207.695, 81.043, 19.872, 1.304)
pt3dadd(207.713, 80.926, 19.887, 1.344)
pt3dadd(207.731, 80.808, 19.902, 1.382)
pt3dadd(207.75, 80.691, 19.917, 1.422)
pt3dadd(207.768, 80.574, 19.932, 1.46)
pt3dadd(207.787, 80.457, 19.947, 1.5)
pt3dadd(207.805, 80.34, 19.962, 1.538)
pt3dadd(207.824, 80.223, 19.977, 1.578)
pt3dadd(207.84, 80.109, 20.003, 1.606)
pt3dadd(207.853, 79.998, 20.041, 1.618)
pt3dadd(207.866, 79.888, 20.078, 1.632)
pt3dadd(207.88, 79.778, 20.116, 1.646)
pt3dadd(207.893, 79.667, 20.154, 1.658)
pt3dadd(207.906, 79.557, 20.192, 1.672)
pt3dadd(207.919, 79.446, 20.229, 1.686)
pt3dadd(207.931, 79.336, 20.267, 1.698)
pt3dadd(207.944, 79.226, 20.305, 1.712)
pt3dadd(207.958, 79.116, 20.343, 1.726)
pt3dadd(207.973, 79.004, 20.378, 1.724)
pt3dadd(207.992, 78.892, 20.41, 1.708)
pt3dadd(208.012, 78.78, 20.443, 1.692)
pt3dadd(208.031, 78.669, 20.475, 1.674)
pt3dadd(208.049, 78.557, 20.507, 1.658)
pt3dadd(208.068, 78.445, 20.54, 1.642)
pt3dadd(208.087, 78.333, 20.572, 1.624)
pt3dadd(208.106, 78.221, 20.604, 1.608)
pt3dadd(208.124, 78.109, 20.637, 1.592)
pt3dadd(208.144, 77.997, 20.669, 1.574)
pt3dadd(208.166, 77.884, 20.698, 1.538)
pt3dadd(208.193, 77.771, 20.723, 1.482)
pt3dadd(208.219, 77.658, 20.748, 1.428)
pt3dadd(208.244, 77.545, 20.773, 1.372)
pt3dadd(208.271, 77.432, 20.799, 1.316)
pt3dadd(208.297, 77.318, 20.824, 1.262)
pt3dadd(208.324, 77.205, 20.849, 1.206)
pt3dadd(208.35, 77.092, 20.874, 1.15)
pt3dadd(208.375, 76.979, 20.899, 1.094)
pt3dadd(208.402, 76.866, 20.924, 1.04)
pt3dadd(208.444, 76.757, 20.944, 1.012)
pt3dadd(208.501, 76.653, 20.959, 1.012)
pt3dadd(208.558, 76.549, 20.974, 1.01)
pt3dadd(208.615, 76.445, 20.989, 1.01)
pt3dadd(208.672, 76.341, 21.004, 1.008)
pt3dadd(208.729, 76.237, 21.019, 1.008)
pt3dadd(208.786, 76.133, 21.034, 1.008)
pt3dadd(208.843, 76.029, 21.049, 1.006)
pt3dadd(208.901, 75.925, 21.065, 1.006)
pt3dadd(208.957, 75.821, 21.08, 1.006)
pt3dadd(209.018, 75.719, 21.093, 1.012)
pt3dadd(209.082, 75.619, 21.105, 1.024)
pt3dadd(209.146, 75.518, 21.118, 1.038)
pt3dadd(209.209, 75.417, 21.13, 1.05)
pt3dadd(209.273, 75.317, 21.142, 1.062)
pt3dadd(209.338, 75.216, 21.155, 1.074)
pt3dadd(209.401, 75.116, 21.167, 1.088)
pt3dadd(209.465, 75.015, 21.18, 1.1)
pt3dadd(209.528, 74.915, 21.192, 1.112)
pt3dadd(209.592, 74.814, 21.204, 1.126)
pt3dadd(209.614, 74.702, 21.206, 1.098)
pt3dadd(209.606, 74.582, 21.2, 1.042)
pt3dadd(209.6, 74.463, 21.194, 0.988)
}
dend_7[21] {pt3dclear()
pt3dadd(209.6, 74.463, 21.194, 0.988)
pt3dadd(209.6, 74.462, 21.194, 0.988)
pt3dadd(209.594, 74.343, 21.189, 0.934)
pt3dadd(209.587, 74.223, 21.183, 0.88)
pt3dadd(209.581, 74.103, 21.177, 0.826)
pt3dadd(209.575, 73.984, 21.172, 0.772)
pt3dadd(209.568, 73.864, 21.166, 0.718)
pt3dadd(209.562, 73.744, 21.16, 0.664)
pt3dadd(209.556, 73.625, 21.155, 0.61)
pt3dadd(209.55, 73.505, 21.149, 0.556)
pt3dadd(209.543, 73.386, 21.143, 0.5)
pt3dadd(209.537, 73.266, 21.138, 0.446)
pt3dadd(209.55, 73.152, 21.166, 0.452)
pt3dadd(209.562, 73.037, 21.194, 0.456)
pt3dadd(209.575, 72.923, 21.223, 0.46)
pt3dadd(209.587, 72.808, 21.251, 0.464)
pt3dadd(209.6, 72.694, 21.279, 0.468)
pt3dadd(209.614, 72.579, 21.308, 0.472)
pt3dadd(209.626, 72.465, 21.336, 0.476)
pt3dadd(209.639, 72.351, 21.364, 0.48)
pt3dadd(209.652, 72.236, 21.392, 0.484)
pt3dadd(209.67, 72.128, 21.431, 0.508)
pt3dadd(209.694, 72.027, 21.48, 0.552)
pt3dadd(209.719, 71.925, 21.53, 0.596)
pt3dadd(209.743, 71.824, 21.579, 0.64)
pt3dadd(209.768, 71.722, 21.628, 0.684)
pt3dadd(209.792, 71.621, 21.677, 0.728)
pt3dadd(209.818, 71.519, 21.727, 0.772)
pt3dadd(209.842, 71.418, 21.776, 0.816)
pt3dadd(209.867, 71.316, 21.825, 0.86)
pt3dadd(209.891, 71.215, 21.875, 0.904)
pt3dadd(209.923, 71.112, 21.918, 0.922)
pt3dadd(209.963, 71.007, 21.954, 0.912)
pt3dadd(210.001, 70.903, 21.991, 0.902)
pt3dadd(210.041, 70.798, 22.028, 0.89)
pt3dadd(210.08, 70.694, 22.064, 0.88)
pt3dadd(210.12, 70.589, 22.101, 0.87)
pt3dadd(210.158, 70.485, 22.138, 0.86)
pt3dadd(210.198, 70.38, 22.174, 0.85)
pt3dadd(210.238, 70.276, 22.211, 0.84)
pt3dadd(210.277, 70.171, 22.247, 0.83)
pt3dadd(210.323, 70.067, 22.277, 0.79)
pt3dadd(210.374, 69.962, 22.302, 0.734)
pt3dadd(210.425, 69.858, 22.326, 0.678)
pt3dadd(210.475, 69.753, 22.351, 0.62)
pt3dadd(210.527, 69.649, 22.376, 0.564)
pt3dadd(210.577, 69.544, 22.401, 0.506)
pt3dadd(210.628, 69.439, 22.426, 0.45)
pt3dadd(210.678, 69.335, 22.451, 0.394)
pt3dadd(210.73, 69.23, 22.475, 0.336)
pt3dadd(210.78, 69.126, 22.5, 0.28)
pt3dadd(210.823, 69.016, 22.517, 0.256)
pt3dadd(210.86, 68.903, 22.53, 0.254)
pt3dadd(210.898, 68.79, 22.543, 0.25)
pt3dadd(210.936, 68.677, 22.555, 0.248)
pt3dadd(210.973, 68.564, 22.568, 0.244)
pt3dadd(211.01, 68.451, 22.581, 0.24)
pt3dadd(211.049, 68.338, 22.593, 0.238)
pt3dadd(211.086, 68.225, 22.606, 0.234)
pt3dadd(211.123, 68.112, 22.618, 0.23)
pt3dadd(211.162, 67.999, 22.631, 0.228)
pt3dadd(211.196, 67.886, 22.642, 0.234)
pt3dadd(211.231, 67.771, 22.651, 0.246)
pt3dadd(211.265, 67.657, 22.66, 0.258)
pt3dadd(211.3, 67.542, 22.67, 0.27)
pt3dadd(211.334, 67.428, 22.679, 0.282)
pt3dadd(211.368, 67.313, 22.688, 0.294)
pt3dadd(211.403, 67.199, 22.697, 0.306)
pt3dadd(211.438, 67.085, 22.707, 0.318)
pt3dadd(211.471, 66.97, 22.716, 0.33)
pt3dadd(211.506, 66.856, 22.725, 0.342)
pt3dadd(211.536, 66.74, 22.73, 0.374)
pt3dadd(211.565, 66.623, 22.733, 0.416)
pt3dadd(211.592, 66.507, 22.736, 0.458)
pt3dadd(211.621, 66.39, 22.739, 0.5)
pt3dadd(211.649, 66.273, 22.742, 0.542)
pt3dadd(211.678, 66.157, 22.745, 0.584)
pt3dadd(211.705, 66.04, 22.748, 0.626)
pt3dadd(211.734, 65.924, 22.75, 0.668)
pt3dadd(211.762, 65.807, 22.753, 0.71)
pt3dadd(211.79, 65.691, 22.756, 0.752)
pt3dadd(211.826, 65.577, 22.761, 0.8)
pt3dadd(211.868, 65.464, 22.766, 0.85)
pt3dadd(211.909, 65.352, 22.771, 0.898)
pt3dadd(211.95, 65.239, 22.777, 0.948)
pt3dadd(211.991, 65.127, 22.782, 0.998)
pt3dadd(212.033, 65.014, 22.788, 1.048)
pt3dadd(212.074, 64.901, 22.793, 1.098)
pt3dadd(212.114, 64.789, 22.798, 1.146)
pt3dadd(212.156, 64.676, 22.804, 1.196)
pt3dadd(212.197, 64.564, 22.809, 1.246)
pt3dadd(212.243, 64.453, 22.815, 1.298)
pt3dadd(212.29, 64.343, 22.822, 1.352)
pt3dadd(212.338, 64.233, 22.829, 1.404)
pt3dadd(212.384, 64.123, 22.835, 1.458)
pt3dadd(212.431, 64.013, 22.842, 1.51)
pt3dadd(212.479, 63.903, 22.848, 1.564)
pt3dadd(212.526, 63.793, 22.855, 1.616)
pt3dadd(212.574, 63.683, 22.861, 1.67)
pt3dadd(212.621, 63.573, 22.868, 1.722)
pt3dadd(212.668, 63.463, 22.875, 1.776)
pt3dadd(212.708, 63.351, 22.884, 1.766)
pt3dadd(212.744, 63.237, 22.896, 1.728)
pt3dadd(212.782, 63.124, 22.907, 1.69)
pt3dadd(212.818, 63.01, 22.918, 1.652)
pt3dadd(212.855, 62.897, 22.929, 1.614)
pt3dadd(212.891, 62.783, 22.94, 1.574)
}
}
proc shape3d_142() {
dend_7[21] { pt3dadd(212.928, 62.67, 22.952, 1.536)
pt3dadd(212.964, 62.556, 22.963, 1.498)
pt3dadd(213.001, 62.443, 22.974, 1.46)
pt3dadd(213.037, 62.329, 22.985, 1.422)
pt3dadd(213.072, 62.216, 23.002, 1.39)
pt3dadd(213.104, 62.103, 23.022, 1.362)
pt3dadd(213.138, 61.99, 23.041, 1.334)
pt3dadd(213.17, 61.877, 23.061, 1.306)
pt3dadd(213.203, 61.764, 23.081, 1.278)
pt3dadd(213.236, 61.651, 23.1, 1.25)
pt3dadd(213.269, 61.538, 23.12, 1.222)
pt3dadd(213.302, 61.425, 23.139, 1.194)
pt3dadd(213.335, 61.312, 23.159, 1.164)
pt3dadd(213.368, 61.199, 23.179, 1.136)
pt3dadd(213.395, 61.09, 23.212, 1.13)
pt3dadd(213.42, 60.981, 23.248, 1.13)
pt3dadd(213.445, 60.872, 23.285, 1.13)
pt3dadd(213.47, 60.764, 23.322, 1.13)
pt3dadd(213.496, 60.655, 23.359, 1.13)
pt3dadd(213.52, 60.546, 23.396, 1.13)
pt3dadd(213.545, 60.438, 23.433, 1.13)
pt3dadd(213.57, 60.329, 23.47, 1.13)
pt3dadd(213.595, 60.22, 23.507, 1.13)
pt3dadd(213.62, 60.112, 23.544, 1.13)
pt3dadd(213.654, 60.003, 23.575, 1.118)
pt3dadd(213.691, 59.894, 23.604, 1.102)
pt3dadd(213.727, 59.785, 23.633, 1.088)
pt3dadd(213.763, 59.676, 23.662, 1.072)
pt3dadd(213.8, 59.568, 23.692, 1.056)
pt3dadd(213.836, 59.459, 23.721, 1.042)
pt3dadd(213.872, 59.35, 23.75, 1.026)
pt3dadd(213.91, 59.241, 23.779, 1.01)
pt3dadd(213.946, 59.132, 23.809, 0.994)
pt3dadd(213.982, 59.023, 23.838, 0.98)
pt3dadd(214.025, 58.915, 23.862, 0.956)
pt3dadd(214.069, 58.807, 23.886, 0.93)
pt3dadd(214.112, 58.699, 23.91, 0.904)
pt3dadd(214.157, 58.591, 23.933, 0.878)
pt3dadd(214.201, 58.483, 23.957, 0.852)
pt3dadd(214.244, 58.375, 23.98, 0.826)
pt3dadd(214.289, 58.267, 24.004, 0.8)
pt3dadd(214.333, 58.159, 24.028, 0.774)
pt3dadd(214.376, 58.051, 24.051, 0.748)
pt3dadd(214.421, 57.943, 24.075, 0.722)
pt3dadd(214.456, 57.831, 24.092, 0.704)
pt3dadd(214.488, 57.716, 24.107, 0.688)
pt3dadd(214.52, 57.602, 24.122, 0.672)
pt3dadd(214.552, 57.488, 24.137, 0.656)
pt3dadd(214.584, 57.374, 24.153, 0.64)
pt3dadd(214.616, 57.26, 24.168, 0.626)
pt3dadd(214.649, 57.146, 24.183, 0.61)
pt3dadd(214.681, 57.031, 24.198, 0.594)
pt3dadd(214.714, 56.917, 24.213, 0.578)
pt3dadd(214.745, 56.803, 24.229, 0.562)
pt3dadd(214.774, 56.688, 24.241, 0.548)
pt3dadd(214.8, 56.572, 24.254, 0.534)
pt3dadd(214.828, 56.456, 24.266, 0.52)
pt3dadd(214.855, 56.34, 24.278, 0.506)
pt3dadd(214.882, 56.224, 24.291, 0.492)
pt3dadd(214.909, 56.108, 24.303, 0.478)
pt3dadd(214.937, 55.992, 24.316, 0.464)
pt3dadd(214.963, 55.876, 24.328, 0.45)
pt3dadd(214.991, 55.76, 24.34, 0.436)
pt3dadd(215.017, 55.644, 24.353, 0.422)
pt3dadd(215.036, 55.526, 24.361, 0.408)
pt3dadd(215.053, 55.407, 24.369, 0.394)
pt3dadd(215.07, 55.289, 24.376, 0.38)
pt3dadd(215.086, 55.17, 24.384, 0.366)
pt3dadd(215.102, 55.052, 24.392, 0.352)
pt3dadd(215.119, 54.934, 24.399, 0.338)
pt3dadd(215.136, 54.815, 24.407, 0.322)
pt3dadd(215.153, 54.697, 24.415, 0.308)
pt3dadd(215.17, 54.578, 24.422, 0.294)
pt3dadd(215.186, 54.46, 24.43, 0.28)
pt3dadd(215.198, 54.341, 24.44, 0.304)
pt3dadd(215.21, 54.222, 24.451, 0.336)
pt3dadd(215.222, 54.104, 24.463, 0.366)
pt3dadd(215.233, 53.985, 24.474, 0.398)
pt3dadd(215.245, 53.866, 24.485, 0.43)
pt3dadd(215.257, 53.748, 24.496, 0.46)
pt3dadd(215.268, 53.629, 24.507, 0.492)
pt3dadd(215.28, 53.51, 24.518, 0.522)
pt3dadd(215.292, 53.391, 24.529, 0.554)
pt3dadd(215.304, 53.273, 24.54, 0.586)
pt3dadd(215.312, 53.154, 24.554, 0.636)
pt3dadd(215.322, 53.036, 24.569, 0.688)
pt3dadd(215.33, 52.918, 24.583, 0.742)
pt3dadd(215.34, 52.799, 24.598, 0.796)
pt3dadd(215.348, 52.681, 24.612, 0.848)
pt3dadd(215.357, 52.562, 24.627, 0.902)
pt3dadd(215.366, 52.444, 24.641, 0.956)
pt3dadd(215.375, 52.326, 24.656, 1.01)
pt3dadd(215.384, 52.207, 24.67, 1.062)
pt3dadd(215.393, 52.089, 24.685, 1.116)
pt3dadd(215.406, 51.978, 24.721, 1.112)
pt3dadd(215.419, 51.869, 24.761, 1.098)
pt3dadd(215.432, 51.759, 24.8, 1.084)
pt3dadd(215.447, 51.65, 24.839, 1.072)
pt3dadd(215.46, 51.54, 24.879, 1.058)
pt3dadd(215.473, 51.431, 24.918, 1.046)
pt3dadd(215.488, 51.321, 24.958, 1.032)
pt3dadd(215.501, 51.212, 24.997, 1.02)
pt3dadd(215.514, 51.103, 25.037, 1.006)
pt3dadd(215.528, 50.993, 25.076, 0.992)
pt3dadd(215.551, 50.884, 25.112, 0.988)
pt3dadd(215.575, 50.775, 25.149, 0.982)
pt3dadd(215.599, 50.665, 25.185, 0.978)
pt3dadd(215.623, 50.556, 25.221, 0.974)
pt3dadd(215.647, 50.447, 25.257, 0.97)
pt3dadd(215.671, 50.337, 25.293, 0.966)
pt3dadd(215.695, 50.228, 25.329, 0.96)
pt3dadd(215.719, 50.119, 25.365, 0.956)
pt3dadd(215.743, 50.01, 25.401, 0.952)
pt3dadd(215.767, 49.9, 25.437, 0.948)
pt3dadd(215.81, 49.794, 25.466, 0.96)
pt3dadd(215.855, 49.688, 25.495, 0.972)
pt3dadd(215.899, 49.581, 25.523, 0.986)
pt3dadd(215.942, 49.475, 25.552, 0.998)
pt3dadd(215.987, 49.369, 25.581, 1.01)
pt3dadd(216.031, 49.263, 25.609, 1.024)
pt3dadd(216.074, 49.157, 25.638, 1.036)
pt3dadd(216.119, 49.05, 25.667, 1.05)
pt3dadd(216.163, 48.944, 25.695, 1.062)
pt3dadd(216.208, 48.838, 25.724, 1.074)
pt3dadd(216.244, 48.728, 25.749, 1.074)
pt3dadd(216.281, 48.618, 25.774, 1.07)
pt3dadd(216.318, 48.508, 25.8, 1.068)
pt3dadd(216.354, 48.398, 25.825, 1.066)
pt3dadd(216.391, 48.288, 25.85, 1.064)
pt3dadd(216.427, 48.177, 25.876, 1.062)
pt3dadd(216.464, 48.067, 25.901, 1.06)
pt3dadd(216.5, 47.957, 25.926, 1.058)
pt3dadd(216.538, 47.847, 25.952, 1.054)
pt3dadd(216.575, 47.737, 25.977, 1.052)
pt3dadd(216.606, 47.624, 26, 1.04)
pt3dadd(216.637, 47.511, 26.022, 1.026)
pt3dadd(216.668, 47.399, 26.045, 1.012)
pt3dadd(216.7, 47.286, 26.068, 0.998)
pt3dadd(216.731, 47.174, 26.09, 0.984)
pt3dadd(216.762, 47.061, 26.113, 0.972)
pt3dadd(216.793, 46.948, 26.136, 0.958)
pt3dadd(216.824, 46.836, 26.159, 0.944)
pt3dadd(216.856, 46.723, 26.181, 0.93)
pt3dadd(216.887, 46.611, 26.204, 0.916)
pt3dadd(216.907, 46.501, 26.241, 0.892)
pt3dadd(216.929, 46.392, 26.279, 0.866)
pt3dadd(216.949, 46.283, 26.316, 0.842)
pt3dadd(216.97, 46.173, 26.354, 0.816)
pt3dadd(216.991, 46.064, 26.391, 0.792)
pt3dadd(217.012, 45.955, 26.429, 0.766)
pt3dadd(217.033, 45.846, 26.466, 0.742)
pt3dadd(217.054, 45.736, 26.503, 0.716)
pt3dadd(217.075, 45.627, 26.541, 0.692)
pt3dadd(217.096, 45.518, 26.578, 0.666)
pt3dadd(217.115, 45.408, 26.616, 0.656)
pt3dadd(217.133, 45.298, 26.653, 0.644)
pt3dadd(217.152, 45.189, 26.69, 0.632)
pt3dadd(217.17, 45.079, 26.728, 0.62)
pt3dadd(217.189, 44.969, 26.765, 0.608)
pt3dadd(217.208, 44.859, 26.802, 0.596)
pt3dadd(217.226, 44.75, 26.84, 0.586)
pt3dadd(217.246, 44.64, 26.877, 0.574)
pt3dadd(217.265, 44.53, 26.915, 0.562)
pt3dadd(217.283, 44.42, 26.952, 0.55)
pt3dadd(217.296, 44.307, 26.982, 0.606)
pt3dadd(217.31, 44.193, 27.012, 0.66)
pt3dadd(217.324, 44.079, 27.042, 0.716)
pt3dadd(217.337, 43.966, 27.072, 0.77)
pt3dadd(217.351, 43.852, 27.102, 0.824)
pt3dadd(217.364, 43.739, 27.133, 0.88)
pt3dadd(217.378, 43.625, 27.163, 0.934)
pt3dadd(217.391, 43.511, 27.193, 0.988)
pt3dadd(217.405, 43.398, 27.223, 1.044)
pt3dadd(217.418, 43.284, 27.253, 1.098)
pt3dadd(217.448, 43.172, 27.278, 1.096)
pt3dadd(217.478, 43.06, 27.304, 1.094)
pt3dadd(217.508, 42.948, 27.329, 1.092)
pt3dadd(217.538, 42.836, 27.354, 1.09)
pt3dadd(217.568, 42.724, 27.38, 1.088)
pt3dadd(217.598, 42.612, 27.405, 1.086)
pt3dadd(217.628, 42.499, 27.431, 1.084)
pt3dadd(217.658, 42.387, 27.456, 1.082)
pt3dadd(217.69, 42.275, 27.481, 1.08)
pt3dadd(217.721, 42.163, 27.506, 1.074)
pt3dadd(217.765, 42.055, 27.527, 1.022)
pt3dadd(217.808, 41.946, 27.548, 0.97)
pt3dadd(217.853, 41.837, 27.569, 0.916)
pt3dadd(217.897, 41.728, 27.589, 0.864)
pt3dadd(217.942, 41.62, 27.61, 0.812)
pt3dadd(217.986, 41.511, 27.631, 0.76)
pt3dadd(218.029, 41.402, 27.652, 0.708)
pt3dadd(218.074, 41.293, 27.672, 0.654)
pt3dadd(218.118, 41.184, 27.693, 0.602)
pt3dadd(218.161, 41.076, 27.715, 0.554)
pt3dadd(218.192, 40.967, 27.749, 0.532)
pt3dadd(218.224, 40.859, 27.782, 0.512)
pt3dadd(218.256, 40.75, 27.815, 0.49)
pt3dadd(218.287, 40.641, 27.849, 0.47)
pt3dadd(218.318, 40.533, 27.882, 0.45)
pt3dadd(218.35, 40.424, 27.916, 0.428)
}
}
proc shape3d_143() {
dend_7[21] { pt3dadd(218.382, 40.315, 27.949, 0.408)
pt3dadd(218.413, 40.207, 27.982, 0.386)
pt3dadd(218.444, 40.098, 28.016, 0.366)
pt3dadd(218.476, 39.99, 28.049, 0.346)
pt3dadd(218.503, 39.881, 28.085, 0.334)
pt3dadd(218.531, 39.772, 28.121, 0.322)
pt3dadd(218.558, 39.663, 28.156, 0.31)
pt3dadd(218.585, 39.555, 28.192, 0.298)
pt3dadd(218.612, 39.446, 28.227, 0.284)
pt3dadd(218.64, 39.337, 28.263, 0.274)
pt3dadd(218.668, 39.228, 28.298, 0.26)
pt3dadd(218.695, 39.12, 28.334, 0.248)
pt3dadd(218.723, 39.011, 28.37, 0.236)
pt3dadd(218.748, 38.901, 28.404, 0.226)
pt3dadd(218.764, 38.786, 28.428, 0.226)
pt3dadd(218.78, 38.67, 28.452, 0.226)
pt3dadd(218.796, 38.555, 28.477, 0.226)
pt3dadd(218.813, 38.44, 28.501, 0.226)
pt3dadd(218.828, 38.325, 28.525, 0.226)
pt3dadd(218.844, 38.209, 28.55, 0.226)
pt3dadd(218.861, 38.094, 28.574, 0.226)
pt3dadd(218.876, 37.979, 28.598, 0.226)
pt3dadd(218.893, 37.864, 28.623, 0.226)
pt3dadd(218.909, 37.748, 28.646, 0.226)
pt3dadd(218.921, 37.631, 28.665, 0.226)
pt3dadd(218.934, 37.514, 28.684, 0.226)
pt3dadd(218.946, 37.397, 28.704, 0.226)
pt3dadd(218.959, 37.28, 28.723, 0.226)
pt3dadd(218.971, 37.163, 28.742, 0.226)
pt3dadd(218.984, 37.045, 28.761, 0.226)
pt3dadd(218.996, 36.928, 28.78, 0.226)
pt3dadd(219.01, 36.811, 28.799, 0.226)
pt3dadd(219.022, 36.694, 28.819, 0.226)
pt3dadd(219.034, 36.577, 28.836, 0.226)
pt3dadd(219.042, 36.458, 28.849, 0.226)
pt3dadd(219.05, 36.339, 28.861, 0.226)
pt3dadd(219.059, 36.22, 28.874, 0.226)
pt3dadd(219.066, 36.102, 28.886, 0.226)
pt3dadd(219.074, 35.983, 28.898, 0.226)
pt3dadd(219.083, 35.864, 28.911, 0.226)
pt3dadd(219.091, 35.745, 28.923, 0.226)
pt3dadd(219.1, 35.626, 28.936, 0.226)
pt3dadd(219.107, 35.508, 28.948, 0.226)
pt3dadd(219.116, 35.389, 28.959, 0.232)
pt3dadd(219.13, 35.27, 28.963, 0.27)
pt3dadd(219.142, 35.15, 28.967, 0.306)
pt3dadd(219.155, 35.031, 28.972, 0.344)
pt3dadd(219.168, 34.912, 28.976, 0.38)
pt3dadd(219.18, 34.793, 28.98, 0.418)
pt3dadd(219.193, 34.674, 28.984, 0.454)
pt3dadd(219.206, 34.554, 28.989, 0.492)
pt3dadd(219.218, 34.435, 28.993, 0.528)
pt3dadd(219.232, 34.316, 28.997, 0.566)
pt3dadd(219.246, 34.197, 29.001, 0.602)
pt3dadd(219.269, 34.079, 29.005, 0.632)
pt3dadd(219.29, 33.961, 29.009, 0.664)
pt3dadd(219.313, 33.843, 29.013, 0.694)
pt3dadd(219.335, 33.726, 29.017, 0.726)
pt3dadd(219.358, 33.608, 29.021, 0.756)
pt3dadd(219.379, 33.49, 29.024, 0.788)
pt3dadd(219.402, 33.372, 29.028, 0.818)
pt3dadd(219.425, 33.254, 29.032, 0.85)
pt3dadd(219.446, 33.136, 29.036, 0.88)
pt3dadd(219.474, 33.02, 29.041, 0.904)
pt3dadd(219.518, 32.909, 29.047, 0.904)
pt3dadd(219.562, 32.797, 29.054, 0.904)
pt3dadd(219.606, 32.686, 29.06, 0.904)
pt3dadd(219.649, 32.575, 29.067, 0.904)
pt3dadd(219.694, 32.463, 29.073, 0.904)
pt3dadd(219.738, 32.352, 29.08, 0.904)
pt3dadd(219.781, 32.24, 29.086, 0.904)
pt3dadd(219.826, 32.129, 29.093, 0.904)
pt3dadd(219.869, 32.018, 29.1, 0.904)
pt3dadd(219.911, 31.905, 29.107, 0.914)
pt3dadd(219.944, 31.791, 29.116, 0.956)
pt3dadd(219.978, 31.676, 29.126, 0.998)
pt3dadd(220.013, 31.562, 29.135, 1.04)
pt3dadd(220.046, 31.447, 29.145, 1.082)
pt3dadd(220.08, 31.333, 29.154, 1.124)
pt3dadd(220.114, 31.218, 29.163, 1.168)
pt3dadd(220.147, 31.103, 29.173, 1.21)
pt3dadd(220.181, 30.989, 29.182, 1.252)
pt3dadd(220.216, 30.874, 29.192, 1.294)
pt3dadd(220.247, 30.759, 29.201, 1.344)
pt3dadd(220.274, 30.643, 29.213, 1.412)
pt3dadd(220.301, 30.527, 29.224, 1.484)
pt3dadd(220.328, 30.411, 29.235, 1.552)
pt3dadd(220.355, 30.295, 29.247, 1.622)
pt3dadd(220.382, 30.179, 29.258, 1.692)
pt3dadd(220.409, 30.062, 29.269, 1.762)
pt3dadd(220.436, 29.946, 29.28, 1.832)
pt3dadd(220.463, 29.83, 29.292, 1.902)
pt3dadd(220.49, 29.714, 29.303, 1.972)
pt3dadd(220.512, 29.599, 29.321, 2.008)
pt3dadd(220.522, 29.488, 29.358, 1.956)
pt3dadd(220.531, 29.377, 29.395, 1.906)
pt3dadd(220.541, 29.265, 29.431, 1.854)
pt3dadd(220.549, 29.154, 29.468, 1.802)
pt3dadd(220.559, 29.043, 29.505, 1.75)
pt3dadd(220.568, 28.932, 29.542, 1.7)
pt3dadd(220.578, 28.821, 29.578, 1.648)
pt3dadd(220.588, 28.709, 29.615, 1.596)
pt3dadd(220.596, 28.598, 29.652, 1.544)
pt3dadd(220.604, 28.486, 29.687, 1.496)
pt3dadd(220.608, 28.373, 29.721, 1.454)
pt3dadd(220.612, 28.26, 29.754, 1.412)
pt3dadd(220.616, 28.147, 29.787, 1.37)
pt3dadd(220.62, 28.034, 29.821, 1.328)
pt3dadd(220.624, 27.921, 29.854, 1.286)
pt3dadd(220.627, 27.808, 29.887, 1.244)
pt3dadd(220.631, 27.695, 29.921, 1.2)
pt3dadd(220.636, 27.582, 29.954, 1.158)
pt3dadd(220.639, 27.469, 29.987, 1.116)
pt3dadd(220.639, 27.355, 30.018, 1.084)
pt3dadd(220.631, 27.239, 30.042, 1.07)
pt3dadd(220.622, 27.122, 30.066, 1.056)
pt3dadd(220.614, 27.006, 30.089, 1.042)
pt3dadd(220.606, 26.89, 30.114, 1.028)
pt3dadd(220.597, 26.774, 30.137, 1.014)
pt3dadd(220.589, 26.658, 30.161, 1)
pt3dadd(220.58, 26.541, 30.185, 0.986)
pt3dadd(220.572, 26.425, 30.209, 0.972)
pt3dadd(220.564, 26.309, 30.233, 0.958)
pt3dadd(220.554, 26.192, 30.254, 0.938)
pt3dadd(220.541, 26.074, 30.269, 0.904)
pt3dadd(220.529, 25.956, 30.285, 0.87)
pt3dadd(220.516, 25.838, 30.3, 0.836)
pt3dadd(220.504, 25.72, 30.315, 0.802)
pt3dadd(220.49, 25.602, 30.33, 0.768)
pt3dadd(220.478, 25.484, 30.345, 0.734)
pt3dadd(220.466, 25.366, 30.36, 0.702)
pt3dadd(220.453, 25.248, 30.375, 0.668)
pt3dadd(220.441, 25.131, 30.39, 0.634)
pt3dadd(220.427, 25.012, 30.404, 0.6)
pt3dadd(220.409, 24.894, 30.414, 0.564)
pt3dadd(220.392, 24.776, 30.424, 0.53)
pt3dadd(220.374, 24.658, 30.434, 0.496)
pt3dadd(220.357, 24.54, 30.444, 0.462)
pt3dadd(220.339, 24.422, 30.453, 0.426)
pt3dadd(220.322, 24.304, 30.463, 0.392)
pt3dadd(220.304, 24.186, 30.473, 0.358)
pt3dadd(220.286, 24.067, 30.483, 0.322)
pt3dadd(220.27, 23.949, 30.493, 0.288)
pt3dadd(220.241, 23.834, 30.499, 0.282)
pt3dadd(220.195, 23.723, 30.499, 0.322)
pt3dadd(220.15, 23.612, 30.499, 0.362)
pt3dadd(220.104, 23.501, 30.499, 0.402)
pt3dadd(220.057, 23.39, 30.499, 0.444)
pt3dadd(220.012, 23.28, 30.499, 0.484)
pt3dadd(219.966, 23.169, 30.499, 0.524)
pt3dadd(219.92, 23.058, 30.499, 0.564)
pt3dadd(219.875, 22.947, 30.499, 0.604)
pt3dadd(219.829, 22.836, 30.499, 0.644)
pt3dadd(219.785, 22.724, 30.499, 0.674)
pt3dadd(219.745, 22.611, 30.499, 0.686)
pt3dadd(219.706, 22.498, 30.499, 0.698)
pt3dadd(219.666, 22.384, 30.499, 0.708)
pt3dadd(219.626, 22.271, 30.499, 0.72)
pt3dadd(219.586, 22.158, 30.499, 0.732)
pt3dadd(219.546, 22.045, 30.499, 0.744)
pt3dadd(219.506, 21.932, 30.499, 0.756)
pt3dadd(219.467, 21.818, 30.499, 0.768)
pt3dadd(219.427, 21.705, 30.499, 0.78)
pt3dadd(219.391, 21.591, 30.499, 0.774)
pt3dadd(219.359, 21.475, 30.499, 0.746)
pt3dadd(219.328, 21.359, 30.499, 0.718)
pt3dadd(219.296, 21.243, 30.499, 0.69)
pt3dadd(219.265, 21.127, 30.499, 0.662)
pt3dadd(219.234, 21.012, 30.499, 0.634)
pt3dadd(219.203, 20.896, 30.499, 0.606)
pt3dadd(219.172, 20.78, 30.499, 0.578)
pt3dadd(219.14, 20.664, 30.499, 0.548)
pt3dadd(219.109, 20.548, 30.499, 0.52)
pt3dadd(219.083, 20.431, 30.499, 0.502)
pt3dadd(219.061, 20.313, 30.499, 0.496)
pt3dadd(219.04, 20.195, 30.499, 0.492)
pt3dadd(219.018, 20.077, 30.499, 0.486)
pt3dadd(218.996, 19.959, 30.499, 0.482)
pt3dadd(218.975, 19.841, 30.499, 0.476)
pt3dadd(218.953, 19.723, 30.499, 0.47)
pt3dadd(218.932, 19.605, 30.499, 0.466)
pt3dadd(218.91, 19.487, 30.499, 0.46)
pt3dadd(218.888, 19.369, 30.499, 0.456)
pt3dadd(218.868, 19.251, 30.499, 0.454)
pt3dadd(218.851, 19.132, 30.499, 0.458)
pt3dadd(218.834, 19.013, 30.499, 0.462)
pt3dadd(218.818, 18.894, 30.499, 0.466)
pt3dadd(218.801, 18.775, 30.499, 0.47)
pt3dadd(218.784, 18.657, 30.499, 0.474)
pt3dadd(218.767, 18.538, 30.499, 0.478)
pt3dadd(218.75, 18.419, 30.499, 0.482)
pt3dadd(218.734, 18.3, 30.499, 0.486)
pt3dadd(218.717, 18.181, 30.499, 0.49)
pt3dadd(218.704, 18.062, 30.499, 0.5)
pt3dadd(218.694, 17.943, 30.499, 0.514)
pt3dadd(218.684, 17.823, 30.499, 0.53)
pt3dadd(218.675, 17.703, 30.499, 0.544)
pt3dadd(218.665, 17.584, 30.499, 0.56)
pt3dadd(218.656, 17.464, 30.499, 0.574)
pt3dadd(218.646, 17.344, 30.499, 0.59)
}
}
proc shape3d_144() {
dend_7[21] { pt3dadd(218.636, 17.225, 30.499, 0.606)
pt3dadd(218.627, 17.105, 30.499, 0.62)
pt3dadd(218.617, 16.986, 30.499, 0.636)
pt3dadd(218.598, 16.868, 30.499, 0.636)
pt3dadd(218.566, 16.752, 30.499, 0.614)
pt3dadd(218.534, 16.636, 30.499, 0.594)
pt3dadd(218.503, 16.52, 30.499, 0.574)
pt3dadd(218.471, 16.405, 30.499, 0.552)
pt3dadd(218.44, 16.289, 30.499, 0.532)
pt3dadd(218.407, 16.173, 30.499, 0.51)
pt3dadd(218.376, 16.057, 30.499, 0.49)
pt3dadd(218.344, 15.942, 30.499, 0.468)
pt3dadd(218.312, 15.826, 30.499, 0.448)
pt3dadd(218.281, 15.71, 30.499, 0.43)
pt3dadd(218.25, 15.594, 30.499, 0.414)
pt3dadd(218.22, 15.478, 30.499, 0.4)
pt3dadd(218.189, 15.362, 30.499, 0.384)
pt3dadd(218.159, 15.246, 30.499, 0.37)
pt3dadd(218.128, 15.13, 30.499, 0.354)
pt3dadd(218.096, 15.014, 30.499, 0.338)
pt3dadd(218.066, 14.898, 30.499, 0.324)
pt3dadd(218.035, 14.782, 30.499, 0.308)
pt3dadd(218.005, 14.666, 30.499, 0.294)
pt3dadd(217.988, 14.548, 30.499, 0.294)
pt3dadd(217.985, 14.428, 30.499, 0.308)
pt3dadd(217.981, 14.308, 30.499, 0.324)
pt3dadd(217.978, 14.188, 30.499, 0.338)
pt3dadd(217.975, 14.068, 30.499, 0.354)
pt3dadd(217.972, 13.948, 30.499, 0.368)
pt3dadd(217.968, 13.828, 30.499, 0.384)
pt3dadd(217.964, 13.708, 30.499, 0.4)
pt3dadd(217.962, 13.589, 30.499, 0.414)
pt3dadd(217.958, 13.469, 30.499, 0.43)
pt3dadd(218.052, 13.394, 30.499, 0.408)
pt3dadd(218.146, 13.319, 30.499, 0.388)
pt3dadd(218.239, 13.244, 30.499, 0.368)
pt3dadd(218.333, 13.169, 30.499, 0.348)
pt3dadd(218.428, 13.094, 30.499, 0.328)
pt3dadd(218.521, 13.019, 30.499, 0.308)
pt3dadd(218.615, 12.944, 30.499, 0.288)
pt3dadd(218.708, 12.869, 30.499, 0.266)
pt3dadd(218.802, 12.794, 30.499, 0.246)
pt3dadd(218.896, 12.719, 30.499, 0.226)
}
dend_7[22] {pt3dclear()
pt3dadd(209.6, 74.463, 21.194, 0.988)
pt3dadd(209.633, 74.455, 21.275, 0.98)
pt3dadd(209.67, 74.447, 21.37, 0.968)
pt3dadd(209.707, 74.439, 21.465, 0.956)
pt3dadd(209.744, 74.43, 21.559, 0.944)
pt3dadd(209.783, 74.422, 21.654, 0.934)
pt3dadd(209.82, 74.413, 21.749, 0.922)
pt3dadd(209.857, 74.405, 21.844, 0.91)
pt3dadd(209.88, 74.352, 21.9, 0.89)
pt3dadd(209.88, 74.232, 21.9, 0.856)
pt3dadd(209.88, 74.112, 21.9, 0.824)
pt3dadd(209.882, 73.992, 21.9, 0.804)
pt3dadd(209.886, 73.872, 21.9, 0.804)
pt3dadd(209.891, 73.752, 21.9, 0.804)
pt3dadd(209.935, 73.648, 21.9, 0.804)
pt3dadd(210.017, 73.561, 21.9, 0.804)
pt3dadd(210.098, 73.473, 21.9, 0.812)
pt3dadd(210.18, 73.385, 21.9, 0.836)
pt3dadd(210.263, 73.297, 21.9, 0.868)
pt3dadd(210.348, 73.213, 21.9, 0.922)
pt3dadd(210.426, 73.122, 21.9, 0.946)
pt3dadd(210.504, 73.031, 21.9, 0.966)
pt3dadd(210.582, 72.94, 21.9, 0.986)
pt3dadd(210.66, 72.848, 21.9, 1.008)
pt3dadd(210.738, 72.757, 21.9, 1.028)
pt3dadd(210.828, 72.678, 21.9, 1.048)
pt3dadd(210.919, 72.6, 21.9, 1.068)
pt3dadd(211.01, 72.522, 21.9, 1.088)
pt3dadd(211.102, 72.444, 21.9, 1.108)
pt3dadd(211.193, 72.366, 21.9, 1.128)
pt3dadd(211.297, 72.308, 21.9, 1.13)
pt3dadd(211.403, 72.251, 21.9, 1.13)
pt3dadd(211.508, 72.194, 21.9, 1.13)
pt3dadd(211.615, 72.138, 21.9, 1.13)
pt3dadd(211.721, 72.081, 21.9, 1.13)
pt3dadd(211.796, 71.992, 21.9, 1.126)
pt3dadd(211.862, 71.891, 21.9, 1.122)
pt3dadd(211.928, 71.791, 21.9, 1.116)
pt3dadd(211.994, 71.691, 21.9, 1.112)
pt3dadd(212.059, 71.59, 21.9, 1.106)
pt3dadd(212.138, 71.5, 21.9, 1.102)
pt3dadd(212.221, 71.414, 21.9, 1.096)
pt3dadd(212.305, 71.328, 21.9, 1.092)
pt3dadd(212.388, 71.242, 21.9, 1.086)
pt3dadd(212.472, 71.156, 21.9, 1.082)
pt3dadd(212.569, 71.087, 21.9, 1.088)
pt3dadd(212.671, 71.024, 21.9, 1.098)
pt3dadd(212.774, 70.961, 21.9, 1.106)
pt3dadd(212.876, 70.898, 21.9, 1.116)
pt3dadd(212.978, 70.835, 21.9, 1.126)
pt3dadd(213.092, 70.81, 21.9, 1.136)
pt3dadd(213.212, 70.806, 21.9, 1.144)
pt3dadd(213.332, 70.801, 21.9, 1.154)
pt3dadd(213.439, 70.753, 21.9, 1.128)
pt3dadd(213.542, 70.693, 21.9, 1.094)
pt3dadd(213.593, 70.598, 21.9, 1.048)
pt3dadd(213.601, 70.479, 21.9, 0.994)
pt3dadd(213.611, 70.359, 21.9, 0.94)
pt3dadd(213.661, 70.252, 21.9, 0.894)
pt3dadd(213.721, 70.149, 21.9, 0.848)
pt3dadd(213.802, 70.062, 21.9, 0.87)
pt3dadd(213.896, 69.988, 21.9, 0.94)
pt3dadd(213.995, 69.919, 21.9, 1)
pt3dadd(214.093, 69.85, 21.9, 1.06)
pt3dadd(214.192, 69.781, 21.9, 1.12)
pt3dadd(214.289, 69.712, 21.9, 1.18)
pt3dadd(214.39, 69.646, 21.9, 1.24)
pt3dadd(214.5, 69.599, 21.9, 1.312)
pt3dadd(214.609, 69.551, 21.9, 1.382)
pt3dadd(214.72, 69.504, 21.9, 1.454)
pt3dadd(214.83, 69.456, 21.9, 1.524)
pt3dadd(214.94, 69.408, 21.9, 1.594)
pt3dadd(215.027, 69.328, 21.9, 1.704)
pt3dadd(215.108, 69.24, 21.9, 1.822)
pt3dadd(215.19, 69.152, 21.9, 1.858)
pt3dadd(215.272, 69.064, 21.9, 1.858)
pt3dadd(215.333, 68.964, 21.909, 1.802)
pt3dadd(215.377, 68.854, 21.925, 1.706)
pt3dadd(215.4, 68.755, 21.968, 1.592)
pt3dadd(215.4, 68.668, 22.036, 1.462)
pt3dadd(215.416, 68.586, 22.106, 1.358)
pt3dadd(215.455, 68.515, 22.18, 1.3)
pt3dadd(215.495, 68.445, 22.253, 1.242)
pt3dadd(215.549, 68.367, 22.302, 1.196)
pt3dadd(215.627, 68.275, 22.307, 1.172)
pt3dadd(215.707, 68.195, 22.328, 1.158)
pt3dadd(215.792, 68.139, 22.38, 1.17)
pt3dadd(215.878, 68.082, 22.432, 1.18)
pt3dadd(215.939, 68.06, 22.515, 1.204)
pt3dadd(216, 68.04, 22.6, 1.23)
pt3dadd(216.113, 68.036, 22.633, 1.23)
pt3dadd(216.227, 68.031, 22.665, 1.23)
pt3dadd(216.34, 68.027, 22.698, 1.23)
pt3dadd(216.424, 67.957, 22.735, 1.244)
pt3dadd(216.499, 67.876, 22.768, 1.258)
pt3dadd(216.535, 67.762, 22.78, 1.266)
pt3dadd(216.571, 67.649, 22.791, 1.274)
pt3dadd(216.612, 67.537, 22.801, 1.288)
pt3dadd(216.668, 67.431, 22.806, 1.324)
pt3dadd(216.728, 67.333, 22.814, 1.356)
pt3dadd(216.838, 67.328, 22.856, 1.366)
pt3dadd(216.947, 67.324, 22.898, 1.374)
pt3dadd(217.056, 67.319, 22.94, 1.378)
pt3dadd(217.162, 67.313, 22.987, 1.354)
pt3dadd(217.267, 67.307, 23.033, 1.33)
pt3dadd(217.349, 67.225, 23.061, 1.32)
pt3dadd(217.43, 67.143, 23.088, 1.31)
pt3dadd(217.524, 67.073, 23.1, 1.332)
pt3dadd(217.627, 67.012, 23.1, 1.378)
pt3dadd(217.736, 66.972, 23.101, 1.43)
pt3dadd(217.856, 66.969, 23.104, 1.496)
pt3dadd(217.976, 66.965, 23.107, 1.564)
pt3dadd(218.096, 66.961, 23.11, 1.63)
pt3dadd(218.21, 66.96, 23.134, 1.708)
pt3dadd(218.322, 66.96, 23.172, 1.796)
pt3dadd(218.428, 66.96, 23.218, 1.888)
pt3dadd(218.531, 66.944, 23.263, 1.928)
pt3dadd(218.64, 66.916, 23.296, 1.916)
pt3dadd(218.75, 66.888, 23.329, 1.906)
pt3dadd(218.86, 66.859, 23.362, 1.896)
pt3dadd(218.97, 66.831, 23.395, 1.884)
pt3dadd(219.084, 66.798, 23.4, 1.832)
pt3dadd(219.193, 66.75, 23.4, 1.808)
pt3dadd(219.311, 66.726, 23.4, 1.808)
pt3dadd(219.43, 66.72, 23.407, 1.808)
pt3dadd(219.54, 66.72, 23.442, 1.784)
pt3dadd(219.59, 66.717, 23.53, 1.714)
pt3dadd(219.6, 66.693, 23.627, 1.632)
pt3dadd(219.6, 66.648, 23.72, 1.588)
pt3dadd(219.619, 66.608, 23.812, 1.552)
pt3dadd(219.673, 66.565, 23.892, 1.512)
pt3dadd(219.752, 66.513, 23.949, 1.502)
pt3dadd(219.854, 66.493, 24, 1.49)
pt3dadd(219.96, 66.48, 24.043, 1.47)
pt3dadd(220.075, 66.48, 24.07, 1.44)
pt3dadd(220.19, 66.48, 24.098, 1.408)
pt3dadd(220.309, 66.48, 24.113, 1.304)
pt3dadd(220.385, 66.459, 24.188, 1.252)
pt3dadd(220.464, 66.436, 24.259, 1.202)
pt3dadd(220.572, 66.395, 24.287, 1.178)
pt3dadd(220.679, 66.354, 24.316, 1.156)
pt3dadd(220.774, 66.302, 24.359, 1.156)
pt3dadd(220.858, 66.234, 24.39, 1.174)
pt3dadd(220.913, 66.128, 24.396, 1.232)
pt3dadd(220.974, 66.025, 24.4, 1.308)
pt3dadd(221.059, 65.941, 24.4, 1.468)
pt3dadd(221.158, 65.872, 24.4, 1.548)
pt3dadd(221.26, 65.81, 24.4, 1.602)
pt3dadd(221.362, 65.747, 24.4, 1.656)
pt3dadd(221.464, 65.684, 24.4, 1.71)
pt3dadd(221.566, 65.621, 24.4, 1.764)
pt3dadd(221.652, 65.539, 24.4, 1.8)
pt3dadd(221.73, 65.448, 24.4, 1.824)
pt3dadd(221.808, 65.357, 24.4, 1.85)
pt3dadd(221.886, 65.265, 24.4, 1.876)
pt3dadd(221.964, 65.174, 24.4, 1.9)
pt3dadd(222.044, 65.085, 24.4, 1.916)
}
}
proc shape3d_145() {
dend_7[22] { pt3dadd(222.125, 64.997, 24.4, 1.928)
pt3dadd(222.194, 64.9, 24.4, 1.926)
pt3dadd(222.256, 64.797, 24.4, 1.916)
pt3dadd(222.338, 64.725, 24.4, 1.928)
pt3dadd(222.457, 64.705, 24.4, 1.976)
pt3dadd(222.575, 64.684, 24.4, 2.024)
pt3dadd(222.695, 64.68, 24.4, 2.094)
pt3dadd(222.815, 64.68, 24.4, 2.168)
pt3dadd(222.935, 64.68, 24.4, 2.244)
pt3dadd(223.055, 64.68, 24.4, 2.37)
pt3dadd(223.175, 64.68, 24.4, 2.508)
pt3dadd(223.288, 64.645, 24.4, 2.57)
pt3dadd(223.399, 64.6, 24.4, 2.612)
pt3dadd(223.511, 64.556, 24.4, 2.654)
pt3dadd(223.622, 64.511, 24.4, 2.696)
pt3dadd(223.734, 64.467, 24.4, 2.738)
pt3dadd(223.843, 64.418, 24.4, 2.78)
pt3dadd(223.951, 64.365, 24.4, 2.826)
pt3dadd(224.059, 64.314, 24.401, 2.86)
pt3dadd(224.174, 64.28, 24.406, 2.85)
pt3dadd(224.29, 64.245, 24.41, 2.84)
pt3dadd(224.352, 64.182, 24.47, 2.79)
pt3dadd(224.406, 64.118, 24.541, 2.728)
pt3dadd(224.468, 64.089, 24.622, 2.636)
pt3dadd(224.532, 64.05, 24.695, 2.55)
pt3dadd(224.598, 63.957, 24.728, 2.482)
pt3dadd(224.664, 63.865, 24.761, 2.416)
pt3dadd(224.732, 63.774, 24.79, 2.344)
pt3dadd(224.818, 63.689, 24.795, 2.234)
pt3dadd(224.905, 63.61, 24.8, 2.128)
pt3dadd(224.995, 63.556, 24.812, 2.092)
pt3dadd(225.024, 63.451, 24.854, 2.12)
pt3dadd(225.054, 63.345, 24.895, 2.148)
pt3dadd(225.083, 63.24, 24.936, 2.174)
pt3dadd(225.112, 63.135, 24.978, 2.202)
pt3dadd(225.15, 63.028, 25.009, 2.284)
pt3dadd(225.191, 62.92, 25.038, 2.386)
pt3dadd(225.216, 62.836, 25.101, 2.47)
pt3dadd(225.236, 62.76, 25.176, 2.548)
pt3dadd(225.275, 62.653, 25.193, 2.58)
pt3dadd(225.316, 62.541, 25.198, 2.602)
pt3dadd(225.396, 62.466, 25.213, 2.59)
pt3dadd(225.503, 62.419, 25.235, 2.552)
pt3dadd(225.572, 62.4, 25.299, 2.45)
pt3dadd(225.617, 62.399, 25.391, 2.306)
pt3dadd(225.72, 62.373, 25.437, 2.224)
pt3dadd(225.823, 62.346, 25.484, 2.14)
pt3dadd(225.926, 62.32, 25.53, 2.058)
pt3dadd(226.028, 62.293, 25.577, 1.976)
pt3dadd(226.14, 62.28, 25.6, 1.888)
pt3dadd(226.26, 62.28, 25.6, 1.796)
pt3dadd(226.38, 62.28, 25.6, 1.704)
pt3dadd(226.5, 62.278, 25.6, 1.632)
pt3dadd(226.62, 62.273, 25.6, 1.58)
pt3dadd(226.74, 62.268, 25.6, 1.528)
pt3dadd(226.838, 62.215, 25.603, 1.514)
pt3dadd(226.922, 62.13, 25.609, 1.526)
pt3dadd(227.003, 62.05, 25.636, 1.524)
pt3dadd(227.078, 61.974, 25.681, 1.51)
pt3dadd(227.176, 61.95, 25.731, 1.494)
pt3dadd(227.278, 61.939, 25.783, 1.48)
pt3dadd(227.38, 61.927, 25.836, 1.466)
pt3dadd(227.477, 61.917, 25.893, 1.432)
pt3dadd(227.568, 61.911, 25.958, 1.37)
pt3dadd(227.634, 61.885, 26.03, 1.304)
pt3dadd(227.713, 61.838, 26.078, 1.276)
pt3dadd(227.82, 61.797, 26.11, 1.272)
pt3dadd(227.926, 61.756, 26.142, 1.266)
pt3dadd(228.031, 61.714, 26.173, 1.26)
pt3dadd(228.139, 61.676, 26.203, 1.256)
pt3dadd(228.254, 61.653, 26.222, 1.262)
pt3dadd(228.37, 61.63, 26.242, 1.266)
pt3dadd(228.485, 61.607, 26.261, 1.272)
pt3dadd(228.601, 61.584, 26.28, 1.276)
pt3dadd(228.716, 61.561, 26.299, 1.28)
pt3dadd(228.836, 61.56, 26.3, 1.278)
pt3dadd(228.956, 61.56, 26.3, 1.274)
pt3dadd(229.076, 61.56, 26.3, 1.27)
pt3dadd(229.196, 61.56, 26.3, 1.266)
pt3dadd(229.316, 61.56, 26.3, 1.262)
pt3dadd(229.436, 61.56, 26.3, 1.26)
pt3dadd(229.556, 61.56, 26.3, 1.256)
pt3dadd(229.673, 61.539, 26.312, 1.256)
pt3dadd(229.79, 61.517, 26.324, 1.256)
pt3dadd(229.908, 61.495, 26.336, 1.256)
pt3dadd(230.024, 61.473, 26.348, 1.256)
pt3dadd(230.142, 61.451, 26.361, 1.256)
pt3dadd(230.26, 61.44, 26.373, 1.27)
pt3dadd(230.378, 61.44, 26.385, 1.298)
pt3dadd(230.498, 61.44, 26.398, 1.326)
pt3dadd(230.617, 61.44, 26.4, 1.372)
pt3dadd(230.737, 61.44, 26.4, 1.422)
pt3dadd(230.857, 61.44, 26.4, 1.472)
pt3dadd(230.977, 61.428, 26.4, 1.496)
pt3dadd(231.096, 61.413, 26.4, 1.516)
pt3dadd(231.21, 61.395, 26.408, 1.524)
pt3dadd(231.293, 61.35, 26.47, 1.452)
pt3dadd(231.379, 61.311, 26.532, 1.378)
pt3dadd(231.472, 61.286, 26.592, 1.3)
pt3dadd(231.564, 61.261, 26.651, 1.22)
pt3dadd(231.661, 61.237, 26.7, 1.142)
pt3dadd(231.781, 61.222, 26.7, 1.078)
pt3dadd(231.9, 61.207, 26.7, 1.012)
pt3dadd(232.02, 61.2, 26.7, 0.966)
pt3dadd(232.14, 61.2, 26.7, 0.962)
pt3dadd(232.26, 61.2, 26.7, 0.982)
pt3dadd(232.38, 61.2, 26.7, 0.998)
pt3dadd(232.5, 61.2, 26.7, 1.016)
pt3dadd(232.62, 61.2, 26.7, 1.034)
pt3dadd(232.74, 61.2, 26.7, 1.052)
pt3dadd(232.86, 61.2, 26.7, 1.07)
pt3dadd(232.98, 61.2, 26.7, 1.108)
pt3dadd(233.1, 61.2, 26.7, 1.168)
pt3dadd(233.22, 61.2, 26.7, 1.226)
pt3dadd(233.34, 61.2, 26.7, 1.272)
pt3dadd(233.46, 61.2, 26.7, 1.306)
pt3dadd(233.58, 61.2, 26.7, 1.34)
pt3dadd(233.699, 61.197, 26.706, 1.346)
pt3dadd(233.818, 61.192, 26.719, 1.328)
pt3dadd(233.936, 61.187, 26.732, 1.308)
pt3dadd(233.994, 61.132, 26.802, 1.254)
pt3dadd(234.053, 61.071, 26.87, 1.202)
pt3dadd(234.149, 61.007, 26.897, 1.182)
pt3dadd(234.259, 60.969, 26.916, 1.194)
pt3dadd(234.372, 60.934, 26.934, 1.208)
pt3dadd(234.485, 60.899, 26.952, 1.224)
pt3dadd(234.598, 60.864, 26.97, 1.24)
pt3dadd(234.71, 60.83, 26.987, 1.254)
pt3dadd(234.82, 60.803, 27.024, 1.27)
pt3dadd(234.928, 60.778, 27.062, 1.286)
pt3dadd(235.036, 60.752, 27.1, 1.302)
pt3dadd(235.144, 60.726, 27.138, 1.318)
pt3dadd(235.254, 60.702, 27.168, 1.332)
pt3dadd(235.372, 60.684, 27.174, 1.336)
pt3dadd(235.49, 60.666, 27.179, 1.34)
pt3dadd(235.609, 60.648, 27.185, 1.344)
pt3dadd(235.727, 60.63, 27.191, 1.348)
pt3dadd(235.846, 60.611, 27.196, 1.354)
pt3dadd(235.964, 60.6, 27.207, 1.36)
pt3dadd(236.082, 60.6, 27.225, 1.368)
pt3dadd(236.2, 60.6, 27.244, 1.376)
pt3dadd(236.317, 60.6, 27.263, 1.384)
pt3dadd(236.436, 60.6, 27.281, 1.392)
pt3dadd(236.554, 60.6, 27.3, 1.4)
pt3dadd(236.663, 60.6, 27.334, 1.414)
pt3dadd(236.759, 60.6, 27.394, 1.434)
pt3dadd(236.855, 60.6, 27.454, 1.454)
pt3dadd(236.951, 60.6, 27.514, 1.474)
pt3dadd(237.047, 60.6, 27.574, 1.494)
pt3dadd(237.143, 60.6, 27.634, 1.518)
pt3dadd(237.239, 60.6, 27.694, 1.548)
pt3dadd(237.335, 60.6, 27.754, 1.578)
pt3dadd(237.431, 60.6, 27.814, 1.608)
pt3dadd(237.527, 60.6, 27.874, 1.638)
pt3dadd(237.618, 60.583, 27.935, 1.69)
pt3dadd(237.701, 60.538, 27.997, 1.774)
pt3dadd(237.791, 60.489, 28.048, 1.84)
pt3dadd(237.886, 60.438, 28.091, 1.896)
pt3dadd(237.935, 60.353, 28.142, 1.898)
pt3dadd(237.971, 60.259, 28.197, 1.884)
pt3dadd(238.019, 60.248, 28.286, 1.818)
pt3dadd(238.068, 60.242, 28.377, 1.75)
pt3dadd(238.148, 60.237, 28.448, 1.696)
pt3dadd(238.241, 60.233, 28.512, 1.644)
pt3dadd(238.333, 60.229, 28.576, 1.594)
pt3dadd(238.405, 60.197, 28.632, 1.546)
pt3dadd(238.424, 60.087, 28.67, 1.51)
pt3dadd(238.442, 59.976, 28.7, 1.498)
pt3dadd(238.47, 59.875, 28.722, 1.566)
pt3dadd(238.525, 59.813, 28.795, 1.596)
pt3dadd(238.58, 59.752, 28.868, 1.626)
pt3dadd(238.634, 59.69, 28.94, 1.658)
pt3dadd(238.688, 59.635, 29.016, 1.686)
pt3dadd(238.739, 59.606, 29.103, 1.702)
pt3dadd(238.788, 59.576, 29.191, 1.718)
pt3dadd(238.838, 59.547, 29.279, 1.736)
pt3dadd(238.888, 59.518, 29.367, 1.752)
pt3dadd(238.928, 59.458, 29.443, 1.75)
pt3dadd(238.962, 59.38, 29.514, 1.738)
pt3dadd(238.997, 59.302, 29.584, 1.728)
pt3dadd(239.03, 59.224, 29.654, 1.716)
pt3dadd(239.076, 59.15, 29.722, 1.696)
pt3dadd(239.142, 59.084, 29.785, 1.666)
pt3dadd(239.208, 59.019, 29.848, 1.634)
pt3dadd(239.274, 58.953, 29.911, 1.604)
pt3dadd(239.34, 58.888, 29.975, 1.568)
pt3dadd(239.41, 58.827, 30.039, 1.526)
pt3dadd(239.465, 58.738, 30.076, 1.506)
pt3dadd(239.51, 58.629, 30.092, 1.506)
pt3dadd(239.556, 58.519, 30.1, 1.522)
pt3dadd(239.603, 58.408, 30.1, 1.556)
pt3dadd(239.662, 58.309, 30.1, 1.592)
pt3dadd(239.768, 58.256, 30.1, 1.636)
pt3dadd(239.876, 58.202, 30.1, 1.68)
pt3dadd(239.944, 58.104, 30.1, 1.702)
pt3dadd(240.011, 58.004, 30.1, 1.724)
pt3dadd(240.077, 57.904, 30.1, 1.744)
pt3dadd(240.12, 57.797, 30.1, 1.76)
pt3dadd(240.12, 57.677, 30.1, 1.77)
pt3dadd(240.12, 57.557, 30.1, 1.778)
}
}
proc shape3d_146() {
dend_7[22] { pt3dadd(240.136, 57.44, 30.1, 1.772)
pt3dadd(240.179, 57.328, 30.1, 1.738)
pt3dadd(240.222, 57.216, 30.1, 1.706)
pt3dadd(240.284, 57.131, 30.1, 1.66)
pt3dadd(240.404, 57.121, 30.1, 1.58)
pt3dadd(240.524, 57.112, 30.1, 1.498)
pt3dadd(240.642, 57.091, 30.1, 1.294)
pt3dadd(240.751, 57.044, 30.1, 1.152)
pt3dadd(240.859, 56.991, 30.1, 1.108)
pt3dadd(240.966, 56.937, 30.1, 1.064)
pt3dadd(241.074, 56.883, 30.1, 1.022)
pt3dadd(241.181, 56.829, 30.1, 0.978)
pt3dadd(241.29, 56.78, 30.1, 0.95)
pt3dadd(241.402, 56.735, 30.1, 0.94)
pt3dadd(241.513, 56.691, 30.1, 0.932)
pt3dadd(241.625, 56.646, 30.1, 0.922)
pt3dadd(241.735, 56.602, 30.1, 0.912)
pt3dadd(241.848, 56.559, 30.1, 0.904)
pt3dadd(241.966, 56.539, 30.1, 0.918)
pt3dadd(242.084, 56.519, 30.1, 0.93)
pt3dadd(242.203, 56.499, 30.1, 0.942)
pt3dadd(242.321, 56.48, 30.1, 0.954)
pt3dadd(242.44, 56.46, 30.1, 0.966)
pt3dadd(242.557, 56.44, 30.1, 0.98)
pt3dadd(242.665, 56.387, 30.1, 1.028)
pt3dadd(242.773, 56.334, 30.1, 1.08)
pt3dadd(242.88, 56.28, 30.1, 1.13)
}
dend_7[23] {pt3dclear()
pt3dadd(199.61, 94.64, 16.472, 1.13)
pt3dadd(199.649, 94.651, 16.472, 1.134)
pt3dadd(199.765, 94.683, 16.469, 1.144)
pt3dadd(199.88, 94.715, 16.467, 1.156)
pt3dadd(199.996, 94.746, 16.464, 1.166)
pt3dadd(200.112, 94.779, 16.462, 1.178)
pt3dadd(200.227, 94.81, 16.46, 1.188)
pt3dadd(200.342, 94.842, 16.457, 1.2)
pt3dadd(200.459, 94.874, 16.455, 1.21)
pt3dadd(200.574, 94.906, 16.452, 1.222)
pt3dadd(200.689, 94.938, 16.45, 1.232)
pt3dadd(200.806, 94.97, 16.448, 1.244)
pt3dadd(200.921, 95.002, 16.445, 1.254)
pt3dadd(201.036, 95.034, 16.443, 1.264)
pt3dadd(201.152, 95.066, 16.44, 1.276)
pt3dadd(201.269, 95.094, 16.446, 1.282)
pt3dadd(201.385, 95.116, 16.461, 1.282)
pt3dadd(201.502, 95.139, 16.477, 1.282)
pt3dadd(201.618, 95.161, 16.492, 1.282)
pt3dadd(201.734, 95.183, 16.508, 1.284)
pt3dadd(201.851, 95.206, 16.523, 1.284)
pt3dadd(201.967, 95.228, 16.538, 1.284)
pt3dadd(202.084, 95.25, 16.554, 1.284)
pt3dadd(202.2, 95.273, 16.569, 1.284)
pt3dadd(202.316, 95.295, 16.585, 1.286)
pt3dadd(202.421, 95.297, 16.632, 1.266)
pt3dadd(202.524, 95.296, 16.683, 1.244)
pt3dadd(202.626, 95.295, 16.735, 1.222)
pt3dadd(202.729, 95.294, 16.786, 1.198)
pt3dadd(202.832, 95.293, 16.838, 1.176)
pt3dadd(202.934, 95.292, 16.889, 1.154)
pt3dadd(203.038, 95.291, 16.941, 1.132)
pt3dadd(203.141, 95.289, 16.993, 1.11)
pt3dadd(203.243, 95.288, 17.044, 1.088)
pt3dadd(203.346, 95.287, 17.096, 1.066)
pt3dadd(203.453, 95.286, 17.142, 1.044)
pt3dadd(203.56, 95.285, 17.187, 1.024)
pt3dadd(203.666, 95.283, 17.233, 1.004)
pt3dadd(203.773, 95.282, 17.278, 0.984)
pt3dadd(203.88, 95.281, 17.323, 0.962)
pt3dadd(203.987, 95.28, 17.369, 0.942)
pt3dadd(204.094, 95.278, 17.414, 0.922)
pt3dadd(204.2, 95.277, 17.46, 0.902)
pt3dadd(204.307, 95.276, 17.505, 0.88)
pt3dadd(204.414, 95.274, 17.551, 0.86)
pt3dadd(204.528, 95.273, 17.581, 0.844)
pt3dadd(204.643, 95.271, 17.611, 0.828)
pt3dadd(204.757, 95.269, 17.641, 0.814)
pt3dadd(204.872, 95.267, 17.67, 0.798)
pt3dadd(204.986, 95.265, 17.7, 0.782)
pt3dadd(205.102, 95.264, 17.73, 0.766)
pt3dadd(205.216, 95.262, 17.759, 0.752)
pt3dadd(205.331, 95.26, 17.789, 0.736)
pt3dadd(205.445, 95.258, 17.819, 0.72)
pt3dadd(205.56, 95.256, 17.848, 0.704)
pt3dadd(205.678, 95.253, 17.869, 0.69)
pt3dadd(205.795, 95.25, 17.889, 0.676)
pt3dadd(205.913, 95.247, 17.909, 0.662)
pt3dadd(206.03, 95.244, 17.929, 0.646)
pt3dadd(206.148, 95.241, 17.948, 0.632)
pt3dadd(206.266, 95.238, 17.968, 0.618)
pt3dadd(206.382, 95.235, 17.988, 0.604)
pt3dadd(206.5, 95.232, 18.008, 0.588)
pt3dadd(206.617, 95.229, 18.028, 0.574)
pt3dadd(206.735, 95.225, 18.048, 0.56)
pt3dadd(206.854, 95.221, 18.064, 0.566)
pt3dadd(206.972, 95.216, 18.081, 0.572)
pt3dadd(207.09, 95.212, 18.097, 0.58)
pt3dadd(207.209, 95.207, 18.113, 0.586)
pt3dadd(207.326, 95.203, 18.13, 0.594)
pt3dadd(207.445, 95.198, 18.146, 0.6)
pt3dadd(207.563, 95.194, 18.163, 0.608)
pt3dadd(207.682, 95.189, 18.179, 0.614)
pt3dadd(207.8, 95.184, 18.195, 0.622)
pt3dadd(207.918, 95.18, 18.212, 0.628)
pt3dadd(208.037, 95.172, 18.224, 0.696)
pt3dadd(208.156, 95.164, 18.236, 0.768)
pt3dadd(208.274, 95.155, 18.247, 0.84)
pt3dadd(208.393, 95.147, 18.259, 0.91)
pt3dadd(208.512, 95.139, 18.271, 0.982)
pt3dadd(208.632, 95.13, 18.282, 1.054)
pt3dadd(208.751, 95.122, 18.294, 1.126)
pt3dadd(208.87, 95.114, 18.306, 1.198)
pt3dadd(208.988, 95.106, 18.317, 1.27)
pt3dadd(209.107, 95.097, 18.329, 1.342)
pt3dadd(209.221, 95.086, 18.357, 1.342)
pt3dadd(209.335, 95.075, 18.386, 1.338)
pt3dadd(209.45, 95.063, 18.415, 1.336)
pt3dadd(209.564, 95.052, 18.444, 1.332)
pt3dadd(209.678, 95.04, 18.473, 1.33)
pt3dadd(209.792, 95.029, 18.503, 1.326)
pt3dadd(209.906, 95.018, 18.532, 1.324)
pt3dadd(210.022, 95.006, 18.561, 1.32)
pt3dadd(210.136, 94.995, 18.59, 1.316)
pt3dadd(210.25, 94.984, 18.619, 1.312)
pt3dadd(210.36, 94.971, 18.656, 1.272)
pt3dadd(210.47, 94.958, 18.694, 1.232)
pt3dadd(210.582, 94.945, 18.731, 1.192)
pt3dadd(210.692, 94.932, 18.768, 1.152)
pt3dadd(210.803, 94.92, 18.806, 1.112)
pt3dadd(210.913, 94.907, 18.843, 1.072)
pt3dadd(211.024, 94.894, 18.88, 1.032)
pt3dadd(211.134, 94.881, 18.918, 0.992)
pt3dadd(211.244, 94.869, 18.955, 0.952)
pt3dadd(211.356, 94.855, 18.992, 0.912)
pt3dadd(211.464, 94.812, 19.015, 0.898)
pt3dadd(211.573, 94.77, 19.039, 0.886)
pt3dadd(211.681, 94.727, 19.062, 0.872)
pt3dadd(211.789, 94.684, 19.085, 0.858)
pt3dadd(211.898, 94.641, 19.109, 0.844)
pt3dadd(212.006, 94.599, 19.132, 0.83)
pt3dadd(212.116, 94.556, 19.156, 0.816)
pt3dadd(212.224, 94.513, 19.179, 0.802)
pt3dadd(212.333, 94.471, 19.202, 0.788)
pt3dadd(212.441, 94.428, 19.226, 0.776)
pt3dadd(212.552, 94.388, 19.246, 0.766)
pt3dadd(212.663, 94.349, 19.266, 0.756)
pt3dadd(212.773, 94.309, 19.287, 0.746)
pt3dadd(212.884, 94.27, 19.307, 0.736)
pt3dadd(212.994, 94.23, 19.327, 0.726)
pt3dadd(213.106, 94.19, 19.348, 0.716)
pt3dadd(213.216, 94.151, 19.368, 0.706)
pt3dadd(213.326, 94.111, 19.388, 0.696)
pt3dadd(213.437, 94.072, 19.409, 0.688)
pt3dadd(213.548, 94.033, 19.428, 0.678)
pt3dadd(213.664, 94.005, 19.441, 0.678)
pt3dadd(213.779, 93.976, 19.453, 0.678)
pt3dadd(213.895, 93.948, 19.465, 0.678)
pt3dadd(214.01, 93.92, 19.477, 0.678)
pt3dadd(214.127, 93.892, 19.49, 0.678)
pt3dadd(214.242, 93.863, 19.502, 0.678)
pt3dadd(214.357, 93.835, 19.514, 0.678)
pt3dadd(214.474, 93.807, 19.527, 0.678)
pt3dadd(214.589, 93.779, 19.539, 0.678)
pt3dadd(214.705, 93.751, 19.551, 0.676)
pt3dadd(214.824, 93.734, 19.557, 0.658)
pt3dadd(214.942, 93.716, 19.563, 0.638)
pt3dadd(215.06, 93.699, 19.569, 0.618)
pt3dadd(215.179, 93.681, 19.576, 0.598)
pt3dadd(215.298, 93.663, 19.582, 0.58)
pt3dadd(215.416, 93.646, 19.588, 0.56)
pt3dadd(215.534, 93.628, 19.594, 0.54)
pt3dadd(215.653, 93.611, 19.6, 0.52)
pt3dadd(215.771, 93.593, 19.607, 0.5)
pt3dadd(215.89, 93.576, 19.612, 0.482)
pt3dadd(216.01, 93.567, 19.616, 0.46)
pt3dadd(216.128, 93.557, 19.62, 0.438)
pt3dadd(216.248, 93.547, 19.623, 0.416)
pt3dadd(216.368, 93.537, 19.627, 0.394)
pt3dadd(216.487, 93.527, 19.63, 0.372)
pt3dadd(216.607, 93.517, 19.634, 0.35)
pt3dadd(216.726, 93.507, 19.638, 0.33)
pt3dadd(216.846, 93.498, 19.641, 0.308)
pt3dadd(216.966, 93.488, 19.645, 0.286)
pt3dadd(217.085, 93.479, 19.649, 0.27)
pt3dadd(217.205, 93.483, 19.657, 0.3)
pt3dadd(217.325, 93.487, 19.664, 0.332)
pt3dadd(217.444, 93.49, 19.672, 0.362)
pt3dadd(217.564, 93.494, 19.68, 0.394)
pt3dadd(217.682, 93.498, 19.688, 0.424)
pt3dadd(217.802, 93.501, 19.695, 0.456)
pt3dadd(217.922, 93.505, 19.703, 0.486)
pt3dadd(218.041, 93.509, 19.711, 0.518)
pt3dadd(218.161, 93.513, 19.718, 0.548)
pt3dadd(218.281, 93.517, 19.726, 0.578)
pt3dadd(218.4, 93.524, 19.738, 0.588)
pt3dadd(218.519, 93.532, 19.75, 0.598)
pt3dadd(218.638, 93.54, 19.761, 0.608)
pt3dadd(218.756, 93.547, 19.773, 0.618)
pt3dadd(218.875, 93.555, 19.784, 0.628)
pt3dadd(218.994, 93.563, 19.796, 0.638)
pt3dadd(219.114, 93.57, 19.807, 0.648)
pt3dadd(219.233, 93.578, 19.819, 0.658)
}
}
proc shape3d_147() {
dend_7[23] { pt3dadd(219.352, 93.585, 19.83, 0.668)
pt3dadd(219.47, 93.594, 19.843, 0.678)
pt3dadd(219.586, 93.606, 19.869, 0.678)
pt3dadd(219.701, 93.618, 19.894, 0.678)
pt3dadd(219.816, 93.631, 19.92, 0.678)
pt3dadd(219.931, 93.643, 19.945, 0.678)
pt3dadd(220.046, 93.656, 19.97, 0.678)
pt3dadd(220.163, 93.668, 19.996, 0.678)
pt3dadd(220.278, 93.681, 20.021, 0.678)
pt3dadd(220.393, 93.693, 20.047, 0.678)
pt3dadd(220.508, 93.706, 20.072, 0.678)
pt3dadd(220.619, 93.722, 20.106, 0.68)
pt3dadd(220.718, 93.746, 20.159, 0.684)
pt3dadd(220.817, 93.769, 20.212, 0.688)
pt3dadd(220.916, 93.793, 20.264, 0.692)
pt3dadd(221.015, 93.817, 20.317, 0.696)
pt3dadd(221.114, 93.841, 20.37, 0.7)
pt3dadd(221.214, 93.864, 20.423, 0.704)
pt3dadd(221.312, 93.888, 20.476, 0.708)
pt3dadd(221.412, 93.912, 20.528, 0.712)
pt3dadd(221.51, 93.936, 20.581, 0.716)
pt3dadd(221.611, 93.972, 20.624, 0.732)
pt3dadd(221.712, 94.026, 20.654, 0.764)
pt3dadd(221.813, 94.08, 20.683, 0.796)
pt3dadd(221.914, 94.135, 20.712, 0.828)
pt3dadd(222.016, 94.189, 20.742, 0.86)
pt3dadd(222.116, 94.243, 20.771, 0.892)
pt3dadd(222.217, 94.297, 20.8, 0.926)
pt3dadd(222.318, 94.351, 20.83, 0.958)
pt3dadd(222.42, 94.405, 20.859, 0.99)
pt3dadd(222.521, 94.46, 20.889, 1.022)
pt3dadd(222.626, 94.507, 20.914, 1.044)
pt3dadd(222.737, 94.546, 20.933, 1.054)
pt3dadd(222.848, 94.585, 20.952, 1.062)
pt3dadd(222.96, 94.624, 20.972, 1.072)
pt3dadd(223.07, 94.662, 20.991, 1.08)
pt3dadd(223.182, 94.701, 21.01, 1.09)
pt3dadd(223.294, 94.74, 21.03, 1.098)
pt3dadd(223.404, 94.779, 21.049, 1.108)
pt3dadd(223.516, 94.818, 21.069, 1.116)
pt3dadd(223.627, 94.856, 21.088, 1.126)
pt3dadd(223.74, 94.89, 21.104, 1.128)
pt3dadd(223.855, 94.918, 21.118, 1.124)
pt3dadd(223.972, 94.946, 21.131, 1.12)
pt3dadd(224.087, 94.974, 21.144, 1.116)
pt3dadd(224.202, 95.002, 21.158, 1.114)
pt3dadd(224.318, 95.03, 21.171, 1.11)
pt3dadd(224.434, 95.058, 21.184, 1.106)
pt3dadd(224.549, 95.086, 21.198, 1.102)
pt3dadd(224.664, 95.114, 21.211, 1.098)
pt3dadd(224.78, 95.142, 21.224, 1.094)
pt3dadd(224.897, 95.163, 21.235, 1.086)
pt3dadd(225.016, 95.178, 21.243, 1.072)
pt3dadd(225.134, 95.193, 21.25, 1.056)
pt3dadd(225.253, 95.208, 21.258, 1.042)
pt3dadd(225.372, 95.223, 21.266, 1.028)
pt3dadd(225.491, 95.238, 21.274, 1.014)
pt3dadd(225.61, 95.253, 21.281, 1)
pt3dadd(225.728, 95.268, 21.289, 0.986)
pt3dadd(225.847, 95.283, 21.297, 0.972)
pt3dadd(225.966, 95.298, 21.305, 0.956)
pt3dadd(226.085, 95.309, 21.314, 0.932)
pt3dadd(226.204, 95.316, 21.326, 0.898)
pt3dadd(226.322, 95.323, 21.337, 0.864)
pt3dadd(226.441, 95.33, 21.349, 0.832)
pt3dadd(226.56, 95.338, 21.36, 0.798)
pt3dadd(226.68, 95.345, 21.372, 0.764)
pt3dadd(226.799, 95.352, 21.383, 0.73)
pt3dadd(226.918, 95.359, 21.395, 0.696)
pt3dadd(227.036, 95.367, 21.406, 0.662)
pt3dadd(227.155, 95.374, 21.418, 0.628)
pt3dadd(227.274, 95.379, 21.432, 0.592)
pt3dadd(227.393, 95.383, 21.448, 0.554)
pt3dadd(227.51, 95.387, 21.464, 0.514)
pt3dadd(227.629, 95.391, 21.48, 0.476)
pt3dadd(227.748, 95.396, 21.496, 0.436)
pt3dadd(227.866, 95.4, 21.512, 0.398)
pt3dadd(227.984, 95.404, 21.528, 0.36)
pt3dadd(228.103, 95.408, 21.544, 0.32)
pt3dadd(228.221, 95.412, 21.56, 0.282)
pt3dadd(228.34, 95.416, 21.576, 0.244)
pt3dadd(228.454, 95.422, 21.605, 0.226)
pt3dadd(228.563, 95.43, 21.645, 0.226)
pt3dadd(228.672, 95.438, 21.685, 0.226)
pt3dadd(228.782, 95.446, 21.725, 0.226)
pt3dadd(228.892, 95.454, 21.765, 0.226)
pt3dadd(229.002, 95.463, 21.805, 0.226)
pt3dadd(229.111, 95.471, 21.845, 0.226)
pt3dadd(229.222, 95.479, 21.884, 0.226)
pt3dadd(229.331, 95.487, 21.924, 0.226)
pt3dadd(229.441, 95.495, 21.964, 0.226)
pt3dadd(229.552, 95.504, 22.002, 0.234)
pt3dadd(229.662, 95.514, 22.039, 0.25)
pt3dadd(229.774, 95.525, 22.075, 0.266)
pt3dadd(229.885, 95.535, 22.112, 0.282)
pt3dadd(229.996, 95.546, 22.149, 0.298)
pt3dadd(230.107, 95.556, 22.185, 0.314)
pt3dadd(230.219, 95.567, 22.222, 0.33)
pt3dadd(230.329, 95.577, 22.258, 0.346)
pt3dadd(230.441, 95.587, 22.295, 0.362)
pt3dadd(230.552, 95.598, 22.332, 0.38)
pt3dadd(230.664, 95.61, 22.365, 0.41)
pt3dadd(230.777, 95.624, 22.397, 0.45)
pt3dadd(230.891, 95.638, 22.428, 0.49)
pt3dadd(231.004, 95.652, 22.459, 0.532)
pt3dadd(231.116, 95.666, 22.491, 0.572)
pt3dadd(231.229, 95.68, 22.522, 0.614)
pt3dadd(231.343, 95.694, 22.553, 0.654)
pt3dadd(231.456, 95.708, 22.585, 0.694)
pt3dadd(231.569, 95.722, 22.616, 0.736)
pt3dadd(231.682, 95.736, 22.648, 0.776)
pt3dadd(231.793, 95.762, 22.676, 0.796)
pt3dadd(231.904, 95.799, 22.701, 0.796)
pt3dadd(232.013, 95.836, 22.727, 0.798)
pt3dadd(232.123, 95.873, 22.752, 0.8)
pt3dadd(232.234, 95.91, 22.778, 0.802)
pt3dadd(232.343, 95.947, 22.804, 0.802)
pt3dadd(232.453, 95.984, 22.83, 0.804)
pt3dadd(232.564, 96.021, 22.855, 0.806)
pt3dadd(232.673, 96.057, 22.881, 0.808)
pt3dadd(232.783, 96.094, 22.906, 0.808)
pt3dadd(232.891, 96.136, 22.931, 0.8)
pt3dadd(232.999, 96.181, 22.954, 0.788)
pt3dadd(233.107, 96.226, 22.977, 0.774)
pt3dadd(233.215, 96.271, 23, 0.762)
pt3dadd(233.323, 96.315, 23.024, 0.748)
pt3dadd(233.43, 96.36, 23.047, 0.736)
pt3dadd(233.538, 96.405, 23.07, 0.722)
pt3dadd(233.646, 96.45, 23.093, 0.71)
pt3dadd(233.754, 96.495, 23.117, 0.696)
pt3dadd(233.862, 96.54, 23.14, 0.684)
pt3dadd(233.968, 96.574, 23.175, 0.68)
pt3dadd(234.073, 96.604, 23.216, 0.68)
pt3dadd(234.178, 96.633, 23.258, 0.678)
pt3dadd(234.283, 96.663, 23.3, 0.678)
pt3dadd(234.388, 96.693, 23.341, 0.678)
pt3dadd(234.493, 96.722, 23.383, 0.678)
pt3dadd(234.598, 96.752, 23.424, 0.678)
pt3dadd(234.703, 96.781, 23.466, 0.678)
pt3dadd(234.808, 96.81, 23.508, 0.678)
pt3dadd(234.913, 96.84, 23.549, 0.678)
pt3dadd(235.019, 96.868, 23.59, 0.678)
pt3dadd(235.126, 96.896, 23.631, 0.678)
pt3dadd(235.231, 96.923, 23.671, 0.678)
pt3dadd(235.338, 96.951, 23.712, 0.678)
pt3dadd(235.444, 96.978, 23.752, 0.678)
pt3dadd(235.55, 97.006, 23.792, 0.678)
pt3dadd(235.656, 97.033, 23.833, 0.678)
pt3dadd(235.763, 97.061, 23.873, 0.678)
pt3dadd(235.868, 97.088, 23.914, 0.678)
pt3dadd(235.975, 97.116, 23.954, 0.678)
pt3dadd(236.084, 97.139, 23.991, 0.678)
pt3dadd(236.195, 97.16, 24.026, 0.678)
pt3dadd(236.305, 97.181, 24.06, 0.678)
pt3dadd(236.416, 97.202, 24.095, 0.678)
pt3dadd(236.526, 97.223, 24.13, 0.678)
pt3dadd(236.636, 97.244, 24.165, 0.678)
pt3dadd(236.748, 97.264, 24.2, 0.678)
pt3dadd(236.858, 97.285, 24.235, 0.678)
pt3dadd(236.969, 97.306, 24.269, 0.678)
pt3dadd(237.079, 97.327, 24.304, 0.678)
pt3dadd(237.188, 97.346, 24.343, 0.678)
pt3dadd(237.296, 97.363, 24.384, 0.678)
pt3dadd(237.404, 97.38, 24.426, 0.678)
pt3dadd(237.512, 97.397, 24.467, 0.678)
pt3dadd(237.62, 97.414, 24.508, 0.678)
pt3dadd(237.728, 97.432, 24.549, 0.678)
pt3dadd(237.836, 97.449, 24.59, 0.678)
pt3dadd(237.944, 97.466, 24.631, 0.678)
pt3dadd(238.052, 97.483, 24.673, 0.678)
pt3dadd(238.16, 97.5, 24.714, 0.678)
pt3dadd(238.266, 97.515, 24.759, 0.678)
pt3dadd(238.37, 97.529, 24.806, 0.678)
pt3dadd(238.475, 97.543, 24.854, 0.678)
pt3dadd(238.58, 97.557, 24.901, 0.678)
pt3dadd(238.685, 97.571, 24.948, 0.678)
pt3dadd(238.79, 97.584, 24.996, 0.678)
pt3dadd(238.895, 97.598, 25.043, 0.678)
pt3dadd(238.999, 97.612, 25.09, 0.678)
pt3dadd(239.105, 97.626, 25.137, 0.678)
pt3dadd(239.209, 97.64, 25.185, 0.678)
pt3dadd(239.315, 97.669, 25.223, 0.69)
pt3dadd(239.422, 97.706, 25.257, 0.708)
pt3dadd(239.528, 97.743, 25.291, 0.728)
pt3dadd(239.635, 97.78, 25.324, 0.746)
pt3dadd(239.742, 97.817, 25.358, 0.764)
pt3dadd(239.849, 97.854, 25.392, 0.784)
pt3dadd(239.956, 97.891, 25.426, 0.802)
pt3dadd(240.062, 97.928, 25.46, 0.82)
pt3dadd(240.169, 97.965, 25.493, 0.838)
pt3dadd(240.276, 98.002, 25.527, 0.856)
pt3dadd(240.382, 98.046, 25.557, 0.88)
pt3dadd(240.487, 98.091, 25.585, 0.906)
pt3dadd(240.593, 98.137, 25.613, 0.932)
pt3dadd(240.698, 98.182, 25.641, 0.958)
pt3dadd(240.805, 98.228, 25.669, 0.984)
pt3dadd(240.911, 98.273, 25.697, 1.008)
pt3dadd(241.016, 98.319, 25.725, 1.034)
pt3dadd(241.122, 98.364, 25.753, 1.06)
pt3dadd(241.228, 98.41, 25.781, 1.086)
}
}
proc shape3d_148() {
dend_7[23] { pt3dadd(241.333, 98.455, 25.809, 1.11)
pt3dadd(241.444, 98.494, 25.833, 1.108)
pt3dadd(241.555, 98.53, 25.854, 1.096)
pt3dadd(241.667, 98.567, 25.876, 1.084)
pt3dadd(241.778, 98.603, 25.898, 1.074)
pt3dadd(241.889, 98.639, 25.919, 1.062)
pt3dadd(242, 98.676, 25.941, 1.05)
pt3dadd(242.112, 98.712, 25.963, 1.04)
pt3dadd(242.224, 98.749, 25.985, 1.028)
pt3dadd(242.334, 98.785, 26.006, 1.016)
pt3dadd(242.446, 98.822, 26.028, 1.006)
pt3dadd(242.557, 98.856, 26.053, 0.992)
pt3dadd(242.668, 98.889, 26.078, 0.978)
pt3dadd(242.779, 98.922, 26.104, 0.966)
pt3dadd(242.891, 98.955, 26.13, 0.952)
pt3dadd(243.001, 98.988, 26.155, 0.938)
pt3dadd(243.113, 99.021, 26.181, 0.924)
pt3dadd(243.224, 99.054, 26.206, 0.912)
pt3dadd(243.335, 99.087, 26.232, 0.898)
pt3dadd(243.446, 99.121, 26.258, 0.884)
pt3dadd(243.558, 99.154, 26.283, 0.872)
pt3dadd(243.666, 99.181, 26.318, 0.858)
pt3dadd(243.775, 99.206, 26.355, 0.844)
pt3dadd(243.883, 99.232, 26.391, 0.832)
pt3dadd(243.992, 99.257, 26.428, 0.818)
pt3dadd(244.102, 99.283, 26.465, 0.806)
pt3dadd(244.21, 99.308, 26.502, 0.792)
pt3dadd(244.319, 99.334, 26.539, 0.778)
pt3dadd(244.427, 99.36, 26.575, 0.766)
pt3dadd(244.536, 99.385, 26.612, 0.752)
pt3dadd(244.644, 99.411, 26.649, 0.74)
pt3dadd(244.753, 99.445, 26.679, 0.726)
pt3dadd(244.861, 99.482, 26.709, 0.712)
pt3dadd(244.97, 99.518, 26.738, 0.7)
pt3dadd(245.08, 99.555, 26.767, 0.686)
pt3dadd(245.188, 99.591, 26.797, 0.674)
pt3dadd(245.297, 99.628, 26.826, 0.66)
pt3dadd(245.406, 99.665, 26.855, 0.646)
pt3dadd(245.514, 99.701, 26.885, 0.634)
pt3dadd(245.623, 99.738, 26.914, 0.62)
pt3dadd(245.731, 99.774, 26.943, 0.608)
pt3dadd(245.839, 99.818, 26.967, 0.594)
pt3dadd(245.947, 99.863, 26.99, 0.58)
pt3dadd(246.055, 99.908, 27.013, 0.568)
pt3dadd(246.162, 99.954, 27.036, 0.554)
pt3dadd(246.27, 99.999, 27.059, 0.542)
pt3dadd(246.378, 100.044, 27.083, 0.528)
pt3dadd(246.486, 100.089, 27.105, 0.516)
pt3dadd(246.593, 100.134, 27.129, 0.502)
pt3dadd(246.701, 100.179, 27.152, 0.488)
pt3dadd(246.809, 100.224, 27.175, 0.476)
pt3dadd(246.922, 100.26, 27.19, 0.462)
pt3dadd(247.036, 100.295, 27.204, 0.448)
pt3dadd(247.15, 100.329, 27.218, 0.434)
pt3dadd(247.262, 100.363, 27.232, 0.42)
pt3dadd(247.376, 100.398, 27.246, 0.406)
pt3dadd(247.49, 100.432, 27.261, 0.392)
pt3dadd(247.604, 100.466, 27.275, 0.378)
pt3dadd(247.717, 100.501, 27.289, 0.362)
pt3dadd(247.831, 100.535, 27.303, 0.348)
pt3dadd(247.945, 100.569, 27.317, 0.334)
pt3dadd(248.06, 100.6, 27.328, 0.324)
pt3dadd(248.176, 100.63, 27.338, 0.314)
pt3dadd(248.292, 100.659, 27.348, 0.302)
pt3dadd(248.407, 100.689, 27.358, 0.292)
pt3dadd(248.522, 100.719, 27.368, 0.28)
pt3dadd(248.639, 100.749, 27.378, 0.27)
pt3dadd(248.754, 100.779, 27.388, 0.26)
pt3dadd(248.869, 100.809, 27.398, 0.248)
pt3dadd(248.986, 100.838, 27.408, 0.238)
pt3dadd(249.101, 100.868, 27.418, 0.226)
pt3dadd(249.218, 100.891, 27.422, 0.226)
pt3dadd(249.336, 100.913, 27.425, 0.226)
pt3dadd(249.455, 100.936, 27.428, 0.226)
pt3dadd(249.572, 100.958, 27.431, 0.226)
pt3dadd(249.69, 100.98, 27.434, 0.226)
pt3dadd(249.808, 101.003, 27.437, 0.226)
pt3dadd(249.925, 101.025, 27.44, 0.226)
pt3dadd(250.044, 101.047, 27.443, 0.226)
pt3dadd(250.162, 101.07, 27.446, 0.226)
pt3dadd(250.279, 101.092, 27.449, 0.226)
pt3dadd(250.398, 101.109, 27.455, 0.304)
pt3dadd(250.517, 101.124, 27.462, 0.392)
pt3dadd(250.636, 101.14, 27.469, 0.478)
pt3dadd(250.754, 101.156, 27.476, 0.564)
pt3dadd(250.872, 101.172, 27.482, 0.652)
pt3dadd(250.991, 101.188, 27.489, 0.738)
pt3dadd(251.11, 101.204, 27.496, 0.824)
pt3dadd(251.228, 101.22, 27.503, 0.912)
pt3dadd(251.347, 101.236, 27.509, 0.998)
pt3dadd(251.466, 101.252, 27.516, 1.084)
pt3dadd(251.581, 101.283, 27.527, 1.138)
pt3dadd(251.695, 101.316, 27.538, 1.188)
pt3dadd(251.81, 101.349, 27.549, 1.238)
pt3dadd(251.924, 101.381, 27.561, 1.29)
pt3dadd(252.04, 101.414, 27.572, 1.34)
pt3dadd(252.155, 101.446, 27.583, 1.39)
pt3dadd(252.269, 101.479, 27.594, 1.442)
pt3dadd(252.384, 101.511, 27.605, 1.492)
pt3dadd(252.498, 101.544, 27.617, 1.542)
pt3dadd(252.612, 101.58, 27.63, 1.58)
pt3dadd(252.714, 101.634, 27.654, 1.542)
pt3dadd(252.817, 101.689, 27.678, 1.504)
pt3dadd(252.92, 101.743, 27.702, 1.466)
pt3dadd(253.024, 101.798, 27.726, 1.428)
pt3dadd(253.127, 101.852, 27.75, 1.39)
pt3dadd(253.229, 101.907, 27.774, 1.352)
pt3dadd(253.332, 101.961, 27.798, 1.314)
pt3dadd(253.435, 102.015, 27.822, 1.276)
pt3dadd(253.538, 102.07, 27.846, 1.238)
pt3dadd(253.642, 102.115, 27.877, 1.222)
pt3dadd(253.745, 102.14, 27.923, 1.256)
pt3dadd(253.849, 102.165, 27.969, 1.29)
pt3dadd(253.952, 102.191, 28.014, 1.322)
pt3dadd(254.056, 102.216, 28.06, 1.356)
pt3dadd(254.159, 102.241, 28.106, 1.388)
pt3dadd(254.263, 102.266, 28.152, 1.422)
pt3dadd(254.366, 102.291, 28.198, 1.454)
pt3dadd(254.47, 102.317, 28.244, 1.488)
pt3dadd(254.574, 102.342, 28.29, 1.52)
pt3dadd(254.681, 102.36, 28.33, 1.526)
pt3dadd(254.796, 102.364, 28.359, 1.474)
pt3dadd(254.91, 102.368, 28.388, 1.424)
pt3dadd(255.025, 102.372, 28.417, 1.372)
pt3dadd(255.14, 102.376, 28.446, 1.32)
pt3dadd(255.254, 102.38, 28.476, 1.268)
pt3dadd(255.37, 102.384, 28.505, 1.216)
pt3dadd(255.485, 102.388, 28.534, 1.164)
pt3dadd(255.599, 102.392, 28.563, 1.114)
pt3dadd(255.714, 102.396, 28.592, 1.062)
pt3dadd(255.829, 102.392, 28.617, 1.012)
pt3dadd(255.946, 102.374, 28.637, 0.964)
pt3dadd(256.062, 102.355, 28.657, 0.916)
pt3dadd(256.177, 102.337, 28.677, 0.868)
pt3dadd(256.294, 102.319, 28.697, 0.82)
pt3dadd(256.41, 102.301, 28.717, 0.772)
pt3dadd(256.526, 102.283, 28.736, 0.724)
pt3dadd(256.643, 102.265, 28.756, 0.676)
pt3dadd(256.759, 102.247, 28.776, 0.628)
pt3dadd(256.876, 102.229, 28.796, 0.58)
pt3dadd(256.988, 102.197, 28.81, 0.544)
pt3dadd(257.101, 102.156, 28.82, 0.518)
pt3dadd(257.213, 102.114, 28.831, 0.49)
pt3dadd(257.324, 102.072, 28.841, 0.464)
pt3dadd(257.436, 102.031, 28.851, 0.436)
pt3dadd(257.548, 101.989, 28.861, 0.41)
pt3dadd(257.66, 101.948, 28.872, 0.382)
pt3dadd(257.772, 101.906, 28.882, 0.356)
pt3dadd(257.884, 101.864, 28.892, 0.328)
pt3dadd(257.995, 101.823, 28.902, 0.302)
pt3dadd(258.11, 101.79, 28.908, 0.298)
pt3dadd(258.228, 101.764, 28.91, 0.314)
pt3dadd(258.344, 101.738, 28.913, 0.33)
pt3dadd(258.462, 101.712, 28.915, 0.344)
pt3dadd(258.58, 101.686, 28.917, 0.36)
pt3dadd(258.696, 101.66, 28.919, 0.376)
pt3dadd(258.814, 101.634, 28.921, 0.39)
pt3dadd(258.93, 101.609, 28.924, 0.406)
pt3dadd(259.048, 101.583, 28.926, 0.422)
pt3dadd(259.165, 101.557, 28.928, 0.436)
pt3dadd(259.283, 101.536, 28.929, 0.456)
pt3dadd(259.402, 101.519, 28.928, 0.48)
pt3dadd(259.52, 101.501, 28.928, 0.504)
pt3dadd(259.639, 101.484, 28.928, 0.528)
pt3dadd(259.758, 101.467, 28.927, 0.552)
pt3dadd(259.877, 101.449, 28.927, 0.574)
pt3dadd(259.996, 101.432, 28.927, 0.598)
pt3dadd(260.114, 101.415, 28.926, 0.622)
pt3dadd(260.233, 101.397, 28.926, 0.646)
pt3dadd(260.352, 101.38, 28.926, 0.67)
pt3dadd(260.471, 101.374, 28.925, 0.678)
pt3dadd(260.591, 101.374, 28.924, 0.678)
pt3dadd(260.711, 101.375, 28.924, 0.678)
pt3dadd(260.831, 101.375, 28.923, 0.678)
pt3dadd(260.951, 101.376, 28.923, 0.678)
pt3dadd(261.071, 101.376, 28.922, 0.678)
pt3dadd(261.191, 101.377, 28.921, 0.678)
pt3dadd(261.311, 101.377, 28.921, 0.678)
pt3dadd(261.431, 101.378, 28.92, 0.678)
pt3dadd(261.551, 101.378, 28.919, 0.678)
pt3dadd(261.668, 101.396, 28.918, 0.672)
pt3dadd(261.786, 101.423, 28.917, 0.664)
pt3dadd(261.902, 101.451, 28.916, 0.656)
pt3dadd(262.019, 101.478, 28.915, 0.648)
pt3dadd(262.136, 101.506, 28.914, 0.64)
pt3dadd(262.253, 101.533, 28.913, 0.632)
pt3dadd(262.369, 101.561, 28.912, 0.622)
pt3dadd(262.487, 101.589, 28.911, 0.614)
pt3dadd(262.603, 101.616, 28.91, 0.606)
pt3dadd(262.72, 101.644, 28.909, 0.598)
pt3dadd(262.832, 101.685, 28.908, 0.586)
pt3dadd(262.944, 101.729, 28.906, 0.572)
pt3dadd(263.056, 101.773, 28.905, 0.558)
pt3dadd(263.167, 101.817, 28.904, 0.546)
pt3dadd(263.279, 101.862, 28.902, 0.532)
pt3dadd(263.39, 101.906, 28.901, 0.518)
pt3dadd(263.502, 101.95, 28.9, 0.504)
pt3dadd(263.614, 101.995, 28.898, 0.492)
pt3dadd(263.725, 102.039, 28.897, 0.478)
pt3dadd(263.837, 102.083, 28.896, 0.464)
}
}
proc shape3d_149() {
dend_7[23] { pt3dadd(263.952, 102.115, 28.893, 0.45)
pt3dadd(264.068, 102.145, 28.891, 0.436)
pt3dadd(264.185, 102.174, 28.888, 0.422)
pt3dadd(264.301, 102.203, 28.885, 0.408)
pt3dadd(264.418, 102.232, 28.883, 0.394)
pt3dadd(264.534, 102.261, 28.88, 0.38)
pt3dadd(264.649, 102.291, 28.877, 0.366)
pt3dadd(264.766, 102.32, 28.875, 0.352)
pt3dadd(264.882, 102.349, 28.872, 0.338)
pt3dadd(264.998, 102.378, 28.869, 0.324)
pt3dadd(265.116, 102.402, 28.865, 0.314)
pt3dadd(265.234, 102.425, 28.861, 0.304)
pt3dadd(265.351, 102.448, 28.857, 0.294)
pt3dadd(265.47, 102.47, 28.853, 0.286)
pt3dadd(265.588, 102.493, 28.849, 0.276)
pt3dadd(265.705, 102.516, 28.845, 0.266)
pt3dadd(265.823, 102.538, 28.841, 0.256)
pt3dadd(265.94, 102.561, 28.836, 0.248)
pt3dadd(266.058, 102.584, 28.832, 0.238)
pt3dadd(266.176, 102.607, 28.828, 0.228)
pt3dadd(266.294, 102.62, 28.822, 0.226)
pt3dadd(266.414, 102.632, 28.815, 0.226)
pt3dadd(266.533, 102.643, 28.808, 0.226)
pt3dadd(266.652, 102.654, 28.801, 0.226)
pt3dadd(266.771, 102.666, 28.794, 0.226)
pt3dadd(266.891, 102.677, 28.787, 0.226)
pt3dadd(267.01, 102.689, 28.78, 0.226)
pt3dadd(267.128, 102.7, 28.773, 0.226)
pt3dadd(267.248, 102.711, 28.766, 0.226)
pt3dadd(267.367, 102.723, 28.759, 0.226)
pt3dadd(267.486, 102.725, 28.749, 0.226)
pt3dadd(267.606, 102.725, 28.739, 0.226)
pt3dadd(267.725, 102.724, 28.728, 0.226)
pt3dadd(267.845, 102.724, 28.718, 0.226)
pt3dadd(267.964, 102.724, 28.707, 0.226)
pt3dadd(268.084, 102.724, 28.697, 0.226)
pt3dadd(268.202, 102.724, 28.687, 0.226)
pt3dadd(268.322, 102.724, 28.676, 0.226)
pt3dadd(268.441, 102.724, 28.666, 0.226)
pt3dadd(268.56, 102.724, 28.655, 0.226)
pt3dadd(268.679, 102.72, 28.64, 0.228)
pt3dadd(268.798, 102.715, 28.624, 0.23)
pt3dadd(268.916, 102.71, 28.608, 0.232)
pt3dadd(269.034, 102.706, 28.592, 0.234)
pt3dadd(269.153, 102.701, 28.576, 0.238)
pt3dadd(269.27, 102.696, 28.56, 0.24)
pt3dadd(269.389, 102.691, 28.544, 0.242)
pt3dadd(269.508, 102.687, 28.528, 0.244)
pt3dadd(269.626, 102.682, 28.512, 0.246)
pt3dadd(269.744, 102.677, 28.496, 0.248)
pt3dadd(269.856, 102.669, 28.461, 0.26)
pt3dadd(269.968, 102.66, 28.424, 0.274)
pt3dadd(270.078, 102.651, 28.387, 0.288)
pt3dadd(270.19, 102.642, 28.35, 0.3)
pt3dadd(270.3, 102.633, 28.313, 0.314)
pt3dadd(270.412, 102.624, 28.276, 0.328)
pt3dadd(270.522, 102.616, 28.239, 0.342)
pt3dadd(270.634, 102.607, 28.201, 0.354)
pt3dadd(270.745, 102.598, 28.164, 0.368)
pt3dadd(270.856, 102.589, 28.127, 0.382)
pt3dadd(270.968, 102.577, 28.096, 0.394)
pt3dadd(271.082, 102.565, 28.065, 0.408)
pt3dadd(271.196, 102.552, 28.034, 0.422)
pt3dadd(271.309, 102.54, 28.003, 0.436)
pt3dadd(271.423, 102.528, 27.972, 0.45)
pt3dadd(271.536, 102.516, 27.942, 0.464)
pt3dadd(271.65, 102.503, 27.911, 0.478)
pt3dadd(271.764, 102.491, 27.88, 0.49)
pt3dadd(271.877, 102.479, 27.849, 0.504)
pt3dadd(271.991, 102.467, 27.819, 0.518)
pt3dadd(272.106, 102.451, 27.794, 0.532)
pt3dadd(272.221, 102.435, 27.77, 0.546)
pt3dadd(272.336, 102.419, 27.747, 0.56)
pt3dadd(272.453, 102.403, 27.723, 0.574)
pt3dadd(272.568, 102.387, 27.699, 0.588)
pt3dadd(272.683, 102.371, 27.675, 0.602)
pt3dadd(272.798, 102.355, 27.651, 0.616)
pt3dadd(272.914, 102.339, 27.627, 0.63)
pt3dadd(273.03, 102.323, 27.604, 0.644)
pt3dadd(273.145, 102.307, 27.58, 0.658)
pt3dadd(273.256, 102.266, 27.567, 0.724)
pt3dadd(273.366, 102.221, 27.554, 0.794)
pt3dadd(273.478, 102.177, 27.542, 0.866)
pt3dadd(273.588, 102.133, 27.53, 0.936)
pt3dadd(273.698, 102.088, 27.518, 1.008)
pt3dadd(273.809, 102.044, 27.506, 1.08)
pt3dadd(273.919, 102, 27.494, 1.15)
pt3dadd(274.03, 101.955, 27.482, 1.222)
pt3dadd(274.14, 101.911, 27.469, 1.292)
pt3dadd(274.25, 101.867, 27.457, 1.364)
pt3dadd(274.361, 101.82, 27.448, 1.422)
pt3dadd(274.47, 101.772, 27.44, 1.48)
pt3dadd(274.58, 101.725, 27.431, 1.538)
pt3dadd(274.69, 101.678, 27.423, 1.596)
pt3dadd(274.8, 101.63, 27.414, 1.654)
pt3dadd(274.909, 101.583, 27.406, 1.712)
pt3dadd(275.02, 101.536, 27.397, 1.77)
pt3dadd(275.129, 101.488, 27.388, 1.828)
pt3dadd(275.239, 101.441, 27.38, 1.886)
pt3dadd(275.348, 101.394, 27.371, 1.944)
pt3dadd(275.462, 101.353, 27.371, 1.892)
pt3dadd(275.575, 101.313, 27.371, 1.838)
pt3dadd(275.688, 101.273, 27.371, 1.782)
pt3dadd(275.801, 101.232, 27.371, 1.728)
pt3dadd(275.914, 101.192, 27.371, 1.672)
pt3dadd(276.026, 101.152, 27.371, 1.618)
pt3dadd(276.14, 101.111, 27.371, 1.564)
pt3dadd(276.253, 101.071, 27.371, 1.508)
pt3dadd(276.366, 101.031, 27.371, 1.454)
pt3dadd(276.479, 100.99, 27.371, 1.398)
pt3dadd(276.593, 100.954, 27.371, 1.356)
pt3dadd(276.708, 100.917, 27.371, 1.314)
pt3dadd(276.822, 100.881, 27.371, 1.272)
pt3dadd(276.936, 100.844, 27.371, 1.228)
pt3dadd(277.051, 100.808, 27.371, 1.186)
pt3dadd(277.165, 100.771, 27.371, 1.144)
pt3dadd(277.279, 100.735, 27.371, 1.102)
pt3dadd(277.393, 100.698, 27.371, 1.06)
pt3dadd(277.508, 100.662, 27.371, 1.018)
pt3dadd(277.622, 100.625, 27.371, 0.974)
pt3dadd(277.738, 100.592, 27.371, 0.944)
pt3dadd(277.853, 100.558, 27.371, 0.914)
pt3dadd(277.968, 100.525, 27.371, 0.884)
pt3dadd(278.083, 100.491, 27.371, 0.854)
pt3dadd(278.198, 100.458, 27.371, 0.824)
pt3dadd(278.314, 100.424, 27.371, 0.794)
pt3dadd(278.429, 100.391, 27.371, 0.762)
pt3dadd(278.544, 100.357, 27.371, 0.732)
pt3dadd(278.659, 100.323, 27.371, 0.702)
pt3dadd(278.774, 100.29, 27.371, 0.672)
pt3dadd(278.878, 100.228, 27.371, 0.65)
pt3dadd(278.981, 100.167, 27.371, 0.628)
pt3dadd(279.083, 100.105, 27.371, 0.606)
pt3dadd(279.186, 100.043, 27.371, 0.582)
pt3dadd(279.289, 99.982, 27.371, 0.56)
pt3dadd(279.392, 99.92, 27.371, 0.538)
pt3dadd(279.494, 99.858, 27.371, 0.516)
pt3dadd(279.598, 99.797, 27.371, 0.494)
pt3dadd(279.701, 99.735, 27.371, 0.472)
pt3dadd(279.804, 99.673, 27.371, 0.45)
pt3dadd(279.907, 99.612, 27.371, 0.426)
pt3dadd(280.009, 99.55, 27.371, 0.404)
pt3dadd(280.112, 99.488, 27.371, 0.382)
pt3dadd(280.216, 99.426, 27.371, 0.36)
pt3dadd(280.318, 99.364, 27.371, 0.338)
pt3dadd(280.421, 99.302, 27.371, 0.316)
pt3dadd(280.524, 99.241, 27.371, 0.292)
pt3dadd(280.627, 99.179, 27.371, 0.27)
pt3dadd(280.729, 99.117, 27.371, 0.248)
pt3dadd(280.832, 99.055, 27.371, 0.226)
}
dend_7[24] {pt3dclear()
pt3dadd(190.284, 101.988, 15.237, 0.904)
pt3dadd(190.321, 102.001, 15.231, 0.896)
pt3dadd(190.433, 102.04, 15.213, 0.876)
pt3dadd(190.544, 102.08, 15.195, 0.854)
pt3dadd(190.655, 102.119, 15.177, 0.832)
pt3dadd(190.766, 102.158, 15.159, 0.81)
pt3dadd(190.878, 102.197, 15.141, 0.79)
pt3dadd(190.99, 102.236, 15.123, 0.768)
pt3dadd(191.101, 102.275, 15.104, 0.746)
pt3dadd(191.212, 102.314, 15.087, 0.724)
pt3dadd(191.323, 102.354, 15.068, 0.702)
pt3dadd(191.435, 102.393, 15.05, 0.682)
pt3dadd(191.546, 102.432, 15.032, 0.66)
pt3dadd(191.658, 102.471, 15.014, 0.638)
pt3dadd(191.768, 102.51, 14.996, 0.616)
pt3dadd(191.88, 102.549, 14.978, 0.596)
pt3dadd(191.992, 102.581, 14.951, 0.582)
pt3dadd(192.102, 102.61, 14.921, 0.572)
pt3dadd(192.212, 102.639, 14.89, 0.562)
pt3dadd(192.323, 102.668, 14.86, 0.554)
pt3dadd(192.433, 102.697, 14.829, 0.544)
pt3dadd(192.544, 102.726, 14.798, 0.534)
pt3dadd(192.654, 102.755, 14.768, 0.524)
pt3dadd(192.764, 102.784, 14.737, 0.514)
pt3dadd(192.875, 102.813, 14.707, 0.504)
pt3dadd(192.985, 102.842, 14.676, 0.494)
pt3dadd(193.09, 102.854, 14.627, 0.504)
pt3dadd(193.192, 102.864, 14.576, 0.516)
pt3dadd(193.295, 102.873, 14.526, 0.528)
pt3dadd(193.398, 102.883, 14.475, 0.54)
pt3dadd(193.501, 102.893, 14.424, 0.55)
pt3dadd(193.604, 102.903, 14.373, 0.562)
pt3dadd(193.706, 102.913, 14.323, 0.574)
pt3dadd(193.81, 102.923, 14.272, 0.584)
pt3dadd(193.913, 102.933, 14.221, 0.596)
pt3dadd(194.016, 102.942, 14.17, 0.608)
pt3dadd(194.124, 102.955, 14.128, 0.622)
pt3dadd(194.232, 102.968, 14.086, 0.634)
pt3dadd(194.34, 102.98, 14.045, 0.648)
pt3dadd(194.448, 102.993, 14.003, 0.662)
pt3dadd(194.557, 103.006, 13.961, 0.676)
pt3dadd(194.665, 103.018, 13.92, 0.688)
pt3dadd(194.773, 103.031, 13.878, 0.702)
pt3dadd(194.882, 103.044, 13.837, 0.716)
pt3dadd(194.99, 103.056, 13.795, 0.73)
pt3dadd(195.098, 103.069, 13.753, 0.742)
pt3dadd(195.214, 103.086, 13.726, 0.758)
pt3dadd(195.328, 103.103, 13.699, 0.774)
pt3dadd(195.442, 103.119, 13.672, 0.792)
pt3dadd(195.556, 103.136, 13.645, 0.808)
}
}
proc shape3d_150() {
dend_7[24] { pt3dadd(195.671, 103.153, 13.618, 0.824)
pt3dadd(195.785, 103.169, 13.591, 0.84)
pt3dadd(195.899, 103.186, 13.564, 0.856)
pt3dadd(196.013, 103.203, 13.537, 0.872)
pt3dadd(196.128, 103.219, 13.51, 0.888)
pt3dadd(196.242, 103.236, 13.483, 0.904)
}
dend_7[25] {pt3dclear()
pt3dadd(196.242, 103.236, 13.483, 0.904)
pt3dadd(196.273, 103.244, 13.48, 0.892)
pt3dadd(196.388, 103.275, 13.47, 0.846)
pt3dadd(196.504, 103.305, 13.459, 0.8)
pt3dadd(196.619, 103.336, 13.449, 0.754)
pt3dadd(196.734, 103.366, 13.438, 0.708)
pt3dadd(196.849, 103.397, 13.428, 0.664)
pt3dadd(196.964, 103.428, 13.417, 0.618)
pt3dadd(197.081, 103.458, 13.406, 0.572)
pt3dadd(197.196, 103.489, 13.396, 0.526)
pt3dadd(197.311, 103.519, 13.385, 0.48)
pt3dadd(197.426, 103.55, 13.375, 0.434)
pt3dadd(197.542, 103.581, 13.364, 0.39)
pt3dadd(197.648, 103.635, 13.361, 0.368)
pt3dadd(197.752, 103.694, 13.358, 0.352)
pt3dadd(197.856, 103.754, 13.356, 0.336)
pt3dadd(197.96, 103.813, 13.354, 0.32)
pt3dadd(198.065, 103.872, 13.352, 0.304)
pt3dadd(198.169, 103.932, 13.349, 0.29)
pt3dadd(198.274, 103.991, 13.347, 0.274)
pt3dadd(198.378, 104.051, 13.345, 0.258)
pt3dadd(198.481, 104.11, 13.343, 0.242)
pt3dadd(198.586, 104.17, 13.341, 0.226)
pt3dadd(198.682, 104.242, 13.343, 0.226)
pt3dadd(198.778, 104.315, 13.345, 0.226)
pt3dadd(198.872, 104.387, 13.347, 0.226)
pt3dadd(198.968, 104.46, 13.349, 0.226)
pt3dadd(199.064, 104.532, 13.351, 0.226)
pt3dadd(199.159, 104.605, 13.353, 0.226)
pt3dadd(199.255, 104.677, 13.355, 0.226)
pt3dadd(199.351, 104.749, 13.358, 0.226)
pt3dadd(199.446, 104.822, 13.36, 0.226)
pt3dadd(199.542, 104.894, 13.362, 0.226)
}
dend_7[26] {pt3dclear()
pt3dadd(199.542, 104.894, 13.362, 0.226)
pt3dadd(199.6, 104.994, 13.367, 0.226)
pt3dadd(199.658, 105.098, 13.373, 0.226)
pt3dadd(199.718, 105.202, 13.378, 0.226)
pt3dadd(199.778, 105.306, 13.384, 0.226)
pt3dadd(199.838, 105.41, 13.389, 0.226)
pt3dadd(199.897, 105.513, 13.395, 0.226)
pt3dadd(199.957, 105.617, 13.4, 0.226)
pt3dadd(200.017, 105.721, 13.406, 0.226)
pt3dadd(200.077, 105.825, 13.411, 0.226)
pt3dadd(200.137, 105.929, 13.417, 0.226)
pt3dadd(200.196, 106.033, 13.422, 0.226)
pt3dadd(200.256, 106.137, 13.428, 0.226)
pt3dadd(200.316, 106.241, 13.433, 0.226)
pt3dadd(200.376, 106.344, 13.439, 0.226)
pt3dadd(200.437, 106.447, 13.446, 0.236)
pt3dadd(200.497, 106.55, 13.453, 0.246)
pt3dadd(200.558, 106.653, 13.46, 0.256)
pt3dadd(200.62, 106.756, 13.467, 0.266)
pt3dadd(200.681, 106.859, 13.474, 0.276)
pt3dadd(200.742, 106.962, 13.482, 0.284)
pt3dadd(200.802, 107.065, 13.489, 0.294)
pt3dadd(200.863, 107.168, 13.496, 0.304)
pt3dadd(200.924, 107.271, 13.503, 0.314)
pt3dadd(200.986, 107.374, 13.51, 0.324)
pt3dadd(201.047, 107.477, 13.518, 0.336)
pt3dadd(201.108, 107.58, 13.525, 0.348)
pt3dadd(201.169, 107.682, 13.533, 0.36)
pt3dadd(201.232, 107.785, 13.54, 0.374)
pt3dadd(201.293, 107.888, 13.548, 0.386)
pt3dadd(201.354, 107.99, 13.556, 0.398)
pt3dadd(201.415, 108.093, 13.563, 0.41)
pt3dadd(201.476, 108.196, 13.571, 0.422)
pt3dadd(201.539, 108.298, 13.578, 0.436)
pt3dadd(201.599, 108.401, 13.587, 0.448)
pt3dadd(201.642, 108.508, 13.616, 0.46)
pt3dadd(201.685, 108.615, 13.645, 0.474)
pt3dadd(201.727, 108.721, 13.673, 0.486)
pt3dadd(201.77, 108.828, 13.702, 0.5)
pt3dadd(201.814, 108.934, 13.73, 0.512)
pt3dadd(201.857, 109.041, 13.759, 0.524)
pt3dadd(201.9, 109.148, 13.788, 0.538)
pt3dadd(201.943, 109.254, 13.816, 0.55)
pt3dadd(201.986, 109.361, 13.845, 0.564)
pt3dadd(202.03, 109.467, 13.873, 0.576)
pt3dadd(202.076, 109.574, 13.899, 0.592)
pt3dadd(202.123, 109.68, 13.925, 0.606)
pt3dadd(202.169, 109.786, 13.951, 0.622)
pt3dadd(202.216, 109.892, 13.977, 0.638)
pt3dadd(202.261, 109.998, 14.003, 0.652)
pt3dadd(202.308, 110.105, 14.029, 0.668)
pt3dadd(202.354, 110.211, 14.055, 0.684)
pt3dadd(202.4, 110.317, 14.081, 0.698)
pt3dadd(202.447, 110.423, 14.107, 0.714)
pt3dadd(202.495, 110.529, 14.131, 0.73)
pt3dadd(202.555, 110.632, 14.143, 0.756)
pt3dadd(202.616, 110.734, 14.154, 0.78)
pt3dadd(202.678, 110.837, 14.166, 0.806)
pt3dadd(202.738, 110.939, 14.177, 0.83)
pt3dadd(202.799, 111.042, 14.188, 0.854)
pt3dadd(202.859, 111.145, 14.2, 0.88)
pt3dadd(202.92, 111.247, 14.211, 0.904)
pt3dadd(202.981, 111.35, 14.223, 0.928)
pt3dadd(203.041, 111.452, 14.234, 0.954)
pt3dadd(203.101, 111.555, 14.244, 0.976)
pt3dadd(203.156, 111.662, 14.241, 0.992)
pt3dadd(203.21, 111.769, 14.239, 1.008)
pt3dadd(203.266, 111.876, 14.236, 1.024)
pt3dadd(203.321, 111.982, 14.234, 1.04)
pt3dadd(203.375, 112.089, 14.231, 1.056)
pt3dadd(203.43, 112.196, 14.229, 1.072)
pt3dadd(203.484, 112.303, 14.226, 1.088)
pt3dadd(203.539, 112.41, 14.224, 1.104)
pt3dadd(203.594, 112.516, 14.221, 1.12)
pt3dadd(203.645, 112.623, 14.211, 1.13)
pt3dadd(203.686, 112.732, 14.185, 1.13)
pt3dadd(203.728, 112.84, 14.16, 1.13)
pt3dadd(203.77, 112.948, 14.134, 1.13)
pt3dadd(203.812, 113.056, 14.108, 1.13)
pt3dadd(203.852, 113.164, 14.083, 1.13)
pt3dadd(203.894, 113.273, 14.057, 1.13)
pt3dadd(203.936, 113.381, 14.031, 1.13)
pt3dadd(203.978, 113.489, 14.006, 1.13)
pt3dadd(204.02, 113.597, 13.98, 1.13)
pt3dadd(204.065, 113.704, 13.955, 1.124)
pt3dadd(204.118, 113.809, 13.933, 1.108)
pt3dadd(204.169, 113.914, 13.911, 1.092)
pt3dadd(204.221, 114.019, 13.889, 1.076)
pt3dadd(204.274, 114.123, 13.867, 1.06)
pt3dadd(204.325, 114.228, 13.845, 1.042)
pt3dadd(204.378, 114.333, 13.822, 1.026)
pt3dadd(204.43, 114.438, 13.8, 1.01)
pt3dadd(204.482, 114.543, 13.778, 0.994)
pt3dadd(204.534, 114.647, 13.756, 0.978)
pt3dadd(204.588, 114.751, 13.734, 0.958)
pt3dadd(204.646, 114.854, 13.714, 0.932)
pt3dadd(204.703, 114.956, 13.694, 0.908)
pt3dadd(204.761, 115.059, 13.674, 0.882)
pt3dadd(204.818, 115.161, 13.654, 0.858)
pt3dadd(204.875, 115.264, 13.634, 0.832)
pt3dadd(204.932, 115.366, 13.613, 0.808)
pt3dadd(204.99, 115.469, 13.593, 0.782)
pt3dadd(205.048, 115.571, 13.573, 0.758)
pt3dadd(205.105, 115.674, 13.553, 0.732)
pt3dadd(205.158, 115.78, 13.536, 0.716)
pt3dadd(205.2, 115.891, 13.526, 0.712)
pt3dadd(205.243, 116.003, 13.517, 0.708)
pt3dadd(205.285, 116.114, 13.507, 0.704)
pt3dadd(205.328, 116.226, 13.497, 0.7)
pt3dadd(205.372, 116.337, 13.487, 0.696)
pt3dadd(205.414, 116.449, 13.477, 0.692)
pt3dadd(205.457, 116.56, 13.467, 0.688)
pt3dadd(205.499, 116.672, 13.457, 0.684)
pt3dadd(205.542, 116.783, 13.447, 0.68)
pt3dadd(205.583, 116.896, 13.44, 0.68)
pt3dadd(205.622, 117.009, 13.435, 0.688)
pt3dadd(205.661, 117.122, 13.431, 0.694)
pt3dadd(205.699, 117.236, 13.426, 0.702)
pt3dadd(205.738, 117.349, 13.422, 0.708)
pt3dadd(205.777, 117.463, 13.417, 0.716)
pt3dadd(205.816, 117.576, 13.413, 0.722)
pt3dadd(205.854, 117.69, 13.408, 0.73)
pt3dadd(205.894, 117.803, 13.404, 0.736)
pt3dadd(205.932, 117.917, 13.399, 0.744)
pt3dadd(205.969, 118.03, 13.4, 0.76)
pt3dadd(206.004, 118.145, 13.407, 0.788)
pt3dadd(206.039, 118.26, 13.414, 0.818)
pt3dadd(206.074, 118.374, 13.421, 0.848)
pt3dadd(206.108, 118.488, 13.429, 0.878)
pt3dadd(206.143, 118.603, 13.436, 0.908)
pt3dadd(206.178, 118.718, 13.443, 0.938)
pt3dadd(206.213, 118.832, 13.45, 0.968)
pt3dadd(206.248, 118.947, 13.458, 0.998)
pt3dadd(206.282, 119.061, 13.465, 1.026)
pt3dadd(206.324, 119.172, 13.473, 1.04)
pt3dadd(206.378, 119.279, 13.484, 1.028)
pt3dadd(206.432, 119.385, 13.494, 1.016)
pt3dadd(206.486, 119.492, 13.504, 1.006)
pt3dadd(206.54, 119.598, 13.514, 0.994)
pt3dadd(206.594, 119.705, 13.524, 0.982)
pt3dadd(206.648, 119.811, 13.535, 0.97)
pt3dadd(206.702, 119.918, 13.545, 0.96)
pt3dadd(206.756, 120.024, 13.555, 0.948)
pt3dadd(206.81, 120.131, 13.565, 0.936)
pt3dadd(206.868, 120.234, 13.577, 0.92)
pt3dadd(206.93, 120.336, 13.592, 0.898)
pt3dadd(206.993, 120.437, 13.607, 0.876)
pt3dadd(207.055, 120.538, 13.622, 0.854)
pt3dadd(207.118, 120.638, 13.637, 0.832)
pt3dadd(207.18, 120.739, 13.652, 0.81)
pt3dadd(207.241, 120.841, 13.667, 0.788)
pt3dadd(207.304, 120.942, 13.682, 0.766)
pt3dadd(207.366, 121.043, 13.697, 0.744)
pt3dadd(207.428, 121.144, 13.712, 0.722)
pt3dadd(207.493, 121.235, 13.743, 0.73)
pt3dadd(207.562, 121.316, 13.79, 0.762)
pt3dadd(207.629, 121.398, 13.836, 0.796)
pt3dadd(207.697, 121.48, 13.883, 0.83)
pt3dadd(207.764, 121.562, 13.929, 0.864)
pt3dadd(207.833, 121.644, 13.976, 0.896)
pt3dadd(207.9, 121.726, 14.022, 0.93)
}
}
proc shape3d_151() {
dend_7[26] { pt3dadd(207.968, 121.807, 14.068, 0.964)
pt3dadd(208.037, 121.889, 14.115, 0.998)
pt3dadd(208.104, 121.972, 14.161, 1.03)
pt3dadd(208.178, 122.053, 14.198, 1.04)
pt3dadd(208.259, 122.135, 14.227, 1.028)
pt3dadd(208.339, 122.218, 14.256, 1.016)
pt3dadd(208.42, 122.299, 14.285, 1.004)
pt3dadd(208.5, 122.381, 14.314, 0.992)
pt3dadd(208.58, 122.464, 14.343, 0.982)
pt3dadd(208.661, 122.545, 14.372, 0.97)
pt3dadd(208.741, 122.628, 14.401, 0.958)
pt3dadd(208.822, 122.71, 14.43, 0.946)
pt3dadd(208.902, 122.791, 14.459, 0.934)
pt3dadd(208.985, 122.873, 14.484, 0.914)
pt3dadd(209.069, 122.954, 14.506, 0.892)
pt3dadd(209.153, 123.036, 14.528, 0.868)
pt3dadd(209.237, 123.118, 14.55, 0.844)
pt3dadd(209.321, 123.199, 14.572, 0.82)
pt3dadd(209.405, 123.281, 14.595, 0.796)
pt3dadd(209.489, 123.362, 14.617, 0.772)
pt3dadd(209.573, 123.444, 14.639, 0.75)
pt3dadd(209.657, 123.526, 14.661, 0.726)
pt3dadd(209.741, 123.607, 14.683, 0.702)
pt3dadd(209.826, 123.689, 14.697, 0.706)
pt3dadd(209.912, 123.77, 14.706, 0.73)
pt3dadd(210, 123.853, 14.715, 0.754)
pt3dadd(210.086, 123.935, 14.724, 0.778)
pt3dadd(210.173, 124.018, 14.733, 0.8)
pt3dadd(210.26, 124.099, 14.742, 0.824)
pt3dadd(210.347, 124.182, 14.751, 0.848)
pt3dadd(210.433, 124.264, 14.76, 0.872)
pt3dadd(210.52, 124.346, 14.77, 0.894)
pt3dadd(210.607, 124.428, 14.779, 0.918)
pt3dadd(210.694, 124.511, 14.787, 0.936)
pt3dadd(210.781, 124.592, 14.795, 0.95)
pt3dadd(210.868, 124.674, 14.803, 0.964)
pt3dadd(210.955, 124.757, 14.81, 0.98)
pt3dadd(211.043, 124.838, 14.818, 0.994)
pt3dadd(211.129, 124.92, 14.826, 1.008)
pt3dadd(211.217, 125.002, 14.834, 1.022)
pt3dadd(211.304, 125.084, 14.842, 1.036)
pt3dadd(211.391, 125.166, 14.85, 1.05)
pt3dadd(211.478, 125.248, 14.858, 1.064)
pt3dadd(211.567, 125.329, 14.861, 1.042)
pt3dadd(211.656, 125.408, 14.861, 1)
pt3dadd(211.746, 125.489, 14.861, 0.956)
pt3dadd(211.835, 125.569, 14.861, 0.914)
pt3dadd(211.925, 125.648, 14.861, 0.87)
pt3dadd(212.014, 125.729, 14.861, 0.828)
pt3dadd(212.104, 125.809, 14.861, 0.784)
pt3dadd(212.192, 125.888, 14.861, 0.74)
pt3dadd(212.282, 125.969, 14.861, 0.698)
pt3dadd(212.372, 126.049, 14.862, 0.654)
pt3dadd(212.461, 126.128, 14.862, 0.614)
pt3dadd(212.551, 126.209, 14.862, 0.572)
pt3dadd(212.641, 126.288, 14.862, 0.532)
pt3dadd(212.73, 126.368, 14.862, 0.49)
pt3dadd(212.82, 126.448, 14.862, 0.45)
pt3dadd(212.91, 126.528, 14.862, 0.41)
pt3dadd(212.999, 126.607, 14.862, 0.368)
pt3dadd(213.089, 126.688, 14.862, 0.328)
pt3dadd(213.179, 126.767, 14.863, 0.288)
pt3dadd(213.268, 126.847, 14.863, 0.246)
pt3dadd(213.36, 126.923, 14.863, 0.238)
pt3dadd(213.454, 126.998, 14.863, 0.25)
pt3dadd(213.547, 127.073, 14.863, 0.26)
pt3dadd(213.642, 127.148, 14.863, 0.272)
pt3dadd(213.736, 127.223, 14.864, 0.284)
pt3dadd(213.829, 127.298, 14.864, 0.294)
pt3dadd(213.923, 127.373, 14.864, 0.306)
pt3dadd(214.016, 127.447, 14.865, 0.318)
pt3dadd(214.11, 127.523, 14.865, 0.328)
pt3dadd(214.204, 127.597, 14.865, 0.34)
pt3dadd(214.298, 127.672, 14.865, 0.352)
pt3dadd(214.393, 127.745, 14.865, 0.364)
pt3dadd(214.488, 127.819, 14.866, 0.378)
pt3dadd(214.583, 127.892, 14.866, 0.39)
pt3dadd(214.678, 127.967, 14.866, 0.404)
pt3dadd(214.772, 128.04, 14.866, 0.416)
pt3dadd(214.867, 128.113, 14.867, 0.428)
pt3dadd(214.961, 128.188, 14.867, 0.442)
pt3dadd(215.056, 128.261, 14.867, 0.454)
pt3dadd(215.15, 128.335, 14.867, 0.466)
pt3dadd(215.255, 128.393, 14.868, 0.496)
pt3dadd(215.364, 128.442, 14.868, 0.536)
pt3dadd(215.473, 128.491, 14.869, 0.576)
pt3dadd(215.584, 128.54, 14.87, 0.616)
pt3dadd(215.693, 128.59, 14.87, 0.656)
pt3dadd(215.802, 128.639, 14.871, 0.696)
pt3dadd(215.911, 128.688, 14.871, 0.736)
pt3dadd(216.02, 128.737, 14.872, 0.776)
pt3dadd(216.131, 128.786, 14.873, 0.814)
pt3dadd(216.24, 128.836, 14.873, 0.854)
pt3dadd(216.35, 128.881, 14.874, 0.88)
pt3dadd(216.463, 128.924, 14.875, 0.896)
pt3dadd(216.575, 128.968, 14.876, 0.912)
pt3dadd(216.686, 129.011, 14.876, 0.928)
pt3dadd(216.799, 129.054, 14.877, 0.946)
pt3dadd(216.911, 129.097, 14.878, 0.962)
pt3dadd(217.022, 129.14, 14.879, 0.978)
pt3dadd(217.135, 129.184, 14.88, 0.994)
pt3dadd(217.247, 129.227, 14.881, 1.01)
pt3dadd(217.358, 129.27, 14.882, 1.026)
pt3dadd(217.474, 129.305, 14.883, 1.014)
pt3dadd(217.589, 129.336, 14.884, 0.986)
pt3dadd(217.705, 129.367, 14.886, 0.958)
pt3dadd(217.82, 129.398, 14.887, 0.928)
pt3dadd(217.937, 129.43, 14.888, 0.9)
pt3dadd(218.052, 129.461, 14.89, 0.872)
pt3dadd(218.168, 129.492, 14.891, 0.844)
pt3dadd(218.284, 129.523, 14.892, 0.816)
pt3dadd(218.4, 129.554, 14.894, 0.788)
pt3dadd(218.515, 129.586, 14.895, 0.758)
pt3dadd(218.628, 129.629, 14.897, 0.758)
pt3dadd(218.737, 129.677, 14.9, 0.77)
pt3dadd(218.846, 129.726, 14.902, 0.784)
pt3dadd(218.957, 129.775, 14.904, 0.796)
pt3dadd(219.066, 129.823, 14.907, 0.808)
pt3dadd(219.175, 129.872, 14.909, 0.822)
pt3dadd(219.286, 129.92, 14.911, 0.834)
pt3dadd(219.395, 129.97, 14.914, 0.848)
pt3dadd(219.505, 130.018, 14.916, 0.86)
pt3dadd(219.614, 130.067, 14.918, 0.872)
pt3dadd(219.722, 130.12, 14.921, 0.894)
pt3dadd(219.829, 130.174, 14.924, 0.92)
pt3dadd(219.936, 130.228, 14.927, 0.946)
pt3dadd(220.044, 130.282, 14.929, 0.972)
pt3dadd(220.151, 130.336, 14.932, 0.998)
pt3dadd(220.258, 130.39, 14.935, 1.024)
pt3dadd(220.364, 130.444, 14.938, 1.05)
pt3dadd(220.472, 130.498, 14.941, 1.076)
pt3dadd(220.579, 130.552, 14.943, 1.102)
pt3dadd(220.686, 130.606, 14.946, 1.128)
pt3dadd(220.795, 130.655, 14.952, 1.146)
pt3dadd(220.904, 130.704, 14.959, 1.16)
pt3dadd(221.014, 130.752, 14.966, 1.174)
pt3dadd(221.124, 130.8, 14.973, 1.188)
pt3dadd(221.233, 130.849, 14.979, 1.202)
pt3dadd(221.342, 130.897, 14.986, 1.218)
pt3dadd(221.452, 130.945, 14.993, 1.232)
pt3dadd(221.562, 130.993, 15, 1.246)
pt3dadd(221.671, 131.042, 15.007, 1.26)
pt3dadd(221.78, 131.09, 15.014, 1.274)
pt3dadd(221.887, 131.146, 15.022, 1.276)
pt3dadd(221.992, 131.203, 15.031, 1.27)
pt3dadd(222.096, 131.261, 15.04, 1.266)
pt3dadd(222.2, 131.318, 15.048, 1.262)
pt3dadd(222.306, 131.376, 15.057, 1.258)
pt3dadd(222.41, 131.434, 15.066, 1.254)
pt3dadd(222.515, 131.491, 15.074, 1.25)
pt3dadd(222.62, 131.549, 15.083, 1.246)
pt3dadd(222.725, 131.606, 15.092, 1.242)
pt3dadd(222.829, 131.664, 15.1, 1.238)
pt3dadd(222.929, 131.73, 15.111, 1.216)
pt3dadd(223.027, 131.798, 15.121, 1.19)
pt3dadd(223.124, 131.867, 15.132, 1.162)
pt3dadd(223.223, 131.935, 15.143, 1.136)
pt3dadd(223.32, 132.004, 15.154, 1.11)
pt3dadd(223.418, 132.072, 15.164, 1.082)
pt3dadd(223.516, 132.14, 15.175, 1.056)
pt3dadd(223.613, 132.209, 15.186, 1.03)
pt3dadd(223.711, 132.277, 15.196, 1.002)
pt3dadd(223.808, 132.346, 15.207, 0.976)
pt3dadd(223.9, 132.412, 15.239, 0.936)
pt3dadd(223.99, 132.478, 15.278, 0.89)
pt3dadd(224.078, 132.542, 15.316, 0.844)
pt3dadd(224.167, 132.608, 15.355, 0.798)
pt3dadd(224.256, 132.673, 15.394, 0.752)
pt3dadd(224.346, 132.739, 15.432, 0.708)
pt3dadd(224.435, 132.805, 15.471, 0.662)
pt3dadd(224.524, 132.871, 15.51, 0.616)
pt3dadd(224.612, 132.936, 15.549, 0.57)
pt3dadd(224.702, 133.002, 15.587, 0.524)
pt3dadd(224.789, 133.072, 15.625, 0.494)
pt3dadd(224.875, 133.141, 15.663, 0.464)
pt3dadd(224.962, 133.211, 15.7, 0.434)
pt3dadd(225.048, 133.28, 15.738, 0.404)
pt3dadd(225.134, 133.35, 15.776, 0.374)
pt3dadd(225.222, 133.421, 15.813, 0.346)
pt3dadd(225.308, 133.49, 15.851, 0.316)
pt3dadd(225.395, 133.56, 15.888, 0.286)
pt3dadd(225.481, 133.63, 15.926, 0.256)
pt3dadd(225.568, 133.699, 15.963, 0.226)
pt3dadd(225.655, 133.776, 15.988, 0.226)
pt3dadd(225.743, 133.853, 16.012, 0.226)
pt3dadd(225.83, 133.93, 16.036, 0.226)
pt3dadd(225.918, 134.006, 16.06, 0.226)
pt3dadd(226.006, 134.084, 16.084, 0.226)
pt3dadd(226.093, 134.161, 16.108, 0.226)
pt3dadd(226.181, 134.238, 16.131, 0.226)
pt3dadd(226.268, 134.315, 16.155, 0.226)
pt3dadd(226.356, 134.392, 16.179, 0.226)
pt3dadd(226.444, 134.468, 16.203, 0.226)
pt3dadd(226.535, 134.544, 16.216, 0.256)
pt3dadd(226.626, 134.621, 16.228, 0.286)
pt3dadd(226.718, 134.696, 16.241, 0.316)
pt3dadd(226.81, 134.772, 16.253, 0.348)
pt3dadd(226.901, 134.849, 16.265, 0.378)
pt3dadd(226.993, 134.924, 16.278, 0.408)
pt3dadd(227.084, 135, 16.29, 0.438)
}
}
proc shape3d_152() {
dend_7[26] { pt3dadd(227.176, 135.077, 16.303, 0.47)
pt3dadd(227.268, 135.152, 16.315, 0.5)
pt3dadd(227.359, 135.228, 16.327, 0.53)
pt3dadd(227.452, 135.304, 16.337, 0.568)
pt3dadd(227.544, 135.379, 16.347, 0.604)
pt3dadd(227.636, 135.455, 16.356, 0.642)
pt3dadd(227.73, 135.53, 16.366, 0.68)
pt3dadd(227.822, 135.606, 16.375, 0.716)
pt3dadd(227.915, 135.682, 16.385, 0.754)
pt3dadd(228.007, 135.757, 16.395, 0.792)
pt3dadd(228.1, 135.833, 16.404, 0.828)
pt3dadd(228.192, 135.908, 16.414, 0.866)
pt3dadd(228.284, 135.984, 16.423, 0.904)
pt3dadd(228.391, 136.038, 16.424, 0.904)
pt3dadd(228.499, 136.091, 16.424, 0.904)
pt3dadd(228.606, 136.145, 16.424, 0.904)
pt3dadd(228.714, 136.198, 16.424, 0.904)
pt3dadd(228.822, 136.252, 16.424, 0.904)
pt3dadd(228.929, 136.306, 16.424, 0.904)
pt3dadd(229.037, 136.358, 16.424, 0.904)
pt3dadd(229.144, 136.412, 16.424, 0.904)
pt3dadd(229.252, 136.465, 16.424, 0.904)
pt3dadd(229.358, 136.519, 16.424, 0.904)
pt3dadd(229.465, 136.573, 16.424, 0.908)
pt3dadd(229.572, 136.628, 16.424, 0.91)
pt3dadd(229.679, 136.684, 16.424, 0.914)
pt3dadd(229.786, 136.738, 16.424, 0.918)
pt3dadd(229.892, 136.793, 16.424, 0.92)
pt3dadd(229.999, 136.848, 16.425, 0.924)
pt3dadd(230.106, 136.902, 16.425, 0.926)
pt3dadd(230.213, 136.957, 16.425, 0.93)
pt3dadd(230.32, 137.012, 16.425, 0.934)
pt3dadd(230.426, 137.066, 16.425, 0.936)
pt3dadd(230.531, 137.125, 16.425, 0.95)
pt3dadd(230.635, 137.184, 16.425, 0.962)
pt3dadd(230.741, 137.243, 16.425, 0.974)
pt3dadd(230.845, 137.302, 16.425, 0.988)
pt3dadd(230.95, 137.36, 16.426, 1)
pt3dadd(231.054, 137.418, 16.426, 1.012)
pt3dadd(231.16, 137.477, 16.426, 1.026)
pt3dadd(231.264, 137.536, 16.426, 1.038)
pt3dadd(231.368, 137.594, 16.426, 1.05)
pt3dadd(231.474, 137.653, 16.426, 1.064)
pt3dadd(231.582, 137.702, 16.426, 1.058)
pt3dadd(231.691, 137.753, 16.427, 1.05)
pt3dadd(231.8, 137.803, 16.427, 1.044)
pt3dadd(231.91, 137.854, 16.427, 1.038)
pt3dadd(232.019, 137.903, 16.427, 1.032)
pt3dadd(232.128, 137.953, 16.427, 1.026)
pt3dadd(232.237, 138.004, 16.428, 1.02)
pt3dadd(232.346, 138.054, 16.428, 1.014)
pt3dadd(232.454, 138.103, 16.428, 1.008)
pt3dadd(232.564, 138.154, 16.428, 1)
pt3dadd(232.678, 138.193, 16.429, 0.974)
pt3dadd(232.79, 138.234, 16.429, 0.946)
pt3dadd(232.903, 138.274, 16.429, 0.918)
pt3dadd(233.016, 138.314, 16.429, 0.892)
pt3dadd(233.129, 138.354, 16.43, 0.864)
pt3dadd(233.243, 138.395, 16.43, 0.836)
pt3dadd(233.356, 138.434, 16.43, 0.81)
pt3dadd(233.468, 138.475, 16.431, 0.782)
pt3dadd(233.581, 138.515, 16.431, 0.756)
pt3dadd(233.695, 138.556, 16.431, 0.728)
pt3dadd(233.809, 138.593, 16.432, 0.712)
pt3dadd(233.923, 138.63, 16.432, 0.696)
pt3dadd(234.037, 138.667, 16.433, 0.678)
pt3dadd(234.151, 138.704, 16.434, 0.662)
pt3dadd(234.265, 138.742, 16.434, 0.646)
pt3dadd(234.379, 138.779, 16.435, 0.63)
pt3dadd(234.493, 138.816, 16.435, 0.614)
pt3dadd(234.607, 138.853, 16.436, 0.598)
pt3dadd(234.721, 138.89, 16.436, 0.58)
pt3dadd(234.835, 138.928, 16.437, 0.564)
pt3dadd(234.948, 138.968, 16.438, 0.554)
pt3dadd(235.061, 139.009, 16.438, 0.542)
pt3dadd(235.174, 139.05, 16.439, 0.53)
pt3dadd(235.286, 139.091, 16.44, 0.52)
pt3dadd(235.399, 139.133, 16.441, 0.508)
pt3dadd(235.512, 139.174, 16.441, 0.496)
pt3dadd(235.625, 139.214, 16.442, 0.486)
pt3dadd(235.738, 139.255, 16.443, 0.474)
pt3dadd(235.85, 139.296, 16.444, 0.462)
pt3dadd(235.963, 139.338, 16.444, 0.452)
pt3dadd(236.068, 139.397, 16.446, 0.452)
pt3dadd(236.172, 139.456, 16.447, 0.452)
pt3dadd(236.276, 139.514, 16.448, 0.452)
pt3dadd(236.381, 139.574, 16.45, 0.452)
pt3dadd(236.485, 139.633, 16.451, 0.452)
pt3dadd(236.59, 139.692, 16.452, 0.452)
pt3dadd(236.694, 139.751, 16.454, 0.452)
pt3dadd(236.798, 139.811, 16.455, 0.452)
pt3dadd(236.903, 139.87, 16.456, 0.452)
pt3dadd(237.007, 139.928, 16.458, 0.454)
pt3dadd(237.108, 139.994, 16.459, 0.472)
pt3dadd(237.209, 140.059, 16.461, 0.492)
pt3dadd(237.31, 140.124, 16.463, 0.512)
pt3dadd(237.41, 140.189, 16.465, 0.532)
pt3dadd(237.511, 140.254, 16.466, 0.552)
pt3dadd(237.612, 140.32, 16.468, 0.57)
pt3dadd(237.713, 140.384, 16.47, 0.59)
pt3dadd(237.814, 140.449, 16.472, 0.61)
pt3dadd(237.914, 140.514, 16.474, 0.63)
pt3dadd(238.015, 140.58, 16.476, 0.652)
pt3dadd(238.11, 140.653, 16.478, 0.7)
pt3dadd(238.205, 140.726, 16.48, 0.746)
pt3dadd(238.301, 140.798, 16.483, 0.794)
pt3dadd(238.396, 140.872, 16.485, 0.84)
pt3dadd(238.492, 140.945, 16.488, 0.888)
pt3dadd(238.586, 141.018, 16.49, 0.936)
pt3dadd(238.681, 141.091, 16.493, 0.982)
pt3dadd(238.777, 141.163, 16.495, 1.03)
pt3dadd(238.872, 141.236, 16.498, 1.078)
pt3dadd(238.968, 141.308, 16.5, 1.12)
pt3dadd(239.068, 141.376, 16.505, 1.11)
pt3dadd(239.167, 141.442, 16.509, 1.098)
pt3dadd(239.267, 141.508, 16.514, 1.088)
pt3dadd(239.368, 141.574, 16.519, 1.078)
pt3dadd(239.467, 141.641, 16.523, 1.068)
pt3dadd(239.567, 141.707, 16.528, 1.058)
pt3dadd(239.666, 141.773, 16.533, 1.048)
pt3dadd(239.767, 141.839, 16.538, 1.036)
pt3dadd(239.867, 141.906, 16.542, 1.026)
pt3dadd(239.966, 141.971, 16.547, 1.01)
pt3dadd(240.071, 142.031, 16.554, 0.942)
pt3dadd(240.175, 142.09, 16.561, 0.874)
pt3dadd(240.278, 142.148, 16.568, 0.808)
pt3dadd(240.383, 142.208, 16.574, 0.74)
pt3dadd(240.487, 142.267, 16.581, 0.672)
pt3dadd(240.59, 142.327, 16.588, 0.604)
pt3dadd(240.695, 142.386, 16.595, 0.536)
pt3dadd(240.799, 142.445, 16.602, 0.47)
pt3dadd(240.902, 142.505, 16.609, 0.402)
pt3dadd(241.007, 142.565, 16.616, 0.344)
pt3dadd(241.104, 142.633, 16.626, 0.378)
pt3dadd(241.202, 142.702, 16.637, 0.41)
pt3dadd(241.301, 142.769, 16.648, 0.442)
pt3dadd(241.398, 142.837, 16.658, 0.476)
pt3dadd(241.496, 142.906, 16.669, 0.508)
pt3dadd(241.594, 142.974, 16.679, 0.54)
pt3dadd(241.692, 143.042, 16.69, 0.572)
pt3dadd(241.79, 143.11, 16.7, 0.606)
pt3dadd(241.888, 143.178, 16.711, 0.638)
pt3dadd(241.986, 143.246, 16.722, 0.672)
pt3dadd(242.081, 143.317, 16.738, 0.716)
pt3dadd(242.177, 143.387, 16.754, 0.76)
pt3dadd(242.272, 143.458, 16.77, 0.806)
pt3dadd(242.368, 143.527, 16.786, 0.85)
pt3dadd(242.462, 143.597, 16.802, 0.894)
pt3dadd(242.558, 143.668, 16.818, 0.94)
pt3dadd(242.653, 143.737, 16.834, 0.984)
pt3dadd(242.749, 143.808, 16.85, 1.028)
pt3dadd(242.845, 143.878, 16.866, 1.074)
pt3dadd(242.938, 143.947, 16.888, 1.106)
pt3dadd(243.018, 144.014, 16.936, 1.088)
pt3dadd(243.1, 144.082, 16.984, 1.072)
pt3dadd(243.18, 144.149, 17.032, 1.056)
pt3dadd(243.262, 144.216, 17.08, 1.038)
pt3dadd(243.343, 144.283, 17.128, 1.022)
pt3dadd(243.424, 144.35, 17.176, 1.006)
pt3dadd(243.505, 144.418, 17.223, 0.988)
pt3dadd(243.586, 144.485, 17.271, 0.972)
pt3dadd(243.667, 144.552, 17.319, 0.956)
pt3dadd(243.749, 144.623, 17.363, 0.94)
pt3dadd(243.83, 144.702, 17.394, 0.924)
pt3dadd(243.911, 144.782, 17.425, 0.91)
pt3dadd(243.992, 144.863, 17.456, 0.896)
pt3dadd(244.074, 144.942, 17.487, 0.882)
pt3dadd(244.156, 145.022, 17.518, 0.868)
pt3dadd(244.237, 145.103, 17.549, 0.854)
pt3dadd(244.318, 145.182, 17.58, 0.84)
pt3dadd(244.399, 145.262, 17.61, 0.826)
pt3dadd(244.481, 145.343, 17.641, 0.81)
pt3dadd(244.562, 145.423, 17.67, 0.798)
pt3dadd(244.643, 145.507, 17.695, 0.784)
pt3dadd(244.723, 145.591, 17.72, 0.772)
pt3dadd(244.805, 145.675, 17.744, 0.76)
pt3dadd(244.885, 145.758, 17.769, 0.748)
pt3dadd(244.966, 145.842, 17.793, 0.736)
pt3dadd(245.047, 145.926, 17.818, 0.724)
pt3dadd(245.128, 146.009, 17.843, 0.712)
pt3dadd(245.208, 146.093, 17.867, 0.7)
pt3dadd(245.29, 146.177, 17.892, 0.688)
pt3dadd(245.37, 146.261, 17.914, 0.678)
pt3dadd(245.452, 146.347, 17.929, 0.678)
pt3dadd(245.532, 146.435, 17.944, 0.678)
pt3dadd(245.614, 146.521, 17.959, 0.678)
pt3dadd(245.694, 146.608, 17.973, 0.678)
pt3dadd(245.776, 146.694, 17.988, 0.678)
pt3dadd(245.857, 146.78, 18.003, 0.678)
pt3dadd(245.938, 146.868, 18.018, 0.678)
pt3dadd(246.019, 146.954, 18.033, 0.678)
pt3dadd(246.1, 147.041, 18.048, 0.678)
pt3dadd(246.181, 147.127, 18.063, 0.68)
pt3dadd(246.262, 147.215, 18.076, 0.684)
pt3dadd(246.343, 147.301, 18.09, 0.688)
pt3dadd(246.425, 147.389, 18.104, 0.692)
pt3dadd(246.505, 147.475, 18.117, 0.696)
pt3dadd(246.587, 147.562, 18.131, 0.702)
pt3dadd(246.667, 147.649, 18.144, 0.706)
pt3dadd(246.749, 147.736, 18.158, 0.71)
}
}
proc shape3d_153() {
dend_7[26] { pt3dadd(246.829, 147.823, 18.172, 0.714)
pt3dadd(246.911, 147.91, 18.185, 0.718)
pt3dadd(246.991, 147.997, 18.198, 0.728)
pt3dadd(247.072, 148.086, 18.206, 0.75)
pt3dadd(247.152, 148.174, 18.215, 0.772)
pt3dadd(247.234, 148.262, 18.224, 0.794)
pt3dadd(247.314, 148.351, 18.232, 0.816)
pt3dadd(247.394, 148.439, 18.241, 0.838)
pt3dadd(247.475, 148.528, 18.25, 0.86)
pt3dadd(247.555, 148.616, 18.258, 0.882)
pt3dadd(247.636, 148.704, 18.267, 0.904)
pt3dadd(247.716, 148.793, 18.275, 0.926)
pt3dadd(247.795, 148.882, 18.285, 0.946)
pt3dadd(247.874, 148.972, 18.298, 0.964)
pt3dadd(247.952, 149.062, 18.31, 0.982)
pt3dadd(248.03, 149.152, 18.323, 0.998)
pt3dadd(248.108, 149.242, 18.335, 1.014)
pt3dadd(248.186, 149.33, 18.347, 1.032)
pt3dadd(248.264, 149.42, 18.36, 1.05)
pt3dadd(248.342, 149.51, 18.373, 1.066)
pt3dadd(248.42, 149.6, 18.385, 1.082)
pt3dadd(248.498, 149.69, 18.398, 1.1)
pt3dadd(248.572, 149.782, 18.417, 1.108)
pt3dadd(248.633, 149.876, 18.451, 1.094)
pt3dadd(248.694, 149.971, 18.485, 1.082)
pt3dadd(248.755, 150.066, 18.519, 1.07)
pt3dadd(248.816, 150.161, 18.553, 1.058)
pt3dadd(248.878, 150.257, 18.587, 1.046)
pt3dadd(248.939, 150.352, 18.621, 1.032)
pt3dadd(249, 150.446, 18.654, 1.02)
pt3dadd(249.061, 150.541, 18.688, 1.008)
pt3dadd(249.122, 150.636, 18.722, 0.996)
pt3dadd(249.185, 150.73, 18.755, 0.98)
pt3dadd(249.252, 150.823, 18.784, 0.96)
pt3dadd(249.318, 150.917, 18.813, 0.938)
pt3dadd(249.385, 151.01, 18.843, 0.918)
pt3dadd(249.451, 151.104, 18.872, 0.896)
pt3dadd(249.518, 151.196, 18.902, 0.876)
pt3dadd(249.584, 151.29, 18.931, 0.854)
pt3dadd(249.652, 151.384, 18.961, 0.834)
pt3dadd(249.718, 151.477, 18.99, 0.812)
pt3dadd(249.785, 151.571, 19.019, 0.792)
pt3dadd(249.854, 151.662, 19.045, 0.766)
pt3dadd(249.931, 151.751, 19.066, 0.728)
pt3dadd(250.008, 151.841, 19.086, 0.69)
pt3dadd(250.085, 151.93, 19.106, 0.652)
pt3dadd(250.162, 152.018, 19.126, 0.614)
pt3dadd(250.237, 152.108, 19.146, 0.578)
pt3dadd(250.314, 152.197, 19.166, 0.54)
pt3dadd(250.391, 152.286, 19.186, 0.502)
pt3dadd(250.468, 152.376, 19.206, 0.464)
pt3dadd(250.544, 152.465, 19.226, 0.426)
pt3dadd(250.626, 152.55, 19.244, 0.404)
pt3dadd(250.716, 152.627, 19.258, 0.41)
pt3dadd(250.807, 152.704, 19.272, 0.414)
pt3dadd(250.897, 152.78, 19.286, 0.42)
pt3dadd(250.988, 152.857, 19.3, 0.424)
pt3dadd(251.078, 152.934, 19.313, 0.43)
pt3dadd(251.17, 153.011, 19.327, 0.434)
pt3dadd(251.26, 153.088, 19.341, 0.44)
pt3dadd(251.351, 153.166, 19.355, 0.444)
pt3dadd(251.441, 153.242, 19.369, 0.448)
pt3dadd(251.537, 153.313, 19.38, 0.472)
pt3dadd(251.638, 153.377, 19.388, 0.516)
pt3dadd(251.738, 153.442, 19.396, 0.558)
pt3dadd(251.839, 153.505, 19.403, 0.6)
pt3dadd(251.94, 153.57, 19.411, 0.642)
pt3dadd(252.041, 153.634, 19.419, 0.686)
pt3dadd(252.142, 153.698, 19.427, 0.728)
pt3dadd(252.242, 153.763, 19.435, 0.77)
pt3dadd(252.343, 153.827, 19.443, 0.814)
pt3dadd(252.444, 153.892, 19.451, 0.856)
pt3dadd(252.545, 153.958, 19.452, 0.86)
pt3dadd(252.643, 154.025, 19.447, 0.826)
pt3dadd(252.742, 154.092, 19.441, 0.794)
pt3dadd(252.841, 154.16, 19.435, 0.76)
pt3dadd(252.94, 154.228, 19.429, 0.726)
pt3dadd(253.039, 154.295, 19.424, 0.692)
pt3dadd(253.138, 154.363, 19.418, 0.658)
pt3dadd(253.237, 154.43, 19.412, 0.624)
pt3dadd(253.336, 154.498, 19.406, 0.59)
pt3dadd(253.434, 154.566, 19.401, 0.556)
pt3dadd(253.534, 154.633, 19.394, 0.522)
pt3dadd(253.631, 154.702, 19.387, 0.492)
pt3dadd(253.729, 154.77, 19.379, 0.46)
pt3dadd(253.828, 154.838, 19.371, 0.43)
pt3dadd(253.926, 154.908, 19.364, 0.398)
pt3dadd(254.023, 154.976, 19.356, 0.366)
pt3dadd(254.122, 155.045, 19.348, 0.336)
pt3dadd(254.22, 155.113, 19.341, 0.304)
pt3dadd(254.318, 155.182, 19.333, 0.272)
pt3dadd(254.417, 155.25, 19.326, 0.242)
pt3dadd(254.513, 155.32, 19.316, 0.226)
pt3dadd(254.609, 155.392, 19.304, 0.226)
pt3dadd(254.704, 155.462, 19.292, 0.226)
pt3dadd(254.8, 155.534, 19.281, 0.226)
pt3dadd(254.894, 155.605, 19.269, 0.226)
pt3dadd(254.99, 155.677, 19.257, 0.226)
pt3dadd(255.085, 155.748, 19.245, 0.226)
pt3dadd(255.181, 155.82, 19.234, 0.226)
pt3dadd(255.276, 155.891, 19.222, 0.226)
pt3dadd(255.372, 155.963, 19.21, 0.226)
pt3dadd(255.464, 156.031, 19.187, 0.236)
pt3dadd(255.556, 156.097, 19.153, 0.256)
pt3dadd(255.647, 156.164, 19.119, 0.276)
pt3dadd(255.738, 156.23, 19.085, 0.296)
pt3dadd(255.829, 156.298, 19.051, 0.316)
pt3dadd(255.92, 156.364, 19.017, 0.336)
pt3dadd(256.012, 156.43, 18.983, 0.356)
pt3dadd(256.103, 156.497, 18.949, 0.376)
pt3dadd(256.194, 156.563, 18.915, 0.396)
pt3dadd(256.285, 156.63, 18.881, 0.414)
pt3dadd(256.378, 156.679, 18.834, 0.43)
pt3dadd(256.471, 156.724, 18.783, 0.446)
pt3dadd(256.565, 156.769, 18.732, 0.46)
pt3dadd(256.658, 156.814, 18.681, 0.476)
pt3dadd(256.751, 156.858, 18.631, 0.49)
pt3dadd(256.844, 156.904, 18.58, 0.506)
pt3dadd(256.938, 156.948, 18.529, 0.52)
pt3dadd(257.03, 156.992, 18.479, 0.534)
pt3dadd(257.124, 157.038, 18.428, 0.55)
pt3dadd(257.218, 157.082, 18.377, 0.564)
pt3dadd(257.327, 157.098, 18.338, 0.53)
pt3dadd(257.436, 157.114, 18.299, 0.496)
pt3dadd(257.545, 157.129, 18.26, 0.464)
pt3dadd(257.654, 157.145, 18.221, 0.43)
pt3dadd(257.764, 157.16, 18.182, 0.396)
pt3dadd(257.873, 157.176, 18.143, 0.362)
pt3dadd(257.983, 157.192, 18.104, 0.328)
pt3dadd(258.092, 157.207, 18.065, 0.294)
pt3dadd(258.202, 157.223, 18.026, 0.26)
pt3dadd(258.311, 157.238, 17.987, 0.226)
}
dend_7[27] {pt3dclear()
pt3dadd(199.542, 104.894, 13.362, 0.226)
pt3dadd(199.576, 104.892, 13.361, 0.228)
pt3dadd(199.694, 104.881, 13.358, 0.24)
pt3dadd(199.814, 104.871, 13.354, 0.25)
pt3dadd(199.933, 104.861, 13.351, 0.262)
pt3dadd(200.053, 104.851, 13.348, 0.272)
pt3dadd(200.173, 104.841, 13.345, 0.284)
pt3dadd(200.292, 104.831, 13.341, 0.294)
pt3dadd(200.412, 104.82, 13.338, 0.306)
pt3dadd(200.531, 104.81, 13.335, 0.316)
pt3dadd(200.651, 104.8, 13.332, 0.328)
pt3dadd(200.771, 104.79, 13.328, 0.338)
pt3dadd(200.89, 104.78, 13.325, 0.35)
pt3dadd(201.01, 104.77, 13.322, 0.36)
pt3dadd(201.128, 104.76, 13.318, 0.372)
pt3dadd(201.248, 104.75, 13.315, 0.382)
pt3dadd(201.367, 104.74, 13.312, 0.394)
pt3dadd(201.487, 104.73, 13.309, 0.404)
pt3dadd(201.607, 104.72, 13.305, 0.416)
pt3dadd(201.726, 104.71, 13.302, 0.426)
pt3dadd(201.845, 104.729, 13.301, 0.448)
pt3dadd(201.964, 104.748, 13.301, 0.47)
pt3dadd(202.081, 104.767, 13.3, 0.494)
pt3dadd(202.2, 104.786, 13.299, 0.516)
pt3dadd(202.319, 104.805, 13.298, 0.538)
pt3dadd(202.438, 104.825, 13.298, 0.56)
pt3dadd(202.555, 104.844, 13.297, 0.582)
pt3dadd(202.674, 104.863, 13.296, 0.604)
pt3dadd(202.793, 104.882, 13.295, 0.626)
pt3dadd(202.91, 104.902, 13.295, 0.648)
pt3dadd(203.027, 104.93, 13.295, 0.674)
pt3dadd(203.144, 104.958, 13.295, 0.7)
pt3dadd(203.261, 104.986, 13.295, 0.724)
pt3dadd(203.377, 105.014, 13.295, 0.75)
pt3dadd(203.494, 105.042, 13.295, 0.774)
pt3dadd(203.611, 105.07, 13.295, 0.8)
pt3dadd(203.728, 105.098, 13.295, 0.826)
pt3dadd(203.844, 105.126, 13.295, 0.85)
pt3dadd(203.96, 105.154, 13.295, 0.876)
pt3dadd(204.077, 105.184, 13.295, 0.898)
pt3dadd(204.185, 105.236, 13.295, 0.884)
pt3dadd(204.294, 105.287, 13.295, 0.87)
pt3dadd(204.402, 105.339, 13.295, 0.856)
pt3dadd(204.51, 105.39, 13.295, 0.842)
pt3dadd(204.618, 105.442, 13.295, 0.828)
pt3dadd(204.727, 105.494, 13.295, 0.814)
pt3dadd(204.835, 105.545, 13.295, 0.8)
pt3dadd(204.943, 105.597, 13.295, 0.786)
pt3dadd(205.052, 105.648, 13.295, 0.772)
pt3dadd(205.16, 105.699, 13.295, 0.76)
pt3dadd(205.272, 105.744, 13.295, 0.752)
pt3dadd(205.382, 105.789, 13.295, 0.744)
pt3dadd(205.494, 105.835, 13.295, 0.734)
pt3dadd(205.606, 105.88, 13.295, 0.726)
pt3dadd(205.716, 105.925, 13.295, 0.718)
pt3dadd(205.828, 105.97, 13.295, 0.71)
pt3dadd(205.939, 106.015, 13.295, 0.702)
pt3dadd(206.05, 106.06, 13.295, 0.694)
pt3dadd(206.161, 106.105, 13.295, 0.686)
pt3dadd(206.273, 106.149, 13.295, 0.678)
pt3dadd(206.388, 106.185, 13.295, 0.678)
pt3dadd(206.502, 106.221, 13.295, 0.678)
pt3dadd(206.616, 106.257, 13.295, 0.678)
pt3dadd(206.731, 106.293, 13.295, 0.678)
pt3dadd(206.845, 106.329, 13.295, 0.678)
pt3dadd(206.96, 106.365, 13.295, 0.678)
pt3dadd(207.074, 106.401, 13.295, 0.678)
pt3dadd(207.188, 106.436, 13.295, 0.678)
}
}
proc shape3d_154() {
dend_7[27] { pt3dadd(207.304, 106.472, 13.295, 0.678)
pt3dadd(207.419, 106.507, 13.295, 0.68)
pt3dadd(207.535, 106.535, 13.295, 0.704)
pt3dadd(207.652, 106.563, 13.295, 0.726)
pt3dadd(207.768, 106.591, 13.295, 0.748)
pt3dadd(207.886, 106.619, 13.295, 0.772)
pt3dadd(208.002, 106.647, 13.295, 0.794)
pt3dadd(208.118, 106.674, 13.295, 0.816)
pt3dadd(208.235, 106.702, 13.295, 0.838)
pt3dadd(208.352, 106.73, 13.295, 0.862)
pt3dadd(208.469, 106.758, 13.295, 0.884)
pt3dadd(208.585, 106.786, 13.295, 0.906)
pt3dadd(208.702, 106.815, 13.295, 0.932)
pt3dadd(208.818, 106.845, 13.295, 0.958)
pt3dadd(208.934, 106.874, 13.295, 0.982)
pt3dadd(209.051, 106.903, 13.295, 1.008)
pt3dadd(209.167, 106.933, 13.295, 1.034)
pt3dadd(209.284, 106.962, 13.295, 1.058)
pt3dadd(209.4, 106.991, 13.295, 1.084)
pt3dadd(209.516, 107.021, 13.295, 1.11)
pt3dadd(209.633, 107.05, 13.295, 1.134)
pt3dadd(209.748, 107.081, 13.295, 1.158)
pt3dadd(209.861, 107.125, 13.295, 1.172)
pt3dadd(209.972, 107.168, 13.295, 1.186)
pt3dadd(210.084, 107.211, 13.295, 1.198)
pt3dadd(210.196, 107.255, 13.295, 1.212)
pt3dadd(210.308, 107.298, 13.295, 1.226)
pt3dadd(210.42, 107.341, 13.295, 1.24)
pt3dadd(210.532, 107.385, 13.295, 1.252)
pt3dadd(210.643, 107.428, 13.295, 1.266)
pt3dadd(210.756, 107.471, 13.295, 1.28)
pt3dadd(210.868, 107.513, 13.295, 1.29)
pt3dadd(210.983, 107.546, 13.295, 1.282)
pt3dadd(211.098, 107.58, 13.295, 1.274)
pt3dadd(211.213, 107.613, 13.295, 1.266)
pt3dadd(211.33, 107.646, 13.295, 1.258)
pt3dadd(211.445, 107.68, 13.295, 1.248)
pt3dadd(211.56, 107.713, 13.295, 1.24)
pt3dadd(211.675, 107.747, 13.295, 1.232)
pt3dadd(211.79, 107.78, 13.295, 1.224)
pt3dadd(211.906, 107.813, 13.295, 1.216)
pt3dadd(212.021, 107.845, 13.295, 1.204)
pt3dadd(212.138, 107.869, 13.295, 1.176)
pt3dadd(212.256, 107.893, 13.295, 1.148)
pt3dadd(212.374, 107.917, 13.295, 1.118)
pt3dadd(212.491, 107.941, 13.295, 1.09)
pt3dadd(212.609, 107.966, 13.295, 1.062)
pt3dadd(212.726, 107.99, 13.295, 1.034)
pt3dadd(212.844, 108.014, 13.295, 1.006)
pt3dadd(212.962, 108.038, 13.295, 0.978)
pt3dadd(213.079, 108.062, 13.295, 0.948)
pt3dadd(213.197, 108.083, 13.295, 0.918)
pt3dadd(213.317, 108.093, 13.295, 0.876)
pt3dadd(213.437, 108.102, 13.295, 0.834)
pt3dadd(213.556, 108.111, 13.295, 0.792)
pt3dadd(213.676, 108.12, 13.295, 0.75)
pt3dadd(213.796, 108.13, 13.295, 0.708)
pt3dadd(213.914, 108.139, 13.295, 0.666)
pt3dadd(214.034, 108.148, 13.295, 0.624)
pt3dadd(214.154, 108.157, 13.295, 0.582)
pt3dadd(214.273, 108.167, 13.295, 0.538)
pt3dadd(214.393, 108.173, 13.295, 0.502)
pt3dadd(214.513, 108.166, 13.295, 0.484)
pt3dadd(214.633, 108.16, 13.295, 0.464)
pt3dadd(214.753, 108.153, 13.295, 0.446)
pt3dadd(214.873, 108.147, 13.295, 0.428)
pt3dadd(214.992, 108.141, 13.295, 0.41)
pt3dadd(215.112, 108.134, 13.295, 0.392)
pt3dadd(215.232, 108.128, 13.295, 0.374)
pt3dadd(215.352, 108.121, 13.295, 0.356)
pt3dadd(215.472, 108.115, 13.295, 0.336)
pt3dadd(215.591, 108.1, 13.295, 0.334)
pt3dadd(215.706, 108.067, 13.295, 0.362)
pt3dadd(215.821, 108.035, 13.295, 0.39)
pt3dadd(215.936, 108.003, 13.295, 0.418)
pt3dadd(216.053, 107.97, 13.295, 0.446)
pt3dadd(216.168, 107.938, 13.295, 0.474)
pt3dadd(216.283, 107.905, 13.295, 0.502)
pt3dadd(216.4, 107.873, 13.295, 0.528)
pt3dadd(216.515, 107.841, 13.295, 0.556)
pt3dadd(216.63, 107.808, 13.295, 0.584)
pt3dadd(216.748, 107.788, 13.295, 0.612)
pt3dadd(216.868, 107.793, 13.295, 0.642)
pt3dadd(216.986, 107.798, 13.295, 0.67)
pt3dadd(217.106, 107.803, 13.295, 0.7)
pt3dadd(217.226, 107.809, 13.295, 0.728)
pt3dadd(217.346, 107.814, 13.295, 0.756)
pt3dadd(217.466, 107.819, 13.295, 0.786)
pt3dadd(217.586, 107.824, 13.295, 0.814)
pt3dadd(217.706, 107.829, 13.295, 0.844)
pt3dadd(217.826, 107.834, 13.295, 0.872)
pt3dadd(217.945, 107.846, 13.295, 0.898)
pt3dadd(218.064, 107.865, 13.295, 0.92)
pt3dadd(218.183, 107.884, 13.295, 0.942)
pt3dadd(218.3, 107.903, 13.295, 0.964)
pt3dadd(218.419, 107.922, 13.295, 0.986)
pt3dadd(218.538, 107.941, 13.295, 1.01)
pt3dadd(218.657, 107.959, 13.295, 1.032)
pt3dadd(218.774, 107.978, 13.295, 1.054)
pt3dadd(218.893, 107.997, 13.295, 1.076)
pt3dadd(219.012, 108.016, 13.295, 1.098)
pt3dadd(219.131, 108.034, 13.295, 1.102)
pt3dadd(219.25, 108.052, 13.295, 1.088)
pt3dadd(219.368, 108.07, 13.295, 1.074)
pt3dadd(219.487, 108.088, 13.295, 1.058)
pt3dadd(219.605, 108.105, 13.295, 1.044)
pt3dadd(219.724, 108.123, 13.295, 1.03)
pt3dadd(219.842, 108.141, 13.295, 1.016)
pt3dadd(219.961, 108.159, 13.295, 1.002)
pt3dadd(220.08, 108.176, 13.295, 0.988)
pt3dadd(220.199, 108.194, 13.295, 0.974)
pt3dadd(220.318, 108.212, 13.295, 0.972)
pt3dadd(220.436, 108.229, 13.295, 0.982)
pt3dadd(220.555, 108.246, 13.295, 0.992)
pt3dadd(220.674, 108.263, 13.295, 1.002)
pt3dadd(220.793, 108.28, 13.295, 1.012)
pt3dadd(220.912, 108.297, 13.295, 1.022)
pt3dadd(221.03, 108.314, 13.295, 1.032)
pt3dadd(221.149, 108.331, 13.295, 1.04)
pt3dadd(221.268, 108.348, 13.295, 1.05)
pt3dadd(221.387, 108.365, 13.295, 1.06)
pt3dadd(221.506, 108.382, 13.295, 1.08)
pt3dadd(221.624, 108.398, 13.295, 1.11)
pt3dadd(221.743, 108.415, 13.295, 1.138)
pt3dadd(221.862, 108.432, 13.295, 1.166)
pt3dadd(221.981, 108.448, 13.295, 1.196)
pt3dadd(222.1, 108.465, 13.295, 1.224)
pt3dadd(222.218, 108.482, 13.295, 1.252)
pt3dadd(222.337, 108.499, 13.295, 1.28)
pt3dadd(222.456, 108.515, 13.295, 1.31)
pt3dadd(222.575, 108.532, 13.295, 1.338)
pt3dadd(222.694, 108.544, 13.295, 1.352)
pt3dadd(222.814, 108.553, 13.295, 1.352)
pt3dadd(222.934, 108.561, 13.295, 1.354)
pt3dadd(223.054, 108.57, 13.295, 1.354)
pt3dadd(223.172, 108.578, 13.295, 1.354)
pt3dadd(223.292, 108.587, 13.295, 1.354)
pt3dadd(223.412, 108.595, 13.295, 1.354)
pt3dadd(223.532, 108.604, 13.295, 1.356)
pt3dadd(223.651, 108.612, 13.295, 1.356)
pt3dadd(223.771, 108.621, 13.295, 1.356)
pt3dadd(223.891, 108.631, 13.295, 1.356)
pt3dadd(224.01, 108.641, 13.295, 1.356)
pt3dadd(224.13, 108.652, 13.295, 1.356)
pt3dadd(224.25, 108.663, 13.295, 1.356)
pt3dadd(224.369, 108.673, 13.295, 1.356)
pt3dadd(224.489, 108.684, 13.295, 1.356)
pt3dadd(224.608, 108.695, 13.295, 1.356)
pt3dadd(224.728, 108.705, 13.295, 1.356)
pt3dadd(224.848, 108.716, 13.295, 1.356)
pt3dadd(224.966, 108.727, 13.295, 1.356)
pt3dadd(225.086, 108.739, 13.295, 1.356)
pt3dadd(225.205, 108.753, 13.295, 1.356)
pt3dadd(225.324, 108.767, 13.295, 1.356)
pt3dadd(225.444, 108.781, 13.295, 1.356)
pt3dadd(225.563, 108.795, 13.295, 1.356)
pt3dadd(225.682, 108.809, 13.295, 1.356)
pt3dadd(225.802, 108.823, 13.295, 1.356)
pt3dadd(225.92, 108.837, 13.295, 1.356)
pt3dadd(226.039, 108.85, 13.295, 1.356)
pt3dadd(226.159, 108.864, 13.295, 1.356)
pt3dadd(226.274, 108.892, 13.295, 1.35)
pt3dadd(226.388, 108.932, 13.295, 1.338)
pt3dadd(226.501, 108.972, 13.295, 1.328)
pt3dadd(226.614, 109.011, 13.295, 1.316)
pt3dadd(226.728, 109.051, 13.296, 1.304)
pt3dadd(226.841, 109.091, 13.296, 1.294)
pt3dadd(226.954, 109.131, 13.296, 1.282)
pt3dadd(227.066, 109.171, 13.296, 1.27)
pt3dadd(227.18, 109.211, 13.296, 1.26)
pt3dadd(227.293, 109.251, 13.296, 1.248)
pt3dadd(227.406, 109.292, 13.296, 1.232)
pt3dadd(227.519, 109.334, 13.296, 1.212)
pt3dadd(227.63, 109.377, 13.296, 1.192)
pt3dadd(227.743, 109.419, 13.296, 1.17)
pt3dadd(227.856, 109.461, 13.296, 1.15)
pt3dadd(227.968, 109.503, 13.296, 1.13)
pt3dadd(228.08, 109.545, 13.296, 1.11)
pt3dadd(228.192, 109.587, 13.296, 1.09)
pt3dadd(228.305, 109.629, 13.296, 1.07)
pt3dadd(228.418, 109.671, 13.297, 1.05)
pt3dadd(228.532, 109.706, 13.297, 1.01)
pt3dadd(228.648, 109.735, 13.297, 0.954)
pt3dadd(228.764, 109.764, 13.297, 0.896)
pt3dadd(228.881, 109.792, 13.297, 0.84)
pt3dadd(228.998, 109.821, 13.297, 0.784)
pt3dadd(229.115, 109.85, 13.297, 0.728)
pt3dadd(229.231, 109.879, 13.298, 0.672)
pt3dadd(229.348, 109.908, 13.298, 0.616)
pt3dadd(229.464, 109.937, 13.298, 0.56)
pt3dadd(229.58, 109.965, 13.298, 0.504)
pt3dadd(229.698, 109.989, 13.298, 0.48)
pt3dadd(229.816, 110.01, 13.298, 0.478)
pt3dadd(229.934, 110.03, 13.299, 0.476)
pt3dadd(230.053, 110.05, 13.299, 0.474)
pt3dadd(230.171, 110.071, 13.299, 0.472)
pt3dadd(230.29, 110.091, 13.299, 0.47)
pt3dadd(230.407, 110.111, 13.299, 0.468)
pt3dadd(230.526, 110.132, 13.3, 0.466)
pt3dadd(230.644, 110.152, 13.3, 0.464)
}
}
proc shape3d_155() {
dend_7[27] { pt3dadd(230.762, 110.172, 13.3, 0.462)
pt3dadd(230.881, 110.188, 13.3, 0.488)
pt3dadd(231, 110.201, 13.301, 0.53)
pt3dadd(231.12, 110.215, 13.301, 0.574)
pt3dadd(231.239, 110.228, 13.301, 0.616)
pt3dadd(231.358, 110.241, 13.302, 0.66)
pt3dadd(231.478, 110.254, 13.302, 0.702)
pt3dadd(231.596, 110.267, 13.302, 0.746)
pt3dadd(231.716, 110.281, 13.302, 0.788)
pt3dadd(231.835, 110.294, 13.303, 0.832)
pt3dadd(231.954, 110.307, 13.303, 0.874)
pt3dadd(232.074, 110.313, 13.304, 0.902)
pt3dadd(232.194, 110.313, 13.304, 0.916)
pt3dadd(232.314, 110.313, 13.305, 0.932)
pt3dadd(232.434, 110.314, 13.305, 0.948)
pt3dadd(232.554, 110.314, 13.306, 0.962)
pt3dadd(232.674, 110.314, 13.307, 0.978)
pt3dadd(232.794, 110.315, 13.307, 0.992)
pt3dadd(232.914, 110.315, 13.308, 1.008)
pt3dadd(233.034, 110.316, 13.309, 1.024)
pt3dadd(233.154, 110.316, 13.309, 1.038)
pt3dadd(233.274, 110.316, 13.31, 1.042)
pt3dadd(233.394, 110.316, 13.311, 1.04)
pt3dadd(233.514, 110.316, 13.312, 1.036)
pt3dadd(233.634, 110.316, 13.313, 1.032)
pt3dadd(233.754, 110.316, 13.314, 1.03)
pt3dadd(233.874, 110.316, 13.315, 1.026)
pt3dadd(233.994, 110.316, 13.316, 1.022)
pt3dadd(234.114, 110.316, 13.317, 1.02)
pt3dadd(234.234, 110.316, 13.318, 1.016)
pt3dadd(234.354, 110.316, 13.319, 1.012)
pt3dadd(234.474, 110.316, 13.32, 0.994)
pt3dadd(234.594, 110.316, 13.322, 0.966)
pt3dadd(234.714, 110.316, 13.323, 0.936)
pt3dadd(234.834, 110.316, 13.324, 0.908)
pt3dadd(234.954, 110.316, 13.326, 0.878)
pt3dadd(235.074, 110.316, 13.327, 0.85)
pt3dadd(235.194, 110.316, 13.329, 0.82)
pt3dadd(235.314, 110.316, 13.33, 0.792)
pt3dadd(235.434, 110.316, 13.332, 0.764)
pt3dadd(235.554, 110.316, 13.333, 0.734)
pt3dadd(235.674, 110.316, 13.335, 0.72)
pt3dadd(235.794, 110.316, 13.338, 0.716)
pt3dadd(235.914, 110.316, 13.341, 0.712)
pt3dadd(236.034, 110.316, 13.344, 0.706)
pt3dadd(236.154, 110.316, 13.346, 0.702)
pt3dadd(236.274, 110.316, 13.349, 0.698)
pt3dadd(236.394, 110.316, 13.351, 0.694)
pt3dadd(236.514, 110.316, 13.354, 0.688)
pt3dadd(236.634, 110.316, 13.357, 0.684)
pt3dadd(236.754, 110.316, 13.36, 0.68)
pt3dadd(236.874, 110.316, 13.363, 0.678)
pt3dadd(236.994, 110.316, 13.367, 0.678)
pt3dadd(237.113, 110.316, 13.371, 0.678)
pt3dadd(237.233, 110.316, 13.376, 0.678)
pt3dadd(237.353, 110.316, 13.38, 0.678)
pt3dadd(237.473, 110.316, 13.384, 0.678)
pt3dadd(237.593, 110.316, 13.388, 0.678)
pt3dadd(237.713, 110.316, 13.392, 0.678)
pt3dadd(237.833, 110.316, 13.396, 0.678)
pt3dadd(237.953, 110.316, 13.4, 0.678)
pt3dadd(238.073, 110.316, 13.406, 0.678)
pt3dadd(238.192, 110.316, 13.413, 0.678)
pt3dadd(238.312, 110.316, 13.42, 0.678)
pt3dadd(238.432, 110.316, 13.427, 0.678)
pt3dadd(238.552, 110.316, 13.435, 0.678)
pt3dadd(238.67, 110.316, 13.442, 0.678)
pt3dadd(238.79, 110.316, 13.449, 0.678)
pt3dadd(238.91, 110.316, 13.456, 0.678)
pt3dadd(239.03, 110.316, 13.463, 0.678)
pt3dadd(239.149, 110.316, 13.47, 0.678)
pt3dadd(239.269, 110.316, 13.48, 0.684)
pt3dadd(239.388, 110.316, 13.49, 0.694)
pt3dadd(239.508, 110.316, 13.501, 0.704)
pt3dadd(239.627, 110.316, 13.511, 0.714)
pt3dadd(239.747, 110.316, 13.522, 0.726)
pt3dadd(239.866, 110.316, 13.532, 0.736)
pt3dadd(239.986, 110.316, 13.543, 0.746)
pt3dadd(240.104, 110.316, 13.553, 0.756)
pt3dadd(240.224, 110.316, 13.563, 0.766)
pt3dadd(240.343, 110.316, 13.574, 0.776)
pt3dadd(240.462, 110.316, 13.587, 0.788)
pt3dadd(240.581, 110.316, 13.603, 0.8)
pt3dadd(240.7, 110.316, 13.618, 0.812)
pt3dadd(240.817, 110.316, 13.634, 0.824)
pt3dadd(240.936, 110.316, 13.649, 0.838)
pt3dadd(241.055, 110.316, 13.665, 0.85)
pt3dadd(241.174, 110.316, 13.68, 0.862)
pt3dadd(241.292, 110.316, 13.696, 0.874)
pt3dadd(241.41, 110.316, 13.711, 0.888)
pt3dadd(241.529, 110.316, 13.727, 0.9)
pt3dadd(241.643, 110.316, 13.757, 0.904)
pt3dadd(241.754, 110.316, 13.794, 0.904)
pt3dadd(241.865, 110.316, 13.832, 0.904)
pt3dadd(241.976, 110.316, 13.87, 0.904)
pt3dadd(242.088, 110.316, 13.907, 0.904)
pt3dadd(242.198, 110.316, 13.945, 0.904)
pt3dadd(242.31, 110.316, 13.983, 0.904)
pt3dadd(242.422, 110.316, 14.02, 0.904)
pt3dadd(242.532, 110.316, 14.058, 0.904)
pt3dadd(242.644, 110.316, 14.095, 0.904)
pt3dadd(242.756, 110.316, 14.129, 0.896)
pt3dadd(242.869, 110.316, 14.162, 0.884)
pt3dadd(242.983, 110.316, 14.194, 0.87)
pt3dadd(243.097, 110.316, 14.226, 0.858)
pt3dadd(243.211, 110.316, 14.258, 0.846)
pt3dadd(243.324, 110.316, 14.29, 0.834)
pt3dadd(243.438, 110.316, 14.322, 0.82)
pt3dadd(243.552, 110.316, 14.354, 0.808)
pt3dadd(243.665, 110.316, 14.387, 0.796)
pt3dadd(243.779, 110.316, 14.419, 0.782)
pt3dadd(243.894, 110.316, 14.446, 0.76)
pt3dadd(244.01, 110.316, 14.471, 0.732)
pt3dadd(244.127, 110.316, 14.497, 0.704)
pt3dadd(244.242, 110.316, 14.522, 0.676)
pt3dadd(244.358, 110.316, 14.547, 0.648)
pt3dadd(244.475, 110.316, 14.572, 0.62)
pt3dadd(244.591, 110.316, 14.598, 0.592)
pt3dadd(244.706, 110.316, 14.623, 0.564)
pt3dadd(244.823, 110.316, 14.648, 0.536)
pt3dadd(244.939, 110.316, 14.673, 0.508)
pt3dadd(245.057, 110.316, 14.692, 0.488)
pt3dadd(245.176, 110.316, 14.708, 0.47)
pt3dadd(245.294, 110.316, 14.724, 0.454)
pt3dadd(245.412, 110.316, 14.739, 0.438)
pt3dadd(245.531, 110.316, 14.755, 0.422)
pt3dadd(245.65, 110.316, 14.77, 0.404)
pt3dadd(245.768, 110.316, 14.786, 0.388)
pt3dadd(245.886, 110.316, 14.802, 0.372)
pt3dadd(246.005, 110.316, 14.817, 0.354)
pt3dadd(246.124, 110.316, 14.833, 0.338)
pt3dadd(246.242, 110.316, 14.846, 0.326)
pt3dadd(246.361, 110.316, 14.858, 0.314)
pt3dadd(246.481, 110.316, 14.87, 0.304)
pt3dadd(246.6, 110.316, 14.882, 0.294)
pt3dadd(246.719, 110.316, 14.894, 0.282)
pt3dadd(246.839, 110.316, 14.906, 0.272)
pt3dadd(246.958, 110.316, 14.918, 0.262)
pt3dadd(247.076, 110.316, 14.93, 0.25)
pt3dadd(247.195, 110.316, 14.942, 0.24)
pt3dadd(247.315, 110.316, 14.954, 0.23)
pt3dadd(247.434, 110.316, 14.962, 0.226)
pt3dadd(247.554, 110.316, 14.969, 0.226)
pt3dadd(247.674, 110.316, 14.976, 0.226)
pt3dadd(247.794, 110.316, 14.983, 0.226)
pt3dadd(247.913, 110.316, 14.989, 0.226)
pt3dadd(248.033, 110.316, 14.996, 0.226)
pt3dadd(248.153, 110.316, 15.003, 0.226)
pt3dadd(248.273, 110.316, 15.01, 0.226)
pt3dadd(248.392, 110.316, 15.016, 0.226)
pt3dadd(248.512, 110.316, 15.023, 0.226)
pt3dadd(248.632, 110.316, 15.032, 0.232)
pt3dadd(248.75, 110.316, 15.041, 0.242)
pt3dadd(248.87, 110.316, 15.051, 0.252)
pt3dadd(248.989, 110.316, 15.061, 0.262)
pt3dadd(249.109, 110.316, 15.07, 0.272)
pt3dadd(249.228, 110.316, 15.08, 0.282)
pt3dadd(249.348, 110.316, 15.09, 0.292)
pt3dadd(249.468, 110.316, 15.099, 0.302)
pt3dadd(249.587, 110.316, 15.109, 0.312)
pt3dadd(249.707, 110.316, 15.119, 0.322)
pt3dadd(249.826, 110.316, 15.131, 0.332)
pt3dadd(249.944, 110.316, 15.145, 0.344)
pt3dadd(250.063, 110.316, 15.159, 0.354)
pt3dadd(250.182, 110.316, 15.173, 0.366)
pt3dadd(250.301, 110.316, 15.187, 0.378)
pt3dadd(250.42, 110.316, 15.201, 0.388)
pt3dadd(250.538, 110.316, 15.215, 0.4)
pt3dadd(250.657, 110.316, 15.229, 0.412)
pt3dadd(250.776, 110.316, 15.243, 0.422)
pt3dadd(250.895, 110.316, 15.256, 0.434)
pt3dadd(251.009, 110.316, 15.286, 0.428)
pt3dadd(251.12, 110.316, 15.322, 0.414)
pt3dadd(251.232, 110.316, 15.359, 0.4)
pt3dadd(251.345, 110.316, 15.395, 0.386)
pt3dadd(251.456, 110.316, 15.431, 0.374)
pt3dadd(251.568, 110.316, 15.467, 0.36)
pt3dadd(251.68, 110.316, 15.503, 0.346)
pt3dadd(251.792, 110.316, 15.539, 0.332)
pt3dadd(251.904, 110.316, 15.575, 0.32)
pt3dadd(252.016, 110.316, 15.612, 0.306)
pt3dadd(252.13, 110.316, 15.643, 0.296)
pt3dadd(252.244, 110.316, 15.673, 0.29)
pt3dadd(252.359, 110.316, 15.703, 0.282)
pt3dadd(252.473, 110.316, 15.733, 0.274)
pt3dadd(252.588, 110.316, 15.763, 0.266)
pt3dadd(252.702, 110.316, 15.793, 0.258)
pt3dadd(252.816, 110.316, 15.823, 0.25)
pt3dadd(252.931, 110.316, 15.853, 0.244)
pt3dadd(253.045, 110.316, 15.883, 0.236)
pt3dadd(253.16, 110.316, 15.913, 0.228)
pt3dadd(253.277, 110.316, 15.936, 0.226)
pt3dadd(253.393, 110.316, 15.958, 0.226)
pt3dadd(253.511, 110.316, 15.979, 0.226)
pt3dadd(253.628, 110.316, 16.001, 0.226)
pt3dadd(253.745, 110.316, 16.023, 0.226)
pt3dadd(253.862, 110.316, 16.044, 0.226)
pt3dadd(253.98, 110.316, 16.066, 0.226)
pt3dadd(254.096, 110.316, 16.087, 0.226)
pt3dadd(254.214, 110.316, 16.109, 0.226)
}
}
proc shape3d_156() {
dend_7[27] { pt3dadd(254.332, 110.316, 16.13, 0.226)
pt3dadd(254.45, 110.316, 16.142, 0.234)
pt3dadd(254.569, 110.316, 16.149, 0.248)
pt3dadd(254.689, 110.316, 16.157, 0.258)
pt3dadd(254.809, 110.316, 16.164, 0.272)
pt3dadd(254.929, 110.316, 16.172, 0.284)
pt3dadd(255.048, 110.316, 16.179, 0.296)
pt3dadd(255.168, 110.316, 16.187, 0.308)
pt3dadd(255.288, 110.316, 16.194, 0.32)
pt3dadd(255.407, 110.316, 16.202, 0.332)
pt3dadd(255.527, 110.316, 16.209, 0.344)
pt3dadd(255.647, 110.316, 16.212, 0.352)
pt3dadd(255.767, 110.316, 16.212, 0.358)
pt3dadd(255.887, 110.316, 16.213, 0.364)
pt3dadd(256.007, 110.316, 16.214, 0.372)
pt3dadd(256.127, 110.316, 16.215, 0.378)
pt3dadd(256.247, 110.316, 16.215, 0.386)
pt3dadd(256.367, 110.316, 16.216, 0.392)
pt3dadd(256.487, 110.316, 16.217, 0.398)
pt3dadd(256.607, 110.316, 16.217, 0.406)
pt3dadd(256.727, 110.316, 16.218, 0.412)
pt3dadd(256.847, 110.316, 16.21, 0.402)
pt3dadd(256.966, 110.316, 16.2, 0.388)
pt3dadd(257.086, 110.316, 16.19, 0.374)
pt3dadd(257.204, 110.316, 16.18, 0.358)
pt3dadd(257.324, 110.316, 16.17, 0.344)
pt3dadd(257.443, 110.316, 16.159, 0.33)
pt3dadd(257.563, 110.316, 16.149, 0.316)
pt3dadd(257.682, 110.316, 16.139, 0.302)
pt3dadd(257.801, 110.316, 16.129, 0.286)
pt3dadd(257.921, 110.316, 16.119, 0.272)
pt3dadd(258.037, 110.316, 16.095, 0.266)
pt3dadd(258.152, 110.316, 16.067, 0.262)
pt3dadd(258.268, 110.316, 16.04, 0.258)
pt3dadd(258.383, 110.316, 16.012, 0.252)
pt3dadd(258.498, 110.316, 15.984, 0.248)
pt3dadd(258.613, 110.316, 15.957, 0.244)
pt3dadd(258.728, 110.316, 15.929, 0.24)
pt3dadd(258.845, 110.316, 15.901, 0.236)
pt3dadd(258.96, 110.316, 15.874, 0.23)
pt3dadd(259.075, 110.316, 15.846, 0.226)
pt3dadd(259.188, 110.316, 15.813, 0.226)
pt3dadd(259.301, 110.316, 15.778, 0.226)
pt3dadd(259.414, 110.316, 15.744, 0.226)
pt3dadd(259.526, 110.316, 15.71, 0.226)
pt3dadd(259.639, 110.316, 15.675, 0.226)
pt3dadd(259.751, 110.316, 15.641, 0.226)
pt3dadd(259.864, 110.316, 15.606, 0.226)
pt3dadd(259.976, 110.316, 15.572, 0.226)
pt3dadd(260.089, 110.316, 15.538, 0.226)
pt3dadd(260.202, 110.316, 15.503, 0.226)
pt3dadd(260.32, 110.316, 15.483, 0.226)
pt3dadd(260.437, 110.316, 15.466, 0.226)
pt3dadd(260.556, 110.316, 15.448, 0.226)
pt3dadd(260.674, 110.316, 15.431, 0.226)
pt3dadd(260.792, 110.316, 15.414, 0.226)
pt3dadd(260.91, 110.316, 15.396, 0.226)
pt3dadd(261.029, 110.316, 15.379, 0.226)
pt3dadd(261.146, 110.316, 15.361, 0.226)
pt3dadd(261.265, 110.316, 15.344, 0.226)
pt3dadd(261.383, 110.316, 15.327, 0.226)
pt3dadd(261.503, 110.316, 15.316, 0.226)
pt3dadd(261.622, 110.316, 15.307, 0.226)
pt3dadd(261.742, 110.316, 15.297, 0.226)
pt3dadd(261.86, 110.316, 15.288, 0.226)
pt3dadd(261.98, 110.316, 15.278, 0.226)
pt3dadd(262.099, 110.316, 15.269, 0.226)
pt3dadd(262.219, 110.316, 15.26, 0.226)
pt3dadd(262.338, 110.316, 15.25, 0.226)
pt3dadd(262.458, 110.316, 15.241, 0.226)
pt3dadd(262.578, 110.316, 15.231, 0.226)
pt3dadd(262.698, 110.316, 15.231, 0.226)
pt3dadd(262.817, 110.316, 15.231, 0.226)
pt3dadd(262.937, 110.316, 15.232, 0.226)
pt3dadd(263.057, 110.316, 15.232, 0.226)
pt3dadd(263.177, 110.316, 15.233, 0.226)
pt3dadd(263.297, 110.316, 15.234, 0.226)
pt3dadd(263.417, 110.316, 15.234, 0.226)
pt3dadd(263.537, 110.316, 15.235, 0.226)
pt3dadd(263.657, 110.316, 15.235, 0.226)
pt3dadd(263.777, 110.316, 15.236, 0.226)
pt3dadd(263.891, 110.316, 15.266, 0.226)
pt3dadd(264.004, 110.316, 15.3, 0.226)
pt3dadd(264.116, 110.316, 15.334, 0.226)
pt3dadd(264.229, 110.316, 15.368, 0.226)
pt3dadd(264.342, 110.316, 15.402, 0.226)
pt3dadd(264.455, 110.316, 15.436, 0.226)
pt3dadd(264.568, 110.316, 15.47, 0.226)
pt3dadd(264.68, 110.316, 15.504, 0.226)
pt3dadd(264.793, 110.316, 15.538, 0.226)
pt3dadd(264.906, 110.316, 15.572, 0.226)
pt3dadd(265.019, 110.316, 15.607, 0.232)
pt3dadd(265.132, 110.316, 15.642, 0.24)
pt3dadd(265.244, 110.316, 15.677, 0.246)
pt3dadd(265.356, 110.316, 15.712, 0.254)
pt3dadd(265.469, 110.316, 15.747, 0.26)
pt3dadd(265.582, 110.316, 15.781, 0.268)
pt3dadd(265.694, 110.316, 15.816, 0.274)
pt3dadd(265.806, 110.316, 15.851, 0.282)
pt3dadd(265.919, 110.316, 15.886, 0.288)
pt3dadd(266.032, 110.316, 15.921, 0.296)
pt3dadd(266.147, 110.316, 15.947, 0.326)
pt3dadd(266.263, 110.316, 15.974, 0.356)
pt3dadd(266.378, 110.316, 16, 0.386)
pt3dadd(266.495, 110.316, 16.026, 0.416)
pt3dadd(266.61, 110.316, 16.052, 0.448)
pt3dadd(266.726, 110.316, 16.078, 0.478)
pt3dadd(266.842, 110.316, 16.104, 0.508)
pt3dadd(266.958, 110.316, 16.13, 0.54)
pt3dadd(267.073, 110.316, 16.156, 0.57)
pt3dadd(267.19, 110.316, 16.182, 0.6)
pt3dadd(267.308, 110.316, 16.197, 0.59)
pt3dadd(267.427, 110.316, 16.211, 0.578)
pt3dadd(267.546, 110.316, 16.225, 0.566)
pt3dadd(267.665, 110.316, 16.239, 0.554)
pt3dadd(267.784, 110.316, 16.253, 0.542)
pt3dadd(267.902, 110.316, 16.267, 0.532)
pt3dadd(268.021, 110.316, 16.281, 0.52)
pt3dadd(268.14, 110.316, 16.295, 0.508)
pt3dadd(268.259, 110.316, 16.309, 0.496)
pt3dadd(268.378, 110.316, 16.323, 0.484)
pt3dadd(268.496, 110.316, 16.333, 0.46)
pt3dadd(268.616, 110.316, 16.343, 0.434)
pt3dadd(268.735, 110.316, 16.353, 0.408)
pt3dadd(268.855, 110.316, 16.363, 0.382)
pt3dadd(268.974, 110.316, 16.373, 0.356)
pt3dadd(269.094, 110.316, 16.383, 0.33)
pt3dadd(269.213, 110.316, 16.393, 0.304)
pt3dadd(269.333, 110.316, 16.403, 0.278)
pt3dadd(269.452, 110.316, 16.413, 0.252)
pt3dadd(269.572, 110.316, 16.423, 0.226)
}
dend_7[28] {pt3dclear()
pt3dadd(196.242, 103.236, 13.483, 0.904)
pt3dadd(196.262, 103.232, 13.465, 0.908)
pt3dadd(196.345, 103.214, 13.393, 0.928)
pt3dadd(196.427, 103.197, 13.322, 0.946)
pt3dadd(196.508, 103.179, 13.25, 0.964)
pt3dadd(196.591, 103.162, 13.179, 0.982)
pt3dadd(196.673, 103.144, 13.107, 1)
pt3dadd(196.754, 103.127, 13.036, 1.02)
pt3dadd(196.837, 103.109, 12.964, 1.038)
pt3dadd(196.919, 103.092, 12.892, 1.056)
pt3dadd(197, 103.074, 12.821, 1.074)
pt3dadd(197.083, 103.057, 12.749, 1.094)
pt3dadd(197.165, 103.04, 12.678, 1.112)
pt3dadd(197.246, 103.022, 12.606, 1.13)
pt3dadd(197.329, 103.005, 12.535, 1.148)
pt3dadd(197.411, 102.987, 12.463, 1.168)
pt3dadd(197.492, 102.97, 12.392, 1.186)
pt3dadd(197.575, 102.953, 12.32, 1.204)
pt3dadd(197.657, 102.935, 12.248, 1.222)
pt3dadd(197.738, 102.918, 12.177, 1.24)
pt3dadd(197.814, 102.894, 12.103, 1.264)
pt3dadd(197.87, 102.85, 12.022, 1.302)
pt3dadd(197.926, 102.807, 11.941, 1.34)
pt3dadd(197.982, 102.763, 11.861, 1.38)
pt3dadd(198.038, 102.72, 11.78, 1.418)
pt3dadd(198.094, 102.677, 11.699, 1.456)
pt3dadd(198.15, 102.633, 11.619, 1.494)
pt3dadd(198.205, 102.59, 11.538, 1.532)
pt3dadd(198.262, 102.546, 11.457, 1.57)
pt3dadd(198.318, 102.503, 11.377, 1.608)
pt3dadd(198.338, 102.437, 11.296, 1.664)
pt3dadd(198.355, 102.368, 11.215, 1.72)
pt3dadd(198.372, 102.298, 11.135, 1.778)
pt3dadd(198.388, 102.229, 11.054, 1.834)
pt3dadd(198.404, 102.16, 10.973, 1.892)
pt3dadd(198.421, 102.091, 10.893, 1.95)
pt3dadd(198.437, 102.022, 10.812, 2.006)
pt3dadd(198.454, 101.953, 10.732, 2.064)
pt3dadd(198.47, 101.884, 10.651, 2.12)
pt3dadd(198.486, 101.815, 10.57, 2.178)
pt3dadd(198.506, 101.754, 10.486, 2.21)
pt3dadd(198.526, 101.694, 10.401, 2.242)
pt3dadd(198.546, 101.635, 10.316, 2.272)
pt3dadd(198.565, 101.575, 10.23, 2.302)
pt3dadd(198.586, 101.515, 10.145, 2.332)
pt3dadd(198.606, 101.456, 10.06, 2.362)
pt3dadd(198.625, 101.396, 9.975, 2.392)
pt3dadd(198.646, 101.336, 9.89, 2.424)
pt3dadd(198.665, 101.276, 9.805, 2.454)
pt3dadd(198.685, 101.217, 9.719, 2.484)
pt3dadd(198.713, 101.168, 9.631, 2.484)
pt3dadd(198.74, 101.121, 9.542, 2.48)
pt3dadd(198.768, 101.073, 9.454, 2.476)
pt3dadd(198.797, 101.025, 9.365, 2.474)
pt3dadd(198.824, 100.977, 9.276, 2.47)
pt3dadd(198.853, 100.93, 9.187, 2.468)
pt3dadd(198.881, 100.882, 9.099, 2.464)
pt3dadd(198.908, 100.834, 9.01, 2.462)
pt3dadd(198.937, 100.787, 8.921, 2.458)
pt3dadd(198.965, 100.739, 8.832, 2.454)
pt3dadd(199.027, 100.701, 8.753, 2.426)
pt3dadd(199.091, 100.663, 8.674, 2.396)
pt3dadd(199.154, 100.626, 8.595, 2.368)
pt3dadd(199.217, 100.588, 8.516, 2.338)
pt3dadd(199.28, 100.55, 8.437, 2.31)
pt3dadd(199.344, 100.512, 8.358, 2.282)
pt3dadd(199.406, 100.474, 8.279, 2.252)
pt3dadd(199.47, 100.436, 8.2, 2.222)
pt3dadd(199.532, 100.399, 8.121, 2.194)
}
}
proc shape3d_157() {
dend_7[28] { pt3dadd(199.596, 100.361, 8.042, 2.166)
}
dend_7[29] {pt3dclear()
pt3dadd(199.596, 100.361, 8.042, 2.166)
pt3dadd(199.616, 100.315, 8.005, 2.148)
pt3dadd(199.682, 100.243, 7.935, 2.106)
pt3dadd(199.746, 100.172, 7.864, 2.064)
pt3dadd(199.811, 100.101, 7.794, 2.022)
pt3dadd(199.876, 100.029, 7.723, 1.98)
pt3dadd(199.94, 99.958, 7.653, 1.938)
pt3dadd(200.005, 99.886, 7.582, 1.896)
pt3dadd(200.07, 99.815, 7.512, 1.854)
pt3dadd(200.134, 99.743, 7.441, 1.812)
pt3dadd(200.198, 99.672, 7.371, 1.77)
pt3dadd(200.267, 99.589, 7.314, 1.722)
pt3dadd(200.336, 99.499, 7.263, 1.67)
pt3dadd(200.406, 99.41, 7.213, 1.618)
pt3dadd(200.476, 99.321, 7.163, 1.566)
pt3dadd(200.545, 99.231, 7.113, 1.514)
pt3dadd(200.542, 99.22, 7.108, 1.514)
pt3dadd(200.611, 99.131, 7.057, 1.462)
pt3dadd(200.681, 99.042, 7.007, 1.41)
pt3dadd(200.75, 98.952, 6.957, 1.356)
pt3dadd(200.82, 98.863, 6.907, 1.304)
pt3dadd(200.89, 98.773, 6.857, 1.252)
pt3dadd(200.968, 98.682, 6.824, 1.2)
pt3dadd(201.048, 98.59, 6.797, 1.146)
pt3dadd(201.13, 98.499, 6.77, 1.092)
pt3dadd(201.211, 98.407, 6.742, 1.038)
pt3dadd(201.292, 98.315, 6.715, 0.984)
pt3dadd(201.373, 98.223, 6.688, 0.93)
pt3dadd(201.454, 98.131, 6.661, 0.876)
pt3dadd(201.536, 98.04, 6.634, 0.822)
pt3dadd(201.617, 97.948, 6.607, 0.766)
pt3dadd(201.697, 97.856, 6.58, 0.712)
pt3dadd(201.785, 97.775, 6.547, 0.674)
pt3dadd(201.874, 97.697, 6.511, 0.642)
pt3dadd(201.964, 97.62, 6.475, 0.61)
pt3dadd(202.052, 97.542, 6.439, 0.578)
pt3dadd(202.141, 97.464, 6.403, 0.546)
pt3dadd(202.231, 97.387, 6.367, 0.514)
pt3dadd(202.321, 97.309, 6.331, 0.482)
pt3dadd(202.41, 97.232, 6.295, 0.45)
pt3dadd(202.499, 97.154, 6.259, 0.418)
pt3dadd(202.588, 97.076, 6.223, 0.384)
pt3dadd(202.681, 97.01, 6.182, 0.368)
pt3dadd(202.776, 96.946, 6.139, 0.356)
pt3dadd(202.871, 96.882, 6.096, 0.342)
pt3dadd(202.964, 96.817, 6.054, 0.33)
pt3dadd(203.059, 96.753, 6.011, 0.316)
pt3dadd(203.154, 96.689, 5.968, 0.302)
pt3dadd(203.248, 96.625, 5.925, 0.29)
pt3dadd(203.342, 96.561, 5.883, 0.276)
pt3dadd(203.436, 96.497, 5.84, 0.264)
pt3dadd(203.53, 96.432, 5.797, 0.25)
pt3dadd(203.629, 96.367, 5.765, 0.246)
pt3dadd(203.728, 96.301, 5.735, 0.244)
pt3dadd(203.826, 96.235, 5.704, 0.242)
pt3dadd(203.924, 96.169, 5.674, 0.24)
pt3dadd(204.024, 96.103, 5.644, 0.238)
pt3dadd(204.124, 96.037, 5.613, 0.236)
pt3dadd(204.222, 95.971, 5.583, 0.234)
pt3dadd(204.32, 95.905, 5.552, 0.23)
pt3dadd(204.419, 95.839, 5.522, 0.228)
pt3dadd(204.518, 95.773, 5.492, 0.226)
pt3dadd(204.618, 95.707, 5.463, 0.226)
pt3dadd(204.718, 95.641, 5.436, 0.226)
pt3dadd(204.817, 95.575, 5.408, 0.226)
pt3dadd(204.916, 95.509, 5.38, 0.226)
pt3dadd(205.016, 95.443, 5.352, 0.226)
pt3dadd(205.116, 95.377, 5.324, 0.226)
pt3dadd(205.216, 95.311, 5.297, 0.226)
pt3dadd(205.315, 95.245, 5.269, 0.226)
pt3dadd(205.416, 95.178, 5.241, 0.226)
pt3dadd(205.514, 95.112, 5.213, 0.226)
pt3dadd(205.624, 95.063, 5.193, 0.226)
pt3dadd(205.733, 95.017, 5.175, 0.226)
pt3dadd(205.843, 94.97, 5.156, 0.226)
pt3dadd(205.954, 94.924, 5.137, 0.226)
pt3dadd(206.064, 94.877, 5.118, 0.226)
pt3dadd(206.173, 94.831, 5.1, 0.226)
pt3dadd(206.284, 94.784, 5.081, 0.226)
pt3dadd(206.394, 94.738, 5.062, 0.226)
pt3dadd(206.504, 94.691, 5.044, 0.226)
pt3dadd(206.614, 94.644, 5.025, 0.226)
pt3dadd(206.725, 94.601, 5.008, 0.226)
pt3dadd(206.836, 94.557, 4.992, 0.226)
pt3dadd(206.948, 94.514, 4.975, 0.226)
pt3dadd(207.059, 94.471, 4.959, 0.226)
pt3dadd(207.17, 94.428, 4.942, 0.226)
pt3dadd(207.282, 94.384, 4.926, 0.226)
pt3dadd(207.394, 94.341, 4.91, 0.226)
pt3dadd(207.505, 94.298, 4.893, 0.226)
pt3dadd(207.616, 94.255, 4.877, 0.226)
pt3dadd(207.727, 94.211, 4.86, 0.226)
pt3dadd(207.724, 94.201, 4.855, 0.226)
pt3dadd(207.838, 94.163, 4.842, 0.226)
pt3dadd(207.95, 94.126, 4.829, 0.226)
pt3dadd(208.064, 94.089, 4.817, 0.226)
pt3dadd(208.177, 94.051, 4.805, 0.226)
pt3dadd(208.29, 94.014, 4.792, 0.226)
pt3dadd(208.404, 93.977, 4.78, 0.226)
pt3dadd(208.518, 93.94, 4.768, 0.226)
pt3dadd(208.631, 93.903, 4.755, 0.226)
pt3dadd(208.744, 93.865, 4.743, 0.226)
pt3dadd(208.859, 93.828, 4.731, 0.226)
pt3dadd(208.968, 93.779, 4.716, 0.234)
pt3dadd(209.076, 93.729, 4.7, 0.244)
pt3dadd(209.185, 93.678, 4.685, 0.254)
pt3dadd(209.294, 93.627, 4.67, 0.264)
pt3dadd(209.405, 93.577, 4.655, 0.274)
pt3dadd(209.514, 93.526, 4.639, 0.284)
pt3dadd(209.622, 93.476, 4.624, 0.294)
pt3dadd(209.731, 93.425, 4.609, 0.304)
pt3dadd(209.842, 93.374, 4.593, 0.314)
pt3dadd(209.951, 93.324, 4.578, 0.324)
pt3dadd(210.058, 93.27, 4.561, 0.336)
pt3dadd(210.164, 93.216, 4.543, 0.348)
pt3dadd(210.272, 93.162, 4.525, 0.36)
pt3dadd(210.38, 93.108, 4.507, 0.372)
pt3dadd(210.488, 93.053, 4.49, 0.384)
pt3dadd(210.595, 92.999, 4.472, 0.396)
pt3dadd(210.702, 92.945, 4.454, 0.408)
pt3dadd(210.811, 92.891, 4.436, 0.42)
pt3dadd(210.918, 92.837, 4.419, 0.432)
pt3dadd(211.025, 92.783, 4.401, 0.444)
pt3dadd(211.13, 92.744, 4.361, 0.432)
pt3dadd(211.235, 92.706, 4.319, 0.42)
pt3dadd(211.342, 92.669, 4.277, 0.406)
pt3dadd(211.446, 92.632, 4.235, 0.394)
pt3dadd(211.552, 92.594, 4.193, 0.38)
pt3dadd(211.656, 92.557, 4.152, 0.366)
pt3dadd(211.763, 92.519, 4.11, 0.354)
pt3dadd(211.867, 92.482, 4.068, 0.34)
pt3dadd(211.973, 92.444, 4.026, 0.328)
pt3dadd(212.077, 92.407, 3.984, 0.314)
pt3dadd(212.185, 92.374, 3.946, 0.31)
pt3dadd(212.293, 92.341, 3.908, 0.306)
pt3dadd(212.401, 92.308, 3.87, 0.302)
pt3dadd(212.509, 92.275, 3.833, 0.298)
pt3dadd(212.617, 92.242, 3.795, 0.294)
pt3dadd(212.724, 92.209, 3.757, 0.29)
pt3dadd(212.833, 92.176, 3.719, 0.286)
pt3dadd(212.941, 92.143, 3.681, 0.282)
pt3dadd(213.049, 92.11, 3.643, 0.278)
pt3dadd(213.156, 92.077, 3.605, 0.274)
pt3dadd(213.27, 92.053, 3.575, 0.286)
pt3dadd(213.382, 92.03, 3.546, 0.3)
pt3dadd(213.494, 92.006, 3.516, 0.314)
pt3dadd(213.606, 91.982, 3.487, 0.328)
pt3dadd(213.718, 91.959, 3.457, 0.342)
pt3dadd(213.832, 91.935, 3.427, 0.358)
pt3dadd(213.943, 91.912, 3.398, 0.372)
pt3dadd(213.94, 91.901, 3.392, 0.372)
pt3dadd(214.052, 91.878, 3.363, 0.386)
pt3dadd(214.165, 91.854, 3.333, 0.4)
pt3dadd(214.278, 91.83, 3.303, 0.414)
pt3dadd(214.392, 91.816, 3.283, 0.448)
pt3dadd(214.507, 91.802, 3.263, 0.484)
pt3dadd(214.622, 91.788, 3.243, 0.52)
pt3dadd(214.739, 91.773, 3.222, 0.554)
pt3dadd(214.854, 91.759, 3.202, 0.59)
pt3dadd(214.969, 91.745, 3.182, 0.626)
pt3dadd(215.084, 91.731, 3.162, 0.662)
pt3dadd(215.201, 91.717, 3.142, 0.696)
pt3dadd(215.315, 91.703, 3.122, 0.732)
pt3dadd(215.43, 91.689, 3.101, 0.768)
pt3dadd(215.546, 91.678, 3.087, 0.8)
pt3dadd(215.662, 91.668, 3.072, 0.83)
pt3dadd(215.779, 91.657, 3.057, 0.862)
pt3dadd(215.896, 91.646, 3.042, 0.892)
pt3dadd(216.011, 91.636, 3.028, 0.922)
pt3dadd(216.127, 91.625, 3.013, 0.954)
pt3dadd(216.244, 91.615, 2.998, 0.984)
pt3dadd(216.36, 91.604, 2.983, 1.016)
pt3dadd(216.475, 91.593, 2.969, 1.046)
pt3dadd(216.592, 91.583, 2.954, 1.078)
pt3dadd(216.708, 91.572, 2.948, 1.046)
pt3dadd(216.826, 91.562, 2.943, 1.014)
pt3dadd(216.942, 91.551, 2.937, 0.982)
pt3dadd(217.058, 91.541, 2.932, 0.952)
pt3dadd(217.175, 91.53, 2.926, 0.92)
pt3dadd(217.291, 91.519, 2.921, 0.888)
pt3dadd(217.409, 91.509, 2.915, 0.856)
pt3dadd(217.525, 91.498, 2.91, 0.824)
pt3dadd(217.642, 91.488, 2.904, 0.792)
pt3dadd(217.638, 91.477, 2.899, 0.792)
pt3dadd(217.756, 91.467, 2.893, 0.76)
pt3dadd(217.872, 91.456, 2.888, 0.734)
pt3dadd(217.988, 91.445, 2.882, 0.706)
pt3dadd(218.105, 91.435, 2.877, 0.678)
pt3dadd(218.221, 91.424, 2.871, 0.652)
pt3dadd(218.339, 91.414, 2.866, 0.624)
pt3dadd(218.455, 91.403, 2.86, 0.596)
pt3dadd(218.572, 91.392, 2.855, 0.568)
pt3dadd(218.688, 91.382, 2.849, 0.542)
pt3dadd(218.806, 91.371, 2.844, 0.514)
pt3dadd(218.922, 91.361, 2.838, 0.486)
pt3dadd(219.038, 91.35, 2.833, 0.46)
pt3dadd(219.155, 91.339, 2.827, 0.434)
pt3dadd(219.271, 91.329, 2.822, 0.408)
pt3dadd(219.389, 91.318, 2.816, 0.382)
}
}
proc shape3d_158() {
dend_7[29] { pt3dadd(219.505, 91.308, 2.811, 0.356)
pt3dadd(219.622, 91.297, 2.805, 0.33)
pt3dadd(219.738, 91.287, 2.8, 0.304)
pt3dadd(219.856, 91.276, 2.794, 0.278)
pt3dadd(219.972, 91.265, 2.789, 0.252)
pt3dadd(220.088, 91.255, 2.783, 0.226)
pt3dadd(220.085, 91.244, 2.778, 0.226)
pt3dadd(220.081, 91.234, 2.772, 0.226)
pt3dadd(220.163, 91.202, 2.697, 2.042)
pt3dadd(220.242, 91.171, 2.622, 2.052)
pt3dadd(220.322, 91.139, 2.547, 2.06)
pt3dadd(220.403, 91.108, 2.472, 2.07)
pt3dadd(220.482, 91.076, 2.397, 2.078)
pt3dadd(220.573, 91.05, 2.339, 2.08)
pt3dadd(220.69, 91.04, 2.334, 2.064)
pt3dadd(220.806, 91.029, 2.328, 2.046)
pt3dadd(220.921, 91.013, 2.323, 2.014)
pt3dadd(221.038, 90.982, 2.317, 1.936)
pt3dadd(221.152, 90.951, 2.312, 1.86)
pt3dadd(221.202, 90.856, 2.306, 1.776)
pt3dadd(221.219, 90.727, 2.301, 1.688)
pt3dadd(221.24, 90.602, 2.295, 1.606)
pt3dadd(221.338, 90.524, 2.29, 1.578)
pt3dadd(221.434, 90.447, 2.284, 1.55)
pt3dadd(221.531, 90.37, 2.279, 1.522)
pt3dadd(221.635, 90.323, 2.273, 1.522)
pt3dadd(221.753, 90.312, 2.268, 1.556)
pt3dadd(221.869, 90.302, 2.262, 1.588)
pt3dadd(221.986, 90.291, 2.257, 1.664)
pt3dadd(222.102, 90.28, 2.251, 1.732)
pt3dadd(222.218, 90.267, 2.246, 1.732)
pt3dadd(222.336, 90.255, 2.24, 1.732)
pt3dadd(222.452, 90.242, 2.235, 1.732)
pt3dadd(222.449, 90.232, 2.229, 1.732)
pt3dadd(222.565, 90.219, 2.224, 1.732)
pt3dadd(222.683, 90.207, 2.218, 1.732)
pt3dadd(222.799, 90.194, 2.213, 1.732)
pt3dadd(222.91, 90.17, 2.185, 1.724)
pt3dadd(223.013, 90.137, 2.139, 1.708)
pt3dadd(223.117, 90.104, 2.094, 1.692)
pt3dadd(223.222, 90.07, 2.048, 1.676)
pt3dadd(223.326, 90.037, 2.002, 1.66)
pt3dadd(223.405, 89.964, 1.949, 1.646)
pt3dadd(223.481, 89.885, 1.894, 1.634)
pt3dadd(223.555, 89.806, 1.84, 1.622)
pt3dadd(223.632, 89.727, 1.785, 1.61)
pt3dadd(223.724, 89.685, 1.729, 1.628)
pt3dadd(223.721, 89.675, 1.724, 1.628)
pt3dadd(223.819, 89.644, 1.668, 1.656)
pt3dadd(223.919, 89.613, 1.611, 1.684)
pt3dadd(224.016, 89.582, 1.555, 1.71)
pt3dadd(224.116, 89.546, 1.505, 1.738)
pt3dadd(224.22, 89.488, 1.484, 1.764)
pt3dadd(224.324, 89.43, 1.462, 1.79)
pt3dadd(224.431, 89.372, 1.44, 1.816)
pt3dadd(224.536, 89.314, 1.418, 1.842)
pt3dadd(224.645, 89.275, 1.396, 1.864)
pt3dadd(224.759, 89.264, 1.372, 1.882)
pt3dadd(224.874, 89.254, 1.348, 1.898)
pt3dadd(224.989, 89.243, 1.324, 1.916)
pt3dadd(225.103, 89.233, 1.3, 1.932)
pt3dadd(225.217, 89.222, 1.276, 1.948)
pt3dadd(225.332, 89.211, 1.253, 1.962)
pt3dadd(225.449, 89.201, 1.233, 1.97)
pt3dadd(225.564, 89.19, 1.213, 1.978)
pt3dadd(225.679, 89.18, 1.194, 1.986)
pt3dadd(225.794, 89.169, 1.174, 1.994)
pt3dadd(225.911, 89.159, 1.154, 2.002)
pt3dadd(226.026, 89.148, 1.136, 2.016)
pt3dadd(226.142, 89.137, 1.127, 2.052)
pt3dadd(226.259, 89.127, 1.118, 2.086)
pt3dadd(226.368, 89.114, 1.092, 2.134)
pt3dadd(226.366, 89.103, 1.086, 2.134)
pt3dadd(226.362, 89.093, 1.081, 2.134)
pt3dadd(226.46, 89.076, 1.022, 2.206)
pt3dadd(226.541, 89.05, 0.956, 2.268)
pt3dadd(226.565, 88.992, 0.861, 2.306)
pt3dadd(226.596, 88.927, 0.774, 2.342)
pt3dadd(226.655, 88.84, 0.711, 2.372)
pt3dadd(226.736, 88.774, 0.663, 2.39)
pt3dadd(226.843, 88.728, 0.632, 2.396)
pt3dadd(226.951, 88.682, 0.6, 2.404)
pt3dadd(227.058, 88.64, 0.567, 2.418)
pt3dadd(227.165, 88.629, 0.522, 2.472)
pt3dadd(227.272, 88.619, 0.478, 2.526)
pt3dadd(227.345, 88.608, 0.398, 2.58)
pt3dadd(227.412, 88.597, 0.312, 2.632)
pt3dadd(227.479, 88.587, 0.225, 2.684)
pt3dadd(227.522, 88.576, 0.128, 2.76)
pt3dadd(227.566, 88.566, 0.03, 2.838)
pt3dadd(227.641, 88.555, -0.048, 3.028)
pt3dadd(227.722, 88.545, -0.125, 3.082)
pt3dadd(227.802, 88.534, -0.202, 3.128)
pt3dadd(227.881, 88.523, -0.28, 3.174)
pt3dadd(227.962, 88.513, -0.357, 3.22)
pt3dadd(228.043, 88.502, -0.434, 3.264)
pt3dadd(228.04, 88.492, -0.439, 3.264)
pt3dadd(228.036, 88.481, -0.445, 3.264)
pt3dadd(228.145, 88.47, -0.485, 3.302)
pt3dadd(228.254, 88.46, -0.525, 3.338)
pt3dadd(228.364, 88.449, -0.565, 3.376)
pt3dadd(228.473, 88.439, -0.605, 3.412)
pt3dadd(228.582, 88.428, -0.646, 3.448)
pt3dadd(228.691, 88.418, -0.685, 3.478)
pt3dadd(228.802, 88.407, -0.723, 3.498)
pt3dadd(228.913, 88.396, -0.756, 3.504)
pt3dadd(229.03, 88.386, -0.765, 3.442)
pt3dadd(229.146, 88.375, -0.775, 3.382)
pt3dadd(229.261, 88.365, -0.793, 3.306)
pt3dadd(229.258, 88.354, -0.799, 3.306)
pt3dadd(229.367, 88.343, -0.837, 3.2)
pt3dadd(229.476, 88.333, -0.876, 3.092)
pt3dadd(229.525, 88.364, -0.963, 2.998)
pt3dadd(229.568, 88.394, -1.053, 2.912)
pt3dadd(229.565, 88.405, -1.157, 2.9)
pt3dadd(229.561, 88.416, -1.261, 2.888)
pt3dadd(229.558, 88.427, -1.365, 2.876)
pt3dadd(229.555, 88.438, -1.469, 2.866)
pt3dadd(229.552, 88.427, -1.474, 2.866)
pt3dadd(229.548, 88.417, -1.48, 2.866)
pt3dadd(229.544, 88.506, -1.518, 2.848)
pt3dadd(229.541, 88.613, -1.541, 2.828)
pt3dadd(229.546, 88.72, -1.56, 2.796)
pt3dadd(229.574, 88.825, -1.565, 2.718)
pt3dadd(229.648, 88.893, -1.571, 2.548)
pt3dadd(229.758, 88.919, -1.577, 2.358)
pt3dadd(229.859, 88.955, -1.604, 2.258)
pt3dadd(229.948, 88.993, -1.658, 2.066)
pt3dadd(230.046, 89.013, -1.706, 1.824)
pt3dadd(230.125, 89.05, -1.77, 1.738)
pt3dadd(230.206, 89.088, -1.835, 1.654)
pt3dadd(230.287, 89.126, -1.899, 1.568)
pt3dadd(230.352, 89.168, -1.97, 1.464)
pt3dadd(230.376, 89.221, -2.057, 1.306)
pt3dadd(230.424, 89.257, -2.138, 1.162)
pt3dadd(230.51, 89.267, -2.207, 1.044)
pt3dadd(230.579, 89.268, -2.289, 0.96)
pt3dadd(230.622, 89.258, -2.386, 0.916)
pt3dadd(230.675, 89.248, -2.475, 0.878)
pt3dadd(230.784, 89.243, -2.515, 0.866)
pt3dadd(230.894, 89.238, -2.555, 0.854)
pt3dadd(230.99, 89.289, -2.573, 0.88)
pt3dadd(231.086, 89.346, -2.588, 0.91)
pt3dadd(231.181, 89.402, -2.604, 0.94)
pt3dadd(231.251, 89.476, -2.633, 1.018)
pt3dadd(231.298, 89.566, -2.674, 1.14)
pt3dadd(231.373, 89.639, -2.692, 1.506)
pt3dadd(231.456, 89.707, -2.719, 1.614)
pt3dadd(231.538, 89.776, -2.747, 1.7)
pt3dadd(231.62, 89.845, -2.776, 1.786)
pt3dadd(231.703, 89.914, -2.804, 1.872)
pt3dadd(231.769, 89.967, -2.863, 1.992)
pt3dadd(231.826, 90.009, -2.943, 2.132)
pt3dadd(231.889, 90.064, -3.01, 2.182)
pt3dadd(231.958, 90.124, -3.072, 2.204)
pt3dadd(232.037, 90.188, -3.115, 2.118)
pt3dadd(232.111, 90.259, -3.147, 2.024)
pt3dadd(232.175, 90.348, -3.152, 1.908)
pt3dadd(232.246, 90.424, -3.159, 1.796)
pt3dadd(232.363, 90.426, -3.172, 1.714)
pt3dadd(232.478, 90.428, -3.185, 1.632)
pt3dadd(232.594, 90.43, -3.199, 1.55)
pt3dadd(232.709, 90.431, -3.212, 1.466)
pt3dadd(232.816, 90.422, -3.257, 1.33)
pt3dadd(232.919, 90.412, -3.307, 1.184)
pt3dadd(232.999, 90.401, -3.381, 1.074)
pt3dadd(233.065, 90.391, -3.468, 0.986)
pt3dadd(233.131, 90.38, -3.555, 0.9)
pt3dadd(233.191, 90.369, -3.646, 0.862)
pt3dadd(233.249, 90.359, -3.737, 0.838)
pt3dadd(233.324, 90.348, -3.815, 0.87)
pt3dadd(233.387, 90.358, -3.901, 0.898)
pt3dadd(233.447, 90.371, -3.99, 0.92)
pt3dadd(233.504, 90.384, -4.079, 0.942)
pt3dadd(233.563, 90.397, -4.168, 0.964)
pt3dadd(233.634, 90.412, -4.245, 0.984)
pt3dadd(233.732, 90.432, -4.298, 0.994)
pt3dadd(233.832, 90.451, -4.35, 1.006)
pt3dadd(233.929, 90.47, -4.403, 1.016)
pt3dadd(234.028, 90.489, -4.456, 1.028)
pt3dadd(234.136, 90.503, -4.489, 1.034)
pt3dadd(234.247, 90.516, -4.518, 1.038)
pt3dadd(234.358, 90.53, -4.548, 1.044)
pt3dadd(234.468, 90.543, -4.578, 1.048)
pt3dadd(234.578, 90.556, -4.608, 1.054)
pt3dadd(234.671, 90.597, -4.652, 1.05)
pt3dadd(234.761, 90.644, -4.7, 1.044)
pt3dadd(234.85, 90.691, -4.748, 1.038)
pt3dadd(234.938, 90.738, -4.796, 1.032)
pt3dadd(235.039, 90.763, -4.836, 1.02)
pt3dadd(235.15, 90.777, -4.871, 1.004)
pt3dadd(235.258, 90.791, -4.906, 0.988)
pt3dadd(235.366, 90.805, -4.941, 0.974)
pt3dadd(235.475, 90.819, -4.976, 0.958)
pt3dadd(235.56, 90.814, -5.045, 0.928)
pt3dadd(235.639, 90.804, -5.123, 0.892)
pt3dadd(235.733, 90.823, -5.17, 0.87)
pt3dadd(235.836, 90.86, -5.197, 0.858)
pt3dadd(235.903, 90.93, -5.234, 0.906)
pt3dadd(235.95, 91.02, -5.275, 0.988)
}
}
proc shape3d_159() {
dend_7[29] { pt3dadd(235.97, 91.124, -5.292, 1.08)
pt3dadd(235.982, 91.232, -5.302, 1.178)
pt3dadd(235.991, 91.328, -5.328, 1.272)
pt3dadd(235.987, 91.376, -5.421, 1.354)
pt3dadd(235.985, 91.423, -5.514, 1.436)
pt3dadd(235.981, 91.471, -5.607, 1.518)
pt3dadd(236.002, 91.498, -5.702, 1.602)
pt3dadd(235.998, 91.487, -5.708, 1.602)
pt3dadd(236.039, 91.496, -5.805, 1.686)
pt3dadd(236.095, 91.496, -5.896, 1.78)
pt3dadd(236.141, 91.485, -5.991, 1.808)
pt3dadd(236.177, 91.474, -6.091, 1.808)
pt3dadd(236.221, 91.464, -6.188, 1.816)
pt3dadd(236.279, 91.453, -6.28, 1.84)
pt3dadd(236.346, 91.446, -6.362, 1.87)
pt3dadd(236.452, 91.455, -6.405, 1.93)
pt3dadd(236.554, 91.472, -6.446, 1.998)
pt3dadd(236.629, 91.548, -6.475, 2.106)
pt3dadd(236.701, 91.626, -6.506, 2.2)
pt3dadd(236.762, 91.71, -6.54, 2.256)
pt3dadd(236.824, 91.794, -6.575, 2.314)
pt3dadd(236.875, 91.88, -6.612, 2.366)
pt3dadd(236.879, 91.975, -6.664, 2.402)
pt3dadd(236.884, 92.069, -6.717, 2.436)
pt3dadd(236.88, 92.058, -6.722, 2.436)
pt3dadd(236.962, 92.099, -6.784, 2.414)
pt3dadd(237.043, 92.139, -6.846, 2.392)
pt3dadd(237.145, 92.149, -6.89, 2.328)
pt3dadd(237.257, 92.144, -6.924, 2.24)
pt3dadd(237.368, 92.149, -6.948, 2.054)
pt3dadd(237.466, 92.177, -6.984, 1.838)
pt3dadd(237.552, 92.211, -7.045, 1.754)
pt3dadd(237.638, 92.245, -7.106, 1.67)
pt3dadd(237.724, 92.279, -7.167, 1.586)
pt3dadd(237.811, 92.319, -7.222, 1.484)
pt3dadd(237.902, 92.367, -7.264, 1.344)
pt3dadd(237.98, 92.436, -7.286, 1.256)
pt3dadd(238.045, 92.525, -7.292, 1.21)
pt3dadd(238.126, 92.591, -7.299, 1.184)
pt3dadd(238.235, 92.622, -7.31, 1.196)
pt3dadd(238.339, 92.652, -7.328, 1.214)
pt3dadd(238.412, 92.687, -7.402, 1.284)
pt3dadd(238.477, 92.709, -7.482, 1.368)
pt3dadd(238.53, 92.708, -7.575, 1.476)
pt3dadd(238.609, 92.75, -7.637, 1.516)
pt3dadd(238.692, 92.795, -7.696, 1.552)
pt3dadd(238.772, 92.84, -7.756, 1.59)
pt3dadd(238.853, 92.884, -7.816, 1.626)
pt3dadd(238.849, 92.874, -7.821, 1.626)
pt3dadd(238.931, 92.892, -7.892, 1.632)
pt3dadd(239.012, 92.906, -7.966, 1.632)
pt3dadd(239.094, 92.92, -8.039, 1.632)
pt3dadd(239.174, 92.933, -8.113, 1.632)
pt3dadd(239.263, 92.939, -8.18, 1.602)
pt3dadd(239.363, 92.935, -8.238, 1.53)
pt3dadd(239.466, 92.929, -8.282, 1.45)
pt3dadd(239.582, 92.918, -8.296, 1.35)
pt3dadd(239.699, 92.907, -8.309, 1.252)
pt3dadd(239.803, 92.897, -8.349, 1.156)
pt3dadd(239.899, 92.886, -8.411, 1.062)
pt3dadd(239.965, 92.876, -8.489, 0.994)
pt3dadd(239.962, 92.865, -8.494, 0.994)
pt3dadd(239.978, 92.855, -8.598, 0.964)
pt3dadd(239.996, 92.844, -8.702, 0.936)
pt3dadd(240.059, 92.887, -8.768, 0.942)
pt3dadd(240.133, 92.946, -8.823, 0.96)
pt3dadd(240.208, 93.004, -8.878, 0.976)
pt3dadd(240.287, 93.02, -8.951, 1.002)
pt3dadd(240.367, 93.03, -9.026, 1.028)
pt3dadd(240.472, 93.02, -9.075, 1.084)
pt3dadd(240.581, 93.01, -9.115, 1.108)
pt3dadd(240.69, 92.999, -9.156, 1.13)
pt3dadd(240.799, 92.989, -9.196, 1.154)
pt3dadd(240.908, 92.978, -9.236, 1.176)
pt3dadd(241.018, 92.967, -9.276, 1.2)
pt3dadd(241.114, 92.957, -9.336, 1.24)
pt3dadd(241.206, 92.946, -9.401, 1.286)
pt3dadd(241.3, 92.936, -9.467, 1.33)
pt3dadd(241.392, 92.925, -9.532, 1.376)
pt3dadd(241.484, 92.915, -9.598, 1.42)
pt3dadd(241.592, 92.904, -9.636, 1.458)
pt3dadd(241.705, 92.893, -9.667, 1.492)
pt3dadd(241.819, 92.883, -9.698, 1.528)
pt3dadd(241.932, 92.872, -9.728, 1.564)
pt3dadd(242.044, 92.862, -9.759, 1.598)
pt3dadd(242.156, 92.851, -9.79, 1.632)
pt3dadd(242.266, 92.841, -9.832, 1.642)
pt3dadd(242.374, 92.83, -9.875, 1.65)
pt3dadd(242.37, 92.819, -9.881, 1.65)
pt3dadd(242.478, 92.809, -9.923, 1.66)
pt3dadd(242.585, 92.798, -9.966, 1.67)
pt3dadd(242.694, 92.788, -10.008, 1.678)
pt3dadd(242.8, 92.777, -10.056, 1.666)
pt3dadd(242.903, 92.766, -10.106, 1.644)
pt3dadd(243.007, 92.756, -10.156, 1.618)
pt3dadd(243.112, 92.745, -10.207, 1.594)
pt3dadd(243.216, 92.735, -10.257, 1.57)
pt3dadd(243.323, 92.724, -10.298, 1.548)
pt3dadd(243.437, 92.713, -10.326, 1.526)
pt3dadd(243.55, 92.703, -10.355, 1.504)
pt3dadd(243.664, 92.692, -10.383, 1.484)
pt3dadd(243.778, 92.682, -10.412, 1.462)
pt3dadd(243.89, 92.671, -10.44, 1.44)
pt3dadd(244.006, 92.661, -10.455, 1.412)
pt3dadd(244.123, 92.65, -10.46, 1.378)
pt3dadd(244.24, 92.639, -10.466, 1.344)
pt3dadd(244.352, 92.629, -10.491, 1.318)
pt3dadd(244.462, 92.618, -10.53, 1.296)
pt3dadd(244.555, 92.608, -10.583, 1.272)
pt3dadd(244.598, 92.597, -10.68, 1.24)
pt3dadd(244.642, 92.586, -10.778, 1.206)
pt3dadd(244.718, 92.576, -10.858, 1.228)
pt3dadd(244.796, 92.565, -10.936, 1.252)
pt3dadd(244.86, 92.555, -11.024, 1.356)
pt3dadd(244.934, 92.543, -11.105, 1.454)
pt3dadd(245.026, 92.53, -11.172, 1.516)
pt3dadd(245.117, 92.517, -11.238, 1.578)
pt3dadd(245.208, 92.503, -11.305, 1.638)
pt3dadd(245.3, 92.49, -11.372, 1.7)
pt3dadd(245.401, 92.468, -11.422, 1.744)
pt3dadd(245.512, 92.436, -11.454, 1.77)
pt3dadd(245.621, 92.405, -11.486, 1.794)
pt3dadd(245.731, 92.373, -11.517, 1.82)
pt3dadd(245.843, 92.341, -11.549, 1.844)
pt3dadd(245.952, 92.318, -11.586, 1.852)
pt3dadd(246.06, 92.308, -11.629, 1.838)
pt3dadd(246.168, 92.297, -11.671, 1.824)
pt3dadd(246.277, 92.287, -11.714, 1.81)
pt3dadd(246.384, 92.276, -11.757, 1.796)
pt3dadd(246.38, 92.265, -11.762, 1.796)
pt3dadd(246.488, 92.255, -11.805, 1.78)
pt3dadd(246.593, 92.244, -11.855, 1.722)
pt3dadd(246.697, 92.234, -11.905, 1.664)
pt3dadd(246.8, 92.223, -11.956, 1.608)
pt3dadd(246.905, 92.212, -12.006, 1.55)
pt3dadd(247.008, 92.202, -12.056, 1.492)
pt3dadd(247.081, 92.191, -12.137, 1.376)
pt3dadd(247.145, 92.181, -12.225, 1.248)
pt3dadd(247.21, 92.17, -12.313, 1.136)
pt3dadd(247.273, 92.16, -12.401, 1.03)
pt3dadd(247.364, 92.149, -12.449, 0.958)
pt3dadd(247.482, 92.138, -12.458, 0.914)
pt3dadd(247.598, 92.128, -12.468, 0.87)
pt3dadd(247.715, 92.117, -12.474, 0.848)
pt3dadd(247.831, 92.107, -12.48, 0.84)
pt3dadd(247.949, 92.096, -12.485, 0.832)
pt3dadd(248.064, 92.085, -12.503, 0.892)
pt3dadd(248.178, 92.075, -12.528, 0.996)
pt3dadd(248.293, 92.064, -12.545, 1.044)
pt3dadd(248.41, 92.054, -12.561, 1.088)
pt3dadd(248.526, 92.043, -12.577, 1.132)
pt3dadd(248.642, 92.033, -12.593, 1.174)
pt3dadd(248.758, 92.022, -12.609, 1.218)
pt3dadd(248.873, 92.011, -12.625, 1.262)
pt3dadd(248.98, 91.983, -12.66, 1.302)
pt3dadd(249.079, 91.939, -12.71, 1.342)
pt3dadd(249.178, 91.896, -12.761, 1.382)
pt3dadd(249.276, 91.852, -12.811, 1.422)
pt3dadd(249.376, 91.809, -12.86, 1.454)
pt3dadd(249.482, 91.77, -12.899, 1.432)
pt3dadd(249.589, 91.732, -12.937, 1.412)
pt3dadd(249.695, 91.693, -12.976, 1.39)
pt3dadd(249.802, 91.654, -13.014, 1.37)
pt3dadd(249.911, 91.621, -13.045, 1.342)
pt3dadd(250.026, 91.596, -13.064, 1.308)
pt3dadd(250.14, 91.571, -13.084, 1.272)
pt3dadd(250.255, 91.546, -13.103, 1.236)
pt3dadd(250.369, 91.521, -13.122, 1.2)
pt3dadd(250.484, 91.497, -13.141, 1.166)
pt3dadd(250.597, 91.486, -13.171, 1.116)
pt3dadd(250.708, 91.481, -13.206, 1.062)
pt3dadd(250.818, 91.491, -13.23, 1.034)
pt3dadd(250.927, 91.521, -13.241, 1.046)
pt3dadd(251.036, 91.55, -13.256, 1.062)
pt3dadd(251.14, 91.566, -13.301, 1.112)
pt3dadd(251.239, 91.586, -13.349, 1.166)
pt3dadd(251.311, 91.629, -13.418, 1.238)
pt3dadd(251.357, 91.697, -13.471, 1.294)
pt3dadd(251.36, 91.802, -13.503, 1.326)
pt3dadd(251.363, 91.907, -13.534, 1.358)
pt3dadd(251.366, 92.013, -13.565, 1.39)
pt3dadd(251.392, 92.113, -13.591, 1.418)
pt3dadd(251.442, 92.208, -13.613, 1.444)
pt3dadd(251.513, 92.274, -13.649, 1.438)
pt3dadd(251.611, 92.305, -13.692, 1.372)
pt3dadd(251.717, 92.341, -13.705, 1.234)
pt3dadd(251.826, 92.368, -13.711, 1.132)
pt3dadd(251.944, 92.371, -13.716, 1.048)
pt3dadd(252.06, 92.361, -13.722, 0.982)
pt3dadd(252.175, 92.351, -13.73, 1.006)
pt3dadd(252.284, 92.342, -13.771, 1.04)
pt3dadd(252.394, 92.334, -13.812, 1.072)
pt3dadd(252.503, 92.326, -13.852, 1.106)
pt3dadd(252.611, 92.318, -13.893, 1.138)
pt3dadd(252.72, 92.31, -13.934, 1.172)
pt3dadd(252.816, 92.317, -13.991, 1.238)
pt3dadd(252.91, 92.331, -14.054, 1.316)
pt3dadd(253.001, 92.344, -14.116, 1.394)
pt3dadd(253.093, 92.357, -14.179, 1.474)
pt3dadd(253.186, 92.364, -14.242, 1.55)
}
}
proc shape3d_160() {
dend_7[29] { pt3dadd(253.282, 92.354, -14.305, 1.62)
pt3dadd(253.376, 92.343, -14.368, 1.69)
pt3dadd(253.471, 92.333, -14.43, 1.76)
pt3dadd(253.565, 92.322, -14.493, 1.83)
pt3dadd(253.655, 92.312, -14.561, 1.896)
pt3dadd(253.652, 92.301, -14.567, 1.896)
pt3dadd(253.723, 92.29, -14.651, 1.946)
pt3dadd(253.795, 92.28, -14.734, 1.996)
pt3dadd(253.866, 92.269, -14.818, 2.046)
pt3dadd(253.939, 92.259, -14.901, 2.096)
pt3dadd(254.011, 92.248, -14.984, 2.146)
pt3dadd(254.089, 92.237, -15.063, 2.194)
pt3dadd(254.168, 92.227, -15.141, 2.234)
pt3dadd(254.252, 92.216, -15.214, 2.222)
pt3dadd(254.339, 92.206, -15.287, 2.21)
pt3dadd(254.448, 92.195, -15.326, 2.166)
pt3dadd(254.558, 92.184, -15.364, 2.124)
pt3dadd(254.672, 92.174, -15.381, 2.066)
pt3dadd(254.79, 92.163, -15.387, 1.998)
pt3dadd(254.906, 92.153, -15.392, 1.932)
pt3dadd(255.023, 92.142, -15.398, 1.826)
pt3dadd(255.139, 92.132, -15.403, 1.7)
pt3dadd(255.254, 92.121, -15.42, 1.624)
pt3dadd(255.371, 92.11, -15.441, 1.576)
pt3dadd(255.485, 92.1, -15.463, 1.526)
pt3dadd(255.6, 92.089, -15.485, 1.476)
pt3dadd(255.714, 92.079, -15.507, 1.426)
pt3dadd(255.829, 92.068, -15.529, 1.378)
pt3dadd(255.946, 92.058, -15.548, 1.334)
pt3dadd(256.062, 92.047, -15.564, 1.294)
pt3dadd(256.177, 92.036, -15.58, 1.254)
pt3dadd(256.294, 92.026, -15.596, 1.214)
pt3dadd(256.41, 92.015, -15.612, 1.176)
pt3dadd(256.525, 92.005, -15.627, 1.136)
pt3dadd(256.64, 91.994, -15.647, 1.094)
pt3dadd(256.752, 91.983, -15.68, 1.042)
pt3dadd(256.865, 91.973, -15.713, 0.99)
pt3dadd(256.975, 91.948, -15.749, 0.998)
pt3dadd(257.084, 91.919, -15.785, 1.022)
pt3dadd(257.192, 91.877, -15.812, 1.082)
pt3dadd(257.302, 91.829, -15.833, 1.164)
pt3dadd(257.396, 91.762, -15.865, 1.27)
pt3dadd(257.474, 91.676, -15.908, 1.396)
pt3dadd(257.5, 91.56, -15.939, 1.478)
pt3dadd(257.518, 91.443, -15.967, 1.53)
pt3dadd(257.624, 91.399, -16, 1.514)
pt3dadd(257.731, 91.355, -16.034, 1.498)
pt3dadd(257.838, 91.31, -16.068, 1.482)
pt3dadd(257.945, 91.266, -16.102, 1.466)
pt3dadd(258.055, 91.232, -16.126, 1.438)
pt3dadd(258.172, 91.213, -16.137, 1.394)
pt3dadd(258.288, 91.194, -16.148, 1.35)
pt3dadd(258.403, 91.175, -16.158, 1.306)
pt3dadd(258.52, 91.156, -16.169, 1.262)
pt3dadd(258.636, 91.137, -16.18, 1.218)
pt3dadd(258.752, 91.113, -16.19, 1.172)
pt3dadd(258.863, 91.067, -16.196, 1.124)
pt3dadd(258.973, 91.02, -16.201, 1.074)
pt3dadd(259.085, 90.974, -16.207, 1.024)
pt3dadd(259.195, 90.927, -16.212, 0.974)
pt3dadd(259.308, 90.881, -16.218, 0.926)
pt3dadd(259.41, 90.818, -16.223, 0.882)
pt3dadd(259.507, 90.741, -16.229, 0.842)
pt3dadd(259.603, 90.664, -16.234, 0.802)
pt3dadd(259.702, 90.588, -16.24, 0.762)
pt3dadd(259.798, 90.511, -16.245, 0.722)
pt3dadd(259.86, 90.409, -16.25, 0.64)
pt3dadd(259.904, 90.289, -16.256, 0.556)
pt3dadd(259.934, 90.163, -16.262, 0.562)
pt3dadd(259.966, 90.038, -16.262, 0.638)
pt3dadd(260.033, 89.946, -16.238, 0.784)
pt3dadd(260.136, 89.922, -16.201, 0.962)
pt3dadd(260.25, 89.912, -16.188, 1.062)
pt3dadd(260.366, 89.901, -16.181, 1.062)
pt3dadd(260.474, 89.891, -16.156, 0.976)
}
dend_7[30] {pt3dclear()
pt3dadd(199.596, 100.361, 8.042, 2.166)
pt3dadd(199.537, 100.364, 7.991, 2.126)
pt3dadd(199.454, 100.396, 7.92, 2.062)
pt3dadd(199.373, 100.428, 7.849, 1.998)
pt3dadd(199.29, 100.46, 7.778, 1.934)
pt3dadd(199.206, 100.492, 7.707, 1.87)
pt3dadd(199.123, 100.524, 7.635, 1.808)
pt3dadd(199.04, 100.556, 7.564, 1.744)
pt3dadd(198.956, 100.588, 7.493, 1.68)
pt3dadd(198.874, 100.62, 7.422, 1.616)
pt3dadd(198.792, 100.652, 7.351, 1.552)
pt3dadd(198.708, 100.684, 7.28, 1.488)
pt3dadd(198.625, 100.716, 7.208, 1.426)
pt3dadd(198.542, 100.748, 7.137, 1.362)
pt3dadd(198.538, 100.736, 7.132, 1.362)
pt3dadd(198.533, 100.724, 7.127, 1.362)
pt3dadd(198.521, 100.79, 7.049, 1.356)
pt3dadd(198.517, 100.859, 6.97, 1.356)
pt3dadd(198.512, 100.927, 6.891, 1.356)
pt3dadd(198.508, 100.996, 6.812, 1.356)
pt3dadd(198.503, 101.065, 6.734, 1.356)
pt3dadd(198.498, 101.088, 6.633, 1.356)
pt3dadd(198.493, 101.109, 6.532, 1.356)
pt3dadd(198.49, 101.13, 6.431, 1.356)
pt3dadd(198.485, 101.151, 6.33, 1.356)
pt3dadd(198.48, 101.172, 6.229, 1.356)
pt3dadd(198.475, 101.19, 6.128, 1.356)
pt3dadd(198.47, 101.2, 6.024, 1.356)
pt3dadd(198.466, 101.21, 5.921, 1.356)
pt3dadd(198.461, 101.221, 5.818, 1.356)
pt3dadd(198.457, 101.231, 5.715, 1.356)
pt3dadd(198.452, 101.241, 5.612, 1.356)
pt3dadd(198.448, 101.247, 5.508, 1.356)
pt3dadd(198.443, 101.243, 5.403, 1.356)
pt3dadd(198.438, 101.239, 5.299, 1.356)
pt3dadd(198.433, 101.235, 5.194, 1.356)
pt3dadd(198.428, 101.231, 5.089, 1.356)
pt3dadd(198.425, 101.227, 4.985, 1.356)
pt3dadd(198.42, 101.223, 4.88, 1.356)
pt3dadd(198.415, 101.238, 4.778, 1.356)
pt3dadd(198.41, 101.259, 4.677, 1.356)
pt3dadd(198.406, 101.28, 4.576, 1.356)
pt3dadd(198.401, 101.301, 4.475, 1.356)
pt3dadd(198.396, 101.322, 4.374, 1.356)
pt3dadd(198.392, 101.341, 4.273, 1.356)
pt3dadd(198.388, 101.329, 4.168, 1.356)
pt3dadd(198.383, 101.317, 4.063, 1.356)
pt3dadd(198.378, 101.305, 3.958, 1.356)
pt3dadd(198.373, 101.293, 3.853, 1.356)
pt3dadd(198.368, 101.281, 3.748, 1.356)
pt3dadd(198.365, 101.269, 3.743, 1.356)
pt3dadd(198.36, 101.257, 3.638, 1.356)
pt3dadd(198.355, 101.246, 3.533, 1.356)
pt3dadd(198.35, 101.247, 3.429, 1.356)
pt3dadd(198.346, 101.247, 3.325, 1.356)
pt3dadd(198.341, 101.248, 3.22, 1.356)
pt3dadd(198.336, 101.249, 3.116, 1.356)
pt3dadd(198.332, 101.249, 3.012, 1.356)
pt3dadd(198.328, 101.25, 2.907, 1.356)
pt3dadd(198.323, 101.258, 2.804, 1.356)
pt3dadd(198.318, 101.269, 2.701, 1.356)
pt3dadd(198.313, 101.257, 2.696, 0.904)
pt3dadd(198.308, 101.245, 2.691, 0.904)
pt3dadd(198.304, 101.233, 2.686, 0.904)
pt3dadd(198.3, 101.221, 2.681, 0.904)
pt3dadd(198.295, 101.209, 2.676, 0.904)
pt3dadd(198.29, 101.269, 2.591, 1.014)
pt3dadd(198.286, 101.329, 2.507, 1.126)
pt3dadd(198.281, 101.389, 2.422, 1.236)
pt3dadd(198.276, 101.449, 2.337, 1.346)
pt3dadd(198.271, 101.509, 2.252, 1.456)
pt3dadd(198.268, 101.551, 2.158, 1.602)
pt3dadd(198.263, 101.593, 2.063, 1.748)
pt3dadd(198.258, 101.64, 1.971, 1.914)
pt3dadd(198.253, 101.689, 1.88, 2.086)
pt3dadd(198.248, 101.677, 1.875, 2.086)
pt3dadd(198.244, 101.75, 1.805, 2.258)
pt3dadd(198.239, 101.842, 1.749, 2.43)
pt3dadd(198.235, 101.938, 1.702, 2.592)
pt3dadd(198.23, 102.041, 1.67, 2.736)
pt3dadd(198.226, 102.144, 1.637, 2.882)
pt3dadd(198.221, 102.24, 1.589, 2.968)
pt3dadd(198.216, 102.332, 1.534, 3.004)
pt3dadd(198.211, 102.421, 1.474, 2.984)
pt3dadd(198.208, 102.509, 1.415, 2.964)
pt3dadd(198.203, 102.597, 1.355, 2.944)
pt3dadd(198.198, 102.685, 1.295, 2.924)
pt3dadd(198.193, 102.779, 1.243, 2.892)
pt3dadd(198.188, 102.879, 1.204, 2.842)
pt3dadd(198.184, 102.98, 1.164, 2.79)
pt3dadd(198.179, 103.08, 1.124, 2.74)
pt3dadd(198.175, 103.181, 1.085, 2.69)
pt3dadd(198.17, 103.281, 1.045, 2.638)
pt3dadd(198.166, 103.366, 0.981, 2.588)
pt3dadd(198.161, 103.45, 0.917, 2.538)
pt3dadd(198.156, 103.534, 0.852, 2.488)
pt3dadd(198.151, 103.618, 0.787, 2.438)
pt3dadd(198.146, 103.702, 0.722, 2.388)
pt3dadd(198.143, 103.796, 0.669, 2.354)
pt3dadd(198.138, 103.89, 0.617, 2.318)
pt3dadd(198.133, 103.983, 0.565, 2.286)
pt3dadd(198.128, 103.971, 0.56, 2.286)
pt3dadd(198.124, 104.065, 0.508, 2.25)
pt3dadd(198.119, 104.159, 0.456, 2.218)
pt3dadd(198.114, 104.241, 0.39, 2.194)
pt3dadd(198.11, 104.32, 0.32, 2.174)
pt3dadd(198.106, 104.4, 0.25, 2.154)
pt3dadd(198.101, 104.479, 0.18, 2.132)
pt3dadd(198.096, 104.558, 0.11, 2.112)
pt3dadd(198.091, 104.657, 0.071, 2.1)
pt3dadd(198.086, 104.761, 0.039, 2.09)
pt3dadd(198.082, 104.861, 0, 2.08)
pt3dadd(198.078, 104.956, -0.05, 2.068)
pt3dadd(198.077, 105.048, -0.103, 2.06)
pt3dadd(198.092, 105.119, -0.178, 2.06)
pt3dadd(198.128, 105.185, -0.24, 2.056)
pt3dadd(198.224, 105.234, -0.261, 2.044)
pt3dadd(198.305, 105.291, -0.294, 2.038)
pt3dadd(198.341, 105.372, -0.353, 2.056)
pt3dadd(198.376, 105.452, -0.413, 2.072)
pt3dadd(198.401, 105.537, -0.468, 2.092)
pt3dadd(198.396, 105.638, -0.506, 2.124)
pt3dadd(198.391, 105.74, -0.543, 2.156)
pt3dadd(198.386, 105.728, -0.548, 2.156)
pt3dadd(198.425, 105.778, -0.626, 2.188)
}
}
proc shape3d_161() {
dend_7[30] { pt3dadd(198.472, 105.822, -0.709, 2.218)
pt3dadd(198.54, 105.859, -0.776, 2.248)
pt3dadd(198.636, 105.889, -0.822, 2.274)
pt3dadd(198.712, 105.936, -0.879, 2.284)
pt3dadd(198.756, 105.967, -0.968, 2.262)
pt3dadd(198.8, 105.997, -1.057, 2.238)
pt3dadd(198.796, 105.985, -1.062, 2.238)
pt3dadd(198.84, 106.016, -1.151, 2.216)
pt3dadd(198.884, 106.047, -1.24, 2.192)
pt3dadd(198.93, 106.062, -1.332, 2.156)
pt3dadd(198.976, 106.07, -1.426, 2.114)
pt3dadd(199.021, 106.078, -1.52, 2.072)
pt3dadd(199.068, 106.086, -1.614, 2.03)
pt3dadd(199.114, 106.093, -1.708, 1.986)
pt3dadd(199.174, 106.118, -1.792, 1.94)
pt3dadd(199.235, 106.143, -1.875, 1.894)
pt3dadd(199.295, 106.168, -1.958, 1.846)
pt3dadd(199.356, 106.193, -2.04, 1.8)
pt3dadd(199.402, 106.222, -2.129, 1.766)
pt3dadd(199.439, 106.252, -2.221, 1.74)
pt3dadd(199.47, 106.255, -2.319, 1.756)
pt3dadd(199.5, 106.249, -2.42, 1.788)
pt3dadd(199.534, 106.264, -2.514, 1.848)
pt3dadd(199.573, 106.311, -2.598, 1.944)
pt3dadd(199.618, 106.372, -2.669, 2.05)
pt3dadd(199.666, 106.443, -2.73, 2.164)
pt3dadd(199.727, 106.503, -2.793, 2.234)
pt3dadd(199.793, 106.56, -2.856, 2.296)
pt3dadd(199.858, 106.618, -2.918, 2.356)
pt3dadd(199.853, 106.606, -2.923, 2.356)
pt3dadd(199.962, 106.603, -2.948, 2.388)
pt3dadd(200.076, 106.596, -2.971, 2.42)
pt3dadd(200.188, 106.587, -2.998, 2.45)
pt3dadd(200.285, 106.575, -3.053, 2.464)
pt3dadd(200.375, 106.563, -3.12, 2.47)
pt3dadd(200.464, 106.551, -3.187, 2.474)
pt3dadd(200.552, 106.539, -3.255, 2.48)
pt3dadd(200.641, 106.527, -3.322, 2.484)
pt3dadd(200.71, 106.533, -3.403, 2.5)
pt3dadd(200.768, 106.548, -3.49, 2.524)
pt3dadd(200.826, 106.563, -3.577, 2.546)
pt3dadd(200.885, 106.578, -3.664, 2.568)
pt3dadd(200.939, 106.587, -3.754, 2.592)
pt3dadd(200.974, 106.576, -3.853, 2.624)
pt3dadd(201.008, 106.564, -3.952, 2.656)
pt3dadd(201.026, 106.552, -4.055, 2.678)
pt3dadd(201.042, 106.54, -4.158, 2.698)
pt3dadd(201.077, 106.528, -4.251, 2.712)
pt3dadd(201.173, 106.516, -4.313, 2.712)
pt3dadd(201.268, 106.504, -4.374, 2.712)
pt3dadd(201.366, 106.492, -4.429, 2.712)
pt3dadd(201.464, 106.48, -4.485, 2.712)
pt3dadd(201.557, 106.496, -4.543, 2.694)
pt3dadd(201.658, 106.521, -4.581, 2.656)
pt3dadd(201.763, 106.548, -4.607, 2.606)
pt3dadd(201.865, 106.552, -4.651, 2.538)
pt3dadd(201.965, 106.54, -4.707, 2.458)
pt3dadd(202.03, 106.528, -4.782, 2.376)
pt3dadd(202.045, 106.516, -4.885, 2.288)
pt3dadd(202.061, 106.504, -4.989, 2.202)
pt3dadd(202.072, 106.492, -5.093, 2.132)
pt3dadd(202.082, 106.48, -5.197, 2.066)
pt3dadd(202.102, 106.468, -5.297, 2.004)
pt3dadd(202.18, 106.456, -5.375, 1.962)
pt3dadd(202.258, 106.444, -5.452, 1.918)
pt3dadd(202.336, 106.432, -5.529, 1.876)
pt3dadd(202.41, 106.464, -5.59, 1.858)
pt3dadd(202.481, 106.528, -5.639, 1.858)
pt3dadd(202.506, 106.625, -5.665, 1.986)
pt3dadd(202.555, 106.674, -5.743, 2.06)
pt3dadd(202.606, 106.724, -5.82, 2.132)
pt3dadd(202.656, 106.773, -5.898, 2.206)
pt3dadd(202.706, 106.823, -5.976, 2.278)
pt3dadd(202.786, 106.872, -6.029, 2.352)
pt3dadd(202.868, 106.921, -6.079, 2.424)
pt3dadd(202.952, 106.971, -6.13, 2.498)
pt3dadd(203.034, 107.02, -6.181, 2.57)
pt3dadd(203.107, 107.086, -6.225, 2.686)
pt3dadd(203.177, 107.156, -6.267, 2.812)
pt3dadd(203.178, 107.235, -6.337, 2.862)
pt3dadd(203.18, 107.315, -6.407, 2.91)
pt3dadd(203.262, 107.313, -6.477, 2.902)
pt3dadd(203.35, 107.308, -6.546, 2.89)
pt3dadd(203.458, 107.301, -6.584, 2.84)
pt3dadd(203.567, 107.295, -6.618, 2.786)
pt3dadd(203.662, 107.306, -6.67, 2.724)
pt3dadd(203.744, 107.329, -6.737, 2.658)
pt3dadd(203.827, 107.352, -6.804, 2.592)
pt3dadd(203.897, 107.36, -6.883, 2.492)
pt3dadd(203.957, 107.354, -6.973, 2.36)
pt3dadd(204.018, 107.387, -7.031, 2.236)
pt3dadd(204.084, 107.47, -7.049, 2.122)
pt3dadd(204.15, 107.554, -7.066, 2.008)
pt3dadd(204.245, 107.6, -7.091, 1.856)
pt3dadd(204.347, 107.635, -7.119, 1.692)
pt3dadd(204.404, 107.633, -7.2, 1.592)
pt3dadd(204.448, 107.621, -7.297, 1.51)
pt3dadd(204.491, 107.609, -7.393, 1.426)
pt3dadd(204.556, 107.649, -7.459, 1.33)
pt3dadd(204.626, 107.707, -7.515, 1.23)
pt3dadd(204.626, 107.81, -7.548, 1.198)
pt3dadd(204.625, 107.913, -7.582, 1.166)
pt3dadd(204.626, 108.016, -7.615, 1.134)
pt3dadd(204.656, 108.117, -7.623, 1.112)
pt3dadd(204.692, 108.218, -7.628, 1.09)
pt3dadd(204.745, 108.309, -7.633, 1.024)
pt3dadd(204.803, 108.4, -7.638, 0.992)
pt3dadd(204.858, 108.492, -7.643, 0.978)
pt3dadd(204.913, 108.584, -7.647, 0.962)
pt3dadd(204.97, 108.676, -7.652, 0.948)
pt3dadd(205.025, 108.768, -7.657, 0.934)
pt3dadd(205.094, 108.849, -7.662, 0.888)
pt3dadd(205.171, 108.925, -7.667, 0.828)
pt3dadd(205.26, 108.987, -7.675, 0.796)
pt3dadd(205.356, 109.038, -7.685, 0.784)
pt3dadd(205.454, 109.073, -7.714, 0.796)
pt3dadd(205.554, 109.088, -7.765, 0.836)
pt3dadd(205.608, 109.145, -7.815, 0.926)
pt3dadd(205.622, 109.239, -7.864, 1.064)
pt3dadd(205.627, 109.339, -7.897, 1.23)
pt3dadd(205.622, 109.446, -7.914, 1.426)
pt3dadd(205.645, 109.525, -7.972, 1.55)
pt3dadd(205.678, 109.592, -8.045, 1.646)
pt3dadd(205.712, 109.659, -8.118, 1.74)
pt3dadd(205.745, 109.726, -8.191, 1.836)
pt3dadd(205.768, 109.797, -8.264, 1.918)
pt3dadd(205.781, 109.873, -8.335, 1.992)
pt3dadd(205.794, 109.95, -8.406, 2.062)
pt3dadd(205.807, 110.026, -8.477, 2.136)
pt3dadd(205.82, 110.102, -8.548, 2.208)
pt3dadd(205.817, 110.184, -8.615, 2.334)
pt3dadd(205.812, 110.265, -8.683, 2.464)
pt3dadd(205.807, 110.342, -8.755, 2.564)
pt3dadd(205.802, 110.418, -8.828, 2.66)
pt3dadd(205.812, 110.5, -8.893, 2.742)
pt3dadd(205.828, 110.584, -8.955, 2.82)
pt3dadd(205.872, 110.676, -8.978, 2.864)
pt3dadd(205.922, 110.77, -8.988, 2.9)
pt3dadd(205.994, 110.848, -8.997, 2.922)
pt3dadd(206.078, 110.917, -9.005, 2.936)
pt3dadd(206.162, 110.986, -9.013, 2.95)
pt3dadd(206.233, 111.051, -9.034, 2.966)
pt3dadd(206.228, 111.039, -9.039, 2.966)
pt3dadd(206.225, 111.027, -9.044, 2.966)
pt3dadd(206.226, 111.071, -9.137, 2.99)
pt3dadd(206.227, 111.114, -9.231, 3.014)
pt3dadd(206.222, 111.126, -9.334, 3.044)
pt3dadd(206.218, 111.138, -9.437, 3.072)
pt3dadd(206.213, 111.149, -9.54, 3.102)
pt3dadd(206.208, 111.155, -9.643, 3.132)
pt3dadd(206.204, 111.158, -9.747, 3.16)
pt3dadd(206.2, 111.161, -9.852, 3.188)
pt3dadd(206.195, 111.164, -9.956, 3.24)
pt3dadd(206.19, 111.169, -10.059, 3.23)
pt3dadd(206.185, 111.174, -10.163, 3.222)
pt3dadd(206.18, 111.18, -10.267, 3.214)
pt3dadd(206.176, 111.185, -10.371, 3.206)
pt3dadd(206.172, 111.19, -10.475, 3.198)
pt3dadd(206.167, 111.196, -10.579, 3.19)
pt3dadd(206.162, 111.215, -10.68, 3.154)
pt3dadd(206.158, 111.236, -10.781, 3.112)
pt3dadd(206.153, 111.249, -10.884, 3.064)
pt3dadd(206.148, 111.252, -10.988, 3.008)
pt3dadd(206.144, 111.254, -11.092, 2.952)
pt3dadd(206.14, 111.291, -11.186, 2.896)
pt3dadd(206.135, 111.34, -11.278, 2.838)
pt3dadd(206.13, 111.417, -11.342, 2.8)
pt3dadd(206.125, 111.515, -11.386, 2.778)
pt3dadd(206.12, 111.609, -11.436, 2.762)
pt3dadd(206.116, 111.691, -11.503, 2.762)
pt3dadd(206.112, 111.794, -11.529, 2.77)
pt3dadd(206.107, 111.901, -11.546, 2.78)
pt3dadd(206.102, 112.008, -11.564, 2.784)
pt3dadd(206.098, 112.115, -11.586, 2.764)
pt3dadd(206.093, 112.221, -11.608, 2.746)
pt3dadd(206.088, 112.209, -11.613, 2.746)
pt3dadd(206.083, 112.283, -11.673, 2.718)
pt3dadd(206.08, 112.332, -11.764, 2.684)
pt3dadd(206.075, 112.366, -11.86, 2.648)
pt3dadd(206.07, 112.374, -11.963, 2.608)
pt3dadd(206.065, 112.383, -12.067, 2.57)
pt3dadd(206.068, 112.411, -12.165, 2.522)
pt3dadd(206.086, 112.437, -12.261, 2.478)
pt3dadd(206.134, 112.445, -12.354, 2.454)
pt3dadd(206.185, 112.462, -12.443, 2.428)
pt3dadd(206.24, 112.503, -12.523, 2.4)
pt3dadd(206.296, 112.566, -12.582, 2.372)
pt3dadd(206.348, 112.649, -12.624, 2.344)
pt3dadd(206.344, 112.637, -12.629, 2.344)
pt3dadd(206.436, 112.681, -12.645, 2.306)
pt3dadd(206.545, 112.709, -12.65, 2.262)
pt3dadd(206.656, 112.734, -12.655, 2.208)
pt3dadd(206.766, 112.755, -12.659, 2.13)
pt3dadd(206.866, 112.795, -12.681, 2.084)
pt3dadd(206.962, 112.842, -12.708, 2.052)
pt3dadd(207.058, 112.89, -12.735, 2.018)
pt3dadd(207.154, 112.938, -12.762, 1.984)
pt3dadd(207.248, 112.989, -12.784, 1.94)
pt3dadd(207.338, 113.052, -12.789, 1.858)
pt3dadd(207.425, 113.117, -12.794, 1.774)
}
}
proc shape3d_162() {
dend_7[30] { pt3dadd(207.487, 113.204, -12.799, 1.694)
pt3dadd(207.551, 113.291, -12.804, 1.612)
pt3dadd(207.546, 113.279, -12.808, 1.612)
pt3dadd(207.602, 113.345, -12.868, 1.512)
pt3dadd(207.658, 113.401, -12.936, 1.418)
pt3dadd(207.702, 113.423, -13.028, 1.352)
pt3dadd(207.746, 113.465, -13.102, 1.29)
pt3dadd(207.793, 113.557, -13.133, 1.23)
pt3dadd(207.88, 113.574, -13.196, 1.244)
pt3dadd(207.959, 113.591, -13.265, 1.258)
pt3dadd(207.959, 113.614, -13.365, 1.28)
pt3dadd(207.961, 113.636, -13.466, 1.302)
pt3dadd(207.994, 113.647, -13.563, 1.326)
pt3dadd(208.033, 113.654, -13.659, 1.35)
pt3dadd(208.11, 113.684, -13.72, 1.346)
pt3dadd(208.201, 113.724, -13.768, 1.332)
pt3dadd(208.264, 113.808, -13.777, 1.346)
pt3dadd(208.342, 113.867, -13.799, 1.364)
pt3dadd(208.445, 113.891, -13.84, 1.38)
pt3dadd(208.546, 113.914, -13.882, 1.396)
pt3dadd(208.646, 113.937, -13.924, 1.414)
pt3dadd(208.747, 113.96, -13.965, 1.43)
pt3dadd(208.853, 113.987, -13.993, 1.51)
pt3dadd(208.958, 114.014, -14.02, 1.596)
pt3dadd(208.954, 114.002, -14.025, 1.596)
pt3dadd(209.053, 114.001, -14.078, 1.712)
pt3dadd(209.149, 113.995, -14.136, 1.83)
pt3dadd(209.221, 114.026, -14.207, 2.002)
pt3dadd(209.216, 114.014, -14.212, 2.002)
pt3dadd(209.279, 114.054, -14.286, 2.186)
pt3dadd(209.274, 114.042, -14.291, 2.186)
pt3dadd(209.286, 114.036, -14.395, 2.342)
pt3dadd(209.297, 114.029, -14.499, 2.498)
pt3dadd(209.3, 114.02, -14.603, 2.656)
pt3dadd(209.296, 114.008, -14.708, 2.82)
pt3dadd(209.291, 113.996, -14.813, 2.926)
pt3dadd(209.286, 113.984, -14.918, 2.954)
pt3dadd(209.281, 113.972, -15.023, 2.982)
pt3dadd(209.278, 113.96, -15.128, 3.012)
pt3dadd(209.273, 113.948, -15.233, 3.04)
pt3dadd(209.268, 113.936, -15.338, 3.068)
pt3dadd(209.263, 113.924, -15.443, 3.098)
pt3dadd(209.268, 113.912, -15.547, 3.114)
pt3dadd(209.285, 113.9, -15.65, 3.114)
pt3dadd(209.303, 113.888, -15.753, 3.114)
pt3dadd(209.322, 113.876, -15.856, 3.114)
pt3dadd(209.339, 113.864, -15.959, 3.114)
pt3dadd(209.357, 113.852, -16.063, 3.114)
pt3dadd(209.382, 113.84, -16.164, 3.11)
pt3dadd(209.419, 113.828, -16.263, 3.1)
pt3dadd(209.414, 113.816, -16.267, 3.1)
pt3dadd(209.45, 113.804, -16.366, 3.092)
pt3dadd(209.489, 113.792, -16.465, 3.082)
pt3dadd(209.526, 113.78, -16.563, 3.072)
pt3dadd(209.563, 113.768, -16.662, 3.064)
pt3dadd(209.558, 113.756, -16.667, 3.064)
pt3dadd(209.554, 113.738, -16.772, 3.06)
pt3dadd(209.549, 113.72, -16.877, 3.056)
pt3dadd(209.544, 113.702, -16.981, 3.052)
pt3dadd(209.54, 113.684, -17.086, 3.048)
pt3dadd(209.536, 113.667, -17.191, 3.044)
pt3dadd(209.531, 113.649, -17.296, 3.04)
pt3dadd(209.526, 113.629, -17.4, 3.044)
pt3dadd(209.521, 113.604, -17.505, 3.06)
pt3dadd(209.516, 113.579, -17.609, 3.074)
pt3dadd(209.513, 113.568, -17.614, 3.074)
pt3dadd(209.508, 113.543, -17.718, 3.09)
pt3dadd(209.503, 113.518, -17.823, 3.106)
pt3dadd(209.498, 113.494, -17.927, 3.122)
pt3dadd(209.494, 113.469, -18.031, 3.138)
pt3dadd(209.489, 113.456, -18.136, 3.15)
pt3dadd(209.484, 113.444, -18.241, 3.16)
pt3dadd(209.48, 113.432, -18.346, 3.17)
pt3dadd(209.476, 113.42, -18.451, 3.182)
pt3dadd(209.471, 113.408, -18.556, 3.192)
pt3dadd(209.466, 113.396, -18.661, 3.202)
pt3dadd(209.461, 113.384, -18.766, 3.214)
pt3dadd(209.456, 113.373, -18.871, 3.22)
pt3dadd(209.452, 113.361, -18.976, 3.228)
pt3dadd(209.448, 113.349, -19.08, 3.236)
pt3dadd(209.443, 113.337, -19.185, 3.242)
pt3dadd(209.438, 113.325, -19.29, 3.25)
pt3dadd(209.434, 113.313, -19.395, 3.256)
pt3dadd(209.429, 113.301, -19.5, 3.264)
pt3dadd(209.424, 113.289, -19.605, 3.232)
pt3dadd(209.419, 113.277, -19.71, 3.2)
pt3dadd(209.416, 113.265, -19.815, 3.166)
pt3dadd(209.411, 113.202, -19.91, 3.154)
pt3dadd(209.406, 113.136, -20.004, 3.142)
pt3dadd(209.401, 113.051, -20.087, 3.138)
pt3dadd(209.396, 112.958, -20.165, 3.138)
pt3dadd(209.369, 112.847, -20.213, 3.168)
pt3dadd(209.324, 112.725, -20.24, 3.216)
pt3dadd(209.291, 112.598, -20.255, 3.24)
pt3dadd(209.262, 112.469, -20.26, 3.24)
pt3dadd(209.251, 112.362, -20.319, 3.222)
pt3dadd(209.244, 112.26, -20.39, 3.202)
pt3dadd(209.237, 112.158, -20.461, 3.182)
pt3dadd(209.228, 112.056, -20.532, 3.16)
pt3dadd(209.222, 111.953, -20.603, 3.14)
pt3dadd(209.167, 111.865, -20.671, 3.03)
pt3dadd(209.118, 111.779, -20.743, 2.92)
pt3dadd(209.107, 111.704, -20.833, 2.824)
pt3dadd(209.096, 111.634, -20.924, 2.734)
pt3dadd(209.092, 111.617, -21.029, 2.7)
pt3dadd(209.087, 111.601, -21.134, 2.664)
pt3dadd(209.076, 111.585, -21.238, 2.642)
pt3dadd(209.039, 111.573, -21.339, 2.662)
pt3dadd(209, 111.561, -21.44, 2.682)
pt3dadd(208.924, 111.549, -21.523, 2.736)
pt3dadd(208.836, 111.537, -21.6, 2.8)
pt3dadd(208.748, 111.525, -21.677, 2.864)
pt3dadd(208.652, 111.513, -21.741, 2.936)
pt3dadd(208.531, 111.501, -21.763, 3.032)
pt3dadd(208.408, 111.489, -21.785, 3.13)
pt3dadd(208.313, 111.477, -21.846, 3.21)
pt3dadd(208.308, 111.465, -21.851, 3.21)
pt3dadd(208.229, 111.453, -21.934, 3.28)
pt3dadd(208.148, 111.441, -22.017, 3.35)
pt3dadd(208.063, 111.429, -22.096, 3.384)
pt3dadd(207.978, 111.417, -22.174, 3.408)
pt3dadd(207.944, 111.405, -22.271, 3.416)
pt3dadd(207.936, 111.393, -22.375, 3.416)
pt3dadd(207.928, 111.381, -22.48, 3.416)
pt3dadd(207.92, 111.369, -22.585, 3.416)
pt3dadd(207.914, 111.357, -22.69, 3.396)
pt3dadd(207.91, 111.345, -22.795, 3.37)
pt3dadd(207.906, 111.333, -22.9, 3.346)
pt3dadd(207.901, 111.322, -23.005, 3.28)
pt3dadd(207.896, 111.31, -23.11, 3.256)
pt3dadd(207.892, 111.298, -23.215, 3.246)
pt3dadd(207.887, 111.286, -23.319, 3.234)
pt3dadd(207.882, 111.274, -23.424, 3.224)
pt3dadd(207.878, 111.262, -23.529, 3.212)
pt3dadd(207.874, 111.25, -23.634, 3.202)
pt3dadd(207.869, 111.238, -23.739, 3.192)
pt3dadd(207.864, 111.236, -23.844, 3.192)
pt3dadd(207.859, 111.236, -23.948, 3.196)
pt3dadd(207.854, 111.237, -24.052, 3.2)
pt3dadd(207.85, 111.237, -24.157, 3.204)
pt3dadd(207.846, 111.238, -24.261, 3.208)
pt3dadd(207.841, 111.226, -24.266, 3.208)
pt3dadd(207.836, 111.227, -24.37, 3.212)
pt3dadd(207.832, 111.231, -24.474, 3.22)
pt3dadd(207.827, 111.238, -24.578, 3.238)
pt3dadd(207.822, 111.246, -24.681, 3.254)
pt3dadd(207.817, 111.254, -24.785, 3.27)
pt3dadd(207.814, 111.261, -24.888, 3.288)
pt3dadd(207.809, 111.269, -24.992, 3.304)
pt3dadd(207.804, 111.288, -25.092, 3.322)
pt3dadd(207.799, 111.33, -25.187, 3.346)
pt3dadd(207.794, 111.372, -25.281, 3.37)
pt3dadd(207.79, 111.413, -25.376, 3.394)
pt3dadd(207.785, 111.455, -25.47, 3.418)
pt3dadd(207.781, 111.494, -25.565, 3.442)
pt3dadd(207.776, 111.518, -25.665, 3.456)
pt3dadd(207.772, 111.542, -25.766, 3.468)
pt3dadd(207.767, 111.566, -25.866, 3.482)
pt3dadd(207.762, 111.59, -25.966, 3.496)
pt3dadd(207.757, 111.614, -26.067, 3.51)
pt3dadd(207.752, 111.633, -26.168, 3.516)
pt3dadd(207.749, 111.648, -26.27, 3.516)
pt3dadd(207.744, 111.664, -26.373, 3.516)
pt3dadd(207.739, 111.679, -26.475, 3.516)
pt3dadd(207.734, 111.695, -26.577, 3.516)
pt3dadd(207.73, 111.71, -26.679, 3.516)
pt3dadd(207.725, 111.742, -26.777, 3.492)
pt3dadd(207.721, 111.781, -26.872, 3.458)
pt3dadd(207.716, 111.819, -26.968, 3.426)
pt3dadd(207.712, 111.858, -27.064, 3.392)
pt3dadd(207.707, 111.897, -27.159, 3.358)
pt3dadd(207.702, 111.935, -27.255, 3.314)
pt3dadd(207.697, 111.974, -27.35, 3.258)
pt3dadd(207.692, 112.012, -27.446, 3.2)
pt3dadd(207.689, 112.051, -27.542, 3.142)
pt3dadd(207.684, 112.089, -27.637, 3.086)
pt3dadd(207.679, 112.134, -27.729, 3.026)
pt3dadd(207.671, 112.21, -27.802, 2.954)
pt3dadd(207.664, 112.286, -27.875, 2.882)
pt3dadd(207.656, 112.361, -27.949, 2.81)
pt3dadd(207.649, 112.437, -28.022, 2.738)
pt3dadd(207.634, 112.501, -28.101, 2.676)
pt3dadd(207.596, 112.54, -28.192, 2.636)
pt3dadd(207.559, 112.578, -28.283, 2.598)
pt3dadd(207.522, 112.617, -28.375, 2.558)
pt3dadd(207.484, 112.656, -28.466, 2.518)
pt3dadd(207.419, 112.656, -28.555, 2.502)
pt3dadd(207.347, 112.646, -28.642, 2.494)
pt3dadd(207.276, 112.637, -28.73, 2.482)
pt3dadd(207.204, 112.628, -28.818, 2.472)
pt3dadd(207.132, 112.618, -28.906, 2.462)
pt3dadd(207.017, 112.607, -28.931, 2.454)
pt3dadd(206.892, 112.595, -28.944, 2.444)
pt3dadd(206.77, 112.583, -28.96, 2.434)
pt3dadd(206.704, 112.578, -29.05, 2.398)
pt3dadd(206.635, 112.572, -29.139, 2.362)
pt3dadd(206.608, 112.652, -29.203, 2.324)
pt3dadd(206.582, 112.736, -29.265, 2.286)
pt3dadd(206.516, 112.827, -29.27, 2.274)
pt3dadd(206.45, 112.919, -29.274, 2.262)
}
}
proc shape3d_163() {
dend_7[30] { pt3dadd(206.35, 112.968, -29.3, 2.244)
pt3dadd(206.26, 113.024, -29.339, 2.226)
pt3dadd(206.184, 113.096, -29.384, 2.208)
pt3dadd(206.108, 113.168, -29.429, 2.19)
pt3dadd(206.033, 113.24, -29.474, 2.17)
pt3dadd(205.948, 113.301, -29.518, 2.144)
pt3dadd(205.846, 113.345, -29.559, 2.102)
pt3dadd(205.745, 113.389, -29.601, 2.062)
pt3dadd(205.644, 113.434, -29.642, 2.02)
pt3dadd(205.547, 113.479, -29.686, 1.976)
pt3dadd(205.476, 113.533, -29.754, 1.914)
pt3dadd(205.405, 113.586, -29.822, 1.852)
pt3dadd(205.334, 113.64, -29.89, 1.79)
pt3dadd(205.265, 113.693, -29.959, 1.722)
pt3dadd(205.217, 113.731, -30.048, 1.56)
pt3dadd(205.164, 113.759, -30.135, 1.408)
pt3dadd(205.085, 113.747, -30.218, 1.29)
pt3dadd(205.006, 113.736, -30.302, 1.174)
pt3dadd(204.944, 113.73, -30.395, 1.092)
pt3dadd(204.884, 113.724, -30.488, 1.01)
pt3dadd(204.88, 113.712, -30.493, 1.01)
pt3dadd(204.808, 113.778, -30.545, 1.004)
pt3dadd(204.742, 113.854, -30.587, 1.02)
pt3dadd(204.703, 113.958, -30.592, 1.112)
pt3dadd(204.661, 114.059, -30.6, 1.216)
pt3dadd(204.616, 114.16, -30.61, 1.328)
pt3dadd(204.58, 114.26, -30.63, 1.426)
pt3dadd(204.569, 114.357, -30.675, 1.494)
pt3dadd(204.551, 114.451, -30.722, 1.556)
pt3dadd(204.479, 114.516, -30.778, 1.556)
pt3dadd(204.402, 114.58, -30.831, 1.53)
pt3dadd(204.322, 114.644, -30.881, 1.46)
pt3dadd(204.234, 114.709, -30.92, 1.37)
pt3dadd(204.149, 114.768, -30.965, 1.294)
pt3dadd(204.076, 114.818, -31.033, 1.264)
pt3dadd(204.002, 114.868, -31.101, 1.232)
pt3dadd(203.929, 114.919, -31.169, 1.2)
pt3dadd(203.849, 114.973, -31.226, 1.162)
pt3dadd(203.756, 115.034, -31.262, 1.108)
pt3dadd(203.698, 115.081, -31.327, 1.05)
pt3dadd(203.674, 115.114, -31.424, 0.988)
pt3dadd(203.658, 115.151, -31.519, 0.934)
pt3dadd(203.654, 115.193, -31.613, 0.89)
pt3dadd(203.663, 115.238, -31.702, 0.842)
pt3dadd(203.728, 115.295, -31.764, 0.784)
}
dend_0[6] {pt3dclear()
pt3dadd(170.098, 112.194, 13.295, 13.108)
pt3dadd(170.098, 112.194, 13.33, 13.088)
pt3dadd(170.098, 112.194, 13.43, 13.03)
pt3dadd(170.098, 112.194, 13.53, 12.972)
pt3dadd(170.098, 112.194, 13.63, 12.914)
pt3dadd(170.098, 112.194, 13.73, 12.856)
pt3dadd(170.098, 112.194, 13.83, 12.798)
pt3dadd(170.098, 112.194, 13.93, 12.74)
pt3dadd(170.098, 112.194, 14.03, 12.682)
pt3dadd(170.098, 112.194, 14.13, 12.624)
pt3dadd(170.098, 112.2, 14.23, 12.55)
pt3dadd(170.099, 112.208, 14.33, 12.472)
pt3dadd(170.099, 112.215, 14.43, 12.394)
pt3dadd(170.1, 112.222, 14.53, 12.316)
pt3dadd(170.1, 112.229, 14.629, 12.238)
pt3dadd(170.101, 112.237, 14.729, 12.16)
pt3dadd(170.101, 112.244, 14.829, 12.082)
pt3dadd(170.102, 112.251, 14.929, 12.004)
pt3dadd(170.102, 112.258, 15.029, 11.926)
pt3dadd(170.104, 112.266, 15.128, 11.848)
pt3dadd(170.106, 112.29, 15.226, 11.722)
pt3dadd(170.108, 112.316, 15.324, 11.594)
pt3dadd(170.111, 112.342, 15.421, 11.468)
pt3dadd(170.113, 112.368, 15.519, 11.34)
pt3dadd(170.116, 112.394, 15.617, 11.212)
pt3dadd(170.118, 112.419, 15.714, 11.084)
pt3dadd(170.12, 112.445, 15.812, 10.956)
pt3dadd(170.123, 112.471, 15.91, 10.828)
pt3dadd(170.125, 112.497, 16.007, 10.7)
pt3dadd(170.128, 112.523, 16.105, 10.572)
pt3dadd(170.13, 112.56, 16.2, 10.412)
pt3dadd(170.132, 112.599, 16.295, 10.248)
pt3dadd(170.136, 112.637, 16.389, 10.086)
pt3dadd(170.138, 112.675, 16.484, 9.922)
pt3dadd(170.141, 112.714, 16.579, 9.76)
pt3dadd(170.144, 112.752, 16.674, 9.598)
pt3dadd(170.147, 112.791, 16.768, 9.434)
pt3dadd(170.149, 112.829, 16.863, 9.272)
pt3dadd(170.153, 112.867, 16.958, 9.108)
pt3dadd(170.155, 112.906, 17.052, 8.946)
pt3dadd(170.159, 112.956, 17.143, 8.752)
pt3dadd(170.161, 113.005, 17.234, 8.558)
pt3dadd(170.165, 113.055, 17.325, 8.364)
pt3dadd(170.168, 113.105, 17.416, 8.17)
pt3dadd(170.171, 113.155, 17.507, 7.976)
pt3dadd(170.174, 113.205, 17.598, 7.782)
pt3dadd(170.178, 113.255, 17.689, 7.588)
}
dend_7[31] {pt3dclear()
pt3dadd(170.178, 113.255, 17.689, 7.588)
pt3dadd(170.182, 113.305, 17.779, 7.394)
pt3dadd(170.184, 113.355, 17.87, 7.2)
pt3dadd(170.188, 113.405, 17.961, 7.006)
}
dend_7[32] {pt3dclear()
pt3dadd(170.188, 113.405, 17.961, 7.006)
pt3dadd(170.192, 113.427, 18.032, 6.964)
pt3dadd(170.198, 113.456, 18.129, 6.908)
pt3dadd(170.206, 113.486, 18.226, 6.85)
pt3dadd(170.212, 113.515, 18.323, 6.794)
pt3dadd(170.218, 113.545, 18.419, 6.736)
pt3dadd(170.225, 113.574, 18.516, 6.678)
pt3dadd(170.231, 113.604, 18.613, 6.622)
pt3dadd(170.238, 113.633, 18.71, 6.564)
pt3dadd(170.244, 113.663, 18.806, 6.508)
pt3dadd(170.25, 113.693, 18.903, 6.45)
pt3dadd(170.257, 113.722, 19, 6.394)
pt3dadd(170.263, 113.752, 19.097, 6.336)
pt3dadd(170.27, 113.782, 19.194, 6.28)
pt3dadd(170.276, 113.811, 19.29, 6.222)
pt3dadd(170.282, 113.841, 19.387, 6.166)
pt3dadd(170.29, 113.871, 19.484, 6.108)
pt3dadd(170.304, 113.886, 19.582, 6.036)
pt3dadd(170.32, 113.901, 19.681, 5.962)
pt3dadd(170.335, 113.915, 19.779, 5.888)
pt3dadd(170.35, 113.93, 19.877, 5.814)
pt3dadd(170.365, 113.945, 19.976, 5.74)
pt3dadd(170.381, 113.96, 20.074, 5.666)
pt3dadd(170.395, 113.974, 20.173, 5.592)
pt3dadd(170.411, 113.989, 20.271, 5.518)
pt3dadd(170.426, 114.004, 20.37, 5.444)
pt3dadd(170.442, 114.019, 20.468, 5.37)
pt3dadd(170.464, 114.028, 20.566, 5.274)
pt3dadd(170.486, 114.037, 20.664, 5.176)
pt3dadd(170.509, 114.046, 20.762, 5.078)
pt3dadd(170.532, 114.054, 20.86, 4.982)
pt3dadd(170.555, 114.063, 20.958, 4.884)
pt3dadd(170.578, 114.072, 21.056, 4.786)
pt3dadd(170.599, 114.081, 21.153, 4.69)
pt3dadd(170.622, 114.09, 21.251, 4.592)
pt3dadd(170.645, 114.099, 21.349, 4.494)
pt3dadd(170.668, 114.108, 21.447, 4.398)
pt3dadd(170.699, 114.11, 21.544, 4.274)
pt3dadd(170.73, 114.113, 21.64, 4.15)
pt3dadd(170.76, 114.115, 21.737, 4.028)
pt3dadd(170.791, 114.117, 21.833, 3.904)
pt3dadd(170.822, 114.119, 21.93, 3.78)
pt3dadd(170.854, 114.122, 22.027, 3.658)
pt3dadd(170.885, 114.124, 22.123, 3.534)
pt3dadd(170.915, 114.126, 22.22, 3.41)
pt3dadd(170.946, 114.129, 22.316, 3.288)
pt3dadd(170.977, 114.131, 22.413, 3.164)
}
dend_7[33] {pt3dclear()
pt3dadd(170.977, 114.131, 22.413, 3.164)
pt3dadd(171.035, 114.134, 22.475, 3.11)
pt3dadd(171.108, 114.138, 22.555, 3.042)
pt3dadd(171.181, 114.142, 22.634, 2.972)
pt3dadd(171.254, 114.146, 22.713, 2.904)
pt3dadd(171.328, 114.15, 22.792, 2.836)
pt3dadd(171.401, 114.154, 22.871, 2.766)
pt3dadd(171.474, 114.158, 22.95, 2.698)
pt3dadd(171.547, 114.162, 23.029, 2.63)
pt3dadd(171.62, 114.166, 23.109, 2.56)
pt3dadd(171.694, 114.17, 23.188, 2.492)
pt3dadd(171.767, 114.174, 23.267, 2.422)
pt3dadd(171.84, 114.179, 23.346, 2.354)
pt3dadd(171.926, 114.185, 23.415, 2.3)
pt3dadd(172.02, 114.192, 23.477, 2.252)
pt3dadd(172.112, 114.2, 23.54, 2.206)
pt3dadd(172.206, 114.208, 23.602, 2.16)
pt3dadd(172.3, 114.215, 23.665, 2.112)
pt3dadd(172.393, 114.223, 23.727, 2.066)
pt3dadd(172.487, 114.231, 23.79, 2.018)
pt3dadd(172.579, 114.238, 23.852, 1.972)
pt3dadd(172.673, 114.246, 23.915, 1.926)
pt3dadd(172.766, 114.253, 23.977, 1.878)
pt3dadd(172.87, 114.263, 24.027, 1.848)
pt3dadd(172.975, 114.273, 24.075, 1.818)
pt3dadd(173.08, 114.284, 24.122, 1.79)
pt3dadd(173.185, 114.294, 24.17, 1.762)
pt3dadd(173.29, 114.304, 24.218, 1.732)
pt3dadd(173.395, 114.314, 24.265, 1.704)
pt3dadd(173.5, 114.324, 24.313, 1.676)
pt3dadd(173.605, 114.335, 24.36, 1.648)
pt3dadd(173.71, 114.345, 24.408, 1.62)
pt3dadd(173.815, 114.355, 24.456, 1.59)
pt3dadd(173.92, 114.37, 24.502, 1.586)
pt3dadd(174.025, 114.385, 24.549, 1.586)
pt3dadd(174.131, 114.4, 24.595, 1.586)
pt3dadd(174.235, 114.416, 24.642, 1.584)
pt3dadd(174.341, 114.431, 24.688, 1.584)
pt3dadd(174.445, 114.446, 24.735, 1.584)
pt3dadd(174.551, 114.462, 24.781, 1.584)
pt3dadd(174.656, 114.477, 24.828, 1.582)
pt3dadd(174.761, 114.492, 24.874, 1.582)
pt3dadd(174.866, 114.508, 24.921, 1.582)
pt3dadd(174.972, 114.53, 24.964, 1.58)
pt3dadd(175.079, 114.552, 25.007, 1.578)
pt3dadd(175.184, 114.575, 25.049, 1.574)
pt3dadd(175.291, 114.598, 25.092, 1.572)
pt3dadd(175.397, 114.621, 25.134, 1.57)
pt3dadd(175.502, 114.644, 25.177, 1.566)
pt3dadd(175.609, 114.666, 25.219, 1.564)
pt3dadd(175.715, 114.689, 25.262, 1.562)
pt3dadd(175.822, 114.712, 25.304, 1.558)
pt3dadd(175.927, 114.735, 25.347, 1.556)
pt3dadd(176.033, 114.784, 25.372, 1.544)
pt3dadd(176.137, 114.835, 25.397, 1.53)
pt3dadd(176.242, 114.885, 25.422, 1.518)
pt3dadd(176.347, 114.935, 25.447, 1.506)
}
}
proc shape3d_164() {
dend_7[33] { pt3dadd(176.452, 114.985, 25.472, 1.492)
pt3dadd(176.557, 115.036, 25.496, 1.48)
pt3dadd(176.662, 115.086, 25.521, 1.468)
pt3dadd(176.766, 115.136, 25.546, 1.454)
pt3dadd(176.872, 115.186, 25.571, 1.442)
pt3dadd(176.976, 115.237, 25.596, 1.43)
pt3dadd(177.083, 115.283, 25.618, 1.422)
pt3dadd(177.191, 115.33, 25.64, 1.414)
pt3dadd(177.298, 115.377, 25.662, 1.408)
pt3dadd(177.406, 115.423, 25.684, 1.4)
pt3dadd(177.512, 115.47, 25.707, 1.392)
pt3dadd(177.619, 115.517, 25.729, 1.386)
pt3dadd(177.727, 115.563, 25.751, 1.378)
pt3dadd(177.834, 115.61, 25.773, 1.37)
pt3dadd(177.942, 115.656, 25.795, 1.364)
pt3dadd(178.049, 115.703, 25.817, 1.356)
pt3dadd(178.159, 115.745, 25.836, 1.356)
pt3dadd(178.27, 115.787, 25.854, 1.356)
pt3dadd(178.38, 115.829, 25.873, 1.356)
pt3dadd(178.49, 115.871, 25.891, 1.356)
pt3dadd(178.601, 115.913, 25.909, 1.356)
pt3dadd(178.711, 115.954, 25.928, 1.356)
pt3dadd(178.82, 115.996, 25.946, 1.356)
pt3dadd(178.931, 116.038, 25.965, 1.356)
pt3dadd(179.041, 116.08, 25.983, 1.356)
pt3dadd(179.152, 116.122, 26.002, 1.356)
pt3dadd(179.257, 116.175, 26.016, 1.394)
pt3dadd(179.364, 116.229, 26.031, 1.432)
pt3dadd(179.47, 116.282, 26.045, 1.472)
pt3dadd(179.575, 116.336, 26.06, 1.51)
pt3dadd(179.682, 116.389, 26.075, 1.55)
pt3dadd(179.788, 116.443, 26.089, 1.588)
pt3dadd(179.893, 116.496, 26.104, 1.626)
pt3dadd(180, 116.55, 26.118, 1.666)
pt3dadd(180.106, 116.603, 26.133, 1.704)
pt3dadd(180.211, 116.657, 26.148, 1.744)
pt3dadd(180.316, 116.714, 26.161, 1.794)
pt3dadd(180.42, 116.771, 26.174, 1.846)
pt3dadd(180.524, 116.829, 26.188, 1.898)
pt3dadd(180.629, 116.886, 26.201, 1.95)
pt3dadd(180.733, 116.943, 26.214, 2.002)
pt3dadd(180.836, 117, 26.227, 2.054)
pt3dadd(180.941, 117.057, 26.241, 2.104)
pt3dadd(181.045, 117.115, 26.254, 2.156)
pt3dadd(181.15, 117.172, 26.267, 2.208)
pt3dadd(181.254, 117.229, 26.281, 2.26)
}
dend_7[34] {pt3dclear()
pt3dadd(181.254, 117.229, 26.281, 2.26)
pt3dadd(181.28, 117.237, 26.292, 2.246)
pt3dadd(181.384, 117.27, 26.336, 2.194)
pt3dadd(181.486, 117.302, 26.38, 2.14)
pt3dadd(181.589, 117.335, 26.424, 2.086)
pt3dadd(181.691, 117.367, 26.468, 2.034)
pt3dadd(181.794, 117.399, 26.513, 1.98)
pt3dadd(181.896, 117.432, 26.557, 1.926)
pt3dadd(181.999, 117.464, 26.601, 1.874)
pt3dadd(182.101, 117.497, 26.645, 1.82)
pt3dadd(182.204, 117.529, 26.689, 1.766)
pt3dadd(182.306, 117.562, 26.733, 1.714)
pt3dadd(182.41, 117.594, 26.778, 1.66)
pt3dadd(182.513, 117.627, 26.822, 1.606)
pt3dadd(182.615, 117.66, 26.866, 1.554)
pt3dadd(182.718, 117.692, 26.91, 1.5)
pt3dadd(182.82, 117.725, 26.954, 1.446)
pt3dadd(182.927, 117.753, 26.994, 1.434)
pt3dadd(183.034, 117.78, 27.034, 1.424)
pt3dadd(183.139, 117.808, 27.073, 1.416)
pt3dadd(183.246, 117.836, 27.113, 1.408)
pt3dadd(183.353, 117.863, 27.152, 1.4)
pt3dadd(183.46, 117.891, 27.192, 1.39)
pt3dadd(183.566, 117.918, 27.232, 1.382)
pt3dadd(183.673, 117.946, 27.271, 1.374)
pt3dadd(183.78, 117.974, 27.311, 1.366)
pt3dadd(183.887, 118.001, 27.35, 1.356)
pt3dadd(183.989, 118.029, 27.397, 1.346)
pt3dadd(184.091, 118.057, 27.444, 1.336)
pt3dadd(184.193, 118.085, 27.491, 1.326)
pt3dadd(184.295, 118.113, 27.539, 1.314)
pt3dadd(184.397, 118.141, 27.586, 1.304)
pt3dadd(184.499, 118.169, 27.633, 1.294)
pt3dadd(184.601, 118.197, 27.681, 1.284)
pt3dadd(184.703, 118.224, 27.728, 1.272)
pt3dadd(184.805, 118.252, 27.776, 1.262)
pt3dadd(184.907, 118.28, 27.823, 1.252)
pt3dadd(184.992, 118.31, 27.889, 1.216)
pt3dadd(185.077, 118.34, 27.954, 1.182)
pt3dadd(185.164, 118.369, 28.02, 1.146)
pt3dadd(185.249, 118.399, 28.086, 1.112)
pt3dadd(185.334, 118.429, 28.151, 1.078)
pt3dadd(185.419, 118.458, 28.217, 1.042)
pt3dadd(185.504, 118.488, 28.283, 1.008)
pt3dadd(185.591, 118.518, 28.349, 0.974)
pt3dadd(185.676, 118.547, 28.414, 0.938)
pt3dadd(185.761, 118.577, 28.48, 0.904)
}
dend_7[35] {pt3dclear()
pt3dadd(185.761, 118.577, 28.48, 0.904)
pt3dadd(185.815, 118.618, 28.5, 0.912)
pt3dadd(185.906, 118.686, 28.534, 0.928)
pt3dadd(185.996, 118.753, 28.568, 0.942)
pt3dadd(186.086, 118.821, 28.602, 0.958)
pt3dadd(186.176, 118.889, 28.636, 0.972)
pt3dadd(186.268, 118.957, 28.67, 0.986)
pt3dadd(186.358, 119.025, 28.704, 1.002)
pt3dadd(186.448, 119.093, 28.737, 1.016)
pt3dadd(186.538, 119.162, 28.769, 1.02)
pt3dadd(186.628, 119.232, 28.8, 1.022)
pt3dadd(186.718, 119.302, 28.831, 1.024)
pt3dadd(186.808, 119.372, 28.862, 1.026)
pt3dadd(186.898, 119.442, 28.893, 1.028)
pt3dadd(186.988, 119.513, 28.924, 1.03)
pt3dadd(187.078, 119.583, 28.955, 1.032)
pt3dadd(187.168, 119.653, 28.986, 1.034)
pt3dadd(187.258, 119.723, 29.017, 1.036)
pt3dadd(187.348, 119.793, 29.048, 1.038)
pt3dadd(187.436, 119.868, 29.072, 1.008)
pt3dadd(187.525, 119.944, 29.094, 0.97)
pt3dadd(187.614, 120.02, 29.116, 0.934)
pt3dadd(187.703, 120.097, 29.138, 0.896)
pt3dadd(187.792, 120.174, 29.161, 0.858)
pt3dadd(187.88, 120.25, 29.183, 0.822)
pt3dadd(187.969, 120.326, 29.205, 0.784)
pt3dadd(188.057, 120.403, 29.227, 0.748)
pt3dadd(188.146, 120.479, 29.249, 0.71)
pt3dadd(188.234, 120.556, 29.271, 0.672)
pt3dadd(188.327, 120.625, 29.3, 0.656)
pt3dadd(188.419, 120.692, 29.33, 0.646)
pt3dadd(188.512, 120.76, 29.361, 0.636)
pt3dadd(188.604, 120.827, 29.391, 0.624)
pt3dadd(188.696, 120.894, 29.422, 0.614)
pt3dadd(188.789, 120.961, 29.452, 0.602)
pt3dadd(188.881, 121.028, 29.482, 0.592)
pt3dadd(188.974, 121.096, 29.513, 0.58)
pt3dadd(189.066, 121.163, 29.543, 0.57)
pt3dadd(189.158, 121.23, 29.573, 0.56)
pt3dadd(189.253, 121.285, 29.613, 0.58)
pt3dadd(189.349, 121.338, 29.654, 0.606)
pt3dadd(189.445, 121.392, 29.695, 0.63)
pt3dadd(189.541, 121.445, 29.736, 0.656)
pt3dadd(189.636, 121.499, 29.776, 0.68)
pt3dadd(189.732, 121.553, 29.817, 0.704)
pt3dadd(189.828, 121.606, 29.858, 0.73)
pt3dadd(189.923, 121.66, 29.899, 0.754)
pt3dadd(190.019, 121.712, 29.939, 0.78)
pt3dadd(190.115, 121.766, 29.98, 0.804)
pt3dadd(190.208, 121.826, 30.016, 0.822)
pt3dadd(190.303, 121.888, 30.052, 0.84)
pt3dadd(190.397, 121.948, 30.088, 0.858)
pt3dadd(190.492, 122.009, 30.124, 0.876)
pt3dadd(190.585, 122.069, 30.16, 0.892)
pt3dadd(190.679, 122.13, 30.196, 0.91)
pt3dadd(190.774, 122.191, 30.232, 0.928)
pt3dadd(190.867, 122.251, 30.267, 0.946)
pt3dadd(190.962, 122.312, 30.303, 0.962)
pt3dadd(191.056, 122.372, 30.339, 0.98)
pt3dadd(191.149, 122.437, 30.372, 0.994)
pt3dadd(191.242, 122.503, 30.405, 1.006)
pt3dadd(191.334, 122.568, 30.437, 1.018)
pt3dadd(191.428, 122.633, 30.47, 1.032)
pt3dadd(191.52, 122.698, 30.503, 1.044)
pt3dadd(191.614, 122.764, 30.535, 1.058)
pt3dadd(191.706, 122.828, 30.568, 1.07)
pt3dadd(191.798, 122.893, 30.6, 1.082)
pt3dadd(191.892, 122.959, 30.633, 1.096)
pt3dadd(191.984, 123.024, 30.666, 1.108)
pt3dadd(192.066, 123.084, 30.718, 1.112)
pt3dadd(192.148, 123.145, 30.773, 1.114)
pt3dadd(192.228, 123.205, 30.827, 1.116)
pt3dadd(192.308, 123.265, 30.881, 1.118)
pt3dadd(192.389, 123.325, 30.936, 1.12)
pt3dadd(192.47, 123.385, 30.99, 1.122)
pt3dadd(192.551, 123.446, 31.044, 1.124)
pt3dadd(192.631, 123.506, 31.099, 1.126)
pt3dadd(192.713, 123.566, 31.153, 1.128)
pt3dadd(192.793, 123.626, 31.207, 1.13)
pt3dadd(192.876, 123.695, 31.253, 1.13)
pt3dadd(192.958, 123.762, 31.299, 1.13)
pt3dadd(193.04, 123.829, 31.345, 1.13)
pt3dadd(193.123, 123.898, 31.39, 1.13)
pt3dadd(193.205, 123.965, 31.436, 1.13)
pt3dadd(193.288, 124.033, 31.482, 1.13)
pt3dadd(193.37, 124.1, 31.528, 1.13)
pt3dadd(193.453, 124.169, 31.574, 1.13)
pt3dadd(193.535, 124.236, 31.619, 1.13)
pt3dadd(193.618, 124.304, 31.663, 1.13)
pt3dadd(193.704, 124.382, 31.69, 1.13)
pt3dadd(193.79, 124.459, 31.717, 1.13)
pt3dadd(193.876, 124.536, 31.745, 1.13)
pt3dadd(193.962, 124.613, 31.772, 1.13)
pt3dadd(194.048, 124.691, 31.799, 1.13)
pt3dadd(194.134, 124.768, 31.826, 1.13)
pt3dadd(194.22, 124.844, 31.854, 1.13)
pt3dadd(194.305, 124.921, 31.881, 1.13)
pt3dadd(194.392, 124.998, 31.908, 1.13)
pt3dadd(194.478, 125.076, 31.934, 1.128)
pt3dadd(194.568, 125.153, 31.952, 1.104)
pt3dadd(194.657, 125.23, 31.971, 1.082)
pt3dadd(194.747, 125.305, 31.989, 1.06)
pt3dadd(194.837, 125.382, 32.008, 1.038)
pt3dadd(194.926, 125.459, 32.026, 1.016)
pt3dadd(195.016, 125.536, 32.044, 0.992)
pt3dadd(195.106, 125.612, 32.063, 0.97)
pt3dadd(195.194, 125.689, 32.081, 0.948)
}
}
proc shape3d_165() {
dend_7[35] { pt3dadd(195.284, 125.766, 32.1, 0.926)
pt3dadd(195.374, 125.843, 32.118, 0.904)
pt3dadd(195.467, 125.916, 32.134, 0.888)
pt3dadd(195.559, 125.99, 32.15, 0.87)
pt3dadd(195.653, 126.064, 32.166, 0.854)
pt3dadd(195.745, 126.138, 32.182, 0.836)
pt3dadd(195.838, 126.211, 32.198, 0.82)
pt3dadd(195.93, 126.286, 32.214, 0.802)
pt3dadd(196.024, 126.359, 32.23, 0.786)
pt3dadd(196.116, 126.433, 32.246, 0.768)
pt3dadd(196.208, 126.506, 32.262, 0.752)
pt3dadd(196.303, 126.577, 32.277, 0.746)
pt3dadd(196.409, 126.632, 32.289, 0.788)
pt3dadd(196.514, 126.688, 32.301, 0.832)
pt3dadd(196.62, 126.744, 32.312, 0.874)
pt3dadd(196.726, 126.799, 32.324, 0.918)
pt3dadd(196.831, 126.854, 32.336, 0.96)
pt3dadd(196.937, 126.91, 32.347, 1.004)
pt3dadd(197.041, 126.965, 32.359, 1.048)
pt3dadd(197.147, 127.021, 32.37, 1.09)
pt3dadd(197.252, 127.076, 32.382, 1.134)
pt3dadd(197.357, 127.132, 32.398, 1.166)
pt3dadd(197.456, 127.183, 32.432, 1.142)
pt3dadd(197.557, 127.236, 32.467, 1.118)
pt3dadd(197.657, 127.288, 32.502, 1.094)
pt3dadd(197.756, 127.34, 32.536, 1.072)
pt3dadd(197.856, 127.392, 32.571, 1.048)
pt3dadd(197.956, 127.445, 32.606, 1.024)
pt3dadd(198.055, 127.496, 32.64, 1)
pt3dadd(198.155, 127.549, 32.675, 0.978)
pt3dadd(198.254, 127.601, 32.71, 0.954)
pt3dadd(198.352, 127.655, 32.748, 0.92)
pt3dadd(198.445, 127.71, 32.791, 0.872)
pt3dadd(198.538, 127.765, 32.834, 0.822)
pt3dadd(198.631, 127.82, 32.877, 0.772)
pt3dadd(198.725, 127.876, 32.92, 0.724)
pt3dadd(198.817, 127.931, 32.963, 0.674)
pt3dadd(198.911, 127.986, 33.006, 0.624)
pt3dadd(199.003, 128.042, 33.049, 0.576)
pt3dadd(199.097, 128.098, 33.092, 0.526)
pt3dadd(199.19, 128.153, 33.135, 0.476)
pt3dadd(199.284, 128.214, 33.169, 0.452)
pt3dadd(199.378, 128.282, 33.195, 0.452)
pt3dadd(199.471, 128.351, 33.221, 0.452)
pt3dadd(199.565, 128.419, 33.246, 0.452)
pt3dadd(199.658, 128.488, 33.272, 0.452)
pt3dadd(199.752, 128.556, 33.298, 0.452)
pt3dadd(199.846, 128.624, 33.324, 0.452)
pt3dadd(199.939, 128.693, 33.35, 0.452)
pt3dadd(200.033, 128.761, 33.375, 0.452)
pt3dadd(200.126, 128.83, 33.401, 0.452)
pt3dadd(200.219, 128.902, 33.421, 0.452)
pt3dadd(200.312, 128.976, 33.433, 0.452)
pt3dadd(200.405, 129.05, 33.446, 0.452)
pt3dadd(200.498, 129.125, 33.459, 0.452)
pt3dadd(200.591, 129.199, 33.472, 0.452)
pt3dadd(200.683, 129.274, 33.484, 0.452)
pt3dadd(200.777, 129.348, 33.497, 0.452)
pt3dadd(200.869, 129.422, 33.51, 0.452)
pt3dadd(200.963, 129.497, 33.522, 0.452)
pt3dadd(201.055, 129.571, 33.535, 0.452)
pt3dadd(201.149, 129.646, 33.546, 0.452)
pt3dadd(201.241, 129.72, 33.556, 0.452)
pt3dadd(201.335, 129.796, 33.566, 0.452)
pt3dadd(201.427, 129.87, 33.576, 0.452)
pt3dadd(201.521, 129.946, 33.585, 0.452)
pt3dadd(201.613, 130.02, 33.595, 0.452)
pt3dadd(201.706, 130.096, 33.605, 0.452)
pt3dadd(201.799, 130.17, 33.615, 0.452)
pt3dadd(201.892, 130.246, 33.625, 0.452)
pt3dadd(201.985, 130.32, 33.634, 0.452)
pt3dadd(202.086, 130.384, 33.639, 0.452)
pt3dadd(202.193, 130.436, 33.64, 0.452)
pt3dadd(202.301, 130.489, 33.641, 0.452)
pt3dadd(202.409, 130.543, 33.642, 0.452)
pt3dadd(202.517, 130.596, 33.642, 0.452)
pt3dadd(202.624, 130.649, 33.643, 0.452)
pt3dadd(202.732, 130.702, 33.644, 0.452)
pt3dadd(202.84, 130.754, 33.645, 0.452)
pt3dadd(202.946, 130.808, 33.645, 0.452)
pt3dadd(203.054, 130.861, 33.646, 0.452)
pt3dadd(203.161, 130.915, 33.647, 0.454)
pt3dadd(203.269, 130.969, 33.648, 0.458)
pt3dadd(203.376, 131.023, 33.649, 0.462)
pt3dadd(203.483, 131.077, 33.65, 0.464)
pt3dadd(203.59, 131.131, 33.651, 0.468)
pt3dadd(203.696, 131.186, 33.652, 0.472)
pt3dadd(203.804, 131.24, 33.653, 0.476)
pt3dadd(203.911, 131.294, 33.654, 0.478)
pt3dadd(204.018, 131.348, 33.655, 0.482)
pt3dadd(204.125, 131.402, 33.656, 0.486)
pt3dadd(204.232, 131.459, 33.657, 0.494)
pt3dadd(204.336, 131.516, 33.659, 0.506)
pt3dadd(204.442, 131.574, 33.66, 0.52)
pt3dadd(204.547, 131.632, 33.662, 0.532)
pt3dadd(204.653, 131.689, 33.664, 0.544)
pt3dadd(204.757, 131.747, 33.665, 0.558)
pt3dadd(204.863, 131.804, 33.667, 0.57)
pt3dadd(204.968, 131.862, 33.668, 0.582)
pt3dadd(205.073, 131.92, 33.67, 0.596)
pt3dadd(205.178, 131.977, 33.672, 0.608)
pt3dadd(205.286, 132.03, 33.674, 0.618)
pt3dadd(205.396, 132.078, 33.677, 0.624)
pt3dadd(205.506, 132.126, 33.679, 0.63)
pt3dadd(205.616, 132.174, 33.682, 0.636)
pt3dadd(205.726, 132.222, 33.684, 0.644)
pt3dadd(205.836, 132.27, 33.687, 0.65)
pt3dadd(205.945, 132.318, 33.69, 0.656)
pt3dadd(206.056, 132.366, 33.692, 0.662)
pt3dadd(206.165, 132.414, 33.695, 0.668)
pt3dadd(206.275, 132.463, 33.698, 0.676)
pt3dadd(206.387, 132.505, 33.701, 0.678)
pt3dadd(206.501, 132.542, 33.704, 0.678)
pt3dadd(206.615, 132.581, 33.708, 0.678)
pt3dadd(206.729, 132.619, 33.711, 0.678)
pt3dadd(206.843, 132.656, 33.715, 0.678)
pt3dadd(206.956, 132.695, 33.719, 0.678)
pt3dadd(207.07, 132.732, 33.722, 0.678)
pt3dadd(207.184, 132.77, 33.726, 0.678)
pt3dadd(207.298, 132.809, 33.729, 0.678)
pt3dadd(207.412, 132.846, 33.733, 0.678)
pt3dadd(207.526, 132.881, 33.739, 0.684)
pt3dadd(207.641, 132.912, 33.747, 0.696)
pt3dadd(207.757, 132.943, 33.755, 0.708)
pt3dadd(207.872, 132.974, 33.763, 0.72)
pt3dadd(207.988, 133.006, 33.771, 0.732)
pt3dadd(208.103, 133.037, 33.779, 0.744)
pt3dadd(208.219, 133.068, 33.787, 0.756)
pt3dadd(208.334, 133.099, 33.795, 0.768)
pt3dadd(208.45, 133.132, 33.803, 0.78)
pt3dadd(208.565, 133.163, 33.811, 0.792)
pt3dadd(208.68, 133.195, 33.82, 0.808)
pt3dadd(208.794, 133.231, 33.83, 0.832)
pt3dadd(208.908, 133.266, 33.84, 0.854)
pt3dadd(209.022, 133.301, 33.85, 0.876)
pt3dadd(209.136, 133.336, 33.86, 0.9)
pt3dadd(209.25, 133.37, 33.87, 0.922)
pt3dadd(209.364, 133.406, 33.881, 0.944)
pt3dadd(209.479, 133.441, 33.89, 0.966)
pt3dadd(209.593, 133.476, 33.901, 0.988)
pt3dadd(209.707, 133.511, 33.911, 1.012)
pt3dadd(209.816, 133.556, 33.923, 1.052)
pt3dadd(209.924, 133.607, 33.937, 1.104)
pt3dadd(210.031, 133.658, 33.952, 1.154)
pt3dadd(210.138, 133.71, 33.966, 1.206)
pt3dadd(210.245, 133.762, 33.98, 1.258)
pt3dadd(210.353, 133.813, 33.994, 1.31)
pt3dadd(210.46, 133.865, 34.009, 1.36)
pt3dadd(210.566, 133.915, 34.023, 1.412)
pt3dadd(210.673, 133.967, 34.037, 1.464)
pt3dadd(210.78, 134.018, 34.051, 1.516)
pt3dadd(210.887, 134.066, 34.074, 1.542)
pt3dadd(210.992, 134.112, 34.102, 1.552)
pt3dadd(211.098, 134.158, 34.13, 1.562)
pt3dadd(211.204, 134.204, 34.157, 1.572)
pt3dadd(211.309, 134.25, 34.185, 1.582)
pt3dadd(211.416, 134.296, 34.213, 1.592)
pt3dadd(211.522, 134.341, 34.241, 1.602)
pt3dadd(211.627, 134.388, 34.269, 1.612)
pt3dadd(211.733, 134.434, 34.297, 1.622)
pt3dadd(211.838, 134.479, 34.325, 1.632)
pt3dadd(211.942, 134.52, 34.363, 1.608)
pt3dadd(212.042, 134.56, 34.405, 1.572)
pt3dadd(212.144, 134.598, 34.447, 1.534)
pt3dadd(212.245, 134.636, 34.49, 1.498)
pt3dadd(212.347, 134.676, 34.532, 1.462)
pt3dadd(212.449, 134.714, 34.575, 1.424)
pt3dadd(212.55, 134.754, 34.617, 1.388)
pt3dadd(212.652, 134.792, 34.659, 1.352)
pt3dadd(212.753, 134.831, 34.701, 1.314)
pt3dadd(212.855, 134.87, 34.744, 1.278)
pt3dadd(212.954, 134.916, 34.783, 1.29)
pt3dadd(213.054, 134.965, 34.822, 1.32)
pt3dadd(213.154, 135.013, 34.86, 1.352)
pt3dadd(213.254, 135.062, 34.898, 1.382)
pt3dadd(213.354, 135.11, 34.936, 1.412)
pt3dadd(213.454, 135.16, 34.975, 1.444)
pt3dadd(213.553, 135.208, 35.013, 1.474)
pt3dadd(213.653, 135.257, 35.051, 1.506)
pt3dadd(213.752, 135.305, 35.09, 1.536)
pt3dadd(213.852, 135.354, 35.128, 1.568)
pt3dadd(213.95, 135.407, 35.164, 1.628)
pt3dadd(214.049, 135.461, 35.2, 1.698)
pt3dadd(214.146, 135.515, 35.236, 1.77)
pt3dadd(214.244, 135.569, 35.271, 1.84)
pt3dadd(214.343, 135.623, 35.307, 1.912)
pt3dadd(214.441, 135.677, 35.342, 1.984)
pt3dadd(214.54, 135.731, 35.378, 2.054)
pt3dadd(214.637, 135.785, 35.414, 2.126)
pt3dadd(214.735, 135.839, 35.45, 2.196)
pt3dadd(214.834, 135.893, 35.485, 2.268)
pt3dadd(214.932, 135.936, 35.53, 2.268)
pt3dadd(215.03, 135.976, 35.577, 2.246)
pt3dadd(215.129, 136.015, 35.624, 2.224)
pt3dadd(215.226, 136.055, 35.671, 2.202)
pt3dadd(215.324, 136.093, 35.718, 2.18)
pt3dadd(215.423, 136.133, 35.766, 2.158)
pt3dadd(215.521, 136.172, 35.813, 2.136)
pt3dadd(215.62, 136.212, 35.86, 2.112)
pt3dadd(215.718, 136.252, 35.907, 2.09)
}
}
proc shape3d_166() {
dend_7[35] { pt3dadd(215.815, 136.29, 35.955, 2.068)
pt3dadd(215.914, 136.325, 36.005, 2.016)
pt3dadd(216.011, 136.358, 36.056, 1.958)
pt3dadd(216.108, 136.392, 36.108, 1.898)
pt3dadd(216.205, 136.426, 36.159, 1.84)
pt3dadd(216.302, 136.458, 36.211, 1.782)
pt3dadd(216.4, 136.492, 36.262, 1.722)
pt3dadd(216.497, 136.525, 36.314, 1.664)
pt3dadd(216.594, 136.559, 36.365, 1.604)
pt3dadd(216.692, 136.592, 36.417, 1.546)
pt3dadd(216.79, 136.625, 36.468, 1.486)
pt3dadd(216.887, 136.655, 36.521, 1.466)
pt3dadd(216.984, 136.682, 36.574, 1.454)
pt3dadd(217.082, 136.711, 36.627, 1.442)
pt3dadd(217.18, 136.74, 36.68, 1.43)
pt3dadd(217.277, 136.768, 36.734, 1.418)
pt3dadd(217.375, 136.796, 36.787, 1.406)
pt3dadd(217.472, 136.825, 36.84, 1.394)
pt3dadd(217.57, 136.853, 36.893, 1.382)
pt3dadd(217.668, 136.882, 36.946, 1.37)
pt3dadd(217.765, 136.909, 37, 1.358)
pt3dadd(217.862, 136.937, 37.053, 1.356)
pt3dadd(217.96, 136.964, 37.107, 1.356)
pt3dadd(218.058, 136.991, 37.16, 1.356)
pt3dadd(218.155, 137.018, 37.214, 1.356)
pt3dadd(218.252, 137.046, 37.268, 1.356)
pt3dadd(218.351, 137.072, 37.321, 1.356)
pt3dadd(218.448, 137.1, 37.375, 1.356)
pt3dadd(218.545, 137.126, 37.429, 1.356)
pt3dadd(218.644, 137.154, 37.482, 1.356)
pt3dadd(218.741, 137.182, 37.536, 1.356)
pt3dadd(218.842, 137.226, 37.574, 1.356)
pt3dadd(218.942, 137.276, 37.609, 1.356)
pt3dadd(219.043, 137.327, 37.643, 1.356)
pt3dadd(219.144, 137.376, 37.677, 1.356)
pt3dadd(219.245, 137.426, 37.712, 1.356)
pt3dadd(219.346, 137.477, 37.746, 1.356)
pt3dadd(219.446, 137.526, 37.781, 1.356)
pt3dadd(219.548, 137.576, 37.815, 1.356)
pt3dadd(219.649, 137.627, 37.85, 1.356)
pt3dadd(219.75, 137.676, 37.884, 1.356)
pt3dadd(219.851, 137.729, 37.915, 1.356)
pt3dadd(219.953, 137.782, 37.946, 1.354)
pt3dadd(220.054, 137.833, 37.977, 1.354)
pt3dadd(220.156, 137.886, 38.008, 1.352)
pt3dadd(220.256, 137.939, 38.038, 1.352)
pt3dadd(220.358, 137.992, 38.069, 1.352)
pt3dadd(220.459, 138.043, 38.1, 1.35)
pt3dadd(220.561, 138.096, 38.131, 1.35)
pt3dadd(220.662, 138.149, 38.161, 1.348)
pt3dadd(220.764, 138.202, 38.192, 1.348)
pt3dadd(220.87, 138.253, 38.208, 1.336)
pt3dadd(220.978, 138.304, 38.221, 1.322)
pt3dadd(221.084, 138.355, 38.234, 1.308)
pt3dadd(221.192, 138.407, 38.247, 1.296)
pt3dadd(221.299, 138.457, 38.26, 1.282)
pt3dadd(221.407, 138.509, 38.273, 1.268)
pt3dadd(221.514, 138.56, 38.287, 1.256)
pt3dadd(221.622, 138.612, 38.3, 1.242)
pt3dadd(221.729, 138.662, 38.313, 1.228)
pt3dadd(221.837, 138.714, 38.326, 1.214)
pt3dadd(221.94, 138.773, 38.337, 1.21)
pt3dadd(222.043, 138.832, 38.348, 1.206)
pt3dadd(222.148, 138.892, 38.358, 1.204)
pt3dadd(222.251, 138.95, 38.369, 1.2)
pt3dadd(222.354, 139.01, 38.379, 1.196)
pt3dadd(222.457, 139.069, 38.39, 1.192)
pt3dadd(222.562, 139.129, 38.401, 1.19)
pt3dadd(222.665, 139.188, 38.411, 1.186)
pt3dadd(222.768, 139.248, 38.422, 1.182)
pt3dadd(222.871, 139.307, 38.433, 1.178)
pt3dadd(222.968, 139.378, 38.439, 1.19)
pt3dadd(223.063, 139.45, 38.446, 1.202)
pt3dadd(223.159, 139.522, 38.452, 1.216)
pt3dadd(223.255, 139.594, 38.459, 1.228)
pt3dadd(223.351, 139.666, 38.465, 1.24)
pt3dadd(223.447, 139.738, 38.472, 1.254)
pt3dadd(223.542, 139.81, 38.478, 1.266)
pt3dadd(223.638, 139.882, 38.485, 1.278)
pt3dadd(223.734, 139.954, 38.491, 1.292)
pt3dadd(223.83, 140.026, 38.497, 1.304)
pt3dadd(223.921, 140.102, 38.506, 1.31)
pt3dadd(224.012, 140.179, 38.515, 1.314)
pt3dadd(224.104, 140.256, 38.524, 1.32)
pt3dadd(224.195, 140.334, 38.533, 1.324)
pt3dadd(224.286, 140.411, 38.542, 1.33)
pt3dadd(224.377, 140.488, 38.551, 1.336)
pt3dadd(224.468, 140.566, 38.56, 1.34)
pt3dadd(224.56, 140.642, 38.569, 1.346)
pt3dadd(224.651, 140.72, 38.578, 1.35)
pt3dadd(224.742, 140.797, 38.587, 1.356)
pt3dadd(224.831, 140.878, 38.598, 1.356)
pt3dadd(224.918, 140.958, 38.608, 1.356)
pt3dadd(225.006, 141.038, 38.619, 1.356)
pt3dadd(225.095, 141.119, 38.63, 1.356)
pt3dadd(225.182, 141.199, 38.64, 1.356)
pt3dadd(225.271, 141.28, 38.651, 1.356)
pt3dadd(225.359, 141.36, 38.662, 1.356)
pt3dadd(225.446, 141.44, 38.672, 1.356)
pt3dadd(225.535, 141.522, 38.683, 1.356)
pt3dadd(225.623, 141.602, 38.694, 1.356)
pt3dadd(225.697, 141.684, 38.731, 1.332)
pt3dadd(225.77, 141.766, 38.772, 1.306)
pt3dadd(225.844, 141.848, 38.812, 1.278)
pt3dadd(225.917, 141.93, 38.852, 1.252)
pt3dadd(225.989, 142.013, 38.892, 1.226)
pt3dadd(226.062, 142.094, 38.932, 1.2)
pt3dadd(226.135, 142.177, 38.972, 1.174)
pt3dadd(226.208, 142.259, 39.012, 1.146)
pt3dadd(226.282, 142.342, 39.052, 1.12)
pt3dadd(226.355, 142.423, 39.092, 1.094)
pt3dadd(226.424, 142.51, 39.132, 1.076)
pt3dadd(226.494, 142.595, 39.171, 1.056)
pt3dadd(226.564, 142.681, 39.21, 1.036)
pt3dadd(226.632, 142.766, 39.249, 1.018)
pt3dadd(226.702, 142.852, 39.289, 0.998)
pt3dadd(226.771, 142.938, 39.328, 0.978)
pt3dadd(226.841, 143.023, 39.367, 0.96)
pt3dadd(226.91, 143.11, 39.406, 0.94)
pt3dadd(226.98, 143.195, 39.445, 0.922)
pt3dadd(227.05, 143.281, 39.484, 0.904)
pt3dadd(227.12, 143.372, 39.511, 0.904)
pt3dadd(227.191, 143.464, 39.539, 0.904)
pt3dadd(227.262, 143.555, 39.567, 0.904)
pt3dadd(227.332, 143.646, 39.595, 0.904)
pt3dadd(227.402, 143.737, 39.623, 0.904)
pt3dadd(227.473, 143.828, 39.651, 0.904)
pt3dadd(227.544, 143.92, 39.679, 0.904)
pt3dadd(227.614, 144.011, 39.706, 0.904)
pt3dadd(227.684, 144.102, 39.734, 0.904)
pt3dadd(227.753, 144.194, 39.761, 0.9)
pt3dadd(227.801, 144.301, 39.781, 0.862)
pt3dadd(227.85, 144.409, 39.801, 0.824)
pt3dadd(227.898, 144.516, 39.821, 0.784)
pt3dadd(227.946, 144.623, 39.841, 0.746)
pt3dadd(227.994, 144.731, 39.861, 0.708)
pt3dadd(228.043, 144.838, 39.882, 0.67)
pt3dadd(228.091, 144.944, 39.902, 0.63)
pt3dadd(228.139, 145.051, 39.922, 0.592)
pt3dadd(228.188, 145.159, 39.942, 0.554)
pt3dadd(228.236, 145.266, 39.961, 0.52)
pt3dadd(228.284, 145.374, 39.977, 0.506)
pt3dadd(228.332, 145.483, 39.993, 0.494)
pt3dadd(228.38, 145.591, 40.009, 0.482)
pt3dadd(228.428, 145.699, 40.025, 0.47)
pt3dadd(228.476, 145.807, 40.041, 0.458)
pt3dadd(228.524, 145.916, 40.057, 0.444)
pt3dadd(228.572, 146.024, 40.073, 0.432)
pt3dadd(228.62, 146.132, 40.09, 0.42)
pt3dadd(228.668, 146.24, 40.105, 0.408)
pt3dadd(228.718, 146.348, 40.121, 0.406)
pt3dadd(228.773, 146.455, 40.131, 0.456)
pt3dadd(228.827, 146.561, 40.142, 0.508)
pt3dadd(228.881, 146.668, 40.153, 0.558)
pt3dadd(228.935, 146.773, 40.163, 0.61)
pt3dadd(228.99, 146.88, 40.174, 0.662)
pt3dadd(229.044, 146.986, 40.184, 0.712)
pt3dadd(229.098, 147.092, 40.195, 0.764)
pt3dadd(229.153, 147.198, 40.205, 0.814)
pt3dadd(229.207, 147.305, 40.216, 0.866)
pt3dadd(229.259, 147.412, 40.229, 0.912)
pt3dadd(229.298, 147.52, 40.255, 0.926)
pt3dadd(229.338, 147.629, 40.281, 0.94)
pt3dadd(229.378, 147.738, 40.307, 0.956)
pt3dadd(229.416, 147.847, 40.333, 0.97)
pt3dadd(229.456, 147.956, 40.358, 0.986)
pt3dadd(229.495, 148.066, 40.384, 1)
pt3dadd(229.535, 148.175, 40.41, 1.016)
pt3dadd(229.574, 148.284, 40.436, 1.03)
pt3dadd(229.613, 148.392, 40.462, 1.046)
pt3dadd(229.649, 148.501, 40.491, 1.052)
pt3dadd(229.675, 148.609, 40.528, 1.038)
pt3dadd(229.703, 148.717, 40.565, 1.026)
pt3dadd(229.73, 148.826, 40.602, 1.012)
pt3dadd(229.757, 148.934, 40.639, 1)
pt3dadd(229.784, 149.042, 40.675, 0.986)
pt3dadd(229.811, 149.15, 40.712, 0.974)
pt3dadd(229.838, 149.258, 40.749, 0.96)
pt3dadd(229.865, 149.368, 40.786, 0.948)
pt3dadd(229.892, 149.476, 40.823, 0.934)
pt3dadd(229.915, 149.586, 40.856, 0.924)
pt3dadd(229.931, 149.7, 40.884, 0.922)
pt3dadd(229.946, 149.814, 40.911, 0.92)
pt3dadd(229.962, 149.929, 40.938, 0.918)
pt3dadd(229.978, 150.043, 40.965, 0.916)
pt3dadd(229.993, 150.157, 40.993, 0.914)
pt3dadd(230.009, 150.272, 41.02, 0.912)
pt3dadd(230.024, 150.386, 41.047, 0.91)
pt3dadd(230.04, 150.5, 41.075, 0.908)
pt3dadd(230.056, 150.616, 41.102, 0.906)
pt3dadd(230.07, 150.731, 41.128, 0.906)
pt3dadd(230.081, 150.846, 41.151, 0.908)
pt3dadd(230.092, 150.962, 41.174, 0.912)
pt3dadd(230.102, 151.079, 41.197, 0.914)
pt3dadd(230.113, 151.195, 41.22, 0.918)
pt3dadd(230.124, 151.312, 41.243, 0.92)
pt3dadd(230.135, 151.428, 41.266, 0.924)
pt3dadd(230.144, 151.544, 41.289, 0.926)
pt3dadd(230.155, 151.661, 41.312, 0.93)
pt3dadd(230.166, 151.777, 41.335, 0.932)
}
}
proc shape3d_167() {
dend_7[35] { pt3dadd(230.173, 151.894, 41.355, 0.94)
pt3dadd(230.174, 152.012, 41.369, 0.954)
pt3dadd(230.176, 152.131, 41.383, 0.968)
pt3dadd(230.176, 152.25, 41.397, 0.982)
pt3dadd(230.177, 152.369, 41.411, 0.996)
pt3dadd(230.178, 152.488, 41.426, 1.012)
pt3dadd(230.178, 152.606, 41.44, 1.026)
pt3dadd(230.179, 152.725, 41.454, 1.04)
pt3dadd(230.18, 152.844, 41.468, 1.054)
pt3dadd(230.182, 152.963, 41.483, 1.068)
pt3dadd(230.183, 153.082, 41.495, 1.066)
pt3dadd(230.184, 153.202, 41.506, 1.034)
pt3dadd(230.186, 153.32, 41.516, 1.002)
pt3dadd(230.188, 153.44, 41.526, 0.972)
pt3dadd(230.19, 153.559, 41.536, 0.94)
pt3dadd(230.191, 153.679, 41.546, 0.908)
pt3dadd(230.194, 153.798, 41.557, 0.876)
pt3dadd(230.195, 153.918, 41.567, 0.844)
pt3dadd(230.197, 154.037, 41.577, 0.812)
pt3dadd(230.198, 154.157, 41.587, 0.78)
pt3dadd(230.201, 154.276, 41.597, 0.742)
pt3dadd(230.203, 154.396, 41.605, 0.688)
pt3dadd(230.206, 154.514, 41.613, 0.634)
pt3dadd(230.208, 154.634, 41.621, 0.58)
pt3dadd(230.21, 154.754, 41.63, 0.528)
pt3dadd(230.213, 154.873, 41.638, 0.474)
pt3dadd(230.215, 154.993, 41.646, 0.42)
pt3dadd(230.218, 155.113, 41.655, 0.368)
pt3dadd(230.22, 155.232, 41.663, 0.314)
pt3dadd(230.222, 155.352, 41.671, 0.26)
pt3dadd(230.225, 155.471, 41.681, 0.226)
pt3dadd(230.23, 155.59, 41.695, 0.226)
pt3dadd(230.234, 155.708, 41.708, 0.226)
pt3dadd(230.238, 155.827, 41.722, 0.226)
pt3dadd(230.243, 155.946, 41.735, 0.226)
pt3dadd(230.248, 156.065, 41.749, 0.226)
pt3dadd(230.252, 156.184, 41.762, 0.226)
pt3dadd(230.256, 156.302, 41.776, 0.226)
pt3dadd(230.261, 156.421, 41.789, 0.226)
pt3dadd(230.266, 156.54, 41.803, 0.226)
pt3dadd(230.27, 156.658, 41.822, 0.226)
pt3dadd(230.278, 156.773, 41.85, 0.226)
pt3dadd(230.286, 156.888, 41.878, 0.226)
pt3dadd(230.293, 157.002, 41.907, 0.226)
pt3dadd(230.3, 157.117, 41.935, 0.226)
pt3dadd(230.308, 157.232, 41.963, 0.226)
pt3dadd(230.315, 157.346, 41.992, 0.226)
pt3dadd(230.322, 157.462, 42.02, 0.226)
pt3dadd(230.33, 157.577, 42.048, 0.226)
pt3dadd(230.338, 157.691, 42.077, 0.226)
pt3dadd(230.346, 157.804, 42.111, 0.226)
pt3dadd(230.356, 157.913, 42.152, 0.226)
pt3dadd(230.366, 158.022, 42.193, 0.226)
pt3dadd(230.376, 158.13, 42.234, 0.226)
pt3dadd(230.386, 158.239, 42.275, 0.226)
pt3dadd(230.396, 158.348, 42.316, 0.226)
pt3dadd(230.406, 158.458, 42.357, 0.226)
pt3dadd(230.417, 158.567, 42.398, 0.226)
pt3dadd(230.426, 158.675, 42.439, 0.226)
pt3dadd(230.436, 158.784, 42.48, 0.226)
pt3dadd(230.45, 158.894, 42.519, 0.226)
pt3dadd(230.468, 159.005, 42.553, 0.226)
pt3dadd(230.485, 159.116, 42.588, 0.226)
pt3dadd(230.503, 159.228, 42.623, 0.226)
pt3dadd(230.521, 159.338, 42.658, 0.226)
pt3dadd(230.538, 159.45, 42.692, 0.226)
pt3dadd(230.556, 159.56, 42.727, 0.226)
pt3dadd(230.574, 159.672, 42.762, 0.226)
pt3dadd(230.592, 159.782, 42.797, 0.226)
pt3dadd(230.609, 159.894, 42.832, 0.226)
pt3dadd(230.634, 160.004, 42.865, 0.238)
pt3dadd(230.666, 160.114, 42.896, 0.262)
pt3dadd(230.698, 160.223, 42.928, 0.284)
pt3dadd(230.73, 160.332, 42.959, 0.308)
pt3dadd(230.762, 160.441, 42.991, 0.332)
pt3dadd(230.795, 160.55, 43.022, 0.356)
pt3dadd(230.827, 160.66, 43.054, 0.38)
pt3dadd(230.86, 160.769, 43.085, 0.404)
pt3dadd(230.892, 160.878, 43.117, 0.428)
pt3dadd(230.923, 160.987, 43.148, 0.452)
pt3dadd(230.971, 161.092, 43.176, 0.504)
pt3dadd(231.03, 161.192, 43.201, 0.574)
pt3dadd(231.088, 161.292, 43.227, 0.646)
pt3dadd(231.146, 161.393, 43.252, 0.718)
pt3dadd(231.204, 161.494, 43.277, 0.788)
pt3dadd(231.263, 161.593, 43.303, 0.86)
pt3dadd(231.32, 161.694, 43.328, 0.93)
pt3dadd(231.379, 161.795, 43.354, 1.002)
pt3dadd(231.437, 161.894, 43.379, 1.074)
pt3dadd(231.496, 161.995, 43.405, 1.144)
pt3dadd(231.554, 162.085, 43.445, 1.208)
pt3dadd(231.616, 162.169, 43.496, 1.266)
pt3dadd(231.676, 162.253, 43.547, 1.326)
pt3dadd(231.736, 162.337, 43.598, 1.386)
pt3dadd(231.796, 162.421, 43.649, 1.444)
pt3dadd(231.857, 162.505, 43.7, 1.504)
pt3dadd(231.917, 162.589, 43.75, 1.562)
pt3dadd(231.977, 162.673, 43.801, 1.622)
pt3dadd(232.037, 162.757, 43.852, 1.68)
pt3dadd(232.098, 162.841, 43.903, 1.74)
pt3dadd(232.164, 162.92, 43.953, 1.748)
pt3dadd(232.234, 162.998, 44.003, 1.74)
pt3dadd(232.303, 163.075, 44.053, 1.73)
pt3dadd(232.372, 163.153, 44.103, 1.722)
pt3dadd(232.441, 163.231, 44.152, 1.714)
pt3dadd(232.511, 163.309, 44.202, 1.706)
pt3dadd(232.579, 163.386, 44.252, 1.698)
pt3dadd(232.649, 163.464, 44.302, 1.69)
pt3dadd(232.717, 163.542, 44.352, 1.68)
pt3dadd(232.787, 163.62, 44.401, 1.672)
pt3dadd(232.864, 163.698, 44.443, 1.608)
pt3dadd(232.942, 163.776, 44.482, 1.532)
pt3dadd(233.02, 163.854, 44.521, 1.456)
pt3dadd(233.098, 163.932, 44.561, 1.38)
pt3dadd(233.176, 164.01, 44.6, 1.304)
pt3dadd(233.252, 164.088, 44.639, 1.228)
pt3dadd(233.33, 164.166, 44.679, 1.152)
pt3dadd(233.408, 164.244, 44.718, 1.076)
pt3dadd(233.486, 164.322, 44.758, 1)
pt3dadd(233.564, 164.4, 44.797, 0.924)
pt3dadd(233.629, 164.465, 44.86, 0.912)
pt3dadd(233.692, 164.527, 44.928, 0.91)
pt3dadd(233.754, 164.59, 44.996, 0.91)
pt3dadd(233.816, 164.652, 45.063, 0.908)
pt3dadd(233.879, 164.714, 45.131, 0.908)
pt3dadd(233.941, 164.777, 45.199, 0.908)
pt3dadd(234.004, 164.839, 45.267, 0.906)
pt3dadd(234.066, 164.902, 45.334, 0.906)
pt3dadd(234.128, 164.964, 45.402, 0.904)
pt3dadd(234.191, 165.026, 45.47, 0.904)
pt3dadd(234.268, 165.103, 45.512, 0.878)
pt3dadd(234.346, 165.181, 45.55, 0.848)
pt3dadd(234.425, 165.26, 45.587, 0.818)
pt3dadd(234.503, 165.338, 45.625, 0.786)
pt3dadd(234.582, 165.418, 45.662, 0.756)
pt3dadd(234.661, 165.497, 45.7, 0.726)
pt3dadd(234.739, 165.575, 45.737, 0.694)
pt3dadd(234.818, 165.654, 45.775, 0.664)
pt3dadd(234.896, 165.732, 45.812, 0.634)
pt3dadd(234.976, 165.811, 45.85, 0.604)
pt3dadd(235.057, 165.892, 45.879, 0.566)
pt3dadd(235.138, 165.973, 45.908, 0.528)
pt3dadd(235.219, 166.055, 45.937, 0.49)
pt3dadd(235.301, 166.135, 45.966, 0.452)
pt3dadd(235.381, 166.217, 45.995, 0.414)
pt3dadd(235.463, 166.298, 46.024, 0.376)
pt3dadd(235.544, 166.379, 46.053, 0.34)
pt3dadd(235.626, 166.46, 46.082, 0.302)
pt3dadd(235.706, 166.541, 46.111, 0.264)
pt3dadd(235.788, 166.622, 46.14, 0.226)
}
dend_7[36] {pt3dclear()
pt3dadd(185.761, 118.577, 28.48, 0.904)
pt3dadd(185.803, 118.485, 28.496, 0.888)
pt3dadd(185.854, 118.379, 28.514, 0.87)
pt3dadd(185.904, 118.272, 28.533, 0.852)
pt3dadd(185.953, 118.165, 28.551, 0.834)
pt3dadd(186.004, 118.058, 28.57, 0.814)
pt3dadd(186.053, 117.951, 28.588, 0.796)
pt3dadd(186.103, 117.844, 28.607, 0.778)
pt3dadd(186.152, 117.737, 28.625, 0.76)
pt3dadd(186.203, 117.631, 28.644, 0.742)
pt3dadd(186.253, 117.524, 28.662, 0.722)
pt3dadd(186.302, 117.417, 28.681, 0.704)
pt3dadd(186.353, 117.31, 28.699, 0.686)
pt3dadd(186.402, 117.203, 28.718, 0.668)
pt3dadd(186.452, 117.096, 28.736, 0.65)
pt3dadd(186.503, 116.99, 28.755, 0.63)
pt3dadd(186.552, 116.883, 28.773, 0.612)
pt3dadd(186.607, 116.779, 28.792, 0.6)
pt3dadd(186.672, 116.68, 28.81, 0.598)
pt3dadd(186.736, 116.581, 28.829, 0.596)
pt3dadd(186.8, 116.482, 28.847, 0.594)
pt3dadd(186.865, 116.383, 28.866, 0.592)
pt3dadd(186.929, 116.285, 28.885, 0.59)
pt3dadd(186.994, 116.186, 28.903, 0.588)
pt3dadd(187.058, 116.087, 28.922, 0.586)
pt3dadd(187.122, 115.988, 28.94, 0.584)
pt3dadd(187.187, 115.89, 28.959, 0.582)
pt3dadd(187.288, 115.835, 28.974, 0.634)
pt3dadd(187.398, 115.793, 28.989, 0.702)
pt3dadd(187.51, 115.751, 29.003, 0.77)
pt3dadd(187.62, 115.709, 29.017, 0.838)
pt3dadd(187.732, 115.667, 29.032, 0.906)
pt3dadd(187.842, 115.625, 29.046, 0.974)
pt3dadd(187.954, 115.583, 29.061, 1.04)
pt3dadd(188.065, 115.541, 29.075, 1.108)
pt3dadd(188.176, 115.499, 29.09, 1.176)
pt3dadd(188.287, 115.457, 29.104, 1.244)
pt3dadd(188.393, 115.405, 29.119, 1.278)
pt3dadd(188.498, 115.349, 29.134, 1.302)
pt3dadd(188.603, 115.294, 29.15, 1.328)
pt3dadd(188.708, 115.239, 29.165, 1.352)
pt3dadd(188.813, 115.183, 29.18, 1.376)
pt3dadd(188.917, 115.128, 29.195, 1.4)
pt3dadd(189.023, 115.073, 29.211, 1.424)
pt3dadd(189.127, 115.017, 29.226, 1.45)
pt3dadd(189.233, 114.962, 29.241, 1.474)
pt3dadd(189.337, 114.906, 29.256, 1.498)
pt3dadd(189.436, 114.841, 29.273, 1.49)
pt3dadd(189.533, 114.774, 29.29, 1.474)
pt3dadd(189.63, 114.706, 29.307, 1.458)
}
}
proc shape3d_168() {
dend_7[36] { pt3dadd(189.727, 114.639, 29.325, 1.444)
pt3dadd(189.824, 114.571, 29.342, 1.428)
pt3dadd(189.922, 114.504, 29.359, 1.412)
pt3dadd(190.019, 114.437, 29.376, 1.398)
pt3dadd(190.116, 114.369, 29.393, 1.382)
pt3dadd(190.212, 114.302, 29.411, 1.366)
pt3dadd(190.309, 114.234, 29.428, 1.352)
pt3dadd(190.384, 114.157, 29.471, 1.338)
pt3dadd(190.454, 114.079, 29.518, 1.324)
pt3dadd(190.525, 114, 29.565, 1.308)
pt3dadd(190.596, 113.921, 29.612, 1.294)
pt3dadd(190.667, 113.842, 29.659, 1.28)
pt3dadd(190.738, 113.764, 29.707, 1.266)
pt3dadd(190.808, 113.685, 29.754, 1.252)
pt3dadd(190.879, 113.606, 29.801, 1.238)
pt3dadd(190.95, 113.528, 29.848, 1.224)
pt3dadd(191.021, 113.449, 29.895, 1.21)
pt3dadd(191.102, 113.381, 29.94, 1.194)
pt3dadd(191.186, 113.314, 29.985, 1.18)
pt3dadd(191.27, 113.247, 30.03, 1.164)
pt3dadd(191.354, 113.18, 30.075, 1.15)
pt3dadd(191.438, 113.114, 30.12, 1.134)
pt3dadd(191.522, 113.047, 30.165, 1.12)
pt3dadd(191.606, 112.98, 30.21, 1.104)
pt3dadd(191.69, 112.913, 30.254, 1.09)
pt3dadd(191.774, 112.847, 30.299, 1.074)
pt3dadd(191.858, 112.78, 30.344, 1.06)
pt3dadd(191.956, 112.729, 30.385, 1.044)
pt3dadd(192.052, 112.678, 30.426, 1.028)
pt3dadd(192.149, 112.627, 30.467, 1.012)
pt3dadd(192.246, 112.576, 30.508, 0.998)
pt3dadd(192.343, 112.525, 30.548, 0.982)
pt3dadd(192.44, 112.474, 30.589, 0.966)
pt3dadd(192.538, 112.423, 30.63, 0.95)
pt3dadd(192.634, 112.373, 30.671, 0.934)
pt3dadd(192.731, 112.322, 30.712, 0.92)
pt3dadd(192.828, 112.271, 30.753, 0.904)
}
dend_7[37] {pt3dclear()
pt3dadd(192.828, 112.271, 30.753, 0.904)
pt3dadd(192.857, 112.264, 30.768, 0.912)
pt3dadd(192.958, 112.242, 30.819, 0.94)
pt3dadd(193.058, 112.22, 30.871, 0.966)
pt3dadd(193.158, 112.197, 30.922, 0.994)
pt3dadd(193.259, 112.175, 30.974, 1.02)
pt3dadd(193.36, 112.152, 31.025, 1.048)
pt3dadd(193.459, 112.129, 31.077, 1.076)
pt3dadd(193.56, 112.107, 31.128, 1.102)
pt3dadd(193.661, 112.084, 31.18, 1.13)
pt3dadd(193.76, 112.062, 31.231, 1.156)
pt3dadd(193.861, 112.039, 31.283, 1.184)
pt3dadd(193.962, 112.017, 31.334, 1.212)
pt3dadd(194.068, 111.996, 31.378, 1.222)
pt3dadd(194.174, 111.976, 31.42, 1.23)
pt3dadd(194.281, 111.956, 31.461, 1.238)
pt3dadd(194.389, 111.936, 31.503, 1.244)
pt3dadd(194.496, 111.916, 31.545, 1.252)
pt3dadd(194.603, 111.896, 31.587, 1.26)
pt3dadd(194.71, 111.876, 31.629, 1.266)
pt3dadd(194.816, 111.856, 31.671, 1.274)
pt3dadd(194.924, 111.836, 31.713, 1.282)
pt3dadd(195.031, 111.816, 31.755, 1.29)
pt3dadd(195.143, 111.798, 31.788, 1.278)
pt3dadd(195.256, 111.781, 31.819, 1.264)
pt3dadd(195.368, 111.764, 31.85, 1.25)
pt3dadd(195.481, 111.747, 31.881, 1.238)
pt3dadd(195.594, 111.73, 31.912, 1.224)
pt3dadd(195.707, 111.712, 31.943, 1.21)
pt3dadd(195.82, 111.695, 31.975, 1.196)
pt3dadd(195.932, 111.678, 32.006, 1.184)
pt3dadd(196.045, 111.661, 32.037, 1.17)
pt3dadd(196.158, 111.644, 32.068, 1.156)
pt3dadd(196.265, 111.601, 32.093, 1.142)
pt3dadd(196.373, 111.556, 32.118, 1.13)
pt3dadd(196.48, 111.51, 32.142, 1.118)
pt3dadd(196.586, 111.465, 32.166, 1.104)
pt3dadd(196.693, 111.419, 32.19, 1.092)
pt3dadd(196.801, 111.374, 32.215, 1.078)
pt3dadd(196.908, 111.328, 32.239, 1.066)
pt3dadd(197.015, 111.282, 32.263, 1.052)
pt3dadd(197.123, 111.237, 32.288, 1.04)
pt3dadd(197.23, 111.191, 32.312, 1.026)
pt3dadd(197.334, 111.14, 32.335, 1.016)
pt3dadd(197.44, 111.089, 32.358, 1.004)
pt3dadd(197.544, 111.038, 32.382, 0.992)
pt3dadd(197.65, 110.987, 32.405, 0.982)
pt3dadd(197.754, 110.936, 32.428, 0.97)
pt3dadd(197.86, 110.885, 32.451, 0.958)
pt3dadd(197.964, 110.834, 32.475, 0.948)
pt3dadd(198.07, 110.783, 32.498, 0.936)
pt3dadd(198.174, 110.732, 32.521, 0.924)
pt3dadd(198.28, 110.681, 32.544, 0.914)
pt3dadd(198.382, 110.64, 32.584, 0.936)
pt3dadd(198.484, 110.599, 32.625, 0.962)
pt3dadd(198.584, 110.558, 32.665, 0.986)
pt3dadd(198.686, 110.518, 32.705, 1.01)
pt3dadd(198.788, 110.477, 32.746, 1.036)
pt3dadd(198.89, 110.436, 32.786, 1.06)
pt3dadd(198.992, 110.395, 32.826, 1.084)
pt3dadd(199.094, 110.355, 32.867, 1.108)
pt3dadd(199.196, 110.314, 32.907, 1.134)
pt3dadd(199.298, 110.273, 32.947, 1.158)
pt3dadd(199.4, 110.229, 32.986, 1.176)
pt3dadd(199.501, 110.184, 33.024, 1.194)
pt3dadd(199.603, 110.139, 33.063, 1.21)
pt3dadd(199.704, 110.095, 33.102, 1.228)
pt3dadd(199.806, 110.05, 33.14, 1.246)
pt3dadd(199.907, 110.006, 33.179, 1.262)
pt3dadd(200.009, 109.961, 33.217, 1.28)
pt3dadd(200.11, 109.917, 33.256, 1.298)
pt3dadd(200.21, 109.872, 33.294, 1.314)
pt3dadd(200.312, 109.828, 33.333, 1.332)
pt3dadd(200.411, 109.769, 33.363, 1.32)
pt3dadd(200.508, 109.71, 33.394, 1.308)
pt3dadd(200.606, 109.651, 33.424, 1.296)
pt3dadd(200.705, 109.592, 33.454, 1.284)
pt3dadd(200.802, 109.533, 33.485, 1.274)
pt3dadd(200.9, 109.474, 33.515, 1.262)
pt3dadd(200.999, 109.415, 33.545, 1.25)
pt3dadd(201.096, 109.356, 33.576, 1.238)
pt3dadd(201.194, 109.298, 33.606, 1.226)
pt3dadd(201.293, 109.239, 33.637, 1.214)
pt3dadd(201.391, 109.185, 33.671, 1.206)
pt3dadd(201.49, 109.131, 33.706, 1.196)
pt3dadd(201.589, 109.078, 33.741, 1.188)
pt3dadd(201.688, 109.024, 33.775, 1.18)
pt3dadd(201.787, 108.971, 33.81, 1.172)
pt3dadd(201.886, 108.917, 33.845, 1.164)
pt3dadd(201.985, 108.863, 33.88, 1.154)
pt3dadd(202.084, 108.81, 33.914, 1.146)
pt3dadd(202.183, 108.756, 33.949, 1.138)
pt3dadd(202.282, 108.703, 33.984, 1.13)
pt3dadd(202.381, 108.663, 34.028, 1.13)
pt3dadd(202.481, 108.623, 34.073, 1.13)
pt3dadd(202.582, 108.583, 34.117, 1.13)
pt3dadd(202.681, 108.543, 34.162, 1.13)
pt3dadd(202.781, 108.504, 34.206, 1.13)
pt3dadd(202.88, 108.464, 34.251, 1.13)
pt3dadd(202.98, 108.424, 34.295, 1.13)
pt3dadd(203.08, 108.384, 34.34, 1.13)
pt3dadd(203.18, 108.344, 34.384, 1.13)
pt3dadd(203.28, 108.304, 34.428, 1.13)
pt3dadd(203.381, 108.254, 34.464, 1.124)
pt3dadd(203.482, 108.205, 34.499, 1.118)
pt3dadd(203.582, 108.155, 34.535, 1.114)
pt3dadd(203.682, 108.106, 34.57, 1.108)
pt3dadd(203.783, 108.056, 34.606, 1.102)
pt3dadd(203.884, 108.007, 34.642, 1.096)
pt3dadd(203.984, 107.957, 34.677, 1.092)
pt3dadd(204.085, 107.908, 34.713, 1.086)
pt3dadd(204.186, 107.858, 34.748, 1.08)
pt3dadd(204.287, 107.808, 34.782, 1.074)
pt3dadd(204.386, 107.747, 34.806, 1.062)
pt3dadd(204.486, 107.687, 34.83, 1.05)
pt3dadd(204.586, 107.626, 34.853, 1.036)
pt3dadd(204.685, 107.566, 34.877, 1.024)
pt3dadd(204.785, 107.506, 34.901, 1.012)
pt3dadd(204.884, 107.445, 34.924, 1)
pt3dadd(204.984, 107.385, 34.948, 0.988)
pt3dadd(205.085, 107.325, 34.972, 0.974)
pt3dadd(205.184, 107.264, 34.995, 0.962)
pt3dadd(205.284, 107.205, 35.019, 0.952)
pt3dadd(205.391, 107.154, 35.039, 0.946)
pt3dadd(205.496, 107.104, 35.059, 0.942)
pt3dadd(205.602, 107.053, 35.08, 0.936)
pt3dadd(205.709, 107.002, 35.1, 0.932)
pt3dadd(205.814, 106.952, 35.12, 0.928)
pt3dadd(205.92, 106.901, 35.141, 0.922)
pt3dadd(206.027, 106.85, 35.161, 0.918)
pt3dadd(206.132, 106.799, 35.182, 0.912)
pt3dadd(206.238, 106.749, 35.202, 0.908)
pt3dadd(206.345, 106.699, 35.222, 0.904)
pt3dadd(206.454, 106.654, 35.24, 0.904)
pt3dadd(206.563, 106.61, 35.258, 0.906)
pt3dadd(206.672, 106.565, 35.276, 0.906)
pt3dadd(206.782, 106.52, 35.294, 0.908)
pt3dadd(206.891, 106.476, 35.312, 0.908)
pt3dadd(207, 106.431, 35.33, 0.908)
pt3dadd(207.109, 106.386, 35.348, 0.91)
pt3dadd(207.218, 106.342, 35.366, 0.91)
pt3dadd(207.329, 106.297, 35.384, 0.912)
pt3dadd(207.436, 106.249, 35.401, 0.92)
pt3dadd(207.538, 106.187, 35.413, 0.96)
pt3dadd(207.64, 106.125, 35.425, 1.002)
pt3dadd(207.742, 106.063, 35.437, 1.044)
pt3dadd(207.844, 106.001, 35.448, 1.086)
pt3dadd(207.944, 105.939, 35.46, 1.128)
pt3dadd(208.046, 105.877, 35.472, 1.168)
pt3dadd(208.148, 105.815, 35.484, 1.21)
pt3dadd(208.25, 105.753, 35.496, 1.252)
pt3dadd(208.352, 105.691, 35.508, 1.294)
pt3dadd(208.453, 105.63, 35.522, 1.332)
pt3dadd(208.553, 105.572, 35.55, 1.35)
pt3dadd(208.652, 105.514, 35.579, 1.368)
pt3dadd(208.752, 105.457, 35.607, 1.388)
pt3dadd(208.852, 105.399, 35.635, 1.406)
pt3dadd(208.951, 105.341, 35.664, 1.424)
pt3dadd(209.051, 105.284, 35.692, 1.444)
pt3dadd(209.15, 105.226, 35.72, 1.462)
pt3dadd(209.25, 105.168, 35.748, 1.482)
pt3dadd(209.35, 105.11, 35.777, 1.5)
pt3dadd(209.447, 105.058, 35.813, 1.504)
}
}
proc shape3d_169() {
dend_7[37] { pt3dadd(209.54, 105.012, 35.863, 1.486)
pt3dadd(209.634, 104.967, 35.913, 1.468)
pt3dadd(209.728, 104.921, 35.963, 1.45)
pt3dadd(209.821, 104.876, 36.013, 1.432)
pt3dadd(209.915, 104.83, 36.063, 1.414)
pt3dadd(210.008, 104.785, 36.112, 1.396)
pt3dadd(210.102, 104.74, 36.162, 1.378)
pt3dadd(210.196, 104.694, 36.212, 1.358)
pt3dadd(210.289, 104.649, 36.262, 1.34)
pt3dadd(210.389, 104.609, 36.305, 1.324)
pt3dadd(210.498, 104.577, 36.338, 1.306)
pt3dadd(210.606, 104.546, 36.372, 1.288)
pt3dadd(210.715, 104.514, 36.405, 1.272)
pt3dadd(210.823, 104.482, 36.439, 1.254)
pt3dadd(210.931, 104.45, 36.472, 1.236)
pt3dadd(211.04, 104.418, 36.506, 1.22)
pt3dadd(211.148, 104.387, 36.539, 1.202)
pt3dadd(211.258, 104.355, 36.573, 1.184)
pt3dadd(211.366, 104.323, 36.606, 1.168)
pt3dadd(211.474, 104.286, 36.635, 1.156)
pt3dadd(211.583, 104.241, 36.656, 1.154)
pt3dadd(211.691, 104.196, 36.678, 1.15)
pt3dadd(211.799, 104.151, 36.699, 1.148)
pt3dadd(211.907, 104.107, 36.721, 1.146)
pt3dadd(212.016, 104.062, 36.742, 1.142)
pt3dadd(212.124, 104.017, 36.764, 1.14)
pt3dadd(212.232, 103.972, 36.785, 1.138)
pt3dadd(212.34, 103.928, 36.807, 1.134)
pt3dadd(212.449, 103.883, 36.828, 1.132)
pt3dadd(212.558, 103.84, 36.848, 1.126)
pt3dadd(212.669, 103.799, 36.865, 1.118)
pt3dadd(212.78, 103.758, 36.883, 1.11)
pt3dadd(212.891, 103.718, 36.9, 1.102)
pt3dadd(213.002, 103.677, 36.917, 1.092)
pt3dadd(213.113, 103.636, 36.935, 1.084)
pt3dadd(213.224, 103.596, 36.952, 1.076)
pt3dadd(213.335, 103.555, 36.97, 1.068)
pt3dadd(213.446, 103.514, 36.987, 1.06)
pt3dadd(213.557, 103.473, 37.004, 1.05)
pt3dadd(213.671, 103.44, 37.02, 1.032)
pt3dadd(213.787, 103.415, 37.033, 1.004)
pt3dadd(213.902, 103.39, 37.046, 0.976)
pt3dadd(214.019, 103.364, 37.059, 0.948)
pt3dadd(214.135, 103.339, 37.072, 0.92)
pt3dadd(214.252, 103.314, 37.085, 0.892)
pt3dadd(214.368, 103.288, 37.098, 0.864)
pt3dadd(214.484, 103.263, 37.111, 0.836)
pt3dadd(214.601, 103.238, 37.124, 0.808)
pt3dadd(214.717, 103.212, 37.137, 0.78)
pt3dadd(214.831, 103.194, 37.159, 0.772)
pt3dadd(214.944, 103.183, 37.191, 0.78)
pt3dadd(215.058, 103.172, 37.223, 0.79)
pt3dadd(215.171, 103.16, 37.255, 0.8)
pt3dadd(215.284, 103.149, 37.287, 0.808)
pt3dadd(215.398, 103.138, 37.319, 0.818)
pt3dadd(215.51, 103.127, 37.35, 0.828)
pt3dadd(215.623, 103.115, 37.382, 0.836)
pt3dadd(215.737, 103.104, 37.414, 0.846)
pt3dadd(215.85, 103.093, 37.446, 0.856)
pt3dadd(215.962, 103.086, 37.483, 0.876)
pt3dadd(216.071, 103.081, 37.523, 0.902)
pt3dadd(216.181, 103.076, 37.563, 0.928)
pt3dadd(216.29, 103.072, 37.603, 0.954)
pt3dadd(216.401, 103.067, 37.643, 0.982)
pt3dadd(216.511, 103.063, 37.683, 1.008)
pt3dadd(216.62, 103.058, 37.723, 1.034)
pt3dadd(216.731, 103.054, 37.763, 1.06)
pt3dadd(216.84, 103.049, 37.803, 1.088)
pt3dadd(216.95, 103.044, 37.843, 1.114)
pt3dadd(217.062, 103.051, 37.878, 1.108)
pt3dadd(217.175, 103.063, 37.91, 1.082)
pt3dadd(217.289, 103.076, 37.941, 1.056)
pt3dadd(217.402, 103.089, 37.973, 1.03)
pt3dadd(217.514, 103.101, 38.005, 1.004)
pt3dadd(217.627, 103.114, 38.036, 0.978)
pt3dadd(217.741, 103.126, 38.068, 0.952)
pt3dadd(217.854, 103.139, 38.1, 0.926)
pt3dadd(217.967, 103.151, 38.132, 0.9)
pt3dadd(218.08, 103.164, 38.163, 0.874)
pt3dadd(218.192, 103.183, 38.194, 0.858)
pt3dadd(218.305, 103.205, 38.223, 0.848)
pt3dadd(218.418, 103.228, 38.252, 0.836)
pt3dadd(218.53, 103.251, 38.282, 0.826)
pt3dadd(218.642, 103.273, 38.311, 0.816)
pt3dadd(218.755, 103.296, 38.34, 0.806)
pt3dadd(218.868, 103.319, 38.369, 0.796)
pt3dadd(218.98, 103.341, 38.399, 0.784)
pt3dadd(219.092, 103.364, 38.428, 0.774)
pt3dadd(219.205, 103.386, 38.457, 0.764)
pt3dadd(219.314, 103.423, 38.483, 0.778)
pt3dadd(219.422, 103.466, 38.507, 0.804)
pt3dadd(219.532, 103.51, 38.53, 0.832)
pt3dadd(219.64, 103.553, 38.554, 0.856)
pt3dadd(219.748, 103.596, 38.578, 0.884)
pt3dadd(219.856, 103.639, 38.602, 0.91)
pt3dadd(219.965, 103.682, 38.625, 0.936)
pt3dadd(220.073, 103.725, 38.649, 0.962)
pt3dadd(220.181, 103.768, 38.673, 0.988)
pt3dadd(220.289, 103.811, 38.696, 1.014)
pt3dadd(220.397, 103.847, 38.728, 1.008)
pt3dadd(220.505, 103.88, 38.763, 0.99)
pt3dadd(220.612, 103.913, 38.798, 0.97)
pt3dadd(220.72, 103.946, 38.833, 0.952)
pt3dadd(220.826, 103.979, 38.868, 0.932)
pt3dadd(220.934, 104.012, 38.904, 0.914)
pt3dadd(221.041, 104.044, 38.939, 0.894)
pt3dadd(221.149, 104.077, 38.974, 0.876)
pt3dadd(221.257, 104.11, 39.009, 0.856)
pt3dadd(221.364, 104.143, 39.044, 0.838)
pt3dadd(221.47, 104.17, 39.085, 0.794)
pt3dadd(221.575, 104.196, 39.128, 0.744)
pt3dadd(221.681, 104.221, 39.17, 0.692)
pt3dadd(221.786, 104.246, 39.213, 0.642)
pt3dadd(221.892, 104.272, 39.256, 0.59)
pt3dadd(221.998, 104.297, 39.298, 0.54)
pt3dadd(222.103, 104.323, 39.341, 0.49)
pt3dadd(222.209, 104.348, 39.384, 0.438)
pt3dadd(222.314, 104.373, 39.426, 0.388)
pt3dadd(222.42, 104.399, 39.469, 0.336)
pt3dadd(222.529, 104.415, 39.508, 0.35)
pt3dadd(222.64, 104.429, 39.546, 0.384)
pt3dadd(222.749, 104.442, 39.583, 0.418)
pt3dadd(222.859, 104.456, 39.621, 0.45)
pt3dadd(222.97, 104.47, 39.659, 0.484)
pt3dadd(223.08, 104.483, 39.697, 0.518)
pt3dadd(223.19, 104.497, 39.735, 0.55)
pt3dadd(223.301, 104.51, 39.772, 0.584)
pt3dadd(223.411, 104.524, 39.81, 0.616)
pt3dadd(223.522, 104.538, 39.848, 0.65)
pt3dadd(223.632, 104.547, 39.886, 0.696)
pt3dadd(223.742, 104.557, 39.924, 0.744)
pt3dadd(223.853, 104.566, 39.963, 0.794)
pt3dadd(223.963, 104.575, 40.001, 0.842)
pt3dadd(224.074, 104.584, 40.039, 0.892)
pt3dadd(224.184, 104.593, 40.077, 0.94)
pt3dadd(224.294, 104.602, 40.115, 0.988)
pt3dadd(224.405, 104.611, 40.154, 1.038)
pt3dadd(224.516, 104.62, 40.192, 1.086)
pt3dadd(224.627, 104.629, 40.23, 1.136)
pt3dadd(224.731, 104.628, 40.278, 1.154)
pt3dadd(224.834, 104.625, 40.329, 1.168)
pt3dadd(224.939, 104.622, 40.379, 1.18)
pt3dadd(225.042, 104.619, 40.43, 1.192)
pt3dadd(225.145, 104.615, 40.48, 1.204)
pt3dadd(225.248, 104.612, 40.531, 1.218)
pt3dadd(225.353, 104.609, 40.581, 1.23)
pt3dadd(225.456, 104.606, 40.632, 1.242)
pt3dadd(225.559, 104.603, 40.682, 1.254)
pt3dadd(225.662, 104.6, 40.733, 1.266)
pt3dadd(225.769, 104.595, 40.78, 1.26)
pt3dadd(225.875, 104.591, 40.826, 1.248)
pt3dadd(225.982, 104.586, 40.871, 1.236)
pt3dadd(226.088, 104.581, 40.917, 1.224)
pt3dadd(226.195, 104.577, 40.963, 1.212)
pt3dadd(226.302, 104.572, 41.009, 1.2)
pt3dadd(226.408, 104.567, 41.055, 1.188)
pt3dadd(226.514, 104.563, 41.101, 1.176)
pt3dadd(226.621, 104.558, 41.147, 1.164)
pt3dadd(226.728, 104.553, 41.192, 1.152)
pt3dadd(226.838, 104.545, 41.229, 1.094)
pt3dadd(226.951, 104.537, 41.264, 1.026)
pt3dadd(227.063, 104.529, 41.299, 0.958)
pt3dadd(227.176, 104.521, 41.333, 0.892)
pt3dadd(227.287, 104.512, 41.368, 0.824)
pt3dadd(227.4, 104.504, 41.403, 0.756)
pt3dadd(227.512, 104.496, 41.437, 0.688)
pt3dadd(227.624, 104.487, 41.472, 0.62)
pt3dadd(227.737, 104.479, 41.507, 0.554)
pt3dadd(227.849, 104.471, 41.542, 0.486)
pt3dadd(227.958, 104.46, 41.583, 0.48)
pt3dadd(228.066, 104.449, 41.625, 0.488)
pt3dadd(228.174, 104.437, 41.667, 0.496)
pt3dadd(228.282, 104.426, 41.71, 0.502)
pt3dadd(228.39, 104.415, 41.752, 0.51)
pt3dadd(228.498, 104.404, 41.794, 0.518)
pt3dadd(228.606, 104.392, 41.837, 0.524)
pt3dadd(228.715, 104.381, 41.879, 0.532)
pt3dadd(228.823, 104.37, 41.921, 0.538)
pt3dadd(228.931, 104.358, 41.964, 0.546)
pt3dadd(229.037, 104.346, 42.009, 0.59)
pt3dadd(229.142, 104.332, 42.056, 0.642)
pt3dadd(229.248, 104.319, 42.103, 0.692)
pt3dadd(229.352, 104.306, 42.149, 0.744)
pt3dadd(229.458, 104.293, 42.196, 0.794)
pt3dadd(229.564, 104.28, 42.242, 0.846)
pt3dadd(229.669, 104.267, 42.289, 0.896)
pt3dadd(229.775, 104.254, 42.335, 0.946)
pt3dadd(229.879, 104.241, 42.382, 0.998)
pt3dadd(229.985, 104.228, 42.429, 1.048)
pt3dadd(230.093, 104.191, 42.46, 1.032)
pt3dadd(230.2, 104.151, 42.488, 1.008)
pt3dadd(230.308, 104.11, 42.517, 0.982)
pt3dadd(230.416, 104.07, 42.546, 0.956)
pt3dadd(230.524, 104.03, 42.574, 0.93)
pt3dadd(230.63, 103.989, 42.603, 0.904)
pt3dadd(230.738, 103.949, 42.632, 0.878)
pt3dadd(230.846, 103.909, 42.66, 0.852)
pt3dadd(230.953, 103.868, 42.689, 0.828)
pt3dadd(231.061, 103.828, 42.718, 0.802)
pt3dadd(231.169, 103.785, 42.743, 0.768)
}
}
proc shape3d_170() {
dend_7[37] { pt3dadd(231.277, 103.741, 42.767, 0.732)
pt3dadd(231.385, 103.698, 42.792, 0.698)
pt3dadd(231.493, 103.655, 42.817, 0.662)
pt3dadd(231.601, 103.611, 42.842, 0.628)
pt3dadd(231.709, 103.568, 42.866, 0.594)
pt3dadd(231.816, 103.524, 42.891, 0.558)
pt3dadd(231.924, 103.481, 42.916, 0.524)
pt3dadd(232.032, 103.438, 42.94, 0.488)
pt3dadd(232.14, 103.394, 42.965, 0.454)
pt3dadd(232.253, 103.362, 42.984, 0.452)
pt3dadd(232.367, 103.33, 43.003, 0.452)
pt3dadd(232.48, 103.298, 43.022, 0.452)
pt3dadd(232.594, 103.266, 43.041, 0.452)
pt3dadd(232.706, 103.234, 43.06, 0.452)
pt3dadd(232.82, 103.202, 43.079, 0.452)
pt3dadd(232.934, 103.17, 43.098, 0.452)
pt3dadd(233.047, 103.138, 43.117, 0.452)
pt3dadd(233.161, 103.106, 43.136, 0.452)
pt3dadd(233.274, 103.074, 43.155, 0.452)
pt3dadd(233.389, 103.047, 43.172, 0.458)
pt3dadd(233.504, 103.019, 43.189, 0.464)
pt3dadd(233.618, 102.991, 43.206, 0.47)
pt3dadd(233.734, 102.963, 43.223, 0.478)
pt3dadd(233.849, 102.936, 43.24, 0.484)
pt3dadd(233.964, 102.908, 43.257, 0.49)
pt3dadd(234.078, 102.88, 43.275, 0.496)
pt3dadd(234.193, 102.852, 43.292, 0.502)
pt3dadd(234.308, 102.825, 43.309, 0.51)
pt3dadd(234.424, 102.797, 43.326, 0.516)
pt3dadd(234.54, 102.774, 43.341, 0.53)
pt3dadd(234.656, 102.751, 43.356, 0.544)
pt3dadd(234.773, 102.729, 43.371, 0.558)
pt3dadd(234.889, 102.706, 43.386, 0.572)
pt3dadd(235.006, 102.684, 43.401, 0.586)
pt3dadd(235.122, 102.661, 43.416, 0.6)
pt3dadd(235.238, 102.639, 43.431, 0.614)
pt3dadd(235.355, 102.616, 43.446, 0.628)
pt3dadd(235.471, 102.594, 43.461, 0.642)
pt3dadd(235.588, 102.571, 43.476, 0.656)
pt3dadd(235.697, 102.555, 43.514, 0.638)
pt3dadd(235.806, 102.538, 43.554, 0.618)
pt3dadd(235.915, 102.522, 43.594, 0.598)
pt3dadd(236.023, 102.506, 43.634, 0.578)
pt3dadd(236.132, 102.49, 43.674, 0.558)
pt3dadd(236.242, 102.474, 43.714, 0.538)
pt3dadd(236.351, 102.457, 43.754, 0.518)
pt3dadd(236.459, 102.441, 43.794, 0.496)
pt3dadd(236.568, 102.425, 43.834, 0.476)
pt3dadd(236.677, 102.409, 43.874, 0.456)
pt3dadd(236.783, 102.39, 43.917, 0.438)
pt3dadd(236.89, 102.372, 43.96, 0.418)
pt3dadd(236.996, 102.353, 44.004, 0.4)
pt3dadd(237.103, 102.335, 44.047, 0.38)
pt3dadd(237.21, 102.316, 44.09, 0.362)
pt3dadd(237.317, 102.298, 44.133, 0.342)
pt3dadd(237.422, 102.279, 44.176, 0.324)
pt3dadd(237.529, 102.26, 44.22, 0.304)
pt3dadd(237.636, 102.242, 44.263, 0.286)
pt3dadd(237.743, 102.222, 44.306, 0.27)
pt3dadd(237.845, 102.174, 44.34, 0.308)
pt3dadd(237.947, 102.126, 44.375, 0.346)
pt3dadd(238.048, 102.079, 44.41, 0.384)
pt3dadd(238.15, 102.031, 44.445, 0.422)
pt3dadd(238.252, 101.983, 44.48, 0.46)
pt3dadd(238.354, 101.936, 44.515, 0.496)
pt3dadd(238.456, 101.888, 44.55, 0.534)
pt3dadd(238.558, 101.84, 44.585, 0.572)
pt3dadd(238.658, 101.793, 44.62, 0.61)
pt3dadd(238.76, 101.745, 44.655, 0.646)
pt3dadd(238.861, 101.702, 44.696, 0.66)
pt3dadd(238.962, 101.658, 44.736, 0.676)
pt3dadd(239.063, 101.614, 44.776, 0.69)
pt3dadd(239.164, 101.571, 44.817, 0.704)
pt3dadd(239.264, 101.527, 44.857, 0.718)
pt3dadd(239.365, 101.484, 44.897, 0.732)
pt3dadd(239.466, 101.44, 44.938, 0.746)
pt3dadd(239.567, 101.396, 44.978, 0.76)
pt3dadd(239.668, 101.353, 45.019, 0.774)
pt3dadd(239.768, 101.31, 45.06, 0.784)
pt3dadd(239.864, 101.276, 45.112, 0.746)
pt3dadd(239.962, 101.242, 45.163, 0.708)
pt3dadd(240.059, 101.207, 45.215, 0.672)
pt3dadd(240.156, 101.173, 45.266, 0.634)
pt3dadd(240.253, 101.139, 45.318, 0.598)
pt3dadd(240.349, 101.105, 45.369, 0.56)
pt3dadd(240.446, 101.071, 45.421, 0.524)
pt3dadd(240.544, 101.036, 45.473, 0.486)
pt3dadd(240.641, 101.002, 45.524, 0.45)
pt3dadd(240.738, 100.967, 45.575, 0.414)
pt3dadd(240.836, 100.925, 45.62, 0.396)
pt3dadd(240.935, 100.884, 45.665, 0.376)
pt3dadd(241.033, 100.842, 45.711, 0.356)
pt3dadd(241.132, 100.8, 45.756, 0.338)
pt3dadd(241.23, 100.758, 45.801, 0.318)
pt3dadd(241.328, 100.716, 45.846, 0.3)
pt3dadd(241.428, 100.674, 45.891, 0.28)
pt3dadd(241.526, 100.633, 45.937, 0.262)
pt3dadd(241.625, 100.591, 45.982, 0.242)
pt3dadd(241.723, 100.548, 46.026, 0.226)
pt3dadd(241.823, 100.498, 46.064, 0.226)
pt3dadd(241.921, 100.449, 46.102, 0.226)
pt3dadd(242.021, 100.399, 46.14, 0.226)
pt3dadd(242.12, 100.349, 46.179, 0.226)
pt3dadd(242.219, 100.299, 46.217, 0.226)
pt3dadd(242.318, 100.25, 46.255, 0.226)
pt3dadd(242.418, 100.2, 46.293, 0.226)
pt3dadd(242.516, 100.15, 46.331, 0.226)
pt3dadd(242.616, 100.101, 46.369, 0.226)
pt3dadd(242.714, 100.055, 46.41, 0.226)
pt3dadd(242.809, 100.035, 46.47, 0.226)
pt3dadd(242.903, 100.014, 46.529, 0.226)
pt3dadd(242.998, 99.993, 46.588, 0.226)
pt3dadd(243.092, 99.972, 46.647, 0.226)
pt3dadd(243.186, 99.952, 46.707, 0.226)
pt3dadd(243.281, 99.931, 46.766, 0.226)
pt3dadd(243.376, 99.91, 46.825, 0.226)
pt3dadd(243.47, 99.889, 46.884, 0.226)
pt3dadd(243.564, 99.869, 46.943, 0.226)
pt3dadd(243.658, 99.855, 47.004, 0.226)
pt3dadd(243.748, 99.862, 47.07, 0.226)
pt3dadd(243.838, 99.869, 47.136, 0.226)
pt3dadd(243.928, 99.876, 47.203, 0.226)
pt3dadd(244.016, 99.882, 47.269, 0.226)
pt3dadd(244.106, 99.889, 47.335, 0.226)
pt3dadd(244.196, 99.896, 47.401, 0.226)
pt3dadd(244.286, 99.903, 47.467, 0.226)
pt3dadd(244.376, 99.91, 47.533, 0.226)
pt3dadd(244.465, 99.917, 47.599, 0.226)
pt3dadd(244.531, 99.957, 47.672, 0.226)
pt3dadd(244.585, 100.013, 47.748, 0.226)
pt3dadd(244.639, 100.07, 47.824, 0.226)
pt3dadd(244.693, 100.126, 47.9, 0.226)
pt3dadd(244.747, 100.182, 47.976, 0.226)
pt3dadd(244.8, 100.239, 48.052, 0.226)
pt3dadd(244.854, 100.295, 48.128, 0.226)
pt3dadd(244.908, 100.351, 48.204, 0.226)
pt3dadd(244.962, 100.408, 48.28, 0.226)
pt3dadd(245.016, 100.464, 48.356, 0.226)
pt3dadd(245.032, 100.511, 48.448, 0.226)
pt3dadd(245.047, 100.557, 48.539, 0.226)
pt3dadd(245.063, 100.604, 48.63, 0.226)
pt3dadd(245.078, 100.651, 48.721, 0.226)
pt3dadd(245.094, 100.698, 48.812, 0.226)
pt3dadd(245.11, 100.745, 48.903, 0.226)
pt3dadd(245.125, 100.792, 48.994, 0.226)
pt3dadd(245.141, 100.838, 49.086, 0.226)
pt3dadd(245.156, 100.885, 49.177, 0.226)
pt3dadd(245.172, 100.932, 49.268, 0.226)
}
dend_7[38] {pt3dclear()
pt3dadd(192.828, 112.271, 30.753, 0.904)
pt3dadd(192.822, 112.212, 30.792, 0.89)
pt3dadd(192.811, 112.119, 30.855, 0.868)
pt3dadd(192.802, 112.025, 30.917, 0.848)
pt3dadd(192.792, 111.932, 30.98, 0.826)
pt3dadd(192.781, 111.839, 31.042, 0.804)
pt3dadd(192.772, 111.746, 31.105, 0.782)
pt3dadd(192.762, 111.653, 31.167, 0.762)
pt3dadd(192.751, 111.56, 31.23, 0.74)
pt3dadd(192.742, 111.466, 31.292, 0.718)
pt3dadd(192.732, 111.373, 31.355, 0.696)
pt3dadd(192.722, 111.28, 31.417, 0.674)
pt3dadd(192.712, 111.187, 31.48, 0.654)
pt3dadd(192.702, 111.094, 31.542, 0.632)
pt3dadd(192.692, 111, 31.605, 0.61)
pt3dadd(192.682, 110.907, 31.667, 0.588)
pt3dadd(192.672, 110.814, 31.73, 0.568)
pt3dadd(192.662, 110.721, 31.792, 0.546)
pt3dadd(192.706, 110.621, 31.831, 0.54)
pt3dadd(192.756, 110.521, 31.867, 0.536)
pt3dadd(192.805, 110.421, 31.904, 0.534)
pt3dadd(192.856, 110.321, 31.941, 0.53)
pt3dadd(192.905, 110.221, 31.977, 0.526)
pt3dadd(192.954, 110.121, 32.014, 0.522)
pt3dadd(193.004, 110.021, 32.05, 0.52)
pt3dadd(193.054, 109.921, 32.087, 0.516)
pt3dadd(193.105, 109.822, 32.122, 0.514)
pt3dadd(193.189, 109.737, 32.132, 0.524)
pt3dadd(193.272, 109.652, 32.142, 0.534)
pt3dadd(193.356, 109.566, 32.152, 0.544)
pt3dadd(193.44, 109.481, 32.162, 0.556)
pt3dadd(193.524, 109.396, 32.173, 0.566)
pt3dadd(193.608, 109.311, 32.183, 0.576)
pt3dadd(193.691, 109.226, 32.193, 0.586)
pt3dadd(193.775, 109.141, 32.203, 0.598)
pt3dadd(193.859, 109.056, 32.213, 0.608)
pt3dadd(193.943, 108.971, 32.223, 0.618)
pt3dadd(194.026, 108.886, 32.234, 0.63)
pt3dadd(194.11, 108.801, 32.246, 0.642)
pt3dadd(194.194, 108.716, 32.257, 0.654)
pt3dadd(194.276, 108.631, 32.268, 0.666)
pt3dadd(194.36, 108.545, 32.279, 0.678)
pt3dadd(194.443, 108.46, 32.29, 0.69)
pt3dadd(194.527, 108.375, 32.301, 0.7)
pt3dadd(194.611, 108.29, 32.312, 0.712)
pt3dadd(194.694, 108.205, 32.323, 0.724)
pt3dadd(194.778, 108.12, 32.335, 0.736)
pt3dadd(194.861, 108.035, 32.347, 0.75)
pt3dadd(194.945, 107.95, 32.36, 0.764)
pt3dadd(195.028, 107.865, 32.372, 0.776)
pt3dadd(195.112, 107.78, 32.384, 0.79)
pt3dadd(195.194, 107.694, 32.397, 0.804)
}
}
proc shape3d_171() {
dend_7[38] { pt3dadd(195.277, 107.609, 32.409, 0.818)
pt3dadd(195.361, 107.524, 32.422, 0.832)
pt3dadd(195.444, 107.439, 32.434, 0.844)
pt3dadd(195.528, 107.354, 32.447, 0.858)
pt3dadd(195.611, 107.269, 32.461, 0.87)
pt3dadd(195.685, 107.189, 32.501, 0.862)
pt3dadd(195.761, 107.109, 32.542, 0.852)
pt3dadd(195.835, 107.029, 32.583, 0.844)
pt3dadd(195.911, 106.949, 32.623, 0.834)
pt3dadd(195.985, 106.869, 32.664, 0.824)
pt3dadd(196.061, 106.789, 32.704, 0.816)
pt3dadd(196.135, 106.709, 32.745, 0.806)
pt3dadd(196.211, 106.629, 32.785, 0.798)
pt3dadd(196.285, 106.549, 32.826, 0.788)
pt3dadd(196.361, 106.469, 32.867, 0.778)
pt3dadd(196.434, 106.39, 32.91, 0.762)
pt3dadd(196.507, 106.31, 32.954, 0.746)
pt3dadd(196.58, 106.231, 32.997, 0.73)
pt3dadd(196.654, 106.151, 33.041, 0.716)
pt3dadd(196.727, 106.072, 33.084, 0.7)
pt3dadd(196.8, 105.992, 33.128, 0.684)
pt3dadd(196.873, 105.913, 33.171, 0.668)
pt3dadd(196.946, 105.833, 33.215, 0.652)
pt3dadd(197.02, 105.754, 33.258, 0.636)
pt3dadd(197.093, 105.674, 33.299, 0.62)
pt3dadd(197.17, 105.59, 33.333, 0.606)
pt3dadd(197.246, 105.507, 33.366, 0.592)
pt3dadd(197.323, 105.424, 33.4, 0.576)
pt3dadd(197.4, 105.341, 33.433, 0.562)
pt3dadd(197.477, 105.258, 33.467, 0.548)
pt3dadd(197.552, 105.174, 33.5, 0.532)
pt3dadd(197.629, 105.091, 33.534, 0.518)
pt3dadd(197.706, 105.008, 33.567, 0.502)
pt3dadd(197.783, 104.925, 33.601, 0.488)
pt3dadd(197.856, 104.839, 33.633, 0.474)
pt3dadd(197.92, 104.743, 33.662, 0.458)
pt3dadd(197.982, 104.646, 33.69, 0.442)
pt3dadd(198.046, 104.55, 33.718, 0.428)
pt3dadd(198.108, 104.454, 33.747, 0.412)
pt3dadd(198.172, 104.358, 33.775, 0.396)
pt3dadd(198.234, 104.261, 33.803, 0.38)
pt3dadd(198.298, 104.165, 33.832, 0.366)
pt3dadd(198.36, 104.069, 33.86, 0.35)
pt3dadd(198.424, 103.972, 33.888, 0.334)
pt3dadd(198.488, 103.878, 33.918, 0.324)
pt3dadd(198.558, 103.789, 33.952, 0.324)
pt3dadd(198.628, 103.7, 33.986, 0.324)
pt3dadd(198.696, 103.611, 34.02, 0.326)
pt3dadd(198.766, 103.522, 34.054, 0.326)
pt3dadd(198.835, 103.433, 34.089, 0.328)
pt3dadd(198.905, 103.344, 34.123, 0.328)
pt3dadd(198.974, 103.256, 34.157, 0.33)
pt3dadd(199.044, 103.167, 34.191, 0.33)
pt3dadd(199.114, 103.078, 34.225, 0.33)
pt3dadd(199.188, 102.997, 34.263, 0.342)
pt3dadd(199.271, 102.928, 34.308, 0.37)
pt3dadd(199.354, 102.86, 34.352, 0.398)
pt3dadd(199.436, 102.791, 34.396, 0.428)
pt3dadd(199.519, 102.722, 34.441, 0.456)
pt3dadd(199.602, 102.654, 34.485, 0.484)
pt3dadd(199.685, 102.585, 34.529, 0.512)
pt3dadd(199.768, 102.516, 34.574, 0.54)
pt3dadd(199.849, 102.447, 34.618, 0.568)
pt3dadd(199.932, 102.379, 34.662, 0.596)
pt3dadd(200.016, 102.307, 34.703, 0.608)
pt3dadd(200.099, 102.232, 34.739, 0.594)
pt3dadd(200.182, 102.157, 34.774, 0.582)
pt3dadd(200.264, 102.081, 34.81, 0.568)
pt3dadd(200.348, 102.006, 34.845, 0.556)
pt3dadd(200.431, 101.931, 34.881, 0.542)
pt3dadd(200.514, 101.855, 34.916, 0.528)
pt3dadd(200.597, 101.78, 34.952, 0.516)
pt3dadd(200.681, 101.705, 34.987, 0.502)
pt3dadd(200.764, 101.629, 35.023, 0.49)
pt3dadd(200.846, 101.553, 35.057, 0.47)
pt3dadd(200.93, 101.476, 35.09, 0.446)
pt3dadd(201.013, 101.399, 35.123, 0.42)
pt3dadd(201.096, 101.322, 35.156, 0.394)
pt3dadd(201.179, 101.245, 35.188, 0.368)
pt3dadd(201.263, 101.168, 35.221, 0.344)
pt3dadd(201.346, 101.091, 35.254, 0.318)
pt3dadd(201.428, 101.014, 35.287, 0.292)
pt3dadd(201.512, 100.937, 35.32, 0.266)
pt3dadd(201.595, 100.86, 35.353, 0.242)
pt3dadd(201.677, 100.781, 35.384, 0.236)
pt3dadd(201.756, 100.698, 35.413, 0.26)
pt3dadd(201.835, 100.615, 35.442, 0.284)
pt3dadd(201.916, 100.532, 35.471, 0.308)
pt3dadd(201.995, 100.449, 35.5, 0.332)
pt3dadd(202.074, 100.366, 35.529, 0.356)
pt3dadd(202.153, 100.283, 35.558, 0.38)
pt3dadd(202.232, 100.2, 35.587, 0.404)
pt3dadd(202.312, 100.117, 35.616, 0.428)
pt3dadd(202.392, 100.034, 35.646, 0.452)
pt3dadd(202.47, 99.951, 35.676, 0.476)
pt3dadd(202.546, 99.867, 35.708, 0.502)
pt3dadd(202.622, 99.783, 35.74, 0.528)
pt3dadd(202.698, 99.698, 35.772, 0.552)
pt3dadd(202.775, 99.614, 35.804, 0.578)
pt3dadd(202.852, 99.53, 35.836, 0.604)
pt3dadd(202.927, 99.445, 35.869, 0.63)
pt3dadd(203.004, 99.361, 35.901, 0.654)
pt3dadd(203.08, 99.277, 35.933, 0.68)
pt3dadd(203.156, 99.193, 35.965, 0.706)
pt3dadd(203.218, 99.106, 36.008, 0.736)
pt3dadd(203.264, 99.017, 36.062, 0.774)
pt3dadd(203.31, 98.927, 36.117, 0.81)
pt3dadd(203.357, 98.838, 36.171, 0.848)
pt3dadd(203.402, 98.748, 36.226, 0.884)
pt3dadd(203.449, 98.659, 36.28, 0.922)
pt3dadd(203.496, 98.569, 36.334, 0.958)
pt3dadd(203.542, 98.48, 36.389, 0.996)
pt3dadd(203.588, 98.391, 36.443, 1.032)
pt3dadd(203.634, 98.301, 36.498, 1.068)
pt3dadd(203.678, 98.213, 36.555, 1.102)
pt3dadd(203.72, 98.127, 36.615, 1.128)
pt3dadd(203.762, 98.04, 36.675, 1.156)
pt3dadd(203.803, 97.954, 36.735, 1.182)
pt3dadd(203.845, 97.868, 36.795, 1.21)
pt3dadd(203.887, 97.781, 36.855, 1.236)
pt3dadd(203.929, 97.695, 36.915, 1.264)
pt3dadd(203.97, 97.608, 36.975, 1.29)
pt3dadd(204.012, 97.522, 37.035, 1.318)
pt3dadd(204.054, 97.436, 37.095, 1.344)
pt3dadd(204.088, 97.355, 37.163, 1.356)
pt3dadd(204.116, 97.279, 37.237, 1.356)
pt3dadd(204.144, 97.203, 37.311, 1.356)
pt3dadd(204.172, 97.127, 37.384, 1.356)
pt3dadd(204.2, 97.051, 37.458, 1.356)
pt3dadd(204.228, 96.975, 37.532, 1.356)
pt3dadd(204.257, 96.899, 37.605, 1.356)
pt3dadd(204.284, 96.823, 37.679, 1.356)
pt3dadd(204.312, 96.747, 37.753, 1.356)
pt3dadd(204.341, 96.671, 37.827, 1.356)
pt3dadd(204.374, 96.603, 37.904, 1.35)
pt3dadd(204.414, 96.541, 37.983, 1.34)
pt3dadd(204.452, 96.48, 38.063, 1.33)
pt3dadd(204.492, 96.418, 38.142, 1.32)
pt3dadd(204.53, 96.357, 38.222, 1.31)
pt3dadd(204.57, 96.296, 38.301, 1.3)
pt3dadd(204.61, 96.234, 38.381, 1.29)
pt3dadd(204.648, 96.173, 38.46, 1.28)
pt3dadd(204.688, 96.111, 38.539, 1.27)
pt3dadd(204.726, 96.05, 38.619, 1.26)
pt3dadd(204.776, 96.007, 38.702, 1.238)
pt3dadd(204.83, 95.971, 38.786, 1.214)
pt3dadd(204.883, 95.934, 38.87, 1.188)
pt3dadd(204.937, 95.897, 38.954, 1.164)
pt3dadd(204.99, 95.861, 39.039, 1.14)
pt3dadd(205.044, 95.824, 39.123, 1.114)
pt3dadd(205.098, 95.787, 39.207, 1.09)
pt3dadd(205.151, 95.751, 39.291, 1.066)
pt3dadd(205.205, 95.714, 39.375, 1.04)
pt3dadd(205.258, 95.677, 39.459, 1.016)
pt3dadd(205.312, 95.651, 39.546, 0.996)
pt3dadd(205.364, 95.628, 39.633, 0.978)
pt3dadd(205.418, 95.605, 39.721, 0.96)
pt3dadd(205.472, 95.582, 39.808, 0.942)
pt3dadd(205.525, 95.559, 39.896, 0.924)
pt3dadd(205.579, 95.536, 39.983, 0.904)
pt3dadd(205.632, 95.513, 40.071, 0.886)
pt3dadd(205.686, 95.49, 40.158, 0.868)
pt3dadd(205.739, 95.468, 40.246, 0.85)
pt3dadd(205.793, 95.445, 40.333, 0.832)
pt3dadd(205.846, 95.43, 40.422, 0.818)
pt3dadd(205.898, 95.418, 40.511, 0.804)
pt3dadd(205.951, 95.406, 40.6, 0.792)
pt3dadd(206.005, 95.394, 40.689, 0.778)
pt3dadd(206.058, 95.382, 40.778, 0.764)
pt3dadd(206.111, 95.369, 40.868, 0.752)
pt3dadd(206.164, 95.357, 40.957, 0.738)
pt3dadd(206.216, 95.345, 41.046, 0.724)
pt3dadd(206.27, 95.333, 41.135, 0.712)
pt3dadd(206.323, 95.32, 41.224, 0.698)
pt3dadd(206.392, 95.317, 41.306, 0.686)
pt3dadd(206.464, 95.315, 41.386, 0.674)
pt3dadd(206.536, 95.313, 41.466, 0.66)
pt3dadd(206.608, 95.312, 41.546, 0.648)
pt3dadd(206.678, 95.31, 41.626, 0.636)
pt3dadd(206.75, 95.308, 41.706, 0.624)
pt3dadd(206.822, 95.307, 41.786, 0.612)
pt3dadd(206.894, 95.305, 41.866, 0.598)
pt3dadd(206.966, 95.304, 41.946, 0.586)
pt3dadd(207.038, 95.302, 42.026, 0.574)
pt3dadd(207.113, 95.302, 42.105, 0.562)
pt3dadd(207.187, 95.302, 42.183, 0.55)
pt3dadd(207.262, 95.302, 42.261, 0.54)
pt3dadd(207.337, 95.302, 42.339, 0.528)
pt3dadd(207.412, 95.302, 42.418, 0.516)
pt3dadd(207.486, 95.302, 42.496, 0.504)
pt3dadd(207.562, 95.302, 42.574, 0.494)
pt3dadd(207.636, 95.302, 42.652, 0.482)
pt3dadd(207.71, 95.302, 42.731, 0.47)
pt3dadd(207.785, 95.302, 42.809, 0.458)
pt3dadd(207.868, 95.302, 42.882, 0.486)
pt3dadd(207.952, 95.302, 42.953, 0.522)
pt3dadd(208.034, 95.302, 43.025, 0.558)
pt3dadd(208.118, 95.302, 43.097, 0.592)
pt3dadd(208.202, 95.302, 43.168, 0.628)
pt3dadd(208.286, 95.302, 43.24, 0.664)
}
}
proc shape3d_172() {
dend_7[38] { pt3dadd(208.369, 95.302, 43.312, 0.698)
pt3dadd(208.453, 95.302, 43.384, 0.734)
pt3dadd(208.537, 95.302, 43.455, 0.77)
pt3dadd(208.62, 95.302, 43.527, 0.804)
pt3dadd(208.705, 95.302, 43.597, 0.832)
pt3dadd(208.79, 95.302, 43.668, 0.86)
pt3dadd(208.877, 95.302, 43.738, 0.888)
pt3dadd(208.962, 95.302, 43.808, 0.914)
pt3dadd(209.047, 95.302, 43.878, 0.942)
pt3dadd(209.132, 95.302, 43.949, 0.968)
pt3dadd(209.218, 95.302, 44.019, 0.996)
pt3dadd(209.303, 95.302, 44.089, 1.022)
pt3dadd(209.389, 95.302, 44.159, 1.05)
pt3dadd(209.474, 95.302, 44.23, 1.076)
pt3dadd(209.573, 95.302, 44.286, 1.034)
pt3dadd(209.674, 95.302, 44.34, 0.98)
pt3dadd(209.776, 95.302, 44.394, 0.928)
pt3dadd(209.876, 95.302, 44.448, 0.874)
pt3dadd(209.977, 95.302, 44.502, 0.822)
pt3dadd(210.078, 95.302, 44.556, 0.768)
pt3dadd(210.179, 95.302, 44.61, 0.714)
pt3dadd(210.28, 95.302, 44.664, 0.662)
pt3dadd(210.38, 95.302, 44.718, 0.608)
pt3dadd(210.481, 95.302, 44.773, 0.556)
pt3dadd(210.58, 95.302, 44.831, 0.542)
pt3dadd(210.677, 95.302, 44.889, 0.534)
pt3dadd(210.774, 95.302, 44.948, 0.528)
pt3dadd(210.871, 95.302, 45.007, 0.52)
pt3dadd(210.968, 95.302, 45.065, 0.512)
pt3dadd(211.066, 95.302, 45.124, 0.504)
pt3dadd(211.163, 95.302, 45.182, 0.498)
pt3dadd(211.26, 95.302, 45.241, 0.49)
pt3dadd(211.357, 95.302, 45.3, 0.482)
pt3dadd(211.454, 95.302, 45.358, 0.476)
pt3dadd(211.546, 95.302, 45.423, 0.532)
pt3dadd(211.637, 95.302, 45.488, 0.594)
pt3dadd(211.728, 95.302, 45.553, 0.658)
pt3dadd(211.818, 95.302, 45.619, 0.72)
pt3dadd(211.909, 95.302, 45.684, 0.784)
pt3dadd(212, 95.302, 45.749, 0.848)
pt3dadd(212.092, 95.302, 45.814, 0.91)
pt3dadd(212.182, 95.302, 45.88, 0.974)
pt3dadd(212.273, 95.302, 45.945, 1.036)
pt3dadd(212.364, 95.302, 46.01, 1.1)
pt3dadd(212.441, 95.302, 46.087, 1.112)
pt3dadd(212.516, 95.302, 46.164, 1.118)
pt3dadd(212.592, 95.302, 46.242, 1.126)
pt3dadd(212.668, 95.302, 46.32, 1.132)
pt3dadd(212.743, 95.302, 46.398, 1.138)
pt3dadd(212.818, 95.302, 46.476, 1.146)
pt3dadd(212.893, 95.302, 46.553, 1.152)
pt3dadd(212.969, 95.302, 46.631, 1.158)
pt3dadd(213.044, 95.302, 46.709, 1.166)
pt3dadd(213.12, 95.302, 46.787, 1.172)
pt3dadd(213.185, 95.302, 46.871, 1.142)
pt3dadd(213.25, 95.302, 46.955, 1.112)
pt3dadd(213.313, 95.302, 47.039, 1.084)
pt3dadd(213.378, 95.302, 47.124, 1.054)
pt3dadd(213.443, 95.302, 47.208, 1.024)
pt3dadd(213.508, 95.302, 47.292, 0.996)
pt3dadd(213.572, 95.302, 47.377, 0.966)
pt3dadd(213.636, 95.302, 47.461, 0.936)
pt3dadd(213.701, 95.302, 47.545, 0.908)
pt3dadd(213.766, 95.302, 47.63, 0.878)
pt3dadd(213.835, 95.302, 47.711, 0.856)
pt3dadd(213.904, 95.302, 47.793, 0.836)
pt3dadd(213.972, 95.302, 47.875, 0.814)
pt3dadd(214.042, 95.302, 47.957, 0.794)
pt3dadd(214.11, 95.302, 48.039, 0.772)
pt3dadd(214.178, 95.302, 48.121, 0.75)
pt3dadd(214.248, 95.302, 48.203, 0.73)
pt3dadd(214.316, 95.302, 48.285, 0.708)
pt3dadd(214.386, 95.302, 48.367, 0.686)
pt3dadd(214.454, 95.302, 48.448, 0.666)
pt3dadd(214.523, 95.302, 48.53, 0.644)
pt3dadd(214.592, 95.302, 48.612, 0.622)
pt3dadd(214.661, 95.302, 48.694, 0.602)
pt3dadd(214.729, 95.302, 48.776, 0.58)
pt3dadd(214.798, 95.302, 48.858, 0.558)
pt3dadd(214.867, 95.302, 48.94, 0.538)
pt3dadd(214.936, 95.302, 49.022, 0.516)
pt3dadd(215.004, 95.302, 49.104, 0.494)
pt3dadd(215.074, 95.302, 49.186, 0.474)
pt3dadd(215.142, 95.302, 49.268, 0.452)
}
dend_7[39] {pt3dclear()
pt3dadd(181.254, 117.229, 26.281, 2.26)
pt3dadd(181.258, 117.303, 26.267, 2.246)
pt3dadd(181.262, 117.419, 26.244, 2.226)
pt3dadd(181.267, 117.536, 26.222, 2.204)
pt3dadd(181.272, 117.653, 26.199, 2.182)
pt3dadd(181.277, 117.77, 26.177, 2.162)
pt3dadd(181.282, 117.887, 26.155, 2.14)
pt3dadd(181.286, 118.004, 26.132, 2.118)
pt3dadd(181.291, 118.12, 26.11, 2.098)
pt3dadd(181.296, 118.237, 26.087, 2.076)
pt3dadd(181.301, 118.354, 26.065, 2.054)
pt3dadd(181.306, 118.471, 26.043, 2.032)
pt3dadd(181.31, 118.588, 26.02, 2.012)
pt3dadd(181.316, 118.705, 25.998, 1.99)
pt3dadd(181.321, 118.822, 25.976, 1.968)
pt3dadd(181.326, 118.938, 25.953, 1.948)
pt3dadd(181.331, 119.055, 25.931, 1.926)
pt3dadd(181.345, 119.172, 25.926, 1.89)
pt3dadd(181.369, 119.288, 25.941, 1.838)
pt3dadd(181.394, 119.404, 25.956, 1.786)
pt3dadd(181.418, 119.52, 25.971, 1.732)
pt3dadd(181.442, 119.636, 25.986, 1.68)
pt3dadd(181.468, 119.752, 26, 1.628)
pt3dadd(181.492, 119.869, 26.015, 1.576)
pt3dadd(181.517, 119.985, 26.03, 1.524)
pt3dadd(181.541, 120.101, 26.045, 1.472)
pt3dadd(181.57, 120.211, 26.07, 1.412)
pt3dadd(181.609, 120.307, 26.12, 1.338)
pt3dadd(181.65, 120.403, 26.17, 1.264)
pt3dadd(181.69, 120.499, 26.22, 1.188)
pt3dadd(181.729, 120.595, 26.27, 1.114)
pt3dadd(181.769, 120.691, 26.319, 1.038)
pt3dadd(181.808, 120.787, 26.369, 0.964)
pt3dadd(181.849, 120.884, 26.419, 0.89)
pt3dadd(181.889, 120.98, 26.469, 0.814)
pt3dadd(181.928, 121.076, 26.518, 0.74)
pt3dadd(181.972, 121.172, 26.566, 0.674)
pt3dadd(182.023, 121.27, 26.607, 0.626)
pt3dadd(182.074, 121.366, 26.648, 0.58)
pt3dadd(182.125, 121.463, 26.689, 0.534)
pt3dadd(182.177, 121.559, 26.73, 0.486)
pt3dadd(182.227, 121.656, 26.771, 0.44)
pt3dadd(182.279, 121.753, 26.813, 0.392)
pt3dadd(182.329, 121.849, 26.854, 0.346)
pt3dadd(182.381, 121.946, 26.895, 0.298)
pt3dadd(182.431, 122.042, 26.936, 0.252)
pt3dadd(182.49, 122.138, 26.97, 0.226)
pt3dadd(182.558, 122.232, 26.996, 0.226)
pt3dadd(182.626, 122.327, 27.022, 0.226)
pt3dadd(182.693, 122.42, 27.048, 0.226)
pt3dadd(182.761, 122.515, 27.073, 0.226)
pt3dadd(182.828, 122.609, 27.099, 0.226)
pt3dadd(182.897, 122.704, 27.125, 0.226)
pt3dadd(182.964, 122.797, 27.151, 0.226)
pt3dadd(183.032, 122.891, 27.176, 0.226)
pt3dadd(183.1, 122.986, 27.202, 0.226)
pt3dadd(183.17, 123.078, 27.225, 0.226)
pt3dadd(183.247, 123.168, 27.244, 0.226)
pt3dadd(183.323, 123.258, 27.263, 0.226)
pt3dadd(183.398, 123.348, 27.282, 0.226)
pt3dadd(183.474, 123.439, 27.301, 0.226)
pt3dadd(183.55, 123.529, 27.319, 0.226)
pt3dadd(183.625, 123.619, 27.339, 0.226)
pt3dadd(183.701, 123.709, 27.357, 0.226)
pt3dadd(183.778, 123.799, 27.376, 0.226)
pt3dadd(183.853, 123.889, 27.395, 0.226)
pt3dadd(183.93, 123.979, 27.413, 0.226)
pt3dadd(184.01, 124.067, 27.428, 0.226)
pt3dadd(184.09, 124.154, 27.444, 0.226)
pt3dadd(184.169, 124.243, 27.459, 0.226)
pt3dadd(184.249, 124.331, 27.475, 0.226)
pt3dadd(184.328, 124.418, 27.49, 0.226)
pt3dadd(184.408, 124.506, 27.505, 0.226)
pt3dadd(184.487, 124.595, 27.521, 0.226)
pt3dadd(184.567, 124.682, 27.536, 0.226)
pt3dadd(184.646, 124.77, 27.552, 0.226)
pt3dadd(184.728, 124.856, 27.566, 0.234)
pt3dadd(184.811, 124.942, 27.579, 0.25)
pt3dadd(184.894, 125.028, 27.592, 0.264)
pt3dadd(184.976, 125.113, 27.605, 0.28)
pt3dadd(185.059, 125.198, 27.618, 0.296)
pt3dadd(185.142, 125.284, 27.631, 0.312)
pt3dadd(185.226, 125.369, 27.643, 0.328)
pt3dadd(185.309, 125.454, 27.656, 0.342)
pt3dadd(185.392, 125.539, 27.669, 0.358)
pt3dadd(185.474, 125.624, 27.682, 0.374)
pt3dadd(185.558, 125.71, 27.694, 0.394)
pt3dadd(185.642, 125.794, 27.706, 0.416)
pt3dadd(185.728, 125.878, 27.717, 0.438)
pt3dadd(185.812, 125.962, 27.729, 0.462)
pt3dadd(185.896, 126.046, 27.741, 0.484)
pt3dadd(185.981, 126.13, 27.752, 0.508)
pt3dadd(186.065, 126.214, 27.764, 0.53)
pt3dadd(186.149, 126.298, 27.776, 0.554)
pt3dadd(186.234, 126.382, 27.787, 0.576)
pt3dadd(186.318, 126.466, 27.799, 0.6)
pt3dadd(186.403, 126.545, 27.821, 0.618)
pt3dadd(186.491, 126.616, 27.856, 0.636)
pt3dadd(186.577, 126.688, 27.89, 0.652)
pt3dadd(186.664, 126.76, 27.925, 0.668)
pt3dadd(186.751, 126.832, 27.959, 0.684)
pt3dadd(186.838, 126.904, 27.994, 0.7)
pt3dadd(186.924, 126.976, 28.028, 0.716)
pt3dadd(187.012, 127.048, 28.063, 0.732)
pt3dadd(187.098, 127.118, 28.097, 0.748)
pt3dadd(187.184, 127.19, 28.132, 0.766)
pt3dadd(187.271, 127.259, 28.171, 0.78)
pt3dadd(187.357, 127.325, 28.214, 0.792)
pt3dadd(187.444, 127.39, 28.258, 0.806)
pt3dadd(187.53, 127.456, 28.301, 0.818)
pt3dadd(187.615, 127.52, 28.344, 0.832)
pt3dadd(187.702, 127.586, 28.388, 0.846)
pt3dadd(187.788, 127.652, 28.431, 0.858)
pt3dadd(187.873, 127.717, 28.474, 0.872)
pt3dadd(187.96, 127.783, 28.517, 0.884)
pt3dadd(188.046, 127.849, 28.561, 0.898)
}
}
proc shape3d_173() {
dend_7[39] { pt3dadd(188.113, 127.933, 28.602, 0.884)
pt3dadd(188.167, 128.028, 28.641, 0.854)
pt3dadd(188.222, 128.124, 28.68, 0.824)
pt3dadd(188.278, 128.22, 28.72, 0.794)
pt3dadd(188.332, 128.316, 28.759, 0.764)
pt3dadd(188.387, 128.411, 28.799, 0.732)
pt3dadd(188.441, 128.507, 28.838, 0.702)
pt3dadd(188.496, 128.603, 28.877, 0.672)
pt3dadd(188.551, 128.699, 28.917, 0.642)
pt3dadd(188.605, 128.795, 28.956, 0.612)
pt3dadd(188.651, 128.892, 28.999, 0.6)
pt3dadd(188.692, 128.992, 29.044, 0.598)
pt3dadd(188.731, 129.091, 29.09, 0.598)
pt3dadd(188.771, 129.19, 29.135, 0.598)
pt3dadd(188.81, 129.289, 29.18, 0.596)
pt3dadd(188.851, 129.389, 29.225, 0.596)
pt3dadd(188.891, 129.488, 29.271, 0.596)
pt3dadd(188.93, 129.587, 29.316, 0.596)
pt3dadd(188.971, 129.686, 29.361, 0.594)
pt3dadd(189.011, 129.786, 29.406, 0.594)
pt3dadd(189.041, 129.886, 29.455, 0.612)
pt3dadd(189.066, 129.986, 29.505, 0.64)
pt3dadd(189.092, 130.087, 29.555, 0.668)
pt3dadd(189.118, 130.188, 29.605, 0.694)
pt3dadd(189.144, 130.289, 29.655, 0.722)
pt3dadd(189.169, 130.39, 29.705, 0.748)
pt3dadd(189.194, 130.49, 29.755, 0.776)
pt3dadd(189.221, 130.591, 29.805, 0.804)
pt3dadd(189.246, 130.692, 29.855, 0.832)
pt3dadd(189.272, 130.793, 29.905, 0.858)
pt3dadd(189.308, 130.898, 29.94, 0.892)
pt3dadd(189.349, 131.005, 29.969, 0.93)
pt3dadd(189.389, 131.113, 29.998, 0.968)
pt3dadd(189.43, 131.22, 30.027, 1.006)
pt3dadd(189.47, 131.328, 30.055, 1.042)
pt3dadd(189.511, 131.435, 30.084, 1.08)
pt3dadd(189.552, 131.543, 30.113, 1.118)
pt3dadd(189.593, 131.651, 30.142, 1.156)
pt3dadd(189.634, 131.758, 30.171, 1.194)
pt3dadd(189.674, 131.866, 30.2, 1.23)
pt3dadd(189.715, 131.974, 30.225, 1.258)
pt3dadd(189.756, 132.083, 30.25, 1.282)
pt3dadd(189.797, 132.191, 30.274, 1.306)
pt3dadd(189.838, 132.3, 30.299, 1.33)
pt3dadd(189.88, 132.409, 30.323, 1.354)
pt3dadd(189.92, 132.517, 30.348, 1.378)
pt3dadd(189.961, 132.626, 30.373, 1.402)
pt3dadd(190.002, 132.736, 30.397, 1.426)
pt3dadd(190.044, 132.845, 30.422, 1.45)
pt3dadd(190.085, 132.953, 30.446, 1.474)
pt3dadd(190.115, 133.067, 30.466, 1.418)
pt3dadd(190.142, 133.181, 30.485, 1.334)
pt3dadd(190.17, 133.296, 30.504, 1.252)
pt3dadd(190.198, 133.41, 30.522, 1.17)
pt3dadd(190.225, 133.525, 30.541, 1.086)
pt3dadd(190.254, 133.639, 30.56, 1.004)
pt3dadd(190.282, 133.754, 30.578, 0.92)
pt3dadd(190.309, 133.868, 30.597, 0.838)
pt3dadd(190.337, 133.984, 30.616, 0.756)
pt3dadd(190.364, 134.098, 30.634, 0.672)
pt3dadd(190.386, 134.214, 30.652, 0.63)
pt3dadd(190.405, 134.33, 30.668, 0.602)
pt3dadd(190.424, 134.447, 30.685, 0.572)
pt3dadd(190.445, 134.564, 30.701, 0.544)
pt3dadd(190.464, 134.681, 30.718, 0.514)
pt3dadd(190.484, 134.797, 30.734, 0.486)
pt3dadd(190.504, 134.914, 30.751, 0.456)
pt3dadd(190.524, 135.031, 30.768, 0.428)
pt3dadd(190.543, 135.148, 30.784, 0.4)
pt3dadd(190.562, 135.264, 30.801, 0.37)
pt3dadd(190.577, 135.382, 30.816, 0.386)
pt3dadd(190.588, 135.5, 30.83, 0.414)
pt3dadd(190.6, 135.618, 30.844, 0.444)
pt3dadd(190.61, 135.737, 30.858, 0.472)
pt3dadd(190.622, 135.854, 30.873, 0.5)
pt3dadd(190.634, 135.973, 30.887, 0.528)
pt3dadd(190.645, 136.091, 30.901, 0.558)
pt3dadd(190.657, 136.21, 30.915, 0.586)
pt3dadd(190.668, 136.327, 30.93, 0.614)
pt3dadd(190.68, 136.446, 30.944, 0.642)
pt3dadd(190.681, 136.558, 30.978, 0.632)
pt3dadd(190.68, 136.668, 31.018, 0.612)
pt3dadd(190.678, 136.778, 31.058, 0.592)
pt3dadd(190.676, 136.888, 31.098, 0.57)
pt3dadd(190.675, 136.998, 31.138, 0.55)
pt3dadd(190.673, 137.108, 31.177, 0.53)
pt3dadd(190.672, 137.218, 31.217, 0.508)
pt3dadd(190.67, 137.328, 31.257, 0.488)
pt3dadd(190.669, 137.438, 31.297, 0.468)
pt3dadd(190.667, 137.549, 31.337, 0.446)
pt3dadd(190.663, 137.658, 31.378, 0.426)
pt3dadd(190.66, 137.767, 31.419, 0.404)
pt3dadd(190.656, 137.876, 31.46, 0.382)
pt3dadd(190.651, 137.986, 31.501, 0.36)
pt3dadd(190.648, 138.095, 31.542, 0.338)
pt3dadd(190.644, 138.204, 31.583, 0.316)
pt3dadd(190.639, 138.313, 31.625, 0.294)
pt3dadd(190.636, 138.422, 31.666, 0.274)
pt3dadd(190.632, 138.532, 31.707, 0.252)
pt3dadd(190.628, 138.641, 31.748, 0.23)
pt3dadd(190.62, 138.754, 31.783, 0.226)
pt3dadd(190.613, 138.866, 31.817, 0.226)
pt3dadd(190.604, 138.978, 31.851, 0.226)
pt3dadd(190.597, 139.091, 31.885, 0.226)
pt3dadd(190.589, 139.204, 31.919, 0.226)
pt3dadd(190.58, 139.316, 31.953, 0.226)
pt3dadd(190.573, 139.429, 31.987, 0.226)
pt3dadd(190.565, 139.541, 32.021, 0.226)
pt3dadd(190.558, 139.654, 32.055, 0.226)
pt3dadd(190.549, 139.766, 32.089, 0.226)
pt3dadd(190.54, 139.877, 32.128, 0.236)
pt3dadd(190.529, 139.986, 32.168, 0.25)
pt3dadd(190.519, 140.096, 32.208, 0.262)
pt3dadd(190.51, 140.206, 32.247, 0.276)
pt3dadd(190.499, 140.316, 32.287, 0.288)
pt3dadd(190.489, 140.425, 32.326, 0.302)
pt3dadd(190.478, 140.534, 32.366, 0.314)
pt3dadd(190.469, 140.645, 32.406, 0.326)
pt3dadd(190.459, 140.754, 32.445, 0.34)
pt3dadd(190.448, 140.864, 32.485, 0.352)
pt3dadd(190.436, 140.971, 32.53, 0.376)
pt3dadd(190.424, 141.077, 32.575, 0.402)
pt3dadd(190.412, 141.184, 32.62, 0.428)
pt3dadd(190.399, 141.29, 32.665, 0.454)
pt3dadd(190.387, 141.396, 32.71, 0.478)
pt3dadd(190.375, 141.503, 32.755, 0.504)
pt3dadd(190.362, 141.608, 32.8, 0.53)
pt3dadd(190.35, 141.715, 32.845, 0.556)
pt3dadd(190.338, 141.822, 32.891, 0.582)
pt3dadd(190.325, 141.928, 32.936, 0.606)
pt3dadd(190.292, 142.037, 32.966, 0.65)
pt3dadd(190.258, 142.146, 32.995, 0.696)
pt3dadd(190.222, 142.255, 33.023, 0.742)
pt3dadd(190.186, 142.366, 33.052, 0.788)
pt3dadd(190.15, 142.475, 33.08, 0.834)
pt3dadd(190.115, 142.584, 33.109, 0.878)
pt3dadd(190.079, 142.693, 33.137, 0.924)
pt3dadd(190.043, 142.802, 33.166, 0.97)
pt3dadd(190.007, 142.912, 33.194, 1.016)
pt3dadd(189.972, 143.021, 33.223, 1.062)
pt3dadd(189.929, 143.13, 33.245, 1.114)
pt3dadd(189.884, 143.239, 33.267, 1.164)
pt3dadd(189.841, 143.347, 33.288, 1.216)
pt3dadd(189.798, 143.456, 33.31, 1.266)
pt3dadd(189.755, 143.566, 33.332, 1.318)
pt3dadd(189.712, 143.674, 33.354, 1.37)
pt3dadd(189.668, 143.783, 33.376, 1.42)
pt3dadd(189.625, 143.891, 33.398, 1.472)
pt3dadd(189.582, 144, 33.42, 1.522)
pt3dadd(189.538, 144.109, 33.442, 1.574)
pt3dadd(189.51, 144.224, 33.451, 1.492)
pt3dadd(189.481, 144.341, 33.461, 1.408)
pt3dadd(189.452, 144.457, 33.471, 1.324)
pt3dadd(189.425, 144.572, 33.481, 1.24)
pt3dadd(189.396, 144.689, 33.491, 1.158)
pt3dadd(189.367, 144.805, 33.501, 1.074)
pt3dadd(189.338, 144.92, 33.51, 0.99)
pt3dadd(189.311, 145.037, 33.52, 0.906)
pt3dadd(189.282, 145.153, 33.53, 0.822)
pt3dadd(189.253, 145.268, 33.54, 0.738)
pt3dadd(189.232, 145.386, 33.545, 0.714)
pt3dadd(189.209, 145.504, 33.55, 0.69)
pt3dadd(189.186, 145.621, 33.556, 0.668)
pt3dadd(189.163, 145.74, 33.561, 0.644)
pt3dadd(189.14, 145.858, 33.566, 0.622)
pt3dadd(189.119, 145.975, 33.571, 0.598)
pt3dadd(189.096, 146.093, 33.576, 0.576)
pt3dadd(189.073, 146.21, 33.582, 0.552)
pt3dadd(189.05, 146.328, 33.587, 0.528)
pt3dadd(189.029, 146.446, 33.592, 0.508)
pt3dadd(189.016, 146.564, 33.59, 0.58)
pt3dadd(189.002, 146.684, 33.588, 0.652)
pt3dadd(188.99, 146.803, 33.586, 0.724)
pt3dadd(188.977, 146.923, 33.584, 0.796)
pt3dadd(188.964, 147.042, 33.582, 0.866)
pt3dadd(188.952, 147.162, 33.58, 0.938)
pt3dadd(188.939, 147.281, 33.578, 1.01)
pt3dadd(188.926, 147.4, 33.576, 1.082)
pt3dadd(188.912, 147.52, 33.574, 1.154)
pt3dadd(188.9, 147.638, 33.572, 1.224)
pt3dadd(188.898, 147.758, 33.568, 1.214)
pt3dadd(188.897, 147.878, 33.564, 1.204)
pt3dadd(188.894, 147.998, 33.56, 1.192)
pt3dadd(188.893, 148.118, 33.556, 1.182)
pt3dadd(188.891, 148.238, 33.552, 1.172)
pt3dadd(188.89, 148.358, 33.548, 1.162)
pt3dadd(188.887, 148.478, 33.545, 1.152)
pt3dadd(188.886, 148.597, 33.541, 1.14)
pt3dadd(188.884, 148.717, 33.537, 1.13)
pt3dadd(188.882, 148.837, 33.533, 1.12)
pt3dadd(188.884, 148.957, 33.527, 1.09)
pt3dadd(188.884, 149.077, 33.521, 1.062)
pt3dadd(188.885, 149.197, 33.516, 1.032)
pt3dadd(188.886, 149.317, 33.51, 1.004)
pt3dadd(188.887, 149.436, 33.504, 0.974)
pt3dadd(188.887, 149.556, 33.499, 0.946)
pt3dadd(188.888, 149.676, 33.493, 0.918)
pt3dadd(188.89, 149.796, 33.487, 0.888)
pt3dadd(188.89, 149.916, 33.482, 0.86)
pt3dadd(188.891, 150.036, 33.476, 0.83)
}
}
proc shape3d_174() {
dend_7[39] { pt3dadd(188.892, 150.155, 33.466, 0.802)
pt3dadd(188.894, 150.275, 33.456, 0.772)
pt3dadd(188.896, 150.394, 33.446, 0.744)
pt3dadd(188.898, 150.514, 33.436, 0.716)
pt3dadd(188.899, 150.632, 33.426, 0.686)
pt3dadd(188.9, 150.752, 33.417, 0.658)
pt3dadd(188.903, 150.871, 33.407, 0.628)
pt3dadd(188.904, 150.991, 33.397, 0.6)
pt3dadd(188.906, 151.11, 33.387, 0.572)
pt3dadd(188.908, 151.23, 33.377, 0.546)
pt3dadd(188.91, 151.348, 33.361, 0.584)
pt3dadd(188.912, 151.466, 33.345, 0.624)
pt3dadd(188.916, 151.585, 33.33, 0.662)
pt3dadd(188.918, 151.704, 33.314, 0.702)
pt3dadd(188.921, 151.822, 33.298, 0.742)
pt3dadd(188.923, 151.94, 33.283, 0.78)
pt3dadd(188.926, 152.059, 33.267, 0.82)
pt3dadd(188.929, 152.178, 33.251, 0.858)
pt3dadd(188.932, 152.296, 33.236, 0.898)
pt3dadd(188.934, 152.414, 33.22, 0.938)
pt3dadd(188.938, 152.532, 33.199, 0.996)
pt3dadd(188.941, 152.648, 33.178, 1.054)
pt3dadd(188.945, 152.766, 33.157, 1.112)
pt3dadd(188.948, 152.884, 33.136, 1.17)
pt3dadd(188.952, 153.001, 33.115, 1.228)
pt3dadd(188.956, 153.118, 33.094, 1.286)
pt3dadd(188.959, 153.235, 33.073, 1.344)
pt3dadd(188.963, 153.353, 33.052, 1.402)
pt3dadd(188.966, 153.47, 33.031, 1.46)
pt3dadd(188.97, 153.587, 33.008, 1.508)
pt3dadd(188.977, 153.692, 32.962, 1.43)
pt3dadd(188.984, 153.799, 32.916, 1.354)
pt3dadd(188.992, 153.905, 32.87, 1.276)
pt3dadd(188.999, 154.012, 32.825, 1.2)
pt3dadd(189.006, 154.118, 32.779, 1.122)
pt3dadd(189.013, 154.224, 32.733, 1.046)
pt3dadd(189.02, 154.331, 32.687, 0.968)
pt3dadd(189.028, 154.438, 32.641, 0.892)
pt3dadd(189.035, 154.543, 32.595, 0.814)
pt3dadd(189.043, 154.65, 32.549, 0.74)
pt3dadd(189.052, 154.754, 32.5, 0.688)
pt3dadd(189.06, 154.859, 32.451, 0.636)
pt3dadd(189.068, 154.963, 32.402, 0.584)
pt3dadd(189.077, 155.068, 32.354, 0.532)
pt3dadd(189.085, 155.172, 32.305, 0.48)
pt3dadd(189.094, 155.276, 32.256, 0.428)
pt3dadd(189.102, 155.381, 32.208, 0.376)
pt3dadd(189.11, 155.485, 32.159, 0.324)
pt3dadd(189.119, 155.59, 32.11, 0.274)
pt3dadd(189.127, 155.694, 32.061, 0.226)
pt3dadd(189.138, 155.794, 32.006, 0.226)
pt3dadd(189.149, 155.894, 31.952, 0.226)
pt3dadd(189.16, 155.994, 31.898, 0.226)
pt3dadd(189.172, 156.095, 31.844, 0.226)
pt3dadd(189.182, 156.194, 31.789, 0.226)
pt3dadd(189.193, 156.294, 31.735, 0.226)
pt3dadd(189.204, 156.395, 31.681, 0.226)
pt3dadd(189.215, 156.494, 31.626, 0.226)
pt3dadd(189.227, 156.595, 31.572, 0.226)
pt3dadd(189.239, 156.696, 31.518, 0.228)
pt3dadd(189.264, 156.799, 31.473, 0.258)
pt3dadd(189.289, 156.904, 31.429, 0.288)
pt3dadd(189.314, 157.008, 31.384, 0.318)
pt3dadd(189.34, 157.112, 31.339, 0.348)
pt3dadd(189.365, 157.217, 31.294, 0.378)
pt3dadd(189.39, 157.321, 31.249, 0.408)
pt3dadd(189.415, 157.426, 31.205, 0.436)
pt3dadd(189.44, 157.53, 31.16, 0.466)
pt3dadd(189.466, 157.633, 31.115, 0.496)
pt3dadd(189.494, 157.739, 31.073, 0.534)
pt3dadd(189.535, 157.844, 31.041, 0.598)
pt3dadd(189.577, 157.95, 31.009, 0.662)
pt3dadd(189.618, 158.056, 30.977, 0.726)
pt3dadd(189.659, 158.162, 30.944, 0.79)
pt3dadd(189.7, 158.268, 30.912, 0.854)
pt3dadd(189.742, 158.374, 30.88, 0.918)
pt3dadd(189.782, 158.48, 30.848, 0.982)
pt3dadd(189.823, 158.586, 30.816, 1.046)
pt3dadd(189.865, 158.692, 30.784, 1.11)
pt3dadd(189.904, 158.8, 30.755, 1.158)
pt3dadd(189.934, 158.914, 30.737, 1.148)
pt3dadd(189.965, 159.028, 30.718, 1.138)
pt3dadd(189.995, 159.142, 30.7, 1.128)
pt3dadd(190.026, 159.256, 30.682, 1.118)
pt3dadd(190.056, 159.37, 30.664, 1.108)
pt3dadd(190.087, 159.484, 30.646, 1.098)
pt3dadd(190.117, 159.598, 30.628, 1.088)
pt3dadd(190.148, 159.712, 30.61, 1.078)
pt3dadd(190.178, 159.826, 30.591, 1.068)
pt3dadd(190.207, 159.94, 30.575, 1.048)
pt3dadd(190.231, 160.057, 30.565, 1.008)
pt3dadd(190.254, 160.174, 30.554, 0.966)
pt3dadd(190.278, 160.291, 30.543, 0.924)
pt3dadd(190.302, 160.408, 30.532, 0.884)
pt3dadd(190.326, 160.525, 30.521, 0.842)
pt3dadd(190.349, 160.642, 30.51, 0.8)
pt3dadd(190.373, 160.758, 30.499, 0.76)
pt3dadd(190.397, 160.876, 30.489, 0.718)
pt3dadd(190.421, 160.992, 30.478, 0.676)
pt3dadd(190.438, 161.11, 30.47, 0.64)
pt3dadd(190.444, 161.23, 30.467, 0.61)
pt3dadd(190.448, 161.35, 30.465, 0.58)
pt3dadd(190.453, 161.47, 30.463, 0.55)
pt3dadd(190.458, 161.59, 30.461, 0.52)
pt3dadd(190.463, 161.71, 30.459, 0.492)
pt3dadd(190.469, 161.83, 30.457, 0.462)
pt3dadd(190.474, 161.95, 30.455, 0.432)
pt3dadd(190.478, 162.07, 30.453, 0.402)
pt3dadd(190.483, 162.188, 30.45, 0.372)
pt3dadd(190.484, 162.308, 30.448, 0.348)
pt3dadd(190.478, 162.428, 30.445, 0.336)
pt3dadd(190.472, 162.548, 30.441, 0.324)
pt3dadd(190.466, 162.668, 30.438, 0.31)
pt3dadd(190.46, 162.788, 30.435, 0.298)
pt3dadd(190.454, 162.907, 30.431, 0.286)
pt3dadd(190.448, 163.027, 30.428, 0.272)
pt3dadd(190.442, 163.147, 30.425, 0.26)
pt3dadd(190.435, 163.267, 30.421, 0.248)
pt3dadd(190.429, 163.387, 30.418, 0.234)
pt3dadd(190.42, 163.506, 30.414, 0.226)
pt3dadd(190.403, 163.625, 30.41, 0.228)
pt3dadd(190.385, 163.744, 30.405, 0.232)
pt3dadd(190.368, 163.862, 30.4, 0.234)
pt3dadd(190.35, 163.981, 30.395, 0.236)
pt3dadd(190.333, 164.099, 30.391, 0.238)
pt3dadd(190.316, 164.218, 30.386, 0.24)
pt3dadd(190.298, 164.336, 30.381, 0.242)
pt3dadd(190.282, 164.455, 30.376, 0.244)
pt3dadd(190.265, 164.574, 30.372, 0.246)
pt3dadd(190.235, 164.688, 30.364, 0.26)
pt3dadd(190.186, 164.797, 30.354, 0.29)
pt3dadd(190.136, 164.906, 30.343, 0.318)
pt3dadd(190.087, 165.014, 30.332, 0.348)
pt3dadd(190.038, 165.124, 30.321, 0.378)
pt3dadd(189.989, 165.232, 30.31, 0.408)
pt3dadd(189.94, 165.341, 30.299, 0.436)
pt3dadd(189.89, 165.449, 30.288, 0.466)
pt3dadd(189.841, 165.558, 30.277, 0.496)
pt3dadd(189.792, 165.666, 30.266, 0.526)
pt3dadd(189.745, 165.776, 30.254, 0.548)
pt3dadd(189.703, 165.887, 30.239, 0.562)
pt3dadd(189.661, 165.998, 30.224, 0.576)
pt3dadd(189.619, 166.109, 30.209, 0.588)
pt3dadd(189.577, 166.219, 30.194, 0.602)
pt3dadd(189.534, 166.331, 30.179, 0.616)
pt3dadd(189.492, 166.441, 30.164, 0.63)
pt3dadd(189.45, 166.553, 30.149, 0.642)
pt3dadd(189.408, 166.663, 30.135, 0.656)
pt3dadd(189.366, 166.774, 30.12, 0.67)
pt3dadd(189.328, 166.883, 30.096, 0.674)
pt3dadd(189.294, 166.99, 30.058, 0.664)
pt3dadd(189.262, 167.096, 30.021, 0.654)
pt3dadd(189.229, 167.202, 29.984, 0.644)
pt3dadd(189.196, 167.309, 29.946, 0.634)
pt3dadd(189.163, 167.414, 29.909, 0.624)
pt3dadd(189.13, 167.521, 29.872, 0.614)
pt3dadd(189.097, 167.628, 29.834, 0.604)
pt3dadd(189.064, 167.734, 29.797, 0.594)
pt3dadd(189.031, 167.84, 29.759, 0.584)
pt3dadd(189.014, 167.906, 29.677, 0.548)
pt3dadd(188.998, 167.972, 29.595, 0.512)
pt3dadd(188.982, 168.038, 29.512, 0.476)
pt3dadd(188.965, 168.104, 29.43, 0.44)
pt3dadd(188.948, 168.169, 29.347, 0.404)
pt3dadd(188.932, 168.235, 29.265, 0.368)
pt3dadd(188.915, 168.301, 29.183, 0.334)
pt3dadd(188.899, 168.367, 29.1, 0.298)
pt3dadd(188.882, 168.433, 29.018, 0.262)
pt3dadd(188.866, 168.499, 28.935, 0.226)
}
dend_7[40] {pt3dclear()
pt3dadd(170.977, 114.131, 22.413, 3.164)
pt3dadd(170.946, 114.061, 22.479, 3.156)
pt3dadd(170.911, 113.985, 22.551, 3.148)
pt3dadd(170.876, 113.909, 22.622, 3.138)
pt3dadd(170.842, 113.833, 22.694, 3.13)
pt3dadd(170.807, 113.757, 22.766, 3.12)
pt3dadd(170.773, 113.681, 22.838, 3.112)
pt3dadd(170.738, 113.605, 22.91, 3.102)
pt3dadd(170.704, 113.529, 22.981, 3.094)
pt3dadd(170.669, 113.453, 23.053, 3.084)
pt3dadd(170.635, 113.377, 23.125, 3.076)
pt3dadd(170.6, 113.301, 23.197, 3.068)
pt3dadd(170.566, 113.225, 23.269, 3.058)
pt3dadd(170.532, 113.149, 23.341, 3.05)
pt3dadd(170.497, 113.073, 23.413, 3.04)
pt3dadd(170.462, 112.997, 23.485, 3.032)
pt3dadd(170.428, 112.921, 23.556, 3.022)
pt3dadd(170.396, 112.846, 23.629, 3.01)
pt3dadd(170.364, 112.771, 23.703, 2.998)
pt3dadd(170.333, 112.695, 23.776, 2.986)
pt3dadd(170.3, 112.62, 23.849, 2.974)
pt3dadd(170.269, 112.545, 23.922, 2.962)
pt3dadd(170.237, 112.469, 23.996, 2.95)
pt3dadd(170.206, 112.394, 24.069, 2.938)
pt3dadd(170.173, 112.319, 24.142, 2.926)
pt3dadd(170.142, 112.243, 24.215, 2.914)
pt3dadd(170.112, 112.169, 24.289, 2.9)
pt3dadd(170.14, 112.121, 24.377, 2.826)
pt3dadd(170.167, 112.073, 24.466, 2.752)
pt3dadd(170.196, 112.024, 24.554, 2.68)
pt3dadd(170.224, 111.976, 24.643, 2.606)
}
}
proc shape3d_175() {
dend_7[40] { pt3dadd(170.251, 111.928, 24.732, 2.532)
pt3dadd(170.279, 111.88, 24.82, 2.458)
pt3dadd(170.308, 111.832, 24.909, 2.384)
pt3dadd(170.335, 111.784, 24.997, 2.312)
pt3dadd(170.363, 111.736, 25.086, 2.238)
pt3dadd(170.392, 111.687, 25.174, 2.164)
pt3dadd(170.435, 111.621, 25.25, 2.118)
pt3dadd(170.478, 111.555, 25.325, 2.072)
pt3dadd(170.521, 111.49, 25.4, 2.026)
pt3dadd(170.566, 111.424, 25.476, 1.98)
pt3dadd(170.609, 111.358, 25.551, 1.934)
pt3dadd(170.652, 111.292, 25.627, 1.888)
pt3dadd(170.695, 111.226, 25.702, 1.842)
pt3dadd(170.738, 111.16, 25.777, 1.796)
pt3dadd(170.782, 111.094, 25.853, 1.75)
pt3dadd(170.827, 111.024, 25.924, 1.718)
pt3dadd(170.876, 110.944, 25.986, 1.716)
pt3dadd(170.926, 110.864, 26.048, 1.714)
pt3dadd(170.975, 110.783, 26.11, 1.712)
pt3dadd(171.024, 110.703, 26.172, 1.71)
pt3dadd(171.073, 110.623, 26.233, 1.708)
pt3dadd(171.124, 110.542, 26.295, 1.706)
pt3dadd(171.173, 110.462, 26.357, 1.706)
pt3dadd(171.222, 110.382, 26.419, 1.704)
pt3dadd(171.271, 110.301, 26.481, 1.702)
pt3dadd(171.311, 110.221, 26.546, 1.72)
pt3dadd(171.336, 110.139, 26.617, 1.774)
pt3dadd(171.36, 110.058, 26.688, 1.828)
pt3dadd(171.384, 109.977, 26.758, 1.884)
pt3dadd(171.409, 109.896, 26.829, 1.938)
pt3dadd(171.433, 109.814, 26.9, 1.992)
pt3dadd(171.457, 109.733, 26.97, 2.046)
pt3dadd(171.481, 109.652, 27.041, 2.1)
pt3dadd(171.506, 109.571, 27.112, 2.154)
pt3dadd(171.53, 109.489, 27.183, 2.208)
pt3dadd(171.551, 109.413, 27.257, 2.244)
pt3dadd(171.564, 109.344, 27.338, 2.244)
pt3dadd(171.577, 109.275, 27.42, 2.244)
pt3dadd(171.59, 109.206, 27.501, 2.246)
pt3dadd(171.604, 109.137, 27.582, 2.246)
pt3dadd(171.617, 109.069, 27.663, 2.246)
pt3dadd(171.63, 109, 27.744, 2.246)
pt3dadd(171.643, 108.931, 27.826, 2.248)
pt3dadd(171.656, 108.862, 27.907, 2.248)
pt3dadd(171.67, 108.794, 27.988, 2.248)
pt3dadd(171.679, 108.73, 28.072, 2.228)
pt3dadd(171.683, 108.673, 28.16, 2.184)
pt3dadd(171.688, 108.616, 28.248, 2.142)
pt3dadd(171.691, 108.559, 28.336, 2.1)
pt3dadd(171.696, 108.502, 28.424, 2.056)
pt3dadd(171.7, 108.444, 28.512, 2.014)
pt3dadd(171.704, 108.387, 28.599, 1.97)
pt3dadd(171.708, 108.33, 28.687, 1.928)
pt3dadd(171.713, 108.273, 28.775, 1.884)
pt3dadd(171.716, 108.216, 28.863, 1.842)
pt3dadd(171.713, 108.159, 28.951, 1.82)
pt3dadd(171.7, 108.103, 29.039, 1.818)
pt3dadd(171.686, 108.048, 29.127, 1.818)
pt3dadd(171.673, 107.992, 29.214, 1.816)
pt3dadd(171.661, 107.936, 29.302, 1.814)
pt3dadd(171.648, 107.88, 29.39, 1.814)
pt3dadd(171.635, 107.825, 29.478, 1.812)
pt3dadd(171.622, 107.769, 29.566, 1.81)
pt3dadd(171.608, 107.713, 29.654, 1.81)
pt3dadd(171.596, 107.658, 29.742, 1.808)
pt3dadd(171.58, 107.604, 29.83, 1.804)
pt3dadd(171.559, 107.553, 29.919, 1.796)
pt3dadd(171.54, 107.502, 30.008, 1.79)
pt3dadd(171.52, 107.45, 30.097, 1.782)
pt3dadd(171.499, 107.399, 30.186, 1.774)
pt3dadd(171.48, 107.348, 30.275, 1.766)
pt3dadd(171.46, 107.297, 30.364, 1.758)
pt3dadd(171.439, 107.246, 30.452, 1.752)
pt3dadd(171.42, 107.194, 30.541, 1.744)
pt3dadd(171.4, 107.143, 30.63, 1.736)
pt3dadd(171.365, 107.104, 30.719, 1.71)
pt3dadd(171.319, 107.074, 30.808, 1.672)
pt3dadd(171.272, 107.044, 30.897, 1.632)
pt3dadd(171.227, 107.015, 30.986, 1.594)
pt3dadd(171.181, 106.985, 31.075, 1.556)
pt3dadd(171.136, 106.955, 31.164, 1.516)
pt3dadd(171.09, 106.925, 31.253, 1.478)
pt3dadd(171.043, 106.895, 31.342, 1.438)
pt3dadd(170.998, 106.865, 31.431, 1.4)
pt3dadd(170.952, 106.835, 31.52, 1.362)
pt3dadd(170.909, 106.807, 31.611, 1.346)
pt3dadd(170.868, 106.781, 31.702, 1.35)
pt3dadd(170.827, 106.755, 31.794, 1.352)
pt3dadd(170.786, 106.728, 31.885, 1.356)
pt3dadd(170.746, 106.702, 31.977, 1.358)
pt3dadd(170.705, 106.676, 32.068, 1.362)
pt3dadd(170.664, 106.65, 32.159, 1.364)
pt3dadd(170.623, 106.623, 32.251, 1.368)
pt3dadd(170.584, 106.597, 32.342, 1.37)
pt3dadd(170.543, 106.571, 32.434, 1.372)
pt3dadd(170.506, 106.547, 32.527, 1.408)
pt3dadd(170.471, 106.525, 32.621, 1.462)
pt3dadd(170.437, 106.504, 32.715, 1.516)
pt3dadd(170.402, 106.482, 32.809, 1.572)
pt3dadd(170.368, 106.461, 32.903, 1.626)
pt3dadd(170.334, 106.439, 32.997, 1.682)
pt3dadd(170.299, 106.417, 33.091, 1.736)
pt3dadd(170.266, 106.396, 33.186, 1.792)
pt3dadd(170.231, 106.374, 33.28, 1.846)
pt3dadd(170.196, 106.353, 33.374, 1.9)
pt3dadd(170.165, 106.334, 33.469, 1.942)
pt3dadd(170.136, 106.317, 33.565, 1.976)
pt3dadd(170.107, 106.3, 33.661, 2.01)
pt3dadd(170.077, 106.283, 33.757, 2.044)
pt3dadd(170.048, 106.266, 33.853, 2.078)
pt3dadd(170.02, 106.249, 33.949, 2.112)
pt3dadd(169.991, 106.232, 34.045, 2.146)
pt3dadd(169.961, 106.215, 34.141, 2.18)
pt3dadd(169.932, 106.198, 34.237, 2.212)
pt3dadd(169.903, 106.182, 34.333, 2.246)
pt3dadd(169.874, 106.161, 34.429, 2.276)
pt3dadd(169.847, 106.139, 34.524, 2.302)
pt3dadd(169.819, 106.116, 34.619, 2.326)
pt3dadd(169.792, 106.094, 34.715, 2.352)
pt3dadd(169.763, 106.071, 34.81, 2.378)
pt3dadd(169.735, 106.049, 34.906, 2.404)
pt3dadd(169.708, 106.026, 35.001, 2.428)
pt3dadd(169.68, 106.004, 35.097, 2.454)
pt3dadd(169.652, 105.981, 35.192, 2.48)
pt3dadd(169.625, 105.959, 35.288, 2.504)
pt3dadd(169.597, 105.919, 35.379, 2.522)
pt3dadd(169.571, 105.871, 35.467, 2.536)
pt3dadd(169.543, 105.823, 35.556, 2.55)
pt3dadd(169.517, 105.775, 35.645, 2.562)
pt3dadd(169.49, 105.726, 35.734, 2.576)
pt3dadd(169.464, 105.678, 35.823, 2.59)
pt3dadd(169.436, 105.63, 35.911, 2.602)
pt3dadd(169.41, 105.582, 36, 2.616)
pt3dadd(169.384, 105.533, 36.089, 2.63)
pt3dadd(169.356, 105.485, 36.178, 2.642)
pt3dadd(169.315, 105.441, 36.264, 2.652)
pt3dadd(169.267, 105.399, 36.349, 2.658)
pt3dadd(169.22, 105.358, 36.434, 2.664)
pt3dadd(169.172, 105.316, 36.519, 2.672)
pt3dadd(169.124, 105.274, 36.604, 2.678)
pt3dadd(169.076, 105.232, 36.688, 2.684)
pt3dadd(169.028, 105.191, 36.773, 2.69)
pt3dadd(168.98, 105.149, 36.858, 2.698)
pt3dadd(168.932, 105.107, 36.943, 2.704)
pt3dadd(168.884, 105.066, 37.028, 2.71)
pt3dadd(168.822, 105.03, 37.107, 2.712)
pt3dadd(168.755, 104.995, 37.185, 2.712)
pt3dadd(168.689, 104.961, 37.264, 2.712)
pt3dadd(168.623, 104.927, 37.342, 2.712)
pt3dadd(168.556, 104.892, 37.42, 2.712)
pt3dadd(168.49, 104.858, 37.498, 2.712)
pt3dadd(168.424, 104.823, 37.576, 2.712)
pt3dadd(168.358, 104.789, 37.655, 2.712)
pt3dadd(168.29, 104.754, 37.733, 2.712)
pt3dadd(168.224, 104.72, 37.811, 2.712)
pt3dadd(168.146, 104.691, 37.883, 2.672)
pt3dadd(168.066, 104.664, 37.954, 2.622)
pt3dadd(167.987, 104.636, 38.025, 2.574)
pt3dadd(167.906, 104.608, 38.096, 2.524)
pt3dadd(167.826, 104.581, 38.167, 2.476)
pt3dadd(167.747, 104.553, 38.237, 2.428)
pt3dadd(167.666, 104.526, 38.308, 2.378)
pt3dadd(167.586, 104.498, 38.379, 2.33)
pt3dadd(167.506, 104.47, 38.45, 2.282)
pt3dadd(167.426, 104.443, 38.521, 2.232)
pt3dadd(167.341, 104.418, 38.589, 2.166)
pt3dadd(167.256, 104.393, 38.656, 2.096)
pt3dadd(167.171, 104.369, 38.723, 2.026)
pt3dadd(167.084, 104.344, 38.79, 1.956)
pt3dadd(166.999, 104.319, 38.857, 1.888)
pt3dadd(166.914, 104.295, 38.924, 1.818)
pt3dadd(166.829, 104.27, 38.991, 1.748)
pt3dadd(166.744, 104.246, 39.058, 1.678)
pt3dadd(166.657, 104.221, 39.126, 1.61)
pt3dadd(166.572, 104.196, 39.193, 1.54)
pt3dadd(166.477, 104.157, 39.243, 1.54)
pt3dadd(166.38, 104.115, 39.291, 1.55)
pt3dadd(166.283, 104.074, 39.339, 1.558)
pt3dadd(166.187, 104.032, 39.387, 1.568)
pt3dadd(166.09, 103.991, 39.435, 1.578)
pt3dadd(165.994, 103.949, 39.483, 1.586)
pt3dadd(165.896, 103.908, 39.531, 1.596)
pt3dadd(165.799, 103.866, 39.579, 1.606)
pt3dadd(165.703, 103.825, 39.627, 1.614)
pt3dadd(165.606, 103.783, 39.675, 1.624)
pt3dadd(165.508, 103.737, 39.716, 1.66)
pt3dadd(165.408, 103.69, 39.757, 1.696)
pt3dadd(165.308, 103.643, 39.798, 1.732)
pt3dadd(165.21, 103.597, 39.838, 1.768)
pt3dadd(165.11, 103.55, 39.879, 1.804)
pt3dadd(165.012, 103.503, 39.92, 1.838)
pt3dadd(164.912, 103.457, 39.961, 1.874)
pt3dadd(164.813, 103.41, 40.002, 1.91)
pt3dadd(164.714, 103.363, 40.042, 1.946)
pt3dadd(164.615, 103.317, 40.083, 1.982)
pt3dadd(164.515, 103.279, 40.129, 1.946)
pt3dadd(164.416, 103.241, 40.174, 1.91)
pt3dadd(164.315, 103.203, 40.219, 1.874)
pt3dadd(164.215, 103.165, 40.265, 1.838)
pt3dadd(164.114, 103.127, 40.31, 1.8)
}
}
proc shape3d_176() {
dend_7[40] { pt3dadd(164.015, 103.09, 40.355, 1.764)
pt3dadd(163.915, 103.052, 40.401, 1.728)
pt3dadd(163.814, 103.014, 40.446, 1.692)
pt3dadd(163.715, 102.976, 40.491, 1.656)
pt3dadd(163.615, 102.938, 40.537, 1.62)
pt3dadd(163.514, 102.902, 40.583, 1.572)
pt3dadd(163.415, 102.866, 40.629, 1.522)
pt3dadd(163.314, 102.829, 40.675, 1.474)
pt3dadd(163.214, 102.793, 40.721, 1.426)
pt3dadd(163.114, 102.757, 40.767, 1.378)
pt3dadd(163.014, 102.72, 40.813, 1.33)
pt3dadd(162.914, 102.684, 40.859, 1.282)
pt3dadd(162.814, 102.648, 40.905, 1.232)
pt3dadd(162.714, 102.611, 40.951, 1.184)
pt3dadd(162.613, 102.575, 40.997, 1.136)
pt3dadd(162.511, 102.523, 41.027, 1.208)
pt3dadd(162.409, 102.471, 41.056, 1.282)
pt3dadd(162.307, 102.418, 41.085, 1.354)
pt3dadd(162.205, 102.366, 41.115, 1.428)
pt3dadd(162.103, 102.314, 41.144, 1.5)
pt3dadd(162, 102.262, 41.173, 1.572)
pt3dadd(161.898, 102.209, 41.203, 1.646)
pt3dadd(161.796, 102.157, 41.232, 1.718)
pt3dadd(161.694, 102.105, 41.261, 1.792)
pt3dadd(161.592, 102.053, 41.291, 1.864)
}
dend_7[41] {pt3dclear()
pt3dadd(161.592, 102.053, 41.291, 1.864)
pt3dadd(161.525, 102.021, 41.31, 1.896)
pt3dadd(161.42, 101.973, 41.338, 1.944)
pt3dadd(161.316, 101.925, 41.367, 1.994)
pt3dadd(161.212, 101.876, 41.396, 2.042)
pt3dadd(161.107, 101.828, 41.424, 2.092)
pt3dadd(161.003, 101.779, 41.453, 2.14)
pt3dadd(160.9, 101.731, 41.482, 2.19)
pt3dadd(160.795, 101.682, 41.511, 2.238)
pt3dadd(160.691, 101.634, 41.54, 2.286)
pt3dadd(160.586, 101.585, 41.568, 2.336)
pt3dadd(160.476, 101.551, 41.595, 2.294)
pt3dadd(160.364, 101.524, 41.621, 2.212)
pt3dadd(160.252, 101.496, 41.648, 2.13)
pt3dadd(160.139, 101.469, 41.674, 2.046)
pt3dadd(160.026, 101.442, 41.7, 1.964)
pt3dadd(159.914, 101.414, 41.726, 1.882)
pt3dadd(159.802, 101.387, 41.752, 1.798)
pt3dadd(159.689, 101.359, 41.778, 1.716)
pt3dadd(159.576, 101.332, 41.805, 1.634)
pt3dadd(159.464, 101.304, 41.831, 1.552)
pt3dadd(159.353, 101.283, 41.864, 1.48)
pt3dadd(159.244, 101.264, 41.902, 1.412)
pt3dadd(159.133, 101.245, 41.938, 1.344)
pt3dadd(159.024, 101.226, 41.976, 1.276)
pt3dadd(158.914, 101.208, 42.013, 1.208)
pt3dadd(158.803, 101.189, 42.049, 1.142)
pt3dadd(158.694, 101.17, 42.086, 1.074)
pt3dadd(158.584, 101.151, 42.123, 1.006)
pt3dadd(158.474, 101.133, 42.16, 0.938)
pt3dadd(158.364, 101.114, 42.198, 0.872)
pt3dadd(158.257, 101.102, 42.242, 0.816)
pt3dadd(158.152, 101.091, 42.288, 0.762)
pt3dadd(158.046, 101.081, 42.334, 0.71)
pt3dadd(157.94, 101.07, 42.381, 0.658)
pt3dadd(157.834, 101.06, 42.427, 0.604)
pt3dadd(157.728, 101.049, 42.473, 0.552)
pt3dadd(157.622, 101.039, 42.52, 0.5)
pt3dadd(157.517, 101.028, 42.566, 0.446)
pt3dadd(157.411, 101.018, 42.613, 0.394)
pt3dadd(157.306, 101.008, 42.659, 0.342)
pt3dadd(157.198, 101.006, 42.704, 0.382)
pt3dadd(157.091, 101.007, 42.749, 0.45)
pt3dadd(156.983, 101.007, 42.793, 0.52)
pt3dadd(156.876, 101.008, 42.838, 0.588)
pt3dadd(156.768, 101.009, 42.883, 0.656)
pt3dadd(156.661, 101.01, 42.927, 0.726)
pt3dadd(156.554, 101.011, 42.972, 0.794)
pt3dadd(156.446, 101.012, 43.017, 0.864)
pt3dadd(156.34, 101.013, 43.061, 0.932)
pt3dadd(156.232, 101.013, 43.106, 1)
pt3dadd(156.126, 101.017, 43.153, 1.076)
pt3dadd(156.02, 101.022, 43.201, 1.152)
pt3dadd(155.915, 101.026, 43.248, 1.23)
pt3dadd(155.809, 101.031, 43.296, 1.306)
pt3dadd(155.705, 101.035, 43.344, 1.384)
pt3dadd(155.599, 101.04, 43.391, 1.46)
pt3dadd(155.494, 101.045, 43.439, 1.538)
pt3dadd(155.388, 101.049, 43.487, 1.614)
pt3dadd(155.282, 101.054, 43.534, 1.692)
pt3dadd(155.178, 101.058, 43.582, 1.768)
pt3dadd(155.081, 101.066, 43.64, 1.772)
pt3dadd(154.986, 101.074, 43.701, 1.758)
pt3dadd(154.891, 101.082, 43.763, 1.746)
pt3dadd(154.796, 101.091, 43.824, 1.732)
pt3dadd(154.702, 101.099, 43.885, 1.72)
pt3dadd(154.607, 101.107, 43.946, 1.706)
pt3dadd(154.513, 101.116, 44.007, 1.692)
pt3dadd(154.418, 101.124, 44.068, 1.68)
pt3dadd(154.324, 101.132, 44.129, 1.666)
pt3dadd(154.229, 101.14, 44.19, 1.654)
pt3dadd(154.142, 101.152, 44.258, 1.652)
pt3dadd(154.057, 101.164, 44.329, 1.652)
pt3dadd(153.973, 101.176, 44.399, 1.652)
pt3dadd(153.888, 101.188, 44.469, 1.652)
pt3dadd(153.804, 101.2, 44.539, 1.652)
pt3dadd(153.719, 101.212, 44.609, 1.652)
pt3dadd(153.635, 101.224, 44.679, 1.652)
pt3dadd(153.55, 101.237, 44.75, 1.654)
pt3dadd(153.464, 101.249, 44.82, 1.654)
pt3dadd(153.38, 101.261, 44.89, 1.654)
pt3dadd(153.307, 101.277, 44.968, 1.668)
pt3dadd(153.235, 101.293, 45.047, 1.682)
pt3dadd(153.163, 101.309, 45.126, 1.698)
pt3dadd(153.091, 101.326, 45.205, 1.714)
pt3dadd(153.019, 101.342, 45.284, 1.728)
pt3dadd(152.947, 101.358, 45.362, 1.744)
pt3dadd(152.876, 101.375, 45.441, 1.758)
pt3dadd(152.804, 101.391, 45.52, 1.774)
pt3dadd(152.732, 101.407, 45.599, 1.79)
pt3dadd(152.66, 101.424, 45.678, 1.804)
pt3dadd(152.578, 101.472, 45.737, 1.766)
pt3dadd(152.494, 101.524, 45.795, 1.722)
pt3dadd(152.411, 101.577, 45.852, 1.678)
pt3dadd(152.327, 101.629, 45.909, 1.634)
pt3dadd(152.244, 101.681, 45.966, 1.59)
pt3dadd(152.16, 101.733, 46.023, 1.546)
pt3dadd(152.076, 101.785, 46.08, 1.502)
pt3dadd(151.993, 101.837, 46.137, 1.46)
pt3dadd(151.909, 101.889, 46.194, 1.416)
pt3dadd(151.825, 101.941, 46.252, 1.372)
pt3dadd(151.74, 101.986, 46.311, 1.352)
pt3dadd(151.654, 102.031, 46.37, 1.334)
pt3dadd(151.568, 102.076, 46.429, 1.316)
pt3dadd(151.482, 102.12, 46.488, 1.3)
pt3dadd(151.397, 102.165, 46.548, 1.282)
pt3dadd(151.31, 102.209, 46.607, 1.266)
pt3dadd(151.225, 102.254, 46.666, 1.248)
pt3dadd(151.139, 102.298, 46.725, 1.23)
pt3dadd(151.054, 102.343, 46.785, 1.214)
pt3dadd(150.967, 102.387, 46.844, 1.196)
pt3dadd(150.881, 102.423, 46.905, 1.208)
pt3dadd(150.793, 102.459, 46.967, 1.222)
pt3dadd(150.706, 102.494, 47.028, 1.236)
pt3dadd(150.618, 102.53, 47.09, 1.25)
pt3dadd(150.53, 102.565, 47.152, 1.264)
pt3dadd(150.443, 102.601, 47.213, 1.278)
pt3dadd(150.355, 102.636, 47.275, 1.29)
pt3dadd(150.268, 102.672, 47.337, 1.304)
pt3dadd(150.18, 102.707, 47.398, 1.318)
pt3dadd(150.092, 102.743, 47.46, 1.332)
pt3dadd(150.013, 102.772, 47.532, 1.274)
pt3dadd(149.936, 102.8, 47.604, 1.21)
pt3dadd(149.858, 102.829, 47.676, 1.146)
pt3dadd(149.78, 102.857, 47.749, 1.082)
pt3dadd(149.702, 102.886, 47.821, 1.016)
pt3dadd(149.626, 102.914, 47.894, 0.952)
pt3dadd(149.548, 102.943, 47.966, 0.888)
pt3dadd(149.47, 102.972, 48.038, 0.824)
pt3dadd(149.392, 103, 48.111, 0.76)
pt3dadd(149.314, 103.029, 48.183, 0.696)
pt3dadd(149.23, 103.065, 48.248, 0.654)
pt3dadd(149.146, 103.101, 48.312, 0.614)
pt3dadd(149.062, 103.137, 48.377, 0.574)
pt3dadd(148.978, 103.173, 48.441, 0.532)
pt3dadd(148.894, 103.21, 48.506, 0.492)
pt3dadd(148.808, 103.246, 48.57, 0.45)
pt3dadd(148.724, 103.282, 48.635, 0.41)
pt3dadd(148.64, 103.318, 48.699, 0.368)
pt3dadd(148.556, 103.355, 48.764, 0.328)
pt3dadd(148.471, 103.392, 48.826, 0.294)
pt3dadd(148.378, 103.44, 48.874, 0.31)
pt3dadd(148.283, 103.488, 48.922, 0.326)
pt3dadd(148.189, 103.536, 48.97, 0.342)
pt3dadd(148.096, 103.584, 49.018, 0.358)
pt3dadd(148.002, 103.632, 49.066, 0.374)
pt3dadd(147.908, 103.68, 49.114, 0.39)
pt3dadd(147.815, 103.728, 49.162, 0.406)
pt3dadd(147.721, 103.776, 49.21, 0.422)
pt3dadd(147.628, 103.824, 49.258, 0.438)
pt3dadd(147.532, 103.869, 49.304, 0.46)
pt3dadd(147.419, 103.89, 49.333, 0.53)
pt3dadd(147.306, 103.91, 49.362, 0.602)
pt3dadd(147.192, 103.931, 49.391, 0.672)
pt3dadd(147.079, 103.951, 49.42, 0.742)
pt3dadd(146.966, 103.971, 49.449, 0.812)
pt3dadd(146.854, 103.992, 49.478, 0.882)
pt3dadd(146.741, 104.012, 49.507, 0.952)
pt3dadd(146.628, 104.033, 49.536, 1.024)
pt3dadd(146.514, 104.053, 49.565, 1.094)
pt3dadd(146.402, 104.071, 49.595, 1.156)
pt3dadd(146.293, 104.074, 49.638, 1.164)
pt3dadd(146.184, 104.076, 49.68, 1.172)
pt3dadd(146.076, 104.078, 49.722, 1.182)
pt3dadd(145.967, 104.08, 49.764, 1.19)
pt3dadd(145.858, 104.082, 49.806, 1.198)
pt3dadd(145.75, 104.085, 49.849, 1.206)
pt3dadd(145.64, 104.087, 49.891, 1.214)
pt3dadd(145.531, 104.089, 49.933, 1.222)
pt3dadd(145.423, 104.091, 49.975, 1.23)
pt3dadd(145.316, 104.085, 50.018, 1.234)
pt3dadd(145.218, 104.046, 50.066, 1.216)
pt3dadd(145.121, 104.006, 50.114, 1.198)
pt3dadd(145.022, 103.967, 50.162, 1.18)
pt3dadd(144.925, 103.927, 50.209, 1.16)
}
}
proc shape3d_177() {
dend_7[41] { pt3dadd(144.827, 103.888, 50.257, 1.142)
pt3dadd(144.73, 103.849, 50.305, 1.124)
pt3dadd(144.631, 103.809, 50.352, 1.106)
pt3dadd(144.534, 103.77, 50.4, 1.088)
pt3dadd(144.436, 103.731, 50.448, 1.07)
pt3dadd(144.374, 103.638, 50.486, 1.054)
pt3dadd(144.313, 103.546, 50.525, 1.038)
pt3dadd(144.252, 103.454, 50.563, 1.02)
pt3dadd(144.19, 103.362, 50.602, 1.004)
pt3dadd(144.128, 103.27, 50.64, 0.988)
pt3dadd(144.067, 103.178, 50.678, 0.97)
pt3dadd(144.006, 103.085, 50.717, 0.954)
pt3dadd(143.944, 102.993, 50.755, 0.938)
pt3dadd(143.882, 102.901, 50.794, 0.92)
pt3dadd(143.821, 102.809, 50.832, 0.904)
}
dend_7[42] {pt3dclear()
pt3dadd(161.592, 102.053, 41.291, 1.864)
pt3dadd(161.594, 102.047, 41.294, 1.86)
pt3dadd(161.629, 101.952, 41.348, 1.792)
pt3dadd(161.665, 101.856, 41.401, 1.724)
pt3dadd(161.7, 101.761, 41.454, 1.656)
pt3dadd(161.736, 101.666, 41.508, 1.588)
pt3dadd(161.771, 101.571, 41.561, 1.52)
pt3dadd(161.807, 101.476, 41.615, 1.452)
pt3dadd(161.842, 101.381, 41.668, 1.384)
pt3dadd(161.878, 101.286, 41.721, 1.316)
pt3dadd(161.912, 101.191, 41.775, 1.248)
pt3dadd(161.948, 101.096, 41.828, 1.18)
pt3dadd(162.006, 101.028, 41.859, 1.158)
pt3dadd(162.12, 101.034, 41.83, 1.254)
pt3dadd(162.235, 101.04, 41.801, 1.352)
pt3dadd(162.35, 101.007, 41.805, 1.356)
pt3dadd(162.464, 100.972, 41.809, 1.356)
pt3dadd(162.559, 100.916, 41.839, 1.356)
pt3dadd(162.642, 100.848, 41.883, 1.356)
pt3dadd(162.697, 100.744, 41.892, 1.356)
pt3dadd(162.749, 100.636, 41.895, 1.356)
pt3dadd(162.799, 100.527, 41.898, 1.356)
pt3dadd(162.84, 100.418, 41.907, 1.356)
pt3dadd(162.84, 100.304, 41.94, 1.356)
pt3dadd(162.84, 100.191, 41.973, 1.356)
pt3dadd(162.844, 100.107, 42.04, 1.356)
pt3dadd(162.87, 100.008, 42.092, 1.356)
pt3dadd(162.898, 99.909, 42.145, 1.356)
pt3dadd(162.924, 99.811, 42.197, 1.356)
pt3dadd(162.952, 99.712, 42.25, 1.356)
pt3dadd(162.964, 99.603, 42.286, 1.356)
pt3dadd(162.97, 99.488, 42.315, 1.356)
pt3dadd(162.99, 99.401, 42.363, 1.356)
pt3dadd(163.039, 99.367, 42.45, 1.356)
pt3dadd(163.102, 99.324, 42.524, 1.356)
pt3dadd(163.186, 99.271, 42.581, 1.356)
pt3dadd(163.286, 99.236, 42.622, 1.356)
pt3dadd(163.397, 99.21, 42.654, 1.356)
pt3dadd(163.482, 99.15, 42.695, 1.356)
pt3dadd(163.55, 99.068, 42.74, 1.356)
pt3dadd(163.619, 98.986, 42.786, 1.356)
pt3dadd(163.656, 98.88, 42.81, 1.356)
pt3dadd(163.679, 98.764, 42.825, 1.356)
pt3dadd(163.71, 98.667, 42.862, 1.356)
pt3dadd(163.756, 98.583, 42.922, 1.356)
pt3dadd(163.8, 98.493, 42.978, 1.356)
pt3dadd(163.844, 98.404, 43.033, 1.356)
pt3dadd(163.889, 98.315, 43.089, 1.356)
pt3dadd(163.937, 98.223, 43.138, 1.356)
pt3dadd(163.988, 98.128, 43.183, 1.356)
pt3dadd(164.039, 98.034, 43.228, 1.356)
pt3dadd(164.089, 97.939, 43.272, 1.356)
pt3dadd(164.156, 97.854, 43.309, 1.356)
pt3dadd(164.25, 97.784, 43.331, 1.356)
pt3dadd(164.344, 97.714, 43.354, 1.356)
pt3dadd(164.437, 97.644, 43.377, 1.356)
pt3dadd(164.531, 97.575, 43.399, 1.356)
pt3dadd(164.639, 97.541, 43.433, 1.356)
pt3dadd(164.747, 97.507, 43.467, 1.356)
pt3dadd(164.752, 97.388, 43.48, 1.356)
pt3dadd(164.758, 97.269, 43.493, 1.356)
pt3dadd(164.76, 97.15, 43.502, 1.356)
pt3dadd(164.76, 97.03, 43.505, 1.356)
pt3dadd(164.76, 96.91, 43.509, 1.356)
pt3dadd(164.764, 96.82, 43.556, 1.356)
pt3dadd(164.77, 96.756, 43.64, 1.356)
pt3dadd(164.792, 96.716, 43.728, 1.356)
pt3dadd(164.839, 96.707, 43.82, 1.356)
pt3dadd(164.86, 96.663, 43.911, 1.356)
pt3dadd(164.878, 96.618, 44.002, 1.356)
pt3dadd(164.898, 96.565, 44.091, 1.356)
pt3dadd(164.917, 96.512, 44.179, 1.356)
pt3dadd(165.01, 96.45, 44.194, 1.356)
pt3dadd(165.112, 96.387, 44.199, 1.356)
pt3dadd(165.221, 96.353, 44.226, 1.356)
pt3dadd(165.331, 96.327, 44.258, 1.356)
pt3dadd(165.416, 96.256, 44.287, 1.356)
pt3dadd(165.504, 96.179, 44.3, 1.356)
pt3dadd(165.602, 96.111, 44.3, 1.356)
pt3dadd(165.692, 96.035, 44.308, 1.356)
pt3dadd(165.763, 95.942, 44.332, 1.356)
pt3dadd(165.84, 95.89, 44.378, 1.356)
pt3dadd(165.925, 95.884, 44.448, 1.356)
pt3dadd(166.02, 95.863, 44.501, 1.356)
pt3dadd(166.127, 95.822, 44.529, 1.356)
pt3dadd(166.22, 95.795, 44.579, 1.356)
pt3dadd(166.297, 95.783, 44.656, 1.356)
pt3dadd(166.373, 95.771, 44.732, 1.356)
pt3dadd(166.454, 95.76, 44.8, 1.356)
pt3dadd(166.574, 95.76, 44.804, 1.356)
pt3dadd(166.694, 95.76, 44.808, 1.356)
pt3dadd(166.807, 95.76, 44.826, 1.356)
pt3dadd(166.896, 95.76, 44.893, 1.356)
pt3dadd(166.986, 95.76, 44.959, 1.356)
pt3dadd(167.07, 95.76, 45.031, 1.356)
pt3dadd(167.144, 95.76, 45.109, 1.356)
pt3dadd(167.23, 95.76, 45.174, 1.356)
pt3dadd(167.339, 95.76, 45.213, 1.356)
pt3dadd(167.441, 95.76, 45.265, 1.356)
pt3dadd(167.544, 95.76, 45.317, 1.356)
pt3dadd(167.646, 95.76, 45.37, 1.356)
pt3dadd(167.748, 95.76, 45.422, 1.356)
pt3dadd(167.854, 95.77, 45.466, 1.356)
pt3dadd(167.964, 95.798, 45.497, 1.356)
pt3dadd(168.076, 95.826, 45.527, 1.356)
pt3dadd(168.186, 95.853, 45.557, 1.356)
pt3dadd(168.298, 95.881, 45.587, 1.356)
pt3dadd(168.41, 95.913, 45.6, 1.356)
pt3dadd(168.524, 95.949, 45.6, 1.356)
pt3dadd(168.64, 95.985, 45.6, 1.356)
pt3dadd(168.754, 96.021, 45.6, 1.356)
pt3dadd(168.869, 96.057, 45.6, 1.356)
pt3dadd(168.983, 96.092, 45.6, 1.356)
pt3dadd(169.069, 96.171, 45.622, 1.356)
pt3dadd(169.156, 96.25, 45.645, 1.356)
pt3dadd(169.241, 96.33, 45.668, 1.356)
pt3dadd(169.326, 96.409, 45.691, 1.356)
pt3dadd(169.424, 96.473, 45.7, 1.356)
pt3dadd(169.532, 96.527, 45.7, 1.356)
pt3dadd(169.639, 96.58, 45.7, 1.356)
pt3dadd(169.747, 96.634, 45.7, 1.356)
pt3dadd(169.854, 96.687, 45.7, 1.356)
pt3dadd(169.957, 96.749, 45.7, 1.356)
pt3dadd(170.038, 96.837, 45.7, 1.356)
pt3dadd(170.12, 96.921, 45.7, 1.356)
pt3dadd(170.233, 96.954, 45.7, 1.356)
pt3dadd(170.353, 96.96, 45.7, 1.356)
pt3dadd(170.472, 96.96, 45.708, 1.356)
pt3dadd(170.584, 96.96, 45.743, 1.356)
pt3dadd(170.63, 96.96, 45.833, 1.356)
pt3dadd(170.64, 96.96, 45.932, 1.356)
pt3dadd(170.64, 96.965, 46.032, 1.356)
pt3dadd(170.648, 96.989, 46.129, 1.356)
pt3dadd(170.684, 97.043, 46.211, 1.356)
pt3dadd(170.723, 97.069, 46.303, 1.356)
pt3dadd(170.762, 97.096, 46.394, 1.356)
pt3dadd(170.806, 97.147, 46.478, 1.356)
pt3dadd(170.857, 97.188, 46.559, 1.356)
pt3dadd(170.942, 97.195, 46.629, 1.356)
pt3dadd(171.031, 97.205, 46.69, 1.356)
pt3dadd(171.146, 97.24, 46.694, 1.356)
pt3dadd(171.26, 97.275, 46.699, 1.356)
pt3dadd(171.378, 97.3, 46.7, 1.356)
pt3dadd(171.496, 97.325, 46.7, 1.356)
pt3dadd(171.608, 97.365, 46.7, 1.356)
pt3dadd(171.721, 97.405, 46.7, 1.356)
pt3dadd(171.815, 97.477, 46.7, 1.356)
pt3dadd(171.904, 97.558, 46.7, 1.356)
pt3dadd(171.998, 97.631, 46.7, 1.356)
pt3dadd(172.098, 97.699, 46.7, 1.356)
pt3dadd(172.157, 97.792, 46.7, 1.356)
pt3dadd(172.177, 97.91, 46.7, 1.356)
pt3dadd(172.198, 98.028, 46.7, 1.356)
pt3dadd(172.256, 98.133, 46.7, 1.356)
pt3dadd(172.319, 98.235, 46.7, 1.356)
pt3dadd(172.381, 98.338, 46.7, 1.356)
pt3dadd(172.456, 98.425, 46.704, 1.356)
pt3dadd(172.565, 98.47, 46.72, 1.356)
pt3dadd(172.673, 98.511, 46.743, 1.356)
pt3dadd(172.766, 98.559, 46.784, 1.356)
pt3dadd(172.855, 98.631, 46.815, 1.356)
pt3dadd(172.943, 98.704, 46.846, 1.356)
pt3dadd(173.03, 98.776, 46.878, 1.356)
pt3dadd(173.125, 98.837, 46.91, 1.356)
pt3dadd(173.232, 98.87, 46.944, 1.356)
pt3dadd(173.326, 98.91, 46.99, 1.356)
pt3dadd(173.386, 98.962, 47.065, 1.356)
pt3dadd(173.47, 98.99, 47.125, 1.356)
pt3dadd(173.575, 98.996, 47.172, 1.356)
pt3dadd(173.687, 99, 47.205, 1.356)
pt3dadd(173.806, 99, 47.217, 1.356)
pt3dadd(173.924, 99, 47.23, 1.356)
pt3dadd(174.038, 99, 47.259, 1.356)
pt3dadd(174.152, 99, 47.289, 1.356)
pt3dadd(174.272, 99, 47.291, 1.356)
pt3dadd(174.392, 99, 47.292, 1.356)
pt3dadd(174.512, 99, 47.294, 1.356)
pt3dadd(174.632, 99, 47.296, 1.356)
pt3dadd(174.752, 99, 47.297, 1.356)
pt3dadd(174.872, 99, 47.299, 1.356)
pt3dadd(174.992, 99, 47.3, 1.356)
pt3dadd(175.112, 99, 47.3, 1.356)
pt3dadd(175.232, 99, 47.3, 1.356)
pt3dadd(175.352, 99, 47.3, 1.356)
pt3dadd(175.472, 99, 47.3, 1.356)
}
}
proc shape3d_178() {
dend_7[42] { pt3dadd(175.592, 99, 47.3, 1.356)
pt3dadd(175.712, 99, 47.3, 1.356)
pt3dadd(175.832, 98.999, 47.303, 1.356)
pt3dadd(175.951, 98.997, 47.313, 1.356)
pt3dadd(176.07, 98.995, 47.324, 1.356)
pt3dadd(176.19, 98.993, 47.335, 1.356)
pt3dadd(176.309, 98.991, 47.345, 1.356)
pt3dadd(176.429, 98.989, 47.356, 1.356)
pt3dadd(176.548, 98.987, 47.367, 1.356)
pt3dadd(176.662, 98.965, 47.393, 1.356)
pt3dadd(176.776, 98.944, 47.42, 1.356)
pt3dadd(176.888, 98.923, 47.446, 1.356)
pt3dadd(177.002, 98.902, 47.473, 1.356)
pt3dadd(177.116, 98.881, 47.499, 1.356)
pt3dadd(177.236, 98.88, 47.5, 1.356)
pt3dadd(177.356, 98.88, 47.5, 1.356)
pt3dadd(177.476, 98.88, 47.5, 1.356)
pt3dadd(177.596, 98.88, 47.5, 1.356)
pt3dadd(177.716, 98.88, 47.5, 1.356)
pt3dadd(177.836, 98.88, 47.5, 1.356)
pt3dadd(177.956, 98.88, 47.5, 1.356)
pt3dadd(178.067, 98.926, 47.5, 1.356)
pt3dadd(178.177, 98.974, 47.5, 1.356)
pt3dadd(178.288, 99.021, 47.5, 1.356)
pt3dadd(178.397, 99.069, 47.5, 1.356)
pt3dadd(178.507, 99.116, 47.5, 1.356)
pt3dadd(178.614, 99.17, 47.509, 1.356)
pt3dadd(178.718, 99.226, 47.523, 1.356)
pt3dadd(178.823, 99.282, 47.537, 1.356)
pt3dadd(178.927, 99.339, 47.552, 1.356)
pt3dadd(179.032, 99.395, 47.566, 1.356)
pt3dadd(179.128, 99.467, 47.573, 1.356)
pt3dadd(179.224, 99.54, 47.58, 1.356)
pt3dadd(179.318, 99.612, 47.587, 1.356)
pt3dadd(179.413, 99.685, 47.594, 1.356)
pt3dadd(179.506, 99.76, 47.6, 1.356)
pt3dadd(179.587, 99.849, 47.6, 1.356)
pt3dadd(179.668, 99.938, 47.6, 1.356)
pt3dadd(179.748, 100.027, 47.6, 1.356)
pt3dadd(179.828, 100.116, 47.6, 1.356)
pt3dadd(179.914, 100.2, 47.6, 1.356)
pt3dadd(180.013, 100.266, 47.6, 1.356)
pt3dadd(180.114, 100.332, 47.6, 1.356)
pt3dadd(180.214, 100.398, 47.6, 1.356)
pt3dadd(180.314, 100.464, 47.6, 1.356)
pt3dadd(180.414, 100.528, 47.595, 1.356)
pt3dadd(180.516, 100.578, 47.564, 1.356)
pt3dadd(180.618, 100.629, 47.532, 1.356)
pt3dadd(180.72, 100.68, 47.5, 1.356)
}
dend_7[43] {pt3dclear()
pt3dadd(170.188, 113.405, 17.961, 7.006)
pt3dadd(170.164, 113.412, 17.98, 6.998)
pt3dadd(170.08, 113.441, 18.048, 6.968)
pt3dadd(169.996, 113.469, 18.116, 6.94)
pt3dadd(169.913, 113.498, 18.183, 6.912)
pt3dadd(169.829, 113.526, 18.251, 6.882)
pt3dadd(169.745, 113.555, 18.319, 6.854)
pt3dadd(169.662, 113.583, 18.386, 6.824)
pt3dadd(169.578, 113.612, 18.454, 6.796)
pt3dadd(169.494, 113.64, 18.522, 6.766)
pt3dadd(169.41, 113.668, 18.589, 6.738)
pt3dadd(169.327, 113.697, 18.657, 6.71)
pt3dadd(169.243, 113.725, 18.725, 6.68)
pt3dadd(169.159, 113.754, 18.792, 6.652)
pt3dadd(169.075, 113.782, 18.86, 6.622)
pt3dadd(168.992, 113.81, 18.928, 6.594)
pt3dadd(168.908, 113.838, 18.995, 6.566)
pt3dadd(168.824, 113.867, 19.063, 6.536)
pt3dadd(168.74, 113.895, 19.13, 6.508)
pt3dadd(168.658, 113.923, 19.198, 6.478)
pt3dadd(168.574, 113.952, 19.266, 6.45)
pt3dadd(168.49, 113.98, 19.333, 6.42)
pt3dadd(168.406, 113.991, 19.404, 6.302)
pt3dadd(168.322, 113.999, 19.476, 6.172)
pt3dadd(168.239, 114.008, 19.547, 6.042)
pt3dadd(168.155, 114.016, 19.618, 5.912)
pt3dadd(168.071, 114.024, 19.69, 5.78)
pt3dadd(167.987, 114.033, 19.761, 5.65)
pt3dadd(167.904, 114.041, 19.832, 5.52)
pt3dadd(167.82, 114.05, 19.903, 5.39)
pt3dadd(167.736, 114.058, 19.975, 5.26)
pt3dadd(167.652, 114.067, 20.046, 5.13)
pt3dadd(167.569, 114.067, 20.118, 4.956)
pt3dadd(167.486, 114.066, 20.19, 4.782)
pt3dadd(167.404, 114.065, 20.263, 4.608)
pt3dadd(167.321, 114.065, 20.335, 4.432)
pt3dadd(167.238, 114.064, 20.407, 4.258)
pt3dadd(167.155, 114.064, 20.479, 4.084)
pt3dadd(167.071, 114.063, 20.552, 3.908)
pt3dadd(166.988, 114.062, 20.624, 3.734)
pt3dadd(166.906, 114.062, 20.696, 3.56)
pt3dadd(166.823, 114.061, 20.769, 3.384)
pt3dadd(166.75, 114.06, 20.847, 3.246)
pt3dadd(166.676, 114.06, 20.927, 3.108)
pt3dadd(166.602, 114.059, 21.006, 2.972)
pt3dadd(166.529, 114.058, 21.085, 2.836)
pt3dadd(166.456, 114.057, 21.164, 2.698)
pt3dadd(166.382, 114.056, 21.243, 2.562)
pt3dadd(166.309, 114.055, 21.323, 2.424)
pt3dadd(166.236, 114.054, 21.402, 2.288)
pt3dadd(166.163, 114.054, 21.481, 2.15)
pt3dadd(166.09, 114.053, 21.56, 2.014)
pt3dadd(166.001, 114.051, 21.627, 1.928)
pt3dadd(165.912, 114.05, 21.694, 1.844)
pt3dadd(165.823, 114.048, 21.761, 1.76)
pt3dadd(165.733, 114.047, 21.828, 1.676)
pt3dadd(165.644, 114.045, 21.895, 1.592)
pt3dadd(165.556, 114.044, 21.962, 1.508)
pt3dadd(165.467, 114.042, 22.029, 1.424)
pt3dadd(165.378, 114.041, 22.096, 1.34)
pt3dadd(165.288, 114.04, 22.163, 1.254)
pt3dadd(165.194, 114.038, 22.225, 1.184)
pt3dadd(165.086, 114.035, 22.268, 1.162)
pt3dadd(164.978, 114.033, 22.311, 1.14)
pt3dadd(164.87, 114.03, 22.354, 1.118)
pt3dadd(164.762, 114.028, 22.397, 1.096)
pt3dadd(164.653, 114.025, 22.44, 1.074)
pt3dadd(164.545, 114.023, 22.483, 1.05)
pt3dadd(164.437, 114.02, 22.526, 1.028)
pt3dadd(164.329, 114.018, 22.569, 1.006)
pt3dadd(164.22, 114.015, 22.612, 0.984)
pt3dadd(164.11, 114.012, 22.65, 0.978)
pt3dadd(163.993, 114.008, 22.672, 1.012)
pt3dadd(163.876, 114.004, 22.695, 1.046)
pt3dadd(163.759, 113.999, 22.717, 1.08)
pt3dadd(163.643, 113.995, 22.74, 1.116)
pt3dadd(163.525, 113.991, 22.762, 1.15)
pt3dadd(163.409, 113.987, 22.785, 1.184)
pt3dadd(163.291, 113.983, 22.807, 1.218)
pt3dadd(163.175, 113.978, 22.83, 1.252)
pt3dadd(163.058, 113.974, 22.852, 1.288)
pt3dadd(162.941, 113.969, 22.873, 1.298)
pt3dadd(162.823, 113.96, 22.889, 1.246)
pt3dadd(162.704, 113.951, 22.905, 1.194)
pt3dadd(162.587, 113.942, 22.921, 1.142)
pt3dadd(162.468, 113.934, 22.937, 1.09)
pt3dadd(162.35, 113.925, 22.952, 1.038)
pt3dadd(162.232, 113.916, 22.968, 0.986)
pt3dadd(162.114, 113.907, 22.984, 0.934)
pt3dadd(161.995, 113.899, 23, 0.882)
pt3dadd(161.878, 113.89, 23.016, 0.832)
pt3dadd(161.761, 113.879, 23.038, 0.786)
pt3dadd(161.651, 113.865, 23.074, 0.76)
pt3dadd(161.539, 113.851, 23.111, 0.734)
pt3dadd(161.429, 113.836, 23.147, 0.708)
pt3dadd(161.318, 113.822, 23.183, 0.682)
pt3dadd(161.207, 113.808, 23.219, 0.658)
pt3dadd(161.096, 113.793, 23.255, 0.632)
pt3dadd(160.985, 113.779, 23.292, 0.606)
pt3dadd(160.874, 113.765, 23.328, 0.58)
pt3dadd(160.763, 113.751, 23.364, 0.554)
pt3dadd(160.66, 113.728, 23.41, 0.556)
pt3dadd(160.562, 113.698, 23.462, 0.578)
pt3dadd(160.464, 113.669, 23.514, 0.602)
pt3dadd(160.366, 113.64, 23.567, 0.626)
pt3dadd(160.268, 113.61, 23.619, 0.648)
pt3dadd(160.17, 113.581, 23.672, 0.672)
pt3dadd(160.073, 113.552, 23.724, 0.694)
pt3dadd(159.974, 113.522, 23.776, 0.718)
pt3dadd(159.876, 113.493, 23.829, 0.742)
pt3dadd(159.779, 113.464, 23.881, 0.764)
pt3dadd(159.68, 113.418, 23.922, 0.794)
pt3dadd(159.582, 113.365, 23.958, 0.824)
pt3dadd(159.484, 113.312, 23.995, 0.856)
pt3dadd(159.385, 113.259, 24.031, 0.888)
pt3dadd(159.287, 113.206, 24.067, 0.92)
pt3dadd(159.187, 113.153, 24.104, 0.952)
pt3dadd(159.089, 113.1, 24.14, 0.982)
pt3dadd(158.99, 113.047, 24.176, 1.014)
pt3dadd(158.892, 112.994, 24.213, 1.046)
pt3dadd(158.794, 112.941, 24.249, 1.078)
pt3dadd(158.688, 112.901, 24.28, 1.07)
pt3dadd(158.578, 112.866, 24.308, 1.05)
pt3dadd(158.468, 112.831, 24.336, 1.028)
pt3dadd(158.359, 112.796, 24.365, 1.006)
pt3dadd(158.249, 112.761, 24.393, 0.984)
pt3dadd(158.14, 112.726, 24.421, 0.962)
pt3dadd(158.03, 112.691, 24.45, 0.942)
pt3dadd(157.92, 112.656, 24.478, 0.92)
pt3dadd(157.811, 112.621, 24.507, 0.898)
pt3dadd(157.702, 112.586, 24.535, 0.876)
pt3dadd(157.591, 112.558, 24.567, 0.85)
pt3dadd(157.481, 112.532, 24.6, 0.82)
pt3dadd(157.37, 112.507, 24.633, 0.792)
pt3dadd(157.26, 112.481, 24.666, 0.764)
pt3dadd(157.15, 112.455, 24.698, 0.734)
pt3dadd(157.039, 112.43, 24.731, 0.706)
pt3dadd(156.929, 112.404, 24.764, 0.678)
pt3dadd(156.818, 112.379, 24.797, 0.648)
pt3dadd(156.708, 112.353, 24.83, 0.62)
pt3dadd(156.598, 112.328, 24.863, 0.59)
pt3dadd(156.49, 112.311, 24.904, 0.564)
pt3dadd(156.382, 112.298, 24.947, 0.538)
pt3dadd(156.274, 112.284, 24.99, 0.512)
pt3dadd(156.167, 112.27, 25.032, 0.486)
pt3dadd(156.059, 112.256, 25.075, 0.46)
pt3dadd(155.952, 112.242, 25.118, 0.434)
pt3dadd(155.844, 112.229, 25.161, 0.408)
pt3dadd(155.736, 112.215, 25.204, 0.382)
pt3dadd(155.629, 112.201, 25.247, 0.356)
pt3dadd(155.521, 112.187, 25.29, 0.33)
}
}
proc shape3d_179() {
dend_7[43] { pt3dadd(155.411, 112.178, 25.329, 0.332)
pt3dadd(155.3, 112.17, 25.367, 0.338)
pt3dadd(155.19, 112.162, 25.405, 0.344)
pt3dadd(155.08, 112.154, 25.444, 0.35)
pt3dadd(154.969, 112.146, 25.482, 0.358)
pt3dadd(154.859, 112.138, 25.521, 0.364)
pt3dadd(154.748, 112.131, 25.559, 0.372)
pt3dadd(154.638, 112.123, 25.597, 0.378)
pt3dadd(154.528, 112.115, 25.636, 0.384)
pt3dadd(154.416, 112.107, 25.674, 0.39)
pt3dadd(154.304, 112.102, 25.71, 0.414)
pt3dadd(154.193, 112.098, 25.746, 0.442)
pt3dadd(154.08, 112.093, 25.781, 0.468)
pt3dadd(153.968, 112.089, 25.817, 0.496)
pt3dadd(153.857, 112.085, 25.852, 0.522)
pt3dadd(153.744, 112.081, 25.888, 0.55)
pt3dadd(153.632, 112.077, 25.923, 0.576)
pt3dadd(153.52, 112.072, 25.959, 0.604)
pt3dadd(153.408, 112.068, 25.994, 0.63)
pt3dadd(153.295, 112.064, 26.03, 0.658)
pt3dadd(153.19, 112.056, 26.074, 0.684)
pt3dadd(153.084, 112.046, 26.122, 0.71)
pt3dadd(152.978, 112.037, 26.169, 0.734)
pt3dadd(152.873, 112.028, 26.216, 0.76)
pt3dadd(152.767, 112.019, 26.263, 0.786)
pt3dadd(152.662, 112.009, 26.31, 0.812)
pt3dadd(152.556, 112, 26.357, 0.836)
pt3dadd(152.452, 111.991, 26.405, 0.862)
pt3dadd(152.346, 111.982, 26.452, 0.888)
pt3dadd(152.24, 111.972, 26.499, 0.914)
pt3dadd(152.134, 111.962, 26.544, 0.93)
pt3dadd(152.028, 111.951, 26.589, 0.944)
pt3dadd(151.921, 111.94, 26.635, 0.958)
pt3dadd(151.814, 111.929, 26.68, 0.974)
pt3dadd(151.708, 111.918, 26.725, 0.988)
pt3dadd(151.601, 111.907, 26.77, 1.002)
pt3dadd(151.495, 111.896, 26.815, 1.016)
pt3dadd(151.388, 111.885, 26.86, 1.03)
pt3dadd(151.282, 111.874, 26.905, 1.046)
pt3dadd(151.175, 111.863, 26.95, 1.06)
pt3dadd(151.063, 111.847, 26.983, 1.028)
pt3dadd(150.95, 111.829, 27.014, 0.986)
pt3dadd(150.838, 111.811, 27.045, 0.944)
pt3dadd(150.725, 111.793, 27.076, 0.904)
pt3dadd(150.612, 111.776, 27.106, 0.862)
pt3dadd(150.499, 111.758, 27.137, 0.822)
pt3dadd(150.386, 111.74, 27.168, 0.78)
pt3dadd(150.274, 111.722, 27.199, 0.74)
pt3dadd(150.161, 111.705, 27.23, 0.698)
pt3dadd(150.048, 111.687, 27.26, 0.656)
pt3dadd(149.938, 111.653, 27.288, 0.656)
pt3dadd(149.828, 111.617, 27.314, 0.664)
pt3dadd(149.718, 111.581, 27.34, 0.67)
pt3dadd(149.609, 111.544, 27.367, 0.676)
pt3dadd(149.498, 111.508, 27.393, 0.684)
pt3dadd(149.388, 111.472, 27.42, 0.69)
pt3dadd(149.279, 111.435, 27.446, 0.698)
pt3dadd(149.168, 111.399, 27.472, 0.704)
pt3dadd(149.059, 111.363, 27.499, 0.712)
pt3dadd(148.949, 111.326, 27.525, 0.718)
pt3dadd(148.844, 111.274, 27.547, 0.768)
pt3dadd(148.74, 111.221, 27.569, 0.82)
pt3dadd(148.636, 111.168, 27.59, 0.872)
pt3dadd(148.531, 111.115, 27.612, 0.922)
pt3dadd(148.427, 111.062, 27.634, 0.974)
pt3dadd(148.322, 111.009, 27.655, 1.026)
pt3dadd(148.218, 110.956, 27.677, 1.078)
pt3dadd(148.114, 110.902, 27.699, 1.128)
pt3dadd(148.009, 110.849, 27.72, 1.18)
pt3dadd(147.905, 110.796, 27.742, 1.232)
pt3dadd(147.802, 110.75, 27.776, 1.226)
pt3dadd(147.7, 110.703, 27.811, 1.218)
pt3dadd(147.596, 110.657, 27.845, 1.212)
pt3dadd(147.493, 110.61, 27.88, 1.204)
pt3dadd(147.391, 110.564, 27.914, 1.198)
pt3dadd(147.288, 110.518, 27.949, 1.19)
pt3dadd(147.186, 110.471, 27.983, 1.182)
pt3dadd(147.083, 110.425, 28.018, 1.176)
pt3dadd(146.981, 110.378, 28.052, 1.168)
pt3dadd(146.878, 110.332, 28.087, 1.16)
pt3dadd(146.777, 110.288, 28.125, 1.134)
pt3dadd(146.675, 110.244, 28.164, 1.11)
pt3dadd(146.574, 110.199, 28.202, 1.084)
pt3dadd(146.472, 110.155, 28.241, 1.058)
pt3dadd(146.37, 110.111, 28.279, 1.032)
pt3dadd(146.269, 110.067, 28.318, 1.006)
pt3dadd(146.167, 110.023, 28.356, 0.982)
pt3dadd(146.065, 109.978, 28.395, 0.956)
pt3dadd(145.964, 109.934, 28.433, 0.93)
pt3dadd(145.862, 109.89, 28.472, 0.904)
}
dend_7[44] {pt3dclear()
pt3dadd(145.862, 109.89, 28.472, 0.904)
pt3dadd(145.793, 109.84, 28.493, 0.894)
pt3dadd(145.698, 109.774, 28.521, 0.882)
pt3dadd(145.604, 109.707, 28.55, 0.87)
pt3dadd(145.511, 109.641, 28.578, 0.856)
pt3dadd(145.416, 109.575, 28.607, 0.844)
pt3dadd(145.322, 109.509, 28.635, 0.832)
pt3dadd(145.229, 109.443, 28.664, 0.818)
pt3dadd(145.134, 109.376, 28.692, 0.806)
pt3dadd(145.04, 109.31, 28.721, 0.794)
pt3dadd(144.947, 109.244, 28.75, 0.78)
pt3dadd(144.852, 109.178, 28.778, 0.768)
pt3dadd(144.758, 109.112, 28.806, 0.756)
pt3dadd(144.664, 109.046, 28.835, 0.748)
pt3dadd(144.566, 108.983, 28.862, 0.762)
pt3dadd(144.47, 108.92, 28.889, 0.778)
pt3dadd(144.373, 108.857, 28.916, 0.792)
pt3dadd(144.277, 108.794, 28.944, 0.806)
pt3dadd(144.18, 108.731, 28.971, 0.822)
pt3dadd(144.083, 108.667, 28.998, 0.836)
pt3dadd(143.987, 108.604, 29.025, 0.85)
pt3dadd(143.89, 108.541, 29.052, 0.864)
pt3dadd(143.794, 108.478, 29.08, 0.88)
pt3dadd(143.696, 108.416, 29.106, 0.9)
pt3dadd(143.596, 108.357, 29.132, 0.946)
pt3dadd(143.496, 108.297, 29.158, 0.992)
pt3dadd(143.396, 108.238, 29.183, 1.036)
pt3dadd(143.297, 108.179, 29.209, 1.082)
pt3dadd(143.197, 108.12, 29.234, 1.126)
pt3dadd(143.098, 108.06, 29.26, 1.172)
pt3dadd(142.998, 108.001, 29.286, 1.218)
pt3dadd(142.898, 107.942, 29.311, 1.262)
pt3dadd(142.799, 107.882, 29.337, 1.308)
pt3dadd(142.708, 107.817, 29.367, 1.338)
pt3dadd(142.65, 107.726, 29.412, 1.31)
pt3dadd(142.592, 107.636, 29.457, 1.282)
pt3dadd(142.535, 107.546, 29.502, 1.252)
pt3dadd(142.477, 107.456, 29.548, 1.224)
pt3dadd(142.42, 107.366, 29.593, 1.196)
pt3dadd(142.362, 107.275, 29.638, 1.168)
pt3dadd(142.306, 107.185, 29.683, 1.14)
pt3dadd(142.248, 107.095, 29.729, 1.112)
pt3dadd(142.19, 107.005, 29.774, 1.084)
pt3dadd(142.135, 106.912, 29.819, 1.062)
pt3dadd(142.088, 106.813, 29.86, 1.062)
pt3dadd(142.043, 106.715, 29.902, 1.06)
pt3dadd(141.997, 106.616, 29.943, 1.06)
pt3dadd(141.95, 106.517, 29.985, 1.058)
pt3dadd(141.905, 106.418, 30.026, 1.058)
pt3dadd(141.858, 106.319, 30.068, 1.056)
pt3dadd(141.812, 106.22, 30.109, 1.056)
pt3dadd(141.766, 106.121, 30.151, 1.056)
pt3dadd(141.72, 106.022, 30.192, 1.054)
pt3dadd(141.677, 105.921, 30.232, 1.062)
pt3dadd(141.641, 105.815, 30.268, 1.092)
pt3dadd(141.605, 105.709, 30.304, 1.12)
pt3dadd(141.57, 105.603, 30.34, 1.148)
pt3dadd(141.534, 105.497, 30.376, 1.178)
pt3dadd(141.498, 105.391, 30.412, 1.206)
pt3dadd(141.462, 105.285, 30.448, 1.234)
pt3dadd(141.427, 105.178, 30.484, 1.264)
pt3dadd(141.391, 105.072, 30.52, 1.292)
pt3dadd(141.355, 104.966, 30.556, 1.32)
pt3dadd(141.313, 104.862, 30.589, 1.326)
pt3dadd(141.256, 104.76, 30.614, 1.286)
pt3dadd(141.199, 104.659, 30.64, 1.244)
pt3dadd(141.143, 104.558, 30.665, 1.202)
pt3dadd(141.085, 104.457, 30.69, 1.16)
pt3dadd(141.029, 104.356, 30.716, 1.118)
pt3dadd(140.971, 104.254, 30.741, 1.076)
pt3dadd(140.915, 104.153, 30.766, 1.036)
pt3dadd(140.858, 104.052, 30.792, 0.994)
pt3dadd(140.801, 103.951, 30.817, 0.952)
pt3dadd(140.744, 103.852, 30.846, 0.916)
pt3dadd(140.686, 103.757, 30.885, 0.89)
pt3dadd(140.628, 103.663, 30.924, 0.866)
pt3dadd(140.57, 103.569, 30.962, 0.84)
pt3dadd(140.513, 103.474, 31.001, 0.816)
pt3dadd(140.455, 103.38, 31.04, 0.79)
pt3dadd(140.396, 103.286, 31.079, 0.766)
pt3dadd(140.339, 103.192, 31.117, 0.742)
pt3dadd(140.281, 103.097, 31.156, 0.716)
pt3dadd(140.224, 103.003, 31.195, 0.692)
pt3dadd(140.165, 102.915, 31.241, 0.678)
pt3dadd(140.107, 102.833, 31.297, 0.68)
pt3dadd(140.05, 102.752, 31.352, 0.682)
pt3dadd(139.991, 102.671, 31.407, 0.684)
pt3dadd(139.933, 102.589, 31.463, 0.686)
pt3dadd(139.874, 102.508, 31.518, 0.688)
pt3dadd(139.817, 102.426, 31.573, 0.69)
pt3dadd(139.759, 102.345, 31.629, 0.69)
pt3dadd(139.7, 102.264, 31.684, 0.692)
pt3dadd(139.643, 102.182, 31.739, 0.694)
pt3dadd(139.578, 102.1, 31.786, 0.708)
pt3dadd(139.506, 102.016, 31.825, 0.736)
pt3dadd(139.434, 101.932, 31.863, 0.766)
pt3dadd(139.362, 101.848, 31.902, 0.794)
pt3dadd(139.289, 101.764, 31.94, 0.822)
pt3dadd(139.217, 101.679, 31.979, 0.85)
pt3dadd(139.145, 101.595, 32.017, 0.878)
pt3dadd(139.073, 101.511, 32.056, 0.906)
pt3dadd(139.001, 101.427, 32.094, 0.934)
pt3dadd(138.929, 101.343, 32.133, 0.962)
pt3dadd(138.862, 101.258, 32.174, 0.98)
pt3dadd(138.799, 101.171, 32.22, 0.99)
pt3dadd(138.737, 101.084, 32.266, 1)
pt3dadd(138.674, 100.998, 32.311, 1.01)
pt3dadd(138.612, 100.911, 32.357, 1.018)
pt3dadd(138.55, 100.824, 32.403, 1.028)
pt3dadd(138.487, 100.737, 32.448, 1.038)
}
}
proc shape3d_180() {
dend_7[44] { pt3dadd(138.426, 100.651, 32.494, 1.048)
pt3dadd(138.364, 100.564, 32.539, 1.058)
pt3dadd(138.301, 100.477, 32.585, 1.066)
pt3dadd(138.246, 100.389, 32.635, 1.064)
pt3dadd(138.197, 100.301, 32.689, 1.05)
pt3dadd(138.148, 100.212, 32.743, 1.038)
pt3dadd(138.098, 100.124, 32.796, 1.024)
pt3dadd(138.049, 100.035, 32.85, 1.01)
pt3dadd(137.999, 99.947, 32.903, 0.998)
pt3dadd(137.95, 99.859, 32.957, 0.984)
pt3dadd(137.9, 99.77, 33.011, 0.972)
pt3dadd(137.851, 99.682, 33.064, 0.958)
pt3dadd(137.802, 99.593, 33.118, 0.946)
pt3dadd(137.744, 99.504, 33.163, 0.962)
pt3dadd(137.68, 99.414, 33.202, 1.006)
pt3dadd(137.616, 99.324, 33.241, 1.048)
pt3dadd(137.551, 99.234, 33.28, 1.09)
pt3dadd(137.488, 99.144, 33.318, 1.132)
pt3dadd(137.423, 99.054, 33.357, 1.174)
pt3dadd(137.359, 98.964, 33.396, 1.218)
pt3dadd(137.294, 98.874, 33.435, 1.26)
pt3dadd(137.23, 98.784, 33.473, 1.302)
pt3dadd(137.166, 98.694, 33.512, 1.344)
pt3dadd(137.099, 98.604, 33.547, 1.4)
pt3dadd(137.029, 98.514, 33.58, 1.462)
pt3dadd(136.96, 98.424, 33.613, 1.524)
pt3dadd(136.891, 98.335, 33.646, 1.586)
pt3dadd(136.822, 98.245, 33.679, 1.65)
pt3dadd(136.752, 98.155, 33.711, 1.712)
pt3dadd(136.684, 98.065, 33.744, 1.774)
pt3dadd(136.614, 97.976, 33.777, 1.836)
pt3dadd(136.544, 97.886, 33.81, 1.9)
pt3dadd(136.476, 97.796, 33.843, 1.962)
pt3dadd(136.398, 97.722, 33.886, 1.964)
pt3dadd(136.318, 97.657, 33.936, 1.932)
pt3dadd(136.236, 97.592, 33.986, 1.9)
pt3dadd(136.154, 97.527, 34.035, 1.868)
pt3dadd(136.073, 97.462, 34.084, 1.836)
pt3dadd(135.991, 97.397, 34.134, 1.804)
pt3dadd(135.91, 97.332, 34.184, 1.772)
pt3dadd(135.828, 97.267, 34.233, 1.74)
pt3dadd(135.746, 97.201, 34.283, 1.706)
pt3dadd(135.666, 97.136, 34.332, 1.674)
pt3dadd(135.586, 97.069, 34.381, 1.644)
pt3dadd(135.505, 96.999, 34.428, 1.612)
pt3dadd(135.426, 96.93, 34.476, 1.582)
pt3dadd(135.347, 96.861, 34.524, 1.55)
pt3dadd(135.268, 96.792, 34.571, 1.52)
pt3dadd(135.187, 96.722, 34.619, 1.488)
pt3dadd(135.108, 96.653, 34.667, 1.458)
pt3dadd(135.029, 96.584, 34.715, 1.426)
pt3dadd(134.95, 96.515, 34.763, 1.396)
pt3dadd(134.869, 96.445, 34.81, 1.364)
pt3dadd(134.798, 96.362, 34.85, 1.356)
pt3dadd(134.73, 96.274, 34.887, 1.356)
pt3dadd(134.662, 96.186, 34.923, 1.356)
pt3dadd(134.593, 96.098, 34.96, 1.356)
pt3dadd(134.525, 96.01, 34.996, 1.356)
pt3dadd(134.455, 95.922, 35.033, 1.356)
pt3dadd(134.387, 95.833, 35.07, 1.356)
pt3dadd(134.318, 95.745, 35.106, 1.356)
pt3dadd(134.25, 95.657, 35.143, 1.356)
pt3dadd(134.182, 95.569, 35.18, 1.356)
pt3dadd(134.11, 95.48, 35.21, 1.356)
pt3dadd(134.036, 95.391, 35.238, 1.356)
pt3dadd(133.963, 95.302, 35.266, 1.356)
pt3dadd(133.891, 95.213, 35.294, 1.356)
pt3dadd(133.818, 95.124, 35.322, 1.356)
pt3dadd(133.745, 95.035, 35.35, 1.356)
pt3dadd(133.672, 94.946, 35.378, 1.356)
pt3dadd(133.598, 94.856, 35.406, 1.356)
pt3dadd(133.525, 94.767, 35.434, 1.356)
pt3dadd(133.452, 94.678, 35.462, 1.356)
pt3dadd(133.38, 94.591, 35.495, 1.362)
pt3dadd(133.308, 94.504, 35.529, 1.372)
pt3dadd(133.236, 94.418, 35.564, 1.38)
pt3dadd(133.164, 94.331, 35.598, 1.39)
pt3dadd(133.092, 94.245, 35.632, 1.398)
pt3dadd(133.02, 94.158, 35.667, 1.408)
pt3dadd(132.948, 94.071, 35.701, 1.416)
pt3dadd(132.876, 93.985, 35.736, 1.426)
pt3dadd(132.804, 93.898, 35.77, 1.434)
pt3dadd(132.732, 93.811, 35.804, 1.444)
pt3dadd(132.667, 93.735, 35.858, 1.474)
pt3dadd(132.604, 93.659, 35.915, 1.508)
pt3dadd(132.54, 93.584, 35.973, 1.544)
pt3dadd(132.476, 93.509, 36.03, 1.578)
pt3dadd(132.413, 93.434, 36.087, 1.612)
pt3dadd(132.349, 93.359, 36.144, 1.648)
pt3dadd(132.286, 93.283, 36.202, 1.682)
pt3dadd(132.222, 93.208, 36.259, 1.716)
pt3dadd(132.158, 93.133, 36.316, 1.752)
pt3dadd(132.096, 93.058, 36.373, 1.786)
pt3dadd(132.019, 92.981, 36.416, 1.744)
pt3dadd(131.94, 92.904, 36.455, 1.688)
pt3dadd(131.861, 92.827, 36.495, 1.634)
pt3dadd(131.783, 92.751, 36.535, 1.58)
pt3dadd(131.704, 92.674, 36.575, 1.524)
pt3dadd(131.624, 92.597, 36.615, 1.47)
pt3dadd(131.546, 92.52, 36.655, 1.414)
pt3dadd(131.467, 92.443, 36.694, 1.36)
pt3dadd(131.388, 92.367, 36.734, 1.306)
pt3dadd(131.31, 92.29, 36.774, 1.25)
pt3dadd(131.228, 92.22, 36.819, 1.214)
pt3dadd(131.147, 92.152, 36.865, 1.18)
pt3dadd(131.065, 92.083, 36.911, 1.146)
pt3dadd(130.984, 92.015, 36.958, 1.112)
pt3dadd(130.902, 91.947, 37.004, 1.076)
pt3dadd(130.82, 91.878, 37.05, 1.042)
pt3dadd(130.739, 91.81, 37.096, 1.008)
pt3dadd(130.657, 91.741, 37.142, 0.974)
pt3dadd(130.576, 91.673, 37.188, 0.94)
pt3dadd(130.494, 91.604, 37.234, 0.906)
pt3dadd(130.411, 91.548, 37.289, 0.904)
pt3dadd(130.328, 91.492, 37.344, 0.904)
pt3dadd(130.244, 91.435, 37.399, 0.904)
pt3dadd(130.162, 91.379, 37.454, 0.904)
pt3dadd(130.079, 91.323, 37.509, 0.904)
pt3dadd(129.996, 91.267, 37.564, 0.904)
pt3dadd(129.912, 91.211, 37.619, 0.904)
pt3dadd(129.829, 91.155, 37.674, 0.904)
pt3dadd(129.746, 91.099, 37.729, 0.904)
pt3dadd(129.664, 91.043, 37.784, 0.904)
pt3dadd(129.599, 90.954, 37.823, 0.862)
pt3dadd(129.535, 90.864, 37.862, 0.818)
pt3dadd(129.472, 90.773, 37.901, 0.772)
pt3dadd(129.409, 90.682, 37.94, 0.728)
pt3dadd(129.346, 90.592, 37.979, 0.684)
pt3dadd(129.282, 90.501, 38.018, 0.638)
pt3dadd(129.218, 90.411, 38.057, 0.594)
pt3dadd(129.155, 90.32, 38.096, 0.55)
pt3dadd(129.091, 90.229, 38.135, 0.504)
pt3dadd(129.029, 90.139, 38.173, 0.462)
pt3dadd(128.981, 90.035, 38.205, 0.474)
pt3dadd(128.933, 89.932, 38.237, 0.486)
pt3dadd(128.886, 89.829, 38.269, 0.5)
pt3dadd(128.838, 89.726, 38.301, 0.512)
pt3dadd(128.79, 89.622, 38.333, 0.524)
pt3dadd(128.743, 89.519, 38.365, 0.538)
pt3dadd(128.695, 89.416, 38.397, 0.55)
pt3dadd(128.647, 89.313, 38.429, 0.564)
pt3dadd(128.599, 89.21, 38.461, 0.576)
pt3dadd(128.552, 89.106, 38.493, 0.592)
pt3dadd(128.51, 89, 38.525, 0.64)
pt3dadd(128.47, 88.895, 38.557, 0.688)
pt3dadd(128.428, 88.789, 38.589, 0.736)
pt3dadd(128.386, 88.683, 38.621, 0.784)
pt3dadd(128.344, 88.577, 38.653, 0.832)
pt3dadd(128.302, 88.472, 38.685, 0.88)
pt3dadd(128.26, 88.366, 38.716, 0.928)
pt3dadd(128.219, 88.26, 38.748, 0.974)
pt3dadd(128.177, 88.154, 38.78, 1.022)
pt3dadd(128.13, 88.053, 38.816, 1.052)
pt3dadd(128.066, 87.969, 38.864, 1.018)
pt3dadd(128.004, 87.884, 38.911, 0.984)
pt3dadd(127.94, 87.8, 38.959, 0.95)
pt3dadd(127.878, 87.716, 39.007, 0.916)
pt3dadd(127.814, 87.631, 39.055, 0.882)
pt3dadd(127.752, 87.547, 39.103, 0.848)
pt3dadd(127.688, 87.462, 39.151, 0.814)
pt3dadd(127.625, 87.378, 39.198, 0.78)
pt3dadd(127.562, 87.293, 39.246, 0.746)
pt3dadd(127.502, 87.205, 39.29, 0.72)
pt3dadd(127.451, 87.103, 39.323, 0.716)
pt3dadd(127.4, 87.002, 39.355, 0.71)
pt3dadd(127.35, 86.9, 39.387, 0.706)
pt3dadd(127.298, 86.799, 39.42, 0.702)
pt3dadd(127.248, 86.697, 39.452, 0.698)
pt3dadd(127.198, 86.595, 39.484, 0.694)
pt3dadd(127.147, 86.494, 39.517, 0.69)
pt3dadd(127.096, 86.392, 39.549, 0.686)
pt3dadd(127.045, 86.291, 39.581, 0.682)
pt3dadd(126.996, 86.187, 39.611, 0.678)
pt3dadd(126.952, 86.079, 39.633, 0.678)
pt3dadd(126.907, 85.971, 39.655, 0.678)
pt3dadd(126.863, 85.863, 39.678, 0.678)
pt3dadd(126.818, 85.754, 39.7, 0.678)
pt3dadd(126.774, 85.646, 39.722, 0.678)
pt3dadd(126.73, 85.538, 39.744, 0.678)
pt3dadd(126.686, 85.43, 39.767, 0.678)
pt3dadd(126.642, 85.321, 39.789, 0.678)
pt3dadd(126.598, 85.213, 39.811, 0.678)
pt3dadd(126.554, 85.104, 39.831, 0.678)
pt3dadd(126.514, 84.992, 39.846, 0.678)
pt3dadd(126.473, 84.88, 39.86, 0.678)
pt3dadd(126.433, 84.769, 39.875, 0.678)
pt3dadd(126.392, 84.657, 39.889, 0.68)
pt3dadd(126.353, 84.545, 39.904, 0.68)
pt3dadd(126.312, 84.434, 39.918, 0.68)
pt3dadd(126.271, 84.322, 39.933, 0.68)
pt3dadd(126.232, 84.21, 39.948, 0.68)
pt3dadd(126.191, 84.099, 39.962, 0.68)
pt3dadd(126.145, 83.989, 39.974, 0.684)
pt3dadd(126.086, 83.885, 39.98, 0.698)
pt3dadd(126.029, 83.78, 39.987, 0.71)
pt3dadd(125.97, 83.675, 39.993, 0.722)
pt3dadd(125.912, 83.571, 39.999, 0.736)
pt3dadd(125.854, 83.466, 40.006, 0.748)
pt3dadd(125.796, 83.361, 40.012, 0.76)
pt3dadd(125.737, 83.257, 40.018, 0.772)
}
}
proc shape3d_181() {
dend_7[44] { pt3dadd(125.68, 83.152, 40.024, 0.786)
pt3dadd(125.621, 83.047, 40.031, 0.798)
pt3dadd(125.562, 82.943, 40.037, 0.81)
pt3dadd(125.501, 82.84, 40.044, 0.824)
pt3dadd(125.44, 82.738, 40.051, 0.836)
pt3dadd(125.377, 82.635, 40.058, 0.848)
pt3dadd(125.316, 82.532, 40.065, 0.86)
pt3dadd(125.255, 82.429, 40.072, 0.872)
pt3dadd(125.194, 82.327, 40.079, 0.886)
pt3dadd(125.132, 82.224, 40.086, 0.898)
pt3dadd(125.071, 82.121, 40.093, 0.91)
pt3dadd(125.009, 82.018, 40.101, 0.922)
pt3dadd(124.945, 81.918, 40.108, 0.934)
pt3dadd(124.873, 81.822, 40.118, 0.946)
pt3dadd(124.802, 81.726, 40.127, 0.958)
pt3dadd(124.73, 81.63, 40.137, 0.97)
pt3dadd(124.66, 81.535, 40.147, 0.98)
pt3dadd(124.589, 81.439, 40.156, 0.992)
pt3dadd(124.517, 81.343, 40.166, 1.004)
pt3dadd(124.446, 81.247, 40.175, 1.016)
pt3dadd(124.374, 81.151, 40.185, 1.028)
pt3dadd(124.303, 81.055, 40.195, 1.038)
pt3dadd(124.234, 80.959, 40.206, 1.048)
pt3dadd(124.166, 80.861, 40.223, 1.054)
pt3dadd(124.1, 80.763, 40.24, 1.058)
pt3dadd(124.033, 80.666, 40.256, 1.064)
pt3dadd(123.967, 80.568, 40.273, 1.068)
pt3dadd(123.9, 80.47, 40.289, 1.074)
pt3dadd(123.833, 80.372, 40.306, 1.078)
pt3dadd(123.767, 80.275, 40.323, 1.084)
pt3dadd(123.7, 80.177, 40.339, 1.088)
pt3dadd(123.634, 80.079, 40.356, 1.094)
pt3dadd(123.572, 79.98, 40.38, 1.092)
pt3dadd(123.52, 79.881, 40.414, 1.078)
pt3dadd(123.467, 79.781, 40.448, 1.066)
pt3dadd(123.414, 79.681, 40.482, 1.054)
pt3dadd(123.361, 79.581, 40.516, 1.042)
pt3dadd(123.308, 79.482, 40.55, 1.03)
pt3dadd(123.257, 79.382, 40.584, 1.018)
pt3dadd(123.204, 79.282, 40.618, 1.006)
pt3dadd(123.151, 79.183, 40.653, 0.994)
pt3dadd(123.098, 79.083, 40.687, 0.982)
pt3dadd(123.043, 78.983, 40.719, 0.97)
pt3dadd(122.987, 78.883, 40.748, 0.958)
pt3dadd(122.93, 78.784, 40.777, 0.946)
pt3dadd(122.873, 78.684, 40.806, 0.934)
pt3dadd(122.816, 78.584, 40.836, 0.922)
pt3dadd(122.759, 78.485, 40.865, 0.91)
pt3dadd(122.702, 78.385, 40.894, 0.896)
pt3dadd(122.645, 78.285, 40.923, 0.884)
pt3dadd(122.588, 78.186, 40.952, 0.872)
pt3dadd(122.532, 78.086, 40.981, 0.86)
pt3dadd(122.472, 77.987, 41.007, 0.848)
pt3dadd(122.41, 77.888, 41.029, 0.836)
pt3dadd(122.346, 77.789, 41.051, 0.824)
pt3dadd(122.284, 77.69, 41.073, 0.812)
pt3dadd(122.221, 77.591, 41.095, 0.8)
pt3dadd(122.159, 77.493, 41.117, 0.788)
pt3dadd(122.095, 77.394, 41.139, 0.776)
pt3dadd(122.033, 77.295, 41.161, 0.764)
pt3dadd(121.97, 77.196, 41.183, 0.752)
pt3dadd(121.907, 77.097, 41.205, 0.74)
pt3dadd(121.847, 76.996, 41.225, 0.73)
pt3dadd(121.79, 76.892, 41.242, 0.724)
pt3dadd(121.734, 76.789, 41.259, 0.718)
pt3dadd(121.678, 76.685, 41.276, 0.714)
pt3dadd(121.62, 76.581, 41.293, 0.708)
pt3dadd(121.564, 76.477, 41.31, 0.702)
pt3dadd(121.507, 76.374, 41.327, 0.698)
pt3dadd(121.451, 76.27, 41.344, 0.692)
pt3dadd(121.394, 76.166, 41.361, 0.686)
pt3dadd(121.337, 76.062, 41.378, 0.68)
pt3dadd(121.283, 75.957, 41.393, 0.678)
pt3dadd(121.231, 75.849, 41.406, 0.678)
pt3dadd(121.18, 75.742, 41.419, 0.678)
pt3dadd(121.129, 75.635, 41.432, 0.678)
pt3dadd(121.078, 75.528, 41.445, 0.678)
pt3dadd(121.026, 75.42, 41.458, 0.678)
pt3dadd(120.974, 75.313, 41.472, 0.678)
pt3dadd(120.923, 75.206, 41.485, 0.678)
pt3dadd(120.872, 75.098, 41.498, 0.678)
pt3dadd(120.821, 74.991, 41.511, 0.678)
pt3dadd(120.761, 74.888, 41.521, 0.688)
pt3dadd(120.691, 74.791, 41.528, 0.71)
pt3dadd(120.622, 74.694, 41.535, 0.734)
pt3dadd(120.551, 74.597, 41.542, 0.756)
pt3dadd(120.481, 74.499, 41.549, 0.778)
pt3dadd(120.412, 74.402, 41.557, 0.8)
pt3dadd(120.342, 74.305, 41.564, 0.822)
pt3dadd(120.272, 74.208, 41.571, 0.844)
pt3dadd(120.203, 74.11, 41.578, 0.868)
pt3dadd(120.133, 74.013, 41.585, 0.89)
pt3dadd(120.061, 73.917, 41.592, 0.91)
pt3dadd(119.988, 73.822, 41.599, 0.932)
pt3dadd(119.915, 73.727, 41.605, 0.952)
pt3dadd(119.842, 73.632, 41.612, 0.972)
pt3dadd(119.769, 73.538, 41.619, 0.992)
pt3dadd(119.696, 73.443, 41.625, 1.012)
pt3dadd(119.622, 73.348, 41.632, 1.034)
pt3dadd(119.549, 73.253, 41.639, 1.054)
pt3dadd(119.476, 73.158, 41.645, 1.074)
pt3dadd(119.403, 73.064, 41.652, 1.094)
pt3dadd(119.326, 72.973, 41.66, 1.092)
pt3dadd(119.245, 72.885, 41.671, 1.066)
pt3dadd(119.163, 72.798, 41.681, 1.042)
pt3dadd(119.082, 72.711, 41.692, 1.016)
pt3dadd(119.001, 72.623, 41.702, 0.99)
pt3dadd(118.919, 72.536, 41.712, 0.966)
pt3dadd(118.838, 72.449, 41.723, 0.94)
pt3dadd(118.756, 72.361, 41.733, 0.914)
pt3dadd(118.675, 72.274, 41.743, 0.888)
pt3dadd(118.594, 72.187, 41.754, 0.864)
pt3dadd(118.511, 72.102, 41.77, 0.84)
pt3dadd(118.428, 72.02, 41.792, 0.816)
pt3dadd(118.344, 71.938, 41.815, 0.794)
pt3dadd(118.261, 71.856, 41.837, 0.77)
pt3dadd(118.177, 71.775, 41.859, 0.748)
pt3dadd(118.094, 71.693, 41.882, 0.724)
pt3dadd(118.01, 71.611, 41.904, 0.702)
pt3dadd(117.927, 71.529, 41.926, 0.678)
pt3dadd(117.843, 71.447, 41.949, 0.656)
pt3dadd(117.759, 71.365, 41.971, 0.632)
pt3dadd(117.676, 71.294, 42.01, 0.614)
pt3dadd(117.593, 71.228, 42.056, 0.596)
pt3dadd(117.51, 71.162, 42.103, 0.58)
pt3dadd(117.427, 71.096, 42.15, 0.564)
pt3dadd(117.343, 71.031, 42.196, 0.546)
pt3dadd(117.26, 70.965, 42.243, 0.53)
pt3dadd(117.177, 70.899, 42.29, 0.514)
pt3dadd(117.094, 70.833, 42.336, 0.496)
pt3dadd(117.011, 70.767, 42.383, 0.48)
pt3dadd(116.927, 70.701, 42.43, 0.462)
pt3dadd(116.836, 70.636, 42.464, 0.488)
pt3dadd(116.741, 70.571, 42.491, 0.53)
pt3dadd(116.645, 70.506, 42.519, 0.574)
pt3dadd(116.55, 70.441, 42.546, 0.618)
pt3dadd(116.455, 70.376, 42.573, 0.662)
pt3dadd(116.359, 70.311, 42.601, 0.706)
pt3dadd(116.264, 70.246, 42.628, 0.75)
pt3dadd(116.169, 70.181, 42.656, 0.794)
pt3dadd(116.073, 70.116, 42.683, 0.838)
pt3dadd(115.978, 70.051, 42.711, 0.882)
pt3dadd(115.875, 69.997, 42.734, 0.902)
pt3dadd(115.768, 69.947, 42.754, 0.91)
pt3dadd(115.662, 69.898, 42.775, 0.918)
pt3dadd(115.555, 69.848, 42.795, 0.926)
pt3dadd(115.449, 69.799, 42.816, 0.934)
pt3dadd(115.342, 69.749, 42.837, 0.944)
pt3dadd(115.236, 69.7, 42.857, 0.952)
pt3dadd(115.129, 69.651, 42.878, 0.96)
pt3dadd(115.023, 69.601, 42.898, 0.968)
pt3dadd(114.916, 69.552, 42.919, 0.976)
pt3dadd(114.803, 69.518, 42.933, 0.952)
pt3dadd(114.688, 69.486, 42.946, 0.922)
pt3dadd(114.573, 69.455, 42.959, 0.89)
pt3dadd(114.458, 69.424, 42.973, 0.86)
pt3dadd(114.344, 69.393, 42.986, 0.828)
pt3dadd(114.229, 69.362, 42.999, 0.798)
pt3dadd(114.114, 69.331, 43.012, 0.766)
pt3dadd(113.999, 69.3, 43.025, 0.736)
pt3dadd(113.884, 69.269, 43.038, 0.704)
pt3dadd(113.769, 69.238, 43.051, 0.674)
pt3dadd(113.651, 69.222, 43.056, 0.644)
pt3dadd(113.532, 69.209, 43.059, 0.616)
pt3dadd(113.412, 69.196, 43.062, 0.586)
pt3dadd(113.293, 69.183, 43.064, 0.558)
pt3dadd(113.174, 69.17, 43.067, 0.53)
pt3dadd(113.055, 69.157, 43.07, 0.5)
pt3dadd(112.935, 69.144, 43.073, 0.472)
pt3dadd(112.816, 69.131, 43.076, 0.444)
pt3dadd(112.697, 69.118, 43.078, 0.414)
pt3dadd(112.578, 69.105, 43.081, 0.386)
pt3dadd(112.458, 69.097, 43.086, 0.368)
pt3dadd(112.338, 69.09, 43.091, 0.352)
pt3dadd(112.219, 69.083, 43.095, 0.336)
pt3dadd(112.099, 69.076, 43.1, 0.322)
pt3dadd(111.979, 69.07, 43.105, 0.306)
pt3dadd(111.86, 69.063, 43.11, 0.29)
pt3dadd(111.74, 69.056, 43.114, 0.274)
pt3dadd(111.62, 69.049, 43.119, 0.26)
pt3dadd(111.501, 69.042, 43.124, 0.244)
pt3dadd(111.381, 69.036, 43.129, 0.228)
pt3dadd(111.261, 69.035, 43.136, 0.226)
pt3dadd(111.142, 69.036, 43.142, 0.226)
pt3dadd(111.022, 69.036, 43.149, 0.226)
pt3dadd(110.902, 69.037, 43.157, 0.226)
pt3dadd(110.783, 69.037, 43.164, 0.226)
pt3dadd(110.663, 69.038, 43.171, 0.226)
pt3dadd(110.543, 69.038, 43.178, 0.226)
pt3dadd(110.423, 69.039, 43.185, 0.226)
pt3dadd(110.304, 69.039, 43.192, 0.226)
pt3dadd(110.184, 69.04, 43.199, 0.226)
pt3dadd(110.065, 69.041, 43.209, 0.226)
pt3dadd(109.945, 69.042, 43.22, 0.226)
pt3dadd(109.826, 69.043, 43.231, 0.226)
pt3dadd(109.707, 69.044, 43.243, 0.226)
pt3dadd(109.588, 69.045, 43.254, 0.226)
pt3dadd(109.468, 69.046, 43.265, 0.226)
pt3dadd(109.349, 69.047, 43.276, 0.226)
pt3dadd(109.23, 69.048, 43.287, 0.226)
}
}
proc shape3d_182() {
dend_7[44] { pt3dadd(109.111, 69.049, 43.298, 0.226)
pt3dadd(108.991, 69.05, 43.309, 0.226)
pt3dadd(108.874, 69.051, 43.328, 0.226)
pt3dadd(108.756, 69.053, 43.348, 0.226)
pt3dadd(108.639, 69.054, 43.368, 0.226)
pt3dadd(108.521, 69.056, 43.388, 0.226)
pt3dadd(108.403, 69.057, 43.408, 0.226)
pt3dadd(108.286, 69.059, 43.428, 0.226)
pt3dadd(108.168, 69.06, 43.448, 0.226)
pt3dadd(108.051, 69.062, 43.468, 0.226)
pt3dadd(107.933, 69.063, 43.488, 0.226)
pt3dadd(107.816, 69.065, 43.508, 0.226)
pt3dadd(107.704, 69.067, 43.544, 0.226)
pt3dadd(107.592, 69.07, 43.582, 0.226)
pt3dadd(107.481, 69.072, 43.619, 0.226)
pt3dadd(107.37, 69.074, 43.656, 0.226)
pt3dadd(107.259, 69.077, 43.693, 0.226)
pt3dadd(107.147, 69.079, 43.731, 0.226)
pt3dadd(107.036, 69.081, 43.768, 0.226)
pt3dadd(106.925, 69.084, 43.805, 0.226)
pt3dadd(106.813, 69.086, 43.842, 0.226)
pt3dadd(106.702, 69.088, 43.88, 0.226)
pt3dadd(106.587, 69.092, 43.909, 0.226)
pt3dadd(106.473, 69.096, 43.938, 0.226)
pt3dadd(106.358, 69.1, 43.967, 0.226)
pt3dadd(106.243, 69.104, 43.996, 0.226)
pt3dadd(106.128, 69.107, 44.025, 0.226)
pt3dadd(106.013, 69.111, 44.054, 0.226)
pt3dadd(105.899, 69.115, 44.083, 0.226)
pt3dadd(105.784, 69.119, 44.112, 0.226)
pt3dadd(105.669, 69.123, 44.141, 0.226)
pt3dadd(105.554, 69.127, 44.17, 0.226)
pt3dadd(105.438, 69.132, 44.194, 0.226)
pt3dadd(105.321, 69.137, 44.217, 0.228)
pt3dadd(105.205, 69.142, 44.241, 0.228)
pt3dadd(105.088, 69.147, 44.264, 0.228)
pt3dadd(104.972, 69.152, 44.288, 0.23)
pt3dadd(104.855, 69.157, 44.312, 0.23)
pt3dadd(104.739, 69.162, 44.335, 0.23)
pt3dadd(104.622, 69.168, 44.359, 0.232)
pt3dadd(104.506, 69.173, 44.382, 0.232)
pt3dadd(104.389, 69.178, 44.406, 0.232)
pt3dadd(104.271, 69.19, 44.418, 0.246)
pt3dadd(104.152, 69.203, 44.429, 0.26)
pt3dadd(104.034, 69.216, 44.44, 0.276)
pt3dadd(103.915, 69.229, 44.451, 0.29)
pt3dadd(103.796, 69.241, 44.462, 0.304)
pt3dadd(103.678, 69.254, 44.473, 0.318)
pt3dadd(103.559, 69.267, 44.484, 0.332)
pt3dadd(103.441, 69.28, 44.495, 0.348)
pt3dadd(103.322, 69.292, 44.506, 0.362)
pt3dadd(103.204, 69.305, 44.517, 0.376)
pt3dadd(103.085, 69.321, 44.523, 0.398)
pt3dadd(102.966, 69.337, 44.529, 0.42)
pt3dadd(102.847, 69.353, 44.535, 0.442)
pt3dadd(102.729, 69.369, 44.541, 0.466)
pt3dadd(102.61, 69.384, 44.547, 0.488)
pt3dadd(102.491, 69.4, 44.552, 0.51)
pt3dadd(102.372, 69.416, 44.558, 0.532)
pt3dadd(102.254, 69.432, 44.564, 0.556)
pt3dadd(102.135, 69.448, 44.57, 0.578)
pt3dadd(102.016, 69.464, 44.576, 0.6)
pt3dadd(101.898, 69.484, 44.576, 0.63)
pt3dadd(101.78, 69.504, 44.576, 0.66)
pt3dadd(101.661, 69.525, 44.576, 0.692)
pt3dadd(101.543, 69.545, 44.576, 0.722)
pt3dadd(101.425, 69.566, 44.576, 0.752)
pt3dadd(101.307, 69.586, 44.576, 0.782)
pt3dadd(101.188, 69.606, 44.576, 0.812)
pt3dadd(101.07, 69.627, 44.576, 0.844)
pt3dadd(100.952, 69.647, 44.576, 0.874)
pt3dadd(100.834, 69.667, 44.576, 0.904)
pt3dadd(100.731, 69.729, 44.576, 0.904)
pt3dadd(100.628, 69.791, 44.576, 0.904)
pt3dadd(100.525, 69.853, 44.576, 0.904)
pt3dadd(100.422, 69.914, 44.576, 0.904)
pt3dadd(100.319, 69.976, 44.576, 0.904)
pt3dadd(100.216, 70.038, 44.576, 0.904)
pt3dadd(100.113, 70.099, 44.576, 0.904)
pt3dadd(100.01, 70.161, 44.576, 0.904)
pt3dadd(99.907, 70.223, 44.576, 0.904)
pt3dadd(99.804, 70.285, 44.576, 0.904)
pt3dadd(99.702, 70.346, 44.576, 0.904)
pt3dadd(99.599, 70.408, 44.576, 0.904)
pt3dadd(99.496, 70.47, 44.576, 0.904)
pt3dadd(99.393, 70.532, 44.576, 0.904)
pt3dadd(99.29, 70.593, 44.576, 0.904)
pt3dadd(99.187, 70.655, 44.576, 0.904)
pt3dadd(99.084, 70.717, 44.576, 0.904)
pt3dadd(98.981, 70.779, 44.576, 0.904)
pt3dadd(98.878, 70.84, 44.576, 0.904)
pt3dadd(98.776, 70.902, 44.576, 0.904)
}
dend_7[45] {pt3dclear()
pt3dadd(145.862, 109.89, 28.472, 0.904)
pt3dadd(145.813, 109.9, 28.483, 0.888)
pt3dadd(145.7, 109.924, 28.508, 0.85)
pt3dadd(145.586, 109.948, 28.534, 0.812)
pt3dadd(145.474, 109.971, 28.56, 0.774)
pt3dadd(145.36, 109.995, 28.586, 0.736)
pt3dadd(145.246, 110.019, 28.612, 0.7)
pt3dadd(145.133, 110.042, 28.637, 0.662)
pt3dadd(145.019, 110.066, 28.663, 0.624)
pt3dadd(144.906, 110.09, 28.689, 0.586)
pt3dadd(144.792, 110.113, 28.715, 0.548)
pt3dadd(144.678, 110.137, 28.74, 0.51)
pt3dadd(144.565, 110.16, 28.766, 0.474)
pt3dadd(144.451, 110.184, 28.792, 0.436)
pt3dadd(144.338, 110.208, 28.818, 0.398)
pt3dadd(144.224, 110.231, 28.844, 0.36)
pt3dadd(144.114, 110.255, 28.874, 0.326)
pt3dadd(144.026, 110.278, 28.939, 0.324)
pt3dadd(143.939, 110.302, 29.005, 0.322)
pt3dadd(143.851, 110.325, 29.07, 0.322)
pt3dadd(143.764, 110.348, 29.136, 0.32)
pt3dadd(143.676, 110.371, 29.201, 0.318)
pt3dadd(143.588, 110.395, 29.267, 0.316)
pt3dadd(143.5, 110.418, 29.332, 0.316)
pt3dadd(143.412, 110.441, 29.398, 0.314)
pt3dadd(143.324, 110.465, 29.463, 0.312)
pt3dadd(143.244, 110.487, 29.534, 0.316)
pt3dadd(143.17, 110.509, 29.61, 0.328)
pt3dadd(143.096, 110.531, 29.687, 0.34)
pt3dadd(143.022, 110.553, 29.764, 0.352)
pt3dadd(142.948, 110.575, 29.84, 0.362)
pt3dadd(142.874, 110.596, 29.917, 0.374)
pt3dadd(142.8, 110.618, 29.994, 0.386)
pt3dadd(142.726, 110.64, 30.07, 0.398)
pt3dadd(142.652, 110.662, 30.147, 0.408)
pt3dadd(142.578, 110.684, 30.223, 0.42)
pt3dadd(142.513, 110.71, 30.304, 0.422)
pt3dadd(142.457, 110.741, 30.388, 0.41)
pt3dadd(142.4, 110.772, 30.472, 0.4)
pt3dadd(142.344, 110.804, 30.557, 0.39)
pt3dadd(142.288, 110.835, 30.641, 0.38)
pt3dadd(142.23, 110.866, 30.726, 0.368)
pt3dadd(142.174, 110.897, 30.81, 0.358)
pt3dadd(142.117, 110.929, 30.894, 0.348)
pt3dadd(142.061, 110.96, 30.979, 0.336)
pt3dadd(142.004, 110.991, 31.063, 0.326)
pt3dadd(141.947, 111.035, 31.142, 0.32)
pt3dadd(141.889, 111.09, 31.216, 0.316)
pt3dadd(141.83, 111.145, 31.29, 0.314)
pt3dadd(141.772, 111.2, 31.365, 0.31)
pt3dadd(141.713, 111.255, 31.439, 0.306)
pt3dadd(141.655, 111.31, 31.513, 0.304)
pt3dadd(141.596, 111.365, 31.588, 0.3)
pt3dadd(141.538, 111.42, 31.662, 0.298)
pt3dadd(141.479, 111.475, 31.736, 0.294)
pt3dadd(141.421, 111.53, 31.811, 0.29)
pt3dadd(141.358, 111.605, 31.867, 0.302)
pt3dadd(141.294, 111.684, 31.921, 0.318)
pt3dadd(141.23, 111.763, 31.974, 0.332)
pt3dadd(141.167, 111.842, 32.028, 0.348)
pt3dadd(141.103, 111.921, 32.081, 0.362)
pt3dadd(141.04, 112, 32.135, 0.376)
pt3dadd(140.976, 112.078, 32.188, 0.392)
pt3dadd(140.911, 112.157, 32.242, 0.406)
pt3dadd(140.848, 112.236, 32.295, 0.422)
pt3dadd(140.784, 112.315, 32.349, 0.436)
pt3dadd(140.748, 112.407, 32.404, 0.48)
pt3dadd(140.716, 112.501, 32.46, 0.528)
pt3dadd(140.684, 112.596, 32.515, 0.576)
pt3dadd(140.652, 112.69, 32.571, 0.626)
pt3dadd(140.62, 112.785, 32.627, 0.674)
pt3dadd(140.588, 112.879, 32.683, 0.722)
pt3dadd(140.556, 112.973, 32.738, 0.772)
pt3dadd(140.525, 113.068, 32.794, 0.82)
pt3dadd(140.492, 113.162, 32.85, 0.868)
pt3dadd(140.461, 113.257, 32.906, 0.916)
pt3dadd(140.434, 113.354, 32.959, 0.954)
pt3dadd(140.408, 113.452, 33.013, 0.988)
pt3dadd(140.382, 113.55, 33.066, 1.024)
pt3dadd(140.356, 113.648, 33.12, 1.058)
pt3dadd(140.329, 113.746, 33.173, 1.094)
pt3dadd(140.303, 113.844, 33.227, 1.128)
pt3dadd(140.276, 113.942, 33.28, 1.164)
pt3dadd(140.25, 114.04, 33.334, 1.198)
pt3dadd(140.225, 114.138, 33.387, 1.234)
pt3dadd(140.198, 114.236, 33.441, 1.268)
pt3dadd(140.182, 114.343, 33.483, 1.222)
pt3dadd(140.166, 114.452, 33.524, 1.17)
pt3dadd(140.15, 114.56, 33.565, 1.118)
pt3dadd(140.135, 114.668, 33.606, 1.066)
pt3dadd(140.119, 114.776, 33.647, 1.014)
pt3dadd(140.104, 114.884, 33.689, 0.962)
pt3dadd(140.088, 114.993, 33.73, 0.91)
pt3dadd(140.072, 115.101, 33.771, 0.858)
pt3dadd(140.057, 115.209, 33.812, 0.806)
pt3dadd(140.041, 115.317, 33.853, 0.754)
pt3dadd(140.029, 115.422, 33.901, 0.732)
pt3dadd(140.016, 115.527, 33.948, 0.712)
pt3dadd(140.004, 115.632, 33.996, 0.692)
pt3dadd(139.992, 115.737, 34.044, 0.672)
pt3dadd(139.98, 115.841, 34.091, 0.654)
pt3dadd(139.967, 115.946, 34.139, 0.634)
pt3dadd(139.955, 116.051, 34.187, 0.614)
pt3dadd(139.943, 116.155, 34.235, 0.594)
pt3dadd(139.931, 116.26, 34.283, 0.576)
pt3dadd(139.918, 116.365, 34.33, 0.556)
pt3dadd(139.91, 116.464, 34.386, 0.578)
pt3dadd(139.902, 116.563, 34.442, 0.602)
}
}
proc shape3d_183() {
dend_7[45] { pt3dadd(139.895, 116.662, 34.498, 0.626)
pt3dadd(139.886, 116.762, 34.554, 0.65)
pt3dadd(139.879, 116.861, 34.61, 0.674)
pt3dadd(139.871, 116.96, 34.666, 0.698)
pt3dadd(139.864, 117.059, 34.722, 0.722)
pt3dadd(139.855, 117.158, 34.778, 0.746)
pt3dadd(139.848, 117.257, 34.834, 0.77)
pt3dadd(139.84, 117.357, 34.89, 0.794)
pt3dadd(139.829, 117.453, 34.948, 0.818)
pt3dadd(139.819, 117.55, 35.006, 0.842)
pt3dadd(139.808, 117.647, 35.064, 0.864)
pt3dadd(139.798, 117.744, 35.123, 0.888)
pt3dadd(139.787, 117.841, 35.181, 0.912)
pt3dadd(139.776, 117.938, 35.239, 0.934)
pt3dadd(139.765, 118.035, 35.297, 0.958)
pt3dadd(139.754, 118.132, 35.356, 0.982)
pt3dadd(139.744, 118.229, 35.414, 1.006)
pt3dadd(139.733, 118.326, 35.472, 1.028)
pt3dadd(139.721, 118.421, 35.532, 1.052)
pt3dadd(139.708, 118.516, 35.592, 1.074)
pt3dadd(139.694, 118.611, 35.653, 1.098)
pt3dadd(139.682, 118.706, 35.713, 1.122)
pt3dadd(139.669, 118.801, 35.773, 1.144)
pt3dadd(139.656, 118.896, 35.833, 1.168)
pt3dadd(139.643, 118.991, 35.894, 1.19)
pt3dadd(139.631, 119.086, 35.954, 1.214)
pt3dadd(139.618, 119.181, 36.014, 1.236)
pt3dadd(139.604, 119.276, 36.074, 1.26)
pt3dadd(139.574, 119.373, 36.127, 1.276)
pt3dadd(139.543, 119.47, 36.18, 1.294)
pt3dadd(139.512, 119.567, 36.232, 1.31)
pt3dadd(139.481, 119.664, 36.285, 1.326)
pt3dadd(139.451, 119.762, 36.338, 1.344)
pt3dadd(139.42, 119.859, 36.39, 1.36)
pt3dadd(139.388, 119.956, 36.443, 1.376)
pt3dadd(139.357, 120.053, 36.495, 1.394)
pt3dadd(139.326, 120.15, 36.548, 1.41)
pt3dadd(139.295, 120.247, 36.6, 1.426)
pt3dadd(139.252, 120.344, 36.647, 1.438)
pt3dadd(139.207, 120.442, 36.693, 1.45)
pt3dadd(139.164, 120.539, 36.739, 1.462)
pt3dadd(139.121, 120.636, 36.786, 1.474)
pt3dadd(139.078, 120.733, 36.832, 1.486)
pt3dadd(139.034, 120.83, 36.878, 1.498)
pt3dadd(138.991, 120.928, 36.925, 1.51)
pt3dadd(138.948, 121.025, 36.971, 1.522)
pt3dadd(138.905, 121.121, 37.017, 1.534)
pt3dadd(138.862, 121.218, 37.064, 1.544)
pt3dadd(138.826, 121.314, 37.116, 1.522)
pt3dadd(138.788, 121.41, 37.168, 1.502)
pt3dadd(138.752, 121.506, 37.22, 1.48)
pt3dadd(138.716, 121.602, 37.272, 1.46)
pt3dadd(138.679, 121.697, 37.325, 1.44)
pt3dadd(138.643, 121.793, 37.377, 1.418)
pt3dadd(138.607, 121.889, 37.429, 1.398)
pt3dadd(138.57, 121.985, 37.481, 1.378)
pt3dadd(138.534, 122.081, 37.533, 1.356)
pt3dadd(138.498, 122.176, 37.585, 1.334)
pt3dadd(138.464, 122.27, 37.64, 1.3)
pt3dadd(138.431, 122.366, 37.694, 1.264)
pt3dadd(138.398, 122.461, 37.749, 1.228)
pt3dadd(138.365, 122.556, 37.803, 1.192)
pt3dadd(138.331, 122.651, 37.858, 1.156)
pt3dadd(138.299, 122.746, 37.912, 1.12)
pt3dadd(138.265, 122.84, 37.967, 1.086)
pt3dadd(138.232, 122.935, 38.021, 1.05)
pt3dadd(138.198, 123.03, 38.076, 1.014)
pt3dadd(138.166, 123.125, 38.131, 0.982)
pt3dadd(138.138, 123.217, 38.191, 0.994)
pt3dadd(138.109, 123.31, 38.25, 1.004)
pt3dadd(138.082, 123.401, 38.31, 1.016)
pt3dadd(138.053, 123.493, 38.37, 1.026)
pt3dadd(138.025, 123.586, 38.43, 1.038)
pt3dadd(137.998, 123.677, 38.49, 1.048)
pt3dadd(137.969, 123.769, 38.549, 1.06)
pt3dadd(137.941, 123.86, 38.609, 1.072)
pt3dadd(137.912, 123.953, 38.669, 1.082)
pt3dadd(137.885, 124.045, 38.729, 1.094)
pt3dadd(137.858, 124.136, 38.79, 1.118)
pt3dadd(137.831, 124.228, 38.851, 1.142)
pt3dadd(137.804, 124.318, 38.912, 1.166)
pt3dadd(137.778, 124.409, 38.974, 1.19)
pt3dadd(137.752, 124.5, 39.035, 1.214)
pt3dadd(137.724, 124.591, 39.096, 1.238)
pt3dadd(137.698, 124.682, 39.157, 1.262)
pt3dadd(137.671, 124.774, 39.218, 1.286)
pt3dadd(137.644, 124.865, 39.28, 1.31)
pt3dadd(137.615, 124.956, 39.34, 1.332)
pt3dadd(137.563, 125.047, 39.387, 1.336)
pt3dadd(137.513, 125.14, 39.435, 1.338)
pt3dadd(137.461, 125.232, 39.483, 1.34)
pt3dadd(137.41, 125.324, 39.53, 1.342)
pt3dadd(137.358, 125.417, 39.578, 1.344)
pt3dadd(137.306, 125.508, 39.625, 1.346)
pt3dadd(137.255, 125.6, 39.673, 1.35)
pt3dadd(137.203, 125.693, 39.721, 1.352)
pt3dadd(137.153, 125.785, 39.769, 1.354)
pt3dadd(137.1, 125.876, 39.816, 1.356)
pt3dadd(137.046, 125.965, 39.866, 1.356)
pt3dadd(136.992, 126.053, 39.916, 1.356)
pt3dadd(136.937, 126.142, 39.966, 1.356)
pt3dadd(136.883, 126.23, 40.016, 1.356)
pt3dadd(136.828, 126.319, 40.066, 1.356)
pt3dadd(136.774, 126.407, 40.116, 1.356)
pt3dadd(136.718, 126.496, 40.166, 1.356)
pt3dadd(136.664, 126.584, 40.216, 1.356)
pt3dadd(136.609, 126.673, 40.266, 1.356)
pt3dadd(136.554, 126.757, 40.319, 1.356)
pt3dadd(136.499, 126.827, 40.386, 1.356)
pt3dadd(136.442, 126.896, 40.453, 1.356)
pt3dadd(136.386, 126.965, 40.52, 1.356)
pt3dadd(136.33, 127.034, 40.587, 1.356)
pt3dadd(136.273, 127.103, 40.654, 1.356)
pt3dadd(136.217, 127.172, 40.721, 1.356)
pt3dadd(136.16, 127.242, 40.788, 1.356)
pt3dadd(136.104, 127.31, 40.855, 1.356)
pt3dadd(136.048, 127.38, 40.922, 1.356)
pt3dadd(135.989, 127.45, 40.985, 1.35)
pt3dadd(135.913, 127.524, 41.032, 1.314)
pt3dadd(135.839, 127.6, 41.079, 1.278)
pt3dadd(135.763, 127.674, 41.126, 1.242)
pt3dadd(135.688, 127.748, 41.173, 1.206)
pt3dadd(135.613, 127.823, 41.22, 1.17)
pt3dadd(135.538, 127.897, 41.267, 1.134)
pt3dadd(135.462, 127.973, 41.314, 1.1)
pt3dadd(135.388, 128.047, 41.361, 1.064)
pt3dadd(135.312, 128.122, 41.408, 1.028)
pt3dadd(135.236, 128.195, 41.456, 0.998)
pt3dadd(135.16, 128.266, 41.505, 0.984)
pt3dadd(135.083, 128.338, 41.554, 0.972)
pt3dadd(135.006, 128.408, 41.603, 0.958)
pt3dadd(134.929, 128.479, 41.652, 0.944)
pt3dadd(134.852, 128.55, 41.701, 0.932)
pt3dadd(134.776, 128.621, 41.75, 0.918)
pt3dadd(134.698, 128.692, 41.799, 0.904)
pt3dadd(134.621, 128.762, 41.848, 0.892)
pt3dadd(134.544, 128.833, 41.897, 0.878)
pt3dadd(134.471, 128.898, 41.953, 0.896)
pt3dadd(134.404, 128.956, 42.021, 0.964)
pt3dadd(134.335, 129.012, 42.089, 1.032)
pt3dadd(134.268, 129.068, 42.156, 1.1)
pt3dadd(134.2, 129.125, 42.224, 1.166)
pt3dadd(134.132, 129.181, 42.292, 1.234)
pt3dadd(134.065, 129.239, 42.36, 1.302)
pt3dadd(133.997, 129.295, 42.427, 1.37)
pt3dadd(133.93, 129.352, 42.495, 1.436)
pt3dadd(133.861, 129.408, 42.563, 1.504)
pt3dadd(133.787, 129.47, 42.619, 1.542)
pt3dadd(133.7, 129.541, 42.656, 1.532)
pt3dadd(133.614, 129.612, 42.693, 1.522)
pt3dadd(133.528, 129.682, 42.729, 1.512)
pt3dadd(133.441, 129.752, 42.766, 1.502)
pt3dadd(133.356, 129.823, 42.803, 1.494)
pt3dadd(133.27, 129.894, 42.84, 1.484)
pt3dadd(133.183, 129.965, 42.877, 1.474)
pt3dadd(133.097, 130.036, 42.914, 1.464)
pt3dadd(133.01, 130.106, 42.951, 1.454)
pt3dadd(132.922, 130.174, 42.989, 1.44)
pt3dadd(132.832, 130.237, 43.028, 1.422)
pt3dadd(132.74, 130.3, 43.067, 1.404)
pt3dadd(132.65, 130.363, 43.106, 1.386)
pt3dadd(132.559, 130.426, 43.146, 1.366)
pt3dadd(132.469, 130.489, 43.185, 1.348)
pt3dadd(132.378, 130.552, 43.224, 1.33)
pt3dadd(132.288, 130.615, 43.263, 1.312)
pt3dadd(132.197, 130.678, 43.302, 1.292)
pt3dadd(132.107, 130.741, 43.341, 1.274)
pt3dadd(132.013, 130.796, 43.384, 1.252)
pt3dadd(131.917, 130.842, 43.431, 1.224)
pt3dadd(131.822, 130.889, 43.477, 1.198)
pt3dadd(131.726, 130.934, 43.523, 1.172)
pt3dadd(131.63, 130.981, 43.569, 1.144)
pt3dadd(131.534, 131.027, 43.616, 1.118)
pt3dadd(131.438, 131.074, 43.662, 1.092)
pt3dadd(131.344, 131.119, 43.708, 1.064)
pt3dadd(131.248, 131.166, 43.755, 1.038)
pt3dadd(131.152, 131.212, 43.801, 1.01)
pt3dadd(131.054, 131.264, 43.839, 0.992)
pt3dadd(130.956, 131.324, 43.868, 0.984)
pt3dadd(130.859, 131.383, 43.897, 0.974)
pt3dadd(130.76, 131.443, 43.927, 0.964)
pt3dadd(130.662, 131.503, 43.956, 0.954)
pt3dadd(130.564, 131.562, 43.985, 0.946)
pt3dadd(130.465, 131.622, 44.014, 0.936)
pt3dadd(130.368, 131.681, 44.044, 0.926)
pt3dadd(130.27, 131.741, 44.073, 0.918)
pt3dadd(130.171, 131.801, 44.102, 0.908)
pt3dadd(130.074, 131.863, 44.125, 0.904)
pt3dadd(129.976, 131.929, 44.145, 0.904)
pt3dadd(129.878, 131.994, 44.164, 0.904)
pt3dadd(129.78, 132.06, 44.184, 0.904)
pt3dadd(129.683, 132.126, 44.203, 0.904)
pt3dadd(129.584, 132.191, 44.223, 0.904)
pt3dadd(129.487, 132.257, 44.242, 0.904)
pt3dadd(129.389, 132.323, 44.262, 0.904)
pt3dadd(129.292, 132.388, 44.281, 0.904)
pt3dadd(129.194, 132.454, 44.301, 0.904)
pt3dadd(129.092, 132.516, 44.314, 0.896)
pt3dadd(128.989, 132.575, 44.322, 0.886)
pt3dadd(128.885, 132.634, 44.33, 0.874)
}
}
proc shape3d_184() {
dend_7[45] { pt3dadd(128.78, 132.694, 44.338, 0.862)
pt3dadd(128.677, 132.752, 44.347, 0.85)
pt3dadd(128.573, 132.812, 44.355, 0.838)
pt3dadd(128.47, 132.871, 44.363, 0.826)
pt3dadd(128.365, 132.93, 44.371, 0.814)
pt3dadd(128.262, 132.99, 44.38, 0.802)
pt3dadd(128.158, 133.049, 44.388, 0.79)
pt3dadd(128.056, 133.111, 44.393, 0.774)
pt3dadd(127.955, 133.176, 44.395, 0.756)
pt3dadd(127.854, 133.241, 44.398, 0.74)
pt3dadd(127.753, 133.306, 44.401, 0.722)
pt3dadd(127.651, 133.37, 44.403, 0.704)
pt3dadd(127.55, 133.435, 44.406, 0.686)
pt3dadd(127.45, 133.5, 44.409, 0.668)
pt3dadd(127.349, 133.565, 44.411, 0.652)
pt3dadd(127.248, 133.63, 44.414, 0.634)
pt3dadd(127.147, 133.694, 44.417, 0.616)
pt3dadd(127.056, 133.772, 44.413, 0.592)
pt3dadd(126.971, 133.855, 44.405, 0.564)
pt3dadd(126.884, 133.939, 44.398, 0.538)
pt3dadd(126.798, 134.022, 44.391, 0.512)
pt3dadd(126.713, 134.105, 44.384, 0.484)
pt3dadd(126.626, 134.189, 44.377, 0.458)
pt3dadd(126.54, 134.272, 44.37, 0.432)
pt3dadd(126.455, 134.356, 44.363, 0.404)
pt3dadd(126.368, 134.438, 44.355, 0.378)
pt3dadd(126.282, 134.521, 44.348, 0.35)
pt3dadd(126.211, 134.615, 44.332, 0.352)
pt3dadd(126.146, 134.712, 44.311, 0.364)
pt3dadd(126.08, 134.81, 44.29, 0.378)
pt3dadd(126.016, 134.908, 44.27, 0.39)
pt3dadd(125.951, 135.006, 44.249, 0.402)
pt3dadd(125.885, 135.103, 44.228, 0.416)
pt3dadd(125.82, 135.2, 44.207, 0.428)
pt3dadd(125.755, 135.299, 44.187, 0.442)
pt3dadd(125.689, 135.396, 44.166, 0.454)
pt3dadd(125.624, 135.493, 44.145, 0.468)
pt3dadd(125.578, 135.598, 44.116, 0.508)
pt3dadd(125.531, 135.702, 44.085, 0.552)
pt3dadd(125.485, 135.808, 44.055, 0.594)
pt3dadd(125.438, 135.912, 44.024, 0.638)
pt3dadd(125.393, 136.016, 43.994, 0.68)
pt3dadd(125.346, 136.121, 43.964, 0.722)
pt3dadd(125.3, 136.225, 43.933, 0.766)
pt3dadd(125.254, 136.33, 43.903, 0.808)
pt3dadd(125.208, 136.435, 43.873, 0.852)
pt3dadd(125.161, 136.54, 43.842, 0.894)
pt3dadd(125.137, 136.656, 43.833, 0.872)
pt3dadd(125.114, 136.774, 43.824, 0.844)
pt3dadd(125.092, 136.891, 43.816, 0.816)
pt3dadd(125.069, 137.008, 43.807, 0.788)
pt3dadd(125.047, 137.125, 43.799, 0.76)
pt3dadd(125.024, 137.243, 43.79, 0.732)
pt3dadd(125.002, 137.36, 43.782, 0.704)
pt3dadd(124.979, 137.478, 43.773, 0.676)
pt3dadd(124.956, 137.596, 43.765, 0.65)
pt3dadd(124.933, 137.712, 43.757, 0.622)
pt3dadd(124.914, 137.83, 43.767, 0.604)
pt3dadd(124.894, 137.947, 43.779, 0.586)
pt3dadd(124.874, 138.065, 43.79, 0.57)
pt3dadd(124.855, 138.182, 43.802, 0.552)
pt3dadd(124.836, 138.3, 43.814, 0.534)
pt3dadd(124.816, 138.418, 43.825, 0.518)
pt3dadd(124.796, 138.535, 43.837, 0.5)
pt3dadd(124.777, 138.653, 43.849, 0.482)
pt3dadd(124.758, 138.77, 43.86, 0.466)
pt3dadd(124.739, 138.887, 43.878, 0.452)
pt3dadd(124.724, 138.996, 43.916, 0.452)
pt3dadd(124.71, 139.106, 43.955, 0.452)
pt3dadd(124.697, 139.216, 43.993, 0.452)
pt3dadd(124.682, 139.326, 44.032, 0.452)
pt3dadd(124.668, 139.435, 44.07, 0.452)
pt3dadd(124.654, 139.546, 44.109, 0.452)
pt3dadd(124.639, 139.656, 44.147, 0.452)
pt3dadd(124.625, 139.765, 44.186, 0.452)
pt3dadd(124.61, 139.876, 44.224, 0.452)
pt3dadd(124.59, 139.984, 44.263, 0.46)
pt3dadd(124.552, 140.084, 44.305, 0.49)
pt3dadd(124.512, 140.186, 44.347, 0.52)
pt3dadd(124.474, 140.288, 44.388, 0.552)
pt3dadd(124.434, 140.39, 44.43, 0.582)
pt3dadd(124.394, 140.492, 44.471, 0.612)
pt3dadd(124.356, 140.594, 44.513, 0.644)
pt3dadd(124.316, 140.696, 44.555, 0.674)
pt3dadd(124.277, 140.798, 44.596, 0.706)
pt3dadd(124.238, 140.9, 44.638, 0.736)
pt3dadd(124.198, 141.001, 44.68, 0.768)
pt3dadd(124.152, 141.098, 44.723, 0.806)
pt3dadd(124.106, 141.197, 44.767, 0.846)
pt3dadd(124.062, 141.295, 44.81, 0.882)
pt3dadd(124.016, 141.394, 44.853, 0.92)
pt3dadd(123.971, 141.492, 44.896, 0.958)
pt3dadd(123.926, 141.59, 44.94, 0.996)
pt3dadd(123.881, 141.689, 44.983, 1.034)
pt3dadd(123.836, 141.787, 45.026, 1.072)
pt3dadd(123.791, 141.886, 45.07, 1.11)
pt3dadd(123.75, 141.98, 45.119, 1.142)
pt3dadd(123.72, 142.069, 45.181, 1.154)
pt3dadd(123.689, 142.158, 45.243, 1.166)
pt3dadd(123.659, 142.247, 45.306, 1.18)
pt3dadd(123.628, 142.336, 45.368, 1.192)
pt3dadd(123.598, 142.424, 45.431, 1.206)
pt3dadd(123.566, 142.513, 45.493, 1.218)
pt3dadd(123.536, 142.601, 45.555, 1.23)
pt3dadd(123.505, 142.69, 45.618, 1.244)
pt3dadd(123.474, 142.778, 45.68, 1.256)
pt3dadd(123.444, 142.865, 45.744, 1.27)
pt3dadd(123.414, 142.946, 45.813, 1.29)
pt3dadd(123.384, 143.028, 45.882, 1.308)
pt3dadd(123.354, 143.111, 45.951, 1.326)
pt3dadd(123.324, 143.192, 46.02, 1.344)
pt3dadd(123.294, 143.274, 46.089, 1.362)
pt3dadd(123.264, 143.356, 46.157, 1.38)
pt3dadd(123.234, 143.437, 46.226, 1.398)
pt3dadd(123.204, 143.519, 46.295, 1.418)
pt3dadd(123.174, 143.6, 46.364, 1.436)
pt3dadd(123.144, 143.674, 46.438, 1.458)
pt3dadd(123.116, 143.736, 46.521, 1.49)
pt3dadd(123.089, 143.797, 46.603, 1.52)
pt3dadd(123.061, 143.86, 46.686, 1.55)
pt3dadd(123.032, 143.922, 46.768, 1.582)
pt3dadd(123.005, 143.983, 46.851, 1.612)
pt3dadd(122.977, 144.046, 46.933, 1.644)
pt3dadd(122.948, 144.107, 47.015, 1.674)
pt3dadd(122.921, 144.169, 47.098, 1.704)
pt3dadd(122.893, 144.232, 47.18, 1.736)
pt3dadd(122.868, 144.294, 47.263, 1.76)
pt3dadd(122.848, 144.36, 47.345, 1.778)
pt3dadd(122.827, 144.426, 47.426, 1.798)
pt3dadd(122.807, 144.492, 47.508, 1.816)
pt3dadd(122.786, 144.557, 47.59, 1.834)
pt3dadd(122.765, 144.623, 47.672, 1.852)
pt3dadd(122.744, 144.689, 47.754, 1.87)
pt3dadd(122.724, 144.755, 47.836, 1.888)
pt3dadd(122.704, 144.82, 47.918, 1.906)
pt3dadd(122.683, 144.886, 48, 1.924)
pt3dadd(122.651, 144.95, 48.079, 1.92)
pt3dadd(122.604, 145.013, 48.154, 1.888)
pt3dadd(122.556, 145.076, 48.229, 1.854)
pt3dadd(122.508, 145.139, 48.305, 1.82)
pt3dadd(122.46, 145.202, 48.38, 1.786)
pt3dadd(122.412, 145.265, 48.455, 1.752)
pt3dadd(122.364, 145.327, 48.53, 1.718)
pt3dadd(122.316, 145.391, 48.605, 1.684)
pt3dadd(122.268, 145.453, 48.681, 1.65)
pt3dadd(122.22, 145.517, 48.756, 1.618)
pt3dadd(122.128, 145.562, 48.807, 1.5)
pt3dadd(122.036, 145.609, 48.858, 1.384)
pt3dadd(121.944, 145.655, 48.91, 1.268)
pt3dadd(121.852, 145.702, 48.961, 1.152)
pt3dadd(121.759, 145.747, 49.012, 1.034)
pt3dadd(121.667, 145.793, 49.063, 0.918)
pt3dadd(121.574, 145.84, 49.114, 0.802)
pt3dadd(121.483, 145.885, 49.166, 0.686)
pt3dadd(121.391, 145.932, 49.217, 0.568)
pt3dadd(121.298, 145.978, 49.268, 0.452)
}
dend_0[7] {pt3dclear()
pt3dstyle(1, 170.098, 112.011, 13.295)
pt3dadd(170.098, 111.891, 13.295, 12.852)
pt3dadd(170.098, 111.771, 13.295, 12.752)
pt3dadd(170.098, 111.651, 13.295, 12.65)
pt3dadd(170.098, 111.531, 13.295, 12.55)
pt3dadd(170.098, 111.411, 13.295, 12.448)
pt3dadd(170.098, 111.291, 13.295, 12.348)
pt3dadd(170.098, 111.171, 13.295, 12.246)
pt3dadd(170.098, 111.051, 13.295, 12.146)
pt3dadd(170.098, 110.931, 13.295, 12.044)
pt3dadd(170.098, 110.811, 13.295, 11.942)
pt3dadd(170.098, 110.691, 13.295, 11.842)
pt3dadd(170.098, 110.571, 13.295, 11.74)
pt3dadd(170.098, 110.451, 13.295, 11.64)
pt3dadd(170.098, 110.331, 13.295, 11.538)
pt3dadd(170.117, 110.226, 13.338, 11.34)
pt3dadd(170.138, 110.124, 13.387, 11.13)
pt3dadd(170.161, 110.022, 13.436, 10.92)
pt3dadd(170.183, 109.92, 13.485, 10.71)
pt3dadd(170.206, 109.818, 13.534, 10.5)
pt3dadd(170.227, 109.716, 13.584, 10.288)
pt3dadd(170.25, 109.614, 13.633, 10.078)
pt3dadd(170.272, 109.512, 13.682, 9.868)
pt3dadd(170.294, 109.409, 13.731, 9.658)
pt3dadd(170.316, 109.307, 13.78, 9.448)
pt3dadd(170.339, 109.205, 13.829, 9.238)
pt3dadd(170.362, 109.103, 13.877, 9.03)
pt3dadd(170.386, 109, 13.925, 8.822)
pt3dadd(170.41, 108.897, 13.973, 8.616)
pt3dadd(170.434, 108.795, 14.021, 8.408)
pt3dadd(170.458, 108.692, 14.069, 8.202)
pt3dadd(170.482, 108.589, 14.116, 7.994)
pt3dadd(170.506, 108.487, 14.164, 7.788)
pt3dadd(170.528, 108.384, 14.212, 7.58)
}
dend_7[46] {pt3dclear()
pt3dadd(170.528, 108.384, 14.212, 7.58)
pt3dadd(170.552, 108.281, 14.26, 7.374)
pt3dadd(170.576, 108.179, 14.308, 7.166)
pt3dadd(170.622, 108.073, 14.335, 7.016)
pt3dadd(170.67, 107.967, 14.359, 6.872)
pt3dadd(170.718, 107.861, 14.384, 6.73)
pt3dadd(170.765, 107.755, 14.408, 6.586)
pt3dadd(170.813, 107.649, 14.432, 6.442)
pt3dadd(170.861, 107.543, 14.457, 6.298)
pt3dadd(170.909, 107.436, 14.482, 6.154)
}
}
proc shape3d_185() {
dend_7[46] { pt3dadd(170.957, 107.33, 14.506, 6.01)
pt3dadd(171.005, 107.224, 14.53, 5.866)
pt3dadd(171.052, 107.118, 14.555, 5.722)
pt3dadd(171.091, 107.007, 14.573, 5.58)
pt3dadd(171.131, 106.896, 14.591, 5.438)
pt3dadd(171.169, 106.784, 14.609, 5.294)
pt3dadd(171.208, 106.673, 14.627, 5.152)
pt3dadd(171.247, 106.561, 14.645, 5.008)
pt3dadd(171.286, 106.45, 14.663, 4.866)
pt3dadd(171.324, 106.338, 14.681, 4.724)
pt3dadd(171.364, 106.227, 14.698, 4.58)
pt3dadd(171.402, 106.115, 14.716, 4.438)
pt3dadd(171.44, 106.004, 14.734, 4.296)
pt3dadd(171.469, 105.888, 14.745, 4.156)
pt3dadd(171.498, 105.772, 14.756, 4.016)
pt3dadd(171.527, 105.656, 14.766, 3.876)
pt3dadd(171.556, 105.54, 14.777, 3.736)
pt3dadd(171.584, 105.424, 14.787, 3.598)
pt3dadd(171.613, 105.309, 14.798, 3.458)
pt3dadd(171.642, 105.193, 14.809, 3.318)
pt3dadd(171.67, 105.077, 14.819, 3.178)
pt3dadd(171.698, 104.961, 14.83, 3.038)
pt3dadd(171.727, 104.845, 14.84, 2.9)
pt3dadd(171.743, 104.726, 14.842, 2.78)
pt3dadd(171.758, 104.607, 14.843, 2.662)
pt3dadd(171.774, 104.488, 14.844, 2.542)
pt3dadd(171.788, 104.369, 14.845, 2.424)
pt3dadd(171.804, 104.25, 14.846, 2.306)
pt3dadd(171.82, 104.131, 14.848, 2.186)
pt3dadd(171.835, 104.012, 14.849, 2.068)
pt3dadd(171.85, 103.893, 14.85, 1.95)
pt3dadd(171.865, 103.774, 14.851, 1.83)
pt3dadd(171.881, 103.655, 14.852, 1.712)
pt3dadd(171.89, 103.536, 14.852, 1.622)
pt3dadd(171.9, 103.416, 14.851, 1.532)
pt3dadd(171.908, 103.296, 14.851, 1.444)
pt3dadd(171.918, 103.177, 14.851, 1.354)
pt3dadd(171.928, 103.057, 14.85, 1.264)
pt3dadd(171.937, 102.937, 14.85, 1.174)
pt3dadd(171.947, 102.818, 14.849, 1.084)
pt3dadd(171.955, 102.698, 14.849, 0.996)
pt3dadd(171.965, 102.579, 14.849, 0.906)
pt3dadd(171.974, 102.459, 14.848, 0.816)
pt3dadd(171.974, 102.339, 14.848, 0.788)
pt3dadd(171.974, 102.219, 14.847, 0.758)
pt3dadd(171.974, 102.099, 14.846, 0.73)
pt3dadd(171.974, 101.979, 14.845, 0.7)
pt3dadd(171.974, 101.859, 14.845, 0.67)
pt3dadd(171.974, 101.739, 14.844, 0.642)
pt3dadd(171.974, 101.619, 14.844, 0.612)
pt3dadd(171.974, 101.499, 14.843, 0.584)
pt3dadd(171.974, 101.379, 14.842, 0.554)
pt3dadd(171.974, 101.259, 14.842, 0.526)
pt3dadd(171.974, 101.139, 14.84, 0.508)
pt3dadd(171.974, 101.019, 14.839, 0.49)
pt3dadd(171.974, 100.899, 14.838, 0.47)
pt3dadd(171.974, 100.779, 14.837, 0.452)
pt3dadd(171.974, 100.659, 14.835, 0.434)
pt3dadd(171.974, 100.539, 14.834, 0.416)
pt3dadd(171.974, 100.419, 14.833, 0.398)
pt3dadd(171.974, 100.299, 14.832, 0.38)
pt3dadd(171.974, 100.179, 14.831, 0.36)
pt3dadd(171.974, 100.059, 14.829, 0.342)
pt3dadd(171.974, 99.939, 14.828, 0.346)
pt3dadd(171.974, 99.819, 14.826, 0.35)
pt3dadd(171.974, 99.699, 14.824, 0.354)
pt3dadd(171.974, 99.579, 14.822, 0.356)
pt3dadd(171.973, 99.459, 14.821, 0.36)
pt3dadd(171.973, 99.339, 14.819, 0.364)
pt3dadd(171.973, 99.219, 14.817, 0.368)
pt3dadd(171.973, 99.099, 14.815, 0.37)
pt3dadd(171.973, 98.979, 14.814, 0.374)
pt3dadd(171.973, 98.859, 14.812, 0.378)
pt3dadd(171.973, 98.739, 14.809, 0.452)
pt3dadd(171.973, 98.619, 14.806, 0.526)
pt3dadd(171.973, 98.499, 14.803, 0.6)
pt3dadd(171.973, 98.379, 14.8, 0.676)
pt3dadd(171.973, 98.259, 14.797, 0.75)
pt3dadd(171.973, 98.14, 14.794, 0.824)
pt3dadd(171.973, 98.02, 14.791, 0.898)
pt3dadd(171.973, 97.9, 14.788, 0.972)
pt3dadd(171.973, 97.78, 14.785, 1.046)
pt3dadd(171.973, 97.66, 14.782, 1.12)
pt3dadd(171.973, 97.54, 14.776, 1.102)
pt3dadd(171.973, 97.42, 14.77, 1.082)
pt3dadd(171.973, 97.3, 14.764, 1.064)
pt3dadd(171.973, 97.181, 14.758, 1.046)
pt3dadd(171.973, 97.061, 14.752, 1.026)
pt3dadd(171.973, 96.941, 14.746, 1.008)
pt3dadd(171.973, 96.821, 14.74, 0.988)
pt3dadd(171.973, 96.702, 14.734, 0.97)
pt3dadd(171.973, 96.582, 14.728, 0.952)
pt3dadd(171.973, 96.462, 14.722, 0.932)
}
dend_7[47] {pt3dclear()
pt3dadd(171.973, 96.462, 14.722, 0.932)
pt3dadd(171.973, 96.44, 14.72, 0.936)
pt3dadd(171.973, 96.321, 14.711, 0.956)
pt3dadd(171.973, 96.201, 14.702, 0.976)
pt3dadd(171.973, 96.081, 14.694, 0.996)
pt3dadd(171.973, 95.962, 14.685, 1.014)
pt3dadd(171.973, 95.842, 14.676, 1.034)
pt3dadd(171.973, 95.723, 14.667, 1.054)
pt3dadd(171.973, 95.603, 14.658, 1.074)
pt3dadd(171.973, 95.484, 14.649, 1.094)
pt3dadd(171.973, 95.364, 14.641, 1.114)
pt3dadd(171.973, 95.245, 14.631, 1.13)
pt3dadd(171.973, 95.126, 14.618, 1.13)
pt3dadd(171.973, 95.007, 14.605, 1.13)
pt3dadd(171.972, 94.888, 14.592, 1.13)
pt3dadd(171.972, 94.769, 14.579, 1.13)
pt3dadd(171.972, 94.65, 14.566, 1.13)
pt3dadd(171.972, 94.531, 14.553, 1.13)
pt3dadd(171.972, 94.412, 14.54, 1.13)
pt3dadd(171.971, 94.293, 14.527, 1.13)
pt3dadd(171.971, 94.174, 14.514, 1.13)
pt3dadd(171.971, 94.058, 14.494, 1.13)
pt3dadd(171.971, 93.953, 14.445, 1.13)
pt3dadd(171.971, 93.849, 14.395, 1.13)
pt3dadd(171.97, 93.744, 14.346, 1.13)
pt3dadd(171.97, 93.64, 14.297, 1.13)
pt3dadd(171.97, 93.535, 14.248, 1.13)
pt3dadd(171.97, 93.431, 14.199, 1.13)
pt3dadd(171.97, 93.326, 14.15, 1.13)
pt3dadd(171.968, 93.222, 14.101, 1.13)
pt3dadd(171.968, 93.117, 14.052, 1.13)
pt3dadd(171.968, 93.011, 14.006, 1.13)
pt3dadd(171.967, 92.9, 13.967, 1.13)
pt3dadd(171.967, 92.789, 13.929, 1.13)
pt3dadd(171.967, 92.679, 13.89, 1.13)
pt3dadd(171.966, 92.568, 13.851, 1.13)
pt3dadd(171.966, 92.457, 13.813, 1.13)
pt3dadd(171.965, 92.346, 13.774, 1.13)
pt3dadd(171.965, 92.236, 13.735, 1.13)
pt3dadd(171.965, 92.125, 13.697, 1.13)
pt3dadd(171.964, 92.015, 13.658, 1.13)
pt3dadd(171.964, 91.901, 13.626, 1.13)
pt3dadd(171.962, 91.784, 13.603, 1.13)
pt3dadd(171.961, 91.668, 13.581, 1.13)
pt3dadd(171.961, 91.551, 13.558, 1.13)
pt3dadd(171.96, 91.434, 13.536, 1.13)
pt3dadd(171.959, 91.317, 13.513, 1.13)
pt3dadd(171.958, 91.2, 13.491, 1.13)
pt3dadd(171.958, 91.083, 13.468, 1.13)
pt3dadd(171.956, 90.966, 13.446, 1.13)
pt3dadd(171.955, 90.849, 13.423, 1.13)
pt3dadd(171.955, 90.731, 13.406, 1.13)
pt3dadd(171.954, 90.612, 13.394, 1.13)
pt3dadd(171.953, 90.493, 13.382, 1.13)
pt3dadd(171.952, 90.374, 13.371, 1.13)
pt3dadd(171.95, 90.254, 13.359, 1.13)
pt3dadd(171.949, 90.135, 13.348, 1.13)
pt3dadd(171.948, 90.016, 13.336, 1.13)
pt3dadd(171.947, 89.897, 13.324, 1.13)
pt3dadd(171.946, 89.778, 13.313, 1.13)
pt3dadd(171.944, 89.658, 13.301, 1.13)
pt3dadd(171.942, 89.539, 13.295, 1.13)
pt3dadd(171.94, 89.419, 13.295, 1.13)
pt3dadd(171.937, 89.299, 13.295, 1.13)
pt3dadd(171.935, 89.179, 13.295, 1.13)
pt3dadd(171.934, 89.059, 13.295, 1.13)
pt3dadd(171.931, 88.939, 13.295, 1.13)
pt3dadd(171.929, 88.819, 13.295, 1.13)
pt3dadd(171.926, 88.699, 13.295, 1.13)
pt3dadd(171.924, 88.579, 13.295, 1.13)
pt3dadd(171.922, 88.459, 13.295, 1.13)
pt3dadd(171.919, 88.339, 13.295, 1.13)
pt3dadd(171.916, 88.219, 13.295, 1.13)
pt3dadd(171.912, 88.099, 13.295, 1.13)
pt3dadd(171.908, 87.979, 13.295, 1.13)
pt3dadd(171.906, 87.859, 13.295, 1.13)
pt3dadd(171.902, 87.739, 13.295, 1.13)
pt3dadd(171.899, 87.619, 13.295, 1.13)
pt3dadd(171.895, 87.5, 13.296, 1.13)
pt3dadd(171.892, 87.38, 13.296, 1.13)
pt3dadd(171.889, 87.26, 13.296, 1.13)
pt3dadd(171.884, 87.14, 13.296, 1.13)
pt3dadd(171.88, 87.02, 13.296, 1.13)
pt3dadd(171.876, 86.9, 13.296, 1.13)
pt3dadd(171.871, 86.78, 13.296, 1.13)
pt3dadd(171.866, 86.66, 13.296, 1.13)
pt3dadd(171.862, 86.54, 13.296, 1.13)
pt3dadd(171.857, 86.42, 13.296, 1.13)
pt3dadd(171.853, 86.3, 13.296, 1.13)
pt3dadd(171.848, 86.18, 13.296, 1.13)
pt3dadd(171.844, 86.06, 13.296, 1.13)
pt3dadd(171.836, 85.941, 13.296, 1.13)
pt3dadd(171.826, 85.821, 13.297, 1.13)
pt3dadd(171.815, 85.702, 13.297, 1.13)
pt3dadd(171.805, 85.582, 13.297, 1.13)
pt3dadd(171.794, 85.463, 13.297, 1.13)
pt3dadd(171.784, 85.343, 13.297, 1.13)
pt3dadd(171.773, 85.224, 13.297, 1.13)
pt3dadd(171.762, 85.104, 13.297, 1.13)
pt3dadd(171.752, 84.984, 13.297, 1.13)
pt3dadd(171.742, 84.865, 13.298, 1.13)
pt3dadd(171.73, 84.746, 13.298, 1.13)
pt3dadd(171.715, 84.626, 13.298, 1.13)
pt3dadd(171.701, 84.507, 13.298, 1.13)
pt3dadd(171.688, 84.388, 13.298, 1.13)
pt3dadd(171.673, 84.269, 13.299, 1.13)
pt3dadd(171.66, 84.15, 13.299, 1.13)
}
}
proc shape3d_186() {
dend_7[47] { pt3dadd(171.646, 84.03, 13.299, 1.13)
pt3dadd(171.631, 83.911, 13.299, 1.13)
pt3dadd(171.618, 83.792, 13.299, 1.13)
pt3dadd(171.604, 83.673, 13.299, 1.13)
pt3dadd(171.588, 83.554, 13.3, 1.13)
pt3dadd(171.569, 83.436, 13.3, 1.13)
pt3dadd(171.55, 83.317, 13.3, 1.13)
pt3dadd(171.53, 83.199, 13.301, 1.13)
pt3dadd(171.511, 83.08, 13.301, 1.13)
pt3dadd(171.492, 82.962, 13.301, 1.13)
pt3dadd(171.473, 82.843, 13.302, 1.13)
pt3dadd(171.454, 82.725, 13.302, 1.13)
pt3dadd(171.434, 82.606, 13.302, 1.13)
pt3dadd(171.415, 82.488, 13.302, 1.13)
pt3dadd(171.384, 82.373, 13.303, 1.13)
pt3dadd(171.337, 82.262, 13.303, 1.13)
pt3dadd(171.29, 82.152, 13.304, 1.13)
pt3dadd(171.244, 82.041, 13.304, 1.13)
pt3dadd(171.198, 81.931, 13.305, 1.13)
pt3dadd(171.151, 81.82, 13.305, 1.13)
pt3dadd(171.104, 81.709, 13.306, 1.13)
pt3dadd(171.058, 81.599, 13.306, 1.13)
pt3dadd(171.011, 81.488, 13.307, 1.13)
pt3dadd(170.964, 81.378, 13.307, 1.13)
pt3dadd(170.914, 81.269, 13.308, 1.13)
pt3dadd(170.86, 81.162, 13.308, 1.13)
pt3dadd(170.806, 81.054, 13.309, 1.13)
pt3dadd(170.753, 80.947, 13.31, 1.13)
pt3dadd(170.699, 80.84, 13.31, 1.13)
pt3dadd(170.645, 80.733, 13.311, 1.13)
pt3dadd(170.591, 80.626, 13.311, 1.13)
pt3dadd(170.537, 80.518, 13.312, 1.13)
pt3dadd(170.483, 80.411, 13.313, 1.13)
pt3dadd(170.429, 80.304, 13.313, 1.13)
pt3dadd(170.378, 80.195, 13.314, 1.13)
pt3dadd(170.329, 80.085, 13.315, 1.13)
pt3dadd(170.281, 79.976, 13.317, 1.13)
pt3dadd(170.233, 79.866, 13.318, 1.13)
pt3dadd(170.184, 79.756, 13.319, 1.13)
pt3dadd(170.136, 79.646, 13.32, 1.13)
pt3dadd(170.087, 79.537, 13.322, 1.13)
pt3dadd(170.039, 79.427, 13.323, 1.13)
pt3dadd(169.991, 79.317, 13.324, 1.13)
pt3dadd(169.942, 79.207, 13.326, 1.13)
pt3dadd(169.89, 79.099, 13.327, 1.13)
pt3dadd(169.836, 78.992, 13.329, 1.13)
pt3dadd(169.782, 78.885, 13.33, 1.13)
pt3dadd(169.729, 78.777, 13.332, 1.13)
pt3dadd(169.675, 78.67, 13.334, 1.13)
pt3dadd(169.621, 78.563, 13.335, 1.13)
pt3dadd(169.567, 78.456, 13.337, 1.13)
pt3dadd(169.513, 78.349, 13.338, 1.13)
pt3dadd(169.459, 78.242, 13.34, 1.13)
pt3dadd(169.405, 78.134, 13.342, 1.13)
pt3dadd(169.345, 78.031, 13.344, 1.13)
pt3dadd(169.279, 77.93, 13.346, 1.13)
pt3dadd(169.214, 77.829, 13.349, 1.13)
pt3dadd(169.15, 77.729, 13.351, 1.13)
pt3dadd(169.084, 77.628, 13.353, 1.13)
pt3dadd(169.019, 77.527, 13.356, 1.13)
pt3dadd(168.954, 77.427, 13.358, 1.13)
pt3dadd(168.889, 77.326, 13.36, 1.13)
pt3dadd(168.823, 77.225, 13.363, 1.13)
pt3dadd(168.758, 77.124, 13.365, 1.13)
pt3dadd(168.692, 77.024, 13.368, 1.13)
pt3dadd(168.626, 76.924, 13.372, 1.13)
pt3dadd(168.56, 76.824, 13.376, 1.13)
pt3dadd(168.493, 76.724, 13.38, 1.13)
pt3dadd(168.427, 76.624, 13.384, 1.13)
pt3dadd(168.361, 76.524, 13.388, 1.13)
pt3dadd(168.295, 76.425, 13.392, 1.13)
pt3dadd(168.229, 76.325, 13.396, 1.13)
pt3dadd(168.162, 76.225, 13.4, 1.13)
pt3dadd(168.096, 76.125, 13.404, 1.13)
pt3dadd(168.029, 76.025, 13.409, 1.13)
pt3dadd(167.962, 75.927, 13.414, 1.13)
pt3dadd(167.893, 75.828, 13.42, 1.13)
pt3dadd(167.826, 75.729, 13.426, 1.13)
pt3dadd(167.759, 75.63, 13.432, 1.13)
pt3dadd(167.69, 75.531, 13.437, 1.13)
pt3dadd(167.623, 75.432, 13.443, 1.13)
pt3dadd(167.555, 75.333, 13.449, 1.13)
pt3dadd(167.488, 75.235, 13.455, 1.13)
pt3dadd(167.42, 75.136, 13.46, 1.13)
pt3dadd(167.358, 75.033, 13.468, 1.13)
pt3dadd(167.3, 74.928, 13.476, 1.13)
pt3dadd(167.244, 74.823, 13.484, 1.13)
pt3dadd(167.186, 74.718, 13.493, 1.13)
pt3dadd(167.129, 74.614, 13.501, 1.13)
pt3dadd(167.071, 74.509, 13.51, 1.13)
pt3dadd(167.014, 74.404, 13.518, 1.13)
pt3dadd(166.957, 74.299, 13.527, 1.13)
pt3dadd(166.9, 74.194, 13.535, 1.13)
pt3dadd(166.842, 74.089, 13.543, 1.13)
pt3dadd(166.79, 73.982, 13.553, 1.13)
pt3dadd(166.741, 73.873, 13.564, 1.13)
pt3dadd(166.693, 73.764, 13.574, 1.13)
pt3dadd(166.644, 73.655, 13.585, 1.13)
pt3dadd(166.595, 73.546, 13.595, 1.13)
pt3dadd(166.547, 73.437, 13.606, 1.13)
pt3dadd(166.498, 73.328, 13.616, 1.13)
pt3dadd(166.45, 73.219, 13.627, 1.13)
pt3dadd(166.4, 73.11, 13.637, 1.13)
pt3dadd(166.351, 73.001, 13.647, 1.13)
pt3dadd(166.313, 72.892, 13.671, 1.13)
pt3dadd(166.282, 72.783, 13.703, 1.13)
pt3dadd(166.249, 72.674, 13.735, 1.13)
pt3dadd(166.217, 72.565, 13.768, 1.13)
pt3dadd(166.186, 72.456, 13.8, 1.13)
pt3dadd(166.153, 72.347, 13.832, 1.13)
pt3dadd(166.121, 72.238, 13.864, 1.13)
pt3dadd(166.09, 72.129, 13.896, 1.13)
pt3dadd(166.057, 72.02, 13.928, 1.13)
pt3dadd(166.025, 71.911, 13.96, 1.13)
pt3dadd(165.994, 71.802, 13.994, 1.13)
pt3dadd(165.962, 71.694, 14.028, 1.13)
pt3dadd(165.931, 71.586, 14.063, 1.13)
pt3dadd(165.9, 71.477, 14.097, 1.13)
pt3dadd(165.869, 71.369, 14.132, 1.13)
pt3dadd(165.838, 71.261, 14.166, 1.13)
pt3dadd(165.806, 71.153, 14.201, 1.13)
pt3dadd(165.775, 71.045, 14.235, 1.13)
pt3dadd(165.743, 70.936, 14.27, 1.13)
pt3dadd(165.712, 70.828, 14.304, 1.13)
pt3dadd(165.666, 70.722, 14.329, 1.13)
pt3dadd(165.614, 70.617, 14.35, 1.13)
pt3dadd(165.563, 70.512, 14.372, 1.13)
pt3dadd(165.511, 70.407, 14.393, 1.13)
pt3dadd(165.458, 70.301, 14.414, 1.13)
pt3dadd(165.407, 70.196, 14.435, 1.13)
pt3dadd(165.355, 70.091, 14.457, 1.13)
pt3dadd(165.304, 69.986, 14.478, 1.13)
pt3dadd(165.252, 69.881, 14.499, 1.13)
pt3dadd(165.199, 69.775, 14.52, 1.13)
pt3dadd(165.149, 69.669, 14.539, 1.13)
pt3dadd(165.1, 69.561, 14.556, 1.13)
pt3dadd(165.05, 69.454, 14.573, 1.13)
pt3dadd(165, 69.347, 14.59, 1.13)
pt3dadd(164.951, 69.24, 14.607, 1.13)
pt3dadd(164.902, 69.132, 14.625, 1.13)
pt3dadd(164.851, 69.025, 14.642, 1.13)
pt3dadd(164.802, 68.918, 14.659, 1.13)
pt3dadd(164.752, 68.811, 14.676, 1.13)
pt3dadd(164.702, 68.703, 14.693, 1.13)
pt3dadd(164.657, 68.594, 14.705, 1.13)
pt3dadd(164.611, 68.483, 14.714, 1.13)
pt3dadd(164.567, 68.372, 14.723, 1.13)
pt3dadd(164.521, 68.261, 14.732, 1.13)
pt3dadd(164.477, 68.151, 14.741, 1.13)
pt3dadd(164.431, 68.04, 14.75, 1.13)
pt3dadd(164.387, 67.929, 14.76, 1.13)
pt3dadd(164.342, 67.818, 14.769, 1.13)
pt3dadd(164.297, 67.708, 14.778, 1.13)
pt3dadd(164.252, 67.597, 14.787, 1.13)
pt3dadd(164.198, 67.49, 14.79, 1.13)
pt3dadd(164.141, 67.385, 14.792, 1.13)
pt3dadd(164.083, 67.279, 14.793, 1.13)
pt3dadd(164.026, 67.174, 14.795, 1.13)
pt3dadd(163.968, 67.068, 14.796, 1.13)
pt3dadd(163.912, 66.963, 14.798, 1.13)
pt3dadd(163.854, 66.858, 14.799, 1.13)
pt3dadd(163.796, 66.752, 14.801, 1.13)
pt3dadd(163.739, 66.647, 14.802, 1.13)
pt3dadd(163.681, 66.542, 14.804, 1.13)
pt3dadd(163.62, 66.439, 14.802, 1.13)
pt3dadd(163.556, 66.337, 14.8, 1.13)
pt3dadd(163.494, 66.235, 14.797, 1.13)
pt3dadd(163.43, 66.133, 14.795, 1.13)
pt3dadd(163.367, 66.031, 14.792, 1.13)
pt3dadd(163.304, 65.929, 14.79, 1.13)
pt3dadd(163.241, 65.827, 14.788, 1.13)
pt3dadd(163.178, 65.725, 14.785, 1.13)
pt3dadd(163.115, 65.623, 14.783, 1.13)
pt3dadd(163.051, 65.521, 14.78, 1.13)
pt3dadd(163, 65.413, 14.775, 1.13)
pt3dadd(162.949, 65.304, 14.769, 1.13)
pt3dadd(162.9, 65.195, 14.763, 1.13)
pt3dadd(162.851, 65.086, 14.757, 1.13)
pt3dadd(162.802, 64.977, 14.751, 1.13)
pt3dadd(162.751, 64.868, 14.744, 1.13)
pt3dadd(162.702, 64.759, 14.738, 1.13)
pt3dadd(162.653, 64.65, 14.732, 1.13)
pt3dadd(162.604, 64.541, 14.726, 1.13)
pt3dadd(162.554, 64.432, 14.72, 1.13)
pt3dadd(162.5, 64.324, 14.712, 1.13)
pt3dadd(162.448, 64.217, 14.704, 1.13)
pt3dadd(162.394, 64.11, 14.697, 1.13)
pt3dadd(162.34, 64.004, 14.689, 1.13)
pt3dadd(162.286, 63.897, 14.681, 1.13)
pt3dadd(162.233, 63.79, 14.673, 1.13)
pt3dadd(162.179, 63.683, 14.665, 1.13)
pt3dadd(162.125, 63.576, 14.658, 1.13)
pt3dadd(162.071, 63.469, 14.65, 1.13)
pt3dadd(162.017, 63.362, 14.642, 1.13)
pt3dadd(161.952, 63.263, 14.632, 1.13)
pt3dadd(161.885, 63.164, 14.622, 1.13)
pt3dadd(161.816, 63.066, 14.612, 1.13)
pt3dadd(161.749, 62.967, 14.601, 1.13)
pt3dadd(161.682, 62.869, 14.591, 1.13)
pt3dadd(161.614, 62.771, 14.581, 1.13)
}
}
proc shape3d_187() {
dend_7[47] { pt3dadd(161.546, 62.672, 14.57, 1.13)
pt3dadd(161.479, 62.574, 14.56, 1.13)
pt3dadd(161.412, 62.475, 14.55, 1.13)
pt3dadd(161.344, 62.377, 14.539, 1.13)
pt3dadd(161.28, 62.283, 14.509, 1.13)
pt3dadd(161.215, 62.19, 14.474, 1.13)
pt3dadd(161.152, 62.098, 14.44, 1.13)
pt3dadd(161.088, 62.005, 14.405, 1.13)
pt3dadd(161.023, 61.912, 14.371, 1.13)
pt3dadd(160.96, 61.82, 14.336, 1.13)
pt3dadd(160.896, 61.727, 14.302, 1.13)
pt3dadd(160.832, 61.634, 14.267, 1.13)
pt3dadd(160.768, 61.542, 14.233, 1.13)
pt3dadd(160.704, 61.449, 14.198, 1.13)
pt3dadd(160.638, 61.36, 14.159, 1.13)
pt3dadd(160.572, 61.272, 14.12, 1.13)
pt3dadd(160.505, 61.183, 14.081, 1.13)
pt3dadd(160.439, 61.095, 14.042, 1.13)
pt3dadd(160.373, 61.006, 14.003, 1.13)
pt3dadd(160.307, 60.918, 13.964, 1.13)
pt3dadd(160.241, 60.83, 13.925, 1.13)
pt3dadd(160.174, 60.741, 13.886, 1.13)
pt3dadd(160.108, 60.653, 13.847, 1.13)
pt3dadd(160.04, 60.564, 13.81, 1.13)
pt3dadd(159.965, 60.475, 13.788, 1.13)
pt3dadd(159.89, 60.385, 13.765, 1.13)
pt3dadd(159.815, 60.296, 13.743, 1.13)
pt3dadd(159.739, 60.207, 13.72, 1.13)
pt3dadd(159.664, 60.117, 13.698, 1.13)
pt3dadd(159.588, 60.028, 13.675, 1.13)
pt3dadd(159.514, 59.938, 13.652, 1.13)
pt3dadd(159.438, 59.849, 13.63, 1.13)
pt3dadd(159.362, 59.76, 13.607, 1.13)
pt3dadd(159.289, 59.669, 13.586, 1.13)
pt3dadd(159.23, 59.564, 13.579, 1.13)
pt3dadd(159.173, 59.46, 13.572, 1.13)
pt3dadd(159.114, 59.355, 13.565, 1.13)
pt3dadd(159.055, 59.25, 13.558, 1.13)
pt3dadd(158.998, 59.146, 13.551, 1.13)
pt3dadd(158.939, 59.041, 13.543, 1.13)
pt3dadd(158.881, 58.937, 13.536, 1.13)
pt3dadd(158.822, 58.832, 13.529, 1.13)
pt3dadd(158.765, 58.728, 13.522, 1.13)
pt3dadd(158.706, 58.623, 13.516, 1.13)
pt3dadd(158.644, 58.521, 13.518, 1.13)
pt3dadd(158.581, 58.418, 13.52, 1.13)
pt3dadd(158.52, 58.315, 13.522, 1.13)
pt3dadd(158.458, 58.212, 13.524, 1.13)
pt3dadd(158.396, 58.11, 13.526, 1.13)
pt3dadd(158.334, 58.007, 13.528, 1.13)
pt3dadd(158.272, 57.904, 13.53, 1.13)
pt3dadd(158.21, 57.801, 13.532, 1.13)
pt3dadd(158.148, 57.699, 13.534, 1.13)
pt3dadd(158.084, 57.597, 13.538, 1.13)
pt3dadd(158.014, 57.501, 13.549, 1.13)
pt3dadd(157.943, 57.405, 13.559, 1.13)
pt3dadd(157.872, 57.309, 13.57, 1.13)
pt3dadd(157.802, 57.213, 13.581, 1.13)
pt3dadd(157.732, 57.117, 13.592, 1.13)
pt3dadd(157.661, 57.021, 13.603, 1.13)
pt3dadd(157.59, 56.924, 13.613, 1.13)
pt3dadd(157.519, 56.828, 13.624, 1.13)
pt3dadd(157.448, 56.732, 13.635, 1.13)
pt3dadd(157.378, 56.638, 13.652, 1.13)
pt3dadd(157.307, 56.553, 13.69, 1.13)
pt3dadd(157.237, 56.467, 13.728, 1.13)
pt3dadd(157.166, 56.381, 13.766, 1.13)
pt3dadd(157.096, 56.296, 13.804, 1.13)
pt3dadd(157.025, 56.21, 13.842, 1.13)
pt3dadd(156.954, 56.125, 13.88, 1.13)
pt3dadd(156.884, 56.039, 13.918, 1.13)
pt3dadd(156.814, 55.953, 13.956, 1.13)
pt3dadd(156.743, 55.868, 13.995, 1.13)
pt3dadd(156.67, 55.784, 14.033, 1.13)
pt3dadd(156.593, 55.704, 14.071, 1.13)
pt3dadd(156.516, 55.625, 14.109, 1.13)
pt3dadd(156.438, 55.545, 14.147, 1.13)
pt3dadd(156.361, 55.465, 14.185, 1.13)
pt3dadd(156.284, 55.386, 14.223, 1.13)
pt3dadd(156.206, 55.306, 14.261, 1.13)
pt3dadd(156.13, 55.226, 14.299, 1.13)
pt3dadd(156.053, 55.146, 14.337, 1.13)
pt3dadd(155.975, 55.067, 14.375, 1.13)
pt3dadd(155.893, 54.988, 14.407, 1.13)
pt3dadd(155.807, 54.911, 14.431, 1.13)
pt3dadd(155.719, 54.833, 14.455, 1.13)
pt3dadd(155.633, 54.756, 14.478, 1.13)
pt3dadd(155.545, 54.678, 14.502, 1.13)
pt3dadd(155.458, 54.601, 14.526, 1.13)
pt3dadd(155.371, 54.524, 14.55, 1.13)
pt3dadd(155.284, 54.446, 14.574, 1.13)
pt3dadd(155.197, 54.369, 14.598, 1.13)
pt3dadd(155.11, 54.291, 14.621, 1.13)
pt3dadd(155.021, 54.214, 14.64, 1.13)
pt3dadd(154.93, 54.137, 14.653, 1.13)
pt3dadd(154.84, 54.06, 14.665, 1.13)
pt3dadd(154.748, 53.983, 14.678, 1.13)
pt3dadd(154.658, 53.906, 14.691, 1.13)
pt3dadd(154.567, 53.829, 14.703, 1.13)
pt3dadd(154.477, 53.751, 14.716, 1.13)
pt3dadd(154.386, 53.674, 14.728, 1.13)
pt3dadd(154.295, 53.597, 14.741, 1.13)
pt3dadd(154.205, 53.52, 14.754, 1.13)
pt3dadd(154.114, 53.443, 14.765, 1.13)
pt3dadd(154.022, 53.366, 14.774, 1.13)
pt3dadd(153.93, 53.29, 14.784, 1.13)
pt3dadd(153.839, 53.213, 14.793, 1.13)
pt3dadd(153.748, 53.136, 14.803, 1.13)
pt3dadd(153.656, 53.059, 14.813, 1.13)
pt3dadd(153.564, 52.983, 14.822, 1.13)
pt3dadd(153.473, 52.906, 14.832, 1.13)
pt3dadd(153.382, 52.829, 14.841, 1.13)
pt3dadd(153.29, 52.752, 14.851, 1.13)
pt3dadd(153.192, 52.685, 14.856, 1.13)
pt3dadd(153.086, 52.628, 14.856, 1.13)
pt3dadd(152.981, 52.571, 14.856, 1.13)
pt3dadd(152.875, 52.514, 14.857, 1.13)
pt3dadd(152.77, 52.457, 14.857, 1.13)
pt3dadd(152.664, 52.4, 14.857, 1.13)
pt3dadd(152.558, 52.343, 14.858, 1.13)
pt3dadd(152.453, 52.286, 14.858, 1.13)
pt3dadd(152.347, 52.229, 14.858, 1.13)
pt3dadd(152.242, 52.172, 14.858, 1.13)
pt3dadd(152.136, 52.114, 14.859, 1.13)
pt3dadd(152.032, 52.056, 14.859, 1.13)
pt3dadd(151.926, 51.998, 14.859, 1.13)
pt3dadd(151.822, 51.939, 14.859, 1.13)
pt3dadd(151.716, 51.881, 14.859, 1.13)
pt3dadd(151.612, 51.823, 14.859, 1.13)
pt3dadd(151.506, 51.765, 14.859, 1.13)
pt3dadd(151.402, 51.707, 14.859, 1.13)
pt3dadd(151.296, 51.649, 14.859, 1.13)
pt3dadd(151.192, 51.59, 14.859, 1.13)
pt3dadd(151.088, 51.529, 14.859, 1.13)
pt3dadd(150.988, 51.464, 14.859, 1.13)
pt3dadd(150.887, 51.399, 14.859, 1.13)
pt3dadd(150.786, 51.334, 14.859, 1.13)
pt3dadd(150.685, 51.269, 14.859, 1.13)
pt3dadd(150.584, 51.204, 14.858, 1.13)
pt3dadd(150.484, 51.139, 14.858, 1.13)
pt3dadd(150.383, 51.074, 14.858, 1.13)
pt3dadd(150.282, 51.009, 14.858, 1.13)
pt3dadd(150.181, 50.944, 14.858, 1.13)
pt3dadd(150.078, 50.881, 14.858, 1.13)
pt3dadd(149.975, 50.82, 14.858, 1.13)
pt3dadd(149.872, 50.759, 14.858, 1.13)
pt3dadd(149.768, 50.698, 14.858, 1.13)
pt3dadd(149.665, 50.637, 14.858, 1.13)
pt3dadd(149.562, 50.576, 14.858, 1.13)
pt3dadd(149.459, 50.515, 14.858, 1.13)
pt3dadd(149.354, 50.454, 14.858, 1.13)
pt3dadd(149.251, 50.394, 14.858, 1.13)
pt3dadd(149.148, 50.333, 14.858, 1.13)
pt3dadd(149.042, 50.275, 14.858, 1.13)
pt3dadd(148.936, 50.221, 14.858, 1.13)
pt3dadd(148.829, 50.168, 14.858, 1.13)
pt3dadd(148.721, 50.114, 14.858, 1.13)
pt3dadd(148.614, 50.06, 14.858, 1.13)
pt3dadd(148.506, 50.006, 14.858, 1.13)
pt3dadd(148.399, 49.953, 14.858, 1.13)
pt3dadd(148.292, 49.899, 14.858, 1.13)
pt3dadd(148.184, 49.845, 14.858, 1.13)
pt3dadd(148.078, 49.791, 14.858, 1.13)
pt3dadd(147.974, 49.73, 14.858, 1.13)
pt3dadd(147.876, 49.662, 14.858, 1.13)
pt3dadd(147.776, 49.594, 14.858, 1.13)
pt3dadd(147.678, 49.526, 14.858, 1.13)
pt3dadd(147.578, 49.458, 14.858, 1.13)
pt3dadd(147.48, 49.39, 14.858, 1.13)
pt3dadd(147.382, 49.322, 14.858, 1.13)
pt3dadd(147.282, 49.254, 14.858, 1.13)
pt3dadd(147.184, 49.186, 14.858, 1.13)
pt3dadd(147.085, 49.118, 14.858, 1.13)
pt3dadd(146.989, 49.046, 14.858, 1.13)
pt3dadd(146.894, 48.971, 14.858, 1.13)
pt3dadd(146.801, 48.897, 14.858, 1.13)
pt3dadd(146.707, 48.822, 14.858, 1.13)
pt3dadd(146.614, 48.747, 14.858, 1.13)
pt3dadd(146.52, 48.672, 14.858, 1.13)
pt3dadd(146.425, 48.597, 14.858, 1.13)
pt3dadd(146.332, 48.523, 14.858, 1.13)
pt3dadd(146.238, 48.448, 14.858, 1.13)
pt3dadd(146.144, 48.373, 14.858, 1.13)
pt3dadd(146.054, 48.294, 14.858, 1.13)
pt3dadd(145.968, 48.21, 14.858, 1.13)
pt3dadd(145.882, 48.127, 14.858, 1.13)
pt3dadd(145.795, 48.044, 14.858, 1.13)
pt3dadd(145.709, 47.961, 14.858, 1.13)
pt3dadd(145.622, 47.877, 14.858, 1.13)
pt3dadd(145.536, 47.794, 14.858, 1.13)
pt3dadd(145.45, 47.711, 14.857, 1.13)
pt3dadd(145.363, 47.628, 14.857, 1.13)
pt3dadd(145.277, 47.544, 14.857, 1.13)
pt3dadd(145.192, 47.46, 14.857, 1.13)
pt3dadd(145.108, 47.374, 14.857, 1.13)
pt3dadd(145.022, 47.289, 14.857, 1.13)
pt3dadd(144.938, 47.203, 14.857, 1.13)
pt3dadd(144.854, 47.118, 14.857, 1.13)
pt3dadd(144.77, 47.032, 14.857, 1.13)
pt3dadd(144.686, 46.947, 14.857, 1.13)
}
}
proc shape3d_188() {
dend_7[47] { pt3dadd(144.601, 46.861, 14.857, 1.13)
pt3dadd(144.517, 46.776, 14.857, 1.13)
pt3dadd(144.433, 46.69, 14.857, 1.13)
pt3dadd(144.354, 46.6, 14.857, 1.13)
pt3dadd(144.28, 46.506, 14.857, 1.13)
pt3dadd(144.205, 46.412, 14.857, 1.13)
pt3dadd(144.131, 46.318, 14.857, 1.13)
pt3dadd(144.055, 46.225, 14.856, 1.13)
pt3dadd(143.981, 46.131, 14.856, 1.13)
pt3dadd(143.906, 46.037, 14.856, 1.13)
pt3dadd(143.832, 45.943, 14.856, 1.13)
pt3dadd(143.756, 45.849, 14.856, 1.13)
pt3dadd(143.682, 45.755, 14.856, 1.13)
pt3dadd(143.609, 45.66, 14.856, 1.13)
pt3dadd(143.536, 45.565, 14.856, 1.13)
pt3dadd(143.464, 45.469, 14.856, 1.13)
pt3dadd(143.392, 45.373, 14.855, 1.13)
pt3dadd(143.318, 45.278, 14.855, 1.13)
pt3dadd(143.246, 45.182, 14.855, 1.13)
pt3dadd(143.173, 45.086, 14.855, 1.13)
pt3dadd(143.101, 44.991, 14.855, 1.13)
pt3dadd(143.029, 44.895, 14.855, 1.13)
pt3dadd(142.956, 44.8, 14.855, 1.13)
pt3dadd(142.9, 44.695, 14.855, 1.13)
pt3dadd(142.854, 44.584, 14.854, 1.13)
pt3dadd(142.81, 44.473, 14.854, 1.13)
pt3dadd(142.764, 44.361, 14.854, 1.13)
pt3dadd(142.718, 44.25, 14.854, 1.13)
pt3dadd(142.673, 44.139, 14.853, 1.13)
pt3dadd(142.628, 44.028, 14.853, 1.13)
pt3dadd(142.583, 43.917, 14.853, 1.13)
pt3dadd(142.537, 43.806, 14.853, 1.13)
pt3dadd(142.493, 43.695, 14.852, 1.13)
pt3dadd(142.453, 43.581, 14.852, 1.13)
pt3dadd(142.418, 43.466, 14.852, 1.13)
pt3dadd(142.384, 43.352, 14.851, 1.13)
pt3dadd(142.348, 43.237, 14.851, 1.13)
pt3dadd(142.313, 43.122, 14.851, 1.13)
pt3dadd(142.278, 43.008, 14.85, 1.13)
pt3dadd(142.242, 42.893, 14.85, 1.13)
pt3dadd(142.207, 42.778, 14.85, 1.13)
pt3dadd(142.172, 42.663, 14.849, 1.13)
pt3dadd(142.136, 42.549, 14.849, 1.13)
pt3dadd(142.116, 42.431, 14.848, 1.13)
pt3dadd(142.103, 42.312, 14.848, 1.13)
pt3dadd(142.09, 42.192, 14.847, 1.13)
pt3dadd(142.076, 42.073, 14.846, 1.13)
pt3dadd(142.063, 41.954, 14.846, 1.13)
pt3dadd(142.051, 41.835, 14.845, 1.13)
pt3dadd(142.038, 41.715, 14.845, 1.13)
pt3dadd(142.025, 41.596, 14.844, 1.13)
pt3dadd(142.012, 41.477, 14.843, 1.13)
pt3dadd(141.997, 41.357, 14.843, 1.13)
pt3dadd(141.99, 41.238, 14.842, 1.13)
pt3dadd(141.985, 41.118, 14.841, 1.13)
pt3dadd(141.98, 40.998, 14.84, 1.13)
pt3dadd(141.976, 40.878, 14.838, 1.13)
pt3dadd(141.971, 40.758, 14.837, 1.13)
pt3dadd(141.966, 40.638, 14.836, 1.13)
pt3dadd(141.961, 40.518, 14.835, 1.13)
pt3dadd(141.955, 40.398, 14.834, 1.13)
pt3dadd(141.95, 40.279, 14.833, 1.13)
pt3dadd(141.946, 40.159, 14.832, 1.13)
pt3dadd(141.944, 40.039, 14.83, 1.13)
pt3dadd(141.944, 39.919, 14.829, 1.13)
pt3dadd(141.944, 39.799, 14.827, 1.13)
pt3dadd(141.944, 39.679, 14.826, 1.13)
pt3dadd(141.944, 39.559, 14.824, 1.13)
pt3dadd(141.943, 39.439, 14.823, 1.13)
pt3dadd(141.943, 39.319, 14.821, 1.13)
pt3dadd(141.943, 39.199, 14.82, 1.13)
pt3dadd(141.943, 39.079, 14.818, 1.13)
pt3dadd(141.943, 38.959, 14.817, 1.13)
pt3dadd(141.943, 38.839, 14.814, 1.13)
pt3dadd(141.943, 38.719, 14.812, 1.13)
pt3dadd(141.943, 38.599, 14.809, 1.13)
pt3dadd(141.943, 38.479, 14.806, 1.13)
pt3dadd(141.943, 38.359, 14.803, 1.13)
pt3dadd(141.943, 38.239, 14.8, 1.13)
pt3dadd(141.943, 38.119, 14.797, 1.13)
pt3dadd(141.943, 37.999, 14.795, 1.13)
pt3dadd(141.943, 37.879, 14.792, 1.13)
pt3dadd(141.943, 37.759, 14.789, 1.13)
pt3dadd(141.943, 37.639, 14.785, 1.13)
pt3dadd(141.943, 37.52, 14.78, 1.13)
pt3dadd(141.943, 37.4, 14.775, 1.13)
pt3dadd(141.943, 37.28, 14.77, 1.13)
pt3dadd(141.943, 37.16, 14.765, 1.13)
pt3dadd(141.943, 37.04, 14.76, 1.13)
pt3dadd(141.943, 36.92, 14.755, 1.13)
pt3dadd(141.943, 36.8, 14.75, 1.13)
pt3dadd(141.943, 36.681, 14.745, 1.13)
pt3dadd(141.943, 36.561, 14.74, 1.13)
pt3dadd(141.943, 36.441, 14.734, 1.13)
pt3dadd(141.943, 36.321, 14.727, 1.13)
pt3dadd(141.943, 36.202, 14.72, 1.13)
pt3dadd(141.943, 36.082, 14.713, 1.13)
pt3dadd(141.943, 35.962, 14.706, 1.13)
pt3dadd(141.943, 35.842, 14.699, 1.13)
pt3dadd(141.943, 35.723, 14.692, 1.13)
pt3dadd(141.943, 35.603, 14.685, 1.13)
pt3dadd(141.943, 35.483, 14.678, 1.13)
pt3dadd(141.943, 35.364, 14.671, 1.13)
pt3dadd(141.943, 35.244, 14.661, 1.13)
pt3dadd(141.943, 35.125, 14.65, 1.13)
pt3dadd(141.943, 35.006, 14.639, 1.13)
pt3dadd(141.943, 34.887, 14.627, 1.13)
pt3dadd(141.943, 34.767, 14.616, 1.13)
pt3dadd(141.942, 34.648, 14.605, 1.13)
pt3dadd(141.942, 34.529, 14.594, 1.13)
pt3dadd(141.942, 34.41, 14.583, 1.13)
pt3dadd(141.942, 34.29, 14.571, 1.13)
pt3dadd(141.942, 34.171, 14.56, 1.13)
pt3dadd(141.942, 34.053, 14.542, 1.13)
pt3dadd(141.942, 33.936, 14.521, 1.13)
pt3dadd(141.941, 33.818, 14.501, 1.13)
pt3dadd(141.941, 33.701, 14.48, 1.13)
pt3dadd(141.941, 33.584, 14.459, 1.13)
pt3dadd(141.941, 33.466, 14.438, 1.13)
pt3dadd(141.941, 33.349, 14.417, 1.13)
pt3dadd(141.94, 33.231, 14.397, 1.13)
pt3dadd(141.94, 33.114, 14.376, 1.13)
pt3dadd(141.94, 32.997, 14.355, 1.13)
pt3dadd(141.94, 32.884, 14.321, 1.13)
pt3dadd(141.94, 32.773, 14.284, 1.13)
pt3dadd(141.94, 32.661, 14.247, 1.13)
pt3dadd(141.94, 32.55, 14.21, 1.13)
pt3dadd(141.94, 32.438, 14.173, 1.13)
pt3dadd(141.938, 32.327, 14.136, 1.13)
pt3dadd(141.938, 32.216, 14.099, 1.13)
pt3dadd(141.938, 32.104, 14.062, 1.13)
pt3dadd(141.938, 31.993, 14.024, 1.13)
pt3dadd(141.938, 31.881, 13.987, 1.13)
pt3dadd(141.938, 31.767, 13.957, 1.13)
pt3dadd(141.937, 31.652, 13.929, 1.13)
pt3dadd(141.937, 31.537, 13.901, 1.13)
pt3dadd(141.936, 31.422, 13.872, 1.13)
pt3dadd(141.936, 31.306, 13.844, 1.13)
pt3dadd(141.936, 31.191, 13.816, 1.13)
pt3dadd(141.935, 31.076, 13.788, 1.13)
pt3dadd(141.935, 30.961, 13.76, 1.13)
pt3dadd(141.934, 30.846, 13.732, 1.13)
pt3dadd(141.934, 30.731, 13.703, 1.13)
pt3dadd(141.934, 30.614, 13.679, 1.13)
pt3dadd(141.932, 30.498, 13.656, 1.13)
pt3dadd(141.932, 30.381, 13.634, 1.13)
pt3dadd(141.931, 30.264, 13.611, 1.13)
pt3dadd(141.931, 30.147, 13.588, 1.13)
pt3dadd(141.931, 30.03, 13.565, 1.13)
pt3dadd(141.93, 29.913, 13.542, 1.13)
pt3dadd(141.93, 29.796, 13.52, 1.13)
pt3dadd(141.929, 29.68, 13.497, 1.13)
pt3dadd(141.929, 29.563, 13.474, 1.13)
pt3dadd(141.928, 29.444, 13.461, 1.13)
pt3dadd(141.926, 29.325, 13.45, 1.13)
pt3dadd(141.925, 29.205, 13.44, 1.13)
pt3dadd(141.925, 29.086, 13.429, 1.13)
pt3dadd(141.924, 28.967, 13.419, 1.13)
pt3dadd(141.923, 28.847, 13.408, 1.13)
pt3dadd(141.922, 28.728, 13.398, 1.13)
pt3dadd(141.92, 28.609, 13.387, 1.13)
pt3dadd(141.919, 28.489, 13.377, 1.13)
pt3dadd(141.918, 28.37, 13.366, 1.13)
pt3dadd(141.917, 28.25, 13.361, 1.13)
pt3dadd(141.916, 28.13, 13.356, 1.13)
pt3dadd(141.913, 28.011, 13.352, 1.13)
pt3dadd(141.912, 27.891, 13.348, 1.13)
pt3dadd(141.911, 27.771, 13.343, 1.13)
pt3dadd(141.908, 27.651, 13.339, 1.13)
pt3dadd(141.907, 27.531, 13.334, 1.13)
pt3dadd(141.906, 27.411, 13.33, 1.13)
pt3dadd(141.905, 27.291, 13.326, 1.13)
pt3dadd(141.902, 27.171, 13.321, 1.13)
pt3dadd(141.901, 27.051, 13.322, 1.13)
pt3dadd(141.899, 26.931, 13.323, 1.13)
pt3dadd(141.896, 26.812, 13.325, 1.13)
pt3dadd(141.894, 26.692, 13.326, 1.13)
pt3dadd(141.892, 26.572, 13.327, 1.13)
pt3dadd(141.89, 26.452, 13.329, 1.13)
pt3dadd(141.888, 26.332, 13.33, 1.13)
pt3dadd(141.886, 26.212, 13.332, 1.13)
pt3dadd(141.883, 26.092, 13.333, 1.13)
pt3dadd(141.881, 25.972, 13.335, 1.13)
pt3dadd(141.876, 25.852, 13.337, 1.13)
pt3dadd(141.87, 25.732, 13.34, 1.13)
pt3dadd(141.864, 25.612, 13.343, 1.13)
pt3dadd(141.859, 25.493, 13.346, 1.13)
pt3dadd(141.853, 25.373, 13.349, 1.13)
pt3dadd(141.847, 25.253, 13.352, 1.13)
pt3dadd(141.841, 25.133, 13.355, 1.13)
pt3dadd(141.835, 25.013, 13.358, 1.13)
pt3dadd(141.83, 24.893, 13.361, 1.13)
pt3dadd(141.824, 24.774, 13.364, 1.13)
pt3dadd(141.817, 24.654, 13.369, 1.13)
pt3dadd(141.81, 24.534, 13.374, 1.13)
pt3dadd(141.803, 24.415, 13.38, 1.13)
pt3dadd(141.796, 24.295, 13.385, 1.13)
pt3dadd(141.788, 24.176, 13.39, 1.13)
pt3dadd(141.781, 24.056, 13.396, 1.13)
pt3dadd(141.774, 23.936, 13.401, 1.13)
}
}
proc shape3d_189() {
dend_7[47] { pt3dadd(141.767, 23.817, 13.406, 1.13)
pt3dadd(141.76, 23.697, 13.412, 1.13)
pt3dadd(141.752, 23.577, 13.417, 1.13)
pt3dadd(141.742, 23.458, 13.425, 1.13)
pt3dadd(141.731, 23.339, 13.433, 1.13)
pt3dadd(141.719, 23.22, 13.442, 1.13)
pt3dadd(141.708, 23.101, 13.45, 1.13)
pt3dadd(141.696, 22.982, 13.458, 1.13)
pt3dadd(141.685, 22.863, 13.466, 1.13)
pt3dadd(141.674, 22.744, 13.475, 1.13)
pt3dadd(141.662, 22.625, 13.483, 1.13)
pt3dadd(141.652, 22.506, 13.491, 1.13)
pt3dadd(141.64, 22.387, 13.5, 1.13)
pt3dadd(141.604, 22.274, 13.513, 1.13)
pt3dadd(141.564, 22.162, 13.526, 1.13)
pt3dadd(141.524, 22.05, 13.54, 1.13)
pt3dadd(141.484, 21.938, 13.553, 1.13)
pt3dadd(141.444, 21.826, 13.567, 1.13)
pt3dadd(141.403, 21.714, 13.58, 1.13)
pt3dadd(141.364, 21.602, 13.594, 1.13)
pt3dadd(141.324, 21.49, 13.608, 1.13)
pt3dadd(141.283, 21.379, 13.621, 1.13)
pt3dadd(141.244, 21.267, 13.635, 1.13)
pt3dadd(141.227, 21.165, 13.683, 1.13)
pt3dadd(141.214, 21.065, 13.737, 1.13)
pt3dadd(141.202, 20.964, 13.791, 1.13)
pt3dadd(141.188, 20.864, 13.845, 1.13)
pt3dadd(141.175, 20.764, 13.899, 1.13)
pt3dadd(141.163, 20.664, 13.953, 1.13)
pt3dadd(141.15, 20.563, 14.007, 1.13)
pt3dadd(141.138, 20.463, 14.061, 1.13)
pt3dadd(141.125, 20.363, 14.115, 1.13)
pt3dadd(141.134, 20.271, 14.168, 1.13)
pt3dadd(141.212, 20.204, 14.22, 1.13)
pt3dadd(141.29, 20.136, 14.271, 1.13)
pt3dadd(141.368, 20.069, 14.323, 1.13)
pt3dadd(141.445, 20.002, 14.374, 1.13)
pt3dadd(141.523, 19.935, 14.426, 1.13)
pt3dadd(141.601, 19.868, 14.478, 1.13)
pt3dadd(141.679, 19.801, 14.529, 1.13)
pt3dadd(141.757, 19.734, 14.581, 1.13)
pt3dadd(141.835, 19.667, 14.633, 1.13)
pt3dadd(141.932, 19.601, 14.648, 1.13)
pt3dadd(142.032, 19.536, 14.662, 1.13)
pt3dadd(142.132, 19.47, 14.675, 1.13)
pt3dadd(142.231, 19.405, 14.688, 1.13)
pt3dadd(142.33, 19.339, 14.701, 1.13)
pt3dadd(142.429, 19.274, 14.714, 1.13)
pt3dadd(142.529, 19.209, 14.727, 1.13)
pt3dadd(142.628, 19.143, 14.74, 1.13)
pt3dadd(142.728, 19.078, 14.753, 1.13)
pt3dadd(142.826, 19.012, 14.766, 1.13)
pt3dadd(142.926, 18.946, 14.776, 1.13)
pt3dadd(143.026, 18.88, 14.785, 1.13)
pt3dadd(143.125, 18.813, 14.794, 1.13)
pt3dadd(143.225, 18.747, 14.803, 1.13)
pt3dadd(143.324, 18.681, 14.813, 1.13)
pt3dadd(143.424, 18.615, 14.822, 1.13)
pt3dadd(143.522, 18.548, 14.831, 1.13)
pt3dadd(143.622, 18.482, 14.84, 1.13)
pt3dadd(143.722, 18.416, 14.849, 1.13)
pt3dadd(143.821, 18.35, 14.859, 1.13)
}
dend_7[48] {pt3dclear()
pt3dadd(171.973, 96.462, 14.722, 0.932)
pt3dadd(171.928, 96.448, 14.684, 0.936)
pt3dadd(171.924, 96.473, 14.577, 0.976)
pt3dadd(171.92, 96.499, 14.47, 1.014)
pt3dadd(171.917, 96.525, 14.362, 1.054)
pt3dadd(171.914, 96.55, 14.255, 1.092)
pt3dadd(171.911, 96.576, 14.147, 1.132)
pt3dadd(171.907, 96.602, 14.04, 1.17)
pt3dadd(171.905, 96.627, 13.933, 1.21)
pt3dadd(171.9, 96.653, 13.825, 1.248)
pt3dadd(171.898, 96.679, 13.718, 1.288)
pt3dadd(171.894, 96.705, 13.61, 1.326)
pt3dadd(171.902, 96.699, 13.517, 1.356)
pt3dadd(171.946, 96.6, 13.467, 1.356)
pt3dadd(171.989, 96.502, 13.417, 1.356)
pt3dadd(172.031, 96.404, 13.366, 1.356)
pt3dadd(172.074, 96.308, 13.315, 1.356)
pt3dadd(172.145, 96.245, 13.26, 1.356)
pt3dadd(172.216, 96.183, 13.205, 1.356)
pt3dadd(172.286, 96.12, 13.149, 1.356)
pt3dadd(172.357, 96.057, 13.094, 1.356)
pt3dadd(172.432, 96.039, 13.026, 1.356)
pt3dadd(172.506, 96.03, 12.955, 1.356)
pt3dadd(172.578, 96.021, 12.884, 1.356)
pt3dadd(172.652, 96.012, 12.813, 1.356)
pt3dadd(172.727, 96.003, 12.742, 1.356)
pt3dadd(172.802, 95.994, 12.674, 1.356)
pt3dadd(172.879, 95.985, 12.605, 1.356)
pt3dadd(172.955, 95.975, 12.537, 1.356)
pt3dadd(173.03, 95.966, 12.469, 1.356)
pt3dadd(173.106, 95.957, 12.4, 1.356)
pt3dadd(173.166, 95.948, 12.316, 1.356)
pt3dadd(173.219, 95.939, 12.227, 1.356)
pt3dadd(173.273, 95.93, 12.137, 1.356)
pt3dadd(173.327, 95.921, 12.048, 1.356)
pt3dadd(173.381, 95.911, 11.958, 1.356)
pt3dadd(173.45, 95.902, 11.885, 1.356)
pt3dadd(173.525, 95.893, 11.815, 1.356)
pt3dadd(173.588, 95.884, 11.734, 1.356)
pt3dadd(173.646, 95.875, 11.647, 1.356)
pt3dadd(173.723, 95.863, 11.589, 1.356)
pt3dadd(173.816, 95.849, 11.558, 1.356)
pt3dadd(173.91, 95.833, 11.528, 1.356)
pt3dadd(173.999, 95.784, 11.514, 1.356)
pt3dadd(174.088, 95.736, 11.501, 1.356)
pt3dadd(174.175, 95.711, 11.462, 1.356)
pt3dadd(174.262, 95.698, 11.41, 1.356)
pt3dadd(174.349, 95.686, 11.358, 1.356)
pt3dadd(174.436, 95.673, 11.306, 1.356)
pt3dadd(174.461, 95.664, 11.204, 1.356)
pt3dadd(174.482, 95.655, 11.098, 1.356)
pt3dadd(174.546, 95.618, 11.042, 1.356)
pt3dadd(174.632, 95.565, 11.013, 1.356)
pt3dadd(174.719, 95.513, 10.984, 1.356)
pt3dadd(174.802, 95.453, 10.954, 1.356)
pt3dadd(174.882, 95.391, 10.924, 1.356)
pt3dadd(174.964, 95.36, 10.874, 1.356)
pt3dadd(175.06, 95.351, 10.856, 1.356)
pt3dadd(175.156, 95.342, 10.837, 1.356)
pt3dadd(175.252, 95.332, 10.819, 1.356)
pt3dadd(175.348, 95.323, 10.801, 1.356)
pt3dadd(175.442, 95.314, 10.782, 1.356)
pt3dadd(175.537, 95.305, 10.764, 1.356)
pt3dadd(175.631, 95.284, 10.738, 1.356)
pt3dadd(175.723, 95.252, 10.706, 1.356)
pt3dadd(175.814, 95.22, 10.673, 1.356)
pt3dadd(175.906, 95.187, 10.641, 1.356)
pt3dadd(175.997, 95.155, 10.608, 1.356)
pt3dadd(176.088, 95.13, 10.572, 1.356)
pt3dadd(176.178, 95.121, 10.529, 1.356)
pt3dadd(176.268, 95.112, 10.486, 1.356)
pt3dadd(176.359, 95.103, 10.443, 1.356)
pt3dadd(176.449, 95.094, 10.4, 1.356)
pt3dadd(176.539, 95.085, 10.357, 1.356)
pt3dadd(176.63, 95.076, 10.315, 1.356)
pt3dadd(176.722, 95.067, 10.274, 1.356)
pt3dadd(176.802, 95.049, 10.221, 1.356)
pt3dadd(176.856, 95.011, 10.136, 1.356)
pt3dadd(176.899, 94.939, 10.075, 1.356)
pt3dadd(176.928, 94.824, 10.045, 1.356)
pt3dadd(176.966, 94.719, 10.006, 1.356)
pt3dadd(177.018, 94.628, 9.956, 1.356)
pt3dadd(177.024, 94.514, 9.915, 1.356)
pt3dadd(177.01, 94.388, 9.882, 1.356)
pt3dadd(177.006, 94.261, 9.869, 1.356)
pt3dadd(177.002, 94.133, 9.856, 1.356)
pt3dadd(177.042, 94.05, 9.84, 1.356)
pt3dadd(177.137, 94.019, 9.822, 1.356)
pt3dadd(177.229, 93.989, 9.805, 1.356)
pt3dadd(177.319, 93.979, 9.759, 1.356)
pt3dadd(177.408, 93.97, 9.713, 1.356)
pt3dadd(177.502, 93.96, 9.682, 1.356)
pt3dadd(177.596, 93.951, 9.661, 1.356)
pt3dadd(177.692, 93.942, 9.639, 1.356)
pt3dadd(177.739, 93.933, 9.554, 1.356)
pt3dadd(177.775, 93.924, 9.455, 1.356)
pt3dadd(177.774, 93.915, 9.346, 1.356)
pt3dadd(177.75, 93.906, 9.233, 1.356)
pt3dadd(177.736, 93.897, 9.12, 1.356)
pt3dadd(177.739, 93.887, 9.01, 1.356)
pt3dadd(177.764, 93.878, 8.906, 1.356)
pt3dadd(177.778, 93.869, 8.798, 1.356)
pt3dadd(177.8, 93.86, 8.693, 1.356)
pt3dadd(177.824, 93.851, 8.588, 1.356)
pt3dadd(177.847, 93.842, 8.482, 1.356)
pt3dadd(177.871, 93.833, 8.377, 1.356)
pt3dadd(177.894, 93.824, 8.272, 1.356)
pt3dadd(177.898, 93.814, 8.161, 1.356)
pt3dadd(177.872, 93.805, 8.148, 1.356)
pt3dadd(177.876, 93.796, 8.037, 1.356)
pt3dadd(177.88, 93.787, 7.927, 1.356)
pt3dadd(177.882, 93.778, 7.816, 1.356)
pt3dadd(177.886, 93.769, 7.705, 1.356)
pt3dadd(177.904, 93.76, 7.602, 1.356)
pt3dadd(177.973, 93.751, 7.527, 1.356)
pt3dadd(178.039, 93.741, 7.449, 1.356)
pt3dadd(178.068, 93.732, 7.346, 1.356)
pt3dadd(178.098, 93.723, 7.243, 1.356)
pt3dadd(178.096, 93.71, 7.132, 1.356)
pt3dadd(178.087, 93.695, 7.02, 1.356)
pt3dadd(178.098, 93.663, 6.926, 1.356)
pt3dadd(178.16, 93.581, 6.882, 1.356)
pt3dadd(178.199, 93.485, 6.833, 1.356)
pt3dadd(178.211, 93.373, 6.78, 1.356)
pt3dadd(178.25, 93.266, 6.743, 1.356)
pt3dadd(178.297, 93.182, 6.697, 1.356)
pt3dadd(178.37, 93.166, 6.625, 1.356)
pt3dadd(178.435, 93.151, 6.547, 1.356)
pt3dadd(178.41, 93.142, 6.534, 1.356)
pt3dadd(178.442, 93.126, 6.432, 1.356)
pt3dadd(178.474, 93.109, 6.331, 1.356)
pt3dadd(178.45, 93.1, 6.318, 1.356)
pt3dadd(178.445, 93.038, 6.216, 1.356)
pt3dadd(178.44, 92.975, 6.115, 1.356)
pt3dadd(178.415, 92.966, 6.102, 1.356)
pt3dadd(178.391, 92.872, 6.018, 1.356)
pt3dadd(178.367, 92.784, 5.929, 1.356)
pt3dadd(178.343, 92.7, 5.838, 1.356)
}
}
proc shape3d_190() {
dend_7[48] { pt3dadd(178.319, 92.616, 5.746, 1.356)
pt3dadd(178.295, 92.532, 5.655, 1.356)
pt3dadd(178.271, 92.448, 5.563, 1.356)
pt3dadd(178.246, 92.385, 5.462, 1.356)
pt3dadd(178.222, 92.334, 5.355, 1.356)
pt3dadd(178.198, 92.283, 5.248, 1.356)
pt3dadd(178.174, 92.232, 5.141, 1.356)
pt3dadd(178.15, 92.182, 5.034, 1.356)
pt3dadd(178.126, 92.139, 4.925, 1.356)
pt3dadd(178.1, 92.129, 4.812, 1.356)
pt3dadd(178.076, 92.12, 4.699, 1.356)
pt3dadd(178.052, 92.111, 4.585, 1.356)
pt3dadd(178.028, 92.102, 4.472, 1.356)
pt3dadd(178.004, 92.093, 4.359, 1.356)
pt3dadd(177.98, 92.084, 4.246, 1.356)
pt3dadd(177.956, 92.075, 4.132, 1.356)
pt3dadd(177.931, 92.066, 4.019, 1.356)
pt3dadd(177.907, 92.056, 3.906, 1.356)
pt3dadd(177.883, 92.047, 3.792, 1.356)
pt3dadd(177.859, 92.038, 3.679, 1.356)
pt3dadd(177.835, 92.029, 3.566, 1.356)
pt3dadd(177.811, 92.02, 3.452, 1.356)
pt3dadd(177.78, 92.011, 3.34, 1.356)
pt3dadd(177.755, 92.002, 3.327, 1.356)
pt3dadd(177.731, 91.993, 3.314, 1.356)
pt3dadd(177.665, 91.983, 3.206, 1.356)
pt3dadd(177.599, 91.974, 3.099, 1.356)
pt3dadd(177.534, 91.965, 2.992, 1.356)
pt3dadd(177.468, 91.956, 2.885, 1.356)
pt3dadd(177.401, 91.947, 2.778, 1.356)
pt3dadd(177.318, 91.938, 2.679, 1.356)
pt3dadd(177.228, 91.929, 2.582, 1.356)
pt3dadd(177.138, 91.92, 2.485, 1.356)
pt3dadd(177.048, 91.91, 2.388, 1.356)
pt3dadd(176.958, 91.901, 2.291, 1.356)
pt3dadd(176.906, 91.892, 2.183, 1.356)
pt3dadd(176.873, 91.883, 2.07, 1.356)
pt3dadd(176.84, 91.874, 1.957, 1.356)
pt3dadd(176.808, 91.865, 1.844, 1.356)
pt3dadd(176.776, 91.856, 1.731, 1.356)
pt3dadd(176.695, 91.847, 1.63, 1.818)
pt3dadd(176.615, 91.837, 1.528, 1.828)
pt3dadd(176.532, 91.828, 1.427, 1.838)
pt3dadd(176.452, 91.819, 1.325, 1.846)
pt3dadd(176.371, 91.81, 1.224, 1.856)
pt3dadd(176.287, 91.801, 1.124, 1.846)
pt3dadd(176.204, 91.792, 1.024, 1.832)
pt3dadd(176.12, 91.783, 0.924, 1.816)
pt3dadd(176.036, 91.773, 0.824, 1.802)
pt3dadd(175.951, 91.764, 0.724, 1.788)
pt3dadd(175.861, 91.755, 0.627, 1.758)
pt3dadd(175.77, 91.746, 0.531, 1.724)
pt3dadd(175.662, 91.748, 0.449, 1.7)
pt3dadd(175.542, 91.759, 0.379, 1.688)
pt3dadd(175.441, 91.82, 0.339, 1.704)
pt3dadd(175.352, 91.912, 0.321, 1.74)
pt3dadd(175.291, 92.011, 0.29, 1.78)
pt3dadd(175.255, 92.116, 0.247, 1.826)
pt3dadd(175.211, 92.196, 0.187, 1.868)
pt3dadd(175.142, 92.215, 0.083, 1.906)
pt3dadd(175.075, 92.235, -0.02, 1.944)
pt3dadd(175.007, 92.253, -0.124, 1.982)
pt3dadd(174.898, 92.273, -0.204, 2.034)
pt3dadd(174.792, 92.299, -0.278, 2.09)
pt3dadd(174.768, 92.29, -0.291, 2.09)
pt3dadd(174.72, 92.398, -0.311, 2.152)
pt3dadd(174.683, 92.507, -0.328, 2.208)
pt3dadd(174.659, 92.618, -0.347, 2.234)
pt3dadd(174.635, 92.726, -0.382, 2.198)
pt3dadd(174.61, 92.826, -0.436, 2.078)
pt3dadd(174.586, 92.933, -0.473, 1.914)
pt3dadd(174.562, 93.043, -0.499, 1.758)
pt3dadd(174.538, 93.153, -0.524, 1.684)
pt3dadd(174.514, 93.263, -0.55, 1.61)
pt3dadd(174.49, 93.365, -0.596, 1.524)
pt3dadd(174.464, 93.463, -0.654, 1.434)
pt3dadd(174.44, 93.56, -0.715, 1.354)
pt3dadd(174.416, 93.654, -0.779, 1.284)
pt3dadd(174.391, 93.74, -0.85, 1.228)
pt3dadd(174.361, 93.795, -0.948, 1.216)
pt3dadd(174.325, 93.845, -1.046, 1.216)
pt3dadd(174.25, 93.867, -1.146, 1.314)
pt3dadd(174.167, 93.92, -1.228, 1.386)
pt3dadd(174.083, 93.979, -1.307, 1.454)
pt3dadd(174, 94.039, -1.386, 1.522)
pt3dadd(173.917, 94.099, -1.465, 1.59)
pt3dadd(173.873, 94.164, -1.553, 1.66)
pt3dadd(173.84, 94.23, -1.643, 1.728)
pt3dadd(173.807, 94.297, -1.734, 1.796)
pt3dadd(173.774, 94.364, -1.824, 1.866)
pt3dadd(173.742, 94.43, -1.915, 1.934)
pt3dadd(173.69, 94.484, -2.01, 1.996)
pt3dadd(173.64, 94.538, -2.106, 2.058)
pt3dadd(173.59, 94.592, -2.201, 2.12)
pt3dadd(173.538, 94.645, -2.297, 2.182)
pt3dadd(173.486, 94.693, -2.395, 2.23)
pt3dadd(173.462, 94.684, -2.408, 2.23)
pt3dadd(173.412, 94.728, -2.509, 2.27)
pt3dadd(173.362, 94.771, -2.609, 2.308)
pt3dadd(173.312, 94.814, -2.71, 2.346)
pt3dadd(173.262, 94.857, -2.811, 2.384)
pt3dadd(173.23, 94.952, -2.872, 2.43)
pt3dadd(173.2, 95.049, -2.932, 2.478)
pt3dadd(173.125, 95.101, -3.015, 2.544)
pt3dadd(173.04, 95.144, -3.103, 2.616)
pt3dadd(172.927, 95.18, -3.172, 2.728)
pt3dadd(172.808, 95.204, -3.235, 2.838)
pt3dadd(172.67, 95.195, -3.281, 2.946)
pt3dadd(172.532, 95.186, -3.328, 3.052)
pt3dadd(172.48, 95.206, -3.429, 3.112)
pt3dadd(172.436, 95.23, -3.537, 3.168)
pt3dadd(172.394, 95.254, -3.645, 3.224)
pt3dadd(172.346, 95.298, -3.732, 3.28)
pt3dadd(172.279, 95.4, -3.755, 3.338)
pt3dadd(172.213, 95.501, -3.783, 3.402)
pt3dadd(172.168, 95.583, -3.858, 3.476)
pt3dadd(172.123, 95.65, -3.946, 3.504)
pt3dadd(172.044, 95.715, -4.011, 3.508)
pt3dadd(171.932, 95.779, -4.055, 3.494)
pt3dadd(171.857, 95.796, -4.144, 3.46)
pt3dadd(171.799, 95.793, -4.253, 3.418)
pt3dadd(171.722, 95.787, -4.354, 3.354)
pt3dadd(171.617, 95.778, -4.44, 3.26)
pt3dadd(171.506, 95.76, -4.522, 3.19)
}
dend_7[49] {pt3dclear()
pt3dadd(171.506, 95.76, -4.522, 3.19)
pt3dadd(171.454, 95.778, -4.552, 3.078)
pt3dadd(171.358, 95.805, -4.608, 2.92)
pt3dadd(171.264, 95.823, -4.668, 2.858)
pt3dadd(171.17, 95.84, -4.729, 2.798)
pt3dadd(171.077, 95.858, -4.79, 2.738)
pt3dadd(170.984, 95.876, -4.851, 2.676)
pt3dadd(170.906, 95.898, -4.925, 2.64)
pt3dadd(170.834, 95.922, -5.002, 2.612)
pt3dadd(170.762, 95.946, -5.08, 2.584)
pt3dadd(170.69, 95.97, -5.157, 2.556)
pt3dadd(170.612, 96.004, -5.225, 2.542)
pt3dadd(170.524, 96.062, -5.27, 2.56)
pt3dadd(170.434, 96.12, -5.316, 2.578)
pt3dadd(170.344, 96.178, -5.361, 2.596)
pt3dadd(170.25, 96.227, -5.405, 2.618)
pt3dadd(170.137, 96.23, -5.441, 2.666)
pt3dadd(170.026, 96.232, -5.476, 2.712)
pt3dadd(169.913, 96.235, -5.511, 2.76)
pt3dadd(169.801, 96.237, -5.547, 2.806)
pt3dadd(169.688, 96.24, -5.582, 2.854)
pt3dadd(169.572, 96.24, -5.603, 2.932)
pt3dadd(169.453, 96.24, -5.62, 3.02)
pt3dadd(169.342, 96.24, -5.647, 3.098)
pt3dadd(169.254, 96.24, -5.715, 3.146)
pt3dadd(169.169, 96.236, -5.785, 3.188)
pt3dadd(169.11, 96.192, -5.864, 3.174)
pt3dadd(169.054, 96.146, -5.943, 3.16)
pt3dadd(169.002, 96.095, -6.023, 3.146)
pt3dadd(168.955, 96.018, -6.078, 3.164)
pt3dadd(168.912, 95.913, -6.105, 3.218)
pt3dadd(168.83, 95.844, -6.151, 3.254)
pt3dadd(168.749, 95.776, -6.197, 3.292)
pt3dadd(168.667, 95.708, -6.243, 3.328)
pt3dadd(168.586, 95.639, -6.29, 3.366)
pt3dadd(168.517, 95.563, -6.342, 3.396)
pt3dadd(168.448, 95.488, -6.394, 3.428)
pt3dadd(168.379, 95.412, -6.446, 3.458)
pt3dadd(168.311, 95.336, -6.498, 3.488)
pt3dadd(168.21, 95.272, -6.505, 3.49)
pt3dadd(168.108, 95.209, -6.51, 3.49)
pt3dadd(168.017, 95.182, -6.565, 3.446)
pt3dadd(167.926, 95.161, -6.629, 3.394)
pt3dadd(167.88, 95.113, -6.711, 3.328)
pt3dadd(167.837, 95.061, -6.794, 3.262)
pt3dadd(167.792, 94.986, -6.862, 3.234)
pt3dadd(167.76, 94.931, -6.94, 3.214)
pt3dadd(167.76, 94.924, -7.04, 3.214)
pt3dadd(167.76, 94.912, -7.139, 3.216)
pt3dadd(167.76, 94.893, -7.238, 3.22)
pt3dadd(167.76, 94.873, -7.336, 3.224)
pt3dadd(167.76, 94.853, -7.435, 3.228)
pt3dadd(167.76, 94.833, -7.534, 3.232)
pt3dadd(167.76, 94.814, -7.632, 3.236)
pt3dadd(167.76, 94.8, -7.731, 3.238)
pt3dadd(167.76, 94.8, -7.831, 3.234)
pt3dadd(167.76, 94.8, -7.931, 3.23)
pt3dadd(167.76, 94.8, -8.031, 3.228)
pt3dadd(167.76, 94.8, -8.131, 3.224)
pt3dadd(167.76, 94.8, -8.231, 3.22)
pt3dadd(167.76, 94.8, -8.331, 3.216)
pt3dadd(167.76, 94.79, -8.43, 3.214)
pt3dadd(167.76, 94.757, -8.526, 3.214)
pt3dadd(167.76, 94.724, -8.622, 3.214)
pt3dadd(167.76, 94.69, -8.719, 3.214)
pt3dadd(167.76, 94.657, -8.815, 3.214)
pt3dadd(167.76, 94.624, -8.911, 3.214)
pt3dadd(167.76, 94.572, -9, 3.214)
pt3dadd(167.76, 94.509, -9.085, 3.214)
pt3dadd(167.76, 94.446, -9.17, 3.214)
pt3dadd(167.76, 94.384, -9.255, 3.214)
pt3dadd(167.76, 94.321, -9.341, 3.214)
pt3dadd(167.76, 94.285, -9.434, 3.216)
pt3dadd(167.76, 94.27, -9.533, 3.22)
pt3dadd(167.76, 94.255, -9.632, 3.224)
pt3dadd(167.76, 94.24, -9.732, 3.228)
}
}
proc shape3d_191() {
dend_7[49] { pt3dadd(167.76, 94.225, -9.831, 3.232)
pt3dadd(167.76, 94.211, -9.93, 3.236)
pt3dadd(167.76, 94.2, -10.029, 3.238)
pt3dadd(167.76, 94.2, -10.129, 3.234)
pt3dadd(167.76, 94.2, -10.229, 3.232)
pt3dadd(167.76, 94.2, -10.329, 3.228)
pt3dadd(167.76, 94.2, -10.429, 3.224)
pt3dadd(167.76, 94.2, -10.529, 3.22)
pt3dadd(167.76, 94.2, -10.629, 3.216)
pt3dadd(167.767, 94.206, -10.728, 3.212)
pt3dadd(167.789, 94.226, -10.825, 3.208)
pt3dadd(167.812, 94.246, -10.922, 3.204)
pt3dadd(167.834, 94.267, -11.019, 3.198)
pt3dadd(167.857, 94.287, -11.115, 3.194)
pt3dadd(167.88, 94.307, -11.212, 3.19)
pt3dadd(167.896, 94.332, -11.309, 3.194)
pt3dadd(167.91, 94.357, -11.406, 3.198)
pt3dadd(167.924, 94.381, -11.503, 3.204)
pt3dadd(167.94, 94.406, -11.6, 3.208)
pt3dadd(167.954, 94.431, -11.697, 3.212)
pt3dadd(167.981, 94.425, -11.793, 3.22)
pt3dadd(168.013, 94.401, -11.887, 3.23)
pt3dadd(168.046, 94.376, -11.981, 3.24)
pt3dadd(168.077, 94.352, -12.075, 3.252)
pt3dadd(168.109, 94.328, -12.169, 3.26)
pt3dadd(168.12, 94.324, -12.267, 3.264)
pt3dadd(168.12, 94.33, -12.367, 3.264)
pt3dadd(168.12, 94.336, -12.467, 3.264)
pt3dadd(168.12, 94.342, -12.567, 3.264)
pt3dadd(168.12, 94.348, -12.667, 3.264)
pt3dadd(168.12, 94.354, -12.767, 3.264)
pt3dadd(168.12, 94.36, -12.867, 3.264)
}
dend_7[50] {pt3dclear()
pt3dadd(168.12, 94.36, -12.867, 3.264)
pt3dadd(168.12, 94.398, -12.946, 3.236)
pt3dadd(168.12, 94.442, -13.038, 3.204)
pt3dadd(168.12, 94.487, -13.131, 3.172)
pt3dadd(168.12, 94.531, -13.224, 3.138)
pt3dadd(168.12, 94.576, -13.317, 3.106)
pt3dadd(168.12, 94.643, -13.396, 3.04)
pt3dadd(168.12, 94.737, -13.458, 2.934)
pt3dadd(168.118, 94.818, -13.529, 2.84)
pt3dadd(168.112, 94.875, -13.617, 2.77)
pt3dadd(168.094, 94.92, -13.704, 2.714)
pt3dadd(168.026, 94.92, -13.787, 2.726)
pt3dadd(167.957, 94.921, -13.868, 2.74)
pt3dadd(167.857, 94.964, -13.91, 2.806)
pt3dadd(167.772, 95.004, -13.96, 2.876)
pt3dadd(167.764, 95.029, -14.058, 2.954)
pt3dadd(167.752, 95.043, -14.156, 3.016)
pt3dadd(167.736, 95.048, -14.256, 3.064)
pt3dadd(167.72, 95.053, -14.355, 3.114)
pt3dadd(167.635, 95.131, -14.379, 3.154)
pt3dadd(167.557, 95.214, -14.402, 3.19)
pt3dadd(167.533, 95.331, -14.416, 3.202)
pt3dadd(167.51, 95.447, -14.431, 3.212)
pt3dadd(167.416, 95.488, -14.46, 3.174)
pt3dadd(167.305, 95.514, -14.493, 3.124)
pt3dadd(167.189, 95.538, -14.5, 3.01)
pt3dadd(167.074, 95.567, -14.5, 2.876)
pt3dadd(166.999, 95.66, -14.5, 2.712)
pt3dadd(166.925, 95.754, -14.5, 2.546)
pt3dadd(166.85, 95.848, -14.5, 2.338)
pt3dadd(166.775, 95.942, -14.5, 2.126)
pt3dadd(166.668, 95.987, -14.5, 1.926)
pt3dadd(166.552, 96.019, -14.5, 1.73)
pt3dadd(166.436, 96.053, -14.502, 1.542)
pt3dadd(166.322, 96.087, -14.507, 1.37)
pt3dadd(166.208, 96.121, -14.515, 1.202)
pt3dadd(166.124, 96.147, -14.582, 1.13)
pt3dadd(166.039, 96.173, -14.649, 1.058)
pt3dadd(165.954, 96.198, -14.716, 0.986)
pt3dadd(165.9, 96.247, -14.795, 0.966)
pt3dadd(165.85, 96.304, -14.869, 0.958)
pt3dadd(165.81, 96.413, -14.894, 0.986)
pt3dadd(165.769, 96.522, -14.919, 1.014)
pt3dadd(165.7, 96.589, -14.948, 1.044)
pt3dadd(165.588, 96.595, -14.982, 1.076)
pt3dadd(165.48, 96.6, -15.022, 1.108)
pt3dadd(165.395, 96.6, -15.093, 1.126)
pt3dadd(165.362, 96.6, -15.185, 1.13)
pt3dadd(165.36, 96.6, -15.285, 1.13)
pt3dadd(165.36, 96.6, -15.385, 1.13)
pt3dadd(165.36, 96.6, -15.485, 1.13)
pt3dadd(165.348, 96.6, -15.584, 1.154)
pt3dadd(165.283, 96.604, -15.661, 1.272)
pt3dadd(165.168, 96.622, -15.686, 1.352)
pt3dadd(165.054, 96.639, -15.711, 1.43)
pt3dadd(165.019, 96.68, -15.8, 1.532)
pt3dadd(164.986, 96.72, -15.89, 1.636)
pt3dadd(164.916, 96.726, -15.961, 1.854)
pt3dadd(164.801, 96.75, -15.981, 1.934)
pt3dadd(164.692, 96.779, -16.002, 2.014)
pt3dadd(164.665, 96.887, -16.041, 2.102)
pt3dadd(164.638, 96.99, -16.084, 2.186)
pt3dadd(164.611, 97.037, -16.173, 2.212)
pt3dadd(164.578, 97.08, -16.257, 2.232)
pt3dadd(164.46, 97.08, -16.274, 2.194)
pt3dadd(164.341, 97.08, -16.291, 2.154)
pt3dadd(164.222, 97.08, -16.3, 2.068)
pt3dadd(164.102, 97.08, -16.3, 1.93)
pt3dadd(163.982, 97.08, -16.3, 1.806)
pt3dadd(163.862, 97.08, -16.3, 1.698)
pt3dadd(163.742, 97.08, -16.3, 1.588)
pt3dadd(163.63, 97.107, -16.302, 1.476)
pt3dadd(163.523, 97.163, -16.308, 1.358)
pt3dadd(163.441, 97.222, -16.338, 1.258)
pt3dadd(163.405, 97.287, -16.416, 1.19)
pt3dadd(163.331, 97.32, -16.472, 1.156)
pt3dadd(163.218, 97.32, -16.505, 1.156)
pt3dadd(163.108, 97.325, -16.541, 1.156)
pt3dadd(163.019, 97.365, -16.6, 1.164)
pt3dadd(162.931, 97.405, -16.659, 1.172)
pt3dadd(162.852, 97.452, -16.718, 1.182)
pt3dadd(162.846, 97.554, -16.77, 1.194)
pt3dadd(162.839, 97.656, -16.823, 1.206)
pt3dadd(162.791, 97.757, -16.859, 1.196)
pt3dadd(162.743, 97.858, -16.894, 1.184)
pt3dadd(162.668, 97.914, -16.94, 1.174)
pt3dadd(162.569, 97.927, -16.995, 1.162)
pt3dadd(162.486, 97.956, -17.06, 1.156)
pt3dadd(162.425, 98.043, -17.103, 1.172)
pt3dadd(162.365, 98.136, -17.142, 1.19)
pt3dadd(162.305, 98.228, -17.182, 1.208)
pt3dadd(162.245, 98.32, -17.222, 1.226)
pt3dadd(162.175, 98.373, -17.285, 1.26)
pt3dadd(162.102, 98.409, -17.358, 1.302)
pt3dadd(162.02, 98.46, -17.417, 1.318)
pt3dadd(161.934, 98.512, -17.469, 1.326)
pt3dadd(161.824, 98.558, -17.485, 1.29)
pt3dadd(161.716, 98.605, -17.5, 1.254)
pt3dadd(161.628, 98.686, -17.5, 1.206)
pt3dadd(161.539, 98.768, -17.5, 1.158)
pt3dadd(161.503, 98.881, -17.5, 1.098)
pt3dadd(161.45, 98.981, -17.507, 1.05)
pt3dadd(161.354, 99.047, -17.53, 1.032)
pt3dadd(161.257, 99.113, -17.552, 1.016)
pt3dadd(161.161, 99.179, -17.575, 0.998)
pt3dadd(161.065, 99.245, -17.597, 0.982)
pt3dadd(160.975, 99.324, -17.6, 0.97)
pt3dadd(160.886, 99.405, -17.6, 0.96)
pt3dadd(160.798, 99.485, -17.6, 0.95)
pt3dadd(160.709, 99.566, -17.6, 0.94)
pt3dadd(160.62, 99.647, -17.6, 0.93)
pt3dadd(160.536, 99.721, -17.635, 0.918)
pt3dadd(160.453, 99.795, -17.672, 0.906)
pt3dadd(160.369, 99.869, -17.709, 0.894)
pt3dadd(160.286, 99.943, -17.747, 0.882)
pt3dadd(160.189, 99.98, -17.791, 0.846)
pt3dadd(160.099, 100.055, -17.8, 0.788)
pt3dadd(160.042, 100.159, -17.8, 0.704)
pt3dadd(159.966, 100.253, -17.8, 0.634)
pt3dadd(159.89, 100.346, -17.8, 0.622)
pt3dadd(159.851, 100.454, -17.818, 0.664)
pt3dadd(159.84, 100.533, -17.888, 0.736)
pt3dadd(159.84, 100.558, -17.984, 0.794)
pt3dadd(159.84, 100.56, -18.084, 0.824)
pt3dadd(159.828, 100.56, -18.183, 0.828)
pt3dadd(159.767, 100.564, -18.266, 0.822)
pt3dadd(159.659, 100.593, -18.297, 0.766)
pt3dadd(159.552, 100.645, -18.3, 0.7)
pt3dadd(159.444, 100.698, -18.3, 0.678)
pt3dadd(159.341, 100.756, -18.31, 0.678)
pt3dadd(159.256, 100.796, -18.37, 0.678)
pt3dadd(159.185, 100.824, -18.447, 0.678)
pt3dadd(159.112, 100.874, -18.509, 0.678)
pt3dadd(159.036, 100.95, -18.554, 0.678)
pt3dadd(158.982, 101.042, -18.593, 0.704)
pt3dadd(158.903, 101.08, -18.662, 0.716)
pt3dadd(158.824, 101.118, -18.73, 0.728)
pt3dadd(158.744, 101.156, -18.799, 0.74)
pt3dadd(158.666, 101.194, -18.867, 0.752)
pt3dadd(158.566, 101.214, -18.917, 0.772)
pt3dadd(158.461, 101.231, -18.964, 0.792)
pt3dadd(158.357, 101.248, -19.012, 0.814)
pt3dadd(158.252, 101.265, -19.059, 0.836)
pt3dadd(158.146, 101.28, -19.1, 0.858)
pt3dadd(158.026, 101.28, -19.1, 0.9)
pt3dadd(157.906, 101.28, -19.1, 0.942)
pt3dadd(157.786, 101.28, -19.1, 0.986)
pt3dadd(157.666, 101.28, -19.1, 1.046)
pt3dadd(157.546, 101.28, -19.1, 1.104)
pt3dadd(157.426, 101.28, -19.101, 1.16)
pt3dadd(157.306, 101.28, -19.104, 1.194)
pt3dadd(157.186, 101.28, -19.108, 1.228)
pt3dadd(157.078, 101.28, -19.13, 1.256)
pt3dadd(157.01, 101.28, -19.212, 1.256)
pt3dadd(156.94, 101.28, -19.292, 1.254)
pt3dadd(156.835, 101.284, -19.342, 1.218)
pt3dadd(156.731, 101.288, -19.392, 1.184)
pt3dadd(156.626, 101.291, -19.441, 1.148)
pt3dadd(156.536, 101.337, -19.475, 1.112)
pt3dadd(156.461, 101.428, -19.492, 1.072)
pt3dadd(156.362, 101.477, -19.515, 1.064)
pt3dadd(156.248, 101.496, -19.542, 1.082)
pt3dadd(156.134, 101.514, -19.568, 1.098)
pt3dadd(156.054, 101.52, -19.633, 1.164)
pt3dadd(155.994, 101.52, -19.72, 1.256)
pt3dadd(155.946, 101.549, -19.803, 1.356)
pt3dadd(155.914, 101.613, -19.883, 1.466)
pt3dadd(155.881, 101.677, -19.963, 1.578)
}
}
proc shape3d_192() {
dend_7[50] { pt3dadd(155.88, 101.77, -20.027, 1.672)
pt3dadd(155.88, 101.863, -20.089, 1.766)
pt3dadd(155.879, 101.927, -20.171, 1.832)
pt3dadd(155.861, 102.023, -20.229, 1.81)
pt3dadd(155.844, 102.119, -20.288, 1.788)
pt3dadd(155.826, 102.215, -20.346, 1.766)
pt3dadd(155.808, 102.311, -20.404, 1.744)
pt3dadd(155.768, 102.407, -20.446, 1.702)
pt3dadd(155.704, 102.504, -20.473, 1.642)
pt3dadd(155.64, 102.6, -20.5, 1.582)
}
dend_7[51] {pt3dclear()
pt3dadd(168.12, 94.36, -12.867, 3.264)
pt3dadd(168.119, 94.353, -12.867, 3.266)
pt3dadd(168.096, 94.235, -12.873, 3.308)
pt3dadd(168.074, 94.117, -12.879, 3.35)
pt3dadd(168.053, 93.999, -12.885, 3.392)
pt3dadd(168.03, 93.882, -12.892, 3.434)
pt3dadd(168.008, 93.764, -12.898, 3.474)
pt3dadd(168.038, 93.72, -12.954, 3.462)
pt3dadd(168.098, 93.72, -13.04, 3.416)
pt3dadd(168.186, 93.72, -13.091, 3.36)
pt3dadd(168.305, 93.72, -13.094, 3.29)
pt3dadd(168.425, 93.72, -13.098, 3.22)
pt3dadd(168.545, 93.717, -13.107, 3.146)
pt3dadd(168.664, 93.712, -13.12, 3.07)
pt3dadd(168.782, 93.707, -13.133, 2.992)
pt3dadd(168.872, 93.652, -13.178, 2.846)
pt3dadd(168.976, 93.611, -13.215, 2.688)
pt3dadd(169.086, 93.6, -13.252, 2.486)
pt3dadd(169.196, 93.587, -13.288, 2.242)
pt3dadd(169.284, 93.514, -13.3, 2.134)
pt3dadd(169.315, 93.4, -13.3, 2.166)
pt3dadd(169.32, 93.281, -13.308, 2.26)
pt3dadd(169.32, 93.172, -13.346, 2.388)
pt3dadd(169.32, 93.129, -13.438, 2.468)
pt3dadd(169.32, 93.12, -13.538, 2.486)
pt3dadd(169.32, 93.12, -13.638, 2.496)
pt3dadd(169.32, 93.12, -13.738, 2.502)
pt3dadd(169.338, 93.096, -13.828, 2.476)
pt3dadd(169.386, 93.032, -13.903, 2.452)
pt3dadd(169.434, 92.968, -13.977, 2.428)
pt3dadd(169.482, 92.904, -14.052, 2.404)
pt3dadd(169.528, 92.841, -14.128, 2.374)
pt3dadd(169.565, 92.783, -14.21, 2.316)
pt3dadd(169.602, 92.725, -14.292, 2.258)
pt3dadd(169.638, 92.667, -14.374, 2.2)
pt3dadd(169.675, 92.608, -14.456, 2.142)
pt3dadd(169.74, 92.54, -14.517, 2.008)
pt3dadd(169.811, 92.473, -14.574, 1.87)
pt3dadd(169.895, 92.42, -14.631, 1.77)
pt3dadd(169.987, 92.37, -14.673, 1.698)
pt3dadd(170.096, 92.325, -14.689, 1.674)
pt3dadd(170.209, 92.292, -14.704, 1.658)
pt3dadd(170.328, 92.287, -14.717, 1.658)
pt3dadd(170.447, 92.281, -14.73, 1.658)
pt3dadd(170.54, 92.255, -14.78, 1.652)
pt3dadd(170.623, 92.22, -14.846, 1.644)
pt3dadd(170.707, 92.184, -14.912, 1.634)
pt3dadd(170.782, 92.169, -14.988, 1.616)
pt3dadd(170.852, 92.163, -15.068, 1.592)
pt3dadd(170.912, 92.16, -15.155, 1.54)
pt3dadd(170.97, 92.11, -15.23, 1.532)
pt3dadd(171.028, 92.051, -15.302, 1.532)
pt3dadd(171.086, 91.993, -15.375, 1.532)
pt3dadd(171.144, 91.935, -15.448, 1.532)
pt3dadd(171.234, 91.888, -15.498, 1.562)
pt3dadd(171.335, 91.845, -15.539, 1.602)
pt3dadd(171.372, 91.777, -15.612, 1.654)
pt3dadd(171.4, 91.706, -15.689, 1.708)
pt3dadd(171.439, 91.596, -15.71, 1.744)
pt3dadd(171.478, 91.485, -15.732, 1.78)
pt3dadd(171.48, 91.382, -15.781, 1.772)
pt3dadd(171.48, 91.278, -15.832, 1.76)
pt3dadd(171.48, 91.197, -15.904, 1.704)
pt3dadd(171.48, 91.12, -15.98, 1.648)
pt3dadd(171.48, 91.039, -16.054, 1.616)
pt3dadd(171.48, 90.958, -16.128, 1.586)
pt3dadd(171.48, 90.878, -16.202, 1.556)
pt3dadd(171.48, 90.797, -16.276, 1.526)
pt3dadd(171.49, 90.706, -16.338, 1.498)
pt3dadd(171.516, 90.6, -16.378, 1.476)
pt3dadd(171.541, 90.493, -16.419, 1.456)
pt3dadd(171.568, 90.387, -16.46, 1.434)
pt3dadd(171.593, 90.28, -16.501, 1.412)
pt3dadd(171.62, 90.189, -16.56, 1.406)
pt3dadd(171.648, 90.104, -16.627, 1.406)
pt3dadd(171.676, 90.018, -16.693, 1.406)
pt3dadd(171.703, 89.933, -16.759, 1.406)
pt3dadd(171.72, 89.854, -16.832, 1.424)
pt3dadd(171.72, 89.786, -16.914, 1.47)
pt3dadd(171.72, 89.723, -16.999, 1.524)
pt3dadd(171.72, 89.676, -17.091, 1.6)
pt3dadd(171.72, 89.63, -17.183, 1.678)
pt3dadd(171.72, 89.563, -17.266, 1.736)
pt3dadd(171.72, 89.495, -17.348, 1.796)
pt3dadd(171.72, 89.388, -17.376, 1.822)
pt3dadd(171.72, 89.268, -17.389, 1.842)
pt3dadd(171.719, 89.151, -17.404, 1.856)
pt3dadd(171.703, 89.045, -17.45, 1.826)
pt3dadd(171.688, 88.939, -17.495, 1.796)
pt3dadd(171.672, 88.834, -17.541, 1.768)
pt3dadd(171.606, 88.786, -17.599, 1.704)
pt3dadd(171.515, 88.765, -17.662, 1.626)
pt3dadd(171.458, 88.705, -17.729, 1.452)
pt3dadd(171.404, 88.613, -17.774, 1.428)
pt3dadd(171.35, 88.521, -17.819, 1.404)
pt3dadd(171.295, 88.428, -17.865, 1.38)
pt3dadd(171.241, 88.336, -17.91, 1.356)
pt3dadd(171.24, 88.267, -17.991, 1.322)
pt3dadd(171.24, 88.199, -18.074, 1.288)
pt3dadd(171.185, 88.143, -18.145, 1.246)
pt3dadd(171.115, 88.09, -18.214, 1.202)
pt3dadd(171.025, 88.038, -18.264, 1.146)
pt3dadd(170.94, 87.981, -18.314, 1.094)
pt3dadd(170.863, 87.912, -18.365, 1.05)
pt3dadd(170.778, 87.873, -18.423, 1.022)
pt3dadd(170.686, 87.861, -18.486, 1.006)
pt3dadd(170.593, 87.849, -18.549, 0.992)
pt3dadd(170.516, 87.839, -18.62, 0.984)
pt3dadd(170.502, 87.834, -18.719, 1.002)
pt3dadd(170.486, 87.829, -18.818, 1.022)
pt3dadd(170.416, 87.798, -18.874, 1.042)
pt3dadd(170.311, 87.751, -18.905, 1.062)
pt3dadd(170.208, 87.703, -18.935, 1.082)
pt3dadd(170.126, 87.628, -18.973, 1.124)
pt3dadd(170.041, 87.553, -19, 1.174)
pt3dadd(169.951, 87.487, -19.028, 1.216)
pt3dadd(169.864, 87.428, -19.076, 1.234)
pt3dadd(169.776, 87.37, -19.125, 1.252)
pt3dadd(169.69, 87.312, -19.173, 1.27)
pt3dadd(169.614, 87.271, -19.237, 1.286)
pt3dadd(169.553, 87.251, -19.322, 1.3)
pt3dadd(169.489, 87.219, -19.402, 1.3)
pt3dadd(169.422, 87.174, -19.476, 1.286)
pt3dadd(169.357, 87.141, -19.555, 1.262)
pt3dadd(169.295, 87.113, -19.637, 1.236)
pt3dadd(169.25, 87.021, -19.672, 1.258)
pt3dadd(169.211, 86.911, -19.694, 1.296)
pt3dadd(169.2, 86.794, -19.704, 1.392)
pt3dadd(169.2, 86.674, -19.71, 1.512)
pt3dadd(169.2, 86.564, -19.748, 1.584)
pt3dadd(169.2, 86.457, -19.793, 1.646)
pt3dadd(169.2, 86.35, -19.837, 1.708)
pt3dadd(169.2, 86.242, -19.882, 1.772)
pt3dadd(169.2, 86.135, -19.927, 1.834)
pt3dadd(169.189, 86.075, -20.002, 1.928)
pt3dadd(169.171, 86.045, -20.098, 2.042)
pt3dadd(169.142, 85.994, -20.181, 2.138)
pt3dadd(169.097, 85.912, -20.243, 2.208)
pt3dadd(169.08, 85.807, -20.274, 2.246)
pt3dadd(169.08, 85.688, -20.287, 2.266)
pt3dadd(169.08, 85.569, -20.299, 2.284)
pt3dadd(169.075, 85.45, -20.312, 2.304)
pt3dadd(169.07, 85.331, -20.325, 2.322)
pt3dadd(169.054, 85.234, -20.362, 2.344)
pt3dadd(169.015, 85.178, -20.444, 2.368)
pt3dadd(168.976, 85.122, -20.527, 2.392)
pt3dadd(168.929, 85.069, -20.606, 2.418)
pt3dadd(168.853, 85.024, -20.674, 2.446)
pt3dadd(168.772, 84.979, -20.737, 2.48)
pt3dadd(168.709, 84.96, -20.818, 2.518)
pt3dadd(168.646, 84.96, -20.903, 2.568)
pt3dadd(168.57, 84.959, -20.98, 2.614)
pt3dadd(168.493, 84.929, -21.052, 2.62)
pt3dadd(168.407, 84.867, -21.092, 2.506)
pt3dadd(168.308, 84.8, -21.1, 2.36)
pt3dadd(168.252, 84.697, -21.1, 2.312)
pt3dadd(168.24, 84.578, -21.1, 2.344)
pt3dadd(168.24, 84.458, -21.102, 2.386)
pt3dadd(168.235, 84.341, -21.12, 2.356)
pt3dadd(168.196, 84.249, -21.17, 2.278)
pt3dadd(168.143, 84.173, -21.233, 2.22)
pt3dadd(168.095, 84.138, -21.318, 2.168)
pt3dadd(168.048, 84.111, -21.407, 2.118)
pt3dadd(167.999, 84.077, -21.493, 2.052)
pt3dadd(167.926, 84.059, -21.571, 2.02)
pt3dadd(167.852, 84.042, -21.649, 1.986)
pt3dadd(167.779, 84.024, -21.727, 1.954)
pt3dadd(167.706, 84.006, -21.805, 1.92)
pt3dadd(167.618, 83.972, -21.863, 1.868)
pt3dadd(167.522, 83.929, -21.91, 1.804)
pt3dadd(167.425, 83.885, -21.956, 1.738)
pt3dadd(167.329, 83.841, -22.003, 1.674)
pt3dadd(167.228, 83.8, -22.043, 1.6)
pt3dadd(167.119, 83.762, -22.072, 1.508)
pt3dadd(167.01, 83.725, -22.101, 1.416)
pt3dadd(166.902, 83.688, -22.129, 1.324)
pt3dadd(166.793, 83.651, -22.158, 1.232)
pt3dadd(166.678, 83.64, -22.18, 0.988)
pt3dadd(166.56, 83.64, -22.2, 0.678)
}
dend_7[52] {pt3dclear()
pt3dadd(171.506, 95.76, -4.522, 3.19)
pt3dadd(171.572, 95.791, -4.534, 3.294)
pt3dadd(171.678, 95.842, -4.553, 3.462)
pt3dadd(171.787, 95.88, -4.575, 3.602)
pt3dadd(171.9, 95.88, -4.608, 3.644)
pt3dadd(172.013, 95.88, -4.64, 3.686)
pt3dadd(172.05, 95.88, -4.73, 3.692)
pt3dadd(172.076, 95.88, -4.828, 3.692)
pt3dadd(172.126, 95.88, -4.914, 3.674)
pt3dadd(172.214, 95.88, -4.982, 3.626)
pt3dadd(172.301, 95.88, -5.051, 3.568)
}
}
proc shape3d_193() {
dend_7[52] { pt3dadd(172.386, 95.88, -5.121, 3.48)
pt3dadd(172.421, 95.88, -5.215, 3.434)
pt3dadd(172.446, 95.88, -5.313, 3.396)
pt3dadd(172.471, 95.88, -5.41, 3.358)
pt3dadd(172.495, 95.88, -5.508, 3.318)
pt3dadd(172.52, 95.88, -5.606, 3.28)
pt3dadd(172.544, 95.88, -5.704, 3.242)
pt3dadd(172.61, 95.88, -5.787, 3.192)
pt3dadd(172.68, 95.88, -5.869, 3.142)
pt3dadd(172.748, 95.88, -5.951, 3.094)
pt3dadd(172.818, 95.88, -6.032, 3.044)
pt3dadd(172.886, 95.88, -6.114, 2.994)
pt3dadd(172.984, 95.88, -6.172, 2.934)
pt3dadd(173.084, 95.88, -6.227, 2.874)
pt3dadd(173.184, 95.88, -6.282, 2.816)
pt3dadd(173.285, 95.88, -6.337, 2.756)
pt3dadd(173.384, 95.88, -6.392, 2.696)
pt3dadd(173.465, 95.857, -6.463, 2.644)
pt3dadd(173.542, 95.829, -6.536, 2.592)
pt3dadd(173.617, 95.802, -6.61, 2.54)
pt3dadd(173.694, 95.774, -6.684, 2.488)
pt3dadd(173.765, 95.742, -6.759, 2.442)
pt3dadd(173.83, 95.705, -6.837, 2.4)
pt3dadd(173.896, 95.668, -6.915, 2.36)
pt3dadd(173.96, 95.63, -6.993, 2.318)
pt3dadd(174.03, 95.589, -7.066, 2.28)
pt3dadd(174.114, 95.53, -7.117, 2.256)
pt3dadd(174.199, 95.472, -7.169, 2.232)
pt3dadd(174.283, 95.413, -7.22, 2.206)
pt3dadd(174.371, 95.357, -7.268, 2.182)
pt3dadd(174.484, 95.319, -7.284, 2.158)
pt3dadd(174.596, 95.281, -7.299, 2.136)
pt3dadd(174.71, 95.274, -7.328, 2.114)
pt3dadd(174.826, 95.269, -7.356, 2.092)
pt3dadd(174.901, 95.218, -7.407, 2.074)
pt3dadd(174.954, 95.142, -7.471, 2.06)
pt3dadd(174.978, 95.053, -7.534, 2.036)
pt3dadd(174.998, 94.963, -7.598, 2.01)
pt3dadd(175.055, 94.883, -7.655, 1.946)
pt3dadd(175.078, 94.784, -7.706, 1.914)
pt3dadd(175.09, 94.68, -7.754, 1.89)
pt3dadd(175.146, 94.584, -7.784, 1.894)
pt3dadd(175.217, 94.492, -7.808, 1.906)
pt3dadd(175.319, 94.463, -7.849, 1.984)
pt3dadd(175.424, 94.443, -7.893, 2.072)
pt3dadd(175.53, 94.423, -7.938, 2.148)
pt3dadd(175.636, 94.404, -7.982, 2.222)
pt3dadd(175.728, 94.344, -8.02, 2.234)
pt3dadd(175.81, 94.287, -8.073, 2.2)
pt3dadd(175.888, 94.235, -8.135, 2.144)
pt3dadd(175.966, 94.183, -8.198, 2.09)
pt3dadd(176.044, 94.13, -8.26, 2.034)
pt3dadd(176.134, 94.083, -8.311, 1.974)
pt3dadd(176.236, 94.041, -8.352, 1.912)
pt3dadd(176.336, 93.998, -8.392, 1.848)
pt3dadd(176.437, 93.955, -8.433, 1.784)
pt3dadd(176.54, 93.916, -8.471, 1.73)
pt3dadd(176.653, 93.892, -8.498, 1.72)
pt3dadd(176.766, 93.868, -8.525, 1.71)
pt3dadd(176.879, 93.843, -8.552, 1.7)
pt3dadd(176.992, 93.819, -8.579, 1.69)
pt3dadd(177.102, 93.79, -8.608, 1.696)
pt3dadd(177.203, 93.744, -8.647, 1.752)
pt3dadd(177.304, 93.698, -8.685, 1.81)
pt3dadd(177.406, 93.652, -8.723, 1.868)
pt3dadd(177.506, 93.606, -8.761, 1.926)
pt3dadd(177.583, 93.573, -8.831, 2.004)
pt3dadd(177.658, 93.543, -8.905, 2.086)
pt3dadd(177.732, 93.512, -8.98, 2.166)
pt3dadd(177.805, 93.481, -9.054, 2.248)
pt3dadd(177.882, 93.454, -9.128, 2.304)
pt3dadd(177.96, 93.43, -9.201, 2.338)
pt3dadd(178.039, 93.405, -9.274, 2.372)
pt3dadd(178.117, 93.381, -9.347, 2.406)
pt3dadd(178.193, 93.36, -9.421, 2.432)
pt3dadd(178.25, 93.36, -9.51, 2.404)
pt3dadd(178.307, 93.36, -9.598, 2.374)
pt3dadd(178.363, 93.36, -9.686, 2.344)
pt3dadd(178.42, 93.36, -9.774, 2.316)
pt3dadd(178.477, 93.36, -9.862, 2.286)
pt3dadd(178.57, 93.352, -9.924, 2.236)
pt3dadd(178.664, 93.344, -9.985, 2.182)
pt3dadd(178.76, 93.336, -10.045, 2.13)
pt3dadd(178.855, 93.327, -10.106, 2.078)
pt3dadd(178.945, 93.315, -10.17, 2.026)
pt3dadd(179.015, 93.288, -10.248, 1.986)
pt3dadd(179.086, 93.261, -10.326, 1.946)
pt3dadd(179.155, 93.234, -10.404, 1.908)
pt3dadd(179.225, 93.207, -10.482, 1.868)
pt3dadd(179.267, 93.188, -10.573, 1.85)
pt3dadd(179.3, 93.173, -10.669, 1.84)
pt3dadd(179.334, 93.157, -10.764, 1.832)
pt3dadd(179.368, 93.141, -10.859, 1.822)
pt3dadd(179.401, 93.126, -10.954, 1.812)
pt3dadd(179.424, 93.12, -11.051, 1.802)
pt3dadd(179.442, 93.12, -11.15, 1.794)
pt3dadd(179.459, 93.12, -11.249, 1.786)
pt3dadd(179.476, 93.12, -11.348, 1.778)
pt3dadd(179.494, 93.12, -11.447, 1.77)
pt3dadd(179.51, 93.12, -11.546, 1.762)
pt3dadd(179.537, 93.119, -11.643, 1.75)
pt3dadd(179.573, 93.117, -11.739, 1.732)
pt3dadd(179.61, 93.114, -11.834, 1.712)
pt3dadd(179.646, 93.112, -11.929, 1.694)
pt3dadd(179.683, 93.109, -12.024, 1.676)
pt3dadd(179.719, 93.107, -12.12, 1.658)
pt3dadd(179.777, 93.084, -12.205, 1.636)
pt3dadd(179.836, 93.061, -12.29, 1.614)
pt3dadd(179.894, 93.037, -12.375, 1.592)
pt3dadd(179.952, 93.014, -12.461, 1.57)
pt3dadd(180.011, 92.981, -12.542, 1.556)
pt3dadd(180.072, 92.933, -12.619, 1.556)
pt3dadd(180.132, 92.885, -12.696, 1.556)
pt3dadd(180.192, 92.837, -12.773, 1.556)
pt3dadd(180.244, 92.786, -12.851, 1.562)
pt3dadd(180.26, 92.723, -12.935, 1.584)
pt3dadd(180.278, 92.66, -13.018, 1.604)
pt3dadd(180.295, 92.597, -13.102, 1.626)
pt3dadd(180.313, 92.534, -13.186, 1.648)
pt3dadd(180.34, 92.476, -13.271, 1.67)
pt3dadd(180.372, 92.422, -13.356, 1.692)
pt3dadd(180.406, 92.368, -13.441, 1.716)
pt3dadd(180.438, 92.314, -13.526, 1.738)
pt3dadd(180.474, 92.256, -13.607, 1.764)
pt3dadd(180.527, 92.173, -13.664, 1.806)
pt3dadd(180.583, 92.085, -13.709, 1.848)
pt3dadd(180.647, 91.986, -13.732, 1.886)
pt3dadd(180.689, 91.912, -13.786, 1.93)
pt3dadd(180.708, 91.867, -13.877, 1.98)
pt3dadd(180.726, 91.833, -13.971, 2.018)
pt3dadd(180.743, 91.816, -14.07, 2.038)
pt3dadd(180.761, 91.8, -14.167, 2.058)
pt3dadd(180.835, 91.8, -14.245, 2.024)
pt3dadd(180.894, 91.8, -14.332, 1.984)
pt3dadd(180.941, 91.8, -14.424, 1.94)
pt3dadd(180.989, 91.794, -14.515, 1.902)
pt3dadd(181.042, 91.775, -14.603, 1.876)
pt3dadd(181.097, 91.748, -14.689, 1.866)
pt3dadd(181.154, 91.704, -14.768, 1.894)
pt3dadd(181.189, 91.651, -14.85, 1.942)
pt3dadd(181.196, 91.588, -14.934, 2.012)
pt3dadd(181.2, 91.506, -14.999, 2.104)
pt3dadd(181.2, 91.39, -15.026, 2.228)
pt3dadd(181.2, 91.275, -15.054, 2.306)
pt3dadd(181.2, 91.16, -15.081, 2.368)
pt3dadd(181.206, 91.045, -15.11, 2.414)
pt3dadd(181.224, 90.933, -15.141, 2.426)
pt3dadd(181.248, 90.821, -15.17, 2.428)
pt3dadd(181.292, 90.711, -15.186, 2.378)
pt3dadd(181.344, 90.607, -15.201, 2.332)
pt3dadd(181.446, 90.543, -15.206, 2.296)
pt3dadd(181.547, 90.48, -15.211, 2.26)
pt3dadd(181.64, 90.48, -15.274, 2.274)
pt3dadd(181.735, 90.48, -15.336, 2.288)
pt3dadd(181.829, 90.48, -15.399, 2.302)
pt3dadd(181.91, 90.48, -15.47, 2.346)
pt3dadd(181.979, 90.48, -15.552, 2.428)
pt3dadd(182.032, 90.48, -15.64, 2.526)
pt3dadd(182.069, 90.48, -15.732, 2.614)
pt3dadd(182.141, 90.48, -15.812, 2.618)
pt3dadd(182.213, 90.48, -15.891, 2.624)
pt3dadd(182.285, 90.48, -15.971, 2.628)
pt3dadd(182.357, 90.48, -16.052, 2.634)
pt3dadd(182.418, 90.48, -16.136, 2.63)
pt3dadd(182.464, 90.48, -16.229, 2.61)
pt3dadd(182.509, 90.48, -16.321, 2.592)
pt3dadd(182.554, 90.48, -16.414, 2.572)
pt3dadd(182.599, 90.48, -16.507, 2.554)
pt3dadd(182.64, 90.48, -16.6, 2.532)
pt3dadd(182.64, 90.48, -16.7, 2.486)
}
}
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()
}
objref all, dendritic_0, somatic, apical, dendritic_5, dendritic_7
proc subsets() { local i
objref all, dendritic_0, somatic, apical, dendritic_5, dendritic_7
all = new SectionList()
soma all.append()
for i=0, 7 dend_0[i] all.append()
for i=0, 30 apic[i] all.append()
for i=0, 12 dend_5[i] all.append()
for i=0, 52 dend_7[i] all.append()
dendritic_0 = new SectionList()
for i=0, 7 dend_0[i] dendritic_0.append()
somatic = new SectionList()
soma somatic.append()
apical = new SectionList()
for i=0, 30 apic[i] apical.append()
dendritic_5 = new SectionList()
for i=0, 12 dend_5[i] dendritic_5.append()
dendritic_7 = new SectionList()
for i=0, 52 dend_7[i] dendritic_7.append()
}
proc geom() {
}
proc geom_nseg() {
}
proc biophys() {
}
access soma
celldef()