begintemplate Amandola_MN3_sliced
objref this
public init, topol, subsets, geom, biophys, geom_nseg, basic_shape
public soma, dend, ah, iseg
public all, somatic, basal, AHIS
proc init() {
parameters()
topol()
subsets()
biophys()
geom()
print "Sliced Cell Created"
}
create soma, dend[125], ah, iseg
proc topol() { local i
for i = 0, 8 connect dend[i](0), soma(0.5)
for i = 9, 10 connect dend[i](0), dend(1)
for i = 11, 12 connect dend[i](0), dend[1](1)
for i = 13, 14 connect dend[i](0), dend[2](1)
for i = 15, 16 connect dend[i](0), dend[3](1)
for i = 17, 18 connect dend[i](0), dend[4](1)
for i = 19, 20 connect dend[i](0), dend[5](1)
for i = 21, 22 connect dend[i](0), dend[6](1)
for i = 23, 24 connect dend[i](0), dend[7](1)
for i = 25, 26 connect dend[i](0), dend[8](1)
for i = 27, 28 connect dend[i](0), dend[9](1)
for i = 29, 30 connect dend[i](0), dend[10](1)
for i = 31, 32 connect dend[i](0), dend[11](1)
for i = 33, 34 connect dend[i](0), dend[12](1)
for i = 35, 36 connect dend[i](0), dend[13](1)
for i = 37, 38 connect dend[i](0), dend[15](1)
for i = 39, 40 connect dend[i](0), dend[18](1)
for i = 41, 42 connect dend[i](0), dend[19](1)
for i = 43, 44 connect dend[i](0), dend[20](1)
for i = 45, 46 connect dend[i](0), dend[21](1)
for i = 47, 48 connect dend[i](0), dend[22](1)
for i = 49, 50 connect dend[i](0), dend[25](1)
for i = 51, 52 connect dend[i](0), dend[26](1)
for i = 53, 54 connect dend[i](0), dend[27](1)
for i = 55, 56 connect dend[i](0), dend[28](1)
for i = 57, 58 connect dend[i](0), dend[29](1)
for i = 59, 60 connect dend[i](0), dend[30](1)
for i = 61, 62 connect dend[i](0), dend[31](1)
for i = 63, 64 connect dend[i](0), dend[34](1)
for i = 65, 66 connect dend[i](0), dend[38](1)
for i = 67, 68 connect dend[i](0), dend[41](1)
for i = 69, 70 connect dend[i](0), dend[42](1)
for i = 71, 72 connect dend[i](0), dend[43](1)
for i = 73, 74 connect dend[i](0), dend[44](1)
for i = 75, 76 connect dend[i](0), dend[45](1)
for i = 77, 78 connect dend[i](0), dend[48](1)
for i = 79, 80 connect dend[i](0), dend[49](1)
for i = 81, 82 connect dend[i](0), dend[52](1)
for i = 83, 84 connect dend[i](0), dend[53](1)
for i = 85, 86 connect dend[i](0), dend[56](1)
for i = 87, 88 connect dend[i](0), dend[57](1)
for i = 89, 90 connect dend[i](0), dend[58](1)
for i = 91, 92 connect dend[i](0), dend[60](1)
for i = 93, 94 connect dend[i](0), dend[68](1)
for i = 95, 96 connect dend[i](0), dend[70](1)
for i = 97, 98 connect dend[i](0), dend[71](1)
for i = 99, 100 connect dend[i](0), dend[72](1)
for i = 101, 102 connect dend[i](0), dend[78](1)
for i = 103, 104 connect dend[i](0), dend[82](1)
for i = 105, 106 connect dend[i](0), dend[86](1)
for i = 107, 108 connect dend[i](0), dend[90](1)
for i = 109, 110 connect dend[i](0), dend[91](1)
for i = 111, 112 connect dend[i](0), dend[101](1)
for i = 113, 114 connect dend[i](0), dend[105](1)
for i = 115, 116 connect dend[i](0), dend[108](1)
for i = 117, 118 connect dend[i](0), dend[109](1)
for i = 119, 120 connect dend[i](0), dend[110](1)
for i = 121, 122 connect dend[i](0), dend[113](1)
for i = 123, 124 connect dend[i](0), dend[120](1)
connect ah(0), soma(0.5)
connect iseg(0), ah(1)
basic_shape()
}
proc shape3d_1() {
soma {pt3dclear()
pt3dadd(-3.5652, 2.36562, 1.30488, 36.9042)
pt3dadd(-2.3802, 0.677319, -4.56512, 32.0881)
pt3dadd(-1.6952, 1.96612, -9.46512, 17.2456)
pt3dadd(0.0388062, -0.628879, 4.53488, 33.5642)
pt3dadd(7.60179, -4.38018, 8.19048, 19.205)
}
dend {pt3dclear()
pt3dstyle(1, 2.0183, -1.00728, 4.74768)
pt3dadd(-2.17969, 19.3751, 10.5396, 9.05)
pt3dadd(-1.96967, 22.5051, 10.5396, 7.31)
pt3dadd(-1.60968, 26.1651, 11.5197, 5.92)
pt3dadd(-1.07965, 30.1251, 11.5197, 5.22)
pt3dadd(-0.6297, 33.9551, 11.5197, 5.22)
pt3dadd(-0.429688, 37.3451, 13.4797, 5.22)
pt3dadd(0.8703, 41.2651, 13.4797, 5.22)
pt3dadd(0.570313, 45.1651, 13.4797, 4.52)
pt3dadd(0.88031, 49.3651, 14.4496, 4.52)
pt3dadd(1.25031, 53.0651, 10.5396, 4.52)
pt3dadd(1.39032, 55.6251, 9.55965, 4.87)
}
dend[1] {pt3dclear()
pt3dstyle(1, 2.0183, -1.00728, 4.74768)
pt3dadd(-8.55969, 12.7151, 12.4997, 7.31)
pt3dadd(-9.48969, 18.3451, 12.4997, 6.61)
pt3dadd(-11.1097, 20.6751, 16.4097, 4.18)
pt3dadd(-12.0697, 23.6451, 17.3897, 3.48)
pt3dadd(-12.9097, 26.0151, 17.3897, 3.48)
pt3dadd(-14.2497, 28.2051, 17.3897, 3.83)
pt3dadd(-15.3597, 29.8751, 17.3897, 2.09)
pt3dadd(-15.7997, 31.6151, 17.3897, 2.09)
pt3dadd(-17.9597, 33.0551, 17.3897, 2.09)
pt3dadd(-19.7097, 34.9851, 14.4496, 2.44)
pt3dadd(-20.2497, 37.6151, 14.4496, 2.44)
pt3dadd(-22.1396, 41.3651, 14.4496, 2.44)
pt3dadd(-23.5597, 45.1551, 13.4797, 2.44)
pt3dadd(-24.4697, 47.8551, 19.3497, 2.44)
pt3dadd(-24.5597, 50.7951, 20.3297, 2.44)
pt3dadd(-26.2297, 52.1651, 20.3297, 2.44)
pt3dadd(-27.0397, 55.5051, 20.3297, 2.44)
pt3dadd(-27.3097, 58.1951, 20.3297, 2.44)
pt3dadd(-28.7097, 60.8851, 20.3297, 2.44)
}
dend[2] {pt3dclear()
pt3dstyle(1, 2.0183, -1.00728, 4.74768)
pt3dadd(-13.7697, 9.50512, 13.4797, 5.57)
pt3dadd(-16.5997, 9.78512, 14.4496, 3.48)
pt3dadd(-18.6996, 9.94512, 17.3897, 3.48)
pt3dadd(-21.0697, 9.94512, 18.3697, 2.44)
pt3dadd(-23.3497, 9.44512, 18.3697, 2.44)
pt3dadd(-25.0497, 8.96512, 18.3697, 2.44)
pt3dadd(-26.1197, 10.1451, 18.3697, 2.44)
pt3dadd(-27.6097, 7.34512, 21.3097, 2.09)
pt3dadd(-28.7497, 5.66512, 21.3097, 2.09)
pt3dadd(-30.4597, 3.68512, 21.3097, 2.44)
}
dend[3] {pt3dclear()
pt3dstyle(1, 2.0183, -1.00728, 4.74768)
pt3dadd(-15.3896, -3.28488, 12.4997, 5.92)
pt3dadd(-16.9997, -5.34488, 12.4997, 5.22)
pt3dadd(-20.2897, -8.59488, 12.4997, 4.87)
pt3dadd(-23.1697, -11.9349, 12.4997, 4.18)
pt3dadd(-25.4496, -15.4549, 12.4997, 3.48)
pt3dadd(-26.0397, -16.6649, 12.4997, 3.48)
pt3dadd(-28.3797, -17.5949, 12.4997, 3.48)
pt3dadd(-30.1697, -19.5549, 17.3897, 3.13)
pt3dadd(-30.9397, -22.9849, 17.3897, 3.13)
pt3dadd(-31.8697, -26.1549, 17.3897, 3.13)
pt3dadd(-34.4297, -28.8449, 22.2896, 2.78)
pt3dadd(-37.3397, -30.9449, 24.2397, 2.78)
pt3dadd(-38.1996, -33.6149, 24.2397, 2.78)
pt3dadd(-40.9397, -35.5549, 29.1397, 2.78)
pt3dadd(-41.5097, -38.0849, 26.1996, 2.78)
}
dend[4] {pt3dclear()
pt3dstyle(1, 2.0183, -1.00728, 4.74768)
pt3dadd(-8.26965, -9.77488, 11.5197, 3.48)
pt3dadd(-9.48969, -12.8649, 11.5197, 3.48)
pt3dadd(-10.9897, -15.8049, 12.4997, 3.48)
pt3dadd(-12.4797, -18.7549, 15.4297, 2.78)
pt3dadd(-14.3697, -21.3649, 16.4097, 2.78)
pt3dadd(-16.1297, -23.4549, 16.4097, 2.78)
pt3dadd(-16.9496, -25.3949, 17.3897, 2.09)
pt3dadd(-16.9496, -25.3949, 18.3697, 2.09)
pt3dadd(-18.5397, -27.4949, 18.3697, 2.09)
pt3dadd(-20.0097, -29.7649, 18.3697, 2.09)
pt3dadd(-21.6097, -33.2949, 20.3297, 2.09)
pt3dadd(-23.0097, -36.0549, 20.3297, 1.74)
pt3dadd(-24.8797, -37.2249, 22.2896, 1.74)
pt3dadd(-25.8297, -38.2749, 22.2896, 1.39)
pt3dadd(-26.1197, -41.2849, 22.2896, 1.39)
pt3dadd(-27.8497, -43.2249, 22.2896, 1.39)
pt3dadd(-28.0497, -46.3649, 22.2896, 1.39)
pt3dadd(-28.9997, -47.4549, 21.3097, 1.39)
pt3dadd(-29.8297, -49.2549, 21.3097, 1.39)
pt3dadd(-29.1897, -52.6049, 24.2397, 1.39)
pt3dadd(-28.4397, -56.9349, 24.2397, 1.39)
pt3dadd(-29.1396, -61.2149, 24.2397, 1.39)
pt3dadd(-29.5597, -65.6249, 25.2197, 1.39)
pt3dadd(-30.1697, -69.1949, 25.2197, 1.39)
pt3dadd(-29.8896, -72.0149, 23.2696, 1.39)
pt3dadd(-29.7397, -74.9549, 23.2696, 1.39)
pt3dadd(-29.9097, -78.7749, 23.2696, 1.39)
pt3dadd(-28.6197, -83.0549, 23.2696, 1.39)
pt3dadd(-29.1297, -86.2449, 23.2696, 1.39)
pt3dadd(-28.0597, -90.3049, 23.2696, 1.39)
pt3dadd(-27.9496, -94.2749, 23.2696, 1.39)
pt3dadd(-27.4897, -96.9249, 23.2696, 1.39)
pt3dadd(-28.1597, -100.535, 23.2696, 1.39)
pt3dadd(-28.9897, -103.955, 23.2696, 1.39)
pt3dadd(-29.0797, -105.255, 23.2696, 1.39)
pt3dadd(-27.6197, -107.875, 23.2696, 1.39)
pt3dadd(-27.4496, -109.325, 30.1196, 1.39)
pt3dadd(-25.5197, -112.195, 34.0296, 1.39)
pt3dadd(-22.2297, -116.025, 38.9296, 1.39)
pt3dadd(-20.8297, -116.775, 44.7997, 1.39)
pt3dadd(-21.1996, -120.725, 45.7797, 1.39)
pt3dadd(-20.1797, -123.725, 51.6596, 1.39)
pt3dadd(-20.1797, -123.725, 52.6397, 1.39)
pt3dadd(-16.2797, -127.365, 54.5896, 1.39)
pt3dadd(-16.4597, -131.715, 53.6096, 1.39)
pt3dadd(-16.7797, -134.145, 57.5297, 1.39)
}
dend[5] {pt3dclear()
pt3dstyle(1, 2.0183, -1.00728, 4.74768)
pt3dadd(23.2503, -13.3349, 9.55965, 6.26)
pt3dadd(25.5803, -13.7249, 9.55965, 5.22)
pt3dadd(29.7703, -15.2549, 11.5197, 4.52)
pt3dadd(33.8203, -17.2949, 13.4797, 4.52)
pt3dadd(37.6503, -17.8749, 13.4797, 4.18)
pt3dadd(39.2403, -17.9349, 14.4496, 4.18)
pt3dadd(41.2703, -19.7149, 14.4496, 4.18)
pt3dadd(43.7103, -20.4749, 14.4496, 4.52)
}
dend[6] {pt3dclear()
pt3dstyle(1, 2.0183, -1.00728, 4.74768)
pt3dadd(15.4003, -16.4349, 14.4496, 4.52)
pt3dadd(17.0003, -19.9449, 14.4496, 4.18)
pt3dadd(18.6103, -22.4949, 18.3697, 3.83)
pt3dadd(19.6103, -26.0849, 19.3497, 3.83)
pt3dadd(20.6903, -29.1649, 22.2896, 3.83)
pt3dadd(21.8203, -31.0049, 22.2896, 3.83)
pt3dadd(21.6303, -33.1649, 24.2397, 3.83)
pt3dadd(23.0303, -35.8549, 24.2397, 3.83)
pt3dadd(22.6103, -39.2249, 25.2197, 3.13)
pt3dadd(22.1103, -41.6949, 29.1397, 3.13)
pt3dadd(22.3803, -43.5249, 33.0597, 3.13)
}
dend[7] {pt3dclear()
pt3dstyle(1, 2.0183, -1.00728, 4.74768)
pt3dadd(-16.5297, 0.555122, 9.55965, 4.87)
pt3dadd(-18.9197, -1.05488, 9.55965, 3.13)
pt3dadd(-21.5597, -2.36488, 9.55965, 2.78)
pt3dadd(-25.3597, -3.89488, 9.55965, 2.44)
pt3dadd(-28.2797, -5.27488, 9.55965, 2.44)
pt3dadd(-31.2197, -6.60488, 9.55965, 2.44)
pt3dadd(-34.3297, -8.23488, 7.59965, 2.09)
pt3dadd(-35.8997, -9.97488, 7.59965, 2.09)
pt3dadd(-38.0897, -9.79488, 5.63965, 2.09)
pt3dadd(-40.1396, -10.2549, 4.66965, 2.09)
pt3dadd(-42.4697, -11.1249, 4.66965, 2.09)
pt3dadd(-44.3797, -11.2349, 4.66965, 2.09)
pt3dadd(-47.1297, -12.4449, 4.66965, 2.09)
pt3dadd(-49.6697, -13.8749, 3.68965, 1.74)
pt3dadd(-52.1497, -14.2949, 2.70965, 1.74)
pt3dadd(-53.2997, -15.8949, 2.70965, 1.74)
pt3dadd(-55.6297, -17.8649, 2.70965, 1.74)
pt3dadd(-57.3697, -19.5149, 2.70965, 1.74)
}
dend[8] {pt3dclear()
pt3dstyle(1, 2.0183, -1.00728, 4.74768)
pt3dadd(-6.65967, -11.6949, 3.68965, 7.31)
pt3dadd(-8.57965, -14.0049, 3.68965, 5.57)
pt3dadd(-9.88965, -16.3049, 3.68965, 4.52)
}
ah {pt3dclear()
pt3dstyle(1, 2.0183, -1.00728, 4.74768)
pt3dadd(18.0903, -12.3449, 17.3897, 5.92)
pt3dadd(19.2703, -14.1649, 17.3897, 4.87)
pt3dadd(21.3403, -17.8949, 17.3897, 3.48)
pt3dadd(23.4003, -21.6449, 17.3897, 2.44)
pt3dadd(24.3203, -24.0049, 17.3897, 2.09)
pt3dadd(26.5403, -27.5649, 17.3897, 1.74)
pt3dadd(27.9903, -30.9849, 17.3897, 1.74)
pt3dadd(29.8403, -34.8049, 14.4496, 1.39)
pt3dadd(30.9103, -37.9949, 13.4797, 1.39)
pt3dadd(32.0203, -41.9149, 13.4797, 1.39)
pt3dadd(33.2303, -45.6449, 13.4797, 1.39)
pt3dadd(33.6803, -48.6049, 13.4797, 1.39)
pt3dadd(33.9703, -50.6449, 13.4797, 1.39)
pt3dadd(35.1003, -52.3849, 14.4496, 1.39)
pt3dadd(36.2503, -56.5149, 11.5197, 1.39)
pt3dadd(38.1303, -62.7149, 15.4297, 1.39)
pt3dadd(42.2703, -73.4949, 15.4297, 1.39)
pt3dadd(45.1503, -80.7949, 15.4297, 1.39)
}
dend[9] {pt3dclear()
pt3dadd(1.39032, 55.6251, 9.55965, 3.48)
pt3dadd(-0.3797, 57.8751, 5.63965, 3.48)
pt3dadd(-1.27966, 59.8251, 5.63965, 3.48)
pt3dadd(-2.55969, 62.2251, -1.21035, 2.44)
pt3dadd(-3.41968, 64.5551, -1.21035, 2.44)
pt3dadd(-4.78967, 66.7051, -1.21035, 2.44)
pt3dadd(-5.85968, 69.2751, -4.15035, 2.09)
pt3dadd(-5.9397, 71.5751, -4.15035, 2.09)
pt3dadd(-6.21967, 73.9151, -5.12035, 2.09)
pt3dadd(-8.0097, 75.2051, -9.04035, 2.09)
pt3dadd(-10.5997, 75.2151, -11.9804, 2.09)
pt3dadd(-12.7197, 73.8151, -14.9103, 2.09)
pt3dadd(-14.1897, 74.4551, -17.8503, 2.09)
pt3dadd(-15.3597, 76.0451, -17.8503, 2.09)
pt3dadd(-15.9897, 78.6651, -22.7504, 2.09)
pt3dadd(-16.9997, 80.0251, -22.7504, 2.09)
pt3dadd(-15.8896, 82.1151, -27.6404, 2.09)
pt3dadd(-13.9197, 83.4651, -27.6404, 2.09)
pt3dadd(-12.5797, 84.1951, -32.5403, 2.09)
pt3dadd(-10.3896, 83.8151, -32.5403, 2.09)
pt3dadd(-10.1497, 85.6351, -40.3703, 2.09)
pt3dadd(-9.30969, 87.1151, -39.3904, 2.09)
pt3dadd(-10.8397, 88.2851, -39.3904, 1.74)
pt3dadd(-13.0897, 89.5051, -39.3904, 1.74)
pt3dadd(-14.7497, 91.5051, -44.2803, 1.74)
pt3dadd(-13.5097, 93.5251, -45.2603, 1.04)
}
dend[10] {pt3dclear()
pt3dadd(1.39032, 55.6251, 9.55965, 3.83)
}
}
proc shape3d_2() {
dend[10] { pt3dadd(2.64032, 58.2551, 12.4997, 3.83)
pt3dadd(3.77032, 60.9451, 12.4997, 3.83)
pt3dadd(4.70032, 64.3951, 8.57965, 4.52)
}
dend[11] {pt3dclear()
pt3dadd(-28.7097, 60.8851, 20.3297, 1.74)
pt3dadd(-29.6597, 62.6251, 29.1397, 1.74)
pt3dadd(-30.4496, 65.4251, 31.0997, 1.04)
pt3dadd(-30.2097, 65.1751, 31.0997, 1.04)
pt3dadd(-30.6697, 68.8651, 30.1196, 1.04)
pt3dadd(-30.5697, 70.6651, 32.0797, 1.39)
pt3dadd(-31.3497, 74.0251, 32.0797, 1.39)
pt3dadd(-32.8397, 78.2351, 32.0797, 1.39)
pt3dadd(-32.5997, 82.7751, 33.0597, 1.39)
pt3dadd(-32.1497, 87.2251, 33.0597, 1.39)
pt3dadd(-34.1897, 91.3151, 33.0597, 1.39)
pt3dadd(-34.8397, 94.7651, 37.9496, 1.39)
pt3dadd(-36.4397, 98.5851, 37.9496, 1.39)
pt3dadd(-36.8397, 102.835, 37.9496, 1.39)
pt3dadd(-37.7197, 105.625, 37.9496, 1.04)
pt3dadd(-37.5697, 107.825, 37.9496, 1.04)
pt3dadd(-37.6897, 110.725, 37.9496, 1.04)
pt3dadd(-38.9496, 111.175, 40.8896, 1.39)
pt3dadd(-39.5297, 112.285, 41.8697, 1.39)
pt3dadd(-40.6297, 113.385, 41.8697, 1.39)
pt3dadd(-41.6597, 115.935, 41.8697, 1.04)
pt3dadd(-42.5797, 117.785, 44.7997, 1.04)
pt3dadd(-44.0897, 119.375, 44.7997, 1.04)
pt3dadd(-43.9997, 121.645, 44.7997, 1.04)
pt3dadd(-45.2297, 123.595, 44.7997, 1.04)
pt3dadd(-47.1597, 125.755, 44.7997, 1.04)
pt3dadd(-48.9697, 126.925, 44.7997, 1.04)
pt3dadd(-48.8797, 128.635, 48.7197, 1.04)
pt3dadd(-48.1797, 131.015, 48.7197, 1.04)
pt3dadd(-50.7297, 132.625, 48.7197, 1.04)
pt3dadd(-50.0297, 135.445, 48.7197, 1.04)
pt3dadd(-51.2197, 138.335, 53.6096, 1.04)
pt3dadd(-49.1797, 141.005, 53.6096, 1.04)
pt3dadd(-48.9397, 140.755, 53.6096, 1.04)
pt3dadd(-48.1797, 143.675, 53.6096, 1.04)
pt3dadd(-46.6297, 144.935, 53.6096, 1.04)
pt3dadd(-46.0097, 147.015, 56.5497, 1.04)
pt3dadd(-44.1797, 147.015, 57.5297, 1.04)
pt3dadd(-43.7297, 149.405, 57.5297, 1.04)
pt3dadd(-45.0997, 151.985, 60.4697, 1.04)
pt3dadd(-45.8497, 155.175, 60.4697, 1.04)
pt3dadd(-44.6597, 157.315, 60.4697, 1.04)
pt3dadd(-45.0297, 158.655, 67.3196, 0.7)
pt3dadd(-45.2897, 159.735, 67.3196, 0.7)
}
dend[12] {pt3dclear()
pt3dadd(-28.7097, 60.8851, 20.3297, 1.39)
pt3dadd(-28.1197, 64.6451, 20.3297, 1.39)
pt3dadd(-28.1996, 68.5651, 20.3297, 1.39)
pt3dadd(-28.8797, 72.4551, 20.3297, 1.39)
pt3dadd(-30.6197, 74.8851, 20.3297, 1.39)
pt3dadd(-31.9097, 77.6951, 20.3297, 1.39)
pt3dadd(-33.0197, 80.5351, 20.3297, 1.39)
pt3dadd(-35.1297, 82.8651, 20.3297, 1.39)
pt3dadd(-36.5197, 86.1351, 20.3297, 1.39)
pt3dadd(-37.6297, 89.3251, 21.3097, 1.39)
pt3dadd(-39.0597, 92.8351, 21.3097, 1.39)
pt3dadd(-41.4597, 95.5251, 21.3097, 1.39)
pt3dadd(-42.3197, 98.7551, 21.3097, 1.39)
pt3dadd(-43.7497, 101.765, 21.3097, 1.04)
pt3dadd(-44.2497, 103.475, 21.3097, 1.39)
pt3dadd(-45.3697, 107.905, 21.3097, 1.39)
pt3dadd(-47.7697, 110.655, 21.3097, 1.39)
pt3dadd(-49.3797, 113.785, 21.3097, 1.39)
pt3dadd(-51.3097, 116.515, 21.3097, 1.39)
pt3dadd(-52.1297, 120.345, 20.3297, 1.39)
pt3dadd(-52.4597, 124.175, 20.3297, 1.04)
pt3dadd(-53.9697, 127.245, 20.3297, 1.04)
pt3dadd(-56.3697, 131.955, 19.3497, 1.04)
pt3dadd(-57.0097, 134.375, 19.3497, 1.04)
pt3dadd(-58.4997, 137.595, 19.3497, 1.04)
pt3dadd(-58.2597, 141.435, 25.2197, 1.04)
pt3dadd(-59.4097, 145.355, 27.1797, 1.04)
pt3dadd(-60.7097, 148.215, 31.0997, 1.04)
pt3dadd(-60.8097, 152.185, 31.0997, 1.04)
pt3dadd(-59.6996, 155.265, 32.0797, 1.04)
}
dend[13] {pt3dclear()
pt3dadd(-30.4597, 3.68512, 21.3097, 1.39)
pt3dadd(-28.7297, 1.47512, 25.2197, 1.39)
pt3dadd(-26.7997, -0.264881, 25.2197, 1.39)
pt3dadd(-25.7097, -1.86488, 25.2197, 1.39)
pt3dadd(-22.8797, -3.56488, 31.0997, 1.39)
pt3dadd(-20.6497, -3.54488, 35.0097, 1.39)
pt3dadd(-20.6497, -3.54488, 35.9897, 1.39)
pt3dadd(-16.7397, -5.21488, 35.9897, 1.39)
pt3dadd(-14.7597, -8.39488, 35.9897, 1.39)
pt3dadd(-12.6097, -10.4949, 35.9897, 1.04)
pt3dadd(-10.0597, -12.0549, 35.9897, 1.04)
pt3dadd(-8.19965, -13.8049, 40.8896, 1.04)
pt3dadd(-7.69965, -16.8249, 41.8697, 1.04)
pt3dadd(-5.7597, -19.0549, 43.8196, 1.04)
pt3dadd(-4.32965, -21.7149, 46.7597, 1.04)
pt3dadd(-3.28967, -24.1249, 46.7597, 1.04)
pt3dadd(-1.83966, -25.8649, 53.6096, 1.04)
pt3dadd(0.210327, -27.2849, 53.6096, 1.04)
pt3dadd(1.73035, -27.9649, 53.6096, 1.04)
pt3dadd(2.27032, -30.1749, 58.5097, 1.04)
pt3dadd(3.14032, -32.4749, 58.5097, 1.04)
pt3dadd(5.7403, -32.8649, 64.3797, 1.04)
pt3dadd(5.65033, -36.0349, 64.3797, 1.04)
pt3dadd(7.76031, -36.4149, 67.3196, 1.04)
pt3dadd(7.81033, -38.6949, 67.3196, 1.04)
pt3dadd(9.34033, -39.2949, 67.3196, 1.04)
pt3dadd(9.87033, -41.8549, 66.3396, 1.04)
pt3dadd(9.82031, -44.5849, 71.2397, 1.04)
pt3dadd(12.2003, -45.8049, 72.2197, 1.04)
pt3dadd(14.4403, -48.2249, 72.2197, 1.04)
pt3dadd(16.0003, -51.3149, 78.0896, 1.04)
pt3dadd(18.0203, -52.9849, 81.0296, 1.04)
pt3dadd(20.0403, -56.0449, 81.0296, 1.04)
pt3dadd(21.2303, -59.0249, 82.9796, 1.04)
pt3dadd(21.4003, -60.0649, 82.9796, 0.7)
pt3dadd(22.1303, -62.1449, 82.9796, 0.7)
pt3dadd(22.5403, -64.1149, 82.9796, 0.7)
pt3dadd(22.2103, -67.2549, 82.9796, 0.7)
pt3dadd(23.0403, -70.2949, 82.9796, 0.7)
pt3dadd(21.5003, -72.5549, 85.9196, 0.7)
pt3dadd(23.6803, -75.0849, 85.9196, 0.7)
pt3dadd(24.2503, -77.5149, 89.8396, 0.7)
pt3dadd(25.2003, -79.1849, 90.8197, 0.7)
pt3dadd(24.8403, -81.3949, 94.7296, 0.7)
pt3dadd(26.2903, -83.0449, 94.7296, 0.7)
pt3dadd(28.9203, -84.0749, 97.6696, 0.7)
pt3dadd(32.6703, -84.4249, 97.6696, 0.7)
pt3dadd(36.7203, -85.9249, 103.54, 0.7)
pt3dadd(38.5403, -83.9349, 109.42, 0.7)
pt3dadd(41.5603, -82.9849, 111.38, 0.7)
pt3dadd(41.4603, -80.7249, 111.38, 0.7)
pt3dadd(39.2103, -81.4849, 113.33, 0.7)
pt3dadd(37.1903, -82.0049, 118.23, 0.7)
pt3dadd(35.0503, -83.5049, 118.23, 0.35)
pt3dadd(32.7003, -81.6349, 121.17, 0.35)
pt3dadd(29.9603, -79.7249, 124.1, 0.35)
pt3dadd(27.4903, -81.4749, 128.02, 0.35)
pt3dadd(24.9103, -83.7749, 129.98, 0.35)
pt3dadd(22.8403, -82.4949, 130.96, 0.35)
pt3dadd(21.1003, -83.9949, 130.96, 0.35)
}
dend[14] {pt3dclear()
pt3dadd(-30.4597, 3.68512, 21.3097, 1.39)
pt3dadd(-32.5897, 4.37512, 22.2896, 1.39)
pt3dadd(-35.2097, 4.87512, 22.2896, 1.39)
pt3dadd(-38.4496, 3.36512, 26.1996, 1.04)
pt3dadd(-39.9097, 1.65512, 26.1996, 1.39)
pt3dadd(-42.1697, 0.88512, 27.1797, 1.39)
pt3dadd(-43.8896, 1.29512, 26.1996, 1.39)
pt3dadd(-46.4197, 0.415119, 26.1996, 1.39)
pt3dadd(-48.5197, 0.995121, 26.1996, 1.39)
pt3dadd(-50.1897, 1.04512, 25.2197, 1.04)
pt3dadd(-51.7997, 2.11512, 26.1996, 1.04)
pt3dadd(-54.9197, 2.18512, 26.1996, 1.04)
pt3dadd(-56.6697, 3.55512, 26.1996, 1.04)
pt3dadd(-59.3597, 4.06512, 26.1996, 1.04)
pt3dadd(-61.7797, 5.81512, 26.1996, 1.04)
pt3dadd(-62.4397, 7.13512, 26.1996, 1.04)
pt3dadd(-64.3697, 6.49512, 26.1996, 1.04)
pt3dadd(-66.4897, 7.00512, 29.1397, 1.04)
pt3dadd(-69.4997, 6.69512, 30.1196, 1.04)
pt3dadd(-71.9697, 9.79512, 33.0597, 1.04)
pt3dadd(-73.5497, 9.37512, 33.0597, 1.04)
pt3dadd(-75.4397, 8.00512, 36.9697, 1.04)
pt3dadd(-76.7997, 6.24512, 36.9697, 1.04)
pt3dadd(-77.8997, 4.67512, 37.9496, 1.04)
pt3dadd(-80.0397, 5.20512, 37.9496, 1.04)
pt3dadd(-81.4997, 6.84512, 41.8697, 1.04)
pt3dadd(-83.7297, 8.09512, 41.8697, 1.04)
pt3dadd(-84.7097, 6.86512, 44.7997, 1.04)
pt3dadd(-84.8597, 5.24512, 44.7997, 1.04)
pt3dadd(-84.8297, 4.01512, 49.6996, 1.04)
pt3dadd(-87.3397, 6.27512, 51.6596, 1.04)
pt3dadd(-89.4496, 10.6451, 52.6397, 1.04)
pt3dadd(-89.2097, 10.3951, 52.6397, 1.04)
pt3dadd(-90.0097, 7.88512, 56.5497, 1.04)
pt3dadd(-92.4297, 8.13512, 60.4697, 1.04)
pt3dadd(-91.9297, 5.85512, 64.3797, 1.04)
pt3dadd(-93.6197, 5.35512, 67.3196, 1.04)
pt3dadd(-93.1396, 3.67512, 67.3196, 1.04)
pt3dadd(-91.7197, 2.53512, 67.3196, 1.04)
pt3dadd(-88.6697, 2.47512, 70.2597, 1.04)
pt3dadd(-90.8297, 0.315121, 70.2597, 0.7)
pt3dadd(-93.3497, 1.17512, 70.2597, 0.7)
pt3dadd(-94.5397, 0.0251198, 75.1496, 0.7)
pt3dadd(-95.2697, -0.414879, 75.1496, 0.7)
pt3dadd(-96.1396, -2.75488, 75.1496, 0.7)
pt3dadd(-97.1697, -2.23488, 79.0697, 0.7)
pt3dadd(-99.4097, -3.38488, 82.0096, 0.7)
pt3dadd(-101.66, -2.87488, 85.9196, 0.7)
pt3dadd(-101.68, -1.35488, 89.8396, 0.7)
pt3dadd(-99.4597, -0.344879, 92.7697, 0.7)
pt3dadd(-96.1497, 1.20512, 92.7697, 0.7)
pt3dadd(-93.5397, 3.14512, 94.7296, 0.7)
pt3dadd(-91.8197, 3.11512, 95.7097, 0.7)
pt3dadd(-89.8297, 4.24512, 95.7097, 0.7)
pt3dadd(-88.4897, 6.00512, 97.6696, 0.7)
pt3dadd(-86.3896, 6.90512, 97.6696, 0.7)
pt3dadd(-84.6396, 9.62512, 97.6696, 0.7)
pt3dadd(-82.7597, 12.6551, 97.6696, 0.7)
pt3dadd(-81.4797, 15.2051, 97.6696, 0.7)
pt3dadd(-81.2997, 17.7751, 101.59, 0.7)
pt3dadd(-79.1197, 20.6051, 101.59, 0.7)
pt3dadd(-78.5097, 22.8651, 101.59, 0.7)
pt3dadd(-76.2897, 25.1551, 101.59, 0.7)
}
}
proc shape3d_3() {
dend[14] { pt3dadd(-72.7397, 27.2151, 101.59, 0.7)
pt3dadd(-72.9197, 32.0751, 101.59, 0.7)
pt3dadd(-72.5597, 33.2851, 101.59, 0.35)
pt3dadd(-70.2097, 34.7751, 102.56, 0.35)
pt3dadd(-68.7597, 38.5951, 102.56, 0.35)
pt3dadd(-67.8497, 42.1851, 104.52, 0.35)
pt3dadd(-64.7597, 45.5451, 105.5, 0.35)
pt3dadd(-65.1897, 49.9151, 105.5, 0.35)
pt3dadd(-65.0597, 55.0651, 105.5, 0.35)
pt3dadd(-63.0697, 59.0851, 105.5, 0.35)
pt3dadd(-60.5897, 63.0351, 105.5, 0.35)
pt3dadd(-58.3997, 64.0251, 107.46, 0.35)
pt3dadd(-58.9297, 65.6351, 107.46, 0.35)
pt3dadd(-58.6897, 68.5651, 107.46, 0.35)
pt3dadd(-58.1297, 70.9951, 107.46, 0.35)
pt3dadd(-58.3697, 73.5451, 107.46, 0.35)
pt3dadd(-59.3896, 75.6151, 107.46, 0.35)
pt3dadd(-60.7197, 78.2551, 104.52, 0.35)
pt3dadd(-60.7197, 78.2551, 103.54, 0.35)
pt3dadd(-62.5197, 80.9051, 103.54, 0.35)
pt3dadd(-62.8197, 84.3751, 103.54, 0.35)
pt3dadd(-63.4297, 86.5751, 102.56, 0.35)
pt3dadd(-62.9897, 89.7351, 102.56, 0.35)
pt3dadd(-61.1996, 92.6351, 102.56, 0.35)
pt3dadd(-60.7597, 97.6351, 102.56, 0.35)
pt3dadd(-62.0097, 101.675, 102.56, 0.35)
pt3dadd(-62.4597, 105.545, 102.56, 0.35)
pt3dadd(-63.4897, 109.325, 102.56, 0.35)
pt3dadd(-63.7797, 112.415, 101.59, 0.35)
pt3dadd(-63.1597, 114.775, 101.59, 0.35)
pt3dadd(-65.3997, 117.075, 101.59, 0.35)
pt3dadd(-66.9197, 118.995, 101.59, 0.35)
pt3dadd(-70.3197, 118.145, 102.56, 0.35)
pt3dadd(-71.6797, 119.425, 102.56, 0.35)
pt3dadd(-70.1797, 122.665, 104.52, 0.35)
pt3dadd(-70.2897, 125.835, 104.52, 0.35)
pt3dadd(-72.0197, 128.225, 104.52, 0.35)
pt3dadd(-69.9197, 132.645, 103.54, 0.35)
pt3dadd(-70.8097, 134.175, 103.54, 0.35)
pt3dadd(-72.7597, 135.495, 101.59, 0.35)
}
dend[15] {pt3dclear()
pt3dadd(-41.5097, -38.0849, 26.1996, 2.78)
pt3dadd(-38.0497, -38.3149, 35.9897, 2.78)
pt3dadd(-36.5897, -36.8849, 43.8196, 2.44)
pt3dadd(-37.8997, -35.3049, 50.6796, 2.44)
pt3dadd(-36.6996, -32.4949, 50.6796, 2.44)
pt3dadd(-37.8297, -31.1649, 54.5896, 2.09)
pt3dadd(-39.8896, -30.3949, 59.4897, 1.74)
}
dend[16] {pt3dclear()
pt3dadd(-41.5097, -38.0849, 26.1996, 1.04)
pt3dadd(-41.6097, -41.2649, 29.1397, 1.04)
pt3dadd(-40.1297, -43.9449, 29.1397, 1.04)
pt3dadd(-40.0297, -47.9849, 34.0296, 1.04)
pt3dadd(-41.8997, -52.9449, 34.0296, 1.04)
pt3dadd(-43.4897, -58.1749, 34.0296, 1.04)
pt3dadd(-46.0597, -62.7549, 34.0296, 1.04)
pt3dadd(-46.7697, -66.1349, 34.0296, 1.04)
pt3dadd(-47.1797, -72.1449, 34.0296, 1.04)
pt3dadd(-51.7197, -75.9649, 33.0597, 1.04)
pt3dadd(-55.1297, -79.6149, 33.0597, 1.04)
pt3dadd(-55.1297, -79.6149, 32.0797, 1.04)
pt3dadd(-57.0397, -84.4349, 32.0797, 1.04)
pt3dadd(-56.7897, -84.6849, 32.0797, 1.04)
pt3dadd(-59.0897, -87.5349, 32.0797, 1.04)
pt3dadd(-60.4496, -93.0749, 32.0797, 1.04)
pt3dadd(-61.3797, -96.9549, 25.2197, 1.04)
pt3dadd(-60.4597, -99.5549, 25.2197, 1.04)
pt3dadd(-61.7297, -103.495, 24.2397, 1.04)
pt3dadd(-61.8197, -107.155, 24.2397, 1.04)
pt3dadd(-64.2597, -114.205, 24.2397, 1.04)
pt3dadd(-66.6197, -122.505, 24.2397, 1.04)
pt3dadd(-71.1297, -126.165, 24.2397, 1.04)
pt3dadd(-70.9496, -131.505, 24.2397, 1.04)
pt3dadd(-71.4597, -135.185, 25.2197, 1.04)
pt3dadd(-73.2697, -137.615, 25.2197, 1.04)
pt3dadd(-73.8197, -140.825, 25.2197, 1.04)
pt3dadd(-75.5697, -144.255, 25.2197, 1.04)
pt3dadd(-76.7897, -150.085, 25.2197, 1.04)
pt3dadd(-78.9197, -153.885, 25.2197, 1.04)
pt3dadd(-79.8297, -157.945, 29.1397, 0.7)
pt3dadd(-81.1797, -160.765, 29.1397, 0.7)
pt3dadd(-82.2897, -166.485, 27.1797, 0.7)
pt3dadd(-83.9997, -170.515, 28.1597, 0.7)
pt3dadd(-85.0697, -173.675, 28.1597, 0.7)
}
dend[17] {pt3dclear()
pt3dadd(-16.7797, -134.145, 57.5297, 0.7)
pt3dadd(-17.5797, -137.615, 49.6996, 0.7)
pt3dadd(-19.1197, -140.755, 49.6996, 0.7)
pt3dadd(-19.4097, -146.155, 49.6996, 0.7)
pt3dadd(-19.8397, -152.205, 48.7197, 0.7)
pt3dadd(-20.2497, -157.045, 48.7197, 0.7)
pt3dadd(-19.5497, -160.995, 48.7197, 0.7)
pt3dadd(-19.9397, -165.525, 49.6996, 0.7)
pt3dadd(-18.8397, -170.825, 49.6996, 0.7)
pt3dadd(-17.7397, -173.835, 49.6996, 0.7)
pt3dadd(-18.0797, -176.215, 49.6996, 0.7)
pt3dadd(-16.9097, -180.595, 49.6996, 0.7)
pt3dadd(-14.6697, -187.425, 49.6996, 0.7)
pt3dadd(-11.3497, -192.035, 49.6996, 0.7)
pt3dadd(-8.09967, -194.875, 49.6996, 0.7)
pt3dadd(-6.57965, -198.935, 49.6996, 0.7)
pt3dadd(-4.44965, -203.425, 47.7397, 0.7)
pt3dadd(-1.78967, -208.385, 46.7597, 0.7)
pt3dadd(1.14032, -211.125, 46.7597, 0.7)
pt3dadd(1.72034, -214.215, 46.7597, 0.7)
pt3dadd(2.6203, -217.475, 46.7597, 0.7)
pt3dadd(5.89032, -218.315, 46.7597, 0.7)
pt3dadd(8.27032, -220.535, 46.7597, 0.7)
pt3dadd(9.29031, -222.215, 46.7597, 0.7)
pt3dadd(11.1903, -223.485, 46.7597, 0.7)
pt3dadd(11.4403, -223.735, 46.7597, 0.7)
pt3dadd(13.2503, -226.085, 46.7597, 0.7)
pt3dadd(15.5903, -230.305, 45.7797, 0.7)
pt3dadd(16.1403, -233.575, 45.7797, 0.7)
pt3dadd(20.2703, -236.425, 45.7797, 0.7)
pt3dadd(21.7803, -240.985, 45.7797, 0.7)
pt3dadd(24.4703, -243.885, 40.8896, 0.7)
}
dend[18] {pt3dclear()
pt3dadd(-16.7797, -134.145, 57.5297, 1.04)
pt3dadd(-19.2097, -135.455, 58.5097, 1.04)
pt3dadd(-19.3997, -139.325, 58.5097, 1.04)
pt3dadd(-19.1197, -142.085, 58.5097, 1.04)
pt3dadd(-23.9697, -143.475, 63.3997, 1.04)
pt3dadd(-24.0397, -144.915, 63.3997, 1.04)
pt3dadd(-26.6297, -146.235, 63.3997, 1.04)
pt3dadd(-29.3997, -147.915, 70.2597, 1.04)
pt3dadd(-30.0897, -150.125, 73.1897, 0.7)
pt3dadd(-29.3397, -153.445, 73.1897, 0.7)
pt3dadd(-29.7797, -156.485, 76.1297, 0.7)
pt3dadd(-30.7797, -159.525, 77.1096, 0.7)
pt3dadd(-33.1996, -162.075, 77.1096, 0.7)
pt3dadd(-32.7097, -164.245, 77.1096, 0.7)
pt3dadd(-31.7497, -164.915, 81.0296, 0.7)
pt3dadd(-33.0797, -166.585, 81.0296, 0.7)
pt3dadd(-35.5597, -167.785, 81.0296, 0.7)
pt3dadd(-35.8896, -170.275, 81.0296, 0.7)
pt3dadd(-35.5697, -173.675, 81.0296, 0.7)
pt3dadd(-33.2697, -175.895, 81.0296, 0.7)
pt3dadd(-31.7397, -178.945, 81.0296, 0.7)
pt3dadd(-29.8697, -181.255, 87.8797, 0.7)
pt3dadd(-28.9297, -183.425, 87.8797, 0.7)
pt3dadd(-28.6897, -185.375, 94.7296, 0.7)
pt3dadd(-28.7097, -187.565, 94.7296, 0.7)
pt3dadd(-27.2397, -190.745, 92.7697, 0.7)
pt3dadd(-26.9397, -191.525, 92.7697, 0.7)
pt3dadd(-26.5397, -193.735, 92.7697, 0.7)
pt3dadd(-25.6197, -195.365, 92.7697, 0.7)
pt3dadd(-24.9097, -196.655, 92.7697, 0.7)
pt3dadd(-23.6597, -199.365, 92.7697, 0.7)
pt3dadd(-22.6197, -201.795, 95.7097, 0.7)
pt3dadd(-23.8197, -203.525, 95.7097, 0.7)
pt3dadd(-24.0197, -204.775, 95.7097, 0.7)
pt3dadd(-24.6097, -209.055, 97.6696, 0.7)
pt3dadd(-24.1597, -210.625, 98.6496, 0.7)
pt3dadd(-25.2797, -213.435, 98.6496, 0.7)
pt3dadd(-23.8397, -217.315, 98.6496, 0.7)
pt3dadd(-21.8497, -221.735, 98.6496, 0.7)
pt3dadd(-21.1797, -224.915, 98.6496, 0.7)
pt3dadd(-17.2397, -226.765, 98.6496, 0.7)
pt3dadd(-11.4197, -228.195, 98.6496, 0.7)
pt3dadd(-7.01965, -228.415, 102.56, 0.7)
pt3dadd(-3.95966, -229.245, 102.56, 0.7)
pt3dadd(-1.6897, -230.755, 104.52, 0.7)
pt3dadd(0.89032, -232.545, 104.52, 0.7)
pt3dadd(2.48035, -231.805, 104.52, 0.7)
pt3dadd(5.33032, -233.225, 104.52, 0.7)
pt3dadd(7.73032, -233.755, 104.52, 0.7)
pt3dadd(9.70032, -235.375, 104.52, 0.7)
pt3dadd(12.0503, -234.925, 104.52, 0.7)
pt3dadd(13.8803, -236.845, 104.52, 0.7)
pt3dadd(16.2303, -240.145, 104.52, 0.7)
pt3dadd(19.4403, -240.035, 106.48, 0.7)
pt3dadd(23.7803, -242.125, 110.4, 0.7)
pt3dadd(26.7803, -242.115, 111.38, 0.7)
pt3dadd(27.6703, -244.345, 111.38, 0.7)
pt3dadd(27.6503, -244.955, 111.38, 0.7)
pt3dadd(30.1403, -245.075, 111.38, 0.7)
pt3dadd(31.7603, -243.975, 113.33, 0.7)
pt3dadd(33.4003, -245.095, 113.33, 0.7)
pt3dadd(35.1003, -244.325, 113.33, 0.7)
pt3dadd(37.3103, -246.325, 117.25, 0.35)
pt3dadd(37.5303, -246.595, 117.25, 0.35)
pt3dadd(42.1103, -246.275, 118.23, 0.35)
pt3dadd(46.8403, -246.285, 118.23, 0.35)
pt3dadd(50.4203, -246.705, 120.19, 0.35)
pt3dadd(50.4203, -246.705, 121.17, 0.35)
pt3dadd(54.1703, -247.485, 121.17, 0.35)
pt3dadd(55.4303, -249.615, 121.17, 0.35)
pt3dadd(56.4203, -251.255, 121.17, 0.35)
pt3dadd(58.0403, -251.585, 121.17, 0.35)
pt3dadd(59.7303, -254.375, 121.17, 0.35)
pt3dadd(61.9703, -255.475, 121.17, 0.35)
pt3dadd(64.0703, -255.215, 124.1, 0.35)
pt3dadd(65.6803, -258.005, 125.08, 0.35)
pt3dadd(68.5903, -257.115, 126.06, 0.35)
pt3dadd(70.5803, -258.205, 126.06, 0.35)
pt3dadd(74.1503, -257.675, 129, 0.35)
pt3dadd(77.5403, -258.675, 129.98, 0.35)
pt3dadd(81.4803, -260.005, 129.98, 0.35)
pt3dadd(85.4203, -262.805, 129.98, 0.35)
pt3dadd(87.0503, -263.335, 136.83, 0.35)
pt3dadd(89.9603, -262.545, 137.81, 0.35)
pt3dadd(92.9903, -262.115, 136.83, 0.35)
pt3dadd(96.1003, -262.005, 135.85, 0.35)
}
}
proc shape3d_4() {
dend[18] { }
dend[19] {pt3dclear()
pt3dadd(43.7103, -20.4749, 14.4496, 3.83)
pt3dadd(45.2103, -22.0149, 13.4797, 3.83)
pt3dadd(47.6003, -24.7749, 15.4297, 3.13)
pt3dadd(51.3803, -26.0949, 17.3897, 2.78)
pt3dadd(55.3603, -28.1949, 21.3097, 2.78)
pt3dadd(58.9903, -30.1649, 27.1797, 2.78)
pt3dadd(61.4303, -31.5649, 27.1797, 2.44)
pt3dadd(64.1503, -32.5349, 27.1797, 2.44)
pt3dadd(67.6003, -34.2449, 27.1797, 2.44)
pt3dadd(70.0403, -34.9349, 28.1597, 2.44)
pt3dadd(72.8603, -36.0849, 27.1797, 2.44)
pt3dadd(75.2603, -37.3049, 26.1996, 2.44)
}
dend[20] {pt3dclear()
pt3dadd(43.7103, -20.4749, 14.4496, 3.83)
pt3dadd(46.6803, -18.6049, 22.2896, 3.83)
pt3dadd(48.6703, -16.7149, 23.2696, 3.13)
pt3dadd(51.3703, -14.7449, 30.1196, 2.78)
pt3dadd(54.2403, -10.1549, 30.1196, 2.78)
pt3dadd(56.6903, -6.88488, 35.0097, 2.44)
pt3dadd(58.9303, -3.96488, 41.8697, 2.09)
pt3dadd(60.2303, -0.514881, 41.8697, 2.09)
pt3dadd(60.7603, 2.12512, 46.7597, 2.09)
pt3dadd(62.5203, 3.03512, 50.6796, 2.44)
pt3dadd(64.0203, 4.30512, 57.5297, 2.09)
pt3dadd(65.3703, 5.63512, 57.5297, 2.09)
pt3dadd(67.1503, 6.90512, 57.5297, 2.09)
pt3dadd(68.6103, 8.97512, 61.4496, 2.09)
pt3dadd(70.7903, 11.8351, 61.4496, 2.09)
pt3dadd(72.0403, 14.1251, 61.4496, 2.09)
pt3dadd(72.6903, 16.8051, 60.4697, 2.09)
pt3dadd(74.1303, 20.4051, 64.3797, 2.09)
pt3dadd(75.1703, 23.0451, 64.3797, 2.09)
pt3dadd(76.2003, 25.2651, 70.2597, 2.09)
}
dend[21] {pt3dclear()
pt3dadd(22.3803, -43.5249, 33.0597, 2.09)
pt3dadd(20.1203, -44.5249, 41.8697, 2.09)
pt3dadd(18.3403, -46.2849, 41.8697, 2.09)
pt3dadd(17.4803, -47.8949, 44.7997, 2.09)
pt3dadd(15.9503, -49.6249, 47.7397, 1.74)
pt3dadd(15.0203, -51.7349, 47.7397, 1.74)
pt3dadd(15.4403, -52.9949, 50.6796, 1.74)
pt3dadd(13.2703, -54.3849, 50.6796, 1.74)
pt3dadd(10.9303, -55.5049, 50.6796, 1.74)
pt3dadd(9.55032, -56.6549, 50.6796, 1.74)
pt3dadd(8.30032, -58.1649, 53.6096, 1.74)
pt3dadd(5.86032, -59.1849, 53.6096, 1.74)
pt3dadd(3.51031, -60.8749, 53.6096, 1.74)
pt3dadd(3.78033, -62.9749, 57.5297, 1.74)
pt3dadd(4.76031, -65.1649, 62.4296, 1.39)
pt3dadd(5.33032, -68.6749, 62.4296, 1.39)
pt3dadd(4.75031, -71.4449, 72.2197, 1.39)
pt3dadd(2.83032, -73.5549, 72.2197, 1.39)
pt3dadd(3.77032, -76.3349, 72.2197, 1.39)
pt3dadd(4.25031, -79.3849, 71.2397, 1.39)
pt3dadd(4.5603, -81.2549, 72.2197, 1.39)
}
dend[22] {pt3dclear()
pt3dadd(22.3803, -43.5249, 33.0597, 1.74)
pt3dadd(23.7903, -43.3449, 38.9296, 1.74)
pt3dadd(24.8503, -43.3549, 42.8497, 1.74)
pt3dadd(26.6203, -42.7149, 54.5896, 1.74)
pt3dadd(29.1303, -42.4849, 54.5896, 1.74)
pt3dadd(30.9303, -42.3249, 57.5297, 1.74)
pt3dadd(32.1103, -41.3049, 57.5297, 1.74)
pt3dadd(33.2303, -41.6649, 57.5297, 1.74)
}
dend[23] {pt3dclear()
pt3dadd(-57.3697, -19.5149, 2.70965, 1.04)
pt3dadd(-59.6897, -21.8749, -1.21035, 1.04)
pt3dadd(-61.4797, -23.5049, -1.21035, 1.04)
pt3dadd(-61.4097, -24.3849, -1.21035, 1.04)
pt3dadd(-63.2597, -24.8349, -1.21035, 1.04)
pt3dadd(-63.5197, -26.4749, -3.17035, 1.04)
pt3dadd(-63.1797, -28.3949, -3.17035, 1.04)
pt3dadd(-64.2197, -30.0449, -3.17035, 1.04)
pt3dadd(-65.7697, -31.3549, -12.9604, 1.04)
pt3dadd(-67.1396, -32.0549, -17.8503, 1.04)
pt3dadd(-67.7297, -31.4749, -16.8703, 1.04)
pt3dadd(-69.4797, -32.9249, -21.7703, 1.04)
pt3dadd(-69.9097, -35.7949, -21.7703, 1.04)
pt3dadd(-71.4397, -35.8749, -27.6404, 1.04)
pt3dadd(-71.8797, -34.2249, -27.6404, 1.04)
pt3dadd(-72.4897, -36.3849, -30.5803, 1.04)
pt3dadd(-72.4897, -36.3849, -31.5603, 1.04)
pt3dadd(-75.5997, -38.0349, -31.5603, 1.04)
pt3dadd(-77.5997, -39.2349, -36.4503, 1.39)
pt3dadd(-79.1097, -39.4549, -36.4503, 1.39)
pt3dadd(-80.7797, -39.2549, -36.4503, 1.39)
pt3dadd(-82.4797, -40.7149, -40.3703, 1.39)
pt3dadd(-84.8497, -40.1549, -40.3703, 1.39)
pt3dadd(-86.9097, -40.0249, -40.3703, 1.39)
pt3dadd(-88.6797, -42.3249, -45.2603, 1.39)
pt3dadd(-89.7097, -42.8249, -45.2603, 0.7)
pt3dadd(-92.7397, -43.8949, -45.2603, 0.7)
pt3dadd(-92.8197, -46.8049, -45.2603, 0.7)
pt3dadd(-96.4496, -48.6949, -49.1804, 0.7)
pt3dadd(-99.6996, -49.3649, -50.1604, 0.7)
pt3dadd(-101.48, -51.5949, -57.9904, 0.7)
pt3dadd(-104.86, -52.5649, -63.8603, 0.7)
pt3dadd(-108.23, -53.4049, -63.8603, 0.7)
pt3dadd(-111.8, -53.4949, -65.8203, 0.7)
pt3dadd(-113.87, -51.9249, -66.8004, 0.7)
pt3dadd(-115.9, -49.6749, -73.6503, 0.7)
pt3dadd(-120.11, -48.3949, -73.6503, 0.7)
pt3dadd(-124.76, -48.8049, -73.6503, 0.7)
pt3dadd(-127.43, -45.8949, -78.5504, 0.7)
pt3dadd(-127.23, -45.6049, -78.5504, 0.7)
pt3dadd(-130.53, -44.3949, -79.5303, 0.7)
pt3dadd(-131.06, -45.4949, -79.5303, 0.7)
pt3dadd(-132.12, -43.9549, -79.5303, 0.7)
pt3dadd(-134.25, -42.5649, -79.5303, 0.7)
pt3dadd(-136.59, -41.3849, -79.5303, 0.7)
pt3dadd(-139.3, -41.1749, -83.4404, 0.7)
pt3dadd(-139.67, -38.9549, -83.4404, 0.7)
pt3dadd(-141.61, -36.5949, -92.2603, 0.7)
pt3dadd(-142.45, -35.6649, -92.2603, 0.7)
pt3dadd(-142.89, -33.0449, -97.1503, 0.7)
pt3dadd(-145.61, -31.8049, -102.05, 0.7)
pt3dadd(-146.03, -31.0749, -103.02, 0.7)
pt3dadd(-147.03, -30.9149, -103.02, 0.7)
pt3dadd(-148.18, -29.6049, -103.02, 0.7)
pt3dadd(-150.27, -29.9049, -103.02, 0.7)
pt3dadd(-151.72, -28.5249, -106.94, 0.7)
pt3dadd(-154.26, -28.6749, -110.86, 0.7)
pt3dadd(-156.27, -27.0549, -111.84, 0.7)
pt3dadd(-157.36, -24.9449, -113.79, 0.7)
pt3dadd(-160.29, -22.6749, -116.73, 0.7)
pt3dadd(-163.2, -20.5649, -112.81, 0.7)
pt3dadd(-165.14, -17.9449, -112.81, 0.7)
pt3dadd(-168.28, -15.9749, -112.81, 0.7)
pt3dadd(-170.03, -13.1849, -112.81, 0.7)
pt3dadd(-173.89, -10.9249, -111.84, 0.7)
pt3dadd(-176.2, -8.02488, -111.84, 0.7)
pt3dadd(-179.9, -6.48488, -111.84, 0.7)
pt3dadd(-182.3, -4.71488, -111.84, 0.7)
pt3dadd(-185.38, -2.63488, -111.84, 0.7)
pt3dadd(-187.74, -1.30488, -114.77, 0.7)
pt3dadd(-189.49, 1.48512, -115.75, 0.7)
pt3dadd(-192.29, 0.905121, -115.75, 0.7)
pt3dadd(-192.87, 2.84512, -119.67, 0.7)
pt3dadd(-194.54, 3.91512, -119.67, 0.7)
pt3dadd(-196.86, 5.79512, -121.63, 0.7)
pt3dadd(-199.94, 9.33512, -125.54, 0.7)
pt3dadd(-202.9, 12.4051, -126.52, 0.7)
pt3dadd(-204.65, 16.1851, -126.52, 0.7)
pt3dadd(-205.54, 18.4051, -130.44, 0.7)
pt3dadd(-207.87, 19.7551, -130.44, 0.7)
pt3dadd(-209.96, 20.7751, -131.41, 0.7)
pt3dadd(-212.82, 21.0751, -131.41, 0.7)
pt3dadd(-215.26, 23.1151, -136.31, 0.7)
pt3dadd(-218.3, 25.3051, -136.31, 0.7)
pt3dadd(-221.31, 28.3851, -136.31, 0.7)
pt3dadd(-223.52, 29.8451, -136.31, 0.7)
pt3dadd(-227.36, 29.9451, -136.31, 0.7)
pt3dadd(-229.02, 31.3551, -140.23, 0.7)
pt3dadd(-229.89, 34.5051, -140.23, 0.7)
pt3dadd(-229.56, 38.1751, -140.23, 0.7)
pt3dadd(-230.28, 43.2551, -145.12, 0.7)
pt3dadd(-229, 46.0451, -149.04, 0.7)
pt3dadd(-226.81, 47.2551, -149.04, 0.7)
pt3dadd(-225.77, 50.3951, -149.04, 0.7)
pt3dadd(-221.44, 50.6251, -150.02, 0.7)
pt3dadd(-218.6, 50.7851, -155.89, 0.7)
pt3dadd(-217.61, 52.3651, -155.89, 0.35)
pt3dadd(-216.35, 52.2751, -155.89, 0.35)
pt3dadd(-214.03, 54.7651, -155.89, 0.35)
pt3dadd(-214.48, 57.6051, -157.85, 0.35)
pt3dadd(-212.78, 59.7051, -157.85, 0.35)
pt3dadd(-210.58, 62.7451, -157.85, 0.35)
pt3dadd(-212.56, 64.7251, -158.83, 0.35)
pt3dadd(-212.92, 66.7451, -158.83, 0.35)
pt3dadd(-210.98, 69.1151, -158.83, 0.35)
pt3dadd(-210.13, 71.7751, -158.83, 0.35)
pt3dadd(-207.48, 74.6951, -158.83, 0.35)
pt3dadd(-208.24, 75.6851, -158.83, 0.35)
pt3dadd(-209.55, 78.4151, -158.83, 0.35)
pt3dadd(-208.88, 79.6051, -158.83, 0.35)
pt3dadd(-209.32, 81.3151, -158.83, 0.35)
pt3dadd(-209.48, 82.8051, -158.83, 0.35)
pt3dadd(-212.15, 82.8351, -158.83, 0.35)
pt3dadd(-213.72, 85.8051, -157.85, 0.35)
pt3dadd(-214.78, 88.9951, -157.85, 0.35)
pt3dadd(-217.22, 89.5951, -157.85, 0.35)
pt3dadd(-218.16, 89.9551, -163.72, 0.35)
pt3dadd(-219.35, 92.7951, -164.7, 0.35)
pt3dadd(-219.73, 94.3651, -164.7, 0.35)
pt3dadd(-220.66, 94.6051, -169.6, 0.35)
pt3dadd(-221.85, 95.4801, -175, 0.35)
pt3dadd(-221.85, 95.4801, -175, 0.35)
pt3dadd(-221.85, 95.4801, -175, 0.35)
pt3dadd(-221.85, 95.4801, -175, 0.35)
pt3dadd(-221.85, 95.4801, -175, 0.35)
pt3dadd(-221.85, 95.4801, -175, 0.35)
pt3dadd(-221.85, 95.4801, -175, 0.35)
pt3dadd(-221.85, 95.4801, -175, 0.35)
pt3dadd(-221.85, 95.4801, -175, 0.35)
pt3dadd(-221.85, 95.4801, -175, 0.35)
pt3dadd(-221.85, 95.4801, -175, 0.35)
pt3dadd(-221.85, 95.4801, -175, 0.35)
pt3dadd(-221.85, 95.4801, -175, 0.35)
pt3dadd(-221.85, 95.4801, -175, 0.35)
pt3dadd(-221.85, 95.4801, -175, 0.35)
}
dend[24] {pt3dclear()
pt3dadd(-57.3697, -19.5149, 2.70965, 0.7)
pt3dadd(-60.0797, -19.8549, 5.63965, 0.7)
pt3dadd(-61.8197, -21.4649, 5.63965, 0.7)
pt3dadd(-63.6497, -21.6749, 5.63965, 0.7)
}
}
proc shape3d_5() {
dend[24] { pt3dadd(-65.4797, -20.4449, 5.63965, 0.7)
pt3dadd(-66.8797, -21.2749, 5.63965, 0.7)
pt3dadd(-69.5997, -22.3349, 5.63965, 0.7)
pt3dadd(-71.5797, -24.0849, 5.63965, 0.7)
pt3dadd(-71.9496, -25.9349, 5.63965, 0.7)
pt3dadd(-74.7397, -27.0049, 4.66965, 0.7)
pt3dadd(-75.9697, -27.5549, 4.66965, 0.7)
pt3dadd(-78.3097, -29.3449, 6.61965, 0.7)
pt3dadd(-79.7997, -28.1249, 6.61965, 0.7)
pt3dadd(-82.2897, -30.7849, 6.61965, 0.7)
pt3dadd(-83.9797, -31.2249, 7.59965, 0.7)
pt3dadd(-85.6597, -31.9449, 7.59965, 0.7)
pt3dadd(-87.9997, -30.8249, 7.59965, 0.7)
pt3dadd(-90.7797, -31.8649, 2.70965, 0.7)
pt3dadd(-92.0697, -33.3149, 1.72965, 0.7)
pt3dadd(-93.8697, -34.0649, 1.72965, 0.7)
pt3dadd(-95.7897, -33.5949, 1.72965, 0.7)
pt3dadd(-98.4397, -34.4049, 1.72965, 0.7)
pt3dadd(-99.9397, -33.3049, 1.72965, 0.7)
pt3dadd(-101.42, -32.8649, 1.72965, 0.7)
pt3dadd(-103.75, -32.5249, 1.72965, 0.7)
pt3dadd(-106.16, -31.6149, 0.74965, 0.7)
pt3dadd(-108.37, -32.5549, 0.74965, 0.7)
pt3dadd(-111.83, -32.8949, 0.74965, 0.7)
pt3dadd(-113.29, -31.8049, -4.15035, 0.7)
pt3dadd(-116.34, -32.5149, -4.15035, 0.7)
pt3dadd(-118.55, -33.1549, -4.15035, 0.7)
pt3dadd(-120.65, -35.8349, -4.15035, 0.7)
pt3dadd(-124.88, -36.1249, -5.12035, 0.7)
pt3dadd(-128.63, -38.2549, -5.12035, 0.7)
pt3dadd(-130.56, -43.0449, -5.12035, 0.7)
pt3dadd(-132.16, -45.8549, -14.9103, 0.7)
pt3dadd(-134.37, -50.1349, -15.8904, 0.7)
pt3dadd(-136.13, -53.5549, -15.8904, 0.7)
pt3dadd(-137.26, -55.5349, -15.8904, 0.7)
pt3dadd(-139.18, -56.8049, -15.8904, 0.7)
pt3dadd(-139.04, -58.6549, -15.8904, 0.7)
pt3dadd(-140.13, -60.6949, -15.8904, 0.7)
pt3dadd(-141.97, -62.8149, -15.8904, 0.7)
pt3dadd(-143.74, -64.9149, -15.8904, 0.7)
pt3dadd(-142.4, -66.6849, -15.8904, 0.7)
pt3dadd(-144.17, -68.8149, -15.8904, 0.7)
pt3dadd(-144.55, -70.7749, -15.8904, 0.7)
pt3dadd(-146.15, -75.8249, -23.7304, 0.7)
pt3dadd(-147.72, -81.2049, -22.7504, 0.7)
pt3dadd(-148.46, -85.5449, -22.7504, 0.7)
pt3dadd(-150.19, -87.9949, -22.7504, 0.7)
pt3dadd(-151.99, -91.8749, -22.7504, 0.7)
pt3dadd(-151.5, -94.1349, -22.7504, 0.7)
pt3dadd(-152.86, -96.1349, -22.7504, 0.7)
pt3dadd(-152.4, -99.5549, -27.6404, 0.7)
pt3dadd(-152.47, -102.105, -27.6404, 0.7)
pt3dadd(-152.86, -104.525, -27.6404, 0.7)
}
dend[25] {pt3dclear()
pt3dadd(-9.88965, -16.3049, 3.68965, 2.44)
pt3dadd(-11.3297, -18.5349, 4.66965, 2.44)
pt3dadd(-12.6597, -20.8849, 4.66965, 2.44)
pt3dadd(-15.0597, -21.5849, 6.61965, 3.13)
pt3dadd(-17.4097, -21.2749, 3.68965, 2.44)
pt3dadd(-19.4597, -21.1349, 0.74965, 1.74)
pt3dadd(-21.3896, -21.1949, -0.23035, 1.74)
pt3dadd(-23.7497, -20.1849, -0.23035, 1.74)
pt3dadd(-26.2597, -19.3349, -3.17035, 2.09)
pt3dadd(-28.6297, -19.1549, -3.17035, 2.09)
pt3dadd(-30.9997, -19.4749, -5.12035, 2.09)
pt3dadd(-33.0497, -19.3349, -5.12035, 2.09)
pt3dadd(-35.1197, -18.4349, -6.10035, 2.09)
pt3dadd(-37.4697, -18.6149, -10.0203, 2.09)
pt3dadd(-39.4496, -19.5649, -20.7903, 2.09)
pt3dadd(-41.0297, -20.9149, -20.7903, 2.09)
pt3dadd(-42.4397, -21.0749, -23.7304, 2.09)
pt3dadd(-42.5297, -20.0249, -31.5603, 2.09)
}
dend[26] {pt3dclear()
pt3dadd(-9.88965, -16.3049, 3.68965, 3.48)
pt3dadd(-10.4997, -19.7049, 3.68965, 3.48)
pt3dadd(-11.7197, -22.8649, 2.70965, 3.48)
pt3dadd(-12.9697, -26.0649, 2.70965, 2.78)
pt3dadd(-13.7697, -27.7849, 2.70965, 2.44)
pt3dadd(-14.9697, -30.2149, 3.68965, 2.44)
pt3dadd(-16.1797, -33.0349, 3.68965, 2.44)
pt3dadd(-17.1497, -36.4649, 3.68965, 2.09)
pt3dadd(-17.6497, -39.5649, 3.68965, 2.09)
pt3dadd(-18.3497, -41.8049, 2.70965, 2.09)
pt3dadd(-19.4997, -44.1449, 1.72965, 2.09)
pt3dadd(-21.2097, -46.0449, -0.23035, 2.09)
pt3dadd(-21.6297, -48.7949, -0.23035, 2.09)
pt3dadd(-22.5897, -50.8949, -6.10035, 2.09)
pt3dadd(-22.4897, -53.5349, -6.10035, 2.09)
pt3dadd(-22.6097, -54.7749, -10.0203, 2.09)
pt3dadd(-23.7497, -56.3849, -11.9804, 2.09)
pt3dadd(-24.0097, -58.2449, -11.9804, 2.09)
pt3dadd(-25.6497, -60.0249, -12.9604, 2.09)
pt3dadd(-26.2397, -62.1649, -13.9403, 2.09)
pt3dadd(-27.6097, -64.0849, -13.9403, 2.09)
pt3dadd(-26.5497, -65.9449, -20.7903, 1.74)
pt3dadd(-25.3197, -66.9149, -20.7903, 1.74)
pt3dadd(-26.7797, -68.9949, -25.6804, 1.74)
pt3dadd(-27.5797, -71.1149, -27.6404, 1.74)
pt3dadd(-29.5697, -72.1049, -30.5803, 1.39)
pt3dadd(-29.8797, -71.9349, -30.5803, 1.39)
pt3dadd(-29.0297, -73.8449, -31.5603, 1.39)
pt3dadd(-29.3997, -75.4249, -35.4703, 1.39)
pt3dadd(-30.7497, -75.9849, -35.4703, 1.39)
pt3dadd(-33.3697, -76.2749, -39.3904, 1.39)
pt3dadd(-34.2197, -77.6349, -41.3503, 1.39)
pt3dadd(-36.1697, -78.2449, -47.2203, 1.39)
pt3dadd(-37.2697, -79.1749, -48.2003, 1.39)
pt3dadd(-38.5097, -80.2649, -48.2003, 1.04)
pt3dadd(-40.9397, -82.2249, -48.2003, 1.04)
}
iseg {pt3dclear()
pt3dadd(45.1503, -80.7949, 15.4297, 1.39)
pt3dadd(46.1903, -86.9549, 15.4297, 1.39)
pt3dadd(45.2103, -95.0649, 15.4297, 1.39)
pt3dadd(45.3303, -101.435, 16.4097, 1.39)
}
dend[27] {pt3dclear()
pt3dadd(-13.5097, 93.5251, -45.2603, 0.7)
pt3dadd(-13.7897, 96.0151, -52.1203, 0.7)
pt3dadd(-13.1497, 98.3751, -53.1003, 0.7)
pt3dadd(-10.8497, 100.065, -53.1003, 0.7)
pt3dadd(-10.1396, 102.245, -53.1003, 0.7)
pt3dadd(-9.10968, 105.245, -53.1003, 0.7)
pt3dadd(-9.52966, 107.455, -53.1003, 0.7)
pt3dadd(-7.74969, 109.715, -53.1003, 0.7)
pt3dadd(-5.70966, 112.075, -53.1003, 0.7)
pt3dadd(-6.10968, 114.825, -57.0103, 0.7)
pt3dadd(-7.7597, 115.685, -57.0103, 0.7)
pt3dadd(-7.3797, 117.135, -57.0103, 0.7)
pt3dadd(-6.10968, 118.025, -61.9104, 0.7)
pt3dadd(-5.97968, 119.875, -62.8903, 0.7)
pt3dadd(-3.77966, 122.145, -65.8203, 0.7)
pt3dadd(-1.67969, 121.775, -68.7603, 0.7)
pt3dadd(-0.779663, 124.815, -68.7603, 0.7)
pt3dadd(-0.929688, 126.535, -70.7204, 0.7)
pt3dadd(-1.90967, 129.085, -73.6503, 0.7)
pt3dadd(-0.949646, 132.085, -74.6304, 0.7)
}
dend[28] {pt3dclear()
pt3dadd(-13.5097, 93.5251, -45.2603, 1.04)
pt3dadd(-11.3997, 91.6751, -49.1804, 1.04)
pt3dadd(-5.97968, 90.6751, -49.1804, 1.04)
pt3dadd(-3.36969, 89.3351, -53.1003, 0.7)
pt3dadd(-0.199646, 87.7751, -53.1003, 0.7)
pt3dadd(1.53033, 86.5751, -57.0103, 0.7)
pt3dadd(2.4303, 85.2251, -57.0103, 0.7)
pt3dadd(3.0603, 86.5751, -60.9303, 0.7)
pt3dadd(3.46033, 87.7651, -61.9104, 0.7)
pt3dadd(5.6803, 87.5751, -64.8403, 0.7)
pt3dadd(8.69034, 89.8451, -65.8203, 0.7)
pt3dadd(11.4003, 92.9051, -65.8203, 0.7)
pt3dadd(11.2403, 94.2451, -65.8203, 0.7)
pt3dadd(12.4003, 95.5151, -65.8203, 0.7)
pt3dadd(11.9703, 96.8951, -65.8203, 0.7)
pt3dadd(12.8403, 98.3651, -65.8203, 0.7)
pt3dadd(15.9903, 98.0251, -69.7404, 0.7)
pt3dadd(18.5903, 99.1651, -72.6803, 0.7)
pt3dadd(20.6203, 101.235, -73.6503, 0.7)
pt3dadd(24.7103, 102.005, -74.6304, 0.7)
pt3dadd(28.4703, 100.065, -74.6304, 0.7)
pt3dadd(29.3303, 103.575, -83.4404, 0.35)
pt3dadd(30.5703, 106.795, -84.4203, 0.35)
pt3dadd(31.3203, 108.685, -84.4203, 0.35)
}
dend[29] {pt3dclear()
pt3dadd(4.70032, 64.3951, 8.57965, 2.78)
pt3dadd(7.54031, 65.4651, 6.61965, 2.78)
pt3dadd(9.99033, 67.3551, 6.61965, 2.44)
pt3dadd(12.4703, 68.5851, 6.61965, 2.09)
pt3dadd(15.0603, 70.1051, 6.61965, 2.09)
pt3dadd(17.4103, 71.9951, 7.59965, 2.09)
pt3dadd(20.3903, 73.5251, 7.59965, 2.09)
pt3dadd(23.4803, 75.8051, 7.59965, 2.09)
pt3dadd(26.8003, 77.3051, 7.59965, 2.09)
pt3dadd(28.8303, 78.4351, 7.59965, 2.09)
}
dend[30] {pt3dclear()
pt3dadd(4.70032, 64.3951, 8.57965, 3.13)
pt3dadd(2.95032, 67.1451, 11.5197, 3.13)
pt3dadd(3.29034, 70.0151, 11.5197, 2.78)
pt3dadd(2.77032, 73.3551, 11.5197, 1.74)
pt3dadd(1.27032, 77.2551, 12.4997, 1.74)
pt3dadd(1.52032, 80.7451, 12.4997, 1.74)
pt3dadd(1.27032, 84.7451, 11.5197, 1.74)
pt3dadd(0.420349, 87.1051, 11.5197, 1.74)
pt3dadd(-0.549683, 89.9551, 12.4997, 1.39)
pt3dadd(-2.83966, 93.0951, 12.4997, 1.39)
pt3dadd(-3.58966, 96.2351, 7.59965, 1.39)
pt3dadd(-4.11969, 99.6451, 6.61965, 1.39)
pt3dadd(-5.47968, 103.815, 6.61965, 1.39)
pt3dadd(-6.30969, 108.145, 6.61965, 1.39)
pt3dadd(-6.71967, 112.175, 5.63965, 1.39)
pt3dadd(-6.92969, 113.925, 5.63965, 1.39)
pt3dadd(-8.41968, 115.465, 5.63965, 1.39)
pt3dadd(-8.72968, 118.065, 2.70965, 1.39)
pt3dadd(-10.2097, 124.605, 2.70965, 1.39)
pt3dadd(-11.7097, 128.305, -0.23035, 1.39)
pt3dadd(-13.1597, 131.695, 2.70965, 1.39)
pt3dadd(-13.6697, 133.645, 2.70965, 1.39)
}
dend[31] {pt3dclear()
pt3dadd(-45.2897, 159.735, 67.3196, 0.7)
pt3dadd(-44.5697, 159.625, 67.3196, 0.7)
pt3dadd(-42.9897, 156.285, 66.3396, 0.7)
pt3dadd(-41.1297, 154.935, 76.1297, 0.7)
pt3dadd(-41.8797, 152.865, 78.0896, 0.7)
pt3dadd(-39.3797, 150.645, 78.0896, 0.7)
pt3dadd(-36.0997, 145.935, 82.9796, 0.7)
pt3dadd(-35.5797, 143.505, 82.9796, 0.7)
pt3dadd(-33.4597, 141.175, 82.9796, 0.7)
pt3dadd(-32.2397, 137.935, 87.8797, 0.7)
pt3dadd(-32.3497, 134.515, 92.7697, 0.7)
pt3dadd(-30.4397, 130.935, 93.7496, 0.7)
pt3dadd(-30.4397, 130.935, 94.7296, 0.7)
}
}
proc shape3d_6() {
dend[31] { pt3dadd(-31.7397, 128.355, 98.6496, 0.7)
pt3dadd(-31.0497, 125.585, 99.6297, 0.7)
pt3dadd(-27.5197, 121.075, 99.6297, 0.7)
pt3dadd(-27.8697, 118.845, 104.52, 0.35)
pt3dadd(-26.3497, 117.695, 104.52, 0.35)
pt3dadd(-26.3397, 114.825, 104.52, 0.35)
pt3dadd(-25.4897, 112.245, 108.44, 0.35)
pt3dadd(-22.6697, 109.525, 109.42, 0.35)
pt3dadd(-22.7697, 108.335, 111.38, 0.35)
pt3dadd(-19.6097, 108.045, 113.33, 0.35)
pt3dadd(-18.2797, 108.445, 114.31, 0.35)
pt3dadd(-16.9997, 106.475, 114.31, 0.35)
pt3dadd(-14.3397, 106.545, 117.25, 0.35)
pt3dadd(-12.2997, 106.625, 117.25, 0.35)
pt3dadd(-10.6197, 104.975, 119.21, 0.35)
pt3dadd(-10.6197, 104.975, 120.19, 0.35)
}
dend[32] {pt3dclear()
pt3dadd(-45.2897, 159.735, 67.3196, 0.7)
pt3dadd(-46.2397, 161.045, 70.2597, 0.7)
pt3dadd(-46.0597, 162.925, 70.2597, 0.7)
pt3dadd(-46.0697, 166.075, 72.2197, 0.7)
pt3dadd(-46.1597, 168.935, 72.2197, 0.7)
pt3dadd(-45.0797, 172.195, 72.2197, 0.7)
pt3dadd(-44.8697, 172.945, 72.2197, 0.35)
pt3dadd(-43.9997, 175.485, 72.2197, 0.35)
pt3dadd(-43.5597, 177.235, 72.2197, 0.35)
pt3dadd(-43.7797, 179.035, 72.2197, 0.35)
pt3dadd(-44.8597, 181.435, 72.2197, 0.35)
pt3dadd(-46.4897, 185.175, 72.2197, 0.35)
pt3dadd(-46.1697, 187.355, 75.1496, 0.35)
pt3dadd(-47.3597, 188.585, 78.0896, 0.35)
pt3dadd(-47.7797, 191.945, 80.0497, 0.35)
pt3dadd(-47.3397, 194.535, 81.0296, 0.35)
pt3dadd(-48.1396, 196.325, 81.0296, 0.35)
pt3dadd(-49.7197, 199.275, 81.0296, 0.35)
pt3dadd(-48.6996, 201.635, 83.9597, 0.35)
pt3dadd(-49.7697, 204.415, 85.9196, 0.35)
pt3dadd(-49.8896, 207.135, 86.8996, 0.35)
pt3dadd(-49.0597, 208.255, 86.8996, 0.35)
pt3dadd(-50.1697, 210.615, 87.8797, 0.35)
pt3dadd(-50.9397, 214.665, 87.8797, 0.35)
pt3dadd(-50.8497, 217.035, 89.8396, 0.35)
pt3dadd(-51.8597, 219.175, 90.8197, 0.35)
pt3dadd(-51.2897, 220.715, 90.8197, 0.35)
pt3dadd(-52.4697, 222.015, 90.8197, 0.35)
pt3dadd(-50.7497, 222.695, 93.7496, 0.35)
pt3dadd(-50.8797, 223.725, 94.7296, 0.35)
pt3dadd(-52.0497, 225.025, 94.7296, 0.35)
pt3dadd(-52.8397, 227.715, 96.6897, 0.35)
pt3dadd(-51.7397, 228.425, 100.61, 0.35)
pt3dadd(-54.0197, 229.085, 102.56, 0.35)
}
dend[33] {pt3dclear()
pt3dadd(-59.6996, 155.265, 32.0797, 0.7)
pt3dadd(-62.8597, 157.755, 31.0997, 0.7)
pt3dadd(-65.4897, 160.215, 31.0997, 0.7)
pt3dadd(-66.1197, 164.665, 31.0997, 0.7)
pt3dadd(-68.5597, 167.305, 30.1196, 0.7)
pt3dadd(-69.9997, 169.475, 30.1196, 0.7)
pt3dadd(-71.5997, 170.435, 30.1196, 0.7)
pt3dadd(-72.9697, 171.115, 24.2397, 0.7)
pt3dadd(-74.0497, 173.145, 24.2397, 0.7)
pt3dadd(-72.6197, 174.565, 24.2397, 0.7)
pt3dadd(-72.3197, 177.045, 24.2397, 0.7)
pt3dadd(-71.5997, 181.485, 24.2397, 0.7)
pt3dadd(-68.0697, 180.975, 24.2397, 0.7)
pt3dadd(-65.3697, 178.445, 20.3297, 0.7)
pt3dadd(-65.3997, 175.325, 20.3297, 0.7)
pt3dadd(-64.5997, 172.295, 13.4797, 0.7)
pt3dadd(-65.0297, 169.895, 13.4797, 0.7)
pt3dadd(-68.7697, 167.335, 9.55965, 0.7)
pt3dadd(-70.4697, 163.065, 9.55965, 0.7)
pt3dadd(-72.4097, 159.345, 4.66965, 0.7)
pt3dadd(-74.0997, 156.755, 4.66965, 0.7)
pt3dadd(-73.0297, 154.725, 0.74965, 0.7)
pt3dadd(-73.2297, 149.915, 0.74965, 0.7)
pt3dadd(-71.2697, 149.025, 0.74965, 0.7)
pt3dadd(-70.1797, 146.375, -3.17035, 0.7)
pt3dadd(-67.0897, 145.165, -11.9804, 0.7)
pt3dadd(-68.4997, 143.745, -16.8703, 0.7)
pt3dadd(-71.0497, 142.485, -21.7703, 0.7)
pt3dadd(-71.5797, 142.395, -21.7703, 0.7)
pt3dadd(-74.6497, 140.785, -21.7703, 0.7)
pt3dadd(-75.1097, 142.425, -21.7703, 0.7)
pt3dadd(-75.6297, 144.305, -21.7703, 0.7)
pt3dadd(-78.4097, 144.225, -27.6404, 0.7)
pt3dadd(-81.1697, 145.405, -28.6203, 0.7)
pt3dadd(-82.9297, 146.745, -36.4503, 0.7)
pt3dadd(-84.8997, 147.235, -36.4503, 0.7)
pt3dadd(-85.3697, 149.285, -40.3703, 0.7)
pt3dadd(-87.9697, 151.225, -41.3503, 0.7)
}
dend[34] {pt3dclear()
pt3dadd(-59.6996, 155.265, 32.0797, 0.7)
pt3dadd(-57.3597, 157.805, 27.1797, 0.7)
pt3dadd(-55.7297, 161.865, 27.1797, 0.7)
pt3dadd(-55.9697, 165.205, 27.1797, 0.7)
pt3dadd(-52.5197, 168.435, 27.1797, 0.7)
pt3dadd(-51.2197, 172.445, 27.1797, 0.7)
pt3dadd(-50.0297, 176.785, 31.0997, 0.7)
pt3dadd(-47.3397, 181.485, 31.0997, 0.7)
pt3dadd(-45.7997, 185.675, 31.0997, 0.7)
pt3dadd(-44.8397, 191.895, 35.0097, 0.7)
pt3dadd(-43.2597, 197.185, 35.0097, 0.7)
pt3dadd(-44.4697, 199.715, 35.0097, 0.7)
pt3dadd(-42.0597, 203.585, 35.0097, 0.7)
pt3dadd(-42.4697, 207.595, 35.9897, 0.7)
pt3dadd(-42.3497, 210.815, 35.9897, 0.7)
pt3dadd(-43.6197, 213.135, 41.8697, 0.7)
pt3dadd(-42.5897, 217.325, 44.7997, 0.7)
pt3dadd(-42.7997, 219.715, 50.6796, 0.7)
pt3dadd(-41.4797, 221.595, 50.6796, 0.7)
pt3dadd(-39.8297, 222.465, 50.6796, 0.7)
pt3dadd(-40.6597, 224.575, 50.6796, 0.35)
pt3dadd(-39.5297, 225.225, 50.6796, 0.35)
pt3dadd(-38.3997, 227.805, 56.5497, 0.35)
pt3dadd(-37.5497, 229.635, 56.5497, 0.35)
pt3dadd(-37.5497, 229.635, 57.5297, 0.35)
pt3dadd(-35.3097, 228.565, 58.5097, 0.35)
pt3dadd(-33.0397, 231.495, 57.5297, 0.35)
pt3dadd(-30.2397, 233.355, 57.5297, 0.35)
pt3dadd(-29.4797, 236.275, 57.5297, 0.35)
pt3dadd(-26.6097, 237.855, 57.5297, 0.35)
pt3dadd(-26.0297, 240.665, 61.4496, 0.35)
pt3dadd(-23.1996, 241.865, 61.4496, 0.35)
pt3dadd(-20.9197, 243.625, 68.2997, 0.35)
pt3dadd(-20.4197, 245.515, 69.2796, 0.35)
pt3dadd(-20.3397, 245.655, 69.2796, 0.35)
}
dend[35] {pt3dclear()
pt3dadd(21.1003, -83.9949, 130.96, 0.35)
pt3dadd(21.5703, -84.6949, 134.87, 0.35)
pt3dadd(22.5303, -86.6749, 140.75, 0.35)
pt3dadd(23.7803, -88.4849, 139.77, 0.35)
pt3dadd(24.8403, -91.9149, 139.77, 0.35)
pt3dadd(27.8903, -93.3849, 144.66, 0.35)
pt3dadd(27.8003, -93.6149, 149.56, 0.35)
pt3dadd(28.4403, -93.7649, 149.56, 0.35)
pt3dadd(29.1603, -96.9849, 149.56, 0.35)
pt3dadd(29.3803, -99.6449, 149.56, 0.35)
pt3dadd(31.0903, -102.435, 154.45, 0.35)
pt3dadd(32.5403, -103.535, 158.37, 0.35)
pt3dadd(33.6003, -105.305, 160.32, 0.35)
pt3dadd(34.7303, -104.835, 162.28, 0.35)
pt3dadd(35.1403, -106.635, 162.28, 0.35)
pt3dadd(36.8303, -108.625, 166.2, 0.35)
pt3dadd(36.9203, -110.025, 172.07, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
pt3dadd(36.9502, -111.714, 175, 0.35)
}
dend[36] {pt3dclear()
pt3dadd(21.1003, -83.9949, 130.96, 0.35)
pt3dadd(19.6503, -85.5849, 131.93, 0.35)
pt3dadd(17.8903, -87.6949, 138.79, 0.35)
pt3dadd(16.8603, -89.2749, 138.79, 0.35)
}
dend[37] {pt3dclear()
pt3dadd(-39.8896, -30.3949, 59.4897, 1.39)
pt3dadd(-39.7497, -27.8549, 69.2796, 1.39)
pt3dadd(-40.2397, -26.1649, 69.2796, 1.04)
pt3dadd(-41.6697, -23.3749, 75.1496, 1.04)
pt3dadd(-43.4197, -22.6249, 75.1496, 1.04)
pt3dadd(-44.5497, -19.9549, 75.1496, 1.04)
pt3dadd(-44.3997, -18.1749, 75.1496, 1.04)
pt3dadd(-47.0197, -16.7049, 75.1496, 1.04)
pt3dadd(-49.3297, -13.8549, 75.1496, 1.04)
pt3dadd(-50.1897, -11.0449, 75.1496, 1.04)
pt3dadd(-49.6396, -8.38488, 75.1496, 1.04)
}
}
proc shape3d_7() {
dend[37] { pt3dadd(-50.6297, -7.94488, 75.1496, 1.04)
pt3dadd(-51.7597, -7.25488, 75.1496, 1.04)
pt3dadd(-52.6396, -5.97488, 79.0697, 1.04)
pt3dadd(-53.4496, -3.82488, 82.9796, 1.04)
pt3dadd(-54.8397, -2.24488, 82.9796, 1.04)
pt3dadd(-56.6396, -0.54488, 82.9796, 1.04)
pt3dadd(-59.1996, 1.95512, 82.9796, 1.04)
pt3dadd(-60.8797, 5.20512, 82.9796, 1.04)
pt3dadd(-62.3097, 9.11512, 82.9796, 1.04)
pt3dadd(-63.7397, 13.4051, 82.9796, 1.04)
pt3dadd(-65.8997, 15.8451, 84.9397, 1.04)
pt3dadd(-68.6597, 18.1851, 84.9397, 0.7)
pt3dadd(-71.0097, 20.0251, 84.9397, 0.7)
pt3dadd(-72.4397, 21.5851, 87.8797, 0.7)
pt3dadd(-74.2297, 24.7451, 90.8197, 0.7)
pt3dadd(-77.0897, 27.5151, 90.8197, 0.7)
pt3dadd(-80.2697, 30.5451, 90.8197, 0.7)
pt3dadd(-83.0497, 30.3951, 90.8197, 0.7)
pt3dadd(-85.8597, 30.9651, 90.8197, 0.7)
pt3dadd(-90.6297, 32.2151, 90.8197, 0.7)
pt3dadd(-91.9097, 34.5251, 91.7997, 0.7)
pt3dadd(-95.5097, 36.7651, 94.7296, 0.7)
pt3dadd(-97.3397, 38.1951, 94.7296, 0.7)
pt3dadd(-99.6097, 41.8051, 94.7296, 0.7)
pt3dadd(-99.7297, 43.0751, 94.7296, 0.7)
pt3dadd(-103.81, 46.5051, 94.7296, 0.7)
pt3dadd(-104.16, 49.7851, 94.7296, 0.7)
pt3dadd(-102.43, 51.5951, 94.7296, 0.7)
pt3dadd(-101.21, 53.6551, 99.6297, 0.7)
pt3dadd(-98.8097, 56.4451, 103.54, 0.7)
pt3dadd(-94.4097, 57.4151, 103.54, 0.7)
pt3dadd(-91.0297, 58.6951, 103.54, 0.7)
pt3dadd(-88.5497, 61.8651, 104.52, 0.7)
pt3dadd(-88.3397, 61.5851, 104.52, 0.7)
pt3dadd(-88.6497, 63.3751, 106.48, 0.7)
pt3dadd(-84.9597, 66.4451, 111.38, 0.7)
pt3dadd(-81.2397, 70.0351, 111.38, 0.7)
pt3dadd(-79.1097, 72.8751, 111.38, 0.7)
pt3dadd(-75.9797, 75.9451, 110.4, 0.35)
pt3dadd(-73.9897, 79.9451, 111.38, 0.35)
pt3dadd(-70.5497, 83.2551, 114.31, 0.35)
pt3dadd(-69.2897, 85.1551, 118.23, 0.35)
pt3dadd(-66.7997, 86.8751, 118.23, 0.35)
pt3dadd(-64.1297, 87.9251, 122.14, 0.35)
pt3dadd(-60.9496, 89.8151, 124.1, 0.35)
pt3dadd(-57.9297, 94.2351, 124.1, 0.35)
pt3dadd(-56.2697, 97.9851, 126.06, 0.35)
pt3dadd(-54.0597, 99.9351, 127.04, 0.35)
pt3dadd(-51.3297, 101.475, 128.02, 0.35)
pt3dadd(-49.2697, 102.165, 131.93, 0.35)
pt3dadd(-48.1197, 104.345, 133.89, 0.35)
pt3dadd(-46.5997, 106.125, 132.91, 0.35)
pt3dadd(-46.3397, 106.665, 132.91, 0.35)
pt3dadd(-45.6697, 109.005, 132.91, 0.35)
pt3dadd(-43.7697, 108.235, 132.91, 0.35)
pt3dadd(-42.1396, 109.675, 134.87, 0.35)
pt3dadd(-42.1396, 109.675, 135.85, 0.35)
pt3dadd(-38.8797, 110.045, 135.85, 0.35)
pt3dadd(-36.2897, 109.615, 135.85, 0.35)
pt3dadd(-33.6097, 110.185, 137.81, 0.35)
pt3dadd(-31.6097, 108.105, 139.77, 0.35)
pt3dadd(-30.2497, 107.145, 143.68, 0.35)
pt3dadd(-28.4697, 105.795, 144.66, 0.35)
pt3dadd(-26.5397, 106.275, 148.58, 0.35)
pt3dadd(-27.2497, 109.745, 155.43, 0.35)
pt3dadd(-28.0797, 111.275, 159.35, 0.35)
pt3dadd(-25.7897, 111.345, 166.2, 0.35)
pt3dadd(-25.1996, 112.875, 167.18, 0.35)
pt3dadd(-23.9297, 115.325, 169.14, 0.35)
pt3dadd(-23.2997, 118.805, 169.14, 0.35)
pt3dadd(-22.1996, 118.865, 173.05, 0.35)
pt3dadd(-20.9061, 118.805, 175, 0.35)
pt3dadd(-20.9061, 118.805, 175, 0.35)
pt3dadd(-20.9061, 118.805, 175, 0.35)
pt3dadd(-20.9061, 118.805, 175, 0.35)
pt3dadd(-20.9061, 118.805, 175, 0.35)
pt3dadd(-19.5597, 106.715, 171.09, 0.35)
pt3dadd(-18.1097, 103.085, 170.11, 0.35)
pt3dadd(-15.8797, 100.655, 170.11, 0.35)
pt3dadd(-13.4097, 101.785, 161.3, 0.35)
pt3dadd(-10.9797, 99.1451, 161.3, 0.35)
pt3dadd(-12.3397, 95.9351, 157.39, 0.35)
pt3dadd(-13.2297, 94.4951, 148.58, 0.35)
pt3dadd(-16.2397, 93.3751, 144.66, 0.35)
pt3dadd(-18.6597, 91.9351, 136.83, 0.35)
pt3dadd(-17.0897, 89.2651, 130.96, 0.35)
pt3dadd(-16.2797, 84.5551, 125.08, 0.35)
pt3dadd(-15.8497, 82.7351, 121.17, 0.35)
}
dend[38] {pt3dclear()
pt3dadd(-39.8896, -30.3949, 59.4897, 1.04)
pt3dadd(-40.6097, -33.2449, 63.3997, 1.04)
pt3dadd(-42.0097, -36.7449, 66.3396, 1.04)
pt3dadd(-44.8497, -39.2149, 66.3396, 1.04)
pt3dadd(-47.0697, -40.4249, 73.1897, 1.04)
pt3dadd(-48.3697, -40.3149, 73.1897, 1.04)
pt3dadd(-50.6797, -41.4049, 73.1897, 1.04)
pt3dadd(-50.3197, -44.3249, 78.0896, 1.04)
pt3dadd(-52.5497, -45.8449, 78.0896, 1.04)
pt3dadd(-52.8097, -46.6949, 78.0896, 1.04)
pt3dadd(-52.3297, -48.7749, 78.0896, 1.04)
pt3dadd(-52.3697, -51.3049, 78.0896, 1.04)
pt3dadd(-54.6497, -54.5849, 78.0896, 1.04)
pt3dadd(-56.2897, -56.5949, 78.0896, 1.04)
pt3dadd(-55.9797, -59.2149, 78.0896, 1.04)
pt3dadd(-55.5797, -62.2149, 82.0096, 1.39)
pt3dadd(-55.1996, -65.6749, 82.9796, 1.39)
pt3dadd(-55.7497, -68.9249, 82.9796, 1.39)
pt3dadd(-55.7197, -71.2749, 85.9196, 1.04)
pt3dadd(-55.7997, -73.8249, 88.8596, 1.04)
pt3dadd(-55.0797, -75.6049, 88.8596, 1.04)
pt3dadd(-53.7397, -77.9349, 89.8396, 1.04)
pt3dadd(-52.9297, -79.5949, 94.7296, 1.04)
pt3dadd(-55.4697, -82.3149, 94.7296, 1.04)
pt3dadd(-54.0497, -84.9449, 94.7296, 1.04)
pt3dadd(-53.4197, -85.7949, 95.7097, 1.04)
pt3dadd(-53.2097, -87.0349, 93.7496, 1.04)
pt3dadd(-51.1697, -87.3949, 92.7697, 0.7)
pt3dadd(-52.0897, -89.5949, 94.7296, 0.7)
pt3dadd(-52.2597, -90.8149, 98.6496, 0.7)
pt3dadd(-53.1597, -92.9949, 102.56, 0.7)
pt3dadd(-54.8197, -95.4049, 102.56, 0.7)
pt3dadd(-54.8197, -99.6649, 104.52, 0.7)
pt3dadd(-54.0197, -103.565, 104.52, 0.7)
pt3dadd(-53.3097, -107.595, 109.42, 0.7)
pt3dadd(-54.1297, -111.065, 113.33, 0.7)
pt3dadd(-52.1797, -112.335, 116.27, 0.7)
pt3dadd(-51.0397, -112.075, 116.27, 0.7)
}
dend[39] {pt3dclear()
pt3dadd(96.1003, -262.005, 135.85, 0.35)
pt3dadd(100.72, -262.095, 135.85, 0.35)
pt3dadd(104.87, -263.715, 135.85, 0.35)
pt3dadd(106.87, -262.785, 135.85, 0.35)
pt3dadd(108.73, -261.495, 135.85, 0.35)
pt3dadd(111.65, -261.155, 135.85, 0.35)
pt3dadd(113.89, -262.805, 134.87, 0.35)
pt3dadd(118.02, -260.945, 134.87, 0.35)
pt3dadd(120.71, -261.225, 134.87, 0.35)
pt3dadd(123.55, -262.725, 134.87, 0.35)
pt3dadd(124.74, -263.265, 134.87, 0.35)
pt3dadd(126.75, -262.315, 134.87, 0.35)
pt3dadd(130.77, -261.655, 134.87, 0.35)
pt3dadd(135.4, -260.475, 134.87, 0.35)
pt3dadd(139.35, -258.365, 134.87, 0.35)
pt3dadd(145.46, -259.545, 134.87, 0.35)
pt3dadd(150.71, -259.725, 134.87, 0.35)
pt3dadd(154.61, -259.515, 134.87, 0.35)
pt3dadd(159.55, -258.395, 138.79, 0.35)
pt3dadd(161.39, -261.585, 138.79, 0.35)
pt3dadd(166.01, -261.555, 138.79, 0.35)
pt3dadd(172.2, -260.785, 138.79, 0.35)
pt3dadd(178.92, -258.775, 138.79, 0.35)
pt3dadd(183.18, -260.035, 139.77, 0.35)
pt3dadd(188.65, -258.515, 139.77, 0.35)
pt3dadd(194.25, -257.765, 139.77, 0.35)
pt3dadd(198.5, -258.975, 139.77, 0.35)
pt3dadd(202.87, -259.725, 139.77, 0.35)
pt3dadd(206.63, -257.775, 139.77, 0.35)
pt3dadd(210.33, -255.095, 139.77, 0.35)
pt3dadd(211.7, -256.415, 139.77, 0.35)
pt3dadd(216, -255.745, 139.77, 0.35)
pt3dadd(220.18, -254.405, 139.77, 0.35)
pt3dadd(224.4, -253.855, 139.77, 0.35)
pt3dadd(228.92, -253.845, 140.75, 0.35)
pt3dadd(233.93, -256.225, 140.75, 0.35)
}
dend[40] {pt3dclear()
pt3dadd(96.1003, -262.005, 135.85, 0.35)
pt3dadd(98.7303, -265.525, 139.77, 0.35)
pt3dadd(103.51, -268.355, 139.77, 0.35)
pt3dadd(106.42, -272.055, 139.77, 0.35)
pt3dadd(109.74, -275.665, 139.77, 0.35)
pt3dadd(112.43, -278.085, 139.77, 0.35)
pt3dadd(113.21, -281.925, 140.75, 0.35)
pt3dadd(114.4, -287.045, 140.75, 0.35)
pt3dadd(118.45, -291.605, 140.75, 0.35)
pt3dadd(118.89, -294.605, 140.75, 0.35)
pt3dadd(120.89, -297.985, 140.75, 0.35)
pt3dadd(122.25, -304.235, 140.75, 0.35)
pt3dadd(123.51, -310.895, 140.75, 0.35)
pt3dadd(123.92, -316.965, 140.75, 0.35)
pt3dadd(123.05, -320.605, 140.75, 0.35)
pt3dadd(121.78, -323.415, 140.75, 0.35)
pt3dadd(123.11, -326.175, 139.77, 0.35)
pt3dadd(124.03, -328.705, 138.79, 0.35)
pt3dadd(122.08, -329.575, 129, 0.35)
}
dend[41] {pt3dclear()
pt3dadd(75.2603, -37.3049, 26.1996, 2.44)
pt3dadd(76.7903, -39.5149, 26.1996, 2.44)
pt3dadd(77.3303, -42.0749, 25.2197, 2.09)
pt3dadd(80.4403, -43.9049, 25.2197, 2.09)
pt3dadd(83.5603, -47.3549, 25.2197, 1.74)
pt3dadd(86.8603, -51.1949, 25.2197, 1.74)
pt3dadd(89.4803, -55.2749, 25.2197, 1.74)
pt3dadd(90.6703, -58.7649, 25.2197, 1.74)
pt3dadd(92.3303, -63.2249, 25.2197, 1.74)
pt3dadd(94.0503, -67.0849, 25.2197, 1.74)
pt3dadd(96.7303, -72.5049, 25.2197, 1.74)
pt3dadd(99.4003, -76.9049, 25.2197, 1.74)
pt3dadd(101.16, -79.7449, 25.2197, 1.74)
pt3dadd(103.34, -82.7249, 25.2197, 1.74)
pt3dadd(105.69, -85.9549, 25.2197, 1.74)
pt3dadd(107.08, -89.2249, 24.2397, 1.74)
pt3dadd(108.62, -92.3449, 24.2397, 1.74)
pt3dadd(110.15, -95.4649, 23.2696, 1.39)
pt3dadd(112.7, -97.5849, 23.2696, 1.39)
}
}
proc shape3d_8() {
dend[41] { pt3dadd(114.2, -100.115, 23.2696, 1.39)
pt3dadd(115.18, -103.795, 24.2397, 1.39)
pt3dadd(115.9, -105.475, 24.2397, 1.39)
pt3dadd(117.09, -107.825, 24.2397, 1.39)
pt3dadd(118.31, -108.725, 24.2397, 1.39)
pt3dadd(121.05, -110.455, 24.2397, 1.39)
pt3dadd(122.96, -113.985, 24.2397, 1.04)
pt3dadd(123.68, -115.175, 23.2696, 1.04)
pt3dadd(126.51, -116.145, 23.2696, 1.04)
pt3dadd(127.63, -119.335, 23.2696, 1.04)
pt3dadd(129.15, -121.225, 23.2696, 1.04)
}
dend[42] {pt3dclear()
pt3dadd(75.2603, -37.3049, 26.1996, 1.74)
pt3dadd(78.1003, -37.3849, 27.1797, 1.74)
pt3dadd(80.5103, -36.1249, 27.1797, 1.39)
pt3dadd(82.5603, -35.8549, 33.0597, 1.39)
pt3dadd(85.2803, -35.8349, 32.0797, 1.39)
pt3dadd(89.6903, -36.7249, 32.0797, 1.39)
pt3dadd(92.8903, -35.7649, 31.0997, 1.39)
pt3dadd(95.1603, -37.1649, 31.0997, 1.39)
pt3dadd(98.6603, -37.8449, 31.0997, 1.39)
pt3dadd(102.7, -37.9349, 31.0997, 1.39)
pt3dadd(105.77, -35.5549, 31.0997, 1.39)
pt3dadd(107.94, -33.4849, 30.1196, 1.39)
pt3dadd(112.87, -33.7149, 30.1196, 1.39)
pt3dadd(119.11, -32.8149, 30.1196, 1.39)
pt3dadd(124.84, -32.2149, 30.1196, 1.39)
pt3dadd(127.81, -30.9049, 30.1196, 1.39)
pt3dadd(131.21, -30.3649, 34.0296, 1.04)
pt3dadd(133.74, -28.5749, 34.0296, 1.04)
pt3dadd(136.52, -27.9949, 34.0296, 1.04)
pt3dadd(139.25, -26.9149, 34.0296, 1.04)
pt3dadd(140.65, -27.7849, 29.1397, 1.04)
pt3dadd(144.17, -26.9649, 28.1597, 1.04)
pt3dadd(147.94, -25.0749, 28.1597, 1.04)
pt3dadd(150.46, -22.8749, 28.1597, 1.04)
pt3dadd(153.29, -21.5449, 28.1597, 1.04)
pt3dadd(156.98, -20.0049, 28.1597, 1.04)
pt3dadd(159.62, -19.9949, 29.1397, 1.04)
pt3dadd(162.12, -20.1849, 29.1397, 1.04)
pt3dadd(165.7, -17.8549, 29.1397, 1.04)
pt3dadd(170.04, -17.1349, 29.1397, 1.04)
pt3dadd(172.2, -18.1549, 29.1397, 1.04)
pt3dadd(176.7, -16.3249, 30.1196, 1.04)
pt3dadd(180.87, -15.3549, 30.1196, 1.04)
pt3dadd(182.61, -15.1049, 30.1196, 1.04)
pt3dadd(185.01, -14.1649, 30.1196, 1.04)
pt3dadd(188.96, -11.7949, 30.1196, 1.04)
pt3dadd(193.62, -10.8349, 30.1196, 1.04)
pt3dadd(199.88, -8.30488, 30.1196, 1.04)
pt3dadd(204.6, -4.84488, 30.1196, 1.04)
pt3dadd(208.03, -5.02488, 30.1196, 1.04)
pt3dadd(211.75, -2.41488, 30.1196, 1.04)
pt3dadd(215.65, -0.31488, 30.1196, 1.04)
pt3dadd(218.6, -0.0648804, 30.1196, 1.04)
pt3dadd(221.42, 2.00512, 30.1196, 1.04)
pt3dadd(225.12, 4.96512, 30.1196, 1.04)
pt3dadd(230.53, 6.32512, 30.1196, 1.04)
pt3dadd(235.25, 8.38512, 30.1196, 1.04)
pt3dadd(238.52, 10.8951, 30.1196, 1.04)
pt3dadd(241.65, 13.9251, 29.1397, 1.04)
pt3dadd(246.24, 15.3151, 29.1397, 0.7)
pt3dadd(251.26, 16.1351, 29.1397, 0.7)
pt3dadd(254.53, 18.2351, 29.1397, 0.7)
pt3dadd(258.11, 19.6551, 35.9897, 0.7)
pt3dadd(262.23, 21.6951, 35.9897, 0.7)
}
dend[43] {pt3dclear()
pt3dadd(76.2003, 25.2651, 70.2597, 2.09)
pt3dadd(77.5603, 27.6651, 69.2796, 2.09)
pt3dadd(80.6003, 28.9351, 68.2997, 1.74)
pt3dadd(82.4303, 29.1251, 68.2997, 1.04)
pt3dadd(83.5103, 30.8151, 71.2397, 1.04)
pt3dadd(84.5303, 31.6151, 71.2397, 1.04)
pt3dadd(85.1603, 33.2351, 71.2397, 1.04)
}
dend[44] {pt3dclear()
pt3dadd(76.2003, 25.2651, 70.2597, 0.7)
pt3dadd(78.1903, 27.2451, 68.2997, 0.7)
pt3dadd(81.7203, 30.0351, 69.2796, 0.7)
pt3dadd(84.2903, 33.7551, 73.1897, 0.7)
pt3dadd(87.2703, 36.5751, 73.1897, 0.7)
pt3dadd(90.4703, 39.7351, 73.1897, 0.7)
pt3dadd(90.7103, 39.4851, 73.1897, 0.7)
pt3dadd(92.9303, 42.6451, 73.1897, 0.7)
pt3dadd(95.1303, 45.1151, 73.1897, 0.7)
pt3dadd(97.3503, 46.0551, 73.1897, 0.7)
pt3dadd(100.03, 48.9051, 73.1897, 0.7)
pt3dadd(102.07, 52.3951, 73.1897, 0.7)
pt3dadd(105.45, 55.8851, 73.1897, 0.7)
pt3dadd(108.5, 58.6251, 73.1897, 0.7)
pt3dadd(110.49, 61.3551, 73.1897, 0.7)
pt3dadd(112.35, 64.3851, 73.1897, 0.7)
pt3dadd(114.88, 67.5251, 73.1897, 0.7)
pt3dadd(115.74, 72.8551, 73.1897, 0.7)
pt3dadd(115.7, 75.9851, 69.2796, 0.7)
pt3dadd(115.32, 78.0651, 69.2796, 0.7)
pt3dadd(116.11, 80.5451, 69.2796, 0.7)
pt3dadd(114.71, 83.2951, 69.2796, 0.7)
pt3dadd(113.51, 85.0751, 69.2796, 0.7)
pt3dadd(111.1, 85.8551, 68.2997, 0.7)
pt3dadd(111.67, 89.1651, 61.4496, 0.7)
pt3dadd(111.12, 91.6351, 60.4697, 0.7)
pt3dadd(112.03, 94.5751, 56.5497, 0.7)
pt3dadd(113.89, 98.0351, 56.5497, 0.7)
pt3dadd(116.79, 102.245, 56.5497, 0.35)
pt3dadd(118.86, 106.395, 55.5696, 0.35)
pt3dadd(120.21, 112.285, 53.6096, 0.35)
pt3dadd(121.76, 115.525, 53.6096, 0.35)
pt3dadd(122.4, 120.295, 52.6397, 0.35)
pt3dadd(124.85, 125.665, 52.6397, 0.35)
pt3dadd(124.48, 128.255, 52.6397, 0.35)
pt3dadd(125.64, 131.515, 52.6397, 0.35)
pt3dadd(127.21, 134.195, 52.6397, 0.35)
}
dend[45] {pt3dclear()
pt3dadd(4.5603, -81.2549, 72.2197, 1.04)
pt3dadd(6.33032, -83.1649, 72.2197, 1.04)
pt3dadd(7.82031, -83.6649, 76.1297, 1.04)
pt3dadd(8.31033, -84.7349, 76.1297, 0.7)
pt3dadd(7.55032, -86.2949, 76.1297, 0.7)
pt3dadd(5.99033, -88.1049, 78.0896, 0.7)
pt3dadd(3.97034, -86.3549, 77.1096, 0.7)
pt3dadd(1.58032, -87.7249, 77.1096, 0.7)
pt3dadd(-0.209656, -87.9349, 81.0296, 0.7)
pt3dadd(-2.3197, -86.8749, 82.9796, 0.7)
pt3dadd(-2.98969, -85.9349, 93.7496, 0.7)
pt3dadd(-5.82965, -85.7749, 99.6297, 0.7)
pt3dadd(-8.33966, -86.1549, 100.61, 0.7)
pt3dadd(-11.3397, -84.8549, 100.61, 0.7)
pt3dadd(-13.5497, -82.7849, 100.61, 0.7)
pt3dadd(-13.3397, -83.0549, 100.61, 0.7)
pt3dadd(-15.1097, -82.9249, 102.56, 0.7)
pt3dadd(-17.7497, -84.3749, 102.56, 0.7)
pt3dadd(-21.2497, -84.8649, 102.56, 0.7)
pt3dadd(-24.1897, -84.7749, 102.56, 0.7)
pt3dadd(-26.9496, -84.0349, 102.56, 0.7)
pt3dadd(-28.5697, -85.6949, 105.5, 0.7)
pt3dadd(-31.5397, -85.8249, 105.5, 0.7)
pt3dadd(-30.1197, -88.6249, 113.33, 0.7)
pt3dadd(-27.9297, -91.0349, 112.35, 0.7)
pt3dadd(-27.7097, -90.1849, 112.35, 0.7)
pt3dadd(-28.3397, -88.2649, 112.35, 0.7)
pt3dadd(-30.9597, -88.8749, 118.23, 0.7)
pt3dadd(-32.5997, -87.7549, 122.14, 0.7)
}
dend[46] {pt3dclear()
pt3dadd(4.5603, -81.2549, 72.2197, 0.7)
pt3dadd(1.98035, -82.4349, 78.0896, 0.7)
pt3dadd(0.570313, -82.5549, 81.0296, 0.7)
pt3dadd(-2.21967, -85.0349, 78.0896, 0.7)
pt3dadd(-4.45966, -87.0249, 78.0896, 0.7)
pt3dadd(-6.63965, -87.7149, 78.0896, 0.7)
pt3dadd(-7.59967, -90.9649, 78.0896, 0.7)
pt3dadd(-10.6897, -93.7549, 78.0896, 0.7)
pt3dadd(-9.47968, -97.9349, 78.0896, 0.7)
pt3dadd(-12.0597, -100.175, 78.0896, 0.7)
pt3dadd(-13.6797, -103.735, 78.0896, 0.7)
pt3dadd(-15.7197, -107.435, 79.0697, 0.7)
pt3dadd(-17.6197, -108.695, 79.0697, 0.7)
pt3dadd(-17.3997, -112.105, 79.0697, 0.7)
pt3dadd(-19.4297, -114.625, 79.0697, 0.7)
pt3dadd(-20.6797, -117.055, 82.9796, 0.7)
pt3dadd(-21.9797, -120.445, 83.9597, 0.7)
pt3dadd(-22.5197, -120.965, 83.9597, 0.35)
pt3dadd(-24.7697, -123.855, 83.9597, 0.35)
pt3dadd(-26.0897, -126.935, 83.9597, 0.35)
pt3dadd(-28.2297, -128.645, 83.9597, 0.35)
pt3dadd(-29.4597, -130.705, 86.8996, 0.35)
pt3dadd(-28.3797, -132.265, 92.7697, 0.35)
pt3dadd(-30.4697, -134.195, 92.7697, 0.35)
pt3dadd(-32.5797, -135.875, 96.6897, 0.35)
pt3dadd(-32.7397, -137.335, 96.6897, 0.35)
pt3dadd(-35.4496, -136.505, 96.6897, 0.35)
pt3dadd(-34.9697, -140.815, 95.7097, 0.35)
pt3dadd(-35.8896, -143.355, 95.7097, 0.35)
pt3dadd(-36.9197, -146.655, 94.7296, 0.35)
pt3dadd(-39.0797, -149.405, 94.7296, 0.35)
pt3dadd(-40.9897, -150.605, 94.7296, 0.35)
pt3dadd(-41.0297, -151.975, 100.61, 0.35)
pt3dadd(-40.3997, -153.635, 103.54, 0.35)
pt3dadd(-42.4697, -153.705, 103.54, 0.35)
pt3dadd(-42.0297, -156.265, 103.54, 0.35)
pt3dadd(-40.6197, -157.125, 106.48, 0.35)
pt3dadd(-42.1797, -157.615, 113.33, 0.35)
pt3dadd(-41.3597, -160.075, 118.23, 0.35)
pt3dadd(-42.2197, -162.305, 121.17, 0.35)
pt3dadd(-43.5797, -163.645, 121.17, 0.35)
pt3dadd(-45.0997, -163.965, 121.17, 0.35)
pt3dadd(-47.1897, -164.985, 121.17, 0.35)
pt3dadd(-48.8997, -165.705, 124.1, 0.35)
pt3dadd(-50.5297, -166.235, 125.08, 0.35)
pt3dadd(-50.1097, -163.485, 125.08, 0.35)
pt3dadd(-53.2397, -162.655, 125.08, 0.35)
pt3dadd(-56.2097, -160.365, 125.08, 0.35)
pt3dadd(-57.5797, -157.805, 127.04, 0.35)
pt3dadd(-56.5497, -156.905, 128.02, 0.35)
pt3dadd(-57.5597, -154.845, 128.02, 0.35)
pt3dadd(-59.1996, -153.855, 128.02, 0.35)
pt3dadd(-61.4197, -152.745, 128.02, 0.35)
pt3dadd(-63.1597, -150.555, 128.02, 0.35)
pt3dadd(-62.2797, -149.385, 130.96, 0.35)
pt3dadd(-63.5497, -148.295, 130.96, 0.35)
pt3dadd(-64.1996, -146.905, 130.96, 0.35)
pt3dadd(-65.9697, -146.395, 130.96, 0.35)
pt3dadd(-65.9797, -143.595, 132.91, 0.35)
pt3dadd(-63.7297, -141.665, 133.89, 0.35)
pt3dadd(-63.0497, -139.975, 133.89, 0.35)
pt3dadd(-62.9397, -137.535, 133.89, 0.35)
}
}
proc shape3d_9() {
dend[46] { pt3dadd(-64.4697, -135.305, 133.89, 0.35)
pt3dadd(-66.0397, -133.675, 133.89, 0.35)
pt3dadd(-65.4397, -130.515, 133.89, 0.35)
pt3dadd(-65.0897, -129.215, 135.85, 0.35)
pt3dadd(-65.8697, -127.925, 135.85, 0.35)
pt3dadd(-66.9997, -125.125, 135.85, 0.35)
pt3dadd(-66.0297, -122.545, 135.85, 0.35)
pt3dadd(-64.6697, -119.995, 135.85, 0.35)
pt3dadd(-63.6197, -117.635, 135.85, 0.35)
pt3dadd(-63.4997, -114.725, 135.85, 0.35)
pt3dadd(-61.9897, -112.435, 135.85, 0.35)
pt3dadd(-61.5597, -109.615, 135.85, 0.35)
pt3dadd(-63.1597, -107.955, 135.85, 0.35)
pt3dadd(-63.6996, -104.995, 135.85, 0.35)
pt3dadd(-63.0697, -104.035, 132.91, 0.35)
pt3dadd(-63.4397, -102.355, 132.91, 0.35)
pt3dadd(-64.0297, -100.015, 132.91, 0.35)
pt3dadd(-63.3797, -96.6949, 132.91, 0.35)
pt3dadd(-64.3896, -93.9249, 132.91, 0.35)
}
dend[47] {pt3dclear()
pt3dadd(33.2303, -41.6649, 57.5297, 1.04)
pt3dadd(31.1903, -45.8649, 58.5097, 1.04)
pt3dadd(31.4103, -47.8249, 58.5097, 1.04)
pt3dadd(33.6503, -50.6549, 58.5097, 1.04)
pt3dadd(35.4203, -52.5049, 62.4296, 1.04)
pt3dadd(35.7603, -54.7049, 63.3997, 1.04)
pt3dadd(37.2803, -58.3149, 67.3196, 1.04)
pt3dadd(40.2003, -61.9649, 67.3196, 1.04)
pt3dadd(42.1203, -63.2449, 73.1897, 1.04)
pt3dadd(42.8703, -65.6749, 73.1897, 1.04)
pt3dadd(46.1403, -69.0249, 73.1897, 1.04)
pt3dadd(46.9503, -71.0649, 73.1897, 1.04)
pt3dadd(50.2503, -73.8949, 79.0697, 1.04)
pt3dadd(53.0403, -75.7149, 79.0697, 1.04)
pt3dadd(53.5703, -76.4049, 81.0296, 1.04)
pt3dadd(54.1603, -76.8649, 81.0296, 1.04)
pt3dadd(55.7903, -78.3549, 81.0296, 1.04)
pt3dadd(59.4803, -80.9049, 81.0296, 1.04)
pt3dadd(61.6603, -82.1849, 84.9397, 1.04)
pt3dadd(64.4703, -84.8549, 85.9196, 1.04)
pt3dadd(66.5803, -87.8449, 85.9196, 1.04)
pt3dadd(66.4203, -90.4749, 87.8797, 1.04)
pt3dadd(69.5603, -93.5849, 88.8596, 1.04)
pt3dadd(71.8203, -96.4549, 91.7997, 1.04)
pt3dadd(74.2703, -98.2149, 91.7997, 1.04)
pt3dadd(75.4503, -100.535, 91.7997, 1.04)
pt3dadd(76.8003, -102.215, 95.7097, 1.04)
pt3dadd(78.1403, -103.515, 95.7097, 1.04)
pt3dadd(80.0603, -103.085, 100.61, 1.04)
pt3dadd(82.7103, -105.555, 103.54, 1.04)
pt3dadd(84.9703, -107.595, 106.48, 1.04)
pt3dadd(84.5403, -108.525, 108.44, 1.04)
pt3dadd(85.3703, -110.285, 108.44, 0.7)
pt3dadd(89.4203, -111.715, 108.44, 0.7)
pt3dadd(89.8203, -115.105, 110.4, 0.7)
pt3dadd(91.8603, -118.535, 110.4, 0.7)
pt3dadd(92.1803, -121.605, 113.33, 0.7)
pt3dadd(93.7103, -122.695, 116.27, 0.7)
pt3dadd(94.8903, -124.755, 117.25, 0.7)
pt3dadd(96.8703, -125.855, 117.25, 0.7)
pt3dadd(95.4703, -128.835, 118.23, 0.7)
pt3dadd(96.4303, -130.875, 122.14, 0.7)
pt3dadd(94.5103, -132.675, 123.12, 0.7)
pt3dadd(94.5303, -134.435, 125.08, 0.7)
pt3dadd(96.9203, -135.975, 128.02, 0.7)
pt3dadd(96.7903, -137.685, 133.89, 0.7)
pt3dadd(99.4503, -139.705, 133.89, 0.7)
pt3dadd(101.7, -141.245, 133.89, 0.7)
pt3dadd(101.43, -142.875, 135.85, 0.7)
pt3dadd(103.62, -143.105, 137.81, 0.35)
pt3dadd(103.55, -145.465, 138.79, 0.35)
pt3dadd(102.71, -148.055, 142.7, 0.35)
pt3dadd(103.66, -150.095, 143.68, 0.35)
pt3dadd(103.58, -151.165, 143.68, 0.35)
pt3dadd(101.4, -152.965, 143.68, 0.35)
pt3dadd(100.5, -154.825, 143.68, 0.35)
pt3dadd(99.3803, -154.195, 148.58, 0.35)
pt3dadd(97.4703, -154.455, 153.47, 0.7)
pt3dadd(96.5103, -155.365, 153.47, 0.7)
pt3dadd(95.7403, -153.945, 157.39, 0.7)
pt3dadd(93.4903, -152.885, 162.28, 0.7)
pt3dadd(90.2903, -152.885, 162.28, 0.7)
pt3dadd(89.4903, -154.615, 169.14, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
pt3dadd(87.3797, -155.101, 175, 0.7)
}
dend[48] {pt3dclear()
pt3dadd(33.2303, -41.6649, 57.5297, 1.39)
pt3dadd(35.4003, -41.2149, 56.5497, 1.39)
pt3dadd(37.6003, -40.1649, 56.5497, 1.39)
pt3dadd(40.0603, -40.8149, 56.5497, 1.39)
pt3dadd(42.3203, -41.6749, 58.5097, 1.39)
pt3dadd(43.9803, -42.0749, 62.4296, 1.39)
pt3dadd(46.2003, -42.5449, 63.3997, 1.74)
pt3dadd(48.1303, -41.9249, 67.3196, 1.39)
pt3dadd(49.9403, -40.6949, 67.3196, 1.04)
pt3dadd(52.8003, -40.5249, 70.2597, 1.39)
pt3dadd(55.1603, -40.9349, 70.2597, 1.39)
pt3dadd(57.5903, -39.1749, 70.2597, 1.39)
pt3dadd(59.5103, -37.5649, 70.2597, 1.04)
pt3dadd(61.5103, -37.5449, 72.2197, 1.04)
pt3dadd(64.6203, -37.9749, 73.1897, 1.04)
pt3dadd(67.8903, -36.4349, 67.3196, 1.04)
pt3dadd(71.0603, -36.9549, 67.3196, 1.04)
pt3dadd(73.1203, -36.4749, 67.3196, 1.04)
pt3dadd(73.9603, -36.0749, 67.3196, 1.04)
pt3dadd(76.3203, -35.2849, 67.3196, 1.04)
pt3dadd(78.8703, -35.2949, 68.2997, 1.04)
pt3dadd(80.5903, -36.0349, 69.2796, 1.04)
pt3dadd(84.2503, -35.0449, 73.1897, 1.04)
pt3dadd(86.2803, -36.6849, 77.1096, 1.04)
pt3dadd(88.6203, -36.2349, 81.0296, 1.04)
pt3dadd(89.2103, -38.3849, 83.9597, 1.04)
pt3dadd(91.4503, -38.5149, 87.8797, 1.04)
pt3dadd(94.5603, -39.3649, 87.8797, 1.04)
pt3dadd(95.5403, -40.9549, 87.8797, 1.04)
}
dend[49] {pt3dclear()
pt3dadd(-42.5297, -20.0249, -31.5603, 1.04)
pt3dadd(-44.5197, -20.9949, -32.5403, 1.04)
pt3dadd(-46.4496, -21.5649, -32.5403, 1.04)
pt3dadd(-47.2597, -23.4649, -32.5403, 1.04)
pt3dadd(-49.5897, -23.3449, -35.4703, 1.04)
pt3dadd(-50.7297, -22.9149, -35.4703, 1.04)
pt3dadd(-52.1197, -24.4349, -35.4703, 1.04)
pt3dadd(-52.4397, -26.7949, -35.4703, 1.04)
pt3dadd(-52.2797, -28.1349, -36.4503, 1.04)
pt3dadd(-53.5497, -28.9749, -42.3303, 1.04)
pt3dadd(-54.6597, -30.0149, -43.3103, 1.04)
pt3dadd(-54.8896, -31.7249, -43.3103, 1.04)
pt3dadd(-57.0097, -33.0549, -47.2203, 1.04)
pt3dadd(-59.1097, -33.9249, -47.2203, 1.04)
pt3dadd(-59.9097, -34.4949, -47.2203, 1.04)
pt3dadd(-60.7297, -35.1949, -47.2203, 0.7)
pt3dadd(-61.9797, -35.3549, -47.2203, 0.7)
pt3dadd(-64.0197, -36.3949, -52.1203, 0.7)
pt3dadd(-66.7397, -37.1949, -52.1203, 0.7)
pt3dadd(-69.5497, -39.1649, -52.1203, 0.7)
pt3dadd(-71.4397, -38.5649, -52.1203, 0.7)
pt3dadd(-73.3597, -38.0949, -54.0704, 0.7)
pt3dadd(-76.1297, -38.7649, -54.0704, 0.7)
pt3dadd(-78.2397, -36.7349, -54.0704, 0.35)
pt3dadd(-81.0497, -38.2549, -55.0504, 0.35)
pt3dadd(-83.2197, -38.6849, -55.0504, 0.35)
pt3dadd(-85.1996, -37.6749, -59.9504, 0.35)
pt3dadd(-87.4797, -38.8649, -59.9504, 0.35)
pt3dadd(-89.8197, -40.4249, -60.9303, 0.35)
pt3dadd(-91.5397, -38.9649, -63.8603, 0.35)
pt3dadd(-94.2797, -38.3749, -63.8603, 0.35)
pt3dadd(-95.8397, -39.1249, -63.8603, 0.35)
pt3dadd(-98.2897, -40.6749, -63.8603, 0.35)
pt3dadd(-100.72, -39.7149, -64.8403, 0.35)
pt3dadd(-103.32, -39.0849, -64.8403, 0.35)
pt3dadd(-106.14, -41.2449, -64.8403, 0.35)
pt3dadd(-108.11, -40.5849, -66.8004, 0.35)
pt3dadd(-110.96, -41.3849, -67.7803, 0.35)
pt3dadd(-115.17, -41.0949, -67.7803, 0.35)
pt3dadd(-116.79, -42.3549, -67.7803, 0.35)
pt3dadd(-120.08, -41.6049, -67.7803, 0.35)
pt3dadd(-123, -41.3649, -67.7803, 0.35)
}
}
proc shape3d_10() {
dend[49] { pt3dadd(-125.4, -40.2549, -68.7603, 0.35)
pt3dadd(-127.88, -39.2749, -69.7404, 0.35)
pt3dadd(-130.82, -39.5849, -69.7404, 0.35)
pt3dadd(-134.04, -39.6849, -70.7204, 0.35)
pt3dadd(-137.4, -39.9949, -70.7204, 0.35)
pt3dadd(-140.8, -39.8349, -73.6503, 0.35)
pt3dadd(-143.44, -40.3949, -73.6503, 0.35)
pt3dadd(-145.96, -38.9449, -78.5504, 0.35)
pt3dadd(-148.04, -39.4149, -78.5504, 0.35)
pt3dadd(-151.83, -39.1249, -78.5504, 0.35)
pt3dadd(-154.94, -40.8949, -78.5504, 0.35)
pt3dadd(-157.87, -43.7449, -78.5504, 0.35)
pt3dadd(-161.8, -43.7549, -81.4904, 0.35)
pt3dadd(-165.49, -43.3949, -82.4704, 0.35)
pt3dadd(-168.3, -42.9849, -82.4704, 0.35)
pt3dadd(-171.24, -45.3049, -83.4404, 0.35)
pt3dadd(-174.92, -46.0949, -85.4003, 0.35)
}
dend[50] {pt3dclear()
pt3dadd(-42.5297, -20.0249, -31.5603, 1.39)
pt3dadd(-41.0297, -19.0849, -31.5603, 1.39)
pt3dadd(-39.0297, -17.6849, -32.5403, 1.39)
pt3dadd(-37.7497, -17.1549, -37.4304, 1.39)
pt3dadd(-36.5397, -17.3349, -37.4304, 1.39)
pt3dadd(-36.5397, -15.5449, -37.4304, 1.39)
pt3dadd(-34.6297, -15.5949, -39.3904, 1.39)
pt3dadd(-32.9997, -15.6649, -40.3703, 1.04)
pt3dadd(-31.4097, -16.1049, -43.3103, 1.04)
pt3dadd(-30.4397, -15.6249, -43.3103, 1.39)
pt3dadd(-28.8797, -15.3049, -43.3103, 1.39)
pt3dadd(-27.3497, -14.0249, -43.3103, 1.04)
pt3dadd(-25.8097, -14.3449, -47.2203, 1.39)
pt3dadd(-24.1097, -15.0949, -47.2203, 1.39)
pt3dadd(-21.4897, -14.1349, -48.2003, 1.39)
pt3dadd(-19.1197, -14.5149, -48.2003, 1.04)
pt3dadd(-17.0697, -15.4649, -48.2003, 1.04)
pt3dadd(-16.8097, -16.1449, -48.2003, 1.04)
pt3dadd(-14.8797, -16.1949, -48.2003, 1.04)
pt3dadd(-14.7397, -18.4349, -48.2003, 1.04)
pt3dadd(-12.7597, -20.7549, -48.2003, 1.04)
pt3dadd(-10.9997, -22.6249, -48.2003, 0.7)
pt3dadd(-9.5697, -23.9049, -47.2203, 0.7)
pt3dadd(-7.15967, -23.0349, -47.2203, 0.7)
pt3dadd(-5.49969, -24.5049, -50.1604, 0.7)
pt3dadd(-3.52966, -24.9949, -50.1604, 0.7)
pt3dadd(-2.67969, -23.3249, -50.1604, 0.7)
pt3dadd(-0.84967, -24.9649, -54.0704, 0.7)
pt3dadd(0.470337, -25.0049, -54.0704, 0.7)
pt3dadd(1.50031, -26.5849, -54.0704, 0.7)
pt3dadd(3.27032, -26.1349, -55.0504, 0.7)
pt3dadd(5.11035, -25.5749, -60.9303, 0.7)
pt3dadd(7.35031, -26.4549, -60.9303, 0.7)
pt3dadd(8.50034, -27.4349, -63.8603, 0.7)
pt3dadd(10.1903, -27.6149, -66.8004, 0.7)
pt3dadd(12.2003, -27.3449, -72.6803, 0.7)
pt3dadd(12.8603, -29.0349, -75.6104, 0.7)
pt3dadd(12.3203, -31.8449, -77.5703, 0.7)
pt3dadd(13.7603, -33.1049, -77.5703, 0.7)
pt3dadd(15.9303, -32.8649, -79.5303, 0.7)
pt3dadd(17.1403, -33.0449, -79.5303, 0.7)
pt3dadd(18.3503, -34.9849, -79.5303, 0.7)
pt3dadd(18.9103, -36.2149, -79.5303, 0.7)
pt3dadd(21.2103, -36.7349, -84.4203, 0.7)
pt3dadd(23.3403, -36.3749, -84.4203, 0.7)
pt3dadd(23.7903, -35.2949, -91.2803, 0.7)
pt3dadd(23.6703, -33.6249, -91.2803, 0.7)
pt3dadd(25.3003, -35.5549, -98.1304, 0.7)
pt3dadd(25.4103, -37.5249, -103.02, 0.7)
pt3dadd(24.8703, -38.6649, -110.86, 0.7)
pt3dadd(24.8703, -38.6649, -111.84, 0.7)
pt3dadd(24.2203, -37.1649, -111.84, 0.7)
pt3dadd(22.5403, -36.7449, -110.86, 0.7)
pt3dadd(21.0303, -38.7349, -114.77, 0.7)
pt3dadd(24.0303, -39.1449, -116.73, 0.7)
pt3dadd(26.8903, -42.6749, -121.63, 0.7)
pt3dadd(26.7703, -46.8349, -128.48, 0.7)
pt3dadd(28.7003, -49.0049, -128.48, 0.35)
pt3dadd(31.7703, -51.4349, -128.48, 0.35)
pt3dadd(31.6103, -53.6449, -128.48, 0.35)
pt3dadd(27.9703, -54.9849, -133.37, 0.35)
pt3dadd(27.9703, -54.9849, -134.35, 0.35)
pt3dadd(24.8103, -54.8449, -139.25, 0.35)
pt3dadd(22.6203, -52.9049, -141.2, 0.35)
pt3dadd(22.6803, -50.5149, -145.12, 0.35)
pt3dadd(18.1803, -48.6949, -149.04, 0.35)
pt3dadd(18.1803, -48.6949, -150.02, 0.35)
pt3dadd(12.6003, -48.1949, -151.97, 0.35)
pt3dadd(10.8003, -48.1449, -152.95, 0.35)
pt3dadd(10.2503, -48.1849, -152.95, 0.35)
pt3dadd(6.78033, -47.9449, -157.85, 0.35)
pt3dadd(4.17035, -45.9949, -158.83, 0.35)
pt3dadd(2.28033, -45.9649, -160.78, 0.35)
pt3dadd(-0.169678, -46.1449, -161.76, 0.35)
pt3dadd(-1.90967, -44.7649, -165.68, 0.35)
pt3dadd(-4.23969, -45.2149, -171.55, 0.35)
pt3dadd(-6.67969, -44.2849, -171.55, 0.35)
pt3dadd(-8.77762, -45.4676, -175, 0.35)
pt3dadd(-8.77762, -45.4676, -175, 0.35)
pt3dadd(-8.77762, -45.4676, -175, 0.35)
pt3dadd(-8.77762, -45.4676, -175, 0.35)
pt3dadd(-8.77762, -45.4676, -175, 0.35)
pt3dadd(-8.77762, -45.4676, -175, 0.35)
}
dend[51] {pt3dclear()
pt3dadd(-40.9397, -82.2249, -48.2003, 0.7)
pt3dadd(-42.4496, -84.7649, -53.1003, 0.7)
pt3dadd(-44.3896, -88.3049, -53.1003, 0.7)
pt3dadd(-43.7797, -89.8949, -53.1003, 0.7)
pt3dadd(-44.0797, -92.1849, -53.1003, 0.7)
pt3dadd(-45.0597, -95.0349, -53.1003, 0.7)
pt3dadd(-46.2397, -98.1749, -53.1003, 0.7)
pt3dadd(-46.9496, -101.325, -53.1003, 0.7)
pt3dadd(-46.8297, -103.875, -53.1003, 0.7)
pt3dadd(-47.1597, -108.955, -58.9703, 0.7)
pt3dadd(-48.5697, -111.915, -58.9703, 0.7)
pt3dadd(-49.0797, -115.565, -58.9703, 0.7)
pt3dadd(-50.2697, -120.045, -58.9703, 0.7)
pt3dadd(-51.6697, -123.065, -58.9703, 0.7)
pt3dadd(-52.1197, -126.455, -64.8403, 0.7)
pt3dadd(-50.5497, -128.045, -67.7803, 0.7)
pt3dadd(-51.3997, -131.255, -67.7803, 0.7)
pt3dadd(-52.2997, -134.515, -67.7803, 0.7)
pt3dadd(-52.2497, -138.305, -67.7803, 0.7)
pt3dadd(-52.1297, -142.025, -67.7803, 0.7)
pt3dadd(-52.5897, -145.355, -67.7803, 0.7)
pt3dadd(-52.2397, -149.345, -67.7803, 0.7)
pt3dadd(-52.4297, -154.135, -69.7404, 0.7)
pt3dadd(-51.2297, -158.835, -70.7204, 0.7)
pt3dadd(-51.5197, -162.635, -73.6503, 0.7)
pt3dadd(-53.5997, -165.335, -75.6104, 0.7)
pt3dadd(-53.3697, -168.075, -78.5504, 0.7)
pt3dadd(-55.2097, -170.775, -80.5103, 0.7)
pt3dadd(-56.7197, -174.295, -80.5103, 0.7)
pt3dadd(-59.6797, -178.885, -82.4704, 0.7)
pt3dadd(-59.6297, -182.165, -82.4704, 0.7)
pt3dadd(-60.8197, -184.005, -82.4704, 0.7)
pt3dadd(-59.2297, -185.995, -85.4003, 0.7)
pt3dadd(-59.2297, -185.995, -86.3804, 0.7)
pt3dadd(-60.0197, -188.135, -87.3604, 0.7)
pt3dadd(-59.2497, -192.125, -89.3203, 0.7)
pt3dadd(-58.1996, -195.805, -91.2803, 0.7)
pt3dadd(-57.2497, -199.365, -91.2803, 0.7)
pt3dadd(-55.9797, -203.695, -91.2803, 0.7)
pt3dadd(-55.2597, -205.755, -91.2803, 0.7)
pt3dadd(-55.2697, -207.195, -91.2803, 0.7)
pt3dadd(-54.4197, -210.095, -91.2803, 0.7)
pt3dadd(-53.1097, -213.225, -94.2103, 0.7)
pt3dadd(-50.9797, -217.185, -94.2103, 0.35)
pt3dadd(-51.1597, -220.645, -97.1503, 0.35)
pt3dadd(-49.5397, -224.535, -97.1503, 0.35)
pt3dadd(-48.4597, -229.595, -97.1503, 0.35)
pt3dadd(-46.1897, -232.575, -97.1503, 0.35)
pt3dadd(-46.1597, -235.025, -97.1503, 0.35)
pt3dadd(-45.5997, -238.265, -97.1503, 0.35)
pt3dadd(-47.2897, -240.145, -102.05, 0.35)
pt3dadd(-44.2897, -243.155, -106.94, 0.35)
pt3dadd(-41.8997, -244.585, -106.94, 0.35)
pt3dadd(-37.6097, -245.735, -106.94, 0.35)
pt3dadd(-36.7097, -248.875, -106.94, 0.35)
pt3dadd(-34.5197, -251.595, -106.94, 0.35)
pt3dadd(-31.2297, -253.045, -107.92, 0.35)
pt3dadd(-30.4797, -256.305, -107.92, 0.35)
pt3dadd(-29.8197, -258.725, -111.84, 0.35)
pt3dadd(-28.9797, -261.375, -112.81, 0.35)
pt3dadd(-25.8797, -262.515, -116.73, 0.35)
pt3dadd(-23.9297, -264.995, -118.69, 0.35)
pt3dadd(-23.0197, -267.655, -118.69, 0.35)
pt3dadd(-20.8697, -270.555, -118.69, 0.35)
pt3dadd(-18.3497, -272.735, -120.65, 0.35)
pt3dadd(-18.5797, -275.325, -120.65, 0.35)
pt3dadd(-19.4797, -278.185, -120.65, 0.35)
pt3dadd(-19.6497, -282.635, -120.65, 0.35)
pt3dadd(-21.5997, -288.185, -129.46, 0.35)
pt3dadd(-24.6297, -294.625, -129.46, 0.35)
pt3dadd(-25.5497, -301.065, -130.44, 0.35)
pt3dadd(-27.5597, -304.435, -130.44, 0.35)
pt3dadd(-29.3597, -305.615, -141.2, 0.35)
pt3dadd(-29.7997, -306.925, -141.2, 0.35)
pt3dadd(-31.3497, -307.895, -142.18, 0.35)
pt3dadd(-30.7997, -310.645, -144.14, 0.35)
pt3dadd(-32.3497, -311.225, -144.14, 0.35)
}
dend[52] {pt3dclear()
pt3dadd(-40.9397, -82.2249, -48.2003, 1.04)
pt3dadd(-43.7697, -82.3849, -48.2003, 1.04)
pt3dadd(-45.5397, -83.9749, -55.0504, 1.04)
pt3dadd(-48.1097, -84.8149, -57.0103, 1.04)
pt3dadd(-50.7997, -86.0049, -61.9104, 1.04)
pt3dadd(-54.4297, -86.7949, -66.8004, 1.04)
pt3dadd(-57.7897, -87.2749, -70.7204, 0.7)
pt3dadd(-61.6097, -87.8149, -71.7003, 0.7)
pt3dadd(-65.6697, -87.9949, -71.7003, 0.7)
pt3dadd(-67.8597, -87.3849, -71.7003, 0.7)
pt3dadd(-69.0697, -88.3249, -77.5703, 0.7)
pt3dadd(-72.1097, -87.7549, -83.4404, 0.7)
pt3dadd(-75.5597, -88.4349, -89.3203, 0.7)
pt3dadd(-77.2197, -88.1149, -89.3203, 0.7)
}
dend[53] {pt3dclear()
pt3dadd(-0.949646, 132.085, -74.6304, 0.7)
pt3dadd(1.13031, 133.555, -78.5504, 0.7)
pt3dadd(1.71033, 134.295, -81.4904, 0.7)
pt3dadd(3.48035, 135.645, -84.4204, 0.7)
pt3dadd(3.3703, 136.075, -84.4204, 0.7)
}
dend[54] {pt3dclear()
pt3dadd(-0.949646, 132.085, -74.6304, 0.35)
pt3dadd(-3.40967, 134.835, -79.5303, 0.35)
pt3dadd(-5.72968, 137.645, -79.5303, 0.35)
pt3dadd(-8.09967, 137.475, -88.3404, 0.35)
}
}
proc shape3d_11() {
dend[54] { pt3dadd(-11.1197, 137.235, -88.3404, 0.35)
pt3dadd(-13.5197, 137.615, -92.2604, 0.35)
pt3dadd(-16.9197, 138.305, -92.2604, 0.35)
pt3dadd(-20.0897, 136.885, -95.1904, 0.35)
pt3dadd(-21.3997, 139.285, -96.1704, 0.35)
pt3dadd(-21.9496, 140.445, -99.1104, 0.35)
pt3dadd(-22.4797, 140.535, -99.1104, 0.35)
pt3dadd(-26.9797, 140.905, -99.1104, 0.35)
pt3dadd(-28.7397, 140.515, -99.1104, 0.35)
pt3dadd(-30.9496, 141.835, -99.1104, 0.35)
pt3dadd(-32.5297, 144.435, -99.1104, 0.35)
pt3dadd(-34.3597, 145.825, -99.1104, 0.35)
pt3dadd(-36.0297, 147.355, -103.02, 0.35)
pt3dadd(-36.1797, 150.145, -103.02, 0.35)
pt3dadd(-37.5597, 151.465, -103.02, 0.35)
pt3dadd(-37.4797, 154.065, -103.02, 0.35)
pt3dadd(-38.8497, 155.375, -104, 0.35)
pt3dadd(-40.6297, 156.875, -104, 0.35)
pt3dadd(-44.4697, 156.445, -106.94, 0.35)
pt3dadd(-45.2597, 158.615, -107.92, 0.35)
pt3dadd(-47.2397, 159.795, -107.92, 0.35)
pt3dadd(-49.2197, 160.995, -107.92, 0.35)
pt3dadd(-52.4397, 161.625, -107.92, 0.35)
pt3dadd(-55.2097, 164.055, -109.88, 0.35)
pt3dadd(-57.1797, 165.785, -112.81, 0.35)
pt3dadd(-59.1996, 168.335, -108.9, 0.35)
pt3dadd(-60.5097, 170.905, -108.9, 0.35)
pt3dadd(-61.8997, 173.945, -108.9, 0.35)
pt3dadd(-64.3097, 174.835, -108.9, 0.35)
pt3dadd(-66.0097, 177.715, -111.84, 0.35)
pt3dadd(-67.0397, 179.815, -112.81, 0.35)
pt3dadd(-68.7697, 179.775, -113.79, 0.35)
pt3dadd(-70.0097, 182.525, -113.79, 0.35)
pt3dadd(-72.6897, 182.055, -114.77, 0.35)
pt3dadd(-74.3497, 184.445, -116.73, 0.35)
pt3dadd(-76.1197, 187.545, -116.73, 0.35)
pt3dadd(-78.5397, 188.685, -117.71, 0.35)
pt3dadd(-80.2797, 190.625, -118.69, 0.35)
}
dend[55] {pt3dclear()
pt3dadd(31.3203, 108.685, -84.4203, 0.35)
pt3dadd(29.9103, 112.435, -83.4403, 0.35)
pt3dadd(29.4303, 116.165, -82.4703, 0.35)
pt3dadd(28.8803, 119.265, -82.4703, 0.35)
pt3dadd(26.1403, 121.175, -82.4703, 0.35)
pt3dadd(23.3403, 122.665, -82.4703, 0.35)
pt3dadd(20.5603, 124.275, -82.4703, 0.35)
pt3dadd(19.1303, 127.395, -77.5703, 0.35)
pt3dadd(17.1803, 129.075, -76.5903, 0.35)
pt3dadd(16.3103, 129.855, -73.6503, 0.35)
pt3dadd(16.1203, 132.135, -71.7003, 0.35)
pt3dadd(17.4303, 134.335, -71.7003, 0.35)
pt3dadd(17.3403, 137.545, -71.7003, 0.35)
pt3dadd(20.1903, 139.425, -70.7203, 0.35)
pt3dadd(22.6503, 144.065, -66.8003, 0.35)
pt3dadd(24.3003, 147.705, -66.8003, 0.35)
pt3dadd(26.0703, 152.135, -66.8003, 0.35)
pt3dadd(22.9203, 155.215, -61.9103, 0.35)
pt3dadd(22.1003, 157.915, -60.9303, 0.35)
pt3dadd(20.7103, 157.315, -51.1403, 0.35)
pt3dadd(21.5803, 159.485, -50.1603, 0.35)
pt3dadd(20.9003, 161.395, -50.1603, 0.35)
}
dend[56] {pt3dclear()
pt3dadd(31.3203, 108.685, -84.4203, 0.35)
pt3dadd(33.6803, 109.415, -84.4203, 0.35)
pt3dadd(36.8203, 111.785, -84.4203, 0.35)
pt3dadd(39.8803, 111.045, -84.4203, 0.35)
pt3dadd(40.5803, 110.185, -88.3403, 0.35)
}
dend[57] {pt3dclear()
pt3dadd(28.8303, 78.4351, 7.59965, 1.39)
pt3dadd(30.9803, 78.2851, 6.61965, 1.39)
pt3dadd(33.4203, 77.4151, 6.61965, 1.04)
pt3dadd(36.8903, 77.7651, 6.61965, 1.04)
pt3dadd(40.6403, 78.6951, 6.61965, 1.04)
pt3dadd(43.5803, 78.2051, 8.57965, 1.04)
pt3dadd(46.7703, 77.9551, 8.57965, 1.04)
pt3dadd(50.1003, 77.4351, 8.57965, 1.04)
pt3dadd(54.0903, 77.7751, 8.57965, 1.04)
pt3dadd(56.8503, 77.4551, 10.5396, 1.04)
pt3dadd(59.6803, 75.3651, 10.5396, 1.04)
pt3dadd(62.1303, 75.2051, 10.5396, 1.04)
pt3dadd(63.3803, 73.1551, 12.4997, 1.04)
pt3dadd(65.3403, 72.7751, 12.4997, 1.04)
pt3dadd(65.8803, 70.6351, 12.4997, 1.04)
pt3dadd(68.9703, 70.6051, 20.3297, 1.04)
pt3dadd(71.5303, 69.2051, 20.3297, 1.04)
pt3dadd(74.4503, 67.0351, 20.3297, 1.04)
pt3dadd(75.9503, 67.3751, 22.2896, 1.04)
pt3dadd(78.3403, 66.1651, 22.2896, 1.04)
pt3dadd(81.6503, 66.7551, 27.1797, 1.04)
pt3dadd(83.1803, 65.5251, 27.1797, 1.04)
pt3dadd(85.0903, 65.3051, 27.1797, 1.04)
pt3dadd(86.4603, 66.5051, 30.1196, 1.04)
pt3dadd(91.4703, 65.8551, 31.0997, 1.04)
pt3dadd(95.0403, 66.1451, 31.0997, 1.04)
pt3dadd(97.8403, 66.9451, 31.0997, 1.04)
pt3dadd(100.93, 67.8851, 37.9496, 1.04)
pt3dadd(103.65, 68.3251, 35.9897, 1.04)
pt3dadd(106.96, 67.5251, 35.9897, 0.7)
pt3dadd(109.34, 68.3951, 38.9296, 0.7)
pt3dadd(110.99, 70.7851, 38.9296, 0.7)
pt3dadd(112.69, 72.0451, 45.7797, 0.7)
pt3dadd(115.85, 71.0451, 46.7597, 0.7)
pt3dadd(118.03, 72.1251, 46.7597, 0.7)
pt3dadd(119.74, 71.7151, 50.6796, 0.7)
pt3dadd(121.53, 69.9051, 50.6796, 0.7)
pt3dadd(124.53, 68.8751, 51.6596, 0.7)
pt3dadd(124.69, 67.4051, 51.6596, 0.7)
pt3dadd(127.12, 68.1151, 54.5896, 0.7)
pt3dadd(128.3, 67.1751, 54.5896, 0.7)
pt3dadd(129.93, 69.0551, 54.5896, 0.7)
pt3dadd(131.54, 69.1751, 60.4697, 0.7)
pt3dadd(133.53, 70.0251, 61.4496, 0.7)
pt3dadd(134.99, 68.2351, 61.4496, 0.7)
pt3dadd(137.85, 69.3651, 63.3997, 0.7)
pt3dadd(137.54, 71.0051, 63.3997, 0.7)
pt3dadd(139.59, 71.7151, 67.3196, 0.7)
pt3dadd(141.29, 72.6951, 67.3196, 0.7)
pt3dadd(143.72, 72.5851, 68.2997, 0.35)
}
dend[58] {pt3dclear()
pt3dadd(28.8303, 78.4351, 7.59965, 2.09)
pt3dadd(29.6003, 80.0651, 6.61965, 2.09)
pt3dadd(31.5603, 82.4251, 6.61965, 2.09)
pt3dadd(33.2203, 85.7451, 4.66965, 1.39)
pt3dadd(35.8803, 88.3051, 4.66965, 1.39)
pt3dadd(38.4703, 91.4451, 4.66965, 1.39)
pt3dadd(40.5403, 93.4751, 4.66965, 1.39)
pt3dadd(42.3503, 95.0351, 4.66965, 1.39)
pt3dadd(44.7603, 97.7551, 1.72965, 1.39)
pt3dadd(47.3403, 100.085, 1.72965, 1.39)
pt3dadd(48.2303, 101.335, 1.72965, 1.39)
pt3dadd(50.5903, 103.055, 1.72965, 1.04)
pt3dadd(53.0203, 105.715, 1.72965, 1.04)
pt3dadd(53.5603, 107.865, -2.19035, 1.04)
pt3dadd(54.3903, 109.635, -2.19035, 1.39)
pt3dadd(57.1903, 111.035, -2.19035, 1.39)
pt3dadd(61.6103, 113.665, -3.17035, 1.04)
pt3dadd(65.6303, 115.975, -3.17035, 1.04)
pt3dadd(68.8103, 118.015, -3.17035, 1.04)
pt3dadd(70.4203, 120.545, -3.17035, 1.39)
pt3dadd(71.9103, 123.555, -3.17035, 1.39)
pt3dadd(73.0103, 126.495, -3.17035, 1.39)
pt3dadd(75.6203, 128.575, -3.17035, 1.39)
pt3dadd(77.9803, 130.505, -3.17035, 1.04)
pt3dadd(79.4503, 133.475, -8.06035, 1.04)
pt3dadd(81.3803, 136.175, -8.06035, 1.04)
pt3dadd(82.0503, 137.965, -7.08035, 1.39)
pt3dadd(85.3303, 139.105, -7.08035, 1.39)
pt3dadd(88.0703, 142.385, -7.08035, 1.39)
pt3dadd(88.3703, 142.215, -7.08035, 1.39)
pt3dadd(91.3303, 144.385, -14.9103, 1.04)
pt3dadd(91.6703, 146.875, -14.9103, 1.04)
pt3dadd(94.1603, 148.055, -14.9103, 1.04)
pt3dadd(96.9103, 148.845, -15.8904, 1.04)
pt3dadd(100.07, 150.455, -15.8904, 1.04)
pt3dadd(102.63, 150.815, -15.8904, 1.04)
pt3dadd(104.64, 151.925, -19.8104, 1.04)
pt3dadd(107.14, 151.065, -19.8104, 1.04)
pt3dadd(109.39, 149.775, -19.8104, 1.04)
pt3dadd(112.1, 150.675, -23.7304, 1.04)
pt3dadd(113.18, 150.845, -24.7003, 1.04)
}
dend[59] {pt3dclear()
pt3dadd(-13.6697, 133.645, 2.70965, 0.7)
pt3dadd(-16.2997, 135.695, 0.74965, 0.7)
pt3dadd(-15.9897, 135.525, 0.74965, 0.7)
pt3dadd(-18.1697, 138.265, 0.74965, 0.7)
pt3dadd(-19.5897, 141.445, 1.72965, 0.7)
pt3dadd(-21.8597, 144.515, 1.72965, 0.7)
pt3dadd(-20.4297, 147.985, 1.72965, 0.7)
pt3dadd(-21.0297, 152.165, 1.72965, 0.7)
pt3dadd(-22.3097, 154.255, 1.72965, 0.7)
pt3dadd(-21.4397, 158.035, -1.21035, 0.7)
pt3dadd(-20.8097, 160.665, 2.70965, 0.7)
pt3dadd(-20.8997, 164.345, 2.70965, 0.7)
pt3dadd(-21.6297, 167.395, 2.70965, 0.7)
pt3dadd(-22.6996, 170.475, 2.70965, 0.7)
pt3dadd(-21.9897, 172.665, 2.70965, 0.7)
pt3dadd(-22.4897, 174.605, 4.66965, 0.7)
pt3dadd(-21.5497, 177.885, 10.5396, 0.7)
pt3dadd(-23.4997, 181.385, 12.4997, 0.7)
pt3dadd(-23.2697, 183.505, 12.4997, 0.7)
pt3dadd(-23.4397, 184.945, 12.4997, 0.7)
pt3dadd(-24.8797, 186.675, 18.3697, 0.7)
pt3dadd(-26.7497, 188.415, 19.3497, 0.7)
pt3dadd(-27.9097, 191.755, 22.2896, 0.7)
pt3dadd(-29.4397, 193.065, 21.3097, 0.7)
pt3dadd(-30.5197, 195.165, 21.3097, 0.7)
pt3dadd(-32.4097, 195.265, 21.3097, 0.7)
pt3dadd(-32.2797, 199.395, 22.2896, 0.7)
pt3dadd(-33.8597, 202.815, 22.2896, 0.7)
pt3dadd(-33.6996, 205.875, 26.1996, 0.7)
pt3dadd(-33.7997, 208.305, 26.1996, 0.7)
pt3dadd(-33.3197, 211.535, 26.1996, 0.7)
pt3dadd(-33.4597, 213.005, 32.0797, 0.7)
pt3dadd(-35.0897, 214.065, 32.0797, 0.7)
pt3dadd(-34.9097, 216.915, 32.0797, 0.35)
pt3dadd(-36.8097, 217.715, 32.0797, 0.35)
pt3dadd(-36.3797, 220.665, 34.0296, 0.35)
pt3dadd(-34.9797, 220.805, 35.0097, 0.35)
pt3dadd(-34.1097, 220.335, 35.0097, 0.35)
pt3dadd(-35.5597, 223.155, 42.8497, 0.35)
pt3dadd(-36.0797, 225.185, 42.8497, 0.35)
pt3dadd(-36.6497, 225.895, 51.6596, 0.35)
pt3dadd(-34.9997, 228.085, 51.6596, 0.35)
pt3dadd(-35.2997, 230.445, 54.5896, 0.35)
pt3dadd(-34.0697, 231.405, 55.5696, 0.35)
}
}
proc shape3d_12() {
dend[59] { pt3dadd(-32.6797, 232.285, 62.4296, 0.35)
pt3dadd(-32.5097, 232.875, 57.5297, 0.35)
}
dend[60] {pt3dclear()
pt3dadd(-13.6697, 133.645, 2.70965, 1.04)
pt3dadd(-13.0197, 135.115, -0.23035, 1.04)
pt3dadd(-14.3197, 136.355, -0.23035, 1.04)
pt3dadd(-13.4597, 138.075, -0.23035, 1.04)
pt3dadd(-15.2697, 138.035, -0.23035, 1.04)
pt3dadd(-16.8097, 139.145, -0.23035, 1.04)
pt3dadd(-17.6396, 141.655, -5.12035, 1.04)
pt3dadd(-15.5497, 142.715, -5.12035, 1.04)
pt3dadd(-16.7997, 144.735, -5.12035, 1.04)
pt3dadd(-17.3197, 147.575, -6.10035, 1.04)
pt3dadd(-16.9496, 150.655, -9.04035, 1.04)
pt3dadd(-14.9697, 153.035, -10.0203, 1.04)
pt3dadd(-16.3797, 156.595, -14.9103, 1.04)
pt3dadd(-16.5397, 159.965, -15.8904, 1.04)
pt3dadd(-16.5397, 159.965, -16.8703, 1.04)
pt3dadd(-16.8197, 163.225, -19.8104, 1.04)
pt3dadd(-16.3297, 167.215, -20.7903, 1.04)
pt3dadd(-15.6996, 170.655, -20.7903, 1.04)
pt3dadd(-14.8097, 174.755, -20.7903, 1.04)
pt3dadd(-15.5597, 179.085, -19.8104, 1.04)
pt3dadd(-16.0097, 183.955, -19.8104, 1.04)
pt3dadd(-18.0397, 188.365, -19.8104, 1.04)
}
dend[61] {pt3dclear()
pt3dadd(-10.6197, 104.975, 120.19, 0.35)
pt3dadd(-7.76965, 104.295, 123.12, 0.35)
pt3dadd(-4.17969, 101.225, 124.1, 0.35)
pt3dadd(0.090332, 97.2851, 124.1, 0.35)
pt3dadd(3.40033, 95.3051, 127.04, 0.35)
pt3dadd(4.9303, 95.4751, 128.02, 0.35)
pt3dadd(5.4903, 95.6651, 128.02, 0.35)
pt3dadd(7.65033, 96.2651, 128.02, 0.35)
pt3dadd(9.81033, 95.3351, 128.02, 0.35)
pt3dadd(11.8003, 97.2151, 128.02, 0.35)
pt3dadd(14.7703, 97.6051, 131.93, 0.35)
pt3dadd(17.2003, 97.1751, 131.93, 0.35)
}
dend[62] {pt3dclear()
pt3dadd(-10.6197, 104.975, 120.19, 0.35)
pt3dadd(-11.2597, 102.925, 119.21, 0.35)
pt3dadd(-11.1396, 100.535, 118.23, 0.35)
pt3dadd(-9.5097, 97.1151, 118.23, 0.35)
pt3dadd(-9.63965, 94.1251, 121.17, 0.35)
pt3dadd(-9.40967, 93.4151, 121.17, 0.35)
pt3dadd(-9.17969, 89.9051, 121.17, 0.35)
pt3dadd(-11.2297, 89.8351, 121.17, 0.35)
pt3dadd(-12.4197, 88.1351, 121.17, 0.35)
pt3dadd(-13.8896, 86.6551, 121.17, 0.35)
pt3dadd(-15.4897, 84.6751, 122.14, 0.35)
pt3dadd(-17.6797, 83.9451, 122.14, 0.35)
pt3dadd(-19.7297, 82.0851, 122.14, 0.35)
pt3dadd(-21.0397, 77.9251, 122.14, 0.35)
pt3dadd(-23.9797, 75.0251, 122.14, 0.35)
pt3dadd(-24.9397, 72.0751, 122.14, 0.35)
pt3dadd(-26.4897, 69.1451, 122.14, 0.35)
pt3dadd(-26.7297, 66.4151, 122.14, 0.35)
pt3dadd(-29.0497, 64.8851, 124.1, 0.35)
pt3dadd(-30.3997, 62.9951, 123.12, 0.35)
pt3dadd(-31.3397, 60.2351, 123.12, 0.35)
pt3dadd(-31.3397, 60.2351, 122.14, 0.35)
pt3dadd(-32.9397, 58.2151, 123.12, 0.35)
pt3dadd(-33.4697, 56.8551, 126.06, 0.35)
pt3dadd(-36.1597, 54.8251, 127.04, 0.35)
pt3dadd(-38.7297, 53.5151, 127.04, 0.35)
pt3dadd(-41.2997, 54.2151, 127.04, 0.35)
pt3dadd(-44.3497, 53.2951, 127.04, 0.35)
pt3dadd(-45.3896, 54.7251, 127.04, 0.35)
pt3dadd(-47.0897, 53.6851, 127.04, 0.35)
pt3dadd(-48.9297, 53.8351, 127.04, 0.35)
pt3dadd(-49.8397, 52.8251, 132.91, 0.35)
pt3dadd(-51.5997, 52.6151, 132.91, 0.35)
pt3dadd(-51.6097, 49.6351, 132.91, 0.35)
pt3dadd(-53.5597, 49.4151, 132.91, 0.35)
pt3dadd(-54.1297, 48.1351, 132.91, 0.35)
pt3dadd(-55.0797, 46.2151, 135.85, 0.35)
pt3dadd(-54.2697, 43.5651, 138.79, 0.35)
pt3dadd(-55.3597, 41.7251, 140.75, 0.35)
pt3dadd(-53.8896, 39.2951, 145.64, 0.35)
pt3dadd(-53.7997, 37.9451, 145.64, 0.35)
pt3dadd(-53.3896, 36.1151, 145.64, 0.35)
pt3dadd(-55.1597, 32.6351, 151.51, 0.35)
pt3dadd(-57.5497, 30.8251, 154.45, 0.35)
pt3dadd(-56.5597, 26.8451, 154.45, 0.35)
pt3dadd(-59.3497, 25.8151, 154.45, 0.35)
pt3dadd(-62.2497, 24.7551, 154.45, 0.35)
pt3dadd(-63.7197, 23.6251, 154.45, 0.35)
pt3dadd(-65.3097, 21.8951, 154.45, 0.35)
pt3dadd(-68.1697, 22.6251, 148.58, 0.35)
pt3dadd(-72.1497, 21.0451, 147.6, 0.35)
pt3dadd(-76.1697, 19.6951, 147.6, 0.35)
pt3dadd(-78.8997, 19.2951, 146.62, 0.35)
pt3dadd(-81.4697, 17.9651, 146.62, 0.35)
pt3dadd(-84.3097, 18.2751, 146.62, 0.35)
pt3dadd(-84.1996, 20.7451, 146.62, 0.35)
pt3dadd(-84.6197, 22.3051, 151.51, 0.35)
pt3dadd(-84.8896, 23.8751, 151.51, 0.35)
pt3dadd(-82.7897, 24.0551, 151.51, 0.35)
pt3dadd(-81.2497, 23.7751, 154.45, 0.35)
}
dend[63] {pt3dclear()
pt3dadd(-20.3397, 245.655, 69.2796, 0.35)
pt3dadd(-20.3397, 246.295, 69.2796, 0.35)
pt3dadd(-19.0197, 247.255, 69.2796, 0.35)
pt3dadd(-19.7197, 248.925, 75.1496, 0.35)
pt3dadd(-19.1697, 252.605, 81.0296, 0.35)
pt3dadd(-16.6797, 254.295, 87.8796, 0.35)
pt3dadd(-14.5397, 251.795, 87.8796, 0.35)
pt3dadd(-12.1996, 253.635, 82.0096, 0.35)
pt3dadd(-9.04968, 254.745, 81.0296, 0.35)
pt3dadd(-7.64966, 256.165, 83.9596, 0.35)
pt3dadd(-5.92969, 254.865, 84.9396, 0.35)
pt3dadd(-4.21967, 252.395, 86.8996, 0.35)
pt3dadd(-0.939697, 251.675, 86.8996, 0.35)
pt3dadd(1.83032, 249.285, 87.8796, 0.35)
pt3dadd(4.22034, 250.085, 87.8796, 0.35)
pt3dadd(3.22034, 251.385, 89.8396, 0.35)
pt3dadd(6.21033, 252.175, 92.7696, 0.35)
pt3dadd(9.49033, 251.985, 95.7096, 0.35)
pt3dadd(12.0103, 251.685, 100.61, 0.35)
pt3dadd(11.3003, 254.095, 100.61, 0.35)
pt3dadd(13.8203, 252.615, 100.61, 0.35)
pt3dadd(15.4903, 252.525, 103.54, 0.35)
pt3dadd(17.7603, 253.305, 104.52, 0.35)
pt3dadd(19.7403, 255.645, 106.48, 0.35)
pt3dadd(21.2303, 256.885, 108.44, 0.35)
pt3dadd(23.0903, 257.035, 111.38, 0.35)
pt3dadd(23.4903, 257.175, 111.38, 0.35)
pt3dadd(26.2503, 258.445, 111.38, 0.35)
pt3dadd(27.1303, 255.005, 116.27, 0.35)
pt3dadd(27.1703, 252.605, 116.27, 0.35)
pt3dadd(28.9103, 251.585, 120.19, 0.35)
pt3dadd(29.2703, 249.645, 124.1, 0.35)
pt3dadd(32.4103, 248.805, 126.06, 0.35)
pt3dadd(35.3103, 247.705, 126.06, 0.35)
pt3dadd(38.1503, 245.245, 126.06, 0.35)
pt3dadd(37.5603, 244.185, 129.98, 0.35)
pt3dadd(38.8903, 242.965, 134.87, 0.35)
pt3dadd(39.0303, 244.585, 141.72, 0.35)
pt3dadd(40.1703, 246.385, 141.72, 0.35)
pt3dadd(40.2703, 248.335, 143.68, 0.35)
pt3dadd(41.6303, 251.695, 148.58, 0.35)
pt3dadd(42.3703, 255.315, 150.53, 0.35)
pt3dadd(45.8003, 258.135, 153.47, 0.35)
pt3dadd(48.2403, 256.865, 153.47, 0.35)
pt3dadd(48.1103, 258.905, 155.43, 0.35)
pt3dadd(48.5303, 259.365, 155.43, 0.35)
pt3dadd(50.9603, 261.845, 155.43, 0.35)
pt3dadd(53.4003, 261.485, 155.43, 0.35)
pt3dadd(54.4403, 261.845, 155.43, 0.35)
pt3dadd(57.2303, 261.485, 155.43, 0.35)
pt3dadd(60.0103, 259.715, 158.37, 0.35)
pt3dadd(62.4503, 262.195, 158.37, 0.35)
pt3dadd(61.7503, 263.255, 169.14, 0.35)
pt3dadd(62.4503, 266.085, 169.14, 0.35)
pt3dadd(64.5292, 268.806, 175, 0.35)
pt3dadd(64.5292, 268.806, 175, 0.35)
pt3dadd(64.5292, 268.806, 175, 0.35)
pt3dadd(64.5292, 268.806, 175, 0.35)
pt3dadd(64.5292, 268.806, 175, 0.35)
pt3dadd(64.5292, 268.806, 175, 0.35)
pt3dadd(64.5292, 268.806, 175, 0.35)
pt3dadd(64.5292, 268.806, 175, 0.35)
pt3dadd(64.5292, 268.806, 175, 0.35)
pt3dadd(64.5292, 268.806, 175, 0.35)
pt3dadd(64.5292, 268.806, 175, 0.35)
pt3dadd(64.5292, 268.806, 175, 0.35)
}
dend[64] {pt3dclear()
pt3dadd(-20.3397, 245.655, 69.2796, 0.35)
pt3dadd(-18.2097, 244.695, 69.2796, 0.35)
pt3dadd(-17.2097, 247.975, 73.1897, 0.35)
pt3dadd(-18.1697, 250.195, 74.1696, 0.35)
pt3dadd(-17.1697, 251.335, 74.1696, 0.35)
pt3dadd(-16.7297, 251.825, 74.1696, 0.35)
pt3dadd(-15.8297, 253.265, 74.1696, 0.35)
pt3dadd(-13.7397, 252.645, 77.1096, 0.35)
pt3dadd(-12.0097, 253.945, 81.0296, 0.35)
pt3dadd(-10.5697, 255.095, 85.9196, 0.35)
pt3dadd(-10.6996, 255.875, 85.9196, 0.35)
pt3dadd(-8.8197, 256.665, 85.9196, 0.35)
pt3dadd(-6.63965, 257.705, 88.8596, 0.35)
pt3dadd(-6.72968, 262.015, 90.8196, 0.35)
pt3dadd(-6.51965, 263.975, 92.7696, 0.35)
pt3dadd(-4.32965, 265.415, 95.7096, 0.35)
pt3dadd(-5.58966, 267.525, 98.6496, 0.35)
pt3dadd(-7.38965, 270.175, 98.6496, 0.35)
pt3dadd(-9.22968, 274.195, 100.61, 0.35)
pt3dadd(-8.42969, 276.195, 103.54, 0.35)
pt3dadd(-7.84967, 279.075, 104.52, 0.35)
pt3dadd(-9.28967, 280.935, 105.5, 0.35)
pt3dadd(-6.86969, 283.005, 106.48, 0.35)
pt3dadd(-5.28967, 285.275, 106.48, 0.35)
pt3dadd(-3.39966, 285.125, 106.48, 0.35)
pt3dadd(-2.0697, 287.075, 111.38, 0.35)
pt3dadd(-2.86969, 288.855, 111.38, 0.35)
pt3dadd(-2.57965, 290.425, 113.33, 0.35)
pt3dadd(-1.67969, 291.725, 114.31, 0.35)
pt3dadd(0.470337, 289.305, 117.25, 0.35)
pt3dadd(2.64032, 286.815, 117.25, 0.35)
pt3dadd(4.14032, 283.795, 121.17, 0.35)
pt3dadd(4.4303, 283.405, 121.17, 0.35)
pt3dadd(6.79031, 281.765, 121.17, 0.35)
pt3dadd(6.17032, 279.135, 124.1, 0.35)
pt3dadd(8.07031, 278.205, 125.08, 0.35)
pt3dadd(9.69034, 274.745, 125.08, 0.35)
pt3dadd(12.1803, 273.435, 125.08, 0.35)
}
}
proc shape3d_13() {
dend[64] { pt3dadd(12.9603, 271.845, 127.04, 0.35)
pt3dadd(14.3203, 269.215, 133.89, 0.35)
pt3dadd(13.9703, 266.985, 139.77, 0.35)
pt3dadd(17.3303, 264.465, 141.72, 0.35)
pt3dadd(20.8803, 262.435, 147.6, 0.35)
pt3dadd(20.8603, 259.775, 150.53, 0.35)
pt3dadd(20.8603, 259.775, 151.51, 0.35)
pt3dadd(24.3903, 257.655, 151.51, 0.35)
pt3dadd(27.6803, 257.305, 151.51, 0.35)
pt3dadd(29.4903, 255.295, 152.49, 0.35)
pt3dadd(32.3903, 254.255, 152.49, 0.35)
pt3dadd(33.6703, 251.675, 157.39, 0.35)
pt3dadd(35.9403, 251.175, 158.37, 0.35)
pt3dadd(37.5003, 252.275, 161.3, 0.35)
pt3dadd(40.6903, 251.185, 164.24, 0.35)
pt3dadd(42.2603, 251.415, 166.2, 0.35)
}
dend[65] {pt3dclear()
pt3dadd(-51.0397, -112.075, 116.27, 0.35)
pt3dadd(-50.4297, -109.055, 115.29, 0.35)
pt3dadd(-51.9997, -109.145, 120.19, 0.35)
pt3dadd(-50.1297, -109.685, 125.08, 0.35)
pt3dadd(-48.2997, -109.255, 128.02, 0.35)
pt3dadd(-48.6497, -106.235, 129, 0.35)
pt3dadd(-46.9097, -106.995, 133.89, 0.35)
pt3dadd(-46.6597, -105.285, 138.79, 0.35)
pt3dadd(-45.9397, -103.695, 140.75, 0.35)
pt3dadd(-45.3197, -103.875, 140.75, 0.35)
pt3dadd(-43.0897, -104.455, 140.75, 0.35)
pt3dadd(-40.4797, -102.255, 140.75, 0.35)
pt3dadd(-38.1297, -99.4149, 146.62, 0.35)
pt3dadd(-35.2397, -97.6149, 146.62, 0.35)
pt3dadd(-31.8997, -95.8849, 147.6, 0.35)
pt3dadd(-31.6797, -94.8549, 155.43, 0.35)
pt3dadd(-35.7997, -96.6749, 161.3, 0.35)
pt3dadd(-37.7397, -98.1849, 164.24, 0.35)
pt3dadd(-39.3597, -100.505, 164.24, 0.35)
pt3dadd(-40.6597, -103.305, 165.22, 0.35)
pt3dadd(-40.9397, -105.895, 165.22, 0.35)
pt3dadd(-39.8397, -108.545, 165.22, 0.35)
pt3dadd(-37.7197, -111.255, 165.22, 0.35)
pt3dadd(-35.9097, -112.025, 168.16, 0.35)
pt3dadd(-33.1497, -109.935, 171.09, 0.35)
pt3dadd(-29.6297, -110.485, 173.05, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
pt3dadd(-29.0167, -110.656, 175, 0.35)
}
dend[66] {pt3dclear()
pt3dadd(-51.0397, -112.075, 116.27, 0.7)
pt3dadd(-52.5097, -115.595, 117.25, 0.7)
pt3dadd(-52.3197, -120.095, 117.25, 0.7)
pt3dadd(-54.4397, -121.935, 117.25, 0.7)
pt3dadd(-54.2997, -122.465, 118.23, 0.7)
pt3dadd(-53.8896, -124.105, 121.17, 0.7)
pt3dadd(-51.9597, -127.665, 123.12, 0.7)
pt3dadd(-49.8097, -129.225, 123.12, 0.7)
pt3dadd(-48.4496, -129.485, 125.08, 0.7)
pt3dadd(-46.7297, -132.315, 125.08, 0.7)
pt3dadd(-45.5697, -134.735, 125.08, 0.7)
pt3dadd(-45.4597, -137.135, 125.08, 0.7)
pt3dadd(-43.7297, -139.465, 125.08, 0.7)
pt3dadd(-43.9097, -143.615, 129.98, 0.7)
pt3dadd(-43.2397, -146.855, 130.96, 0.7)
pt3dadd(-41.2097, -149.715, 130.96, 0.7)
pt3dadd(-40.5197, -152.115, 130.96, 0.7)
pt3dadd(-41.2097, -154.075, 128.02, 0.7)
pt3dadd(-38.8297, -158.095, 127.04, 0.7)
pt3dadd(-38.5197, -159.625, 127.04, 0.7)
pt3dadd(-38.2297, -163.125, 127.04, 0.7)
pt3dadd(-38.3197, -166.145, 127.04, 0.7)
pt3dadd(-35.5697, -167.145, 131.93, 0.7)
pt3dadd(-33.9297, -169.545, 131.93, 0.7)
pt3dadd(-31.4496, -172.105, 131.93, 0.7)
pt3dadd(-27.2997, -172.955, 131.93, 0.7)
pt3dadd(-25.8697, -174.705, 134.87, 0.7)
pt3dadd(-25.1497, -177.895, 134.87, 0.7)
pt3dadd(-22.3197, -178.835, 134.87, 0.7)
pt3dadd(-19.3896, -179.455, 138.79, 0.35)
pt3dadd(-19.4797, -183.355, 138.79, 0.35)
pt3dadd(-17.5997, -186.895, 138.79, 0.35)
pt3dadd(-17.2097, -190.295, 138.79, 0.35)
pt3dadd(-16.3797, -190.995, 144.66, 0.35)
pt3dadd(-15.7997, -191.305, 144.66, 0.35)
pt3dadd(-13.5097, -192.255, 145.64, 0.35)
pt3dadd(-13.1497, -193.225, 145.64, 0.35)
pt3dadd(-9.72968, -192.535, 145.64, 0.35)
pt3dadd(-8.83966, -192.715, 145.64, 0.35)
pt3dadd(-6.97968, -194.175, 143.69, 0.35)
pt3dadd(-5.0097, -195.855, 143.69, 0.35)
pt3dadd(-4.6297, -196.035, 143.69, 0.35)
pt3dadd(-0.0296631, -197.655, 144.67, 0.35)
pt3dadd(0.660339, -201.275, 146.63, 0.35)
pt3dadd(2.36035, -204.355, 148.59, 0.35)
pt3dadd(3.94031, -205.665, 149.57, 0.35)
pt3dadd(7.20032, -206.375, 150.54, 0.35)
pt3dadd(9.42032, -208.105, 150.54, 0.35)
pt3dadd(11.5103, -209.455, 151.52, 0.35)
pt3dadd(13.0403, -208.965, 155.44, 0.35)
pt3dadd(15.2903, -210.855, 155.44, 0.35)
pt3dadd(15.8903, -212.985, 155.44, 0.35)
pt3dadd(19.0903, -214.995, 158.38, 0.35)
pt3dadd(19.6803, -217.335, 161.31, 0.35)
pt3dadd(21.4003, -217.805, 162.29, 0.35)
pt3dadd(23.3103, -217.685, 162.29, 0.35)
pt3dadd(25.1303, -219.405, 162.29, 0.35)
pt3dadd(23.4303, -222.735, 163.27, 0.35)
pt3dadd(24.9903, -224.245, 164.25, 0.35)
pt3dadd(27.8803, -225.245, 164.25, 0.35)
pt3dadd(27.8003, -227.205, 164.25, 0.35)
pt3dadd(28.8603, -229.865, 164.25, 0.35)
pt3dadd(30.6503, -231.145, 168.17, 0.35)
pt3dadd(31.4503, -234.205, 168.17, 0.35)
pt3dadd(30.0003, -237.285, 168.17, 0.35)
pt3dadd(30.7503, -239.265, 168.17, 0.35)
pt3dadd(31.1303, -241.545, 168.17, 0.35)
pt3dadd(30.7503, -243.215, 168.17, 0.35)
pt3dadd(32.3403, -246.315, 171.1, 0.35)
pt3dadd(33.0003, -249.095, 171.1, 0.35)
pt3dadd(33.3003, -252.175, 171.1, 0.35)
pt3dadd(32.9503, -255.255, 171.1, 0.35)
pt3dadd(34.5003, -259.045, 171.1, 0.35)
pt3dadd(35.9403, -262.365, 171.1, 0.35)
pt3dadd(35.1503, -266.185, 172.08, 0.35)
pt3dadd(38.7503, -266.885, 172.08, 0.35)
pt3dadd(39.3803, -270.655, 172.08, 0.35)
pt3dadd(37.9003, -274.335, 172.08, 0.35)
pt3dadd(36.9703, -275.975, 172.08, 0.35)
pt3dadd(36.6255, -276.034, 175, 0.35)
}
dend[67] {pt3dclear()
pt3dadd(129.15, -121.225, 23.2696, 1.04)
pt3dadd(130.77, -123.635, 22.2896, 1.04)
pt3dadd(134.19, -127.485, 24.2397, 0.7)
pt3dadd(138.33, -132.445, 24.2397, 0.7)
pt3dadd(140.63, -135.805, 24.2397, 0.7)
pt3dadd(140.55, -137.605, 24.2397, 0.7)
pt3dadd(140.28, -139.695, 25.2197, 0.7)
pt3dadd(143.21, -141.805, 25.2197, 0.7)
pt3dadd(145.34, -145.335, 26.1996, 0.7)
pt3dadd(148.91, -148.445, 26.1996, 0.7)
pt3dadd(151.12, -151.955, 26.1996, 0.7)
pt3dadd(154.1, -156.125, 26.1996, 0.7)
pt3dadd(156.36, -158.835, 25.2197, 0.7)
pt3dadd(156.1, -161.745, 25.2197, 0.7)
pt3dadd(159.68, -164.215, 26.1996, 0.7)
pt3dadd(161.86, -166.965, 26.1996, 0.7)
pt3dadd(165.27, -168.355, 26.1996, 0.7)
pt3dadd(169.34, -170.795, 23.2696, 0.7)
pt3dadd(170.26, -173.755, 22.2896, 0.7)
pt3dadd(173.18, -176.385, 22.2896, 0.7)
pt3dadd(177.28, -181.495, 21.3097, 0.7)
pt3dadd(180.01, -186.325, 21.3097, 0.7)
pt3dadd(184.11, -188.515, 21.3097, 0.7)
pt3dadd(186.29, -191.375, 21.3097, 0.7)
pt3dadd(186.65, -193.895, 22.2896, 0.7)
pt3dadd(190.39, -195.985, 20.3297, 0.7)
}
}
proc shape3d_14() {
dend[67] { pt3dadd(190.56, -195.685, 20.3297, 0.7)
pt3dadd(192.26, -197.875, 20.3297, 0.7)
pt3dadd(193.32, -199.155, 20.3297, 0.7)
pt3dadd(196.01, -200.275, 19.3496, 0.7)
pt3dadd(197.61, -203.335, 19.3496, 0.7)
pt3dadd(200.48, -206.975, 19.3496, 0.7)
pt3dadd(202.85, -212.205, 19.3496, 0.7)
pt3dadd(204.58, -216.575, 19.3496, 0.7)
pt3dadd(204.8, -219.745, 19.3496, 0.7)
pt3dadd(206.32, -223.015, 19.3496, 0.7)
pt3dadd(206.44, -225.265, 19.3496, 0.7)
pt3dadd(207.97, -226.805, 20.3297, 0.7)
pt3dadd(208.88, -229.645, 20.3297, 0.7)
pt3dadd(209.51, -232.195, 20.3297, 0.7)
pt3dadd(211.08, -235.085, 20.3297, 0.7)
pt3dadd(214.24, -237.505, 20.3297, 0.7)
pt3dadd(217.42, -240.005, 14.4496, 0.7)
pt3dadd(220.99, -242.725, 14.4496, 0.7)
pt3dadd(224.52, -247.045, 14.4496, 0.7)
pt3dadd(227.83, -250.415, 13.4796, 0.7)
pt3dadd(228.73, -253.935, 13.4796, 0.7)
pt3dadd(230.98, -258.145, 13.4796, 0.7)
pt3dadd(230.75, -263.735, 13.4796, 0.7)
pt3dadd(231.22, -266.555, 11.5196, 0.7)
pt3dadd(232.76, -268.395, 11.5196, 0.7)
pt3dadd(236.33, -269.485, 11.5196, 0.7)
pt3dadd(237.87, -275.365, 11.5196, 0.7)
pt3dadd(240.5, -280.355, 11.5196, 0.7)
pt3dadd(240.29, -281.765, 11.5196, 0.7)
pt3dadd(243.81, -285.035, 11.5196, 0.7)
pt3dadd(246.7, -288.755, 11.5196, 0.7)
pt3dadd(250.89, -292.215, 11.5196, 0.7)
pt3dadd(250.58, -295.225, 12.4996, 0.35)
pt3dadd(252.73, -296.705, 12.4996, 0.35)
pt3dadd(253.59, -298.005, 12.4996, 0.35)
pt3dadd(253.4, -301.155, 12.4996, 0.35)
pt3dadd(259.1, -305.205, 12.4996, 0.35)
pt3dadd(258.74, -308.665, 12.4996, 0.35)
pt3dadd(261.64, -309.905, 12.4996, 0.35)
pt3dadd(261.9, -313.455, 13.4796, 0.35)
pt3dadd(262.41, -318.415, 13.4796, 0.35)
pt3dadd(264.57, -320.285, 13.4796, 0.35)
pt3dadd(267.43, -322.315, 13.4796, 0.35)
pt3dadd(268.92, -326.285, 13.4796, 0.35)
pt3dadd(269.65, -327.955, 13.4796, 0.35)
pt3dadd(273, -330.135, 13.4796, 0.35)
pt3dadd(275.56, -333.615, 13.4796, 0.35)
pt3dadd(277.38, -336.905, 5.63965, 0.35)
pt3dadd(279.39, -339.935, 5.63965, 0.35)
pt3dadd(281.42, -344.155, 0.749649, 0.35)
pt3dadd(282.84, -346.325, 0.749649, 0.35)
pt3dadd(280.22, -347.035, -2.19035, 0.35)
pt3dadd(280.78, -349.355, -8.06035, 0.35)
}
dend[68] {pt3dclear()
pt3dadd(129.15, -121.225, 23.2696, 0.7)
pt3dadd(128.98, -124.655, 18.3696, 0.7)
pt3dadd(131.16, -128.185, 18.3696, 0.7)
pt3dadd(129.79, -133.665, 12.4996, 0.7)
pt3dadd(129.86, -135.965, 12.4996, 0.7)
pt3dadd(128.82, -139.415, 12.4996, 0.7)
pt3dadd(130.45, -141.695, 12.4996, 0.7)
pt3dadd(131.2, -146.345, 12.4996, 0.7)
pt3dadd(130.77, -148.735, 9.55965, 0.7)
pt3dadd(132.66, -151.465, 9.55965, 0.7)
pt3dadd(133.94, -155.085, 9.55965, 0.7)
pt3dadd(136.39, -157.135, 9.55965, 0.7)
pt3dadd(135.11, -159.725, 5.63965, 0.7)
pt3dadd(135.8, -162.345, 4.66965, 0.7)
pt3dadd(137.87, -162.445, 4.66965, 0.7)
pt3dadd(137.25, -164.665, 4.66965, 0.7)
pt3dadd(138.22, -166.995, -2.19035, 0.7)
pt3dadd(141.43, -167.805, -2.19035, 0.7)
pt3dadd(141.94, -169.965, -2.19035, 0.7)
pt3dadd(144.89, -171.215, -2.19035, 0.7)
pt3dadd(147.8, -171.775, -5.12035, 0.7)
pt3dadd(150.51, -171.465, -12.9604, 0.7)
pt3dadd(147.95, -169.155, -21.7704, 0.7)
pt3dadd(145.01, -167.955, -21.7704, 0.7)
pt3dadd(142.92, -167.575, -28.6203, 0.7)
pt3dadd(141.59, -164.655, -28.6203, 0.7)
pt3dadd(138.86, -163.485, -28.6203, 0.7)
pt3dadd(136.95, -162.395, -31.5603, 0.7)
pt3dadd(134.04, -161.555, -32.5403, 0.7)
pt3dadd(134.25, -162.245, -32.5403, 0.7)
pt3dadd(130.67, -159.395, -32.5403, 0.7)
pt3dadd(129.28, -159.015, -32.5403, 0.7)
pt3dadd(129.2, -157.755, -32.5403, 0.7)
pt3dadd(125.62, -154.905, -32.5403, 0.7)
pt3dadd(123.76, -154.655, -32.5403, 0.7)
pt3dadd(122.89, -153.355, -32.5403, 0.7)
pt3dadd(119.74, -151.345, -32.5403, 0.7)
pt3dadd(118.55, -150.885, -33.5204, 0.7)
pt3dadd(119.13, -147.295, -35.4703, 0.7)
pt3dadd(118.19, -145.405, -35.4703, 0.7)
}
dend[69] {pt3dclear()
pt3dadd(262.23, 21.6951, 35.9897, 0.7)
pt3dadd(264.16, 19.9551, 35.9897, 0.7)
pt3dadd(267.95, 18.9951, 36.9697, 0.7)
pt3dadd(271.04, 16.6451, 36.9697, 0.7)
pt3dadd(274.3, 15.7051, 36.9697, 0.7)
pt3dadd(276.38, 12.8551, 36.9697, 0.7)
pt3dadd(279.42, 10.7951, 36.9697, 0.7)
pt3dadd(284.34, 7.16512, 36.9697, 0.7)
pt3dadd(290.49, 4.67512, 35.9897, 0.7)
pt3dadd(293.07, 3.53512, 35.9897, 0.7)
pt3dadd(296.82, 0.305122, 35.9897, 0.7)
pt3dadd(301.33, -2.40488, 35.9897, 0.7)
pt3dadd(305.4, -4.08488, 34.0296, 0.7)
pt3dadd(308.83, -7.29488, 34.0296, 0.7)
pt3dadd(311.63, -11.2849, 34.0296, 0.7)
}
dend[70] {pt3dclear()
pt3dadd(262.23, 21.6951, 35.9897, 0.7)
pt3dadd(265.34, 25.3151, 32.0797, 0.7)
pt3dadd(267.16, 29.2851, 33.0597, 0.7)
pt3dadd(268.96, 34.0851, 33.0597, 0.7)
pt3dadd(269.14, 36.9351, 33.0597, 0.7)
pt3dadd(271.46, 39.9451, 32.0797, 0.7)
pt3dadd(273.47, 43.9551, 31.0997, 0.7)
pt3dadd(276.54, 45.6751, 31.0997, 0.7)
pt3dadd(277.85, 50.0551, 31.0997, 0.7)
pt3dadd(279.64, 56.4451, 31.0997, 0.7)
pt3dadd(282.56, 61.8851, 30.1196, 0.7)
pt3dadd(287.17, 65.7551, 30.1196, 0.7)
pt3dadd(292.35, 68.7651, 30.1196, 0.7)
pt3dadd(293.7, 69.2551, 30.1196, 0.7)
pt3dadd(295.94, 73.2151, 29.1397, 0.7)
pt3dadd(299.27, 78.1251, 29.1397, 0.7)
pt3dadd(300.52, 79.5751, 29.1397, 0.7)
pt3dadd(304.14, 81.4151, 29.1397, 0.7)
pt3dadd(306.93, 84.3651, 29.1397, 0.7)
pt3dadd(309.6, 87.8551, 30.1196, 0.7)
pt3dadd(313.69, 91.9051, 30.1196, 0.7)
pt3dadd(317.58, 96.1651, 30.1196, 0.7)
pt3dadd(318.8, 98.0751, 30.1196, 0.7)
}
dend[71] {pt3dclear()
pt3dadd(85.1603, 33.2351, 71.2397, 1.04)
pt3dadd(86.8803, 30.8051, 71.2397, 1.04)
pt3dadd(90.1603, 31.2251, 77.1097, 1.04)
pt3dadd(90.1603, 31.2251, 78.0897, 1.04)
pt3dadd(93.3203, 31.7551, 82.0097, 1.04)
pt3dadd(96.5303, 31.8851, 82.9797, 0.7)
pt3dadd(98.3903, 33.4751, 85.9197, 0.7)
pt3dadd(99.5203, 35.2651, 85.9197, 0.7)
pt3dadd(102.18, 34.9051, 90.8197, 0.7)
pt3dadd(103.13, 34.6351, 92.7697, 0.7)
pt3dadd(103.96, 33.8251, 94.7297, 0.7)
pt3dadd(106.33, 35.0651, 95.7097, 0.7)
pt3dadd(107.63, 35.9051, 100.61, 0.7)
pt3dadd(107.63, 35.9051, 101.59, 0.7)
pt3dadd(109.93, 36.6451, 104.52, 0.7)
pt3dadd(110.47, 38.0251, 109.42, 0.7)
pt3dadd(112.53, 38.5851, 114.31, 0.7)
pt3dadd(114.27, 39.7751, 114.31, 0.35)
pt3dadd(115.83, 38.5951, 114.31, 0.35)
pt3dadd(118.07, 41.1251, 122.14, 0.35)
pt3dadd(121.33, 43.4651, 122.14, 0.35)
pt3dadd(124.62, 44.1151, 122.14, 0.35)
pt3dadd(126.14, 45.5651, 122.14, 0.35)
pt3dadd(128.77, 46.7751, 128.02, 0.35)
pt3dadd(130.82, 46.4251, 128.02, 0.35)
pt3dadd(132.67, 44.9651, 131.93, 0.35)
pt3dadd(135.58, 46.2451, 132.91, 0.35)
pt3dadd(136.6, 49.1451, 132.91, 0.35)
pt3dadd(139.76, 49.1851, 135.85, 0.35)
pt3dadd(141.94, 49.8951, 137.81, 0.35)
pt3dadd(144.23, 49.4951, 137.81, 0.35)
pt3dadd(147.32, 51.4551, 139.77, 0.35)
pt3dadd(147.47, 51.9951, 143.68, 0.7)
}
dend[72] {pt3dclear()
pt3dadd(85.1603, 33.2351, 71.2397, 0.7)
pt3dadd(83.6703, 34.3451, 75.1497, 0.7)
pt3dadd(84.2903, 36.7551, 78.0897, 0.7)
pt3dadd(85.8403, 36.7951, 78.0897, 0.7)
pt3dadd(87.2103, 38.7051, 84.9397, 0.7)
pt3dadd(88.9303, 40.0751, 85.9197, 0.7)
pt3dadd(89.6903, 40.8651, 91.7997, 0.7)
}
dend[73] {pt3dclear()
pt3dadd(127.21, 134.195, 52.6397, 0.35)
pt3dadd(130.43, 133.195, 48.7197, 0.35)
pt3dadd(135.05, 134.315, 44.7997, 0.35)
pt3dadd(137.36, 134.075, 43.8196, 0.35)
pt3dadd(140.83, 133.775, 43.8196, 0.35)
pt3dadd(141.04, 131.875, 43.8196, 0.35)
pt3dadd(144.51, 133.195, 36.9697, 0.35)
pt3dadd(148.77, 134.305, 36.9697, 0.35)
pt3dadd(153.12, 130.135, 36.9697, 0.35)
pt3dadd(156.86, 127.705, 31.0997, 0.35)
pt3dadd(159.43, 130.635, 24.2397, 0.35)
pt3dadd(162.96, 133.835, 24.2397, 0.35)
pt3dadd(165.64, 135.295, 24.2397, 0.35)
pt3dadd(168.8, 134.355, 19.3497, 0.35)
pt3dadd(170.02, 130.365, 19.3497, 0.35)
}
dend[74] {pt3dclear()
pt3dadd(127.21, 134.195, 52.6397, 0.35)
pt3dadd(126.1, 138.145, 46.7597, 0.35)
pt3dadd(125.1, 142.505, 45.7797, 0.35)
pt3dadd(126.84, 147.465, 45.7797, 0.35)
pt3dadd(129.36, 150.605, 38.9296, 0.35)
pt3dadd(130.28, 152.705, 36.9697, 0.35)
pt3dadd(131.43, 155.595, 36.9697, 0.35)
pt3dadd(131.85, 159.655, 36.9697, 0.35)
pt3dadd(131.79, 162.765, 31.0997, 0.35)
pt3dadd(130.76, 167.285, 30.1196, 0.35)
pt3dadd(130.98, 172.785, 30.1196, 0.35)
pt3dadd(129.39, 176.125, 30.1196, 0.35)
pt3dadd(130.01, 179.365, 33.0597, 0.35)
pt3dadd(129.95, 181.975, 33.0597, 0.35)
}
}
proc shape3d_15() {
dend[74] { pt3dadd(130.22, 184.905, 34.0296, 0.35)
pt3dadd(129.51, 186.885, 34.0296, 0.35)
pt3dadd(129.49, 191.565, 34.0296, 0.35)
}
dend[75] {pt3dclear()
pt3dadd(-32.5997, -87.7549, 122.14, 0.7)
pt3dadd(-34.9697, -87.5949, 121.17, 0.7)
pt3dadd(-37.3397, -86.6149, 122.14, 0.7)
}
dend[76] {pt3dclear()
pt3dadd(-32.5997, -87.7549, 122.14, 0.35)
pt3dadd(-35.7697, -90.0049, 129, 0.35)
pt3dadd(-37.0197, -90.5549, 130.96, 0.35)
pt3dadd(-38.9496, -92.3349, 133.89, 0.35)
pt3dadd(-40.9397, -91.8949, 138.79, 0.35)
pt3dadd(-41.2097, -92.3249, 138.79, 0.35)
pt3dadd(-42.1897, -93.9749, 138.79, 0.35)
pt3dadd(-44.0797, -95.8349, 146.62, 0.35)
pt3dadd(-46.0397, -99.0649, 152.49, 0.35)
pt3dadd(-48.1097, -102.265, 152.49, 0.35)
pt3dadd(-48.8697, -106.235, 157.39, 0.35)
pt3dadd(-48.8997, -108.825, 157.39, 0.35)
pt3dadd(-50.9697, -111.425, 158.37, 0.35)
pt3dadd(-50.9697, -111.425, 159.35, 0.35)
pt3dadd(-49.4997, -113.595, 161.3, 0.35)
pt3dadd(-46.9496, -114.655, 165.22, 0.35)
pt3dadd(-45.5497, -115.635, 165.22, 0.35)
pt3dadd(-46.9697, -118.335, 170.11, 0.35)
pt3dadd(-45.5497, -117.815, 170.11, 0.35)
pt3dadd(-43.1797, -119.205, 170.11, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
pt3dadd(-43.7563, -119.609, 175, 0.35)
}
dend[77] {pt3dclear()
pt3dadd(95.5403, -40.9549, 87.8797, 0.7)
pt3dadd(99.0603, -41.4049, 90.8197, 0.7)
pt3dadd(99.0603, -41.4049, 89.8397, 0.7)
pt3dadd(102.78, -40.3649, 89.8397, 0.7)
pt3dadd(105.72, -42.1749, 89.8397, 0.7)
pt3dadd(110.19, -40.7449, 86.8997, 0.7)
pt3dadd(114.06, -41.8049, 86.8997, 0.7)
pt3dadd(118.47, -41.6249, 86.8997, 0.7)
pt3dadd(121.38, -43.3949, 86.8997, 0.7)
pt3dadd(123.97, -42.4449, 85.9197, 0.35)
pt3dadd(126.44, -41.0549, 85.9197, 0.35)
pt3dadd(128.92, -41.9449, 85.9197, 0.35)
pt3dadd(128.92, -41.9449, 84.9397, 0.35)
pt3dadd(132.92, -41.6449, 82.0097, 0.35)
pt3dadd(136.35, -41.7949, 82.0097, 0.35)
pt3dadd(139.15, -44.2249, 82.0097, 0.35)
pt3dadd(141.29, -42.2949, 84.9397, 0.35)
pt3dadd(143.74, -43.8949, 84.9397, 0.35)
pt3dadd(147.19, -46.1249, 84.9397, 0.35)
pt3dadd(151.66, -46.3449, 84.9397, 0.35)
pt3dadd(153.66, -46.5549, 85.9197, 0.35)
pt3dadd(156, -47.5749, 86.8997, 0.35)
pt3dadd(159.38, -46.4849, 88.8597, 0.35)
pt3dadd(160.48, -47.5249, 88.8597, 0.35)
pt3dadd(163.39, -46.8149, 92.7697, 0.35)
pt3dadd(166.76, -46.6249, 92.7697, 0.35)
pt3dadd(169.23, -46.1249, 92.7697, 0.35)
pt3dadd(173.21, -48.8149, 89.8397, 0.35)
pt3dadd(177, -48.2549, 89.8397, 0.35)
pt3dadd(181.3, -49.4849, 88.8597, 0.35)
pt3dadd(185.78, -46.0749, 88.8597, 0.35)
pt3dadd(193.55, -45.3049, 88.8597, 0.35)
pt3dadd(200.64, -42.2349, 88.8597, 0.35)
pt3dadd(206.69, -37.0649, 88.8597, 0.35)
pt3dadd(209.24, -33.2649, 87.8797, 0.35)
pt3dadd(211.55, -28.9349, 87.8797, 0.35)
}
dend[78] {pt3dclear()
pt3dadd(95.5403, -40.9549, 87.8797, 0.7)
pt3dadd(96.3203, -43.3249, 89.8397, 0.7)
pt3dadd(95.2903, -45.1749, 90.8197, 0.7)
pt3dadd(96.8603, -46.7949, 90.8197, 0.7)
pt3dadd(101.15, -45.3749, 96.6897, 0.7)
pt3dadd(106.41, -43.6149, 96.6897, 0.7)
pt3dadd(109.01, -42.5849, 100.61, 0.7)
pt3dadd(111.14, -42.7949, 100.61, 0.7)
pt3dadd(113.69, -40.0149, 103.54, 0.7)
pt3dadd(116, -39.2549, 104.52, 0.7)
pt3dadd(119.14, -38.2949, 110.4, 0.7)
pt3dadd(121.64, -37.8349, 111.38, 0.7)
pt3dadd(123.14, -36.2749, 115.29, 0.7)
pt3dadd(125.34, -35.4149, 119.21, 0.7)
pt3dadd(126.26, -37.4249, 120.19, 0.7)
pt3dadd(128.4, -38.9749, 122.14, 0.7)
pt3dadd(131.67, -37.0949, 124.1, 0.7)
pt3dadd(134.26, -39.3549, 127.04, 0.7)
pt3dadd(135.41, -40.8149, 129, 0.7)
pt3dadd(138.93, -41.2649, 130.96, 0.7)
pt3dadd(140.53, -42.6749, 130.96, 0.7)
pt3dadd(143.11, -41.5349, 130.96, 0.7)
pt3dadd(144.78, -42.9749, 130.96, 0.7)
pt3dadd(146.57, -43.2049, 130.96, 0.7)
pt3dadd(147.75, -41.7349, 130.96, 0.7)
}
}
proc shape3d_16() {
dend[78] { pt3dadd(151.81, -41.4049, 133.89, 0.7)
pt3dadd(154.95, -41.6649, 133.89, 0.7)
pt3dadd(157.38, -43.2049, 139.77, 0.7)
pt3dadd(159.66, -44.7749, 140.75, 0.7)
pt3dadd(160.08, -45.5949, 143.68, 0.7)
pt3dadd(163.74, -45.0049, 146.62, 0.7)
pt3dadd(164.85, -46.1349, 146.62, 0.7)
}
dend[79] {pt3dclear()
pt3dadd(-174.92, -46.0949, -85.4003, 0.35)
pt3dadd(-171.73, -47.8249, -84.4203, 0.35)
pt3dadd(-171.77, -51.7849, -90.3003, 0.35)
pt3dadd(-171.19, -53.6049, -94.2103, 0.35)
pt3dadd(-171.38, -56.7049, -94.2103, 0.35)
pt3dadd(-171.04, -60.0949, -94.2103, 0.35)
pt3dadd(-171.43, -62.1849, -95.1903, 0.35)
pt3dadd(-170.65, -63.6149, -95.1903, 0.35)
pt3dadd(-172.76, -66.2649, -97.1503, 0.35)
pt3dadd(-174.4, -67.4249, -97.1503, 0.35)
pt3dadd(-175.35, -70.9149, -97.1503, 0.35)
pt3dadd(-176.57, -74.1949, -98.1303, 0.35)
pt3dadd(-178.27, -77.0349, -98.1303, 0.35)
pt3dadd(-180.35, -78.3149, -100.09, 0.35)
pt3dadd(-183.34, -79.4249, -103.02, 0.35)
pt3dadd(-184.78, -80.6149, -106.94, 0.35)
pt3dadd(-182.43, -82.0149, -109.88, 0.35)
pt3dadd(-181.76, -82.5849, -109.88, 0.35)
pt3dadd(-179.77, -85.0749, -109.88, 0.35)
pt3dadd(-177.21, -86.7649, -109.88, 0.35)
pt3dadd(-176.41, -89.3849, -109.88, 0.35)
pt3dadd(-174.46, -92.0649, -109.88, 0.35)
pt3dadd(-172.22, -92.6949, -109.88, 0.35)
pt3dadd(-170.49, -91.9349, -109.88, 0.35)
pt3dadd(-168.93, -92.2949, -109.88, 0.35)
pt3dadd(-168.41, -89.5249, -110.86, 0.35)
pt3dadd(-166.81, -89.3149, -110.86, 0.35)
pt3dadd(-167.06, -87.7449, -110.86, 0.35)
pt3dadd(-166.04, -85.9249, -109.88, 0.35)
pt3dadd(-164.72, -81.8649, -112.81, 0.35)
pt3dadd(-167.11, -81.0349, -112.81, 0.35)
pt3dadd(-166.39, -80.3849, -112.81, 0.35)
pt3dadd(-164.71, -78.7149, -112.81, 0.35)
pt3dadd(-162.6, -77.3249, -117.71, 0.35)
pt3dadd(-162.75, -75.8149, -123.58, 0.35)
pt3dadd(-162.75, -75.8149, -124.56, 0.35)
pt3dadd(-163.28, -73.8249, -130.44, 0.35)
pt3dadd(-165.28, -72.7149, -130.44, 0.35)
pt3dadd(-165.95, -70.3249, -133.37, 0.35)
pt3dadd(-169.08, -72.9049, -138.27, 0.35)
pt3dadd(-170.97, -75.2849, -138.27, 0.35)
pt3dadd(-171.96, -78.8549, -143.16, 0.35)
pt3dadd(-169.99, -77.6149, -147.08, 0.35)
pt3dadd(-167.81, -75.4549, -147.08, 0.35)
pt3dadd(-164.79, -74.1949, -147.08, 0.35)
pt3dadd(-162.89, -72.2049, -154.91, 0.35)
pt3dadd(-161.61, -74.7849, -154.91, 0.35)
}
dend[80] {pt3dclear()
pt3dadd(-174.92, -46.0949, -85.4003, 0.35)
pt3dadd(-177.63, -47.2049, -85.4003, 0.35)
pt3dadd(-180.65, -47.1949, -86.3803, 0.35)
pt3dadd(-183.38, -49.8349, -88.3403, 0.35)
pt3dadd(-185.64, -51.2849, -88.3403, 0.35)
pt3dadd(-190.46, -49.6949, -88.3403, 0.35)
pt3dadd(-191.46, -51.1549, -88.3403, 0.35)
pt3dadd(-194.24, -52.5049, -88.3403, 0.35)
pt3dadd(-196.46, -56.0849, -88.3403, 0.35)
pt3dadd(-199.7, -59.5749, -88.3403, 0.35)
pt3dadd(-203.74, -60.9049, -88.3403, 0.35)
pt3dadd(-207.28, -62.1749, -93.2303, 0.35)
}
dend[81] {pt3dclear()
pt3dadd(-77.2197, -88.1149, -89.3203, 0.7)
pt3dadd(-78.8397, -85.7149, -86.3803, 0.7)
pt3dadd(-81.4897, -85.6849, -86.3803, 0.7)
pt3dadd(-84.5297, -84.2049, -86.3803, 0.7)
pt3dadd(-86.4997, -84.3149, -93.2303, 0.7)
pt3dadd(-86.4997, -81.4849, -101.07, 0.7)
pt3dadd(-87.1497, -81.4549, -101.07, 0.35)
pt3dadd(-89.3896, -82.2349, -101.07, 0.35)
pt3dadd(-92.0197, -81.9549, -101.07, 0.35)
pt3dadd(-93.0297, -82.6949, -106.94, 0.35)
pt3dadd(-94.9097, -83.5949, -110.86, 0.35)
pt3dadd(-97.1996, -82.1649, -112.81, 0.35)
pt3dadd(-99.0197, -83.1449, -115.75, 0.35)
pt3dadd(-99.0197, -83.1449, -116.73, 0.35)
pt3dadd(-102.15, -82.9049, -118.69, 0.35)
pt3dadd(-105.59, -83.3849, -118.69, 0.35)
pt3dadd(-108.83, -85.0149, -120.65, 0.35)
pt3dadd(-111.77, -86.1249, -126.52, 0.35)
pt3dadd(-116.37, -86.1049, -129.46, 0.35)
pt3dadd(-119.43, -84.9349, -131.41, 0.35)
pt3dadd(-120.72, -83.1949, -137.29, 0.35)
pt3dadd(-123.04, -82.6949, -138.27, 0.35)
pt3dadd(-124.13, -81.1249, -138.27, 0.35)
pt3dadd(-126.78, -80.7849, -138.27, 0.35)
pt3dadd(-129.99, -80.0749, -138.27, 0.35)
pt3dadd(-131.81, -78.8849, -144.14, 0.35)
pt3dadd(-135.31, -78.4849, -150.02, 0.35)
pt3dadd(-138.33, -79.1249, -151.97, 0.35)
pt3dadd(-140.51, -79.8949, -160.78, 0.35)
pt3dadd(-141.83, -79.1249, -160.78, 0.35)
pt3dadd(-144.09, -79.1049, -161.76, 0.7)
pt3dadd(-141.09, -80.5149, -160.78, 0.7)
pt3dadd(-139.17, -83.8449, -165.68, 0.7)
pt3dadd(-139.14, -86.8249, -170.57, 0.7)
pt3dadd(-140.058, -86.8294, -175, 0.541637)
pt3dadd(-140.058, -86.8294, -175, 0.541637)
pt3dadd(-140.058, -86.8294, -175, 0.541637)
pt3dadd(-140.058, -86.8294, -175, 0.541637)
pt3dadd(-140.058, -86.8294, -175, 0.541637)
pt3dadd(-140.058, -86.8294, -175, 0.541637)
pt3dadd(-140.058, -86.8294, -175, 0.541637)
pt3dadd(-140.058, -86.8294, -175, 0.541637)
pt3dadd(-140.058, -86.8294, -175, 0.541637)
pt3dadd(-140.058, -86.8294, -175, 0.541637)
}
dend[82] {pt3dclear()
pt3dadd(-77.2197, -88.1149, -89.3203, 0.7)
pt3dadd(-78.7897, -88.6249, -89.3203, 0.7)
pt3dadd(-80.3997, -90.6949, -89.3203, 0.7)
pt3dadd(-82.8397, -93.0349, -93.2303, 0.7)
pt3dadd(-84.3896, -92.1149, -93.2303, 0.7)
pt3dadd(-85.7997, -90.8949, -93.2303, 0.7)
pt3dadd(-89.0997, -90.6049, -100.09, 0.7)
pt3dadd(-89.3497, -92.4249, -104, 0.7)
pt3dadd(-90.1597, -92.8449, -104, 0.7)
pt3dadd(-91.2897, -95.3349, -104, 0.7)
pt3dadd(-91.2797, -96.9249, -108.9, 0.7)
pt3dadd(-90.0297, -97.4249, -109.88, 0.7)
pt3dadd(-90.8896, -99.4349, -112.81, 0.7)
pt3dadd(-91.4897, -101.025, -112.81, 0.7)
pt3dadd(-92.1996, -103.635, -121.63, 0.7)
pt3dadd(-94.8597, -106.095, -128.48, 0.7)
pt3dadd(-93.8497, -108.185, -133.37, 0.7)
pt3dadd(-95.5197, -110.795, -136.31, 0.7)
pt3dadd(-97.5997, -111.365, -142.18, 0.7)
pt3dadd(-99.0297, -113.005, -142.18, 0.7)
pt3dadd(-100.65, -112.565, -147.08, 0.35)
pt3dadd(-104.23, -113.055, -147.08, 0.35)
pt3dadd(-106.45, -112.465, -148.06, 0.35)
pt3dadd(-108.68, -112.285, -148.06, 0.35)
pt3dadd(-111.18, -111.155, -149.04, 0.35)
}
dend[83] {pt3dclear()
pt3dadd(3.3703, 136.075, -84.4204, 0.35)
pt3dadd(2.97034, 136.865, -84.4204, 0.35)
pt3dadd(2.09033, 139.265, -84.4204, 0.35)
pt3dadd(3.17035, 143.005, -84.4204, 0.35)
pt3dadd(3.90033, 145.575, -84.4204, 0.35)
pt3dadd(2.14032, 146.545, -84.4204, 0.35)
pt3dadd(3.25031, 149.585, -87.3604, 0.35)
pt3dadd(1.78033, 151.145, -88.3404, 0.35)
pt3dadd(3.77032, 153.175, -92.2604, 0.35)
pt3dadd(4.35034, 155.065, -92.2604, 0.35)
pt3dadd(1.63031, 156.855, -92.2604, 0.35)
pt3dadd(3.04034, 160.625, -95.1904, 0.35)
pt3dadd(6.91034, 161.905, -95.1904, 0.35)
pt3dadd(8.81033, 161.045, -96.1704, 0.35)
pt3dadd(11.7703, 162.025, -98.1304, 0.35)
pt3dadd(14.9003, 160.395, -102.05, 0.35)
pt3dadd(15.6003, 163.565, -107.92, 0.35)
pt3dadd(18.1803, 164.575, -107.92, 0.35)
pt3dadd(15.8903, 166.065, -114.77, 0.35)
pt3dadd(13.0403, 168.415, -117.71, 0.35)
pt3dadd(13.2703, 168.155, -117.71, 0.35)
pt3dadd(10.8403, 165.725, -124.56, 0.35)
pt3dadd(12.0603, 167.735, -134.35, 0.35)
pt3dadd(14.2503, 167.135, -141.2, 0.35)
pt3dadd(14.1103, 170.815, -146.1, 0.35)
pt3dadd(16.0203, 173.495, -147.08, 0.35)
pt3dadd(19.3903, 174.735, -149.04, 0.35)
pt3dadd(20.8803, 175.895, -145.12, 0.35)
pt3dadd(20.1303, 176.505, -145.12, 0.35)
pt3dadd(16.9603, 178.165, -145.12, 0.35)
pt3dadd(16.1903, 180.925, -145.12, 0.35)
pt3dadd(17.8103, 184.505, -145.12, 0.35)
pt3dadd(19.8303, 185.175, -149.04, 0.35)
pt3dadd(22.0303, 187.165, -152.95, 0.35)
pt3dadd(26.0303, 188.305, -154.91, 0.35)
pt3dadd(30.8103, 191.205, -154.91, 0.35)
pt3dadd(34.3003, 191.385, -157.85, 0.35)
pt3dadd(37.3003, 192.125, -157.85, 0.35)
pt3dadd(36.4203, 193.545, -158.83, 0.35)
pt3dadd(40.6603, 195.955, -157.85, 0.35)
pt3dadd(44.4003, 196.095, -157.85, 0.35)
pt3dadd(48.8603, 198.755, -157.85, 0.35)
pt3dadd(55.0403, 200.505, -157.85, 0.35)
pt3dadd(59.6703, 200.855, -156.87, 0.35)
pt3dadd(64.0303, 202.055, -156.87, 0.35)
pt3dadd(66.3503, 203.655, -151.97, 0.35)
pt3dadd(69.0403, 204.065, -151.97, 0.35)
pt3dadd(70.0803, 202.985, -150.99, 0.35)
pt3dadd(73.4703, 204.025, -150.99, 0.35)
pt3dadd(77.8103, 206.505, -150.99, 0.35)
pt3dadd(81.7403, 211.255, -150.99, 0.35)
pt3dadd(82.1303, 212.445, -150.99, 0.35)
pt3dadd(85.7903, 216.065, -150.99, 0.35)
pt3dadd(85.6003, 217.525, -149.04, 0.35)
pt3dadd(88.7303, 218.075, -149.04, 0.35)
pt3dadd(91.9203, 220.025, -149.04, 0.35)
pt3dadd(94.8103, 224.345, -149.04, 0.35)
pt3dadd(97.7703, 228.205, -150.02, 0.35)
pt3dadd(101.05, 233.795, -150.02, 0.35)
pt3dadd(100.99, 237.765, -150.02, 0.35)
}
dend[84] {pt3dclear()
pt3dadd(3.3703, 136.075, -84.4204, 0.7)
pt3dadd(1.47034, 136.755, -85.4004, 0.7)
pt3dadd(-1.82965, 136.015, -86.3804, 0.7)
pt3dadd(-3.71967, 135.995, -87.3604, 0.7)
pt3dadd(-5.8197, 138.055, -82.4704, 0.35)
}
}
proc shape3d_17() {
dend[84] { pt3dadd(-9.41968, 140.395, -82.4704, 0.35)
pt3dadd(-11.0097, 142.595, -82.4704, 0.35)
pt3dadd(-10.7297, 142.395, -81.4904, 0.35)
pt3dadd(-12.3697, 144.065, -81.4904, 0.35)
pt3dadd(-14.9496, 144.725, -81.4904, 0.35)
pt3dadd(-17.0197, 147.445, -81.4904, 0.35)
pt3dadd(-18.2097, 150.755, -81.4904, 0.35)
pt3dadd(-21.3597, 154.365, -79.5303, 0.35)
pt3dadd(-23.1597, 158.645, -78.5504, 0.35)
pt3dadd(-25.2697, 161.405, -78.5504, 0.35)
pt3dadd(-25.0697, 161.695, -78.5504, 0.35)
pt3dadd(-24.9797, 166.885, -78.5504, 0.35)
pt3dadd(-24.2697, 171.725, -78.5504, 0.35)
pt3dadd(-23.4897, 176.835, -78.5504, 0.35)
pt3dadd(-23.6897, 177.535, -77.5704, 0.35)
pt3dadd(-25.7497, 179.115, -74.6304, 0.35)
pt3dadd(-24.8297, 181.795, -74.6304, 0.35)
pt3dadd(-25.4496, 183.535, -75.6104, 0.35)
pt3dadd(-27.0997, 185.625, -75.6104, 0.35)
pt3dadd(-28.8497, 187.065, -75.6104, 0.35)
pt3dadd(-30.6396, 189.755, -75.6104, 0.35)
pt3dadd(-31.1197, 192.155, -75.6104, 0.35)
pt3dadd(-33.1297, 194.605, -76.5904, 0.35)
pt3dadd(-32.8797, 196.935, -76.5904, 0.35)
pt3dadd(-34.7897, 199.265, -74.6304, 0.35)
pt3dadd(-33.9496, 201.735, -74.6304, 0.35)
}
dend[85] {pt3dclear()
pt3dadd(40.5803, 110.185, -88.3403, 0.35)
pt3dadd(45.0203, 111.195, -87.3603, 0.35)
pt3dadd(48.0903, 109.225, -87.3603, 0.35)
pt3dadd(51.2003, 107.395, -87.3603, 0.35)
pt3dadd(53.6503, 103.995, -87.3603, 0.35)
pt3dadd(57.1603, 101.425, -87.3603, 0.35)
pt3dadd(61.1603, 101.505, -91.2803, 0.35)
pt3dadd(65.7303, 102.325, -91.2803, 0.35)
pt3dadd(69.2203, 103.515, -91.2803, 0.35)
pt3dadd(71.9103, 102.845, -91.2803, 0.35)
pt3dadd(74.2103, 104.075, -91.2803, 0.35)
pt3dadd(77.5903, 102.035, -92.2603, 0.35)
pt3dadd(78.8903, 103.285, -92.2603, 0.35)
pt3dadd(81.8303, 102.905, -95.1903, 0.35)
pt3dadd(83.0103, 100.115, -96.1703, 0.35)
pt3dadd(84.7503, 97.3551, -96.1703, 0.35)
}
dend[86] {pt3dclear()
pt3dadd(40.5803, 110.185, -88.3403, 0.35)
pt3dadd(42.4703, 108.885, -88.3403, 0.35)
pt3dadd(42.0203, 106.625, -88.3403, 0.35)
pt3dadd(40.7603, 105.305, -93.2303, 0.35)
pt3dadd(40.0303, 105.075, -93.2303, 0.35)
pt3dadd(38.5203, 104.685, -93.2303, 0.35)
pt3dadd(36.5203, 103.535, -97.1503, 0.35)
pt3dadd(34.1903, 102.955, -99.1103, 0.35)
pt3dadd(32.4603, 104.425, -101.07, 0.35)
pt3dadd(29.9803, 106.505, -104, 0.35)
pt3dadd(28.6103, 104.855, -107.92, 0.35)
pt3dadd(27.1003, 103.075, -111.84, 0.35)
pt3dadd(23.4803, 102.885, -115.75, 0.35)
pt3dadd(21.5303, 101.395, -117.71, 0.35)
pt3dadd(18.6303, 102.755, -114.77, 0.35)
pt3dadd(18.6303, 104.235, -135.33, 0.35)
pt3dadd(17.2603, 104.165, -144.14, 0.35)
}
dend[87] {pt3dclear()
pt3dadd(143.72, 72.5851, 68.2997, 0.35)
pt3dadd(144.33, 75.8251, 71.2397, 0.35)
pt3dadd(147, 78.1851, 71.2397, 0.35)
pt3dadd(149.75, 79.4451, 70.2597, 0.35)
pt3dadd(151.95, 80.9851, 75.1496, 0.35)
pt3dadd(152.73, 80.8351, 75.1496, 0.35)
pt3dadd(155.56, 81.5051, 75.1496, 0.35)
pt3dadd(157.54, 82.8751, 76.1297, 0.35)
pt3dadd(157.54, 82.8751, 77.1096, 0.35)
pt3dadd(158.74, 84.0851, 78.0896, 0.35)
pt3dadd(161.11, 84.8251, 82.0096, 0.35)
pt3dadd(163.37, 87.1251, 83.9597, 0.35)
pt3dadd(163.33, 89.3151, 85.9196, 0.35)
pt3dadd(166.07, 89.9151, 87.8797, 0.35)
pt3dadd(168.26, 91.6551, 91.7997, 0.35)
pt3dadd(170.06, 93.3251, 94.7296, 0.35)
pt3dadd(171.12, 92.5951, 95.7097, 0.35)
pt3dadd(174.66, 94.6351, 97.6696, 0.35)
pt3dadd(174.27, 95.4651, 100.61, 0.35)
pt3dadd(177.81, 95.5451, 100.61, 0.35)
pt3dadd(180.54, 94.9151, 100.61, 0.35)
pt3dadd(180.76, 97.6151, 98.6496, 0.35)
}
dend[88] {pt3dclear()
pt3dadd(143.72, 72.5851, 68.2997, 0.35)
pt3dadd(146.47, 69.1251, 68.2997, 0.35)
pt3dadd(150.78, 69.2351, 69.2796, 0.35)
pt3dadd(153.48, 67.4651, 69.2796, 0.35)
pt3dadd(157.47, 65.7951, 72.2197, 0.35)
pt3dadd(161.46, 64.6051, 72.2197, 0.35)
pt3dadd(164.64, 63.5251, 72.2197, 0.35)
pt3dadd(167.57, 62.9751, 61.4496, 0.35)
pt3dadd(171.53, 62.7451, 61.4496, 0.35)
pt3dadd(174.53, 65.2051, 62.4296, 0.35)
pt3dadd(177.9, 66.9851, 62.4296, 0.35)
pt3dadd(179.82, 69.1551, 62.4296, 0.35)
pt3dadd(180.07, 70.8751, 61.4496, 0.35)
}
dend[89] {pt3dclear()
pt3dadd(113.18, 150.845, -24.7003, 0.7)
pt3dadd(114.64, 153.095, -29.6003, 0.7)
pt3dadd(113.48, 154.585, -29.6003, 0.7)
pt3dadd(115.48, 157.105, -29.6003, 0.7)
pt3dadd(115.14, 159.935, -29.6003, 0.7)
pt3dadd(117.67, 162.485, -29.6003, 0.7)
pt3dadd(117.84, 162.785, -29.6003, 0.7)
pt3dadd(119.52, 166.735, -29.6003, 0.7)
pt3dadd(121.24, 171.285, -33.5204, 0.7)
pt3dadd(124.48, 175.775, -33.5204, 0.7)
pt3dadd(126.24, 178.475, -33.5204, 0.7)
pt3dadd(128.59, 180.185, -33.5204, 0.7)
pt3dadd(131.46, 183.815, -34.4903, 0.7)
pt3dadd(133.82, 187.765, -34.4903, 0.7)
pt3dadd(137.75, 192.965, -34.4903, 0.7)
pt3dadd(139.83, 196.305, -36.4503, 0.7)
pt3dadd(141.28, 199.965, -36.4503, 0.7)
pt3dadd(141.55, 204.065, -37.4304, 0.7)
pt3dadd(144.1, 206.875, -37.4304, 0.7)
pt3dadd(144.37, 209.755, -37.4304, 0.7)
pt3dadd(145.85, 213.765, -37.4304, 0.7)
pt3dadd(146.48, 217.195, -37.4304, 0.7)
pt3dadd(148.62, 220.585, -37.4304, 0.7)
pt3dadd(150.24, 225.535, -37.4304, 0.7)
pt3dadd(152.4, 229.545, -38.4104, 0.35)
pt3dadd(153.74, 232.215, -37.4304, 0.35)
pt3dadd(153.58, 235.455, -37.4304, 0.35)
pt3dadd(156.35, 239.845, -37.4304, 0.35)
pt3dadd(158.47, 243.575, -37.4304, 0.35)
pt3dadd(161.12, 248.235, -40.3703, 0.35)
pt3dadd(164.97, 253.595, -40.3703, 0.35)
pt3dadd(166.18, 256.135, -41.3503, 0.35)
pt3dadd(168.43, 257.265, -41.3503, 0.35)
pt3dadd(168.83, 260.265, -41.3503, 0.35)
}
dend[90] {pt3dclear()
pt3dadd(113.18, 150.845, -24.7003, 1.04)
pt3dadd(115.71, 150.155, -21.7703, 1.04)
pt3dadd(117.31, 149.125, -21.7703, 1.04)
pt3dadd(118.51, 149.495, -21.7703, 1.04)
pt3dadd(120.56, 148.665, -21.7703, 1.04)
pt3dadd(123.73, 151.095, -25.6804, 1.04)
pt3dadd(126.05, 151.135, -25.6804, 1.04)
pt3dadd(127.96, 153.465, -25.6804, 1.04)
pt3dadd(131.38, 153.755, -25.6804, 1.04)
pt3dadd(134.28, 155.805, -25.6804, 1.04)
pt3dadd(135.48, 157.695, -25.6804, 1.04)
pt3dadd(139.11, 160.245, -25.6804, 0.7)
pt3dadd(141.64, 161.665, -25.6804, 0.7)
pt3dadd(143.41, 162.545, -25.6804, 0.7)
pt3dadd(147.21, 163.395, -25.6804, 0.7)
pt3dadd(149.77, 165.745, -25.6804, 0.7)
pt3dadd(152.52, 167.455, -25.6804, 0.7)
pt3dadd(155.97, 167.775, -25.6804, 0.7)
pt3dadd(157.21, 168.915, -29.6003, 0.7)
pt3dadd(157.88, 171.185, -29.6003, 0.7)
pt3dadd(157.9, 172.655, -29.6003, 0.7)
pt3dadd(157.6, 172.825, -29.6003, 0.7)
pt3dadd(159.56, 174.375, -35.4703, 0.7)
pt3dadd(162.1, 176.215, -37.4304, 0.7)
pt3dadd(162.22, 178.325, -37.4304, 0.7)
pt3dadd(165.47, 182.845, -38.4104, 0.7)
pt3dadd(168.22, 184.755, -38.4104, 0.7)
pt3dadd(168.62, 185.945, -40.3703, 0.7)
pt3dadd(171.2, 186.965, -41.3503, 0.7)
pt3dadd(171.66, 188.355, -41.3503, 0.7)
}
dend[91] {pt3dclear()
pt3dadd(-18.0397, 188.365, -19.8104, 1.04)
pt3dadd(-17.6897, 188.285, -19.8104, 1.04)
pt3dadd(-16.2297, 190.385, -20.7903, 1.04)
pt3dadd(-16.6797, 193.105, -20.7903, 1.04)
pt3dadd(-15.6996, 194.265, -23.7304, 1.04)
pt3dadd(-14.9797, 198.025, -23.7304, 1.04)
pt3dadd(-13.8597, 200.715, -29.6003, 1.04)
pt3dadd(-14.0397, 203.635, -29.6003, 1.04)
pt3dadd(-12.9797, 206.425, -29.6003, 1.04)
pt3dadd(-12.9797, 208.135, -31.5603, 1.04)
}
dend[92] {pt3dclear()
pt3dadd(-18.0397, 188.365, -19.8104, 0.35)
pt3dadd(-15.7297, 190.305, -16.8703, 0.35)
pt3dadd(-17.2897, 197.165, -16.8703, 0.35)
pt3dadd(-17.1197, 202.245, -15.8904, 0.35)
pt3dadd(-16.6996, 204.625, -15.8904, 0.35)
pt3dadd(-17.9496, 207.365, -15.8904, 0.35)
pt3dadd(-17.7597, 210.515, -15.8904, 0.35)
pt3dadd(-17.2697, 213.485, -15.8904, 0.35)
pt3dadd(-17.5197, 214.445, -15.8904, 0.35)
pt3dadd(-17.8397, 215.775, -15.8904, 0.35)
pt3dadd(-17.7497, 218.855, -15.8904, 0.35)
pt3dadd(-17.0297, 223.065, -16.8703, 0.35)
pt3dadd(-14.5397, 226.365, -16.8703, 0.35)
pt3dadd(-14.0897, 231.975, -16.8703, 0.35)
pt3dadd(-14.5897, 234.935, -10.0203, 0.35)
pt3dadd(-12.6697, 237.945, -11.0003, 0.35)
pt3dadd(-13.0297, 241.535, -8.06035, 0.35)
pt3dadd(-10.8797, 245.625, -4.15035, 0.35)
pt3dadd(-9.71967, 248.685, -7.08035, 0.35)
pt3dadd(-8.85968, 252.815, -7.08035, 0.35)
pt3dadd(-5.40967, 257.195, -7.08035, 0.35)
pt3dadd(-4.61969, 257.775, -8.06035, 0.35)
pt3dadd(-4.32965, 260.285, -8.06035, 0.35)
pt3dadd(-2.65967, 263.945, -8.06035, 0.35)
pt3dadd(-0.999695, 267.665, -8.06035, 0.35)
pt3dadd(-0.329651, 270.665, -8.06035, 0.35)
pt3dadd(-0.329651, 270.665, -7.08035, 0.35)
pt3dadd(0.510315, 273.755, -7.08035, 0.35)
pt3dadd(2.86035, 277.905, -7.08035, 0.35)
pt3dadd(3.97034, 281.575, -7.08035, 0.35)
pt3dadd(4.78033, 284.615, -7.08035, 0.35)
pt3dadd(6.33032, 286.945, -7.08035, 0.35)
}
}
proc shape3d_18() {
dend[92] { pt3dadd(6.88031, 290.035, -7.08035, 0.35)
pt3dadd(7.42032, 293.295, -6.10035, 0.35)
pt3dadd(7.65033, 298.245, -6.10035, 0.35)
pt3dadd(6.91034, 302.095, -6.10035, 0.35)
pt3dadd(6.74033, 305.645, -0.23035, 0.35)
pt3dadd(10.9103, 310.495, -0.23035, 0.35)
pt3dadd(13.7303, 315.445, 0.74965, 0.35)
pt3dadd(16.5803, 320.155, -0.23035, 0.35)
pt3dadd(18.5503, 322.215, -1.21035, 0.35)
}
dend[93] {pt3dclear()
pt3dadd(118.19, -145.405, -35.4703, 0.35)
pt3dadd(120, -142.375, -43.3103, 0.35)
pt3dadd(123.65, -140.755, -43.3103, 0.35)
pt3dadd(124.7, -138.265, -43.3103, 0.35)
pt3dadd(127.7, -138.455, -43.3103, 0.35)
pt3dadd(128.87, -138.175, -51.1404, 0.35)
pt3dadd(129.99, -136.565, -51.1404, 0.35)
pt3dadd(131.39, -135.405, -57.9904, 0.35)
pt3dadd(132.73, -134.505, -57.9904, 0.35)
pt3dadd(130.04, -132.445, -64.8403, 0.35)
pt3dadd(131, -131.635, -64.8403, 0.35)
pt3dadd(129.04, -130.185, -64.8403, 0.35)
pt3dadd(130.37, -128.225, -64.8403, 0.35)
pt3dadd(128.77, -127.395, -64.8403, 0.35)
pt3dadd(128.16, -124.405, -70.7204, 0.35)
pt3dadd(126.33, -123.175, -72.6803, 0.35)
pt3dadd(123.56, -123.845, -74.6304, 0.35)
pt3dadd(123.12, -127.375, -74.6304, 0.35)
pt3dadd(122.93, -131.005, -74.6304, 0.35)
pt3dadd(123.86, -132.405, -81.4904, 0.35)
pt3dadd(124.94, -132.775, -84.4203, 0.35)
pt3dadd(127.44, -134.055, -89.3203, 0.35)
pt3dadd(129.03, -133.005, -89.3203, 0.35)
pt3dadd(130.06, -130.515, -89.3203, 0.35)
pt3dadd(132.18, -128.455, -89.3203, 0.35)
pt3dadd(132.13, -125.515, -89.3203, 0.35)
pt3dadd(130.49, -123.045, -95.1904, 0.35)
pt3dadd(131, -120.195, -95.1904, 0.35)
pt3dadd(131.6, -118.145, -98.1304, 0.35)
pt3dadd(130.33, -115.345, -98.1304, 0.35)
pt3dadd(130.33, -115.345, -99.1104, 0.35)
pt3dadd(128.98, -116.045, -102.05, 0.35)
pt3dadd(125.76, -114.035, -105.96, 0.35)
pt3dadd(125.5, -112.715, -109.88, 0.35)
pt3dadd(123.52, -111.005, -112.81, 0.35)
pt3dadd(122.5, -110.355, -116.73, 0.35)
pt3dadd(124.07, -108.845, -127.5, 0.35)
pt3dadd(126.2, -109.165, -127.5, 0.35)
pt3dadd(128.99, -108.775, -127.5, 0.35)
pt3dadd(127.94, -107.535, -136.31, 0.35)
pt3dadd(127.3, -104.655, -137.29, 0.35)
pt3dadd(126.44, -103.465, -137.29, 0.35)
pt3dadd(127.38, -100.395, -143.16, 0.35)
pt3dadd(130.33, -99.9749, -143.16, 0.35)
pt3dadd(133.9, -102.945, -147.08, 0.35)
pt3dadd(133.9, -102.945, -148.06, 0.35)
}
dend[94] {pt3dclear()
pt3dadd(118.19, -145.405, -35.4703, 0.7)
pt3dadd(115.94, -144.175, -35.4703, 0.7)
pt3dadd(115.1, -142.745, -35.4703, 0.7)
pt3dadd(114.14, -142.095, -37.4304, 0.35)
pt3dadd(113.46, -140.345, -37.4304, 0.35)
pt3dadd(111.62, -139.155, -37.4304, 0.35)
pt3dadd(109.47, -137.685, -37.4304, 0.35)
pt3dadd(108.33, -134.755, -37.4304, 0.35)
pt3dadd(106.7, -132.625, -37.4304, 0.35)
pt3dadd(107.43, -130.565, -40.3703, 0.35)
pt3dadd(109.14, -127.715, -40.3703, 0.35)
pt3dadd(112.14, -124.915, -40.3703, 0.35)
pt3dadd(115.94, -122.545, -40.3703, 0.35)
pt3dadd(116.63, -121.475, -41.3503, 0.35)
pt3dadd(119.37, -121.165, -41.3503, 0.35)
pt3dadd(121.34, -119.115, -41.3503, 0.35)
pt3dadd(123.18, -119.245, -41.3503, 0.35)
pt3dadd(126.64, -118.685, -47.2203, 0.35)
pt3dadd(129.07, -116.585, -47.2203, 0.35)
pt3dadd(131.01, -113.845, -47.2203, 0.35)
pt3dadd(130.97, -111.535, -47.2203, 0.35)
pt3dadd(132.23, -108.805, -47.2203, 0.35)
pt3dadd(133.08, -104.835, -47.2203, 0.35)
pt3dadd(132.48, -101.285, -47.2203, 0.35)
pt3dadd(132.36, -96.9549, -47.2203, 0.35)
}
dend[95] {pt3dclear()
pt3dadd(318.8, 98.0751, 30.1196, 0.7)
pt3dadd(317.81, 102.695, 32.0797, 0.7)
pt3dadd(318.98, 107.085, 32.0797, 0.7)
pt3dadd(319.34, 113.055, 32.0797, 0.7)
}
dend[96] {pt3dclear()
pt3dadd(318.8, 98.0751, 30.1196, 0.7)
pt3dadd(322.46, 97.4951, 29.1397, 0.7)
pt3dadd(327.77, 100.145, 29.1397, 0.35)
pt3dadd(333.54, 104.645, 29.1397, 0.35)
pt3dadd(338.5, 111.015, 29.1397, 0.35)
pt3dadd(341.19, 114.865, 29.1397, 0.35)
pt3dadd(342.06, 119.295, 29.1397, 0.35)
pt3dadd(346.24, 124.005, 29.1397, 0.35)
pt3dadd(353.23, 133.715, 29.1397, 0.35)
pt3dadd(357.47, 142.125, 32.0797, 0.35)
pt3dadd(360.62, 147.565, 32.0797, 0.35)
pt3dadd(364.31, 151.935, 32.0797, 0.35)
pt3dadd(365.25, 151.255, 32.0797, 0.35)
pt3dadd(365.79, 156.465, 32.0797, 0.35)
}
dend[97] {pt3dclear()
pt3dadd(147.47, 51.9951, 143.68, 0.7)
pt3dadd(149.03, 52.4551, 142.7, 0.7)
pt3dadd(149.98, 55.2351, 141.72, 0.35)
pt3dadd(150.51, 56.8051, 145.64, 0.35)
pt3dadd(151.61, 56.9351, 146.62, 0.35)
pt3dadd(153.06, 59.8451, 149.56, 0.35)
pt3dadd(155.44, 63.4351, 149.56, 0.35)
pt3dadd(156.42, 65.9851, 153.47, 0.35)
pt3dadd(158.62, 67.9651, 158.37, 0.35)
pt3dadd(157.44, 69.0651, 158.37, 0.35)
pt3dadd(160.18, 69.2251, 162.28, 0.35)
pt3dadd(162.29, 68.1951, 163.26, 0.35)
pt3dadd(162.86, 70.4551, 167.18, 0.35)
pt3dadd(164.7, 68.3751, 169.14, 0.35)
pt3dadd(166.61, 68.4451, 169.14, 0.35)
pt3dadd(169.11, 67.6051, 171.09, 0.35)
pt3dadd(171.409, 68.866, 175, 0.35)
pt3dadd(171.409, 68.866, 175, 0.35)
pt3dadd(171.409, 68.866, 175, 0.35)
pt3dadd(171.409, 68.866, 175, 0.35)
pt3dadd(171.409, 68.866, 175, 0.35)
pt3dadd(171.409, 68.866, 175, 0.35)
pt3dadd(171.409, 68.866, 175, 0.35)
pt3dadd(171.409, 68.866, 175, 0.35)
pt3dadd(171.409, 68.866, 175, 0.35)
}
dend[98] {pt3dclear()
pt3dadd(147.47, 51.9951, 143.68, 0.35)
pt3dadd(145.43, 52.9951, 143.68, 0.35)
pt3dadd(146.21, 55.8351, 144.66, 0.35)
pt3dadd(145.19, 58.2851, 146.62, 0.35)
}
dend[99] {pt3dclear()
pt3dadd(89.6903, 40.8651, 91.7997, 0.7)
pt3dadd(90.5903, 40.6951, 90.8197, 0.7)
pt3dadd(91.7203, 40.8851, 90.8197, 0.7)
pt3dadd(91.1103, 39.1951, 91.7997, 0.7)
pt3dadd(88.4503, 35.9951, 95.7097, 0.7)
pt3dadd(86.9003, 37.2251, 101.59, 0.7)
pt3dadd(85.3503, 38.4251, 101.59, 0.7)
pt3dadd(85.2503, 40.2751, 107.46, 0.7)
pt3dadd(84.8603, 42.4451, 122.14, 1.04)
pt3dadd(87.0303, 45.7151, 122.14, 1.04)
pt3dadd(86.7403, 46.4951, 121.17, 1.04)
pt3dadd(85.4103, 49.7051, 124.1, 1.04)
pt3dadd(84.0803, 49.7551, 128.02, 1.04)
pt3dadd(84.1603, 51.8551, 129, 1.04)
pt3dadd(85.7003, 51.4351, 133.89, 1.04)
pt3dadd(86.6103, 54.2551, 133.89, 1.04)
pt3dadd(87.8003, 55.0751, 133.89, 1.04)
pt3dadd(88.5703, 53.0251, 133.89, 1.04)
pt3dadd(89.9803, 53.4651, 133.89, 0.7)
pt3dadd(90.9603, 55.2251, 133.89, 0.7)
pt3dadd(89.7103, 55.0651, 136.83, 0.7)
pt3dadd(88.6003, 56.8951, 136.83, 0.7)
pt3dadd(86.3803, 59.3151, 136.83, 0.7)
pt3dadd(88.1303, 61.7851, 141.72, 0.7)
pt3dadd(88.4403, 64.9251, 141.72, 0.35)
pt3dadd(87.1903, 66.5751, 141.72, 0.35)
pt3dadd(87.2003, 69.9451, 141.72, 0.35)
pt3dadd(87.8503, 72.0551, 146.62, 0.35)
pt3dadd(88.5703, 73.4651, 148.58, 0.35)
pt3dadd(87.8603, 76.0151, 148.58, 0.35)
pt3dadd(88.6203, 79.4851, 149.56, 0.35)
pt3dadd(90.5803, 80.6151, 149.56, 0.35)
pt3dadd(90.9703, 78.3051, 155.43, 0.35)
pt3dadd(88.5903, 76.5251, 155.43, 0.35)
pt3dadd(86.6803, 75.4851, 157.39, 0.35)
pt3dadd(89.1303, 72.7851, 164.24, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
}
}
proc shape3d_19() {
dend[99] { pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
pt3dadd(92.0177, 72.6752, 175, 0.35)
}
dend[100] {pt3dclear()
pt3dadd(89.6903, 40.8651, 91.7997, 0.7)
pt3dadd(89.6903, 42.0751, 89.8397, 0.7)
pt3dadd(91.7703, 42.5251, 89.8397, 0.7)
pt3dadd(93.1603, 43.4351, 89.8397, 0.7)
pt3dadd(94.9203, 45.9751, 89.8397, 0.7)
pt3dadd(97.8903, 47.1351, 89.8397, 0.7)
pt3dadd(99.5803, 49.9951, 91.7997, 0.7)
pt3dadd(101.48, 52.0251, 92.7697, 0.7)
pt3dadd(102.9, 52.4551, 95.7097, 0.35)
pt3dadd(102.68, 53.6051, 95.7097, 0.35)
pt3dadd(103.79, 56.0251, 96.6897, 0.35)
pt3dadd(105.1, 57.2651, 96.6897, 0.35)
pt3dadd(105.31, 58.5151, 100.61, 0.35)
pt3dadd(107.22, 61.1151, 101.59, 0.35)
pt3dadd(107.85, 65.3051, 102.56, 0.35)
pt3dadd(109.17, 67.3351, 102.56, 0.35)
pt3dadd(108.75, 69.3551, 102.56, 0.35)
pt3dadd(110.72, 72.3951, 102.56, 0.35)
pt3dadd(111.08, 75.5451, 109.42, 0.35)
pt3dadd(113.48, 81.0851, 109.42, 0.35)
pt3dadd(116.37, 85.2451, 113.33, 0.35)
pt3dadd(117.3, 88.7851, 113.33, 0.35)
pt3dadd(119.42, 91.5051, 117.25, 0.35)
pt3dadd(122.62, 98.6251, 118.23, 0.35)
pt3dadd(123.39, 103.385, 121.17, 0.35)
pt3dadd(125.73, 108.575, 124.1, 0.35)
pt3dadd(127.4, 113.545, 129.98, 0.35)
pt3dadd(126.46, 115.615, 129.98, 0.35)
pt3dadd(128.11, 117.505, 133.89, 0.35)
pt3dadd(130.14, 118.425, 137.81, 0.35)
pt3dadd(130.58, 120.175, 136.83, 0.35)
pt3dadd(130.74, 120.605, 136.83, 0.35)
pt3dadd(132, 121.975, 136.83, 0.35)
pt3dadd(131.8, 123.795, 137.81, 0.35)
pt3dadd(133.93, 124.625, 137.81, 0.35)
pt3dadd(135.2, 125.815, 141.72, 0.35)
pt3dadd(137.5, 127.005, 141.72, 0.35)
pt3dadd(139.13, 129.445, 141.72, 0.35)
pt3dadd(141.17, 133.205, 146.62, 0.35)
pt3dadd(141.09, 135.395, 149.56, 0.35)
pt3dadd(141.6, 138.585, 151.51, 0.35)
pt3dadd(141.83, 140.055, 156.41, 0.35)
pt3dadd(141.94, 142.265, 156.41, 0.35)
pt3dadd(142.44, 145.245, 165.22, 0.35)
pt3dadd(142.08, 147.055, 165.22, 0.35)
pt3dadd(142.76, 149.685, 165.22, 0.35)
pt3dadd(144.18, 149.025, 173.05, 0.35)
pt3dadd(144.32, 150.795, 173.05, 0.35)
pt3dadd(145.07, 155.695, 173.05, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
pt3dadd(145.256, 156.106, 175, 0.35)
}
dend[101] {pt3dclear()
pt3dadd(164.85, -46.1349, 146.62, 0.35)
pt3dadd(167.09, -49.3149, 144.66, 0.35)
pt3dadd(167.99, -50.3949, 143.68, 0.35)
pt3dadd(169.09, -51.3549, 148.58, 0.35)
pt3dadd(169.13, -53.7749, 148.58, 0.35)
pt3dadd(170.44, -58.4649, 152.49, 0.35)
pt3dadd(170.19, -59.6749, 153.47, 0.35)
pt3dadd(171.52, -60.9349, 153.47, 0.35)
pt3dadd(172.01, -63.2249, 154.45, 0.35)
pt3dadd(174.05, -67.2449, 161.3, 0.35)
pt3dadd(173.92, -69.9849, 161.3, 0.35)
pt3dadd(172.19, -72.7049, 162.28, 0.35)
pt3dadd(172.21, -72.3449, 162.28, 0.35)
pt3dadd(173.73, -75.6349, 165.22, 0.35)
pt3dadd(174.33, -79.7349, 166.2, 0.35)
pt3dadd(174.88, -83.7649, 166.2, 0.35)
}
dend[102] {pt3dclear()
pt3dadd(164.85, -46.1349, 146.62, 0.35)
pt3dadd(166.1, -46.2349, 147.6, 0.35)
pt3dadd(168.4, -44.2249, 147.6, 0.35)
pt3dadd(170.36, -41.9649, 152.49, 0.35)
pt3dadd(173.79, -39.2849, 152.49, 0.35)
pt3dadd(177.8, -37.1349, 154.45, 0.35)
pt3dadd(181.04, -36.5649, 156.41, 0.35)
pt3dadd(182.82, -37.2149, 159.35, 0.35)
pt3dadd(185.14, -35.7049, 163.26, 0.35)
pt3dadd(187.34, -35.7849, 166.2, 0.35)
pt3dadd(190.6, -35.5949, 168.16, 0.35)
pt3dadd(194.39, -33.8649, 169.14, 0.35)
pt3dadd(195.94, -32.0949, 173.05, 0.35)
pt3dadd(197.73, -33.2649, 173.05, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
}
}
proc shape3d_20() {
dend[102] { pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
pt3dadd(198.789, -33.6151, 175, 0.35)
}
dend[103] {pt3dclear()
pt3dadd(-111.18, -111.155, -149.04, 0.35)
pt3dadd(-114.24, -114.005, -146.1, 0.35)
pt3dadd(-116.16, -116.355, -146.1, 0.35)
pt3dadd(-117.9, -118.925, -146.1, 0.35)
pt3dadd(-119.52, -120.015, -146.1, 0.35)
pt3dadd(-122.28, -123.355, -150.99, 0.35)
pt3dadd(-124.81, -123.925, -150.99, 0.35)
pt3dadd(-127.75, -124.895, -150.99, 0.35)
pt3dadd(-129.59, -127.425, -150.99, 0.35)
pt3dadd(-130.77, -129.185, -150.99, 0.35)
pt3dadd(-133.84, -130.555, -150.99, 0.35)
pt3dadd(-134.25, -133.015, -150.99, 0.35)
pt3dadd(-137.67, -135.295, -150.99, 0.35)
pt3dadd(-137.58, -137.715, -150.99, 0.35)
pt3dadd(-137.3, -139.925, -157.85, 0.35)
pt3dadd(-138.86, -141.965, -157.85, 0.35)
pt3dadd(-139.95, -145.895, -161.76, 0.35)
pt3dadd(-140.88, -147.315, -163.72, 0.35)
pt3dadd(-142.1, -150.255, -163.72, 0.35)
pt3dadd(-141.76, -153.425, -167.64, 0.35)
pt3dadd(-140.98, -156.525, -167.64, 0.35)
pt3dadd(-142.4, -157.865, -166.66, 0.35)
pt3dadd(-143.83, -159.415, -166.66, 0.35)
pt3dadd(-141.73, -160.305, -166.66, 0.35)
pt3dadd(-143.46, -163.565, -166.66, 0.35)
pt3dadd(-142.97, -166.045, -173.51, 0.35)
pt3dadd(-142.97, -166.045, -174.49, 0.35)
pt3dadd(-144.192, -167.267, -175, 0.35)
pt3dadd(-144.192, -167.267, -175, 0.35)
pt3dadd(-144.192, -167.267, -175, 0.35)
pt3dadd(-144.192, -167.267, -175, 0.35)
pt3dadd(-144.192, -167.267, -175, 0.35)
pt3dadd(-144.192, -167.267, -175, 0.35)
pt3dadd(-144.192, -167.267, -175, 0.35)
pt3dadd(-144.192, -167.267, -175, 0.35)
pt3dadd(-144.192, -167.267, -175, 0.35)
pt3dadd(-144.192, -167.267, -175, 0.35)
pt3dadd(-144.192, -167.267, -175, 0.35)
pt3dadd(-144.192, -167.267, -175, 0.35)
pt3dadd(-144.192, -167.267, -175, 0.35)
pt3dadd(-144.192, -167.267, -175, 0.35)
pt3dadd(-144.192, -167.267, -175, 0.35)
pt3dadd(-144.192, -167.267, -175, 0.35)
pt3dadd(-144.192, -167.267, -175, 0.35)
pt3dadd(-144.192, -167.267, -175, 0.35)
pt3dadd(-144.192, -167.267, -175, 0.35)
pt3dadd(-144.192, -167.267, -175, 0.35)
pt3dadd(-144.192, -167.267, -175, 0.35)
}
dend[104] {pt3dclear()
pt3dadd(-111.18, -111.155, -149.04, 0.35)
pt3dadd(-112.95, -111.495, -150.02, 0.35)
pt3dadd(-116.74, -113.355, -150.02, 0.35)
pt3dadd(-119.31, -114.335, -150.02, 0.35)
pt3dadd(-121.91, -115.085, -154.91, 0.35)
pt3dadd(-123.67, -116.875, -154.91, 0.35)
pt3dadd(-123.61, -119.125, -154.91, 0.35)
pt3dadd(-126.72, -120.615, -157.85, 0.35)
pt3dadd(-128.94, -122.015, -157.85, 0.35)
pt3dadd(-130.67, -122.535, -163.72, 0.35)
pt3dadd(-130.67, -122.535, -164.7, 0.35)
pt3dadd(-132.08, -122.085, -164.7, 0.35)
pt3dadd(-133.86, -121.575, -171.55, 0.35)
pt3dadd(-135.21, -124.115, -171.55, 0.35)
pt3dadd(-137.54, -123.505, -171.55, 0.35)
pt3dadd(-139.53, -123.795, -171.55, 0.35)
pt3dadd(-141.2, -126.435, -171.55, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
pt3dadd(-143.717, -126.813, -175, 0.35)
}
dend[105] {pt3dclear()
pt3dadd(17.2603, 104.165, -144.14, 0.35)
pt3dadd(20.1003, 101.705, -142.18, 0.35)
pt3dadd(21.1803, 98.8551, -141.2, 0.35)
pt3dadd(23.0303, 94.9051, -141.2, 0.35)
pt3dadd(24.8303, 91.5651, -141.2, 0.35)
pt3dadd(25.7603, 88.9751, -141.2, 0.35)
pt3dadd(27.4203, 86.1851, -140.23, 0.35)
pt3dadd(27.6603, 84.4551, -140.23, 0.35)
pt3dadd(28.6903, 81.6651, -140.23, 0.35)
pt3dadd(29.8003, 79.8551, -140.23, 0.35)
pt3dadd(29.9103, 77.9251, -139.25, 0.35)
pt3dadd(32.5103, 77.8051, -139.25, 0.35)
pt3dadd(32.5303, 74.8351, -139.25, 0.35)
pt3dadd(32.8103, 69.7851, -139.25, 0.35)
pt3dadd(34.2903, 66.2251, -138.27, 0.35)
pt3dadd(33.2803, 62.8751, -140.23, 0.35)
pt3dadd(33.4103, 59.0751, -135.33, 0.35)
pt3dadd(35.9603, 56.6651, -135.33, 0.35)
pt3dadd(36.9903, 53.7051, -136.31, 0.35)
pt3dadd(36.4103, 50.4051, -136.31, 0.35)
pt3dadd(38.6003, 46.6251, -136.31, 0.35)
pt3dadd(39.8803, 44.3451, -136.31, 0.35)
pt3dadd(42.0603, 42.0051, -136.31, 0.35)
pt3dadd(43.0303, 37.6751, -136.31, 0.35)
}
dend[106] {pt3dclear()
pt3dadd(17.2603, 104.165, -144.14, 0.35)
pt3dadd(16.7503, 105.775, -144.14, 0.35)
pt3dadd(16.8203, 107.835, -144.14, 0.35)
pt3dadd(14.4903, 110.025, -147.08, 0.35)
pt3dadd(13.7603, 111.925, -147.08, 0.35)
pt3dadd(11.0603, 113.935, -147.08, 0.35)
pt3dadd(10.2903, 117.515, -147.08, 0.35)
pt3dadd(7.69034, 119.615, -147.08, 0.35)
pt3dadd(6.15033, 123.455, -147.08, 0.35)
pt3dadd(5.3703, 123.765, -147.08, 0.35)
pt3dadd(2.4903, 126.015, -147.08, 0.35)
pt3dadd(4.04034, 128.575, -150.99, 0.35)
pt3dadd(1.71033, 130.355, -150.99, 0.35)
pt3dadd(0.40033, 132.955, -150.99, 0.35)
pt3dadd(0.460327, 133.245, -151.97, 0.35)
pt3dadd(-0.489685, 134.265, -151.97, 0.35)
pt3dadd(-2.36969, 135.235, -151.97, 0.35)
pt3dadd(-4.13965, 137.135, -151.97, 0.35)
pt3dadd(-5.20966, 139.835, -151.97, 0.35)
pt3dadd(-7.80969, 139.945, -151.97, 0.35)
pt3dadd(-9.63965, 141.105, -151.97, 0.35)
pt3dadd(-11.7097, 141.705, -155.89, 0.35)
pt3dadd(-14.9697, 145.135, -155.89, 0.35)
pt3dadd(-15.1996, 147.475, -156.87, 0.35)
pt3dadd(-15.7197, 149.255, -156.87, 0.35)
pt3dadd(-16.7797, 151.265, -156.87, 0.35)
pt3dadd(-17.2297, 154.405, -157.85, 0.35)
pt3dadd(-18.2097, 156.975, -153.93, 0.35)
pt3dadd(-18.8397, 160.015, -153.93, 0.35)
pt3dadd(-20.3397, 162.915, -154.91, 0.35)
pt3dadd(-19.0097, 166.295, -158.83, 0.35)
pt3dadd(-18.8197, 169.005, -158.83, 0.35)
pt3dadd(-18.9997, 171.975, -158.83, 0.35)
pt3dadd(-20.2897, 173.925, -158.83, 0.35)
pt3dadd(-23.2897, 175.565, -159.81, 0.35)
pt3dadd(-25.6697, 177.165, -159.81, 0.35)
pt3dadd(-27.3597, 179.425, -159.81, 0.35)
pt3dadd(-31.0997, 179.285, -159.81, 0.35)
pt3dadd(-33.2397, 181.245, -161.76, 0.35)
pt3dadd(-36.1396, 182.435, -162.74, 0.35)
pt3dadd(-38.6597, 185.825, -162.74, 0.35)
pt3dadd(-42.4097, 189.155, -161.76, 0.35)
}
dend[107] {pt3dclear()
pt3dadd(171.66, 188.355, -41.3503, 0.7)
pt3dadd(173.33, 191.695, -43.3103, 0.7)
pt3dadd(175.99, 193.865, -44.2803, 0.7)
pt3dadd(179.31, 196.585, -44.2803, 0.7)
pt3dadd(180.71, 197.715, -44.2803, 0.35)
pt3dadd(183.12, 200.515, -44.2803, 0.35)
pt3dadd(185.71, 201.565, -44.2803, 0.35)
}
}
proc shape3d_21() {
dend[107] { pt3dadd(190.42, 205.785, -50.1604, 0.35)
pt3dadd(194.82, 210.595, -50.1604, 0.35)
pt3dadd(197.07, 210.005, -50.1604, 0.35)
pt3dadd(199.27, 210.635, -51.1404, 0.35)
pt3dadd(203.49, 210.535, -56.0303, 0.35)
pt3dadd(208.04, 209.585, -56.0303, 0.35)
pt3dadd(210.49, 209.855, -60.9303, 0.35)
pt3dadd(211.98, 208.675, -61.9104, 0.35)
pt3dadd(213.76, 210.895, -61.9104, 0.35)
pt3dadd(216.32, 212.785, -61.9104, 0.35)
pt3dadd(216.5, 214.705, -61.9104, 0.35)
pt3dadd(219.67, 215.205, -64.8403, 0.35)
pt3dadd(220.51, 218.085, -64.8403, 0.35)
pt3dadd(222.45, 217.575, -64.8403, 0.35)
}
dend[108] {pt3dclear()
pt3dadd(171.66, 188.355, -41.3503, 0.7)
pt3dadd(176.82, 190.695, -39.3904, 0.7)
pt3dadd(176.82, 190.695, -38.4104, 0.7)
pt3dadd(181.12, 190.875, -38.4104, 0.7)
pt3dadd(184.43, 189.425, -38.4104, 0.7)
}
dend[109] {pt3dclear()
pt3dadd(-12.9797, 208.135, -31.5603, 1.04)
pt3dadd(-13.6897, 210.025, -32.5403, 1.04)
pt3dadd(-14.8797, 212.955, -32.5403, 0.7)
pt3dadd(-15.7297, 216.735, -32.5403, 0.7)
pt3dadd(-17.0497, 220.875, -32.5403, 0.7)
pt3dadd(-16.9297, 222.745, -33.5204, 0.7)
pt3dadd(-18.3697, 224.535, -33.5204, 0.7)
pt3dadd(-19.2697, 225.785, -33.5204, 0.7)
pt3dadd(-20.2697, 228.265, -34.4903, 0.7)
pt3dadd(-20.7897, 231.625, -33.5204, 0.7)
pt3dadd(-20.4797, 231.445, -33.5204, 0.7)
pt3dadd(-21.7597, 233.545, -33.5204, 0.7)
pt3dadd(-22.7797, 234.795, -32.5403, 0.7)
pt3dadd(-24.9997, 236.745, -32.5403, 0.7)
pt3dadd(-26.4897, 239.795, -32.5403, 0.7)
pt3dadd(-27.0697, 241.615, -31.5603, 0.7)
pt3dadd(-29.6597, 247.845, -31.5603, 0.7)
pt3dadd(-31.8497, 250.485, -30.5803, 0.7)
pt3dadd(-32.9997, 251.415, -30.5803, 0.7)
pt3dadd(-33.3896, 253.665, -30.5803, 0.7)
pt3dadd(-35.6197, 254.795, -35.4703, 0.7)
pt3dadd(-36.4496, 254.985, -35.4703, 0.7)
pt3dadd(-39.1297, 255.695, -35.4703, 0.7)
pt3dadd(-39.6996, 256.435, -36.4503, 0.7)
}
dend[110] {pt3dclear()
pt3dadd(-12.9797, 208.135, -31.5603, 0.7)
pt3dadd(-9.65967, 209.365, -30.5803, 0.7)
pt3dadd(-6.60968, 208.765, -30.5803, 0.7)
pt3dadd(-4.83966, 212.455, -30.5803, 0.7)
pt3dadd(-4.2597, 213.465, -34.4903, 0.7)
pt3dadd(-3.63965, 215.965, -35.4703, 0.7)
pt3dadd(-5.47968, 221.895, -36.4503, 0.7)
pt3dadd(-5.55969, 222.015, -36.4503, 0.7)
pt3dadd(-5.36969, 225.155, -36.4503, 0.7)
pt3dadd(-5.47968, 228.475, -37.4304, 0.7)
pt3dadd(-4.77966, 229.705, -37.4304, 0.7)
}
dend[111] {pt3dclear()
pt3dadd(174.88, -83.7649, 166.2, 0.35)
pt3dadd(173.75, -87.5049, 165.22, 0.35)
pt3dadd(174.5, -91.2049, 164.24, 0.35)
pt3dadd(172.28, -94.8949, 164.24, 0.35)
pt3dadd(170.72, -96.0449, 164.24, 0.35)
pt3dadd(169.08, -98.8349, 164.24, 0.35)
pt3dadd(168.39, -101.445, 169.14, 0.35)
pt3dadd(166.55, -102.385, 169.14, 0.35)
pt3dadd(164.48, -104.605, 170.11, 0.35)
pt3dadd(163.58, -106.555, 170.11, 0.35)
pt3dadd(162.6, -108.105, 171.09, 0.35)
pt3dadd(160.58, -109.605, 172.07, 0.35)
pt3dadd(160.28, -112.255, 174.03, 0.35)
pt3dadd(160.082, -112.902, 175, 0.35)
pt3dadd(160.082, -112.902, 175, 0.35)
}
dend[112] {pt3dclear()
pt3dadd(174.88, -83.7649, 166.2, 0.35)
pt3dadd(176.3, -85.2049, 169.14, 0.35)
pt3dadd(180.62, -85.5649, 169.14, 0.35)
pt3dadd(183.48, -86.6649, 169.14, 0.35)
}
dend[113] {pt3dclear()
pt3dadd(43.0303, 37.6751, -136.31, 0.35)
pt3dadd(42.5903, 34.2151, -136.31, 0.35)
pt3dadd(42.0703, 31.6351, -137.29, 0.35)
pt3dadd(43.8703, 28.3751, -137.29, 0.35)
pt3dadd(44.8303, 25.8251, -132.39, 0.35)
pt3dadd(47.3303, 21.4551, -129.46, 0.35)
pt3dadd(47.0003, 17.7651, -127.5, 0.35)
pt3dadd(42.7703, 12.9851, -124.56, 0.35)
pt3dadd(42.3703, 8.40512, -116.73, 0.35)
pt3dadd(41.0603, 4.26512, -115.75, 0.35)
pt3dadd(42.3103, -0.79488, -115.75, 0.35)
pt3dadd(42.3103, -0.79488, -114.77, 0.35)
pt3dadd(41.0303, -3.66488, -112.81, 0.35)
pt3dadd(39.6003, -6.51488, -112.81, 0.35)
pt3dadd(41.4903, -10.1549, -109.88, 0.35)
}
dend[114] {pt3dclear()
pt3dadd(43.0303, 37.6751, -136.31, 0.35)
pt3dadd(46.1303, 36.8551, -136.31, 0.35)
pt3dadd(50.1903, 34.2451, -136.31, 0.35)
pt3dadd(53.4103, 29.7651, -136.31, 0.35)
}
dend[115] {pt3dclear()
pt3dadd(184.43, 189.425, -38.4104, 0.7)
pt3dadd(188.42, 191.865, -37.4304, 0.7)
pt3dadd(194.17, 192.495, -37.4304, 0.7)
pt3dadd(198.34, 190.315, -37.4304, 0.7)
pt3dadd(199.83, 189.065, -37.4304, 0.7)
pt3dadd(202.58, 188.145, -37.4304, 0.7)
pt3dadd(204.86, 186.495, -37.4304, 0.7)
pt3dadd(207.77, 185.245, -37.4304, 0.7)
pt3dadd(211.97, 183.145, -37.4304, 0.7)
pt3dadd(216.58, 181.745, -37.4304, 0.7)
pt3dadd(221.46, 180.115, -35.4703, 0.7)
pt3dadd(225.16, 177.995, -41.3503, 0.35)
pt3dadd(231.13, 180.015, -34.4903, 0.35)
pt3dadd(238.45, 181.265, -33.5204, 0.35)
pt3dadd(242.74, 183.425, -32.5403, 0.35)
pt3dadd(248.88, 184.235, -32.5403, 0.35)
pt3dadd(253.52, 185.095, -32.5403, 0.35)
pt3dadd(259.82, 186.775, -33.5204, 0.35)
pt3dadd(262.72, 184.485, -34.4903, 0.35)
pt3dadd(268.23, 185.485, -34.4903, 0.35)
pt3dadd(273.22, 187.675, -35.4703, 0.35)
pt3dadd(279.33, 186.815, -35.4703, 0.35)
pt3dadd(283.03, 185.325, -35.4703, 0.35)
pt3dadd(286.35, 185.875, -35.4703, 0.35)
pt3dadd(290.53, 182.535, -34.4903, 0.35)
pt3dadd(297.73, 185.075, -34.4903, 0.35)
pt3dadd(305.41, 188.375, -33.5204, 0.35)
pt3dadd(314.38, 192.025, -39.3904, 0.35)
pt3dadd(319.5, 190.195, -40.3703, 0.35)
pt3dadd(324.53, 192.555, -40.3703, 0.35)
pt3dadd(331.36, 196.695, -40.3703, 0.35)
pt3dadd(341.86, 198.605, -40.3703, 0.35)
pt3dadd(347.95, 198.365, -40.3703, 0.35)
pt3dadd(351.86, 196.525, -47.2203, 0.35)
pt3dadd(356.77, 196.865, -47.2203, 0.35)
pt3dadd(362.8, 192.645, -47.2203, 0.35)
}
dend[116] {pt3dclear()
pt3dadd(184.43, 189.425, -38.4104, 0.7)
pt3dadd(186.17, 187.205, -39.3904, 0.7)
pt3dadd(186.41, 185.285, -39.3904, 0.7)
pt3dadd(188.05, 182.925, -43.3103, 0.35)
pt3dadd(188.15, 178.745, -43.3103, 0.35)
pt3dadd(191.32, 176.945, -43.3103, 0.35)
pt3dadd(194.14, 174.525, -44.2803, 0.35)
pt3dadd(196.32, 172.475, -44.2803, 0.35)
pt3dadd(196.99, 171.525, -45.2603, 0.35)
}
dend[117] {pt3dclear()
pt3dadd(-39.6996, 256.435, -36.4503, 0.35)
pt3dadd(-37.6996, 257.555, -38.4104, 0.35)
pt3dadd(-34.3597, 257.085, -38.4104, 0.35)
pt3dadd(-33.8497, 257.545, -38.4104, 0.35)
pt3dadd(-32.9597, 258.875, -39.3904, 0.35)
pt3dadd(-31.9897, 256.235, -39.3904, 0.35)
pt3dadd(-29.2097, 258.335, -39.3904, 0.35)
pt3dadd(-26.7697, 257.415, -39.3904, 0.35)
pt3dadd(-26.9697, 257.115, -39.3904, 0.35)
pt3dadd(-22.3597, 255.115, -39.3904, 0.35)
pt3dadd(-18.7597, 255.215, -45.2603, 0.35)
pt3dadd(-14.2597, 256.825, -45.2603, 0.35)
pt3dadd(-12.5797, 254.145, -47.2203, 0.35)
pt3dadd(-7.36969, 252.485, -51.1404, 0.35)
pt3dadd(-4.0697, 249.415, -52.1203, 0.35)
pt3dadd(-2.7597, 251.105, -53.1003, 0.35)
pt3dadd(-0.919678, 250.975, -53.1003, 0.35)
pt3dadd(1.90033, 253.745, -53.1003, 0.35)
pt3dadd(1.71033, 255.845, -53.1003, 0.35)
pt3dadd(4.3103, 258.515, -54.0704, 0.35)
pt3dadd(6.02032, 259.685, -54.0704, 0.35)
pt3dadd(7.61032, 260.595, -57.0103, 0.35)
pt3dadd(9.89032, 263.115, -57.9904, 0.35)
pt3dadd(11.7403, 263.705, -57.9904, 0.35)
pt3dadd(16.4803, 263.125, -57.9904, 0.35)
pt3dadd(21.1003, 262.255, -60.9303, 0.35)
pt3dadd(23.2603, 260.265, -61.9104, 0.35)
pt3dadd(25.4203, 258.365, -62.8903, 0.35)
pt3dadd(28.4903, 257.115, -64.8403, 0.35)
pt3dadd(32.9103, 258.605, -64.8403, 0.35)
pt3dadd(35.2303, 256.425, -64.8403, 0.35)
pt3dadd(39.0803, 254.345, -64.8403, 0.35)
pt3dadd(41.9303, 252.135, -64.8403, 0.35)
pt3dadd(44.9903, 249.615, -64.8403, 0.35)
pt3dadd(47.8303, 246.945, -67.7803, 0.35)
pt3dadd(49.1903, 244.415, -67.7803, 0.35)
pt3dadd(51.2903, 242.875, -67.7803, 0.35)
pt3dadd(54.9003, 243.105, -67.7803, 0.35)
pt3dadd(58.5403, 240.205, -69.7404, 0.35)
pt3dadd(62.8203, 235.685, -69.7404, 0.35)
pt3dadd(67.1603, 233.765, -69.7404, 0.35)
pt3dadd(69.9303, 231.425, -69.7404, 0.35)
pt3dadd(73.4303, 229.465, -69.7404, 0.35)
pt3dadd(76.4503, 226.715, -69.7404, 0.35)
pt3dadd(80.8403, 224.195, -72.6803, 0.35)
}
dend[118] {pt3dclear()
pt3dadd(-39.6996, 256.435, -36.4503, 0.7)
pt3dadd(-40.3797, 256.865, -35.4703, 0.7)
pt3dadd(-42.4997, 258.075, -34.4903, 0.7)
pt3dadd(-43.4597, 258.625, -34.4903, 0.7)
pt3dadd(-45.9197, 262.055, -34.4903, 0.7)
pt3dadd(-47.1996, 261.365, -34.4903, 0.7)
pt3dadd(-49.0597, 261.615, -34.4903, 0.7)
pt3dadd(-50.1897, 261.035, -34.4903, 0.7)
pt3dadd(-52.4297, 262.715, -34.4903, 0.7)
pt3dadd(-54.0897, 261.215, -34.4903, 0.7)
pt3dadd(-57.5497, 263.585, -34.4903, 0.7)
}
dend[119] {pt3dclear()
pt3dadd(-4.77966, 229.705, -37.4304, 0.7)
pt3dadd(-5.77966, 234.545, -38.4104, 0.7)
pt3dadd(-6.85968, 239.015, -39.3904, 0.7)
pt3dadd(-8.08966, 244.025, -39.3904, 0.7)
pt3dadd(-7.34967, 246.465, -39.3904, 0.7)
pt3dadd(-7.11969, 249.795, -39.3904, 0.7)
pt3dadd(-6.73969, 252.105, -39.3904, 0.7)
}
}
proc shape3d_22() {
dend[119] { pt3dadd(-5.78967, 253.975, -39.3904, 0.7)
pt3dadd(-6.07965, 258.005, -42.3303, 0.7)
pt3dadd(-5.30969, 259.675, -43.3103, 0.7)
pt3dadd(-6.41968, 262.965, -43.3103, 0.7)
pt3dadd(-6.76965, 263.675, -43.3103, 0.35)
pt3dadd(-8.35968, 267.175, -43.3103, 0.35)
pt3dadd(-8.34967, 270.385, -43.3103, 0.35)
pt3dadd(-9.58966, 272.555, -43.3103, 0.35)
pt3dadd(-10.8097, 274.045, -43.3103, 0.35)
pt3dadd(-10.0597, 277.265, -43.3103, 0.35)
pt3dadd(-10.3597, 279.575, -43.3103, 0.35)
pt3dadd(-9.7597, 282.395, -43.3103, 0.35)
pt3dadd(-10.0097, 285.285, -43.3103, 0.35)
pt3dadd(-11.6497, 287.415, -43.3103, 0.35)
pt3dadd(-12.2997, 288.595, -43.3103, 0.35)
pt3dadd(-12.4797, 290.185, -43.3103, 0.35)
pt3dadd(-12.4496, 293.755, -43.3103, 0.35)
pt3dadd(-11.5097, 296.745, -46.2403, 0.35)
pt3dadd(-12.0897, 299.065, -46.2403, 0.35)
pt3dadd(-14.9496, 302.655, -46.2403, 0.35)
pt3dadd(-15.6697, 304.185, -46.2403, 0.35)
pt3dadd(-16.1097, 308.145, -47.2203, 0.35)
pt3dadd(-16.6497, 313.005, -47.2203, 0.35)
pt3dadd(-17.3797, 318.735, -51.1404, 0.35)
pt3dadd(-15.8997, 323.055, -51.1404, 0.35)
pt3dadd(-16.1697, 325.575, -51.1404, 0.35)
pt3dadd(-18.0497, 327.325, -56.0303, 0.35)
pt3dadd(-18.4597, 331.155, -56.0303, 0.35)
pt3dadd(-17.3896, 334.235, -56.0303, 0.35)
pt3dadd(-16.4397, 337.655, -56.0303, 0.35)
pt3dadd(-12.9397, 339.255, -56.0303, 0.35)
}
dend[120] {pt3dclear()
pt3dadd(-4.77966, 229.705, -37.4304, 0.7)
pt3dadd(-1.5697, 230.175, -33.5204, 0.7)
pt3dadd(-1.5697, 230.175, -32.5403, 0.7)
pt3dadd(1.36035, 230.065, -32.5403, 0.7)
pt3dadd(3.09033, 230.295, -32.5403, 0.7)
pt3dadd(5.35034, 231.455, -32.5403, 0.7)
pt3dadd(7.88031, 234.495, -31.5603, 0.7)
pt3dadd(10.2703, 235.165, -31.5603, 0.7)
pt3dadd(10.1003, 237.705, -31.5603, 0.7)
pt3dadd(10.5003, 239.105, -31.5603, 0.7)
pt3dadd(12.2303, 239.335, -31.5603, 0.7)
pt3dadd(12.4203, 239.985, -34.4903, 0.7)
pt3dadd(16.8703, 246.405, -35.4703, 0.7)
pt3dadd(19.7503, 250.055, -35.4703, 0.7)
pt3dadd(20.5403, 251.135, -40.3703, 0.7)
pt3dadd(23.0803, 257.015, -40.3703, 0.7)
pt3dadd(23.9703, 257.165, -40.3703, 0.7)
pt3dadd(25.1903, 259.715, -40.3703, 0.7)
pt3dadd(27.4503, 261.895, -40.3703, 0.7)
pt3dadd(27.0703, 263.115, -40.3703, 0.7)
pt3dadd(28.1703, 265.265, -40.3703, 0.7)
pt3dadd(28.4003, 267.085, -40.3703, 0.7)
pt3dadd(30.4003, 267.675, -43.3103, 0.7)
pt3dadd(30.7003, 268.505, -43.3103, 0.7)
pt3dadd(30.8203, 270.265, -47.2203, 0.7)
pt3dadd(29.1803, 271.125, -47.2203, 0.7)
pt3dadd(28.2103, 273.075, -47.2203, 0.7)
pt3dadd(30.9703, 274.305, -47.2203, 0.35)
pt3dadd(33.0803, 275.885, -47.2203, 0.35)
pt3dadd(32.9803, 277.395, -47.2203, 0.35)
pt3dadd(35.3103, 279.825, -51.1404, 0.35)
pt3dadd(36.1103, 283.275, -52.1203, 0.35)
pt3dadd(37.2703, 286.475, -52.1203, 0.35)
pt3dadd(38.9003, 287.095, -57.9904, 0.35)
pt3dadd(41.7003, 289.685, -57.9904, 0.35)
pt3dadd(45.3703, 291.165, -57.9904, 0.35)
}
dend[121] {pt3dclear()
pt3dadd(41.4903, -10.1549, -109.88, 0.35)
pt3dadd(37.8003, -12.7549, -110.86, 0.35)
pt3dadd(34.3403, -14.6449, -110.86, 0.35)
pt3dadd(33.3003, -17.9949, -110.86, 0.35)
pt3dadd(30.4603, -19.3049, -110.86, 0.35)
pt3dadd(27.6003, -20.2049, -105.96, 0.35)
pt3dadd(25.8703, -22.1749, -105.96, 0.35)
pt3dadd(23.6503, -25.5049, -104.98, 0.35)
pt3dadd(25.1603, -27.4849, -103.02, 0.35)
pt3dadd(24.1503, -28.4649, -102.05, 0.35)
pt3dadd(23.6403, -29.1049, -100.09, 0.35)
pt3dadd(23.4203, -28.8349, -100.09, 0.35)
}
dend[122] {pt3dclear()
pt3dadd(41.4903, -10.1549, -109.88, 0.35)
pt3dadd(43.8603, -14.8549, -108.9, 0.35)
pt3dadd(45.2803, -18.9249, -108.9, 0.35)
pt3dadd(47.5103, -22.2849, -108.9, 0.35)
pt3dadd(47.2803, -22.0249, -108.9, 0.35)
pt3dadd(48.2803, -25.9349, -108.9, 0.35)
pt3dadd(49.3003, -29.8249, -108.9, 0.35)
pt3dadd(49.4703, -33.0649, -108.9, 0.35)
pt3dadd(50.7103, -36.2949, -104, 0.35)
pt3dadd(53.6403, -40.2349, -104, 0.35)
pt3dadd(55.9803, -45.2949, -105.96, 0.35)
pt3dadd(55.9803, -45.2949, -106.94, 0.35)
}
dend[123] {pt3dclear()
pt3dadd(45.3703, 291.165, -57.9904, 0.35)
pt3dadd(46.2803, 294.665, -57.9904, 0.35)
pt3dadd(47.7303, 296.445, -57.9904, 0.35)
pt3dadd(48.5203, 296.365, -57.9904, 0.35)
pt3dadd(52.4303, 299.865, -57.9904, 0.35)
pt3dadd(55.9003, 302.455, -63.8603, 0.35)
pt3dadd(59.2003, 303.995, -63.8603, 0.35)
pt3dadd(61.0703, 302.925, -63.8603, 0.35)
pt3dadd(64.3803, 308.355, -64.8403, 0.35)
pt3dadd(67.2103, 310.025, -64.8403, 0.35)
pt3dadd(69.6903, 313.365, -64.8403, 0.35)
pt3dadd(71.8303, 316.745, -64.8403, 0.35)
pt3dadd(72.4603, 318.895, -64.8403, 0.35)
pt3dadd(74.1203, 320.795, -64.8403, 0.35)
pt3dadd(76.4003, 322.265, -64.8403, 0.35)
pt3dadd(76.2603, 324.965, -64.8403, 0.35)
pt3dadd(78.3803, 328.505, -64.8403, 0.35)
pt3dadd(83.1503, 331.425, -64.8403, 0.35)
pt3dadd(85.7103, 332.495, -69.7404, 0.35)
pt3dadd(88.8203, 332.535, -71.7003, 0.35)
pt3dadd(89.1803, 335.935, -73.6503, 0.35)
pt3dadd(94.2003, 336.685, -73.6503, 0.35)
pt3dadd(95.7203, 337.985, -73.6503, 0.35)
pt3dadd(97.0703, 339.855, -73.6503, 0.35)
pt3dadd(99.4703, 341.245, -73.6503, 0.35)
pt3dadd(101.52, 340.535, -73.6503, 0.35)
pt3dadd(104.46, 340.225, -73.6503, 0.35)
pt3dadd(104.46, 340.225, -74.6304, 0.35)
pt3dadd(104.84, 342.345, -74.6304, 0.35)
pt3dadd(107.12, 344.615, -77.5703, 0.35)
pt3dadd(106.86, 346.965, -78.5504, 0.35)
pt3dadd(110.67, 349.285, -78.5504, 0.35)
}
dend[124] {pt3dclear()
pt3dadd(45.3703, 291.165, -57.9904, 0.35)
pt3dadd(47.5803, 292.245, -57.9904, 0.35)
pt3dadd(49.4903, 293.975, -57.9904, 0.35)
pt3dadd(53.6903, 292.355, -57.9904, 0.35)
pt3dadd(58.9403, 291.185, -57.9904, 0.35)
pt3dadd(62.5203, 289.315, -58.9703, 0.35)
pt3dadd(63.6803, 287.105, -58.9703, 0.35)
pt3dadd(66.3903, 287.345, -58.9703, 0.35)
pt3dadd(68.6903, 289.795, -58.9703, 0.35)
pt3dadd(70.7703, 290.535, -58.9703, 0.35)
pt3dadd(73.4003, 290.055, -57.9904, 0.35)
pt3dadd(77.2303, 290.605, -57.9904, 0.35)
}
}
proc basic_shape() {
shape3d_1()
shape3d_2()
shape3d_3()
shape3d_4()
shape3d_5()
shape3d_6()
shape3d_7()
shape3d_8()
shape3d_9()
shape3d_10()
shape3d_11()
shape3d_12()
shape3d_13()
shape3d_14()
shape3d_15()
shape3d_16()
shape3d_17()
shape3d_18()
shape3d_19()
shape3d_20()
shape3d_21()
shape3d_22()
}
objref all, somatic, basal , AHIS
proc subsets() { local i
objref all, somatic, basal, AHIS
all = new SectionList()
soma all.append()
for i=0, 124 dend[i] all.append()
ah all.append()
iseg all.append()
somatic = new SectionList()
soma somatic.append()
// axonal = new SectionList()
// axon axonal.append()
basal = new SectionList()
for i=0, 124 dend[i] basal.append()
AHIS = new SectionList()
ah AHIS.append()
iseg AHIS.append()
}
proc parameters() {
celsius = 36 // Temperature at which simulations are performed
v_init = -70 // mV, resting membrane potential
}
proc geom() {
geom_nseg()
}
external lambda_f
proc geom_nseg() {
forsec all { nseg = int((L/(0.1*lambda_f(100))+.999)/2)*2 + 1 }
}
proc biophys() {
RM = 833
forsec all {
Ra = 70
cm = 1.0
}
soma {
insert pas
g_pas = 1.0/(RM)
e_pas = -70
insert NafSm
gnabar_NafSm = 0.06
ena_NafSm = 50
amA_NafSm = 14+17.5
bmA_NafSm = 38+17.5
theta_h_NafSm = 55-17.5
insert KdrSm
gkdrbar_KdrSm = 0.55//0.43
ek_KdrSm = -80
theta_n_KdrSm = 28-17.5
tn_KdrSm = 5
insert CaSm2
gSK3bar_CaSm2 = 0//0.0481 // SK3 conductance
gSK2bar_CaSm2 = 0.00855 // SK2 conductance
gcanbar_CaSm2 = 0.035 // Calcium conductance
gcalbar_CaSm2 = 0
ek_CaSm2 = ek_KdrSm
// Calcium dynamics
f_CaSm2 = 0.025 // speed 0.01
alpha_CaSm2 = 0.4 // current to Cai rate 0.5
kca_CaSm2 = 12//0.25 // buffering
// SK3 dynamics ( do not touch these)
kd3_CaSm2 = 0.001 // half [Cai]
nexp3_CaSm2 = 1.4 //2
S3_tau_CaSm2 = 11 //(ms)
// SK2 dynamics
kd2_CaSm2 = 0.001/2 // half [Cai]
nexp2_CaSm2 = 4//1.5
S2_tau_CaSm2 = 15.7//49.8 //(ms)
// N-type Calcium channel dynamics
tmn_CaSm2 = 5 //(ms)
thetamn_CaSm2 = 22-16.5 //(mV)
thn_CaSm2 = 40 //(ms)
thetahn_CaSm2 = 40-16.5 //(mV)
}
forsec basal {
insert pas
g_pas = 1.0/(RM*50)
e_pas = -70
insert info // to save the electronic distance
}
forsec AHIS {
insert pas
g_pas = 1.0/(RM)
e_pas = -70
insert NafIs
gnabar_NafIs = 0.36 //0.45
ena_NafIs = 50
amA_NafIs = 10+17.5
bmA_NafIs = 30+17.5
theta_h_NafIs = 55-17.5
insert KdrIs
gkbar_KdrIs = 0.2 //0.355
ek_KdrIs = -80
theta_n_KdrIs = 28-17.5
insert NapIs
gnapbar_NapIs = 4.0571e-005
ena_NapIs = 50
ampB_NapIs = 38.4-17.5
bmpB_NapIs = 42.7-17.5
}
}
endtemplate Amandola_MN3_sliced