proc celldef() {
topol()
subsets()
geom()
geom_nseg()
}
create soma,dend[101], apic[81],axon
proc topol() { local i
soma connect axon(0), 1
connect dend[0](0), soma(0.5)
for i = 1, 2 connect dend[i](0), dend[0](1)
for i = 3, 4 connect dend[i](0), dend[2](1)
connect dend[5](0), soma(0.5)
for i = 6, 7 connect dend[i](0), dend[i-1](1)
connect dend[8](0), dend[6](1)
connect dend[9](0), dend[5](1)
for i = 10, 11 connect dend[i](0), dend[9](1)
for i = 12, 13 connect dend[i](0), dend[11](1)
connect dend[14](0), soma(0.5)
for i = 15, 17 connect dend[i](0), dend[i-1](1)
connect dend[18](0), dend[16](1)
connect dend[19](0), dend[15](1)
connect dend[20](0), dend[14](1)
for i = 21, 22 connect dend[i](0), dend[i-1](1)
connect dend[23](0), dend[21](1)
connect dend[24](0), dend[20](1)
for i = 25, 26 connect dend[i](0), dend[24](1)
for i = 27, 28 connect dend[i](0), dend[26](1)
connect dend[29](0), soma(0.5)
for i = 30, 31 connect dend[i](0), dend[i-1](1)
connect dend[32](0), dend[30](1)
connect dend[33](0), dend[29](1)
for i = 34, 35 connect dend[i](0), dend[33](1)
for i = 36, 37 connect dend[i](0), dend[35](1)
connect dend[38](0), soma(0.5)
for i = 39, 40 connect dend[i](0), dend[i-1](1)
connect dend[41](0), dend[39](1)
connect dend[42](0), dend[38](1)
for i = 43, 44 connect dend[i](0), dend[42](1)
for i = 45, 46 connect dend[i](0), dend[44](1)
connect dend[47](0), soma(0.5)
for i = 48, 49 connect dend[i](0), dend[47](1)
for i = 50, 51 connect dend[i](0), dend[i-1](1)
connect dend[52](0), dend[50](1)
connect dend[53](0), dend[49](1)
for i = 54, 56 connect dend[i](0), dend[i-1](1)
connect dend[57](0), dend[55](1)
connect dend[58](0), dend[54](1)
for i = 59, 60 connect dend[i](0), dend[58](1)
for i = 61, 62 connect dend[i](0), dend[60](1)
connect dend[63](0), dend[53](1)
for i = 64, 65 connect dend[i](0), dend[63](1)
connect dend[66](0), soma(0.5)
for i = 67, 68 connect dend[i](0), dend[66](1)
for i = 69, 70 connect dend[i](0), dend[68](1)
for i = 71, 72 connect dend[i](0), dend[70](1)
connect dend[73](0), soma(0.5)
for i = 74, 75 connect dend[i](0), dend[i-1](1)
connect dend[76](0), dend[74](1)
connect dend[77](0), dend[73](1)
for i = 78, 79 connect dend[i](0), dend[77](1)
for i = 80, 81 connect dend[i](0), dend[79](1)
for i = 82, 83 connect dend[i](0), dend[81](1)
for i = 84, 85 connect dend[i](0), dend[83](1)
connect dend[86](0), soma(0.5)
for i = 87, 88 connect dend[i](0), dend[i-1](1)
connect dend[89](0), dend[87](1)
for i = 90, 91 connect dend[i](0), dend[i-1](1)
connect dend[92](0), dend[90](1)
connect dend[93](0), dend[89](1)
connect dend[94](0), dend[86](1)
for i = 95, 96 connect dend[i](0), dend[94](1)
for i = 97, 98 connect dend[i](0), dend[96](1)
for i = 99, 100 connect dend[i](0), dend[98](1)
connect apic[0](0), soma(0.5)
for i = 1, 2 connect apic[i](0), apic[i-1](1)
connect apic[3](0), apic[1](1)
for i = 4, 5 connect apic[i](0), apic[3](1)
connect apic[6](0), apic[0](1)
for i = 7, 9 connect apic[i](0), apic[i-1](1)
connect apic[10](0), apic[8](1)
connect apic[11](0), apic[7](1)
for i = 12, 14 connect apic[i](0), apic[i-1](1)
connect apic[15](0), apic[13](1)
connect apic[16](0), apic[12](1)
connect apic[17](0), apic[11](1)
connect apic[18](0), apic[6](1)
for i = 19, 20 connect apic[i](0), apic[18](1)
connect apic[21](0), apic[6](1)
for i = 22, 23 connect apic[i](0), apic[i-1](1)
connect apic[24](0), apic[22](1)
connect apic[25](0), apic[21](1)
for i = 26, 27 connect apic[i](0), apic[25](1)
connect apic[28](0), apic[6](1)
for i = 29, 30 connect apic[i](0), apic[i-1](1)
connect apic[31](0), apic[29](1)
for i = 32, 33 connect apic[i](0), apic[31](1)
connect apic[34](0), apic[28](1)
for i = 35, 36 connect apic[i](0), apic[i-1](1)
connect apic[37](0), apic[35](1)
for i = 38, 39 connect apic[i](0), apic[37](1)
for i = 40, 41 connect apic[i](0), apic[i-1](1)
connect apic[42](0), apic[40](1)
connect apic[43](0), apic[39](1)
for i = 44, 45 connect apic[i](0), apic[43](1)
for i = 46, 47 connect apic[i](0), apic[45](1)
for i = 48, 50 connect apic[i](0), apic[i-1](1)
connect apic[51](0), apic[49](1)
connect apic[52](0), apic[48](1)
connect apic[53](0), apic[47](1)
for i = 54, 55 connect apic[i](0), apic[53](1)
connect apic[56](0), apic[34](1)
for i = 57, 58 connect apic[i](0), apic[i-1](1)
connect apic[59](0), apic[57](1)
connect apic[60](0), apic[56](1)
for i = 61, 63 connect apic[i](0), apic[i-1](1)
connect apic[64](0), apic[62](1)
connect apic[65](0), apic[61](1)
for i = 66, 67 connect apic[i](0), apic[i-1](1)
connect apic[68](0), apic[66](1)
connect apic[69](0), apic[65](1)
for i = 70, 71 connect apic[i](0), apic[69](1)
connect apic[72](0), apic[60](1)
for i = 73, 74 connect apic[i](0), apic[i-1](1)
connect apic[75](0), apic[73](1)
connect apic[76](0), apic[72](1)
for i = 77, 78 connect apic[i](0), apic[76](1)
for i = 79, 80 connect apic[i](0), apic[78](1)
basic_shape()
}
proc shape3d_1() {
soma {pt3dclear()
pt3dadd(661.79, 879.829, 88.0109, 19.5925)
pt3dadd(671.587, 879.829, 88.0109, 19.5925)
pt3dadd(681.383, 879.829, 88.0109, 19.5925)
}
dend[0] {pt3dclear()
pt3dadd(678.873, 885.235, 80.2443, 1.91227)
pt3dadd(679.395, 887.43, 78.7802, 2.12424)
pt3dadd(678.952, 891.404, 76.3957, 1.6503)
pt3dadd(678.372, 893.304, 74.9836, 1.72877)
pt3dadd(677.834, 895.06, 72.6711, 1.52331)
}
dend[1] {pt3dclear()
pt3dadd(677.834, 895.06, 72.6711, 1.52331)
pt3dadd(678.418, 897.718, 71.5848, 1.38496)
pt3dadd(679.204, 899.605, 70.7993, 1.38496)
pt3dadd(680.02, 901.473, 69.9255, 1.23837)
pt3dadd(680.744, 903.406, 69.6276, 1.242)
pt3dadd(681.709, 905.236, 69.3298, 1.34655)
pt3dadd(682.322, 907.211, 69.0319, 1.34655)
pt3dadd(682.93, 909.181, 68.7341, 1.34605)
pt3dadd(683.452, 911.152, 67.8362, 1.44775)
pt3dadd(684.201, 913.081, 67.6702, 1.31918)
pt3dadd(685.071, 914.89, 66.4617, 1.31918)
pt3dadd(685.94, 916.704, 65.2531, 1.38632)
pt3dadd(687.141, 918.347, 64.3507, 1.38173)
pt3dadd(688.13, 920.057, 62.8622, 1.37046)
pt3dadd(689.157, 921.817, 61.9924, 1.4736)
pt3dadd(690.142, 923.502, 60.3336, 1.28334)
pt3dadd(691.185, 925.249, 59.4207, 1.35976)
pt3dadd(692.026, 927.033, 57.8892, 1.36391)
pt3dadd(692.771, 928.755, 55.7816, 1.31953)
pt3dadd(693.475, 930.622, 54.4393, 1.31953)
pt3dadd(694.174, 932.489, 53.0969, 1.48474)
pt3dadd(694.866, 934.365, 51.7944, 1.22162)
pt3dadd(695.793, 936.207, 51.3979, 1.30766)
pt3dadd(696.932, 937.896, 50.5296, 1.32745)
pt3dadd(698.36, 939.391, 50.1658, 0.929272)
pt3dadd(699.606, 941.026, 49.6098, 1.27582)
pt3dadd(700.77, 942.715, 48.9397, 1.27582)
pt3dadd(701.937, 944.404, 48.2696, 1.27582)
pt3dadd(703.1, 946.089, 47.5995, 1.24701)
pt3dadd(704.429, 947.625, 46.6207, 1.24701)
pt3dadd(705.626, 949.302, 46.0704, 1.32931)
pt3dadd(706.777, 950.983, 45.2329, 1.30485)
pt3dadd(707.878, 952.66, 43.9887, 1.09303)
pt3dadd(709.004, 954.32, 42.7741, 1.49332)
pt3dadd(710.391, 955.831, 42.0703, 1.07046)
pt3dadd(711.977, 957.114, 41.217, 1.07046)
pt3dadd(713.562, 958.402, 40.3637, 1.25586)
pt3dadd(714.982, 959.847, 39.347, 1.26922)
pt3dadd(716.241, 961.461, 38.6178, 1.35597)
pt3dadd(717.739, 962.815, 37.5059, 1.08879)
pt3dadd(719.379, 963.999, 36.4435, 1.08879)
pt3dadd(721.014, 965.183, 35.3811, 1.45634)
pt3dadd(722.36, 966.607, 33.7638, 1.01863)
pt3dadd(723.469, 968.309, 32.7825, 1.22051)
pt3dadd(725.08, 970.652, 31.4087, 1.22051)
}
dend[2] {pt3dclear()
pt3dadd(677.834, 895.06, 72.6711, 1.52331)
pt3dadd(676.31, 896.273, 70.9697, 1.10364)
pt3dadd(674.708, 897.362, 69.2147, 1.16452)
pt3dadd(672.911, 898.132, 67.5694, 1.16452)
pt3dadd(671.322, 899.216, 65.7446, 1.22302)
pt3dadd(670.183, 900.711, 63.6375, 1.21955)
pt3dadd(669.252, 902.288, 61.3068, 1.31573)
pt3dadd(668.022, 903.721, 59.2668, 1.2908)
pt3dadd(666.966, 905.29, 57.2276, 1.38855)
pt3dadd(665.828, 906.623, 54.5633, 1.36223)
pt3dadd(664.814, 908.113, 52.1212, 1.37686)
pt3dadd(663.642, 909.699, 50.5729, 1.37952)
pt3dadd(662.789, 911.38, 48.516, 1.42444)
pt3dadd(661.994, 913.164, 46.84, 1.34957)
}
dend[3] {pt3dclear()
pt3dadd(661.994, 913.164, 46.84, 1.34957)
pt3dadd(662.578, 912.042, 48.9023, 1.34618)
pt3dadd(660.591, 915.077, 44.0713, 1.42789)
pt3dadd(659.175, 915.9, 41.0114, 1.03474)
pt3dadd(657.656, 916.977, 38.8355, 1.03474)
pt3dadd(656.136, 918.057, 36.6597, 1.16802)
pt3dadd(654.443, 918.877, 34.5755, 1.16802)
pt3dadd(652.799, 919.941, 32.9501, 1.15225)
pt3dadd(652.327, 920.314, 31.8897, 1.15225)
}
dend[4] {pt3dclear()
pt3dadd(661.994, 913.164, 46.84, 1.34957)
pt3dadd(661.456, 915.147, 46.2303, 1.32555)
pt3dadd(660.98, 917.147, 45.6911, 1.01221)
pt3dadd(660.852, 919.212, 45.862, 1.01691)
pt3dadd(660.988, 921.278, 46.0328, 1.14324)
pt3dadd(660.769, 923.336, 46.1843, 1.14324)
pt3dadd(660.549, 925.389, 46.3359, 1.14324)
pt3dadd(660.33, 927.447, 46.4874, 1.14324)
pt3dadd(660.111, 929.505, 46.639, 1.16646)
pt3dadd(659.957, 931.57, 46.8333, 1.17677)
pt3dadd(660.152, 933.628, 47.0722, 1.32638)
pt3dadd(659.742, 935.644, 47.6239, 1.29746)
pt3dadd(659.597, 937.706, 47.8254, 1.31252)
pt3dadd(659.432, 939.763, 48.1866, 1.31252)
pt3dadd(659.262, 941.821, 48.5479, 1.2742)
pt3dadd(659.096, 943.883, 48.9091, 1.2742)
pt3dadd(658.931, 945.94, 49.2703, 1.23821)
pt3dadd(658.094, 947.824, 49.7369, 1.23821)
pt3dadd(657.482, 949.799, 49.9537, 1.3055)
pt3dadd(656.542, 951.625, 50.5878, 1.40354)
pt3dadd(655.693, 953.504, 51.002, 1.24462)
pt3dadd(654.873, 955.4, 50.7411, 1.29067)
pt3dadd(654.025, 957.267, 51.452, 1.19054)
pt3dadd(653.052, 959.093, 51.6035, 1.35674)
pt3dadd(652.278, 961.01, 51.8484, 1.35674)
pt3dadd(651.504, 962.927, 52.0932, 1.35274)
pt3dadd(650.642, 964.802, 51.7418, 1.40375)
pt3dadd(649.62, 966.599, 51.4165, 1.17659)
pt3dadd(648.51, 968.334, 51.8661, 1.25887)
pt3dadd(647.529, 970.155, 52.1363, 1.38656)
pt3dadd(646.821, 972.097, 52.3436, 1.43841)
pt3dadd(645.997, 973.993, 52.6182, 1.81833)
pt3dadd(644.95, 975.773, 52.9489, 1.47691)
pt3dadd(644.383, 977.765, 53.0095, 1.47691)
pt3dadd(643.816, 979.756, 53.0701, 1.01737)
pt3dadd(643.402, 981.78, 52.9254, 1.21028)
pt3dadd(642.797, 983.759, 52.6176, 1.2458)
pt3dadd(642.404, 985.788, 52.3995, 1.33412)
pt3dadd(642.155, 987.841, 52.199, 1.01343)
pt3dadd(642.184, 989.911, 52.0789, 1.22134)
pt3dadd(641.961, 991.969, 52.0439, 1.31909)
pt3dadd(641.464, 993.964, 52.6232, 1.32812)
pt3dadd(641.278, 996.026, 52.5756, 1.30071)
pt3dadd(641.162, 998.079, 53.1394, 1.1589)
pt3dadd(640.959, 1000.14, 53.0526, 1.62763)
pt3dadd(640.677, 1002.19, 53.349, 1.62558)
pt3dadd(640.433, 1004.23, 52.8504, 1.30613)
pt3dadd(640.181, 1006.28, 52.6115, 1.0751)
pt3dadd(639.734, 1008.29, 52.0748, 1.07622)
pt3dadd(639.162, 1010.28, 51.7584, 1.16062)
pt3dadd(638.235, 1012.12, 51.4065, 1.27461)
pt3dadd(637.171, 1013.89, 51.0532, 1.41436)
pt3dadd(635.991, 1015.59, 50.7763, 1.31484)
pt3dadd(634.641, 1017.14, 51.2575, 1.70007)
pt3dadd(632.787, 1017.99, 50.359, 1.70986)
pt3dadd(631.126, 1019.19, 49.6071, 1.26869)
pt3dadd(629.686, 1020.62, 48.6729, 1.66859)
pt3dadd(628.303, 1022.16, 48.3951, 1.15477)
pt3dadd(627.115, 1023.85, 48.1741, 1.15477)
pt3dadd(625.931, 1025.54, 47.9531, 1.24799)
pt3dadd(625.546, 1027.57, 48.2389, 1.41945)
pt3dadd(624.9, 1029.54, 48.1438, 1.41945)
pt3dadd(624.258, 1031.51, 48.0486, 1.41945)
pt3dadd(623.612, 1033.48, 47.9535, 1.41945)
pt3dadd(622.971, 1035.44, 47.8583, 1.37489)
pt3dadd(622.329, 1037.41, 47.7632, 0.80497)
pt3dadd(621.617, 1039.35, 47.8233, 0.80497)
pt3dadd(620.905, 1041.3, 47.8834, 1.13171)
pt3dadd(619.924, 1043.11, 47.6089, 1.44964)
pt3dadd(618.793, 1044.85, 47.4743, 1.1925)
pt3dadd(617.713, 1046.55, 46.3544, 1.20787)
pt3dadd(616.686, 1048.28, 45.1518, 1.28318)
pt3dadd(616.003, 1050.16, 43.8649, 1.30374)
pt3dadd(615.307, 1052.09, 43.2003, 1.31041)
pt3dadd(614.426, 1053.86, 41.7328, 1.31041)
pt3dadd(613.329, 1056.11, 39.4553, 1.67954)
}
dend[5] {pt3dclear()
pt3dadd(678.873, 885.235, 80.2443, 1.91227)
pt3dadd(680.703, 885.877, 78.4796, 1.91227)
pt3dadd(682.69, 885.877, 77.0702, 1.95328)
pt3dadd(684.615, 885.707, 75.2786, 1.4292)
pt3dadd(686.499, 885.463, 73.2976, 1.16816)
pt3dadd(688.507, 885.422, 72.1082, 1.13443)
}
dend[6] {pt3dclear()
pt3dadd(688.507, 885.422, 72.1082, 1.13443)
pt3dadd(689.761, 885.575, 71.2238, 1.30761)
pt3dadd(692.912, 885.351, 64.7633, 1.30761)
}
dend[7] {pt3dclear()
pt3dadd(692.912, 885.351, 64.7633, 1.30761)
pt3dadd(694.158, 885.964, 63.0884, 1.45591)
pt3dadd(694.609, 883.12, 55.9046, 1.45591)
pt3dadd(695.301, 881.94, 52.146, 1.50343)
pt3dadd(695.764, 880.93, 47.9292, 1.7498)
pt3dadd(696.53, 880.234, 43.5981, 1.335)
pt3dadd(697.106, 879.704, 38.9676, 1.45989)
pt3dadd(697.598, 878.632, 34.8631, 1.28105)
pt3dadd(697.524, 877.146, 31.3935, 1.35756)
pt3dadd(697.313, 875.386, 29.2087, 1.35756)
}
dend[8] {pt3dclear()
pt3dadd(692.912, 885.351, 64.7633, 1.30761)
pt3dadd(694.63, 885.488, 61.9957, 1.21815)
pt3dadd(696.526, 885.509, 59.988, 1.46273)
pt3dadd(698.546, 885.612, 58.9071, 1.4565)
pt3dadd(700.509, 885.972, 57.5742, 1.00662)
pt3dadd(702.421, 886.316, 55.854, 1.45532)
pt3dadd(704.334, 886.66, 54.1338, 1.45532)
pt3dadd(706.176, 887.318, 52.5038, 1.47932)
pt3dadd(707.832, 888.278, 50.6009, 1.26138)
pt3dadd(709.592, 889.098, 48.882, 1.01861)
pt3dadd(711.496, 889.516, 47.1958, 1.02494)
pt3dadd(713.43, 890.021, 45.8844, 1.02494)
pt3dadd(715.363, 890.526, 44.573, 1.28106)
pt3dadd(717.251, 890.986, 42.8444, 1.37442)
pt3dadd(719.06, 891.197, 40.4731, 0.98546)
pt3dadd(721.06, 890.945, 39.3404, 1.12705)
pt3dadd(723.03, 890.651, 37.971, 1.31022)
pt3dadd(724.906, 890.444, 35.932, 1.19562)
pt3dadd(726.818, 890.655, 34.0818, 1.26101)
pt3dadd(728.748, 891.176, 32.7862, 1.38003)
pt3dadd(730.801, 891.205, 32.1628, 1.04677)
pt3dadd(734.051, 891.305, 30.6412, 1.04677)
}
dend[9] {pt3dclear()
pt3dadd(688.507, 885.422, 72.1082, 1.13443)
pt3dadd(690.519, 885.38, 70.9188, 1.13443)
pt3dadd(692.585, 885.339, 70.6466, 1.04155)
pt3dadd(694.642, 885.115, 70.4119, 1.3408)
pt3dadd(696.7, 885.115, 70.9075, 1.28612)
pt3dadd(698.753, 885.335, 71.2438, 1.28612)
pt3dadd(700.807, 885.55, 71.5801, 1.2518)
}
dend[10] {pt3dclear()
pt3dadd(700.807, 885.55, 71.5801, 1.2518)
}
}
proc shape3d_2() {
dend[10] { pt3dadd(701.56, 886.461, 71.2853, 1.20185)
pt3dadd(703.233, 887.682, 71.093, 1.20185)
pt3dadd(704.806, 889.024, 71.0709, 1.12244)
pt3dadd(706.251, 890.493, 70.5388, 1.32514)
pt3dadd(707.894, 891.723, 69.9147, 0.953988)
pt3dadd(709.377, 893.159, 69.4621, 0.953988)
pt3dadd(710.855, 894.592, 69.0096, 1.26479)
pt3dadd(712.457, 895.908, 68.9911, 0.98421)
pt3dadd(714.245, 896.943, 68.9078, 0.98421)
pt3dadd(716.038, 897.978, 68.8245, 1.06315)
pt3dadd(718.008, 898.537, 68.1216, 1.08893)
pt3dadd(720.008, 898.877, 67.1065, 1.22666)
pt3dadd(721.759, 899.92, 66.2503, 1.22666)
pt3dadd(723.515, 900.963, 65.3942, 1.39959)
pt3dadd(725.316, 901.982, 65.2381, 1.00883)
pt3dadd(727.154, 902.93, 64.9601, 1.00883)
pt3dadd(728.988, 903.878, 64.6822, 1.17245)
pt3dadd(730.905, 904.648, 64.4042, 0.880544)
pt3dadd(732.917, 905.112, 64.0481, 1.24506)
pt3dadd(734.887, 905.729, 63.692, 1.35229)
pt3dadd(736.713, 906.693, 63.3359, 0.983424)
pt3dadd(738.452, 907.799, 62.8257, 1.28829)
pt3dadd(740.273, 908.742, 62.1476, 1.41672)
pt3dadd(742.223, 909.351, 61.3436, 1.39392)
pt3dadd(744.206, 909.935, 61.5283, 1.31372)
pt3dadd(746.223, 910.398, 61.6395, 1.43201)
pt3dadd(748.276, 910.676, 61.6145, 1.40444)
pt3dadd(750.267, 911.214, 61.2707, 1.12915)
pt3dadd(752.106, 912.125, 60.5861, 1.2667)
pt3dadd(754.068, 912.709, 59.8389, 0.938812)
pt3dadd(756.076, 913.106, 59.0916, 1.16744)
pt3dadd(758.133, 913.243, 58.6621, 1.19127)
pt3dadd(760.199, 913.131, 58.4412, 1.30311)
pt3dadd(762.265, 913.176, 58.2203, 1.00293)
pt3dadd(764.331, 913.288, 58.0725, 1.23499)
pt3dadd(766.397, 913.156, 58.0348, 1.44055)
pt3dadd(768.467, 913.147, 57.936, 1.12967)
pt3dadd(770.471, 913.665, 57.8372, 1.12967)
pt3dadd(772.52, 913.934, 57.9177, 1.12967)
pt3dadd(774.573, 914.207, 57.9982, 1.18238)
pt3dadd(776.531, 914.87, 58.0788, 1.01028)
pt3dadd(778.548, 915.342, 58.1125, 1.27375)
pt3dadd(780.56, 915.793, 58.5782, 1.07267)
pt3dadd(782.551, 916.331, 59.044, 1.53151)
pt3dadd(784.6, 916.53, 59.4785, 1.53151)
pt3dadd(786.654, 916.733, 59.913, 1.2448)
pt3dadd(788.724, 916.741, 59.9482, 1.09539)
pt3dadd(790.765, 916.981, 60.5824, 1.38122)
pt3dadd(792.541, 918.041, 60.8036, 1.31163)
pt3dadd(794.429, 918.881, 60.9574, 1.33334)
pt3dadd(796.35, 919.655, 60.7471, 1.45793)
pt3dadd(798.113, 920.67, 59.867, 1.45793)
pt3dadd(799.881, 921.688, 58.987, 1.48041)
pt3dadd(801.603, 922.835, 58.8615, 1.71538)
pt3dadd(803.417, 923.779, 58.0669, 1.68721)
pt3dadd(805.027, 925.075, 57.909, 1.26139)
pt3dadd(806.389, 926.594, 57.0587, 1.27351)
pt3dadd(807.909, 927.998, 57.0829, 1.11518)
pt3dadd(809.217, 929.604, 57.1671, 1.33046)
pt3dadd(810.711, 931.032, 57.2514, 1.2038)
pt3dadd(812.065, 932.593, 56.7926, 1.53897)
pt3dadd(813.551, 933.98, 55.9052, 1.07787)
pt3dadd(815.063, 935.387, 55.5335, 1.14165)
pt3dadd(816.532, 936.791, 54.5915, 1.14165)
pt3dadd(818.006, 938.194, 53.6496, 1.17616)
pt3dadd(819.525, 939.552, 52.7842, 1.0582)
pt3dadd(820.846, 941.105, 51.8857, 1.35485)
pt3dadd(822.399, 942.409, 50.9142, 1.51802)
pt3dadd(824.146, 943.444, 49.9427, 1.08351)
pt3dadd(826.042, 944.16, 48.8989, 1.08351)
pt3dadd(827.934, 944.876, 47.855, 1.42276)
pt3dadd(829.776, 945.82, 47.6564, 1.15331)
pt3dadd(831.639, 946.723, 47.6024, 1.15331)
pt3dadd(833.502, 947.621, 47.5484, 1.15331)
pt3dadd(835.365, 948.524, 47.4943, 1.23309)
pt3dadd(837.34, 949.145, 47.5249, 0.783576)
pt3dadd(839.236, 949.944, 47.0039, 1.03851)
pt3dadd(841.153, 950.722, 46.8887, 1.03851)
pt3dadd(843.074, 951.496, 46.7736, 1.12177)
pt3dadd(844.883, 952.461, 47.4258, 1.2134)
pt3dadd(846.667, 953.508, 47.187, 1.28019)
pt3dadd(848.617, 954.195, 47.0547, 0.864714)
pt3dadd(850.575, 954.862, 46.7112, 1.21433)
pt3dadd(852.571, 955.363, 46.1986, 1.56828)
pt3dadd(854.301, 956.398, 45.0667, 1.56056)
pt3dadd(856.061, 957.263, 43.4613, 1.21926)
pt3dadd(857.99, 957.872, 42.3984, 1.21926)
pt3dadd(859.919, 958.48, 41.3355, 1.21338)
pt3dadd(861.65, 959.573, 40.6175, 0.861982)
pt3dadd(863.198, 960.931, 40.0958, 1.05472)
pt3dadd(864.639, 962.397, 39.4815, 1.1232)
pt3dadd(865.877, 964.02, 38.6581, 1.20328)
pt3dadd(867.036, 965.684, 37.6671, 1.20328)
pt3dadd(868.195, 967.348, 36.6761, 0.9354)
pt3dadd(869.603, 968.843, 36.0032, 1.02327)
pt3dadd(871.031, 970.337, 36.2369, 1.23581)
pt3dadd(872.517, 971.774, 35.9862, 1.58742)
pt3dadd(875.208, 974.92, 35.9323, 1.58742)
}
dend[11] {pt3dclear()
pt3dadd(700.807, 885.55, 71.5801, 1.2518)
pt3dadd(702.848, 885.198, 71.4481, 1.2518)
pt3dadd(704.889, 884.85, 71.3161, 1.31869)
pt3dadd(706.955, 884.9, 71.192, 0.980012)
pt3dadd(709.004, 884.937, 70.4847, 1.1472)
pt3dadd(711.045, 885.289, 70.608, 1.1472)
pt3dadd(713.082, 885.641, 70.7313, 1.1472)
pt3dadd(715.061, 886.246, 70.7787, 1.19371)
pt3dadd(717.118, 886.465, 70.6173, 1.25801)
pt3dadd(719.106, 887.045, 70.8126, 1.25801)
pt3dadd(721.093, 887.624, 71.0078, 1.20703)
pt3dadd(723.034, 888.191, 72.0271, 1.14358)
pt3dadd(724.968, 888.941, 72.1241, 1.14358)
pt3dadd(726.897, 889.686, 72.2211, 1.17711)
pt3dadd(728.967, 889.645, 72.3139, 1.26225)
pt3dadd(731, 889.268, 72.3162, 1.30884)
pt3dadd(733.045, 889.57, 72.6782, 1.36025)
pt3dadd(735.086, 889.802, 72.0848, 1.31607)
pt3dadd(737.148, 889.707, 71.6646, 1.27601)
pt3dadd(739.205, 889.707, 71.1107, 1.04771)
pt3dadd(741.246, 889.939, 70.5462, 1.04771)
pt3dadd(743.291, 890.17, 69.9817, 1.4517)
pt3dadd(745.308, 890.1, 68.8879, 1.55972)
pt3dadd(747.187, 889.409, 67.6211, 1.38432)
pt3dadd(748.744, 888.154, 66.3354, 1.37371)
pt3dadd(750.193, 886.722, 65.4281, 1.37371)
pt3dadd(751.812, 885.115, 64.4119, 1.37371)
pt3dadd(750.93, 886.233, 64.5731, 1.3548)
pt3dadd(755.032, 886.188, 65.9271, 1.3548)
pt3dadd(757.086, 886.432, 66.1428, 1.35085)
pt3dadd(759.086, 886.954, 66.0049, 1.242)
pt3dadd(761.135, 887.223, 65.7408, 1.38172)
pt3dadd(763.205, 887.165, 65.8312, 1.43372)
pt3dadd(765.246, 887.496, 65.6764, 1.46016)
pt3dadd(767.312, 887.421, 65.4073, 1.45692)
pt3dadd(769.344, 887.26, 64.5413, 1.5642)
pt3dadd(771.373, 886.846, 64.3654, 1.00413)
pt3dadd(773.356, 886.333, 63.6973, 1.00413)
pt3dadd(775.343, 885.815, 63.0292, 1.33633)
pt3dadd(777.393, 885.596, 62.5585, 1.33633)
pt3dadd(779.442, 885.38, 62.0877, 1.33633)
pt3dadd(781.491, 885.161, 61.617, 1.33633)
pt3dadd(783.541, 884.942, 61.1463, 1.47247)
pt3dadd(785.602, 884.817, 60.7571, 1.2063)
pt3dadd(787.664, 884.966, 60.8428, 1.2063)
pt3dadd(789.73, 885.12, 60.9285, 1.49687)
pt3dadd(791.763, 885.505, 60.7895, 1.14662)
pt3dadd(793.717, 886.134, 60.1784, 1.14039)
pt3dadd(795.687, 886.771, 60.2047, 1.27716)
pt3dadd(797.641, 887.446, 60.2311, 1.35123)
pt3dadd(799.629, 888.026, 60.4254, 1.089)
pt3dadd(801.645, 888.361, 61.2315, 1.19181)
pt3dadd(803.711, 888.473, 61.3385, 1.19181)
pt3dadd(805.776, 888.585, 61.4456, 1.20703)
pt3dadd(807.834, 888.634, 60.9342, 1.20315)
pt3dadd(809.892, 888.854, 60.5982, 1.21738)
pt3dadd(811.891, 889.371, 60.5457, 1.29547)
pt3dadd(813.936, 889.587, 59.9203, 1.29547)
pt3dadd(815.977, 889.802, 59.295, 1.53477)
pt3dadd(817.898, 890.473, 58.3647, 1.16581)
pt3dadd(819.823, 891.172, 57.6784, 1.19661)
pt3dadd(821.893, 891.222, 57.5283, 1.28739)
pt3dadd(823.939, 890.899, 57.6221, 1.28739)
pt3dadd(825.984, 890.576, 57.7159, 1.28739)
pt3dadd(828.025, 890.253, 57.8098, 1.31672)
pt3dadd(830.095, 890.336, 57.8242, 0.980236)
pt3dadd(832.152, 890.543, 57.5103, 0.980236)
pt3dadd(834.206, 890.746, 57.1965, 0.980236)
pt3dadd(836.263, 890.949, 56.8826, 1.12866)
pt3dadd(838.263, 891.47, 56.5647, 1.46111)
pt3dadd(840.213, 892.145, 56.8687, 1.41153)
pt3dadd(842.109, 892.969, 56.4943, 1.44972)
}
dend[12] {pt3dclear()
pt3dadd(842.109, 892.969, 56.4943, 1.44972)
pt3dadd(844.887, 893.665, 56.6247, 0.979152)
pt3dadd(846.945, 893.76, 57.0421, 0.979152)
pt3dadd(848.998, 893.793, 57.6801, 1.10341)
pt3dadd(851.068, 893.863, 57.5361, 1.08776)
pt3dadd(853.126, 894.05, 57.3383, 1.09776)
pt3dadd(855.183, 893.847, 57.0782, 1.06046)
pt3dadd(857.133, 894.538, 57.1799, 1.3515)
pt3dadd(859.017, 895.399, 57.2579, 1.3515)
pt3dadd(860.896, 896.264, 57.3359, 1.38986)
pt3dadd(862.677, 897.32, 57.1689, 0.86757)
pt3dadd(864.564, 898.161, 57.0513, 1.11287)
pt3dadd(866.465, 898.984, 57.159, 1.27447)
pt3dadd(868.444, 899.543, 57.7439, 1.34883)
pt3dadd(870.439, 900.094, 57.7459, 1.3598)
pt3dadd(872.401, 900.715, 58.2683, 1.58049)
pt3dadd(874.418, 901.183, 58.2725, 1.64118)
pt3dadd(876.45, 901.564, 58.2146, 1.20175)
pt3dadd(878.52, 901.543, 58.2701, 1.3495)
pt3dadd(880.59, 901.456, 58.4643, 1.36603)
pt3dadd(882.652, 901.56, 58.2146, 1.48662)
pt3dadd(884.722, 901.502, 58.2159, 1.47296)
pt3dadd(886.771, 901.241, 58.6187, 1.13674)
pt3dadd(888.833, 901.079, 58.6002, 1.32348)
pt3dadd(890.899, 900.972, 58.7373, 1.13058)
pt3dadd(892.969, 900.926, 58.8745, 1.13058)
pt3dadd(895.039, 900.881, 59.0116, 1.13058)
pt3dadd(897.105, 900.835, 59.1487, 1.20613)
pt3dadd(899.125, 900.549, 60.0143, 0.917962)
pt3dadd(901.179, 900.276, 60.0301, 1.05253)
}
}
proc shape3d_3() {
dend[12] { pt3dadd(903.166, 899.734, 60.4596, 1.0575)
pt3dadd(905.199, 899.353, 60.397, 1.14894)
pt3dadd(907.269, 899.349, 60.2085, 1.14894)
pt3dadd(909.339, 899.34, 60.0201, 1.21564)
pt3dadd(911.367, 898.943, 60.0247, 1.01738)
pt3dadd(913.259, 898.103, 60.1319, 1.04049)
pt3dadd(915.259, 897.569, 60.239, 1.07522)
pt3dadd(917.217, 896.952, 59.5924, 1.10076)
pt3dadd(920.086, 896.55, 59.4414, 1.10076)
}
dend[13] {pt3dclear()
pt3dadd(842.109, 892.969, 56.4943, 1.44972)
pt3dadd(845.02, 894.377, 58.2353, 1.44972)
}
dend[14] {pt3dclear()
pt3dstyle(1, 671.587, 879.829, 88.0109)
pt3dadd(664.085, 887.152, 82.3779, 2.13237)
pt3dadd(661.866, 890.377, 79.1719, 1.6593)
pt3dadd(660.922, 892.129, 77.7946, 1.82452)
pt3dadd(659.813, 893.772, 76.3615, 2.13773)
pt3dadd(658.852, 895.569, 75.511, 1.48036)
}
dend[15] {pt3dclear()
pt3dadd(658.852, 895.569, 75.511, 1.48036)
pt3dadd(657.266, 895.925, 74.1555, 1.49905)
pt3dadd(655.25, 896.057, 73.081, 1.49905)
pt3dadd(653.354, 896.153, 71.083, 1.242)
pt3dadd(651.516, 896.153, 68.791, 1.30069)
pt3dadd(649.628, 896.343, 66.7907, 1.03585)
pt3dadd(647.736, 896.364, 64.771, 1.08131)
pt3dadd(645.753, 896.389, 63.327, 1.23298)
pt3dadd(643.787, 896.314, 61.7863, 1.23298)
pt3dadd(641.816, 896.244, 60.2456, 1.37107)
pt3dadd(639.775, 896.235, 59.4147, 1.05124)
pt3dadd(637.779, 896.252, 58.0809, 1.13014)
pt3dadd(635.726, 896.115, 57.6021, 1.38647)
pt3dadd(633.71, 896.12, 56.4615, 0.841944)
pt3dadd(631.694, 895.946, 55.3878, 0.752082)
pt3dadd(629.69, 895.925, 54.1485, 0.752082)
pt3dadd(627.686, 895.904, 52.9091, 0.84817)
pt3dadd(625.678, 895.557, 51.9972, 0.84817)
pt3dadd(623.674, 895.209, 51.0852, 1.18022)
}
dend[16] {pt3dclear()
pt3dadd(623.674, 895.209, 51.0852, 1.18022)
pt3dadd(621.729, 895.275, 51.2137, 1.21437)
pt3dadd(619.675, 895.532, 50.9575, 1.21437)
pt3dadd(617.626, 895.788, 50.7013, 1.21437)
pt3dadd(615.577, 895.991, 50.1997, 0.921688)
pt3dadd(613.548, 896.368, 49.7581, 1.31757)
pt3dadd(611.548, 896.877, 49.3974, 1.28607)
pt3dadd(609.487, 897.043, 49.1786, 0.984534)
pt3dadd(607.417, 897.047, 49.179, 0.841464)
pt3dadd(605.355, 897.15, 48.7878, 1.26345)
pt3dadd(603.297, 897.204, 48.2337, 1.24431)
pt3dadd(601.252, 897.262, 47.4784, 1.32172)
pt3dadd(599.203, 896.981, 47.2847, 1.29109)
pt3dadd(597.137, 896.931, 46.9685, 1.28273)
pt3dadd(595.113, 896.591, 46.3275, 1.3051)
pt3dadd(593.125, 896.086, 45.6864, 0.944094)
pt3dadd(591.068, 896.057, 45.1331, 1.2565)
pt3dadd(589.039, 895.652, 45.0411, 1.28159)
pt3dadd(587.023, 895.18, 44.9592, 1.2658)
pt3dadd(585.028, 894.629, 44.8467, 1.26364)
pt3dadd(583.02, 894.132, 44.5751, 1.26364)
pt3dadd(581.016, 893.631, 44.3034, 1.28699)
pt3dadd(578.979, 893.478, 43.5189, 1.30383)
pt3dadd(576.909, 893.487, 43.6461, 1.34954)
}
dend[17] {pt3dclear()
pt3dadd(576.909, 893.487, 43.6461, 1.34954)
pt3dadd(575.22, 892.977, 43.3555, 1.16923)
pt3dadd(573.324, 892.141, 43.36, 1.16923)
pt3dadd(571.312, 892.149, 42.2064, 1.21477)
pt3dadd(569.296, 892.162, 41.0527, 1.21477)
pt3dadd(567.313, 891.926, 39.7706, 1.40254)
pt3dadd(565.346, 891.52, 38.5453, 1.07137)
pt3dadd(561.711, 893.474, 37.7666, 1.07137)
}
dend[18] {pt3dclear()
pt3dadd(576.909, 893.487, 43.6461, 1.34954)
pt3dadd(576.052, 893.619, 43.4298, 1.34954)
}
dend[19] {pt3dclear()
pt3dadd(623.674, 895.209, 51.0852, 1.18022)
pt3dadd(621.77, 895.13, 49.1178, 0.771316)
pt3dadd(619.833, 895.138, 47.3581, 0.994634)
pt3dadd(617.874, 895.089, 45.7509, 0.994634)
pt3dadd(615.916, 895.039, 44.1436, 1.09715)
pt3dadd(613.97, 895.258, 42.5292, 1.28068)
pt3dadd(612.153, 895.817, 40.5363, 0.914848)
pt3dadd(610.319, 896.538, 39.028, 0.914848)
pt3dadd(608.481, 897.262, 37.5198, 1.22867)
pt3dadd(606.622, 897.709, 35.6163, 1.1483)
pt3dadd(604.154, 898.674, 32.7815, 1.1483)
}
dend[20] {pt3dclear()
pt3dadd(658.852, 895.569, 75.511, 1.48036)
pt3dadd(658.372, 897.535, 74.4451, 1.64105)
pt3dadd(657.97, 899.469, 72.9662, 1.77833)
}
dend[21] {pt3dclear()
pt3dadd(657.97, 899.469, 72.9662, 1.77833)
pt3dadd(658.297, 901.969, 70.0744, 1.07464)
pt3dadd(659.324, 903.555, 68.035, 1.07464)
pt3dadd(660.355, 905.141, 65.9957, 1.17997)
pt3dadd(661.518, 906.619, 63.9101, 1.23338)
pt3dadd(662.599, 908.299, 62.619, 1.32804)
pt3dadd(663.178, 910.187, 61.1081, 1.32804)
pt3dadd(663.758, 912.071, 59.5972, 1.32804)
pt3dadd(664.338, 913.959, 58.0863, 1.32818)
pt3dadd(664.673, 915.896, 56.527, 1.37311)
pt3dadd(665.377, 917.706, 54.7923, 1.37311)
pt3dadd(666.076, 919.515, 53.0576, 1.37311)
pt3dadd(666.78, 921.328, 51.3229, 1.37311)
pt3dadd(667.484, 923.137, 49.5882, 1.52568)
}
dend[22] {pt3dclear()
pt3dadd(667.484, 923.137, 49.5882, 1.52568)
pt3dadd(667.778, 925.34, 46.2882, 1.52568)
pt3dadd(668.954, 927.153, 46.1482, 1.93309)
pt3dadd(669.45, 929.004, 44.2586, 1.39283)
pt3dadd(669.686, 930.937, 42.56, 1.52071)
pt3dadd(670.262, 932.804, 40.9193, 1.45094)
pt3dadd(670.949, 934.729, 40.0762, 1.44177)
pt3dadd(671.487, 936.687, 39.1077, 1.43361)
pt3dadd(672.179, 938.563, 37.8428, 1.30617)
pt3dadd(672.924, 940.306, 35.8181, 1.31416)
pt3dadd(673.628, 942.198, 34.7155, 1.53552)
pt3dadd(674.452, 944.069, 33.9481, 1.08899)
pt3dadd(675.586, 947.1, 32.2522, 1.08899)
}
dend[23] {pt3dclear()
pt3dadd(667.484, 923.137, 49.5882, 1.52568)
pt3dadd(666.921, 924.785, 45.3314, 1.43921)
pt3dadd(665.878, 925.716, 41.6458, 1.40669)
pt3dadd(664.714, 926.698, 38.2513, 1.04373)
pt3dadd(664.23, 926.95, 36.6193, 1.04373)
}
dend[24] {pt3dclear()
pt3dadd(657.97, 899.469, 72.9662, 1.77833)
pt3dadd(657.225, 901.328, 71.7018, 1.26797)
pt3dadd(656.327, 903.187, 71.2256, 1.26797)
pt3dadd(655.428, 905.041, 70.7493, 1.28163)
pt3dadd(654.488, 906.83, 69.6651, 1.4929)
pt3dadd(653.64, 908.709, 69.2412, 1.53096)
pt3dadd(653.002, 910.605, 67.9746, 1.53096)
pt3dadd(652.365, 912.506, 66.7081, 1.16968)
}
dend[25] {pt3dclear()
pt3dadd(652.365, 912.506, 66.7081, 1.16968)
pt3dadd(653.441, 916.037, 67.2721, 1.51116)
pt3dadd(653.946, 918.045, 67.274, 1.01204)
pt3dadd(654.058, 920.09, 67.9736, 1.37337)
pt3dadd(654.174, 922.135, 68.6733, 1.37337)
pt3dadd(654.253, 924.201, 68.9735, 1.242)
pt3dadd(654.542, 926.25, 69.208, 1.24525)
pt3dadd(654.344, 928.3, 69.6633, 1.24275)
pt3dadd(654.149, 930.312, 70.7503, 1.36628)
pt3dadd(653.673, 932.316, 71.2729, 1.30326)
pt3dadd(653.155, 934.245, 72.594, 1.41968)
pt3dadd(652.683, 936.244, 73.1456, 1.49476)
pt3dadd(652.282, 938.199, 74.5047, 1.10112)
pt3dadd(651.441, 940.066, 75.2269, 1.21473)
pt3dadd(650.365, 941.759, 76.4498, 1.65529)
pt3dadd(649.603, 943.634, 77.4862, 1.16409)
pt3dadd(649.061, 945.559, 78.7643, 1.16409)
pt3dadd(648.514, 947.485, 80.0423, 1.16409)
pt3dadd(647.968, 949.414, 81.3203, 1.2605)
pt3dadd(647.678, 951.442, 81.9814, 1.25475)
pt3dadd(647.43, 953.43, 83.2622, 1.21314)
pt3dadd(647.185, 955.45, 84.1748, 1.28045)
pt3dadd(646.979, 957.495, 84.7113, 1.52728)
pt3dadd(646.353, 959.462, 85.153, 1.25468)
pt3dadd(645.443, 961.283, 86.0275, 1.27907)
pt3dadd(644.387, 963.063, 86.2915, 1.2679)
pt3dadd(643.364, 964.81, 87.3455, 1.20703)
pt3dadd(642.52, 966.69, 87.7859, 1.25973)
pt3dadd(641.522, 968.445, 88.8901, 1.28189)
pt3dadd(640.495, 970.238, 89.1705, 1.30398)
pt3dadd(639.572, 972.076, 89.7749, 1.04897)
pt3dadd(639.112, 975.036, 91.4978, 2.10673)
pt3dadd(638.127, 977.88, 93.3587, 2.33105)
pt3dadd(637.61, 979.843, 94.3215, 1.40471)
pt3dadd(637.39, 981.896, 94.6797, 1.37107)
pt3dadd(637.519, 983.958, 94.9061, 1.53255)
pt3dadd(637.879, 985.97, 95.7373, 1.90126)
pt3dadd(638.359, 987.961, 96.4116, 1.67181)
pt3dadd(638.653, 990.011, 96.5321, 1.65971)
pt3dadd(638.661, 992.068, 97.0537, 2.00294)
pt3dadd(638.632, 994.138, 96.9211, 1.56291)
pt3dadd(638.607, 996.208, 96.6974, 1.81847)
pt3dadd(638.442, 998.266, 96.361, 1.81847)
pt3dadd(638.272, 1000.32, 96.0245, 1.81847)
pt3dadd(638.107, 1002.38, 95.688, 1.58386)
pt3dadd(638.264, 1004.44, 95.4334, 1.56304)
pt3dadd(637.846, 1006.47, 95.3361, 1.64278)
pt3dadd(637.817, 1008.54, 95.0254, 1.59956)
pt3dadd(638.036, 1010.59, 95.0657, 1.61324)
pt3dadd(638.5, 1012.61, 95.2633, 1.61331)
pt3dadd(639.216, 1014.55, 95.4229, 1.20775)
pt3dadd(640.003, 1016.46, 95.2011, 1.21312)
pt3dadd(640.706, 1018.4, 95.581, 1.33123)
pt3dadd(641.704, 1020.22, 95.5122, 1.43456)
pt3dadd(642.627, 1022.07, 95.5613, 1.91472)
pt3dadd(643.77, 1023.78, 96.0917, 1.69499)
pt3dadd(644.735, 1025.6, 96.6124, 1.19019)
pt3dadd(645.144, 1027.62, 97.1415, 1.19019)
pt3dadd(645.554, 1029.63, 97.6706, 1.28485)
pt3dadd(646.105, 1031.63, 97.3278, 1.36134)
pt3dadd(646.328, 1033.68, 97.5211, 1.39128)
pt3dadd(646.337, 1035.71, 98.5437, 1.39128)
pt3dadd(646.341, 1037.74, 99.5663, 1.01692)
pt3dadd(646.349, 1039.76, 100.589, 1.17752)
pt3dadd(646.883, 1041.74, 101.352, 1.17752)
pt3dadd(647.417, 1043.71, 102.114, 1.29587)
pt3dadd(647.657, 1045.76, 102.349, 1.49189)
pt3dadd(648.1, 1047.78, 102.676, 1.13741)
pt3dadd(648.796, 1049.73, 102.903, 1.13741)
pt3dadd(649.491, 1051.68, 103.13, 1.25909)
pt3dadd(649.835, 1053.71, 103.459, 1.00125)
pt3dadd(649.98, 1055.77, 103.789, 1.10567)
pt3dadd(649.79, 1057.82, 104.491, 1.26535)
pt3dadd(649.475, 1059.85, 105.066, 1.26535)
pt3dadd(649.156, 1061.88, 105.64, 1.26535)
pt3dadd(648.837, 1063.91, 106.215, 1.29146)
}
}
proc shape3d_4() {
dend[25] { pt3dadd(648.444, 1065.94, 106.07, 1.45415)
pt3dadd(647.98, 1067.95, 106.66, 1.33464)
pt3dadd(648.432, 1069.94, 107.47, 1.33464)
pt3dadd(648.883, 1071.93, 108.281, 1.34211)
pt3dadd(649.115, 1073.98, 108.522, 1.33751)
pt3dadd(649.661, 1075.97, 108.923, 1.55103)
pt3dadd(650.319, 1077.92, 109.464, 1.18878)
pt3dadd(651.421, 1079.65, 110.135, 1.18878)
pt3dadd(652.518, 1081.38, 110.806, 1.33296)
pt3dadd(653.255, 1083.92, 112.199, 1.45369)
}
dend[26] {pt3dclear()
pt3dadd(652.365, 912.506, 66.7081, 1.16968)
pt3dadd(651.661, 914.381, 65.4415, 1.16968)
pt3dadd(650.957, 916.257, 64.1749, 1.16968)
pt3dadd(650.257, 918.132, 62.9084, 1.00923)
pt3dadd(649.872, 920.115, 61.8239, 1.32915)
pt3dadd(649.235, 922.065, 61.2074, 0.930706)
pt3dadd(648.564, 923.973, 60.1217, 0.992002)
pt3dadd(648.013, 925.928, 59.1444, 0.992002)
pt3dadd(647.463, 927.882, 58.1672, 0.992002)
pt3dadd(646.912, 929.836, 57.19, 1.03084)
pt3dadd(646.134, 931.707, 56.1585, 1.26137)
pt3dadd(645.422, 933.549, 54.6758, 1.33218)
pt3dadd(644.453, 935.272, 53.1932, 1.33218)
pt3dadd(643.488, 936.998, 51.7106, 1.48261)
pt3dadd(642.275, 938.55, 50.1695, 1.48261)
pt3dadd(641.062, 940.099, 48.6284, 1.84566)
}
dend[27] {pt3dclear()
pt3dadd(641.062, 940.099, 48.6284, 1.84566)
pt3dadd(640.528, 941.626, 48.5391, 1.31751)
pt3dadd(640.106, 943.622, 47.6805, 1.31751)
pt3dadd(639.68, 945.613, 46.822, 1.31751)
pt3dadd(638.918, 947.534, 46.4981, 1.29082)
pt3dadd(638.078, 949.422, 46.1894, 1.17097)
pt3dadd(637.237, 951.31, 45.8808, 1.17097)
pt3dadd(636.397, 953.198, 45.5721, 1.17097)
pt3dadd(635.556, 955.086, 45.2635, 1.24765)
pt3dadd(634.674, 956.957, 45.3561, 1.41302)
pt3dadd(633.693, 958.766, 44.7748, 1.39053)
pt3dadd(632.596, 960.505, 44.234, 1.46476)
pt3dadd(631.263, 962.086, 44.3579, 1.18064)
pt3dadd(629.789, 963.539, 44.3288, 1.43779)
pt3dadd(628.514, 965.171, 44.3534, 1.47586)
pt3dadd(627.289, 966.839, 44.2558, 1.47586)
pt3dadd(626.067, 968.512, 44.1581, 1.47586)
pt3dadd(624.846, 970.18, 44.0605, 1.22009)
pt3dadd(623.699, 971.898, 44.4029, 1.40168)
pt3dadd(622.776, 973.749, 44.4901, 1.3797)
pt3dadd(622.138, 975.719, 44.3204, 1.51243)
pt3dadd(621.609, 977.719, 44.1726, 1.21577)
pt3dadd(621.389, 979.777, 44.0248, 1.17516)
pt3dadd(620.565, 981.677, 43.9825, 1.17516)
pt3dadd(619.741, 983.573, 43.9403, 1.47972)
pt3dadd(618.731, 985.357, 43.231, 1.17166)
pt3dadd(617.166, 986.711, 43.1225, 1.17166)
pt3dadd(615.606, 988.069, 43.0139, 1.21978)
pt3dadd(614.061, 989.402, 43.8732, 1.27517)
pt3dadd(612.658, 990.888, 44.6562, 1.48889)
pt3dadd(611.768, 992.755, 44.5984, 1.53219)
pt3dadd(610.588, 994.445, 45.0793, 1.28165)
pt3dadd(609.425, 995.62, 44.8789, 1.28165)
}
dend[28] {pt3dclear()
pt3dadd(641.062, 940.099, 48.6284, 1.84566)
pt3dadd(639.502, 941.275, 46.9665, 1.60042)
pt3dadd(637.804, 942.243, 45.3119, 1.21704)
pt3dadd(636.144, 943.1, 43.1535, 1.21704)
pt3dadd(634.488, 943.957, 40.9951, 1.21704)
pt3dadd(632.828, 944.814, 38.8367, 1.01579)
pt3dadd(630.932, 945.046, 36.9222, 1.01579)
pt3dadd(629.032, 945.278, 35.0077, 1.13032)
pt3dadd(625.86, 945.514, 32.4375, 1.13032)
}
dend[29] {pt3dclear()
pt3dstyle(1, 671.587, 879.829, 88.0109)
pt3dadd(664.698, 888.092, 89.3076, 3.33078)
pt3dadd(664.255, 889.781, 91.984, 3.33078)
pt3dadd(663.596, 891.636, 93.5347, 2.09351)
pt3dadd(662.839, 893.503, 94.6941, 1.73136)
pt3dadd(662.04, 895.304, 96.2234, 1.73707)
pt3dadd(661.311, 897.196, 97.2236, 1.76499)
pt3dadd(660.251, 898.906, 98.4236, 1.75485)
pt3dadd(658.984, 900.487, 99.4271, 1.7494)
}
dend[30] {pt3dclear()
pt3dadd(658.984, 900.487, 99.4271, 1.7494)
pt3dadd(657.805, 901.063, 102.919, 3.00526)
}
dend[31] {pt3dclear()
pt3dadd(657.805, 901.063, 102.919, 3.00526)
pt3dadd(659.274, 903.414, 102.345, 1.46861)
pt3dadd(660.578, 907.273, 104.117, 1.46861)
pt3dadd(661.059, 909.185, 105.663, 0.938878)
pt3dadd(661.179, 911.189, 106.858, 1.18782)
pt3dadd(661.299, 913.172, 108.266, 1.26152)
pt3dadd(661.87, 915.101, 109.43, 1.26152)
pt3dadd(662.446, 917.031, 110.594, 1.26152)
pt3dadd(663.021, 918.96, 111.758, 1.26152)
pt3dadd(663.592, 920.893, 112.922, 1.21772)
pt3dadd(664.052, 922.86, 114.021, 1.43774)
pt3dadd(664.23, 924.868, 115.124, 1.04659)
pt3dadd(664.023, 926.834, 116.632, 1.20318)
pt3dadd(663.526, 928.759, 117.994, 1.29705)
pt3dadd(663.265, 930.689, 119.712, 1.34917)
pt3dadd(663.17, 932.655, 121.228, 1.34114)
pt3dadd(663.1, 934.646, 122.604, 1.36366)
pt3dadd(663.249, 936.617, 124.093, 1.36366)
pt3dadd(663.402, 938.588, 125.582, 1.42799)
pt3dadd(663.733, 940.5, 127.31, 1.23283)
pt3dadd(664.491, 942.351, 128.612, 1.48845)
pt3dadd(665.377, 944.185, 129.471, 1.51505)
pt3dadd(666.018, 946.044, 131.05, 1.23846)
pt3dadd(666.366, 948.048, 131.99, 1.23846)
pt3dadd(666.714, 950.051, 132.93, 1.60575)
pt3dadd(666.772, 952.059, 134.123, 1.2334)
pt3dadd(666.875, 954.075, 135.208, 1.2334)
pt3dadd(666.975, 956.096, 136.293, 1.27268)
pt3dadd(667.049, 958.153, 136.769, 1.34125)
pt3dadd(667.149, 960.136, 138.183, 1.35883)
pt3dadd(667.157, 962.177, 139.024, 1.46576)
pt3dadd(666.983, 964.131, 140.622, 1.38531)
pt3dadd(666.151, 965.995, 141.441, 1.77828)
pt3dadd(665.853, 967.973, 142.719, 1.45523)
pt3dadd(665.745, 969.973, 143.99, 1.45523)
pt3dadd(665.637, 971.973, 145.261, 1.4459)
pt3dadd(665.575, 974.026, 145.915, 1.55569)
pt3dadd(665.592, 976.046, 146.983, 1.34478)
pt3dadd(665.96, 978, 148.387, 1.34478)
pt3dadd(666.333, 979.95, 149.791, 1.34478)
pt3dadd(666.706, 981.9, 151.196, 1.2143)
pt3dadd(667.037, 983.784, 153.119, 1.29348)
pt3dadd(667.335, 985.676, 155.007, 1.38573)
pt3dadd(667.885, 987.605, 156.234, 1.86324)
pt3dadd(668.059, 989.526, 158.048, 1.46741)
pt3dadd(668.01, 991.518, 159.434, 1.592)
pt3dadd(668.316, 993.501, 160.654, 1.592)
pt3dadd(668.618, 995.484, 161.874, 1.58132)
pt3dadd(668.299, 997.492, 162.832, 1.72232)
pt3dadd(668.221, 999.553, 163.183, 1.40703)
pt3dadd(668.064, 1001.57, 164.188, 1.69093)
pt3dadd(666.888, 1003.27, 164.592, 2.05288)
pt3dadd(666.292, 1005.25, 164.48, 1.65675)
pt3dadd(666.147, 1007.32, 164.753, 2.00761)
pt3dadd(665.927, 1009.37, 165.088, 1.26761)
pt3dadd(665.666, 1011.41, 165.611, 1.39401)
pt3dadd(665.451, 1013.45, 166.321, 1.53562)
pt3dadd(665.546, 1015.51, 166.639, 1.53562)
pt3dadd(665.646, 1017.57, 166.957, 1.15176)
pt3dadd(665.89, 1019.61, 167.654, 1.31116)
pt3dadd(666.449, 1021.58, 168.414, 1.2435)
pt3dadd(667.372, 1023.38, 169.471, 1.2435)
pt3dadd(668.291, 1025.18, 170.529, 1.39191)
pt3dadd(668.962, 1027.08, 171.632, 1.5914)
pt3dadd(669.744, 1028.95, 172.686, 1.5914)
pt3dadd(670.531, 1030.82, 173.739, 1.60094)
pt3dadd(670.875, 1032.85, 174.292, 1.25514)
pt3dadd(670.974, 1034.9, 174.845, 1.35523)
pt3dadd(671.115, 1036.95, 175.492, 1.69951)
pt3dadd(671.086, 1038.97, 176.551, 1.26903)
pt3dadd(671.214, 1041.01, 177.365, 1.61095)
pt3dadd(671.678, 1043, 178.154, 1.75779)
pt3dadd(672.415, 1044.93, 178.416, 1.75779)
pt3dadd(673.152, 1046.86, 178.678, 1.91015)
pt3dadd(673.334, 1048.91, 179.316, 2.20583)
pt3dadd(673.4, 1050.98, 179.524, 1.64736)
pt3dadd(673.615, 1053.03, 179.885, 1.43661)
pt3dadd(673.491, 1055.07, 180.657, 1.43661)
pt3dadd(673.599, 1057.09, 181.722, 2.11839)
}
dend[32] {pt3dclear()
pt3dadd(657.805, 901.063, 102.919, 3.00526)
pt3dadd(656.679, 900.897, 107.094, 3.00526)
pt3dadd(655.544, 899.589, 109.838, 1.29705)
pt3dadd(654.137, 898.376, 112.042, 1.35024)
pt3dadd(652.621, 897.415, 114.534, 1.3543)
pt3dadd(651.147, 896.264, 116.672, 1.37792)
pt3dadd(649.823, 894.82, 118.301, 1.34682)
pt3dadd(648.345, 893.656, 120.376, 1.25295)
pt3dadd(646.867, 892.489, 122.451, 1.25295)
pt3dadd(645.712, 891.027, 124.629, 1.36861)
pt3dadd(644.155, 889.889, 126.457, 1.03594)
pt3dadd(642.362, 889.21, 128.324, 1.18464)
pt3dadd(640.682, 888.734, 131.014, 1.24391)
pt3dadd(638.86, 888.357, 133.197, 1.35512)
pt3dadd(636.96, 888.026, 135.024, 1.28213)
pt3dadd(635.101, 888.042, 137.216, 1.24025)
pt3dadd(633.225, 888.175, 139.305, 1.10285)
pt3dadd(631.441, 888.858, 141.239, 1.33359)
pt3dadd(629.831, 889.636, 143.751, 1.28641)
pt3dadd(627.968, 889.943, 145.799, 0.97521)
pt3dadd(626.018, 890.162, 147.405, 1.33652)
pt3dadd(624.242, 890.497, 149.841, 1.2971)
pt3dadd(622.288, 890.311, 151.417, 1.18034)
pt3dadd(620.338, 889.876, 152.725, 1.42655)
pt3dadd(618.45, 889.284, 154.213, 1.26008)
pt3dadd(616.566, 888.692, 155.702, 1.26008)
pt3dadd(614.682, 888.096, 157.19, 1.26008)
pt3dadd(612.794, 887.504, 158.679, 1.26008)
pt3dadd(610.923, 886.813, 160.013, 1.02721)
pt3dadd(609.006, 886.171, 161.068, 1.37166)
pt3dadd(607.106, 885.757, 162.797, 1.47559)
pt3dadd(605.21, 885.343, 164.526, 1.2581)
pt3dadd(603.281, 884.933, 166.051, 1.55492)
pt3dadd(601.463, 884.242, 167.751, 1.55021)
pt3dadd(599.745, 883.319, 169.426, 1.52309)
pt3dadd(598.081, 882.503, 171.659, 1.65507)
pt3dadd(596.239, 881.919, 173.438, 1.46207)
pt3dadd(594.38, 882.246, 175.497, 1.46207)
pt3dadd(592.521, 882.573, 177.557, 1.43562)
pt3dadd(590.658, 882.031, 179.296, 1.05823)
pt3dadd(588.803, 881.646, 181.32, 1.4034)
pt3dadd(587.185, 881.187, 184.223, 1.63818)
}
}
proc shape3d_5() {
dend[32] { pt3dadd(585.971, 880.433, 187.85, 1.27747)
pt3dadd(584.75, 879.754, 191.54, 1.23988)
pt3dadd(583.131, 879.125, 194.247, 1.217)
pt3dadd(581.471, 878.483, 196.811, 1.18581)
pt3dadd(579.679, 877.788, 198.659, 0.876646)
pt3dadd(577.94, 877.08, 200.755, 1.08921)
pt3dadd(576.263, 876.289, 202.991, 1.61973)
pt3dadd(574.707, 875.159, 204.821, 1.37386)
pt3dadd(573.618, 873.689, 207.162, 1.26017)
pt3dadd(572.827, 872.037, 209.503, 1.37662)
pt3dadd(572.347, 870.327, 212.065, 1.36616)
pt3dadd(571.726, 868.812, 215.128, 1.45888)
pt3dadd(570.326, 865.823, 219.303, 1.45888)
}
dend[33] {pt3dclear()
pt3dadd(658.984, 900.487, 99.4271, 1.7494)
pt3dadd(657.771, 902.16, 99.6746, 1.21229)
pt3dadd(656.422, 903.721, 100.079, 1.61831)
pt3dadd(655.072, 905.286, 100.364, 1.47056)
pt3dadd(653.698, 906.83, 100.661, 1.46443)
pt3dadd(652.211, 908.266, 100.833, 1.45068)
pt3dadd(650.8, 909.777, 101.144, 1.45068)
pt3dadd(649.388, 911.284, 101.455, 1.23894)
pt3dadd(647.976, 912.791, 101.881, 1.70325)
pt3dadd(646.771, 914.472, 102.082, 1.51332)
}
dend[34] {pt3dclear()
pt3dadd(646.771, 914.472, 102.082, 1.51332)
pt3dadd(646.134, 916.695, 102.366, 1.38206)
pt3dadd(646.237, 918.761, 102.405, 1.38206)
pt3dadd(646.378, 920.827, 102.455, 1.21053)
pt3dadd(646.515, 922.893, 102.505, 1.39168)
pt3dadd(646.974, 924.909, 102.7, 1.11897)
pt3dadd(647.43, 926.929, 102.754, 1.11897)
pt3dadd(647.885, 928.95, 102.809, 1.14409)
pt3dadd(648.084, 931.007, 102.915, 1.14409)
pt3dadd(648.283, 933.069, 103.021, 1.14409)
pt3dadd(648.481, 935.127, 103.127, 1.14409)
pt3dadd(648.68, 937.188, 103.233, 1.04058)
pt3dadd(649.148, 939.205, 103.1, 1.10727)
pt3dadd(649.169, 941.27, 103.283, 1.12018)
pt3dadd(649.396, 943.328, 103.291, 1.13665)
pt3dadd(649.823, 945.352, 103.42, 1.14847)
pt3dadd(650.568, 947.286, 103.549, 0.89255)
pt3dadd(651.139, 949.273, 103.776, 0.89255)
pt3dadd(651.711, 951.26, 104.002, 1.27895)
pt3dadd(652.278, 953.252, 103.918, 1.56482)
pt3dadd(652.944, 955.21, 103.947, 1.18731)
pt3dadd(653.76, 957.11, 104.049, 1.25416)
pt3dadd(654.29, 959.11, 103.962, 1.25416)
pt3dadd(654.82, 961.113, 103.876, 1.61687)
pt3dadd(655.138, 963.159, 103.82, 1.61687)
pt3dadd(655.387, 965.195, 103.147, 1.63737)
pt3dadd(655.511, 967.257, 103.419, 1.11442)
pt3dadd(655.354, 969.319, 103.181, 1.56651)
pt3dadd(655.528, 971.381, 103.24, 1.56651)
pt3dadd(655.701, 973.442, 103.298, 1.36625)
pt3dadd(655.639, 975.512, 103.393, 1.3335)
pt3dadd(655.561, 977.578, 103.65, 1.0117)
pt3dadd(655.287, 979.628, 103.864, 1.36034)
pt3dadd(655.151, 981.689, 104.223, 1.36034)
pt3dadd(655.014, 983.747, 104.582, 1.36034)
pt3dadd(654.878, 985.809, 104.941, 1.43001)
pt3dadd(654.774, 987.874, 105.122, 1.44778)
pt3dadd(654.733, 989.928, 104.524, 1.50374)
pt3dadd(654.902, 991.994, 104.39, 1.55531)
pt3dadd(654.737, 994.047, 104.806, 1.53938)
pt3dadd(654.708, 996.117, 104.685, 1.53972)
pt3dadd(654.613, 998.175, 105.181, 1.65528)
pt3dadd(654.43, 1000.23, 104.786, 1.759)
pt3dadd(654.166, 1002.28, 104.433, 1.759)
pt3dadd(653.901, 1004.33, 104.08, 1.22619)
pt3dadd(653.901, 1006.38, 103.487, 1.22619)
pt3dadd(653.905, 1008.44, 102.893, 1.22619)
pt3dadd(653.909, 1010.49, 102.299, 1.52407)
pt3dadd(653.739, 1012.54, 101.716, 1.52407)
pt3dadd(653.569, 1014.59, 101.133, 1.59668)
pt3dadd(653.607, 1016.63, 100.296, 1.58654)
pt3dadd(653.681, 1018.66, 99.3037, 1.7051)
pt3dadd(654.124, 1020.64, 98.3206, 1.78655)
pt3dadd(654.402, 1022.69, 98.1661, 1.64264)
pt3dadd(654.306, 1024.75, 98.0419, 1.64264)
pt3dadd(654.207, 1026.82, 97.9176, 1.64264)
pt3dadd(653.859, 1028.86, 97.9477, 1.62849)
pt3dadd(653.594, 1030.91, 98.3432, 1.15327)
pt3dadd(653.648, 1032.98, 98.3182, 1.15327)
pt3dadd(653.706, 1035.05, 98.2932, 1.15327)
pt3dadd(653.76, 1037.12, 98.2682, 1.51772)
pt3dadd(653.694, 1039.17, 97.6873, 1.4609)
pt3dadd(653.727, 1041.24, 97.9439, 1.14733)
pt3dadd(654.016, 1043.28, 98.3801, 1.14733)
pt3dadd(654.302, 1045.32, 98.8162, 1.28358)
pt3dadd(654.253, 1047.39, 99.0901, 1.23812)
pt3dadd(654.203, 1049.45, 99.364, 1.23812)
pt3dadd(654.149, 1051.52, 99.6379, 1.31185)
pt3dadd(654, 1053.58, 99.884, 1.31233)
pt3dadd(653.851, 1055.6, 100.961, 0.926152)
pt3dadd(653.71, 1057.65, 101.538, 0.926152)
pt3dadd(653.565, 1059.7, 102.115, 1.10793)
pt3dadd(654.141, 1061.63, 103.25, 1.12788)
pt3dadd(655.126, 1063.43, 104.021, 1.14112)
pt3dadd(656.314, 1065.07, 104.964, 1.21181)
pt3dadd(657.391, 1066.84, 105.312, 1.30272)
pt3dadd(658.223, 1068.68, 106.346, 1.40012)
pt3dadd(659.382, 1070.33, 107.461, 1.0666)
pt3dadd(660.508, 1072.06, 108.014, 1.39742)
pt3dadd(661.709, 1073.7, 108.916, 1.28741)
pt3dadd(663.087, 1075.24, 109.17, 1.40738)
pt3dadd(664.18, 1076.99, 109.651, 1.10122)
pt3dadd(664.872, 1078.9, 110.539, 1.44105)
pt3dadd(664.255, 1080.61, 112.944, 1.44105)
}
dend[35] {pt3dclear()
pt3dadd(646.771, 914.472, 102.082, 1.51332)
pt3dadd(645.36, 915.979, 102.379, 1.69913)
pt3dadd(643.542, 916.931, 103.037, 1.12535)
}
dend[36] {pt3dclear()
pt3dadd(643.542, 916.931, 103.037, 1.12535)
pt3dadd(642.375, 918.968, 103.061, 1.18382)
pt3dadd(641.663, 920.914, 102.984, 1.18382)
pt3dadd(640.599, 922.686, 103.134, 1.12279)
pt3dadd(639.713, 924.553, 102.766, 1.52724)
pt3dadd(638.988, 926.486, 103.045, 1.38493)
pt3dadd(638.574, 928.515, 103.003, 1.17164)
pt3dadd(639.444, 930.395, 102.887, 1.11281)
pt3dadd(640.048, 932.374, 102.816, 1.11281)
pt3dadd(640.657, 934.352, 102.745, 1.33952)
pt3dadd(640.007, 936.311, 103.137, 1.31871)
pt3dadd(638.715, 937.925, 103.407, 1.44513)
pt3dadd(637.295, 939.428, 103.323, 1.43475)
pt3dadd(636.074, 941.059, 102.421, 1.22027)
pt3dadd(634.865, 942.719, 101.79, 1.22027)
pt3dadd(633.66, 944.38, 101.159, 1.3694)
pt3dadd(632.555, 946.11, 100.494, 1.37927)
pt3dadd(631.735, 947.969, 99.5521, 1.14497)
pt3dadd(630.563, 949.646, 98.7888, 1.14497)
pt3dadd(629.388, 951.322, 98.0255, 1.14497)
pt3dadd(628.216, 952.999, 97.2621, 1.14497)
pt3dadd(627.04, 954.672, 96.4988, 1.46763)
pt3dadd(626.15, 956.514, 95.7355, 1.12992)
pt3dadd(625.111, 958.282, 95.0023, 1.20342)
pt3dadd(623.823, 959.9, 94.9057, 1.20342)
pt3dadd(622.536, 961.519, 94.8091, 1.23591)
pt3dadd(621.253, 963.138, 94.5298, 1.24596)
pt3dadd(619.982, 964.732, 93.6172, 1.36207)
pt3dadd(618.81, 966.437, 93.4984, 1.48945)
pt3dadd(617.659, 968.11, 92.5233, 1.48945)
pt3dadd(616.508, 969.783, 91.5482, 1.55021)
pt3dadd(615.597, 971.633, 91.2204, 1.08742)
pt3dadd(614.711, 973.451, 90.121, 1.37352)
pt3dadd(613.602, 975.156, 89.2383, 1.36751)
pt3dadd(612.426, 976.821, 88.3577, 1.86591)
pt3dadd(611.503, 978.642, 87.529, 1.15937)
pt3dadd(610.642, 980.41, 85.9606, 1.29069)
pt3dadd(610.029, 982.331, 84.8227, 1.29069)
pt3dadd(609.412, 984.248, 83.6849, 1.53837)
pt3dadd(608.63, 986.136, 82.8583, 1.49746)
pt3dadd(607.839, 988.044, 82.649, 1.5018)
pt3dadd(607.185, 989.977, 81.7964, 0.96679)
pt3dadd(606.593, 991.952, 81.3315, 0.96679)
pt3dadd(606.005, 993.927, 80.8667, 1.39433)
pt3dadd(605.516, 995.927, 80.3116, 0.974714)
pt3dadd(604.825, 997.856, 79.6628, 1.26264)
pt3dadd(604.03, 999.76, 79.2591, 1.26211)
pt3dadd(603.413, 1001.74, 79.3034, 1.35366)
pt3dadd(602.56, 1003.59, 78.4631, 1.38488)
pt3dadd(601.844, 1005.5, 77.6528, 1.33686)
pt3dadd(601.145, 1007.44, 77.0033, 1.36661)
pt3dadd(600.147, 1009.25, 76.9712, 1.06802)
pt3dadd(598.681, 1010.69, 76.3823, 1.27739)
pt3dadd(597.029, 1011.91, 75.7403, 1.11997)
pt3dadd(595.51, 1013.29, 75.2248, 1.18818)
pt3dadd(594.285, 1014.95, 74.7093, 1.47113)
pt3dadd(592.947, 1016.52, 74.2577, 1.26447)
pt3dadd(591.291, 1017.76, 74.0105, 1.26447)
pt3dadd(589.64, 1019, 73.7632, 1.27503)
pt3dadd(588.149, 1020.44, 73.6679, 1.27503)
pt3dadd(586.659, 1021.88, 73.5726, 1.09485)
pt3dadd(585.197, 1023.34, 73.7083, 1.13804)
pt3dadd(583.798, 1024.87, 73.8441, 1.06142)
pt3dadd(582.515, 1026.48, 74.2309, 1.32321)
pt3dadd(581.202, 1028.07, 73.9247, 0.85337)
pt3dadd(579.712, 1029.49, 73.3914, 0.953276)
pt3dadd(578.221, 1030.88, 72.5142, 0.953276)
pt3dadd(576.735, 1032.28, 71.6371, 1.17949)
pt3dadd(575.013, 1033.39, 70.9114, 1.33037)
pt3dadd(573.489, 1034.75, 70.1794, 1.41976)
pt3dadd(572.243, 1036.38, 69.5125, 1.15128)
pt3dadd(571.026, 1038.03, 68.8456, 1.05678)
pt3dadd(569.681, 1039.53, 67.6683, 1.15378)
pt3dadd(568.596, 1041.26, 66.7861, 1.27931)
pt3dadd(567.615, 1042.95, 65.1931, 1.30486)
pt3dadd(566.584, 1044.73, 64.5623, 1.28168)
pt3dadd(565.499, 1046.47, 63.8743, 1.34974)
pt3dadd(564.501, 1048.26, 63.1982, 1.1089)
pt3dadd(563.537, 1049.98, 61.6754, 1.1869)
pt3dadd(562.361, 1051.47, 59.6599, 1.1869)
pt3dadd(561.189, 1052.96, 57.6444, 1.09278)
pt3dadd(560.055, 1055.03, 55.7851, 1.09278)
}
dend[37] {pt3dclear()
pt3dadd(643.542, 916.931, 103.037, 1.12535)
pt3dadd(641.563, 917.536, 102.867, 1.49095)
pt3dadd(639.547, 917.999, 103.009, 1.49095)
pt3dadd(637.531, 918.463, 103.151, 1.52156)
pt3dadd(635.639, 919.266, 103.778, 1.66589)
pt3dadd(633.842, 920.247, 104.52, 1.07185)
pt3dadd(632.079, 921.328, 104.679, 1.49408)
pt3dadd(630.505, 922.657, 105.171, 1.48943)
}
}
proc shape3d_6() {
dend[37] { pt3dadd(628.986, 924.048, 105.704, 1.48441)
pt3dadd(627.33, 925.278, 106.026, 1.4471)
pt3dadd(625.666, 926.511, 106.178, 1.28234)
pt3dadd(624.076, 927.832, 106.246, 1.28082)
pt3dadd(622.511, 929.173, 105.681, 0.924504)
pt3dadd(621.095, 930.68, 105.758, 1.02888)
pt3dadd(619.431, 931.91, 105.972, 1.21728)
pt3dadd(617.858, 933.243, 106.311, 1.21728)
pt3dadd(616.28, 934.58, 106.651, 1.32507)
pt3dadd(614.827, 936.029, 107.285, 1.36859)
pt3dadd(613.279, 937.399, 106.987, 0.987672)
pt3dadd(611.619, 938.629, 106.748, 1.33479)
pt3dadd(609.992, 939.896, 107.222, 1.33479)
pt3dadd(608.365, 941.159, 107.697, 1.36356)
pt3dadd(606.895, 942.616, 107.656, 1.41661)
pt3dadd(605.227, 943.825, 108.206, 1.41846)
pt3dadd(603.422, 944.827, 108.544, 1.51241)
pt3dadd(601.695, 945.957, 108.97, 1.51241)
pt3dadd(599.973, 947.087, 109.397, 1.52297)
pt3dadd(598.077, 947.919, 109.266, 1.06445)
pt3dadd(596.102, 948.544, 109.279, 1.06445)
pt3dadd(594.131, 949.169, 109.291, 1.06445)
pt3dadd(592.157, 949.795, 109.304, 0.947662)
pt3dadd(590.314, 950.734, 109.54, 0.947662)
pt3dadd(588.476, 951.674, 109.775, 1.27421)
pt3dadd(586.526, 952.349, 110.259, 1.05282)
pt3dadd(584.738, 953.376, 110.609, 1.05282)
pt3dadd(582.945, 954.407, 110.96, 1.05282)
pt3dadd(581.157, 955.433, 111.31, 1.15205)
pt3dadd(579.211, 956.125, 111.661, 1.15205)
pt3dadd(577.265, 956.816, 112.011, 1.24905)
pt3dadd(575.236, 957.218, 111.818, 1.26633)
pt3dadd(573.324, 958.008, 111.753, 1.24989)
pt3dadd(571.432, 958.849, 111.585, 1.24989)
pt3dadd(569.54, 959.685, 111.417, 1.0657)
pt3dadd(567.851, 960.873, 111.737, 1.0657)
pt3dadd(566.162, 962.061, 112.058, 1.12314)
pt3dadd(564.361, 962.997, 113.075, 1.1494)
pt3dadd(562.622, 964.04, 114.035, 1.22868)
pt3dadd(560.941, 965.245, 114.287, 1.36184)
pt3dadd(559.281, 966.479, 114.151, 1.36184)
pt3dadd(557.617, 967.717, 114.015, 1.39505)
pt3dadd(555.973, 968.921, 114.86, 1.43577)
pt3dadd(554.222, 970.023, 114.8, 1.02958)
pt3dadd(552.491, 971.153, 115.062, 1.02958)
pt3dadd(550.761, 972.283, 115.324, 1.4288)
pt3dadd(548.889, 973.169, 115.489, 1.36138)
pt3dadd(547.002, 974.001, 115.864, 1.3502)
pt3dadd(545.168, 974.871, 116.857, 1.46459)
pt3dadd(543.205, 975.521, 117.192, 1.49031)
pt3dadd(541.33, 976.373, 117.651, 1.5835)
pt3dadd(539.632, 977.475, 118.704, 1.18273)
pt3dadd(537.774, 978.369, 119.116, 1.13929)
pt3dadd(536.014, 979.437, 119.646, 1.13929)
pt3dadd(534.255, 980.509, 120.176, 1.13929)
pt3dadd(532.495, 981.577, 120.706, 1.42298)
pt3dadd(530.591, 982.376, 120.943, 1.08427)
pt3dadd(528.74, 983.304, 121.081, 1.3942)
pt3dadd(526.993, 984.405, 121.392, 1.49837)
pt3dadd(525.072, 985.171, 121.54, 1.0949)
pt3dadd(523.151, 985.937, 121.891, 1.36212)
pt3dadd(521.272, 986.794, 122.06, 0.894712)
pt3dadd(519.421, 987.725, 122.042, 0.894712)
pt3dadd(517.575, 988.657, 122.024, 1.29242)
pt3dadd(515.84, 989.787, 122.163, 1.29242)
pt3dadd(514.105, 990.917, 122.302, 1.53111)
pt3dadd(512.317, 991.952, 122.004, 1.12967)
pt3dadd(510.599, 993.103, 122.044, 1.12967)
pt3dadd(508.881, 994.258, 122.083, 1.19244)
pt3dadd(507.179, 995.434, 122.291, 1.21131)
pt3dadd(505.411, 996.448, 123.173, 1.2949)
pt3dadd(503.602, 997.454, 123.137, 1.2949)
pt3dadd(501.793, 998.46, 123.101, 1.2949)
pt3dadd(499.984, 999.462, 123.065, 1.43015)
pt3dadd(498.295, 1000.63, 123.726, 0.86011)
pt3dadd(496.643, 1001.88, 123.732, 1.19895)
pt3dadd(495.074, 1003.23, 124.038, 1.30926)
pt3dadd(493.741, 1004.77, 124.805, 1.59707)
pt3dadd(492.436, 1006.37, 125.349, 1.2255)
pt3dadd(491.066, 1007.92, 125.148, 1.2255)
pt3dadd(489.696, 1009.46, 124.947, 1.62606)
pt3dadd(487.998, 1010.64, 125.186, 1.6504)
pt3dadd(486.214, 1011.69, 124.913, 1.21096)
pt3dadd(484.753, 1013.15, 124.938, 1.21096)
pt3dadd(483.287, 1014.61, 124.962, 1.80168)
pt3dadd(481.569, 1015.74, 125.631, 1.39929)
pt3dadd(479.565, 1016.17, 126.301, 1.39929)
pt3dadd(477.561, 1016.6, 126.971, 1.39595)
pt3dadd(476.986, 1016.88, 127.9, 1.39595)
}
dend[38] {pt3dclear()
pt3dstyle(1, 671.587, 879.829, 88.0109)
pt3dadd(664.511, 884.287, 103.022, 1.83631)
pt3dadd(662.164, 885.898, 106.004, 1.73885)
pt3dadd(660.603, 886.834, 108.386, 1.83609)
pt3dadd(658.993, 887.765, 110.575, 1.52032)
}
dend[39] {pt3dclear()
pt3dadd(658.993, 887.765, 110.575, 1.52032)
pt3dadd(658.372, 889.504, 113.869, 1.48378)
pt3dadd(658.575, 891.027, 117.22, 1.76392)
pt3dadd(659.312, 892.551, 120.11, 1.29845)
pt3dadd(660.574, 893.59, 123.168, 1.34797)
pt3dadd(662.023, 894.741, 125.403, 1.36494)
pt3dadd(663.63, 895.573, 127.84, 1.5655)
pt3dadd(665.352, 896.281, 130.03, 1.58037)
}
dend[40] {pt3dclear()
pt3dadd(665.352, 896.281, 130.03, 1.58037)
pt3dadd(666.014, 895.664, 131.702, 1.86293)
pt3dadd(667.409, 894.82, 134.786, 1.86293)
pt3dadd(668.966, 893.896, 137.221, 1.28232)
pt3dadd(670.407, 892.87, 139.811, 1.87857)
pt3dadd(671.93, 892.112, 142.661, 1.6728)
pt3dadd(673.114, 891.595, 146.563, 1.34895)
pt3dadd(673.553, 891.123, 151.315, 1.17294)
pt3dadd(672.187, 892.017, 154.394, 1.26521)
pt3dadd(671.011, 892.725, 158.133, 1.39464)
pt3dadd(669.459, 893.077, 161.332, 1.02232)
pt3dadd(667.84, 893.553, 164.224, 1.05308)
pt3dadd(666.076, 893.979, 166.633, 1.16881)
pt3dadd(664.507, 894.397, 169.736, 1.16332)
pt3dadd(662.938, 895.072, 172.556, 1.28324)
pt3dadd(661.166, 895.648, 174.751, 1.36903)
pt3dadd(659.498, 895.979, 177.591, 1.48944)
pt3dadd(658.372, 896.753, 181.349, 1.48944)
pt3dadd(657.25, 897.531, 185.107, 1.65838)
pt3dadd(656.587, 898.517, 189.203, 1.51099)
pt3dadd(656.351, 899.597, 193.429, 1.64327)
pt3dadd(656.389, 901.112, 196.838, 1.20231)
pt3dadd(656.525, 903.046, 198.582, 1.41065)
pt3dadd(656.505, 904.979, 200.369, 1.41065)
pt3dadd(656.488, 906.913, 202.156, 1.61915)
pt3dadd(656.484, 908.937, 203.189, 1.57875)
pt3dadd(656.48, 910.862, 205.022, 1.61241)
pt3dadd(656.14, 912.787, 206.669, 1.61241)
pt3dadd(655.801, 914.712, 208.317, 1.73602)
pt3dadd(654.575, 917.42, 210.466, 2.0745)
pt3dadd(653.147, 919.97, 212.973, 1.61616)
pt3dadd(652.352, 921.717, 214.839, 1.42892)
pt3dadd(651.47, 923.51, 216.15, 1.42892)
pt3dadd(650.593, 925.307, 217.461, 1.93767)
pt3dadd(648.85, 927.989, 219.529, 1.93767)
}
dend[41] {pt3dclear()
pt3dadd(665.352, 896.281, 130.03, 1.58037)
pt3dadd(666.851, 897.556, 131.588, 1.10043)
pt3dadd(668.457, 898.67, 133.238, 1.10043)
pt3dadd(670.063, 899.779, 134.888, 1.25551)
pt3dadd(671.752, 900.616, 136.955, 1.47479)
pt3dadd(673.321, 901.659, 139.022, 1.37805)
pt3dadd(674.431, 903.178, 141.113, 1.56254)
pt3dadd(675.3, 904.843, 143.205, 1.43577)
pt3dadd(675.553, 906.668, 145.485, 1.43577)
pt3dadd(675.801, 908.494, 147.766, 1.66137)
pt3dadd(675.76, 910.336, 150.05, 1.61092)
pt3dadd(675.876, 912.117, 152.573, 1.65048)
pt3dadd(675.888, 913.677, 155.865, 1.95026)
pt3dadd(675.776, 915.536, 158.038, 1.60148)
pt3dadd(675.768, 917.503, 159.597, 1.60148)
pt3dadd(675.979, 919.419, 161.434, 1.67608)
pt3dadd(675.573, 921.365, 162.819, 1.44894)
pt3dadd(675.482, 923.352, 164.213, 1.44894)
pt3dadd(675.387, 925.336, 165.607, 1.50334)
pt3dadd(675.503, 927.377, 166.39, 1.50609)
pt3dadd(675.731, 929.339, 167.895, 1.48145)
pt3dadd(675.71, 931.376, 168.787, 1.48145)
pt3dadd(675.685, 933.413, 169.68, 1.6622)
pt3dadd(675.35, 935.429, 170.43, 1.6622)
pt3dadd(675.015, 937.449, 171.18, 1.68907)
pt3dadd(675.056, 939.511, 171.559, 1.21436)
pt3dadd(674.816, 941.548, 172.248, 1.21436)
pt3dadd(674.58, 943.585, 172.937, 1.78992)
pt3dadd(674.178, 945.551, 174.168, 1.32478)
pt3dadd(673.474, 947.485, 174.737, 1.32651)
pt3dadd(672.688, 949.393, 175.128, 1.81144)
pt3dadd(672.348, 951.364, 176.417, 1.2679)
pt3dadd(673.802, 952.424, 178.894, 1.62233)
pt3dadd(675.275, 953.67, 180.691, 1.5627)
pt3dadd(676.29, 955.268, 182.729, 1.47948)
pt3dadd(676.886, 957.081, 184.655, 1.5607)
pt3dadd(676.853, 959.946, 187.187, 2.29288)
pt3dadd(675.958, 962.711, 189.746, 2.14137)
pt3dadd(675.503, 964.603, 191.439, 1.42875)
pt3dadd(675.64, 966.599, 192.753, 2.16781)
pt3dadd(676.344, 968.425, 194.371, 1.80771)
pt3dadd(677.494, 970.068, 195.609, 1.80771)
pt3dadd(678.645, 971.708, 196.848, 1.78454)
pt3dadd(679.738, 973.446, 197.52, 2.02221)
pt3dadd(680.844, 974.92, 199.791, 2.02221)
pt3dadd(681.953, 976.394, 202.062, 1.55864)
pt3dadd(682.707, 978.112, 204.182, 1.71818)
pt3dadd(683.121, 979.955, 206.235, 1.94582)
pt3dadd(683.29, 981.834, 208.288, 1.94582)
pt3dadd(683.249, 983.664, 210.616, 1.96525)
pt3dadd(683.787, 985.494, 212.56, 1.21522)
pt3dadd(684.338, 987.212, 215.004, 1.35828)
pt3dadd(685.203, 990.006, 218.762, 1.35828)
}
dend[42] {pt3dclear()
pt3dadd(658.993, 887.765, 110.575, 1.52032)
pt3dadd(657.039, 888.345, 111.459, 1.15477)
pt3dadd(655.027, 888.709, 112.253, 1.46967)
pt3dadd(652.998, 889.102, 112.526, 1.41551)
pt3dadd(651.007, 889.636, 113.012, 1.40495)
pt3dadd(649.061, 890.336, 113.018, 1.39196)
pt3dadd(647.057, 890.808, 113.58, 1.42768)
pt3dadd(645.111, 891.495, 113.317, 1.25645)
pt3dadd(643.108, 892.021, 113.289, 0.938158)
pt3dadd(641.137, 892.617, 113.842, 0.938158)
}
}
proc shape3d_7() {
dend[42] { pt3dadd(639.166, 893.209, 114.395, 1.17216)
pt3dadd(637.175, 893.76, 114.7, 0.856358)
pt3dadd(635.167, 894.257, 114.582, 1.29229)
pt3dadd(633.122, 894.559, 114.806, 1.43888)
pt3dadd(631.077, 894.865, 115.03, 1.40939)
pt3dadd(629.027, 894.82, 115.742, 1.07325)
}
dend[43] {pt3dclear()
pt3dadd(629.027, 894.82, 115.742, 1.07325)
pt3dadd(627.003, 896.289, 114.302, 1.76102)
pt3dadd(625.049, 896.964, 114.131, 1.4425)
pt3dadd(623.165, 897.813, 113.859, 1.16864)
pt3dadd(621.12, 898.115, 113.533, 1.20062)
pt3dadd(619.075, 898.413, 113.207, 1.20062)
pt3dadd(617.175, 899.191, 112.63, 1.5868)
pt3dadd(615.572, 900.504, 112.739, 1.5222)
pt3dadd(613.974, 901.816, 112.848, 1.36653)
pt3dadd(612.608, 903.352, 113.468, 1.48578)
pt3dadd(611.018, 904.619, 114.373, 1.51699)
pt3dadd(609.429, 905.948, 114.299, 1.57938)
pt3dadd(607.922, 907.318, 115.167, 1.18382)
pt3dadd(606.787, 909.032, 115.756, 1.27499)
pt3dadd(605.504, 910.647, 116.274, 1.27499)
pt3dadd(604.225, 912.257, 116.791, 1.29763)
pt3dadd(602.859, 913.814, 116.721, 1.30459)
pt3dadd(601.331, 915.197, 117.151, 1.08092)
pt3dadd(599.919, 916.712, 117.243, 1.35034)
pt3dadd(598.913, 918.521, 117.2, 1.47747)
pt3dadd(598.342, 920.483, 117.946, 1.47747)
pt3dadd(597.775, 922.45, 118.692, 1.3446)
pt3dadd(596.827, 924.28, 119.222, 1.44285)
pt3dadd(595.572, 925.899, 119.965, 1.44285)
pt3dadd(594.318, 927.513, 120.708, 1.20865)
pt3dadd(592.745, 928.817, 121.497, 1.20865)
pt3dadd(591.167, 930.121, 122.285, 1.11041)
pt3dadd(589.855, 931.695, 122.989, 1.11041)
pt3dadd(588.538, 933.264, 123.693, 1.11041)
pt3dadd(587.226, 934.837, 124.397, 1.24642)
pt3dadd(586.149, 936.6, 124.688, 1.26451)
pt3dadd(584.874, 938.219, 125.204, 1.58179)
pt3dadd(583.893, 940.033, 125.683, 1.33055)
pt3dadd(582.705, 941.713, 126.163, 1.33055)
pt3dadd(581.513, 943.394, 126.642, 1.52701)
pt3dadd(580.233, 945.013, 127.034, 1.07977)
pt3dadd(578.83, 946.516, 127.617, 1.30634)
pt3dadd(577.427, 948.019, 128.201, 1.30634)
pt3dadd(576.023, 949.521, 128.784, 1.31083)
pt3dadd(574.446, 950.801, 129.742, 1.31083)
pt3dadd(572.864, 952.076, 130.7, 1.20726)
pt3dadd(570.968, 952.78, 131.769, 1.26414)
pt3dadd(569.258, 953.719, 133.446, 1.26414)
pt3dadd(567.553, 954.659, 135.123, 1.30348)
pt3dadd(566.104, 955.98, 136.733, 1.4082)
pt3dadd(564.841, 957.553, 137.882, 1.66371)
pt3dadd(563.388, 958.94, 139.079, 1.70791)
pt3dadd(562.216, 960.48, 140.846, 1.27678)
pt3dadd(561.202, 962.148, 142.515, 1.57921)
pt3dadd(559.935, 963.734, 143.481, 1.09346)
pt3dadd(558.461, 965.129, 144.452, 1.18672)
pt3dadd(557.248, 966.702, 145.868, 1.18672)
pt3dadd(556.035, 968.271, 147.283, 1.43826)
pt3dadd(554.656, 969.692, 148.767, 1.41403)
pt3dadd(553.224, 971.066, 150.183, 1.44442)
pt3dadd(551.837, 972.486, 151.598, 0.981014)
pt3dadd(550.653, 974.055, 153.173, 1.11522)
pt3dadd(549.063, 975.227, 154.667, 1.32509)
pt3dadd(547.188, 975.997, 155.681, 1.4793)
pt3dadd(545.486, 977.081, 156.806, 1.10775)
pt3dadd(544.083, 978.555, 157.683, 1.17916)
pt3dadd(542.419, 979.735, 158.56, 1.53844)
pt3dadd(540.589, 980.634, 159.423, 1.25793)
pt3dadd(538.875, 981.747, 160.203, 1.42554)
pt3dadd(537.049, 982.617, 161.295, 1.54179)
pt3dadd(535.116, 983.138, 162.558, 1.24859)
pt3dadd(533.236, 983.751, 164.041, 1.5607)
pt3dadd(531.518, 984.749, 165.439, 1.48593)
pt3dadd(529.891, 985.879, 166.896, 1.15039)
pt3dadd(528.512, 987.233, 168.667, 1.27365)
pt3dadd(526.898, 988.375, 170.143, 1.30659)
pt3dadd(525.316, 989.592, 171.465, 1.18015)
pt3dadd(523.756, 990.917, 172.221, 1.72019)
pt3dadd(522.48, 992.515, 173.054, 1.86351)
pt3dadd(520.99, 993.865, 174.238, 1.71682)
pt3dadd(519.334, 995.053, 175.095, 1.56334)
pt3dadd(517.454, 995.844, 175.969, 1.79511)
pt3dadd(515.579, 996.668, 176.653, 1.751)
pt3dadd(513.865, 997.823, 176.977, 1.87467)
pt3dadd(512.346, 999.177, 177.863, 1.14493)
pt3dadd(510.698, 1000.4, 178.525, 1.65647)
pt3dadd(509.145, 1001.74, 179.186, 1.34999)
pt3dadd(508.024, 1003.45, 179.941, 1.60654)
pt3dadd(506.786, 1005.1, 180.505, 2.47459)
pt3dadd(505.867, 1006.93, 181.254, 1.8185)
pt3dadd(505.246, 1008.86, 182.184, 1.99059)
pt3dadd(504.31, 1010.67, 183.078, 1.85836)
}
dend[44] {pt3dclear()
pt3dadd(629.027, 894.82, 115.742, 1.07325)
pt3dadd(627.04, 894.687, 117.1, 1.07325)
pt3dadd(625.053, 894.555, 118.458, 1.07325)
pt3dadd(623.066, 894.422, 119.817, 1.07325)
pt3dadd(621.079, 894.29, 121.175, 0.956108)
pt3dadd(619.112, 894.045, 122.618, 1.33239)
pt3dadd(617.299, 893.366, 124.408, 1.33869)
pt3dadd(615.481, 892.957, 126.571, 1.41759)
pt3dadd(613.548, 892.447, 127.862, 1.53684)
pt3dadd(611.789, 891.636, 129.622, 1.27512)
pt3dadd(610.19, 890.572, 131.495, 1.27512)
pt3dadd(608.592, 889.508, 133.368, 1.34795)
pt3dadd(606.887, 888.585, 135.127, 1.44466)
pt3dadd(605.044, 887.769, 136.268, 1.67365)
pt3dadd(603.244, 886.9, 137.55, 1.67365)
}
dend[45] {pt3dclear()
pt3dadd(603.244, 886.9, 137.55, 1.67365)
pt3dadd(601.364, 887.533, 138.064, 1.39984)
pt3dadd(599.414, 888.076, 139.105, 1.39984)
pt3dadd(597.402, 888.37, 140.017, 1.38343)
pt3dadd(595.435, 889.028, 140.05, 1.44537)
pt3dadd(593.676, 890.067, 140.832, 1.4758)
pt3dadd(592.09, 891.21, 142.468, 1.5171)
pt3dadd(590.422, 892.402, 143.147, 1.10093)
pt3dadd(588.72, 893.553, 143.797, 1.10093)
pt3dadd(587.019, 894.7, 144.447, 1.23913)
pt3dadd(585.537, 896.111, 145.16, 1.30513)
pt3dadd(583.806, 897.229, 145.64, 1.31023)
pt3dadd(582.183, 898.446, 146.65, 1.30887)
pt3dadd(580.403, 899.49, 147.1, 1.41152)
pt3dadd(578.652, 900.442, 148.433, 1.43108)
pt3dadd(576.822, 901.266, 149.66, 1.28639)
pt3dadd(575.154, 902.429, 150.591, 1.34377)
pt3dadd(573.303, 903.245, 151.668, 1.1157)
pt3dadd(571.324, 903.832, 152.001, 1.1157)
pt3dadd(569.345, 904.42, 152.333, 1.44993)
pt3dadd(567.474, 905.281, 152.831, 0.92519)
pt3dadd(565.615, 906.114, 153.727, 1.16948)
pt3dadd(563.748, 906.958, 154.442, 1.16948)
pt3dadd(561.881, 907.799, 155.158, 1.5351)
pt3dadd(560.022, 908.585, 156.266, 1.6251)
pt3dadd(558.159, 909.363, 157.374, 1.21859)
pt3dadd(556.449, 910.469, 158.291, 1.50462)
pt3dadd(554.594, 911.297, 159.217, 1.24746)
pt3dadd(552.574, 911.508, 160.19, 1.24229)
pt3dadd(550.595, 912.083, 160.719, 1.34002)
pt3dadd(548.658, 912.775, 161.253, 1.56606)
pt3dadd(546.923, 913.888, 160.801, 1.59565)
pt3dadd(545.437, 915.321, 160.47, 1.25965)
pt3dadd(543.739, 916.488, 159.999, 1.36476)
pt3dadd(541.856, 917.329, 159.559, 1.36476)
pt3dadd(540.084, 918.401, 159.603, 1.33944)
pt3dadd(538.233, 919.324, 159.345, 1.34384)
pt3dadd(536.606, 920.587, 158.936, 1.36975)
pt3dadd(534.813, 921.622, 158.686, 0.937618)
pt3dadd(532.888, 922.38, 158.845, 1.30281)
pt3dadd(531.054, 923.319, 159.266, 1.30281)
pt3dadd(529.22, 924.263, 159.686, 1.49264)
pt3dadd(527.568, 925.501, 160.121, 1.02007)
pt3dadd(525.896, 926.718, 160.033, 1.02007)
pt3dadd(524.223, 927.935, 159.944, 1.49745)
pt3dadd(522.402, 928.925, 159.967, 1.11171)
pt3dadd(520.415, 929.496, 159.989, 1.11171)
pt3dadd(518.423, 930.063, 160.012, 1.13968)
pt3dadd(516.428, 930.589, 159.61, 1.26881)
pt3dadd(514.387, 930.784, 158.921, 1.10602)
pt3dadd(512.35, 931.032, 158.253, 1.06722)
pt3dadd(510.309, 931.367, 158.03, 1.40048)
pt3dadd(508.272, 931.728, 158.131, 1.42984)
pt3dadd(506.281, 932.167, 159.005, 1.42984)
pt3dadd(504.293, 932.609, 159.88, 1.09374)
pt3dadd(502.281, 933.007, 160.586, 1.39768)
pt3dadd(500.244, 933.355, 160.821, 1.40435)
pt3dadd(498.179, 933.495, 160.845, 1.70671)
pt3dadd(496.121, 933.255, 160.759, 1.43246)
pt3dadd(494.175, 932.775, 159.533, 1.36916)
pt3dadd(493.413, 930.891, 158.555, 1.52413)
pt3dadd(492.975, 928.908, 157.585, 1.22672)
pt3dadd(493.645, 926.963, 157.114, 1.36915)
pt3dadd(493.981, 924.934, 156.473, 1.32564)
pt3dadd(493.206, 923.092, 155.168, 1.46318)
pt3dadd(492.126, 921.398, 153.961, 1.17651)
pt3dadd(490.756, 919.395, 152.712, 1.17651)
}
dend[46] {pt3dclear()
pt3dadd(603.244, 886.9, 137.55, 1.67365)
pt3dadd(601.443, 886.03, 138.832, 1.68943)
pt3dadd(599.513, 885.538, 140.227, 1.69677)
pt3dadd(597.493, 885.401, 141.25, 1.23473)
pt3dadd(595.543, 885.182, 142.835, 1.39551)
pt3dadd(593.585, 885.091, 144.429, 1.46188)
pt3dadd(591.585, 884.71, 145.384, 1.10208)
pt3dadd(589.668, 884.114, 146.612, 1.33505)
pt3dadd(587.826, 883.323, 147.852, 1.47624)
pt3dadd(585.839, 883.074, 149.089, 1.46137)
pt3dadd(583.781, 882.905, 149.5, 1.07893)
pt3dadd(581.84, 882.284, 150.381, 1.07893)
pt3dadd(579.902, 881.659, 151.263, 1.30552)
pt3dadd(577.919, 881.145, 152.007, 1.31913)
pt3dadd(575.891, 880.888, 152.751, 1.17251)
pt3dadd(573.916, 880.45, 153.809, 1.26568)
pt3dadd(571.916, 880.048, 154.7, 1.26568)
pt3dadd(569.921, 879.651, 155.59, 1.34665)
pt3dadd(568.049, 879.1, 157.275, 1.43934)
pt3dadd(566.766, 877.548, 158.449, 1.28044)
pt3dadd(565.238, 876.277, 159.832, 1.36724)
pt3dadd(563.508, 875.316, 161.311, 1.30887)
pt3dadd(561.914, 874.306, 163.345, 1.32722)
pt3dadd(560.345, 873.155, 165.082, 1.32023)
pt3dadd(558.726, 871.954, 166.207, 1.34067)
}
}
proc shape3d_8() {
dend[46] { pt3dadd(557.256, 870.725, 168.093, 1.32739)
pt3dadd(555.696, 869.636, 170.072, 1.58634)
pt3dadd(554.11, 868.377, 171.094, 1.06572)
pt3dadd(552.533, 867.156, 172.417, 1.26373)
pt3dadd(550.922, 865.972, 173.723, 1.35026)
pt3dadd(549.353, 864.767, 175.177, 1.47764)
pt3dadd(547.999, 863.289, 176.462, 1.24667)
pt3dadd(546.517, 861.919, 177.584, 1.04413)
pt3dadd(544.551, 861.315, 178.105, 1.04113)
pt3dadd(542.572, 860.818, 178.93, 1.10267)
pt3dadd(540.581, 860.524, 180.104, 1.44814)
pt3dadd(538.626, 859.89, 180.752, 1.11338)
pt3dadd(536.797, 859.013, 181.684, 1.11338)
pt3dadd(534.963, 858.135, 182.617, 1.08834)
pt3dadd(533.439, 856.856, 184.018, 1.08834)
pt3dadd(531.915, 855.581, 185.419, 1.48559)
pt3dadd(530.367, 854.26, 186.319, 1.6463)
pt3dadd(528.537, 853.395, 187.356, 1.5196)
pt3dadd(526.711, 852.6, 188.757, 1.32155)
pt3dadd(525.664, 850.869, 189.803, 0.988516)
pt3dadd(524.492, 849.263, 191.186, 1.27548)
pt3dadd(523.01, 847.988, 192.85, 1.27854)
pt3dadd(521.594, 846.729, 194.846, 1.06319)
pt3dadd(519.955, 845.81, 196.955, 1.06319)
pt3dadd(518.32, 844.891, 199.064, 1.31322)
pt3dadd(516.519, 844.059, 200.48, 1.4301)
pt3dadd(514.888, 843.157, 202.655, 1.76188)
pt3dadd(513.372, 841.972, 204.519, 1.85075)
pt3dadd(511.762, 840.735, 205.49, 1.165)
pt3dadd(509.911, 839.89, 206.418, 1.50212)
pt3dadd(508.032, 839.046, 206.921, 1.75903)
pt3dadd(506.252, 838.019, 207.411, 1.8035)
pt3dadd(504.525, 836.893, 207.948, 1.8035)
pt3dadd(502.803, 835.767, 208.486, 1.65538)
pt3dadd(500.853, 835.183, 209.393, 1.80954)
pt3dadd(498.974, 834.334, 209.783, 1.99932)
pt3dadd(496.99, 833.742, 209.818, 1.50944)
pt3dadd(494.933, 833.523, 210.03, 1.56871)
pt3dadd(492.958, 833.03, 210.935, 1.74995)
pt3dadd(491.029, 832.301, 211.412, 1.78629)
pt3dadd(488.45, 830.981, 211.287, 1.78629)
}
dend[47] {pt3dclear()
pt3dstyle(1, 671.587, 879.829, 88.0109)
pt3dadd(679.838, 884.9, 91.8844, 3.11289)
pt3dadd(681.262, 886.299, 93.1857, 2.01888)
pt3dadd(682.595, 887.811, 94.3422, 2.01888)
pt3dadd(683.928, 889.322, 95.4986, 2.02766)
pt3dadd(684.946, 890.998, 97.0871, 1.69962)
}
dend[48] {pt3dclear()
pt3dadd(684.946, 890.998, 97.0871, 1.69962)
pt3dadd(684.528, 892.112, 98.9706, 1.30887)
pt3dadd(684.015, 894.704, 102.828, 1.2943)
pt3dadd(683.394, 896.492, 104.855, 1.2943)
pt3dadd(682.578, 898.272, 106.479, 1.30765)
pt3dadd(681.87, 899.912, 109.002, 1.422)
pt3dadd(680.956, 901.489, 111.367, 1.422)
pt3dadd(680.045, 903.071, 113.732, 1.14777)
pt3dadd(679.092, 904.627, 116.097, 1.48579)
pt3dadd(677.913, 906.039, 118.387, 1.47709)
pt3dadd(676.687, 907.173, 121.338, 1.29878)
pt3dadd(675.35, 908.341, 123.903, 1.45384)
pt3dadd(674.096, 909.463, 126.817, 1.20765)
pt3dadd(672.82, 910.49, 129.873, 1.22939)
pt3dadd(671.392, 911.678, 132.092, 1.24017)
pt3dadd(669.728, 912.593, 134.067, 1.62776)
pt3dadd(667.885, 913.28, 135.636, 1.77415)
pt3dadd(666.428, 914.601, 137.205, 1.32555)
pt3dadd(664.644, 915.325, 139.021, 1.32555)
pt3dadd(662.855, 916.054, 140.836, 1.3928)
pt3dadd(661.286, 916.927, 143.326, 1.27432)
pt3dadd(659.49, 917.697, 144.954, 1.27432)
pt3dadd(657.689, 918.467, 146.582, 1.40538)
pt3dadd(656.02, 919.544, 147.972, 1.24228)
pt3dadd(654.215, 920.355, 149.454, 1.31483)
pt3dadd(652.559, 921.498, 150.614, 1.31483)
pt3dadd(650.899, 922.64, 151.774, 1.35061)
pt3dadd(649.173, 923.593, 153.304, 1.41525)
pt3dadd(647.67, 924.859, 154.875, 1.41525)
pt3dadd(646.167, 926.122, 156.446, 1.28588)
pt3dadd(645.157, 927.84, 157.793, 1.44772)
pt3dadd(644.441, 929.703, 159.143, 1.45081)
pt3dadd(643.836, 931.628, 160.246, 1.22665)
pt3dadd(643, 933.5, 160.958, 1.29493)
pt3dadd(642.102, 935.243, 162.554, 1.64843)
pt3dadd(641.439, 937.139, 163.75, 1.3405)
pt3dadd(640.661, 938.935, 165.38, 1.68337)
pt3dadd(640.036, 940.687, 167.585, 1.68337)
pt3dadd(639.406, 942.434, 169.789, 1.28338)
pt3dadd(639.034, 944.148, 172.449, 1.28338)
pt3dadd(638.665, 945.862, 175.109, 1.40098)
pt3dadd(638.235, 947.17, 178.842, 1.43302)
pt3dadd(637.262, 948.317, 182.279, 1.25589)
pt3dadd(636.446, 949.716, 185.383, 1.50572)
pt3dadd(636.177, 951.235, 188.726, 1.84749)
pt3dadd(635.635, 952.858, 191.529, 1.63399)
pt3dadd(634.583, 954.133, 194.54, 1.64735)
pt3dadd(633.267, 955.346, 197.056, 1.87533)
pt3dadd(631.54, 956.344, 198.401, 1.43179)
pt3dadd(629.781, 957.259, 199.834, 1.6333)
pt3dadd(628.079, 958.273, 201.285, 1.73129)
pt3dadd(626.088, 959.702, 205.617, 2.13458)
pt3dadd(625.322, 960.977, 212.107, 1.71156)
pt3dadd(624.639, 962.012, 216.114, 2.06819)
pt3dadd(623.633, 963.175, 217.6, 2.06819)
}
dend[49] {pt3dclear()
pt3dadd(684.946, 890.998, 97.0871, 1.69962)
pt3dadd(687.352, 892.911, 98.1015, 2.11113)
pt3dadd(689.782, 894.799, 99.1158, 1.84826)
pt3dadd(690.925, 896.513, 99.6473, 1.84826)
}
dend[50] {pt3dclear()
pt3dadd(690.925, 896.513, 99.6473, 1.84826)
pt3dadd(692.22, 895.933, 100.987, 1.24997)
pt3dadd(694.208, 896.078, 102.363, 1.24997)
pt3dadd(696.182, 895.975, 103.828, 1.23676)
pt3dadd(698.223, 895.718, 104.389, 1.35958)
pt3dadd(700.264, 895.465, 104.951, 1.38357)
pt3dadd(702.198, 894.973, 106.271, 1.1034)
pt3dadd(704.202, 894.464, 106.521, 1.1034)
pt3dadd(706.205, 893.954, 106.771, 1.10795)
pt3dadd(708.13, 893.193, 107.072, 1.15369)
pt3dadd(710.109, 892.588, 107.109, 1.29747)
pt3dadd(712.163, 892.323, 107.139, 1.29747)
pt3dadd(714.212, 892.058, 107.17, 1.3568)
pt3dadd(716.241, 891.64, 107.2, 1.43002)
pt3dadd(718.153, 890.845, 107.33, 1.12237)
pt3dadd(720.178, 890.456, 107.713, 1.12237)
pt3dadd(722.206, 890.067, 108.096, 1.12237)
pt3dadd(724.231, 889.674, 108.479, 1.12237)
pt3dadd(726.26, 889.284, 108.862, 1.28676)
pt3dadd(728.197, 888.597, 109.434, 1.35258)
pt3dadd(730.056, 887.769, 110.354, 1.53402)
pt3dadd(732.002, 887.152, 111.203, 1.51392)
pt3dadd(734.018, 886.759, 111.753, 1.72712)
}
dend[51] {pt3dclear()
pt3dadd(734.018, 886.759, 111.753, 1.72712)
pt3dadd(737.578, 884.412, 113.054, 1.7661)
pt3dadd(739.031, 883.008, 114.149, 1.28563)
pt3dadd(740.29, 881.414, 115.088, 1.71454)
pt3dadd(741.395, 879.667, 115.37, 1.51563)
pt3dadd(742.563, 878.007, 116.391, 1.88902)
pt3dadd(743.813, 876.359, 116.443, 1.83945)
pt3dadd(745.183, 874.848, 117.285, 1.85858)
pt3dadd(746.09, 873.043, 118.357, 1.90305)
pt3dadd(747.001, 871.234, 119.43, 2.21308)
pt3dadd(748.197, 869.566, 120.054, 1.6449)
pt3dadd(749.986, 867.115, 121.618, 2.09097)
pt3dadd(751.803, 864.635, 122.689, 2.15232)
pt3dadd(753.277, 863.194, 123.136, 1.25794)
pt3dadd(754.871, 861.878, 122.923, 1.41345)
pt3dadd(756.341, 860.441, 123.514, 1.47181)
pt3dadd(757.657, 858.847, 123.778, 1.53987)
pt3dadd(759.015, 857.365, 124.978, 1.73461)
pt3dadd(760.083, 855.659, 126.113, 1.73461)
pt3dadd(761.156, 853.95, 127.247, 1.41848)
pt3dadd(762.596, 852.488, 127.921, 1.41848)
pt3dadd(764.037, 851.031, 128.595, 1.29697)
pt3dadd(765.32, 849.441, 129.425, 1.35071)
pt3dadd(766.74, 848.013, 130.581, 1.26832)
pt3dadd(768.223, 846.605, 131.378, 1.29482)
pt3dadd(769.258, 844.879, 132.528, 1.49866)
pt3dadd(770.081, 843.094, 134.095, 1.58412)
pt3dadd(770.562, 841.331, 136.439, 1.59869)
pt3dadd(770.243, 839.348, 137.664, 1.59012)
pt3dadd(769.866, 837.456, 139.467, 1.28038)
pt3dadd(769.957, 835.464, 140.813, 1.28038)
pt3dadd(770.052, 833.473, 142.158, 1.26731)
pt3dadd(770.036, 831.556, 144.063, 1.34841)
pt3dadd(770.288, 829.573, 145.336, 1.57856)
pt3dadd(770.793, 827.739, 147.327, 1.2651)
pt3dadd(771.584, 825.951, 148.948, 1.42437)
pt3dadd(772.408, 824.142, 150.339, 0.984484)
pt3dadd(773.402, 822.374, 151.331, 1.32016)
pt3dadd(774.553, 820.68, 152.136, 1.28347)
pt3dadd(776.08, 819.327, 152.963, 1.36041)
pt3dadd(777.662, 818.143, 154.461, 1.36261)
pt3dadd(779.16, 816.855, 155.936, 1.57956)
pt3dadd(779.972, 815.034, 157.268, 1.64683)
pt3dadd(780.498, 813.059, 158.056, 1.25668)
pt3dadd(781.272, 811.221, 159.425, 1.25361)
pt3dadd(782.116, 809.503, 161.311, 1.28845)
pt3dadd(782.783, 807.66, 162.918, 1.52595)
pt3dadd(783.102, 805.772, 164.834, 1.52595)
pt3dadd(783.416, 803.889, 166.75, 1.53542)
pt3dadd(784.095, 802.113, 168.743, 1.53542)
pt3dadd(784.774, 800.341, 170.737, 1.54798)
pt3dadd(785.793, 798.664, 172.317, 1.56381)
pt3dadd(786.973, 797.066, 173.732, 1.56381)
pt3dadd(788.153, 795.468, 175.148, 1.24882)
pt3dadd(789.043, 793.63, 175.931, 1.37474)
pt3dadd(789.9, 791.779, 176.834, 1.45419)
pt3dadd(790.632, 789.991, 178.62, 1.6049)
pt3dadd(791.121, 788.061, 179.985, 1.59731)
pt3dadd(791.402, 786.058, 181.026, 1.07867)
pt3dadd(791.551, 784.066, 182.344, 1.30783)
pt3dadd(791.605, 782.096, 183.871, 1.52929)
pt3dadd(791.568, 780.067, 184.885, 1.52929)
pt3dadd(791.531, 778.043, 185.899, 1.54013)
pt3dadd(791.398, 776.138, 187.833, 1.51367)
pt3dadd(791.005, 774.391, 190.341, 1.32324)
pt3dadd(790.293, 772.917, 193.404, 1.61997)
pt3dadd(789.755, 771.328, 196.338, 1.70046)
pt3dadd(790.098, 769.634, 199.081, 1.27637)
pt3dadd(791.27, 768.363, 201.826, 1.70033)
pt3dadd(792.388, 766.96, 204.332, 1.44101)
pt3dadd(793.224, 765.349, 206.737, 1.1227)
}
}
proc shape3d_9() {
dend[51] { pt3dadd(793.737, 763.478, 208.468, 1.23955)
pt3dadd(793.907, 761.545, 210.199, 1.75873)
pt3dadd(794.565, 758.456, 212.64, 1.75873)
}
dend[52] {pt3dclear()
pt3dadd(734.018, 886.759, 111.753, 1.72712)
pt3dadd(736.08, 886.651, 112.101, 1.28512)
pt3dadd(738.145, 886.813, 112.092, 1.3296)
pt3dadd(740.199, 886.61, 112.497, 1.43741)
pt3dadd(742.198, 886.076, 112.475, 1.68673)
pt3dadd(744.177, 885.467, 112.453, 1.71784)
pt3dadd(746.223, 885.211, 112.91, 1.71784)
pt3dadd(748.268, 884.954, 113.367, 1.71784)
pt3dadd(750.313, 884.697, 113.824, 1.45287)
pt3dadd(752.226, 883.911, 113.661, 1.44482)
pt3dadd(754.225, 883.393, 113.964, 1.04484)
pt3dadd(756.25, 882.958, 113.858, 1.47284)
pt3dadd(758.262, 882.52, 114.386, 1.40917)
pt3dadd(760.311, 882.234, 114.267, 1.40917)
pt3dadd(762.369, 882.255, 114.83, 1.38528)
pt3dadd(764.434, 882.217, 115.029, 1.10723)
pt3dadd(766.504, 882.263, 114.822, 1.09624)
pt3dadd(768.554, 882.404, 115.411, 1.09655)
pt3dadd(770.624, 882.387, 115.487, 1.10397)
pt3dadd(772.673, 882.528, 116.069, 1.05612)
pt3dadd(774.731, 882.706, 116.458, 1.05612)
pt3dadd(776.788, 882.88, 116.846, 1.04566)
pt3dadd(778.846, 883.054, 116.597, 1.1575)
pt3dadd(780.899, 882.805, 116.808, 0.911206)
pt3dadd(782.949, 882.557, 117.189, 0.911206)
pt3dadd(784.998, 882.309, 117.571, 1.36367)
pt3dadd(787.039, 882.168, 118.339, 1.03777)
pt3dadd(789.026, 882.689, 118.99, 1.08304)
pt3dadd(791.046, 883.008, 119.755, 1.20802)
pt3dadd(793.079, 883.339, 120.24, 1.20802)
pt3dadd(795.05, 883.927, 120.772, 0.964976)
pt3dadd(797.099, 884.051, 121.45, 1.12124)
pt3dadd(799.119, 883.915, 122.48, 1.24337)
pt3dadd(801.177, 883.704, 122.693, 1.19067)
pt3dadd(803.234, 883.497, 122.906, 1.42326)
pt3dadd(805.259, 883.132, 123.495, 1.42326)
pt3dadd(807.279, 882.772, 124.083, 1.0132)
pt3dadd(809.3, 882.93, 125.148, 1.1106)
pt3dadd(811.262, 883.153, 126.628, 1.16017)
pt3dadd(813.22, 883.708, 127.571, 0.928164)
pt3dadd(815.269, 883.617, 128.186, 0.928164)
pt3dadd(817.323, 883.53, 128.802, 1.07643)
pt3dadd(819.318, 883.087, 129.588, 1.13677)
pt3dadd(821.186, 882.267, 130.444, 1.38389)
pt3dadd(823.198, 881.774, 130.247, 1.43504)
pt3dadd(825.247, 881.584, 130.707, 1.38623)
pt3dadd(827.251, 881.087, 131.124, 1.47439)
pt3dadd(829.283, 880.934, 131.997, 1.14848)
pt3dadd(831.333, 880.636, 132.096, 1.2656)
pt3dadd(833.357, 880.462, 133.018, 1.10978)
pt3dadd(835.386, 880.657, 133.919, 1.10978)
pt3dadd(837.41, 880.851, 134.821, 1.19229)
pt3dadd(839.472, 880.723, 135.228, 1.19204)
pt3dadd(841.509, 880.789, 136.062, 1.26451)
pt3dadd(843.521, 880.297, 136.227, 1.24952)
pt3dadd(845.516, 879.895, 137.119, 0.795282)
pt3dadd(847.57, 879.779, 137.7, 0.795282)
pt3dadd(849.623, 879.663, 138.28, 0.983598)
pt3dadd(851.673, 879.593, 138.955, 0.983598)
pt3dadd(853.722, 879.522, 139.63, 1.14656)
pt3dadd(855.775, 879.361, 140.112, 1.14656)
pt3dadd(857.829, 879.203, 140.594, 1.14656)
pt3dadd(859.886, 879.042, 141.076, 1.21056)
pt3dadd(861.853, 878.574, 142.12, 1.35091)
pt3dadd(863.848, 878.057, 142.608, 1.05783)
pt3dadd(865.773, 877.485, 143.824, 1.412)
pt3dadd(867.711, 876.873, 144.743, 1.00026)
pt3dadd(869.727, 876.488, 145.455, 1.00026)
pt3dadd(871.739, 876.103, 146.167, 1.45214)
pt3dadd(873.755, 875.796, 147.022, 1.27294)
pt3dadd(875.726, 875.242, 147.768, 1.15794)
pt3dadd(877.721, 874.815, 148.574, 1.27749)
pt3dadd(879.601, 874.169, 149.992, 1.3057)
pt3dadd(881.423, 873.321, 151.186, 1.1034)
pt3dadd(883.468, 873.163, 151.867, 1.29252)
pt3dadd(887.463, 872.298, 153.414, 1.29252)
}
dend[53] {pt3dclear()
pt3dadd(690.925, 896.513, 99.6473, 1.84826)
pt3dadd(691.827, 898.326, 100.653, 1.87165)
pt3dadd(692.87, 900.082, 101.485, 1.87197)
pt3dadd(693.727, 901.965, 101.556, 1.81218)
pt3dadd(694.841, 903.675, 102.405, 2.07728)
pt3dadd(696.037, 905.364, 102.48, 1.96434)
pt3dadd(697.205, 907.07, 102.744, 1.96768)
}
dend[54] {pt3dclear()
pt3dadd(697.205, 907.07, 102.744, 1.96768)
pt3dadd(697.764, 910.879, 104.428, 2.29355)
pt3dadd(698.025, 912.887, 105.456, 1.20931)
}
dend[55] {pt3dclear()
pt3dadd(698.025, 912.887, 105.456, 1.20931)
pt3dadd(697.449, 914.418, 105.557, 2.00415)
pt3dadd(696.576, 916.294, 105.498, 2.00415)
pt3dadd(695.864, 918.235, 105.738, 1.45081)
pt3dadd(695.392, 920.243, 106.178, 1.41436)
pt3dadd(695.181, 922.301, 106.177, 1.6786)
pt3dadd(694.824, 924.342, 106.34, 1.81667)
pt3dadd(694.117, 926.279, 106.676, 1.36368)
pt3dadd(693.471, 928.246, 106.818, 1.36368)
pt3dadd(692.829, 930.212, 106.961, 1.50974)
pt3dadd(692.071, 932.138, 107.036, 1.66955)
pt3dadd(691.798, 934.183, 106.555, 1.66955)
pt3dadd(691.521, 936.224, 106.074, 1.67734)
pt3dadd(690.751, 938.141, 106.376, 1.67193)
pt3dadd(689.927, 940.028, 106.884, 1.53587)
pt3dadd(688.615, 941.626, 107.008, 1.59497)
pt3dadd(687.637, 943.452, 107.14, 1.59398)
pt3dadd(687.252, 945.481, 107.382, 1.47201)
pt3dadd(688.238, 947.298, 107.675, 1.46202)
pt3dadd(689.136, 949.157, 107.918, 1.59983)
pt3dadd(689.724, 951.128, 108.503, 1.61419)
pt3dadd(689.914, 953.181, 108.969, 1.7149)
pt3dadd(689.451, 955.197, 108.961, 1.81346)
pt3dadd(688.884, 957.16, 109.749, 1.7717)
pt3dadd(688.432, 959.176, 110.185, 1.68937)
pt3dadd(687.927, 961.18, 110.432, 1.68937)
pt3dadd(687.422, 963.183, 110.679, 1.38553)
pt3dadd(687.248, 965.241, 110.403, 1.40137)
pt3dadd(687.194, 967.307, 110.073, 1.45941)
pt3dadd(687.422, 969.36, 110.462, 1.45171)
pt3dadd(687.629, 971.414, 110.214, 1.50049)
pt3dadd(687.985, 973.455, 110.271, 1.52384)
pt3dadd(688.49, 975.463, 110.328, 1.24371)
pt3dadd(689.331, 977.351, 110.081, 1.32745)
pt3dadd(689.803, 979.367, 109.954, 1.77604)
pt3dadd(690.101, 981.412, 109.804, 1.61808)
pt3dadd(690.987, 983.254, 108.985, 1.70392)
pt3dadd(691.508, 985.233, 108.226, 1.40348)
pt3dadd(692.051, 987.195, 107.362, 1.50561)
pt3dadd(692.092, 989.199, 106.102, 1.55589)
pt3dadd(692.249, 991.261, 105.76, 1.20231)
pt3dadd(692.779, 993.211, 104.675, 1.38719)
pt3dadd(693.375, 995.082, 103.117, 1.35817)
pt3dadd(693.968, 997.049, 102.47, 1.3639)
pt3dadd(694.688, 998.99, 102.374, 1.3639)
pt3dadd(695.408, 1000.93, 102.277, 1.58773)
pt3dadd(696.166, 1002.84, 101.656, 1.69685)
pt3dadd(696.646, 1004.85, 101.604, 1.68412)
pt3dadd(696.808, 1006.9, 100.911, 1.27002)
pt3dadd(696.613, 1008.94, 100.332, 1.40348)
pt3dadd(696.77, 1011, 99.8854, 1.61535)
pt3dadd(697.089, 1013.04, 100.295, 1.61535)
pt3dadd(697.404, 1015.07, 100.705, 1.77469)
pt3dadd(698.058, 1017.03, 101.216, 1.2356)
pt3dadd(699.022, 1018.85, 101.7, 1.31587)
pt3dadd(700.008, 1020.66, 101.237, 1.48237)
pt3dadd(700.827, 1022.53, 100.379, 1.57515)
}
dend[56] {pt3dclear()
pt3dadd(700.827, 1022.53, 100.379, 1.57515)
pt3dadd(701.622, 1025.22, 98.6168, 1.57515)
}
dend[57] {pt3dclear()
pt3dadd(700.827, 1022.53, 100.379, 1.57515)
pt3dadd(700.761, 1024.77, 99.2817, 1.7887)
pt3dadd(699.664, 1026.46, 98.1239, 1.7887)
pt3dadd(698.753, 1028.3, 97.5182, 1.74509)
pt3dadd(697.963, 1030.14, 96.2247, 1.70491)
pt3dadd(697.313, 1032.1, 95.889, 1.58795)
pt3dadd(697.325, 1034.16, 95.3918, 1.58795)
pt3dadd(697.333, 1036.22, 94.8947, 1.74599)
pt3dadd(697.375, 1038.2, 93.5057, 1.52431)
pt3dadd(697.573, 1040.26, 93.1139, 1.73168)
pt3dadd(698.112, 1042.25, 92.7476, 1.73168)
pt3dadd(698.65, 1044.24, 92.3814, 1.70766)
pt3dadd(699.763, 1045.98, 92.0186, 1.70187)
pt3dadd(700.649, 1047.85, 91.5751, 1.71518)
pt3dadd(701.883, 1049.5, 91.0937, 1.26778)
pt3dadd(702.674, 1051.4, 90.6852, 1.70426)
pt3dadd(703.328, 1053.35, 90.1844, 1.44114)
pt3dadd(703.634, 1055.4, 89.9015, 1.62727)
pt3dadd(704.028, 1057.43, 89.7285, 1.62727)
pt3dadd(704.421, 1059.46, 89.5556, 1.82909)
pt3dadd(704.653, 1061.51, 89.0453, 1.18277)
pt3dadd(705.104, 1063.5, 88.1745, 1.18277)
pt3dadd(705.555, 1065.48, 87.3038, 1.15977)
pt3dadd(705.99, 1067.51, 87.2716, 1.7053)
pt3dadd(705.928, 1069.57, 87.2222, 1.29844)
pt3dadd(705.348, 1071.56, 87.0866, 1.5619)
pt3dadd(705.332, 1073.62, 87.5945, 1.5619)
pt3dadd(705.315, 1075.68, 88.1025, 1.01991)
pt3dadd(705.324, 1077.75, 88.2303, 1.2558)
pt3dadd(705.324, 1079.82, 88.4793, 1.43132)
pt3dadd(704.889, 1081.83, 89.0221, 1.47956)
pt3dadd(704.065, 1083.71, 89.5649, 1.4841)
pt3dadd(703.15, 1085.56, 90.0584, 1.62987)
pt3dadd(702.132, 1087.29, 91.2768, 1.33133)
pt3dadd(701.362, 1089, 93.3983, 1.35871)
pt3dadd(700.356, 1090.53, 95.7055, 1.3529)
pt3dadd(698.948, 1091.78, 97.8042, 1.29966)
pt3dadd(697.412, 1093.11, 98.7519, 1.46396)
pt3dadd(696.013, 1094.63, 98.6294, 1.47287)
pt3dadd(694.39, 1095.92, 98.4297, 1.48181)
pt3dadd(693.193, 1097.59, 97.8571, 1.56217)
pt3dadd(692.283, 1099.39, 96.6916, 1.23206)
pt3dadd(690.925, 1100.94, 96.2483, 1.23206)
pt3dadd(689.567, 1102.49, 95.805, 1.37057)
pt3dadd(688.453, 1104.23, 95.7696, 1.60286)
pt3dadd(686.851, 1105.54, 95.9545, 0.974332)
pt3dadd(685.377, 1106.99, 96.1205, 1.08581)
pt3dadd(683.796, 1108.32, 96.4607, 1.17231)
pt3dadd(682.015, 1109.38, 96.4384, 1.24352)
pt3dadd(680.268, 1110.41, 95.4783, 1.24457)
pt3dadd(678.397, 1111.23, 94.6331, 1.23839)
pt3dadd(676.505, 1111.96, 93.6439, 1.19516)
}
}
proc shape3d_10() {
dend[57] { pt3dadd(674.654, 1112.52, 91.8641, 1.23615)
pt3dadd(672.651, 1113.05, 91.8604, 1.23615)
pt3dadd(670.651, 1113.59, 91.8567, 1.17136)
pt3dadd(668.817, 1114.54, 91.9187, 1.17136)
pt3dadd(666.888, 1115.27, 92.2634, 1.2361)
pt3dadd(665.016, 1116.16, 92.5579, 1.16099)
pt3dadd(663.447, 1117.5, 92.7113, 1.31987)
pt3dadd(661.564, 1118.36, 92.8852, 1.47125)
}
dend[58] {pt3dclear()
pt3dadd(698.025, 912.887, 105.456, 1.20931)
pt3dadd(699.022, 914.625, 106.725, 1.40977)
pt3dadd(700.252, 916.257, 107.513, 1.40977)
pt3dadd(701.482, 917.892, 108.3, 1.40977)
pt3dadd(702.707, 919.523, 109.087, 1.64355)
}
dend[59] {pt3dclear()
pt3dadd(702.707, 919.523, 109.087, 1.64355)
pt3dadd(704.065, 919.27, 109.816, 1.39923)
pt3dadd(706.044, 919.655, 110.945, 1.39923)
pt3dadd(708.081, 919.821, 111.782, 1.11561)
pt3dadd(710.114, 919.983, 112.62, 1.15986)
pt3dadd(712.126, 920.206, 113.681, 1.23876)
pt3dadd(714.051, 920.802, 114.8, 1.24945)
pt3dadd(715.938, 921.229, 116.583, 1.37572)
pt3dadd(717.872, 921.817, 117.659, 1.37215)
pt3dadd(719.801, 921.8, 119.468, 1.43591)
pt3dadd(721.805, 921.539, 120.542, 1.41799)
pt3dadd(723.751, 921.357, 122.205, 1.00936)
pt3dadd(725.734, 921.676, 123.388, 1.00936)
pt3dadd(727.721, 921.995, 124.57, 1.00936)
pt3dadd(729.708, 922.313, 125.752, 1.1224)
pt3dadd(731.737, 922.293, 126.737, 1.25318)
pt3dadd(733.74, 922.616, 127.697, 1.2504)
pt3dadd(735.682, 922.93, 129.273, 1.0806)
pt3dadd(737.607, 923.315, 130.849, 1.61688)
pt3dadd(740.563, 923.477, 133.112, 2.07861)
pt3dadd(744.045, 924.801, 137.059, 2.3655)
pt3dadd(747.204, 926.561, 141.656, 2.10314)
pt3dadd(749.878, 927.099, 145.189, 2.74205)
pt3dadd(751.853, 926.892, 146.62, 1.61399)
pt3dadd(753.716, 926.582, 148.658, 1.72582)
pt3dadd(755.438, 926.449, 151.416, 1.72582)
pt3dadd(757.16, 926.317, 154.173, 1.65516)
pt3dadd(758.928, 926.433, 156.756, 1.15796)
pt3dadd(760.758, 926.416, 159.084, 1.66353)
pt3dadd(762.654, 926.3, 161.086, 1.33254)
pt3dadd(764.534, 926.557, 163.073, 1.37857)
pt3dadd(766.467, 926.445, 164.836, 1.02724)
pt3dadd(768.392, 926.52, 166.664, 1.23056)
pt3dadd(770.338, 926.768, 168.285, 1.37833)
pt3dadd(772.292, 927.223, 169.508, 1.39863)
pt3dadd(774.296, 927.435, 170.639, 1.52189)
pt3dadd(776.233, 927.993, 171.769, 1.07738)
pt3dadd(778.204, 928.532, 172.592, 1.21945)
pt3dadd(780.067, 929.384, 173.264, 1.59312)
pt3dadd(782.092, 929.707, 173.961, 1.6562)
pt3dadd(784.091, 929.72, 175.248, 1.14315)
pt3dadd(786.128, 929.798, 176.118, 1.31269)
pt3dadd(788.132, 929.993, 177.311, 1.13649)
pt3dadd(790.053, 929.96, 179.176, 1.28992)
pt3dadd(791.999, 929.654, 180.699, 1.28992)
pt3dadd(793.944, 929.343, 182.221, 1.40659)
pt3dadd(795.845, 929.558, 184.139, 1.7253)
pt3dadd(797.774, 929.786, 185.867, 1.41829)
pt3dadd(799.666, 930.515, 186.882, 1.42225)
pt3dadd(801.632, 930.999, 187.897, 1.41995)
pt3dadd(803.45, 931.62, 189.774, 1.41517)
pt3dadd(805.284, 931.508, 192.076, 1.41517)
pt3dadd(807.118, 931.396, 194.378, 1.28776)
pt3dadd(808.873, 931.645, 196.955, 1.38491)
pt3dadd(810.5, 932.179, 199.774, 1.38491)
pt3dadd(812.123, 932.713, 202.593, 1.5449)
pt3dadd(813.597, 933.094, 205.982, 1.88315)
pt3dadd(814.86, 933.827, 209.527, 1.95356)
}
dend[60] {pt3dclear()
pt3dadd(702.707, 919.523, 109.087, 1.64355)
pt3dadd(703.038, 921.556, 109.631, 1.767)
pt3dadd(703.709, 923.514, 109.77, 1.70489)
pt3dadd(704.334, 925.48, 110.115, 1.68629)
pt3dadd(705.092, 927.372, 110.978, 1.23339)
pt3dadd(705.82, 929.31, 111.244, 1.76546)
pt3dadd(706.946, 931.04, 111.585, 1.52548)
pt3dadd(707.948, 932.841, 112.02, 1.66069)
pt3dadd(708.648, 934.758, 112.853, 1.65631)
pt3dadd(709.509, 936.629, 113.415, 1.4554)
pt3dadd(710.333, 938.521, 113.754, 1.4554)
pt3dadd(711.157, 940.413, 114.093, 1.5388)
pt3dadd(712.328, 942.119, 114.328, 1.5388)
pt3dadd(713.496, 943.825, 114.563, 1.67167)
pt3dadd(714.196, 945.758, 115.137, 1.67167)
pt3dadd(714.899, 947.692, 115.711, 1.22642)
pt3dadd(715.404, 949.699, 115.864, 1.22642)
pt3dadd(715.909, 951.703, 116.016, 1.3555)
pt3dadd(716.742, 953.591, 116.391, 1.3555)
pt3dadd(717.578, 955.483, 116.766, 1.3555)
pt3dadd(718.41, 957.371, 117.142, 1.3555)
pt3dadd(719.242, 959.259, 117.517, 1.82066)
pt3dadd(719.851, 961.225, 118.02, 1.28167)
pt3dadd(720.364, 963.188, 119.05, 1.32497)
pt3dadd(721.056, 965.121, 119.636, 1.70657)
pt3dadd(721.581, 967.1, 120.41, 1.73719)
pt3dadd(722.484, 968.926, 121.28, 1.73719)
pt3dadd(723.382, 970.755, 122.15, 1.19592)
pt3dadd(724.276, 972.569, 123.23, 1.31582)
pt3dadd(725.274, 974.341, 124.167, 1.11541)
pt3dadd(726.255, 976.154, 124.562, 1.11541)
pt3dadd(727.232, 977.971, 124.957, 1.22857)
pt3dadd(728.52, 979.586, 125.347, 1.22857)
pt3dadd(729.807, 981.201, 125.737, 1.33049)
pt3dadd(730.801, 982.985, 126.546, 1.33049)
pt3dadd(731.799, 984.765, 127.356, 1.77811)
}
dend[61] {pt3dclear()
pt3dadd(731.799, 984.765, 127.356, 1.77811)
pt3dadd(733.509, 985.924, 128.021, 1.43473)
pt3dadd(735.496, 986.5, 128.106, 1.43473)
pt3dadd(737.371, 987.373, 128.024, 1.36971)
pt3dadd(739.251, 988.247, 127.943, 1.36971)
pt3dadd(741.292, 988.268, 128.72, 1.89282)
pt3dadd(743.362, 988.346, 128.587, 2.03937)
pt3dadd(746.438, 988.557, 129.307, 2.08124)
pt3dadd(749.526, 988.735, 129.58, 1.70298)
pt3dadd(751.526, 989.232, 130.025, 1.86903)
pt3dadd(753.538, 989.708, 130.26, 1.30996)
pt3dadd(755.562, 990.127, 130, 1.54843)
pt3dadd(757.628, 990.271, 129.816, 1.75444)
pt3dadd(759.694, 990.222, 129.669, 1.24185)
pt3dadd(761.76, 990.338, 129.569, 1.24185)
pt3dadd(763.83, 990.454, 129.47, 1.28186)
pt3dadd(765.896, 990.429, 129.736, 1.0657)
pt3dadd(767.937, 990.677, 130.312, 1.21448)
pt3dadd(769.97, 991.042, 130.663, 0.856012)
pt3dadd(771.92, 991.691, 131.231, 0.856012)
pt3dadd(773.87, 992.341, 131.8, 1.05077)
pt3dadd(775.815, 992.991, 132.485, 1.05077)
pt3dadd(777.761, 993.641, 133.171, 1.07693)
pt3dadd(779.769, 994.089, 133.7, 1.30311)
pt3dadd(781.781, 994.569, 133.773, 1.11995)
pt3dadd(782.286, 996.345, 136.045, 1.44512)
pt3dadd(782.779, 998.253, 137.576, 1.4327)
pt3dadd(783.992, 999.843, 138.841, 1.43868)
pt3dadd(785.242, 1001.39, 140.271, 1.0563)
pt3dadd(786.815, 1002.61, 141.614, 1.26689)
pt3dadd(788.368, 1003.9, 142.748, 1.26689)
pt3dadd(789.92, 1005.18, 143.883, 1.36646)
pt3dadd(791.328, 1006.69, 144.36, 1.38683)
pt3dadd(792.955, 1007.91, 145.303, 1.26166)
pt3dadd(794.76, 1008.88, 146.016, 1.29471)
pt3dadd(796.553, 1009.85, 146.86, 1.27891)
pt3dadd(797.931, 1011.33, 147.927, 1.27891)
pt3dadd(799.31, 1012.81, 148.995, 1.13955)
pt3dadd(800.887, 1013.95, 150.699, 1.26135)
pt3dadd(802.663, 1014.86, 152.027, 1.5895)
pt3dadd(804.592, 1015.53, 152.866, 1.14045)
pt3dadd(806.629, 1015.35, 153.633, 1.14045)
pt3dadd(808.666, 1015.17, 154.4, 1.62629)
pt3dadd(810.529, 1015.94, 155.567, 1.84741)
pt3dadd(812.376, 1018.35, 156.409, 2.17817)
pt3dadd(814.28, 1020.64, 158.048, 1.70443)
pt3dadd(815.82, 1021.96, 159.067, 1.92785)
pt3dadd(817.224, 1023.35, 160.603, 1.19448)
pt3dadd(818.569, 1024.81, 161.962, 1.3736)
pt3dadd(820.208, 1026.03, 162.792, 1.35776)
pt3dadd(821.769, 1027.25, 164.227, 0.909492)
pt3dadd(823.355, 1028.53, 165.14, 1.25549)
pt3dadd(825.036, 1029.66, 166.127, 1.39574)
pt3dadd(826.766, 1030.72, 167.115, 1.53829)
pt3dadd(828.493, 1031.79, 168.102, 1.64964)
pt3dadd(830.008, 1033.12, 169.202, 1.7531)
pt3dadd(831.594, 1034.39, 170.193, 1.31336)
pt3dadd(833.324, 1035.36, 171.625, 0.955628)
pt3dadd(834.951, 1036.54, 172.818, 1.61492)
pt3dadd(836.288, 1038.03, 174.062, 1.60327)
pt3dadd(837.659, 1039.57, 174.679, 1.28395)
pt3dadd(839.215, 1040.88, 175.553, 1.5318)
pt3dadd(841.463, 1043.21, 177.261, 1.5318)
}
dend[62] {pt3dclear()
pt3dadd(731.799, 984.765, 127.356, 1.77811)
pt3dadd(732.229, 986.694, 128.84, 1.12573)
pt3dadd(732.428, 988.649, 130.432, 1.4244)
pt3dadd(732.801, 990.536, 132.264, 1.52056)
pt3dadd(732.809, 992.453, 134.157, 1.12471)
pt3dadd(732.614, 994.387, 135.875, 1.38866)
pt3dadd(733.194, 996.279, 137.369, 1.34192)
pt3dadd(734.291, 997.939, 138.728, 1.3423)
pt3dadd(735.074, 999.686, 140.633, 1.34894)
pt3dadd(735.007, 1001.53, 142.892, 1.64079)
pt3dadd(734.506, 1003.22, 145.518, 1.64079)
pt3dadd(734.005, 1004.91, 148.144, 1.25318)
pt3dadd(733.654, 1006.84, 149.753, 1.46558)
pt3dadd(733.215, 1008.81, 150.877, 1.07854)
pt3dadd(732.759, 1010.74, 152.266, 1.42041)
pt3dadd(732.13, 1012.63, 153.61, 1.50698)
pt3dadd(731.343, 1014.47, 154.896, 1.63091)
pt3dadd(730.797, 1016.3, 156.852, 1.25417)
pt3dadd(730.524, 1018.25, 158.354, 1.55061)
pt3dadd(730.395, 1020.2, 160.05, 1.08586)
pt3dadd(730.321, 1022.11, 161.919, 1.48597)
pt3dadd(730.408, 1023.93, 164.318, 1.47295)
pt3dadd(730.664, 1025.65, 167.013, 1.66436)
pt3dadd(731.555, 1027.41, 168.535, 1.38139)
pt3dadd(732.788, 1029.03, 169.431, 1.38139)
pt3dadd(734.022, 1030.65, 170.327, 1.50219)
pt3dadd(734.937, 1032.46, 171.324, 1.51514)
pt3dadd(735.976, 1034.25, 171.757, 2.15469)
pt3dadd(737.268, 1035.79, 172.871, 1.93668)
pt3dadd(738.208, 1037.6, 173.784, 1.93668)
}
}
proc shape3d_11() {
dend[62] { pt3dadd(739.143, 1039.4, 174.698, 2.02015)
pt3dadd(741.147, 1041.67, 176.345, 2.43527)
pt3dadd(743.188, 1043.91, 177.91, 2.07672)
pt3dadd(744.326, 1045.57, 178.993, 1.82557)
}
dend[63] {pt3dclear()
pt3dadd(697.205, 907.07, 102.744, 1.96768)
pt3dadd(698.53, 908.618, 103.638, 1.33729)
pt3dadd(700.14, 909.819, 102.424, 1.33205)
pt3dadd(701.809, 911.015, 101.831, 1.29566)
pt3dadd(703.514, 912.162, 101.235, 1.29566)
pt3dadd(705.22, 913.309, 100.639, 1.59248)
pt3dadd(706.988, 914.381, 100.367, 1.22334)
pt3dadd(708.896, 915.18, 100.451, 1.50564)
pt3dadd(710.759, 916.078, 100.372, 1.30678)
}
dend[64] {pt3dclear()
pt3dadd(710.759, 916.078, 100.372, 1.30678)
pt3dadd(713.786, 916.153, 100.233, 1.24636)
pt3dadd(715.839, 915.963, 100.718, 1.24636)
pt3dadd(717.855, 915.503, 100.493, 1.18682)
pt3dadd(719.772, 914.729, 100.483, 1.05736)
pt3dadd(721.747, 914.1, 100.645, 1.24578)
pt3dadd(723.718, 913.47, 100.808, 1.24578)
pt3dadd(725.763, 913.156, 100.764, 1.12656)
pt3dadd(727.812, 912.911, 100.374, 1.05798)
pt3dadd(729.861, 912.663, 99.9848, 1.05798)
pt3dadd(731.927, 912.613, 99.7046, 1.07769)
pt3dadd(733.993, 912.564, 99.4243, 1.07769)
pt3dadd(736.059, 912.514, 99.1441, 1.10951)
pt3dadd(738.096, 912.87, 98.9541, 1.16782)
pt3dadd(740.162, 912.87, 99.2069, 1.16782)
pt3dadd(742.232, 912.87, 99.4597, 1.2414)
pt3dadd(744.264, 913.263, 99.5786, 1.2414)
pt3dadd(746.293, 913.657, 99.6975, 1.2414)
pt3dadd(748.326, 914.05, 99.8164, 1.24814)
pt3dadd(750.329, 914.551, 100.198, 1.08013)
pt3dadd(752.271, 915.267, 100.348, 1.12015)
pt3dadd(754.225, 915.942, 100.37, 1.13104)
pt3dadd(756.192, 916.584, 100.631, 1.13104)
pt3dadd(758.158, 917.225, 100.891, 1.10747)
pt3dadd(760.129, 917.747, 101.714, 0.89876)
pt3dadd(762.112, 918.347, 101.912, 0.971384)
pt3dadd(764.161, 918.563, 102.344, 0.985652)
pt3dadd(766.169, 919.039, 102.758, 1.19173)
pt3dadd(768.177, 919.432, 103.519, 1.30621)
pt3dadd(770.21, 919.498, 104.439, 1.29051)
pt3dadd(772.271, 919.602, 104.735, 0.937056)
pt3dadd(774.325, 919.527, 105.384, 1.06015)
pt3dadd(776.358, 919.192, 105.878, 1.1345)
pt3dadd(778.403, 919.233, 106.617, 1.12069)
pt3dadd(780.402, 919.001, 107.77, 1.03194)
pt3dadd(782.423, 919.37, 108.408, 1.19279)
pt3dadd(784.369, 920.036, 108.96, 1.25316)
pt3dadd(786.405, 920.314, 109.58, 0.872746)
pt3dadd(788.471, 920.301, 109.871, 0.872746)
pt3dadd(790.537, 920.289, 110.163, 1.07743)
pt3dadd(792.471, 920.798, 111.492, 1.16524)
pt3dadd(794.412, 921.477, 112.01, 1.18246)
pt3dadd(796.408, 921.953, 112.704, 1.18246)
pt3dadd(798.399, 922.425, 113.398, 1.18246)
pt3dadd(800.44, 922.777, 113.535, 1.19547)
pt3dadd(802.369, 923.489, 114.07, 1.23832)
pt3dadd(804.377, 923.99, 114.223, 0.872928)
pt3dadd(806.335, 924.669, 114.171, 0.872928)
pt3dadd(808.289, 925.348, 114.119, 1.18182)
pt3dadd(810.19, 926.155, 113.747, 0.922028)
pt3dadd(812.102, 926.942, 113.822, 0.922028)
pt3dadd(814.019, 927.728, 113.897, 1.01524)
pt3dadd(815.87, 928.648, 114.207, 1.13239)
pt3dadd(817.6, 929.683, 115.306, 1.33825)
pt3dadd(819.43, 930.635, 115.784, 1.33825)
pt3dadd(821.256, 931.587, 116.262, 1.02392)
pt3dadd(823.152, 932.407, 116.545, 1.10788)
pt3dadd(825.011, 933.322, 116.682, 1.22053)
pt3dadd(826.679, 934.535, 117.073, 1.32807)
pt3dadd(828.281, 935.839, 117.409, 1.31048)
pt3dadd(829.846, 937.188, 117.121, 1.3825)
pt3dadd(831.498, 938.414, 117.694, 1.17674)
pt3dadd(833.2, 939.565, 118.266, 1.28288)
pt3dadd(834.785, 940.865, 118.981, 1.4082)
pt3dadd(836.114, 942.405, 119.887, 1.40124)
pt3dadd(837.576, 943.862, 120.289, 1.40745)
pt3dadd(839.103, 945.232, 120.979, 1.36502)
pt3dadd(840.478, 946.71, 122.083, 1.09721)
pt3dadd(842.134, 947.932, 122.594, 1.09721)
pt3dadd(843.79, 949.157, 123.105, 1.46071)
pt3dadd(845.309, 950.561, 123.181, 1.3941)
pt3dadd(846.903, 951.832, 124.04, 1.41771)
pt3dadd(848.87, 952.465, 124.415, 1.31621)
pt3dadd(850.803, 953.16, 124.983, 1.64846)
pt3dadd(852.811, 953.666, 125.105, 3.01082)
pt3dadd(854.405, 954.982, 125.036, 1.70926)
pt3dadd(856.077, 956.195, 125.406, 1.29332)
pt3dadd(857.837, 957.271, 125.776, 1.29586)
pt3dadd(859.758, 957.996, 126.466, 1.22282)
pt3dadd(861.778, 958.393, 126.912, 1.23909)
pt3dadd(863.736, 959.043, 127.358, 1.27176)
pt3dadd(865.707, 959.669, 127.63, 1.27176)
pt3dadd(867.674, 960.298, 127.901, 1.27176)
pt3dadd(869.644, 960.927, 128.173, 1.04189)
pt3dadd(871.503, 961.813, 128.644, 1.03504)
pt3dadd(873.428, 962.575, 128.799, 1.03504)
pt3dadd(875.349, 963.337, 128.953, 0.873632)
pt3dadd(877.241, 964.173, 128.702, 1.15829)
pt3dadd(879.071, 965.117, 128.203, 0.819014)
pt3dadd(880.859, 966.156, 128.007, 1.0118)
pt3dadd(882.644, 967.208, 127.788, 1.1948)
pt3dadd(884.436, 968.242, 127.694, 1.2403)
pt3dadd(886.366, 968.984, 127.538, 1.22513)
pt3dadd(888.262, 969.754, 126.754, 0.908092)
pt3dadd(890.154, 970.586, 126.615, 0.908092)
pt3dadd(892.05, 971.422, 126.476, 1.21361)
pt3dadd(893.979, 972.163, 126.495, 0.88423)
pt3dadd(895.913, 972.904, 126.711, 1.17357)
pt3dadd(897.875, 973.471, 127.499, 0.861972)
pt3dadd(899.846, 974.063, 128.021, 1.26951)
pt3dadd(901.787, 974.746, 128.613, 1.26951)
pt3dadd(903.725, 975.425, 129.204, 1.00793)
pt3dadd(905.786, 975.574, 129.439, 1.00793)
pt3dadd(907.848, 975.719, 129.674, 1.12085)
pt3dadd(909.864, 976.2, 129.583, 1.12085)
pt3dadd(911.876, 976.676, 129.492, 1.03809)
pt3dadd(913.164, 977.342, 129.405, 1.03809)
}
dend[65] {pt3dclear()
pt3dadd(710.759, 916.078, 100.372, 1.30678)
pt3dadd(712.357, 917.333, 99.3884, 1.38139)
pt3dadd(713.786, 918.823, 99.039, 1.37754)
pt3dadd(715.33, 920.111, 97.8679, 1.19808)
pt3dadd(717.151, 921.047, 97.1131, 1.23191)
pt3dadd(718.94, 922.081, 96.8289, 1.32607)
pt3dadd(720.513, 923.427, 96.7175, 0.854926)
pt3dadd(722.169, 924.632, 95.9815, 1.04043)
pt3dadd(723.92, 925.725, 95.5853, 1.19198)
pt3dadd(725.817, 926.54, 95.3222, 1.33139)
pt3dadd(727.766, 927.219, 94.927, 1.33139)
pt3dadd(729.613, 928.105, 94.2218, 1.34834)
pt3dadd(731.563, 928.801, 94.1121, 1.34869)
pt3dadd(733.463, 929.583, 93.4783, 1.31346)
pt3dadd(735.256, 930.597, 93.0015, 1.43552)
pt3dadd(737.202, 931.276, 92.5246, 1.43552)
pt3dadd(739.147, 931.955, 92.0478, 1.38311)
pt3dadd(741.072, 932.663, 91.398, 1.19113)
pt3dadd(742.931, 933.375, 90.0256, 1.2772)
pt3dadd(744.852, 934.017, 88.9788, 0.981942)
pt3dadd(746.848, 934.506, 88.3824, 1.41353)
pt3dadd(748.765, 935.276, 87.9924, 0.9637)
pt3dadd(750.706, 935.984, 87.8058, 1.06737)
pt3dadd(752.59, 936.721, 86.7622, 1.06737)
pt3dadd(754.478, 937.462, 85.7186, 1.12882)
pt3dadd(756.279, 938.468, 85.3423, 1.17612)
pt3dadd(757.852, 939.809, 85.1029, 1.22782)
pt3dadd(759.135, 941.432, 84.8635, 1.21158)
pt3dadd(760.638, 942.852, 84.6311, 1.32126)
pt3dadd(762.369, 943.978, 84.3061, 1.32126)
pt3dadd(764.099, 945.104, 83.9812, 0.98407)
pt3dadd(765.83, 946.222, 83.4608, 0.98407)
pt3dadd(767.56, 947.34, 82.9405, 0.98407)
pt3dadd(769.286, 948.457, 82.4202, 1.10997)
pt3dadd(771.067, 949.501, 82.0609, 1.10997)
pt3dadd(772.847, 950.548, 81.7015, 1.36405)
pt3dadd(774.466, 951.84, 81.5873, 1.16372)
pt3dadd(776.213, 952.945, 81.3838, 1.26282)
pt3dadd(778.179, 953.566, 81.0191, 1.26282)
pt3dadd(780.117, 954.175, 80.0207, 1.359)
pt3dadd(782.125, 954.643, 79.5993, 0.835874)
pt3dadd(784.05, 955.255, 78.52, 1.1894)
pt3dadd(785.921, 956.083, 77.7835, 1.19295)
pt3dadd(787.933, 956.547, 77.3519, 1.28056)
pt3dadd(789.85, 957.317, 77.0974, 1.33433)
pt3dadd(791.696, 958.215, 77.7416, 1.3344)
pt3dadd(793.692, 958.762, 78.0275, 1.08373)
pt3dadd(795.729, 959.11, 77.9226, 1.08373)
pt3dadd(797.77, 959.453, 77.8176, 1.06647)
pt3dadd(799.819, 959.673, 78.2643, 1.15153)
pt3dadd(801.877, 959.813, 77.8122, 1.15706)
pt3dadd(803.938, 959.95, 78.198, 1.20093)
pt3dadd(805.983, 960.186, 77.7062, 1.25)
pt3dadd(808.029, 960.488, 77.5401, 1.24314)
pt3dadd(810.07, 960.844, 77.535, 1.25415)
pt3dadd(812.135, 960.956, 77.4031, 1.29196)
pt3dadd(814.139, 961.474, 77.2712, 0.935318)
pt3dadd(816.197, 961.627, 76.9335, 1.22721)
pt3dadd(818.267, 961.676, 76.7077, 1.22721)
pt3dadd(820.333, 961.722, 76.482, 0.994552)
pt3dadd(822.386, 961.987, 76.2775, 0.994552)
pt3dadd(824.435, 962.248, 76.073, 1.20339)
pt3dadd(826.477, 962.579, 75.8685, 1.20339)
pt3dadd(828.518, 962.914, 75.664, 1.31256)
pt3dadd(830.467, 963.606, 75.5871, 1.30537)
pt3dadd(832.351, 964.45, 76.0032, 1.30537)
pt3dadd(834.231, 965.299, 76.4193, 1.34194)
pt3dadd(836.09, 966.21, 76.4448, 1.19997)
pt3dadd(837.965, 967.034, 75.733, 1.05149)
pt3dadd(839.865, 967.857, 75.8849, 1.05149)
pt3dadd(841.766, 968.677, 76.0368, 1.15085)
pt3dadd(843.496, 969.791, 76.5567, 1.27459)
pt3dadd(845.367, 970.677, 76.4755, 1.27245)
pt3dadd(847.21, 971.588, 77.0267, 1.30201)
pt3dadd(850.17, 973.045, 76.3283, 1.30201)
}
dend[66] {pt3dclear()
pt3dstyle(1, 671.587, 879.829, 88.0109)
pt3dadd(682.289, 884.151, 91.0005, 3.51337)
pt3dadd(684.354, 884.287, 90.8508, 3.51337)
pt3dadd(686.313, 884.95, 90.5607, 2.07)
pt3dadd(688.267, 885.612, 90.2706, 1.76293)
}
}
proc shape3d_12() {
dend[66] { pt3dadd(690.254, 886.196, 90.086, 1.75755)
pt3dadd(692.216, 886.8, 90.6961, 1.74152)
pt3dadd(694.232, 887.256, 90.4786, 1.59255)
pt3dadd(696.22, 887.819, 90.8501, 1.74925)
}
dend[67] {pt3dclear()
pt3dadd(696.22, 887.819, 90.8501, 1.74925)
pt3dadd(697.222, 888.067, 91.0521, 1.25064)
pt3dadd(699.234, 888.436, 91.7943, 1.25064)
pt3dadd(701.142, 888.676, 93.6558, 0.886664)
pt3dadd(703.117, 888.978, 94.9438, 1.02154)
pt3dadd(705.108, 889.284, 96.1272, 1.19095)
pt3dadd(707.162, 889.359, 96.7055, 1.19377)
pt3dadd(709.132, 889.736, 97.9135, 0.982744)
pt3dadd(711.078, 890.299, 98.9825, 1.10409)
pt3dadd(713.103, 890.531, 99.8385, 1.12052)
pt3dadd(715.069, 890.754, 101.312, 1.23571)
pt3dadd(717.027, 891.135, 102.648, 1.26367)
pt3dadd(719.077, 891.342, 103.118, 1.2697)
pt3dadd(721.035, 891.71, 104.477, 1.09823)
pt3dadd(722.894, 892.456, 105.755, 1.22258)
pt3dadd(724.608, 893.329, 107.611, 1.22258)
pt3dadd(726.317, 894.199, 109.467, 1.22258)
pt3dadd(728.031, 895.072, 111.322, 1.28602)
pt3dadd(729.658, 895.743, 113.955, 0.991282)
pt3dadd(731.559, 896.074, 115.779, 1.3347)
pt3dadd(733.484, 896.206, 117.578, 1.06362)
pt3dadd(735.405, 895.987, 119.378, 1.3497)
pt3dadd(737.346, 895.884, 121.095, 1.38989)
pt3dadd(739.354, 895.892, 122.285, 1.69736)
pt3dadd(742.178, 896.227, 125.123, 2.2286)
pt3dadd(745.891, 897.399, 128.424, 2.42979)
pt3dadd(748.76, 898.115, 130.646, 2.01395)
pt3dadd(750.723, 898.533, 131.873, 1.89706)
pt3dadd(752.76, 898.529, 132.767, 1.34822)
pt3dadd(754.734, 898.641, 134.247, 1.48715)
pt3dadd(756.755, 898.757, 135.29, 1.48715)
pt3dadd(758.779, 898.869, 136.333, 1.48055)
pt3dadd(760.733, 898.91, 137.969, 1.42635)
pt3dadd(762.7, 899.092, 139.48, 1.76632)
pt3dadd(764.737, 899.038, 140.325, 1.2699)
pt3dadd(766.732, 898.951, 141.636, 1.00474)
pt3dadd(768.682, 898.786, 143.27, 1.38447)
pt3dadd(770.636, 898.84, 144.905, 1.45215)
pt3dadd(772.57, 899.175, 146.52, 1.50152)
pt3dadd(774.515, 899.622, 147.809, 1.36522)
pt3dadd(776.474, 900.032, 149.088, 1.4061)
pt3dadd(778.361, 900.206, 151.107, 0.992846)
pt3dadd(780.303, 900.611, 152.526, 1.24979)
pt3dadd(782.224, 901.009, 154.127, 1.24979)
pt3dadd(784.145, 901.41, 155.728, 1.63072)
pt3dadd(785.933, 902.321, 156.958, 1.65191)
pt3dadd(787.548, 903.505, 158.212, 1.73865)
pt3dadd(788.902, 904.93, 159.775, 1.29151)
pt3dadd(790.367, 906.279, 161.132, 1.35795)
pt3dadd(791.742, 907.753, 162.281, 1.60337)
pt3dadd(792.992, 909.301, 163.662, 1.59579)
pt3dadd(794.226, 910.75, 165.635, 1.34915)
pt3dadd(795.588, 912.174, 167.157, 1.34915)
pt3dadd(796.95, 913.599, 168.678, 1.39887)
pt3dadd(798.416, 914.903, 170.297, 1.10016)
pt3dadd(800.15, 915.88, 171.646, 1.15121)
pt3dadd(801.765, 917.068, 172.904, 1.15121)
pt3dadd(803.379, 918.256, 174.162, 1.44729)
pt3dadd(804.741, 919.776, 174.969, 1.44729)
pt3dadd(806.099, 921.299, 175.775, 1.44729)
pt3dadd(807.461, 922.823, 176.582, 1.15761)
pt3dadd(809.022, 924.023, 178.136, 1.22162)
pt3dadd(810.331, 925.501, 179.622, 1.32184)
pt3dadd(811.626, 927.025, 180.945, 1.48551)
pt3dadd(812.918, 928.623, 181.491, 0.952134)
pt3dadd(814.259, 930.121, 182.692, 0.969438)
pt3dadd(815.683, 931.546, 183.842, 0.969438)
pt3dadd(817.112, 932.966, 184.993, 1.45586)
pt3dadd(818.846, 934.042, 185.813, 1.45586)
pt3dadd(820.581, 935.118, 186.634, 1.04755)
pt3dadd(822.204, 936.286, 187.921, 1.43052)
pt3dadd(823.939, 937.387, 188.543, 1.43052)
pt3dadd(825.673, 938.488, 189.165, 1.84402)
pt3dadd(827.106, 939.846, 190.661, 1.33754)
pt3dadd(828.729, 941.001, 192.012, 1.27713)
pt3dadd(830.451, 942.132, 192.564, 1.69714)
pt3dadd(832.065, 943.332, 193.723, 1.7743)
pt3dadd(833.721, 944.57, 193.951, 1.96725)
pt3dadd(835.262, 945.92, 194.734, 1.54157)
pt3dadd(836.52, 947.559, 194.733, 1.37258)
pt3dadd(837.779, 949.203, 194.947, 1.59101)
pt3dadd(839.24, 950.668, 194.874, 1.12823)
pt3dadd(841.033, 951.703, 194.741, 1.53524)
pt3dadd(842.726, 952.887, 194.988, 1.53524)
pt3dadd(844.419, 954.071, 195.235, 1.0907)
pt3dadd(846.067, 955.317, 195.559, 1.25849)
pt3dadd(847.996, 956.071, 195.773, 1.40892)
pt3dadd(849.801, 957.077, 195.678, 1.56348)
pt3dadd(851.66, 957.988, 195.651, 1.75308)
pt3dadd(853.357, 959.176, 195.716, 1.75308)
pt3dadd(855.055, 960.36, 195.782, 1.70336)
pt3dadd(856.761, 961.511, 196.323, 2.1417)
pt3dadd(858.532, 962.558, 196.864, 1.57616)
pt3dadd(860.52, 963.138, 196.693, 1.49211)
pt3dadd(862.507, 963.651, 196.056, 1.45251)
pt3dadd(864.44, 964.384, 196.296, 1.45251)
pt3dadd(866.759, 965.262, 196.584, 1.45251)
}
dend[68] {pt3dclear()
pt3dadd(696.22, 887.819, 90.8501, 1.74925)
pt3dadd(698.182, 888.469, 90.5717, 1.27276)
pt3dadd(700.177, 888.995, 90.1478, 1.27276)
pt3dadd(702.169, 889.52, 89.724, 1.47966)
pt3dadd(704.202, 889.752, 88.9601, 1.47542)
pt3dadd(706.267, 889.91, 88.8067, 1.50352)
pt3dadd(708.313, 890.191, 88.5164, 1.50352)
pt3dadd(710.362, 890.468, 88.2262, 1.4575)
pt3dadd(712.337, 890.99, 87.4427, 1.4575)
pt3dadd(714.316, 891.512, 86.6593, 1.30891)
pt3dadd(716.328, 891.971, 86.3433, 1.35726)
pt3dadd(718.348, 892.286, 85.514, 1.34118)
pt3dadd(720.339, 892.77, 84.8663, 1.38714)
pt3dadd(722.293, 893.3, 83.805, 1.38714)
pt3dadd(724.19, 894.062, 83.0211, 1.44405)
pt3dadd(726.189, 894.439, 82.1067, 1.10619)
pt3dadd(728.151, 895.072, 81.6773, 1.46488)
pt3dadd(730.068, 895.817, 81.1057, 1.46488)
pt3dadd(731.985, 896.563, 80.534, 1.61474)
}
dend[69] {pt3dclear()
pt3dadd(731.985, 896.563, 80.534, 1.61474)
pt3dadd(733.397, 899.999, 79.5363, 1.2669)
pt3dadd(734.337, 901.816, 78.799, 1.2669)
pt3dadd(735.276, 903.638, 78.0616, 1.2669)
pt3dadd(736.146, 905.513, 78.0865, 1.25111)
pt3dadd(737.094, 907.322, 77.2297, 1.16129)
pt3dadd(738.042, 909.127, 76.3729, 1.16129)
pt3dadd(738.837, 911.003, 75.4976, 1.242)
pt3dadd(739.632, 912.878, 74.6223, 1.67784)
pt3dadd(740.207, 914.832, 73.7193, 1.99983)
pt3dadd(740.886, 916.7, 72.3119, 1.54921)
pt3dadd(741.954, 918.451, 71.6152, 1.51559)
pt3dadd(742.877, 920.21, 70.2327, 1.44742)
pt3dadd(743.929, 921.953, 69.2908, 1.6105)
pt3dadd(744.604, 923.866, 68.3231, 1.32877)
pt3dadd(745.233, 925.816, 67.592, 1.35457)
pt3dadd(745.701, 927.828, 67.3328, 1.43647)
pt3dadd(746.363, 929.745, 66.2889, 1.41322)
pt3dadd(747.129, 931.657, 65.8257, 1.485)
pt3dadd(747.684, 933.591, 64.6456, 1.485)
pt3dadd(748.243, 935.52, 63.4655, 1.49808)
pt3dadd(748.984, 937.408, 62.4287, 1.46775)
pt3dadd(749.746, 939.296, 61.554, 1.07694)
pt3dadd(750.408, 941.25, 61.1846, 1.07694)
pt3dadd(751.075, 943.204, 60.8152, 1.3526)
pt3dadd(751.393, 945.22, 59.9584, 1.41748)
pt3dadd(751.654, 947.253, 59.2251, 1.50889)
pt3dadd(752.221, 949.24, 59.07, 1.25987)
pt3dadd(753.033, 951.124, 58.363, 1.25987)
pt3dadd(753.848, 953.003, 57.656, 1.25608)
pt3dadd(754.892, 954.763, 56.9491, 1.25284)
pt3dadd(755.997, 956.501, 56.3948, 0.958476)
pt3dadd(757.372, 958.004, 55.4951, 1.18917)
pt3dadd(758.638, 959.569, 54.3529, 1.17607)
pt3dadd(759.785, 961.233, 53.2677, 1.17607)
pt3dadd(760.928, 962.898, 52.1825, 1.21074)
pt3dadd(762.319, 964.405, 51.4292, 1.28651)
pt3dadd(763.602, 965.874, 49.7715, 0.979192)
pt3dadd(764.588, 967.597, 48.3465, 0.988152)
pt3dadd(765.337, 969.422, 46.8445, 1.22129)
pt3dadd(765.979, 971.31, 45.5017, 1.28396)
pt3dadd(766.252, 973.306, 44.3282, 1.05243)
pt3dadd(766.654, 975.293, 43.321, 1.05243)
pt3dadd(767.055, 977.28, 42.3139, 1.05928)
pt3dadd(767.738, 979.193, 41.3464, 1.42623)
pt3dadd(768.612, 981.06, 40.8734, 1.42188)
pt3dadd(769.626, 982.795, 39.6849, 1.03829)
pt3dadd(770.62, 984.571, 38.7971, 1.08643)
pt3dadd(771.464, 986.463, 38.7693, 1.15162)
pt3dadd(772.503, 988.222, 37.9722, 1.15162)
pt3dadd(773.542, 989.982, 37.1752, 1.15162)
pt3dadd(774.582, 991.741, 36.3782, 1.23145)
pt3dadd(775.542, 993.434, 34.6814, 1.21174)
pt3dadd(776.453, 995.181, 33.1252, 1.22164)
pt3dadd(777.492, 996.895, 31.9158, 1.22164)
}
dend[70] {pt3dclear()
pt3dadd(731.985, 896.563, 80.534, 1.61474)
pt3dadd(734.005, 896.968, 79.9952, 1.51337)
pt3dadd(736.038, 897.312, 79.5592, 1.17759)
pt3dadd(738.096, 897.283, 79.0322, 1.17759)
pt3dadd(740.153, 897.254, 78.5052, 1.23137)
pt3dadd(742.178, 897.627, 77.9781, 1.36771)
pt3dadd(744.124, 898.326, 77.6933, 1.36254)
pt3dadd(746.016, 899.076, 76.7951, 1.59612)
pt3dadd(747.974, 899.717, 76.2664, 1.29312)
pt3dadd(749.978, 900.226, 76.4188, 0.926606)
pt3dadd(752.019, 900.562, 76.2782, 0.965184)
pt3dadd(754.064, 900.893, 76.1377, 1.34153)
pt3dadd(756.055, 901.435, 75.8495, 1.34153)
pt3dadd(758.051, 901.982, 75.5613, 1.34153)
pt3dadd(760.046, 902.524, 75.2732, 1.06101)
pt3dadd(761.959, 903.298, 74.9241, 1.40498)
pt3dadd(763.925, 903.882, 74.2824, 1.91385)
pt3dadd(765.917, 904.325, 73.4174, 1.90155)
pt3dadd(767.92, 904.809, 73.0196, 1.314)
}
dend[71] {pt3dclear()
pt3dadd(767.92, 904.809, 73.0196, 1.314)
pt3dadd(769.332, 905.244, 71.191, 1.31904)
pt3dadd(771.224, 905.766, 69.5964, 0.978936)
pt3dadd(773.021, 906.552, 68.0018, 1.16641)
pt3dadd(774.611, 907.467, 65.6932, 1.25074)
pt3dadd(775.952, 908.511, 62.8291, 1.15125)
}
}
proc shape3d_13() {
dend[71] { pt3dadd(777.434, 909.604, 60.5424, 1.34248)
pt3dadd(779.04, 910.676, 58.7583, 1.1534)
pt3dadd(780.701, 911.645, 56.8856, 1.16857)
pt3dadd(782.41, 912.684, 55.6118, 1.15715)
pt3dadd(783.677, 914.112, 53.6788, 1.54465)
pt3dadd(785.544, 914.75, 52.1681, 1.27063)
pt3dadd(787.49, 914.915, 50.5158, 1.27063)
pt3dadd(789.436, 915.081, 48.8635, 1.32523)
pt3dadd(791.402, 915.391, 47.493, 1.25616)
pt3dadd(793.439, 915.664, 46.8558, 1.30591)
pt3dadd(795.451, 915.905, 45.8539, 1.30591)
pt3dadd(797.463, 916.149, 44.852, 1.28133)
pt3dadd(799.384, 916.654, 43.4328, 1.28133)
pt3dadd(801.305, 917.159, 42.0137, 1.36395)
pt3dadd(803.268, 917.552, 40.7644, 1.36395)
pt3dadd(805.234, 917.946, 39.5151, 1.05499)
pt3dadd(807.081, 918.736, 38.2912, 1.05499)
pt3dadd(808.923, 919.531, 37.0673, 1.14649)
pt3dadd(810.836, 920.31, 36.7381, 1.14079)
pt3dadd(812.765, 921.022, 36.2017, 1.1121)
pt3dadd(814.69, 921.725, 35.4998, 1.11754)
pt3dadd(816.524, 922.4, 33.829, 0.906006)
pt3dadd(817.911, 922.847, 33.0942, 0.906006)
}
dend[72] {pt3dclear()
pt3dadd(767.92, 904.809, 73.0196, 1.314)
pt3dadd(769.854, 905.546, 73.3057, 1.314)
pt3dadd(771.787, 906.279, 73.5918, 1.314)
pt3dadd(773.716, 907.012, 73.8779, 1.35573)
pt3dadd(775.567, 907.914, 73.2883, 1.38703)
pt3dadd(777.26, 909.103, 73.292, 0.939822)
pt3dadd(778.829, 910.436, 72.8305, 1.32784)
pt3dadd(780.436, 911.744, 72.676, 1.34684)
pt3dadd(782.373, 912.473, 72.7432, 1.34684)
pt3dadd(784.311, 913.197, 72.8104, 1.70704)
pt3dadd(786.302, 913.752, 72.5708, 1.70704)
pt3dadd(788.293, 914.302, 72.3313, 1.12536)
pt3dadd(790.347, 914.526, 71.9085, 1.12536)
pt3dadd(792.396, 914.75, 71.4857, 1.02264)
pt3dadd(794.379, 915.304, 70.981, 1.37229)
pt3dadd(796.408, 915.718, 71.1336, 1.35187)
pt3dadd(798.469, 915.88, 71.0687, 1.33851)
pt3dadd(800.51, 916.099, 70.3821, 1.31842)
pt3dadd(802.543, 916.464, 70.6215, 1.42566)
pt3dadd(804.365, 917.42, 70.0444, 1.42566)
pt3dadd(806.182, 918.376, 69.4673, 1.16567)
pt3dadd(807.987, 919.324, 68.6044, 1.16567)
pt3dadd(809.792, 920.272, 67.7414, 1.16567)
pt3dadd(811.597, 921.22, 66.8785, 1.16653)
pt3dadd(813.473, 921.953, 65.7167, 1.23589)
pt3dadd(815.232, 923.005, 65.0092, 1.23775)
pt3dadd(816.971, 924.11, 64.4846, 1.31974)
pt3dadd(818.818, 924.93, 63.3861, 1.38571)
pt3dadd(820.801, 925.497, 62.9618, 1.10511)
pt3dadd(822.833, 925.845, 62.5561, 1.10511)
pt3dadd(824.866, 926.188, 62.1503, 1.30445)
pt3dadd(826.849, 926.594, 61.1085, 1.34485)
pt3dadd(828.824, 927.215, 60.8978, 1.34485)
pt3dadd(830.794, 927.836, 60.6871, 1.28968)
pt3dadd(832.778, 928.428, 60.6818, 0.983042)
pt3dadd(834.761, 929.02, 60.9415, 1.03523)
pt3dadd(836.744, 929.608, 61.2011, 1.10702)
pt3dadd(838.731, 930.183, 61.0614, 1.23116)
pt3dadd(840.788, 930.391, 60.9216, 1.30918)
pt3dadd(842.817, 930.415, 59.9342, 1.14801)
pt3dadd(844.858, 930.391, 59.099, 1.09953)
pt3dadd(846.854, 930.933, 58.8457, 1.17129)
pt3dadd(848.911, 931.094, 58.4364, 1.16579)
pt3dadd(850.965, 931.19, 57.8758, 1.16242)
pt3dadd(853.006, 931.376, 57.1715, 1.30511)
pt3dadd(854.993, 931.852, 56.3882, 1.35454)
pt3dadd(856.893, 932.663, 56.1205, 1.13136)
pt3dadd(858.905, 933.127, 55.7211, 1.13136)
pt3dadd(860.917, 933.591, 55.3217, 1.1278)
pt3dadd(862.855, 934.303, 55.048, 1.13948)
pt3dadd(864.771, 934.998, 54.1416, 1.17188)
pt3dadd(866.684, 935.781, 54.1941, 0.768866)
pt3dadd(868.531, 936.716, 54.0676, 1.18953)
pt3dadd(870.46, 937.466, 53.95, 1.18953)
pt3dadd(872.464, 937.942, 53.4182, 1.18953)
pt3dadd(874.463, 938.418, 52.8864, 1.2032)
pt3dadd(876.504, 938.774, 52.7675, 0.743386)
pt3dadd(878.508, 939.275, 53.0501, 1.07873)
pt3dadd(880.508, 939.805, 52.891, 0.852476)
pt3dadd(882.553, 940.136, 52.9445, 0.97242)
pt3dadd(884.602, 940.355, 52.5002, 1.17621)
pt3dadd(886.643, 940.36, 51.6861, 1.15186)
pt3dadd(888.713, 940.364, 51.502, 0.875816)
pt3dadd(890.762, 940.157, 51.0078, 1.17359)
pt3dadd(892.828, 940.293, 51.1444, 1.44002)
pt3dadd(894.89, 940.177, 50.7707, 0.719302)
pt3dadd(896.956, 940.252, 50.9291, 1.20071)
pt3dadd(898.98, 940.645, 50.4943, 1.22113)
pt3dadd(901.001, 940.952, 49.6839, 1.20945)
pt3dadd(903.004, 941.333, 48.8172, 1.20945)
pt3dadd(904.925, 941.875, 47.5041, 1.20945)
pt3dadd(906.846, 942.421, 46.191, 1.20945)
pt3dadd(908.767, 942.964, 44.8779, 1.26949)
pt3dadd(910.647, 943.788, 44.2254, 1.1648)
pt3dadd(912.646, 944.259, 43.5728, 0.796872)
pt3dadd(914.704, 944.404, 43.8701, 1.17789)
pt3dadd(916.745, 944.313, 44.6754, 0.786054)
pt3dadd(918.699, 944.127, 46.274, 0.780996)
pt3dadd(920.62, 943.738, 47.8725, 1.28601)
pt3dadd(922.475, 944.64, 48.3392, 1.27872)
pt3dadd(925.617, 945.514, 49.7222, 1.27872)
}
dend[73] {pt3dclear()
pt3dstyle(1, 671.587, 879.829, 88.0109)
pt3dadd(660.98, 877.771, 87.3181, 4.16147)
pt3dadd(656.857, 877.556, 87.9567, 2.75763)
pt3dadd(653.785, 877.154, 88.3529, 2.19882)
}
dend[74] {pt3dclear()
pt3dadd(653.785, 877.154, 88.3529, 2.19882)
pt3dadd(651.164, 876.728, 87.9453, 1.98915)
pt3dadd(649.193, 876.169, 87.2558, 1.98915)
pt3dadd(647.169, 875.738, 87.2603, 1.47891)
pt3dadd(645.103, 875.602, 87.1486, 1.41253)
pt3dadd(643.05, 875.805, 87.5707, 1.37346)
pt3dadd(640.984, 875.66, 87.5238, 1.32377)
pt3dadd(638.955, 875.465, 86.6621, 1.33371)
pt3dadd(636.902, 875.213, 86.786, 1.28779)
pt3dadd(634.84, 875.043, 86.7792, 1.08127)
pt3dadd(632.795, 874.964, 86.0098, 1.11323)
pt3dadd(630.737, 874.724, 86.15, 1.15128)
pt3dadd(628.746, 874.223, 85.5608, 1.16933)
pt3dadd(626.75, 873.706, 85.963, 1.20388)
pt3dadd(624.73, 873.254, 85.9957, 1.21704)
pt3dadd(622.673, 873.076, 85.5756, 1.14168)
pt3dadd(620.615, 872.878, 85.3285, 1.15941)
pt3dadd(618.574, 872.571, 85.0222, 1.17175)
pt3dadd(616.525, 872.31, 85.3448, 1.24353)
pt3dadd(614.459, 872.294, 84.9213, 0.973322)
pt3dadd(612.393, 872.406, 84.8005, 1.14984)
pt3dadd(610.327, 872.281, 84.6647, 1.13774)
pt3dadd(608.265, 872.331, 84.2285, 1.15076)
pt3dadd(606.216, 872.588, 84.4091, 1.20798)
pt3dadd(604.187, 872.84, 83.6264, 1.19583)
pt3dadd(602.126, 873.018, 83.4479, 0.959726)
pt3dadd(600.081, 873.184, 82.7568, 1.24394)
pt3dadd(598.011, 873.242, 82.7009, 1.25356)
pt3dadd(595.974, 873.283, 81.8513, 1.65987)
pt3dadd(593.908, 873.412, 81.5987, 1.19897)
pt3dadd(591.867, 873.532, 80.8106, 1.19897)
pt3dadd(589.83, 873.652, 80.0225, 1.31212)
pt3dadd(587.785, 873.615, 79.2525, 0.860798)
}
dend[75] {pt3dclear()
pt3dadd(587.785, 873.615, 79.2525, 0.860798)
pt3dadd(586.402, 874.24, 76.8503, 1.41706)
pt3dadd(584.63, 874.703, 74.5197, 1.41706)
pt3dadd(582.734, 874.687, 72.5208, 1.31202)
pt3dadd(580.743, 874.438, 71.2955, 1.33031)
pt3dadd(578.739, 874.492, 70.034, 1.14691)
pt3dadd(576.748, 874.749, 68.8169, 1.35478)
pt3dadd(574.756, 875.01, 67.5997, 1.35478)
pt3dadd(573.005, 874.563, 65.1711, 1.43678)
pt3dadd(571.204, 873.867, 63.3745, 1.44426)
pt3dadd(569.37, 873.093, 61.985, 1.48349)
pt3dadd(567.673, 872.108, 60.3835, 1.70634)
pt3dadd(566.157, 870.928, 58.5207, 1.20964)
pt3dadd(564.837, 869.516, 56.7311, 1.20964)
pt3dadd(563.52, 868.104, 54.9415, 1.21424)
pt3dadd(562.39, 866.535, 53.1519, 1.29871)
pt3dadd(560.809, 865.33, 51.7598, 0.958476)
pt3dadd(559.384, 864.01, 50.0314, 1.2761)
pt3dadd(557.869, 862.805, 48.2703, 1.26972)
pt3dadd(556.615, 861.501, 45.8388, 1.26907)
pt3dadd(555.493, 859.928, 44.0273, 1.27721)
pt3dadd(554.176, 858.383, 43.0791, 1.27721)
pt3dadd(552.856, 856.839, 42.131, 1.1866)
pt3dadd(551.585, 855.374, 40.3895, 1.22106)
pt3dadd(549.958, 854.185, 39.2268, 0.935722)
pt3dadd(548.074, 853.556, 37.8149, 1.15983)
pt3dadd(546.182, 852.989, 36.3231, 1.15983)
pt3dadd(544.29, 852.418, 34.8313, 0.916546)
pt3dadd(541.607, 851.768, 32.1083, 0.916546)
}
dend[76] {pt3dclear()
pt3dadd(587.785, 873.615, 79.2525, 0.860798)
pt3dadd(585.715, 873.581, 79.0301, 1.22787)
pt3dadd(583.686, 873.337, 78.2484, 0.796306)
pt3dadd(581.645, 873.031, 77.8082, 0.796306)
pt3dadd(579.608, 872.724, 77.368, 1.01188)
pt3dadd(577.571, 872.397, 76.9516, 1.14032)
pt3dadd(575.518, 872.19, 76.5709, 1.14032)
pt3dadd(573.465, 871.983, 76.1902, 1.28473)
pt3dadd(571.44, 871.59, 75.7602, 1.02638)
pt3dadd(569.461, 871.039, 75.1331, 1.02638)
pt3dadd(567.482, 870.485, 74.506, 1.1473)
pt3dadd(565.433, 870.236, 74.1967, 0.95735)
pt3dadd(563.371, 870.389, 73.9095, 0.95735)
pt3dadd(561.31, 870.543, 73.6223, 0.98007)
pt3dadd(559.256, 870.278, 73.6707, 1.09868)
pt3dadd(557.223, 869.946, 73.2211, 1.33928)
pt3dadd(555.203, 869.495, 73.0772, 1.78205)
pt3dadd(553.17, 869.102, 72.9818, 1.3165)
pt3dadd(551.183, 868.535, 72.9627, 1.30713)
pt3dadd(549.175, 868.03, 72.7626, 1.3743)
pt3dadd(547.109, 867.901, 72.843, 1.3213)
pt3dadd(545.052, 867.897, 72.2861, 1.3601)
pt3dadd(543.002, 867.624, 72.345, 1.51299)
pt3dadd(540.966, 867.251, 72.3678, 1.0927)
pt3dadd(539.024, 866.572, 71.7935, 1.33527)
pt3dadd(537.086, 865.893, 71.1263, 1.33997)
pt3dadd(535.074, 865.426, 70.8036, 1.35594)
pt3dadd(533.037, 865.285, 69.9958, 1.35594)
pt3dadd(531.001, 865.144, 69.188, 1.36456)
pt3dadd(529.005, 864.664, 68.4973, 1.36456)
}
}
proc shape3d_14() {
dend[76] { pt3dadd(527.014, 864.188, 67.8067, 0.971054)
pt3dadd(524.989, 863.761, 67.5461, 0.971054)
pt3dadd(522.969, 863.331, 67.2855, 1.23362)
pt3dadd(520.953, 862.966, 66.5799, 1.29207)
pt3dadd(518.937, 862.95, 65.4238, 1.31836)
pt3dadd(516.912, 862.817, 64.4364, 1.69742)
pt3dadd(514.863, 862.557, 64.2249, 1.30215)
pt3dadd(512.88, 862.076, 63.3621, 1.31008)
pt3dadd(510.979, 861.294, 62.7179, 1.01187)
pt3dadd(509.009, 860.698, 62.2422, 1.13892)
pt3dadd(506.964, 860.437, 61.8029, 1.20469)
pt3dadd(504.977, 859.874, 61.4519, 1.34295)
pt3dadd(503.056, 859.137, 60.9257, 1.33456)
pt3dadd(501.085, 858.615, 60.0739, 1.12654)
pt3dadd(499.04, 858.309, 59.8459, 1.45802)
pt3dadd(497.057, 857.754, 59.3383, 0.997186)
pt3dadd(495.136, 857.108, 58.3054, 1.11646)
pt3dadd(493.194, 856.392, 58.1131, 1.12124)
pt3dadd(491.165, 855.978, 58.1719, 0.983432)
pt3dadd(489.199, 855.341, 58.1906, 0.983432)
pt3dadd(487.228, 854.707, 58.2092, 1.54649)
pt3dadd(485.191, 854.339, 58.2554, 1.54649)
pt3dadd(483.155, 853.974, 58.3015, 1.557)
pt3dadd(481.213, 853.283, 57.7866, 1.557)
pt3dadd(479.275, 852.592, 57.2717, 1.22259)
pt3dadd(477.619, 851.416, 56.2921, 1.31455)
pt3dadd(475.872, 850.389, 55.254, 1.36318)
pt3dadd(474.047, 849.677, 53.6642, 1.38335)
pt3dadd(472.121, 848.953, 53.0388, 1.13039)
pt3dadd(470.395, 847.918, 51.908, 1.10449)
pt3dadd(468.594, 847.032, 50.6619, 1.1837)
pt3dadd(466.644, 846.481, 49.6576, 1.1837)
pt3dadd(464.69, 845.93, 48.6533, 1.38409)
pt3dadd(462.674, 845.657, 47.745, 1.30464)
pt3dadd(460.633, 845.641, 46.9394, 1.51258)
pt3dadd(458.608, 845.496, 45.952, 2.20611)
pt3dadd(456.634, 845.901, 44.7902, 1.43592)
pt3dadd(454.688, 846.535, 44.0376, 1.06103)
pt3dadd(452.68, 846.808, 43.0191, 1.08244)
pt3dadd(450.627, 847.044, 42.7801, 1.08244)
pt3dadd(448.573, 847.284, 42.5412, 1.22729)
pt3dadd(446.516, 847.479, 42.2547, 1.22729)
pt3dadd(444.458, 847.673, 41.9682, 1.22729)
pt3dadd(442.4, 847.868, 41.6817, 1.32865)
pt3dadd(440.339, 847.76, 41.372, 1.31449)
pt3dadd(438.393, 847.052, 41.2294, 1.04518)
pt3dadd(436.546, 846.121, 41.4612, 1.02153)
pt3dadd(434.953, 845.434, 41.2584, 1.02153)
}
dend[77] {pt3dclear()
pt3dadd(653.785, 877.154, 88.3529, 2.19882)
pt3dadd(651.764, 877.361, 89.3102, 1.7305)
pt3dadd(649.74, 877.564, 90.2674, 1.7305)
pt3dadd(647.72, 877.767, 91.2247, 2.02506)
pt3dadd(645.687, 878.119, 91.6058, 1.8853)
}
dend[78] {pt3dclear()
pt3dadd(645.687, 878.119, 91.6058, 1.8853)
pt3dadd(644.47, 876.231, 93.2834, 1.08999)
pt3dadd(643.079, 874.848, 94.8982, 1.08999)
pt3dadd(641.638, 873.594, 96.8291, 0.953408)
pt3dadd(640.201, 872.339, 98.76, 0.953408)
pt3dadd(638.872, 871.114, 101.2, 1.51785)
pt3dadd(637.668, 869.773, 103.656, 1.39016)
pt3dadd(636.612, 868.605, 106.897, 1.44161)
pt3dadd(635.345, 867.665, 110.139, 1.41037)
pt3dadd(634.136, 866.473, 113.001, 1.44536)
pt3dadd(633.014, 865.537, 116.55, 1.75052)
pt3dadd(632.178, 864.511, 120.39, 1.20662)
pt3dadd(631.18, 863.339, 123.727, 1.52552)
pt3dadd(630.017, 862.403, 127.201, 1.52511)
pt3dadd(629.114, 861.339, 130.89, 1.31776)
pt3dadd(627.955, 860.139, 133.848, 1.55682)
pt3dadd(627.111, 858.611, 136.531, 1.34262)
pt3dadd(626.548, 856.914, 139.059, 1.34262)
pt3dadd(625.985, 855.221, 141.587, 1.448)
pt3dadd(625.281, 853.548, 143.99, 1.48596)
pt3dadd(624.32, 852.099, 146.698, 1.63427)
pt3dadd(623.136, 850.687, 148.987, 1.22836)
pt3dadd(621.824, 849.329, 151.034, 1.37407)
pt3dadd(620.594, 847.868, 152.96, 1.38432)
pt3dadd(619.804, 846.249, 155.432, 1.56817)
pt3dadd(618.69, 844.771, 157.672, 1.2755)
pt3dadd(617.315, 843.55, 159.96, 1.2755)
pt3dadd(615.937, 842.329, 162.249, 1.33922)
pt3dadd(614.724, 841.041, 164.83, 1.43614)
pt3dadd(613.287, 839.998, 167.411, 1.48077)
pt3dadd(611.9, 838.785, 169.688, 1.43088)
pt3dadd(610.613, 837.452, 171.911, 1.47908)
pt3dadd(609.209, 836.032, 173.228, 1.54806)
pt3dadd(607.731, 834.852, 175.275, 1.29422)
pt3dadd(606.228, 833.684, 177.224, 1.38163)
pt3dadd(604.622, 832.529, 178.721, 1.50473)
pt3dadd(602.842, 831.676, 180.201, 1.43805)
pt3dadd(600.983, 830.939, 181.522, 1.1638)
pt3dadd(599.178, 830.078, 182.791, 1.63239)
pt3dadd(597.489, 829.147, 184.606, 1.19917)
pt3dadd(596.127, 827.884, 186.821, 1.3747)
pt3dadd(595.444, 826.183, 189.139, 1.37864)
pt3dadd(594.877, 824.576, 191.976, 1.22565)
pt3dadd(593.883, 823.107, 194.55, 1.22938)
pt3dadd(592.98, 821.645, 197.346, 1.34808)
pt3dadd(591.983, 820.043, 199.4, 1.25829)
pt3dadd(591.093, 818.461, 201.804, 1.50454)
pt3dadd(590.136, 817.273, 205.184, 1.52089)
pt3dadd(588.807, 816.433, 208.433, 1.05417)
pt3dadd(587.06, 815.783, 210.616, 1.14365)
pt3dadd(585.284, 814.909, 212.075, 1.17895)
pt3dadd(583.612, 814.172, 214.416, 1.43867)
pt3dadd(581.873, 813.431, 216.464, 1.80092)
pt3dadd(580.18, 812.405, 217.921, 1.80255)
pt3dadd(578.524, 811.233, 218.876, 1.40769)
pt3dadd(576.429, 809.958, 219.869, 1.40769)
}
dend[79] {pt3dclear()
pt3dadd(645.687, 878.119, 91.6058, 1.8853)
pt3dadd(643.691, 878.674, 91.7466, 1.8853)
pt3dadd(641.7, 879.228, 91.8875, 1.95858)
}
dend[80] {pt3dclear()
pt3dadd(641.7, 879.228, 91.8875, 1.95858)
pt3dadd(638.951, 878.227, 93.6309, 1.21119)
pt3dadd(637.129, 877.585, 95.4126, 1.21119)
pt3dadd(635.341, 876.736, 96.8733, 1.16293)
pt3dadd(633.482, 876.007, 98.2132, 0.865524)
pt3dadd(631.648, 875.192, 99.4047, 1.252)
pt3dadd(629.748, 874.699, 101.006, 1.16512)
pt3dadd(627.914, 873.929, 102.38, 1.17717)
pt3dadd(626.142, 872.985, 103.616, 1.1472)
pt3dadd(624.374, 872.041, 104.852, 1.1472)
pt3dadd(622.722, 871.068, 106.749, 1.37886)
pt3dadd(621.257, 869.781, 108.417, 1.31389)
pt3dadd(619.654, 868.688, 110.168, 1.10812)
pt3dadd(617.858, 867.765, 111.238, 1.28048)
pt3dadd(616.065, 866.796, 112.133, 1.28048)
pt3dadd(614.273, 865.827, 113.027, 1.28048)
pt3dadd(612.484, 864.858, 113.921, 1.04121)
pt3dadd(610.7, 863.828, 114.431, 1.14862)
pt3dadd(608.866, 862.9, 115.017, 1.17885)
pt3dadd(606.965, 862.143, 115.802, 1.17885)
pt3dadd(605.065, 861.389, 116.587, 1.17885)
pt3dadd(603.165, 860.631, 117.372, 1.10179)
pt3dadd(601.302, 859.733, 117.44, 1.13472)
pt3dadd(599.364, 859.087, 118.252, 1.19184)
pt3dadd(597.547, 858.11, 118.603, 1.06846)
pt3dadd(595.572, 857.626, 119.526, 1.06846)
pt3dadd(593.593, 857.137, 120.448, 1.33019)
pt3dadd(591.701, 856.371, 121.259, 1.17754)
pt3dadd(589.838, 855.577, 122.298, 1.01712)
pt3dadd(588.141, 854.484, 123.393, 1.00012)
pt3dadd(586.336, 853.548, 124.319, 1.30598)
pt3dadd(584.419, 852.857, 125.213, 1.07411)
pt3dadd(582.556, 852.024, 126.055, 1.18788)
pt3dadd(580.681, 851.217, 126.898, 1.19124)
pt3dadd(578.714, 850.613, 127.395, 1.1183)
pt3dadd(576.897, 849.673, 128.192, 1.24459)
pt3dadd(575.17, 848.584, 129.003, 1.27945)
pt3dadd(573.543, 847.309, 129.181, 1.2867)
pt3dadd(571.875, 846.17, 130.289, 1.33517)
pt3dadd(570.103, 845.14, 131.018, 1.31746)
pt3dadd(568.285, 844.154, 130.928, 1.25619)
pt3dadd(566.46, 843.227, 131.656, 1.28283)
pt3dadd(564.729, 842.093, 131.567, 1.28518)
pt3dadd(563.123, 840.83, 132.382, 0.937926)
pt3dadd(561.645, 839.418, 133.185, 1.02846)
pt3dadd(559.939, 838.3, 134.036, 1.02846)
pt3dadd(558.229, 837.187, 134.887, 1.16758)
pt3dadd(556.362, 836.326, 135.419, 1.16758)
pt3dadd(554.491, 835.464, 135.95, 1.25683)
pt3dadd(552.533, 834.93, 136.929, 1.24486)
pt3dadd(550.566, 834.285, 137.135, 1.24486)
pt3dadd(548.604, 833.643, 137.34, 1.29772)
pt3dadd(546.617, 833.063, 137.543, 0.983954)
pt3dadd(544.551, 832.972, 137.718, 1.07451)
pt3dadd(542.535, 832.521, 138.089, 1.09289)
pt3dadd(540.556, 832.074, 139.089, 1.21489)
pt3dadd(538.506, 831.858, 139.483, 1.24359)
pt3dadd(536.449, 832.057, 139.877, 1.08268)
pt3dadd(534.395, 831.921, 140.354, 1.37456)
pt3dadd(532.358, 831.622, 140.905, 1.37456)
pt3dadd(530.322, 831.32, 141.455, 1.37456)
pt3dadd(528.289, 831.022, 142.005, 1.1933)
pt3dadd(526.227, 830.906, 142.309, 1.26555)
pt3dadd(524.182, 831.175, 142.78, 1.31843)
pt3dadd(522.12, 831.047, 143.141, 1.28382)
pt3dadd(520.054, 831.002, 142.908, 1.22784)
pt3dadd(517.984, 830.989, 143.057, 1.30603)
pt3dadd(515.927, 831.101, 143.504, 1.28332)
pt3dadd(513.869, 831.283, 143.821, 1.28332)
pt3dadd(511.832, 831.556, 144.421, 1.4494)
pt3dadd(510.011, 832.248, 146.117, 1.55038)
pt3dadd(508.326, 833.279, 147.616, 1.34822)
pt3dadd(506.699, 834.338, 149.344, 1.44515)
pt3dadd(505.018, 835.27, 151.19, 1.4708)
pt3dadd(503.167, 835.998, 152.601, 1.33227)
pt3dadd(501.279, 836.392, 154.412, 1.06923)
pt3dadd(499.251, 836.45, 155.386, 1.49384)
pt3dadd(497.305, 836.913, 156.661, 1.49384)
pt3dadd(495.355, 837.377, 157.937, 1.19636)
pt3dadd(493.36, 837.721, 158.981, 1.19636)
pt3dadd(491.364, 838.064, 160.025, 1.3851)
pt3dadd(489.398, 838.122, 161.574, 1.18264)
pt3dadd(487.423, 837.779, 162.811, 1.11136)
pt3dadd(485.374, 837.762, 163.482, 1.11136)
pt3dadd(482.91, 837.746, 164.286, 1.11136)
}
dend[81] {pt3dclear()
pt3dadd(641.7, 879.228, 91.8875, 1.95858)
pt3dadd(639.854, 880.16, 92.0283, 1.3701)
pt3dadd(638.061, 881.195, 92.0701, 1.3701)
}
}
proc shape3d_15() {
dend[81] { pt3dadd(636.268, 882.23, 92.112, 1.45367)
pt3dadd(634.364, 883.045, 92.0384, 1.47404)
pt3dadd(632.522, 883.989, 92.1994, 1.53757)
pt3dadd(630.663, 884.884, 92.5193, 1.53757)
pt3dadd(628.8, 885.778, 92.8393, 1.5521)
pt3dadd(626.953, 886.672, 93.519, 1.54964)
pt3dadd(625.157, 887.546, 94.8251, 1.73704)
pt3dadd(623.484, 888.755, 95.2548, 1.90894)
pt3dadd(621.845, 890.001, 95.6844, 1.17317)
}
dend[82] {pt3dclear()
pt3dadd(621.845, 890.001, 95.6844, 1.17317)
pt3dadd(619.833, 889.703, 96.1671, 1.1968)
pt3dadd(617.763, 889.607, 96.1071, 1.1968)
pt3dadd(615.717, 889.881, 96.4324, 1.13991)
pt3dadd(613.689, 890.27, 96.7612, 1.06196)
pt3dadd(611.664, 890.7, 96.8581, 0.901584)
pt3dadd(609.603, 890.746, 97.277, 1.07105)
pt3dadd(607.537, 890.796, 97.6959, 1.07105)
pt3dadd(605.521, 891.218, 98.1607, 0.978356)
pt3dadd(603.504, 891.636, 98.6255, 0.978356)
pt3dadd(601.488, 892.058, 99.0903, 0.978356)
pt3dadd(599.468, 892.481, 99.5551, 0.978356)
pt3dadd(597.427, 892.745, 100.047, 1.10324)
pt3dadd(595.382, 893.01, 100.539, 1.242)
pt3dadd(593.415, 893.607, 101.077, 1.36782)
pt3dadd(591.374, 893.847, 101.685, 1.35061)
pt3dadd(589.321, 894.116, 101.662, 1.27908)
pt3dadd(587.284, 894.48, 101.817, 1.27908)
pt3dadd(585.247, 894.844, 101.971, 1.43699)
pt3dadd(583.202, 894.96, 102.687, 1.07209)
pt3dadd(581.177, 894.815, 103.65, 1.07209)
pt3dadd(579.149, 894.666, 104.612, 1.18483)
pt3dadd(577.112, 894.873, 105.348, 1.31561)
pt3dadd(575.079, 894.729, 106.224, 1.25413)
pt3dadd(573.075, 894.637, 107.466, 1.24642)
pt3dadd(571.154, 894.55, 109.315, 1.29406)
pt3dadd(569.122, 894.464, 110.227, 1.29406)
pt3dadd(567.089, 894.377, 111.14, 1.42059)
pt3dadd(565.052, 894.377, 112.053, 1.49791)
pt3dadd(563.019, 894.037, 112.503, 1.06892)
pt3dadd(561.123, 893.284, 113.297, 1.06892)
pt3dadd(559.223, 892.526, 114.09, 1.14346)
pt3dadd(557.223, 892.108, 114.884, 1.25214)
pt3dadd(555.273, 891.462, 115.544, 1.4323)
pt3dadd(553.274, 891.089, 116.457, 1.20292)
pt3dadd(551.245, 890.945, 117.371, 1.19848)
pt3dadd(549.183, 890.796, 117.65, 1.23307)
pt3dadd(547.142, 890.887, 118.464, 0.986354)
pt3dadd(545.081, 890.717, 118.698, 1.31851)
pt3dadd(543.031, 890.589, 119.275, 1.0305)
pt3dadd(540.974, 890.572, 119.853, 1.20553)
pt3dadd(538.92, 890.382, 120.321, 1.26843)
pt3dadd(536.954, 889.814, 121.02, 1.28482)
pt3dadd(534.958, 889.305, 121.59, 1.00725)
pt3dadd(532.913, 889.189, 122.268, 1.08937)
pt3dadd(530.889, 888.87, 122.994, 1.08937)
pt3dadd(528.868, 888.552, 123.721, 1.10194)
pt3dadd(526.819, 888.37, 124.348, 1.31715)
pt3dadd(524.753, 888.316, 124.643, 0.921796)
pt3dadd(522.696, 888.44, 125.084, 1.27722)
pt3dadd(520.659, 888.75, 125.541, 1.03414)
pt3dadd(518.597, 888.891, 125.713, 1.37538)
pt3dadd(516.556, 889.226, 125.513, 1.37538)
pt3dadd(514.515, 889.562, 125.313, 1.37538)
pt3dadd(512.474, 889.901, 125.113, 1.2154)
pt3dadd(510.425, 890.187, 124.958, 1.34252)
pt3dadd(508.355, 890.104, 124.822, 1.21352)
pt3dadd(506.31, 889.968, 125.486, 1.26219)
pt3dadd(504.252, 890.174, 125.639, 1.31617)
pt3dadd(502.248, 890.444, 126.737, 1.31617)
pt3dadd(500.22, 890.394, 127.732, 1.38419)
pt3dadd(498.187, 890.692, 128.272, 1.38419)
pt3dadd(496.15, 890.994, 128.813, 1.06883)
pt3dadd(494.097, 891.094, 129.428, 1.15816)
pt3dadd(492.064, 890.808, 130.042, 1.28346)
pt3dadd(490.006, 890.887, 130.583, 0.995902)
pt3dadd(487.953, 891.048, 131.124, 0.995902)
pt3dadd(485.904, 891.205, 131.664, 0.995902)
pt3dadd(483.85, 891.367, 132.205, 1.30725)
pt3dadd(481.813, 891.421, 133.062, 1.0808)
pt3dadd(479.797, 891.044, 133.729, 1.10636)
pt3dadd(477.793, 890.829, 134.873, 1.21949)
pt3dadd(475.789, 890.502, 135.844, 1.24837)
pt3dadd(473.724, 890.386, 135.989, 1.30723)
pt3dadd(471.699, 890.377, 137.053, 1.30723)
pt3dadd(469.679, 890.369, 138.118, 1.30322)
pt3dadd(467.617, 890.34, 138.551, 0.967054)
pt3dadd(465.593, 890.348, 139.605, 1.14129)
pt3dadd(463.539, 890.324, 140.217, 1.14129)
pt3dadd(461.486, 890.299, 140.828, 1.18162)
pt3dadd(459.424, 890.502, 140.872, 1.20101)
pt3dadd(457.395, 890.564, 141.847, 1.53777)
pt3dadd(455.342, 890.353, 142.227, 1.14859)
pt3dadd(453.284, 890.121, 142.375, 1.161)
pt3dadd(451.214, 890.15, 142.522, 1.25943)
pt3dadd(449.178, 889.806, 142.84, 1.25943)
pt3dadd(447.141, 889.467, 143.157, 0.928784)
pt3dadd(445.116, 889.193, 143.985, 1.20634)
pt3dadd(443.075, 888.999, 144.633, 1.20634)
pt3dadd(441.03, 888.804, 145.281, 1.20634)
pt3dadd(438.989, 888.61, 145.93, 1.20634)
pt3dadd(436.944, 888.411, 146.578, 1.4173)
pt3dadd(434.911, 888.266, 147.453, 1.13562)
pt3dadd(432.891, 888.204, 148.524, 1.21166)
pt3dadd(430.837, 888.411, 148.916, 1.05085)
pt3dadd(428.784, 888.622, 149.308, 1.05085)
pt3dadd(426.73, 888.829, 149.7, 1.11749)
pt3dadd(424.76, 889.421, 150.239, 1.0751)
pt3dadd(422.719, 889.429, 151.016, 1.46085)
pt3dadd(420.715, 889.578, 152.249, 1.47666)
pt3dadd(418.782, 890.121, 153.45, 1.07635)
pt3dadd(416.985, 890.899, 155.071, 1.25805)
pt3dadd(414.683, 891.76, 157.455, 1.25805)
}
dend[83] {pt3dclear()
pt3dadd(621.845, 890.001, 95.6844, 1.17317)
pt3dadd(620.251, 891.309, 96.1141, 1.17319)
pt3dadd(618.504, 892.402, 96.6142, 1.25333)
pt3dadd(616.997, 893.809, 97.1219, 1.41095)
pt3dadd(615.283, 894.96, 97.4639, 1.32139)
pt3dadd(613.614, 896.186, 97.5559, 1.32139)
pt3dadd(611.95, 897.411, 97.648, 1.30523)
pt3dadd(610.19, 898.484, 98.204, 1.3979)
pt3dadd(608.783, 899.99, 98.6113, 1.3979)
pt3dadd(607.379, 901.502, 99.0187, 1.3979)
pt3dadd(605.972, 903.009, 99.426, 1.4277)
pt3dadd(604.411, 904.35, 100.023, 1.27783)
pt3dadd(602.875, 905.613, 101.409, 1.34765)
pt3dadd(601.285, 906.925, 101.86, 1.34765)
pt3dadd(599.696, 908.237, 102.312, 1.35364)
pt3dadd(598.4, 909.835, 102.826, 1.39881)
pt3dadd(597.195, 911.429, 104.149, 1.26321)
}
dend[84] {pt3dclear()
pt3dadd(597.195, 911.429, 104.149, 1.26321)
pt3dadd(595.779, 913.814, 105.25, 1.57592)
pt3dadd(595.208, 915.722, 106.6, 1.57592)
pt3dadd(594.131, 917.449, 107.5, 1.4278)
pt3dadd(592.939, 919.101, 108.402, 1.50144)
pt3dadd(591.743, 920.748, 109.304, 1.50144)
pt3dadd(590.439, 922.301, 110.328, 1.25763)
pt3dadd(589.577, 924.176, 110.681, 1.7279)
pt3dadd(588.29, 925.774, 111.31, 1.15096)
pt3dadd(587.015, 927.335, 112.46, 1.15096)
pt3dadd(585.744, 928.896, 113.61, 1.15096)
pt3dadd(584.469, 930.461, 114.76, 1.16157)
pt3dadd(583.098, 931.935, 115.91, 1.2179)
pt3dadd(581.687, 933.425, 116.576, 1.2179)
pt3dadd(580.275, 934.911, 117.242, 1.22289)
pt3dadd(579.041, 936.567, 117.674, 1.33812)
pt3dadd(577.551, 937.979, 118.329, 1.54947)
pt3dadd(576.23, 939.544, 118.984, 1.56916)
pt3dadd(574.951, 941.159, 119.504, 1.36882)
pt3dadd(573.845, 942.873, 120.378, 1.36882)
pt3dadd(572.736, 944.582, 121.251, 1.48609)
pt3dadd(571.477, 946.185, 122.143, 0.931458)
pt3dadd(570.111, 947.629, 123.512, 1.34482)
pt3dadd(568.633, 948.979, 124.821, 1.61341)
pt3dadd(567.019, 950.2, 125.831, 1.0932)
pt3dadd(565.346, 951.397, 126.418, 1.2192)
pt3dadd(563.885, 952.8, 127.427, 1.47836)
pt3dadd(562.382, 954.208, 127.984, 1.18195)
pt3dadd(560.68, 955.375, 128.339, 1.29926)
pt3dadd(558.809, 956.232, 128.876, 1.29926)
pt3dadd(556.938, 957.094, 129.413, 1.3018)
pt3dadd(554.971, 957.652, 130.188, 1.11253)
pt3dadd(553.236, 958.683, 131.275, 1.46072)
pt3dadd(551.659, 959.938, 132.413, 1.27534)
pt3dadd(550.136, 961.329, 132.894, 1.27534)
pt3dadd(548.616, 962.72, 133.375, 1.28263)
pt3dadd(547.076, 964.028, 134.461, 1.71532)
pt3dadd(545.727, 965.489, 135.841, 1.53731)
pt3dadd(544.948, 967.332, 137.146, 1.40434)
pt3dadd(544.621, 969.373, 137.12, 1.5846)
pt3dadd(543.988, 971.343, 136.942, 1.12163)
pt3dadd(542.915, 973.111, 136.59, 1.64105)
pt3dadd(541.595, 974.68, 135.95, 1.36695)
pt3dadd(539.964, 975.943, 135.557, 1.41302)
pt3dadd(538.204, 977.019, 135.968, 1.41302)
pt3dadd(536.44, 978.092, 136.38, 1.1777)
pt3dadd(534.735, 979.255, 136.791, 1.28223)
pt3dadd(533.451, 980.853, 137.506, 1.28223)
pt3dadd(532.172, 982.451, 138.221, 1.28223)
pt3dadd(530.889, 984.045, 138.937, 1.42469)
pt3dadd(529.398, 985.481, 139.12, 1.42489)
pt3dadd(528.045, 987.042, 139.355, 1.49403)
pt3dadd(526.505, 988.413, 139.87, 1.87503)
pt3dadd(525.018, 989.833, 140.465, 1.87503)
pt3dadd(523.532, 991.253, 141.061, 1.31077)
pt3dadd(521.897, 992.507, 141.539, 1.31077)
pt3dadd(520.125, 993.567, 141.739, 1.31377)
pt3dadd(518.589, 994.945, 142.196, 1.60109)
pt3dadd(517.173, 996.44, 142.652, 1.72443)
pt3dadd(515.861, 998.026, 143.188, 1.25194)
pt3dadd(514.991, 999.901, 143.577, 1.59797)
pt3dadd(514.196, 1001.8, 144.147, 1.59797)
pt3dadd(513.401, 1003.69, 144.717, 1.6385)
pt3dadd(512.474, 1005.54, 145.097, 1.57414)
pt3dadd(510.764, 1007.86, 144.406, 1.57414)
}
dend[85] {pt3dclear()
pt3dadd(597.195, 911.429, 104.149, 1.26321)
pt3dadd(595.829, 912.924, 105.169, 1.40358)
pt3dadd(593.974, 913.814, 105.714, 1.09823)
pt3dadd(592.219, 914.886, 106.258, 1.38832)
pt3dadd(590.629, 916.203, 106.702, 1.38832)
pt3dadd(589.043, 917.519, 107.146, 1.09152)
}
}
proc shape3d_16() {
dend[85] { pt3dadd(587.325, 918.674, 107.007, 1.5751)
pt3dadd(585.748, 920.011, 106.956, 1.01553)
pt3dadd(584.307, 921.498, 107.13, 1.19391)
pt3dadd(582.78, 922.885, 107.474, 1.4943)
pt3dadd(581.045, 924.011, 107.773, 1.13382)
pt3dadd(579.389, 925.249, 107.951, 1.34774)
pt3dadd(577.679, 926.42, 107.964, 1.31283)
pt3dadd(575.828, 927.331, 107.591, 1.35622)
pt3dadd(573.92, 928.13, 107.323, 1.19748)
pt3dadd(571.97, 928.78, 107.847, 1.18497)
pt3dadd(570.012, 929.451, 108.002, 1.2662)
pt3dadd(568.215, 930.477, 108.087, 1.2662)
pt3dadd(566.418, 931.504, 108.171, 1.40329)
pt3dadd(564.526, 932.34, 108.325, 1.09313)
pt3dadd(562.742, 933.346, 109.108, 1.26633)
pt3dadd(561.016, 934.473, 109.585, 1.30856)
pt3dadd(559.128, 935.313, 109.477, 0.925)
pt3dadd(557.19, 936.042, 109.626, 1.1298)
pt3dadd(555.232, 936.679, 110.12, 1.20384)
pt3dadd(553.414, 937.536, 111.319, 1.49292)
pt3dadd(551.725, 938.72, 111.668, 1.14519)
pt3dadd(549.945, 939.772, 111.377, 1.1907)
pt3dadd(548.008, 940.505, 111.557, 1.2195)
pt3dadd(546.012, 941.043, 111.412, 0.900666)
pt3dadd(544.013, 941.461, 110.575, 0.979962)
pt3dadd(542.013, 941.982, 110.41, 1.15638)
pt3dadd(540.125, 942.827, 110.247, 0.927418)
pt3dadd(538.332, 943.862, 110.085, 0.927418)
pt3dadd(536.54, 944.897, 109.923, 0.942926)
pt3dadd(534.731, 945.899, 109.702, 1.26658)
pt3dadd(532.826, 946.706, 109.518, 1.26658)
pt3dadd(530.922, 947.518, 109.333, 1.4057)
pt3dadd(528.91, 947.981, 109.149, 1.31532)
pt3dadd(527.059, 948.826, 108.193, 1.43967)
pt3dadd(525.205, 949.559, 106.859, 1.45042)
pt3dadd(523.544, 950.627, 105.35, 1.7227)
pt3dadd(521.963, 951.91, 104.483, 1.32774)
pt3dadd(520.27, 952.991, 103.251, 1.20981)
pt3dadd(518.423, 953.914, 102.943, 1.20981)
pt3dadd(516.577, 954.837, 102.636, 1.5168)
pt3dadd(514.656, 955.62, 102.645, 1.64269)
pt3dadd(513.145, 957.031, 102.469, 0.999032)
pt3dadd(511.779, 958.563, 101.825, 1.02871)
pt3dadd(510.342, 960.008, 100.953, 1.20827)
pt3dadd(509.104, 961.585, 99.7031, 1.51014)
pt3dadd(507.957, 963.084, 97.6534, 1.76248)
pt3dadd(506.96, 964.769, 96.0269, 1.26484)
pt3dadd(505.85, 966.259, 93.8268, 1.26264)
pt3dadd(504.496, 967.704, 92.3851, 1.2185)
pt3dadd(502.563, 967.646, 90.6034, 1.30203)
pt3dadd(500.841, 967.423, 87.8812, 1.53762)
pt3dadd(499.396, 967.663, 84.3439, 1.37532)
pt3dadd(499.325, 969.605, 82.62, 1.38507)
pt3dadd(499.127, 971.447, 80.4034, 1.40828)
pt3dadd(498.435, 973.289, 78.8476, 1.04533)
pt3dadd(496.825, 974.506, 77.7528, 0.982058)
pt3dadd(495.053, 975.471, 76.6191, 1.39972)
pt3dadd(493.285, 976.344, 75.0892, 1.61608)
pt3dadd(491.43, 976.676, 73.0158, 0.98036)
pt3dadd(490.048, 976.291, 69.4205, 1.02402)
pt3dadd(489.447, 978.087, 67.387, 1.05903)
pt3dadd(488.951, 980.033, 66.2134, 0.8191)
pt3dadd(489.013, 982.832, 64.3954, 0.8191)
}
dend[86] {pt3dclear()
pt3dstyle(1, 671.587, 879.829, 88.0109)
pt3dadd(661.555, 881.803, 81.1691, 2.52012)
pt3dadd(658.289, 883.994, 78.1192, 2.00597)
pt3dadd(656.84, 885.347, 76.6718, 2.00597)
pt3dadd(655.391, 886.697, 75.2244, 1.60048)
pt3dadd(653.843, 887.935, 73.777, 1.67975)
pt3dadd(652.294, 889.173, 72.3296, 1.50051)
}
dend[87] {pt3dclear()
pt3dadd(652.294, 889.173, 72.3296, 1.50051)
pt3dadd(649.268, 892.327, 71.0577, 2.10796)
}
dend[88] {pt3dclear()
pt3dadd(649.268, 892.327, 71.0577, 2.10796)
pt3dadd(649.231, 890.961, 67.8932, 1.49324)
pt3dadd(649.504, 891.172, 57.9281, 1.49324)
pt3dadd(649.338, 891.04, 52.9548, 1.4134)
pt3dadd(649.289, 890.961, 47.9597, 1.31998)
pt3dadd(649.69, 891.698, 43.3916, 1.30225)
pt3dadd(649.744, 892.99, 39.486, 1.42437)
pt3dadd(649.79, 894.397, 35.8211, 1.36765)
pt3dadd(649.583, 895.875, 32.3565, 1.277)
pt3dadd(649.289, 896.227, 30.5728, 1.277)
}
dend[89] {pt3dclear()
pt3dadd(649.268, 892.327, 71.0577, 2.10796)
pt3dadd(647.542, 893.458, 71.3914, 1.56486)
pt3dadd(645.679, 894.356, 71.1541, 1.1233)
pt3dadd(643.816, 895.254, 70.9168, 1.1233)
pt3dadd(642.039, 896.31, 70.6015, 0.92221)
pt3dadd(640.239, 897.32, 70.3541, 1.28627)
pt3dadd(638.471, 898.397, 70.2577, 1.32798)
pt3dadd(636.703, 899.477, 70.337, 1.37573)
pt3dadd(634.91, 900.487, 69.8649, 1.6127)
pt3dadd(633.176, 901.617, 69.9443, 1.30049)
pt3dadd(631.437, 902.748, 70.0236, 1.30049)
pt3dadd(629.586, 903.659, 70.2998, 1.55552)
pt3dadd(627.79, 904.689, 70.5409, 1.75877)
pt3dadd(625.997, 905.716, 70.782, 1.71017)
}
dend[90] {pt3dclear()
pt3dadd(625.997, 905.716, 70.782, 1.71017)
pt3dadd(623.629, 905.679, 70.2398, 1.31493)
pt3dadd(621.567, 905.832, 70.3889, 1.31493)
pt3dadd(619.572, 906.333, 70.9164, 1.22121)
pt3dadd(617.589, 906.908, 70.5336, 1.43169)
pt3dadd(615.548, 907.26, 70.7126, 1.51782)
pt3dadd(613.56, 907.827, 70.68, 1.01092)
pt3dadd(611.528, 908.184, 70.2599, 0.94613)
pt3dadd(609.499, 908.419, 69.4612, 0.94613)
pt3dadd(607.466, 908.655, 68.6625, 1.2567)
pt3dadd(605.446, 908.713, 67.6076, 1.1572)
pt3dadd(603.446, 909.003, 66.511, 1.15145)
pt3dadd(601.443, 909.359, 65.5876, 1.17949)
pt3dadd(599.451, 909.84, 64.8548, 1.29698)
pt3dadd(597.427, 910.233, 64.5197, 0.945774)
pt3dadd(595.373, 910.448, 64.1153, 1.15875)
pt3dadd(593.337, 910.792, 63.7809, 1.15875)
pt3dadd(591.3, 911.131, 63.4466, 1.22643)
pt3dadd(589.242, 911.082, 62.9446, 0.79541)
pt3dadd(587.193, 911.181, 62.2863, 0.902934)
pt3dadd(585.164, 911.582, 61.9915, 1.25483)
pt3dadd(583.189, 912.199, 62.1879, 1.25426)
pt3dadd(581.227, 912.837, 61.7465, 1.3042)
pt3dadd(579.207, 913.251, 62.089, 1.46673)
pt3dadd(577.162, 912.953, 61.7626, 1.13698)
pt3dadd(575.121, 912.642, 61.429, 1.17768)
pt3dadd(573.059, 912.738, 61.0862, 1.21848)
pt3dadd(571.03, 912.924, 60.172, 1.21062)
pt3dadd(569.006, 913.243, 59.4573, 1.30261)
pt3dadd(566.944, 913.209, 59.1035, 0.971758)
pt3dadd(564.899, 913.267, 58.3386, 0.997508)
pt3dadd(562.85, 913.508, 57.8563, 0.997508)
pt3dadd(560.804, 913.752, 57.374, 1.13727)
pt3dadd(558.739, 913.686, 57.1573, 1.3345)
pt3dadd(556.685, 913.45, 56.8649, 1.34779)
pt3dadd(554.719, 912.812, 56.5725, 1.08099)
pt3dadd(552.702, 912.361, 56.4826, 1.15797)
pt3dadd(550.786, 911.591, 56.8638, 1.15797)
pt3dadd(548.873, 910.821, 57.2451, 1.61142)
pt3dadd(546.861, 910.328, 56.9957, 1.2483)
pt3dadd(544.795, 910.361, 56.9832, 1.2483)
pt3dadd(542.725, 910.398, 56.9707, 1.34576)
pt3dadd(540.696, 910.817, 56.8302, 1.34576)
pt3dadd(538.672, 911.239, 56.6897, 1.34576)
pt3dadd(536.648, 911.661, 56.5492, 1.34132)
pt3dadd(534.652, 911.972, 55.4489, 1.27671)
pt3dadd(532.615, 911.732, 54.7851, 1.27671)
pt3dadd(530.578, 911.487, 54.1212, 1.28458)
pt3dadd(528.525, 911.342, 53.5624, 1.33544)
pt3dadd(526.471, 911.115, 53.8234, 1.48978)
pt3dadd(524.509, 910.494, 53.2363, 1.87631)
pt3dadd(522.671, 909.583, 52.5845, 1.57804)
pt3dadd(520.775, 908.867, 51.5762, 1.57804)
pt3dadd(518.874, 908.155, 50.5679, 1.31609)
pt3dadd(517.103, 907.148, 49.6897, 1.30318)
pt3dadd(515.186, 906.453, 48.8115, 1.30318)
pt3dadd(513.273, 905.758, 47.9334, 1.29694)
pt3dadd(511.393, 905.136, 46.4503, 1.30708)
pt3dadd(509.415, 904.573, 45.9187, 1.43155)
pt3dadd(507.394, 904.59, 44.863, 1.31873)
pt3dadd(505.428, 904.015, 44.1242, 1.31873)
pt3dadd(503.461, 903.443, 43.3855, 1.30992)
pt3dadd(501.524, 902.723, 43.1739, 0.975292)
pt3dadd(499.537, 902.205, 42.5545, 1.04825)
pt3dadd(497.545, 901.688, 41.9603, 0.877308)
}
dend[91] {pt3dclear()
pt3dadd(497.545, 901.688, 41.9603, 0.877308)
pt3dadd(498.659, 902.176, 42.1615, 1.40556)
pt3dadd(495.053, 900.16, 41.5225, 1.40556)
pt3dadd(492.987, 900.131, 41.7033, 1.57506)
pt3dadd(490.929, 900.011, 42.2359, 1.2687)
pt3dadd(488.926, 899.502, 42.4262, 1.0349)
pt3dadd(486.922, 898.993, 42.6165, 1.0349)
pt3dadd(484.893, 898.695, 43.3073, 1.39828)
pt3dadd(482.844, 898.438, 43.0256, 1.34817)
pt3dadd(480.791, 898.177, 42.744, 1.242)
pt3dadd(478.745, 898.252, 42.0107, 1.39219)
pt3dadd(476.692, 898.02, 41.6742, 1.32292)
pt3dadd(474.655, 897.73, 41.1369, 0.956506)
pt3dadd(472.606, 897.469, 40.894, 1.28583)
pt3dadd(470.594, 897.685, 41.9452, 1.42467)
pt3dadd(468.54, 897.593, 42.5652, 1.55171)
pt3dadd(466.516, 897.606, 43.5936, 1.15443)
pt3dadd(465.141, 896.12, 44.6684, 1.20447)
pt3dadd(463.22, 895.374, 45.1739, 1.33522)
pt3dadd(461.258, 894.89, 46.2428, 0.987042)
pt3dadd(459.217, 894.687, 46.8757, 0.987042)
pt3dadd(457.172, 894.484, 47.5085, 1.13492)
pt3dadd(455.139, 894.182, 48.0962, 1.12973)
pt3dadd(454.626, 893.578, 48.6785, 1.12973)
}
dend[92] {pt3dclear()
pt3dadd(497.545, 901.688, 41.9603, 0.877308)
pt3dadd(493.89, 901.137, 40.8477, 0.877308)
}
dend[93] {pt3dclear()
pt3dadd(625.997, 905.716, 70.782, 1.71017)
pt3dadd(625.053, 907.558, 70.7045, 1.41759)
pt3dadd(623.794, 909.202, 70.6271, 1.41759)
pt3dadd(622.536, 910.846, 70.5496, 1.49831)
pt3dadd(621.157, 912.381, 70.9151, 1.52295)
pt3dadd(619.932, 914.046, 71.2091, 1.4389)
pt3dadd(618.69, 915.702, 71.2977, 1.45695)
pt3dadd(617.32, 917.25, 71.2915, 1.5375)
pt3dadd(615.734, 918.579, 71.0569, 1.60582)
pt3dadd(614.065, 919.809, 71.0117, 1.14594)
pt3dadd(612.323, 920.914, 71.2339, 1.36105)
pt3dadd(610.737, 922.226, 71.7826, 1.4276)
pt3dadd(609.28, 923.696, 71.7393, 1.42119)
}
}
proc shape3d_17() {
dend[93] { pt3dadd(607.847, 925.141, 72.6894, 1.42119)
pt3dadd(606.419, 926.586, 73.6395, 1.13751)
pt3dadd(604.626, 927.608, 73.9226, 1.54665)
pt3dadd(602.941, 928.792, 74.521, 1.30578)
pt3dadd(601.414, 930.15, 75.2956, 1.40006)
pt3dadd(600.11, 931.753, 75.5812, 1.42905)
pt3dadd(598.801, 933.334, 76.2292, 1.43007)
pt3dadd(597.671, 935.036, 77.0291, 1.51483)
pt3dadd(596.247, 936.489, 77.9672, 1.20107)
pt3dadd(594.728, 937.876, 78.4979, 1.20107)
pt3dadd(593.204, 939.258, 79.0286, 1.26333)
pt3dadd(591.577, 940.542, 79.0952, 1.28795)
pt3dadd(590.058, 941.929, 79.6718, 1.22558)
pt3dadd(588.48, 943.258, 79.9989, 1.22308)
pt3dadd(587.04, 944.711, 80.765, 1.34876)
pt3dadd(585.454, 946.04, 80.8046, 1.34876)
pt3dadd(583.864, 947.369, 80.8442, 1.34831)
pt3dadd(582.353, 948.76, 81.4758, 1.37489)
pt3dadd(580.825, 950.142, 81.9412, 1.01832)
pt3dadd(579.198, 951.418, 82.164, 1.15971)
pt3dadd(577.791, 952.933, 82.3867, 1.54112)
pt3dadd(576.391, 954.431, 83.0336, 1.54112)
pt3dadd(574.988, 955.93, 83.6804, 1.09741)
pt3dadd(573.303, 957.118, 84.1344, 1.1913)
pt3dadd(571.444, 957.984, 84.7832, 1.21127)
pt3dadd(569.652, 959.027, 84.7846, 1.30326)
pt3dadd(568.058, 960.327, 85.279, 1.30326)
pt3dadd(566.46, 961.631, 85.7734, 1.35102)
pt3dadd(565.081, 963.171, 85.6763, 1.35102)
pt3dadd(563.624, 964.645, 85.5903, 1.29765)
pt3dadd(562.133, 966.077, 85.6904, 1.3492)
pt3dadd(560.842, 967.684, 86.1853, 1.43361)
pt3dadd(559.293, 969.054, 86.2808, 1.43361)
pt3dadd(557.741, 970.424, 86.3763, 1.10232)
pt3dadd(556.122, 971.712, 86.5885, 1.17273)
pt3dadd(554.313, 972.714, 86.7186, 1.1754)
pt3dadd(552.727, 974.026, 87.2373, 1.12212)
pt3dadd(551.212, 975.438, 87.383, 1.37382)
pt3dadd(549.581, 976.696, 86.9633, 1.45353)
pt3dadd(548.02, 978.058, 87.0569, 1.08309)
pt3dadd(546.327, 979.222, 87.6484, 1.13441)
pt3dadd(544.567, 980.315, 87.7667, 1.1625)
pt3dadd(542.994, 981.656, 87.6215, 1.1625)
pt3dadd(541.417, 982.997, 87.4764, 1.2125)
pt3dadd(539.67, 984.086, 87.965, 1.20717)
pt3dadd(537.898, 985.154, 88.0932, 0.89068)
pt3dadd(536.105, 986.177, 87.6568, 1.00219)
pt3dadd(534.391, 987.328, 87.9566, 1.02719)
pt3dadd(532.781, 988.628, 88.1405, 1.42643)
pt3dadd(531.481, 990.234, 88.4567, 1.42643)
pt3dadd(530.065, 991.741, 88.2461, 1.13553)
pt3dadd(528.686, 993.252, 88.9785, 1.13553)
pt3dadd(527.304, 994.763, 89.711, 1.56974)
pt3dadd(526.033, 996.394, 89.9298, 1.44156)
pt3dadd(524.993, 998.187, 90.1022, 1.48142)
pt3dadd(523.992, 999.996, 90.1125, 1.67095)
pt3dadd(522.725, 1001.61, 89.4713, 1.4669)
pt3dadd(521.276, 1003.09, 89.5355, 1.45959)
pt3dadd(519.665, 1004.37, 90.1179, 1.45959)
pt3dadd(518.059, 1005.65, 90.7004, 1.02458)
pt3dadd(516.44, 1006.94, 90.9663, 1.12964)
pt3dadd(515.078, 1008.49, 91.2321, 1.29391)
pt3dadd(513.849, 1010.16, 90.9448, 1.28392)
pt3dadd(512.565, 1011.77, 91.2731, 1.30801)
pt3dadd(510.893, 1012.98, 90.9421, 1.63822)
pt3dadd(509.336, 1014.34, 90.5843, 1.46089)
pt3dadd(507.742, 1015.65, 90.1048, 1.43463)
pt3dadd(506.235, 1017.05, 89.59, 1.46236)
pt3dadd(504.898, 1018.62, 89.8736, 1.46236)
pt3dadd(503.561, 1020.2, 90.1572, 1.02698)
pt3dadd(502.033, 1021.59, 89.9811, 1.09478)
pt3dadd(500.563, 1023.05, 89.8298, 0.95692)
pt3dadd(499.143, 1024.55, 90.2377, 1.0192)
pt3dadd(497.719, 1026.04, 90.6456, 1.27193)
pt3dadd(496.415, 1027.62, 91.3804, 1.24086)
pt3dadd(495.177, 1029.26, 92.0268, 1.24086)
pt3dadd(493.939, 1030.89, 92.6731, 1.29381)
pt3dadd(492.772, 1032.6, 93.013, 1.34047)
pt3dadd(491.534, 1034.25, 93.2436, 1.48157)
pt3dadd(490.164, 1035.81, 93.2464, 1.61264)
pt3dadd(488.909, 1037.42, 94.0141, 1.21121)
pt3dadd(487.994, 1039.28, 94.0071, 0.791272)
pt3dadd(487.021, 1041.1, 94.412, 0.791272)
pt3dadd(486.044, 1042.92, 94.8169, 1.22037)
pt3dadd(485.49, 1044.01, 94.4129, 1.22037)
}
dend[94] {pt3dclear()
pt3dadd(652.294, 889.173, 72.3296, 1.50051)
pt3dadd(650.667, 890.108, 70.2203, 1.29233)
}
dend[95] {pt3dclear()
pt3dadd(650.667, 890.108, 70.2203, 1.29233)
pt3dadd(650.812, 892.692, 70.2159, 1.47557)
pt3dadd(650.816, 894.604, 68.2999, 1.47557)
pt3dadd(651.019, 896.563, 66.7694, 1.47411)
pt3dadd(651.168, 898.55, 65.4012, 1.53169)
pt3dadd(651.11, 900.558, 64.2206, 1.59549)
pt3dadd(650.626, 902.532, 63.2621, 1.28299)
pt3dadd(650.386, 904.54, 62.178, 1.28299)
pt3dadd(650.141, 906.544, 61.0938, 1.35322)
pt3dadd(649.992, 908.573, 60.1833, 1.35322)
pt3dadd(649.843, 910.605, 59.2728, 1.21075)
pt3dadd(650.017, 912.646, 58.5486, 1.07445)
pt3dadd(650.402, 914.654, 57.7797, 1.29932)
pt3dadd(650.969, 916.625, 57.0611, 1.29932)
pt3dadd(651.537, 918.591, 56.3425, 1.3357)
pt3dadd(652.253, 920.521, 55.7754, 1.33528)
pt3dadd(653.031, 922.425, 55.2749, 1.60844)
pt3dadd(653.607, 924.387, 54.5091, 0.976046)
pt3dadd(653.702, 926.453, 54.1731, 0.976046)
pt3dadd(653.797, 928.515, 53.8372, 1.25962)
pt3dadd(653.764, 930.568, 53.196, 1.32946)
pt3dadd(653.424, 932.609, 53.1479, 1.34057)
pt3dadd(653.035, 934.597, 52.1173, 1.34057)
pt3dadd(652.965, 936.613, 51.0112, 1.34768)
pt3dadd(652.547, 938.542, 49.4885, 1.19567)
pt3dadd(652.298, 940.575, 48.7537, 1.19567)
pt3dadd(652.054, 942.608, 48.0188, 1.4284)
pt3dadd(651.86, 944.636, 47.1432, 1.22065)
pt3dadd(652.717, 946.412, 45.6285, 1.29898)
pt3dadd(653.242, 948.346, 44.364, 1.284)
pt3dadd(653.714, 950.341, 43.7034, 1.44613)
pt3dadd(653.863, 952.395, 43.1356, 1.44613)
pt3dadd(654.012, 954.444, 42.5679, 1.37304)
pt3dadd(654.087, 956.489, 41.8139, 1.47971)
pt3dadd(653.789, 958.509, 41.013, 0.999744)
pt3dadd(653.213, 960.459, 40.0315, 0.999744)
pt3dadd(652.642, 962.405, 39.0499, 1.41098)
pt3dadd(652.129, 964.38, 38.1918, 1.64841)
pt3dadd(651.044, 966.123, 37.5639, 1.31942)
pt3dadd(649.997, 968.727, 35.8177, 1.31942)
}
dend[96] {pt3dclear()
pt3dadd(650.667, 890.108, 70.2203, 1.29233)
pt3dadd(648.833, 890.754, 68.5054, 1.14902)
pt3dadd(646.879, 890.278, 67.3349, 1.14981)
pt3dadd(644.904, 890.042, 65.9531, 1.14981)
pt3dadd(642.925, 889.81, 64.5713, 1.14963)
pt3dadd(641.025, 889.665, 62.6197, 1.17463)
pt3dadd(639.001, 889.607, 61.5806, 1.18485)
pt3dadd(637.051, 889.901, 60.0833, 1.18485)
pt3dadd(635.097, 890.191, 58.5861, 1.17888)
pt3dadd(633.13, 890.328, 57.0489, 1.2363)
pt3dadd(631.106, 890.651, 56.3446, 1.43607)
pt3dadd(629.156, 890.878, 54.7686, 1.31465)
}
dend[97] {pt3dclear()
pt3dadd(629.156, 890.878, 54.7686, 1.31465)
pt3dadd(628.113, 891.441, 54.588, 1.51323)
pt3dadd(626.237, 892.294, 54.1202, 1.51323)
pt3dadd(624.411, 893.263, 53.8826, 1.17985)
pt3dadd(622.573, 894.215, 53.8738, 1.04558)
pt3dadd(620.735, 895.163, 53.865, 1.04558)
pt3dadd(619.013, 896.256, 53.0298, 1.44081)
pt3dadd(617.162, 897.184, 52.8083, 1.43501)
pt3dadd(615.283, 898.036, 52.3888, 1.28525)
pt3dadd(613.374, 898.831, 52.0841, 1.28482)
pt3dadd(611.619, 899.92, 52.2166, 1.18104)
pt3dadd(609.897, 901.063, 51.8328, 1.23526)
pt3dadd(608.079, 901.974, 50.9235, 1.22616)
pt3dadd(606.228, 902.901, 50.6469, 1.22616)
pt3dadd(604.382, 903.828, 50.3703, 1.26202)
pt3dadd(602.577, 904.818, 49.9108, 1.2336)
pt3dadd(600.834, 905.915, 49.3438, 1.23175)
pt3dadd(599.083, 906.908, 48.1873, 1.48034)
pt3dadd(597.307, 907.96, 47.8912, 1.01529)
pt3dadd(595.696, 909.252, 47.5361, 1.15299)
pt3dadd(593.895, 910.266, 47.2175, 1.16584)
pt3dadd(592.111, 911.239, 46.2702, 1.40016)
pt3dadd(590.323, 912.274, 45.9718, 0.95412)
pt3dadd(588.455, 913.069, 45.0051, 1.1226)
pt3dadd(586.742, 914.162, 44.0203, 1.1226)
pt3dadd(585.032, 915.25, 43.0355, 0.981942)
pt3dadd(583.222, 916.257, 42.7994, 1.3111)
pt3dadd(581.504, 917.403, 42.5045, 1.27283)
pt3dadd(579.824, 918.596, 42.0771, 1.11561)
pt3dadd(578.105, 919.705, 41.2823, 1.11561)
pt3dadd(576.391, 920.815, 40.4874, 1.24047)
pt3dadd(574.702, 922.007, 40.1364, 0.904142)
pt3dadd(572.93, 923.079, 40.1295, 1.14451)
pt3dadd(570.931, 923.539, 39.4877, 1.47894)
pt3dadd(569.254, 924.723, 38.8344, 1.15179)
pt3dadd(567.615, 925.957, 38.181, 1.23272)
pt3dadd(565.859, 927.041, 37.8281, 1.59346)
pt3dadd(562.767, 929.074, 36.7429, 1.59346)
}
dend[98] {pt3dclear()
pt3dadd(629.156, 890.878, 54.7686, 1.31465)
pt3dadd(627.293, 890.27, 53.1524, 1.33402)
pt3dadd(625.397, 890.117, 51.1916, 1.43587)
pt3dadd(623.654, 890.013, 48.5084, 1.29667)
pt3dadd(621.778, 890.162, 46.4042, 1.36483)
}
dend[99] {pt3dclear()
pt3dadd(621.778, 890.162, 46.4042, 1.36483)
pt3dadd(621.124, 888.026, 43.543, 1.30259)
pt3dadd(620.011, 886.506, 41.4651, 1.30259)
pt3dadd(618.851, 885.12, 39.0259, 1.242)
pt3dadd(617.746, 883.724, 36.4862, 1.5285)
pt3dadd(616.442, 882.565, 33.7925, 1.15872)
pt3dadd(615.101, 881.559, 30.2219, 1.15872)
}
dend[100] {pt3dclear()
pt3dadd(621.778, 890.162, 46.4042, 1.36483)
pt3dadd(619.911, 890.655, 44.6307, 0.802454)
pt3dadd(618.143, 891.197, 42.3664, 1.09597)
pt3dadd(616.343, 891.644, 40.1562, 1.14479)
pt3dadd(614.393, 891.835, 38.5344, 1.16767)
pt3dadd(612.426, 891.975, 37.0342, 1.16767)
pt3dadd(610.455, 892.12, 35.534, 1.24933)
pt3dadd(608.584, 892.596, 33.7273, 1.30008)
pt3dadd(607.048, 893.114, 32.2097, 1.30008)
}
apic[0] {pt3dclear()
pt3dstyle(1, 671.587, 879.829, 88.0109)
pt3dadd(673.321, 866.299, 86.1856, 6.05761)
}
}
proc shape3d_18() {
apic[0] { pt3dadd(674.986, 858.197, 85.9827, 4.36463)
pt3dadd(675.938, 852.07, 86.1941, 3.52075)
pt3dadd(676.766, 848.021, 86.5643, 2.74841)
}
apic[1] {pt3dclear()
pt3dadd(676.766, 848.021, 86.5643, 2.74841)
pt3dadd(676.029, 847.226, 91.0559, 2.27762)
pt3dadd(675.776, 845.558, 93.9518, 2.27762)
}
apic[2] {pt3dclear()
pt3dadd(675.776, 845.558, 93.9518, 2.27762)
pt3dadd(673.599, 841.194, 96.9999, 1.48464)
pt3dadd(672.845, 839.298, 97.8167, 1.48211)
pt3dadd(672.166, 837.406, 99.0097, 1.143)
pt3dadd(671.491, 835.51, 100.203, 1.38962)
pt3dadd(670.659, 833.672, 101.295, 1.41615)
pt3dadd(669.645, 831.908, 102.211, 1.41213)
pt3dadd(668.647, 830.211, 103.744, 1.5587)
pt3dadd(667.538, 828.534, 104.957, 1.14002)
pt3dadd(666.552, 826.754, 105.894, 1.35139)
pt3dadd(665.385, 825.11, 107.025, 1.91263)
pt3dadd(664.176, 823.475, 107.957, 1.73226)
pt3dadd(663.129, 821.736, 108.945, 1.73226)
pt3dadd(661.419, 819.232, 110.421, 2.09074)
pt3dadd(658.778, 816.184, 112.624, 2.37633)
pt3dadd(656.753, 812.657, 113.835, 2.1598)
pt3dadd(654.844, 809.014, 114.776, 2.41525)
pt3dadd(652.725, 805.545, 116.649, 2.62262)
pt3dadd(649.922, 802.576, 117.678, 2.83944)
pt3dadd(646.8, 799.935, 119.168, 2.1559)
pt3dadd(643.969, 797.049, 121.186, 2.61292)
pt3dadd(642.155, 794.719, 123.475, 2.81931)
pt3dadd(640.52, 792.218, 125.402, 2.8611)
pt3dadd(638.483, 789.953, 126.856, 1.17208)
pt3dadd(637.237, 788.359, 127.883, 1.17208)
pt3dadd(635.987, 786.766, 128.91, 1.14031)
pt3dadd(634.48, 785.391, 129.797, 1.3328)
pt3dadd(632.774, 784.315, 130.893, 1.17364)
pt3dadd(631.027, 783.296, 131.989, 1.17364)
pt3dadd(629.284, 782.282, 133.085, 1.28451)
pt3dadd(627.409, 781.591, 134.39, 1.27714)
pt3dadd(625.467, 780.936, 135.087, 1.32102)
pt3dadd(623.571, 780.431, 136.682, 1.33157)
pt3dadd(621.613, 779.901, 137.663, 1.33684)
pt3dadd(619.766, 779.413, 139.594, 1.0531)
pt3dadd(617.874, 778.676, 140.584, 1.26355)
pt3dadd(616.545, 777.182, 141.888, 1.38817)
pt3dadd(615.473, 775.463, 142.91, 1.2362)
pt3dadd(614.459, 773.725, 144.078, 1.2362)
pt3dadd(613.668, 771.899, 145.443, 1.52065)
pt3dadd(612.455, 770.239, 146.038, 1.18434)
pt3dadd(611.147, 768.657, 146.701, 1.85828)
pt3dadd(609.925, 766.985, 146.814, 1.44543)
pt3dadd(608.414, 765.594, 147.394, 1.6904)
pt3dadd(607.069, 764.02, 147.338, 1.13144)
pt3dadd(605.67, 762.497, 147.441, 1.14907)
pt3dadd(604.105, 761.143, 147.609, 1.16741)
pt3dadd(602.722, 759.603, 147.777, 1.16741)
pt3dadd(601.343, 758.063, 147.946, 1.16741)
pt3dadd(599.961, 756.523, 148.114, 1.27549)
pt3dadd(598.859, 754.772, 148.313, 1.27549)
pt3dadd(597.762, 753.02, 148.512, 1.27549)
pt3dadd(596.661, 751.269, 148.711, 1.33103)
pt3dadd(595.862, 749.381, 149.455, 1.40812)
pt3dadd(594.943, 747.535, 149.872, 1.17391)
pt3dadd(593.428, 746.148, 150.438, 1.26071)
pt3dadd(591.958, 744.707, 151.004, 1.03366)
pt3dadd(590.782, 743.035, 151.812, 1.05466)
pt3dadd(589.681, 741.292, 152.185, 1.38258)
pt3dadd(588.431, 739.644, 152.415, 1.38735)
pt3dadd(587.623, 737.736, 152.345, 1.37677)
pt3dadd(586.911, 735.794, 152.311, 1.37176)
pt3dadd(586.145, 733.898, 153.092, 1.18546)
pt3dadd(585.052, 732.142, 153.043, 1.18546)
pt3dadd(583.955, 730.383, 152.995, 1.25896)
pt3dadd(582.477, 728.938, 152.863, 1.0435)
pt3dadd(581.124, 727.373, 152.774, 1.25189)
pt3dadd(579.964, 725.663, 152.418, 1.36458)
pt3dadd(578.739, 724.007, 152.889, 1.47449)
pt3dadd(577.277, 722.542, 152.82, 1.63003)
pt3dadd(575.771, 721.155, 153.533, 1.70999)
pt3dadd(574.657, 719.408, 153.34, 1.09339)
pt3dadd(573.353, 717.814, 153.801, 1.12649)
pt3dadd(571.999, 716.249, 153.652, 1.26051)
pt3dadd(570.554, 714.767, 153.759, 1.32569)
pt3dadd(568.882, 713.546, 153.932, 1.31561)
pt3dadd(567.267, 712.254, 153.967, 1.61477)
pt3dadd(565.934, 710.681, 153.522, 1.20501)
pt3dadd(564.795, 708.954, 153.207, 1.20501)
pt3dadd(563.657, 707.232, 152.892, 1.29825)
pt3dadd(561.421, 704.794, 153.145, 1.29825)
}
apic[3] {pt3dclear()
pt3dadd(675.776, 845.558, 93.9518, 2.27762)
pt3dadd(676.646, 844.059, 96.6879, 1.21885)
pt3dadd(677.511, 842.556, 99.4239, 1.11541)
pt3dadd(678.691, 841.318, 102.24, 1.15764)
pt3dadd(679.875, 840.254, 105.433, 1.55179)
pt3dadd(680.682, 838.888, 108.65, 1.63094)
pt3dadd(680.744, 837.476, 112.296, 1.75458)
pt3dadd(680.446, 836.425, 116.544, 1.33562)
pt3dadd(680.119, 835.386, 120.792, 1.42714)
pt3dadd(680.02, 834.256, 124.975, 1.4349)
pt3dadd(680.152, 833.129, 129.158, 1.43398)
pt3dadd(680.699, 831.792, 132.745, 1.43398)
pt3dadd(681.249, 830.459, 136.332, 1.43398)
pt3dadd(681.796, 829.126, 139.92, 1.42603)
pt3dadd(682.342, 827.859, 143.645, 1.36738)
}
apic[4] {pt3dclear()
pt3dadd(682.342, 827.859, 143.645, 1.36738)
pt3dadd(684.334, 828.352, 146.28, 1.45536)
pt3dadd(686.097, 829.023, 148.334, 1.45536)
pt3dadd(687.716, 829.925, 150.56, 1.17545)
pt3dadd(689.525, 830.484, 152.59, 1.17545)
pt3dadd(691.334, 831.043, 154.62, 1.52696)
pt3dadd(693.152, 831.788, 156.201, 1.16401)
pt3dadd(694.878, 832.484, 158.377, 1.3885)
pt3dadd(696.803, 832.947, 159.83, 1.3885)
pt3dadd(698.733, 833.411, 161.284, 1.17137)
pt3dadd(700.654, 833.436, 163.14, 1.13645)
pt3dadd(702.633, 833.465, 164.597, 1.13645)
pt3dadd(704.611, 833.498, 166.053, 1.27324)
pt3dadd(706.636, 833.759, 166.921, 1.32324)
pt3dadd(708.664, 833.779, 167.919, 1.28695)
pt3dadd(710.648, 834.198, 168.917, 1.44261)
pt3dadd(712.593, 834.421, 170.525, 1.44261)
pt3dadd(714.543, 834.645, 172.133, 1.56513)
pt3dadd(716.41, 834.603, 174.28, 1.45797)
pt3dadd(718.398, 834.624, 175.672, 1.14633)
pt3dadd(720.352, 834.442, 177.256, 1.40899)
pt3dadd(722.289, 834.417, 179.027, 1.4279)
pt3dadd(724.049, 834.492, 181.655, 0.977122)
pt3dadd(725.713, 834.674, 184.597, 1.34182)
pt3dadd(727.464, 834.744, 187.26, 1.19699)
pt3dadd(729.17, 834.624, 190.068, 1.32957)
pt3dadd(730.598, 833.829, 193.144, 1.351)
pt3dadd(732.18, 832.877, 195.396, 1.37508)
pt3dadd(733.616, 832.003, 198.321, 1.50229)
pt3dadd(735.372, 831.515, 200.681, 1.4081)
pt3dadd(736.953, 831.208, 203.825, 1.37569)
pt3dadd(738.27, 830.948, 207.633, 1.3307)
pt3dadd(739.499, 830.517, 211.518, 1.03644)
pt3dadd(741.093, 830.161, 214.592, 1.53972)
pt3dadd(742.749, 830.016, 217.573, 1.21831)
pt3dadd(745.924, 829.677, 219.69, 1.21831)
}
apic[5] {pt3dclear()
pt3dadd(682.342, 827.859, 143.645, 1.36738)
pt3dadd(681.485, 826.543, 146.907, 1.26897)
pt3dadd(680.864, 825.019, 149.943, 1.31044)
pt3dadd(679.958, 823.649, 152.98, 1.36887)
pt3dadd(679.051, 822.043, 155.255, 1.319)
pt3dadd(679.105, 820.56, 158.745, 1.50647)
pt3dadd(679.192, 818.863, 161.595, 1.05662)
pt3dadd(679.117, 817.286, 164.83, 1.25168)
pt3dadd(679.159, 815.568, 167.611, 1.5981)
pt3dadd(679.854, 813.8, 169.599, 1.61717)
pt3dadd(680.819, 812.098, 171.235, 1.9627)
pt3dadd(682.036, 810.575, 172.916, 2.24316)
pt3dadd(682.943, 808.915, 174.947, 1.37494)
pt3dadd(683.195, 807.122, 177.367, 1.43718)
pt3dadd(683.514, 805.553, 180.54, 1.39167)
pt3dadd(684.338, 803.835, 182.5, 2.00223)
pt3dadd(685.547, 802.808, 185.705, 1.18327)
pt3dadd(686.905, 801.93, 188.834, 1.45834)
pt3dadd(688.221, 801.222, 192.293, 1.76651)
pt3dadd(689.505, 800.746, 196.042, 1.73306)
pt3dadd(691.769, 799.215, 199.492, 2.38566)
pt3dadd(693.864, 797.174, 201.963, 2.14461)
pt3dadd(695.272, 795.783, 203.455, 1.33692)
pt3dadd(696.224, 794.122, 205.342, 1.58791)
pt3dadd(697.238, 792.483, 207.181, 1.46095)
pt3dadd(698.48, 790.562, 210.414, 1.46095)
}
apic[6] {pt3dclear()
pt3dadd(676.766, 848.021, 86.5643, 2.74841)
pt3dadd(678.244, 844.163, 86.3563, 3.09945)
pt3dadd(679.66, 840.288, 86.163, 3.47081)
}
apic[7] {pt3dclear()
pt3dadd(679.66, 840.288, 86.163, 3.47081)
pt3dadd(678.488, 836.756, 86.1719, 2.64929)
pt3dadd(676.873, 835.46, 86.1887, 2.64929)
pt3dadd(675.586, 833.842, 86.4634, 1.53004)
pt3dadd(674.526, 832.065, 86.663, 1.46751)
pt3dadd(673.466, 830.289, 86.8626, 1.46751)
pt3dadd(672.411, 828.509, 87.0622, 1.46751)
pt3dadd(671.351, 826.733, 87.2618, 1.76148)
pt3dadd(670.167, 825.052, 87.805, 1.77185)
pt3dadd(668.755, 823.541, 87.6818, 1.78191)
}
apic[8] {pt3dclear()
pt3dadd(668.755, 823.541, 87.6818, 1.78191)
pt3dadd(666.995, 822.614, 87.9958, 1.71184)
pt3dadd(665.083, 821.852, 87.4823, 1.71184)
pt3dadd(663.269, 820.863, 87.7524, 1.68312)
pt3dadd(661.456, 819.873, 88.0225, 1.68312)
pt3dadd(659.639, 818.884, 88.2926, 1.68312)
pt3dadd(657.817, 817.923, 87.8189, 1.30963)
pt3dadd(655.896, 817.153, 87.7145, 1.44778)
pt3dadd(653.975, 816.379, 87.6102, 1.44778)
pt3dadd(652.054, 815.609, 87.5058, 1.44778)
pt3dadd(650.204, 814.69, 87.2957, 1.51647)
pt3dadd(648.349, 813.771, 87.0857, 1.51647)
pt3dadd(646.498, 812.852, 86.8756, 1.2362)
pt3dadd(644.536, 812.198, 87.0393, 1.29903)
pt3dadd(642.487, 811.904, 87.2418, 1.29903)
pt3dadd(640.441, 811.61, 87.4444, 1.37198)
pt3dadd(638.434, 811.134, 86.9778, 1.6359)
pt3dadd(636.508, 810.554, 85.7775, 1.31069)
}
apic[9] {pt3dclear()
pt3dadd(636.508, 810.554, 85.7775, 1.31069)
pt3dadd(635.014, 808.501, 84.3697, 1.67443)
pt3dadd(633.9, 806.811, 83.321, 1.67443)
pt3dadd(632.633, 805.176, 83.1327, 1.58831)
pt3dadd(631.222, 803.711, 82.2048, 1.48397)
}
}
proc shape3d_19() {
apic[9] { pt3dadd(629.814, 802.245, 81.2768, 1.48397)
pt3dadd(628.613, 800.585, 80.5915, 1.71279)
pt3dadd(628.117, 798.581, 80.2031, 1.44452)
pt3dadd(627.62, 796.577, 79.8147, 1.3362)
pt3dadd(626.734, 794.76, 78.7083, 1.379)
pt3dadd(625.558, 793.075, 78.1635, 1.50156)
pt3dadd(624.163, 791.609, 77.102, 1.49405)
pt3dadd(622.813, 790.09, 76.1878, 1.48315)
pt3dadd(621.48, 788.509, 75.8922, 1.0938)
pt3dadd(620.213, 786.902, 75.1177, 1.0938)
pt3dadd(618.947, 785.296, 74.3432, 1.05508)
pt3dadd(617.8, 783.59, 73.7408, 1.05508)
pt3dadd(616.657, 781.885, 73.1384, 1.20866)
pt3dadd(615.556, 780.142, 72.6434, 1.2431)
pt3dadd(614.508, 778.357, 72.4759, 1.29686)
pt3dadd(613.295, 776.701, 73.126, 1.34761)
pt3dadd(612.024, 775.074, 72.8116, 1.44569)
pt3dadd(610.961, 773.298, 72.799, 1.47728)
pt3dadd(610.248, 771.361, 72.4645, 1.45275)
pt3dadd(609.478, 769.448, 72.0371, 1.38539)
pt3dadd(608.708, 767.535, 71.6097, 1.38539)
pt3dadd(607.934, 765.623, 71.1824, 0.988706)
pt3dadd(606.97, 763.801, 70.755, 0.969438)
pt3dadd(606.158, 761.913, 70.1308, 0.948482)
pt3dadd(605.247, 760.079, 69.3827, 0.955628)
pt3dadd(604.241, 758.307, 68.514, 1.11679)
pt3dadd(603.032, 756.635, 68.073, 1.36147)
pt3dadd(601.716, 755.045, 67.7896, 1.36714)
pt3dadd(600.739, 753.223, 67.5062, 1.1405)
pt3dadd(600.25, 751.215, 67.1932, 1.15201)
pt3dadd(599.762, 749.208, 67.5166, 1.3549)
pt3dadd(598.901, 747.328, 67.2607, 1.3048)
pt3dadd(598.035, 745.457, 66.8221, 1.32645)
pt3dadd(596.976, 743.726, 65.845, 1.02395)
pt3dadd(596.028, 741.913, 65.0493, 1.17092)
pt3dadd(595.303, 739.996, 64.3738, 1.1022)
pt3dadd(594.665, 738.096, 63.1293, 1.1022)
pt3dadd(594.028, 736.195, 61.8848, 1.15335)
pt3dadd(593.038, 734.457, 60.5848, 1.1602)
pt3dadd(592.277, 732.61, 59.2849, 1.28445)
pt3dadd(591.453, 730.776, 58.1197, 1.33168)
pt3dadd(590.679, 728.855, 57.9005, 1.23553)
pt3dadd(590.559, 726.81, 57.2053, 1.30613)
pt3dadd(590.298, 724.757, 57.4033, 1.26235)
pt3dadd(589.938, 722.732, 56.8165, 0.805008)
pt3dadd(589.54, 720.704, 56.8968, 0.9197)
pt3dadd(589.089, 718.704, 56.1526, 0.95547)
pt3dadd(588.882, 716.663, 55.4843, 1.09392)
pt3dadd(588.658, 714.634, 54.6891, 1.09392)
pt3dadd(588.439, 712.602, 53.894, 1.07866)
pt3dadd(587.996, 710.614, 52.987, 1.07866)
pt3dadd(587.553, 708.627, 52.08, 1.17677)
pt3dadd(586.646, 706.81, 51.1059, 1.17677)
pt3dadd(585.735, 704.996, 50.1318, 1.2318)
pt3dadd(585.197, 703.034, 49.2224, 1.2318)
pt3dadd(584.659, 701.072, 48.313, 1.3232)
pt3dadd(583.984, 699.138, 47.5495, 0.975922)
pt3dadd(583.016, 697.346, 46.7019, 1.0714)
pt3dadd(581.989, 695.59, 45.7522, 1.14716)
pt3dadd(580.937, 693.868, 44.6286, 1.13585)
pt3dadd(579.513, 692.415, 43.6913, 1.13585)
pt3dadd(578.093, 690.962, 42.754, 1.13585)
pt3dadd(576.673, 689.509, 41.8166, 0.94763)
pt3dadd(575.588, 687.778, 40.9788, 1.05123)
pt3dadd(574.529, 686.002, 40.9945, 1.4194)
pt3dadd(573.44, 684.243, 40.6303, 0.893048)
pt3dadd(572.425, 682.458, 40.0277, 1.2398)
pt3dadd(571.37, 680.703, 39.2841, 1.2398)
pt3dadd(570.103, 678.6, 38.3918, 1.2398)
}
apic[10] {pt3dclear()
pt3dadd(636.508, 810.554, 85.7775, 1.31069)
pt3dadd(634.513, 810.508, 84.4609, 1.36613)
pt3dadd(632.505, 810.393, 83.2968, 1.37633)
pt3dadd(630.464, 810.094, 82.7953, 1.50483)
pt3dadd(628.415, 809.954, 82.1987, 1.50863)
pt3dadd(626.457, 809.494, 81.0243, 1.56153)
pt3dadd(624.469, 808.931, 80.7895, 1.26052)
pt3dadd(622.507, 808.306, 80.2288, 1.26146)
pt3dadd(620.561, 807.598, 80.2714, 1.26732)
pt3dadd(618.64, 806.832, 80.1619, 0.970946)
pt3dadd(616.756, 806.008, 79.5647, 1.40569)
pt3dadd(614.976, 804.961, 79.338, 1.42269)
pt3dadd(613.428, 803.607, 78.7502, 1.51939)
pt3dadd(611.822, 802.303, 78.5318, 1.56534)
pt3dadd(610.19, 801.057, 79.1311, 1.22758)
pt3dadd(608.435, 799.985, 78.5521, 1.47628)
pt3dadd(606.601, 799.028, 78.424, 1.51628)
pt3dadd(605.011, 797.708, 78.0758, 1.54892)
pt3dadd(603.579, 796.234, 77.479, 1.39438)
pt3dadd(602.13, 794.785, 76.7865, 1.40757)
pt3dadd(600.565, 793.46, 76.0365, 1.52392)
pt3dadd(599.161, 792.081, 74.4932, 1.2985)
pt3dadd(598.085, 790.562, 72.3202, 1.10455)
pt3dadd(596.781, 789.067, 70.892, 1.10455)
pt3dadd(595.485, 787.49, 70.0707, 1.48768)
pt3dadd(594.314, 785.834, 69.0452, 1.06601)
pt3dadd(593.188, 784.207, 67.564, 1.06601)
pt3dadd(592.061, 782.584, 66.0827, 1.15888)
pt3dadd(591.014, 780.891, 64.7228, 1.09193)
pt3dadd(589.95, 779.131, 64.1706, 1.15622)
pt3dadd(588.749, 777.5, 63.0914, 1.17732)
pt3dadd(587.437, 775.993, 61.806, 1.14142)
pt3dadd(586.12, 774.561, 60.1085, 1.31951)
pt3dadd(584.638, 773.195, 58.9586, 1.31951)
pt3dadd(583.16, 771.828, 57.8088, 1.17168)
pt3dadd(581.794, 770.367, 56.505, 1.21665)
pt3dadd(580.3, 769.175, 54.5774, 1.10647)
pt3dadd(578.913, 767.697, 53.5727, 1.24817)
pt3dadd(577.484, 766.326, 52.1131, 1.21319)
pt3dadd(575.911, 765.163, 50.4849, 1.67502)
pt3dadd(574.508, 763.793, 48.8851, 1.10005)
pt3dadd(573.084, 762.331, 48.0409, 1.15993)
pt3dadd(571.958, 760.675, 46.7886, 1.15993)
pt3dadd(570.831, 759.019, 45.5362, 1.29483)
pt3dadd(569.486, 757.583, 43.9874, 0.901138)
pt3dadd(567.776, 756.49, 42.9703, 1.038)
pt3dadd(564.485, 754.126, 40.936, 1.038)
}
apic[11] {pt3dclear()
pt3dadd(668.755, 823.541, 87.6818, 1.78191)
pt3dadd(667.774, 821.724, 88.1301, 1.51032)
pt3dadd(667.082, 819.786, 88.6548, 1.51563)
pt3dadd(666.147, 817.948, 89.1076, 1.44588)
pt3dadd(665.488, 815.998, 89.6159, 1.58307)
pt3dadd(664.507, 814.189, 90.1838, 1.56477)
pt3dadd(663.398, 812.454, 90.6233, 1.66496)
pt3dadd(662.624, 810.537, 90.8947, 1.66465)
pt3dadd(662.118, 808.53, 90.7498, 1.66465)
pt3dadd(661.613, 806.522, 90.6049, 1.40754)
}
apic[12] {pt3dclear()
pt3dadd(661.613, 806.522, 90.6049, 1.40754)
pt3dadd(660.28, 805.888, 90.977, 1.58776)
pt3dadd(658.525, 804.816, 91.4714, 1.58776)
pt3dadd(656.861, 803.632, 92.3391, 1.23869)
pt3dadd(655.076, 802.601, 92.7845, 1.2088)
pt3dadd(653.292, 801.566, 93.2298, 1.2088)
pt3dadd(651.595, 800.382, 93.2519, 1.24817)
pt3dadd(649.901, 799.198, 93.274, 1.24817)
pt3dadd(648.448, 797.724, 93.4597, 1.14812)
pt3dadd(646.792, 796.511, 94.1097, 1.18684)
}
apic[13] {pt3dclear()
pt3dadd(646.792, 796.511, 94.1097, 1.18684)
pt3dadd(644.966, 794.793, 92.589, 1.35387)
pt3dadd(643.513, 793.319, 92.5461, 1.43456)
pt3dadd(642.06, 791.845, 92.5032, 1.43456)
pt3dadd(640.611, 790.367, 92.2742, 1.41099)
pt3dadd(639.166, 788.898, 92.6839, 1.41703)
pt3dadd(637.548, 787.618, 93.0936, 1.3952)
pt3dadd(635.73, 786.662, 92.4661, 1.4909)
pt3dadd(633.797, 785.933, 92.3503, 1.46947)
pt3dadd(631.901, 785.097, 92.1204, 1.4167)
pt3dadd(630.162, 783.992, 91.7325, 1.242)
pt3dadd(628.419, 782.882, 91.3446, 1.242)
pt3dadd(626.676, 781.777, 90.9566, 1.242)
pt3dadd(624.863, 780.787, 90.7249, 1.45558)
pt3dadd(623.045, 779.798, 90.4932, 1.56029)
pt3dadd(621.327, 778.672, 91.0941, 1.15755)
pt3dadd(619.501, 777.699, 91.3114, 1.0732)
pt3dadd(617.655, 776.772, 91.0042, 1.03826)
pt3dadd(615.858, 775.745, 91.0329, 1.2931)
pt3dadd(614.173, 774.54, 91.0352, 1.2931)
pt3dadd(612.492, 773.335, 91.0375, 1.2931)
pt3dadd(610.807, 772.131, 91.0398, 1.29584)
pt3dadd(608.928, 771.27, 91.293, 1.30863)
pt3dadd(606.97, 770.603, 91.4613, 1.31707)
pt3dadd(604.937, 770.259, 91.0309, 0.888584)
pt3dadd(602.871, 770.11, 91.168, 1.29273)
pt3dadd(600.975, 769.311, 91.6261, 1.30753)
pt3dadd(599.149, 768.334, 91.6444, 1.14913)
pt3dadd(597.299, 767.411, 91.8782, 1.14913)
pt3dadd(595.444, 766.492, 92.112, 1.1052)
pt3dadd(593.544, 765.681, 92.2284, 1.1052)
pt3dadd(591.639, 764.865, 92.3448, 1.19971)
pt3dadd(589.619, 764.418, 92.5408, 1.04312)
pt3dadd(587.615, 763.95, 92.0385, 1.1054)
pt3dadd(585.607, 763.482, 92.4963, 1.00748)
pt3dadd(583.599, 763.014, 92.9542, 0.850878)
pt3dadd(581.538, 763.163, 93.1829, 1.2541)
pt3dadd(579.48, 763.308, 93.6205, 1.2541)
pt3dadd(577.418, 763.122, 93.4776, 1.11342)
pt3dadd(575.472, 762.414, 93.4186, 1.21724)
pt3dadd(573.701, 761.429, 94.4107, 1.25253)
pt3dadd(571.883, 760.439, 94.6303, 1.27134)
pt3dadd(569.999, 759.694, 95.6315, 1.18142)
pt3dadd(568.269, 758.593, 96.3131, 1.49658)
pt3dadd(566.72, 757.235, 96.8193, 1.53212)
pt3dadd(565.048, 756.014, 97.0108, 1.087)
pt3dadd(563.251, 754.991, 97.0058, 1.28167)
pt3dadd(561.516, 753.869, 97.3393, 1.27663)
pt3dadd(559.836, 752.722, 98.2932, 1.37246)
pt3dadd(558.105, 751.592, 98.3427, 1.58824)
pt3dadd(556.59, 750.18, 98.2425, 1.23186)
pt3dadd(555.066, 748.781, 98.1424, 1.23186)
pt3dadd(553.543, 747.382, 98.0422, 1.48097)
pt3dadd(552.069, 745.958, 98.7682, 1.54099)
pt3dadd(550.446, 744.674, 98.6594, 1.17313)
pt3dadd(548.927, 743.267, 98.781, 1.19138)
pt3dadd(547.432, 741.842, 99.1602, 1.12651)
pt3dadd(546.083, 740.278, 99.4566, 1.13453)
pt3dadd(544.53, 738.911, 99.3551, 1.3309)
pt3dadd(542.866, 737.682, 99.3741, 0.998502)
pt3dadd(541.206, 736.46, 99.8384, 1.2529)
pt3dadd(539.562, 735.206, 99.5213, 1.10145)
pt3dadd(537.794, 734.134, 99.5282, 1.1655)
pt3dadd(536.163, 732.9, 98.7114, 1.22936)
}
}
proc shape3d_20() {
apic[13] { pt3dadd(534.702, 731.439, 98.5614, 1.24772)
pt3dadd(533.547, 729.729, 98.1411, 1.28681)
pt3dadd(531.973, 728.429, 97.3102, 1.36244)
pt3dadd(530.537, 726.967, 96.5805, 1.66662)
}
apic[14] {pt3dclear()
pt3dadd(530.537, 726.967, 96.5805, 1.66662)
pt3dadd(528.943, 724.007, 95.9233, 1.52012)
pt3dadd(527.78, 722.335, 95.0426, 1.52012)
pt3dadd(526.331, 720.878, 94.4167, 1.28952)
pt3dadd(524.915, 719.412, 93.5276, 1.30205)
pt3dadd(523.826, 717.702, 92.5408, 1.27635)
pt3dadd(522.352, 716.245, 92.4753, 1.17521)
pt3dadd(521.06, 714.634, 92.1488, 1.1741)
}
apic[15] {pt3dclear()
pt3dadd(530.537, 726.967, 96.5805, 1.66662)
pt3dadd(528.972, 725.638, 95.9732, 1.28344)
pt3dadd(526.322, 723.676, 95.149, 1.28344)
}
apic[16] {pt3dclear()
pt3dadd(646.792, 796.511, 94.1097, 1.18684)
pt3dadd(645.294, 795.24, 95.6813, 1.07315)
pt3dadd(643.923, 793.783, 96.9714, 1.18056)
pt3dadd(642.81, 792.086, 97.9807, 1.24886)
pt3dadd(642.035, 790.202, 98.8676, 1.39284)
pt3dadd(640.669, 788.703, 99.8574, 1.19394)
pt3dadd(639.245, 787.25, 100.764, 1.19394)
pt3dadd(637.821, 785.797, 101.67, 1.21232)
pt3dadd(636.21, 784.505, 102.065, 1.24982)
pt3dadd(634.699, 783.11, 102.65, 1.33325)
pt3dadd(633.246, 781.665, 103.366, 1.28658)
pt3dadd(631.834, 780.195, 104.221, 1.33356)
pt3dadd(630.534, 778.726, 105.818, 1.46074)
pt3dadd(628.978, 777.496, 107.248, 1.42322)
pt3dadd(627.467, 776.354, 109.262, 1.40668)
pt3dadd(625.769, 775.265, 110.403, 1.40668)
pt3dadd(624.076, 774.176, 111.545, 1.44109)
pt3dadd(622.631, 772.789, 112.813, 1.48672)
pt3dadd(621.489, 771.141, 114.08, 1.08333)
pt3dadd(620.362, 769.523, 115.587, 1.23517)
pt3dadd(619.75, 767.659, 117.197, 1.23517)
pt3dadd(619.137, 765.801, 118.807, 1.31446)
pt3dadd(618.222, 764.078, 120.481, 1.31446)
pt3dadd(617.307, 762.352, 122.155, 1.5046)
pt3dadd(616.293, 760.799, 124.377, 1.22203)
pt3dadd(615.15, 759.193, 125.895, 1.22203)
pt3dadd(614.008, 757.587, 127.412, 1.47007)
pt3dadd(612.546, 756.254, 128.894, 1.50995)
pt3dadd(610.961, 755.045, 130.243, 1.50995)
pt3dadd(609.375, 753.84, 131.593, 1.33961)
pt3dadd(607.955, 752.408, 132.735, 1.33961)
pt3dadd(606.535, 750.979, 133.877, 1.33961)
pt3dadd(605.115, 749.547, 135.019, 1.46929)
pt3dadd(603.947, 747.986, 136.684, 1.01004)
pt3dadd(602.9, 746.301, 138.133, 1.25622)
pt3dadd(601.712, 744.691, 139.404, 1.31597)
pt3dadd(600.275, 743.349, 140.967, 1.31597)
pt3dadd(598.834, 742.008, 142.529, 1.2025)
pt3dadd(597.468, 740.485, 143.242, 1.36164)
pt3dadd(595.899, 739.197, 144.205, 1.36164)
pt3dadd(594.33, 737.905, 145.168, 1.34726)
pt3dadd(592.72, 736.688, 146.272, 1.4022)
pt3dadd(591.577, 735.086, 147.834, 1.43169)
pt3dadd(590.356, 733.513, 149.193, 1.3655)
pt3dadd(588.812, 732.171, 149.933, 1.3655)
pt3dadd(587.267, 730.826, 150.672, 1.21681)
pt3dadd(586.261, 729.071, 151.721, 1.21439)
pt3dadd(584.994, 727.555, 153.238, 1.81572)
pt3dadd(583.703, 726.032, 154.537, 1.2795)
pt3dadd(582.734, 724.285, 155.835, 1.49022)
pt3dadd(581.972, 722.509, 157.642, 1.16807)
pt3dadd(580.995, 720.811, 159.254, 1.19663)
pt3dadd(579.799, 719.23, 160.677, 1.28102)
pt3dadd(578.652, 717.52, 161.228, 1.14095)
pt3dadd(576.847, 716.58, 162.157, 1.14095)
pt3dadd(575.042, 715.645, 163.086, 1.23448)
pt3dadd(573.084, 715.044, 163.799, 1.23448)
pt3dadd(571.125, 714.444, 164.512, 1.33197)
pt3dadd(569.084, 714.216, 165.163, 1.03474)
pt3dadd(567.134, 713.599, 165.93, 1.40982)
pt3dadd(565.209, 713.036, 167.171, 0.977016)
pt3dadd(563.239, 712.606, 168.276, 1.12131)
pt3dadd(561.384, 711.981, 169.894, 1.1813)
pt3dadd(559.666, 711.004, 171.392, 1.86051)
pt3dadd(558.606, 709.261, 172.246, 1.3423)
pt3dadd(557.277, 707.725, 173.226, 1.28963)
pt3dadd(555.774, 706.354, 174.103, 1.18974)
pt3dadd(552.094, 705.808, 174.607, 1.18974)
}
apic[17] {pt3dclear()
pt3dadd(661.613, 806.522, 90.6049, 1.40754)
pt3dadd(661.754, 804.464, 90.2732, 1.42832)
pt3dadd(661.485, 802.415, 89.8744, 1.41647)
pt3dadd(661.253, 800.374, 89.3089, 1.45167)
pt3dadd(660.893, 798.337, 89.0303, 1.18598)
pt3dadd(660.098, 796.445, 89.6435, 1.18598)
pt3dadd(659.303, 794.549, 90.2568, 1.19218)
pt3dadd(658.272, 792.773, 90.8701, 1.3023)
pt3dadd(657.341, 790.943, 91.5199, 1.3023)
pt3dadd(656.405, 789.117, 92.1696, 1.42281)
pt3dadd(655.689, 787.175, 92.3418, 1.10016)
pt3dadd(654.799, 785.308, 92.6251, 1.23339)
pt3dadd(653.607, 783.623, 92.8735, 1.3042)
pt3dadd(652.307, 782.013, 92.7262, 1.35158)
pt3dadd(651.342, 780.183, 92.6114, 1.46485)
pt3dadd(650.659, 778.237, 93.0612, 1.16102)
pt3dadd(650.303, 776.2, 93.2465, 1.16102)
pt3dadd(649.947, 774.159, 93.4318, 1.34399)
pt3dadd(649.351, 772.189, 93.9187, 1.0783)
pt3dadd(648.97, 770.156, 94.1765, 1.19749)
pt3dadd(648.249, 768.218, 94.3984, 1.19749)
pt3dadd(647.529, 766.281, 94.6204, 1.31754)
pt3dadd(646.54, 764.468, 94.3691, 1.30518)
pt3dadd(645.488, 762.708, 95.0948, 1.29822)
pt3dadd(644.296, 761.019, 95.3054, 1.23331)
pt3dadd(643.112, 759.33, 95.7007, 1.14786)
pt3dadd(641.907, 757.666, 96.2989, 1.26164)
pt3dadd(640.934, 755.902, 97.4552, 1.27246)
pt3dadd(639.671, 754.275, 97.9937, 1.38068)
pt3dadd(638.243, 752.855, 99.1445, 0.993426)
pt3dadd(636.566, 751.646, 99.3671, 1.07633)
pt3dadd(635.117, 750.193, 100.01, 1.35592)
pt3dadd(633.764, 748.649, 100.625, 1.03233)
pt3dadd(632.65, 746.91, 101.021, 1.03233)
pt3dadd(631.54, 745.171, 101.417, 1.18496)
pt3dadd(630.381, 743.474, 102.045, 1.18496)
pt3dadd(629.226, 741.776, 102.674, 1.18496)
pt3dadd(628.303, 739.922, 102.576, 1.24337)
pt3dadd(627.674, 737.963, 103.084, 1.29868)
pt3dadd(627.049, 736.001, 102.623, 1.35323)
pt3dadd(626.295, 734.08, 103.073, 1.10381)
pt3dadd(625.513, 732.167, 103.457, 1.10381)
pt3dadd(624.734, 730.259, 103.84, 1.16531)
pt3dadd(623.608, 728.52, 103.956, 1.20454)
pt3dadd(622.511, 726.765, 103.906, 1.26575)
pt3dadd(621.646, 724.914, 103.101, 1.06319)
pt3dadd(621.012, 722.948, 102.933, 1.06319)
pt3dadd(620.379, 720.977, 102.765, 1.27967)
pt3dadd(619.737, 719.01, 102.502, 1.3765)
pt3dadd(618.756, 717.197, 102.064, 1.18416)
pt3dadd(617.51, 715.558, 101.598, 1.14512)
pt3dadd(616.752, 713.633, 101.343, 1.13468)
pt3dadd(615.945, 711.728, 101.232, 1.20347)
pt3dadd(615.014, 709.878, 101.303, 1.20347)
pt3dadd(614.082, 708.031, 101.374, 1.21841)
pt3dadd(613.002, 706.263, 101.312, 1.21553)
pt3dadd(611.822, 704.582, 100.701, 1.27242)
pt3dadd(610.704, 702.848, 101.023, 0.973338)
pt3dadd(609.553, 701.13, 100.747, 0.973338)
pt3dadd(608.406, 699.412, 100.471, 1.39542)
pt3dadd(607.342, 697.64, 100.841, 0.992276)
pt3dadd(606.518, 695.744, 100.953, 1.11654)
pt3dadd(605.599, 693.889, 100.86, 1.18263)
pt3dadd(604.341, 692.245, 100.767, 1.26297)
pt3dadd(603.372, 690.415, 100.799, 0.912696)
pt3dadd(602.08, 688.801, 100.971, 1.04588)
pt3dadd(601.066, 686.996, 101.142, 1.17839)
pt3dadd(600.143, 685.145, 101.314, 1.17839)
pt3dadd(599.219, 683.295, 101.486, 1.38635)
pt3dadd(598.16, 681.518, 101.569, 1.03079)
pt3dadd(597.344, 679.618, 101.319, 1.16106)
pt3dadd(596.607, 677.689, 100.985, 1.16883)
pt3dadd(595.949, 675.727, 101.254, 1.44961)
pt3dadd(595.204, 673.797, 101.46, 1.0639)
pt3dadd(594.272, 671.959, 101.91, 1.14904)
pt3dadd(593.668, 669.98, 101.973, 1.22227)
pt3dadd(592.989, 668.026, 102.036, 1.29921)
pt3dadd(592.231, 666.101, 102.136, 0.99798)
pt3dadd(591.279, 664.267, 102.535, 0.99798)
pt3dadd(590.327, 662.437, 102.935, 1.30892)
pt3dadd(589.561, 660.545, 103.784, 0.871644)
pt3dadd(588.932, 658.575, 103.932, 1.16442)
pt3dadd(588.294, 656.616, 104.347, 0.992938)
pt3dadd(587.656, 654.654, 104.763, 1.29892)
pt3dadd(586.882, 652.733, 104.973, 1.04181)
pt3dadd(585.806, 650.965, 105.113, 1.04181)
pt3dadd(584.734, 649.198, 105.252, 1.11994)
pt3dadd(583.943, 647.293, 104.857, 1.18331)
pt3dadd(583.21, 645.36, 104.58, 1.23836)
pt3dadd(582.635, 643.377, 104.197, 1.22859)
pt3dadd(582.56, 641.087, 103.324, 1.22859)
}
apic[18] {pt3dclear()
pt3dadd(679.66, 840.288, 86.163, 3.47081)
pt3dadd(681.655, 842.527, 84.4044, 1.21888)
pt3dadd(685.199, 841.944, 81.9895, 1.24356)
pt3dadd(687.219, 841.695, 81.0895, 1.26811)
pt3dadd(689.227, 841.451, 80.0251, 1.26811)
pt3dadd(691.235, 841.202, 78.9606, 1.37051)
pt3dadd(693.28, 841.306, 78.2443, 1.41143)
pt3dadd(695.288, 841.587, 77.2505, 1.42755)
pt3dadd(697.292, 841.567, 75.9998, 1.22775)
pt3dadd(699.238, 841.753, 74.3455, 1.36536)
pt3dadd(701.229, 841.633, 72.9995, 1.28811)
pt3dadd(703.109, 841.087, 71.3943, 1.28811)
pt3dadd(704.992, 840.536, 69.7891, 1.33429)
pt3dadd(706.942, 839.903, 69.1225, 1.48446)
pt3dadd(708.946, 839.451, 68.4594, 1.51278)
pt3dadd(710.826, 838.876, 66.9044, 1.41268)
pt3dadd(712.693, 838.089, 65.8973, 1.21694)
pt3dadd(714.651, 837.65, 64.6593, 1.04573)
pt3dadd(716.609, 837.344, 63.2328, 1.12273)
pt3dadd(718.418, 836.843, 61.1032, 1.20557)
}
apic[19] {pt3dclear()
pt3dadd(718.418, 836.843, 61.1032, 1.20557)
pt3dadd(720.389, 836.541, 58.4285, 1.64803)
pt3dadd(721.892, 836.657, 55.0028, 1.00543)
pt3dadd(723.411, 836.081, 51.9024, 1.09303)
pt3dadd(725.08, 835.349, 49.5308, 1.22079)
pt3dadd(726.781, 834.694, 47.1593, 1.22079)
}
}
proc shape3d_21() {
apic[19] { pt3dadd(728.483, 834.04, 44.7877, 1.06762)
pt3dadd(730.23, 833.403, 42.595, 1.17492)
pt3dadd(731.849, 832.72, 39.9509, 1.20406)
pt3dadd(733.794, 831.904, 35.1545, 1.20406)
}
apic[20] {pt3dclear()
pt3dadd(718.418, 836.843, 61.1032, 1.20557)
pt3dadd(719.934, 835.663, 59.2422, 0.996846)
pt3dadd(721.134, 833.978, 59.0709, 0.996846)
pt3dadd(722.331, 832.293, 58.8996, 1.00917)
pt3dadd(723.32, 830.472, 58.9274, 1.00917)
pt3dadd(724.305, 828.654, 58.9553, 1.09412)
pt3dadd(725.336, 826.87, 59.3818, 1.12736)
pt3dadd(726.653, 825.309, 60.2502, 1.34336)
pt3dadd(728.16, 823.901, 60.6962, 1.35698)
pt3dadd(729.787, 822.63, 60.9084, 1.41088)
pt3dadd(731.447, 821.401, 61.2871, 1.41088)
pt3dadd(733.103, 820.171, 61.6658, 1.60172)
pt3dadd(734.809, 818.995, 61.6552, 1.88245)
pt3dadd(736.394, 817.675, 61.1797, 2.01717)
pt3dadd(738.187, 816.648, 61.0032, 1.60202)
pt3dadd(739.905, 815.522, 60.4035, 1.8569)
pt3dadd(741.669, 814.45, 60.0446, 1.34417)
pt3dadd(743.544, 813.576, 59.8503, 1.34417)
pt3dadd(745.424, 812.707, 59.656, 1.34417)
pt3dadd(747.299, 811.837, 59.4617, 1.78858)
pt3dadd(748.914, 810.546, 59.1415, 1.54337)
pt3dadd(750.603, 809.411, 58.2506, 1.54982)
pt3dadd(752.275, 808.227, 57.5283, 1.0416)
pt3dadd(754.018, 807.114, 57.2666, 1.19105)
pt3dadd(755.637, 805.859, 56.5968, 1.19105)
pt3dadd(757.26, 804.601, 55.9269, 1.15537)
pt3dadd(759.16, 803.81, 55.4313, 1.39028)
pt3dadd(760.949, 802.783, 54.9357, 1.39028)
pt3dadd(762.733, 801.757, 54.4401, 0.988872)
pt3dadd(764.621, 800.908, 54.2012, 1.29262)
pt3dadd(766.343, 799.807, 53.4387, 1.34109)
pt3dadd(768.007, 798.639, 52.5085, 1.29629)
pt3dadd(769.709, 797.53, 51.5782, 1.32947)
pt3dadd(771.609, 796.76, 50.8659, 1.32947)
pt3dadd(773.509, 795.99, 50.1536, 0.990744)
pt3dadd(775.389, 795.166, 49.497, 0.976974)
pt3dadd(777.306, 794.387, 49.4951, 1.05569)
pt3dadd(779.061, 793.307, 49.0592, 1.2012)
pt3dadd(780.75, 792.172, 48.1395, 1.2012)
pt3dadd(782.439, 791.038, 47.2198, 1.1171)
pt3dadd(783.884, 789.556, 46.9436, 1.22603)
pt3dadd(785.524, 788.335, 46.1933, 1.47771)
pt3dadd(787.204, 787.167, 45.4431, 1.44558)
pt3dadd(788.898, 786, 44.8585, 1.47799)
pt3dadd(790.587, 784.816, 45.261, 0.940724)
pt3dadd(792.272, 783.615, 45.2757, 0.940724)
pt3dadd(793.957, 782.41, 45.2903, 1.23952)
pt3dadd(795.725, 781.33, 45.2928, 1.31481)
pt3dadd(797.654, 780.589, 45.0166, 1.12674)
pt3dadd(799.716, 780.717, 45.3136, 1.18199)
pt3dadd(801.711, 780.27, 44.5137, 1.26055)
pt3dadd(803.653, 779.558, 44.3861, 1.26055)
pt3dadd(805.487, 778.61, 44.043, 1.00476)
pt3dadd(807.06, 777.285, 43.4997, 1.03202)
pt3dadd(808.459, 775.79, 42.7253, 1.15503)
pt3dadd(809.933, 774.37, 41.9509, 1.18317)
pt3dadd(811.635, 773.269, 40.9628, 1.25654)
pt3dadd(813.108, 771.857, 40.1299, 1.09379)
pt3dadd(814.785, 770.694, 39.2895, 1.50703)
pt3dadd(816.338, 769.353, 38.6094, 1.14902)
pt3dadd(818.089, 768.318, 37.6745, 1.39303)
pt3dadd(819.848, 767.258, 37.0954, 1.06346)
pt3dadd(821.674, 766.314, 36.5332, 1.05146)
pt3dadd(823.541, 765.457, 35.897, 1.12404)
pt3dadd(825.375, 764.55, 35.1541, 1.18946)
pt3dadd(827.002, 763.304, 34.4111, 1.18946)
pt3dadd(828.629, 762.058, 33.6682, 1.30998)
pt3dadd(830.563, 761.363, 33.1227, 1.3337)
pt3dadd(833.374, 759.723, 31.6555, 1.3337)
}
apic[21] {pt3dclear()
pt3dadd(679.66, 840.288, 86.163, 3.47081)
pt3dadd(682.732, 837.986, 86.2761, 1.82178)
pt3dadd(684.781, 837.696, 86.5649, 1.82178)
pt3dadd(686.805, 837.365, 87.2305, 1.43099)
pt3dadd(688.826, 836.913, 87.1163, 1.5149)
pt3dadd(690.858, 836.607, 87.6762, 1.5041)
pt3dadd(692.891, 836.297, 88.2361, 1.5041)
pt3dadd(694.957, 836.367, 88.4751, 1.61387)
}
apic[22] {pt3dclear()
pt3dadd(694.957, 836.367, 88.4751, 1.61387)
pt3dadd(695.557, 835.394, 87.8542, 1.27245)
pt3dadd(697.172, 834.107, 87.5439, 1.27245)
pt3dadd(698.882, 833.022, 86.5053, 1.1754)
pt3dadd(700.724, 832.082, 86.3428, 1.19425)
pt3dadd(702.566, 831.138, 86.1804, 1.19425)
pt3dadd(704.322, 830.045, 86.073, 1.34774)
pt3dadd(706.131, 829.089, 85.3269, 1.54301)
pt3dadd(707.94, 828.128, 84.5808, 1.49998)
pt3dadd(709.691, 827.073, 83.7921, 1.16444)
pt3dadd(711.48, 826.038, 83.5806, 1.64647)
pt3dadd(713.351, 825.168, 83.1447, 1.73022)
pt3dadd(715.264, 824.382, 82.9075, 1.76695)
pt3dadd(717.238, 823.769, 82.7834, 1.76695)
pt3dadd(719.217, 823.16, 82.6593, 1.69158)
pt3dadd(721.113, 822.328, 82.6934, 1.75257)
pt3dadd(723.026, 821.537, 82.567, 1.76963)
pt3dadd(724.881, 820.738, 81.4552, 2.17175)
pt3dadd(726.802, 820.105, 80.42, 1.69632)
pt3dadd(728.797, 819.604, 79.8573, 1.69632)
pt3dadd(730.793, 819.103, 79.2945, 2.0963)
pt3dadd(732.772, 818.503, 79.4511, 1.94803)
pt3dadd(734.718, 817.791, 79.3953, 1.94803)
pt3dadd(736.659, 817.079, 79.3395, 1.94811)
pt3dadd(738.584, 816.371, 78.6459, 1.93155)
pt3dadd(740.509, 815.642, 78.1486, 1.60172)
pt3dadd(742.435, 814.88, 78.2132, 1.60172)
pt3dadd(744.36, 814.119, 78.2777, 1.56878)
pt3dadd(746.343, 813.547, 77.9418, 1.56878)
pt3dadd(748.33, 812.976, 77.6058, 1.56878)
pt3dadd(750.313, 812.405, 77.2699, 1.56878)
pt3dadd(752.296, 811.829, 76.9339, 0.93886)
pt3dadd(754.325, 811.415, 76.8213, 0.93886)
pt3dadd(756.353, 811.001, 76.7088, 1.07238)
pt3dadd(758.303, 810.322, 77.0446, 1.07238)
pt3dadd(760.249, 809.639, 77.3804, 1.07238)
pt3dadd(762.199, 808.956, 77.7162, 1.3926)
pt3dadd(764.008, 807.958, 77.4231, 1.1494)
pt3dadd(765.788, 806.911, 77.0925, 1.22099)
pt3dadd(767.734, 806.224, 76.7228, 1.28529)
pt3dadd(769.618, 805.383, 76.261, 0.998502)
pt3dadd(771.443, 804.472, 75.398, 1.10949)
pt3dadd(773.298, 803.591, 74.7619, 1.49187)
pt3dadd(775.277, 802.999, 74.5204, 1.43586)
pt3dadd(777.277, 802.477, 74.1293, 1.08464)
pt3dadd(779.102, 801.649, 72.9106, 1.15185)
pt3dadd(780.932, 800.829, 71.6778, 1.20144)
pt3dadd(782.895, 800.179, 71.267, 1.20144)
pt3dadd(784.853, 799.533, 70.8561, 1.31942)
pt3dadd(786.894, 799.244, 70.4453, 1.31942)
pt3dadd(788.935, 798.954, 70.0344, 1.29361)
pt3dadd(791.005, 798.883, 69.9598, 1.36098)
pt3dadd(793.021, 798.42, 69.775, 1.09965)
pt3dadd(795.012, 797.857, 69.5902, 1.09965)
pt3dadd(797.004, 797.298, 69.4053, 1.06015)
pt3dadd(798.929, 796.594, 68.7033, 0.919784)
pt3dadd(800.958, 796.254, 68.1778, 0.919784)
pt3dadd(802.99, 795.911, 67.6523, 1.58634)
pt3dadd(805.035, 795.758, 67.0105, 1.08167)
pt3dadd(807.085, 795.749, 66.2896, 0.76449)
pt3dadd(809.151, 795.737, 66.0537, 1.18958)
pt3dadd(811.175, 796.134, 65.5812, 1.18958)
pt3dadd(813.195, 796.528, 65.1087, 0.88755)
pt3dadd(815.236, 796.755, 64.4866, 1.16973)
pt3dadd(817.298, 796.938, 64.5601, 1.07932)
pt3dadd(819.335, 797.31, 64.3013, 1.07932)
pt3dadd(821.368, 797.679, 64.0425, 1.4056)
pt3dadd(823.434, 797.728, 64.2558, 0.98729)
pt3dadd(825.499, 797.67, 63.9245, 1.02126)
pt3dadd(827.561, 797.699, 64.3515, 1.18619)
pt3dadd(829.623, 797.749, 63.9055, 0.7568)
pt3dadd(831.685, 797.559, 63.8667, 0.838458)
pt3dadd(833.717, 797.19, 63.6229, 1.12581)
pt3dadd(835.771, 796.971, 63.2459, 0.989352)
pt3dadd(837.828, 796.801, 62.9296, 1.09924)
pt3dadd(839.894, 796.714, 62.7398, 0.989916)
pt3dadd(841.956, 796.917, 62.7984, 1.04434)
pt3dadd(843.993, 796.548, 62.9529, 1.07209)
pt3dadd(846.059, 796.428, 62.9371, 1.07209)
pt3dadd(848.125, 796.308, 62.9214, 1.03532)
pt3dadd(850.186, 796.201, 62.5768, 0.827466)
pt3dadd(852.227, 795.969, 61.9485, 0.827466)
pt3dadd(854.268, 795.737, 61.3201, 0.827466)
pt3dadd(856.309, 795.505, 60.6918, 1.13415)
pt3dadd(858.367, 795.29, 60.5911, 1.13415)
pt3dadd(860.391, 795.228, 59.5669, 1.15896)
pt3dadd(862.428, 794.955, 58.9081, 1.2098)
pt3dadd(864.42, 794.491, 58.1371, 1.19981)
pt3dadd(866.37, 794.102, 56.7621, 1.29383)
pt3dadd(868.411, 793.833, 56.2283, 1.44194)
pt3dadd(870.423, 793.543, 55.3083, 1.42112)
pt3dadd(872.31, 792.934, 53.8697, 1.3003)
pt3dadd(874.293, 792.375, 53.3464, 1.40945)
pt3dadd(876.347, 792.172, 53.0396, 1.04774)
pt3dadd(878.4, 792.09, 52.411, 1.03379)
pt3dadd(880.429, 791.75, 51.842, 1.07019)
pt3dadd(882.482, 791.812, 51.2583, 1.07866)
}
apic[23] {pt3dclear()
pt3dadd(882.482, 791.812, 51.2583, 1.07866)
pt3dadd(884.66, 791.311, 50.5783, 1.39817)
pt3dadd(886.54, 790.467, 50.1818, 1.39817)
pt3dadd(888.543, 789.974, 49.7695, 1.28005)
pt3dadd(890.58, 789.614, 49.5233, 1.53257)
pt3dadd(892.625, 789.904, 49.2771, 1.42241)
pt3dadd(894.629, 789.44, 48.7304, 1.34886)
pt3dadd(896.695, 789.324, 48.4716, 1.06545)
pt3dadd(898.657, 789.08, 48.0535, 1.06545)
}
apic[24] {pt3dclear()
pt3dadd(882.482, 791.812, 51.2583, 1.07866)
pt3dadd(885.761, 792.276, 51.3357, 1.07866)
}
apic[25] {pt3dclear()
pt3dadd(694.957, 836.367, 88.4751, 1.61387)
pt3dadd(696.977, 836.181, 89.4664, 1.11083)
pt3dadd(699.035, 836.123, 90.0037, 1.38281)
pt3dadd(701.088, 836.201, 90.6069, 1.37553)
pt3dadd(703.113, 836.077, 91.5968, 1.50577)
pt3dadd(705.179, 836.16, 91.8336, 1.21707)
pt3dadd(707.187, 836.644, 92.1443, 1.42775)
pt3dadd(709.194, 837.129, 92.455, 1.42775)
pt3dadd(711.202, 837.617, 92.7657, 1.10235)
pt3dadd(713.252, 837.804, 93.3572, 1.10235)
pt3dadd(715.297, 837.99, 93.9486, 1.32962)
}
}
proc shape3d_22() {
apic[25] { pt3dadd(717.317, 838.424, 94.2454, 1.14686)
pt3dadd(719.284, 839.033, 94.7323, 1.14686)
pt3dadd(721.254, 839.646, 95.2192, 1.05891)
pt3dadd(723.246, 840.159, 95.7624, 1.24438)
pt3dadd(725.295, 840.374, 96.2732, 1.25232)
pt3dadd(727.336, 840.085, 96.6676, 1.44972)
pt3dadd(729.385, 839.84, 97.0621, 1.65898)
pt3dadd(731.377, 839.294, 97.4566, 1.22471)
}
apic[26] {pt3dclear()
pt3dadd(731.377, 839.294, 97.4566, 1.22471)
pt3dadd(733.538, 839.617, 97.2788, 1.26285)
pt3dadd(735.595, 839.828, 97.1298, 1.26285)
pt3dadd(737.591, 839.281, 97.1281, 1.44987)
pt3dadd(739.309, 838.143, 97.615, 1.43632)
pt3dadd(740.915, 836.839, 97.3845, 1.34366)
pt3dadd(742.646, 835.705, 97.2808, 1.407)
pt3dadd(744.629, 835.113, 97.1589, 1.57575)
pt3dadd(746.645, 834.682, 97.5133, 1.92204)
pt3dadd(748.649, 834.16, 97.7693, 1.92204)
pt3dadd(750.648, 833.643, 98.0252, 2.00672)
pt3dadd(752.544, 832.819, 98.326, 1.48955)
pt3dadd(754.556, 832.347, 98.5715, 1.48955)
pt3dadd(756.568, 831.871, 98.8171, 1.11293)
pt3dadd(758.63, 831.685, 99.0117, 1.3594)
pt3dadd(760.667, 831.329, 98.7437, 1.23577)
pt3dadd(762.72, 831.08, 98.5297, 1.42934)
pt3dadd(764.786, 831.134, 98.4356, 1.42934)
pt3dadd(766.856, 831.188, 98.3415, 1.39908)
pt3dadd(768.918, 831.362, 98.3088, 1.40533)
pt3dadd(770.976, 831.602, 98.3758, 1.47583)
pt3dadd(773.037, 831.751, 98.6224, 1.42653)
pt3dadd(775.078, 831.979, 99.205, 1.42653)
pt3dadd(777.124, 832.206, 99.7877, 0.998816)
pt3dadd(779.181, 832.301, 100.324, 0.998816)
pt3dadd(781.235, 832.397, 100.86, 0.961986)
pt3dadd(783.3, 832.484, 101.207, 0.961986)
pt3dadd(785.362, 832.571, 101.554, 1.09275)
pt3dadd(787.424, 832.434, 101.881, 1.22427)
pt3dadd(789.49, 832.434, 102.146, 1.22427)
pt3dadd(791.556, 832.43, 102.412, 0.893536)
pt3dadd(793.613, 832.533, 102.973, 0.893536)
pt3dadd(795.667, 832.637, 103.535, 1.20918)
pt3dadd(797.703, 832.985, 103.734, 1.18392)
pt3dadd(799.728, 833.407, 103.943, 0.95249)
pt3dadd(801.686, 834.053, 104.356, 1.0312)
pt3dadd(803.727, 834.326, 104.916, 1.0312)
pt3dadd(805.764, 834.603, 105.475, 1.3216)
pt3dadd(807.772, 835.075, 105.888, 0.954998)
pt3dadd(809.788, 835.543, 106.151, 0.954998)
pt3dadd(811.8, 836.011, 106.414, 1.28325)
pt3dadd(813.763, 836.644, 106.877, 1.174)
pt3dadd(815.779, 836.918, 107.794, 1.22433)
pt3dadd(817.811, 836.793, 108.71, 1.17443)
pt3dadd(819.852, 836.806, 109.517, 1.30128)
pt3dadd(822.307, 836.499, 110.101, 1.30128)
pt3dadd(823.446, 838.102, 110.57, 1.13935)
pt3dadd(825.284, 839.025, 111.099, 1.13935)
pt3dadd(827.263, 839.567, 111.773, 1.10343)
pt3dadd(829.267, 840.072, 112.146, 1.03362)
pt3dadd(831.32, 840.242, 112.544, 1.38914)
pt3dadd(833.37, 840.018, 113.028, 0.992424)
pt3dadd(835.44, 840.056, 113.063, 0.787038)
pt3dadd(837.489, 839.89, 113.658, 1.13856)
pt3dadd(839.538, 839.724, 114.253, 1.13856)
pt3dadd(841.587, 839.559, 114.848, 1.13856)
pt3dadd(843.637, 839.749, 115.345, 1.05523)
pt3dadd(845.686, 839.94, 115.842, 1.19545)
pt3dadd(847.677, 840.474, 116.295, 1.22615)
pt3dadd(849.723, 840.776, 116.502, 1.22615)
pt3dadd(851.772, 841.078, 116.71, 1.23699)
pt3dadd(853.842, 841.12, 116.798, 1.24375)
pt3dadd(855.858, 841.571, 116.824, 1.24375)
pt3dadd(857.878, 842.022, 116.849, 1.54616)
pt3dadd(859.841, 842.685, 116.814, 1.53944)
pt3dadd(861.865, 843.111, 117.02, 1.06627)
pt3dadd(863.782, 843.893, 116.883, 1.38174)
pt3dadd(865.624, 844.829, 116.671, 1.24086)
pt3dadd(867.45, 845.802, 116.504, 1.28066)
pt3dadd(869.243, 846.841, 116.429, 1.44569)
pt3dadd(871.089, 847.777, 116.29, 1.52435)
pt3dadd(873.134, 848.083, 116.157, 1.15553)
pt3dadd(875.196, 848.265, 116.023, 1.15315)
pt3dadd(877.262, 848.182, 115.903, 1.25772)
pt3dadd(879.332, 848.228, 115.931, 0.996192)
pt3dadd(881.394, 848.414, 115.957, 1.18613)
pt3dadd(883.422, 848.82, 116.195, 1.36921)
pt3dadd(885.372, 849.482, 116.723, 1.0313)
pt3dadd(887.305, 850.195, 117.204, 1.15848)
pt3dadd(889.09, 851.225, 117.684, 1.15848)
pt3dadd(890.874, 852.256, 118.165, 1.07521)
pt3dadd(892.799, 853.018, 118.23, 1.29691)
pt3dadd(894.737, 853.738, 118.365, 0.911826)
pt3dadd(896.741, 854.256, 118.549, 0.911826)
pt3dadd(898.744, 854.778, 118.734, 1.05523)
pt3dadd(900.736, 855.328, 118.859, 1.05256)
pt3dadd(902.52, 856.334, 118.111, 1.38712)
pt3dadd(904.197, 857.464, 117.065, 1.38712)
pt3dadd(905.786, 858.764, 116.463, 1.16634)
pt3dadd(907.637, 859.621, 117.355, 1.28251)
pt3dadd(909.421, 860.64, 118.001, 1.36231)
pt3dadd(911.297, 861.505, 117.804, 1.40756)
pt3dadd(913.309, 861.969, 118.213, 1.03786)
pt3dadd(915.333, 862.387, 118.479, 1.03786)
pt3dadd(917.358, 862.805, 118.744, 1.19101)
pt3dadd(919.391, 863.103, 119.372, 1.06996)
pt3dadd(921.444, 863.099, 119.967, 1.16542)
pt3dadd(923.485, 862.884, 120.597, 1.36926)
pt3dadd(925.534, 863.178, 120.853, 1.12314)
pt3dadd(927.555, 863.554, 121.441, 1.12314)
pt3dadd(929.575, 863.927, 122.029, 1.31063)
pt3dadd(931.529, 863.294, 122.652, 1.31063)
pt3dadd(933.483, 862.66, 123.275, 1.31063)
pt3dadd(935.437, 862.027, 123.898, 0.98084)
pt3dadd(937.938, 861.298, 124.271, 0.98084)
}
apic[27] {pt3dclear()
pt3dadd(731.377, 839.294, 97.4566, 1.22471)
pt3dadd(732.97, 838.354, 99.6916, 1.34923)
pt3dadd(734.614, 837.406, 101.702, 1.31751)
pt3dadd(736.336, 836.557, 103.553, 1.21758)
pt3dadd(738.112, 835.63, 104.809, 1.49705)
pt3dadd(739.88, 834.773, 106.383, 1.49705)
pt3dadd(741.648, 833.912, 107.956, 2.00277)
pt3dadd(744.409, 832.86, 110.156, 2.09162)
pt3dadd(747.307, 831.896, 111.479, 1.9256)
pt3dadd(749.224, 831.556, 113.187, 1.66422)
pt3dadd(751.157, 830.906, 114.051, 1.81674)
pt3dadd(752.934, 829.975, 115.292, 1.23018)
pt3dadd(754.676, 828.932, 116.243, 1.23018)
pt3dadd(756.419, 827.884, 117.195, 1.59361)
pt3dadd(758.2, 826.973, 118.477, 1.73145)
pt3dadd(759.255, 825.897, 121.897, 1.25454)
pt3dadd(760.406, 824.796, 125.097, 1.31924)
pt3dadd(761.822, 823.831, 127.895, 1.35917)
pt3dadd(762.865, 822.833, 131.479, 1.51635)
pt3dadd(763.586, 821.513, 134.917, 1.53355)
pt3dadd(763.399, 820.213, 138.786, 1.23208)
pt3dadd(763.101, 818.954, 142.686, 1.54682)
pt3dadd(763.023, 817.547, 146.351, 1.50449)
pt3dadd(763.586, 816.019, 149.438, 1.70414)
pt3dadd(764.335, 814.669, 152.769, 1.89538)
pt3dadd(765.536, 813.597, 155.91, 1.19364)
pt3dadd(767.026, 812.732, 158.677, 1.52892)
pt3dadd(768.686, 812.326, 161.506, 1.16793)
pt3dadd(770.272, 812.264, 164.717, 1.24744)
pt3dadd(772.056, 812.318, 167.237, 1.07174)
pt3dadd(773.985, 811.912, 168.769, 1.19766)
pt3dadd(775.766, 811.303, 170.852, 1.33156)
pt3dadd(777.587, 810.508, 172.255, 1.02824)
pt3dadd(779.268, 809.465, 173.745, 1.15688)
pt3dadd(780.738, 808.169, 175.349, 1.22256)
pt3dadd(782.212, 807.101, 177.731, 1.16972)
pt3dadd(783.971, 806.244, 179.348, 1.03368)
pt3dadd(785.78, 805.491, 180.966, 1.02948)
pt3dadd(787.527, 804.526, 182.28, 1.02948)
pt3dadd(789.279, 803.562, 183.593, 1.41971)
pt3dadd(791.03, 802.51, 184.354, 1.15841)
pt3dadd(792.822, 801.562, 185.355, 1.15841)
pt3dadd(794.619, 800.614, 186.357, 1.20934)
pt3dadd(796.457, 799.687, 186.778, 1.20333)
pt3dadd(798.242, 798.66, 187.331, 1.20333)
pt3dadd(800.026, 797.637, 187.885, 1.22001)
pt3dadd(801.881, 796.78, 188.694, 1.22001)
pt3dadd(803.735, 795.927, 189.503, 1.49721)
pt3dadd(805.76, 795.489, 189.44, 1.49721)
pt3dadd(807.784, 795.054, 189.377, 1.49721)
pt3dadd(809.809, 794.615, 189.314, 1.26821)
pt3dadd(811.875, 794.598, 189.08, 1.32787)
pt3dadd(813.945, 794.619, 189.113, 1.02217)
pt3dadd(815.969, 795.058, 189.024, 1.32126)
pt3dadd(817.965, 795.584, 189.281, 1.07361)
pt3dadd(819.993, 795.961, 189.749, 1.46671)
pt3dadd(821.993, 796.461, 190.158, 1.66007)
pt3dadd(823.906, 797.244, 190.454, 1.27351)
pt3dadd(825.682, 798.304, 190.223, 1.77202)
pt3dadd(827.077, 799.807, 189.537, 1.49329)
pt3dadd(828.174, 801.562, 189.694, 1.61752)
pt3dadd(829.859, 803.905, 190.268, 1.61752)
}
apic[28] {pt3dclear()
pt3dadd(679.66, 840.288, 86.163, 3.47081)
pt3dadd(680.728, 836.305, 86.0472, 2.39232)
pt3dadd(681.966, 832.364, 86.3368, 2.22422)
pt3dadd(682.769, 828.315, 86.5358, 2.39115)
pt3dadd(683.754, 824.315, 86.1563, 2.21997)
pt3dadd(684.57, 820.266, 85.5678, 2.18616)
pt3dadd(685.543, 816.255, 85.9825, 2.13057)
pt3dadd(686.433, 812.235, 85.396, 2.15641)
pt3dadd(687.108, 809.221, 84.9452, 2.04378)
pt3dadd(687.418, 807.176, 85.1624, 2.0432)
pt3dadd(687.733, 805.143, 84.5813, 1.98875)
pt3dadd(688.097, 803.106, 84.8275, 2.05196)
pt3dadd(688.544, 801.086, 84.7153, 2.04459)
pt3dadd(689.31, 798.105, 84.0655, 2.08708)
}
apic[29] {pt3dclear()
pt3dadd(689.31, 798.105, 84.0655, 2.08708)
pt3dadd(690.126, 796.35, 82.8577, 1.59018)
pt3dadd(691.227, 794.805, 80.8355, 1.59018)
pt3dadd(692.705, 793.708, 78.5606, 1.39451)
pt3dadd(694.042, 792.321, 76.7267, 1.36259)
pt3dadd(694.945, 790.587, 75.0839, 1.36259)
pt3dadd(695.843, 788.852, 73.4412, 1.72656)
pt3dadd(696.559, 787.018, 71.8855, 1.42768)
}
apic[30] {pt3dclear()
pt3dadd(696.559, 787.018, 71.8855, 1.42768)
pt3dadd(698.319, 785.565, 70.6948, 1.42711)
pt3dadd(699.85, 784.261, 69.5448, 1.42711)
}
}
proc shape3d_23() {
apic[30] { pt3dadd(701.167, 782.684, 68.8801, 1.37218)
pt3dadd(701.651, 780.721, 67.8042, 1.29908)
pt3dadd(702.508, 778.891, 66.7283, 1.37044)
pt3dadd(703.651, 777.273, 65.2636, 1.12098)
pt3dadd(704.847, 775.89, 62.9225, 0.862494)
pt3dadd(706.744, 775.376, 61.3447, 1.23723)
pt3dadd(708.706, 774.847, 60.4209, 1.02363)
pt3dadd(710.569, 774.068, 59.309, 1.31857)
pt3dadd(712.25, 773.166, 57.3569, 1.36006)
pt3dadd(713.678, 772.064, 54.9111, 1.36006)
pt3dadd(715.106, 770.963, 52.4654, 1.02996)
pt3dadd(716.266, 769.523, 50.2067, 1.02996)
pt3dadd(717.421, 768.082, 47.9481, 1.12041)
pt3dadd(718.832, 766.873, 45.7446, 1.16693)
pt3dadd(720.443, 765.701, 44.3735, 1.20095)
pt3dadd(721.937, 764.513, 42.4425, 1.02501)
pt3dadd(723.419, 763.159, 41.2469, 1.45942)
pt3dadd(724.918, 761.913, 39.5576, 1.30383)
pt3dadd(726.272, 760.555, 37.6584, 1.30383)
pt3dadd(727.622, 759.201, 35.7593, 1.00813)
pt3dadd(728.801, 757.678, 33.9329, 1.46299)
pt3dadd(730.077, 756.175, 32.3974, 1.38123)
pt3dadd(731.952, 754.565, 30.3832, 1.38123)
}
apic[31] {pt3dclear()
pt3dadd(696.559, 787.018, 71.8855, 1.42768)
pt3dadd(696.137, 785.064, 70.5627, 1.42768)
pt3dadd(695.715, 783.114, 69.2399, 1.42768)
pt3dadd(695.292, 781.164, 67.9171, 1.36005)
pt3dadd(694.808, 779.239, 66.4916, 1.16327)
pt3dadd(693.665, 777.562, 65.4987, 1.16327)
pt3dadd(692.527, 775.886, 64.5058, 1.16327)
pt3dadd(691.384, 774.205, 63.513, 1.16327)
pt3dadd(690.246, 772.528, 62.5201, 1.2568)
pt3dadd(689.434, 770.686, 61.3522, 1.2568)
pt3dadd(688.826, 768.74, 60.4846, 1.29222)
}
apic[32] {pt3dclear()
pt3dadd(688.826, 768.74, 60.4846, 1.29222)
pt3dadd(689.948, 764.753, 56.0331, 1.656)
pt3dadd(691.078, 763.23, 54.0301, 1.32585)
pt3dadd(692.026, 761.801, 51.2242, 1.16219)
pt3dadd(692.92, 760.336, 48.438, 1.36131)
pt3dadd(694.253, 759.255, 45.6456, 1.12205)
pt3dadd(695.541, 758.071, 42.964, 1.16247)
pt3dadd(696.808, 756.825, 40.4073, 1.36021)
pt3dadd(698.236, 755.62, 38.2565, 1.38784)
pt3dadd(699.151, 754.337, 35.3314, 1.38784)
}
apic[33] {pt3dclear()
pt3dadd(688.826, 768.74, 60.4846, 1.29222)
pt3dadd(687.795, 766.985, 59.572, 1.26724)
pt3dadd(686.226, 765.635, 59.5561, 1.29421)
pt3dadd(684.859, 764.091, 59.1118, 1.13884)
pt3dadd(683.485, 762.551, 58.8114, 1.13634)
pt3dadd(682.396, 760.824, 57.9427, 1.46178)
pt3dadd(681.444, 758.99, 57.6593, 0.981826)
pt3dadd(680.989, 756.995, 56.9421, 1.06113)
pt3dadd(680.873, 754.929, 56.6518, 1.40494)
pt3dadd(680.595, 752.921, 55.6618, 1.43266)
pt3dadd(679.949, 751.025, 54.4191, 1.00706)
pt3dadd(679.229, 749.286, 52.3329, 1.00706)
pt3dadd(678.513, 747.543, 50.2467, 1.33564)
pt3dadd(678.12, 745.589, 48.9188, 1.03501)
pt3dadd(677.577, 743.635, 47.9335, 1.11326)
pt3dadd(677.064, 741.784, 46.0526, 1.14849)
pt3dadd(676.567, 739.847, 44.7512, 1.2246)
pt3dadd(676.273, 737.988, 42.6742, 1.2246)
pt3dadd(676.045, 736.146, 40.4629, 1.25524)
pt3dadd(675.528, 734.366, 38.2515, 1.086)
pt3dadd(674.468, 732.677, 36.888, 1.086)
pt3dadd(673.408, 730.992, 35.5246, 1.18577)
pt3dadd(672.891, 729.058, 34.2581, 1.18577)
pt3dadd(672.377, 727.121, 32.9917, 1.17887)
pt3dadd(672.042, 726.479, 32.5648, 1.17887)
}
apic[34] {pt3dclear()
pt3dadd(689.31, 798.105, 84.0655, 2.08708)
pt3dadd(690.063, 794.048, 83.7374, 2.16325)
pt3dadd(690.709, 789.987, 84.3642, 2.28112)
pt3dadd(690.788, 785.888, 83.9879, 2.213)
}
apic[35] {pt3dclear()
pt3dadd(690.788, 785.888, 83.9879, 2.213)
pt3dadd(692.204, 784.315, 83.8977, 2.50501)
}
apic[36] {pt3dclear()
pt3dadd(692.204, 784.315, 83.8977, 2.50501)
pt3dadd(689.389, 783.089, 82.7892, 2.54987)
pt3dadd(686.528, 780.481, 79.4883, 1.97541)
pt3dadd(685.899, 778.693, 77.4628, 1.656)
pt3dadd(685.87, 776.85, 75.1869, 1.61631)
pt3dadd(685.754, 774.913, 73.4586, 1.61631)
pt3dadd(685.638, 772.975, 71.7302, 1.1386)
pt3dadd(685.067, 771.121, 69.9765, 1.15554)
pt3dadd(684.267, 769.324, 68.4222, 1.15554)
pt3dadd(683.468, 767.527, 66.8679, 1.26218)
pt3dadd(682.355, 765.854, 65.6553, 1.32848)
pt3dadd(681.581, 764.037, 64.1706, 1.40632)
pt3dadd(680.55, 762.369, 62.5544, 1.40632)
pt3dadd(679.523, 760.7, 60.9382, 1.36103)
pt3dadd(678.645, 758.903, 59.6517, 1.13132)
pt3dadd(677.875, 757.016, 58.7874, 1.5171)
pt3dadd(676.857, 755.335, 57.2052, 1.28355)
pt3dadd(675.963, 753.612, 55.4723, 1.29575)
pt3dadd(675.42, 751.741, 53.7858, 1.30369)
pt3dadd(674.828, 749.866, 52.2361, 1.01303)
pt3dadd(673.818, 748.081, 51.5309, 1.17832)
pt3dadd(672.704, 746.367, 50.7938, 1.1603)
pt3dadd(671.529, 744.732, 49.6194, 1.20827)
pt3dadd(670.498, 742.989, 48.5883, 1.29044)
pt3dadd(669.773, 741.155, 47.0609, 1.29044)
pt3dadd(669.053, 739.321, 45.5335, 1.30888)
pt3dadd(668.593, 737.359, 44.364, 1.37051)
pt3dadd(667.778, 735.488, 43.5658, 0.982786)
pt3dadd(667.198, 733.567, 42.323, 1.2568)
pt3dadd(666.59, 731.625, 41.4072, 1.2568)
pt3dadd(665.981, 729.683, 40.4913, 1.25454)
pt3dadd(665.203, 727.845, 39.1598, 1.29194)
pt3dadd(664.242, 726.032, 38.4979, 1.29377)
pt3dadd(663.245, 724.297, 37.2303, 1.0292)
pt3dadd(662.11, 722.596, 36.4649, 1.3972)
pt3dadd(660.893, 721.014, 35.128, 1.39775)
pt3dadd(659.448, 719.549, 34.5714, 1.30776)
pt3dadd(657.842, 718.249, 34.3319, 1.21449)
pt3dadd(655.267, 716.104, 34.234, 1.21449)
}
apic[37] {pt3dclear()
pt3dadd(692.204, 784.315, 83.8977, 2.50501)
pt3dadd(695.276, 781.545, 84.0019, 1.89761)
pt3dadd(696.613, 779.984, 83.3908, 1.75482)
pt3dadd(698.021, 778.469, 83.4836, 1.84398)
pt3dadd(699.432, 776.958, 83.5764, 1.84398)
}
apic[38] {pt3dclear()
pt3dadd(699.432, 776.958, 83.5764, 1.84398)
pt3dadd(700.235, 777.397, 81.1582, 1.58664)
pt3dadd(702.761, 775.857, 78.8824, 1.31419)
pt3dadd(704.313, 774.615, 77.5077, 1.4312)
pt3dadd(706.06, 773.687, 76.0265, 1.41861)
pt3dadd(707.841, 772.868, 74.4209, 1.3906)
pt3dadd(709.737, 772.193, 73.2491, 1.45113)
pt3dadd(711.281, 770.922, 71.9634, 1.53414)
pt3dadd(712.792, 769.8, 69.8862, 1.19781)
pt3dadd(714.581, 768.988, 68.3118, 1.28535)
pt3dadd(716.439, 768.372, 66.6845, 1.19953)
pt3dadd(718.311, 768.119, 64.6396, 1.41303)
pt3dadd(720.219, 767.589, 63.1775, 1.41303)
pt3dadd(722.128, 767.063, 61.7153, 1.13979)
pt3dadd(723.945, 766.405, 59.938, 1.23336)
pt3dadd(725.655, 765.42, 58.4136, 1.44598)
pt3dadd(727.427, 764.439, 57.3846, 1.44598)
pt3dadd(729.199, 763.457, 56.3556, 1.099)
pt3dadd(730.851, 762.298, 55.2455, 1.42859)
pt3dadd(732.329, 760.903, 54.2991, 1.42859)
pt3dadd(733.803, 759.504, 53.3527, 1.0897)
pt3dadd(735.463, 758.398, 52.0185, 1.0897)
pt3dadd(736.97, 757.086, 50.7012, 1.50333)
pt3dadd(737.996, 755.343, 49.6537, 1.50333)
pt3dadd(739.35, 753.84, 48.5915, 1.13039)
pt3dadd(740.46, 752.246, 46.8465, 0.94411)
pt3dadd(741.565, 750.586, 45.5251, 1.11061)
pt3dadd(742.749, 748.934, 44.559, 1.51015)
pt3dadd(744.012, 747.357, 43.4724, 1.2688)
pt3dadd(745.225, 745.734, 42.45, 1.16464)
pt3dadd(746.496, 744.119, 41.8077, 1.26143)
pt3dadd(747.97, 742.753, 40.6395, 1.61708)
pt3dadd(749.535, 741.486, 39.4712, 1.61453)
pt3dadd(751.104, 740.323, 37.8168, 1.673)
pt3dadd(752.789, 739.3, 36.2841, 1.39612)
pt3dadd(754.287, 738.071, 34.5303, 1.49139)
pt3dadd(755.422, 736.394, 33.4838, 1.60627)
pt3dadd(756.407, 734.159, 32.4076, 1.60627)
}
apic[39] {pt3dclear()
pt3dadd(699.432, 776.958, 83.5764, 1.84398)
pt3dadd(700.836, 775.492, 84.553, 1.48309)
pt3dadd(702.339, 774.072, 84.8766, 1.90025)
pt3dadd(703.547, 772.408, 85.4849, 1.8174)
pt3dadd(704.707, 770.702, 85.1258, 1.75736)
pt3dadd(705.812, 768.972, 85.7506, 1.73964)
pt3dadd(706.851, 767.179, 85.8236, 1.656)
pt3dadd(708.023, 765.474, 85.8966, 1.726)
pt3dadd(709.455, 763.983, 86.0956, 1.75919)
pt3dadd(711.012, 762.621, 85.8246, 1.9042)
pt3dadd(712.386, 761.085, 86.239, 1.9042)
pt3dadd(713.765, 759.549, 86.6533, 1.88169)
pt3dadd(714.986, 757.885, 86.9907, 1.91569)
pt3dadd(716.216, 756.221, 86.9492, 1.91569)
pt3dadd(717.445, 754.552, 86.9077, 1.61741)
pt3dadd(718.741, 752.942, 86.6836, 1.57606)
pt3dadd(720.037, 751.327, 86.6275, 1.57136)
pt3dadd(721.432, 749.8, 86.7491, 1.58826)
pt3dadd(722.819, 748.313, 87.7059, 1.67793)
}
apic[40] {pt3dclear()
pt3dadd(722.819, 748.313, 87.7059, 1.67793)
pt3dadd(722.608, 746.595, 86.5031, 1.58847)
pt3dadd(722.641, 744.608, 85.1298, 1.58847)
pt3dadd(723.047, 742.646, 83.8435, 1.51701)
pt3dadd(723.225, 740.621, 82.9012, 1.12986)
pt3dadd(723.568, 738.651, 81.6418, 1.21631)
pt3dadd(723.622, 736.643, 80.4019, 1.62228)
pt3dadd(723.362, 734.61, 79.7386, 1.55108)
pt3dadd(723.101, 732.573, 79.0753, 1.55108)
pt3dadd(722.927, 730.565, 77.9325, 1.43627)
pt3dadd(722.62, 728.52, 77.7188, 1.50051)
pt3dadd(722.716, 726.458, 77.3407, 1.50051)
pt3dadd(722.807, 724.396, 76.9626, 1.48085)
pt3dadd(722.852, 722.331, 76.7385, 1.07638)
pt3dadd(723.188, 720.294, 77.1208, 1.20885)
pt3dadd(723.713, 718.294, 76.7863, 1.66989)
pt3dadd(724.396, 716.344, 76.4902, 1.3778)
pt3dadd(725.08, 714.394, 76.1941, 1.79584)
pt3dadd(726.135, 712.631, 75.5672, 1.34025)
pt3dadd(727.568, 711.14, 75.3128, 1.18873)
pt3dadd(729.05, 709.745, 74.4441, 1.20976)
pt3dadd(730.764, 708.586, 74.1589, 1.54193)
pt3dadd(732.407, 707.418, 73.0355, 1.2206)
pt3dadd(733.906, 706.027, 72.2509, 1.22946)
}
}
proc shape3d_24() {
apic[40] { pt3dadd(735.293, 704.595, 70.9003, 1.26003)
pt3dadd(736.282, 702.798, 70.2296, 1.37094)
pt3dadd(736.966, 700.848, 69.9322, 1.37094)
pt3dadd(737.653, 698.898, 69.6348, 1.53881)
pt3dadd(738.758, 697.151, 69.503, 1.53881)
pt3dadd(739.868, 695.404, 69.3713, 1.39002)
pt3dadd(740.091, 693.346, 69.0972, 1.39973)
pt3dadd(739.992, 691.289, 68.6707, 1.39559)
pt3dadd(740.128, 689.244, 67.9712, 1.39559)
pt3dadd(740.265, 687.199, 67.2717, 1.37049)
pt3dadd(740.48, 685.141, 67.1753, 0.973778)
pt3dadd(740.344, 683.1, 66.4128, 0.973778)
pt3dadd(740.207, 681.059, 65.6504, 1.03538)
pt3dadd(740.456, 679.014, 65.1106, 1.14217)
pt3dadd(740.592, 676.96, 64.5479, 1.14217)
pt3dadd(740.725, 674.911, 63.9853, 1.19485)
pt3dadd(741.217, 672.899, 63.8548, 1.30738)
pt3dadd(742.016, 671.003, 63.2921, 0.898604)
pt3dadd(743.022, 669.202, 62.9519, 1.11892)
pt3dadd(744.045, 667.409, 62.5144, 1.1922)
pt3dadd(745.39, 665.844, 62.1036, 1.1922)
pt3dadd(746.732, 664.28, 61.6929, 1.1922)
pt3dadd(748.077, 662.715, 61.2821, 1.09075)
pt3dadd(749.237, 661.046, 60.3133, 1.25505)
pt3dadd(750.172, 659.208, 59.9883, 1.25505)
pt3dadd(751.112, 657.366, 59.6632, 1.08651)
pt3dadd(751.948, 655.474, 59.6654, 1.07589)
pt3dadd(753.194, 653.843, 59.0325, 1.23125)
pt3dadd(754.37, 652.149, 58.5784, 0.872522)
pt3dadd(755.198, 650.266, 58.0225, 1.51836)
pt3dadd(756.962, 649.193, 57.6847, 1.04167)
pt3dadd(758.854, 648.349, 57.5194, 1.04567)
pt3dadd(760.833, 647.757, 57.2754, 1.23334)
pt3dadd(762.704, 646.904, 56.6576, 0.782652)
pt3dadd(764.641, 646.208, 56.1743, 0.836288)
pt3dadd(766.409, 645.19, 55.3149, 0.941502)
pt3dadd(768.011, 643.894, 54.8972, 0.941502)
pt3dadd(769.618, 642.598, 54.4795, 0.941502)
pt3dadd(771.224, 641.303, 54.0618, 1.07729)
pt3dadd(772.735, 639.916, 53.4151, 1.09581)
pt3dadd(774.147, 638.487, 52.1907, 0.962434)
pt3dadd(775.728, 637.175, 51.6359, 0.98118)
pt3dadd(777.086, 635.639, 50.8997, 1.31223)
pt3dadd(778.179, 633.892, 50.3857, 1.33893)
pt3dadd(779.562, 632.356, 50.3623, 1.33893)
pt3dadd(780.945, 630.816, 50.339, 1.17662)
pt3dadd(781.789, 628.924, 50.3241, 1.23408)
pt3dadd(782.294, 626.92, 50.076, 1.23408)
pt3dadd(782.795, 624.916, 49.8278, 1.23244)
pt3dadd(783.781, 621.762, 50.3485, 1.23244)
pt3dadd(784.066, 620.855, 50.0061, 1.61941)
pt3dadd(784.915, 618.988, 49.3611, 1.61941)
pt3dadd(786.256, 617.431, 48.8062, 1.242)
pt3dadd(787.602, 615.871, 48.2512, 1.242)
pt3dadd(788.778, 614.235, 47.1, 1.1092)
pt3dadd(790.194, 612.766, 46.2907, 1.4683)
pt3dadd(791.357, 611.155, 44.8924, 1.75015)
pt3dadd(791.912, 609.255, 43.4086, 1.38301)
pt3dadd(792.396, 607.35, 41.8559, 1.62834)
pt3dadd(793.178, 605.463, 41.0591, 1.87183)
pt3dadd(793.762, 603.479, 40.6762, 1.33468)
pt3dadd(794.309, 601.517, 39.8329, 1.3441)
pt3dadd(795.083, 599.609, 39.2732, 1.37277)
pt3dadd(795.576, 597.667, 38.0125, 1.54143)
pt3dadd(796.507, 595.82, 38.005, 1.54143)
pt3dadd(797.439, 593.974, 37.9976, 1.26819)
pt3dadd(798.333, 592.107, 37.8198, 1.39659)
pt3dadd(798.888, 590.116, 37.6221, 1.46212)
pt3dadd(799.181, 588.066, 37.8243, 1.46212)
pt3dadd(799.471, 586.021, 38.0265, 1.43443)
pt3dadd(799.703, 583.988, 38.8429, 1.01767)
pt3dadd(799.947, 581.935, 38.8354, 1.01767)
pt3dadd(800.188, 579.877, 38.828, 1.01767)
pt3dadd(800.432, 577.824, 38.8205, 1.37873)
pt3dadd(800.589, 575.779, 38.1533, 1.20422)
pt3dadd(800.556, 573.709, 38.0113, 1.02915)
}
apic[41] {pt3dclear()
pt3dadd(800.556, 573.709, 38.0113, 1.02915)
pt3dadd(800.192, 572.458, 37.9453, 1.32574)
pt3dadd(800.088, 568.385, 36.178, 1.32574)
pt3dadd(800.676, 566.431, 35.3871, 1.07686)
pt3dadd(800.684, 564.965, 34.6953, 1.14292)
}
apic[42] {pt3dclear()
pt3dadd(800.556, 573.709, 38.0113, 1.02915)
pt3dadd(800.096, 571.452, 37.3843, 1.02915)
}
apic[43] {pt3dclear()
pt3dadd(722.819, 748.313, 87.7059, 1.67793)
pt3dadd(724.239, 746.81, 87.7215, 1.71918)
pt3dadd(725.386, 745.101, 88.2709, 1.87188)
pt3dadd(726.731, 743.532, 88.4066, 1.87188)
pt3dadd(728.081, 741.958, 88.5424, 1.87188)
pt3dadd(729.427, 740.389, 88.6781, 1.87188)
pt3dadd(730.772, 738.82, 88.8138, 1.87202)
pt3dadd(732.089, 737.218, 88.6896, 1.87202)
pt3dadd(733.401, 735.62, 88.5653, 1.82468)
}
apic[44] {pt3dclear()
pt3dadd(733.401, 735.62, 88.5653, 1.82468)
pt3dadd(735.781, 735.165, 89.2409, 2.023)
pt3dadd(737.818, 735.053, 90.0874, 2.023)
pt3dadd(739.818, 734.597, 90.804, 1.50659)
pt3dadd(741.871, 734.448, 91.2916, 1.75827)
pt3dadd(744.823, 733.674, 92.4894, 2.14828)
pt3dadd(748.789, 732.643, 93.8358, 2.07194)
pt3dadd(751.774, 731.923, 94.9818, 1.656)
pt3dadd(753.77, 731.389, 95.0947, 1.69827)
pt3dadd(755.769, 730.884, 95.5602, 1.69827)
pt3dadd(758.792, 730.25, 96.2149, 2.11585)
pt3dadd(762.874, 729.787, 95.6181, 2.39814)
pt3dadd(766.943, 729.211, 94.7378, 2.25927)
pt3dadd(770.955, 728.276, 94.1137, 2.1492)
pt3dadd(773.861, 727.319, 93.1866, 2.03528)
pt3dadd(776.772, 726.421, 91.7068, 2.08182)
pt3dadd(780.767, 725.821, 89.7073, 2.11685)
pt3dadd(783.834, 725.485, 89.3585, 1.61766)
pt3dadd(785.904, 725.527, 89.2071, 2.05567)
pt3dadd(787.97, 725.407, 89.1919, 1.98795)
pt3dadd(790.007, 725.034, 89.156, 1.98795)
pt3dadd(792.044, 724.661, 89.12, 1.59452)
pt3dadd(794.002, 723.999, 89.0103, 1.7809)
pt3dadd(795.903, 723.183, 89.2578, 1.73301)
pt3dadd(797.695, 722.169, 89.7706, 1.15862)
pt3dadd(799.492, 721.213, 90.6729, 1.26929)
pt3dadd(801.053, 719.909, 91.593, 1.41297)
pt3dadd(802.498, 718.427, 91.7865, 1.682)
pt3dadd(804.195, 717.247, 92.0947, 1.682)
pt3dadd(805.888, 716.067, 92.4028, 1.68396)
pt3dadd(807.681, 715.098, 93.2819, 1.75247)
pt3dadd(809.602, 714.361, 93.8079, 1.09157)
pt3dadd(811.49, 713.504, 93.8455, 1.47943)
pt3dadd(813.378, 712.68, 94.2769, 1.40623)
pt3dadd(815.249, 711.956, 95.5101, 1.19942)
pt3dadd(817.236, 711.384, 95.821, 1.27728)
pt3dadd(819.269, 710.991, 95.7556, 1.38889)
pt3dadd(821.198, 710.271, 95.3374, 1.19311)
pt3dadd(823.02, 709.29, 95.4311, 1.19311)
pt3dadd(824.841, 708.304, 95.5248, 1.31941)
pt3dadd(826.609, 707.232, 95.7956, 0.96539)
pt3dadd(828.31, 706.052, 95.8891, 0.96539)
pt3dadd(830.008, 704.868, 95.9825, 1.11593)
pt3dadd(831.734, 703.73, 95.9728, 1.20769)
pt3dadd(833.506, 702.657, 95.9394, 0.931334)
pt3dadd(835.382, 701.776, 95.9478, 0.931334)
pt3dadd(837.253, 700.898, 95.9562, 0.9663)
pt3dadd(839.004, 699.788, 95.9489, 0.9663)
pt3dadd(840.751, 698.683, 95.9416, 0.9663)
pt3dadd(842.498, 697.573, 95.9343, 0.9663)
pt3dadd(844.25, 696.468, 95.927, 1.00386)
pt3dadd(846.154, 695.702, 95.2537, 1.3012)
pt3dadd(848.116, 695.094, 94.6932, 1.41844)
pt3dadd(849.983, 694.253, 93.9402, 1.38957)
pt3dadd(851.958, 693.645, 93.6663, 1.45827)
pt3dadd(853.825, 692.879, 92.5539, 1.53818)
pt3dadd(855.647, 691.906, 92.2315, 1.27051)
pt3dadd(857.382, 690.776, 92.2224, 1.27051)
pt3dadd(859.116, 689.649, 92.2132, 1.58615)
pt3dadd(860.851, 688.548, 91.5707, 1.09161)
pt3dadd(862.573, 687.406, 91.2524, 1.37388)
pt3dadd(864.233, 686.18, 90.9396, 1.37388)
pt3dadd(865.898, 684.955, 90.6267, 1.09799)
pt3dadd(867.595, 683.771, 90.8485, 1.39868)
pt3dadd(869.102, 682.388, 91.6323, 1.39868)
pt3dadd(870.609, 681.009, 92.4161, 1.19655)
pt3dadd(872.281, 679.925, 93.7699, 1.19655)
pt3dadd(873.954, 678.84, 95.1237, 1.19655)
pt3dadd(875.627, 677.755, 96.4775, 1.12259)
pt3dadd(876.902, 676.137, 96.9029, 1.12259)
pt3dadd(878.181, 674.518, 97.3283, 1.18053)
pt3dadd(879.733, 673.147, 97.3856, 1.31917)
pt3dadd(881.224, 671.715, 97.5599, 1.26479)
pt3dadd(883, 670.655, 97.3214, 1.22663)
pt3dadd(884.793, 669.624, 97.4691, 1.2204)
pt3dadd(886.631, 668.742, 98.3317, 0.798326)
pt3dadd(888.456, 667.765, 98.4442, 1.06351)
pt3dadd(890.365, 666.979, 98.755, 1.03899)
pt3dadd(892.228, 666.097, 99.2225, 1.00405)
pt3dadd(894.021, 665.207, 100.508, 1.09373)
pt3dadd(895.867, 664.284, 100.916, 1.20429)
pt3dadd(897.805, 663.63, 101.681, 1.20429)
pt3dadd(899.742, 662.98, 102.446, 1.2109)
pt3dadd(901.58, 662.085, 103.28, 1.3254)
pt3dadd(903.547, 661.539, 104.112, 1.38163)
pt3dadd(905.567, 661.382, 105.131, 1.2904)
pt3dadd(907.488, 661.721, 106.787, 1.28617)
pt3dadd(909.392, 662.048, 108.597, 1.11631)
pt3dadd(911.09, 662.259, 111.234, 1.11631)
}
apic[45] {pt3dclear()
pt3dadd(733.401, 735.62, 88.5653, 1.82468)
pt3dadd(734.788, 734.084, 88.6485, 1.42716)
pt3dadd(735.856, 732.316, 88.9596, 1.55441)
pt3dadd(736.767, 730.457, 88.9353, 1.55441)
pt3dadd(737.678, 728.599, 88.911, 1.54829)
pt3dadd(738.932, 726.955, 88.6879, 1.75107)
pt3dadd(740.071, 725.224, 88.6811, 1.39135)
pt3dadd(741.11, 723.469, 89.5188, 1.45831)
}
apic[46] {pt3dclear()
pt3dadd(741.11, 723.469, 89.5188, 1.45831)
pt3dadd(742.459, 723.581, 87.7365, 1.46963)
pt3dadd(744.343, 722.927, 86.4018, 1.46963)
pt3dadd(745.771, 721.453, 85.7588, 1.57414)
pt3dadd(747.345, 720.182, 84.6806, 1.08996)
pt3dadd(748.823, 718.75, 84.2223, 0.871494)
pt3dadd(750.565, 717.628, 84.2353, 1.15229)
pt3dadd(752.346, 716.597, 83.7178, 0.988624)
pt3dadd(754.076, 715.458, 83.7107, 1.04008)
pt3dadd(755.819, 714.357, 83.2764, 1.04008)
pt3dadd(757.562, 713.256, 82.8422, 1.10158)
}
}
proc shape3d_25() {
apic[46] { pt3dadd(759.466, 712.448, 82.9491, 1.10158)
pt3dadd(761.375, 711.641, 83.056, 1.01817)
pt3dadd(763.238, 710.743, 83.1475, 1.01817)
pt3dadd(765.101, 709.84, 83.239, 0.688542)
pt3dadd(766.906, 708.83, 83.0442, 0.688542)
pt3dadd(768.711, 707.824, 82.8494, 1.03746)
pt3dadd(770.487, 706.777, 82.3884, 1.03746)
pt3dadd(772.251, 705.692, 82.5599, 1.14993)
pt3dadd(774.097, 704.843, 81.6074, 1.14993)
pt3dadd(775.94, 703.995, 80.6549, 1.15987)
pt3dadd(777.79, 703.063, 80.6804, 1.25784)
pt3dadd(779.318, 701.68, 80.2752, 1.25784)
pt3dadd(780.85, 700.293, 79.87, 1.25784)
pt3dadd(782.377, 698.906, 79.4648, 0.93049)
pt3dadd(783.843, 697.453, 79.0922, 1.26874)
pt3dadd(785.432, 696.129, 79.2674, 1.25256)
pt3dadd(786.923, 694.7, 78.9116, 0.868596)
pt3dadd(788.355, 693.206, 78.9344, 1.06242)
pt3dadd(789.705, 691.637, 79.0887, 1.1444)
pt3dadd(790.752, 689.852, 79.006, 1.1444)
pt3dadd(791.796, 688.068, 78.9232, 0.994262)
pt3dadd(792.943, 686.346, 79.0489, 1.18016)
pt3dadd(794.83, 685.493, 78.9623, 1.3966)
pt3dadd(796.751, 684.773, 78.2889, 1.38458)
pt3dadd(798.585, 683.858, 77.5624, 1.37696)
pt3dadd(800.494, 683.063, 77.3776, 1.34548)
pt3dadd(802.22, 681.953, 76.7475, 1.47329)
pt3dadd(803.885, 680.724, 76.9267, 1.83395)
pt3dadd(805.747, 679.838, 76.4563, 1.36569)
pt3dadd(807.619, 679.039, 75.562, 0.935152)
pt3dadd(809.606, 678.48, 75.1293, 0.935152)
pt3dadd(811.589, 677.925, 74.6965, 1.24602)
pt3dadd(813.489, 677.118, 74.2535, 1.63744)
pt3dadd(815.315, 676.157, 73.9393, 1.24061)
pt3dadd(817.178, 675.267, 73.5656, 1.57003)
pt3dadd(819.082, 674.456, 73.3071, 1.34569)
pt3dadd(820.892, 673.45, 73.4027, 1.33954)
pt3dadd(822.56, 672.228, 73.4158, 1.26167)
pt3dadd(824.34, 671.185, 72.9896, 1.07581)
pt3dadd(826.278, 670.456, 72.9784, 1.07581)
pt3dadd(828.215, 669.728, 72.9672, 1.36633)
pt3dadd(829.892, 668.544, 72.361, 1.42128)
pt3dadd(831.37, 667.095, 72.3205, 1.42128)
pt3dadd(833.009, 665.832, 72.0374, 1.42128)
pt3dadd(834.645, 664.569, 71.7542, 1.04617)
pt3dadd(836.284, 663.311, 72.0262, 1.18644)
pt3dadd(837.915, 662.044, 72.2982, 1.25782)
pt3dadd(839.331, 660.545, 72.7322, 0.934108)
pt3dadd(840.954, 659.258, 72.6707, 0.934108)
pt3dadd(842.573, 657.97, 72.6091, 1.10363)
pt3dadd(844.349, 656.906, 72.3889, 1.10363)
pt3dadd(846.121, 655.846, 72.1688, 1.26254)
pt3dadd(847.81, 654.65, 72.1127, 1.04297)
pt3dadd(849.499, 653.453, 72.0566, 1.50269)
pt3dadd(851.325, 652.493, 72.5261, 1.50269)
pt3dadd(853.151, 651.537, 72.9957, 0.749562)
pt3dadd(854.984, 650.576, 73.1025, 1.07338)
pt3dadd(856.752, 649.5, 72.9987, 1.07338)
pt3dadd(858.52, 648.423, 72.8949, 0.971724)
pt3dadd(860.354, 647.484, 73.2806, 1.15399)
pt3dadd(862.217, 646.589, 73.59, 1.30535)
pt3dadd(864.047, 645.641, 73.1347, 1.30535)
pt3dadd(865.881, 644.693, 72.6794, 1.3181)
pt3dadd(867.289, 643.965, 71.532, 1.3181)
}
apic[47] {pt3dclear()
pt3dadd(741.11, 723.469, 89.5188, 1.45831)
pt3dadd(742.037, 721.643, 90.2604, 1.51916)
pt3dadd(742.977, 719.801, 90.0363, 1.26817)
pt3dadd(744.124, 718.079, 90.0556, 1.26994)
pt3dadd(745.051, 716.228, 90.2601, 1.35766)
pt3dadd(745.908, 714.345, 90.252, 1.47733)
pt3dadd(746.583, 712.391, 90.3218, 1.47733)
pt3dadd(747.258, 710.432, 90.3916, 1.53775)
pt3dadd(747.572, 708.391, 90.8053, 1.26116)
pt3dadd(748.177, 706.421, 91.1835, 1.26408)
pt3dadd(749.029, 704.541, 91.5189, 1.26408)
pt3dadd(749.886, 702.657, 91.8543, 1.26408)
pt3dadd(750.739, 700.778, 92.1897, 1.31656)
pt3dadd(751.48, 698.861, 91.5973, 1.32165)
pt3dadd(752.014, 696.865, 91.3531, 1.32165)
pt3dadd(752.553, 694.866, 91.1089, 1.30027)
pt3dadd(753.004, 692.854, 91.4663, 1.29705)
pt3dadd(753.687, 690.9, 91.2666, 1.09467)
pt3dadd(754.031, 688.863, 91.4941, 1.09467)
pt3dadd(754.374, 686.822, 91.7215, 1.24691)
pt3dadd(754.573, 684.764, 91.5314, 1.26747)
pt3dadd(754.714, 682.698, 91.5163, 1.37523)
pt3dadd(754.772, 680.628, 91.5825, 1.31276)
pt3dadd(754.78, 678.558, 91.6487, 1.36517)
pt3dadd(755.194, 676.53, 91.608, 1.24243)
pt3dadd(755.413, 674.476, 91.3877, 1.31616)
pt3dadd(755.26, 672.411, 91.5113, 1.31616)
pt3dadd(755.103, 670.349, 91.6349, 1.3915)
pt3dadd(755.256, 668.287, 91.3985, 1.3915)
pt3dadd(755.405, 666.221, 91.162, 1.38365)
pt3dadd(755.579, 664.159, 91.2613, 1.22617)
pt3dadd(755.629, 662.089, 91.226, 1.22617)
pt3dadd(755.682, 660.024, 91.1906, 1.31042)
pt3dadd(755.72, 657.954, 91.4701, 1.31042)
pt3dadd(755.757, 655.888, 91.7495, 1.31042)
pt3dadd(755.865, 653.826, 92.0584, 1.31042)
pt3dadd(755.968, 651.764, 92.3674, 1.31042)
pt3dadd(756.072, 649.698, 92.6763, 1.45512)
pt3dadd(755.836, 647.641, 92.6758, 1.17087)
pt3dadd(755.716, 645.575, 92.5328, 1.17087)
pt3dadd(755.6, 643.509, 92.3898, 1.3818)
pt3dadd(755.384, 641.456, 92.621, 1.38939)
pt3dadd(754.917, 639.444, 93.0474, 1.40201)
pt3dadd(754.763, 637.382, 93.2458, 1.40164)
pt3dadd(754.548, 635.324, 93.4177, 1.40164)
pt3dadd(754.329, 633.267, 93.5896, 1.40164)
pt3dadd(754.109, 631.209, 93.7615, 1.44098)
pt3dadd(753.629, 629.201, 93.4067, 1.31404)
pt3dadd(753.219, 627.177, 93.5746, 1.68868)
pt3dadd(753.377, 625.115, 93.8704, 1.34008)
pt3dadd(753.749, 623.087, 94.2722, 1.34008)
pt3dadd(754.122, 621.058, 94.6741, 1.38661)
}
apic[48] {pt3dclear()
pt3dadd(754.122, 621.058, 94.6741, 1.38661)
pt3dadd(754.089, 619.837, 94.5647, 1.6261)
pt3dadd(753.675, 617.808, 94.5071, 1.6261)
pt3dadd(752.412, 616.169, 94.4628, 1.58361)
pt3dadd(751.77, 614.206, 94.6919, 1.4819)
pt3dadd(751.526, 612.161, 95.2014, 1.29949)
pt3dadd(751.282, 610.116, 95.7109, 1.29949)
pt3dadd(750.942, 608.104, 96.5277, 1.23396)
pt3dadd(750.222, 606.162, 96.7618, 1.47812)
pt3dadd(749.828, 604.154, 97.5373, 1.40868)
pt3dadd(749.377, 602.138, 97.3395, 1.37383)
pt3dadd(749.319, 600.072, 97.0589, 1.28728)
pt3dadd(749.485, 598.019, 97.5132, 1.20134)
pt3dadd(749.121, 595.99, 98.029, 1.49154)
pt3dadd(748.914, 593.937, 97.6607, 1.14419)
pt3dadd(748.835, 591.867, 97.7566, 1.36553)
pt3dadd(748.218, 589.892, 97.8075, 1.47241)
pt3dadd(747.237, 588.07, 97.8343, 1.59262)
pt3dadd(746.483, 586.141, 97.8697, 1.11655)
pt3dadd(745.9, 584.171, 98.4447, 1.11655)
pt3dadd(745.316, 582.2, 99.0197, 1.19627)
pt3dadd(744.728, 580.221, 98.6562, 1.29584)
pt3dadd(744.633, 578.151, 98.7115, 1.29584)
}
apic[49] {pt3dclear()
pt3dadd(744.633, 578.151, 98.7115, 1.29584)
pt3dadd(743.432, 575.742, 98.3352, 1.68015)
pt3dadd(742.008, 574.243, 98.0023, 1.68015)
pt3dadd(740.915, 572.483, 97.9959, 1.27149)
pt3dadd(739.822, 570.728, 97.9896, 1.27149)
pt3dadd(739.094, 568.79, 98.0332, 1.2216)
pt3dadd(738.042, 567.006, 97.8774, 1.10082)
pt3dadd(736.87, 565.305, 98.1533, 1.09969)
pt3dadd(735.81, 563.529, 98.1205, 1.29412)
pt3dadd(734.871, 561.682, 98.0569, 1.12524)
pt3dadd(734.142, 559.745, 98.0098, 1.39118)
pt3dadd(733.211, 557.898, 98.2242, 1.0162)
pt3dadd(732.064, 556.184, 98.6252, 1.34828)
pt3dadd(731.24, 554.284, 98.6371, 1.29696)
pt3dadd(730.474, 552.363, 98.5649, 1.00647)
pt3dadd(729.443, 550.566, 98.5198, 0.967476)
pt3dadd(728.412, 548.774, 98.4748, 1.13432)
pt3dadd(727.634, 546.857, 98.767, 1.12862)
pt3dadd(726.868, 544.94, 98.4211, 1.20428)
pt3dadd(726.127, 543.011, 98.6581, 1.20428)
pt3dadd(725.386, 541.081, 98.8952, 1.30128)
pt3dadd(724.533, 539.202, 98.4264, 1.33151)
pt3dadd(723.68, 537.331, 98.9395, 1.13513)
pt3dadd(722.931, 535.401, 98.8382, 1.29288)
pt3dadd(721.966, 533.567, 98.7012, 1.4095)
pt3dadd(720.865, 531.816, 98.5579, 1.12182)
pt3dadd(719.64, 530.156, 98.847, 1.27233)
pt3dadd(718.679, 528.339, 99.4353, 1.2736)
pt3dadd(717.516, 526.625, 99.6908, 1.29887)
pt3dadd(716.485, 524.836, 99.8686, 1.32955)
pt3dadd(715.992, 522.832, 100.323, 1.57101)
pt3dadd(715.251, 520.907, 100.733, 1.15372)
pt3dadd(714.316, 519.061, 100.615, 1.36048)
pt3dadd(713.471, 517.181, 101.016, 1.3647)
pt3dadd(712.626, 515.293, 100.777, 1.16692)
pt3dadd(711.587, 513.505, 100.921, 1.20953)
pt3dadd(710.879, 511.572, 101.515, 1.38241)
pt3dadd(710.097, 509.671, 102.109, 1.47552)
pt3dadd(709.17, 507.829, 102.458, 1.03758)
pt3dadd(707.899, 506.214, 103.094, 1.06809)
pt3dadd(706.491, 504.699, 103.242, 1.09161)
pt3dadd(705.274, 503.035, 103.665, 1.09161)
pt3dadd(704.053, 501.371, 104.089, 1.34582)
pt3dadd(702.922, 499.636, 104.159, 1.33183)
pt3dadd(702.041, 497.769, 103.863, 1.37173)
pt3dadd(701.386, 495.802, 103.754, 1.71809)
pt3dadd(700.496, 493.935, 103.568, 1.20491)
pt3dadd(699.747, 492.01, 103.227, 1.25404)
pt3dadd(699.101, 490.048, 103.061, 1.52097)
pt3dadd(698.439, 488.098, 103.599, 1.49435)
pt3dadd(697.569, 486.226, 103.944, 1.22021)
pt3dadd(696.667, 484.363, 103.988, 1.39544)
pt3dadd(695.561, 482.612, 103.81, 1.39544)
pt3dadd(694.456, 480.865, 103.632, 1.23084)
pt3dadd(693.748, 478.919, 103.802, 1.03628)
pt3dadd(693.04, 476.978, 103.972, 1.03628)
pt3dadd(692.332, 475.032, 104.143, 1.47358)
pt3dadd(691.521, 473.127, 104.182, 1.37799)
pt3dadd(691.074, 471.107, 104.348, 1.37799)
pt3dadd(690.627, 469.087, 104.515, 1.44936)
pt3dadd(689.927, 467.153, 103.972, 1.56066)
}
}
proc shape3d_26() {
apic[49] { pt3dadd(688.962, 465.324, 104.033, 1.61665)
pt3dadd(688.163, 463.411, 104.153, 1.67801)
pt3dadd(687.613, 461.42, 104.351, 1.70539)
pt3dadd(687.302, 459.374, 104.118, 1.73678)
pt3dadd(686.938, 457.362, 104.859, 1.86606)
pt3dadd(686.462, 455.35, 104.532, 1.45694)
pt3dadd(685.729, 453.417, 104.407, 1.46532)
pt3dadd(684.963, 451.492, 104.42, 1.44922)
pt3dadd(684.367, 449.521, 104.908, 1.42881)
pt3dadd(683.808, 447.534, 105.254, 1.45694)
pt3dadd(683.253, 445.555, 104.613, 1.08653)
pt3dadd(682.413, 443.667, 104.846, 1.3966)
pt3dadd(681.307, 441.92, 105.136, 1.3966)
pt3dadd(680.202, 440.173, 105.425, 1.39355)
pt3dadd(679.312, 438.306, 105.495, 1.39355)
pt3dadd(678.422, 436.439, 105.564, 1.54829)
pt3dadd(677.234, 434.741, 105.584, 1.05108)
pt3dadd(676.128, 432.994, 105.487, 1.20553)
pt3dadd(674.977, 431.276, 105.348, 1.21805)
pt3dadd(673.93, 429.513, 104.635, 1.33376)
pt3dadd(672.957, 427.687, 104.757, 0.976592)
pt3dadd(672.063, 425.82, 104.709, 0.976592)
pt3dadd(671.173, 423.948, 104.661, 1.1138)
pt3dadd(670.092, 422.189, 104.891, 1.1138)
pt3dadd(669.012, 420.425, 105.121, 1.21566)
pt3dadd(668.237, 418.504, 104.981, 1.21566)
pt3dadd(667.467, 416.583, 104.842, 1.21566)
pt3dadd(666.697, 414.667, 104.703, 1.49749)
pt3dadd(666.192, 412.667, 105.186, 1.49913)
pt3dadd(665.77, 410.648, 105.596, 1.5272)
pt3dadd(665.443, 408.604, 105.604, 1.5272)
}
apic[50] {pt3dclear()
pt3dadd(665.443, 408.604, 105.604, 1.5272)
pt3dadd(663.82, 406.122, 105.788, 1.99233)
pt3dadd(662.392, 404.644, 106.426, 1.99233)
pt3dadd(661.344, 402.904, 107.37, 1.42962)
pt3dadd(660.16, 401.227, 108.045, 1.24807)
pt3dadd(658.98, 399.549, 108.72, 1.24807)
pt3dadd(658.082, 397.693, 109.141, 1.72118)
pt3dadd(657.618, 395.69, 109.71, 1.32145)
pt3dadd(656.803, 393.848, 110.862, 0.954188)
pt3dadd(655.47, 392.285, 111.486, 0.954188)
pt3dadd(654.137, 390.722, 112.111, 1.10589)
pt3dadd(652.899, 389.062, 112.081, 1.0433)
pt3dadd(652.025, 387.19, 112.358, 1.0433)
pt3dadd(651.147, 385.318, 112.634, 1.35624)
pt3dadd(650.245, 383.491, 113.494, 1.429)
pt3dadd(649.599, 381.527, 113.722, 1.16393)
pt3dadd(648.808, 379.62, 114.108, 1.16393)
pt3dadd(648.018, 377.713, 114.493, 1.16393)
pt3dadd(647.227, 375.806, 114.878, 1.67355)
pt3dadd(644.25, 373.022, 116.608, 1.67355)
}
apic[51] {pt3dclear()
pt3dadd(665.443, 408.604, 105.604, 1.5272)
pt3dadd(664.905, 406.182, 105.336, 1.5272)
pt3dadd(665.666, 403.936, 104.353, 1.43083)
pt3dadd(665.302, 401.899, 104.305, 1.14027)
pt3dadd(665.315, 399.829, 104.326, 1.19486)
pt3dadd(665.066, 397.774, 104.346, 1.17861)
pt3dadd(664.814, 395.719, 104.367, 1.17861)
pt3dadd(664.106, 393.775, 104.258, 1.45781)
pt3dadd(663.232, 391.9, 104.045, 1.10106)
pt3dadd(662.441, 389.989, 103.832, 1.51906)
pt3dadd(661.837, 388.012, 103.607, 1.48951)
pt3dadd(660.839, 386.207, 103.187, 1.32025)
pt3dadd(659.899, 384.368, 102.849, 1.24698)
pt3dadd(658.67, 381.301, 102.26, 1.24698)
pt3dadd(659.146, 382.59, 102.921, 1.3695)
pt3dadd(658.682, 378.481, 102.436, 1.3695)
pt3dadd(658.45, 376.426, 102.194, 1.3695)
pt3dadd(657.929, 374.424, 102.27, 1.34206)
pt3dadd(657.407, 372.431, 102.763, 1.02486)
pt3dadd(657.035, 370.409, 103.352, 1.67627)
pt3dadd(657.378, 368.369, 103.215, 1.57303)
pt3dadd(657.987, 366.392, 103.491, 1.29167)
pt3dadd(657.738, 364.343, 103.12, 1.89655)
pt3dadd(656.869, 362.466, 102.966, 1.58378)
pt3dadd(655.768, 360.721, 102.542, 1.59927)
pt3dadd(655.366, 358.723, 101.668, 1.78396)
pt3dadd(655.383, 356.673, 100.969, 1.54894)
pt3dadd(655.039, 354.653, 100.27, 1.40747)
pt3dadd(654.472, 352.663, 100.058, 1.32913)
pt3dadd(654.074, 350.637, 99.7119, 1.17941)
pt3dadd(653.843, 348.615, 98.8095, 1.23423)
pt3dadd(653.95, 346.553, 98.4216, 1.23423)
pt3dadd(654.054, 344.492, 98.0337, 1.36418)
pt3dadd(653.979, 342.432, 97.594, 1.23687)
pt3dadd(653.834, 340.372, 97.9584, 1.243)
pt3dadd(654.037, 338.313, 97.7921, 1.34578)
pt3dadd(653.975, 336.254, 98.2733, 1.42954)
pt3dadd(653.834, 334.189, 98.3425, 1.01954)
pt3dadd(653.88, 332.131, 97.8252, 1.1569)
pt3dadd(653.888, 330.073, 97.288, 1.36188)
pt3dadd(653.615, 328.025, 96.9859, 1.36188)
pt3dadd(653.574, 325.97, 96.3827, 1.42467)
pt3dadd(653.338, 323.916, 96.61, 0.996838)
pt3dadd(653.333, 321.85, 96.3098, 1.1184)
pt3dadd(652.986, 319.812, 96.0808, 1.1184)
pt3dadd(652.634, 317.774, 95.8518, 1.60307)
pt3dadd(652.054, 315.786, 95.8882, 1.1688)
pt3dadd(651.326, 313.851, 95.6768, 1.32781)
pt3dadd(650.435, 311.987, 95.3513, 1.78645)
pt3dadd(650.038, 309.956, 95.2758, 1.44107)
pt3dadd(650.013, 307.886, 95.3528, 1.44107)
pt3dadd(649.988, 305.817, 95.4298, 1.46259)
pt3dadd(650.22, 303.78, 94.7395, 1.60525)
pt3dadd(650.469, 301.732, 94.3113, 2.14322)
pt3dadd(650.526, 299.677, 94.8887, 1.3958)
pt3dadd(650.324, 297.632, 94.2845, 1.3958)
pt3dadd(650.117, 295.588, 93.6803, 1.44122)
pt3dadd(650.286, 293.527, 93.4549, 1.36711)
pt3dadd(650.497, 291.472, 93.1804, 1.36711)
pt3dadd(650.713, 289.416, 92.9058, 1.70826)
pt3dadd(650.924, 287.367, 92.4055, 1.70826)
pt3dadd(651.135, 285.318, 91.9052, 1.18257)
pt3dadd(651.131, 283.249, 92.0379, 1.36927)
pt3dadd(650.911, 281.195, 91.7143, 1.36927)
pt3dadd(650.692, 279.141, 91.3907, 1.29084)
pt3dadd(650.146, 277.149, 91.0671, 1.42681)
pt3dadd(649.939, 275.091, 90.9153, 1.42681)
pt3dadd(649.732, 273.032, 90.7634, 1.52778)
pt3dadd(648.701, 271.248, 90.3238, 1.52778)
pt3dadd(647.666, 269.464, 89.8842, 1.78332)
pt3dadd(646.896, 267.553, 89.3854, 1.78332)
pt3dadd(646.126, 265.642, 88.8867, 1.52884)
pt3dadd(645.169, 263.819, 88.3879, 1.57559)
pt3dadd(644.565, 261.841, 88.1933, 1.1714)
pt3dadd(643.58, 260.024, 87.9351, 1.61754)
pt3dadd(642.801, 258.11, 87.5871, 1.81213)
pt3dadd(642.309, 256.101, 87.4421, 1.95046)
pt3dadd(642.11, 254.059, 86.7654, 1.26118)
pt3dadd(642.126, 252.008, 86.0886, 1.40442)
pt3dadd(642.478, 249.989, 85.3951, 1.39583)
pt3dadd(642.648, 247.929, 85.1501, 1.14404)
pt3dadd(643.472, 246.036, 84.7276, 1.47273)
pt3dadd(643.956, 244.024, 84.6627, 1.7174)
pt3dadd(643.439, 242.024, 84.3371, 1.58413)
pt3dadd(642.317, 240.285, 84.3298, 1.59039)
pt3dadd(641.563, 238.357, 84.3225, 1.15238)
pt3dadd(640.715, 236.478, 84.772, 1.47126)
pt3dadd(640.085, 234.509, 84.9868, 1.55266)
pt3dadd(639.833, 232.454, 84.9556, 1.61486)
pt3dadd(640.441, 230.501, 85.7152, 1.17965)
pt3dadd(640.756, 228.487, 86.575, 1.33549)
pt3dadd(640.922, 226.443, 87.2541, 1.44474)
pt3dadd(640.379, 224.478, 88.1218, 1.23539)
pt3dadd(639.816, 222.531, 89.1441, 1.32203)
pt3dadd(639.622, 220.503, 90.0234, 1.32203)
pt3dadd(639.427, 218.474, 90.9027, 1.32203)
pt3dadd(639.233, 216.446, 91.7821, 1.42072)
pt3dadd(638.417, 214.553, 92.2096, 1.17157)
pt3dadd(637.279, 212.866, 93.137, 1.60801)
pt3dadd(636.451, 210.989, 93.7957, 1.26584)
pt3dadd(635.916, 209.014, 94.5501, 1.26584)
pt3dadd(635.382, 207.038, 95.3046, 1.48631)
pt3dadd(635.258, 204.993, 96.0147, 1.32275)
pt3dadd(635.68, 203.002, 96.9203, 1.40045)
pt3dadd(636.422, 201.151, 98.2584, 1.60326)
pt3dadd(637.456, 199.386, 99.0141, 2.364)
pt3dadd(638.33, 197.512, 99.2994, 1.59051)
pt3dadd(638.955, 194.361, 101.255, 1.59051)
}
apic[52] {pt3dclear()
pt3dadd(744.633, 578.151, 98.7115, 1.29584)
pt3dadd(744.542, 576.085, 98.7669, 1.11202)
pt3dadd(743.759, 574.168, 98.8648, 1.11202)
pt3dadd(742.981, 572.247, 98.9628, 1.4086)
pt3dadd(742.261, 570.322, 99.5324, 1.19667)
pt3dadd(741.486, 568.405, 99.7972, 1.19667)
pt3dadd(740.712, 566.489, 100.062, 1.37937)
pt3dadd(739.938, 564.572, 100.327, 1.37937)
pt3dadd(739.164, 562.655, 100.591, 1.15811)
pt3dadd(738.083, 560.891, 100.44, 1.25298)
pt3dadd(737.346, 558.958, 100.202, 1.13034)
pt3dadd(736.916, 556.946, 100.685, 1.31716)
pt3dadd(736.266, 555.008, 101.517, 1.33701)
pt3dadd(735.62, 553.042, 101.517, 1.03862)
pt3dadd(734.838, 551.129, 101.609, 1.34918)
pt3dadd(734.171, 549.171, 101.842, 1.34918)
pt3dadd(733.505, 547.213, 102.074, 1.30535)
pt3dadd(732.751, 545.284, 102.136, 1.30535)
pt3dadd(732.002, 543.354, 102.199, 1.48601)
pt3dadd(731.48, 541.355, 102.449, 1.59305)
pt3dadd(730.942, 539.372, 101.85, 1.20304)
pt3dadd(730.056, 537.5, 101.91, 1.0618)
pt3dadd(729.17, 535.633, 102.123, 1.0618)
pt3dadd(728.288, 533.762, 102.336, 1.40287)
pt3dadd(727.555, 531.829, 102.55, 1.15396)
pt3dadd(726.972, 529.841, 102.64, 1.275)
pt3dadd(726.052, 527.987, 102.573, 1.30342)
pt3dadd(725.514, 525.987, 102.406, 1.43299)
pt3dadd(725.295, 523.929, 102.306, 1.43299)
pt3dadd(725.075, 521.872, 102.206, 1.17577)
pt3dadd(724.864, 519.814, 102.25, 1.17577)
pt3dadd(724.649, 517.757, 102.293, 1.17577)
pt3dadd(724.438, 515.695, 102.336, 1.46889)
pt3dadd(723.97, 513.679, 102.331, 0.978828)
pt3dadd(723.539, 511.663, 102.707, 1.28556)
pt3dadd(723.362, 509.601, 102.984, 1.28556)
pt3dadd(723.188, 507.543, 103.26, 1.29285)
pt3dadd(723.13, 505.486, 102.758, 1.03393)
pt3dadd(722.658, 503.482, 103.331, 1.12145)
pt3dadd(722.563, 501.429, 103.904, 1.19604)
pt3dadd(722.078, 499.429, 104.476, 1.19604)
}
}
proc shape3d_27() {
apic[52] { pt3dadd(721.85, 497.384, 104.964, 1.05635)
pt3dadd(721.031, 495.488, 105.335, 1.05635)
pt3dadd(720.207, 493.596, 105.706, 1.35371)
pt3dadd(719.532, 491.65, 106.247, 1.35371)
pt3dadd(718.853, 489.708, 106.789, 1.32236)
pt3dadd(718.058, 487.804, 107.196, 1.39371)
pt3dadd(717.508, 485.808, 107.063, 1.04386)
pt3dadd(716.808, 483.883, 107.76, 1.04386)
pt3dadd(716.108, 481.954, 108.457, 1.0718)
pt3dadd(715.657, 479.954, 109.138, 1.19518)
pt3dadd(714.866, 478.058, 109.723, 1.18592)
pt3dadd(714.237, 476.088, 109.835, 1.28289)
pt3dadd(713.521, 474.154, 110.291, 1.28289)
pt3dadd(712.8, 472.221, 110.747, 1.40433)
pt3dadd(712.225, 470.238, 110.508, 1.43526)
pt3dadd(711.426, 468.342, 111.073, 1.14911)
pt3dadd(710.652, 466.425, 111.27, 1.14911)
pt3dadd(709.882, 464.504, 111.467, 1.14911)
pt3dadd(709.107, 462.587, 111.664, 1.14911)
pt3dadd(708.333, 460.666, 111.862, 1.27965)
pt3dadd(707.886, 458.646, 111.829, 1.27965)
pt3dadd(707.439, 456.625, 111.796, 1.48165)
pt3dadd(706.93, 454.642, 112.52, 1.10858)
pt3dadd(706.582, 452.601, 112.702, 1.53749)
pt3dadd(706.466, 450.54, 113.095, 1.1255)
pt3dadd(706.243, 448.494, 113.58, 1.36631)
pt3dadd(705.945, 446.47, 114.365, 1.28309)
pt3dadd(705.671, 444.441, 115.103, 1.1015)
pt3dadd(705.468, 442.384, 114.816, 0.98224)
pt3dadd(705.187, 440.335, 115.008, 0.98224)
pt3dadd(704.905, 438.285, 115.2, 1.09367)
pt3dadd(704.322, 436.319, 115.819, 1.27139)
pt3dadd(703.759, 434.327, 116.017, 1.26949)
pt3dadd(703.456, 432.282, 116.214, 1.3394)
pt3dadd(702.86, 430.328, 117.018, 1.43527)
pt3dadd(702.223, 428.37, 117.551, 1.41708)
pt3dadd(701.788, 426.345, 117.433, 1.07184)
pt3dadd(701.328, 424.35, 118.144, 1.28153)
pt3dadd(700.79, 422.367, 118.727, 1.30537)
pt3dadd(700.343, 420.359, 119.333, 1.36199)
pt3dadd(700.256, 418.293, 119.527, 1.09063)
pt3dadd(699.962, 416.256, 120.049, 1.09063)
pt3dadd(699.668, 414.219, 120.57, 1.09063)
pt3dadd(699.378, 412.18, 121.092, 1.28187)
pt3dadd(698.894, 410.17, 121.333, 1.28187)
pt3dadd(698.41, 408.16, 121.574, 1.35594)
pt3dadd(697.648, 406.267, 122.434, 1.22152)
pt3dadd(697.077, 404.281, 122.685, 1.37719)
pt3dadd(697.023, 402.251, 123.656, 1.09089)
pt3dadd(696.725, 400.227, 124.413, 1.12209)
pt3dadd(696.58, 398.174, 124.957, 1.27356)
pt3dadd(696.178, 396.186, 125.96, 1.30794)
pt3dadd(695.599, 394.209, 126.422, 1.36926)
pt3dadd(694.961, 392.255, 127.031, 1.12225)
pt3dadd(694.564, 390.25, 127.832, 1.5232)
pt3dadd(693.926, 388.334, 128.915, 1.51932)
pt3dadd(693.384, 386.347, 129.432, 1.36461)
pt3dadd(692.945, 384.34, 130.056, 1.36052)
pt3dadd(692.432, 382.399, 131.27, 1.23591)
pt3dadd(691.806, 380.435, 131.732, 1.23591)
pt3dadd(691.181, 378.471, 132.194, 1.33334)
pt3dadd(690.316, 376.627, 133.083, 1.31334)
pt3dadd(689.343, 374.829, 133.844, 1.28112)
pt3dadd(688.234, 373.102, 134.488, 1.28112)
pt3dadd(687.397, 371.207, 134.512, 1.30653)
pt3dadd(686.689, 369.272, 134.991, 1.35948)
pt3dadd(685.638, 367.517, 135.757, 0.950304)
pt3dadd(684.735, 365.68, 136.502, 1.09747)
pt3dadd(683.767, 363.877, 137.237, 1.09747)
pt3dadd(682.798, 362.074, 137.972, 1.09747)
pt3dadd(681.825, 360.271, 138.706, 1.16389)
pt3dadd(680.525, 358.688, 139.428, 1.18716)
pt3dadd(679.382, 356.962, 139.563, 1.37765)
pt3dadd(678.182, 355.315, 140.434, 0.998708)
pt3dadd(677.068, 353.584, 140.947, 0.998708)
pt3dadd(675.954, 351.853, 141.459, 1.27111)
pt3dadd(674.77, 350.216, 142.547, 1.28174)
pt3dadd(673.371, 348.735, 143.437, 1.06761)
pt3dadd(671.972, 347.254, 144.328, 1.11079)
pt3dadd(670.866, 345.6, 145.717, 1.36829)
pt3dadd(669.848, 343.818, 146.359, 1.20484)
pt3dadd(668.577, 341.215, 148.055, 1.20484)
}
apic[53] {pt3dclear()
pt3dadd(754.122, 621.058, 94.6741, 1.38661)
pt3dadd(754.374, 619.013, 94.1467, 1.26366)
pt3dadd(755.074, 617.067, 94.3891, 1.30594)
pt3dadd(755.376, 615.03, 94.909, 1.41841)
pt3dadd(755.389, 612.964, 95.0968, 1.41675)
pt3dadd(756.125, 611.031, 95.3449, 1.05628)
pt3dadd(756.875, 609.102, 95.4963, 1.06411)
pt3dadd(757.45, 607.119, 95.1797, 1.06411)
pt3dadd(758.026, 605.135, 94.8631, 1.17954)
pt3dadd(757.993, 603.065, 94.8247, 1.44375)
pt3dadd(758.084, 601, 94.6912, 1.47198)
pt3dadd(758.581, 598.988, 94.6855, 1.04543)
pt3dadd(758.903, 596.942, 94.6686, 1.2925)
pt3dadd(759.222, 594.897, 94.6518, 1.30696)
pt3dadd(759.868, 592.931, 94.6349, 1.38481)
pt3dadd(760.369, 590.923, 94.5823, 1.38481)
pt3dadd(760.87, 588.915, 94.5297, 1.3711)
pt3dadd(761.603, 586.982, 94.7229, 1.37855)
pt3dadd(762.261, 585.019, 94.8821, 1.29592)
pt3dadd(762.609, 582.978, 95.0472, 0.975442)
pt3dadd(763.325, 581.037, 95.1105, 1.02063)
pt3dadd(763.727, 579.008, 95.1588, 1.23991)
pt3dadd(764.443, 577.07, 95.4685, 1.29326)
pt3dadd(764.977, 575.071, 95.7093, 1.36045)
pt3dadd(765.242, 573.026, 95.2414, 1.09329)
pt3dadd(765.229, 570.96, 94.9917, 1.10781)
pt3dadd(765.627, 568.931, 94.7538, 1.10781)
pt3dadd(766.024, 566.903, 94.5159, 1.10747)
pt3dadd(766.422, 564.87, 94.438, 1.10636)
pt3dadd(766.654, 562.816, 94.5817, 1.10636)
pt3dadd(766.881, 560.759, 94.7254, 1.00137)
pt3dadd(767.196, 558.714, 94.8691, 1.29143)
pt3dadd(767.61, 556.693, 95.2625, 1.29143)
pt3dadd(768.024, 554.669, 95.6558, 1.29143)
pt3dadd(768.442, 552.649, 96.0492, 1.29143)
pt3dadd(768.856, 550.628, 96.4425, 1.55639)
pt3dadd(769.258, 548.596, 96.3097, 1.33652)
pt3dadd(769.597, 546.555, 96.435, 1.43011)
pt3dadd(769.593, 544.489, 96.6068, 1.09635)
pt3dadd(769.436, 542.423, 96.7379, 1.39724)
pt3dadd(769.15, 540.378, 96.9708, 1.39724)
pt3dadd(768.864, 538.328, 97.2036, 1.40186)
pt3dadd(768.827, 536.279, 97.915, 1.38661)
pt3dadd(768.856, 534.23, 98.5842, 1.08384)
pt3dadd(769.096, 532.18, 99.0153, 1.35004)
pt3dadd(769.191, 530.123, 99.545, 1.40049)
pt3dadd(768.964, 528.065, 99.47, 1.40053)
pt3dadd(768.67, 526.02, 99.3924, 1.69636)
pt3dadd(768.587, 523.963, 99.8989, 1.30073)
pt3dadd(768.723, 521.897, 100.079, 1.28569)
pt3dadd(768.471, 519.852, 100.554, 1.2551)
pt3dadd(767.904, 517.864, 100.796, 1.23834)
pt3dadd(767.428, 515.848, 100.658, 1.23834)
pt3dadd(767.084, 513.828, 99.9633, 1.35732)
pt3dadd(766.604, 511.82, 99.6157, 1.28387)
pt3dadd(766.182, 509.804, 100.091, 0.831212)
pt3dadd(765.652, 507.804, 100.175, 1.03668)
pt3dadd(765.08, 505.817, 100.407, 1.03668)
pt3dadd(764.509, 503.83, 100.64, 1.45138)
pt3dadd(764.087, 501.822, 101.318, 1.38365)
pt3dadd(763.379, 499.897, 102.007, 1.83414)
pt3dadd(762.513, 498.021, 102.257, 1.39085)
pt3dadd(761.992, 496.026, 102.758, 1.44989)
pt3dadd(761.868, 493.981, 103.416, 1.15789)
pt3dadd(761.975, 491.927, 104.051, 1.15789)
pt3dadd(762.083, 489.878, 104.687, 1.35267)
pt3dadd(762.037, 487.829, 105.401, 1.41009)
pt3dadd(761.603, 485.817, 105.886, 1.42362)
pt3dadd(761.04, 483.871, 106.906, 1.46315)
pt3dadd(760.481, 481.879, 107.166, 1.54966)
pt3dadd(760.17, 479.863, 108.009, 1.53037)
pt3dadd(759.88, 477.822, 108.488, 1.1753)
pt3dadd(759.971, 475.756, 108.389, 1.4994)
pt3dadd(759.529, 473.757, 109.119, 1.57985)
pt3dadd(759.239, 471.724, 109.757, 1.29748)
pt3dadd(759.255, 469.662, 110.264, 1.43637)
pt3dadd(758.903, 467.634, 110.772, 1.47299)
pt3dadd(758.274, 465.688, 111.539, 1.2582)
pt3dadd(758.233, 463.626, 111.978, 1.40798)
pt3dadd(758.498, 461.606, 112.833, 1.408)
pt3dadd(758.436, 459.561, 113.602, 1.4924)
pt3dadd(758.767, 457.549, 114.485, 1.23274)
pt3dadd(758.742, 455.537, 115.632, 1.35669)
pt3dadd(758.514, 453.525, 116.666, 1.6665)
pt3dadd(757.678, 451.657, 117.424, 1.15647)
pt3dadd(756.982, 449.712, 117.817, 1.15647)
pt3dadd(756.287, 447.77, 118.21, 1.15647)
pt3dadd(755.596, 445.824, 118.603, 1.21847)
pt3dadd(754.536, 444.052, 118.996, 1.39121)
pt3dadd(753.72, 442.181, 119.783, 1.39121)
pt3dadd(752.9, 440.306, 120.569, 1.45473)
pt3dadd(752.192, 437.072, 121.844, 1.45473)
pt3dadd(752.064, 436.161, 121.395, 1.33186)
pt3dadd(751.766, 434.116, 121.201, 1.33186)
pt3dadd(751.841, 432.046, 121.277, 1.22387)
pt3dadd(751.944, 429.985, 121.012, 0.97145)
pt3dadd(752.453, 427.985, 120.606, 1.48986)
pt3dadd(753.116, 426.06, 119.679, 1.28434)
pt3dadd(754.142, 424.309, 118.712, 1.26933)
pt3dadd(754.958, 422.408, 118.516, 1.28692)
pt3dadd(755.384, 420.384, 118.32, 1.24145)
pt3dadd(755.811, 418.359, 118.124, 1.24145)
pt3dadd(755.84, 416.294, 117.933, 1.24385)
pt3dadd(756.274, 414.269, 117.862, 1.43482)
pt3dadd(756.871, 412.291, 118.211, 1.20163)
pt3dadd(757.156, 410.241, 118.091, 1.07526)
pt3dadd(757.446, 408.192, 117.971, 1.07526)
pt3dadd(757.488, 406.134, 117.427, 1.19216)
pt3dadd(757.744, 404.082, 117.228, 1.17406)
pt3dadd(758.415, 402.124, 117.346, 1.48687)
pt3dadd(758.841, 400.099, 117.278, 1.45317)
pt3dadd(759.574, 398.164, 117.169, 1.50202)
pt3dadd(760.328, 396.239, 117.437, 1.6114)
pt3dadd(761.445, 394.5, 117.704, 1.17941)
pt3dadd(762.24, 392.59, 117.798, 1.57658)
pt3dadd(763.308, 390.817, 117.701, 1.29081)
pt3dadd(764.223, 388.965, 117.358, 1.29081)
pt3dadd(765.138, 387.113, 117.016, 1.41446)
}
}
proc shape3d_28() {
apic[53] { pt3dadd(766.173, 385.335, 116.478, 1.51263)
pt3dadd(767.171, 383.529, 116.06, 1.51263)
pt3dadd(768.169, 381.723, 115.643, 1.22296)
pt3dadd(769.39, 380.055, 115.438, 1.36787)
pt3dadd(770.309, 378.202, 115.199, 1.36787)
pt3dadd(771.224, 376.349, 114.96, 1.42982)
pt3dadd(771.849, 374.376, 114.984, 1.42982)
pt3dadd(772.474, 372.403, 115.008, 1.13438)
pt3dadd(772.843, 370.372, 114.608, 1.21695)
pt3dadd(773.571, 368.434, 114.497, 1.29011)
pt3dadd(774.197, 366.491, 115.309, 1.32045)
pt3dadd(774.54, 364.45, 115.457, 1.30451)
pt3dadd(774.813, 362.401, 115.731, 1.30451)
pt3dadd(775.087, 360.352, 116.006, 1.02897)
pt3dadd(775.149, 358.284, 115.844, 1.26812)
pt3dadd(775.397, 356.24, 116.355, 1.23131)
pt3dadd(775.741, 354.203, 116.056, 1.00608)
pt3dadd(775.977, 352.147, 116.208, 1.00608)
pt3dadd(776.209, 350.091, 116.36, 1.3425)
pt3dadd(776.693, 348.08, 116.555, 0.963486)
pt3dadd(777.012, 346.037, 116.75, 0.963486)
pt3dadd(777.331, 343.993, 116.945, 1.31309)
pt3dadd(777.608, 341.946, 116.613, 1.28931)
pt3dadd(777.885, 339.899, 116.915, 0.907272)
pt3dadd(778.026, 337.834, 116.857, 1.20833)
pt3dadd(777.906, 335.767, 116.927, 1.16655)
pt3dadd(778.167, 333.72, 117.311, 1.24356)
pt3dadd(778.672, 331.718, 116.964, 1.08906)
pt3dadd(778.862, 329.66, 117.231, 1.08906)
pt3dadd(779.053, 327.602, 117.499, 1.08906)
pt3dadd(779.243, 325.543, 117.766, 1.27722)
pt3dadd(779.55, 323.497, 117.926, 1.31744)
pt3dadd(780.001, 321.48, 118.204, 1.01514)
pt3dadd(779.955, 319.44, 119.044, 1.01514)
pt3dadd(779.914, 317.4, 119.884, 1.29163)
pt3dadd(780.237, 315.357, 120.105, 1.3658)
pt3dadd(780.171, 313.289, 120.138, 1.43375)
pt3dadd(779.723, 311.272, 120.451, 1.51128)
pt3dadd(779.666, 309.212, 120.929, 1.46305)
pt3dadd(779.786, 307.154, 121.374, 1.59178)
pt3dadd(779.608, 305.092, 121.315, 1.24627)
pt3dadd(779.173, 303.07, 121.527, 1.33922)
pt3dadd(779.123, 301.002, 121.739, 1.40783)
pt3dadd(778.788, 298.969, 121.279, 1.07705)
pt3dadd(778.73, 296.9, 121.321, 1.4351)
pt3dadd(778.879, 294.843, 120.881, 1.18494)
pt3dadd(778.763, 292.778, 120.687, 1.54904)
pt3dadd(778.382, 290.748, 120.354, 1.54904)
pt3dadd(777.997, 288.719, 120.02, 1.24296)
pt3dadd(777.914, 286.66, 119.532, 1.50325)
pt3dadd(778.088, 284.606, 119.089, 1.50325)
pt3dadd(778.262, 282.551, 118.646, 1.54051)
pt3dadd(778.792, 280.583, 117.786, 1.44446)
pt3dadd(779.268, 278.59, 117.076, 1.19886)
pt3dadd(779.719, 276.569, 116.981, 1.24828)
pt3dadd(780.415, 274.651, 116.158, 1.43646)
pt3dadd(780.907, 272.65, 115.649, 1.43646)
pt3dadd(781.4, 270.651, 115.141, 1.43646)
pt3dadd(781.893, 268.651, 114.633, 1.40928)
pt3dadd(782.299, 266.628, 114.269, 1.50507)
pt3dadd(783.006, 264.681, 114.351, 1.10843)
pt3dadd(783.296, 262.637, 114.016, 1.38541)
pt3dadd(783.652, 260.61, 113.476, 0.87787)
pt3dadd(783.685, 258.546, 113.105, 0.87787)
pt3dadd(783.719, 256.482, 112.733, 1.2524)
pt3dadd(783.714, 254.414, 112.529, 1.27779)
pt3dadd(783.781, 252.347, 112.316, 1.33371)
pt3dadd(784.236, 250.337, 111.849, 1.36661)
pt3dadd(784.704, 248.329, 111.382, 1.36661)
pt3dadd(785.172, 246.322, 110.915, 1.45775)
pt3dadd(786.008, 244.437, 110.496, 1.47196)
pt3dadd(786.414, 242.429, 109.778, 1.56799)
pt3dadd(786.72, 240.383, 109.937, 1.19331)
pt3dadd(787.329, 238.405, 109.803, 1.19331)
pt3dadd(787.941, 236.428, 109.668, 1.29384)
pt3dadd(788.794, 234.569, 108.916, 1.41306)
pt3dadd(789.084, 232.522, 108.658, 1.41306)
pt3dadd(789.374, 230.475, 108.4, 1.51449)
pt3dadd(789.556, 228.414, 108.263, 1.49646)
pt3dadd(789.883, 226.377, 107.846, 1.11443)
pt3dadd(790.45, 224.387, 107.894, 1.56244)
pt3dadd(790.91, 222.378, 107.399, 1.03449)
pt3dadd(791.2, 220.333, 107.081, 1.14049)
pt3dadd(791.585, 218.299, 106.992, 1.45782)
pt3dadd(792.28, 216.358, 106.569, 1.45782)
pt3dadd(792.976, 214.417, 106.147, 1.51212)
pt3dadd(793.928, 212.632, 105.069, 1.3408)
pt3dadd(794.582, 210.672, 104.81, 1.43043)
pt3dadd(795.054, 208.706, 103.736, 1.81373)
pt3dadd(795.311, 206.658, 103.34, 1.35062)
pt3dadd(795.716, 204.643, 102.752, 1.25336)
pt3dadd(796.395, 202.714, 101.973, 1.25336)
pt3dadd(797.074, 200.785, 101.195, 1.35847)
pt3dadd(797.919, 198.957, 100.053, 1.58593)
pt3dadd(798.349, 196.958, 99.2758, 1.1281)
pt3dadd(798.569, 193.288, 97.8034, 1.1281)
pt3dadd(799.687, 193.081, 96.4855, 1.78595)
pt3dadd(801.073, 191.616, 95.363, 1.78595)
pt3dadd(802.117, 189.834, 95.0342, 1.61247)
pt3dadd(802.56, 187.842, 94.1865, 1.45755)
pt3dadd(803.222, 185.885, 93.9064, 1.41704)
pt3dadd(804.278, 184.126, 93.2287, 1.656)
pt3dadd(805.259, 182.304, 93.3127, 1.7119)
pt3dadd(806.195, 180.495, 92.4211, 1.42301)
pt3dadd(806.932, 178.58, 91.7533, 1.28845)
pt3dadd(806.824, 176.537, 90.9806, 1.17675)
pt3dadd(806.845, 174.484, 90.3524, 1.29965)
pt3dadd(807.006, 172.427, 89.9303, 1.04513)
pt3dadd(807.217, 170.38, 89.4068, 1.073)
pt3dadd(807.718, 168.401, 88.5681, 1.24646)
pt3dadd(808.14, 166.396, 87.8577, 1.2431)
pt3dadd(808.559, 164.379, 87.368, 1.49418)
pt3dadd(808.72, 162.316, 87.2092, 1.05879)
pt3dadd(808.869, 160.266, 86.6273, 1.05879)
pt3dadd(809.018, 158.215, 86.0455, 1.14414)
pt3dadd(808.832, 156.195, 85.0534, 1.48662)
pt3dadd(808.066, 154.29, 84.4114, 0.942752)
}
apic[54] {pt3dclear()
pt3dadd(808.066, 154.29, 84.4114, 0.942752)
pt3dadd(807.457, 152.79, 83.5754, 0.942752)
}
apic[55] {pt3dclear()
pt3dadd(808.066, 154.29, 84.4114, 0.942752)
pt3dadd(808.111, 151.815, 83.1422, 1.66714)
pt3dadd(808.327, 149.777, 82.4614, 1.66714)
pt3dadd(808.285, 147.717, 81.9656, 1.43004)
pt3dadd(809.863, 146.671, 80.2019, 1.21862)
}
apic[56] {pt3dclear()
pt3dadd(690.788, 785.888, 83.9879, 2.213)
pt3dadd(690.225, 782.845, 83.3638, 1.5)
pt3dadd(689.964, 780.796, 83.1617, 1.76829)
pt3dadd(689.484, 778.78, 83.1164, 1.76829)
pt3dadd(689.008, 776.768, 83.0712, 1.76652)
pt3dadd(688.937, 774.698, 83.0259, 1.70022)
pt3dadd(688.677, 772.652, 83.4833, 1.66544)
pt3dadd(688.341, 770.615, 83.7796, 1.7527)
pt3dadd(687.869, 768.608, 83.3661, 1.71812)
pt3dadd(687.339, 766.604, 83.3125, 1.38441)
pt3dadd(686.963, 764.571, 83.2589, 1.38441)
}
apic[57] {pt3dclear()
pt3dadd(686.963, 764.571, 83.2589, 1.38441)
pt3dadd(686.06, 762.443, 84.8606, 1.75412)
pt3dadd(685.058, 761.089, 87.7692, 1.25894)
pt3dadd(684.073, 759.346, 89.0592, 1.0689)
pt3dadd(683.154, 757.587, 90.4669, 1.22647)
pt3dadd(682.069, 755.898, 91.6908, 1.32056)
pt3dadd(681.274, 754.018, 92.5074, 1.32725)
pt3dadd(680.471, 752.151, 93.4887, 1.32725)
pt3dadd(679.672, 750.288, 94.4699, 1.3172)
pt3dadd(678.815, 748.516, 96.0254, 1.38814)
pt3dadd(677.619, 746.885, 97.1052, 1.32826)
pt3dadd(676.563, 745.13, 97.7756, 1.38686)
pt3dadd(675.752, 743.254, 98.5926, 1.52523)
pt3dadd(674.63, 741.544, 99.3326, 1.25839)
pt3dadd(673.284, 739.988, 99.9459, 1.37829)
pt3dadd(671.74, 738.68, 100.981, 1.36646)
pt3dadd(670.233, 737.346, 102.148, 1.35212)
pt3dadd(669.368, 735.541, 103.427, 1.51519)
pt3dadd(669.094, 733.5, 103.926, 1.08928)
pt3dadd(668.842, 731.476, 104.786, 1.17901)
pt3dadd(668.718, 729.41, 104.797, 1.2787)
pt3dadd(668.432, 727.361, 105.027, 1.38204)
pt3dadd(667.857, 725.398, 105.79, 1.09382)
pt3dadd(667, 723.622, 107.297, 1.09382)
}
apic[58] {pt3dclear()
pt3dadd(667, 723.622, 107.297, 1.09382)
pt3dadd(666.37, 721.734, 104.991, 1.47925)
pt3dadd(665.716, 719.809, 104.017, 1.47925)
pt3dadd(664.752, 717.992, 103.475, 1.36795)
pt3dadd(663.928, 716.146, 102.402, 1.37349)
pt3dadd(663.178, 714.22, 102.144, 1.242)
pt3dadd(662.089, 712.461, 102.163, 1.41667)
pt3dadd(661.162, 710.639, 101.346, 1.41667)
pt3dadd(660.239, 708.818, 100.529, 1.5087)
pt3dadd(659.44, 706.909, 100.561, 1.11696)
pt3dadd(658.686, 704.984, 100.355, 1.30323)
pt3dadd(658.09, 703.005, 100.136, 1.04419)
pt3dadd(657.49, 701.022, 100.072, 1.14066)
pt3dadd(656.542, 699.184, 99.8343, 1.43658)
pt3dadd(655.735, 697.317, 98.9341, 1.42133)
pt3dadd(655.047, 695.363, 98.9636, 1.35311)
pt3dadd(654.368, 693.433, 98.1679, 1.37033)
pt3dadd(653.681, 691.484, 98.3637, 1.3255)
pt3dadd(653.205, 689.476, 97.941, 1.37362)
pt3dadd(652.534, 687.522, 97.7563, 1.06195)
pt3dadd(652.071, 685.505, 97.9723, 1.21917)
pt3dadd(651.421, 683.539, 98.155, 1.31855)
pt3dadd(650.676, 681.626, 97.5517, 1.39723)
pt3dadd(649.732, 679.784, 97.7521, 1.24806)
pt3dadd(649.003, 677.846, 97.7321, 1.25112)
pt3dadd(648.034, 676.021, 97.7411, 1.25063)
pt3dadd(647.306, 674.083, 97.7501, 1.26486)
pt3dadd(646.399, 672.232, 98.2344, 1.1243)
pt3dadd(645.563, 670.341, 97.99, 1.22974)
pt3dadd(644.49, 668.577, 98.3776, 1.28962)
pt3dadd(643.476, 666.776, 98.6581, 1.34831)
pt3dadd(642.685, 664.872, 98.1751, 1.02972)
pt3dadd(642.296, 662.843, 98.3652, 1.02972)
pt3dadd(641.907, 660.81, 98.5552, 1.02972)
pt3dadd(641.522, 658.778, 98.7453, 1.02972)
pt3dadd(641.133, 656.745, 98.9353, 1.05507)
pt3dadd(640.653, 654.741, 98.5383, 1.20679)
pt3dadd(640.148, 652.733, 98.562, 1.20679)
pt3dadd(639.638, 650.725, 98.5856, 1.17741)
pt3dadd(638.872, 648.808, 98.1809, 1.23575)
pt3dadd(638.405, 646.796, 98.3861, 1.4851)
}
}
proc shape3d_29() {
apic[58] { pt3dadd(637.527, 644.942, 99.0998, 1.07224)
pt3dadd(636.533, 643.128, 99.0071, 1.07992)
pt3dadd(635.772, 641.203, 99.0552, 1.07992)
pt3dadd(635.006, 639.278, 99.1033, 1.07992)
pt3dadd(634.244, 637.357, 99.1514, 1.02371)
pt3dadd(633.441, 635.457, 99.6093, 1.08138)
pt3dadd(632.927, 633.453, 99.7097, 1.15905)
pt3dadd(632.778, 631.396, 100.123, 1.20749)
pt3dadd(632.236, 629.408, 100.584, 1.30811)
pt3dadd(631.329, 627.554, 101.044, 1.27833)
pt3dadd(630.787, 625.558, 101.232, 1.27243)
pt3dadd(630.278, 623.596, 102.211, 1.26694)
pt3dadd(629.711, 621.621, 102.82, 1.21036)
pt3dadd(628.87, 619.729, 102.898, 0.880612)
pt3dadd(628.493, 617.692, 102.857, 1.28082)
pt3dadd(627.959, 615.693, 102.931, 1.34943)
pt3dadd(627.272, 613.743, 103.011, 1.19831)
pt3dadd(626.535, 611.826, 103.702, 1.20017)
pt3dadd(626.055, 609.814, 103.643, 1.20017)
pt3dadd(625.571, 607.802, 103.584, 0.943506)
pt3dadd(624.858, 605.86, 103.853, 1.25948)
pt3dadd(624.084, 603.943, 103.662, 1.1083)
pt3dadd(623.053, 602.155, 104.015, 1.20417)
pt3dadd(622.126, 600.317, 104.536, 1.25108)
pt3dadd(621.451, 598.433, 105.813, 1.30704)
pt3dadd(621.07, 596.4, 106.044, 1.30704)
pt3dadd(620.69, 594.367, 106.274, 1.30271)
pt3dadd(620.085, 592.401, 106.796, 1.54499)
pt3dadd(619.261, 590.501, 106.813, 1.02564)
pt3dadd(618.392, 588.633, 107.337, 1.29248)
pt3dadd(617.539, 586.75, 107.299, 1.14626)
pt3dadd(616.694, 584.862, 107.58, 1.22084)
pt3dadd(615.813, 583.007, 106.934, 1.22084)
pt3dadd(614.927, 581.157, 106.288, 1.26322)
pt3dadd(614.219, 579.215, 106.499, 0.94459)
pt3dadd(613.461, 577.306, 105.795, 1.22815)
pt3dadd(612.608, 575.448, 105.091, 1.30357)
pt3dadd(611.42, 573.758, 104.677, 1.41412)
pt3dadd(610.563, 571.891, 104.058, 1.20097)
pt3dadd(609.582, 570.078, 103.586, 1.20097)
pt3dadd(608.601, 568.269, 103.114, 1.43819)
pt3dadd(607.553, 566.484, 103.306, 1.01333)
pt3dadd(606.315, 564.849, 102.615, 1.01333)
pt3dadd(605.078, 563.214, 101.923, 1.08135)
pt3dadd(604.159, 561.413, 100.852, 1.32157)
pt3dadd(603.355, 559.575, 99.6124, 1.52935)
pt3dadd(603.012, 558.846, 98.8507, 1.52935)
}
apic[59] {pt3dclear()
pt3dadd(667, 723.622, 107.297, 1.09382)
pt3dadd(666.143, 721.846, 108.804, 1.65304)
pt3dadd(665.758, 719.905, 110.285, 1.27834)
pt3dadd(665.53, 717.926, 111.628, 1.27075)
pt3dadd(665.447, 715.914, 112.81, 1.8282)
pt3dadd(665.228, 713.885, 113.633, 1.30102)
pt3dadd(664.714, 711.927, 114.687, 1.45198)
pt3dadd(664.54, 709.906, 115.702, 1.56428)
pt3dadd(664.739, 707.886, 116.665, 1.15891)
pt3dadd(664.942, 705.853, 117.489, 1.51098)
pt3dadd(664.851, 703.808, 118.258, 1.51252)
pt3dadd(664.532, 701.788, 119.029, 1.48458)
pt3dadd(663.832, 699.892, 120.106, 1.4612)
pt3dadd(663.158, 698.095, 121.979, 1.11359)
pt3dadd(662.715, 696.133, 123.154, 1.22374)
pt3dadd(662.454, 694.129, 124.242, 1.22355)
pt3dadd(661.94, 692.175, 125.329, 1.22355)
pt3dadd(661.423, 690.221, 126.417, 1.28795)
pt3dadd(661.237, 688.176, 127.017, 0.920032)
pt3dadd(660.897, 686.213, 128.364, 1.03633)
pt3dadd(660.384, 684.383, 130.352, 1.38343)
pt3dadd(659.755, 682.504, 131.801, 1.09233)
pt3dadd(659.051, 680.703, 133.575, 1.08795)
pt3dadd(658.492, 678.782, 134.881, 1.27437)
pt3dadd(657.95, 676.923, 136.647, 0.971914)
pt3dadd(658.061, 674.969, 138.277, 1.63936)
pt3dadd(657.531, 673.081, 139.869, 1.63936)
pt3dadd(657.006, 671.189, 141.461, 1.17423)
pt3dadd(656.72, 669.202, 142.674, 1.17057)
pt3dadd(656.488, 667.227, 144.043, 1.24155)
pt3dadd(656.36, 665.377, 146.26, 1.41393)
pt3dadd(656.741, 663.398, 147.44, 1.36204)
pt3dadd(657.059, 661.394, 148.431, 1.35394)
pt3dadd(656.687, 659.374, 148.971, 1.00161)
pt3dadd(656.26, 657.403, 150.118, 1.06646)
pt3dadd(655.474, 655.515, 150.924, 1.13795)
pt3dadd(654.609, 653.665, 151.713, 1.20722)
pt3dadd(653.507, 652.009, 153.097, 1.4798)
pt3dadd(652.932, 650.03, 153.628, 1.68601)
pt3dadd(653.085, 647.968, 153.878, 1.16504)
pt3dadd(652.489, 645.997, 154.346, 1.4428)
pt3dadd(652.154, 643.965, 154.815, 1.48694)
pt3dadd(652.191, 641.924, 155.675, 1.16427)
pt3dadd(651.785, 638.669, 156.743, 1.16427)
pt3dadd(651.197, 637.75, 157.031, 1.23312)
pt3dadd(650.456, 635.825, 157.385, 1.23312)
pt3dadd(650.344, 633.793, 158.297, 1.5834)
pt3dadd(649.458, 631.942, 158.964, 1.87835)
pt3dadd(649.04, 629.976, 160.155, 1.35947)
pt3dadd(649.198, 627.926, 160.764, 1.89228)
pt3dadd(649.359, 625.877, 161.373, 1.89228)
pt3dadd(649.359, 623.823, 161.945, 1.7024)
pt3dadd(648.788, 621.836, 162.214, 1.46836)
pt3dadd(648.502, 619.795, 162.714, 1.48491)
pt3dadd(648.597, 617.763, 163.6, 1.48491)
pt3dadd(648.692, 615.726, 164.485, 1.32185)
pt3dadd(648.121, 613.738, 164.812, 1.32185)
pt3dadd(647.554, 611.755, 165.14, 1.45904)
pt3dadd(646.999, 609.785, 165.884, 1.29474)
pt3dadd(646.432, 607.827, 166.734, 1.29474)
pt3dadd(645.861, 605.868, 167.583, 1.85083)
pt3dadd(644.88, 604.084, 168.489, 1.54323)
pt3dadd(643.58, 602.585, 169.925, 1.12797)
pt3dadd(642.354, 601.008, 171.241, 1.29185)
pt3dadd(641.009, 598.818, 172.287, 1.29185)
}
apic[60] {pt3dclear()
pt3dadd(686.963, 764.571, 83.2589, 1.38441)
pt3dadd(686.582, 762.534, 83.2053, 1.38441)
pt3dadd(686.201, 760.501, 83.1518, 1.3691)
pt3dadd(685.948, 758.456, 82.6407, 1.53364)
pt3dadd(685.75, 756.407, 82.1296, 1.53364)
pt3dadd(685.551, 754.358, 81.6185, 1.53364)
pt3dadd(685.348, 752.308, 81.1074, 1.53364)
pt3dadd(685.149, 750.259, 80.5963, 1.53332)
pt3dadd(684.64, 748.255, 80.3303, 1.61147)
pt3dadd(684.491, 746.194, 80.1448, 1.59428)
pt3dadd(684.346, 744.132, 79.7966, 1.34169)
pt3dadd(684.143, 742.083, 79.3448, 1.34169)
pt3dadd(683.936, 740.029, 78.8931, 1.36926)
pt3dadd(683.481, 738.025, 78.3125, 1.37728)
pt3dadd(683.075, 735.997, 78.3573, 1.37857)
pt3dadd(682.711, 733.972, 77.7711, 1.3833)
pt3dadd(682.289, 731.948, 77.609, 1.3833)
pt3dadd(681.87, 729.919, 77.4469, 1.42405)
pt3dadd(681.858, 727.853, 77.2847, 1.42405)
pt3dadd(681.846, 725.783, 77.1226, 1.49153)
pt3dadd(681.585, 723.73, 77.0064, 1.57075)
pt3dadd(681.196, 721.714, 77.6543, 1.60384)
pt3dadd(680.699, 719.71, 77.3494, 1.29923)
pt3dadd(680.028, 717.752, 77.2962, 1.29923)
pt3dadd(679.357, 715.794, 77.243, 1.30709)
pt3dadd(678.707, 713.848, 76.5534, 1.37917)
pt3dadd(677.772, 712.001, 76.4931, 1.40786)
pt3dadd(677.147, 710.047, 75.8257, 1.43342)
pt3dadd(676.542, 708.073, 76.1423, 1.47438)
pt3dadd(676.29, 706.019, 75.9609, 1.47438)
pt3dadd(676.033, 703.966, 75.7795, 1.31515)
pt3dadd(675.342, 702.016, 75.9208, 1.32334)
pt3dadd(674.476, 700.14, 75.6049, 1.59921)
pt3dadd(673.859, 698.174, 76.0188, 1.57401)
pt3dadd(673.102, 696.245, 76.0896, 1.36027)
pt3dadd(672.344, 694.324, 75.8428, 1.36027)
pt3dadd(671.591, 692.398, 75.596, 1.51627)
pt3dadd(670.647, 690.556, 75.4017, 1.51627)
pt3dadd(669.703, 688.718, 75.2073, 1.46679)
pt3dadd(668.904, 686.805, 75.1247, 1.55532)
pt3dadd(667.861, 685.021, 75.2527, 1.55532)
pt3dadd(666.817, 683.232, 75.3807, 1.5872)
pt3dadd(666.039, 681.316, 75.1477, 1.5872)
pt3dadd(665.261, 679.407, 75.5541, 1.5872)
pt3dadd(664.615, 677.445, 75.8876, 1.58659)
pt3dadd(663.861, 675.516, 76.0418, 1.39596)
pt3dadd(663.369, 673.512, 75.6202, 1.40818)
pt3dadd(662.831, 671.52, 75.3282, 1.62486)
pt3dadd(662.11, 669.583, 75.6744, 1.31439)
pt3dadd(661.282, 667.687, 75.5202, 1.3792)
pt3dadd(660.819, 665.679, 75.0555, 1.48629)
pt3dadd(660.479, 663.642, 74.7406, 1.52301)
pt3dadd(659.908, 661.655, 74.4558, 1.54869)
pt3dadd(659.22, 659.721, 75.1147, 1.61555)
pt3dadd(658.504, 657.784, 74.8101, 1.61555)
pt3dadd(657.788, 655.846, 74.5055, 1.43926)
}
apic[61] {pt3dclear()
pt3dadd(657.788, 655.846, 74.5055, 1.43926)
pt3dadd(656.314, 653.267, 75.0324, 1.78856)
pt3dadd(654.936, 651.727, 75.1439, 1.78856)
pt3dadd(653.826, 650.013, 75.9559, 1.53154)
pt3dadd(652.828, 648.2, 75.8492, 1.49143)
pt3dadd(651.942, 646.328, 75.8679, 1.24852)
pt3dadd(650.709, 644.668, 75.9017, 1.20258)
pt3dadd(649.554, 642.95, 76.1447, 0.83503)
pt3dadd(648.618, 641.108, 75.868, 1.4182)
pt3dadd(647.666, 639.27, 76.0116, 1.39027)
}
apic[62] {pt3dclear()
pt3dadd(647.666, 639.27, 76.0116, 1.39027)
pt3dadd(645.898, 637.158, 75.8335, 1.36021)
pt3dadd(644.408, 635.726, 75.558, 1.36021)
pt3dadd(643, 634.211, 75.2825, 1.23116)
pt3dadd(641.365, 632.96, 74.839, 1.09641)
pt3dadd(639.887, 631.516, 74.6178, 1.09641)
pt3dadd(638.409, 630.071, 74.2333, 1.28516)
pt3dadd(637.394, 628.27, 74.0378, 0.988102)
pt3dadd(636.38, 626.465, 73.8423, 0.988102)
pt3dadd(635.366, 624.664, 73.6468, 0.988102)
pt3dadd(634.352, 622.863, 73.4513, 0.988102)
pt3dadd(632.898, 621.397, 73.0291, 1.10762)
pt3dadd(631.64, 619.762, 72.6069, 1.10562)
pt3dadd(630.58, 617.986, 72.6788, 0.957226)
pt3dadd(629.396, 616.285, 72.7677, 1.24566)
pt3dadd(628.216, 614.587, 72.8566, 1.24566)
pt3dadd(626.742, 613.134, 72.9988, 1.14879)
pt3dadd(625.463, 611.511, 73.1409, 1.15855)
pt3dadd(624.184, 609.884, 73.283, 1.15855)
pt3dadd(623.265, 608.046, 72.6644, 1.48421)
pt3dadd(622.109, 606.332, 72.4125, 1.48421)
pt3dadd(620.95, 604.618, 72.1607, 1.8622)
}
}
proc shape3d_30() {
apic[62] { pt3dadd(619.907, 602.838, 72.4853, 1.0424)
pt3dadd(619.013, 600.971, 72.4123, 1.0424)
pt3dadd(618.119, 599.104, 72.3393, 1.06383)
pt3dadd(617.005, 597.361, 72.0936, 1.06383)
pt3dadd(615.978, 595.568, 72.4399, 1.13227)
pt3dadd(614.744, 593.916, 72.0403, 1.12429)
pt3dadd(613.469, 592.289, 71.7921, 1.13617)
pt3dadd(612.36, 590.542, 71.6687, 1.14811)
pt3dadd(611.221, 588.812, 71.7456, 1.29667)
pt3dadd(609.979, 587.189, 72.5369, 1.32011)
pt3dadd(608.766, 585.516, 72.3493, 1.01885)
pt3dadd(607.429, 583.935, 72.527, 1.10604)
pt3dadd(606.162, 582.303, 72.7348, 1.04256)
pt3dadd(604.962, 580.614, 72.7446, 1.17286)
pt3dadd(603.765, 578.925, 72.7545, 1.11372)
pt3dadd(602.271, 577.497, 72.8549, 1.33142)
pt3dadd(600.784, 576.056, 73.0586, 1.33118)
pt3dadd(599.522, 574.433, 73.6642, 1.38951)
pt3dadd(598.201, 572.848, 73.3154, 1.38951)
pt3dadd(596.88, 571.262, 72.9667, 1.01573)
pt3dadd(595.638, 569.606, 73.221, 1.30181)
pt3dadd(594.533, 567.859, 73.4767, 1.26701)
pt3dadd(593.506, 566.066, 73.6435, 1.32501)
pt3dadd(592.322, 564.369, 73.7305, 1.3292)
pt3dadd(591.254, 562.605, 73.266, 1.43895)
pt3dadd(590.43, 560.705, 73.0556, 0.948814)
pt3dadd(589.375, 558.925, 73.1055, 0.948814)
pt3dadd(588.319, 557.145, 73.1555, 1.07573)
pt3dadd(587.176, 555.422, 73.3825, 1.07573)
pt3dadd(586.038, 553.696, 73.6095, 1.14378)
pt3dadd(585.119, 551.841, 73.4079, 1.14378)
pt3dadd(584.204, 549.991, 73.2062, 1.28626)
pt3dadd(583.136, 548.215, 73.2464, 1.03396)
pt3dadd(582.005, 546.488, 73.6223, 1.12417)
pt3dadd(581.198, 544.584, 73.6992, 1.39198)
pt3dadd(579.853, 543.007, 73.7932, 1.4042)
pt3dadd(578.851, 541.197, 73.8318, 1.06081)
pt3dadd(577.828, 539.396, 74.0147, 1.11495)
pt3dadd(576.748, 537.633, 74.0799, 1.19386)
pt3dadd(575.357, 536.105, 74.3078, 1.26256)
pt3dadd(574.077, 534.491, 73.8039, 1.08933)
pt3dadd(572.868, 532.81, 73.7363, 1.19342)
pt3dadd(571.68, 531.141, 74.4762, 1.14631)
pt3dadd(570.393, 529.518, 74.4417, 1.14631)
pt3dadd(569.109, 527.896, 74.4072, 1.1557)
pt3dadd(567.863, 526.244, 74.5617, 1.18628)
pt3dadd(566.807, 524.464, 74.5271, 1.25685)
pt3dadd(565.466, 522.899, 74.9015, 0.982754)
pt3dadd(564.187, 521.267, 74.8396, 0.982754)
pt3dadd(562.912, 519.64, 74.7778, 0.982754)
pt3dadd(561.632, 518.013, 74.7159, 1.21432)
pt3dadd(560.428, 516.337, 75.0953, 1.19878)
pt3dadd(559.182, 514.685, 74.8486, 1.1967)
pt3dadd(557.935, 513.033, 74.9858, 1.33333)
pt3dadd(556.445, 511.605, 75.267, 1.03412)
pt3dadd(555.062, 510.069, 75.5482, 1.03412)
pt3dadd(553.679, 508.533, 75.8294, 1.13634)
pt3dadd(552.363, 506.935, 75.7005, 1.20547)
pt3dadd(551.373, 505.117, 75.5605, 1.04264)
pt3dadd(550.666, 503.176, 75.856, 1.16614)
pt3dadd(549.821, 501.288, 75.964, 1.16614)
pt3dadd(548.972, 499.396, 76.072, 1.13034)
pt3dadd(548.355, 497.421, 75.9836, 1.27005)
pt3dadd(547.424, 495.575, 76.1515, 1.27005)
pt3dadd(546.492, 493.728, 76.3194, 1.27908)
pt3dadd(545.702, 491.815, 76.3947, 1.2721)
pt3dadd(544.89, 489.923, 75.8344, 1.30303)
pt3dadd(543.95, 488.089, 76.1966, 1.31481)
pt3dadd(542.795, 486.367, 76.2982, 1.32002)
pt3dadd(541.632, 484.686, 77.0332, 1.1086)
pt3dadd(540.369, 483.043, 77.0621, 1.18845)
pt3dadd(539.276, 481.287, 77.3205, 1.21197)
pt3dadd(538.109, 479.631, 78.3311, 1.22773)
pt3dadd(536.788, 478.038, 78.4271, 1.1238)
pt3dadd(535.41, 476.535, 79.2804, 1.17874)
pt3dadd(533.812, 475.222, 79.4698, 1.14688)
pt3dadd(532.263, 473.856, 79.7807, 1.16739)
pt3dadd(531.009, 472.233, 80.4281, 1.23995)
pt3dadd(529.837, 470.528, 80.751, 1.21738)
pt3dadd(528.612, 468.863, 80.9181, 1.15769)
pt3dadd(527.349, 467.22, 80.9235, 1.16682)
pt3dadd(525.892, 465.754, 80.9289, 1.29638)
pt3dadd(524.575, 464.156, 80.9953, 1.38043)
pt3dadd(523.168, 462.653, 80.4618, 1.02122)
pt3dadd(521.702, 461.192, 80.6118, 1.10416)
pt3dadd(520.535, 459.486, 80.7693, 1.14562)
pt3dadd(519.218, 457.942, 81.7496, 1.07074)
pt3dadd(517.459, 456.853, 81.936, 1.14823)
pt3dadd(515.931, 455.462, 82.2508, 1.2494)
pt3dadd(514.449, 454.021, 82.4724, 1.32531)
pt3dadd(512.718, 452.891, 82.7333, 0.939234)
pt3dadd(511.017, 451.711, 82.8177, 1.29657)
pt3dadd(509.456, 450.353, 82.9453, 1.06611)
pt3dadd(507.883, 449.033, 83.5979, 1.40715)
pt3dadd(506.144, 447.911, 83.4043, 1.13607)
pt3dadd(504.289, 447.008, 83.7844, 1.29209)
pt3dadd(502.509, 445.969, 84.2648, 1.29209)
pt3dadd(500.733, 444.926, 84.7452, 1.06204)
pt3dadd(498.858, 444.085, 85.3333, 1.15282)
pt3dadd(497.173, 442.93, 86.1454, 1.35903)
pt3dadd(495.363, 441.957, 86.7826, 0.952572)
pt3dadd(493.699, 440.761, 87.4586, 1.15045)
pt3dadd(492.031, 439.573, 88.2309, 1.15045)
pt3dadd(490.366, 438.389, 89.0031, 1.08604)
pt3dadd(488.652, 437.23, 89.1145, 1.09793)
pt3dadd(487.067, 435.917, 89.6503, 1.22792)
pt3dadd(485.307, 434.832, 89.9671, 1.22792)
pt3dadd(483.548, 433.752, 90.284, 1.22122)
pt3dadd(481.701, 432.891, 91.1543, 1.06586)
pt3dadd(479.859, 431.976, 91.7617, 1.22972)
pt3dadd(478.025, 431.02, 91.5459, 1.2645)
pt3dadd(476.357, 429.807, 91.9937, 1.73339)
pt3dadd(474.411, 429.107, 91.7895, 1.28203)
pt3dadd(472.627, 428.076, 91.3711, 0.863214)
pt3dadd(470.879, 426.966, 91.1464, 1.03853)
pt3dadd(469.137, 425.857, 90.9218, 1.03853)
pt3dadd(467.389, 424.747, 90.6971, 1.2012)
pt3dadd(465.82, 423.402, 90.7522, 1.37504)
pt3dadd(464.255, 422.061, 90.2215, 1.22476)
pt3dadd(462.856, 420.537, 90.2212, 1.22493)
pt3dadd(461.324, 419.15, 89.8964, 1.22493)
pt3dadd(459.797, 417.759, 89.5715, 1.34427)
pt3dadd(458.53, 416.124, 89.3549, 1.34427)
pt3dadd(457.263, 414.489, 89.1384, 1.32334)
pt3dadd(455.586, 413.295, 88.6785, 1.32334)
pt3dadd(453.905, 412.1, 88.2186, 1.48655)
pt3dadd(452.398, 410.682, 88.1992, 1.2702)
pt3dadd(450.966, 409.193, 87.834, 1.38201)
pt3dadd(449.712, 407.549, 87.6262, 1.38201)
pt3dadd(448.457, 405.905, 87.4185, 1.26964)
pt3dadd(447.24, 404.25, 88.0118, 1.34824)
pt3dadd(446.205, 402.459, 88.1796, 1.28513)
pt3dadd(445.112, 400.701, 88.179, 1.28513)
pt3dadd(444.019, 398.942, 88.1784, 1.35626)
pt3dadd(443.208, 397.054, 88.773, 1.35176)
pt3dadd(442.57, 395.096, 89.2744, 1.41074)
pt3dadd(441.759, 393.198, 88.9131, 1.17737)
pt3dadd(440.691, 391.424, 88.9807, 1.24169)
pt3dadd(439.304, 389.889, 89.074, 1.28099)
pt3dadd(438.223, 388.13, 89.4949, 1.37674)
pt3dadd(437.279, 386.294, 89.8279, 1.37674)
pt3dadd(436.331, 384.459, 90.1609, 1.27534)
pt3dadd(435.006, 382.872, 90.3757, 1.27534)
pt3dadd(433.677, 381.286, 90.5905, 1.29782)
pt3dadd(432.456, 379.624, 90.9839, 1.07737)
pt3dadd(431.425, 377.843, 91.5185, 1.3399)
pt3dadd(430.254, 376.15, 92.0384, 1.37189)
pt3dadd(428.767, 374.715, 92.4147, 1.37189)
pt3dadd(427.285, 373.279, 92.791, 1.42943)
pt3dadd(425.691, 371.979, 93.3749, 1.08362)
pt3dadd(424.077, 370.689, 93.6608, 1.08362)
pt3dadd(422.466, 369.398, 93.9468, 1.40827)
pt3dadd(420.728, 368.274, 94.0154, 1.36664)
pt3dadd(419.138, 366.973, 94.6383, 1.52076)
pt3dadd(417.565, 365.628, 94.4644, 1.57037)
pt3dadd(415.88, 364.43, 94.6777, 1.5587)
pt3dadd(414.215, 363.213, 94.2576, 1.09918)
pt3dadd(412.822, 361.694, 94.7275, 1.47098)
pt3dadd(411.519, 360.097, 95.1974, 1.67755)
}
apic[63] {pt3dclear()
pt3dadd(411.519, 360.097, 95.1974, 1.67755)
pt3dadd(409.003, 358.84, 95.5531, 1.7889)
pt3dadd(406.99, 358.389, 95.971, 1.7889)
pt3dadd(405.07, 357.652, 96.5441, 1.47523)
pt3dadd(403.137, 356.986, 97.3221, 1.45437)
pt3dadd(401.179, 356.323, 97.6122, 1.242)
pt3dadd(399.366, 355.34, 98.0227, 1.30305)
pt3dadd(397.71, 354.099, 98.1754, 1.43)
pt3dadd(395.859, 353.173, 98.2953, 1.43)
pt3dadd(394.009, 352.247, 98.4153, 1.4583)
pt3dadd(392.187, 351.375, 99.5138, 1.45272)
pt3dadd(390.404, 350.352, 100.102, 1.30119)
pt3dadd(388.428, 349.911, 101.136, 1.30119)
pt3dadd(386.451, 349.471, 102.17, 1.6697)
pt3dadd(384.466, 348.934, 102.743, 1.79031)
pt3dadd(382.409, 348.758, 103.119, 1.79031)
pt3dadd(380.353, 348.582, 103.496, 1.17294)
pt3dadd(378.326, 348.191, 103.877, 1.15745)
pt3dadd(376.335, 347.807, 104.887, 0.963204)
pt3dadd(374.268, 347.736, 105.093, 0.963204)
pt3dadd(372.201, 347.664, 105.3, 1.21232)
pt3dadd(370.137, 347.582, 105.602, 1.21232)
pt3dadd(368.072, 347.499, 105.905, 1.16597)
pt3dadd(366.039, 347.109, 105.896, 1.27157)
pt3dadd(363.991, 346.81, 106.004, 1.30889)
pt3dadd(361.933, 346.595, 106.149, 1.30414)
pt3dadd(359.871, 346.444, 106.354, 0.901014)
pt3dadd(357.809, 346.47, 106.805, 1.20305)
pt3dadd(355.745, 346.357, 106.554, 1.03597)
pt3dadd(353.147, 346.128, 106.426, 1.03597)
pt3dadd(352.238, 345.335, 106.378, 1.25221)
pt3dadd(350.458, 344.28, 106.249, 1.25221)
pt3dadd(348.573, 343.463, 106.858, 1.19111)
pt3dadd(346.694, 342.609, 107.255, 0.886208)
pt3dadd(344.791, 341.795, 107.177, 1.43121)
pt3dadd(342.778, 341.314, 107.248, 1.44931)
pt3dadd(340.85, 340.562, 107.285, 1.31297)
pt3dadd(338.852, 340.038, 106.923, 1.19968)
pt3dadd(336.832, 339.632, 106.465, 1.01972)
pt3dadd(334.765, 339.543, 106.299, 1.0422)
pt3dadd(332.728, 339.276, 105.677, 1.15524)
}
}
proc shape3d_31() {
apic[63] { pt3dadd(330.662, 339.359, 105.458, 1.08215)
pt3dadd(328.637, 339.786, 105.55, 1.11773)
pt3dadd(326.657, 340.365, 105.141, 1.29996)
pt3dadd(324.61, 340.616, 104.692, 1.41016)
pt3dadd(322.68, 341.343, 104.272, 1.57385)
pt3dadd(320.663, 341.809, 104.27, 1.69913)
pt3dadd(318.625, 342.171, 104.259, 1.28065)
pt3dadd(316.558, 342.288, 104.211, 1.28065)
pt3dadd(314.492, 342.405, 104.162, 1.25235)
pt3dadd(312.619, 343.218, 103.343, 1.37682)
pt3dadd(310.666, 343.849, 102.684, 1.43891)
pt3dadd(308.67, 344.389, 102.468, 1.41393)
pt3dadd(306.709, 344.899, 101.444, 1.41393)
pt3dadd(304.748, 345.408, 100.42, 1.4601)
pt3dadd(302.701, 345.559, 99.7613, 1.31674)
pt3dadd(300.693, 346.049, 99.5263, 1.37013)
pt3dadd(298.819, 346.922, 99.2762, 1.31803)
pt3dadd(296.828, 347.331, 98.3218, 1.27924)
pt3dadd(294.949, 347.955, 96.8667, 1.41776)
pt3dadd(293.152, 348.877, 95.7685, 0.964454)
pt3dadd(291.306, 349.695, 94.6703, 0.964454)
pt3dadd(289.459, 350.514, 93.5722, 1.00255)
pt3dadd(287.61, 351.417, 93.0478, 1.05213)
pt3dadd(285.651, 351.97, 92.1346, 1.06326)
pt3dadd(282.276, 350.907, 94.9567, 1.06326)
}
apic[64] {pt3dclear()
pt3dadd(411.519, 360.097, 95.1974, 1.67755)
pt3dadd(410.933, 358.123, 95.7152, 1.23731)
pt3dadd(410.586, 356.094, 96.2345, 1.58059)
pt3dadd(410.665, 354.025, 96.1893, 1.12285)
pt3dadd(410.678, 351.958, 96.4322, 1.26877)
pt3dadd(410.362, 349.917, 96.7921, 1.40743)
pt3dadd(410.356, 347.848, 96.7494, 0.969406)
pt3dadd(410.166, 345.786, 96.791, 1.06222)
pt3dadd(410.035, 343.731, 97.2863, 1.06222)
pt3dadd(409.905, 341.675, 97.7816, 1.22072)
pt3dadd(409.908, 339.611, 98.1594, 1.32611)
pt3dadd(409.559, 337.59, 98.8411, 1.30076)
pt3dadd(409.467, 335.54, 99.4931, 1.14594)
pt3dadd(409.311, 333.478, 99.2733, 1.2737)
pt3dadd(409, 331.431, 99.2392, 1.2737)
pt3dadd(408.689, 329.385, 99.205, 1.59467)
pt3dadd(408.984, 327.337, 99.0823, 1.59467)
pt3dadd(409.28, 325.289, 98.9597, 1.15688)
pt3dadd(409.77, 323.28, 98.7167, 1.15688)
pt3dadd(410.26, 321.271, 98.4736, 1.35392)
pt3dadd(410.594, 319.23, 98.3072, 1.35392)
pt3dadd(410.929, 317.188, 98.1408, 1.32031)
pt3dadd(411.491, 315.203, 98.5432, 1.40669)
pt3dadd(411.844, 313.165, 98.3246, 1.32815)
pt3dadd(412.082, 311.11, 98.5044, 1.32815)
pt3dadd(412.321, 309.056, 98.6843, 1.4112)
pt3dadd(412.941, 307.085, 98.9809, 1.04264)
pt3dadd(413.499, 305.091, 99.0786, 1.35616)
pt3dadd(413.845, 303.067, 99.7136, 1.35616)
pt3dadd(414.19, 301.043, 100.349, 1.5301)
pt3dadd(414.853, 299.099, 100.97, 1.03112)
pt3dadd(415.387, 297.101, 101.185, 1.35841)
pt3dadd(415.747, 295.079, 101.809, 1.36016)
pt3dadd(415.846, 293.028, 102.428, 1.33392)
pt3dadd(415.995, 290.985, 103.16, 1.09036)
pt3dadd(416.07, 288.977, 104.364, 1.43823)
pt3dadd(415.88, 286.969, 105.486, 1.29028)
pt3dadd(415.337, 285.062, 106.924, 1.5418)
pt3dadd(414.683, 283.134, 107.828, 1.59983)
pt3dadd(414.393, 281.152, 109.084, 1.32781)
pt3dadd(414.878, 279.205, 110.328, 2.01779)
pt3dadd(415.259, 277.749, 113.758, 1.59796)
}
apic[65] {pt3dclear()
pt3dadd(647.666, 639.27, 76.0116, 1.39027)
pt3dadd(646.871, 637.361, 75.699, 1.48534)
pt3dadd(646.316, 635.378, 76.1013, 1.51146)
pt3dadd(645.836, 633.379, 75.5301, 1.22052)
pt3dadd(645.198, 631.412, 75.2366, 1.46586)
pt3dadd(644.59, 629.437, 75.5283, 0.96087)
pt3dadd(644.043, 627.442, 75.2189, 1.35963)
pt3dadd(643.724, 625.417, 74.5398, 1.35963)
pt3dadd(643.402, 623.393, 73.8607, 1.15186)
pt3dadd(643.116, 621.344, 73.814, 1.16087)
pt3dadd(642.876, 619.29, 74.1234, 1.16087)
pt3dadd(642.631, 617.237, 74.4329, 1.24661)
pt3dadd(642.147, 615.233, 74.032, 1.41521)
pt3dadd(641.514, 613.266, 74.2894, 1.21762)
pt3dadd(641.112, 611.238, 74.0193, 1.21271)
pt3dadd(640.773, 609.197, 73.8436, 1.39573)
pt3dadd(640.541, 607.139, 73.7176, 1.39573)
pt3dadd(640.309, 605.086, 73.5915, 1.39573)
pt3dadd(640.077, 603.028, 73.4654, 1.35844)
pt3dadd(640.102, 600.958, 73.4361, 1.45597)
pt3dadd(639.762, 598.921, 73.7149, 1.30484)
pt3dadd(639.398, 596.893, 73.1551, 1.28873)
pt3dadd(638.972, 594.872, 73.3221, 1.28873)
pt3dadd(638.541, 592.848, 73.4892, 1.35059)
pt3dadd(638.065, 590.84, 73.0816, 1.45917)
pt3dadd(637.945, 588.774, 72.9783, 1.45917)
pt3dadd(637.825, 586.708, 72.8751, 1.2241)
pt3dadd(637.465, 584.672, 72.7442, 1.2241)
pt3dadd(637.076, 582.647, 73.2465, 1.37543)
pt3dadd(636.691, 580.614, 73.4189, 1.37543)
pt3dadd(636.016, 578.669, 72.9262, 1.44031)
pt3dadd(635.151, 576.793, 73.2768, 1.44031)
pt3dadd(634.236, 574.938, 73.003, 1.43367)
pt3dadd(633.437, 573.051, 73.6813, 1.09842)
pt3dadd(632.758, 571.096, 73.4599, 1.10803)
pt3dadd(632.075, 569.151, 73.8752, 1.10803)
pt3dadd(631.396, 567.205, 74.2906, 1.21741)
pt3dadd(631.044, 565.164, 74.3639, 1.31423)
pt3dadd(630.332, 563.222, 74.6319, 1.31423)
pt3dadd(629.615, 561.285, 74.8998, 1.28812)
pt3dadd(629.326, 559.24, 75.2407, 1.32988)
pt3dadd(629.148, 557.178, 75.4813, 1.11165)
pt3dadd(629.044, 555.12, 75.9523, 1.25074)
pt3dadd(628.721, 553.083, 76.3899, 1.20916)
pt3dadd(628.295, 551.067, 76.7387, 1.23849)
pt3dadd(627.599, 549.121, 77.1122, 1.26395)
pt3dadd(626.738, 547.283, 78.1064, 1.13771)
pt3dadd(625.765, 545.457, 78.1963, 0.944144)
pt3dadd(624.958, 543.565, 78.7177, 1.20291)
pt3dadd(624.192, 541.64, 78.5884, 1.21054)
pt3dadd(623.244, 539.806, 78.8742, 1.2492)
pt3dadd(622.424, 537.906, 79.131, 1.2492)
pt3dadd(621.604, 536.01, 79.3877, 1.27027)
pt3dadd(620.586, 534.209, 79.322, 1.33382)
}
apic[66] {pt3dclear()
pt3dadd(620.586, 534.209, 79.322, 1.33382)
pt3dadd(620.371, 532.864, 78.9521, 1.51839)
pt3dadd(619.588, 531.001, 77.8547, 1.51839)
pt3dadd(619.245, 528.96, 77.736, 1.37487)
pt3dadd(618.967, 526.91, 77.6573, 1.37411)
pt3dadd(618.379, 524.931, 77.3552, 1.37453)
pt3dadd(618.102, 522.878, 77.4947, 1.25314)
pt3dadd(617.638, 520.862, 77.6175, 1.53361)
pt3dadd(617.021, 518.887, 77.5951, 1.31733)
pt3dadd(616.405, 516.912, 77.5727, 1.35405)
pt3dadd(615.858, 514.912, 77.5593, 1.35405)
pt3dadd(615.312, 512.917, 77.5458, 1.35405)
pt3dadd(614.765, 510.922, 77.5324, 1.47714)
pt3dadd(614.562, 508.864, 77.2211, 1.41989)
pt3dadd(614.38, 506.806, 77.5187, 1.37186)
pt3dadd(613.974, 504.778, 77.3009, 1.39401)
pt3dadd(613.382, 502.795, 77.3244, 1.39401)
pt3dadd(612.79, 500.812, 77.348, 1.41608)
pt3dadd(612.347, 498.791, 77.4284, 1.39878)
pt3dadd(612.07, 496.738, 77.4102, 1.19352)
}
apic[67] {pt3dclear()
pt3dadd(612.07, 496.738, 77.4102, 1.19352)
pt3dadd(611.027, 493.852, 78.0921, 1.12947)
pt3dadd(610.269, 491.927, 78.2415, 1.12947)
pt3dadd(609.768, 489.932, 78.7975, 1.19444)
pt3dadd(609.267, 487.94, 79.3535, 1.19444)
pt3dadd(608.481, 486.032, 79.7854, 1.81345)
pt3dadd(607.491, 484.214, 80.0112, 1.55549)
pt3dadd(606.982, 482.211, 79.966, 0.943672)
pt3dadd(606.477, 480.203, 79.706, 1.47015)
pt3dadd(606.245, 478.153, 80.0848, 1.37126)
pt3dadd(606.046, 476.104, 79.54, 1.27447)
pt3dadd(605.848, 474.059, 78.9953, 1.27447)
pt3dadd(605.156, 472.105, 79.0509, 1.71293)
pt3dadd(604.995, 470.056, 78.4518, 1.32711)
pt3dadd(604.601, 468.039, 77.8524, 1.25953)
pt3dadd(604.009, 466.06, 77.5517, 1.29303)
pt3dadd(603.662, 464.028, 77.1253, 1.29303)
pt3dadd(603.318, 461.995, 76.6988, 1.37023)
pt3dadd(602.656, 460.033, 76.8161, 1.49704)
pt3dadd(601.906, 458.103, 76.8681, 1.49704)
pt3dadd(601.161, 456.174, 76.92, 1.20621)
pt3dadd(600.383, 454.253, 76.9719, 1.17315)
pt3dadd(600.681, 452.208, 77.2033, 1.17315)
pt3dadd(600.979, 450.163, 77.4347, 1.02209)
pt3dadd(600.648, 448.118, 77.3618, 1.1148)
pt3dadd(600.424, 446.068, 76.9786, 1.10932)
pt3dadd(600.594, 444.015, 76.446, 1.11444)
pt3dadd(600.536, 441.945, 76.4936, 1.16706)
pt3dadd(600.354, 439.883, 76.4249, 1.2225)
pt3dadd(599.832, 437.896, 75.8731, 1.30638)
pt3dadd(599.41, 435.867, 75.8412, 1.46671)
pt3dadd(598.872, 433.893, 75.0971, 1.02587)
pt3dadd(598.085, 431.984, 74.811, 1.02587)
pt3dadd(597.303, 430.071, 74.5249, 1.02587)
pt3dadd(596.516, 428.159, 74.2388, 1.21288)
pt3dadd(596.052, 426.147, 73.941, 1.33251)
pt3dadd(595.237, 424.242, 73.8246, 1.17704)
pt3dadd(594.359, 422.392, 73.0791, 1.17704)
pt3dadd(593.423, 420.549, 73.3196, 1.15751)
pt3dadd(592.546, 418.678, 73.4742, 1.19538)
pt3dadd(591.718, 416.782, 73.5164, 1.25513)
pt3dadd(591.254, 414.766, 73.2771, 1.10982)
pt3dadd(590.621, 412.794, 73.2857, 1.10982)
pt3dadd(589.991, 410.822, 73.2943, 1.05638)
pt3dadd(589.598, 408.79, 73.3067, 1.35289)
pt3dadd(589.35, 406.736, 73.4398, 1.08946)
pt3dadd(589.163, 404.674, 73.3762, 1.08966)
pt3dadd(588.596, 402.685, 73.6057, 1.36036)
pt3dadd(587.797, 400.776, 73.534, 1.21588)
pt3dadd(587.354, 398.755, 73.4749, 1.21588)
pt3dadd(586.907, 396.733, 73.4157, 1.32513)
pt3dadd(586.129, 394.816, 73.3566, 0.96708)
pt3dadd(585.462, 392.856, 73.2975, 1.17535)
pt3dadd(584.775, 390.911, 73.7172, 1.17625)
pt3dadd(583.815, 389.077, 73.7711, 1.17625)
pt3dadd(582.858, 387.243, 73.825, 0.9407)
pt3dadd(582.105, 385.314, 73.9388, 1.24132)
pt3dadd(581.388, 383.374, 74.0627, 1.62061)
pt3dadd(580.722, 381.416, 74.3158, 1.62061)
}
}
proc shape3d_32() {
apic[67] { pt3dadd(580.06, 379.459, 74.5689, 1.16813)
pt3dadd(579.795, 377.407, 74.7355, 1.16813)
pt3dadd(579.53, 375.355, 74.9022, 1.27633)
pt3dadd(578.967, 373.368, 74.5369, 1.27633)
pt3dadd(578.404, 371.382, 74.1715, 1.10842)
pt3dadd(577.493, 369.524, 74.0975, 1.1247)
pt3dadd(576.826, 367.565, 74.0235, 1.1247)
pt3dadd(576.156, 365.606, 73.9494, 1.39833)
pt3dadd(575.605, 363.611, 73.9214, 1.07609)
pt3dadd(575.166, 361.588, 73.8432, 1.07609)
pt3dadd(574.727, 359.566, 73.765, 1.2011)
pt3dadd(574.632, 357.499, 73.601, 1.22936)
pt3dadd(574.293, 355.457, 73.6361, 1.30692)
pt3dadd(574.346, 353.389, 73.8211, 1.30692)
pt3dadd(574.396, 351.321, 74.006, 1.3859)
pt3dadd(574.408, 349.275, 73.2477, 1.42112)
pt3dadd(574.636, 347.218, 73.3327, 1.37146)
pt3dadd(574.976, 345.176, 73.2731, 1.15637)
pt3dadd(575.315, 343.148, 72.683, 1.29631)
pt3dadd(575.51, 341.088, 72.8145, 0.956978)
pt3dadd(575.319, 339.036, 73.2854, 1.12626)
pt3dadd(575.29, 336.97, 73.5608, 1.25807)
pt3dadd(575.265, 334.903, 73.8361, 1.25807)
pt3dadd(575.241, 332.836, 74.1114, 1.25807)
pt3dadd(575.216, 330.769, 74.3867, 1.27456)
pt3dadd(575.419, 328.724, 74.9707, 1.26214)
pt3dadd(575.166, 326.672, 75.2452, 1.39113)
pt3dadd(574.727, 324.653, 75.5664, 1.39113)
pt3dadd(574.293, 322.634, 75.8875, 1.46659)
pt3dadd(574.222, 320.565, 75.8511, 1.0097)
pt3dadd(573.974, 318.51, 75.7578, 1.17165)
pt3dadd(573.452, 316.508, 75.9398, 1.36243)
pt3dadd(572.781, 314.553, 76.1218, 1.36367)
pt3dadd(572.508, 312.501, 76.2246, 1.43604)
pt3dadd(572.401, 310.439, 76.5674, 1.43232)
pt3dadd(572.239, 308.428, 77.6876, 1.01505)
pt3dadd(571.991, 304.306, 78.4162, 1.01505)
pt3dadd(571.871, 305.992, 77.7049, 1.31241)
pt3dadd(573.075, 302.046, 78.5309, 1.31241)
pt3dadd(573.365, 299.998, 78.7268, 1.16009)
pt3dadd(572.959, 297.967, 78.7249, 1.85731)
pt3dadd(572.81, 295.914, 79.2417, 1.33869)
pt3dadd(572.988, 293.879, 80.0502, 1.33869)
pt3dadd(573.162, 291.844, 80.8586, 1.33869)
pt3dadd(573.336, 289.808, 81.6671, 1.51415)
pt3dadd(573.833, 287.826, 82.4756, 1.72592)
pt3dadd(574.057, 285.78, 83.0149, 1.50606)
pt3dadd(574.831, 283.862, 83.1663, 1.49434)
pt3dadd(575.477, 281.918, 83.8726, 1.5816)
pt3dadd(576.197, 279.979, 83.6513, 1.22152)
pt3dadd(577.095, 278.116, 83.8574, 1.50394)
pt3dadd(577.994, 276.252, 84.0636, 1.50394)
pt3dadd(578.888, 274.389, 84.2697, 1.44346)
pt3dadd(579.716, 272.495, 84.5227, 1.23161)
pt3dadd(580.171, 270.479, 84.804, 1.31708)
pt3dadd(580.999, 268.585, 85.0854, 1.31708)
pt3dadd(581.662, 266.625, 84.8914, 1.5379)
pt3dadd(582.357, 264.687, 85.3972, 1.25384)
pt3dadd(582.448, 262.619, 85.4412, 1.40171)
pt3dadd(582.37, 260.55, 85.4522, 1.22031)
pt3dadd(582.27, 258.511, 86.2682, 1.29446)
pt3dadd(581.831, 256.493, 86.618, 1.3018)
pt3dadd(581.562, 254.47, 87.4516, 1.44717)
pt3dadd(581.417, 252.433, 88.2676, 1.41624)
pt3dadd(581.533, 250.394, 89.0837, 1.21126)
pt3dadd(581.194, 248.389, 90.0226, 1.43528)
pt3dadd(581.061, 246.443, 91.6981, 1.19027)
pt3dadd(581.215, 244.436, 92.8573, 1.21767)
pt3dadd(581.662, 242.443, 93.6818, 1.75654)
pt3dadd(582.515, 240.633, 94.959, 1.04077)
pt3dadd(582.933, 238.655, 96.0296, 1.04077)
pt3dadd(583.355, 236.678, 97.1002, 1.45322)
pt3dadd(583.616, 234.694, 98.3826, 1.22015)
pt3dadd(583.533, 232.652, 99.1797, 1.26893)
pt3dadd(583.516, 230.661, 100.549, 1.26893)
pt3dadd(583.504, 228.67, 101.918, 0.98989)
pt3dadd(584.398, 226.838, 102.776, 1.4816)
pt3dadd(584.796, 224.877, 104.057, 1.65858)
pt3dadd(584.357, 223.006, 105.914, 2.16763)
pt3dadd(583.078, 222.211, 108.563, 2.16763)
}
apic[68] {pt3dclear()
pt3dadd(612.07, 496.738, 77.4102, 1.19352)
pt3dadd(612.331, 493.438, 77.5632, 1.19352)
}
apic[69] {pt3dclear()
pt3dadd(620.586, 534.209, 79.322, 1.33382)
pt3dadd(619.617, 532.412, 80.1842, 0.995082)
pt3dadd(618.677, 530.669, 81.6283, 1.26387)
pt3dadd(617.717, 528.856, 82.2721, 1.1262)
pt3dadd(616.889, 526.993, 83.1762, 1.1262)
pt3dadd(616.057, 525.134, 84.0803, 1.20564)
pt3dadd(615.515, 523.143, 84.4325, 1.20564)
pt3dadd(614.968, 521.151, 84.7847, 1.22628)
pt3dadd(614.293, 519.206, 85.2702, 1.22628)
pt3dadd(613.614, 517.26, 85.7557, 1.22628)
pt3dadd(612.935, 515.314, 86.2412, 1.26571)
pt3dadd(612.145, 513.414, 86.7692, 1.26571)
pt3dadd(611.569, 511.48, 87.8821, 1.35732)
pt3dadd(610.99, 509.497, 88.0769, 1.00888)
pt3dadd(610.174, 507.601, 88.4903, 1.00888)
pt3dadd(609.358, 505.705, 88.9038, 1.00888)
pt3dadd(608.543, 503.809, 89.3172, 0.969812)
pt3dadd(607.562, 501.996, 89.6629, 1.37259)
pt3dadd(606.829, 500.062, 89.9102, 1.13342)
pt3dadd(605.918, 498.203, 90.1796, 1.13342)
pt3dadd(605.007, 496.349, 90.449, 1.14719)
pt3dadd(604.047, 494.523, 90.8604, 1.14353)
pt3dadd(603.215, 492.643, 91.3874, 1.14179)
pt3dadd(602.399, 490.801, 92.5448, 1.20704)
pt3dadd(601.6, 488.893, 92.768, 1.29546)
pt3dadd(600.896, 486.992, 93.7999, 1.30637)
pt3dadd(600.221, 485.059, 94.4852, 1.24453)
pt3dadd(599.629, 483.08, 94.8672, 1.04895)
pt3dadd(598.768, 481.205, 95.2362, 1.11242)
pt3dadd(597.928, 479.317, 95.5849, 1.38195)
pt3dadd(597.22, 477.371, 95.6322, 1.38195)
pt3dadd(596.512, 475.425, 95.6794, 1.06869)
pt3dadd(595.7, 473.525, 95.9255, 1.06869)
pt3dadd(594.889, 471.625, 96.1715, 1.06869)
pt3dadd(594.177, 469.683, 96.3282, 1.19552)
pt3dadd(593.577, 467.7, 96.4447, 1.19552)
pt3dadd(592.98, 465.721, 96.5613, 1.19552)
pt3dadd(592.38, 463.738, 96.6779, 1.19552)
pt3dadd(592.032, 461.701, 96.8874, 1.22875)
pt3dadd(591.523, 459.697, 96.6242, 1.32247)
pt3dadd(591.37, 457.631, 96.6801, 1.29216)
pt3dadd(591.146, 455.578, 96.8816, 1.43113)
pt3dadd(590.679, 453.562, 96.9437, 1.25979)
pt3dadd(590.269, 451.533, 97.0058, 1.34919)
pt3dadd(589.813, 449.513, 97.2529, 1.39766)
pt3dadd(589.366, 447.505, 97.7436, 1.39766)
pt3dadd(588.915, 445.493, 98.2343, 1.01509)
pt3dadd(588.352, 443.514, 98.725, 1.22849)
pt3dadd(587.752, 441.539, 99.1185, 1.29695)
pt3dadd(587.176, 439.556, 98.7887, 1.1119)
pt3dadd(586.655, 437.552, 98.8899, 1.1119)
pt3dadd(586.129, 435.549, 98.9911, 1.1576)
pt3dadd(585.988, 433.491, 99.3744, 1.1576)
pt3dadd(585.847, 431.434, 99.7578, 1.20871)
pt3dadd(585.396, 429.413, 99.8208, 1.26158)
pt3dadd(585.334, 427.347, 100.163, 1.26158)
pt3dadd(585.272, 425.281, 100.505, 1.27394)
pt3dadd(584.808, 423.265, 100.617, 1.04791)
pt3dadd(583.98, 421.373, 100.88, 1.04791)
pt3dadd(583.148, 419.477, 101.142, 1.15451)
pt3dadd(582.626, 417.478, 100.978, 1.15451)
pt3dadd(582.001, 415.519, 101.566, 1.40252)
pt3dadd(581.297, 413.573, 101.533, 1.40843)
pt3dadd(580.627, 411.64, 102.293, 1.33553)
pt3dadd(580.097, 409.646, 102.723, 1.36018)
pt3dadd(579.509, 407.665, 102.999, 1.2749)
pt3dadd(578.834, 405.708, 102.887, 1.2749)
pt3dadd(578.159, 403.752, 102.775, 1.54626)
pt3dadd(576.971, 402.061, 103.03, 1.36475)
}
apic[70] {pt3dclear()
pt3dadd(576.971, 402.061, 103.03, 1.36475)
pt3dadd(577.927, 400.518, 103.267, 1.88869)
pt3dadd(578.292, 398.488, 103.718, 1.88869)
pt3dadd(578.341, 396.419, 103.839, 1.38612)
pt3dadd(578.209, 394.379, 104.624, 1.39588)
pt3dadd(578.076, 392.315, 104.773, 1.40067)
pt3dadd(577.944, 390.25, 104.922, 1.40067)
pt3dadd(577.865, 388.191, 105.401, 1.64012)
pt3dadd(577.476, 386.169, 105.907, 1.43745)
pt3dadd(577.083, 384.147, 106.413, 1.43745)
pt3dadd(576.984, 382.087, 106.846, 1.23596)
pt3dadd(576.814, 380.069, 107.884, 1.35598)
pt3dadd(576.735, 378.022, 108.591, 1.34556)
pt3dadd(576.607, 375.956, 108.674, 1.33208)
pt3dadd(576.201, 374.011, 110.071, 1.33208)
pt3dadd(575.791, 372.066, 111.467, 1.49628)
pt3dadd(575.216, 370.137, 112.641, 1.04561)
pt3dadd(574.628, 368.156, 112.941, 1.04561)
pt3dadd(574.04, 366.175, 113.241, 1.04561)
pt3dadd(573.456, 364.194, 113.541, 1.45678)
pt3dadd(573.142, 362.185, 114.485, 1.41018)
pt3dadd(573.626, 360.187, 115.061, 1.45688)
pt3dadd(574.172, 358.197, 114.672, 1.41581)
pt3dadd(574.715, 356.202, 114.907, 1.41481)
pt3dadd(574.694, 354.136, 115.198, 1.23701)
pt3dadd(574.818, 352.074, 114.849, 1.2768)
pt3dadd(575.518, 350.145, 115.506, 1.2768)
pt3dadd(576.218, 348.216, 116.162, 1.27145)
pt3dadd(576.934, 346.274, 116.182, 1.4867)
pt3dadd(577.476, 344.296, 116.843, 1.14764)
pt3dadd(577.729, 342.244, 116.599, 1.09284)
pt3dadd(578.043, 340.197, 116.663, 1.09284)
pt3dadd(578.354, 338.151, 116.727, 1.13983)
pt3dadd(579.049, 336.205, 117.02, 1.5233)
pt3dadd(579.289, 334.156, 117.416, 1.52031)
pt3dadd(579.488, 332.098, 117.182, 1.38928)
pt3dadd(579.468, 330.028, 117.313, 1.38928)
pt3dadd(579.447, 327.959, 117.444, 1.20393)
pt3dadd(579.637, 325.901, 117.747, 1.45755)
pt3dadd(580.064, 323.877, 117.548, 1.52581)
pt3dadd(580.867, 321.97, 117.642, 1.16219)
pt3dadd(582.345, 320.524, 117.81, 1.16219)
pt3dadd(583.823, 319.077, 117.978, 1.36784)
pt3dadd(584.713, 317.208, 117.83, 1.49971)
pt3dadd(585.21, 315.206, 118.253, 1.3156)
pt3dadd(586.203, 313.402, 118.734, 1.3156)
pt3dadd(587.201, 311.599, 119.216, 1.32385)
pt3dadd(588.348, 309.893, 119.788, 1.32385)
pt3dadd(589.499, 308.189, 120.36, 1.4136)
}
}
proc shape3d_33() {
apic[70] { pt3dadd(590.314, 306.294, 120.782, 1.33116)
pt3dadd(591.064, 304.365, 120.805, 1.25011)
pt3dadd(591.801, 302.432, 120.598, 0.93434)
pt3dadd(592.281, 300.45, 119.737, 0.987572)
pt3dadd(592.757, 298.461, 118.971, 1.18684)
pt3dadd(592.219, 296.464, 118.72, 1.20574)
pt3dadd(591.941, 294.416, 118.47, 1.22885)
pt3dadd(591.536, 292.413, 117.679, 1.32203)
pt3dadd(591.482, 290.352, 117.212, 1.34032)
pt3dadd(591.022, 288.341, 116.823, 1.38208)
pt3dadd(589.83, 286.663, 116.299, 1.31778)
pt3dadd(588.907, 284.815, 115.953, 1.43877)
pt3dadd(587.818, 283.057, 116.165, 1.55448)
pt3dadd(587.06, 281.131, 116.205, 1.55448)
pt3dadd(586.303, 279.205, 116.244, 1.17079)
pt3dadd(585.21, 277.541, 117.623, 1.63464)
pt3dadd(584.431, 275.654, 118.432, 1.31608)
pt3dadd(584.079, 273.617, 118.733, 1.2063)
pt3dadd(584.017, 271.549, 118.878, 1.2063)
pt3dadd(583.959, 269.481, 119.023, 1.29942)
pt3dadd(583.852, 267.414, 119.168, 1.29942)
pt3dadd(583.748, 265.348, 119.312, 1.28217)
pt3dadd(583.612, 263.282, 119.295, 1.28217)
pt3dadd(583.479, 261.217, 119.277, 1.5113)
pt3dadd(583.123, 259.189, 118.752, 1.55556)
pt3dadd(583.086, 257.12, 118.826, 1.24721)
pt3dadd(583.603, 255.116, 118.985, 1.35871)
pt3dadd(584.452, 253.238, 119.426, 1.40734)
pt3dadd(585.479, 251.44, 119.606, 1.46563)
pt3dadd(586.58, 249.693, 119.876, 1.50424)
pt3dadd(587.685, 247.967, 119.167, 1.27741)
pt3dadd(588.443, 246.046, 118.811, 1.27741)
pt3dadd(589.201, 244.125, 118.456, 1.3845)
pt3dadd(590.037, 242.244, 118.967, 1.3792)
pt3dadd(590.683, 240.314, 119.897, 1.44918)
pt3dadd(591.225, 238.352, 120.798, 1.12197)
pt3dadd(591.453, 236.305, 121.29, 1.23556)
pt3dadd(591.635, 234.268, 122.062, 1.13373)
pt3dadd(591.445, 230.638, 124.04, 1.13373)
}
apic[71] {pt3dclear()
pt3dadd(576.971, 402.061, 103.03, 1.36475)
pt3dadd(575.501, 400.617, 103.535, 1.38253)
pt3dadd(574.177, 399.031, 103.394, 1.19168)
pt3dadd(572.674, 397.612, 103.694, 1.1843)
pt3dadd(571.361, 396.017, 104.092, 1.21529)
pt3dadd(569.755, 394.732, 104.638, 1.24588)
pt3dadd(568.004, 393.639, 104.946, 1.2555)
pt3dadd(566.501, 392.236, 105.514, 1.2555)
pt3dadd(564.994, 390.833, 106.082, 1.08735)
pt3dadd(563.967, 389.041, 106.372, 1.30141)
pt3dadd(562.796, 387.351, 106.974, 1.30141)
pt3dadd(561.628, 385.661, 107.576, 1.32823)
pt3dadd(560.448, 383.968, 107.189, 1.34744)
pt3dadd(559.248, 382.29, 107.592, 1.4509)
pt3dadd(557.948, 380.679, 107.739, 1.00576)
pt3dadd(556.652, 379.066, 107.612, 0.98595)
pt3dadd(555.211, 377.58, 107.67, 0.98595)
pt3dadd(553.771, 376.093, 107.728, 0.98595)
pt3dadd(552.33, 374.606, 107.786, 1.21377)
pt3dadd(550.939, 373.098, 108.443, 1.28099)
pt3dadd(549.312, 371.819, 108.552, 1.00839)
pt3dadd(547.697, 370.549, 109.138, 1.18458)
pt3dadd(546.054, 369.288, 109.076, 0.882566)
pt3dadd(544.215, 368.341, 109.172, 0.882566)
pt3dadd(542.373, 367.394, 109.268, 1.19879)
pt3dadd(540.672, 366.219, 109.423, 1.26895)
pt3dadd(538.784, 365.388, 109.803, 1.27982)
pt3dadd(537.062, 364.255, 110.293, 1.27982)
pt3dadd(535.339, 363.123, 110.782, 0.830476)
pt3dadd(534.126, 361.463, 111.33, 0.830476)
pt3dadd(532.909, 359.803, 111.879, 1.29042)
pt3dadd(531.75, 358.107, 112.509, 1.40613)
pt3dadd(530.371, 356.564, 112.52, 1.24464)
pt3dadd(529.055, 354.969, 112.779, 1.27409)
pt3dadd(527.738, 353.372, 112.676, 1.25568)
pt3dadd(526.426, 351.777, 112.409, 1.09712)
pt3dadd(525.064, 350.222, 112.077, 1.12358)
pt3dadd(523.486, 348.885, 111.995, 1.20001)
pt3dadd(521.955, 347.493, 111.84, 1.30957)
pt3dadd(520.576, 345.957, 111.514, 1.42563)
pt3dadd(519.247, 344.386, 110.965, 1.42563)
pt3dadd(517.968, 342.773, 110.417, 1.08451)
pt3dadd(516.85, 341.038, 110.049, 1.19172)
pt3dadd(515.476, 339.489, 110.167, 1.3199)
pt3dadd(513.865, 338.19, 110.029, 1.3199)
pt3dadd(512.255, 336.891, 109.891, 1.3199)
pt3dadd(510.421, 335.937, 109.753, 1.31208)
pt3dadd(508.52, 335.15, 109.144, 0.941188)
pt3dadd(506.765, 334.06, 108.971, 1.22311)
pt3dadd(505.072, 332.881, 108.548, 1.28783)
pt3dadd(503.635, 331.414, 107.888, 1.33538)
pt3dadd(502.327, 329.812, 108.096, 1.27967)
pt3dadd(501.346, 327.989, 108.1, 1.11853)
pt3dadd(500.675, 326.069, 109.021, 1.21913)
pt3dadd(500.331, 324.043, 109.629, 1.28567)
pt3dadd(500.58, 321.988, 109.682, 1.28567)
pt3dadd(500.828, 319.933, 109.734, 1.71112)
pt3dadd(500.915, 317.886, 110.444, 1.25332)
pt3dadd(501.114, 315.834, 110.865, 1.25332)
pt3dadd(501.313, 313.781, 111.285, 1.36825)
pt3dadd(501.366, 311.713, 111.519, 0.989724)
pt3dadd(501.391, 309.653, 111.05, 1.0875)
pt3dadd(501.437, 307.59, 110.648, 1.24835)
pt3dadd(501.623, 305.53, 110.421, 1.4604)
pt3dadd(501.193, 303.505, 110.407, 1.4604)
pt3dadd(500.766, 301.48, 110.393, 2.22836)
pt3dadd(499.259, 298.767, 110.636, 2.2779)
pt3dadd(497.703, 296.081, 110.789, 1.32641)
pt3dadd(496.568, 294.349, 110.776, 1.32641)
pt3dadd(495.434, 292.617, 110.763, 1.02708)
pt3dadd(494.192, 290.965, 110.584, 1.36868)
pt3dadd(492.933, 289.345, 109.922, 1.10712)
pt3dadd(491.712, 287.693, 109.298, 1.24104)
pt3dadd(490.669, 285.913, 108.875, 1.33499)
pt3dadd(489.853, 284.028, 108.256, 1.35753)
pt3dadd(489.269, 282.043, 108.416, 1.01371)
pt3dadd(488.706, 280.068, 107.795, 1.15576)
pt3dadd(488.102, 278.099, 107.301, 1.21819)
pt3dadd(487.257, 276.214, 106.941, 1.16453)
pt3dadd(485.605, 274.967, 106.809, 1.16453)
pt3dadd(483.958, 273.719, 106.677, 1.18238)
pt3dadd(482.186, 272.685, 106.015, 1.60952)
pt3dadd(480.261, 272.021, 105.092, 1.58373)
pt3dadd(478.245, 271.751, 104.195, 1.29912)
pt3dadd(476.241, 272.133, 103.319, 1.25151)
pt3dadd(474.183, 272.119, 102.785, 0.863314)
pt3dadd(472.126, 271.915, 102.513, 1.20453)
pt3dadd(470.068, 272.147, 102.418, 1.28854)
pt3dadd(468.031, 272.465, 101.967, 1.37961)
pt3dadd(466.032, 272.997, 101.863, 1.37634)
pt3dadd(464.206, 273.967, 101.982, 0.868778)
pt3dadd(462.492, 275.131, 102.099, 0.868778)
pt3dadd(460.782, 276.294, 102.216, 1.12685)
pt3dadd(459.076, 277.455, 102.662, 1.12685)
pt3dadd(457.375, 278.616, 103.108, 1.20067)
pt3dadd(455.479, 279.439, 103.415, 1.20067)
pt3dadd(453.583, 280.263, 103.723, 1.28266)
pt3dadd(451.881, 281.418, 104.25, 1.53934)
pt3dadd(450.581, 283.031, 104.215, 1.53934)
pt3dadd(449.285, 284.643, 104.181, 1.14568)
pt3dadd(446.731, 287.9, 103.819, 1.14568)
}
apic[72] {pt3dclear()
pt3dadd(657.788, 655.846, 74.5055, 1.43926)
pt3dadd(657.411, 653.81, 74.4985, 1.28948)
pt3dadd(656.997, 651.785, 74.2949, 1.34466)
pt3dadd(656.803, 649.732, 73.7965, 1.06786)
pt3dadd(656.724, 647.678, 73.2109, 1.09302)
pt3dadd(656.894, 645.641, 72.4387, 1.39149)
pt3dadd(657.192, 643.6, 71.9586, 1.12996)
pt3dadd(657.324, 641.534, 72.0021, 1.26889)
pt3dadd(657.391, 639.469, 71.7413, 1.26889)
pt3dadd(657.457, 637.403, 71.4806, 1.29073)
pt3dadd(657.395, 635.345, 71.0302, 1.29073)
pt3dadd(657.333, 633.283, 70.5797, 1.29329)
pt3dadd(657.531, 631.234, 70.0172, 1.29329)
pt3dadd(657.726, 629.189, 69.4546, 1.29506)
pt3dadd(657.598, 627.135, 68.9183, 1.27563)
pt3dadd(657.271, 625.09, 69.0427, 1.40902)
pt3dadd(657.349, 623.029, 68.6754, 1.38639)
pt3dadd(657.56, 620.983, 68.1093, 1.36677)
pt3dadd(657.776, 618.922, 68.1768, 1.01096)
pt3dadd(657.834, 616.864, 67.658, 1.35388)
pt3dadd(657.734, 614.798, 67.6831, 1.11138)
pt3dadd(657.552, 612.737, 67.7083, 1.21401)
pt3dadd(657.751, 610.675, 67.7254, 1.30271)
pt3dadd(657.589, 608.626, 67.1579, 1.20457)
pt3dadd(656.964, 606.651, 67.2771, 1.25953)
pt3dadd(656.708, 604.601, 67.0502, 1.29986)
pt3dadd(656.327, 602.565, 67.0687, 1.36924)
pt3dadd(655.822, 600.561, 67.2628, 1.36924)
pt3dadd(655.316, 598.553, 67.4568, 1.36924)
pt3dadd(654.811, 596.549, 67.6509, 0.949508)
pt3dadd(654.352, 594.533, 67.335, 1.31228)
pt3dadd(653.863, 592.525, 67.6421, 0.933768)
pt3dadd(653.449, 590.501, 67.6098, 1.05594)
pt3dadd(653.089, 588.46, 67.5943, 1.3443)
pt3dadd(652.609, 586.448, 67.5108, 1.3443)
pt3dadd(652.129, 584.431, 67.4272, 1.08126)
pt3dadd(651.926, 582.374, 67.2225, 1.29754)
pt3dadd(651.657, 580.325, 66.9717, 1.30135)
pt3dadd(651.189, 578.308, 67.1365, 1.25176)
pt3dadd(650.688, 576.321, 66.461, 1.2771)
pt3dadd(650.038, 574.367, 66.0116, 1.26545)
pt3dadd(649.504, 572.372, 65.6582, 1.30338)
pt3dadd(648.837, 570.409, 65.6021, 1.30338)
pt3dadd(648.171, 568.451, 65.5461, 1.04229)
pt3dadd(647.446, 566.509, 65.5686, 1.04229)
pt3dadd(646.726, 564.572, 65.5911, 1.14581)
pt3dadd(646.122, 562.593, 65.4885, 1.20291)
pt3dadd(645.418, 560.668, 64.7754, 1.25313)
pt3dadd(644.867, 558.672, 64.9415, 1.35266)
pt3dadd(644.693, 556.611, 64.9994, 1.29575)
pt3dadd(644.441, 554.557, 65.1196, 1.45293)
pt3dadd(643.849, 552.574, 65.2398, 1.52257)
pt3dadd(643.625, 550.521, 65.0024, 1.42893)
pt3dadd(643.389, 548.467, 65.3619, 1.0905)
pt3dadd(643.199, 546.405, 65.4712, 1.14001)
pt3dadd(642.934, 544.356, 65.4494, 1.07002)
pt3dadd(642.474, 542.336, 65.6227, 1.07002)
pt3dadd(642.019, 540.32, 65.796, 1.25709)
pt3dadd(641.721, 538.275, 66.0315, 1.25337)
pt3dadd(641.377, 536.238, 65.6371, 1.1819)
}
}
proc shape3d_34() {
apic[72] { pt3dadd(640.984, 534.213, 66.0582, 1.0958)
pt3dadd(640.74, 532.164, 65.7125, 1.1379)
pt3dadd(640.541, 530.11, 66.2026, 1.16857)
pt3dadd(640.363, 528.049, 66.3407, 1.19654)
pt3dadd(640.152, 525.991, 66.3092, 1.16786)
pt3dadd(639.878, 523.946, 65.9431, 0.900532)
pt3dadd(639.307, 521.955, 66.0713, 1.26319)
pt3dadd(638.694, 519.98, 66.266, 1.37933)
pt3dadd(637.974, 518.042, 66.4333, 1.4625)
pt3dadd(637.618, 516.01, 66.903, 1.23899)
pt3dadd(637.332, 513.964, 66.6321, 1.26607)
pt3dadd(636.98, 511.923, 66.7104, 1.26065)
pt3dadd(636.442, 509.936, 67.2165, 0.928172)
pt3dadd(636.442, 507.866, 67.1391, 1.25866)
pt3dadd(636.521, 505.8, 67.0617, 1.25866)
pt3dadd(636.6, 503.73, 66.9843, 1.25866)
pt3dadd(636.678, 501.664, 66.9069, 1.31745)
pt3dadd(636.707, 499.595, 67.1937, 1.02259)
pt3dadd(636.521, 497.545, 67.7443, 1.02259)
pt3dadd(636.335, 495.5, 68.2949, 1.33201)
pt3dadd(636.024, 493.451, 68.3805, 1.29689)
pt3dadd(635.805, 491.393, 68.4569, 1.30157)
pt3dadd(635.738, 489.327, 68.6277, 1.29665)
pt3dadd(635.767, 487.257, 68.8507, 1.1251)
}
apic[73] {pt3dclear()
pt3dadd(635.767, 487.257, 68.8507, 1.1251)
pt3dadd(636.409, 484.831, 68.5408, 1.09291)
pt3dadd(637.038, 482.869, 68.1165, 1.09291)
pt3dadd(637.399, 480.832, 68.3102, 1.00348)
pt3dadd(637.651, 478.779, 68.1486, 1.58049)
pt3dadd(637.597, 476.713, 67.9616, 1.44913)
pt3dadd(637.531, 474.643, 67.9448, 1.45178)
pt3dadd(637.655, 472.61, 67.0459, 1.4107)
pt3dadd(637.697, 470.569, 66.2079, 1.09075)
pt3dadd(637.672, 468.516, 65.5974, 1.34351)
pt3dadd(637.933, 466.466, 65.3384, 1.41335)
pt3dadd(638.38, 464.491, 64.2597, 1.41335)
pt3dadd(638.827, 462.521, 63.1811, 1.20284)
}
apic[74] {pt3dclear()
pt3dadd(638.827, 462.521, 63.1811, 1.20284)
pt3dadd(638.512, 461.138, 63.8124, 1.59803)
pt3dadd(638.218, 459.093, 63.5544, 1.59803)
pt3dadd(638.28, 457.023, 63.6805, 1.50896)
pt3dadd(638.28, 454.961, 64.107, 1.242)
pt3dadd(638.28, 452.899, 64.5335, 1.39024)
pt3dadd(638.371, 450.842, 65.0404, 1.49153)
pt3dadd(638.831, 448.826, 65.3329, 1.26235)
pt3dadd(639.613, 446.925, 65.9316, 1.39094)
pt3dadd(640.073, 444.913, 66.251, 1.39094)
pt3dadd(640.533, 442.897, 66.5705, 1.27589)
pt3dadd(641.004, 440.885, 66.8661, 1.55492)
pt3dadd(641.356, 438.848, 66.8345, 1.34651)
pt3dadd(641.385, 436.791, 66.3092, 1.33725)
pt3dadd(641.054, 434.746, 66.2801, 1.33725)
pt3dadd(640.723, 432.7, 66.2511, 1.33725)
pt3dadd(640.392, 430.659, 66.2221, 1.38194)
pt3dadd(640.127, 428.606, 66.4029, 1.36911)
pt3dadd(640.011, 426.548, 66.8391, 1.43591)
pt3dadd(639.866, 424.495, 66.3159, 1.06823)
pt3dadd(639.655, 422.441, 66.0038, 1.16541)
pt3dadd(639.808, 420.376, 65.9433, 1.15657)
pt3dadd(640.027, 418.335, 65.27, 1.23961)
pt3dadd(639.94, 416.269, 65.1636, 1.28063)
pt3dadd(640.214, 414.232, 64.5909, 1.39369)
pt3dadd(640.752, 412.231, 64.6347, 1.49179)
pt3dadd(641.303, 410.262, 63.8531, 1.26091)
pt3dadd(641.576, 408.215, 63.4986, 1.26936)
pt3dadd(641.435, 406.155, 63.1441, 1.26936)
pt3dadd(641.294, 404.095, 62.7896, 1.18392)
pt3dadd(640.839, 402.09, 62.2116, 1.2439)
pt3dadd(640.768, 400.028, 61.8265, 1.2439)
pt3dadd(640.702, 397.965, 61.4413, 1.23982)
pt3dadd(640.893, 395.907, 61.1785, 1.07392)
pt3dadd(640.628, 393.854, 61.0518, 1.45898)
pt3dadd(640.143, 391.842, 60.9262, 1.45898)
pt3dadd(639.659, 389.831, 60.8005, 1.41687)
pt3dadd(639.249, 387.802, 60.7434, 1.41687)
pt3dadd(638.835, 385.773, 60.6864, 1.41687)
pt3dadd(638.425, 383.745, 60.6293, 1.55888)
pt3dadd(638.926, 381.751, 60.0515, 1.68235)
pt3dadd(639.137, 379.711, 59.3685, 1.38409)
pt3dadd(639.518, 377.679, 59.0965, 0.90132)
pt3dadd(639.895, 375.644, 59.0817, 0.93275)
pt3dadd(640.027, 373.58, 58.8872, 1.02582)
pt3dadd(640.524, 371.571, 58.8751, 1.33643)
pt3dadd(640.735, 369.512, 58.89, 0.875104)
pt3dadd(640.843, 367.445, 58.7674, 1.11695)
pt3dadd(641.216, 365.412, 58.4625, 1.11695)
pt3dadd(641.584, 363.38, 58.1576, 1.11695)
pt3dadd(641.957, 361.347, 57.8528, 1.12377)
pt3dadd(642.603, 359.22, 57.2962, 1.12377)
pt3dadd(643.791, 358.21, 57.3726, 1.50323)
pt3dadd(645.178, 356.679, 57.032, 1.50323)
pt3dadd(646.233, 354.902, 57.1545, 1.10348)
pt3dadd(647.177, 353.059, 57.2766, 1.41922)
pt3dadd(648.121, 351.217, 57.3987, 1.41922)
pt3dadd(649.131, 349.422, 56.917, 1.4303)
pt3dadd(649.922, 347.512, 56.6527, 1.43773)
pt3dadd(651.003, 345.77, 55.9671, 1.32201)
pt3dadd(651.905, 343.908, 55.8325, 1.02428)
pt3dadd(652.812, 342.047, 55.6978, 1.02428)
pt3dadd(653.776, 340.235, 55.0497, 1.54981)
pt3dadd(654.501, 338.3, 54.771, 1.242)
pt3dadd(654.985, 336.327, 53.8101, 1.35939)
pt3dadd(655.474, 334.355, 52.8492, 0.978364)
pt3dadd(656.451, 332.547, 52.2787, 1.25392)
pt3dadd(657.523, 330.785, 51.8103, 1.44757)
pt3dadd(658.384, 328.912, 51.3921, 1.42462)
pt3dadd(659.233, 327.029, 51.7656, 1.32907)
pt3dadd(660.227, 325.217, 52.0445, 1.27654)
pt3dadd(661.39, 323.507, 51.9426, 1.38842)
pt3dadd(662.305, 321.661, 52.4186, 1.38221)
pt3dadd(663.203, 319.797, 52.2585, 1.35227)
pt3dadd(663.584, 319.062, 52.3341, 1.35227)
pt3dadd(665.112, 316.753, 51.8883, 1.15354)
pt3dadd(666.358, 312.806, 51.7697, 1.15354)
pt3dadd(667.277, 310.951, 51.7724, 1.27293)
pt3dadd(668.196, 309.096, 51.7751, 1.27293)
pt3dadd(669.082, 307.27, 50.7942, 1.23455)
pt3dadd(669.194, 305.295, 49.3203, 1.55817)
pt3dadd(667.865, 304.534, 45.9607, 1.18507)
pt3dadd(666.933, 304.128, 43.9039, 1.18507)
}
apic[75] {pt3dclear()
pt3dadd(638.827, 462.521, 63.1811, 1.20284)
pt3dadd(639.58, 460.861, 60.8264, 1.25341)
pt3dadd(640.019, 459.192, 58.0651, 1.00817)
pt3dadd(640.239, 457.259, 56.336, 1.00817)
pt3dadd(640.458, 455.33, 54.6069, 1.15902)
pt3dadd(640.702, 453.376, 53.0643, 1.25858)
pt3dadd(641.414, 451.496, 51.8621, 1.29272)
pt3dadd(642.482, 449.782, 50.7942, 0.951844)
pt3dadd(643.137, 447.828, 50.2859, 0.951844)
pt3dadd(643.791, 445.874, 49.7776, 1.01379)
pt3dadd(644.544, 443.953, 49.5052, 1.01379)
pt3dadd(645.302, 442.028, 49.2328, 1.01379)
pt3dadd(646.055, 440.103, 48.9604, 1.01379)
pt3dadd(646.813, 438.178, 48.688, 1.01379)
pt3dadd(647.566, 436.257, 48.4156, 1.01379)
pt3dadd(648.324, 434.332, 48.1432, 1.17227)
pt3dadd(648.999, 432.382, 47.8113, 1.35762)
pt3dadd(649.036, 430.312, 47.6707, 0.905658)
pt3dadd(649.082, 428.262, 46.9585, 1.16381)
pt3dadd(649.177, 426.213, 46.3386, 1.05935)
pt3dadd(649.268, 424.147, 45.9996, 1.05935)
pt3dadd(649.363, 422.085, 45.6606, 1.37308)
pt3dadd(649.409, 420.053, 44.7164, 1.16214)
pt3dadd(649.011, 417.631, 43.7688, 1.16214)
}
apic[76] {pt3dclear()
pt3dadd(635.767, 487.257, 68.8507, 1.1251)
pt3dadd(635.602, 485.258, 70.0837, 1.1251)
pt3dadd(635.436, 483.258, 71.3167, 1.13626)
pt3dadd(635.523, 481.263, 72.6055, 1.13626)
pt3dadd(635.614, 479.263, 73.8943, 1.13626)
pt3dadd(635.701, 477.267, 75.1831, 1.20005)
pt3dadd(636.219, 475.289, 75.9739, 1.25818)
pt3dadd(636.558, 473.268, 76.6818, 1.29526)
pt3dadd(636.624, 471.198, 76.676, 1.00876)
pt3dadd(636.985, 469.207, 77.7014, 1.12104)
pt3dadd(637.647, 467.257, 78.2751, 1.31819)
pt3dadd(638.16, 465.257, 78.6534, 1.16211)
pt3dadd(638.309, 463.212, 79.3027, 1.21872)
pt3dadd(638.835, 461.217, 79.6259, 1.21872)
pt3dadd(639.361, 459.217, 79.9491, 1.27971)
pt3dadd(639.903, 457.292, 81.2214, 1.30692)
pt3dadd(639.68, 455.239, 81.6622, 1.31718)
pt3dadd(639.257, 453.243, 82.5006, 1.31518)
pt3dadd(638.827, 451.223, 82.7029, 1.16101)
pt3dadd(638.384, 449.252, 83.7946, 1.4174)
pt3dadd(638.189, 447.248, 84.9729, 1.08288)
pt3dadd(637.928, 445.228, 85.8616, 1.07075)
pt3dadd(637.759, 443.179, 86.4287, 1.07075)
pt3dadd(637.593, 441.129, 86.9958, 1.1576)
pt3dadd(637.469, 439.088, 87.789, 1.1762)
pt3dadd(637.411, 437.052, 88.6501, 1.1762)
pt3dadd(637.353, 435.01, 89.5112, 1.1762)
pt3dadd(637.299, 432.974, 90.3724, 1.25026)
pt3dadd(637.514, 430.916, 90.5636, 1.25026)
pt3dadd(637.734, 428.858, 90.7548, 1.30386)
pt3dadd(637.552, 426.805, 91.1608, 1.35366)
pt3dadd(637.779, 424.756, 91.5831, 1.16197)
pt3dadd(637.717, 422.698, 92.1817, 1.16197)
pt3dadd(637.655, 420.645, 92.7803, 1.14074)
pt3dadd(637.593, 418.583, 93.2076, 1.24224)
pt3dadd(637.651, 416.517, 93.3386, 1.24224)
pt3dadd(637.709, 414.447, 93.4696, 1.21785)
pt3dadd(637.531, 412.39, 93.8129, 1.21664)
pt3dadd(637.39, 410.326, 93.9995, 1.27506)
pt3dadd(637.502, 408.272, 93.433, 1.21791)
pt3dadd(637.68, 406.215, 93.068, 1.28756)
pt3dadd(637.693, 404.155, 93.5721, 0.908598)
pt3dadd(637.585, 402.089, 93.7244, 0.908598)
pt3dadd(637.477, 400.023, 93.8767, 0.908598)
pt3dadd(637.374, 397.957, 94.0291, 1.00074)
pt3dadd(636.906, 395.94, 93.9241, 1.00074)
pt3dadd(636.438, 393.925, 93.8192, 1.0944)
pt3dadd(635.701, 392.001, 94.32, 1.25843)
pt3dadd(635.184, 390.006, 94.7844, 1.25843)
pt3dadd(634.662, 388.012, 95.2487, 1.19008)
pt3dadd(634.066, 386.033, 95.5248, 1.24195)
pt3dadd(633.859, 383.973, 95.5868, 1.2634)
pt3dadd(633.722, 381.91, 95.8246, 1.42795)
pt3dadd(633.47, 379.888, 96.7044, 1.41692)
pt3dadd(633.213, 377.835, 96.5895, 1.02875)
pt3dadd(632.749, 375.818, 96.6446, 1.02875)
}
}
proc shape3d_35() {
apic[76] { pt3dadd(632.286, 373.8, 96.6997, 1.18741)
pt3dadd(632.103, 371.741, 96.4859, 1.23547)
pt3dadd(631.855, 369.689, 96.1777, 1.23547)
pt3dadd(631.607, 367.638, 95.8695, 1.23547)
pt3dadd(631.358, 365.587, 95.5613, 1.23042)
pt3dadd(631.11, 363.537, 95.8924, 1.23233)
pt3dadd(630.878, 361.48, 96.0478, 1.2577)
pt3dadd(631.056, 359.418, 96.1022, 1.30811)
pt3dadd(631.147, 357.355, 95.7614, 0.915396)
pt3dadd(630.961, 355.294, 95.7365, 0.99485)
pt3dadd(630.928, 353.224, 95.7521, 0.99485)
pt3dadd(630.895, 351.154, 95.7677, 0.99485)
pt3dadd(630.861, 349.084, 95.7833, 0.99485)
pt3dadd(630.828, 347.014, 95.799, 1.18226)
pt3dadd(630.476, 344.978, 96.0749, 0.925082)
pt3dadd(630.563, 342.911, 96.2373, 1.35747)
pt3dadd(630.555, 340.842, 96.4054, 0.974772)
pt3dadd(630.232, 338.801, 96.6849, 0.974772)
pt3dadd(629.913, 336.759, 96.9644, 1.08244)
pt3dadd(629.706, 334.7, 96.9937, 1.08417)
pt3dadd(629.748, 332.631, 96.8146, 0.997194)
pt3dadd(629.578, 330.57, 97.0232, 0.997194)
pt3dadd(629.404, 328.509, 97.2317, 1.30011)
}
apic[77] {pt3dclear()
pt3dadd(629.404, 328.509, 97.2317, 1.30011)
pt3dadd(629.599, 327.796, 97.4566, 1.22905)
pt3dadd(629.669, 326.772, 97.7794, 1.20735)
pt3dadd(631.193, 325.406, 98.5197, 1.62447)
pt3dadd(632.807, 324.139, 99.1466, 1.30962)
pt3dadd(634.281, 322.808, 100.571, 1.20544)
pt3dadd(635.627, 321.275, 101.399, 1.92176)
pt3dadd(636.587, 319.44, 101.479, 1.08908)
pt3dadd(637.399, 317.54, 101.207, 1.08908)
pt3dadd(638.21, 315.639, 100.935, 1.16612)
pt3dadd(639.241, 313.844, 101.076, 1.54492)
pt3dadd(640.363, 312.107, 101.283, 1.15195)
pt3dadd(641.526, 310.399, 101.592, 1.19256)
pt3dadd(642.797, 308.799, 102.393, 1.1965)
pt3dadd(644.027, 307.137, 102.655, 1.1965)
pt3dadd(645.256, 305.475, 102.916, 1.21921)
pt3dadd(646.275, 303.686, 103.405, 1.25265)
pt3dadd(647.405, 301.98, 104.153, 1.26099)
pt3dadd(648.796, 300.528, 105.347, 1.29144)
pt3dadd(650.071, 298.929, 106.106, 1.42514)
pt3dadd(651.181, 297.292, 107.601, 1.15968)
pt3dadd(652.046, 295.442, 108.413, 1.15968)
pt3dadd(652.911, 293.592, 109.225, 1.17316)
pt3dadd(653.834, 291.779, 110.144, 1.25696)
pt3dadd(655.076, 290.143, 110.753, 1.25696)
pt3dadd(656.153, 288.432, 111.823, 1.34206)
pt3dadd(657.54, 286.933, 112.649, 1.49131)
pt3dadd(658.844, 285.364, 113.502, 1.61338)
pt3dadd(659.485, 283.526, 115.199, 1.1495)
pt3dadd(659.995, 281.717, 117.294, 1.22397)
pt3dadd(660.438, 279.864, 119.252, 1.0303)
pt3dadd(660.93, 277.9, 120.283, 1.31454)
pt3dadd(661.655, 275.996, 121.176, 1.31454)
pt3dadd(662.379, 274.092, 122.068, 1.31454)
pt3dadd(663.464, 272.373, 123.008, 1.31454)
pt3dadd(664.549, 270.654, 123.948, 1.31454)
pt3dadd(665.633, 268.935, 124.888, 1.26162)
pt3dadd(666.532, 267.142, 126.145, 1.4351)
pt3dadd(666.958, 265.169, 127.251, 1.08687)
pt3dadd(666.759, 263.131, 127.974, 1.39467)
pt3dadd(666.217, 261.171, 128.912, 1.41514)
pt3dadd(665.315, 259.323, 129.474, 1.5745)
pt3dadd(663.799, 257.925, 129.882, 1.1269)
pt3dadd(662.516, 256.313, 130.364, 1.14516)
pt3dadd(661.448, 254.552, 130.892, 1.14516)
pt3dadd(660.38, 252.792, 131.421, 1.46106)
pt3dadd(659.241, 251.09, 132.123, 1.29313)
pt3dadd(658.388, 249.226, 132.839, 1.29313)
pt3dadd(657.54, 247.363, 133.555, 1.36427)
pt3dadd(657.039, 245.404, 134.632, 1.43327)
pt3dadd(656.902, 243.365, 135.421, 1.31851)
pt3dadd(657.602, 241.48, 136.615, 1.29372)
pt3dadd(658.517, 239.664, 137.538, 1.1268)
pt3dadd(659.316, 237.845, 138.947, 1.40712)
pt3dadd(660.057, 235.947, 139.825, 1.43034)
pt3dadd(660.599, 234.02, 141.094, 1.50282)
pt3dadd(661.299, 232.078, 141.478, 1.3163)
pt3dadd(661.974, 230.194, 142.759, 1.31553)
pt3dadd(662.392, 228.234, 144.005, 1.44788)
pt3dadd(662.218, 226.241, 145.293, 1.64208)
pt3dadd(662.044, 224.222, 146.304, 1.73809)
pt3dadd(661.845, 222.162, 146.426, 1.16515)
pt3dadd(661.539, 220.136, 147.147, 1.60528)
pt3dadd(661.56, 218.097, 148.006, 1.26871)
pt3dadd(662.044, 216.089, 148.328, 1.66745)
pt3dadd(662.532, 214.078, 148.439, 1.71997)
pt3dadd(662.93, 212.05, 148.75, 1.61978)
pt3dadd(663.692, 210.145, 149.424, 1.62939)
pt3dadd(664.685, 208.352, 150.098, 1.62939)
pt3dadd(665.683, 206.558, 150.773, 1.62939)
pt3dadd(666.677, 204.765, 151.447, 1.24275)
pt3dadd(668.109, 203.301, 152.177, 1.43947)
pt3dadd(669.103, 201.535, 153.208, 1.5728)
pt3dadd(669.906, 199.704, 154.508, 1.50831)
}
apic[78] {pt3dclear()
pt3dadd(629.404, 328.509, 97.2317, 1.30011)
pt3dadd(629.396, 326.443, 96.9263, 0.800274)
pt3dadd(629.114, 324.393, 96.8683, 1.08366)
pt3dadd(628.899, 322.333, 96.852, 1.22494)
pt3dadd(628.609, 320.286, 97.0534, 1.2178)
pt3dadd(628.307, 318.238, 97.0593, 1.10088)
pt3dadd(627.877, 316.213, 96.9822, 1.22879)
pt3dadd(627.756, 314.156, 96.5158, 1.28917)
pt3dadd(627.591, 312.102, 96.9924, 0.923436)
pt3dadd(627.251, 310.06, 96.9075, 1.215)
pt3dadd(626.995, 308.01, 97.2034, 1.09153)
pt3dadd(626.498, 306.008, 97.6312, 1.09153)
pt3dadd(626.005, 304.005, 98.059, 1.17376)
pt3dadd(625.405, 302.028, 97.804, 1.18831)
pt3dadd(624.896, 300.022, 97.8923, 1.30417)
pt3dadd(624.511, 298.014, 98.6862, 1.11813)
pt3dadd(624.42, 295.947, 98.8602, 1.12466)
pt3dadd(624.088, 293.905, 98.7908, 1.19848)
pt3dadd(624.134, 291.839, 98.4953, 1.2244)
pt3dadd(624.424, 289.791, 98.7371, 1.2244)
pt3dadd(624.709, 287.744, 98.979, 1.2244)
pt3dadd(624.999, 285.696, 99.2209, 0.880404)
pt3dadd(625.099, 283.638, 99.6754, 0.880404)
pt3dadd(625.194, 281.578, 100.13, 1.12082)
pt3dadd(625.492, 279.538, 100.564, 1.12082)
pt3dadd(625.79, 277.497, 100.997, 1.13246)
pt3dadd(626.134, 275.459, 101.266, 1.13246)
pt3dadd(626.473, 273.42, 101.534, 1.32829)
pt3dadd(626.953, 271.407, 101.584, 1.02193)
pt3dadd(627.247, 269.358, 101.631, 1.3409)
pt3dadd(627.285, 267.288, 101.757, 1.29979)
pt3dadd(627.355, 265.223, 102.029, 1.42819)
pt3dadd(627.289, 263.154, 101.922, 1.18124)
pt3dadd(626.572, 261.215, 102.168, 1.28549)
pt3dadd(625.521, 259.438, 102.514, 1.35982)
pt3dadd(624.022, 258.013, 102.226, 1.48979)
pt3dadd(622.304, 256.864, 102.1, 0.9937)
pt3dadd(620.433, 255.978, 101.883, 1.09746)
pt3dadd(618.723, 254.814, 102.113, 1.31597)
pt3dadd(616.964, 253.732, 101.868, 0.94801)
pt3dadd(615.043, 252.956, 101.887, 1.03921)
pt3dadd(613.097, 252.254, 102.004, 1.52662)
pt3dadd(612.55, 250.304, 103.034, 1.55936)
pt3dadd(611.631, 248.478, 103.828, 1.25488)
pt3dadd(610.339, 246.861, 103.9, 1.00789)
pt3dadd(609.056, 245.237, 103.972, 1.31334)
pt3dadd(607.872, 243.548, 104.45, 1.26649)
pt3dadd(606.758, 241.832, 105.195, 1.37597)
pt3dadd(605.843, 239.976, 105.263, 0.899498)
pt3dadd(604.821, 238.178, 105.032, 1.23062)
pt3dadd(603.711, 236.447, 104.469, 1.23062)
pt3dadd(602.602, 234.715, 103.906, 1.94045)
pt3dadd(602.374, 232.741, 102.502, 1.33739)
pt3dadd(602.498, 230.762, 101.065, 1.72442)
pt3dadd(602.122, 228.75, 100.306, 1.40565)
pt3dadd(602.304, 226.711, 99.5709, 1.40565)
pt3dadd(602.482, 224.671, 98.8358, 1.95152)
pt3dadd(602.175, 222.706, 97.4602, 1.55668)
pt3dadd(601.571, 220.769, 96.4524, 1.6333)
pt3dadd(600.842, 218.888, 95.3463, 1.32978)
pt3dadd(599.849, 217.194, 93.7602, 1.61422)
pt3dadd(599.377, 215.215, 92.8369, 1.43251)
pt3dadd(598.615, 213.306, 92.2406, 1.63022)
pt3dadd(597.572, 211.535, 91.6443, 1.44627)
pt3dadd(596.152, 208.938, 90.7857, 1.44627)
pt3dadd(596.487, 207.071, 89.7382, 1.29784)
pt3dadd(596.425, 205.02, 89.066, 1.29784)
pt3dadd(596.189, 203.033, 87.7939, 1.28604)
pt3dadd(596.23, 200.99, 86.9945, 1.22882)
pt3dadd(594.761, 199.595, 85.9367, 1.03211)
pt3dadd(593.237, 198.318, 84.5611, 1.46466)
}
apic[79] {pt3dclear()
pt3dadd(593.237, 198.318, 84.5611, 1.46466)
pt3dadd(593.767, 197.278, 84.2757, 1.87239)
pt3dadd(593.887, 195.242, 83.4177, 1.87239)
pt3dadd(594.492, 193.276, 82.8435, 1.43959)
pt3dadd(595.746, 191.766, 81.2543, 1.60336)
pt3dadd(596.822, 190.177, 79.3897, 1.70754)
pt3dadd(597.982, 189.016, 77.2514, 1.53361)
}
apic[80] {pt3dclear()
pt3dadd(593.237, 198.318, 84.5611, 1.46466)
pt3dadd(592.591, 197.414, 83.766, 1.37876)
}
}
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()
}
objref all, somatic, basal, apical, subdomain,as, all_no_axon,children_of_soma, children_of_dcaap_sec, all_no_somaaxon72
proc subsets() { local ward
all = new SectionList()
basal = new SectionList()
somatic = new SectionList()
apical = new SectionList()
subdomain = new SectionList()
as = new SectionList()
all_no_axon = new SectionList()
children_of_soma = new SectionList()
children_of_dcaap_sec = new SectionList()
all_no_somaaxon72 = new SectionList()
soma as.append()
axon as.append()
soma somatic.append()
forsec "dend" basal.append()
forsec "apic" apical.append()
forall all.append()
forall all_no_axon.append()
axon all_no_axon.remove()
apic[60] subdomain.subtree()
//apic[47] subdomain.subtree()
apic[60] subdomain.remove()
forall all_no_somaaxon72.append()
axon all_no_somaaxon72.remove()
soma all_no_somaaxon72.remove()
apic[72] all_no_somaaxon72.remove()
}
proc geom() {
//---------------------------------------
// IMPLEMENTATION OF SCALLING FACTOR
// had to scale the morphology - diameter and lengths of the branches
// because there is 20% shrinking from the imaging software (this is consistent
// in all the morphologies.
forall L = L * 1.25
forall for i=0, n3d()-1 pt3dchange(i, diam3d(i) * 1.25) //1.25
define_shape()
//---------------------------------------
axon.L = 1000
axon.diam = 1
}
proc geom_nseg(){
//segment every 30 μm
// must be reassesd after adding membrane mechanisms
// and changing the electrical properties of the cell
forall nseg = 1 + 2*int(L/60)
}
access soma
celldef()
create scalebar
scalebar{
pt3dadd(661.79-500, 879.829, 88.0109, 19.5925)
pt3dadd(661.79-500, 879.829 - 200, 88.0109, 19.5925)
}
// objref shape
// shape = new Shape()
// shape.rotate(1, 0, 0, 3.14159265, 0, 0)
// shape.exec_menu("View = plot")
// load_file("$(NEURONHOME)/lib/hoc/_classlib/TString.hoc")
// load_file("$(NEURONHOME)/lib/hoc/_classlib/TPointList.hoc")
// load_file("$(NEURONHOME)/lib/hoc/_classlib/plgen.hoc")
// plgen()
objref s
s = new Shape()