load_file("subiter.hoc")
load_file("stdrun.hoc")
proc celldef() {
topol()
subsets()
geom()
biophys()
geom_nseg()
}
create soma, axon[7], dend[76]
proc topol() { local i
connect axon(0), soma(0.5)
for i = 1, 2 connect axon[i](0), axon[i-1](1)
connect axon[3](0), axon[1](1)
for i = 4, 5 connect axon[i](0), axon[3](1)
connect axon[6](0), axon(1)
connect dend(0), soma(0.5)
for i = 1, 3 connect dend[i](0), dend[i-1](1)
connect dend[4](0), dend[2](1)
for i = 5, 6 connect dend[i](0), dend[4](1)
for i = 7, 8 connect dend[i](0), dend[6](1)
connect dend[9](0), dend[1](1)
for i = 10, 11 connect dend[i](0), dend[9](1)
connect dend[12](0), dend(1)
for i = 13, 15 connect dend[i](0), dend[i-1](1)
connect dend[16](0), dend[14](1)
connect dend[17](0), dend[13](1)
for i = 18, 19 connect dend[i](0), dend[17](1)
for i = 20, 21 connect dend[i](0), dend[19](1)
connect dend[22](0), dend[12](1)
for i = 23, 25 connect dend[i](0), dend[i-1](1)
connect dend[26](0), dend[24](1)
connect dend[27](0), dend[23](1)
connect dend[28](0), dend[22](1)
connect dend[29](0), soma(0.5)
for i = 30, 31 connect dend[i](0), dend[i-1](1)
connect dend[32](0), dend[30](1)
connect dend[33](0), dend[29](1)
for i = 34, 35 connect dend[i](0), dend[33](1)
connect dend[36](0), soma(0.5)
for i = 37, 40 connect dend[i](0), dend[i-1](1)
connect dend[41](0), dend[39](1)
connect dend[42](0), dend[38](1)
connect dend[43](0), dend[37](1)
for i = 44, 45 connect dend[i](0), dend[i-1](1)
connect dend[46](0), dend[44](1)
connect dend[47](0), dend[43](1)
connect dend[48](0), dend[36](1)
for i = 49, 50 connect dend[i](0), dend[48](1)
connect dend[51](0), soma(0.5)
for i = 52, 55 connect dend[i](0), dend[i-1](1)
connect dend[56](0), dend[54](1)
connect dend[57](0), dend[53](1)
connect dend[58](0), dend[52](1)
for i = 59, 60 connect dend[i](0), dend[i-1](1)
connect dend[61](0), dend[59](1)
connect dend[62](0), dend[58](1)
for i = 63, 64 connect dend[i](0), dend[62](1)
connect dend[65](0), dend[51](1)
for i = 66, 67 connect dend[i](0), dend[i-1](1)
connect dend[68](0), dend[66](1)
for i = 69, 70 connect dend[i](0), dend[68](1)
for i = 71, 72 connect dend[i](0), dend[70](1)
connect dend[73](0), dend[65](1)
for i = 74, 75 connect dend[i](0), dend[73](1)
basic_shape()
}
proc shape3d_1() {
soma {pt3dclear()
pt3dadd(-283.577, -1957.9, -426.54, 11.236)
pt3dadd(-283.987, -1959.15, -424.52, 10.7385)
pt3dadd(-283.992, -1959.88, -419.908, 12.8235)
pt3dadd(-284.841, -1959.74, -414.97, 12.614)
pt3dadd(-284.907, -1962.05, -412.63, 12.4601)
pt3dadd(-284.202, -1961.04, -408.86, 11.23)
pt3dadd(-285.267, -1961.68, -404.61, 13.7411)
pt3dadd(-285.827, -1961.13, -401.37, 13.7665)
pt3dadd(-285.975, -1962.39, -398.24, 12.8188)
pt3dadd(-286.113, -1962.39, -394.25, 12.2868)
pt3dadd(-286.333, -1961.82, -389.05, 10.9861)
}
axon {pt3dclear()
pt3dstyle(1, -284.325, -1961.11, -408.371)
pt3dadd(-283.7, -1955.55, -402.7, 1.19)
pt3dadd(-281.55, -1955.65, -402.65, 1.19)
pt3dadd(-279.33, -1955.88, -402.65, 1.19)
pt3dadd(-276.36, -1956.9, -402.65, 1.19)
pt3dadd(-273.4, -1958.26, -403.12, 1.04)
pt3dadd(-269.86, -1960.73, -400.73, 0.89)
pt3dadd(-265.03, -1963.92, -397.87, 0.89)
pt3dadd(-260.27, -1965.69, -394.84, 0.89)
pt3dadd(-256.49, -1967.41, -392.93, 0.89)
pt3dadd(-252.33, -1968.56, -390.86, 0.89)
pt3dadd(-248.6, -1967.63, -390.86, 0.89)
pt3dadd(-242.87, -1964.77, -389, 0.82)
pt3dadd(-235.73, -1962.17, -390.48, 0.82)
pt3dadd(-230.1, -1960.4, -391.39, 0.82)
pt3dadd(-224.25, -1958.37, -391.6, 0.82)
pt3dadd(-216.47, -1953.58, -393.56, 0.82)
pt3dadd(-213.16, -1948.96, -397.07, 0.82)
pt3dadd(-211.11, -1945.87, -399.09, 0.67)
pt3dadd(-208.99, -1942.59, -401.05, 0.67)
pt3dadd(-206.51, -1938.82, -402.43, 0.67)
}
axon[1] {pt3dclear()
pt3dadd(-206.51, -1938.82, -402.43, 0.67)
pt3dadd(-205.39, -1936.95, -402.38, 0.67)
pt3dadd(-203.36, -1934.76, -402.38, 0.67)
pt3dadd(-202.7, -1934.22, -403.39, 0.67)
}
axon[2] {pt3dclear()
pt3dadd(-202.7, -1934.22, -403.39, 0.59)
pt3dadd(-199.77, -1931.67, -404.66, 0.59)
pt3dadd(-196.49, -1928.43, -407, 0.59)
pt3dadd(-193.89, -1924.94, -408.27, 0.59)
pt3dadd(-191.09, -1921.35, -409.12, 0.59)
pt3dadd(-188.45, -1917.6, -410.4, 0.59)
pt3dadd(-185.89, -1914.93, -411.99, 0.59)
pt3dadd(-183, -1910.25, -412.89, 0.59)
pt3dadd(-182.52, -1910.05, -412.95, 0.59)
}
axon[3] {pt3dclear()
pt3dadd(-202.7, -1934.22, -403.39, 0.52)
pt3dadd(-202.11, -1932.99, -399.46, 0.52)
pt3dadd(-200.65, -1933.15, -393.99, 0.52)
pt3dadd(-200.58, -1932.39, -388.63, 0.52)
pt3dadd(-201.73, -1931.45, -384.91, 0.52)
pt3dadd(-203.16, -1930.63, -382.89, 0.52)
pt3dadd(-205.21, -1930.4, -378.22, 0.52)
}
axon[4] {pt3dclear()
pt3dadd(-205.21, -1930.4, -378.22, 0.52)
pt3dadd(-206.34, -1929.86, -380.08, 0.52)
pt3dadd(-210.48, -1928.78, -378.11, 0.52)
pt3dadd(-213.01, -1928.2, -378.11, 0.52)
pt3dadd(-216.5, -1926.93, -378.11, 0.52)
pt3dadd(-221.94, -1926.02, -376.62, 0.52)
pt3dadd(-226.06, -1923.89, -374.5, 0.52)
pt3dadd(-228.68, -1921.65, -374.29, 0.52)
pt3dadd(-230.76, -1919.34, -373.01, 0.52)
pt3dadd(-232.78, -1918.82, -371.37, 0.52)
pt3dadd(-237.03, -1915.29, -367.38, 0.52)
pt3dadd(-239.44, -1913.69, -367.38, 0.52)
pt3dadd(-243.45, -1913.45, -363.77, 0.52)
pt3dadd(-244.95, -1912.09, -362.87, 0.52)
pt3dadd(-246.48, -1910.11, -358.57, 0.52)
pt3dadd(-246.99, -1909.69, -358.41, 0.52)
}
axon[5] {pt3dclear()
pt3dadd(-205.21, -1930.4, -378.22, 0.52)
pt3dadd(-205.39, -1931.45, -378.59, 0.52)
pt3dadd(-207.17, -1931.84, -371.58, 0.52)
pt3dadd(-209.22, -1932.35, -368.82, 0.52)
pt3dadd(-210.62, -1932.32, -365.37, 0.52)
pt3dadd(-211.71, -1932.23, -360.96, 0.52)
pt3dadd(-212.62, -1932.39, -357.24, 0.52)
}
axon[6] {pt3dclear()
pt3dadd(-206.51, -1938.82, -402.43, 0.52)
pt3dadd(-207.72, -1937.58, -406.1, 0.52)
pt3dadd(-206.28, -1937.51, -408.97, 0.52)
pt3dadd(-204.58, -1938.05, -413.59, 0.52)
}
dend {pt3dclear()
pt3dstyle(1, -284.325, -1961.11, -408.371)
pt3dadd(-288.3, -1958.13, -389.16, 2.82)
pt3dadd(-288.59, -1957.13, -387.56, 2.82)
pt3dadd(-289.48, -1955.66, -384.91, 2.82)
pt3dadd(-290.2, -1954.77, -384.7, 2.6)
pt3dadd(-291, -1953.34, -379.97, 2.6)
pt3dadd(-291.86, -1951.95, -376.25, 2.6)
pt3dadd(-292.92, -1951.21, -371.26, 2.6)
}
dend[1] {pt3dclear()
pt3dadd(-292.92, -1951.21, -371.26, 2.08)
pt3dadd(-293.92, -1951.23, -364.3, 2.08)
pt3dadd(-294.7, -1951.5, -362.18, 2.08)
pt3dadd(-294.68, -1951.73, -358.94, 2.08)
pt3dadd(-295.18, -1951.15, -355.43, 2.08)
pt3dadd(-294.74, -1952.32, -352.41, 2.08)
pt3dadd(-295.02, -1952.61, -350.5, 2.01)
pt3dadd(-295.02, -1952.61, -348.8, 2.01)
pt3dadd(-294.82, -1952.54, -348.25, 1.86)
pt3dadd(-295.2, -1952.54, -347.52, 1.86)
pt3dadd(-295.2, -1952.75, -346.5, 1.86)
pt3dadd(-296.19, -1953.08, -343.7, 1.86)
pt3dadd(-296.61, -1952.82, -339.24, 1.86)
}
dend[2] {pt3dclear()
pt3dadd(-296.61, -1952.82, -339.24, 1.41)
pt3dadd(-297.63, -1953.42, -334.62, 1.41)
pt3dadd(-297.43, -1954.5, -330.79, 1.41)
pt3dadd(-297.74, -1955.29, -328.19, 1.41)
pt3dadd(-297.8, -1955.92, -324.95, 1.41)
pt3dadd(-297.57, -1957.33, -321.08, 1.41)
pt3dadd(-297.33, -1958.47, -316.67, 1.41)
pt3dadd(-297.22, -1959.1, -311.41, 1.41)
pt3dadd(-297.06, -1959.95, -307.22, 1.41)
pt3dadd(-295.95, -1960.66, -303.02, 1.41)
pt3dadd(-296.16, -1961.9, -298.45, 1.41)
pt3dadd(-296.33, -1962.94, -292.13, 1.41)
pt3dadd(-296.68, -1964.12, -290.86, 1.41)
pt3dadd(-296.92, -1964.98, -289.85, 1.41)
pt3dadd(-296.17, -1965.77, -285.76, 1.41)
pt3dadd(-295.64, -1966, -279.49, 1.41)
pt3dadd(-295.64, -1966, -274.98, 1.41)
pt3dadd(-295.18, -1966.1, -271.37, 1.41)
pt3dadd(-295.48, -1966.17, -265.69, 1.41)
pt3dadd(-296.14, -1965.83, -261.44, 1.41)
pt3dadd(-296.99, -1964.94, -257.08, 1.41)
pt3dadd(-296.99, -1964.44, -252.94, 1.41)
pt3dadd(-296.91, -1963.42, -247.52, 1.41)
pt3dadd(-297.07, -1962.75, -243.49, 1.41)
pt3dadd(-297.37, -1961.99, -238.87, 1.41)
pt3dadd(-297.63, -1961.46, -234.2, 1.41)
pt3dadd(-297.96, -1961.13, -233.72, 1.41)
pt3dadd(-298.54, -1961.05, -233.19, 1.34)
pt3dadd(-299.23, -1961.34, -227.93, 1.34)
pt3dadd(-299.84, -1961.15, -222.25, 1.34)
pt3dadd(-300.77, -1960.68, -218.58, 1.34)
pt3dadd(-302.45, -1959.82, -209.24, 1.34)
pt3dadd(-305.11, -1957.65, -203.55, 1.34)
pt3dadd(-306.18, -1956.76, -203.5, 1.34)
pt3dadd(-307.48, -1955.39, -199.78, 1.34)
}
dend[3] {pt3dclear()
pt3dadd(-307.48, -1955.39, -199.78, 0.74)
pt3dadd(-308.78, -1954.03, -199.78, 0.74)
pt3dadd(-310.35, -1952.05, -198.3, 0.74)
pt3dadd(-311.79, -1950.26, -195.16, 0.74)
pt3dadd(-314.83, -1948.6, -195.16, 0.74)
pt3dadd(-316.06, -1947.92, -195.16, 0.74)
pt3dadd(-318.17, -1947.2, -193.09, 0.74)
pt3dadd(-320.57, -1945.1, -191.39, 0.74)
pt3dadd(-322.36, -1943.9, -189.69, 0.74)
pt3dadd(-325.65, -1942.16, -188.37, 0.74)
pt3dadd(-328.34, -1940.86, -186.98, 0.74)
pt3dadd(-329.34, -1939.94, -186.08, 0.74)
pt3dadd(-331.12, -1939.74, -184.17, 0.74)
pt3dadd(-334.01, -1939.51, -181.25, 0.74)
pt3dadd(-336.58, -1938.09, -180.98, 0.74)
pt3dadd(-337.41, -1937.24, -180.98, 0.74)
pt3dadd(-337.88, -1936.64, -177, 0.74)
pt3dadd(-338.35, -1935.96, -175.09, 0.74)
pt3dadd(-338.62, -1934.13, -170.63, 0.74)
pt3dadd(-339.03, -1933.37, -169.41, 0.74)
pt3dadd(-339.38, -1931.48, -166.54, 0.59)
pt3dadd(-339.81, -1930.05, -162.24, 0.59)
pt3dadd(-340.89, -1928.86, -159.42, 0.59)
pt3dadd(-341.92, -1927.97, -159.21, 0.52)
pt3dadd(-342.51, -1925.44, -154.91, 0.52)
pt3dadd(-344.58, -1922.61, -151.56, 0.52)
pt3dadd(-346, -1920.78, -147.95, 0.52)
pt3dadd(-347.78, -1918.35, -145.88, 0.52)
pt3dadd(-349.08, -1915.63, -143.44, 0.52)
pt3dadd(-351.23, -1913.77, -141.1, 0.52)
pt3dadd(-353.14, -1909.42, -138.61, 0.52)
pt3dadd(-355.37, -1906.99, -136.16, 0.52)
pt3dadd(-357.31, -1903.99, -135.53, 0.52)
pt3dadd(-361.4, -1900.18, -135.84, 0.52)
pt3dadd(-361.42, -1898.01, -129.42, 0.52)
pt3dadd(-362.16, -1896.55, -127.51, 0.52)
pt3dadd(-362.46, -1893.99, -124.64, 0.52)
pt3dadd(-362.09, -1892.89, -121.77, 0.52)
}
dend[4] {pt3dclear()
pt3dadd(-307.48, -1955.39, -199.78, 1.26)
pt3dadd(-307.78, -1954.95, -194.1, 1.26)
pt3dadd(-307.52, -1954.78, -184.81, 1.26)
pt3dadd(-308.32, -1955.43, -181.09, 1.26)
pt3dadd(-308.32, -1955.43, -179.18, 1.11)
pt3dadd(-307.2, -1956.58, -175.25, 1.04)
pt3dadd(-306.44, -1957.14, -171.53, 1.04)
pt3dadd(-306.04, -1956.78, -167.28, 1.04)
pt3dadd(-305.41, -1955.55, -162.24, 1.04)
pt3dadd(-304.89, -1955.02, -157.94, 1.04)
pt3dadd(-304.06, -1955.04, -153.05, 1.04)
pt3dadd(-303.44, -1955.17, -149.44, 1.04)
pt3dadd(-302.27, -1954.46, -144.5, 1.04)
pt3dadd(-301.34, -1954.17, -141.58, 1.04)
pt3dadd(-300.16, -1953.98, -138.13, 1.04)
pt3dadd(-298.51, -1953.95, -134.89, 1.04)
pt3dadd(-297.35, -1954.14, -131.44, 1.04)
pt3dadd(-296.1, -1954.47, -128.52, 1.04)
pt3dadd(-295.4, -1952.71, -122.3, 1.04)
pt3dadd(-295.35, -1952.03, -118.64, 1.04)
pt3dadd(-296.55, -1951.99, -116.99, 1.04)
pt3dadd(-295.97, -1951.31, -112.85, 1.04)
pt3dadd(-295.83, -1949.69, -107.96, 1.04)
pt3dadd(-296.12, -1948.2, -104.56, 1.04)
pt3dadd(-295.48, -1946.76, -100.53, 1.04)
}
dend[5] {pt3dclear()
pt3dadd(-295.48, -1946.76, -100.53, 0.74)
pt3dadd(-295.73, -1944.83, -97.18, 0.74)
pt3dadd(-296.04, -1941.88, -93.36, 0.74)
}
}
proc shape3d_2() {
dend[5] { pt3dadd(-297.98, -1938.46, -89.38, 0.74)
pt3dadd(-299.2, -1937.08, -89.32, 0.59)
pt3dadd(-300.51, -1935.02, -87.68, 0.74)
pt3dadd(-302.33, -1933.26, -82.37, 0.74)
pt3dadd(-302.84, -1931.29, -79.45, 0.74)
pt3dadd(-303.16, -1928.67, -75.89, 0.74)
pt3dadd(-304.62, -1927.15, -75.89, 0.74)
pt3dadd(-305.16, -1925.12, -71.43, 0.74)
pt3dadd(-305.99, -1922.82, -68.82, 0.74)
pt3dadd(-308.04, -1918.97, -63.94, 0.74)
pt3dadd(-308.14, -1918.37, -63.94, 0.52)
pt3dadd(-306.29, -1917.58, -62.98, 0.52)
pt3dadd(-305.65, -1916.26, -55.6, 0.52)
pt3dadd(-305.7, -1915.42, -52.2, 0.52)
pt3dadd(-306.25, -1914.28, -48.38, 0.52)
pt3dadd(-306.85, -1912.53, -43.44, 0.52)
pt3dadd(-307.36, -1910.83, -41.1, 0.45)
pt3dadd(-309.14, -1908.87, -35.79, 0.45)
pt3dadd(-309.81, -1907.85, -30.32, 0.45)
pt3dadd(-310.26, -1906.99, -27.83, 0.45)
pt3dadd(-311.07, -1906.25, -24, 0.45)
pt3dadd(-312.07, -1904.95, -20.82, 0.45)
pt3dadd(-316.02, -1903.51, -20.71, 0.45)
pt3dadd(-316.98, -1901.18, -15.19, 0.45)
pt3dadd(-317, -1900.01, -12.43, 0.37)
pt3dadd(-317.98, -1897.15, -9.29, 0.37)
pt3dadd(-317.57, -1893.33, -9.29, 0.37)
}
dend[6] {pt3dclear()
pt3dadd(-295.48, -1946.76, -100.53, 0.67)
pt3dadd(-292.84, -1949.62, -96.33, 0.67)
pt3dadd(-292.27, -1950.49, -91.93, 0.67)
pt3dadd(-291.96, -1951.33, -89.7, 0.67)
pt3dadd(-289.98, -1954.32, -87.36, 0.67)
pt3dadd(-289.46, -1955.79, -84.7, 0.67)
pt3dadd(-288.75, -1956.43, -81.52, 0.67)
pt3dadd(-286.55, -1957.61, -79.34, 0.67)
pt3dadd(-284.11, -1958.26, -75.36, 0.67)
pt3dadd(-282.34, -1957.67, -71.96, 0.59)
pt3dadd(-280.92, -1958.23, -68.61, 0.59)
pt3dadd(-279.32, -1957.8, -66.49, 0.59)
pt3dadd(-276.26, -1958.01, -58.42, 0.52)
pt3dadd(-272.7, -1957.41, -58.42, 0.52)
pt3dadd(-269.61, -1956.1, -55.28, 0.52)
pt3dadd(-268.11, -1955.67, -53.96, 0.52)
pt3dadd(-267.48, -1955.45, -51.3, 0.52)
pt3dadd(-268.03, -1956.11, -48.38, 0.52)
pt3dadd(-268.39, -1955.53, -41.9, 0.52)
pt3dadd(-267.64, -1955.19, -38.66, 0.52)
pt3dadd(-268.33, -1954.8, -36.22, 0.52)
pt3dadd(-270.13, -1952.53, -34.57, 0.52)
pt3dadd(-270.89, -1951.94, -29.47, 0.52)
pt3dadd(-270.58, -1953.08, -25.54, 0.52)
pt3dadd(-268.45, -1953.99, -23.37, 0.52)
pt3dadd(-267.36, -1955.33, -22.04, 0.52)
pt3dadd(-266.25, -1955.81, -19.28, 0.52)
pt3dadd(-265.08, -1955.79, -17.47, 0.52)
pt3dadd(-264.08, -1954.82, -14.02, 0.52)
pt3dadd(-264.59, -1954.69, -9.93, 0.52)
pt3dadd(-265.81, -1955.26, -8.07, 0.52)
pt3dadd(-267.64, -1956.13, -6.16, 0.52)
}
dend[7] {pt3dclear()
pt3dadd(-267.64, -1956.13, -6.16, 0.37)
pt3dadd(-269.29, -1954.51, -6.05, 0.37)
pt3dadd(-271.24, -1952.52, -2.5, 0.37)
pt3dadd(-272.6, -1950.41, -2.44, 0.37)
}
dend[8] {pt3dclear()
pt3dadd(-267.64, -1956.13, -6.16, 0.37)
pt3dadd(-268.2, -1958.36, -6.11, 0.37)
pt3dadd(-270.17, -1961.54, -6.11, 0.37)
pt3dadd(-272.26, -1964.13, -4.62, 0.37)
}
dend[9] {pt3dclear()
pt3dadd(-296.61, -1952.82, -339.24, 1.64)
pt3dadd(-297.48, -1952.81, -337.33, 1.64)
pt3dadd(-297.9, -1951.52, -332.76, 1.64)
pt3dadd(-298.47, -1949.96, -331.06, 1.56)
pt3dadd(-299.1, -1948.45, -328.24, 1.56)
pt3dadd(-299.68, -1947.76, -327.87, 1.41)
pt3dadd(-300.26, -1946.05, -326.12, 1.41)
pt3dadd(-300.34, -1944.89, -320.28, 1.41)
pt3dadd(-300.84, -1943.9, -314.76, 1.41)
pt3dadd(-300.99, -1943.05, -308.44, 1.41)
pt3dadd(-299.67, -1942.52, -303.82, 1.41)
pt3dadd(-298.13, -1943.08, -297.34, 1.41)
pt3dadd(-297.1, -1943.5, -293.62, 1.41)
pt3dadd(-297.38, -1943.8, -292.66, 1.04)
pt3dadd(-297.95, -1944.32, -289.27, 1.04)
pt3dadd(-299.11, -1944.98, -285.6, 1.04)
pt3dadd(-301.66, -1944.34, -285.12, 0.89)
pt3dadd(-302.35, -1943.28, -281.03, 0.89)
pt3dadd(-302.51, -1941.79, -278.7, 0.89)
pt3dadd(-302.03, -1941.07, -275.03, 0.89)
pt3dadd(-301.93, -1940.77, -271.05, 0.89)
pt3dadd(-301.47, -1940.54, -267.28, 0.89)
pt3dadd(-300.93, -1940.44, -263.3, 0.89)
pt3dadd(-300.51, -1940.97, -259.21, 0.89)
pt3dadd(-299.88, -1941.57, -255.38, 0.89)
pt3dadd(-299.78, -1941.77, -251.19, 0.89)
pt3dadd(-299.52, -1942.14, -246.57, 0.89)
pt3dadd(-299.38, -1941.41, -240.89, 0.89)
pt3dadd(-299.41, -1940.68, -236.74, 0.89)
pt3dadd(-299.44, -1940.04, -236.19, 0.89)
pt3dadd(-299.06, -1939.33, -235.26, 1.11)
pt3dadd(-299.5, -1938.65, -230.27, 1.11)
pt3dadd(-300.21, -1938.65, -225.33, 1.11)
pt3dadd(-301.05, -1938.22, -219.96, 1.11)
pt3dadd(-302.71, -1937.67, -218.42, 1.11)
pt3dadd(-303.6, -1937.57, -215.66, 1.11)
pt3dadd(-304.59, -1937.42, -213.32, 1.11)
pt3dadd(-306.05, -1937.74, -211.47, 1.11)
pt3dadd(-306.49, -1937.11, -209.24, 1.11)
pt3dadd(-306.55, -1936.43, -206.85, 1.11)
pt3dadd(-307.2, -1936.33, -202.92, 1.11)
pt3dadd(-306.7, -1935.47, -198.93, 1.11)
pt3dadd(-307.17, -1935.23, -195, 1.11)
pt3dadd(-307.92, -1935.09, -192.03, 1.11)
pt3dadd(-308.4, -1934.08, -188.52, 1.11)
pt3dadd(-308.6, -1933.21, -184.81, 1.11)
pt3dadd(-308.67, -1932.77, -182.26, 1.11)
pt3dadd(-309.01, -1931.71, -178.91, 1.11)
pt3dadd(-309.1, -1930.95, -178.91, 1.11)
pt3dadd(-309.27, -1930.31, -174.45, 1.11)
pt3dadd(-309.5, -1929.22, -171.27, 1.11)
pt3dadd(-309.7, -1928.35, -169.78, 1.11)
pt3dadd(-309.79, -1927.77, -166.8, 1.11)
pt3dadd(-309.49, -1926.76, -161.81, 1.11)
pt3dadd(-307.78, -1925.61, -159.9, 1.11)
pt3dadd(-306.93, -1924.91, -158.79, 1.11)
pt3dadd(-305.57, -1924.41, -154.7, 1.11)
pt3dadd(-304.48, -1924.18, -147.16, 1.11)
pt3dadd(-303.92, -1923.87, -145.51, 1.11)
pt3dadd(-303.08, -1922.48, -142.43, 1.11)
pt3dadd(-301.9, -1921.79, -138.07, 1.11)
}
dend[10] {pt3dclear()
pt3dadd(-301.9, -1921.79, -138.07, 1.11)
pt3dadd(-300.57, -1921.67, -134.41, 1.11)
pt3dadd(-299.29, -1921.63, -130.75, 1.04)
pt3dadd(-298.14, -1922.36, -127.08, 0.82)
pt3dadd(-296.35, -1923.29, -124.9, 0.82)
pt3dadd(-295.32, -1923.14, -123.52, 0.74)
pt3dadd(-294.54, -1922.8, -120.71, 0.74)
pt3dadd(-294.11, -1921.41, -120.71, 0.67)
pt3dadd(-292.26, -1920.63, -116.04, 0.67)
pt3dadd(-290.16, -1920.05, -107.54, 0.67)
pt3dadd(-288.6, -1920.22, -107.38, 0.59)
pt3dadd(-286.7, -1920.06, -103.13, 0.59)
pt3dadd(-284.81, -1920.07, -102.28, 0.52)
pt3dadd(-283.79, -1920.33, -97.61, 0.52)
pt3dadd(-282.44, -1919.53, -97.02, 0.52)
pt3dadd(-279.51, -1918.07, -93.47, 0.52)
pt3dadd(-276.96, -1918.26, -88.79, 0.37)
pt3dadd(-275.52, -1918, -84.28, 0.37)
}
dend[11] {pt3dclear()
pt3dadd(-301.9, -1921.79, -138.07, 0.59)
pt3dadd(-302.84, -1921.03, -135.47, 0.59)
pt3dadd(-304.22, -1919.29, -133.67, 0.59)
pt3dadd(-304.61, -1918.15, -133.35, 0.59)
pt3dadd(-305.69, -1916.44, -128.89, 0.59)
pt3dadd(-305.95, -1914.61, -124.43, 0.59)
pt3dadd(-305.9, -1913.93, -121.72, 0.59)
pt3dadd(-305.74, -1913.54, -119.33, 0.59)
pt3dadd(-305.69, -1911.26, -119.33, 0.52)
pt3dadd(-305.75, -1909.73, -113.43, 0.52)
pt3dadd(-306.54, -1908.39, -109.5, 0.52)
pt3dadd(-308.07, -1907.07, -109.03, 0.37)
pt3dadd(-308.37, -1904.84, -103.87, 0.37)
pt3dadd(-306.77, -1903.36, -101.86, 0.37)
pt3dadd(-304.29, -1902.69, -98.94, 0.37)
pt3dadd(-302.89, -1901.3, -96.12, 0.37)
pt3dadd(-303.57, -1900.55, -90.86, 0.37)
pt3dadd(-303.41, -1899.66, -83.59, 0.37)
pt3dadd(-301.76, -1898.81, -76.52, 0.37)
}
dend[12] {pt3dclear()
pt3dadd(-292.92, -1951.21, -371.26, 2.23)
pt3dadd(-294.23, -1950.09, -367.91, 2.23)
pt3dadd(-295.12, -1948.63, -367.86, 1.93)
pt3dadd(-296.42, -1946.62, -367.49, 1.78)
pt3dadd(-298.1, -1945.75, -365.74, 1.78)
pt3dadd(-299.26, -1944.97, -365.68, 1.78)
pt3dadd(-301.1, -1943.67, -366.37, 1.64)
pt3dadd(-303.19, -1942.98, -364.2, 1.64)
pt3dadd(-305.8, -1942.03, -362.29, 1.64)
pt3dadd(-307.07, -1940.82, -358.83, 1.64)
}
dend[13] {pt3dclear()
pt3dadd(-307.07, -1940.82, -358.83, 1.56)
pt3dadd(-307.67, -1938.74, -358.83, 1.56)
pt3dadd(-309.19, -1936.42, -357.08, 1.49)
pt3dadd(-310.45, -1933.75, -355.65, 1.49)
pt3dadd(-311.46, -1931.85, -354.69, 1.41)
pt3dadd(-312.79, -1929.94, -351.88, 1.41)
pt3dadd(-314.28, -1926.4, -351.88, 1.41)
pt3dadd(-316.21, -1922.97, -351.03, 1.41)
pt3dadd(-317.93, -1920.01, -351.03, 1.41)
pt3dadd(-318.92, -1917.95, -351.03, 1.41)
pt3dadd(-319.12, -1918.06, -351.03, 1.41)
pt3dadd(-321.21, -1915.09, -347.04, 1.41)
pt3dadd(-323.26, -1911.92, -346.25, 1.41)
pt3dadd(-323.57, -1911.68, -344.76, 1.41)
}
dend[14] {pt3dclear()
pt3dadd(-323.57, -1911.68, -344.76, 1.11)
pt3dadd(-323.82, -1910.3, -345.13, 1.11)
pt3dadd(-322.79, -1910.92, -345.13, 1.04)
pt3dadd(-324.25, -1909.46, -347.31, 1.04)
pt3dadd(-326.1, -1907.29, -348.11, 0.97)
pt3dadd(-327.71, -1904.21, -350.76, 0.97)
pt3dadd(-328.59, -1903.71, -350.76, 0.97)
pt3dadd(-330.61, -1901.82, -352.3, 0.97)
pt3dadd(-332, -1900.5, -351.29, 0.89)
pt3dadd(-334.19, -1898.32, -354.05, 0.89)
pt3dadd(-336.08, -1896.81, -354.85, 0.82)
}
}
proc shape3d_3() {
dend[14] { pt3dadd(-337.95, -1896.26, -354, 0.82)
pt3dadd(-340.16, -1894.58, -356.13, 0.82)
pt3dadd(-341.57, -1892.86, -356.13, 0.82)
pt3dadd(-343.19, -1891.23, -358.62, 0.82)
pt3dadd(-345.7, -1888.31, -358.57, 0.82)
pt3dadd(-348.06, -1884.82, -360, 0.82)
pt3dadd(-349.9, -1882.33, -360, 0.82)
pt3dadd(-352.88, -1880.01, -360.48, 0.82)
pt3dadd(-354.7, -1877.91, -360.53, 0.82)
pt3dadd(-357.28, -1875.58, -363.29, 0.82)
pt3dadd(-359.09, -1873.88, -363.24, 0.82)
pt3dadd(-361.79, -1871.33, -364.78, 0.82)
pt3dadd(-363.7, -1867.57, -365.1, 0.82)
pt3dadd(-366.09, -1864.18, -367.44, 0.67)
pt3dadd(-368.04, -1861.81, -369.88, 0.67)
pt3dadd(-369.15, -1858.02, -369.88, 0.67)
pt3dadd(-370.37, -1854.53, -372.06, 0.67)
pt3dadd(-370.64, -1853.92, -372.16, 0.67)
}
dend[15] {pt3dclear()
pt3dadd(-370.64, -1853.92, -372.16, 0.59)
pt3dadd(-370.58, -1851.69, -372.11, 0.59)
pt3dadd(-372.24, -1849.59, -372.91, 0.59)
pt3dadd(-373.73, -1847.51, -374.45, 0.59)
pt3dadd(-375.15, -1843.77, -376.09, 0.59)
pt3dadd(-376.22, -1841.17, -378.22, 0.59)
pt3dadd(-377.03, -1838.78, -379.7, 0.59)
pt3dadd(-377.66, -1836.64, -381.93, 0.59)
pt3dadd(-378.19, -1833.97, -383.63, 0.59)
pt3dadd(-379.41, -1831.76, -385.97, 0.59)
pt3dadd(-379.46, -1829.28, -385.97, 0.59)
pt3dadd(-379.48, -1826.29, -389.58, 0.59)
pt3dadd(-379.23, -1824.65, -394.68, 0.59)
pt3dadd(-379.85, -1822.34, -397.49, 0.59)
pt3dadd(-380.59, -1819.75, -401.48, 0.59)
pt3dadd(-381.06, -1818.51, -401.8, 0.59)
pt3dadd(-381.62, -1818.16, -401.8, 0.67)
pt3dadd(-382.83, -1816.11, -404.72, 0.67)
pt3dadd(-382.79, -1813.56, -408.22, 0.67)
pt3dadd(-381.23, -1812.34, -409.6, 0.67)
pt3dadd(-381.01, -1810.2, -412.63, 0.67)
pt3dadd(-381.07, -1806.22, -413.43, 0.67)
pt3dadd(-380.95, -1803.31, -416.08, 0.67)
pt3dadd(-381.49, -1799.73, -418.52, 0.67)
pt3dadd(-381.82, -1796.21, -420.7, 0.67)
pt3dadd(-380.19, -1794.63, -424.79, 0.45)
pt3dadd(-379.68, -1793.25, -428.4, 0.45)
pt3dadd(-380.44, -1790.59, -430.63, 0.45)
pt3dadd(-380.99, -1787.5, -431.96, 0.45)
pt3dadd(-381.22, -1786.3, -430.69, 0.45)
}
dend[16] {pt3dclear()
pt3dadd(-370.64, -1853.92, -372.16, 0.67)
pt3dadd(-371.91, -1853.27, -372.16, 0.67)
pt3dadd(-373.45, -1851.44, -375.88, 0.67)
pt3dadd(-374.94, -1847.9, -378.59, 0.67)
pt3dadd(-376.01, -1845.47, -378.96, 0.67)
pt3dadd(-376.93, -1843.21, -382.15, 0.67)
pt3dadd(-377.86, -1841.12, -382.2, 0.67)
pt3dadd(-378.58, -1839.5, -382.2, 0.67)
pt3dadd(-378.56, -1837.36, -384.64, 0.67)
pt3dadd(-379.66, -1834.86, -385.81, 0.67)
pt3dadd(-380.64, -1832.47, -386.98, 0.67)
pt3dadd(-380.6, -1830.91, -390.01, 0.67)
pt3dadd(-380.87, -1828.85, -392.45, 0.67)
pt3dadd(-381.5, -1824.12, -394.41, 0.59)
pt3dadd(-383.15, -1820.4, -400.04, 0.59)
pt3dadd(-384.66, -1817.36, -402.75, 0.59)
pt3dadd(-384.91, -1817.65, -402.75, 0.3)
pt3dadd(-385.82, -1815.71, -405.99, 0.3)
pt3dadd(-386.61, -1814.04, -406.68, 0.67)
pt3dadd(-387.49, -1811.11, -409.02, 0.67)
pt3dadd(-387.78, -1808.39, -411.73, 0.67)
pt3dadd(-388.34, -1805.8, -415.18, 0.67)
pt3dadd(-388.93, -1804.03, -415.98, 0.67)
pt3dadd(-390.29, -1800.59, -418.58, 0.67)
pt3dadd(-391.03, -1797.26, -420.49, 0.67)
pt3dadd(-392.46, -1792.47, -421.18, 0.67)
pt3dadd(-393.24, -1790.3, -423.36, 0.67)
}
dend[17] {pt3dclear()
pt3dadd(-323.57, -1911.68, -344.76, 1.34)
pt3dadd(-325.01, -1910.12, -343.38, 1.34)
pt3dadd(-326.36, -1908.43, -340.72, 1.26)
pt3dadd(-328.49, -1906.86, -339.18, 1.26)
pt3dadd(-330.44, -1905.37, -337.91, 1.26)
pt3dadd(-331.18, -1904.69, -335.2, 1.26)
pt3dadd(-331.91, -1903.75, -332.6, 1.26)
pt3dadd(-332.85, -1902.59, -330.63, 1.26)
pt3dadd(-333.24, -1901.79, -328.19, 1.26)
pt3dadd(-334.51, -1900.65, -324.74, 1.26)
pt3dadd(-335.85, -1900.15, -321.13, 1.26)
pt3dadd(-336.53, -1899.44, -318.31, 1.26)
pt3dadd(-337.67, -1898.23, -313.32, 1.26)
pt3dadd(-339.13, -1897.37, -312.15, 1.26)
pt3dadd(-340.23, -1896.82, -307.59, 1.26)
pt3dadd(-341.75, -1896.43, -301.59, 1.26)
pt3dadd(-343.55, -1896.46, -295.85, 1.26)
pt3dadd(-345.24, -1895.49, -294.1, 1.19)
pt3dadd(-346.29, -1893.71, -291.28, 1.19)
pt3dadd(-348.43, -1892.14, -289.16, 1.19)
pt3dadd(-348.84, -1892.04, -289.16, 1.19)
pt3dadd(-347.89, -1891.51, -289.16, 1.11)
pt3dadd(-348.55, -1891.01, -284.86, 1.11)
pt3dadd(-349.27, -1890.38, -284.86, 1.11)
}
dend[18] {pt3dclear()
pt3dadd(-349.27, -1890.38, -284.86, 0.74)
pt3dadd(-351.25, -1889.38, -284.8, 0.74)
pt3dadd(-352.34, -1887.85, -284.86, 0.74)
pt3dadd(-353.85, -1885.63, -284.86, 0.74)
pt3dadd(-356.25, -1882.94, -284.86, 0.74)
pt3dadd(-356.93, -1881.71, -283.8, 0.74)
pt3dadd(-357.95, -1880.82, -281.25, 0.74)
pt3dadd(-359.9, -1879.39, -274.98, 0.74)
pt3dadd(-362.49, -1878.85, -273.6, 0.74)
pt3dadd(-366.56, -1877.14, -269.14, 0.74)
pt3dadd(-369.33, -1875.88, -268.34, 0.74)
pt3dadd(-370.19, -1874.48, -265.16, 0.74)
pt3dadd(-371.24, -1873.52, -263.83, 0.74)
pt3dadd(-372.59, -1872.62, -260.91, 0.74)
pt3dadd(-375.86, -1870.36, -258.78, 0.52)
pt3dadd(-377.17, -1868.54, -252.73, 0.52)
pt3dadd(-379.09, -1867.67, -252.73, 0.52)
pt3dadd(-380.04, -1866.57, -247.84, 0.52)
pt3dadd(-381.82, -1864.65, -245.51, 0.52)
pt3dadd(-383.43, -1862.56, -242.69, 0.52)
pt3dadd(-385.27, -1859.67, -242.64, 0.52)
pt3dadd(-388.16, -1856.82, -242.64, 0.52)
pt3dadd(-389.9, -1854.3, -243.22, 0.52)
pt3dadd(-391.03, -1850.98, -244.29, 0.52)
pt3dadd(-391.74, -1847.71, -241.26, 0.52)
}
dend[19] {pt3dclear()
pt3dadd(-349.27, -1890.38, -284.86, 0.82)
pt3dadd(-349.19, -1891.44, -277.74, 0.82)
pt3dadd(-350.22, -1891.7, -273.6, 0.82)
pt3dadd(-350.98, -1891.17, -270.94, 0.82)
pt3dadd(-351.37, -1889.71, -268.5, 0.82)
pt3dadd(-352.26, -1888.75, -266.01, 0.82)
pt3dadd(-353.41, -1887.09, -261.01, 0.82)
pt3dadd(-354.62, -1886.13, -257.35, 0.82)
pt3dadd(-355.58, -1884.7, -251.14, 0.82)
pt3dadd(-357.18, -1882.11, -247.63, 0.82)
pt3dadd(-358.23, -1880.99, -244.39, 0.82)
pt3dadd(-359.35, -1879.39, -241.05, 0.82)
pt3dadd(-360.99, -1877.73, -237.54, 0.82)
pt3dadd(-362.67, -1876.01, -233.35, 0.82)
pt3dadd(-363.53, -1874.78, -231.11, 0.82)
pt3dadd(-364.61, -1873.75, -227.66, 0.82)
pt3dadd(-364.26, -1873.2, -227.66, 1.11)
pt3dadd(-364.93, -1872.8, -222.99, 1.11)
pt3dadd(-368.3, -1871.56, -217.73, 1.11)
pt3dadd(-370.85, -1870.44, -213.32, 1.11)
pt3dadd(-373.25, -1868.58, -212.21, 0.97)
pt3dadd(-374.62, -1867.23, -209.82, 0.97)
pt3dadd(-375.76, -1866.59, -209.82, 0.82)
pt3dadd(-378.21, -1864.82, -205.94, 0.82)
pt3dadd(-380.12, -1863.29, -204.62, 0.82)
pt3dadd(-381.72, -1861.24, -201.8, 0.82)
pt3dadd(-382.98, -1860.02, -199.36, 0.82)
pt3dadd(-384.37, -1858.6, -195.85, 0.82)
pt3dadd(-385.44, -1857.47, -192.83, 0.82)
pt3dadd(-386.92, -1857.02, -189.37, 0.82)
pt3dadd(-388.09, -1857.24, -184.97, 0.82)
pt3dadd(-389.64, -1856.81, -182.68, 0.82)
pt3dadd(-390.48, -1856.62, -178.81, 0.82)
}
dend[20] {pt3dclear()
pt3dadd(-390.48, -1856.62, -178.81, 0.74)
pt3dadd(-391.41, -1855.44, -176.15, 0.74)
pt3dadd(-392.85, -1854.36, -173.5, 0.74)
pt3dadd(-393.38, -1853.67, -172.65, 0.74)
pt3dadd(-393.67, -1853.04, -172.65, 0.82)
pt3dadd(-393.91, -1853.01, -165.58, 0.82)
pt3dadd(-394.05, -1852.58, -161.76, 0.82)
pt3dadd(-394.02, -1852.28, -161.92, 0.82)
pt3dadd(-394.18, -1852.23, -159.37, 0.82)
pt3dadd(-394.97, -1851.98, -155.92, 0.82)
pt3dadd(-395.14, -1851.85, -152.57, 0.82)
pt3dadd(-395.59, -1851.4, -149.28, 0.82)
pt3dadd(-395.67, -1851.34, -144.29, 0.82)
pt3dadd(-395.86, -1850.62, -137.81, 0.82)
pt3dadd(-395.73, -1850, -135.31, 0.82)
pt3dadd(-395.72, -1849.63, -129.95, 0.82)
pt3dadd(-396, -1850.19, -126.07, 0.82)
pt3dadd(-396.17, -1849.62, -119.7, 0.82)
pt3dadd(-396.7, -1849.56, -116.04, 0.82)
pt3dadd(-397.14, -1849.63, -111.63, 0.82)
pt3dadd(-396.77, -1850.52, -111.63, 0.97)
pt3dadd(-396.85, -1849.82, -106.85, 0.97)
pt3dadd(-396.85, -1849.82, -100.9, 0.97)
pt3dadd(-396.47, -1849.07, -96.71, 0.97)
pt3dadd(-397.01, -1848.26, -93.94, 0.89)
pt3dadd(-397.75, -1847.22, -88.05, 0.89)
pt3dadd(-398.57, -1845.81, -85.66, 0.89)
pt3dadd(-398.8, -1844.61, -83.06, 0.89)
pt3dadd(-399.07, -1843.52, -80.08, 0.89)
pt3dadd(-399.05, -1842.69, -76.42, 0.89)
pt3dadd(-400.01, -1841.34, -73.02, 0.89)
pt3dadd(-400.54, -1840.21, -69.78, 0.89)
pt3dadd(-401.55, -1838.23, -66.06, 0.89)
pt3dadd(-402.53, -1836.32, -64.2, 0.89)
pt3dadd(-403.03, -1835.25, -61.18, 0.89)
pt3dadd(-404.69, -1832.93, -57.99, 0.74)
pt3dadd(-405.32, -1831.59, -54.59, 0.74)
pt3dadd(-405.97, -1830.45, -54.59, 0.52)
pt3dadd(-407.03, -1827.15, -50.98, 0.52)
pt3dadd(-407.52, -1825.28, -42.8, 0.52)
pt3dadd(-408.3, -1824.38, -37.65, 0.52)
pt3dadd(-408.92, -1822.8, -34.25, 0.52)
pt3dadd(-409.41, -1820.93, -31.97, 0.52)
}
}
proc shape3d_4() {
dend[20] { pt3dadd(-410.29, -1819.52, -27.93, 0.52)
pt3dadd(-411.53, -1817.52, -25.12, 0.52)
pt3dadd(-412.16, -1815.47, -21.19, 0.52)
pt3dadd(-413.18, -1813.87, -18.22, 0.52)
pt3dadd(-414, -1811.96, -15.83, 0.52)
pt3dadd(-414.51, -1809.8, -12.32, 0.52)
pt3dadd(-414.95, -1808.31, -9.08, 0.52)
pt3dadd(-415.96, -1805.84, -5.1, 0.52)
pt3dadd(-417.04, -1802.46, -1.91, 0.52)
pt3dadd(-418.08, -1799.46, 1.86, 0.52)
pt3dadd(-419.55, -1797.94, 5.05, 0.52)
pt3dadd(-421.09, -1797.06, 5.05, 0.59)
pt3dadd(-421.53, -1796.18, 11.36, 0.59)
pt3dadd(-421.98, -1794.18, 11.95, 0.59)
pt3dadd(-423.69, -1791.52, 15.93, 0.59)
pt3dadd(-426.74, -1786.5, 20.5, 0.59)
pt3dadd(-426.59, -1785.76, 20.13, 0.59)
pt3dadd(-426.89, -1784.06, 25.97, 0.59)
pt3dadd(-427.63, -1782.58, 29.1, 0.59)
pt3dadd(-427.55, -1780.88, 34.25, 0.59)
pt3dadd(-428, -1779.55, 39.03, 0.59)
pt3dadd(-429.56, -1777.41, 41.16, 0.59)
pt3dadd(-430.45, -1775.42, 42.33, 0.59)
pt3dadd(-431.64, -1773.05, 44.45, 0.59)
pt3dadd(-432.61, -1770.39, 45.88, 0.59)
pt3dadd(-433.95, -1768.55, 50.98, 0.59)
pt3dadd(-434.54, -1768.1, 48.91, 0.59)
}
dend[21] {pt3dclear()
pt3dadd(-390.48, -1856.62, -178.81, 0.74)
pt3dadd(-391.41, -1857.38, -178.81, 0.74)
pt3dadd(-393.22, -1857.58, -175.67, 0.67)
pt3dadd(-394.31, -1858.79, -173.81, 0.67)
pt3dadd(-394.62, -1859.04, -172.01, 0.67)
pt3dadd(-394.67, -1858.66, -172.01, 0.74)
pt3dadd(-394.45, -1858.18, -162.08, 0.74)
pt3dadd(-395.15, -1857.54, -158.41, 0.74)
pt3dadd(-396.47, -1856.33, -154.06, 0.52)
pt3dadd(-397.32, -1856.16, -149.39, 0.52)
pt3dadd(-398.33, -1855.05, -149.39, 0.52)
pt3dadd(-399.46, -1853.58, -146.41, 0.52)
pt3dadd(-400.47, -1852.91, -142.53, 0.52)
pt3dadd(-401.33, -1849.83, -139.45, 0.52)
pt3dadd(-402.52, -1848.45, -136.43, 0.52)
pt3dadd(-404.32, -1847.98, -132.5, 0.52)
pt3dadd(-406.75, -1845.45, -129.79, 0.52)
pt3dadd(-409.23, -1843.59, -127.03, 0.52)
pt3dadd(-410.52, -1842.08, -125.01, 0.52)
pt3dadd(-411.95, -1841.1, -120.81, 0.52)
pt3dadd(-412.7, -1838.68, -116.94, 0.52)
pt3dadd(-414.41, -1837.38, -112.74, 0.52)
pt3dadd(-415.29, -1837.07, -110.51, 0.52)
pt3dadd(-415.21, -1836.24, -110.51, 0.74)
pt3dadd(-415.88, -1835, -109.03, 0.74)
pt3dadd(-416.71, -1834.08, -108.81, 0.59)
pt3dadd(-417.66, -1832.41, -106.16, 0.59)
pt3dadd(-418.66, -1830.63, -102.87, 0.59)
pt3dadd(-421.46, -1827.13, -103.18, 0.59)
pt3dadd(-424.28, -1823.39, -103.18, 0.59)
pt3dadd(-425.42, -1821.64, -103.13, 0.45)
pt3dadd(-427.96, -1818.34, -102.97, 0.45)
pt3dadd(-428.39, -1817.24, -94.69, 0.45)
}
dend[22] {pt3dclear()
pt3dadd(-307.07, -1940.82, -358.83, 1.56)
pt3dadd(-308.2, -1940.11, -356.18, 1.56)
pt3dadd(-308.66, -1939.99, -352.83, 1.56)
pt3dadd(-309.59, -1940.09, -352.83, 1.19)
pt3dadd(-310.19, -1940.1, -349.65, 1.19)
pt3dadd(-310.32, -1940.18, -344.87, 1.19)
pt3dadd(-311.21, -1939.84, -341.89, 1.19)
pt3dadd(-311.52, -1939.6, -338.55, 1.19)
pt3dadd(-311.79, -1940.02, -335.57, 1.19)
pt3dadd(-312.12, -1940.04, -333.02, 1.19)
pt3dadd(-312.12, -1940.04, -329.36, 1.19)
pt3dadd(-312.05, -1940.17, -326.07, 1.19)
pt3dadd(-312.2, -1940.35, -321.23, 1.19)
pt3dadd(-312.59, -1940.57, -317.09, 1.19)
pt3dadd(-313.4, -1940.8, -313.16, 1.19)
pt3dadd(-314.05, -1941.01, -310.67, 1.19)
pt3dadd(-314.7, -1940.79, -306.47, 1.19)
pt3dadd(-314.87, -1940.8, -301.11, 1.19)
pt3dadd(-314.83, -1941.3, -297.82, 1.19)
pt3dadd(-314.57, -1941.74, -293.51, 1.19)
pt3dadd(-314.94, -1941.66, -293.51, 1.34)
pt3dadd(-314.94, -1941.66, -288.63, 1.34)
pt3dadd(-315.18, -1941.53, -286.66, 1.34)
pt3dadd(-315.18, -1941.53, -284.54, 1.34)
pt3dadd(-315.44, -1941.49, -282.57, 1.34)
pt3dadd(-315.44, -1941.49, -280.93, 1.34)
pt3dadd(-315.38, -1941.95, -279.92, 1.34)
pt3dadd(-315.42, -1942.38, -278.43, 1.34)
pt3dadd(-315.82, -1942.75, -276.52, 1.34)
pt3dadd(-315.79, -1943.31, -273.65, 1.34)
pt3dadd(-315.7, -1944.17, -272.59, 1.34)
pt3dadd(-315.6, -1944.37, -269.72, 1.34)
pt3dadd(-315.37, -1944.83, -267.12, 1.34)
pt3dadd(-315.73, -1944.6, -265, 1.34)
pt3dadd(-315.73, -1944.43, -263.08, 1.34)
pt3dadd(-316.02, -1943.67, -262.13, 1.34)
pt3dadd(-316.75, -1943.04, -260.11, 1.34)
pt3dadd(-317.08, -1942.71, -257.3, 1.34)
pt3dadd(-317.08, -1942.71, -254.11, 1.34)
pt3dadd(-317.48, -1942.74, -251.24, 1.34)
pt3dadd(-317.51, -1943.33, -248.75, 1.34)
pt3dadd(-317.55, -1943.27, -247.84, 1.34)
pt3dadd(-316.68, -1943.01, -245.4, 1.34)
}
dend[23] {pt3dclear()
pt3dadd(-316.68, -1943.01, -245.4, 1.34)
pt3dadd(-317.18, -1942.84, -243.75, 1.34)
pt3dadd(-317.51, -1942.51, -238.23, 1.19)
pt3dadd(-317.87, -1942.61, -234.2, 1.19)
pt3dadd(-318.51, -1942.67, -231.33, 1.19)
pt3dadd(-318.58, -1942.78, -230.59, 0.89)
pt3dadd(-318.58, -1943.02, -224.69, 0.89)
pt3dadd(-318.82, -1943.25, -221.24, 0.89)
pt3dadd(-319.85, -1943.19, -218.42, 0.89)
pt3dadd(-320.96, -1943.16, -214.39, 0.89)
pt3dadd(-321.13, -1944.07, -210.67, 0.89)
pt3dadd(-322.41, -1944.48, -206.63, 0.89)
pt3dadd(-323.35, -1945.18, -203.82, 0.89)
pt3dadd(-324.79, -1945.33, -201.16, 0.89)
pt3dadd(-326.97, -1945.34, -196.44, 0.89)
pt3dadd(-328.1, -1945.7, -192.51, 0.89)
pt3dadd(-329.93, -1945.36, -188.1, 0.89)
pt3dadd(-330.24, -1945.15, -185.71, 0.89)
pt3dadd(-330.56, -1944.87, -182.68, 0.82)
pt3dadd(-331.77, -1944.02, -181.14, 0.82)
pt3dadd(-332.72, -1942.77, -178.75, 0.82)
pt3dadd(-333.98, -1941.55, -176.1, 0.82)
pt3dadd(-334.18, -1942.02, -176.1, 0.74)
pt3dadd(-334.1, -1940.51, -174.13, 0.74)
pt3dadd(-334.07, -1940.21, -169.57, 0.74)
pt3dadd(-334.18, -1939.48, -168.34, 0.74)
pt3dadd(-334.45, -1938.62, -165.69, 0.74)
pt3dadd(-335.27, -1937.17, -164.31, 0.74)
pt3dadd(-336.64, -1933.94, -159.69, 0.74)
pt3dadd(-338.09, -1931.24, -157.14, 0.74)
pt3dadd(-338.35, -1929.93, -153.58, 0.74)
pt3dadd(-337.07, -1928.4, -148.11, 0.74)
pt3dadd(-337.08, -1926.31, -142.54, 0.74)
pt3dadd(-336.67, -1925.5, -140.3, 0.74)
}
dend[24] {pt3dclear()
pt3dadd(-336.67, -1925.5, -140.3, 0.74)
pt3dadd(-334.87, -1925.47, -136.48, 0.74)
pt3dadd(-334.12, -1926.03, -130.43, 0.67)
pt3dadd(-333.47, -1927.87, -124.32, 0.67)
pt3dadd(-333.3, -1928.41, -124.32, 0.45)
pt3dadd(-333.09, -1927.98, -115.4, 0.45)
pt3dadd(-332.74, -1926.1, -111.57, 0.45)
}
dend[25] {pt3dclear()
pt3dadd(-332.74, -1926.1, -111.57, 0.45)
pt3dadd(-331.11, -1924.85, -107.38, 0.45)
pt3dadd(-329.67, -1923.03, -101.43, 0.45)
pt3dadd(-328.33, -1922.73, -99.89, 0.3)
pt3dadd(-326.45, -1923.07, -96.6, 0.3)
pt3dadd(-323.86, -1922.1, -92.19, 0.3)
pt3dadd(-320.78, -1919.92, -90.12, 0.3)
pt3dadd(-320.86, -1917.84, -88.26, 0.3)
}
dend[26] {pt3dclear()
pt3dadd(-332.74, -1926.1, -111.57, 0.22)
pt3dadd(-333.73, -1923.63, -107.06, 0.22)
pt3dadd(-335.7, -1921.54, -104.41, 0.22)
pt3dadd(-339.71, -1919.99, -101.96, 0.22)
pt3dadd(-342.89, -1917.24, -101.96, 0.22)
pt3dadd(-345.82, -1913.63, -101.96, 0.22)
pt3dadd(-349.73, -1910.89, -101.96, 0.22)
pt3dadd(-352.6, -1910.2, -101.96, 0.22)
pt3dadd(-353.88, -1909.91, -101.59, 0.22)
}
dend[27] {pt3dclear()
pt3dadd(-336.67, -1925.5, -140.3, 0.59)
pt3dadd(-336.8, -1924.63, -140.3, 0.59)
pt3dadd(-338.45, -1920.54, -137.76, 0.59)
pt3dadd(-338.85, -1918.28, -133.24, 0.59)
pt3dadd(-338.71, -1915.65, -129.58, 0.59)
pt3dadd(-338.14, -1914.44, -123.9, 0.59)
pt3dadd(-338.67, -1912.88, -122.04, 0.59)
pt3dadd(-337.66, -1911.54, -120.66, 0.59)
pt3dadd(-337.49, -1911.14, -118.69, 0.59)
pt3dadd(-338.22, -1910.64, -118.69, 0.82)
pt3dadd(-338.52, -1908.41, -116.14, 0.82)
pt3dadd(-338.81, -1906.92, -114.76, 0.82)
pt3dadd(-338.38, -1905.57, -113.91, 0.82)
pt3dadd(-338.27, -1904.05, -113.27, 0.74)
pt3dadd(-338.69, -1903.51, -110.19, 0.74)
pt3dadd(-338.96, -1902.74, -107.54, 0.74)
pt3dadd(-339.3, -1901.68, -105.1, 0.74)
pt3dadd(-339.68, -1899.82, -104.19, 0.74)
pt3dadd(-340.24, -1898.28, -101.33, 0.74)
pt3dadd(-340.87, -1897.11, -98.78, 0.74)
pt3dadd(-340.82, -1896.68, -95.01, 0.74)
pt3dadd(-340.99, -1895.62, -91.93, 0.74)
pt3dadd(-341.92, -1894.34, -89, 0.74)
pt3dadd(-342.68, -1892.9, -86.24, 0.74)
pt3dadd(-343.72, -1892.25, -83.32, 0.74)
pt3dadd(-346.39, -1891.46, -78.28, 0.74)
pt3dadd(-348.7, -1889.52, -83.06, 0.67)
pt3dadd(-349.56, -1888.38, -79.71, 0.67)
pt3dadd(-351.84, -1886.5, -78.07, 0.52)
pt3dadd(-352.86, -1885.19, -76.21, 0.52)
pt3dadd(-354.13, -1883.01, -73.23, 0.52)
pt3dadd(-354.9, -1881.51, -68.56, 0.52)
pt3dadd(-355.56, -1880.44, -65.11, 0.52)
pt3dadd(-357.74, -1877.85, -65.11, 0.15)
pt3dadd(-358.74, -1876.32, -60.81, 0.15)
pt3dadd(-360.85, -1874.08, -57.19, 0.15)
pt3dadd(-362.49, -1872.3, -56.4, 0.15)
pt3dadd(-364, -1870.87, -53.16, 0.15)
pt3dadd(-365.52, -1868.97, -50.34, 0.15)
}
}
proc shape3d_5() {
dend[27] { pt3dadd(-366.74, -1867.28, -49.55, 0.15)
pt3dadd(-367.45, -1866.58, -46.68, 0.15)
pt3dadd(-368.89, -1865.36, -43.87, 0.15)
pt3dadd(-370.01, -1863.48, -42.86, 0.15)
pt3dadd(-370.73, -1862.09, -42.01, 0.15)
}
dend[28] {pt3dclear()
pt3dadd(-316.68, -1943.01, -245.4, 0.82)
pt3dadd(-315.82, -1943.57, -244.39, 0.82)
pt3dadd(-315.13, -1944.14, -241.52, 0.82)
pt3dadd(-314.62, -1946.19, -238.28, 0.67)
pt3dadd(-312.85, -1949.11, -238.28, 0.67)
pt3dadd(-311.64, -1950.73, -233.72, 0.67)
pt3dadd(-311.57, -1950.87, -231.17, 0.67)
pt3dadd(-310.43, -1952.88, -230.53, 0.52)
pt3dadd(-308.03, -1954.25, -229.15, 0.52)
pt3dadd(-307.01, -1955.24, -228.25, 0.52)
pt3dadd(-305.92, -1956.44, -224.85, 0.52)
pt3dadd(-305.06, -1957.64, -222.09, 0.52)
pt3dadd(-302.64, -1959.57, -219.27, 0.52)
pt3dadd(-300.76, -1961.99, -215.18, 0.52)
pt3dadd(-300.59, -1965.2, -207.01, 0.52)
pt3dadd(-299.79, -1967.66, -203.87, 0.52)
pt3dadd(-298.89, -1970.7, -199.41, 0.52)
pt3dadd(-295.96, -1973.95, -197.13, 0.52)
pt3dadd(-294.2, -1973.85, -194.05, 0.52)
pt3dadd(-293.08, -1974.88, -189.53, 0.52)
pt3dadd(-292.04, -1976.41, -187.25, 0.52)
pt3dadd(-291.64, -1978.14, -185.02, 0.37)
pt3dadd(-291.24, -1980.11, -181.78, 0.37)
pt3dadd(-290.86, -1982.01, -179.44, 0.37)
pt3dadd(-290.17, -1983.89, -177.69, 0.52)
pt3dadd(-288.99, -1983.71, -171.8, 0.37)
pt3dadd(-287.14, -1984.04, -171.21, 0.37)
pt3dadd(-285.67, -1983.83, -165.05, 0.37)
pt3dadd(-283.71, -1983.84, -163.41, 0.37)
pt3dadd(-279.65, -1983.39, -160.17, 0.3)
pt3dadd(-278.42, -1985.6, -160.54, 0.3)
pt3dadd(-276.93, -1987.63, -155.76, 0.3)
pt3dadd(-275.86, -1988.22, -153.1, 0.3)
}
dend[29] {pt3dclear()
pt3dstyle(1, -284.325, -1961.11, -408.371)
pt3dadd(-279.14, -1964.96, -403.76, 2.38)
pt3dadd(-275.97, -1967.52, -405.14, 2.38)
pt3dadd(-272.86, -1969.78, -405.14, 2.38)
pt3dadd(-270.53, -1971.9, -405.14, 2.3)
pt3dadd(-268.97, -1973.23, -404.08, 2.3)
pt3dadd(-265.43, -1975.49, -402.8, 2.23)
pt3dadd(-261.75, -1978.47, -400.36, 2.23)
pt3dadd(-259.51, -1981.52, -399.94, 2.23)
pt3dadd(-257.04, -1984.71, -398.4, 2.23)
pt3dadd(-255.16, -1988.4, -398.4, 2.23)
pt3dadd(-254.25, -1990.26, -396.54, 2.23)
pt3dadd(-253, -1994.55, -395.1, 2.23)
pt3dadd(-251.02, -1997.72, -391.55, 2.23)
pt3dadd(-248.26, -2001.02, -387.78, 2.23)
pt3dadd(-246.58, -2003.35, -387.78, 2.08)
pt3dadd(-244.18, -2003.98, -383.58, 2.08)
pt3dadd(-242.47, -2004.89, -383.32, 1.93)
pt3dadd(-237.07, -2009.37, -381.51, 1.93)
pt3dadd(-234.95, -2011.41, -381.51, 1.93)
pt3dadd(-233.83, -2011.99, -378.64, 1.71)
pt3dadd(-231.03, -2013.17, -377.63, 1.71)
pt3dadd(-225.32, -2015.24, -376.25, 1.71)
}
dend[30] {pt3dclear()
pt3dadd(-225.32, -2015.24, -376.25, 1.56)
pt3dadd(-222.98, -2017.04, -379.01, 1.56)
pt3dadd(-216.87, -2021.28, -378.11, 1.41)
pt3dadd(-212.73, -2026.39, -381.24, 1.41)
pt3dadd(-210.73, -2030.36, -385.01, 1.41)
pt3dadd(-209.32, -2032.64, -387.46, 1.41)
pt3dadd(-207.55, -2034.6, -391.71, 1.41)
pt3dadd(-204.52, -2035.2, -395, 1.41)
pt3dadd(-202.94, -2037.49, -397.97, 1.41)
pt3dadd(-200.93, -2039.83, -405.78, 1.41)
pt3dadd(-198.99, -2041.07, -410.45, 1.41)
pt3dadd(-198.59, -2041.98, -410.45, 0.89)
pt3dadd(-197.44, -2042.34, -414.54, 0.89)
pt3dadd(-196.68, -2042.56, -417.67, 0.89)
pt3dadd(-195.5, -2042.98, -418.63, 0.89)
}
dend[31] {pt3dclear()
pt3dadd(-195.5, -2042.98, -418.63, 0.89)
pt3dadd(-192.45, -2044.46, -418.58, 0.89)
pt3dadd(-190.04, -2045.04, -420.33, 0.89)
pt3dadd(-187.66, -2045.39, -423.57, 0.89)
pt3dadd(-184.9, -2045.32, -426.17, 0.89)
pt3dadd(-181.87, -2045.12, -426.17, 0.89)
pt3dadd(-177.67, -2045.52, -427.66, 0.89)
pt3dadd(-174.99, -2046.14, -429.68, 0.89)
pt3dadd(-171.21, -2046.49, -431.8, 0.89)
pt3dadd(-167.04, -2048.2, -434.72, 0.89)
pt3dadd(-163.96, -2049.53, -434.4, 0.89)
pt3dadd(-161.87, -2049.78, -435.94, 0.89)
pt3dadd(-159.37, -2051.62, -435.94, 0.89)
pt3dadd(-156.09, -2053.18, -436.53, 0.89)
pt3dadd(-153.05, -2056.16, -437.16, 0.89)
pt3dadd(-149.82, -2059.55, -437.22, 0.89)
pt3dadd(-147.77, -2062.5, -435.41, 0.89)
pt3dadd(-145.3, -2064.28, -436.85, 0.89)
pt3dadd(-141.39, -2067.18, -434.35, 0.89)
pt3dadd(-139.79, -2067.98, -434.35, 0.89)
pt3dadd(-136.69, -2068.81, -432.7, 0.89)
pt3dadd(-134.4, -2070.18, -432.7, 0.89)
pt3dadd(-131.38, -2072.77, -430.47, 0.89)
pt3dadd(-128.28, -2073.43, -430.47, 0.89)
pt3dadd(-126.02, -2074.57, -429.57, 0.89)
pt3dadd(-125.04, -2076.3, -429.52, 0.82)
pt3dadd(-124.44, -2078.63, -427.34, 0.82)
pt3dadd(-122.85, -2082.2, -427.34, 0.82)
pt3dadd(-121.4, -2083.89, -427.61, 0.82)
pt3dadd(-120.01, -2085.44, -426.33, 0.82)
pt3dadd(-117.69, -2086.72, -426.33, 0.82)
pt3dadd(-115.71, -2088.32, -426.17, 0.82)
pt3dadd(-112.32, -2089.59, -424.9, 0.82)
pt3dadd(-109.93, -2090.83, -424.79, 0.67)
pt3dadd(-107.65, -2092.54, -423.09, 0.67)
pt3dadd(-104.7, -2093.93, -422.35, 0.67)
pt3dadd(-101.54, -2097.34, -420.33, 0.67)
pt3dadd(-99.59, -2100.1, -416.77, 0.67)
pt3dadd(-97.78, -2102.02, -415.39, 0.67)
pt3dadd(-93.9, -2103.47, -415.39, 0.67)
pt3dadd(-91.93, -2104.88, -416.35, 0.67)
pt3dadd(-88.7, -2105.65, -415.18, 0.67)
pt3dadd(-85.17, -2106.69, -413.96, 0.67)
pt3dadd(-83.59, -2109.7, -412.26, 0.67)
pt3dadd(-81.35, -2112.73, -411.3, 0.67)
pt3dadd(-77.8, -2115.39, -410.24, 0.67)
pt3dadd(-75.51, -2117.83, -409.6, 0.59)
pt3dadd(-72.76, -2119.31, -408.06, 0.59)
pt3dadd(-67.9, -2122.33, -408.27, 0.59)
pt3dadd(-65.31, -2126.1, -407.16, 0.59)
pt3dadd(-64.04, -2127.05, -405.78, 0.59)
pt3dadd(-62.15, -2128.29, -404.24, 0.59)
pt3dadd(-61.4, -2127.96, -404.24, 0.45)
pt3dadd(-58.73, -2127.2, -400.26, 0.45)
pt3dadd(-56.33, -2126.56, -398.93, 0.45)
pt3dadd(-53.96, -2126.42, -397.71, 0.22)
pt3dadd(-48.68, -2124.77, -398.08, 0.22)
pt3dadd(-47.03, -2123.74, -396.33, 0.22)
}
dend[32] {pt3dclear()
pt3dadd(-195.5, -2042.98, -418.63, 0.89)
pt3dadd(-193.69, -2043.52, -420.6, 0.89)
pt3dadd(-192.58, -2043.25, -423.73, 0.89)
pt3dadd(-191.16, -2043.48, -426.07, 0.89)
pt3dadd(-189.3, -2044.64, -428.14, 0.89)
pt3dadd(-189.32, -2045.47, -429.73, 0.89)
pt3dadd(-188.61, -2046.11, -433.29, 0.89)
pt3dadd(-187.69, -2046.5, -435.52, 0.89)
pt3dadd(-186.58, -2047.12, -437.48, 0.89)
pt3dadd(-185.53, -2047.61, -438.76, 0.89)
pt3dadd(-184.85, -2048.51, -440.56, 0.89)
pt3dadd(-183.79, -2048.51, -442.9, 0.89)
pt3dadd(-181.72, -2049.25, -444.28, 0.89)
pt3dadd(-179.71, -2051.08, -449.8, 0.89)
pt3dadd(-178.58, -2053.32, -449.8, 0.89)
pt3dadd(-176.98, -2054.45, -452.99, 0.89)
pt3dadd(-175.86, -2054.95, -455.17, 0.89)
pt3dadd(-174.61, -2055.18, -459.52, 0.89)
pt3dadd(-173.25, -2055.44, -462.97, 0.89)
pt3dadd(-172.01, -2054.94, -464.94, 0.89)
pt3dadd(-172.04, -2055.45, -464.94, 0.74)
pt3dadd(-172.45, -2056.44, -473.33, 0.74)
pt3dadd(-172.62, -2057.26, -476.83, 0.74)
pt3dadd(-172.29, -2058.29, -481.83, 0.74)
pt3dadd(-171.84, -2059.5, -484.8, 0.74)
pt3dadd(-170.42, -2060.68, -487.4, 0.74)
pt3dadd(-169.17, -2061.62, -488.84, 0.74)
pt3dadd(-167.82, -2062.32, -491.86, 0.74)
pt3dadd(-166.6, -2063.46, -494.09, 0.74)
pt3dadd(-165.58, -2065, -495.85, 0.74)
pt3dadd(-164.8, -2066.17, -498.29, 0.74)
pt3dadd(-163.65, -2067.89, -502.22, 0.74)
pt3dadd(-162.38, -2069.26, -502.11, 0.74)
pt3dadd(-161.17, -2071.48, -504.66, 0.74)
pt3dadd(-159.7, -2073.15, -504.98, 0.74)
pt3dadd(-158.39, -2075.66, -506.52, 0.67)
pt3dadd(-156.66, -2077.44, -508.54, 0.67)
pt3dadd(-154.26, -2079.03, -510.56, 0.67)
pt3dadd(-152.87, -2079.88, -511.3, 0.67)
pt3dadd(-151.84, -2082.49, -515.97, 0.67)
pt3dadd(-150.06, -2084.49, -518.31, 0.67)
pt3dadd(-148.58, -2086.44, -519.48, 0.67)
pt3dadd(-147.78, -2088.04, -520.43, 0.67)
pt3dadd(-146.29, -2090.42, -522.61, 0.67)
pt3dadd(-144.98, -2093.18, -523.83, 0.67)
pt3dadd(-144.35, -2095.87, -524.68, 0.67)
pt3dadd(-142.99, -2097.9, -524.84, 0.67)
pt3dadd(-142.2, -2100.03, -524.95, 0.67)
pt3dadd(-140.6, -2102.7, -525.9, 0.67)
pt3dadd(-137.91, -2106.06, -526.49, 0.67)
pt3dadd(-136.83, -2106.45, -526.49, 0.67)
pt3dadd(-136.45, -2107.44, -528.45, 0.67)
pt3dadd(-136.41, -2108.56, -528.72, 0.67)
pt3dadd(-134.81, -2109.89, -529.89, 0.67)
pt3dadd(-133.29, -2111.9, -530.1, 0.67)
pt3dadd(-131.87, -2113.62, -531.9, 0.67)
pt3dadd(-130.03, -2115.32, -532.65, 0.67)
pt3dadd(-128.36, -2116.87, -533.02, 0.67)
pt3dadd(-126.82, -2118.51, -534.67, 0.67)
pt3dadd(-124.77, -2118.92, -536.26, 0.67)
pt3dadd(-121.89, -2119.22, -538.22, 0.67)
pt3dadd(-120.26, -2120.18, -540.35, 0.67)
pt3dadd(-119.34, -2121.96, -538.54, 0.67)
pt3dadd(-118.18, -2124.38, -537.59, 0.67)
pt3dadd(-115.39, -2127.23, -536.63, 0.67)
pt3dadd(-112.28, -2129.06, -536.63, 0.67)
}
}
proc shape3d_6() {
dend[32] { pt3dadd(-110.33, -2131.05, -536.63, 0.67)
pt3dadd(-107.81, -2133.63, -536.63, 0.67)
pt3dadd(-105.53, -2135.57, -536.63, 0.67)
pt3dadd(-105.58, -2137.38, -535.52, 0.67)
pt3dadd(-104.7, -2140.3, -535.52, 0.67)
pt3dadd(-104.52, -2142.58, -533.98, 0.52)
pt3dadd(-102.57, -2144.3, -535.57, 0.67)
pt3dadd(-100.6, -2145.11, -538.28, 0.67)
pt3dadd(-98.01, -2144.98, -540.67, 0.67)
pt3dadd(-95.77, -2144.99, -542.31, 0.67)
pt3dadd(-94.14, -2144.09, -545.5, 0.67)
pt3dadd(-91.05, -2143.09, -547.15, 0.67)
pt3dadd(-88.42, -2143.82, -551.61, 0.67)
pt3dadd(-86.4, -2143.9, -551.92, 0.67)
pt3dadd(-84.74, -2144.92, -551.92, 0.67)
pt3dadd(-83.55, -2147.24, -554.37, 0.67)
pt3dadd(-82.59, -2149.09, -555.01, 0.67)
pt3dadd(-82.01, -2150.74, -555.06, 0.52)
pt3dadd(-79.81, -2151.5, -555.85, 0.52)
pt3dadd(-78.87, -2152.38, -559.2, 0.52)
pt3dadd(-77.02, -2153.01, -560.95, 0.52)
pt3dadd(-73.77, -2153.59, -563.08, 0.52)
pt3dadd(-72.78, -2154.27, -563.08, 0.52)
pt3dadd(-70.26, -2155.25, -564.88, 0.52)
pt3dadd(-67.56, -2154.87, -564.94, 0.52)
pt3dadd(-64.87, -2156.09, -570.09, 0.52)
pt3dadd(-64.11, -2156.56, -570.35, 0.52)
pt3dadd(-62.28, -2157.86, -570.35, 0.52)
pt3dadd(-58.52, -2160.15, -572.26, 0.52)
pt3dadd(-55.5, -2163.73, -572.26, 0.52)
pt3dadd(-52.63, -2167.23, -572.26, 0.52)
pt3dadd(-48.5, -2170.34, -572.21, 0.52)
pt3dadd(-44.78, -2172.3, -572.21, 0.52)
pt3dadd(-41.05, -2175.23, -572.26, 0.52)
pt3dadd(-34.45, -2178.82, -569.93, 0.37)
pt3dadd(-29.95, -2180.61, -569.93, 0.37)
pt3dadd(-25.42, -2182.97, -570.25, 0.37)
pt3dadd(-21.04, -2184.31, -575.56, 0.37)
pt3dadd(-17.67, -2185.08, -575.72, 0.37)
pt3dadd(-15.68, -2186.33, -575.77, 0.37)
pt3dadd(-14.4, -2186.9, -576.62, 0.37)
pt3dadd(-12.8, -2188.76, -581.03, 0.37)
pt3dadd(-11.76, -2190.19, -583.68, 0.37)
pt3dadd(-11.28, -2189.6, -583.68, 0.15)
pt3dadd(-9.9, -2190.83, -587.77, 0.15)
}
dend[33] {pt3dclear()
pt3dadd(-225.32, -2015.24, -376.25, 1.71)
pt3dadd(-224.39, -2014.59, -369.83, 1.71)
pt3dadd(-224.05, -2013.88, -363.98, 1.64)
pt3dadd(-222.82, -2013.73, -357.61, 1.64)
pt3dadd(-221.97, -2014, -351.93, 1.64)
pt3dadd(-221.53, -2014.35, -351.93, 1.19)
pt3dadd(-220.73, -2014.83, -348.53, 1.19)
pt3dadd(-220.15, -2015.08, -345.4, 1.19)
pt3dadd(-219.85, -2015.59, -342.9, 1.19)
pt3dadd(-219.62, -2015.97, -341.57, 1.19)
pt3dadd(-219.46, -2016.39, -341.15, 1.19)
pt3dadd(-219.16, -2016.9, -340.09, 1.19)
pt3dadd(-218.78, -2017.11, -338.18, 1.19)
pt3dadd(-218.72, -2017.07, -335.73, 1.19)
pt3dadd(-217.96, -2017.48, -333.87, 1.19)
pt3dadd(-217.88, -2017.61, -333.24, 1.19)
pt3dadd(-216.9, -2018.4, -331.01, 1.19)
pt3dadd(-216.62, -2018.58, -330, 1.19)
pt3dadd(-216.05, -2019.1, -327.61, 1.19)
pt3dadd(-215.68, -2019.14, -325.38, 1.19)
pt3dadd(-214.57, -2018.83, -322.03, 1.19)
pt3dadd(-214.2, -2018.43, -316.46, 1.19)
pt3dadd(-215.36, -2018.52, -310.35, 1.19)
pt3dadd(-216.09, -2019.03, -305.99, 1.19)
pt3dadd(-215.96, -2019.99, -300.63, 1.19)
pt3dadd(-215.83, -2020.94, -295.9, 1.19)
pt3dadd(-215.37, -2022.04, -292.98, 1.19)
pt3dadd(-216.53, -2022.43, -292.47, 1.41)
pt3dadd(-217.89, -2023.72, -290.75, 1.41)
pt3dadd(-217.77, -2025.14, -286.98, 1.41)
pt3dadd(-217.67, -2025.34, -282.63, 1.41)
pt3dadd(-217.18, -2026.17, -279.02, 1.41)
pt3dadd(-216.59, -2026.53, -275.14, 1.41)
pt3dadd(-216.09, -2026.87, -272.96, 1.41)
pt3dadd(-215.76, -2026.87, -270.41, 1.41)
pt3dadd(-215.23, -2026.44, -267.39, 1.41)
pt3dadd(-214.86, -2026.34, -263.83, 1.41)
pt3dadd(-213.56, -2025.62, -261.49, 1.34)
pt3dadd(-212.3, -2025.33, -258.52, 1.34)
pt3dadd(-211.3, -2025, -256.71, 1.26)
pt3dadd(-210.87, -2026.03, -254, 1.26)
pt3dadd(-211.18, -2026.59, -249.12, 1.26)
pt3dadd(-209.65, -2026.16, -248.32, 1.26)
pt3dadd(-208.81, -2026, -243.28, 1.26)
pt3dadd(-208.05, -2025.7, -241.15, 1.26)
pt3dadd(-207.16, -2026.01, -238.18, 1.26)
pt3dadd(-206.56, -2026.02, -235.19, 1.26)
pt3dadd(-206.46, -2025.86, -234.67, 1.34)
pt3dadd(-206.72, -2026.26, -227.98, 1.34)
pt3dadd(-207.01, -2026.82, -224.48, 1.34)
pt3dadd(-206.4, -2027.01, -218.9, 1.34)
pt3dadd(-204.83, -2027.28, -214.01, 1.34)
pt3dadd(-204.66, -2027.07, -206.63, 1.34)
pt3dadd(-204.81, -2025.87, -201.16, 1.34)
pt3dadd(-204.61, -2024.8, -196.7, 1.34)
pt3dadd(-203.92, -2023.8, -197.76, 1.34)
pt3dadd(-202.98, -2023.81, -193.57, 1.26)
pt3dadd(-202.23, -2023.48, -189.11, 1.26)
pt3dadd(-201.2, -2023.77, -187.83, 1.26)
}
dend[34] {pt3dclear()
pt3dadd(-201.2, -2023.77, -187.83, 0.89)
pt3dadd(-201.91, -2024.7, -186.35, 0.89)
pt3dadd(-203.12, -2025.56, -184.91, 0.89)
pt3dadd(-204.11, -2025.64, -181.2, 0.89)
pt3dadd(-205.95, -2026.94, -176.84, 0.89)
pt3dadd(-205.28, -2026.18, -174.24, 0.89)
pt3dadd(-204.62, -2026.08, -170.26, 0.89)
pt3dadd(-203.45, -2025.31, -164.57, 0.89)
pt3dadd(-201.36, -2025.23, -162.77, 0.89)
pt3dadd(-200.22, -2024.84, -157.67, 0.89)
pt3dadd(-199.18, -2024.76, -152.78, 0.89)
pt3dadd(-197.78, -2024.56, -152.31, 0.67)
pt3dadd(-194.49, -2024.45, -149.01, 0.67)
pt3dadd(-192.97, -2024.08, -148, 0.67)
pt3dadd(-192.21, -2023.6, -146.89, 0.67)
pt3dadd(-190.63, -2023.66, -142.85, 0.67)
pt3dadd(-189.25, -2025.4, -138.39, 0.67)
pt3dadd(-188.36, -2026.32, -134.94, 0.67)
pt3dadd(-186.11, -2027.33, -132.07, 0.67)
pt3dadd(-185.32, -2028.12, -132.07, 0.52)
pt3dadd(-183.1, -2029.96, -130, 0.52)
pt3dadd(-181.44, -2031.51, -129.58, 0.52)
pt3dadd(-179.14, -2032.36, -126.92, 0.52)
pt3dadd(-176.39, -2033.23, -124.37, 0.52)
pt3dadd(-173.18, -2034.11, -124.37, 0.52)
pt3dadd(-171.03, -2034.49, -126.39, 0.52)
pt3dadd(-169.74, -2034.78, -119.17, 0.52)
pt3dadd(-168.75, -2034.8, -116.46, 0.52)
pt3dadd(-167.71, -2034.73, -113.8, 0.52)
pt3dadd(-165.71, -2033.22, -111.2, 0.45)
pt3dadd(-162.47, -2032.43, -109.13, 0.45)
pt3dadd(-161.67, -2030.99, -108.23, 0.45)
pt3dadd(-160.94, -2029.75, -103.98, 0.45)
pt3dadd(-158.11, -2029.65, -102.81, 0.45)
pt3dadd(-155.49, -2029.81, -102.12, 0.45)
pt3dadd(-154.39, -2029.54, -105.52, 0.45)
pt3dadd(-154.25, -2029.47, -110.3, 0.45)
pt3dadd(-154.94, -2030.29, -114.44, 0.45)
pt3dadd(-154.21, -2030.43, -116.94, 0.45)
}
dend[35] {pt3dclear()
pt3dadd(-201.2, -2023.77, -187.83, 0.89)
pt3dadd(-200.79, -2023.1, -183.11, 0.89)
pt3dadd(-200.34, -2022.8, -177.32, 0.89)
pt3dadd(-199.53, -2022.15, -175.35, 0.89)
pt3dadd(-198.42, -2022.26, -175.35, 0.89)
pt3dadd(-197.98, -2022.2, -171.21, 0.89)
pt3dadd(-196.67, -2022.38, -167.76, 0.89)
pt3dadd(-194.94, -2022.43, -165.16, 0.89)
pt3dadd(-193.02, -2022.67, -163.99, 0.89)
pt3dadd(-191.62, -2022.02, -162.34, 0.89)
pt3dadd(-190.46, -2022.22, -159.32, 0.89)
pt3dadd(-188.66, -2022.18, -158.31, 0.89)
pt3dadd(-187.01, -2021.19, -154.27, 0.89)
pt3dadd(-185.2, -2020.18, -152.78, 0.89)
pt3dadd(-183.97, -2019.33, -149.6, 0.89)
pt3dadd(-182.77, -2018.33, -146.62, 0.89)
pt3dadd(-181.26, -2017.89, -143.23, 0.89)
pt3dadd(-179.8, -2017.6, -140.2, 0.89)
pt3dadd(-178.56, -2018.32, -136.64, 0.89)
pt3dadd(-177.75, -2019.77, -133.29, 0.89)
pt3dadd(-176.65, -2020.65, -132.18, 0.89)
pt3dadd(-174.69, -2021.71, -128.46, 0.89)
pt3dadd(-172.41, -2022.42, -123.68, 0.89)
pt3dadd(-171.66, -2022.91, -121.93, 0.89)
pt3dadd(-170.98, -2024.1, -121.93, 0.74)
pt3dadd(-169.3, -2024.7, -118.96, 0.74)
pt3dadd(-167.42, -2025.2, -116.89, 0.74)
pt3dadd(-166.26, -2025.23, -115.5, 0.59)
pt3dadd(-165.42, -2026.31, -112.69, 0.59)
pt3dadd(-163.98, -2026.94, -110.35, 0.59)
pt3dadd(-163.08, -2026.76, -110.35, 0.45)
pt3dadd(-161.04, -2026.38, -108.12, 0.45)
pt3dadd(-158.88, -2025.2, -106.48, 0.45)
pt3dadd(-156.55, -2024.76, -104.09, 0.45)
pt3dadd(-154.41, -2024.41, -102.44, 0.45)
pt3dadd(-149.79, -2022.89, -99.04, 0.45)
pt3dadd(-147.24, -2021.86, -96.23, 0.45)
pt3dadd(-145.38, -2021.96, -93.15, 0.45)
pt3dadd(-143.63, -2022.53, -94, 0.45)
pt3dadd(-141.11, -2023.72, -90.44, 0.45)
pt3dadd(-139.8, -2024.24, -86.51, 0.45)
pt3dadd(-140.36, -2022.87, -78.38, 0.45)
pt3dadd(-139.77, -2022.03, -75.62, 0.45)
pt3dadd(-139.34, -2019.33, -73.02, 0.45)
pt3dadd(-137.97, -2017.7, -69.83, 0.45)
}
dend[36] {pt3dclear()
pt3dstyle(1, -284.325, -1961.11, -408.371)
pt3dadd(-283.95, -1968.71, -394.15, 2.16)
pt3dadd(-283.05, -1970.01, -396.38, 2.16)
pt3dadd(-281.78, -1971.95, -397.12, 2.01)
pt3dadd(-280.46, -1973.63, -397.87, 2.01)
pt3dadd(-279.14, -1975.71, -395.53, 1.93)
pt3dadd(-277.64, -1978.36, -395.53, 1.93)
pt3dadd(-276.15, -1981.17, -395.58, 1.93)
pt3dadd(-273.47, -1984.83, -391.12, 1.93)
pt3dadd(-272.7, -1986.75, -391.12, 1.93)
pt3dadd(-271.12, -1989.77, -389.32, 1.93)
pt3dadd(-268.21, -1994.3, -386.77, 1.93)
}
}
proc shape3d_7() {
dend[36] { pt3dadd(-265.28, -1997.61, -386.77, 1.71)
pt3dadd(-263.77, -1999.93, -386.45, 1.71)
pt3dadd(-261.83, -2002.02, -384.16, 1.71)
pt3dadd(-258.49, -2007.17, -383.74, 1.64)
pt3dadd(-256.72, -2010.99, -379.7, 1.64)
pt3dadd(-256.24, -2012.63, -379.7, 1.64)
}
dend[37] {pt3dclear()
pt3dadd(-256.24, -2012.63, -379.7, 1.49)
pt3dadd(-254.96, -2014.41, -379.7, 1.49)
pt3dadd(-254.09, -2017.66, -379.65, 1.49)
pt3dadd(-253.18, -2020.09, -379.01, 1.49)
pt3dadd(-252.28, -2022.11, -379.07, 1.49)
pt3dadd(-250.22, -2025.64, -379.01, 1.49)
pt3dadd(-248, -2028.46, -379.44, 1.49)
pt3dadd(-244.75, -2032.67, -379.49, 1.49)
pt3dadd(-243.28, -2033.96, -379.49, 1.49)
pt3dadd(-237.56, -2040.71, -380.87, 1.49)
pt3dadd(-235.64, -2044.14, -383, 1.49)
pt3dadd(-234.72, -2045.11, -383, 1.49)
}
dend[38] {pt3dclear()
pt3dadd(-234.72, -2045.11, -383, 1.34)
pt3dadd(-233.21, -2047.59, -382.94, 1.34)
pt3dadd(-229.97, -2050.68, -382.94, 1.34)
pt3dadd(-227.01, -2053.89, -382.94, 1.34)
pt3dadd(-223.44, -2057.72, -382.94, 1.34)
pt3dadd(-220.79, -2060.03, -380.39, 1.34)
pt3dadd(-218.45, -2062.44, -381.83, 1.34)
pt3dadd(-215.91, -2065.76, -381.83, 1.34)
}
dend[39] {pt3dclear()
pt3dadd(-215.91, -2065.76, -381.83, 0.89)
pt3dadd(-214.05, -2068.33, -382.84, 0.89)
pt3dadd(-211.79, -2071.21, -385.86, 0.89)
pt3dadd(-208.21, -2073.99, -386.71, 0.89)
pt3dadd(-204.83, -2077.02, -387.35, 0.89)
pt3dadd(-201.94, -2079.86, -388.94, 0.89)
pt3dadd(-199.29, -2082.72, -392.08, 0.89)
pt3dadd(-197.07, -2084.24, -392.77, 0.89)
pt3dadd(-195.13, -2085.89, -394.2, 0.89)
pt3dadd(-192.95, -2087.51, -394.89, 0.89)
pt3dadd(-191.06, -2089.01, -396.91, 0.89)
pt3dadd(-189.93, -2090.45, -398.56, 0.89)
pt3dadd(-187.89, -2092.13, -400.26, 0.89)
pt3dadd(-186.62, -2093.35, -402.01, 0.89)
pt3dadd(-184.55, -2095.64, -405.99, 0.89)
pt3dadd(-183.32, -2097.68, -409.92, 0.89)
pt3dadd(-182.05, -2098.89, -411.41, 0.89)
pt3dadd(-180.1, -2098.53, -411.41, 0.97)
pt3dadd(-177.25, -2098.66, -415.98, 0.97)
pt3dadd(-174.4, -2100.18, -417.83, 0.97)
pt3dadd(-171.91, -2101.63, -419.96, 0.97)
pt3dadd(-170.09, -2102.89, -423.14, 0.97)
pt3dadd(-167.1, -2104.02, -426.76, 0.97)
pt3dadd(-165.32, -2104.66, -427.82, 0.97)
pt3dadd(-163.14, -2106.16, -429.99, 0.97)
pt3dadd(-161.07, -2107.07, -431.75, 0.97)
pt3dadd(-157.94, -2107.97, -433.71, 0.97)
pt3dadd(-156.34, -2109.09, -436.58, 0.97)
pt3dadd(-153.48, -2110.28, -438.44, 0.97)
pt3dadd(-150.6, -2111.54, -440.14, 0.97)
pt3dadd(-148.79, -2112.4, -443.32, 0.97)
pt3dadd(-146.57, -2114.29, -444.23, 0.97)
pt3dadd(-144.08, -2115.74, -447.73, 0.97)
pt3dadd(-140.93, -2118.25, -450.65, 0.97)
pt3dadd(-138.65, -2119.96, -452.46, 0.97)
pt3dadd(-135.46, -2122.05, -453.1, 0.97)
pt3dadd(-132.42, -2123.97, -455.27, 0.97)
pt3dadd(-131.95, -2124.98, -455.43, 0.97)
}
dend[40] {pt3dclear()
pt3dadd(-131.95, -2124.98, -455.43, 0.82)
pt3dadd(-129.27, -2124.67, -459.26, 0.82)
pt3dadd(-126.4, -2123.97, -461.33, 0.82)
pt3dadd(-124.61, -2124.28, -464.73, 0.82)
pt3dadd(-122.07, -2124.96, -466.9, 0.82)
pt3dadd(-121.43, -2125.3, -466.9, 0.74)
pt3dadd(-120.61, -2126.35, -472.53, 0.74)
pt3dadd(-119.4, -2127.04, -475.56, 0.74)
pt3dadd(-118.7, -2127.53, -476.99, 0.74)
pt3dadd(-117.6, -2128.84, -479.49, 0.74)
pt3dadd(-116.19, -2129.84, -480.13, 0.74)
pt3dadd(-114.25, -2130.92, -480.82, 0.67)
pt3dadd(-112.78, -2131.61, -483.42, 0.67)
pt3dadd(-111.35, -2132.5, -484.64, 0.67)
pt3dadd(-110.06, -2132.78, -487.93, 0.67)
pt3dadd(-109.16, -2133.95, -491.23, 0.67)
pt3dadd(-108.38, -2134.94, -494.15, 0.67)
pt3dadd(-107.89, -2136.03, -495.9, 0.67)
pt3dadd(-106.84, -2137.02, -497.6, 0.67)
pt3dadd(-105.51, -2137.62, -499.67, 0.67)
pt3dadd(-104.81, -2139.02, -504.5, 0.67)
pt3dadd(-103.57, -2140.68, -505.78, 0.52)
pt3dadd(-102.32, -2142.6, -507.63, 0.52)
pt3dadd(-101.75, -2145.63, -511.46, 0.52)
pt3dadd(-99.99, -2146.47, -514.8, 0.52)
pt3dadd(-97.95, -2147.57, -518.47, 0.52)
pt3dadd(-95.99, -2147.92, -518.63, 0.52)
pt3dadd(-94.22, -2148.32, -518.73, 0.37)
pt3dadd(-90.46, -2149.57, -517.46, 0.37)
pt3dadd(-87.28, -2149.97, -515.92, 0.37)
pt3dadd(-83.59, -2150.46, -514.8, 0.22)
pt3dadd(-82.61, -2150.95, -515.6, 0.22)
}
dend[41] {pt3dclear()
pt3dadd(-131.95, -2124.98, -455.43, 0.82)
pt3dadd(-131.15, -2126.32, -455.43, 0.82)
pt3dadd(-127.9, -2130.1, -460.32, 0.82)
pt3dadd(-125.59, -2132.93, -463.4, 0.82)
pt3dadd(-122.95, -2134.87, -465.2, 0.82)
pt3dadd(-117.88, -2138.86, -465.73, 0.82)
pt3dadd(-115.48, -2141, -465.73, 0.82)
pt3dadd(-114.32, -2142.49, -465.79, 0.82)
pt3dadd(-110.3, -2146.16, -463.77, 0.82)
pt3dadd(-108.87, -2147.45, -461.65, 0.82)
pt3dadd(-106.73, -2149.05, -461.59, 0.82)
pt3dadd(-102.68, -2151.72, -461.59, 0.82)
pt3dadd(-99.01, -2153.42, -461.59, 0.82)
pt3dadd(-94.51, -2156.7, -461.59, 0.82)
pt3dadd(-88.96, -2161.19, -461.59, 0.82)
pt3dadd(-85.1, -2164.86, -459.31, 0.82)
pt3dadd(-80.62, -2168.46, -456.65, 0.82)
pt3dadd(-71.28, -2173.66, -456.81, 0.82)
pt3dadd(-64.5, -2177.25, -458.03, 0.82)
pt3dadd(-59.29, -2179.95, -458.78, 0.82)
pt3dadd(-55.22, -2183.91, -458.94, 0.82)
pt3dadd(-49.87, -2188.83, -462.12, 0.82)
pt3dadd(-45.72, -2190.15, -463.4, 0.82)
pt3dadd(-44.73, -2190.17, -468.71, 0.82)
pt3dadd(-41.97, -2191.33, -468.71, 0.74)
pt3dadd(-39.35, -2193.02, -474.34, 0.74)
pt3dadd(-36.95, -2194.77, -475.77, 0.74)
pt3dadd(-33.85, -2195.85, -476.04, 0.74)
pt3dadd(-30.66, -2197.69, -476.04, 0.74)
pt3dadd(-28.31, -2200.28, -476.04, 0.74)
pt3dadd(-25.88, -2200.66, -475.98, 0.74)
pt3dadd(-21.79, -2203.67, -479.28, 0.74)
pt3dadd(-16.82, -2205.87, -480.98, 0.74)
pt3dadd(-12.82, -2207.59, -482.3, 0.74)
pt3dadd(-8.65, -2209.28, -485.91, 0.74)
pt3dadd(-5.7, -2210.65, -485.91, 0.74)
pt3dadd(-2.75, -2212.41, -490.16, 0.74)
pt3dadd(0.51, -2214.1, -493.77, 0.59)
pt3dadd(3.73, -2215.74, -497.54, 0.59)
}
dend[42] {pt3dclear()
pt3dadd(-215.91, -2065.76, -381.83, 1.11)
pt3dadd(-214.17, -2067.5, -375.46, 1.11)
pt3dadd(-210.98, -2070.12, -373.86, 0.89)
pt3dadd(-208.75, -2072.93, -371.1, 0.89)
pt3dadd(-206.78, -2074.08, -367.49, 0.89)
pt3dadd(-203.71, -2076.6, -364.52, 0.89)
pt3dadd(-199.44, -2078.35, -364.52, 0.89)
pt3dadd(-195.29, -2078.92, -364.52, 0.89)
pt3dadd(-191.95, -2082.05, -361.17, 0.89)
pt3dadd(-188.53, -2082.8, -360.48, 0.89)
pt3dadd(-184.26, -2084.54, -357.82, 0.89)
pt3dadd(-181.44, -2086.12, -355.97, 0.89)
pt3dadd(-180.6, -2086.77, -355.97, 0.67)
pt3dadd(-178.79, -2087.94, -352.62, 0.67)
pt3dadd(-176.79, -2089.76, -350.66, 0.67)
pt3dadd(-174.72, -2091.38, -348.42, 0.67)
pt3dadd(-173.56, -2092.5, -346.62, 0.67)
pt3dadd(-172.47, -2094.52, -344.6, 0.67)
pt3dadd(-170.34, -2097.12, -344.87, 0.67)
pt3dadd(-166.94, -2099.85, -343.22, 0.67)
pt3dadd(-164.51, -2102.1, -343.22, 0.67)
pt3dadd(-163.12, -2103.01, -342.58, 0.67)
pt3dadd(-161.7, -2104.16, -340.09, 0.67)
pt3dadd(-159.71, -2105.65, -336, 0.52)
pt3dadd(-155.99, -2108.79, -336.64, 0.52)
pt3dadd(-150.61, -2113, -336.64, 0.52)
pt3dadd(-147.66, -2116.58, -336.64, 0.52)
pt3dadd(-145.28, -2120.67, -341.79, 0.52)
pt3dadd(-143.1, -2125.13, -347.47, 0.52)
pt3dadd(-142.42, -2127.47, -347.52, 0.52)
pt3dadd(-138.25, -2130.94, -351.35, 0.52)
pt3dadd(-135.7, -2134.58, -353.36, 0.52)
pt3dadd(-133.28, -2137.02, -354.9, 0.52)
}
dend[43] {pt3dclear()
pt3dadd(-234.72, -2045.11, -383, 1.26)
pt3dadd(-233.69, -2046.51, -392.82, 1.26)
pt3dadd(-233.09, -2047.13, -395.42, 1.26)
pt3dadd(-232.17, -2047.94, -397.81, 1.26)
pt3dadd(-231.23, -2049.14, -400.42, 1.26)
pt3dadd(-230.39, -2050.47, -405.35, 1.26)
pt3dadd(-229.16, -2052.34, -406.31, 1.26)
pt3dadd(-227.66, -2052.7, -407.27, 1.26)
pt3dadd(-227.43, -2052.94, -407.79, 1.26)
pt3dadd(-227.02, -2053, -408.42, 0.97)
pt3dadd(-226.11, -2052.45, -412.95, 0.97)
pt3dadd(-224.59, -2051.66, -415.87, 0.97)
pt3dadd(-223.32, -2051.22, -420.28, 0.97)
pt3dadd(-221.73, -2050.23, -422.56, 0.97)
pt3dadd(-221.65, -2049.54, -423.78, 0.97)
pt3dadd(-220.48, -2049.23, -427.07, 0.97)
pt3dadd(-219.52, -2048.46, -429.99, 0.97)
pt3dadd(-217.74, -2047.38, -431.75, 0.97)
pt3dadd(-216, -2047.22, -434.88, 0.97)
pt3dadd(-214.96, -2046.65, -438.7, 0.97)
pt3dadd(-213.26, -2045.2, -445.13, 0.97)
pt3dadd(-210.12, -2044.54, -449.06, 0.89)
pt3dadd(-207.27, -2043.44, -454.48, 0.89)
pt3dadd(-206.38, -2042.54, -458.83, 0.89)
pt3dadd(-205.53, -2041.9, -462.28, 0.89)
pt3dadd(-204.28, -2041.26, -466.05, 0.89)
pt3dadd(-203.48, -2042.06, -473.01, 0.89)
pt3dadd(-203.32, -2043.37, -473.54, 0.89)
pt3dadd(-202.54, -2044.27, -479.86, 0.89)
pt3dadd(-201.62, -2044.72, -485.38, 0.89)
pt3dadd(-200.28, -2045.25, -488.09, 0.89)
pt3dadd(-199.13, -2047.51, -492.77, 0.89)
}
}
proc shape3d_8() {
dend[43] { pt3dadd(-198.93, -2049.42, -495.31, 0.89)
pt3dadd(-198.32, -2050.34, -501, 0.89)
pt3dadd(-196.88, -2051.42, -505.09, 0.89)
pt3dadd(-196.47, -2053.1, -507.26, 0.89)
pt3dadd(-194.65, -2055.17, -511.03, 0.82)
pt3dadd(-193.32, -2057.3, -514.01, 0.82)
pt3dadd(-191.99, -2059.7, -516.56, 0.82)
pt3dadd(-191.97, -2060.66, -516.66, 0.74)
pt3dadd(-191.21, -2063, -519.64, 0.74)
pt3dadd(-191.01, -2065.18, -524.58, 0.74)
pt3dadd(-190.69, -2066.74, -525.16, 0.74)
pt3dadd(-190.26, -2067.28, -525.16, 0.67)
pt3dadd(-188.98, -2068.39, -528.08, 0.67)
pt3dadd(-187.63, -2069.08, -529.04, 0.67)
pt3dadd(-184.91, -2069.4, -535.83, 0.67)
pt3dadd(-183.6, -2069.5, -538.7, 0.67)
pt3dadd(-180.94, -2069.33, -541.3, 0.67)
pt3dadd(-178.91, -2070.37, -542.95, 0.67)
pt3dadd(-177.18, -2071.89, -545.82, 0.67)
pt3dadd(-174.84, -2072.72, -545.71, 0.67)
pt3dadd(-172.33, -2073.8, -551.02, 0.67)
pt3dadd(-169.74, -2074.47, -554.53, 0.67)
pt3dadd(-167.42, -2075.67, -557.18, 0.67)
pt3dadd(-164.85, -2077.78, -559.2, 0.67)
pt3dadd(-161.73, -2079.25, -561.91, 0.67)
pt3dadd(-160.47, -2079.92, -562.07, 0.67)
}
dend[44] {pt3dclear()
pt3dadd(-160.47, -2079.92, -562.07, 0.74)
pt3dadd(-158.52, -2081.38, -566.64, 0.74)
}
dend[45] {pt3dclear()
pt3dadd(-158.52, -2081.38, -566.64, 0.37)
pt3dadd(-156.16, -2082.64, -562.23, 0.37)
pt3dadd(-153, -2084.97, -566.32, 0.37)
pt3dadd(-149.75, -2087.43, -566.32, 0.37)
pt3dadd(-144.27, -2091.5, -565.41, 0.37)
pt3dadd(-142.77, -2093.61, -565.41, 0.37)
pt3dadd(-140.93, -2097.44, -562.12, 0.37)
pt3dadd(-140.32, -2099.43, -558.67, 0.37)
pt3dadd(-140.16, -2102.34, -555.64, 0.37)
}
dend[46] {pt3dclear()
pt3dadd(-158.52, -2081.38, -566.64, 0.45)
pt3dadd(-157.39, -2081.06, -568.97, 0.45)
pt3dadd(-152.73, -2083.1, -575.45, 0.45)
pt3dadd(-148.48, -2086.4, -577.31, 0.45)
pt3dadd(-146.12, -2089.26, -577.31, 0.45)
pt3dadd(-144.1, -2090.67, -577.26, 0.45)
}
dend[47] {pt3dclear()
pt3dadd(-160.47, -2079.92, -562.07, 0.37)
pt3dadd(-160.4, -2081.92, -562.02, 0.37)
pt3dadd(-160.77, -2083.5, -561.17, 0.37)
pt3dadd(-162.87, -2084.37, -560.26, 0.37)
pt3dadd(-164.27, -2085.74, -561.43, 0.37)
}
dend[48] {pt3dclear()
pt3dadd(-256.24, -2012.63, -379.7, 1.64)
pt3dadd(-256.03, -2014.56, -371.31, 1.64)
pt3dadd(-256.59, -2015.86, -366.48, 1.64)
pt3dadd(-257.38, -2017.75, -362.92, 1.41)
pt3dadd(-256.34, -2019.55, -358.51, 1.41)
pt3dadd(-255.12, -2021.03, -356.23, 1.41)
pt3dadd(-253.35, -2021.65, -352.9, 1.41)
pt3dadd(-252.91, -2022.38, -352.2, 0.74)
pt3dadd(-253.56, -2025.35, -349.17, 0.74)
pt3dadd(-254.74, -2027.45, -348.16, 0.74)
}
dend[49] {pt3dclear()
pt3dadd(-254.74, -2027.45, -348.16, 0.52)
pt3dadd(-256.62, -2024.76, -346.83, 0.52)
pt3dadd(-258.93, -2021.54, -345.66, 0.52)
pt3dadd(-260.09, -2017.49, -347.73, 0.52)
pt3dadd(-261.92, -2012.78, -350.23, 0.52)
pt3dadd(-262.87, -2005.22, -352.94, 0.52)
pt3dadd(-261.56, -2003.97, -351.51, 0.37)
pt3dadd(-260.95, -2003.09, -350.76, 0.37)
pt3dadd(-260.9, -2000.05, -350.87, 0.37)
pt3dadd(-260.85, -1997.01, -352.2, 0.37)
pt3dadd(-260.69, -1995.79, -352.94, 0.37)
}
dend[50] {pt3dclear()
pt3dadd(-254.74, -2027.45, -348.16, 0.67)
pt3dadd(-253.47, -2028.29, -348.16, 0.67)
pt3dadd(-250.73, -2030.88, -345.19, 0.67)
pt3dadd(-249.63, -2032.38, -342.53, 0.67)
pt3dadd(-248.66, -2033.3, -339.5, 0.67)
pt3dadd(-247.42, -2033.91, -335.15, 0.67)
pt3dadd(-246.89, -2034.8, -331.11, 0.67)
pt3dadd(-246.38, -2035.62, -326.39, 0.67)
pt3dadd(-245.34, -2037.16, -323.36, 0.67)
pt3dadd(-244.34, -2037.48, -321.13, 0.67)
pt3dadd(-242.98, -2037.53, -314.92, 0.67)
pt3dadd(-242.12, -2037.75, -307.91, 0.67)
pt3dadd(-243.22, -2036.57, -303.5, 0.67)
pt3dadd(-244.53, -2035.17, -300.21, 0.67)
pt3dadd(-245.86, -2034.03, -298.61, 0.67)
pt3dadd(-247.63, -2032.69, -296.59, 0.67)
pt3dadd(-248.6, -2031.61, -295.69, 0.59)
pt3dadd(-249.07, -2031.28, -294.49, 0.59)
pt3dadd(-249.82, -2031.19, -294.1, 0.59)
pt3dadd(-252.43, -2030.42, -289.64, 0.59)
pt3dadd(-254.71, -2028.49, -286.29, 0.59)
pt3dadd(-256.72, -2026.43, -284.75, 0.59)
pt3dadd(-257.62, -2023.25, -283, 0.59)
pt3dadd(-259.33, -2021.3, -278.91, 0.59)
pt3dadd(-261.33, -2018.91, -276.04, 0.59)
pt3dadd(-262.87, -2016.78, -273.49, 0.59)
pt3dadd(-264.58, -2014.82, -269.72, 0.59)
pt3dadd(-266.95, -2011.54, -264.41, 0.59)
pt3dadd(-269.61, -2007.99, -260.48, 0.59)
pt3dadd(-271.34, -2005.47, -260.48, 0.59)
pt3dadd(-274.6, -2001.39, -257.4, 0.59)
pt3dadd(-276.6, -1999.33, -256.5, 0.45)
pt3dadd(-279.43, -1996.11, -254.38, 0.45)
pt3dadd(-281.34, -1993.59, -254.38, 0.45)
pt3dadd(-283.64, -1991.43, -253.1, 0.3)
pt3dadd(-284.45, -1989.28, -251.14, 0.3)
pt3dadd(-285.54, -1986.24, -248.06, 0.3)
pt3dadd(-286.45, -1984.22, -241.36, 0.3)
pt3dadd(-287.21, -1983.69, -234.25, 0.3)
}
dend[51] {pt3dclear()
pt3dstyle(1, -284.325, -1961.11, -408.371)
pt3dadd(-282.36, -1953.92, -419.11, 2.6)
pt3dadd(-281.38, -1951.83, -423.57, 2.6)
pt3dadd(-280.82, -1949.86, -427.55, 2.6)
pt3dadd(-279.96, -1947.49, -429.25, 2.6)
pt3dadd(-279.23, -1945.03, -434.4, 2.6)
pt3dadd(-279.06, -1942.25, -435.94, 2.6)
pt3dadd(-278.36, -1940.05, -439.55, 2.6)
pt3dadd(-277.93, -1937.48, -444.55, 2.6)
pt3dadd(-277.06, -1936.18, -448.1, 2.6)
}
dend[52] {pt3dclear()
pt3dadd(-277.06, -1936.18, -448.1, 1.93)
pt3dadd(-278.39, -1934.92, -448.05, 1.93)
pt3dadd(-279.56, -1932.61, -450.71, 1.93)
pt3dadd(-280.04, -1929.49, -456.65, 1.93)
pt3dadd(-281.32, -1926.58, -458.57, 1.93)
pt3dadd(-282.43, -1924.57, -462.76, 1.93)
pt3dadd(-283.45, -1921.87, -466.85, 1.93)
pt3dadd(-282.29, -1922.14, -467.06, 1.56)
pt3dadd(-283.52, -1920.29, -472.8, 1.56)
pt3dadd(-284.9, -1917.22, -475.67, 1.56)
pt3dadd(-285.89, -1914.87, -481.67, 1.56)
pt3dadd(-287.31, -1912.97, -487.72, 1.56)
pt3dadd(-287.9, -1912.47, -488.62, 1.56)
}
dend[53] {pt3dclear()
pt3dadd(-287.9, -1912.47, -488.62, 0.82)
pt3dadd(-289.29, -1912.47, -488.78, 0.82)
pt3dadd(-290.65, -1912.57, -488.78, 0.82)
pt3dadd(-290.88, -1914.12, -488.78, 0.82)
pt3dadd(-292.51, -1913.95, -490, 0.82)
pt3dadd(-292.86, -1915.58, -490.8, 0.82)
pt3dadd(-294.08, -1916.29, -487.24, 0.82)
}
dend[54] {pt3dclear()
pt3dadd(-294.08, -1916.29, -487.24, 0.67)
pt3dadd(-295.26, -1915.3, -490.32, 0.67)
pt3dadd(-296.98, -1913.06, -493.35, 0.67)
pt3dadd(-298.49, -1910.61, -497.49, 0.67)
pt3dadd(-299.37, -1909.28, -498.08, 0.67)
pt3dadd(-301.78, -1906.53, -499.88, 0.67)
pt3dadd(-303.92, -1903.78, -499.88, 0.67)
pt3dadd(-305.99, -1901.42, -499.88, 0.67)
pt3dadd(-307.21, -1898.86, -499.93, 0.67)
pt3dadd(-308.48, -1896.08, -501.47, 0.67)
pt3dadd(-309.17, -1895.3, -503.44, 0.67)
}
dend[55] {pt3dclear()
pt3dadd(-309.17, -1895.3, -503.44, 0.52)
pt3dadd(-310.96, -1893.37, -498.34, 0.52)
pt3dadd(-313.72, -1890.76, -493.93, 0.52)
pt3dadd(-316.01, -1888.46, -490.69, 0.52)
pt3dadd(-318.25, -1885.42, -487.45, 0.52)
pt3dadd(-319.96, -1880.89, -490.27, 0.52)
pt3dadd(-322.17, -1876.25, -491.7, 0.52)
pt3dadd(-323.32, -1871.36, -493.88, 0.52)
pt3dadd(-324.7, -1867.05, -496.7, 0.52)
pt3dadd(-326.92, -1864.18, -496.7, 0.52)
pt3dadd(-329.36, -1860.57, -500.25, 0.52)
pt3dadd(-332.24, -1856.27, -503.81, 0.52)
pt3dadd(-333.88, -1852.93, -503.86, 0.52)
pt3dadd(-335.62, -1849.57, -507.26, 0.52)
pt3dadd(-336.59, -1847.75, -505.62, 0.52)
pt3dadd(-339.61, -1843.11, -503.55, 0.52)
pt3dadd(-341.58, -1840.07, -498.87, 0.52)
pt3dadd(-343.76, -1836.73, -495.26, 0.52)
pt3dadd(-345.42, -1833.49, -491.12, 0.52)
pt3dadd(-348.28, -1827.59, -486.39, 0.52)
pt3dadd(-351.57, -1823.21, -480.6, 0.52)
}
dend[56] {pt3dclear()
pt3dadd(-309.17, -1895.3, -503.44, 0.52)
pt3dadd(-310.51, -1892.55, -503.44, 0.52)
pt3dadd(-311.75, -1889.83, -507.05, 0.52)
pt3dadd(-313.4, -1886.06, -509.12, 0.52)
pt3dadd(-314.41, -1883.28, -512.52, 0.52)
pt3dadd(-315.11, -1880.56, -517.78, 0.52)
pt3dadd(-315.88, -1878.16, -521.18, 0.52)
pt3dadd(-316.96, -1875.95, -526.17, 0.52)
pt3dadd(-318.48, -1874.03, -530.79, 0.52)
pt3dadd(-319.28, -1872.79, -531.59, 0.52)
pt3dadd(-319.43, -1872.39, -531.59, 1.11)
pt3dadd(-319.36, -1869.68, -537.53, 1.11)
pt3dadd(-317.73, -1866.1, -543.75, 1.11)
pt3dadd(-318.07, -1863.85, -545.07, 1.11)
pt3dadd(-316.93, -1861.13, -549.11, 1.11)
pt3dadd(-315.92, -1859.57, -549.96, 1.04)
pt3dadd(-314.46, -1858.42, -554.05, 1.04)
pt3dadd(-312.55, -1855.37, -557.71, 0.89)
pt3dadd(-312.18, -1854.06, -561.17, 0.89)
pt3dadd(-311.64, -1851.92, -561.17, 0.89)
pt3dadd(-310.34, -1849.45, -564.3, 0.89)
pt3dadd(-308.83, -1847.83, -567.75, 0.89)
pt3dadd(-307, -1847.23, -572.32, 0.89)
pt3dadd(-306.15, -1845.69, -575.45, 0.89)
pt3dadd(-306.53, -1842.3, -578.74, 0.89)
pt3dadd(-306.73, -1839.32, -582.89, 0.89)
pt3dadd(-306.66, -1836.61, -584.27, 0.89)
pt3dadd(-308.02, -1834.05, -588.2, 0.89)
pt3dadd(-307.93, -1833.68, -588.2, 0.67)
pt3dadd(-308.94, -1832.29, -591.28, 0.67)
}
}
proc shape3d_9() {
dend[56] { pt3dadd(-309.82, -1830.1, -596.11, 0.67)
pt3dadd(-310.1, -1828.38, -596.11, 0.67)
pt3dadd(-310.14, -1825.76, -597.33, 0.67)
pt3dadd(-310.54, -1824.04, -598.87, 0.67)
pt3dadd(-311.21, -1821.54, -601.58, 0.67)
pt3dadd(-311.22, -1820.39, -603.97, 0.67)
pt3dadd(-310.5, -1819.53, -603.97, 0.67)
pt3dadd(-310.89, -1817.91, -603.97, 0.67)
pt3dadd(-309.61, -1816.05, -604.87, 0.59)
pt3dadd(-309.8, -1814.12, -608.11, 0.59)
pt3dadd(-308.63, -1812.15, -613.37, 0.59)
pt3dadd(-306.89, -1808.97, -621.07, 0.52)
pt3dadd(-307.36, -1805.84, -622.71, 0.52)
pt3dadd(-307.82, -1803.02, -627.02, 0.52)
pt3dadd(-307.96, -1800.71, -631.11, 0.52)
pt3dadd(-307.68, -1798.51, -634.5, 0.52)
pt3dadd(-308.51, -1796.06, -634.5, 0.52)
pt3dadd(-309.39, -1793.25, -637.21, 0.52)
pt3dadd(-309.59, -1790.06, -639.97, 0.52)
pt3dadd(-310, -1787.5, -644.7, 0.52)
pt3dadd(-309.99, -1786.11, -644.7, 0.97)
pt3dadd(-309.75, -1785.01, -651.76, 0.97)
pt3dadd(-309.25, -1783.53, -655.91, 0.97)
pt3dadd(-307.82, -1780.7, -657.6, 0.89)
pt3dadd(-307.87, -1778.44, -661.38, 0.89)
pt3dadd(-308.12, -1775.82, -661.38, 0.89)
pt3dadd(-308.27, -1772.3, -662.65, 0.89)
pt3dadd(-307.75, -1768.89, -666.31, 0.82)
pt3dadd(-307.65, -1766.37, -666.31, 0.82)
pt3dadd(-307.41, -1759.63, -667.75, 0.82)
pt3dadd(-306.77, -1755.49, -669.55, 0.82)
pt3dadd(-307.21, -1752.19, -669.55, 0.82)
pt3dadd(-307.79, -1749.4, -670.77, 0.82)
pt3dadd(-309.29, -1743.1, -673.64, 0.74)
pt3dadd(-310.92, -1739.38, -673.7, 0.74)
pt3dadd(-313.27, -1734.15, -674.6, 0.74)
pt3dadd(-314.81, -1730.39, -674.65, 0.74)
pt3dadd(-314.93, -1728.96, -674.6, 0.74)
pt3dadd(-316.02, -1726.56, -677.04, 0.59)
pt3dadd(-314.77, -1723.29, -678.21, 0.59)
pt3dadd(-314.07, -1721.62, -678, 0.37)
}
dend[57] {pt3dclear()
pt3dadd(-294.08, -1916.29, -487.24, 0.67)
pt3dadd(-294.17, -1917.93, -487.24, 0.67)
pt3dadd(-292.93, -1920.65, -484.11, 0.67)
pt3dadd(-292.58, -1923.51, -484.11, 0.67)
pt3dadd(-290.71, -1926.53, -484.11, 0.67)
pt3dadd(-289.01, -1928.86, -484.11, 0.67)
pt3dadd(-287.28, -1931.52, -484.11, 0.67)
pt3dadd(-285.97, -1934.37, -481.56, 0.67)
pt3dadd(-284.26, -1938.63, -478.8, 0.67)
pt3dadd(-282.03, -1941.51, -476.99, 0.67)
pt3dadd(-280.42, -1943.72, -472.74, 0.67)
pt3dadd(-277.71, -1946.8, -465.04, 0.67)
pt3dadd(-276.81, -1947.63, -464.83, 0.67)
pt3dadd(-276.47, -1948.14, -465, 0.67)
pt3dadd(-275.98, -1949.08, -463.98, 0.67)
pt3dadd(-274.83, -1950.73, -463.93, 0.67)
pt3dadd(-273.86, -1953.22, -461.86, 0.67)
pt3dadd(-272.02, -1956.43, -460.53, 0.67)
pt3dadd(-270.35, -1958.82, -458.46, 0.67)
pt3dadd(-268.81, -1961.28, -456.07, 0.67)
pt3dadd(-267.63, -1963.33, -454, 0.67)
pt3dadd(-266.23, -1965.85, -453.04, 0.67)
pt3dadd(-264.52, -1967.81, -453.04, 0.67)
pt3dadd(-263.47, -1969.77, -452.99, 0.67)
pt3dadd(-261.85, -1970.86, -453.04, 0.67)
pt3dadd(-261.04, -1972.52, -453.04, 0.67)
pt3dadd(-258.61, -1975.74, -451.82, 0.67)
pt3dadd(-256.31, -1977.9, -451.87, 0.67)
pt3dadd(-254.43, -1980.03, -451.82, 0.67)
pt3dadd(-251.79, -1981.86, -451.71, 0.67)
pt3dadd(-251.6, -1982.92, -451.71, 0.67)
pt3dadd(-250.52, -1984.44, -451.71, 0.67)
pt3dadd(-248.54, -1985.94, -451.77, 0.52)
pt3dadd(-248.65, -1986.9, -451.71, 0.52)
pt3dadd(-248.63, -1988.62, -450.23, 0.52)
pt3dadd(-247.19, -1990.87, -448.32, 0.52)
pt3dadd(-246.2, -1991.54, -448.26, 0.52)
pt3dadd(-244.94, -1992.24, -448.26, 0.52)
pt3dadd(-244.5, -1994.49, -445.66, 0.52)
pt3dadd(-241.49, -1996.72, -444.6, 0.52)
pt3dadd(-238.07, -1999.97, -442, 0.37)
pt3dadd(-236.39, -2002.19, -441.94, 0.37)
pt3dadd(-234.55, -2004.25, -443.06, 0.37)
pt3dadd(-232.99, -2007.01, -442.47, 0.15)
}
dend[58] {pt3dclear()
pt3dadd(-287.9, -1912.47, -488.62, 1.49)
pt3dadd(-288.12, -1910.5, -489.69, 1.49)
pt3dadd(-288.74, -1908.17, -492.98, 1.49)
pt3dadd(-289.01, -1906.67, -496.85, 1.41)
pt3dadd(-290.09, -1904.73, -499.09, 1.34)
pt3dadd(-291.1, -1902.22, -503.17, 1.34)
pt3dadd(-292.25, -1900.32, -503.33, 1.26)
pt3dadd(-293.14, -1897.99, -505.67, 1.26)
pt3dadd(-293.77, -1895.67, -509.49, 1.26)
pt3dadd(-294.77, -1892.62, -514.49, 1.26)
}
dend[59] {pt3dclear()
pt3dadd(-294.77, -1892.62, -514.49, 1.04)
pt3dadd(-296.19, -1890.99, -513.26, 1.04)
pt3dadd(-296.87, -1888.17, -514.91, 1.04)
pt3dadd(-298.16, -1885.92, -514.91, 1.04)
pt3dadd(-301.03, -1882.86, -516.98, 1.04)
pt3dadd(-302.91, -1880.11, -516.98, 1.04)
pt3dadd(-304.94, -1876.18, -518.73, 1.04)
pt3dadd(-307.27, -1872.05, -520.59, 1.04)
pt3dadd(-309.35, -1869, -521.97, 1.04)
pt3dadd(-311.71, -1864.28, -523.09, 1.04)
pt3dadd(-313.22, -1862.35, -523.09, 1.04)
pt3dadd(-315.54, -1858.93, -524.79, 1.04)
pt3dadd(-316.99, -1856.43, -524.79, 1.04)
pt3dadd(-319.23, -1853.66, -526.86, 1.04)
pt3dadd(-321.05, -1851.4, -526.86, 1.04)
pt3dadd(-323.24, -1847.36, -527.6, 0.89)
pt3dadd(-324.86, -1844.83, -527.66, 0.89)
pt3dadd(-326.27, -1840.63, -527.66, 0.89)
pt3dadd(-328.13, -1835.32, -527.12, 0.89)
pt3dadd(-331.43, -1830.24, -527.07, 0.89)
pt3dadd(-332.13, -1826.29, -528.77, 0.89)
pt3dadd(-333.35, -1823.74, -528.98, 0.89)
pt3dadd(-334.91, -1820.25, -528.98, 0.89)
pt3dadd(-336.57, -1817.55, -528.98, 0.82)
pt3dadd(-338.57, -1812.85, -531.69, 0.82)
pt3dadd(-339.12, -1811.18, -531.69, 0.82)
pt3dadd(-339.16, -1810.8, -531.69, 1.04)
pt3dadd(-340.47, -1808.3, -534.4, 1.04)
pt3dadd(-343.24, -1803.75, -534.45, 1.04)
pt3dadd(-345, -1801.37, -534.45, 1.04)
pt3dadd(-346.23, -1798.2, -534.45, 1.04)
pt3dadd(-346.92, -1795.28, -534.45, 1.04)
}
dend[60] {pt3dclear()
pt3dadd(-346.92, -1795.28, -534.45, 1.04)
pt3dadd(-345.95, -1791.79, -536.68, 1.04)
pt3dadd(-345.28, -1788.24, -539.45, 1.04)
pt3dadd(-344.82, -1785.71, -543.48, 1.04)
pt3dadd(-345.08, -1783.84, -543.64, 0.89)
pt3dadd(-345.75, -1779.49, -548.15, 0.89)
pt3dadd(-346.38, -1776.81, -549.43, 0.74)
pt3dadd(-347.23, -1772.04, -552.03, 0.74)
pt3dadd(-348.11, -1769.52, -552.03, 0.74)
pt3dadd(-349.25, -1764.07, -555.01, 0.74)
pt3dadd(-351.05, -1760.55, -555.01, 0.74)
pt3dadd(-353.18, -1756.55, -554.85, 0.74)
pt3dadd(-354.83, -1752.86, -557.08, 0.74)
pt3dadd(-356.26, -1749.11, -558.78, 0.74)
pt3dadd(-356.98, -1746.03, -561.64, 0.74)
pt3dadd(-357.84, -1744.74, -561.64, 0.74)
pt3dadd(-357.31, -1741.37, -564.99, 0.74)
pt3dadd(-356.95, -1737.76, -567.8, 0.74)
pt3dadd(-357.65, -1735.11, -567.59, 0.74)
pt3dadd(-358.57, -1731.73, -570.35, 0.74)
pt3dadd(-358.19, -1728.01, -573.59, 0.74)
pt3dadd(-358.59, -1724.46, -573.59, 0.74)
pt3dadd(-358.83, -1723.02, -573.59, 0.74)
pt3dadd(-359.8, -1720.99, -576.67, 0.74)
pt3dadd(-359.86, -1719.16, -577.68, 0.74)
pt3dadd(-361.27, -1715.04, -578.8, 0.74)
pt3dadd(-363.34, -1711.8, -581.4, 0.74)
pt3dadd(-364.77, -1708.31, -581.4, 0.74)
pt3dadd(-366.82, -1703.91, -581.4, 0.74)
pt3dadd(-368.41, -1698.31, -583.2, 0.74)
pt3dadd(-368.54, -1695.02, -583.95, 0.74)
pt3dadd(-368.21, -1690.98, -585.65, 0.74)
pt3dadd(-369.29, -1687.61, -582.25, 0.74)
pt3dadd(-370.9, -1683.98, -579.81, 0.74)
pt3dadd(-372.15, -1680.92, -579.81, 0.67)
pt3dadd(-373.89, -1677.91, -579.27, 0.67)
pt3dadd(-374.5, -1674.58, -580.23, 0.67)
pt3dadd(-372.76, -1671.56, -583.68, 0.67)
pt3dadd(-372.34, -1668.44, -583.74, 0.67)
pt3dadd(-373.63, -1665.57, -586.66, 0.67)
pt3dadd(-375.11, -1663.09, -589.58, 0.45)
pt3dadd(-375.96, -1662.06, -590.75, 0.45)
pt3dadd(-374.3, -1659.66, -588.27, 0.74)
pt3dadd(-377.33, -1658.09, -589.15, 0.74)
pt3dadd(-378.06, -1655.11, -589.15, 0.74)
pt3dadd(-377.54, -1651.38, -592.23, 0.74)
pt3dadd(-377.99, -1649.09, -595.95, 0.74)
pt3dadd(-377.86, -1647.25, -595.1, 0.74)
pt3dadd(-376.3, -1643.18, -593.13, 0.74)
pt3dadd(-375.52, -1639.81, -591.49, 0.67)
pt3dadd(-374.41, -1636.85, -588.62, 0.67)
}
dend[61] {pt3dclear()
pt3dadd(-346.92, -1795.28, -534.45, 1.04)
pt3dadd(-347.49, -1793.89, -533.82, 1.04)
pt3dadd(-347.37, -1793.28, -533.82, 0.82)
pt3dadd(-347.49, -1791.23, -531.43, 0.82)
pt3dadd(-348.12, -1789.07, -529.62, 0.82)
pt3dadd(-348.81, -1785.89, -528.29, 0.82)
pt3dadd(-349.8, -1783.88, -525.85, 0.82)
pt3dadd(-351.81, -1782.21, -524.2, 0.82)
pt3dadd(-353.84, -1781.17, -521.71, 0.82)
pt3dadd(-355.18, -1780.64, -519.58, 0.74)
pt3dadd(-356.66, -1778.42, -514.64, 0.74)
pt3dadd(-357.78, -1777.13, -510.77, 0.74)
pt3dadd(-359.67, -1775.64, -510.77, 0.67)
pt3dadd(-360.94, -1773.47, -509.12, 0.67)
pt3dadd(-362.11, -1771.58, -509.12, 0.67)
pt3dadd(-363.12, -1770.21, -506.73, 0.67)
pt3dadd(-364.28, -1768.64, -505.72, 0.67)
pt3dadd(-364.96, -1767.5, -504.29, 0.67)
pt3dadd(-366.62, -1765.14, -502.38, 0.67)
pt3dadd(-367.19, -1762.41, -500.04, 0.67)
pt3dadd(-369.69, -1759.19, -497.44, 0.67)
pt3dadd(-372.52, -1754.42, -495.37, 0.52)
}
}
proc shape3d_10() {
dend[61] { pt3dadd(-373.83, -1751.12, -493.77, 0.52)
pt3dadd(-375.13, -1747.82, -493.77, 0.52)
pt3dadd(-376.34, -1745.34, -491.6, 0.52)
pt3dadd(-377.38, -1742.3, -491.23, 0.52)
pt3dadd(-378.4, -1739.43, -491.23, 0.52)
pt3dadd(-379.24, -1736.17, -489.84, 0.52)
pt3dadd(-380.47, -1734.06, -488.46, 0.52)
pt3dadd(-382.93, -1729.16, -488.41, 0.52)
pt3dadd(-384.95, -1725.45, -487.24, 0.52)
pt3dadd(-386.77, -1721.51, -488.52, 0.52)
pt3dadd(-388.23, -1718.13, -488.52, 0.52)
pt3dadd(-389.39, -1713.84, -487.61, 0.52)
pt3dadd(-391.31, -1710.15, -485.49, 0.52)
pt3dadd(-392.91, -1708.29, -483.68, 0.52)
pt3dadd(-394.35, -1705.34, -480.92, 0.52)
pt3dadd(-395.41, -1702.4, -480.45, 0.52)
pt3dadd(-397.71, -1700.03, -477.79, 0.52)
pt3dadd(-398.45, -1698.66, -476.99, 0.52)
pt3dadd(-399.41, -1696.71, -476.46, 0.52)
pt3dadd(-400.58, -1693.22, -472.43, 0.52)
pt3dadd(-401.52, -1690.47, -468.44, 0.52)
}
dend[62] {pt3dclear()
pt3dadd(-294.77, -1892.62, -514.49, 1.04)
pt3dadd(-294.57, -1891.17, -514.64, 1.04)
pt3dadd(-294.58, -1889.5, -519.8, 1.04)
pt3dadd(-293.9, -1887.82, -525.43, 1.04)
pt3dadd(-293.49, -1886.41, -530.36, 1.04)
pt3dadd(-293.72, -1884.97, -533.13, 1.04)
pt3dadd(-293.94, -1884.44, -533.13, 1.11)
pt3dadd(-293.63, -1882.37, -536.74, 1.11)
pt3dadd(-292.68, -1880.04, -542.68, 1.11)
pt3dadd(-291, -1876.8, -546.3, 1.11)
pt3dadd(-289.74, -1874.8, -550.17, 1.11)
pt3dadd(-290.1, -1872.38, -554.58, 1.11)
pt3dadd(-290.06, -1869.24, -558.62, 1.11)
pt3dadd(-288.81, -1865.74, -561.11, 1.11)
pt3dadd(-287.55, -1862.42, -564.09, 1.11)
pt3dadd(-286.74, -1859.48, -567.17, 1.11)
pt3dadd(-285.68, -1856.11, -569.87, 1.11)
pt3dadd(-284.79, -1853.47, -572.64, 1.11)
pt3dadd(-283.57, -1850.07, -577.42, 1.11)
pt3dadd(-282.6, -1846.85, -582.89, 1.11)
pt3dadd(-282.08, -1844.81, -586.92, 1.11)
pt3dadd(-281.64, -1843.73, -590.8, 1.11)
pt3dadd(-281, -1843.43, -590.8, 1.11)
pt3dadd(-281.18, -1841.91, -597.65, 1.11)
pt3dadd(-282.1, -1840.2, -601.74, 1.11)
pt3dadd(-282.86, -1838.33, -605.61, 1.11)
pt3dadd(-283.45, -1837.14, -606.62, 1.11)
pt3dadd(-283.71, -1834.42, -611.93, 1.11)
pt3dadd(-284.26, -1832.65, -614.38, 1.11)
pt3dadd(-284.5, -1830.25, -615.92, 1.11)
pt3dadd(-285.28, -1827.64, -616.77, 1.11)
pt3dadd(-285.85, -1824.61, -619.58, 0.89)
pt3dadd(-284.9, -1821.19, -622.66, 0.89)
pt3dadd(-284.78, -1819.14, -627.02, 0.89)
pt3dadd(-284.45, -1816.78, -630.2, 0.89)
pt3dadd(-284.44, -1813.58, -634.72, 0.89)
pt3dadd(-284.88, -1812.54, -634.88, 0.89)
pt3dadd(-285.66, -1809.62, -639.34, 0.89)
pt3dadd(-286.27, -1807.17, -642.95, 0.89)
pt3dadd(-286.52, -1804.66, -647.78, 0.89)
pt3dadd(-287.02, -1803.05, -650.33, 0.89)
pt3dadd(-287.56, -1802.29, -650.33, 1.11)
pt3dadd(-287.32, -1800.89, -655.32, 1.11)
pt3dadd(-286.34, -1799.09, -658.03, 1.11)
pt3dadd(-285.96, -1797.49, -662.01, 1.11)
pt3dadd(-285.35, -1796.43, -665.15, 1.11)
pt3dadd(-284.09, -1794.71, -667.85, 1.11)
pt3dadd(-283.19, -1792.1, -668.86, 1.04)
pt3dadd(-282.22, -1790.6, -673.22, 1.04)
pt3dadd(-280.63, -1789.59, -678.05, 1.04)
pt3dadd(-278.42, -1789.14, -680.71, 1.04)
pt3dadd(-274.89, -1788.06, -681.08, 1.04)
pt3dadd(-272.46, -1787.36, -684.64, 1.04)
pt3dadd(-270.34, -1786.11, -686.23, 1.04)
pt3dadd(-268.46, -1784.41, -690.48, 1.04)
pt3dadd(-266.6, -1784.33, -692.23, 1.04)
pt3dadd(-265.53, -1784.09, -693.88, 1.04)
pt3dadd(-264.72, -1783.4, -696.74, 1.04)
pt3dadd(-263.32, -1782.79, -699.19, 1.04)
pt3dadd(-261.53, -1782.45, -703.91, 0.97)
pt3dadd(-259.57, -1781.78, -705.61, 0.97)
pt3dadd(-258.32, -1781.62, -705.61, 0.82)
pt3dadd(-256.92, -1781.27, -709.75, 0.82)
pt3dadd(-255.57, -1780.09, -713.21, 0.82)
pt3dadd(-254.16, -1779.05, -716.18, 0.82)
pt3dadd(-252.37, -1778.36, -719.31, 0.82)
pt3dadd(-250.81, -1777.95, -720.38, 0.82)
}
dend[63] {pt3dclear()
pt3dadd(-250.81, -1777.95, -720.38, 0.59)
pt3dadd(-250.09, -1775.91, -725.37, 0.59)
pt3dadd(-249.27, -1773.65, -727.07, 0.59)
pt3dadd(-247.33, -1771.9, -731.21, 0.59)
pt3dadd(-246.11, -1769.2, -735.19, 0.59)
pt3dadd(-245.14, -1766.99, -737.1, 0.59)
pt3dadd(-243.62, -1765.16, -738.22, 0.59)
pt3dadd(-241.84, -1764.05, -740.18, 0.59)
pt3dadd(-239.88, -1762.62, -743.05, 0.59)
pt3dadd(-237.98, -1760.82, -747.46, 0.59)
pt3dadd(-236.06, -1758.65, -752.24, 0.59)
pt3dadd(-235.3, -1756.8, -753.62, 0.59)
pt3dadd(-233.51, -1755.01, -759.25, 0.59)
pt3dadd(-232.26, -1753.14, -763.66, 0.59)
pt3dadd(-232.09, -1752.77, -763.66, 0.82)
pt3dadd(-231.65, -1751.58, -768.28, 0.82)
pt3dadd(-231.53, -1750.99, -773, 0.82)
pt3dadd(-231.51, -1749.73, -775.13, 0.82)
pt3dadd(-230.5, -1749.13, -779, 0.82)
pt3dadd(-229.73, -1747.45, -779.27, 0.82)
pt3dadd(-227.35, -1745.38, -781.61, 0.82)
pt3dadd(-225.65, -1744.88, -782.88, 0.82)
pt3dadd(-224.51, -1744.59, -786.54, 0.82)
pt3dadd(-223.5, -1743.99, -788.67, 0.82)
pt3dadd(-223.13, -1743.33, -791.32, 0.82)
pt3dadd(-221.9, -1742.82, -792.28, 0.82)
pt3dadd(-220.66, -1741.73, -795.25, 0.82)
pt3dadd(-220.27, -1740.6, -796.85, 0.82)
pt3dadd(-219.27, -1739.1, -800.78, 0.82)
pt3dadd(-218.65, -1735.8, -802.05, 0.82)
pt3dadd(-217.49, -1732.88, -806.83, 0.82)
pt3dadd(-217.19, -1730.28, -810.02, 0.82)
pt3dadd(-217.15, -1728.54, -812.62, 0.82)
pt3dadd(-215.43, -1726, -817.93, 0.82)
pt3dadd(-213.56, -1724.97, -823.45, 0.82)
pt3dadd(-213.05, -1725.17, -823.45, 0.67)
pt3dadd(-212.23, -1723.94, -829.19, 0.67)
pt3dadd(-212.12, -1723, -832.11, 0.67)
pt3dadd(-211.61, -1722.22, -831.37, 0.67)
pt3dadd(-210.58, -1721.59, -833.01, 0.67)
pt3dadd(-209.47, -1720.61, -835.08, 0.67)
pt3dadd(-208.57, -1718.75, -836.3, 0.67)
pt3dadd(-208.5, -1716.81, -837.95, 0.52)
pt3dadd(-208.97, -1715.39, -840.66, 0.52)
pt3dadd(-210.55, -1714.85, -842.09, 0.52)
pt3dadd(-210.96, -1713.85, -841.67, 0.52)
pt3dadd(-211.87, -1712.59, -843.47, 0.52)
pt3dadd(-213.63, -1712.77, -843.63, 0.52)
pt3dadd(-214.71, -1713.92, -841.46, 0.52)
pt3dadd(-214.78, -1715.39, -841.46, 0.52)
pt3dadd(-216.5, -1718.47, -837.79, 0.52)
pt3dadd(-216.75, -1720.18, -837.74, 0.52)
pt3dadd(-218.22, -1723.34, -835.3, 0.52)
pt3dadd(-217.93, -1724.43, -835.19, 0.52)
pt3dadd(-217.94, -1725.95, -832.8, 0.52)
pt3dadd(-219.22, -1727.45, -832.8, 0.37)
}
dend[64] {pt3dclear()
pt3dadd(-250.81, -1777.95, -720.38, 0.52)
pt3dadd(-250.18, -1779.91, -722.45, 0.52)
pt3dadd(-249.68, -1782.13, -724.78, 0.52)
pt3dadd(-251.15, -1784.9, -726.11, 0.52)
pt3dadd(-255.36, -1788.42, -721.7, 0.52)
pt3dadd(-257.61, -1790.5, -721.7, 0.52)
pt3dadd(-258.45, -1793.23, -721.7, 0.52)
pt3dadd(-257.52, -1795.64, -721.7, 0.52)
pt3dadd(-256.91, -1798.18, -720.64, 0.52)
pt3dadd(-254.9, -1801.25, -724.89, 0.52)
pt3dadd(-254.48, -1803.01, -724.89, 0.52)
pt3dadd(-254.74, -1805.86, -721.12, 0.52)
pt3dadd(-255.16, -1809.57, -717.83, 0.52)
pt3dadd(-254.05, -1812.44, -718.46, 0.52)
}
dend[65] {pt3dclear()
pt3dadd(-277.06, -1936.18, -448.1, 1.93)
pt3dadd(-275.63, -1935.91, -449.22, 1.93)
pt3dadd(-274.98, -1935.36, -453.95, 1.93)
pt3dadd(-273.46, -1934.24, -457.18, 1.93)
pt3dadd(-272.57, -1932.27, -460.16, 1.93)
pt3dadd(-271.42, -1931.57, -463.82, 1.93)
pt3dadd(-270.89, -1931.32, -466.37, 1.93)
pt3dadd(-270.83, -1931.02, -467.29, 1.49)
pt3dadd(-270.58, -1930.48, -469.08, 1.49)
pt3dadd(-270.36, -1929.98, -474.76, 1.49)
pt3dadd(-270.12, -1929.82, -482.52, 1.49)
pt3dadd(-269.33, -1929.93, -489.58, 1.49)
pt3dadd(-267.97, -1929.84, -493.83, 1.49)
}
dend[66] {pt3dclear()
pt3dadd(-267.97, -1929.84, -493.83, 1.26)
pt3dadd(-267.44, -1928.61, -498.5, 1.26)
pt3dadd(-266.14, -1926.8, -501.58, 1.26)
pt3dadd(-265.27, -1924.73, -505.09, 1.26)
pt3dadd(-264.56, -1923.92, -508.33, 1.26)
pt3dadd(-262.87, -1922.56, -510.82, 1.26)
pt3dadd(-262.03, -1921.13, -512.63, 1.26)
pt3dadd(-261.23, -1921.4, -517.88, 1.26)
pt3dadd(-259.36, -1920.45, -521.39, 1.26)
pt3dadd(-258.62, -1918.74, -523.78, 1.26)
pt3dadd(-257.45, -1917.53, -530.42, 1.26)
pt3dadd(-254.37, -1916.41, -532.44, 1.26)
pt3dadd(-254.77, -1916.16, -532.44, 0.89)
pt3dadd(-254.6, -1916.05, -533.23, 1.19)
pt3dadd(-253.13, -1915.7, -536.58, 1.19)
pt3dadd(-252.52, -1915.55, -538.86, 1.19)
}
dend[67] {pt3dclear()
pt3dadd(-252.52, -1915.55, -538.86, 0.82)
pt3dadd(-250.46, -1914.08, -537.16, 0.82)
pt3dadd(-246.05, -1911.85, -535.67, 0.82)
pt3dadd(-242.45, -1911.5, -535.2, 0.67)
pt3dadd(-239.25, -1910.79, -533.44, 0.67)
pt3dadd(-236.04, -1909.71, -531, 0.67)
pt3dadd(-234.17, -1908.37, -531, 0.52)
pt3dadd(-231.65, -1906.52, -529.46, 0.52)
pt3dadd(-230.75, -1906.36, -529.46, 0.59)
pt3dadd(-228.84, -1905.62, -530.1, 0.59)
pt3dadd(-225.92, -1905.18, -528.72, 0.59)
pt3dadd(-222.87, -1905.72, -528.72, 0.59)
pt3dadd(-220.05, -1905.53, -528.24, 0.67)
}
}
proc shape3d_11() {
dend[67] { pt3dadd(-218.08, -1905.54, -527.34, 0.67)
pt3dadd(-216.51, -1904.68, -527.28, 0.67)
pt3dadd(-214.52, -1904.32, -526.43, 0.52)
pt3dadd(-213.63, -1904.44, -524.89, 0.52)
}
dend[68] {pt3dclear()
pt3dadd(-252.52, -1915.55, -538.86, 1.19)
pt3dadd(-251.35, -1915.83, -542.26, 1.19)
pt3dadd(-249.86, -1915.38, -543.27, 1.19)
pt3dadd(-248.65, -1915.46, -544.6, 1.04)
pt3dadd(-246.94, -1916, -549.48, 1.04)
pt3dadd(-245.16, -1917.21, -553.94, 1.04)
pt3dadd(-244.6, -1917.91, -557.5, 1.04)
pt3dadd(-243.29, -1918.01, -560.69, 1.04)
}
dend[69] {pt3dclear()
pt3dadd(-243.29, -1918.01, -560.69, 0.89)
pt3dadd(-242.67, -1917.59, -560.63, 0.89)
pt3dadd(-241.64, -1917, -560.63, 0.89)
pt3dadd(-240.15, -1916.01, -561.17, 0.89)
pt3dadd(-239.51, -1914.16, -564.4, 0.89)
pt3dadd(-238.4, -1912.88, -564.4, 0.89)
pt3dadd(-237.47, -1911.19, -566.32, 0.82)
pt3dadd(-236.78, -1909.67, -566.37, 0.82)
pt3dadd(-233.92, -1907.14, -570.14, 0.82)
pt3dadd(-233, -1904.76, -570.14, 0.82)
pt3dadd(-231.97, -1901.76, -572.53, 0.82)
pt3dadd(-230.62, -1899.35, -575.13, 0.82)
pt3dadd(-229.1, -1896.82, -576.94, 0.82)
pt3dadd(-227.18, -1894.47, -579.33, 0.82)
pt3dadd(-226.35, -1892.23, -582.04, 0.82)
pt3dadd(-225.65, -1891.87, -582.67, 0.82)
pt3dadd(-225.09, -1890.97, -586.34, 0.82)
pt3dadd(-224.86, -1888.81, -589.31, 0.82)
pt3dadd(-223.58, -1887.06, -591.33, 0.82)
pt3dadd(-223.34, -1885.43, -592.92, 0.82)
pt3dadd(-223.36, -1883.86, -595.37, 0.82)
pt3dadd(-223.12, -1882.65, -595.9, 0.74)
pt3dadd(-222.94, -1881.07, -597.01, 0.74)
pt3dadd(-223.07, -1879.4, -598.82, 0.74)
pt3dadd(-222.37, -1877.08, -601.05, 0.74)
pt3dadd(-222.29, -1875.08, -602.91, 0.74)
pt3dadd(-222.17, -1872.93, -605.46, 0.74)
pt3dadd(-222.3, -1871.36, -606.94, 0.74)
pt3dadd(-221.02, -1869.29, -608.22, 0.74)
pt3dadd(-219.68, -1867.79, -608.22, 0.74)
pt3dadd(-217.43, -1867.8, -609.44, 0.74)
pt3dadd(-215.65, -1867.76, -609.44, 0.74)
pt3dadd(-211.79, -1866.42, -610.87, 0.67)
pt3dadd(-207.4, -1865.8, -611.88, 0.67)
pt3dadd(-204.46, -1865.95, -611.93, 0.52)
pt3dadd(-200.5, -1864.61, -611.99, 0.52)
pt3dadd(-198.16, -1863.25, -611.99, 0.52)
pt3dadd(-196.24, -1862.42, -612.89, 0.45)
}
dend[70] {pt3dclear()
pt3dadd(-243.29, -1918.01, -560.69, 0.89)
pt3dadd(-242.53, -1919.54, -562.49, 0.89)
pt3dadd(-241.42, -1922, -565.63, 0.89)
pt3dadd(-241.51, -1923.48, -565.57, 0.89)
pt3dadd(-238.59, -1924.38, -571.15, 0.89)
pt3dadd(-237.15, -1924.39, -576.73, 0.89)
pt3dadd(-235.25, -1924.02, -578.9, 0.89)
pt3dadd(-233.92, -1924.55, -582.73, 0.89)
pt3dadd(-232.6, -1925.18, -585.17, 0.89)
pt3dadd(-231.57, -1926.43, -585.17, 0.89)
pt3dadd(-230.98, -1926.89, -589.36, 0.89)
pt3dadd(-230.34, -1927.51, -593.45, 0.89)
pt3dadd(-229.66, -1927.65, -598.76, 0.89)
pt3dadd(-228.4, -1927.93, -600.68, 0.89)
pt3dadd(-226.5, -1928.63, -604.71, 0.89)
pt3dadd(-224.81, -1929.22, -607.47, 0.89)
pt3dadd(-223.44, -1929.82, -609.65, 0.89)
pt3dadd(-221.91, -1930.68, -613.79, 0.89)
pt3dadd(-219.9, -1932, -618.63, 0.89)
pt3dadd(-218.01, -1932.17, -623.72, 0.89)
pt3dadd(-216.08, -1931.34, -627.71, 0.89)
pt3dadd(-215.42, -1930.44, -629.57, 0.89)
pt3dadd(-214.34, -1929.1, -633.39, 0.89)
pt3dadd(-212.37, -1927.38, -638.86, 0.89)
pt3dadd(-210.93, -1925.78, -641.2, 0.89)
pt3dadd(-210.31, -1925.14, -643.74, 0.89)
pt3dadd(-209.33, -1925.03, -643.74, 0.74)
pt3dadd(-208.33, -1924.23, -647.83, 0.74)
pt3dadd(-206.6, -1923.26, -652.13, 0.74)
pt3dadd(-205.09, -1921.22, -653.94, 0.74)
pt3dadd(-203.87, -1919.64, -655.59, 0.74)
pt3dadd(-203, -1918.49, -660.37, 0.74)
pt3dadd(-201.81, -1919.14, -663.55, 0.74)
pt3dadd(-199.74, -1919.97, -667.69, 0.74)
pt3dadd(-198.25, -1919.62, -669.98, 0.74)
pt3dadd(-196.81, -1918.87, -671.94, 0.74)
pt3dadd(-194.98, -1917.85, -674.17, 0.74)
pt3dadd(-193.09, -1918.23, -678.37, 0.74)
pt3dadd(-191.07, -1918.42, -681.34, 0.74)
pt3dadd(-189.14, -1918.67, -687.87, 0.74)
pt3dadd(-187.91, -1919.18, -687.24, 0.74)
pt3dadd(-187.03, -1919.48, -686.76, 0.74)
pt3dadd(-186.28, -1919.54, -691.27, 0.74)
pt3dadd(-185.56, -1919.98, -696.11, 0.74)
pt3dadd(-185.76, -1920.69, -700.3, 0.74)
}
dend[71] {pt3dclear()
pt3dadd(-185.76, -1920.69, -700.3, 1.04)
pt3dadd(-186.67, -1920.9, -704.55, 1.04)
pt3dadd(-187.46, -1920.98, -704.55, 0.74)
pt3dadd(-187.82, -1921.16, -712.14, 0.74)
pt3dadd(-188.59, -1921.36, -715.97, 0.74)
pt3dadd(-189.16, -1920.56, -721.92, 0.74)
pt3dadd(-188.77, -1919.22, -727.92, 0.74)
pt3dadd(-188.04, -1916.29, -730.41, 0.74)
pt3dadd(-188.48, -1914.11, -731.16, 0.59)
pt3dadd(-189.47, -1911.55, -733.6, 0.59)
pt3dadd(-190.69, -1909.37, -733.6, 0.59)
pt3dadd(-190.42, -1907.72, -737.69, 0.59)
pt3dadd(-190.76, -1903.54, -740.5, 0.52)
pt3dadd(-192.46, -1900.45, -740.5, 0.52)
pt3dadd(-194.85, -1897.13, -740.5, 0.22)
pt3dadd(-194.63, -1895.53, -740.93, 0.22)
}
dend[72] {pt3dclear()
pt3dadd(-185.76, -1920.69, -700.3, 0.59)
pt3dadd(-186.7, -1922.36, -700.3, 0.59)
pt3dadd(-186.13, -1925.46, -702.05, 0.59)
pt3dadd(-186.01, -1928.81, -702.05, 0.59)
pt3dadd(-184.02, -1935.03, -703.01, 0.59)
pt3dadd(-182.23, -1939.79, -703.86, 0.59)
pt3dadd(-181.4, -1941.19, -704.28, 0.59)
pt3dadd(-181.67, -1942.11, -704.28, 0.59)
pt3dadd(-180.55, -1943.83, -706.41, 0.59)
pt3dadd(-179.56, -1946.04, -708, 0.59)
pt3dadd(-179.44, -1946.67, -708, 0.52)
pt3dadd(-178.81, -1948.52, -708, 0.52)
pt3dadd(-177.01, -1953.5, -707.31, 0.52)
pt3dadd(-176.85, -1955.09, -707.31, 0.52)
pt3dadd(-176.45, -1956.36, -702.59, 0.52)
pt3dadd(-176.28, -1960.35, -696.69, 0.52)
pt3dadd(-176.54, -1963.14, -692.23, 0.52)
}
dend[73] {pt3dclear()
pt3dadd(-267.97, -1929.84, -493.83, 1.34)
pt3dadd(-267.43, -1930.54, -497.49, 1.34)
pt3dadd(-266.45, -1931.23, -502.64, 1.34)
pt3dadd(-266.25, -1931.27, -509.07, 1.34)
pt3dadd(-266.77, -1931.97, -511.56, 1.34)
pt3dadd(-267.14, -1933.17, -514.8, 1.34)
pt3dadd(-267.18, -1933.38, -515.02, 1.26)
pt3dadd(-266.53, -1935.33, -520.11, 1.26)
pt3dadd(-265.75, -1936.68, -521.5, 1.26)
pt3dadd(-266.36, -1939.01, -526.01, 1.26)
pt3dadd(-266.59, -1940.84, -528.08, 1.26)
pt3dadd(-267.09, -1941.69, -528.19, 1.26)
pt3dadd(-267.49, -1941.88, -528.19, 0.89)
pt3dadd(-268.13, -1942.93, -532.97, 0.89)
pt3dadd(-268.24, -1944.51, -537, 0.89)
pt3dadd(-266.62, -1945.74, -538.75, 0.89)
pt3dadd(-263.58, -1948.95, -543.11, 0.89)
pt3dadd(-261.02, -1951.33, -546.56, 0.89)
pt3dadd(-257.91, -1953.17, -548.69, 0.89)
pt3dadd(-256.39, -1953.57, -548.9, 0.89)
pt3dadd(-254.96, -1955.72, -552.3, 0.89)
pt3dadd(-252.31, -1958.22, -556.92, 0.89)
pt3dadd(-249.35, -1960.51, -559.36, 0.89)
pt3dadd(-248.22, -1962.42, -560.53, 0.89)
pt3dadd(-246.68, -1964.59, -565.94, 0.89)
pt3dadd(-244.24, -1966.78, -571.79, 0.89)
pt3dadd(-242.49, -1967.66, -573.96, 0.89)
pt3dadd(-240.64, -1968.29, -577.47, 0.89)
pt3dadd(-239.12, -1968.69, -580.39, 0.89)
pt3dadd(-238.03, -1969.92, -582.41, 0.89)
pt3dadd(-236.6, -1971.01, -584.32, 0.89)
pt3dadd(-235.57, -1971.47, -586.55, 0.89)
pt3dadd(-234.31, -1971.85, -586.55, 1.11)
pt3dadd(-232.1, -1972.22, -587.98, 1.11)
pt3dadd(-230.72, -1973.03, -591.17, 1.11)
pt3dadd(-228.94, -1973.21, -594.94, 1.11)
pt3dadd(-226.89, -1973.32, -598.66, 1.11)
pt3dadd(-224.95, -1973.33, -600.46, 1.11)
pt3dadd(-223.44, -1972.93, -604.71, 1.11)
pt3dadd(-222.09, -1972.38, -609.33, 1.11)
pt3dadd(-219.78, -1972.75, -614.91, 1.11)
pt3dadd(-217.6, -1974.64, -620.43, 1.11)
pt3dadd(-217.12, -1975.01, -620.54, 1.04)
}
dend[74] {pt3dclear()
pt3dadd(-217.12, -1975.01, -620.54, 0.74)
pt3dadd(-215.73, -1976.76, -623.14, 0.74)
pt3dadd(-212.29, -1979.26, -623.78, 0.74)
pt3dadd(-211.31, -1981.75, -623.83, 0.74)
pt3dadd(-208.53, -1984.84, -625.37, 0.74)
pt3dadd(-206.58, -1985.79, -625.37, 0.74)
pt3dadd(-203.69, -1986.1, -625.37, 0.74)
pt3dadd(-200.17, -1987.02, -625.85, 0.74)
pt3dadd(-198.15, -1988.86, -625.9, 0.74)
pt3dadd(-195.65, -1990.96, -628.03, 0.74)
pt3dadd(-192.84, -1993.15, -628.18, 0.74)
pt3dadd(-189.99, -1994.77, -631.74, 0.74)
pt3dadd(-187.91, -1996.98, -634.82, 0.74)
pt3dadd(-185.9, -1997.88, -638.43, 0.74)
pt3dadd(-184.2, -1998.84, -638.91, 0.59)
pt3dadd(-183.07, -2000.86, -641.78, 0.59)
pt3dadd(-183.26, -2002.23, -642.74, 0.59)
}
dend[75] {pt3dclear()
pt3dadd(-217.12, -1975.01, -620.54, 1.04)
pt3dadd(-215.91, -1975.25, -623.4, 1.04)
pt3dadd(-213.75, -1975.99, -636.15, 1.04)
pt3dadd(-211.13, -1976.04, -637.32, 0.97)
pt3dadd(-208.66, -1976.35, -644.59, 0.97)
pt3dadd(-207.3, -1976.09, -644.59, 0.59)
pt3dadd(-205.31, -1976.66, -649.32, 0.59)
pt3dadd(-202.76, -1977.15, -651.66, 0.59)
pt3dadd(-200.7, -1976.66, -653.83, 0.59)
pt3dadd(-199.52, -1975.22, -655.48, 0.59)
pt3dadd(-198.64, -1973.77, -657.5, 0.59)
pt3dadd(-197.98, -1971.18, -659.84, 0.59)
}
}
proc shape3d_12() {
dend[75] { pt3dadd(-197.29, -1968.51, -660.68, 0.59)
pt3dadd(-195.47, -1967.26, -664.67, 0.59)
pt3dadd(-193.7, -1966.14, -665.52, 0.59)
pt3dadd(-191.76, -1965.53, -670.77, 0.59)
pt3dadd(-189.57, -1965.7, -670.93, 0.59)
pt3dadd(-187.65, -1965.16, -674.7, 0.59)
pt3dadd(-186.7, -1963.43, -677.73, 0.59)
pt3dadd(-185.57, -1961.89, -682.03, 0.59)
pt3dadd(-184.75, -1959.04, -683.41, 0.59)
pt3dadd(-183.87, -1957.59, -685.91, 0.59)
pt3dadd(-182.13, -1956.85, -688.51, 0.59)
pt3dadd(-181.27, -1954.93, -691.33, 0.59)
pt3dadd(-181.1, -1951.11, -693.72, 0.52)
pt3dadd(-181.28, -1947.97, -694.83, 0.52)
pt3dadd(-183.35, -1946.75, -694.83, 0.37)
pt3dadd(-185.45, -1945.22, -696, 0.37)
pt3dadd(-186.77, -1943.91, -697.33, 0.37)
pt3dadd(-187.32, -1942.97, -697.33, 0.52)
pt3dadd(-188.49, -1941.72, -700.14, 0.52)
pt3dadd(-189.32, -1937.31, -702.96, 0.52)
pt3dadd(-189.8, -1934.4, -702.32, 0.52)
}
}
proc basic_shape() {
shape3d_1()
shape3d_2()
shape3d_3()
shape3d_4()
shape3d_5()
shape3d_6()
shape3d_7()
shape3d_8()
shape3d_9()
shape3d_10()
shape3d_11()
shape3d_12()
}
objref all, somatic, axonal, basal
proc subsets() { local i
objref all, somatic, axonal, basal
all = new SectionList()
soma all.append()
for i=0, 6 axon[i] all.append()
for i=0, 75 dend[i] all.append()
somatic = new SectionList()
soma somatic.append()
axonal = new SectionList()
for i=0, 6 axon[i] axonal.append()
basal = new SectionList()
for i=0, 75 dend[i] basal.append()
}
proc geom() {
}
proc geom_nseg() {
forsec all { nseg = int((L/(0.1*lambda_f(100))+.9)/2)*2 + 1 }
}
celsius = 24
proc biophys() {
forsec all {
}
forsec basal {
insert passsd
g_passsd=1.1231e-05
erev_passsd=-66.164
insert Kleaksd
gkl_Kleaksd=3.2258e-06
insert IM
gbar_IM = 0.000075
insert IMminret
gbar_IMminret=0 // 0.000075
insert Ikdrf
gbar_Ikdrf = 0.0006
insert Ikdrs
gbar_Ikdrs = 0.00023
insert Ika
gbar_Ika = 0.00025
Ra=300
cm=0.9
ek=-95
insert cal
gcalbar_cal = 0.0025
insert cad
insert cat
gbar_cat = 0.00025
insert kca
gkbar_kca = 0.00055
insert Nadend
gna_Nadend = 0.0117
ena=90
insert Ih
gkhbar_Ih = 0.00005
eh=-32
}
forsec somatic {
insert passsd
g_passsd=1.1231e-05
erev_passsd=-66.164
insert Kleaksd
gkl_Kleaksd=3.2258e-06
Ra=300
cm=0.9
ek=-95
insert IM
gbar_IM=0.000075
insert IMminret
gbar_IMminret=0 // 0.000075
insert Ikdrf
gbar_Ikdrf = 0.0006
insert Ikdrs
gbar_Ikdrs = 0.00023
insert Ika
gbar_Ika = 0.00025
insert Nasoma
gna_Nasoma = 0.0107
ena=90
insert Ih
gkhbar_Ih = 0.00005
eh=-32
}
forsec axonal {
insert passaxon
g_passaxon=6.1771e-05
erev_passaxon=-66.164
insert Kleakaxon
gkl_Kleakaxon=1.7742e-05
insert Ikdrfaxon
gbar_Ikdrfaxon = 0.0006
insert Ikdrsaxon
gbar_Ikdrsaxon = 0.00023
Ra=300
cm=0.9
ek=-95
insert Naaxon
gna_Naaxon = 0.0117
ena=90
/*
soma distance(0,0.5)
dist1=distance(0)
dist2=distance(1)
tav.append(dist1)
*/
}
}
/*
objref f1, f2
f1 = new File()
f1.ropen("HS_5102_optimized_syn_per_area_excit.dat")
f2 = new File()
f2.ropen("HS_5102_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()