begintemplate l4
public apcounter,apvec
public all,dends,tcdends,ccdends,ccsyn,tcsyn,ccnetcon,tcnetcon,soma,dend
proc celldef() {
topol()
subsets()
geom()
biophys()
geom_nseg()
}
create soma, dend[49]
proc topol() { local i
connect dend(0), soma(1)
for i = 1, 2 connect dend[i](0), dend[i-1](1)
connect dend[3](0), dend[1](1)
for i = 4, 5 connect dend[i](0), dend[3](1)
connect dend[6](0), dend(1)
for i = 7, 8 connect dend[i](0), dend[6](1)
connect dend[9](0), soma(0)
for i = 10, 13 connect dend[i](0), dend[i-1](1)
connect dend[14](0), dend[12](1)
connect dend[15](0), dend[11](1)
connect dend[16](0), dend[10](1)
connect dend[17](0), dend[9](1)
connect dend[18](0), soma(0)
for i = 19, 20 connect dend[i](0), dend[i-1](1)
connect dend[21](0), dend[19](1)
connect dend[22](0), dend[18](1)
connect dend[23](0), soma(0)
for i = 24, 25 connect dend[i](0), dend[i-1](1)
connect dend[26](0), dend[24](1)
connect dend[27](0), dend[23](1)
for i = 28, 29 connect dend[i](0), dend[27](1)
for i = 30, 31 connect dend[i](0), dend[29](1)
connect dend[32](0), soma(0)
for i = 33, 34 connect dend[i](0), dend[32](1)
for i = 35, 37 connect dend[i](0), dend[i-1](1)
connect dend[38](0), dend[36](1)
for i = 39, 40 connect dend[i](0), dend[38](1)
connect dend[41](0), dend[35](1)
connect dend[42](0), dend[34](1)
for i = 43, 44 connect dend[i](0), dend[i-1](1)
connect dend[45](0), dend[43](1)
connect dend[46](0), dend[42](1)
for i = 47, 48 connect dend[i](0), dend[46](1)
basic_shape()
}
proc shape3d_1() {
soma {pt3dclear()
pt3dadd(-10.635, -6.82071, 2.8, 17.1033)
pt3dadd(-15.74, -15.13, 2.4, 1.87)
}
dend {pt3dclear()
pt3dadd(-15.74, -15.13, 2.4, 1.87)
pt3dadd(-16.19, -18.52, 2.4, 1.87)
pt3dadd(-14.84, -19.31, 2.4, 1.87)
pt3dadd(-15.03, -21.36, 2.4, 1.87)
pt3dadd(-16.35, -23.79, 2.4, 1.87)
pt3dadd(-16.44, -25.62, 2.8, 1.87)
pt3dadd(-17.88, -26.65, 3.2, 1.87)
pt3dadd(-16.9, -27.93, 3.2, 2.38)
pt3dadd(-16.19, -29.49, 3.6, 2.38)
pt3dadd(-17.25, -31.11, 3.6, 2.38)
pt3dadd(-17.6, -33.21, 4.4, 2.21)
pt3dadd(-17.76, -33.8, 4.8, 2.21)
}
dend[1] {pt3dclear()
pt3dadd(-17.76, -33.8, 4.8, 2.21)
pt3dadd(-17.52, -36.06, 5.2, 1.36)
pt3dadd(-18.58, -37.68, 6, 1.36)
pt3dadd(-20.33, -39.9, 6, 1.36)
pt3dadd(-22.14, -41.96, 6, 1.53)
pt3dadd(-23.68, -43.75, 6, 1.53)
pt3dadd(-24.85, -45.59, 6, 1.53)
pt3dadd(-26.72, -45.88, 6.4, 1.53)
pt3dadd(-28.05, -47.24, 6, 1.53)
pt3dadd(-29.6, -48.49, 6.4, 1.53)
pt3dadd(-29.69, -50.32, 6, 1.53)
pt3dadd(-31.13, -51.35, 6, 1.19)
pt3dadd(-32.26, -51.74, 6, 1.53)
pt3dadd(-33.63, -54.01, 6, 1.53)
pt3dadd(-34.7, -54.56, 6, 1.53)
pt3dadd(-34.42, -55.9, 5.6, 1.53)
pt3dadd(-35.59, -57.2, 5.6, 1.53)
pt3dadd(-36.33, -58.72, 5.6, 1.53)
pt3dadd(-36.69, -60.28, 5.2, 1.53)
pt3dadd(-37.96, -62.33, 5.2, 1.53)
pt3dadd(-39.4, -63.37, 4.8, 1.53)
pt3dadd(-41.22, -64.36, 4.8, 1.53)
pt3dadd(-43.09, -65.72, 4.8, 1.53)
pt3dadd(-42.86, -66.9, 4.8, 2.04)
pt3dadd(-41.97, -69.47, 4.8, 2.04)
pt3dadd(-43.74, -70.62, 4.8, 1.36)
}
dend[2] {pt3dclear()
pt3dadd(-43.74, -70.62, 4.8, 1.36)
pt3dadd(-45.56, -71.06, 5.2, 1.53)
pt3dadd(-46.95, -72.26, 5.2, 1.36)
pt3dadd(-48.87, -73.46, 5.2, 1.36)
pt3dadd(-51.27, -75.37, 5.2, 1.02)
pt3dadd(-54.1, -77.06, 5.2, 0.85)
pt3dadd(-55.76, -78.53, 5.2, 0.85)
pt3dadd(-56.44, -79.67, 5.2, 0.85)
pt3dadd(-57.13, -81.34, 5.2, 1.19)
pt3dadd(-58.98, -83.04, 5.6, 1.19)
pt3dadd(-59.99, -84.29, 6, 1.19)
pt3dadd(-60.14, -85.42, 6.4, 1.19)
pt3dadd(-60.77, -87.25, 6.4, 1.19)
pt3dadd(-62.21, -88.82, 6.8, 1.02)
pt3dadd(-63.59, -90.02, 6.8, 1.02)
pt3dadd(-64.38, -91.91, 6.8, 1.02)
pt3dadd(-64.85, -93.15, 7.2, 2.21)
pt3dadd(-64.84, -94.76, 7.6, 2.21)
pt3dadd(-64.13, -95.78, 7.6, 2.21)
}
dend[3] {pt3dclear()
pt3dadd(-43.74, -70.62, 4.8, 1.36)
pt3dadd(-43.07, -72.55, 4.8, 1.36)
pt3dadd(-43.86, -74.44, 4.4, 1.36)
pt3dadd(-44.65, -76.32, 4.4, 1.36)
pt3dadd(-44.53, -77.72, 4.4, 1.36)
pt3dadd(-45.95, -79.63, 3.6, 1.53)
pt3dadd(-47.22, -82.22, 3.2, 1.53)
pt3dadd(-48.9, -85.68, 2.8, 1.53)
pt3dadd(-50.16, -88.81, 2.8, 1.53)
pt3dadd(-51.1, -92.37, 2.8, 1.53)
pt3dadd(-50.65, -94.19, 2.8, 1.53)
pt3dadd(-52.23, -96.9, 2.4, 1.53)
pt3dadd(-54.3, -99.77, 2.4, 1.53)
pt3dadd(-55.09, -102.19, 2.8, 1.19)
pt3dadd(-56.62, -104.52, 2.8, 1.19)
pt3dadd(-58.36, -107.82, 2.4, 1.19)
pt3dadd(-59.75, -109.01, 2.4, 1.19)
}
dend[4] {pt3dclear()
pt3dadd(-59.75, -109.01, 2.4, 1.19)
pt3dadd(-58.71, -110.99, 2, 1.02)
pt3dadd(-59.28, -112.99, 1.6, 1.02)
pt3dadd(-60.66, -114.72, 1.2, 1.02)
pt3dadd(-61.94, -115.7, 0.8, 1.02)
pt3dadd(-63, -117.86, 0.4, 1.02)
pt3dadd(-63.29, -120.66, 0, 1.02)
pt3dadd(-65.2, -123.48, -0.4, 1.02)
pt3dadd(-66.19, -126.34, -0.8, 1.02)
pt3dadd(-66.49, -128.6, -1.2, 1.02)
pt3dadd(-66.21, -129.4, -1.6, 1.02)
pt3dadd(-66.09, -131.33, -2, 1.02)
pt3dadd(-66.92, -134.14, -2.8, 1.02)
pt3dadd(-67, -136.5, -3.6, 1.02)
pt3dadd(-66.88, -138.44, -4.4, 1.02)
pt3dadd(-68.58, -140.28, -5.2, 1.02)
pt3dadd(-70.07, -141.7, -6, 1.02)
}
dend[5] {pt3dclear()
pt3dadd(-59.75, -109.01, 2.4, 1.19)
pt3dadd(-62.47, -111.57, 2.4, 1.36)
pt3dadd(-63.9, -113.14, 2, 1.36)
pt3dadd(-64.52, -115.51, 1.6, 1.36)
pt3dadd(-65.69, -117.35, 1.6, 1.36)
pt3dadd(-67.87, -119.36, 1.6, 1.36)
pt3dadd(-67.8, -121.67, 1.6, 1.36)
pt3dadd(-69.13, -123.03, 1.2, 1.36)
pt3dadd(-71.21, -124.83, 0.8, 0.81)
pt3dadd(-72.38, -126.13, 0, 0.81)
pt3dadd(-72.95, -128.12, 0, 0.81)
pt3dadd(-73.51, -130.65, -0.4, 0.81)
pt3dadd(-74.46, -132.6, -0.4, 0.81)
pt3dadd(-75.25, -135.03, -0.4, 0.81)
pt3dadd(-75.55, -136.75, -0.4, 0.81)
pt3dadd(-74.51, -138.19, -0.4, 0.81)
pt3dadd(-74.13, -138.78, -0.8, 0.81)
pt3dadd(-74.28, -140.45, -1.6, 0.81)
pt3dadd(-74.69, -142.39, -2.4, 0.81)
pt3dadd(-76.16, -145.41, -2.8, 0.81)
pt3dadd(-78.65, -146.81, -2.8, 1.02)
pt3dadd(-79.55, -148.37, -2.8, 1.02)
pt3dadd(-81.03, -150.86, -2.8, 1.02)
pt3dadd(-83.22, -152.34, -2.8, 1.02)
pt3dadd(-84.6, -154.07, -2.8, 1.02)
pt3dadd(-87.52, -157.59, -3.2, 1.87)
}
dend[6] {pt3dclear()
pt3dadd(-17.76, -33.8, 4.8, 2.21)
pt3dadd(-14.96, -34.1, 4.8, 1.7)
pt3dadd(-12.91, -34.83, 5.6, 1.02)
pt3dadd(-12.36, -36.44, 5.6, 1.02)
pt3dadd(-11.83, -35.36, 5.6, 1.53)
pt3dadd(-9.64, -33.88, 6, 1.53)
pt3dadd(-7.54, -33.7, 6, 1.19)
pt3dadd(-4.59, -33.4, 6.4, 1.53)
pt3dadd(-0.56, -33.63, 6.4, 1.53)
pt3dadd(2.57, -34.36, 6.4, 1.87)
pt3dadd(6.02, -35.5, 6.4, 1.87)
pt3dadd(8.77, -35.64, 6.8, 1.53)
pt3dadd(11.03, -36.48, 7.2, 1.7)
pt3dadd(13.62, -37.74, 7.2, 1.36)
pt3dadd(16.69, -38.3, 7.2, 2.04)
pt3dadd(19.5, -39.67, 7.2, 1.36)
pt3dadd(22.26, -40.88, 7.2, 1.36)
pt3dadd(23.45, -42.27, 8, 1.36)
pt3dadd(23.9, -43.55, 8, 1.36)
pt3dadd(24.18, -44.89, 8, 1.36)
pt3dadd(25.8, -45.42, 8, 1.36)
pt3dadd(25.12, -47.63, 8, 1.36)
pt3dadd(26.26, -48.85, 8, 1.36)
pt3dadd(27.56, -50.02, 8, 1.7)
}
dend[7] {pt3dclear()
pt3dadd(27.56, -50.02, 8, 1.7)
pt3dadd(26.5, -51.65, 8.4, 0.85)
pt3dadd(25.12, -53.38, 8.4, 0.85)
pt3dadd(23.89, -53.98, 8.4, 0.85)
pt3dadd(21.99, -55.43, 8.4, 0.85)
pt3dadd(18.88, -58.03, 8, 0.68)
pt3dadd(16.96, -59.23, 7.6, 0.68)
pt3dadd(15.74, -60.37, 7.2, 1.21)
pt3dadd(12.84, -61.36, 7.2, 1.21)
pt3dadd(10.17, -62.47, 7.6, 1.21)
pt3dadd(8.51, -63.4, 7.6, 1.21)
pt3dadd(7.49, -64.11, 8, 1.21)
pt3dadd(6.04, -64.07, 8, 1.21)
pt3dadd(4.01, -65.48, 8, 1.21)
pt3dadd(2.03, -66.52, 7.6, 1.21)
pt3dadd(1.4, -67.28, 8, 1.21)
pt3dadd(-0.9, -68.44, 8, 1.02)
pt3dadd(-3.09, -69.91, 8, 1.19)
pt3dadd(-3.73, -71.21, 8, 1.19)
pt3dadd(-5.43, -72.51, 8.4, 1.19)
pt3dadd(-6.71, -74.03, 8.4, 1.19)
pt3dadd(-8.05, -74.85, 8.4, 1.19)
pt3dadd(-11.41, -77.09, 8.4, 1.19)
pt3dadd(-13.39, -78.13, 8.4, 1.19)
pt3dadd(-13.97, -79.59, 8.4, 1.19)
pt3dadd(-15.62, -81.05, 8.4, 1.19)
pt3dadd(-17.12, -81.93, 8.4, 1.19)
pt3dadd(-18.28, -83.77, 8.4, 1.19)
pt3dadd(-19.86, -87.01, 8.4, 1.19)
pt3dadd(-21.19, -88.37, 8.4, 1.19)
pt3dadd(-22.28, -91.98, 8.8, 1.19)
pt3dadd(-24.04, -93.66, 8.8, 1.19)
pt3dadd(-28.27, -101.23, 8.8, 1.19)
pt3dadd(-31.1, -102.93, 8.8, 1.19)
pt3dadd(-35.27, -104.9, 8.8, 1.19)
pt3dadd(-37.89, -106.7, 8.8, 1.19)
pt3dadd(-39.92, -108.12, 8.8, 1.19)
pt3dadd(-43.55, -110.63, 8.8, 1.19)
pt3dadd(-46.49, -112, 8.8, 1.19)
pt3dadd(-48.91, -112.29, 8.8, 0.68)
}
dend[8] {pt3dclear()
pt3dadd(27.56, -50.02, 8, 1.7)
pt3dadd(28.7, -51.25, 8.4, 1.02)
pt3dadd(29.68, -52.53, 8.4, 1.02)
pt3dadd(30.95, -53.78, 8.4, 0.68)
pt3dadd(31.86, -55.63, 8, 0.68)
pt3dadd(33.24, -57.04, 8, 0.68)
pt3dadd(34.77, -58.85, 7.6, 0.68)
pt3dadd(35.99, -60.32, 7.2, 0.68)
pt3dadd(37.15, -63.69, 8, 0.68)
pt3dadd(37.7, -65.03, 8.4, 0.68)
}
dend[9] {pt3dclear()
pt3dadd(-10.635, -6.82071, 2.8, 1.87)
pt3dadd(1.42, -4.91, 0, 1.87)
pt3dadd(5.08, -5.08, 0, 2.04)
pt3dadd(8.68, -5.1, 0, 2.04)
pt3dadd(10.46, -5.57, 0, 2.04)
pt3dadd(13.52, -5.59, 0, 1.87)
pt3dadd(16.04, -5.08, 0, 1.53)
}
}
proc shape3d_2() {
dend[9] { pt3dadd(19.22, -5.43, 0, 2.21)
pt3dadd(23.19, -4.96, 0, 2.21)
pt3dadd(25.13, -5.37, 0, 2.21)
pt3dadd(26.55, -6.86, 0, 2.21)
pt3dadd(28.75, -6.46, 0.8, 2.21)
pt3dadd(31.33, -7.19, 0.8, 2.55)
}
dend[10] {pt3dclear()
pt3dadd(31.33, -7.19, 0.8, 2.55)
pt3dadd(33.16, -7.28, 0.8, 2.04)
}
dend[11] {pt3dclear()
pt3dadd(33.16, -7.28, 0.8, 2.04)
pt3dadd(35.11, -8.23, 0.8, 1.19)
pt3dadd(36.24, -8.92, 0.8, 1.19)
pt3dadd(38.6, -7.93, 0.8, 1.19)
pt3dadd(41.08, -8.87, 0.8, 2.38)
}
dend[12] {pt3dclear()
pt3dadd(41.08, -8.87, 0.8, 2.38)
pt3dadd(43.58, -11.42, 0.8, 1.36)
pt3dadd(45.64, -13.77, 0.8, 1.36)
pt3dadd(47.69, -14.5, 0.8, 1.36)
pt3dadd(49.75, -15.23, 2, 1.7)
}
dend[13] {pt3dclear()
pt3dadd(49.75, -15.23, 2, 1.7)
pt3dadd(51.42, -15.92, 2, 1.02)
pt3dadd(53.04, -16.44, 2, 1.02)
pt3dadd(54.32, -16, 2, 1.02)
pt3dadd(56.1, -16.46, 2, 1.02)
pt3dadd(57.99, -17.25, 2, 1.02)
pt3dadd(59.72, -18.09, 2, 1.02)
pt3dadd(61.7, -17.59, 2, 1.02)
pt3dadd(62.83, -17.74, 2, 1.02)
pt3dadd(64.94, -18.63, 2, 1.02)
pt3dadd(66.66, -18.4, 2, 1.19)
pt3dadd(69.78, -19.12, 2, 1.19)
pt3dadd(71.4, -19.64, 1.6, 1.19)
pt3dadd(74.31, -20.26, 1.6, 1.19)
pt3dadd(76.15, -21.43, 1.2, 1.19)
pt3dadd(77.08, -23.08, 1.2, 1.19)
pt3dadd(79.68, -24.89, 0.8, 1.19)
pt3dadd(81.2, -26.7, 0, 1.19)
pt3dadd(83.21, -28.34, -0.4, 1.19)
pt3dadd(85.37, -29.4, -1.2, 1.19)
}
dend[14] {pt3dclear()
pt3dadd(49.75, -15.23, 2, 1.7)
pt3dadd(51.43, -17.53, 2, 1.36)
pt3dadd(53.66, -19.28, 2, 1.36)
pt3dadd(56.52, -20.81, 2.8, 1.02)
pt3dadd(58.9, -21.97, 3.2, 1.36)
pt3dadd(60.63, -23.35, 3.2, 1.36)
pt3dadd(61.12, -24.26, 3.2, 1.53)
pt3dadd(62.8, -25.48, 3.2, 1.53)
pt3dadd(64.19, -24.82, 3.2, 1.36)
pt3dadd(66.35, -25.88, 3.2, 1.53)
pt3dadd(68.79, -27.2, 3.2, 1.53)
pt3dadd(69.56, -28.91, 3.2, 1.53)
pt3dadd(70.17, -30.68, 3.2, 1.53)
pt3dadd(71.57, -31.09, 2.8, 1.53)
pt3dadd(72.29, -33.18, 2, 1.53)
}
dend[15] {pt3dclear()
pt3dadd(41.08, -8.87, 0.8, 2.38)
pt3dadd(44.52, -8.4, 0.8, 1.36)
pt3dadd(47.27, -9.61, 0.8, 1.36)
pt3dadd(50.86, -8.56, 0.8, 1.36)
pt3dadd(53.18, -9.02, 0.8, 1.19)
pt3dadd(55.43, -8.78, 0.8, 1.19)
pt3dadd(56.36, -10.44, 0.8, 1.19)
pt3dadd(58.56, -10.04, 0.8, 1.19)
pt3dadd(61, -11.9, 0.8, 1.19)
pt3dadd(63.16, -12.95, 0.8, 1.19)
pt3dadd(66.07, -13.57, 1.2, 1.19)
pt3dadd(68.01, -13.98, 1.2, 1.19)
pt3dadd(69.85, -15.14, 1.6, 1.19)
pt3dadd(71.95, -15.5, 1.6, 1.19)
pt3dadd(74, -15.69, 1.6, 1.19)
pt3dadd(75.83, -16.32, 1.6, 1.19)
pt3dadd(78.4, -15.44, 2, 1.19)
pt3dadd(81.21, -16.27, 2, 1.19)
pt3dadd(83.79, -16.46, 2, 1.19)
pt3dadd(86.04, -15.68, 2, 1.19)
pt3dadd(89.79, -14.57, 2, 1.19)
pt3dadd(91.88, -13.85, 2, 1.19)
pt3dadd(94.36, -14.79, 2, 1.19)
pt3dadd(96.51, -14.77, 2, 1.19)
pt3dadd(99.95, -14.31, 2, 1.19)
pt3dadd(102.68, -13.37, 2, 1.19)
pt3dadd(105.47, -13.13, 2, 1.19)
pt3dadd(109.34, -12.34, 2, 1.19)
pt3dadd(112.71, -11.17, 2, 1.19)
pt3dadd(115.34, -9.91, 2, 1.19)
pt3dadd(115.8, -8.13, 2, 1.19)
pt3dadd(117.81, -5.1, 2.8, 1.19)
pt3dadd(117.59, -4.46, 3.2, 1.19)
pt3dadd(118.61, -3.75, 3.6, 1.19)
pt3dadd(119.3, -2.61, 4, 1.19)
}
dend[16] {pt3dclear()
pt3dadd(33.16, -7.28, 0.8, 2.04)
pt3dadd(32.92, -9.7, 0.8, 1.36)
pt3dadd(33.52, -10.93, 0.8, 1.36)
pt3dadd(34.07, -12.54, 0.8, 1.36)
pt3dadd(35.21, -13.23, 0.8, 1.36)
pt3dadd(34.46, -13.66, 0.8, 1.7)
pt3dadd(34.91, -16.03, 0.8, 1.19)
pt3dadd(34.51, -18.5, 0.8, 1.53)
pt3dadd(36.41, -20.37, 0.8, 1.53)
pt3dadd(37.39, -21.65, 0.8, 1.53)
pt3dadd(38.9, -21.85, 0.8, 1.53)
pt3dadd(39.45, -23.45, 0.8, 1.53)
pt3dadd(40.06, -25.22, 0.8, 1.53)
pt3dadd(40.5, -26.51, 0.8, 1.53)
pt3dadd(41.32, -27.84, 0.8, 1.53)
pt3dadd(42.97, -31.59, 0.4, 1.53)
pt3dadd(44.56, -34.1, 0.4, 1.53)
pt3dadd(44.52, -36.09, 0, 1.53)
pt3dadd(44.64, -36.95, 0, 1.53)
pt3dadd(44.06, -38.41, -0.4, 1.53)
pt3dadd(44.13, -39.64, -0.4, 1.53)
pt3dadd(43.38, -40.08, -0.8, 1.53)
pt3dadd(42.96, -40.95, -1.2, 1.53)
pt3dadd(42.16, -42.3, -1.2, 1.53)
pt3dadd(41.43, -43.81, -1.6, 1.53)
pt3dadd(40.11, -46.78, -2, 1.53)
pt3dadd(39.64, -48.56, -2, 1.53)
pt3dadd(38.74, -51.73, -2.4, 1.19)
pt3dadd(37.96, -54.69, -2.4, 1.19)
pt3dadd(36.98, -58.09, -2.4, 1.19)
pt3dadd(36.42, -61.7, -2, 1.19)
pt3dadd(35.91, -64.93, -1.6, 1.19)
pt3dadd(35.19, -68.05, -1.6, 0.85)
pt3dadd(35.42, -69.23, -1.6, 0.85)
pt3dadd(35.71, -71.11, -1.2, 1.36)
pt3dadd(35.3, -73.05, -0.8, 1.36)
pt3dadd(34.56, -74.56, -0.8, 1.36)
pt3dadd(35.01, -76.39, -0.4, 1.36)
pt3dadd(35.34, -77.35, 0, 1.36)
pt3dadd(35.73, -78.48, 0.4, 1.36)
pt3dadd(34.77, -79.88, 0.8, 1.36)
pt3dadd(32.42, -81.41, 1.6, 1.36)
pt3dadd(31.36, -82.5, 2.4, 1.36)
pt3dadd(29.67, -85.96, 3.2, 0.68)
pt3dadd(28.35, -88.39, 3.2, 0.68)
}
dend[17] {pt3dclear()
pt3dadd(31.33, -7.19, 0.8, 2.55)
pt3dadd(31.92, -6.27, 0.8, 0.85)
pt3dadd(33.94, -4.32, 0.8, 0.85)
pt3dadd(36.83, -3.32, 0.8, 1.7)
pt3dadd(39.35, -2.81, 0.8, 1.7)
pt3dadd(44.2, -3.84, 0.8, 1.7)
pt3dadd(46.89, -3.81, 1.2, 1.7)
pt3dadd(49.91, -4.21, 1.2, 1.7)
pt3dadd(52.97, -4.24, 1.6, 1.7)
pt3dadd(56.03, -3.72, 2, 1.7)
pt3dadd(58.72, -3.69, 2.4, 1.7)
pt3dadd(60.49, -3.09, 2.8, 1.7)
pt3dadd(63.22, -2.68, 2.8, 1.7)
pt3dadd(65.97, -3.35, 2.8, 1.7)
pt3dadd(68.06, -2.1, 2.4, 1.7)
pt3dadd(70.42, -1.64, 2, 1.7)
pt3dadd(73.1, -1.62, 2, 1.7)
pt3dadd(76.32, -0.51, 1.6, 1.7)
pt3dadd(78.07, 1.71, 2, 1.7)
pt3dadd(81.07, 2.92, 2, 1.7)
pt3dadd(83.64, 4.35, 2.4, 1.7)
pt3dadd(84.86, 6.02, 2.8, 1.7)
pt3dadd(84.62, 7.74, 3.2, 1.7)
pt3dadd(85.41, 9.63, 2.8, 1.7)
pt3dadd(86.03, 12, 2.4, 1.36)
pt3dadd(85.96, 13.78, 2, 1.19)
pt3dadd(86.85, 16.42, 2, 1.19)
}
dend[18] {pt3dclear()
pt3dadd(-10.635, -6.82071, 2.8, 2.55)
pt3dadd(-4.21, -0.55, -1.6, 2.55)
pt3dadd(-2.56, 0.92, -1.6, 2.55)
pt3dadd(0.01, 1.26, -2, 1.87)
pt3dadd(2.12, 0.37, -2.4, 1.87)
pt3dadd(4.06, -0.04, -2.8, 1.87)
pt3dadd(6.32, -0.34, -3.2, 1.87)
pt3dadd(8.15, -0.97, -3.6, 1.87)
}
dend[19] {pt3dclear()
pt3dadd(8.15, -0.97, -3.6, 1.87)
pt3dadd(10.86, -2.55, -4.4, 1.36)
pt3dadd(12.43, -3.45, -5.2, 1.36)
pt3dadd(13.83, -3.87, -5.6, 1.36)
}
dend[20] {pt3dclear()
pt3dadd(13.83, -3.87, -5.6, 1.36)
pt3dadd(16.83, -2.66, -6, 1.53)
pt3dadd(18.32, -1.78, -6.4, 1.53)
pt3dadd(20.86, -2.35, -6.4, 1.53)
pt3dadd(22.77, -0.61, -6.8, 1.53)
pt3dadd(25.78, 0.07, -7.2, 1.53)
pt3dadd(28.36, 0.41, -7.2, 1.36)
pt3dadd(31.36, 0.55, -7.2, 1.36)
pt3dadd(32.81, 1.05, -7.2, 1.36)
pt3dadd(34.85, 1.39, -7.2, 1.36)
pt3dadd(36.57, 1.62, -7.2, 1.36)
pt3dadd(38.45, 1.91, -7.2, 1.36)
pt3dadd(40.64, 2.85, -7.6, 1.36)
pt3dadd(43.37, 3.79, -7.6, 1.36)
pt3dadd(45.46, 4.51, -8, 1.36)
pt3dadd(47.35, 3.72, -8, 1.36)
pt3dadd(50.09, 4.66, -8.4, 1.36)
pt3dadd(52.34, 5.44, -8.4, 1.36)
pt3dadd(56.46, 7.04, -8.8, 1.36)
pt3dadd(60.64, 8.47, -9.6, 1.36)
pt3dadd(63.37, 9.41, -10.4, 1.36)
pt3dadd(63.69, 9.53, -11.2, 1.36)
pt3dadd(64.82, 9.91, -12, 1.36)
pt3dadd(66.1, 10.36, -12.8, 1.36)
pt3dadd(68.41, 10.97, -13.6, 1.36)
pt3dadd(70.18, 11.04, -14.8, 1.36)
pt3dadd(72.48, 12.19, -15.6, 1.36)
pt3dadd(76.34, 14.06, -15.6, 1.36)
}
}
proc shape3d_3() {
dend[20] { pt3dadd(78.09, 15.74, -16, 1.36)
pt3dadd(79.5, 15.33, -16.8, 1.36)
pt3dadd(81.33, 14.7, -17.6, 1.36)
pt3dadd(83.04, 16.01, -18.4, 1.36)
pt3dadd(84.28, 15.53, -19.2, 1.36)
pt3dadd(85.85, 14.64, -20, 1.36)
pt3dadd(87.07, 15.78, -20.8, 1.36)
}
dend[21] {pt3dclear()
pt3dadd(13.83, -3.87, -5.6, 1.36)
pt3dadd(15.72, -5.19, -6.4, 1.53)
pt3dadd(17.28, -5.02, -7.2, 1.53)
pt3dadd(17.51, -6.2, -8, 1.53)
pt3dadd(17.51, -6.2, -8.8, 1.53)
pt3dadd(17.94, -6.41, -9.6, 1.53)
pt3dadd(18.26, -6.3, -10.4, 1.53)
pt3dadd(18.7, -7.05, -11.2, 1.53)
pt3dadd(18.97, -7.31, -12, 1.53)
pt3dadd(19.67, -7.79, -12.8, 1.53)
pt3dadd(21.23, -7.61, -13.6, 1.53)
pt3dadd(23.38, -7.05, -14.4, 1.53)
pt3dadd(25.04, -6.66, -15.2, 1.53)
pt3dadd(26.16, -6.27, -16.4, 1.53)
pt3dadd(29.92, -5.16, -17.2, 1.53)
pt3dadd(33.3, -4.54, -18, 1.53)
pt3dadd(35.71, -3.71, -19.2, 1.53)
pt3dadd(38.39, -3.14, -20, 1.53)
pt3dadd(41.62, -3.65, -21.2, 1.53)
}
dend[22] {pt3dclear()
pt3dadd(8.15, -0.97, -3.6, 1.87)
pt3dadd(9.59, 1.14, -5.2, 1.53)
pt3dadd(11.13, 2.93, -6, 1.53)
pt3dadd(12.98, 5.37, -6.4, 1.36)
pt3dadd(13.17, 8.49, -6.8, 0.85)
pt3dadd(12.18, 10.31, -7.6, 0.85)
pt3dadd(12.11, 12.08, -8, 1.02)
pt3dadd(12.15, 14.07, -8.4, 1.02)
pt3dadd(12.13, 15.68, -8.4, 1.53)
pt3dadd(11.09, 17.66, -8.8, 1.19)
pt3dadd(10.37, 19.75, -8.8, 1.19)
pt3dadd(10.54, 23.95, -8.8, 1.36)
pt3dadd(11.11, 26.48, -8.4, 0.68)
pt3dadd(12.64, 29.34, -8.4, 0.68)
pt3dadd(14.02, 31.62, -8, 0.68)
pt3dadd(14.27, 33.5, -7.6, 1.02)
pt3dadd(15.27, 35.28, -7.2, 1.02)
pt3dadd(15.64, 36.31, -6.8, 1.02)
pt3dadd(16.21, 37.77, -6, 1.02)
pt3dadd(19.43, 38.87, -5.6, 1.02)
pt3dadd(22.64, 40.52, -5.6, 1.02)
pt3dadd(26.01, 41.68, -5.6, 1.02)
}
dend[23] {pt3dclear()
pt3dadd(-10.635, -6.82071, 2.8, 1.7)
pt3dadd(-21.14, -11.96, 3.6, 1.7)
pt3dadd(-24.53, -12.04, 3.6, 1.7)
pt3dadd(-27.11, -12.39, 3.6, 2.04)
pt3dadd(-30.64, -13.61, 3.6, 2.04)
pt3dadd(-34.18, -15.36, 3.6, 2.04)
pt3dadd(-36.2, -16.78, 3.6, 2.04)
pt3dadd(-38.6, -18.69, 3.6, 2.04)
pt3dadd(-41.12, -19.73, 3.6, 2.04)
pt3dadd(-45.36, -21.01, 3.6, 2.04)
pt3dadd(-49.7, -22.51, 3.6, 2.04)
}
dend[24] {pt3dclear()
pt3dadd(-49.7, -22.51, 3.6, 2.04)
pt3dadd(-52.05, -23.5, 0.4, 1.53)
pt3dadd(-55.91, -24.82, 0.4, 2.21)
pt3dadd(-59.07, -26.09, 1.2, 2.21)
pt3dadd(-61.26, -27.57, 1.2, 1.7)
pt3dadd(-64.31, -29.15, 0, 1.7)
pt3dadd(-68.75, -31.4, -0.4, 1.7)
pt3dadd(-72.17, -32.94, -0.8, 1.7)
pt3dadd(-75.21, -35.61, -1.2, 1.7)
pt3dadd(-78.54, -35.85, -1.2, 1.7)
pt3dadd(-82.34, -37.34, -1.2, 1.7)
pt3dadd(-84.06, -38.11, -1.6, 1.7)
}
dend[25] {pt3dclear()
pt3dadd(-84.06, -38.11, -1.6, 1.7)
pt3dadd(-87.09, -40.78, -1.6, 1.19)
pt3dadd(-90.9, -42.27, -1.6, 1.19)
pt3dadd(-94.38, -43.64, -1.6, 1.19)
pt3dadd(-96.3, -44.85, -1.6, 1.19)
pt3dadd(-97.2, -46.41, -1.6, 1.19)
pt3dadd(-99.18, -46.92, -1.2, 1.19)
pt3dadd(-101.97, -48.23, -1.2, 1.19)
pt3dadd(-103.55, -50.94, -0.8, 1.19)
pt3dadd(-106.54, -53.76, -0.8, 1.19)
pt3dadd(-108.29, -55.45, 0, 1.19)
pt3dadd(-111.71, -57.52, 0.4, 1.19)
pt3dadd(-113.25, -59.31, 0.4, 1.19)
pt3dadd(-114.1, -61.04, 0.4, 1.19)
pt3dadd(-116.62, -61.55, 0.8, 1.19)
pt3dadd(-118.01, -62.75, 0.8, 1.19)
pt3dadd(-118.36, -64.85, 1.2, 1.19)
pt3dadd(-119.85, -66.8, 1.6, 1.19)
pt3dadd(-121.71, -68.7, 2, 1.19)
pt3dadd(-125.5, -71.26, 2.4, 1.19)
pt3dadd(-128.2, -72.55, 2.8, 1.19)
pt3dadd(-130.93, -74.03, 3.2, 1.02)
pt3dadd(-134.36, -75.03, 3.2, 1.02)
pt3dadd(-137.53, -75.76, 3.2, 1.02)
pt3dadd(-139.13, -76.85, 3.6, 1.02)
pt3dadd(-142.77, -78.29, 4, 1.02)
pt3dadd(-143.36, -78.13, 4, 1.02)
pt3dadd(-147.06, -79.94, 4.4, 1.02)
pt3dadd(-148.98, -81.14, 4.4, 1.02)
pt3dadd(-151.7, -83.16, 4.8, 1.02)
pt3dadd(-153.4, -85, 5.2, 1.02)
pt3dadd(-155.48, -86.8, 5.6, 1.02)
}
dend[26] {pt3dclear()
pt3dadd(-84.06, -38.11, -1.6, 1.7)
pt3dadd(-88.85, -39.58, -2, 1.36)
pt3dadd(-90.3, -40.08, -2.4, 1.02)
pt3dadd(-91.97, -39.4, -2.4, 1.02)
pt3dadd(-93.58, -39.95, -2.8, 1.02)
pt3dadd(-95.45, -41.32, -3.2, 1.27)
pt3dadd(-97.16, -42.09, -3.6, 1.27)
pt3dadd(-98.12, -42.96, -4.4, 1.27)
pt3dadd(-99.62, -43.83, -5.2, 1.27)
pt3dadd(-101.91, -45.52, -5.6, 1.27)
pt3dadd(-104.05, -47.15, -5.6, 1.27)
pt3dadd(-105.53, -49.1, -6, 1.27)
pt3dadd(-106.37, -51.37, -6.4, 1.27)
pt3dadd(-108.56, -52.84, -6.8, 1.27)
pt3dadd(-111.61, -53.89, -7.6, 1.27)
pt3dadd(-114.4, -55.21, -7.6, 1.27)
pt3dadd(-118.47, -56.44, -8, 1.27)
pt3dadd(-122.27, -57.92, -8.4, 1.27)
pt3dadd(-126.45, -59.9, -8.8, 1.27)
pt3dadd(-132.07, -61.84, -9.2, 1.27)
pt3dadd(-136.5, -65.7, -9.6, 1.27)
pt3dadd(-140.55, -69.07, -10, 1.27)
pt3dadd(-144.13, -71.74, -10.4, 1.27)
pt3dadd(-147.59, -74.73, -10.8, 1.27)
pt3dadd(-149.84, -76.04, -11.2, 1.27)
pt3dadd(-151.85, -78.54, -11.6, 0.85)
pt3dadd(-155.22, -80.24, -11.6, 0.85)
pt3dadd(-156.98, -81.92, -12, 0.85)
pt3dadd(-159.26, -85.22, -12.4, 0.85)
pt3dadd(-161.17, -87.5, -12.8, 0.85)
pt3dadd(-162.67, -88.91, -13.6, 0.85)
pt3dadd(-165.46, -89.16, -14, 0.85)
pt3dadd(-168.14, -90.26, -14, 0.85)
pt3dadd(-170.38, -92.11, -14, 0.85)
pt3dadd(-171.1, -94.69, -14, 0.85)
pt3dadd(-170.49, -96.46, -14, 0.85)
pt3dadd(-170.48, -97.54, -14.4, 0.85)
pt3dadd(-171.59, -99.54, -14.8, 0.85)
pt3dadd(-173.42, -99.45, -15.2, 0.85)
pt3dadd(-175.52, -99.63, -15.6, 0.85)
pt3dadd(-177.67, -99.65, -16, 0.85)
pt3dadd(-180.3, -99.84, -16.4, 0.85)
pt3dadd(-182.49, -100.77, -16.8, 0.85)
pt3dadd(-185.17, -102.41, -17.2, 0.85)
pt3dadd(-187.57, -104.32, -17.6, 0.85)
pt3dadd(-190.3, -105.26, -18, 0.85)
pt3dadd(-193.67, -106.42, -18.4, 0.85)
pt3dadd(-196.41, -107.36, -18.8, 0.85)
pt3dadd(-199.35, -108.74, -19.2, 0.85)
pt3dadd(-202.08, -109.68, -19.6, 0.85)
pt3dadd(-204.17, -110.4, -20, 0.85)
pt3dadd(-205.61, -111.97, -20.8, 0.85)
pt3dadd(-208.72, -112.32, -21.2, 0.85)
}
dend[27] {pt3dclear()
pt3dadd(-49.7, -22.51, 3.6, 2.04)
pt3dadd(-54.37, -25.91, 3.6, 2.55)
}
dend[28] {pt3dclear()
pt3dadd(-54.37, -25.91, 3.6, 2.55)
pt3dadd(-58.66, -26.49, 4, 1.53)
pt3dadd(-62.68, -27.88, 4, 1.19)
pt3dadd(-66.06, -29.04, 4, 1.19)
pt3dadd(-68.69, -29.22, 4.4, 1.19)
pt3dadd(-70.33, -31.23, 4.8, 1.19)
pt3dadd(-73.97, -33.2, 4.8, 1.7)
pt3dadd(-76.6, -33.39, 4.8, 1.7)
pt3dadd(-79.61, -34.06, 5.2, 1.7)
pt3dadd(-82.12, -35.11, 5.2, 1.7)
pt3dadd(-85.6, -37.03, 5.2, 1.7)
pt3dadd(-88.7, -38.45, 5.2, 1.7)
pt3dadd(-92.67, -39.46, 5.2, 1.36)
pt3dadd(-95.39, -41.48, 5.2, 1.19)
pt3dadd(-98.82, -43.02, 5.2, 1.19)
pt3dadd(-102.3, -44.39, 5.6, 1.19)
pt3dadd(-104.92, -45.66, 6.4, 1.19)
pt3dadd(-108.24, -46.98, 6.4, 1.19)
pt3dadd(-110.44, -47.92, 6.8, 1.19)
pt3dadd(-113.16, -49.39, 7.6, 0.85)
pt3dadd(-115.73, -51.35, 7.6, 0.85)
pt3dadd(-117.75, -52.77, 7.6, 0.85)
pt3dadd(-121.56, -53.72, 7.6, 1.19)
pt3dadd(-125.85, -55.38, 7.6, 1.19)
pt3dadd(-130.56, -56.82, 8, 1.19)
pt3dadd(-132.92, -57.81, 8, 1.19)
pt3dadd(-136.78, -59.14, 8.4, 0.68)
pt3dadd(-140.16, -59.77, 8.4, 0.68)
pt3dadd(-142.04, -60.05, 8.4, 1.19)
pt3dadd(-144.44, -61.42, 8.8, 1.19)
pt3dadd(-145.73, -61.86, 8.8, 1.7)
pt3dadd(-148.03, -63.02, 8.8, 1.02)
pt3dadd(-149.8, -63.09, 9.2, 1.02)
pt3dadd(-152.64, -64.24, 9.2, 1.02)
pt3dadd(-154.85, -64.11, 9.2, 1.02)
pt3dadd(-155.76, -64.06, 9.6, 1.53)
pt3dadd(-159.04, -64.47, 10.4, 2.21)
}
dend[29] {pt3dclear()
pt3dadd(-54.37, -25.91, 3.6, 2.55)
pt3dadd(-53.53, -28.86, 3.6, 1.7)
pt3dadd(-53.61, -31.23, 3.6, 1.7)
pt3dadd(-52.79, -33.1, 3.6, 1.7)
pt3dadd(-54.7, -35.91, 3.6, 1.19)
}
}
proc shape3d_4() {
dend[29] { pt3dadd(-57.1, -37.28, 3.6, 1.19)
pt3dadd(-60.47, -39.52, 3.6, 1.19)
pt3dadd(-63.09, -40.78, 3.6, 1.19)
pt3dadd(-65.54, -43.06, 3.6, 1.19)
pt3dadd(-66.17, -44.36, 4, 1.19)
}
dend[30] {pt3dclear()
pt3dadd(-66.17, -44.36, 4, 1.19)
pt3dadd(-69.49, -45.68, 4, 1.02)
pt3dadd(-72.7, -47.87, 4, 1.02)
pt3dadd(-74.18, -50.35, 4, 1.02)
pt3dadd(-75.59, -54.61, 4.4, 1.02)
pt3dadd(-76.35, -58.65, 4.4, 1.02)
pt3dadd(-76.22, -61.13, 4.4, 1.02)
pt3dadd(-75.13, -63.27, 4.8, 1.02)
pt3dadd(-73.98, -65.03, 4.8, 1.02)
pt3dadd(-70.47, -66.34, 5.2, 1.02)
pt3dadd(-67.55, -68.03, 5.2, 1.02)
pt3dadd(-66.68, -69.53, 5.6, 1.02)
pt3dadd(-65.09, -72.04, 6, 1.02)
pt3dadd(-63.08, -74.76, 6.4, 1.02)
pt3dadd(-62.4, -77.76, 6.4, 1.02)
pt3dadd(-61.9, -79.21, 6.4, 1.02)
pt3dadd(-61.36, -79.74, 6.4, 1.02)
pt3dadd(-62.36, -82.06, 6.8, 1.02)
pt3dadd(-63.64, -83.58, 6.8, 1.02)
}
dend[31] {pt3dclear()
pt3dadd(-66.17, -44.36, 4, 1.19)
pt3dadd(-66.46, -47.7, 4, 1.7)
pt3dadd(-68.48, -50.19, 4, 1.7)
pt3dadd(-70.84, -51.18, 4, 1.19)
pt3dadd(-73.62, -51.96, 4.4, 1.19)
pt3dadd(-76.07, -54.78, 3.2, 1.53)
pt3dadd(-76.8, -57.37, 2.8, 1.53)
pt3dadd(-78.16, -60.71, 2.4, 1.19)
pt3dadd(-78.84, -62.93, 2, 1.19)
pt3dadd(-78.17, -64.85, 2, 1.19)
pt3dadd(-77.72, -67.75, 1.6, 1.19)
pt3dadd(-78.12, -70.23, 1.2, 1.19)
pt3dadd(-78.21, -72.06, 0.8, 1.02)
pt3dadd(-78.67, -74.38, 0.8, 1.02)
pt3dadd(-79.62, -76.86, 0.4, 0.68)
pt3dadd(-80.82, -80.15, 0.4, 1.02)
pt3dadd(-81.43, -83.6, 0, 1.36)
pt3dadd(-80.44, -85.41, -0.4, 1.02)
pt3dadd(-79.63, -86.75, -0.4, 1.02)
}
dend[32] {pt3dclear()
pt3dadd(-10.635, -6.82071, 2.8, 3.23)
pt3dadd(-20.5, -8.86, -2.4, 3.23)
pt3dadd(-22.87, -8.77, -2.4, 2.72)
}
dend[33] {pt3dclear()
pt3dadd(-22.87, -8.77, -2.4, 2.72)
pt3dadd(-21.44, -6.13, -2.4, 1.53)
pt3dadd(-20.27, -4.82, -2.8, 1.53)
pt3dadd(-18.35, -3.62, -3.2, 1.53)
pt3dadd(-17.13, -1.94, -3.6, 1.53)
pt3dadd(-16.5, -0.11, -4, 1.53)
pt3dadd(-14.91, 1.52, -4.8, 1.53)
pt3dadd(-13.91, 4.38, -4.8, 1.53)
pt3dadd(-13.28, 5.68, -5.6, 1.53)
pt3dadd(-13.59, 7.37, -6.4, 1.87)
pt3dadd(-13.49, 8.12, -7.2, 1.87)
pt3dadd(-13.07, 8.45, -8, 1.36)
pt3dadd(-11.52, 9.7, -8.4, 1.36)
pt3dadd(-10.03, 11.11, -8.8, 1.36)
pt3dadd(-9.45, 12.03, -9.2, 1.36)
pt3dadd(-8.18, 14.09, -10, 1.36)
pt3dadd(-7.01, 15.92, -10.8, 1.87)
pt3dadd(-6.49, 17.54, -11.6, 1.87)
pt3dadd(-6.4, 18.83, -12.4, 1.87)
pt3dadd(-6.56, 19.32, -13.2, 1.87)
pt3dadd(-7.91, 19.57, -14, 1.53)
pt3dadd(-10.06, 20.09, -14.4, 1.53)
pt3dadd(-11.73, 20.23, -14.8, 1.53)
pt3dadd(-14.04, 20.16, -15.2, 1.53)
pt3dadd(-15.71, 19.76, -16, 1.53)
pt3dadd(-16.89, 20.07, -16.8, 1.19)
pt3dadd(-18.66, 20, -17.2, 1.53)
pt3dadd(-21.88, 18.9, -17.6, 1.7)
pt3dadd(-24.3, 19.14, -18, 2.04)
pt3dadd(-26.02, 18.91, -18.8, 1.19)
pt3dadd(-27.96, 19.86, -19.6, 1.7)
pt3dadd(-29.25, 19.42, -20.4, 1.7)
pt3dadd(-25.66, 21.01, -21.2, 1.7)
}
dend[34] {pt3dclear()
pt3dadd(-22.87, -8.77, -2.4, 2.72)
pt3dadd(-25.19, -10.65, -2, 2.38)
pt3dadd(-27.92, -11.59, -2, 2.38)
}
dend[35] {pt3dclear()
pt3dadd(-27.92, -11.59, -2, 2.38)
pt3dadd(-32.13, -15.56, -2, 1.36)
pt3dadd(-35.28, -17.36, -2, 1.36)
pt3dadd(-38.06, -19.22, -2, 1.36)
pt3dadd(-41.58, -22.05, -2.4, 1.36)
pt3dadd(-44.68, -24.01, -2.8, 1.36)
pt3dadd(-47.24, -26.51, -3.2, 1.36)
pt3dadd(-49.58, -29.12, -3.6, 1.36)
pt3dadd(-52.14, -31.08, -4.4, 1.36)
pt3dadd(-55.19, -32.67, -4.8, 1.36)
pt3dadd(-56.99, -35.26, -5.6, 2.12)
}
dend[36] {pt3dclear()
pt3dadd(-56.99, -35.26, -5.6, 2.12)
pt3dadd(-62.75, -39.95, -5.6, 1.36)
pt3dadd(-66.06, -42.34, -5.6, 1.36)
pt3dadd(-72.31, -46.11, -5.6, 1.36)
}
dend[37] {pt3dclear()
pt3dadd(-72.31, -46.11, -5.6, 1.36)
pt3dadd(-77, -50.25, -6, 0.85)
pt3dadd(-79.99, -52.53, -6, 0.85)
pt3dadd(-82.91, -56.06, -6, 0.85)
pt3dadd(-85.94, -59.8, -6, 0.85)
pt3dadd(-89.24, -62.73, -6, 0.85)
pt3dadd(-92.39, -65.61, -6, 0.85)
pt3dadd(-94.94, -68.11, -6, 0.85)
pt3dadd(-97.23, -70.88, -5.6, 0.85)
pt3dadd(-98.49, -73.47, -5.2, 0.85)
pt3dadd(-100.74, -74.24, -5.2, 0.85)
pt3dadd(-100.62, -75.64, -5.2, 0.85)
pt3dadd(-101.66, -79.41, -5.2, 0.85)
pt3dadd(-102.92, -82.01, -5.2, 0.85)
pt3dadd(-104.52, -84.17, -4.4, 0.85)
pt3dadd(-106.74, -87.1, -4.4, 0.85)
pt3dadd(-108.45, -88.94, -4, 0.85)
pt3dadd(-108.69, -91.9, -3.6, 0.85)
pt3dadd(-110.87, -94.45, -4, 0.68)
pt3dadd(-113.52, -97.7, -4.4, 0.68)
pt3dadd(-117.93, -102.64, -4, 0.68)
pt3dadd(-120.08, -104.8, -4.8, 1.02)
pt3dadd(-122.66, -105.68, -5.6, 1.02)
pt3dadd(-125.22, -107.11, -5.6, 0.81)
pt3dadd(-127.31, -108.36, -5.6, 0.81)
pt3dadd(-129.91, -111.24, -5.6, 0.81)
pt3dadd(-132.52, -113.58, -5.2, 0.81)
pt3dadd(-134.65, -116.28, -4.8, 0.81)
pt3dadd(-136.99, -118.89, -4.8, 0.81)
pt3dadd(-138.48, -120.3, -4.8, 0.81)
pt3dadd(-141.63, -122.64, -4.8, 0.81)
pt3dadd(-144.24, -124.98, -4.8, 0.81)
pt3dadd(-148.03, -127.55, -5.2, 0.81)
pt3dadd(-149.74, -128.85, -5.6, 0.81)
pt3dadd(-153.86, -130.45, -6, 0.81)
pt3dadd(-155.8, -130.58, -6, 0.81)
pt3dadd(-158.9, -132.01, -6.4, 0.81)
pt3dadd(-160.35, -132.51, -6.4, 0.81)
}
dend[38] {pt3dclear()
pt3dadd(-72.31, -46.11, -5.6, 1.36)
pt3dadd(-76.79, -47.48, -5.6, 1.19)
pt3dadd(-80.11, -48.26, -5.2, 1.19)
pt3dadd(-82.47, -48.71, -4.4, 1.19)
pt3dadd(-85.58, -50.14, -4, 1.19)
pt3dadd(-87.98, -51.51, -3.6, 1.19)
pt3dadd(-90.23, -52.82, -3.2, 1.19)
}
dend[39] {pt3dclear()
pt3dadd(-90.23, -52.82, -3.2, 1.19)
pt3dadd(-95.12, -53.25, -2.8, 0.85)
pt3dadd(-98.24, -52.53, -2.8, 0.85)
pt3dadd(-102.33, -52.67, -2.4, 0.85)
pt3dadd(-105.61, -52.01, -2.4, 0.85)
pt3dadd(-107.49, -52.29, -2, 0.85)
pt3dadd(-110.49, -52.97, -2, 0.85)
pt3dadd(-111.9, -52.55, -2, 0.85)
pt3dadd(-113.66, -53.16, -2, 0.85)
pt3dadd(-114.96, -53.07, -1.6, 0.85)
pt3dadd(-116.94, -53.57, -1.2, 0.85)
pt3dadd(-118.87, -53.7, -0.8, 0.85)
pt3dadd(-121.14, -53.4, -0.4, 0.85)
pt3dadd(-123.5, -53.31, 0, 0.85)
pt3dadd(-126.36, -52.86, 0.4, 0.85)
}
dend[40] {pt3dclear()
pt3dadd(-90.23, -52.82, -3.2, 1.19)
pt3dadd(-91.28, -55.52, -2.8, 1.02)
pt3dadd(-93.04, -56.13, -2.8, 1.02)
pt3dadd(-94.16, -57.59, -2.4, 1.02)
pt3dadd(-95.76, -58.68, -2, 1.02)
pt3dadd(-96.88, -59.61, -1.2, 1.02)
pt3dadd(-97.51, -60.91, -0.4, 1.02)
pt3dadd(-99.27, -62.59, 0.4, 1.02)
pt3dadd(-100.33, -64.75, 1.2, 1.02)
pt3dadd(-101.06, -66.26, 1.6, 1.02)
pt3dadd(-102.38, -68.7, 2, 1.02)
pt3dadd(-103.77, -69.89, 2.4, 1.02)
pt3dadd(-104.15, -69.84, 4, 1.02)
}
dend[41] {pt3dclear()
pt3dadd(-56.99, -35.26, -5.6, 2.12)
pt3dadd(-56.4, -37.76, -6, 1.27)
pt3dadd(-57.62, -39.44, -6.4, 1.27)
pt3dadd(-58.09, -41.22, -6.8, 1.27)
pt3dadd(-58.33, -43.64, -7.2, 1.27)
pt3dadd(-58.52, -46.76, -7.6, 1.27)
pt3dadd(-58.38, -49.23, -8, 1.27)
pt3dadd(-59.91, -52.63, -8.4, 1.27)
pt3dadd(-62.35, -55.99, -8.8, 1.27)
pt3dadd(-61.63, -58.08, -8.8, 1.27)
pt3dadd(-60.79, -61.56, -8.8, 1.27)
pt3dadd(-60.87, -64.47, -9.2, 1.27)
pt3dadd(-60.85, -66.08, -9.6, 1.27)
pt3dadd(-61.47, -68.45, -10, 1.27)
pt3dadd(-62.51, -72.76, -10.4, 1.27)
pt3dadd(-63.88, -75.57, -10.8, 1.27)
pt3dadd(-64.61, -77.62, -11.2, 1.27)
pt3dadd(-65.5, -80.27, -12, 1.27)
pt3dadd(-66.59, -83.34, -12.4, 1.27)
pt3dadd(-66.96, -84.9, -12.8, 1.27)
pt3dadd(-67.79, -86.43, -13.2, 1.02)
pt3dadd(-68.91, -87.9, -13.6, 1.02)
pt3dadd(-69.21, -89.62, -14, 1.02)
pt3dadd(-70.44, -90.76, -14.4, 1.36)
pt3dadd(-71.87, -92.87, -14.8, 1.36)
pt3dadd(-73.46, -95.57, -14.8, 1.36)
pt3dadd(-74.19, -97.62, -15.2, 1.7)
pt3dadd(-76.42, -100.01, -15.6, 1.19)
pt3dadd(-78.12, -102.93, -15.6, 1.19)
pt3dadd(-78.67, -106.54, -16, 1.53)
}
}
proc shape3d_5() {
dend[41] { pt3dadd(-78.33, -108.58, -16.8, 1.53)
pt3dadd(-77.94, -110.24, -17.2, 1.19)
pt3dadd(-78.4, -112.56, -17.6, 1.19)
pt3dadd(-78.86, -114.87, -18, 1.19)
pt3dadd(-78.88, -117.94, -18.4, 1.19)
pt3dadd(-78.26, -121.32, -18.8, 1.19)
pt3dadd(-76.79, -122.43, -19.2, 1.19)
pt3dadd(-74.78, -125.16, -19.6, 1.19)
pt3dadd(-72.76, -127.88, -20, 1.19)
pt3dadd(-72.09, -130.34, -20.4, 1.87)
pt3dadd(-70.25, -131.51, -20.8, 1.87)
}
dend[42] {pt3dclear()
pt3dadd(-27.92, -11.59, -2, 2.38)
pt3dadd(-33.69, -12.86, -2.8, 1.7)
pt3dadd(-36.53, -13.48, -2.8, 1.7)
pt3dadd(-39.47, -15.39, -2.8, 1.7)
pt3dadd(-41.67, -16.32, -3.6, 1.7)
pt3dadd(-44.08, -17.15, -4, 1.7)
pt3dadd(-47.18, -18.58, -4.4, 1.7)
pt3dadd(-48.67, -20, -4.8, 1.7)
pt3dadd(-51.77, -21.96, -5.6, 1.7)
pt3dadd(-54.33, -23.92, -6, 1.7)
}
dend[43] {pt3dclear()
pt3dadd(-54.33, -23.92, -6, 1.7)
pt3dadd(-55.86, -26.79, -6, 1.36)
pt3dadd(-57.51, -28.79, -6.4, 1.36)
pt3dadd(-59.16, -30.26, -6.8, 1.36)
pt3dadd(-60.59, -32.37, -7.6, 1.36)
pt3dadd(-61.61, -33.08, -8.4, 1.36)
pt3dadd(-63.47, -34.98, -8.8, 1.36)
pt3dadd(-65.44, -36.56, -9.6, 1.36)
pt3dadd(-67.74, -38.25, -10.4, 1.36)
pt3dadd(-69.81, -40.58, -10.8, 1.36)
pt3dadd(-73.12, -42.98, -11.2, 1.36)
pt3dadd(-74.24, -44.44, -12, 1.36)
}
dend[44] {pt3dclear()
pt3dadd(-74.24, -44.44, -12, 1.36)
pt3dadd(-77.75, -47.81, -15.2, 1.36)
pt3dadd(-80.32, -48.69, -15.2, 1.36)
pt3dadd(-83.05, -50.71, -15.6, 1.36)
pt3dadd(-85.56, -52.29, -16, 1.36)
pt3dadd(-88.94, -52.92, -16, 1.36)
pt3dadd(-91.62, -53.48, -16, 1.36)
pt3dadd(-94.46, -54.64, -16.4, 1.36)
pt3dadd(-96.33, -55.46, -16.4, 1.36)
pt3dadd(-98.25, -56.67, -16.8, 1.36)
pt3dadd(-100.44, -58.14, -17.2, 1.36)
pt3dadd(-103.45, -58.81, -17.6, 1.36)
pt3dadd(-106.13, -59.92, -18.4, 1.36)
pt3dadd(-108.1, -60.96, -19.2, 1.36)
pt3dadd(-110.52, -61.25, -19.2, 1.36)
pt3dadd(-112.39, -62.07, -19.6, 1.36)
pt3dadd(-113.52, -62.46, -20, 1.36)
pt3dadd(-115.33, -63.98, -20.4, 1.36)
pt3dadd(-117.04, -64.75, -20.8, 1.36)
pt3dadd(-118.65, -65.31, -21.2, 1.36)
}
dend[45] {pt3dclear()
pt3dadd(-74.24, -44.44, -12, 1.36)
pt3dadd(-73.15, -46.04, -12.8, 1.36)
pt3dadd(-70.61, -46.61, -14.8, 1.36)
pt3dadd(-70.11, -48.06, -15.6, 1.36)
pt3dadd(-70.64, -49.67, -16.8, 1.36)
pt3dadd(-72.44, -51.73, -17.6, 1.36)
pt3dadd(-74.31, -53.63, -18.4, 1.36)
pt3dadd(-74.39, -56, -19.2, 1.36)
pt3dadd(-72.93, -57.11, -20, 1.36)
pt3dadd(-71.31, -58.17, -20.8, 1.36)
pt3dadd(-71.18, -59.57, -21.2, 1.36)
}
dend[46] {pt3dclear()
pt3dadd(-54.33, -23.92, -6, 1.7)
pt3dadd(-58.25, -24.55, -6.8, 1.36)
pt3dadd(-62.16, -26.26, -6.8, 1.36)
}
dend[47] {pt3dclear()
pt3dadd(-62.16, -26.26, -6.8, 1.36)
pt3dadd(-63.52, -29.6, -6.8, 0.68)
pt3dadd(-64.79, -32.2, -6.8, 0.68)
pt3dadd(-66.32, -34.52, -7.2, 0.68)
pt3dadd(-68.4, -36.86, -7.2, 0.85)
pt3dadd(-70.79, -39.84, -7.2, 0.85)
pt3dadd(-73.61, -42.61, -7.6, 0.85)
pt3dadd(-77.18, -45.28, -6.8, 1.19)
pt3dadd(-86.54, -51.01, -5.6, 1.19)
pt3dadd(-89.46, -54, -5.6, 1.19)
pt3dadd(-92.93, -56.99, -5.6, 1.19)
pt3dadd(-96.6, -60.41, -5.6, 1.19)
pt3dadd(-100.19, -62.54, -5.6, 1.19)
pt3dadd(-104.25, -64.31, -5.6, 1.19)
pt3dadd(-106.12, -65.67, -5.6, 1.19)
pt3dadd(-108.88, -69.67, -5.6, 1.19)
pt3dadd(-111.21, -72.81, -5.6, 1.19)
pt3dadd(-114.04, -75.58, -5.6, 1.19)
pt3dadd(-115.95, -77.86, -5.2, 1.19)
pt3dadd(-117.53, -80.56, -5.2, 1.19)
pt3dadd(-117.9, -82.13, -5.2, 1.19)
pt3dadd(-119.64, -84.89, -5.2, 1.19)
pt3dadd(-123.07, -86.43, -5.2, 1.19)
pt3dadd(-126.04, -90.33, -5.2, 1.19)
pt3dadd(-128.65, -93.2, -5.2, 1.19)
pt3dadd(-132.11, -96.19, -4.8, 1.19)
pt3dadd(-134.35, -98.04, -4.8, 1.19)
pt3dadd(-136.41, -101.45, -5.2, 1.19)
pt3dadd(-139.12, -105.08, -5.2, 1.19)
pt3dadd(-140.47, -109.5, -5.2, 1.19)
pt3dadd(-142.56, -110.76, -5.2, 1.19)
}
dend[48] {pt3dclear()
pt3dadd(-62.16, -26.26, -6.8, 1.36)
pt3dadd(-65.96, -27.75, -6.8, 1.36)
pt3dadd(-68.84, -29.82, -6.4, 1.36)
pt3dadd(-69.97, -30.21, -6.4, 1.36)
pt3dadd(-71.8, -29.58, -6.4, 1.36)
pt3dadd(-73.89, -30.3, -6.4, 1.36)
pt3dadd(-75.51, -29.78, -6.4, 1.36)
pt3dadd(-77.33, -30.76, -6.4, 1.36)
pt3dadd(-79.16, -30.13, -6, 1.36)
pt3dadd(-80.19, -29.77, -5.6, 1.36)
pt3dadd(-82.49, -30.38, -5.2, 0.85)
pt3dadd(-85.39, -31.38, -4.8, 1.27)
pt3dadd(-89.14, -32.49, -4.8, 1.27)
pt3dadd(-94.83, -33.19, -4.4, 1.27)
pt3dadd(-99.34, -34.2, -4.4, 1.27)
pt3dadd(-103.85, -34.14, -4.4, 1.27)
pt3dadd(-108.37, -34.08, -4.4, 1.27)
pt3dadd(-113.05, -34.07, -4.4, 1.27)
pt3dadd(-116.27, -34.1, -4.8, 1.27)
pt3dadd(-120.14, -34.36, -5.2, 1.27)
pt3dadd(-124.8, -35.96, -5.2, 1.27)
pt3dadd(-130.16, -37.63, -5.6, 1.02)
pt3dadd(-136.64, -40.22, -5.6, 1.02)
pt3dadd(-142.59, -41.73, -5.6, 1.02)
pt3dadd(-146.68, -41.88, -6, 1.02)
pt3dadd(-152.15, -42.68, -6, 1.02)
pt3dadd(-157.19, -44.24, -6, 1.02)
pt3dadd(-159.87, -44.8, -6, 1.02)
pt3dadd(-163.95, -45.49, -6, 1.02)
pt3dadd(-167.61, -45.31, -5.6, 1.02)
pt3dadd(-169.44, -45.22, -4.8, 1.02)
pt3dadd(-171.81, -45.13, -4.8, 1.02)
pt3dadd(-175.02, -46.24, -4.8, 1.02)
}
}
proc basic_shape() {
shape3d_1()
shape3d_2()
shape3d_3()
shape3d_4()
shape3d_5()
}
objref all, somatic, basal
proc subsets() { local i
objref all, somatic, basal
all = new SectionList()
soma all.append()
for i=0, 48 dend[i] all.append()
somatic = new SectionList()
soma somatic.append()
basal = new SectionList()
for i=0, 48 dend[i] basal.append()
}
proc geom() {
}
proc geom_nseg() {
}
proc biophys() {
}
//access soma
objref all,dends,tcdends,ccdends,ccsyn,tcsyn,ccnetcon,tcnetcon,apcounter,apvec,nil
proc init(){
objref all,dends,tcdends,ccdends,ccsyn,tcsyn ,ccnetcon,tcnetcon,apcounter,apvec ,nil
all=new SectionList()
dends = new SectionList()
tcdends = new SectionList()
ccdends = new SectionList()
ccsyn=new List()
tcsyn=new List()
ccnetcon=new List()
tcnetcon=new List()
celldef()
access soma
distance()
forall{
if (distance(0)>0){tcdends.append()}
ccdends.append()
dends.append()
all.append()
for i=0,n3d()-1{
pt3dchange(i,x3d(i)+$1,y3d(i)+$2,z3d(i),diam3d(i))
}
nseg=3
insert pas
e_pas=-60
g_pas=1/30000//1/16000
cm=1.5
Ra=70
}
soma dends.remove()
forsec dends{diam=diam/1.2}
objref apcounter,apvec,nil
apvec=new Vector()
access soma
apcounter=new NetCon(&v(.5), nil)
apcounter.threshold = -20
apcounter.record(apvec)
}
endtemplate l4