/* Dentage Gyrus Granule Cell model associated with the papers:
J. Tejada, G.M. Arisi, N. Garcia-Cairasco, A.C. Roque, Morphological alterations in newly born dentate gyrus granule cells that emerge after status epilepticus contribute to make them less excitable, PLoS ONE. 7 (2012) e40726. doi:10.1371/journal.pone.0040726.
J. Tejada, N. Garcia-Cairasco, A.C. Roque, Combined role of seizure-induced dendritic morphology alterations and spine loss in newborn granule cells with mossy fiber sprouting on the hyperexcitability of a computer model of the dentate gyrus, PLoS Comput. Biol. 10 (2014) e1003601. doi:10.1371/journal.pcbi.1003601.
julian.tejada@gmail.com - 2014 */
//Defining granule cell
begintemplate GranuleCell111
// Original name on neuroMorpho.org 5-20-2011cell1-GCcontrol.CNG.swc
ndend1=43
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, 42 dend[i] all.append()
somas = new SectionList()
for i=0, 1 soma[i] somas.append()
gcldend = new SectionList()
dend[0] gcldend.append()
pdend = new SectionList()
for i=1, 5 dend[i] pdend.append()
dend[10] pdend.append()
for i=12, 13 dend[i] pdend.append()
dend[17] pdend.append()
dend[23] pdend.append()
dend[28] pdend.append()
for i=32, 34 dend[i] pdend.append()
mdend = new SectionList()
for i=6, 7 dend[i] mdend.append()
dend[9] mdend.append()
dend[14] mdend.append()
dend[16] mdend.append()
dend[18] mdend.append()
for i=20, 21 dend[i] mdend.append()
for i=24, 25 dend[i] mdend.append()
dend[29] mdend.append()
dend[31] mdend.append()
for i=36, 39 dend[i] mdend.append()
ddend = new SectionList()
dend[8] ddend.append()
dend[11] ddend.append()
dend[15] ddend.append()
dend[19] ddend.append()
dend[22] ddend.append()
for i=26, 27 dend[i] ddend.append()
dend[30] ddend.append()
dend[35] ddend.append()
for i=40, 42 dend[i] ddend.append()
}
proc gctemp() {
forsec all {
insert ccanl
catau_ccanl = 10
caiinf_ccanl = 5.e-6
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.0
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 = 5.e-6
Ra=210
}
forsec all {enat = 45 ekf = -90 eks = -90 ek=-90 elca=130 etca=130 esk=-90
el_ichan2 =-70 cao_ccanl=2 }
// proc topol() { local i
connect soma[1](0), soma(0)
connect dend(0), soma(0)
for i = 1, 7 connect dend[i](0), dend[i-1](1)
connect dend[8](0), dend[6](1)
connect dend[9](0), dend[5](1)
connect dend[10](0), dend[4](1)
connect dend[11](0), dend[10](1)
connect dend[12](0), dend[3](1)
connect dend[13](0), dend[1](1)
for i = 14, 15 connect dend[i](0), dend[i-1](1)
connect dend[16](0), dend[14](1)
connect dend[17](0), dend[13](1)
for i = 18, 19 connect dend[i](0), dend[i-1](1)
connect dend[20](0), dend[17](1)
for i = 21, 22 connect dend[i](0), dend[20](1)
connect dend[23](0), dend(1)
for i = 24, 25 connect dend[i](0), dend[23](1)
for i = 26, 27 connect dend[i](0), dend[25](1)
connect dend[28](0), dend[2](1)
for i = 29, 30 connect dend[i](0), dend[i-1](1)
connect dend[31](0), dend[29](1)
connect dend[32](0), dend[28](1)
for i = 33, 35 connect dend[i](0), dend[i-1](1)
connect dend[36](0), dend[34](1)
for i = 37, 38 connect dend[i](0), dend[i-5](1)
connect dend[39](0), dend[18](1)
for i = 40, 41 connect dend[i](0), dend[39](1)
connect dend[42](0), dend[10](1)
basic_shape()
}
proc shape3d_1() {
soma {pt3dclear()
pt3dadd(873.35, -462.71, 11.28, 17.5452)
pt3dadd(873.35, -471.48, 11.28, 17.5452)
}
soma[1] {pt3dclear()
pt3dadd(873.35, -462.71, 11.28, 17.5452)
pt3dadd(873.35, -453.94, 11.28, 17.5452)
}
dend {pt3dclear()
pt3dadd(873.35, -462.71, 11.28, 1.63)
pt3dadd(864.16, -469.2, 2.89, 1.63)
pt3dadd(863.55, -469.2, 2.89, 1.63)
pt3dadd(862.94, -469.61, 2.89, 1.63)
pt3dadd(862.43, -469.81, 2.89, 1.63)
pt3dadd(861.31, -470.12, 2.89, 1.63)
pt3dadd(860.8, -470.63, 2.89, 1.63)
pt3dadd(860.49, -470.73, 2.89, 1.63)
pt3dadd(859.37, -471.14, 2.89, 1.63)
pt3dadd(858.45, -471.55, 2.89, 1.63)
pt3dadd(858.05, -471.75, 2.89, 1.63)
pt3dadd(857.23, -472.36, 2.89, 1.73)
pt3dadd(857.23, -472.77, 2.89, 1.73)
pt3dadd(856.31, -472.97, 2.89, 1.73)
pt3dadd(855.7, -473.08, 2.89, 1.73)
}
dend[1] {pt3dclear()
pt3dadd(855.7, -473.08, 2.89, 1.73)
pt3dadd(854.38, -473.69, -5.09, 2.24)
pt3dadd(851.02, -473.69, -5.09, 2.24)
pt3dadd(850.4, -473.89, -5.09, 2.24)
pt3dadd(848.88, -474.5, -5.09, 2.24)
pt3dadd(848.47, -474.91, -5.09, 2.24)
}
dend[2] {pt3dclear()
pt3dadd(848.47, -474.91, -5.09, 2.24)
pt3dadd(848.57, -475.73, -5.09, 1.22)
pt3dadd(848.47, -476.04, -5.09, 1.22)
pt3dadd(847.65, -476.55, -5.09, 1.22)
pt3dadd(847.35, -477.06, -5.09, 1.22)
pt3dadd(846.84, -477.77, -5.09, 1.22)
pt3dadd(846.33, -478.48, -5.09, 1.22)
pt3dadd(845.72, -479.1, -5.09, 1.22)
pt3dadd(845.31, -479.3, -5.09, 1.22)
pt3dadd(845.11, -479.71, -5.09, 1.22)
pt3dadd(844.29, -480.63, -5.09, 1.22)
pt3dadd(843.98, -480.93, -5.09, 1.22)
}
dend[3] {pt3dclear()
pt3dadd(843.98, -480.93, -5.09, 1.22)
pt3dadd(843.98, -481.14, -5.09, 1.22)
pt3dadd(843.88, -481.65, -5.09, 1.22)
pt3dadd(843.78, -481.85, -5.09, 1.22)
pt3dadd(843.47, -482.26, -5.09, 1.22)
pt3dadd(843.07, -482.77, -5.09, 1.22)
pt3dadd(842.46, -483.07, -5.09, 1.22)
pt3dadd(842.35, -483.79, -5.09, 1.22)
pt3dadd(841.95, -484.81, -5.09, 1.22)
pt3dadd(841.74, -484.91, -5.09, 1.22)
pt3dadd(841.74, -485.83, -5.09, 1.22)
pt3dadd(841.54, -486.03, -5.09, 1.22)
pt3dadd(841.54, -486.14, -5.09, 1.22)
}
dend[4] {pt3dclear()
pt3dadd(841.54, -486.14, -5.09, 1.22)
pt3dadd(841.84, -486.44, -5.09, 0.71)
pt3dadd(841.34, -486.95, -5.09, 0.71)
pt3dadd(840.93, -488.69, -5.09, 0.71)
pt3dadd(840.72, -489.6, -5.09, 0.71)
pt3dadd(840.42, -489.91, -5.09, 0.71)
pt3dadd(839.91, -491.13, -5.09, 0.71)
pt3dadd(839.6, -491.54, -5.09, 0.71)
pt3dadd(839.3, -491.85, -5.09, 0.71)
pt3dadd(838.79, -492.67, -5.09, 0.71)
pt3dadd(838.07, -493.79, -5.09, 0.71)
pt3dadd(837.67, -494.3, -5.09, 0.71)
pt3dadd(837.56, -494.6, -5.09, 0.71)
pt3dadd(836.34, -495.01, -5.09, 0.71)
}
dend[5] {pt3dclear()
pt3dadd(836.34, -495.01, -5.09, 0.71)
pt3dadd(836.65, -495.52, -5.09, 0.61)
pt3dadd(836.34, -495.62, -5.09, 0.61)
pt3dadd(835.83, -496.03, -5.09, 0.61)
pt3dadd(835.42, -496.44, -5.09, 0.61)
pt3dadd(834.1, -497.46, -5.09, 0.61)
pt3dadd(833.39, -498.17, -5.09, 0.61)
pt3dadd(832.88, -498.58, -5.09, 0.61)
pt3dadd(832.27, -498.89, -5.09, 0.61)
pt3dadd(831.14, -499.7, -5.09, 0.61)
pt3dadd(830.74, -499.91, -5.09, 0.61)
pt3dadd(830.23, -500.42, -5.09, 0.61)
pt3dadd(829.72, -500.93, -5.09, 0.61)
}
dend[6] {pt3dclear()
pt3dadd(829.72, -500.93, -5.09, 0.61)
pt3dadd(829.41, -501.64, -5.09, 0.71)
pt3dadd(829.41, -503.79, -5.09, 0.71)
pt3dadd(829.31, -504.09, -5.09, 0.71)
pt3dadd(829.21, -505.11, -5.09, 0.71)
pt3dadd(829.11, -505.21, -5.09, 0.71)
pt3dadd(828.9, -506.13, -5.09, 0.71)
pt3dadd(828.8, -506.44, -5.09, 0.71)
pt3dadd(828.19, -508.27, -5.09, 0.71)
pt3dadd(827.99, -508.79, -5.09, 0.71)
pt3dadd(827.78, -508.89, -5.09, 0.71)
pt3dadd(827.17, -510.11, -5.09, 0.71)
pt3dadd(825.95, -512.36, -5.09, 0.71)
pt3dadd(825.85, -512.46, -5.09, 0.71)
pt3dadd(825.03, -513.89, -13.09, 0.71)
pt3dadd(825.13, -514.09, -13.09, 0.71)
pt3dadd(825.03, -514.79, -13.09, 0.71)
pt3dadd(824.32, -515.92, -13.09, 0.71)
pt3dadd(823.6, -516.64, -13.09, 0.71)
pt3dadd(823.5, -516.95, -13.09, 0.71)
pt3dadd(823.09, -517.36, -13.09, 0.71)
pt3dadd(822.08, -518.99, -13.09, 0.71)
pt3dadd(821.36, -519.79, -13.09, 0.71)
pt3dadd(821.06, -520.92, -13.09, 0.71)
pt3dadd(820.65, -521.33, -13.09, 0.71)
pt3dadd(820.24, -522.15, -13.09, 0.71)
pt3dadd(819.63, -523.07, -13.09, 0.71)
pt3dadd(819.32, -524.6, -13.09, 0.71)
pt3dadd(819.22, -524.9, -13.09, 0.71)
pt3dadd(819.32, -526.33, -21.08, 0.51)
pt3dadd(819.02, -526.84, -21.08, 0.51)
pt3dadd(818.92, -527.46, -21.08, 0.51)
pt3dadd(818.41, -528.99, -21.08, 0.51)
pt3dadd(818.41, -529.29, -21.08, 0.51)
pt3dadd(818.2, -529.6, -21.08, 0.51)
pt3dadd(817.8, -531.54, -21.08, 0.51)
pt3dadd(817.29, -533.16, -21.08, 0.51)
pt3dadd(816.78, -533.67, -21.08, 0.51)
pt3dadd(815.86, -534.29, -21.08, 0.51)
pt3dadd(815.45, -534.9, -21.08, 0.51)
pt3dadd(814.64, -535.82, -21.08, 0.51)
pt3dadd(814.53, -536.03, -21.08, 0.51)
pt3dadd(813.92, -537.45, -21.08, 0.51)
pt3dadd(813.01, -539.19, -21.08, 0.51)
pt3dadd(812.19, -541.64, -21.08, 0.51)
pt3dadd(812.09, -542.45, -21.08, 0.51)
pt3dadd(811.99, -542.55, -21.08, 0.51)
pt3dadd(811.48, -545.91, -29.07, 0.51)
pt3dadd(811.07, -548.37, -29.07, 0.51)
pt3dadd(810.76, -549.29, -29.07, 0.51)
pt3dadd(810.26, -550.11, -29.07, 0.51)
pt3dadd(809.85, -550.62, -29.07, 0.51)
pt3dadd(809.24, -552.25, -29.07, 0.51)
pt3dadd(808.93, -554.29, -29.07, 0.51)
pt3dadd(808.42, -555.61, -29.07, 0.51)
pt3dadd(808.22, -555.82, -29.07, 0.51)
pt3dadd(806.89, -558.27, -37.06, 0.51)
pt3dadd(806.79, -558.67, -37.06, 0.51)
pt3dadd(804.34, -560.41, -37.06, 0.51)
pt3dadd(803.94, -561.12, -37.06, 0.51)
pt3dadd(803.12, -561.84, -37.06, 0.51)
pt3dadd(802.71, -562.14, -37.06, 0.51)
pt3dadd(801.8, -563.16, -37.06, 0.51)
pt3dadd(800.06, -565.51, -37.06, 0.51)
pt3dadd(799.35, -566.53, -37.06, 0.51)
pt3dadd(798.64, -568.05, -37.06, 0.51)
pt3dadd(798.23, -568.47, -37.06, 0.51)
pt3dadd(797.52, -570.61, -37.06, 0.51)
pt3dadd(797.11, -571.53, -37.06, 0.51)
pt3dadd(796.29, -573.57, -37.06, 0.51)
pt3dadd(796.19, -574.39, -37.06, 0.51)
pt3dadd(795.89, -574.69, -37.06, 0.51)
pt3dadd(795.07, -577.75, -37.06, 0.51)
pt3dadd(794.77, -578.57, -37.06, 0.51)
pt3dadd(794.66, -578.66, -37.06, 0.51)
}
dend[7] {pt3dclear()
pt3dadd(794.66, -578.66, -37.06, 0.51)
pt3dadd(793.75, -579.39, -37.06, 0.61)
pt3dadd(792.42, -579.49, -37.06, 0.61)
pt3dadd(791.71, -579.9, -37.06, 0.61)
pt3dadd(791.4, -581.32, -37.06, 0.61)
pt3dadd(791.4, -581.73, -37.06, 0.61)
pt3dadd(790.59, -583.05, -37.06, 0.61)
pt3dadd(790.28, -584.28, -37.06, 0.61)
pt3dadd(790.28, -584.69, -37.06, 0.61)
pt3dadd(790.08, -585.29, -37.06, 0.61)
pt3dadd(789.57, -585.8, -37.06, 0.61)
pt3dadd(789.06, -587.24, -37.06, 0.61)
pt3dadd(787.53, -588.87, -37.06, 0.51)
pt3dadd(787.12, -589.08, -37.06, 0.51)
pt3dadd(786.21, -589.89, -37.06, 0.51)
pt3dadd(785.7, -591.22, -37.06, 0.51)
pt3dadd(785.49, -591.83, -37.06, 0.51)
pt3dadd(785.19, -592.04, -37.06, 0.51)
pt3dadd(784.68, -593.57, -37.06, 0.51)
pt3dadd(784.47, -593.77, -37.06, 0.51)
pt3dadd(784.07, -594.89, -37.06, 0.51)
pt3dadd(783.76, -595.29, -37.06, 0.51)
pt3dadd(783.56, -595.61, -37.06, 0.51)
pt3dadd(783.05, -596.53, -37.06, 0.51)
pt3dadd(782.54, -596.92, -37.06, 0.51)
pt3dadd(779.48, -598.77, -37.06, 0.41)
pt3dadd(779.38, -599.28, -37.06, 0.41)
pt3dadd(778.67, -600, -37.06, 0.41)
pt3dadd(778.46, -600.4, -37.06, 0.41)
pt3dadd(777.75, -601.12, -37.06, 0.41)
pt3dadd(776.63, -602.14, -37.06, 0.41)
pt3dadd(776.02, -603.16, -37.06, 0.41)
pt3dadd(775.61, -603.57, -37.06, 0.41)
pt3dadd(775.2, -603.77, -37.06, 0.41)
pt3dadd(774.39, -603.97, -37.06, 0.41)
pt3dadd(774.39, -604.89, -37.06, 0.41)
pt3dadd(774.18, -605.5, -37.06, 0.41)
pt3dadd(773.57, -606.63, -37.06, 0.41)
pt3dadd(773.47, -607.34, -37.06, 0.41)
pt3dadd(773.26, -608.26, -37.06, 0.41)
pt3dadd(773.06, -608.36, -37.06, 0.41)
pt3dadd(772.96, -609.48, -37.06, 0.41)
pt3dadd(772.86, -611.63, -37.06, 0.41)
pt3dadd(772.65, -612.34, -37.06, 0.41)
pt3dadd(771.13, -613.26, -37.06, 0.41)
pt3dadd(770.72, -613.66, -37.06, 0.41)
pt3dadd(770.31, -614.17, -37.06, 0.41)
pt3dadd(769.39, -615.09, -37.06, 0.41)
}
}
proc shape3d_2() {
dend[7] { pt3dadd(769.19, -615.8, -37.06, 0.41)
pt3dadd(769.19, -615.91, -37.06, 0.41)
pt3dadd(766.54, -620.5, -45.05, 0.41)
pt3dadd(766.44, -621.32, -45.05, 0.41)
pt3dadd(766.03, -621.83, -45.05, 0.41)
pt3dadd(764.3, -622.54, -45.05, 0.41)
pt3dadd(763.58, -622.95, -45.05, 0.41)
pt3dadd(762.16, -624.38, -45.05, 0.41)
pt3dadd(761.75, -625.8, -45.05, 0.41)
pt3dadd(761.24, -626.52, -45.05, 0.41)
pt3dadd(760.02, -628.77, -45.05, 0.41)
pt3dadd(759.71, -630.09, -45.05, 0.41)
pt3dadd(759.41, -630.7, -45.05, 0.41)
pt3dadd(756.96, -632.85, -45.05, 0.41)
pt3dadd(756.66, -633.77, -45.05, 0.41)
pt3dadd(754.82, -638.36, -53.04, 0.41)
pt3dadd(754.62, -641.21, -53.04, 0.41)
pt3dadd(754.31, -641.83, -53.04, 0.41)
pt3dadd(754.01, -642.44, -53.04, 0.41)
pt3dadd(753.5, -643.15, -53.04, 0.41)
pt3dadd(753.19, -644.07, -53.04, 0.41)
pt3dadd(752.58, -645.19, -53.04, 0.41)
pt3dadd(752.27, -645.6, -53.04, 0.41)
pt3dadd(751.76, -647.13, -53.04, 0.41)
pt3dadd(751.15, -648.25, -53.04, 0.41)
pt3dadd(750.95, -649.38, -53.04, 0.41)
pt3dadd(748.2, -650.79, -53.04, 0.41)
pt3dadd(747.38, -651.72, -53.04, 0.41)
pt3dadd(747.18, -652.03, -53.04, 0.41)
pt3dadd(745.75, -653.15, -53.04, 0.41)
pt3dadd(744.83, -654.07, -53.04, 0.41)
pt3dadd(744.53, -654.67, -53.04, 0.41)
pt3dadd(744.12, -655.09, -53.04, 0.41)
pt3dadd(743.31, -656.41, -53.04, 0.41)
pt3dadd(742.8, -657.23, -53.04, 0.41)
}
dend[8] {pt3dclear()
pt3dadd(794.66, -578.66, -37.06, 0.51)
pt3dadd(794.77, -579.59, -37.06, 0.61)
pt3dadd(794.66, -582.45, -37.06, 0.61)
pt3dadd(794.36, -583.37, -37.06, 0.61)
pt3dadd(794.36, -583.88, -37.06, 0.61)
pt3dadd(794.15, -584.49, -37.06, 0.61)
pt3dadd(793.75, -586.12, -45.05, 0.61)
pt3dadd(793.44, -587.65, -45.05, 0.61)
pt3dadd(793.24, -588.47, -45.05, 0.61)
pt3dadd(793.03, -588.77, -45.05, 0.61)
pt3dadd(792.73, -589.79, -45.05, 0.61)
pt3dadd(792.52, -591.12, -45.05, 0.61)
pt3dadd(792.42, -591.32, -45.05, 0.61)
pt3dadd(792.52, -592.24, -45.05, 0.61)
pt3dadd(792.01, -592.75, -45.05, 0.61)
pt3dadd(791.61, -593.98, -45.05, 0.61)
pt3dadd(791.51, -595, -45.05, 0.61)
pt3dadd(791.3, -595.1, -45.05, 0.61)
pt3dadd(791.2, -595.8, -53.04, 0.61)
pt3dadd(790.59, -596.02, -53.04, 0.61)
pt3dadd(790.38, -596.73, -53.04, 0.61)
pt3dadd(789.67, -598.16, -53.04, 0.61)
pt3dadd(789.47, -599.17, -53.04, 0.61)
pt3dadd(788.55, -600.61, -53.04, 0.61)
pt3dadd(788.14, -601.63, -53.04, 0.61)
pt3dadd(787.84, -601.92, -53.04, 0.61)
pt3dadd(787.63, -602.34, -53.04, 0.61)
pt3dadd(787.53, -602.54, -53.04, 0.61)
pt3dadd(786.51, -604.38, -61.03, 0.61)
pt3dadd(786.21, -604.59, -61.03, 0.61)
pt3dadd(785.59, -605.71, -61.03, 0.61)
pt3dadd(785.49, -606.63, -61.03, 0.61)
pt3dadd(785.09, -607.95, -61.03, 0.61)
pt3dadd(784.88, -608.05, -61.03, 0.61)
pt3dadd(784.68, -609.17, -61.03, 0.61)
pt3dadd(784.58, -609.38, -61.03, 0.61)
pt3dadd(782.84, -612.14, -61.03, 0.41)
pt3dadd(782.74, -612.65, -61.03, 0.41)
pt3dadd(781.93, -613.04, -61.03, 0.41)
pt3dadd(781.32, -614.17, -61.03, 0.41)
pt3dadd(780.81, -614.69, -61.03, 0.41)
pt3dadd(778.87, -617.24, -69.02, 0.41)
pt3dadd(778.56, -618.16, -69.02, 0.41)
pt3dadd(778.05, -618.77, -69.02, 0.41)
pt3dadd(777.44, -619.89, -69.02, 0.41)
pt3dadd(777.14, -621.62, -69.02, 0.41)
pt3dadd(777.04, -621.62, -69.02, 0.41)
pt3dadd(775.1, -626.01, -77.01, 0.41)
pt3dadd(774.9, -626.41, -77.01, 0.41)
pt3dadd(773.98, -627.03, -77.01, 0.41)
pt3dadd(773.37, -628.66, -77.01, 0.41)
pt3dadd(773.06, -629.16, -77.01, 0.41)
pt3dadd(772.35, -630.5, -77.01, 0.41)
pt3dadd(772.14, -631.21, -77.01, 0.41)
pt3dadd(771.94, -631.52, -77.01, 0.41)
pt3dadd(770.51, -635.91, -85, 0.41)
pt3dadd(770, -636.92, -85, 0.41)
pt3dadd(769.49, -638.36, -85, 0.41)
pt3dadd(769.09, -640.5, -85, 0.41)
pt3dadd(768.99, -640.8, -85, 0.41)
pt3dadd(768.88, -642.23, -85, 0.41)
pt3dadd(768.78, -643.25, -85, 0.41)
pt3dadd(768.68, -643.46, -85, 0.41)
pt3dadd(768.58, -644.67, -85, 0.41)
pt3dadd(768.37, -645.29, -85, 0.41)
pt3dadd(767.97, -645.91, -85, 0.41)
pt3dadd(766.74, -648.04, -92.99, 0.41)
pt3dadd(766.64, -649.38, -92.99, 0.41)
pt3dadd(766.23, -651.72, -92.99, 0.41)
pt3dadd(766.23, -652.44, -92.99, 0.41)
pt3dadd(765.32, -653.97, -100.98, 0.41)
pt3dadd(765.11, -655.09, -100.98, 0.41)
pt3dadd(763.99, -655.29, -108.97, 0.41)
pt3dadd(763.89, -655.29, -108.97, 0.41)
}
dend[9] {pt3dclear()
pt3dadd(829.72, -500.93, -5.09, 0.61)
pt3dadd(829.51, -501.64, -5.09, 0.51)
pt3dadd(829.01, -501.85, -5.09, 0.51)
pt3dadd(828.7, -501.95, -5.09, 0.51)
pt3dadd(828.19, -502.66, -5.09, 0.51)
pt3dadd(828.09, -502.87, -5.09, 0.51)
pt3dadd(826.76, -504.19, -5.09, 0.51)
pt3dadd(825.44, -505.32, -5.09, 0.51)
pt3dadd(824.73, -506.03, -5.09, 0.51)
pt3dadd(824.52, -506.54, -5.09, 0.51)
pt3dadd(824.32, -506.74, -5.09, 0.51)
pt3dadd(823.6, -508.27, -5.09, 0.51)
pt3dadd(822.08, -509.3, -5.09, 0.51)
pt3dadd(821.67, -510.42, -5.09, 0.51)
pt3dadd(821.06, -511.64, -5.09, 0.51)
pt3dadd(820.34, -513.07, -5.09, 0.51)
pt3dadd(820.34, -513.99, -5.09, 0.51)
pt3dadd(820.14, -514.29, -5.09, 0.51)
pt3dadd(819.63, -514.91, -5.09, 0.51)
pt3dadd(819.12, -515.72, -13.09, 0.51)
pt3dadd(818.92, -516.44, -13.09, 0.51)
pt3dadd(818.61, -517.04, -13.09, 0.51)
pt3dadd(818, -519.29, -13.09, 0.51)
pt3dadd(817.69, -519.79, -13.09, 0.51)
pt3dadd(817.08, -520.41, -13.09, 0.51)
pt3dadd(816.78, -521.13, -13.09, 0.51)
pt3dadd(816.47, -521.33, -13.09, 0.51)
pt3dadd(816.27, -521.95, -13.09, 0.51)
pt3dadd(815.04, -524.19, -13.09, 0.51)
pt3dadd(813.92, -525.01, -13.09, 0.51)
pt3dadd(813.82, -525.82, -13.09, 0.51)
pt3dadd(813.41, -526.64, -13.09, 0.51)
pt3dadd(812.5, -527.76, -13.09, 0.51)
pt3dadd(812.09, -529.09, -13.09, 0.51)
pt3dadd(811.58, -530.62, -13.09, 0.51)
pt3dadd(811.27, -531.33, -13.09, 0.51)
pt3dadd(810.97, -531.64, -13.09, 0.51)
pt3dadd(810.76, -532.04, -13.09, 0.51)
pt3dadd(810.56, -532.25, -13.09, 0.51)
pt3dadd(810.05, -532.76, -13.09, 0.51)
pt3dadd(809.13, -533.27, -13.09, 0.51)
pt3dadd(808.73, -533.67, -13.09, 0.51)
pt3dadd(807.91, -535.3, -13.09, 0.51)
pt3dadd(807.5, -536.03, -13.09, 0.51)
pt3dadd(806.99, -537.66, -13.09, 0.51)
pt3dadd(805.87, -538.58, -13.09, 0.51)
pt3dadd(805.16, -541.13, -13.09, 0.51)
pt3dadd(804.96, -542.04, -13.09, 0.51)
pt3dadd(804.24, -543.67, -13.09, 0.51)
pt3dadd(803.33, -544.7, -13.09, 0.51)
pt3dadd(802.92, -546.42, -13.09, 0.51)
pt3dadd(802.82, -546.74, -13.09, 0.51)
pt3dadd(802.61, -547.45, -13.09, 0.51)
pt3dadd(802.41, -549.29, -13.09, 0.51)
pt3dadd(802.21, -550.91, -13.09, 0.51)
pt3dadd(801.7, -552.04, -13.09, 0.51)
pt3dadd(801.39, -552.45, -13.09, 0.51)
pt3dadd(800.98, -553.37, -13.09, 0.51)
pt3dadd(800.07, -554.08, -13.09, 0.51)
pt3dadd(799.76, -554.9, -13.09, 0.51)
pt3dadd(799.05, -555.61, -13.09, 0.51)
pt3dadd(798.43, -556.42, -13.09, 0.51)
pt3dadd(798.23, -556.84, -13.09, 0.51)
pt3dadd(797.72, -557.65, -13.09, 0.51)
pt3dadd(797.52, -558.05, -13.09, 0.51)
pt3dadd(796.09, -559.39, -13.09, 0.41)
pt3dadd(795.68, -559.59, -13.09, 0.41)
pt3dadd(795.17, -560.1, -13.09, 0.41)
pt3dadd(794.66, -561.42, -13.09, 0.41)
pt3dadd(794.66, -562.35, -13.09, 0.41)
pt3dadd(794.46, -562.54, -13.09, 0.41)
pt3dadd(794.26, -562.86, -13.09, 0.41)
pt3dadd(793.65, -563.47, -13.09, 0.41)
pt3dadd(792.83, -564.29, -13.09, 0.41)
pt3dadd(792.52, -565, -13.09, 0.41)
pt3dadd(792.12, -565.41, -13.09, 0.41)
pt3dadd(791.51, -566.22, -13.09, 0.41)
pt3dadd(791.4, -566.94, -13.09, 0.41)
pt3dadd(791.3, -567.25, -13.09, 0.41)
pt3dadd(791.1, -567.65, -13.09, 0.41)
pt3dadd(791, -567.76, -13.09, 0.41)
pt3dadd(789.67, -569.08, -13.09, 0.41)
pt3dadd(789.47, -569.59, -13.09, 0.41)
pt3dadd(788.96, -570, -13.09, 0.41)
pt3dadd(788.14, -570.91, -13.09, 0.41)
pt3dadd(787.94, -571.12, -13.09, 0.41)
pt3dadd(787.63, -571.33, -13.09, 0.41)
pt3dadd(787.43, -571.73, -13.09, 0.41)
pt3dadd(786.31, -572.45, -13.09, 0.41)
pt3dadd(785.9, -573.05, -13.09, 0.41)
pt3dadd(785.7, -573.37, -13.09, 0.41)
}
}
proc shape3d_3() {
dend[9] { pt3dadd(784.98, -575.51, -13.09, 0.41)
pt3dadd(784.68, -577.45, -13.09, 0.41)
pt3dadd(784.07, -578.05, -13.09, 0.41)
pt3dadd(783.05, -578.57, -13.09, 0.41)
pt3dadd(782.33, -579.39, -13.09, 0.41)
pt3dadd(782.03, -579.69, -13.09, 0.41)
pt3dadd(781.93, -580, -13.09, 0.41)
pt3dadd(781.72, -580.1, -13.09, 0.41)
pt3dadd(779.38, -582.45, -13.09, 0.41)
pt3dadd(779.38, -582.96, -13.09, 0.41)
pt3dadd(779.18, -583.47, -13.09, 0.41)
pt3dadd(777.75, -587.75, -13.09, 0.41)
pt3dadd(775.71, -589.79, -13.09, 0.41)
pt3dadd(772.96, -592.45, -13.09, 0.41)
pt3dadd(772.76, -592.85, -13.09, 0.41)
pt3dadd(772.45, -593.16, -13.09, 0.41)
pt3dadd(771.94, -594.69, -13.09, 0.41)
pt3dadd(771.53, -595.1, -13.09, 0.41)
pt3dadd(769.7, -597.14, -13.09, 0.41)
pt3dadd(769.39, -597.24, -13.09, 0.41)
pt3dadd(768.68, -598.05, -13.09, 0.41)
pt3dadd(768.07, -599.69, -13.09, 0.41)
pt3dadd(767.76, -600.2, -13.09, 0.41)
pt3dadd(767.15, -600.91, -13.09, 0.41)
pt3dadd(766.23, -604.38, -13.09, 0.41)
pt3dadd(765.93, -605.61, -13.09, 0.41)
pt3dadd(765.42, -606.83, -13.09, 0.41)
pt3dadd(765.21, -607.14, -13.09, 0.41)
pt3dadd(764.81, -608.26, -13.09, 0.41)
pt3dadd(764.2, -609.38, -13.09, 0.41)
pt3dadd(763.69, -609.89, -13.09, 0.41)
pt3dadd(763.38, -610.1, -13.09, 0.41)
pt3dadd(762.26, -613.87, -13.09, 0.41)
pt3dadd(762.16, -614.58, -13.09, 0.41)
pt3dadd(761.44, -615.29, -13.09, 0.41)
pt3dadd(760.32, -617.44, -13.09, 0.41)
pt3dadd(759.81, -619.07, -13.09, 0.41)
pt3dadd(759.2, -619.48, -13.09, 0.41)
pt3dadd(758.49, -621.01, -13.09, 0.41)
pt3dadd(758.18, -621.62, -13.09, 0.41)
pt3dadd(757.88, -622.54, -13.09, 0.41)
pt3dadd(757.67, -622.85, -13.09, 0.41)
pt3dadd(756.86, -624.07, -13.09, 0.41)
pt3dadd(756.35, -624.79, -13.09, 0.41)
pt3dadd(755.64, -625.71, -13.09, 0.41)
pt3dadd(754.52, -626.73, -13.09, 0.41)
pt3dadd(752.68, -627.34, -13.09, 0.41)
pt3dadd(751.56, -628.46, -13.09, 0.41)
pt3dadd(751.25, -628.97, -13.09, 0.41)
pt3dadd(750.13, -630.09, -13.09, 0.41)
pt3dadd(749.42, -631.21, -13.09, 0.41)
pt3dadd(749.11, -631.72, -13.09, 0.41)
pt3dadd(748.71, -631.92, -13.09, 0.41)
pt3dadd(748.3, -632.13, -13.09, 0.41)
pt3dadd(746.67, -632.64, -13.09, 0.41)
pt3dadd(746.16, -632.85, -13.09, 0.41)
pt3dadd(745.96, -633.04, -13.09, 0.41)
pt3dadd(744.73, -633.66, -13.09, 0.41)
pt3dadd(743.82, -634.07, -13.09, 0.41)
pt3dadd(743.51, -634.38, -13.09, 0.41)
pt3dadd(742.19, -634.89, -13.09, 0.41)
pt3dadd(741.47, -635.09, -13.09, 0.41)
pt3dadd(741.17, -635.29, -13.09, 0.41)
pt3dadd(740.45, -635.7, -13.09, 0.41)
pt3dadd(739.64, -636.62, -13.09, 0.41)
pt3dadd(739.33, -638.55, -13.09, 0.41)
pt3dadd(738.92, -639.58, -13.09, 0.41)
pt3dadd(738.52, -641.62, -13.09, 0.41)
pt3dadd(738.31, -641.92, -13.09, 0.41)
pt3dadd(738.01, -643.66, -13.09, 0.41)
pt3dadd(737.8, -645.09, -13.09, 0.41)
pt3dadd(736.89, -646.01, -13.09, 0.41)
pt3dadd(734.85, -646.92, -13.09, 0.41)
pt3dadd(733.42, -647.95, -13.09, 0.41)
pt3dadd(733.12, -648.04, -13.09, 0.41)
pt3dadd(731.89, -649.27, -13.09, 0.41)
pt3dadd(731.59, -649.38, -13.09, 0.41)
pt3dadd(730.47, -650.5, -13.09, 0.41)
pt3dadd(729.65, -651.62, -13.09, 0.41)
pt3dadd(728.53, -652.84, -13.09, 0.41)
pt3dadd(727.51, -653.86, -13.09, 0.41)
pt3dadd(726.8, -654.67, -13.09, 0.41)
pt3dadd(726.39, -655.29, -13.09, 0.41)
pt3dadd(725.47, -656.31, -13.09, 0.41)
pt3dadd(725.47, -656.41, -13.09, 0.41)
}
dend[10] {pt3dclear()
pt3dadd(836.34, -495.01, -5.09, 0.71)
pt3dadd(836.44, -495.32, -5.09, 0.51)
pt3dadd(836.24, -495.22, -5.09, 0.51)
pt3dadd(834.81, -495.42, -5.09, 0.51)
pt3dadd(833.39, -496.24, -5.09, 0.51)
}
dend[11] {pt3dclear()
pt3dadd(833.39, -496.24, -5.09, 0.51)
pt3dadd(831.65, -496.85, -5.09, 0.51)
pt3dadd(831.14, -497.46, -5.09, 0.51)
pt3dadd(830.94, -497.66, -5.09, 0.51)
pt3dadd(829.41, -497.87, -5.09, 0.51)
pt3dadd(829, -498.07, -5.09, 0.51)
pt3dadd(828.5, -498.17, -5.09, 0.51)
pt3dadd(827.68, -498.28, -5.09, 0.51)
pt3dadd(826.15, -498.89, -5.09, 0.51)
pt3dadd(823.5, -499.7, -5.09, 0.51)
pt3dadd(820.95, -500.42, -5.09, 0.51)
pt3dadd(819.22, -500.83, -5.09, 0.51)
pt3dadd(819.22, -500.93, -5.09, 0.51)
pt3dadd(817.39, -502.26, -13.09, 0.51)
pt3dadd(816.27, -502.36, -13.09, 0.51)
pt3dadd(815.04, -502.77, -13.09, 0.51)
pt3dadd(814.74, -502.97, -13.09, 0.51)
pt3dadd(813.62, -503.48, -13.09, 0.51)
pt3dadd(812.6, -503.89, -13.09, 0.51)
pt3dadd(811.07, -504.3, -13.09, 0.51)
pt3dadd(806.48, -506.23, -13.09, 0.41)
pt3dadd(805.98, -506.34, -13.09, 0.41)
pt3dadd(805.57, -506.74, -13.09, 0.41)
pt3dadd(804.85, -507.05, -13.09, 0.41)
pt3dadd(802.92, -507.46, -13.09, 0.41)
pt3dadd(802.51, -507.97, -13.09, 0.41)
pt3dadd(802.41, -508.68, -13.09, 0.41)
pt3dadd(801.49, -509.4, -13.09, 0.41)
pt3dadd(800.47, -509.91, -13.09, 0.41)
pt3dadd(799.56, -510.72, -13.09, 0.41)
pt3dadd(799.45, -510.93, -13.09, 0.41)
pt3dadd(798.74, -511.44, -13.09, 0.41)
pt3dadd(798.33, -511.74, -13.09, 0.41)
pt3dadd(798.03, -512.36, -13.09, 0.41)
pt3dadd(797.82, -512.76, -13.09, 0.41)
pt3dadd(797.52, -513.27, -13.09, 0.41)
pt3dadd(793.85, -514.5, -13.09, 0.31)
pt3dadd(793.44, -514.6, -13.09, 0.31)
pt3dadd(791.1, -515.01, -13.09, 0.31)
pt3dadd(790.08, -515.11, -13.09, 0.31)
pt3dadd(789.77, -515.21, -13.09, 0.31)
pt3dadd(789.57, -515.41, -13.09, 0.31)
pt3dadd(788.65, -515.92, -13.09, 0.31)
pt3dadd(788.04, -516.13, -13.09, 0.31)
pt3dadd(786.51, -517.15, -13.09, 0.31)
pt3dadd(785.8, -517.97, -13.09, 0.31)
pt3dadd(784.88, -518.58, -13.09, 0.31)
pt3dadd(783.46, -519.29, -13.09, 0.31)
pt3dadd(782.74, -520.21, -13.09, 0.31)
pt3dadd(782.64, -520.41, -13.09, 0.31)
pt3dadd(780.4, -520.62, -13.09, 0.31)
pt3dadd(779.99, -520.62, -13.09, 0.31)
pt3dadd(779.68, -520.72, -13.09, 0.31)
pt3dadd(777.95, -521.23, -13.09, 0.31)
pt3dadd(777.85, -521.44, -13.09, 0.31)
pt3dadd(775.81, -521.95, -13.09, 0.41)
pt3dadd(774.49, -522.35, -13.09, 0.41)
pt3dadd(774.18, -522.55, -13.09, 0.41)
pt3dadd(773.27, -522.97, -13.09, 0.41)
pt3dadd(771.33, -523.58, -13.09, 0.41)
pt3dadd(770.11, -523.88, -13.09, 0.41)
pt3dadd(769.49, -524.19, -13.09, 0.41)
pt3dadd(768.48, -524.6, -13.09, 0.41)
pt3dadd(768.17, -524.9, -13.09, 0.41)
pt3dadd(767.25, -525.21, -13.09, 0.41)
pt3dadd(764.81, -525.72, -13.09, 0.41)
pt3dadd(763.38, -526.13, -13.09, 0.41)
pt3dadd(763.18, -526.33, -13.09, 0.41)
pt3dadd(762.26, -526.44, -13.09, 0.41)
pt3dadd(761.24, -526.54, -13.09, 0.41)
pt3dadd(758.49, -527.46, -13.09, 0.41)
pt3dadd(758.08, -527.86, -13.09, 0.41)
pt3dadd(755.84, -528.67, -13.09, 0.41)
pt3dadd(755.43, -528.99, -13.09, 0.41)
pt3dadd(752.68, -530.11, -13.09, 0.41)
pt3dadd(751.97, -530.3, -13.09, 0.41)
pt3dadd(751.66, -530.52, -13.09, 0.41)
pt3dadd(750.85, -530.62, -13.09, 0.41)
pt3dadd(750.54, -530.91, -13.09, 0.41)
pt3dadd(748.81, -531.54, -13.09, 0.41)
pt3dadd(747.28, -531.84, -13.09, 0.41)
pt3dadd(746.97, -531.94, -13.09, 0.41)
pt3dadd(745.75, -532.35, -13.09, 0.41)
pt3dadd(744.33, -533.16, -13.09, 0.41)
pt3dadd(743.82, -533.58, -13.09, 0.41)
pt3dadd(742.29, -534.19, -13.09, 0.41)
pt3dadd(742.08, -534.29, -13.09, 0.41)
pt3dadd(741.98, -534.6, -13.09, 0.41)
pt3dadd(741.17, -535.01, -13.09, 0.41)
pt3dadd(740.45, -535.41, -13.09, 0.41)
pt3dadd(735.66, -537.15, -21.08, 0.41)
pt3dadd(734.03, -537.45, -21.08, 0.41)
pt3dadd(733.52, -537.96, -21.08, 0.41)
pt3dadd(731.89, -538.67, -21.08, 0.41)
pt3dadd(731.69, -538.78, -21.08, 0.41)
pt3dadd(731.28, -539.09, -21.08, 0.41)
pt3dadd(730.57, -539.29, -21.08, 0.41)
pt3dadd(729.96, -539.9, -21.08, 0.41)
pt3dadd(728.22, -540.41, -21.08, 0.41)
pt3dadd(726.29, -540.72, -21.08, 0.41)
pt3dadd(723.84, -541.84, -21.08, 0.41)
pt3dadd(723.74, -542.04, -21.08, 0.41)
pt3dadd(721.8, -543.47, -21.08, 0.41)
pt3dadd(720.99, -543.88, -21.08, 0.41)
pt3dadd(719.36, -544.09, -21.08, 0.41)
pt3dadd(719.16, -544.29, -21.08, 0.41)
pt3dadd(718.03, -544.49, -21.08, 0.41)
pt3dadd(717.12, -544.9, -21.08, 0.41)
pt3dadd(716.51, -545.82, -21.08, 0.41)
pt3dadd(715.08, -546.42, -21.08, 0.41)
}
}
proc shape3d_4() {
dend[11] { pt3dadd(713.55, -547.45, -21.08, 0.41)
pt3dadd(713.04, -547.96, -21.08, 0.41)
pt3dadd(711.31, -548.98, -21.08, 0.41)
pt3dadd(710.6, -549.19, -21.08, 0.41)
pt3dadd(710.39, -549.39, -21.08, 0.41)
pt3dadd(707.44, -550.41, -21.08, 0.41)
pt3dadd(705.7, -551.33, -21.08, 0.41)
pt3dadd(703.16, -552.04, -29.07, 0.41)
pt3dadd(701.63, -552.66, -29.07, 0.41)
pt3dadd(700.3, -553.05, -29.07, 0.41)
pt3dadd(698.06, -553.27, -29.07, 0.41)
pt3dadd(694.8, -553.78, -29.07, 0.41)
pt3dadd(693.99, -554.08, -29.07, 0.41)
pt3dadd(691.44, -554.19, -29.07, 0.41)
pt3dadd(689.2, -554.7, -29.07, 0.41)
pt3dadd(688.48, -554.9, -29.07, 0.41)
pt3dadd(687.77, -555.21, -29.07, 0.41)
pt3dadd(681.55, -557.35, -37.06, 0.41)
pt3dadd(680.84, -557.35, -37.06, 0.41)
pt3dadd(680.54, -557.45, -37.06, 0.41)
pt3dadd(679.01, -557.86, -37.06, 0.41)
pt3dadd(676.66, -558.05, -37.06, 0.41)
pt3dadd(674.62, -558.27, -37.06, 0.41)
pt3dadd(673.1, -558.88, -37.06, 0.41)
pt3dadd(672.08, -559.08, -37.06, 0.41)
pt3dadd(671.57, -559.29, -37.06, 0.41)
pt3dadd(667.59, -559.59, -37.06, 0.41)
pt3dadd(664.43, -559.7, -37.06, 0.41)
pt3dadd(664.33, -559.79, -37.06, 0.41)
pt3dadd(661.28, -560.51, -45.05, 0.41)
pt3dadd(660.56, -560.72, -45.05, 0.41)
pt3dadd(659.75, -561.12, -45.05, 0.41)
pt3dadd(658.83, -561.42, -45.05, 0.41)
pt3dadd(655.67, -561.63, -45.05, 0.41)
pt3dadd(653.63, -561.94, -45.05, 0.41)
pt3dadd(653.53, -561.94, -45.05, 0.41)
pt3dadd(651.7, -563.37, -53.04, 0.41)
pt3dadd(649.86, -564.17, -53.04, 0.41)
pt3dadd(648.23, -564.39, -53.04, 0.41)
pt3dadd(646.91, -564.9, -53.04, 0.41)
pt3dadd(643.14, -565.2, -53.04, 0.41)
pt3dadd(641.2, -565.51, -53.04, 0.41)
pt3dadd(640.9, -565.61, -53.04, 0.41)
pt3dadd(637.53, -566.33, -61.03, 0.41)
pt3dadd(635.09, -566.23, -61.03, 0.41)
pt3dadd(633.97, -566.02, -61.03, 0.41)
pt3dadd(633.35, -565.51, -61.03, 0.41)
}
dend[12] {pt3dclear()
pt3dadd(841.54, -486.14, -5.09, 1.22)
pt3dadd(840.72, -486.75, -21.08, 1.22)
pt3dadd(840.32, -487.16, -21.08, 1.22)
pt3dadd(840.01, -487.36, -21.08, 1.22)
pt3dadd(839.3, -487.87, -21.08, 1.12)
pt3dadd(838.48, -488.18, -21.08, 1.12)
pt3dadd(837.16, -488.99, -21.08, 1.12)
pt3dadd(836.95, -489.3, -21.08, 1.12)
pt3dadd(836.65, -489.81, -21.08, 1.12)
pt3dadd(835.53, -490.62, -21.08, 1.12)
pt3dadd(835.22, -491.03, -21.08, 1.12)
pt3dadd(835.02, -492.15, -21.08, 1.12)
pt3dadd(834.51, -492.87, -29.07, 1.02)
pt3dadd(834.51, -493.79, -29.07, 1.02)
pt3dadd(834.41, -493.99, -29.07, 1.02)
pt3dadd(834.2, -494.2, -29.07, 1.02)
pt3dadd(833.49, -495.11, -29.07, 1.02)
pt3dadd(833.08, -496.64, -29.07, 1.02)
pt3dadd(832.88, -497.36, -29.07, 1.02)
pt3dadd(832.67, -498.07, -37.06, 0.71)
pt3dadd(832.57, -498.48, -37.06, 0.71)
pt3dadd(831.76, -499.3, -37.06, 0.71)
pt3dadd(831.04, -500.01, -37.06, 0.71)
pt3dadd(830.23, -501.54, -37.06, 0.71)
pt3dadd(829.01, -502.97, -37.06, 0.71)
pt3dadd(828.6, -503.48, -37.06, 0.71)
pt3dadd(827.48, -504.7, -45.05, 0.71)
pt3dadd(827.37, -505.52, -45.05, 0.71)
pt3dadd(826.97, -506.13, -45.05, 0.71)
pt3dadd(826.05, -506.85, -45.05, 0.71)
pt3dadd(825.03, -508.48, -45.05, 0.71)
pt3dadd(824.32, -509.4, -45.05, 0.71)
pt3dadd(823.4, -510.01, -45.05, 0.71)
pt3dadd(822.99, -510.42, -45.05, 0.71)
pt3dadd(822.79, -510.93, -45.05, 0.71)
}
dend[13] {pt3dclear()
pt3dadd(848.47, -474.91, -5.09, 2.24)
pt3dadd(847.65, -473.18, 2.89, 1.73)
pt3dadd(847.35, -473.08, 2.89, 1.73)
pt3dadd(846.33, -473.08, 2.89, 1.73)
pt3dadd(846.02, -473.18, 2.89, 1.73)
pt3dadd(845.41, -473.18, 2.89, 1.73)
pt3dadd(845.31, -473.08, 2.89, 1.73)
pt3dadd(844.8, -472.77, 2.89, 1.73)
pt3dadd(844.6, -472.67, 2.89, 1.73)
pt3dadd(844.49, -472.46, 2.89, 1.73)
pt3dadd(843.58, -472.16, 2.89, 1.73)
}
dend[14] {pt3dclear()
pt3dadd(843.58, -472.16, 2.89, 1.73)
pt3dadd(843.27, -472.77, 2.89, 0.92)
pt3dadd(842.25, -473.18, 2.89, 0.92)
pt3dadd(840.52, -473.48, 2.89, 0.92)
pt3dadd(839.91, -473.48, 2.89, 0.92)
pt3dadd(839.6, -473.59, 2.89, 0.92)
pt3dadd(839.2, -473.59, 2.89, 0.92)
pt3dadd(838.89, -473.69, 2.89, 0.92)
pt3dadd(838.58, -473.69, 2.89, 0.92)
pt3dadd(837.46, -474.1, 2.89, 0.61)
pt3dadd(836.14, -474.2, 2.89, 0.61)
pt3dadd(835.32, -474.81, 2.89, 0.61)
pt3dadd(834.71, -474.91, 2.89, 0.61)
pt3dadd(833.69, -475.22, 2.89, 0.61)
pt3dadd(832.47, -475.52, 2.89, 0.61)
pt3dadd(831.14, -475.73, 2.89, 0.61)
pt3dadd(830.84, -475.83, 2.89, 0.61)
pt3dadd(829.62, -476.14, 2.89, 0.61)
pt3dadd(829, -476.34, 2.89, 0.61)
pt3dadd(825.64, -476.95, 2.89, 0.51)
pt3dadd(824.52, -477.26, 2.89, 0.51)
pt3dadd(820.14, -478.08, 2.89, 0.51)
pt3dadd(818.92, -478.28, 2.89, 0.51)
pt3dadd(818.31, -478.89, 2.89, 0.51)
pt3dadd(816.78, -480.52, 2.89, 0.51)
pt3dadd(815.86, -481.24, 2.89, 0.51)
pt3dadd(814.94, -481.54, 2.89, 0.51)
pt3dadd(813.62, -482.36, 2.89, 0.51)
pt3dadd(812.4, -482.77, 2.89, 0.51)
pt3dadd(811.78, -483.48, 2.89, 0.51)
pt3dadd(810.56, -483.69, 2.89, 0.51)
pt3dadd(810.15, -483.79, 2.89, 0.51)
pt3dadd(809.03, -484.5, 2.89, 0.51)
pt3dadd(808.42, -484.61, 2.89, 0.51)
pt3dadd(807.1, -485.32, 2.89, 0.51)
pt3dadd(805.98, -485.73, 2.89, 0.51)
pt3dadd(804.04, -485.83, 2.89, 0.51)
pt3dadd(802, -486.14, 2.89, 0.51)
pt3dadd(799.76, -487.26, 2.89, 0.51)
pt3dadd(798.23, -487.36, 2.89, 0.51)
pt3dadd(796.8, -487.87, 2.89, 0.51)
pt3dadd(796.29, -488.18, 2.89, 0.51)
pt3dadd(795.99, -488.48, 2.89, 0.51)
pt3dadd(795.17, -488.99, 2.89, 0.51)
pt3dadd(794.87, -489.6, 2.89, 0.51)
pt3dadd(793.24, -489.91, 2.89, 0.51)
pt3dadd(792.52, -490.32, 2.89, 0.51)
pt3dadd(790.49, -491.34, 2.89, 0.51)
pt3dadd(789.87, -491.44, 2.89, 0.51)
pt3dadd(788.75, -492.56, 2.89, 0.51)
pt3dadd(786.21, -494.2, 2.89, 0.51)
pt3dadd(786, -494.4, 2.89, 0.51)
pt3dadd(784.58, -495.22, 2.89, 0.51)
pt3dadd(783.25, -495.62, 2.89, 0.51)
pt3dadd(782.44, -495.73, 2.89, 0.51)
pt3dadd(780.6, -496.13, 2.89, 0.51)
pt3dadd(780.3, -496.24, 2.89, 0.51)
pt3dadd(779.89, -496.24, 2.89, 0.51)
pt3dadd(779.79, -496.44, 2.89, 0.51)
pt3dadd(778.26, -497.05, 2.89, 0.51)
pt3dadd(777.95, -497.36, 2.89, 0.51)
pt3dadd(777.65, -497.46, 2.89, 0.51)
pt3dadd(777.34, -497.77, 2.89, 0.51)
pt3dadd(774.69, -498.79, 2.89, 0.51)
pt3dadd(772.04, -499.09, 2.89, 0.41)
pt3dadd(770.72, -499.81, 2.89, 0.41)
pt3dadd(770.21, -500.01, 2.89, 0.41)
pt3dadd(769.9, -500.21, 2.89, 0.41)
pt3dadd(768.68, -500.83, 2.89, 0.41)
pt3dadd(768.37, -500.93, 2.89, 0.41)
pt3dadd(767.76, -501.13, 2.89, 0.41)
pt3dadd(764.3, -501.34, 2.89, 0.41)
pt3dadd(761.65, -501.54, 2.89, 0.41)
pt3dadd(759.1, -501.54, 2.89, 0.41)
pt3dadd(758.69, -501.75, 2.89, 0.41)
pt3dadd(756.35, -501.64, 2.89, 0.41)
pt3dadd(754.62, -501.44, 2.89, 0.41)
pt3dadd(754.11, -501.54, 2.89, 0.41)
pt3dadd(753.6, -502.05, 2.89, 0.41)
pt3dadd(752.88, -502.36, 2.89, 0.41)
pt3dadd(752.58, -502.66, 2.89, 0.41)
pt3dadd(751.36, -503.28, 2.89, 0.41)
pt3dadd(750.85, -503.38, 2.89, 0.41)
pt3dadd(750.54, -503.68, 2.89, 0.41)
pt3dadd(748.2, -504.4, 2.89, 0.41)
pt3dadd(746.16, -504.81, 2.89, 0.41)
pt3dadd(745.34, -505.01, 2.89, 0.41)
pt3dadd(744.33, -505.62, 2.89, 0.41)
pt3dadd(743.71, -506.23, 2.89, 0.41)
pt3dadd(743.2, -506.64, 2.89, 0.41)
pt3dadd(742.08, -507.15, 2.89, 0.41)
pt3dadd(741.68, -507.66, 2.89, 0.41)
pt3dadd(740.25, -509.09, 2.89, 0.41)
pt3dadd(739.54, -509.5, 2.89, 0.41)
pt3dadd(738.52, -510.42, 2.89, 0.41)
pt3dadd(738.01, -510.72, 2.89, 0.41)
pt3dadd(736.58, -510.83, 2.89, 0.41)
pt3dadd(736.27, -510.93, 2.89, 0.41)
pt3dadd(735.15, -511.13, 2.89, 0.41)
pt3dadd(734.75, -511.13, 2.89, 0.41)
pt3dadd(734.44, -511.23, 2.89, 0.41)
pt3dadd(734.24, -511.23, 2.89, 0.41)
}
dend[15] {pt3dclear()
pt3dadd(734.24, -511.23, 2.89, 0.41)
pt3dadd(733.42, -511.95, 2.89, 0.61)
pt3dadd(731.79, -512.66, 2.89, 0.61)
pt3dadd(731.38, -513.16, 2.89, 0.61)
pt3dadd(729.65, -514.09, 2.89, 0.61)
}
}
proc shape3d_5() {
dend[15] { pt3dadd(729.65, -514.19, 2.89, 0.61)
pt3dadd(728.43, -515.01, 2.89, 0.61)
pt3dadd(728.02, -515.01, 2.89, 0.61)
pt3dadd(726.59, -516.03, 2.89, 0.61)
pt3dadd(725.47, -516.44, 2.89, 0.61)
pt3dadd(724.05, -516.74, 2.89, 0.61)
pt3dadd(723.44, -517.04, 2.89, 0.61)
pt3dadd(721.5, -517.25, 2.89, 0.61)
pt3dadd(718.95, -517.66, 2.89, 0.61)
pt3dadd(717.53, -518.38, 2.89, 0.61)
pt3dadd(716.1, -519.79, -5.09, 0.41)
pt3dadd(715.39, -519.79, -5.09, 0.41)
pt3dadd(714.67, -520.52, -5.09, 0.41)
pt3dadd(714.06, -520.82, -5.09, 0.41)
pt3dadd(713.25, -521.23, -5.09, 0.41)
pt3dadd(712.94, -521.54, -5.09, 0.41)
pt3dadd(711.21, -522.25, -5.09, 0.41)
pt3dadd(711.11, -522.55, -5.09, 0.41)
pt3dadd(709.98, -523.48, -5.09, 0.41)
pt3dadd(709.58, -523.67, -5.09, 0.41)
pt3dadd(709.27, -523.99, -5.09, 0.41)
pt3dadd(706.93, -524.29, -5.09, 0.41)
pt3dadd(705.2, -525.11, -5.09, 0.41)
pt3dadd(704.18, -525.21, -5.09, 0.41)
pt3dadd(703.77, -525.41, -5.09, 0.41)
pt3dadd(702.24, -525.82, -5.09, 0.41)
pt3dadd(701.22, -526.33, -5.09, 0.41)
pt3dadd(698.78, -527.66, -5.09, 0.41)
pt3dadd(697.86, -528.07, -5.09, 0.41)
pt3dadd(696.53, -528.37, -5.09, 0.41)
pt3dadd(695.82, -528.58, -5.09, 0.41)
pt3dadd(695.62, -528.78, -5.09, 0.41)
pt3dadd(693.88, -529.39, -5.09, 0.41)
pt3dadd(692.25, -530.3, -5.09, 0.41)
pt3dadd(690.62, -531.23, -5.09, 0.41)
pt3dadd(689.4, -531.33, -5.09, 0.41)
pt3dadd(687.36, -531.94, -5.09, 0.41)
pt3dadd(686.24, -532.55, -5.09, 0.41)
pt3dadd(686.04, -532.96, -5.09, 0.41)
pt3dadd(684.41, -533.99, -5.09, 0.41)
pt3dadd(683.18, -534.6, -5.09, 0.41)
pt3dadd(682.57, -535.11, -5.09, 0.41)
pt3dadd(682.37, -535.21, -5.09, 0.41)
pt3dadd(681.45, -535.52, -5.09, 0.41)
pt3dadd(679.72, -535.82, -5.09, 0.41)
pt3dadd(677.89, -536.33, -5.09, 0.41)
pt3dadd(676.05, -536.74, -5.09, 0.41)
pt3dadd(675.64, -536.74, -5.09, 0.41)
pt3dadd(674.22, -537.25, -5.09, 0.41)
pt3dadd(673.71, -537.55, -5.09, 0.41)
pt3dadd(670.45, -538.88, -5.09, 0.41)
pt3dadd(669.33, -539.09, -5.09, 0.41)
pt3dadd(667.7, -539.49, -5.09, 0.41)
pt3dadd(666.68, -540, -5.09, 0.41)
pt3dadd(666.27, -540.3, -5.09, 0.41)
pt3dadd(664.84, -541.02, -5.09, 0.41)
pt3dadd(664.23, -541.13, -5.09, 0.41)
pt3dadd(663.31, -541.64, -5.09, 0.41)
pt3dadd(662.29, -541.84, -5.09, 0.41)
pt3dadd(661.99, -542.15, -5.09, 0.41)
pt3dadd(660.66, -542.76, -5.09, 0.41)
pt3dadd(659.95, -543.16, -5.09, 0.41)
pt3dadd(659.14, -543.67, -5.09, 0.41)
pt3dadd(658.32, -544.6, -5.09, 0.41)
pt3dadd(656.49, -545.21, -5.09, 0.41)
pt3dadd(656.08, -545.62, -5.09, 0.41)
pt3dadd(655.87, -545.91, -5.09, 0.41)
pt3dadd(655.67, -546.02, -5.09, 0.41)
pt3dadd(655.37, -546.33, -5.09, 0.41)
pt3dadd(655.26, -546.53, -5.09, 0.41)
pt3dadd(654.04, -547.86, -5.09, 0.41)
pt3dadd(652.82, -548.47, -5.09, 0.31)
pt3dadd(651.6, -548.98, -5.09, 0.31)
pt3dadd(651.19, -549.39, -5.09, 0.31)
pt3dadd(650.78, -550.1, -5.09, 0.31)
pt3dadd(650.16, -550.51, -5.09, 0.31)
pt3dadd(648.33, -551.13, -5.09, 0.31)
pt3dadd(647.62, -551.23, -5.09, 0.31)
pt3dadd(646.91, -551.53, -5.09, 0.31)
pt3dadd(646.19, -552.35, -5.09, 0.31)
pt3dadd(642.53, -552.54, -5.09, 0.31)
pt3dadd(641.29, -552.54, -5.09, 0.31)
pt3dadd(641.1, -552.76, -5.09, 0.31)
pt3dadd(637.63, -554.9, -13.09, 0.31)
pt3dadd(636.72, -555, -13.09, 0.31)
pt3dadd(635.9, -555.61, -13.09, 0.31)
pt3dadd(635.09, -556.02, -13.09, 0.31)
pt3dadd(634.48, -556.63, -13.09, 0.31)
pt3dadd(633.66, -557.14, -13.09, 0.31)
pt3dadd(632.44, -558.27, -13.09, 0.31)
pt3dadd(631.52, -558.57, -13.09, 0.31)
pt3dadd(629.89, -558.88, -13.09, 0.31)
pt3dadd(629.48, -558.98, -13.09, 0.31)
pt3dadd(628.77, -559.39, -13.09, 0.31)
pt3dadd(628.46, -559.7, -13.09, 0.31)
pt3dadd(627.95, -559.9, -13.09, 0.31)
pt3dadd(626.12, -561.33, -13.09, 0.31)
pt3dadd(626.02, -561.63, -13.09, 0.31)
pt3dadd(625.1, -562.14, -13.09, 0.31)
pt3dadd(624.29, -562.96, -13.09, 0.31)
pt3dadd(623.88, -563.37, -13.09, 0.31)
pt3dadd(623.66, -563.98, -13.09, 0.31)
pt3dadd(623.05, -564.59, -13.09, 0.31)
pt3dadd(622.45, -565.2, -13.09, 0.31)
pt3dadd(621.84, -565.61, -13.09, 0.31)
pt3dadd(621.74, -566.12, -13.09, 0.31)
pt3dadd(621.53, -566.42, -13.09, 0.31)
pt3dadd(621.23, -566.53, -13.09, 0.31)
pt3dadd(620.11, -567.14, -13.09, 0.31)
pt3dadd(619.9, -567.45, -13.09, 0.31)
pt3dadd(618.88, -567.65, -13.09, 0.31)
pt3dadd(618.78, -567.86, -13.09, 0.31)
pt3dadd(616.85, -568.16, -13.09, 0.31)
}
dend[16] {pt3dclear()
pt3dadd(734.24, -511.23, 2.89, 0.41)
pt3dadd(733.63, -511.23, 2.89, 0.51)
pt3dadd(731.18, -511.23, 2.89, 0.51)
pt3dadd(730.77, -511.03, 2.89, 0.51)
pt3dadd(730.06, -510.83, 2.89, 0.51)
pt3dadd(728.02, -510.62, 2.89, 0.51)
pt3dadd(725.58, -510.52, 2.89, 0.51)
pt3dadd(723.94, -510.52, 2.89, 0.51)
pt3dadd(722.52, -510.42, 2.89, 0.41)
pt3dadd(719.16, -510.32, 2.89, 0.41)
pt3dadd(717.93, -510.83, 2.89, 0.41)
pt3dadd(715.49, -511.64, 2.89, 0.41)
pt3dadd(714.98, -512.15, 2.89, 0.41)
pt3dadd(714.47, -512.46, 2.89, 0.41)
pt3dadd(713.04, -512.76, 2.89, 0.41)
pt3dadd(712.23, -513.48, 2.89, 0.41)
pt3dadd(711.21, -514.09, 2.89, 0.41)
pt3dadd(710.09, -514.19, 2.89, 0.41)
pt3dadd(708.15, -515.11, 2.89, 0.41)
pt3dadd(707.95, -515.82, 2.89, 0.41)
pt3dadd(707.03, -516.64, 2.89, 0.41)
pt3dadd(706.52, -517.15, 2.89, 0.41)
pt3dadd(706.32, -517.66, 2.89, 0.41)
pt3dadd(706.01, -517.76, 2.89, 0.41)
pt3dadd(705.3, -518.16, 2.89, 0.41)
pt3dadd(703.97, -518.27, 2.89, 0.41)
pt3dadd(702.44, -518.48, 2.89, 0.41)
pt3dadd(702.34, -518.58, 2.89, 0.41)
pt3dadd(701.42, -519.29, 2.89, 0.41)
pt3dadd(700.2, -519.79, 2.89, 0.41)
pt3dadd(699.79, -520.01, 2.89, 0.41)
pt3dadd(697.25, -520.62, 2.89, 0.41)
pt3dadd(694.9, -521.13, 2.89, 0.41)
pt3dadd(694.29, -521.33, 2.89, 0.41)
pt3dadd(693.07, -521.44, 2.89, 0.41)
pt3dadd(691.85, -521.84, 2.89, 0.41)
pt3dadd(690.32, -522.46, 10.88, 0.41)
pt3dadd(688.48, -522.55, 10.88, 0.41)
pt3dadd(688.18, -522.76, 10.88, 0.41)
pt3dadd(686.75, -523.16, 10.88, 0.41)
pt3dadd(685.63, -523.37, 10.88, 0.41)
pt3dadd(685.22, -523.78, 10.88, 0.41)
pt3dadd(682.88, -524.29, 10.88, 0.41)
pt3dadd(681.96, -524.5, 10.88, 0.41)
pt3dadd(681.45, -525.01, 10.88, 0.41)
pt3dadd(680.64, -525.52, 10.88, 0.41)
pt3dadd(679.62, -525.72, 10.88, 0.41)
pt3dadd(677.68, -525.82, 10.88, 0.41)
pt3dadd(677.17, -526.13, 10.88, 0.41)
pt3dadd(676.26, -526.33, 10.88, 0.41)
pt3dadd(674.73, -526.44, 10.88, 0.41)
pt3dadd(674.42, -526.74, 10.88, 0.41)
pt3dadd(673.91, -526.95, 10.88, 0.41)
pt3dadd(673.71, -527.15, 10.88, 0.41)
pt3dadd(671.98, -528.07, 10.88, 0.41)
pt3dadd(671.26, -528.58, 10.88, 0.41)
pt3dadd(670.04, -528.99, 10.88, 0.41)
pt3dadd(668, -529.6, 10.88, 0.41)
pt3dadd(665.76, -530.62, 10.88, 0.41)
pt3dadd(664.74, -531.13, 10.88, 0.41)
pt3dadd(664.43, -531.42, 10.88, 0.41)
pt3dadd(662.91, -531.74, 10.88, 0.41)
pt3dadd(659.44, -532.04, 10.88, 0.41)
pt3dadd(657.91, -532.55, 10.88, 0.41)
pt3dadd(657.3, -533.16, 10.88, 0.41)
pt3dadd(656.08, -533.67, 10.88, 0.41)
pt3dadd(653.74, -533.98, 10.88, 0.41)
pt3dadd(652.1, -534.5, 10.88, 0.41)
pt3dadd(650.16, -534.29, 10.88, 0.41)
pt3dadd(647.01, -534.39, 10.88, 0.41)
pt3dadd(646.8, -534.29, 10.88, 0.41)
pt3dadd(641.91, -534.39, 10.88, 0.41)
pt3dadd(639.98, -534.7, 10.88, 0.41)
pt3dadd(637.84, -534.79, 10.88, 0.41)
pt3dadd(637.53, -534.9, 10.88, 0.41)
pt3dadd(636.91, -535.11, 10.88, 0.41)
pt3dadd(634.88, -535.52, 18.87, 0.41)
pt3dadd(634.78, -535.82, 18.87, 0.41)
pt3dadd(634.07, -536.03, 18.87, 0.41)
pt3dadd(633.35, -536.74, 18.87, 0.41)
pt3dadd(632.54, -537.66, 18.87, 0.41)
pt3dadd(632.13, -538.67, 18.87, 0.41)
pt3dadd(632.03, -538.98, 18.87, 0.41)
}
dend[17] {pt3dclear()
pt3dadd(843.58, -472.16, 2.89, 1.73)
pt3dadd(842.76, -471.65, 2.89, 1.22)
pt3dadd(842.35, -471.44, 2.89, 1.22)
pt3dadd(841.34, -471.34, 2.89, 1.22)
}
}
proc shape3d_6() {
dend[17] { pt3dadd(840.32, -470.73, 2.89, 1.22)
pt3dadd(839.09, -470.12, -5.09, 1.02)
pt3dadd(838.79, -470.02, -5.09, 1.02)
pt3dadd(836.85, -468.89, -5.09, 0.82)
pt3dadd(835.02, -468.08, -5.09, 0.71)
pt3dadd(833.28, -466.85, -5.09, 0.71)
pt3dadd(832.67, -466.44, -5.09, 0.71)
pt3dadd(831.96, -466.04, -5.09, 0.71)
pt3dadd(831.65, -465.93, -5.09, 0.71)
pt3dadd(831.25, -465.93, -5.09, 0.71)
pt3dadd(830.13, -465.42, -5.09, 0.71)
pt3dadd(829.82, -465.22, -5.09, 0.71)
pt3dadd(829.51, -465.12, -5.09, 0.71)
pt3dadd(829.41, -464.91, -5.09, 0.71)
pt3dadd(829.11, -464.81, -5.09, 0.71)
pt3dadd(828.39, -464.4, -5.09, 0.71)
pt3dadd(825.64, -463.38, -5.09, 0.71)
pt3dadd(825.44, -463.28, -5.09, 0.71)
pt3dadd(824.93, -462.67, -5.09, 0.71)
pt3dadd(824.22, -462.47, -5.09, 0.71)
pt3dadd(823.6, -462.26, -5.09, 0.71)
pt3dadd(822.38, -461.85, -5.09, 0.71)
pt3dadd(822.18, -461.55, -5.09, 0.71)
pt3dadd(821.57, -461.34, -5.09, 0.71)
pt3dadd(820.85, -461.24, -5.09, 0.71)
pt3dadd(819.53, -460.53, -5.09, 0.71)
pt3dadd(816.88, -459.3, -5.09, 0.71)
pt3dadd(816.98, -459, -5.09, 0.71)
pt3dadd(816.27, -458.28, -5.09, 0.71)
pt3dadd(814.13, -457.57, -5.09, 0.71)
pt3dadd(812.8, -457.47, -5.09, 0.71)
pt3dadd(808.12, -456.55, -13.09, 0.71)
pt3dadd(808.12, -456.34, -13.09, 0.71)
pt3dadd(807.81, -456.34, -13.09, 0.71)
pt3dadd(807.2, -456.04, -13.09, 0.71)
pt3dadd(805.47, -455.73, -13.09, 0.71)
pt3dadd(801.9, -455.63, -13.09, 0.71)
pt3dadd(800.27, -455.83, -13.09, 0.71)
pt3dadd(800.07, -455.94, -13.09, 0.71)
pt3dadd(799.56, -455.94, -13.09, 0.71)
pt3dadd(799.35, -456.04, -13.09, 0.71)
pt3dadd(796.09, -455.43, -13.09, 0.71)
pt3dadd(793.85, -455.32, -13.09, 0.71)
pt3dadd(792.83, -455.12, -13.09, 0.71)
pt3dadd(786.41, -455.02, -13.09, 0.71)
pt3dadd(786.1, -454.92, -13.09, 0.71)
pt3dadd(785.49, -454.81, -13.09, 0.71)
pt3dadd(785.09, -454.71, -13.09, 0.71)
pt3dadd(784.88, -454.51, -13.09, 0.71)
pt3dadd(783.76, -454.3, -13.09, 0.71)
pt3dadd(782.64, -454.2, -13.09, 0.71)
pt3dadd(778.67, -453.39, -13.09, 0.71)
pt3dadd(778.36, -453.39, -13.09, 0.71)
}
dend[18] {pt3dclear()
pt3dadd(778.36, -453.39, -13.09, 0.71)
pt3dadd(777.54, -453.69, -13.09, 0.82)
pt3dadd(775.81, -454.2, -13.09, 0.82)
pt3dadd(774.18, -455.02, -13.09, 0.82)
pt3dadd(771.53, -455.63, -13.09, 0.82)
pt3dadd(768.58, -455.83, -13.09, 0.82)
pt3dadd(767.66, -456.14, -5.09, 0.82)
pt3dadd(761.95, -456.14, -5.09, 0.82)
pt3dadd(759.61, -455.73, -5.09, 0.82)
pt3dadd(755.53, -455.73, -5.09, 0.82)
}
dend[19] {pt3dclear()
pt3dadd(755.53, -455.73, -5.09, 0.82)
pt3dadd(752.38, -455.83, -5.09, 0.71)
pt3dadd(752.27, -455.73, -5.09, 0.71)
pt3dadd(748.4, -455.83, -5.09, 0.71)
pt3dadd(746.67, -456.24, -5.09, 0.71)
pt3dadd(742.08, -456.24, -5.09, 0.71)
pt3dadd(736.48, -455.43, -13.09, 0.61)
pt3dadd(735.36, -455.32, -13.09, 0.61)
pt3dadd(734.95, -454.92, -13.09, 0.61)
pt3dadd(733.32, -454.71, -13.09, 0.61)
pt3dadd(731.49, -454.1, -13.09, 0.61)
pt3dadd(730.77, -454, -13.09, 0.61)
pt3dadd(728.02, -452.98, -13.09, 0.41)
pt3dadd(724.25, -452.98, -13.09, 0.41)
pt3dadd(722.42, -452.88, -13.09, 0.41)
pt3dadd(721.19, -453.28, -13.09, 0.41)
pt3dadd(719.36, -453.39, -13.09, 0.41)
pt3dadd(718.54, -453.69, -13.09, 0.41)
pt3dadd(717.73, -453.9, -13.09, 0.41)
pt3dadd(716.91, -454.3, -13.09, 0.41)
pt3dadd(716.3, -454.41, -13.09, 0.41)
pt3dadd(716.3, -454.61, -13.09, 0.41)
pt3dadd(713.65, -455.22, -13.09, 0.51)
pt3dadd(711.41, -455.32, -13.09, 0.51)
pt3dadd(710.8, -455.53, -13.09, 0.51)
pt3dadd(709.68, -455.94, -13.09, 0.51)
pt3dadd(708.97, -456.24, -13.09, 0.51)
pt3dadd(708.76, -456.45, -13.09, 0.51)
pt3dadd(707.64, -456.85, -13.09, 0.51)
pt3dadd(707.44, -457.06, -13.09, 0.51)
pt3dadd(705.4, -457.67, -13.09, 0.51)
pt3dadd(703.06, -457.98, -13.09, 0.51)
pt3dadd(700.51, -457.98, -13.09, 0.51)
pt3dadd(698.98, -458.18, -13.09, 0.51)
pt3dadd(696.02, -458.49, -13.09, 0.51)
pt3dadd(694.8, -459.1, -13.09, 0.51)
pt3dadd(694.29, -459.3, -13.09, 0.51)
pt3dadd(694.19, -459.51, -13.09, 0.51)
pt3dadd(692.46, -460.02, -13.09, 0.51)
pt3dadd(690.52, -460.02, -13.09, 0.51)
pt3dadd(690.22, -460.12, -13.09, 0.51)
pt3dadd(687.97, -460.53, -13.09, 0.51)
pt3dadd(687.46, -460.73, -13.09, 0.51)
pt3dadd(684.92, -461.65, -13.09, 0.51)
pt3dadd(680.64, -463.08, -13.09, 0.51)
pt3dadd(679.52, -463.28, -13.09, 0.51)
pt3dadd(678.7, -463.59, -13.09, 0.51)
pt3dadd(677.89, -463.89, -13.09, 0.51)
pt3dadd(676.76, -464, -13.09, 0.51)
pt3dadd(674.32, -464.2, -13.09, 0.51)
pt3dadd(671.57, -464.3, -13.09, 0.51)
pt3dadd(669.84, -464.51, -13.09, 0.51)
pt3dadd(668.2, -464.61, -13.09, 0.51)
pt3dadd(665.15, -464.81, -13.09, 0.51)
pt3dadd(660.36, -464.81, -13.09, 0.51)
pt3dadd(660.26, -464.91, -13.09, 0.51)
pt3dadd(656.59, -465.22, -13.09, 0.51)
pt3dadd(653.33, -465.42, -13.09, 0.51)
pt3dadd(650.98, -465.93, -13.09, 0.51)
pt3dadd(650.16, -466.04, -13.09, 0.51)
pt3dadd(649.46, -466.24, -13.09, 0.51)
pt3dadd(644.97, -467.06, -13.09, 0.51)
pt3dadd(639.98, -466.95, -13.09, 0.51)
pt3dadd(637.94, -466.55, -13.09, 0.51)
pt3dadd(633.55, -466.34, -13.09, 0.51)
pt3dadd(631.11, -466.24, -13.09, 0.51)
pt3dadd(628.77, -466.34, -13.09, 0.51)
pt3dadd(627.24, -466.85, -13.09, 0.51)
pt3dadd(627.04, -467.06, -13.09, 0.51)
pt3dadd(625.41, -466.75, -13.09, 0.51)
pt3dadd(623.78, -467.06, -13.09, 0.51)
pt3dadd(621.64, -467.06, -13.09, 0.51)
pt3dadd(620.41, -466.44, -13.09, 0.51)
pt3dadd(618.27, -466.34, -13.09, 0.51)
pt3dadd(615.73, -466.04, -13.09, 0.51)
pt3dadd(615.22, -465.73, -13.09, 0.51)
pt3dadd(612.36, -465.42, -13.09, 0.51)
pt3dadd(604.3, -465.42, -13.09, 0.51)
pt3dadd(598.91, -465.63, -13.09, 0.51)
pt3dadd(595.04, -465.73, -13.09, 0.51)
pt3dadd(592.79, -465.22, -13.09, 0.51)
pt3dadd(591.07, -465.02, -13.09, 0.51)
pt3dadd(590.45, -464.81, -13.09, 0.51)
pt3dadd(585.87, -464.81, -13.09, 0.51)
pt3dadd(582.2, -464.2, -13.09, 0.51)
pt3dadd(577.61, -464, -13.09, 0.51)
pt3dadd(576.29, -464, -13.09, 0.51)
pt3dadd(576.09, -463.79, -13.09, 0.51)
pt3dadd(574.97, -463.18, -13.09, 0.51)
pt3dadd(574.76, -463.08, -13.09, 0.51)
pt3dadd(573.23, -463.08, -13.09, 0.51)
}
dend[20] {pt3dclear()
pt3dadd(778.36, -453.39, -13.09, 0.71)
pt3dadd(776.73, -452.88, -13.09, 0.82)
pt3dadd(775.51, -452.47, -13.09, 0.82)
pt3dadd(774.9, -452.26, -13.09, 0.82)
pt3dadd(773.88, -451.65, -13.09, 0.82)
pt3dadd(772.96, -451.24, -13.09, 0.82)
pt3dadd(772.25, -451.14, -13.09, 0.82)
pt3dadd(771.13, -450.53, -13.09, 0.82)
pt3dadd(770.62, -450.43, -13.09, 0.82)
pt3dadd(768.27, -450.12, -21.08, 0.61)
pt3dadd(768.07, -449.92, -21.08, 0.61)
pt3dadd(766.95, -449.71, -21.08, 0.61)
pt3dadd(766.74, -449.51, -21.08, 0.61)
pt3dadd(766.03, -449.3, -21.08, 0.61)
pt3dadd(765.32, -448.69, -21.08, 0.61)
pt3dadd(763.69, -447.88, -21.08, 0.61)
pt3dadd(763.07, -447.37, -21.08, 0.61)
pt3dadd(762.26, -446.55, -21.08, 0.61)
pt3dadd(761.34, -446.35, -21.08, 0.61)
pt3dadd(760.53, -446.14, -21.08, 0.61)
pt3dadd(760.12, -445.84, -21.08, 0.61)
pt3dadd(756.86, -444.51, -21.08, 0.61)
pt3dadd(755.13, -443.69, -21.08, 0.61)
pt3dadd(754.72, -443.39, -21.08, 0.61)
pt3dadd(753.7, -443.18, -21.08, 0.61)
pt3dadd(752.88, -442.77, -21.08, 0.61)
pt3dadd(751.97, -442.26, -21.08, 0.61)
pt3dadd(750.44, -441.24, -21.08, 0.61)
pt3dadd(748.4, -441.14, -21.08, 0.61)
pt3dadd(745.14, -440.22, -21.08, 0.61)
pt3dadd(744.83, -439.92, -21.08, 0.61)
pt3dadd(742.59, -439, -21.08, 0.61)
pt3dadd(741.88, -438.8, -21.08, 0.61)
pt3dadd(739.33, -437.88, -29.07, 0.61)
pt3dadd(738.41, -437.78, -29.07, 0.61)
pt3dadd(736.58, -436.76, -29.07, 0.61)
pt3dadd(734.64, -435.63, -29.07, 0.61)
pt3dadd(732.91, -434.71, -29.07, 0.61)
pt3dadd(732.71, -434.51, -29.07, 0.61)
pt3dadd(732.1, -434.51, -29.07, 0.61)
pt3dadd(726.29, -432.67, -29.07, 0.61)
pt3dadd(726.08, -432.57, -29.07, 0.61)
pt3dadd(725.17, -432.37, -29.07, 0.61)
pt3dadd(724.66, -431.96, -29.07, 0.61)
pt3dadd(724.15, -431.76, -29.07, 0.61)
pt3dadd(723.84, -431.55, -29.07, 0.61)
}
}
proc shape3d_7() {
dend[20] { pt3dadd(722.11, -431.14, -29.07, 0.61)
pt3dadd(721.81, -431.04, -29.07, 0.61)
pt3dadd(715.49, -429.41, -37.06, 0.61)
pt3dadd(713.75, -428.39, -37.06, 0.61)
pt3dadd(713.35, -428.29, -37.06, 0.61)
pt3dadd(712.94, -427.98, -37.06, 0.61)
pt3dadd(711.61, -427.37, -37.06, 0.61)
pt3dadd(710.9, -427.16, -37.06, 0.61)
pt3dadd(708.76, -426.25, -37.06, 0.61)
pt3dadd(708.15, -426.04, -37.06, 0.61)
pt3dadd(707.95, -425.84, -37.06, 0.61)
pt3dadd(706.93, -425.43, -37.06, 0.61)
pt3dadd(706.52, -425.23, -37.06, 0.61)
pt3dadd(700.61, -423.49, -45.05, 0.61)
pt3dadd(699.59, -423.49, -45.05, 0.61)
pt3dadd(699.08, -423.08, -45.05, 0.61)
pt3dadd(698.57, -422.88, -45.05, 0.61)
pt3dadd(697.65, -422.47, -45.05, 0.61)
pt3dadd(696.84, -421.86, -45.05, 0.61)
pt3dadd(694.5, -421.25, -45.05, 0.61)
pt3dadd(693.58, -421.04, -45.05, 0.61)
pt3dadd(692.56, -420.53, -45.05, 0.61)
pt3dadd(691.95, -420.43, -45.05, 0.61)
pt3dadd(691.54, -420.23, -45.05, 0.61)
pt3dadd(687.87, -420.02, -45.05, 0.61)
pt3dadd(686.24, -420.23, -45.05, 0.61)
pt3dadd(685.94, -420.33, -45.05, 0.61)
pt3dadd(685.32, -420.33, -45.05, 0.61)
}
dend[21] {pt3dclear()
pt3dadd(685.32, -420.33, -45.05, 0.61)
pt3dadd(685.12, -420.53, -45.05, 0.41)
pt3dadd(684.61, -420.53, -45.05, 0.41)
pt3dadd(684.2, -420.74, -45.05, 0.41)
pt3dadd(683.59, -421.04, -45.05, 0.41)
pt3dadd(682.78, -421.66, -45.05, 0.41)
pt3dadd(681.25, -422.17, -45.05, 0.41)
pt3dadd(680.64, -422.68, -45.05, 0.41)
pt3dadd(679.72, -422.98, -45.05, 0.41)
pt3dadd(678.8, -423.29, -45.05, 0.41)
pt3dadd(678.29, -423.7, -45.05, 0.41)
pt3dadd(677.38, -424.1, -45.05, 0.41)
pt3dadd(677.07, -424.41, -45.05, 0.41)
pt3dadd(676.15, -424.82, -45.05, 0.41)
pt3dadd(675.54, -425.02, -45.05, 0.41)
pt3dadd(673.4, -425.63, -45.05, 0.41)
pt3dadd(670.75, -425.74, -45.05, 0.41)
pt3dadd(670.35, -425.94, -45.05, 0.41)
pt3dadd(669.22, -426.14, -45.05, 0.41)
pt3dadd(667.9, -426.55, -45.05, 0.41)
pt3dadd(667.19, -426.65, -45.05, 0.41)
pt3dadd(666.78, -426.86, -45.05, 0.41)
pt3dadd(664.84, -427.27, -45.05, 0.41)
pt3dadd(662.09, -427.57, -45.05, 0.41)
pt3dadd(659.44, -427.57, -45.05, 0.41)
pt3dadd(658.63, -427.98, -45.05, 0.41)
pt3dadd(658.02, -428.19, -45.05, 0.41)
pt3dadd(657.1, -428.49, -45.05, 0.41)
pt3dadd(656.28, -428.9, -45.05, 0.41)
pt3dadd(655.98, -429.1, -45.05, 0.41)
pt3dadd(654.86, -429.31, -45.05, 0.41)
pt3dadd(654.45, -429.51, -45.05, 0.41)
pt3dadd(653.42, -429.82, -45.05, 0.41)
pt3dadd(652.91, -430.33, -45.05, 0.41)
pt3dadd(651.7, -430.84, -45.05, 0.41)
pt3dadd(651.49, -431.04, -45.05, 0.41)
pt3dadd(651.19, -431.35, -45.05, 0.41)
pt3dadd(650.88, -431.45, -45.05, 0.41)
pt3dadd(650.88, -431.55, -45.05, 0.41)
pt3dadd(650.27, -431.65, -45.05, 0.41)
pt3dadd(649.86, -431.86, -45.05, 0.41)
pt3dadd(649.76, -432.06, -45.05, 0.41)
pt3dadd(648.23, -432.67, -45.05, 0.41)
pt3dadd(648.13, -432.88, -45.05, 0.41)
}
dend[22] {pt3dclear()
pt3dadd(685.32, -420.33, -45.05, 0.61)
pt3dadd(684.61, -419.72, -45.05, 0.61)
pt3dadd(682.68, -419.41, -45.05, 0.61)
pt3dadd(680.33, -418.19, -45.05, 0.61)
pt3dadd(679.72, -417.88, -45.05, 0.61)
pt3dadd(677.07, -417.68, -45.05, 0.61)
pt3dadd(676.76, -417.57, -45.05, 0.61)
pt3dadd(674.62, -417.37, -45.05, 0.61)
pt3dadd(673.4, -416.76, -45.05, 0.61)
pt3dadd(670.65, -415.84, -53.04, 0.61)
pt3dadd(668.82, -415.23, -53.04, 0.61)
pt3dadd(667.59, -414.62, -53.04, 0.61)
pt3dadd(666.57, -413.9, -53.04, 0.61)
pt3dadd(664.84, -413.39, -53.04, 0.61)
pt3dadd(663.31, -412.98, -53.04, 0.61)
pt3dadd(662.91, -412.58, -53.04, 0.61)
pt3dadd(662.5, -412.37, -53.04, 0.61)
pt3dadd(661.28, -411.76, -53.04, 0.61)
pt3dadd(658.83, -411.76, -53.04, 0.61)
pt3dadd(658.22, -411.56, -53.04, 0.61)
pt3dadd(656.59, -411.25, -53.04, 0.61)
pt3dadd(655.26, -410.43, -53.04, 0.61)
pt3dadd(652, -407.27, -61.03, 0.61)
pt3dadd(651.7, -407.17, -61.03, 0.61)
pt3dadd(647.82, -407.17, -61.03, 0.61)
pt3dadd(647.62, -406.86, -61.03, 0.61)
pt3dadd(646.19, -406.66, -61.03, 0.61)
pt3dadd(643.75, -405.54, -61.03, 0.61)
pt3dadd(640.39, -403.9, -61.03, 0.61)
pt3dadd(640.08, -403.6, -61.03, 0.61)
pt3dadd(639.66, -402.47, -61.03, 0.61)
pt3dadd(634.48, -401.15, -69.02, 0.61)
pt3dadd(633.76, -400.84, -69.02, 0.61)
pt3dadd(632.23, -399.31, -69.02, 0.61)
pt3dadd(631.01, -398.6, -69.02, 0.61)
pt3dadd(630.5, -397.99, -69.02, 0.61)
pt3dadd(630.2, -397.68, -69.02, 0.61)
pt3dadd(629.69, -397.17, -69.02, 0.61)
pt3dadd(629.17, -396.35, -69.02, 0.61)
pt3dadd(629.08, -395.95, -69.02, 0.61)
pt3dadd(628.57, -394.82, -69.02, 0.61)
pt3dadd(628.46, -394.31, -69.02, 0.61)
pt3dadd(628.05, -393.5, -69.02, 0.61)
pt3dadd(627.85, -390.54, -69.02, 0.61)
pt3dadd(627.54, -389.21, -69.02, 0.61)
pt3dadd(627.75, -387.17, -77.01, 0.61)
pt3dadd(627.85, -383.7, -77.01, 0.61)
pt3dadd(627.34, -382.58, -77.01, 0.61)
pt3dadd(627.04, -381.25, -77.01, 0.61)
pt3dadd(627.04, -380.85, -77.01, 0.61)
pt3dadd(626.73, -379.01, -85, 0.61)
pt3dadd(626.22, -377.17, -85, 0.61)
pt3dadd(626.12, -375.95, -85, 0.61)
pt3dadd(625.91, -374.42, -85, 0.61)
pt3dadd(625.61, -373.81, -85, 0.61)
pt3dadd(625.51, -373.09, -85, 0.61)
}
dend[23] {pt3dclear()
pt3dadd(855.7, -473.08, 2.89, 1.73)
pt3dadd(855.5, -474.4, 2.89, 1.73)
pt3dadd(855.4, -474.71, 2.89, 1.73)
pt3dadd(854.99, -475.73, 2.89, 1.73)
pt3dadd(854.79, -476.85, 2.89, 1.73)
pt3dadd(854.17, -477.67, -5.09, 1.32)
pt3dadd(854.17, -479.5, -5.09, 1.32)
pt3dadd(853.67, -480.42, -5.09, 1.12)
pt3dadd(853.67, -481.85, -5.09, 1.12)
pt3dadd(853.56, -482.16, -5.09, 1.12)
pt3dadd(853.56, -482.46, -5.09, 1.12)
pt3dadd(853.77, -483.38, -5.09, 1.02)
pt3dadd(853.77, -484.61, -5.09, 1.02)
pt3dadd(853.67, -484.91, -5.09, 1.02)
pt3dadd(853.46, -486.95, -5.09, 1.02)
}
dend[24] {pt3dclear()
pt3dadd(853.46, -486.95, -5.09, 1.02)
pt3dadd(852.65, -487.16, -5.09, 0.92)
pt3dadd(851.22, -487.26, -5.09, 0.92)
pt3dadd(850.3, -487.56, -5.09, 0.92)
pt3dadd(850.1, -487.77, -5.09, 0.92)
pt3dadd(849.59, -487.77, -5.09, 0.92)
pt3dadd(849.28, -487.87, -5.09, 0.92)
pt3dadd(848.88, -487.87, -5.09, 0.92)
pt3dadd(848.57, -487.97, -5.09, 0.92)
pt3dadd(846.63, -488.18, -5.09, 0.92)
pt3dadd(846.23, -488.38, -5.09, 0.92)
pt3dadd(846.23, -488.48, -5.09, 0.92)
pt3dadd(845, -489.3, -13.09, 0.71)
pt3dadd(843.88, -489.81, -13.09, 0.71)
pt3dadd(843.27, -490.62, -13.09, 0.71)
pt3dadd(842.86, -491.03, -13.09, 0.71)
pt3dadd(842.66, -491.44, -13.09, 0.71)
pt3dadd(842.15, -492.05, -13.09, 0.71)
pt3dadd(841.95, -492.26, -13.09, 0.71)
pt3dadd(841.74, -492.56, -13.09, 0.71)
pt3dadd(841.13, -493.28, -13.09, 0.61)
pt3dadd(840.11, -494.3, -13.09, 0.61)
pt3dadd(840.01, -495.01, -13.09, 0.61)
pt3dadd(839.5, -495.73, -13.09, 0.61)
pt3dadd(839.5, -496.13, -13.09, 0.61)
pt3dadd(839.2, -496.54, -13.09, 0.61)
pt3dadd(839.2, -497.36, -13.09, 0.61)
pt3dadd(838.79, -498.17, -13.09, 0.61)
pt3dadd(838.38, -499.4, -13.09, 0.61)
pt3dadd(838.18, -499.6, -13.09, 0.61)
pt3dadd(837.67, -501.03, -21.08, 0.61)
pt3dadd(837.26, -501.54, -21.08, 0.61)
pt3dadd(837.06, -502.05, -21.08, 0.61)
pt3dadd(836.75, -502.26, -21.08, 0.61)
pt3dadd(836.14, -503.99, -21.08, 0.61)
pt3dadd(835.73, -505.11, -21.08, 0.61)
pt3dadd(835.42, -505.42, -21.08, 0.61)
pt3dadd(835.12, -505.83, -21.08, 0.61)
pt3dadd(834.81, -506.54, -21.08, 0.61)
pt3dadd(833.28, -507.66, -21.08, 0.61)
pt3dadd(832.37, -508.58, -21.08, 0.61)
pt3dadd(831.55, -509.4, -21.08, 0.61)
pt3dadd(830.43, -510.21, -21.08, 0.61)
pt3dadd(830.13, -510.32, -21.08, 0.61)
pt3dadd(830.02, -510.42, -21.08, 0.61)
pt3dadd(828.6, -511.85, -21.08, 0.51)
pt3dadd(828.5, -512.97, -21.08, 0.51)
pt3dadd(827.68, -514.09, -21.08, 0.51)
pt3dadd(826.66, -514.6, -21.08, 0.51)
pt3dadd(826.05, -515.11, -21.08, 0.51)
pt3dadd(824.83, -515.72, -21.08, 0.51)
pt3dadd(823.3, -516.44, -21.08, 0.51)
pt3dadd(822.89, -516.44, -21.08, 0.51)
pt3dadd(822.59, -516.64, -21.08, 0.51)
pt3dadd(822.18, -516.84, -21.08, 0.51)
pt3dadd(822.08, -517.04, -21.08, 0.51)
pt3dadd(821.16, -517.66, -21.08, 0.51)
}
}
proc shape3d_8() {
dend[24] { pt3dadd(819.43, -518.78, -29.07, 0.51)
pt3dadd(818.51, -519.6, -29.07, 0.51)
pt3dadd(816.78, -519.79, -29.07, 0.51)
pt3dadd(816.47, -520.11, -29.07, 0.51)
pt3dadd(814.84, -520.92, -29.07, 0.51)
pt3dadd(813.41, -521.64, -29.07, 0.51)
pt3dadd(813.31, -521.74, -29.07, 0.51)
pt3dadd(808.73, -523.67, -37.06, 0.51)
pt3dadd(806.59, -524.19, -37.06, 0.51)
pt3dadd(805.26, -524.6, -37.06, 0.51)
pt3dadd(804.34, -524.9, -37.06, 0.51)
pt3dadd(803.63, -525.3, -37.06, 0.51)
pt3dadd(802.92, -525.82, -37.06, 0.51)
pt3dadd(802.41, -526.44, -37.06, 0.51)
pt3dadd(801.19, -526.95, -37.06, 0.51)
pt3dadd(800.37, -528.07, -37.06, 0.51)
pt3dadd(800.07, -528.67, -37.06, 0.51)
pt3dadd(799.05, -529.19, -37.06, 0.51)
pt3dadd(798.94, -529.5, -37.06, 0.51)
pt3dadd(795.38, -531.64, -45.05, 0.51)
pt3dadd(794.05, -532.66, -45.05, 0.51)
pt3dadd(793.14, -533.07, -45.05, 0.51)
pt3dadd(792.63, -533.58, -45.05, 0.51)
pt3dadd(792.52, -533.88, -45.05, 0.51)
pt3dadd(791.4, -534.9, -45.05, 0.51)
pt3dadd(791, -535.41, -45.05, 0.51)
pt3dadd(790.59, -535.91, -45.05, 0.51)
pt3dadd(789.98, -537.15, -45.05, 0.51)
pt3dadd(789.77, -537.55, -45.05, 0.51)
pt3dadd(789.67, -537.76, -45.05, 0.51)
pt3dadd(789.47, -537.76, -45.05, 0.51)
pt3dadd(787.33, -539.7, -53.04, 0.51)
pt3dadd(787.23, -539.9, -53.04, 0.51)
pt3dadd(786.41, -540.41, -53.04, 0.51)
pt3dadd(785.19, -541.02, -53.04, 0.51)
pt3dadd(784.58, -541.33, -53.04, 0.51)
pt3dadd(782.84, -542.86, -53.04, 0.51)
pt3dadd(782.13, -543.37, -53.04, 0.51)
pt3dadd(781.32, -544.39, -53.04, 0.51)
pt3dadd(780.91, -545.41, -53.04, 0.51)
pt3dadd(780.5, -546.33, -61.03, 0.51)
pt3dadd(779.68, -546.84, -61.03, 0.51)
pt3dadd(778.46, -547.25, -61.03, 0.51)
pt3dadd(776.83, -548.67, -61.03, 0.51)
pt3dadd(775, -550, -61.03, 0.51)
pt3dadd(774.59, -550.21, -61.03, 0.51)
pt3dadd(773.98, -550.82, -61.03, 0.51)
pt3dadd(773.06, -551.53, -61.03, 0.51)
pt3dadd(772.76, -552.04, -61.03, 0.51)
pt3dadd(771.23, -553.67, -69.02, 0.51)
pt3dadd(771.23, -554.29, -69.02, 0.51)
pt3dadd(769.39, -555.21, -69.02, 0.51)
pt3dadd(768.27, -555.72, -69.02, 0.51)
pt3dadd(767.76, -555.82, -69.02, 0.51)
pt3dadd(767.46, -556.12, -69.02, 0.51)
pt3dadd(766.03, -556.63, -69.02, 0.51)
pt3dadd(765.32, -556.84, -69.02, 0.51)
pt3dadd(764.71, -557.35, -69.02, 0.51)
pt3dadd(764.2, -557.96, -69.02, 0.51)
pt3dadd(763.99, -558.67, -69.02, 0.51)
pt3dadd(763.28, -559.08, -69.02, 0.51)
pt3dadd(762.87, -559.49, -69.02, 0.51)
pt3dadd(762.67, -559.7, -69.02, 0.51)
pt3dadd(761.44, -561.33, -77.01, 0.51)
pt3dadd(759.41, -562.25, -77.01, 0.51)
pt3dadd(758.8, -562.76, -77.01, 0.51)
pt3dadd(758.69, -562.96, -77.01, 0.51)
pt3dadd(757.78, -563.66, -77.01, 0.51)
pt3dadd(757.16, -563.88, -77.01, 0.51)
pt3dadd(756.25, -564.9, -77.01, 0.51)
pt3dadd(756.04, -565.3, -77.01, 0.51)
pt3dadd(755.64, -565.71, -77.01, 0.51)
pt3dadd(754.72, -566.22, -77.01, 0.51)
pt3dadd(754.41, -566.63, -77.01, 0.51)
pt3dadd(752.88, -567.86, -85, 0.51)
pt3dadd(752.07, -569.59, -85, 0.51)
pt3dadd(751.46, -569.69, -85, 0.51)
pt3dadd(750.85, -570, -85, 0.51)
pt3dadd(750.74, -570.3, -85, 0.51)
pt3dadd(750.34, -570.71, -85, 0.51)
pt3dadd(750.03, -571.33, -85, 0.51)
pt3dadd(749.83, -571.84, -85, 0.51)
pt3dadd(749.01, -572.86, -85, 0.51)
pt3dadd(748.4, -573.47, -85, 0.51)
pt3dadd(747.69, -574.28, -85, 0.51)
pt3dadd(747.18, -575.3, -85, 0.51)
pt3dadd(746.57, -576.63, -85, 0.51)
pt3dadd(746.47, -577.24, -85, 0.51)
pt3dadd(746.06, -577.86, -85, 0.51)
pt3dadd(746.06, -578.66, -85, 0.51)
pt3dadd(744.83, -580.1, -85, 0.51)
pt3dadd(744.43, -580.91, -85, 0.51)
pt3dadd(743.2, -582.04, -85, 0.51)
pt3dadd(742.9, -582.24, -85, 0.51)
pt3dadd(741.88, -583.16, -92.99, 0.51)
pt3dadd(741.37, -583.26, -92.99, 0.51)
pt3dadd(740.96, -583.47, -92.99, 0.51)
pt3dadd(740.25, -583.98, -92.99, 0.51)
pt3dadd(739.33, -584.39, -92.99, 0.51)
}
dend[25] {pt3dclear()
pt3dadd(853.46, -486.95, -5.09, 1.02)
pt3dadd(853.97, -487.46, -5.09, 0.92)
pt3dadd(854.07, -487.67, -5.09, 0.92)
pt3dadd(854.48, -487.97, -5.09, 0.92)
pt3dadd(854.89, -488.58, -5.09, 0.92)
pt3dadd(855.3, -488.79, -5.09, 0.92)
pt3dadd(856.01, -489.6, -5.09, 0.92)
pt3dadd(856.31, -490.01, -5.09, 0.92)
pt3dadd(856.62, -490.11, -5.09, 0.92)
pt3dadd(857.33, -490.93, -5.09, 0.92)
pt3dadd(858.05, -492.05, -13.09, 0.92)
pt3dadd(857.64, -496.85, -13.09, 0.92)
pt3dadd(857.44, -497.05, -13.09, 0.92)
pt3dadd(856.93, -500.21, -13.09, 0.92)
pt3dadd(856.82, -500.21, -13.09, 0.92)
pt3dadd(857.13, -501.34, -13.09, 0.92)
pt3dadd(857.03, -501.75, -13.09, 0.92)
pt3dadd(856.82, -501.95, -13.09, 0.92)
pt3dadd(856.42, -504.91, -13.09, 0.92)
pt3dadd(856.31, -505.21, -13.09, 0.92)
pt3dadd(855.91, -506.23, -13.09, 0.92)
pt3dadd(855.91, -506.95, -13.09, 0.92)
pt3dadd(855.8, -507.25, -13.09, 0.92)
pt3dadd(854.89, -509.3, -13.09, 0.92)
pt3dadd(854.89, -509.6, -13.09, 0.92)
pt3dadd(854.68, -509.7, -13.09, 0.92)
pt3dadd(854.38, -510.83, -13.09, 0.92)
pt3dadd(854.17, -511.44, -13.09, 0.92)
pt3dadd(853.56, -512.15, -21.08, 0.92)
pt3dadd(853.46, -512.97, -21.08, 0.92)
pt3dadd(853.16, -513.89, -21.08, 0.92)
pt3dadd(852.54, -515.11, -21.08, 0.92)
pt3dadd(852.44, -517.15, -21.08, 0.92)
pt3dadd(852.14, -517.46, -21.08, 0.92)
pt3dadd(851.73, -519.09, -21.08, 0.92)
pt3dadd(851.53, -519.5, -21.08, 0.92)
pt3dadd(851.02, -520.3, -21.08, 0.92)
pt3dadd(850.91, -520.62, -21.08, 0.92)
pt3dadd(850.4, -521.54, -21.08, 0.92)
pt3dadd(850.1, -523.58, -21.08, 0.92)
pt3dadd(849.89, -524.39, -21.08, 0.92)
pt3dadd(849.69, -524.6, -21.08, 0.92)
pt3dadd(848.57, -525.92, -21.08, 0.92)
pt3dadd(847.65, -527.97, -21.08, 0.92)
pt3dadd(847.65, -528.37, -21.08, 0.92)
pt3dadd(847.45, -528.48, -21.08, 0.92)
pt3dadd(847.14, -529.6, -21.08, 0.92)
pt3dadd(847.25, -531.13, -29.07, 0.92)
pt3dadd(846.53, -531.54, -29.07, 0.92)
pt3dadd(846.23, -534.19, -29.07, 0.92)
pt3dadd(845.72, -535.52, -29.07, 0.92)
pt3dadd(845.31, -536.64, -29.07, 0.92)
pt3dadd(845.11, -536.84, -29.07, 0.92)
pt3dadd(844.7, -538.16, -29.07, 0.92)
pt3dadd(844.7, -538.88, -29.07, 0.92)
pt3dadd(844.7, -540.51, -29.07, 0.82)
pt3dadd(844.6, -540.91, -29.07, 0.82)
pt3dadd(843.88, -542.35, -29.07, 0.82)
pt3dadd(843.58, -543.58, -29.07, 0.82)
pt3dadd(843.27, -543.98, -29.07, 0.82)
pt3dadd(842.76, -545.11, -29.07, 0.82)
pt3dadd(842.56, -547.04, -29.07, 0.82)
pt3dadd(842.56, -547.35, -29.07, 0.82)
pt3dadd(842.56, -548.57, -29.07, 0.82)
pt3dadd(842.25, -548.67, -29.07, 0.82)
pt3dadd(841.54, -554.39, -29.07, 0.82)
pt3dadd(841.34, -555.51, -29.07, 0.82)
pt3dadd(841.23, -556.23, -29.07, 0.82)
pt3dadd(841.13, -556.53, -29.07, 0.82)
pt3dadd(841.03, -557.45, -29.07, 0.82)
pt3dadd(840.83, -557.76, -29.07, 0.82)
pt3dadd(840.42, -558.57, -37.06, 0.71)
pt3dadd(840.32, -561.74, -37.06, 0.71)
pt3dadd(840.01, -562.86, -37.06, 0.71)
pt3dadd(839.81, -563.05, -37.06, 0.71)
pt3dadd(839.5, -564.17, -37.06, 0.71)
pt3dadd(839.3, -566.12, -37.06, 0.71)
pt3dadd(838.99, -567.14, -37.06, 0.71)
pt3dadd(838.89, -567.65, -37.06, 0.71)
pt3dadd(838.18, -568.98, -45.05, 0.71)
pt3dadd(838.18, -570, -45.05, 0.71)
pt3dadd(838.07, -570.3, -45.05, 0.71)
pt3dadd(837.46, -573.66, -45.05, 0.71)
pt3dadd(837.36, -575.1, -45.05, 0.71)
pt3dadd(837.26, -575.41, -45.05, 0.71)
pt3dadd(837.06, -576.63, -53.04, 0.71)
pt3dadd(836.95, -577.96, -53.04, 0.71)
pt3dadd(836.65, -579.08, -53.04, 0.71)
pt3dadd(836.44, -582.54, -53.04, 0.71)
pt3dadd(836.34, -582.85, -53.04, 0.71)
pt3dadd(836.44, -583.47, -53.04, 0.71)
pt3dadd(836.65, -583.88, -53.04, 0.71)
pt3dadd(836.95, -584.17, -53.04, 0.71)
pt3dadd(837.77, -584.9, -53.04, 0.71)
pt3dadd(837.97, -585, -53.04, 0.71)
pt3dadd(838.58, -586.22, -53.04, 0.71)
pt3dadd(838.99, -586.73, -53.04, 0.71)
pt3dadd(839.09, -587.75, -53.04, 0.71)
pt3dadd(839.2, -587.96, -53.04, 0.71)
pt3dadd(839.2, -588.36, -53.04, 0.71)
pt3dadd(838.99, -591.12, -61.03, 0.71)
}
}
proc shape3d_9() {
dend[25] { pt3dadd(838.89, -592.65, -61.03, 0.71)
pt3dadd(838.48, -593.16, -61.03, 0.71)
pt3dadd(838.38, -593.77, -61.03, 0.71)
pt3dadd(838.18, -593.98, -61.03, 0.71)
pt3dadd(838.18, -594.38, -61.03, 0.71)
pt3dadd(838.07, -594.59, -61.03, 0.71)
pt3dadd(837.26, -596.53, -69.02, 0.71)
pt3dadd(837.06, -597.65, -69.02, 0.71)
pt3dadd(836.95, -599.79, -69.02, 0.71)
pt3dadd(837.16, -601.22, -69.02, 0.61)
pt3dadd(837.16, -602.14, -69.02, 0.61)
pt3dadd(837.36, -602.24, -69.02, 0.61)
pt3dadd(837.56, -603.46, -69.02, 0.61)
pt3dadd(836.95, -604.59, -77.01, 0.61)
pt3dadd(836.65, -604.89, -77.01, 0.61)
pt3dadd(835.83, -606.63, -77.01, 0.61)
pt3dadd(835.22, -607.14, -77.01, 0.61)
pt3dadd(835.02, -607.44, -77.01, 0.61)
pt3dadd(834.51, -608.97, -77.01, 0.61)
pt3dadd(834.3, -609.38, -77.01, 0.61)
pt3dadd(834.3, -609.99, -77.01, 0.61)
pt3dadd(834.2, -610.29, -77.01, 0.61)
pt3dadd(834.2, -610.8, -77.01, 0.61)
pt3dadd(834.1, -610.91, -77.01, 0.61)
pt3dadd(832.88, -611.83, -85, 0.61)
pt3dadd(832.06, -612.85, -85, 0.61)
pt3dadd(831.86, -613.77, -85, 0.61)
pt3dadd(831.86, -614.38, -85, 0.61)
pt3dadd(831.76, -614.69, -85, 0.61)
pt3dadd(831.76, -615.6, -85, 0.61)
pt3dadd(831.65, -615.8, -85, 0.61)
pt3dadd(829.72, -617.75, -92.99, 0.61)
pt3dadd(829.41, -618.04, -92.99, 0.61)
pt3dadd(828.6, -618.77, -92.99, 0.61)
pt3dadd(828.29, -618.87, -92.99, 0.61)
pt3dadd(827.99, -619.07, -92.99, 0.61)
pt3dadd(826.86, -619.79, -92.99, 0.61)
pt3dadd(826.25, -621.01, -92.99, 0.61)
pt3dadd(826.15, -621.73, -92.99, 0.61)
pt3dadd(826.05, -621.92, -92.99, 0.61)
pt3dadd(825.85, -622.03, -92.99, 0.61)
pt3dadd(824.83, -623.26, -92.99, 0.61)
pt3dadd(824.62, -623.66, -92.99, 0.61)
pt3dadd(824.32, -624.28, -92.99, 0.61)
pt3dadd(824.01, -625.2, -92.99, 0.61)
pt3dadd(823.81, -625.6, -92.99, 0.61)
pt3dadd(823.81, -625.71, -92.99, 0.61)
pt3dadd(823.4, -626.41, -100.98, 0.61)
pt3dadd(822.79, -627.34, -100.98, 0.61)
pt3dadd(822.38, -627.75, -100.98, 0.61)
pt3dadd(821.97, -629.67, -100.98, 0.61)
pt3dadd(821.87, -630.5, -100.98, 0.61)
pt3dadd(821.77, -630.8, -100.98, 0.61)
pt3dadd(821.57, -631.52, -100.98, 0.61)
pt3dadd(821.46, -631.62, -100.98, 0.61)
pt3dadd(820.95, -633.46, -108.97, 0.61)
pt3dadd(820.95, -634.38, -108.97, 0.61)
pt3dadd(820.45, -635.91, -108.97, 0.61)
pt3dadd(819.83, -637.03, -108.97, 0.61)
pt3dadd(819.73, -639.07, -108.97, 0.61)
pt3dadd(819.63, -639.38, -108.97, 0.61)
pt3dadd(819.63, -639.58, -108.97, 0.61)
pt3dadd(819.83, -640.7, -108.97, 0.61)
pt3dadd(819.83, -641.32, -108.97, 0.61)
pt3dadd(819.73, -641.62, -108.97, 0.61)
}
dend[26] {pt3dclear()
pt3dadd(819.73, -641.62, -108.97, 0.61)
pt3dadd(820.65, -642.23, -108.97, 0.41)
pt3dadd(820.34, -646.92, -108.97, 0.41)
pt3dadd(820.34, -647.44, -108.97, 0.41)
pt3dadd(820.24, -647.74, -108.97, 0.41)
pt3dadd(820.24, -648.46, -108.97, 0.41)
pt3dadd(820.14, -648.76, -108.97, 0.41)
pt3dadd(819.94, -649.67, -116.96, 0.41)
pt3dadd(819.94, -650.5, -116.96, 0.41)
pt3dadd(819.83, -650.79, -116.96, 0.41)
pt3dadd(819.53, -651.52, -116.96, 0.41)
pt3dadd(818.92, -652.95, -124.95, 0.41)
pt3dadd(818.2, -653.25, -124.95, 0.41)
pt3dadd(817.69, -653.97, -124.95, 0.41)
pt3dadd(817.39, -654.37, -124.95, 0.41)
pt3dadd(817.29, -654.67, -124.95, 0.41)
pt3dadd(817.08, -654.78, -124.95, 0.41)
pt3dadd(816.37, -655.5, -124.95, 0.41)
pt3dadd(816.27, -655.8, -124.95, 0.41)
pt3dadd(815.86, -656.01, -124.95, 0.41)
pt3dadd(815.55, -656.31, -124.95, 0.41)
pt3dadd(815.25, -656.92, -124.95, 0.41)
pt3dadd(815.15, -657.13, -124.95, 0.41)
pt3dadd(814.94, -657.23, -124.95, 0.41)
pt3dadd(814.84, -658.56, -124.95, 0.41)
pt3dadd(814.74, -658.86, -124.95, 0.41)
pt3dadd(814.74, -659.58, -124.95, 0.41)
pt3dadd(814.64, -659.88, -124.95, 0.41)
pt3dadd(814.53, -662.84, -124.95, 0.41)
pt3dadd(814.43, -663.15, -124.95, 0.41)
pt3dadd(814.43, -663.25, -124.95, 0.41)
}
dend[27] {pt3dclear()
pt3dadd(819.73, -641.62, -108.97, 0.61)
pt3dadd(819.53, -642.54, -108.97, 0.51)
pt3dadd(819.02, -643.36, -108.97, 0.51)
pt3dadd(818.61, -643.76, -108.97, 0.51)
pt3dadd(818.31, -644.78, -108.97, 0.51)
pt3dadd(817.29, -645.79, -108.97, 0.51)
pt3dadd(816.27, -646.3, -108.97, 0.51)
pt3dadd(815.76, -647.64, -108.97, 0.51)
pt3dadd(815.25, -648.46, -108.97, 0.51)
pt3dadd(814.03, -649.16, -108.97, 0.51)
pt3dadd(813.82, -649.67, -108.97, 0.51)
pt3dadd(813.31, -651.62, -108.97, 0.41)
pt3dadd(813.11, -651.82, -108.97, 0.41)
pt3dadd(813.11, -652.33, -108.97, 0.41)
pt3dadd(812.5, -653.66, -108.97, 0.41)
pt3dadd(812.19, -655.09, -108.97, 0.41)
pt3dadd(811.48, -656.62, -108.97, 0.41)
pt3dadd(811.17, -657.23, -108.97, 0.41)
pt3dadd(810.56, -661.21, -108.97, 0.41)
pt3dadd(810.46, -661.72, -108.97, 0.41)
pt3dadd(810.26, -661.92, -108.97, 0.41)
pt3dadd(809.64, -662.74, -108.97, 0.41)
pt3dadd(809.34, -662.84, -108.97, 0.41)
pt3dadd(809.13, -663.35, -108.97, 0.41)
pt3dadd(808.93, -663.56, -108.97, 0.41)
pt3dadd(808.32, -664.58, -108.97, 0.41)
pt3dadd(808.01, -664.88, -108.97, 0.41)
pt3dadd(807.91, -665.39, -108.97, 0.41)
pt3dadd(807.4, -666.41, -108.97, 0.41)
}
dend[28] {pt3dclear()
pt3dadd(843.98, -480.93, -5.09, 1.22)
pt3dadd(843.41, -481.33, -13.09, 1.22)
}
dend[29] {pt3dclear()
pt3dadd(843.41, -481.33, -13.09, 1.22)
pt3dadd(842.54, -481.59, 2.89, 1.63)
pt3dadd(841.42, -481.69, 2.89, 1.63)
pt3dadd(841.11, -481.79, 2.89, 1.63)
pt3dadd(840.6, -481.79, 2.89, 1.63)
pt3dadd(840.5, -481.9, 2.89, 1.63)
pt3dadd(839.48, -481.79, -5.09, 1.32)
pt3dadd(837.75, -482, -5.09, 1.32)
pt3dadd(836.12, -482, -5.09, 1.32)
pt3dadd(835.51, -482.51, -5.09, 1.02)
pt3dadd(835.2, -482.61, -5.09, 1.02)
pt3dadd(834.79, -483.12, -5.09, 1.02)
pt3dadd(834.69, -483.32, -5.09, 1.02)
pt3dadd(834.38, -483.43, -5.09, 1.02)
pt3dadd(834.28, -484.04, -5.09, 1.02)
pt3dadd(833.77, -484.34, -5.09, 1.02)
pt3dadd(830.61, -484.34, -5.09, 1.02)
pt3dadd(830.1, -484.34, -13.09, 0.92)
pt3dadd(827.46, -484.34, -13.09, 0.92)
pt3dadd(827.05, -484.55, -13.09, 0.92)
pt3dadd(826.64, -484.96, -13.09, 0.92)
pt3dadd(825.93, -485.16, -13.09, 0.92)
pt3dadd(825.21, -485.47, -13.09, 0.92)
pt3dadd(825.01, -485.47, -13.09, 0.92)
pt3dadd(824.3, -485.87, -13.09, 0.71)
pt3dadd(822.36, -485.98, -13.09, 0.71)
pt3dadd(821.75, -486.18, -13.09, 0.71)
pt3dadd(820.02, -486.49, -13.09, 0.71)
pt3dadd(819.1, -486.79, -13.09, 0.71)
pt3dadd(817.77, -487, -13.09, 0.71)
pt3dadd(817.16, -487.2, -13.09, 0.71)
pt3dadd(816.86, -487.3, -13.09, 0.71)
pt3dadd(816.76, -487.61, -13.09, 0.61)
pt3dadd(815.64, -487.71, -13.09, 0.61)
pt3dadd(815.02, -488.43, -13.09, 0.61)
pt3dadd(814.21, -489.04, -13.09, 0.61)
pt3dadd(812.88, -489.45, -13.09, 0.61)
pt3dadd(812.48, -489.45, -13.09, 0.61)
pt3dadd(811.86, -489.65, -13.09, 0.61)
pt3dadd(809.93, -489.65, -13.09, 0.61)
pt3dadd(809.62, -489.75, -13.09, 0.61)
pt3dadd(809.01, -489.96, -13.09, 0.61)
pt3dadd(808.71, -490.16, -13.09, 0.61)
pt3dadd(808.3, -490.57, -21.08, 0.61)
pt3dadd(807.79, -491.18, -21.08, 0.61)
pt3dadd(806.87, -491.79, -21.08, 0.61)
pt3dadd(806.46, -492.2, -21.08, 0.61)
pt3dadd(805.95, -492.4, -21.08, 0.61)
pt3dadd(805.34, -492.81, -21.08, 0.61)
pt3dadd(804.83, -493.22, -21.08, 0.61)
pt3dadd(803.71, -493.42, -21.08, 0.61)
pt3dadd(803.1, -493.63, -21.08, 0.61)
pt3dadd(802.18, -493.73, -21.08, 0.61)
pt3dadd(801.88, -493.83, -21.08, 0.61)
pt3dadd(801.06, -494.14, -21.08, 0.61)
pt3dadd(800.76, -494.45, -21.08, 0.61)
pt3dadd(799.94, -494.96, -21.08, 0.61)
pt3dadd(798.72, -495.26, -21.08, 0.61)
pt3dadd(797.29, -495.26, -21.08, 0.61)
pt3dadd(796.99, -495.36, -21.08, 0.61)
pt3dadd(796.27, -495.36, -21.08, 0.61)
pt3dadd(794.85, -495.98, -21.08, 0.61)
pt3dadd(793.32, -496.59, -21.08, 0.61)
pt3dadd(792.5, -496.89, -21.08, 0.61)
pt3dadd(792.2, -497.1, -21.08, 0.61)
pt3dadd(791.69, -497.3, -21.08, 0.61)
pt3dadd(791.28, -497.71, -21.08, 0.61)
pt3dadd(791.08, -498.42, -21.08, 0.61)
pt3dadd(788.73, -499.34, -21.08, 0.61)
pt3dadd(788.33, -499.55, -21.08, 0.61)
pt3dadd(787, -499.95, -21.08, 0.61)
pt3dadd(786.7, -499.95, -21.08, 0.61)
pt3dadd(786.49, -500.16, -21.08, 0.61)
}
}
proc shape3d_10() {
dend[29] { pt3dadd(785.88, -500.77, -21.08, 0.61)
pt3dadd(785.88, -500.87, -21.08, 0.61)
pt3dadd(785.78, -501.48, -21.08, 0.61)
pt3dadd(785.17, -501.59, -21.08, 0.61)
pt3dadd(785.06, -501.89, -21.08, 0.61)
pt3dadd(783.54, -503.02, -21.08, 0.61)
pt3dadd(782.82, -503.22, -21.08, 0.61)
pt3dadd(782.11, -503.63, -21.08, 0.61)
pt3dadd(781.7, -503.73, -21.08, 0.61)
pt3dadd(781.4, -504.04, -21.08, 0.61)
pt3dadd(779.87, -504.14, -21.08, 0.61)
pt3dadd(779.56, -504.24, -21.08, 0.61)
pt3dadd(778.03, -504.44, -21.08, 0.61)
pt3dadd(777.12, -504.75, -21.08, 0.61)
pt3dadd(776.71, -504.75, -21.08, 0.61)
pt3dadd(776.51, -504.95, -21.08, 0.61)
pt3dadd(776, -505.36, -21.08, 0.61)
pt3dadd(774.26, -506.59, -29.07, 0.61)
pt3dadd(773.65, -506.69, -29.07, 0.61)
pt3dadd(772.23, -506.99, -29.07, 0.61)
pt3dadd(770.49, -507.4, -29.07, 0.61)
pt3dadd(766.82, -508.63, -29.07, 0.61)
pt3dadd(765.3, -508.83, -29.07, 0.61)
pt3dadd(763.26, -509.03, -29.07, 0.61)
pt3dadd(761.83, -509.44, -29.07, 0.61)
pt3dadd(760.81, -509.75, -29.07, 0.61)
pt3dadd(759.59, -509.85, -29.07, 0.61)
pt3dadd(758.26, -510.26, -29.07, 0.61)
pt3dadd(756.63, -510.67, -29.07, 0.61)
pt3dadd(756.23, -510.97, -29.07, 0.61)
pt3dadd(755.92, -511.28, -29.07, 0.61)
pt3dadd(755.11, -511.48, -29.07, 0.61)
pt3dadd(755, -511.59, -29.07, 0.61)
pt3dadd(752.97, -511.99, -29.07, 0.61)
pt3dadd(751.13, -512.1, -29.07, 0.61)
pt3dadd(750.52, -512.29, -29.07, 0.61)
pt3dadd(746.75, -512.61, -29.07, 0.61)
pt3dadd(744.81, -513.01, -29.07, 0.61)
pt3dadd(744.3, -513.22, -29.07, 0.61)
pt3dadd(743.49, -513.32, -29.07, 0.61)
pt3dadd(743.08, -513.52, -29.07, 0.61)
pt3dadd(742.98, -513.83, -29.07, 0.61)
pt3dadd(742.37, -514.34, -29.07, 0.61)
pt3dadd(739.11, -515.36, -37.06, 0.61)
pt3dadd(734.73, -515.46, -37.06, 0.61)
pt3dadd(734.11, -515.66, -37.06, 0.61)
pt3dadd(732.28, -516.28, -37.06, 0.61)
pt3dadd(728.92, -517.29, -45.05, 0.61)
pt3dadd(728.1, -517.4, -45.05, 0.61)
}
dend[30] {pt3dclear()
pt3dadd(728.1, -517.4, -45.05, 0.61)
pt3dadd(728.1, -517.71, -53.04, 0.61)
pt3dadd(727.9, -517.8, -53.04, 0.61)
pt3dadd(727.8, -518.11, -53.04, 0.61)
pt3dadd(727.18, -518.62, -53.04, 0.61)
pt3dadd(726.88, -518.73, -53.04, 0.61)
pt3dadd(726.57, -519.03, -53.04, 0.61)
pt3dadd(724.94, -519.44, -53.04, 0.61)
pt3dadd(723.41, -519.54, -53.04, 0.61)
pt3dadd(722.8, -519.95, -53.04, 0.61)
pt3dadd(721.07, -520.36, -53.04, 0.61)
pt3dadd(720.46, -520.55, -53.04, 0.61)
pt3dadd(720.15, -520.77, -53.04, 0.61)
pt3dadd(719.34, -520.87, -53.04, 0.61)
pt3dadd(717.81, -521.48, -53.04, 0.61)
pt3dadd(717.71, -521.79, -53.04, 0.61)
pt3dadd(717.3, -521.89, -53.04, 0.61)
pt3dadd(717.1, -522.29, -53.04, 0.61)
pt3dadd(716.38, -522.91, -53.04, 0.61)
pt3dadd(715.16, -523.32, -53.04, 0.61)
pt3dadd(714.45, -523.62, -53.04, 0.61)
pt3dadd(713.02, -523.92, -61.03, 0.61)
pt3dadd(712.82, -524.03, -61.03, 0.61)
pt3dadd(712.72, -524.24, -61.03, 0.61)
pt3dadd(711.08, -524.85, -61.03, 0.61)
pt3dadd(710.27, -525.46, -61.03, 0.61)
pt3dadd(709.56, -525.77, -61.03, 0.61)
pt3dadd(709.45, -525.87, -61.03, 0.61)
pt3dadd(708.13, -526.38, -69.02, 0.61)
pt3dadd(706.09, -526.48, -69.02, 0.61)
pt3dadd(704.87, -526.67, -69.02, 0.61)
pt3dadd(704.66, -526.79, -69.02, 0.61)
pt3dadd(700.49, -526.79, -69.02, 0.61)
pt3dadd(697.23, -526.89, -77.01, 0.61)
pt3dadd(696.82, -526.79, -77.01, 0.61)
pt3dadd(695.9, -526.16, -77.01, 0.61)
pt3dadd(691.93, -526.07, -77.01, 0.61)
pt3dadd(691.01, -526.48, -77.01, 0.61)
pt3dadd(690.4, -526.67, -77.01, 0.61)
pt3dadd(686.22, -527.6, -85, 0.61)
pt3dadd(685.41, -527.71, -85, 0.61)
pt3dadd(684.49, -528.11, -85, 0.61)
pt3dadd(682.76, -528.41, -85, 0.61)
pt3dadd(682.14, -528.62, -85, 0.61)
pt3dadd(680.11, -529.24, -92.99, 0.61)
pt3dadd(677.56, -529.34, -92.99, 0.61)
pt3dadd(677.56, -528.62, -92.99, 0.61)
pt3dadd(676.64, -527.29, -108.97, 0.61)
pt3dadd(676.34, -526.99, -108.97, 0.61)
pt3dadd(676.34, -526.48, -108.97, 0.61)
pt3dadd(675.32, -526.38, -108.97, 0.61)
pt3dadd(675.22, -526.28, -108.97, 0.61)
pt3dadd(675.22, -526.38, -108.97, 0.61)
}
dend[31] {pt3dclear()
pt3dadd(728.1, -517.4, -45.05, 0.61)
pt3dadd(728.31, -517.4, -45.05, 0.61)
pt3dadd(725.25, -517.8, -45.05, 0.61)
pt3dadd(724.23, -518.11, -45.05, 0.61)
pt3dadd(722.29, -518.52, -45.05, 0.61)
pt3dadd(721.48, -518.92, -45.05, 0.61)
pt3dadd(721.17, -519.03, -45.05, 0.61)
pt3dadd(720.66, -519.34, -45.05, 0.61)
pt3dadd(719.54, -519.44, -45.05, 0.61)
pt3dadd(718.63, -519.85, -45.05, 0.61)
pt3dadd(716.49, -520.55, -45.05, 0.51)
pt3dadd(716.28, -520.36, -45.05, 0.51)
pt3dadd(714.75, -520.46, -45.05, 0.51)
pt3dadd(711.7, -521.48, -45.05, 0.51)
pt3dadd(709.15, -521.79, -45.05, 0.51)
pt3dadd(705.99, -522.8, -45.05, 0.51)
pt3dadd(705.38, -523.22, -45.05, 0.51)
pt3dadd(704.87, -523.41, -45.05, 0.51)
pt3dadd(704.46, -523.83, -45.05, 0.51)
pt3dadd(704.16, -524.03, -45.05, 0.51)
pt3dadd(704.05, -524.24, -45.05, 0.51)
pt3dadd(703.34, -524.54, -45.05, 0.51)
pt3dadd(703.14, -524.85, -45.05, 0.51)
pt3dadd(702.42, -525.26, -45.05, 0.51)
pt3dadd(702.02, -526.28, -45.05, 0.51)
pt3dadd(701.61, -526.67, -45.05, 0.51)
pt3dadd(700.89, -527.09, -45.05, 0.51)
pt3dadd(700.79, -527.2, -45.05, 0.51)
pt3dadd(699.37, -527.91, -53.04, 0.51)
pt3dadd(698.45, -528.01, -53.04, 0.51)
pt3dadd(698.14, -528.32, -53.04, 0.51)
pt3dadd(696.72, -529.03, -53.04, 0.51)
pt3dadd(696.41, -529.34, -53.04, 0.51)
pt3dadd(693.76, -530.04, -53.04, 0.51)
pt3dadd(692.74, -530.87, -53.04, 0.51)
pt3dadd(691.62, -531.07, -53.04, 0.51)
pt3dadd(691.01, -531.28, -53.04, 0.51)
pt3dadd(686.42, -531.28, -53.04, 0.51)
pt3dadd(683.98, -531.38, -53.04, 0.51)
pt3dadd(682.45, -531.89, -53.04, 0.51)
pt3dadd(682.14, -532.19, -53.04, 0.51)
pt3dadd(682.14, -532.4, -53.04, 0.51)
pt3dadd(680.41, -533.32, -53.04, 0.51)
pt3dadd(679.19, -533.41, -53.04, 0.51)
pt3dadd(677.66, -534.64, -53.04, 0.51)
pt3dadd(677.56, -535.04, -53.04, 0.51)
pt3dadd(677.36, -535.15, -53.04, 0.51)
pt3dadd(677.05, -535.87, -53.04, 0.51)
pt3dadd(676.85, -537.91, -53.04, 0.51)
pt3dadd(676.54, -538.21, -53.04, 0.51)
}
dend[32] {pt3dclear()
pt3dadd(843.41, -481.33, -13.09, 1.22)
pt3dadd(842.9, -482.04, -13.09, 1.22)
pt3dadd(842.39, -482.55, -13.09, 1.22)
pt3dadd(841.98, -482.76, -13.09, 1.22)
pt3dadd(841.17, -483.68, -13.09, 1.22)
pt3dadd(840.76, -484.29, -13.09, 1.22)
pt3dadd(840.35, -484.9, -13.09, 1.12)
pt3dadd(840.25, -485.21, -13.09, 1.12)
pt3dadd(839.64, -485.72, -13.09, 1.12)
pt3dadd(839.33, -485.92, -13.09, 1.12)
pt3dadd(838.41, -487.14, -13.09, 1.12)
pt3dadd(837.29, -487.96, -13.09, 1.12)
pt3dadd(836.68, -487.96, -21.08, 1.02)
pt3dadd(836.58, -488.47, -21.08, 1.02)
pt3dadd(835.97, -489.08, -21.08, 1.02)
pt3dadd(835.66, -489.59, -21.08, 1.02)
pt3dadd(834.95, -490.51, -21.08, 1.02)
pt3dadd(834.13, -491.84, -21.08, 1.02)
pt3dadd(833.83, -492.14, -21.08, 1.02)
pt3dadd(833.62, -493.47, -21.08, 1.02)
pt3dadd(833.52, -493.98, -29.07, 0.82)
pt3dadd(832.91, -495.92, -29.07, 0.82)
pt3dadd(831.89, -499.39, -29.07, 0.82)
pt3dadd(831.79, -499.69, -29.07, 0.82)
pt3dadd(831.48, -500.41, -29.07, 0.82)
pt3dadd(831.28, -500.82, -29.07, 0.82)
pt3dadd(831.08, -501.53, -29.07, 0.82)
pt3dadd(830.77, -501.94, -29.07, 0.82)
pt3dadd(830.77, -502.24, -37.06, 0.82)
pt3dadd(830.67, -502.75, -37.06, 0.82)
pt3dadd(829.65, -503.57, -37.06, 0.82)
pt3dadd(829.34, -504.18, -37.06, 0.82)
pt3dadd(828.53, -504.9, -37.06, 0.82)
pt3dadd(827.82, -505.31, -37.06, 0.82)
pt3dadd(827.21, -505.61, -37.06, 0.82)
pt3dadd(826.7, -506.12, -37.06, 0.82)
pt3dadd(825.78, -507.24, -37.06, 0.82)
pt3dadd(824.76, -507.96, -37.06, 0.82)
pt3dadd(823.13, -509.39, -37.06, 0.82)
pt3dadd(822.42, -510.1, -37.06, 0.82)
pt3dadd(821.29, -510.81, -37.06, 0.82)
pt3dadd(821.19, -511.12, -37.06, 0.82)
}
dend[33] {pt3dclear()
pt3dadd(821.19, -511.12, -37.06, 0.82)
pt3dadd(820.68, -511.83, -37.06, 0.82)
pt3dadd(822.52, -511.43, -45.05, 0.82)
pt3dadd(821.6, -511.94, -45.05, 0.82)
pt3dadd(820.68, -512.54, -45.05, 0.82)
pt3dadd(819.66, -513.57, -45.05, 0.82)
}
}
proc shape3d_11() {
dend[33] { pt3dadd(818.24, -514.28, -45.05, 0.82)
pt3dadd(817.83, -514.9, -45.05, 0.82)
pt3dadd(817.01, -515.29, -45.05, 0.82)
pt3dadd(816.1, -515.91, -45.05, 0.82)
pt3dadd(815.89, -516.12, -45.05, 0.82)
pt3dadd(815.28, -516.63, -53.04, 0.82)
pt3dadd(815.08, -517.04, -53.04, 0.82)
pt3dadd(814.26, -517.75, -53.04, 0.82)
pt3dadd(812.94, -518.26, -53.04, 0.82)
pt3dadd(811.92, -519.08, -53.04, 0.82)
pt3dadd(811.51, -519.38, -53.04, 0.82)
}
dend[34] {pt3dclear()
pt3dadd(811.51, -519.38, -53.04, 0.82)
pt3dadd(809.58, -520.1, -53.04, 0.82)
pt3dadd(809.27, -520.4, -53.04, 0.82)
pt3dadd(808.46, -520.91, -53.04, 0.82)
}
dend[35] {pt3dclear()
pt3dadd(808.46, -520.91, -53.04, 0.82)
pt3dadd(808.25, -521.32, -61.03, 0.82)
pt3dadd(807.13, -521.42, -61.03, 0.82)
pt3dadd(805.5, -521.63, -61.03, 0.82)
pt3dadd(804.28, -522.14, -61.03, 0.61)
pt3dadd(804.07, -522.04, -61.03, 0.61)
pt3dadd(800.81, -522.04, -61.03, 0.61)
pt3dadd(798.77, -521.94, -61.03, 0.61)
pt3dadd(798.16, -521.73, -61.03, 0.61)
pt3dadd(797.04, -521.12, -61.03, 0.61)
pt3dadd(795, -521.12, -61.03, 0.61)
pt3dadd(794.7, -521.22, -61.03, 0.61)
pt3dadd(792.66, -521.32, -61.03, 0.61)
pt3dadd(792.66, -521.53, -61.03, 0.61)
pt3dadd(788.38, -522.24, -69.02, 0.61)
pt3dadd(785.53, -522.34, -69.02, 0.61)
pt3dadd(781.66, -523.05, -69.02, 0.61)
pt3dadd(780.33, -523.26, -69.02, 0.61)
pt3dadd(778.9, -523.77, -69.02, 0.61)
pt3dadd(775.34, -526.12, -77.01, 0.61)
pt3dadd(774.42, -526.92, -77.01, 0.61)
pt3dadd(773.91, -527.75, -77.01, 0.61)
pt3dadd(772.59, -527.95, -77.01, 0.61)
pt3dadd(771.67, -528.16, -77.01, 0.61)
pt3dadd(771.26, -528.26, -77.01, 0.61)
pt3dadd(770.55, -528.97, -77.01, 0.61)
pt3dadd(769.02, -529.48, -77.01, 0.61)
pt3dadd(767.59, -530.61, -77.01, 0.61)
pt3dadd(766.78, -531.41, -77.01, 0.61)
pt3dadd(766.17, -531.63, -77.01, 0.61)
pt3dadd(765.25, -532.34, -77.01, 0.61)
pt3dadd(765.05, -532.54, -77.01, 0.61)
pt3dadd(763.11, -533.36, -77.01, 0.51)
pt3dadd(762.8, -533.46, -77.01, 0.51)
pt3dadd(762.19, -533.97, -77.01, 0.51)
pt3dadd(761.38, -534.38, -77.01, 0.51)
pt3dadd(760.66, -534.79, -77.01, 0.51)
pt3dadd(759.85, -535.61, -77.01, 0.51)
pt3dadd(758.83, -536.12, -77.01, 0.51)
pt3dadd(758.01, -537.03, -77.01, 0.51)
pt3dadd(757.4, -537.34, -77.01, 0.51)
pt3dadd(756.89, -537.85, -77.01, 0.51)
pt3dadd(756.59, -537.95, -77.01, 0.51)
pt3dadd(756.49, -538.16, -77.01, 0.51)
pt3dadd(753.63, -540.1, -85, 0.51)
pt3dadd(753.02, -540.2, -85, 0.51)
pt3dadd(752.51, -540.4, -85, 0.51)
pt3dadd(752, -540.91, -85, 0.51)
pt3dadd(748.13, -542.03, -85, 0.51)
pt3dadd(746.91, -542.65, -85, 0.51)
pt3dadd(745.68, -543.16, -85, 0.51)
pt3dadd(744.97, -543.36, -85, 0.51)
pt3dadd(744.56, -543.36, -85, 0.51)
pt3dadd(738.96, -545.5, -92.99, 0.51)
pt3dadd(738.35, -545.6, -92.99, 0.51)
pt3dadd(737.43, -546.22, -92.99, 0.51)
pt3dadd(737.33, -546.41, -92.99, 0.51)
pt3dadd(736.92, -546.73, -92.99, 0.51)
pt3dadd(736.72, -547.03, -92.99, 0.51)
pt3dadd(735.29, -547.85, -92.99, 0.51)
pt3dadd(734.27, -548.87, -92.99, 0.51)
pt3dadd(734.07, -549.17, -92.99, 0.51)
pt3dadd(733.76, -549.38, -92.99, 0.51)
pt3dadd(732.54, -549.79, -92.99, 0.51)
pt3dadd(730.5, -549.99, -92.99, 0.51)
pt3dadd(729.69, -550.4, -92.99, 0.51)
pt3dadd(729.48, -550.71, -92.99, 0.51)
pt3dadd(728.67, -550.91, -92.99, 0.51)
pt3dadd(728.06, -551.11, -92.99, 0.51)
pt3dadd(726.93, -551.83, -92.99, 0.51)
pt3dadd(726.73, -552.03, -92.99, 0.51)
pt3dadd(726.12, -552.54, -92.99, 0.51)
pt3dadd(725.92, -553.15, -92.99, 0.51)
pt3dadd(722.86, -555.09, -100.98, 0.51)
pt3dadd(722.04, -555.2, -100.98, 0.51)
pt3dadd(721.13, -555.5, -100.98, 0.51)
pt3dadd(720.21, -556.22, -100.98, 0.51)
pt3dadd(719.29, -556.41, -100.98, 0.51)
pt3dadd(716.85, -557.34, -100.98, 0.51)
pt3dadd(716.23, -557.85, -100.98, 0.51)
pt3dadd(716.03, -558.15, -100.98, 0.51)
pt3dadd(714.2, -558.26, -100.98, 0.51)
pt3dadd(713.99, -558.36, -100.98, 0.51)
pt3dadd(712.36, -559.89, -100.98, 0.41)
pt3dadd(711.34, -559.99, -100.98, 0.41)
pt3dadd(707.27, -561.32, -100.98, 0.41)
pt3dadd(705.94, -562.34, -108.97, 0.41)
pt3dadd(705.64, -562.44, -108.97, 0.41)
pt3dadd(704.92, -562.95, -108.97, 0.41)
pt3dadd(704.52, -563.36, -108.97, 0.41)
pt3dadd(703.8, -563.77, -108.97, 0.41)
}
dend[36] {pt3dclear()
pt3dadd(808.46, -520.91, -53.04, 0.82)
pt3dadd(808.15, -521.63, -53.04, 0.82)
pt3dadd(807.74, -522.24, -53.04, 0.82)
pt3dadd(806.62, -523.36, -53.04, 0.82)
pt3dadd(806.32, -523.87, -53.04, 0.82)
pt3dadd(805.7, -524.38, -53.04, 0.82)
pt3dadd(805.5, -524.49, -53.04, 0.82)
pt3dadd(804.58, -526.02, -61.03, 0.82)
pt3dadd(803.05, -526.63, -61.03, 0.82)
pt3dadd(802.04, -527.34, -61.03, 0.82)
pt3dadd(801.73, -527.65, -61.03, 0.82)
pt3dadd(801.02, -527.75, -61.03, 0.82)
pt3dadd(800.61, -528.16, -61.03, 0.82)
pt3dadd(800.41, -528.26, -61.03, 0.82)
pt3dadd(799.79, -528.66, -61.03, 0.82)
pt3dadd(798.88, -529.08, -61.03, 0.82)
pt3dadd(798.57, -529.38, -61.03, 0.82)
pt3dadd(797.86, -529.59, -69.02, 0.82)
pt3dadd(795.92, -530.1, -69.02, 0.82)
pt3dadd(795.51, -530.29, -69.02, 0.82)
pt3dadd(795, -530.8, -69.02, 0.82)
pt3dadd(794.19, -531.63, -69.02, 0.82)
pt3dadd(793.99, -531.92, -69.02, 0.82)
pt3dadd(793.99, -532.54, -77.01, 0.61)
pt3dadd(793.27, -532.95, -77.01, 0.61)
pt3dadd(792.76, -534.08, -77.01, 0.61)
pt3dadd(792.46, -534.79, -77.01, 0.61)
pt3dadd(792.15, -535.5, -77.01, 0.61)
pt3dadd(791.95, -536.12, -77.01, 0.61)
pt3dadd(791.95, -536.52, -77.01, 0.61)
pt3dadd(791.85, -536.83, -77.01, 0.61)
pt3dadd(790.93, -538.46, -85, 0.61)
pt3dadd(790.42, -539.08, -85, 0.61)
pt3dadd(789.91, -540.5, -85, 0.61)
pt3dadd(789.5, -541.32, -85, 0.61)
pt3dadd(789.2, -541.63, -85, 0.61)
pt3dadd(788.48, -542.34, -85, 0.61)
pt3dadd(787.57, -543.55, -85, 0.61)
pt3dadd(786.44, -545.09, -92.99, 0.61)
pt3dadd(785.53, -546.52, -92.99, 0.61)
pt3dadd(784.81, -547.34, -92.99, 0.61)
pt3dadd(784, -548.16, -92.99, 0.61)
pt3dadd(783.39, -549.79, -92.99, 0.61)
pt3dadd(783.29, -549.89, -92.99, 0.61)
pt3dadd(782.47, -551.41, -100.98, 0.61)
pt3dadd(781.96, -551.73, -100.98, 0.61)
pt3dadd(781.76, -552.34, -100.98, 0.61)
pt3dadd(781.66, -553.15, -100.98, 0.61)
pt3dadd(781.35, -554.48, -100.98, 0.61)
pt3dadd(781.04, -554.79, -100.98, 0.61)
pt3dadd(780.94, -555.2, -100.98, 0.61)
pt3dadd(779.11, -556.73, -108.97, 0.41)
pt3dadd(778.39, -557.34, -108.97, 0.41)
pt3dadd(777.99, -557.75, -108.97, 0.41)
pt3dadd(777.88, -558.15, -108.97, 0.41)
pt3dadd(777.27, -558.77, -108.97, 0.41)
pt3dadd(776.87, -559.67, -108.97, 0.41)
pt3dadd(776.36, -561.01, -108.97, 0.41)
pt3dadd(776.15, -561.21, -108.97, 0.41)
pt3dadd(774.52, -563.04, -116.96, 0.41)
pt3dadd(774.11, -563.66, -116.96, 0.41)
pt3dadd(773.5, -565.4, -116.96, 0.41)
pt3dadd(773.1, -566.21, -116.96, 0.41)
pt3dadd(772.99, -566.52, -116.96, 0.41)
pt3dadd(772.08, -566.92, -124.95, 0.41)
pt3dadd(771.77, -567.54, -124.95, 0.41)
pt3dadd(771.26, -569.16, -124.95, 0.41)
pt3dadd(771.16, -572.03, -124.95, 0.41)
pt3dadd(771.06, -574.16, -132.94, 0.41)
pt3dadd(771.47, -575.09, -132.94, 0.41)
pt3dadd(771.77, -575.7, -132.94, 0.41)
pt3dadd(772.89, -576.3, -132.94, 0.41)
pt3dadd(773.2, -576.72, -132.94, 0.41)
pt3dadd(773.5, -576.82, -132.94, 0.41)
}
dend[37] {pt3dclear()
pt3dadd(821.19, -511.12, -37.06, 0.82)
pt3dadd(821.37, -511.46, -45.05, 0.92)
pt3dadd(820.25, -511.36, -45.05, 0.92)
pt3dadd(820.05, -511.16, -45.05, 0.92)
pt3dadd(818.01, -511.06, -45.05, 0.92)
pt3dadd(818.01, -511.26, -53.04, 0.92)
pt3dadd(817.8, -511.36, -61.03, 0.92)
pt3dadd(817.6, -511.36, -69.02, 0.92)
pt3dadd(817.4, -511.36, -77.01, 0.92)
pt3dadd(817.19, -511.46, -85, 0.92)
pt3dadd(816.99, -511.57, -92.99, 0.92)
pt3dadd(816.68, -511.77, -100.98, 0.71)
pt3dadd(816.38, -512.08, -100.98, 0.71)
pt3dadd(816.28, -512.48, -100.98, 0.71)
pt3dadd(815.66, -512.89, -100.98, 0.71)
pt3dadd(815.56, -512.99, -100.98, 0.71)
pt3dadd(814.85, -513.61, -108.97, 0.61)
pt3dadd(814.75, -514.01, -108.97, 0.61)
pt3dadd(814.44, -514.22, -108.97, 0.61)
pt3dadd(813.73, -514.73, -108.97, 0.61)
}
}
proc shape3d_12() {
dend[37] { pt3dadd(813.12, -515.85, -108.97, 0.61)
pt3dadd(813.01, -516.04, -108.97, 0.61)
pt3dadd(812.81, -516.16, -108.97, 0.61)
pt3dadd(811.59, -517.38, -108.97, 0.61)
pt3dadd(811.38, -518.1, -108.97, 0.61)
pt3dadd(811.18, -518.29, -108.97, 0.61)
pt3dadd(810.26, -519.83, -108.97, 0.61)
pt3dadd(809.96, -520.75, -108.97, 0.61)
pt3dadd(809.86, -521.46, -108.97, 0.61)
pt3dadd(809.45, -521.97, -108.97, 0.61)
pt3dadd(809.35, -522.79, -108.97, 0.61)
pt3dadd(809.24, -522.99, -108.97, 0.61)
pt3dadd(809.14, -523.71, -116.96, 0.61)
pt3dadd(808.12, -524.32, -116.96, 0.61)
pt3dadd(807.21, -525.44, -116.96, 0.61)
pt3dadd(807, -525.85, -116.96, 0.61)
pt3dadd(806.7, -526.77, -116.96, 0.61)
pt3dadd(806.6, -527.07, -116.96, 0.61)
pt3dadd(806.49, -527.58, -116.96, 0.61)
pt3dadd(806.39, -527.79, -124.95, 0.61)
pt3dadd(806.19, -527.99, -124.95, 0.41)
pt3dadd(805.88, -527.99, -124.95, 0.41)
pt3dadd(805.27, -528.6, -124.95, 0.41)
pt3dadd(805.07, -530.75, -124.95, 0.41)
pt3dadd(804.96, -532.28, -124.95, 0.41)
pt3dadd(804.76, -532.89, -132.94, 0.41)
pt3dadd(804.76, -533.29, -132.94, 0.41)
pt3dadd(804.35, -533.71, -132.94, 0.41)
pt3dadd(803.95, -533.91, -132.94, 0.41)
pt3dadd(803.44, -534.41, -132.94, 0.41)
pt3dadd(803.23, -535.54, -132.94, 0.41)
pt3dadd(803.23, -536.97, -132.94, 0.41)
pt3dadd(803.33, -536.97, -132.94, 0.41)
pt3dadd(803.03, -538.7, -140.93, 0.41)
pt3dadd(803.03, -539.83, -140.93, 0.41)
pt3dadd(802.52, -540.54, -140.93, 0.41)
pt3dadd(802.42, -541.04, -140.93, 0.41)
pt3dadd(802.01, -541.66, -140.93, 0.41)
pt3dadd(801.81, -541.77, -140.93, 0.41)
pt3dadd(800.79, -542.89, -148.91, 0.41)
pt3dadd(800.28, -543.4, -148.91, 0.41)
pt3dadd(799.87, -543.7, -148.91, 0.41)
pt3dadd(799.16, -544.01, -148.91, 0.41)
pt3dadd(798.95, -544.21, -148.91, 0.41)
pt3dadd(798.85, -544.52, -148.91, 0.41)
pt3dadd(798.34, -544.52, -148.91, 0.41)
pt3dadd(798.24, -545.85, -148.91, 0.41)
pt3dadd(798.14, -546.15, -148.91, 0.41)
pt3dadd(798.14, -547.58, -148.91, 0.41)
pt3dadd(798.24, -547.67, -148.91, 0.41)
pt3dadd(798.54, -550.03, -156.91, 0.41)
pt3dadd(798.54, -550.44, -156.91, 0.41)
pt3dadd(798.95, -550.85, -156.91, 0.41)
pt3dadd(799.16, -551.25, -156.91, 0.41)
pt3dadd(799.87, -552.07, -156.91, 0.41)
pt3dadd(800.28, -552.67, -156.91, 0.41)
pt3dadd(800.48, -552.99, -156.91, 0.41)
pt3dadd(800.68, -553.09, -156.91, 0.41)
pt3dadd(800.68, -553.91, -156.91, 0.41)
}
dend[38] {pt3dclear()
pt3dadd(811.51, -519.38, -53.04, 0.82)
pt3dadd(811.28, -519.63, -69.02, 0.61)
pt3dadd(811.18, -521.16, -69.02, 0.61)
pt3dadd(810.57, -521.55, -69.02, 0.61)
pt3dadd(809.35, -522.58, -69.02, 0.61)
pt3dadd(808.94, -522.79, -69.02, 0.61)
pt3dadd(807.92, -523.29, -69.02, 0.61)
pt3dadd(806.59, -523.4, -69.02, 0.61)
pt3dadd(805.37, -523.6, -69.02, 0.61)
pt3dadd(804.76, -523.8, -69.02, 0.61)
pt3dadd(803.44, -524.11, -69.02, 0.61)
pt3dadd(803.23, -524.22, -69.02, 0.61)
pt3dadd(802.72, -524.73, -85, 0.51)
pt3dadd(802.01, -525.24, -85, 0.51)
pt3dadd(801.3, -526.04, -85, 0.51)
pt3dadd(800.89, -526.26, -85, 0.51)
pt3dadd(800.58, -526.66, -85, 0.51)
pt3dadd(800.58, -527.07, -85, 0.51)
pt3dadd(799.16, -527.79, -85, 0.51)
pt3dadd(798.65, -527.99, -85, 0.51)
pt3dadd(798.54, -528.2, -85, 0.51)
pt3dadd(798.34, -528.2, -85, 0.51)
pt3dadd(796.4, -529.11, -92.99, 0.41)
pt3dadd(795.9, -529.11, -92.99, 0.41)
pt3dadd(795.59, -529.22, -92.99, 0.41)
pt3dadd(794.26, -529.32, -92.99, 0.41)
pt3dadd(791.92, -529.83, -92.99, 0.41)
pt3dadd(789.68, -530.95, -100.98, 0.41)
pt3dadd(787.74, -531.04, -100.98, 0.41)
pt3dadd(787.34, -531.26, -100.98, 0.41)
pt3dadd(786.01, -531.97, -100.98, 0.41)
pt3dadd(785.81, -532.38, -100.98, 0.41)
pt3dadd(784.69, -532.79, -100.98, 0.41)
pt3dadd(783.97, -533.5, -100.98, 0.41)
pt3dadd(783.67, -533.6, -100.98, 0.41)
pt3dadd(783.26, -533.8, -100.98, 0.41)
pt3dadd(780.92, -534.62, -108.97, 0.41)
pt3dadd(779.9, -534.73, -108.97, 0.41)
pt3dadd(779.29, -534.83, -108.97, 0.41)
pt3dadd(776.74, -535.54, -116.96, 0.41)
pt3dadd(774.19, -535.54, -116.96, 0.41)
pt3dadd(773.88, -535.75, -116.96, 0.41)
pt3dadd(772.46, -536.36, -124.95, 0.41)
pt3dadd(771.95, -536.55, -124.95, 0.41)
pt3dadd(771.64, -537.28, -124.95, 0.41)
pt3dadd(769.91, -539.11, -132.94, 0.41)
pt3dadd(769.6, -539.41, -132.94, 0.41)
pt3dadd(768.59, -540.34, -140.93, 0.41)
pt3dadd(768.28, -540.74, -140.93, 0.41)
pt3dadd(768.08, -541.15, -140.93, 0.41)
pt3dadd(767.77, -541.25, -140.93, 0.41)
pt3dadd(766.85, -541.77, -140.93, 0.41)
pt3dadd(766.34, -541.87, -140.93, 0.41)
pt3dadd(766.04, -541.97, -140.93, 0.41)
pt3dadd(765.53, -542.16, -140.93, 0.41)
pt3dadd(763.19, -543.29, -148.91, 0.41)
pt3dadd(762.27, -543.6, -148.91, 0.41)
pt3dadd(761.25, -543.91, -148.91, 0.41)
pt3dadd(760.54, -544.92, -148.91, 0.41)
pt3dadd(759.21, -546.15, -148.91, 0.41)
pt3dadd(757.99, -547.07, -156.91, 0.41)
pt3dadd(757.17, -547.58, -156.91, 0.41)
pt3dadd(756.87, -547.58, -156.91, 0.41)
}
dend[39] {pt3dclear()
pt3dadd(755.53, -455.73, -5.09, 0.82)
pt3dadd(753.12, -455.77, -29.07, 0.61)
pt3dadd(752.4, -455.77, -29.07, 0.61)
pt3dadd(752.4, -455.87, -29.07, 0.61)
}
dend[40] {pt3dclear()
pt3dadd(752.4, -455.87, -29.07, 0.61)
pt3dadd(752.71, -456.79, -29.07, 0.61)
pt3dadd(752.4, -457.5, -29.07, 0.61)
pt3dadd(752.1, -457.91, -29.07, 0.61)
pt3dadd(751.49, -458.12, -29.07, 0.61)
pt3dadd(750.57, -458.52, -29.07, 0.61)
pt3dadd(750.36, -458.93, -29.07, 0.61)
pt3dadd(749.96, -459.34, -29.07, 0.61)
pt3dadd(749.55, -459.95, -29.07, 0.61)
pt3dadd(749.35, -460.05, -29.07, 0.61)
pt3dadd(747.72, -461.48, -37.06, 0.61)
pt3dadd(747.21, -461.58, -37.06, 0.61)
pt3dadd(746.8, -461.79, -37.06, 0.61)
pt3dadd(745.68, -461.99, -37.06, 0.61)
pt3dadd(745.47, -462.5, -37.06, 0.61)
pt3dadd(745.37, -462.5, -37.06, 0.61)
pt3dadd(742.82, -463.62, -45.05, 0.41)
pt3dadd(742.11, -463.73, -45.05, 0.41)
pt3dadd(741.3, -464.54, -45.05, 0.41)
pt3dadd(740.99, -465.77, -45.05, 0.41)
pt3dadd(740.79, -466.38, -45.05, 0.41)
pt3dadd(740.68, -466.58, -45.05, 0.41)
pt3dadd(738.85, -468.83, -53.04, 0.41)
pt3dadd(738.24, -468.93, -53.04, 0.41)
pt3dadd(737.63, -469.75, -53.04, 0.41)
pt3dadd(735.28, -471.89, -61.03, 0.41)
pt3dadd(734.88, -471.99, -61.03, 0.41)
pt3dadd(733.86, -473.32, -61.03, 0.41)
pt3dadd(733.14, -473.62, -61.03, 0.41)
pt3dadd(732.43, -473.93, -61.03, 0.41)
pt3dadd(729.88, -476.48, -69.02, 0.41)
pt3dadd(729.27, -476.68, -69.02, 0.41)
pt3dadd(729.07, -478.01, -69.02, 0.41)
pt3dadd(729.07, -478.42, -69.02, 0.41)
pt3dadd(728.66, -478.93, -69.02, 0.41)
pt3dadd(728.56, -479.95, -69.02, 0.41)
pt3dadd(727.64, -480.46, -69.02, 0.41)
pt3dadd(726.93, -480.97, -69.02, 0.41)
pt3dadd(726.62, -481.28, -69.02, 0.41)
pt3dadd(725.3, -482.6, -77.01, 0.41)
pt3dadd(724.79, -482.91, -77.01, 0.41)
pt3dadd(724.28, -483.32, -77.01, 0.41)
pt3dadd(723.67, -484.03, -77.01, 0.41)
pt3dadd(723.36, -484.74, -77.01, 0.41)
pt3dadd(722.95, -485.25, -77.01, 0.41)
pt3dadd(721.53, -486.68, -85, 0.41)
pt3dadd(721.22, -487.19, -85, 0.41)
pt3dadd(720.92, -488.31, -85, 0.41)
pt3dadd(720.71, -489.03, -85, 0.41)
pt3dadd(719.29, -490.05, -85, 0.41)
pt3dadd(718.27, -490.15, -85, 0.41)
pt3dadd(717.96, -490.25, -85, 0.41)
pt3dadd(715.92, -489.95, -92.99, 0.41)
pt3dadd(715.11, -490.05, -92.99, 0.41)
pt3dadd(714.39, -489.13, -92.99, 0.41)
pt3dadd(714.29, -488.83, -92.99, 0.41)
pt3dadd(713.68, -488.31, -92.99, 0.41)
pt3dadd(712.87, -487.91, -92.99, 0.41)
pt3dadd(711.64, -487.91, -92.99, 0.41)
pt3dadd(711.03, -487.7, -92.99, 0.41)
pt3dadd(710.62, -487.4, -92.99, 0.41)
pt3dadd(710.22, -486.48, -116.96, 0.41)
pt3dadd(710.22, -485.97, -116.96, 0.41)
pt3dadd(711.64, -486.27, -124.95, 0.41)
}
dend[41] {pt3dclear()
pt3dadd(752.4, -455.87, -29.07, 0.61)
pt3dadd(751.89, -455.77, -29.07, 0.61)
pt3dadd(751.59, -455.67, -29.07, 0.61)
pt3dadd(749.86, -455.56, -29.07, 0.61)
pt3dadd(748.73, -454.75, -29.07, 0.61)
pt3dadd(748.33, -454.75, -29.07, 0.61)
pt3dadd(747.61, -454.44, -29.07, 0.61)
pt3dadd(746.49, -453.83, -29.07, 0.61)
pt3dadd(744.56, -453.63, -29.07, 0.61)
pt3dadd(743.64, -453.52, -29.07, 0.61)
}
}
proc shape3d_13() {
dend[41] { pt3dadd(738.95, -453.42, -37.06, 0.41)
pt3dadd(736.61, -453.22, -37.06, 0.41)
pt3dadd(735.08, -452.91, -37.06, 0.41)
pt3dadd(734.57, -452.81, -37.06, 0.41)
pt3dadd(727.44, -452.71, -45.05, 0.41)
pt3dadd(726.93, -452.71, -45.05, 0.41)
pt3dadd(726.72, -452.5, -45.05, 0.41)
pt3dadd(725.81, -452.2, -45.05, 0.41)
pt3dadd(725.7, -451.99, -45.05, 0.41)
pt3dadd(724.18, -451.79, -45.05, 0.41)
pt3dadd(722.44, -451.59, -45.05, 0.41)
pt3dadd(717.96, -451.48, -45.05, 0.41)
pt3dadd(717.65, -451.18, -45.05, 0.41)
pt3dadd(717.55, -450.87, -45.05, 0.41)
pt3dadd(717.25, -450.77, -45.05, 0.41)
pt3dadd(711.64, -450.77, -53.04, 0.41)
pt3dadd(711.23, -450.16, -53.04, 0.41)
pt3dadd(709.71, -449.95, -53.04, 0.41)
pt3dadd(708.89, -449.85, -53.04, 0.41)
pt3dadd(708.59, -449.65, -53.04, 0.41)
pt3dadd(708.08, -449.65, -53.04, 0.41)
pt3dadd(707.26, -449.24, -53.04, 0.41)
pt3dadd(705.32, -449.14, -53.04, 0.41)
pt3dadd(703.18, -448.42, -53.04, 0.41)
pt3dadd(702.57, -448.22, -53.04, 0.41)
pt3dadd(701.25, -448.02, -53.04, 0.41)
pt3dadd(698.19, -447.91, -53.04, 0.41)
pt3dadd(695.54, -447.61, -53.04, 0.41)
pt3dadd(692.99, -447.4, -53.04, 0.41)
pt3dadd(692.49, -446.89, -53.04, 0.41)
pt3dadd(692.08, -446.89, -53.04, 0.41)
pt3dadd(691.77, -446.79, -53.04, 0.41)
pt3dadd(690.04, -446.79, -53.04, 0.41)
pt3dadd(688.1, -446.79, -61.03, 0.41)
pt3dadd(685.05, -447.2, -61.03, 0.41)
pt3dadd(683.11, -446.99, -61.03, 0.41)
pt3dadd(682.29, -446.89, -61.03, 0.41)
pt3dadd(680.46, -445.77, -61.03, 0.41)
pt3dadd(679.95, -445.36, -61.03, 0.41)
pt3dadd(678.73, -445.06, -61.03, 0.41)
pt3dadd(677.51, -444.44, -61.03, 0.41)
pt3dadd(673.84, -444.04, -69.02, 0.41)
pt3dadd(673.12, -444.04, -69.02, 0.41)
pt3dadd(672.72, -443.53, -69.02, 0.41)
pt3dadd(671.8, -443.32, -69.02, 0.41)
pt3dadd(669.25, -443.22, -69.02, 0.41)
pt3dadd(667.93, -442.81, -69.02, 0.41)
pt3dadd(667.01, -442.61, -69.02, 0.41)
pt3dadd(666.5, -442.3, -69.02, 0.41)
pt3dadd(664.16, -442.2, -69.02, 0.41)
pt3dadd(660.39, -440.87, -69.02, 0.41)
pt3dadd(659.27, -440.77, -69.02, 0.41)
pt3dadd(657.63, -440.26, -69.02, 0.41)
pt3dadd(656.41, -439.34, -69.02, 0.41)
pt3dadd(655.39, -439.14, -69.02, 0.41)
pt3dadd(654.37, -438.63, -69.02, 0.41)
pt3dadd(652.74, -438.42, -69.02, 0.41)
pt3dadd(652.13, -438.02, -69.02, 0.41)
pt3dadd(651.72, -437.81, -69.02, 0.41)
pt3dadd(651.22, -437.4, -69.02, 0.41)
pt3dadd(650.8, -437.4, -69.02, 0.41)
pt3dadd(649.58, -436.79, -69.02, 0.41)
pt3dadd(648.66, -436.38, -69.02, 0.41)
pt3dadd(648.57, -436.08, -69.02, 0.41)
pt3dadd(647.34, -435.77, -69.02, 0.41)
pt3dadd(647.04, -435.57, -69.02, 0.41)
pt3dadd(646.42, -435.36, -69.02, 0.41)
pt3dadd(645, -435.26, -69.02, 0.41)
pt3dadd(640.82, -435.06, -77.01, 0.41)
pt3dadd(640.3, -435.06, -77.01, 0.41)
pt3dadd(640.21, -434.85, -77.01, 0.41)
pt3dadd(638.78, -434.45, -77.01, 0.41)
pt3dadd(637.36, -433.32, -77.01, 0.41)
pt3dadd(636.44, -433.02, -77.01, 0.41)
pt3dadd(635.92, -432.41, -77.01, 0.41)
pt3dadd(635.32, -432.2, -77.01, 0.41)
pt3dadd(635.22, -432, -77.01, 0.41)
pt3dadd(632.36, -431.59, -77.01, 0.41)
pt3dadd(632.47, -431.49, -77.01, 0.41)
pt3dadd(630.02, -431.28, -77.01, 0.41)
pt3dadd(629.3, -430.98, -77.01, 0.41)
pt3dadd(629.1, -430.77, -77.01, 0.41)
pt3dadd(628.79, -430.67, -77.01, 0.41)
pt3dadd(627.88, -430.36, -77.01, 0.41)
pt3dadd(627.57, -430.16, -77.01, 0.41)
pt3dadd(625.03, -428.53, -85, 0.41)
pt3dadd(623.7, -427.61, -85, 0.41)
pt3dadd(623.4, -427.2, -85, 0.41)
pt3dadd(623.29, -426.9, -85, 0.41)
pt3dadd(623.09, -426.79, -85, 0.41)
}
dend[42] {pt3dclear()
pt3dadd(833.39, -496.24, -5.09, 0.51)
pt3dadd(832.36, -496.61, 2.89, 0.92)
pt3dadd(831.34, -496.61, 2.89, 0.92)
pt3dadd(831.04, -496.82, 2.89, 0.92)
pt3dadd(829.3, -497.02, 2.89, 0.92)
pt3dadd(826.14, -497.53, 2.89, 0.92)
pt3dadd(825.23, -497.94, 2.89, 0.92)
pt3dadd(824.72, -498.04, 2.89, 0.92)
pt3dadd(824.51, -498.25, 2.89, 0.71)
pt3dadd(824.41, -498.04, 2.89, 0.71)
pt3dadd(822.58, -498.14, 2.89, 0.71)
pt3dadd(821.56, -498.55, 2.89, 0.71)
pt3dadd(819.83, -498.96, 2.89, 0.71)
pt3dadd(818.6, -499.57, 2.89, 0.71)
pt3dadd(818.4, -499.78, 2.89, 0.71)
pt3dadd(817.69, -499.88, 2.89, 0.71)
pt3dadd(816.87, -500.49, 2.89, 0.71)
pt3dadd(815.85, -500.9, 2.89, 0.71)
pt3dadd(814.83, -501.41, 2.89, 0.71)
pt3dadd(814.83, -501.61, 2.89, 0.71)
pt3dadd(814.43, -502.02, -13.09, 0.51)
pt3dadd(814.22, -502.23, -13.09, 0.51)
pt3dadd(813.92, -502.53, -13.09, 0.51)
pt3dadd(812.29, -502.84, -13.09, 0.51)
pt3dadd(810.04, -503.76, -13.09, 0.51)
pt3dadd(808.82, -503.96, -13.09, 0.51)
pt3dadd(808.01, -504.57, -13.09, 0.51)
pt3dadd(806.27, -504.98, -13.09, 0.51)
pt3dadd(806.17, -505.08, -13.09, 0.51)
pt3dadd(805.97, -504.88, 2.89, 0.51)
pt3dadd(804.34, -505.8, 2.89, 0.51)
pt3dadd(803.52, -506.61, 2.89, 0.51)
pt3dadd(800.57, -507.73, 2.89, 0.51)
pt3dadd(799.24, -508.96, 2.89, 0.51)
pt3dadd(798.43, -509.37, 2.89, 0.51)
pt3dadd(797.92, -509.78, 2.89, 0.51)
pt3dadd(796.7, -510.59, 2.89, 0.51)
pt3dadd(796.19, -511, 2.89, 0.51)
pt3dadd(795.37, -511.51, 2.89, 0.51)
pt3dadd(794.25, -512.02, 2.89, 0.51)
pt3dadd(793.84, -512.33, 2.89, 0.51)
pt3dadd(793.33, -512.53, 2.89, 0.51)
pt3dadd(793.23, -512.94, 2.89, 0.51)
pt3dadd(792.62, -513.24, 2.89, 0.51)
pt3dadd(789.97, -513.86, 2.89, 0.51)
pt3dadd(788.95, -514.05, 2.89, 0.51)
pt3dadd(788.65, -514.26, 2.89, 0.51)
pt3dadd(787.01, -515.28, 2.89, 0.51)
pt3dadd(785.89, -515.59, 2.89, 0.51)
pt3dadd(785.18, -515.79, 2.89, 0.51)
pt3dadd(783.35, -516.29, 2.89, 0.51)
pt3dadd(781.21, -517.63, 2.89, 0.51)
pt3dadd(780.7, -518.04, 2.89, 0.51)
pt3dadd(779.78, -518.35, 2.89, 0.51)
pt3dadd(779.27, -518.75, 2.89, 0.51)
pt3dadd(778.96, -518.96, 2.89, 0.51)
pt3dadd(778.05, -519.88, 2.89, 0.51)
pt3dadd(776.82, -520.28, 2.89, 0.51)
pt3dadd(775.7, -520.69, 2.89, 0.51)
pt3dadd(775.4, -521.1, 2.89, 0.51)
pt3dadd(775.4, -521.51, -5.09, 0.51)
pt3dadd(774.28, -521.61, -5.09, 0.51)
pt3dadd(771.73, -522.22, -5.09, 0.51)
pt3dadd(769.69, -522.63, -5.09, 0.51)
pt3dadd(768.37, -522.83, -5.09, 0.51)
pt3dadd(766.74, -523.34, -5.09, 0.51)
pt3dadd(765.41, -524.05, -5.09, 0.51)
pt3dadd(763.88, -524.36, -5.09, 0.51)
pt3dadd(763.37, -524.57, -5.09, 0.51)
pt3dadd(763.27, -524.77, -5.09, 0.51)
pt3dadd(761.54, -525.49, -5.09, 0.51)
pt3dadd(759.2, -525.79, -5.09, 0.51)
pt3dadd(759.2, -525.9, -5.09, 0.51)
pt3dadd(758.89, -525.79, -5.09, 0.51)
pt3dadd(758.38, -526.1, -5.09, 0.51)
pt3dadd(757.97, -526.2, -5.09, 0.51)
pt3dadd(757.36, -526.61, -5.09, 0.51)
pt3dadd(756.34, -526.8, -5.09, 0.51)
pt3dadd(753.49, -528.54, -5.09, 0.51)
pt3dadd(749.92, -529.26, -5.09, 0.51)
pt3dadd(748.09, -529.66, -5.09, 0.51)
pt3dadd(747.78, -529.98, -5.09, 0.51)
pt3dadd(746.87, -530.17, -5.09, 0.51)
pt3dadd(745.03, -530.89, -5.09, 0.51)
pt3dadd(744.93, -531.2, -5.09, 0.51)
pt3dadd(744.01, -532.02, -5.09, 0.51)
pt3dadd(743.2, -532.41, -5.09, 0.51)
pt3dadd(741.87, -532.92, -5.09, 0.51)
pt3dadd(741.97, -532.83, -5.09, 0.51)
pt3dadd(740.14, -533.34, -5.09, 0.51)
pt3dadd(739.63, -533.65, -5.09, 0.51)
pt3dadd(738.92, -533.75, -5.09, 0.51)
pt3dadd(738.31, -534.26, -5.09, 0.51)
pt3dadd(737.8, -534.57, -5.09, 0.51)
pt3dadd(736.06, -534.98, -5.09, 0.51)
pt3dadd(734.84, -535.59, -5.09, 0.51)
pt3dadd(731.68, -536.4, -5.09, 0.51)
pt3dadd(731.48, -536.61, -5.09, 0.51)
pt3dadd(730.77, -536.71, -5.09, 0.51)
pt3dadd(729.75, -536.91, -5.09, 0.51)
pt3dadd(729.13, -537.12, -5.09, 0.51)
pt3dadd(727.91, -537.73, -5.09, 0.51)
pt3dadd(727.4, -537.92, -5.09, 0.51)
pt3dadd(725.77, -538.24, -5.09, 0.51)
pt3dadd(725.47, -538.24, -5.09, 0.51)
pt3dadd(724.96, -538.54, -5.09, 0.51)
pt3dadd(724.04, -538.95, -5.09, 0.51)
pt3dadd(723.84, -539.36, -5.09, 0.51)
pt3dadd(723.02, -539.77, -5.09, 0.51)
pt3dadd(720.98, -540.69, -5.09, 0.51)
}
}
proc shape3d_14() {
dend[42] {pt3dadd(720.17, -541.91, -5.09, 0.51)
pt3dadd(718.94, -542.32, -5.09, 0.51)
pt3dadd(717.93, -542.41, -5.09, 0.51)
pt3dadd(716.4, -542.92, -5.09, 0.51)
pt3dadd(715.48, -543.04, -5.09, 0.51)
pt3dadd(713.65, -543.95, -5.09, 0.51)
pt3dadd(712.53, -544.36, -5.09, 0.51)
pt3dadd(712.02, -544.57, -5.09, 0.51)
pt3dadd(711.61, -544.87, -5.09, 0.51)
pt3dadd(710.49, -545.17, -5.09, 0.51)
pt3dadd(709.47, -545.38, -5.09, 0.51)
pt3dadd(708.35, -545.69, -5.09, 0.51)
pt3dadd(707.02, -545.89, -5.09, 0.51)
pt3dadd(705.6, -546.5, -5.09, 0.51)
pt3dadd(703.15, -546.8, -5.09, 0.51)
pt3dadd(702.95, -547.01, -5.09, 0.51)
pt3dadd(701.72, -547.12, -5.09, 0.51)
pt3dadd(701.21, -547.63, -5.09, 0.51)
pt3dadd(699.69, -547.73, -5.09, 0.51)
pt3dadd(699.28, -547.41, -5.09, 0.51)
pt3dadd(696.53, -547.41, -5.09, 0.51)
pt3dadd(695.2, -547.83, -5.09, 0.51)
pt3dadd(693.27, -548.65, -5.09, 0.51)
pt3dadd(692.76, -549.04, -5.09, 0.51)
pt3dadd(692.25, -549.16, -5.09, 0.51)
pt3dadd(691.64, -549.36, -5.09, 0.51)
pt3dadd(690.31, -549.97, -5.09, 0.51)
pt3dadd(688.88, -550.48, -5.09, 0.51)
pt3dadd(687.46, -550.99, -5.09, 0.51)
pt3dadd(685.62, -551.5, -5.09, 0.51)
pt3dadd(683.79, -552.41, -5.09, 0.51)
pt3dadd(682.77, -553.03, -5.09, 0.51)
pt3dadd(682.67, -553.24, -5.09, 0.51)
pt3dadd(680.32, -553.75, 2.89, 0.51)
pt3dadd(678.08, -553.85, 2.89, 0.51)
pt3dadd(676.86, -554.26, 2.89, 0.51)
pt3dadd(676.15, -554.46, 2.89, 0.51)
pt3dadd(675.74, -555.07, 2.89, 0.51)
pt3dadd(674.41, -555.99, 2.89, 0.51)
pt3dadd(670.85, -556.71, 2.89, 0.51)
pt3dadd(670.54, -557.01, 2.89, 0.51)
pt3dadd(669.52, -557.11, 2.89, 0.51)
pt3dadd(668.61, -557.52, 2.89, 0.51)
pt3dadd(666.87, -558.03, 2.89, 0.51)
pt3dadd(666.57, -558.34, 2.89, 0.51)
pt3dadd(666.26, -558.44, 2.89, 0.51)
pt3dadd(665.45, -559.04, 2.89, 0.51)
pt3dadd(665.34, -559.36, 2.89, 0.51)
pt3dadd(662.8, -560.99, 2.89, 0.51)
pt3dadd(661.98, -562.01, 2.89, 0.51)
}
}
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()
}
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(7, 8, 9,11,15,16,19,20,21,22,24,25,26,27,30,31,35,36,37,38,40,41,42)
DistalSynapsePositions = new Vector(0,0)
DistalSynapsePositions .append(0.74148,0.68736,0.90487,0.83448,0.72726,0.76903,0.69567,0.93761, 0.5, 0.5,0.92656,0.87646, 0.5, 0.5,0.51709, 0.5285,0.78209,0.81908,0.86503,0.80285,0.67717,0.64479, 0.8526)
for i= 0 , 22 {
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, 1, 2, 3, 4, 5,10,11,12,13,14,17,23,24,25,28,29,32,42)
ProximalSynapsePositions = new Vector(0,0)
ProximalSynapsePositions .append(0.5, 0.5, 0.5, 0.5, 0.5,0.29657, 0.5, 0.0038791,0.12237, 0.5, 0.075611,0.11142, 0.5 , 0.052691, 0.046502, 0.5 , 0.041421,0.12084, 0.0040893)
for i= 0 , 18 {
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 , 22 {
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) // # 41
}
// //***** 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) // # 42
// //***** Sprout
for i= 0 , 18 {
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) // # 42
}
}
func is_art() { return 0 }
endtemplate GranuleCell111
//************************************************************************************************************