load_file("subiter.hoc")
load_file("stdrun.hoc")
proc celldef() {
topol()
subsets()
geom()
biophys()
geom_nseg()
}
create soma, axon, dend[88]
proc topol() { local i
connect axon(0), soma(0.5)
connect dend(0), soma(0.5)
for i = 1, 2 connect dend[i](0), dend[i-1](1)
connect dend[3](0), dend[1](1)
connect dend[4](0), dend(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)
connect dend[12](0), soma(0.5)
for i = 13, 15 connect dend[i](0), dend[i-1](1)
connect dend[16](0), dend[14](1)
connect dend[17](0), dend[13](1)
for i = 18, 19 connect dend[i](0), dend[i-1](1)
connect dend[20](0), dend[18](1)
connect dend[21](0), dend[17](1)
for i = 22, 23 connect dend[i](0), dend[i-1](1)
connect dend[24](0), dend[22](1)
for i = 25, 26 connect dend[i](0), dend[24](1)
connect dend[27](0), dend[21](1)
connect dend[28](0), dend[12](1)
for i = 29, 31 connect dend[i](0), dend[i-1](1)
connect dend[32](0), dend[30](1)
connect dend[33](0), dend[29](1)
connect dend[34](0), dend[28](1)
for i = 35, 37 connect dend[i](0), dend[i-1](1)
connect dend[38](0), dend[36](1)
for i = 39, 40 connect dend[i](0), dend[38](1)
connect dend[41](0), dend[35](1)
for i = 42, 43 connect dend[i](0), dend[41](1)
connect dend[44](0), dend[34](1)
connect dend[45](0), soma(0.5)
for i = 46, 49 connect dend[i](0), dend[i-1](1)
connect dend[50](0), dend[48](1)
connect dend[51](0), dend[47](1)
for i = 52, 53 connect dend[i](0), dend[51](1)
connect dend[54](0), dend[46](1)
for i = 55, 56 connect dend[i](0), dend[54](1)
connect dend[57](0), dend[45](1)
for i = 58, 59 connect dend[i](0), dend[57](1)
connect dend[60](0), soma(0.5)
for i = 61, 64 connect dend[i](0), dend[i-1](1)
connect dend[65](0), dend[63](1)
connect dend[66](0), dend[62](1)
connect dend[67](0), dend[61](1)
connect dend[68](0), dend[60](1)
connect dend[69](0), soma(0.5)
for i = 70, 71 connect dend[i](0), dend[i-1](1)
connect dend[72](0), dend[70](1)
connect dend[73](0), dend[69](1)
for i = 74, 75 connect dend[i](0), dend[i-1](1)
connect dend[76](0), dend[74](1)
for i = 77, 78 connect dend[i](0), dend[76](1)
for i = 79, 80 connect dend[i](0), dend[78](1)
connect dend[81](0), dend[73](1)
for i = 82, 83 connect dend[i](0), dend[81](1)
for i = 84, 85 connect dend[i](0), dend[i-1](1)
connect dend[86](0), dend[84](1)
connect dend[87](0), dend[83](1)
basic_shape()
}
proc shape3d_1() {
soma {pt3dclear()
pt3dadd(174.578, -1168.15, -297.66, 4.95476)
pt3dadd(176.248, -1165.94, -301.43, 9.22055)
pt3dadd(176.515, -1164.47, -304.88, 12.4411)
pt3dadd(176.79, -1164.58, -307, 13.0813)
pt3dadd(177.226, -1163.74, -310.72, 13.7027)
pt3dadd(178.146, -1162.69, -315.18, 14.7225)
pt3dadd(178.98, -1161.92, -319.48, 13.5953)
pt3dadd(178.968, -1161.45, -327.08, 10.4269)
}
axon {pt3dclear()
pt3dstyle(1, 177.454, -1163.48, -311.826)
pt3dadd(180.23, -1175.59, -266.38, 0.89)
pt3dadd(180.47, -1176.68, -251.29, 0.89)
pt3dadd(180.25, -1177.16, -245.45, 0.89)
pt3dadd(179.98, -1177.35, -243.28, 0.89)
pt3dadd(179.72, -1178.09, -243.28, 0.97)
pt3dadd(178.49, -1179.33, -234.51, 0.97)
pt3dadd(177.52, -1180.82, -229.52, 0.97)
pt3dadd(176.79, -1181.91, -225.96, 0.97)
pt3dadd(176.49, -1182.41, -220.65, 0.97)
pt3dadd(175.36, -1183.33, -213.7, 0.97)
pt3dadd(174.7, -1182.54, -207.43, 0.97)
pt3dadd(174.8, -1181.7, -199.94, 0.97)
pt3dadd(177.1, -1181.04, -193.09, 0.97)
pt3dadd(179.1, -1181.77, -189.48, 0.97)
pt3dadd(180.55, -1182.89, -182.74, 0.97)
}
dend {pt3dclear()
pt3dstyle(1, 177.454, -1163.48, -311.826)
pt3dadd(175.4, -1165.54, -298.01, 1.56)
pt3dadd(167.35, -1159.09, -281.25, 1.56)
pt3dadd(166.22, -1158.44, -280.29, 1.56)
pt3dadd(164.42, -1157.51, -279.87, 1.56)
pt3dadd(163, -1157.09, -278.86, 1.56)
pt3dadd(161.58, -1156.68, -277.37, 1.56)
pt3dadd(159.04, -1155.76, -275.99, 1.56)
pt3dadd(158.66, -1155.62, -274.82, 1.56)
pt3dadd(158.5, -1155.52, -274.82, 1.26)
pt3dadd(156.62, -1154.54, -272.17, 1.34)
pt3dadd(153.83, -1153.56, -269.88, 1.34)
pt3dadd(151.48, -1151.98, -268.5, 1.56)
pt3dadd(149.24, -1150.68, -266.75, 1.56)
pt3dadd(147.22, -1149.28, -264.84, 1.56)
pt3dadd(144.88, -1147.78, -263.24, 1.56)
pt3dadd(142.92, -1146.81, -260.64, 1.56)
pt3dadd(140.71, -1145.67, -258.25, 1.56)
pt3dadd(137.96, -1144.45, -257.67, 1.56)
pt3dadd(135.52, -1142.81, -257.67, 1.56)
pt3dadd(133.64, -1141.84, -257.03, 1.56)
pt3dadd(131.41, -1139.12, -255.65, 1.56)
pt3dadd(129.73, -1137.54, -254.8, 1.56)
pt3dadd(128.09, -1136.68, -253.79, 1.56)
pt3dadd(126.76, -1136.29, -252.94, 1.56)
pt3dadd(125.63, -1134.9, -250.87, 1.56)
pt3dadd(124.16, -1133.63, -249.91, 1.56)
pt3dadd(122.2, -1132.67, -249.49, 1.49)
pt3dadd(120.48, -1131.74, -247.74, 1.49)
pt3dadd(119.41, -1131.68, -247.68, 1.49)
pt3dadd(117.87, -1130.5, -245.24, 1.49)
pt3dadd(116.08, -1129.59, -243.38, 1.49)
pt3dadd(114.04, -1129.53, -241.42, 1.49)
pt3dadd(112.45, -1128.51, -239.77, 1.49)
pt3dadd(110.97, -1127.25, -238.92, 1.49)
pt3dadd(109.07, -1126.65, -237.54, 1.49)
pt3dadd(107.36, -1125.79, -237.54, 1.34)
pt3dadd(104.79, -1124.77, -235.1, 1.34)
pt3dadd(102.61, -1123.32, -232.07, 1.34)
pt3dadd(100.88, -1122.4, -228.88, 1.34)
pt3dadd(98.47, -1120.9, -227.08, 1.34)
pt3dadd(96.43, -1118.98, -224.32, 1.34)
pt3dadd(94.76, -1117.45, -222.19, 1.34)
pt3dadd(92.56, -1115.48, -222.19, 1.34)
}
dend[1] {pt3dclear()
pt3dadd(92.56, -1115.48, -222.19, 1.34)
pt3dadd(91.98, -1115.04, -222.14, 1.26)
pt3dadd(90.07, -1112.95, -220.97, 1.26)
pt3dadd(89.3, -1111.37, -220.97, 1.26)
pt3dadd(91.56, -1109.2, -220.97, 0.97)
pt3dadd(89.94, -1106.54, -219.27, 0.97)
pt3dadd(88.04, -1103.99, -219.27, 0.97)
pt3dadd(86.42, -1100.88, -217.47, 0.97)
pt3dadd(84.96, -1098.27, -217.2, 0.97)
pt3dadd(82.05, -1094.09, -216.4, 0.97)
pt3dadd(78.54, -1089.93, -214.81, 0.97)
pt3dadd(76.29, -1087.14, -214.81, 0.97)
pt3dadd(73.08, -1082.48, -213.7, 0.97)
pt3dadd(70.3, -1080.08, -213.7, 0.97)
pt3dadd(68.04, -1077.21, -213.7, 0.97)
pt3dadd(65.77, -1074.2, -213.7, 0.97)
pt3dadd(62.7, -1070.95, -213.7, 0.97)
pt3dadd(59.16, -1068.06, -213.01, 0.97)
pt3dadd(56.84, -1066.18, -213.01, 0.97)
pt3dadd(54.63, -1063.16, -213.01, 0.97)
pt3dadd(52.24, -1060.84, -213.01, 0.97)
pt3dadd(50.74, -1058.01, -213.01, 0.97)
}
dend[2] {pt3dclear()
pt3dadd(50.74, -1058.01, -213.01, 0.59)
pt3dadd(49.65, -1056.85, -212.95, 0.59)
pt3dadd(48.22, -1055.43, -211.89, 0.59)
pt3dadd(45.62, -1051.8, -211.25, 0.59)
pt3dadd(42.56, -1049.51, -210.3, 0.59)
pt3dadd(39.74, -1046.88, -209.34, 0.59)
pt3dadd(36.94, -1044.86, -208.33, 0.59)
pt3dadd(34.1, -1043.06, -207.54, 0.59)
pt3dadd(30.86, -1041.62, -207.43, 0.59)
pt3dadd(27.57, -1038.84, -205.57, 0.59)
pt3dadd(25.94, -1036.11, -205.04, 0.59)
pt3dadd(23.36, -1031.65, -203.98, 0.59)
pt3dadd(22.21, -1029.59, -203.98, 0.59)
pt3dadd(19.21, -1027.29, -203.92, 0.59)
pt3dadd(18.45, -1024.79, -203.92, 0.59)
pt3dadd(17.5, -1022.1, -201.91, 0.59)
pt3dadd(16.18, -1018.94, -201.91, 0.59)
pt3dadd(16.07, -1017.31, -200.37, 0.59)
pt3dadd(15.42, -1012.81, -199.15, 0.59)
pt3dadd(13.48, -1009.6, -199.15, 0.59)
pt3dadd(10.85, -1007.17, -199.09, 0.59)
pt3dadd(7.2, -1004.53, -201.06, 0.59)
pt3dadd(3.27, -1001.55, -202.17, 0.59)
pt3dadd(0.54, -998.99, -203.77, 0.59)
pt3dadd(-1.88, -996.53, -205.68, 0.59)
pt3dadd(-4.33, -995.79, -206.74, 0.59)
pt3dadd(-6.78, -993.11, -209.13, 0.59)
pt3dadd(-9.38, -991.87, -209.13, 0.59)
pt3dadd(-12.71, -989.85, -211.31, 0.59)
pt3dadd(-15.5, -989.31, -213.01, 0.52)
pt3dadd(-17.6, -988.37, -213.01, 0.59)
pt3dadd(-21.37, -987.39, -214.97, 0.59)
pt3dadd(-24.65, -984.17, -216.72, 0.59)
pt3dadd(-27.9, -981.43, -216.72, 0.59)
pt3dadd(-30.12, -978.78, -219.75, 0.59)
pt3dadd(-32.39, -976.82, -219.7, 0.59)
pt3dadd(-33.93, -974.67, -222.19, 0.59)
pt3dadd(-35.41, -970.49, -223.36, 0.59)
pt3dadd(-37.3, -967.05, -225.43, 0.59)
pt3dadd(-38.69, -964.94, -227.5, 0.45)
pt3dadd(-40.53, -962.77, -229.42, 0.45)
pt3dadd(-41.42, -960.44, -230.64, 0.45)
pt3dadd(-43.19, -958.77, -233.66, 0.45)
pt3dadd(-43.47, -958.41, -233.66, 0.45)
pt3dadd(-45.74, -957.75, -235.1, 0.45)
pt3dadd(-47.69, -956.68, -237.06, 0.45)
pt3dadd(-50.54, -955.06, -238.18, 0.45)
pt3dadd(-51.98, -954.36, -238.18, 0.22)
pt3dadd(-52.99, -953.01, -239.13, 0.22)
}
dend[3] {pt3dclear()
pt3dadd(50.74, -1058.01, -213.01, 0.74)
pt3dadd(51.08, -1056.31, -213.01, 0.74)
pt3dadd(50.19, -1054.51, -213.59, 0.74)
pt3dadd(47.79, -1052.12, -214.97, 0.67)
pt3dadd(47.42, -1049.79, -214.97, 0.59)
pt3dadd(46.6, -1047.46, -216.46, 0.59)
pt3dadd(46.09, -1044.24, -217.79, 0.59)
pt3dadd(45.44, -1040.53, -218.42, 0.59)
pt3dadd(44.87, -1036.88, -219.27, 0.59)
pt3dadd(43.79, -1034.81, -219.27, 0.59)
pt3dadd(44.44, -1032.76, -220.71, 0.59)
pt3dadd(44.25, -1030.1, -222.56, 0.59)
pt3dadd(43.78, -1028.53, -223.89, 0.59)
pt3dadd(43.45, -1028.1, -223.89, 0.67)
pt3dadd(42.33, -1026.99, -224.85, 0.67)
pt3dadd(41.8, -1025.35, -224.8, 0.67)
pt3dadd(41.33, -1023.55, -225.96, 0.67)
pt3dadd(40.1, -1022.23, -227.19, 0.67)
pt3dadd(38.79, -1020.91, -228.3, 0.67)
pt3dadd(38.09, -1019.07, -229.95, 0.67)
pt3dadd(37.95, -1018.05, -229.95, 0.67)
pt3dadd(37.06, -1017.05, -230.05, 0.67)
pt3dadd(35.89, -1015.12, -232.12, 0.67)
pt3dadd(34.81, -1013.78, -232.12, 0.67)
pt3dadd(33.58, -1011.94, -232.87, 0.67)
pt3dadd(32.6, -1009.68, -234.41, 0.67)
pt3dadd(31.52, -1008.94, -235.63, 0.67)
pt3dadd(31.19, -1007.12, -237.43, 0.67)
pt3dadd(30.23, -1005.54, -238.55, 0.67)
pt3dadd(29.57, -1004.58, -238.6, 0.52)
pt3dadd(29.33, -1002.3, -239.56, 0.52)
pt3dadd(29.29, -1000.37, -240.94, 0.52)
pt3dadd(29.99, -996.69, -242.8, 0.52)
pt3dadd(29.04, -995.26, -244.82, 0.52)
pt3dadd(27.76, -991.93, -249.28, 0.52)
pt3dadd(25.45, -989.34, -249.22, 0.52)
pt3dadd(24.68, -987.58, -251.29, 0.52)
pt3dadd(24.54, -985.44, -252.57, 0.52)
pt3dadd(22.94, -984.16, -254.22, 0.52)
pt3dadd(21.93, -982.81, -254.22, 0.52)
pt3dadd(20.15, -981.86, -256.29, 0.52)
}
dend[4] {pt3dclear()
pt3dadd(92.56, -1115.48, -222.19, 0.45)
pt3dadd(91.42, -1115.36, -222.19, 0.45)
pt3dadd(91.69, -1115.17, -222.19, 0.45)
pt3dadd(89.57, -1114.15, -214.12, 0.97)
pt3dadd(87.91, -1113.14, -209.02, 0.97)
pt3dadd(86.06, -1112.83, -207.16, 0.97)
pt3dadd(83.71, -1110.81, -204.14, 0.97)
pt3dadd(81.15, -1109.86, -203.13, 0.97)
pt3dadd(78.55, -1108.62, -203.13, 0.97)
pt3dadd(75.41, -1107.77, -202.17, 0.97)
pt3dadd(73.18, -1107.45, -201.16, 0.97)
pt3dadd(69.74, -1106.19, -197.87, 0.97)
pt3dadd(66.94, -1105.58, -194.74, 0.97)
pt3dadd(63.05, -1104.77, -191.23, 0.97)
pt3dadd(60.65, -1103.87, -190.38, 0.97)
pt3dadd(57.03, -1102.35, -186.82, 0.97)
pt3dadd(53.96, -1100.51, -184.49, 0.97)
pt3dadd(46.35, -1097.07, -172.11, 0.97)
pt3dadd(44.68, -1096.96, -171.9, 0.97)
}
dend[5] {pt3dclear()
pt3dstyle(1, 177.454, -1163.48, -311.826)
pt3dadd(173.66, -1158.46, -304.71, 1.78)
}
}
proc shape3d_2() {
dend[5] { pt3dadd(168.95, -1153.15, -302.38, 1.64)
pt3dadd(167.82, -1152.06, -303.5, 1.64)
pt3dadd(167.13, -1151.11, -305.14, 1.64)
pt3dadd(166.29, -1149.87, -305.14, 1.64)
pt3dadd(165.3, -1148.78, -305.83, 1.64)
pt3dadd(163.73, -1147.77, -305.83, 1.64)
pt3dadd(163.19, -1146.89, -307.85, 1.64)
pt3dadd(163.25, -1146.15, -308.86, 1.41)
pt3dadd(162.64, -1145.2, -311.62, 1.41)
pt3dadd(161.45, -1145.08, -311.62, 1.41)
pt3dadd(160.62, -1144.28, -311.3, 1.41)
pt3dadd(159.4, -1142.68, -311.3, 1.41)
pt3dadd(159.07, -1140.91, -313.48, 1.41)
pt3dadd(158.67, -1139.36, -314.54, 1.41)
pt3dadd(158.43, -1138.41, -315.71, 1.41)
pt3dadd(157.61, -1137.98, -316.4, 1.19)
pt3dadd(156.47, -1136.74, -317.41, 1.19)
pt3dadd(156.08, -1135.64, -318.79, 1.19)
pt3dadd(156.06, -1134.46, -320.44, 1.26)
pt3dadd(155.88, -1132.76, -321.61, 1.26)
pt3dadd(155.04, -1131.74, -322.56, 1.26)
pt3dadd(154.42, -1130.13, -322.56, 1.26)
pt3dadd(153.58, -1129.03, -323.68, 1.26)
pt3dadd(153.18, -1127.27, -325.32, 1.26)
pt3dadd(153.08, -1125.94, -328.09, 1.26)
pt3dadd(152.13, -1124.26, -330.16, 1.19)
pt3dadd(151.43, -1122.13, -331.96, 1.19)
pt3dadd(150.67, -1121.48, -332.97, 1.11)
pt3dadd(149.6, -1119.43, -333.77, 1.11)
pt3dadd(148.6, -1118.04, -336.1, 1.11)
pt3dadd(147.1, -1117.18, -336.16, 1.11)
pt3dadd(146.4, -1115.42, -338.71, 1.11)
pt3dadd(144.89, -1114.12, -338.71, 1.11)
pt3dadd(144.19, -1112.36, -339.87, 0.97)
pt3dadd(143.35, -1110.75, -340.72, 0.97)
pt3dadd(141.91, -1109.52, -340.72, 0.97)
pt3dadd(141.38, -1108.75, -340.72, 1.11)
pt3dadd(140.23, -1107.75, -340.72, 1.11)
}
dend[6] {pt3dclear()
pt3dadd(140.23, -1107.75, -340.72, 0.97)
pt3dadd(140.59, -1105.71, -341.84, 0.97)
pt3dadd(140.49, -1103.72, -343.86, 0.97)
pt3dadd(140.6, -1101.78, -346.35, 0.97)
pt3dadd(140.95, -1099.82, -348.53, 0.97)
pt3dadd(140.97, -1097.93, -350.39, 0.97)
pt3dadd(140.19, -1096.25, -351.45, 0.97)
pt3dadd(139.21, -1094.45, -353.47, 0.97)
pt3dadd(138.24, -1092.96, -356.18, 0.97)
pt3dadd(137.34, -1091.86, -359.05, 0.97)
pt3dadd(136.4, -1091.28, -359.05, 0.97)
pt3dadd(136.29, -1090.04, -359.05, 0.89)
pt3dadd(134.81, -1089.5, -362.29, 0.89)
pt3dadd(133.12, -1088.15, -362.29, 0.89)
pt3dadd(132, -1086.63, -364.52, 0.89)
pt3dadd(130.75, -1085.75, -364.52, 0.89)
pt3dadd(128.81, -1084.88, -366.48, 0.89)
pt3dadd(127.5, -1084.6, -366.53, 0.89)
pt3dadd(126.09, -1083.01, -369.14, 0.89)
pt3dadd(125.61, -1082.08, -369.14, 0.89)
pt3dadd(124.55, -1081.02, -371.42, 0.89)
pt3dadd(124.37, -1079.01, -371.42, 0.89)
pt3dadd(123.74, -1076.99, -375.35, 0.89)
pt3dadd(123.37, -1076.23, -373.6, 0.89)
pt3dadd(122.67, -1074.19, -376.84, 0.89)
pt3dadd(120.73, -1071.58, -378.69, 0.89)
pt3dadd(119.35, -1069.16, -378.69, 0.89)
pt3dadd(118.8, -1066.78, -382.31, 0.89)
pt3dadd(116.98, -1065.33, -386.08, 0.89)
pt3dadd(115.83, -1065.38, -386.13, 0.89)
pt3dadd(114.04, -1064.16, -388.41, 0.89)
pt3dadd(113.55, -1062.55, -391.33, 0.89)
pt3dadd(113.59, -1059.53, -393.03, 0.89)
pt3dadd(113.45, -1058.03, -393.09, 0.89)
pt3dadd(113.6, -1055.56, -395.74, 0.89)
pt3dadd(112.98, -1055.22, -395.74, 0.89)
pt3dadd(113.76, -1053.67, -397.71, 0.89)
pt3dadd(114.66, -1052.95, -400.52, 0.89)
pt3dadd(115.19, -1051.75, -404.5, 0.89)
pt3dadd(115.6, -1049.55, -405.73, 0.89)
pt3dadd(114.9, -1047.76, -408.12, 0.89)
pt3dadd(114.33, -1045.91, -408.97, 0.89)
pt3dadd(113.44, -1044.61, -410.03, 0.89)
pt3dadd(113.07, -1043.43, -410.08, 0.89)
pt3dadd(112.74, -1041.95, -412.95, 0.89)
pt3dadd(111.71, -1040.71, -414.38, 0.89)
pt3dadd(110.52, -1039.3, -415.44, 0.89)
pt3dadd(109.4, -1036.56, -418.21, 0.74)
pt3dadd(108.46, -1034.23, -418.21, 0.74)
pt3dadd(107.57, -1032.93, -418.79, 0.74)
pt3dadd(107.06, -1030.49, -422.88, 0.74)
}
dend[7] {pt3dclear()
pt3dadd(107.06, -1030.49, -422.88, 0.74)
pt3dadd(107.23, -1028.37, -423.09, 0.74)
pt3dadd(106.96, -1027.2, -424.15, 0.67)
pt3dadd(107.47, -1025.77, -426.65, 0.67)
pt3dadd(107.53, -1024.05, -428.99, 0.67)
pt3dadd(106.4, -1020.19, -436.05, 0.67)
pt3dadd(106.81, -1018.72, -436.05, 0.67)
pt3dadd(107.84, -1018.1, -440.51, 0.67)
pt3dadd(107.98, -1016.19, -440.14, 0.67)
pt3dadd(107.71, -1014.29, -441.73, 0.67)
pt3dadd(107.48, -1012.29, -443.43, 0.67)
pt3dadd(106.64, -1010.56, -443.96, 0.67)
pt3dadd(106.12, -1009.18, -446.72, 0.67)
pt3dadd(106.44, -1008.96, -446.72, 0.45)
pt3dadd(106.46, -1007.7, -451.66, 0.45)
pt3dadd(106.92, -1005.45, -453.2, 0.45)
pt3dadd(107.52, -1002.17, -452.72, 0.45)
pt3dadd(105.62, -997.37, -456.49, 0.45)
pt3dadd(103.87, -992.65, -456.44, 0.45)
pt3dadd(104.86, -987.57, -458.88, 0.45)
pt3dadd(104.33, -984.29, -458.88, 0.45)
pt3dadd(103.92, -982.37, -459.84, 0.45)
}
dend[8] {pt3dclear()
pt3dadd(107.06, -1030.49, -422.88, 0.74)
pt3dadd(106.62, -1028.91, -422.88, 0.74)
pt3dadd(105.81, -1026.52, -423.78, 0.74)
pt3dadd(105.65, -1025.05, -424.26, 0.74)
pt3dadd(106.19, -1023.69, -424.26, 0.74)
pt3dadd(106.5, -1022.18, -426.6, 0.74)
pt3dadd(106.48, -1020.09, -428.51, 0.74)
pt3dadd(107.1, -1017.8, -431.32, 0.74)
pt3dadd(107.02, -1016.14, -431.32, 0.74)
pt3dadd(107.47, -1014.01, -431.38, 0.74)
pt3dadd(108.08, -1012.45, -433.87, 0.74)
pt3dadd(106.63, -1010.99, -433.87, 0.74)
pt3dadd(106.52, -1009.26, -436.1, 0.74)
pt3dadd(105.72, -1007.44, -436.1, 0.74)
pt3dadd(104.72, -1005.54, -437.32, 0.74)
pt3dadd(103.84, -1003.24, -439.93, 0.74)
pt3dadd(103.18, -1001.19, -439.93, 0.74)
pt3dadd(101.91, -998.84, -439.93, 0.74)
pt3dadd(99.69, -996.75, -442.21, 0.74)
pt3dadd(96.78, -995.12, -442.21, 0.74)
pt3dadd(94.72, -992.07, -443.54, 0.74)
pt3dadd(93.5, -989.86, -445.34, 0.74)
pt3dadd(90.94, -987.35, -446.51, 0.74)
pt3dadd(91.66, -985.81, -446.51, 0.82)
pt3dadd(90.83, -978.17, -448.1, 0.82)
pt3dadd(90.17, -974.72, -450.33, 0.89)
pt3dadd(89.19, -971.46, -452.88, 0.89)
pt3dadd(88.9, -969.18, -452.94, 0.89)
pt3dadd(89.67, -967.95, -454.64, 0.89)
pt3dadd(88.8, -966.63, -454.64, 0.89)
pt3dadd(88.76, -964.17, -455.91, 0.82)
pt3dadd(89.1, -961.68, -455.96, 0.82)
pt3dadd(88.75, -959.32, -455.96, 0.82)
pt3dadd(88.29, -956.65, -455.96, 0.82)
pt3dadd(86.85, -953.47, -455.96, 0.82)
pt3dadd(86.04, -948.43, -455.33, 0.82)
pt3dadd(85.45, -946.71, -455.33, 0.82)
pt3dadd(83.22, -943.2, -456.39, 0.82)
pt3dadd(82.35, -941.56, -456.39, 0.67)
pt3dadd(81.41, -938, -457.45, 0.67)
pt3dadd(81.39, -934.86, -459.26, 0.67)
pt3dadd(80.47, -931.68, -459.26, 0.67)
pt3dadd(79.43, -927.81, -461.01, 0.67)
pt3dadd(78.9, -925.65, -461.01, 0.67)
pt3dadd(78.51, -921.35, -462.55, 0.67)
pt3dadd(77.77, -918.49, -462.55, 0.67)
pt3dadd(77.24, -916.33, -462.55, 0.67)
pt3dadd(76.59, -912.88, -461.65, 0.67)
pt3dadd(76.84, -909.41, -464.73, 0.52)
pt3dadd(77.26, -906.34, -463.56, 0.52)
pt3dadd(76.79, -903.74, -463.98, 0.52)
pt3dadd(76.21, -899.54, -464.19, 0.52)
pt3dadd(74.61, -896.94, -464.19, 0.52)
pt3dadd(74.8, -895.02, -464.3, 0.52)
pt3dadd(74.86, -892.35, -464.3, 0.52)
pt3dadd(73.84, -888.85, -465.73, 0.52)
pt3dadd(73.49, -886.49, -468.23, 0.52)
pt3dadd(71.68, -883.26, -469.35, 0.52)
}
dend[9] {pt3dclear()
pt3dadd(140.23, -1107.75, -340.72, 1.11)
pt3dadd(138.8, -1107.29, -340.72, 1.11)
pt3dadd(138.08, -1107.15, -340.72, 0.97)
pt3dadd(134.26, -1105.81, -340.03, 0.89)
pt3dadd(130.51, -1103.66, -340.25, 0.89)
pt3dadd(128.41, -1102.88, -340.72, 0.89)
pt3dadd(125.26, -1101.31, -340.25, 0.89)
pt3dadd(122.41, -1099.59, -340.19, 0.89)
pt3dadd(120.37, -1098, -339.61, 0.89)
pt3dadd(117.45, -1096.72, -337.17, 0.89)
pt3dadd(113.71, -1095.24, -337.17, 0.89)
pt3dadd(110.51, -1095.22, -336.64, 0.89)
pt3dadd(106.7, -1093.96, -334.51, 0.89)
pt3dadd(104.15, -1092.67, -333.98, 0.89)
}
dend[10] {pt3dclear()
pt3dadd(104.15, -1092.67, -333.98, 0.82)
pt3dadd(101.86, -1093.3, -333.93, 0.82)
pt3dadd(98.58, -1093.06, -332.39, 0.82)
pt3dadd(95.22, -1091.94, -330.95, 0.67)
pt3dadd(92.83, -1091.24, -329.04, 0.67)
pt3dadd(90.59, -1090.84, -327.34, 0.67)
pt3dadd(86.8, -1091.05, -323.73, 0.67)
pt3dadd(82.64, -1091.2, -321.66, 0.67)
pt3dadd(80.18, -1090.58, -319.06, 0.67)
pt3dadd(75.26, -1090, -314.33, 0.67)
pt3dadd(71.47, -1089.78, -314.33, 0.67)
pt3dadd(68.69, -1088.27, -314.33, 0.59)
pt3dadd(67.09, -1086.23, -314.28, 0.59)
pt3dadd(65.24, -1086.41, -312.79, 0.59)
pt3dadd(64.4, -1085.02, -312.79, 0.59)
pt3dadd(62.5, -1083.06, -312.74, 0.59)
pt3dadd(60.02, -1081.41, -312.74, 0.59)
}
}
proc shape3d_3() {
dend[10] { pt3dadd(58.48, -1079.35, -312.74, 0.59)
pt3dadd(57.78, -1077.3, -312.74, 0.59)
pt3dadd(54.54, -1075.21, -310.19, 0.59)
pt3dadd(52.74, -1074.13, -310.19, 0.59)
pt3dadd(47.6, -1073.41, -310.19, 0.59)
pt3dadd(45.95, -1072.78, -307.43, 0.59)
pt3dadd(42.25, -1069.74, -304.45, 0.59)
pt3dadd(38.12, -1069.11, -304.45, 0.45)
}
dend[11] {pt3dclear()
pt3dadd(104.15, -1092.67, -333.98, 0.59)
pt3dadd(103.41, -1091.09, -333.45, 0.59)
pt3dadd(101.21, -1088.4, -330.16, 0.59)
pt3dadd(99.4, -1087.1, -330.1, 0.59)
pt3dadd(98.1, -1084.83, -330.1, 0.59)
pt3dadd(96.43, -1082.79, -330.1, 0.59)
pt3dadd(93.43, -1081.22, -327.18, 0.59)
pt3dadd(91.24, -1079.34, -327.18, 0.59)
pt3dadd(89.71, -1077.08, -327.18, 0.59)
pt3dadd(87.14, -1074.61, -327.18, 0.59)
pt3dadd(84.8, -1072.66, -327.18, 0.59)
pt3dadd(82.38, -1070.19, -325.75, 0.59)
pt3dadd(80.45, -1066.3, -323.94, 0.59)
pt3dadd(79.36, -1063.66, -323.94, 0.59)
pt3dadd(76.44, -1062.53, -319.43, 0.59)
pt3dadd(73.07, -1060.97, -319.43, 0.59)
pt3dadd(70.69, -1061.01, -316.46, 0.59)
pt3dadd(66.95, -1059.82, -316.46, 0.59)
pt3dadd(63.5, -1057.96, -314.38, 0.59)
pt3dadd(60.04, -1055.36, -312.9, 0.59)
pt3dadd(56.71, -1052.76, -311.36, 0.59)
pt3dadd(53.02, -1050.38, -310.19, 0.59)
pt3dadd(49.26, -1047.94, -307.75, 0.59)
pt3dadd(46.32, -1045.4, -306.52, 0.59)
pt3dadd(42.42, -1043.92, -303.92, 0.59)
pt3dadd(39.43, -1042.79, -301.21, 0.59)
pt3dadd(36.49, -1040.33, -298.93, 0.59)
pt3dadd(35.12, -1038.51, -297.76, 0.59)
pt3dadd(33.14, -1035.96, -296.49, 0.59)
pt3dadd(32.37, -1034.64, -293.14, 0.59)
pt3dadd(32.21, -1034.19, -293.14, 0.74)
pt3dadd(31.72, -1031.57, -292.24, 0.74)
pt3dadd(31.4, -1029.53, -292.24, 0.74)
pt3dadd(31.35, -1027.29, -292.24, 0.74)
pt3dadd(30.26, -1024.62, -292.24, 0.74)
pt3dadd(30.81, -1022.37, -292.24, 0.74)
pt3dadd(30.12, -1020.38, -292.24, 0.74)
pt3dadd(29.15, -1019.49, -292.24, 0.74)
pt3dadd(29.25, -1015.81, -292.24, 0.74)
pt3dadd(29.16, -1010.88, -292.03, 0.74)
pt3dadd(28.99, -1010.31, -292.03, 0.74)
pt3dadd(28.64, -1010.63, -292.03, 0.3)
pt3dadd(28.44, -1008.72, -292.03, 0.3)
pt3dadd(27.42, -1006.45, -295.9, 0.15)
}
dend[12] {pt3dclear()
pt3dstyle(1, 177.454, -1163.48, -311.826)
pt3dadd(174.5, -1169.38, -303.47, 2.6)
pt3dadd(173.57, -1169.88, -288.68, 2.6)
pt3dadd(175.16, -1169.63, -283.38, 3.72)
pt3dadd(174.68, -1169.96, -277.26, 2.82)
}
dend[13] {pt3dclear()
pt3dadd(174.68, -1169.96, -277.26, 1.86)
pt3dadd(173.91, -1168.43, -275.3, 1.86)
pt3dadd(173.71, -1167.12, -270.36, 1.86)
pt3dadd(172.41, -1165.53, -268.29, 1.78)
pt3dadd(171.15, -1164.23, -264.73, 1.78)
pt3dadd(170.63, -1162.81, -258.46, 1.78)
pt3dadd(170.31, -1160.77, -255.54, 1.78)
pt3dadd(168.39, -1160.55, -250.07, 1.78)
pt3dadd(167.29, -1159.3, -246.67, 1.78)
pt3dadd(166.93, -1158.91, -246.67, 1.78)
}
dend[14] {pt3dclear()
pt3dadd(166.93, -1158.91, -246.67, 0.97)
pt3dadd(166.16, -1159.78, -246.62, 0.97)
pt3dadd(164.09, -1160.92, -245.4, 0.97)
pt3dadd(162.91, -1162.53, -242.9, 1.04)
pt3dadd(160.53, -1163.65, -239.08, 1.04)
pt3dadd(159.08, -1164.48, -235.36, 1.04)
pt3dadd(157.64, -1165.37, -233.88, 1.04)
pt3dadd(157.64, -1165.83, -233.88, 1.04)
pt3dadd(156.48, -1167.05, -229.89, 0.89)
pt3dadd(155.21, -1168.08, -226.87, 0.89)
pt3dadd(153.67, -1169.29, -224.26, 0.89)
pt3dadd(152.18, -1169.82, -223.36, 0.89)
pt3dadd(150.45, -1169.87, -220.12, 0.89)
pt3dadd(149.69, -1170.74, -219.48, 0.89)
pt3dadd(148.6, -1170.53, -217.84, 0.89)
pt3dadd(147.45, -1171.31, -216.88, 0.89)
pt3dadd(145.21, -1170.99, -215.34, 0.89)
pt3dadd(142.81, -1171.51, -213.75, 0.89)
pt3dadd(141.45, -1172.4, -212.37, 0.89)
pt3dadd(138.84, -1172.41, -211.15, 0.89)
pt3dadd(136.82, -1172.5, -207.06, 0.89)
pt3dadd(133.9, -1172.59, -205.52, 0.89)
pt3dadd(131.79, -1172.54, -204.4, 0.89)
pt3dadd(129.47, -1173.13, -202.01, 0.74)
}
dend[15] {pt3dclear()
pt3dadd(129.47, -1173.13, -202.01, 0.74)
pt3dadd(127.84, -1173.31, -201.69, 0.74)
pt3dadd(125.28, -1174.69, -198.4, 0.74)
pt3dadd(123.1, -1175.7, -195.22, 0.74)
pt3dadd(120.7, -1176.23, -193.52, 0.74)
pt3dadd(118.16, -1177.3, -191.02, 0.74)
pt3dadd(115.88, -1177.13, -188.15, 0.74)
pt3dadd(114.78, -1178.28, -185.92, 0.74)
pt3dadd(115, -1178.42, -185.92, 0.97)
pt3dadd(114.04, -1178.73, -181.2, 0.97)
pt3dadd(112.63, -1179.43, -178.17, 0.97)
pt3dadd(111.66, -1180.11, -175.46, 0.97)
pt3dadd(110.75, -1181.28, -174.61, 0.97)
pt3dadd(110.27, -1181.89, -174.56, 0.89)
pt3dadd(108.92, -1181.65, -172.54, 0.89)
pt3dadd(107.73, -1182.93, -169.73, 0.89)
pt3dadd(106.55, -1183.57, -170.68, 0.82)
pt3dadd(104.83, -1184.49, -168.66, 0.82)
pt3dadd(101.83, -1184.41, -168.61, 0.74)
pt3dadd(100.44, -1183.58, -168.82, 0.74)
pt3dadd(98.5, -1183.13, -167.49, 0.67)
pt3dadd(96.64, -1181.63, -167.49, 0.67)
pt3dadd(95.04, -1180.23, -167.6, 0.67)
pt3dadd(93.27, -1178.21, -165.58, 0.67)
pt3dadd(91.56, -1176.26, -164.79, 0.59)
pt3dadd(88.9, -1173.87, -162.98, 0.59)
pt3dadd(85.55, -1172.69, -163.19, 0.52)
pt3dadd(81.46, -1169.41, -160.17, 0.52)
pt3dadd(78.19, -1167.82, -155.28, 0.52)
pt3dadd(73.79, -1168, -151.93, 0.52)
pt3dadd(69.64, -1167.1, -146.2, 0.52)
pt3dadd(67.07, -1166.54, -143.23, 0.52)
pt3dadd(66.08, -1164.98, -139.08, 0.52)
pt3dadd(66.14, -1164.27, -139.08, 0.3)
pt3dadd(55.35, -1154.68, -135.95, 0.3)
pt3dadd(52.55, -1151.45, -132.76, 0.3)
}
dend[16] {pt3dclear()
pt3dadd(129.47, -1173.13, -202.01, 0.74)
pt3dadd(128.85, -1173.98, -201, 0.74)
pt3dadd(127.7, -1174.76, -197.23, 0.74)
pt3dadd(125.63, -1175.98, -193.46, 0.74)
pt3dadd(122.87, -1176.63, -190.17, 0.74)
pt3dadd(121.67, -1177.57, -187.52, 0.74)
pt3dadd(120.37, -1178.45, -184.22, 0.74)
pt3dadd(120.43, -1178.69, -184.22, 0.74)
pt3dadd(119.37, -1179.78, -180.13, 0.74)
pt3dadd(118.3, -1180.97, -180.13, 0.67)
pt3dadd(117.57, -1182.65, -175.73, 0.67)
pt3dadd(117.43, -1184.28, -171.42, 0.67)
pt3dadd(118.39, -1186.58, -169.94, 0.67)
pt3dadd(119.82, -1188.11, -169.57, 0.67)
pt3dadd(120.1, -1190.07, -166.33, 0.67)
pt3dadd(120.26, -1191.49, -166.27, 0.67)
pt3dadd(120.18, -1193.97, -163.62, 0.67)
pt3dadd(120.83, -1197.12, -159.9, 0.67)
pt3dadd(122.43, -1199.69, -159.85, 0.67)
pt3dadd(124.39, -1200.94, -159.85, 0.37)
}
dend[17] {pt3dclear()
pt3dadd(166.93, -1158.91, -246.67, 1.64)
pt3dadd(165.54, -1157.7, -244.02, 1.64)
}
dend[18] {pt3dclear()
pt3dadd(165.54, -1157.7, -244.02, 1.34)
pt3dadd(164.56, -1157.71, -238.82, 1.34)
pt3dadd(163.56, -1158.01, -235.04, 1.34)
pt3dadd(162.26, -1158.37, -232.28, 1.34)
pt3dadd(162.23, -1158.5, -232.28, 1.04)
pt3dadd(161.26, -1159.48, -226.49, 1.04)
pt3dadd(159.98, -1159.97, -224.48, 1.04)
pt3dadd(158.75, -1160.77, -219.96, 1.04)
pt3dadd(157.77, -1161.67, -215.24, 1.04)
pt3dadd(156.49, -1162.62, -213.48, 1.04)
pt3dadd(154.93, -1162.79, -212.42, 1.04)
pt3dadd(154.46, -1162.19, -210.99, 1.04)
pt3dadd(153.48, -1162.64, -208.6, 1.04)
pt3dadd(152.02, -1162.94, -204.4, 1.04)
pt3dadd(150, -1163.48, -202.07, 1.04)
pt3dadd(148.48, -1164.32, -199.57, 1.04)
pt3dadd(147.54, -1165.07, -198.61, 1.04)
pt3dadd(146.96, -1166.13, -197.07, 1.04)
pt3dadd(145.37, -1167.05, -195.8, 1.04)
pt3dadd(144.53, -1167.48, -194.63, 1.04)
pt3dadd(143.16, -1167.32, -186.98, 1.04)
pt3dadd(141.75, -1167.02, -182.74, 1.04)
pt3dadd(140.29, -1166.8, -180.13, 1.04)
pt3dadd(139.15, -1166.23, -176.52, 1.04)
pt3dadd(138.39, -1166.49, -176.52, 1.19)
pt3dadd(136.59, -1166.76, -174.03, 1.19)
pt3dadd(135.68, -1167.02, -170.79, 1.19)
pt3dadd(134.55, -1166.82, -168.03, 1.19)
pt3dadd(132.82, -1166.68, -164.57, 1.19)
pt3dadd(131.58, -1166.72, -161.97, 1.04)
pt3dadd(130.42, -1165.82, -161.97, 1.04)
pt3dadd(129.47, -1165.76, -160.11, 1.04)
pt3dadd(128.97, -1166.47, -159.85, 1.04)
pt3dadd(127.55, -1166.38, -156.61, 1.04)
pt3dadd(126.61, -1165.68, -153.9, 1.04)
pt3dadd(124.95, -1165.12, -150.77, 1.04)
pt3dadd(123.67, -1164.84, -148.91, 1.04)
pt3dadd(122.83, -1165.06, -146.09, 1.04)
pt3dadd(121.15, -1165.51, -142.27, 1.04)
pt3dadd(120.12, -1165.06, -139.4, 1.04)
pt3dadd(118.82, -1164.88, -135.95, 1.04)
pt3dadd(118.18, -1165.14, -137.07, 1.04)
pt3dadd(117.3, -1165.31, -133.4, 1.04)
pt3dadd(114.98, -1165.48, -128.94, 1.04)
}
dend[19] {pt3dclear()
pt3dadd(114.98, -1165.48, -128.94, 1.04)
pt3dadd(114.49, -1164.65, -129.47, 1.04)
pt3dadd(114.07, -1164.04, -126.82, 1.04)
pt3dadd(112.67, -1162.94, -123.42, 1.04)
pt3dadd(113.51, -1162.76, -123.42, 0.74)
pt3dadd(114.12, -1161.04, -117.47, 0.74)
pt3dadd(113.38, -1159.7, -112.26, 0.74)
}
}
proc shape3d_4() {
dend[19] { pt3dadd(113.46, -1159.17, -105.41, 0.74)
pt3dadd(113.2, -1157.71, -101.38, 0.74)
pt3dadd(112.57, -1156.82, -99.2, 0.74)
pt3dadd(112.4, -1156.1, -94.37, 0.74)
pt3dadd(112.19, -1155.01, -92.3, 0.74)
pt3dadd(112.27, -1153.28, -91.18, 0.74)
pt3dadd(111.41, -1151.75, -85.71, 0.74)
pt3dadd(111.44, -1150.86, -83.53, 0.74)
pt3dadd(110.59, -1149.4, -81.36, 0.74)
pt3dadd(110.63, -1148.5, -79.07, 0.74)
pt3dadd(110.83, -1147.14, -76.26, 0.74)
pt3dadd(110.83, -1145.94, -72.65, 0.74)
pt3dadd(110.31, -1143.63, -68.88, 0.74)
pt3dadd(111.04, -1142.27, -67.34, 0.74)
pt3dadd(111.23, -1141.72, -67.34, 0.67)
pt3dadd(110.52, -1140.44, -59.69, 0.67)
pt3dadd(109.83, -1138.87, -58.95, 0.67)
pt3dadd(109.2, -1137.81, -58.95, 0.67)
pt3dadd(108.82, -1135.66, -55.81, 0.67)
pt3dadd(108.1, -1134.89, -54.33, 0.67)
pt3dadd(107.23, -1134.2, -53.69, 0.67)
pt3dadd(106.07, -1133.2, -49.71, 0.67)
pt3dadd(105.7, -1131.12, -47.26, 0.67)
pt3dadd(105.08, -1129.62, -45.41, 0.67)
pt3dadd(104.3, -1128.34, -43.87, 0.67)
pt3dadd(103.25, -1126.46, -41.37, 0.67)
pt3dadd(102.38, -1125.54, -41.48, 0.59)
pt3dadd(101.22, -1124.69, -38.02, 0.59)
pt3dadd(99.72, -1122.72, -34.47, 0.59)
pt3dadd(97.34, -1120.5, -32.29, 0.59)
pt3dadd(96.14, -1118.61, -29.9, 0.59)
pt3dadd(95.53, -1116.82, -28.89, 0.59)
pt3dadd(93.89, -1114.47, -26.39, 0.59)
pt3dadd(92.84, -1112.66, -25.65, 0.59)
pt3dadd(91.94, -1110.64, -21.24, 0.59)
pt3dadd(91.4, -1108.92, -18.48, 0.59)
pt3dadd(90.64, -1107.12, -14.87, 0.59)
pt3dadd(90.3, -1106.08, -10.89, 0.59)
pt3dadd(90.15, -1105.45, -10.89, 0.59)
pt3dadd(89.9, -1104.55, -8.92, 0.45)
pt3dadd(89.63, -1102.46, -3.56, 0.3)
pt3dadd(89.56, -1100.98, 1.22, 0.3)
pt3dadd(90.03, -1098.86, 5.63, 0.3)
}
dend[20] {pt3dclear()
pt3dadd(114.98, -1165.48, -128.94, 1.04)
pt3dadd(114.73, -1166.55, -128.94, 1.04)
pt3dadd(114.81, -1167.58, -125.12, 1.04)
pt3dadd(114.11, -1169.05, -124.43, 1.04)
pt3dadd(114.88, -1169.51, -124.43, 0.74)
pt3dadd(117.59, -1171.41, -120.71, 0.74)
pt3dadd(117.43, -1173.14, -115.77, 0.74)
pt3dadd(118.21, -1174.53, -114.18, 0.74)
pt3dadd(119.62, -1176.21, -111.57, 0.74)
pt3dadd(120.94, -1177.17, -105.26, 0.74)
pt3dadd(120.74, -1178.61, -100.16, 0.74)
pt3dadd(122.49, -1178.83, -95.01, 0.74)
pt3dadd(124.45, -1178.89, -92.03, 0.74)
pt3dadd(125.91, -1178.63, -84.44, 0.74)
pt3dadd(127.06, -1179.38, -78.28, 0.74)
pt3dadd(129.46, -1180.64, -75.89, 0.74)
pt3dadd(130.29, -1181.28, -69.94, 0.74)
pt3dadd(129.85, -1181.76, -69.94, 0.74)
pt3dadd(131.09, -1182.61, -60.49, 0.74)
pt3dadd(131.81, -1183.3, -60.38, 0.74)
pt3dadd(133.06, -1183.79, -55.81, 0.74)
pt3dadd(134.52, -1184.72, -52.42, 0.74)
pt3dadd(136.2, -1185.59, -50.72, 0.74)
pt3dadd(137.97, -1186.01, -47.95, 0.74)
pt3dadd(138.41, -1186.32, -45.99, 0.59)
pt3dadd(139.88, -1186.82, -43.02, 0.59)
pt3dadd(140.74, -1187.58, -38.45, 0.59)
pt3dadd(141.23, -1188.78, -32.66, 0.59)
pt3dadd(142.36, -1188.3, -24.16, 0.59)
pt3dadd(142.98, -1187.58, -20.39, 0.59)
pt3dadd(145.23, -1186.84, -15.35, 0.59)
pt3dadd(145.63, -1187.36, -15.35, 0.59)
pt3dadd(146.57, -1187.92, -11.15, 0.59)
pt3dadd(147.37, -1188.33, -11.79, 0.59)
pt3dadd(149.13, -1188.79, -6.85, 0.59)
pt3dadd(150.86, -1188.58, -5.58, 0.59)
pt3dadd(150.55, -1187.23, 2.92, 0.59)
}
dend[21] {pt3dclear()
pt3dadd(165.54, -1157.7, -244.02, 1.64)
pt3dadd(165.2, -1156.49, -243.59, 1.64)
pt3dadd(164.65, -1154.93, -244.39, 1.56)
pt3dadd(163.63, -1153.67, -243.17, 1.56)
pt3dadd(163.38, -1152.06, -242.21, 1.56)
pt3dadd(162.79, -1150.73, -239.66, 1.49)
pt3dadd(161.82, -1149.31, -238.92, 1.41)
pt3dadd(160.78, -1147.98, -236.8, 1.41)
pt3dadd(159.38, -1146.25, -234.3, 1.41)
pt3dadd(157.87, -1144.32, -232.97, 1.41)
pt3dadd(157.66, -1145.16, -232.97, 1.04)
pt3dadd(156.53, -1143.69, -230.27, 1.04)
pt3dadd(154.78, -1141.65, -227.24, 1.04)
pt3dadd(153.28, -1139.79, -226.12, 1.04)
pt3dadd(151.01, -1137.75, -223.63, 1.04)
pt3dadd(148.92, -1136.43, -221.98, 1.04)
pt3dadd(147.22, -1134.68, -221.98, 1.04)
pt3dadd(144.94, -1134.06, -221.98, 1.04)
pt3dadd(144.07, -1132.85, -220.92, 1.04)
pt3dadd(143.7, -1132.35, -220.92, 1.04)
pt3dadd(142.25, -1130.78, -217.36, 1.04)
pt3dadd(140.43, -1130.25, -217.04, 1.04)
pt3dadd(138.74, -1130.51, -214.49, 1.04)
pt3dadd(136.47, -1129.44, -213.64, 1.04)
pt3dadd(134.2, -1128.9, -209.87, 1.04)
pt3dadd(132.09, -1127.89, -207.11, 1.04)
pt3dadd(130.38, -1127.56, -207.11, 1.04)
pt3dadd(129.88, -1126.29, -206.74, 1.04)
pt3dadd(128.41, -1126.52, -205.36, 1.04)
pt3dadd(126.56, -1126.66, -202.54, 1.04)
pt3dadd(124.87, -1125.5, -198.83, 1.04)
pt3dadd(123.03, -1124.3, -195.48, 1.04)
pt3dadd(122.07, -1123.92, -192.24, 1.04)
pt3dadd(120.83, -1122.77, -188.52, 1.04)
pt3dadd(119.54, -1121.25, -186.98, 1.04)
pt3dadd(118.02, -1120.22, -184.75, 1.04)
pt3dadd(117.19, -1119.68, -182.63, 1.04)
pt3dadd(115.74, -1118.63, -178.17, 1.04)
pt3dadd(114.93, -1118.21, -178.17, 0.97)
pt3dadd(114.1, -1118.06, -175.83, 0.97)
pt3dadd(113.18, -1117.9, -175.83, 0.97)
}
dend[22] {pt3dclear()
pt3dadd(113.18, -1117.9, -175.83, 1.04)
pt3dadd(111.91, -1118.42, -175.83, 1.04)
pt3dadd(109.75, -1118.3, -171, 1.04)
pt3dadd(108.56, -1117.24, -167.39, 1.04)
pt3dadd(107.23, -1116.9, -164.1, 1.04)
pt3dadd(105.51, -1116.11, -160.64, 1.04)
pt3dadd(104.42, -1115.71, -156.87, 1.04)
pt3dadd(102.2, -1114.99, -153.9, 1.04)
pt3dadd(101.11, -1116.29, -150.66, 1.04)
pt3dadd(100.09, -1115.47, -150.02, 1.04)
pt3dadd(98.48, -1115.24, -144.08, 1.04)
pt3dadd(96.59, -1115.12, -140.04, 1.04)
pt3dadd(96.05, -1116.57, -135.42, 1.04)
pt3dadd(92.9, -1117.76, -128.2, 1.04)
pt3dadd(93.12, -1117.44, -128.2, 1.11)
pt3dadd(93.12, -1117.44, -122.51, 1.11)
pt3dadd(92.82, -1116.88, -117.95, 1.11)
pt3dadd(93.06, -1115.22, -116.19, 1.11)
pt3dadd(92.53, -1114.54, -111.31, 1.11)
pt3dadd(91.63, -1113.38, -105.68, 1.11)
pt3dadd(91.28, -1112.31, -104.62, 1.11)
pt3dadd(91.4, -1111.55, -100.53, 1.11)
pt3dadd(90.41, -1110.78, -97.71, 1.11)
pt3dadd(89.11, -1109.98, -94.95, 1.11)
pt3dadd(89.19, -1108.85, -93.89, 1.11)
pt3dadd(87.88, -1107.9, -92.35, 1.11)
pt3dadd(86.4, -1107.49, -89.11, 1.11)
pt3dadd(85.42, -1106.2, -87.2, 1.11)
pt3dadd(84.8, -1104.86, -82.84, 1.11)
pt3dadd(83.63, -1103.29, -79.5, 1.11)
pt3dadd(82.57, -1102.01, -77.69, 1.11)
pt3dadd(81.53, -1100.88, -74.67, 1.11)
pt3dadd(81.18, -1100.21, -74.67, 1.11)
pt3dadd(81.99, -1099.38, -74.67, 0.97)
pt3dadd(81.05, -1098.47, -70.9, 0.97)
pt3dadd(80.79, -1097.5, -66.75, 0.97)
pt3dadd(80.23, -1096.15, -63.14, 0.97)
pt3dadd(79.59, -1095.46, -61.18, 0.97)
pt3dadd(79.46, -1094.87, -58.52, 0.97)
pt3dadd(79.33, -1094.34, -54.27, 0.97)
pt3dadd(78.77, -1093.07, -51.62, 0.97)
pt3dadd(78.51, -1091.88, -47.95, 0.97)
pt3dadd(77.88, -1090.82, -44.5, 0.97)
pt3dadd(77.4, -1089.7, -40.2, 0.97)
pt3dadd(76.02, -1088.54, -37.07, 0.97)
pt3dadd(75.54, -1087.2, -35, 0.97)
pt3dadd(74.98, -1086.22, -31.49, 0.97)
pt3dadd(74.34, -1085.39, -27.08, 0.97)
pt3dadd(73.77, -1084.48, -22.89, 0.97)
pt3dadd(73.14, -1083.5, -18.43, 0.97)
pt3dadd(72.21, -1082.29, -15.88, 0.97)
pt3dadd(72.1, -1080.61, -15.88, 0.82)
pt3dadd(71.35, -1079.17, -14.76, 0.82)
pt3dadd(70.7, -1077.29, -11.26, 0.82)
pt3dadd(70.85, -1075.59, -7.65, 0.82)
pt3dadd(70.77, -1074.18, -6.37, 0.82)
pt3dadd(69.33, -1073.22, -3.66, 0.82)
}
dend[23] {pt3dclear()
pt3dadd(69.33, -1073.22, -3.66, 0.82)
pt3dadd(69.67, -1072.5, -0.85, 0.82)
pt3dadd(70.09, -1071.49, 2.66, 0.82)
pt3dadd(70.3, -1070.24, 6.69, 0.82)
pt3dadd(70, -1068.74, 8.5, 0.82)
pt3dadd(69.86, -1068.66, 8.66, 0.67)
pt3dadd(68.72, -1067.65, 9.98, 0.67)
pt3dadd(69.14, -1066.48, 10.89, 0.67)
pt3dadd(69.64, -1065.4, 14.13, 0.67)
pt3dadd(69.08, -1063.22, 15.77, 0.67)
pt3dadd(69.02, -1061.45, 17.68, 0.67)
pt3dadd(68.88, -1059.74, 19.44, 0.67)
pt3dadd(68.38, -1057.79, 22.52, 0.67)
pt3dadd(67.74, -1055.76, 23.79, 0.67)
pt3dadd(67.01, -1053.88, 25.44, 0.67)
pt3dadd(66.52, -1051.78, 27.3, 0.67)
pt3dadd(65.81, -1049.6, 29.47, 0.67)
pt3dadd(64.89, -1048.67, 29.58, 0.67)
pt3dadd(64.83, -1046.74, 32.5, 0.67)
pt3dadd(64.37, -1045.54, 35.69, 0.67)
pt3dadd(63.64, -1043.72, 37.49, 0.67)
pt3dadd(62.52, -1042.41, 39.88, 0.67)
}
}
proc shape3d_5() {
dend[23] { pt3dadd(61.78, -1040.67, 42.54, 0.67)
pt3dadd(61.24, -1040.89, 42.54, 0.67)
pt3dadd(60.19, -1040.18, 49.44, 0.67)
pt3dadd(58.88, -1038.95, 49.92, 0.67)
pt3dadd(57.07, -1037.6, 49.92, 0.67)
pt3dadd(55.7, -1035.67, 53.96, 0.67)
pt3dadd(53.71, -1034.43, 58.36, 0.67)
pt3dadd(51.91, -1032.7, 61.6, 0.67)
pt3dadd(50.29, -1030.87, 64.63, 0.67)
pt3dadd(49.37, -1029.28, 67.44, 0.67)
pt3dadd(47.38, -1027.42, 70.95, 0.67)
pt3dadd(45.5, -1024.76, 72.28, 0.67)
pt3dadd(43.88, -1022.93, 78.65, 0.67)
pt3dadd(42.72, -1022.04, 82.26, 0.67)
pt3dadd(42.06, -1020.97, 85.29, 0.67)
pt3dadd(41.03, -1018.59, 91.08, 0.67)
pt3dadd(40.42, -1017, 91.08, 0.67)
pt3dadd(39.55, -1014.89, 97.34, 0.67)
pt3dadd(39.28, -1014.14, 97.34, 0.52)
pt3dadd(38.15, -1012.8, 100.42, 0.52)
pt3dadd(38.12, -1012.75, 100.42, 0.67)
pt3dadd(37.64, -1011.57, 102.07, 0.59)
pt3dadd(37.81, -1010.54, 106.8, 0.59)
pt3dadd(37.8, -1008.72, 112.32, 0.59)
pt3dadd(38.21, -1006.99, 117.95, 0.59)
pt3dadd(37.2, -1004.54, 120.07, 0.59)
pt3dadd(36.69, -1001.3, 120.66, 0.59)
pt3dadd(36.1, -999.94, 128.14, 0.59)
pt3dadd(34.83, -999.18, 128.67, 0.59)
pt3dadd(34.22, -996.98, 131.22, 0.59)
pt3dadd(33.24, -996.28, 135.47, 0.59)
pt3dadd(32.67, -994.85, 138.18, 0.59)
pt3dadd(32.36, -994.55, 143.6, 0.59)
}
dend[24] {pt3dclear()
pt3dadd(69.33, -1073.22, -3.66, 0.67)
pt3dadd(68.08, -1071.46, -3.61, 0.67)
pt3dadd(66.35, -1068.79, -3.61, 0.67)
pt3dadd(62.83, -1066.25, -4.14, 0.67)
pt3dadd(61.71, -1064.79, -4.14, 0.67)
pt3dadd(59.71, -1063.13, -4.14, 0.67)
pt3dadd(57.91, -1061.86, -4.51, 0.67)
pt3dadd(56.75, -1061.21, -4.51, 0.67)
pt3dadd(55.35, -1061.07, -4.51, 0.67)
pt3dadd(54.71, -1060.45, -5.26, 0.67)
}
dend[25] {pt3dclear()
pt3dadd(54.71, -1060.45, -5.26, 0.59)
pt3dadd(54.53, -1059.48, -5.26, 0.59)
pt3dadd(52.95, -1058.44, -8.34, 0.59)
pt3dadd(51.83, -1056.98, -10.04, 0.59)
pt3dadd(50.31, -1056.09, -11.68, 0.59)
pt3dadd(48.76, -1055.72, -14.5, 0.59)
pt3dadd(46.96, -1054.59, -15.35, 0.59)
pt3dadd(45.3, -1053.55, -15.35, 0.45)
pt3dadd(42.55, -1051.93, -16.99, 0.45)
pt3dadd(41.59, -1051.89, -16.99, 0.45)
pt3dadd(40.8, -1051.83, -16.99, 0.59)
pt3dadd(39.47, -1049.78, -18, 0.59)
pt3dadd(38.81, -1047.68, -18.8, 0.59)
pt3dadd(36.43, -1045.67, -20.34, 0.59)
pt3dadd(35.63, -1043.49, -20.34, 0.52)
pt3dadd(34.97, -1041.47, -20.34, 0.52)
pt3dadd(34.76, -1039.09, -20.34, 0.52)
pt3dadd(33.18, -1035.92, -19.65, 0.52)
pt3dadd(31.93, -1033.73, -21.19, 0.52)
pt3dadd(30.43, -1030.2, -19.17, 0.52)
pt3dadd(28.81, -1027.99, -20.02, 0.52)
}
dend[26] {pt3dclear()
pt3dadd(54.71, -1060.45, -5.26, 0.45)
pt3dadd(52.59, -1059.68, -2.71, 0.45)
pt3dadd(49, -1058.54, -0.32, 0.45)
pt3dadd(45.78, -1057.34, 1.86, 0.45)
pt3dadd(41.73, -1056.55, 4.73, 0.45)
}
dend[27] {pt3dclear()
pt3dadd(113.18, -1117.9, -175.83, 0.97)
pt3dadd(113.47, -1115.98, -173.55, 0.97)
pt3dadd(113.83, -1113.76, -171.27, 0.97)
pt3dadd(114.09, -1112.31, -170.95, 0.97)
pt3dadd(113.04, -1111.06, -167.65, 0.97)
pt3dadd(112.06, -1109.77, -164.52, 0.97)
pt3dadd(112.12, -1108.56, -164.52, 0.97)
pt3dadd(112.65, -1106.84, -162.87, 0.97)
pt3dadd(111.63, -1104.85, -162.93, 0.97)
pt3dadd(110.78, -1103.37, -160.38, 0.97)
pt3dadd(111.96, -1102.46, -159.37, 0.97)
pt3dadd(111.48, -1100.73, -157.35, 0.97)
pt3dadd(110.77, -1098.79, -155.76, 0.97)
pt3dadd(109.51, -1097.11, -152.89, 0.97)
pt3dadd(110.51, -1094.52, -149.07, 0.97)
pt3dadd(109.94, -1093.57, -145.3, 0.97)
pt3dadd(108.33, -1093.07, -138.5, 0.97)
pt3dadd(108.07, -1092.17, -137.97, 0.97)
pt3dadd(108.76, -1090.7, -136.85, 0.97)
pt3dadd(109.69, -1089.42, -136.32, 0.97)
pt3dadd(110, -1088.04, -136.32, 0.89)
pt3dadd(109.78, -1086.03, -132.34, 0.89)
pt3dadd(109.96, -1084.47, -131.12, 0.89)
pt3dadd(111.17, -1083.09, -130.06, 0.89)
pt3dadd(113.12, -1081.2, -128.04, 0.89)
pt3dadd(112.09, -1078.67, -127.88, 0.89)
pt3dadd(113.81, -1075.95, -124.21, 0.74)
pt3dadd(114.15, -1075, -124.21, 0.74)
pt3dadd(115.57, -1071.58, -119.65, 0.74)
pt3dadd(115.67, -1069.89, -119.65, 0.74)
pt3dadd(115.73, -1068.68, -117.63, 0.74)
}
dend[28] {pt3dclear()
pt3dadd(174.68, -1169.96, -277.26, 2.68)
pt3dadd(176.09, -1170.78, -276.79, 2.68)
pt3dadd(177.2, -1171.13, -274.08, 2.68)
pt3dadd(177.91, -1171.39, -273.28, 2.53)
pt3dadd(179.12, -1171.88, -270.94, 2.53)
pt3dadd(180.08, -1172.7, -269.3, 2.3)
pt3dadd(180.35, -1174, -267.17, 2.16)
pt3dadd(180.65, -1175.38, -264.68, 2.16)
pt3dadd(181.12, -1176.95, -262.13, 2.16)
pt3dadd(182.04, -1178.53, -258.57, 2.16)
pt3dadd(183.22, -1180.29, -256.92, 2.16)
pt3dadd(183.59, -1182.17, -255.01, 2.01)
pt3dadd(182.43, -1182.95, -249.38, 2.01)
}
dend[29] {pt3dclear()
pt3dadd(182.43, -1182.95, -249.38, 1.71)
pt3dadd(182.76, -1184.1, -249.38, 1.71)
pt3dadd(183.63, -1185.76, -248.53, 1.71)
pt3dadd(185.2, -1186.18, -247.15, 1.71)
pt3dadd(186.67, -1186.92, -247.15, 1.56)
pt3dadd(188.3, -1188.24, -244.07, 1.56)
pt3dadd(190, -1189.92, -242.32, 1.56)
pt3dadd(190.45, -1191.87, -239.93, 1.56)
pt3dadd(191.43, -1194.78, -237.91, 1.56)
pt3dadd(192.11, -1197.66, -235.63, 1.56)
pt3dadd(192.6, -1200.28, -234.04, 1.56)
pt3dadd(192.65, -1202.07, -232.07, 1.56)
pt3dadd(192.24, -1202.76, -232.07, 1.11)
pt3dadd(191.72, -1204.71, -229.2, 1.11)
pt3dadd(191.78, -1206.05, -228.19, 1.11)
}
dend[30] {pt3dclear()
pt3dadd(191.78, -1206.05, -228.19, 1.11)
pt3dadd(192.61, -1208.01, -226.12, 1.11)
pt3dadd(193.77, -1210.59, -222.62, 1.34)
pt3dadd(195.34, -1211.99, -218.32, 1.34)
pt3dadd(196.87, -1213.55, -217.1, 1.34)
pt3dadd(198.4, -1215.18, -214.65, 1.34)
pt3dadd(199.24, -1216.69, -214.01, 1.34)
pt3dadd(201.09, -1218.42, -213.11, 1.34)
pt3dadd(203.35, -1219.41, -210.93, 1.34)
pt3dadd(204.6, -1220.64, -210.56, 1.34)
pt3dadd(204.75, -1222.56, -209.02, 1.34)
pt3dadd(206.09, -1223.92, -208.07, 1.34)
pt3dadd(207.66, -1225.32, -207.64, 1.34)
pt3dadd(209.17, -1226.28, -203.13, 1.34)
pt3dadd(210.23, -1228.28, -201.22, 1.34)
pt3dadd(211.76, -1229.39, -199.36, 1.34)
}
dend[31] {pt3dclear()
pt3dadd(211.76, -1229.39, -199.36, 1.26)
pt3dadd(212.75, -1230.66, -199.36, 1.26)
pt3dadd(215.76, -1233.56, -200.42, 1.26)
pt3dadd(217.98, -1237.17, -201.54, 1.26)
pt3dadd(218.77, -1238.84, -201.48, 1.11)
pt3dadd(219.01, -1242.77, -202.81, 1.11)
pt3dadd(219.36, -1244.06, -204.08, 1.11)
pt3dadd(221.05, -1244.77, -204.08, 1.11)
pt3dadd(223.22, -1245.63, -204.08, 1.11)
pt3dadd(228.43, -1246.23, -204.14, 1.11)
pt3dadd(230.31, -1247.21, -205.41, 1.11)
pt3dadd(232.76, -1248.4, -205.89, 1.11)
pt3dadd(234.38, -1248.66, -206.58, 1.11)
pt3dadd(237.34, -1248.87, -208.44, 1.11)
pt3dadd(239.83, -1247.96, -208.65, 1.11)
pt3dadd(242.21, -1248.71, -210.93, 1.11)
pt3dadd(244.27, -1247.94, -211.41, 1.11)
pt3dadd(247.18, -1247.33, -215.66, 1.11)
pt3dadd(249.12, -1246.28, -220.49, 1.04)
pt3dadd(251.47, -1245.91, -223.41, 1.04)
pt3dadd(251.88, -1245.62, -224.64, 1.04)
pt3dadd(253.24, -1244.96, -224.64, 1.11)
pt3dadd(255.29, -1243.9, -224.64, 1.11)
pt3dadd(257.42, -1242.55, -230.85, 0.97)
pt3dadd(258.91, -1241.96, -232.39, 0.82)
pt3dadd(258.83, -1240.92, -235.89, 0.82)
pt3dadd(260.13, -1240.51, -237.65, 0.82)
pt3dadd(261.48, -1240.02, -239.93, 0.74)
pt3dadd(261.43, -1239.13, -242.16, 0.74)
pt3dadd(263, -1239.12, -243.97, 0.74)
pt3dadd(263.63, -1238.29, -243.97, 0.74)
pt3dadd(264.22, -1238.2, -245.24, 0.74)
pt3dadd(264.96, -1238.09, -246.2, 0.74)
pt3dadd(265.87, -1238.71, -248.59, 0.74)
pt3dadd(266.75, -1238.06, -250.87, 0.74)
pt3dadd(268.24, -1236.94, -250.5, 0.74)
pt3dadd(270.23, -1236.65, -252.2, 0.74)
pt3dadd(272.05, -1235.72, -254, 0.74)
pt3dadd(273.36, -1235.97, -257.3, 0.74)
pt3dadd(275, -1234.84, -257.35, 0.74)
pt3dadd(276.81, -1233.9, -258.78, 0.74)
pt3dadd(277.85, -1234.28, -259.9, 0.74)
pt3dadd(279.67, -1233.94, -259.95, 0.74)
pt3dadd(281.28, -1233.63, -261.49, 0.74)
pt3dadd(282.58, -1232.77, -261.49, 0.74)
pt3dadd(283.79, -1232.82, -262.98, 0.74)
pt3dadd(284.72, -1233.5, -264.62, 0.74)
pt3dadd(285.69, -1233.51, -265.85, 0.74)
pt3dadd(287.29, -1233.13, -267.6, 0.74)
pt3dadd(287.22, -1232.09, -267.6, 0.59)
pt3dadd(287.72, -1231.42, -268.98, 0.59)
pt3dadd(289.19, -1231.73, -272.01, 0.59)
pt3dadd(291.08, -1231.83, -274.13, 0.59)
pt3dadd(292.93, -1232.16, -276.47, 0.59)
pt3dadd(293.78, -1232.9, -276.47, 0.52)
pt3dadd(294.76, -1233.54, -276.89, 0.52)
}
}
proc shape3d_6() {
dend[31] { pt3dadd(295.88, -1233.88, -278.33, 0.52)
pt3dadd(297.15, -1234.07, -278.43, 0.52)
pt3dadd(298.49, -1233.88, -278.43, 0.52)
}
dend[32] {pt3dclear()
pt3dadd(211.76, -1229.39, -199.36, 1.34)
pt3dadd(212.93, -1230.63, -196.86, 1.34)
pt3dadd(214.09, -1231.79, -193.3, 1.34)
pt3dadd(215.01, -1232.39, -189.85, 1.19)
pt3dadd(216.05, -1233.73, -186.82, 1.11)
pt3dadd(216.07, -1235.29, -184.7, 1.11)
pt3dadd(216.31, -1236.83, -180.72, 1.11)
pt3dadd(217.45, -1237.85, -176.89, 1.11)
pt3dadd(218.95, -1238.52, -175.62, 1.11)
pt3dadd(220.08, -1238.56, -172.06, 1.11)
pt3dadd(218.06, -1239.35, -172.06, 1.26)
pt3dadd(215.45, -1241.07, -172.06, 1.26)
pt3dadd(217.36, -1241.73, -163.09, 1.26)
pt3dadd(217.05, -1243.11, -152.73, 1.26)
pt3dadd(217.48, -1244.52, -145.03, 1.26)
pt3dadd(219.72, -1246.57, -139.24, 1.11)
pt3dadd(221.02, -1249.08, -134.2, 1.11)
pt3dadd(222.4, -1250.82, -134.14, 1.11)
pt3dadd(224.69, -1252.29, -125.54, 1.11)
pt3dadd(225.59, -1253.19, -121.82, 0.97)
pt3dadd(227.82, -1254.97, -114.23, 0.97)
pt3dadd(228.27, -1255.07, -114.23, 0.82)
pt3dadd(229.69, -1255.12, -110.3, 0.82)
pt3dadd(231.77, -1254.93, -106.32, 0.82)
pt3dadd(233.94, -1254.96, -102.97, 0.82)
pt3dadd(235.7, -1254.66, -100.05, 0.82)
pt3dadd(237.2, -1255.22, -96.07, 0.82)
pt3dadd(239.59, -1255.81, -94.79, 0.82)
pt3dadd(240.83, -1256.7, -90.97, 0.82)
pt3dadd(242.29, -1257.04, -89.32, 0.74)
pt3dadd(242.75, -1258.25, -89.27, 0.74)
pt3dadd(243.94, -1258.25, -89.32, 0.74)
pt3dadd(244.66, -1259.8, -88, 0.74)
pt3dadd(246.6, -1260.3, -86.14, 0.74)
pt3dadd(248.58, -1261.17, -82.47, 0.74)
pt3dadd(250.62, -1261.88, -81.15, 0.74)
pt3dadd(251.89, -1263.06, -78.01, 0.74)
pt3dadd(252.97, -1262.7, -77.27, 0.74)
pt3dadd(254.62, -1263.98, -76.58, 0.74)
pt3dadd(256.34, -1265.7, -74.88, 0.74)
pt3dadd(258.14, -1266.37, -72.54, 0.74)
pt3dadd(259.6, -1266.04, -68.03, 0.74)
pt3dadd(259.87, -1266.38, -60.97, 0.74)
pt3dadd(258.82, -1266.96, -55.28, 0.74)
pt3dadd(259.58, -1266.43, -55.28, 0.82)
pt3dadd(260.04, -1266.15, -47.9, 0.82)
pt3dadd(260.63, -1266.17, -40.36, 0.82)
pt3dadd(261.77, -1265.61, -37.33, 0.82)
pt3dadd(262.98, -1264.99, -28.68, 0.82)
pt3dadd(264.09, -1265.17, -24.69, 0.82)
pt3dadd(264.37, -1265.47, -18.8, 0.82)
pt3dadd(264.48, -1266.81, -14.87, 0.82)
pt3dadd(263.55, -1267.96, -12.75, 0.82)
pt3dadd(263.59, -1269, -11.63, 0.82)
pt3dadd(263.99, -1270.34, -10.41, 0.82)
pt3dadd(264.47, -1271.76, -7.22, 0.82)
pt3dadd(265.18, -1272.52, -2.28, 0.82)
pt3dadd(266.51, -1272.86, -0.48, 0.82)
pt3dadd(267.45, -1273.63, 1.33, 0.82)
pt3dadd(267.47, -1273.95, 1.33, 0.52)
pt3dadd(267.28, -1274.83, 7.59, 0.52)
pt3dadd(268.28, -1275.55, 11.47, 0.52)
pt3dadd(268.66, -1276.9, 18.32, 0.52)
pt3dadd(269.42, -1276.56, 26.61, 0.52)
}
dend[33] {pt3dclear()
pt3dadd(191.78, -1206.05, -228.19, 1.11)
pt3dadd(192.34, -1209.17, -231.27, 1.11)
pt3dadd(192.31, -1210.9, -231.27, 1.11)
pt3dadd(192.06, -1213.11, -231.27, 1.11)
pt3dadd(191.4, -1214.7, -231.27, 1.11)
pt3dadd(191.39, -1217.02, -231.22, 1.11)
pt3dadd(191.08, -1220.29, -233.08, 1.11)
pt3dadd(191.5, -1221.39, -233.08, 1.19)
pt3dadd(191.76, -1224.71, -233.08, 1.19)
pt3dadd(191.84, -1225.03, -233.08, 1.04)
pt3dadd(192.75, -1227.43, -233.08, 1.04)
pt3dadd(192.4, -1230.48, -233.08, 1.04)
pt3dadd(192.76, -1230.09, -233.08, 1.19)
pt3dadd(194.22, -1231.82, -235.26, 0.97)
pt3dadd(194.8, -1233.75, -235.26, 0.97)
pt3dadd(194.85, -1234.11, -235.26, 0.97)
pt3dadd(195.58, -1235.4, -235.31, 0.89)
pt3dadd(196.7, -1237.93, -236.64, 0.89)
pt3dadd(197.11, -1239.21, -236.64, 0.89)
pt3dadd(198.34, -1240.45, -236.74, 0.89)
pt3dadd(199.23, -1242.41, -239.24, 0.89)
pt3dadd(200.47, -1244.77, -239.29, 0.89)
pt3dadd(202.18, -1247.21, -239.29, 0.89)
pt3dadd(203.46, -1248.81, -240.36, 0.89)
pt3dadd(204.82, -1249.89, -242.96, 0.89)
pt3dadd(206.37, -1250.71, -242.96, 0.89)
pt3dadd(207.64, -1251.72, -245.93, 0.89)
pt3dadd(211.22, -1255.15, -248.43, 0.89)
pt3dadd(213.48, -1256.76, -250.45, 0.89)
pt3dadd(215.95, -1259.32, -252.99, 0.89)
pt3dadd(217.49, -1260.59, -254.8, 0.89)
pt3dadd(219.7, -1262.35, -255.76, 0.89)
pt3dadd(221.53, -1264.63, -257.4, 0.89)
pt3dadd(223.42, -1266.74, -258.46, 0.89)
pt3dadd(224.18, -1267.83, -258.46, 0.89)
pt3dadd(225.45, -1269.36, -258.46, 0.89)
pt3dadd(228.5, -1271.46, -258.57, 0.89)
pt3dadd(230.9, -1272.98, -259.26, 0.82)
pt3dadd(232.65, -1274.74, -261.65, 0.82)
pt3dadd(234.03, -1276.48, -261.65, 0.82)
pt3dadd(235.98, -1279.04, -262.71, 0.82)
pt3dadd(237.42, -1280.69, -263.51, 0.82)
pt3dadd(238.75, -1281.55, -265.26, 0.82)
pt3dadd(241.01, -1282.64, -267.12, 0.82)
pt3dadd(242.82, -1284.76, -268.5, 0.82)
pt3dadd(244.52, -1286.61, -270.15, 0.82)
pt3dadd(245.47, -1288.48, -272.11, 0.82)
pt3dadd(246.35, -1289.92, -272.11, 0.82)
pt3dadd(248.12, -1291.76, -274.45, 0.82)
pt3dadd(249.68, -1293.69, -275.46, 0.82)
pt3dadd(250.84, -1295.99, -277.37, 0.82)
pt3dadd(252.01, -1298.36, -278.43, 0.82)
pt3dadd(253.62, -1301.71, -279.18, 0.82)
pt3dadd(253.86, -1304.36, -279.81, 0.82)
pt3dadd(254.07, -1306.05, -278.54, 0.82)
pt3dadd(253.95, -1308.83, -277.21, 0.82)
pt3dadd(254.31, -1310.8, -277.16, 0.82)
pt3dadd(256.49, -1317.05, -275.72, 0.82)
pt3dadd(257.9, -1320.5, -275.72, 0.82)
pt3dadd(259.26, -1323.14, -275.72, 0.82)
pt3dadd(260.73, -1326.58, -273.97, 0.82)
pt3dadd(262.26, -1328.83, -272.11, 0.82)
pt3dadd(263.51, -1331.18, -270.73, 0.82)
pt3dadd(265.85, -1334.43, -270.04, 0.59)
pt3dadd(268.39, -1336.89, -273.12, 0.59)
pt3dadd(269.44, -1339.43, -273.12, 0.59)
pt3dadd(271.44, -1341.3, -273.17, 0.59)
pt3dadd(272.51, -1342.63, -272.64, 0.59)
}
dend[34] {pt3dclear()
pt3dadd(182.43, -1182.95, -249.38, 1.78)
pt3dadd(181.15, -1183.38, -246.67, 1.78)
pt3dadd(180.72, -1184.04, -243.17, 1.78)
pt3dadd(180.11, -1184.44, -238.66, 1.78)
pt3dadd(180.86, -1185.37, -232.55, 1.78)
pt3dadd(181.15, -1186.13, -232.55, 1.26)
pt3dadd(180.47, -1186.62, -229.47, 1.26)
pt3dadd(179.88, -1187.16, -224.16, 1.26)
pt3dadd(179.34, -1188.51, -222.51, 1.26)
pt3dadd(178.44, -1189.48, -221.13, 1.26)
pt3dadd(178.11, -1190.28, -218.95, 1.26)
pt3dadd(177.88, -1191.21, -215.34, 1.26)
pt3dadd(178.07, -1192.9, -212.21, 1.26)
pt3dadd(177.07, -1194.18, -210.4, 1.26)
pt3dadd(175.14, -1195.75, -209.13, 1.26)
pt3dadd(174.05, -1197.49, -207.16, 1.26)
}
dend[35] {pt3dclear()
pt3dadd(174.05, -1197.49, -207.16, 1.26)
pt3dadd(173.12, -1198.11, -204.35, 1.26)
pt3dadd(171.46, -1198.07, -196.92, 1.26)
pt3dadd(170.15, -1198.8, -194.68, 1.26)
pt3dadd(168.48, -1199.21, -193.46, 1.26)
pt3dadd(167.98, -1200.33, -189.85, 1.26)
pt3dadd(166.12, -1200.48, -185.34, 1.26)
pt3dadd(164.31, -1200.46, -181.3, 1.26)
pt3dadd(162.14, -1200.5, -179.39, 1.26)
pt3dadd(161.14, -1200.36, -176.58, 1.26)
pt3dadd(160.54, -1200.46, -176.58, 1.19)
pt3dadd(159.21, -1200.49, -171.74, 1.19)
pt3dadd(157.01, -1200.85, -166.54, 1.19)
pt3dadd(155.68, -1201.14, -164.31, 1.19)
}
dend[36] {pt3dclear()
pt3dadd(155.68, -1201.14, -164.31, 1.19)
pt3dadd(154.95, -1201.92, -162.18, 1.19)
pt3dadd(153.19, -1202.78, -158.31, 1.19)
pt3dadd(151.84, -1203.18, -158.15, 1.11)
pt3dadd(150.53, -1203.37, -149.23, 1.11)
}
dend[37] {pt3dclear()
pt3dadd(150.53, -1203.37, -149.23, 0.97)
pt3dadd(149.77, -1201.11, -142.8, 0.97)
pt3dadd(148.52, -1200.09, -137.81, 0.97)
pt3dadd(146.49, -1199.25, -133.35, 0.97)
pt3dadd(141.38, -1198.66, -127.77, 0.97)
pt3dadd(139.07, -1197.3, -126.71, 0.97)
pt3dadd(136.35, -1196.76, -122.41, 0.97)
pt3dadd(135.24, -1196.99, -122.41, 0.97)
pt3dadd(136.67, -1196.4, -122.41, 0.82)
pt3dadd(136.27, -1196.23, -119.22, 0.82)
pt3dadd(135.81, -1196.14, -114.76, 0.82)
pt3dadd(134.89, -1196.55, -111.57, 0.82)
pt3dadd(134.7, -1196.8, -108.18, 0.82)
pt3dadd(134.19, -1196.34, -106.26, 0.82)
pt3dadd(134.03, -1195.69, -104.56, 0.82)
pt3dadd(133.71, -1195.51, -101.48, 0.82)
pt3dadd(133.68, -1195.29, -98.4, 0.82)
pt3dadd(133.67, -1195.21, -95.7, 0.82)
pt3dadd(133.52, -1195.16, -93.31, 0.82)
pt3dadd(133.42, -1194.95, -89.85, 0.82)
pt3dadd(134.16, -1194.93, -88.05, 0.82)
pt3dadd(134.5, -1194.07, -84.92, 0.82)
pt3dadd(133.83, -1192.89, -81.52, 0.82)
pt3dadd(133.6, -1191.65, -81.52, 0.82)
pt3dadd(133.3, -1190.42, -78.6, 0.82)
pt3dadd(132.53, -1189.7, -76.47, 0.82)
pt3dadd(131.17, -1188.38, -76.42, 0.67)
pt3dadd(130.17, -1186.94, -73.44, 0.67)
pt3dadd(130.06, -1188.35, -73.44, 0.97)
pt3dadd(130.12, -1186.65, -65.85, 0.97)
}
}
proc shape3d_7() {
dend[37] { pt3dadd(129.47, -1185.74, -65, 0.82)
pt3dadd(128.99, -1184.69, -60.17, 0.82)
pt3dadd(128.82, -1183.06, -57.94, 0.82)
pt3dadd(127.62, -1181.02, -57.94, 0.82)
pt3dadd(126.93, -1179.3, -54.49, 0.82)
pt3dadd(126.9, -1178.04, -50.34, 0.82)
}
dend[38] {pt3dclear()
pt3dadd(150.53, -1203.37, -149.23, 0.97)
pt3dadd(151.8, -1203.12, -139.45, 0.97)
pt3dadd(153.02, -1203.44, -137.22, 0.97)
pt3dadd(154.97, -1203.25, -130, 0.97)
pt3dadd(156.3, -1202.43, -123.31, 0.97)
pt3dadd(157.35, -1202.77, -118.05, 0.97)
pt3dadd(158.18, -1203.18, -116.89, 0.97)
pt3dadd(159.41, -1202.64, -116.89, 0.89)
pt3dadd(160.43, -1202.36, -114.81, 0.89)
pt3dadd(161.9, -1202.18, -111.63, 0.89)
pt3dadd(162.54, -1202.47, -107.06, 0.89)
pt3dadd(163.79, -1202.31, -104.72, 0.89)
pt3dadd(164.88, -1203.22, -101.11, 0.89)
pt3dadd(164.43, -1203.87, -98.78, 0.89)
pt3dadd(164.7, -1204.21, -95.32, 0.89)
pt3dadd(166.16, -1204.47, -94.47, 0.82)
pt3dadd(167.03, -1204.88, -92.99, 0.82)
pt3dadd(167.81, -1205.08, -91.13, 0.82)
pt3dadd(168.4, -1205.61, -89, 0.82)
pt3dadd(169.57, -1205.38, -87.84, 0.82)
pt3dadd(170.56, -1204.96, -87.73, 0.82)
pt3dadd(171.12, -1206.38, -87.25, 0.82)
pt3dadd(172.31, -1206.38, -84.33, 0.82)
pt3dadd(172.73, -1206.11, -79.5, 0.82)
pt3dadd(174.01, -1206.17, -75.62, 0.82)
pt3dadd(174.99, -1205.6, -73.44, 0.82)
pt3dadd(176.14, -1205.83, -70.26, 0.82)
pt3dadd(177.04, -1206.46, -66.54, 0.82)
pt3dadd(178.09, -1207.07, -64.1, 0.82)
pt3dadd(179.58, -1207.56, -60.17, 0.82)
pt3dadd(181.11, -1208.41, -58.89, 0.82)
pt3dadd(181.4, -1209.06, -58.89, 0.74)
pt3dadd(183.25, -1209.49, -52.31, 0.74)
pt3dadd(184.19, -1210.11, -49.81, 0.74)
pt3dadd(186.2, -1210.03, -47.26, 0.74)
pt3dadd(188.07, -1209.87, -45.99, 0.74)
pt3dadd(189.54, -1210.36, -42.17, 0.74)
pt3dadd(191.39, -1210.5, -39.46, 0.74)
pt3dadd(192.9, -1209.88, -34.78, 0.74)
pt3dadd(195.12, -1210.4, -32.39, 0.74)
pt3dadd(196.35, -1211.17, -27.14, 0.74)
pt3dadd(196.96, -1210.97, -20.39, 0.74)
pt3dadd(197.82, -1211.81, -13.6, 0.74)
pt3dadd(198.06, -1213.6, -14.39, 0.74)
pt3dadd(198.08, -1215.22, -9.24, 0.74)
}
dend[39] {pt3dclear()
pt3dadd(198.08, -1215.22, -9.24, 0.59)
pt3dadd(197.45, -1216.38, -8.5, 0.59)
pt3dadd(196.61, -1219.17, -4.57, 0.59)
pt3dadd(196.54, -1221.53, -4.51, 0.59)
pt3dadd(196.98, -1222.49, -4.51, 0.67)
pt3dadd(197.58, -1223.78, -3.66, 0.67)
pt3dadd(197.78, -1224.38, -3.03, 0.67)
pt3dadd(198.41, -1225.23, -3.03, 0.67)
pt3dadd(199.36, -1226.97, -0.9, 0.67)
pt3dadd(200.33, -1228.43, 1.54, 0.67)
pt3dadd(200.81, -1229.34, 3.29, 0.67)
pt3dadd(202.39, -1230.45, 3.5, 0.52)
pt3dadd(203.92, -1231.19, 5.47, 0.52)
pt3dadd(204.83, -1232.27, 8.82, 0.52)
pt3dadd(204.93, -1233.31, 9.56, 0.52)
pt3dadd(205.87, -1233.8, 9.88, 0.52)
pt3dadd(206.99, -1235.19, 11.84, 0.52)
pt3dadd(207.22, -1236.75, 15.88, 0.52)
pt3dadd(208.18, -1238.28, 17.47, 0.52)
pt3dadd(208.65, -1239.34, 19.65, 0.52)
pt3dadd(209.84, -1240.88, 22.57, 0.52)
pt3dadd(210.78, -1241.52, 26.66, 0.52)
pt3dadd(212.53, -1242.19, 28.68, 0.52)
pt3dadd(214.17, -1243.53, 30.48, 0.52)
pt3dadd(215.39, -1244.48, 33.78, 0.52)
pt3dadd(216.66, -1245.87, 32.45, 0.3)
pt3dadd(218.01, -1247.2, 34.68, 0.3)
pt3dadd(218.89, -1248.94, 34.68, 0.3)
pt3dadd(219.91, -1250.92, 34.68, 0.3)
}
dend[40] {pt3dclear()
pt3dadd(198.08, -1215.22, -9.24, 0.59)
pt3dadd(197.27, -1214.9, -8.34, 0.59)
pt3dadd(197.54, -1213.58, -1.12, 0.59)
pt3dadd(196.74, -1213.68, -1.12, 0.74)
pt3dadd(196.15, -1213.58, 1.96, 0.74)
pt3dadd(195.07, -1212.78, 6.27, 0.74)
pt3dadd(194.75, -1211.8, 9.19, 0.74)
pt3dadd(195.48, -1210.58, 11.15, 0.74)
pt3dadd(194.81, -1209, 13.12, 0.74)
pt3dadd(194.99, -1208.41, 15.93, 0.74)
pt3dadd(195.42, -1207.25, 18.64, 0.74)
pt3dadd(195.65, -1205.71, 20.45, 0.74)
pt3dadd(195.23, -1205.1, 23.21, 0.74)
pt3dadd(195.19, -1204.43, 28.25, 0.74)
pt3dadd(194.92, -1203.82, 32.66, 0.74)
pt3dadd(195.11, -1202.95, 34.41, 0.74)
pt3dadd(195.57, -1202.67, 40.04, 0.74)
pt3dadd(195.26, -1201.55, 43.97, 0.74)
pt3dadd(195.3, -1200.59, 48.11, 0.74)
pt3dadd(194.89, -1199.98, 55.6, 0.74)
pt3dadd(195.28, -1199.62, 56.72, 0.74)
pt3dadd(194.75, -1199.46, 56.72, 0.52)
pt3dadd(194.86, -1199.33, 61.71, 0.52)
pt3dadd(195.38, -1199.39, 65.59, 0.52)
pt3dadd(196.1, -1200.55, 67.23, 0.52)
pt3dadd(197.09, -1201.17, 70.05, 0.52)
pt3dadd(197.83, -1201.58, 72.49, 0.52)
pt3dadd(198.97, -1201.32, 75.68, 0.52)
pt3dadd(199.6, -1200.94, 78.97, 0.52)
pt3dadd(198.8, -1198.85, 82.53, 0.52)
pt3dadd(198.01, -1197.06, 85.77, 0.52)
pt3dadd(197.38, -1194.93, 88.9, 0.52)
pt3dadd(196.52, -1192.82, 92.83, 0.52)
}
dend[41] {pt3dclear()
pt3dadd(155.68, -1201.14, -164.31, 0.97)
pt3dadd(153.51, -1200.76, -164.31, 0.97)
pt3dadd(148.99, -1201.02, -160.8, 0.97)
pt3dadd(146.84, -1201.44, -157.67, 0.89)
pt3dadd(145.35, -1201.39, -157.03, 0.89)
pt3dadd(142.28, -1202.44, -154.59, 0.89)
pt3dadd(141.08, -1204.36, -148.91, 0.89)
pt3dadd(139.52, -1205.62, -145.08, 0.89)
pt3dadd(137.7, -1206.79, -145.08, 0.82)
pt3dadd(136.22, -1207.65, -140.15, 0.82)
pt3dadd(132.69, -1207.39, -135.37, 0.82)
pt3dadd(130.84, -1207.33, -135.95, 0.82)
}
dend[42] {pt3dclear()
pt3dadd(130.84, -1207.33, -135.95, 0.67)
pt3dadd(129.77, -1208.79, -132.71, 0.67)
pt3dadd(127.06, -1210.23, -130.43, 0.67)
pt3dadd(126.73, -1210.45, -130.43, 0.74)
pt3dadd(124.82, -1210.76, -127.61, 0.59)
pt3dadd(124.23, -1211.43, -124.48, 0.37)
pt3dadd(124.17, -1212.18, -119.38, 0.37)
pt3dadd(124.81, -1212.47, -114.76, 0.37)
pt3dadd(123.24, -1212.52, -109.98, 0.37)
pt3dadd(119.48, -1213.59, -106.95, 0.37)
pt3dadd(115.09, -1213.24, -100.85, 0.37)
}
dend[43] {pt3dclear()
pt3dadd(130.84, -1207.33, -135.95, 0.67)
pt3dadd(129.86, -1206.31, -135.9, 0.67)
pt3dadd(128.72, -1204.67, -133.83, 0.67)
pt3dadd(127, -1204.15, -133.83, 0.67)
pt3dadd(123.58, -1202.48, -130, 0.67)
pt3dadd(119.72, -1200.84, -130.59, 0.67)
pt3dadd(119.09, -1200.76, -130.59, 0.52)
pt3dadd(117.33, -1199.87, -128.94, 0.52)
pt3dadd(115.51, -1197.86, -127.29, 0.52)
pt3dadd(112.89, -1195.51, -126.18, 0.52)
pt3dadd(110.68, -1193.4, -124.74, 0.52)
pt3dadd(107.98, -1190.99, -124.64, 0.52)
pt3dadd(104.11, -1189.39, -123.58, 0.52)
pt3dadd(101.57, -1186.5, -122.78, 0.52)
pt3dadd(98.31, -1184.42, -120.23, 0.52)
pt3dadd(95.83, -1182.57, -117.73, 0.52)
pt3dadd(89.89, -1180.04, -114.28, 0.45)
pt3dadd(84.54, -1178.55, -115.56, 0.45)
pt3dadd(80.43, -1178.03, -115.56, 0.45)
pt3dadd(77.99, -1175.95, -115.56, 0.45)
pt3dadd(73.58, -1173.6, -115.5, 0.37)
pt3dadd(69.76, -1171.24, -117.73, 0.3)
pt3dadd(67.31, -1168.42, -117.58, 0.3)
pt3dadd(67.45, -1165.95, -123.95, 0.3)
pt3dadd(66.64, -1164.26, -124.11, 0.3)
}
dend[44] {pt3dclear()
pt3dadd(174.05, -1197.49, -207.16, 1.19)
pt3dadd(174, -1199.07, -207.06, 1.19)
pt3dadd(173.74, -1200.31, -204.46, 1.11)
pt3dadd(173.62, -1202.42, -203.61, 1.11)
pt3dadd(172.96, -1203.95, -202.07, 1.11)
pt3dadd(172.77, -1205.62, -200.69, 1.11)
pt3dadd(173.15, -1207.06, -200.69, 1.11)
pt3dadd(172.27, -1208.69, -197.82, 1.11)
pt3dadd(172.52, -1209.77, -197.71, 1.11)
pt3dadd(171.27, -1211.39, -197.71, 1.11)
pt3dadd(170.39, -1213.02, -196.07, 1.11)
pt3dadd(170.1, -1215.01, -194.68, 1.11)
pt3dadd(169.52, -1218.02, -189.53, 1.11)
pt3dadd(170.75, -1220.39, -187.41, 1.04)
pt3dadd(170.98, -1222.37, -182.52, 1.04)
pt3dadd(171.19, -1224.21, -178.17, 1.04)
pt3dadd(171.12, -1225.19, -178.12, 1.04)
pt3dadd(170.71, -1225.51, -178.12, 0.82)
pt3dadd(170.76, -1227.27, -173.18, 0.82)
pt3dadd(170.51, -1228.35, -172.75, 0.82)
pt3dadd(171.57, -1230.13, -168.03, 0.82)
pt3dadd(172.06, -1232.67, -166.59, 0.82)
pt3dadd(173.09, -1234.02, -166.38, 0.82)
pt3dadd(172.29, -1236.64, -161.6, 0.82)
pt3dadd(173.04, -1238.37, -160.54, 0.82)
pt3dadd(172.64, -1240.54, -157.83, 0.82)
pt3dadd(173.19, -1242.76, -157.83, 0.82)
pt3dadd(173.23, -1244.9, -156.08, 0.82)
pt3dadd(173.99, -1246.53, -156.02, 0.82)
pt3dadd(173.88, -1248.05, -156.02, 0.82)
pt3dadd(174.81, -1249.65, -151.88, 0.82)
pt3dadd(175.24, -1250.79, -151.83, 0.82)
pt3dadd(176.51, -1252.27, -147.47, 0.82)
pt3dadd(177.86, -1255.65, -145.51, 0.82)
pt3dadd(180.04, -1259.18, -141.15, 0.82)
pt3dadd(181.77, -1261.93, -139.56, 0.82)
pt3dadd(184.17, -1263.69, -136.96, 0.82)
pt3dadd(185.73, -1266.47, -135.15, 0.82)
pt3dadd(185.92, -1268.04, -127.19, 0.82)
}
}
proc shape3d_8() {
dend[44] { pt3dadd(186.28, -1269.6, -123.2, 0.82)
pt3dadd(186.43, -1270.1, -123.2, 0.52)
pt3dadd(188.13, -1271.08, -114.97, 0.52)
pt3dadd(190.78, -1273.13, -114.87, 0.52)
pt3dadd(192.34, -1275.39, -113.01, 0.52)
}
dend[45] {pt3dclear()
pt3dstyle(1, 177.454, -1163.48, -311.826)
pt3dadd(176.03, -1158.38, -326.92, 1.93)
pt3dadd(178.7, -1155.77, -343.11, 1.93)
pt3dadd(179.27, -1154.66, -346.51, 1.93)
pt3dadd(178.06, -1153.13, -350.34, 1.93)
pt3dadd(177.8, -1151.21, -351.19, 1.78)
pt3dadd(177.99, -1149.21, -354.21, 1.78)
pt3dadd(178.48, -1147.72, -358.14, 1.78)
pt3dadd(177.86, -1146.03, -363.29, 1.78)
pt3dadd(178.32, -1142.85, -365.15, 1.78)
}
dend[46] {pt3dclear()
pt3dadd(178.32, -1142.85, -365.15, 1.34)
pt3dadd(177.03, -1141.17, -367.7, 1.34)
pt3dadd(176.58, -1140.88, -370.36, 1.34)
pt3dadd(176.66, -1140.93, -370.36, 1.34)
pt3dadd(175.86, -1139.02, -371.37, 1.34)
pt3dadd(175.14, -1137.05, -373.33, 1.34)
pt3dadd(174.54, -1135.63, -376.09, 1.34)
pt3dadd(173.37, -1132.59, -380.13, 1.34)
pt3dadd(172.66, -1130.92, -384.75, 1.34)
pt3dadd(171.77, -1129.07, -384.75, 1.34)
pt3dadd(170.92, -1127.37, -389.1, 1.34)
pt3dadd(169.55, -1126.32, -389.16, 1.34)
pt3dadd(169.32, -1124.91, -392.34, 1.34)
pt3dadd(170.14, -1123.58, -392.34, 1.34)
pt3dadd(169.85, -1122.46, -394.04, 1.34)
pt3dadd(167.19, -1121.73, -393.99, 1.34)
pt3dadd(166.5, -1121.06, -397.71, 1.34)
}
dend[47] {pt3dclear()
pt3dadd(166.5, -1121.06, -397.71, 1.41)
pt3dadd(167.16, -1119.7, -399.46, 1.41)
pt3dadd(166.9, -1117, -401.05, 1.34)
pt3dadd(166.46, -1115.16, -405.51, 1.34)
pt3dadd(167.02, -1113.62, -405.51, 1.34)
pt3dadd(167.26, -1111.48, -409.39, 1.34)
pt3dadd(166.39, -1109.86, -414.12, 1.34)
pt3dadd(166.73, -1108.27, -414.17, 1.34)
pt3dadd(166.3, -1106.06, -418.84, 1.34)
pt3dadd(166.21, -1104.68, -418.79, 1.34)
pt3dadd(165.59, -1103.34, -421.87, 1.34)
pt3dadd(164.9, -1101.6, -426.44, 1.34)
pt3dadd(164.33, -1100.55, -426.44, 1.34)
pt3dadd(163.56, -1099.91, -428.14, 1.34)
pt3dadd(163.64, -1098.43, -431.22, 1.34)
pt3dadd(164.15, -1096.27, -435.78, 1.34)
pt3dadd(164.63, -1094.76, -439.02, 1.34)
pt3dadd(164.98, -1093.89, -439.77, 1.34)
}
dend[48] {pt3dclear()
pt3dadd(164.98, -1093.89, -439.77, 1.26)
pt3dadd(166.83, -1093.53, -441.2, 1.26)
pt3dadd(168.84, -1092, -443.38, 1.26)
pt3dadd(170.37, -1090.69, -445.34, 1.26)
pt3dadd(172.31, -1088.46, -448.42, 1.26)
pt3dadd(173.31, -1086.65, -450.6, 1.26)
pt3dadd(174.15, -1085.07, -453.57, 1.26)
pt3dadd(174.94, -1083.35, -456.28, 1.26)
pt3dadd(175.86, -1082.31, -456.34, 1.26)
pt3dadd(176.29, -1080.5, -461.11, 1.26)
pt3dadd(177.33, -1079, -461.11, 1.26)
pt3dadd(178.31, -1076.23, -467.33, 1.26)
pt3dadd(178.38, -1074.91, -467.33, 1.26)
pt3dadd(178.78, -1073.6, -471.2, 1.26)
pt3dadd(179.5, -1072.48, -474.18, 1.26)
pt3dadd(180.76, -1069.43, -476.67, 1.19)
pt3dadd(181.44, -1068, -480.02, 1.19)
pt3dadd(181.56, -1068.03, -480.02, 1.34)
pt3dadd(182.2, -1066.11, -482.73, 1.34)
pt3dadd(183.01, -1064.58, -484.43, 1.34)
pt3dadd(184.15, -1063.32, -487.03, 1.34)
pt3dadd(184.58, -1061.81, -489.9, 1.34)
pt3dadd(185.51, -1060.52, -492.45, 1.34)
pt3dadd(185.9, -1059.31, -493.72, 1.34)
pt3dadd(186.59, -1058.13, -497.01, 1.34)
pt3dadd(187.23, -1057.25, -498.66, 1.34)
pt3dadd(187.91, -1056.19, -499.83, 1.34)
pt3dadd(189.22, -1054.88, -502.48, 1.26)
pt3dadd(190.54, -1054.02, -504.18, 1.26)
pt3dadd(190.86, -1052.72, -504.34, 1.26)
pt3dadd(191.18, -1051.5, -506.63, 1.26)
pt3dadd(192.4, -1050.84, -506.63, 1.19)
pt3dadd(193.5, -1050.47, -507.79, 1.19)
pt3dadd(193.86, -1048.88, -510.08, 1.19)
pt3dadd(194.06, -1047.41, -513.37, 1.19)
pt3dadd(193.81, -1045.96, -514.22, 1.19)
}
dend[49] {pt3dclear()
pt3dadd(193.81, -1045.96, -514.22, 1.11)
pt3dadd(192.84, -1045.38, -516.34, 1.11)
pt3dadd(192.36, -1044.5, -519.16, 0.97)
pt3dadd(190.47, -1043.49, -519.16, 0.97)
pt3dadd(186.86, -1041.96, -520.27, 0.97)
pt3dadd(185.03, -1041.04, -520.27, 0.97)
pt3dadd(182.28, -1038.65, -520.49, 0.97)
pt3dadd(181.39, -1037.48, -521.18, 0.97)
pt3dadd(181.09, -1035.87, -521.18, 0.97)
pt3dadd(180.62, -1033.8, -522.35, 0.97)
pt3dadd(180.03, -1033.19, -522.35, 0.97)
pt3dadd(178.88, -1031.7, -524.68, 0.97)
pt3dadd(179.56, -1030, -525, 0.97)
pt3dadd(179.46, -1027.97, -528.56, 0.97)
pt3dadd(178.34, -1025.81, -531.96, 0.97)
pt3dadd(176.12, -1023.34, -531.96, 0.89)
pt3dadd(175.72, -1023.12, -531.96, 0.74)
pt3dadd(174.52, -1022.09, -534.61, 0.74)
pt3dadd(173.6, -1020.54, -537.16, 0.74)
pt3dadd(172.67, -1019.16, -538.44, 0.74)
pt3dadd(170.52, -1017.54, -539.45, 0.74)
pt3dadd(169.35, -1016.17, -540.93, 0.74)
pt3dadd(167.88, -1014.45, -540.99, 0.74)
pt3dadd(167.06, -1012.15, -543.8, 0.74)
pt3dadd(165.67, -1010.23, -544.17, 0.74)
pt3dadd(163.72, -1007.26, -545.71, 0.74)
pt3dadd(163.11, -1004.25, -548.1, 0.74)
pt3dadd(162.01, -1002.06, -548.1, 0.74)
pt3dadd(160.5, -1000.05, -548.1, 0.74)
pt3dadd(159.74, -997.89, -548.1, 0.74)
pt3dadd(159.09, -994.58, -548.1, 0.67)
pt3dadd(157.46, -991.01, -548.42, 0.67)
pt3dadd(155.48, -989.4, -548.42, 0.67)
pt3dadd(153.84, -988.06, -548.42, 0.67)
pt3dadd(150.05, -984.7, -547.3, 0.67)
pt3dadd(148.88, -982.7, -547.3, 0.67)
pt3dadd(146.75, -980.51, -547.3, 0.67)
pt3dadd(144.68, -978.07, -547.3, 0.67)
pt3dadd(142.01, -975.3, -546.3, 0.67)
pt3dadd(140.4, -972.2, -546.3, 0.67)
pt3dadd(139.82, -968.86, -546.3, 0.67)
pt3dadd(139.34, -965.15, -546.3, 0.67)
pt3dadd(139.17, -961.65, -547.15, 0.67)
pt3dadd(137.92, -956.18, -547.78, 0.67)
pt3dadd(137.48, -953.42, -547.78, 0.67)
pt3dadd(137.5, -951.43, -547.78, 0.67)
pt3dadd(137.23, -949.08, -550.38, 0.52)
pt3dadd(135.8, -946.86, -552.14, 0.52)
pt3dadd(134.27, -943.34, -554.31, 0.52)
pt3dadd(132.41, -941.84, -554.31, 0.52)
pt3dadd(131.18, -940.73, -554.31, 0.52)
}
dend[50] {pt3dclear()
pt3dadd(193.81, -1045.96, -514.22, 1.11)
pt3dadd(195.2, -1045.7, -514.75, 1.11)
pt3dadd(196.27, -1044.96, -517.41, 1.11)
pt3dadd(196.89, -1043.77, -517.46, 1.11)
pt3dadd(197.77, -1042.78, -517.41, 1.11)
pt3dadd(198.47, -1041.53, -520.06, 1.11)
pt3dadd(198.81, -1040.08, -522.98, 1.11)
pt3dadd(198.78, -1038.66, -522.98, 1.11)
pt3dadd(199.68, -1037.07, -527.07, 1.11)
pt3dadd(200.88, -1034.85, -529.36, 1.11)
pt3dadd(200.68, -1034.11, -529.36, 0.82)
pt3dadd(201.74, -1032.51, -532.54, 0.82)
pt3dadd(202.7, -1031.1, -534.51, 0.82)
pt3dadd(203.48, -1029.21, -540.19, 0.82)
pt3dadd(203.35, -1027.04, -545.45, 0.82)
pt3dadd(204.53, -1025.15, -547.2, 0.82)
pt3dadd(205.13, -1023.41, -549.06, 0.82)
pt3dadd(205.5, -1022.32, -553.15, 0.82)
pt3dadd(205.57, -1021.26, -558.35, 0.82)
pt3dadd(205.99, -1018.88, -559.94, 0.82)
pt3dadd(206.27, -1017.34, -562.44, 0.82)
pt3dadd(206.4, -1016.02, -566.42, 0.82)
pt3dadd(206.77, -1013.9, -568.65, 0.82)
pt3dadd(207.53, -1012.17, -568.97, 0.82)
pt3dadd(208.29, -1009.81, -571.31, 0.82)
pt3dadd(207.77, -1007.88, -574.65, 0.82)
pt3dadd(207.78, -1005.65, -576.09, 0.82)
pt3dadd(208.29, -1003.47, -579.7, 0.82)
pt3dadd(209.01, -1001.44, -581.5, 0.82)
pt3dadd(210.42, -1001.49, -581.5, 0.97)
pt3dadd(211.37, -998.94, -583.89, 0.97)
pt3dadd(212.82, -996.15, -586.92, 0.97)
pt3dadd(214.29, -993.73, -589.42, 0.97)
pt3dadd(215.22, -990.95, -592.5, 0.97)
pt3dadd(216.46, -988.25, -595.37, 0.97)
pt3dadd(217.49, -985.99, -597.65, 0.97)
pt3dadd(218.33, -984.62, -602.69, 0.97)
pt3dadd(218.84, -982.53, -606.68, 0.97)
pt3dadd(219.84, -981.46, -610.93, 0.97)
pt3dadd(221.33, -979.48, -617.56, 0.97)
pt3dadd(223.44, -978.29, -619, 0.97)
pt3dadd(225.33, -977.18, -619.85, 0.97)
pt3dadd(227.66, -975.76, -623.72, 0.97)
pt3dadd(230.05, -974.12, -626.91, 0.97)
pt3dadd(231.23, -972.08, -628.45, 0.97)
pt3dadd(233.22, -969.63, -633.34, 0.97)
pt3dadd(234.45, -966.85, -637.64, 0.97)
pt3dadd(234.39, -966.78, -637.64, 0.74)
pt3dadd(234.64, -965.25, -641.04, 0.74)
pt3dadd(236.12, -963.35, -644.86, 0.74)
pt3dadd(237.17, -962.24, -647.36, 0.74)
pt3dadd(237.22, -959.77, -649.11, 0.74)
pt3dadd(237.21, -957.99, -652.56, 0.74)
pt3dadd(238.47, -956.7, -654.26, 0.74)
pt3dadd(240.16, -956.48, -658.03, 0.74)
pt3dadd(241.31, -956.11, -658.03, 0.74)
pt3dadd(242.35, -957.16, -658.03, 0.74)
pt3dadd(243.5, -957.31, -659.25, 0.74)
pt3dadd(245.29, -957.3, -661.22, 0.74)
pt3dadd(246.44, -956.92, -663.55, 0.74)
pt3dadd(247.19, -956.3, -668.33, 0.74)
pt3dadd(247.34, -955.76, -671.31, 0.74)
pt3dadd(246.5, -955.65, -676.4, 0.74)
}
}
proc shape3d_9() {
dend[50] { pt3dadd(246.55, -954.9, -680.07, 0.74)
pt3dadd(246.82, -954.12, -682.72, 0.74)
pt3dadd(246.64, -953.25, -683.04, 0.74)
pt3dadd(246.98, -951.26, -687.34, 0.74)
pt3dadd(246.99, -950.22, -687.29, 0.74)
pt3dadd(248.35, -949.15, -689.73, 0.74)
pt3dadd(249.16, -947.92, -689.68, 0.74)
pt3dadd(249.66, -946.59, -691.75, 0.74)
pt3dadd(249.65, -943.68, -695.79, 0.74)
pt3dadd(250.05, -942.57, -695.79, 0.89)
pt3dadd(249.96, -941.59, -699.08, 0.89)
pt3dadd(249.59, -940, -702.69, 0.89)
pt3dadd(250.24, -938.15, -705.93, 0.89)
pt3dadd(250.11, -935.86, -708.96, 0.89)
pt3dadd(249.72, -934.43, -709.22, 0.89)
pt3dadd(250.15, -932.66, -711.67, 0.89)
pt3dadd(250.3, -931.21, -714.96, 0.89)
pt3dadd(250.57, -928.47, -717.19, 0.89)
pt3dadd(250.63, -926.74, -717.19, 0.89)
pt3dadd(250.64, -923.7, -718.62, 0.89)
pt3dadd(251.5, -921.55, -721.6, 0.89)
pt3dadd(252.81, -917.7, -722.07, 0.89)
pt3dadd(254.56, -916.11, -723.61, 0.89)
}
dend[51] {pt3dclear()
pt3dadd(164.98, -1093.89, -439.77, 1.11)
pt3dadd(163.62, -1093.19, -441.15, 1.11)
pt3dadd(162.38, -1092.04, -441.57, 1.11)
pt3dadd(161.82, -1090.03, -443.06, 1.04)
pt3dadd(161.08, -1087.77, -447.63, 1.04)
pt3dadd(160.73, -1086.8, -447.63, 1.04)
pt3dadd(159.87, -1086.12, -447.63, 1.04)
pt3dadd(159.27, -1082.92, -453.52, 1.04)
pt3dadd(159.04, -1081.08, -453.52, 1.04)
pt3dadd(158.55, -1078.31, -453.52, 1.04)
pt3dadd(158.07, -1076.67, -456.92, 1.04)
pt3dadd(156.6, -1074.97, -456.92, 1.04)
pt3dadd(154.08, -1072.37, -459.47, 1.04)
pt3dadd(152.29, -1070.89, -460.05, 0.97)
pt3dadd(150.83, -1070.32, -460.05, 0.97)
pt3dadd(148.64, -1069.59, -460.05, 0.97)
pt3dadd(147.59, -1067.95, -461.17, 0.97)
pt3dadd(147.16, -1066.77, -461.17, 0.97)
pt3dadd(146.53, -1064.89, -461.17, 0.97)
pt3dadd(146.64, -1063.3, -461.65, 0.97)
pt3dadd(146.97, -1061.46, -462.28, 0.97)
pt3dadd(145.77, -1060.21, -462.65, 0.97)
pt3dadd(144.7, -1057.94, -465.73, 0.97)
pt3dadd(143.8, -1056.64, -468.55, 0.97)
pt3dadd(141.35, -1054.01, -470.41, 0.97)
pt3dadd(140.15, -1052.2, -471.74, 0.97)
pt3dadd(138.67, -1051.23, -471.74, 0.97)
pt3dadd(137.23, -1049.44, -473.49, 0.97)
pt3dadd(135.91, -1048.08, -473.49, 0.97)
pt3dadd(134.89, -1046.68, -477.84, 0.97)
pt3dadd(133.98, -1044.98, -477.84, 0.97)
pt3dadd(132.24, -1042.68, -477.84, 0.97)
pt3dadd(131.26, -1040.44, -477.84, 0.97)
pt3dadd(130.8, -1038.3, -477.84, 0.97)
pt3dadd(128.96, -1035.4, -479.12, 0.97)
pt3dadd(129.01, -1033.84, -479.12, 0.97)
pt3dadd(128.97, -1030.23, -482.52, 0.97)
pt3dadd(128.85, -1029.24, -482.52, 0.97)
pt3dadd(128.72, -1026.45, -492.29, 1.19)
pt3dadd(130.23, -1023.08, -496.43, 1.19)
pt3dadd(130.45, -1019.83, -498.77, 1.19)
pt3dadd(130.01, -1017.53, -500.94, 1.19)
pt3dadd(129.69, -1013.84, -502.86, 1.19)
pt3dadd(129.37, -1010.14, -505.35, 1.19)
pt3dadd(129.18, -1006.61, -507.37, 1.19)
pt3dadd(127.77, -1003.73, -512.15, 1.19)
pt3dadd(127.02, -1001.54, -513.21, 1.19)
pt3dadd(127.7, -1000.44, -513.48, 1.19)
pt3dadd(127.25, -997.62, -518.89, 1.19)
pt3dadd(127.17, -994.4, -519.27, 1.19)
pt3dadd(127.54, -992.22, -519.27, 1.19)
pt3dadd(127.78, -989.94, -522.66, 1.04)
pt3dadd(128.22, -987.83, -524.52, 1.04)
pt3dadd(129.1, -985.19, -527.97, 1.04)
pt3dadd(130.41, -983.81, -531.16, 1.04)
}
dend[52] {pt3dclear()
pt3dadd(130.41, -983.81, -531.16, 0.74)
pt3dadd(129.94, -982.33, -529.14, 0.74)
pt3dadd(129.87, -980.08, -532.01, 0.74)
pt3dadd(130.11, -976.68, -533.23, 0.74)
pt3dadd(129.42, -974.05, -534.45, 0.74)
pt3dadd(127.84, -971.38, -536.9, 0.74)
pt3dadd(126.41, -968.12, -540.24, 0.74)
pt3dadd(125.91, -965.15, -541.78, 0.74)
pt3dadd(125.84, -962.9, -542.47, 0.74)
pt3dadd(125.64, -961.07, -542.63, 0.74)
pt3dadd(125.48, -959.48, -544.6, 0.74)
pt3dadd(124.51, -956.74, -544.65, 0.74)
pt3dadd(124.47, -955.77, -544.65, 0.97)
pt3dadd(123.28, -952.51, -547.62, 0.97)
pt3dadd(123.03, -950.23, -547.62, 0.97)
pt3dadd(121.41, -945.87, -547.62, 0.82)
pt3dadd(120.52, -942.96, -548.9, 0.82)
pt3dadd(119.17, -937.86, -549.16, 0.82)
pt3dadd(118.38, -934.83, -549.16, 0.82)
pt3dadd(117.76, -932.22, -549.16, 0.82)
pt3dadd(117.37, -928.96, -550.12, 0.82)
pt3dadd(116.15, -925, -548.37, 0.74)
pt3dadd(114.6, -920.61, -546.08, 0.74)
pt3dadd(114.06, -918.2, -546.08, 0.74)
pt3dadd(113.48, -915.49, -546.08, 0.74)
pt3dadd(112.53, -912.85, -546.08, 0.74)
pt3dadd(112.01, -910.28, -546.08, 0.74)
pt3dadd(111.81, -907.11, -547.2, 0.74)
pt3dadd(112.12, -904.21, -549.75, 0.74)
pt3dadd(112.26, -902.33, -549.75, 0.74)
pt3dadd(112.48, -898.2, -551.82, 0.74)
pt3dadd(112.61, -895.85, -551.87, 0.74)
pt3dadd(114.27, -892.75, -553.2, 0.74)
pt3dadd(114.29, -890.36, -553.15, 0.74)
pt3dadd(114.17, -888.6, -553.2, 0.67)
pt3dadd(113.03, -886.51, -554.74, 0.67)
pt3dadd(113.93, -883.3, -557.77, 0.67)
pt3dadd(113.42, -878.9, -559.63, 0.67)
pt3dadd(114.65, -876.13, -560.85, 0.67)
pt3dadd(114.35, -874.34, -560.79, 0.67)
pt3dadd(115.19, -872.19, -561.91, 0.67)
pt3dadd(115.87, -869.86, -561.91, 0.67)
pt3dadd(116.95, -868.73, -561.91, 0.67)
pt3dadd(117.9, -866.05, -565.2, 0.67)
pt3dadd(119.1, -863.61, -565.2, 0.67)
pt3dadd(120, -862.22, -565.63, 0.59)
pt3dadd(120.6, -860.09, -565.63, 0.59)
pt3dadd(122.51, -858.63, -565.63, 0.59)
pt3dadd(124.26, -855.57, -564.99, 0.59)
}
dend[53] {pt3dclear()
pt3dadd(130.41, -983.81, -531.16, 0.74)
pt3dadd(131.49, -981.94, -533.02, 0.74)
pt3dadd(131.87, -979.76, -535.3, 0.74)
pt3dadd(133.48, -977.29, -539.76, 0.74)
pt3dadd(134.07, -975.14, -543.75, 0.74)
pt3dadd(134.46, -972.88, -546.46, 0.74)
pt3dadd(134.37, -972.87, -546.46, 0.82)
pt3dadd(135.35, -971.3, -552.83, 0.82)
pt3dadd(136.34, -969.73, -552.93, 0.82)
pt3dadd(136.77, -967.57, -556.76, 0.82)
pt3dadd(137.56, -964.89, -559.04, 0.82)
pt3dadd(138.12, -961.82, -561.91, 0.82)
pt3dadd(139.1, -959.61, -561.91, 0.82)
pt3dadd(139.96, -957.13, -564.03, 0.82)
pt3dadd(140.96, -954.37, -566.74, 0.82)
pt3dadd(143.1, -950.44, -570.03, 0.82)
pt3dadd(144.44, -947.61, -574.12, 0.82)
pt3dadd(146.44, -946.2, -577.68, 0.82)
pt3dadd(148.56, -945.69, -579.75, 0.82)
pt3dadd(150.26, -944.31, -580.55, 0.82)
pt3dadd(152.28, -942.97, -585.33, 0.82)
pt3dadd(153.34, -941.37, -587.56, 0.82)
pt3dadd(155.17, -939.94, -589.47, 0.82)
pt3dadd(156.24, -939.21, -594.25, 0.82)
pt3dadd(156.14, -938.26, -594.25, 0.67)
pt3dadd(155.47, -934.36, -598.92, 0.67)
pt3dadd(155.53, -932.22, -599.56, 0.67)
pt3dadd(155.25, -930.67, -601.53, 0.67)
pt3dadd(154.91, -927.73, -603.07, 0.67)
pt3dadd(154.95, -924.7, -603.07, 0.67)
pt3dadd(154.73, -922.93, -603.07, 0.67)
pt3dadd(155.17, -919, -606.52, 0.67)
pt3dadd(156.16, -915.63, -610.82, 0.67)
pt3dadd(157.54, -912.92, -612.09, 0.67)
pt3dadd(157.89, -910.31, -612.15, 0.67)
pt3dadd(158.35, -906.97, -613.9, 0.67)
pt3dadd(159.01, -904.66, -613.9, 0.67)
pt3dadd(160.92, -902.15, -619.1, 0.67)
pt3dadd(161.36, -899.98, -619.1, 0.67)
pt3dadd(162.32, -897.88, -620.38, 0.59)
pt3dadd(162.69, -895.79, -623.46, 0.59)
pt3dadd(165.04, -895.04, -626.11, 0.59)
pt3dadd(167.43, -893.32, -627.28, 0.59)
pt3dadd(169.02, -892.3, -630.15, 0.59)
}
dend[54] {pt3dclear()
pt3dadd(166.5, -1121.06, -397.71, 1.04)
pt3dadd(165.03, -1120.29, -397.71, 1.04)
pt3dadd(162.52, -1118.54, -400.1, 0.89)
pt3dadd(160.55, -1116.75, -402.49, 0.89)
pt3dadd(158.57, -1114.97, -403.92, 0.89)
pt3dadd(157.51, -1113.91, -404.66, 0.89)
pt3dadd(156.13, -1112.55, -404.66, 0.89)
pt3dadd(155.19, -1111.29, -406.15, 0.89)
pt3dadd(154.06, -1110.14, -407.16, 0.89)
pt3dadd(152.88, -1108.6, -408.97, 0.89)
pt3dadd(151.65, -1106.52, -409.87, 0.89)
pt3dadd(150.2, -1103.71, -411.57, 0.89)
pt3dadd(149.13, -1102.35, -411.99, 0.89)
pt3dadd(148.6, -1101.25, -413.69, 0.89)
pt3dadd(146.25, -1098.4, -415.39, 0.89)
pt3dadd(144.31, -1096.47, -415.66, 0.89)
pt3dadd(140.91, -1095.67, -420.81, 0.89)
pt3dadd(139.66, -1094.79, -422.35, 0.89)
}
dend[55] {pt3dclear()
pt3dadd(139.66, -1094.79, -422.35, 0.74)
pt3dadd(137.51, -1093.8, -422.35, 0.74)
pt3dadd(136.19, -1092.53, -422.35, 0.74)
pt3dadd(133.53, -1090.75, -420.91, 0.74)
pt3dadd(131.03, -1089.68, -420.91, 0.74)
pt3dadd(128.57, -1088.02, -419.64, 0.74)
pt3dadd(127.41, -1087.77, -419.64, 0.74)
pt3dadd(125.85, -1085.62, -419.64, 0.74)
pt3dadd(122.55, -1082.26, -422.35, 0.74)
pt3dadd(121.52, -1080.68, -422.4, 0.74)
pt3dadd(120.54, -1078.5, -423.83, 0.74)
}
}
proc shape3d_10() {
dend[55] { pt3dadd(118.67, -1075.91, -425.53, 0.74)
pt3dadd(117.12, -1074.29, -425.53, 0.74)
pt3dadd(114.58, -1071.93, -427.34, 0.74)
pt3dadd(112.66, -1069.93, -427.29, 0.74)
pt3dadd(111.44, -1068.15, -429.68, 0.74)
pt3dadd(110.62, -1066.8, -429.68, 0.89)
pt3dadd(108.23, -1064.13, -432.81, 0.89)
pt3dadd(107.64, -1062.05, -435.36, 0.89)
pt3dadd(106.87, -1059.57, -437.7, 0.89)
pt3dadd(105.89, -1056.77, -437.91, 0.89)
pt3dadd(105.09, -1053.65, -440.93, 0.89)
pt3dadd(105.11, -1051.47, -443.16, 0.89)
pt3dadd(105.26, -1049.78, -444.39, 0.89)
pt3dadd(104.32, -1048.02, -445.71, 0.89)
pt3dadd(103.6, -1046.56, -447.73, 0.89)
pt3dadd(102.77, -1044.66, -450.02, 0.89)
pt3dadd(101.21, -1042.04, -451.4, 0.89)
pt3dadd(99.76, -1040.02, -451.87, 0.89)
pt3dadd(99.24, -1037.9, -453.95, 0.89)
pt3dadd(98.27, -1035.51, -455.8, 0.89)
pt3dadd(98.52, -1033.13, -457.56, 0.89)
pt3dadd(98.8, -1030.43, -461.54, 0.89)
pt3dadd(99.61, -1027.66, -462.87, 0.89)
pt3dadd(100.82, -1025.59, -463.03, 0.89)
pt3dadd(102.48, -1022.36, -466.85, 0.89)
pt3dadd(103.99, -1020.82, -472, 0.89)
pt3dadd(105.4, -1021.81, -472.48, 0.89)
pt3dadd(107.57, -1021.58, -475.56, 0.89)
pt3dadd(107.95, -1019.48, -478.32, 0.89)
pt3dadd(108.2, -1019.12, -478.32, 0.82)
pt3dadd(108.63, -1014.93, -479.28, 0.82)
pt3dadd(108.05, -1012.54, -482.62, 0.82)
pt3dadd(107.21, -1009.89, -482.62, 0.67)
pt3dadd(106.65, -1005.78, -486.39, 0.67)
pt3dadd(108.32, -1002.36, -489.58, 0.67)
pt3dadd(109.38, -1000.64, -491.6, 0.67)
pt3dadd(108.77, -998.47, -491.65, 0.67)
pt3dadd(109.95, -996.46, -493.77, 0.67)
pt3dadd(110.67, -994.47, -494.15, 0.67)
pt3dadd(110.2, -992.4, -494.2, 0.59)
pt3dadd(110.78, -988.15, -495.63, 0.59)
pt3dadd(112.55, -985.63, -496.54, 0.45)
}
dend[56] {pt3dclear()
pt3dadd(139.66, -1094.79, -422.35, 0.74)
pt3dadd(139.27, -1094.1, -425.06, 0.74)
pt3dadd(138.35, -1093.08, -428.3, 0.74)
pt3dadd(137.22, -1092.82, -428.3, 0.89)
pt3dadd(136.09, -1092.1, -433.29, 0.74)
pt3dadd(136.05, -1090.34, -438.6, 0.74)
pt3dadd(134.68, -1088.69, -438.54, 0.74)
pt3dadd(133.68, -1086.22, -443.43, 0.74)
pt3dadd(131.73, -1084.01, -443.43, 0.74)
pt3dadd(130.94, -1080.72, -445.98, 0.74)
pt3dadd(131.38, -1078.03, -451.24, 0.74)
pt3dadd(131.82, -1077.19, -453.36, 0.74)
pt3dadd(134.33, -1076.25, -457.18, 0.74)
pt3dadd(133.99, -1074.55, -460.53, 0.74)
pt3dadd(134.28, -1072.24, -463.5, 0.74)
pt3dadd(134.49, -1070.69, -467.12, 0.74)
pt3dadd(134.84, -1069.09, -468.81, 0.74)
pt3dadd(136.01, -1067.12, -473.91, 0.74)
pt3dadd(137.98, -1065.7, -476.73, 0.74)
pt3dadd(138.84, -1065.24, -476.99, 0.74)
}
dend[57] {pt3dclear()
pt3dadd(178.32, -1142.85, -365.15, 1.34)
pt3dadd(179.29, -1142.76, -365.21, 1.34)
pt3dadd(181.21, -1142.28, -369.03, 1.34)
pt3dadd(180.48, -1142.07, -369.03, 1.19)
pt3dadd(182.5, -1140.77, -373.54, 1.41)
pt3dadd(184.98, -1139.87, -376.62, 1.41)
pt3dadd(186.48, -1138.91, -380.08, 1.41)
pt3dadd(187.27, -1137.72, -383.63, 1.41)
pt3dadd(188.23, -1135.73, -389.32, 1.19)
pt3dadd(190.14, -1134.26, -390.96, 1.19)
pt3dadd(191.87, -1133.65, -395.32, 1.19)
pt3dadd(192.59, -1133.12, -396.7, 1.19)
pt3dadd(192.95, -1132.52, -401.05, 1.19)
pt3dadd(194.55, -1132.49, -401.69, 1.19)
pt3dadd(196.44, -1131.83, -401.69, 1.19)
pt3dadd(197.85, -1130.25, -401.69, 1.19)
pt3dadd(199.41, -1131.11, -403.81, 1.19)
pt3dadd(201.27, -1131.29, -407.58, 1.19)
pt3dadd(202.11, -1129.88, -409.5, 1.19)
pt3dadd(203.55, -1129.21, -409.5, 1.11)
pt3dadd(205.04, -1128.62, -412.2, 1.11)
pt3dadd(207.03, -1128.22, -415.6, 1.11)
pt3dadd(209.57, -1127.03, -417.09, 1.11)
pt3dadd(211.44, -1126.07, -419.9, 1.11)
pt3dadd(212.77, -1125.22, -422.83, 1.11)
pt3dadd(213.55, -1124.79, -423.14, 1.11)
pt3dadd(213.87, -1123.91, -423.14, 1.04)
pt3dadd(214.89, -1123.46, -428.56, 1.04)
pt3dadd(215.88, -1123.51, -428.93, 1.04)
pt3dadd(216.75, -1122.33, -431, 1.04)
pt3dadd(218.13, -1121.23, -432.28, 1.04)
pt3dadd(218.43, -1120.06, -433.23, 0.97)
pt3dadd(220.73, -1118.64, -436.58, 0.97)
pt3dadd(222.33, -1117.29, -438.12, 0.97)
pt3dadd(224.91, -1116.16, -439.71, 0.97)
pt3dadd(227, -1115, -440.08, 0.97)
pt3dadd(227.77, -1113.61, -440.08, 0.97)
pt3dadd(229.82, -1113.28, -444.55, 0.97)
pt3dadd(231.66, -1112.48, -444.6, 0.97)
pt3dadd(233.48, -1110.71, -444.6, 0.97)
pt3dadd(237.11, -1108.63, -447.41, 0.97)
pt3dadd(239.76, -1108.19, -447.36, 0.97)
pt3dadd(241.2, -1107.96, -447.41, 0.97)
pt3dadd(244.37, -1106.49, -452.51, 0.97)
pt3dadd(246.44, -1105.83, -452.51, 0.97)
pt3dadd(248.11, -1103.73, -452.51, 0.89)
pt3dadd(250.98, -1103.43, -453.47, 0.89)
pt3dadd(252.76, -1101.2, -457.66, 0.89)
pt3dadd(253.97, -1100.43, -457.66, 0.89)
pt3dadd(255.94, -1099.49, -458.62, 0.89)
pt3dadd(258.66, -1097.73, -460.26, 0.89)
pt3dadd(260.11, -1096.04, -462.39, 0.89)
pt3dadd(261, -1094.93, -462.55, 0.89)
pt3dadd(262.64, -1094.77, -462.71, 0.89)
pt3dadd(264.12, -1094.45, -466.27, 0.89)
pt3dadd(265.79, -1093.63, -468.71, 0.89)
pt3dadd(266.25, -1093.03, -471.52, 0.74)
pt3dadd(267.01, -1092.72, -471.52, 0.74)
pt3dadd(268.2, -1092.29, -475.4, 0.74)
}
dend[58] {pt3dclear()
pt3dadd(268.2, -1092.29, -475.4, 0.74)
pt3dadd(269.11, -1093.13, -476.67, 0.74)
pt3dadd(270.94, -1094.57, -480.6, 0.74)
pt3dadd(271.34, -1096.04, -481.51, 0.74)
pt3dadd(272.08, -1097.26, -482.57, 0.74)
pt3dadd(273.39, -1098.04, -483.74, 0.74)
pt3dadd(274.71, -1098.29, -485.91, 0.74)
pt3dadd(276.01, -1098.69, -486.29, 0.74)
pt3dadd(276.78, -1099.1, -490.59, 0.74)
pt3dadd(277.45, -1099.11, -495.53, 0.74)
pt3dadd(278.12, -1098.61, -496.7, 0.74)
pt3dadd(278.81, -1099.6, -497.17, 0.74)
pt3dadd(278.72, -1100.26, -498.61, 0.74)
pt3dadd(279.72, -1100.62, -500.57, 0.74)
pt3dadd(280.07, -1100.22, -501.58, 0.74)
pt3dadd(281.37, -1100.62, -505.3, 0.74)
pt3dadd(282.52, -1100.4, -506.52, 0.74)
pt3dadd(282.42, -1101.73, -506.52, 0.74)
pt3dadd(282.92, -1102.47, -510.77, 0.74)
pt3dadd(283.84, -1103.42, -512.15, 0.74)
pt3dadd(284.68, -1103.31, -512.47, 0.74)
pt3dadd(285.75, -1103.15, -513.64, 0.74)
pt3dadd(286.09, -1103.42, -515.71, 0.74)
pt3dadd(286.66, -1104.17, -518.63, 0.74)
pt3dadd(287.48, -1104.73, -519.16, 0.74)
pt3dadd(288.38, -1105.83, -523.89, 0.74)
pt3dadd(289.43, -1106.42, -525.74, 0.74)
pt3dadd(290.09, -1108.33, -525.74, 0.89)
pt3dadd(290.64, -1108.4, -528.72, 0.89)
pt3dadd(292.58, -1109.07, -531.53, 0.89)
pt3dadd(293.55, -1109.32, -531.74, 0.67)
pt3dadd(294.34, -1109.49, -535.3, 0.67)
}
dend[59] {pt3dclear()
pt3dadd(268.2, -1092.29, -475.4, 0.74)
pt3dadd(269.22, -1090.86, -477.26, 0.74)
pt3dadd(270.82, -1088.99, -480.34, 0.74)
pt3dadd(273.27, -1087.54, -480.6, 0.74)
pt3dadd(275.36, -1086.55, -480.55, 0.74)
pt3dadd(277.21, -1085.61, -480.6, 0.74)
pt3dadd(280.49, -1084.64, -484.32, 0.74)
pt3dadd(281.86, -1084.53, -484.37, 0.74)
pt3dadd(283.63, -1083.65, -484.32, 0.74)
pt3dadd(286.24, -1083.19, -484.37, 0.74)
pt3dadd(288.66, -1080.84, -485.49, 0.74)
pt3dadd(291.23, -1079.1, -485.49, 0.74)
pt3dadd(295.02, -1076.98, -487.4, 0.74)
pt3dadd(296.01, -1076.29, -487.4, 0.74)
pt3dadd(298.36, -1075.57, -488.57, 0.74)
pt3dadd(298.92, -1073.11, -488.57, 0.67)
pt3dadd(300.3, -1072.4, -488.57, 0.67)
pt3dadd(302.52, -1070.92, -488.89, 0.67)
pt3dadd(303.67, -1070.18, -488.89, 0.67)
}
dend[60] {pt3dclear()
pt3dstyle(1, 177.454, -1163.48, -311.826)
pt3dadd(182.6, -1166.36, -320.86, 1.49)
pt3dadd(189.03, -1167.74, -319.85, 1.49)
pt3dadd(191.48, -1168.7, -319.85, 1.49)
pt3dadd(193.42, -1170.32, -319.85, 1.49)
pt3dadd(194.68, -1171.28, -319.85, 1.49)
pt3dadd(197.21, -1171.57, -320.01, 1.49)
pt3dadd(199.51, -1172.24, -320.01, 1.49)
pt3dadd(201.52, -1174.23, -320.6, 1.49)
pt3dadd(203.97, -1174.89, -320.6, 1.34)
pt3dadd(206.42, -1174.96, -320.86, 1.34)
pt3dadd(208.06, -1175.63, -320.86, 1.34)
pt3dadd(209.84, -1175.7, -320.86, 1.34)
pt3dadd(212.22, -1175.85, -320.86, 1.34)
pt3dadd(213.78, -1176.29, -320.86, 1.34)
}
dend[61] {pt3dclear()
pt3dadd(213.78, -1176.29, -320.86, 1.11)
pt3dadd(216.01, -1177.62, -322.08, 1.11)
pt3dadd(218.32, -1178.72, -324, 1.11)
pt3dadd(219.36, -1179.98, -325.38, 1.11)
pt3dadd(221, -1180.79, -325.38, 1.11)
pt3dadd(223.19, -1181.79, -326.33, 1.11)
pt3dadd(225.34, -1182.52, -327.4, 1.11)
pt3dadd(228.09, -1183.26, -328.94, 1.11)
pt3dadd(229.95, -1183.92, -328.94, 1.11)
pt3dadd(232.55, -1184.29, -330.42, 1.11)
pt3dadd(233.45, -1185.7, -330.42, 1.11)
pt3dadd(234.56, -1186.14, -331.17, 1.11)
pt3dadd(236.79, -1186.36, -331.17, 1.11)
}
}
proc shape3d_11() {
dend[61] { pt3dadd(238.5, -1188.2, -332.49, 1.11)
pt3dadd(240.29, -1189.09, -332.49, 1.11)
pt3dadd(242, -1189.16, -332.49, 1.11)
pt3dadd(245.04, -1189.97, -332.49, 1.11)
pt3dadd(248.24, -1191.82, -332.49, 1.11)
pt3dadd(249.95, -1193.29, -332.49, 1.11)
}
dend[62] {pt3dclear()
pt3dadd(249.95, -1193.29, -332.49, 1.04)
pt3dadd(250.55, -1192.48, -332.49, 1.04)
pt3dadd(252.33, -1192.7, -332.49, 0.97)
pt3dadd(254.19, -1193.51, -333.5, 0.97)
pt3dadd(255.97, -1192.33, -334.25, 0.97)
pt3dadd(257.98, -1192.4, -334.3, 0.89)
pt3dadd(259.84, -1192.25, -334.25, 0.89)
pt3dadd(262.51, -1191.81, -334.3, 0.89)
pt3dadd(263.92, -1191.29, -334.25, 0.89)
}
dend[63] {pt3dclear()
pt3dadd(263.92, -1191.29, -334.25, 0.59)
pt3dadd(265.9, -1191.8, -338.23, 0.59)
pt3dadd(266.71, -1191.8, -340.88, 0.59)
pt3dadd(267.75, -1191.58, -340.94, 0.59)
pt3dadd(275.45, -1191.08, -340.94, 0.89)
pt3dadd(277.91, -1190.38, -343.8, 0.89)
pt3dadd(279.97, -1191.33, -348.69, 0.89)
pt3dadd(281.68, -1192.81, -351.72, 0.89)
pt3dadd(284.17, -1194.85, -354.05, 0.89)
pt3dadd(286.28, -1196.88, -357.45, 0.89)
pt3dadd(287.63, -1198.18, -360.43, 0.89)
pt3dadd(291.4, -1198.41, -361.38, 0.89)
pt3dadd(292.9, -1199.15, -361.38, 0.89)
pt3dadd(294.76, -1199.37, -362.44, 0.82)
pt3dadd(296.81, -1198.8, -364.78, 0.82)
pt3dadd(299.08, -1197.29, -365.84, 0.82)
pt3dadd(301.83, -1197.96, -367.12, 0.89)
pt3dadd(305.36, -1197.59, -370.46, 0.89)
pt3dadd(307.26, -1197.29, -370.46, 0.89)
pt3dadd(311.35, -1196.53, -373.7, 0.89)
pt3dadd(312.25, -1195, -375.77, 0.89)
pt3dadd(314.97, -1194.51, -377.74, 0.89)
pt3dadd(316.87, -1195.5, -379.07, 0.89)
pt3dadd(320.21, -1196.54, -381.83, 0.89)
pt3dadd(323.4, -1198.52, -386.18, 0.89)
pt3dadd(324.53, -1201.15, -392.4, 0.89)
}
dend[64] {pt3dclear()
pt3dadd(324.53, -1201.15, -392.4, 0.89)
pt3dadd(323.66, -1202.23, -396.86, 0.89)
pt3dadd(323.29, -1202.57, -396.86, 0.82)
pt3dadd(322.46, -1202.58, -402.43, 0.82)
pt3dadd(321.56, -1202.29, -406.31, 0.82)
pt3dadd(319.9, -1202.48, -408.33, 0.82)
pt3dadd(318.21, -1202.6, -413.43, 0.82)
pt3dadd(317.11, -1202.09, -413.43, 0.74)
pt3dadd(317.38, -1203.11, -418.05, 0.74)
pt3dadd(318.41, -1203.66, -419.85, 0.74)
pt3dadd(319.18, -1204.01, -422.93, 0.74)
pt3dadd(320.18, -1204.16, -424.63, 0.74)
pt3dadd(320.51, -1204.82, -427.34, 0.74)
pt3dadd(320.22, -1205.22, -428.51, 0.74)
pt3dadd(321.18, -1205.47, -429.84, 0.74)
pt3dadd(322.28, -1205.16, -431.11, 0.74)
pt3dadd(323.31, -1205.88, -432.86, 0.74)
pt3dadd(324.78, -1207.45, -434.46, 0.74)
pt3dadd(325.69, -1208.56, -438.33, 0.74)
pt3dadd(326, -1209.98, -439.82, 0.74)
pt3dadd(325.54, -1211.04, -442.47, 0.74)
pt3dadd(325.52, -1211.97, -445.4, 0.74)
pt3dadd(324.72, -1212.71, -447.79, 0.74)
pt3dadd(324.03, -1213.31, -451.82, 0.74)
pt3dadd(323.97, -1213.51, -451.13, 0.74)
}
dend[65] {pt3dclear()
pt3dadd(324.53, -1201.15, -392.4, 0.89)
pt3dadd(325.5, -1203.44, -392.82, 0.89)
pt3dadd(325.52, -1205.27, -396.01, 0.89)
pt3dadd(325.44, -1206.28, -396.01, 0.74)
pt3dadd(324.95, -1207.28, -400.42, 0.74)
pt3dadd(323.73, -1208.82, -401.64, 0.74)
pt3dadd(323.64, -1209.78, -402.17, 0.74)
pt3dadd(324.02, -1211.49, -403.76, 0.59)
pt3dadd(322.6, -1212.64, -405.83, 0.59)
pt3dadd(321.61, -1213.64, -407.21, 0.67)
pt3dadd(319.9, -1216.01, -409.5, 0.67)
pt3dadd(319.48, -1216.98, -409.55, 0.67)
pt3dadd(319.52, -1218.2, -409.55, 0.67)
pt3dadd(318.93, -1219.5, -412.05, 0.67)
pt3dadd(317.78, -1220.84, -414.28, 0.67)
pt3dadd(317.49, -1221.9, -414.38, 0.67)
pt3dadd(317.28, -1224.08, -417.04, 0.67)
}
dend[66] {pt3dclear()
pt3dadd(263.92, -1191.29, -334.25, 0.59)
pt3dadd(268.79, -1191.21, -333.02, 0.59)
pt3dadd(270.8, -1189.07, -333.02, 0.59)
pt3dadd(273.62, -1188.84, -333.02, 0.59)
pt3dadd(276.82, -1187.29, -333.02, 0.59)
pt3dadd(286.33, -1187.43, -333.13, 0.59)
pt3dadd(290.64, -1185.95, -331.7, 0.59)
pt3dadd(293.84, -1185.28, -331.7, 0.59)
pt3dadd(299.41, -1184.84, -330.21, 0.59)
}
dend[67] {pt3dclear()
pt3dadd(249.95, -1193.29, -332.49, 0.82)
pt3dadd(250.07, -1194.77, -332.44, 0.82)
pt3dadd(249.77, -1196.25, -332.07, 0.82)
pt3dadd(250.37, -1199.35, -331.17, 0.82)
pt3dadd(250.07, -1201.27, -330.53, 0.82)
pt3dadd(251.56, -1204.67, -329.04, 0.82)
pt3dadd(251.93, -1206.74, -327.98, 0.82)
pt3dadd(253.42, -1209.84, -325.75, 0.82)
pt3dadd(254.69, -1212.2, -323.78, 0.82)
pt3dadd(255.43, -1214.72, -321.08, 0.82)
pt3dadd(255.81, -1218.04, -319.22, 0.82)
pt3dadd(255.96, -1220.85, -318.05, 0.82)
pt3dadd(256.41, -1224.32, -314.65, 0.82)
pt3dadd(257.82, -1226.61, -313.69, 0.82)
pt3dadd(258.71, -1229.71, -310.35, 0.82)
pt3dadd(259.89, -1232.56, -309.87, 0.82)
pt3dadd(260.86, -1236.04, -307.69, 0.82)
pt3dadd(262.57, -1237.66, -307.69, 0.82)
pt3dadd(264.66, -1242.76, -305.41, 0.82)
pt3dadd(266.15, -1246.82, -305.25, 0.82)
pt3dadd(266.15, -1251.7, -302.7, 0.82)
pt3dadd(265.19, -1256.5, -298.82, 0.82)
pt3dadd(265.41, -1259.97, -292.56, 0.82)
pt3dadd(266.45, -1261.74, -292.08, 0.82)
pt3dadd(265.61, -1262.87, -292.08, 0.74)
pt3dadd(262.88, -1268.01, -290.81, 0.74)
pt3dadd(262.64, -1271.79, -293.04, 0.74)
pt3dadd(261.41, -1274, -293.09, 0.74)
}
dend[68] {pt3dclear()
pt3dadd(213.78, -1176.29, -320.86, 0.82)
pt3dadd(216.58, -1176.24, -315.29, 0.82)
pt3dadd(219.34, -1177.49, -315.29, 0.82)
pt3dadd(223.79, -1177.86, -311.89, 0.82)
pt3dadd(230.93, -1177.19, -306.84, 0.82)
pt3dadd(235.61, -1177.33, -306.37, 0.82)
pt3dadd(241.63, -1176.89, -304.29, 0.82)
pt3dadd(246.09, -1176.37, -303.39, 0.82)
pt3dadd(250.18, -1175.11, -303.39, 0.74)
pt3dadd(252.7, -1174.29, -301.48, 0.74)
pt3dadd(255.38, -1172.59, -301.43, 0.74)
pt3dadd(258.57, -1170.82, -301.43, 0.67)
pt3dadd(262.97, -1169.05, -300.58, 0.67)
pt3dadd(268.69, -1166.46, -297.76, 0.67)
pt3dadd(273.22, -1164.24, -295.64, 0.67)
pt3dadd(278.42, -1163.57, -293.46, 0.67)
pt3dadd(283.55, -1161.2, -291.66, 0.67)
pt3dadd(287.71, -1159.57, -289.85, 0.67)
pt3dadd(291.2, -1157.58, -288.95, 0.67)
pt3dadd(292.76, -1156.17, -286.72, 0.67)
}
dend[69] {pt3dclear()
pt3dstyle(1, 177.454, -1163.48, -311.826)
pt3dadd(182.85, -1162.06, -322.81, 2.01)
pt3dadd(188.33, -1162.4, -330, 2.01)
pt3dadd(190.4, -1161.92, -332.12, 2.01)
pt3dadd(193.25, -1162.98, -334.14, 2.01)
pt3dadd(195.86, -1163.74, -336.42, 2.01)
pt3dadd(197.72, -1163.93, -337.8, 2.01)
pt3dadd(199.42, -1162.87, -340.57, 2.01)
pt3dadd(201.39, -1160.91, -343.33, 2.01)
}
dend[70] {pt3dclear()
pt3dadd(201.39, -1160.91, -343.33, 0.97)
pt3dadd(201.81, -1159.65, -343.33, 0.97)
pt3dadd(202.54, -1158.9, -343.33, 0.97)
pt3dadd(202.37, -1157.72, -344.39, 0.97)
pt3dadd(202.2, -1156.46, -344.55, 0.97)
pt3dadd(203.97, -1155.62, -344.55, 0.97)
pt3dadd(205.07, -1154.64, -344.55, 0.97)
pt3dadd(206.07, -1152.7, -345.72, 0.97)
pt3dadd(206.94, -1151.58, -345.66, 0.97)
pt3dadd(208.77, -1149.55, -345.72, 0.97)
pt3dadd(210.44, -1147.74, -347.73, 0.97)
pt3dadd(211.7, -1147.62, -347.73, 0.97)
pt3dadd(214.63, -1145.31, -347.73, 0.97)
pt3dadd(216.75, -1142.54, -347.73, 0.97)
}
dend[71] {pt3dclear()
pt3dadd(216.75, -1142.54, -347.73, 0.97)
pt3dadd(216.85, -1142.39, -350.12, 0.97)
pt3dadd(218.83, -1141.68, -350.12, 0.97)
pt3dadd(222.67, -1140.09, -351.82, 0.97)
pt3dadd(224.84, -1138.82, -351.82, 0.97)
pt3dadd(227.77, -1138.31, -351.82, 0.97)
pt3dadd(230.94, -1137.71, -351.82, 0.89)
pt3dadd(232.32, -1137.63, -351.88, 0.89)
pt3dadd(234.37, -1136.94, -351.82, 0.89)
pt3dadd(236.23, -1137.12, -351.82, 0.89)
pt3dadd(239.67, -1136.72, -349.59, 0.89)
pt3dadd(242.83, -1136.5, -350.81, 0.89)
pt3dadd(245.91, -1135.95, -350.81, 0.89)
pt3dadd(249.71, -1136.32, -350.81, 0.89)
pt3dadd(256.34, -1136.61, -352.04, 0.89)
pt3dadd(258.85, -1136.62, -352.04, 0.89)
pt3dadd(261.36, -1135.88, -350.87, 0.89)
pt3dadd(263.77, -1135.64, -350.87, 0.89)
pt3dadd(266.56, -1135.03, -350.87, 0.89)
pt3dadd(270.46, -1135.65, -349.17, 0.89)
pt3dadd(272.78, -1135.09, -349.12, 0.89)
pt3dadd(275.47, -1135.67, -349.12, 0.89)
pt3dadd(279.03, -1135.66, -348.53, 0.89)
pt3dadd(286.12, -1136.66, -347.52, 0.89)
pt3dadd(289.76, -1137.07, -348.16, 0.89)
pt3dadd(295.87, -1138.69, -348.16, 0.89)
pt3dadd(297.75, -1138.79, -348.16, 0.89)
pt3dadd(302.03, -1138.66, -348.16, 0.89)
pt3dadd(305.41, -1138.85, -348.16, 0.89)
pt3dadd(308.02, -1139.11, -348.05, 0.89)
pt3dadd(311.02, -1139.99, -348.05, 0.89)
pt3dadd(312.47, -1140.56, -348.05, 0.67)
pt3dadd(314.42, -1142.46, -345.08, 0.67)
pt3dadd(316.54, -1145.54, -345.08, 0.67)
pt3dadd(318.81, -1149.36, -342.53, 0.67)
pt3dadd(322.17, -1151.02, -340.35, 0.67)
pt3dadd(325.15, -1151.06, -336.95, 0.67)
}
}
proc shape3d_12() {
dend[71] { }
dend[72] {pt3dclear()
pt3dadd(216.75, -1142.54, -347.73, 0.67)
pt3dadd(215.74, -1141.89, -353.2, 0.67)
pt3dadd(214.72, -1140.61, -355.06, 0.67)
pt3dadd(213.14, -1139.82, -356.92, 0.67)
pt3dadd(211.71, -1138.38, -358.51, 0.67)
pt3dadd(210.66, -1138.3, -358.51, 0.67)
pt3dadd(210.44, -1137.2, -359.58, 0.67)
pt3dadd(209.6, -1136.49, -359.63, 0.52)
pt3dadd(208.16, -1135.05, -361.22, 0.52)
pt3dadd(206.37, -1133.15, -361.28, 0.52)
pt3dadd(204.54, -1131.77, -362.82, 0.52)
pt3dadd(202.13, -1130.58, -364.25, 0.52)
pt3dadd(200.62, -1130.18, -364.62, 0.52)
pt3dadd(198.36, -1130.44, -366.96, 0.52)
pt3dadd(195.62, -1130.46, -369.08, 0.52)
pt3dadd(193.04, -1130.81, -371.58, 0.52)
pt3dadd(191.31, -1129.99, -373.33, 0.52)
pt3dadd(190.45, -1130.48, -373.33, 0.52)
pt3dadd(188.99, -1130.55, -374.98, 0.52)
pt3dadd(187.57, -1129.71, -378.64, 0.52)
pt3dadd(185.77, -1129.25, -380.93, 0.52)
pt3dadd(185.14, -1129.34, -383.1, 0.52)
}
dend[73] {pt3dclear()
pt3dadd(201.39, -1160.91, -343.33, 1.26)
pt3dadd(202.88, -1160.96, -347.47, 1.26)
pt3dadd(204.44, -1161.15, -353.74, 1.26)
}
dend[74] {pt3dclear()
pt3dadd(204.44, -1161.15, -353.74, 1.26)
pt3dadd(204.7, -1159.3, -353.95, 1.26)
pt3dadd(205.23, -1159.61, -353.95, 1.34)
pt3dadd(207.22, -1158.83, -365.26, 1.34)
pt3dadd(209.18, -1158.19, -371.74, 1.34)
pt3dadd(210.45, -1157.25, -371.74, 1.34)
pt3dadd(212.92, -1156.35, -375.46, 1.34)
pt3dadd(214.66, -1154.99, -379.39, 1.34)
pt3dadd(216.09, -1153.63, -382.04, 1.34)
pt3dadd(218.06, -1152.62, -386.71, 1.34)
pt3dadd(219.77, -1152.08, -390.38, 1.34)
pt3dadd(221, -1152.04, -402.06, 1.34)
pt3dadd(222.33, -1151.88, -403.71, 1.34)
pt3dadd(224.4, -1151.79, -409.07, 1.34)
pt3dadd(226.28, -1151.22, -411.99, 1.34)
pt3dadd(227.97, -1151.13, -416.08, 1.34)
pt3dadd(227.28, -1150.7, -416.08, 1.34)
pt3dadd(227.86, -1150.37, -422.35, 1.34)
pt3dadd(228.86, -1149.69, -427.23, 1.34)
pt3dadd(229.93, -1148.98, -432.76, 1.49)
pt3dadd(230.38, -1148.7, -429.78, 1.49)
pt3dadd(230.52, -1148.48, -438.12, 1.49)
pt3dadd(231.33, -1147.72, -443.54, 1.49)
}
dend[75] {pt3dclear()
pt3dadd(231.33, -1147.72, -443.54, 0.74)
pt3dadd(228.31, -1147.43, -444.65, 0.74)
pt3dadd(223.46, -1148.59, -445.98, 0.74)
pt3dadd(221.07, -1148.51, -445.98, 0.74)
pt3dadd(216.94, -1148.14, -448.21, 0.74)
pt3dadd(212.76, -1147.31, -445.66, 0.74)
pt3dadd(207.48, -1147.86, -443.38, 0.74)
pt3dadd(204.31, -1148.04, -443.38, 0.74)
pt3dadd(201, -1147.15, -441.25, 0.74)
pt3dadd(199.67, -1147.09, -441.25, 0.59)
pt3dadd(196.81, -1147.04, -438.86, 0.59)
pt3dadd(193.46, -1148.27, -434.3, 0.59)
pt3dadd(191.36, -1147.57, -433.18, 0.59)
pt3dadd(188.32, -1146.73, -430.21, 0.59)
pt3dadd(185.92, -1146.81, -430.15, 0.59)
pt3dadd(182.57, -1147.32, -426.91, 0.59)
pt3dadd(178.53, -1147.72, -424.31, 0.59)
pt3dadd(172.38, -1146.3, -422.72, 0.59)
pt3dadd(171.46, -1146.5, -422.72, 0.52)
pt3dadd(168.75, -1146, -422.72, 0.52)
pt3dadd(165.85, -1145.68, -417.36, 0.52)
}
dend[76] {pt3dclear()
pt3dadd(231.33, -1147.72, -443.54, 1.49)
pt3dadd(232.69, -1147.68, -443.54, 1.49)
pt3dadd(234.47, -1146.74, -448.16, 1.34)
pt3dadd(235.72, -1146.27, -453.1, 1.34)
pt3dadd(237.16, -1146.77, -453.1, 1.34)
pt3dadd(238.55, -1146.81, -453.1, 1.34)
pt3dadd(240.93, -1145.93, -456.28, 1.19)
pt3dadd(242.29, -1144.6, -460.69, 1.19)
pt3dadd(244.48, -1144.04, -466.21, 1.19)
pt3dadd(245.93, -1143.09, -470.41, 1.19)
pt3dadd(247.38, -1142.05, -471.15, 1.19)
pt3dadd(247.36, -1142.44, -471.15, 0.97)
pt3dadd(248.88, -1141.75, -474.44, 1.11)
pt3dadd(249.68, -1141.41, -479.38, 1.11)
}
dend[77] {pt3dclear()
pt3dadd(249.68, -1141.41, -479.38, 0.97)
pt3dadd(251.23, -1141.55, -479.33, 0.97)
pt3dadd(252.94, -1142.75, -480.5, 0.89)
pt3dadd(254.78, -1143.6, -483.63, 0.89)
pt3dadd(256.38, -1143.97, -484.11, 0.89)
pt3dadd(258.47, -1144.55, -487.61, 0.89)
pt3dadd(259.92, -1144.97, -487.61, 0.89)
pt3dadd(261.69, -1146.26, -490.32, 0.89)
pt3dadd(263.38, -1147.61, -491.92, 0.89)
pt3dadd(264.68, -1149.05, -492.18, 0.89)
pt3dadd(263.81, -1151.62, -493.24, 0.89)
pt3dadd(263.7, -1151.9, -493.24, 0.89)
pt3dadd(265.12, -1153.59, -496.32, 0.89)
pt3dadd(266.51, -1154.89, -496.32, 0.89)
pt3dadd(267.25, -1156.64, -499.09, 0.89)
pt3dadd(267.41, -1158.75, -499.14, 0.89)
pt3dadd(268.34, -1160.21, -500.57, 0.89)
pt3dadd(269.52, -1162.02, -500.57, 0.89)
pt3dadd(271.22, -1163.81, -503.17, 0.89)
pt3dadd(272.35, -1165.46, -503.49, 0.89)
pt3dadd(273.33, -1167.08, -503.76, 0.82)
pt3dadd(275.32, -1168.92, -504.98, 0.82)
pt3dadd(276.68, -1171.64, -507.1, 0.82)
pt3dadd(277.28, -1172.97, -507.1, 0.82)
pt3dadd(278.47, -1174.17, -509.12, 0.74)
pt3dadd(280.22, -1177.25, -512.73, 0.74)
pt3dadd(281.9, -1178.67, -514.96, 0.74)
pt3dadd(284.09, -1179.71, -515.97, 0.74)
pt3dadd(285.42, -1180.94, -517.46, 0.74)
pt3dadd(287.29, -1182.09, -519.32, 0.74)
pt3dadd(289.26, -1183.03, -520.59, 0.74)
pt3dadd(291.06, -1184.17, -524.15, 0.74)
pt3dadd(292.22, -1185, -524.31, 0.74)
pt3dadd(293.88, -1185.45, -528.03, 0.74)
pt3dadd(295.07, -1185.74, -528.03, 0.59)
pt3dadd(296.71, -1186.05, -532.7, 0.59)
pt3dadd(298.14, -1186.04, -535.41, 0.59)
pt3dadd(299.94, -1186.77, -536.79, 0.59)
pt3dadd(302, -1187.55, -538.86, 0.59)
pt3dadd(303.56, -1188.29, -539.5, 0.45)
pt3dadd(305.24, -1188.91, -543.06, 0.45)
pt3dadd(306.92, -1189.13, -543.91, 0.52)
pt3dadd(308.75, -1189.13, -546.3, 0.52)
pt3dadd(310.85, -1188.78, -549.48, 0.52)
pt3dadd(313.51, -1188.86, -550.65, 0.52)
pt3dadd(315.11, -1189.27, -552.88, 0.52)
pt3dadd(317.07, -1189.37, -555.32, 0.52)
pt3dadd(318.5, -1188.97, -556.44, 0.52)
pt3dadd(320.26, -1188.37, -559.15, 0.52)
pt3dadd(322.39, -1189.12, -559.78, 0.52)
pt3dadd(325.08, -1189.27, -562.33, 0.52)
pt3dadd(329.86, -1189.46, -568.44, 0.52)
pt3dadd(332.15, -1189.6, -573.22, 0.52)
pt3dadd(335.15, -1188.91, -579.11, 0.52)
pt3dadd(336.78, -1188.59, -581.56, 0.52)
pt3dadd(338.43, -1186.53, -581.56, 0.59)
pt3dadd(337.93, -1184.92, -586.6, 0.59)
pt3dadd(338.7, -1183.93, -589.63, 0.59)
pt3dadd(340.12, -1183.88, -593.93, 0.59)
pt3dadd(342.85, -1185.4, -598.02, 0.59)
pt3dadd(346.04, -1187.2, -598.5, 0.59)
pt3dadd(349.07, -1190.34, -602.43, 0.59)
pt3dadd(354.11, -1193.84, -603.7, 0.59)
pt3dadd(357.01, -1195.65, -603.7, 0.59)
pt3dadd(362.2, -1197.22, -607.47, 0.59)
pt3dadd(366.72, -1200.6, -610.98, 0.59)
pt3dadd(369.14, -1203.61, -610.98, 0.59)
pt3dadd(372.69, -1206.88, -612.52, 0.59)
pt3dadd(376.09, -1210.37, -616.61, 0.59)
pt3dadd(377.17, -1211.21, -620.64, 0.59)
}
dend[78] {pt3dclear()
pt3dadd(249.68, -1141.41, -479.38, 1.04)
pt3dadd(250.33, -1139.93, -480.45, 1.04)
pt3dadd(250.77, -1138.88, -483.63, 1.04)
pt3dadd(250.96, -1137.49, -484.8, 1.04)
pt3dadd(252.07, -1136.52, -488.2, 1.04)
pt3dadd(252.81, -1135.5, -489.21, 1.04)
pt3dadd(252.95, -1134.48, -490.64, 1.04)
pt3dadd(252.66, -1132.72, -492.45, 1.04)
pt3dadd(253.37, -1131.4, -497.97, 1.04)
pt3dadd(253.32, -1130.65, -501.26, 1.04)
pt3dadd(254.08, -1130.01, -504.77, 1.04)
pt3dadd(254.87, -1129.15, -509.12, 1.04)
pt3dadd(255.38, -1128.17, -512.52, 1.04)
pt3dadd(255.88, -1126.75, -514.86, 1.04)
pt3dadd(256.44, -1125.93, -518.47, 1.04)
pt3dadd(257.01, -1125.04, -520.38, 1.04)
pt3dadd(257.7, -1123.86, -525.11, 1.04)
pt3dadd(257.87, -1123.67, -525.58, 1.04)
pt3dadd(257.68, -1123.42, -525.58, 1.26)
pt3dadd(258.67, -1122.48, -528.98, 1.26)
pt3dadd(259.54, -1121.42, -533.87, 1.26)
pt3dadd(260.28, -1120.66, -535.2, 1.26)
pt3dadd(261.5, -1120.11, -536.95, 1.26)
pt3dadd(262.95, -1119.54, -539.55, 1.26)
pt3dadd(263.55, -1118.83, -542.31, 1.26)
pt3dadd(264.97, -1117.96, -544.12, 1.11)
pt3dadd(267.07, -1118.25, -546.99, 1.11)
pt3dadd(268.57, -1117.99, -548.69, 1.11)
pt3dadd(270.33, -1117.38, -553.41, 1.11)
pt3dadd(271.69, -1117, -555.48, 1.11)
pt3dadd(273.71, -1116.85, -557.87, 1.11)
pt3dadd(274.31, -1116.14, -559.89, 1.11)
pt3dadd(275.98, -1115.73, -561.7, 1.11)
pt3dadd(277.15, -1114.64, -562.6, 1.11)
pt3dadd(278.94, -1113.7, -566.48, 1.11)
pt3dadd(280.7, -1113.5, -567.8, 1.11)
pt3dadd(281.65, -1113.68, -569.13, 1.11)
pt3dadd(283.1, -1113.11, -571.52, 1.11)
pt3dadd(283.99, -1112.53, -574.76, 1.11)
pt3dadd(286.55, -1111.93, -577.73, 1.11)
pt3dadd(287.29, -1111.8, -579.86, 1.11)
pt3dadd(287.69, -1111.8, -580.02, 1.11)
pt3dadd(288.06, -1111.34, -580.02, 0.74)
pt3dadd(289.23, -1110.85, -584.64, 0.74)
pt3dadd(290.66, -1109.39, -587.45, 0.74)
pt3dadd(293.09, -1108.85, -591.28, 0.74)
pt3dadd(296.72, -1108.42, -592.76, 0.74)
}
}
proc shape3d_13() {
dend[78] { pt3dadd(299.45, -1107.94, -597.86, 0.74)
pt3dadd(300.56, -1107.6, -597.86, 0.74)
pt3dadd(302.8, -1107.89, -602.48, 0.74)
pt3dadd(304.06, -1107.69, -605.56, 0.74)
pt3dadd(305.9, -1107.4, -609.86, 0.74)
pt3dadd(307.62, -1107.4, -612.15, 0.74)
}
dend[79] {pt3dclear()
pt3dadd(307.62, -1107.4, -612.15, 0.89)
pt3dadd(307.73, -1106.39, -619.21, 0.89)
pt3dadd(307.12, -1105.97, -621.44, 0.89)
pt3dadd(307.31, -1105.23, -626.59, 0.89)
pt3dadd(306.63, -1103.11, -628.93, 0.74)
pt3dadd(305.72, -1100.7, -633.39, 0.74)
pt3dadd(306.57, -1099.56, -635.09, 0.74)
pt3dadd(306.28, -1097.8, -636.79, 0.74)
pt3dadd(307.22, -1098.68, -636.79, 0.89)
pt3dadd(309, -1097.33, -641.35, 0.89)
pt3dadd(313.42, -1096.23, -643.53, 1.04)
pt3dadd(318.53, -1093.99, -644.17, 1.04)
pt3dadd(322.65, -1092.26, -646.45, 1.04)
pt3dadd(324.18, -1092.5, -647.46, 1.04)
pt3dadd(326.16, -1091.65, -652.45, 1.04)
pt3dadd(329.29, -1090.94, -656.6, 1.04)
pt3dadd(333.86, -1089.74, -661.43, 1.04)
pt3dadd(339.87, -1088.13, -666.58, 1.04)
pt3dadd(342, -1087.78, -671.62, 1.04)
pt3dadd(343.05, -1086.08, -677.04, 1.04)
pt3dadd(344.27, -1084.5, -679.22, 1.04)
pt3dadd(346.18, -1083.13, -682.3, 1.04)
pt3dadd(348.53, -1082.15, -684.79, 1.04)
pt3dadd(349.72, -1079.76, -690.21, 1.04)
pt3dadd(350.47, -1078.69, -690.95, 1.04)
pt3dadd(351.33, -1078.88, -690.95, 0.97)
pt3dadd(352.86, -1078.3, -695.89, 0.97)
pt3dadd(353.89, -1077.41, -700.25, 0.97)
pt3dadd(354.58, -1075.94, -702.43, 0.97)
pt3dadd(356.28, -1075.38, -704.07, 0.97)
pt3dadd(358.89, -1074.76, -705.67, 0.97)
pt3dadd(360.25, -1074.38, -707.95, 0.97)
pt3dadd(361.27, -1073.66, -711.72, 0.97)
pt3dadd(361.79, -1072.4, -714.85, 0.97)
pt3dadd(361.04, -1071.56, -721.01, 0.97)
pt3dadd(362.58, -1070.27, -728.98, 0.97)
pt3dadd(363.55, -1068.71, -735.35, 0.97)
pt3dadd(365.84, -1065.7, -737.42, 0.97)
pt3dadd(365.18, -1062.96, -744.22, 0.97)
pt3dadd(365.52, -1060.67, -748.1, 0.97)
pt3dadd(365.46, -1060.16, -748.1, 0.74)
pt3dadd(365.83, -1057.92, -751.71, 0.74)
pt3dadd(364.94, -1055.63, -755.37, 0.74)
pt3dadd(363.73, -1052.12, -756.97, 0.59)
pt3dadd(364.13, -1050.35, -756.97, 0.59)
pt3dadd(362.93, -1049.05, -756.97, 0.59)
pt3dadd(362.78, -1046.58, -758.88, 0.59)
pt3dadd(362.25, -1044.56, -758.93, 0.59)
pt3dadd(362.02, -1041.56, -762.33, 0.59)
pt3dadd(362.4, -1039.49, -762.22, 0.59)
}
dend[80] {pt3dclear()
pt3dadd(307.62, -1107.4, -612.15, 0.59)
pt3dadd(310.58, -1109.14, -613.74, 0.59)
pt3dadd(313.85, -1111.01, -614.64, 0.59)
pt3dadd(317.29, -1113.39, -617.3, 0.59)
pt3dadd(319.28, -1114.72, -617.46, 0.59)
pt3dadd(323.33, -1117.59, -620.96, 0.59)
pt3dadd(326.82, -1119.46, -622.24, 0.59)
pt3dadd(329.24, -1122.4, -623.35, 0.59)
pt3dadd(331.65, -1123.22, -624.1, 0.59)
pt3dadd(333.64, -1124.55, -629.19, 0.59)
}
dend[81] {pt3dclear()
pt3dadd(204.44, -1161.15, -353.74, 1.26)
pt3dadd(204.24, -1162.63, -352.3, 1.26)
pt3dadd(206.4, -1166.66, -353.52, 1.26)
pt3dadd(207.64, -1169.52, -353.52, 1.26)
pt3dadd(209.58, -1174.44, -353.52, 1.26)
pt3dadd(211.26, -1180.83, -354.74, 1.26)
pt3dadd(211.73, -1182.6, -354.74, 1.26)
pt3dadd(211.77, -1183.24, -354.74, 1.11)
pt3dadd(212.24, -1186.36, -354.74, 1.11)
pt3dadd(212.78, -1186.94, -354.74, 1.26)
pt3dadd(213.69, -1189.38, -352.83, 1.26)
pt3dadd(214.55, -1192.1, -350.97, 1.26)
pt3dadd(215.66, -1196.07, -351.98, 1.26)
}
dend[82] {pt3dclear()
pt3dadd(215.66, -1196.07, -351.98, 1.04)
pt3dadd(217.47, -1197.52, -352.25, 1.04)
pt3dadd(219.82, -1199.69, -354, 1.04)
pt3dadd(220.28, -1200.72, -354, 1.04)
pt3dadd(220.2, -1200.31, -354, 0.67)
pt3dadd(221.25, -1201.44, -357.82, 0.67)
pt3dadd(222.32, -1202.8, -359.9, 0.67)
pt3dadd(223.98, -1203.92, -361.17, 0.67)
pt3dadd(225.28, -1204.95, -361.17, 0.67)
pt3dadd(225.96, -1206.38, -363.45, 0.67)
pt3dadd(227.78, -1207.83, -365.74, 0.67)
pt3dadd(228.94, -1209.14, -368.18, 0.67)
pt3dadd(229.72, -1210.45, -372.53, 0.67)
pt3dadd(230.78, -1211.2, -376.68, 0.67)
pt3dadd(232.51, -1212.33, -378.7, 0.67)
pt3dadd(232.66, -1212.67, -378.75, 0.67)
pt3dadd(233.79, -1213.82, -380.82, 0.67)
pt3dadd(235.71, -1215.14, -381.83, 0.67)
pt3dadd(236.02, -1215.43, -382.2, 0.67)
pt3dadd(237.09, -1216.11, -384.27, 0.67)
pt3dadd(237.21, -1216.29, -385.07, 0.67)
pt3dadd(239.54, -1218.53, -386.34, 0.67)
pt3dadd(241.51, -1222.06, -386.34, 0.67)
pt3dadd(245.55, -1227.31, -388.68, 0.67)
pt3dadd(248.44, -1231.18, -388.68, 0.67)
pt3dadd(251.22, -1233.82, -388.68, 0.67)
pt3dadd(255.04, -1238.65, -390.64, 0.67)
pt3dadd(255.79, -1240.85, -390.7, 0.67)
pt3dadd(256.2, -1243.18, -390.7, 0.67)
pt3dadd(259.51, -1249.34, -390.06, 0.67)
pt3dadd(261.54, -1252.95, -390.11, 0.67)
pt3dadd(263.67, -1256.13, -390.11, 0.67)
pt3dadd(265.55, -1259.78, -393.25, 0.67)
pt3dadd(267.54, -1262.18, -396.75, 0.67)
pt3dadd(269.22, -1263.52, -399.03, 0.67)
pt3dadd(272.89, -1266.96, -400.95, 0.67)
pt3dadd(277.52, -1270.52, -400.95, 0.67)
pt3dadd(281.15, -1273.8, -400.95, 0.67)
pt3dadd(286.41, -1277.96, -404.29, 0.67)
pt3dadd(292.2, -1281.09, -408.59, 0.67)
pt3dadd(293.93, -1283.28, -408.59, 0.67)
pt3dadd(296.89, -1285.02, -407.85, 0.67)
}
dend[83] {pt3dclear()
pt3dadd(215.66, -1196.07, -351.98, 1.04)
pt3dadd(215.01, -1196.75, -350.92, 1.04)
pt3dadd(214.97, -1198.97, -347.42, 1.04)
pt3dadd(214.21, -1201.94, -345.45, 1.04)
pt3dadd(213.48, -1202.99, -342.58, 1.04)
pt3dadd(214.63, -1208.95, -342.58, 1.04)
pt3dadd(215.19, -1211.38, -342.53, 1.04)
pt3dadd(215.38, -1213.59, -342.53, 1.04)
pt3dadd(216.14, -1214.69, -340.62, 1.04)
pt3dadd(215.45, -1217.43, -340.57, 1.04)
pt3dadd(216.69, -1220.15, -337.8, 1.04)
pt3dadd(216.5, -1222.44, -337.8, 1.04)
pt3dadd(217, -1225.31, -337.8, 1.04)
pt3dadd(217.19, -1227.55, -335.25, 1.04)
pt3dadd(217.69, -1230.64, -331.48, 0.82)
pt3dadd(218, -1235.07, -328.88, 0.82)
pt3dadd(219.37, -1236.97, -328.94, 0.82)
}
dend[84] {pt3dclear()
pt3dadd(219.37, -1236.97, -328.94, 0.52)
pt3dadd(218.51, -1238.9, -326.07, 0.52)
pt3dadd(218.05, -1242.38, -319.54, 0.52)
pt3dadd(218.02, -1244.6, -315.82, 0.74)
pt3dadd(217.47, -1247.49, -313.22, 0.74)
pt3dadd(215.73, -1249.96, -308.91, 0.74)
pt3dadd(213.61, -1251.63, -305.25, 0.74)
pt3dadd(211.82, -1251.66, -304.4, 0.74)
pt3dadd(212, -1252.73, -304.4, 0.52)
pt3dadd(212.29, -1253.22, -298.77, 0.52)
pt3dadd(212.45, -1255.06, -295.27, 0.52)
}
dend[85] {pt3dclear()
pt3dadd(212.45, -1255.06, -295.27, 0.37)
pt3dadd(211.3, -1254.83, -295.32, 0.37)
pt3dadd(210.09, -1254.77, -291.44, 0.37)
pt3dadd(208.81, -1255.31, -287.25, 0.37)
pt3dadd(206.69, -1256.85, -286.4, 0.37)
pt3dadd(206.88, -1259.43, -284.38, 0.37)
}
dend[86] {pt3dclear()
pt3dadd(212.45, -1255.06, -295.27, 0.37)
pt3dadd(213.25, -1256, -295.27, 0.37)
pt3dadd(214.52, -1257.69, -293.62, 0.37)
pt3dadd(216.33, -1259.54, -291.55, 0.37)
pt3dadd(218.26, -1261.08, -291.55, 0.37)
pt3dadd(219.41, -1263.61, -289.64, 0.37)
pt3dadd(220.38, -1265.28, -287.35, 0.37)
pt3dadd(222.2, -1267.2, -284.22, 0.37)
pt3dadd(223.8, -1269.15, -279.76, 0.37)
pt3dadd(225.07, -1270.85, -275.72, 0.37)
pt3dadd(226.6, -1272.81, -271.69, 0.37)
pt3dadd(228.02, -1274.49, -267.7, 0.37)
}
dend[87] {pt3dclear()
pt3dadd(219.37, -1236.97, -328.94, 0.59)
pt3dadd(219.63, -1239.33, -333.29, 0.59)
pt3dadd(221.99, -1242.31, -334.88, 0.59)
pt3dadd(223.95, -1243.68, -339.45, 0.59)
pt3dadd(225.53, -1245.13, -340.19, 0.59)
pt3dadd(228.34, -1248.11, -342.8, 0.59)
pt3dadd(229.18, -1249.5, -343.11, 0.59)
pt3dadd(229, -1251.87, -343.22, 0.59)
pt3dadd(231.48, -1253.45, -345.13, 0.52)
pt3dadd(233.51, -1254.6, -346.67, 0.52)
pt3dadd(235.24, -1256.12, -353.74, 0.52)
pt3dadd(237.08, -1258.97, -355.86, 0.52)
pt3dadd(239.47, -1264, -355.86, 0.52)
pt3dadd(241.09, -1267.45, -355.86, 0.52)
pt3dadd(244.67, -1270.56, -355.86, 0.52)
pt3dadd(246.17, -1272.78, -358.89, 0.52)
}
}
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()
}
objref all, somatic, axonal, basal
proc subsets() { local i
objref all, somatic, axonal, basal
all = new SectionList()
soma all.append()
axon all.append()
for i=0, 87 dend[i] all.append()
somatic = new SectionList()
soma somatic.append()
axonal = new SectionList()
axon axonal.append()
basal = new SectionList()
for i=0, 87 dend[i] basal.append()
}
proc geom() {
}
proc geom_nseg() {
forsec all { nseg = int((L/(0.1*lambda_f(100))+.9)/2)*2 + 1 }
}
celsius = 24
proc biophys() {
forsec all {
}
forsec basal {
insert passsd
g_passsd=1.1231e-05
erev_passsd=-66.164
insert Kleaksd
gkl_Kleaksd=3.2258e-06
insert IM
gbar_IM = 0.000075
insert IMminret
gbar_IMminret=0 // 0.000075
insert Ikdrf
gbar_Ikdrf = 0.0006
insert Ikdrs
gbar_Ikdrs = 0.00023
insert Ika
gbar_Ika = 0.00025
Ra=300
cm=0.9
ek=-95
insert cal
gcalbar_cal = 0.0025
insert cad
insert cat
gbar_cat = 0.00025
insert kca
gkbar_kca = 0.00055
insert Nadend
gna_Nadend = 0.0117
ena=90
insert Ih
gkhbar_Ih = 0.00005
eh=-32
}
forsec somatic {
insert passsd
g_passsd=1.1231e-05
erev_passsd=-66.164
insert Kleaksd
gkl_Kleaksd=3.2258e-06
Ra=300
cm=0.9
ek=-95
insert IM
gbar_IM=0.000075
insert IMminret
gbar_IMminret=0 // 0.000075
insert Ikdrf
gbar_Ikdrf = 0.0006
insert Ikdrs
gbar_Ikdrs = 0.00023
insert Ika
gbar_Ika = 0.00025
insert Nasoma
gna_Nasoma = 0.0107
ena=90
insert Ih
gkhbar_Ih = 0.00005
eh=-32
}
forsec axonal {
insert passaxon
g_passaxon=6.1771e-05
erev_passaxon=-66.164
insert Kleakaxon
gkl_Kleakaxon=1.7742e-05
insert Ikdrfaxon
gbar_Ikdrfaxon = 0.0006
insert Ikdrsaxon
gbar_Ikdrsaxon = 0.00023
Ra=300
cm=0.9
ek=-95
insert Naaxon
gna_Naaxon = 0.0117
ena=90
/*
soma distance(0,0.5)
dist1=distance(0)
dist2=distance(1)
tav.append(dist1)
*/
}
}
/*
objref f1, f2
f1 = new File()
f1.ropen("HS_5101_optimized_syn_per_area_excit.dat")
f2 = new File()
f2.ropen("HS_5101_optimized_syn_per_area_inhib.dat")
proc syn_per_area_define(){
forsec basal{
insert excit
insert inhib
//rate_excit = 0
//rate_inhib = 0
for (x,0){
syn_per_area_excit = f1.scanvar()
syn_per_area_inhib = f2.scanvar()
}
}
forsec somatic{
insert excit
insert inhib
//rate_excit = 0
//rate_inhib = 0
for (x,0){
syn_per_area_excit = f1.scanvar()
syn_per_area_inhib = f2.scanvar()
}
}
}
*/
access soma
celldef()
//syn_per_area_define()