/*
This is a CellBuilder-like file written for the simulator NEURON
by an automatic procedure "neuron_tree" part of the TREES package
in MATLAB
copyright 2009 Hermann Cuntz
*/

proc celldef() {
  topol()
  subsets()
  geom()
  biophys()
  geom_nseg()
}

create soma[3]
create dend[18]
create apic[25]

proc topol_1() {
  connect soma[1](0),soma[0](1)
  connect soma[2](0),soma[0](1)
  connect dend[0](0),soma[0](1)
  connect dend[1](0),soma[0](1)
  connect dend[2](0),soma[0](1)
  connect dend[3](0),soma[0](1)
  connect dend[4](0),soma[0](1)
  connect dend[5](0),dend[4](1)
  connect dend[6](0),dend[5](1)
  connect dend[7](0),dend[5](1)
  connect dend[8](0),dend[4](1)
  connect dend[9](0),dend[8](1)
  connect dend[10](0),dend[8](1)
  connect dend[11](0),dend[10](1)
  connect dend[12](0),dend[10](1)
  connect dend[13](0),soma[0](1)
  connect dend[14](0),dend[13](1)
  connect dend[15](0),dend[13](1)
  connect dend[16](0),dend[15](1)
  connect dend[17](0),dend[15](1)
  connect apic[0](0),soma[0](1)
  connect apic[1](0),apic[0](1)
  connect apic[2](0),apic[0](1)
  connect apic[3](0),apic[2](1)
  connect apic[4](0),apic[2](1)
  connect apic[5](0),apic[4](1)
  connect apic[6](0),apic[5](1)
  connect apic[7](0),apic[5](1)
  connect apic[8](0),apic[7](1)
  connect apic[9](0),apic[7](1)
  connect apic[10](0),apic[4](1)
  connect apic[11](0),apic[10](1)
  connect apic[12](0),apic[10](1)
  connect apic[13](0),apic[12](1)
  connect apic[14](0),apic[12](1)
  connect apic[15](0),apic[14](1)
  connect apic[16](0),apic[15](1)
  connect apic[17](0),apic[15](1)
  connect apic[18](0),apic[14](1)
  connect apic[19](0),apic[18](1)
  connect apic[20](0),apic[18](1)
  connect apic[21](0),apic[20](1)
  connect apic[22](0),apic[20](1)
  connect apic[23](0),apic[22](1)
  connect apic[24](0),apic[22](1)
}
proc topol() {
  topol_1()
  basic_shape()
}

proc shape3d_1() {
  soma[0] {pt3dclear()
    pt3dadd(27.8199, -7.19, 11.1, 20.5262)
    pt3dadd(27.82, -7.19, 11.1, 20.5262)
  }
  soma[1] {pt3dclear()
    pt3dadd(27.82, -7.19, 11.1, 20.5262)
    pt3dadd(27.82, 3.06, 11.1, 20.5262)
  }
  soma[2] {pt3dclear()
    pt3dadd(27.82, -7.19, 11.1, 20.5262)
    pt3dadd(27.82, -17.46, 11.1, 20.5262)
  }
  dend[0] {pt3dclear()
    pt3dadd(27.82, -7.19, 11.1, 20.5262)
    pt3dadd(37.96, 6.03, 18.9, 0.91)
    pt3dadd(38.32, 6.39, 18.98, 0.91)
    pt3dadd(38.5, 6.39, 19.13, 0.91)
    pt3dadd(39.23, 6.39, 19.42, 0.91)
    pt3dadd(39.6, 6.58, 19.65, 0.91)
    pt3dadd(39.96, 6.76, 19.73, 0.91)
    pt3dadd(40.5, 6.95, 19.89, 0.91)
    pt3dadd(41.79, 7.67, 20.33, 0.91)
    pt3dadd(42.34, 8.03, 20.49, 0.91)
    pt3dadd(42.88, 8.4, 20.64, 0.91)
    pt3dadd(43.43, 8.76, 20.87, 0.91)
    pt3dadd(44.34, 10.04, 21.1, 0.91)
    pt3dadd(44.89, 10.4, 21.33, 0.91)
    pt3dadd(45.25, 10.57, 21.4, 0.91)
    pt3dadd(45.61, 10.77, 21.63, 0.91)
    pt3dadd(45.99, 11.13, 21.78, 0.91)
    pt3dadd(46.71, 11.68, 21.93, 0.91)
    pt3dadd(47.08, 12.22, 22.01, 0.91)
    pt3dadd(47.43, 12.41, 22.08, 0.91)
    pt3dadd(47.99, 12.95, 22.16, 0.91)
    pt3dadd(48.36, 13.68, 22.23, 0.91)
  }
  dend[1] {pt3dclear()
    pt3dadd(27.82, -7.19, 11.1, 20.5262)
    pt3dadd(28.65, -7.64, 18.83, 1.46)
    pt3dadd(28.83, -8.18, 18.45, 1.46)
    pt3dadd(28.83, -8.91, 18.37, 1.46)
    pt3dadd(28.83, -9.28, 18.3, 1.46)
    pt3dadd(28.65, -9.64, 18.22, 1.46)
    pt3dadd(28.47, -10.37, 17.83, 1.46)
    pt3dadd(28.1, -11.1, 17.69, 1.46)
    pt3dadd(27.92, -11.64, 17.61, 1.46)
    pt3dadd(27.56, -12.55, 17.39, 1.46)
    pt3dadd(27.37, -13.28, 17.23, 1.46)
    pt3dadd(27.37, -14.19, 17.15, 1.46)
    pt3dadd(27.19, -14.92, 17.01, 1.46)
    pt3dadd(26.83, -15.83, 16.92, 1.46)
    pt3dadd(26.65, -16.56, 16.86, 1.46)
    pt3dadd(26.65, -16.93, 16.7, 1.46)
    pt3dadd(26.65, -17.29, 16.63, 1.46)
    pt3dadd(26.46, -18.02, 16.25, 1.46)
    pt3dadd(26.46, -18.39, 16.1, 1.46)
    pt3dadd(26.1, -19.11, 15.95, 1.46)
    pt3dadd(25.92, -20.21, 15.72, 1.46)
    pt3dadd(25.92, -20.75, 15.57, 1.46)
    pt3dadd(25.73, -21.48, 15.57, 1.46)
    pt3dadd(25.92, -22.39, 15.34, 1.46)
    pt3dadd(25.92, -22.76, 15.11, 1.46)
    pt3dadd(26.1, -23.67, 15.04, 1.46)
    pt3dadd(26.65, -24.94, 14.66, 1.46)
    pt3dadd(26.83, -26.04, 14.51, 1.46)
    pt3dadd(27.37, -26.58, 14.43, 1.46)
    pt3dadd(27.74, -27.13, 14.36, 1.46)
    pt3dadd(28.29, -27.68, 14.28, 1.46)
    pt3dadd(28.47, -28.04, 14.2, 1.46)
    pt3dadd(28.65, -28.58, 14.2, 1.46)
    pt3dadd(28.83, -29.5, 14.2, 1.28)
    pt3dadd(28.65, -30.22, 14.13, 1.28)
    pt3dadd(28.65, -31.5, 13.83, 1.28)
    pt3dadd(28.1, -33.33, 13.75, 0.91)
    pt3dadd(28.1, -34.05, 13.52, 0.91)
    pt3dadd(28.1, -34.78, 13.3, 0.91)
    pt3dadd(28.1, -35.51, 13.07, 0.91)
    pt3dadd(28.1, -36.79, 12.99, 0.91)
    pt3dadd(28.1, -37.7, 12.84, 0.91)
    pt3dadd(28.1, -37.88, 12.99, 0.91)
    pt3dadd(27.92, -38.25, 13.45, 0.91)
    pt3dadd(27.92, -39.16, 13.67, 0.91)
    pt3dadd(28.1, -39.52, 13.83, 0.91)
    pt3dadd(28.1, -40.07, 14.13, 0.91)
    pt3dadd(28.1, -40.8, 14.28, 0.91)
    pt3dadd(28.29, -41.34, 14.51, 0.91)
    pt3dadd(28.29, -41.71, 14.66, 0.91)
    pt3dadd(28.65, -42.25, 14.81, 0.91)
    pt3dadd(28.65, -42.62, 14.96, 0.91)
    pt3dadd(28.83, -42.98, 15.11, 0.91)
    pt3dadd(28.83, -43.71, 15.42, 0.91)
    pt3dadd(29.02, -44.08, 15.72, 0.91)
    pt3dadd(29.02, -44.44, 16.02, 0.91)
    pt3dadd(29.2, -44.99, 16.55, 0.91)
    pt3dadd(29.38, -45.35, 16.7, 0.91)
    pt3dadd(29.38, -45.9, 16.78, 0.91)
    pt3dadd(29.38, -46.81, 17.15, 0.73)
    pt3dadd(29.02, -47.17, 17.46, 0.73)
    pt3dadd(29.02, -47.54, 17.54, 0.73)
    pt3dadd(28.65, -48.63, 17.83, 0.73)
    pt3dadd(28.65, -49.18, 17.99, 0.73)
    pt3dadd(28.29, -49.91, 18.3, 0.73)
    pt3dadd(28.29, -50.45, 18.45, 0.73)
    pt3dadd(27.92, -51.55, 18.67, 0.73)
    pt3dadd(27.56, -52.64, 18.83, 0.73)
    pt3dadd(27.56, -53.37, 19.05, 0.73)
    pt3dadd(27.56, -54.28, 19.13, 0.73)
    pt3dadd(27.56, -56.27, 19.28, 0.73)
    pt3dadd(27.56, -58.47, 19.42, 0.73)
    pt3dadd(27.92, -60.47, 19.51, 0.73)
    pt3dadd(28.1, -62.48, 19.65, 0.73)
    pt3dadd(28.1, -63.38, 19.73, 0.73)
    pt3dadd(28.1, -65.02, 19.81, 0.73)
    pt3dadd(27.92, -67.21, 19.89, 0.73)
    pt3dadd(27.37, -68.13, 19.96, 0.73)
    pt3dadd(26.83, -68.13, 19.96, 0.73)
    pt3dadd(26.65, -68.49, 19.96, 0.73)
    pt3dadd(25.73, -69.04, 20.11, 0.73)
    pt3dadd(25.37, -69.58, 20.26, 0.91)
    pt3dadd(25, -69.95, 20.49, 0.91)
    pt3dadd(24.09, -70.86, 20.95, 0.91)
    pt3dadd(23.73, -71.41, 21.17, 0.91)
    pt3dadd(23, -71.95, 21.4, 0.91)
    pt3dadd(22.45, -72.49, 21.7, 0.91)
    pt3dadd(21.9, -73.59, 21.86, 0.91)
    pt3dadd(21.35, -74.14, 22.01, 0.91)
    pt3dadd(20.99, -75.23, 22.08, 0.91)
    pt3dadd(20.44, -76.32, 22.23, 0.91)
    pt3dadd(20.08, -77.6, 22.39, 0.91)
    pt3dadd(19.71, -78.88, 22.46, 0.91)
    pt3dadd(19.71, -79.79, 22.54, 0.91)
  }
  dend[2] {pt3dclear()
    pt3dadd(27.82, -7.19, 11.1, 20.5262)
    pt3dadd(43.79, -0.7, 13.07, 1.46)
    pt3dadd(44.34, -0.53, 13.45, 1.46)
    pt3dadd(44.34, -0.53, 13.75, 1.28)
    pt3dadd(44.53, -0.35, 14.2, 1.28)
    pt3dadd(44.71, -0.17, 14.58, 1.28)
    pt3dadd(45.07, 0.02, 14.81, 1.28)
    pt3dadd(45.07, 0.2, 14.96, 1.28)
    pt3dadd(45.79, 0.56, 15.27, 0.91)
    pt3dadd(46.35, 0.93, 15.72, 0.91)
    pt3dadd(47.25, 1.29, 16.25, 0.91)
    pt3dadd(47.63, 1.47, 16.48, 0.91)
    pt3dadd(48.36, 1.66, 16.7, 0.91)
    pt3dadd(48.9, 1.66, 16.92, 0.91)
    pt3dadd(49.63, 1.47, 17.01, 0.91)
    pt3dadd(50.36, 1.66, 17.23, 0.91)
    pt3dadd(50.91, 1.84, 17.39, 0.91)
    pt3dadd(51.28, 1.84, 17.54, 0.91)
    pt3dadd(51.64, 1.84, 17.69, 0.91)
    pt3dadd(52.74, 1.84, 17.92, 0.91)
    pt3dadd(53.1, 1.84, 18.07, 0.91)
    pt3dadd(54.01, 1.84, 18.14, 0.55)
    pt3dadd(54.38, 1.47, 18.22, 0.55)
    pt3dadd(55.11, 1.11, 18.9, 0.55)
    pt3dadd(57.3, 0.93, 19.42, 0.55)
    pt3dadd(57.84, 0.75, 19.96, 0.55)
    pt3dadd(58.21, 0.56, 20.11, 0.55)
    pt3dadd(58.76, 0.38, 20.33, 0.55)
    pt3dadd(59.3, 0.02, 20.49, 0.55)
    pt3dadd(59.85, -0.35, 20.64, 0.55)
    pt3dadd(60.76, -1.08, 21.02, 0.55)
    pt3dadd(61.49, -1.81, 21.17, 0.55)
    pt3dadd(62.41, -2.35, 21.25, 0.55)
    pt3dadd(62.59, -2.53, 21.25, 0.55)
    pt3dadd(62.95, -2.72, 21.25, 0.55)
    pt3dadd(63.32, -2.9, 21.1, 0.55)
    pt3dadd(63.68, -3.08, 20.95, 0.55)
    pt3dadd(64.41, -3.26, 20.72, 0.55)
    pt3dadd(65.14, -3.44, 20.33, 0.55)
    pt3dadd(65.87, -3.63, 20.19, 0.55)
    pt3dadd(66.97, -4.17, 19.96, 0.55)
    pt3dadd(67.88, -4.54, 19.65, 0.55)
    pt3dadd(68.43, -4.9, 19.42, 0.55)
    pt3dadd(68.97, -5.27, 19.28, 0.55)
    pt3dadd(70.07, -5.81, 18.98, 0.55)
    pt3dadd(71.34, -6.54, 18.83, 0.55)
    pt3dadd(72.44, -6.91, 18.83, 0.55)
    pt3dadd(73.34, -7.45, 18.83, 0.55)
    pt3dadd(75.18, -8, 18.6, 0.55)
    pt3dadd(76.27, -8.55, 18.45, 0.55)
    pt3dadd(77.37, -8.91, 18.22, 0.55)
    pt3dadd(78.09, -9.28, 18.07, 0.55)
    pt3dadd(78.45, -9.46, 17.76, 0.55)
    pt3dadd(79.56, -10.37, 17.61, 0.55)
    pt3dadd(80.65, -10.73, 17.39, 0.55)
    pt3dadd(82.11, -11.64, 17.15, 0.55)
    pt3dadd(82.84, -11.64, 16.92, 0.55)
    pt3dadd(83.57, -12, 16.86, 0.55)
    pt3dadd(84.3, -12.55, 16.7, 0.55)
    pt3dadd(85.76, -13.28, 16.63, 0.55)
    pt3dadd(86.48, -13.28, 16.55, 0.55)
    pt3dadd(87.95, -13.83, 16.48, 0.55)
    pt3dadd(87.95, -14.01, 16.4, 0.55)
    pt3dadd(88.68, -14.01, 16.4, 0.55)
    pt3dadd(89.77, -14.19, 16.33, 0.55)
    pt3dadd(90.69, -14.38, 16.17, 0.55)
    pt3dadd(91.42, -14.56, 16.02, 0.55)
    pt3dadd(91.96, -14.56, 15.87, 0.55)
    pt3dadd(93.06, -14.92, 15.72, 0.55)
    pt3dadd(93.61, -15.29, 15.49, 0.55)
    pt3dadd(95.43, -16.02, 15.27, 0.55)
    pt3dadd(97.25, -17.29, 14.96, 0.55)
    pt3dadd(99.44, -18.39, 14.66, 0.55)
    pt3dadd(101.27, -19.11, 14.66, 0.55)
    pt3dadd(102.73, -19.66, 14.66, 0.55)
    pt3dadd(104.55, -20.94, 14.73, 0.55)
    pt3dadd(105.28, -21.48, 14.73, 0.55)
    pt3dadd(107.47, -22.58, 14.73, 0.55)
    pt3dadd(108.38, -22.76, 14.73, 0.55)
    pt3dadd(110.21, -23.12, 14.73, 0.55)
    pt3dadd(110.94, -22.94, 14.73, 0.55)
    pt3dadd(112.22, -22.76, 14.73, 0.55)
    pt3dadd(113.31, -22.58, 14.73, 0.55)
    pt3dadd(114.4, -22.39, 14.73, 0.55)
    pt3dadd(120.97, -23.67, 14.73, 0.55)
    pt3dadd(124.07, -23.49, 14.73, 0.55)
    pt3dadd(126.08, -23.49, 14.73, 0.55)
    pt3dadd(127.54, -23.3, 14.73, 0.55)
    pt3dadd(131.01, -22.76, 14.73, 0.55)
    pt3dadd(132.47, -22.39, 14.73, 0.55)
    pt3dadd(133.74, -21.85, 14.73, 0.55)
    pt3dadd(135.02, -20.94, 14.73, 0.55)
    pt3dadd(137.21, -20.75, 14.73, 0.55)
    pt3dadd(139.04, -20.94, 14.73, 0.55)
    pt3dadd(140.86, -21.66, 14.73, 0.55)
    pt3dadd(141.96, -21.66, 14.73, 0.55)
    pt3dadd(143.05, -21.48, 14.73, 0.55)
    pt3dadd(144.14, -21.12, 14.73, 0.55)
    pt3dadd(144.69, -20.57, 14.73, 0.55)
    pt3dadd(145.24, -20.03, 14.89, 0.55)
    pt3dadd(145.97, -19.66, 15.04, 0.55)
    pt3dadd(146.7, -18.93, 15.19, 1.09)
    pt3dadd(146.52, -17.84, 15.27, 1.09)
    pt3dadd(146.52, -17.11, 15.27, 1.09)
    pt3dadd(146.7, -16.2, 15.34, 1.09)
    pt3dadd(146.88, -15.65, 15.42, 1.09)
    pt3dadd(147.43, -15.11, 15.49, 1.09)
    pt3dadd(147.98, -14.01, 15.64, 1.82)
    pt3dadd(147.79, -12.74, 15.64, 1.82)
  }
  dend[3] {pt3dclear()
    pt3dadd(27.82, -7.19, 11.1, 20.5262)
    pt3dadd(42.34, -8.36, 11.7, 2.19)
    pt3dadd(42.7, -8.55, 11.7, 2.19)
    pt3dadd(42.88, -8.91, 11.7, 2.19)
    pt3dadd(43.43, -9.46, 11.7, 2.19)
    pt3dadd(43.79, -9.46, 11.7, 2.19)
    pt3dadd(44.16, -9.82, 11.78, 2.19)
    pt3dadd(44.71, -10.19, 12.08, 2.19)
    pt3dadd(45.07, -10.19, 12.31, 2.19)
    pt3dadd(45.61, -10.73, 12.46, 2.19)
    pt3dadd(46.35, -10.73, 12.77, 2.19)
    pt3dadd(47.08, -10.91, 12.92, 2.19)
    pt3dadd(48.54, -11.64, 13.3, 2.19)
    pt3dadd(49.63, -12.55, 13.6, 2.19)
    pt3dadd(50, -12.74, 13.75, 2.19)
    pt3dadd(51.09, -13.1, 13.98, 2.19)
    pt3dadd(51.64, -13.47, 14.13, 2.19)
    pt3dadd(52.92, -14.01, 14.36, 2.19)
  }
}
proc shape3d_2() {
  dend[3] {
    pt3dadd(53.83, -14.38, 14.51, 2.19)
    pt3dadd(54.38, -14.38, 14.58, 2.19)
    pt3dadd(55.11, -14.74, 14.66, 2.19)
    pt3dadd(56.02, -15.29, 14.66, 2.19)
    pt3dadd(56.38, -15.83, 14.66, 2.19)
    pt3dadd(57.11, -16.38, 14.66, 2.19)
    pt3dadd(57.66, -17.11, 14.66, 2.19)
    pt3dadd(58.21, -17.47, 14.66, 2.19)
    pt3dadd(58.57, -17.11, 14.66, 2.74)
    pt3dadd(58.76, -16.93, 14.66, 2.74)
    pt3dadd(58.94, -16.93, 14.66, 2.74)
    pt3dadd(58.94, -17.84, 14.66, 1.09)
    pt3dadd(58.57, -18.2, 14.66, 1.09)
    pt3dadd(58.57, -18.75, 14.81, 1.09)
    pt3dadd(58.57, -19.3, 15.04, 1.09)
    pt3dadd(59.3, -19.84, 15.19, 1.09)
    pt3dadd(59.67, -20.03, 15.27, 1.09)
    pt3dadd(59.85, -20.39, 15.57, 1.09)
    pt3dadd(60.03, -20.75, 15.72, 1.09)
    pt3dadd(60.4, -21.12, 15.8, 1.09)
    pt3dadd(60.58, -21.85, 15.95, 1.09)
    pt3dadd(60.76, -22.58, 16.48, 1.09)
    pt3dadd(61.13, -23.12, 16.7, 1.09)
    pt3dadd(61.86, -23.85, 17.15, 1.09)
    pt3dadd(62.04, -24.22, 17.23, 1.09)
    pt3dadd(62.41, -24.58, 17.39, 1.09)
    pt3dadd(62.95, -24.94, 17.69, 1.09)
    pt3dadd(63.68, -25.86, 17.76, 1.09)
    pt3dadd(63.87, -26.4, 18.14, 1.09)
    pt3dadd(64.05, -26.77, 18.3, 1.09)
    pt3dadd(64.23, -27.13, 18.45, 1.09)
    pt3dadd(64.96, -27.31, 19.05, 1.09)
    pt3dadd(65.69, -27.31, 19.28, 1.09)
    pt3dadd(66.6, -27.5, 19.58, 1.09)
    pt3dadd(66.97, -27.5, 19.81, 1.09)
    pt3dadd(67.51, -27.68, 20.26, 1.09)
    pt3dadd(67.51, -27.86, 20.57, 1.09)
    pt3dadd(67.88, -27.86, 20.72, 1.09)
    pt3dadd(68.24, -28.04, 20.95, 1.09)
    pt3dadd(68.43, -28.04, 20.72, 1.09)
    pt3dadd(68.97, -28.22, 20.57, 1.09)
    pt3dadd(69.52, -28.22, 20.33, 1.09)
    pt3dadd(70.07, -28.4, 20.11, 1.09)
    pt3dadd(70.25, -28.4, 19.81, 1.09)
    pt3dadd(70.62, -28.4, 19.58, 1.09)
    pt3dadd(70.62, -28.77, 19.36, 1.09)
    pt3dadd(70.98, -28.95, 19.13, 1.09)
    pt3dadd(70.98, -29.32, 18.9, 1.09)
    pt3dadd(71.16, -29.5, 18.3, 1.09)
    pt3dadd(71.34, -29.5, 18.07, 1.09)
    pt3dadd(71.53, -29.5, 17.61, 1.09)
    pt3dadd(71.53, -29.5, 17.31, 1.09)
    pt3dadd(71.53, -29.68, 16.92, 1.09)
    pt3dadd(71.89, -30.04, 16.7, 1.09)
    pt3dadd(72.08, -30.4, 16.48, 1.09)
    pt3dadd(72.44, -30.58, 16.33, 0.91)
    pt3dadd(72.62, -30.77, 16.17, 0.91)
    pt3dadd(72.81, -31.14, 15.95, 0.91)
    pt3dadd(72.81, -31.32, 15.64, 0.91)
    pt3dadd(73.17, -31.69, 15.42, 0.91)
    pt3dadd(73.34, -32.22, 15.19, 0.91)
    pt3dadd(73.72, -32.6, 15.11, 0.91)
    pt3dadd(73.9, -32.96, 14.96, 0.91)
    pt3dadd(74.27, -33.51, 14.81, 0.91)
    pt3dadd(74.81, -34.05, 14.66, 0.91)
    pt3dadd(75.18, -34.6, 14.58, 0.91)
    pt3dadd(75.72, -35.33, 14.51, 0.91)
    pt3dadd(76.27, -35.88, 14.43, 0.91)
    pt3dadd(76.45, -36.42, 14.13, 0.91)
    pt3dadd(77, -36.97, 14.05, 0.91)
    pt3dadd(77.37, -37.52, 13.9, 0.91)
    pt3dadd(77.73, -37.88, 13.75, 0.91)
    pt3dadd(77.91, -38.06, 13.75, 0.73)
    pt3dadd(77.91, -38.25, 13.75, 0.73)
    pt3dadd(77.91, -38.43, 13.6, 0.73)
    pt3dadd(78.09, -38.79, 13.45, 0.73)
    pt3dadd(78.45, -38.97, 13.3, 0.73)
    pt3dadd(78.83, -39.34, 13.07, 0.73)
    pt3dadd(78.83, -39.7, 12.99, 0.73)
    pt3dadd(79.37, -40.07, 12.61, 0.73)
    pt3dadd(79.37, -40.43, 12.46, 0.73)
    pt3dadd(79.56, -40.8, 12.31, 0.73)
    pt3dadd(80.09, -41.34, 12.16, 0.73)
    pt3dadd(80.47, -42.07, 12.08, 0.73)
    pt3dadd(80.83, -42.62, 11.93, 0.73)
    pt3dadd(81.02, -42.98, 11.78, 0.73)
    pt3dadd(81.56, -43.53, 11.7, 0.73)
    pt3dadd(82.29, -43.89, 11.63, 0.73)
    pt3dadd(83.39, -44.62, 11.63, 0.73)
    pt3dadd(84.12, -45.17, 11.55, 0.73)
    pt3dadd(84.84, -46.26, 11.55, 0.73)
    pt3dadd(85.03, -46.63, 11.55, 0.73)
    pt3dadd(85.39, -47.17, 11.17, 0.73)
    pt3dadd(86.12, -48.08, 11.1, 0.73)
    pt3dadd(86.48, -48.63, 11.02, 0.73)
    pt3dadd(87.04, -49.54, 10.95, 0.73)
    pt3dadd(87.58, -50.27, 10.87, 0.73)
    pt3dadd(87.95, -50.63, 10.87, 0.73)
    pt3dadd(88.31, -51.18, 10.71, 0.73)
    pt3dadd(88.68, -51.73, 10.57, 0.73)
    pt3dadd(89.04, -52.64, 10.49, 0.73)
    pt3dadd(89.77, -53.37, 10.27, 0.73)
    pt3dadd(90.14, -54.1, 10.19, 0.73)
    pt3dadd(90.5, -54.28, 10.04, 0.73)
    pt3dadd(90.87, -54.64, 9.96, 0.73)
    pt3dadd(91.78, -55.19, 9.88, 0.73)
    pt3dadd(92.51, -55.55, 9.88, 0.73)
    pt3dadd(93.79, -56.27, 9.81, 0.73)
    pt3dadd(94.7, -56.65, 9.74, 0.73)
    pt3dadd(95.98, -57.19, 9.66, 0.73)
    pt3dadd(96.89, -57.74, 9.66, 0.73)
    pt3dadd(97.62, -58.47, 9.58, 0.73)
    pt3dadd(98.71, -59.02, 9.51, 0.73)
    pt3dadd(99.63, -59.93, 9.51, 0.73)
    pt3dadd(100.17, -60.29, 9.43, 0.73)
    pt3dadd(100.36, -60.47, 9.36, 0.73)
    pt3dadd(100.54, -60.66, 9.36, 0.73)
    pt3dadd(100.54, -60.66, 9.12, 0.73)
    pt3dadd(101.09, -61.02, 8.75, 0.73)
    pt3dadd(101.82, -61.2, 8.6, 0.73)
    pt3dadd(102.18, -61.57, 8.3, 0.73)
    pt3dadd(103.09, -62.11, 8.22, 0.73)
    pt3dadd(103.46, -62.48, 8.14, 0.73)
    pt3dadd(103.82, -62.66, 7.99, 0.73)
    pt3dadd(104.19, -63.02, 7.92, 0.73)
    pt3dadd(104.73, -63.38, 7.84, 0.73)
    pt3dadd(105.1, -63.94, 7.77, 0.73)
    pt3dadd(105.65, -64.48, 7.69, 0.73)
    pt3dadd(106.19, -64.85, 7.46, 0.73)
    pt3dadd(106.38, -65.38, 7.39, 0.73)
    pt3dadd(106.56, -65.94, 7.31, 0.73)
    pt3dadd(106.92, -66.49, 7.16, 0.73)
    pt3dadd(107.29, -67.21, 7.16, 0.73)
    pt3dadd(107.47, -67.76, 7.08, 0.73)
    pt3dadd(107.84, -68.31, 6.86, 0.73)
    pt3dadd(108.38, -69.04, 6.63, 0.73)
    pt3dadd(108.75, -69.22, 6.55, 0.73)
    pt3dadd(108.75, -69.77, 6.48, 0.73)
    pt3dadd(108.93, -69.95, 6.48, 0.73)
    pt3dadd(109.11, -70.49, 6.33, 0.73)
    pt3dadd(109.3, -71.22, 6.18, 0.73)
    pt3dadd(109.66, -71.59, 6.1, 0.73)
    pt3dadd(109.84, -72.13, 5.95, 0.73)
    pt3dadd(110.21, -73.23, 5.8, 0.73)
    pt3dadd(110.57, -73.77, 5.64, 0.73)
    pt3dadd(110.94, -74.5, 5.64, 0.73)
    pt3dadd(111.3, -75.05, 5.48, 0.73)
    pt3dadd(111.85, -75.78, 5.42, 0.73)
    pt3dadd(112.4, -76.69, 5.27, 0.73)
    pt3dadd(112.76, -77.42, 5.11, 0.73)
    pt3dadd(113.31, -77.96, 5.04, 0.73)
    pt3dadd(114.04, -79.06, 4.89, 0.73)
    pt3dadd(114.59, -79.6, 4.81, 0.73)
    pt3dadd(114.95, -79.97, 4.65, 0.73)
    pt3dadd(115.5, -80.52, 4.51, 0.73)
    pt3dadd(115.86, -80.7, 4.43, 0.73)
    pt3dadd(116.23, -81.06, 4.43, 0.73)
    pt3dadd(116.59, -81.24, 4.43, 0.73)
    pt3dadd(117.14, -81.61, 4.36, 0.73)
    pt3dadd(117.51, -81.79, 4.28, 0.73)
    pt3dadd(117.87, -81.79, 4.05, 0.73)
    pt3dadd(118.42, -81.79, 3.9, 0.73)
    pt3dadd(118.97, -81.79, 3.9, 0.73)
    pt3dadd(119.51, -81.79, 3.83, 0.73)
    pt3dadd(120.43, -82.16, 3.68, 0.73)
    pt3dadd(121.34, -82.7, 3.6, 0.73)
    pt3dadd(122.25, -83.07, 3.52, 0.73)
    pt3dadd(123.35, -83.61, 3.37, 0.73)
    pt3dadd(124.07, -84.16, 3.3, 0.73)
    pt3dadd(124.44, -84.89, 3.22, 0.73)
    pt3dadd(124.99, -85.43, 3.14, 0.73)
    pt3dadd(125.72, -86.35, 3.14, 0.73)
    pt3dadd(126.81, -87.44, 3.07, 0.73)
    pt3dadd(127.36, -88.17, 2.99, 0.73)
    pt3dadd(128.09, -89.26, 2.99, 0.73)
    pt3dadd(128.64, -89.99, 2.91, 0.73)
    pt3dadd(129.91, -91.08, 2.84, 0.73)
    pt3dadd(131.01, -91.81, 2.77, 0.73)
    pt3dadd(132.1, -92.54, 2.69, 0.73)
    pt3dadd(132.47, -92.72, 2.6, 0.73)
    pt3dadd(133.02, -93.09, 2.54, 0.73)
    pt3dadd(133.93, -93.45, 2.54, 0.73)
    pt3dadd(135.2, -94.18, 2.31, 0.73)
    pt3dadd(135.57, -94.54, 2.24, 0.73)
    pt3dadd(136.48, -95.27, 2.16, 0.73)
    pt3dadd(137.02, -96, 2.08, 0.73)
    pt3dadd(137.39, -96.55, 2.08, 0.73)
    pt3dadd(137.58, -96.91, 2.01, 0.73)
    pt3dadd(137.94, -97.28, 2.01, 0.73)
    pt3dadd(138.3, -97.64, 1.93, 0.73)
    pt3dadd(139.58, -98.92, 1.78, 0.73)
    pt3dadd(140.13, -99.65, 1.71, 0.73)
    pt3dadd(141.96, -101.1, 1.71, 0.73)
    pt3dadd(143.23, -102.38, 1.63, 0.73)
    pt3dadd(144.51, -103.65, 1.63, 0.73)
    pt3dadd(145.6, -104.93, 1.63, 0.73)
    pt3dadd(146.15, -105.48, 1.63, 0.73)
  }
  dend[4] {pt3dclear()
    pt3dadd(27.82, -7.19, 11.1, 20.5262)
    pt3dadd(27.27, -7.37, 11.02, 2.01)
    pt3dadd(26.91, -8.1, 10.87, 2.01)
    pt3dadd(26.71, -8.47, 10.79, 2.01)
    pt3dadd(26.36, -9.19, 10.71, 2.01)
    pt3dadd(26.18, -9.73, 10.71, 2.01)
    pt3dadd(25.81, -10.65, 10.71, 2.01)
    pt3dadd(25.62, -11.2, 10.63, 2.01)
    pt3dadd(25.08, -11.93, 10.57, 2.01)
    pt3dadd(24.71, -12.47, 10.57, 2.01)
    pt3dadd(24.17, -13.57, 10.57, 2.01)
    pt3dadd(23.99, -13.93, 10.57, 2.01)
    pt3dadd(23.99, -14.3, 10.57, 2.01)
  }
  dend[5] {pt3dclear()
    pt3dadd(23.99, -14.3, 10.57, 2.01)
    pt3dadd(23.44, -14.3, 10.57, 1.28)
    pt3dadd(23.44, -14.3, 10.34, 1.28)
    pt3dadd(22.53, -14.3, 9.88, 1.28)
    pt3dadd(21.43, -14.3, 9.66, 1.28)
    pt3dadd(20.52, -14.3, 9.51, 1.28)
    pt3dadd(19.43, -14.3, 9.28, 1.28)
    pt3dadd(18.51, -14.48, 9.12, 1.28)
    pt3dadd(17.42, -15.02, 9.04, 1.28)
    pt3dadd(16.69, -15.39, 8.98, 1.28)
    pt3dadd(16.14, -15.75, 8.98, 1.28)
    pt3dadd(15.58, -16.3, 8.98, 1.28)
  }
  dend[6] {pt3dclear()
    pt3dadd(15.58, -16.3, 8.98, 1.28)
    pt3dadd(15.23, -15.94, 8.98, 0.91)
    pt3dadd(13.77, -15.57, 8.98, 0.91)
    pt3dadd(12.68, -15.39, 8.75, 0.91)
    pt3dadd(12.31, -15.39, 8.67, 0.91)
    pt3dadd(11.76, -15.39, 9.12, 0.91)
    pt3dadd(11.22, -15.21, 9.28, 0.91)
    pt3dadd(10.12, -15.02, 9.51, 0.91)
    pt3dadd(9.39, -14.66, 9.66, 0.91)
    pt3dadd(7.57, -14.3, 10.04, 0.91)
    pt3dadd(6.11, -13.93, 10.27, 0.91)
    pt3dadd(4.83, -13.75, 10.42, 0.91)
    pt3dadd(3.92, -13.2, 10.57, 0.91)
    pt3dadd(2.46, -13.02, 10.79, 0.91)
    pt3dadd(1.18, -12.66, 10.79, 0.91)
    pt3dadd(0.45, -12.47, 10.87, 0.91)
    pt3dadd(-0.64, -12.29, 10.95, 0.91)
    pt3dadd(-2.47, -11.93, 11.33, 0.91)
    pt3dadd(-3.2, -11.93, 11.55, 0.91)
    pt3dadd(-4.11, -11.73, 11.7, 0.91)
    pt3dadd(-5.39, -11.56, 11.78, 0.91)
    pt3dadd(-6.12, -11.38, 11.63, 0.91)
    pt3dadd(-6.66, -11.2, 11.33, 0.91)
    pt3dadd(-7.39, -11.02, 11.1, 0.91)
    pt3dadd(-8.31, -10.82, 10.71, 0.91)
    pt3dadd(-9.58, -10.65, 10.57, 0.91)
    pt3dadd(-10.5, -10.65, 10.42, 0.91)
  }
}
proc shape3d_3() {
  dend[6] {
    pt3dadd(-11.23, -10.47, 10.34, 0.91)
    pt3dadd(-11.77, -10.29, 10.11, 0.91)
    pt3dadd(-12.87, -9.91, 10.04, 0.91)
    pt3dadd(-14.33, -9.56, 9.43, 0.91)
    pt3dadd(-15.06, -9.38, 9.04, 0.91)
    pt3dadd(-15.61, -9.19, 8.83, 0.91)
    pt3dadd(-16.15, -9, 8.22, 0.91)
    pt3dadd(-16.7, -8.82, 8.07, 0.91)
    pt3dadd(-17.43, -8.47, 7.77, 0.91)
    pt3dadd(-18.16, -8.1, 7.54, 0.91)
    pt3dadd(-19.44, -7.74, 7.39, 0.91)
    pt3dadd(-20.9, -7.37, 7.08, 0.91)
    pt3dadd(-22.36, -7.19, 6.86, 0.91)
    pt3dadd(-24.55, -6.28, 6.63, 0.91)
    pt3dadd(-25.28, -5.91, 6.63, 0.91)
    pt3dadd(-26.19, -5.37, 6.48, 0.91)
    pt3dadd(-26.92, -5, 6.48, 0.91)
    pt3dadd(-27.46, -4.64, 6.48, 0.91)
  }
  dend[7] {pt3dclear()
    pt3dadd(15.58, -16.3, 8.98, 1.28)
    pt3dadd(15.41, -16.48, 9.21, 0.73)
    pt3dadd(14.5, -17.03, 9.04, 0.73)
    pt3dadd(13.59, -17.58, 8.9, 0.73)
    pt3dadd(12.86, -18.12, 8.83, 0.73)
    pt3dadd(11.76, -19.03, 8.6, 0.73)
    pt3dadd(10.85, -19.76, 8.45, 0.73)
    pt3dadd(9.2, -20.31, 8.3, 0.73)
    pt3dadd(7.93, -20.85, 8.22, 0.73)
    pt3dadd(6.65, -21.22, 8.14, 0.73)
    pt3dadd(5.19, -21.58, 8.07, 0.73)
    pt3dadd(3.92, -22.49, 7.99, 0.73)
    pt3dadd(2.64, -23.59, 7.92, 0.73)
    pt3dadd(0.63, -25.04, 7.92, 0.73)
    pt3dadd(-1.01, -25.96, 7.92, 0.73)
    pt3dadd(-4.11, -26.32, 7.84, 0.73)
    pt3dadd(-6.66, -26.32, 7.84, 0.73)
    pt3dadd(-10.13, -27.6, 8.14, 0.73)
    pt3dadd(-10.86, -28.87, 8.22, 0.73)
    pt3dadd(-11.59, -30.33, 8.22, 0.73)
    pt3dadd(-14.15, -32.7, 8.22, 0.73)
    pt3dadd(-15.79, -33.06, 8.3, 0.73)
    pt3dadd(-16.7, -36.34, 8.3, 0.73)
    pt3dadd(-17.06, -36.71, 8.3, 0.73)
    pt3dadd(-17.43, -37.25, 8.3, 0.73)
    pt3dadd(-18.71, -38.35, 8.3, 0.73)
    pt3dadd(-20.17, -39.07, 8.3, 0.73)
    pt3dadd(-21.08, -39.44, 8.14, 0.73)
    pt3dadd(-22.17, -39.62, 8.07, 0.73)
    pt3dadd(-22.9, -40.53, 8.07, 0.73)
    pt3dadd(-23.45, -41.99, 7.99, 0.73)
    pt3dadd(-24, -43.63, 7.84, 0.73)
    pt3dadd(-24.91, -45.09, 7.77, 0.73)
    pt3dadd(-25.46, -46.36, 7.61, 0.73)
    pt3dadd(-25.82, -47.46, 7.54, 0.73)
    pt3dadd(-26.92, -48.37, 7.39, 0.73)
    pt3dadd(-27.65, -49.28, 7.31, 0.73)
    pt3dadd(-28.56, -50.55, 7.24, 0.73)
    pt3dadd(-29.47, -51.46, 7.16, 0.73)
    pt3dadd(-30.57, -52.38, 7.08, 0.73)
    pt3dadd(-31.47, -53.47, 7.01, 0.73)
    pt3dadd(-32.21, -54.38, 6.93, 0.73)
    pt3dadd(-33.3, -54.93, 6.93, 0.73)
    pt3dadd(-34.4, -55.65, 6.93, 0.73)
    pt3dadd(-35.49, -56.57, 7.39, 0.73)
    pt3dadd(-36.59, -57.29, 7.84, 0.73)
    pt3dadd(-38.59, -58.57, 7.92, 0.73)
    pt3dadd(-39.32, -58.93, 7.84, 0.73)
    pt3dadd(-40.42, -59.48, 7.69, 0.73)
    pt3dadd(-41.7, -59.85, 7.54, 0.73)
    pt3dadd(-42.97, -60.21, 7.39, 0.73)
    pt3dadd(-44.07, -60.76, 7.31, 0.73)
    pt3dadd(-45.16, -61.49, 7.24, 0.73)
    pt3dadd(-45.71, -62.21, 7.01, 0.73)
    pt3dadd(-46.8, -62.94, 6.86, 0.73)
    pt3dadd(-47.72, -63.66, 6.71, 0.73)
    pt3dadd(-49.36, -64.22, 6.63, 0.73)
    pt3dadd(-50.27, -64.58, 6.48, 0.73)
    pt3dadd(-51.91, -65.31, 6.4, 0.73)
    pt3dadd(-52.64, -65.49, 6.25, 0.73)
    pt3dadd(-53.92, -66.22, 6.18, 0.73)
    pt3dadd(-55.56, -66.95, 5.95, 0.73)
    pt3dadd(-57.56, -67.86, 5.87, 0.73)
    pt3dadd(-59.94, -68.96, 5.72, 0.73)
    pt3dadd(-60.84, -69.49, 5.57, 0.73)
    pt3dadd(-63.23, -70.77, 5.57, 0.73)
    pt3dadd(-63.95, -71.13, 5.57, 0.73)
    pt3dadd(-65.05, -71.69, 5.57, 0.73)
    pt3dadd(-65.78, -72.23, 5.42, 0.73)
    pt3dadd(-66.51, -72.41, 5.19, 0.73)
    pt3dadd(-67.79, -72.6, 5.11, 0.73)
    pt3dadd(-68.52, -72.6, 4.96, 0.73)
    pt3dadd(-68.02, -72.84, 4.89, 0.73)
    pt3dadd(-68.94, -72.65, 4.89, 0.73)
    pt3dadd(-70.03, -72.84, 4.81, 0.73)
    pt3dadd(-71.13, -73.02, 4.65, 0.73)
    pt3dadd(-72.4, -72.47, 4.51, 0.73)
    pt3dadd(-72.77, -71.93, 4.36, 0.73)
    pt3dadd(-72.95, -71.38, 4.36, 0.73)
    pt3dadd(-72.95, -70.83, 4.28, 0.73)
  }
  dend[8] {pt3dclear()
    pt3dadd(23.99, -14.3, 10.57, 2.01)
    pt3dadd(23.19, -15.44, 10.87, 1.64)
    pt3dadd(23.02, -15.44, 10.87, 1.64)
    pt3dadd(22.84, -15.81, 10.87, 1.64)
    pt3dadd(22.84, -16.17, 10.87, 1.64)
    pt3dadd(22.84, -16.72, 10.87, 1.64)
    pt3dadd(22.84, -17.27, 10.79, 1.64)
    pt3dadd(22.84, -17.63, 10.71, 1.64)
    pt3dadd(23.19, -18.18, 10.63, 1.64)
    pt3dadd(23.37, -18.91, 10.57, 1.64)
  }
  dend[9] {pt3dclear()
    pt3dadd(23.37, -18.91, 10.57, 1.64)
    pt3dadd(23.53, -19.11, 10.63, 0.91)
    pt3dadd(23.73, -20.57, 10.49, 0.91)
    pt3dadd(23.91, -21.12, 10.42, 0.91)
    pt3dadd(24.09, -22.03, 10.27, 0.91)
    pt3dadd(24.27, -22.94, 10.11, 0.91)
    pt3dadd(24.82, -23.49, 10.04, 0.91)
    pt3dadd(25, -24.22, 9.96, 0.91)
    pt3dadd(25.55, -25.13, 9.81, 0.91)
    pt3dadd(25.73, -25.86, 9.66, 0.91)
    pt3dadd(25.92, -26.58, 9.58, 0.91)
    pt3dadd(26.28, -27.31, 9.43, 0.91)
    pt3dadd(26.46, -28.04, 9.43, 0.91)
    pt3dadd(26.65, -28.4, 9.28, 0.91)
    pt3dadd(27.19, -28.77, 9.28, 0.91)
    pt3dadd(27.56, -29.14, 9.21, 0.91)
    pt3dadd(27.92, -29.5, 9.43, 0.91)
    pt3dadd(28.47, -29.86, 9.96, 0.91)
    pt3dadd(29.02, -30.04, 10.27, 0.91)
    pt3dadd(29.75, -30.22, 10.42, 0.91)
    pt3dadd(30.11, -30.22, 10.49, 0.91)
    pt3dadd(30.66, -30.58, 10.71, 0.91)
    pt3dadd(31.39, -30.96, 10.95, 0.91)
    pt3dadd(32.3, -31.69, 11.1, 0.91)
    pt3dadd(32.67, -32.04, 11.25, 0.91)
    pt3dadd(33.21, -32.6, 11.4, 0.91)
    pt3dadd(33.58, -32.96, 11.48, 0.91)
    pt3dadd(33.76, -33.69, 11.63, 0.91)
    pt3dadd(33.94, -34.42, 11.78, 0.55)
    pt3dadd(34.31, -34.97, 11.93, 0.55)
    pt3dadd(34.49, -35.51, 12.08, 0.55)
    pt3dadd(34.67, -36.06, 12.31, 0.55)
    pt3dadd(34.86, -37.15, 12.54, 0.55)
    pt3dadd(35.22, -37.7, 12.69, 0.55)
    pt3dadd(35.59, -38.06, 12.77, 0.55)
    pt3dadd(36.32, -38.79, 12.92, 0.55)
    pt3dadd(36.86, -39.34, 13.14, 0.55)
    pt3dadd(37.23, -39.88, 13.3, 0.55)
    pt3dadd(37.77, -40.25, 13.45, 0.55)
    pt3dadd(37.96, -40.8, 13.6, 0.55)
    pt3dadd(38.14, -41.16, 13.67, 0.55)
    pt3dadd(38.5, -41.71, 13.9, 0.55)
    pt3dadd(39.04, -42.07, 14.05, 0.55)
    pt3dadd(39.23, -42.44, 14.2, 0.55)
    pt3dadd(39.96, -42.98, 14.28, 0.55)
    pt3dadd(40.5, -43.35, 14.43, 0.55)
    pt3dadd(40.68, -43.71, 14.2, 0.55)
    pt3dadd(41.06, -44.08, 13.98, 0.55)
    pt3dadd(41.42, -44.8, 13.52, 0.55)
    pt3dadd(41.61, -45.17, 13.37, 0.55)
    pt3dadd(41.97, -45.35, 13.14, 0.55)
    pt3dadd(41.97, -45.72, 12.92, 0.55)
    pt3dadd(42.34, -46.26, 12.69, 0.55)
    pt3dadd(42.7, -46.81, 12.54, 0.55)
    pt3dadd(42.7, -47.36, 12.39, 0.55)
    pt3dadd(42.88, -48.08, 12.24, 0.55)
    pt3dadd(43.43, -48.81, 12.08, 0.55)
    pt3dadd(43.79, -49.54, 11.93, 0.55)
    pt3dadd(44.16, -50.27, 11.86, 0.55)
    pt3dadd(44.53, -50.63, 11.86, 0.55)
  }
  dend[10] {pt3dclear()
    pt3dadd(23.37, -18.91, 10.57, 1.64)
    pt3dadd(22.47, -18.91, 10.57, 0.91)
    pt3dadd(22.29, -19.27, 10.57, 0.91)
    pt3dadd(22.11, -19.63, 10.57, 0.91)
    pt3dadd(21.93, -20.18, 10.57, 0.91)
    pt3dadd(21.74, -20.73, 10.42, 0.91)
    pt3dadd(21.74, -21.09, 10.34, 0.91)
    pt3dadd(21.56, -21.64, 10.27, 0.55)
    pt3dadd(21.38, -22, 10.04, 0.55)
    pt3dadd(21.38, -22.37, 10.04, 0.55)
    pt3dadd(21.2, -22.73, 10.04, 0.55)
    pt3dadd(21.2, -23.28, 10.63, 0.55)
    pt3dadd(21.2, -23.82, 10.87, 0.55)
    pt3dadd(21.2, -24.19, 11.1, 0.55)
    pt3dadd(21.01, -24.74, 11.25, 0.55)
    pt3dadd(20.83, -25.28, 11.4, 0.55)
    pt3dadd(20.65, -26.19, 11.48, 0.55)
    pt3dadd(20.47, -26.74, 11.7, 0.55)
    pt3dadd(20.28, -27.47, 12.01, 0.55)
    pt3dadd(20.1, -28.38, 12.08, 0.55)
    pt3dadd(19.92, -29.11, 12.16, 0.55)
    pt3dadd(19.74, -29.83, 12.24, 0.55)
    pt3dadd(19.55, -30.2, 12.24, 0.55)
  }
  dend[11] {pt3dclear()
    pt3dadd(19.55, -30.2, 12.24, 0.55)
    pt3dadd(19.92, -30.38, 12.16, 0.55)
    pt3dadd(20.28, -31.11, 12.08, 0.55)
    pt3dadd(20.83, -32.02, 11.93, 0.55)
    pt3dadd(21.01, -32.39, 11.93, 0.55)
    pt3dadd(21.56, -33.3, 11.86, 0.55)
    pt3dadd(22.11, -33.66, 11.86, 0.55)
    pt3dadd(23.19, -34.76, 11.78, 0.55)
    pt3dadd(23.57, -35.49, 11.7, 0.55)
    pt3dadd(24.11, -36.21, 11.7, 0.55)
    pt3dadd(25.21, -37.13, 11.63, 0.55)
    pt3dadd(25.76, -37.49, 11.48, 0.55)
    pt3dadd(26.3, -38.22, 11.48, 0.55)
    pt3dadd(26.67, -38.58, 11.4, 0.55)
    pt3dadd(27.21, -39.13, 11.4, 0.55)
    pt3dadd(27.76, -39.31, 11.33, 0.55)
    pt3dadd(28.68, -39.31, 11.33, 0.55)
    pt3dadd(29.95, -39.68, 11.25, 0.55)
    pt3dadd(30.87, -39.86, 11.17, 0.55)
    pt3dadd(32.14, -40.22, 11.1, 0.55)
    pt3dadd(32.87, -40.59, 11.02, 0.55)
    pt3dadd(33.78, -40.95, 10.95, 0.55)
    pt3dadd(34.88, -41.32, 10.95, 0.55)
    pt3dadd(36.89, -42.23, 10.95, 0.55)
    pt3dadd(38.71, -42.77, 10.87, 0.55)
    pt3dadd(39.99, -43.87, 10.79, 0.55)
    pt3dadd(41.63, -45.14, 10.79, 0.55)
    pt3dadd(42, -45.69, 10.79, 0.55)
    pt3dadd(42.73, -46.05, 10.79, 0.55)
    pt3dadd(43.64, -46.6, 10.57, 0.55)
    pt3dadd(44.91, -47.33, 10.57, 0.55)
  }
  dend[12] {pt3dclear()
    pt3dadd(19.55, -30.2, 12.24, 0.55)
    pt3dadd(19.19, -30.02, 12.24, 0.36)
    pt3dadd(18.64, -30.57, 12.24, 0.36)
    pt3dadd(18.28, -30.93, 12.31, 0.36)
    pt3dadd(18.09, -31.29, 12.46, 0.36)
    pt3dadd(17.55, -31.47, 12.61, 0.36)
    pt3dadd(17, -32.21, 12.77, 0.36)
    pt3dadd(16.45, -32.75, 12.92, 0.36)
    pt3dadd(15.9, -33.48, 12.99, 0.36)
    pt3dadd(14.63, -34.39, 13.22, 0.36)
    pt3dadd(13.71, -34.57, 13.37, 0.36)
    pt3dadd(13.17, -34.94, 13.52, 0.36)
    pt3dadd(12.44, -35.12, 13.52, 0.36)
    pt3dadd(11.89, -35.12, 13.52, 0.36)
    pt3dadd(11.15, -35.12, 13.52, 0.36)
    pt3dadd(10.43, -35.12, 13.6, 0.36)
    pt3dadd(8.42, -34.76, 13.75, 0.36)
    pt3dadd(7.88, -34.57, 13.83, 0.36)
    pt3dadd(7.33, -34.21, 13.9, 0.36)
    pt3dadd(6.78, -33.85, 14.05, 0.36)
    pt3dadd(6.23, -33.48, 14.2, 0.36)
    pt3dadd(5.5, -32.93, 14.36, 0.36)
    pt3dadd(4.96, -32.57, 14.43, 0.36)
    pt3dadd(4.23, -32.57, 14.43, 0.36)
    pt3dadd(3.13, -32.39, 14.43, 0.36)
    pt3dadd(2.22, -32.39, 14.51, 0.36)
    pt3dadd(1.49, -32.39, 14.51, 0.36)
  }
}
proc shape3d_4() {
  dend[12] {
    pt3dadd(0.58, -32.39, 14.51, 0.36)
    pt3dadd(-0.88, -32.21, 14.43, 0.36)
    pt3dadd(-1.61, -32.21, 14.36, 0.36)
    pt3dadd(-2.52, -32.02, 14.2, 0.36)
    pt3dadd(-3.62, -32.02, 14.05, 0.36)
    pt3dadd(-5.08, -32.02, 13.98, 0.36)
    pt3dadd(-6.54, -31.83, 13.83, 0.36)
    pt3dadd(-7.81, -31.83, 13.75, 0.36)
    pt3dadd(-8.91, -31.83, 13.67, 0.36)
    pt3dadd(-10.91, -31.29, 13.52, 0.36)
    pt3dadd(-12.18, -30.75, 13.45, 0.36)
    pt3dadd(-13.84, -30.57, 13.37, 0.36)
    pt3dadd(-14.93, -30.02, 13.3, 0.36)
    pt3dadd(-15.66, -30.02, 13.3, 0.36)
    pt3dadd(-16.39, -29.65, 13.3, 0.55)
    pt3dadd(-16.75, -28.93, 13.3, 0.55)
    pt3dadd(-17.3, -28.56, 13.3, 0.55)
    pt3dadd(-18.03, -28.38, 13.22, 0.55)
    pt3dadd(-18.94, -27.83, 13.22, 0.55)
    pt3dadd(-20.22, -26.74, 13.22, 0.55)
    pt3dadd(-21.13, -26.19, 13.22, 0.55)
    pt3dadd(-22.78, -25.65, 13.22, 0.55)
    pt3dadd(-22.96, -25.65, 13.22, 0.55)
    pt3dadd(-23.51, -25.28, 13.22, 0.55)
    pt3dadd(-24.05, -25.1, 13.45, 0.55)
    pt3dadd(-24.97, -24.01, 13.9, 0.55)
    pt3dadd(-25.51, -23.82, 14.2, 0.55)
    pt3dadd(-26.06, -23.82, 14.36, 0.55)
    pt3dadd(-26.61, -23.82, 14.58, 0.55)
    pt3dadd(-27.33, -23.46, 14.66, 0.55)
    pt3dadd(-28.8, -23.1, 14.89, 0.55)
    pt3dadd(-29.89, -22.91, 15.11, 0.55)
    pt3dadd(-30.8, -22.55, 15.27, 0.55)
    pt3dadd(-31.53, -22.55, 15.34, 0.55)
    pt3dadd(-32.99, -22.37, 15.34, 0.55)
    pt3dadd(-33.9, -22.18, 15.34, 0.55)
    pt3dadd(-34.82, -21.82, 15.72, 0.55)
    pt3dadd(-35.55, -21.82, 15.95, 0.55)
    pt3dadd(-36.64, -21.82, 16.17, 0.55)
    pt3dadd(-37.37, -21.82, 16.33, 0.55)
    pt3dadd(-38.1, -21.64, 16.63, 0.55)
    pt3dadd(-39.2, -21.64, 16.86, 0.55)
    pt3dadd(-40.29, -21.64, 17.01, 0.55)
    pt3dadd(-40.84, -21.64, 17.15, 0.55)
    pt3dadd(-41.75, -21.64, 17.31, 0.55)
    pt3dadd(-42.3, -21.46, 17.46, 0.55)
    pt3dadd(-43.21, -21.46, 17.54, 0.55)
    pt3dadd(-44.67, -21.46, 17.76, 0.55)
    pt3dadd(-45.22, -21.46, 17.83, 0.55)
    pt3dadd(-45.95, -21.46, 17.83, 0.55)
    pt3dadd(-46.86, -21.46, 17.69, 0.55)
    pt3dadd(-47.59, -21.46, 17.23, 0.55)
    pt3dadd(-48.32, -21.46, 16.86, 0.55)
    pt3dadd(-48.5, -21.46, 16.48, 0.55)
    pt3dadd(-48.5, -21.46, 16.02, 0.55)
    pt3dadd(-48.68, -21.64, 15.72, 0.55)
    pt3dadd(-49.41, -21.46, 15.49, 0.55)
    pt3dadd(-50.14, -21.46, 15.42, 0.55)
    pt3dadd(-50.69, -21.27, 15.27, 0.55)
    pt3dadd(-51.24, -21.27, 15.19, 0.55)
    pt3dadd(-51.6, -21.46, 14.96, 0.55)
    pt3dadd(-52.7, -21.64, 14.81, 0.55)
    pt3dadd(-52.88, -21.82, 14.58, 0.55)
    pt3dadd(-53.43, -21.82, 14.28, 0.55)
    pt3dadd(-53.79, -22.18, 14.13, 0.55)
    pt3dadd(-54.16, -22.18, 13.83, 0.55)
    pt3dadd(-54.52, -22.37, 13.6, 0.55)
    pt3dadd(-55.07, -22.37, 13.37, 0.55)
    pt3dadd(-55.25, -22.37, 13.14, 0.55)
    pt3dadd(-55.98, -22.37, 13.07, 0.55)
    pt3dadd(-56.16, -22.55, 12.99, 0.55)
    pt3dadd(-58.34, -22.73, 12.69, 0.55)
    pt3dadd(-59.08, -22.73, 12.54, 0.55)
    pt3dadd(-60.73, -22.73, 12.39, 0.55)
    pt3dadd(-62.37, -22.55, 12.16, 0.55)
    pt3dadd(-63.83, -22.55, 12.01, 0.55)
    pt3dadd(-65.09, -22.55, 11.93, 0.55)
    pt3dadd(-66.92, -22.37, 11.78, 0.55)
    pt3dadd(-68.56, -22.37, 11.7, 0.55)
    pt3dadd(-69.48, -22.37, 11.55, 0.55)
    pt3dadd(-70.58, -22.37, 11.55, 0.55)
    pt3dadd(-71.86, -22.37, 11.48, 0.55)
    pt3dadd(-72.59, -22.73, 11.33, 0.55)
    pt3dadd(-73.31, -23.28, 11.33, 0.55)
    pt3dadd(-74.04, -23.82, 11.25, 0.55)
    pt3dadd(-74.41, -24.19, 11.17, 0.55)
    pt3dadd(-75.32, -24.74, 11.1, 0.55)
    pt3dadd(-75.5, -25.1, 11.02, 0.55)
  }
  dend[13] {pt3dclear()
    pt3dadd(27.82, -7.19, 11.1, 20.5262)
    pt3dadd(44.53, -3.26, 6.71, 2.01)
    pt3dadd(44.71, -3.26, 6.71, 2.01)
    pt3dadd(45.43, -3.44, 6.71, 2.01)
    pt3dadd(46.35, -3.81, 6.71, 2.01)
    pt3dadd(46.71, -3.81, 6.71, 2.01)
    pt3dadd(47.08, -3.81, 6.71, 2.01)
    pt3dadd(47.81, -3.99, 6.71, 2.01)
    pt3dadd(48.17, -3.99, 6.71, 2.01)
    pt3dadd(48.9, -4.17, 6.71, 2.01)
    pt3dadd(49.63, -4.54, 6.71, 2.01)
    pt3dadd(50.55, -4.72, 6.71, 2.01)
    pt3dadd(51.09, -4.9, 6.71, 2.01)
    pt3dadd(51.46, -4.9, 6.71, 2.01)
    pt3dadd(52.19, -4.9, 6.71, 2.01)
    pt3dadd(52.55, -4.9, 6.71, 2.01)
  }
  dend[14] {pt3dclear()
    pt3dadd(52.55, -4.9, 6.71, 2.01)
    pt3dadd(52.92, -4.36, 5.34, 0.73)
    pt3dadd(53.28, -4.36, 5.57, 0.73)
    pt3dadd(53.83, -3.99, 5.72, 0.73)
    pt3dadd(54.2, -3.26, 6.1, 0.73)
    pt3dadd(54.2, -1.99, 6.33, 0.73)
    pt3dadd(53.83, -1.08, 6.55, 0.73)
    pt3dadd(53.83, -0.53, 6.71, 0.73)
    pt3dadd(53.47, 0.38, 6.86, 0.73)
    pt3dadd(52.92, 1.11, 7.01, 0.73)
    pt3dadd(52.19, 2.02, 7.16, 0.73)
    pt3dadd(51.64, 2.39, 7.24, 0.73)
    pt3dadd(51.09, 2.93, 7.24, 0.73)
    pt3dadd(50.73, 3.48, 7.24, 0.73)
    pt3dadd(50.18, 3.84, 7.24, 0.73)
  }
  dend[15] {pt3dclear()
    pt3dadd(52.55, -4.9, 6.71, 2.01)
    pt3dadd(52.74, -5.27, 6.71, 2.01)
    pt3dadd(53.28, -5.81, 6.71, 2.01)
    pt3dadd(54.01, -6.36, 6.71, 2.01)
    pt3dadd(54.74, -6.72, 6.71, 2.01)
    pt3dadd(55.29, -6.72, 6.71, 2.01)
    pt3dadd(56.2, -7.09, 6.71, 1.46)
    pt3dadd(57.48, -7.45, 6.71, 1.46)
    pt3dadd(58.03, -7.64, 6.71, 1.46)
    pt3dadd(58.76, -7.82, 6.71, 1.46)
    pt3dadd(59.3, -8.36, 6.71, 1.46)
    pt3dadd(59.85, -8.91, 6.71, 1.46)
    pt3dadd(60.4, -9.46, 6.71, 1.46)
    pt3dadd(60.76, -9.82, 6.71, 1.46)
  }
  dend[16] {pt3dclear()
    pt3dadd(60.76, -9.82, 6.71, 1.46)
    pt3dadd(60.76, -9.82, 6.25, 0.36)
    pt3dadd(61.49, -10, 6.25, 0.36)
    pt3dadd(62.04, -10.19, 6.33, 0.36)
    pt3dadd(62.22, -9.82, 6.55, 0.36)
    pt3dadd(62.77, -9.82, 6.71, 0.36)
    pt3dadd(63.14, -9.82, 6.93, 0.36)
    pt3dadd(63.68, -9.82, 7.16, 0.36)
    pt3dadd(64.23, -10, 7.31, 0.36)
    pt3dadd(64.96, -10, 7.46, 0.36)
    pt3dadd(65.33, -10.19, 7.61, 0.36)
    pt3dadd(65.87, -10.19, 7.84, 0.36)
    pt3dadd(66.6, -10.19, 7.99, 0.36)
    pt3dadd(67.51, -10.19, 8.14, 0.36)
    pt3dadd(68.24, -10.19, 8.37, 0.36)
    pt3dadd(68.97, -10.19, 8.52, 0.36)
    pt3dadd(69.16, -10.19, 8.6, 0.91)
    pt3dadd(69.7, -10, 8.6, 0.91)
    pt3dadd(70.07, -9.82, 8.6, 0.91)
    pt3dadd(70.43, -9.64, 8.45, 0.91)
    pt3dadd(70.98, -9.46, 8.07, 0.91)
    pt3dadd(71.89, -9.09, 7.84, 0.91)
    pt3dadd(72.08, -9.09, 7.46, 0.91)
    pt3dadd(72.26, -9.09, 7.08, 1.64)
    pt3dadd(72.62, -9.09, 6.86, 1.64)
    pt3dadd(73.17, -9.09, 6.48, 1.64)
    pt3dadd(73.54, -8.91, 6.02, 1.64)
    pt3dadd(73.9, -8.73, 5.64, 1.64)
    pt3dadd(74.27, -8.55, 5.11, 1.64)
    pt3dadd(74.45, -8.55, 4.73, 1.64)
    pt3dadd(74.62, -8.55, 4.65, 1.64)
    pt3dadd(75, -8.36, 4.65, 1.64)
    pt3dadd(75.72, -8, 4.36, 1.64)
    pt3dadd(76.27, -7.82, 4.13, 1.64)
    pt3dadd(76.64, -7.64, 4.05, 1.64)
    pt3dadd(77, -7.64, 3.98, 1.64)
    pt3dadd(77.55, -7.45, 3.9, 1.64)
    pt3dadd(77.91, -7.45, 3.9, 1.64)
    pt3dadd(78.45, -7.27, 3.68, 1.64)
    pt3dadd(79.37, -7.09, 3.6, 1.64)
    pt3dadd(79.73, -6.91, 3.52, 1.64)
    pt3dadd(80.47, -6.72, 3.45, 1.64)
    pt3dadd(81.56, -6.18, 3.45, 1.28)
    pt3dadd(81.75, -6.18, 3.37, 1.28)
    pt3dadd(82.29, -6.18, 3.22, 1.28)
    pt3dadd(82.84, -5.81, 3.14, 1.28)
    pt3dadd(83.57, -5.81, 3.07, 1.28)
    pt3dadd(83.75, -5.45, 2.99, 1.28)
    pt3dadd(84.12, -5.45, 2.84, 1.28)
    pt3dadd(84.3, -5.27, 2.69, 0.91)
    pt3dadd(85.2, -5.27, 2.54, 0.91)
    pt3dadd(85.94, -5.08, 2.39, 0.91)
    pt3dadd(86.48, -4.72, 2.08, 0.91)
    pt3dadd(87.04, -4.72, 1.86, 0.91)
    pt3dadd(87.58, -4.72, 1.86, 0.91)
    pt3dadd(87.95, -4.72, 1.78, 0.91)
    pt3dadd(88.31, -4.54, 1.71, 0.91)
    pt3dadd(88.68, -4.54, 1.55, 0.91)
    pt3dadd(89.59, -4.9, 1.4, 0.91)
    pt3dadd(90.14, -5.08, 1.17, 0.91)
    pt3dadd(90.5, -5.08, 1.1, 0.91)
    pt3dadd(90.87, -5.27, 1.02, 0.91)
    pt3dadd(91.23, -5.08, 0.87, 0.91)
    pt3dadd(91.6, -4.54, 0.72, 0.91)
    pt3dadd(91.96, -4.36, 0.49, 0.91)
    pt3dadd(92.33, -3.63, 0.34, 0.91)
    pt3dadd(92.51, -2.9, 0.19, 0.91)
    pt3dadd(92.69, -2.35, 0.12, 0.91)
    pt3dadd(92.88, -1.62, -0.04, 0.91)
    pt3dadd(93.06, -1.08, -0.19, 0.91)
    pt3dadd(93.42, 0.2, -0.34, 0.91)
    pt3dadd(93.97, 1.11, -0.34, 0.91)
    pt3dadd(94.15, 2.02, -0.34, 0.91)
    pt3dadd(94.52, 2.39, -0.34, 0.55)
    pt3dadd(94.52, 2.39, -0.72, 0.55)
    pt3dadd(94.88, 2.39, -0.95, 0.55)
    pt3dadd(94.88, 2.39, -0.42, 0.73)
    pt3dadd(95.06, 2.39, -0.42, 0.73)
    pt3dadd(95.06, 2.39, -0.64, 0.73)
    pt3dadd(95.06, 2.39, -0.87, 0.73)
    pt3dadd(95.43, 2.39, -0.95, 0.73)
    pt3dadd(95.61, 2.39, -1.1, 0.73)
    pt3dadd(95.79, 2.39, -1.17, 0.73)
    pt3dadd(95.79, 2.39, -1.48, 0.73)
    pt3dadd(95.98, 2.57, -1.78, 0.73)
    pt3dadd(96.16, 2.75, -2.01, 0.73)
    pt3dadd(96.34, 2.93, -2.38, 0.73)
    pt3dadd(96.34, 3.11, -2.61, 0.73)
    pt3dadd(96.52, 3.11, -2.84, 0.73)
    pt3dadd(96.52, 3.11, -3.14, 0.73)
    pt3dadd(96.71, 3.31, -3.22, 0.73)
    pt3dadd(96.89, 3.31, -3.29, 0.73)
    pt3dadd(97.07, 2.93, -3.66, 0.73)
    pt3dadd(97.25, 2.57, -3.74, 0.73)
    pt3dadd(97.62, 2.57, -3.82, 0.73)
    pt3dadd(97.62, 2.75, -3.9, 0.73)
    pt3dadd(97.98, 3.11, -4.28, 0.73)
    pt3dadd(98.35, 3.31, -4.43, 0.73)
    pt3dadd(98.71, 3.31, -4.66, 0.73)
    pt3dadd(98.9, 3.31, -4.81, 0.73)
    pt3dadd(99.26, 3.48, -4.96, 0.73)
    pt3dadd(99.44, 3.48, -5.04, 0.73)
    pt3dadd(99.81, 3.66, -5.19, 0.73)
    pt3dadd(99.99, 3.66, -5.41, 0.73)
    pt3dadd(99.99, 3.66, -5.64, 0.73)
    pt3dadd(100.54, 3.84, -5.72, 0.73)
    pt3dadd(100.72, 3.84, -5.94, 0.73)
    pt3dadd(101.45, 4.03, -6.1, 0.73)
    pt3dadd(101.82, 4.21, -6.25, 0.73)
    pt3dadd(102.18, 4.39, -6.32, 0.73)
    pt3dadd(102.55, 4.57, -6.7, 0.73)
    pt3dadd(102.55, 4.57, -7.08, 0.73)
    pt3dadd(103.09, 4.75, -7.54, 0.73)
    pt3dadd(103.46, 5.3, -7.91, 0.73)
    pt3dadd(103.82, 5.48, -8.07, 0.73)
    pt3dadd(104.19, 5.67, -8.14, 0.73)
  }
}
proc shape3d_5() {
  dend[16] {
    pt3dadd(104.55, 5.67, -8.22, 0.73)
    pt3dadd(104.92, 5.48, -8.43, 0.73)
    pt3dadd(105.46, 5.3, -8.59, 0.73)
    pt3dadd(105.83, 5.12, -8.59, 0.73)
    pt3dadd(106.38, 4.75, -8.67, 0.73)
    pt3dadd(106.74, 4.57, -8.82, 0.73)
    pt3dadd(107.11, 4.39, -9.13, 0.73)
    pt3dadd(107.11, 4.39, -9.28, 0.73)
    pt3dadd(107.11, 4.21, -9.42, 0.73)
    pt3dadd(107.84, 3.84, -9.42, 0.73)
    pt3dadd(108.2, 3.48, -9.58, 0.73)
    pt3dadd(108.38, 3.11, -9.88, 0.73)
    pt3dadd(108.93, 3.11, -9.96, 0.73)
    pt3dadd(109.66, 2.57, -10.04, 0.73)
    pt3dadd(110.39, 2.2, -10.26, 0.73)
    pt3dadd(110.76, 2.02, -10.41, 0.73)
    pt3dadd(111.3, 1.84, -10.57, 0.73)
    pt3dadd(112.03, 1.66, -10.87, 0.73)
    pt3dadd(112.4, 1.47, -11.02, 0.73)
    pt3dadd(113.13, 1.11, -11.17, 0.73)
    pt3dadd(113.49, 1.11, -11.25, 0.73)
    pt3dadd(113.86, 0.93, -11.4, 0.73)
    pt3dadd(114.22, 0.93, -11.55, 0.73)
    pt3dadd(114.59, 0.93, -11.7, 0.73)
    pt3dadd(115.13, 0.75, -11.93, 0.73)
    pt3dadd(115.68, 0.56, -12.08, 0.73)
    pt3dadd(116.05, 0.56, -12.23, 0.73)
    pt3dadd(116.78, 0.56, -12.46, 0.73)
    pt3dadd(117.51, 0.38, -12.69, 0.73)
    pt3dadd(118.6, 0.2, -12.99, 0.73)
    pt3dadd(119.15, 0.2, -13.14, 0.73)
    pt3dadd(119.7, 0.2, -13.22, 0.73)
    pt3dadd(120.43, 0.2, -13.44, 0.73)
    pt3dadd(120.61, 0.2, -14.05, 0.73)
    pt3dadd(121.16, 0.2, -14.28, 0.73)
    pt3dadd(121.89, 0.38, -14.81, 0.73)
    pt3dadd(122.25, 0.38, -15.11, 0.73)
    pt3dadd(122.62, 0.38, -15.34, 0.73)
    pt3dadd(123.16, 0.2, -15.72, 0.73)
    pt3dadd(123.53, 0.2, -15.94, 0.73)
    pt3dadd(124.07, 0.2, -16.25, 0.73)
    pt3dadd(124.62, 0.2, -16.54, 0.73)
    pt3dadd(125.35, 0.2, -16.63, 0.73)
    pt3dadd(125.72, 0.02, -16.7, 0.73)
    pt3dadd(126.45, 0.02, -16.85, 0.73)
    pt3dadd(126.81, 0.02, -17.53, 0.73)
    pt3dadd(127.36, 0.2, -18.06, 0.73)
    pt3dadd(127.91, 0.38, -18.37, 0.73)
    pt3dadd(128.45, 0.75, -18.52, 0.73)
    pt3dadd(129.18, 0.93, -18.75, 0.73)
    pt3dadd(129.91, 1.29, -18.9, 0.73)
    pt3dadd(130.46, 1.47, -19.13, 0.73)
    pt3dadd(131.19, 1.84, -19.28, 0.73)
    pt3dadd(132.29, 2.2, -19.35, 0.73)
    pt3dadd(132.83, 2.57, -19.35, 0.73)
    pt3dadd(134.11, 3.11, -19.72, 0.73)
    pt3dadd(134.47, 3.11, -19.96, 0.73)
    pt3dadd(134.84, 3.11, -20.03, 0.73)
    pt3dadd(135.39, 2.93, -20.26, 0.73)
    pt3dadd(136.3, 2.57, -20.41, 0.73)
    pt3dadd(136.85, 2.2, -20.49, 0.73)
    pt3dadd(137.94, 1.66, -20.64, 0.73)
    pt3dadd(139.04, 0.75, -20.87, 0.73)
    pt3dadd(139.77, 0.38, -21.09, 0.73)
    pt3dadd(140.3, -0.17, -21.32, 0.73)
    pt3dadd(141.04, -0.89, -21.47, 0.73)
    pt3dadd(141.23, -1.62, -21.55, 0.73)
    pt3dadd(141.04, -2.17, -21.7, 0.73)
    pt3dadd(140.68, -2.9, -21.78, 0.73)
    pt3dadd(140.3, -3.44, -21.85, 0.73)
    pt3dadd(140.3, -3.81, -21.85, 0.73)
    pt3dadd(140.13, -4.36, -21.93, 0.73)
  }
  dend[17] {pt3dclear()
    pt3dadd(60.76, -9.82, 6.71, 1.46)
    pt3dadd(61.49, -10.37, 6.71, 0.73)
    pt3dadd(61.86, -11.1, 6.71, 0.73)
    pt3dadd(62.04, -11.64, 6.55, 0.73)
    pt3dadd(62.41, -12.19, 6.48, 0.73)
    pt3dadd(62.59, -12.92, 6.25, 0.73)
    pt3dadd(62.77, -13.28, 6.1, 0.73)
    pt3dadd(62.77, -13.65, 5.95, 0.73)
    pt3dadd(63.14, -14.19, 5.8, 0.73)
    pt3dadd(63.32, -14.74, 5.72, 0.73)
    pt3dadd(63.32, -15.29, 5.57, 0.73)
    pt3dadd(63.5, -15.65, 5.42, 0.73)
    pt3dadd(63.5, -16.02, 5.27, 0.73)
    pt3dadd(63.5, -16.38, 5.11, 0.73)
    pt3dadd(63.32, -17.11, 4.81, 0.73)
    pt3dadd(63.14, -17.47, 4.43, 0.73)
    pt3dadd(63.14, -17.84, 4.36, 0.73)
    pt3dadd(62.95, -18.57, 4.13, 0.73)
    pt3dadd(62.77, -19.11, 3.9, 0.73)
    pt3dadd(62.59, -19.66, 3.75, 0.73)
    pt3dadd(62.59, -20.03, 3.6, 0.73)
    pt3dadd(62.59, -20.57, 3.45, 0.73)
    pt3dadd(62.95, -20.94, 3.37, 0.73)
    pt3dadd(63.5, -21.48, 3.3, 0.73)
    pt3dadd(63.87, -21.66, 2.99, 0.73)
    pt3dadd(64.41, -22.03, 2.84, 0.73)
    pt3dadd(64.78, -22.39, 2.69, 0.73)
    pt3dadd(66.05, -23.49, 2.46, 0.73)
    pt3dadd(67.7, -24.4, 2.39, 0.73)
    pt3dadd(68.43, -24.94, 2.84, 0.73)
    pt3dadd(69.34, -25.31, 3.22, 0.73)
    pt3dadd(70.07, -25.67, 3.52, 0.73)
    pt3dadd(70.62, -25.86, 3.68, 0.73)
    pt3dadd(71.53, -26.04, 3.83, 0.55)
    pt3dadd(71.89, -26.22, 3.83, 0.55)
    pt3dadd(72.26, -26.58, 3.9, 0.55)
    pt3dadd(72.62, -26.77, 4.21, 0.55)
    pt3dadd(73.17, -26.95, 4.58, 0.55)
    pt3dadd(73.72, -27.31, 4.73, 0.55)
    pt3dadd(74.08, -27.5, 4.73, 0.55)
    pt3dadd(74.81, -27.86, 5.04, 0.55)
    pt3dadd(75.18, -28.04, 5.27, 0.55)
    pt3dadd(76.09, -28.4, 5.57, 0.55)
    pt3dadd(76.64, -28.58, 5.64, 0.55)
    pt3dadd(77.18, -28.77, 5.87, 0.55)
    pt3dadd(77.73, -29.14, 6.02, 0.55)
    pt3dadd(78.09, -29.14, 6.18, 0.55)
    pt3dadd(78.64, -29.32, 6.48, 0.55)
    pt3dadd(79.19, -29.5, 6.48, 0.55)
    pt3dadd(79.73, -29.5, 6.93, 0.55)
    pt3dadd(80.09, -29.5, 7.16, 0.55)
    pt3dadd(80.83, -29.5, 7.61, 0.55)
    pt3dadd(81.37, -29.68, 7.92, 0.55)
    pt3dadd(81.93, -29.68, 8.14, 0.55)
    pt3dadd(82.84, -29.86, 8.67, 0.55)
    pt3dadd(82.84, -29.86, 9.21, 0.55)
    pt3dadd(83.2, -30.04, 9.43, 0.55)
    pt3dadd(83.39, -30.22, 9.74, 0.55)
    pt3dadd(83.57, -30.22, 10.63, 0.55)
    pt3dadd(83.94, -29.86, 10.87, 0.55)
    pt3dadd(83.94, -29.86, 10.57, 0.55)
    pt3dadd(83.94, -29.86, 10.42, 0.55)
    pt3dadd(83.94, -29.86, 10.27, 0.55)
    pt3dadd(83.94, -29.86, 10.11, 0.55)
    pt3dadd(84.3, -29.86, 9.88, 0.55)
    pt3dadd(84.3, -29.86, 9.74, 0.55)
    pt3dadd(84.48, -29.86, 9.58, 0.55)
    pt3dadd(84.48, -29.86, 9.36, 0.55)
    pt3dadd(84.48, -29.86, 9.04, 0.55)
    pt3dadd(84.48, -29.86, 8.9, 0.55)
    pt3dadd(84.84, -29.86, 8.83, 0.55)
    pt3dadd(84.84, -29.86, 8.67, 0.55)
    pt3dadd(85.03, -29.86, 8.6, 0.55)
    pt3dadd(85.2, -29.86, 8.52, 0.55)
    pt3dadd(85.39, -29.86, 8.37, 0.55)
    pt3dadd(85.58, -29.86, 8.14, 0.55)
    pt3dadd(85.76, -29.86, 7.92, 0.55)
    pt3dadd(86.48, -29.86, 7.84, 0.55)
    pt3dadd(86.67, -30.04, 7.84, 0.55)
    pt3dadd(87.04, -30.22, 7.84, 0.55)
    pt3dadd(87.22, -30.22, 7.77, 0.55)
    pt3dadd(87.4, -30.22, 7.61, 0.55)
    pt3dadd(87.77, -30.04, 7.54, 0.55)
    pt3dadd(87.95, -30.04, 7.46, 0.55)
    pt3dadd(88.12, -29.86, 7.39, 0.55)
    pt3dadd(88.5, -29.86, 7.16, 0.55)
    pt3dadd(88.68, -29.86, 7.08, 0.55)
    pt3dadd(88.86, -29.68, 7.01, 0.55)
    pt3dadd(89.04, -29.68, 6.93, 0.55)
    pt3dadd(89.41, -29.68, 6.86, 0.55)
    pt3dadd(89.59, -29.68, 6.78, 0.55)
    pt3dadd(89.59, -29.5, 6.71, 0.55)
    pt3dadd(89.77, -29.68, 6.71, 0.55)
    pt3dadd(89.96, -29.68, 6.55, 0.55)
    pt3dadd(90.14, -29.68, 6.4, 0.55)
    pt3dadd(90.32, -29.86, 6.33, 0.55)
    pt3dadd(90.69, -29.86, 6.25, 0.55)
    pt3dadd(90.87, -29.86, 6.1, 0.55)
    pt3dadd(91.05, -29.86, 6.1, 0.55)
    pt3dadd(91.6, -29.68, 5.95, 0.55)
    pt3dadd(91.78, -29.68, 5.87, 0.55)
    pt3dadd(91.78, -29.68, 5.72, 0.55)
    pt3dadd(91.96, -29.68, 5.64, 0.55)
    pt3dadd(92.15, -29.68, 5.57, 0.55)
    pt3dadd(92.15, -29.68, 5.42, 0.55)
    pt3dadd(92.33, -29.68, 5.34, 0.55)
    pt3dadd(92.69, -29.68, 5.34, 0.55)
    pt3dadd(93.06, -29.68, 5.27, 0.55)
    pt3dadd(93.42, -29.68, 5.27, 0.55)
    pt3dadd(93.42, -29.86, 5.27, 0.55)
    pt3dadd(93.79, -29.68, 5.27, 0.55)
    pt3dadd(93.79, -29.68, 5.04, 0.55)
    pt3dadd(93.97, -29.68, 4.81, 0.55)
    pt3dadd(94.15, -29.68, 4.81, 0.55)
    pt3dadd(94.34, -29.86, 4.65, 0.55)
    pt3dadd(94.34, -29.86, 4.51, 0.55)
    pt3dadd(94.52, -30.04, 4.43, 0.55)
    pt3dadd(94.88, -30.04, 4.28, 0.55)
    pt3dadd(95.06, -30.04, 4.21, 0.55)
    pt3dadd(95.25, -30.04, 4.05, 0.55)
    pt3dadd(95.61, -30.22, 3.9, 0.55)
    pt3dadd(95.79, -30.22, 3.83, 0.55)
    pt3dadd(96.16, -30.4, 3.68, 0.55)
    pt3dadd(96.34, -30.4, 3.6, 0.55)
    pt3dadd(96.52, -30.4, 3.45, 0.55)
    pt3dadd(96.89, -30.4, 3.3, 0.55)
    pt3dadd(97.25, -30.4, 3.14, 0.55)
    pt3dadd(97.25, -30.4, 2.99, 0.55)
    pt3dadd(97.62, -30.58, 2.84, 0.55)
    pt3dadd(97.98, -30.58, 2.69, 0.55)
    pt3dadd(98.17, -30.58, 2.54, 0.55)
    pt3dadd(98.53, -30.58, 2.31, 0.55)
    pt3dadd(99.08, -30.58, 2.01, 0.55)
    pt3dadd(99.26, -30.58, 1.78, 0.55)
    pt3dadd(99.63, -30.77, 1.78, 0.55)
    pt3dadd(99.81, -30.77, 1.78, 0.55)
    pt3dadd(100.54, -30.77, 1.63, 0.55)
    pt3dadd(101.27, -30.77, 1.4, 0.55)
    pt3dadd(101.82, -30.96, 1.25, 0.55)
    pt3dadd(102.18, -30.96, 1.1, 0.55)
    pt3dadd(102.55, -31.32, 0.95, 0.55)
    pt3dadd(102.73, -31.32, 0.8, 0.55)
    pt3dadd(102.91, -31.32, 0.57, 0.55)
    pt3dadd(103.46, -31.32, 0.34, 0.55)
    pt3dadd(104.01, -31.32, 0.19, 0.55)
    pt3dadd(104.37, -31.32, 0.12, 0.55)
    pt3dadd(105.1, -31.32, -0.04, 0.55)
    pt3dadd(105.46, -31.32, -0.19, 0.55)
    pt3dadd(106.56, -31.32, -0.49, 0.55)
    pt3dadd(106.92, -31.32, -0.64, 0.55)
    pt3dadd(107.47, -31.32, -0.87, 0.55)
    pt3dadd(108.57, -30.77, -0.95, 0.55)
    pt3dadd(109.3, -30.77, -1.17, 0.55)
    pt3dadd(110.76, -30.4, -1.63, 0.55)
    pt3dadd(111.12, -30.4, -1.85, 0.55)
    pt3dadd(111.67, -30.4, -2.08, 0.55)
    pt3dadd(112.95, -30.4, -2.23, 0.55)
    pt3dadd(113.86, -30.4, -2.23, 0.55)
    pt3dadd(115.5, -30.4, -2.23, 0.55)
    pt3dadd(115.86, -30.4, -2.31, 0.55)
    pt3dadd(116.96, -30.77, -2.46, 0.55)
    pt3dadd(119.51, -31.5, -2.76, 0.55)
    pt3dadd(120.06, -31.69, -2.99, 0.55)
    pt3dadd(120.97, -31.87, -3.14, 0.55)
    pt3dadd(121.52, -32.04, -3.22, 0.55)
    pt3dadd(122.8, -32.22, -3.37, 0.55)
    pt3dadd(123.16, -32.22, -3.6, 0.55)
    pt3dadd(123.71, -32.22, -3.74, 0.55)
    pt3dadd(124.07, -32.22, -3.9, 0.55)
    pt3dadd(124.99, -32.04, -4.05, 0.55)
    pt3dadd(125.35, -32.04, -4.2, 0.55)
    pt3dadd(125.72, -31.87, -4.35, 0.55)
    pt3dadd(126.08, -31.87, -4.51, 0.55)
    pt3dadd(126.45, -31.87, -4.66, 0.55)
    pt3dadd(126.81, -31.87, -4.73, 0.55)
    pt3dadd(128.27, -31.69, -4.81, 0.55)
    pt3dadd(129.73, -31.14, -4.96, 0.55)
  }
}
proc shape3d_6() {
  dend[17] {
    pt3dadd(130.46, -30.77, -5.04, 0.55)
    pt3dadd(131.37, -30.77, -5.11, 0.55)
    pt3dadd(132.83, -30.77, -5.19, 0.55)
    pt3dadd(133.56, -30.77, -5.19, 0.55)
    pt3dadd(134.66, -30.77, -5.19, 0.55)
    pt3dadd(135.57, -30.96, -5.19, 0.55)
    pt3dadd(137.02, -31.32, -5.19, 0.55)
    pt3dadd(138.11, -31.5, -5.19, 0.55)
    pt3dadd(139.04, -31.69, -5.26, 0.55)
    pt3dadd(139.58, -31.87, -5.41, 0.55)
    pt3dadd(140.3, -32.22, -5.49, 0.55)
    pt3dadd(141.23, -32.6, -5.64, 0.55)
    pt3dadd(142.69, -32.6, -5.94, 0.55)
    pt3dadd(143.77, -32.6, -6.17, 0.55)
    pt3dadd(144.69, -32.22, -6.4, 0.55)
    pt3dadd(145.42, -32.04, -6.63, 0.55)
    pt3dadd(145.79, -31.5, -6.7, 0.55)
    pt3dadd(146.52, -31.32, -6.7, 0.55)
    pt3dadd(147.43, -30.96, -6.78, 0.55)
    pt3dadd(147.98, -30.58, -6.78, 0.55)
    pt3dadd(149.44, -30.04, -6.78, 0.55)
    pt3dadd(150.17, -29.86, -6.78, 0.55)
    pt3dadd(151.26, -29.14, -6.78, 0.55)
    pt3dadd(153.45, -28.22, -6.85, 0.55)
    pt3dadd(153.8, -27.68, -6.85, 3.1)
    pt3dadd(154.73, -27.13, -6.85, 3.1)
    pt3dadd(156, -26.4, -6.85, 3.1)
    pt3dadd(156.55, -26.04, -6.85, 3.1)
  }
  apic[0] {pt3dclear()
    pt3dadd(27.82, -7.19, 11.1, 20.5262)
    pt3dadd(27.27, -5.55, 11.1, 5.84)
    pt3dadd(26.9, -3.73, 11.1, 5.29)
    pt3dadd(26.36, -1.91, 11.1, 4.93)
    pt3dadd(25.81, -0.45, 11.1, 4.93)
    pt3dadd(24.72, 2.46, 11.1, 4.56)
    pt3dadd(24.35, 3.01, 11.1, 4.56)
    pt3dadd(23.99, 3.92, 11.1, 4.56)
    pt3dadd(23.79, 4.83, 11.1, 4.56)
    pt3dadd(23.79, 5.38, 11.1, 4.56)
  }
  apic[1] {pt3dclear()
    pt3dadd(23.79, 5.38, 11.1, 4.56)
    pt3dadd(21.31, 6.46, 10.95, 0.73)
    pt3dadd(20.21, 7.37, 10.95, 0.73)
    pt3dadd(19.12, 7.74, 11.33, 0.73)
    pt3dadd(17.48, 8.65, 11.41, 0.73)
    pt3dadd(16.75, 8.65, 11.63, 0.73)
    pt3dadd(15.65, 8.83, 11.71, 0.73)
    pt3dadd(14.56, 9.19, 11.78, 0.73)
    pt3dadd(13.83, 9.38, 11.94, 0.73)
    pt3dadd(12.18, 9.01, 11.94, 0.73)
    pt3dadd(10.91, 8.46, 12.01, 0.73)
    pt3dadd(10.18, 7.74, 12.01, 0.73)
    pt3dadd(9.26, 7.01, 12.01, 0.73)
    pt3dadd(8.17, 5.55, 12.01, 0.73)
    pt3dadd(7.26, 4.82, 12.01, 0.73)
    pt3dadd(5.8, 3.36, 12.01, 0.73)
    pt3dadd(4.52, 3.18, 12.01, 0.73)
    pt3dadd(3.24, 2.45, 12.01, 0.73)
    pt3dadd(1.61, 2.09, 12.09, 0.73)
    pt3dadd(-0.59, 1.91, 12.31, 0.73)
    pt3dadd(-1.68, 1.91, 12.54, 0.73)
    pt3dadd(-3.32, 1.91, 12.69, 0.73)
    pt3dadd(-4.78, 1.72, 12.84, 0.73)
    pt3dadd(-5.51, 1.72, 12.92, 0.73)
    pt3dadd(-7.89, 1.91, 13.07, 0.73)
    pt3dadd(-11.53, 1.72, 13.22, 0.73)
    pt3dadd(-12.45, 1.72, 13.37, 0.73)
    pt3dadd(-13.9, 1.72, 13.45, 0.73)
    pt3dadd(-15.37, 1.72, 13.6, 0.73)
    pt3dadd(-17.19, 2.09, 13.6, 0.73)
    pt3dadd(-18.29, 2.27, 13.68, 0.73)
    pt3dadd(-21.02, 2.27, 13.83, 0.73)
    pt3dadd(-23.94, 2.27, 13.89, 0.73)
    pt3dadd(-25.58, 2.27, 13.89, 0.73)
    pt3dadd(-28.69, 2.63, 13.89, 0.73)
    pt3dadd(-29.96, 2.82, 13.89, 0.73)
    pt3dadd(-31.23, 2.82, 14.28, 0.73)
    pt3dadd(-32.52, 2.82, 14.51, 0.73)
    pt3dadd(-33.61, 2.82, 14.74, 0.73)
    pt3dadd(-35.25, 2.82, 15.12, 0.73)
    pt3dadd(-36.53, 2.63, 15.34, 0.73)
    pt3dadd(-38.17, 2.09, 15.42, 0.73)
    pt3dadd(-39.27, 1.91, 15.72, 0.73)
    pt3dadd(-40.73, 1.18, 15.94, 0.73)
    pt3dadd(-41.82, 0.63, 16.1, 0.73)
    pt3dadd(-43.28, 0.08, 16.25, 0.73)
    pt3dadd(-44.38, -0.28, 16.48, 0.73)
    pt3dadd(-45.11, -0.46, 16.56, 0.73)
    pt3dadd(-45.65, -0.83, 16.33, 0.73)
    pt3dadd(-46.38, -0.83, 16.1, 0.73)
    pt3dadd(-46.93, -1.02, 15.8, 0.73)
    pt3dadd(-47.11, -1.02, 15.19, 0.73)
    pt3dadd(-48.03, -1.56, 14.74, 0.73)
    pt3dadd(-48.57, -1.74, 14.51, 0.73)
    pt3dadd(-49.3, -1.74, 14.36, 0.73)
    pt3dadd(-50.21, -1.92, 14.2, 0.73)
    pt3dadd(-50.94, -1.74, 13.98, 0.73)
    pt3dadd(-52.04, -1.74, 13.75, 0.73)
    pt3dadd(-52.77, -1.37, 13.6, 0.73)
    pt3dadd(-53.68, -1.19, 13.45, 0.73)
    pt3dadd(-54.78, -1.02, 13.22, 0.73)
    pt3dadd(-56.24, -1.02, 13, 0.73)
    pt3dadd(-57.33, -0.83, 12.92, 0.73)
    pt3dadd(-58.43, -0.46, 12.54, 0.73)
    pt3dadd(-59.34, -0.28, 12.31, 0.73)
  }
  apic[2] {pt3dclear()
    pt3dadd(23.79, 5.38, 11.1, 4.56)
    pt3dadd(23.99, 7.56, 11.1, 4.01)
    pt3dadd(24.17, 8.48, 11.1, 4.01)
    pt3dadd(23.99, 9.92, 11.25, 4.01)
    pt3dadd(23.99, 10.48, 11.33, 4.01)
    pt3dadd(23.99, 11.21, 11.41, 4.01)
    pt3dadd(23.99, 12.67, 11.56, 4.01)
    pt3dadd(24.17, 13.39, 11.63, 4.01)
    pt3dadd(24.35, 14.31, 11.86, 4.01)
    pt3dadd(24.53, 15.03, 12.09, 4.01)
    pt3dadd(24.72, 15.76, 12.09, 4.01)
    pt3dadd(24.72, 17.04, 12.24, 4.01)
    pt3dadd(24.72, 17.77, 12.31, 4.01)
    pt3dadd(24.9, 18.31, 12.46, 4.01)
    pt3dadd(25.26, 19.04, 12.54, 4.01)
    pt3dadd(25.26, 19.59, 12.62, 4.01)
    pt3dadd(25.44, 20.14, 12.62, 4.01)
    pt3dadd(25.44, 21.05, 12.31, 4.01)
    pt3dadd(25.44, 21.59, 12.24, 4.01)
    pt3dadd(25.44, 22.32, 12.09, 4.01)
    pt3dadd(25.26, 22.87, 11.94, 4.01)
    pt3dadd(25.08, 23.96, 11.78, 4.01)
    pt3dadd(25.08, 24.69, 11.71, 4.01)
    pt3dadd(25.08, 25.59, 11.48, 4.01)
    pt3dadd(24.9, 26.15, 11.25, 4.01)
    pt3dadd(24.9, 26.51, 11.03, 4.01)
    pt3dadd(25.26, 27.06, 10.87, 4.01)
    pt3dadd(25.26, 27.61, 10.72, 4.01)
    pt3dadd(25.26, 28.15, 10.5, 4.01)
    pt3dadd(25.26, 28.52, 10.42, 4.01)
    pt3dadd(25.26, 29.06, 10.34, 4.01)
    pt3dadd(25.26, 29.43, 10.34, 4.01)
    pt3dadd(25.26, 29.79, 10.34, 4.01)
    pt3dadd(25.44, 30.34, 10.34, 4.01)
    pt3dadd(25.44, 30.89, 10.19, 4.01)
    pt3dadd(25.44, 31.43, 10.04, 4.01)
    pt3dadd(25.44, 32.16, 9.97, 4.01)
    pt3dadd(25.44, 32.89, 9.89, 4.01)
    pt3dadd(25.63, 33.8, 9.74, 4.01)
    pt3dadd(25.81, 34.53, 9.66, 4.01)
    pt3dadd(25.81, 35.08, 9.6, 4.01)
    pt3dadd(25.99, 35.99, 9.44, 4.01)
    pt3dadd(25.99, 36.72, 9.44, 4.01)
    pt3dadd(25.99, 37.63, 9.21, 4.01)
    pt3dadd(25.99, 38.54, 9.21, 4.01)
    pt3dadd(25.99, 39.81, 9.13, 4.01)
    pt3dadd(26.17, 40.54, 9.13, 4.01)
    pt3dadd(26.54, 42.73, 9.06, 4.01)
    pt3dadd(26.54, 43.82, 9.06, 4.01)
    pt3dadd(26.54, 45.28, 9.06, 4.01)
    pt3dadd(26.54, 46.92, 9.06, 4.01)
    pt3dadd(26.54, 48.74, 9.06, 4.01)
    pt3dadd(26.36, 52.39, 9.13, 4.01)
    pt3dadd(25.63, 57.31, 9.13, 3.65)
    pt3dadd(25.44, 58.03, 9.13, 3.65)
    pt3dadd(25.26, 59.85, 9.13, 3.65)
    pt3dadd(24.9, 61.68, 9.13, 3.65)
    pt3dadd(24.17, 64.23, 9.13, 3.65)
    pt3dadd(24.11, 69.43, 9.06, 3.65)
    pt3dadd(23.93, 69.79, 9.06, 3.65)
    pt3dadd(23.56, 71.25, 9.06, 3.65)
    pt3dadd(22.83, 72.7, 9.06, 3.65)
    pt3dadd(22.29, 73.98, 9.06, 3.65)
    pt3dadd(21.74, 75.44, 9.06, 3.65)
    pt3dadd(21.19, 77.44, 9.06, 3.65)
    pt3dadd(20.46, 79.63, 9.06, 3.65)
    pt3dadd(20.28, 82, 9.06, 3.65)
    pt3dadd(20.1, 84, 9.06, 3.65)
    pt3dadd(19.91, 86.92, 9.21, 3.65)
    pt3dadd(19.91, 87.83, 9.28, 3.65)
    pt3dadd(19.91, 88.74, 9.37, 3.65)
    pt3dadd(19.73, 89.83, 9.44, 3.65)
    pt3dadd(19.73, 90.56, 9.6, 3.65)
    pt3dadd(19.55, 91.65, 9.6, 3.65)
    pt3dadd(19.55, 92.56, 9.6, 3.65)
    pt3dadd(19.55, 93.29, 9.74, 3.65)
    pt3dadd(19.55, 95.66, 9.74, 3.28)
    pt3dadd(19, 96.03, 9.97, 3.28)
    pt3dadd(18.82, 96.57, 10.04, 3.28)
    pt3dadd(18.82, 97.12, 10.04, 3.28)
    pt3dadd(18.64, 97.85, 10.12, 3.28)
    pt3dadd(18.27, 99.67, 10.5, 2.92)
    pt3dadd(18.09, 100.22, 10.57, 2.92)
    pt3dadd(18.09, 100.95, 10.57, 2.92)
    pt3dadd(17.91, 101.86, 10.72, 2.92)
    pt3dadd(17.91, 102.4, 10.87, 2.92)
    pt3dadd(17.91, 102.77, 11.18, 2.92)
    pt3dadd(17.91, 103.31, 11.25, 2.92)
    pt3dadd(17.91, 103.86, 11.41, 2.92)
    pt3dadd(17.72, 104.77, 11.71, 2.92)
    pt3dadd(17.54, 105.32, 11.86, 2.92)
    pt3dadd(17.54, 106.05, 11.94, 2.92)
    pt3dadd(17.54, 106.78, 12.01, 2.92)
    pt3dadd(17.36, 107.69, 12.09, 2.92)
    pt3dadd(17.18, 108.42, 12.31, 2.92)
    pt3dadd(16.63, 109.14, 12.62, 2.92)
    pt3dadd(16.45, 109.51, 12.92, 2.92)
    pt3dadd(16.26, 110.06, 13, 2.92)
    pt3dadd(16.08, 110.78, 13.3, 2.92)
    pt3dadd(15.9, 111.51, 13.6, 2.92)
    pt3dadd(15.72, 111.7, 13.6, 2.92)
    pt3dadd(15.72, 113.52, 13.15, 3.47)
    pt3dadd(15.72, 113.88, 13, 3.47)
    pt3dadd(15.72, 114.25, 12.84, 3.47)
    pt3dadd(15.72, 114.25, 12.46, 3.47)
    pt3dadd(15.52, 114.61, 12.31, 3.47)
    pt3dadd(15.52, 114.79, 12.16, 3.47)
    pt3dadd(15.52, 114.98, 12.01, 3.47)
    pt3dadd(15.52, 115.16, 11.71, 3.47)
    pt3dadd(15.52, 115.34, 11.41, 3.47)
    pt3dadd(15.52, 115.52, 11.03, 3.47)
    pt3dadd(15.52, 115.52, 10.8, 3.47)
    pt3dadd(15.52, 116.07, 10.65, 3.47)
    pt3dadd(15.52, 116.25, 10.42, 3.47)
    pt3dadd(15.52, 116.43, 10.19, 3.47)
    pt3dadd(15.52, 116.43, 9.89, 3.47)
    pt3dadd(15.52, 116.61, 9.6, 3.47)
    pt3dadd(15.52, 116.8, 9.44, 3.47)
    pt3dadd(15.52, 116.98, 9.21, 3.47)
    pt3dadd(15.52, 117.53, 8.91, 3.47)
    pt3dadd(15.52, 117.71, 8.83, 3.47)
    pt3dadd(15.35, 117.89, 8.68, 3.47)
    pt3dadd(15.35, 118.44, 8.38, 3.47)
    pt3dadd(15.35, 118.8, 8.15, 3.47)
    pt3dadd(15.17, 119.53, 7.92, 3.47)
    pt3dadd(15.17, 120.08, 7.77, 3.47)
    pt3dadd(15.17, 120.62, 7.63, 3.47)
    pt3dadd(15.35, 121.53, 7.31, 3.47)
    pt3dadd(15.52, 122.08, 7.01, 3.47)
    pt3dadd(15.52, 122.45, 6.78, 3.47)
    pt3dadd(15.72, 122.81, 6.56, 3.47)
    pt3dadd(15.72, 123.72, 6.33, 3.47)
    pt3dadd(15.9, 124.27, 6.18, 3.47)
    pt3dadd(15.9, 124.81, 6.03, 3.47)
    pt3dadd(16.08, 125.36, 5.8, 3.47)
    pt3dadd(16.08, 126.09, 5.57, 3.47)
    pt3dadd(16.08, 126.27, 5.42, 3.47)
    pt3dadd(16.08, 126.27, 5.27, 3.47)
    pt3dadd(16.08, 126.64, 4.97, 3.47)
    pt3dadd(16.26, 127.73, 4.81, 3.47)
    pt3dadd(16.08, 128.46, 4.81, 3.47)
  }
  apic[3] {pt3dclear()
    pt3dadd(16.08, 128.46, 4.81, 3.47)
    pt3dadd(17.37, 129.31, 3.98, 0.91)
    pt3dadd(17.56, 129.86, 4.13, 0.91)
    pt3dadd(18.47, 130.41, 4.21, 0.91)
    pt3dadd(19.02, 130.59, 4.36, 0.91)
  }
}
proc shape3d_7() {
  apic[3] {
    pt3dadd(20.11, 131.31, 4.36, 0.91)
    pt3dadd(21.57, 131.86, 4.44, 0.91)
    pt3dadd(22.85, 132.23, 4.44, 0.91)
    pt3dadd(24.49, 132.23, 4.44, 0.91)
    pt3dadd(26.5, 132.23, 4.44, 0.91)
    pt3dadd(29.42, 132.23, 4.44, 0.91)
    pt3dadd(32.88, 131.68, 4.44, 0.91)
    pt3dadd(36.9, 130.77, 4.44, 0.73)
    pt3dadd(38.89, 130.22, 4.44, 0.73)
    pt3dadd(40.91, 130.59, 4.44, 0.73)
    pt3dadd(43.28, 131.68, 4.44, 0.73)
    pt3dadd(45.28, 132.41, 4.44, 0.73)
    pt3dadd(47.11, 133.31, 4.44, 0.73)
    pt3dadd(49.12, 134.42, 4.44, 0.73)
    pt3dadd(51.86, 135.69, 4.44, 0.73)
    pt3dadd(54.41, 136.97, 4.44, 0.73)
    pt3dadd(56.6, 138.24, 4.44, 0.73)
    pt3dadd(58.43, 139.52, 4.44, 0.73)
    pt3dadd(62.07, 140.06, 4.51, 0.73)
    pt3dadd(63.35, 140.61, 4.51, 0.73)
    pt3dadd(64.45, 141.16, 4.51, 0.73)
    pt3dadd(65.91, 141.7, 4.51, 0.73)
    pt3dadd(67.91, 141.89, 4.51, 0.73)
    pt3dadd(70.65, 142.8, 4.51, 0.73)
    pt3dadd(72.47, 143.53, 4.51, 0.73)
    pt3dadd(74.3, 143.71, 4.51, 0.73)
    pt3dadd(76.12, 144.25, 4.51, 0.73)
    pt3dadd(77.22, 144.62, 4.51, 0.73)
    pt3dadd(78.3, 144.98, 4.51, 0.73)
    pt3dadd(78.86, 145.71, 4.66, 0.73)
    pt3dadd(79.22, 146.08, 4.74, 0.73)
    pt3dadd(79.94, 146.8, 4.81, 0.73)
    pt3dadd(80.68, 147.72, 4.97, 0.73)
    pt3dadd(81.78, 148.44, 5.12, 0.73)
    pt3dadd(82.69, 149.17, 5.35, 0.73)
    pt3dadd(83.79, 150.27, 5.42, 0.73)
    pt3dadd(84.15, 151.53, 5.57, 0.73)
    pt3dadd(84.52, 152.81, 5.65, 0.73)
    pt3dadd(85.43, 154.82, 5.88, 0.73)
    pt3dadd(85.61, 156.28, 6.03, 0.73)
    pt3dadd(85.97, 157.55, 6.18, 0.73)
    pt3dadd(86.16, 159.19, 6.25, 0.73)
    pt3dadd(87.62, 161.2, 6.25, 0.73)
    pt3dadd(88.53, 162.84, 6.33, 0.73)
    pt3dadd(89.99, 165.39, 6.56, 0.73)
    pt3dadd(90.35, 165.57, 6.56, 0.73)
    pt3dadd(90.9, 165.94, 6.56, 0.73)
    pt3dadd(92.36, 166.85, 6.56, 0.73)
    pt3dadd(93.64, 168.12, 6.71, 0.73)
    pt3dadd(94.92, 169.22, 6.86, 0.73)
    pt3dadd(95.46, 169.94, 7.01, 0.73)
    pt3dadd(96.19, 170.67, 7.24, 0.73)
    pt3dadd(97.11, 171.22, 7.39, 0.73)
    pt3dadd(97.84, 171.77, 7.55, 0.73)
    pt3dadd(98.75, 172.31, 7.69, 0.73)
    pt3dadd(99.48, 173.04, 7.84, 0.73)
    pt3dadd(100.21, 173.04, 7.92, 0.73)
    pt3dadd(101.3, 173.22, 8.07, 0.73)
    pt3dadd(102.4, 173.77, 8.3, 0.73)
    pt3dadd(103.31, 174.13, 8.45, 0.73)
    pt3dadd(104.59, 174.86, 8.53, 0.73)
    pt3dadd(106.59, 176.14, 8.68, 0.73)
    pt3dadd(108.05, 177.41, 8.75, 0.73)
    pt3dadd(109.51, 178.87, 8.83, 0.73)
    pt3dadd(110.42, 179.6, 8.91, 0.73)
    pt3dadd(110.79, 179.97, 8.91, 0.73)
  }
  apic[4] {pt3dclear()
    pt3dadd(16.08, 128.46, 4.81, 3.47)
    pt3dadd(15.9, 130.28, 4.81, 3.47)
    pt3dadd(15.72, 130.83, 4.66, 3.47)
    pt3dadd(15.35, 131.56, 4.66, 3.47)
    pt3dadd(15.35, 132.09, 4.59, 3.47)
    pt3dadd(15.35, 133, 4.59, 3.47)
    pt3dadd(14.81, 134.11, 4.59, 3.28)
    pt3dadd(14.62, 135.02, 4.59, 3.28)
    pt3dadd(14.43, 135.56, 4.51, 3.28)
    pt3dadd(14.43, 136.11, 4.51, 3.28)
    pt3dadd(14.81, 137.02, 4.28, 3.28)
    pt3dadd(14.81, 137.56, 4.28, 3.28)
    pt3dadd(14.99, 138.3, 4.13, 3.28)
    pt3dadd(14.99, 139.39, 4.06, 3.28)
    pt3dadd(14.81, 139.94, 3.98, 3.28)
    pt3dadd(14.81, 140.84, 3.91, 3.28)
    pt3dadd(14.81, 141.39, 3.91, 3.28)
    pt3dadd(14.81, 142.12, 3.91, 3.28)
    pt3dadd(14.81, 142.84, 3.83, 3.28)
    pt3dadd(14.81, 143.58, 3.75, 3.28)
    pt3dadd(14.81, 144.49, 3.68, 3.28)
    pt3dadd(14.62, 145.22, 3.61, 3.28)
    pt3dadd(14.43, 146.13, 3.53, 3.28)
    pt3dadd(14.43, 146.68, 3.53, 3.28)
    pt3dadd(14.43, 147.77, 3.38, 3.28)
    pt3dadd(14.43, 148.31, 3.3, 3.28)
    pt3dadd(14.26, 148.5, 3.3, 3.28)
    pt3dadd(14.08, 149.23, 3.15, 3.28)
    pt3dadd(14.08, 150.14, 3.07, 3.28)
    pt3dadd(13.71, 151.23, 3, 3.28)
    pt3dadd(13.71, 152.5, 2.92, 3.28)
    pt3dadd(13.53, 153.24, 2.86, 3.28)
    pt3dadd(13.53, 154.88, 2.78, 3.28)
    pt3dadd(13.53, 155.61, 2.7, 3.28)
    pt3dadd(13.16, 158.52, 2.7, 3.1)
    pt3dadd(12.98, 159.07, 2.7, 3.1)
    pt3dadd(12.8, 160.34, 2.62, 3.1)
    pt3dadd(12.43, 161.25, 2.62, 3.1)
    pt3dadd(11.7, 163.99, 2.62, 2.74)
    pt3dadd(11.34, 164.53, 2.62, 2.74)
    pt3dadd(10.97, 165.63, 2.62, 2.74)
    pt3dadd(10.43, 166.72, 2.62, 2.74)
    pt3dadd(9.7, 167.81, 2.62, 2.74)
    pt3dadd(9.33, 168.54, 2.54, 2.74)
    pt3dadd(8.97, 169.27, 2.39, 2.74)
    pt3dadd(8.42, 170.36, 2.32, 2.74)
    pt3dadd(7.69, 171.46, 2.24, 2.74)
    pt3dadd(7.14, 174.92, 2.16, 2.74)
    pt3dadd(7.32, 175.65, 2.16, 2.74)
    pt3dadd(7.14, 176.74, 2.16, 2.74)
    pt3dadd(6.59, 177.83, 2.16, 2.74)
    pt3dadd(6.59, 179.47, 2.16, 2.74)
    pt3dadd(6.59, 180.93, 2.16, 2.74)
    pt3dadd(6.78, 182.57, 2.16, 2.74)
    pt3dadd(7.14, 183.85, 2.16, 2.74)
    pt3dadd(8.37, 183.66, 2.16, 2.74)
    pt3dadd(8.19, 184.02, 2.16, 2.74)
    pt3dadd(8.19, 184.39, 2.16, 2.74)
    pt3dadd(8.56, 185.12, 2.16, 2.74)
    pt3dadd(8.92, 185.3, 2.16, 2.74)
    pt3dadd(8.92, 186.03, 2.16, 2.74)
    pt3dadd(9.1, 187.67, 2.16, 2.92)
    pt3dadd(8.74, 188.76, 2.16, 2.92)
    pt3dadd(8.74, 189.86, 2.16, 2.92)
    pt3dadd(8.56, 190.95, 2.16, 2.92)
    pt3dadd(8.56, 191.86, 2.16, 2.92)
    pt3dadd(8.56, 192.95, 2.16, 2.92)
    pt3dadd(8.37, 193.86, 2.16, 3.1)
    pt3dadd(8.19, 194.41, 2.16, 3.1)
    pt3dadd(8.01, 194.96, 2.16, 3.1)
    pt3dadd(8.01, 196.05, 2.16, 3.1)
    pt3dadd(7.83, 196.78, 2.16, 3.1)
    pt3dadd(7.83, 197.69, 2.16, 3.1)
    pt3dadd(7.83, 198.6, 2.16, 3.1)
    pt3dadd(8.01, 199.33, 2.16, 3.1)
    pt3dadd(7.83, 200.24, 2.16, 3.1)
    pt3dadd(7.64, 201.15, 2.16, 3.1)
    pt3dadd(7.64, 201.88, 2.16, 3.1)
    pt3dadd(7.28, 202.43, 2.16, 3.1)
    pt3dadd(7.1, 203.16, 2.16, 3.1)
    pt3dadd(7.1, 203.7, 2.16, 3.1)
    pt3dadd(7.1, 204.25, 2.16, 3.1)
    pt3dadd(6.91, 204.98, 2.16, 3.47)
    pt3dadd(6.73, 205.71, 2.16, 3.47)
    pt3dadd(6.55, 206.25, 2.16, 3.47)
    pt3dadd(6.55, 207.35, 2.16, 3.47)
    pt3dadd(6.55, 207.89, 2.16, 3.47)
    pt3dadd(6.37, 208.8, 2.16, 3.47)
    pt3dadd(6.37, 209.35, 2.16, 3.47)
    pt3dadd(6.37, 209.9, 2.16, 3.47)
    pt3dadd(6.37, 210.63, 2.16, 3.47)
    pt3dadd(6.18, 211.17, 2.16, 3.47)
    pt3dadd(6.18, 212.08, 2.16, 3.47)
    pt3dadd(6.18, 212.63, 2.16, 3.47)
    pt3dadd(6.18, 213.18, 2.16, 3.65)
    pt3dadd(6.18, 213.36, 2.16, 3.65)
    pt3dadd(6.18, 214.27, 2.16, 3.65)
    pt3dadd(6.18, 214.82, 2.16, 3.65)
    pt3dadd(6.18, 215.91, 2.16, 3.65)
    pt3dadd(6.18, 217.19, 2.16, 3.65)
    pt3dadd(6.18, 217.73, 2.16, 3.65)
    pt3dadd(6.37, 218.64, 2.16, 3.65)
    pt3dadd(6.37, 219.37, 2.16, 3.65)
    pt3dadd(6.55, 220.83, 2.16, 3.1)
    pt3dadd(6.37, 222.29, 2.16, 3.1)
    pt3dadd(6.37, 223.02, 2.16, 3.1)
    pt3dadd(6.37, 223.93, 2.16, 3.1)
    pt3dadd(6.18, 225.2, 2.16, 3.1)
    pt3dadd(6, 226.3, 2.16, 3.1)
    pt3dadd(5.64, 227.39, 2.16, 3.1)
    pt3dadd(5.64, 228.48, 2.16, 3.1)
    pt3dadd(5.46, 229.21, 2.16, 3.1)
    pt3dadd(5.46, 229.94, 2.16, 3.1)
    pt3dadd(5.46, 230.67, 2.16, 3.1)
    pt3dadd(5.46, 231.21, 2.16, 3.1)
    pt3dadd(5.27, 231.94, 2.16, 3.1)
    pt3dadd(5.27, 232.85, 2.16, 3.1)
    pt3dadd(5.09, 233.95, 2.16, 3.1)
    pt3dadd(4.91, 235.22, 2.16, 3.1)
    pt3dadd(4.91, 235.95, 2.16, 3.1)
    pt3dadd(4.91, 236.68, 2.39, 3.1)
    pt3dadd(4.91, 237.96, 2.47, 3.1)
    pt3dadd(4.91, 238.5, 2.54, 3.1)
    pt3dadd(4.91, 239.6, 2.54, 3.1)
    pt3dadd(4.91, 240.51, 2.54, 3.1)
    pt3dadd(4.91, 241.24, 2.39, 3.1)
    pt3dadd(4.72, 241.96, 2.32, 3.83)
    pt3dadd(4.54, 242.51, 2.32, 3.83)
    pt3dadd(4.54, 243.24, 2.32, 3.83)
    pt3dadd(4.36, 243.97, 2.32, 3.83)
    pt3dadd(4.36, 244.7, 2.32, 3.83)
    pt3dadd(4.36, 245.24, 2.24, 3.83)
    pt3dadd(4.36, 245.79, 2.16, 3.83)
    pt3dadd(4.36, 246.52, 2.01, 3.83)
    pt3dadd(4.36, 247.25, 2.01, 3.83)
    pt3dadd(4.18, 247.79, 1.95, 3.83)
    pt3dadd(4.18, 248.34, 1.78, 3.83)
    pt3dadd(4.18, 249.25, 1.56, 3.83)
    pt3dadd(4.36, 251.26, 1.48, 3.47)
    pt3dadd(4.54, 251.62, 1.48, 3.47)
    pt3dadd(4.54, 252.35, 1.56, 3.47)
    pt3dadd(4.54, 252.89, 1.63, 3.47)
    pt3dadd(4.54, 253.81, 1.95, 3.47)
    pt3dadd(4.36, 254.35, 2.16, 3.47)
    pt3dadd(4.18, 255.07, 2.24, 3.47)
    pt3dadd(4.18, 255.81, 2.39, 3.47)
    pt3dadd(3.99, 256.36, 2.54, 3.47)
    pt3dadd(3.99, 256.89, 2.62, 3.47)
    pt3dadd(3.99, 257.82, 2.7, 3.47)
    pt3dadd(3.99, 258.36, 2.78, 3.47)
    pt3dadd(3.99, 259.45, 2.92, 3.47)
    pt3dadd(3.99, 260.37, 3, 3.47)
    pt3dadd(3.81, 261.28, 3.22, 3.47)
    pt3dadd(3.63, 261.82, 3.38, 3.47)
    pt3dadd(3.63, 263.1, 3.45, 3.47)
    pt3dadd(3.63, 264.74, 3.53, 3.47)
    pt3dadd(3.63, 266.01, 3.61, 3.47)
  }
  apic[5] {pt3dclear()
    pt3dadd(3.63, 266.01, 3.61, 3.47)
    pt3dadd(2.4, 266.14, 3.68, 1.46)
    pt3dadd(2.22, 266.32, 3.3, 1.46)
    pt3dadd(1.67, 266.88, 3.07, 1.46)
    pt3dadd(1.67, 267.42, 2.92, 1.46)
    pt3dadd(1.49, 268.34, 2.7, 1.46)
    pt3dadd(1.12, 269.25, 2.54, 1.46)
    pt3dadd(0.94, 269.79, 2.47, 1.46)
    pt3dadd(0.76, 270.7, 2.24, 1.46)
    pt3dadd(0.21, 271.8, 2.01, 1.46)
    pt3dadd(0.21, 272.53, 1.78, 1.46)
    pt3dadd(0.03, 273.07, 1.63, 1.46)
    pt3dadd(-0.15, 273.62, 1.56, 1.46)
    pt3dadd(-0.7, 274.53, 1.33, 1.46)
    pt3dadd(-0.88, 274.89, 1.18, 1.46)
    pt3dadd(-1.07, 275.62, 1.18, 1.46)
    pt3dadd(-1.07, 276.17, 1.18, 1.46)
    pt3dadd(-1.79, 277.26, 0.88, 1.46)
    pt3dadd(-2.16, 278.17, 0.72, 1.46)
    pt3dadd(-2.16, 279.09, 0.57, 1.46)
    pt3dadd(-2.34, 279.63, 0.5, 1.46)
    pt3dadd(-2.34, 280.18, 0.42, 1.46)
    pt3dadd(-2.34, 280.91, 0.27, 1.46)
    pt3dadd(-2.52, 281.64, 0.12, 1.46)
    pt3dadd(-2.7, 282.37, 0.04, 1.46)
    pt3dadd(-2.89, 283.28, -0.03, 1.46)
  }
}
proc shape3d_8() {
  apic[5] {
    pt3dadd(-2.89, 284.37, -0.11, 1.46)
    pt3dadd(-2.89, 285.1, -0.11, 1.46)
    pt3dadd(-2.16, 285.82, -0.18, 1.46)
    pt3dadd(-2.34, 286.19, -0.18, 1.46)
    pt3dadd(-2.52, 286.19, -0.18, 1.46)
    pt3dadd(-2.7, 286.74, -0.18, 1.46)
    pt3dadd(-2.7, 286.92, -0.18, 1.46)
    pt3dadd(-2.7, 287.64, -0.18, 1.46)
    pt3dadd(-2.7, 288.56, -0.18, 1.46)
    pt3dadd(-3.07, 289.47, -0.18, 1.82)
    pt3dadd(-3.07, 290.38, -0.26, 1.82)
    pt3dadd(-3.07, 290.56, -0.26, 2.55)
    pt3dadd(-3.07, 291.11, -0.26, 2.55)
    pt3dadd(-3.07, 292.2, -0.26, 2.55)
    pt3dadd(-3.07, 293.48, -0.26, 2.55)
    pt3dadd(-2.89, 295.3, -0.26, 2.55)
    pt3dadd(-2.89, 296.39, -0.26, 2.55)
  }
  apic[6] {pt3dclear()
    pt3dadd(-2.89, 296.39, -0.26, 2.55)
    pt3dadd(-3.79, 297.31, -0.71, 0.91)
    pt3dadd(-4.35, 297.31, -0.79, 0.91)
    pt3dadd(-5.08, 296.94, -0.87, 0.91)
    pt3dadd(-5.81, 296.76, -0.87, 0.91)
    pt3dadd(-6.72, 296.39, -0.87, 0.91)
    pt3dadd(-7.63, 296.2, -0.87, 0.91)
    pt3dadd(-8.91, 295.67, -0.94, 0.91)
    pt3dadd(-9.64, 294.94, -0.94, 0.91)
    pt3dadd(-10.92, 293.84, -1.02, 0.91)
    pt3dadd(-11.46, 292.93, -1.02, 0.91)
    pt3dadd(-12.01, 291.84, -1.09, 0.91)
    pt3dadd(-12.38, 291.11, -1.09, 0.91)
    pt3dadd(-12.92, 290.38, -1.09, 0.91)
    pt3dadd(-14.02, 289.29, -1.25, 0.91)
    pt3dadd(-14.75, 288.92, -1.25, 0.91)
    pt3dadd(-15.66, 288.74, -1.4, 0.91)
    pt3dadd(-16.94, 288.74, -1.55, 0.91)
    pt3dadd(-17.67, 288.56, -1.62, 0.91)
    pt3dadd(-18.76, 288.38, -1.78, 0.91)
    pt3dadd(-19.68, 287.47, -1.93, 0.91)
    pt3dadd(-20.22, 286.92, -2, 0.91)
    pt3dadd(-20.95, 286.01, -2.15, 0.91)
    pt3dadd(-21.13, 285.45, -2.31, 0.91)
    pt3dadd(-21.32, 284, -2.46, 0.91)
    pt3dadd(-21.5, 282.91, -2.61, 0.91)
    pt3dadd(-22.05, 281.82, -2.68, 0.91)
    pt3dadd(-22.59, 280.91, -2.84, 0.91)
    pt3dadd(-23.51, 280.18, -2.91, 0.91)
    pt3dadd(-25.15, 279.45, -2.99, 0.91)
    pt3dadd(-26.43, 278.89, -3.06, 0.91)
    pt3dadd(-27.16, 278.72, -3.06, 0.91)
    pt3dadd(-28.8, 278.36, -3.14, 0.91)
    pt3dadd(-30.08, 278.36, -3.14, 0.91)
    pt3dadd(-30.8, 278.54, -3.21, 0.91)
  }
  apic[7] {pt3dclear()
    pt3dadd(-2.89, 296.39, -0.26, 2.55)
    pt3dadd(-2.7, 297.31, -0.34, 1.82)
    pt3dadd(-2.89, 298.03, -0.34, 1.82)
    pt3dadd(-3.07, 298.76, -0.34, 1.82)
    pt3dadd(-3.44, 299.49, -0.34, 1.82)
    pt3dadd(-3.44, 300.39, -0.41, 1.82)
    pt3dadd(-3.62, 301.5, -0.41, 1.82)
    pt3dadd(-3.79, 302.04, -0.41, 1.82)
    pt3dadd(-4.17, 302.76, -0.41, 1.82)
    pt3dadd(-4.35, 303.32, -0.41, 1.82)
  }
  apic[8] {pt3dclear()
    pt3dadd(-4.35, 303.32, -0.41, 1.82)
    pt3dadd(-4.9, 303.5, -0.41, 1.46)
    pt3dadd(-5.81, 304.23, -0.41, 1.46)
    pt3dadd(-7.27, 304.95, -0.41, 1.09)
    pt3dadd(-8.73, 305.32, -0.41, 1.09)
    pt3dadd(-9.64, 305.69, -0.41, 1.09)
    pt3dadd(-11.1, 306.23, -0.34, 1.09)
    pt3dadd(-11.65, 306.23, -0.18, 1.09)
    pt3dadd(-12.56, 306.6, 0.04, 1.09)
    pt3dadd(-13.29, 306.78, 0.19, 1.09)
    pt3dadd(-14.02, 307.14, 0.27, 1.09)
    pt3dadd(-14.93, 307.69, 0.42, 1.09)
    pt3dadd(-15.66, 308.06, 0.57, 1.09)
    pt3dadd(-16.39, 308.97, 0.65, 1.09)
    pt3dadd(-17.3, 309.51, 0.8, 1.09)
    pt3dadd(-18.03, 310.06, 0.95, 1.09)
    pt3dadd(-18.76, 310.61, 1.03, 1.09)
    pt3dadd(-20.59, 311.14, 1.1, 1.09)
    pt3dadd(-21.32, 311.32, 1.18, 1.09)
    pt3dadd(-24.05, 312.06, 1.18, 1.09)
    pt3dadd(-25.15, 312.06, 1.18, 1.09)
    pt3dadd(-26.24, 312.06, 1.18, 1.09)
    pt3dadd(-28.43, 312.25, 1.18, 1.09)
    pt3dadd(-30.44, 312.43, 1.1, 1.09)
    pt3dadd(-31.16, 312.61, 1.03, 1.09)
    pt3dadd(-32.98, 312.61, 0.8, 1.09)
    pt3dadd(-33.91, 312.97, 0.57, 1.09)
    pt3dadd(-35.18, 313.51, 0.35, 1.09)
    pt3dadd(-35.91, 313.7, 0.27, 1.09)
    pt3dadd(-37.37, 314.25, 0.19, 1.09)
    pt3dadd(-38.1, 314.43, 0.12, 1.09)
    pt3dadd(-40.84, 314.98, -0.03, 1.09)
    pt3dadd(-43.03, 314.98, -0.03, 1.09)
    pt3dadd(-45.22, 314.61, -0.11, 1.09)
    pt3dadd(-48.14, 314.07, -0.18, 1.09)
    pt3dadd(-49.23, 313.51, -0.26, 1.09)
    pt3dadd(-50.69, 312.97, -0.34, 1.09)
    pt3dadd(-51.24, 312.61, -0.41, 1.09)
    pt3dadd(-52.15, 312.06, -0.49, 1.09)
    pt3dadd(-52.52, 311.51, -0.56, 1.09)
    pt3dadd(-54.34, 310.24, -0.87, 1.09)
    pt3dadd(-55.25, 309.51, -0.94, 1.09)
    pt3dadd(-56.17, 309.14, -1.09, 1.09)
    pt3dadd(-57.26, 308.42, -1.09, 1.09)
    pt3dadd(-59.45, 307.87, -1.17, 1.09)
    pt3dadd(-61.64, 307.87, -1.25, 1.09)
    pt3dadd(-64.01, 308.06, -1.25, 1.09)
    pt3dadd(-65.65, 308.6, -1.32, 1.09)
    pt3dadd(-67.1, 309.88, -1.4, 1.09)
    pt3dadd(-68.57, 311.14, -1.55, 1.09)
    pt3dadd(-70.21, 312.43, -1.55, 1.09)
    pt3dadd(-71.85, 313.7, -1.55, 1.09)
    pt3dadd(-72.95, 314.98, -1.62, 1.09)
    pt3dadd(-75.14, 316.25, -1.62, 1.09)
    pt3dadd(-78.24, 317.53, -1.55, 1.09)
    pt3dadd(-79.88, 318.07, -1.62, 1.09)
    pt3dadd(-80.43, 319.72, -1.55, 1.09)
    pt3dadd(-82.44, 320.08, -1.55, 1.09)
    pt3dadd(-82.62, 320.99, -1.62, 1.09)
    pt3dadd(-84.81, 324.82, -1.78, 1.09)
    pt3dadd(-85.18, 325.91, -1.78, 1.09)
    pt3dadd(-85.91, 327, -1.78, 1.09)
    pt3dadd(-86.45, 328.1, -1.78, 1.09)
    pt3dadd(-87, 329.19, -1.78, 1.09)
    pt3dadd(-88.1, 330.65, -1.78, 1.09)
    pt3dadd(-89.19, 332.29, -1.78, 1.09)
    pt3dadd(-90.47, 333.56, -1.78, 1.09)
    pt3dadd(-91.93, 334.66, -1.78, 1.09)
    pt3dadd(-94.3, 335.57, -1.78, 1.09)
    pt3dadd(-96.85, 336.66, -1.78, 1.09)
    pt3dadd(-99.41, 337.39, -1.78, 1.09)
    pt3dadd(-99.77, 337.39, -1.78, 1.09)
    pt3dadd(-99.77, 337.57, -1.93, 1.09)
    pt3dadd(-99.95, 338.12, -2.08, 1.09)
    pt3dadd(-100.87, 339.03, -2.46, 1.09)
    pt3dadd(-101.78, 339.76, -2.53, 1.09)
    pt3dadd(-102.69, 340.12, -2.68, 1.09)
    pt3dadd(-103.6, 340.67, -2.84, 1.09)
    pt3dadd(-105.43, 341.22, -2.99, 1.09)
    pt3dadd(-108.71, 341.58, -3.14, 1.09)
    pt3dadd(-109.62, 341.58, -3.37, 1.09)
    pt3dadd(-111.45, 341.4, -3.44, 1.09)
    pt3dadd(-112.91, 341.4, -3.44, 1.09)
    pt3dadd(-115.28, 340.85, -3.59, 1.09)
    pt3dadd(-116.19, 340.49, -3.59, 1.09)
    pt3dadd(-117.47, 339.94, -3.59, 1.09)
    pt3dadd(-118.75, 339.58, -3.59, 1.09)
    pt3dadd(-120.39, 339.39, -3.59, 1.09)
    pt3dadd(-121.67, 339.39, -3.59, 1.09)
    pt3dadd(-123.13, 339.58, -3.59, 1.09)
  }
  apic[9] {pt3dclear()
    pt3dadd(-4.35, 303.32, -0.41, 1.82)
    pt3dadd(-4.52, 303.88, -0.41, 1.09)
    pt3dadd(-4.52, 304.06, -0.41, 1.09)
    pt3dadd(-4.52, 304.24, 0.04, 1.09)
    pt3dadd(-4.52, 304.42, 0.42, 1.09)
    pt3dadd(-4.34, 304.42, 0.88, 1.09)
    pt3dadd(-4.15, 304.61, 1.33, 1.09)
    pt3dadd(-4.15, 304.79, 1.41, 1.09)
    pt3dadd(-4.15, 305.14, 1.63, 1.09)
    pt3dadd(-4.15, 305.34, 1.87, 1.09)
    pt3dadd(-3.97, 305.51, 2.16, 1.09)
    pt3dadd(-3.97, 306.06, 2.32, 1.09)
    pt3dadd(-3.97, 306.25, 2.7, 1.09)
    pt3dadd(-3.78, 306.43, 3, 1.09)
    pt3dadd(-3.78, 306.98, 3.3, 1.09)
    pt3dadd(-3.78, 307.16, 3.68, 1.09)
    pt3dadd(-3.97, 307.51, 4.06, 1.09)
    pt3dadd(-3.97, 307.7, 4.44, 1.09)
    pt3dadd(-4.15, 308.25, 4.89, 1.09)
    pt3dadd(-4.15, 308.43, 5.04, 1.09)
    pt3dadd(-4.15, 308.43, 5.42, 1.09)
    pt3dadd(-4.15, 308.8, 5.95, 1.09)
    pt3dadd(-4.34, 308.98, 6.33, 1.09)
    pt3dadd(-4.34, 308.98, 5.88, 1.09)
    pt3dadd(-4.34, 309.16, 5.57, 1.09)
    pt3dadd(-4.34, 309.16, 5.35, 1.09)
    pt3dadd(-4.34, 309.16, 5.19, 1.09)
    pt3dadd(-4.34, 309.16, 5.04, 1.09)
    pt3dadd(-4.34, 309.7, 4.66, 1.09)
    pt3dadd(-4.34, 309.7, 4.51, 1.09)
    pt3dadd(-4.34, 309.89, 4.36, 1.09)
    pt3dadd(-4.34, 309.89, 4.13, 1.09)
    pt3dadd(-4.34, 310.07, 3.83, 1.09)
    pt3dadd(-4.34, 310.44, 3.61, 1.09)
    pt3dadd(-4.34, 310.62, 3.45, 1.09)
    pt3dadd(-4.52, 310.8, 3.3, 1.09)
    pt3dadd(-4.52, 310.8, 3.07, 1.09)
    pt3dadd(-4.52, 311.17, 2.86, 1.09)
    pt3dadd(-4.7, 311.17, 2.62, 1.09)
    pt3dadd(-4.7, 311.53, 2.39, 1.09)
    pt3dadd(-4.7, 311.89, 2.16, 1.09)
    pt3dadd(-4.52, 312.07, 2.01, 1.09)
    pt3dadd(-4.52, 312.07, 1.71, 1.09)
    pt3dadd(-4.34, 312.26, 1.56, 1.09)
    pt3dadd(-4.34, 312.26, 1.33, 1.09)
    pt3dadd(-4.34, 312.81, 1.1, 1.09)
    pt3dadd(-4.52, 312.99, 0.8, 1.09)
    pt3dadd(-4.52, 313.53, 0.65, 1.09)
    pt3dadd(-4.7, 313.72, 0.57, 1.09)
    pt3dadd(-4.88, 313.89, 0.5, 1.09)
    pt3dadd(-4.88, 314.45, 0.27, 1.09)
    pt3dadd(-5.06, 314.99, 0.12, 1.09)
    pt3dadd(-5.06, 315.36, -0.03, 1.09)
    pt3dadd(-5.25, 315.89, -0.11, 1.09)
    pt3dadd(-5.25, 316.09, -0.18, 1.09)
    pt3dadd(-5.25, 316.63, -0.34, 1.09)
    pt3dadd(-5.43, 317.36, -0.56, 1.09)
    pt3dadd(-5.25, 317.54, -0.71, 1.09)
    pt3dadd(-4.88, 317.91, -0.94, 1.09)
    pt3dadd(-5.25, 318.45, -1.02, 1.64)
    pt3dadd(-5.25, 318.64, -1.47, 1.64)
    pt3dadd(-5.25, 319, -1.7, 1.64)
    pt3dadd(-5.25, 319.55, -1.93, 1.64)
    pt3dadd(-5.25, 320.28, -2.08, 1.64)
    pt3dadd(-5.25, 320.82, -2.31, 1.64)
    pt3dadd(-5.25, 321.19, -2.53, 1.64)
    pt3dadd(-5.25, 321.37, -2.68, 1.64)
    pt3dadd(-5.25, 321.73, -2.84, 1.64)
    pt3dadd(-5.25, 322.1, -2.99, 1.64)
    pt3dadd(-5.43, 322.46, -3.29, 1.64)
    pt3dadd(-5.43, 322.64, -3.52, 1.64)
    pt3dadd(-5.61, 322.83, -3.74, 1.64)
    pt3dadd(-5.61, 322.83, -4.2, 1.64)
    pt3dadd(-5.61, 322.83, -4.5, 1.64)
    pt3dadd(-5.61, 323.01, -4.81, 1.64)
    pt3dadd(-5.61, 323.56, -4.88, 1.64)
    pt3dadd(-5.61, 323.92, -4.88, 1.64)
    pt3dadd(-5.43, 324.28, -5.11, 1.64)
    pt3dadd(-5.43, 324.47, -5.64, 1.64)
    pt3dadd(-5.43, 325.2, -5.87, 1.64)
    pt3dadd(-5.43, 325.74, -6.09, 1.64)
    pt3dadd(-5.43, 326.47, -6.47, 1.64)
    pt3dadd(-5.43, 327.93, -6.62, 1.28)
    pt3dadd(-5.61, 328.48, -6.84, 1.28)
    pt3dadd(-5.79, 329.39, -7, 1.28)
    pt3dadd(-6.16, 329.93, -7.15, 1.28)
    pt3dadd(-6.34, 330.48, -7.23, 1.28)
    pt3dadd(-6.34, 331.21, -7.46, 1.28)
    pt3dadd(-6.34, 332.12, -7.75, 1.28)
    pt3dadd(-6.34, 332.85, -7.91, 1.28)
    pt3dadd(-6.52, 333.76, -7.99, 1.28)
    pt3dadd(-6.52, 335.03, -8.06, 1.28)
    pt3dadd(-6.52, 335.22, -8.21, 1.28)
    pt3dadd(-6.89, 336.31, -8.52, 1.28)
    pt3dadd(-7.07, 337.04, -8.67, 1.28)
    pt3dadd(-7.25, 337.77, -8.82, 1.28)
    pt3dadd(-7.07, 338.5, -8.97, 1.28)
  }
}
proc shape3d_9() {
  apic[9] {
    pt3dadd(-7.25, 339.04, -9.12, 1.28)
    pt3dadd(-8.17, 339.95, -9.2, 1.28)
    pt3dadd(-8.53, 340.5, -9.35, 1.28)
    pt3dadd(-8.71, 341.05, -9.5, 1.28)
    pt3dadd(-8.71, 341.78, -9.58, 1.82)
    pt3dadd(-8.71, 342.14, -9.65, 1.82)
    pt3dadd(-8.71, 342.87, -9.73, 1.82)
    pt3dadd(-8.71, 343.23, -9.73, 2.19)
    pt3dadd(-8.71, 343.42, -9.73, 2.19)
    pt3dadd(-8.53, 344.69, -9.8, 2.19)
    pt3dadd(-9.08, 345.06, -10.03, 2.19)
    pt3dadd(-9.26, 345.78, -10.26, 2.19)
    pt3dadd(-9.26, 346.7, -10.49, 2.19)
    pt3dadd(-9.63, 347.79, -10.56, 2.19)
    pt3dadd(-9.99, 348.7, -10.56, 2.19)
    pt3dadd(-10.17, 349.61, -10.64, 2.19)
    pt3dadd(-10.36, 350.16, -10.64, 2.19)
    pt3dadd(-10.9, 351.61, -10.64, 1.64)
    pt3dadd(-11.45, 352.53, -10.71, 1.64)
    pt3dadd(-11.63, 353.44, -10.71, 1.28)
    pt3dadd(-11.99, 354.35, -10.87, 1.28)
    pt3dadd(-11.99, 355.08, -10.87, 1.28)
    pt3dadd(-11.81, 355.99, -10.87, 1.28)
    pt3dadd(-11.81, 357.26, -10.87, 0.91)
    pt3dadd(-11.99, 357.81, -10.87, 0.91)
    pt3dadd(-12.36, 358.72, -11.17, 0.91)
    pt3dadd(-12.36, 359.63, -11.17, 0.91)
    pt3dadd(-12.36, 360.36, -11.24, 0.91)
    pt3dadd(-12.55, 361.27, -11.24, 0.91)
    pt3dadd(-12.9, 362.36, -11.24, 0.91)
    pt3dadd(-13.08, 363.28, -11.24, 0.91)
    pt3dadd(-13.28, 364, -11.24, 0.91)
    pt3dadd(-13.64, 364.92, -11.24, 0.91)
    pt3dadd(-13.64, 365.83, -11.24, 0.91)
    pt3dadd(-13.64, 366.55, -11.24, 0.91)
    pt3dadd(-13.64, 367.1, -11.24, 0.91)
    pt3dadd(-13.81, 367.83, -11.32, 0.91)
    pt3dadd(-14.01, 368.38, -11.4, 0.91)
    pt3dadd(-14.37, 369.11, -11.47, 0.91)
    pt3dadd(-14.55, 369.65, -11.62, 0.91)
    pt3dadd(-14.55, 370.93, -11.7, 0.91)
    pt3dadd(-14.55, 371.29, -11.77, 0.91)
    pt3dadd(-14.55, 371.84, -11.77, 0.91)
    pt3dadd(-14.55, 372.02, -11.77, 0.91)
    pt3dadd(-14.55, 372.93, -11.77, 0.91)
    pt3dadd(-14.92, 373.66, -11.85, 0.91)
    pt3dadd(-15.28, 375.12, -11.85, 0.91)
    pt3dadd(-15.83, 375.85, -11.93, 0.91)
    pt3dadd(-16.19, 376.58, -12, 0.91)
    pt3dadd(-16.56, 377.49, -12.08, 0.91)
    pt3dadd(-16.92, 379.13, -12.15, 0.91)
    pt3dadd(-17.11, 380.4, -12.3, 0.91)
    pt3dadd(-17.29, 381.5, -12.38, 0.91)
    pt3dadd(-17.47, 382.41, -12.46, 0.91)
    pt3dadd(-17.11, 382.95, -12.53, 0.91)
    pt3dadd(-16.56, 383.32, -12.61, 0.91)
    pt3dadd(-15.83, 383.86, -12.68, 0.91)
    pt3dadd(-15.28, 384.05, -12.76, 0.91)
    pt3dadd(-14.55, 384.41, -12.83, 0.91)
    pt3dadd(-13.81, 384.59, -12.99, 0.91)
    pt3dadd(-12.9, 384.77, -13.14, 0.91)
    pt3dadd(-11.45, 385.5, -13.21, 0.91)
    pt3dadd(-10.9, 386.05, -13.21, 0.91)
    pt3dadd(-10.9, 386.96, -13.21, 0.91)
    pt3dadd(-11.45, 387.69, -13.29, 0.91)
    pt3dadd(-12.36, 388.6, -13.29, 0.91)
    pt3dadd(-11.99, 389.33, -13.29, 0.91)
    pt3dadd(-10.72, 390.79, -13.29, 0.91)
    pt3dadd(-9.99, 391.33, -13.29, 0.91)
    pt3dadd(-9.26, 392.06, -13.29, 0.91)
    pt3dadd(-8.9, 392.61, -13.29, 0.91)
  }
  apic[10] {pt3dclear()
    pt3dadd(3.63, 266.01, 3.61, 3.47)
    pt3dadd(3.63, 266.93, 4.13, 3.1)
    pt3dadd(3.63, 267.47, 4.13, 3.1)
    pt3dadd(3.45, 268.01, 4.28, 3.1)
    pt3dadd(3.45, 268.75, 4.66, 3.1)
    pt3dadd(3.26, 269.48, 4.97, 3.1)
    pt3dadd(3.08, 270.01, 5.19, 3.1)
    pt3dadd(3.08, 270.93, 5.42, 3.1)
    pt3dadd(3.08, 271.48, 5.57, 3.1)
    pt3dadd(3.08, 272.2, 5.72, 3.1)
    pt3dadd(3.08, 272.76, 5.88, 3.1)
    pt3dadd(3.08, 273.85, 6.03, 3.1)
    pt3dadd(2.9, 275.31, 6.1, 3.1)
    pt3dadd(2.72, 277.68, 6.1, 3.1)
    pt3dadd(3.77, 278.51, 6.1, 3.1)
    pt3dadd(3.41, 279.24, 6.18, 3.1)
    pt3dadd(3.41, 279.78, 6.33, 3.1)
    pt3dadd(3.24, 280.32, 6.56, 3.1)
    pt3dadd(3.24, 281.06, 6.71, 3.1)
    pt3dadd(3.04, 281.79, 6.94, 3.1)
    pt3dadd(3.04, 281.97, 7.16, 3.1)
    pt3dadd(3.24, 282.51, 7.47, 3.1)
    pt3dadd(3.24, 282.88, 7.63, 3.1)
    pt3dadd(3.41, 283.61, 7.84, 3.1)
    pt3dadd(3.41, 284.34, 8, 3.1)
    pt3dadd(3.59, 284.88, 8.15, 3.1)
    pt3dadd(3.96, 285.79, 8.3, 3.1)
    pt3dadd(3.96, 286.16, 8.38, 3.1)
    pt3dadd(3.96, 286.51, 8.68, 3.1)
    pt3dadd(4.14, 287.07, 9.13, 3.1)
    pt3dadd(4.14, 287.62, 9.28, 3.1)
    pt3dadd(4.14, 288.35, 9.66, 3.1)
    pt3dadd(4.32, 288.89, 9.81, 3.1)
    pt3dadd(4.32, 289.44, 9.89, 3.1)
    pt3dadd(4.32, 290.17, 9.89, 3.1)
    pt3dadd(4.32, 290.35, 9.89, 3.1)
    pt3dadd(4.32, 290.89, 9.81, 3.1)
    pt3dadd(4.32, 291.07, 9.37, 3.1)
    pt3dadd(4.32, 291.26, 9.06, 3.1)
    pt3dadd(4.32, 291.44, 8.75, 3.1)
    pt3dadd(4.32, 291.81, 8.6, 3.1)
    pt3dadd(4.5, 292.35, 8.38, 3.1)
    pt3dadd(4.5, 292.72, 8.22, 3.1)
    pt3dadd(4.5, 292.89, 8, 3.1)
    pt3dadd(4.69, 293.45, 7.77, 3.1)
    pt3dadd(4.69, 294.18, 7.24, 3.1)
    pt3dadd(4.87, 294.72, 7.01, 3.1)
    pt3dadd(4.87, 295.45, 6.71, 3.1)
    pt3dadd(4.87, 296.36, 6.48, 3.1)
    pt3dadd(5.05, 297.09, 6.18, 3.1)
    pt3dadd(5.05, 297.64, 6.18, 3.1)
    pt3dadd(5.05, 298.18, 6.03, 3.1)
    pt3dadd(5.23, 298.55, 5.88, 3.1)
    pt3dadd(5.23, 298.91, 5.65, 3.1)
    pt3dadd(5.42, 299.82, 5.57, 3.1)
    pt3dadd(5.42, 300.55, 5.42, 3.1)
    pt3dadd(5.42, 301.82, 5.27, 3.1)
    pt3dadd(5.42, 302.38, 5.19, 3.1)
    pt3dadd(5.23, 302.92, 5.04, 3.1)
    pt3dadd(4.87, 303.82, 4.81, 3.1)
    pt3dadd(4.87, 304.74, 4.59, 3.1)
    pt3dadd(4.87, 305.29, 4.44, 3.1)
    pt3dadd(4.69, 306.2, 4.36, 3.1)
    pt3dadd(4.32, 308.57, 4.13, 3.1)
    pt3dadd(4.14, 309.3, 4.13, 3.1)
    pt3dadd(3.77, 310.2, 4.06, 3.1)
    pt3dadd(3.59, 310.94, 3.91, 3.1)
    pt3dadd(3.41, 311.85, 3.75, 3.1)
    pt3dadd(3.41, 312.57, 3.68, 3.1)
    pt3dadd(3.41, 313.12, 3.61, 3.1)
    pt3dadd(3.41, 313.85, 3.53, 3.1)
    pt3dadd(3.24, 314.39, 3.45, 3.1)
    pt3dadd(3.04, 315.13, 3.45, 3.1)
    pt3dadd(2.86, 315.86, 3.3, 3.1)
    pt3dadd(2.86, 316.59, 3.3, 3.1)
    pt3dadd(2.86, 317.32, 3.15, 3.1)
    pt3dadd(2.68, 317.86, 3.07, 3.1)
    pt3dadd(2.68, 318.59, 3.07, 3.1)
    pt3dadd(2.5, 319.14, 3.07, 3.1)
    pt3dadd(2.5, 319.87, 3, 3.1)
    pt3dadd(2.5, 320.6, 2.92, 3.1)
    pt3dadd(2.5, 321.14, 2.86, 3.1)
    pt3dadd(2.31, 322.05, 2.78, 3.1)
    pt3dadd(2.13, 322.78, 2.62, 3.1)
    pt3dadd(1.95, 323.87, 2.47, 3.1)
    pt3dadd(1.58, 324.97, 2.24, 3.1)
    pt3dadd(1.4, 325.7, 2.24, 3.1)
    pt3dadd(1.23, 326.24, 2.01, 3.1)
    pt3dadd(0.86, 327.34, 1.87, 3.1)
    pt3dadd(0.67, 327.88, 1.78, 3.1)
    pt3dadd(0.67, 328.43, 1.63, 3.1)
    pt3dadd(0.67, 328.98, 1.48, 3.1)
    pt3dadd(0.49, 329.71, 1.41, 3.1)
    pt3dadd(0.31, 330.25, 1.41, 3.1)
    pt3dadd(-0.06, 331.16, 1.25, 3.1)
    pt3dadd(-0.06, 331.71, 1.18, 2.92)
    pt3dadd(-0.06, 332.44, 1.1, 2.92)
    pt3dadd(-0.24, 333.17, 1.03, 2.92)
    pt3dadd(-0.42, 333.9, 0.88, 2.92)
    pt3dadd(-0.79, 334.62, 0.8, 2.92)
    pt3dadd(-0.97, 335.35, 0.72, 2.92)
    pt3dadd(-1.15, 336.26, 0.72, 2.92)
    pt3dadd(-1.15, 336.99, 0.57, 2.92)
    pt3dadd(-1.34, 337.54, 0.5, 2.92)
    pt3dadd(-1.34, 338.27, 0.19, 2.92)
    pt3dadd(-1.52, 338.63, -0.03, 2.92)
    pt3dadd(-1.52, 339, -0.26, 2.92)
    pt3dadd(-1.52, 339.54, -0.56, 2.92)
    pt3dadd(-1.52, 340.64, -0.79, 2.92)
    pt3dadd(-1.52, 341, -0.94, 2.92)
    pt3dadd(-1.52, 341.91, -1.09, 2.92)
    pt3dadd(-1.7, 342.46, -1.09, 2.92)
    pt3dadd(-1.7, 343.37, -1.17, 2.92)
    pt3dadd(-2.25, 344.65, -1.25, 2.92)
    pt3dadd(-2.43, 345.56, -1.4, 2.92)
    pt3dadd(-2.43, 346.1, -1.4, 2.92)
    pt3dadd(-2.43, 346.65, -1.47, 2.92)
    pt3dadd(-2.43, 347.01, -1.47, 2.92)
  }
  apic[11] {pt3dclear()
    pt3dadd(-2.43, 347.01, -1.47, 2.92)
    pt3dadd(-3.34, 347.01, -1.47, 1.82)
    pt3dadd(-3.52, 347.56, -1.47, 1.82)
    pt3dadd(-3.89, 348.11, -1.55, 1.82)
    pt3dadd(-4.8, 348.84, -1.7, 1.82)
    pt3dadd(-5.9, 350.48, -1.78, 1.46)
    pt3dadd(-5.9, 350.66, -1.78, 1.46)
    pt3dadd(-6.08, 351.2, -1.78, 1.46)
    pt3dadd(-6.44, 351.75, -1.85, 1.46)
    pt3dadd(-6.63, 352.66, -2, 1.46)
    pt3dadd(-7.17, 353.57, -2.08, 1.46)
    pt3dadd(-7.72, 354.3, -2.08, 1.46)
    pt3dadd(-8.09, 354.85, -2.15, 1.46)
    pt3dadd(-8.63, 355.4, -2.23, 1.46)
    pt3dadd(-9, 356.12, -2.23, 1.46)
    pt3dadd(-9.18, 356.67, -2.31, 1.46)
    pt3dadd(-9.73, 357.76, -2.31, 1.09)
    pt3dadd(-10.28, 358.67, -2.31, 1.09)
    pt3dadd(-11.01, 359.22, -2.38, 1.09)
    pt3dadd(-11.19, 359.77, -2.53, 1.09)
    pt3dadd(-11.37, 360.86, -2.53, 1.09)
    pt3dadd(-11.55, 361.59, -2.61, 1.09)
    pt3dadd(-11.92, 362.5, -2.61, 1.09)
    pt3dadd(-12.28, 363.41, -2.61, 1.09)
    pt3dadd(-12.83, 363.96, -2.68, 1.09)
    pt3dadd(-13.56, 364.87, -2.68, 1.09)
    pt3dadd(-13.92, 365.6, -2.68, 1.09)
    pt3dadd(-14.65, 366.69, -2.68, 1.09)
    pt3dadd(-15.2, 367.6, -2.68, 1.09)
    pt3dadd(-15.93, 368.7, -2.76, 1.09)
    pt3dadd(-16.3, 369.61, -2.76, 1.09)
    pt3dadd(-16.66, 370.52, -2.76, 1.09)
    pt3dadd(-17.21, 371.79, -2.76, 1.09)
    pt3dadd(-18.02, 373.64, -2.76, 2.19)
    pt3dadd(-18.75, 374.55, -2.76, 2.19)
    pt3dadd(-19.29, 375.09, -2.76, 2.19)
    pt3dadd(-19.66, 375.82, -2.84, 2.19)
    pt3dadd(-19.66, 376.92, -2.84, 2.19)
    pt3dadd(-20.39, 377.83, -2.84, 2.19)
    pt3dadd(-20.94, 378.56, -2.84, 2.19)
    pt3dadd(-21.12, 379.1, -2.84, 2.19)
    pt3dadd(-21.48, 379.83, -2.91, 2.19)
    pt3dadd(-21.67, 380.74, -2.99, 2.19)
    pt3dadd(-21.85, 381.29, -3.06, 2.19)
    pt3dadd(-22.39, 382.02, -3.14, 2.19)
    pt3dadd(-23.12, 382.75, -3.14, 2.19)
    pt3dadd(-23.49, 383.29, -3.29, 2.19)
    pt3dadd(-24.4, 384.2, -3.37, 2.19)
    pt3dadd(-25.5, 385.66, -3.44, 2.19)
    pt3dadd(-26.04, 386.39, -3.52, 2.19)
    pt3dadd(-26.59, 387.12, -3.59, 2.19)
    pt3dadd(-27.14, 388.03, -3.59, 2.19)
    pt3dadd(-27.69, 388.76, -3.67, 2.19)
    pt3dadd(-28.41, 389.49, -3.74, 2.19)
    pt3dadd(-28.96, 390.22, -3.82, 2.19)
    pt3dadd(-29.33, 390.94, -3.97, 2.19)
    pt3dadd(-29.87, 391.67, -4.05, 2.19)
    pt3dadd(-30.41, 392.58, -4.2, 2.19)
    pt3dadd(-30.79, 393.31, -4.2, 2.19)
    pt3dadd(-31.52, 394.41, -4.28, 2.19)
  }
}
proc shape3d_10() {
  apic[11] {
    pt3dadd(-32.25, 394.95, -4.28, 2.19)
    pt3dadd(-33.16, 396.05, -4.43, 2.19)
    pt3dadd(-33.89, 397.14, -4.5, 2.19)
    pt3dadd(-34.44, 398.05, -4.58, 2.19)
    pt3dadd(-34.62, 398.78, -4.65, 2.19)
    pt3dadd(-34.8, 399.51, -4.65, 2.19)
    pt3dadd(-35.16, 400.42, -4.65, 2.19)
    pt3dadd(-35.53, 401.33, -4.65, 2.19)
    pt3dadd(-36.08, 402.24, -4.65, 2.19)
    pt3dadd(-36.26, 402.97, -5.03, 2.19)
    pt3dadd(-36.63, 403.52, -5.11, 2.19)
    pt3dadd(-36.81, 404.43, -5.18, 2.19)
    pt3dadd(-36.99, 405.34, -5.25, 2.19)
    pt3dadd(-37.17, 405.89, -5.25, 2.19)
    pt3dadd(-37.72, 406.8, -5.34, 2.74)
    pt3dadd(-38.27, 408.25, -5.49, 2.74)
    pt3dadd(-38.45, 408.98, -5.56, 2.74)
    pt3dadd(-38.45, 409.89, -5.56, 2.74)
    pt3dadd(-38.63, 410.62, -5.71, 2.74)
    pt3dadd(-39, 411.53, -5.79, 2.74)
    pt3dadd(-39.36, 412.63, -5.87, 2.74)
    pt3dadd(-39.73, 413.36, -5.87, 2.74)
    pt3dadd(-40.46, 414.27, -5.93, 2.74)
    pt3dadd(-41.01, 415.18, -5.93, 2.74)
    pt3dadd(-41.73, 416.09, -5.93, 2.74)
    pt3dadd(-42.1, 417.36, -6.02, 2.74)
    pt3dadd(-42.46, 418.27, -6.16, 2.74)
    pt3dadd(-42.65, 419, -6.16, 2.74)
    pt3dadd(-42.83, 419.55, -6.24, 2.74)
    pt3dadd(-42.83, 420.28, -6.32, 2.74)
    pt3dadd(-45.02, 424.29, -6.32, 2.74)
    pt3dadd(-45.38, 425.38, -6.47, 2.74)
    pt3dadd(-45.75, 426.11, -6.55, 2.74)
    pt3dadd(-46.3, 427.2, -6.62, 2.74)
    pt3dadd(-46.48, 428.11, -6.7, 2.74)
    pt3dadd(-47.03, 429.02, -6.7, 2.74)
    pt3dadd(-47.76, 431.39, -6.77, 2.19)
    pt3dadd(-48.49, 432.49, -6.84, 2.19)
    pt3dadd(-49.22, 433.4, -7, 2.19)
    pt3dadd(-49.76, 434.13, -7.08, 2.19)
    pt3dadd(-50.49, 435.22, -7.15, 2.19)
    pt3dadd(-51.59, 436.31, -7.23, 2.19)
    pt3dadd(-54.69, 437.22, -7.23, 1.64)
    pt3dadd(-55.6, 437.59, -7.31, 1.64)
    pt3dadd(-57.06, 438.86, -7.31, 1.64)
    pt3dadd(-57.79, 439.41, -7.46, 1.64)
    pt3dadd(-59.07, 440.14, -7.61, 1.64)
    pt3dadd(-59.8, 440.32, -7.68, 1.64)
    pt3dadd(-60.71, 440.87, -7.75, 1.64)
    pt3dadd(-61.62, 441.23, -7.91, 1.64)
    pt3dadd(-62.17, 441.6, -7.99, 1.64)
    pt3dadd(-62.9, 441.96, -7.99, 1.64)
    pt3dadd(-63.63, 442.32, -7.91, 1.64)
    pt3dadd(-64.18, 442.51, -7.68, 1.64)
    pt3dadd(-64.91, 442.69, -7.46, 1.64)
    pt3dadd(-65.45, 442.69, -7.31, 1.64)
    pt3dadd(-66.37, 442.87, -7, 1.64)
    pt3dadd(-66.91, 442.87, -6.84, 1.64)
    pt3dadd(-67.46, 443.05, -6.7, 1.64)
    pt3dadd(-68.56, 443.42, -6.32, 1.64)
    pt3dadd(-69.29, 443.6, -6.16, 1.64)
    pt3dadd(-70.2, 443.96, -5.87, 1.64)
    pt3dadd(-70.74, 444.15, -5.71, 1.64)
    pt3dadd(-71.66, 444.33, -5.56, 1.64)
    pt3dadd(-72.74, 444.69, -5.41, 1.64)
    pt3dadd(-73.48, 444.88, -5.34, 1.64)
    pt3dadd(-74.21, 445.24, -4.96, 1.64)
    pt3dadd(-75.31, 445.6, -4.58, 1.64)
    pt3dadd(-77.5, 446.7, -4.43, 1.28)
    pt3dadd(-78.23, 447.24, -4.12, 1.28)
    pt3dadd(-80.05, 447.79, -3.82, 1.28)
    pt3dadd(-80.6, 448.16, -3.74, 1.28)
    pt3dadd(-81.33, 448.34, -3.67, 1.28)
    pt3dadd(-82.42, 449.07, -3.52, 1.28)
    pt3dadd(-83.33, 449.43, -3.37, 1.28)
    pt3dadd(-84.06, 449.61, -3.29, 1.28)
    pt3dadd(-84.61, 449.8, -3.21, 1.28)
    pt3dadd(-85.34, 449.98, -3.21, 1.28)
    pt3dadd(-85.71, 450.16, -3.21, 1.28)
    pt3dadd(-86.07, 450.34, -3.44, 1.28)
    pt3dadd(-86.44, 450.52, -3.59, 1.28)
    pt3dadd(-86.62, 450.52, -3.82, 1.28)
    pt3dadd(-86.8, 450.71, -3.97, 1.28)
    pt3dadd(-86.8, 450.71, -4.2, 1.28)
    pt3dadd(-86.98, 450.89, -4.34, 1.28)
    pt3dadd(-87.17, 450.89, -4.43, 1.28)
    pt3dadd(-87.17, 450.89, -4.58, 1.28)
    pt3dadd(-87.17, 450.89, -4.88, 1.28)
    pt3dadd(-87.53, 451.07, -5.03, 1.28)
    pt3dadd(-87.71, 451.25, -5.25, 1.28)
    pt3dadd(-87.9, 451.25, -5.41, 1.28)
    pt3dadd(-88.08, 451.07, -5.56, 1.28)
    pt3dadd(-88.26, 451.07, -5.71, 1.28)
    pt3dadd(-88.44, 451.07, -5.87, 1.28)
    pt3dadd(-88.81, 451.07, -6.09, 1.28)
    pt3dadd(-88.81, 451.07, -6.32, 1.28)
    pt3dadd(-89.36, 451.25, -6.62, 1.28)
    pt3dadd(-90.27, 451.25, -6.84, 1.28)
    pt3dadd(-90.63, 451.25, -7.08, 1.28)
    pt3dadd(-91, 451.25, -7.23, 1.28)
    pt3dadd(-91.54, 451.62, -7.31, 1.28)
    pt3dadd(-91.73, 451.62, -7.38, 1.28)
    pt3dadd(-92.09, 451.62, -7.84, 1.28)
    pt3dadd(-92.82, 451.8, -8.14, 1.28)
    pt3dadd(-93.37, 451.8, -8.29, 1.28)
    pt3dadd(-94.1, 451.8, -8.37, 1.28)
    pt3dadd(-94.65, 451.98, -8.52, 1.28)
    pt3dadd(-95.74, 452.53, -8.67, 1.28)
    pt3dadd(-96.84, 452.53, -8.67, 1.28)
    pt3dadd(-97.75, 452.89, -8.74, 1.28)
    pt3dadd(-98.84, 453.26, -8.9, 1.28)
    pt3dadd(-99.75, 453.44, -9.12, 1.28)
    pt3dadd(-101.21, 453.62, -9.35, 1.28)
    pt3dadd(-103.04, 453.8, -9.5, 1.28)
    pt3dadd(-104.86, 454.35, -9.65, 1.28)
    pt3dadd(-106.14, 454.53, -9.73, 1.28)
    pt3dadd(-107.78, 455.08, -9.96, 1.28)
    pt3dadd(-109.79, 455.63, -10.11, 1.28)
    pt3dadd(-111.43, 456.17, -10.11, 1.28)
    pt3dadd(-112.34, 456.35, -9.73, 1.28)
    pt3dadd(-113.44, 456.72, -9.43, 1.28)
    pt3dadd(-114.35, 456.9, -9.2, 1.28)
    pt3dadd(-115.26, 457.08, -9.05, 1.28)
    pt3dadd(-115.81, 457.45, -8.82, 1.28)
    pt3dadd(-116.72, 457.81, -8.67, 1.28)
    pt3dadd(-117.45, 458.36, -8.52, 1.28)
    pt3dadd(-118, 459.09, -8.29, 1.28)
    pt3dadd(-118.55, 460.36, -7.84, 1.28)
    pt3dadd(-118.55, 461.27, -7.53, 1.28)
    pt3dadd(-119.1, 462.73, -7.38, 1.28)
    pt3dadd(-119.64, 463.82, -7.31, 1.28)
    pt3dadd(-119.64, 464.74, -7.23, 1.28)
    pt3dadd(-119.64, 465.65, -7.23, 1.28)
    pt3dadd(-119.22, 469.75, -7.23, 1.28)
    pt3dadd(-120.13, 470.84, -7.23, 1.28)
    pt3dadd(-120.13, 471.39, -7.23, 1.28)
    pt3dadd(-120.13, 472.3, -7.23, 1.28)
    pt3dadd(-120.13, 472.85, -7.23, 1.28)
    pt3dadd(-119.77, 473.76, -7.23, 1.28)
    pt3dadd(-119.77, 474.67, -7.08, 1.28)
    pt3dadd(-119.22, 476.13, -6.93, 1.28)
    pt3dadd(-119.04, 477.22, -6.77, 1.28)
    pt3dadd(-118.67, 478.31, -6.7, 1.28)
    pt3dadd(-118.49, 479.77, -6.62, 1.28)
    pt3dadd(-118.67, 481.78, -6.47, 1.28)
    pt3dadd(-118.86, 483.78, -6.32, 1.28)
    pt3dadd(-118.86, 485.6, -6.24, 1.28)
    pt3dadd(-118.86, 486.88, -6.09, 1.28)
    pt3dadd(-118.67, 488.15, -5.93, 1.28)
    pt3dadd(-117.94, 489.98, -5.79, 1.28)
    pt3dadd(-117.76, 491.25, -5.64, 1.28)
    pt3dadd(-117.4, 492.34, -5.49, 1.28)
    pt3dadd(-117.03, 493.25, -5.56, 1.28)
    pt3dadd(-116.48, 493.98, -6.02, 1.28)
    pt3dadd(-115.94, 494.71, -6.24, 1.28)
    pt3dadd(-115.57, 495.08, -6.4, 1.28)
    pt3dadd(-115.21, 495.44, -6.62, 1.28)
    pt3dadd(-114.84, 495.99, -6.7, 1.28)
    pt3dadd(-114.3, 496.9, -6.7, 0.73)
    pt3dadd(-115.02, 497.99, -6.62, 0.73)
    pt3dadd(-115.39, 499.27, -6.32, 0.73)
    pt3dadd(-115.39, 500.54, -6.24, 0.73)
    pt3dadd(-115.39, 501.45, -6.09, 0.73)
    pt3dadd(-115.39, 502.55, -6.02, 0.73)
    pt3dadd(-115.02, 503.64, -5.79, 0.73)
    pt3dadd(-115.02, 504.37, -5.64, 0.73)
    pt3dadd(-115.02, 505.28, -5.49, 0.73)
    pt3dadd(-115.02, 506.37, -5.18, 0.73)
    pt3dadd(-115.21, 507.28, -5.03, 0.73)
    pt3dadd(-115.75, 508.2, -5.03, 0.73)
    pt3dadd(-115.94, 508.91, -5.03, 0.73)
    pt3dadd(-116.12, 509.65, -4.96, 0.73)
    pt3dadd(-116.3, 510.2, -4.58, 0.73)
    pt3dadd(-116.48, 510.75, -4.43, 0.73)
    pt3dadd(-116.48, 511.28, -4.2, 0.73)
    pt3dadd(-116.67, 512.02, -3.82, 0.73)
    pt3dadd(-116.67, 512.57, -3.67, 0.73)
    pt3dadd(-116.67, 512.57, -3.52, 0.73)
    pt3dadd(-116.67, 513.29, -3.37, 0.73)
    pt3dadd(-116.67, 514.39, -3.21, 0.73)
    pt3dadd(-116.67, 514.94, -3.06, 0.73)
    pt3dadd(-116.67, 515.66, -3.06, 0.73)
    pt3dadd(-116.67, 516.76, -3.52, 0.73)
    pt3dadd(-116.67, 517.29, -3.67, 0.73)
    pt3dadd(-116.67, 518.22, -3.82, 0.73)
    pt3dadd(-116.67, 518.94, -3.9, 0.73)
    pt3dadd(-116.85, 519.66, -3.97, 0.73)
    pt3dadd(-116.67, 519.86, -3.29, 0.73)
    pt3dadd(-116.67, 520.22, -3.37, 0.73)
    pt3dadd(-116.67, 520.22, -3.59, 0.73)
    pt3dadd(-116.48, 520.58, -3.97, 0.73)
    pt3dadd(-116.12, 520.77, -4.12, 0.73)
    pt3dadd(-115.75, 521.5, -4.88, 0.73)
    pt3dadd(-115.57, 522.22, -5.34, 0.73)
    pt3dadd(-115.57, 522.77, -5.64, 0.73)
    pt3dadd(-115.75, 523.5, -5.79, 0.73)
    pt3dadd(-116.3, 524.96, -6.02, 0.73)
    pt3dadd(-116.67, 525.87, -6.24, 0.73)
    pt3dadd(-116.85, 526.78, -6.62, 0.73)
    pt3dadd(-117.21, 527.69, -6.84, 0.73)
    pt3dadd(-117.4, 528.6, -7.15, 0.73)
    pt3dadd(-117.4, 529.33, -7.31, 0.73)
    pt3dadd(-117.76, 530.06, -7.38, 0.73)
    pt3dadd(-117.76, 530.61, -7.46, 0.73)
    pt3dadd(-117.58, 531.33, -7.61, 0.73)
    pt3dadd(-117.4, 531.88, -7.75, 0.73)
    pt3dadd(-117.21, 531.88, -7.75, 0.73)
    pt3dadd(-117.03, 532.42, -7.84, 0.73)
    pt3dadd(-117.21, 533.34, -7.99, 0.73)
    pt3dadd(-117.4, 533.89, -8.06, 0.73)
    pt3dadd(-117.76, 534.79, -8.29, 0.73)
    pt3dadd(-117.76, 535.52, -8.43, 0.73)
    pt3dadd(-117.94, 536.44, -8.74, 0.73)
    pt3dadd(-117.94, 537.35, -8.9, 0.73)
    pt3dadd(-118.13, 538.26, -9.05, 0.73)
    pt3dadd(-118.13, 539.53, -9.12, 0.73)
    pt3dadd(-118.13, 540.08, -9.27, 0.73)
  }
  apic[12] {pt3dclear()
    pt3dadd(-2.43, 347.01, -1.47, 2.92)
    pt3dadd(-1.94, 347.3, -2.31, 2.01)
    pt3dadd(-1.94, 347.48, -2.53, 2.01)
    pt3dadd(-1.76, 347.66, -2.68, 2.01)
    pt3dadd(-1.39, 347.66, -2.76, 2.01)
    pt3dadd(-1.21, 347.66, -2.91, 2.01)
    pt3dadd(-1.03, 347.66, -3.14, 2.01)
    pt3dadd(-0.66, 348.03, -3.74, 1.64)
    pt3dadd(-0.48, 348.58, -4.05, 1.64)
    pt3dadd(-0.12, 348.76, -4.2, 1.64)
    pt3dadd(0.25, 349.3, -4.58, 1.64)
    pt3dadd(0.43, 350.03, -4.88, 1.64)
    pt3dadd(0.8, 350.4, -5.11, 1.64)
    pt3dadd(0.98, 350.94, -5.18, 1.64)
    pt3dadd(1.34, 351.86, -5.41, 1.64)
    pt3dadd(1.16, 353.13, -5.56, 1.09)
    pt3dadd(0.98, 353.86, -5.79, 1.09)
    pt3dadd(0.98, 354.41, -6.02, 1.09)
    pt3dadd(0.98, 355.13, -6.16, 1.09)
    pt3dadd(1.16, 358.05, -6.24, 1.09)
    pt3dadd(1.16, 358.23, -6.24, 1.09)
    pt3dadd(1.16, 358.96, -6.32, 1.09)
    pt3dadd(1.16, 359.51, -6.47, 1.09)
    pt3dadd(0.8, 360.6, -6.62, 1.09)
    pt3dadd(0.25, 361.15, -6.93, 1.09)
    pt3dadd(0.07, 361.51, -7, 1.28)
    pt3dadd(-0.3, 362.6, -7.15, 1.28)
    pt3dadd(-0.48, 363.33, -7.38, 1.28)
    pt3dadd(-0.66, 364.24, -7.53, 1.28)
    pt3dadd(-0.66, 364.97, -7.53, 1.28)
    pt3dadd(-0.85, 365.52, -7.68, 1.28)
    pt3dadd(-0.85, 366.43, -7.68, 1.64)
  }
}
proc shape3d_11() {
  apic[12] {
    pt3dadd(-0.85, 366.61, -7.99, 1.64)
    pt3dadd(-0.85, 367.16, -8.21, 1.64)
    pt3dadd(-0.85, 367.71, -8.21, 1.64)
    pt3dadd(-0.48, 370.07, -8.37, 2.55)
    pt3dadd(-0.48, 370.07, -8.74, 2.55)
    pt3dadd(-0.48, 370.44, -9.05, 2.55)
    pt3dadd(-0.48, 370.99, -9.12, 2.55)
    pt3dadd(-0.48, 371.53, -9.27, 2.55)
    pt3dadd(-0.48, 372.26, -9.43, 2.55)
    pt3dadd(-0.48, 372.81, -9.43, 2.55)
    pt3dadd(-0.3, 373.9, -9.5, 2.55)
    pt3dadd(-0.12, 374.63, -9.5, 2.55)
    pt3dadd(-0.12, 375.54, -9.5, 2.55)
    pt3dadd(-0.12, 376.45, -9.5, 2.55)
  }
  apic[13] {pt3dclear()
    pt3dadd(-0.12, 376.45, -9.5, 2.55)
    pt3dadd(0.92, 376.64, -10.03, 1.82)
    pt3dadd(1.46, 377.19, -10.03, 1.82)
    pt3dadd(2.56, 377.92, -10.03, 1.82)
    pt3dadd(4.02, 379.01, -10.03, 1.82)
    pt3dadd(4.56, 379.38, -10.03, 1.82)
    pt3dadd(4.56, 379.92, -10.18, 1.82)
    pt3dadd(4.75, 380.84, -10.26, 1.28)
    pt3dadd(5.11, 380.84, -10.26, 1.28)
    pt3dadd(5.48, 381.56, -10.41, 1.28)
    pt3dadd(5.84, 381.93, -10.56, 1.28)
    pt3dadd(6.39, 383.02, -10.87, 1.28)
    pt3dadd(6.75, 383.2, -11.02, 1.28)
    pt3dadd(7.67, 383.93, -11.09, 1.28)
    pt3dadd(8.4, 384.3, -11.24, 1.28)
    pt3dadd(9.31, 385.21, -11.4, 1.28)
    pt3dadd(10.04, 386.12, -11.47, 1.28)
    pt3dadd(10.77, 387.39, -11.62, 1.28)
    pt3dadd(11.5, 388.49, -11.7, 1.28)
    pt3dadd(12.05, 389.4, -11.62, 1.28)
    pt3dadd(12.41, 389.95, -11.4, 1.28)
    pt3dadd(12.77, 390.49, -11.17, 1.28)
    pt3dadd(13.14, 391.04, -11.02, 1.28)
    pt3dadd(13.5, 391.58, -10.87, 1.28)
    pt3dadd(13.87, 392.13, -10.71, 1.28)
    pt3dadd(14.23, 392.5, -10.56, 1.28)
    pt3dadd(14.42, 393.04, -10.49, 1.28)
    pt3dadd(14.42, 393.77, -10.18, 1.28)
    pt3dadd(14.6, 394.32, -10.11, 1.28)
    pt3dadd(14.96, 395.05, -9.96, 1.28)
    pt3dadd(15.51, 395.78, -9.8, 1.28)
    pt3dadd(15.88, 396.5, -9.58, 1.28)
    pt3dadd(16.61, 397.42, -9.35, 1.28)
    pt3dadd(16.97, 398.14, -9.12, 1.28)
    pt3dadd(17.34, 398.69, -8.97, 1.28)
    pt3dadd(17.7, 399.06, -8.9, 1.28)
    pt3dadd(18.25, 399.78, -8.82, 1.28)
    pt3dadd(18.8, 400.69, -8.67, 1.28)
    pt3dadd(18.98, 401.24, -8.59, 1.28)
    pt3dadd(19.16, 401.79, -8.59, 1.28)
    pt3dadd(19.53, 402.33, -8.52, 1.28)
    pt3dadd(19.53, 403.25, -8.37, 1.28)
    pt3dadd(19.53, 403.61, -8.21, 1.28)
    pt3dadd(19.53, 404.16, -7.99, 1.28)
    pt3dadd(19.34, 404.89, -7.68, 1.28)
    pt3dadd(19.34, 405.43, -7.38, 1.28)
    pt3dadd(19.34, 406.16, -7.08, 1.28)
    pt3dadd(19.53, 406.53, -6.84, 1.28)
    pt3dadd(19.53, 406.53, -6.62, 1.28)
    pt3dadd(19.53, 407.07, -6.47, 1.28)
    pt3dadd(19.71, 407.25, -6.16, 1.28)
    pt3dadd(19.71, 407.44, -6.02, 1.28)
    pt3dadd(19.89, 407.8, -5.71, 1.28)
    pt3dadd(20.07, 408.35, -5.41, 1.28)
    pt3dadd(20.44, 408.71, -5.25, 1.28)
    pt3dadd(20.8, 409.26, -4.81, 1.28)
    pt3dadd(21.17, 409.44, -4.73, 1.28)
    pt3dadd(21.53, 409.99, -4.43, 1.28)
    pt3dadd(22.08, 410.72, -4.12, 1.28)
    pt3dadd(22.63, 411.44, -3.97, 1.28)
    pt3dadd(23.36, 412.72, -3.82, 1.28)
    pt3dadd(23.9, 413.63, -3.74, 1.28)
    pt3dadd(24.27, 414.54, -3.59, 1.09)
    pt3dadd(25, 415.45, -3.21, 1.09)
    pt3dadd(25.36, 416, -3.06, 1.09)
    pt3dadd(25.72, 416.73, -2.84, 1.09)
    pt3dadd(26.09, 417.27, -2.68, 1.09)
    pt3dadd(26.64, 418.19, -2.38, 1.09)
    pt3dadd(26.82, 418.73, -2.23, 1.09)
    pt3dadd(27.01, 419.28, -2.23, 1.09)
    pt3dadd(27.19, 419.64, -2.08, 1.09)
    pt3dadd(27.37, 420.01, -1.93, 1.09)
    pt3dadd(27.37, 420.19, -1.7, 1.09)
    pt3dadd(27.55, 420.37, -1.55, 1.09)
    pt3dadd(27.92, 421.47, -1.55, 1.09)
    pt3dadd(27.92, 421.47, -1.4, 1.09)
    pt3dadd(27.92, 422.01, -1.17, 1.09)
    pt3dadd(27.92, 422.56, -1.09, 1.09)
    pt3dadd(28.28, 423.47, -1.02, 1.09)
    pt3dadd(28.83, 424.02, -0.94, 1.09)
    pt3dadd(29.2, 424.75, -0.94, 1.09)
    pt3dadd(29.56, 425.29, -0.87, 1.09)
    pt3dadd(29.93, 426.02, -0.79, 1.09)
    pt3dadd(30.47, 426.57, -0.71, 1.09)
    pt3dadd(31.2, 427.3, -0.64, 1.09)
    pt3dadd(31.57, 427.66, -0.56, 1.09)
    pt3dadd(31.93, 428.21, -0.49, 1.09)
    pt3dadd(31.93, 429.3, -0.41, 1.09)
    pt3dadd(32.3, 430.94, -0.34, 1.09)
    pt3dadd(32.3, 432.22, -0.26, 1.09)
    pt3dadd(32.3, 433.13, -0.11, 1.09)
    pt3dadd(32.11, 434.22, -0.03, 1.09)
    pt3dadd(31.93, 435.49, 0.12, 1.09)
    pt3dadd(32.11, 438.05, 0.19, 1.09)
    pt3dadd(32.3, 438.59, 0.27, 1.09)
    pt3dadd(32.3, 439.5, 0.65, 1.09)
    pt3dadd(32.11, 440.05, 0.8, 1.09)
    pt3dadd(31.93, 440.6, 0.95, 1.09)
    pt3dadd(32.11, 441.14, 1.1, 1.09)
    pt3dadd(32.11, 441.69, 1.18, 1.09)
    pt3dadd(31.93, 442.42, 1.25, 1.09)
    pt3dadd(31.93, 443.15, 1.41, 1.09)
    pt3dadd(31.75, 444.06, 1.63, 1.09)
    pt3dadd(31.75, 444.6, 1.78, 1.09)
    pt3dadd(31.75, 444.79, 1.95, 1.09)
    pt3dadd(31.57, 445.52, 2.16, 1.09)
    pt3dadd(31.57, 445.88, 2.47, 1.09)
    pt3dadd(31.57, 446.43, 2.54, 1.09)
    pt3dadd(31.57, 446.79, 2.92, 1.09)
    pt3dadd(31.39, 447.16, 3, 1.09)
    pt3dadd(31.39, 448.07, 3, 1.09)
    pt3dadd(31.39, 448.61, 3, 1.09)
    pt3dadd(31.02, 449.16, 3, 1.09)
    pt3dadd(30.84, 449.71, 3.15, 1.09)
    pt3dadd(30.66, 450.44, 3.38, 1.09)
    pt3dadd(30.29, 451.16, 3.68, 1.09)
    pt3dadd(29.74, 452.44, 3.91, 1.09)
    pt3dadd(29.2, 454.63, 4.06, 1.09)
    pt3dadd(29.01, 455.17, 4.06, 1.09)
    pt3dadd(29.01, 455.72, 4.21, 1.09)
    pt3dadd(28.83, 456.99, 4.36, 1.09)
    pt3dadd(28.47, 457.72, 4.51, 1.09)
    pt3dadd(28.28, 458.45, 4.66, 1.09)
    pt3dadd(27.74, 459.55, 4.74, 1.09)
    pt3dadd(27.74, 460.46, 4.89, 1.09)
    pt3dadd(27.55, 461.37, 5.04, 1.09)
    pt3dadd(27.19, 461.91, 5.12, 1.09)
    pt3dadd(27.01, 462.28, 5.12, 1.09)
  }
  apic[14] {pt3dclear()
    pt3dadd(-0.12, 376.45, -9.5, 2.55)
    pt3dadd(-1.76, 376.82, -9.5, 2.01)
    pt3dadd(-1.76, 377.55, -9.5, 2.01)
    pt3dadd(-1.94, 378.27, -9.5, 2.01)
    pt3dadd(-1.94, 378.46, -9.88, 2.01)
    pt3dadd(-2.12, 379, -10.03, 2.01)
    pt3dadd(-2.31, 379.37, -10.18, 2.01)
    pt3dadd(-2.49, 380.28, -10.34, 2.01)
    pt3dadd(-2.67, 381.01, -10.41, 2.01)
    pt3dadd(-2.85, 381.55, -10.49, 2.01)
    pt3dadd(-2.85, 382.1, -10.56, 2.01)
    pt3dadd(-3.03, 383.01, -10.64, 2.01)
    pt3dadd(-3.22, 383.38, -10.79, 2.01)
    pt3dadd(-3.22, 384.1, -10.87, 2.01)
    pt3dadd(-3.22, 384.47, -11.09, 2.01)
    pt3dadd(-3.22, 385.02, -11.09, 2.01)
    pt3dadd(-3.4, 385.93, -11.24, 2.01)
    pt3dadd(-3.4, 386.84, -11.24, 2.01)
    pt3dadd(-3.4, 387.38, -11.32, 2.01)
    pt3dadd(-3.95, 388.29, -11.32, 2.19)
    pt3dadd(-4.49, 389.02, -11.32, 2.19)
    pt3dadd(-4.49, 389.57, -11.4, 2.19)
    pt3dadd(-3.95, 390.48, -11.55, 2.92)
    pt3dadd(-4.31, 390.85, -11.62, 2.92)
    pt3dadd(-4.31, 391.39, -11.7, 2.92)
    pt3dadd(-4.49, 392.12, -11.7, 2.92)
  }
  apic[15] {pt3dclear()
    pt3dadd(-4.49, 392.12, -11.7, 2.92)
    pt3dadd(-3.22, 392.12, -11.7, 1.46)
    pt3dadd(-3.03, 393.21, -11.7, 0.91)
    pt3dadd(-3.03, 393.58, -11.93, 0.91)
    pt3dadd(-2.31, 394.13, -12.23, 0.91)
    pt3dadd(-1.58, 395.58, -12.38, 0.91)
    pt3dadd(-1.58, 396.68, -12.46, 0.91)
    pt3dadd(-1.58, 398.13, -12.46, 0.91)
    pt3dadd(-1.58, 399.41, -12.46, 0.91)
    pt3dadd(-1.39, 400.32, -12.53, 0.91)
    pt3dadd(-1.39, 401.23, -12.53, 0.91)
    pt3dadd(-1.39, 402.51, -12.61, 0.91)
    pt3dadd(-1.39, 403.78, -12.61, 0.91)
    pt3dadd(-1.39, 404.88, -12.68, 0.91)
    pt3dadd(-1.39, 405.42, -12.68, 0.91)
    pt3dadd(-1.94, 405.97, -12.76, 0.91)
    pt3dadd(-2.49, 406.51, -12.99, 0.91)
    pt3dadd(-2.85, 407.61, -12.99, 0.91)
    pt3dadd(-3.03, 408.34, -13.06, 0.91)
    pt3dadd(-3.4, 409.07, -13.14, 0.91)
    pt3dadd(-3.58, 409.79, -13.21, 0.91)
    pt3dadd(-4.49, 410.52, -13.29, 0.91)
    pt3dadd(-5.59, 411.25, -13.37, 0.91)
    pt3dadd(-6.5, 411.98, -13.37, 0.91)
    pt3dadd(-6.5, 412.71, -13.59, 0.91)
  }
  apic[16] {pt3dclear()
    pt3dadd(-6.5, 412.71, -13.59, 0.91)
    pt3dadd(-5.95, 413.44, -13.44, 0.91)
    pt3dadd(-5.77, 413.44, -13.52, 0.91)
    pt3dadd(-5.59, 413.8, -13.74, 0.91)
    pt3dadd(-5.41, 414.17, -14.2, 0.91)
    pt3dadd(-5.04, 414.71, -14.5, 0.91)
    pt3dadd(-4.68, 415.26, -14.73, 0.91)
    pt3dadd(-4.31, 415.62, -14.88, 0.91)
    pt3dadd(-3.95, 415.99, -15.11, 0.91)
    pt3dadd(-3.4, 416.54, -15.41, 0.91)
    pt3dadd(-3.22, 417.26, -15.64, 0.91)
    pt3dadd(-2.85, 417.99, -15.79, 0.91)
    pt3dadd(-2.85, 418.54, -16.02, 0.91)
    pt3dadd(-2.49, 418.9, -16.17, 0.91)
    pt3dadd(-2.12, 419.27, -16.4, 0.91)
    pt3dadd(-1.58, 419.82, -16.55, 0.91)
    pt3dadd(-1.03, 420.36, -16.7, 0.91)
    pt3dadd(-0.3, 421.09, -17, 0.91)
    pt3dadd(0.07, 421.82, -17.23, 0.91)
    pt3dadd(0.25, 422.91, -17.38, 0.91)
    pt3dadd(0.43, 423.64, -17.38, 0.91)
    pt3dadd(0.61, 424.37, -17.46, 0.91)
    pt3dadd(0.43, 425.1, -17.76, 0.91)
    pt3dadd(0.43, 425.83, -17.91, 0.91)
    pt3dadd(0.43, 426.19, -17.99, 0.91)
    pt3dadd(0.25, 426.92, -17.99, 0.91)
    pt3dadd(-0.12, 427.47, -17.99, 0.91)
    pt3dadd(-0.12, 428.38, -17.99, 0.91)
    pt3dadd(-0.12, 428.93, -17.99, 0.91)
    pt3dadd(-0.48, 429.84, -17.99, 0.91)
    pt3dadd(-0.66, 430.57, -17.99, 0.91)
    pt3dadd(-0.85, 431.29, -17.99, 0.91)
    pt3dadd(-1.03, 432.02, -18.06, 0.91)
    pt3dadd(-1.21, 432.75, -18.14, 0.91)
    pt3dadd(-1.58, 433.66, -18.21, 0.91)
    pt3dadd(-1.76, 434.57, -18.29, 0.91)
    pt3dadd(-1.94, 435.48, -18.29, 0.91)
    pt3dadd(-2.12, 436.4, -18.36, 0.91)
    pt3dadd(-2.67, 437.85, -18.52, 0.91)
    pt3dadd(-3.4, 438.95, -18.59, 0.91)
    pt3dadd(-4.12, 440.22, -18.59, 0.91)
    pt3dadd(-4.68, 441.5, -18.59, 0.91)
    pt3dadd(-4.86, 442.59, -18.59, 0.91)
    pt3dadd(-5.41, 444.05, -18.59, 0.91)
    pt3dadd(-6.14, 446.05, -18.59, 0.91)
    pt3dadd(-7.05, 446.96, -18.59, 0.91)
    pt3dadd(-7.96, 448.24, -18.59, 0.91)
    pt3dadd(-8.33, 449.7, -18.59, 0.91)
    pt3dadd(-8.51, 451.34, -18.59, 0.91)
    pt3dadd(-8.69, 453.34, -18.59, 0.91)
    pt3dadd(-8.69, 454.25, -18.59, 0.91)
  }
  apic[17] {pt3dclear()
    pt3dadd(-6.5, 412.71, -13.59, 0.91)
    pt3dadd(-6.68, 413.07, -13.67, 0.36)
    pt3dadd(-7.05, 413.99, -13.9, 0.36)
    pt3dadd(-7.23, 414.53, -13.97, 0.36)
    pt3dadd(-7.23, 415.62, -14.05, 0.36)
  }
}
proc shape3d_12() {
  apic[17] {
    pt3dadd(-7.23, 416.35, -13.67, 0.36)
    pt3dadd(-7.41, 417.45, -12.91, 0.36)
    pt3dadd(-7.6, 418.18, -12.53, 0.36)
    pt3dadd(-7.78, 418.9, -12.3, 0.36)
    pt3dadd(-7.96, 419.45, -12.15, 0.36)
    pt3dadd(-8.14, 419.63, -12.08, 0.73)
    pt3dadd(-8.69, 420.54, -11.85, 0.73)
    pt3dadd(-8.87, 421.09, -11.62, 0.73)
    pt3dadd(-9.42, 421.64, -11.47, 0.73)
    pt3dadd(-9.79, 422.37, -11.32, 0.73)
    pt3dadd(-10.15, 423.1, -11.24, 0.73)
    pt3dadd(-10.52, 423.64, -10.94, 0.73)
    pt3dadd(-11.06, 424.37, -10.79, 0.73)
    pt3dadd(-11.43, 425.1, -10.64, 0.73)
    pt3dadd(-11.98, 426.19, -10.56, 0.73)
    pt3dadd(-12.15, 427.1, -10.34, 0.73)
    pt3dadd(-12.52, 428.01, -10.11, 0.73)
    pt3dadd(-12.52, 429.11, -10.11, 0.73)
    pt3dadd(-12.71, 430.2, -10.03, 0.73)
    pt3dadd(-12.71, 430.93, -10.11, 0.73)
    pt3dadd(-12.71, 431.84, -10.26, 0.73)
    pt3dadd(-12.89, 432.93, -10.49, 0.73)
    pt3dadd(-12.89, 433.84, -10.71, 0.73)
    pt3dadd(-13.06, 434.57, -10.94, 0.73)
    pt3dadd(-13.24, 435.12, -11.09, 0.73)
    pt3dadd(-13.24, 434.94, -11.09, 0.73)
    pt3dadd(-14.15, 435.3, -11.09, 0.73)
    pt3dadd(-14.89, 435.67, -11.17, 0.73)
    pt3dadd(-15.44, 435.85, -11.24, 0.73)
    pt3dadd(-16.17, 436.4, -11.4, 0.73)
    pt3dadd(-16.54, 436.94, -11.47, 0.73)
    pt3dadd(-17.08, 437.67, -11.62, 0.73)
    pt3dadd(-17.63, 438.4, -12, 0.73)
    pt3dadd(-17.81, 439.13, -12.08, 0.73)
    pt3dadd(-18.18, 439.68, -12.23, 0.73)
    pt3dadd(-18.73, 440.22, -12.38, 0.73)
    pt3dadd(-19.46, 440.59, -12.61, 0.73)
    pt3dadd(-20.19, 441.13, -12.99, 0.73)
    pt3dadd(-20.73, 441.5, -13.14, 0.73)
    pt3dadd(-21.28, 442.04, -13.74, 0.73)
    pt3dadd(-21.65, 442.77, -14.2, 0.73)
    pt3dadd(-21.83, 443.14, -14.43, 0.73)
    pt3dadd(-22.19, 443.5, -14.8, 0.73)
    pt3dadd(-22.92, 444.05, -14.96, 0.73)
    pt3dadd(-23.47, 444.41, -15.11, 0.73)
    pt3dadd(-23.47, 444.59, -15.33, 0.73)
    pt3dadd(-24.02, 445.14, -15.49, 0.73)
    pt3dadd(-24.56, 445.87, -15.56, 0.73)
  }
  apic[18] {pt3dclear()
    pt3dadd(-4.49, 392.12, -11.7, 2.92)
    pt3dadd(-4.49, 393.58, -11.62, 2.19)
    pt3dadd(-4.31, 394.49, -11.7, 2.19)
    pt3dadd(-4.31, 395.04, -11.85, 2.19)
    pt3dadd(-4.31, 395.58, -12, 2.19)
    pt3dadd(-4.31, 396.13, -12.08, 2.19)
    pt3dadd(-4.49, 397.04, -12.38, 2.19)
    pt3dadd(-4.68, 397.77, -12.61, 2.19)
    pt3dadd(-5.04, 398.68, -12.76, 2.74)
    pt3dadd(-5.04, 399.41, -12.83, 2.74)
    pt3dadd(-5.41, 400.5, -13.06, 2.74)
    pt3dadd(-5.41, 401.23, -13.21, 2.74)
    pt3dadd(-5.41, 402.32, -13.44, 2.74)
    pt3dadd(-5.77, 403.24, -13.52, 2.74)
    pt3dadd(-5.77, 404.15, -13.67, 2.74)
    pt3dadd(-5.77, 404.88, -13.9, 2.74)
    pt3dadd(-5.95, 405.97, -13.97, 2.74)
    pt3dadd(-5.95, 407.06, -14.12, 2.74)
    pt3dadd(-6.14, 407.97, -14.27, 2.74)
    pt3dadd(-6.14, 408.7, -14.43, 2.74)
    pt3dadd(-6.14, 409.43, -14.65, 2.74)
    pt3dadd(-6.14, 409.98, -14.88, 2.74)
    pt3dadd(-6.14, 410.71, -15.11, 2.74)
    pt3dadd(-6.14, 411.25, -15.33, 2.74)
    pt3dadd(-5.95, 411.8, -15.49, 2.74)
    pt3dadd(-5.95, 412.71, -15.71, 2.74)
    pt3dadd(-5.77, 413.62, -15.86, 2.74)
    pt3dadd(-5.77, 414.53, -16.09, 2.74)
    pt3dadd(-5.59, 415.26, -16.32, 2.74)
    pt3dadd(-5.41, 415.81, -16.32, 2.74)
    pt3dadd(-5.41, 416.54, -16.47, 2.74)
    pt3dadd(-5.22, 417.26, -16.55, 2.74)
  }
  apic[19] {pt3dclear()
    pt3dadd(-5.22, 417.26, -16.55, 2.74)
    pt3dadd(-6.14, 418.54, -17, 1.28)
    pt3dadd(-6.14, 418.72, -17, 1.28)
    pt3dadd(-6.14, 419.27, -17.15, 1.28)
    pt3dadd(-6.14, 420.36, -17.38, 1.28)
    pt3dadd(-6.5, 421.09, -17.53, 1.28)
    pt3dadd(-6.5, 422, -17.68, 1.28)
    pt3dadd(-6.68, 422.73, -17.76, 1.28)
    pt3dadd(-6.87, 423.46, -17.83, 1.28)
    pt3dadd(-6.87, 424.19, -17.91, 1.28)
    pt3dadd(-7.05, 424.73, -17.99, 1.28)
    pt3dadd(-7.23, 425.46, -18.06, 1.28)
    pt3dadd(-7.41, 426.37, -18.44, 1.28)
    pt3dadd(-7.96, 427.29, -18.59, 1.28)
    pt3dadd(-8.14, 427.83, -18.67, 1.28)
    pt3dadd(-8.69, 428.93, -18.74, 1.28)
    pt3dadd(-9.24, 429.29, -18.74, 1.28)
    pt3dadd(-10.52, 430.57, -18.74, 1.28)
    pt3dadd(-10.88, 431.48, -18.74, 1.28)
    pt3dadd(-11.06, 432.21, -18.74, 1.28)
  }
  apic[20] {pt3dclear()
    pt3dadd(-5.22, 417.26, -16.55, 2.74)
    pt3dadd(-4.68, 418.36, -16.55, 1.46)
    pt3dadd(-4.49, 418.72, -16.62, 1.46)
    pt3dadd(-4.31, 419.27, -16.85, 1.46)
    pt3dadd(-4.12, 420, -17, 1.46)
    pt3dadd(-4.12, 420.91, -17.08, 1.46)
    pt3dadd(-3.58, 422, -17.15, 1.46)
    pt3dadd(-3.03, 423.1, -17.23, 1.46)
    pt3dadd(-2.49, 424.01, -17.3, 1.46)
    pt3dadd(-1.76, 425.1, -17.3, 1.46)
    pt3dadd(-1.21, 426.01, -17.38, 1.46)
  }
  apic[21] {pt3dclear()
    pt3dadd(-1.21, 426.01, -17.38, 1.46)
    pt3dadd(-0.91, 425.84, -18.52, 0.36)
    pt3dadd(1.7764e-15, 426.38, -18.52, 0.36)
    pt3dadd(0.73, 426.75, -18.74, 0.36)
    pt3dadd(1.28, 427.11, -18.82, 0.36)
    pt3dadd(2.01, 427.66, -18.97, 0.36)
    pt3dadd(2.56, 428.21, -18.97, 0.36)
    pt3dadd(2.92, 428.75, -19.05, 0.36)
    pt3dadd(4.02, 429.12, -19.2, 0.55)
    pt3dadd(4.56, 429.48, -19.2, 0.55)
    pt3dadd(4.93, 429.66, -19.27, 0.55)
    pt3dadd(5.29, 430.03, -19.27, 0.55)
    pt3dadd(5.84, 430.21, -19.27, 0.55)
    pt3dadd(6.75, 430.58, -19.27, 0.55)
    pt3dadd(7.12, 431.12, -19.27, 0.55)
    pt3dadd(7.67, 431.85, -19.35, 0.55)
    pt3dadd(8.21, 432.58, -19.43, 0.55)
    pt3dadd(8.58, 433.31, -19.5, 0.55)
    pt3dadd(9.13, 434.22, -19.5, 0.55)
    pt3dadd(10.22, 435.31, -19.58, 0.55)
    pt3dadd(11.13, 436.41, -19.58, 0.55)
    pt3dadd(11.86, 437.32, -19.58, 0.55)
    pt3dadd(12.23, 437.86, -19.58, 0.55)
    pt3dadd(12.96, 438.77, -19.58, 0.55)
    pt3dadd(13.32, 439.69, -19.58, 0.55)
    pt3dadd(14.42, 440.41, -19.58, 0.55)
    pt3dadd(14.96, 441.51, -19.58, 0.55)
    pt3dadd(15.33, 442.78, -19.58, 0.55)
    pt3dadd(15.88, 444.06, -19.58, 0.55)
    pt3dadd(16.42, 445.33, -19.58, 0.55)
    pt3dadd(16.97, 446.43, -19.58, 0.55)
    pt3dadd(18.25, 447.88, -19.58, 0.55)
    pt3dadd(19.34, 448.8, -19.58, 0.55)
    pt3dadd(20.26, 449.71, -19.58, 0.55)
    pt3dadd(21.72, 450.98, -19.58, 0.55)
    pt3dadd(22.08, 452.08, -19.58, 0.55)
    pt3dadd(22.63, 452.44, -19.58, 0.55)
    pt3dadd(23.9, 452.8, -19.58, 0.55)
    pt3dadd(27.01, 453.53, -19.58, 0.55)
    pt3dadd(28.83, 453.9, -19.58, 0.55)
    pt3dadd(29.93, 454.63, -19.58, 0.55)
    pt3dadd(30.84, 455.54, -19.58, 0.55)
    pt3dadd(32.48, 455.9, -19.58, 0.55)
    pt3dadd(33.21, 456.99, -19.58, 0.55)
    pt3dadd(33.94, 457.91, -19.58, 0.55)
    pt3dadd(34.49, 459.55, -19.58, 0.55)
    pt3dadd(35.03, 460.27, -19.58, 0.55)
    pt3dadd(35.58, 461.19, -19.58, 0.55)
    pt3dadd(36.49, 461.55, -19.58, 0.55)
    pt3dadd(38.5, 462.1, -19.58, 0.55)
    pt3dadd(40.14, 462.82, -19.58, 0.55)
    pt3dadd(41.24, 463.74, -19.58, 0.55)
    pt3dadd(42.88, 466.29, -19.58, 0.55)
    pt3dadd(43.43, 467.38, -19.58, 0.55)
    pt3dadd(44.7, 468.47, -19.58, 0.55)
    pt3dadd(45.98, 469.57, -19.58, 0.55)
    pt3dadd(47.62, 470.84, -19.58, 0.55)
    pt3dadd(48.72, 471.57, -19.58, 0.55)
    pt3dadd(50, 472.3, -19.58, 0.55)
    pt3dadd(51.45, 473.03, -19.58, 0.55)
    pt3dadd(53.1, 473.21, -19.58, 0.55)
    pt3dadd(53.64, 473.57, -19.58, 0.55)
    pt3dadd(54.19, 473.57, -19.58, 0.55)
    pt3dadd(54.92, 473.76, -19.58, 0.55)
  }
  apic[22] {pt3dclear()
    pt3dadd(-1.21, 426.01, -17.38, 1.46)
    pt3dadd(-1.21, 426.19, -17.46, 0.91)
    pt3dadd(-1.39, 427.29, -17.46, 0.91)
    pt3dadd(-1.39, 428.01, -17.61, 0.91)
    pt3dadd(-1.21, 428.74, -17.68, 0.91)
    pt3dadd(-0.85, 429.29, -17.76, 0.91)
    pt3dadd(-0.48, 430.02, -17.83, 0.91)
    pt3dadd(-0.3, 430.57, -17.83, 0.91)
    pt3dadd(-0.12, 431.11, -17.91, 0.91)
    pt3dadd(0.25, 431.84, -18.14, 0.91)
    pt3dadd(0.43, 432.39, -18.29, 0.91)
    pt3dadd(0.98, 433.3, -18.36, 0.91)
    pt3dadd(1.34, 434.03, -18.52, 0.91)
    pt3dadd(1.53, 434.57, -18.59, 0.91)
    pt3dadd(1.89, 435.3, -18.74, 0.91)
    pt3dadd(2.26, 436.03, -18.82, 0.91)
    pt3dadd(2.99, 436.4, -19.05, 0.91)
    pt3dadd(3.72, 436.76, -19.12, 0.91)
    pt3dadd(4.26, 437.12, -19.2, 0.91)
    pt3dadd(4.63, 437.67, -19.2, 0.91)
    pt3dadd(5.18, 438.4, -19.27, 0.91)
    pt3dadd(5.91, 439.49, -19.43, 0.91)
    pt3dadd(6.09, 440.4, -19.5, 0.91)
    pt3dadd(6.27, 441.32, -19.5, 0.91)
    pt3dadd(6.09, 442.04, -19.5, 0.91)
    pt3dadd(5.72, 443.14, -19.5, 0.91)
    pt3dadd(5.54, 444.05, -19.5, 0.91)
    pt3dadd(4.81, 445.32, -19.5, 0.91)
    pt3dadd(4.63, 446.05, -19.5, 0.91)
    pt3dadd(4.08, 447.51, -19.58, 0.91)
    pt3dadd(3.53, 448.24, -19.8, 0.91)
    pt3dadd(2.99, 449.15, -19.96, 0.91)
    pt3dadd(2.26, 450.42, -19.96, 0.91)
    pt3dadd(1.71, 451.15, -20.11, 0.91)
    pt3dadd(0.98, 451.88, -20.26, 0.91)
    pt3dadd(-0.3, 452.61, -20.4, 0.91)
    pt3dadd(-1.21, 453.34, -20.4, 0.91)
    pt3dadd(-1.94, 454.25, -20.49, 0.91)
    pt3dadd(-2.31, 454.98, -20.49, 0.91)
    pt3dadd(-2.67, 456.07, -20.49, 0.91)
    pt3dadd(-3.22, 456.62, -20.56, 0.91)
    pt3dadd(-3.76, 457.35, -20.64, 0.91)
    pt3dadd(-4.86, 458.26, -20.71, 0.91)
    pt3dadd(-7.41, 459.35, -20.79, 0.91)
    pt3dadd(-7.96, 459.72, -20.79, 0.91)
    pt3dadd(-8.33, 460.81, -20.79, 0.91)
    pt3dadd(-8.87, 461.72, -20.79, 0.91)
    pt3dadd(-9.42, 462.63, -20.79, 0.91)
    pt3dadd(-9.97, 463.36, -20.86, 0.91)
    pt3dadd(-10.52, 464.09, -20.86, 0.91)
    pt3dadd(-11.06, 464.64, -20.94, 0.91)
    pt3dadd(-11.79, 465.18, -21.01, 0.91)
    pt3dadd(-12.52, 465.18, -21.08, 0.91)
    pt3dadd(-13.06, 465.37, -21.08, 0.91)
    pt3dadd(-13.8, 466.09, -21.08, 0.91)
    pt3dadd(-14.35, 466.64, -21.08, 0.91)
    pt3dadd(-14.89, 467.55, -21.08, 0.91)
    pt3dadd(-15.62, 468.64, -21.08, 0.91)
    pt3dadd(-16.35, 470.1, -21.08, 0.91)
    pt3dadd(-16.9, 471.38, -21.17, 0.91)
    pt3dadd(-17.81, 472.84, -21.24, 0.91)
    pt3dadd(-18.54, 473.75, -21.24, 0.91)
    pt3dadd(-21.09, 481.56, -21.24, 0.91)
    pt3dadd(-21.64, 482.29, -21.24, 0.91)
    pt3dadd(-22.37, 483.02, -21.39, 0.91)
    pt3dadd(-22.91, 483.75, -21.55, 0.91)
    pt3dadd(-23.46, 484.29, -21.76, 0.91)
    pt3dadd(-24.01, 484.66, -21.85, 0.91)
    pt3dadd(-24.37, 485.2, -22, 0.91)
    pt3dadd(-24.74, 485.75, -22.22, 0.91)
    pt3dadd(-25.28, 486.48, -22.38, 0.91)
    pt3dadd(-25.83, 487.21, -22.46, 0.91)
    pt3dadd(-26.2, 487.94, -22.61, 0.91)
    pt3dadd(-26.37, 488.48, -22.68, 0.91)
  }
}
proc shape3d_13() {
  apic[22] {
    pt3dadd(-27.11, 489.39, -22.76, 0.91)
    pt3dadd(-27.84, 490.3, -22.83, 0.91)
    pt3dadd(-28.57, 491.03, -22.9, 0.91)
    pt3dadd(-29.48, 492.31, -22.99, 0.91)
  }
  apic[23] {pt3dclear()
    pt3dadd(-29.48, 492.31, -22.99, 0.91)
    pt3dadd(-30.03, 492.31, -22.99, 0.91)
    pt3dadd(-30.21, 492.86, -23.21, 0.91)
    pt3dadd(-30.58, 493.04, -23.51, 0.91)
    pt3dadd(-30.94, 493.58, -23.67, 0.91)
    pt3dadd(-31.66, 493.95, -23.97, 0.91)
    pt3dadd(-32.22, 494.13, -24.2, 0.91)
    pt3dadd(-32.4, 494.31, -24.5, 0.91)
    pt3dadd(-33.12, 494.68, -24.8, 0.91)
    pt3dadd(-33.3, 494.68, -25.33, 0.91)
    pt3dadd(-33.86, 495.04, -25.49, 0.91)
    pt3dadd(-34.41, 495.04, -25.56, 0.91)
    pt3dadd(-34.77, 495.22, -25.56, 0.91)
    pt3dadd(-35.32, 495.59, -26.17, 0.91)
    pt3dadd(-35.87, 495.95, -26.47, 0.91)
    pt3dadd(-36.78, 496.5, -26.85, 0.91)
    pt3dadd(-37.33, 496.68, -27.3, 0.91)
    pt3dadd(-37.87, 496.86, -27.45, 0.91)
    pt3dadd(-38.42, 497.05, -27.61, 0.91)
    pt3dadd(-39.15, 497.23, -27.9, 0.91)
    pt3dadd(-39.88, 497.41, -28.06, 0.91)
    pt3dadd(-40.61, 498.14, -28.21, 0.91)
    pt3dadd(-41.34, 498.69, -28.29, 0.91)
    pt3dadd(-41.89, 499.41, -28.44, 0.91)
    pt3dadd(-42.62, 500.14, -28.51, 0.91)
    pt3dadd(-43.53, 500.69, -28.67, 0.91)
    pt3dadd(-44.08, 501.42, -28.89, 0.91)
    pt3dadd(-44.44, 501.78, -29.05, 0.91)
    pt3dadd(-45.17, 502.51, -29.05, 0.91)
    pt3dadd(-45.72, 502.51, -29.12, 0.73)
    pt3dadd(-46.08, 502.69, -29.2, 0.73)
    pt3dadd(-46.63, 503.06, -29.5, 0.73)
    pt3dadd(-47.18, 503.41, -29.8, 0.73)
    pt3dadd(-47.73, 503.78, -29.95, 0.73)
    pt3dadd(-48.09, 504.15, -30.33, 0.73)
    pt3dadd(-48.82, 504.52, -30.56, 0.73)
    pt3dadd(-49.73, 505.06, -30.71, 0.73)
    pt3dadd(-50.1, 505.25, -30.94, 0.73)
    pt3dadd(-50.46, 505.61, -31.09, 0.73)
    pt3dadd(-50.65, 505.61, -31.24, 0.73)
    pt3dadd(-51.74, 506.34, -31.32, 0.73)
    pt3dadd(-52.65, 506.89, -31.77, 0.73)
    pt3dadd(-53.56, 507.79, -32, 0.73)
    pt3dadd(-54.11, 508.16, -32.08, 0.73)
    pt3dadd(-54.66, 508.71, -32.15, 0.73)
    pt3dadd(-55.21, 509.07, -32.15, 0.73)
    pt3dadd(-56.12, 509.62, -32.15, 0.73)
    pt3dadd(-57.4, 510.16, -32.3, 0.73)
    pt3dadd(-57.94, 510.53, -32.45, 0.73)
    pt3dadd(-58.67, 511.08, -32.76, 0.73)
    pt3dadd(-59.21, 511.62, -32.83, 0.73)
    pt3dadd(-59.95, 512.16, -32.91, 0.73)
    pt3dadd(-60.49, 512.9, -33.06, 0.73)
    pt3dadd(-61.41, 513.81, -33.29, 0.73)
    pt3dadd(-62.32, 514.53, -33.36, 0.73)
    pt3dadd(-63.05, 515.08, -33.59, 0.73)
    pt3dadd(-63.6, 515.27, -33.89, 0.73)
    pt3dadd(-64.32, 515.63, -34.27, 0.73)
    pt3dadd(-64.88, 516.17, -34.42, 0.73)
    pt3dadd(-65.79, 516.72, -34.42, 0.73)
  }
  apic[24] {pt3dclear()
    pt3dadd(-29.48, 492.31, -22.99, 0.91)
    pt3dadd(-29.48, 492.67, -23.06, 0.73)
    pt3dadd(-29.12, 492.86, -23.14, 0.73)
    pt3dadd(-28.93, 493.22, -23.36, 0.73)
    pt3dadd(-28.75, 494.68, -23.58, 0.73)
    pt3dadd(-28.57, 495.22, -23.67, 0.73)
    pt3dadd(-28.57, 496.32, -23.82, 0.73)
    pt3dadd(-28.57, 497.23, -23.97, 0.73)
    pt3dadd(-29.3, 497.78, -24.05, 0.73)
    pt3dadd(-30.03, 498.5, -24.26, 0.73)
    pt3dadd(-30.76, 499.23, -24.58, 0.73)
    pt3dadd(-31.3, 499.6, -24.65, 0.73)
    pt3dadd(-31.48, 500.14, -24.8, 0.73)
    pt3dadd(-31.85, 500.87, -24.88, 0.73)
    pt3dadd(-32.22, 501.42, -25.11, 0.73)
    pt3dadd(-32.58, 502.33, -25.33, 0.73)
    pt3dadd(-32.76, 502.88, -25.56, 0.73)
    pt3dadd(-32.95, 503.06, -25.64, 0.73)
    pt3dadd(-33.12, 503.41, -25.79, 0.73)
    pt3dadd(-33.68, 504.15, -25.79, 0.73)
    pt3dadd(-34.41, 505.25, -26.01, 0.73)
    pt3dadd(-34.77, 505.78, -26.17, 0.73)
    pt3dadd(-34.95, 506.34, -26.39, 0.73)
    pt3dadd(-35.14, 507.07, -26.55, 0.73)
    pt3dadd(-35.32, 507.42, -26.7, 0.73)
    pt3dadd(-35.68, 507.98, -26.85, 0.73)
    pt3dadd(-35.68, 508.34, -27.08, 0.73)
    pt3dadd(-35.87, 508.71, -27.22, 0.73)
    pt3dadd(-36.41, 509.44, -27.53, 0.73)
    pt3dadd(-36.6, 509.98, -27.76, 0.73)
    pt3dadd(-37.33, 510.53, -27.76, 0.73)
    pt3dadd(-37.14, 510.71, -27.9, 0.73)
    pt3dadd(-37.14, 510.89, -28.06, 0.73)
    pt3dadd(-37.33, 511.26, -28.21, 0.73)
    pt3dadd(-37.51, 511.62, -28.29, 0.73)
    pt3dadd(-37.69, 511.79, -28.44, 0.73)
    pt3dadd(-38.24, 512.16, -28.51, 0.73)
    pt3dadd(-38.42, 512.72, -28.58, 0.73)
    pt3dadd(-38.97, 513.63, -28.67, 0.73)
    pt3dadd(-39.52, 514.36, -28.74, 0.73)
    pt3dadd(-39.88, 515.08, -28.82, 0.73)
    pt3dadd(-40.61, 515.81, -28.97, 0.73)
    pt3dadd(-40.98, 516.53, -29.05, 0.73)
    pt3dadd(-41.34, 516.91, -29.2, 0.73)
    pt3dadd(-41.71, 517.45, -29.27, 0.73)
    pt3dadd(-42.43, 518.54, -29.35, 0.73)
    pt3dadd(-42.8, 519.09, -29.35, 0.73)
    pt3dadd(-43.53, 519.82, -29.42, 0.73)
    pt3dadd(-43.89, 520.37, -29.42, 0.73)
    pt3dadd(-44.81, 521.1, -29.42, 0.73)
    pt3dadd(-45.72, 522.01, -29.5, 0.73)
    pt3dadd(-46.08, 522.54, -29.58, 0.73)
    pt3dadd(-46.45, 523.28, -29.65, 0.73)
    pt3dadd(-47.18, 524.01, -29.73, 0.73)
    pt3dadd(-47.73, 524.91, -30.03, 0.73)
    pt3dadd(-48.09, 525.47, -30.18, 0.73)
    pt3dadd(-48.27, 525.83, -30.33, 0.73)
    pt3dadd(-48.46, 526.56, -30.48, 0.73)
    pt3dadd(-48.46, 527.11, -30.48, 0.73)
    pt3dadd(-48.64, 527.84, -30.56, 0.73)
    pt3dadd(-48.64, 528.2, -30.56, 0.73)
    pt3dadd(-48.64, 528.75, -30.56, 0.73)
    pt3dadd(-49.19, 529.48, -30.79, 0.73)
    pt3dadd(-49.37, 529.66, -31.01, 0.73)
    pt3dadd(-49.37, 530.02, -31.09, 0.73)
    pt3dadd(-49.37, 530.39, -31.32, 0.73)
    pt3dadd(-49.37, 530.57, -31.39, 0.73)
    pt3dadd(-49.37, 530.75, -31.55, 0.73)
    pt3dadd(-49.37, 531.12, -31.7, 0.73)
    pt3dadd(-49.37, 531.48, -31.7, 0.73)
    pt3dadd(-49.19, 531.85, -31.77, 0.73)
    pt3dadd(-49.19, 532.39, -31.85, 0.73)
    pt3dadd(-49.19, 532.94, -31.92, 0.73)
    pt3dadd(-49.19, 533.85, -32.08, 0.73)
    pt3dadd(-49.37, 534.58, -32.15, 0.73)
    pt3dadd(-49.73, 535.31, -32.3, 0.73)
    pt3dadd(-49.73, 535.85, -32.38, 0.73)
    pt3dadd(-49.92, 536.4, -32.45, 0.73)
    pt3dadd(-50.1, 537.13, -32.53, 0.73)
    pt3dadd(-50.1, 537.67, -32.61, 0.73)
    pt3dadd(-50.1, 538.22, -32.83, 0.73)
    pt3dadd(-50.1, 539.13, -32.91, 0.73)
    pt3dadd(-50.1, 539.32, -32.98, 0.73)
    pt3dadd(-50.1, 540.04, -33.36, 0.73)
    pt3dadd(-50.28, 540.77, -33.59, 0.73)
    pt3dadd(-50.28, 541.32, -33.89, 0.73)
    pt3dadd(-50.28, 542.04, -34.04, 0.73)
    pt3dadd(-50.1, 542.23, -34.35, 0.73)
    pt3dadd(-50.1, 542.78, -34.58, 0.73)
    pt3dadd(-49.73, 543.14, -34.65, 0.73)
    pt3dadd(-49.55, 543.69, -34.8, 0.73)
    pt3dadd(-49.37, 544.41, -34.8, 0.91)
    pt3dadd(-49.19, 544.78, -34.95, 0.91)
    pt3dadd(-49, 545.51, -35.33, 0.91)
    pt3dadd(-49, 545.88, -35.56, 0.91)
    pt3dadd(-48.82, 546.6, -35.79, 0.91)
    pt3dadd(-48.46, 546.97, -36.01, 0.91)
    pt3dadd(-48.09, 547.52, -36.24, 0.91)
    pt3dadd(-47.73, 548.24, -36.62, 0.91)
    pt3dadd(-47.54, 548.61, -36.92, 0.91)
    pt3dadd(-47.18, 549.16, -37.15, 0.91)
    pt3dadd(-47.18, 549.7, -37.3, 0.91)
    pt3dadd(-47, 550.42, -37.53, 0.91)
    pt3dadd(-46.63, 550.98, -37.76, 0.91)
    pt3dadd(-46.45, 551.71, -37.98, 0.91)
    pt3dadd(-45.72, 552.62, -38.21, 0.91)
    pt3dadd(-45.35, 553.16, -38.29, 0.91)
    pt3dadd(-45.17, 553.71, -38.44, 0.91)
    pt3dadd(-44.99, 554.44, -38.67, 0.91)
    pt3dadd(-45.17, 555.35, -38.82, 0.91)
    pt3dadd(-45.54, 556.63, -39.04, 0.91)
    pt3dadd(-45.54, 557.53, -39.35, 0.91)
    pt3dadd(-45.54, 558.63, -39.65, 0.91)
    pt3dadd(-45.35, 559.36, -39.8, 0.91)
    pt3dadd(-44.99, 560.09, -39.95, 0.91)
    pt3dadd(-44.81, 561, -40.03, 0.91)
    pt3dadd(-44.44, 561.91, -40.18, 0.91)
    pt3dadd(-44.26, 562.64, -40.26, 0.91)
    pt3dadd(-44.08, 563.91, -40.33, 0.91)
    pt3dadd(-43.71, 565.74, -40.41, 0.91)
    pt3dadd(-43.16, 566.83, -40.41, 0.91)
    pt3dadd(-42.07, 568.15, -40.41, 0.36)
    pt3dadd(-41.71, 569.06, -40.41, 0.36)
    pt3dadd(-41.34, 569.25, -40.48, 0.36)
    pt3dadd(-41.16, 569.78, -40.64, 0.36)
    pt3dadd(-41.16, 570.34, -40.79, 0.36)
    pt3dadd(-41.34, 570.89, -40.86, 0.36)
    pt3dadd(-41.34, 571.42, -40.94, 0.36)
    pt3dadd(-41.53, 572.34, -40.94, 0.36)
    pt3dadd(-41.53, 573.79, -41.17, 0.36)
    pt3dadd(-41.53, 574.53, -41.39, 0.36)
    pt3dadd(-41.16, 575.44, -41.54, 0.36)
    pt3dadd(-40.25, 576.53, -41.7, 0.36)
    pt3dadd(-39.88, 576.9, -41.85, 0.36)
    pt3dadd(-39.88, 577.45, -42, 0.36)
    pt3dadd(-40.25, 578.16, -42.07, 0.36)
    pt3dadd(-40.8, 578.9, -42.23, 0.36)
    pt3dadd(-41.16, 579.63, -42.38, 0.36)
    pt3dadd(-41.34, 580.53, -42.45, 0.36)
    pt3dadd(-41.71, 581.82, -42.53, 0.36)
    pt3dadd(-42.44, 583.46, -42.6, 0.36)
    pt3dadd(-42.99, 584.54, -42.6, 0.36)
    pt3dadd(-44.08, 585.64, -42.6, 0.36)
    pt3dadd(-44.81, 586.19, -42.6, 0.36)
    pt3dadd(-45.36, 586.56, -42.6, 0.36)
  }
}
proc basic_shape() {
  shape3d_1()
  shape3d_2()
  shape3d_3()
  shape3d_4()
  shape3d_5()
  shape3d_6()
  shape3d_7()
  shape3d_8()
  shape3d_9()
  shape3d_10()
  shape3d_11()
  shape3d_12()
  shape3d_13()
}

objref all
objref somatic
objref basal
objref apical
proc subsets() { local ward
  all = new SectionList()
  somatic = new SectionList()
  for ward = 0, 2 soma[ward] {
    somatic.append()
    all.append()
  }
  basal = new SectionList()
  for ward = 0, 17 dend[ward] {
    basal.append()
    all.append()
  }
  apical = new SectionList()
  for ward = 0, 24 apic[ward] {
    apical.append()
    all.append()
  }
}
proc geom() {
}
proc geom_nseg() {
}
proc biophys() {
}
access soma
celldef()