load_file("subiter.hoc")
load_file("stdrun.hoc")
proc celldef() {
topol()
subsets()
geom()
biophys()
geom_nseg()
}
create soma, axon, dend[104]
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, 9 connect dend[i](0), dend[i-1](1)
connect dend[10](0), dend[8](1)
for i = 11, 12 connect dend[i](0), dend[10](1)
connect dend[13](0), dend[7](1)
for i = 14, 15 connect dend[i](0), dend[13](1)
connect dend[16](0), dend[6](1)
for i = 17, 18 connect dend[i](0), dend[16](1)
connect dend[19](0), dend[5](1)
for i = 20, 23 connect dend[i](0), dend[i-1](1)
connect dend[24](0), dend[22](1)
connect dend[25](0), dend[21](1)
for i = 26, 27 connect dend[i](0), dend[i-1](1)
connect dend[28](0), dend[26](1)
for i = 29, 30 connect dend[i](0), dend[28](1)
for i = 31, 32 connect dend[i](0), dend[30](1)
connect dend[33](0), dend[25](1)
for i = 34, 35 connect dend[i](0), dend[33](1)
connect dend[36](0), dend[20](1)
connect dend[37](0), dend[19](1)
for i = 38, 39 connect dend[i](0), dend[37](1)
for i = 40, 41 connect dend[i](0), dend[39](1)
for i = 42, 44 connect dend[i](0), dend[i-1](1)
connect dend[45](0), dend[43](1)
connect dend[46](0), dend[42](1)
connect dend[47](0), dend[41](1)
connect dend[48](0), soma(0.5)
for i = 49, 51 connect dend[i](0), dend[i-1](1)
connect dend[52](0), dend[50](1)
connect dend[53](0), dend[49](1)
connect dend[54](0), dend[48](1)
for i = 55, 56 connect dend[i](0), dend[i-1](1)
connect dend[57](0), dend[55](1)
connect dend[58](0), dend[54](1)
connect dend[59](0), soma(0.5)
for i = 60, 61 connect dend[i](0), dend[59](1)
for i = 62, 65 connect dend[i](0), dend[i-1](1)
connect dend[66](0), dend[64](1)
for i = 67, 68 connect dend[i](0), dend[66](1)
for i = 69, 70 connect dend[i](0), dend[68](1)
connect dend[71](0), dend[63](1)
for i = 72, 73 connect dend[i](0), dend[71](1)
connect dend[74](0), dend[62](1)
for i = 75, 76 connect dend[i](0), dend[74](1)
connect dend[77](0), dend[61](1)
for i = 78, 79 connect dend[i](0), dend[77](1)
for i = 80, 81 connect dend[i](0), soma(0.5)
for i = 82, 83 connect dend[i](0), dend[i-1](1)
connect dend[84](0), dend[82](1)
for i = 85, 87 connect dend[i](0), dend[i-1](1)
connect dend[88](0), dend[86](1)
for i = 89, 90 connect dend[i](0), dend[88](1)
connect dend[91](0), dend[85](1)
connect dend[92](0), dend[84](1)
connect dend[93](0), dend[81](1)
for i = 94, 96 connect dend[i](0), dend[i-1](1)
connect dend[97](0), dend[95](1)
for i = 98, 99 connect dend[i](0), dend[97](1)
connect dend[100](0), dend[94](1)
for i = 101, 102 connect dend[i](0), dend[100](1)
connect dend[103](0), dend[93](1)
basic_shape()
}
proc shape3d_1() {
soma {pt3dclear()
pt3dadd(43.9458, -24.7257, -329.36, 3.24289)
pt3dadd(44.5934, -25.5509, -332.42, 6.64086)
pt3dadd(43.6684, -25.3069, -335.03, 11.9795)
pt3dadd(43.317, -24.4749, -339.53, 15.2016)
pt3dadd(43.8534, -23.5759, -343.59, 15.6106)
pt3dadd(44.9673, -24.312, -348.254, 15.557)
pt3dadd(46.0421, -25.0588, -350.81, 14.3748)
pt3dadd(47.2853, -25.5607, -354.09, 14.3305)
pt3dadd(43.0924, -22.063, -356.2, 4.7506)
}
axon {pt3dclear()
pt3dstyle(1, 44.1201, -23.7521, -344.707)
pt3dadd(55.81, -30.62, -353.64, 2.2)
pt3dadd(66.38, -32.14, -353.54, 1.96)
pt3dadd(68.91, -33.44, -353.59, 1.96)
pt3dadd(70.61, -34.42, -353.37, 1.71)
pt3dadd(72, -34.42, -354.43, 1.3)
pt3dadd(73.3, -34.43, -354.43, 1.3)
pt3dadd(73.87, -35.4, -354.37, 1.3)
pt3dadd(75.33, -35.89, -355.21, 0.98)
pt3dadd(76.64, -35.81, -355.21, 0.98)
pt3dadd(77.7, -35.82, -356.54, 0.98)
pt3dadd(78.83, -36.55, -356.54, 0.98)
pt3dadd(79.81, -36.47, -356.54, 0.98)
pt3dadd(81.52, -37.21, -358.15, 0.98)
pt3dadd(82.25, -37.21, -358.1, 0.98)
pt3dadd(83.15, -36.89, -358.15, 0.98)
pt3dadd(84.61, -37.87, -358.15, 0.98)
pt3dadd(85.92, -37.3, -359.1, 0.98)
pt3dadd(87.14, -37.63, -360.76, 0.98)
pt3dadd(88.44, -38.2, -360.76, 0.98)
pt3dadd(89.34, -38.53, -360.76, 0.98)
pt3dadd(90.64, -38.21, -362.54, 0.81)
pt3dadd(91.94, -38.62, -364.1, 0.81)
pt3dadd(95.93, -39.6, -365.88, 0.81)
pt3dadd(99.55, -41.02, -365.88, 0.81)
pt3dadd(102.57, -41.92, -369.04, 0.81)
pt3dadd(105.82, -42.66, -370.43, 0.81)
pt3dadd(109.81, -43.8, -372.27, 0.81)
pt3dadd(112.17, -45.51, -374.88, 0.81)
}
dend {pt3dclear()
pt3dstyle(1, 44.1201, -23.7521, -344.707)
pt3dadd(47.28, -32.92, -342.2, 2.2)
pt3dadd(47.6, -33.57, -342.2, 2.04)
pt3dadd(48.42, -34.31, -340.92, 1.63)
pt3dadd(49.06, -35.36, -339.59, 1.63)
pt3dadd(48.57, -36.41, -339.59, 1.63)
pt3dadd(48.81, -37.3, -338.03, 1.79)
pt3dadd(49.79, -38.28, -336.42, 1.71)
pt3dadd(50.03, -39.25, -334.92, 1.55)
pt3dadd(49.7, -40.06, -333.08, 1.55)
pt3dadd(49.05, -40.54, -331.36, 1.55)
pt3dadd(48.64, -41.19, -329.14, 1.55)
pt3dadd(48.55, -41.92, -328.25, 1.55)
pt3dadd(47.98, -42.81, -326.69, 1.55)
pt3dadd(48.22, -43.78, -325.19, 1.55)
pt3dadd(47.97, -44.91, -323.02, 1.55)
pt3dadd(48.13, -45.89, -322.97, 1.47)
pt3dadd(48.21, -46.37, -321.41, 1.47)
pt3dadd(47.72, -47.5, -319.8, 1.47)
pt3dadd(47.39, -48.31, -318.47, 1.47)
pt3dadd(47.31, -48.31, -316.8, 1.47)
pt3dadd(47.26, -47.91, -316.8, 1.38)
pt3dadd(46.68, -49.93, -314.02, 1.38)
}
dend[1] {pt3dclear()
pt3dadd(46.68, -49.93, -314.02, 1.06)
pt3dadd(46.11, -50.79, -312.58, 1.06)
pt3dadd(45.67, -51.46, -310.74, 1.06)
pt3dadd(45.42, -51.85, -310.13, 1.06)
pt3dadd(44.94, -51.95, -308.19, 1.06)
pt3dadd(44.24, -52.17, -307.57, 1.06)
pt3dadd(43.6, -52.31, -305.13, 1.22)
pt3dadd(43.25, -53.04, -302.46, 1.22)
pt3dadd(42.61, -53.17, -300.07, 1.22)
pt3dadd(41.99, -53.8, -296.68, 1.22)
pt3dadd(41.53, -53.98, -293.85, 1.22)
pt3dadd(40.85, -54.28, -290.96, 1.22)
pt3dadd(40.82, -54.54, -288.34, 1.22)
pt3dadd(39.95, -54.39, -285.56, 1.22)
pt3dadd(38.87, -54.36, -284.12, 1.06)
pt3dadd(38.07, -54.53, -280.62, 1.22)
pt3dadd(37.67, -54.61, -277.23, 1.22)
pt3dadd(37.26, -55.03, -273.78, 1.22)
pt3dadd(36.52, -55.1, -269, 1.3)
pt3dadd(35.61, -54.3, -266.39, 1.3)
pt3dadd(34.91, -54.94, -263.67, 1.3)
pt3dadd(34, -55.79, -259.39, 1.47)
pt3dadd(33.62, -56.36, -255.72, 1.47)
pt3dadd(33.52, -56.24, -255.72, 1.47)
pt3dadd(33.03, -57.24, -254.44, 1.47)
pt3dadd(33.53, -58.22, -253.27, 1.47)
pt3dadd(33.56, -58.87, -251.38, 1.47)
pt3dadd(33.49, -59.87, -250.38, 1.47)
pt3dadd(33.43, -60.61, -250.33, 1.47)
pt3dadd(34.04, -61.24, -247.77, 1.47)
pt3dadd(33.86, -62.1, -245.21, 1.47)
pt3dadd(33.96, -62.66, -241.71, 1.47)
pt3dadd(34.44, -63.97, -237.27, 1.47)
pt3dadd(34.08, -64.28, -233.21, 1.47)
pt3dadd(33.72, -64.59, -227.71, 1.47)
pt3dadd(33.77, -65.32, -225.43, 1.38)
pt3dadd(34.06, -66.01, -221.87, 1.38)
pt3dadd(34.31, -68.85, -221.04, 1.38)
pt3dadd(34.74, -69.43, -219.7, 1.38)
pt3dadd(35.32, -69.9, -216.42, 1.38)
pt3dadd(36.09, -70.5, -213.59, 1.38)
pt3dadd(36.93, -72, -210.7, 1.38)
pt3dadd(37.04, -73.05, -208.2, 1.38)
pt3dadd(36.79, -74.49, -206.09, 1.38)
pt3dadd(36.87, -75.38, -204.7, 1.38)
pt3dadd(37.16, -77.47, -204.36, 1.38)
pt3dadd(37.54, -78.72, -202.31, 1.38)
pt3dadd(37.47, -79.72, -201.81, 1.38)
pt3dadd(37.26, -80.41, -199.75, 1.3)
pt3dadd(36.86, -81.39, -197.31, 1.3)
pt3dadd(36.83, -82.63, -195.86, 1.3)
pt3dadd(37.09, -84.14, -194.42, 1.3)
pt3dadd(37.06, -85.29, -194.42, 1.14)
pt3dadd(36.45, -86.14, -186.47, 1.14)
pt3dadd(36.36, -87.01, -183.52, 1.14)
pt3dadd(36.56, -87.71, -178.63, 1.14)
pt3dadd(35.97, -89.22, -176.74, 1.14)
pt3dadd(35.15, -89.62, -176.63, 1.38)
pt3dadd(35.05, -90.74, -173.74, 1.38)
pt3dadd(35.64, -91.33, -170.91, 1.38)
pt3dadd(35.67, -92.34, -170.02, 1.38)
pt3dadd(35.4, -93.5, -168.57, 1.38)
pt3dadd(36.04, -94.25, -167.35, 1.38)
pt3dadd(36.06, -94.92, -165.07, 1.38)
pt3dadd(36.06, -95.51, -161.96, 1.38)
pt3dadd(35.92, -96.81, -159.85, 1.38)
pt3dadd(36.19, -97.49, -157.62, 1.55)
pt3dadd(36.34, -98.29, -153.95, 1.55)
pt3dadd(36.52, -99.25, -152.4, 1.47)
pt3dadd(37.13, -99.92, -149.34, 1.47)
pt3dadd(37, -100.63, -145.51, 1.47)
pt3dadd(37.91, -102.06, -144.12, 1.47)
pt3dadd(38.19, -103.07, -140.34, 1.47)
pt3dadd(38.44, -103.93, -137.11, 1.47)
pt3dadd(38.01, -105.73, -133.72, 1.47)
pt3dadd(38.01, -106.32, -130.22, 1.47)
pt3dadd(37.56, -107.12, -129.55, 1.3)
pt3dadd(37.79, -109.06, -129.55, 0.98)
pt3dadd(37.44, -110.09, -111.99, 0.98)
pt3dadd(39.15, -110.99, -110.44, 0.98)
pt3dadd(39.33, -110.98, -107.6, 0.98)
pt3dadd(39.69, -110.78, -104.32, 0.98)
pt3dadd(40.35, -110.13, -100.15, 0.98)
pt3dadd(40.82, -109.13, -97.93, 0.98)
pt3dadd(40.46, -108.49, -94.26, 0.98)
pt3dadd(40.7, -108.26, -91.65, 0.98)
pt3dadd(42.21, -107.6, -89.65, 0.98)
pt3dadd(42.35, -107.52, -87.26, 0.98)
pt3dadd(42.74, -107.4, -84.2, 0.98)
pt3dadd(42.78, -108.3, -81.42, 0.98)
pt3dadd(42.94, -108.58, -78.98, 0.98)
pt3dadd(44.2, -108.99, -76.2, 0.98)
pt3dadd(45.02, -109.46, -74.03, 0.98)
pt3dadd(45.57, -110.27, -72.64, 0.98)
pt3dadd(46.09, -110.53, -70.14, 0.98)
pt3dadd(46.89, -111.29, -67.92, 0.98)
pt3dadd(47.98, -112.07, -64.3, 0.98)
pt3dadd(48.65, -112.25, -63.97, 0.98)
pt3dadd(50.58, -112.6, -63.97, 0.65)
pt3dadd(51.16, -112.62, -59.36, 0.65)
pt3dadd(52.1, -113.02, -57.02, 0.65)
pt3dadd(52.52, -112.32, -55.97, 0.65)
pt3dadd(52.39, -111.85, -52.86, 0.65)
pt3dadd(51.96, -111.65, -48.63, 0.65)
pt3dadd(51.4, -111.79, -46.07, 0.65)
pt3dadd(51.17, -112.79, -44.24, 0.65)
}
dend[2] {pt3dclear()
pt3dadd(51.17, -112.79, -44.24, 0.57)
pt3dadd(50.88, -111.51, -43.85, 0.57)
pt3dadd(50.64, -110.72, -41.46, 0.57)
pt3dadd(49.86, -110.31, -40.46, 0.57)
pt3dadd(49.39, -109.71, -38.29, 0.57)
}
dend[3] {pt3dclear()
pt3dadd(51.17, -112.79, -44.24, 0.57)
pt3dadd(52.86, -116.44, -44.24, 0.57)
pt3dadd(53.81, -117.81, -42.02, 0.57)
pt3dadd(55.02, -118.34, -40.96, 0.57)
pt3dadd(55.78, -118.58, -37.79, 0.57)
pt3dadd(56.43, -118.52, -34.35, 0.57)
}
dend[4] {pt3dclear()
pt3dadd(46.68, -49.93, -314.02, 1.06)
pt3dadd(47.34, -50.7, -315.24, 1.06)
pt3dadd(47.3, -52.12, -315.24, 1.06)
pt3dadd(47.58, -53.46, -315.24, 1.06)
pt3dadd(47.18, -55.12, -315.24, 1.06)
pt3dadd(47.28, -56.42, -315.19, 1.3)
pt3dadd(47.16, -57.85, -315.19, 1.3)
pt3dadd(47.49, -59.03, -314.69, 1.06)
pt3dadd(47.28, -60.81, -314.69, 1.06)
pt3dadd(47.52, -61.58, -314.69, 1.06)
pt3dadd(48.17, -62.69, -314.69, 1.06)
pt3dadd(48.86, -63.21, -313.8, 1.06)
pt3dadd(48.76, -64.59, -313.13, 1.06)
pt3dadd(48.86, -65.07, -313.13, 1.22)
pt3dadd(49.66, -66.14, -313.13, 1.22)
pt3dadd(50.38, -67.98, -312.69, 1.06)
pt3dadd(50.27, -69.08, -312.69, 1.06)
pt3dadd(50.34, -70.22, -312.69, 1.06)
pt3dadd(50.48, -71.27, -312.69, 1.06)
pt3dadd(50.87, -72.35, -312.69, 1.06)
pt3dadd(50.9, -72.92, -312.69, 1.06)
pt3dadd(51.1, -73.87, -312.69, 1.06)
pt3dadd(51.65, -74.91, -312.69, 1.06)
}
}
proc shape3d_2() {
dend[4] { pt3dadd(52.2, -75.96, -312.69, 1.06)
pt3dadd(51.92, -77.42, -312.69, 1.06)
pt3dadd(51.62, -77.98, -312.8, 1.06)
pt3dadd(52, -79.39, -312.74, 1.06)
pt3dadd(51.51, -80.65, -313.47, 1.06)
pt3dadd(51.25, -81.78, -313.47, 1.06)
pt3dadd(51.43, -83.07, -312.8, 1.06)
pt3dadd(51.77, -83.49, -312.85, 1.06)
pt3dadd(51.58, -84.61, -312.8, 1.06)
pt3dadd(52.36, -85.52, -312.8, 1.06)
pt3dadd(52.41, -87, -313.13, 1.06)
pt3dadd(52.61, -88.36, -313.13, 1.06)
pt3dadd(51.69, -89.55, -313.91, 1.06)
pt3dadd(51.45, -91.58, -313.97, 1.06)
pt3dadd(52.02, -93.53, -313.91, 1.06)
pt3dadd(52.62, -95.23, -314.74, 1.06)
pt3dadd(52.1, -96.33, -313.08, 1.06)
pt3dadd(51.65, -98.16, -313.41, 1.14)
pt3dadd(51.26, -99.48, -313.41, 1.14)
pt3dadd(51.38, -100.45, -313.41, 1.14)
pt3dadd(51.23, -102.13, -313.41, 1.14)
pt3dadd(50.93, -103.52, -313.41, 1.14)
pt3dadd(50.54, -105.25, -313.41, 1.14)
pt3dadd(49.99, -106.61, -314.08, 1.14)
pt3dadd(50.08, -107.74, -313.58, 1.06)
pt3dadd(49.02, -109.45, -313.58, 1.06)
pt3dadd(48.13, -110.37, -313.58, 1.06)
pt3dadd(48.19, -111.85, -313.58, 1.06)
pt3dadd(48.36, -113.06, -313.58, 1.06)
pt3dadd(48.54, -114.34, -313.58, 1.06)
pt3dadd(49.34, -115, -313.58, 1.06)
pt3dadd(48.89, -116.42, -313.58, 1.06)
pt3dadd(50.03, -117.51, -313.19, 1.06)
pt3dadd(50.15, -118.89, -313.19, 1.06)
pt3dadd(49.63, -120.4, -313.19, 1.06)
pt3dadd(50.1, -121.46, -313.19, 1.06)
pt3dadd(50.7, -122.33, -313.19, 1.06)
pt3dadd(50.96, -123.6, -314.41, 0.98)
pt3dadd(51.32, -125.35, -314.47, 0.98)
pt3dadd(50.61, -126.32, -314.41, 0.98)
pt3dadd(49.86, -127.14, -314.41, 0.98)
pt3dadd(49.37, -128.4, -315.24, 0.98)
pt3dadd(49.55, -130.02, -315.24, 0.98)
pt3dadd(49.74, -131.38, -315.24, 0.98)
pt3dadd(49.75, -132.62, -315.24, 0.98)
pt3dadd(49.55, -133.65, -315.24, 0.98)
pt3dadd(49.4, -134.93, -315.24, 0.98)
pt3dadd(49.36, -135.93, -315.24, 0.98)
pt3dadd(49.7, -137.18, -314.02, 0.98)
pt3dadd(50.23, -138.14, -314.02, 0.98)
pt3dadd(50.48, -140.16, -314.02, 0.98)
pt3dadd(50.44, -141.16, -314.02, 0.98)
pt3dadd(50.1, -141.9, -313.3, 0.9)
pt3dadd(49.51, -142.68, -313.3, 0.9)
pt3dadd(50.73, -144.16, -312.52, 0.9)
pt3dadd(51.32, -145.78, -312.52, 0.9)
pt3dadd(51.44, -147.57, -312.52, 0.9)
pt3dadd(51.43, -149.15, -312.52, 0.9)
pt3dadd(51.38, -150.07, -312.52, 0.9)
pt3dadd(51.7, -152.04, -311.85, 0.9)
pt3dadd(51.46, -153.67, -311.85, 0.9)
pt3dadd(51.03, -154.83, -311.96, 0.9)
pt3dadd(51.36, -156, -310.19, 0.9)
pt3dadd(51.77, -157.16, -309.41, 0.9)
pt3dadd(51.59, -159.1, -309.19, 0.9)
pt3dadd(51.34, -160.31, -308.19, 0.9)
pt3dadd(51.89, -161.35, -308.07, 0.9)
pt3dadd(52.6, -162.36, -308.07, 0.9)
pt3dadd(53.22, -162.98, -307.35, 0.9)
pt3dadd(52.22, -164.18, -307.35, 0.9)
pt3dadd(51.76, -165.93, -306.02, 0.9)
pt3dadd(51.14, -167.79, -305.85, 0.9)
pt3dadd(50.8, -169.77, -304.18, 0.9)
pt3dadd(51.02, -171.21, -303.13, 0.9)
pt3dadd(51.71, -173.3, -303.13, 0.81)
pt3dadd(51.84, -174.76, -303.13, 0.81)
pt3dadd(52.49, -175.87, -303.13, 0.81)
pt3dadd(53.87, -177.73, -302.13, 0.81)
pt3dadd(54.28, -179.72, -301.24, 0.81)
pt3dadd(54.55, -180.98, -300.85, 0.81)
pt3dadd(54.91, -183.14, -300.79, 0.81)
pt3dadd(56.44, -184.48, -300.85, 0.81)
pt3dadd(56.93, -186.45, -300.79, 0.81)
pt3dadd(57.53, -188.14, -300.79, 0.81)
pt3dadd(57.46, -189.4, -300.79, 0.81)
pt3dadd(57.05, -190.64, -300.13, 0.81)
pt3dadd(57.54, -191.78, -299.79, 0.81)
pt3dadd(58.15, -193.14, -299.79, 0.81)
pt3dadd(58.04, -194.65, -298.68, 0.81)
pt3dadd(58.59, -195.28, -296.29, 0.81)
pt3dadd(59, -196.85, -295.68, 0.81)
pt3dadd(59.17, -198.06, -294.01, 0.73)
pt3dadd(59.38, -199.09, -294.01, 0.73)
pt3dadd(60.38, -200.29, -294.01, 0.73)
pt3dadd(60.15, -201.99, -292.29, 0.73)
pt3dadd(60.72, -203.53, -293.62, 0.73)
pt3dadd(60.96, -204.72, -293.62, 0.73)
pt3dadd(61.47, -206.35, -293.62, 0.73)
pt3dadd(61.58, -208.48, -293.62, 0.73)
pt3dadd(61.27, -209.78, -293.62, 0.73)
pt3dadd(61.08, -211.31, -292.12, 0.73)
pt3dadd(61.42, -213.31, -292.12, 0.73)
pt3dadd(62.19, -216.62, -292.29, 0.73)
pt3dadd(63.11, -219.08, -292.29, 0.73)
pt3dadd(64.79, -221.54, -292.29, 0.73)
pt3dadd(66.15, -225.31, -290.07, 0.73)
pt3dadd(66.45, -227.15, -290.07, 0.57)
pt3dadd(66.67, -229.42, -289.12, 0.57)
pt3dadd(67.84, -231.41, -289.12, 0.57)
pt3dadd(68.47, -232.85, -289.12, 0.57)
pt3dadd(69.37, -236.72, -287.23, 0.57)
pt3dadd(69.85, -238.61, -285.79, 0.57)
pt3dadd(68.7, -241.08, -285.79, 0.57)
pt3dadd(68.26, -242.17, -285.73, 0.57)
pt3dadd(68.55, -243.18, -285.73, 0.57)
pt3dadd(68.07, -244.11, -285.73, 0.57)
pt3dadd(67.81, -245.24, -285.73, 0.57)
pt3dadd(68.06, -246.43, -284.12, 0.57)
pt3dadd(68.05, -247.59, -284.12, 0.57)
pt3dadd(68.2, -248.71, -283.01, 0.65)
pt3dadd(68.97, -249.63, -283.01, 0.65)
pt3dadd(68.44, -251.06, -283.01, 0.65)
pt3dadd(69.02, -251.85, -283.01, 0.65)
pt3dadd(69.09, -253, -280.84, 0.65)
pt3dadd(69.61, -254.29, -279.34, 0.65)
pt3dadd(70.2, -255.16, -279.23, 0.65)
pt3dadd(70.48, -256.1, -278.95, 0.65)
pt3dadd(69.98, -257.28, -276.95, 0.65)
pt3dadd(70.59, -259.05, -273.84, 0.57)
pt3dadd(70.25, -259.37, -271.78, 0.57)
pt3dadd(69.5, -259.78, -271.34, 0.41)
pt3dadd(68.58, -260.96, -272.39, 0.41)
}
dend[5] {pt3dclear()
pt3dstyle(1, 44.1201, -23.7521, -344.707)
pt3dadd(48.74, -29.71, -335.94, 4.48)
pt3dadd(52.13, -30.31, -337.09, 4.4)
pt3dadd(53.6, -31.12, -338.48, 3.99)
pt3dadd(53.84, -31.69, -339.7, 3.5)
}
dend[6] {pt3dclear()
pt3dadd(53.84, -31.69, -339.7, 2.04)
pt3dadd(53.18, -32.58, -343.81, 2.04)
pt3dadd(53.18, -34.6, -345.7, 2.04)
pt3dadd(53.17, -36.55, -347.87, 2.04)
pt3dadd(52.92, -37.2, -349.2, 1.79)
pt3dadd(50.97, -37.67, -351.04, 1.55)
pt3dadd(50.23, -37.83, -354.26, 1.71)
pt3dadd(48.6, -38.23, -356.32, 1.71)
pt3dadd(48.68, -38.23, -359.32, 1.71)
pt3dadd(48.11, -38.21, -359.32, 1.96)
pt3dadd(47.34, -38.48, -362.04, 1.96)
pt3dadd(46.55, -38.67, -364.38, 1.96)
pt3dadd(45.73, -39.11, -368.71, 1.96)
pt3dadd(45.26, -39.23, -370.88, 1.96)
pt3dadd(44.24, -39.89, -373.05, 1.96)
pt3dadd(43.67, -40.28, -376.83, 1.96)
pt3dadd(43.51, -40.31, -379.55, 1.96)
pt3dadd(43.31, -40.86, -381.66, 1.96)
pt3dadd(43.31, -40.86, -384.22, 1.96)
pt3dadd(43.15, -40.9, -386.27, 1.96)
pt3dadd(43.07, -40.92, -388.61, 1.96)
pt3dadd(43.07, -40.92, -391.66, 1.96)
pt3dadd(43.27, -40.37, -393.5, 1.96)
pt3dadd(43.26, -39.96, -397.95, 1.96)
}
dend[7] {pt3dclear()
pt3dadd(43.26, -39.96, -397.95, 1.63)
pt3dadd(44.1, -40.34, -399.56, 1.63)
pt3dadd(43.8, -40.83, -402.73, 1.63)
pt3dadd(44.02, -40.69, -404.34, 1.63)
pt3dadd(44.26, -40.63, -406.67, 1.63)
pt3dadd(44.41, -40.6, -409.12, 1.63)
pt3dadd(44.92, -40.97, -411.17, 1.63)
pt3dadd(45.44, -41.02, -412.12, 1.63)
pt3dadd(46.06, -41.53, -413.45, 1.63)
pt3dadd(46.24, -41.91, -414.56, 1.47)
pt3dadd(47.02, -42.38, -416.45, 1.38)
pt3dadd(47.73, -42.88, -417.79, 1.38)
pt3dadd(47.98, -43.24, -419.4, 1.38)
pt3dadd(47.85, -44.1, -420.07, 1.38)
pt3dadd(48.25, -43.82, -420.07, 1.3)
pt3dadd(48.41, -43.79, -425.46, 1.3)
}
dend[8] {pt3dclear()
pt3dadd(48.41, -43.79, -425.46, 0.9)
pt3dadd(49.53, -44.62, -427.79, 0.9)
pt3dadd(50.88, -44.3, -430.46, 0.9)
pt3dadd(51.33, -44.96, -435.18, 0.9)
pt3dadd(51.33, -45.46, -436.13, 0.9)
pt3dadd(51.83, -45.95, -439.52, 0.9)
pt3dadd(51.71, -46.21, -443.8, 0.9)
pt3dadd(52.3, -46.77, -445.97, 0.98)
pt3dadd(52.83, -47.42, -450.25, 0.98)
pt3dadd(53.85, -48.06, -453.14, 0.98)
pt3dadd(53.8, -49.22, -457.19, 0.98)
pt3dadd(54.5, -49.92, -458.92, 0.98)
pt3dadd(54.92, -50.42, -461.25, 1.06)
pt3dadd(55.28, -50.61, -463.81, 1.06)
pt3dadd(55.81, -51.25, -465.64, 1.06)
pt3dadd(56.14, -52.68, -471.7, 1.06)
pt3dadd(56.67, -52.42, -474.76, 1.06)
pt3dadd(56.92, -52.87, -477.31, 1.06)
pt3dadd(56.73, -53.23, -480.26, 1.06)
pt3dadd(57.36, -53.53, -483.26, 1.06)
pt3dadd(57.94, -53.52, -487.59, 1.06)
pt3dadd(59.23, -55.7, -487.59, 1.14)
pt3dadd(60.53, -57.17, -492.32, 1.14)
}
}
proc shape3d_3() {
dend[8] { pt3dadd(60.31, -57.59, -494.88, 1.14)
pt3dadd(60.58, -58.14, -497.21, 1.14)
pt3dadd(60.76, -58.46, -499.1, 1.14)
pt3dadd(60.83, -59.67, -500.49, 1.14)
pt3dadd(61.42, -60.04, -502.77, 1.14)
pt3dadd(61.77, -60.59, -504.82, 1.14)
pt3dadd(62.45, -61.04, -507.16, 1.14)
pt3dadd(63.52, -61.15, -509.33, 1.14)
pt3dadd(63.55, -61.79, -511.83, 1.14)
pt3dadd(64.56, -62.39, -512.77, 1.14)
pt3dadd(65.59, -63.23, -515.72, 1.14)
pt3dadd(66.26, -63.52, -519.72, 1.14)
pt3dadd(66.65, -63.25, -523.39, 1.14)
pt3dadd(67.98, -63.75, -524.28, 1.14)
pt3dadd(68.88, -63.7, -525.22, 1.14)
pt3dadd(69.7, -63.9, -527.28, 1.14)
pt3dadd(69.96, -64.05, -528.56, 1.14)
pt3dadd(70.69, -64.09, -529.78, 1.14)
pt3dadd(71.76, -64.27, -531.95, 1.14)
pt3dadd(72.33, -64.16, -535.17, 1.14)
pt3dadd(72.82, -64.13, -536.28, 1.14)
pt3dadd(73.96, -64.07, -536.34, 1.14)
pt3dadd(74.28, -64.06, -540.17, 1.14)
pt3dadd(74.71, -64.52, -543.06, 1.14)
pt3dadd(74.83, -65.08, -546.67, 1.14)
pt3dadd(75.03, -64.42, -549.51, 1.14)
pt3dadd(76.07, -65.07, -549.51, 1.06)
pt3dadd(75.73, -65.99, -552.84, 1.06)
pt3dadd(74.57, -66.81, -558.51, 1.06)
pt3dadd(73.8, -67.44, -560.96, 1.14)
pt3dadd(72.82, -67.51, -566.24, 1.14)
pt3dadd(72.58, -67.53, -568.24, 1.14)
pt3dadd(72.34, -67.63, -569.96, 1.14)
pt3dadd(72.13, -66.99, -572.13, 1.14)
pt3dadd(72.13, -66.99, -574.35, 1.14)
pt3dadd(72.37, -66.9, -575.08, 1.06)
pt3dadd(73.1, -66.84, -578.8, 1.06)
pt3dadd(73.87, -66.29, -584.52, 1.06)
pt3dadd(74.28, -66.26, -589.08, 1.06)
}
dend[9] {pt3dclear()
pt3dadd(74.28, -66.26, -589.08, 0.9)
pt3dadd(75.58, -66.16, -593.53, 0.9)
pt3dadd(75.87, -66.71, -594.86, 0.81)
pt3dadd(76.16, -67.34, -598.97, 0.81)
pt3dadd(76.82, -69.64, -601.86, 0.81)
pt3dadd(78.19, -70.43, -601.86, 0.81)
pt3dadd(78.66, -72.35, -601.92, 0.81)
pt3dadd(79.63, -75.36, -602.59, 0.81)
pt3dadd(81.04, -76.8, -604.37, 0.81)
pt3dadd(81.96, -78.11, -604.37, 0.81)
pt3dadd(83.34, -81.25, -606.26, 0.81)
pt3dadd(83.96, -82.91, -608.26, 0.81)
pt3dadd(85.04, -85.35, -611.31, 0.81)
pt3dadd(85.56, -86.77, -612.2, 0.73)
pt3dadd(86.26, -88.42, -614.31, 0.73)
pt3dadd(87.63, -88.72, -614.31, 0.73)
pt3dadd(88.19, -89.19, -615.93, 0.73)
pt3dadd(88.84, -89.88, -617.37, 0.73)
pt3dadd(89.28, -90.48, -619.76, 0.73)
pt3dadd(89.48, -91.37, -620.82, 0.73)
pt3dadd(89.71, -92.32, -621.59, 0.73)
pt3dadd(89.91, -93.21, -621.59, 0.57)
pt3dadd(89.75, -94.07, -623.82, 0.57)
pt3dadd(88.81, -95.18, -625.6, 0.65)
pt3dadd(88.27, -95.59, -629.88, 0.65)
pt3dadd(87.77, -96.07, -632.66, 0.73)
pt3dadd(86.89, -97.32, -634.77, 0.73)
pt3dadd(86.48, -97.59, -634.77, 0.73)
pt3dadd(85.77, -98.42, -634.88, 0.73)
pt3dadd(85.39, -99.2, -638.1, 0.73)
pt3dadd(84.19, -100.33, -640.55, 0.73)
pt3dadd(83.47, -100.91, -642.1, 0.73)
pt3dadd(83.69, -102.05, -644.22, 0.57)
pt3dadd(83.77, -104.3, -644.99, 0.57)
pt3dadd(83.12, -106.08, -646.94, 0.57)
pt3dadd(82.89, -106.8, -652, 0.57)
pt3dadd(82.67, -106.89, -655.55, 0.57)
pt3dadd(83.33, -107.4, -657.94, 0.57)
pt3dadd(84.02, -108.6, -657.94, 0.57)
pt3dadd(84.7, -109.37, -659.5, 0.49)
pt3dadd(85.5, -109.99, -660.72, 0.49)
pt3dadd(86.42, -110.48, -663.11, 0.49)
pt3dadd(87.62, -111.2, -664.72, 0.49)
pt3dadd(88.48, -111.98, -666.45, 0.49)
pt3dadd(89.45, -112.79, -667.34, 0.33)
pt3dadd(90.11, -115.16, -667.34, 0.33)
}
dend[10] {pt3dclear()
pt3dadd(74.28, -66.26, -589.08, 1.06)
pt3dadd(74.23, -65.62, -592.36, 1.06)
pt3dadd(74.23, -65.62, -595.47, 0.98)
pt3dadd(74.39, -65.52, -601.7, 0.98)
pt3dadd(74.51, -64.95, -602.86, 0.98)
pt3dadd(74.51, -64.95, -603.75, 0.9)
pt3dadd(74.51, -64.95, -607.14, 0.9)
pt3dadd(74.74, -64.77, -610.31, 0.9)
pt3dadd(73.89, -64.42, -612.09, 0.9)
pt3dadd(73.68, -64.69, -612.09, 0.98)
pt3dadd(73.6, -63.75, -617.32, 0.98)
pt3dadd(73.57, -63.67, -621.15, 0.98)
pt3dadd(73.42, -63.74, -625.49, 0.98)
pt3dadd(73.25, -63.37, -628.88, 0.98)
pt3dadd(73.33, -63.34, -632.88, 0.98)
pt3dadd(73.33, -63.34, -635.49, 0.98)
pt3dadd(74.11, -63.87, -640.16, 0.98)
pt3dadd(75.37, -63.29, -641.33, 0.98)
pt3dadd(76.11, -61.79, -642.49, 0.98)
pt3dadd(76.49, -61.44, -644.88, 0.98)
pt3dadd(76.36, -60.96, -647.55, 0.98)
}
dend[11] {pt3dclear()
pt3dadd(76.36, -60.96, -647.55, 0.73)
pt3dadd(76.93, -60.07, -648.66, 0.73)
pt3dadd(77.64, -58.68, -649.72, 0.73)
pt3dadd(78.46, -56.96, -651.33, 0.73)
pt3dadd(78.76, -55.66, -652.16, 0.73)
pt3dadd(80.09, -55.05, -653.78, 0.73)
pt3dadd(79.81, -53.66, -655.05, 0.73)
pt3dadd(80.99, -53.12, -656, 0.73)
pt3dadd(82.8, -52.37, -658.39, 0.73)
pt3dadd(83.95, -51.75, -659.33, 0.73)
pt3dadd(83.74, -51.49, -661.11, 0.73)
pt3dadd(83.25, -51.01, -664.39, 0.73)
pt3dadd(82.57, -50.51, -665.39, 0.73)
pt3dadd(82.17, -49.63, -666.67, 0.73)
pt3dadd(81.73, -48.67, -670.23, 0.73)
pt3dadd(81.85, -48.35, -672.45, 0.73)
}
dend[12] {pt3dclear()
pt3dadd(76.36, -60.96, -647.55, 0.73)
pt3dadd(76.2, -60.23, -650.66, 0.73)
pt3dadd(74.59, -59.46, -651.89, 0.73)
pt3dadd(73.47, -59.17, -652.94, 0.65)
pt3dadd(72.47, -59.72, -655.11, 0.65)
pt3dadd(71.37, -58.71, -655.44, 0.49)
pt3dadd(69.55, -58.66, -659.28, 0.49)
pt3dadd(68.01, -57.85, -659.28, 0.49)
pt3dadd(66.58, -57.08, -659.28, 0.49)
pt3dadd(63.94, -56.6, -661.06, 0.33)
pt3dadd(61.96, -56, -663.22, 0.33)
pt3dadd(60.09, -55.26, -664.95, 0.33)
pt3dadd(58.39, -54.88, -664.67, 0.16)
}
dend[13] {pt3dclear()
pt3dadd(48.41, -43.79, -425.46, 0.65)
pt3dadd(47.97, -43.62, -425.73, 0.65)
pt3dadd(48.12, -45.89, -430.68, 0.65)
pt3dadd(48.65, -47.53, -430.68, 0.65)
pt3dadd(49.47, -48.45, -433.52, 0.65)
pt3dadd(50.19, -48.82, -434.85, 0.65)
pt3dadd(50.2, -49.93, -434.85, 0.65)
pt3dadd(50.49, -51.11, -436.74, 0.65)
pt3dadd(50.77, -52.21, -439.41, 0.73)
pt3dadd(51.2, -53.78, -441.96, 0.9)
pt3dadd(50.21, -55.19, -441.91, 0.9)
pt3dadd(50.49, -57.28, -446.02, 0.9)
pt3dadd(50.8, -58.13, -449.3, 0.9)
pt3dadd(50.38, -59.02, -452.47, 0.9)
pt3dadd(50.77, -59.86, -455.25, 0.9)
pt3dadd(51.61, -60.86, -457.8, 0.9)
pt3dadd(51.04, -62.85, -459.3, 0.9)
pt3dadd(50.87, -64.69, -459.64, 0.9)
pt3dadd(51.4, -66.82, -462.31, 0.9)
pt3dadd(52.34, -67.97, -463.36, 0.81)
pt3dadd(52.82, -69.28, -463.36, 0.81)
pt3dadd(52.73, -70.7, -465.64, 0.81)
pt3dadd(51.85, -72.25, -466.97, 0.81)
}
dend[14] {pt3dclear()
pt3dadd(51.85, -72.25, -466.97, 0.65)
pt3dadd(50.13, -72.38, -468.2, 0.65)
pt3dadd(48.52, -73.07, -471.59, 0.65)
pt3dadd(47.25, -73.37, -472.25, 0.65)
pt3dadd(46.18, -72.49, -473.92, 0.65)
pt3dadd(45.35, -72.47, -476.7, 0.65)
pt3dadd(43.56, -73.11, -478.7, 0.65)
pt3dadd(42.73, -72.6, -480.09, 0.65)
pt3dadd(41.4, -73.49, -482.81, 0.65)
pt3dadd(40.84, -74.57, -484.59, 0.65)
pt3dadd(40.98, -75.37, -487.21, 0.65)
pt3dadd(43.08, -78.26, -487.21, 0.73)
pt3dadd(43.37, -79.22, -491.48, 0.73)
pt3dadd(42.29, -80.33, -493.49, 0.73)
pt3dadd(42.59, -81.37, -496.04, 0.73)
pt3dadd(41.96, -81.81, -498.71, 0.73)
pt3dadd(41.99, -82.29, -502.27, 0.73)
pt3dadd(41.21, -82.98, -506.21, 0.73)
pt3dadd(41.39, -83.3, -509.38, 0.73)
pt3dadd(41.88, -83.19, -512.16, 0.73)
pt3dadd(44.63, -84.42, -514.72, 0.73)
pt3dadd(44.9, -84.81, -518.55, 0.65)
pt3dadd(45.6, -85.67, -521.5, 0.65)
pt3dadd(45.96, -86.29, -524.33, 0.65)
pt3dadd(45.49, -86.73, -527.39, 0.65)
pt3dadd(45.93, -87.35, -530.39, 0.65)
pt3dadd(47.15, -88.66, -534.28, 0.49)
}
dend[15] {pt3dclear()
pt3dadd(51.85, -72.25, -466.97, 0.81)
pt3dadd(52.28, -73.32, -468.2, 0.81)
pt3dadd(52.41, -75.03, -470.81, 0.81)
pt3dadd(52.33, -75.53, -470.81, 0.73)
pt3dadd(52.04, -77.15, -473.25, 0.73)
pt3dadd(51.54, -77.64, -476.31, 0.73)
pt3dadd(51.23, -79.18, -478.81, 0.73)
pt3dadd(51.02, -80.36, -481.04, 0.73)
pt3dadd(51.28, -81.39, -481.09, 0.73)
pt3dadd(51.2, -82.8, -485.65, 0.73)
pt3dadd(52.15, -85.43, -487.87, 0.73)
pt3dadd(53.48, -86.75, -487.87, 0.81)
pt3dadd(54.75, -89.28, -490.32, 0.81)
pt3dadd(54.57, -91.88, -492.93, 0.81)
pt3dadd(54.56, -93.18, -493.43, 0.81)
}
}
proc shape3d_4() {
dend[15] { pt3dadd(54.08, -94.99, -494.88, 0.81)
pt3dadd(54.56, -96.35, -494.88, 0.65)
pt3dadd(54.84, -98.44, -494.88, 0.65)
pt3dadd(55.43, -100.27, -497.04, 0.65)
pt3dadd(55.74, -101.47, -498.82, 0.65)
pt3dadd(55.82, -103.01, -499.71, 0.65)
pt3dadd(56.3, -105.9, -500.38, 0.65)
pt3dadd(55.84, -107.87, -501.77, 0.65)
pt3dadd(55.62, -109.83, -502.43, 0.65)
pt3dadd(56.08, -110.94, -503.1, 0.57)
pt3dadd(56.6, -114.48, -503.1, 0.57)
pt3dadd(57.05, -115.27, -504.16, 0.57)
pt3dadd(56.56, -116.54, -505.94, 0.57)
pt3dadd(57.41, -118.53, -506.55, 0.57)
pt3dadd(58.35, -120.99, -507.88, 0.57)
pt3dadd(58.38, -121.56, -507.88, 0.57)
pt3dadd(59.66, -122.46, -509.05, 0.57)
pt3dadd(60, -124.31, -510.88, 0.57)
pt3dadd(59.76, -125.86, -512.16, 0.57)
pt3dadd(59.96, -126.58, -513.49, 0.57)
pt3dadd(59.77, -127.56, -515.55, 0.57)
pt3dadd(60.99, -128.96, -517.66, 0.57)
pt3dadd(61.29, -130.08, -519.39, 0.57)
pt3dadd(61.34, -131.05, -520.72, 0.57)
pt3dadd(61.03, -131.31, -521.78, 0.57)
pt3dadd(61.22, -131.87, -524.44, 0.57)
pt3dadd(61.14, -133.41, -526.72, 0.57)
pt3dadd(60.7, -134.25, -529.06, 0.57)
pt3dadd(59.75, -134.7, -531.89, 0.57)
pt3dadd(59.53, -135.2, -534.11, 0.57)
pt3dadd(58.42, -135.91, -537.5, 0.57)
pt3dadd(58.42, -135.91, -540.78, 0.57)
pt3dadd(59.57, -136.01, -540.89, 0.57)
pt3dadd(59.89, -135.83, -544.23, 0.57)
pt3dadd(60.63, -135.95, -546.62, 0.57)
pt3dadd(61.53, -136.07, -546.62, 0.65)
pt3dadd(61.82, -135.64, -550.84, 0.65)
pt3dadd(62.03, -135.14, -554.46, 0.65)
pt3dadd(61.83, -134.66, -557.4, 0.65)
pt3dadd(61.17, -135.61, -561.24, 0.65)
pt3dadd(59.15, -136.98, -562.79, 0.65)
pt3dadd(59.13, -137.87, -563.96, 0.65)
pt3dadd(59.68, -138.65, -566.02, 0.65)
pt3dadd(59.9, -139.36, -567.52, 0.65)
pt3dadd(60.23, -139.42, -570.02, 0.65)
pt3dadd(60.24, -139.58, -571.46, 0.65)
pt3dadd(60.44, -140.05, -573.46, 0.65)
pt3dadd(60.82, -139.61, -576.35, 0.65)
pt3dadd(61.06, -139.6, -577.52, 0.57)
pt3dadd(62.57, -137.94, -577.69, 0.57)
pt3dadd(62.57, -137.94, -581.36, 0.33)
pt3dadd(63.49, -136.08, -584.52, 0.33)
pt3dadd(64.67, -136.56, -587.86, 0.08)
pt3dadd(63.91, -134.02, -591.92, 0.08)
}
dend[16] {pt3dclear()
pt3dadd(43.26, -39.96, -397.95, 0.9)
pt3dadd(42.02, -38.67, -398.11, 0.9)
pt3dadd(41.01, -37.58, -400.06, 0.98)
pt3dadd(40.85, -35.87, -402.06, 0.98)
pt3dadd(40.01, -34.49, -402.06, 0.98)
pt3dadd(39.86, -34.19, -403.28, 0.98)
}
dend[17] {pt3dclear()
pt3dadd(39.86, -34.19, -403.28, 0.9)
pt3dadd(40.25, -32.35, -404.89, 0.9)
pt3dadd(40.94, -31.02, -405.89, 0.9)
pt3dadd(42.45, -29.99, -407.12, 0.9)
pt3dadd(42.8, -28.66, -407.89, 0.9)
pt3dadd(43.23, -27.64, -409.39, 0.9)
pt3dadd(43.44, -26.42, -410.56, 0.9)
pt3dadd(43.87, -25.07, -411.06, 0.9)
pt3dadd(43.45, -23.67, -412.45, 0.9)
pt3dadd(43, -22.86, -412.95, 0.9)
pt3dadd(42.54, -21.97, -412.95, 0.81)
pt3dadd(42.61, -20.54, -414.4, 0.81)
pt3dadd(42.53, -19.14, -414.4, 0.81)
pt3dadd(42.05, -17.51, -416.23, 0.81)
pt3dadd(41.42, -15.91, -416.23, 0.73)
pt3dadd(41, -14.51, -417.06, 0.73)
pt3dadd(41.19, -13.22, -417.06, 0.9)
pt3dadd(40.71, -11.58, -418.4, 0.9)
pt3dadd(40.05, -10.58, -418.4, 0.9)
pt3dadd(40.15, -8.22, -419.73, 0.9)
pt3dadd(40.27, -7.63, -419.73, 0.57)
pt3dadd(39.57, -6.93, -421.07, 0.57)
pt3dadd(38.82, -5.5, -420.95, 0.81)
pt3dadd(37.91, -3.6, -422.96, 0.81)
pt3dadd(37.24, -2.57, -423.96, 0.81)
pt3dadd(36.65, -2.01, -424.01, 0.81)
pt3dadd(35.87, -0.42, -424.01, 0.81)
pt3dadd(34.84, 0.3, -424.96, 0.73)
pt3dadd(33.87, 1.12, -426.23, 0.73)
pt3dadd(33.81, 1.93, -426.62, 0.73)
pt3dadd(33.97, 2.95, -427.51, 0.73)
pt3dadd(33.81, 3.82, -427.96, 0.73)
pt3dadd(33.03, 5, -428.35, 0.73)
pt3dadd(32.81, 6.28, -430.07, 0.73)
pt3dadd(32.68, 7.49, -430.79, 0.73)
pt3dadd(32.65, 8.64, -431.68, 0.73)
pt3dadd(32.33, 10.47, -432.52, 0.73)
pt3dadd(31.56, 11.57, -433.35, 0.73)
pt3dadd(31.24, 12.91, -434.18, 0.73)
pt3dadd(30.71, 14.55, -434.91, 0.73)
pt3dadd(29.84, 17.19, -436.18, 0.73)
pt3dadd(29.77, 18.08, -437.57, 0.73)
pt3dadd(29.66, 19.63, -439.07, 0.73)
pt3dadd(29.74, 20.63, -439.91, 0.73)
pt3dadd(29.1, 21.91, -441.35, 0.73)
pt3dadd(28.93, 23.86, -443.02, 0.73)
pt3dadd(28.95, 24.48, -444.69, 0.73)
pt3dadd(28.66, 25.67, -445.63, 0.73)
pt3dadd(28.83, 27.59, -447.02, 0.73)
pt3dadd(29.43, 29.83, -449.02, 0.73)
pt3dadd(29.16, 31.34, -449.52, 0.73)
pt3dadd(28.56, 32.47, -450.52, 0.73)
pt3dadd(28.81, 35.31, -452.25, 0.73)
pt3dadd(29.23, 36.7, -452.97, 0.73)
pt3dadd(28.19, 38.41, -454.25, 0.73)
pt3dadd(26.98, 40.58, -456.03, 0.73)
pt3dadd(26.17, 42.41, -457.75, 0.73)
pt3dadd(25.3, 43.58, -459.08, 0.73)
pt3dadd(24.46, 45.57, -461.86, 0.73)
pt3dadd(24.17, 47.25, -462.69, 0.73)
pt3dadd(22.99, 48.36, -462.69, 0.73)
pt3dadd(22.52, 50.08, -464.92, 0.73)
pt3dadd(21.69, 51.99, -466.25, 0.73)
pt3dadd(21.27, 53.98, -467.64, 0.73)
pt3dadd(21.15, 55.11, -466.47, 0.73)
pt3dadd(20.22, 56.67, -467.86, 0.73)
pt3dadd(19.9, 58.01, -469.25, 0.73)
pt3dadd(19.98, 59.01, -470.25, 0.73)
pt3dadd(18.56, 61.48, -471.2, 0.73)
pt3dadd(18.41, 63.26, -474.26, 0.73)
pt3dadd(19.19, 65.45, -474.48, 0.73)
pt3dadd(18.92, 66.49, -474.53, 0.73)
pt3dadd(19.55, 66.68, -476.7, 0.73)
pt3dadd(20.3, 67.14, -479.76, 0.73)
pt3dadd(20.3, 67.14, -481.42, 0.73)
pt3dadd(20.62, 67.19, -482.15, 0.73)
pt3dadd(21.68, 66.81, -482.15, 0.73)
pt3dadd(22.84, 66.54, -486.09, 0.73)
pt3dadd(23.66, 66.43, -487.76, 0.73)
pt3dadd(24.82, 66.08, -490.71, 0.73)
pt3dadd(25.57, 65.8, -491.37, 0.73)
pt3dadd(26.72, 65.62, -492.21, 0.73)
pt3dadd(27.77, 65.92, -492.54, 0.65)
pt3dadd(28.02, 65.77, -495.82, 0.65)
pt3dadd(29.24, 65.83, -496.1, 0.65)
pt3dadd(30.23, 67.27, -497.77, 0.65)
pt3dadd(30.2, 67.83, -499.6, 0.65)
pt3dadd(30.16, 68.48, -502.82, 0.65)
pt3dadd(29.51, 68.44, -505.55, 0.65)
pt3dadd(28.2, 68.62, -503.49, 0.65)
pt3dadd(27.05, 70.02, -505.43, 0.65)
pt3dadd(25.79, 70.76, -505.66, 0.57)
pt3dadd(25.22, 70.73, -507.88, 0.57)
pt3dadd(24.31, 70.92, -508.49, 0.57)
pt3dadd(22.98, 69.88, -509.71, 0.41)
}
dend[18] {pt3dclear()
pt3dadd(39.86, -34.19, -403.28, 0.81)
pt3dadd(38.81, -34.03, -403.34, 0.81)
pt3dadd(37.32, -33.39, -405.06, 0.73)
pt3dadd(35.69, -32.53, -405.06, 0.73)
pt3dadd(33.85, -31.14, -405.11, 0.73)
pt3dadd(33.14, -30.64, -406.06, 0.73)
pt3dadd(32.73, -29.99, -406.06, 0.73)
pt3dadd(31.47, -29.63, -406.06, 0.73)
pt3dadd(31.62, -28.51, -406.06, 0.73)
pt3dadd(30.84, -28.03, -407.45, 0.73)
pt3dadd(29.56, -27.92, -407.45, 0.57)
pt3dadd(28.79, -27.19, -408.89, 0.57)
pt3dadd(28.54, -26.83, -408.89, 0.65)
pt3dadd(27.79, -26.51, -411.01, 0.65)
pt3dadd(26.72, -26.6, -411.51, 0.65)
pt3dadd(25.71, -26.93, -412.45, 0.65)
pt3dadd(24.55, -26.63, -414.23, 0.65)
pt3dadd(22.18, -26.53, -414.95, 0.65)
pt3dadd(22.34, -26.16, -414.95, 0.81)
pt3dadd(21.98, -25.33, -416.84, 0.81)
pt3dadd(20.54, -25.26, -417.01, 0.73)
pt3dadd(19.89, -24.33, -417.9, 0.65)
pt3dadd(18.97, -23.64, -419.95, 0.57)
pt3dadd(17.51, -20.38, -419.95, 0.41)
pt3dadd(16.72, -18.71, -421.57, 0.41)
pt3dadd(16.26, -17.97, -423.73, 0.41)
pt3dadd(15.91, -17.37, -426.23, 0.41)
pt3dadd(14.75, -15.93, -426.57, 0.41)
pt3dadd(13.56, -15.23, -426.62, 0.41)
pt3dadd(12.34, -11.08, -427.85, 0.24)
pt3dadd(11.63, -8.41, -427.85, 0.24)
pt3dadd(11.06, -7.03, -427.85, 0.24)
}
dend[19] {pt3dclear()
pt3dadd(53.84, -31.69, -339.7, 2.69)
pt3dadd(55.88, -31.13, -339.59, 2.69)
pt3dadd(59.3, -30.41, -340.75, 2.69)
pt3dadd(61.75, -30.26, -342.64, 2.69)
pt3dadd(64.03, -30.51, -342.59, 2.77)
pt3dadd(65.42, -29.06, -343.98, 2.53)
pt3dadd(67.05, -27.44, -343.98, 2.53)
pt3dadd(68.11, -26.31, -343.98, 2.53)
pt3dadd(69.1, -25.1, -346.15, 2.53)
pt3dadd(70.24, -23.81, -346.2, 2.28)
pt3dadd(71.06, -22.6, -347.59, 2.28)
pt3dadd(70.9, -21.46, -349.09, 2.28)
pt3dadd(70.82, -19.84, -350.15, 2.2)
}
}
proc shape3d_5() {
dend[19] { pt3dadd(71.56, -18.47, -350.09, 2.2)
pt3dadd(71.89, -16.85, -352.32, 2.2)
pt3dadd(72.47, -14.58, -354.15, 2.2)
pt3dadd(72.72, -12.4, -355.98, 2.2)
pt3dadd(72.73, -10.13, -355.98, 2.2)
pt3dadd(72.65, -8.1, -358.15, 2.2)
pt3dadd(72.91, -5.11, -358.15, 2.2)
pt3dadd(73.4, -2.84, -360.04, 2.2)
pt3dadd(73.5, 1.94, -361.26, 2.2)
pt3dadd(73.59, 4.04, -362.43, 2.2)
pt3dadd(73.31, 4.3, -362.43, 2.04)
pt3dadd(73.72, 5.4, -364.65, 2.04)
pt3dadd(74.36, 7.97, -364.93, 2.04)
pt3dadd(74.56, 9.93, -366.1, 2.04)
pt3dadd(74.67, 11.54, -367.27, 2.04)
pt3dadd(74.79, 13.82, -368.21, 2.04)
pt3dadd(74.73, 15.47, -369.66, 2.04)
pt3dadd(75.05, 17.71, -371.21, 2.04)
pt3dadd(75.04, 20.54, -372.66, 2.04)
}
dend[20] {pt3dclear()
pt3dadd(75.04, 20.54, -372.66, 1.38)
pt3dadd(76.58, 22.16, -370.49, 1.38)
pt3dadd(77.57, 23.98, -370.54, 1.38)
pt3dadd(77.55, 25.81, -370.49, 1.38)
pt3dadd(77.06, 28.19, -370.54, 1.38)
pt3dadd(77.5, 30.55, -370.49, 1.38)
pt3dadd(78.07, 32.01, -370.49, 1.47)
pt3dadd(78.24, 33.05, -371.05, 1.47)
pt3dadd(78.88, 34.21, -371.05, 1.47)
pt3dadd(79.2, 36.37, -372.1, 1.38)
pt3dadd(78.36, 37.75, -372.1, 1.38)
pt3dadd(78.17, 39.62, -372.05, 1.38)
pt3dadd(77.82, 40.7, -372.21, 1.38)
pt3dadd(77.51, 43.04, -373.38, 1.3)
pt3dadd(77.51, 44.46, -373.38, 1.3)
pt3dadd(77.14, 45.62, -373.38, 1.3)
pt3dadd(77.7, 47.5, -373.38, 1.3)
pt3dadd(77.8, 49.86, -374.49, 1.3)
pt3dadd(77.6, 51.39, -374.49, 1.3)
pt3dadd(76.47, 53.29, -374.49, 1.3)
pt3dadd(75.38, 54.36, -374.49, 1.3)
pt3dadd(76.19, 55.89, -375.6, 1.3)
pt3dadd(76.64, 57.83, -375.6, 1.3)
pt3dadd(76.64, 59.58, -375.6, 1.3)
pt3dadd(76.75, 61.8, -376.88, 1.3)
pt3dadd(76.57, 65.34, -376.88, 1.3)
pt3dadd(76.41, 67.38, -376.88, 1.3)
pt3dadd(76.32, 69.86, -376.88, 1.3)
pt3dadd(75.99, 72.28, -376.88, 1.3)
pt3dadd(76.2, 73.5, -373.38, 1.3)
}
dend[21] {pt3dclear()
pt3dadd(76.2, 73.5, -373.38, 0.9)
pt3dadd(76.63, 74.51, -376.66, 0.9)
pt3dadd(77.17, 75.73, -376.66, 0.98)
pt3dadd(77.67, 77.51, -376.66, 0.98)
pt3dadd(77.12, 78.38, -378.1, 0.98)
pt3dadd(76.58, 79.25, -378.1, 1.22)
pt3dadd(75.98, 80.69, -378.1, 1.22)
pt3dadd(75.01, 82.62, -379.44, 1.22)
pt3dadd(73.96, 84.2, -379.49, 1.22)
pt3dadd(73.63, 86.29, -380.99, 1.22)
pt3dadd(72.86, 88.1, -380.99, 1.22)
pt3dadd(71.66, 90.65, -380.99, 1.22)
}
dend[22] {pt3dclear()
pt3dadd(71.66, 90.65, -380.99, 0.73)
pt3dadd(70.45, 90.85, -383.22, 0.73)
pt3dadd(69.11, 92.61, -383.66, 0.73)
pt3dadd(67.93, 93.66, -383.66, 0.73)
pt3dadd(66.83, 94.4, -383.66, 0.73)
pt3dadd(65.89, 96.26, -384.66, 0.73)
pt3dadd(64.43, 97.07, -384.66, 0.73)
pt3dadd(63.58, 98.53, -384.77, 0.81)
pt3dadd(62.89, 100.37, -385.5, 0.81)
pt3dadd(62.03, 101.49, -387.61, 0.81)
pt3dadd(61.02, 102.92, -387.61, 0.81)
pt3dadd(60.3, 103.82, -387.61, 0.73)
pt3dadd(59.99, 105.09, -387.61, 0.73)
pt3dadd(58.67, 105.35, -387.61, 0.73)
pt3dadd(58.1, 107.05, -387.33, 0.73)
pt3dadd(56.91, 108.84, -387.44, 0.73)
pt3dadd(55.23, 110.94, -387.89, 0.73)
pt3dadd(54.46, 112.75, -387.94, 0.73)
pt3dadd(53.57, 114.37, -388.55, 0.73)
pt3dadd(53.06, 116.16, -389.05, 0.73)
pt3dadd(51.79, 117.27, -389.55, 0.73)
pt3dadd(50.66, 119.5, -389.61, 0.73)
pt3dadd(50.19, 121.14, -389.61, 0.81)
pt3dadd(48.86, 122.82, -389.72, 0.81)
pt3dadd(47.47, 124.07, -389.72, 0.81)
pt3dadd(45.43, 125.24, -389.72, 0.81)
pt3dadd(45.55, 127.52, -390.11, 0.81)
pt3dadd(44.96, 128.47, -391.05, 0.81)
pt3dadd(43.52, 128.54, -391.05, 0.9)
pt3dadd(41.87, 130.14, -391.94, 0.9)
pt3dadd(41.13, 131.13, -392, 0.9)
pt3dadd(38.77, 131.89, -392.5, 0.81)
pt3dadd(37.86, 133.26, -394.05, 0.81)
pt3dadd(36.77, 134.99, -394.05, 0.81)
pt3dadd(36.59, 137.12, -395.22, 0.81)
pt3dadd(35.34, 138.15, -395.17, 0.65)
pt3dadd(34.44, 140.51, -395.78, 0.73)
pt3dadd(33.61, 142.9, -397.95, 0.73)
pt3dadd(32.99, 144.08, -397.95, 0.73)
pt3dadd(32.25, 146.15, -399.22, 0.73)
pt3dadd(31.71, 147.69, -399.22, 0.73)
pt3dadd(31.6, 150.58, -400.67, 0.73)
pt3dadd(30.34, 152.69, -400.72, 0.73)
pt3dadd(29.41, 156.55, -400.67, 0.73)
pt3dadd(28.77, 157.48, -401.56, 0.73)
pt3dadd(28.47, 159.41, -401.56, 0.73)
pt3dadd(27.56, 160.77, -402.56, 0.73)
pt3dadd(26.46, 162.92, -402.56, 0.73)
pt3dadd(25.15, 164.19, -402.56, 0.73)
pt3dadd(23.82, 165.53, -402.56, 0.73)
pt3dadd(23.36, 167.34, -402.56, 0.73)
pt3dadd(22.04, 169.02, -403.45, 0.73)
pt3dadd(21.24, 170.58, -403.45, 0.73)
pt3dadd(20.99, 172.68, -403.45, 0.73)
pt3dadd(20.28, 173.18, -403.28, 0.73)
pt3dadd(18.78, 174.9, -404.34, 0.73)
pt3dadd(18.27, 177.03, -405.78, 0.73)
pt3dadd(17.68, 178.8, -405.84, 0.73)
pt3dadd(17.03, 181.15, -405.84, 0.73)
pt3dadd(16.62, 183.88, -407.17, 0.73)
pt3dadd(16.06, 185.16, -407.17, 0.73)
pt3dadd(15.58, 187.54, -408.23, 0.73)
pt3dadd(15.44, 190.18, -408.23, 0.73)
}
dend[23] {pt3dclear()
pt3dadd(15.44, 190.18, -408.23, 0.49)
pt3dadd(14.35, 193.61, -407.67, 0.49)
pt3dadd(15.01, 194.35, -407.67, 0.65)
pt3dadd(14.34, 196.44, -406.39, 0.65)
pt3dadd(14.17, 197.48, -406.39, 0.73)
pt3dadd(14.8, 199.38, -406.39, 0.73)
pt3dadd(14.52, 200.9, -406.73, 0.73)
pt3dadd(13.79, 202.89, -405.84, 0.73)
pt3dadd(13.57, 204.5, -404.89, 0.73)
pt3dadd(13.24, 206.92, -404.84, 0.73)
pt3dadd(12.58, 210.01, -404.84, 0.73)
pt3dadd(11.94, 210.61, -403.95, 0.73)
pt3dadd(10.55, 211.85, -402.61, 0.73)
pt3dadd(10.08, 213.82, -402.61, 0.73)
pt3dadd(10, 215.89, -402.61, 0.73)
pt3dadd(9.55, 218.78, -401.45, 0.73)
pt3dadd(8.59, 220.71, -401.45, 0.73)
pt3dadd(8.11, 222.35, -401.39, 0.73)
pt3dadd(7.43, 225.18, -400.06, 0.73)
pt3dadd(6.38, 226.76, -399, 0.73)
pt3dadd(5.51, 228.64, -398.17, 0.73)
pt3dadd(5.02, 230.68, -398.17, 0.73)
pt3dadd(3.79, 231.97, -395.61, 0.73)
pt3dadd(2.48, 233.24, -394.44, 0.73)
pt3dadd(1.62, 234.37, -394.39, 0.73)
pt3dadd(0.42, 236.24, -394.28, 0.73)
pt3dadd(0.14, 238.09, -393.22, 0.73)
pt3dadd(-0.04, 241.63, -391.5, 0.57)
pt3dadd(-0.83, 243.19, -390.33, 0.57)
pt3dadd(-0.88, 244.43, -390.33, 0.57)
pt3dadd(-0.83, 247.35, -389.55, 0.57)
pt3dadd(-0.73, 249.39, -389.5, 0.57)
pt3dadd(-1.3, 251.41, -389.5, 0.57)
pt3dadd(-2.11, 253.39, -388.61, 0.57)
pt3dadd(-2.52, 255.45, -388.5, 0.57)
pt3dadd(-3.39, 256.66, -386.44, 0.57)
}
dend[24] {pt3dclear()
pt3dadd(15.44, 190.18, -408.23, 0.65)
pt3dadd(14.7, 192.25, -409.01, 0.65)
pt3dadd(14.71, 193.25, -412.17, 0.65)
pt3dadd(13.74, 194.85, -413.62, 0.65)
pt3dadd(12.74, 195.86, -415.01, 0.65)
pt3dadd(12.3, 197, -414.95, 0.65)
pt3dadd(11.56, 198.66, -415.01, 0.65)
pt3dadd(11.3, 199.43, -415.01, 0.57)
pt3dadd(11.33, 200.35, -414.95, 0.57)
pt3dadd(9.85, 201.25, -414.95, 0.57)
pt3dadd(9.2, 202.59, -415.01, 0.57)
pt3dadd(8.73, 205.56, -413.62, 0.57)
pt3dadd(8.36, 208.08, -413.62, 0.57)
pt3dadd(6.34, 209.84, -413.56, 0.57)
pt3dadd(7.41, 211.68, -413.62, 0.57)
pt3dadd(7.37, 214.26, -412.51, 0.57)
pt3dadd(6.89, 216.64, -412.62, 0.57)
pt3dadd(7.61, 218.15, -412.9, 0.57)
pt3dadd(6.94, 220.23, -413.4, 0.57)
pt3dadd(5.65, 222.84, -413.34, 0.57)
pt3dadd(5.09, 224.79, -414.06, 0.57)
pt3dadd(4.27, 227.51, -415.23, 0.57)
pt3dadd(3.69, 230.28, -415.23, 0.49)
pt3dadd(3.26, 232.09, -415.51, 0.49)
pt3dadd(2.13, 233.65, -416.9, 0.49)
pt3dadd(1.62, 235.78, -418.84, 0.49)
pt3dadd(2.55, 236.42, -418.95, 0.49)
pt3dadd(1.38, 237.81, -420.62, 0.49)
pt3dadd(0.72, 239.15, -421.57, 0.49)
pt3dadd(0.16, 240.43, -423.23, 0.49)
}
dend[25] {pt3dclear()
pt3dadd(71.66, 90.65, -380.99, 1.06)
pt3dadd(71.45, 93.26, -382.66, 1.06)
pt3dadd(71.68, 95.81, -382.66, 1.14)
pt3dadd(72.32, 99.05, -382.72, 1.14)
pt3dadd(72.36, 100.64, -382.72, 1.14)
pt3dadd(72.93, 102.45, -382.72, 1.14)
pt3dadd(73.03, 104.76, -382.72, 1.14)
pt3dadd(74.63, 108.56, -382.72, 1.22)
pt3dadd(76.19, 110.43, -382.72, 1.22)
pt3dadd(76.61, 112.2, -383.05, 1.06)
}
}
proc shape3d_6() {
dend[25] { pt3dadd(76.64, 113.79, -383.05, 1.06)
pt3dadd(77.41, 115.47, -383.05, 1.06)
pt3dadd(76.26, 116.78, -380.27, 1.06)
pt3dadd(75.96, 118.71, -381.55, 1.06)
pt3dadd(76.07, 120.73, -381.55, 1.06)
pt3dadd(76.31, 122.87, -381.55, 1.06)
pt3dadd(76.65, 125.95, -381.55, 1.06)
pt3dadd(76.04, 128.14, -381.55, 1.06)
pt3dadd(75.41, 129.73, -382.05, 1.06)
pt3dadd(74.79, 130.92, -382.05, 1.06)
pt3dadd(75.19, 132.76, -382.05, 1.06)
pt3dadd(74.18, 134.52, -382.05, 1.06)
pt3dadd(73.33, 135.23, -382.72, 1.06)
pt3dadd(72.15, 136.7, -384.22, 1.06)
pt3dadd(71.35, 138.26, -384.22, 1.06)
pt3dadd(70.5, 139.72, -384.22, 1.06)
pt3dadd(69.05, 140.87, -384.22, 1.06)
pt3dadd(67.74, 141.8, -384.27, 1.06)
pt3dadd(67, 143.46, -385.88, 1.06)
pt3dadd(66.39, 144.98, -385.88, 1.06)
pt3dadd(65.54, 145.59, -387.66, 1.06)
pt3dadd(63.98, 146.13, -387.66, 1.06)
pt3dadd(62.89, 146.86, -388.94, 1.06)
pt3dadd(62.9, 147.87, -388.94, 1.06)
pt3dadd(62.1, 149.43, -388.94, 1.06)
pt3dadd(60.33, 149.83, -389.61, 1.06)
pt3dadd(59.37, 150.68, -390.05, 1.06)
pt3dadd(58.74, 152.28, -390.05, 1.06)
pt3dadd(58.05, 153.03, -391.72, 1.06)
pt3dadd(56.72, 154.05, -391.72, 1.06)
pt3dadd(56.42, 155.97, -394.33, 1.06)
pt3dadd(55.93, 157.69, -394.5, 1.06)
pt3dadd(55.84, 158.75, -394.55, 1.06)
pt3dadd(54.53, 159.68, -397, 1.06)
pt3dadd(52.33, 160.82, -398.06, 1.06)
pt3dadd(50.88, 163.72, -399.67, 1.3)
}
dend[26] {pt3dclear()
pt3dadd(50.88, 163.72, -399.67, 0.98)
pt3dadd(49.6, 164.67, -400.89, 0.98)
pt3dadd(47.94, 166.36, -401.61, 0.98)
pt3dadd(46.99, 166.8, -401.95, 0.98)
pt3dadd(45, 168.48, -403.73, 0.98)
pt3dadd(44.07, 170.26, -404.95, 0.98)
pt3dadd(43.09, 170.86, -404.95, 0.98)
pt3dadd(41.24, 172.25, -406.56, 0.98)
pt3dadd(40.37, 173.45, -406.62, 0.98)
pt3dadd(39.23, 174.68, -407.95, 0.98)
pt3dadd(38.58, 176.35, -407.95, 0.98)
pt3dadd(37.07, 177.41, -408.45, 0.98)
pt3dadd(36.34, 179.06, -409.95, 0.98)
pt3dadd(35.65, 180.9, -411.23, 0.98)
pt3dadd(33.9, 182.23, -411.56, 0.98)
pt3dadd(32.42, 183.87, -413.45, 0.98)
}
dend[27] {pt3dclear()
pt3dadd(32.42, 183.87, -413.45, 0.65)
pt3dadd(31.05, 183.63, -414.9, 0.65)
pt3dadd(29.81, 184.25, -416.95, 0.65)
pt3dadd(28.2, 185.03, -417.84, 0.65)
pt3dadd(27.36, 186.41, -420.4, 0.65)
pt3dadd(26.76, 187.51, -421.46, 0.65)
pt3dadd(25.42, 188.94, -423.07, 0.65)
pt3dadd(24.61, 189.16, -425.29, 0.65)
pt3dadd(23.65, 189.68, -425.9, 0.65)
pt3dadd(23.24, 188.24, -425.9, 0.73)
pt3dadd(22.25, 187.74, -428.51, 0.73)
pt3dadd(20.66, 187.87, -430.96, 0.73)
pt3dadd(20, 187.84, -432.35, 0.73)
pt3dadd(18.93, 187.82, -433.63, 0.73)
pt3dadd(18.19, 187.77, -435.57, 0.73)
pt3dadd(17.1, 186.92, -435.74, 0.65)
pt3dadd(16.54, 185.84, -438.63, 0.49)
pt3dadd(15.1, 185.1, -440.3, 0.49)
pt3dadd(15, 184.75, -443.91, 0.49)
pt3dadd(13.9, 185.38, -446.24, 0.49)
pt3dadd(12.98, 185.88, -446.52, 0.33)
pt3dadd(12.82, 186.84, -448.52, 0.33)
pt3dadd(13.12, 187.96, -450.02, 0.33)
pt3dadd(13.69, 187.98, -453.75, 0.33)
}
dend[28] {pt3dclear()
pt3dadd(32.42, 183.87, -413.45, 0.73)
pt3dadd(32.03, 184.78, -413.9, 0.73)
pt3dadd(29.82, 188.08, -412.84, 0.81)
}
dend[29] {pt3dclear()
pt3dadd(29.82, 188.08, -412.84, 0.73)
pt3dadd(29.81, 189.82, -410.06, 0.73)
pt3dadd(29.75, 190.81, -407.17, 0.73)
pt3dadd(29.96, 192.02, -405.28, 0.81)
pt3dadd(29.27, 192.44, -402.67, 0.81)
pt3dadd(28.01, 193.14, -400.89, 0.81)
pt3dadd(26.73, 193.58, -399.39, 0.81)
pt3dadd(25.41, 193.85, -398.22, 0.81)
pt3dadd(24.11, 194.37, -396.89, 0.81)
pt3dadd(23.7, 194.69, -394.94, 0.81)
pt3dadd(23.7, 194.69, -392.22, 0.81)
pt3dadd(23.66, 194.51, -388.39, 0.81)
pt3dadd(23.3, 195.67, -386.89, 0.81)
pt3dadd(22.66, 197.27, -385.27, 0.81)
pt3dadd(21.49, 197.99, -383.99, 0.81)
pt3dadd(20.07, 198.98, -383.38, 0.81)
pt3dadd(19.18, 200.27, -382.33, 0.81)
pt3dadd(17.8, 201.1, -380.16, 0.81)
pt3dadd(16.26, 202.65, -378.66, 0.81)
pt3dadd(15.48, 203.79, -376.71, 0.81)
pt3dadd(15.12, 203.88, -373.99, 0.81)
pt3dadd(14.63, 204.17, -371.71, 0.81)
pt3dadd(15.03, 205.68, -369.49, 0.65)
pt3dadd(14.59, 207.49, -368.43, 0.65)
pt3dadd(14.46, 208.05, -365.15, 0.65)
pt3dadd(14.32, 207.37, -365.15, 0.73)
pt3dadd(13.99, 208.1, -361.99, 0.73)
pt3dadd(13.66, 208.75, -361.6, 0.73)
pt3dadd(13.41, 209.31, -358.26, 0.73)
pt3dadd(12.67, 210.28, -357.09, 0.73)
pt3dadd(12.59, 210.28, -354.76, 0.9)
pt3dadd(12.26, 211.25, -352.32, 0.9)
pt3dadd(12.26, 211.25, -351.43, 0.81)
pt3dadd(12.59, 211.74, -350.2, 0.81)
pt3dadd(13.15, 212.55, -349.04, 0.57)
pt3dadd(13.4, 212.8, -347.2, 0.57)
pt3dadd(13.64, 213.53, -345.26, 0.73)
}
dend[30] {pt3dclear()
pt3dadd(29.82, 188.08, -412.84, 0.65)
pt3dadd(29.04, 189.22, -413.67, 0.65)
pt3dadd(27.6, 189.63, -416.12, 0.65)
pt3dadd(26.46, 190.52, -417.9, 0.65)
pt3dadd(26.04, 191.25, -418.51, 0.65)
pt3dadd(25.36, 192.67, -418.73, 0.73)
pt3dadd(24.86, 193.71, -421.18, 0.73)
pt3dadd(23.96, 194.33, -421.34, 0.73)
pt3dadd(22.25, 195.17, -423.29, 0.73)
pt3dadd(20.76, 196.81, -424.79, 0.73)
pt3dadd(20.71, 197.05, -426.01, 0.73)
pt3dadd(19.29, 195.06, -426.01, 0.81)
pt3dadd(18.8, 195.96, -426.01, 0.81)
pt3dadd(17.31, 197.43, -427.35, 0.81)
pt3dadd(16.92, 198.68, -427.35, 0.81)
pt3dadd(16.23, 201.27, -428.79, 0.81)
pt3dadd(16.32, 203.09, -429.24, 0.81)
pt3dadd(15.97, 203.69, -429.24, 0.81)
pt3dadd(15.51, 204.92, -429.29, 0.81)
pt3dadd(15.46, 207.13, -429.51, 0.81)
pt3dadd(15.46, 209.03, -430.96, 0.81)
pt3dadd(15.57, 210.77, -431.13, 0.65)
pt3dadd(15.26, 212.53, -431.13, 0.65)
pt3dadd(14.16, 215.05, -431.13, 0.65)
pt3dadd(12.98, 216.16, -432.63, 0.73)
pt3dadd(12.18, 217.91, -432.68, 0.73)
pt3dadd(11.75, 218.49, -432.68, 0.73)
pt3dadd(11.52, 220.26, -432.68, 0.73)
pt3dadd(11.66, 221.35, -432.68, 0.73)
pt3dadd(10.87, 222.12, -433.9, 0.73)
pt3dadd(10.47, 223.94, -433.96, 0.73)
pt3dadd(9.75, 224.72, -433.96, 0.73)
pt3dadd(8.65, 225.85, -433.9, 0.73)
pt3dadd(7.75, 227.25, -434.02, 0.73)
pt3dadd(7.9, 228.76, -434.35, 0.73)
pt3dadd(7.86, 230.89, -434.35, 0.65)
pt3dadd(6.8, 232.68, -434.35, 0.65)
pt3dadd(6.95, 234.68, -434.35, 0.65)
pt3dadd(6.34, 236.3, -434.35, 0.65)
pt3dadd(5.37, 237.61, -434.35, 0.65)
pt3dadd(5.53, 240.02, -434.35, 0.65)
}
dend[31] {pt3dclear()
pt3dadd(5.53, 240.02, -434.35, 0.57)
pt3dadd(5.11, 242.77, -434.29, 0.57)
pt3dadd(4.13, 245.56, -436.52, 0.57)
pt3dadd(3.99, 247.76, -437.85, 0.57)
pt3dadd(3.52, 248.58, -437.85, 0.57)
pt3dadd(2.9, 249.29, -438.18, 0.57)
pt3dadd(2.99, 252.1, -439.96, 0.57)
pt3dadd(2.9, 253.57, -442.3, 0.57)
pt3dadd(3.68, 255.76, -442.35, 0.57)
pt3dadd(3.72, 257.41, -442.41, 0.57)
pt3dadd(2.79, 258.97, -442.35, 0.57)
pt3dadd(2.2, 261.42, -444.69, 0.57)
pt3dadd(2.24, 263.07, -444.8, 0.57)
pt3dadd(1.05, 265.17, -445.52, 0.57)
pt3dadd(0.66, 268.39, -445.58, 0.57)
pt3dadd(-0.02, 272.3, -446.41, 0.57)
pt3dadd(0.26, 276.37, -445.08, 0.57)
pt3dadd(0.73, 278.92, -445.08, 0.57)
pt3dadd(1.35, 280.1, -445.08, 0.57)
pt3dadd(2.53, 282.85, -442.85, 0.57)
pt3dadd(2.78, 283.8, -444.63, 0.41)
}
dend[32] {pt3dclear()
pt3dadd(5.53, 240.02, -434.35, 0.65)
pt3dadd(7.44, 242.32, -434.35, 0.65)
pt3dadd(9.14, 243.52, -432.4, 0.65)
pt3dadd(9.31, 244.46, -431.24, 0.57)
pt3dadd(10.24, 247.17, -430.74, 0.57)
pt3dadd(12.03, 248.16, -430.68, 0.57)
pt3dadd(13.78, 249.95, -429.29, 0.57)
pt3dadd(15.72, 250.2, -429.24, 0.57)
pt3dadd(17.75, 249.98, -429.18, 0.57)
pt3dadd(19.05, 251.03, -427.62, 0.57)
pt3dadd(21.5, 252.19, -427.62, 0.57)
pt3dadd(23.99, 254.02, -427.29, 0.57)
pt3dadd(25.5, 253.88, -425.35, 0.57)
pt3dadd(26.75, 253.84, -426.07, 0.57)
pt3dadd(27.72, 254.15, -426.07, 0.73)
pt3dadd(31.75, 255.78, -425.79, 0.73)
pt3dadd(33.49, 255.56, -424.79, 0.73)
pt3dadd(35.33, 255.95, -424.73, 0.73)
pt3dadd(38.09, 256.66, -426.01, 0.73)
pt3dadd(41.43, 259.7, -426.74, 0.73)
pt3dadd(43.11, 261.64, -427.18, 0.73)
pt3dadd(44.24, 262.11, -427.18, 0.57)
}
}
proc shape3d_7() {
dend[32] { pt3dadd(46.07, 262.92, -427.18, 0.57)
}
dend[33] {pt3dclear()
pt3dadd(50.88, 163.72, -399.67, 0.98)
pt3dadd(51.81, 166.11, -399.61, 0.98)
pt3dadd(53.55, 167.61, -400.84, 0.98)
pt3dadd(54.56, 168.6, -400.84, 0.98)
pt3dadd(57.19, 170.57, -402.39, 0.98)
pt3dadd(57.6, 171.67, -402.39, 0.98)
pt3dadd(57.9, 173.9, -404.45, 0.98)
pt3dadd(58.37, 175.43, -404.45, 0.98)
pt3dadd(59.77, 177.27, -404.45, 0.98)
pt3dadd(60.54, 179.29, -406.39, 0.98)
pt3dadd(61.76, 180.83, -406.39, 0.98)
pt3dadd(62.56, 183.1, -406.39, 0.98)
pt3dadd(62.96, 185.95, -406.39, 0.98)
pt3dadd(63.71, 187.71, -406.39, 0.98)
pt3dadd(63.95, 189.32, -408.06, 0.98)
pt3dadd(64.75, 190.51, -408.73, 0.98)
pt3dadd(66.02, 192.23, -408.67, 0.98)
pt3dadd(66.03, 193.57, -408.67, 0.98)
pt3dadd(67.35, 195.05, -408.73, 0.98)
pt3dadd(67.54, 196.01, -409.01, 0.98)
}
dend[34] {pt3dclear()
pt3dadd(67.54, 196.01, -409.01, 0.9)
pt3dadd(67.25, 197.11, -409.17, 0.9)
pt3dadd(65.58, 199.2, -409.45, 0.81)
pt3dadd(64.2, 199.71, -410.67, 0.81)
pt3dadd(62.49, 200.54, -410.62, 0.81)
pt3dadd(61.19, 201.55, -411.51, 0.81)
pt3dadd(60.09, 202.62, -412.51, 0.81)
pt3dadd(58.88, 201.75, -412.51, 0.81)
pt3dadd(57.16, 202.25, -413.45, 0.81)
pt3dadd(56.3, 203.04, -413.4, 0.81)
pt3dadd(55.05, 203.74, -413.45, 0.81)
pt3dadd(53.44, 204.85, -414.73, 0.81)
pt3dadd(52.56, 206.06, -414.73, 0.81)
pt3dadd(50.49, 208.39, -415.9, 0.81)
pt3dadd(49.36, 209.95, -415.9, 0.81)
pt3dadd(49.17, 212.49, -415.9, 0.81)
pt3dadd(48.67, 213.87, -415.9, 0.81)
pt3dadd(48.4, 215.72, -414.84, 0.81)
pt3dadd(48.25, 217.02, -413.73, 0.81)
pt3dadd(48.53, 218.67, -412.62, 0.81)
pt3dadd(48.31, 220.28, -412.62, 0.81)
pt3dadd(48.32, 221.28, -412.62, 0.81)
pt3dadd(47.64, 222.7, -412.28, 0.81)
pt3dadd(46.17, 223.6, -413.84, 0.81)
pt3dadd(45.14, 225.43, -413.84, 0.81)
pt3dadd(44.37, 227.58, -415.9, 0.81)
pt3dadd(42.85, 229.05, -417.06, 0.81)
pt3dadd(42.05, 230.27, -418.57, 0.81)
pt3dadd(40.78, 231.38, -419.34, 0.81)
pt3dadd(40.36, 232.78, -419.34, 0.65)
pt3dadd(39.11, 234.15, -419.95, 0.65)
pt3dadd(38.69, 235.88, -420.4, 0.65)
pt3dadd(37.37, 237.56, -420.4, 0.65)
pt3dadd(36.6, 239.63, -423.12, 0.65)
pt3dadd(34.25, 242.4, -424.85, 0.65)
pt3dadd(34.13, 243.95, -426.07, 0.65)
pt3dadd(32.87, 242.76, -426.07, 0.73)
pt3dadd(30.18, 242.05, -429.29, 0.73)
pt3dadd(28.72, 242.37, -430.63, 0.73)
pt3dadd(28.39, 243.8, -433.4, 0.73)
pt3dadd(28.28, 244.43, -436.02, 0.73)
pt3dadd(28.12, 244.9, -438.3, 0.73)
pt3dadd(27.79, 245.34, -441.46, 0.73)
pt3dadd(27.46, 245.36, -443.19, 0.73)
pt3dadd(26.56, 245.78, -446.41, 0.65)
pt3dadd(26.45, 246.42, -447.63, 0.65)
}
dend[35] {pt3dclear()
pt3dadd(67.54, 196.01, -409.01, 0.98)
pt3dadd(69.31, 197.35, -409.01, 0.98)
pt3dadd(69.72, 198.78, -409.01, 0.98)
pt3dadd(70.28, 199.59, -409.01, 0.81)
pt3dadd(72.14, 201.28, -407.67, 0.81)
pt3dadd(73.73, 202.66, -407.62, 0.81)
pt3dadd(75.46, 204.16, -407.62, 0.81)
pt3dadd(76.69, 205.71, -407.62, 0.81)
pt3dadd(77.62, 207.76, -408.12, 0.81)
pt3dadd(80.24, 209.73, -408.89, 0.81)
pt3dadd(82.17, 210.44, -409.84, 0.81)
pt3dadd(83.19, 211.43, -410.62, 0.81)
pt3dadd(84.52, 212.84, -411.28, 0.81)
pt3dadd(87.49, 214.8, -412.01, 0.81)
pt3dadd(90.02, 216.49, -412.67, 0.81)
pt3dadd(93.41, 218.39, -411.78, 0.81)
pt3dadd(95.95, 220.74, -411.73, 0.81)
pt3dadd(97.21, 222.13, -411.73, 0.65)
pt3dadd(97.5, 225.45, -410.23, 0.65)
pt3dadd(97.5, 227.2, -410.23, 0.65)
pt3dadd(98.74, 227.25, -410.17, 0.49)
pt3dadd(99.88, 228.77, -410.17, 0.49)
pt3dadd(101.44, 229.98, -410.23, 0.49)
pt3dadd(103.11, 231.38, -410.17, 0.49)
pt3dadd(104.39, 232.69, -410.17, 0.49)
pt3dadd(104.99, 233.58, -410.17, 0.49)
pt3dadd(106.06, 234, -409.67, 0.33)
}
dend[36] {pt3dclear()
pt3dadd(76.2, 73.5, -373.38, 1.14)
pt3dadd(76.17, 74.32, -373.38, 1.14)
pt3dadd(75.5, 76.41, -371.88, 1.14)
pt3dadd(75.43, 77.06, -371.88, 0.98)
pt3dadd(75.7, 78.37, -371.88, 0.98)
pt3dadd(75.76, 78.8, -371.88, 0.98)
pt3dadd(74.79, 80.07, -370.6, 0.98)
pt3dadd(74.34, 80.88, -369.54, 0.98)
pt3dadd(74, 82.3, -368.82, 0.98)
pt3dadd(73.24, 83.36, -367.15, 0.98)
pt3dadd(72.2, 85.61, -366.88, 0.9)
pt3dadd(71.53, 87.37, -365.15, 0.9)
pt3dadd(71.56, 88.62, -365.15, 0.9)
pt3dadd(70.95, 90.48, -364.26, 0.9)
pt3dadd(70.04, 92.17, -363.21, 0.9)
pt3dadd(68.71, 93.39, -363.21, 0.73)
pt3dadd(67.07, 94.52, -362.26, 0.73)
pt3dadd(65.76, 96.21, -360.37, 0.73)
pt3dadd(65.51, 97.67, -359.32, 0.73)
pt3dadd(64.93, 99.21, -358.98, 0.73)
pt3dadd(64.93, 99.21, -358.87, 0.81)
pt3dadd(63.7, 101.14, -357.98, 0.81)
pt3dadd(64.1, 102.04, -357.98, 0.81)
pt3dadd(64.34, 103.01, -357.48, 0.73)
pt3dadd(63.93, 104.14, -355.93, 0.73)
pt3dadd(63.76, 105.27, -355.43, 0.73)
pt3dadd(63.75, 106.57, -354.65, 0.73)
pt3dadd(62.69, 107.78, -353.59, 0.73)
pt3dadd(62.44, 108.83, -352.04, 0.73)
pt3dadd(61.7, 110.12, -351.37, 0.73)
pt3dadd(60.39, 111.17, -349.98, 0.73)
pt3dadd(59.73, 112.62, -348.87, 0.73)
pt3dadd(58.75, 113.51, -347.03, 0.73)
pt3dadd(59.07, 115.13, -345.98, 0.73)
pt3dadd(59.14, 116.1, -344.14, 0.73)
pt3dadd(57.67, 116.82, -342.76, 0.73)
pt3dadd(56.2, 117.63, -341.25, 0.73)
pt3dadd(54.73, 118.43, -340.59, 0.73)
pt3dadd(53.99, 119.88, -340.25, 0.73)
pt3dadd(52.44, 121.01, -335.2, 0.73)
pt3dadd(50.72, 122.14, -331.42, 0.73)
pt3dadd(49.17, 122.78, -329.47, 0.73)
pt3dadd(48.76, 124.39, -328.25, 0.73)
pt3dadd(48.67, 125.85, -325.25, 0.73)
pt3dadd(50.29, 126.91, -323.53, 0.73)
pt3dadd(49.55, 128.2, -321.36, 0.73)
pt3dadd(49.38, 129.9, -319.86, 0.73)
pt3dadd(49.13, 130.96, -318.86, 0.73)
pt3dadd(47.41, 132.24, -317.63, 0.73)
pt3dadd(46.02, 133.94, -316.63, 0.73)
pt3dadd(44.55, 134.25, -315.3, 0.73)
pt3dadd(43.96, 134.7, -314.97, 0.73)
pt3dadd(42.74, 135.1, -314.97, 0.73)
pt3dadd(42.16, 136.48, -314.97, 0.73)
pt3dadd(41.75, 137.12, -314.35, 0.73)
pt3dadd(41.42, 138.09, -314.35, 0.73)
pt3dadd(40.2, 138.33, -311.58, 0.73)
pt3dadd(39.54, 140.03, -311.35, 0.73)
pt3dadd(38.64, 140.59, -311.35, 0.73)
pt3dadd(37.82, 141.64, -311.3, 0.73)
pt3dadd(38.47, 142.53, -311.35, 0.73)
pt3dadd(37.16, 143.42, -308.8, 0.73)
pt3dadd(36.58, 144.87, -307.91, 0.73)
pt3dadd(35.52, 145.68, -307.69, 0.73)
pt3dadd(34.7, 146.73, -305.24, 0.73)
pt3dadd(33.63, 147.77, -303.63, 0.73)
pt3dadd(32.9, 148.17, -301.35, 0.73)
pt3dadd(32, 148.33, -298.68, 0.73)
pt3dadd(30.61, 148.97, -298.35, 0.73)
pt3dadd(30.37, 147.99, -298.35, 0.81)
pt3dadd(28.05, 148.64, -297.07, 0.81)
pt3dadd(27.48, 150.09, -296.57, 0.81)
pt3dadd(26.39, 149.77, -294.9, 0.81)
pt3dadd(25.39, 149.38, -294.9, 0.81)
pt3dadd(24.48, 148.93, -293.57, 0.81)
pt3dadd(22.38, 148.63, -292.51, 0.81)
pt3dadd(20.86, 148.71, -292.29, 0.81)
pt3dadd(19.3, 148.61, -291.01, 0.81)
pt3dadd(18.25, 149.21, -290.29, 0.81)
pt3dadd(17.22, 150.06, -289.73, 0.81)
pt3dadd(16.69, 150.6, -288.4, 0.81)
pt3dadd(15.96, 150.86, -287.68, 0.81)
pt3dadd(15.91, 151.09, -286.34, 0.81)
pt3dadd(15.74, 151.47, -285.45, 0.73)
pt3dadd(14.49, 151.86, -284.4, 0.73)
pt3dadd(13.72, 152.68, -280.84, 0.73)
pt3dadd(13.31, 154.17, -280.51, 0.73)
pt3dadd(12.89, 154.57, -278.62, 0.73)
pt3dadd(12.34, 154.78, -276.17, 0.73)
pt3dadd(12.1, 155.48, -275, 0.73)
pt3dadd(12.17, 157.07, -272, 0.73)
pt3dadd(12.18, 158.15, -272, 0.73)
pt3dadd(11.49, 158.99, -271.95, 0.65)
pt3dadd(10.68, 161.13, -270.34, 0.65)
pt3dadd(10.37, 162.15, -270.34, 0.65)
pt3dadd(8.75, 162.7, -269.34, 0.65)
pt3dadd(7, 163.8, -269.28, 0.65)
pt3dadd(5.46, 163.63, -268.06, 0.65)
pt3dadd(3.39, 163.17, -266.28, 0.65)
pt3dadd(2.53, 163.64, -266.22, 0.65)
pt3dadd(1.75, 162.64, -266.22, 0.65)
pt3dadd(-0.26, 161.94, -266.22, 0.65)
pt3dadd(-0.88, 160.56, -266.22, 0.65)
pt3dadd(-1.93, 159.67, -262.89, 0.65)
pt3dadd(-3.58, 158.47, -260.39, 0.65)
pt3dadd(-4.14, 157.6, -257.39, 0.65)
}
}
proc shape3d_8() {
dend[36] { pt3dadd(-4.42, 156.63, -255.89, 0.65)
pt3dadd(-5.19, 156.29, -254.72, 0.65)
pt3dadd(-5.56, 156.87, -252.38, 0.65)
pt3dadd(-5.86, 157.47, -250.05, 0.65)
pt3dadd(-7.29, 158.64, -249.33, 0.49)
pt3dadd(-8.12, 159.37, -249.33, 0.49)
pt3dadd(-9.26, 159.62, -249.33, 0.49)
pt3dadd(-9.76, 160.01, -246.16, 0.49)
pt3dadd(-10.04, 160.11, -245.49, 0.49)
}
dend[37] {pt3dclear()
pt3dadd(75.04, 20.54, -372.66, 1.63)
pt3dadd(74.9, 22.51, -374.44, 1.63)
pt3dadd(74.86, 24.08, -377.44, 1.63)
pt3dadd(74.03, 24.38, -380.83, 1.63)
pt3dadd(74.43, 25.89, -381.66, 1.63)
pt3dadd(74.15, 26.33, -382.22, 1.71)
pt3dadd(73.95, 27.53, -384.27, 1.63)
pt3dadd(73.34, 27.96, -386.94, 1.63)
pt3dadd(71.91, 28.7, -388.83, 1.47)
pt3dadd(71.9, 29.45, -389.55, 1.47)
pt3dadd(71.71, 30.24, -391.66, 1.47)
pt3dadd(71.24, 30.79, -392.67, 1.47)
pt3dadd(70.99, 31.81, -394.39, 1.47)
pt3dadd(70.63, 32.64, -395.89, 1.47)
pt3dadd(70.81, 33.27, -398.28, 1.47)
pt3dadd(71.95, 34.46, -399.78, 1.47)
pt3dadd(70.95, 34.8, -400.39, 1.47)
pt3dadd(70.38, 35.42, -402.73, 1.47)
pt3dadd(70.07, 36.34, -403.45, 1.47)
pt3dadd(69.88, 37.13, -406.23, 1.47)
pt3dadd(70.37, 37.91, -407.62, 1.47)
pt3dadd(70.87, 39.28, -409.51, 1.47)
pt3dadd(70.21, 40.29, -410.17, 1.47)
pt3dadd(70.72, 41.33, -411.34, 1.47)
pt3dadd(70.22, 42.71, -414.51, 1.47)
pt3dadd(70.03, 43.83, -416.4, 1.47)
pt3dadd(70.19, 45.62, -418.4, 1.47)
pt3dadd(70, 46.74, -419.23, 1.47)
pt3dadd(69.64, 47.9, -423.18, 1.47)
pt3dadd(69.2, 48.71, -424.18, 1.47)
pt3dadd(68.42, 48.29, -424.18, 1.38)
pt3dadd(67.91, 49.77, -427.07, 1.38)
pt3dadd(67.22, 51.37, -430.57, 1.38)
pt3dadd(66.87, 52.46, -431.24, 1.38)
pt3dadd(66.32, 53.68, -433.29, 1.38)
pt3dadd(65.59, 54.54, -433.79, 1.38)
pt3dadd(65.26, 55.97, -435.79, 1.38)
pt3dadd(64.7, 56.85, -436.85, 1.38)
pt3dadd(64.93, 58.37, -438.8, 1.38)
pt3dadd(64.88, 59.6, -439.91, 1.38)
pt3dadd(65.02, 60.69, -441.3, 1.38)
pt3dadd(65, 61.76, -442.91, 1.38)
pt3dadd(64.7, 62.53, -444.97, 1.38)
pt3dadd(64.44, 64.04, -446.47, 1.38)
pt3dadd(65.16, 65.15, -447.08, 1.38)
pt3dadd(64.58, 65.63, -449.02, 1.38)
pt3dadd(63.97, 66.26, -451.75, 1.38)
pt3dadd(63.79, 67.79, -453.8, 1.38)
pt3dadd(63.15, 70.07, -455.14, 1.38)
pt3dadd(62.11, 71.28, -455.97, 1.38)
pt3dadd(61.9, 72.97, -458.47, 1.38)
pt3dadd(60.75, 73.84, -459.69, 1.38)
pt3dadd(59.85, 75.25, -461.92, 1.38)
pt3dadd(58.9, 77.38, -464.64, 1.38)
pt3dadd(58.01, 78.22, -466.7, 1.38)
pt3dadd(57.18, 80.62, -468.64, 1.38)
pt3dadd(56.37, 81.47, -471.25, 1.38)
pt3dadd(55.57, 82.72, -475.09, 1.38)
pt3dadd(56.2, 83.41, -476.81, 1.38)
pt3dadd(56, 85.02, -478.42, 1.38)
pt3dadd(55.43, 85, -480.42, 1.38)
pt3dadd(54.19, 85.94, -484.65, 1.38)
pt3dadd(54, 86.56, -488.09, 1.38)
pt3dadd(55.25, 86.49, -488.09, 1.3)
pt3dadd(54.31, 87.33, -489.59, 1.3)
}
dend[38] {pt3dclear()
pt3dadd(54.31, 87.33, -489.59, 1.3)
pt3dadd(53.04, 86.05, -495.99, 1.3)
pt3dadd(53.23, 85.65, -498.15, 1.3)
pt3dadd(53.41, 85.33, -500.82, 1.3)
pt3dadd(53.17, 85.24, -506.77, 1.22)
pt3dadd(53.61, 84.62, -507.71, 1.22)
pt3dadd(52.66, 84, -509.16, 1.06)
pt3dadd(52.09, 83.97, -510.6, 1.06)
pt3dadd(51.69, 83.94, -512.94, 1.06)
pt3dadd(51.48, 84.74, -515.38, 1.06)
pt3dadd(51.48, 84.74, -520.05, 1.06)
pt3dadd(50.91, 84.71, -522.28, 1.06)
pt3dadd(50.59, 84.62, -524.44, 1.06)
pt3dadd(49.98, 85.39, -526.28, 1.06)
pt3dadd(49.81, 85.55, -529.89, 1.06)
pt3dadd(48.89, 85.9, -531.67, 1.06)
pt3dadd(47.57, 86.24, -534.56, 1.06)
pt3dadd(46.76, 86.11, -538.12, 1.06)
pt3dadd(46.51, 86.1, -540.56, 1.06)
pt3dadd(46.19, 86.08, -544.45, 1.06)
pt3dadd(45.94, 86.07, -548.45, 1.06)
}
dend[39] {pt3dclear()
pt3dadd(54.31, 87.33, -489.59, 1.06)
pt3dadd(52.95, 88.31, -491.21, 1.06)
pt3dadd(52.07, 89.56, -493.49, 1.06)
pt3dadd(50.83, 89.9, -495.88, 1.06)
pt3dadd(50.09, 91.48, -495.88, 1.06)
pt3dadd(49.37, 92.74, -495.93, 1.06)
pt3dadd(47.98, 92.66, -497.38, 1.06)
pt3dadd(47.63, 93.21, -497.38, 1.06)
}
dend[40] {pt3dclear()
pt3dadd(47.63, 93.21, -497.38, 0.73)
pt3dadd(45.73, 93.03, -499.27, 0.73)
pt3dadd(44.03, 92.86, -499.54, 0.73)
pt3dadd(42.73, 92.79, -499.77, 0.81)
pt3dadd(40.93, 92.77, -502.1, 0.81)
pt3dadd(39.49, 92.29, -502.1, 0.81)
pt3dadd(38.71, 91.6, -502.1, 0.73)
pt3dadd(36.77, 91.33, -502.93, 0.73)
pt3dadd(35.3, 89.87, -502.88, 0.73)
pt3dadd(33.81, 88.66, -503.66, 0.73)
pt3dadd(32, 88.89, -505.21, 0.73)
pt3dadd(30.34, 89.45, -506.38, 0.73)
pt3dadd(29.96, 89.02, -507.82, 0.73)
pt3dadd(27.57, 87.84, -508.38, 0.73)
pt3dadd(24.36, 86.85, -509.55, 0.73)
pt3dadd(21.29, 86.28, -509.71, 0.73)
pt3dadd(19.18, 84.63, -512.16, 0.73)
pt3dadd(18.08, 83.92, -513.99, 0.57)
pt3dadd(16.53, 82.29, -516.33, 0.57)
pt3dadd(16.52, 81.08, -517.44, 0.57)
pt3dadd(15.43, 80.04, -518.38, 0.57)
pt3dadd(14.37, 78.45, -522.5, 0.57)
pt3dadd(13.8, 76.96, -522.72, 0.33)
}
dend[41] {pt3dclear()
pt3dadd(47.63, 93.21, -497.38, 0.98)
pt3dadd(46.91, 94.39, -497.38, 0.98)
pt3dadd(46.01, 96.05, -499.65, 0.98)
pt3dadd(44.96, 97.29, -501.38, 0.98)
pt3dadd(43.98, 98.86, -502.66, 0.98)
pt3dadd(43.93, 99.83, -503.6, 0.98)
pt3dadd(43.7, 101.03, -504.82, 0.98)
pt3dadd(43.29, 102.47, -506.1, 0.98)
pt3dadd(43.09, 103.19, -506.99, 0.98)
pt3dadd(41.59, 103.76, -507.71, 0.98)
pt3dadd(41.61, 105.05, -510.71, 0.98)
pt3dadd(40.31, 106.36, -511.94, 0.98)
pt3dadd(39.79, 106.98, -514.49, 0.98)
pt3dadd(39.57, 108.03, -515.27, 0.98)
pt3dadd(38.13, 108.92, -516.11, 0.98)
pt3dadd(37.67, 110.03, -518.5, 0.98)
pt3dadd(36.07, 110.92, -519.61, 0.98)
pt3dadd(35.74, 112.44, -520.77, 0.98)
pt3dadd(35.36, 113.48, -522.22, 0.98)
pt3dadd(34.82, 114.34, -524.5, 0.98)
pt3dadd(33.85, 115.75, -525, 0.98)
pt3dadd(31.83, 116.86, -527.72, 0.98)
pt3dadd(30.51, 117.11, -527.94, 0.98)
pt3dadd(30.38, 117.99, -529.28, 0.98)
pt3dadd(30.01, 118.95, -532, 0.98)
pt3dadd(30.22, 120.99, -533.34, 0.98)
pt3dadd(29.36, 121.83, -535.34, 0.98)
pt3dadd(29.47, 124.27, -535.39, 0.98)
pt3dadd(30.23, 125.37, -536.61, 0.98)
pt3dadd(30.35, 126.18, -537.39, 0.98)
pt3dadd(29.77, 127.94, -538.28, 0.98)
pt3dadd(29.99, 129.73, -540.12, 0.98)
pt3dadd(29.95, 130.62, -542.78, 0.98)
pt3dadd(29.71, 132.07, -543.73, 0.98)
pt3dadd(29.01, 132.93, -545.73, 0.98)
pt3dadd(27.88, 134.08, -545.95, 0.98)
pt3dadd(27.02, 134.93, -545.95, 0.98)
pt3dadd(26.76, 136.78, -547.56, 0.98)
}
dend[42] {pt3dclear()
pt3dadd(26.76, 136.78, -547.56, 0.81)
pt3dadd(25.79, 138.11, -547.56, 0.81)
pt3dadd(25.28, 138.56, -547.56, 0.81)
pt3dadd(24.44, 139.01, -547.56, 0.81)
pt3dadd(23.54, 140.5, -547.56, 0.81)
pt3dadd(22.84, 142.81, -544.45, 0.81)
pt3dadd(22.74, 144.75, -544.12, 0.73)
pt3dadd(22.88, 146.79, -544.12, 0.73)
pt3dadd(21.67, 149.48, -542.17, 0.65)
pt3dadd(21.09, 151.23, -542.17, 0.65)
pt3dadd(21.1, 152.45, -542.17, 0.65)
pt3dadd(20.15, 153.54, -542.17, 0.65)
pt3dadd(18.22, 158.85, -545.34, 0.49)
pt3dadd(16.69, 161.52, -547.34, 0.49)
pt3dadd(15.24, 164.12, -549.95, 0.49)
pt3dadd(15.06, 165.98, -550.18, 0.49)
pt3dadd(13.56, 168.09, -552.95, 0.49)
pt3dadd(13.36, 166.4, -552.95, 0.57)
pt3dadd(13.04, 166.38, -552.95, 0.57)
}
dend[43] {pt3dclear()
pt3dadd(13.04, 166.38, -552.95, 0.65)
pt3dadd(14.29, 170.29, -553.73, 0.65)
pt3dadd(13.93, 172.94, -554.9, 0.65)
pt3dadd(14.1, 176.04, -555.23, 0.65)
pt3dadd(13.96, 177.9, -557.35, 0.65)
}
dend[44] {pt3dclear()
pt3dadd(13.96, 177.9, -557.35, 0.57)
pt3dadd(16.28, 183.93, -557.29, 0.57)
pt3dadd(16.61, 188.18, -557.23, 0.57)
pt3dadd(16.49, 190.93, -557.23, 0.57)
pt3dadd(15.27, 194, -560.18, 0.57)
pt3dadd(14.3, 196.04, -560.18, 0.57)
pt3dadd(13.9, 198.04, -560.18, 0.57)
pt3dadd(13.76, 200.95, -560.18, 0.57)
pt3dadd(12.69, 203.31, -562.96, 0.57)
pt3dadd(12.28, 206.45, -562.9, 0.57)
pt3dadd(13.01, 209.83, -565.63, 0.57)
pt3dadd(12.65, 211.35, -565.63, 0.57)
}
}
proc shape3d_9() {
dend[44] { pt3dadd(12.65, 212.4, -565.63, 0.57)
pt3dadd(11.83, 214.53, -565.63, 0.57)
pt3dadd(11.82, 216.89, -565.63, 0.57)
pt3dadd(11.72, 222.12, -565.79, 0.41)
pt3dadd(11.64, 226.34, -567.46, 0.41)
pt3dadd(12, 228.15, -567.46, 0.41)
pt3dadd(10.91, 230.67, -567.46, 0.41)
pt3dadd(10.65, 233, -567.68, 0.41)
}
dend[45] {pt3dclear()
pt3dadd(13.96, 177.9, -557.35, 0.65)
pt3dadd(15, 179.28, -559.57, 0.65)
pt3dadd(15.98, 180.41, -559.4, 0.57)
pt3dadd(16.24, 182.38, -562.13, 0.57)
pt3dadd(16.15, 184.65, -563.63, 0.57)
pt3dadd(15.55, 185.98, -563.63, 0.57)
pt3dadd(15.01, 187.73, -563.63, 0.57)
pt3dadd(15.5, 191.01, -565.9, 0.57)
pt3dadd(15.75, 193.06, -565.9, 0.57)
pt3dadd(17.14, 193.01, -569.35, 0.57)
pt3dadd(17.75, 192.57, -572.69, 0.57)
pt3dadd(18.33, 192.45, -574.63, 0.57)
pt3dadd(19.41, 192.21, -576.8, 0.57)
pt3dadd(19.84, 191.91, -577.8, 0.57)
}
dend[46] {pt3dclear()
pt3dadd(13.04, 166.38, -552.95, 0.57)
pt3dadd(11.82, 166.29, -554.9, 0.57)
pt3dadd(11.17, 167.37, -556.46, 0.57)
pt3dadd(10.59, 168.55, -558.18, 0.57)
pt3dadd(10.36, 170.4, -559.62, 0.57)
pt3dadd(10.81, 171, -561.24, 0.57)
pt3dadd(11.05, 172.16, -563.07, 0.57)
pt3dadd(11.28, 173.39, -563.52, 0.57)
pt3dadd(11.65, 175.05, -564.24, 0.57)
pt3dadd(11.59, 175.77, -565.85, 0.57)
pt3dadd(11.72, 176.19, -568.24, 0.57)
}
dend[47] {pt3dclear()
pt3dadd(26.76, 136.78, -547.56, 0.98)
pt3dadd(26.27, 136.83, -551.01, 0.98)
pt3dadd(26.21, 135.13, -551.01, 0.65)
pt3dadd(25.82, 136, -553.29, 0.65)
pt3dadd(25.75, 136.89, -557.01, 0.65)
pt3dadd(26.23, 138.14, -559.01, 0.65)
pt3dadd(25.27, 140.02, -561.29, 0.57)
pt3dadd(24.9, 141.61, -563.79, 0.57)
pt3dadd(24.7, 144.2, -564.79, 0.65)
pt3dadd(24.29, 146.44, -565.85, 0.65)
pt3dadd(23.82, 148.35, -567.24, 0.65)
pt3dadd(23.16, 150.5, -568.35, 0.65)
pt3dadd(22.14, 152.21, -569.35, 0.65)
pt3dadd(21.42, 154.1, -570.41, 0.65)
pt3dadd(20.01, 155.46, -571.07, 0.65)
pt3dadd(18.5, 157.05, -571.07, 0.65)
pt3dadd(18.38, 159.72, -571.96, 0.65)
pt3dadd(17.9, 162.77, -572.91, 0.65)
pt3dadd(17.42, 164.76, -573.46, 0.65)
pt3dadd(16.73, 166.42, -573.52, 0.41)
pt3dadd(16.31, 168.66, -577.13, 0.41)
pt3dadd(15.76, 171.62, -579.19, 0.57)
pt3dadd(15.47, 173.31, -581.3, 0.57)
pt3dadd(15.34, 175.71, -581.3, 0.57)
pt3dadd(15.14, 177.32, -581.3, 0.57)
pt3dadd(14.14, 178.54, -585.69, 0.57)
pt3dadd(13.72, 180.87, -589.53, 0.57)
pt3dadd(13.38, 182.22, -590.64, 0.57)
pt3dadd(13.6, 184.68, -592.75, 0.49)
pt3dadd(13.23, 186.27, -596.42, 0.49)
pt3dadd(12.43, 187.19, -598.25, 0.49)
pt3dadd(12.29, 187.91, -600.92, 0.49)
}
dend[48] {pt3dclear()
pt3dstyle(1, 44.1201, -23.7521, -344.707)
pt3dadd(45.97, -21.59, -332.18, 2.04)
pt3dadd(43.88, -17.98, -333.13, 1.87)
pt3dadd(43.26, -17.23, -334.15, 1.87)
pt3dadd(41.73, -16.24, -336.14, 1.96)
pt3dadd(41.08, -14.94, -336.86, 1.96)
pt3dadd(42.47, -14.29, -339.03, 1.96)
pt3dadd(42.31, -13.08, -340.64, 1.96)
pt3dadd(41.83, -12.59, -343.09, 1.96)
pt3dadd(41.83, -12.02, -344.7, 1.96)
pt3dadd(41.5, -11.7, -346.48, 2.12)
pt3dadd(41.02, -10.97, -347.98, 2.12)
pt3dadd(40.93, -10.97, -349.31, 2.12)
pt3dadd(40.26, -10.88, -349.31, 1.55)
pt3dadd(39.24, -10.46, -352.37, 1.55)
pt3dadd(39.29, -9.62, -354.59, 1.55)
pt3dadd(39.67, -8.78, -356.93, 1.55)
pt3dadd(39.96, -7.54, -358.65, 1.55)
pt3dadd(39.71, -6.85, -361.26, 1.55)
pt3dadd(39.47, -5.83, -363.65, 1.55)
pt3dadd(38.9, -4.88, -365.21, 1.55)
pt3dadd(38.34, -3.93, -367.1, 1.55)
pt3dadd(37.81, -3.14, -368.38, 1.55)
pt3dadd(37.78, -2.65, -370.32, 1.63)
pt3dadd(37.3, -1.68, -372.99, 1.63)
pt3dadd(36.93, -1.19, -374.94, 1.63)
pt3dadd(36.14, -0.71, -376.38, 1.63)
}
dend[49] {pt3dclear()
pt3dadd(36.14, -0.71, -376.38, 0.98)
pt3dadd(35.73, 1.02, -376.33, 0.98)
pt3dadd(35.25, 2.66, -379.38, 1.22)
pt3dadd(35.06, 3.44, -382.83, 1.22)
pt3dadd(35.25, 4.74, -383.99, 1.06)
pt3dadd(34.65, 5.84, -386.5, 1.06)
pt3dadd(33.91, 6.83, -387.72, 1.06)
pt3dadd(34.35, 7.44, -388.89, 1.14)
pt3dadd(33.94, 8.09, -392.11, 1.14)
pt3dadd(33.36, 9.12, -392.5, 1.14)
pt3dadd(33.37, 10.12, -394.17, 1.06)
pt3dadd(32.54, 11.5, -395.78, 1.06)
pt3dadd(32.35, 12.29, -397.33, 1.22)
pt3dadd(32.02, 12.96, -399.45, 1.22)
pt3dadd(31.48, 13.83, -400.78, 1.22)
pt3dadd(31.23, 14.52, -401.84, 1.22)
pt3dadd(31.08, 15.48, -404.11, 1.22)
pt3dadd(31.17, 16.5, -405.34, 1.22)
pt3dadd(30.96, 17.7, -407.17, 1.22)
pt3dadd(30.68, 18.88, -408.89, 1.3)
pt3dadd(30.36, 20.22, -411.62, 1.3)
pt3dadd(29.6, 21.29, -412.06, 1.3)
pt3dadd(29.94, 22.2, -412.06, 0.9)
pt3dadd(29.28, 22.67, -417.29, 0.9)
pt3dadd(28.48, 23.92, -420.07, 0.9)
pt3dadd(28.53, 25.08, -421.68, 0.9)
pt3dadd(28.13, 25.92, -422.79, 0.9)
pt3dadd(27.74, 27.25, -423.96, 0.9)
pt3dadd(27.02, 28.52, -425.12, 0.9)
pt3dadd(26.97, 29.75, -426.79, 0.9)
pt3dadd(26.85, 30.96, -429.18, 0.9)
pt3dadd(27.19, 31.84, -430.4, 0.9)
pt3dadd(27.15, 33.48, -430.57, 0.9)
pt3dadd(26.89, 34.99, -431.46, 0.9)
pt3dadd(26.04, 36.57, -432.24, 0.9)
pt3dadd(24.65, 37.4, -432.9, 0.9)
pt3dadd(24.85, 38.66, -436.46, 0.9)
pt3dadd(25.04, 39.93, -438.85, 0.9)
pt3dadd(24.79, 41.86, -439.52, 0.9)
pt3dadd(24.25, 43.49, -440.96, 0.9)
pt3dadd(24.33, 44.99, -441.46, 0.9)
pt3dadd(24.12, 46.68, -443.02, 0.81)
pt3dadd(23.72, 48.5, -444.8, 0.81)
pt3dadd(22.99, 49.85, -446.97, 0.81)
pt3dadd(21.82, 51.79, -448.36, 0.81)
pt3dadd(22.71, 53.34, -447.69, 0.81)
pt3dadd(22.84, 54.51, -449.13, 0.81)
pt3dadd(22.19, 55.88, -450.47, 0.81)
pt3dadd(21.84, 57.87, -452.75, 0.81)
pt3dadd(20.83, 59.42, -452.75, 0.81)
pt3dadd(20.51, 60.76, -452.75, 0.81)
pt3dadd(20.81, 61.89, -452.75, 0.81)
pt3dadd(20.08, 62.75, -454.75, 0.81)
pt3dadd(19.67, 64.15, -454.75, 0.81)
pt3dadd(19.18, 65.55, -454.75, 0.81)
pt3dadd(19.19, 66.95, -454.75, 0.81)
pt3dadd(19.72, 68.68, -456.86, 0.81)
pt3dadd(19.97, 70.54, -456.86, 0.81)
pt3dadd(21.26, 72.16, -457.36, 0.81)
pt3dadd(21.69, 73.05, -457.86, 0.81)
pt3dadd(22.52, 75.42, -459.03, 0.81)
pt3dadd(23.03, 76.74, -460.25, 0.81)
pt3dadd(22.32, 78.42, -461.75, 0.81)
pt3dadd(22.4, 80.84, -461.75, 0.81)
pt3dadd(23.03, 82.43, -463.64, 0.81)
pt3dadd(23.91, 84.06, -465.31, 0.81)
pt3dadd(23.06, 86.05, -466.42, 0.81)
pt3dadd(22.56, 87.53, -468.42, 0.81)
pt3dadd(22.13, 89.51, -470.14, 0.81)
pt3dadd(21.76, 91.17, -471.14, 0.81)
pt3dadd(22.01, 92.61, -472.75, 0.81)
pt3dadd(22.56, 93.69, -473.64, 0.81)
pt3dadd(22.55, 95.66, -474.03, 0.81)
pt3dadd(22.32, 97.02, -476.53, 0.81)
pt3dadd(22.22, 98.07, -479.03, 0.81)
pt3dadd(21.92, 100.73, -480.7, 0.81)
pt3dadd(21.7, 100.68, -480.7, 0.98)
pt3dadd(21.34, 101.23, -484.31, 0.98)
pt3dadd(20.85, 102.74, -486.37, 0.98)
pt3dadd(20.62, 104.11, -487.26, 0.98)
pt3dadd(20.81, 105.01, -487.43, 0.98)
pt3dadd(21.56, 106.27, -488.71, 0.98)
pt3dadd(21.72, 107.82, -489.59, 0.98)
pt3dadd(21.57, 109.03, -490.37, 0.98)
pt3dadd(21.35, 110.23, -492.6, 0.98)
pt3dadd(21.92, 111.64, -494.37, 0.98)
pt3dadd(21.75, 113.42, -495.82, 0.98)
pt3dadd(22.2, 115.55, -497.88, 0.81)
}
dend[50] {pt3dclear()
pt3dadd(22.2, 115.55, -497.88, 0.81)
pt3dadd(22.29, 117.02, -497.82, 0.81)
pt3dadd(23.13, 117.95, -497.82, 0.81)
pt3dadd(23.11, 119.9, -497.82, 0.81)
pt3dadd(23.2, 121.28, -499.49, 0.81)
pt3dadd(23.37, 122.59, -499.49, 0.81)
pt3dadd(24.06, 123.52, -499.49, 0.81)
pt3dadd(24.49, 124.52, -499.49, 0.81)
pt3dadd(25.04, 125.03, -499.49, 0.81)
pt3dadd(24.81, 126.15, -501.71, 0.73)
pt3dadd(24.92, 128.76, -501.71, 0.73)
pt3dadd(25.44, 129.68, -504.82, 0.73)
pt3dadd(25.32, 130.4, -505.82, 0.73)
pt3dadd(25.61, 132.52, -506.88, 0.73)
pt3dadd(25.74, 134.64, -509.88, 0.73)
pt3dadd(26.26, 135.56, -509.94, 0.73)
}
dend[51] {pt3dclear()
pt3dadd(26.26, 135.56, -509.94, 0.73)
pt3dadd(28.46, 137.63, -506.71, 0.73)
pt3dadd(30.95, 138.5, -504.77, 0.73)
pt3dadd(32.44, 138.09, -504.77, 0.73)
}
}
proc shape3d_10() {
dend[51] { pt3dadd(34.13, 138.5, -504.49, 0.73)
pt3dadd(35.64, 139.15, -501.27, 0.73)
pt3dadd(37.23, 140.05, -501.1, 0.73)
pt3dadd(39.6, 139.85, -500.43, 0.73)
pt3dadd(42.29, 140, -499.6, 0.73)
pt3dadd(43.94, 141.06, -498.04, 0.73)
pt3dadd(46.04, 141.5, -497.1, 0.73)
pt3dadd(47.6, 141.26, -495.71, 0.73)
pt3dadd(48.79, 141.89, -494.54, 0.73)
pt3dadd(50.4, 142.46, -493.26, 0.73)
pt3dadd(51.76, 142.78, -489.87, 0.73)
pt3dadd(52.56, 143.15, -488.21, 0.73)
pt3dadd(54.51, 143.22, -488.21, 0.81)
pt3dadd(56.33, 143.13, -485.98, 0.81)
pt3dadd(57.32, 143.1, -484.31, 0.81)
pt3dadd(58.54, 144.41, -484.31, 0.73)
pt3dadd(59.82, 144.66, -484.31, 0.73)
pt3dadd(60.64, 144.69, -482.59, 0.73)
pt3dadd(61.63, 145.31, -482.59, 0.73)
pt3dadd(63.17, 145.43, -482.59, 0.73)
pt3dadd(65.33, 145.31, -481.42, 0.73)
pt3dadd(66.67, 145.08, -479.81, 0.73)
pt3dadd(67.74, 145.06, -478.7, 0.73)
pt3dadd(69.3, 145.11, -477.65, 0.73)
pt3dadd(70.56, 144.87, -477.09, 0.73)
pt3dadd(71.78, 145.6, -476.59, 0.73)
pt3dadd(73.92, 145.56, -475.09, 0.73)
pt3dadd(75.67, 146.04, -475.09, 0.57)
pt3dadd(77.07, 145.98, -475.09, 0.57)
pt3dadd(77.97, 145.44, -475.09, 0.57)
pt3dadd(78.86, 146.14, -475.09, 0.57)
pt3dadd(79.97, 145.79, -475.09, 0.57)
pt3dadd(81.8, 145.63, -475.09, 0.57)
pt3dadd(82.34, 145.29, -475.09, 0.57)
pt3dadd(83.86, 145.66, -475.09, 0.57)
pt3dadd(84.33, 146.37, -475.09, 0.57)
pt3dadd(85.28, 146.66, -475.09, 0.57)
pt3dadd(86.7, 146.53, -475.09, 0.41)
}
dend[52] {pt3dclear()
pt3dadd(26.26, 135.56, -509.94, 0.73)
pt3dadd(26.76, 137.05, -511.49, 0.73)
pt3dadd(26.4, 137.51, -515.33, 0.73)
pt3dadd(25.62, 138.36, -516.27, 0.73)
pt3dadd(24.44, 139.19, -517.38, 0.73)
pt3dadd(24.1, 140.88, -518.5, 0.73)
pt3dadd(24.52, 142.2, -519.72, 0.73)
pt3dadd(24.92, 143.84, -519.89, 0.73)
pt3dadd(27.7, 146.75, -521.55, 0.73)
pt3dadd(28.6, 148.18, -523.39, 0.73)
pt3dadd(29.62, 150.42, -524.72, 0.73)
pt3dadd(29.77, 152.3, -525.33, 0.73)
pt3dadd(32.13, 153.96, -526.55, 0.73)
pt3dadd(33.73, 156, -526.89, 0.73)
pt3dadd(32.91, 157.66, -528.17, 0.73)
pt3dadd(33.67, 160.21, -529.78, 0.73)
pt3dadd(33.16, 162.05, -531.39, 0.73)
pt3dadd(33.7, 164.19, -533.72, 0.73)
pt3dadd(33.15, 166.75, -535.39, 0.73)
pt3dadd(32.86, 167.63, -535.39, 0.57)
pt3dadd(32.37, 169.06, -535.39, 0.57)
pt3dadd(31.85, 171.22, -536.78, 0.57)
pt3dadd(31.74, 173.25, -537.17, 0.73)
pt3dadd(31.6, 175.83, -540.73, 0.73)
pt3dadd(30.58, 178.05, -540.89, 0.73)
pt3dadd(30.65, 179.76, -540.89, 0.57)
pt3dadd(30.74, 181.56, -540.89, 0.65)
pt3dadd(30.15, 183.55, -542.51, 0.65)
pt3dadd(29.29, 185.86, -544.73, 0.65)
pt3dadd(29.06, 188.61, -545.9, 0.65)
pt3dadd(28.66, 191.5, -548.01, 0.65)
pt3dadd(27.5, 193.39, -549.56, 0.65)
pt3dadd(27.01, 194.82, -549.56, 0.57)
pt3dadd(26.29, 196, -552.73, 0.57)
pt3dadd(26.2, 195.2, -552.73, 0.57)
pt3dadd(24.1, 196.99, -555.68, 0.57)
pt3dadd(23.74, 198.59, -558.12, 0.57)
pt3dadd(23.27, 200.5, -560.62, 0.41)
pt3dadd(23.14, 202.2, -564.57, 0.41)
pt3dadd(23.17, 203.91, -566.52, 0.41)
pt3dadd(23.62, 205.49, -572.74, 0.41)
}
dend[53] {pt3dclear()
pt3dadd(22.2, 115.55, -497.88, 0.65)
pt3dadd(22.86, 117.05, -499.93, 0.65)
pt3dadd(23.72, 117.58, -499.93, 0.65)
pt3dadd(24.56, 118.76, -499.93, 0.65)
pt3dadd(25.76, 119.15, -503.1, 0.65)
pt3dadd(25.92, 119.16, -507.6, 0.98)
pt3dadd(26.58, 119.19, -509.83, 0.98)
pt3dadd(26.89, 120.83, -511.33, 0.98)
pt3dadd(27.44, 121.27, -514.05, 0.98)
pt3dadd(27.61, 122.74, -514.99, 0.81)
pt3dadd(27.34, 123.21, -518.61, 0.81)
pt3dadd(27.31, 123.77, -521.22, 0.81)
pt3dadd(27.5, 124.76, -522.61, 0.81)
pt3dadd(27.5, 124.76, -525.94, 0.81)
pt3dadd(27.22, 125.39, -527.56, 0.81)
pt3dadd(26.87, 125.86, -529.39, 0.81)
pt3dadd(26.87, 125.86, -532.67, 0.81)
pt3dadd(26.46, 125.84, -534.45, 0.81)
pt3dadd(26.12, 126.14, -537.78, 0.81)
pt3dadd(25.61, 126.52, -539.12, 0.81)
pt3dadd(24.84, 127.13, -541.23, 0.81)
pt3dadd(24.18, 127.34, -546.17, 0.81)
pt3dadd(23.82, 127.89, -546.17, 0.65)
pt3dadd(23.43, 128.67, -550.68, 0.65)
pt3dadd(23.13, 129.38, -552.68, 0.65)
pt3dadd(23.09, 131, -554.34, 0.65)
pt3dadd(23.76, 131.94, -555.01, 0.65)
pt3dadd(24.28, 132.63, -556.18, 0.65)
pt3dadd(25.36, 133.36, -558.12, 0.65)
pt3dadd(26.84, 134.37, -559.29, 0.65)
pt3dadd(28.27, 133.83, -561.96, 0.65)
pt3dadd(28.66, 134.1, -563.35, 0.65)
pt3dadd(29.15, 135.11, -565.29, 0.65)
pt3dadd(28.54, 135.64, -567.57, 0.65)
pt3dadd(28.42, 136.11, -569.24, 0.65)
pt3dadd(28.2, 136.83, -570.07, 0.49)
pt3dadd(28.02, 137.14, -573.46, 0.49)
pt3dadd(28.03, 138.03, -575.46, 0.33)
pt3dadd(29.21, 139.75, -581.08, 0.33)
pt3dadd(29.37, 140.82, -581.08, 0.33)
pt3dadd(30.27, 140.88, -583.91, 0.33)
}
dend[54] {pt3dclear()
pt3dadd(36.14, -0.71, -376.38, 1.47)
pt3dadd(36.77, -1.23, -378.71, 1.47)
pt3dadd(36.85, -1.21, -381.72, 1.47)
pt3dadd(37.44, -1.23, -384.11, 1.47)
pt3dadd(37.75, -0.08, -387.83, 1.38)
pt3dadd(38.42, -0.08, -389.55, 1.38)
pt3dadd(38.64, 0.39, -392, 1.38)
pt3dadd(39.16, 0.68, -393.5, 1.38)
pt3dadd(38.52, 0.19, -395.5, 1.38)
pt3dadd(38.02, -0.18, -397.45, 1.38)
pt3dadd(37.49, -0.39, -399.22, 1.38)
pt3dadd(37.02, -0.17, -401.34, 1.38)
pt3dadd(37.02, -0.17, -404.78, 1.38)
pt3dadd(37.56, -0.7, -408.28, 1.38)
pt3dadd(37.95, -1.28, -411.4, 1.38)
pt3dadd(37.95, -1.28, -413.34, 1.38)
pt3dadd(38.47, -1.29, -413.34, 1.47)
pt3dadd(38.55, -1.28, -417.12, 1.47)
pt3dadd(38.71, -1.25, -419.07, 1.47)
pt3dadd(38.71, -1.25, -421.07, 1.47)
pt3dadd(38.87, -1.22, -422.57, 1.47)
pt3dadd(38.87, -1.22, -425.29, 1.47)
pt3dadd(38.87, -1.22, -426.79, 1.47)
pt3dadd(39.19, -1.16, -429.01, 1.47)
pt3dadd(39.5, -1.03, -433.29, 1.47)
}
dend[55] {pt3dclear()
pt3dadd(39.5, -1.03, -433.29, 1.14)
pt3dadd(39.99, -0.53, -435.74, 1.14)
pt3dadd(40.75, -0.65, -439.57, 1.3)
pt3dadd(40.59, -0.67, -443.35, 1.3)
pt3dadd(41.09, -0.67, -445.52, 1.3)
pt3dadd(41.36, -0.79, -447.02, 1.3)
pt3dadd(41.36, -1.28, -448.8, 1.3)
pt3dadd(41.47, -1.43, -454.19, 1.3)
pt3dadd(41.93, -1.68, -456.91, 1.3)
pt3dadd(42.7, -1.38, -458.58, 1.3)
pt3dadd(43.64, -1.05, -459.42, 1.22)
pt3dadd(44.12, -0.97, -463.81, 1.22)
pt3dadd(45.12, -0.55, -465.64, 1.22)
pt3dadd(45.32, -0.76, -469.09, 1.22)
pt3dadd(46.15, -0.78, -471.37, 1.22)
pt3dadd(46.4, -0.32, -472.59, 1.22)
pt3dadd(47.02, -0.05, -476.09, 1.22)
pt3dadd(47.87, 0.26, -476.81, 1.22)
pt3dadd(48.5, -0.77, -476.81, 1.06)
pt3dadd(48.84, -1.08, -476.81, 1.06)
}
dend[56] {pt3dclear()
pt3dadd(48.84, -1.08, -476.81, 0.9)
pt3dadd(49.6, -1.52, -476.76, 0.9)
pt3dadd(50.66, -1.63, -481.54, 0.9)
pt3dadd(51.08, -1.69, -484.65, 0.9)
pt3dadd(52.12, -1.31, -486.09, 0.9)
pt3dadd(53.37, -1.81, -491.26, 0.9)
pt3dadd(53.77, -1.79, -494.71, 0.9)
pt3dadd(54.74, -1.49, -497.54, 0.9)
pt3dadd(54.74, -1.49, -500.66, 0.9)
pt3dadd(56.09, -0.93, -501.71, 0.9)
pt3dadd(56.91, -0.89, -503.32, 0.9)
pt3dadd(57.81, -1, -504.21, 0.9)
pt3dadd(58.79, -0.95, -505.71, 0.9)
pt3dadd(58.69, -0.71, -507.71, 0.9)
pt3dadd(58.69, -0.71, -508.94, 0.9)
pt3dadd(58.69, -0.71, -509.94, 0.9)
pt3dadd(58.85, -0.7, -511.88, 0.9)
pt3dadd(59.74, -0.41, -512.55, 0.9)
pt3dadd(60.39, -0.37, -513.55, 0.9)
pt3dadd(61, 0.31, -513.94, 0.9)
pt3dadd(60.97, 0.95, -515.83, 0.9)
pt3dadd(61.24, 1.94, -517.05, 0.9)
pt3dadd(61.32, 2.03, -518.33, 0.9)
pt3dadd(61.75, 1.64, -519.66, 0.9)
pt3dadd(60.72, 1.1, -521.16, 0.9)
pt3dadd(60.84, 1.76, -522.83, 0.9)
pt3dadd(61.09, 1.77, -525.67, 0.9)
pt3dadd(61.24, 1.94, -528.22, 0.9)
pt3dadd(61.48, 2.12, -530.56, 0.9)
pt3dadd(61.86, 2.62, -532.22, 0.9)
pt3dadd(62.07, 3.28, -534.56, 0.9)
pt3dadd(62.29, 3.7, -536.84, 0.9)
pt3dadd(62.44, 3.87, -537.67, 0.9)
pt3dadd(63.17, 2.46, -537.67, 1.06)
pt3dadd(62.72, 1.93, -542.17, 1.06)
}
}
proc shape3d_11() {
dend[56] { pt3dadd(62.49, 1.67, -545.95, 0.73)
pt3dadd(61.94, 1.39, -549.68, 0.73)
pt3dadd(61.13, 2.38, -553.4, 0.73)
pt3dadd(60.18, 1.99, -555.96, 0.73)
pt3dadd(59.82, 2.45, -559.35, 0.73)
pt3dadd(58.68, 2.44, -560.12, 0.57)
}
dend[57] {pt3dclear()
pt3dadd(48.84, -1.08, -476.81, 0.81)
pt3dadd(47.65, -1.79, -479.15, 0.81)
pt3dadd(46.71, -2.41, -480.92, 0.81)
pt3dadd(46.27, -3.41, -482.15, 0.81)
pt3dadd(45.9, -3.99, -485.48, 0.81)
pt3dadd(45.69, -4.65, -487.54, 0.81)
pt3dadd(46.42, -4.62, -489.48, 0.81)
pt3dadd(46.58, -4.61, -492.32, 0.98)
pt3dadd(46.8, -4.11, -496.26, 0.98)
pt3dadd(47.1, -3.69, -496.93, 0.98)
pt3dadd(47.58, -3.42, -499.99, 0.98)
pt3dadd(48.46, -3.13, -502.27, 0.98)
pt3dadd(48.7, -3.11, -503.49, 0.98)
pt3dadd(48.3, -3.14, -507.21, 0.98)
pt3dadd(48.12, -2.9, -509.88, 0.98)
pt3dadd(48.18, -2.49, -512.99, 0.98)
pt3dadd(48.68, -2.63, -514.27, 0.98)
pt3dadd(47.84, -2.19, -519.27, 0.98)
pt3dadd(47.51, -2.12, -520.89, 0.98)
pt3dadd(47.3, -1.32, -523.83, 0.98)
pt3dadd(47.77, -0.89, -525.78, 0.98)
pt3dadd(47.61, 0.48, -526.55, 0.98)
pt3dadd(47.83, 1.06, -529.61, 0.98)
pt3dadd(47.86, 2.03, -531.67, 0.98)
pt3dadd(47.98, 2.69, -533.72, 0.98)
pt3dadd(47.75, 3.97, -534.06, 0.9)
pt3dadd(48.04, 4.64, -539, 0.9)
pt3dadd(49.56, 3.77, -539, 0.98)
pt3dadd(50.65, 4.5, -544.62, 0.98)
pt3dadd(50.86, 5, -548.01, 0.98)
pt3dadd(51.79, 6.7, -550.84, 0.98)
pt3dadd(52.23, 7.72, -550.29, 0.98)
pt3dadd(53.07, 8.51, -552.68, 0.98)
pt3dadd(54.15, 8.27, -553.96, 0.98)
pt3dadd(54.85, 8.73, -555.29, 0.98)
pt3dadd(55.74, 8.8, -557.01, 0.98)
pt3dadd(56.13, 9.07, -559.12, 0.98)
pt3dadd(56.91, 9.62, -560.9, 0.98)
pt3dadd(57.1, 10.36, -562.46, 0.98)
pt3dadd(57.23, 10.7, -564.63, 0.98)
pt3dadd(58.21, 11.83, -565.24, 0.81)
pt3dadd(59.87, 13.66, -567.52, 0.81)
pt3dadd(61.09, 13.75, -569.41, 0.81)
pt3dadd(62.14, 13.83, -569.52, 0.65)
pt3dadd(62.96, 14.95, -569.52, 0.65)
pt3dadd(67.17, 16.49, -570.35, 0.65)
pt3dadd(68.12, 16.88, -573.41, 0.65)
pt3dadd(69.23, 17.29, -575.63, 0.65)
pt3dadd(68.9, 18.41, -577.8, 0.65)
pt3dadd(68.37, 18.93, -580.02, 0.65)
pt3dadd(67.94, 19.31, -582.58, 0.65)
pt3dadd(66.64, 20.26, -585.02, 0.65)
pt3dadd(65.11, 22.1, -586.47, 0.65)
pt3dadd(64.36, 23.34, -588.19, 0.65)
pt3dadd(64.11, 24.46, -590.25, 0.65)
pt3dadd(63.86, 25.66, -592.42, 0.65)
pt3dadd(63.47, 26.52, -593.81, 0.65)
pt3dadd(62.92, 27.29, -594.97, 0.65)
pt3dadd(62.11, 27.23, -597.03, 0.65)
pt3dadd(61.13, 28.21, -598.03, 0.65)
pt3dadd(61.07, 30.08, -598.03, 0.65)
pt3dadd(60.71, 30.54, -598.09, 0.65)
pt3dadd(59.35, 32.38, -603.48, 0.65)
pt3dadd(57.52, 32.81, -603.64, 0.65)
pt3dadd(57.67, 32.29, -603.64, 0.57)
pt3dadd(55.98, 32.71, -605.03, 0.57)
pt3dadd(55.63, 33.53, -605.48, 0.57)
pt3dadd(54.19, 33.79, -607.2, 0.57)
pt3dadd(54.04, 33.73, -607.59, 0.65)
pt3dadd(53.32, 33.95, -609.81, 0.65)
pt3dadd(52.05, 33.4, -610.48, 0.65)
pt3dadd(51.55, 33.54, -612.59, 0.65)
pt3dadd(50.97, 33.64, -613.65, 0.65)
pt3dadd(50.93, 34.15, -616.2, 0.57)
pt3dadd(50.74, 35.22, -618.15, 0.57)
pt3dadd(50.58, 35.59, -619.54, 0.57)
pt3dadd(50.47, 36.25, -621.76, 0.57)
pt3dadd(49.94, 36.46, -624.93, 0.57)
pt3dadd(49.05, 36.26, -626.93, 0.57)
pt3dadd(48.23, 35.9, -626.99, 0.33)
pt3dadd(47.66, 34.34, -627.76, 0.33)
}
dend[58] {pt3dclear()
pt3dadd(39.5, -1.03, -433.29, 0.65)
pt3dadd(38.32, -0.41, -436.41, 0.65)
pt3dadd(37.4, -0.41, -436.57, 0.65)
pt3dadd(36.97, 0.18, -440.46, 0.65)
pt3dadd(36.43, 0.91, -442.41, 0.65)
pt3dadd(36.01, 1.9, -444.41, 0.65)
pt3dadd(35.39, 2.62, -446.47, 0.65)
pt3dadd(33.71, 3.23, -447.8, 0.65)
pt3dadd(33.56, 4.11, -448.97, 0.65)
pt3dadd(32.05, 4.25, -450.47, 0.65)
pt3dadd(31.53, 3.92, -452.8, 0.65)
pt3dadd(31.32, 3.22, -454.47, 0.65)
pt3dadd(30.28, 3.45, -455.41, 0.65)
pt3dadd(29.92, 4.13, -456.64, 0.65)
pt3dadd(29.66, 3.26, -459.69, 0.65)
pt3dadd(29.09, 3.17, -461.69, 0.65)
pt3dadd(28.08, 3.32, -464.03, 0.65)
pt3dadd(27.21, 3.08, -464.25, 0.65)
}
dend[59] {pt3dclear()
pt3dstyle(1, 44.1201, -23.7521, -344.707)
pt3dadd(38.06, -16.39, -342.03, 2.53)
pt3dadd(37.18, -14.52, -340.48, 2.53)
pt3dadd(35.47, -12.65, -340.48, 2.53)
pt3dadd(35.15, -9.98, -339.53, 2.53)
pt3dadd(34.26, -8.52, -339.98, 1.87)
pt3dadd(33.13, -6.89, -338.36, 1.87)
pt3dadd(32.64, -5.27, -335.92, 1.87)
pt3dadd(30.94, -3.24, -335.97, 1.71)
pt3dadd(28.99, -1.7, -334.25, 1.71)
pt3dadd(28.5, -0.32, -333.08, 1.71)
pt3dadd(26.06, 1.15, -332.14, 1.71)
pt3dadd(25.66, 2.53, -330.42, 1.71)
pt3dadd(25.42, 2.77, -330.42, 1.87)
pt3dadd(24.93, 4.31, -328.47, 1.87)
pt3dadd(24.77, 5.36, -327.14, 1.87)
pt3dadd(24.13, 6.66, -325.97, 1.87)
pt3dadd(23.56, 7.63, -324.36, 1.87)
pt3dadd(23.4, 8.85, -323.14, 1.87)
pt3dadd(22.51, 10.55, -320.75, 1.87)
pt3dadd(22.35, 12.09, -318.63, 1.87)
pt3dadd(22.11, 13.55, -316.69, 1.87)
pt3dadd(22.25, 15.31, -314.63, 1.87)
pt3dadd(22.66, 16.04, -312.19, 1.71)
pt3dadd(21.83, 14.83, -312.19, 1.38)
pt3dadd(21.97, 15.35, -308.85, 1.38)
pt3dadd(22.1, 16.37, -306.63, 1.38)
}
dend[60] {pt3dclear()
pt3dadd(22.1, 16.37, -306.63, 0.65)
pt3dadd(23.82, 16.48, -305.68, 0.65)
pt3dadd(24.82, 17.68, -303.63, 0.65)
pt3dadd(25.39, 18.13, -302.57, 0.81)
pt3dadd(27.38, 19.78, -298.63, 0.81)
pt3dadd(27.65, 22.07, -296.12, 0.81)
pt3dadd(29.45, 23.85, -295.9, 0.81)
pt3dadd(30.09, 25.56, -294.18, 0.81)
pt3dadd(31.11, 25.85, -293.18, 0.81)
pt3dadd(31.88, 27.34, -292.35, 0.81)
pt3dadd(33.29, 27.38, -291.73, 0.81)
pt3dadd(34.13, 27.72, -290.34, 0.81)
pt3dadd(34.97, 28.89, -289.29, 0.81)
pt3dadd(35.62, 30.18, -288.51, 0.81)
pt3dadd(36.77, 32.24, -287.12, 0.81)
pt3dadd(38.9, 32.85, -285.51, 0.81)
pt3dadd(39.5, 33.96, -283.95, 0.81)
pt3dadd(40.16, 34.76, -284.18, 0.41)
}
dend[61] {pt3dclear()
pt3dadd(22.1, 16.37, -306.63, 1.14)
pt3dadd(21.81, 17.72, -305.41, 1.14)
pt3dadd(21.5, 19.64, -304.07, 1.14)
pt3dadd(21.7, 21.09, -304.07, 1.14)
pt3dadd(22.18, 22.76, -304.07, 1.14)
pt3dadd(22.35, 24.37, -302.35, 1.14)
pt3dadd(21.76, 25.98, -302.35, 1.14)
pt3dadd(21.58, 28.09, -300.74, 1.14)
pt3dadd(23.02, 30.38, -300.68, 1.14)
}
dend[62] {pt3dclear()
pt3dadd(23.02, 30.38, -300.68, 1.14)
pt3dadd(23.16, 32.06, -297.4, 1.14)
pt3dadd(23.14, 33.79, -295.51, 1.14)
pt3dadd(23.13, 34.62, -294.07, 1.14)
pt3dadd(23.01, 36, -293.07, 1.14)
pt3dadd(22.47, 36.63, -292.96, 1.14)
pt3dadd(23.05, 37.42, -292.96, 0.98)
pt3dadd(22.21, 39.06, -292.12, 0.98)
pt3dadd(21.29, 40.28, -292.07, 0.98)
pt3dadd(21.59, 41.66, -292.07, 0.98)
pt3dadd(21.39, 43.03, -290.51, 0.98)
pt3dadd(20.84, 44.07, -289.79, 0.98)
pt3dadd(20.68, 46.44, -289.12, 1.06)
pt3dadd(21.57, 47.78, -287.57, 1.06)
pt3dadd(21.52, 48.43, -287.23, 1.3)
pt3dadd(21.66, 50.11, -284.68, 1.3)
pt3dadd(21.96, 51.91, -283.34, 1.3)
pt3dadd(21.61, 53.58, -283.29, 1.3)
pt3dadd(21.36, 54.77, -281.95, 1.3)
pt3dadd(20.73, 56.62, -281.17, 1.22)
pt3dadd(20.74, 58.14, -281.12, 1.22)
pt3dadd(20.41, 59.31, -279.84, 1.22)
pt3dadd(20.28, 60.77, -279.84, 1.22)
pt3dadd(21.32, 61.74, -279.9, 1.22)
pt3dadd(21.03, 63.16, -277.62, 1.22)
pt3dadd(20.43, 64.45, -277.62, 1.22)
pt3dadd(19.95, 65.17, -277.62, 1.22)
pt3dadd(20.3, 66.65, -275.45, 1.22)
pt3dadd(20.36, 68.4, -274.34, 1.22)
pt3dadd(20.48, 69.42, -271.73, 1.22)
pt3dadd(20.9, 70.17, -270.95, 1.22)
pt3dadd(21.1, 71.62, -270.11, 1.22)
pt3dadd(20.25, 72.93, -269.72, 1.22)
pt3dadd(19.3, 74.3, -267.78, 1.22)
pt3dadd(18.44, 75.61, -267.45, 1.22)
pt3dadd(19.44, 76.81, -267.33, 1.22)
pt3dadd(18.82, 78.59, -265.45, 1.22)
pt3dadd(18.09, 79.35, -263.56, 1.22)
pt3dadd(17.84, 80.95, -264.06, 1.22)
pt3dadd(17.77, 84.08, -263.11, 1.06)
pt3dadd(17.38, 87.97, -262.33, 1.06)
}
}
proc shape3d_12() {
dend[62] { pt3dadd(17.44, 90.87, -260.83, 1.06)
pt3dadd(17.67, 92.58, -260.83, 1.14)
pt3dadd(16.89, 94.73, -259.39, 1.14)
pt3dadd(16.67, 94.93, -259.39, 1.14)
}
dend[63] {pt3dclear()
pt3dadd(16.67, 94.93, -259.39, 1.06)
pt3dadd(16.15, 97.47, -256.22, 1.06)
pt3dadd(16.28, 99.65, -256.22, 1.06)
pt3dadd(15.71, 101.51, -256.16, 0.9)
pt3dadd(15.51, 100.36, -256.16, 1.22)
pt3dadd(15.03, 100.28, -254.77, 1.22)
pt3dadd(14.26, 100.39, -254.11, 1.22)
}
dend[64] {pt3dclear()
pt3dadd(14.26, 100.39, -254.11, 1.14)
pt3dadd(14.86, 102.14, -253.05, 1.14)
pt3dadd(14.37, 104.44, -251.11, 1.06)
pt3dadd(13.53, 105.93, -250.33, 1.14)
pt3dadd(13.16, 107.1, -249.38, 1.14)
pt3dadd(12.44, 109.77, -248.05, 1.14)
pt3dadd(12.25, 111.79, -247.33, 1.06)
pt3dadd(11.7, 113.51, -247.33, 1.06)
pt3dadd(10.59, 114.63, -247.33, 1.06)
pt3dadd(9.91, 116.15, -245.27, 1.06)
pt3dadd(11, 117, -245.21, 1.06)
pt3dadd(10.38, 118.62, -245.21, 1.06)
pt3dadd(10.3, 120, -245.27, 1.06)
pt3dadd(10.7, 120.57, -243.55, 1.06)
}
dend[65] {pt3dclear()
pt3dadd(10.7, 120.57, -243.55, 0.9)
pt3dadd(11.18, 122.05, -243.55, 0.9)
pt3dadd(11.51, 123.01, -243.55, 0.9)
pt3dadd(11.09, 124.42, -243.6, 0.9)
pt3dadd(12.15, 125.92, -243.55, 0.9)
pt3dadd(13.56, 127.32, -243.55, 0.9)
pt3dadd(13.92, 128.54, -243.88, 0.9)
pt3dadd(14.55, 130.62, -243.88, 0.9)
pt3dadd(14.43, 133.15, -243.88, 0.9)
pt3dadd(15.69, 134.94, -243.88, 0.9)
pt3dadd(16.25, 138.33, -243.88, 0.9)
pt3dadd(18.13, 140.8, -243.88, 0.9)
pt3dadd(18.18, 142.63, -246.77, 0.9)
pt3dadd(18.17, 143.62, -246.77, 0.9)
pt3dadd(19.89, 144.66, -246.77, 0.9)
pt3dadd(21.41, 147.32, -246.88, 0.9)
pt3dadd(21.3, 148.37, -247.22, 0.9)
pt3dadd(22.57, 150.07, -246.27, 0.9)
pt3dadd(24.02, 151.73, -247.27, 0.9)
pt3dadd(23.73, 152.91, -247.27, 0.9)
pt3dadd(24.65, 154.22, -247.27, 0.9)
pt3dadd(26.21, 155.73, -247.27, 0.9)
pt3dadd(27.02, 156.29, -247.27, 0.9)
pt3dadd(26.87, 158.07, -247.27, 0.9)
pt3dadd(27.45, 158.99, -247.27, 0.9)
pt3dadd(28.49, 160.16, -247.27, 0.9)
pt3dadd(28.77, 162.27, -247.27, 0.9)
pt3dadd(29.89, 163.95, -247.27, 0.9)
pt3dadd(31.21, 165.83, -247.27, 0.9)
pt3dadd(31.87, 167.67, -245.71, 0.9)
pt3dadd(32.45, 168.18, -245.71, 0.9)
pt3dadd(34.53, 169.04, -245.71, 0.9)
pt3dadd(35.34, 170.51, -245.71, 0.9)
pt3dadd(36.75, 171, -245.71, 0.9)
pt3dadd(39.01, 172.22, -244.6, 0.9)
pt3dadd(40.48, 174.21, -244.55, 0.9)
pt3dadd(41.75, 175.91, -244.55, 0.9)
pt3dadd(43.47, 176.46, -246.44, 0.81)
pt3dadd(44.84, 178.1, -246.38, 0.81)
pt3dadd(46.21, 178.76, -248.27, 0.81)
pt3dadd(46.7, 179.75, -248.66, 0.81)
pt3dadd(47.34, 181.26, -250.94, 0.81)
pt3dadd(48.67, 182.65, -251.94, 0.81)
pt3dadd(49.96, 184.27, -253.38, 0.73)
pt3dadd(50.56, 185.53, -253.72, 0.73)
pt3dadd(51.9, 186.84, -253.72, 0.73)
pt3dadd(55.09, 188.47, -253.72, 0.73)
pt3dadd(57.03, 190.13, -253.77, 0.73)
pt3dadd(59.59, 191.57, -253.22, 0.73)
pt3dadd(60.75, 193.07, -254.27, 0.73)
pt3dadd(62.7, 195.14, -255.33, 0.73)
pt3dadd(63.14, 195.96, -255.33, 0.73)
pt3dadd(64.14, 197.29, -257.05, 0.65)
pt3dadd(65.67, 198.95, -259.5, 0.65)
}
dend[66] {pt3dclear()
pt3dadd(10.7, 120.57, -243.55, 0.65)
pt3dadd(10.08, 121.86, -243.49, 0.65)
pt3dadd(10.05, 122.93, -243.49, 0.65)
pt3dadd(9.35, 123.63, -242.16, 0.73)
pt3dadd(8.23, 124.34, -242.16, 0.73)
pt3dadd(7.79, 125.41, -242.16, 0.73)
pt3dadd(6.93, 126.08, -242.16, 0.73)
pt3dadd(6.71, 126.86, -241.21, 0.73)
pt3dadd(6.43, 127.97, -240.93, 0.81)
pt3dadd(5.35, 128.93, -240.16, 0.81)
pt3dadd(4.51, 129.93, -240.16, 0.81)
pt3dadd(4.14, 131.59, -240.16, 0.81)
pt3dadd(3.82, 132.93, -240.16, 0.81)
pt3dadd(3.62, 134.54, -240.16, 0.81)
pt3dadd(2.66, 136.18, -239.71, 0.73)
pt3dadd(1.7, 137.41, -238.32, 0.73)
pt3dadd(1.8, 138.74, -237.27, 0.73)
pt3dadd(1.61, 140.77, -235.71, 0.73)
pt3dadd(1.45, 141.64, -235.54, 0.81)
pt3dadd(0.53, 143.12, -235.21, 0.73)
pt3dadd(-0.41, 145.59, -234.27, 0.73)
pt3dadd(-0.94, 146.73, -233.43, 0.73)
pt3dadd(-1.32, 148.88, -232.88, 0.73)
pt3dadd(-1.67, 150.88, -231.21, 0.73)
pt3dadd(-3.35, 152.88, -230.54, 0.73)
pt3dadd(-3.57, 155.07, -229.04, 0.73)
pt3dadd(-3.94, 156.23, -227.1, 0.73)
pt3dadd(-4.45, 157.71, -225.37, 0.73)
}
dend[67] {pt3dclear()
pt3dadd(-4.45, 157.71, -225.37, 0.65)
pt3dadd(-4.16, 158.91, -225.87, 0.65)
pt3dadd(-3.99, 160.26, -225.87, 0.65)
pt3dadd(-5.46, 162.91, -225.04, 0.65)
pt3dadd(-4.95, 165.63, -224.43, 0.65)
pt3dadd(-5.43, 168.34, -223.59, 0.65)
pt3dadd(-6.44, 169.89, -223.59, 0.65)
pt3dadd(-6, 171.61, -222.87, 0.65)
pt3dadd(-5.86, 173.61, -222.32, 0.65)
pt3dadd(-6.2, 176.02, -221.65, 0.65)
pt3dadd(-6.81, 178.54, -221.65, 0.57)
pt3dadd(-6.86, 180.67, -219.98, 0.57)
pt3dadd(-7.35, 181.57, -219.04, 0.65)
pt3dadd(-7.52, 182.53, -216.2, 0.65)
pt3dadd(-7.74, 183.8, -216.2, 0.65)
pt3dadd(-7.44, 185.83, -214.76, 0.65)
pt3dadd(-7.68, 187.19, -214.7, 0.65)
pt3dadd(-7.56, 188.85, -216.54, 0.65)
pt3dadd(-8.11, 190.56, -216.54, 0.65)
pt3dadd(-8.35, 193.32, -215.2, 0.65)
pt3dadd(-8.02, 195.68, -216.92, 0.65)
pt3dadd(-8.65, 196.88, -216.98, 0.65)
pt3dadd(-8.94, 198.56, -216.98, 0.65)
pt3dadd(-10.24, 200.72, -216.98, 0.65)
pt3dadd(-10.87, 202.41, -216.04, 0.57)
pt3dadd(-11.91, 205.03, -216.04, 0.57)
pt3dadd(-12.25, 208.35, -213.76, 0.41)
pt3dadd(-13.25, 210.23, -214.87, 0.41)
}
dend[68] {pt3dclear()
pt3dadd(-4.45, 157.71, -225.37, 0.57)
pt3dadd(-5.06, 159.02, -225.32, 0.57)
pt3dadd(-6.09, 159.74, -225.32, 0.57)
pt3dadd(-6.92, 161.16, -225.32, 0.65)
pt3dadd(-7.01, 163.03, -225.32, 0.65)
pt3dadd(-6.86, 164.05, -225.32, 0.65)
pt3dadd(-7.36, 165.03, -225.32, 0.65)
pt3dadd(-7.43, 166.82, -225.32, 0.65)
pt3dadd(-8.54, 167.94, -225.32, 0.65)
pt3dadd(-10.11, 168.41, -225.32, 0.65)
pt3dadd(-10.95, 169.9, -225.26, 0.65)
pt3dadd(-11.34, 171.64, -223.93, 0.65)
pt3dadd(-11.95, 172.77, -223.93, 0.65)
pt3dadd(-12.5, 174.48, -221.87, 0.65)
pt3dadd(-13.75, 176.4, -219.59, 0.65)
pt3dadd(-13.87, 177.53, -219.54, 0.65)
pt3dadd(-15.26, 178.35, -218.98, 0.65)
pt3dadd(-16.84, 178.9, -217.76, 0.65)
pt3dadd(-17.59, 180.82, -216.87, 0.73)
pt3dadd(-17.73, 183.01, -215.92, 0.65)
pt3dadd(-18.25, 184.98, -215.92, 0.65)
pt3dadd(-19.41, 187.32, -214.59, 0.65)
pt3dadd(-19.91, 189.7, -212.92, 0.65)
pt3dadd(-20.7, 192.28, -210.87, 0.65)
pt3dadd(-21.29, 197.03, -210.03, 0.65)
pt3dadd(-22.28, 200.37, -207.48, 0.65)
pt3dadd(-23.14, 202.43, -208.53, 0.65)
pt3dadd(-25.7, 205.19, -207.53, 0.65)
pt3dadd(-26.67, 207.9, -209.92, 0.65)
pt3dadd(-27.28, 211.82, -210.2, 0.57)
pt3dadd(-27.28, 214.61, -212.65, 0.57)
pt3dadd(-28.75, 216.82, -212.65, 0.65)
pt3dadd(-30.14, 220.52, -212.65, 0.65)
pt3dadd(-30.98, 225.23, -215.03, 0.65)
pt3dadd(-30.41, 226.73, -215.42, 0.65)
pt3dadd(-29.73, 230.38, -215.59, 0.65)
pt3dadd(-29.94, 232.49, -215.65, 0.65)
pt3dadd(-31.03, 234.92, -217.09, 0.65)
pt3dadd(-32.05, 237.87, -217.15, 0.65)
pt3dadd(-33.2, 239.23, -217.15, 0.65)
pt3dadd(-33.31, 241.55, -217.15, 0.65)
pt3dadd(-33.52, 244.14, -217.15, 0.65)
pt3dadd(-34.76, 245.07, -217.15, 0.65)
}
dend[69] {pt3dclear()
pt3dadd(-34.76, 245.07, -217.15, 0.49)
pt3dadd(-34.83, 246.38, -216.98, 0.49)
pt3dadd(-35.2, 247.54, -216.2, 0.49)
pt3dadd(-35.17, 248.78, -215.09, 0.49)
pt3dadd(-35.32, 249.66, -215.09, 0.49)
}
dend[70] {pt3dclear()
pt3dadd(-34.76, 245.07, -217.15, 0.49)
pt3dadd(-35.94, 245.19, -217.09, 0.49)
pt3dadd(-36.82, 246.44, -217.09, 0.49)
pt3dadd(-38.13, 247.27, -217.09, 0.49)
pt3dadd(-39.06, 247.85, -217.09, 0.49)
}
dend[71] {pt3dclear()
pt3dadd(14.26, 100.39, -254.11, 0.81)
pt3dadd(13.19, 99.69, -253.27, 0.81)
pt3dadd(11.38, 100.52, -251.38, 0.81)
pt3dadd(10.13, 101.04, -249.99, 0.81)
pt3dadd(9.29, 101.14, -248.44, 0.81)
pt3dadd(8.68, 102.27, -245.33, 0.81)
pt3dadd(7.01, 103.29, -243.6, 0.81)
pt3dadd(5.69, 104.21, -240.43, 0.81)
pt3dadd(5.01, 104.74, -240.27, 0.81)
pt3dadd(3.13, 106.06, -238.93, 0.81)
pt3dadd(2.29, 107.06, -238.16, 0.81)
pt3dadd(1.58, 108.74, -237.93, 0.81)
}
}
proc shape3d_13() {
dend[71] { pt3dadd(0.44, 111.42, -237.43, 0.81)
pt3dadd(-0.92, 113.98, -236.15, 0.81)
pt3dadd(-1.64, 116.15, -234.65, 0.81)
pt3dadd(-2.72, 118.51, -233.93, 0.81)
pt3dadd(-2.77, 120.23, -233.93, 0.81)
pt3dadd(-3.66, 121.96, -231.99, 0.81)
pt3dadd(-5.24, 123, -231.99, 0.81)
pt3dadd(-7.05, 124.33, -231.99, 0.81)
pt3dadd(-7.81, 125.84, -231.93, 0.65)
pt3dadd(-9.59, 127.91, -230.37, 0.65)
pt3dadd(-10.91, 129.32, -230.37, 0.65)
pt3dadd(-12.26, 131.79, -231.32, 0.57)
pt3dadd(-13.21, 133.44, -232.1, 0.57)
pt3dadd(-13.68, 136.07, -234.43, 0.65)
pt3dadd(-14.67, 137.46, -234.43, 0.65)
pt3dadd(-15.76, 138.66, -234.43, 0.65)
}
dend[72] {pt3dclear()
pt3dadd(-15.76, 138.66, -234.43, 0.49)
pt3dadd(-15.03, 140.11, -235.21, 0.49)
pt3dadd(-14.55, 141.18, -237.21, 0.49)
pt3dadd(-14.54, 142.99, -238.43, 0.49)
pt3dadd(-14.42, 144.65, -239.66, 0.49)
pt3dadd(-14.61, 145.69, -239.77, 0.49)
pt3dadd(-15.55, 146.84, -241.21, 0.49)
pt3dadd(-16.25, 147.95, -243.44, 0.57)
pt3dadd(-17.58, 148.46, -244.66, 0.57)
pt3dadd(-19.42, 149.53, -245.6, 0.57)
}
dend[73] {pt3dclear()
pt3dadd(-15.76, 138.66, -234.43, 0.57)
pt3dadd(-16.76, 139.64, -234.38, 0.57)
pt3dadd(-17.76, 140.61, -234.38, 0.57)
pt3dadd(-19.3, 142.31, -234.38, 0.57)
pt3dadd(-20.74, 142.96, -234.38, 0.57)
pt3dadd(-22.29, 143.76, -234.71, 0.57)
pt3dadd(-22.7, 145.17, -231.54, 0.57)
pt3dadd(-23.13, 146.16, -230.93, 0.57)
pt3dadd(-23.78, 147.03, -231.49, 0.41)
pt3dadd(-24.43, 147.9, -231.49, 0.41)
pt3dadd(-24.71, 149.01, -231.49, 0.41)
}
dend[74] {pt3dclear()
pt3dadd(16.67, 94.93, -259.39, 1.22)
pt3dadd(15.89, 99.04, -259.39, 1.22)
pt3dadd(16.56, 100.26, -265.67, 1.22)
pt3dadd(17.23, 101.06, -267.28, 1.06)
pt3dadd(18.12, 101.57, -269.34, 1.06)
pt3dadd(18.61, 102.42, -271.56, 1.06)
}
dend[75] {pt3dclear()
pt3dadd(18.61, 102.42, -271.56, 0.9)
pt3dadd(19.43, 102.84, -273.89, 0.9)
pt3dadd(20.98, 103, -275.39, 0.9)
pt3dadd(20.94, 103.98, -275.39, 1.06)
pt3dadd(22.01, 104.86, -278.01, 1.06)
pt3dadd(22.69, 105.58, -279.01, 1.06)
pt3dadd(23.86, 105.58, -281.67, 1.06)
pt3dadd(24.84, 106.44, -282.17, 1.06)
pt3dadd(25.85, 106.82, -282.67, 1.06)
pt3dadd(26.87, 106.29, -283.34, 1.06)
pt3dadd(27.83, 107.31, -284.23, 1.06)
pt3dadd(29.05, 107.81, -285.9, 1.06)
pt3dadd(30.63, 108.22, -287.29, 0.9)
pt3dadd(32.25, 109.22, -289.51, 0.9)
pt3dadd(34.05, 110.18, -291.46, 0.9)
pt3dadd(35.09, 110.39, -291.9, 0.9)
pt3dadd(37.42, 111.2, -293.29, 0.9)
pt3dadd(38.87, 111.84, -294.68, 0.9)
pt3dadd(40.44, 112.66, -295.01, 0.9)
pt3dadd(41.69, 113.5, -296.35, 0.9)
pt3dadd(42.38, 114.96, -296.57, 0.9)
pt3dadd(45.62, 115.8, -297.46, 0.98)
pt3dadd(46.74, 116.78, -297.51, 0.98)
pt3dadd(48.75, 117.94, -299.35, 0.81)
pt3dadd(49.67, 118.71, -299.35, 0.81)
pt3dadd(51.02, 119.82, -299.35, 0.81)
pt3dadd(52.22, 119.65, -299.35, 0.81)
pt3dadd(54.07, 121.15, -300.46, 0.81)
pt3dadd(55.55, 122.04, -300.46, 0.81)
pt3dadd(57.77, 122.99, -301.74, 0.81)
pt3dadd(59.19, 123.37, -301.79, 0.81)
pt3dadd(60.58, 123.49, -301.79, 0.65)
pt3dadd(63.41, 125.07, -303.46, 0.65)
pt3dadd(65.51, 126.17, -303.46, 0.65)
pt3dadd(66.45, 126.45, -303.46, 0.65)
pt3dadd(67.25, 126.61, -303.24, 0.41)
}
dend[76] {pt3dclear()
pt3dadd(18.61, 102.42, -271.56, 0.73)
pt3dadd(18.26, 102.88, -272.78, 0.73)
pt3dadd(17.52, 103.64, -272.78, 0.73)
pt3dadd(18.28, 104.37, -274.28, 0.73)
pt3dadd(18.74, 104.97, -276.34, 0.73)
pt3dadd(18.35, 105.63, -276.89, 0.73)
pt3dadd(19.05, 106.68, -278.78, 0.73)
pt3dadd(19.29, 107.15, -280.56, 0.73)
pt3dadd(19.4, 107.83, -283.34, 0.73)
pt3dadd(19.57, 108.61, -284.4, 0.73)
pt3dadd(19.67, 109.29, -285.06, 0.73)
pt3dadd(19.64, 109.87, -285.95, 0.73)
pt3dadd(20.42, 110.11, -288.57, 0.73)
pt3dadd(21.07, 110.99, -290.73, 0.73)
pt3dadd(21.76, 110.89, -292.57, 0.73)
pt3dadd(21.93, 111.67, -294.29, 0.73)
pt3dadd(22.47, 112.69, -295.4, 0.73)
pt3dadd(21.72, 113.86, -296.74, 0.73)
pt3dadd(22.04, 114.34, -297.96, 0.73)
pt3dadd(22.34, 114.89, -300.9, 0.73)
pt3dadd(21.75, 115.35, -304.52, 0.73)
pt3dadd(21.23, 116.24, -306.68, 0.73)
pt3dadd(20.63, 116.69, -308.41, 0.73)
pt3dadd(21.14, 116.83, -308.41, 0.73)
pt3dadd(21.71, 117.72, -311.69, 0.73)
pt3dadd(21.62, 118.85, -314.08, 0.73)
pt3dadd(21.79, 120.07, -316.69, 0.73)
pt3dadd(21.7, 120.8, -318.08, 0.73)
}
dend[77] {pt3dclear()
pt3dadd(23.02, 30.38, -300.68, 0.73)
pt3dadd(22.03, 31.93, -299.79, 0.73)
pt3dadd(21.81, 33.79, -299.79, 0.73)
pt3dadd(21.17, 35.31, -301.4, 0.73)
pt3dadd(20.3, 36.29, -301.4, 0.73)
pt3dadd(20.69, 38.02, -301.4, 0.73)
pt3dadd(19.82, 39, -301.4, 0.73)
pt3dadd(19.6, 40.03, -301.4, 0.73)
pt3dadd(20.21, 41.15, -301.4, 0.73)
pt3dadd(19.21, 42.35, -301.4, 0.73)
pt3dadd(18.68, 44.47, -301.4, 0.73)
pt3dadd(18.6, 47.68, -300.35, 0.73)
pt3dadd(18.45, 48.81, -300.29, 0.81)
pt3dadd(18.42, 51.36, -300.29, 0.81)
pt3dadd(17.83, 52.98, -300.29, 0.81)
pt3dadd(17.18, 54.5, -300.29, 0.81)
pt3dadd(15.72, 56.35, -300.29, 0.81)
pt3dadd(15.41, 57.85, -300.29, 0.81)
pt3dadd(14.67, 60.18, -300.29, 0.81)
pt3dadd(13.71, 60.81, -300.29, 0.81)
pt3dadd(13.59, 62.19, -300.29, 0.81)
pt3dadd(13.25, 63.86, -299.4, 0.81)
pt3dadd(13.14, 65.99, -298.57, 0.81)
pt3dadd(12.48, 67.17, -298.57, 0.81)
pt3dadd(12.06, 69.15, -298.57, 0.81)
pt3dadd(10.67, 70.27, -298.57, 0.81)
pt3dadd(9.97, 72.12, -298.57, 0.81)
pt3dadd(10.36, 73.85, -298.57, 0.81)
pt3dadd(9.46, 75.4, -298.57, 0.81)
pt3dadd(9.11, 76.66, -297.51, 0.81)
pt3dadd(8.48, 78.51, -297.51, 0.81)
pt3dadd(7.52, 80.71, -297.51, 0.81)
pt3dadd(6.2, 83.08, -297.51, 0.81)
pt3dadd(5.28, 83.93, -297.51, 0.81)
}
dend[78] {pt3dclear()
pt3dadd(5.28, 83.93, -297.51, 0.9)
pt3dadd(5.81, 84.55, -288.68, 0.9)
pt3dadd(6.16, 85.55, -288.51, 0.9)
pt3dadd(7.3, 86.39, -285.73, 0.9)
pt3dadd(7.71, 87.15, -285.73, 0.9)
pt3dadd(7.54, 88.27, -285.06, 0.81)
pt3dadd(7.12, 90.09, -283.79, 0.81)
pt3dadd(6.83, 91.69, -283.79, 0.81)
pt3dadd(5.8, 93.61, -283.79, 0.81)
pt3dadd(5.9, 95.71, -281.84, 0.81)
pt3dadd(5.19, 95.88, -281.84, 0.81)
pt3dadd(4.52, 96.97, -281.62, 0.81)
pt3dadd(3.34, 98.11, -280.12, 0.81)
pt3dadd(2.9, 99.26, -280.17, 0.81)
pt3dadd(2.61, 100.52, -280.12, 0.81)
pt3dadd(2.26, 102.02, -280.12, 0.81)
pt3dadd(1.85, 103.09, -279.95, 0.73)
pt3dadd(1.07, 103.57, -279.95, 0.81)
pt3dadd(0.84, 105.26, -279.95, 0.81)
pt3dadd(0.4, 107.16, -279.95, 0.81)
pt3dadd(0, 108.89, -279.95, 0.81)
pt3dadd(0.33, 109.63, -279.95, 0.81)
pt3dadd(-0.77, 110.79, -279.95, 0.81)
pt3dadd(-0.4, 113.54, -278.73, 0.81)
pt3dadd(-0.01, 114.38, -278.67, 0.81)
pt3dadd(-0.39, 116.37, -278.67, 0.81)
pt3dadd(-0.27, 118.39, -277.56, 0.81)
pt3dadd(-0.69, 120.54, -277.51, 0.81)
pt3dadd(-0.8, 122.84, -276.78, 0.81)
pt3dadd(-1.03, 124.78, -276.78, 0.81)
pt3dadd(-1.58, 127.15, -276.39, 0.73)
pt3dadd(-1.71, 129.53, -276.39, 0.73)
pt3dadd(-1.76, 131.18, -276.39, 0.73)
pt3dadd(-2.06, 133.19, -277.67, 0.73)
pt3dadd(-1.99, 135.04, -277.67, 0.73)
pt3dadd(-2.26, 137.3, -277.67, 0.73)
pt3dadd(-2.84, 139.08, -277.67, 0.73)
pt3dadd(-2.78, 142.08, -276.56, 0.73)
pt3dadd(-1.2, 143.2, -276.56, 0.73)
pt3dadd(0.11, 144.75, -274.62, 0.73)
pt3dadd(0.05, 145.4, -274.62, 0.81)
pt3dadd(1.37, 146.54, -274.62, 0.81)
pt3dadd(2.04, 147.61, -274.62, 0.81)
pt3dadd(3.65, 148.98, -273.06, 0.73)
pt3dadd(3.58, 150.37, -273.11, 0.73)
pt3dadd(3.8, 152.67, -271.95, 0.73)
pt3dadd(4.38, 155.22, -271.95, 0.73)
pt3dadd(5.28, 156.75, -271.95, 0.73)
pt3dadd(5.83, 159.04, -271.95, 0.73)
pt3dadd(6.16, 161.61, -270.78, 0.73)
pt3dadd(7.5, 163.42, -269.28, 0.73)
pt3dadd(7.33, 165.21, -269.28, 0.73)
pt3dadd(9.24, 165.65, -270.34, 0.73)
pt3dadd(10.52, 166.61, -268.06, 0.73)
}
dend[79] {pt3dclear()
pt3dadd(5.28, 83.93, -297.51, 0.81)
pt3dadd(4.81, 84.95, -297.51, 0.81)
pt3dadd(4.62, 85.48, -297.51, 0.73)
pt3dadd(3.97, 86.18, -297.51, 0.73)
pt3dadd(3.93, 88.4, -297.51, 0.9)
}
}
proc shape3d_14() {
dend[79] { pt3dadd(2.93, 89.19, -297.51, 0.9)
pt3dadd(0.59, 90.44, -298.85, 0.81)
pt3dadd(0.38, 91.47, -298.85, 0.81)
pt3dadd(0.48, 92.57, -298.85, 0.81)
pt3dadd(-0.48, 93.61, -298.85, 0.81)
pt3dadd(-1.54, 96.7, -300.52, 0.81)
pt3dadd(-2.38, 98.34, -300.46, 0.81)
pt3dadd(-3.72, 99.22, -300.4, 0.81)
pt3dadd(-3.97, 100.82, -300.46, 0.73)
pt3dadd(-5.28, 102.29, -300.46, 0.73)
pt3dadd(-7.06, 103.66, -300.46, 0.73)
pt3dadd(-8.3, 105.22, -300.4, 0.73)
pt3dadd(-8.88, 106.83, -300.46, 0.73)
pt3dadd(-9.34, 108.23, -302.46, 0.73)
pt3dadd(-9.7, 109.56, -302.41, 0.73)
pt3dadd(-11.22, 111.7, -302.46, 0.73)
pt3dadd(-10.9, 113.34, -303.68, 0.65)
pt3dadd(-11.53, 115.2, -304.35, 0.65)
pt3dadd(-12.97, 117.3, -305.41, 0.65)
pt3dadd(-13.19, 119.57, -305.41, 0.65)
pt3dadd(-14.1, 120.37, -306.3, 0.65)
pt3dadd(-14.7, 121.24, -306.41, 0.65)
pt3dadd(-15.3, 122.93, -306.8, 0.65)
pt3dadd(-15.56, 124.2, -307.57, 0.65)
pt3dadd(-16.27, 124.8, -309.8, 0.65)
pt3dadd(-17.55, 127.76, -311.69, 0.49)
pt3dadd(-16.28, 130.11, -311.69, 0.73)
pt3dadd(-16.2, 133.1, -313.63, 0.65)
pt3dadd(-16.52, 135.13, -313.63, 0.65)
pt3dadd(-17.91, 136.26, -313.69, 0.65)
pt3dadd(-18.64, 139.01, -315.47, 0.65)
pt3dadd(-18.81, 140.23, -315.41, 0.65)
pt3dadd(-19.14, 141.93, -315.41, 0.49)
pt3dadd(-19.3, 143.87, -317.41, 0.49)
pt3dadd(-20.03, 144.76, -317.41, 0.49)
pt3dadd(-20.93, 146.63, -319.97, 0.41)
pt3dadd(-20.44, 147.84, -321.75, 0.41)
pt3dadd(-21.01, 149.7, -322.14, 0.41)
pt3dadd(-21.34, 151.49, -323.19, 0.41)
pt3dadd(-20.93, 153.92, -326.69, 0.41)
pt3dadd(-21.42, 155.7, -326.69, 0.57)
pt3dadd(-21.1, 158.61, -329.53, 0.57)
pt3dadd(-19.22, 161.21, -329.53, 0.57)
pt3dadd(-19.94, 167.5, -329.53, 0.57)
pt3dadd(-19.78, 170.18, -335.47, 0.57)
pt3dadd(-19.21, 171.23, -335.86, 0.57)
}
dend[80] {pt3dclear()
pt3dstyle(1, 44.1201, -23.7521, -344.707)
pt3dadd(43.26, -20.18, -332.65, 1.55)
pt3dadd(38.96, -15.4, -331.77, 1.55)
pt3dadd(38.12, -13.77, -332.71, 1.55)
pt3dadd(38.13, -12.28, -332.67, 1.55)
pt3dadd(36.83, -10.66, -334.59, 1.55)
pt3dadd(35.61, -9.44, -336.98, 1.55)
pt3dadd(34.96, -8.3, -338.03, 1.55)
pt3dadd(34.8, -7.57, -340.42, 1.55)
pt3dadd(34.64, -7, -342.09, 1.55)
pt3dadd(34.48, -6.11, -343.31, 1.55)
pt3dadd(33.75, -5.22, -344.37, 1.47)
pt3dadd(33.1, -4.16, -346.15, 1.47)
pt3dadd(32.86, -3.52, -348.37, 1.47)
pt3dadd(32.37, -2.95, -349.76, 1.47)
pt3dadd(32.21, -2.62, -352.48, 1.47)
pt3dadd(31.72, -1.73, -355.04, 1.47)
pt3dadd(31.16, -0.27, -356.43, 1.47)
pt3dadd(30.33, 0.58, -356.43, 1.06)
pt3dadd(29.72, 0.69, -358.04, 1.06)
pt3dadd(29.19, 1.14, -359.04, 1.06)
pt3dadd(28.37, 1.78, -361.32, 1.06)
pt3dadd(27.88, 2.63, -361.26, 1.06)
pt3dadd(27.8, 2.95, -362.82, 1.06)
pt3dadd(27.79, 3.03, -365.04, 1.06)
pt3dadd(27.89, 3.3, -366.21, 1.06)
pt3dadd(28.2, 3.38, -367.82, 1.06)
pt3dadd(28.27, 3.81, -368.93, 1.06)
pt3dadd(27.88, 4.05, -371.55, 1.06)
pt3dadd(27.52, 4.13, -372.55, 1.06)
pt3dadd(27.13, 4.37, -373.88, 1.06)
pt3dadd(26.76, 4.86, -374.71, 1.06)
pt3dadd(26.66, 5.26, -376.21, 1.06)
pt3dadd(26.49, 5.63, -377.38, 1.06)
pt3dadd(26.18, 6.22, -378.21, 1.06)
pt3dadd(26.19, 6.89, -379.6, 1.06)
pt3dadd(25.86, 7.9, -380.99, 1.06)
pt3dadd(26.22, 8.48, -382.16, 1.06)
pt3dadd(26.05, 9.19, -382.88, 1.06)
pt3dadd(25.73, 10.2, -385.27, 1.06)
pt3dadd(25.02, 10.69, -385.83, 1.06)
pt3dadd(25.32, 12.26, -387.27, 1.06)
pt3dadd(24.91, 13.25, -389.83, 1.06)
pt3dadd(26.1, 13.54, -391.66, 1.06)
pt3dadd(26.48, 14.38, -393.05, 1.06)
pt3dadd(25.26, 14.92, -394.67, 1.06)
pt3dadd(25.26, 14.92, -397.39, 1.06)
pt3dadd(25.41, 15.37, -398.72, 1.06)
pt3dadd(25.73, 15.78, -401.34, 1.06)
pt3dadd(25.58, 16.41, -403.39, 1.06)
pt3dadd(25.43, 17.37, -404.11, 1.06)
pt3dadd(25.26, 18.08, -405.73, 1.06)
pt3dadd(24.91, 18.83, -406.39, 1.06)
pt3dadd(24.38, 19.29, -408.28, 1.06)
pt3dadd(24.07, 19.54, -409.62, 1.06)
pt3dadd(23.9, 20.59, -411.56, 1.06)
pt3dadd(23.89, 21.33, -412.62, 1.06)
pt3dadd(23.78, 21.81, -415.62, 1.06)
pt3dadd(23.15, 22.32, -415.73, 1.06)
pt3dadd(23.05, 23.4, -415.73, 0.98)
pt3dadd(23.09, 24.14, -417.79, 0.98)
pt3dadd(22.63, 24.39, -421.18, 0.98)
pt3dadd(21.76, 24.65, -422.62, 0.98)
pt3dadd(21.21, 24.97, -424.96, 0.98)
pt3dadd(20.54, 25.02, -426.79, 0.98)
pt3dadd(20.33, 25.23, -429.46, 0.98)
pt3dadd(19.61, 25.6, -431.24, 0.98)
pt3dadd(18.64, 25.92, -433.63, 0.98)
pt3dadd(18.43, 26.21, -436.79, 0.98)
pt3dadd(17.51, 26.71, -438.41, 0.98)
pt3dadd(17.44, 27.11, -441.35, 0.98)
pt3dadd(17.05, 27.45, -445.08, 0.98)
pt3dadd(16.38, 27.99, -446.97, 0.98)
pt3dadd(15.79, 28.55, -448.97, 0.98)
pt3dadd(14.9, 29.38, -450.63, 0.98)
pt3dadd(14.72, 30.42, -453.41, 0.98)
pt3dadd(14.61, 31.06, -457.41, 0.98)
pt3dadd(14.52, 32.03, -459.19, 0.98)
pt3dadd(13.59, 33.1, -464.2, 0.98)
pt3dadd(13.28, 35.26, -467.36, 0.98)
pt3dadd(14.24, 36.41, -474.53, 0.98)
pt3dadd(14.03, 37.61, -480.54, 0.98)
pt3dadd(14.03, 37.61, -485.15, 0.98)
pt3dadd(15.02, 36.87, -485.15, 1.06)
pt3dadd(15.34, 37.05, -489.37, 0.9)
pt3dadd(15.5, 37.06, -491.26, 0.9)
pt3dadd(15.5, 37.06, -493.93, 0.9)
pt3dadd(15.5, 36.98, -496.6, 0.9)
pt3dadd(15.54, 36.33, -500.15, 0.9)
pt3dadd(15.23, 36.07, -504.88, 0.9)
pt3dadd(14.17, 35.93, -511.49, 0.9)
pt3dadd(13.17, 36.37, -515.66, 0.9)
pt3dadd(12.44, 36.33, -517, 0.9)
pt3dadd(11.87, 36.3, -518.77, 0.9)
pt3dadd(11.38, 36.19, -521.5, 0.9)
pt3dadd(10.98, 36.17, -522.94, 0.9)
pt3dadd(11.13, 34.88, -526.11, 0.81)
pt3dadd(11.16, 34.39, -534.78, 0.81)
pt3dadd(11.97, 32.82, -535.89, 0.81)
pt3dadd(12.67, 31.96, -535.89, 0.81)
pt3dadd(13.21, 31.1, -535.89, 0.81)
pt3dadd(13.25, 30.29, -539.45, 0.81)
pt3dadd(14, 28.63, -544.73, 0.81)
pt3dadd(14.58, 26.79, -545.56, 0.81)
pt3dadd(15.71, 25.19, -545.56, 1.14)
pt3dadd(16.03, 24.24, -550.06, 1.14)
pt3dadd(16.31, 23.78, -552.34, 1.14)
pt3dadd(16.69, 22.99, -553.68, 1.14)
pt3dadd(17.12, 22.78, -554.57, 1.14)
pt3dadd(17.67, 22.01, -556.9, 1.14)
pt3dadd(17.83, 22.02, -560.62, 1.14)
pt3dadd(17.98, 22.12, -562.35, 0.98)
pt3dadd(18.19, 21.56, -566.13, 0.98)
pt3dadd(18.21, 21.24, -569.52, 0.9)
pt3dadd(18.88, 20.07, -574.3, 0.9)
pt3dadd(19.2, 19.04, -577.58, 0.9)
pt3dadd(20.09, 18.05, -579.47, 0.9)
pt3dadd(20.58, 17.03, -580.91, 0.9)
pt3dadd(21.08, 16.83, -581.86, 0.9)
pt3dadd(22.31, 15.7, -582.8, 0.81)
pt3dadd(24.54, 15.47, -586.86, 0.81)
pt3dadd(25.11, 16.48, -588.25, 0.81)
pt3dadd(27.13, 16.8, -589.58, 0.81)
pt3dadd(27.94, 15.81, -590.25, 0.81)
pt3dadd(29.1, 14.51, -591.75, 0.41)
pt3dadd(29.24, 13.71, -596.92, 0.41)
pt3dadd(28.96, 13.12, -598.53, 0.41)
pt3dadd(28.94, 12.31, -602.59, 0.9)
pt3dadd(29.19, 12.33, -608.42, 0.9)
pt3dadd(29.15, 11.67, -610.81, 0.9)
pt3dadd(29.33, 12.81, -610.81, 0.57)
pt3dadd(29.86, 12.6, -615.93, 0.57)
pt3dadd(30.48, 11.98, -619.65, 0.57)
pt3dadd(31.09, 11.18, -622.93, 0.57)
pt3dadd(31.46, 11.34, -627.76, 0.57)
pt3dadd(32.04, 10, -631.65, 0.57)
pt3dadd(32.61, 9.28, -633.71, 0.57)
pt3dadd(32.19, 9.02, -635.1, 0.57)
pt3dadd(32.12, 8.98, -638.16, 0.57)
pt3dadd(32.37, 8.39, -640.99, 0.57)
pt3dadd(32.36, 7.59, -643.16, 0.57)
pt3dadd(32.68, 6.85, -645.27, 0.57)
pt3dadd(33.01, 5.05, -647.77, 0.57)
pt3dadd(33.13, 4.57, -649.77, 0.57)
}
dend[81] {pt3dclear()
pt3dstyle(1, 44.1201, -23.7521, -344.707)
pt3dadd(43.65, -24.62, -329.34, 1.96)
pt3dadd(42.76, -24.23, -326.1, 1.96)
pt3dadd(42.08, -23.88, -323.19, 1.96)
pt3dadd(41.67, -23.63, -319.47, 1.96)
pt3dadd(41.35, -22.98, -317.58, 1.96)
pt3dadd(41.35, -22.74, -314.41, 1.96)
pt3dadd(40.86, -22.41, -311.85, 1.96)
pt3dadd(40.86, -22.41, -310.96, 1.79)
pt3dadd(41.01, -23.81, -310.96, 1.79)
}
}
proc shape3d_15() {
dend[81] { pt3dadd(40.63, -23.56, -302.91, 1.79)
pt3dadd(40.46, -22.77, -299.85, 1.79)
pt3dadd(39.84, -22.15, -298.57, 1.79)
pt3dadd(39.32, -21.27, -296.4, 1.79)
pt3dadd(38.68, -20.98, -293.68, 1.79)
pt3dadd(37.89, -20.4, -291.18, 1.79)
pt3dadd(37.38, -19.93, -288.68, 1.79)
pt3dadd(37.1, -19.41, -286.06, 1.79)
pt3dadd(37.08, -18.09, -284.9, 1.79)
pt3dadd(37.33, -17.29, -281.9, 1.79)
pt3dadd(35.69, -15.81, -281.23, 1.55)
pt3dadd(34.52, -14.57, -276.62, 1.71)
}
dend[82] {pt3dclear()
pt3dadd(34.52, -14.57, -276.62, 1.47)
pt3dadd(33.75, -14.89, -273.11, 1.47)
pt3dadd(33, -14.47, -270.5, 1.47)
pt3dadd(32.22, -14.3, -268.39, 1.47)
pt3dadd(31.22, -13.52, -266.33, 1.47)
pt3dadd(30.9, -12.76, -263.67, 1.47)
pt3dadd(29.67, -12.85, -262.72, 1.47)
pt3dadd(28.88, -12.68, -259.66, 1.47)
pt3dadd(27.89, -11.89, -256.44, 1.55)
}
dend[83] {pt3dclear()
pt3dadd(27.89, -11.89, -256.44, 0.98)
pt3dadd(27.78, -12.99, -252.27, 0.98)
pt3dadd(27.84, -14.05, -250.44, 0.98)
pt3dadd(28.11, -14.99, -250.11, 0.98)
pt3dadd(28.78, -16.59, -250.11, 0.98)
pt3dadd(28.61, -17.78, -248.38, 0.98)
pt3dadd(28.75, -18.83, -247.88, 0.98)
pt3dadd(28.61, -18.88, -247.88, 1.14)
pt3dadd(27.87, -19.68, -247.94, 1.14)
pt3dadd(27.74, -20.85, -246.6, 1.06)
pt3dadd(27.64, -22.6, -246.6, 1.06)
pt3dadd(26.75, -23.66, -245.71, 1.14)
pt3dadd(25.93, -24.63, -245.71, 1.14)
pt3dadd(25.46, -25.7, -244.77, 0.98)
pt3dadd(24.37, -27.53, -243.94, 0.98)
pt3dadd(24.22, -28.55, -243.94, 0.98)
pt3dadd(23.68, -29.22, -243.94, 0.98)
pt3dadd(23.14, -30.38, -242.66, 0.98)
pt3dadd(22.78, -32.58, -242.32, 0.9)
pt3dadd(23.83, -34.29, -240.66, 0.9)
pt3dadd(25.14, -35.62, -239.49, 0.9)
pt3dadd(24.57, -36.13, -239.49, 0.9)
pt3dadd(24.25, -38.08, -239.49, 0.98)
pt3dadd(23.52, -38.62, -239.49, 0.9)
pt3dadd(23.6, -40.01, -239.49, 0.9)
pt3dadd(23.1, -41.41, -239.49, 0.9)
pt3dadd(22.36, -42.86, -239.49, 0.9)
pt3dadd(21.91, -44.01, -239.49, 0.9)
pt3dadd(22.66, -45.44, -237.38, 0.9)
pt3dadd(23.8, -48.19, -237.38, 0.9)
pt3dadd(24.78, -49.5, -236.71, 0.9)
pt3dadd(26.05, -51.09, -234.77, 0.9)
pt3dadd(26.67, -52.21, -232.49, 0.9)
pt3dadd(27.94, -53.8, -231.54, 0.9)
pt3dadd(28.9, -55.52, -229.26, 0.9)
pt3dadd(29.6, -57.12, -227.6, 0.9)
pt3dadd(30.1, -59.5, -225.48, 0.9)
pt3dadd(31.81, -61.17, -222.87, 0.9)
pt3dadd(33.88, -65.82, -213.31, 0.9)
pt3dadd(35, -72.12, -209.98, 0.81)
pt3dadd(35.95, -74.26, -206.53, 0.81)
pt3dadd(36.2, -76.1, -204.2, 0.81)
pt3dadd(36.25, -79.22, -202.59, 0.73)
pt3dadd(35.86, -81.67, -196.75, 0.73)
pt3dadd(36.41, -83.39, -195.58, 0.73)
pt3dadd(36.32, -85.21, -194.03, 0.81)
pt3dadd(36.67, -86.71, -191.64, 0.81)
pt3dadd(37.57, -88.53, -190.08, 0.81)
pt3dadd(38.1, -89.67, -186.86, 0.81)
pt3dadd(39.29, -90.77, -182.85, 0.81)
pt3dadd(38.93, -91.58, -182.85, 0.98)
pt3dadd(39.21, -92.01, -178.24, 0.98)
pt3dadd(40.14, -92.59, -176.96, 0.98)
pt3dadd(40.64, -93.46, -175.69, 0.98)
pt3dadd(41.13, -94.58, -174.85, 0.9)
pt3dadd(41.81, -95.48, -173.52, 0.9)
pt3dadd(42.17, -96.47, -171.91, 0.9)
pt3dadd(42.63, -98.11, -170.91, 0.9)
pt3dadd(42.96, -99.28, -169.96, 0.9)
pt3dadd(43.59, -100.28, -169.79, 0.81)
pt3dadd(43.7, -101.59, -168.79, 0.81)
pt3dadd(44.58, -102.61, -168.68, 0.81)
pt3dadd(44.79, -103.64, -166.29, 0.81)
pt3dadd(45.01, -104.42, -165.01, 0.81)
pt3dadd(45.51, -105.29, -164.51, 0.81)
pt3dadd(47.16, -106.93, -163.12, 0.81)
pt3dadd(47.41, -108.12, -161.68, 0.81)
pt3dadd(47.79, -108.86, -158.84, 0.81)
pt3dadd(48.78, -110.26, -157.84, 0.81)
pt3dadd(48.95, -112.06, -155.95, 0.81)
pt3dadd(49.04, -112.96, -154.51, 0.81)
pt3dadd(47.98, -114.61, -152.79, 0.81)
pt3dadd(47.98, -115.53, -150.56, 0.81)
}
dend[84] {pt3dclear()
pt3dadd(27.89, -11.89, -256.44, 0.98)
pt3dadd(28.32, -11.14, -248.27, 0.98)
pt3dadd(27.9, -11.15, -246.88, 0.98)
pt3dadd(27.47, -11.02, -246.88, 1.38)
pt3dadd(27.03, -10.85, -245.21, 1.38)
pt3dadd(26.85, -10.31, -243.32, 1.38)
pt3dadd(26.3, -9.99, -241.05, 1.38)
pt3dadd(25.89, -9.57, -240.16, 1.38)
pt3dadd(25.15, -9.13, -238.88, 1.38)
pt3dadd(25.1, -8.81, -235.99, 1.38)
pt3dadd(25.15, -7.24, -233.1, 1.38)
pt3dadd(24.82, -6.8, -230.1, 1.38)
pt3dadd(24.22, -6.66, -227.82, 1.38)
pt3dadd(23.96, -6.13, -226.6, 1.38)
pt3dadd(23.96, -6.13, -223.59, 1.38)
pt3dadd(23.7, -5.6, -222.82, 1.3)
pt3dadd(23.59, -4.96, -220.37, 1.3)
pt3dadd(22.85, -4.03, -218.81, 1.22)
pt3dadd(22.91, -3.44, -215.31, 1.38)
pt3dadd(22.51, -2.6, -212.65, 1.38)
pt3dadd(22.6, -2.18, -210.14, 1.38)
pt3dadd(22.6, -2.18, -205.75, 1.38)
pt3dadd(22.33, -0.66, -200.92, 1.14)
pt3dadd(22.28, 1.06, -198.92, 1.14)
pt3dadd(22.69, 2.45, -197.86, 1.14)
pt3dadd(22.35, 2.96, -194.75, 1.14)
pt3dadd(21.9, 4.11, -194.75, 1.14)
pt3dadd(21.11, 5.78, -193.03, 1.14)
pt3dadd(19.95, 6.73, -191.47, 1.14)
pt3dadd(19.18, 7.83, -190.19, 1.14)
pt3dadd(18.02, 8.77, -187.58, 1.14)
pt3dadd(16.82, 9.96, -185.52, 1.14)
pt3dadd(15.32, 10.93, -182.74, 1.14)
pt3dadd(15.23, 9.62, -182.74, 0.9)
pt3dadd(14.03, 9.96, -178.63, 1.06)
pt3dadd(13.39, 11.04, -175.63, 1.06)
pt3dadd(12.12, 11.35, -173.8, 1.06)
pt3dadd(11.53, 11.61, -170.46, 1.06)
pt3dadd(10.94, 12.2, -168.18, 1.06)
pt3dadd(10.59, 12.27, -165.46, 1.06)
pt3dadd(9.55, 13.82, -163.57, 1.06)
pt3dadd(8.03, 13.82, -162.35, 1.06)
pt3dadd(6.64, 14.85, -161.29, 1.06)
pt3dadd(5.48, 17.14, -160.35, 0.9)
pt3dadd(4.3, 17.73, -158.12, 0.9)
pt3dadd(2.81, 18.82, -157.12, 0.9)
pt3dadd(1.74, 19.61, -156.18, 0.73)
pt3dadd(1.06, 19.92, -152.95, 0.73)
pt3dadd(0.45, 20.85, -148.95, 0.73)
pt3dadd(-0.69, 23.39, -146.62, 0.73)
pt3dadd(-1.24, 24.15, -144.39, 0.73)
pt3dadd(-2.95, 25.1, -141.17, 0.73)
pt3dadd(-3.09, 26.49, -137.67, 0.98)
pt3dadd(-3.42, 27.07, -135.06, 0.98)
pt3dadd(-3.71, 27.5, -132.28, 0.98)
pt3dadd(-3.98, 28.43, -131.17, 0.98)
pt3dadd(-2.65, 28.22, -126.33, 0.98)
pt3dadd(-2.65, 28.22, -122.94, 0.98)
pt3dadd(-2.41, 28.29, -121, 0.98)
pt3dadd(-2.29, 29.19, -121, 1.22)
pt3dadd(-2.52, 30.09, -119.66, 1.22)
pt3dadd(-2.81, 30.95, -118.44, 1.22)
pt3dadd(-3.13, 31.51, -114.88, 1.22)
pt3dadd(-2.24, 32.1, -111.77, 1.22)
pt3dadd(-2.53, 32.77, -108.88, 1.22)
pt3dadd(-2.55, 33.14, -105.1, 1.22)
pt3dadd(-2.49, 35.03, -103.49, 0.98)
pt3dadd(-2.09, 35.99, -100.21, 0.98)
pt3dadd(-1.15, 36.98, -98.37, 0.98)
}
dend[85] {pt3dclear()
pt3dadd(-1.15, 36.98, -98.37, 1.06)
pt3dadd(-1.01, 38.55, -96.15, 1.06)
pt3dadd(-1.54, 39.18, -92.37, 1.06)
pt3dadd(-2.35, 41.61, -89.09, 1.06)
pt3dadd(-2.35, 41.61, -84.15, 1.14)
pt3dadd(-1.49, 41.9, -80.14, 1.14)
pt3dadd(-1.53, 42.16, -77.7, 1.14)
pt3dadd(-0.7, 42.16, -76.25, 1.14)
pt3dadd(-0.21, 41.79, -73.98, 1.14)
pt3dadd(0.66, 41.07, -73.14, 0.9)
pt3dadd(1.37, 40.81, -66.92, 0.9)
pt3dadd(1.72, 41.01, -63.42, 0.9)
pt3dadd(2.42, 40.94, -61.3, 0.9)
pt3dadd(4.05, 41.45, -61.3, 0.9)
pt3dadd(4.71, 41.96, -57.69, 0.9)
pt3dadd(4.28, 43.04, -56.63, 0.9)
pt3dadd(4.57, 43.34, -51.86, 0.9)
pt3dadd(5.12, 44, -48.63, 0.9)
pt3dadd(5.91, 44.22, -45.13, 0.9)
pt3dadd(7.09, 44.57, -41.8, 0.9)
pt3dadd(7.72, 44.76, -38.18, 0.9)
pt3dadd(8.65, 45.08, -36.85, 0.9)
pt3dadd(9.38, 45.2, -34.07, 0.9)
pt3dadd(9.65, 45.57, -33.46, 0.9)
}
dend[86] {pt3dclear()
pt3dadd(9.65, 45.57, -33.46, 0.73)
pt3dadd(9.64, 47.13, -30.35, 0.73)
pt3dadd(9.57, 49.01, -26.79, 0.73)
pt3dadd(9.56, 49.09, -23.79, 0.73)
pt3dadd(9.83, 49.95, -22.12, 0.73)
pt3dadd(10.35, 50.78, -20.79, 0.73)
pt3dadd(10.43, 51.29, -17.62, 0.73)
pt3dadd(11.06, 51.47, -15.01, 0.73)
pt3dadd(11.55, 51.55, -12.06, 0.73)
pt3dadd(11.8, 52.5, -8.06, 0.73)
pt3dadd(12.19, 52.64, -5.67, 0.73)
pt3dadd(12.63, 52.96, -3.22, 0.73)
pt3dadd(14.88, 52.54, -3.22, 0.73)
}
}
proc shape3d_16() {
dend[86] { pt3dadd(16, 52.33, -3, 0.73)
pt3dadd(16.83, 52.75, -2.22, 0.73)
pt3dadd(17.29, 52.99, -0.67, 0.73)
pt3dadd(17.91, 53.2, 1.5, 0.73)
}
dend[87] {pt3dclear()
pt3dadd(17.91, 53.2, 1.5, 0.57)
pt3dadd(18.98, 50.94, 11.39, 0.57)
pt3dadd(19.5, 49.77, 14.23, 0.57)
pt3dadd(20.1, 48.09, 15.84, 0.57)
pt3dadd(20.28, 47.73, 17.84, 0.57)
pt3dadd(20.58, 46.68, 18.73, 0.57)
pt3dadd(21.2, 45.16, 19.9, 0.57)
}
dend[88] {pt3dclear()
pt3dadd(17.91, 53.2, 1.5, 0.57)
pt3dadd(20.09, 52.46, 7.06, 0.57)
pt3dadd(22.01, 52.1, 9.89, 0.57)
pt3dadd(22.11, 51.75, 12.67, 0.57)
pt3dadd(23.98, 52.39, 14.34, 0.57)
pt3dadd(24.95, 52.7, 18.29, 0.57)
pt3dadd(26.55, 53.3, 21.06, 0.57)
pt3dadd(26.94, 54.05, 26.62, 0.57)
}
dend[89] {pt3dclear()
pt3dadd(26.94, 54.05, 26.62, 0.57)
pt3dadd(28.06, 56.48, 26.62, 0.57)
pt3dadd(30.75, 57.95, 27.73, 0.57)
pt3dadd(31.66, 59.26, 27.68, 0.57)
pt3dadd(31.82, 61.46, 27.68, 0.57)
pt3dadd(31.79, 61.71, 27.68, 0.65)
pt3dadd(31.84, 63.76, 27.73, 0.65)
pt3dadd(31.28, 65.19, 27.68, 0.65)
pt3dadd(31.16, 67.19, 27.01, 0.41)
pt3dadd(31.23, 69.73, 27.01, 0.41)
pt3dadd(29.82, 71.97, 25.73, 0.41)
pt3dadd(28.69, 73.42, 24.79, 0.41)
pt3dadd(27.21, 75.27, 24.68, 0.41)
pt3dadd(26.56, 76.63, 24.62, 0.41)
pt3dadd(26.6, 79.92, 25.84, 0.41)
pt3dadd(27.49, 82.88, 26.51, 0.41)
pt3dadd(27.83, 83.81, 29.57, 0.41)
}
dend[90] {pt3dclear()
pt3dadd(26.94, 54.05, 26.62, 0.57)
pt3dadd(28.2, 54.15, 26.62, 0.57)
pt3dadd(29.56, 53.89, 29.46, 0.57)
pt3dadd(30.26, 53.6, 33.18, 0.57)
pt3dadd(31.89, 53.04, 34.18, 0.57)
pt3dadd(32.37, 53.36, 36.68, 0.57)
pt3dadd(32.46, 53.84, 39.57, 0.57)
pt3dadd(33.73, 54.42, 43.07, 0.57)
pt3dadd(34.13, 54.35, 44.85, 0.57)
}
dend[91] {pt3dclear()
pt3dadd(9.65, 45.57, -33.46, 0.57)
pt3dadd(12.47, 44.97, -29.85, 0.57)
pt3dadd(15.2, 43.95, -28.73, 0.57)
pt3dadd(16.7, 43.38, -24.18, 0.57)
pt3dadd(17.74, 43.55, -21.34, 0.57)
pt3dadd(19.07, 43.03, -19.4, 0.57)
pt3dadd(20.61, 42.71, -17.4, 0.57)
pt3dadd(22.15, 43.38, -14.78, 0.57)
pt3dadd(23.22, 43.88, -14.73, 0.57)
pt3dadd(24.43, 43.59, -13.17, 0.57)
pt3dadd(25.92, 42.52, -11.17, 0.41)
pt3dadd(27.23, 42.08, -8.06, 0.41)
}
dend[92] {pt3dclear()
pt3dadd(-1.15, 36.98, -98.37, 0.49)
pt3dadd(0.97, 37.52, -95.15, 0.49)
pt3dadd(2.49, 38.65, -95.15, 0.49)
pt3dadd(3.54, 39.43, -92.37, 0.49)
pt3dadd(5.56, 41.5, -90.37, 0.49)
pt3dadd(5.36, 42.68, -89.15, 0.49)
pt3dadd(6.18, 44.72, -89.09, 0.49)
pt3dadd(6.5, 48.15, -85.76, 0.49)
pt3dadd(7.21, 50.04, -82.81, 0.49)
pt3dadd(7.96, 52.04, -82.81, 0.49)
pt3dadd(10.04, 52.83, -81.53, 0.49)
pt3dadd(13.51, 52.64, -79.64, 0.49)
pt3dadd(16.34, 52.93, -77.2, 0.49)
pt3dadd(19.24, 53.07, -74.14, 0.49)
pt3dadd(21.33, 52.02, -75.2, 0.33)
pt3dadd(22.33, 52.58, -75.2, 0.33)
pt3dadd(23.98, 52.95, -75.2, 0.33)
}
dend[93] {pt3dclear()
pt3dadd(34.52, -14.57, -276.62, 1.22)
pt3dadd(35.07, -13.63, -276.23, 1.22)
pt3dadd(35.73, -12.41, -273.78, 1.22)
pt3dadd(36.69, -12.22, -272.73, 1.22)
pt3dadd(37.39, -11.57, -271.84, 1.22)
pt3dadd(36.94, -11.01, -270.39, 1.22)
pt3dadd(36.49, -10.02, -269, 1.22)
pt3dadd(36.13, -9.11, -267.39, 1.22)
pt3dadd(36.52, -8.2, -267.17, 1.22)
pt3dadd(37.08, -7.67, -265.89, 1.22)
pt3dadd(37.09, -6.92, -265.5, 1.22)
pt3dadd(36.84, -5.73, -264.33, 1.22)
pt3dadd(36.73, -5.18, -262.05, 1.22)
pt3dadd(36.75, -3.68, -261.05, 1.22)
pt3dadd(36.88, -3.08, -259.16, 1.22)
pt3dadd(36.66, -2.05, -257.66, 1.22)
pt3dadd(37.01, -1.31, -256.16, 1.22)
pt3dadd(36.87, -0.27, -253.77, 1.22)
pt3dadd(36.79, 0.54, -252.27, 1.22)
pt3dadd(36.5, 1.56, -250.27, 1.22)
pt3dadd(36.17, 2.73, -248.88, 1.22)
pt3dadd(36.11, 2.86, -248.88, 1.47)
pt3dadd(35.75, 3.95, -247.05, 1.47)
pt3dadd(35.96, 4.64, -244.77, 1.47)
pt3dadd(36.03, 5.15, -242.82, 1.47)
pt3dadd(36.11, 6.15, -240.99, 1.47)
pt3dadd(35.89, 7.35, -239.66, 1.47)
pt3dadd(35.59, 8.61, -238.49, 1.47)
pt3dadd(35.42, 9.56, -236.32, 1.47)
pt3dadd(36.4, 10.56, -233.49, 1.47)
pt3dadd(35.57, 11.07, -231.49, 1.3)
pt3dadd(35.38, 12.11, -227.6, 1.38)
pt3dadd(34.94, 12.77, -225.21, 1.38)
pt3dadd(34.88, 13.58, -222.82, 1.38)
pt3dadd(35.29, 14.97, -221.2, 1.38)
pt3dadd(35.1, 16.09, -220.54, 1.38)
pt3dadd(33.67, 16.16, -219.2, 1.3)
pt3dadd(32.85, 17.09, -215.92, 1.55)
pt3dadd(31.88, 18.81, -213.37, 1.38)
pt3dadd(32.54, 20.24, -210.09, 1.38)
pt3dadd(32.58, 21.4, -205.92, 1.38)
pt3dadd(32.1, 23.21, -204.31, 1.38)
pt3dadd(31.94, 24.08, -201.86, 1.38)
pt3dadd(31.77, 26.01, -201.81, 1.38)
pt3dadd(30.98, 27.18, -198.97, 1.38)
pt3dadd(31.29, 28.23, -197.36, 1.38)
pt3dadd(30.83, 29.46, -195.86, 1.38)
pt3dadd(30.45, 30.22, -193.36, 1.38)
pt3dadd(30.36, 31.19, -190.86, 1.38)
pt3dadd(29.96, 32.51, -189.08, 1.38)
pt3dadd(30.18, 34.03, -187.91, 1.38)
pt3dadd(30.09, 33.1, -187.91, 1.3)
pt3dadd(29.73, 34.09, -185.02, 1.3)
pt3dadd(29.79, 34.78, -181.08, 1.3)
pt3dadd(29.66, 35.25, -179.02, 1.3)
pt3dadd(29.13, 36.2, -176.96, 1.55)
pt3dadd(28.53, 37.12, -173.13, 1.55)
pt3dadd(29.43, 38.13, -171.46, 1.55)
pt3dadd(29.21, 38.91, -169.9, 1.55)
pt3dadd(28.58, 39.66, -167.74, 1.55)
pt3dadd(27.6, 40.14, -167.07, 1.55)
pt3dadd(27.65, 41.16, -165.46, 1.55)
pt3dadd(27.49, 41.71, -162.07, 1.55)
pt3dadd(27.31, 43.84, -160.57, 1.38)
pt3dadd(27.11, 44.55, -158.57, 1.38)
pt3dadd(27.36, 45.46, -156.45, 1.38)
pt3dadd(27.33, 46.46, -153.95, 1.38)
pt3dadd(26.51, 46.98, -151.84, 1.38)
pt3dadd(25.77, 48.38, -150.84, 1.38)
pt3dadd(24.89, 49.39, -149.62, 1.38)
pt3dadd(24.75, 50.19, -147.45, 1.38)
pt3dadd(24.64, 51.69, -145.84, 1.38)
pt3dadd(24.75, 52.48, -141.89, 1.38)
pt3dadd(24.44, 52.39, -140.11, 1.38)
pt3dadd(24.33, 52.78, -138.28, 1.38)
pt3dadd(24.33, 52.78, -134.95, 1.38)
pt3dadd(24.31, 53.45, -133.83, 1.38)
pt3dadd(24.01, 54.21, -133.17, 1.38)
pt3dadd(23.59, 55.69, -130.94, 1.38)
pt3dadd(22.93, 55.92, -127.44, 1.38)
pt3dadd(24.34, 56.65, -127.44, 1.14)
pt3dadd(23.68, 58.33, -124.72, 1.14)
pt3dadd(23.44, 58.93, -123.11, 1.3)
pt3dadd(23.18, 59.72, -118.66, 1.3)
pt3dadd(22.34, 61.38, -115.77, 1.3)
pt3dadd(21.19, 62.6, -111.82, 1.3)
pt3dadd(20.69, 63.99, -111.6, 1.3)
}
dend[94] {pt3dclear()
pt3dadd(20.69, 63.99, -111.6, 1.3)
pt3dadd(21.62, 65.16, -109.77, 1.3)
pt3dadd(21.65, 66.11, -107.49, 1.22)
pt3dadd(21.18, 67.79, -104.6, 1.22)
pt3dadd(20.82, 68.42, -101.77, 1.22)
pt3dadd(20.49, 69.35, -98.87, 1.22)
pt3dadd(20.02, 70.02, -95.6, 1.22)
pt3dadd(19.6, 70.43, -92.65, 1.22)
pt3dadd(18.95, 71.92, -89.54, 1.22)
pt3dadd(18.98, 72.87, -87.81, 1.22)
pt3dadd(18.32, 74.54, -86.26, 1.22)
pt3dadd(17.89, 75.97, -83.31, 1.22)
pt3dadd(17.25, 77.28, -81.2, 1.22)
pt3dadd(16.7, 78.09, -80.59, 1.22)
pt3dadd(16.33, 79.09, -78.59, 1.22)
}
dend[95] {pt3dclear()
pt3dadd(16.33, 79.09, -78.59, 1.06)
pt3dadd(17.16, 79.93, -73.75, 1.06)
pt3dadd(17.66, 79.38, -69.2, 1.06)
pt3dadd(18.04, 79.03, -66.36, 1.06)
pt3dadd(18.74, 78.96, -63.19, 1.06)
pt3dadd(18.93, 78.79, -61.58, 1.06)
pt3dadd(19.69, 78.75, -61.58, 1.3)
pt3dadd(20.01, 78.81, -59.53, 1.3)
pt3dadd(20.56, 78.98, -58.3, 1.3)
pt3dadd(20.72, 79.01, -55.19, 1.3)
pt3dadd(20.8, 79.02, -51.97, 1.3)
pt3dadd(20.8, 79.02, -48.3, 1.3)
pt3dadd(21.71, 79.01, -46.63, 1.3)
pt3dadd(22.77, 79.1, -45.24, 1.3)
pt3dadd(22.98, 79.3, -43.3, 1.3)
pt3dadd(23.73, 79.75, -41.41, 1.3)
pt3dadd(24.22, 80.32, -39.24, 1.3)
pt3dadd(24.22, 80.82, -37.02, 1.3)
pt3dadd(23.92, 81.1, -33.9, 1.3)
pt3dadd(23.66, 81.22, -31.01, 1.3)
pt3dadd(23.48, 82.25, -28.57, 1.3)
pt3dadd(23.35, 83.05, -26.29, 1.3)
pt3dadd(22.98, 84.31, -24.45, 1.3)
pt3dadd(23.49, 84.72, -22.79, 1.3)
}
}
proc shape3d_17() {
dend[95] { pt3dadd(23.85, 85.02, -20.18, 1.3)
pt3dadd(24.11, 84.98, -16.9, 1.3)
}
dend[96] {pt3dclear()
pt3dadd(24.11, 84.98, -16.9, 1.06)
pt3dadd(25.19, 84.92, -12.39, 1.06)
pt3dadd(25.73, 85.66, -10.62, 1.06)
pt3dadd(26.1, 85.89, -7.5, 1.06)
pt3dadd(26.73, 86.08, -4.34, 1.06)
pt3dadd(26.91, 86.52, -1.67, 1.06)
pt3dadd(27.52, 86.78, 0.5, 1.06)
pt3dadd(29.07, 86.46, 0.5, 0.9)
pt3dadd(29.47, 86.38, 1.5, 0.9)
pt3dadd(30.49, 86.52, 1.72, 0.81)
pt3dadd(31.15, 86.48, 6.22, 0.81)
pt3dadd(31.9, 86.5, 7.5, 0.81)
pt3dadd(32.72, 86.43, 10.34, 0.81)
pt3dadd(34.62, 85.99, 11.73, 0.81)
pt3dadd(34.98, 85.67, 14.12, 0.81)
pt3dadd(36.35, 85.49, 15.06, 0.81)
pt3dadd(37.63, 84.35, 15.4, 0.81)
pt3dadd(38.43, 83.78, 16.62, 0.81)
pt3dadd(39.05, 83.5, 18.12, 0.81)
pt3dadd(39.49, 82.76, 19.06, 0.81)
pt3dadd(39.69, 82.06, 19.84, 0.81)
pt3dadd(39.85, 82.03, 21.23, 0.81)
pt3dadd(40.25, 81.96, 23.34, 0.81)
pt3dadd(41.2, 81.28, 24.34, 0.81)
pt3dadd(41.21, 81.78, 25.12, 0.81)
pt3dadd(41.32, 81.92, 26.62, 0.81)
pt3dadd(41.83, 81.99, 27.62, 0.81)
pt3dadd(42.42, 82.04, 28.68, 0.81)
pt3dadd(42.99, 82.02, 29.68, 0.81)
pt3dadd(43.45, 82.26, 31.12, 0.81)
pt3dadd(44.02, 83.06, 32.46, 0.81)
pt3dadd(45.11, 83.1, 33.07, 0.81)
pt3dadd(45.36, 83.14, 35.07, 0.65)
pt3dadd(45.32, 83.8, 35.9, 0.65)
pt3dadd(45.75, 84.3, 38.57, 0.65)
pt3dadd(46.39, 85.09, 38.96, 0.49)
}
dend[97] {pt3dclear()
pt3dadd(24.11, 84.98, -16.9, 0.73)
pt3dadd(23.77, 82.55, -14.51, 0.73)
pt3dadd(22.91, 81.26, -13.84, 0.73)
pt3dadd(22.56, 79.39, -13.12, 0.73)
pt3dadd(22.72, 77.37, -12.12, 0.73)
pt3dadd(22.68, 76.13, -10.89, 0.73)
pt3dadd(22.03, 73.56, -10.17, 0.73)
pt3dadd(21.58, 72.33, -10.17, 0.73)
pt3dadd(21.51, 70.76, -9.56, 0.73)
pt3dadd(21.15, 68.4, -8.28, 0.73)
pt3dadd(21.97, 67.97, -6.06, 0.73)
pt3dadd(23.33, 66.71, -5.22, 0.73)
pt3dadd(24.08, 66.67, -5.5, 0.41)
}
dend[98] {pt3dclear()
pt3dadd(24.08, 66.67, -5.5, 0.41)
pt3dadd(24.71, 65.87, -5.5, 0.41)
pt3dadd(25.18, 65.05, -5.5, 0.41)
pt3dadd(25.1, 64.54, -5.5, 0.41)
}
dend[99] {pt3dclear()
pt3dadd(24.08, 66.67, -5.5, 0.73)
pt3dadd(24.74, 67.19, -3.72, 0.73)
pt3dadd(24.64, 67.83, -0.89, 0.73)
pt3dadd(24.58, 68.15, 1.28, 0.73)
pt3dadd(24.46, 68.87, 1.78, 0.73)
pt3dadd(26.44, 68.98, 1.78, 0.73)
pt3dadd(27.16, 68.85, 4.17, 0.73)
pt3dadd(27.71, 69.98, 5.28, 0.73)
pt3dadd(28.44, 69.93, 5.84, 0.73)
pt3dadd(28.48, 69.26, 7.17, 0.73)
pt3dadd(29.04, 68.25, 7.95, 0.73)
pt3dadd(30.11, 66.89, 8.17, 0.73)
pt3dadd(30.62, 66.55, 10.12, 0.73)
pt3dadd(30.83, 65.44, 10.67, 0.73)
pt3dadd(31.73, 64.03, 10.67, 0.73)
pt3dadd(32.76, 63.34, 10.84, 0.73)
pt3dadd(33.66, 61.52, 12.51, 0.73)
pt3dadd(35.52, 60.43, 12.84, 0.73)
pt3dadd(35.95, 59.61, 12.84, 0.73)
pt3dadd(35.89, 57.56, 13.95, 0.73)
pt3dadd(36.71, 55.76, 14.73, 0.73)
pt3dadd(38.04, 54.43, 14.95, 0.73)
pt3dadd(39.12, 53.57, 15.78, 0.73)
pt3dadd(41.02, 52.22, 17.01, 0.73)
pt3dadd(41.96, 51.06, 17.73, 0.73)
pt3dadd(42.52, 50.05, 18.34, 0.73)
pt3dadd(42.66, 48.62, 18.45, 0.73)
pt3dadd(43.43, 46.99, 18.45, 0.57)
pt3dadd(44.05, 45.39, 19.34, 0.57)
pt3dadd(44.38, 44.5, 21.01, 0.57)
pt3dadd(44.7, 44.03, 22.23, 0.57)
}
dend[100] {pt3dclear()
pt3dadd(16.33, 79.09, -78.59, 0.9)
pt3dadd(16.09, 81, -76.75, 0.9)
pt3dadd(15.43, 82.02, -76.75, 0.9)
pt3dadd(14.61, 83.14, -76.75, 0.9)
pt3dadd(14.24, 84.98, -75.03, 0.9)
pt3dadd(13.64, 86.04, -75.03, 0.9)
pt3dadd(13.27, 87.87, -75.03, 0.9)
pt3dadd(12.86, 89.77, -73.64, 0.9)
pt3dadd(12, 90.96, -72.75, 0.9)
pt3dadd(10.88, 93.12, -72.2, 0.9)
pt3dadd(10.89, 94.61, -72.2, 0.9)
pt3dadd(10, 97.18, -70.31, 0.9)
pt3dadd(9.48, 98.28, -70.31, 0.9)
pt3dadd(9.4, 100.09, -70.25, 0.9)
pt3dadd(8.7, 101.84, -69.14, 0.73)
pt3dadd(8.67, 103.4, -67.31, 0.73)
pt3dadd(8.62, 104.3, -66.14, 0.73)
pt3dadd(8.18, 106.09, -65.31, 0.73)
pt3dadd(6.73, 106.68, -62.64, 0.73)
pt3dadd(6.75, 107.48, -62.64, 0.73)
pt3dadd(7.39, 108.37, -62.58, 0.81)
pt3dadd(7.47, 109.37, -60.86, 0.81)
pt3dadd(6.82, 109.83, -59.58, 0.81)
pt3dadd(5.71, 111.05, -58.02, 0.81)
pt3dadd(4.42, 112.31, -57.36, 0.81)
pt3dadd(3.03, 113.23, -55.97, 0.81)
pt3dadd(1.79, 114.26, -55.52, 0.81)
pt3dadd(1.68, 114.89, -55.52, 0.65)
pt3dadd(0.75, 116.55, -55.52, 0.65)
}
dend[101] {pt3dclear()
pt3dadd(0.75, 116.55, -55.52, 0.65)
pt3dadd(-0.23, 117.45, -55.19, 0.65)
pt3dadd(-1.63, 118.45, -55.58, 0.57)
pt3dadd(-2.87, 119.97, -55.63, 0.57)
pt3dadd(-3.53, 122.41, -57.86, 0.57)
pt3dadd(-4.11, 123.46, -58.02, 0.57)
pt3dadd(-5.47, 125.7, -58.08, 0.57)
pt3dadd(-7.13, 128.21, -60.14, 0.57)
pt3dadd(-8.29, 130.73, -60.53, 0.57)
pt3dadd(-9.58, 132.57, -60.53, 0.57)
pt3dadd(-10.36, 134.24, -60.53, 0.57)
pt3dadd(-11.53, 137.33, -60.53, 0.57)
pt3dadd(-13.29, 140.49, -60.53, 0.57)
pt3dadd(-13.09, 144.22, -60.53, 0.57)
pt3dadd(-12.98, 148.59, -61.41, 0.57)
pt3dadd(-12.82, 152.06, -60.25, 0.57)
pt3dadd(-11.67, 154.63, -59.02, 0.57)
pt3dadd(-11.6, 157.19, -58.8, 0.57)
pt3dadd(-11.03, 159.25, -58.75, 0.57)
pt3dadd(-10.76, 162.11, -58.75, 0.57)
pt3dadd(-12.18, 163.68, -58.75, 0.57)
pt3dadd(-14.09, 165.75, -60.58, 0.49)
pt3dadd(-14.59, 169.28, -60.58, 0.49)
pt3dadd(-15.06, 172.07, -60.58, 0.49)
pt3dadd(-14.54, 175.93, -63.86, 0.49)
pt3dadd(-14.48, 178.08, -66.47, 0.49)
pt3dadd(-15.27, 180.33, -65.69, 0.49)
}
dend[102] {pt3dclear()
pt3dadd(0.75, 116.55, -55.52, 0.73)
pt3dadd(0.36, 117.48, -49.13, 0.73)
pt3dadd(-0.03, 118.32, -47.63, 0.73)
pt3dadd(-0.63, 119.45, -45.91, 0.73)
pt3dadd(-1.15, 119.61, -44.07, 0.73)
pt3dadd(-1.57, 121.18, -41.63, 0.73)
pt3dadd(-1.26, 122.3, -40.29, 0.73)
pt3dadd(-1.57, 124.63, -39.41, 0.65)
pt3dadd(-1.26, 125.75, -37.9, 0.57)
pt3dadd(-1.28, 126.9, -34.85, 0.57)
pt3dadd(-1.63, 128.48, -34.79, 0.57)
pt3dadd(-1.01, 129.24, -33.07, 0.57)
pt3dadd(-0.45, 129.83, -31.74, 0.57)
pt3dadd(-0.08, 130.13, -29.57, 0.57)
pt3dadd(-0.83, 131.16, -28.23, 0.57)
pt3dadd(-0.44, 131.3, -24.45, 0.57)
pt3dadd(-0.11, 131.77, -21.95, 0.57)
pt3dadd(-0.19, 132.25, -18.95, 0.57)
pt3dadd(0.28, 132.9, -14.23, 0.57)
pt3dadd(0.28, 132.9, -12.17, 0.57)
pt3dadd(0.28, 132.9, -10.06, 0.57)
pt3dadd(0.78, 133.39, -8, 0.57)
pt3dadd(1.29, 134.3, -6.34, 0.57)
pt3dadd(1.79, 134.79, -4.22, 0.57)
pt3dadd(1.89, 135.14, -1.28, 0.57)
}
dend[103] {pt3dclear()
pt3dadd(20.69, 63.99, -111.6, 1.38)
pt3dadd(20.49, 65.18, -112.55, 1.38)
pt3dadd(20.7, 66.97, -112.55, 1.14)
pt3dadd(20.83, 69.08, -111.6, 0.9)
pt3dadd(19.95, 70.63, -111.6, 0.9)
pt3dadd(19.52, 72.24, -111.55, 0.9)
pt3dadd(18.12, 74.06, -111.6, 0.9)
pt3dadd(19, 76.32, -111.55, 0.9)
pt3dadd(18.25, 77.66, -111.55, 0.9)
pt3dadd(18.3, 79.73, -111.6, 0.9)
pt3dadd(17.35, 82.26, -110.94, 0.9)
pt3dadd(16.96, 84.46, -112.05, 0.9)
pt3dadd(16.31, 86.61, -112.05, 0.9)
pt3dadd(14.88, 87.66, -112.05, 0.9)
pt3dadd(14.59, 90.01, -112.05, 0.9)
pt3dadd(13.03, 92.29, -112.05, 0.9)
pt3dadd(12.21, 95.08, -110.77, 0.9)
pt3dadd(11.32, 96.34, -110.77, 0.9)
pt3dadd(11.22, 97.68, -111.38, 0.9)
pt3dadd(10.22, 99.63, -111.38, 0.9)
pt3dadd(9.18, 101.64, -111.38, 0.9)
pt3dadd(7.08, 103.9, -111.38, 0.9)
pt3dadd(6.35, 105.53, -111.38, 0.9)
pt3dadd(5.21, 106.56, -111.38, 0.9)
pt3dadd(5.32, 108.86, -111.38, 0.9)
pt3dadd(4.77, 113, -109.71, 0.81)
pt3dadd(4.54, 115.57, -109.71, 0.81)
pt3dadd(4.89, 118.27, -109.71, 0.81)
pt3dadd(4.4, 120.32, -109.71, 0.81)
pt3dadd(3.65, 121.66, -109.71, 0.81)
pt3dadd(2.51, 125.02, -109.71, 0.81)
pt3dadd(1.57, 127.43, -109.71, 0.81)
pt3dadd(0.27, 128.75, -109.66, 0.81)
}
}
proc shape3d_18() {
dend[103] { pt3dadd(0.27, 131.91, -108.27, 0.81)
pt3dadd(-0.26, 134.02, -108.27, 0.81)
pt3dadd(-2.25, 135.41, -109.43, 0.81)
pt3dadd(-3.77, 137.44, -109.49, 0.81)
pt3dadd(-3.86, 138.6, -109.49, 0.81)
pt3dadd(-4.81, 139.46, -109.49, 0.81)
pt3dadd(-4.14, 141.6, -109.32, 0.81)
pt3dadd(-4.62, 143.28, -110.55, 0.81)
pt3dadd(-5.29, 144.48, -110.55, 0.81)
pt3dadd(-5.52, 146.39, -110.55, 0.81)
pt3dadd(-5.87, 147.68, -110.82, 0.81)
pt3dadd(-6.9, 150.35, -112.21, 0.73)
pt3dadd(-7.68, 152.89, -113.05, 0.73)
pt3dadd(-8.38, 154.82, -114.55, 0.73)
pt3dadd(-9.06, 157.69, -115.6, 0.73)
pt3dadd(-10.31, 161.08, -115.66, 0.73)
pt3dadd(-10.75, 164.36, -115.66, 0.73)
pt3dadd(-10.84, 167.18, -115.66, 0.73)
pt3dadd(-10.86, 168.15, -116.49, 0.73)
pt3dadd(-10.66, 171.14, -115.6, 0.73)
pt3dadd(-10.67, 173.65, -113.94, 0.73)
pt3dadd(-10.08, 175.09, -112.71, 0.73)
pt3dadd(-9.23, 175.75, -110.99, 0.73)
pt3dadd(-8.31, 176.27, -109.32, 0.73)
pt3dadd(-7.04, 178, -108.88, 0.57)
pt3dadd(-6.82, 180.27, -105.77, 0.57)
pt3dadd(-6.97, 182.87, -105.77, 0.57)
pt3dadd(-6.63, 185.76, -105.77, 0.57)
pt3dadd(-7.01, 187.77, -106.1, 0.57)
pt3dadd(-7.62, 190.03, -104.77, 0.57)
pt3dadd(-7.07, 191.36, -103.77, 0.57)
pt3dadd(-6.59, 193.02, -101.88, 0.57)
pt3dadd(-6.32, 194.2, -99.6, 0.57)
pt3dadd(-6.37, 195.28, -98.99, 0.57)
}
}
proc basic_shape() {
shape3d_1()
shape3d_2()
shape3d_3()
shape3d_4()
shape3d_5()
shape3d_6()
shape3d_7()
shape3d_8()
shape3d_9()
shape3d_10()
shape3d_11()
shape3d_12()
shape3d_13()
shape3d_14()
shape3d_15()
shape3d_16()
shape3d_17()
shape3d_18()
}
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, 103 dend[i] all.append()
somatic = new SectionList()
soma somatic.append()
axonal = new SectionList()
axon axonal.append()
basal = new SectionList()
for i=0, 103 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("OLM_1831_optimized_syn_per_area_excit.dat")
f2 = new File()
f2.ropen("OLM_1831_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()