begintemplate celltemplate
public apcounter,apvec,nmdaGV,ampaGV,gabaGV
public all,dends,tcdends,ccdends,ccsyn,tcsyn,ccnetcon,tcnetcon,soma,dend,apic,names
public Esyn,Enetcon,Isyn,Inetcon,Esourse,numdend,Vvec,spikevec,segdends
objref Esyn,Enetcon[2],Isyn,Inetcon,Esourse[2],names
objref apcounter,apvec,nil,Vvec[2],spikevec[2],nmdaGV[2],ampaGV[2],gabaGV[2]
proc celldef() {
topol()
}
create soma, dend[33], apic[19]
proc topol() { local i
for i = 0, 1 connect dend[i](0), soma(0)
for i = 2, 3 connect dend[i](0), dend[i-1](1)
connect dend[4](0), dend[2](1)
connect dend[5](0), dend[1](1)
for i = 6, 7 connect dend[i](0), dend[5](1)
for i = 8, 9 connect dend[i](0), soma(0)
for i = 10, 12 connect dend[i](0), dend[i-1](1)
connect dend[13](0), dend[11](1)
connect dend[14](0), dend[10](1)
for i = 15, 16 connect dend[i](0), dend[14](1)
connect dend[17](0), dend[9](1)
connect dend[18](0), soma(0)
for i = 19, 20 connect dend[i](0), dend[18](1)
connect dend[21](0), soma(0)
for i = 22, 24 connect dend[i](0), dend[i-1](1)
connect dend[25](0), dend[23](1)
connect dend[26](0), dend[22](1)
connect dend[27](0), dend[21](1)
connect dend[28](0), soma(0)
for i = 29, 30 connect dend[i](0), dend[28](1)
for i = 31, 32 connect dend[i](0), dend[30](1)
connect apic(0), soma(0)
for i = 1, 3 connect apic[i](0), apic[i-1](1)
connect apic[4](0), apic[2](1)
for i = 5, 6 connect apic[i](0), apic[4](1)
connect apic[7](0), apic[1](1)
connect apic[8](0), apic(1)
for i = 9, 11 connect apic[i](0), apic[i-1](1)
connect apic[12](0), apic[10](1)
connect apic[13](0), apic[9](1)
connect apic[14](0), apic[8](1)
for i = 15, 16 connect apic[i](0), apic[i-1](1)
connect apic[17](0), apic[15](1)
connect apic[18](0), apic[14](1)
basic_shape()
}
proc shape3d_1() {
soma {pt3dclear()
pt3dadd(15.654, -70.772, -425.293, 9.832)
pt3dadd(11.29, -83.46, -424.19, 5.34)
}
dend {pt3dclear()
pt3dadd(15.654, -70.772, -425.293, 1.97)
pt3dadd(15.03, -79.94, -412.99, 1.97)
pt3dadd(14.86, -82.76, -412.99, 1.97)
pt3dadd(14.86, -83.13, -412.99, 1.97)
pt3dadd(14.98, -83.25, -412.99, 1.97)
pt3dadd(17.29, -84.77, -412.99, 1.97)
pt3dadd(17.66, -84.9, -412.99, 1.97)
pt3dadd(20.6, -85.44, -412.99, 1.97)
pt3dadd(20.72, -85.57, -412.99, 1.97)
pt3dadd(25.26, -86.5, -412.99, 1.97)
pt3dadd(25.87, -86.64, -412.99, 1.97)
pt3dadd(29.81, -86.83, -412.99, 1.97)
pt3dadd(32.02, -86.62, -412.94, 1.97)
pt3dadd(35.62, -85.33, -412.99, 1.97)
pt3dadd(36.61, -84.98, -412.94, 1.97)
pt3dadd(37.85, -84.27, -408.59, 1.97)
pt3dadd(38.1, -84.15, -408.39, 1.97)
pt3dadd(41.58, -82, -406.34, 1.72)
pt3dadd(41.71, -81.88, -406.34, 1.72)
pt3dadd(42.72, -80.42, -406.34, 1.72)
pt3dadd(42.84, -80.42, -406.34, 1.72)
pt3dadd(43.48, -78.71, -406.39, 1.72)
pt3dadd(43.61, -78.72, -406.44, 1.72)
}
dend[1] {pt3dclear()
pt3dadd(15.654, -70.772, -425.293, 1.85)
pt3dadd(19.99, -79.39, -427.49, 1.85)
pt3dadd(20.93, -81.86, -427.49, 1.85)
pt3dadd(21.05, -82.11, -427.49, 1.85)
pt3dadd(23.09, -84.85, -427.49, 1.85)
pt3dadd(23.33, -85.1, -427.44, 1.85)
pt3dadd(23.45, -85.35, -427.44, 1.85)
pt3dadd(24.52, -87.7, -427.49, 1.85)
pt3dadd(24.51, -88.32, -427.49, 1.85)
pt3dadd(24.2, -91.63, -426.39, 1.6)
pt3dadd(24.2, -91.87, -426.39, 1.6)
pt3dadd(25, -95.45, -426.39, 1.6)
pt3dadd(24.99, -95.82, -426.39, 1.6)
pt3dadd(25.04, -99.88, -426.39, 1.6)
pt3dadd(25.16, -100.37, -426.34, 1.6)
pt3dadd(25.12, -102.34, -425.19, 1.6)
pt3dadd(25.24, -102.58, -425.19, 1.6)
pt3dadd(25.61, -102.59, -425.19, 1.6)
}
dend[2] {pt3dclear()
pt3dadd(25.61, -102.59, -425.19, 1.6)
pt3dadd(26.9, -104.17, -425.64, 1.6)
pt3dadd(27.37, -105.04, -425.64, 1.6)
pt3dadd(28.46, -106.41, -425.64, 1.6)
pt3dadd(30.15, -107.92, -425.64, 1.6)
pt3dadd(31.13, -108.55, -425.64, 1.6)
pt3dadd(32.1, -108.93, -425.64, 1.6)
pt3dadd(32.23, -108.94, -425.64, 1.6)
pt3dadd(36.13, -110.97, -425.64, 1.35)
pt3dadd(36.61, -111.47, -425.64, 1.35)
pt3dadd(38.2, -112.24, -425.64, 1.35)
pt3dadd(41.01, -113.51, -425.64, 1.35)
pt3dadd(42.36, -113.78, -425.64, 1.35)
pt3dadd(45.29, -114.82, -425.64, 1.35)
pt3dadd(46.02, -115.2, -425.64, 1.35)
pt3dadd(47.61, -116.21, -425.59, 1.35)
pt3dadd(48.46, -116.72, -425.54, 1.35)
pt3dadd(50.05, -117.48, -427.54, 1.35)
pt3dadd(51.77, -117.63, -427.54, 1.35)
pt3dadd(52.75, -117.65, -427.54, 1.35)
pt3dadd(53.12, -117.53, -427.54, 1.35)
pt3dadd(53.98, -117.55, -427.79, 1.35)
pt3dadd(55.33, -118.06, -428.49, 1.35)
pt3dadd(56.31, -118.45, -428.69, 1.35)
pt3dadd(57.41, -118.84, -428.94, 1.35)
pt3dadd(57.9, -118.97, -429.14, 1.35)
pt3dadd(58.02, -118.97, -429.14, 1.35)
pt3dadd(62.19, -119.54, -429.14, 0.98)
pt3dadd(63.54, -120.05, -429.14, 0.98)
pt3dadd(65.5, -120.45, -429.14, 0.98)
pt3dadd(73.25, -120.59, -428.59, 0.98)
pt3dadd(73.86, -120.85, -428.59, 0.98)
pt3dadd(74.6, -120.86, -428.59, 0.98)
pt3dadd(75.46, -121.24, -427.99, 0.98)
pt3dadd(75.95, -121.37, -427.69, 0.98)
pt3dadd(76.07, -121.5, -427.69, 0.98)
pt3dadd(78.5, -123.14, -426.94, 0.74)
pt3dadd(80.45, -124.16, -426.94, 0.74)
pt3dadd(82.78, -124.69, -426.94, 0.74)
pt3dadd(85.36, -124.86, -426.84, 0.74)
pt3dadd(86.47, -125, -426.79, 0.74)
pt3dadd(87.33, -125.14, -426.79, 0.74)
pt3dadd(88.06, -125.39, -426.79, 0.74)
pt3dadd(88.54, -125.77, -426.79, 0.74)
pt3dadd(89.03, -126.03, -426.79, 0.74)
pt3dadd(89.76, -126.53, -426.79, 0.74)
pt3dadd(90.25, -127.03, -426.79, 0.74)
pt3dadd(90.37, -127.16, -426.79, 0.74)
pt3dadd(90.49, -127.4, -426.79, 0.74)
}
dend[3] {pt3dclear()
pt3dadd(90.49, -127.4, -426.79, 0.74)
pt3dadd(91.99, -128.23, -426.64, 0.25)
pt3dadd(93.33, -128.5, -429.99, 1.11)
pt3dadd(94.08, -128.14, -429.99, 1.11)
pt3dadd(94.58, -127.78, -429.99, 1.11)
pt3dadd(95.07, -127.67, -429.99, 1.11)
pt3dadd(95.45, -127.43, -429.99, 1.11)
pt3dadd(96.43, -127.33, -429.99, 1.11)
pt3dadd(99.26, -127.25, -429.99, 1.11)
pt3dadd(102.21, -127.55, -429.99, 1.11)
pt3dadd(105.53, -127.61, -429.99, 1.11)
pt3dadd(107.13, -127.76, -429.99, 1.11)
pt3dadd(108.61, -127.78, -429.99, 1.11)
pt3dadd(111.22, -126.36, -433.94, 0.74)
pt3dadd(113.79, -127.14, -433.94, 0.74)
pt3dadd(115.51, -127.17, -433.94, 0.74)
pt3dadd(117.38, -125.6, -433.94, 0.62)
pt3dadd(117.52, -125.11, -433.94, 0.62)
pt3dadd(117.89, -124.63, -434.49, 0.62)
pt3dadd(118.4, -124.02, -435.09, 0.62)
pt3dadd(118.52, -123.9, -435.19, 0.62)
pt3dadd(119.27, -123.18, -437.49, 0.62)
pt3dadd(119.77, -122.94, -437.69, 0.62)
pt3dadd(120.88, -122.71, -437.69, 0.62)
pt3dadd(121.62, -122.48, -437.69, 0.62)
pt3dadd(122.73, -122.5, -437.69, 0.62)
pt3dadd(124.58, -122.41, -437.69, 0.62)
pt3dadd(126.79, -122.45, -437.69, 0.62)
pt3dadd(127.65, -122.83, -437.69, 0.62)
pt3dadd(128.87, -123.47, -437.69, 0.62)
pt3dadd(129.6, -123.97, -437.69, 0.62)
pt3dadd(130.08, -124.23, -437.69, 0.62)
pt3dadd(133.27, -124.9, -437.69, 0.62)
pt3dadd(136.1, -124.95, -437.69, 0.62)
pt3dadd(137.94, -125.22, -437.69, 0.62)
pt3dadd(139.41, -125.86, -437.69, 0.62)
pt3dadd(140.63, -126.38, -437.69, 0.62)
pt3dadd(141.61, -126.52, -437.69, 0.62)
pt3dadd(142.85, -126.29, -437.74, 0.62)
pt3dadd(143.72, -125.82, -438.09, 0.62)
pt3dadd(143.84, -125.57, -438.94, 0.62)
pt3dadd(144.21, -125.58, -438.94, 0.62)
pt3dadd(147.04, -125.63, -439.29, 0.62)
pt3dadd(148.14, -126.02, -439.34, 0.62)
pt3dadd(154.01, -128.58, -441.74, 0.62)
pt3dadd(154.25, -128.7, -441.74, 0.62)
pt3dadd(154.37, -128.71, -441.74, 0.62)
pt3dadd(158.78, -129.89, -440.74, 0.62)
}
dend[4] {pt3dclear()
pt3dadd(90.49, -127.4, -426.79, 0.74)
pt3dadd(90.95, -128.76, -426.69, 0.74)
pt3dadd(90.95, -129.01, -426.69, 0.74)
pt3dadd(91.55, -129.63, -426.69, 0.74)
pt3dadd(92.65, -130.27, -426.69, 0.74)
pt3dadd(93.38, -130.65, -426.69, 0.74)
pt3dadd(94.6, -131.28, -426.69, 0.74)
pt3dadd(95.45, -131.79, -426.69, 0.74)
pt3dadd(96.43, -132.3, -426.69, 0.74)
pt3dadd(97.53, -132.93, -426.69, 0.74)
pt3dadd(98.01, -133.19, -426.69, 0.74)
pt3dadd(99.36, -133.95, -426.69, 0.74)
pt3dadd(100.21, -134.45, -426.69, 0.74)
pt3dadd(100.82, -134.83, -426.69, 0.74)
pt3dadd(101.92, -135.34, -426.69, 0.74)
pt3dadd(102.4, -135.6, -426.69, 0.74)
pt3dadd(102.88, -136.34, -426.69, 0.74)
pt3dadd(103.73, -137.22, -426.69, 0.74)
pt3dadd(104.82, -138.1, -426.69, 0.74)
pt3dadd(105.79, -139.22, -426.69, 0.74)
pt3dadd(106.74, -140.83, -426.69, 0.74)
pt3dadd(106.99, -140.96, -426.69, 0.74)
pt3dadd(112.24, -143.16, -427.94, 0.74)
pt3dadd(113.7, -144.05, -427.89, 0.74)
pt3dadd(114.56, -144.55, -427.89, 0.74)
pt3dadd(115.29, -144.93, -427.89, 0.74)
pt3dadd(116.39, -145.57, -427.89, 0.74)
pt3dadd(119.56, -147.22, -427.89, 0.74)
pt3dadd(121.01, -148.35, -427.89, 0.74)
pt3dadd(121.62, -148.85, -427.89, 0.74)
pt3dadd(123.08, -149.99, -427.89, 0.74)
pt3dadd(124.17, -150.87, -427.89, 0.74)
pt3dadd(125.26, -151.87, -428.59, 0.74)
pt3dadd(125.87, -152.37, -429.09, 0.74)
pt3dadd(126.11, -152.5, -429.29, 0.74)
pt3dadd(126.71, -153.12, -429.54, 0.74)
pt3dadd(127.57, -153.63, -429.44, 0.74)
pt3dadd(129.28, -154.03, -428.34, 0.74)
pt3dadd(132.23, -154.2, -427.59, 0.74)
pt3dadd(132.97, -154.34, -426.74, 0.74)
pt3dadd(133.58, -154.59, -426.24, 0.74)
pt3dadd(134.32, -154.73, -426.09, 0.74)
pt3dadd(135.17, -155.24, -425.74, 0.74)
pt3dadd(136.88, -156, -425.74, 0.74)
pt3dadd(137.85, -156.51, -425.69, 0.74)
pt3dadd(140.3, -157.54, -424.19, 0.74)
pt3dadd(143.83, -159.44, -424.19, 0.74)
pt3dadd(144.93, -159.95, -424.19, 0.74)
pt3dadd(146.63, -161.33, -423.89, 0.74)
pt3dadd(147.24, -161.96, -425.59, 0.74)
pt3dadd(147.6, -162.21, -425.89, 0.74)
pt3dadd(148.09, -162.59, -426.24, 0.74)
pt3dadd(148.7, -162.84, -426.24, 0.74)
pt3dadd(149.67, -163.48, -426.24, 0.74)
pt3dadd(150.16, -163.85, -426.24, 0.74)
pt3dadd(151.49, -164.74, -426.24, 0.74)
pt3dadd(152.59, -165.49, -426.24, 0.74)
pt3dadd(153.44, -166.24, -426.24, 0.74)
pt3dadd(154.41, -167, -426.24, 0.74)
pt3dadd(155.38, -167.63, -426.24, 0.74)
}
}
proc shape3d_2() {
dend[4] { pt3dadd(156.96, -168.76, -426.24, 0.74)
pt3dadd(157.08, -169.01, -426.24, 0.74)
pt3dadd(160.49, -170.91, -426.24, 0.49)
pt3dadd(162.44, -172.05, -426.29, 0.49)
pt3dadd(163.54, -172.69, -426.24, 0.49)
pt3dadd(164.51, -173.32, -426.29, 0.49)
pt3dadd(166.21, -174.58, -426.29, 0.49)
pt3dadd(166.94, -175.08, -426.29, 0.49)
pt3dadd(167.31, -175.46, -426.29, 0.49)
pt3dadd(173.92, -184.54, -427.99, 0.25)
pt3dadd(174.04, -184.67, -427.99, 0.25)
pt3dadd(176.77, -188.64, -430.54, 0.25)
}
dend[5] {pt3dclear()
pt3dadd(25.61, -102.59, -425.19, 1.6)
pt3dadd(24.72, -104.29, -425.04, 1.11)
pt3dadd(24.6, -104.29, -425.04, 1.11)
pt3dadd(24.32, -105.89, -425.04, 1.11)
pt3dadd(24.32, -106.01, -425.04, 1.11)
pt3dadd(25.02, -108.35, -425.04, 1.11)
pt3dadd(25.14, -108.48, -425.04, 1.11)
pt3dadd(25.73, -109.96, -425.04, 1.11)
pt3dadd(25.73, -110.21, -425.04, 1.11)
pt3dadd(26.2, -111.45, -425.04, 1.11)
pt3dadd(26.18, -112.43, -425.04, 1.11)
pt3dadd(26.04, -113.41, -425.04, 1.11)
pt3dadd(26.03, -113.78, -425.04, 1.11)
pt3dadd(26.85, -116.5, -425.19, 1.11)
pt3dadd(27.44, -117.74, -425.19, 1.11)
pt3dadd(27.92, -118.73, -425.19, 1.11)
pt3dadd(28.03, -119.47, -425.19, 1.11)
pt3dadd(28.26, -120.21, -425.19, 1.11)
pt3dadd(28.37, -120.95, -425.19, 1.11)
pt3dadd(28.33, -123.4, -425.19, 1.11)
pt3dadd(28.41, -125.86, -425.19, 1.11)
pt3dadd(28.4, -126.11, -425.19, 1.11)
pt3dadd(27.91, -127.8, -425.19, 1.11)
pt3dadd(27.78, -128.53, -425.19, 1.11)
pt3dadd(27.4, -129.02, -425.19, 1.11)
pt3dadd(27.14, -129.63, -425.19, 1.11)
pt3dadd(26.52, -130.23, -425.19, 1.11)
pt3dadd(26.14, -130.84, -425.19, 1.11)
pt3dadd(25.63, -131.57, -425.19, 1.11)
pt3dadd(25.12, -132.66, -425.19, 1.11)
pt3dadd(24.98, -133.77, -425.19, 1.11)
pt3dadd(24.92, -137.33, -425.19, 1.11)
pt3dadd(25.14, -138.44, -425.19, 1.11)
pt3dadd(25.13, -139.3, -425.19, 1.11)
pt3dadd(25.24, -140.16, -425.19, 1.11)
pt3dadd(25.21, -141.88, -425.19, 1.11)
pt3dadd(25.08, -142.37, -425.19, 1.11)
}
dend[6] {pt3dclear()
pt3dadd(25.08, -142.37, -425.19, 1.11)
pt3dadd(24.66, -143.82, -424.69, 0.86)
pt3dadd(24.63, -145.29, -424.69, 0.86)
pt3dadd(25.11, -146.04, -424.69, 0.86)
pt3dadd(25.47, -146.78, -424.69, 0.86)
pt3dadd(25.58, -147.15, -424.69, 0.86)
pt3dadd(25.56, -148.75, -424.69, 0.86)
pt3dadd(25.41, -150.34, -424.69, 0.86)
pt3dadd(25.38, -151.7, -424.69, 0.86)
pt3dadd(25.73, -152.81, -424.69, 0.86)
pt3dadd(25.96, -153.67, -424.69, 0.86)
pt3dadd(26.08, -154.04, -424.69, 0.86)
pt3dadd(26.18, -155.03, -424.69, 0.86)
pt3dadd(26.3, -155.64, -424.69, 0.86)
pt3dadd(26.41, -156.14, -424.69, 0.86)
pt3dadd(26.64, -157, -424.69, 0.86)
pt3dadd(26.62, -158.35, -424.69, 0.86)
pt3dadd(26.24, -159.08, -424.69, 0.86)
pt3dadd(25.98, -159.82, -424.49, 0.86)
pt3dadd(25.72, -160.67, -424.34, 0.86)
pt3dadd(25.69, -162.15, -424.34, 0.86)
pt3dadd(25.8, -162.88, -424.34, 0.86)
pt3dadd(26.04, -163.13, -424.34, 0.86)
pt3dadd(26.03, -163.87, -424.34, 0.86)
pt3dadd(25.4, -164.84, -424.34, 0.86)
pt3dadd(24.77, -165.45, -424.34, 0.86)
pt3dadd(24.14, -166.3, -424.34, 0.86)
pt3dadd(23.88, -167.03, -424.34, 0.86)
pt3dadd(23.84, -169.36, -424.34, 0.86)
pt3dadd(24.73, -168.03, -424.34, 0.86)
pt3dadd(24.86, -167.66, -424.34, 0.86)
pt3dadd(23.78, -172.93, -421.99, 0.62)
pt3dadd(23.76, -174.15, -422.04, 0.62)
pt3dadd(23.37, -175.5, -422.04, 0.62)
pt3dadd(23.11, -176.23, -422.04, 0.62)
pt3dadd(23.09, -177.21, -422.04, 0.62)
pt3dadd(24.15, -180.18, -422.04, 0.62)
pt3dadd(24.6, -182.52, -422.04, 0.62)
pt3dadd(24.7, -183.63, -422.04, 0.62)
pt3dadd(24.68, -185.11, -422.04, 0.62)
pt3dadd(24.54, -185.72, -422.04, 0.62)
pt3dadd(24.52, -187.07, -422.09, 0.62)
pt3dadd(24.75, -187.81, -422.04, 0.62)
pt3dadd(25.33, -190.59, -422.09, 0.62)
pt3dadd(26.25, -194.05, -422.09, 0.62)
pt3dadd(26.36, -195.03, -422.09, 0.62)
pt3dadd(26.82, -196.39, -422.09, 0.62)
pt3dadd(26.94, -197.01, -422.09, 0.62)
pt3dadd(26.93, -197.25, -422.09, 0.62)
pt3dadd(26.64, -200.07, -422.09, 0.62)
pt3dadd(26.63, -200.56, -422.09, 0.62)
pt3dadd(26.96, -202.66, -422.09, 0.62)
pt3dadd(27.2, -203.16, -422.09, 0.62)
pt3dadd(28.39, -205.51, -422.09, 0.62)
pt3dadd(28.5, -206.25, -422.09, 0.62)
pt3dadd(28.5, -206.37, -422.09, 0.62)
pt3dadd(28.58, -208.71, -422.09, 0.62)
pt3dadd(28.57, -208.95, -422.09, 0.62)
pt3dadd(30.75, -211.2, -422.09, 0.62)
pt3dadd(30.74, -211.57, -422.09, 0.62)
pt3dadd(32.66, -214.68, -420.24, 0.62)
pt3dadd(35.57, -217.06, -420.24, 0.62)
pt3dadd(38.38, -218.46, -420.24, 0.62)
pt3dadd(38.37, -218.59, -420.24, 0.62)
pt3dadd(41.15, -221.59, -417.34, 0.62)
pt3dadd(41.4, -221.59, -417.24, 0.62)
pt3dadd(44.69, -223.49, -417.14, 0.62)
pt3dadd(45.05, -223.74, -416.94, 0.62)
pt3dadd(47.72, -226.12, -416.19, 0.62)
pt3dadd(47.84, -226.25, -415.59, 0.62)
pt3dadd(49.53, -228.12, -415.29, 0.62)
pt3dadd(49.65, -228.25, -415.29, 0.62)
pt3dadd(49.65, -228.37, -415.29, 0.62)
pt3dadd(49.72, -231.32, -415.14, 0.62)
pt3dadd(49.71, -231.81, -414.84, 0.62)
pt3dadd(51.63, -234.55, -413.09, 0.62)
pt3dadd(51.06, -236.73, -411.19, 0.62)
pt3dadd(50.68, -237.58, -411.19, 0.62)
pt3dadd(50.66, -238.44, -411.19, 0.62)
pt3dadd(50.9, -238.82, -411.19, 0.62)
pt3dadd(51.02, -239.19, -411.19, 0.62)
pt3dadd(51.01, -239.8, -411.19, 0.62)
pt3dadd(50.88, -240.41, -411.19, 0.62)
pt3dadd(51.35, -241.41, -411.19, 0.62)
pt3dadd(51.71, -241.78, -411.19, 0.62)
pt3dadd(52.07, -242.4, -411.19, 0.62)
pt3dadd(52.07, -242.77, -411.19, 0.62)
pt3dadd(51.69, -243.13, -411.19, 0.62)
pt3dadd(50.82, -243.48, -411.19, 0.62)
pt3dadd(50.08, -243.72, -411.14, 0.62)
pt3dadd(49.58, -244.08, -410.89, 0.62)
pt3dadd(50.44, -244.34, -409.29, 0.62)
pt3dadd(50.56, -244.34, -409.29, 0.62)
}
dend[7] {pt3dclear()
pt3dadd(25.08, -142.37, -425.19, 1.11)
pt3dadd(24.09, -142.72, -427.64, 1.11)
pt3dadd(23.84, -142.84, -427.64, 1.11)
pt3dadd(23.46, -143.08, -427.64, 1.11)
pt3dadd(22.96, -143.68, -427.64, 1.11)
pt3dadd(22.71, -144.17, -427.64, 1.11)
pt3dadd(22.45, -144.78, -427.64, 1.11)
pt3dadd(21.93, -146.12, -427.64, 1.11)
pt3dadd(21.92, -146.74, -427.64, 1.11)
pt3dadd(21.34, -151.77, -429.84, 1.11)
pt3dadd(21.09, -152.25, -429.89, 1.11)
pt3dadd(20.47, -152.61, -429.89, 1.11)
pt3dadd(19.47, -153.21, -429.89, 1.11)
pt3dadd(18.97, -153.81, -429.84, 1.11)
pt3dadd(18.46, -154.54, -429.84, 1.11)
pt3dadd(18.19, -155.89, -430.69, 1.11)
pt3dadd(18.3, -156.63, -431.49, 1.11)
pt3dadd(18.9, -157.5, -431.74, 1.11)
pt3dadd(19.26, -158.49, -431.74, 1.11)
pt3dadd(19.19, -162.05, -431.74, 1.11)
pt3dadd(19.06, -162.91, -431.74, 1.11)
pt3dadd(18.99, -166.84, -431.89, 1.11)
pt3dadd(18.61, -167.57, -432.29, 1.11)
pt3dadd(17.73, -168.29, -432.34, 1.11)
pt3dadd(17.11, -168.77, -432.34, 1.11)
pt3dadd(16.61, -169.38, -432.34, 1.11)
pt3dadd(16.48, -169.74, -432.74, 1.11)
pt3dadd(16.47, -169.87, -431.69, 1.11)
pt3dadd(14.95, -172.79, -431.14, 1.11)
pt3dadd(14.69, -173.28, -431.14, 1.11)
pt3dadd(13.26, -175.83, -430.29, 1.11)
pt3dadd(11.63, -177.52, -430.29, 1.11)
pt3dadd(10.87, -178.86, -430.29, 1.11)
pt3dadd(10.23, -180.2, -430.29, 1.11)
pt3dadd(10.19, -182.54, -430.29, 1.11)
pt3dadd(8.77, -186.07, -430.29, 0.37)
pt3dadd(8.65, -186.32, -430.29, 0.37)
pt3dadd(8.39, -186.68, -430.29, 0.37)
pt3dadd(8.25, -187.54, -430.29, 0.37)
pt3dadd(8.48, -188.89, -430.29, 0.37)
pt3dadd(8.44, -190.98, -430.29, 0.37)
pt3dadd(8.17, -192.58, -430.44, 0.37)
pt3dadd(7.9, -193.8, -430.49, 0.37)
pt3dadd(7.77, -194.41, -430.49, 0.37)
pt3dadd(6.87, -196.61, -430.49, 0.37)
pt3dadd(6.61, -197.34, -430.49, 0.37)
pt3dadd(6.46, -198.44, -430.49, 0.37)
pt3dadd(6.32, -199.92, -430.39, 0.37)
pt3dadd(6.29, -201.39, -430.24, 0.37)
pt3dadd(7.75, -209.28, -431.59, 0.37)
pt3dadd(7.87, -209.65, -431.59, 0.37)
pt3dadd(7.87, -209.77, -431.59, 0.37)
pt3dadd(8.76, -215.07, -432.89, 0.37)
pt3dadd(8.88, -215.08, -433.04, 0.37)
pt3dadd(10.73, -221.99, -433.44, 0.37)
pt3dadd(10.1, -224.61, -433.54, 0.37)
pt3dadd(9.97, -225.22, -433.54, 0.37)
pt3dadd(9.83, -225.95, -433.54, 0.37)
}
}
proc shape3d_3() {
dend[7] { pt3dadd(9.94, -226.69, -433.54, 0.37)
pt3dadd(10.53, -228.05, -433.54, 0.37)
pt3dadd(11.35, -230.28, -433.54, 0.37)
pt3dadd(12.17, -233, -433.54, 0.37)
pt3dadd(12.52, -234.11, -433.54, 0.37)
pt3dadd(12.46, -237.67, -433.54, 0.37)
pt3dadd(12.67, -239.27, -433.54, 0.37)
pt3dadd(13.02, -240.39, -433.54, 0.37)
pt3dadd(13.73, -242.24, -433.54, 0.37)
pt3dadd(14.44, -244.1, -434.49, 0.37)
pt3dadd(14.55, -244.59, -434.54, 0.37)
pt3dadd(14.66, -245.08, -434.64, 0.37)
pt3dadd(14.66, -245.45, -434.59, 0.37)
pt3dadd(14.89, -246.07, -434.44, 0.37)
pt3dadd(15.01, -246.56, -434.29, 0.37)
pt3dadd(15.48, -247.8, -434.29, 0.37)
pt3dadd(16.44, -249.41, -434.29, 0.37)
pt3dadd(17.4, -250.41, -434.49, 0.37)
pt3dadd(18.12, -251.41, -434.94, 0.37)
pt3dadd(18.6, -252.52, -435.39, 0.37)
pt3dadd(18.58, -253.51, -435.49, 0.37)
pt3dadd(18.68, -254.74, -435.49, 0.37)
pt3dadd(18.64, -256.95, -435.59, 0.37)
pt3dadd(18.75, -257.57, -436.14, 0.37)
pt3dadd(19.11, -258.19, -436.24, 0.37)
pt3dadd(19.23, -258.43, -436.44, 0.37)
pt3dadd(19.35, -258.68, -436.44, 0.37)
pt3dadd(19.46, -259.18, -436.69, 0.37)
pt3dadd(19.58, -259.42, -436.69, 0.37)
}
dend[8] {pt3dclear()
pt3dadd(15.654, -70.772, -425.293, 1.23)
pt3dadd(-5.04, -97.59, -435.39, 1.23)
pt3dadd(-5.81, -99.42, -435.39, 1.23)
pt3dadd(-5.94, -99.91, -435.39, 1.23)
pt3dadd(-5.34, -100.91, -435.39, 1.23)
pt3dadd(-5.22, -100.91, -435.39, 1.23)
pt3dadd(-6.36, -102.49, -435.39, 0.86)
pt3dadd(-6.6, -102.6, -435.39, 0.86)
pt3dadd(-7.61, -103.69, -435.39, 0.86)
pt3dadd(-8, -104.91, -435.39, 0.86)
pt3dadd(-8.63, -106.01, -435.39, 0.86)
pt3dadd(-9.01, -106.25, -435.39, 0.86)
pt3dadd(-10.87, -107.08, -435.39, 0.86)
pt3dadd(-12.23, -107.42, -435.39, 0.86)
pt3dadd(-12.96, -107.41, -435.39, 0.86)
pt3dadd(-13.95, -107.39, -435.39, 0.86)
pt3dadd(-14.07, -107.27, -435.39, 0.86)
pt3dadd(-16.4, -107.1, -435.39, 0.86)
pt3dadd(-16.91, -107.83, -435.39, 0.86)
pt3dadd(-16.91, -107.95, -435.39, 0.86)
pt3dadd(-18.06, -110.39, -435.39, 0.86)
pt3dadd(-18.32, -111, -435.39, 0.86)
pt3dadd(-19.33, -112.83, -440.74, 0.86)
pt3dadd(-19.47, -113.32, -440.79, 0.86)
pt3dadd(-19.87, -115.52, -440.89, 0.62)
pt3dadd(-19.88, -115.77, -440.89, 0.62)
pt3dadd(-21, -116.61, -440.89, 0.62)
pt3dadd(-22.74, -117.44, -440.84, 0.62)
pt3dadd(-25.4, -121.94, -444.79, 0.62)
pt3dadd(-27.43, -125.47, -446.59, 0.62)
pt3dadd(-27.56, -125.71, -446.59, 0.62)
pt3dadd(-29.79, -126.78, -447.49, 0.62)
pt3dadd(-29.79, -126.78, -447.74, 0.62)
}
dend[9] {pt3dclear()
pt3dadd(15.654, -70.772, -425.293, 1.97)
pt3dadd(0.63, -83.28, -427.39, 1.97)
pt3dadd(-0.14, -84.86, -427.39, 1.97)
pt3dadd(-0.14, -85.23, -427.39, 1.97)
pt3dadd(-0.18, -87.57, -427.34, 1.97)
pt3dadd(0.06, -87.82, -427.34, 1.97)
pt3dadd(0.39, -89.79, -427.34, 1.97)
pt3dadd(0.39, -89.91, -427.34, 1.97)
pt3dadd(0.37, -91.26, -427.34, 1.85)
pt3dadd(0.36, -91.51, -427.34, 1.85)
pt3dadd(0.44, -93.97, -427.34, 1.85)
pt3dadd(0.43, -94.58, -427.34, 1.85)
pt3dadd(-0.57, -95.67, -429.44, 1.85)
}
dend[10] {pt3dclear()
pt3dadd(-0.57, -95.67, -429.44, 1.85)
pt3dadd(-0.68, -97.31, -428.69, 1.23)
pt3dadd(-1.08, -99.39, -428.69, 1.23)
pt3dadd(-1.08, -99.52, -428.69, 1.23)
pt3dadd(-0.38, -101.37, -428.69, 1.23)
pt3dadd(-0.26, -101.62, -428.69, 1.23)
pt3dadd(-1.17, -104.55, -428.64, 1.23)
pt3dadd(-1.3, -105.04, -428.69, 1.23)
pt3dadd(-2.32, -106.99, -428.69, 1.23)
pt3dadd(-2.33, -107.24, -428.69, 1.23)
pt3dadd(-2.34, -107.73, -428.69, 1.23)
}
dend[11] {pt3dclear()
pt3dadd(-2.34, -107.73, -428.69, 1.23)
pt3dadd(-2, -108.9, -428.39, 1.6)
pt3dadd(-1.44, -111.86, -428.39, 1.6)
pt3dadd(-1.31, -111.99, -428.39, 1.6)
pt3dadd(0.12, -114.71, -430.74, 1.6)
}
dend[12] {pt3dclear()
pt3dadd(0.12, -114.71, -430.74, 1.6)
pt3dadd(1.61, -115.7, -430.64, 0.86)
pt3dadd(1.61, -115.82, -430.64, 0.86)
pt3dadd(2.33, -117.06, -430.69, 0.86)
pt3dadd(2.45, -117.19, -430.69, 0.86)
pt3dadd(4.42, -116.98, -430.69, 0.86)
pt3dadd(4.67, -116.98, -430.69, 0.86)
pt3dadd(6.5, -117.99, -430.69, 0.86)
pt3dadd(7.47, -118.63, -430.69, 0.86)
pt3dadd(8.44, -119.5, -430.69, 0.86)
pt3dadd(8.8, -120.12, -430.69, 0.86)
pt3dadd(9.02, -121.48, -430.69, 0.86)
pt3dadd(9.01, -121.85, -430.69, 0.86)
pt3dadd(11.56, -124.1, -433.39, 0.86)
pt3dadd(11.55, -124.35, -433.39, 0.86)
pt3dadd(13.25, -125.98, -433.39, 0.86)
pt3dadd(13.73, -126.48, -433.39, 0.86)
pt3dadd(14.95, -127.24, -433.44, 0.86)
pt3dadd(15.56, -127.61, -433.94, 0.86)
pt3dadd(18.36, -129.14, -435.29, 0.86)
pt3dadd(19.71, -129.65, -435.29, 0.86)
pt3dadd(21.29, -130.42, -435.29, 0.86)
pt3dadd(22.15, -130.8, -435.29, 0.86)
pt3dadd(24.71, -132.08, -435.29, 0.62)
pt3dadd(24.96, -132.08, -435.29, 0.62)
pt3dadd(27.62, -134.71, -435.29, 0.62)
pt3dadd(27.86, -134.96, -435.29, 0.62)
pt3dadd(33.09, -138.61, -435.34, 0.62)
pt3dadd(33.32, -139.23, -435.34, 0.62)
pt3dadd(34.5, -142.57, -435.34, 0.62)
pt3dadd(34.73, -143.19, -435.34, 0.62)
pt3dadd(34.85, -143.31, -435.34, 0.62)
pt3dadd(35.68, -145.05, -435.34, 0.62)
pt3dadd(35.66, -146.27, -435.34, 0.62)
pt3dadd(36.96, -149.37, -435.34, 0.62)
pt3dadd(37.2, -149.74, -435.54, 0.62)
pt3dadd(40.72, -152.38, -440.74, 0.62)
pt3dadd(41.08, -152.88, -440.74, 0.62)
pt3dadd(41.08, -153.13, -440.74, 0.62)
pt3dadd(41.52, -155.96, -440.74, 0.62)
pt3dadd(41.63, -156.82, -440.74, 0.62)
pt3dadd(41.63, -157.07, -440.74, 0.62)
pt3dadd(41.93, -161.01, -440.74, 0.62)
pt3dadd(42.05, -161.25, -440.74, 0.62)
pt3dadd(43.91, -164.58, -442.64, 0.62)
pt3dadd(46.06, -168.3, -444.54, 0.62)
pt3dadd(46.3, -168.8, -444.54, 0.62)
pt3dadd(48.35, -171.54, -444.74, 0.62)
pt3dadd(48.46, -171.91, -444.99, 0.62)
pt3dadd(49.22, -177.82, -446.24, 0.62)
pt3dadd(49.33, -178.56, -446.24, 0.62)
pt3dadd(50.79, -186.69, -446.24, 0.37)
pt3dadd(51.02, -187.43, -446.24, 0.37)
pt3dadd(52.05, -191.88, -446.24, 0.37)
pt3dadd(52.53, -192.87, -446.24, 0.37)
pt3dadd(55.73, -199.8, -446.24, 0.37)
pt3dadd(56.32, -200.92, -446.24, 0.37)
pt3dadd(59.27, -208.35, -446.24, 0.37)
pt3dadd(59.39, -208.35, -446.24, 0.37)
pt3dadd(64.68, -216.19, -447.69, 0.37)
pt3dadd(69.35, -223.89, -447.59, 0.37)
pt3dadd(70.08, -224.28, -447.59, 0.37)
pt3dadd(72.53, -231.94, -441.69, 0.37)
pt3dadd(72.53, -232.06, -441.69, 0.37)
pt3dadd(73.21, -235.39, -440.89, 0.37)
pt3dadd(73.33, -235.51, -440.79, 0.37)
}
dend[13] {pt3dclear()
pt3dadd(0.12, -114.71, -430.74, 1.6)
pt3dadd(-0.29, -116.8, -430.84, 1.23)
pt3dadd(-0.29, -116.92, -430.84, 1.23)
pt3dadd(-0.58, -119.37, -430.84, 1.23)
pt3dadd(-0.46, -119.62, -430.84, 1.23)
pt3dadd(-0.46, -119.74, -430.84, 1.23)
pt3dadd(0.23, -121.97, -430.84, 1.23)
pt3dadd(0.34, -122.71, -430.84, 1.23)
pt3dadd(-0.06, -124.91, -430.84, 1.23)
pt3dadd(0.05, -125.28, -430.84, 1.23)
pt3dadd(0.52, -127.01, -430.84, 1.23)
pt3dadd(0.63, -127.5, -430.84, 1.23)
pt3dadd(1.79, -131.46, -433.04, 1.11)
pt3dadd(1.79, -131.82, -433.04, 1.11)
pt3dadd(1.27, -133.41, -433.04, 1.11)
pt3dadd(0.88, -134.14, -433.04, 1.11)
pt3dadd(0.13, -134.99, -433.04, 1.11)
pt3dadd(-1.12, -136.2, -433.04, 1.11)
pt3dadd(-1.5, -136.56, -433.04, 1.11)
pt3dadd(-3.18, -141.57, -433.04, 0.98)
pt3dadd(-3.31, -141.93, -433.04, 0.98)
pt3dadd(-4.49, -146.09, -433.04, 0.98)
pt3dadd(-4.5, -146.71, -433.04, 0.98)
pt3dadd(-5.94, -151.1, -433.04, 0.98)
pt3dadd(-5.94, -151.23, -433.04, 0.98)
pt3dadd(-8, -156.6, -435.44, 0.86)
pt3dadd(-9.14, -158.42, -435.44, 0.86)
pt3dadd(-9.39, -158.91, -435.44, 0.86)
pt3dadd(-9.85, -161.28, -435.44, 0.86)
pt3dadd(-9.86, -161.65, -435.44, 0.86)
pt3dadd(-10.27, -163.98, -435.44, 0.86)
pt3dadd(-10.52, -164.22, -435.44, 0.86)
pt3dadd(-12.52, -166.15, -435.44, 0.86)
pt3dadd(-12.77, -166.39, -435.44, 0.86)
pt3dadd(-16.51, -169.03, -435.44, 0.86)
pt3dadd(-16.76, -169.39, -435.44, 0.86)
pt3dadd(-18.03, -171.34, -435.44, 0.86)
pt3dadd(-18.16, -171.7, -435.49, 0.86)
pt3dadd(-18.16, -171.82, -435.44, 0.86)
pt3dadd(-19.67, -173.52, -435.44, 0.86)
pt3dadd(-19.92, -173.76, -435.44, 0.86)
pt3dadd(-19.92, -173.88, -435.44, 0.86)
pt3dadd(-22.4, -175.07, -435.44, 0.86)
}
}
proc shape3d_4() {
dend[13] { pt3dadd(-22.53, -175.43, -435.44, 0.86)
pt3dadd(-23.94, -178.97, -435.49, 0.86)
pt3dadd(-24.07, -179.22, -435.49, 0.86)
pt3dadd(-28.84, -184.29, -435.49, 0.86)
pt3dadd(-28.84, -184.54, -435.49, 0.86)
pt3dadd(-30.34, -185.74, -435.49, 0.86)
pt3dadd(-30.71, -185.74, -435.49, 0.86)
pt3dadd(-33.66, -185.81, -435.49, 0.86)
pt3dadd(-34.53, -186.28, -435.49, 0.86)
pt3dadd(-37.14, -187.84, -435.49, 0.86)
pt3dadd(-37.77, -188.19, -435.49, 0.86)
pt3dadd(-37.89, -188.19, -435.49, 0.86)
pt3dadd(-39.43, -191.73, -435.49, 0.86)
pt3dadd(-39.43, -191.97, -435.49, 0.86)
pt3dadd(-40.94, -194.04, -435.49, 0.86)
pt3dadd(-40.95, -194.16, -435.49, 0.86)
pt3dadd(-44.6, -199.01, -435.49, 0.86)
pt3dadd(-48.04, -198.58, -437.14, 0.86)
pt3dadd(-48.53, -198.57, -437.14, 0.86)
pt3dadd(-52.71, -198.38, -437.99, 0.86)
pt3dadd(-55.06, -199.07, -438.19, 0.62)
pt3dadd(-55.31, -199.19, -438.19, 0.62)
pt3dadd(-58.89, -199.74, -439.99, 0.62)
pt3dadd(-59.38, -199.74, -439.99, 0.62)
pt3dadd(-63.43, -198.81, -439.54, 0.62)
pt3dadd(-67.18, -202.06, -439.39, 0.62)
pt3dadd(-67.18, -202.18, -439.34, 0.62)
pt3dadd(-67.86, -205.86, -438.79, 0.62)
pt3dadd(-67.98, -205.98, -438.84, 0.62)
pt3dadd(-72.71, -210.62, -439.89, 0.62)
pt3dadd(-74.37, -214.28, -439.84, 0.62)
pt3dadd(-74.63, -214.77, -439.64, 0.62)
pt3dadd(-76.03, -217.69, -443.34, 0.62)
pt3dadd(-76.03, -217.82, -443.34, 0.62)
pt3dadd(-79.04, -220.96, -444.69, 0.62)
pt3dadd(-79.17, -221.2, -444.99, 0.62)
pt3dadd(-80.44, -223.76, -445.09, 0.62)
pt3dadd(-80.44, -223.76, -445.19, 0.62)
}
dend[14] {pt3dclear()
pt3dadd(-2.34, -107.73, -428.69, 1.23)
pt3dadd(-3.57, -108.2, -428.69, 0.86)
pt3dadd(-6.71, -111.71, -428.64, 0.86)
pt3dadd(-7.34, -112.31, -428.64, 0.86)
pt3dadd(-9, -115.97, -432.34, 0.86)
pt3dadd(-9.01, -116.34, -432.34, 0.86)
pt3dadd(-10.43, -120.49, -434.69, 0.86)
pt3dadd(-10.81, -120.73, -434.69, 0.86)
pt3dadd(-12.8, -121.92, -435.09, 0.86)
pt3dadd(-12.8, -121.92, -435.19, 0.86)
pt3dadd(-13.81, -123.26, -434.89, 0.86)
pt3dadd(-13.81, -123.62, -434.94, 0.86)
pt3dadd(-14.84, -126.31, -434.94, 0.86)
pt3dadd(-14.85, -126.56, -434.94, 0.86)
pt3dadd(-15.63, -128.88, -434.94, 0.86)
pt3dadd(-15.75, -129, -434.94, 0.86)
}
dend[15] {pt3dclear()
pt3dadd(-15.75, -129, -434.94, 0.86)
pt3dadd(-15.97, -129.67, -436.59, 0.49)
pt3dadd(-16.35, -130.27, -436.64, 0.49)
pt3dadd(-16.36, -130.4, -436.69, 0.49)
pt3dadd(-17.02, -133.09, -436.74, 0.49)
pt3dadd(-17.02, -133.33, -436.74, 0.49)
pt3dadd(-17.3, -135.05, -436.74, 0.49)
pt3dadd(-17.31, -135.91, -436.74, 0.49)
pt3dadd(-17.36, -138.61, -436.74, 0.49)
pt3dadd(-17.39, -140.21, -436.74, 0.49)
pt3dadd(-17.42, -141.93, -436.74, 0.49)
pt3dadd(-17.81, -143.15, -436.74, 0.49)
pt3dadd(-17.94, -143.64, -436.79, 0.49)
pt3dadd(-18.07, -144.01, -436.79, 0.49)
pt3dadd(-18.08, -144.5, -436.84, 0.49)
pt3dadd(-18.1, -145.6, -436.79, 0.49)
pt3dadd(-18.12, -146.59, -436.84, 0.49)
pt3dadd(-18.14, -147.94, -436.79, 0.49)
pt3dadd(-18.05, -149.78, -436.79, 0.49)
pt3dadd(-18.07, -150.77, -436.79, 0.49)
pt3dadd(-18.08, -151.5, -436.79, 0.49)
pt3dadd(-18.09, -152.36, -436.79, 0.49)
pt3dadd(-18.12, -153.71, -436.89, 0.86)
pt3dadd(-18.13, -154.45, -436.84, 0.86)
pt3dadd(-18.03, -156.05, -436.84, 0.86)
pt3dadd(-17.92, -156.42, -436.84, 0.86)
pt3dadd(-17.35, -158.89, -436.89, 0.86)
pt3dadd(-17.23, -159.5, -436.89, 0.86)
pt3dadd(-16.89, -160.99, -436.89, 0.86)
pt3dadd(-16.78, -161.72, -436.89, 0.86)
pt3dadd(-16.8, -163.08, -439.24, 0.86)
pt3dadd(-16.81, -163.32, -439.24, 0.86)
pt3dadd(-18.48, -167.72, -439.24, 0.62)
pt3dadd(-18.74, -168.08, -439.24, 0.62)
pt3dadd(-20.13, -170.64, -439.24, 0.62)
pt3dadd(-20.14, -170.76, -439.24, 0.62)
pt3dadd(-23.67, -175.49, -441.34, 0.62)
pt3dadd(-23.92, -175.98, -441.34, 0.62)
pt3dadd(-25.34, -179.52, -441.79, 0.62)
pt3dadd(-25.34, -179.88, -442.19, 0.62)
pt3dadd(-27.37, -190.17, -443.69, 0.62)
pt3dadd(-27.39, -191.64, -443.84, 0.62)
pt3dadd(-25.69, -197.08, -445.89, 0.62)
pt3dadd(-25.69, -197.2, -445.89, 0.62)
pt3dadd(-26.32, -212.43, -445.99, 0.62)
pt3dadd(-26.33, -212.55, -445.99, 0.62)
pt3dadd(-29.11, -217.05, -446.09, 0.62)
pt3dadd(-29.11, -217.05, -446.24, 0.62)
}
dend[16] {pt3dclear()
pt3dadd(-15.75, -129, -434.94, 0.86)
pt3dadd(-17.6, -129.21, -436.94, 0.86)
pt3dadd(-17.85, -129.21, -436.94, 0.86)
pt3dadd(-19.83, -130.16, -436.89, 0.86)
pt3dadd(-20.46, -130.51, -436.89, 0.86)
pt3dadd(-20.58, -130.63, -436.89, 0.86)
pt3dadd(-22.33, -132.45, -437.14, 0.86)
pt3dadd(-22.59, -132.69, -437.89, 0.86)
pt3dadd(-24.31, -132.53, -439.59, 0.86)
pt3dadd(-24.69, -133.14, -439.84, 0.86)
pt3dadd(-25.06, -133.5, -439.84, 0.86)
pt3dadd(-27.78, -134.32, -439.99, 0.86)
pt3dadd(-28.4, -134.55, -440.44, 0.86)
pt3dadd(-29.56, -137.48, -441.39, 0.86)
pt3dadd(-29.69, -137.6, -441.44, 0.86)
pt3dadd(-31.44, -139.54, -444.44, 0.86)
pt3dadd(-32.21, -141, -445.54, 0.86)
pt3dadd(-32.21, -141.12, -445.79, 0.86)
pt3dadd(-29.68, -144.24, -449.39, 0.86)
pt3dadd(-30.53, -145.88, -449.74, 0.86)
pt3dadd(-30.54, -146.12, -449.89, 0.86)
pt3dadd(-31.8, -148.19, -456.84, 0.86)
pt3dadd(-28.28, -157.96, -456.84, 0.86)
pt3dadd(-27.33, -159.7, -456.84, 0.86)
pt3dadd(-25.72, -166.48, -456.84, 0.74)
pt3dadd(-25.73, -167.1, -456.79, 0.74)
pt3dadd(-22.73, -171.21, -456.79, 0.49)
pt3dadd(-21.76, -179.21, -456.74, 0.12)
pt3dadd(-21.77, -179.7, -456.74, 0.12)
}
dend[17] {pt3dclear()
pt3dadd(-0.57, -95.67, -429.44, 1.85)
pt3dadd(-1.57, -96.27, -429.44, 1.23)
pt3dadd(-1.81, -96.26, -429.44, 1.23)
pt3dadd(-4.89, -96.21, -429.44, 1.23)
pt3dadd(-5.26, -96.2, -429.44, 1.23)
pt3dadd(-7.36, -96.66, -432.09, 1.23)
pt3dadd(-7.36, -96.66, -432.44, 1.23)
pt3dadd(-9.56, -95.64, -432.94, 1.23)
pt3dadd(-10.42, -95.87, -438.14, 0.98)
pt3dadd(-10.79, -96.11, -438.14, 0.98)
pt3dadd(-12.04, -96.82, -438.14, 0.98)
pt3dadd(-12.29, -97.43, -438.14, 0.98)
pt3dadd(-12.08, -99.52, -438.14, 0.98)
pt3dadd(-12.21, -99.77, -438.14, 0.98)
pt3dadd(-13.69, -99.86, -438.14, 0.98)
pt3dadd(-13.81, -99.62, -438.14, 0.98)
pt3dadd(-15.62, -97.37, -438.19, 0.98)
pt3dadd(-15.62, -97.37, -438.34, 0.98)
pt3dadd(-18.56, -96.71, -440.59, 0.98)
pt3dadd(-19.54, -96.69, -440.59, 0.98)
pt3dadd(-21.51, -96.66, -440.64, 0.98)
pt3dadd(-21.76, -97.02, -440.69, 0.98)
pt3dadd(-22.76, -97.62, -442.14, 0.98)
pt3dadd(-22.88, -97.62, -442.49, 0.98)
pt3dadd(-26.33, -97.92, -444.59, 0.98)
pt3dadd(-26.7, -97.92, -444.59, 0.98)
pt3dadd(-34.2, -97.17, -444.64, 0.74)
pt3dadd(-35.68, -97.39, -444.64, 0.74)
pt3dadd(-41.21, -97.3, -444.64, 0.74)
pt3dadd(-43.3, -97.26, -444.64, 0.74)
pt3dadd(-47.97, -96.81, -452.49, 0.49)
pt3dadd(-48.1, -96.81, -452.54, 0.49)
pt3dadd(-51.8, -97.36, -452.59, 0.49)
pt3dadd(-52.04, -97.35, -452.59, 0.49)
pt3dadd(-57.05, -97.8, -452.64, 0.49)
pt3dadd(-57.42, -97.8, -452.64, 0.49)
pt3dadd(-61.35, -97.48, -452.64, 0.49)
pt3dadd(-62.7, -97.21, -452.64, 0.49)
pt3dadd(-62.82, -97.21, -452.64, 0.49)
pt3dadd(-66.49, -95.67, -453.29, 0.49)
pt3dadd(-66.86, -95.54, -453.34, 0.49)
pt3dadd(-66.98, -95.54, -453.29, 0.49)
pt3dadd(-74.2, -93.2, -458.99, 0.49)
pt3dadd(-74.69, -93.19, -458.99, 0.49)
pt3dadd(-79.46, -91.64, -459.99, 0.49)
pt3dadd(-79.46, -91.64, -460.34, 0.49)
pt3dadd(-85.63, -92.51, -464.19, 0.49)
pt3dadd(-86.87, -92.86, -464.19, 0.49)
pt3dadd(-90.58, -93.65, -464.24, 0.49)
pt3dadd(-91.07, -94.01, -464.34, 0.49)
pt3dadd(-91.2, -94.01, -464.34, 0.49)
pt3dadd(-94.04, -94.95, -465.79, 0.49)
pt3dadd(-94.04, -94.95, -466.49, 0.49)
pt3dadd(-103.44, -97.48, -467.94, 0.49)
}
apic {pt3dclear()
pt3dadd(15.654, -70.772, -425.293, 1.97)
pt3dadd(18.09, -61.5, -425.24, 1.97)
pt3dadd(18.09, -61.14, -425.24, 1.97)
pt3dadd(18.23, -60.16, -425.24, 1.97)
pt3dadd(18.36, -59.79, -425.24, 1.97)
pt3dadd(18.63, -58.44, -425.24, 1.97)
pt3dadd(18.76, -58.08, -425.29, 1.97)
pt3dadd(19.52, -56.86, -425.29, 1.97)
pt3dadd(19.65, -56.49, -425.29, 1.97)
pt3dadd(19.77, -56.5, -425.29, 1.97)
pt3dadd(21.03, -54.92, -427.24, 1.97)
pt3dadd(21.16, -54.8, -427.24, 1.97)
pt3dadd(21.8, -52.97, -427.19, 1.97)
pt3dadd(21.68, -52.84, -427.24, 1.97)
pt3dadd(23.91, -52.02, -427.19, 1.97)
}
}
proc shape3d_5() {
apic { pt3dadd(25.16, -50.94, -427.24, 1.72)
pt3dadd(26.65, -50.23, -427.24, 1.72)
pt3dadd(27.03, -49.86, -427.24, 1.72)
pt3dadd(27.54, -48.64, -427.24, 1.72)
pt3dadd(27.93, -47.55, -429.24, 1.72)
pt3dadd(28.06, -47.42, -429.24, 1.72)
pt3dadd(29.19, -45.72, -429.24, 1.72)
pt3dadd(29.42, -43.97, -430.09, 1.72)
pt3dadd(28.46, -42.6, -430.09, 1.35)
pt3dadd(28.34, -42.35, -430.09, 1.35)
pt3dadd(27.38, -40.98, -430.09, 1.35)
pt3dadd(27.02, -40.49, -430.09, 1.35)
pt3dadd(25.83, -37.64, -431.54, 1.35)
pt3dadd(25.72, -37.39, -431.54, 1.35)
pt3dadd(25, -35.9, -431.54, 1.35)
pt3dadd(24.88, -35.66, -431.49, 1.35)
pt3dadd(24.18, -33.68, -431.49, 1.35)
pt3dadd(24.06, -33.43, -431.44, 1.35)
pt3dadd(24.06, -33.31, -431.44, 1.35)
pt3dadd(23.74, -30.48, -432.74, 1.35)
pt3dadd(23.75, -30.23, -432.84, 1.35)
pt3dadd(23.89, -29.37, -432.84, 1.35)
pt3dadd(24.01, -29.25, -432.99, 1.35)
pt3dadd(25.4, -27.56, -435.39, 1.35)
pt3dadd(25.4, -27.31, -435.39, 1.35)
pt3dadd(26.18, -25.11, -435.39, 1.35)
}
apic[1] {pt3dclear()
pt3dadd(26.18, -25.11, -435.39, 1.35)
pt3dadd(23.13, -30.66, -447.54, 1.23)
}
apic[2] {pt3dclear()
pt3dadd(23.13, -30.66, -447.54, 1.23)
pt3dadd(25.08, -31.28, -446.99, 0.86)
pt3dadd(25.2, -31.53, -446.99, 0.86)
pt3dadd(25.44, -31.66, -446.99, 0.86)
pt3dadd(26.77, -33.03, -446.99, 0.86)
pt3dadd(27.13, -33.65, -446.99, 0.86)
pt3dadd(27.48, -34.52, -446.99, 0.86)
pt3dadd(28.44, -36.01, -446.99, 0.86)
pt3dadd(29.03, -37.37, -446.99, 0.86)
pt3dadd(29.51, -38, -446.99, 0.86)
pt3dadd(30.73, -38.51, -447.04, 0.86)
pt3dadd(31.1, -38.51, -446.99, 0.86)
pt3dadd(32.35, -37.92, -446.99, 0.86)
pt3dadd(32.96, -37.93, -446.99, 0.86)
pt3dadd(34.31, -37.96, -447.04, 0.86)
pt3dadd(35.05, -38.34, -447.04, 0.86)
pt3dadd(36.26, -38.97, -447.04, 0.86)
pt3dadd(36.87, -39.35, -447.04, 0.86)
pt3dadd(36.99, -39.48, -447.04, 0.86)
pt3dadd(38.45, -40.98, -447.04, 0.86)
pt3dadd(40.27, -42.36, -447.14, 0.86)
pt3dadd(42.94, -44.25, -449.69, 0.86)
pt3dadd(43.06, -44.25, -449.69, 0.86)
pt3dadd(45.66, -43.81, -449.69, 0.86)
pt3dadd(46.76, -43.83, -449.69, 0.86)
pt3dadd(49.72, -43.63, -453.14, 0.86)
}
apic[3] {pt3dclear()
pt3dadd(49.72, -43.63, -453.14, 0.86)
pt3dadd(50.08, -43.2, -456.49, 0.62)
pt3dadd(50.33, -43.09, -456.54, 0.62)
pt3dadd(51.32, -42.73, -456.54, 0.62)
pt3dadd(51.56, -42.74, -456.59, 0.62)
pt3dadd(53.75, -44.62, -456.49, 0.62)
pt3dadd(53.87, -44.62, -457.19, 0.62)
pt3dadd(56.46, -44.05, -459.69, 0.62)
pt3dadd(57.81, -44.69, -459.69, 0.62)
pt3dadd(61.6, -45.74, -459.69, 0.62)
pt3dadd(62.71, -45.76, -459.69, 0.62)
pt3dadd(64.07, -45.17, -460.09, 0.62)
pt3dadd(65.55, -45.44, -460.34, 0.62)
pt3dadd(69.1, -46.24, -466.64, 0.62)
pt3dadd(69.59, -46.37, -466.99, 0.62)
pt3dadd(75.24, -47.08, -468.24, 0.62)
pt3dadd(76.09, -47.47, -468.44, 0.62)
pt3dadd(81.07, -51.36, -471.79, 0.62)
pt3dadd(81.19, -51.73, -473.39, 0.62)
pt3dadd(81.19, -51.86, -473.39, 0.62)
pt3dadd(82.02, -53.35, -475.34, 0.62)
pt3dadd(82.14, -53.59, -475.34, 0.62)
pt3dadd(84.57, -55.23, -475.84, 0.62)
pt3dadd(85.79, -55.87, -476.94, 0.62)
pt3dadd(90.43, -58.29, -478.54, 0.62)
pt3dadd(91.28, -58.79, -478.99, 0.62)
pt3dadd(91.52, -58.92, -479.19, 0.62)
pt3dadd(98.78, -59.29, -486.29, 0.62)
pt3dadd(99.89, -59.31, -486.29, 0.62)
pt3dadd(108.66, -57.25, -486.29, 0.62)
pt3dadd(109.89, -57.15, -486.29, 0.62)
}
apic[4] {pt3dclear()
pt3dadd(49.72, -43.63, -453.14, 0.86)
pt3dadd(51.99, -47.73, -453.99, 0.86)
pt3dadd(52.11, -47.97, -454.04, 0.86)
pt3dadd(55.53, -49.51, -454.04, 0.86)
pt3dadd(57.47, -50.65, -454.04, 0.86)
pt3dadd(58.2, -51.52, -454.04, 0.86)
pt3dadd(60.02, -52.66, -454.04, 0.86)
pt3dadd(61.82, -55.39, -454.04, 0.86)
pt3dadd(62.67, -56.39, -454.04, 0.86)
pt3dadd(64.64, -56.06, -454.04, 0.86)
}
apic[5] {pt3dclear()
pt3dadd(64.64, -56.06, -454.04, 0.86)
pt3dadd(65.69, -56.4, -454.09, 0.74)
pt3dadd(65.81, -56.4, -454.29, 0.74)
pt3dadd(68.93, -61.25, -457.64, 0.74)
pt3dadd(68.93, -61.12, -457.64, 0.74)
pt3dadd(73.32, -63.41, -459.94, 0.74)
pt3dadd(75.15, -64.43, -460.49, 0.74)
pt3dadd(79.03, -67.69, -460.49, 0.49)
pt3dadd(79.51, -68.56, -460.49, 0.49)
pt3dadd(81.21, -69.69, -460.49, 0.49)
pt3dadd(84.02, -71.09, -460.49, 0.49)
pt3dadd(88.42, -72.65, -460.54, 0.49)
pt3dadd(89.76, -73.41, -460.59, 0.49)
pt3dadd(93.68, -74.58, -460.79, 0.49)
pt3dadd(95.52, -74.98, -460.89, 0.49)
pt3dadd(97.23, -75.5, -460.94, 0.49)
pt3dadd(98.45, -76.14, -460.99, 0.49)
pt3dadd(105.13, -81.17, -461.04, 0.25)
pt3dadd(105.61, -81.79, -461.09, 0.25)
pt3dadd(107.9, -84.78, -461.09, 0.25)
pt3dadd(108.85, -86.89, -461.09, 0.25)
pt3dadd(109.32, -88.12, -461.09, 0.25)
pt3dadd(110.16, -89.37, -461.09, 0.25)
pt3dadd(111.37, -90.5, -461.09, 0.25)
pt3dadd(111.84, -91.49, -461.09, 0.25)
pt3dadd(113.4, -94.09, -461.09, 0.25)
pt3dadd(113.51, -94.47, -461.09, 0.25)
pt3dadd(113.51, -94.83, -461.09, 0.25)
pt3dadd(113.88, -101.84, -457.34, 0.25)
pt3dadd(114.11, -102.34, -457.29, 0.25)
pt3dadd(114.48, -102.71, -457.29, 0.25)
pt3dadd(119.28, -109.68, -458.44, 0.25)
pt3dadd(120.61, -111.18, -458.54, 0.25)
pt3dadd(120.85, -111.3, -458.54, 0.25)
pt3dadd(128.46, -119.55, -455.79, 0.25)
pt3dadd(128.7, -119.92, -455.84, 0.25)
pt3dadd(129.05, -120.66, -455.84, 0.25)
pt3dadd(134.63, -125.68, -455.79, 0.25)
pt3dadd(140.65, -129.23, -455.79, 0.25)
pt3dadd(147.56, -135.37, -458.49, 0.25)
pt3dadd(147.55, -135.62, -459.24, 0.25)
pt3dadd(148.6, -138.95, -460.54, 0.25)
pt3dadd(148.73, -138.95, -461.09, 0.25)
}
apic[6] {pt3dclear()
pt3dadd(64.64, -56.06, -454.04, 0.86)
pt3dadd(62.67, -60.03, -458.79, 0.86)
pt3dadd(62.67, -60.15, -458.74, 0.86)
pt3dadd(63.21, -64.71, -458.74, 0.86)
pt3dadd(63.18, -65.93, -458.74, 0.86)
pt3dadd(64.94, -71.37, -458.74, 0.86)
pt3dadd(65.05, -71.62, -458.79, 0.86)
pt3dadd(67.17, -77.31, -460.39, 0.86)
pt3dadd(67.12, -80.01, -460.39, 0.86)
pt3dadd(67.55, -83.95, -460.34, 0.86)
pt3dadd(67.78, -84.57, -460.39, 0.86)
pt3dadd(70.67, -88.43, -460.39, 0.74)
pt3dadd(71.02, -89.54, -460.39, 0.74)
pt3dadd(72.41, -94.48, -460.39, 0.74)
pt3dadd(72.52, -95.1, -460.39, 0.74)
pt3dadd(73.08, -98.06, -462.29, 0.74)
pt3dadd(73.08, -98.43, -462.34, 0.74)
pt3dadd(74.11, -102.99, -462.39, 0.74)
pt3dadd(74.09, -103.85, -462.39, 0.74)
}
apic[7] {pt3dclear()
pt3dadd(23.13, -30.66, -447.54, 1.23)
pt3dadd(23.01, -30.65, -447.54, 1.23)
pt3dadd(21.54, -30.01, -447.54, 1.23)
pt3dadd(21.06, -29.64, -447.54, 1.23)
pt3dadd(19.59, -29, -447.54, 1.23)
pt3dadd(19.22, -28.99, -447.54, 1.23)
pt3dadd(18.34, -30.08, -447.54, 1.23)
pt3dadd(18.22, -30.32, -447.54, 1.23)
pt3dadd(17.09, -31.41, -449.74, 1.23)
pt3dadd(16.35, -31.4, -449.74, 1.23)
pt3dadd(14.63, -31.49, -449.74, 1.23)
pt3dadd(13.64, -31.6, -449.74, 1.23)
pt3dadd(11.91, -32.3, -449.74, 1.23)
pt3dadd(11.41, -32.54, -449.74, 1.23)
pt3dadd(10.29, -33.14, -449.74, 1.23)
pt3dadd(10.16, -33.5, -449.74, 1.23)
pt3dadd(9.89, -34.97, -449.74, 1.23)
pt3dadd(9.76, -35.58, -449.74, 1.23)
pt3dadd(9.49, -36.69, -449.74, 1.23)
pt3dadd(9.48, -37.54, -449.74, 1.23)
pt3dadd(7.7, -40.71, -451.54, 1.23)
pt3dadd(7.57, -41.2, -451.54, 1.23)
pt3dadd(6.92, -42.66, -451.54, 1.23)
pt3dadd(6.16, -43.88, -451.54, 1.23)
pt3dadd(4.25, -47.65, -454.09, 1.23)
pt3dadd(3.62, -48.62, -454.09, 1.23)
pt3dadd(-0.52, -53.1, -454.09, 0.86)
pt3dadd(-0.65, -53.47, -454.09, 0.86)
pt3dadd(-2.3, -56.51, -454.34, 0.86)
pt3dadd(-2.94, -57.6, -454.59, 0.86)
pt3dadd(-2.94, -57.97, -454.59, 0.86)
pt3dadd(-3.06, -57.97, -454.59, 0.86)
pt3dadd(-3.49, -60.52, -454.44, 0.86)
pt3dadd(-3.51, -61.5, -454.44, 0.86)
pt3dadd(-4.4, -63.33, -454.44, 0.86)
pt3dadd(-4.91, -64.18, -454.44, 0.86)
pt3dadd(-4.91, -64.3, -454.44, 0.86)
pt3dadd(-5.79, -65.4, -454.39, 0.86)
pt3dadd(-6.43, -66.61, -454.19, 0.86)
pt3dadd(-6.43, -66.86, -454.14, 0.86)
pt3dadd(-8.23, -70.76, -453.79, 0.86)
pt3dadd(-8.36, -71.25, -453.79, 0.86)
pt3dadd(-9.01, -73.7, -453.79, 0.86)
}
}
proc shape3d_6() {
apic[7] { pt3dadd(-9.28, -74.67, -453.79, 0.86)
pt3dadd(-11.96, -80.28, -456.39, 0.86)
pt3dadd(-12.34, -80.64, -456.39, 0.86)
pt3dadd(-16.47, -84.62, -457.54, 0.86)
pt3dadd(-16.47, -84.75, -457.99, 0.86)
pt3dadd(-22.26, -84.89, -458.99, 0.86)
pt3dadd(-23.24, -84.87, -458.99, 0.86)
pt3dadd(-37.18, -87.09, -459.04, 0.86)
pt3dadd(-37.56, -87.33, -459.04, 0.86)
pt3dadd(-41.04, -89.11, -459.04, 0.86)
pt3dadd(-41.66, -89.47, -459.04, 0.86)
pt3dadd(-44.76, -91.26, -462.39, 0.86)
pt3dadd(-45.39, -91.74, -462.39, 0.86)
pt3dadd(-48.77, -95.12, -462.39, 0.86)
pt3dadd(-49.15, -95.48, -462.39, 0.86)
pt3dadd(-56.13, -100.52, -465.79, 0.86)
}
apic[8] {pt3dclear()
pt3dadd(26.18, -25.11, -435.39, 1.35)
pt3dadd(26.18, -24.99, -435.39, 1.35)
pt3dadd(25.71, -23.51, -435.39, 1.35)
pt3dadd(25.6, -23.14, -435.39, 1.35)
pt3dadd(25.5, -21.78, -435.39, 1.35)
pt3dadd(25.5, -21.41, -435.39, 1.35)
pt3dadd(25.92, -18.84, -439.04, 1.11)
pt3dadd(26.04, -18.72, -438.99, 1.11)
pt3dadd(26.8, -17.38, -438.99, 1.11)
pt3dadd(27.05, -17.14, -438.99, 1.11)
pt3dadd(27.06, -16.89, -438.99, 1.11)
pt3dadd(27.83, -14.82, -439.04, 1.11)
pt3dadd(27.84, -14.57, -439.04, 1.11)
pt3dadd(27.96, -14.45, -439.04, 1.11)
pt3dadd(27.38, -12.84, -438.99, 1.11)
pt3dadd(27.14, -12.1, -438.99, 1.11)
pt3dadd(27.02, -11.86, -438.99, 1.11)
pt3dadd(25.94, -10.49, -438.99, 1.11)
pt3dadd(25.82, -10.36, -439.29, 1.11)
pt3dadd(25.22, -9.37, -440.14, 1.11)
pt3dadd(25.1, -9, -440.14, 1.11)
pt3dadd(24.53, -6.65, -440.14, 1.11)
pt3dadd(24.41, -6.4, -440.14, 1.11)
pt3dadd(24.33, -3.7, -440.14, 1.11)
pt3dadd(24.34, -3.33, -440.14, 1.11)
pt3dadd(26.59, -1.4, -440.14, 1.11)
pt3dadd(28.26, -0.16, -442.29, 1.11)
pt3dadd(28.14, 0.21, -442.29, 1.11)
pt3dadd(27.2, 2.93, -442.29, 1.11)
pt3dadd(27.09, 3.3, -442.29, 1.11)
pt3dadd(26.89, 5.89, -443.84, 1.11)
pt3dadd(26.89, 6.01, -443.89, 1.11)
pt3dadd(26.8, 7.86, -445.64, 1.11)
pt3dadd(26.8, 8.22, -445.64, 1.11)
pt3dadd(26.68, 8.35, -445.64, 1.11)
pt3dadd(26.59, 9.95, -445.64, 1.11)
pt3dadd(26.6, 10.69, -445.69, 1.11)
pt3dadd(26.52, 13.02, -445.74, 1.11)
pt3dadd(26.4, 13.27, -446.04, 1.11)
pt3dadd(26.59, 16.95, -446.89, 1.11)
pt3dadd(26.71, 17.2, -446.89, 1.11)
pt3dadd(26.38, 19.29, -447.64, 1.11)
pt3dadd(26.14, 19.54, -447.64, 1.11)
pt3dadd(24.33, 21.66, -447.79, 1.11)
pt3dadd(24.21, 21.79, -448.04, 1.11)
pt3dadd(24.21, 21.91, -448.04, 1.11)
pt3dadd(23.88, 23.88, -448.29, 1.11)
pt3dadd(23.89, 24.62, -448.29, 1.11)
pt3dadd(24.2, 28.55, -448.69, 1.11)
pt3dadd(24.21, 28.79, -448.69, 1.11)
pt3dadd(25.1, 30.5, -448.69, 1.11)
pt3dadd(25.23, 30.74, -448.74, 1.11)
pt3dadd(24.89, 32.83, -449.29, 1.11)
pt3dadd(24.9, 33.08, -449.29, 1.11)
pt3dadd(24.68, 34.68, -449.29, 1.11)
pt3dadd(24.69, 34.93, -449.34, 1.11)
pt3dadd(25.59, 37.61, -449.29, 1.11)
pt3dadd(25.38, 39.34, -449.29, 1.11)
pt3dadd(25.14, 39.71, -449.34, 1.11)
pt3dadd(23.56, 40.97, -449.49, 1.11)
pt3dadd(23.12, 44.05, -450.49, 1.11)
pt3dadd(23.13, 44.29, -450.49, 1.11)
pt3dadd(23.11, 45.81, -450.49, 1.11)
pt3dadd(23.12, 46.05, -450.49, 1.11)
pt3dadd(22.9, 47.53, -450.49, 1.11)
pt3dadd(22.66, 48.03, -450.49, 1.11)
pt3dadd(22.66, 48.15, -450.49, 1.11)
pt3dadd(21.83, 49.76, -450.49, 1.11)
pt3dadd(21.83, 50.13, -450.49, 1.11)
pt3dadd(22.23, 51.6, -450.49, 1.11)
pt3dadd(22.35, 51.72, -450.49, 1.11)
pt3dadd(22.36, 51.84, -450.49, 1.11)
pt3dadd(23.36, 53.05, -450.49, 1.11)
pt3dadd(23.74, 53.29, -450.49, 1.11)
pt3dadd(24.5, 54.63, -453.59, 1.11)
pt3dadd(24.65, 56.23, -455.24, 1.11)
pt3dadd(24.65, 56.47, -455.24, 1.11)
pt3dadd(24.59, 59.67, -455.24, 1.11)
pt3dadd(24.6, 60.28, -455.24, 1.11)
pt3dadd(24.39, 62.62, -455.24, 1.11)
pt3dadd(24.27, 62.75, -455.24, 1.11)
pt3dadd(23.93, 64.23, -455.24, 1.11)
pt3dadd(23.94, 64.72, -455.24, 1.11)
pt3dadd(24.46, 66.67, -455.24, 1.11)
}
apic[9] {pt3dclear()
pt3dadd(24.46, 66.67, -455.24, 1.11)
pt3dadd(24.06, 68.21, -455.54, 0.62)
pt3dadd(24.06, 68.33, -455.54, 0.62)
pt3dadd(24.08, 69.56, -455.54, 0.62)
pt3dadd(24.09, 69.81, -455.54, 0.62)
pt3dadd(24.11, 70.91, -455.54, 0.62)
pt3dadd(24.11, 71.28, -455.54, 0.62)
pt3dadd(23.02, 72.41, -455.54, 0.62)
pt3dadd(22.78, 72.78, -455.54, 0.62)
pt3dadd(22.79, 73.02, -455.54, 0.62)
pt3dadd(22.08, 74.51, -455.54, 0.62)
pt3dadd(21.84, 75.25, -455.54, 0.62)
pt3dadd(21.72, 75.38, -455.54, 0.62)
pt3dadd(21.25, 76.61, -455.54, 0.62)
pt3dadd(20.54, 78.1, -455.54, 0.62)
pt3dadd(19.95, 79.46, -455.59, 0.62)
pt3dadd(19.36, 80.82, -455.59, 0.62)
pt3dadd(19.38, 82.42, -455.59, 0.62)
pt3dadd(19.4, 83.53, -455.59, 0.62)
pt3dadd(17.72, 85.77, -455.59, 0.62)
pt3dadd(17.73, 86.63, -455.59, 0.62)
pt3dadd(17.41, 89.09, -455.59, 0.62)
pt3dadd(17.42, 89.83, -455.59, 0.62)
pt3dadd(17.31, 90.81, -454.74, 0.62)
pt3dadd(17.2, 91.06, -454.74, 0.62)
pt3dadd(16.48, 92.55, -454.74, 0.62)
pt3dadd(16.49, 93.16, -454.79, 0.62)
pt3dadd(16.05, 95.87, -456.14, 0.62)
pt3dadd(15.44, 96.5, -456.24, 0.62)
pt3dadd(14.73, 97.86, -456.39, 0.62)
pt3dadd(14.74, 98.35, -456.44, 0.62)
pt3dadd(14.87, 98.6, -456.44, 0.62)
pt3dadd(15.64, 100.43, -456.54, 0.62)
pt3dadd(15.64, 100.92, -456.54, 0.62)
pt3dadd(15.06, 102.4, -456.84, 0.62)
pt3dadd(14.93, 102.53, -457.04, 0.62)
pt3dadd(14.94, 102.65, -457.04, 0.62)
pt3dadd(13.41, 106.86, -457.34, 0.62)
pt3dadd(12.94, 108.22, -457.34, 0.62)
pt3dadd(14.02, 113.73, -457.59, 0.62)
pt3dadd(14.02, 113.85, -457.59, 0.62)
pt3dadd(12.45, 115.11, -457.59, 0.62)
pt3dadd(12.2, 115.36, -457.54, 0.62)
pt3dadd(12.21, 115.48, -457.54, 0.62)
pt3dadd(11.38, 117.71, -457.59, 0.62)
pt3dadd(11.39, 118.2, -457.59, 0.62)
pt3dadd(11.73, 123.35, -458.59, 0.62)
pt3dadd(11.37, 124.1, -458.59, 0.62)
pt3dadd(10.31, 126.69, -458.64, 0.62)
pt3dadd(10.32, 127.19, -458.64, 0.62)
pt3dadd(9.43, 132.36, -460.54, 0.62)
pt3dadd(9.43, 132.49, -460.54, 0.62)
pt3dadd(10.59, 135.54, -460.64, 0.62)
pt3dadd(10.12, 137.14, -460.64, 0.62)
pt3dadd(10.13, 137.27, -460.64, 0.62)
pt3dadd(9.79, 138.96, -460.94, 0.62)
pt3dadd(9.67, 139.33, -460.94, 0.62)
pt3dadd(10.37, 144.11, -463.39, 0.62)
pt3dadd(10.37, 144.11, -462.69, 0.62)
pt3dadd(9.97, 149.4, -461.34, 0.62)
pt3dadd(9.99, 150.5, -461.19, 0.62)
pt3dadd(10, 151.24, -461.44, 0.62)
pt3dadd(10.01, 151.49, -461.44, 0.62)
pt3dadd(9.06, 153.59, -461.49, 0.62)
pt3dadd(9.07, 154.08, -461.69, 0.62)
pt3dadd(8.95, 154.45, -461.69, 0.62)
pt3dadd(8.3, 159.5, -470.34, 0.62)
pt3dadd(8.31, 159.63, -470.39, 0.62)
pt3dadd(8.36, 162.94, -470.44, 0.62)
pt3dadd(8.37, 163.31, -470.49, 0.62)
pt3dadd(7.82, 166.88, -470.59, 0.62)
pt3dadd(7.82, 167.01, -470.64, 0.62)
pt3dadd(7.89, 171.06, -470.64, 0.62)
pt3dadd(7.54, 172.3, -470.64, 0.62)
pt3dadd(7.35, 175.37, -470.64, 0.62)
pt3dadd(6.92, 178.94, -470.64, 0.62)
pt3dadd(8.34, 182.85, -470.69, 0.62)
pt3dadd(8.34, 182.97, -470.69, 0.62)
pt3dadd(7.74, 185.93, -469.89, 0.62)
pt3dadd(7.62, 186.17, -470.34, 0.62)
pt3dadd(7.69, 190.35, -472.94, 0.62)
pt3dadd(7.83, 190.84, -472.94, 0.62)
pt3dadd(7.83, 190.96, -472.94, 0.62)
pt3dadd(7.37, 192.81, -473.44, 0.62)
pt3dadd(7.01, 193.44, -473.89, 0.62)
pt3dadd(5.94, 195.54, -474.24, 0.62)
pt3dadd(5.94, 195.67, -474.34, 0.62)
pt3dadd(5.11, 197.52, -474.94, 0.62)
pt3dadd(4.99, 197.65, -474.94, 0.62)
pt3dadd(3.45, 200.75, -475.19, 0.62)
pt3dadd(3.45, 201.12, -475.34, 0.62)
pt3dadd(3.01, 203.95, -475.99, 0.62)
pt3dadd(2.89, 204.32, -476.14, 0.62)
pt3dadd(1.2, 205.82, -476.64, 0.62)
pt3dadd(0.59, 206.45, -476.69, 0.62)
pt3dadd(-2.06, 209.69, -478.39, 0.62)
pt3dadd(-2.06, 209.81, -478.49, 0.62)
pt3dadd(-2.64, 211.67, -478.49, 0.62)
pt3dadd(-2.76, 212.04, -478.59, 0.62)
pt3dadd(-2.88, 212.16, -478.59, 0.62)
}
}
proc shape3d_7() {
apic[9] { pt3dadd(-4.07, 214.27, -478.84, 0.62)
pt3dadd(-3.7, 214.14, -478.84, 0.62)
pt3dadd(-4.6, 219.07, -478.94, 0.62)
pt3dadd(-6.02, 222.42, -480.44, 0.62)
pt3dadd(-6.14, 222.66, -480.44, 0.62)
pt3dadd(-8.98, 229.35, -482.34, 0.62)
pt3dadd(-9.1, 229.47, -482.14, 0.62)
pt3dadd(-12.4, 235.97, -479.14, 0.62)
pt3dadd(-12.51, 236.22, -479.14, 0.62)
pt3dadd(-15.53, 239.96, -479.04, 0.62)
pt3dadd(-16.25, 240.95, -479.04, 0.62)
pt3dadd(-17.42, 244.42, -479.39, 0.62)
pt3dadd(-17.89, 245.41, -479.54, 0.62)
pt3dadd(-18.01, 245.53, -479.54, 0.62)
pt3dadd(-19.57, 248.02, -480.04, 0.62)
pt3dadd(-19.81, 248.51, -479.24, 0.62)
pt3dadd(-21.59, 251.86, -482.44, 0.62)
pt3dadd(-21.71, 252.11, -482.69, 0.62)
pt3dadd(-22.91, 254.22, -483.44, 0.62)
pt3dadd(-23.27, 254.59, -483.54, 0.62)
pt3dadd(-25.57, 256.97, -483.54, 0.62)
pt3dadd(-25.56, 257.46, -483.54, 0.62)
pt3dadd(-26.76, 258.96, -484.69, 0.62)
pt3dadd(-27, 259.57, -485.09, 0.62)
pt3dadd(-27.45, 262.16, -485.14, 0.62)
pt3dadd(-27.56, 262.78, -485.14, 0.62)
pt3dadd(-29.13, 264.28, -485.14, 0.62)
pt3dadd(-29.49, 264.78, -485.14, 0.62)
pt3dadd(-29.71, 266.13, -485.39, 0.62)
pt3dadd(-30.44, 267.13, -485.59, 0.62)
pt3dadd(-30.56, 267.25, -485.59, 0.62)
pt3dadd(-32.51, 268.39, -485.59, 0.62)
pt3dadd(-32.87, 268.52, -485.64, 0.62)
pt3dadd(-35.65, 271.52, -485.64, 0.62)
pt3dadd(-35.89, 272.02, -485.69, 0.62)
pt3dadd(-37.57, 274.5, -485.69, 0.62)
pt3dadd(-37.57, 274.63, -485.69, 0.62)
pt3dadd(-38.64, 276, -485.69, 0.62)
pt3dadd(-39.72, 277.74, -485.74, 0.62)
pt3dadd(-41.89, 280.36, -485.74, 0.62)
pt3dadd(-42.36, 281.47, -485.84, 0.62)
pt3dadd(-43.74, 287.02, -483.99, 0.62)
pt3dadd(-43.72, 287.88, -483.94, 0.62)
pt3dadd(-44.97, 294.05, -483.94, 0.62)
pt3dadd(-45.2, 295.16, -483.94, 0.62)
pt3dadd(-46.37, 298.74, -483.94, 0.62)
pt3dadd(-46.61, 299.12, -483.94, 0.62)
pt3dadd(-46.6, 299.24, -483.94, 0.62)
pt3dadd(-48.14, 303.08, -483.94, 0.62)
pt3dadd(-48.13, 303.2, -483.94, 0.62)
pt3dadd(-47.85, 305.16, -483.94, 0.62)
pt3dadd(-48.21, 305.9, -483.94, 0.62)
pt3dadd(-50.82, 311.23, -483.94, 0.62)
pt3dadd(-51.29, 312.71, -483.94, 0.62)
pt3dadd(-52.94, 316.8, -483.79, 0.62)
}
apic[10] {pt3dclear()
pt3dadd(-52.94, 316.8, -483.79, 0.62)
pt3dadd(-51.19, 315.89, -481.24, 0.62)
pt3dadd(-51.31, 316.01, -481.24, 0.62)
pt3dadd(-51.74, 319.83, -481.24, 0.62)
pt3dadd(-51.72, 320.94, -481.24, 0.62)
pt3dadd(-52.53, 324.02, -481.29, 0.62)
pt3dadd(-52.76, 324.76, -481.29, 0.62)
pt3dadd(-52.88, 324.89, -481.29, 0.62)
pt3dadd(-53.57, 327.85, -481.29, 0.62)
pt3dadd(-53.92, 328.96, -481.29, 0.62)
pt3dadd(-55.1, 331.81, -481.09, 0.62)
}
apic[11] {pt3dclear()
pt3dadd(-55.1, 331.81, -481.09, 0.62)
pt3dadd(-56.93, 331.62, -477.54, 0.62)
pt3dadd(-56.92, 331.87, -477.54, 0.62)
pt3dadd(-62.98, 337.62, -476.09, 0.62)
pt3dadd(-63.94, 338.87, -476.09, 0.62)
pt3dadd(-66.59, 342.23, -476.09, 0.62)
pt3dadd(-67.92, 343.61, -476.04, 0.62)
pt3dadd(-70.46, 353.11, -475.09, 0.62)
pt3dadd(-70.82, 353.73, -474.94, 0.62)
pt3dadd(-75.5, 360.57, -474.79, 0.62)
pt3dadd(-76.22, 361.32, -474.79, 0.62)
pt3dadd(-79.73, 365.07, -474.79, 0.62)
pt3dadd(-80.94, 366.32, -474.79, 0.62)
pt3dadd(-84.93, 370.2, -474.79, 0.62)
pt3dadd(-85.9, 370.71, -474.79, 0.62)
pt3dadd(-89.93, 372.87, -474.79, 0.62)
pt3dadd(-90.64, 374.36, -474.79, 0.62)
pt3dadd(-90.88, 374.97, -474.79, 0.62)
pt3dadd(-90.29, 380.13, -476.69, 0.62)
pt3dadd(-90.42, 380.13, -477.04, 0.62)
pt3dadd(-91.13, 381.86, -479.04, 0.62)
pt3dadd(-91.25, 381.86, -479.04, 0.62)
pt3dadd(-93.07, 383.37, -479.09, 0.62)
pt3dadd(-93.19, 383.49, -479.24, 0.62)
pt3dadd(-95.12, 385.86, -479.29, 0.62)
pt3dadd(-95.11, 385.98, -479.44, 0.62)
pt3dadd(-94.45, 388.92, -478.79, 0.62)
pt3dadd(-92.56, 391.35, -475.39, 0.62)
pt3dadd(-92.56, 391.47, -475.34, 0.62)
pt3dadd(-91.67, 393.05, -474.39, 0.62)
pt3dadd(-91.55, 393.05, -474.09, 0.62)
pt3dadd(-88.56, 394.59, -473.89, 0.62)
}
apic[12] {pt3dclear()
pt3dadd(-55.1, 331.81, -481.09, 0.62)
pt3dadd(-54.95, 333.4, -481.09, 0.62)
pt3dadd(-54.93, 334.26, -481.14, 0.62)
pt3dadd(-54.99, 337.95, -481.24, 0.62)
pt3dadd(-54.98, 338.81, -481.19, 0.62)
pt3dadd(-57.01, 342.41, -481.24, 0.62)
pt3dadd(-57.48, 343.65, -481.24, 0.62)
pt3dadd(-59.74, 348.23, -481.24, 0.62)
pt3dadd(-60.33, 349.35, -481.24, 0.62)
pt3dadd(-61.87, 352.94, -481.34, 0.62)
pt3dadd(-61.86, 353.31, -481.54, 0.62)
pt3dadd(-61.85, 360.93, -479.29, 0.62)
pt3dadd(-61.84, 361.42, -479.29, 0.62)
pt3dadd(-62.02, 364.39, -479.24, 0.62)
pt3dadd(-62.37, 365.14, -479.29, 0.62)
pt3dadd(-62.55, 368.95, -479.34, 0.62)
pt3dadd(-62.42, 369.69, -479.34, 0.62)
pt3dadd(-61.12, 373.35, -479.34, 0.62)
pt3dadd(-61.12, 373.59, -479.34, 0.62)
pt3dadd(-63.41, 375.97, -479.34, 0.62)
pt3dadd(-63.41, 376.22, -479.34, 0.62)
pt3dadd(-62.27, 378.28, -479.34, 0.62)
pt3dadd(-62.01, 378.77, -479.34, 0.62)
pt3dadd(-59.88, 381.31, -479.34, 0.62)
pt3dadd(-58.87, 382.28, -479.34, 0.62)
pt3dadd(-58.33, 385.47, -479.34, 0.62)
pt3dadd(-58.32, 385.71, -479.34, 0.62)
pt3dadd(-59.63, 388.19, -479.29, 0.62)
pt3dadd(-59.63, 388.44, -479.29, 0.62)
pt3dadd(-59.87, 388.56, -479.29, 0.62)
pt3dadd(-63.86, 392.81, -479.34, 0.62)
pt3dadd(-64.33, 394.05, -479.34, 0.62)
}
apic[13] {pt3dclear()
pt3dadd(-52.94, 316.8, -483.79, 0.62)
pt3dadd(-54.05, 318.13, -479.84, 0.62)
pt3dadd(-54.18, 318.26, -479.84, 0.62)
pt3dadd(-56.46, 321.25, -479.79, 0.62)
pt3dadd(-56.58, 321.5, -479.79, 0.62)
pt3dadd(-58.87, 324.24, -479.89, 0.62)
pt3dadd(-59.23, 324.86, -479.94, 0.62)
pt3dadd(-59.23, 324.98, -479.94, 0.62)
pt3dadd(-62, 328.47, -480.19, 0.62)
pt3dadd(-62.24, 328.84, -480.59, 0.62)
pt3dadd(-64.27, 332.44, -482.29, 0.62)
pt3dadd(-64.51, 332.45, -482.29, 0.62)
pt3dadd(-64.63, 332.57, -482.29, 0.62)
pt3dadd(-67.68, 334.47, -485.14, 0.62)
pt3dadd(-67.8, 334.47, -485.14, 0.62)
pt3dadd(-70.6, 336.24, -485.79, 0.62)
pt3dadd(-71.57, 336.87, -486.14, 0.62)
pt3dadd(-75.66, 342.47, -487.09, 0.62)
pt3dadd(-77.23, 344.22, -487.19, 0.62)
pt3dadd(-80.15, 346.11, -487.34, 0.62)
pt3dadd(-81.37, 346.63, -487.59, 0.62)
pt3dadd(-81.49, 346.75, -487.59, 0.62)
pt3dadd(-83.91, 349.37, -488.44, 0.62)
pt3dadd(-85.11, 350.75, -488.49, 0.62)
pt3dadd(-88.84, 355.61, -489.74, 0.62)
pt3dadd(-89.56, 356.97, -489.79, 0.62)
pt3dadd(-90.63, 358.83, -489.79, 0.62)
pt3dadd(-90.99, 359.57, -490.09, 0.62)
pt3dadd(-91.11, 359.82, -490.09, 0.62)
pt3dadd(-93.51, 363.31, -490.64, 0.62)
pt3dadd(-94.72, 364.43, -490.64, 0.62)
pt3dadd(-95.08, 364.81, -490.64, 0.62)
pt3dadd(-99.44, 369.06, -490.74, 0.62)
pt3dadd(-100.05, 369.44, -490.74, 0.62)
pt3dadd(-104.08, 370.34, -490.79, 0.62)
pt3dadd(-105.19, 370.36, -490.79, 0.62)
pt3dadd(-108.03, 369.55, -490.79, 0.62)
pt3dadd(-108.9, 368.95, -490.79, 0.62)
pt3dadd(-110.77, 368, -490.79, 0.62)
pt3dadd(-111.26, 367.76, -490.79, 0.62)
pt3dadd(-113.41, 364.36, -490.79, 0.62)
pt3dadd(-113.54, 364.24, -490.79, 0.62)
}
apic[14] {pt3dclear()
pt3dadd(24.46, 66.67, -455.24, 1.11)
pt3dadd(25.84, 68, -456.64, 0.86)
pt3dadd(26.84, 68.97, -456.69, 0.86)
pt3dadd(27.21, 68.96, -456.64, 0.86)
pt3dadd(28.7, 69.8, -456.64, 0.86)
pt3dadd(28.83, 69.92, -456.64, 0.86)
pt3dadd(29.47, 71.5, -456.64, 0.86)
pt3dadd(29.72, 71.74, -456.64, 0.86)
pt3dadd(31.22, 73.19, -457.44, 0.86)
pt3dadd(33.08, 74.02, -459.14, 0.86)
pt3dadd(33.46, 74.26, -459.14, 0.86)
pt3dadd(34.2, 74.74, -459.14, 0.86)
pt3dadd(34.21, 74.98, -459.14, 0.86)
pt3dadd(34.1, 75.72, -459.14, 0.86)
pt3dadd(33.98, 76.09, -459.19, 0.86)
pt3dadd(33.28, 78.19, -459.59, 0.86)
pt3dadd(33.56, 80.28, -460.39, 0.86)
pt3dadd(33.69, 80.52, -460.49, 0.86)
pt3dadd(33.81, 80.77, -460.89, 0.86)
pt3dadd(33.81, 80.77, -461.59, 0.86)
pt3dadd(34.09, 82.48, -461.84, 0.86)
pt3dadd(34.1, 82.73, -461.84, 0.86)
pt3dadd(33.99, 83.96, -462.04, 0.86)
pt3dadd(34, 84.08, -462.04, 0.86)
pt3dadd(35.15, 86.76, -462.49, 0.86)
pt3dadd(35.15, 87.01, -462.49, 0.86)
pt3dadd(35.56, 88.97, -462.49, 0.86)
pt3dadd(36.5, 90.21, -462.54, 0.86)
}
}
proc shape3d_8() {
apic[14] { pt3dadd(36.5, 90.34, -462.54, 0.86)
pt3dadd(37.63, 91.91, -462.54, 0.86)
pt3dadd(39.37, 92.5, -465.19, 0.86)
pt3dadd(39.5, 92.74, -465.84, 0.86)
pt3dadd(40.75, 94.07, -466.59, 0.86)
pt3dadd(41, 94.19, -466.74, 0.86)
pt3dadd(41.89, 95.77, -467.04, 0.86)
pt3dadd(41.89, 96.26, -467.14, 0.86)
pt3dadd(41.1, 99.84, -467.84, 0.86)
pt3dadd(41.1, 100.09, -467.94, 0.86)
pt3dadd(41.24, 100.82, -465.54, 0.86)
pt3dadd(41.24, 100.94, -465.54, 0.86)
pt3dadd(41.29, 103.65, -465.54, 0.86)
pt3dadd(41.29, 103.77, -465.54, 0.86)
pt3dadd(42.58, 107.06, -466.59, 0.86)
pt3dadd(42.71, 107.43, -466.59, 0.86)
pt3dadd(42.75, 110.13, -466.59, 0.86)
pt3dadd(42.77, 110.87, -466.59, 0.86)
pt3dadd(43.19, 113.81, -467.24, 0.86)
pt3dadd(43.31, 114.06, -467.39, 0.86)
pt3dadd(43.61, 116.88, -468.29, 0.86)
pt3dadd(43.61, 117.12, -468.29, 0.86)
pt3dadd(44.42, 121.04, -468.29, 0.86)
pt3dadd(45.81, 123.35, -469.54, 0.86)
pt3dadd(45.94, 123.59, -469.54, 0.86)
pt3dadd(46.83, 125.42, -470.39, 0.86)
pt3dadd(46.96, 125.79, -470.74, 0.86)
pt3dadd(47.48, 127.25, -471.29, 0.86)
pt3dadd(47.48, 127.38, -471.34, 0.86)
pt3dadd(46.81, 130.83, -472.54, 0.86)
pt3dadd(46.81, 130.95, -472.64, 0.86)
pt3dadd(45.87, 133.55, -474.99, 0.86)
pt3dadd(45.44, 135.79, -477.84, 0.86)
pt3dadd(45.45, 136.04, -477.79, 0.86)
pt3dadd(46.61, 139.58, -477.79, 0.86)
pt3dadd(46.75, 140.07, -477.79, 0.86)
pt3dadd(47.64, 142.02, -477.79, 0.86)
pt3dadd(47.77, 142.26, -477.79, 0.86)
pt3dadd(47.9, 142.88, -477.79, 0.86)
pt3dadd(48.69, 145.69, -477.79, 0.86)
pt3dadd(48.94, 145.93, -477.79, 0.86)
pt3dadd(48.94, 146.05, -477.79, 0.86)
pt3dadd(50.93, 147.37, -477.79, 0.86)
pt3dadd(51.19, 147.98, -477.79, 0.86)
pt3dadd(51.32, 148.35, -477.79, 0.86)
pt3dadd(51.48, 150.68, -477.79, 0.86)
pt3dadd(51.49, 150.92, -477.79, 0.86)
pt3dadd(52.87, 152.62, -477.79, 0.86)
pt3dadd(53, 152.86, -478.09, 0.86)
pt3dadd(53.12, 152.86, -478.09, 0.86)
pt3dadd(54.31, 157.14, -478.99, 0.86)
pt3dadd(54.19, 157.39, -478.99, 0.86)
pt3dadd(54.61, 160.58, -481.59, 0.86)
pt3dadd(54.62, 160.95, -481.59, 0.86)
pt3dadd(54.66, 163.53, -481.84, 0.86)
pt3dadd(54.66, 163.65, -482.54, 0.86)
pt3dadd(55.32, 166.09, -484.69, 0.86)
pt3dadd(55.32, 166.22, -484.69, 0.86)
pt3dadd(56.35, 168.66, -484.94, 0.86)
pt3dadd(56.36, 169.03, -484.99, 0.86)
pt3dadd(57.02, 171.59, -485.19, 0.86)
pt3dadd(57.14, 171.72, -485.19, 0.86)
pt3dadd(58.65, 173.16, -485.64, 0.86)
pt3dadd(59.27, 173.52, -485.64, 0.86)
pt3dadd(60.66, 175.95, -485.64, 0.86)
pt3dadd(60.67, 176.2, -485.64, 0.86)
pt3dadd(61.7, 178.64, -485.69, 0.86)
pt3dadd(62.07, 181.09, -487.14, 0.86)
pt3dadd(62.08, 181.46, -487.24, 0.86)
pt3dadd(61.87, 183.55, -487.49, 0.86)
pt3dadd(62, 184.28, -487.54, 0.86)
pt3dadd(63.03, 186.48, -488.54, 0.86)
pt3dadd(63.41, 186.96, -488.64, 0.86)
pt3dadd(64.8, 189.39, -488.64, 0.86)
pt3dadd(64.93, 189.76, -489.04, 0.86)
pt3dadd(67.35, 194.39, -490.34, 0.86)
pt3dadd(67.6, 194.88, -490.69, 0.86)
pt3dadd(69.01, 197.55, -492.19, 0.86)
pt3dadd(69.26, 197.92, -492.24, 0.86)
pt3dadd(71.29, 201.57, -492.24, 0.86)
pt3dadd(71.42, 201.81, -492.24, 0.86)
pt3dadd(72.68, 203.88, -492.29, 0.86)
pt3dadd(73.31, 204.36, -492.29, 0.86)
pt3dadd(73.68, 204.72, -492.29, 0.86)
pt3dadd(76.07, 207.26, -492.29, 0.86)
pt3dadd(76.07, 207.51, -492.34, 0.86)
pt3dadd(75.27, 211.21, -492.34, 0.86)
pt3dadd(75.16, 211.46, -492.34, 0.86)
pt3dadd(75.16, 211.58, -492.34, 0.86)
pt3dadd(76.19, 214.26, -496.84, 0.86)
pt3dadd(76.2, 214.63, -496.84, 0.86)
pt3dadd(76.36, 217.21, -496.84, 0.86)
pt3dadd(76.37, 217.7, -496.84, 0.86)
pt3dadd(77.17, 221.25, -496.84, 0.86)
pt3dadd(77.42, 221.37, -496.84, 0.86)
pt3dadd(77.67, 221.49, -496.84, 0.86)
pt3dadd(79.8, 223.79, -496.84, 0.86)
pt3dadd(79.6, 226.7, -501.49, 0.86)
pt3dadd(79.73, 226.95, -501.49, 0.86)
pt3dadd(81.85, 228.63, -501.49, 0.86)
pt3dadd(81.97, 228.63, -501.49, 0.86)
pt3dadd(83.47, 229.71, -501.49, 0.86)
pt3dadd(83.85, 230.44, -501.59, 0.86)
pt3dadd(83.97, 230.43, -501.59, 0.86)
pt3dadd(84.87, 232.26, -502.29, 0.86)
pt3dadd(84.87, 232.51, -502.44, 0.86)
pt3dadd(85.68, 236.67, -502.49, 0.86)
pt3dadd(85.34, 238.4, -502.49, 0.86)
pt3dadd(85.35, 238.77, -502.49, 0.86)
pt3dadd(89.46, 241.64, -504.29, 0.86)
pt3dadd(89.83, 241.64, -504.39, 0.86)
pt3dadd(90.95, 242.11, -504.39, 0.86)
}
apic[15] {pt3dclear()
pt3dadd(90.95, 242.11, -504.39, 0.86)
pt3dadd(92.23, 242.4, -499.89, 0.98)
pt3dadd(91.99, 242.78, -499.89, 0.98)
pt3dadd(91.29, 244.76, -499.89, 0.62)
pt3dadd(91.29, 244.88, -499.89, 0.62)
pt3dadd(90.45, 246.37, -499.89, 0.62)
pt3dadd(90.34, 246.61, -499.89, 0.62)
pt3dadd(90.21, 246.62, -499.89, 0.62)
pt3dadd(89.12, 247.25, -506.74, 0.62)
pt3dadd(89, 247.38, -506.69, 0.62)
pt3dadd(88.79, 249.59, -506.69, 0.62)
pt3dadd(88.8, 250.21, -506.64, 0.62)
pt3dadd(88.82, 251.19, -506.59, 0.62)
pt3dadd(88.69, 251.19, -506.59, 0.62)
pt3dadd(86.73, 251.72, -506.59, 0.62)
pt3dadd(86.37, 251.97, -506.59, 0.62)
pt3dadd(85.89, 252.96, -506.59, 0.62)
pt3dadd(85.9, 253.2, -506.59, 0.62)
pt3dadd(86.03, 253.57, -506.59, 0.62)
pt3dadd(86.66, 254.67, -506.59, 0.62)
pt3dadd(86.8, 255.4, -506.59, 0.62)
pt3dadd(86.8, 255.52, -506.59, 0.62)
pt3dadd(86.7, 256.75, -506.59, 0.62)
pt3dadd(86.96, 257.86, -506.39, 0.62)
pt3dadd(86.97, 258.22, -506.39, 0.62)
pt3dadd(87.13, 260.31, -506.39, 0.62)
pt3dadd(86.89, 260.81, -506.39, 0.62)
pt3dadd(83.86, 263.56, -506.39, 0.62)
pt3dadd(84, 264.3, -506.39, 0.62)
pt3dadd(85.28, 267.22, -507.84, 0.62)
pt3dadd(85.17, 267.72, -507.94, 0.62)
pt3dadd(84.48, 270.8, -508.04, 0.62)
pt3dadd(84.49, 271.54, -508.04, 0.62)
pt3dadd(83.58, 275.86, -508.04, 0.62)
pt3dadd(83.59, 276.35, -508.04, 0.62)
pt3dadd(84.01, 278.92, -508.04, 0.62)
pt3dadd(84.27, 279.78, -508.29, 0.62)
pt3dadd(83.44, 281.63, -509.09, 0.62)
pt3dadd(83.11, 283.97, -509.09, 0.62)
pt3dadd(83.12, 284.22, -509.09, 0.62)
pt3dadd(81.94, 287.56, -509.09, 0.62)
pt3dadd(80.58, 290.37, -510.89, 0.62)
pt3dadd(80.47, 291.11, -510.94, 0.62)
pt3dadd(80.48, 291.48, -510.94, 0.62)
pt3dadd(80.27, 293.69, -510.89, 0.62)
pt3dadd(79.79, 294.44, -510.89, 0.62)
pt3dadd(79.08, 295.68, -510.94, 0.62)
pt3dadd(78.72, 296.43, -510.94, 0.62)
pt3dadd(77.9, 298.9, -510.94, 0.62)
pt3dadd(77.67, 299.64, -511.09, 0.62)
pt3dadd(76.71, 301.38, -511.99, 0.62)
pt3dadd(76.71, 301.38, -512.24, 0.62)
pt3dadd(75.66, 304.47, -513.64, 0.62)
pt3dadd(75.66, 304.59, -513.64, 0.62)
pt3dadd(75.55, 305.45, -515.69, 0.62)
pt3dadd(75.56, 305.57, -515.69, 0.62)
}
apic[16] {pt3dclear()
pt3dadd(75.56, 305.57, -515.69, 0.62)
pt3dadd(75.44, 306.06, -511.89, 0.62)
pt3dadd(74.73, 307.43, -511.89, 0.62)
pt3dadd(74.37, 308.05, -512.09, 0.62)
pt3dadd(72.95, 311.51, -513.89, 0.62)
pt3dadd(72.95, 311.76, -513.89, 0.62)
pt3dadd(72.84, 312.01, -513.89, 0.62)
pt3dadd(71.89, 314.48, -513.89, 0.62)
pt3dadd(71.66, 314.98, -513.89, 0.62)
pt3dadd(71.21, 317.56, -513.89, 0.62)
pt3dadd(71.23, 318.42, -513.89, 0.62)
pt3dadd(71.29, 321.86, -513.89, 0.62)
pt3dadd(70.56, 322.37, -513.89, 0.62)
pt3dadd(68.74, 324.24, -513.89, 0.62)
pt3dadd(68.75, 324.49, -513.89, 0.62)
pt3dadd(67.81, 327.45, -513.94, 0.62)
pt3dadd(67.46, 328.32, -513.94, 0.62)
pt3dadd(65.78, 330.56, -513.94, 0.62)
pt3dadd(65.18, 331.56, -513.89, 0.62)
pt3dadd(65.06, 331.68, -513.89, 0.62)
pt3dadd(63.87, 334.16, -513.89, 0.62)
pt3dadd(63.51, 334.78, -513.89, 0.62)
pt3dadd(61.47, 337.76, -513.89, 0.62)
pt3dadd(61.12, 338.51, -513.89, 0.62)
pt3dadd(59.21, 342.1, -516.64, 0.62)
pt3dadd(59.21, 342.35, -516.69, 0.62)
pt3dadd(59.09, 342.6, -516.69, 0.62)
pt3dadd(58.03, 345.07, -516.79, 0.62)
pt3dadd(57.68, 345.94, -517.44, 0.62)
pt3dadd(57.48, 348.77, -518.59, 0.62)
pt3dadd(57.5, 349.75, -518.59, 0.62)
pt3dadd(56.07, 352.73, -518.94, 0.62)
}
}
proc shape3d_9() {
apic[16] { pt3dadd(55.83, 353.22, -519.74, 0.62)
pt3dadd(54.42, 356.69, -519.99, 0.62)
pt3dadd(54.3, 357.06, -519.99, 0.62)
pt3dadd(54.31, 357.55, -519.99, 0.62)
pt3dadd(53.86, 360.02, -520.24, 0.62)
pt3dadd(53.62, 360.63, -520.59, 0.62)
pt3dadd(53.5, 360.64, -520.59, 0.62)
pt3dadd(52.21, 363.98, -522.64, 0.62)
pt3dadd(52.09, 364.1, -522.64, 0.62)
pt3dadd(50.78, 366.83, -524.69, 0.62)
pt3dadd(50.66, 367.08, -524.69, 0.62)
pt3dadd(47.88, 370.07, -525.19, 0.62)
pt3dadd(47.27, 370.33, -525.69, 0.62)
pt3dadd(45.81, 371.21, -525.89, 0.62)
pt3dadd(44.96, 372.09, -525.89, 0.62)
pt3dadd(42.65, 373.73, -525.89, 0.62)
pt3dadd(42.3, 374.35, -525.89, 0.62)
pt3dadd(41.46, 376.08, -527.39, 0.62)
pt3dadd(41.47, 376.21, -527.39, 0.62)
}
apic[17] {pt3dclear()
pt3dadd(75.56, 305.57, -515.69, 0.62)
pt3dadd(76.73, 309.24, -515.69, 0.62)
pt3dadd(76.86, 309.85, -515.69, 0.62)
pt3dadd(77.31, 314.14, -515.69, 0.62)
pt3dadd(77.32, 314.76, -515.69, 0.62)
pt3dadd(78.08, 315.97, -515.69, 0.62)
pt3dadd(78.22, 317.08, -515.69, 0.62)
pt3dadd(77.53, 320.04, -515.69, 0.62)
pt3dadd(77.42, 320.66, -515.69, 0.62)
pt3dadd(77.42, 320.78, -515.69, 0.62)
pt3dadd(77.11, 324.1, -515.69, 0.62)
pt3dadd(77, 324.72, -515.69, 0.62)
pt3dadd(76.9, 326.44, -518.39, 0.62)
pt3dadd(77.04, 326.93, -518.39, 0.62)
pt3dadd(78.06, 329, -518.39, 0.62)
pt3dadd(78.06, 329.12, -518.39, 0.62)
pt3dadd(76.24, 330.51, -519.19, 0.62)
pt3dadd(76.24, 330.75, -519.64, 0.62)
pt3dadd(76.04, 333.46, -519.99, 0.62)
pt3dadd(76.04, 333.46, -520.39, 0.62)
pt3dadd(75.45, 334.69, -520.54, 0.62)
pt3dadd(75.45, 334.82, -520.54, 0.62)
pt3dadd(75.62, 337.39, -520.64, 0.62)
pt3dadd(75.62, 337.76, -521.04, 0.62)
pt3dadd(75.65, 339.48, -521.84, 0.62)
pt3dadd(75.78, 339.85, -521.84, 0.62)
pt3dadd(76.3, 341.44, -521.89, 0.62)
pt3dadd(76.43, 341.68, -522.94, 0.62)
pt3dadd(76.56, 342.05, -522.94, 0.62)
pt3dadd(77.07, 343.27, -524.34, 0.62)
pt3dadd(77.2, 343.51, -524.34, 0.62)
pt3dadd(78.96, 345.81, -524.59, 0.62)
pt3dadd(79.09, 346.18, -525.14, 0.62)
pt3dadd(78.03, 348.66, -526.44, 0.62)
pt3dadd(78.03, 348.9, -526.44, 0.62)
pt3dadd(77.93, 350.13, -528.34, 0.62)
pt3dadd(77.81, 350.38, -529.19, 0.62)
pt3dadd(77.82, 350.87, -529.19, 0.62)
pt3dadd(77.97, 352.1, -529.24, 0.62)
pt3dadd(77.73, 352.84, -529.24, 0.62)
pt3dadd(77.74, 353.09, -529.24, 0.62)
pt3dadd(77.5, 353.83, -529.24, 0.62)
pt3dadd(77.53, 355.06, -529.24, 0.62)
pt3dadd(77.67, 356.04, -529.39, 0.62)
pt3dadd(77.92, 356.77, -529.44, 0.62)
pt3dadd(77.93, 357.01, -529.49, 0.62)
pt3dadd(77.09, 358.14, -529.74, 0.62)
pt3dadd(76.97, 358.26, -529.94, 0.62)
pt3dadd(76.24, 358.89, -530.49, 0.62)
pt3dadd(76.12, 359.38, -530.64, 0.62)
pt3dadd(77.75, 360.83, -530.69, 0.62)
pt3dadd(78.13, 361.31, -530.74, 0.62)
pt3dadd(78.64, 362.53, -531.44, 0.62)
pt3dadd(78.64, 362.65, -531.69, 0.62)
pt3dadd(77.31, 363.78, -531.79, 0.62)
pt3dadd(77.19, 363.79, -531.79, 0.62)
pt3dadd(76.73, 365.76, -534.04, 0.62)
pt3dadd(76.73, 366.01, -534.04, 0.62)
pt3dadd(75.69, 369.46, -536.34, 0.62)
pt3dadd(75.56, 369.47, -536.54, 0.62)
}
apic[18] {pt3dclear()
pt3dadd(90.95, 242.11, -504.39, 0.86)
pt3dadd(93.15, 241.46, -504.44, 0.86)
pt3dadd(93.39, 241.33, -505.09, 0.86)
pt3dadd(98.68, 240.75, -507.04, 0.86)
pt3dadd(100.4, 240.72, -507.04, 0.86)
pt3dadd(104.95, 240.76, -507.09, 0.86)
pt3dadd(107.66, 240.71, -507.24, 0.86)
pt3dadd(117.86, 239.92, -508.74, 0.86)
pt3dadd(118.11, 239.92, -508.74, 0.86)
pt3dadd(126.25, 241.25, -510.44, 0.86)
pt3dadd(127.49, 241.72, -510.44, 0.86)
pt3dadd(131.83, 243.73, -510.44, 0.62)
pt3dadd(131.96, 243.85, -510.44, 0.62)
pt3dadd(136.17, 245.62, -510.44, 0.62)
pt3dadd(137.16, 245.97, -510.44, 0.62)
pt3dadd(140.76, 247.51, -510.44, 0.62)
pt3dadd(143.24, 248.57, -510.44, 0.62)
pt3dadd(146.11, 251.1, -510.44, 0.62)
pt3dadd(146.62, 251.83, -510.44, 0.62)
pt3dadd(146.87, 252.07, -510.44, 0.62)
pt3dadd(149.05, 256.95, -510.44, 0.62)
pt3dadd(153.41, 259.33, -510.39, 0.62)
pt3dadd(153.54, 259.33, -510.39, 0.62)
pt3dadd(155.06, 262.25, -510.39, 0.62)
pt3dadd(154.83, 262.87, -510.39, 0.62)
pt3dadd(154.83, 262.99, -510.39, 0.62)
pt3dadd(154.74, 265.08, -510.39, 0.62)
pt3dadd(155.12, 265.44, -510.39, 0.62)
pt3dadd(155.37, 265.68, -510.39, 0.62)
pt3dadd(157.62, 267.98, -510.39, 0.62)
pt3dadd(157.87, 268.22, -510.39, 0.62)
pt3dadd(159.39, 270.53, -510.54, 0.62)
pt3dadd(159.89, 271.01, -510.84, 0.62)
pt3dadd(162.78, 274.28, -512.59, 0.62)
pt3dadd(163.03, 274.52, -513.44, 0.62)
pt3dadd(163.04, 274.89, -513.44, 0.62)
pt3dadd(163.81, 277.09, -513.74, 0.62)
pt3dadd(163.94, 277.21, -513.74, 0.62)
pt3dadd(164.56, 277.56, -513.74, 0.62)
pt3dadd(167.55, 279.48, -515.44, 0.62)
pt3dadd(167.8, 279.6, -515.44, 0.62)
pt3dadd(168.8, 280.81, -515.49, 0.62)
pt3dadd(169.17, 280.92, -515.49, 0.62)
pt3dadd(170.43, 282.25, -516.14, 0.62)
pt3dadd(170.55, 282.5, -516.14, 0.62)
pt3dadd(170.58, 284.22, -516.14, 0.62)
pt3dadd(170.71, 284.46, -516.24, 0.62)
pt3dadd(171.72, 285.67, -516.79, 0.62)
pt3dadd(171.96, 285.79, -516.79, 0.62)
pt3dadd(172.11, 287.02, -516.79, 0.62)
pt3dadd(172.11, 287.26, -516.79, 0.62)
pt3dadd(172.01, 288.49, -516.79, 0.62)
pt3dadd(172.39, 288.73, -516.79, 0.62)
pt3dadd(174.42, 292.51, -516.79, 0.62)
pt3dadd(174.68, 293.49, -516.79, 0.62)
pt3dadd(175.08, 295.32, -516.79, 0.62)
pt3dadd(175.09, 295.44, -517.04, 0.62)
pt3dadd(176.21, 296.41, -519.64, 0.62)
pt3dadd(176.22, 296.65, -519.89, 0.62)
pt3dadd(179.01, 301.77, -521.89, 0.62)
pt3dadd(179.26, 301.88, -521.94, 0.62)
pt3dadd(180.84, 302.78, -525.49, 0.62)
pt3dadd(181.35, 303.39, -526.14, 0.62)
pt3dadd(182.73, 304.96, -527.19, 0.62)
pt3dadd(183.24, 305.81, -527.34, 0.62)
pt3dadd(184.13, 307.88, -527.29, 0.98)
pt3dadd(184.27, 308.5, -527.29, 0.98)
pt3dadd(185.4, 309.95, -527.29, 0.98)
pt3dadd(185.65, 310.07, -527.29, 0.98)
pt3dadd(186.02, 310.19, -527.29, 0.98)
pt3dadd(187.5, 310.65, -527.29, 0.98)
pt3dadd(187.63, 310.65, -527.29, 0.98)
pt3dadd(187.92, 313.1, -528.89, 0.98)
pt3dadd(188.04, 313.22, -528.89, 0.98)
pt3dadd(189.17, 314.68, -529.39, 0.98)
pt3dadd(189.68, 315.16, -530.14, 0.98)
pt3dadd(191.55, 316.73, -530.14, 0.98)
pt3dadd(191.8, 317.09, -530.39, 0.98)
pt3dadd(192.05, 317.33, -531.14, 0.98)
pt3dadd(192.83, 319.77, -532.59, 0.98)
pt3dadd(192.96, 319.9, -534.49, 0.98)
pt3dadd(193.5, 322.84, -532.04, 0.98)
pt3dadd(193.52, 323.7, -532.04, 0.98)
pt3dadd(195.03, 325.76, -532.29, 0.98)
pt3dadd(195.03, 325.76, -532.44, 0.98)
}
dend[18] {pt3dclear()
pt3dadd(15.654, -70.772, -425.293, 1.85)
pt3dadd(12.48, -62.77, -416.44, 1.85)
pt3dadd(11.52, -61.28, -416.44, 1.85)
pt3dadd(11.28, -61.15, -416.44, 1.85)
pt3dadd(10.57, -59.54, -416.44, 1.6)
pt3dadd(10.57, -59.42, -416.44, 1.6)
pt3dadd(9.36, -57.92, -416.44, 1.6)
pt3dadd(9.12, -57.92, -416.44, 1.6)
pt3dadd(6.89, -58.37, -416.44, 1.6)
pt3dadd(6.53, -58.37, -416.44, 1.6)
pt3dadd(5.19, -57.61, -416.44, 1.6)
pt3dadd(5.06, -57.48, -416.44, 1.6)
pt3dadd(4.73, -55.75, -416.44, 1.6)
pt3dadd(4.61, -55.51, -416.44, 1.6)
pt3dadd(3.77, -54.14, -416.44, 1.6)
pt3dadd(3.4, -53.89, -416.44, 1.6)
pt3dadd(1.59, -51.89, -416.34, 1.6)
pt3dadd(0.86, -51.51, -416.34, 1.6)
pt3dadd(-0.48, -50.75, -413.64, 1.6)
pt3dadd(-0.48, -50.63, -413.64, 1.6)
pt3dadd(-1.32, -49.5, -412.99, 1.6)
}
dend[19] {pt3dclear()
pt3dadd(-1.32, -49.5, -412.99, 1.6)
pt3dadd(-3.2, -50.11, -410.44, 1.6)
pt3dadd(-2.95, -50.23, -410.44, 1.72)
pt3dadd(-2.95, -50.11, -410.44, 1.72)
pt3dadd(-5.17, -50.07, -410.44, 1.72)
pt3dadd(-5.17, -50.2, -410.44, 1.72)
pt3dadd(-6.67, -51.52, -410.44, 1.72)
pt3dadd(-7.17, -51.88, -410.44, 1.72)
pt3dadd(-7.67, -52.24, -410.44, 1.72)
pt3dadd(-8.29, -52.48, -410.44, 1.72)
pt3dadd(-8.66, -52.59, -410.44, 1.72)
pt3dadd(-10.5, -52.68, -410.44, 1.72)
pt3dadd(-12.1, -52.66, -410.44, 1.72)
pt3dadd(-13.09, -52.64, -410.44, 1.72)
pt3dadd(-14.8, -52.12, -410.44, 1.72)
}
}
proc shape3d_10() {
dend[19] { pt3dadd(-15.9, -51.73, -410.44, 1.72)
pt3dadd(-16.03, -51.73, -410.44, 1.72)
pt3dadd(-17.49, -50.84, -410.44, 1.72)
pt3dadd(-18.83, -50.08, -410.44, 1.72)
pt3dadd(-20.16, -48.58, -410.44, 1.72)
pt3dadd(-20.51, -47.96, -410.44, 1.72)
}
dend[20] {pt3dclear()
pt3dadd(-1.32, -49.5, -412.99, 1.6)
pt3dadd(-1.66, -48.15, -414.79, 1.97)
pt3dadd(-1.79, -48.14, -414.74, 1.97)
pt3dadd(-3.36, -46.64, -414.44, 1.97)
pt3dadd(-3.36, -46.52, -414.34, 1.97)
pt3dadd(-4.67, -43.92, -413.84, 1.97)
pt3dadd(-4.67, -43.79, -413.69, 1.97)
pt3dadd(-5.98, -41.68, -413.29, 1.97)
pt3dadd(-6.1, -41.56, -413.29, 1.97)
pt3dadd(-7.16, -38.84, -413.24, 1.97)
pt3dadd(-7.28, -38.59, -412.84, 1.97)
pt3dadd(-7.28, -38.46, -412.84, 1.97)
pt3dadd(-8.35, -36.48, -412.84, 1.6)
pt3dadd(-8.59, -35.86, -412.79, 1.6)
pt3dadd(-9.4, -33.14, -414.44, 1.6)
pt3dadd(-9.52, -32.77, -414.44, 1.6)
pt3dadd(-9.64, -32.52, -414.44, 1.6)
pt3dadd(-10.82, -30.05, -414.44, 1.6)
pt3dadd(-10.94, -29.8, -414.54, 1.6)
pt3dadd(-11.06, -29.43, -414.54, 1.6)
pt3dadd(-11.27, -27.09, -414.64, 1.6)
pt3dadd(-11.26, -26.84, -414.74, 1.6)
pt3dadd(-11.38, -26.72, -414.74, 1.6)
pt3dadd(-12.45, -24.37, -414.74, 1.6)
pt3dadd(-12.57, -24.24, -414.74, 1.6)
pt3dadd(-13.9, -22.87, -414.84, 1.6)
pt3dadd(-14.26, -22.49, -414.84, 1.6)
pt3dadd(-14.38, -22.49, -414.84, 1.6)
pt3dadd(-15.58, -20.38, -414.84, 1.6)
pt3dadd(-15.44, -19.28, -414.84, 1.6)
pt3dadd(-15.75, -16.2, -414.84, 1.6)
pt3dadd(-16.99, -15.46, -414.94, 1.6)
pt3dadd(-16.99, -15.34, -414.94, 1.6)
pt3dadd(-19.53, -12.96, -413.49, 1.6)
pt3dadd(-19.9, -12.71, -413.49, 1.6)
pt3dadd(-22.45, -10.82, -413.19, 1.6)
pt3dadd(-22.57, -10.45, -412.94, 1.6)
pt3dadd(-23.75, -7.85, -412.29, 1.6)
pt3dadd(-23.99, -7.35, -412.19, 1.6)
pt3dadd(-23.99, -7.23, -412.19, 1.6)
pt3dadd(-26.23, -2.03, -411.44, 1.6)
pt3dadd(-26.83, -0.91, -411.39, 1.6)
pt3dadd(-28.59, 3.79, -411.39, 1.6)
pt3dadd(-28.45, 5.14, -411.19, 1.6)
pt3dadd(-28.78, 7.23, -410.99, 1.6)
pt3dadd(-29.27, 7.61, -410.64, 1.6)
pt3dadd(-29.39, 7.61, -410.64, 1.6)
pt3dadd(-33.41, 10.14, -410.24, 1.6)
pt3dadd(-34.26, 10.65, -410.04, 1.6)
pt3dadd(-34.38, 10.65, -410.04, 1.6)
pt3dadd(-36.32, 12.28, -409.19, 1.6)
pt3dadd(-36.56, 12.77, -409.09, 1.6)
pt3dadd(-36.56, 12.9, -409.09, 1.6)
pt3dadd(-37.75, 15.13, -408.14, 1.6)
pt3dadd(-38.48, 15.76, -407.74, 1.6)
pt3dadd(-39.02, 19.82, -407.34, 1.6)
pt3dadd(-39.26, 20.32, -407.34, 1.6)
pt3dadd(-42.13, 25.28, -408.29, 1.6)
}
dend[21] {pt3dclear()
pt3dadd(15.654, -70.772, -425.293, 2.34)
pt3dadd(8.91, -75.81, -422.04, 2.34)
pt3dadd(8.53, -75.92, -422.04, 2.34)
pt3dadd(5.31, -77.46, -422.04, 2.34)
pt3dadd(5.18, -77.58, -422.04, 2.34)
pt3dadd(2.32, -79.38, -422.04, 2.34)
pt3dadd(2.2, -79.38, -422.04, 2.34)
pt3dadd(0.82, -80.95, -422.04, 2.21)
pt3dadd(0.69, -81.07, -422.04, 2.21)
pt3dadd(0.57, -81.19, -422.04, 2.21)
pt3dadd(-0.31, -82.16, -423.84, 1.72)
pt3dadd(-0.44, -82.4, -423.84, 1.72)
pt3dadd(-2.57, -84.33, -423.84, 1.72)
pt3dadd(-3.06, -84.57, -423.84, 1.72)
pt3dadd(-3.81, -85.17, -423.84, 1.72)
}
dend[22] {pt3dclear()
pt3dadd(-3.81, -85.17, -423.84, 1.72)
pt3dadd(-4.75, -86.51, -424.14, 1.23)
pt3dadd(-5.76, -88.09, -424.14, 1.23)
pt3dadd(-5.89, -88.58, -424.09, 1.23)
pt3dadd(-6.64, -89.3, -424.09, 1.23)
pt3dadd(-7.39, -89.78, -424.09, 1.23)
pt3dadd(-7.51, -89.9, -424.09, 1.23)
pt3dadd(-8.51, -90.62, -424.09, 1.23)
pt3dadd(-9.63, -91.34, -424.09, 1.23)
pt3dadd(-10.88, -92.55, -424.09, 1.23)
pt3dadd(-11.26, -93.03, -424.09, 1.23)
pt3dadd(-11.76, -93.27, -424.09, 1.23)
pt3dadd(-11.88, -93.27, -424.09, 1.23)
pt3dadd(-12.75, -93.87, -424.09, 1.23)
pt3dadd(-13.25, -94.1, -424.09, 1.23)
pt3dadd(-14.98, -94.57, -424.09, 1.23)
pt3dadd(-15.6, -94.92, -424.09, 1.23)
pt3dadd(-15.72, -94.92, -424.09, 1.23)
pt3dadd(-16.61, -96.01, -424.09, 1.23)
pt3dadd(-16.74, -96.75, -424.09, 1.23)
pt3dadd(-16.74, -96.87, -424.09, 1.23)
pt3dadd(-17.14, -98.21, -424.09, 1.23)
pt3dadd(-17.52, -99.07, -424.09, 1.23)
pt3dadd(-18.02, -99.67, -424.04, 1.23)
pt3dadd(-18.02, -99.8, -424.04, 1.23)
pt3dadd(-19.63, -100.14, -421.84, 1.23)
pt3dadd(-21.23, -100.11, -421.84, 1.23)
pt3dadd(-21.72, -100.1, -421.84, 1.23)
}
dend[23] {pt3dclear()
pt3dadd(-21.72, -100.1, -421.84, 1.23)
pt3dadd(-22.97, -101.06, -423.49, 0.86)
pt3dadd(-23.23, -101.67, -423.49, 0.86)
pt3dadd(-24, -103.75, -423.49, 0.86)
pt3dadd(-24.01, -103.99, -423.49, 0.86)
pt3dadd(-23.78, -105.47, -423.49, 0.86)
pt3dadd(-23.79, -105.72, -423.49, 0.86)
pt3dadd(-25.06, -108.03, -423.49, 0.86)
pt3dadd(-25.19, -108.64, -423.49, 0.86)
pt3dadd(-25.32, -108.76, -423.49, 0.86)
pt3dadd(-25.83, -109.98, -423.49, 0.86)
pt3dadd(-26.59, -111.2, -423.49, 0.86)
pt3dadd(-26.84, -111.44, -423.49, 0.86)
pt3dadd(-27.59, -112.16, -423.49, 0.86)
pt3dadd(-28.34, -112.52, -423.49, 0.86)
pt3dadd(-31.72, -115.65, -423.44, 0.86)
pt3dadd(-31.85, -116.02, -423.44, 0.86)
pt3dadd(-34.22, -118.31, -423.44, 0.86)
pt3dadd(-34.35, -118.56, -423.44, 0.86)
pt3dadd(-35.25, -120.51, -423.44, 0.86)
pt3dadd(-35.38, -120.87, -423.34, 0.86)
pt3dadd(-39.01, -124.74, -424.99, 0.86)
pt3dadd(-39.01, -124.87, -425.34, 0.86)
pt3dadd(-40.77, -126.68, -425.64, 0.86)
pt3dadd(-41.02, -126.92, -425.69, 0.86)
pt3dadd(-42.42, -129.48, -425.69, 0.86)
pt3dadd(-42.55, -129.96, -425.69, 0.86)
pt3dadd(-44.06, -131.78, -425.69, 0.86)
pt3dadd(-44.31, -132.02, -425.69, 0.86)
pt3dadd(-44.31, -132.15, -425.69, 0.86)
pt3dadd(-44.96, -134.22, -425.69, 0.86)
pt3dadd(-46.74, -135.79, -425.39, 0.86)
pt3dadd(-46.99, -135.91, -425.34, 0.86)
pt3dadd(-49.47, -136.98, -425.34, 0.86)
pt3dadd(-50.46, -137.33, -425.34, 0.86)
pt3dadd(-52.46, -139.01, -425.29, 0.86)
pt3dadd(-52.47, -139.38, -425.24, 0.86)
pt3dadd(-54.17, -145.37, -425.24, 0.86)
pt3dadd(-54.81, -146.47, -425.24, 0.86)
pt3dadd(-56.08, -148.66, -425.19, 0.86)
pt3dadd(-56.2, -149.02, -425.19, 0.86)
pt3dadd(-56.01, -151.73, -425.19, 0.86)
pt3dadd(-56.02, -152.59, -425.19, 0.86)
pt3dadd(-57.55, -155.63, -425.14, 0.86)
pt3dadd(-57.8, -156, -425.19, 0.86)
pt3dadd(-58.71, -158.69, -425.14, 0.86)
pt3dadd(-58.84, -159.05, -425.14, 0.86)
pt3dadd(-59.76, -162.6, -425.09, 0.86)
pt3dadd(-59.77, -162.72, -425.09, 0.86)
pt3dadd(-60.68, -165.66, -425.04, 0.86)
pt3dadd(-60.81, -166.02, -425.04, 0.86)
pt3dadd(-62.7, -168.82, -425.04, 0.86)
pt3dadd(-62.71, -168.94, -425.04, 0.86)
pt3dadd(-62.74, -171.15, -424.84, 0.86)
pt3dadd(-62.75, -171.27, -424.84, 0.86)
pt3dadd(-62.46, -176.19, -424.84, 0.86)
pt3dadd(-62.59, -176.68, -424.84, 0.86)
pt3dadd(-62.72, -176.8, -424.84, 0.86)
pt3dadd(-65.39, -181.67, -424.24, 0.86)
pt3dadd(-65.64, -182.04, -424.14, 0.86)
pt3dadd(-68.13, -184.47, -423.49, 0.86)
pt3dadd(-68.14, -184.83, -423.44, 0.86)
pt3dadd(-69.79, -187.39, -423.44, 0.86)
pt3dadd(-70.53, -187.86, -423.49, 0.86)
pt3dadd(-74.5, -189.64, -423.29, 0.86)
pt3dadd(-74.75, -189.88, -423.14, 0.86)
pt3dadd(-74.95, -194.42, -426.24, 0.86)
pt3dadd(-74.96, -194.55, -426.24, 0.86)
pt3dadd(-76.75, -198.32, -426.24, 0.86)
pt3dadd(-77.13, -199.42, -426.24, 0.86)
pt3dadd(-80.53, -203.54, -426.24, 0.74)
pt3dadd(-80.91, -204.03, -426.24, 0.74)
pt3dadd(-82.82, -207.68, -426.24, 0.74)
pt3dadd(-82.82, -208.05, -426.24, 0.74)
pt3dadd(-82.99, -210.38, -426.24, 0.74)
pt3dadd(-83.24, -210.62, -426.34, 0.74)
pt3dadd(-86.12, -213.89, -427.19, 0.74)
pt3dadd(-88.17, -218.03, -428.54, 0.74)
pt3dadd(-90.09, -222.54, -430.79, 0.74)
pt3dadd(-90.09, -222.67, -430.74, 0.74)
pt3dadd(-91.63, -226.33, -430.79, 0.74)
pt3dadd(-91.76, -226.45, -430.79, 0.74)
pt3dadd(-91.76, -226.69, -430.79, 0.74)
pt3dadd(-93.4, -228.63, -430.79, 0.74)
pt3dadd(-93.77, -228.75, -430.79, 0.74)
pt3dadd(-96.15, -232.44, -430.74, 0.74)
pt3dadd(-96.16, -232.68, -430.79, 0.74)
pt3dadd(-98.07, -236.33, -430.79, 0.74)
}
dend[24] {pt3dclear()
pt3dadd(-98.07, -236.33, -430.79, 0.74)
pt3dadd(-97.66, -237.9, -430.89, 0.25)
pt3dadd(-98.39, -237.15, -430.89, 1.11)
pt3dadd(-98.27, -237.15, -430.89, 1.11)
pt3dadd(-97.97, -241.21, -430.89, 1.11)
}
}
proc shape3d_11() {
dend[24] { pt3dadd(-98.76, -244.15, -428.84, 1.11)
pt3dadd(-99.05, -246.97, -428.74, 0.86)
pt3dadd(-99.06, -247.46, -428.74, 0.86)
pt3dadd(-101, -252.71, -427.29, 0.86)
pt3dadd(-101.38, -253.44, -427.29, 0.86)
pt3dadd(-103.8, -258.07, -427.54, 0.86)
pt3dadd(-103.93, -258.43, -427.69, 0.86)
pt3dadd(-104.06, -258.68, -427.74, 0.86)
pt3dadd(-105.69, -260.61, -428.64, 0.86)
pt3dadd(-106.19, -261.22, -428.89, 0.86)
pt3dadd(-106.44, -261.34, -428.94, 0.86)
pt3dadd(-107.47, -263.53, -425.84, 0.86)
pt3dadd(-107.47, -263.9, -425.69, 0.86)
pt3dadd(-107.41, -267.22, -424.89, 0.86)
pt3dadd(-107.29, -267.47, -424.89, 0.86)
}
dend[25] {pt3dclear()
pt3dadd(-98.07, -236.33, -430.79, 0.74)
pt3dadd(-101.16, -237.51, -430.79, 0.74)
pt3dadd(-101.67, -237.99, -430.79, 0.74)
pt3dadd(-103.35, -243.12, -430.69, 0.49)
pt3dadd(-103.48, -243.49, -430.69, 0.49)
pt3dadd(-104.49, -244.95, -430.69, 0.49)
pt3dadd(-105.51, -246.53, -430.69, 0.49)
pt3dadd(-107.41, -249.81, -430.64, 0.49)
pt3dadd(-107.55, -250.67, -430.64, 0.49)
pt3dadd(-107.55, -250.79, -430.64, 0.49)
pt3dadd(-108.58, -253.35, -430.64, 0.49)
pt3dadd(-108.71, -254.09, -430.64, 0.49)
pt3dadd(-108.84, -254.09, -430.64, 0.49)
pt3dadd(-110.23, -256.4, -430.59, 0.49)
pt3dadd(-110.36, -256.64, -430.59, 0.49)
pt3dadd(-114.39, -261.85, -430.59, 0.25)
pt3dadd(-114.64, -262.34, -430.59, 0.25)
pt3dadd(-116.04, -265.02, -430.59, 0.25)
pt3dadd(-116.3, -265.38, -430.59, 0.25)
pt3dadd(-117.93, -267.32, -430.59, 0.25)
pt3dadd(-118.18, -267.56, -430.59, 0.25)
pt3dadd(-120.47, -271.7, -431.64, 0.25)
pt3dadd(-120.72, -272.19, -431.69, 0.25)
pt3dadd(-123.72, -274.96, -432.04, 0.25)
pt3dadd(-123.85, -275.21, -432.04, 0.25)
pt3dadd(-124.67, -277.64, -432.44, 0.25)
pt3dadd(-124.68, -278.13, -432.44, 0.25)
pt3dadd(-125.44, -279.35, -432.44, 0.25)
pt3dadd(-125.95, -280.57, -432.44, 0.25)
pt3dadd(-126.21, -281.05, -432.44, 0.25)
pt3dadd(-126.34, -281.66, -432.44, 0.25)
pt3dadd(-126.47, -282.28, -432.44, 0.25)
pt3dadd(-126.73, -283.01, -432.44, 0.25)
pt3dadd(-126.76, -284.48, -432.44, 0.25)
pt3dadd(-127.55, -287.54, -432.44, 0.25)
pt3dadd(-128.2, -289.25, -432.44, 0.25)
pt3dadd(-128.71, -290.47, -432.44, 0.25)
pt3dadd(-128.96, -290.83, -432.44, 0.25)
pt3dadd(-129.1, -291.94, -432.44, 0.25)
pt3dadd(-129.14, -293.78, -432.44, 0.25)
pt3dadd(-129.52, -294.51, -432.44, 0.25)
pt3dadd(-130.03, -295.49, -432.44, 0.25)
pt3dadd(-130.66, -296.46, -432.44, 0.25)
pt3dadd(-131.29, -297.31, -432.44, 0.25)
pt3dadd(-131.54, -297.79, -432.44, 0.25)
pt3dadd(-132.05, -298.77, -432.44, 0.25)
pt3dadd(-132.44, -299.5, -432.44, 0.25)
pt3dadd(-133.32, -300.59, -432.44, 0.25)
pt3dadd(-134.19, -301.19, -432.44, 0.25)
pt3dadd(-135.56, -302.02, -432.44, 0.25)
pt3dadd(-136.92, -302.62, -432.44, 0.25)
pt3dadd(-137.42, -302.85, -432.44, 0.25)
pt3dadd(-138.53, -303.45, -432.44, 0.25)
pt3dadd(-139.55, -305.27, -432.44, 0.25)
pt3dadd(-139.68, -305.88, -432.44, 0.25)
pt3dadd(-139.82, -306.5, -432.44, 0.25)
pt3dadd(-139.96, -307.48, -432.44, 0.25)
pt3dadd(-140.34, -308.45, -432.44, 0.25)
pt3dadd(-140.84, -308.57, -432.44, 0.25)
pt3dadd(-141.71, -309.17, -432.44, 0.25)
pt3dadd(-142.45, -309.28, -432.44, 0.25)
pt3dadd(-143.32, -309.63, -432.44, 0.25)
pt3dadd(-143.69, -309.87, -432.44, 0.25)
pt3dadd(-144.44, -310.35, -432.44, 0.25)
pt3dadd(-144.94, -310.59, -432.44, 0.25)
pt3dadd(-145.56, -310.94, -432.44, 0.25)
pt3dadd(-145.93, -311.18, -432.44, 0.25)
pt3dadd(-146.31, -311.54, -432.44, 0.25)
pt3dadd(-146.69, -312.15, -432.44, 0.25)
pt3dadd(-146.81, -312.4, -432.44, 0.25)
pt3dadd(-147.31, -312.63, -432.44, 0.25)
pt3dadd(-147.56, -313.12, -432.44, 0.25)
pt3dadd(-147.69, -313.24, -432.44, 0.25)
pt3dadd(-147.68, -312.5, -432.44, 0.25)
pt3dadd(-148.21, -314.71, -432.74, 0.25)
pt3dadd(-148.84, -315.43, -432.74, 0.25)
pt3dadd(-149.21, -315.92, -432.74, 0.25)
pt3dadd(-149.85, -317.14, -432.74, 0.25)
pt3dadd(-150.1, -317.62, -432.74, 0.25)
pt3dadd(-150.61, -318.47, -432.74, 0.25)
pt3dadd(-150.99, -318.96, -432.74, 0.25)
pt3dadd(-151.24, -319.32, -432.74, 0.25)
pt3dadd(-151.49, -319.69, -432.74, 0.25)
pt3dadd(-152.01, -320.78, -432.74, 0.25)
pt3dadd(-152.13, -320.78, -432.74, 0.25)
pt3dadd(-152.75, -322.13, -431.79, 0.25)
pt3dadd(-152.88, -322.25, -431.84, 0.25)
pt3dadd(-154.98, -323.19, -431.79, 0.25)
pt3dadd(-156.34, -323.29, -431.79, 0.25)
pt3dadd(-156.59, -323.29, -431.79, 0.25)
pt3dadd(-158.32, -323.87, -431.79, 0.25)
pt3dadd(-158.94, -324.35, -431.79, 0.25)
pt3dadd(-160.07, -325.32, -431.79, 0.25)
pt3dadd(-160.45, -326.05, -431.84, 0.25)
pt3dadd(-160.45, -326.17, -431.79, 0.25)
pt3dadd(-161.34, -327.87, -431.84, 0.25)
pt3dadd(-161.6, -328.48, -431.84, 0.25)
pt3dadd(-161.86, -329.09, -431.84, 0.25)
pt3dadd(-162.11, -329.46, -431.84, 0.25)
pt3dadd(-162.86, -330.31, -431.84, 0.25)
pt3dadd(-162.86, -330.18, -431.84, 0.25)
}
dend[26] {pt3dclear()
pt3dadd(-21.72, -100.1, -421.84, 1.23)
pt3dadd(-22.95, -99.96, -421.79, 1.23)
pt3dadd(-23.07, -99.83, -421.79, 1.23)
pt3dadd(-24.42, -99.68, -420.39, 1.23)
pt3dadd(-25.31, -101.14, -420.39, 1.23)
pt3dadd(-25.44, -101.39, -420.39, 1.23)
pt3dadd(-26.93, -102.47, -420.39, 1.23)
pt3dadd(-27.06, -102.59, -420.39, 1.23)
pt3dadd(-28.54, -103.18, -420.39, 1.23)
pt3dadd(-28.79, -103.29, -420.44, 1.23)
pt3dadd(-29.04, -103.29, -420.44, 1.23)
pt3dadd(-31.97, -101.89, -419.49, 1.23)
pt3dadd(-32.21, -101.76, -419.49, 1.23)
pt3dadd(-32.46, -101.63, -419.49, 1.23)
pt3dadd(-34.05, -101.36, -419.49, 1.23)
pt3dadd(-34.18, -101.48, -419.49, 1.23)
pt3dadd(-34.3, -101.48, -419.49, 1.23)
pt3dadd(-35.79, -102.19, -419.49, 1.23)
pt3dadd(-36.16, -102.43, -419.49, 1.23)
pt3dadd(-36.41, -102.42, -419.49, 1.23)
pt3dadd(-39.49, -102.62, -419.49, 1.23)
pt3dadd(-39.74, -102.73, -418.99, 1.23)
pt3dadd(-42.22, -103.8, -416.34, 1.23)
pt3dadd(-42.71, -104.03, -415.94, 1.23)
pt3dadd(-44.82, -104.98, -415.24, 1.23)
pt3dadd(-45.45, -105.58, -415.14, 1.23)
pt3dadd(-46.45, -106.43, -415.09, 1.23)
pt3dadd(-47.19, -106.78, -415.09, 1.23)
pt3dadd(-47.31, -106.78, -415.04, 1.23)
pt3dadd(-48.43, -107.38, -414.69, 1.23)
pt3dadd(-48.93, -107.49, -414.09, 1.23)
pt3dadd(-49.17, -107.49, -414.09, 1.23)
pt3dadd(-50.28, -107.47, -413.39, 1.23)
pt3dadd(-50.65, -107.46, -412.14, 1.23)
pt3dadd(-51.88, -107.44, -412.14, 1.23)
pt3dadd(-52.25, -107.55, -411.84, 1.23)
pt3dadd(-53.6, -107.29, -410.54, 1.23)
pt3dadd(-53.72, -107.28, -410.49, 1.23)
pt3dadd(-55.8, -106.63, -409.99, 1.23)
pt3dadd(-56.29, -106.62, -409.29, 1.23)
pt3dadd(-57.8, -108.19, -408.99, 1.23)
pt3dadd(-57.92, -108.32, -408.59, 1.23)
pt3dadd(-60.86, -107.4, -407.54, 1.23)
pt3dadd(-61.35, -107.4, -407.54, 1.23)
pt3dadd(-62.58, -107.37, -407.49, 1.23)
pt3dadd(-62.83, -107.37, -407.49, 1.23)
pt3dadd(-64.78, -106.35, -407.49, 1.23)
pt3dadd(-64.78, -106.23, -407.44, 1.23)
pt3dadd(-66.73, -105.21, -407.44, 1.23)
pt3dadd(-67.11, -105.94, -407.44, 1.23)
pt3dadd(-69.22, -106.64, -407.29, 1.23)
}
dend[27] {pt3dclear()
pt3dadd(-3.81, -85.17, -423.84, 1.72)
pt3dadd(-4.8, -85.4, -423.84, 1.48)
pt3dadd(-4.92, -85.39, -423.84, 1.48)
pt3dadd(-6.9, -85.85, -423.84, 1.48)
pt3dadd(-7.15, -85.97, -423.84, 1.48)
pt3dadd(-8.66, -88.16, -423.84, 1.11)
pt3dadd(-9.29, -88.64, -423.84, 1.11)
pt3dadd(-9.96, -88.75, -423.74, 1.11)
pt3dadd(-11.44, -89.34, -423.74, 1.11)
pt3dadd(-11.57, -89.59, -423.74, 1.11)
pt3dadd(-12.58, -90.92, -423.74, 1.11)
pt3dadd(-12.7, -90.92, -423.74, 1.11)
pt3dadd(-14.42, -90.89, -421.44, 1.11)
pt3dadd(-14.54, -90.76, -421.44, 1.11)
pt3dadd(-16.87, -90.11, -420.14, 1.11)
pt3dadd(-17.12, -90.1, -419.69, 1.11)
pt3dadd(-19.2, -89.7, -418.49, 1.11)
pt3dadd(-19.57, -89.69, -418.44, 1.11)
pt3dadd(-20.92, -89.18, -418.44, 1.11)
pt3dadd(-21.04, -89.05, -417.74, 1.11)
pt3dadd(-21.76, -88.3, -417.19, 1.11)
pt3dadd(-21.88, -88.18, -417.19, 1.11)
pt3dadd(-23.84, -87.41, -416.84, 1.11)
pt3dadd(-25.06, -87.02, -416.39, 1.11)
pt3dadd(-26.9, -86.49, -416.34, 1.11)
pt3dadd(-27.64, -86.48, -416.34, 1.11)
pt3dadd(-29.6, -86.08, -416.34, 1.11)
pt3dadd(-30.46, -85.94, -416.34, 1.11)
pt3dadd(-30.58, -85.94, -416.34, 1.11)
pt3dadd(-31.69, -86.04, -416.34, 1.11)
pt3dadd(-32.06, -86.03, -416.14, 1.11)
pt3dadd(-34.13, -84.89, -415.44, 1.11)
pt3dadd(-34.62, -84.76, -415.44, 1.11)
}
}
proc shape3d_12() {
dend[27] { pt3dadd(-34.75, -84.76, -415.44, 1.11)
pt3dadd(-35.85, -84.62, -415.04, 1.11)
pt3dadd(-36.22, -84.49, -414.94, 1.11)
pt3dadd(-36.34, -84.48, -414.94, 1.11)
pt3dadd(-38.91, -83.46, -414.79, 1.11)
pt3dadd(-39.52, -83.2, -414.79, 1.11)
pt3dadd(-40.75, -83.18, -414.74, 1.11)
pt3dadd(-40.87, -83.18, -414.74, 1.11)
pt3dadd(-42.19, -81.06, -414.29, 1.11)
pt3dadd(-42.31, -80.82, -414.29, 1.11)
pt3dadd(-42.91, -80.19, -414.29, 1.35)
pt3dadd(-43.28, -80.06, -414.29, 1.35)
pt3dadd(-45.48, -79.29, -412.29, 1.35)
pt3dadd(-45.73, -79.28, -412.29, 1.35)
pt3dadd(-46.46, -79.02, -412.29, 2.21)
pt3dadd(-46.58, -78.9, -412.29, 2.21)
pt3dadd(-47.43, -78.27, -412.29, 2.21)
pt3dadd(-47.92, -78.14, -412.29, 2.21)
pt3dadd(-49.89, -77.98, -412.29, 2.21)
pt3dadd(-51.22, -76.61, -412.29, 2.21)
pt3dadd(-51.34, -76.48, -412.29, 2.21)
pt3dadd(-51.8, -74.63, -412.29, 2.21)
pt3dadd(-51.8, -74.51, -412.24, 2.21)
pt3dadd(-53.13, -73.62, -410.69, 2.21)
pt3dadd(-53.75, -73.61, -410.69, 2.21)
pt3dadd(-55.6, -73.7, -410.69, 2.21)
pt3dadd(-55.72, -73.7, -410.69, 2.21)
pt3dadd(-58.17, -73.04, -409.44, 2.21)
pt3dadd(-58.17, -72.92, -409.34, 2.21)
pt3dadd(-58.03, -71.82, -409.19, 2.21)
pt3dadd(-58.03, -71.82, -408.84, 2.21)
pt3dadd(-59.59, -69.82, -408.49, 1.85)
pt3dadd(-62.17, -69.66, -408.54, 1.6)
pt3dadd(-63.75, -68.65, -408.49, 1.97)
}
dend[28] {pt3dclear()
pt3dadd(15.654, -70.772, -425.293, 1.48)
pt3dadd(21.59, -76.95, -427.59, 1.48)
pt3dadd(21.83, -77.2, -427.59, 1.48)
pt3dadd(22.44, -77.58, -427.59, 1.48)
pt3dadd(23.18, -77.96, -427.59, 1.48)
pt3dadd(24.52, -78.72, -427.59, 1.48)
pt3dadd(24.88, -79.09, -427.59, 1.48)
pt3dadd(25.35, -80.21, -427.59, 1.48)
pt3dadd(25.59, -80.7, -427.59, 1.48)
pt3dadd(25.83, -81.08, -427.59, 1.48)
pt3dadd(26.18, -81.94, -427.59, 1.48)
pt3dadd(26.66, -83.06, -427.59, 1.48)
pt3dadd(27.5, -83.93, -427.59, 1.48)
pt3dadd(29.93, -85.57, -427.59, 1.48)
pt3dadd(31.89, -86.22, -427.59, 1.48)
pt3dadd(32.99, -86.85, -427.59, 1.48)
pt3dadd(33.48, -87.11, -427.59, 1.48)
pt3dadd(34.09, -87.24, -427.59, 1.48)
pt3dadd(35.07, -87.26, -427.59, 1.11)
pt3dadd(35.55, -88, -427.59, 1.11)
pt3dadd(36.5, -89.86, -427.59, 1.11)
pt3dadd(36.98, -90.73, -427.59, 1.11)
pt3dadd(37.7, -92.1, -427.59, 1.11)
pt3dadd(38.91, -93.1, -427.59, 1.11)
pt3dadd(39.89, -93.61, -427.59, 1.11)
pt3dadd(41.72, -94.01, -427.59, 1.11)
pt3dadd(42.82, -94.52, -427.59, 1.11)
pt3dadd(44.04, -95.4, -427.59, 1.11)
pt3dadd(44.4, -96.02, -427.59, 1.11)
pt3dadd(44.64, -96.39, -427.59, 1.11)
pt3dadd(45.12, -97.02, -427.59, 1.11)
pt3dadd(45.73, -97.15, -427.59, 1.11)
pt3dadd(47.69, -97.68, -427.59, 1.11)
pt3dadd(48.18, -97.69, -427.59, 1.11)
pt3dadd(49.4, -98.32, -427.59, 1.11)
pt3dadd(50.01, -98.7, -427.69, 1.11)
pt3dadd(51.99, -98.12, -430.34, 1.11)
pt3dadd(52.36, -98.37, -430.34, 1.11)
pt3dadd(53.7, -99.13, -430.34, 1.11)
pt3dadd(54.42, -100.01, -430.34, 1.11)
pt3dadd(55.64, -100.64, -430.34, 1.11)
pt3dadd(56.35, -102.01, -436.49, 1.11)
pt3dadd(56.47, -102.25, -436.49, 1.11)
pt3dadd(56.71, -102.63, -436.49, 1.11)
pt3dadd(56.83, -103, -436.49, 1.11)
pt3dadd(57.19, -103.5, -436.49, 1.11)
pt3dadd(57.31, -103.62, -436.49, 1.11)
pt3dadd(57.67, -104, -436.49, 1.11)
pt3dadd(58.03, -104.37, -436.49, 1.11)
}
dend[29] {pt3dclear()
pt3dadd(58.03, -104.37, -436.49, 1.11)
pt3dadd(58.26, -105.85, -436.49, 0.86)
pt3dadd(58.37, -106.22, -436.49, 0.86)
pt3dadd(58.72, -107.7, -436.49, 0.86)
pt3dadd(58.83, -108.07, -436.49, 0.86)
pt3dadd(57.34, -109.15, -436.49, 0.86)
pt3dadd(56.47, -109.26, -436.49, 0.86)
pt3dadd(56.1, -109.37, -436.49, 0.86)
pt3dadd(56.21, -110.11, -436.49, 0.86)
pt3dadd(57.3, -111.12, -436.49, 0.86)
pt3dadd(57.78, -111.74, -436.49, 0.86)
pt3dadd(58.02, -111.99, -436.49, 0.86)
pt3dadd(58.11, -114.08, -437.59, 0.86)
pt3dadd(58.1, -114.57, -437.64, 0.86)
pt3dadd(58.21, -115.56, -437.69, 0.86)
pt3dadd(58.33, -115.68, -437.79, 0.86)
pt3dadd(58.34, -116.33, -434.94, 0.62)
pt3dadd(58.57, -117.19, -434.99, 0.62)
pt3dadd(58.8, -118.43, -434.99, 0.62)
pt3dadd(59.03, -119.29, -434.99, 0.62)
pt3dadd(59.01, -120.52, -434.99, 0.62)
pt3dadd(58.6, -122.85, -434.99, 0.62)
pt3dadd(63.76, -123.43, -446.94, 0.62)
pt3dadd(64.87, -123.32, -446.94, 0.62)
pt3dadd(67.44, -125.11, -449.94, 0.62)
pt3dadd(68.31, -125.12, -449.69, 0.62)
pt3dadd(72.68, -128.03, -449.69, 0.62)
pt3dadd(73.88, -130.14, -449.69, 0.62)
pt3dadd(75.33, -131.64, -449.69, 0.62)
pt3dadd(76.91, -132.52, -449.59, 0.62)
pt3dadd(77.94, -137.09, -449.34, 0.62)
pt3dadd(78.29, -138.45, -449.34, 0.62)
pt3dadd(78.29, -138.57, -449.29, 0.62)
pt3dadd(80.09, -140.69, -451.89, 0.62)
pt3dadd(81.54, -142.56, -451.89, 0.62)
pt3dadd(83.1, -144.55, -451.89, 0.62)
pt3dadd(84.42, -146.42, -451.84, 0.62)
pt3dadd(88.44, -149.31, -454.34, 0.62)
pt3dadd(88.8, -149.44, -454.44, 0.62)
pt3dadd(93.41, -153.33, -454.39, 0.62)
pt3dadd(94.5, -154.58, -454.39, 0.62)
pt3dadd(95.23, -154.84, -463.09, 0.62)
pt3dadd(95.22, -155.58, -463.14, 0.62)
pt3dadd(95.34, -155.7, -463.14, 0.62)
}
dend[30] {pt3dclear()
pt3dadd(58.03, -104.37, -436.49, 1.11)
pt3dadd(57.7, -102.15, -432.24, 1.11)
pt3dadd(58.44, -102.17, -432.24, 1.11)
pt3dadd(59.42, -102.67, -432.24, 1.11)
pt3dadd(60.64, -103.31, -432.24, 1.11)
pt3dadd(61.61, -104.19, -432.24, 1.11)
pt3dadd(63.07, -105.07, -432.24, 1.11)
pt3dadd(64.76, -106.58, -432.24, 1.11)
pt3dadd(65.85, -108.07, -432.24, 1.11)
pt3dadd(66.56, -109.68, -432.24, 1.11)
pt3dadd(67.38, -112.03, -432.24, 1.11)
pt3dadd(67.73, -112.77, -432.24, 1.11)
pt3dadd(69.43, -114.4, -432.24, 0.86)
pt3dadd(69.67, -114.4, -432.24, 0.86)
pt3dadd(71.01, -115.41, -432.24, 0.86)
pt3dadd(72.11, -115.8, -432.24, 0.86)
pt3dadd(73.58, -116.19, -432.24, 0.86)
pt3dadd(76.76, -117.23, -432.24, 0.86)
pt3dadd(77.75, -117.25, -432.24, 0.86)
pt3dadd(79.59, -117.53, -432.24, 0.86)
}
dend[31] {pt3dclear()
pt3dadd(79.59, -117.53, -432.24, 0.86)
pt3dadd(80.47, -116.78, -436.79, 0.62)
pt3dadd(82.72, -114.85, -436.84, 0.62)
pt3dadd(86.19, -113.19, -436.89, 0.62)
pt3dadd(87.68, -112.36, -436.84, 0.62)
pt3dadd(88.93, -111.64, -436.84, 0.62)
pt3dadd(90.17, -111.05, -436.89, 0.62)
pt3dadd(91.16, -110.57, -436.84, 0.62)
pt3dadd(92.41, -109.24, -436.84, 0.62)
pt3dadd(94.05, -107.43, -436.84, 0.62)
pt3dadd(95.68, -105.61, -437.14, 0.62)
pt3dadd(96.8, -104.9, -438.69, 0.62)
pt3dadd(97.17, -104.53, -440.19, 0.62)
pt3dadd(97.3, -104.41, -440.19, 0.62)
pt3dadd(98.17, -103.81, -440.19, 0.62)
pt3dadd(98.92, -103.21, -440.19, 0.62)
pt3dadd(99.42, -102.85, -440.24, 0.62)
pt3dadd(99.79, -102.49, -440.34, 0.62)
pt3dadd(101.17, -101.16, -440.39, 0.62)
pt3dadd(103.18, -99.11, -440.44, 0.62)
pt3dadd(103.8, -98.51, -440.44, 0.62)
pt3dadd(104.43, -97.66, -440.49, 0.62)
pt3dadd(105.57, -95.71, -440.49, 0.62)
pt3dadd(106.08, -94.61, -440.49, 0.62)
pt3dadd(107.59, -93.17, -440.49, 0.62)
pt3dadd(107.59, -92.92, -440.54, 0.62)
pt3dadd(108.46, -92.57, -440.59, 0.62)
pt3dadd(110.58, -91.01, -440.64, 0.62)
pt3dadd(111.21, -89.91, -440.64, 0.62)
pt3dadd(111.72, -89.18, -440.69, 0.62)
pt3dadd(112.1, -88.58, -440.64, 0.62)
pt3dadd(113.76, -85.04, -440.69, 0.62)
pt3dadd(114.53, -83.21, -440.69, 0.62)
pt3dadd(115.05, -81.62, -440.69, 0.62)
pt3dadd(115.18, -81.26, -440.69, 0.62)
pt3dadd(115.95, -79.43, -440.69, 0.62)
pt3dadd(118.32, -70.74, -440.74, 0.62)
pt3dadd(118.44, -70.75, -440.74, 0.62)
pt3dadd(119.65, -70.32, -440.79, 0.62)
pt3dadd(120.05, -68.61, -441.29, 0.62)
pt3dadd(120.7, -67.02, -442.04, 0.62)
pt3dadd(120.82, -66.78, -442.99, 0.62)
pt3dadd(120.84, -65.92, -444.69, 0.62)
pt3dadd(121.49, -63.96, -444.69, 0.62)
pt3dadd(122.26, -62.01, -444.69, 0.62)
pt3dadd(123.19, -57.85, -444.69, 0.62)
pt3dadd(123.35, -56.13, -444.69, 0.62)
pt3dadd(123.5, -54.29, -444.69, 0.62)
pt3dadd(123.64, -53.43, -444.79, 0.62)
pt3dadd(123.67, -51.84, -445.44, 0.62)
pt3dadd(123.81, -50.98, -446.34, 0.62)
pt3dadd(124.06, -50.49, -446.49, 0.62)
pt3dadd(124.44, -49.88, -446.49, 0.62)
}
}
proc shape3d_13() {
dend[31] { pt3dadd(124.7, -49.28, -446.49, 0.62)
pt3dadd(125.07, -48.91, -446.49, 0.62)
pt3dadd(125.33, -48.55, -446.74, 0.62)
pt3dadd(125.7, -48.06, -447.99, 0.62)
pt3dadd(126.46, -47.34, -448.39, 0.62)
pt3dadd(127.45, -46.5, -448.69, 0.62)
pt3dadd(127.96, -46.01, -448.79, 0.62)
pt3dadd(128.46, -45.41, -449.14, 0.62)
pt3dadd(129.21, -44.44, -449.29, 0.62)
pt3dadd(129.84, -43.71, -449.29, 0.62)
pt3dadd(130.72, -42.99, -449.29, 0.62)
pt3dadd(131.71, -42.52, -449.29, 0.62)
pt3dadd(132.95, -41.92, -449.39, 0.62)
pt3dadd(134.19, -41.33, -450.34, 0.62)
pt3dadd(134.69, -41.09, -451.04, 0.62)
pt3dadd(134.81, -40.97, -451.04, 0.62)
pt3dadd(135.06, -40.98, -451.04, 0.62)
pt3dadd(135.81, -40.25, -451.04, 0.62)
pt3dadd(136.45, -39.04, -451.14, 0.62)
pt3dadd(137.09, -37.57, -451.24, 0.62)
pt3dadd(138.49, -34.77, -451.34, 0.62)
pt3dadd(139.26, -33.06, -451.39, 0.62)
pt3dadd(140.02, -31.48, -451.44, 0.62)
pt3dadd(140.53, -30.75, -451.49, 0.62)
pt3dadd(140.53, -30.63, -451.54, 0.62)
}
dend[32] {pt3dclear()
pt3dadd(79.59, -117.53, -432.24, 0.86)
pt3dadd(83.84, -120.67, -435.69, 0.86)
pt3dadd(84.33, -120.68, -435.69, 0.86)
pt3dadd(88.12, -122.47, -435.69, 0.86)
pt3dadd(92.93, -125.34, -435.39, 0.86)
pt3dadd(95.11, -127.09, -435.44, 0.86)
pt3dadd(95.48, -127.35, -435.44, 0.86)
pt3dadd(98.15, -129.24, -435.49, 0.86)
pt3dadd(98.27, -129.36, -435.49, 0.86)
pt3dadd(102.9, -132.02, -438.79, 0.86)
pt3dadd(103.39, -132.28, -438.79, 0.86)
pt3dadd(104.24, -133.03, -438.79, 0.86)
pt3dadd(105.34, -133.66, -438.79, 0.86)
pt3dadd(106.93, -133.94, -438.79, 0.86)
pt3dadd(107.77, -135.43, -438.79, 0.86)
pt3dadd(108.37, -136.3, -438.79, 0.86)
pt3dadd(109.95, -137.18, -438.84, 0.86)
pt3dadd(110.07, -137.19, -438.84, 0.86)
pt3dadd(111.3, -137.58, -442.09, 0.62)
pt3dadd(112.14, -138.94, -442.04, 0.62)
pt3dadd(112.37, -139.31, -442.04, 0.62)
pt3dadd(113.58, -140.93, -442.04, 0.62)
pt3dadd(116.12, -143.07, -442.04, 0.62)
pt3dadd(116.61, -143.32, -442.04, 0.62)
pt3dadd(117.95, -144.45, -442.04, 0.62)
pt3dadd(118.06, -144.7, -442.04, 0.62)
pt3dadd(120.33, -149.16, -444.79, 0.62)
pt3dadd(120.44, -149.41, -444.79, 0.62)
pt3dadd(121.51, -152.01, -444.79, 0.62)
pt3dadd(123.7, -153.4, -447.29, 0.62)
pt3dadd(124.89, -155.51, -447.29, 0.62)
pt3dadd(125.62, -156.26, -447.34, 0.62)
pt3dadd(129.5, -159.15, -447.29, 0.62)
pt3dadd(130.48, -159.66, -447.29, 0.62)
pt3dadd(131.95, -160.18, -447.34, 0.62)
pt3dadd(132.8, -160.56, -447.29, 0.62)
pt3dadd(137.34, -161.5, -452.29, 0.62)
pt3dadd(138.56, -162.26, -452.34, 0.62)
pt3dadd(140.64, -162.91, -452.39, 0.62)
pt3dadd(143.34, -162.96, -452.39, 0.62)
pt3dadd(145.3, -163.61, -452.64, 0.62)
pt3dadd(146.52, -171.12, -456.74, 0.62)
}
}
proc basic_shape() {
shape3d_1()
shape3d_2()
shape3d_3()
shape3d_4()
shape3d_5()
shape3d_6()
shape3d_7()
shape3d_8()
shape3d_9()
shape3d_10()
shape3d_11()
shape3d_12()
shape3d_13()
}
objref all,dends,tcdends,ccdends,ccsyn,tcsyn,ccnetcon,tcnetcon,apcounter,apvec,nil
objref all,dends,segdends,Esyn,Esourse[2]
proc init(){
objref all,dends,segdends,Esyn,Esourse[2]
all=new SectionList()
dends = new SectionList()
segdends = new SectionList()
Esyn=new List()
Enetcon=new List()
Esourse[0]=new Vector()
Esourse[1]=new Vector()
Isyn=new List()
Inetcon=new List()
topol()
basic_shape()
access soma
distance()
forall{
//dends.append()
all.append()
for i=0,n3d()-1{
pt3dchange(i,x3d(i)+$1,y3d(i)+$2,z3d(i),diam3d(i))
}
if (diam<3){diam=1}
nseg=9
insert pas
e_pas=-60
g_pas=1/10000
cm=1
Ra=100
}
//soma dends.remove()
//soma dends.append()
//for i=0,32{dend[i] dends.append()}
for i=0,18{apic[i] dends.append()}
objref apcounter,apvec,nil
numdend=0
forsec dends{numdend=numdend+1 }//segdends.append()}
apvec=new Vector()
access soma
apcounter=new NetCon(&v(.5), nil)
apcounter.threshold = -20
apcounter.record(apvec)
//saving voltage vectors
objref Vvec[numdend+1],spikevec[numdend+1],nmdaGV[2],ampaGV[2],gabaGV[2]
i=0
forsec dends {
Vvec[i]=new Vector()
Vvec[i].record(&v(0.9))
spikevec[i]=new Vector()
i=i+1
}
Vvec[numdend]=new Vector()
Vvec[numdend].record(&soma.v(0.5))
}
endtemplate celltemplate