// DESCARTADA DESCARTADA DESCARTADA DESCARTADA
// DESCARTADA DESCARTADA DESCARTADA DESCARTADA
// DESCARTADA DESCARTADA DESCARTADA DESCARTADA
// DESCARTADA DESCARTADA DESCARTADA DESCARTADA
// DESCARTADA DESCARTADA DESCARTADA DESCARTADA
// DESCARTADA DESCARTADA DESCARTADA DESCARTADA
// DESCARTADA DESCARTADA DESCARTADA DESCARTADA
// ************************************************************************************************************
//Defining granule cell
begintemplate GranuleCell
// Original name on neuroMorpho.org H910-1.CNG.swc
ndend1=41
// ndend2=4
public pre_list, connect_pre, subsets, is_art, is_connected
public vbc2gc, vmc2gc, vhc2gc, vgc2bc, vbc2bc, vmc2bc, vhc2bc, vgc2mc, vbc2mc, vmc2mc, vhc2mc, vgc2hc, vmc2hc
public soma, dend
public all, gcldend, pdend, mdend, ddend, somas
nst=10
objectvar stim[nst]
double stimdur[nst], stimdel[nst], stimamp[nst]
public stim, stimdur, stimamp, stimdel
create soma[2], dend[ndend1]
objref syn, pre_list
proc init() {
pre_list = new List()
subsets()
gctemp()
// synapse()
}
objref all, gcldend, pdend, mdend, ddend, somas
proc subsets(){ local i
objref all, gcldend, pdend, mdend, ddend, somas
all = new SectionList()
for i=0, 1 soma[i] all.append()
for i=0, 40 dend[i] all.append()
somas = new SectionList()
for i=0, 1 soma[i] somas.append()
gcldend = new SectionList()
dend[0] gcldend.append()
dend[3] gcldend.append()
dend[38] gcldend.append()
pdend = new SectionList()
// dend[3] pdend.append()
for i=5, 6 dend[i] pdend.append()
dend[39] pdend.append()
mdend = new SectionList()
for i=8, 11 dend[i] mdend.append()
for i=13, 14 dend[i] mdend.append()
for i=16, 18 dend[i] mdend.append()
dend[20] mdend.append()
for i=25, 27 dend[i] mdend.append()
for i=30, 31 dend[i] mdend.append()
dend[33] mdend.append()
dend[40] mdend.append()
ddend = new SectionList()
for i=1, 2 dend[i] ddend.append()
dend[4] ddend.append()
dend[7] ddend.append()
dend[12] ddend.append()
dend[15] ddend.append()
dend[19] ddend.append()
for i=21, 24 dend[i] ddend.append()
for i=28, 29 dend[i] ddend.append()
dend[32] ddend.append()
for i=34, 37 dend[i] ddend.append()
}
proc gctemp() {
forsec all {
insert ccanl
catau_ccanl = 10
caiinf_ccanl = 0.000005
Ra=210
}
forsec somas {insert ichan2 //ildikos ichan
gnatbar_ichan2=0.12 //original 0.030 to .055
gkfbar_ichan2=0.016 //original 0.015
gksbar_ichan2=0.006
insert borgka
gkabar_borgka=0.012
insert nca // HAV-N- Ca channel
gncabar_nca=0.002 // check to modify- original 0.004
insert lca
glcabar_lca=0.005
insert cat
gcatbar_cat=0.000037
insert gskch
gskbar_gskch=0.001
insert cagk
gkbar_cagk=0.0006
gl_ichan2 = 0.00004
cm=1
}
forsec gcldend {insert ichan2
gnatbar_ichan2=0.018 //original 0.015
gkfbar_ichan2=0.004
gksbar_ichan2=0.006
insert nca // HAV-N- Ca channel
gncabar_nca=0.003 // check to modify- original 0.004
insert lca
glcabar_lca=0.0075
insert cat
gcatbar_cat=0.000075
insert gskch
gskbar_gskch=0.0004
insert cagk
gkbar_cagk=0.0006
gl_ichan2 = 0.00004
cm=1}
forsec pdend {insert ichan2
gnatbar_ichan2=0.013
gkfbar_ichan2=0.004
gksbar_ichan2=0.006
insert nca // HAV-N- Ca channel
gncabar_nca=0.001 // check to modify- original 0.004
insert lca
glcabar_lca=0.0075
insert cat
gcatbar_cat=0.00025
insert gskch
gskbar_gskch=0.0002
insert cagk
gkbar_cagk=0.001
gl_ichan2 = 0.000063
cm=1.0
insert pas
g_pas = 4e-05
}
forsec mdend {insert ichan2
gnatbar_ichan2=0.008
gkfbar_ichan2=0.001
gksbar_ichan2=0.006
insert nca // HAV-N- Ca channel
gncabar_nca=0.001 // check to modify- original 0.004
insert lca
glcabar_lca=0.0005
insert cat
gcatbar_cat=0.0005
insert gskch
gskbar_gskch=0.0
insert cagk
gkbar_cagk=0.0024
gl_ichan2 = 0.000063
cm=1.0
insert pas
g_pas = 4e-05}
forsec ddend {insert ichan2
gnatbar_ichan2=0.008
gkfbar_ichan2=0.001
gksbar_ichan2=0.008
insert nca // HAV-N- Ca channel
gncabar_nca=0.001 // check to modify- original 0.004
insert lca
glcabar_lca=0.0
insert cat
gcatbar_cat=0.001
insert gskch
gskbar_gskch=0.0
insert cagk
gkbar_cagk=0.0024
gl_ichan2 = 0.000063
cm=1.0
insert pas
g_pas = 4e-05}
// forsec all {
// insert ccanl
// catau_ccanl = 10
// caiinf_ccanl = 0.000005
// Ra=210
// }
forsec all {enat = 45 ekf = -90 eks = -90 ek=-90 elca=130 etca=130 esk=-90
el_ichan2 =-70 cao_ccanl=2 }
connect soma[1](0), soma(0)
connect dend(0), soma(0)
for i = 1, 2 connect dend[i](0), dend(1)
connect dend[3](0), soma(0)
for i = 4, 5 connect dend[i](0), dend[3](1)
for i = 6, 7 connect dend[i](0), dend[i-1](1)
connect dend[8](0), dend[6](1)
for i = 9, 10 connect dend[i](0), dend[i-1](1)
connect dend[11](0), dend[9](1)
for i = 12, 13 connect dend[i](0), dend[11](1)
connect dend[14](0), dend[8](1)
for i = 15, 16 connect dend[i](0), dend[14](1)
for i = 17, 18 connect dend[i](0), dend[16](1)
for i = 19, 20 connect dend[i](0), dend[18](1)
for i = 21, 22 connect dend[i](0), dend[20](1)
for i = 23, 24 connect dend[i](0), dend[22](1)
connect dend[25](0), dend[5](1)
for i = 26, 28 connect dend[i](0), dend[i-1](1)
connect dend[29](0), dend[27](1)
connect dend[30](0), dend[26](1)
for i = 31, 32 connect dend[i](0), dend[30](1)
connect dend[33](0), dend[25](1)
for i = 34, 35 connect dend[i](0), dend[i-1](1)
connect dend[36](0), dend[34](1)
connect dend[37](0), dend[33](1)
connect dend[38](0), soma(0)
for i = 39, 40 connect dend[i](0), dend[38](1)
basic_shape()
}
proc shape3d_1() {
soma {pt3dclear()
pt3dadd(0, 0, 0, 12.4042)
pt3dadd(0, 6.2, 0, 12.4042)
}
soma[1] {pt3dclear()
pt3dadd(0, 0, 0, 12.4042)
pt3dadd(0, -6.2, 0, 12.4042)
}
dend {pt3dclear()
pt3dadd(0, 0, 0, 2.63)
pt3dadd(4.76, -4.42, -1.88, 2.63)
pt3dadd(5.32, -5.37, -1.37, 2.48)
pt3dadd(5.6, -5.92, -1.12, 2.32)
pt3dadd(6.24, -6.54, -0.83, 2.01)
pt3dadd(7.14, -6.82, -0.72, 1.86)
pt3dadd(7.46, -7.07, -0.44, 1.86)
pt3dadd(8.84, -7.44, -0.19, 1.86)
pt3dadd(9.21, -8.18, 0.13, 1.7)
pt3dadd(9.33, -8.53, 0.13, 1.7)
pt3dadd(10.4, -8.94, -0.21, 1.7)
pt3dadd(10.71, -9.14, -0.13, 1.7)
pt3dadd(11.74, -9.54, 0.49, 1.7)
pt3dadd(12.56, -9.9, 1.13, 1.7)
pt3dadd(13.96, -10.62, 1.5, 1.7)
pt3dadd(14.88, -11.5, 2.34, 1.7)
pt3dadd(16.24, -12.28, 2.05, 1.7)
pt3dadd(17.03, -13.29, 2.77, 1.7)
pt3dadd(17.84, -14.21, 2.79, 1.7)
pt3dadd(18.26, -15.45, 3.16, 1.7)
pt3dadd(18.63, -16.49, 3.38, 1.7)
pt3dadd(19.12, -17.43, 2.59, 1.7)
pt3dadd(19.16, -18.38, 2.51, 1.7)
pt3dadd(19.52, -19.11, 2.84, 1.7)
pt3dadd(19.98, -19.57, 2.22, 1.7)
pt3dadd(20.09, -20.4, 2.32, 1.55)
pt3dadd(20.33, -21.27, 2.53, 1.55)
pt3dadd(20.38, -22.25, 2.66, 1.55)
pt3dadd(20.36, -23.21, 2.63, 1.55)
pt3dadd(20.62, -23.93, 2.85, 1.55)
pt3dadd(20.98, -24.65, 3.18, 1.39)
pt3dadd(21.37, -25.24, 3.54, 1.39)
pt3dadd(22.44, -25.94, 2.87, 1.39)
pt3dadd(23.69, -26.27, 1.66, 1.39)
pt3dadd(24.35, -26.47, 1.34, 1.39)
pt3dadd(24.86, -27.36, 1.48, 1.39)
pt3dadd(25.2, -28.26, 1.78, 1.39)
pt3dadd(25.65, -29.24, 1.48, 1.39)
pt3dadd(26.24, -29.85, 0.67, 1.39)
pt3dadd(26.19, -30.63, 0.51, 1.39)
pt3dadd(26.45, -31.14, 0.54, 1.39)
pt3dadd(26.77, -31.39, 0.83, 1.24)
pt3dadd(26.95, -31.75, 1, 1.24)
pt3dadd(28.27, -32.08, 0.86, 1.86)
pt3dadd(28.87, -32.22, 1.33, 1.86)
pt3dadd(29.3, -33.28, 1.51, 1.7)
pt3dadd(30.3, -34.35, 1.28, 1.7)
pt3dadd(30.87, -35.33, 0.86, 1.55)
pt3dadd(31.44, -36.12, 0.25, 1.55)
pt3dadd(32.51, -36.82, -0.4, 1.55)
pt3dadd(33.46, -37.09, -0.57, 1.55)
pt3dadd(34.28, -37.26, -0.12, 1.55)
pt3dadd(35.74, -37.7, 0.49, 1.55)
pt3dadd(36.18, -37.82, 0.9, 1.55)
pt3dadd(37.2, -37.89, 1.64, 1.39)
pt3dadd(38.75, -38.04, 1.31, 1.39)
pt3dadd(39.5, -38.88, 1.9, 1.24)
pt3dadd(40.33, -39.57, 2.66, 1.24)
pt3dadd(41.42, -40.03, 2.52, 1.24)
pt3dadd(42.75, -40.39, 2.82, 1.24)
pt3dadd(43.65, -40.92, 3.33, 1.24)
pt3dadd(45.43, -41.26, 2.93, 1.24)
pt3dadd(46.13, -41.83, 2.94, 1.24)
pt3dadd(47.35, -41.95, 2.53, 1.24)
pt3dadd(47.91, -42.37, 2.73, 1.55)
pt3dadd(48.86, -42.95, 2.46, 1.55)
pt3dadd(49.21, -43.34, 2.67, 1.55)
pt3dadd(50.14, -43.35, 1.89, 1.55)
pt3dadd(50.98, -43.88, 2.46, 1.55)
pt3dadd(51.85, -44.29, 2.33, 1.55)
pt3dadd(52.7, -45.08, 2.59, 1.55)
pt3dadd(53.48, -45.85, 2.68, 1.55)
pt3dadd(54.08, -46.45, 3.02, 1.55)
pt3dadd(55.3, -47.06, 2.7, 1.39)
pt3dadd(56.77, -47.96, 1.99, 1.39)
pt3dadd(57.93, -49.25, 2.01, 1.39)
pt3dadd(58.58, -49.96, 0.65, 1.39)
pt3dadd(59.53, -50.78, -0.13, 1.39)
pt3dadd(60.77, -51.32, -0.94, 1.39)
pt3dadd(61.24, -52.55, -0.63, 1.24)
pt3dadd(61.51, -53.34, -0.91, 1.24)
pt3dadd(61.65, -54.12, -1.29, 1.24)
pt3dadd(62.32, -54.66, -2.64, 1.24)
pt3dadd(61.95, -56.15, -3.11, 1.24)
pt3dadd(62.47, -57.43, -2.65, 1.24)
pt3dadd(63.04, -58.36, -2.13, 1.24)
pt3dadd(63.69, -59.31, -1.65, 1.24)
pt3dadd(64.64, -60.23, -2.94, 1.24)
pt3dadd(64.88, -61.19, -3.24, 1.24)
pt3dadd(65.34, -61.85, -3.45, 1.24)
pt3dadd(65.26, -62.78, -3.63, 1.24)
pt3dadd(65.49, -63.65, -3.43, 1.24)
pt3dadd(66.1, -64.29, -2.87, 1.24)
pt3dadd(66.67, -65.25, -2.35, 1.24)
pt3dadd(66.97, -66.45, -2.09, 1.39)
pt3dadd(67.35, -67.02, -1.74, 1.39)
pt3dadd(68.57, -67.56, -1.36, 1.39)
pt3dadd(69.71, -68.48, -0.52, 1.39)
pt3dadd(70.47, -68.83, 0.17, 1.39)
pt3dadd(71.3, -69.53, 0.93, 1.24)
pt3dadd(72.62, -70.34, 0.9, 1.24)
pt3dadd(73.88, -71.13, 1.86, 1.24)
pt3dadd(75.11, -71.76, 1.75, 1.24)
pt3dadd(76.63, -73.23, 2.73, 1.24)
pt3dadd(77.16, -74.29, 3, 1.24)
pt3dadd(77.7, -74.67, 2.78, 1.24)
pt3dadd(78.05, -75.05, 2.99, 1.55)
pt3dadd(78.89, -75.82, 3.03, 1.55)
pt3dadd(79.53, -76.6, 3.02, 1.39)
pt3dadd(80.37, -77.24, 2.87, 1.39)
pt3dadd(80.65, -78.17, 3.11, 1.39)
pt3dadd(80.89, -78.89, 3.32, 1.39)
pt3dadd(81.18, -79.6, 3.47, 1.39)
pt3dadd(81.51, -80.31, 3.57, 1.39)
pt3dadd(81.86, -80.75, 3.88, 1.39)
pt3dadd(82.24, -81.41, 4.23, 1.24)
pt3dadd(82.69, -81.57, 4.65, 1.24)
pt3dadd(83.14, -82.09, 5.06, 1.08)
pt3dadd(83.58, -82.6, 5.46, 1.08)
pt3dadd(85.06, -82.95, 4.34, 1.08)
pt3dadd(85.15, -83.37, 4.42, 1.08)
pt3dadd(85.59, -83.89, 4.83, 1.08)
pt3dadd(85.98, -84.32, 5.09, 1.08)
pt3dadd(86.37, -84.98, 5.44, 1.24)
pt3dadd(87.37, -85.62, 5.12, 1.24)
pt3dadd(88.96, -86, 4.93, 1.24)
pt3dadd(89.19, -86.71, 5.14, 1.24)
pt3dadd(89.93, -87.5, 4.99, 1.24)
pt3dadd(90.85, -87.77, 4.28, 1.24)
pt3dadd(91.04, -88.28, 4.45, 1.24)
pt3dadd(91.4, -88.36, 4.78, 1.08)
pt3dadd(91.8, -88.66, 5.15, 1.08)
pt3dadd(92.38, -89.45, 5.16, 1.08)
pt3dadd(92.93, -90.03, 5.66, 1.08)
pt3dadd(93.11, -90.74, 5.41, 1.08)
pt3dadd(93.34, -91.25, 5.52, 1.08)
pt3dadd(93.76, -91.46, 5.69, 1.08)
pt3dadd(94.33, -92.61, 5.7, 1.08)
pt3dadd(94.36, -93.18, 5.72, 1.08)
pt3dadd(94.92, -93.45, 5.4, 1.08)
pt3dadd(95.45, -94.39, 5.88, 1.08)
pt3dadd(96.11, -94.61, 5.77, 1.08)
pt3dadd(96.39, -95.19, 6.03, 1.08)
pt3dadd(96.23, -95.61, 5.87, 1.08)
pt3dadd(96.52, -96.17, 5.61, 1.08)
pt3dadd(97.15, -96.96, 6.1, 0.93)
pt3dadd(97.66, -97.52, 5.62, 0.77)
pt3dadd(97.99, -98.09, 5.3, 0.77)
pt3dadd(98.54, -98.57, 4.57, 0.77)
pt3dadd(99.05, -98.99, 4.2, 0.77)
pt3dadd(99.44, -99.64, 4.56, 0.77)
pt3dadd(99.89, -99.8, 4.97, 0.77)
pt3dadd(100.25, -99.89, 5.3, 0.93)
pt3dadd(100.14, -100.17, 5.2, 0.93)
pt3dadd(100.51, -99.91, 5.54, 0.93)
pt3dadd(101.26, -100.3, 6.23, 0.93)
pt3dadd(101.97, -100.52, 6.06, 0.93)
pt3dadd(102.37, -100.95, 6.32, 0.93)
pt3dadd(102.96, -101.45, 6.04, 0.93)
pt3dadd(103.25, -102.02, 5.79, 0.93)
pt3dadd(103.61, -102.16, 5.81, 0.93)
pt3dadd(103.9, -102.59, 5.66, 0.93)
pt3dadd(104.29, -103.17, 5.81, 0.93)
pt3dadd(104.64, -103.59, 5.61, 0.93)
pt3dadd(105.04, -103.88, 5.46, 0.93)
pt3dadd(105.54, -104.37, 5.29, 0.93)
pt3dadd(106.04, -105.01, 5.02, 0.93)
pt3dadd(106.84, -105.36, 4.63, 0.93)
pt3dadd(107.02, -106.22, 4.79, 0.93)
pt3dadd(107.21, -106.38, 4.96, 0.93)
pt3dadd(107.21, -106.73, 4.95, 0.93)
pt3dadd(107.34, -107.36, 5.07, 0.93)
pt3dadd(107.75, -107.31, 5.45, 0.93)
pt3dadd(107.95, -107.46, 5.63, 0.93)
pt3dadd(109.02, -107.47, 5.49, 0.93)
pt3dadd(109.33, -107.34, 5.78, 0.93)
pt3dadd(110.04, -107.45, 6.24, 0.93)
pt3dadd(111.11, -107.77, 6.91, 0.93)
pt3dadd(111.31, -107.92, 7.09, 1.08)
pt3dadd(111.75, -108.57, 7.38, 1.08)
pt3dadd(112.64, -109.61, 8.19, 1.08)
pt3dadd(113.05, -111.17, 8.55, 1.08)
pt3dadd(113.41, -112.66, 8.77, 1.08)
pt3dadd(114.26, -113.18, 8.72, 1.08)
pt3dadd(114.75, -113.97, 8.85, 1.08)
pt3dadd(115.14, -114.61, 9.2, 1.08)
pt3dadd(115.79, -115.06, 9.7, 0.93)
pt3dadd(115.86, -115.98, 9.66, 0.93)
pt3dadd(116.14, -116.69, 9.81, 0.93)
pt3dadd(116.54, -117.27, 9.95, 0.93)
pt3dadd(116.89, -117.42, 9.97, 0.93)
pt3dadd(117.64, -117.8, 10.15, 0.93)
pt3dadd(118.08, -118.65, 10.03, 0.93)
pt3dadd(118.77, -119.29, 10.05, 0.93)
pt3dadd(119.67, -120.09, 10.25, 0.93)
pt3dadd(120.31, -120.87, 10.21, 0.93)
}
}
proc shape3d_2() {
dend { pt3dadd(121.13, -120.91, 10.86, 0.93)
pt3dadd(121.54, -120.86, 11.24, 0.93)
pt3dadd(121.93, -121.52, 11.6, 1.08)
pt3dadd(123.14, -122.23, 11.26, 1.08)
pt3dadd(124.6, -123.02, 10.84, 1.08)
pt3dadd(125.1, -123.4, 11.31, 1.08)
pt3dadd(125.92, -123.42, 11.45, 1.08)
pt3dadd(126.33, -123.35, 11.32, 1.08)
pt3dadd(126.95, -123.16, 11.58, 1.08)
pt3dadd(127.6, -123.47, 12.18, 0.93)
pt3dadd(128.51, -123.83, 11.68, 0.93)
pt3dadd(129.36, -123.99, 12.15, 0.93)
pt3dadd(130.16, -124.64, 12.05, 0.93)
pt3dadd(131.01, -125.44, 12.31, 0.93)
pt3dadd(131.43, -126.5, 12.28, 1.08)
pt3dadd(132.21, -127.58, 12.38, 1.08)
pt3dadd(132.74, -127.31, 12.56, 1.08)
pt3dadd(132.65, -128.4, 13.59, 1.08)
pt3dadd(132.71, -129.31, 13.55, 1.08)
pt3dadd(133.16, -129.83, 13.95, 1.08)
pt3dadd(133.71, -130.19, 14.35, 1.08)
pt3dadd(133.99, -131.13, 14.59, 1.08)
pt3dadd(134.47, -132.13, 14.83, 1.08)
pt3dadd(134.81, -132.57, 15.13, 1.08)
pt3dadd(135.36, -132.94, 15.53, 1.08)
pt3dadd(135.91, -133.38, 15.63, 1.08)
pt3dadd(135.88, -134.08, 15.6, 1.08)
pt3dadd(136.13, -134.87, 15.49, 1.08)
pt3dadd(136.4, -135.69, 15.54, 1.08)
pt3dadd(136.99, -136.22, 15.78, 1.08)
pt3dadd(137.85, -136.72, 15.74, 1.08)
pt3dadd(139.01, -137.19, 15.67, 1.08)
pt3dadd(139.46, -137.66, 15.56, 1.08)
pt3dadd(140.12, -137.9, 15.45, 1.08)
pt3dadd(141.15, -137.77, 15.48, 1.08)
pt3dadd(141.87, -137.88, 15.92, 1.08)
pt3dadd(142.82, -138.52, 15.67, 1.08)
pt3dadd(144.31, -138.46, 14.88, 1.08)
pt3dadd(145.25, -139.35, 15.74, 1.08)
pt3dadd(145.61, -139.85, 16.07, 1.24)
pt3dadd(146.94, -140.07, 16.26, 1.24)
pt3dadd(148.91, -139.93, 14.58, 1.24)
pt3dadd(150.19, -139.75, 13.82, 1.24)
pt3dadd(151.31, -140.21, 13.91, 1.24)
pt3dadd(152.9, -140.25, 13.22, 1.24)
pt3dadd(153.38, -140.66, 12.95, 1.24)
pt3dadd(154.69, -140.69, 13.32, 1.24)
pt3dadd(156.03, -140.63, 12.59, 1.24)
pt3dadd(156.94, -140.8, 12.21, 1.24)
pt3dadd(158.74, -140.97, 10.87, 1.24)
pt3dadd(159.21, -140.9, 10.58, 1.24)
pt3dadd(160.18, -141.03, 9.62, 1.24)
pt3dadd(160.79, -140.41, 9.36, 1.24)
pt3dadd(160.88, -140.41, 9.25, 1.24)
pt3dadd(162.59, -140.33, 7.62, 1.24)
pt3dadd(163.66, -140.44, 7.28, 1.24)
pt3dadd(164.68, -140.6, 6.78, 1.24)
pt3dadd(165.09, -140.94, 7.56, 1.24)
pt3dadd(165.71, -141.77, 8.12, 1.39)
pt3dadd(166.36, -141.27, 8.63, 1.39)
pt3dadd(166.85, -140.9, 8.88, 1.39)
pt3dadd(167.26, -141.91, 9.03, 1.39)
pt3dadd(168.78, -142.29, 9.62, 1.24)
pt3dadd(170.83, -142.49, 9.04, 1.24)
pt3dadd(172.05, -142.78, 8.41, 1.24)
pt3dadd(173.73, -143.27, 7.89, 1.24)
pt3dadd(175.92, -143.59, 6.72, 1.24)
pt3dadd(177.26, -144.55, 6.6, 1.24)
pt3dadd(178.28, -144.77, 7.13, 1.24)
pt3dadd(179.63, -144.52, 6.53, 1.24)
pt3dadd(180.26, -146.16, 6.57, 1.24)
pt3dadd(180.69, -146.76, 6.97, 1.24)
pt3dadd(182.24, -146.72, 7.27, 1.24)
pt3dadd(183.43, -146.69, 7.23, 1.24)
pt3dadd(184.35, -147.55, 6.74, 1.24)
pt3dadd(184.81, -147.8, 7.16, 1.7)
pt3dadd(185.02, -147.69, 7.36, 1.7)
}
dend[1] {pt3dclear()
pt3dadd(185.02, -147.69, 7.36, 1.7)
pt3dadd(185.11, -148.82, 7.43, 1.24)
pt3dadd(185.91, -149.32, 7.12, 1.24)
pt3dadd(186.15, -150.34, 6.72, 1.08)
pt3dadd(187.19, -151.18, 6.84, 1.08)
pt3dadd(188.66, -151.59, 5.51, 1.08)
pt3dadd(188.97, -152.47, 4.96, 0.93)
pt3dadd(189.55, -153.02, 4.15, 0.93)
pt3dadd(189.67, -153.47, 3.54, 0.77)
pt3dadd(190.09, -154.16, 3, 0.77)
pt3dadd(190.16, -154.71, 2.74, 0.62)
pt3dadd(190.24, -155.21, 2.69, 0.62)
pt3dadd(190.85, -156.01, 2.75, 0.62)
pt3dadd(191.62, -156.29, 3.35, 0.62)
pt3dadd(192.4, -156.28, 3.76, 0.62)
pt3dadd(193.62, -156.61, 3.64, 0.62)
pt3dadd(194.97, -157.41, 4.68, 0.62)
pt3dadd(195.5, -157.97, 5.17, 0.62)
pt3dadd(196.03, -158.58, 5.44, 0.77)
pt3dadd(196.38, -158.88, 5.76, 0.77)
pt3dadd(196.82, -160.19, 6.05, 0.77)
pt3dadd(196.68, -160.93, 5.9, 0.77)
pt3dadd(196.82, -161.85, 6.03, 0.77)
pt3dadd(197.04, -163.4, 6.21, 0.77)
pt3dadd(197.64, -164.52, 5.73, 0.77)
pt3dadd(198.67, -165.4, 5.64, 0.77)
pt3dadd(199.16, -166.01, 5.97, 0.77)
pt3dadd(199.78, -166.86, 5.81, 0.77)
pt3dadd(199.91, -167.09, 4.81, 0.77)
pt3dadd(199.77, -166.89, 3.84, 0.77)
pt3dadd(199.48, -167.18, 3.07, 0.77)
pt3dadd(199.17, -167.7, 2.72, 0.77)
pt3dadd(198.44, -168.61, 2.03, 0.77)
pt3dadd(198.33, -169.45, 0.89, 0.77)
pt3dadd(197.73, -169.94, 0.33, 0.46)
pt3dadd(196.96, -170.55, -0.48, 0.46)
pt3dadd(196.28, -170.91, -1.02, 0.46)
pt3dadd(195.21, -171.29, -1.91, 0.46)
pt3dadd(194.71, -171.91, -1.76, 0.46)
pt3dadd(193.65, -172.52, -0.99, 0.46)
pt3dadd(193.45, -173.13, -1.18, 0.46)
pt3dadd(194.03, -173.7, -2.71, 0.46)
pt3dadd(195.01, -174.57, -4, 0.46)
}
dend[2] {pt3dclear()
pt3dadd(185.02, -147.69, 7.36, 1.7)
pt3dadd(186.02, -148, 8.22, 0.62)
pt3dadd(186.53, -148.06, 8.7, 0.62)
pt3dadd(187.07, -147.77, 9.2, 0.62)
pt3dadd(188.29, -147.19, 9.3, 0.62)
pt3dadd(190.13, -147.44, 8.74, 0.62)
pt3dadd(190.34, -147.4, 8.72, 0.93)
pt3dadd(190.55, -147.28, 8.93, 0.93)
pt3dadd(191.76, -147.91, 9, 0.93)
pt3dadd(192.98, -148.03, 9, 0.93)
pt3dadd(193.9, -148.22, 9.13, 0.93)
pt3dadd(194.36, -148.47, 9.55, 0.93)
pt3dadd(195.23, -148.62, 9.93, 0.93)
pt3dadd(196.92, -148.79, 9.23, 0.93)
pt3dadd(197.98, -149.18, 9.06, 0.93)
pt3dadd(198.45, -149.09, 9.5, 1.08)
pt3dadd(198.67, -149.8, 9.69, 1.08)
pt3dadd(200.12, -149.66, 9.28, 0.93)
pt3dadd(201.16, -149.57, 9.63, 0.93)
pt3dadd(202.43, -149.88, 10.2, 0.93)
pt3dadd(203.21, -150.72, 9.87, 0.93)
pt3dadd(204.35, -150.72, 9.89, 0.93)
pt3dadd(205.71, -150.36, 9.71, 0.93)
pt3dadd(206.46, -149.97, 9.68, 1.24)
pt3dadd(206.82, -150.77, 10.01, 1.24)
pt3dadd(207.1, -151.21, 9.95, 1.24)
pt3dadd(208.73, -151.72, 9.28, 1.24)
pt3dadd(209.16, -152.3, 9.16, 1.24)
pt3dadd(210.54, -152.38, 7.97, 1.24)
pt3dadd(212.01, -152.91, 8.7, 1.24)
pt3dadd(211.91, -153.66, 8.5, 0.62)
pt3dadd(213.21, -154.16, 6.39, 0.62)
pt3dadd(213.31, -155.19, 6.15, 0.46)
}
dend[3] {pt3dclear()
pt3dadd(0, 0, 0, 4.34)
pt3dadd(10.58, 4.54, -6.12, 4.34)
pt3dadd(10.8, 6.24, -5.89, 3.72)
pt3dadd(10.04, 7.87, -6.46, 2.63)
pt3dadd(9.97, 9.4, -7.12, 3.25)
pt3dadd(9.65, 11.26, -7.4, 3.25)
pt3dadd(10.64, 12.95, -8.94, 2.79)
pt3dadd(10.08, 14.39, -9.55, 2.63)
pt3dadd(9.79, 15.6, -9.81, 2.48)
pt3dadd(9.37, 16.82, -10.19, 2.32)
pt3dadd(8.99, 17.87, -10.41, 2.32)
pt3dadd(8.8, 19.36, -10.48, 2.32)
pt3dadd(8.88, 20.78, -10.39, 2.17)
pt3dadd(8.68, 21.96, -10.55, 2.01)
pt3dadd(8.25, 23.03, -10.94, 2.01)
pt3dadd(8.04, 24.04, -11.13, 2.01)
pt3dadd(7.96, 25.19, -11.18, 1.86)
pt3dadd(7.75, 26.21, -11.36, 1.86)
pt3dadd(7.35, 27.7, -11.2, 1.86)
pt3dadd(7.25, 28.68, -11.28, 2.01)
pt3dadd(7.06, 29.85, -11.44, 2.01)
pt3dadd(6.74, 30.9, -11.73, 1.86)
pt3dadd(6.44, 32.1, -12, 1.86)
pt3dadd(6.14, 33.31, -12.26, 1.86)
pt3dadd(5.84, 34.19, -12.62, 1.86)
pt3dadd(5.74, 35.18, -12.7, 1.86)
pt3dadd(5.65, 35.86, -12.88, 1.86)
pt3dadd(5.53, 37.23, -13.3, 1.86)
pt3dadd(4.98, 38.33, -13.79, 2.01)
pt3dadd(4.37, 39.53, -13.71, 2.01)
pt3dadd(4.2, 40.85, -13.85, 2.01)
pt3dadd(4.23, 41.78, -13.61, 2.01)
pt3dadd(3.62, 42.7, -13.85, 2.01)
pt3dadd(3.53, 44.44, -13.5, 2.01)
pt3dadd(3.58, 45.22, -13.34, 2.01)
pt3dadd(3.16, 46.6, -12.49, 2.01)
pt3dadd(1.65, 48.13, -11.59, 2.01)
pt3dadd(1.56, 48.53, -11.67, 2.01)
}
dend[4] {pt3dclear()
pt3dadd(1.56, 48.53, -11.67, 2.01)
pt3dadd(1.45, 49.61, -11.65, 2.01)
pt3dadd(0.99, 50.84, -11.96, 2.01)
pt3dadd(0.65, 51.97, -11.75, 2.17)
pt3dadd(-0.4, 53.08, -11.68, 2.17)
pt3dadd(-0.82, 54.61, -11.95, 2.17)
pt3dadd(-1.36, 55.97, -11.92, 2.17)
pt3dadd(-1.8, 57.15, -11.8, 2.17)
pt3dadd(-2.46, 58.75, -12.28, 2.17)
}
}
proc shape3d_3() {
dend[4] { pt3dadd(-2.8, 60.43, -12.58, 2.17)
pt3dadd(-3.18, 61.98, -12.9, 2.17)
pt3dadd(-3.52, 63.46, -12.8, 2.17)
pt3dadd(-3.73, 64.95, -12.87, 2.17)
pt3dadd(-4.03, 66.16, -13.13, 2.17)
pt3dadd(-4.31, 67.5, -13.37, 2.17)
pt3dadd(-4.5, 68.68, -13.54, 2.17)
pt3dadd(-4.77, 69.24, -13.78, 2.17)
pt3dadd(-5.82, 70.43, -13.49, 2.17)
pt3dadd(-5.74, 71.85, -13.4, 2.01)
pt3dadd(-5.68, 73.12, -13.33, 2.01)
pt3dadd(-5.97, 75.28, -13.57, 2.01)
pt3dadd(-5.88, 76.87, -13.47, 2.01)
pt3dadd(-6, 78.5, -13.56, 2.01)
pt3dadd(-6.1, 79.49, -13.64, 2.01)
pt3dadd(-6.05, 81.07, -13.48, 2.01)
pt3dadd(-5.66, 83.06, -13.1, 2.01)
pt3dadd(-5.21, 84.71, -12.67, 2.01)
pt3dadd(-5.07, 86.6, -12.51, 2.01)
pt3dadd(-4.81, 87.63, -12.05, 2.01)
pt3dadd(-4.68, 88.85, -11.61, 2.01)
pt3dadd(-4.31, 90.6, -10.83, 2.01)
pt3dadd(-4.64, 92.28, -9.77, 2.01)
pt3dadd(-4.3, 94, -8.71, 2.01)
pt3dadd(-3.96, 95.47, -7.97, 2.01)
pt3dadd(-3.36, 96.88, -8.22, 2.01)
pt3dadd(-2.54, 98.44, -8.68, 2.01)
pt3dadd(-2.05, 99.36, -8.94, 2.01)
pt3dadd(-1.47, 101.12, -9.31, 2.01)
pt3dadd(-1.06, 102.21, -9.44, 2.01)
pt3dadd(-0.43, 103.45, -9.77, 2.01)
pt3dadd(-0.14, 104.85, -9.69, 2.01)
pt3dadd(0.39, 106.32, -9.17, 2.01)
pt3dadd(0.9, 107.93, -8.57, 2.01)
pt3dadd(1.74, 109.31, -7.68, 2.01)
pt3dadd(2.35, 110.44, -7.11, 2.01)
pt3dadd(2.66, 111.46, -6.69, 2.01)
pt3dadd(2.97, 112.8, -6.18, 2.01)
pt3dadd(3.19, 114.32, -5.76, 2.01)
pt3dadd(3.5, 115.13, -4.94, 2.01)
pt3dadd(2.62, 116.27, -2.96, 1.7)
pt3dadd(3.54, 117.6, -3.12, 1.7)
pt3dadd(4.73, 118.93, -3.35, 1.7)
pt3dadd(5.93, 119.97, -3.88, 1.7)
pt3dadd(6.25, 120.72, -3.78, 1.7)
pt3dadd(7.09, 121.66, -4.43, 1.7)
pt3dadd(7.67, 122.91, -4.71, 1.7)
pt3dadd(7.75, 123.77, -5.24, 1.7)
pt3dadd(7.58, 123.82, -5.5, 1.7)
pt3dadd(7.76, 124.91, -6.56, 1.7)
pt3dadd(9.39, 125.8, -7.62, 1.7)
pt3dadd(10.24, 126.81, -7.55, 1.7)
pt3dadd(11.3, 127.9, -8.4, 1.7)
pt3dadd(10.34, 128.56, -7.64, 1.7)
pt3dadd(10.35, 129.84, -7.52, 1.7)
pt3dadd(9.67, 130.3, -7.82, 1.55)
pt3dadd(10.6, 131.26, -9.94, 1.55)
pt3dadd(11.46, 131.8, -12.34, 1.55)
pt3dadd(11.73, 131.63, -13.85, 1.55)
pt3dadd(11.71, 132.78, -13.97, 1.24)
pt3dadd(12.48, 133.84, -14.27, 1.24)
pt3dadd(13.54, 135, -15.55, 1.24)
pt3dadd(15.23, 135.87, -16.45, 1.24)
pt3dadd(16.01, 136.84, -17.25, 2.01)
pt3dadd(16.14, 137.77, -17.13, 2.01)
pt3dadd(16.55, 139.11, -16.73, 1.39)
pt3dadd(17.4, 140.26, -17.79, 1.39)
pt3dadd(18.2, 141.1, -18.89, 1.39)
pt3dadd(18.65, 141.72, -20.34, 1.39)
pt3dadd(18.76, 142.69, -20.43, 1.39)
pt3dadd(19.69, 143.66, -21.41, 1.39)
pt3dadd(20.34, 144.54, -22.56, 1.39)
pt3dadd(20.57, 145.66, -22.73, 1.39)
pt3dadd(20.6, 147.05, -23.53, 1.39)
pt3dadd(21.04, 147.88, -24.24, 1.39)
pt3dadd(21.11, 149.3, -25.29, 1.39)
pt3dadd(20.23, 150.5, -26.09, 1.39)
pt3dadd(19.99, 151.38, -26.3, 1.39)
pt3dadd(20.5, 152.19, -26.86, 1.39)
pt3dadd(20.95, 154.04, -26.82, 1.39)
pt3dadd(21.1, 155.16, -26.89, 1.7)
pt3dadd(21.98, 155.85, -28.12, 1.7)
pt3dadd(21.43, 156.49, -28.74, 1.7)
pt3dadd(21.73, 157.26, -29.78, 1.55)
pt3dadd(21.35, 157.84, -30.13, 1.55)
pt3dadd(21.3, 158.33, -30.17, 1.55)
pt3dadd(21.01, 159.22, -30.53, 1.39)
pt3dadd(20.4, 159.85, -31.09, 1.24)
pt3dadd(20.34, 160.38, -31.35, 1.24)
pt3dadd(22, 161.15, -32.69, 1.24)
pt3dadd(24.06, 161.21, -33.98, 1.24)
pt3dadd(25.61, 161.85, -34.3, 1.24)
pt3dadd(26.16, 163.09, -35.72, 1.24)
pt3dadd(26.35, 163.71, -35.76, 1.24)
pt3dadd(26.93, 164.96, -36.03, 1.24)
pt3dadd(26.86, 166.33, -36.5, 1.24)
pt3dadd(27.05, 167.72, -36.31, 1.08)
pt3dadd(27.08, 168.81, -36.04, 1.08)
pt3dadd(26.44, 169.48, -35.61, 1.08)
pt3dadd(25.36, 170.93, -34.52, 1.08)
pt3dadd(24.75, 171.93, -34.26, 1.08)
pt3dadd(24.19, 173.13, -34.24, 1.08)
pt3dadd(23.36, 174.11, -34.69, 1.08)
pt3dadd(22.79, 175.06, -35.21, 1.08)
pt3dadd(22.81, 176.2, -35.37, 1.08)
pt3dadd(22.32, 177.81, -36.02, 1.08)
pt3dadd(22.11, 178.82, -36.19, 1.08)
pt3dadd(21.84, 179.37, -36.44, 1.24)
pt3dadd(21.94, 180.16, -36.34, 1.24)
pt3dadd(22, 181.41, -36.27, 1.24)
pt3dadd(21.2, 182.43, -36.99, 1.24)
pt3dadd(20.79, 182.91, -37.8, 1.24)
pt3dadd(20.49, 184.11, -38.06, 1.24)
pt3dadd(20.57, 185.48, -38.69, 1.24)
pt3dadd(20.49, 186.31, -38.85, 1.24)
pt3dadd(20.5, 188.08, -38.82, 1.08)
pt3dadd(19.95, 189.19, -39.31, 1.08)
pt3dadd(19.41, 189.45, -40.73, 1.08)
pt3dadd(19.01, 190.9, -41.51, 1.08)
pt3dadd(19.47, 191.74, -41.08, 1.08)
pt3dadd(19.83, 193.26, -40.82, 1.08)
pt3dadd(19.69, 194.74, -40.94, 1.08)
pt3dadd(18.98, 195.88, -41.48, 1.08)
pt3dadd(18.88, 196.84, -41.34, 1.08)
pt3dadd(18.55, 197.73, -41.64, 1.08)
pt3dadd(17.9, 199.34, -42.13, 1.08)
pt3dadd(18.36, 200.16, -41.69, 1.08)
pt3dadd(18.09, 201.54, -41.93, 1.08)
pt3dadd(18.1, 202.49, -41.91, 1.08)
pt3dadd(18.05, 203.95, -41.93, 1.08)
pt3dadd(17.72, 204.84, -42.23, 0.93)
pt3dadd(17.56, 205.55, -42.57, 0.93)
pt3dadd(19.75, 206.29, -44.25, 0.93)
pt3dadd(20.35, 207.38, -44.61, 0.93)
pt3dadd(21.12, 208.76, -44.81, 0.93)
pt3dadd(21.55, 210.21, -45.32, 0.93)
pt3dadd(21.67, 211.61, -46.23, 0.93)
pt3dadd(22.17, 212.67, -47.41, 0.93)
pt3dadd(21.38, 213.4, -48.44, 0.93)
pt3dadd(21.18, 215.34, -49.53, 0.93)
pt3dadd(21.28, 217.08, -50.55, 0.93)
pt3dadd(21.53, 218.4, -51.13, 0.93)
pt3dadd(22.48, 219.59, -52.52, 0.93)
pt3dadd(22.23, 220.95, -53.97, 0.93)
pt3dadd(23.53, 222.41, -55.42, 0.93)
pt3dadd(23.49, 223.34, -56.28, 0.93)
pt3dadd(24.31, 224.44, -56.86, 0.93)
pt3dadd(24.96, 225.25, -57.58, 0.93)
pt3dadd(25.04, 226.45, -57.47, 0.93)
pt3dadd(25.19, 227.79, -57.32, 1.08)
pt3dadd(25.31, 228.63, -57.3, 1.08)
pt3dadd(25.71, 229.7, -58.15, 1.08)
pt3dadd(25.93, 230, -58.67, 0.93)
pt3dadd(26.71, 230.42, -59.18, 0.93)
pt3dadd(27.8, 230.81, -59, 0.93)
pt3dadd(28.53, 231.15, -59.25, 0.93)
pt3dadd(29.21, 231.56, -59.13, 0.93)
pt3dadd(29.53, 231.98, -59.13, 0.93)
pt3dadd(29.34, 232.55, -59.5, 0.93)
pt3dadd(29.83, 233.41, -59.87, 0.93)
pt3dadd(29.5, 234.21, -60.68, 0.93)
pt3dadd(29.38, 235.08, -60.89, 0.93)
pt3dadd(29.54, 235.3, -61.67, 0.93)
pt3dadd(30.17, 235.79, -61.69, 0.93)
pt3dadd(30.9, 236.38, -61.21, 0.93)
pt3dadd(31.24, 237.01, -61.32, 0.93)
pt3dadd(32.19, 238.08, -62.27, 0.93)
pt3dadd(32.56, 238.3, -62.76, 0.93)
pt3dadd(32.48, 239.02, -63.13, 0.93)
pt3dadd(32.77, 240.13, -63.05, 0.93)
pt3dadd(33.41, 240.94, -62.55, 0.77)
pt3dadd(33.73, 241.51, -62.45, 0.77)
pt3dadd(33.87, 242.55, -62.52, 0.77)
pt3dadd(34.51, 243.35, -63.36, 0.77)
pt3dadd(35.01, 244.25, -63.41, 0.77)
pt3dadd(35.96, 245.02, -64.07, 0.77)
pt3dadd(36.8, 245.8, -64.61, 0.77)
pt3dadd(37.91, 246.72, -65.34, 0.77)
pt3dadd(38.5, 247.41, -65.41, 0.77)
pt3dadd(39.59, 247.73, -65.53, 0.77)
pt3dadd(40.38, 248.5, -65.51, 0.77)
pt3dadd(41.17, 249.2, -65.8, 0.77)
pt3dadd(42.18, 250.15, -65.58, 0.77)
pt3dadd(42.66, 250.99, -65.43, 0.77)
pt3dadd(43.19, 251.4, -65.66, 0.77)
pt3dadd(43.77, 251.8, -65.43, 0.77)
pt3dadd(44.91, 252.48, -65.08, 0.77)
pt3dadd(45.01, 253.96, -65.28, 0.77)
pt3dadd(45.25, 255.07, -65.15, 0.77)
pt3dadd(45.81, 256.41, -64.93, 0.77)
pt3dadd(46.01, 257.73, -64.83, 0.77)
pt3dadd(46.07, 258.22, -64.77, 0.77)
pt3dadd(46.35, 259.12, -64.6, 0.77)
pt3dadd(45.98, 260.13, -64.93, 0.77)
pt3dadd(45.64, 260.92, -65.23, 0.77)
pt3dadd(45.88, 261.81, -65, 0.77)
pt3dadd(46.12, 262.66, -65.09, 0.77)
pt3dadd(46.51, 263.91, -65.02, 0.77)
pt3dadd(46.55, 265.05, -65.17, 0.77)
pt3dadd(46.83, 265.95, -65.01, 0.62)
}
}
proc shape3d_4() {
dend[4] { pt3dadd(47.07, 267.14, -65.07, 0.62)
pt3dadd(47.27, 268.33, -65.08, 0.62)
pt3dadd(47.51, 269.45, -64.95, 0.62)
pt3dadd(47.74, 270.3, -65.04, 0.77)
pt3dadd(47.67, 271.43, -65.09, 0.77)
pt3dadd(47.65, 272.36, -65.62, 0.77)
pt3dadd(47.65, 273.7, -65.81, 0.77)
pt3dadd(47.78, 274.91, -65.77, 0.77)
pt3dadd(47.51, 275.83, -66.01, 0.77)
pt3dadd(47.46, 277.52, -66.14, 0.77)
pt3dadd(47.23, 278.23, -66.34, 0.77)
pt3dadd(47.77, 279.02, -67.07, 0.77)
pt3dadd(47.96, 279.94, -67.3, 0.77)
pt3dadd(48.06, 281.43, -67.51, 0.77)
pt3dadd(47.99, 282.49, -67.87, 0.77)
pt3dadd(47.97, 283.7, -68.17, 0.77)
pt3dadd(47.8, 284.36, -68.75, 0.77)
pt3dadd(47.24, 284.81, -69.35, 0.77)
pt3dadd(47.33, 285.52, -69.89, 0.77)
pt3dadd(46.73, 285.98, -70.44, 0.77)
pt3dadd(46.76, 287.02, -70.4, 0.62)
pt3dadd(47.04, 288.02, -70.43, 0.62)
pt3dadd(47.13, 289.2, -70.33, 0.62)
pt3dadd(47.1, 289.83, -70.55, 0.62)
pt3dadd(47.43, 290.55, -70.86, 0.62)
pt3dadd(47.56, 291.25, -70.94, 0.62)
pt3dadd(47.52, 291.39, -71.3, 0.62)
pt3dadd(47.33, 291.79, -72.08, 0.62)
pt3dadd(47.14, 292.16, -72.87, 0.62)
pt3dadd(46.89, 292.2, -73.63, 0.62)
pt3dadd(47.22, 292.95, -73.61, 0.77)
pt3dadd(47.34, 293.66, -73.7, 0.77)
pt3dadd(48.75, 294.52, -75.06, 0.77)
pt3dadd(49.49, 295.02, -75.72, 0.77)
pt3dadd(50.28, 295.26, -77.16, 0.77)
pt3dadd(51.01, 295.68, -77.61, 0.77)
pt3dadd(51.54, 296.37, -77.62, 0.77)
pt3dadd(52.31, 296.58, -78.03, 0.77)
pt3dadd(53.04, 296.49, -77.58, 0.77)
pt3dadd(53.49, 296.26, -77.47, 0.77)
pt3dadd(54.08, 296.73, -76.94, 0.62)
pt3dadd(53.19, 297.23, -75.3, 0.62)
pt3dadd(53.35, 298.19, -75.03, 0.62)
pt3dadd(53.97, 299.2, -76.29, 0.46)
pt3dadd(54.35, 299.58, -75.93, 0.62)
pt3dadd(55.15, 299.94, -75.5, 0.62)
pt3dadd(55.46, 300.75, -75.31, 0.62)
pt3dadd(55.94, 300.99, -74.96, 0.62)
pt3dadd(56.51, 301.7, -74.74, 0.62)
pt3dadd(56.59, 303.13, -75.17, 0.62)
pt3dadd(56.65, 304.12, -75.31, 0.62)
pt3dadd(56.93, 304.51, -75.36, 0.62)
pt3dadd(57.29, 305.36, -75.73, 0.62)
pt3dadd(57.52, 305.82, -75.51, 0.77)
pt3dadd(57.55, 307, -75.47, 0.77)
pt3dadd(57.44, 307.77, -75.57, 0.77)
pt3dadd(57.63, 308.33, -75.59, 0.62)
pt3dadd(57.62, 309.17, -75.59, 0.62)
pt3dadd(56.97, 310.49, -76.17, 0.46)
pt3dadd(57.46, 310.87, -77.16, 0.46)
pt3dadd(57.52, 311.2, -77.91, 0.46)
pt3dadd(57.8, 311.58, -79.2, 0.46)
pt3dadd(57.75, 312.38, -79.36, 0.46)
pt3dadd(57.62, 312.8, -79.47, 0.46)
pt3dadd(58.59, 313.6, -80.73, 0.46)
pt3dadd(59.51, 314.41, -81.2, 0.46)
pt3dadd(59.7, 314.85, -81.65, 0.46)
pt3dadd(60.48, 315.98, -82.66, 0.46)
pt3dadd(60.81, 316.27, -83.18, 0.46)
pt3dadd(61.23, 316.48, -84.75, 0.46)
pt3dadd(62.2, 317.2, -86.22, 0.46)
pt3dadd(62.92, 317.32, -87.3, 0.46)
pt3dadd(62.93, 318.26, -88.12, 0.46)
pt3dadd(62.63, 318.52, -88.69, 0.46)
pt3dadd(62.13, 318.93, -89.15, 0.46)
pt3dadd(61.91, 318.76, -89.56, 0.46)
pt3dadd(61.48, 318.52, -89.96, 0.46)
pt3dadd(61.32, 318.39, -90.22, 0.46)
pt3dadd(61.02, 318.52, -89.98, 1.08)
}
dend[5] {pt3dclear()
pt3dadd(1.56, 48.53, -11.67, 2.01)
pt3dadd(2.35, 50.26, -11.12, 2.75)
pt3dadd(2.33, 51.84, -11.12, 2.75)
pt3dadd(1.67, 53.78, -10.78, 2.75)
pt3dadd(0.66, 56.46, -10.76, 2.75)
pt3dadd(0.19, 57.18, -10.98, 2.45)
pt3dadd(-0.12, 58.77, -10.63, 2.45)
pt3dadd(-0.62, 60.41, -10.55, 2.45)
pt3dadd(-1.75, 61.68, -9.42, 2.45)
pt3dadd(-1.99, 64.05, -10.34, 2.45)
pt3dadd(-2.27, 65.7, -10.48, 2.45)
pt3dadd(-3.67, 67.63, -11.64, 2.45)
pt3dadd(-4.12, 69.35, -12.05, 2.45)
pt3dadd(-4.06, 71.54, -11.96, 2.45)
pt3dadd(-4.4, 73.18, -12.05, 2.45)
pt3dadd(-4.5, 74.7, -11.5, 2.45)
pt3dadd(-4.26, 76.85, -11.16, 2.45)
pt3dadd(-3.58, 77.6, -10.31, 2.45)
pt3dadd(-3.11, 78.64, -9.14, 2.45)
pt3dadd(-2.66, 79.75, -8.4, 2.45)
pt3dadd(-2.91, 81.28, -7.69, 2.45)
pt3dadd(-2.91, 82.5, -7.35, 2.45)
pt3dadd(-2.78, 83.65, -6.7, 2.45)
pt3dadd(-2.87, 85.87, -6.45, 2.45)
pt3dadd(-4.11, 86.95, -3.88, 2.45)
pt3dadd(-4.2, 88.66, -2.39, 2.45)
pt3dadd(-4, 89.45, -1.46, 3.06)
pt3dadd(-4.61, 90.97, -0.36, 3.06)
}
dend[6] {pt3dclear()
pt3dadd(-4.61, 90.97, -0.36, 3.06)
pt3dadd(-3.8, 92.63, 0.6, 2.45)
pt3dadd(-4.72, 94.58, 1.22, 2.45)
pt3dadd(-4.36, 96.66, 1.88, 2.45)
pt3dadd(-3.7, 98.01, 2.92, 2.45)
pt3dadd(-3.9, 99.78, 4.11, 2.45)
pt3dadd(-3.28, 101.82, 4.91, 2.14)
pt3dadd(-2.41, 103.17, 5.74, 2.14)
pt3dadd(-2.47, 105.02, 6.32, 2.14)
pt3dadd(-2.74, 106.84, 7.12, 2.14)
pt3dadd(-2.41, 108.25, 8.08, 2.14)
pt3dadd(-2.35, 109.04, 9.16, 2.14)
pt3dadd(-2.8, 108.98, 10.09, 2.14)
pt3dadd(-2.15, 109.11, 10.8, 2.14)
pt3dadd(-2.33, 110.09, 13.12, 2.14)
pt3dadd(-2.54, 111.12, 15.01, 2.14)
pt3dadd(-2.19, 111.51, 16.57, 2.14)
pt3dadd(-2.26, 112.37, 17.34, 2.14)
pt3dadd(-1.92, 113.77, 18.3, 2.14)
pt3dadd(-2.32, 114.99, 19.07, 2.14)
pt3dadd(-2.58, 116.27, 19.26, 2.14)
pt3dadd(-2.73, 117.23, 19.24, 2.14)
}
dend[7] {pt3dclear()
pt3dadd(-2.73, 117.23, 19.24, 2.14)
pt3dadd(-3.32, 118.34, 18.8, 1.84)
pt3dadd(-4.01, 120.22, 19.63, 1.84)
pt3dadd(-5.06, 121.72, 18.89, 1.22)
pt3dadd(-6.08, 122.69, 19.81, 1.22)
pt3dadd(-7.16, 124.39, 20.07, 1.22)
pt3dadd(-7.75, 126.77, 19.55, 1.22)
pt3dadd(-8.7, 128.58, 18.79, 1.22)
pt3dadd(-9.94, 129.53, 17.65, 1.22)
pt3dadd(-10.93, 131.05, 16.86, 1.22)
pt3dadd(-12.33, 132, 15.89, 1.22)
pt3dadd(-14.45, 133.66, 14.98, 1.22)
pt3dadd(-15.64, 134.88, 14.31, 1.22)
pt3dadd(-16.63, 136.38, 13.51, 1.22)
pt3dadd(-17.14, 138.09, 13.16, 1.22)
pt3dadd(-17.2, 139.38, 13.12, 1.22)
pt3dadd(-17.21, 140.96, 13.13, 1.22)
pt3dadd(-17.59, 142.3, 13, 1.22)
pt3dadd(-17.97, 143.63, 12.87, 1.22)
pt3dadd(-19.93, 144.59, 12.51, 1.22)
pt3dadd(-21.19, 144.88, 11.65, 1.22)
pt3dadd(-22.22, 146.31, 11.34, 1.22)
pt3dadd(-23.44, 147.9, 10.34, 1.22)
pt3dadd(-24.93, 148.84, 9.48, 1.22)
pt3dadd(-25.9, 149.68, 8.91, 1.22)
pt3dadd(-27.34, 150.88, 8.52, 1.22)
pt3dadd(-27.89, 152.28, 8.12, 1.22)
pt3dadd(-29.03, 153.06, 8.22, 1.22)
pt3dadd(-29.72, 155.38, 8.22, 1.22)
pt3dadd(-30.79, 156.51, 7.87, 1.22)
pt3dadd(-32.17, 157.41, 7.32, 1.22)
pt3dadd(-32.78, 159.11, 7.08, 1.22)
pt3dadd(-34.27, 161.04, 6.03, 1.22)
pt3dadd(-35.29, 162.72, 6.24, 1.22)
pt3dadd(-36.05, 164.12, 6.07, 1.22)
pt3dadd(-36.89, 164.91, 5.82, 1.22)
pt3dadd(-37.59, 166.3, 5.6, 1.22)
pt3dadd(-38.47, 168, 5.64, 1.22)
pt3dadd(-38.66, 168.98, 5.67, 1.22)
pt3dadd(-39.8, 170.73, 5.56, 1.22)
pt3dadd(-41.15, 172.96, 4.45, 1.22)
pt3dadd(-42.82, 174.23, 3.85, 1.22)
pt3dadd(-43.78, 176.29, 3.62, 1.22)
pt3dadd(-45.13, 177.56, 2.68, 1.22)
pt3dadd(-45.42, 179.2, 2.54, 0.92)
pt3dadd(-45.3, 180.42, 2.76, 1.22)
pt3dadd(-45.87, 181.21, 2.23, 1.22)
pt3dadd(-47.08, 182.47, 1.14, 1.22)
pt3dadd(-48.21, 183.91, 0.93, 1.22)
pt3dadd(-48.91, 185.55, 1.23, 1.22)
pt3dadd(-49.91, 187.38, 0.53, 1.22)
pt3dadd(-51.05, 188.82, 0.33, 1.22)
pt3dadd(-52.08, 190.02, -0.49, 1.22)
pt3dadd(-53.53, 191.3, -1.32, 1.22)
pt3dadd(-55.1, 193.58, -2.64, 1.22)
pt3dadd(-56.1, 195.65, -2.82, 1.22)
pt3dadd(-57.16, 197.47, -3.46, 1.22)
pt3dadd(-57.54, 198.8, -3.59, 1.22)
pt3dadd(-58.58, 199.59, -3.62, 1.22)
pt3dadd(-58.97, 201.23, -3.65, 1.22)
pt3dadd(-59.85, 201.94, -3.42, 1.22)
pt3dadd(-60.43, 201.98, -3.23, 1.22)
pt3dadd(-61.17, 203.32, -2.97, 1.22)
pt3dadd(-62.48, 204.41, -2.64, 1.22)
pt3dadd(-63.39, 204.81, -3.43, 0.93)
pt3dadd(-63.89, 205.71, -3.89, 0.93)
pt3dadd(-64.67, 206.6, -4.49, 0.93)
pt3dadd(-66.16, 207.34, -4.1, 0.93)
pt3dadd(-67.14, 207.93, -3.55, 0.93)
pt3dadd(-67.79, 208.67, -4.05, 0.93)
pt3dadd(-68.97, 208.8, -3.7, 0.93)
}
}
proc shape3d_5() {
dend[7] { pt3dadd(-69.66, 209.06, -4.12, 0.77)
pt3dadd(-70.61, 208.84, -4.91, 0.77)
pt3dadd(-71.23, 208.95, -5.38, 0.77)
pt3dadd(-72.24, 209.38, -5.48, 0.77)
pt3dadd(-73.15, 209.95, -5.69, 0.77)
pt3dadd(-74.16, 209.86, -6.63, 0.77)
pt3dadd(-75.26, 210.41, -7.54, 0.77)
pt3dadd(-76.08, 210.99, -8.08, 0.77)
pt3dadd(-76.88, 211.4, -8.61, 0.77)
pt3dadd(-77.79, 211.17, -9.45, 0.77)
pt3dadd(-78.26, 211.45, -9.89, 0.62)
pt3dadd(-78.41, 212.23, -10.02, 0.62)
pt3dadd(-79.18, 213.13, -10.63, 0.62)
pt3dadd(-79.91, 214.02, -11.29, 0.62)
pt3dadd(-80.77, 214.27, -11.77, 0.62)
pt3dadd(-81.44, 214.22, -12.4, 0.62)
pt3dadd(-82.18, 214.48, -12.76, 0.62)
pt3dadd(-82.98, 214.74, -13.29, 0.62)
pt3dadd(-84.3, 215.27, -14.42, 0.62)
pt3dadd(-84.47, 216.37, -14.56, 0.62)
pt3dadd(-84.48, 216.68, -14.57, 0.62)
pt3dadd(-85.13, 217.12, -15.06, 0.62)
pt3dadd(-85.53, 218.19, -15.41, 0.62)
pt3dadd(-86.64, 218.45, -15.6, 0.62)
pt3dadd(-87.34, 218.87, -16.25, 0.46)
pt3dadd(-87.92, 219.14, -16.78, 0.46)
pt3dadd(-88.39, 220.05, -16.8, 0.46)
pt3dadd(-89.13, 220.66, -16.75, 0.46)
pt3dadd(-89.48, 221.44, -16.66, 0.46)
pt3dadd(-89.96, 222.2, -16.89, 0.46)
pt3dadd(-90.61, 223.11, -16.96, 0.46)
pt3dadd(-91.2, 223.54, -17.51, 0.46)
pt3dadd(-91.79, 223.96, -18.04, 0.46)
pt3dadd(-92.06, 224.9, -18.29, 0.46)
pt3dadd(-92.66, 226.13, -18.2, 0.46)
pt3dadd(-92.92, 227.06, -18.23, 0.46)
pt3dadd(-94.29, 227.36, -17.01, 0.46)
pt3dadd(-95.35, 228.1, -16.85, 0.46)
pt3dadd(-95.79, 228.88, -16.42, 0.46)
pt3dadd(-96.65, 229.14, -16.91, 0.46)
pt3dadd(-97.6, 229.89, -16.84, 0.46)
pt3dadd(-99.01, 231.12, -15.67, 0.46)
pt3dadd(-99.15, 231.92, -15.36, 0.46)
pt3dadd(-99.08, 232.88, -15.29, 0.46)
pt3dadd(-99.51, 233.68, -14.43, 0.46)
pt3dadd(-99.29, 233.84, -14.23, 0.46)
pt3dadd(-99.75, 234.47, -14.24, 0.46)
pt3dadd(-100.41, 235.2, -14.52, 0.46)
pt3dadd(-101.46, 235.95, -14.36, 0.46)
pt3dadd(-102.09, 236.23, -14.62, 0.46)
pt3dadd(-102.69, 236.98, -15.17, 0.46)
pt3dadd(-104.41, 237.67, -15.21, 0.46)
pt3dadd(-105.29, 237.95, -15.2, 0.46)
pt3dadd(-106.15, 238.7, -15.47, 0.46)
pt3dadd(-106.07, 239.34, -15.38, 0.46)
pt3dadd(-106.21, 240.13, -15.3, 0.46)
pt3dadd(-107.26, 240.39, -15.34, 0.46)
pt3dadd(-107.87, 241.16, -14.97, 0.46)
pt3dadd(-108.06, 241.8, -14.82, 0.46)
pt3dadd(-109.17, 242.38, -14.81, 0.46)
pt3dadd(-109.79, 242.8, -14.86, 0.46)
pt3dadd(-111.08, 243.07, -14.4, 0.46)
pt3dadd(-111.99, 243.5, -14.83, 0.46)
pt3dadd(-113.47, 244.22, -14.44, 0.46)
pt3dadd(-113.95, 244.83, -14.67, 0.46)
pt3dadd(-115.28, 245.45, -13.73, 0.46)
pt3dadd(-116.4, 246.19, -13.51, 0.46)
pt3dadd(-118.06, 246.29, -13.09, 0.46)
pt3dadd(-118.8, 246.71, -13.24, 0.46)
pt3dadd(-120.6, 247.44, -12.74, 0.46)
pt3dadd(-121.41, 248.01, -13.28, 0.46)
pt3dadd(-123.16, 247.46, -12.94, 0.46)
pt3dadd(-124.4, 247.41, -12.96, 0.46)
pt3dadd(-125.49, 247.05, -12.21, 0.46)
pt3dadd(-126.98, 246.84, -11.95, 0.46)
pt3dadd(-128.4, 246.92, -11.81, 0.46)
pt3dadd(-129.84, 247.8, -11.7, 0.46)
pt3dadd(-130.63, 248.4, -11.8, 0.46)
pt3dadd(-132.08, 248.79, -12.11, 0.46)
pt3dadd(-133.05, 249.85, -12.05, 0.46)
pt3dadd(-133.4, 251.01, -10.41, 0.46)
pt3dadd(-133.93, 251.44, -10.79, 0.46)
pt3dadd(-134.15, 252.37, -10.87, 0.46)
pt3dadd(-134.97, 252.8, -10.92, 0.46)
pt3dadd(-135.93, 252.73, -11.48, 0.46)
pt3dadd(-136.46, 253.17, -11.87, 0.46)
pt3dadd(-136.78, 252.84, -12.17, 0.77)
}
dend[8] {pt3dclear()
pt3dadd(-2.73, 117.23, 19.24, 2.14)
pt3dadd(-2.12, 117.87, 21.05, 1.22)
pt3dadd(-2.04, 118.48, 21.13, 1.22)
pt3dadd(-1.85, 119.16, 22.96, 1.22)
pt3dadd(-2.07, 119.69, 23.81, 1.22)
pt3dadd(-2.21, 120.92, 24.31, 1.22)
pt3dadd(-2.4, 122.14, 24.86, 1.22)
pt3dadd(-2.36, 123.49, 26.56, 1.22)
pt3dadd(-2.59, 124.4, 27.08, 1.22)
pt3dadd(-3.3, 125.31, 28.1, 1.22)
pt3dadd(-3.58, 127.2, 28.48, 1.22)
pt3dadd(-4.76, 128.16, 29.57, 1.22)
pt3dadd(-5.04, 129.02, 30.56, 1.22)
pt3dadd(-5.59, 129.26, 31.7, 1.53)
}
dend[9] {pt3dclear()
pt3dadd(-5.59, 129.26, 31.7, 1.53)
pt3dadd(-4.76, 130.01, 32.38, 1.22)
pt3dadd(-4.37, 131.16, 32.75, 1.22)
pt3dadd(-4.52, 132.15, 32.73, 1.22)
pt3dadd(-4.63, 133.41, 32.75, 1.22)
pt3dadd(-4.53, 134.94, 33.07, 1.22)
pt3dadd(-4.5, 136.13, 33.82, 1.22)
pt3dadd(-4.39, 137.88, 34.67, 1.22)
pt3dadd(-4.41, 140.02, 35.29, 1.22)
pt3dadd(-4.78, 141.87, 36.21, 1.22)
pt3dadd(-5.47, 142.46, 37.13, 1.22)
pt3dadd(-5.45, 144.6, 37.7, 1.22)
pt3dadd(-5.08, 146.38, 38.26, 1.22)
pt3dadd(-4.57, 147.47, 38.95, 1.22)
pt3dadd(-5.67, 148.99, 38.26, 1.22)
pt3dadd(-5.71, 150.22, 38.65, 1.22)
pt3dadd(-5.31, 152.3, 39.26, 1.22)
pt3dadd(-4.05, 153.53, 40.55, 0.92)
pt3dadd(-4.19, 154.21, 40.42, 0.92)
pt3dadd(-4.38, 156.16, 40.27, 0.92)
pt3dadd(-4.12, 157.63, 40.85, 0.92)
pt3dadd(-4.41, 158.84, 41.52, 0.92)
pt3dadd(-5.31, 159.93, 41.42, 0.92)
pt3dadd(-5.45, 160.91, 41.39, 0.92)
pt3dadd(-6.15, 161.52, 42.31, 0.92)
pt3dadd(-6.03, 162.72, 42.54, 0.92)
pt3dadd(-5.46, 163.47, 43.49, 0.92)
pt3dadd(-5.46, 163.79, 43.58, 0.92)
}
dend[10] {pt3dclear()
pt3dadd(-5.46, 163.79, 43.58, 0.92)
pt3dadd(-4.19, 164.72, 44.77, 0.92)
pt3dadd(-3.66, 165.71, 46.31, 0.92)
pt3dadd(-2.85, 167.06, 47.19, 0.92)
pt3dadd(-2.15, 167.5, 47.94, 0.92)
pt3dadd(-0.74, 167.77, 49.25, 0.92)
pt3dadd(0.19, 168.03, 51.06, 0.92)
pt3dadd(1.12, 169.89, 52.87, 0.92)
pt3dadd(1.9, 170.94, 53.7, 0.92)
pt3dadd(3.43, 172.13, 55.13, 0.92)
pt3dadd(4.32, 173.11, 56.28, 0.92)
pt3dadd(5.24, 173.5, 57.24, 0.92)
pt3dadd(6.97, 173.95, 59.16, 0.92)
pt3dadd(7.84, 174.03, 60.07, 0.92)
pt3dadd(8.28, 174.22, 60.57, 1.53)
pt3dadd(9.59, 175.45, 61.8, 0.92)
pt3dadd(10.23, 177.19, 62.52, 0.92)
pt3dadd(10.81, 177.92, 63.48, 0.92)
pt3dadd(11.69, 177.7, 64.3, 0.92)
pt3dadd(12.1, 178.49, 65, 0.92)
pt3dadd(13.01, 179.18, 66.05, 0.92)
pt3dadd(13.65, 179.32, 66.76, 0.92)
pt3dadd(14.4, 179.75, 67.45, 0.92)
pt3dadd(15.54, 180.09, 68.61, 0.92)
pt3dadd(16.72, 180.41, 69.71, 0.92)
pt3dadd(16.85, 181.33, 69.84, 0.92)
pt3dadd(17.8, 182.01, 70.84, 0.92)
pt3dadd(18.72, 182.09, 71.69, 0.92)
pt3dadd(19.29, 182.89, 72.23, 0.92)
pt3dadd(19.39, 183.44, 72.73, 0.92)
pt3dadd(19.83, 183.33, 73.14, 0.92)
pt3dadd(20.44, 183.15, 73.81, 0.92)
pt3dadd(20.93, 183.59, 74.79, 0.92)
pt3dadd(21.21, 184.22, 75.09, 0.77)
pt3dadd(20.52, 185.02, 76.22, 0.77)
pt3dadd(21.25, 185.38, 77, 0.77)
pt3dadd(20.6, 186.34, 78.06, 0.77)
pt3dadd(19.27, 186.32, 79.51, 0.77)
pt3dadd(18.75, 186.6, 79.35, 0.77)
pt3dadd(18.23, 186.6, 79.7, 0.77)
pt3dadd(16.98, 186.7, 79.88, 0.77)
pt3dadd(16.3, 186.02, 79.55, 0.62)
pt3dadd(14.85, 185.18, 80.26, 0.62)
pt3dadd(14.5, 184.38, 80.03, 0.62)
pt3dadd(14.1, 183.88, 80.27, 0.62)
pt3dadd(13.73, 182.76, 80.54, 0.62)
pt3dadd(13.63, 181.82, 80.96, 0.62)
pt3dadd(13.07, 180.66, 80.52, 0.62)
pt3dadd(11.9, 179.98, 80.47, 0.62)
pt3dadd(11.22, 179.63, 80.55, 0.62)
pt3dadd(11.17, 179.48, 80.62, 1.08)
pt3dadd(11, 178.52, 80.44, 1.08)
pt3dadd(9.68, 178.3, 80.96, 1.08)
pt3dadd(9.26, 177.98, 80.99, 1.08)
pt3dadd(9.04, 177.79, 80.79, 1.08)
pt3dadd(8.29, 178.21, 80.19, 0.77)
pt3dadd(7.82, 178.34, 79.76, 0.77)
pt3dadd(6.75, 177.95, 79.59, 0.62)
pt3dadd(5.15, 178.05, 80.17, 0.62)
pt3dadd(4.25, 178.16, 79.76, 0.62)
pt3dadd(2.71, 178.55, 79.79, 0.62)
pt3dadd(2.02, 178.85, 80.28, 0.62)
pt3dadd(0.83, 178.92, 79.29, 0.62)
pt3dadd(-0.29, 179, 78.66, 0.62)
pt3dadd(-1.11, 178.79, 78.2, 0.62)
pt3dadd(-2.08, 178.87, 77.4, 0.62)
pt3dadd(-3.32, 178.77, 76.25, 0.46)
pt3dadd(-3.87, 178.26, 75.73, 0.46)
}
dend[11] {pt3dclear()
pt3dadd(-5.46, 163.79, 43.58, 0.92)
pt3dadd(-6.59, 166.22, 43.19, 0.92)
pt3dadd(-6.03, 168.54, 44.15, 0.92)
}
}
proc shape3d_6() {
dend[11] { pt3dadd(-4.55, 170.03, 45.74, 0.92)
pt3dadd(-3.51, 171.02, 46.72, 0.92)
pt3dadd(-3.67, 172.62, 46.9, 0.92)
pt3dadd(-3.03, 174.02, 47.51, 0.92)
pt3dadd(-2.56, 175.8, 47.97, 0.92)
pt3dadd(-2, 176.62, 48.5, 0.92)
pt3dadd(-1.49, 177.42, 49.09, 0.92)
pt3dadd(-1.5, 179.01, 49.1, 0.92)
pt3dadd(-1.42, 179.63, 49.18, 0.92)
pt3dadd(-1.17, 181.45, 49.43, 0.92)
pt3dadd(-0.83, 182.31, 49.76, 0.92)
pt3dadd(-0.8, 184.21, 49.81, 0.92)
pt3dadd(-0.68, 185.13, 49.93, 0.92)
pt3dadd(-0.77, 186.1, 49.86, 0.92)
}
dend[12] {pt3dclear()
pt3dadd(-0.77, 186.1, 49.86, 0.92)
pt3dadd(-1.9, 186.99, 49.03, 0.92)
pt3dadd(-2.48, 187.78, 48.5, 0.92)
pt3dadd(-2.96, 188.88, 47.95, 0.92)
pt3dadd(-3.05, 189.54, 47.79, 0.92)
pt3dadd(-3.34, 190.95, 47.11, 0.92)
pt3dadd(-3.01, 193.09, 47.35, 0.92)
pt3dadd(-2.53, 194.55, 47.71, 0.92)
pt3dadd(-2.76, 196.2, 47.51, 0.92)
pt3dadd(-3.14, 198.52, 47.19, 0.92)
pt3dadd(-2.85, 200.66, 47.48, 0.92)
pt3dadd(-2.41, 202.26, 46.98, 0.92)
pt3dadd(-2.76, 203.96, 46.47, 0.92)
pt3dadd(-1.61, 204.95, 47.34, 0.92)
pt3dadd(-1.3, 206.5, 47.45, 0.92)
pt3dadd(-1.51, 208.26, 46.33, 0.92)
pt3dadd(-1.16, 210.09, 46.48, 0.92)
pt3dadd(-1.24, 211.43, 46.01, 0.92)
pt3dadd(-0.92, 212.42, 45.48, 0.92)
pt3dadd(-1.15, 213.76, 45.19, 0.92)
pt3dadd(-0.31, 214.99, 44.63, 0.92)
pt3dadd(-0.14, 217.19, 44.61, 0.92)
pt3dadd(0.01, 218.17, 44.25, 0.92)
pt3dadd(0.12, 220.13, 43.76, 0.92)
pt3dadd(0.19, 222.07, 43.33, 0.92)
pt3dadd(-0.43, 222.55, 42.76, 0.92)
pt3dadd(-0.16, 224.52, 42.1, 0.92)
pt3dadd(0.69, 225.93, 42.5, 0.92)
pt3dadd(1.42, 227.95, 43.19, 0.92)
pt3dadd(1.01, 229.97, 42.84, 0.92)
pt3dadd(0.58, 231.97, 42.47, 0.92)
pt3dadd(0.91, 234.42, 42.81, 0.92)
pt3dadd(0.94, 236.32, 42.85, 0.92)
pt3dadd(0.57, 238.63, 42.53, 0.92)
pt3dadd(0.25, 239.66, 42.25, 0.92)
pt3dadd(0.32, 241.87, 42.34, 0.92)
pt3dadd(0.06, 245.1, 42.14, 0.92)
pt3dadd(0.57, 247.18, 42.64, 0.92)
pt3dadd(0.55, 248.77, 42.64, 0.92)
pt3dadd(1, 248.66, 43.05, 1.84)
pt3dadd(0.72, 250, 42.81, 0.92)
pt3dadd(0.7, 251.58, 42.82, 0.92)
pt3dadd(2.68, 252.65, 44.66, 0.92)
pt3dadd(2.44, 254.3, 44.46, 0.92)
pt3dadd(2.42, 255.88, 44.46, 0.92)
pt3dadd(2.22, 258.14, 44.41, 0.92)
pt3dadd(2.29, 259.05, 44.59, 0.92)
pt3dadd(2.01, 260.41, 44.35, 0.92)
pt3dadd(2.41, 263.77, 44.86, 0.92)
pt3dadd(1.96, 265.48, 44.46, 0.92)
pt3dadd(1.8, 267.73, 44.34, 0.92)
pt3dadd(1.16, 269.8, 43.77, 0.92)
pt3dadd(0.75, 271.8, 43.42, 0.92)
pt3dadd(1.12, 274.55, 43.79, 0.92)
pt3dadd(1.14, 276.45, 43.83, 0.92)
pt3dadd(1.22, 278.66, 43.93, 0.92)
pt3dadd(0.79, 280.66, 43.56, 0.92)
pt3dadd(1.18, 281.83, 43.93, 0.92)
pt3dadd(1.13, 283.13, 43.9, 1.22)
pt3dadd(1.34, 284.67, 44.11, 1.22)
pt3dadd(1.54, 285.23, 44.51, 1.22)
pt3dadd(1.87, 287.92, 45.36, 1.22)
pt3dadd(1.5, 289.2, 45.67, 0.92)
pt3dadd(1.33, 290.79, 45.83, 0.92)
pt3dadd(0.19, 291.56, 45.92, 0.92)
pt3dadd(-0.49, 292.58, 46.02, 0.92)
pt3dadd(-1.17, 293.93, 46.22, 0.92)
pt3dadd(-1.79, 295.2, 46.81, 0.92)
pt3dadd(-2.44, 295.87, 47.24, 0.92)
pt3dadd(-2.32, 296.77, 47.36, 0.92)
pt3dadd(-1.58, 297.22, 48.05, 0.92)
pt3dadd(-2.61, 298.42, 47.22, 0.92)
pt3dadd(-2.85, 300.07, 47.02, 0.92)
pt3dadd(-3.04, 300.73, 46.96, 0.92)
pt3dadd(-3.45, 301.47, 46.68, 0.92)
pt3dadd(-3.55, 302.45, 46.61, 0.92)
pt3dadd(-3.46, 302.02, 47.31, 1.53)
pt3dadd(-3.42, 302.32, 47.35, 1.53)
pt3dadd(-3.07, 303.19, 47.68, 1.53)
pt3dadd(-2.28, 303.93, 48.42, 1.53)
pt3dadd(-2.43, 304.89, 48.39, 0.92)
pt3dadd(-2.75, 305.94, 48.11, 0.92)
pt3dadd(-2.87, 307.52, 48.22, 0.92)
pt3dadd(-2.66, 309.05, 48.43, 0.92)
pt3dadd(-3.45, 309.83, 48.13, 0.92)
pt3dadd(-3.71, 311.12, 48.32, 0.92)
pt3dadd(-3.86, 312.1, 48.29, 1.84)
pt3dadd(-4.63, 313.79, 48.22, 1.84)
pt3dadd(-4.75, 315.68, 48.44, 1.84)
pt3dadd(-4.68, 316.6, 48.61, 1.84)
pt3dadd(-4.66, 318.48, 48.66, 1.22)
pt3dadd(-4.36, 319.35, 49.05, 0.92)
pt3dadd(-3.72, 320.76, 49.67, 0.92)
pt3dadd(-3.59, 321.69, 49.79, 0.92)
pt3dadd(-2.69, 323.36, 50.65, 0.92)
pt3dadd(-2.08, 324.45, 51.23, 0.92)
pt3dadd(-2.1, 326.33, 51.33, 0.92)
pt3dadd(-2.23, 327.95, 51.44, 0.92)
pt3dadd(-2.58, 330.2, 51.55, 0.92)
pt3dadd(-2.42, 331.73, 51.81, 0.92)
pt3dadd(-2.56, 332.38, 51.69, 0.92)
pt3dadd(-3.22, 333.79, 51.42, 0.92)
pt3dadd(-2.84, 335.27, 51.89, 0.92)
pt3dadd(-3.12, 336.59, 51.65, 0.61)
pt3dadd(-3.06, 338.8, 51.73, 0.61)
pt3dadd(-3.37, 340.07, 51.98, 0.61)
pt3dadd(-3.92, 341.48, 51.58, 0.61)
pt3dadd(-4.02, 342.75, 51.61, 0.61)
pt3dadd(-4.16, 343.42, 51.49, 0.61)
pt3dadd(-4.63, 345.13, 51.08, 0.61)
pt3dadd(-5.46, 345.66, 50.31, 0.61)
pt3dadd(-5.42, 345.97, 50.35, 0.61)
pt3dadd(-5.34, 346.57, 50.44, 0.61)
pt3dadd(-5.18, 347.8, 50.6, 0.61)
pt3dadd(-5.59, 348.54, 50.32, 0.61)
pt3dadd(-5.6, 350.11, 50.33, 0.61)
pt3dadd(-5.52, 350.73, 50.41, 0.61)
pt3dadd(-5.39, 351.65, 50.54, 0.61)
pt3dadd(-5.01, 352.82, 50.91, 0.61)
pt3dadd(-5.33, 353.86, 50.63, 0.61)
pt3dadd(-5.43, 354.83, 50.55, 0.61)
pt3dadd(-5.3, 355.73, 50.68, 0.61)
pt3dadd(-5.18, 356.66, 50.8, 0.61)
pt3dadd(-5.71, 357.95, 51.27, 0.61)
pt3dadd(-5.1, 359.05, 51.85, 0.61)
pt3dadd(-5.54, 359.16, 51.44, 0.61)
pt3dadd(-5.9, 359.9, 51.11, 0.61)
pt3dadd(-6.44, 360.98, 50.63, 0.61)
pt3dadd(-6.58, 361.65, 50.5, 0.61)
pt3dadd(-6.81, 362.49, 50.3, 0.61)
pt3dadd(-8.73, 364.05, 52.36, 0.61)
pt3dadd(-8.87, 364.72, 52.24, 0.61)
pt3dadd(-9.23, 365.45, 51.91, 0.61)
pt3dadd(-9.77, 366.55, 51.42, 0.61)
pt3dadd(-10.08, 367.27, 51.04, 0.61)
pt3dadd(-10.42, 366.41, 50.71, 0.61)
pt3dadd(-11.3, 366.64, 49.9, 0.61)
pt3dadd(-12, 366.5, 49.25, 2.14)
}
dend[13] {pt3dclear()
pt3dadd(-0.77, 186.1, 49.86, 0.92)
pt3dadd(0.49, 187.04, 51.04, 0.92)
pt3dadd(1.27, 189.07, 51.68, 0.92)
pt3dadd(1.47, 190.6, 51.89, 0.92)
pt3dadd(2.57, 191.9, 52.92, 0.92)
pt3dadd(3.66, 193.2, 53.94, 0.92)
pt3dadd(3.46, 195.15, 53.78, 0.92)
pt3dadd(4.6, 196.45, 54.74, 0.92)
pt3dadd(5.47, 197.8, 55.57, 0.61)
pt3dadd(5.9, 199.28, 55.98, 0.61)
pt3dadd(6.8, 200.95, 56.84, 0.61)
pt3dadd(7.46, 202.36, 57.46, 0.61)
pt3dadd(8.84, 204.22, 58.77, 0.61)
pt3dadd(8.83, 205.8, 58.78, 0.61)
pt3dadd(9.51, 207.28, 58.92, 0.61)
pt3dadd(10.39, 208.33, 59.64, 0.61)
pt3dadd(11.49, 209.32, 60.56, 0.61)
pt3dadd(12.21, 211.11, 60.74, 0.61)
pt3dadd(12.71, 211.96, 60.9, 0.61)
pt3dadd(13.56, 213.38, 61.3, 0.61)
pt3dadd(13.2, 214.12, 60.98, 0.61)
pt3dadd(13.47, 214.37, 61.23, 2.14)
}
dend[14] {pt3dclear()
pt3dadd(-5.59, 129.26, 31.7, 1.53)
pt3dadd(-5.92, 130.59, 31.52, 1.22)
pt3dadd(-6.87, 132.11, 30.66, 1.22)
pt3dadd(-6.74, 133.02, 30.79, 1.22)
pt3dadd(-6.99, 134.97, 30.68, 1.22)
pt3dadd(-7.09, 136.25, 30.71, 1.22)
pt3dadd(-6.68, 138.03, 31.22, 1.22)
pt3dadd(-6.88, 140.29, 31.15, 1.22)
pt3dadd(-7.05, 142.85, 31.14, 1.22)
pt3dadd(-7.81, 145.53, 30.88, 1.22)
pt3dadd(-7.65, 147.3, 31.66, 1.22)
pt3dadd(-7.62, 149.13, 32.13, 1.22)
pt3dadd(-7.94, 150.47, 31.95, 1.22)
pt3dadd(-8.05, 152.3, 32.59, 1.22)
pt3dadd(-8.53, 153.65, 32.57, 1.22)
pt3dadd(-9.22, 154.72, 32.25, 1.22)
pt3dadd(-8.98, 156.57, 32.5, 1.22)
pt3dadd(-8.86, 157.47, 32.62, 1.22)
pt3dadd(-9.75, 158.27, 32.44, 1.22)
pt3dadd(-10.03, 158.94, 32.48, 1.22)
}
dend[15] {pt3dclear()
pt3dadd(-10.03, 158.94, 32.48, 1.22)
pt3dadd(-8.78, 160.19, 33.76, 1.22)
pt3dadd(-9.14, 161.94, 35.1, 0.92)
pt3dadd(-9.39, 163.47, 35.81, 0.92)
pt3dadd(-10.23, 165.05, 36.71, 0.92)
pt3dadd(-10.09, 166.88, 37.07, 0.61)
}
}
proc shape3d_7() {
dend[15] { pt3dadd(-10.34, 168.1, 37.68, 0.61)
pt3dadd(-10.32, 169.33, 38.02, 0.61)
pt3dadd(-10.46, 171.23, 38.23, 0.61)
pt3dadd(-10.35, 172.26, 39.79, 0.61)
pt3dadd(-10.99, 173.89, 40.03, 0.61)
pt3dadd(-11.85, 174.99, 39.88, 0.61)
pt3dadd(-12.73, 176.01, 40.2, 0.61)
pt3dadd(-13.06, 176.62, 40.74, 0.61)
pt3dadd(-13.89, 177.65, 41.01, 0.61)
pt3dadd(-14.39, 179.05, 40.57, 0.61)
pt3dadd(-15.12, 180.8, 40.01, 0.61)
pt3dadd(-15.09, 182.7, 40.06, 0.61)
pt3dadd(-14.94, 184.23, 40.33, 0.61)
pt3dadd(-14.84, 185.76, 40.64, 0.61)
pt3dadd(-14.92, 186.66, 40.99, 0.61)
pt3dadd(-14.89, 188.56, 41.03, 0.61)
pt3dadd(-15.2, 189.54, 41.19, 0.61)
pt3dadd(-15.31, 190.81, 41.2, 0.61)
pt3dadd(-15.54, 192.46, 41, 0.61)
pt3dadd(-15.74, 194.41, 40.84, 0.61)
pt3dadd(-15.79, 195.7, 40.8, 0.61)
pt3dadd(-15.55, 197.53, 41.06, 0.61)
pt3dadd(-15.39, 199.05, 41.32, 0.61)
pt3dadd(-15.31, 199.98, 41.5, 0.61)
pt3dadd(-15.29, 200.59, 41.64, 0.61)
pt3dadd(-17.18, 201.23, 44.16, 0.46)
pt3dadd(-17.27, 202.19, 44.41, 0.46)
pt3dadd(-17.27, 203.29, 44.53, 0.46)
pt3dadd(-16.91, 204.27, 44.97, 0.46)
pt3dadd(-16.85, 204.44, 45.13, 0.62)
pt3dadd(-16.75, 205.72, 45.35, 0.62)
pt3dadd(-16.72, 206.52, 45.49, 0.62)
pt3dadd(-17.32, 207.76, 45.57, 0.62)
pt3dadd(-19.18, 208.18, 46.63, 0.62)
pt3dadd(-19.32, 208.48, 46.51, 0.62)
pt3dadd(-19.71, 209.11, 46.88, 0.62)
pt3dadd(-19.49, 209.48, 48.22, 0.62)
pt3dadd(-19.81, 210.25, 48.04, 0.62)
pt3dadd(-20.71, 210.83, 48.04, 0.62)
pt3dadd(-21.44, 211.44, 48.09, 0.62)
pt3dadd(-21.84, 212.21, 48.46, 0.62)
pt3dadd(-22.08, 212.83, 48.45, 0.77)
pt3dadd(-21.83, 213.66, 48.79, 0.77)
pt3dadd(-22.19, 214.15, 49.81, 0.77)
pt3dadd(-22.51, 214.79, 50.56, 0.77)
pt3dadd(-22.56, 216.21, 50.73, 0.62)
pt3dadd(-23.42, 217.26, 49.95, 0.62)
pt3dadd(-23.96, 218.34, 49.76, 0.62)
pt3dadd(-24.96, 219.24, 50.08, 0.62)
pt3dadd(-25.04, 220.2, 50.54, 0.62)
pt3dadd(-25.24, 221.14, 50.68, 0.62)
pt3dadd(-25.86, 222.25, 51.25, 0.62)
pt3dadd(-26.17, 223.02, 51.28, 0.62)
pt3dadd(-26.9, 223.79, 51.55, 0.62)
pt3dadd(-27.16, 224.71, 51.52, 0.62)
pt3dadd(-27.27, 225.35, 52.05, 0.62)
pt3dadd(-27.71, 225.98, 52.69, 0.62)
pt3dadd(-27.96, 226.94, 52.88, 0.62)
pt3dadd(-28.28, 228.2, 53.12, 0.62)
pt3dadd(-28.48, 228.98, 53.04, 0.62)
pt3dadd(-28.69, 230.08, 53.16, 0.62)
pt3dadd(-28.77, 231.03, 53.41, 0.62)
pt3dadd(-28.83, 231.98, 53.38, 0.62)
pt3dadd(-28.56, 232.81, 53.93, 0.62)
pt3dadd(-29.38, 233.37, 53.18, 0.62)
pt3dadd(-29.44, 234.47, 53.14, 0.62)
pt3dadd(-30.06, 235.41, 53.72, 0.62)
pt3dadd(-30.29, 236.04, 53.92, 0.62)
pt3dadd(-30.71, 237.3, 54.27, 0.62)
pt3dadd(-30.58, 238.27, 54.72, 0.62)
pt3dadd(-30.97, 238.39, 54.45, 0.62)
pt3dadd(-31.83, 239.3, 54.39, 0.62)
pt3dadd(-32.37, 240.05, 54, 0.62)
pt3dadd(-32.42, 241.03, 54.18, 0.62)
pt3dadd(-32.62, 241.96, 54.11, 0.62)
pt3dadd(-32.96, 242.92, 54.84, 0.62)
pt3dadd(-33.02, 243.73, 55.52, 0.62)
pt3dadd(-33.66, 244.2, 56.16, 0.62)
pt3dadd(-33.57, 245.02, 56.68, 0.62)
pt3dadd(-33.09, 246, 57.23, 0.62)
pt3dadd(-33.53, 246.64, 57.87, 0.62)
pt3dadd(-33.84, 247.89, 58.11, 0.62)
pt3dadd(-34.06, 248.71, 59.16, 0.62)
pt3dadd(-34.66, 249.78, 58.82, 0.62)
pt3dadd(-34.76, 250.72, 58.84, 0.62)
pt3dadd(-35.48, 251.31, 59.11, 0.62)
pt3dadd(-36.08, 252.23, 58.77, 0.62)
pt3dadd(-36.35, 252.72, 59.25, 0.62)
pt3dadd(-36.37, 253.84, 59.86, 0.62)
pt3dadd(-36.45, 254.8, 60.31, 0.62)
pt3dadd(-36.15, 255.77, 60.6, 0.62)
pt3dadd(-35.54, 257.08, 61.18, 0.62)
pt3dadd(-35.61, 258.51, 61.13, 0.62)
pt3dadd(-35.61, 259.77, 61.26, 0.46)
pt3dadd(-35.43, 260.91, 61.44, 0.46)
pt3dadd(-35.52, 262.64, 61.37, 0.46)
pt3dadd(-35.34, 263.6, 61.55, 0.46)
pt3dadd(-35.49, 264.38, 61.63, 0.46)
pt3dadd(-35.75, 265.48, 61.6, 0.46)
pt3dadd(-36.29, 266.39, 61.64, 0.46)
pt3dadd(-37.26, 269.18, 61.08, 0.46)
pt3dadd(-38, 269.6, 60.71, 0.46)
pt3dadd(-38.41, 270.23, 60.64, 0.46)
pt3dadd(-38.6, 270.67, 60.58, 0.46)
pt3dadd(-38.78, 270.98, 60.51, 1.08)
pt3dadd(-39.28, 271.89, 60.06, 1.08)
pt3dadd(-39.41, 272.2, 59.95, 1.08)
pt3dadd(-39.35, 273.33, 60.02, 0.77)
pt3dadd(-39.04, 273.98, 60.31, 0.62)
pt3dadd(-38.85, 274.63, 60.5, 0.62)
pt3dadd(-38.79, 275.13, 61.08, 0.62)
pt3dadd(-39, 275.94, 61.93, 0.62)
pt3dadd(-39.6, 277.52, 63.35, 0.62)
pt3dadd(-39.21, 278.67, 63.73, 0.62)
pt3dadd(-39.05, 280.27, 63.89, 0.62)
pt3dadd(-38.87, 281.07, 64.07, 0.46)
pt3dadd(-38.6, 282.52, 64.34, 0.46)
pt3dadd(-39.1, 283.58, 63.89, 0.46)
pt3dadd(-39.12, 284.05, 63.87, 0.46)
pt3dadd(-39.26, 284.83, 63.96, 0.46)
pt3dadd(-39.03, 285.98, 64.29, 0.46)
pt3dadd(-39.07, 286.77, 64.26, 0.46)
pt3dadd(-39.1, 287.39, 64.24, 0.46)
pt3dadd(-39.43, 288.49, 64.04, 0.46)
pt3dadd(-39.91, 288.92, 63.61, 0.46)
pt3dadd(-39.81, 289.25, 63.71, 0.93)
}
dend[16] {pt3dclear()
pt3dadd(-10.03, 158.94, 32.48, 1.22)
pt3dadd(-10.68, 160.27, 32.63, 1.22)
pt3dadd(-11.07, 161.66, 32.07, 1.22)
pt3dadd(-11.35, 163.01, 31.83, 0.92)
pt3dadd(-10.64, 163.62, 31.25, 0.92)
pt3dadd(-9.26, 165.17, 30.17, 0.92)
pt3dadd(-7.93, 166.48, 28.64, 0.92)
pt3dadd(-7.47, 166.48, 28.14, 0.92)
pt3dadd(-6.97, 168.38, 27.68, 0.92)
pt3dadd(-6.19, 169.61, 27.18, 0.92)
pt3dadd(-5.32, 170.91, 26.15, 0.92)
pt3dadd(-4.28, 172.13, 25.37, 0.92)
pt3dadd(-3.43, 172.52, 24.1, 0.92)
pt3dadd(-2.68, 173.14, 23.46, 0.92)
pt3dadd(-1.93, 173.77, 22.82, 0.92)
pt3dadd(-1.35, 175.41, 21.73, 0.92)
pt3dadd(-0.43, 175.97, 21.35, 0.92)
}
dend[17] {pt3dclear()
pt3dadd(-0.43, 175.97, 21.35, 0.92)
pt3dadd(0.59, 177.35, 22, 0.61)
pt3dadd(1.16, 178.14, 22.54, 0.61)
pt3dadd(1.63, 179.93, 23, 0.61)
pt3dadd(2.05, 181.4, 23.41, 0.61)
pt3dadd(2.78, 183.42, 24.11, 0.61)
pt3dadd(3.25, 183.92, 24.66, 0.61)
pt3dadd(3.81, 185.03, 25.28, 0.61)
pt3dadd(3.71, 186.01, 25.2, 0.61)
pt3dadd(3.86, 187.53, 25.47, 0.61)
pt3dadd(3.71, 188.5, 25.44, 0.61)
pt3dadd(3.96, 190.34, 25.69, 0.61)
pt3dadd(2.97, 191.84, 24.9, 0.61)
pt3dadd(2.64, 193.2, 24.72, 0.61)
pt3dadd(3.28, 194.6, 25.33, 0.61)
pt3dadd(3.3, 195.84, 25.66, 0.61)
pt3dadd(2.8, 197.23, 25.22, 0.61)
pt3dadd(3.18, 198.7, 25.69, 0.61)
pt3dadd(4.27, 198.71, 26.8, 0.61)
pt3dadd(3.86, 199.45, 26.54, 0.61)
pt3dadd(3.24, 199.93, 25.97, 0.61)
pt3dadd(3.58, 200.78, 26.29, 0.61)
pt3dadd(4.71, 201.12, 27.46, 0.61)
pt3dadd(4.4, 202.15, 27.17, 0.61)
pt3dadd(3.71, 203.23, 26.85, 0.61)
pt3dadd(4.84, 203.55, 28.01, 0.61)
pt3dadd(3.74, 205.38, 27.42, 0.61)
pt3dadd(2.91, 206.83, 26.88, 0.61)
pt3dadd(4.27, 208.37, 28.15, 0.61)
pt3dadd(4.16, 210.94, 28.08, 0.61)
pt3dadd(4.38, 212.1, 28.62, 0.61)
pt3dadd(3.22, 212.38, 27.66, 0.61)
pt3dadd(2.61, 212.86, 27.09, 0.61)
pt3dadd(2.44, 214.45, 27.25, 0.61)
pt3dadd(2.37, 215.06, 27.51, 0.61)
pt3dadd(1.99, 216.09, 27.28, 0.61)
pt3dadd(2.63, 217.81, 27.99, 0.61)
pt3dadd(3.24, 218.92, 28.57, 0.61)
pt3dadd(3.97, 219.67, 29.36, 0.61)
pt3dadd(4.15, 219.55, 30.05, 0.61)
pt3dadd(4.1, 218.57, 30.28, 0.61)
pt3dadd(4.62, 218.09, 30.98, 0.61)
pt3dadd(4.79, 218.05, 31.23, 2.14)
}
dend[18] {pt3dclear()
pt3dadd(-0.43, 175.97, 21.35, 0.92)
pt3dadd(-0.82, 177.92, 21.42, 0.92)
pt3dadd(-1.32, 179.02, 20.88, 0.92)
pt3dadd(-1.86, 180.41, 20.48, 0.92)
pt3dadd(-2.09, 181.75, 20.19, 0.92)
}
dend[19] {pt3dclear()
pt3dadd(-2.09, 181.75, 20.19, 0.92)
pt3dadd(-2.29, 183.7, 20.03, 0.92)
pt3dadd(-2.3, 185.3, 20.04, 0.92)
pt3dadd(-2.39, 186.27, 19.96, 1.22)
pt3dadd(-2.8, 187.96, 19.5, 1.22)
pt3dadd(-2.84, 188.94, 19.36, 0.92)
pt3dadd(-1.73, 190.55, 18.15, 0.92)
pt3dadd(-1.01, 191.3, 16.66, 0.92)
pt3dadd(-1.62, 191.47, 15.99, 0.92)
}
}
proc shape3d_8() {
dend[19] { pt3dadd(-1.35, 192.69, 16.05, 0.92)
pt3dadd(-1.13, 193.61, 16.06, 0.92)
pt3dadd(-0.11, 194.41, 13.8, 0.92)
pt3dadd(-0.07, 195.46, 13.13, 0.92)
pt3dadd(-0.37, 196.18, 12.76, 0.92)
pt3dadd(0.37, 196.63, 13.45, 0.92)
pt3dadd(1.06, 197.79, 13.5, 0.92)
pt3dadd(1.37, 199.02, 13.49, 0.92)
pt3dadd(2.33, 198.18, 14.05, 0.92)
pt3dadd(2.74, 199.47, 13.51, 0.92)
pt3dadd(2.36, 200.26, 12.77, 0.92)
pt3dadd(3.06, 200.32, 11.56, 0.92)
pt3dadd(3, 201.36, 11, 0.92)
pt3dadd(3.76, 201.68, 10.26, 0.92)
pt3dadd(4.69, 202.24, 9.89, 0.92)
pt3dadd(6.36, 202.14, 8.96, 0.92)
pt3dadd(7.45, 202.39, 8.32, 0.92)
pt3dadd(8.59, 200.64, 8.43, 0.92)
pt3dadd(8.72, 201.25, 8.45, 0.92)
pt3dadd(8.63, 202.23, 8.37, 0.92)
pt3dadd(9.17, 202.85, 7.96, 0.92)
pt3dadd(9.3, 203.23, 7.46, 0.92)
pt3dadd(9.23, 204.01, 6.38, 0.92)
pt3dadd(10.06, 204.02, 5.48, 0.92)
pt3dadd(11.01, 204.16, 5.86, 0.92)
pt3dadd(12.46, 204.97, 5.45, 0.92)
pt3dadd(12.41, 205.41, 5.41, 0.93)
pt3dadd(12.2, 206.43, 5.22, 1.24)
pt3dadd(12.25, 207.23, 5.17, 1.24)
pt3dadd(13.75, 208.18, 3.8, 1.08)
pt3dadd(15.66, 208.98, 1.96, 1.08)
pt3dadd(16.91, 209.68, 0.34, 1.08)
pt3dadd(17.25, 210.55, -0.47, 1.08)
pt3dadd(19.76, 211.48, -2.68, 1.08)
pt3dadd(19.72, 212.34, -3.11, 1.08)
pt3dadd(20.22, 213.15, -4.81, 1.08)
pt3dadd(20.57, 214.17, -5.6, 1.08)
pt3dadd(20.56, 214.98, -5.6, 1.08)
pt3dadd(21.49, 215.34, -5.57, 1.08)
pt3dadd(21.82, 215.74, -5.35, 1.08)
pt3dadd(22.6, 216.47, -6.69, 1.08)
pt3dadd(22.18, 216.95, -7.49, 1.08)
pt3dadd(21.94, 217.35, -7.81, 0.93)
pt3dadd(21.55, 218.73, -8.16, 0.93)
pt3dadd(21.72, 219.11, -8.72, 0.93)
pt3dadd(22.93, 219.32, -9.04, 0.93)
pt3dadd(23.72, 219.51, -8.92, 0.93)
pt3dadd(24.35, 220.58, -9.05, 0.93)
pt3dadd(25.18, 221.62, -9.2, 0.93)
pt3dadd(25.43, 222.72, -9.37, 0.93)
pt3dadd(26.5, 223.05, -9.3, 0.93)
pt3dadd(27.52, 223.75, -8.35, 0.93)
pt3dadd(26.94, 223.84, -7.23, 0.93)
pt3dadd(27.48, 224.62, -6.42, 0.93)
pt3dadd(27.62, 225.23, -5.24, 0.93)
pt3dadd(27.61, 225.88, -4.11, 0.93)
pt3dadd(28.08, 226.71, -3.46, 0.93)
pt3dadd(27.96, 227.55, -3.56, 0.93)
pt3dadd(28.04, 228.66, -3.57, 0.93)
pt3dadd(28.34, 229.24, -3.5, 0.93)
pt3dadd(28.85, 229.61, -3.02, 0.77)
pt3dadd(30.03, 230.23, -2.95, 0.77)
pt3dadd(30.71, 231.02, -2.31, 0.77)
pt3dadd(31.04, 231.73, -1.99, 0.77)
pt3dadd(31.66, 232.55, -1.51, 0.77)
pt3dadd(32.59, 233.44, -0.65, 0.77)
pt3dadd(33.28, 233.91, -0.1, 0.77)
pt3dadd(33.91, 234.44, 0.06, 0.77)
pt3dadd(34.65, 234.93, 0.55, 0.77)
pt3dadd(35.11, 235.51, 0.47, 0.77)
pt3dadd(36.05, 236.31, 0.83, 0.62)
pt3dadd(37.2, 236.8, 0.87, 0.62)
pt3dadd(37.66, 237.16, 1.19, 0.62)
pt3dadd(38.4, 237.87, 1.27, 0.62)
pt3dadd(38.35, 238.38, 1.01, 0.62)
pt3dadd(38.7, 239.41, 0.22, 0.62)
pt3dadd(39.09, 240.56, -0.32, 0.62)
pt3dadd(39.47, 241.77, -0.16, 0.62)
pt3dadd(40.83, 242.56, -0.24, 0.62)
pt3dadd(41.35, 243.56, 0.15, 0.62)
pt3dadd(41.81, 245.46, -0.02, 0.62)
pt3dadd(42.21, 247.29, 0.27, 0.62)
pt3dadd(42.6, 249.48, 0.23, 0.62)
pt3dadd(42.88, 251.2, 0.41, 0.62)
pt3dadd(43.53, 253.16, 0.73, 0.62)
pt3dadd(43.98, 254.56, 0.64, 0.62)
pt3dadd(44.07, 256.12, -0.17, 0.62)
pt3dadd(43.22, 257.05, -1.56, 0.62)
pt3dadd(43.09, 258.17, -2.49, 0.62)
pt3dadd(42.14, 259.7, -3.36, 0.62)
pt3dadd(41.27, 261.38, -4.25, 0.62)
pt3dadd(40.71, 262.24, -5.27, 0.62)
pt3dadd(40.12, 263.27, -6.43, 0.62)
pt3dadd(39.51, 263.14, -7.2, 0.62)
pt3dadd(38.88, 263.63, -7.78, 0.62)
pt3dadd(38.46, 264.36, -9.2, 0.62)
pt3dadd(38.71, 265.12, -9.04, 0.62)
pt3dadd(40.29, 265.82, -9.85, 0.62)
pt3dadd(40.44, 266.91, -9.7, 0.62)
pt3dadd(40.68, 267.18, -10.82, 0.62)
pt3dadd(40.92, 267.74, -11.62, 0.62)
pt3dadd(40.96, 268.3, -12.2, 0.62)
pt3dadd(41.47, 268.3, -12.75, 0.62)
pt3dadd(42.05, 269.08, -13.15, 0.62)
pt3dadd(42.24, 270.18, -13.05, 0.62)
pt3dadd(42.06, 271.83, -13.31, 0.62)
pt3dadd(41.29, 273, -14.01, 0.62)
pt3dadd(41.78, 273.92, -14.06, 0.62)
pt3dadd(42.63, 275.61, -14.28, 0.62)
pt3dadd(42.9, 276.8, -15.16, 0.62)
pt3dadd(42.9, 278.32, -15.66, 0.62)
pt3dadd(42.73, 278.82, -16.73, 0.62)
pt3dadd(42.24, 279.64, -17.59, 0.62)
pt3dadd(42.93, 281.14, -17.45, 0.62)
pt3dadd(43.4, 282.38, -17.61, 0.62)
pt3dadd(43.81, 283.38, -18.25, 0.62)
pt3dadd(44.14, 284.33, -18.56, 0.62)
pt3dadd(45.51, 285.08, -18.42, 0.62)
pt3dadd(46.28, 286.17, -18.73, 0.62)
pt3dadd(46.9, 286.91, -18.96, 0.62)
pt3dadd(47.79, 287.88, -19.89, 0.62)
pt3dadd(47.61, 288.76, -20.15, 0.62)
pt3dadd(47.64, 289.58, -20.41, 0.62)
pt3dadd(48.33, 290.56, -21.11, 0.62)
pt3dadd(49.24, 290.95, -21.3, 0.62)
pt3dadd(49.75, 292.01, -21.32, 0.62)
pt3dadd(50.52, 293.1, -21.84, 0.62)
pt3dadd(50.54, 294.49, -22.63, 0.62)
pt3dadd(50.84, 294.98, -24.21, 0.62)
pt3dadd(50.76, 296.12, -24.26, 0.56)
pt3dadd(50.64, 296.97, -24.37, 0.61)
pt3dadd(50.59, 297.45, -24.41, 0.61)
pt3dadd(50.56, 298.1, -24.42, 0.31)
pt3dadd(50.46, 299.04, -25.22, 1.7)
pt3dadd(50.3, 300.36, -25.36, 0.77)
pt3dadd(50.2, 301.36, -25.44, 0.62)
pt3dadd(49.99, 302.37, -25.63, 0.62)
pt3dadd(49.8, 303.55, -25.79, 0.62)
pt3dadd(49.99, 304.13, -25.6, 0.62)
pt3dadd(49.79, 305.12, -25.57, 0.62)
pt3dadd(49.47, 306.17, -25.85, 0.62)
pt3dadd(49.17, 306.87, -26.03, 0.62)
}
dend[20] {pt3dclear()
pt3dadd(-2.09, 181.75, 20.19, 0.92)
pt3dadd(-1.24, 182.2, 20.77, 1.22)
pt3dadd(-0.27, 184.28, 20.76, 1.22)
pt3dadd(0.94, 186.2, 19.54, 1.22)
pt3dadd(1.63, 188.09, 18.86, 1.22)
pt3dadd(1.8, 190.3, 18.84, 0.92)
pt3dadd(2.36, 192.57, 17.94, 0.92)
pt3dadd(2.48, 194.52, 17.46, 0.92)
pt3dadd(2.68, 197.09, 17.05, 0.92)
pt3dadd(3.91, 198.63, 16.14, 0.92)
pt3dadd(4.43, 200.89, 15.3, 0.92)
pt3dadd(5.34, 202.51, 14.31, 0.92)
pt3dadd(6.72, 203.62, 14.05, 0.92)
pt3dadd(7.51, 205.77, 13.79, 0.92)
pt3dadd(8.22, 207.92, 13.63, 0.92)
pt3dadd(7.26, 209.8, 12.46, 0.92)
pt3dadd(6.79, 209.96, 11.62, 0.92)
}
dend[21] {pt3dclear()
pt3dadd(6.79, 209.96, 11.62, 0.92)
pt3dadd(5.54, 210.99, 10.06, 0.92)
pt3dadd(5.13, 211.89, 8.45, 0.92)
pt3dadd(3.6, 211.69, 6.83, 0.92)
pt3dadd(2.7, 211.73, 5.07, 0.92)
pt3dadd(2.35, 211.37, 3.5, 0.92)
pt3dadd(1.94, 211.28, 2.08, 0.92)
pt3dadd(1.8, 211.46, 0.91, 0.92)
pt3dadd(1.14, 211.09, -0.3, 0.92)
pt3dadd(1.45, 210.84, -1.16, 0.92)
pt3dadd(0.85, 210.41, -2.02, 0.92)
pt3dadd(0.84, 210.65, -3.78, 0.92)
pt3dadd(0.36, 211.2, -4.94, 0.92)
pt3dadd(0.24, 211.98, -5.98, 0.92)
pt3dadd(-0.05, 212.45, -6.88, 0.92)
pt3dadd(-0.33, 211.95, -7.14, 0.77)
pt3dadd(-1.17, 212.18, -8.01, 0.77)
pt3dadd(-1.28, 212.18, -9.06, 0.77)
pt3dadd(-2.26, 212.28, -10.06, 0.77)
pt3dadd(-2.37, 212.74, -10.98, 0.93)
pt3dadd(-2.46, 212.91, -11.99, 0.93)
pt3dadd(-2.81, 213.23, -12.92, 0.93)
pt3dadd(-2.83, 213.07, -14.1, 0.93)
pt3dadd(-3.01, 213.38, -14.98, 1.08)
pt3dadd(-3.48, 213.34, -15.41, 1.08)
pt3dadd(-4.82, 213.23, -15.62, 1.08)
pt3dadd(-5.61, 213.75, -16.24, 1.08)
pt3dadd(-6.91, 213.94, -16.41, 1.08)
pt3dadd(-7.63, 214.12, -16.97, 1.08)
pt3dadd(-9.06, 213.97, -16.85, 1.08)
pt3dadd(-9.81, 213.98, -17.44, 1.24)
pt3dadd(-10.21, 212.89, -17.32, 1.24)
pt3dadd(-10.37, 212.19, -16.64, 1.24)
pt3dadd(-11.29, 211.91, -17.38, 1.22)
pt3dadd(-11.86, 212.7, -17.91, 1.22)
pt3dadd(-13.1, 213.65, -19.05, 1.22)
pt3dadd(-13.45, 212.79, -19.38, 1.22)
pt3dadd(-13.53, 212.17, -19.46, 1.22)
pt3dadd(-13.71, 211.26, -19.54, 1.22)
pt3dadd(-14.71, 209.85, -19.76, 1.22)
pt3dadd(-15.77, 209.4, -20.12, 1.22)
}
}
proc shape3d_9() {
dend[21] { pt3dadd(-16.9, 208.59, -20.05, 1.22)
pt3dadd(-18.26, 207.59, -20.7, 0.92)
pt3dadd(-18.49, 206.98, -20.61, 0.92)
pt3dadd(-20.6, 206.33, -20.81, 0.92)
pt3dadd(-22.32, 206.38, -21.69, 0.92)
pt3dadd(-23.31, 205.87, -21.68, 0.92)
pt3dadd(-23.68, 205.62, -21.82, 1.53)
pt3dadd(-24.43, 205.48, -22.41, 0.92)
pt3dadd(-24.73, 204.92, -22.7, 0.92)
pt3dadd(-25.87, 203.87, -23.15, 0.92)
pt3dadd(-26.9, 202.83, -23.7, 0.92)
pt3dadd(-26.63, 201.48, -23.46, 0.92)
pt3dadd(-28.63, 200.65, -22.43, 0.92)
pt3dadd(-29.29, 199.79, -22.44, 0.92)
pt3dadd(-31.04, 199.45, -22.92, 0.92)
pt3dadd(-31.64, 198.59, -22.98, 0.92)
pt3dadd(-32.48, 197.85, -23.66, 0.92)
pt3dadd(-33.05, 197.59, -23.58, 0.92)
pt3dadd(-34.64, 196.71, -24.84, 0.92)
pt3dadd(-35.37, 196.77, -24.5, 0.92)
pt3dadd(-36.4, 196.38, -25.34, 0.92)
pt3dadd(-36.81, 194.85, -25.33, 0.92)
pt3dadd(-37.75, 193.12, -25.71, 0.92)
pt3dadd(-38.3, 191.96, -25.91, 0.92)
pt3dadd(-39.1, 191.09, -25.74, 0.92)
pt3dadd(-39.78, 190.59, -26.06, 0.92)
pt3dadd(-40.78, 190.14, -26.48, 0.92)
pt3dadd(-41.41, 188.91, -26.14, 0.92)
pt3dadd(-40.77, 188.38, -25.15, 0.92)
pt3dadd(-40.74, 186.73, -24.74, 0.92)
pt3dadd(-42.15, 185.73, -25.33, 0.92)
pt3dadd(-42.71, 184.92, -25.86, 0.92)
pt3dadd(-43.3, 182.48, -25.92, 0.92)
pt3dadd(-44.45, 181.48, -26.79, 0.92)
pt3dadd(-44.67, 180.26, -26.9, 0.92)
pt3dadd(-44.39, 179.46, -26.04, 0.92)
pt3dadd(-44.77, 178.24, -25.98, 0.92)
pt3dadd(-44.92, 176.95, -25.72, 0.92)
pt3dadd(-44.48, 175.86, -25.13, 0.92)
pt3dadd(-45.76, 174.5, -25.5, 0.92)
pt3dadd(-46.16, 172.66, -25.59, 0.92)
pt3dadd(-46.54, 171.01, -24.72, 0.92)
pt3dadd(-46.48, 169.66, -24.26, 1.53)
pt3dadd(-45.98, 168.58, -23.72, 1.53)
pt3dadd(-45.63, 168.4, -22.77, 1.53)
pt3dadd(-45.2, 167.31, -22.17, 1.53)
pt3dadd(-44.88, 166.57, -21.79, 0.92)
pt3dadd(-43.86, 165.67, -20.86, 0.92)
pt3dadd(-43.06, 164.84, -20.12, 0.61)
pt3dadd(-43.18, 163.92, -20.25, 0.61)
pt3dadd(-44.22, 163.1, -20.28, 0.61)
pt3dadd(-43.76, 162.94, -19.45, 0.61)
pt3dadd(-43.21, 163.08, -18.62, 0.61)
pt3dadd(-42.99, 163.55, -17.8, 0.61)
pt3dadd(-42.74, 164.12, -17.46, 1.53)
}
dend[22] {pt3dclear()
pt3dadd(6.79, 209.96, 11.62, 0.92)
pt3dadd(6.54, 211.98, 11.09, 1.22)
pt3dadd(7.18, 213.41, 11.71, 0.92)
pt3dadd(6.72, 215.1, 11.3, 0.92)
pt3dadd(6.01, 216.8, 11.18, 0.92)
pt3dadd(5.28, 219.11, 11.25, 0.92)
pt3dadd(5.4, 220.27, 11.9, 0.92)
pt3dadd(5.9, 221.69, 12.69, 0.92)
pt3dadd(5.93, 222.79, 13.86, 0.92)
pt3dadd(5.51, 224.37, 14.32, 0.92)
pt3dadd(4.41, 226.44, 14.26, 0.92)
pt3dadd(4.24, 228.01, 14.43, 0.92)
pt3dadd(3.91, 229.34, 14.24, 0.92)
pt3dadd(2.61, 231.11, 14.3, 0.92)
pt3dadd(1.44, 231.52, 14.77, 0.92)
pt3dadd(1.64, 232.62, 15.78, 0.92)
pt3dadd(0.83, 234.26, 16.21, 0.92)
pt3dadd(0.4, 235.85, 16.64, 0.92)
pt3dadd(0.46, 237.61, 17.55, 0.92)
pt3dadd(-0.06, 239.2, 18.11, 0.92)
pt3dadd(-0.22, 240.72, 18.71, 0.92)
pt3dadd(-1.33, 242.1, 18.93, 0.92)
pt3dadd(-2.11, 244.11, 18.96, 0.92)
pt3dadd(-2.55, 246, 19.5, 0.92)
pt3dadd(-2.56, 247.9, 19.6, 0.92)
pt3dadd(-3, 250.21, 19.34, 0.92)
pt3dadd(-2.79, 251.75, 19.55, 0.92)
pt3dadd(-2.58, 253.27, 19.76, 0.92)
pt3dadd(-2.21, 256.02, 20.14, 0.92)
pt3dadd(-2.63, 258.02, 19.77, 0.92)
pt3dadd(-2.19, 259.2, 20.09, 0.92)
pt3dadd(-1.48, 260.3, 20.55, 0.92)
pt3dadd(-1.06, 261.55, 20.44, 0.92)
pt3dadd(-0.75, 263.07, 20.54, 0.92)
pt3dadd(-0.49, 265.58, 20.5, 0.92)
pt3dadd(-0.05, 267.72, 20.63, 0.92)
pt3dadd(0.66, 269.27, 20.28, 0.92)
pt3dadd(0.86, 270.55, 19.96, 0.92)
pt3dadd(1.05, 273.17, 19.13, 0.92)
pt3dadd(1.52, 274.41, 18.97, 0.92)
pt3dadd(1.66, 275.69, 18.7, 0.92)
pt3dadd(2.71, 276.93, 17.93, 0.92)
pt3dadd(2.75, 279.18, 17.59, 0.92)
pt3dadd(2.44, 280.22, 17.31, 0.92)
pt3dadd(1.9, 281.3, 16.82, 0.92)
pt3dadd(1.95, 281.64, 16.87, 0.61)
}
dend[23] {pt3dclear()
pt3dadd(1.95, 281.64, 16.87, 0.61)
pt3dadd(1.36, 282.73, 16.44, 0.61)
pt3dadd(1.48, 283.64, 16.56, 0.61)
pt3dadd(0.59, 283.88, 15.75, 0.61)
pt3dadd(0.58, 285.48, 15.75, 0.61)
pt3dadd(0.11, 285.72, 14.5, 0.61)
pt3dadd(0.2, 286.01, 14.47, 0.61)
pt3dadd(0.44, 286.63, 14.39, 0.61)
pt3dadd(0.75, 287.61, 13.87, 0.61)
pt3dadd(1.11, 288.88, 13.39, 0.61)
pt3dadd(0.91, 289.07, 12.28, 0.61)
pt3dadd(0.79, 290.11, 11.77, 0.61)
pt3dadd(0.35, 289.42, 10.22, 0.61)
pt3dadd(1.9, 288.7, 9.26, 0.61)
pt3dadd(2.46, 288.3, 9.46, 0.61)
pt3dadd(3.29, 288.26, 9, 0.61)
pt3dadd(4.18, 288.2, 8.49, 0.61)
pt3dadd(4.8, 288.45, 8.34, 0.61)
pt3dadd(5.36, 288.77, 7.82, 0.61)
pt3dadd(6.14, 289.02, 7.52, 0.61)
pt3dadd(7.2, 288.92, 7.25, 0.61)
pt3dadd(7.95, 288.8, 7.34, 0.61)
pt3dadd(8.63, 289.3, 7.65, 0.61)
pt3dadd(9.58, 289.19, 7.51, 0.61)
pt3dadd(10.48, 288.11, 7.6, 0.61)
pt3dadd(11.11, 287.63, 8.17, 0.61)
pt3dadd(11.94, 287.58, 7.71, 0.61)
pt3dadd(12.45, 287.58, 7.16, 0.61)
pt3dadd(12.95, 287.47, 7.51, 0.61)
pt3dadd(13.9, 287.36, 7.36, 0.61)
pt3dadd(14.4, 287.25, 7.71, 0.61)
pt3dadd(14.89, 286.89, 7.54, 0.61)
pt3dadd(15.76, 286.98, 8.34, 1.08)
pt3dadd(16.47, 287.13, 9.01, 1.08)
pt3dadd(17.09, 287.16, 9.28, 0.93)
pt3dadd(19.24, 287.83, 8.07, 0.93)
pt3dadd(20.4, 288.48, 6.99, 0.93)
pt3dadd(22.81, 289.31, 4.38, 0.93)
pt3dadd(23.4, 289.38, 2.13, 0.93)
pt3dadd(24.88, 290.52, 1.56, 0.93)
pt3dadd(25.05, 291.79, 1.73, 0.93)
pt3dadd(27.19, 292.8, 1.55, 0.93)
pt3dadd(28.12, 294.13, 1.61, 0.93)
pt3dadd(28.11, 294.95, 1.4, 0.77)
pt3dadd(28.33, 296.2, 1.51, 0.62)
pt3dadd(29.2, 296.77, 1.19, 0.62)
pt3dadd(30.71, 298.06, 0.85, 0.62)
pt3dadd(31.84, 298.88, 0.78, 0.62)
pt3dadd(33.21, 299.33, 0.81, 0.62)
pt3dadd(34.24, 299.47, 1.15, 0.62)
pt3dadd(34.4, 300.44, 1, 0.46)
pt3dadd(34.6, 301.52, 1.1, 0.46)
pt3dadd(34.84, 302.66, 0.7, 0.46)
pt3dadd(35.73, 303.45, 1.13, 0.46)
pt3dadd(36.4, 304.27, 1.55, 0.46)
pt3dadd(36.83, 305.2, 1.35, 0.46)
pt3dadd(36.67, 305.17, 0.57, 0.77)
pt3dadd(36.15, 305.63, 0.1, 1.08)
pt3dadd(36.17, 306.27, 0.03, 1.08)
pt3dadd(36.53, 307.08, -0.34, 1.08)
pt3dadd(36.86, 307.83, -0.25, 1.39)
pt3dadd(37.99, 308.82, -1.45, 1.39)
pt3dadd(39.01, 308.98, -1.34, 1.39)
pt3dadd(38.54, 309.75, -1.77, 1.39)
pt3dadd(38.67, 310.3, -2.45, 1.39)
pt3dadd(38.53, 310.7, -2.89, 1.39)
}
dend[24] {pt3dclear()
pt3dadd(1.95, 281.64, 16.87, 0.61)
pt3dadd(2.4, 282.2, 16.99, 0.92)
pt3dadd(2.29, 284.77, 16.92, 0.92)
pt3dadd(2.42, 285.69, 17.04, 0.92)
pt3dadd(2.58, 286.91, 17.21, 0.92)
pt3dadd(1.59, 288.41, 16.4, 0.92)
pt3dadd(1.8, 289.95, 16.62, 0.92)
pt3dadd(2.26, 291.73, 17.07, 0.92)
pt3dadd(2.39, 292.64, 17.2, 0.92)
pt3dadd(2.27, 293.92, 17.22, 0.92)
pt3dadd(1.91, 294.64, 16.89, 0.92)
pt3dadd(1.87, 296.19, 17.38, 0.92)
pt3dadd(2.11, 297.04, 17.82, 0.92)
pt3dadd(2.87, 298.39, 18.75, 0.92)
pt3dadd(3.14, 299.86, 19.33, 0.92)
pt3dadd(3.01, 300.77, 19.74, 0.92)
pt3dadd(2.06, 301.86, 19.69, 0.92)
pt3dadd(1.59, 303.14, 20.1, 0.92)
pt3dadd(1, 304.48, 20.19, 0.92)
pt3dadd(0.52, 305.8, 20.18, 0.92)
pt3dadd(1.34, 307.16, 21.04, 0.92)
pt3dadd(1.07, 308.45, 21.24, 0.92)
pt3dadd(0.53, 309.54, 20.75, 0.92)
pt3dadd(-0.12, 309.7, 20.14, 0.92)
pt3dadd(-0.49, 309.48, 20, 0.92)
pt3dadd(-0.38, 308.48, 20.08, 0.92)
pt3dadd(-0.21, 308.13, 20.24, 0.92)
pt3dadd(-0.05, 308.92, 21.21, 0.92)
pt3dadd(0.01, 310.14, 21.5, 0.92)
pt3dadd(0.77, 311.2, 22.33, 0.92)
pt3dadd(1.72, 313.17, 23.23, 0.92)
pt3dadd(2.49, 312.02, 23.92, 0.92)
pt3dadd(3.02, 310.94, 24.41, 0.92)
}
}
proc shape3d_10() {
dend[24] { pt3dadd(3.95, 311.02, 25.27, 0.92)
pt3dadd(4.48, 311.5, 25.76, 0.92)
pt3dadd(5.01, 312.24, 26.78, 0.92)
pt3dadd(6.09, 312.57, 27.99, 0.61)
pt3dadd(6.75, 312.39, 28.6, 0.61)
pt3dadd(7.76, 313.08, 29.54, 0.61)
pt3dadd(7.26, 313.99, 30.33, 0.61)
pt3dadd(7.69, 314.49, 30.94, 0.61)
pt3dadd(8.35, 314.31, 31.55, 0.61)
pt3dadd(9.58, 314.22, 33.41, 0.61)
pt3dadd(10.27, 314.66, 34.16, 0.61)
pt3dadd(10.84, 315.7, 35.22, 0.61)
pt3dadd(11.37, 317.43, 36.04, 0.61)
pt3dadd(11.31, 317.73, 36.19, 0.61)
pt3dadd(11.61, 318.29, 36.47, 0.61)
pt3dadd(11.96, 319.14, 36.81, 0.61)
pt3dadd(12.53, 319.95, 37.34, 0.61)
pt3dadd(12.92, 320.81, 37.62, 0.61)
pt3dadd(13.36, 321.98, 37.93, 0.61)
pt3dadd(13.27, 322.64, 37.76, 0.61)
pt3dadd(13.21, 324.91, 37.53, 0.61)
pt3dadd(13.29, 326.8, 37.52, 0.61)
pt3dadd(13.56, 328.03, 37.58, 0.61)
pt3dadd(14, 329.19, 37.89, 0.61)
pt3dadd(14.75, 330.3, 38.3, 0.61)
pt3dadd(14.85, 331.9, 38.19, 0.61)
pt3dadd(14.64, 332.92, 37.8, 0.61)
pt3dadd(14.94, 333.48, 38.09, 0.61)
pt3dadd(15.63, 335.2, 38.75, 0.61)
pt3dadd(15.7, 335.82, 38.82, 0.61)
pt3dadd(15.43, 337.16, 38.58, 0.61)
pt3dadd(14.91, 336.66, 38.09, 0.61)
pt3dadd(14.63, 337.99, 37.86, 0.61)
pt3dadd(15.51, 337.77, 38.67, 0.61)
pt3dadd(16.33, 338.82, 39.44, 0.61)
pt3dadd(16.69, 339.68, 39.78, 0.61)
pt3dadd(16.94, 341.21, 39.93, 0.61)
pt3dadd(17.66, 342.02, 40.3, 0.61)
pt3dadd(17.82, 343.25, 40.46, 0.61)
pt3dadd(18.07, 345.08, 40.72, 0.61)
pt3dadd(17.79, 346.41, 40.47, 0.61)
pt3dadd(18.16, 347.65, 40.42, 0.61)
pt3dadd(18.5, 348.56, 40.32, 0.61)
pt3dadd(18.94, 349.43, 40.54, 0.61)
pt3dadd(19.92, 349.5, 41.35, 0.61)
pt3dadd(20.58, 349.33, 41.96, 0.61)
pt3dadd(21.24, 349.16, 42.57, 0.61)
pt3dadd(21.37, 349.77, 42.59, 0.61)
pt3dadd(21.68, 350.32, 42.88, 0.61)
pt3dadd(22.21, 350.82, 43.38, 0.61)
pt3dadd(23.09, 350.59, 44.19, 0.61)
pt3dadd(23.83, 351.03, 44.88, 0.61)
pt3dadd(24.31, 351.22, 45.33, 0.61)
pt3dadd(25.2, 350.98, 46.15, 0.61)
pt3dadd(25.46, 351.24, 46.4, 0.61)
pt3dadd(25.99, 351.73, 46.89, 0.61)
pt3dadd(26.43, 351.62, 47.29, 0.61)
pt3dadd(26.65, 351.57, 47.5, 0.61)
pt3dadd(26.78, 350.89, 47.62, 0.61)
pt3dadd(27.31, 351.4, 48.11, 0.61)
pt3dadd(28.68, 351.34, 49.38, 0.61)
pt3dadd(28.23, 351.47, 48.96, 2.14)
}
dend[25] {pt3dclear()
pt3dadd(-4.61, 90.97, -0.36, 3.06)
pt3dadd(-5.64, 92.43, -0.67, 2.14)
pt3dadd(-5.84, 94.37, -0.83, 2.14)
pt3dadd(-5.94, 95.65, -0.82, 2.14)
pt3dadd(-5.96, 97.24, -0.81, 1.84)
pt3dadd(-5.62, 99.69, -0.48, 1.53)
pt3dadd(-4.72, 101.37, 0.37, 1.53)
pt3dadd(-4.18, 104.06, 1.01, 1.53)
pt3dadd(-3.58, 105.16, 1.58, 1.53)
pt3dadd(-3.19, 106.34, 1.95, 1.53)
pt3dadd(-2.36, 107.39, 2.74, 1.53)
pt3dadd(-1.89, 109.17, 3.19, 1.53)
pt3dadd(-1.25, 110.58, 3.81, 1.53)
pt3dadd(-0.81, 112.3, 4.75, 1.53)
pt3dadd(-0.66, 113.1, 5.72, 1.53)
pt3dadd(-0.54, 114.57, 6.47, 1.53)
pt3dadd(-0.02, 116.9, 7.48, 1.53)
pt3dadd(-0.44, 118.41, 8.36, 1.53)
pt3dadd(-1.39, 119.76, 8.84, 1.53)
pt3dadd(-1.84, 120.96, 9.68, 1.53)
pt3dadd(-1.46, 122.44, 10.14, 1.53)
pt3dadd(-1.66, 124.63, 10.51, 1.53)
pt3dadd(-1.57, 125.19, 11.02, 1.53)
pt3dadd(-1.16, 126.29, 11.82, 1.53)
pt3dadd(-0.84, 126.78, 12.53, 1.53)
pt3dadd(-0.03, 127.71, 14.22, 1.53)
pt3dadd(0.49, 129.44, 15.04, 1.53)
pt3dadd(0.69, 130.22, 15.96, 1.53)
pt3dadd(0.91, 132.02, 16.7, 1.53)
pt3dadd(0.83, 133.18, 17.57, 1.53)
pt3dadd(0.33, 134.81, 17.64, 1.53)
pt3dadd(0.19, 136.04, 18.14, 1.53)
pt3dadd(0.36, 137.5, 18.84, 1.53)
pt3dadd(0.42, 138.26, 20.34, 2.14)
}
dend[26] {pt3dclear()
pt3dadd(0.42, 138.26, 20.34, 2.14)
pt3dadd(1.19, 139.59, 21.28, 1.53)
pt3dadd(1.66, 141.38, 21.74, 1.22)
pt3dadd(2.71, 142.37, 22.71, 1.22)
pt3dadd(3.21, 142.93, 22.78, 1.22)
pt3dadd(3.95, 144.65, 23.39, 1.22)
pt3dadd(4.36, 146.47, 23.47, 1.22)
pt3dadd(4.62, 147.71, 23.53, 1.22)
pt3dadd(5.21, 150.16, 23.59, 1.22)
pt3dadd(5.35, 151.76, 23.42, 1.22)
pt3dadd(5.79, 153.88, 23.55, 1.22)
pt3dadd(6.76, 155.01, 23.73, 1.22)
pt3dadd(7.33, 156.54, 23.55, 1.22)
pt3dadd(7.64, 157.77, 23.55, 1.22)
pt3dadd(7.85, 158.76, 23.14, 1.22)
pt3dadd(7.49, 160.77, 22.73, 1.22)
pt3dadd(8.94, 161.28, 22.21, 1.22)
pt3dadd(8.89, 162.25, 22.09, 1.22)
pt3dadd(8.93, 162.56, 22.12, 1.22)
pt3dadd(9.27, 163.16, 21.93, 1.53)
pt3dadd(9.62, 163.72, 22.15, 1.53)
}
dend[27] {pt3dclear()
pt3dadd(9.62, 163.72, 22.15, 1.53)
pt3dadd(10.46, 164.77, 22.94, 1.53)
pt3dadd(11.21, 165.64, 22.83, 1.53)
pt3dadd(12.43, 166.03, 23.45, 1.53)
pt3dadd(13.88, 166.12, 23.75, 1.53)
pt3dadd(14.3, 167.35, 23.63, 1.53)
pt3dadd(14.12, 168.68, 23.29, 1.53)
pt3dadd(13.58, 169.52, 22.28, 1.53)
pt3dadd(14.68, 169, 22.77, 1.53)
pt3dadd(14.34, 168.8, 22.15, 1.53)
pt3dadd(13.73, 169.28, 21.59, 1.53)
pt3dadd(13.64, 169.16, 20.27, 1.53)
pt3dadd(13.76, 168.55, 19.95, 1.53)
pt3dadd(12.97, 169.39, 19.23, 1.53)
pt3dadd(13.55, 169.77, 18.23, 1.53)
pt3dadd(14.13, 170.2, 16.81, 1.53)
pt3dadd(15.12, 169.91, 15.65, 1.53)
pt3dadd(16.31, 171.15, 14.71, 1.53)
pt3dadd(17.55, 171.16, 13.38, 1.53)
pt3dadd(17.85, 171.47, 13.14, 1.53)
pt3dadd(19.04, 171.48, 11.87, 1.53)
pt3dadd(19.19, 171.48, 11.7, 1.53)
pt3dadd(19.73, 171.9, 12.2, 0.15)
pt3dadd(19.69, 172.4, 12.17, 1.7)
pt3dadd(20.29, 173.27, 12.22, 1.7)
pt3dadd(21.15, 173.88, 11.69, 1.7)
pt3dadd(21.57, 174.41, 12.08, 1.7)
pt3dadd(22.21, 174.88, 12.68, 1.7)
pt3dadd(23.67, 175.9, 12.08, 1.24)
pt3dadd(24.78, 176.32, 11.46, 1.24)
pt3dadd(25.11, 177.23, 11.36, 1.24)
pt3dadd(26.31, 178.01, 10.52, 1.24)
pt3dadd(27.12, 178.64, 10.98, 1.24)
pt3dadd(27.37, 179.72, 11.01, 1.24)
pt3dadd(27.62, 180.53, 10.74, 1.24)
pt3dadd(27.76, 181.37, 10.36, 1.24)
pt3dadd(28.64, 182.22, 10.35, 1.24)
pt3dadd(29.25, 182.54, 10.92, 1.24)
pt3dadd(30.16, 182.98, 11.46, 1.55)
pt3dadd(31.2, 183.5, 11.41, 1.55)
pt3dadd(31.63, 184.53, 11.7, 1.55)
pt3dadd(32.07, 185.21, 12.12, 1.55)
pt3dadd(32.62, 186.37, 12.55, 1.55)
pt3dadd(33.7, 186.78, 13.13, 1.39)
pt3dadd(34.42, 187.83, 13.09, 1.39)
pt3dadd(34.79, 188.85, 13.45, 1.39)
pt3dadd(35.33, 190.06, 13.44, 1.39)
pt3dadd(35.7, 191, 13.29, 1.39)
pt3dadd(36.67, 191.66, 13.37, 1.39)
pt3dadd(36.96, 192.56, 13.54, 1.24)
pt3dadd(37.6, 193.22, 12.8, 1.55)
pt3dadd(37.56, 194.2, 12.66, 1.55)
pt3dadd(38.05, 195.12, 12.61, 1.86)
pt3dadd(38.16, 195.88, 12.72, 1.86)
pt3dadd(38.19, 197, 12.77, 1.55)
pt3dadd(39.19, 197.73, 12.36, 1.55)
pt3dadd(39.42, 198.63, 12.59, 1.55)
pt3dadd(40.06, 199.1, 13.19, 1.39)
pt3dadd(39.96, 199.63, 12.99, 1.39)
pt3dadd(40.34, 200.56, 12.83, 1.39)
pt3dadd(40.39, 201.84, 12.9, 1.24)
pt3dadd(40.76, 202.27, 11.7, 1.24)
pt3dadd(41.4, 203.27, 11.99, 1.24)
pt3dadd(41.73, 203.68, 12.21, 1.24)
pt3dadd(42.66, 204.48, 11.42, 1.24)
pt3dadd(42.8, 205.58, 11.36, 1.24)
pt3dadd(43.7, 206.49, 10.87, 1.24)
pt3dadd(43.86, 207.27, 10.92, 1.24)
pt3dadd(45.16, 208.5, 10.08, 1.24)
pt3dadd(45.76, 209.13, 9.6, 1.24)
pt3dadd(46.61, 209.85, 9.36, 1.24)
pt3dadd(47.2, 209.77, 9.39, 1.24)
pt3dadd(47.5, 210.82, 9.59, 1.24)
pt3dadd(48.66, 211.59, 9.95, 1.24)
pt3dadd(49.09, 211.8, 10.24, 1.24)
pt3dadd(50.23, 212.34, 9.85, 1.24)
pt3dadd(51.5, 212.8, 10, 1.24)
pt3dadd(51.9, 213.68, 10.29, 1.24)
pt3dadd(52.82, 214.48, 9.28, 1.24)
pt3dadd(53.06, 215.07, 9.41, 1.24)
pt3dadd(53.59, 215.63, 9.7, 1.24)
pt3dadd(53.89, 216.18, 9.99, 1.24)
pt3dadd(54.36, 216.72, 10.33, 1.24)
}
}
proc shape3d_11() {
dend[27] { pt3dadd(54.84, 216.93, 10.57, 1.24)
}
dend[28] {pt3dclear()
pt3dadd(54.84, 216.93, 10.57, 1.24)
pt3dadd(55.7, 218.15, 10.45, 0.77)
pt3dadd(55.88, 219.08, 10.52, 0.77)
pt3dadd(56.92, 220.13, 10.16, 0.77)
pt3dadd(58.19, 220.76, 8.96, 0.77)
pt3dadd(58.34, 221.47, 8.29, 0.77)
pt3dadd(58.91, 222.47, 7.48, 0.77)
pt3dadd(59.53, 223.02, 7.44, 0.77)
pt3dadd(60.54, 223.93, 6.84, 0.77)
pt3dadd(61.47, 224.73, 6.06, 0.77)
pt3dadd(61.78, 225.2, 5.84, 0.93)
pt3dadd(61.91, 226.13, 5.97, 0.93)
pt3dadd(62.23, 226.56, 5.97, 0.93)
pt3dadd(63.18, 228.38, 5.93, 0.93)
pt3dadd(63.48, 229.43, 6.12, 0.93)
pt3dadd(64.61, 230.59, 5.94, 0.93)
pt3dadd(64.93, 231.53, 5.84, 0.93)
pt3dadd(65.96, 232.1, 5.36, 0.93)
pt3dadd(66.58, 232.88, 4.91, 0.93)
pt3dadd(67.41, 233.95, 4.54, 0.93)
pt3dadd(68.03, 234.69, 4.31, 0.93)
pt3dadd(68.39, 235.51, 3.93, 0.93)
pt3dadd(69.25, 236.59, 3.29, 0.93)
pt3dadd(70.04, 237.31, 3.1, 0.93)
pt3dadd(71.23, 238.65, 2.88, 0.93)
pt3dadd(71.81, 239.45, 3.42, 0.93)
pt3dadd(72.93, 240.92, 4.48, 0.93)
pt3dadd(73.7, 242.02, 5.11, 0.93)
pt3dadd(74.43, 243.38, 5.17, 0.93)
pt3dadd(76.05, 244.91, 5.25, 0.93)
pt3dadd(76.87, 246.32, 5.91, 0.93)
pt3dadd(77.39, 247.59, 5.48, 0.93)
pt3dadd(78.3, 249.03, 5.83, 0.93)
pt3dadd(79.44, 250.35, 5.67, 0.93)
pt3dadd(80.28, 251.63, 6.04, 0.93)
pt3dadd(81.38, 252.85, 5.43, 0.93)
pt3dadd(82.13, 254.03, 5.41, 0.93)
pt3dadd(83.57, 254.64, 5.42, 0.93)
pt3dadd(84.35, 255.24, 6.15, 0.93)
pt3dadd(84.66, 257.02, 5.83, 0.93)
pt3dadd(85.53, 257.64, 5.08, 0.93)
pt3dadd(86.6, 258.72, 4.44, 0.93)
pt3dadd(87.39, 259.45, 4.26, 0.93)
pt3dadd(88.78, 260.54, 4.22, 0.93)
pt3dadd(88.38, 261.95, 3.65, 0.93)
pt3dadd(88.72, 262.91, 2.64, 0.93)
pt3dadd(88.83, 264.16, 2.86, 0.93)
pt3dadd(89.35, 265.45, 3.36, 0.93)
pt3dadd(89.74, 266.16, 3.83, 0.93)
pt3dadd(89.38, 266.44, 4.53, 0.93)
pt3dadd(89.61, 267.64, 4.86, 0.93)
pt3dadd(89.27, 269.08, 5.18, 0.93)
pt3dadd(88.77, 270.25, 5.35, 0.93)
pt3dadd(88.51, 271.05, 5.63, 0.93)
pt3dadd(87.84, 271.75, 5.85, 0.93)
pt3dadd(87.89, 273.33, 6.01, 0.93)
pt3dadd(88.02, 274.73, 6.26, 0.93)
pt3dadd(87.89, 277.18, 6.17, 0.93)
pt3dadd(87.55, 278.54, 5.98, 0.93)
pt3dadd(87.81, 279.6, 6.23, 0.93)
pt3dadd(88.01, 280.7, 7.26, 0.93)
pt3dadd(89, 282.08, 7.98, 0.93)
pt3dadd(89.16, 282.55, 7.93, 0.93)
pt3dadd(89.47, 283.63, 7.91, 0.93)
pt3dadd(90.16, 284.83, 7.95, 0.93)
pt3dadd(90.66, 286.23, 7.81, 0.93)
pt3dadd(90.28, 288.57, 7.48, 0.93)
pt3dadd(89.76, 289.77, 6.29, 0.93)
pt3dadd(89.54, 290.82, 5.9, 0.93)
pt3dadd(90.3, 292.13, 4.97, 0.93)
pt3dadd(90.04, 294.44, 4.75, 0.93)
pt3dadd(89.88, 295.23, 4.63, 0.93)
pt3dadd(89.9, 296.07, 4.77, 0.93)
pt3dadd(90.35, 297.13, 4.37, 0.93)
pt3dadd(91.36, 297.98, 3.45, 0.93)
pt3dadd(91.68, 298.69, 3.15, 0.77)
pt3dadd(91.66, 299.47, 3.03, 0.77)
pt3dadd(92.29, 299.97, 2.49, 0.77)
pt3dadd(92.58, 301.08, 2.56, 1.24)
pt3dadd(92.61, 301.98, 2.5, 1.39)
pt3dadd(92.59, 302.83, 2.17, 1.39)
pt3dadd(93.4, 304.02, 2.01, 1.08)
pt3dadd(94.1, 304.92, 0.39, 1.08)
pt3dadd(94.01, 305.55, 0.23, 1.08)
pt3dadd(95.42, 306.19, -0.52, 1.08)
pt3dadd(95.91, 306.94, -0.16, 1.08)
pt3dadd(97.16, 307.69, -0.13, 1.08)
pt3dadd(98.1, 308.24, -0.18, 1.08)
pt3dadd(99, 309.06, -0.48, 1.08)
pt3dadd(100.06, 310.05, -1.34, 1.08)
pt3dadd(100.03, 310.64, -1.87, 1.08)
pt3dadd(100.53, 311.42, -2.55, 1.08)
pt3dadd(100.79, 311.7, -2.61, 1.08)
pt3dadd(101.38, 312.63, -3.29, 1.08)
pt3dadd(101.46, 313.35, -3.83, 1.08)
pt3dadd(101.21, 313.64, -4.36, 1.08)
pt3dadd(101.3, 314.77, -4.58, 0.93)
pt3dadd(101.39, 315.8, -5.41, 0.93)
pt3dadd(101.26, 316.73, -5.83, 0.93)
pt3dadd(101.87, 317.95, -5.46, 0.77)
pt3dadd(103.02, 318.8, -6.03, 0.77)
pt3dadd(103.53, 318.72, -5.87, 0.77)
pt3dadd(103.81, 319.22, -6.53, 0.77)
pt3dadd(104.51, 320.08, -7.12, 0.77)
pt3dadd(105.09, 320.41, -7.2, 0.77)
pt3dadd(106.08, 321.23, -7.1, 0.77)
pt3dadd(107.37, 321.45, -8.06, 0.77)
pt3dadd(107.71, 322.3, -8.26, 0.77)
pt3dadd(107.76, 322.61, -9.13, 0.77)
pt3dadd(107.79, 323.25, -9.41, 0.77)
pt3dadd(107.52, 324.02, -9.76, 0.77)
pt3dadd(108.88, 325.11, -11.17, 0.77)
pt3dadd(109.94, 325.91, -12.96, 0.77)
pt3dadd(111.91, 326.38, -13.41, 0.62)
pt3dadd(113.57, 327.14, -13.82, 0.62)
pt3dadd(114.15, 327.74, -15.54, 0.62)
pt3dadd(114.79, 328.21, -15.05, 0.62)
pt3dadd(115.89, 328.81, -14.96, 0.62)
pt3dadd(117.04, 329.66, -15.53, 0.62)
pt3dadd(117.27, 330.28, -15.52, 0.62)
pt3dadd(118.18, 331.52, -15.49, 0.62)
pt3dadd(117.9, 332.39, -16.05, 0.62)
pt3dadd(118.74, 333.13, -15.57, 0.62)
pt3dadd(118.99, 334.4, -15.33, 0.62)
pt3dadd(119.9, 335.56, -15.09, 0.62)
pt3dadd(120.78, 336.03, -14.88, 0.62)
pt3dadd(120.82, 337.45, -15.34, 0.62)
pt3dadd(120.86, 338.45, -15.61, 0.62)
pt3dadd(120.38, 339.53, -16.04, 0.62)
pt3dadd(120.01, 340.88, -16.36, 0.62)
pt3dadd(119.39, 340.82, -16.97, 0.77)
pt3dadd(118.79, 341.16, -17.51, 0.62)
pt3dadd(118.91, 341.36, -18.76, 0.62)
pt3dadd(118.61, 341.66, -19.12, 0.62)
pt3dadd(118.75, 342.4, -19.71, 0.62)
pt3dadd(118.47, 342.86, -20.16, 0.62)
pt3dadd(117.82, 343.13, -20.87, 0.62)
pt3dadd(117.25, 343.91, -21.71, 0.62)
pt3dadd(117.33, 345.38, -21.92, 0.62)
pt3dadd(117.05, 345.93, -22.69, 0.62)
pt3dadd(117.11, 347.02, -23.65, 0.62)
pt3dadd(117.14, 347.54, -24.23, 0.62)
pt3dadd(117.07, 348.3, -25.11, 0.62)
pt3dadd(117.93, 349.6, -26.79, 0.62)
pt3dadd(117.58, 350, -27.41, 0.62)
pt3dadd(116.87, 351.01, -28.48, 0.62)
pt3dadd(116.44, 351.61, -28.87, 0.62)
pt3dadd(116.03, 351.73, -29.25, 0.62)
pt3dadd(116.39, 351.73, -29.63, 0.62)
pt3dadd(116.12, 352.52, -30.08, 0.62)
pt3dadd(115.9, 353.13, -30.69, 0.62)
pt3dadd(115.49, 354.02, -31.26, 0.62)
pt3dadd(115.08, 354.13, -31.64, 0.62)
pt3dadd(114.67, 354.12, -32.44, 0.62)
pt3dadd(114.17, 354.66, -32.99, 0.62)
pt3dadd(114.04, 354.98, -33.53, 0.62)
pt3dadd(113.91, 355.44, -34.15, 0.62)
pt3dadd(113.47, 356.88, -34.54, 0.62)
pt3dadd(112.72, 357.3, -35.22, 0.62)
pt3dadd(112.18, 358.49, -35.83, 0.62)
pt3dadd(111.64, 359.02, -36.32, 0.62)
pt3dadd(111.1, 359.57, -36.81, 0.62)
pt3dadd(110.78, 360.31, -37.41, 0.46)
pt3dadd(109.99, 360.88, -38.14, 0.46)
pt3dadd(109.67, 360.7, -38.44, 0.46)
pt3dadd(109.9, 360.24, -39.16, 0.46)
pt3dadd(110.59, 359.95, -40.48, 0.46)
pt3dadd(110.3, 359.42, -40.85, 0.46)
pt3dadd(109.68, 359.41, -41.43, 0.46)
pt3dadd(110.07, 359.88, -42.62, 0.46)
pt3dadd(109.67, 360.28, -43.18, 0.46)
pt3dadd(109.75, 360.82, -44.34, 0.46)
pt3dadd(110.01, 360.87, -45.14, 0.46)
pt3dadd(109.71, 361.06, -45.93, 0.46)
pt3dadd(110.06, 360.9, -46.95, 0.46)
pt3dadd(110.09, 360.55, -48.27, 0.46)
pt3dadd(110.27, 360.38, -49.13, 0.46)
pt3dadd(110.64, 360.53, -50.86, 0.46)
pt3dadd(110.4, 360.06, -51.08, 0.46)
pt3dadd(109.85, 360.26, -51.59, 0.46)
pt3dadd(110.84, 360.56, -52.84, 0.46)
pt3dadd(111.38, 361.09, -53.98, 0.46)
pt3dadd(110.52, 361.47, -54.77, 0.46)
pt3dadd(110.41, 362.03, -54.98, 0.46)
pt3dadd(110.72, 363.02, -55.4, 0.46)
pt3dadd(111.28, 363.7, -55.39, 0.46)
pt3dadd(111.22, 364.46, -55.53, 0.46)
pt3dadd(112.03, 365.09, -56.02, 0.46)
pt3dadd(112.36, 365.42, -56.33, 0.46)
pt3dadd(112.59, 366.77, -56.62, 0.46)
pt3dadd(112.49, 367.54, -56.71, 0.46)
pt3dadd(113.01, 367.68, -57.36, 0.46)
pt3dadd(113.73, 367.69, -58.13, 0.93)
}
dend[29] {pt3dclear()
pt3dadd(54.84, 216.93, 10.57, 1.24)
pt3dadd(55.84, 216.7, 11.29, 0.93)
pt3dadd(56.4, 216.57, 11.8, 0.93)
pt3dadd(58.02, 216.23, 11.34, 0.93)
pt3dadd(58.89, 216.14, 11.31, 0.93)
pt3dadd(59.88, 216.13, 11.61, 0.93)
}
}
proc shape3d_12() {
dend[29] { pt3dadd(61.63, 216.27, 11.16, 0.93)
pt3dadd(62.92, 216.1, 11.12, 0.93)
pt3dadd(63.68, 215.95, 11.41, 0.93)
pt3dadd(64.82, 215.57, 11.94, 0.93)
pt3dadd(65.89, 215.34, 11.39, 0.93)
pt3dadd(68.06, 215.41, 9.99, 0.93)
pt3dadd(68.68, 215.72, 10.58, 0.93)
pt3dadd(69.16, 215.2, 10.38, 0.93)
pt3dadd(69.41, 214.18, 10.51, 0.93)
pt3dadd(70.01, 214.1, 10.54, 0.93)
pt3dadd(70.59, 213.83, 10.77, 0.93)
pt3dadd(71.54, 213.32, 11.22, 0.93)
pt3dadd(72.15, 213.67, 11.59, 0.93)
pt3dadd(72.9, 214.12, 12.29, 0.93)
pt3dadd(74.2, 214.66, 11.74, 0.93)
pt3dadd(75.18, 214.73, 12.55, 0.93)
pt3dadd(76.38, 214.76, 12.42, 0.93)
pt3dadd(77.52, 215.13, 13.38, 0.93)
pt3dadd(78.81, 215.45, 13.23, 0.93)
pt3dadd(79.77, 215.34, 13.09, 0.93)
pt3dadd(80.54, 215.47, 13.7, 0.93)
pt3dadd(81.95, 215.46, 13.56, 0.93)
pt3dadd(83.38, 215.39, 13.85, 0.93)
pt3dadd(84.73, 215.5, 14.06, 0.93)
pt3dadd(85.62, 215.92, 13.66, 0.93)
pt3dadd(87.25, 216.07, 12.18, 0.93)
pt3dadd(88.33, 216.18, 12.66, 0.93)
pt3dadd(89.37, 216.22, 13.63, 0.93)
pt3dadd(90.26, 216.52, 14.15, 0.93)
pt3dadd(91.44, 217.22, 14.93, 0.93)
pt3dadd(92.23, 217.69, 15.37, 0.93)
pt3dadd(92.32, 217.05, 15.33, 0.93)
pt3dadd(92.64, 215.99, 15.62, 0.77)
pt3dadd(92.97, 215.91, 15.93, 0.77)
pt3dadd(93.86, 216.2, 16.44, 0.77)
pt3dadd(95.02, 216.72, 17.42, 0.77)
pt3dadd(96.16, 217.02, 17.66, 0.77)
pt3dadd(98.62, 217.23, 17.15, 0.77)
pt3dadd(100.94, 217.66, 17.55, 0.77)
pt3dadd(103.11, 217.89, 18.52, 0.77)
pt3dadd(104.24, 218.28, 19.26, 0.77)
pt3dadd(106.03, 219.13, 20.82, 0.77)
pt3dadd(107.61, 219.02, 21.16, 0.77)
pt3dadd(109.2, 219.27, 22.53, 0.77)
pt3dadd(110.36, 219.8, 23.29, 0.77)
pt3dadd(110.84, 219.84, 23.56, 0.62)
pt3dadd(113.21, 220.12, 21.73, 0.62)
pt3dadd(115.05, 219.92, 20.34, 0.62)
pt3dadd(115.91, 219.68, 20.52, 0.62)
pt3dadd(117.47, 220.02, 19.89, 0.62)
pt3dadd(118.14, 220.22, 20.11, 0.62)
pt3dadd(118.6, 220.2, 20.11, 0.62)
pt3dadd(119.44, 220.63, 19.55, 0.62)
pt3dadd(119.75, 220.76, 19.84, 0.62)
pt3dadd(119.97, 221.3, 20.05, 0.62)
pt3dadd(120.51, 220.58, 20.43, 0.62)
pt3dadd(120.96, 220.27, 20.75, 0.62)
pt3dadd(121.16, 220.13, 20.94, 0.62)
pt3dadd(121.64, 220.66, 21.39, 0.62)
pt3dadd(122.45, 220.77, 22.14, 0.62)
pt3dadd(123.07, 220.88, 22.61, 0.62)
pt3dadd(124.4, 220.55, 23.52, 0.62)
pt3dadd(125.68, 220.48, 24.7, 0.62)
pt3dadd(127.26, 220.62, 25.96, 0.62)
pt3dadd(128.32, 220.35, 26.94, 0.62)
pt3dadd(129.24, 220.61, 27.71, 0.62)
pt3dadd(130.52, 220.62, 28.69, 0.62)
pt3dadd(131.87, 221.02, 28.59, 0.62)
pt3dadd(133.63, 221.46, 28.89, 0.62)
pt3dadd(134.9, 221.26, 29.96, 0.62)
pt3dadd(136.88, 220.97, 29.11, 0.62)
pt3dadd(137.56, 221.01, 29.73, 0.46)
pt3dadd(138.16, 221.11, 30.2, 0.46)
pt3dadd(139.25, 221.22, 30.68, 0.46)
pt3dadd(140.41, 221.11, 31.14, 0.46)
pt3dadd(140.88, 221.52, 31.49, 0.46)
pt3dadd(141.82, 221.63, 31.63, 0.46)
pt3dadd(143.4, 221.33, 31.22, 0.46)
pt3dadd(144.21, 220.96, 31.35, 0.46)
pt3dadd(145.8, 221.05, 31.79, 0.46)
pt3dadd(147.71, 221.36, 31.8, 0.46)
pt3dadd(149.19, 221.77, 31.54, 0.46)
pt3dadd(150.18, 221.88, 32.14, 0.46)
pt3dadd(152.25, 222.72, 32.93, 0.46)
pt3dadd(153.69, 222.58, 34.15, 0.46)
pt3dadd(154.32, 223.26, 34.54, 0.46)
pt3dadd(155.41, 223.88, 34.63, 0.46)
pt3dadd(156.71, 224.34, 34.4, 0.46)
pt3dadd(158.16, 224.97, 33.59, 0.46)
pt3dadd(159.37, 225.59, 33.57, 0.46)
pt3dadd(161.02, 226.31, 33.67, 0.46)
pt3dadd(161.93, 227.23, 33.17, 0.46)
pt3dadd(162.35, 227.38, 32.84, 0.46)
pt3dadd(163.11, 227.48, 33.65, 0.46)
pt3dadd(163.81, 226.95, 34.29, 0.46)
pt3dadd(164.96, 227.38, 35.25, 0.46)
}
dend[30] {pt3dclear()
pt3dadd(9.62, 163.72, 22.15, 1.53)
pt3dadd(9.26, 165.73, 21.75, 1.22)
pt3dadd(9.46, 167.26, 21.95, 1.22)
pt3dadd(9.21, 169.52, 21.95, 1.22)
pt3dadd(9.48, 170.02, 22.72, 1.22)
pt3dadd(10.53, 171.25, 24.23, 1.22)
pt3dadd(11.13, 171.63, 25.51, 1.22)
pt3dadd(11.24, 173.41, 26.36, 1.22)
pt3dadd(11.15, 174.45, 28.14, 1.22)
pt3dadd(11.2, 175.98, 28.51, 1.22)
pt3dadd(10.79, 177.2, 29.29, 1.22)
pt3dadd(10.94, 178.3, 30.36, 1.22)
pt3dadd(10.18, 179.2, 31.43, 1.22)
pt3dadd(10.59, 179.34, 32.42, 1.22)
pt3dadd(10.76, 180.74, 33.54, 1.22)
pt3dadd(11.54, 181.8, 34.37, 1.22)
pt3dadd(11.22, 182.35, 35.32, 1.22)
pt3dadd(11.6, 183.09, 36.51, 1.22)
}
dend[31] {pt3dclear()
pt3dadd(11.6, 183.09, 36.51, 1.22)
pt3dadd(11.92, 184.55, 37.03, 0.92)
pt3dadd(11.5, 186.13, 37.47, 0.92)
pt3dadd(10.71, 187.23, 37.27, 0.92)
pt3dadd(9.85, 189.29, 36.93, 0.92)
pt3dadd(9.52, 190.93, 36.84, 0.92)
pt3dadd(9.64, 191.37, 38.2, 0.92)
pt3dadd(9.91, 192.41, 39.59, 0.92)
pt3dadd(9.86, 193.94, 40.08, 0.92)
pt3dadd(9.22, 195.77, 41.28, 0.92)
pt3dadd(9.63, 196.88, 42.07, 0.92)
pt3dadd(9.67, 197.96, 43.25, 0.92)
pt3dadd(10.14, 198.71, 44.33, 0.92)
pt3dadd(10.6, 199.82, 45.07, 0.92)
pt3dadd(10.96, 200.88, 46.35, 0.92)
pt3dadd(11.52, 202.21, 47.5, 0.92)
pt3dadd(11.83, 203.27, 48.84, 0.92)
pt3dadd(12.13, 204.37, 49.74, 0.92)
pt3dadd(11.9, 205.27, 50.26, 0.92)
pt3dadd(11.99, 207.12, 50.68, 0.61)
pt3dadd(11.6, 209, 51.17, 0.61)
pt3dadd(11.62, 209.92, 51.41, 0.61)
pt3dadd(11.87, 210.47, 51.74, 1.53)
}
dend[32] {pt3dclear()
pt3dadd(11.6, 183.09, 36.51, 1.22)
pt3dadd(12.74, 183.66, 38.19, 1.22)
pt3dadd(13.49, 184.09, 38.88, 1.22)
pt3dadd(13.78, 185.2, 39.79, 1.22)
pt3dadd(14.51, 186.24, 40.68, 1.22)
pt3dadd(15.63, 188.16, 41.84, 0.92)
pt3dadd(16.32, 189.88, 42.5, 0.92)
pt3dadd(17.37, 190.88, 43.48, 0.92)
pt3dadd(18.16, 191.87, 44.75, 0.92)
pt3dadd(19.09, 193.16, 45.94, 0.92)
pt3dadd(19.76, 194.77, 47.5, 0.92)
pt3dadd(20.26, 196.13, 48.71, 0.92)
pt3dadd(21.26, 197.11, 49.75, 0.92)
pt3dadd(21.86, 198.77, 50.95, 0.92)
pt3dadd(23, 198.79, 52, 0.92)
pt3dadd(23.16, 200.33, 52.28, 0.92)
pt3dadd(23.55, 201.73, 53.17, 0.92)
pt3dadd(24.09, 202.47, 54.18, 0.92)
pt3dadd(25.74, 203.29, 55.84, 0.92)
pt3dadd(26.72, 203.62, 57.15, 0.92)
pt3dadd(27.46, 204.61, 58.47, 0.92)
pt3dadd(28.04, 205.35, 59.43, 0.92)
pt3dadd(28.15, 206.83, 60.18, 0.92)
pt3dadd(29.36, 207.09, 61.7, 0.92)
pt3dadd(29.82, 208.45, 62.97, 0.92)
pt3dadd(30.37, 210.09, 64.22, 0.92)
pt3dadd(30.86, 210.53, 65.2, 0.92)
pt3dadd(31, 210.36, 66.36, 0.92)
pt3dadd(31.34, 210.25, 66.88, 0.92)
pt3dadd(31.34, 212.07, 67.41, 0.92)
pt3dadd(32.22, 212.09, 68.75, 0.92)
pt3dadd(32.88, 211.92, 69.37, 0.92)
pt3dadd(33.13, 212.48, 69.71, 0.92)
pt3dadd(33.44, 211.74, 70.09, 0.92)
pt3dadd(34.23, 211.2, 70.92, 0.92)
pt3dadd(34.91, 212.25, 71.86, 0.92)
pt3dadd(35.86, 212.95, 72.86, 0.92)
pt3dadd(36.54, 212.95, 74.42, 0.92)
pt3dadd(38.04, 212.8, 76.43, 0.92)
pt3dadd(39.48, 212.39, 77.96, 0.92)
pt3dadd(39.71, 213.86, 78.6, 0.92)
pt3dadd(40.23, 214.62, 79.61, 0.92)
pt3dadd(41.26, 214.93, 80.88, 0.92)
pt3dadd(40.88, 216.09, 82.08, 0.92)
pt3dadd(40.38, 216.81, 84.21, 0.92)
pt3dadd(40.99, 217.19, 85.51, 0.92)
pt3dadd(41.08, 218.3, 86.63, 0.92)
pt3dadd(41.25, 218.47, 87.42, 0.92)
pt3dadd(41.5, 219.83, 88.9, 0.92)
pt3dadd(41.56, 220.14, 91.23, 0.92)
pt3dadd(41.99, 220.16, 93.07, 0.92)
pt3dadd(43.14, 220.9, 95.7, 0.92)
pt3dadd(44.02, 220.68, 96.51, 0.92)
pt3dadd(44.17, 220.01, 96.63, 0.92)
pt3dadd(44.93, 218.86, 97.33, 0.92)
pt3dadd(45.38, 218.76, 97.89, 0.77)
pt3dadd(45.41, 218.93, 98.53, 0.77)
pt3dadd(44.44, 219.26, 100.24, 0.77)
pt3dadd(44.42, 219.6, 101.15, 0.77)
pt3dadd(44.24, 220.23, 101.29, 0.77)
pt3dadd(44.15, 220.86, 101.33, 0.77)
pt3dadd(44.3, 221.34, 101.36, 0.77)
pt3dadd(44.96, 221.55, 101.77, 0.77)
}
}
proc shape3d_13() {
dend[32] { pt3dadd(45.7, 221.58, 101.43, 0.62)
pt3dadd(48.11, 221.64, 99.74, 0.62)
pt3dadd(49.11, 221.84, 99.32, 0.62)
pt3dadd(49.35, 221.87, 99.96, 0.62)
pt3dadd(49.7, 221.73, 100.29, 0.62)
pt3dadd(50.19, 221.13, 100.73, 0.62)
pt3dadd(50.62, 221.65, 101.14, 0.62)
pt3dadd(50.25, 222.09, 100.81, 0.62)
pt3dadd(50.22, 222.55, 100.57, 0.62)
pt3dadd(50.36, 223.2, 100.6, 0.62)
pt3dadd(50.89, 223.72, 101.1, 1.7)
pt3dadd(51.23, 224.06, 101.41, 1.7)
pt3dadd(51.75, 224.89, 101.91, 0.93)
pt3dadd(52.21, 224.93, 102.33, 0.93)
pt3dadd(52.7, 225.13, 102.68, 0.93)
pt3dadd(53.24, 225.64, 102.98, 0.93)
pt3dadd(53.79, 226.02, 103.5, 0.93)
pt3dadd(54.24, 226.04, 103.92, 0.93)
pt3dadd(54.48, 225.9, 104.13, 0.93)
pt3dadd(54.94, 225.77, 104.57, 1.39)
}
dend[33] {pt3dclear()
pt3dadd(0.42, 138.26, 20.34, 2.14)
pt3dadd(-0.11, 139.88, 20.49, 1.22)
pt3dadd(-0.39, 141.22, 20.25, 0.92)
pt3dadd(-0.87, 142.57, 20.23, 0.92)
pt3dadd(-0.58, 144.69, 20.52, 0.92)
pt3dadd(-0.82, 145.37, 20.51, 0.92)
pt3dadd(-1.28, 147.32, 20.63, 0.92)
pt3dadd(-2.02, 148.41, 20.36, 0.92)
pt3dadd(-3.62, 150.34, 19.43, 0.92)
pt3dadd(-4.21, 151.43, 19, 0.92)
pt3dadd(-4.46, 151.11, 19.17, 0.92)
pt3dadd(-5.46, 151.94, 18.66, 0.92)
pt3dadd(-6.32, 152.8, 17.98, 0.92)
pt3dadd(-6.6, 154.13, 17.75, 0.92)
pt3dadd(-7.54, 155.66, 16.9, 0.92)
pt3dadd(-8.92, 155.99, 15.73, 0.92)
pt3dadd(-8.49, 156.18, 16.23, 0.92)
pt3dadd(-9.59, 157.02, 15.84, 0.92)
pt3dadd(-10.6, 158.41, 15.94, 0.92)
pt3dadd(-11.4, 159.27, 15.21, 0.92)
pt3dadd(-12.25, 159.79, 14.43, 0.92)
pt3dadd(-12.41, 161.06, 14.52, 0.92)
pt3dadd(-13.8, 161.72, 13.44, 0.92)
pt3dadd(-14.08, 163.06, 13.2, 0.92)
pt3dadd(-15.1, 164.51, 12.88, 0.92)
pt3dadd(-14.72, 165.67, 13.25, 0.92)
pt3dadd(-15.47, 166.83, 12.57, 0.92)
pt3dadd(-15.95, 168.16, 12.55, 1.22)
pt3dadd(-16.68, 169.62, 11.9, 1.22)
pt3dadd(-17.3, 170.09, 11.32, 1.53)
pt3dadd(-18.32, 171, 10.39, 1.53)
pt3dadd(-18.37, 172.28, 10.36, 1.53)
pt3dadd(-19.64, 174.83, 9.21, 1.22)
pt3dadd(-19.47, 176.05, 9.39, 1.22)
pt3dadd(-19.25, 178.49, 9.83, 1.22)
pt3dadd(-19.95, 178.36, 9.18, 1.22)
pt3dadd(-21.2, 179.31, 8.04, 1.22)
pt3dadd(-22.43, 180.52, 7.42, 1.22)
pt3dadd(-22.74, 181.55, 7.14, 1.22)
pt3dadd(-22.84, 182.53, 7.06, 1.22)
pt3dadd(-23.22, 183.55, 6.84, 1.22)
pt3dadd(-23.39, 183.92, 6.67, 1.22)
pt3dadd(-23.71, 184.95, 6.39, 1.22)
}
dend[34] {pt3dclear()
pt3dadd(-23.71, 184.95, 6.39, 1.22)
pt3dadd(-23.31, 186.73, 6.9, 0.92)
pt3dadd(-23.7, 187.15, 6.54, 0.92)
pt3dadd(-24.02, 188.2, 6.26, 0.92)
pt3dadd(-24.78, 189.34, 5.57, 0.92)
pt3dadd(-24.9, 190.92, 5.67, 0.92)
pt3dadd(-26.25, 192.43, 5.27, 0.92)
pt3dadd(-27.22, 193.58, 4.8, 0.92)
pt3dadd(-28.02, 193.69, 4.78, 0.92)
pt3dadd(-28.66, 195.03, 4.93, 0.92)
pt3dadd(-29.26, 196.72, 4.69, 0.92)
pt3dadd(-30.55, 197.62, 4.03, 0.92)
pt3dadd(-31.14, 198.95, 4.13, 0.92)
pt3dadd(-31.61, 199.01, 4.2, 0.92)
pt3dadd(-32.44, 201, 4.28, 0.92)
pt3dadd(-33.03, 202.65, 4.47, 0.92)
pt3dadd(-33.12, 203.56, 4.82, 0.92)
pt3dadd(-33.7, 204.91, 4.91, 0.92)
pt3dadd(-34.53, 206.36, 4.37, 0.92)
pt3dadd(-36.12, 207, 3.54, 0.92)
pt3dadd(-36.36, 208.64, 3.33, 0.92)
pt3dadd(-36.64, 210.3, 3.19, 0.92)
pt3dadd(-37.68, 211.5, 2.35, 0.92)
pt3dadd(-37.74, 213.09, 2.41, 0.92)
pt3dadd(-38.7, 213.92, 1.84, 0.92)
pt3dadd(-40.26, 215.18, 1.13, 0.92)
pt3dadd(-40.28, 215.79, 1.33, 0.92)
pt3dadd(-40.65, 216.82, 1.11, 0.92)
pt3dadd(-41.94, 217.79, 0.01, 0.92)
pt3dadd(-42.75, 218.94, -0.6, 0.92)
pt3dadd(-43.3, 220.57, -0.48, 0.92)
pt3dadd(-43.51, 221.84, -0.34, 0.92)
pt3dadd(-43.59, 222.77, 0, 0.92)
pt3dadd(-43.65, 224.29, 0.48, 0.92)
pt3dadd(-43.48, 225.52, 0.65, 0.92)
pt3dadd(-43.67, 226.19, 0.59, 0.92)
pt3dadd(-43.43, 225.77, 1.12, 0.92)
pt3dadd(-43.37, 227.3, 1.49, 0.92)
pt3dadd(-44.26, 228.07, 1.3, 0.92)
pt3dadd(-44.41, 229.04, 1.27, 0.92)
pt3dadd(-44.18, 231.2, 1.62, 0.92)
pt3dadd(-44.47, 232.41, 2.29, 0.92)
pt3dadd(-44.83, 233.94, 3.11, 0.92)
pt3dadd(-45.37, 235.02, 2.62, 0.92)
pt3dadd(-45.67, 235.95, 3.19, 0.92)
pt3dadd(-46.21, 237.59, 3.32, 0.92)
pt3dadd(-46.5, 238.49, 3.89, 0.92)
pt3dadd(-46.64, 239.72, 4.4, 0.92)
pt3dadd(-47.93, 241.16, 4.36, 0.92)
pt3dadd(-48.89, 242.3, 3.9, 0.92)
pt3dadd(-49.55, 242.97, 4.33, 0.92)
pt3dadd(-50.59, 243.99, 4.82, 0.92)
pt3dadd(-51.81, 245.38, 5.15, 0.92)
pt3dadd(-52.49, 245.98, 6.08, 0.92)
pt3dadd(-53.34, 247.31, 6.44, 0.92)
pt3dadd(-53.8, 248.19, 6.18, 0.77)
pt3dadd(-54.07, 249.12, 5.93, 0.77)
pt3dadd(-54.25, 250.35, 5.79, 0.77)
pt3dadd(-54.54, 251.76, 5.53, 0.77)
pt3dadd(-54.78, 252.38, 5.52, 0.77)
pt3dadd(-55.39, 253.45, 5.17, 0.77)
pt3dadd(-55.69, 254.23, 5.42, 0.77)
}
dend[35] {pt3dclear()
pt3dadd(-55.69, 254.23, 5.42, 0.77)
pt3dadd(-55.06, 255.23, 6.02, 0.62)
pt3dadd(-54.31, 256.23, 6.73, 0.62)
pt3dadd(-55.15, 257.02, 8.02, 0.62)
pt3dadd(-56, 257.87, 10.24, 0.62)
pt3dadd(-55.46, 258.38, 10.74, 0.62)
pt3dadd(-55.34, 259.33, 10.98, 0.62)
pt3dadd(-55.15, 260.16, 11.17, 1.08)
pt3dadd(-54.96, 260.95, 11.35, 0.62)
pt3dadd(-54.56, 261.48, 12.02, 0.62)
pt3dadd(-54.64, 262.11, 12.27, 0.62)
pt3dadd(-54.87, 263.23, 13.11, 0.62)
pt3dadd(-55.46, 264.19, 14.12, 0.62)
pt3dadd(-56.01, 265.3, 14.85, 0.62)
pt3dadd(-56.75, 266.2, 15.11, 0.62)
pt3dadd(-57.39, 266.8, 14.84, 0.46)
}
dend[36] {pt3dclear()
pt3dadd(-55.69, 254.23, 5.42, 0.77)
pt3dadd(-56.27, 255.16, 5.51, 0.77)
pt3dadd(-56.45, 256.41, 5.36, 0.77)
pt3dadd(-56.63, 257.66, 5.21, 0.77)
pt3dadd(-56.54, 258.3, 5.3, 0.77)
pt3dadd(-56.4, 259.56, 5.04, 0.77)
pt3dadd(-55.98, 260.68, 4.72, 0.77)
pt3dadd(-55.25, 261.52, 4.77, 0.77)
pt3dadd(-55.16, 262.45, 4.36, 0.77)
pt3dadd(-54.3, 262.98, 4.54, 0.77)
pt3dadd(-54.18, 263.77, 4.34, 0.77)
pt3dadd(-54.12, 264.72, 4.41, 0.77)
pt3dadd(-54.14, 265.18, 4.4, 0.77)
pt3dadd(-54.29, 265.95, 4.27, 0.77)
pt3dadd(-54.13, 266.45, 4.43, 0.61)
pt3dadd(-54.15, 268.33, 4.53, 0.81)
pt3dadd(-54.48, 269.37, 4.25, 0.65)
pt3dadd(-54.97, 271.75, 3.62, 0.65)
pt3dadd(-54.65, 272.97, 3.61, 0.65)
pt3dadd(-54.55, 274.25, 3.41, 0.65)
pt3dadd(-54.46, 274.55, 3.4, 0.65)
pt3dadd(-54.22, 276.39, 3.65, 0.65)
pt3dadd(-54.71, 277.79, 3.2, 0.65)
pt3dadd(-54.77, 279.08, 3.17, 0.65)
pt3dadd(-54.86, 280.14, 3.19, 0.65)
pt3dadd(-54.9, 281.08, 3.16, 0.65)
pt3dadd(-55.52, 281.99, 2.6, 0.65)
pt3dadd(-55.89, 282.75, 2.26, 0.65)
pt3dadd(-56.56, 283.66, 1.76, 0.65)
pt3dadd(-56.94, 284.42, 1.42, 0.65)
pt3dadd(-57.66, 285.16, 0.77, 0.65)
pt3dadd(-58.05, 286.23, 0.42, 0.65)
pt3dadd(-58.53, 286.99, 0.18, 0.65)
pt3dadd(-58.42, 288.11, 0.41, 0.65)
pt3dadd(-58.14, 288.77, 0.97, 0.65)
pt3dadd(-58.36, 289.41, 1.61, 0.65)
pt3dadd(-59.14, 290.05, 2.86, 0.65)
pt3dadd(-59.76, 290.5, 3.02, 0.65)
pt3dadd(-60.65, 291.27, 3.23, 0.65)
pt3dadd(-60.27, 291.77, 3.69, 0.65)
pt3dadd(-59.74, 292.61, 4.19, 0.65)
pt3dadd(-59.83, 293.7, 4.64, 0.65)
pt3dadd(-60.41, 294.18, 5.23, 0.65)
pt3dadd(-60.19, 295.45, 5.57, 0.65)
pt3dadd(-60.46, 296.27, 6.25, 0.65)
pt3dadd(-60.83, 297.38, 6.55, 0.65)
pt3dadd(-61.58, 298.61, 6.8, 0.65)
pt3dadd(-61.87, 299.85, 6.54, 0.46)
pt3dadd(-61.05, 300.88, 7.41, 0.46)
pt3dadd(-61.2, 301.66, 7.5, 0.46)
pt3dadd(-61.63, 302.42, 7.21, 0.62)
pt3dadd(-62.1, 302.7, 6.78, 0.62)
pt3dadd(-62.28, 304.1, 6.62, 0.62)
pt3dadd(-62.33, 305.05, 6.59, 0.62)
pt3dadd(-62.38, 306, 6.55, 0.62)
pt3dadd(-64.16, 307.22, 7.92, 0.62)
pt3dadd(-64.83, 308.16, 8.55, 0.62)
pt3dadd(-64.74, 309.12, 8.85, 0.62)
pt3dadd(-65.28, 309.73, 8.45, 0.62)
}
}
proc shape3d_14() {
dend[36] { pt3dadd(-66.24, 310.77, 8.72, 0.62)
pt3dadd(-66.32, 311.41, 8.75, 0.62)
pt3dadd(-66.72, 312.36, 9.33, 0.62)
pt3dadd(-67.53, 313.45, 10.34, 0.62)
pt3dadd(-67.62, 314.41, 10.58, 0.62)
pt3dadd(-68.09, 315.06, 11.71, 0.62)
pt3dadd(-68.47, 315.52, 12.08, 0.62)
pt3dadd(-68.94, 316.13, 11.85, 0.62)
pt3dadd(-69.67, 316.91, 12.11, 0.62)
pt3dadd(-70.24, 317.66, 12.21, 0.62)
pt3dadd(-70.33, 318.45, 12.24, 0.62)
pt3dadd(-70.5, 319.7, 12.31, 0.62)
pt3dadd(-70.83, 320.8, 12.12, 0.62)
pt3dadd(-71.34, 323.13, 11.78, 0.62)
pt3dadd(-71.37, 324.88, 11.88, 0.62)
pt3dadd(-71.09, 326.64, 12.57, 0.62)
pt3dadd(-70.71, 328.59, 13.15, 0.62)
pt3dadd(-70.41, 329.41, 13.43, 0.62)
pt3dadd(-70.11, 330.23, 13.94, 0.62)
pt3dadd(-69.64, 331.55, 14.7, 0.62)
pt3dadd(-68.97, 333.2, 15.44, 0.62)
pt3dadd(-68.59, 334.8, 16.02, 0.62)
pt3dadd(-68.23, 335.63, 16.47, 0.62)
pt3dadd(-67.64, 336.46, 17.13, 0.62)
pt3dadd(-67.09, 336.99, 17.64, 0.62)
pt3dadd(-66.58, 337.19, 18.22, 0.62)
pt3dadd(-66.14, 337.54, 18.63, 0.62)
pt3dadd(-65.6, 337.91, 19.14, 0.62)
pt3dadd(-64.93, 338.27, 19.76, 0.62)
pt3dadd(-64.62, 338.93, 20.05, 0.62)
pt3dadd(-64.5, 340.06, 20.28, 0.62)
pt3dadd(-64.94, 340.85, 20.92, 0.62)
pt3dadd(-65, 342.27, 21.08, 0.62)
pt3dadd(-65.18, 343.39, 21.86, 0.62)
pt3dadd(-65.16, 344.35, 21.99, 0.62)
pt3dadd(-64.61, 344.9, 22.72, 0.62)
pt3dadd(-64.45, 346.04, 23.6, 0.62)
pt3dadd(-64.37, 347.18, 24.09, 0.62)
pt3dadd(-64.37, 348.78, 24.63, 0.62)
pt3dadd(-64.61, 349.73, 25.05, 0.62)
pt3dadd(-64.94, 350.97, 25.06, 0.62)
pt3dadd(-65.49, 351.75, 25.59, 0.62)
pt3dadd(-65.85, 352.38, 25.47, 0.62)
pt3dadd(-65.75, 353.35, 26.41, 0.62)
pt3dadd(-65.66, 355.26, 26.62, 0.62)
pt3dadd(-65.99, 356.19, 26.42, 0.62)
pt3dadd(-65.44, 357.82, 27.06, 0.62)
pt3dadd(-64.65, 359.31, 27.9, 0.62)
pt3dadd(-64.34, 359.98, 28.2, 0.62)
pt3dadd(-63.88, 361.13, 28.75, 0.62)
pt3dadd(-63.67, 361.95, 29.37, 0.62)
pt3dadd(-63.97, 363.04, 29.82, 0.62)
pt3dadd(-65.35, 363.78, 30.1, 0.62)
pt3dadd(-66.11, 364.52, 29.72, 0.62)
pt3dadd(-67.15, 364.95, 29.89, 0.62)
pt3dadd(-67.92, 365.41, 30.23, 0.62)
pt3dadd(-68.4, 366.16, 30, 0.62)
pt3dadd(-68.75, 367.1, 30.29, 0.62)
pt3dadd(-69.94, 369.74, 30.66, 0.62)
pt3dadd(-70.19, 371.3, 30.57, 0.62)
pt3dadd(-70.9, 372.87, 30.74, 0.62)
pt3dadd(-71.44, 373.63, 30.57, 0.62)
pt3dadd(-71.28, 375.05, 30.73, 0.62)
pt3dadd(-71.96, 376.13, 30.23, 0.62)
pt3dadd(-72.59, 377.65, 29.86, 0.62)
pt3dadd(-73.45, 377.92, 29.39, 0.62)
pt3dadd(-73.52, 378.55, 29.42, 0.62)
pt3dadd(-73.84, 379.31, 29.24, 1.08)
}
dend[37] {pt3dclear()
pt3dadd(-23.71, 184.95, 6.39, 1.22)
pt3dadd(-23.11, 186.63, 7.58, 1.22)
pt3dadd(-22.5, 187.73, 8.16, 1.22)
pt3dadd(-22.16, 188.59, 8.49, 1.22)
pt3dadd(-22.03, 189.2, 8.52, 1.22)
pt3dadd(-21.64, 190.37, 8.89, 1.22)
pt3dadd(-20.74, 192.03, 9.75, 1.22)
pt3dadd(-20.52, 192.95, 9.76, 1.22)
pt3dadd(-20.02, 195.09, 9.83, 1.22)
pt3dadd(-19.5, 196.87, 10.24, 1.22)
pt3dadd(-19.52, 198.46, 10.24, 1.22)
pt3dadd(-19.72, 200.17, 9.55, 1.22)
pt3dadd(-19.61, 201.45, 9.35, 1.22)
pt3dadd(-19.91, 204.38, 9.12, 1.22)
pt3dadd(-19.73, 206.27, 9, 1.22)
pt3dadd(-20.17, 207.12, 7.88, 1.22)
pt3dadd(-20.85, 208.89, 7.27, 1.22)
pt3dadd(-21.68, 210.39, 6.3, 1.22)
pt3dadd(-23.2, 212.39, 4.83, 1.22)
pt3dadd(-23.51, 213.41, 4.55, 1.22)
pt3dadd(-24.76, 214.38, 3.4, 1.22)
pt3dadd(-25.15, 214.8, 3.04, 1.22)
pt3dadd(-26.1, 216.3, 2.18, 0.92)
pt3dadd(-27.17, 218.49, 1.22, 0.92)
pt3dadd(-26.77, 220.5, -0.02, 0.92)
pt3dadd(-27.29, 221.3, -0.61, 0.92)
pt3dadd(-28.32, 220.66, -1.98, 0.92)
pt3dadd(-29, 222.48, -3.01, 0.92)
pt3dadd(-29.62, 222.66, -3.67, 0.92)
pt3dadd(-31.03, 223.67, -5.08, 0.92)
pt3dadd(-31.82, 224.21, -5.9, 0.92)
pt3dadd(-32.67, 224.74, -6.68, 0.92)
pt3dadd(-33.78, 225.82, -8.84, 0.92)
pt3dadd(-34.44, 226, -9.45, 0.92)
pt3dadd(-35.82, 227.32, -10.81, 0.92)
pt3dadd(-35.66, 229.28, -11.36, 0.92)
pt3dadd(-36.06, 230.67, -11.91, 0.92)
pt3dadd(-36.77, 231.88, -13.08, 0.92)
pt3dadd(-37.35, 232.13, -14.24, 0.92)
pt3dadd(-38.45, 232.4, -15.25, 0.92)
pt3dadd(-38.9, 232.27, -16.19, 0.92)
pt3dadd(-39.68, 232.51, -17.11, 0.92)
pt3dadd(-40.1, 233.96, -18.09, 0.92)
pt3dadd(-40.99, 235.78, -18.9, 0.92)
pt3dadd(-41.79, 236.63, -19.63, 0.92)
pt3dadd(-42.58, 238.15, -20.66, 0.92)
pt3dadd(-42.89, 239.17, -20.94, 0.92)
pt3dadd(-43.19, 240.89, -21.51, 0.92)
pt3dadd(-42.58, 242.41, -21.74, 0.92)
pt3dadd(-44.03, 244.1, -23.37, 0.92)
pt3dadd(-44.94, 244.99, -24.42, 0.92)
pt3dadd(-45.49, 246.09, -24.91, 0.92)
pt3dadd(-46.07, 246.88, -25.44, 0.92)
pt3dadd(-46.24, 247.42, -26.94, 0.92)
pt3dadd(-46.71, 248.88, -27.86, 0.92)
pt3dadd(-48.1, 249.28, -29.45, 0.92)
pt3dadd(-48.99, 249.57, -30.69, 0.92)
pt3dadd(-49.65, 249.2, -31.93, 0.92)
pt3dadd(-50.67, 249.84, -33.39, 0.92)
pt3dadd(-51.15, 250.09, -34.64, 0.92)
pt3dadd(-52.12, 249.46, -36.07, 0.92)
pt3dadd(-52.31, 249.88, -36.66, 0.92)
pt3dadd(-53.08, 250.78, -37.87, 0.92)
pt3dadd(-53.59, 251.94, -38.84, 0.92)
pt3dadd(-53.71, 253.03, -39.77, 0.92)
pt3dadd(-54.17, 253.95, -41.32, 0.92)
pt3dadd(-54.61, 255.09, -42.34, 0.92)
pt3dadd(-55.18, 255.02, -43.59, 0.92)
pt3dadd(-56.34, 256.77, -45.98, 0.92)
pt3dadd(-57.4, 258.35, -47.15, 0.92)
pt3dadd(-57.87, 257.58, -48.22, 0.92)
pt3dadd(-58.75, 257.52, -49.13, 0.92)
pt3dadd(-59.84, 258.48, -50.44, 0.92)
pt3dadd(-59.82, 259.14, -50.73, 0.92)
pt3dadd(-60.15, 260, -51.95, 0.92)
pt3dadd(-60.6, 259.58, -52.98, 0.92)
pt3dadd(-61.48, 259.8, -53.8, 0.92)
pt3dadd(-61.42, 260.52, -54.57, 0.92)
pt3dadd(-61.83, 260.7, -55.46, 0.92)
pt3dadd(-62.25, 260.95, -56.78, 0.92)
pt3dadd(-63.46, 261.95, -58.4, 0.92)
pt3dadd(-63.79, 263.04, -59.1, 0.92)
pt3dadd(-64.42, 263.27, -60.2, 0.92)
pt3dadd(-64.9, 263.58, -61.89, 0.92)
pt3dadd(-66.78, 264.1, -63.83, 0.92)
pt3dadd(-66.45, 264.22, -65.07, 0.92)
pt3dadd(-66.86, 264.41, -65.96, 0.92)
pt3dadd(-66.81, 265.44, -66.63, 0.92)
pt3dadd(-66.48, 266.23, -68.16, 0.92)
pt3dadd(-66.8, 266.44, -68.46, 1.08)
pt3dadd(-67.56, 266.8, -69.16, 1.08)
pt3dadd(-68.11, 266.94, -69.67, 1.08)
pt3dadd(-67.87, 267.43, -71.2, 1.08)
pt3dadd(-68.52, 267.77, -71.8, 0.93)
pt3dadd(-68.44, 268.08, -73.17, 0.93)
pt3dadd(-68.61, 268.88, -73.93, 0.93)
pt3dadd(-68.44, 269.49, -75.11, 0.93)
pt3dadd(-69.02, 269.97, -75.74, 0.93)
pt3dadd(-69.97, 270.55, -75.48, 0.93)
pt3dadd(-70.14, 271.66, -75.21, 0.93)
pt3dadd(-70.74, 272.27, -75.56, 0.93)
pt3dadd(-72.16, 272.32, -75.63, 0.93)
pt3dadd(-72.93, 272.48, -76.14, 0.77)
pt3dadd(-73.92, 272.94, -76.11, 0.77)
pt3dadd(-74.57, 273.57, -76.61, 0.77)
pt3dadd(-74, 273.74, -78.34, 0.77)
pt3dadd(-73.5, 274.23, -80.15, 0.77)
pt3dadd(-73.64, 274.87, -81.2, 0.77)
pt3dadd(-74.52, 274.45, -82.01, 0.77)
pt3dadd(-74.46, 273.91, -83.84, 0.77)
pt3dadd(-75.1, 273.12, -84.54, 0.77)
pt3dadd(-75.4, 272, -85.45, 0.77)
pt3dadd(-75.63, 270.98, -85.97, 0.77)
pt3dadd(-75.75, 270.26, -86.51, 0.77)
pt3dadd(-76.53, 269.19, -87.35, 0.62)
pt3dadd(-76.9, 268.16, -87.7, 0.62)
pt3dadd(-76.64, 267.39, -88.2, 0.62)
pt3dadd(-76.32, 266.58, -88.54, 0.62)
pt3dadd(-76.14, 265.66, -88.99, 0.62)
pt3dadd(-76.16, 265.23, -89.33, 0.62)
pt3dadd(-76.12, 265, -90.13, 0.62)
pt3dadd(-76.45, 264.98, -90.73, 0.62)
pt3dadd(-76.97, 265.45, -91.41, 1.55)
pt3dadd(-77.28, 266.2, -91.8, 0.93)
pt3dadd(-76.51, 266.67, -93.66, 0.93)
pt3dadd(-75.69, 267.63, -95.68, 0.93)
}
dend[38] {pt3dclear()
pt3dadd(0, 0, 0, 3.67)
pt3dadd(-0.08, -2.54, -5.65, 3.67)
pt3dadd(-1.52, -2.63, -5.95, 3.67)
pt3dadd(-2.11, -2.82, -6.3, 3.37)
pt3dadd(-4.01, -2.9, -6.09, 3.06)
pt3dadd(-5.38, -2.8, -5.5, 3.06)
}
}
proc shape3d_15() {
dend[38] { pt3dadd(-6.92, -2.34, -5.06, 3.06)
pt3dadd(-7.92, -1.99, -4.34, 3.06)
pt3dadd(-8.67, -2.12, -2.66, 3.06)
pt3dadd(-10.41, -2.5, -2.73, 2.75)
pt3dadd(-11.63, -2.1, -2.2, 2.45)
pt3dadd(-12.57, -1.8, -1.1, 2.45)
pt3dadd(-13.4, -2.06, -0.73, 2.45)
pt3dadd(-14.35, -1.94, -0.59, 2.45)
pt3dadd(-15.19, -2.21, -0.22, 2.45)
pt3dadd(-16.68, -2.22, 1.38, 2.45)
pt3dadd(-17.64, -2.85, 2.24, 2.45)
pt3dadd(-18.37, -3.53, 3.31, 2.45)
pt3dadd(-19.28, -2.87, 4.01, 2.45)
pt3dadd(-21.14, -4.11, 5.68, 2.45)
pt3dadd(-22.47, -4.44, 7.04, 2.45)
pt3dadd(-23.38, -5.07, 7.84, 2.45)
pt3dadd(-22.93, -4.92, 8.77, 2.45)
pt3dadd(-23.96, -4.94, 9.88, 2.45)
pt3dadd(-24.98, -5.5, 10.37, 2.45)
pt3dadd(-26.12, -5.52, 11.6, 2.45)
pt3dadd(-27.45, -5.53, 13.04, 2.45)
pt3dadd(-28.53, -5.86, 14.11, 2.45)
pt3dadd(-29.81, -5.88, 15.5, 2.45)
pt3dadd(-30.88, -5.95, 17.09, 2.45)
pt3dadd(-31.73, -6.03, 18.46, 2.45)
pt3dadd(-33.11, -6.35, 19.87, 2.45)
pt3dadd(-33.95, -6.59, 20.48, 2.32)
pt3dadd(-35.78, -6.8, 21.78, 2.32)
pt3dadd(-37.22, -6.82, 23.34, 2.32)
pt3dadd(-38.4, -6.83, 24.62, 2.32)
pt3dadd(-39.53, -6.85, 25.84, 2.32)
pt3dadd(-41.08, -7.35, 26.87, 2.01)
pt3dadd(-41.57, -8.17, 27.24, 2.01)
pt3dadd(-42.74, -8.82, 28.11, 2.01)
pt3dadd(-43.64, -9.47, 29.13, 2.01)
}
dend[39] {pt3dclear()
pt3dadd(-43.64, -9.47, 29.13, 2.01)
pt3dadd(-43.6, -9.92, 29.58, 1.39)
pt3dadd(-44.31, -10.21, 31.29, 1.39)
pt3dadd(-45.46, -10.85, 32.79, 1.39)
pt3dadd(-46.87, -11.02, 34.8, 1.39)
pt3dadd(-48.54, -11.18, 37.06, 1.39)
pt3dadd(-50.48, -11.2, 39.4, 1.39)
pt3dadd(-51.27, -11.02, 41.15, 1.39)
pt3dadd(-52.81, -10.7, 43.23, 1.39)
pt3dadd(-54.32, -10.7, 45.55, 1.39)
pt3dadd(-54.75, -10.68, 46.92, 1.39)
pt3dadd(-55.4, -10.98, 48.57, 1.39)
pt3dadd(-55.35, -10.31, 49.35, 1.39)
pt3dadd(-56.31, -10.93, 51.13, 1.39)
pt3dadd(-57.19, -11.56, 52.59, 1.39)
pt3dadd(-58.49, -12.2, 54.27, 1.39)
pt3dadd(-59.67, -12.51, 56.26, 1.39)
pt3dadd(-60.78, -12.5, 57.92, 1.39)
pt3dadd(-61.54, -12.18, 59.39, 1.39)
pt3dadd(-61.21, -11.67, 59.91, 1.39)
pt3dadd(-62.2, -11.65, 61.88, 1.39)
pt3dadd(-62.16, -12.4, 63.05, 1.39)
pt3dadd(-62.45, -12.69, 64.53, 1.39)
pt3dadd(-62.88, -12.82, 65.68, 1.39)
pt3dadd(-62.2, -12.45, 66.52, 1.24)
pt3dadd(-62.84, -11.81, 67.6, 1.24)
pt3dadd(-63.79, -11.03, 68.79, 1.24)
pt3dadd(-64.68, -10.23, 70.14, 1.24)
pt3dadd(-66.06, -10.11, 70.93, 1.24)
pt3dadd(-67.74, -10.15, 71.84, 1.24)
pt3dadd(-69.2, -10.37, 72.76, 1.24)
pt3dadd(-69.92, -10.86, 73.33, 1.24)
pt3dadd(-72.23, -11.1, 74.48, 1.24)
}
dend[40] {pt3dclear()
pt3dadd(-43.64, -9.47, 29.13, 2.01)
pt3dadd(-44.91, -10.45, 29.9, 1.55)
pt3dadd(-45.7, -11.74, 30.19, 1.55)
pt3dadd(-46.96, -12.39, 31.59, 1.55)
pt3dadd(-47.86, -13.04, 32.39, 1.55)
pt3dadd(-48.79, -13.37, 33.19, 1.55)
pt3dadd(-49.14, -13.86, 33.38, 1.55)
pt3dadd(-49.99, -14.68, 33.92, 1.55)
pt3dadd(-50.25, -15.33, 33.79, 1.55)
pt3dadd(-50.8, -15.54, 33.27, 1.39)
pt3dadd(-52.13, -15.91, 33.36, 1.39)
pt3dadd(-52.34, -16.25, 33.17, 1.39)
pt3dadd(-53.14, -16.43, 33.35, 1.39)
pt3dadd(-53.26, -17.23, 33.55, 1.39)
pt3dadd(-53.65, -18.03, 33.59, 1.39)
pt3dadd(-53.83, -18.68, 33.61, 1.39)
pt3dadd(-53.9, -19.3, 33.97, 1.39)
pt3dadd(-53.89, -20.07, 34.48, 1.39)
pt3dadd(-53.88, -21.33, 34.58, 1.39)
pt3dadd(-53.64, -21.63, 34.79, 1.39)
pt3dadd(-53.37, -22.25, 35.03, 1.39)
pt3dadd(-53.86, -22.76, 34.68, 1.39)
pt3dadd(-54.09, -22.78, 34.47, 1.39)
pt3dadd(-54.64, -23.43, 34.67, 1.39)
pt3dadd(-55.07, -23.77, 34.47, 1.39)
pt3dadd(-56.02, -24.28, 34.62, 1.39)
pt3dadd(-56.72, -24.78, 35.21, 1.39)
pt3dadd(-57.15, -25.12, 35.02, 1.24)
pt3dadd(-57.73, -25.63, 34.77, 1.24)
pt3dadd(-58.03, -26.44, 34.48, 1.24)
pt3dadd(-58.82, -26.78, 34.89, 1.24)
pt3dadd(-59.22, -27.44, 34.93, 1.24)
pt3dadd(-60.19, -27.78, 35.78, 1.24)
pt3dadd(-60.89, -28.26, 36.36, 1.24)
pt3dadd(-61.29, -28.58, 36.81, 1.24)
pt3dadd(-61.57, -29.37, 37.17, 1.24)
pt3dadd(-61.7, -29.85, 37.36, 1.24)
pt3dadd(-61.91, -30.81, 37.66, 1.24)
pt3dadd(-62.3, -31.28, 38.12, 1.24)
pt3dadd(-62.08, -31.89, 38.63, 1.24)
pt3dadd(-61.86, -32.65, 38.92, 1.24)
pt3dadd(-61.65, -33.43, 39.21, 1.24)
pt3dadd(-61.77, -34.22, 39.18, 1.24)
pt3dadd(-61.5, -35, 39.43, 1.24)
pt3dadd(-61.01, -35.74, 40.09, 1.24)
pt3dadd(-61.64, -36.71, 40.63, 1.24)
pt3dadd(-61.59, -37.48, 40.87, 1.08)
pt3dadd(-62.84, -38, 41.35, 1.08)
pt3dadd(-63.41, -38.33, 41.54, 1.08)
pt3dadd(-64.12, -38.55, 41.41, 1.08)
pt3dadd(-64.57, -38.25, 41.19, 1.08)
pt3dadd(-65.34, -38.74, 41.82, 1.08)
pt3dadd(-65.67, -39.54, 42.02, 1.08)
pt3dadd(-65.9, -40.18, 42.32, 1.08)
pt3dadd(-66.73, -40.69, 42.57, 1.08)
pt3dadd(-66.64, -40.98, 42.97, 1.24)
pt3dadd(-66.66, -41.61, 43.05, 1.24)
pt3dadd(-67.18, -42.4, 43.9, 1.24)
pt3dadd(-67.62, -43.22, 43.99, 1.24)
pt3dadd(-68.82, -43.57, 44.64, 1.24)
pt3dadd(-69.43, -44.39, 44.68, 1.24)
pt3dadd(-69.72, -45.2, 44.6, 1.24)
pt3dadd(-69.83, -46.46, 44.6, 1.24)
pt3dadd(-70.37, -46.95, 45.22, 1.24)
pt3dadd(-70.91, -47.59, 45.86, 1.24)
pt3dadd(-71, -48.69, 46.06, 1.24)
pt3dadd(-71.37, -49.02, 46.02, 1.08)
pt3dadd(-71.78, -49.68, 46.05, 1.08)
pt3dadd(-72.5, -50.34, 46.21, 1.08)
pt3dadd(-72.89, -50.82, 46.45, 1.08)
pt3dadd(-73.32, -51.61, 46.98, 1.08)
pt3dadd(-74.22, -52.43, 47.79, 1.08)
pt3dadd(-74.55, -53.39, 47.77, 1.08)
pt3dadd(-75.22, -54.34, 48.81, 1.08)
pt3dadd(-76.12, -54.7, 48.89, 1.08)
pt3dadd(-76.58, -55.35, 48.77, 1.08)
pt3dadd(-77.18, -56.32, 48.81, 1.08)
pt3dadd(-77.57, -56.97, 49.06, 1.08)
pt3dadd(-78.31, -57.34, 48.99, 1.08)
pt3dadd(-78.86, -57.82, 49.62, 1.08)
pt3dadd(-79.63, -58.32, 49.82, 1.08)
pt3dadd(-79.98, -59.28, 49.8, 1.08)
pt3dadd(-80.91, -59.47, 50.38, 1.08)
pt3dadd(-81.15, -60.11, 50.46, 1.08)
pt3dadd(-82.21, -60.32, 50.93, 1.08)
pt3dadd(-82.57, -60.48, 51.11, 1.08)
pt3dadd(-83.19, -60.64, 51.57, 1.08)
pt3dadd(-83.55, -61.14, 51.53, 1.08)
pt3dadd(-84.49, -61.17, 52.1, 1.08)
pt3dadd(-85.26, -61.35, 52.95, 1.08)
pt3dadd(-85.98, -61.52, 53.51, 1.08)
pt3dadd(-86.27, -62.16, 53.64, 1.08)
pt3dadd(-87.35, -62.18, 54.81, 1.08)
pt3dadd(-87.48, -62.65, 55, 1.08)
pt3dadd(-88.02, -63.45, 55.42, 1.08)
pt3dadd(-89.03, -63.94, 56.33, 1.08)
pt3dadd(-90.17, -64.16, 56.42, 1.08)
pt3dadd(-90.56, -64.48, 56.66, 1.08)
pt3dadd(-91.11, -65.12, 57.07, 1.08)
pt3dadd(-92.05, -65.46, 57.44, 1.08)
pt3dadd(-93.04, -65.66, 58.28, 1.08)
pt3dadd(-93.43, -66.3, 58.32, 1.08)
}
}
proc basic_shape() {
shape3d_1()
shape3d_2()
shape3d_3()
shape3d_4()
shape3d_5()
shape3d_6()
shape3d_7()
shape3d_8()
shape3d_9()
shape3d_10()
shape3d_11()
shape3d_12()
shape3d_13()
shape3d_14()
shape3d_15()
}
proc connect_pre() { // $o1 target point process, $o2 returned NetCon
soma $o2 = new NetCon (&v(1), $o1)
//alternative statement $o1.soma pre_list.append(new NetCon(soma.v(1),syn,0,Delsyn,0))
}
objref syn
objref DistalSynapses
objref DistalSynapsePositions
objref ProximalSynapses
objref ProximalSynapsePositions
proc synapse() {
// //***** PP syn
DistalSynapses = new Vector(0,0)
DistalSynapses .append(0, 1, 2, 4, 7,10,12,13,15,17,19,20,21,22,23,24,27,28,29,31,32,34,35,36,37)
DistalSynapsePositions = new Vector(0,0)
DistalSynapsePositions .append(0.90913, 0.5, 0.5, 0.7412,0.69776,0.66092,0.50511,0.52929,0.61825, 0.5995,0.51459,0.58319, 0.5, 0.5, 0.5, 0.5,0.70887, 0.5, 0.5,0.66283,0.54966,0.53743, 0.5, 0.5,0.51702)
for i= 0 , 24 {
dend[DistalSynapses .x[i]] syn = new Exp2Syn(DistalSynapsePositions .x[i]) // PP syn based on Greg and Staley
syn.tau1 = 1.5 syn.tau2 = 5.5 syn.e = 0
pre_list.append(syn) // # 0
}
// //***** MC syn
ProximalSynapses = new Vector(0,0)
ProximalSynapses .append(0, 3, 4, 5,38,39,40)
ProximalSynapsePositions = new Vector(0,0)
ProximalSynapsePositions .append(0.11889, 0.5, 0.010297, 0.074091, 0.5, 0.0082819, 0.0050751)
for i= 0 , 6 {
dend[ProximalSynapses .x[i]] syn = new Exp2Syn(ProximalSynapsePositions .x[i]) // // MC syn *** Estimated
syn.tau1 = 1.5 syn.tau2 = 5.5 syn.e = 0
pre_list.append(syn) // #
}
// //***** HIPP
for i= 0 , 24 {
dend[DistalSynapses .x[i]] syn = new Exp2Syn(DistalSynapsePositions .x[i]) // HIPP
syn.tau1 = 0.5 syn.tau2 = 6 syn.e = -70
pre_list.append(syn) // # 31
}
// //***** BC syn
soma syn = new Exp2Syn(0.5) // BC syn syn based on Bartos
syn.tau1 = 0.26 syn.tau2 = 5.5 syn.e = -70
pre_list.append(syn) // # 32
// //***** Sprout
for i= 0 , 6 {
dend[ProximalSynapses .x[i]] syn = new Exp2Syn(ProximalSynapsePositions .x[i]) // // MC syn *** Estimated
syn.tau1 = 1.5 syn.tau2 = 5.5 syn.e = 0
pre_list.append(syn) // # 32
}
}
func is_art() { return 0 }
endtemplate GranuleCell
//************************************************************************************************************