Impedance spectrum in cortical tissue: implications for LFP signal propagation (Miceli et al. 2017)

 Download zip file 
Help downloading and running models
Accession:224923
" ... Here, we performed a detailed investigation of the frequency dependence of the conductivity within cortical tissue at microscopic distances using small current amplitudes within the typical (neuro)physiological micrometer and sub-nanoampere range. We investigated the propagation of LFPs, induced by extracellular electrical current injections via patch-pipettes, in acute rat brain slice preparations containing the somatosensory cortex in vitro using multielectrode arrays. Based on our data, we determined the cortical tissue conductivity over a 100-fold increase in signal frequency (5-500 Hz). Our results imply at most very weak frequency-dependent effects within the frequency range of physiological LFPs. Using biophysical modeling, we estimated the impact of different putative impedance spectra. Our results indicate that frequency dependencies of the order measured here and in most other studies have negligible impact on the typical analysis and modeling of LFP signals from extracellular brain recordings."
Reference:
1 . Miceli S, Ness TV, Einevoll GT, Schubert D (2017) Impedance Spectrum in Cortical Tissue: Implications for Propagation of LFP Signals on the Microscopic Level Eneuro 4:1-15
Model Information (Click on a link to find other models with that property)
Model Type: Extracellular; Neuron or other electrically excitable cell;
Brain Region(s)/Organism:
Cell Type(s): Neocortex V1 L6 pyramidal corticothalamic GLU cell;
Channel(s): I Na,p; I Na,t; I L high threshold; I A; I h; I K,Ca; I Calcium; I A, slow;
Gap Junctions:
Receptor(s):
Gene(s):
Transmitter(s):
Simulation Environment: Python; NEURON;
Model Concept(s): Extracellular Fields; Methods; Simplified Models; Detailed Neuronal Models;
Implementer(s):
Search NeuronDB for information about:  Neocortex V1 L6 pyramidal corticothalamic GLU cell; I Na,p; I Na,t; I L high threshold; I A; I h; I K,Ca; I Calcium; I A, slow;
/
tissue_impedance_impact
hay
sim_results
ampa.mod
Ca_HVA.mod *
Ca_LVAst.mod *
CaDynamics_E2.mod *
epsp.mod *
glutamate.mod
Ih.mod *
Im.mod *
K_Pst.mod *
K_Tst.mod *
Nap_Et2.mod
NaTa_t.mod *
NaTs2_t.mod
siniclamp.mod
SK_E2.mod *
SKv3_1.mod *
stim.mod
cell1.hoc
cell1.rot
custom_codes.hoc
hay_active_declarations.py
                            
proc celldef() {
  topol()
  subsets()
  geom()
  biophys()
  geom_nseg()
}

create soma[1], axon[1], dend[84], apic[109]

proc topol() { local i
  connect axon(0), soma(0.5)
  connect dend(0), soma(0.5)
  for i = 1, 2 connect dend[i](0), dend[i-1](1)
  connect dend[3](0), dend[1](1)
  for i = 4, 5 connect dend[i](0), dend[3](1)
  connect dend[6](0), dend(1)
  connect dend[7](0), soma(0.5)
  for i = 8, 9 connect dend[i](0), dend[i-1](1)
  connect dend[10](0), dend[8](1)
  connect dend[11](0), dend[7](1)
  for i = 12, 13 connect dend[i](0), dend[i-1](1)
  connect dend[14](0), dend[12](1)
  connect dend[15](0), dend[11](1)
  connect dend[16](0), soma(0.5)
  for i = 17, 19 connect dend[i](0), dend[i-1](1)
  connect dend[20](0), dend[18](1)
  for i = 21, 22 connect dend[i](0), dend[20](1)
  for i = 23, 24 connect dend[i](0), dend[22](1)
  connect dend[25](0), dend[17](1)
  for i = 26, 27 connect dend[i](0), dend[i-1](1)
  connect dend[28](0), dend[26](1)
  connect dend[29](0), dend[25](1)
  for i = 30, 31 connect dend[i](0), dend[i-1](1)
  connect dend[32](0), dend[30](1)
  connect dend[33](0), dend[29](1)
  connect dend[34](0), dend[16](1)
  for i = 35, 36 connect dend[i](0), dend[34](1)
  for i = 37, 38 connect dend[i](0), dend[36](1)
  connect dend[39](0), soma(0.5)
  for i = 40, 41 connect dend[i](0), dend[39](1)
  connect dend[42](0), soma(0.5)
  for i = 43, 44 connect dend[i](0), dend[i-1](1)
  connect dend[45](0), dend[43](1)
  connect dend[46](0), dend[42](1)
  for i = 47, 49 connect dend[i](0), dend[i-1](1)
  connect dend[50](0), dend[48](1)
  connect dend[51](0), dend[47](1)
  connect dend[52](0), dend[46](1)
  for i = 53, 54 connect dend[i](0), dend[i-1](1)
  connect dend[55](0), dend[53](1)
  for i = 56, 57 connect dend[i](0), dend[55](1)
  for i = 58, 59 connect dend[i](0), dend[57](1)
  connect dend[60](0), dend[52](1)
  for i = 61, 62 connect dend[i](0), dend[60](1)
  connect dend[63](0), soma(0.5)
  for i = 64, 66 connect dend[i](0), dend[i-1](1)
  connect dend[67](0), dend[65](1)
  connect dend[68](0), dend[64](1)
  for i = 69, 70 connect dend[i](0), dend[68](1)
  connect dend[71](0), dend[63](1)
  for i = 72, 73 connect dend[i](0), dend[71](1)
  for i = 74, 75 connect dend[i](0), dend[73](1)
  for i = 76, 77 connect dend[i](0), dend[75](1)
  for i = 78, 79 connect dend[i](0), soma(0.5)
  for i = 80, 81 connect dend[i](0), dend[79](1)
  for i = 82, 83 connect dend[i](0), dend[81](1)
  connect apic(0), soma(0.5)
  for i = 1, 8 connect apic[i](0), apic[i-1](1)
  connect apic[9](0), apic[7](1)
  connect apic[10](0), apic[6](1)
  connect apic[11](0), apic[5](1)
  for i = 12, 13 connect apic[i](0), apic[11](1)
  connect apic[14](0), apic[4](1)
  for i = 15, 17 connect apic[i](0), apic[i-1](1)
  connect apic[18](0), apic[16](1)
  connect apic[19](0), apic[15](1)
  connect apic[20](0), apic[14](1)
  for i = 21, 23 connect apic[i](0), apic[i-1](1)
  connect apic[24](0), apic[22](1)
  connect apic[25](0), apic[21](1)
  connect apic[26](0), apic[20](1)
  for i = 27, 29 connect apic[i](0), apic[i-1](1)
  connect apic[30](0), apic[28](1)
  for i = 31, 32 connect apic[i](0), apic[30](1)
  connect apic[33](0), apic[27](1)
  connect apic[34](0), apic[26](1)
  for i = 35, 36 connect apic[i](0), apic[34](1)
  for i = 37, 39 connect apic[i](0), apic[i-1](1)
  connect apic[40](0), apic[38](1)
  for i = 41, 42 connect apic[i](0), apic[i-1](1)
  connect apic[43](0), apic[41](1)
  connect apic[44](0), apic[40](1)
  connect apic[45](0), apic[37](1)
  for i = 46, 47 connect apic[i](0), apic[i-1](1)
  connect apic[48](0), apic[46](1)
  connect apic[49](0), apic[45](1)
  connect apic[50](0), apic[36](1)
  for i = 51, 52 connect apic[i](0), apic[i-1](1)
  connect apic[53](0), apic[51](1)
  for i = 54, 55 connect apic[i](0), apic[i-1](1)
  connect apic[56](0), apic[54](1)
  connect apic[57](0), apic[53](1)
  for i = 58, 59 connect apic[i](0), apic[57](1)
  connect apic[60](0), apic[50](1)
  for i = 61, 63 connect apic[i](0), apic[i-1](1)
  connect apic[64](0), apic[62](1)
  for i = 65, 66 connect apic[i](0), apic[64](1)
  connect apic[67](0), apic[61](1)
  connect apic[68](0), apic[60](1)
  for i = 69, 70 connect apic[i](0), apic[i-1](1)
  connect apic[71](0), apic[69](1)
  for i = 72, 73 connect apic[i](0), apic[71](1)
  connect apic[74](0), apic[68](1)
  for i = 75, 76 connect apic[i](0), apic[i-1](1)
  connect apic[77](0), apic[75](1)
  connect apic[78](0), apic[74](1)
  connect apic[79](0), apic[3](1)
  connect apic[80](0), apic[2](1)
  for i = 81, 84 connect apic[i](0), apic[i-1](1)
  connect apic[85](0), apic[83](1)
  connect apic[86](0), apic[82](1)
  connect apic[87](0), apic[81](1)
  connect apic[88](0), apic[80](1)
  for i = 89, 90 connect apic[i](0), apic[i-1](1)
  connect apic[91](0), apic[89](1)
  connect apic[92](0), apic[88](1)
  for i = 93, 94 connect apic[i](0), apic[92](1)
  for i = 95, 96 connect apic[i](0), apic[94](1)
  for i = 97, 98 connect apic[i](0), apic[96](1)
  connect apic[99](0), apic[1](1)
  for i = 100, 101 connect apic[i](0), apic[i-1](1)
  connect apic[102](0), apic[100](1)
  connect apic[103](0), apic[99](1)
  connect apic[104](0), apic(1)
  for i = 105, 106 connect apic[i](0), apic[104](1)
  for i = 107, 108 connect apic[i](0), apic[106](1)
  basic_shape()
}
proc shape3d_1() {
  soma {pt3dclear()
	pt3dadd(34.1634, 17.6215, -50.25, 3.80039)
	pt3dadd(35.3196, 17.6937, -50.25, 6.44373)
	pt3dadd(36.4758, 17.766, -50.25, 9.60449)
	pt3dadd(37.632, 17.8382, -50.25, 12.1828)
	pt3dadd(38.7883, 17.9104, -50.25, 14.0603)
	pt3dadd(39.9445, 17.9826, -50.25, 15.0258)
	pt3dadd(41.1007, 18.0548, -50.25, 15.7699)
	pt3dadd(42.2569, 18.127, -50.25, 16.355)
	pt3dadd(43.4131, 18.1992, -50.25, 16.8945)
	pt3dadd(44.5693, 18.2715, -50.25, 17.3944)
	pt3dadd(45.7256, 18.3437, -50.25, 17.8802)
	pt3dadd(46.8818, 18.4159, -50.25, 17.7412)
	pt3dadd(48.038, 18.4881, -50.25, 17.287)
	pt3dadd(49.1942, 18.5603, -50.25, 16.4842)
	pt3dadd(50.3504, 18.6325, -50.25, 15.5189)
	pt3dadd(51.5066, 18.7048, -50.25, 14.5001)
	pt3dadd(52.6629, 18.777, -50.25, 13.2772)
	pt3dadd(53.8191, 18.8492, -50.25, 11.9488)
	pt3dadd(54.9753, 18.9214, -50.25, 10.2285)
	pt3dadd(56.1315, 18.9936, -50.25, 6.98304)
	pt3dadd(57.2877, 19.0658, -50.25, 3.9001)
  }
  axon {pt3dclear()
	pt3dstyle(1, 45.9327, 18.3566, -50.25)
	pt3dadd(46.27, 9.75, -52.42, 0.29)
	pt3dadd(46.57, 7.19, -50.2, 1.46)
	pt3dadd(46.86, 4.31, -48.75, 1.46)
	pt3dadd(47.15, 1.42, -47.02, 1.46)
	pt3dadd(47.15, -1.78, -45.05, 1.46)
	pt3dadd(47.44, -4.98, -41.85, 1.46)
	pt3dadd(47.44, -8.5, -41.6, 1.17)
	pt3dadd(48.32, -12.02, -41.6, 1.17)
	pt3dadd(48.9, -15.55, -41.6, 1.17)
	pt3dadd(48.9, -18.75, -41.5, 1.17)
	pt3dadd(48.03, -21.31, -41.47, 1.17)
	pt3dadd(48.32, -24.19, -41.2, 1.17)
	pt3dadd(47.44, -27.07, -41.05, 1.17)
	pt3dadd(47.15, -30.6, -39.85, 1.17)
  }
  dend {pt3dclear()
	pt3dstyle(1, 45.9327, 18.3566, -50.25)
	pt3dadd(56.41, 20.23, -50.25, 0.58)
	pt3dadd(57.87, 20.55, -50.25, 1.17)
	pt3dadd(61.37, 21.51, -49.35, 1.17)
	pt3dadd(63.71, 22.15, -51.15, 1.17)
	pt3dadd(66.63, 21.19, -52.4, 1.17)
	pt3dadd(69.84, 19.59, -48.02, 1.17)
	pt3dadd(71.29, 18.31, -45.13, 1.17)
	pt3dadd(74.67, 18.98, -44.58, 1.17)
  }
  dend[1] {pt3dclear()
	pt3dadd(74.67, 18.98, -44.58, 0.88)
	pt3dadd(78.46, 19.3, -42.47, 0.88)
	pt3dadd(81.38, 20.26, -40.38, 0.88)
	pt3dadd(84, 19.94, -44.27, 0.88)
	pt3dadd(86.05, 19.94, -44.27, 0.88)
	pt3dadd(86.41, 19.89, -44.3, 0.88)
  }
  dend[2] {pt3dclear()
	pt3dadd(86.41, 19.89, -44.3, 0.58)
	pt3dadd(88.04, 24.2, -43.3, 0.58)
	pt3dadd(89.79, 26.76, -42.8, 0.58)
	pt3dadd(90.08, 29.01, -42.4, 0.58)
	pt3dadd(91.83, 29.65, -41.8, 0.58)
	pt3dadd(94.46, 31.57, -41.73, 0.58)
	pt3dadd(95.34, 33.49, -44.65, 0.58)
	pt3dadd(97.67, 34.45, -43.02, 0.58)
	pt3dadd(100.3, 37.33, -39.85, 0.58)
	pt3dadd(102.63, 38.93, -39.6, 0.58)
	pt3dadd(103.51, 41.49, -39.08, 0.58)
	pt3dadd(104.38, 43.1, -38.13, 0.58)
	pt3dadd(106.72, 44.38, -34.72, 0.58)
	pt3dadd(109.05, 45.98, -33.35, 0.58)
	pt3dadd(111.09, 47.9, -33.4, 0.58)
	pt3dadd(110.51, 49.18, -31.3, 0.58)
	pt3dadd(111.97, 50.46, -29.22, 0.58)
	pt3dadd(113.43, 51.74, -28.85, 0.58)
	pt3dadd(116.64, 53.34, -28.75, 0.58)
	pt3dadd(119.56, 55.58, -28.05, 0.58)
	pt3dadd(122.18, 57.18, -25.13, 0.58)
	pt3dadd(123.64, 59.11, -23.65, 0.58)
	pt3dadd(125.39, 62.63, -23.37, 0.58)
	pt3dadd(125.1, 64.55, -23.02, 0.58)
	pt3dadd(125.39, 66.47, -30.6, 0.58)
	pt3dadd(126.27, 68.39, -29.75, 0.58)
	pt3dadd(127.44, 69.67, -32.52, 0.58)
	pt3dadd(129.3, 73.78, -30.87, 0.58)
	pt3dadd(130.46, 76.34, -31.35, 0.58)
	pt3dadd(130.17, 79.22, -31.98, 0.58)
	pt3dadd(132.51, 81.46, -32.13, 0.58)
	pt3dadd(135.13, 82.74, -32.6, 0.58)
	pt3dadd(135.13, 85.31, -32.7, 0.58)
	pt3dadd(137.18, 88.19, -33.35, 0.58)
	pt3dadd(138.34, 90.75, -33.5, 0.58)
	pt3dadd(137.47, 92.99, -29.2, 0.58)
	pt3dadd(137.76, 95.23, -27.38, 0.58)
	pt3dadd(139.8, 96.83, -24.48, 0.58)
	pt3dadd(140.39, 99.72, -22.22, 0.29)
	pt3dadd(138.93, 102.6, -20.07, 0.29)
	pt3dadd(140.09, 104.2, -19.55, 0.29)
	pt3dadd(142.14, 106.12, -19.55, 0.29)
	pt3dadd(141.85, 108.36, -19.4, 0.29)
	pt3dadd(143.01, 110.28, -19.17, 0.29)
	pt3dadd(145.06, 110.6, -16.32, 0.29)
	pt3dadd(146.51, 111.88, -14.95, 0.29)
	pt3dadd(146.81, 114.45, -14.88, 0.29)
	pt3dadd(148.27, 116.37, -13.63, 0.29)
  }
  dend[3] {pt3dclear()
	pt3dadd(86.41, 19.89, -44.3, 0.88)
	pt3dadd(89.04, 20.21, -41.38, 0.88)
	pt3dadd(92.54, 20.21, -41.08, 0.88)
  }
  dend[4] {pt3dclear()
	pt3dadd(92.54, 20.21, -41.08, 0.58)
	pt3dadd(94.87, 20.21, -34.08, 0.58)
	pt3dadd(97.21, 20.21, -30.92, 0.58)
	pt3dadd(98.37, 19.89, -27.17, 0.58)
	pt3dadd(98.37, 18.61, -24.9, 0.58)
	pt3dadd(100.71, 16.04, -23.1, 0.58)
	pt3dadd(101, 14.12, -21.42, 0.58)
	pt3dadd(102.46, 12.84, -20.05, 0.58)
	pt3dadd(105.09, 11.88, -17.38, 0.58)
	pt3dadd(106.55, 11.24, -15.07, 0.58)
	pt3dadd(107.71, 12.2, -12.42, 0.58)
	pt3dadd(107.13, 9.96, -7.8, 0.58)
	pt3dadd(108.88, 9.64, -6.2, 0.58)
	pt3dadd(110.63, 9.32, -2.57, 0.58)
	pt3dadd(112.09, 8.36, 1.67, 0.58)
	pt3dadd(111.21, 6.76, 5.45, 0.58)
	pt3dadd(110.92, 4.84, 7.3, 0.58)
	pt3dadd(112.97, 2.6, 7.65, 0.58)
	pt3dadd(114.72, 0.99, 7.77, 0.58)
	pt3dadd(114.13, -1.89, 8.55, 0.58)
	pt3dadd(114.72, -4.77, 8.6, 0.58)
	pt3dadd(115.3, -8.61, 8.93, 0.58)
	pt3dadd(115.88, -11.49, 9.55, 0.58)
	pt3dadd(116.76, -14.06, 9.95, 0.58)
	pt3dadd(119.68, -15.34, 10.3, 0.58)
	pt3dadd(121.43, -15.98, 11.93, 0.58)
	pt3dadd(123.18, -15.98, 12.38, 0.29)
	pt3dadd(123.18, -17.26, 15, 0.29)
	pt3dadd(124.64, -17.9, 15.15, 0.29)
  }
  dend[5] {pt3dclear()
	pt3dadd(92.54, 20.21, -41.08, 0.58)
	pt3dadd(95.16, 22.45, -43.33, 0.58)
	pt3dadd(99.83, 23.41, -43.45, 0.58)
	pt3dadd(102.46, 22.77, -44.07, 0.58)
	pt3dadd(105.96, 21.81, -43.45, 0.58)
	pt3dadd(110.34, 20.85, -46.45, 0.58)
	pt3dadd(113.55, 19.25, -46.97, 0.58)
	pt3dadd(115.59, 17.01, -48.7, 0.58)
	pt3dadd(118.8, 17.33, -49.67, 0.58)
	pt3dadd(122.3, 16.36, -51.85, 0.58)
	pt3dadd(123.47, 14.12, -52.08, 0.58)
	pt3dadd(124.64, 11.56, -52.47, 0.58)
	pt3dadd(128.43, 10.28, -53.45, 0.58)
	pt3dadd(131.35, 9, -53.45, 0.58)
	pt3dadd(135.73, 6.76, -54.6, 0.58)
	pt3dadd(139.23, 6.12, -56.28, 0.58)
	pt3dadd(141.56, 3.88, -57.35, 0.58)
	pt3dadd(145.06, 2.6, -57.57, 0.58)
	pt3dadd(149.15, 2.28, -58.13, 0.58)
	pt3dadd(150.32, 0.67, -53.35, 0.58)
	pt3dadd(154.4, -0.29, -52.35, 0.58)
	pt3dadd(157.9, -2.85, -51.65, 0.58)
	pt3dadd(161.11, -2.85, -52, 0.58)
	pt3dadd(164.32, -3.49, -50.3, 0.58)
	pt3dadd(167.83, -3.81, -46.65, 0.58)
	pt3dadd(169.58, -3.49, -46, 0.58)
	pt3dadd(172.5, -4.77, -46.28, 0.29)
	pt3dadd(175.41, -6.05, -49.35, 0.29)
	pt3dadd(179.5, -6.69, -50.2, 0.29)
	pt3dadd(184.46, -7.01, -51, 0.29)
	pt3dadd(185.92, -8.29, -51.12, 0.29)
	pt3dadd(189.13, -8.29, -51.12, 0.29)
	pt3dadd(191.76, -10.21, -51.32, 0.29)
	pt3dadd(194.97, -11.49, -53.25, 0.29)
	pt3dadd(197.01, -13.09, -54.38, 0.29)
	pt3dadd(199.63, -14.06, -54.43, 0.29)
	pt3dadd(203.14, -15.34, -54.58, 0.29)
	pt3dadd(205.18, -16.62, -54.83, 0.29)
	pt3dadd(206.35, -15.98, -51.4, 0.29)
	pt3dadd(208.97, -15.98, -50.85, 0.29)
	pt3dadd(210.43, -17.26, -50.9, 0.29)
	pt3dadd(213.06, -19.5, -51.6, 0.29)
	pt3dadd(215.98, -20.78, -56.17, 0.29)
	pt3dadd(218.89, -22.7, -56.32, 0.29)
	pt3dadd(220.35, -24.94, -54.25, 0.29)
	pt3dadd(220.64, -27.82, -53.88, 0.29)
	pt3dadd(219.77, -31.67, -54.1, 0.29)
	pt3dadd(220.35, -33.59, -52.82, 0.29)
	pt3dadd(221.23, -36.15, -52.08, 0.29)
	pt3dadd(221.23, -38.71, -50.25, 0.29)
	pt3dadd(220.94, -40.63, -49.67, 0.29)
	pt3dadd(219.77, -42.87, -48.2, 0.29)
	pt3dadd(222.98, -44.16, -46.5, 0.29)
	pt3dadd(224.73, -46.4, -46.3, 0.29)
	pt3dadd(226.19, -47.68, -45.13, 0.29)
	pt3dadd(227.36, -49.6, -43.95, 0.29)
  }
  dend[6] {pt3dclear()
	pt3dadd(74.67, 18.98, -44.58, 0.58)
	pt3dadd(76.77, 18.7, -48.58, 0.58)
	pt3dadd(78.81, 19.98, -52.4, 0.58)
	pt3dadd(80.86, 20.94, -53.27, 0.58)
	pt3dadd(84.07, 20.94, -54.38, 0.58)
	pt3dadd(88.15, 23.19, -52.1, 0.58)
	pt3dadd(91.65, 24.47, -54.45, 0.58)
	pt3dadd(93.11, 26.07, -54.45, 0.29)
	pt3dadd(96.91, 26.71, -54.25, 0.29)
	pt3dadd(101.57, 27.35, -54.25, 0.29)
	pt3dadd(105.66, 27.99, -51.88, 0.29)
	pt3dadd(109.16, 27.67, -51.65, 0.29)
	pt3dadd(112.66, 27.03, -49.7, 0.58)
  }
}
proc shape3d_2() {
  dend[6] {	pt3dadd(114.41, 26.71, -49.7, 0.58)
	pt3dadd(116.46, 28.31, -49.47, 0.58)
	pt3dadd(119.96, 28.31, -49, 0.58)
	pt3dadd(123.75, 28.95, -48.78, 0.58)
	pt3dadd(127.55, 28.63, -47.33, 0.58)
	pt3dadd(130.76, 27.67, -47.33, 0.58)
	pt3dadd(133.38, 27.99, -49.07, 0.58)
	pt3dadd(136.88, 28.95, -48.88, 0.58)
	pt3dadd(140.09, 28.95, -48.5, 0.58)
	pt3dadd(142.72, 27.99, -48.15, 0.58)
	pt3dadd(146.22, 28.63, -47.9, 0.58)
	pt3dadd(148.85, 29.91, -47.02, 0.29)
	pt3dadd(150.02, 31.51, -45.8, 0.29)
	pt3dadd(152.93, 32.79, -43.92, 0.29)
	pt3dadd(154.1, 33.43, -40.92, 0.29)
	pt3dadd(154.98, 34.71, -39.72, 0.29)
	pt3dadd(155.85, 36.31, -37.17, 0.29)
	pt3dadd(156.44, 36.95, -35, 0.29)
	pt3dadd(158.77, 37.91, -32.83, 0.29)
	pt3dadd(161.1, 39.52, -32.38, 0.29)
	pt3dadd(163.36, 40.7, -31.92, 0.29)
	pt3dadd(163.95, 43.58, -31.15, 0.29)
	pt3dadd(164.82, 44.86, -29.7, 0.29)
	pt3dadd(166.28, 46.14, -29.58, 0.29)
	pt3dadd(168.61, 47.74, -27.65, 0.29)
	pt3dadd(169.49, 49.34, -26.85, 0.29)
	pt3dadd(170.37, 50.94, -24.13, 0.29)
	pt3dadd(173.58, 51.9, -24.05, 0.29)
	pt3dadd(175.03, 53.83, -24.05, 0.29)
  }
  dend[7] {pt3dclear()
	pt3dstyle(1, 45.9327, 18.3566, -50.25)
	pt3dadd(54.86, 18.7, -54.25, 0.29)
	pt3dadd(55.74, 18.06, -54.25, 1.46)
	pt3dadd(57.49, 18.7, -58.78, 1.17)
	pt3dadd(60.7, 18.06, -62.77, 1.17)
	pt3dadd(63.03, 18.38, -64.75, 1.17)
	pt3dadd(65.95, 19.02, -68.07, 1.17)
	pt3dadd(68.87, 18.7, -68.97, 1.17)
	pt3dadd(71.49, 18.06, -70, 1.17)
	pt3dadd(73.83, 18.06, -70.85, 1.17)
  }
  dend[8] {pt3dclear()
	pt3dadd(73.83, 18.06, -70.85, 0.58)
	pt3dadd(75.26, 16.3, -72.95, 0.58)
	pt3dadd(76.72, 15.66, -79.63, 0.58)
	pt3dadd(77.89, 14.06, -82.52, 0.58)
	pt3dadd(78.47, 11.82, -84.43, 0.58)
  }
  dend[9] {pt3dclear()
	pt3dadd(78.47, 11.82, -84.43, 0.29)
	pt3dadd(80.22, 11.18, -86.7, 0.29)
	pt3dadd(81.68, 9.26, -87.28, 0.29)
	pt3dadd(83.43, 8.94, -91.7, 0.29)
	pt3dadd(85.48, 8.3, -97.05, 0.29)
  }
  dend[10] {pt3dclear()
	pt3dadd(78.47, 11.82, -84.43, 0.58)
	pt3dadd(78.18, 9.58, -84.43, 0.58)
	pt3dadd(79.06, 7.34, -86.62, 0.58)
	pt3dadd(79.35, 5.1, -87.65, 0.58)
	pt3dadd(79.06, 2.21, -87.65, 0.58)
	pt3dadd(79.06, -0.99, -88.2, 0.29)
	pt3dadd(78.47, -4.83, -88.7, 0.29)
	pt3dadd(79.06, -7.07, -89.35, 0.29)
	pt3dadd(77.6, -8.67, -89.78, 0.29)
	pt3dadd(77.3, -11.56, -91.95, 0.29)
	pt3dadd(77.01, -15.4, -92.8, 0.29)
	pt3dadd(77.6, -18.6, -92.9, 0.29)
	pt3dadd(76.43, -21.8, -94.95, 0.29)
	pt3dadd(77.01, -24.68, -96.6, 0.29)
	pt3dadd(77.3, -27.89, -98.1, 0.29)
	pt3dadd(78.76, -29.81, -100.1, 0.29)
	pt3dadd(78.18, -31.73, -103.4, 0.29)
	pt3dadd(79.64, -35.89, -106.57, 0.29)
	pt3dadd(79.35, -39.09, -108.2, 0.29)
	pt3dadd(80.51, -42.62, -110.52, 0.29)
	pt3dadd(82.56, -45.82, -114.55, 0.29)
  }
  dend[11] {pt3dclear()
	pt3dadd(73.83, 18.06, -70.85, 0.88)
	pt3dadd(77.62, 18.06, -66.9, 0.88)
	pt3dadd(79.96, 18.7, -67.85, 0.88)
  }
  dend[12] {pt3dclear()
	pt3dadd(79.96, 18.7, -67.85, 0.88)
	pt3dadd(81.42, 17.1, -67.85, 0.88)
	pt3dadd(83.75, 15.5, -68.13, 0.88)
	pt3dadd(86.67, 15.18, -68.5, 0.88)
	pt3dadd(88.13, 14.54, -68.65, 0.88)
	pt3dadd(90.17, 12.62, -69.05, 0.88)
	pt3dadd(93.09, 11.98, -72.1, 0.88)
	pt3dadd(95.13, 10.05, -73.4, 0.88)
	pt3dadd(96.3, 7.49, -74.7, 0.88)
	pt3dadd(97.76, 5.57, -75.45, 0.88)
	pt3dadd(99.8, 4.29, -76.17, 0.88)
  }
  dend[13] {pt3dclear()
	pt3dadd(99.8, 4.29, -76.17, 0.58)
	pt3dadd(102.3, 2.9, -76.17, 0.58)
	pt3dadd(104.64, 3.22, -79.47, 0.58)
	pt3dadd(107.85, 2.26, -79.47, 0.29)
	pt3dadd(109.31, 1.3, -81.75, 0.29)
	pt3dadd(111.06, 1.62, -83.8, 0.29)
	pt3dadd(113.1, 0.34, -81.53, 0.29)
	pt3dadd(114.56, -0.94, -83.47, 0.29)
	pt3dadd(116.6, -0.94, -83.97, 0.29)
	pt3dadd(118.35, -1.91, -85.7, 0.29)
	pt3dadd(120.4, -3.19, -88.75, 0.29)
	pt3dadd(122.73, -4.47, -90.65, 0.29)
	pt3dadd(125.06, -5.43, -92.5, 0.29)
	pt3dadd(126.82, -6.39, -93.27, 0.29)
	pt3dadd(129.73, -8.95, -94.43, 0.29)
	pt3dadd(131.78, -10.87, -94.63, 0.29)
	pt3dadd(133.24, -13.43, -94.95, 0.29)
	pt3dadd(134.99, -15.67, -96.4, 0.29)
	pt3dadd(137.9, -17.92, -96.93, 0.29)
	pt3dadd(140.82, -20.48, -98.95, 0.29)
	pt3dadd(143.74, -22.4, -100.47, 0.29)
	pt3dadd(147.83, -22.72, -101.82, 0.29)
	pt3dadd(151.62, -24, -101.93, 0.29)
	pt3dadd(155.41, -24, -102.63, 0.29)
	pt3dadd(158.04, -25.6, -100.92, 0.29)
	pt3dadd(161.25, -27.52, -101.2, 0.29)
	pt3dadd(164.17, -29.44, -97.13, 0.29)
	pt3dadd(166.79, -30.72, -96.7, 0.29)
	pt3dadd(169.71, -31.69, -94.97, 0.29)
	pt3dadd(173.21, -33.29, -94.12, 0.29)
	pt3dadd(175.26, -34.57, -94.05, 0.29)
	pt3dadd(175.84, -35.85, -94.78, 0.29)
	pt3dadd(176.72, -36.49, -94.25, 0.29)
	pt3dadd(179.05, -36.81, -94, 0.29)
	pt3dadd(181.09, -38.73, -93.13, 0.29)
	pt3dadd(183.14, -41.29, -92.92, 0.29)
	pt3dadd(184.3, -42.25, -97.52, 0.29)
	pt3dadd(185.47, -43.85, -104.85, 0.29)
	pt3dadd(187.81, -45.45, -107.17, 0.29)
	pt3dadd(190.14, -47.38, -109.88, 0.29)
	pt3dadd(191.31, -48.98, -115.25, 0.29)
	pt3dadd(192.77, -50.58, -118.2, 0.29)
	pt3dadd(195.1, -51.54, -122.38, 0.29)
  }
  dend[14] {pt3dclear()
	pt3dadd(99.8, 4.29, -76.17, 0.58)
	pt3dadd(101.55, 2.05, -76.17, 0.58)
	pt3dadd(103.01, -0.19, -76.72, 0.58)
	pt3dadd(104.76, -2.11, -73.47, 0.58)
	pt3dadd(105.35, -4.68, -73.15, 0.58)
	pt3dadd(107.97, -7.24, -72.9, 0.58)
	pt3dadd(109.43, -8.84, -71.3, 0.58)
	pt3dadd(111.77, -12.36, -68.82, 0.58)
	pt3dadd(112.93, -14.6, -66, 0.58)
	pt3dadd(113.81, -16.84, -64.32, 0.58)
	pt3dadd(114.98, -19.73, -62.95, 0.58)
	pt3dadd(117.89, -21.97, -62.42, 0.58)
	pt3dadd(120.81, -23.89, -65.92, 0.58)
	pt3dadd(123.44, -25.17, -66.03, 0.58)
	pt3dadd(124.77, -27.2, -67.6, 0.58)
	pt3dadd(127.11, -29.76, -67.82, 0.58)
	pt3dadd(130.03, -31.36, -69.2, 0.58)
	pt3dadd(131.78, -32.33, -66.8, 0.58)
	pt3dadd(134.4, -32.33, -64.02, 0.58)
	pt3dadd(136.74, -32.97, -63, 0.58)
	pt3dadd(137.9, -34.57, -62.65, 0.58)
	pt3dadd(139.07, -35.85, -62.33, 0.58)
	pt3dadd(141.41, -37.45, -61.9, 0.58)
	pt3dadd(143.74, -39.37, -61.7, 0.58)
	pt3dadd(146.66, -41.93, -61.42, 0.58)
	pt3dadd(149.87, -43.85, -65.45, 0.58)
	pt3dadd(152.2, -45.13, -64.22, 0.58)
	pt3dadd(153.95, -46.41, -62.77, 0.58)
	pt3dadd(155.71, -47.38, -61.28, 0.58)
	pt3dadd(158.04, -48.66, -58.9, 0.29)
	pt3dadd(161.54, -49.62, -57.17, 0.29)
	pt3dadd(162.71, -50.58, -55.05, 0.29)
	pt3dadd(162.71, -52.18, -53.8, 0.29)
	pt3dadd(163, -54.42, -52.13, 0.29)
	pt3dadd(162.71, -55.38, -50.83, 0.29)
	pt3dadd(160.96, -56.34, -49.25, 0.29)
	pt3dadd(160.96, -57.94, -48.72, 0.29)
	pt3dadd(161.54, -59.22, -47.42, 0.29)
	pt3dadd(160.67, -59.86, -46.25, 0.29)
	pt3dadd(161.25, -61.79, -44.78, 0.29)
	pt3dadd(162.42, -62.75, -42.8, 0.29)
	pt3dadd(163.58, -64.03, -40.92, 0.29)
	pt3dadd(163.58, -65.95, -40.13, 0.29)
	pt3dadd(162.42, -67.23, -38.47, 0.29)
	pt3dadd(163, -68.51, -37.6, 0.29)
	pt3dadd(163.88, -69.79, -36.58, 0.29)
  }
  dend[15] {pt3dclear()
	pt3dadd(79.96, 18.7, -67.85, 0.58)
	pt3dadd(83.17, 20.3, -67.85, 0.58)
	pt3dadd(83.75, 21.9, -70.97, 0.58)
	pt3dadd(84.33, 23.18, -74.55, 0.58)
	pt3dadd(86.38, 24.78, -73.38, 0.58)
	pt3dadd(89.3, 27.35, -78.32, 0.58)
	pt3dadd(91.63, 29.59, -79.82, 0.29)
	pt3dadd(92.8, 32.15, -80.7, 0.29)
	pt3dadd(94.55, 33.43, -84.03, 0.29)
	pt3dadd(97.76, 34.71, -84.2, 0.29)
	pt3dadd(100.38, 36.31, -86.15, 0.29)
	pt3dadd(103.01, 38.23, -88.65, 0.29)
	pt3dadd(104.76, 39.51, -89.97, 0.29)
  }
  dend[16] {pt3dclear()
	pt3dstyle(1, 45.9327, 18.3566, -50.25)
	pt3dadd(56.26, 15.85, -50.25, 1.46)
	pt3dadd(58.3, 15.21, -47.53, 1.46)
	pt3dadd(61.22, 14.25, -44.35, 1.46)
	pt3dadd(63.84, 12.97, -43.82, 1.46)
  }
  dend[17] {pt3dclear()
	pt3dadd(63.84, 12.97, -43.82, 1.17)
	pt3dadd(66.06, 11.31, -42.98, 1.17)
	pt3dadd(68.4, 10.67, -43.22, 1.17)
	pt3dadd(69.56, 10.99, -41.93, 1.17)
  }
  dend[18] {pt3dclear()
	pt3dadd(69.56, 10.99, -41.93, 1.17)
	pt3dadd(71.52, 10.35, -34.17, 1.17)
	pt3dadd(71.81, 9.39, -28.47, 0.88)
	pt3dadd(69.48, 9.39, -27.05, 0.88)
	pt3dadd(68.02, 8.75, -24.85, 0.88)
  }
}
proc shape3d_3() {
  dend[18] {	pt3dadd(66.85, 8.11, -23.02, 0.88)
	pt3dadd(66.27, 9.07, -21.38, 0.88)
	pt3dadd(65.98, 7.79, -19.15, 0.88)
	pt3dadd(66.85, 7.47, -15.8, 0.88)
	pt3dadd(65.68, 8.11, -15.12, 0.88)
	pt3dadd(64.22, 7.47, -13.8, 0.88)
	pt3dadd(63.64, 5.87, -7.25, 0.88)
  }
  dend[19] {pt3dclear()
	pt3dadd(63.64, 5.87, -7.25, 0.58)
	pt3dadd(60.72, 7.47, -7.25, 0.58)
	pt3dadd(58.97, 8.43, -5.27, 0.58)
	pt3dadd(56.93, 9.07, -3.92, 0.58)
	pt3dadd(56.64, 10.67, -2.13, 0.58)
	pt3dadd(55.18, 10.35, 0.22, 0.58)
	pt3dadd(54.3, 11.63, 1.05, 0.58)
	pt3dadd(53.72, 13.23, 2.7, 0.58)
	pt3dadd(54.89, 14.19, 3.47, 0.58)
	pt3dadd(54.01, 14.51, 4.65, 0.58)
	pt3dadd(52.84, 15.79, 6.35, 0.58)
	pt3dadd(51.38, 15.15, 7.25, 0.58)
	pt3dadd(50.22, 13.87, 7.45, 0.58)
	pt3dadd(48.17, 13.55, 7.63, 0.58)
  }
  dend[20] {pt3dclear()
	pt3dadd(63.64, 5.87, -7.25, 0.58)
	pt3dadd(64.81, 4.59, -7.45, 0.58)
  }
  dend[21] {pt3dclear()
	pt3dadd(64.81, 4.59, -7.45, 0.58)
	pt3dadd(64.52, 2.99, -7.45, 0.58)
	pt3dadd(66.56, 2.34, -6.47, 0.29)
	pt3dadd(67.14, 1.06, -5.63, 0.29)
	pt3dadd(67.73, 0.42, -0.63, 0.29)
	pt3dadd(66.56, -0.22, -0.4, 0.29)
	pt3dadd(66.85, -2.46, 0.85, 0.29)
	pt3dadd(68.02, -3.74, 2, 0.29)
	pt3dadd(68.89, -2.46, 3.9, 0.29)
	pt3dadd(70.64, -2.78, 5.95, 0.29)
	pt3dadd(70.35, -5.02, 6.73, 0.29)
  }
  dend[22] {pt3dclear()
	pt3dadd(64.81, 4.59, -7.45, 0.58)
	pt3dadd(67.14, 3.95, -7.45, 0.58)
	pt3dadd(67.73, 4.59, -6.85, 0.58)
	pt3dadd(68.02, 6.51, -6.78, 0.29)
	pt3dadd(70.35, 5.87, -5.72, 0.29)
	pt3dadd(72.98, 6.83, -4.82, 0.29)
	pt3dadd(74.73, 8.11, -4.27, 0.29)
	pt3dadd(76.77, 8.43, -3.32, 0.29)
	pt3dadd(78.52, 9.07, -2.1, 0.29)
	pt3dadd(81.44, 8.75, -1.13, 0.29)
	pt3dadd(84.65, 8.75, -0.37, 0.29)
	pt3dadd(86.11, 9.39, 1.05, 0.29)
	pt3dadd(85.53, 10.35, 3.57, 0.29)
	pt3dadd(86.11, 11.63, 6.13, 0.29)
	pt3dadd(86.69, 13.55, 7.25, 0.29)
	pt3dadd(89.61, 14.51, 8.4, 0.29)
	pt3dadd(92.82, 16.43, 9.27, 0.29)
	pt3dadd(96.03, 18.04, 9.9, 0.29)
  }
  dend[23] {pt3dclear()
	pt3dadd(96.03, 18.04, 9.9, 0.29)
	pt3dadd(95.74, 19.64, 9.9, 0.29)
	pt3dadd(96.32, 20.92, 10.8, 0.29)
	pt3dadd(96.32, 22.2, 11.65, 0.29)
  }
  dend[24] {pt3dclear()
	pt3dadd(96.03, 18.04, 9.9, 0.29)
	pt3dadd(97.2, 16.11, 6.15, 0.29)
	pt3dadd(98.95, 14.83, 6.85, 0.29)
	pt3dadd(100.7, 13.87, 5.8, 0.29)
	pt3dadd(101.58, 12.59, 3.05, 0.29)
	pt3dadd(102.74, 10.99, 1.9, 0.29)
  }
  dend[25] {pt3dclear()
	pt3dadd(69.56, 10.99, -41.93, 1.17)
	pt3dadd(71.02, 9.39, -41.17, 1.17)
	pt3dadd(71.32, 7.79, -37.83, 1.17)
	pt3dadd(69.86, 5.55, -37.2, 1.17)
	pt3dadd(69.86, 2.99, -36.33, 1.17)
	pt3dadd(71.9, 0.74, -35.88, 1.17)
	pt3dadd(71.9, -1.5, -32.08, 1.17)
	pt3dadd(73.07, -4.06, -31.15, 1.17)
	pt3dadd(74.23, -5.98, -30.1, 1.17)
	pt3dadd(74.23, -8.22, -29.35, 1.17)
	pt3dadd(74.23, -9.5, -29.1, 1.17)
  }
  dend[26] {pt3dclear()
	pt3dadd(74.23, -9.5, -29.1, 0.88)
	pt3dadd(71.81, -12.71, -29.58, 0.88)
	pt3dadd(70.94, -15.59, -26.55, 0.88)
	pt3dadd(70.06, -17.19, -25.97, 0.88)
	pt3dadd(69.77, -19.75, -25.4, 0.88)
	pt3dadd(68.6, -21.35, -24.15, 0.88)
	pt3dadd(65.1, -21.03, -22.73, 0.88)
	pt3dadd(61.89, -22.31, -21.02, 0.88)
	pt3dadd(59.85, -24.55, -19.9, 0.88)
	pt3dadd(58.68, -26.47, -19.23, 0.88)
	pt3dadd(58.1, -28.4, -17.63, 0.88)
	pt3dadd(58.39, -29.68, -17.15, 0.88)
  }
  dend[27] {pt3dclear()
	pt3dadd(58.39, -29.68, -17.15, 0.88)
	pt3dadd(55.18, -31.98, -16.92, 0.88)
	pt3dadd(54.3, -33.26, -14.65, 0.88)
	pt3dadd(54.01, -34.54, -12.05, 0.88)
	pt3dadd(51.97, -36.14, -10.57, 0.58)
	pt3dadd(50.8, -37.75, -10.25, 0.58)
	pt3dadd(49.93, -39.03, -9.98, 0.58)
	pt3dadd(47.01, -41.27, -9.52, 0.58)
	pt3dadd(44.96, -44.15, -9.02, 0.58)
	pt3dadd(43.51, -46.07, -8.25, 0.58)
	pt3dadd(41.46, -46.71, -7.32, 0.58)
	pt3dadd(39.13, -47.35, -5.97, 0.58)
	pt3dadd(38.54, -48.95, -5.42, 0.58)
	pt3dadd(36.79, -49.59, -3.85, 0.58)
	pt3dadd(34.75, -49.91, -2.95, 0.58)
	pt3dadd(33.29, -50.87, -1.05, 0.58)
	pt3dadd(33.29, -51.84, -0.5, 0.58)
	pt3dadd(34.17, -52.8, 0.47, 0.58)
	pt3dadd(35.04, -53.76, 1.88, 0.58)
	pt3dadd(35.92, -56.32, 3.32, 0.58)
	pt3dadd(36.5, -58.56, 4.8, 0.58)
	pt3dadd(37.67, -60.16, 5.95, 0.58)
	pt3dadd(38.25, -62.72, 7.3, 0.58)
	pt3dadd(37.67, -64.32, 7.87, 0.58)
	pt3dadd(36.79, -63.36, 8.25, 0.58)
	pt3dadd(37.67, -61.76, 8.6, 0.58)
	pt3dadd(39.13, -62.08, 10.07, 0.58)
	pt3dadd(40.59, -62.08, 10.77, 0.58)
	pt3dadd(41.46, -60.16, 11.42, 0.58)
	pt3dadd(41.17, -58.56, 12.2, 0.29)
  }
  dend[28] {pt3dclear()
	pt3dadd(58.39, -29.68, -17.15, 0.88)
	pt3dadd(59.56, -32.62, -17.25, 0.88)
	pt3dadd(60.43, -35.18, -16.52, 0.88)
	pt3dadd(59.26, -38.07, -16.35, 0.88)
	pt3dadd(60.14, -40.63, -20.57, 0.88)
	pt3dadd(59.56, -42.55, -24.67, 0.88)
	pt3dadd(58.68, -44.15, -27.1, 0.88)
	pt3dadd(58.97, -47.67, -27.38, 0.88)
	pt3dadd(58.1, -49.27, -24.32, 0.88)
	pt3dadd(57.51, -51.19, -21.72, 0.88)
	pt3dadd(58.68, -53.76, -20.3, 0.88)
	pt3dadd(58.97, -56.32, -19.55, 0.88)
	pt3dadd(60.14, -59.84, -23.15, 0.88)
	pt3dadd(61.01, -61.44, -25.5, 0.88)
	pt3dadd(62.18, -63.68, -27.38, 0.88)
	pt3dadd(62.18, -67.53, -27.8, 0.88)
	pt3dadd(60.72, -70.09, -27.8, 0.88)
	pt3dadd(61.01, -72.97, -28, 0.88)
	pt3dadd(59.56, -74.89, -25.52, 0.88)
	pt3dadd(57.51, -77.77, -24.7, 0.58)
	pt3dadd(57.8, -81.62, -24.38, 0.58)
	pt3dadd(58.97, -84.5, -20.45, 0.58)
	pt3dadd(59.56, -86.1, -17.98, 0.58)
	pt3dadd(58.1, -88.02, -15.68, 0.58)
	pt3dadd(58.39, -91.22, -14.8, 0.58)
	pt3dadd(55.47, -93.46, -14.15, 0.58)
	pt3dadd(55.76, -96.99, -12.67, 0.58)
	pt3dadd(56.35, -99.23, -11.32, 0.58)
	pt3dadd(56.05, -100.83, -15.1, 0.58)
	pt3dadd(56.05, -101.79, -18.6, 0.58)
	pt3dadd(55.47, -104.03, -20.77, 0.58)
	pt3dadd(55.18, -105.95, -20.95, 0.58)
	pt3dadd(55.18, -108.83, -21.85, 0.58)
	pt3dadd(54.01, -110.75, -23.42, 0.58)
	pt3dadd(51.68, -111.46, -23.42, 0.29)
	pt3dadd(50.22, -114.66, -23.45, 0.29)
	pt3dadd(50.51, -116.9, -23.15, 0.29)
	pt3dadd(50.22, -120.1, -21.25, 0.29)
	pt3dadd(49.93, -123.63, -21.15, 0.29)
	pt3dadd(49.34, -126.19, -21.1, 0.29)
	pt3dadd(49.34, -128.75, -20.97, 0.29)
	pt3dadd(49.63, -132.27, -20.83, 0.29)
	pt3dadd(50.51, -133.55, -20.65, 0.29)
	pt3dadd(50.8, -135.79, -20.45, 0.29)
	pt3dadd(49.63, -139.32, -20.23, 0.29)
	pt3dadd(50.22, -142.2, -20.05, 0.29)
	pt3dadd(48.76, -143.8, -19.77, 0.29)
	pt3dadd(48.76, -145.72, -19.07, 0.29)
	pt3dadd(49.63, -147.96, -18.77, 0.29)
	pt3dadd(48.76, -149.88, -23.9, 0.29)
	pt3dadd(48.47, -151.81, -25.4, 0.29)
	pt3dadd(48.76, -154.69, -26.2, 0.29)
	pt3dadd(49.05, -157.25, -26.88, 0.29)
	pt3dadd(49.93, -159.49, -27.47, 0.29)
	pt3dadd(49.93, -162.05, -26.88, 0.29)
	pt3dadd(50.8, -163.33, -26.42, 0.29)
  }
  dend[29] {pt3dclear()
	pt3dadd(74.23, -9.5, -29.1, 0.88)
	pt3dadd(75.98, -11.42, -29.1, 0.88)
	pt3dadd(77.74, -13.03, -28.17, 0.88)
	pt3dadd(78.03, -15.59, -28.47, 0.88)
	pt3dadd(78.9, -19.11, -28.25, 0.88)
	pt3dadd(81.24, -21.35, -29.72, 0.88)
	pt3dadd(82.7, -22.95, -31.2, 0.88)
	pt3dadd(83.57, -25.51, -33.05, 0.88)
	pt3dadd(84.45, -26.15, -34.6, 0.88)
  }
  dend[30] {pt3dclear()
	pt3dadd(84.45, -26.15, -34.6, 0.58)
	pt3dadd(83.19, -29.04, -35.97, 0.58)
	pt3dadd(84.07, -30.64, -36.15, 0.58)
	pt3dadd(85.82, -32.56, -33.03, 0.58)
	pt3dadd(87.28, -34.16, -34.45, 0.58)
	pt3dadd(88.15, -36.08, -36.82, 0.58)
	pt3dadd(89.03, -38.32, -38.22, 0.58)
	pt3dadd(90.78, -40.24, -40.8, 0.58)
	pt3dadd(92.82, -40.88, -41.6, 0.88)
	pt3dadd(92.82, -41.2, -41.6, 0.88)
  }
  dend[31] {pt3dclear()
	pt3dadd(92.82, -41.2, -41.6, 0.29)
	pt3dadd(94.57, -41.2, -41.6, 0.29)
	pt3dadd(96.91, -42.81, -43.55, 0.29)
	pt3dadd(98.95, -43.77, -46, 0.29)
	pt3dadd(100.41, -45.37, -48.42, 0.29)
	pt3dadd(101.58, -47.29, -50.13, 0.29)
	pt3dadd(103.04, -49.53, -52.25, 0.29)
	pt3dadd(104.79, -50.49, -53.45, 0.29)
	pt3dadd(107.41, -51.45, -53.72, 0.29)
	pt3dadd(108.87, -53.37, -51.6, 0.29)
  }
}
proc shape3d_4() {
  dend[31] {	pt3dadd(110.91, -56.25, -52.13, 0.29)
	pt3dadd(113.83, -58.18, -52.6, 0.29)
	pt3dadd(116.75, -59.14, -53.65, 0.29)
	pt3dadd(119.09, -60.1, -54.83, 0.29)
	pt3dadd(120.54, -62.02, -55.27, 0.29)
	pt3dadd(122.59, -64.9, -57.2, 0.29)
	pt3dadd(124.34, -66.5, -59.02, 0.29)
	pt3dadd(125.51, -67.46, -62.35, 0.29)
	pt3dadd(125.8, -68.42, -65.1, 0.29)
	pt3dadd(123.46, -69.38, -65.55, 0.29)
	pt3dadd(121.71, -70.98, -66.32, 0.29)
	pt3dadd(119.96, -72.91, -68.05, 0.29)
	pt3dadd(118.21, -76.11, -69.5, 0.29)
	pt3dadd(117.63, -78.99, -68.28, 0.29)
	pt3dadd(117.63, -81.23, -69.05, 0.29)
	pt3dadd(116.46, -82.83, -70.45, 0.29)
	pt3dadd(116.46, -85.39, -71.97, 0.29)
	pt3dadd(116.46, -87.31, -75.8, 0.29)
	pt3dadd(116.75, -89.24, -77.95, 0.29)
	pt3dadd(117.92, -87.06, -77.13, 0.29)
	pt3dadd(118.79, -85.78, -81.85, 0.29)
  }
  dend[32] {pt3dclear()
	pt3dadd(92.82, -41.2, -41.6, 0.88)
	pt3dadd(96.03, -43.13, -39.52, 0.88)
	pt3dadd(96.32, -43.13, -39.52, 0.88)
	pt3dadd(98.95, -46.65, -39.05, 0.88)
	pt3dadd(101.87, -50.17, -38.8, 0.88)
	pt3dadd(101.87, -52.41, -38.25, 0.88)
	pt3dadd(102.74, -54.65, -37.67, 0.88)
	pt3dadd(103.04, -55.93, -34.8, 0.88)
	pt3dadd(104.49, -56.89, -30.17, 0.88)
	pt3dadd(105.66, -58.18, -29.82, 0.88)
	pt3dadd(106.25, -58.82, -27.95, 0.88)
	pt3dadd(107.41, -60.42, -26.67, 0.88)
	pt3dadd(108, -61.38, -24.58, 0.58)
	pt3dadd(108.87, -62.98, -24.17, 0.58)
	pt3dadd(109.75, -64.58, -23.75, 0.58)
	pt3dadd(110.33, -65.86, -19.52, 0.58)
	pt3dadd(110.91, -67.46, -17.67, 0.58)
	pt3dadd(110.62, -69.7, -17.38, 0.58)
	pt3dadd(111.79, -71.62, -16.73, 0.58)
	pt3dadd(113.25, -73.23, -15.9, 0.58)
	pt3dadd(114.42, -75.15, -15.4, 0.58)
	pt3dadd(115.88, -76.81, -14.43, 0.58)
	pt3dadd(119.09, -77.77, -13.72, 0.29)
	pt3dadd(121.13, -79.05, -13.45, 0.29)
	pt3dadd(121.71, -80.97, -13.1, 0.29)
	pt3dadd(123.46, -81.29, -12.35, 0.29)
	pt3dadd(125.21, -81.94, -12.2, 0.29)
	pt3dadd(124.63, -84.18, -12.07, 0.29)
	pt3dadd(125.8, -86.74, -11.73, 0.29)
	pt3dadd(126.96, -88.98, -11.35, 0.29)
	pt3dadd(129.01, -89.62, -10.8, 0.29)
	pt3dadd(130.17, -90.9, -9.27, 0.29)
	pt3dadd(131.93, -92.18, -8.42, 0.29)
	pt3dadd(132.8, -93.78, -6.4, 0.29)
	pt3dadd(134.84, -95.06, -2.9, 0.29)
	pt3dadd(137.47, -95.38, -1.58, 0.29)
	pt3dadd(139.51, -96.02, 1.05, 0.29)
  }
  dend[33] {pt3dclear()
	pt3dadd(84.45, -26.15, -34.6, 0.58)
	pt3dadd(87.37, -25.51, -29.38, 0.58)
	pt3dadd(89.99, -26.47, -28.85, 0.58)
	pt3dadd(91.74, -28.4, -28.75, 0.58)
	pt3dadd(94.08, -29.36, -28.15, 0.58)
	pt3dadd(96.7, -30, -26.5, 0.58)
	pt3dadd(97.58, -31.28, -26, 0.58)
	pt3dadd(99.91, -31.92, -25.47, 0.58)
	pt3dadd(102.25, -33.84, -23.6, 0.58)
	pt3dadd(105.17, -35.44, -23.23, 0.58)
	pt3dadd(107.5, -36.08, -21.63, 0.58)
	pt3dadd(108.08, -38, -20.73, 0.58)
	pt3dadd(111.29, -38.32, -19.73, 0.58)
	pt3dadd(112.17, -38.32, -20.47, 0.58)
	pt3dadd(111.88, -38.64, -18.5, 0.58)
	pt3dadd(111.88, -39.6, -17.95, 0.58)
	pt3dadd(112.46, -39.92, -14.85, 0.58)
	pt3dadd(113.34, -41.52, -12.88, 0.58)
	pt3dadd(114.8, -40.88, -10.92, 0.58)
	pt3dadd(116.17, -41.84, -8.27, 0.58)
	pt3dadd(119.38, -43.13, -6.73, 0.58)
	pt3dadd(122.59, -44.73, -6.22, 0.29)
	pt3dadd(124.63, -46.01, -4.75, 0.29)
	pt3dadd(126.38, -47.29, -3.32, 0.29)
	pt3dadd(127.26, -49.21, -3.1, 0.29)
	pt3dadd(128.13, -49.85, -2.95, 0.29)
	pt3dadd(129.3, -48.89, -2.95, 0.29)
	pt3dadd(131.93, -48.25, -2.45, 0.29)
	pt3dadd(134.84, -48.57, -1.32, 0.29)
	pt3dadd(137.18, -48.89, -1.05, 0.29)
	pt3dadd(138.93, -49.21, -0.65, 0.29)
  }
  dend[34] {pt3dclear()
	pt3dadd(63.84, 12.97, -43.82, 0.88)
	pt3dadd(65.6, 11.05, -43.82, 0.88)
	pt3dadd(68.51, 10.73, -45.95, 0.88)
	pt3dadd(71.14, 11.69, -47.02, 0.88)
	pt3dadd(72.31, 10.41, -46.03, 0.88)
	pt3dadd(74.06, 8.49, -49.02, 0.88)
	pt3dadd(74.93, 8.81, -51.88, 0.88)
  }
  dend[35] {pt3dclear()
	pt3dadd(74.93, 8.81, -51.88, 0.58)
	pt3dadd(76.68, 5.29, -55.5, 0.58)
	pt3dadd(79.02, 2.72, -55.85, 0.58)
	pt3dadd(80.77, -0.16, -57.77, 0.58)
	pt3dadd(81.06, -2.72, -59.1, 0.58)
	pt3dadd(82.23, -5.03, -60.72, 0.58)
	pt3dadd(83.4, -7.27, -63.22, 0.58)
	pt3dadd(83.98, -10.15, -64.57, 0.58)
	pt3dadd(84.86, -12.07, -64.8, 0.58)
	pt3dadd(84.27, -15.27, -65.88, 0.58)
	pt3dadd(84.56, -17.51, -66.38, 0.58)
	pt3dadd(83.69, -19.44, -66.82, 0.58)
	pt3dadd(84.27, -21.36, -67.38, 0.58)
	pt3dadd(85.73, -24.24, -68.97, 0.58)
	pt3dadd(86.31, -26.48, -70.38, 0.58)
	pt3dadd(87.48, -28.4, -71.52, 0.58)
	pt3dadd(87.19, -30, -72.88, 0.58)
	pt3dadd(86.31, -31.6, -73.15, 0.58)
	pt3dadd(86.31, -33.52, -74.7, 0.58)
	pt3dadd(87.48, -35.45, -76.38, 0.58)
	pt3dadd(89.52, -36.09, -78.4, 0.58)
	pt3dadd(89.52, -35.13, -80.02, 0.58)
	pt3dadd(88.36, -35.77, -81.77, 0.58)
	pt3dadd(88.94, -36.73, -84.3, 0.58)
	pt3dadd(87.77, -38.33, -84.9, 0.58)
	pt3dadd(88.07, -41.21, -85.28, 0.58)
	pt3dadd(88.65, -44.73, -84.48, 0.58)
	pt3dadd(89.52, -46.97, -84.38, 0.58)
	pt3dadd(90.11, -49.86, -84.9, 0.58)
	pt3dadd(89.82, -52.1, -85.7, 0.58)
	pt3dadd(90.98, -55.3, -88.47, 0.58)
	pt3dadd(93.03, -58.18, -90.1, 0.58)
	pt3dadd(93.9, -61.06, -91.13, 0.58)
	pt3dadd(94.78, -62.98, -93.32, 0.58)
	pt3dadd(96.82, -66.25, -94.38, 0.29)
	pt3dadd(97.4, -68.49, -95.75, 0.29)
	pt3dadd(100.03, -70.73, -98.07, 0.29)
	pt3dadd(101.2, -72.01, -100.13, 0.29)
	pt3dadd(102.66, -75.54, -103.38, 0.29)
	pt3dadd(104.41, -80.34, -104.7, 0.29)
	pt3dadd(107.03, -84.82, -105.7, 0.29)
	pt3dadd(108.78, -89.31, -108.63, 0.29)
	pt3dadd(108.49, -93.15, -111.38, 0.29)
	pt3dadd(108.78, -98.91, -111.6, 0.29)
	pt3dadd(108.78, -102.11, -113.42, 0.29)
	pt3dadd(108.78, -106.6, -115.4, 0.29)
	pt3dadd(109.95, -108.52, -117.7, 0.29)
	pt3dadd(107.03, -114.28, -118.15, 0.29)
  }
  dend[36] {pt3dclear()
	pt3dadd(74.93, 8.81, -51.88, 0.58)
	pt3dadd(76.98, 10.09, -53.8, 0.58)
	pt3dadd(79.89, 10.73, -54.97, 0.58)
	pt3dadd(80.77, 11.37, -56.65, 0.58)
	pt3dadd(82.23, 13.29, -57.75, 0.58)
	pt3dadd(83.69, 14.57, -58.3, 0.58)
	pt3dadd(84.86, 16.49, -59.17, 0.58)
	pt3dadd(86.02, 18.09, -60.92, 0.58)
	pt3dadd(88.07, 19.05, -61.32, 0.58)
	pt3dadd(89.52, 20.98, -61.95, 0.58)
	pt3dadd(91.28, 22.26, -62.77, 0.58)
	pt3dadd(93.32, 23.22, -64.8, 0.58)
	pt3dadd(96.82, 24.5, -66.52, 0.58)
	pt3dadd(98.28, 26.74, -68.07, 0.58)
	pt3dadd(100.03, 28.34, -69.27, 0.58)
	pt3dadd(102.07, 29.94, -69.57, 0.58)
	pt3dadd(104.11, 31.54, -70.67, 0.58)
	pt3dadd(105.28, 33.14, -71.63, 0.58)
	pt3dadd(107.62, 35.06, -72.77, 0.58)
	pt3dadd(109.08, 36.35, -73.6, 0.58)
  }
  dend[37] {pt3dclear()
	pt3dadd(109.08, 36.35, -73.6, 0.29)
	pt3dadd(110.53, 36.35, -72.3, 0.29)
	pt3dadd(113.16, 37.31, -73.15, 0.29)
	pt3dadd(115.2, 39.23, -74.13, 0.29)
	pt3dadd(118.12, 39.23, -74.13, 0.29)
	pt3dadd(120.16, 41.15, -74.42, 0.29)
	pt3dadd(121.62, 40.83, -75.18, 0.29)
	pt3dadd(123.08, 41.47, -77.4, 0.29)
	pt3dadd(126.29, 41.15, -79.6, 0.29)
	pt3dadd(129.21, 41.15, -80.7, 0.29)
	pt3dadd(131.84, 41.15, -82.2, 0.29)
	pt3dadd(135.05, 40.83, -84.85, 0.29)
	pt3dadd(138.84, 40.83, -86, 0.29)
	pt3dadd(142.93, 41.15, -85.68, 0.29)
	pt3dadd(147.01, 41.47, -86.27, 0.29)
	pt3dadd(150.51, 42.43, -86.67, 0.29)
	pt3dadd(155.18, 42.11, -89.55, 0.29)
	pt3dadd(160.73, 41.79, -90.25, 0.29)
	pt3dadd(166.56, 41.15, -81.67, 0.29)
	pt3dadd(170.07, 39.23, -81.53, 0.29)
	pt3dadd(171.52, 36.67, -80.68, 0.29)
	pt3dadd(170.65, 34.1, -79.1, 0.29)
  }
  dend[38] {pt3dclear()
	pt3dadd(109.08, 36.35, -73.6, 0.58)
	pt3dadd(109.95, 38.91, -74.15, 0.58)
	pt3dadd(112.29, 40.83, -75.13, 0.58)
	pt3dadd(113.16, 42.75, -77.38, 0.58)
	pt3dadd(114.33, 44.99, -78.85, 0.58)
	pt3dadd(114.91, 46.59, -82.28, 0.58)
	pt3dadd(117.83, 47.87, -83.1, 0.58)
	pt3dadd(120.46, 50.11, -85.45, 0.58)
	pt3dadd(123.08, 52.36, -87.38, 0.58)
	pt3dadd(126.29, 53.96, -88.38, 0.58)
	pt3dadd(129.5, 56.52, -89.25, 0.58)
	pt3dadd(131.55, 58.12, -89.85, 0.58)
	pt3dadd(133.3, 59.72, -89.38, 0.29)
	pt3dadd(136.21, 60.36, -91.65, 0.29)
  }
}
proc shape3d_5() {
  dend[38] {	pt3dadd(139.13, 62.28, -94.03, 0.29)
	pt3dadd(141.47, 64.52, -97.28, 0.29)
	pt3dadd(144.09, 65.81, -98.02, 0.29)
	pt3dadd(147.01, 65.81, -98.72, 0.29)
	pt3dadd(150.51, 68.05, -99.92, 0.29)
	pt3dadd(153.14, 69.01, -102.57, 0.29)
  }
  dend[39] {pt3dclear()
	pt3dstyle(1, 45.9327, 18.3566, -50.25)
	pt3dadd(42.05, 13.55, -47.88, 0.88)
	pt3dadd(42.05, 12.59, -44.7, 0.88)
	pt3dadd(42.63, 10.35, -42.8, 0.88)
	pt3dadd(43.8, 10.03, -38.6, 0.88)
	pt3dadd(45.26, 8.75, -35.33, 0.88)
	pt3dadd(46.13, 7.47, -31.7, 0.88)
	pt3dadd(47.3, 5.55, -33.1, 0.88)
	pt3dadd(48.17, 2.66, -31.25, 0.88)
	pt3dadd(48.47, 0.74, -28.33, 0.88)
	pt3dadd(47.88, -1.18, -27.5, 0.88)
	pt3dadd(49.93, -2.78, -26.67, 0.88)
	pt3dadd(49.05, -5.98, -25.4, 0.88)
	pt3dadd(49.93, -7.58, -23.92, 0.88)
	pt3dadd(50.51, -9.82, -21.98, 0.88)
	pt3dadd(51.68, -12.06, -19.97, 0.88)
	pt3dadd(52.84, -13.03, -18.55, 0.88)
	pt3dadd(54.89, -13.99, -17.9, 0.88)
	pt3dadd(54.3, -16.23, -17.45, 0.88)
	pt3dadd(56.05, -17.83, -15.52, 0.88)
	pt3dadd(56.93, -19.43, -13.57, 0.88)
	pt3dadd(57.8, -20.39, -9.77, 0.88)
	pt3dadd(57.8, -21.67, -6.4, 0.88)
	pt3dadd(56.93, -24.23, -7.7, 0.88)
	pt3dadd(56.05, -26.47, -10.17, 0.88)
	pt3dadd(55.47, -30.32, -10.43, 0.88)
	pt3dadd(56.35, -33.52, -8.63, 0.88)
	pt3dadd(57.22, -35.76, -5.9, 0.88)
	pt3dadd(56.35, -38.32, -3.55, 0.88)
	pt3dadd(54.59, -39.6, -2.85, 0.88)
	pt3dadd(52.26, -40.88, -2.57, 0.88)
	pt3dadd(51.38, -42.16, -1.15, 0.88)
	pt3dadd(50.8, -44.41, -0.57, 0.88)
  }
  dend[40] {pt3dclear()
	pt3dadd(50.8, -44.41, -0.57, 0.88)
	pt3dadd(51.38, -44.73, -10.1, 0.88)
	pt3dadd(50.51, -46.01, -12, 0.88)
	pt3dadd(49.05, -49.21, -12.45, 0.88)
	pt3dadd(47.88, -51.45, -12.57, 0.88)
	pt3dadd(47.88, -52.73, -11.55, 0.88)
	pt3dadd(47.3, -54.01, -9.2, 0.88)
	pt3dadd(48.17, -55.29, -7.77, 0.88)
	pt3dadd(49.63, -56.57, -6, 0.88)
	pt3dadd(49.34, -57.54, -2.6, 0.88)
	pt3dadd(48.17, -59.14, -0.75, 0.88)
	pt3dadd(46.13, -60.74, -0.43, 0.88)
	pt3dadd(44.38, -62.34, 0.77, 0.88)
	pt3dadd(43.51, -63.94, 1.38, 0.88)
	pt3dadd(42.63, -66.82, 2.2, 0.88)
	pt3dadd(42.63, -68.42, 3, 0.88)
	pt3dadd(41.75, -71.62, 3.5, 0.88)
	pt3dadd(42.92, -74.51, 3.88, 0.88)
	pt3dadd(43.8, -77.77, 4.9, 0.88)
	pt3dadd(44.67, -80.01, 5.35, 0.88)
	pt3dadd(44.67, -82.58, 3.57, 0.88)
	pt3dadd(45.55, -84.82, 2.13, 0.88)
	pt3dadd(47.59, -86.74, 2.35, 0.88)
	pt3dadd(47.88, -89.62, 3.78, 0.88)
	pt3dadd(49.05, -91.22, 6.7, 0.88)
	pt3dadd(48.17, -93.14, 7.47, 0.88)
	pt3dadd(49.34, -95.38, 7.8, 0.58)
	pt3dadd(48.76, -98.59, 8.5, 0.58)
	pt3dadd(49.34, -100.83, 9.5, 0.58)
	pt3dadd(49.34, -103.07, 9.85, 0.58)
	pt3dadd(51.09, -103.39, 10.02, 0.58)
	pt3dadd(52.55, -104.03, 10.28, 0.58)
	pt3dadd(53.14, -106.59, 10.68, 0.58)
  }
  dend[41] {pt3dclear()
	pt3dadd(50.8, -44.41, -0.57, 0.88)
	pt3dadd(52.55, -46.97, -3.08, 0.88)
	pt3dadd(53.43, -48.89, -0.1, 0.88)
	pt3dadd(54.89, -50.17, 1.6, 0.88)
	pt3dadd(56.05, -52.73, 2.35, 0.88)
	pt3dadd(56.64, -54.33, 3.88, 0.58)
	pt3dadd(57.22, -56.25, 5.48, 0.58)
	pt3dadd(56.64, -57.21, 6.05, 0.58)
	pt3dadd(55.76, -57.54, 6.05, 0.29)
	pt3dadd(54.01, -58.82, 6.4, 0.29)
	pt3dadd(52.55, -60.42, 4.35, 0.29)
	pt3dadd(51.38, -60.74, 2.35, 0.29)
	pt3dadd(50.51, -61.38, 1.27, 0.29)
	pt3dadd(48.76, -62.98, -0.05, 0.29)
	pt3dadd(46.42, -63.94, -0.1, 0.29)
	pt3dadd(44.67, -65.86, -2.42, 0.29)
  }
  dend[42] {pt3dclear()
	pt3dstyle(1, 45.9327, 18.3566, -50.25)
	pt3dadd(37.76, 12.99, -46.08, 0.58)
	pt3dadd(35.43, 12.35, -42.77, 1.75)
	pt3dadd(32.22, 11.39, -40.22, 1.75)
	pt3dadd(29.01, 10.43, -37.75, 1.75)
	pt3dadd(27.26, 8.5, -37.4, 1.75)
  }
  dend[43] {pt3dclear()
	pt3dadd(27.26, 8.5, -37.4, 1.17)
	pt3dadd(25.43, 9.95, -37.4, 1.17)
	pt3dadd(23.38, 10.27, -40.1, 1.17)
	pt3dadd(22.22, 10.92, -42.53, 0.88)
	pt3dadd(20.46, 12.52, -43.25, 1.17)
	pt3dadd(19.3, 14.44, -42.6, 1.17)
	pt3dadd(16.96, 15.08, -41.67, 1.17)
	pt3dadd(15.8, 17.32, -40.13, 1.17)
	pt3dadd(14.63, 19.24, -39.52, 1.17)
	pt3dadd(12.88, 20.2, -38.88, 1.17)
	pt3dadd(11.42, 21.16, -38.47, 1.17)
  }
  dend[44] {pt3dclear()
	pt3dadd(11.42, 21.16, -38.47, 0.58)
	pt3dadd(9.37, 23.01, -35.75, 0.58)
	pt3dadd(7.62, 23.01, -33.35, 0.58)
	pt3dadd(5.87, 23.33, -32.77, 0.58)
	pt3dadd(3.53, 24.29, -31.55, 0.58)
	pt3dadd(2.37, 25.57, -30.55, 0.58)
	pt3dadd(0.32, 26.85, -30.1, 0.58)
	pt3dadd(-0.84, 28.14, -29.45, 0.58)
	pt3dadd(-3.18, 29.42, -28.65, 0.58)
	pt3dadd(-4.35, 30.06, -27.85, 0.58)
	pt3dadd(-4.93, 30.06, -24.82, 0.58)
	pt3dadd(-4.64, 31.34, -23.65, 0.29)
	pt3dadd(-4.64, 32.94, -22.83, 0.29)
	pt3dadd(-5.22, 32.62, -20.9, 0.29)
	pt3dadd(-5.51, 31.34, -18.35, 0.29)
	pt3dadd(-6.1, 31.34, -17.52, 0.29)
	pt3dadd(-6.39, 31.34, -16.73, 0.29)
	pt3dadd(-8.14, 31.98, -15.05, 0.29)
	pt3dadd(-9.31, 32.3, -13.95, 0.29)
	pt3dadd(-9.31, 33.58, -12.45, 0.29)
	pt3dadd(-10.47, 33.26, -9.77, 0.29)
	pt3dadd(-11.06, 32.3, -7.3, 0.29)
	pt3dadd(-12.23, 32.94, -5.3, 0.29)
	pt3dadd(-12.81, 34.22, -4.35, 0.29)
	pt3dadd(-13.39, 32.62, -1.65, 0.29)
	pt3dadd(-14.85, 33.26, 1.1, 0.29)
	pt3dadd(-14.85, 35.18, 2.1, 0.29)
	pt3dadd(-16.31, 34.54, 3.42, 0.29)
	pt3dadd(-16.6, 34.86, 4.38, 0.29)
	pt3dadd(-17.48, 34.86, 7.07, 0.29)
	pt3dadd(-17.77, 35.82, 8.65, 0.29)
	pt3dadd(-18.94, 36.14, 9.75, 0.29)
	pt3dadd(-20.69, 35.5, 11.65, 0.29)
	pt3dadd(-22.73, 35.5, 13.8, 0.29)
	pt3dadd(-23.02, 36.46, 14.6, 0.29)
	pt3dadd(-23.9, 35.5, 15.4, 0.29)
	pt3dadd(-25.36, 36.46, 17.05, 0.29)
	pt3dadd(-26.52, 36.14, 17.52, 0.29)
	pt3dadd(-28.57, 35.5, 18.92, 0.29)
	pt3dadd(-29.15, 34.22, 19.65, 0.29)
  }
  dend[45] {pt3dclear()
	pt3dadd(11.42, 21.16, -38.47, 0.88)
	pt3dadd(10.25, 24.04, -43.2, 0.88)
	pt3dadd(7.92, 25.64, -43.58, 0.88)
	pt3dadd(7.33, 26.61, -44.23, 0.88)
	pt3dadd(5.58, 26.61, -44.78, 0.88)
	pt3dadd(2.66, 26.61, -45.15, 0.88)
	pt3dadd(-0.25, 28.21, -46.25, 0.88)
	pt3dadd(-2.59, 29.81, -46.42, 0.88)
	pt3dadd(-4.05, 31.09, -46.65, 0.58)
	pt3dadd(-5.8, 30.13, -45.25, 0.58)
	pt3dadd(-9.01, 30.77, -43.9, 0.88)
	pt3dadd(-11.34, 31.73, -44.67, 0.88)
	pt3dadd(-13.68, 32.69, -41.22, 0.88)
	pt3dadd(-16.89, 33.97, -40.13, 0.88)
	pt3dadd(-20.42, 35.89, -40.57, 0.88)
	pt3dadd(-22.17, 37.49, -40.32, 0.88)
	pt3dadd(-24.8, 39.09, -40.13, 0.88)
	pt3dadd(-27.71, 41.34, -39.85, 0.88)
	pt3dadd(-28.59, 43.26, -39.75, 0.88)
	pt3dadd(-30.63, 43.9, -39.67, 0.88)
	pt3dadd(-32.38, 45.5, -39.47, 0.88)
	pt3dadd(-35.19, 46.71, -35.53, 0.88)
	pt3dadd(-38.11, 47.35, -35.4, 0.58)
	pt3dadd(-40.74, 49.59, -33.63, 0.58)
	pt3dadd(-43.36, 50.87, -33.3, 0.58)
	pt3dadd(-45.11, 50.55, -32.77, 0.58)
	pt3dadd(-46.86, 50.55, -30.67, 0.29)
	pt3dadd(-47.16, 52.47, -30.47, 0.29)
	pt3dadd(-48.03, 54.07, -29.67, 0.29)
	pt3dadd(-49.49, 55.35, -29.32, 0.29)
	pt3dadd(-51.24, 56.31, -28.05, 0.29)
	pt3dadd(-51.24, 57.92, -27.6, 0.29)
	pt3dadd(-51.24, 58.24, -26.52, 0.29)
	pt3dadd(-52.41, 59.2, -22.12, 0.29)
	pt3dadd(-53.87, 59.52, -20.77, 0.29)
	pt3dadd(-54.74, 59.84, -19.25, 0.29)
	pt3dadd(-53.87, 60.8, -18.77, 0.29)
	pt3dadd(-55.33, 61.12, -17.25, 0.29)
	pt3dadd(-57.37, 60.48, -16.4, 0.29)
	pt3dadd(-60.29, 61.44, -15.68, 0.29)
	pt3dadd(-62.04, 61.76, -15.2, 0.29)
	pt3dadd(-63.5, 62.72, -14.75, 0.29)
	pt3dadd(-65.25, 61.76, -14.1, 0.29)
	pt3dadd(-65.83, 60.48, -13.67, 0.29)
	pt3dadd(-67, 60.48, -12.45, 0.29)
	pt3dadd(-67.29, 61.12, -10.97, 0.29)
	pt3dadd(-69.92, 62.4, -10.73, 0.29)
	pt3dadd(-71.67, 63.36, -10.57, 0.29)
	pt3dadd(-75.46, 63.68, -10.33, 0.29)
	pt3dadd(-76.92, 63.04, -9.85, 0.29)
	pt3dadd(-78.38, 63.36, -9.57, 0.29)
	pt3dadd(-80.13, 64.32, -7.85, 0.29)
	pt3dadd(-82.17, 64.96, -7, 0.29)
	pt3dadd(-82.76, 65.28, -6.85, 0.29)
	pt3dadd(-83.92, 64.64, -6.57, 0.29)
  }
}
proc shape3d_6() {
  dend[45] {	pt3dadd(-85.68, 65.92, -6.13, 0.29)
	pt3dadd(-88.59, 67.2, -5.6, 0.29)
	pt3dadd(-89.47, 69.12, -4.7, 0.29)
	pt3dadd(-90.64, 71.36, -5.9, 0.29)
  }
  dend[46] {pt3dclear()
	pt3dadd(27.26, 8.5, -37.4, 1.17)
	pt3dadd(28.13, 6.9, -37.42, 1.17)
	pt3dadd(27.26, 4.66, -36.27, 1.17)
	pt3dadd(25.5, 3.06, -35.1, 1.17)
	pt3dadd(24.54, 1.17, -33.4, 1.17)
  }
  dend[47] {pt3dclear()
	pt3dadd(24.54, 1.17, -33.4, 0.88)
	pt3dadd(23.08, 0.53, -33.4, 0.88)
	pt3dadd(23.38, -0.75, -30.67, 0.88)
	pt3dadd(24.25, -2.03, -27.73, 0.88)
  }
  dend[48] {pt3dclear()
	pt3dadd(24.25, -2.03, -27.73, 0.58)
	pt3dadd(21.92, -2.35, -22.88, 0.58)
	pt3dadd(20.17, -2.03, -20.77, 0.58)
	pt3dadd(18.12, -1.71, -18.35, 0.29)
	pt3dadd(16.37, -2.03, -15.6, 0.29)
	pt3dadd(15.79, -2.99, -13.3, 0.29)
	pt3dadd(12.58, -3.31, -12.9, 0.29)
	pt3dadd(10.24, -4.59, -11.58, 0.29)
	pt3dadd(9.37, -4.91, -10.4, 0.29)
	pt3dadd(9.08, -3.63, -6.57, 0.29)
	pt3dadd(8.2, -5.55, -3.2, 0.29)
	pt3dadd(6.74, -4.59, -0.8, 0.29)
	pt3dadd(4.41, -2.67, 5.05, 0.29)
	pt3dadd(3.82, -0.11, 5.4, 0.29)
	pt3dadd(2.95, 1.17, 5.65, 0.29)
	pt3dadd(2.95, 2.45, 7.57, 0.29)
	pt3dadd(0.61, 3.74, 8.4, 0.29)
  }
  dend[49] {pt3dclear()
	pt3dadd(0.61, 3.74, 8.4, 0.29)
	pt3dadd(-0.26, 5.34, 10.57, 0.29)
	pt3dadd(1.2, 6.62, 11.65, 0.29)
	pt3dadd(-0.26, 6.62, 14.45, 0.29)
	pt3dadd(-0.84, 5.34, 15, 0.29)
	pt3dadd(-2.01, 6.3, 15.57, 0.29)
	pt3dadd(-2.6, 7.9, 15.82, 0.29)
	pt3dadd(-2.89, 8.86, 16.55, 0.29)
	pt3dadd(-3.47, 10.46, 17.42, 0.29)
	pt3dadd(-3.18, 10.78, 18.55, 0.29)
  }
  dend[50] {pt3dclear()
	pt3dadd(0.61, 3.74, 8.4, 0.29)
	pt3dadd(-1.14, 2.45, 3.92, 0.29)
	pt3dadd(-2.01, 1.49, 4.9, 0.29)
	pt3dadd(-3.76, 1.81, 5, 0.29)
  }
  dend[51] {pt3dclear()
	pt3dadd(24.25, -2.03, -27.73, 0.29)
	pt3dadd(26, -2.35, -30.33, 0.29)
	pt3dadd(26.59, -3.31, -29.45, 0.29)
	pt3dadd(26, -4.91, -27.73, 0.29)
	pt3dadd(26, -5.23, -23.55, 0.29)
	pt3dadd(26.59, -4.59, -19.92, 0.29)
	pt3dadd(27.46, -3.95, -17.85, 0.29)
	pt3dadd(29.5, -3.63, -15.95, 0.29)
	pt3dadd(30.09, -4.59, -13.47, 0.29)
	pt3dadd(31.84, -5.55, -12.47, 0.29)
	pt3dadd(31.84, -5.87, -10.4, 0.29)
	pt3dadd(32.71, -4.59, -8.07, 0.29)
	pt3dadd(30.96, -5.23, -6.75, 0.29)
	pt3dadd(31.25, -6.19, -5.65, 0.29)
	pt3dadd(32.42, -5.55, -4.1, 0.29)
	pt3dadd(31.55, -6.51, 0.02, 0.29)
	pt3dadd(33.01, -7.47, 1.05, 0.29)
	pt3dadd(33.59, -6.19, 3.55, 0.29)
	pt3dadd(35.05, -6.83, 5.42, 0.29)
	pt3dadd(34.17, -8.11, 8.7, 0.29)
	pt3dadd(35.92, -7.47, 8.42, 0.29)
	pt3dadd(34.76, -6.83, 12.07, 0.29)
	pt3dadd(34.17, -4.27, 13.18, 0.29)
  }
  dend[52] {pt3dclear()
	pt3dadd(24.54, 1.17, -33.4, 1.17)
	pt3dadd(24.63, 0.18, -33.4, 1.17)
	pt3dadd(23.75, -2.06, -32.92, 1.17)
  }
  dend[53] {pt3dclear()
	pt3dadd(23.75, -2.06, -32.92, 1.17)
	pt3dadd(24.23, -4.99, -31.77, 1.17)
	pt3dadd(24.23, -7.23, -31.5, 1.17)
	pt3dadd(24.23, -10.11, -31.13, 1.17)
	pt3dadd(25.4, -11.71, -32.67, 1.17)
	pt3dadd(26.28, -13.63, -35.8, 1.17)
	pt3dadd(25.98, -15.23, -39.25, 1.17)
	pt3dadd(25.69, -17.47, -40.48, 1.17)
  }
  dend[54] {pt3dclear()
	pt3dadd(25.69, -17.47, -40.48, 0.29)
	pt3dadd(24.23, -20.74, -41.82, 0.29)
	pt3dadd(22.48, -24.58, -42.33, 0.29)
	pt3dadd(21.02, -26.5, -43.85, 0.29)
	pt3dadd(20.15, -29.06, -40.57, 0.29)
	pt3dadd(18.98, -31.62, -35.77, 0.58)
	pt3dadd(17.52, -33.87, -34.72, 0.58)
	pt3dadd(16.06, -35.47, -32.8, 0.58)
	pt3dadd(16.06, -37.77, -31.35, 0.58)
	pt3dadd(14.31, -39.05, -30.9, 0.58)
	pt3dadd(12.56, -40.65, -30.17, 0.58)
	pt3dadd(12.27, -42.26, -29.92, 0.58)
	pt3dadd(11.1, -43.86, -29.9, 0.58)
	pt3dadd(9.64, -45.14, -29.62, 0.58)
	pt3dadd(7.89, -46.1, -30.27, 0.58)
	pt3dadd(6.14, -46.74, -30.67, 0.58)
	pt3dadd(4.97, -48.02, -31.15, 0.58)
	pt3dadd(3.81, -49.62, -31.98, 0.58)
	pt3dadd(2.64, -50.26, -34.05, 0.58)
	pt3dadd(1.18, -50.9, -35.95, 0.58)
	pt3dadd(0.01, -52.18, -37, 0.58)
	pt3dadd(-2.61, -53.46, -39.58, 0.58)
	pt3dadd(-4.36, -54.74, -41.17, 0.58)
	pt3dadd(-4.66, -56.66, -41.35, 0.58)
	pt3dadd(-4.07, -59.87, -42.75, 0.58)
	pt3dadd(-3.78, -62.75, -43.13, 0.58)
	pt3dadd(-4.36, -64.99, -43.05, 0.58)
	pt3dadd(-4.07, -67.55, -43.45, 0.58)
	pt3dadd(-2.03, -70.11, -40.7, 0.58)
	pt3dadd(-1.45, -72.36, -39.3, 0.58)
	pt3dadd(0.01, -73.96, -36.58, 0.58)
	pt3dadd(0.01, -75.24, -33.97, 0.58)
	pt3dadd(0.3, -77.48, -32.3, 0.58)
	pt3dadd(0.3, -81, -32.3, 0.29)
	pt3dadd(0.01, -83.88, -32.4, 0.29)
	pt3dadd(-0.28, -84.84, -30.75, 0.29)
	pt3dadd(0.01, -87.73, -30.75, 0.29)
	pt3dadd(1.47, -89.01, -27.25, 0.29)
	pt3dadd(2.35, -88.37, -27.27, 0.29)
  }
  dend[55] {pt3dclear()
	pt3dadd(25.69, -17.47, -40.48, 0.88)
	pt3dadd(27.15, -18.11, -40.48, 0.88)
	pt3dadd(27.03, -19.62, -40.6, 0.88)
  }
  dend[56] {pt3dclear()
	pt3dadd(27.03, -19.62, -40.6, 0.29)
	pt3dadd(26.74, -21.22, -46.12, 0.29)
	pt3dadd(25.86, -23.14, -48.05, 0.29)
	pt3dadd(26.74, -25.07, -48.15, 0.29)
	pt3dadd(26.74, -26.35, -50.25, 0.29)
	pt3dadd(26.45, -27.31, -52.85, 0.29)
	pt3dadd(25.86, -29.23, -53.82, 0.29)
	pt3dadd(24.11, -31.79, -55.52, 0.29)
	pt3dadd(22.36, -34.35, -56, 0.29)
	pt3dadd(20.61, -36.27, -57.63, 0.29)
	pt3dadd(20.32, -39.16, -61.77, 0.29)
	pt3dadd(20.03, -41.08, -62.47, 0.29)
	pt3dadd(17.98, -42.04, -63.9, 0.29)
	pt3dadd(16.82, -44.6, -62.7, 0.29)
	pt3dadd(15.36, -46.52, -66.6, 0.29)
	pt3dadd(13.61, -47.8, -70.1, 0.29)
	pt3dadd(11.56, -51, -72.88, 0.29)
  }
  dend[57] {pt3dclear()
	pt3dadd(27.03, -19.62, -40.6, 0.88)
	pt3dadd(26.86, -19.71, -40.6, 0.88)
	pt3dadd(25.98, -21.32, -41.2, 0.88)
	pt3dadd(26.86, -23.88, -42.3, 0.88)
	pt3dadd(28.61, -26.44, -39.82, 1.17)
	pt3dadd(29.49, -28.68, -38.42, 1.17)
	pt3dadd(30.07, -32.52, -38.25, 1.17)
	pt3dadd(29.95, -33.71, -38.25, 1.17)
  }
  dend[58] {pt3dclear()
	pt3dadd(29.95, -33.71, -38.25, 0.58)
	pt3dadd(29.07, -35.31, -41.42, 0.58)
	pt3dadd(29.07, -37.23, -44.02, 0.58)
	pt3dadd(29.07, -40.12, -46.32, 0.58)
	pt3dadd(29.36, -42.68, -47.13, 0.58)
	pt3dadd(30.24, -45.24, -47.53, 0.58)
	pt3dadd(30.82, -46.84, -48.07, 0.58)
	pt3dadd(29.95, -48.44, -49.43, 0.58)
	pt3dadd(29.07, -49.08, -49.5, 0.58)
	pt3dadd(29.66, -50.36, -50, 0.58)
	pt3dadd(31.12, -51.32, -50.77, 0.58)
	pt3dadd(31.41, -52.28, -51.67, 0.58)
	pt3dadd(31.12, -53.89, -52.67, 0.58)
	pt3dadd(31.12, -55.49, -54.02, 0.58)
	pt3dadd(31.41, -57.41, -54.72, 0.58)
	pt3dadd(30.82, -59.01, -57, 0.58)
	pt3dadd(30.53, -59.97, -60.03, 0.58)
	pt3dadd(29.07, -61.57, -60.45, 0.58)
	pt3dadd(28.49, -63.49, -62.02, 0.58)
	pt3dadd(28.49, -65.09, -62.88, 0.58)
	pt3dadd(28.49, -66.05, -63.88, 0.58)
	pt3dadd(27.61, -67.33, -63.97, 0.58)
	pt3dadd(27.61, -69.58, -65.57, 0.58)
	pt3dadd(26.45, -71.18, -66.38, 0.58)
	pt3dadd(26.45, -73.1, -66.68, 0.58)
	pt3dadd(24.4, -75.02, -67.25, 0.58)
	pt3dadd(23.53, -76.3, -68.02, 0.58)
	pt3dadd(23.24, -77.58, -69.18, 0.58)
	pt3dadd(23.24, -79.82, -70.45, 0.58)
	pt3dadd(24.11, -82.38, -72.1, 0.58)
	pt3dadd(24.4, -85.01, -70.38, 0.58)
	pt3dadd(24.7, -87.89, -70.65, 0.58)
	pt3dadd(26.45, -90.13, -70.9, 0.58)
	pt3dadd(26.15, -93.98, -71.52, 0.58)
	pt3dadd(27.32, -95.58, -72.65, 0.58)
	pt3dadd(26.74, -97.18, -75.05, 0.58)
	pt3dadd(26.45, -98.46, -79.67, 0.58)
	pt3dadd(28.2, -100.38, -82.1, 0.58)
	pt3dadd(26.74, -102.94, -83.2, 0.58)
	pt3dadd(28.49, -105.5, -87.7, 0.58)
	pt3dadd(28.49, -108.07, -88.32, 0.58)
	pt3dadd(29.36, -110.95, -90.8, 0.58)
	pt3dadd(30.82, -113.51, -93.72, 0.58)
	pt3dadd(31.41, -115.75, -98.1, 0.58)
	pt3dadd(31.99, -119.27, -101.17, 0.58)
	pt3dadd(32.87, -122.15, -101.45, 0.58)
  }
  dend[59] {pt3dclear()
	pt3dadd(29.95, -33.71, -38.25, 1.17)
	pt3dadd(30.65, -35.09, -37.92, 1.17)
	pt3dadd(31.82, -38.29, -37.92, 0.88)
	pt3dadd(32.4, -40.85, -37, 0.88)
	pt3dadd(32.99, -42.77, -35.77, 0.88)
	pt3dadd(34.74, -44.05, -32.83, 0.88)
	pt3dadd(36.49, -45.33, -30.33, 0.88)
	pt3dadd(37.37, -47.57, -28.72, 0.88)
	pt3dadd(38.24, -49.56, -28.25, 0.88)
  }
}
proc shape3d_7() {
  dend[59] {	pt3dadd(37.95, -51.8, -27.65, 0.88)
	pt3dadd(37.37, -54.04, -27.47, 0.88)
	pt3dadd(36.49, -56.92, -27.47, 0.88)
	pt3dadd(36.78, -59.49, -26.95, 0.88)
	pt3dadd(36.49, -61.41, -25.13, 0.88)
	pt3dadd(36.78, -63.33, -24.82, 0.88)
	pt3dadd(37.07, -65.57, -24.5, 0.88)
	pt3dadd(36.49, -67.49, -22.4, 0.88)
	pt3dadd(35.91, -69.73, -21.63, 0.88)
	pt3dadd(35.32, -72.61, -20.6, 0.88)
	pt3dadd(35.61, -74.86, -20.23, 0.88)
	pt3dadd(37.66, -76.46, -21.02, 0.88)
	pt3dadd(39.41, -79.02, -22.75, 0.88)
	pt3dadd(40.58, -80.94, -21.3, 0.88)
	pt3dadd(41.45, -83.5, -18.95, 0.88)
	pt3dadd(42.03, -86.38, -17.38, 0.88)
	pt3dadd(40.87, -87.98, -17.1, 0.88)
	pt3dadd(39.12, -89.59, -16.92, 0.88)
	pt3dadd(39.41, -91.51, -16.45, 0.88)
	pt3dadd(40.28, -93.11, -16.3, 0.88)
	pt3dadd(40.58, -94.71, -15.6, 0.88)
	pt3dadd(40.28, -96.31, -15.45, 0.88)
	pt3dadd(39.12, -97.27, -14.07, 0.88)
	pt3dadd(37.66, -98.55, -13.97, 0.88)
	pt3dadd(37.66, -99.83, -13.2, 0.88)
	pt3dadd(38.24, -102.39, -12.75, 0.88)
	pt3dadd(37.37, -104.32, -11.17, 0.88)
	pt3dadd(36.78, -107.2, -11.02, 0.88)
	pt3dadd(37.07, -110.52, -15.3, 0.88)
	pt3dadd(38.24, -112.45, -13.72, 0.88)
	pt3dadd(37.95, -114.05, -13.3, 0.88)
	pt3dadd(37.66, -116.61, -12.05, 0.88)
	pt3dadd(36.78, -118.21, -11.5, 0.88)
	pt3dadd(37.07, -121.41, -10.95, 0.88)
	pt3dadd(37.95, -123.97, -10.68, 0.88)
	pt3dadd(38.53, -125.89, -9.7, 0.88)
	pt3dadd(38.53, -127.5, -5.77, 0.88)
	pt3dadd(37.95, -129.42, -3.17, 0.88)
	pt3dadd(37.07, -130.7, -1.7, 0.88)
	pt3dadd(38.24, -133.26, 0.55, 0.58)
	pt3dadd(39.99, -134.22, 4.15, 0.58)
	pt3dadd(42.03, -134.54, 4.95, 0.58)
	pt3dadd(45.83, -134.86, 7.25, 0.29)
	pt3dadd(50.79, -134.22, 9.6, 0.29)
	pt3dadd(53.42, -133.26, 10.6, 0.29)
	pt3dadd(55.46, -132.3, 13.2, 0.29)
	pt3dadd(58.08, -131.02, 14.65, 0.29)
  }
  dend[60] {pt3dclear()
	pt3dadd(23.75, -2.06, -32.92, 0.88)
	pt3dadd(21.42, -3.34, -31.6, 0.88)
	pt3dadd(20.25, -4.94, -30.5, 0.88)
	pt3dadd(19.08, -6.55, -34.22, 0.88)
	pt3dadd(16.75, -8.15, -34.65, 0.88)
	pt3dadd(14.12, -9.11, -35.05, 0.88)
	pt3dadd(12.37, -11.99, -35.67, 0.88)
	pt3dadd(11.5, -14.23, -36.55, 0.88)
	pt3dadd(10.04, -15.83, -35.45, 0.88)
	pt3dadd(8.58, -17.75, -33.07, 0.88)
	pt3dadd(7.41, -19.67, -31.67, 0.88)
	pt3dadd(6.24, -23.52, -31.45, 0.88)
	pt3dadd(5.37, -26.4, -31.22, 0.88)
	pt3dadd(3.91, -28.32, -33.65, 0.88)
	pt3dadd(2.16, -29.92, -34.58, 0.88)
	pt3dadd(2.74, -32.16, -35.75, 0.88)
	pt3dadd(2.16, -34.08, -38.03, 0.88)
	pt3dadd(0.12, -35.69, -39.45, 0.88)
	pt3dadd(-1.63, -38.57, -39.92, 0.88)
	pt3dadd(-2.8, -41.13, -40.92, 0.88)
	pt3dadd(-2.8, -43.69, -41.1, 0.88)
	pt3dadd(-4.55, -45.61, -41.2, 0.88)
	pt3dadd(-6.01, -48.17, -40.83, 0.88)
	pt3dadd(-7.18, -49.77, -41.65, 0.88)
	pt3dadd(-7.76, -52.4, -40.4, 0.88)
	pt3dadd(-8.93, -54.32, -40.77, 0.88)
	pt3dadd(-10.39, -56.56, -41.3, 0.88)
	pt3dadd(-11.85, -59.12, -41.75, 0.88)
	pt3dadd(-13.31, -60.73, -42.92, 0.88)
  }
  dend[61] {pt3dclear()
	pt3dadd(-13.31, -60.73, -42.92, 0.58)
	pt3dadd(-13.51, -63.61, -39.85, 0.58)
	pt3dadd(-14.68, -65.85, -39.65, 0.58)
	pt3dadd(-16.14, -67.45, -42.53, 0.58)
	pt3dadd(-16.14, -69.69, -45, 0.58)
	pt3dadd(-17.89, -71.61, -46.45, 0.58)
	pt3dadd(-18.18, -75.78, -46.63, 0.58)
	pt3dadd(-19.06, -77.7, -46.85, 0.58)
	pt3dadd(-19.93, -79.62, -47.17, 0.58)
	pt3dadd(-20.81, -82.18, -48.75, 0.58)
	pt3dadd(-22.56, -84.74, -48.9, 0.58)
	pt3dadd(-23.43, -86.98, -49.22, 0.58)
	pt3dadd(-23.14, -89.54, -49.55, 0.58)
	pt3dadd(-23.72, -91.79, -49.58, 0.58)
	pt3dadd(-23.43, -94.03, -49.97, 0.58)
	pt3dadd(-24.02, -96.27, -51.4, 0.58)
	pt3dadd(-24.6, -97.55, -52.28, 0.58)
	pt3dadd(-24.89, -99.79, -52.53, 0.58)
	pt3dadd(-26.06, -101.07, -52.53, 0.58)
	pt3dadd(-27.52, -102.03, -52.75, 0.58)
	pt3dadd(-28.1, -104.59, -53.65, 0.58)
	pt3dadd(-29.27, -106.84, -54.27, 0.58)
	pt3dadd(-29.27, -108.44, -55.45, 0.58)
	pt3dadd(-30.14, -110.36, -56.85, 0.58)
	pt3dadd(-32.19, -111, -58.1, 0.58)
	pt3dadd(-33.94, -111.32, -60.13, 0.58)
	pt3dadd(-36.56, -112.6, -61.88, 0.58)
	pt3dadd(-38.9, -113.88, -63.33, 0.58)
	pt3dadd(-42.11, -114.52, -64.32, 0.58)
	pt3dadd(-44.74, -115.48, -66.52, 0.58)
	pt3dadd(-46.49, -114.52, -67.5, 0.58)
	pt3dadd(-47.65, -113.56, -69.32, 0.58)
	pt3dadd(-49.4, -112.6, -70.9, 0.58)
	pt3dadd(-51.16, -111.96, -71.63, 0.58)
  }
  dend[62] {pt3dclear()
	pt3dadd(-13.31, -60.73, -42.92, 0.88)
	pt3dadd(-15.06, -62.97, -46.38, 0.88)
	pt3dadd(-16.52, -63.29, -48.58, 0.58)
	pt3dadd(-17.98, -64.57, -49.85, 0.58)
	pt3dadd(-18.85, -66.17, -52.55, 0.58)
	pt3dadd(-21.19, -67.45, -53.75, 0.58)
	pt3dadd(-23.23, -68.73, -56.55, 0.58)
	pt3dadd(-24.98, -70.01, -57.67, 0.58)
	pt3dadd(-25.85, -70.97, -58.58, 0.58)
	pt3dadd(-26.15, -72.89, -59.35, 0.58)
	pt3dadd(-28.48, -74.49, -61.25, 0.58)
	pt3dadd(-28.77, -76.1, -64.07, 0.58)
	pt3dadd(-29.94, -78.02, -64.7, 0.58)
	pt3dadd(-31.11, -79.62, -67.07, 0.58)
	pt3dadd(-31.98, -81.54, -67.07, 0.29)
	pt3dadd(-33.73, -83.14, -70, 0.29)
	pt3dadd(-35.69, -84.1, -71.03, 0.29)
	pt3dadd(-37.15, -85.7, -73.5, 0.29)
	pt3dadd(-38.32, -87.62, -73.75, 0.29)
	pt3dadd(-39.48, -89.54, -74, 0.29)
	pt3dadd(-40.36, -92.11, -75.18, 0.29)
	pt3dadd(-42.4, -95.31, -76.92, 0.29)
	pt3dadd(-44.15, -98.51, -77.28, 0.29)
	pt3dadd(-44.74, -100.11, -77.5, 0.29)
	pt3dadd(-47.36, -101.07, -77.53, 0.29)
	pt3dadd(-49.7, -102.99, -77.68, 0.29)
	pt3dadd(-51.16, -104.59, -74.05, 0.29)
	pt3dadd(-52.91, -106.2, -72.6, 0.29)
	pt3dadd(-53.78, -109.4, -77.65, 0.29)
	pt3dadd(-54.66, -113.88, -75.85, 0.29)
	pt3dadd(-54.95, -116.12, -78.95, 0.29)
	pt3dadd(-55.53, -118.36, -81.9, 0.29)
	pt3dadd(-58.74, -121.57, -84.17, 0.29)
  }
  dend[63] {pt3dclear()
	pt3dstyle(1, 45.9327, 18.3566, -50.25)
	pt3dadd(41.62, 11.76, -57.28, 1.46)
	pt3dadd(41.33, 10.16, -57.28, 2.04)
	pt3dadd(40.16, 7.6, -56.77, 2.04)
	pt3dadd(38.7, 5.67, -58.75, 2.04)
	pt3dadd(36.95, 3.43, -63.02, 1.75)
	pt3dadd(34.91, 0.87, -66.03, 1.75)
	pt3dadd(34.62, -1.37, -68.88, 1.46)
  }
  dend[64] {pt3dclear()
	pt3dadd(34.62, -1.37, -68.88, 0.88)
	pt3dadd(33.16, -3.61, -62.97, 0.88)
	pt3dadd(33.45, -6.49, -60.92, 0.88)
	pt3dadd(34.03, -9.38, -58.75, 0.88)
	pt3dadd(33.45, -11.94, -57.2, 0.88)
	pt3dadd(32.57, -13.86, -55.77, 0.88)
	pt3dadd(32.87, -15.78, -55.13, 0.88)
	pt3dadd(31.99, -16.74, -54.55, 0.88)
  }
  dend[65] {pt3dclear()
	pt3dadd(31.99, -16.74, -54.55, 0.58)
	pt3dadd(34.33, -19.62, -53.9, 0.58)
	pt3dadd(35.78, -21.86, -54.15, 0.58)
	pt3dadd(37.54, -24.11, -52, 0.58)
	pt3dadd(39.58, -26.99, -51.7, 0.58)
	pt3dadd(40.45, -28.91, -48.25, 0.58)
	pt3dadd(38.7, -30.83, -45.97, 0.58)
	pt3dadd(40.16, -33.07, -43.92, 0.58)
	pt3dadd(40.75, -34.03, -44.43, 0.58)
  }
  dend[66] {pt3dclear()
	pt3dadd(40.75, -34.03, -44.43, 0.58)
	pt3dadd(42.21, -37.74, -44.43, 0.58)
	pt3dadd(41.62, -40.31, -45.95, 0.58)
	pt3dadd(42.5, -42.23, -47.47, 0.58)
	pt3dadd(44.83, -43.83, -48.22, 0.58)
	pt3dadd(46.58, -44.15, -45.17, 0.58)
	pt3dadd(48.92, -44.47, -42.85, 0.58)
	pt3dadd(48.63, -45.75, -40.07, 0.58)
	pt3dadd(49.21, -47.99, -37.85, 0.58)
	pt3dadd(49.21, -50.55, -35.88, 0.58)
	pt3dadd(49.5, -53.76, -34.88, 0.58)
	pt3dadd(50.96, -55.36, -34, 0.58)
	pt3dadd(51.84, -56.32, -33.8, 0.58)
	pt3dadd(52.71, -58.24, -38.5, 0.58)
	pt3dadd(54.17, -59.84, -39.8, 0.58)
	pt3dadd(55.63, -60.8, -41.25, 0.58)
	pt3dadd(56.51, -64.32, -41.32, 0.58)
	pt3dadd(58.55, -65.6, -42.13, 0.58)
	pt3dadd(60.59, -68.49, -43.58, 0.58)
	pt3dadd(62.34, -72.33, -43.65, 0.58)
	pt3dadd(63.22, -74.57, -43.85, 0.58)
	pt3dadd(65.26, -77.13, -42.15, 0.58)
	pt3dadd(66.72, -79.05, -40.15, 0.58)
	pt3dadd(68.47, -81.29, -39.55, 0.58)
	pt3dadd(69.93, -83.54, -39.38, 0.58)
	pt3dadd(69.35, -86.74, -39.28, 0.58)
	pt3dadd(68.28, -88.44, -47.37, 0.58)
	pt3dadd(68.58, -90.36, -48.85, 0.58)
	pt3dadd(69.16, -93.57, -52.67, 0.58)
	pt3dadd(68.87, -95.49, -54.17, 0.58)
	pt3dadd(69.74, -96.77, -55.47, 0.29)
	pt3dadd(69.16, -99.01, -55.7, 0.29)
  }
}
proc shape3d_8() {
  dend[66] {	pt3dadd(67.99, -100.93, -56.03, 0.29)
	pt3dadd(69.16, -104.13, -56.55, 0.58)
	pt3dadd(69.45, -107.34, -57.42, 0.58)
	pt3dadd(68.28, -108.94, -54.07, 0.29)
	pt3dadd(67.99, -111.18, -49.67, 0.29)
	pt3dadd(68.28, -112.78, -51.08, 0.29)
	pt3dadd(69.45, -113.74, -56.12, 0.29)
	pt3dadd(69.45, -115.34, -57.77, 0.29)
	pt3dadd(68.58, -118.54, -58.25, 0.29)
	pt3dadd(67.99, -121.74, -58.3, 0.29)
	pt3dadd(65.66, -123.03, -58.88, 0.29)
  }
  dend[67] {pt3dclear()
	pt3dadd(40.75, -34.03, -44.43, 0.58)
	pt3dadd(42.2, -35.63, -48.97, 0.58)
	pt3dadd(42.2, -38.52, -52.2, 0.58)
	pt3dadd(43.08, -40.76, -54.55, 0.58)
	pt3dadd(43.08, -42.04, -54.65, 0.58)
	pt3dadd(44.25, -44.28, -55.07, 0.58)
	pt3dadd(46, -46.84, -55.85, 0.58)
	pt3dadd(46.87, -49.08, -50.9, 0.58)
	pt3dadd(48.04, -51.96, -46.9, 0.58)
	pt3dadd(49.79, -54.85, -45.6, 0.58)
	pt3dadd(49.5, -55.81, -42.98, 0.58)
	pt3dadd(46.87, -56.77, -42.75, 0.58)
	pt3dadd(45.71, -58.69, -42.47, 0.58)
	pt3dadd(45.71, -60.61, -45.45, 0.58)
	pt3dadd(46.58, -62.53, -47.17, 0.58)
	pt3dadd(47.75, -63.81, -49.95, 0.58)
	pt3dadd(49.5, -64.13, -50.92, 0.58)
	pt3dadd(50.38, -66.37, -53.02, 0.58)
	pt3dadd(51.83, -67.97, -54.2, 0.58)
	pt3dadd(53.29, -70.86, -56.7, 0.58)
	pt3dadd(54.46, -72.78, -57.45, 0.58)
	pt3dadd(55.92, -74.38, -57.9, 0.58)
	pt3dadd(55.92, -76.17, -59.83, 0.58)
	pt3dadd(54.76, -78.73, -60.6, 0.58)
	pt3dadd(56.21, -80.97, -62.02, 0.58)
	pt3dadd(55.92, -82.89, -63.05, 0.58)
	pt3dadd(54.76, -84.82, -65.05, 0.58)
	pt3dadd(53.88, -88.34, -65.27, 0.58)
	pt3dadd(55.34, -91.86, -66.25, 0.58)
	pt3dadd(55.05, -93.14, -66.9, 0.58)
	pt3dadd(57.38, -94.74, -67.38, 0.58)
	pt3dadd(60.88, -96.02, -68.7, 0.58)
	pt3dadd(62.34, -97.94, -68.95, 0.29)
	pt3dadd(63.8, -99.55, -71.07, 0.29)
	pt3dadd(66.43, -100.83, -67.85, 0.29)
  }
  dend[68] {pt3dclear()
	pt3dadd(31.99, -16.74, -54.55, 0.58)
	pt3dadd(29.72, -19.29, -54.4, 0.58)
	pt3dadd(26.8, -21.22, -53.35, 0.58)
	pt3dadd(25.34, -23.46, -52.25, 0.58)
	pt3dadd(25.05, -25.38, -51.5, 0.58)
	pt3dadd(23, -26.98, -50.97, 0.58)
	pt3dadd(20.38, -28.26, -50.97, 0.58)
	pt3dadd(18.63, -31.14, -50.68, 0.58)
	pt3dadd(17.46, -34.34, -50.38, 0.58)
	pt3dadd(16, -36.27, -53.42, 0.58)
	pt3dadd(13.67, -37.87, -54, 0.58)
	pt3dadd(11.62, -39.15, -56.03, 0.58)
	pt3dadd(10.16, -42.03, -56.82, 0.58)
	pt3dadd(9, -43.63, -57.85, 0.58)
	pt3dadd(6.66, -45.23, -60.05, 0.58)
	pt3dadd(4.91, -47.79, -63.17, 0.58)
	pt3dadd(3.16, -49.71, -63.17, 0.58)
	pt3dadd(0.53, -50.68, -63.38, 0.58)
	pt3dadd(-2.09, -52.6, -65.65, 0.58)
	pt3dadd(-3.84, -54.52, -65.65, 0.58)
  }
  dend[69] {pt3dclear()
	pt3dadd(-3.84, -54.52, -65.65, 0.29)
	pt3dadd(-6.47, -56.44, -65.65, 0.29)
	pt3dadd(-7.64, -57.4, -64.8, 0.29)
	pt3dadd(-10.26, -59.96, -66.2, 0.29)
	pt3dadd(-14.35, -62.84, -66.65, 0.29)
	pt3dadd(-17.56, -65.41, -67.28, 0.29)
	pt3dadd(-20.18, -66.69, -68.42, 0.29)
	pt3dadd(-25.44, -68.93, -67.63, 0.29)
	pt3dadd(-30.98, -70.21, -68.45, 0.29)
	pt3dadd(-34.48, -70.85, -70, 0.29)
	pt3dadd(-38.57, -71.81, -70.97, 0.29)
	pt3dadd(-42.36, -72.13, -72.32, 0.29)
	pt3dadd(-44.99, -71.49, -73.67, 0.29)
	pt3dadd(-49.07, -70.53, -73.85, 0.29)
	pt3dadd(-53.19, -70.26, -76.8, 0.29)
	pt3dadd(-56.98, -70.26, -79.27, 0.29)
	pt3dadd(-61.07, -71.86, -82.17, 0.29)
	pt3dadd(-66.03, -74.1, -84.63, 0.29)
	pt3dadd(-69.82, -77.62, -84.78, 0.29)
	pt3dadd(-73.03, -78.59, -85.15, 0.29)
	pt3dadd(-76.24, -78.26, -86.2, 0.29)
	pt3dadd(-82.37, -78.91, -78.8, 0.29)
	pt3dadd(-83.83, -80.19, -74.65, 0.29)
	pt3dadd(-85, -81.79, -71.07, 0.29)
  }
  dend[70] {pt3dclear()
	pt3dadd(-3.84, -54.52, -65.65, 0.58)
	pt3dadd(-3.29, -55.53, -67.6, 0.58)
	pt3dadd(-5.33, -57.77, -66.8, 0.58)
	pt3dadd(-6.79, -59.69, -67.65, 0.58)
	pt3dadd(-8.54, -60.97, -68.38, 0.58)
	pt3dadd(-9.42, -62.89, -70.65, 0.58)
	pt3dadd(-11.46, -64.18, -71.3, 0.88)
	pt3dadd(-12.34, -66.1, -73.35, 0.88)
	pt3dadd(-14.09, -68.34, -74.35, 0.88)
	pt3dadd(-17.59, -69.94, -76.13, 0.88)
	pt3dadd(-18.76, -72.18, -76.47, 0.88)
	pt3dadd(-20.51, -75.06, -76.92, 0.88)
	pt3dadd(-22.84, -77.3, -74.2, 0.88)
	pt3dadd(-25.47, -78.59, -72.5, 0.88)
	pt3dadd(-27.51, -80.19, -72.38, 0.88)
	pt3dadd(-28.97, -82.11, -72.22, 0.88)
	pt3dadd(-31.3, -84.03, -72.22, 0.88)
	pt3dadd(-33.35, -85.95, -71.88, 0.88)
	pt3dadd(-35.1, -87.55, -71.28, 0.88)
	pt3dadd(-36.27, -88.83, -72.28, 0.88)
	pt3dadd(-36.85, -90.43, -73.07, 0.88)
	pt3dadd(-37.43, -92.67, -68.95, 0.88)
	pt3dadd(-36.85, -95.56, -68.45, 0.88)
	pt3dadd(-36.56, -98.44, -68.38, 0.88)
	pt3dadd(-36.85, -102.6, -71, 0.88)
	pt3dadd(-37.43, -106.76, -71.17, 0.88)
	pt3dadd(-38.89, -110.93, -71.28, 0.88)
	pt3dadd(-40.06, -114.13, -71.28, 0.88)
	pt3dadd(-39.77, -114.45, -71.28, 0.88)
	pt3dadd(-39.48, -115.73, -71.28, 0.88)
	pt3dadd(-40.64, -117.33, -71.28, 0.88)
	pt3dadd(-42.1, -119.25, -71.52, 0.88)
	pt3dadd(-41.81, -123.09, -71.7, 0.88)
	pt3dadd(-41.23, -126.3, -74.6, 0.29)
	pt3dadd(-42.69, -128.22, -75.05, 0.29)
	pt3dadd(-44.14, -130.14, -75.3, 0.29)
	pt3dadd(-44.44, -132.7, -77.32, 0.29)
	pt3dadd(-45.9, -133.66, -78.95, 0.29)
	pt3dadd(-46.77, -134.62, -79.55, 0.29)
	pt3dadd(-47.06, -136.86, -80.75, 0.29)
	pt3dadd(-49.11, -138.14, -82.17, 0.29)
	pt3dadd(-50.86, -140.07, -83.23, 0.29)
	pt3dadd(-53.19, -142.31, -83.63, 0.29)
	pt3dadd(-55.82, -144.23, -82.57, 0.29)
	pt3dadd(-56.98, -147.11, -81.5, 0.29)
	pt3dadd(-58.44, -150.31, -81.03, 0.29)
	pt3dadd(-60.49, -154.16, -81.43, 0.29)
	pt3dadd(-61.36, -158, -81.43, 0.29)
	pt3dadd(-63.99, -161.2, -82.07, 0.29)
	pt3dadd(-66.03, -164.08, -83.63, 0.29)
	pt3dadd(-67.2, -168.24, -83.95, 0.29)
	pt3dadd(-66.91, -172.47, -83.95, 0.29)
	pt3dadd(-67.2, -177.59, -85.3, 0.29)
	pt3dadd(-66.91, -181.76, -82.68, 0.29)
	pt3dadd(-68.95, -183.68, -81.17, 0.29)
	pt3dadd(-70.12, -185.92, -79.8, 0.29)
	pt3dadd(-68.95, -190.08, -77.13, 0.29)
  }
  dend[71] {pt3dclear()
	pt3dadd(34.62, -1.37, -68.88, 0.88)
	pt3dadd(35.73, -2.06, -84.03, 0.88)
	pt3dadd(33.98, -5.27, -83.27, 0.88)
	pt3dadd(33.4, -7.83, -84.92, 0.88)
  }
  dend[72] {pt3dclear()
	pt3dadd(33.4, -7.83, -84.92, 0.58)
	pt3dadd(35.15, -10.39, -84.92, 0.58)
	pt3dadd(38.07, -12.63, -84.97, 0.58)
	pt3dadd(39.53, -15.51, -85.68, 0.58)
	pt3dadd(42.45, -17.75, -85.82, 0.58)
	pt3dadd(45.07, -20.96, -83.75, 0.58)
	pt3dadd(46.82, -23.84, -80.88, 0.58)
	pt3dadd(47.99, -28.96, -80.73, 0.58)
	pt3dadd(48.28, -33.76, -80.15, 0.58)
	pt3dadd(48.87, -40.17, -79.22, 0.58)
	pt3dadd(48.28, -43.05, -78.75, 0.58)
	pt3dadd(48.57, -44.33, -78.28, 0.58)
	pt3dadd(49.74, -47.21, -77.93, 0.58)
	pt3dadd(49.74, -49.78, -75.3, 0.58)
	pt3dadd(49.16, -53.94, -74.85, 0.58)
	pt3dadd(48.28, -58.49, -76.88, 0.29)
	pt3dadd(47.7, -60.73, -79.05, 0.29)
	pt3dadd(47.99, -62.33, -80.73, 0.29)
	pt3dadd(47.99, -65.53, -80.9, 0.29)
	pt3dadd(46.53, -67.45, -81.1, 0.29)
	pt3dadd(45.36, -70.33, -81.27, 0.29)
	pt3dadd(47.12, -72.57, -81.5, 0.29)
	pt3dadd(47.99, -75.46, -82.57, 0.29)
	pt3dadd(49.74, -79.62, -84.12, 0.29)
	pt3dadd(50.62, -81.54, -84.22, 0.29)
	pt3dadd(50.62, -83.46, -84.52, 0.29)
	pt3dadd(51.49, -84.1, -84.55, 0.29)
	pt3dadd(52.66, -85.06, -84.8, 0.29)
	pt3dadd(53.24, -87.94, -84.95, 0.29)
	pt3dadd(54.12, -90.83, -82.9, 0.29)
	pt3dadd(55.29, -93.39, -83.8, 0.29)
	pt3dadd(56.75, -96.27, -83.75, 0.29)
	pt3dadd(58.2, -98.83, -84.43, 0.29)
	pt3dadd(59.96, -101.07, -87.45, 0.29)
	pt3dadd(62.29, -103.38, -87.45, 0.29)
	pt3dadd(63.75, -105.62, -89.1, 0.29)
	pt3dadd(65.79, -106.26, -89.45, 0.29)
	pt3dadd(66.96, -107.54, -89.88, 0.29)
	pt3dadd(68.13, -109.14, -90.57, 0.29)
	pt3dadd(69.88, -112.34, -90.45, 0.29)
	pt3dadd(70.46, -114.91, -92.2, 0.29)
	pt3dadd(71.04, -118.11, -89.88, 0.29)
	pt3dadd(70.75, -120.67, -94.05, 0.29)
	pt3dadd(72.5, -124.19, -95.22, 0.29)
	pt3dadd(73.67, -124.83, -96.6, 0.29)
	pt3dadd(75.42, -127.39, -96.65, 0.29)
	pt3dadd(76.88, -129.64, -96.65, 0.29)
	pt3dadd(78.92, -132.52, -92.35, 0.29)
	pt3dadd(80.09, -135.72, -91.43, 0.29)
  }
}
proc shape3d_9() {
  dend[72] {	pt3dadd(82.42, -139.56, -91.25, 0.29)
	pt3dadd(85.05, -142.44, -90.63, 0.29)
	pt3dadd(85.34, -145.01, -93.45, 0.29)
	pt3dadd(87.68, -147.63, -94.75, 0.29)
	pt3dadd(89.72, -151.15, -95.45, 0.29)
	pt3dadd(90.89, -154.04, -96.53, 0.29)
	pt3dadd(90.01, -156.6, -98.23, 0.29)
	pt3dadd(89.43, -159.16, -99.27, 0.29)
	pt3dadd(90.3, -163, -101.65, 0.29)
	pt3dadd(91.76, -164.6, -101.65, 0.29)
	pt3dadd(93.51, -165.88, -103.53, 0.29)
  }
  dend[73] {pt3dclear()
	pt3dadd(33.4, -7.83, -84.92, 0.88)
	pt3dadd(29.31, -9.81, -89.2, 0.88)
	pt3dadd(26.69, -13.34, -90.3, 0.88)
	pt3dadd(24.65, -14.94, -90.4, 0.88)
  }
  dend[74] {pt3dclear()
	pt3dadd(24.65, -14.94, -90.4, 0.58)
	pt3dadd(25.81, -17.5, -90.95, 0.58)
	pt3dadd(25.81, -19.1, -91.2, 0.58)
	pt3dadd(24.94, -21.98, -91.93, 0.58)
	pt3dadd(24.06, -25.18, -91.93, 0.58)
	pt3dadd(22.89, -29.35, -92.17, 0.58)
	pt3dadd(21.44, -32.23, -92.05, 0.58)
	pt3dadd(20.85, -36.71, -92.4, 0.58)
	pt3dadd(19.98, -40.87, -92.45, 0.58)
	pt3dadd(19.39, -42.79, -92.6, 0.58)
	pt3dadd(17.35, -45.36, -92.7, 0.58)
	pt3dadd(14.72, -49.84, -92.7, 0.58)
	pt3dadd(10.64, -54.32, -92.87, 0.58)
	pt3dadd(7.72, -57.52, -93.13, 0.58)
	pt3dadd(5.39, -61.37, -93.13, 0.29)
	pt3dadd(3.34, -63.93, -93.57, 0.29)
	pt3dadd(3.34, -65.53, -93.7, 0.29)
	pt3dadd(4.22, -67.45, -93.7, 0.29)
	pt3dadd(2.18, -71.61, -94.22, 0.29)
	pt3dadd(1.01, -74.18, -95.82, 0.29)
	pt3dadd(-0.45, -75.78, -98.42, 0.29)
	pt3dadd(-1.03, -78.34, -100.28, 0.29)
	pt3dadd(-1.62, -82.18, -100.28, 0.29)
	pt3dadd(-3.95, -85.7, -102.63, 0.29)
	pt3dadd(-5.41, -88.26, -103.2, 0.29)
	pt3dadd(-7.16, -93.77, -102.52, 0.29)
	pt3dadd(-7.45, -95.05, -103.5, 0.29)
	pt3dadd(-9.2, -98.58, -104.45, 0.29)
	pt3dadd(-12.12, -102.74, -108.8, 0.29)
	pt3dadd(-12.12, -105.94, -109.07, 0.29)
	pt3dadd(-11.54, -107.54, -111.77, 0.29)
  }
  dend[75] {pt3dclear()
	pt3dadd(24.65, -14.94, -90.4, 0.58)
	pt3dadd(21.73, -16.54, -87.13, 0.58)
	pt3dadd(20.56, -19.1, -84.38, 0.58)
	pt3dadd(18.52, -20.7, -83.72, 0.58)
	pt3dadd(15.89, -22.3, -86.25, 0.58)
	pt3dadd(13.26, -24.54, -88.77, 0.58)
	pt3dadd(10.64, -27.1, -89.7, 0.58)
	pt3dadd(9.76, -28.39, -90.33, 0.58)
  }
  dend[76] {pt3dclear()
	pt3dadd(9.76, -28.39, -90.33, 0.29)
	pt3dadd(9.18, -30.95, -90.33, 0.29)
	pt3dadd(5.97, -33.51, -90.65, 0.29)
	pt3dadd(3.63, -35.75, -91.5, 0.29)
	pt3dadd(3.05, -37.03, -91.7, 0.29)
	pt3dadd(1.88, -40.23, -93.65, 0.29)
	pt3dadd(0.13, -42.47, -95.13, 0.29)
	pt3dadd(-2.2, -43.76, -96.62, 0.29)
	pt3dadd(-3.66, -46.64, -96.75, 0.29)
	pt3dadd(-5.12, -50.8, -97.02, 0.29)
	pt3dadd(-7.75, -53.36, -97.3, 0.29)
	pt3dadd(-11.83, -55.28, -98.07, 0.29)
	pt3dadd(-15.33, -55.92, -97.13, 0.29)
	pt3dadd(-18.54, -57.52, -100.35, 0.29)
	pt3dadd(-18.83, -59.45, -103.88, 0.29)
	pt3dadd(-21.46, -64.25, -104.07, 0.29)
	pt3dadd(-23.5, -67.45, -104.97, 0.29)
	pt3dadd(-26.42, -70.33, -104.67, 0.29)
  }
  dend[77] {pt3dclear()
	pt3dadd(9.76, -28.39, -90.33, 0.58)
	pt3dadd(6.84, -29.03, -92.45, 0.58)
	pt3dadd(4.51, -28.71, -96.43, 0.29)
	pt3dadd(1.3, -29.67, -98.27, 0.29)
	pt3dadd(-2.49, -29.35, -102.07, 0.29)
	pt3dadd(-6.29, -28.39, -102.8, 0.29)
	pt3dadd(-8.91, -28.71, -103.63, 0.29)
	pt3dadd(-14.46, -27.42, -103.88, 0.29)
	pt3dadd(-17.08, -26.46, -107.55, 0.29)
	pt3dadd(-20.59, -24.22, -112.02, 0.29)
	pt3dadd(-22.92, -24.86, -113.75, 0.29)
	pt3dadd(-27.3, -25.5, -115.07, 0.29)
  }
  dend[78] {pt3dclear()
	pt3dstyle(1, 45.9327, 18.3566, -50.25)
	pt3dadd(37.78, 17.15, -65.78, 0.29)
	pt3dadd(36.32, 16.19, -65.78, 1.17)
	pt3dadd(34.28, 16.83, -68.82, 1.17)
	pt3dadd(32.52, 17.47, -74.1, 0.88)
	pt3dadd(29.61, 17.47, -75.5, 0.88)
	pt3dadd(28.15, 16.19, -84.2, 0.88)
	pt3dadd(26.4, 15.55, -87.3, 0.88)
	pt3dadd(22.89, 17.79, -91.67, 0.88)
	pt3dadd(19.68, 19.07, -95.4, 0.88)
	pt3dadd(17.64, 18.11, -94.85, 0.88)
  }
  dend[79] {pt3dclear()
	pt3dstyle(1, 45.9327, 18.3566, -50.25)
	pt3dadd(34.57, 19.39, -56.08, 0.88)
	pt3dadd(32.23, 19.71, -56.08, 1.17)
	pt3dadd(30.19, 20.67, -57.82, 1.17)
	pt3dadd(27.56, 20.67, -60.22, 1.17)
	pt3dadd(25.81, 21.31, -63.9, 1.17)
	pt3dadd(24.94, 21.95, -66.57, 1.17)
  }
  dend[80] {pt3dclear()
	pt3dadd(24.94, 21.95, -66.57, 0.58)
	pt3dadd(23.48, 23.55, -66.32, 0.58)
	pt3dadd(20.27, 24.19, -67.72, 0.58)
	pt3dadd(17.93, 24.83, -69.45, 0.29)
	pt3dadd(15.89, 26.11, -71.43, 0.29)
	pt3dadd(12.97, 26.44, -73.4, 0.29)
	pt3dadd(10.05, 28.68, -75.07, 0.29)
	pt3dadd(8.3, 29.32, -77.03, 0.29)
	pt3dadd(5.09, 30.28, -78.93, 0.29)
	pt3dadd(1.3, 31.24, -80.92, 0.29)
	pt3dadd(-2.49, 31.88, -84.45, 0.29)
	pt3dadd(-5.12, 32.52, -85.82, 0.29)
	pt3dadd(-8.33, 33.16, -87.2, 0.29)
	pt3dadd(-10.66, 33.8, -88.85, 0.29)
	pt3dadd(-12.71, 36.04, -91.45, 0.29)
	pt3dadd(-15.04, 36.68, -95.28, 0.29)
	pt3dadd(-17.38, 39.56, -95.73, 0.29)
	pt3dadd(-19.13, 42.13, -98.05, 0.29)
	pt3dadd(-22.34, 45.33, -100.92, 0.29)
  }
  dend[81] {pt3dclear()
	pt3dadd(24.94, 21.95, -66.57, 1.17)
	pt3dadd(21.73, 20.99, -71, 1.17)
	pt3dadd(18.23, 20.67, -72.88, 0.88)
	pt3dadd(16.77, 20.03, -75.97, 0.88)
	pt3dadd(14.43, 18.75, -80.97, 0.88)
	pt3dadd(12.1, 16.19, -83.07, 0.88)
	pt3dadd(10.35, 13.31, -83.95, 0.88)
  }
  dend[82] {pt3dclear()
	pt3dadd(10.35, 13.31, -83.95, 0.29)
	pt3dadd(8.89, 10.42, -79.45, 0.29)
	pt3dadd(7.43, 7.54, -82.8, 0.29)
	pt3dadd(3.05, 4.02, -82.68, 0.29)
	pt3dadd(-0.16, 0.82, -81.25, 0.29)
	pt3dadd(-3.66, -1.1, -82.57, 0.29)
	pt3dadd(-8.91, -2.7, -84.52, 0.29)
	pt3dadd(-12.41, -5.27, -85.1, 0.29)
	pt3dadd(-17.67, -6.87, -85.42, 0.29)
	pt3dadd(-20, -9.43, -85.52, 0.29)
	pt3dadd(-22.92, -12.63, -85.55, 0.29)
	pt3dadd(-25.55, -16.47, -85.88, 0.29)
	pt3dadd(-26.13, -18.71, -86, 0.29)
	pt3dadd(-24.96, -21.28, -86, 0.29)
	pt3dadd(-25.84, -25.76, -86.2, 0.29)
	pt3dadd(-29.05, -28.07, -85.68, 0.29)
	pt3dadd(-29.05, -30.95, -81.45, 0.29)
	pt3dadd(-29.05, -34.47, -80.65, 0.29)
	pt3dadd(-29.63, -37.03, -80.37, 0.29)
	pt3dadd(-33.43, -41.19, -80.1, 0.29)
	pt3dadd(-36.05, -43.12, -78.38, 0.29)
	pt3dadd(-40.72, -46, -82.92, 0.29)
	pt3dadd(-43.93, -49.2, -81.65, 0.29)
	pt3dadd(-46.27, -51.76, -77.97, 0.29)
	pt3dadd(-49.77, -53.36, -77.45, 0.29)
	pt3dadd(-52.6, -54.64, -79.3, 0.29)
	pt3dadd(-53.77, -56.24, -76.6, 0.29)
	pt3dadd(-55.81, -57.52, -70.9, 0.29)
	pt3dadd(-58.43, -59.13, -69.3, 0.29)
	pt3dadd(-59.31, -62.01, -68.65, 0.29)
	pt3dadd(-60.48, -63.93, -67.88, 0.29)
	pt3dadd(-60.77, -65.85, -67.03, 0.29)
	pt3dadd(-61.64, -68.73, -65.8, 0.29)
  }
  dend[83] {pt3dclear()
	pt3dadd(10.35, 13.31, -83.95, 0.88)
	pt3dadd(8.68, 13.95, -83.95, 0.88)
	pt3dadd(7.52, 12.35, -91.17, 0.88)
	pt3dadd(6.64, 10.42, -93.8, 0.88)
	pt3dadd(4.89, 9.78, -94.97, 0.88)
	pt3dadd(3.14, 9.78, -96.62, 0.88)
  }
  apic {pt3dclear()
	pt3dstyle(1, 45.9327, 18.3566, -50.25)
	pt3dadd(43.94, 27.29, -50.25, 10.8)
	pt3dadd(43.94, 27.29, -50.25, 10.8)
	pt3dadd(43.42, 31.55, -50.13, 8.23)
	pt3dadd(42.14, 35.52, -50.22, 6.69)
	pt3dadd(41.11, 39.22, -51.38, 5.4)
	pt3dadd(40.08, 42.91, -52.4, 4.37)
	pt3dadd(40.08, 46.89, -53.18, 4.37)
	pt3dadd(39.82, 48.88, -53.58, 4.11)
	pt3dadd(38.02, 51.43, -50.85, 3.86)
	pt3dadd(36.48, 54.84, -51.52, 3.6)
	pt3dadd(35.71, 58.82, -53.13, 3.6)
	pt3dadd(35.45, 63.36, -55.92, 3.6)
	pt3dadd(32.88, 68.19, -58.25, 3.86)
  }
  apic[1] {pt3dclear()
	pt3dadd(32.88, 68.19, -58.25, 3.86)
	pt3dadd(32.88, 71.03, -55.05, 3.86)
	pt3dadd(32.36, 73.87, -51.9, 3.34)
	pt3dadd(32.62, 76.72, -50.2, 2.57)
	pt3dadd(30.82, 80.41, -46.9, 3.09)
	pt3dadd(29.54, 86.09, -46.57, 3.09)
	pt3dadd(28.76, 91.77, -46.38, 3.09)
	pt3dadd(28.25, 97.17, -45.7, 3.09)
	pt3dadd(27.3, 102.85, -46.93, 3.09)
	pt3dadd(26.27, 108.82, -47.28, 3.09)
	pt3dadd(25.5, 114.5, -46.05, 3.09)
	pt3dadd(25.5, 117.96, -43.5, 3.09)
	pt3dadd(26.27, 122.51, -42.4, 3.09)
	pt3dadd(26.78, 125.92, -42.17, 3.09)
	pt3dadd(26.54, 126.47, -42.17, 3.09)
  }
  apic[2] {pt3dclear()
	pt3dadd(26.54, 126.47, -42.17, 3.09)
	pt3dadd(25.67, 129.6, -42.22, 3.09)
	pt3dadd(25.67, 134.14, -43.13, 3.09)
	pt3dadd(26.19, 137.83, -44.58, 3.09)
  }
}
proc shape3d_10() {
  apic[2] {	pt3dadd(26.7, 142.66, -45.45, 3.09)
	pt3dadd(25.41, 145.79, -46.75, 3.09)
	pt3dadd(25.16, 149.48, -48.4, 3.09)
	pt3dadd(26.7, 153.46, -49.4, 3.09)
  }
  apic[3] {pt3dclear()
	pt3dadd(26.7, 153.46, -49.4, 3.09)
	pt3dadd(27.21, 157.49, -48.45, 3.09)
	pt3dadd(24.9, 161.19, -48.02, 3.09)
	pt3dadd(25.16, 164.88, -47.13, 3.09)
	pt3dadd(26.7, 168.86, -46.4, 3.09)
	pt3dadd(27.73, 173.69, -45.52, 3.09)
	pt3dadd(27.47, 179.94, -45.25, 3.09)
	pt3dadd(26.19, 186.19, -45.13, 3.09)
	pt3dadd(25.93, 192.43, -44.95, 3.09)
	pt3dadd(25.36, 192.82, -44.95, 3.09)
  }
  apic[4] {pt3dclear()
	pt3dadd(25.36, 192.82, -44.95, 3.09)
	pt3dadd(25.41, 196.7, -44.32, 3.09)
	pt3dadd(24.64, 200.11, -44.07, 3.09)
  }
  apic[5] {pt3dclear()
	pt3dadd(24.64, 200.11, -44.07, 1.46)
	pt3dadd(22.27, 200.4, -44.3, 1.46)
	pt3dadd(19.63, 200.4, -44.3, 0.88)
	pt3dadd(17, 200.08, -45.22, 0.88)
	pt3dadd(15.54, 200.4, -46.6, 0.88)
  }
  apic[6] {pt3dclear()
	pt3dadd(15.54, 200.4, -46.6, 0.88)
	pt3dadd(13.66, 202.46, -46.93, 0.88)
	pt3dadd(10.74, 204.05, -49.2, 0.88)
	pt3dadd(8.11, 205.32, -49.72, 0.88)
	pt3dadd(5.77, 206.91, -50.1, 0.88)
	pt3dadd(4.01, 207.86, -51.6, 0.88)
  }
  apic[7] {pt3dclear()
	pt3dadd(4.01, 207.86, -51.6, 0.88)
	pt3dadd(0.5, 208.5, -50.63, 0.88)
	pt3dadd(-2.43, 208.18, -52.92, 0.88)
	pt3dadd(-5.94, 207.86, -57.37, 0.88)
	pt3dadd(-10.03, 208.18, -59.02, 0.88)
	pt3dadd(-14.13, 208.18, -60, 0.88)
	pt3dadd(-16.17, 208.18, -62.7, 0.88)
	pt3dadd(-18.22, 207.86, -65.18, 0.88)
	pt3dadd(-19.35, 208.14, -65.18, 0.88)
  }
  apic[8] {pt3dclear()
	pt3dadd(-19.35, 208.14, -65.18, 0.59)
	pt3dadd(-20.23, 208.77, -58.72, 0.59)
	pt3dadd(-21.1, 208.77, -54.2, 0.59)
	pt3dadd(-21.98, 207.82, -49.1, 0.59)
	pt3dadd(-23.74, 207.5, -48.18, 0.59)
	pt3dadd(-24.61, 207.18, -47.15, 0.59)
	pt3dadd(-25.78, 207.82, -43.38, 0.59)
	pt3dadd(-26.95, 209.09, -41.7, 0.59)
	pt3dadd(-28.12, 208.77, -41.08, 0.59)
	pt3dadd(-30.17, 210.05, -40.35, 0.59)
	pt3dadd(-30.76, 211, -38.65, 0.59)
	pt3dadd(-32.22, 212.91, -38.45, 0.59)
	pt3dadd(-34.85, 212.91, -37.95, 0.29)
	pt3dadd(-36.9, 213.86, -37.67, 0.29)
	pt3dadd(-38.36, 213.55, -37.5, 0.29)
  }
  apic[9] {pt3dclear()
	pt3dadd(-19.35, 208.14, -65.18, 0.59)
	pt3dadd(-21.73, 208.18, -67.55, 0.59)
	pt3dadd(-24.66, 209.77, -69.42, 0.59)
	pt3dadd(-27.87, 211.05, -70.32, 0.59)
	pt3dadd(-30.51, 211.68, -72.5, 0.59)
	pt3dadd(-34.6, 212, -72.63, 0.59)
	pt3dadd(-38.4, 212.64, -72.5, 0.59)
	pt3dadd(-41.62, 213.59, -72.65, 0.59)
	pt3dadd(-44.25, 215.82, -73.53, 0.59)
	pt3dadd(-46.89, 218.05, -73.63, 0.59)
	pt3dadd(-49.23, 220.27, -74.22, 0.59)
	pt3dadd(-52.44, 221.86, -75.22, 0.59)
	pt3dadd(-55.08, 223.46, -76.17, 0.59)
	pt3dadd(-58.88, 225.68, -76.47, 0.59)
	pt3dadd(-62.97, 226.96, -76.6, 0.59)
	pt3dadd(-65.61, 227.91, -76.97, 0.59)
	pt3dadd(-68.53, 228.86, -78.17, 0.59)
	pt3dadd(-70.87, 228.55, -78.4, 0.59)
	pt3dadd(-72.92, 228.23, -73.25, 0.59)
	pt3dadd(-77.52, 227.97, -70.92, 0.59)
	pt3dadd(-81.62, 228.61, -69.82, 0.59)
	pt3dadd(-86.01, 228.93, -68.13, 0.59)
	pt3dadd(-88.93, 229.25, -67.68, 0.59)
	pt3dadd(-91.56, 229.88, -67.3, 0.59)
	pt3dadd(-95.95, 230.52, -67.03, 0.59)
	pt3dadd(-98, 230.2, -66.88, 0.59)
	pt3dadd(-101.22, 231.15, -66.7, 0.59)
	pt3dadd(-103.85, 232.75, -66.7, 0.59)
	pt3dadd(-107.36, 232.75, -66.4, 0.59)
	pt3dadd(-109.99, 232.11, -66.17, 0.59)
	pt3dadd(-113.5, 232.75, -66.13, 0.59)
	pt3dadd(-116.43, 231.79, -65.78, 0.59)
	pt3dadd(-121.4, 232.43, -65.78, 0.59)
	pt3dadd(-124.32, 233, -71.55, 0.59)
	pt3dadd(-128.41, 232.36, -70.78, 0.59)
	pt3dadd(-132.22, 232.68, -70.57, 0.59)
	pt3dadd(-135.43, 231.41, -70.22, 0.59)
	pt3dadd(-137.48, 229.5, -66.2, 0.59)
	pt3dadd(-141.58, 227.91, -64.5, 0.59)
	pt3dadd(-146.26, 227.91, -63.9, 0.59)
	pt3dadd(-150.06, 227.91, -63.13, 0.59)
	pt3dadd(-153.28, 229.18, -62.7, 0.59)
	pt3dadd(-154.45, 229.82, -64.92, 0.59)
  }
  apic[10] {pt3dclear()
	pt3dadd(4.01, 207.86, -51.6, 0.88)
	pt3dadd(1.96, 209.46, -43.35, 0.88)
	pt3dadd(0.5, 210.73, -41.3, 0.88)
	pt3dadd(-2.13, 212.32, -38.13, 0.88)
	pt3dadd(-3.3, 213.91, -35.1, 0.88)
	pt3dadd(-2.43, 216.46, -33.3, 0.88)
	pt3dadd(-1.55, 218.68, -32.75, 0.88)
	pt3dadd(-1.84, 221.86, -31.22, 0.88)
	pt3dadd(-2.72, 224.09, -30.23, 0.88)
	pt3dadd(-1.55, 226.32, -28.05, 0.88)
	pt3dadd(-0.67, 228.86, -27.85, 0.88)
	pt3dadd(-1.55, 231.73, -27.55, 0.88)
	pt3dadd(-0.96, 233.96, -23.3, 0.88)
	pt3dadd(1.67, 235.23, -20.67, 0.88)
	pt3dadd(2.84, 237.46, -19.3, 0.88)
	pt3dadd(4.89, 238.09, -18.05, 0.59)
	pt3dadd(5.47, 239.05, -15.88, 0.59)
	pt3dadd(6.35, 240.64, -13.87, 0.59)
	pt3dadd(7.23, 241.59, -12.38, 0.59)
	pt3dadd(8.98, 241.91, -12.22, 0.59)
	pt3dadd(10.15, 241.59, -12.02, 0.59)
	pt3dadd(10.74, 242.86, -11.65, 0.59)
	pt3dadd(10.45, 244.46, -11.65, 0.59)
	pt3dadd(11.32, 246.68, -11.27, 0.59)
	pt3dadd(12.2, 248.59, -11.02, 0.59)
	pt3dadd(11.91, 251.46, -9.95, 0.59)
	pt3dadd(11.91, 254.32, -9.52, 0.59)
	pt3dadd(13.08, 256.55, -8.88, 0.59)
	pt3dadd(14.25, 257.18, -8.68, 0.59)
  }
  apic[11] {pt3dclear()
	pt3dadd(15.54, 200.4, -46.6, 0.88)
	pt3dadd(12.03, 200.08, -46.2, 0.88)
  }
  apic[12] {pt3dclear()
	pt3dadd(12.03, 200.08, -46.2, 0.88)
	pt3dadd(9.57, 201.82, -43.22, 0.88)
	pt3dadd(6.94, 203.09, -42.4, 0.88)
	pt3dadd(4.6, 204.05, -41.88, 0.88)
	pt3dadd(3.13, 203.09, -40.65, 0.88)
	pt3dadd(1.38, 202.14, -35.22, 0.88)
	pt3dadd(-0.96, 202.14, -34.08, 0.88)
	pt3dadd(-3.3, 202.46, -32.25, 0.88)
	pt3dadd(-5.35, 201.82, -31.25, 0.88)
	pt3dadd(-7.11, 202.14, -30.45, 0.88)
	pt3dadd(-8.86, 202.14, -29.52, 0.88)
	pt3dadd(-11.2, 203.09, -28.75, 0.59)
	pt3dadd(-14.42, 204.05, -28.52, 0.59)
	pt3dadd(-15.88, 205, -25.7, 0.59)
	pt3dadd(-16.17, 205.32, -24.95, 0.59)
	pt3dadd(-17.05, 204.68, -24.08, 0.59)
	pt3dadd(-17.64, 204.36, -22.47, 0.59)
	pt3dadd(-19.1, 204.36, -21.95, 0.59)
	pt3dadd(-21.15, 205, -21.95, 0.59)
	pt3dadd(-22.9, 205.96, -21.52, 0.59)
	pt3dadd(-24.66, 206.59, -20.1, 0.59)
	pt3dadd(-27, 207.23, -17.7, 0.59)
	pt3dadd(-27.87, 207.23, -17.4, 0.59)
	pt3dadd(-29.34, 206.59, -15.85, 0.59)
	pt3dadd(-31.09, 206.27, -15.45, 0.59)
	pt3dadd(-33.14, 206.27, -15.25, 0.59)
	pt3dadd(-35.19, 205.96, -15.15, 0.59)
	pt3dadd(-35.77, 205.32, -14.97, 0.59)
	pt3dadd(-37.23, 206.27, -14.72, 0.59)
	pt3dadd(-38.4, 205.96, -13.52, 0.59)
	pt3dadd(-39.28, 206.27, -13.52, 0.59)
	pt3dadd(-41.33, 205.64, -10.9, 0.59)
	pt3dadd(-43.67, 205.96, -10.8, 0.59)
	pt3dadd(-46.01, 205.64, -10.52, 0.59)
	pt3dadd(-47.18, 205, -9.55, 0.59)
	pt3dadd(-48.93, 205, -9.45, 0.59)
	pt3dadd(-50.98, 204.36, -8.38, 0.59)
	pt3dadd(-52.44, 203.73, -8.38, 0.59)
	pt3dadd(-55.08, 204.05, -7.63, 0.59)
	pt3dadd(-55.95, 205, -6.82, 0.59)
	pt3dadd(-56.25, 205.64, -5.4, 0.59)
	pt3dadd(-57.71, 204.68, -3.47, 0.59)
	pt3dadd(-58.88, 203.09, -3.47, 0.59)
	pt3dadd(-60.63, 201.82, -3.13, 0.59)
	pt3dadd(-63.56, 201.82, -2.9, 0.59)
	pt3dadd(-64.14, 199.59, -1.2, 0.59)
	pt3dadd(-65.31, 199.59, -0.93, 0.59)
	pt3dadd(-67.07, 200.55, 1.17, 0.59)
	pt3dadd(-67.95, 199.59, 1.58, 0.59)
	pt3dadd(-68.53, 197.68, 2.22, 0.59)
	pt3dadd(-70.58, 197.36, 4.17, 0.59)
	pt3dadd(-71.16, 197.05, 5.15, 0.59)
	pt3dadd(-73.5, 197.36, 6.7, 0.59)
	pt3dadd(-74.38, 197.05, 7.3, 0.59)
  }
  apic[13] {pt3dclear()
	pt3dadd(12.03, 200.08, -46.2, 0.88)
	pt3dadd(8.23, 199.13, -48.3, 0.88)
	pt3dadd(4.72, 198.17, -49.2, 0.88)
	pt3dadd(2.96, 196.58, -50.85, 0.88)
	pt3dadd(2.08, 194.04, -51.47, 0.88)
	pt3dadd(-0.26, 192.13, -51.72, 0.88)
	pt3dadd(-2.3, 191.17, -49.07, 0.88)
	pt3dadd(-4.35, 189.9, -46.55, 0.88)
	pt3dadd(-6.4, 188.31, -46.47, 0.88)
	pt3dadd(-6.98, 186.08, -46, 0.88)
	pt3dadd(-8.74, 184.17, -50.68, 0.88)
	pt3dadd(-10.2, 183.22, -53.65, 0.88)
	pt3dadd(-12.25, 182.26, -55.4, 0.88)
	pt3dadd(-14.3, 180.35, -55.88, 0.88)
	pt3dadd(-15.47, 177.81, -55.9, 0.88)
	pt3dadd(-16.64, 175.9, -56.03, 0.88)
	pt3dadd(-18.1, 173.99, -56.32, 0.88)
	pt3dadd(-19.85, 172.72, -57.77, 0.88)
	pt3dadd(-21.32, 171.13, -56.45, 0.88)
	pt3dadd(-23.36, 169.85, -56.72, 0.88)
  }
}
proc shape3d_11() {
  apic[13] {	pt3dadd(-26, 168.9, -54.87, 0.88)
	pt3dadd(-26.87, 166.99, -54.1, 0.88)
	pt3dadd(-26.87, 165.08, -57.6, 0.88)
	pt3dadd(-28.04, 162.54, -60.4, 0.88)
	pt3dadd(-29.21, 159.04, -61.6, 0.59)
	pt3dadd(-30.68, 157.13, -62.95, 0.59)
	pt3dadd(-31.85, 156.49, -64.13, 0.59)
	pt3dadd(-33.89, 155.54, -64.5, 0.59)
	pt3dadd(-36.82, 154.58, -66.25, 0.59)
	pt3dadd(-37.99, 153.63, -67.77, 0.59)
	pt3dadd(-38.57, 152.04, -68.35, 0.59)
	pt3dadd(-39.74, 150.13, -68.6, 0.59)
	pt3dadd(-41.5, 147.9, -69.05, 0.59)
	pt3dadd(-41.5, 145.04, -70.3, 0.59)
	pt3dadd(-43.55, 142.81, -70.47, 0.59)
	pt3dadd(-44.72, 139.63, -70.85, 0.59)
	pt3dadd(-46.47, 137.4, -72.25, 0.59)
	pt3dadd(-49.1, 134.54, -72.85, 0.59)
	pt3dadd(-51.86, 133.98, -74.78, 0.59)
	pt3dadd(-53.61, 131.44, -75, 0.59)
	pt3dadd(-55.37, 129.85, -75.92, 0.59)
	pt3dadd(-57.71, 127.94, -78.72, 0.59)
	pt3dadd(-59.46, 126.66, -79.65, 0.59)
	pt3dadd(-59.46, 124.12, -80.7, 0.59)
	pt3dadd(-61.22, 123.48, -81.1, 0.59)
	pt3dadd(-62.68, 121.89, -82.5, 0.59)
	pt3dadd(-63.27, 119.66, -82.68, 0.59)
	pt3dadd(-65.02, 119.03, -84.05, 0.59)
	pt3dadd(-66.19, 117.75, -85.22, 0.59)
	pt3dadd(-67.65, 116.8, -87.52, 0.59)
	pt3dadd(-70.58, 115.84, -89.72, 0.59)
	pt3dadd(-72.33, 115.53, -89.75, 0.59)
	pt3dadd(-74.09, 114.57, -90.28, 0.59)
	pt3dadd(-76.43, 114.57, -91.13, 0.59)
  }
  apic[14] {pt3dclear()
	pt3dadd(24.64, 200.11, -44.07, 2.57)
	pt3dadd(26.44, 202.66, -48.27, 2.57)
	pt3dadd(26.19, 206.07, -48.6, 2.57)
	pt3dadd(25.16, 208.91, -48.72, 2.57)
	pt3dadd(24.9, 211.81, -45.6, 2.57)
	pt3dadd(25.41, 215.79, -44.55, 2.57)
	pt3dadd(26.19, 220.33, -44.07, 2.57)
	pt3dadd(26.44, 225.16, -42.75, 2.57)
	pt3dadd(26.96, 228.85, -42.72, 2.57)
	pt3dadd(27.73, 231.69, -43.53, 2.57)
	pt3dadd(29.01, 234.54, -47.25, 2.57)
	pt3dadd(28.76, 237.94, -48.55, 2.57)
	pt3dadd(28.76, 242.49, -48.85, 2.57)
	pt3dadd(29.01, 247.32, -49.87, 2.57)
	pt3dadd(29.01, 253, -50.42, 2.57)
	pt3dadd(29.53, 257.32, -50.6, 2.83)
  }
  apic[15] {pt3dclear()
	pt3dadd(29.53, 257.32, -50.6, 1.46)
	pt3dadd(33.45, 256.86, -50.55, 1.46)
	pt3dadd(36.96, 257.17, -47.5, 1.46)
	pt3dadd(39.01, 257.17, -46.47, 1.17)
	pt3dadd(41.35, 258.13, -45.83, 1.17)
	pt3dadd(43.11, 259.72, -45.22, 1.17)
  }
  apic[16] {pt3dclear()
	pt3dadd(43.11, 259.72, -45.22, 0.88)
	pt3dadd(44.45, 259.52, -44.85, 0.88)
	pt3dadd(45.62, 259.84, -42.13, 0.88)
	pt3dadd(48.55, 259.84, -40.57, 0.88)
	pt3dadd(50.01, 258.88, -39.67, 0.88)
	pt3dadd(52.06, 259.84, -39.28, 0.88)
	pt3dadd(53.81, 260.79, -37.85, 0.88)
  }
  apic[17] {pt3dclear()
	pt3dadd(53.81, 260.79, -37.85, 0.88)
	pt3dadd(55.86, 259.26, -35.63, 0.88)
	pt3dadd(56.74, 258.31, -32.55, 0.88)
	pt3dadd(58.78, 257.99, -31.1, 0.59)
	pt3dadd(59.37, 257.04, -31.02, 0.59)
	pt3dadd(60.54, 255.45, -29.72, 0.59)
	pt3dadd(63.17, 255.45, -29.38, 0.59)
	pt3dadd(65.22, 254.49, -28.2, 0.59)
	pt3dadd(67.56, 253.54, -27.38, 0.59)
	pt3dadd(71.07, 251.95, -27.25, 0.59)
	pt3dadd(71.65, 250.67, -27.08, 0.59)
	pt3dadd(72.53, 248.76, -26.9, 0.59)
	pt3dadd(74.58, 247.49, -26.77, 0.59)
	pt3dadd(77.21, 246.85, -30.83, 0.59)
	pt3dadd(79.26, 244.95, -31.67, 0.59)
	pt3dadd(81.89, 242.08, -31.92, 0.59)
	pt3dadd(85.11, 239.22, -27.57, 0.59)
	pt3dadd(87.16, 237.63, -27.27, 0.59)
	pt3dadd(89.5, 237.63, -29, 0.59)
	pt3dadd(91.84, 237.31, -28.42, 0.59)
	pt3dadd(92.72, 236.04, -27.55, 0.59)
	pt3dadd(94.47, 234.45, -25.03, 0.59)
	pt3dadd(95.64, 232.85, -23.9, 0.59)
	pt3dadd(96.81, 231.9, -23.65, 0.59)
	pt3dadd(96.52, 230.31, -23.37, 0.59)
	pt3dadd(96.23, 227.45, -23.1, 0.59)
	pt3dadd(97.4, 225.54, -22.83, 0.59)
	pt3dadd(99.74, 223.95, -24.92, 0.59)
	pt3dadd(100.91, 222.04, -23.25, 0.59)
	pt3dadd(102.08, 219.81, -22.95, 0.59)
	pt3dadd(104.12, 217.58, -21.85, 0.59)
	pt3dadd(106.76, 216.31, -21.3, 0.59)
	pt3dadd(108.45, 214.75, -21.75, 0.59)
	pt3dadd(111.09, 213.8, -20.95, 0.59)
	pt3dadd(112.55, 211.89, -18.77, 0.59)
	pt3dadd(114.01, 210.3, -17.5, 0.59)
	pt3dadd(114.6, 209.03, -16.85, 0.59)
	pt3dadd(114.3, 206.8, -16.57, 0.59)
	pt3dadd(113.72, 204.25, -16.35, 0.59)
	pt3dadd(115.18, 203.62, -15.2, 0.59)
	pt3dadd(116.94, 202.66, -13.18, 0.59)
	pt3dadd(117.23, 200.75, -11.95, 0.29)
	pt3dadd(118.11, 199.8, -11.42, 0.29)
	pt3dadd(119.86, 197.57, -9.9, 0.29)
	pt3dadd(119.28, 194.71, -8.95, 0.29)
	pt3dadd(120.74, 192.48, -5.3, 0.29)
	pt3dadd(121.62, 191.85, -4.4, 0.29)
	pt3dadd(123.37, 191.21, -4.17, 0.29)
	pt3dadd(122.49, 190.57, -2.78, 0.29)
	pt3dadd(121.32, 188.66, -2.1, 0.29)
	pt3dadd(121.91, 186.75, -1.55, 0.29)
	pt3dadd(123.37, 184.85, -1.13, 0.29)
	pt3dadd(123.96, 183.57, 0.93, 0.29)
	pt3dadd(123.37, 181.35, 1.82, 0.29)
	pt3dadd(123.96, 178.48, 2.25, 0.29)
	pt3dadd(126.05, 177.54, 1.65, 0.29)
	pt3dadd(125.76, 175.31, 2.67, 0.29)
	pt3dadd(126.34, 172.76, 3.2, 0.29)
	pt3dadd(127.51, 171.17, 4.45, 0.29)
	pt3dadd(128.39, 169.9, 5.68, 0.29)
	pt3dadd(128.1, 168.31, 8.5, 0.29)
	pt3dadd(128.1, 165.45, 10.95, 0.29)
	pt3dadd(128.1, 163.54, 11.68, 0.29)
	pt3dadd(130.44, 161.31, 12.05, 0.29)
	pt3dadd(130.44, 159.08, 12.35, 0.29)
	pt3dadd(131.61, 156.22, 12.7, 0.29)
	pt3dadd(133.95, 154.95, 12.9, 0.29)
  }
  apic[18] {pt3dclear()
	pt3dadd(53.81, 260.79, -37.85, 0.88)
	pt3dadd(54.69, 261.75, -36.55, 0.88)
	pt3dadd(56.74, 262.7, -35.47, 0.88)
	pt3dadd(57.61, 263.34, -32.77, 0.88)
	pt3dadd(59.66, 263.65, -30.4, 0.59)
	pt3dadd(61.12, 264.61, -29.88, 0.59)
	pt3dadd(62.59, 263.97, -28.52, 0.59)
	pt3dadd(64.34, 264.61, -27.15, 0.59)
	pt3dadd(64.93, 264.93, -26.15, 0.59)
	pt3dadd(65.8, 265.88, -26.05, 0.59)
	pt3dadd(66.97, 267.79, -25.92, 0.59)
	pt3dadd(68.73, 268.43, -25.07, 0.59)
	pt3dadd(69.61, 268.11, -23.45, 0.59)
	pt3dadd(70.78, 268.43, -21.77, 0.59)
	pt3dadd(72.24, 269.38, -21.67, 0.59)
	pt3dadd(73.99, 269.38, -21.3, 0.59)
	pt3dadd(75.46, 269.06, -19.6, 0.59)
	pt3dadd(76.04, 269.38, -16.67, 0.59)
	pt3dadd(77.21, 270.34, -15.4, 0.59)
	pt3dadd(79.26, 271.29, -13.92, 0.59)
	pt3dadd(81.31, 272.56, -13.23, 0.59)
	pt3dadd(82.19, 273.84, -12.75, 0.59)
	pt3dadd(84.23, 275.43, -12.3, 0.59)
	pt3dadd(85.99, 275.11, -11.68, 0.59)
	pt3dadd(85.7, 276.06, -10.3, 0.59)
	pt3dadd(85.7, 277.34, -9, 0.59)
	pt3dadd(87.16, 278.29, -8.8, 0.59)
	pt3dadd(88.91, 279.56, -8.3, 0.59)
	pt3dadd(90.96, 279.56, -7.87, 0.59)
	pt3dadd(93.59, 279.25, -6.85, 0.59)
	pt3dadd(96.52, 279.56, -6.35, 0.29)
	pt3dadd(96.81, 280.84, -5.92, 0.29)
	pt3dadd(97.98, 282.43, -3.9, 0.29)
	pt3dadd(99.44, 283.7, -1.55, 0.29)
	pt3dadd(100.61, 282.75, -1.35, 0.29)
	pt3dadd(101.2, 284.02, -1.02, 0.29)
	pt3dadd(101.2, 285.93, 0.9, 0.29)
	pt3dadd(102.66, 286.88, 2.03, 0.29)
	pt3dadd(105.29, 287.84, 3.95, 0.29)
	pt3dadd(105.29, 289.49, 4.25, 0.29)
	pt3dadd(107.63, 291.72, 6.42, 0.29)
	pt3dadd(108.22, 293.31, 7.8, 0.29)
	pt3dadd(108.51, 295.54, 9.17, 0.29)
	pt3dadd(109.97, 297.45, 10.17, 0.29)
	pt3dadd(110.85, 299.04, 11.02, 0.29)
	pt3dadd(111.44, 301.26, 11.8, 0.29)
	pt3dadd(111.14, 304.45, 12.13, 0.29)
	pt3dadd(111.44, 306.36, 12.2, 0.29)
	pt3dadd(113.19, 307.95, 12.35, 0.29)
	pt3dadd(112.9, 309.54, 12.65, 0.29)
  }
  apic[19] {pt3dclear()
	pt3dadd(43.11, 259.72, -45.22, 1.17)
	pt3dadd(45.45, 261.31, -42.82, 1.17)
	pt3dadd(47.49, 262.26, -41.85, 1.17)
	pt3dadd(49.83, 262.9, -45.65, 1.17)
	pt3dadd(53.34, 264.49, -45.27, 1.17)
	pt3dadd(55.1, 266.72, -45.13, 1.17)
	pt3dadd(57.44, 268.31, -44.45, 1.17)
	pt3dadd(59.49, 269.26, -48.27, 1.17)
	pt3dadd(61.83, 270.54, -49.25, 1.17)
	pt3dadd(63.29, 270.54, -48.65, 1.17)
	pt3dadd(65.63, 270.86, -44.5, 0.88)
	pt3dadd(67.68, 270.54, -49.1, 0.88)
	pt3dadd(70.31, 271.81, -51.67, 0.88)
	pt3dadd(72.94, 271.81, -53.88, 0.88)
	pt3dadd(76.16, 272.13, -55.4, 0.88)
	pt3dadd(78.21, 271.81, -56.57, 0.88)
	pt3dadd(79.96, 271.49, -57.22, 0.88)
	pt3dadd(82.01, 272.45, -57.92, 0.88)
	pt3dadd(84.64, 272.13, -59.02, 0.88)
	pt3dadd(89.03, 272.13, -59.2, 0.88)
  }
}
proc shape3d_12() {
  apic[19] {	pt3dadd(91.37, 271.81, -62.88, 0.88)
	pt3dadd(93.71, 270.86, -64.38, 0.88)
	pt3dadd(96.05, 271.81, -66.68, 0.88)
	pt3dadd(98.68, 273.4, -69.67, 0.88)
	pt3dadd(100.14, 273.72, -66.85, 0.59)
	pt3dadd(102.48, 273.4, -67.63, 0.59)
	pt3dadd(105.41, 273.08, -66.72, 0.59)
	pt3dadd(110.09, 273.08, -66, 0.59)
	pt3dadd(112.72, 274.04, -60.6, 0.59)
	pt3dadd(113.89, 275.95, -59.78, 0.59)
	pt3dadd(115.94, 275.95, -59.17, 0.59)
	pt3dadd(118.28, 275.63, -56.65, 0.59)
	pt3dadd(121.2, 275.63, -56.15, 0.59)
	pt3dadd(122.37, 276.9, -54.83, 0.29)
	pt3dadd(124.3, 278.24, -53.58, 0.29)
	pt3dadd(125.77, 277.92, -52.45, 0.29)
	pt3dadd(127.81, 276.96, -51.8, 0.29)
	pt3dadd(128.69, 276.96, -50.5, 0.29)
	pt3dadd(129.86, 277.6, -49.13, 0.29)
	pt3dadd(131.03, 277.6, -48.9, 0.29)
	pt3dadd(133.67, 277.28, -48.78, 0.29)
	pt3dadd(136.01, 276.65, -48.27, 0.29)
	pt3dadd(138.35, 277.6, -47.05, 0.29)
	pt3dadd(140.1, 276.65, -46.88, 0.29)
	pt3dadd(142.44, 278.24, -46.63, 0.29)
	pt3dadd(144.78, 279.19, -46.3, 0.29)
	pt3dadd(145.66, 280.46, -46.22, 0.29)
	pt3dadd(148, 280.78, -46.08, 0.29)
	pt3dadd(149.46, 280.46, -44.72, 0.29)
	pt3dadd(152.68, 280.78, -44.35, 0.29)
	pt3dadd(155.6, 281.42, -43.8, 0.29)
	pt3dadd(156.77, 280.46, -43.45, 0.29)
	pt3dadd(158.24, 281.1, -43.13, 0.29)
	pt3dadd(159.41, 281.74, -49.17, 0.29)
	pt3dadd(162.62, 280.78, -49.83, 0.29)
	pt3dadd(164.96, 279.83, -50.5, 0.29)
  }
  apic[20] {pt3dclear()
	pt3dadd(29.53, 257.32, -50.6, 2.57)
	pt3dadd(29.01, 262.72, -51.65, 2.57)
	pt3dadd(28.5, 268.4, -52.13, 2.57)
	pt3dadd(29.01, 273.23, -52.55, 2.57)
	pt3dadd(29.79, 278.62, -52.75, 2.57)
	pt3dadd(30.81, 282.32, -53.13, 2.31)
	pt3dadd(30.04, 286.01, -54.1, 2.31)
	pt3dadd(30.04, 291.12, -54.43, 2.57)
	pt3dadd(31.33, 293.97, -55, 2.57)
	pt3dadd(31.07, 297.09, -52.17, 2.83)
	pt3dadd(30.81, 299.99, -49.27, 3.09)
  }
  apic[21] {pt3dclear()
	pt3dadd(30.81, 299.99, -49.27, 0.88)
	pt3dadd(28.37, 299.77, -52.15, 0.88)
	pt3dadd(25.74, 299.45, -57.02, 0.88)
	pt3dadd(23.4, 299.45, -58.95, 0.88)
	pt3dadd(19.59, 299.77, -60.27, 0.88)
	pt3dadd(16.67, 298.82, -61.67, 0.88)
	pt3dadd(14.04, 297.55, -67.77, 0.88)
  }
  apic[22] {pt3dclear()
	pt3dadd(14.04, 297.55, -67.77, 0.88)
	pt3dadd(11.4, 297.86, -69.4, 0.88)
	pt3dadd(9.94, 297.86, -71.28, 0.88)
	pt3dadd(7.02, 295.64, -71.75, 0.88)
	pt3dadd(4.68, 293.73, -72.13, 0.88)
	pt3dadd(2.34, 291.82, -72.85, 0.88)
	pt3dadd(0.87, 290.86, -75.52, 0.88)
	pt3dadd(-0.59, 290.55, -77.38, 0.88)
	pt3dadd(-2.34, 291.18, -80.57, 0.88)
	pt3dadd(-3.51, 290.55, -83.63, 0.88)
	pt3dadd(-4.69, 290.86, -85.63, 0.88)
	pt3dadd(-7.03, 291.82, -87.6, 0.88)
  }
  apic[23] {pt3dclear()
	pt3dadd(-7.03, 291.82, -87.6, 0.88)
	pt3dadd(-7.9, 294.05, -87.6, 0.88)
	pt3dadd(-10.24, 294.36, -90.47, 0.88)
	pt3dadd(-11.41, 295.95, -96, 0.88)
	pt3dadd(-14.05, 297.23, -98.95, 0.88)
	pt3dadd(-15.8, 298.5, -103.7, 0.88)
	pt3dadd(-16.09, 300.41, -106.67, 0.88)
  }
  apic[24] {pt3dclear()
	pt3dadd(-7.03, 291.82, -87.6, 0.88)
	pt3dadd(-4.98, 291.18, -92, 0.88)
	pt3dadd(-2.64, 289.91, -96.5, 0.88)
	pt3dadd(-0, 288, -99.17, 0.88)
	pt3dadd(0.87, 289.59, -102.5, 0.88)
	pt3dadd(2.92, 288.32, -105.73, 0.88)
	pt3dadd(2.04, 287.36, -108.3, 0.88)
  }
  apic[25] {pt3dclear()
	pt3dadd(14.04, 297.55, -67.77, 0.88)
	pt3dadd(14.91, 295.64, -67.77, 0.88)
	pt3dadd(12.87, 294.05, -72.93, 0.88)
	pt3dadd(13.74, 291.82, -78.28, 0.88)
	pt3dadd(11.99, 291.18, -76.32, 0.88)
	pt3dadd(10.53, 291.5, -88.72, 0.88)
	pt3dadd(11.7, 293.09, -94.05, 0.88)
	pt3dadd(9.65, 291.18, -95.25, 0.88)
  }
  apic[26] {pt3dclear()
	pt3dadd(30.81, 299.99, -49.27, 3.09)
	pt3dadd(31.07, 304.25, -48.5, 3.09)
	pt3dadd(30.04, 308.23, -47.85, 3.09)
	pt3dadd(30.04, 311.35, -51.3, 3.09)
	pt3dadd(30.3, 313.34, -51.77, 3.09)
  }
  apic[27] {pt3dclear()
	pt3dadd(30.3, 313.34, -51.77, 0.59)
	pt3dadd(30.1, 315.4, -52.1, 0.59)
  }
  apic[28] {pt3dclear()
	pt3dadd(30.1, 315.4, -52.1, 0.59)
	pt3dadd(28.08, 316.32, -43.42, 0.59)
	pt3dadd(29.54, 317.91, -41.67, 0.59)
	pt3dadd(32.17, 319.5, -40.9, 0.59)
	pt3dadd(32.46, 320.77, -39.02, 0.59)
	pt3dadd(31, 320.77, -37.95, 0.59)
  }
  apic[29] {pt3dclear()
	pt3dadd(31, 320.77, -37.95, 0.59)
	pt3dadd(31.29, 318.55, -35.38, 0.59)
	pt3dadd(31.88, 316.64, -32.47, 0.59)
	pt3dadd(32.17, 314.73, -30.33, 0.59)
	pt3dadd(31.59, 313.14, -29.38, 0.59)
	pt3dadd(32.17, 311.23, -25.33, 0.59)
	pt3dadd(34.22, 310.27, -23.75, 0.59)
	pt3dadd(35.97, 308.36, -22.17, 0.59)
	pt3dadd(37.73, 306.14, -20.77, 0.59)
	pt3dadd(39.19, 303.59, -18.97, 0.59)
	pt3dadd(40.65, 302.95, -15.75, 0.59)
	pt3dadd(40.65, 302, -14.2, 0.59)
	pt3dadd(39.78, 301.36, -13.55, 0.59)
	pt3dadd(38.61, 301.05, -13.05, 0.59)
	pt3dadd(40.07, 299.77, -10.73, 0.59)
	pt3dadd(40.36, 298.18, -9.7, 0.59)
	pt3dadd(40.65, 296.91, -7.47, 0.59)
	pt3dadd(38.9, 295.64, -6.82, 0.59)
	pt3dadd(39.78, 295, -4.68, 0.59)
	pt3dadd(39.48, 293.09, -1.6, 0.59)
	pt3dadd(40.07, 291.18, -1.07, 0.59)
	pt3dadd(40.65, 291.82, 0.3, 0.59)
	pt3dadd(42.12, 291.18, 2.47, 0.59)
	pt3dadd(40.95, 289.59, 2.92, 0.59)
	pt3dadd(40.65, 287.68, 4.43, 0.59)
	pt3dadd(41.53, 286.41, 6.07, 0.59)
	pt3dadd(42.12, 285.77, 7.2, 0.59)
	pt3dadd(43.29, 287.05, 8.52, 0.59)
	pt3dadd(42.99, 289.27, 10.1, 0.59)
	pt3dadd(41.53, 291.18, 10.28, 0.59)
	pt3dadd(39.48, 292.14, 10.4, 0.59)
	pt3dadd(37.44, 292.77, 10.9, 0.59)
  }
  apic[30] {pt3dclear()
	pt3dadd(31, 320.77, -37.95, 0.59)
	pt3dadd(29.83, 322.36, -35.3, 0.59)
	pt3dadd(28.66, 323, -35.3, 0.59)
	pt3dadd(26.91, 324.59, -32.83, 0.59)
	pt3dadd(26.03, 326.82, -32.15, 0.59)
	pt3dadd(25.74, 328.41, -31.02, 0.59)
	pt3dadd(23.98, 328.73, -29.05, 0.59)
	pt3dadd(24.57, 329.68, -28, 0.59)
	pt3dadd(25.15, 329.68, -24.7, 0.59)
	pt3dadd(24.57, 331.27, -17.02, 0.59)
	pt3dadd(23.98, 334.14, -15.82, 0.59)
	pt3dadd(23.4, 334.77, -14.45, 0.59)
	pt3dadd(22.81, 335.73, -12.72, 0.59)
	pt3dadd(22.81, 337, -11.32, 0.59)
	pt3dadd(21.06, 337.32, -9.82, 0.59)
	pt3dadd(19.3, 337.95, -8.55, 0.59)
	pt3dadd(19.59, 340.18, -6.15, 0.59)
	pt3dadd(20.47, 342.09, -4.72, 0.59)
	pt3dadd(21.93, 343.68, -3.92, 0.59)
	pt3dadd(20.47, 344.64, -0.4, 0.59)
	pt3dadd(21.35, 345.59, 1.53, 0.59)
	pt3dadd(21.93, 347.82, 0.77, 0.59)
	pt3dadd(20.76, 348.77, 2.95, 0.59)
	pt3dadd(21.06, 350.05, 3.6, 0.59)
	pt3dadd(21.64, 351.32, 5.22, 0.59)
	pt3dadd(20.18, 353.23, 7.35, 0.59)
	pt3dadd(18.13, 354.18, 8.02, 0.59)
	pt3dadd(16.67, 355.46, 9.05, 0.59)
	pt3dadd(17.84, 355.77, 9.7, 0.59)
	pt3dadd(19.01, 356.41, 10.33, 0.59)
  }
  apic[31] {pt3dclear()
	pt3dadd(19.01, 356.41, 10.33, 0.59)
	pt3dadd(20.76, 355.14, 7.45, 0.59)
	pt3dadd(21.64, 353.55, 7.22, 0.59)
	pt3dadd(22.81, 352.27, 6.22, 0.59)
	pt3dadd(24.57, 351, 5.68, 0.59)
	pt3dadd(25.15, 349.41, 5.37, 0.59)
  }
  apic[32] {pt3dclear()
	pt3dadd(19.01, 356.41, 10.33, 0.59)
	pt3dadd(18.72, 358.32, 12.55, 0.59)
	pt3dadd(20.18, 359.27, 13.23, 0.59)
	pt3dadd(21.93, 360.55, 13.67, 0.59)
  }
  apic[33] {pt3dclear()
	pt3dadd(30.1, 315.4, -52.1, 0.59)
	pt3dadd(32.73, 315.08, -57.37, 0.59)
	pt3dadd(33.9, 315.72, -61.52, 0.59)
	pt3dadd(35.36, 317.94, -62.08, 0.59)
	pt3dadd(36.53, 320.17, -63.5, 0.59)
	pt3dadd(38.29, 322.4, -66.92, 0.59)
	pt3dadd(38.87, 324.94, -68.53, 0.59)
	pt3dadd(38.87, 327.17, -70.38, 0.59)
	pt3dadd(38.29, 328.45, -71.7, 0.59)
	pt3dadd(40.63, 330.35, -72.1, 0.59)
	pt3dadd(42.09, 331.95, -73.05, 0.59)
	pt3dadd(42.38, 334.17, -75.78, 0.59)
	pt3dadd(43.26, 335.45, -78.38, 0.59)
	pt3dadd(43.85, 337.04, -81.05, 0.59)
	pt3dadd(45.31, 338.31, -83.93, 0.59)
	pt3dadd(47.36, 340.22, -85.68, 0.59)
	pt3dadd(49.7, 343.72, -83.05, 0.59)
	pt3dadd(52.04, 346.9, -89.82, 0.59)
	pt3dadd(53.79, 348.81, -92.02, 0.59)
	pt3dadd(56.72, 352.63, -91.4, 0.59)
	pt3dadd(58.18, 355.49, -94.22, 0.59)
	pt3dadd(60.23, 358.35, -96.2, 0.59)
	pt3dadd(61.4, 361.85, -99.85, 0.59)
	pt3dadd(64.03, 366.31, -99.85, 0.59)
	pt3dadd(65.2, 369.81, -100.28, 0.59)
	pt3dadd(67.54, 372.67, -100.92, 0.59)
	pt3dadd(69.9, 376.52, -101.15, 0.59)
  }
}
proc shape3d_13() {
  apic[33] {	pt3dadd(73.12, 380.34, -103.05, 0.59)
	pt3dadd(78.09, 382.56, -104.07, 0.59)
	pt3dadd(83.65, 384.47, -104.27, 0.59)
	pt3dadd(85.99, 385.11, -102.35, 0.59)
	pt3dadd(88.04, 386.7, -105.63, 0.59)
  }
  apic[34] {pt3dclear()
	pt3dadd(30.3, 313.34, -51.77, 3.09)
	pt3dadd(29.01, 318.74, -52.72, 3.09)
	pt3dadd(28.24, 324.42, -53.67, 3.09)
	pt3dadd(27.21, 329.53, -54.02, 3.09)
	pt3dadd(24.39, 334.08, -54.13, 2.83)
	pt3dadd(22.59, 336.92, -54.6, 2.57)
	pt3dadd(21.56, 338.91, -51.25, 2.31)
	pt3dadd(21.04, 341.46, -48.35, 2.31)
	pt3dadd(24.13, 343.45, -46.88, 2.57)
	pt3dadd(25.93, 345.5, -47.88, 2.57)
	pt3dadd(25.93, 348.62, -51.4, 2.57)
	pt3dadd(26.19, 352.88, -54.15, 2.57)
	pt3dadd(26.44, 357.71, -55.4, 2.57)
	pt3dadd(26.7, 362.54, -55.88, 2.57)
	pt3dadd(26.7, 365.95, -56.47, 2.57)
	pt3dadd(26.7, 368.79, -58.72, 2.57)
  }
  apic[35] {pt3dclear()
	pt3dadd(26.7, 368.79, -58.72, 0.59)
	pt3dadd(25.74, 368.2, -58.78, 0.59)
	pt3dadd(24.57, 368.2, -59, 0.59)
	pt3dadd(23.69, 369.47, -59.92, 0.59)
	pt3dadd(22.81, 370.74, -60.6, 0.59)
	pt3dadd(21.35, 372.33, -60.85, 0.59)
	pt3dadd(20.77, 373.29, -62.17, 0.88)
	pt3dadd(20.18, 374.24, -62.7, 0.88)
	pt3dadd(19.01, 375.51, -64.2, 0.88)
	pt3dadd(17.26, 377.11, -64.9, 0.88)
	pt3dadd(16.38, 378.38, -68.07, 0.88)
	pt3dadd(16.09, 379.01, -68.53, 0.88)
	pt3dadd(14.33, 381.24, -69.67, 0.88)
	pt3dadd(14.33, 382.51, -73.47, 0.88)
	pt3dadd(14.62, 383.47, -75.47, 0.88)
	pt3dadd(14.04, 385.06, -77.85, 0.88)
	pt3dadd(11.99, 385.38, -85.7, 0.88)
	pt3dadd(11.7, 387.29, -89.5, 0.88)
	pt3dadd(10.82, 389.83, -92.65, 0.88)
	pt3dadd(9.36, 391.42, -90.42, 0.88)
	pt3dadd(5.56, 392.7, -97.57, 0.59)
	pt3dadd(4.97, 394.29, -100.82, 0.59)
	pt3dadd(3.8, 396.2, -103, 0.59)
	pt3dadd(2.92, 398.42, -106.43, 0.59)
	pt3dadd(0.88, 400.33, -110.05, 0.59)
	pt3dadd(-0.29, 402.56, -112.92, 0.59)
	pt3dadd(-2.34, 402.88, -113.5, 0.59)
	pt3dadd(-3.8, 405.11, -115.28, 0.59)
	pt3dadd(-5.56, 407.97, -121.5, 0.59)
	pt3dadd(-7.9, 409.88, -126.13, 0.59)
	pt3dadd(-8.78, 412.74, -128.38, 0.59)
	pt3dadd(-11.41, 414.65, -128.98, 0.59)
	pt3dadd(-13.75, 417.2, -129.05, 0.59)
  }
  apic[36] {pt3dclear()
	pt3dadd(26.7, 368.79, -58.72, 2.06)
	pt3dadd(25.41, 370.5, -58.67, 2.06)
	pt3dadd(25.93, 372.48, -59.07, 2.06)
	pt3dadd(27.73, 375.04, -59.75, 2.06)
	pt3dadd(27.47, 377.09, -56.15, 2.57)
	pt3dadd(26.44, 381.35, -54.92, 2.57)
	pt3dadd(25.93, 385.89, -54.32, 2.57)
	pt3dadd(24.9, 391.57, -54.02, 2.57)
	pt3dadd(24.39, 396.12, -53.8, 2.57)
	pt3dadd(24.9, 400.67, -53.67, 2.57)
	pt3dadd(24.9, 405.21, -53.53, 2.57)
	pt3dadd(25.16, 409.47, -53.67, 2.57)
	pt3dadd(25.67, 412.88, -54.4, 2.57)
	pt3dadd(26.19, 416.57, -56.82, 2.57)
	pt3dadd(25.41, 421.69, -58.17, 2.57)
	pt3dadd(25.16, 425.95, -59.27, 2.57)
	pt3dadd(26.7, 429.93, -59.5, 2.57)
	pt3dadd(26.44, 433.9, -60.45, 2.57)
	pt3dadd(25.93, 437.65, -56.42, 2.57)
	pt3dadd(26.7, 441.63, -55.4, 2.57)
	pt3dadd(27.47, 446.18, -55.07, 2.57)
	pt3dadd(26.7, 450.72, -54.9, 2.57)
	pt3dadd(26.44, 454.41, -54.67, 2.57)
	pt3dadd(28.24, 458.67, -54.43, 2.57)
	pt3dadd(26.96, 462.65, -53.92, 2.57)
	pt3dadd(25.93, 465.21, -56.03, 2.57)
	pt3dadd(25.41, 468.9, -57, 2.57)
	pt3dadd(24.64, 474.01, -58.9, 2.57)
	pt3dadd(24.39, 478.56, -59.72, 2.57)
	pt3dadd(23.36, 483.73, -60.1, 2.57)
	pt3dadd(23.36, 487.99, -60.72, 2.57)
	pt3dadd(24.64, 490.55, -60.22, 2.06)
	pt3dadd(25.16, 492.82, -57.1, 2.06)
	pt3dadd(23.36, 495.09, -55.77, 2.06)
	pt3dadd(23.87, 497.93, -55.2, 2.83)
	pt3dadd(24.39, 502.76, -58.53, 2.83)
	pt3dadd(23.87, 508.16, -59.42, 2.83)
	pt3dadd(23.87, 514.13, -59.7, 2.83)
	pt3dadd(23.87, 518.39, -59.87, 2.83)
	pt3dadd(21.81, 522.08, -59.9, 2.83)
	pt3dadd(21.56, 526.68, -57.2, 2.83)
	pt3dadd(21.56, 531.51, -55.7, 2.83)
	pt3dadd(21.3, 536.06, -54.85, 2.83)
	pt3dadd(20.53, 539.75, -55.9, 2.83)
	pt3dadd(20.27, 544.3, -59.85, 2.83)
	pt3dadd(19.76, 549.69, -60.07, 2.83)
	pt3dadd(20.01, 554.52, -60.22, 2.83)
	pt3dadd(20.27, 561.06, -61.15, 2.83)
	pt3dadd(19.5, 564.52, -61.9, 2.83)
	pt3dadd(17.96, 567.36, -62.3, 2.83)
	pt3dadd(17.19, 571.06, -60.03, 2.83)
	pt3dadd(17.96, 574.18, -58.38, 2.83)
	pt3dadd(17.7, 579.29, -58.38, 2.83)
	pt3dadd(18.21, 583.84, -58.2, 2.83)
	pt3dadd(19.5, 587.53, -58.13, 2.83)
	pt3dadd(18.99, 591.51, -57.88, 2.83)
	pt3dadd(18.73, 594.35, -57.02, 2.83)
  }
  apic[37] {pt3dclear()
	pt3dadd(18.73, 594.35, -57.02, 1.8)
	pt3dadd(17.7, 596.91, -58.25, 1.8)
	pt3dadd(16.16, 602.02, -52.63, 1.8)
	pt3dadd(15.64, 605.71, -51.82, 1.8)
	pt3dadd(14.87, 609.69, -51.3, 1.8)
	pt3dadd(13.07, 611.68, -51.15, 1.8)
	pt3dadd(12.3, 614.86, -51.15, 1.8)
	pt3dadd(11.53, 617.99, -49.47, 1.8)
	pt3dadd(11.01, 621.4, -48.88, 1.8)
	pt3dadd(10.76, 625.66, -47.88, 1.8)
	pt3dadd(10.76, 629.63, -47.15, 1.8)
	pt3dadd(10.76, 633.04, -46.42, 1.8)
	pt3dadd(11.01, 637.59, -44.4, 1.8)
	pt3dadd(10.5, 641.85, -44.25, 1.8)
	pt3dadd(9.99, 645.54, -43.88, 1.8)
	pt3dadd(9.99, 651.22, -43.6, 1.8)
	pt3dadd(8.96, 656.39, -43.3, 1.8)
	pt3dadd(7.67, 661.79, -43.02, 1.8)
	pt3dadd(7.16, 666.62, -42.92, 1.8)
	pt3dadd(6.13, 671.45, -42.85, 1.8)
	pt3dadd(5.61, 676, -44.32, 1.8)
	pt3dadd(6.13, 680.54, -44.02, 1.8)
	pt3dadd(6.9, 683.95, -43.88, 1.8)
	pt3dadd(5.61, 687.64, -43.75, 1.8)
	pt3dadd(3.3, 689.63, -43.65, 1.8)
	pt3dadd(2.79, 693.04, -43.22, 1.8)
	pt3dadd(4.33, 697.3, -42.77, 1.8)
	pt3dadd(5.1, 701.05, -42.22, 1.8)
	pt3dadd(3.81, 704.74, -41.65, 1.8)
	pt3dadd(1.76, 707.3, -40.57, 1.8)
	pt3dadd(-0.04, 710.71, -39.32, 1.8)
	pt3dadd(-1.59, 714.69, -39.45, 1.29)
	pt3dadd(-3.64, 718.38, -37.5, 1.29)
	pt3dadd(-3.13, 722.07, -36.33, 1.29)
	pt3dadd(-2.36, 725.77, -35.53, 1.29)
	pt3dadd(-3.64, 728.89, -35.25, 1.29)
	pt3dadd(-4.41, 733.44, -34.6, 1.29)
	pt3dadd(-6.47, 738.27, -32.95, 1.29)
	pt3dadd(-6.99, 742.3, -31.48, 1.29)
	pt3dadd(-6.73, 745.99, -31.27, 1.29)
	pt3dadd(-6.47, 749.12, -30.8, 1.29)
	pt3dadd(-7.24, 753.66, -30.4, 1.29)
	pt3dadd(-7.24, 758.21, -32.55, 1.29)
	pt3dadd(-9.04, 762.19, -34.47, 1.29)
	pt3dadd(-10.07, 766.16, -34.1, 1.29)
	pt3dadd(-9.81, 769.57, -33.72, 1.29)
	pt3dadd(-9.81, 774.4, -33.4, 1.29)
	pt3dadd(-10.07, 777.53, -32.92, 1.29)
	pt3dadd(-9.81, 781.5, -28.95, 1.29)
	pt3dadd(-11.1, 786.9, -28.63, 1.29)
	pt3dadd(-11.61, 789.8, -28.23, 1.29)
	pt3dadd(-12.38, 792.64, -26.48, 1.29)
	pt3dadd(-11.1, 795.2, -25.35, 1.29)
	pt3dadd(-10.58, 799.17, -25.35, 1.29)
	pt3dadd(-11.87, 803.15, -25.15, 1.29)
	pt3dadd(-11.87, 806.84, -25.03, 1.29)
	pt3dadd(-11.36, 811.67, -24.9, 1.29)
	pt3dadd(-13.41, 816.22, -24.65, 1.29)
	pt3dadd(-14.7, 822.18, -23.7, 1.29)
	pt3dadd(-15.98, 827.01, -23.67, 1.29)
	pt3dadd(-15.73, 830.99, -23.23, 1.29)
	pt3dadd(-15.65, 835.02, -22.8, 1.29)
	pt3dadd(-16.94, 839.85, -21.75, 1.29)
	pt3dadd(-18.48, 844.11, -22.1, 1.29)
	pt3dadd(-19.76, 847.24, -23.13, 1.54)
	pt3dadd(-20.02, 849.8, -20.2, 1.54)
  }
  apic[38] {pt3dclear()
	pt3dadd(-20.02, 849.8, -20.2, 1.03)
	pt3dadd(-21.82, 850.93, -20.3, 1.03)
	pt3dadd(-23.11, 853.49, -20, 1.03)
	pt3dadd(-24.91, 855.76, -19.7, 1.03)
	pt3dadd(-27.22, 859.17, -19.5, 1.03)
	pt3dadd(-29.54, 863.15, -19.33, 1.03)
	pt3dadd(-31.08, 866.56, -22.73, 1.03)
	pt3dadd(-33.65, 869.68, -22.25, 1.03)
	pt3dadd(-35.71, 873.94, -21.92, 1.03)
	pt3dadd(-36.51, 877.06, -17.85, 1.03)
	pt3dadd(-39.09, 880.19, -19.15, 1.03)
	pt3dadd(-40.11, 882.74, -15.52, 1.03)
	pt3dadd(-40.89, 883.88, -13.92, 1.03)
	pt3dadd(-42.43, 884.73, -13.32, 1.03)
	pt3dadd(-43.71, 886.44, -12.38, 1.03)
	pt3dadd(-43.46, 889.28, -12.38, 1.03)
	pt3dadd(-44.49, 892.97, -12.07, 1.03)
	pt3dadd(-44.49, 896.66, -11.53, 1.03)
	pt3dadd(-45, 898.37, -10.73, 1.03)
	pt3dadd(-47.06, 899.5, -10.15, 1.03)
	pt3dadd(-49.37, 901.49, -9.5, 1.03)
	pt3dadd(-49.63, 903.76, -8.52, 1.03)
	pt3dadd(-49.63, 906.32, -6.7, 1.03)
  }
}
proc shape3d_14() {
  apic[38] {	pt3dadd(-50.14, 908.59, -6.1, 1.03)
	pt3dadd(-50.91, 910.58, -4.52, 1.03)
	pt3dadd(-52.2, 912.57, -3.95, 1.03)
	pt3dadd(-53.74, 914.62, -5.2, 1.03)
	pt3dadd(-54.77, 916.61, -5.05, 1.03)
  }
  apic[39] {pt3dclear()
	pt3dadd(-54.77, 916.61, -5.05, 0.51)
	pt3dadd(-53.74, 918.31, -3.25, 0.51)
	pt3dadd(-54.26, 920.3, -1.67, 0.51)
	pt3dadd(-56.06, 920.87, 0.1, 0.51)
	pt3dadd(-55.29, 922.57, 3.65, 0.51)
	pt3dadd(-53.74, 925.13, 4.15, 0.51)
	pt3dadd(-54.26, 927.4, 5.15, 0.51)
	pt3dadd(-55.8, 929.1, 5.55, 0.51)
	pt3dadd(-58.11, 929.67, 6.1, 0.51)
	pt3dadd(-59.14, 930.53, 6.38, 0.51)
	pt3dadd(-58.37, 933.08, 6.75, 0.51)
	pt3dadd(-58.37, 936.21, 7.07, 0.51)
	pt3dadd(-59.91, 939.05, 7.6, 0.51)
	pt3dadd(-60.69, 942.74, 7.13, 0.51)
	pt3dadd(-60.94, 945.87, 5.8, 0.51)
	pt3dadd(-61.71, 947.29, 4.97, 0.51)
	pt3dadd(-62.23, 950.41, 2.88, 0.51)
	pt3dadd(-60.94, 952.97, 1, 0.51)
  }
  apic[40] {pt3dclear()
	pt3dadd(-54.77, 916.61, -5.05, 0.77)
	pt3dadd(-55.8, 922.29, -4.97, 0.77)
	pt3dadd(-56.31, 926.83, -5.7, 0.77)
	pt3dadd(-58.37, 928.54, -5.45, 0.77)
	pt3dadd(-59.66, 931.66, -5.4, 0.77)
	pt3dadd(-58.37, 934.5, -5.13, 0.77)
	pt3dadd(-56.83, 938.76, -4.97, 0.77)
	pt3dadd(-57.34, 942.46, -5.27, 0.77)
	pt3dadd(-57.86, 945.87, -5.77, 0.77)
	pt3dadd(-57.09, 948.71, -5.65, 0.77)
	pt3dadd(-57.6, 952.4, -5.2, 0.77)
	pt3dadd(-56.83, 954.67, -4.22, 0.77)
	pt3dadd(-57.6, 958.08, -2.7, 0.77)
	pt3dadd(-58.63, 963.19, -2.33, 0.77)
	pt3dadd(-59.66, 965.81, -1.97, 0.77)
	pt3dadd(-57.6, 968.08, -1.22, 0.77)
	pt3dadd(-58.37, 968.93, -1.02, 0.77)
	pt3dadd(-60.17, 970.07, -0.8, 0.77)
	pt3dadd(-60.43, 972.63, -0.55, 0.77)
	pt3dadd(-60.94, 975.75, -0.2, 0.77)
	pt3dadd(-62.23, 977.46, 1, 0.77)
	pt3dadd(-60.69, 979.73, 1.22, 0.77)
	pt3dadd(-61.97, 982, 2.53, 0.77)
	pt3dadd(-64.03, 984.56, 2.63, 0.77)
	pt3dadd(-65.31, 987.68, 2.83, 0.77)
	pt3dadd(-67.11, 989.67, 3.72, 0.77)
	pt3dadd(-67.89, 992.8, 4.2, 0.77)
	pt3dadd(-68.4, 995.07, 4.47, 0.77)
	pt3dadd(-70.2, 996.49, 5.3, 0.77)
	pt3dadd(-70.2, 999.61, 5.5, 0.77)
	pt3dadd(-72, 1002.45, 6.05, 0.77)
	pt3dadd(-75.08, 1005.86, 6.2, 0.77)
	pt3dadd(-75.96, 1008.48, 7.05, 0.77)
	pt3dadd(-78.27, 1010.18, 7.3, 0.77)
	pt3dadd(-80.84, 1011.89, 7.65, 0.77)
	pt3dadd(-80.33, 1014.16, 7.72, 0.77)
	pt3dadd(-81.62, 1017, 7.95, 0.77)
	pt3dadd(-81.36, 1020.12, 7.38, 0.77)
	pt3dadd(-83.42, 1022.11, 6.55, 0.77)
	pt3dadd(-86.24, 1024.1, 5.48, 0.77)
	pt3dadd(-87.02, 1026.09, 4.2, 0.77)
	pt3dadd(-85.99, 1028.08, 2.15, 0.77)
	pt3dadd(-86.5, 1031.2, 0.65, 0.77)
	pt3dadd(-87.79, 1032.34, 0.4, 0.77)
	pt3dadd(-89.33, 1034.04, 0.17, 0.77)
	pt3dadd(-89.33, 1037.45, 0.17, 0.77)
	pt3dadd(-89.59, 1040.29, 1.15, 0.77)
	pt3dadd(-91.39, 1041.71, 1.73, 0.77)
	pt3dadd(-92.16, 1043.42, 1.65, 0.77)
	pt3dadd(-91.64, 1045.98, 0.28, 0.77)
	pt3dadd(-91.64, 1048.53, -1.45, 0.77)
	pt3dadd(-91.64, 1051.66, -2.5, 0.77)
	pt3dadd(-93.11, 1054.27, -3.9, 0.77)
	pt3dadd(-93.62, 1056.83, -4.43, 0.77)
	pt3dadd(-93.11, 1059.95, -3.88, 0.77)
	pt3dadd(-94.91, 1061.09, -2.55, 0.77)
	pt3dadd(-96.2, 1062.51, -0.47, 0.77)
	pt3dadd(-95.17, 1064.5, 0, 0.77)
	pt3dadd(-96.97, 1067.91, 0.65, 0.77)
	pt3dadd(-97.22, 1070.18, 0.95, 0.77)
	pt3dadd(-98, 1072.17, 1.22, 0.77)
	pt3dadd(-99.28, 1073.02, 1.97, 0.77)
	pt3dadd(-98.51, 1074.72, 3.65, 0.77)
	pt3dadd(-98.51, 1076.14, 4.45, 0.77)
	pt3dadd(-100.31, 1076.71, 4.72, 0.77)
	pt3dadd(-101.08, 1079.55, 5.95, 0.77)
	pt3dadd(-103.4, 1082.68, 6.35, 0.77)
	pt3dadd(-106.22, 1085.8, 5.35, 0.77)
	pt3dadd(-107.25, 1087.79, 6, 0.77)
  }
  apic[41] {pt3dclear()
	pt3dadd(-107.25, 1087.79, 6, 0.77)
	pt3dadd(-110.6, 1088.99, 4.1, 0.77)
	pt3dadd(-111.37, 1090.69, 6.05, 0.77)
  }
  apic[42] {pt3dclear()
	pt3dadd(-111.37, 1090.69, 6.05, 0.51)
	pt3dadd(-113.94, 1092.96, 6.38, 0.51)
	pt3dadd(-117.28, 1094.1, 3.7, 0.51)
	pt3dadd(-119.6, 1095.8, 2.25, 0.51)
	pt3dadd(-121.65, 1096.09, 1.85, 0.51)
	pt3dadd(-124.22, 1097.79, 1.22, 0.51)
	pt3dadd(-127.31, 1099.78, 0.6, 0.51)
	pt3dadd(-130.91, 1100.63, 0.22, 0.51)
	pt3dadd(-134.25, 1101.48, 2.83, 0.51)
	pt3dadd(-136.57, 1101.77, 3.5, 0.51)
	pt3dadd(-138.88, 1102.62, 5.15, 0.51)
	pt3dadd(-141.97, 1103.47, 6.42, 0.51)
	pt3dadd(-147.37, 1105.18, 6.88, 0.51)
	pt3dadd(-148.91, 1106.03, 8.07, 0.51)
  }
  apic[43] {pt3dclear()
	pt3dadd(-111.37, 1090.69, 6.05, 0.51)
	pt3dadd(-110.85, 1093.25, 5.75, 0.51)
	pt3dadd(-112.4, 1095.52, 8, 0.51)
	pt3dadd(-113.94, 1098.64, 8.35, 0.51)
	pt3dadd(-115.22, 1100.35, 8.97, 0.51)
	pt3dadd(-116.51, 1102.91, 6.32, 0.26)
	pt3dadd(-117.8, 1105.75, 5.37, 0.26)
	pt3dadd(-116.77, 1107.45, 3.42, 0.26)
	pt3dadd(-114.45, 1108.59, 3.32, 0.26)
  }
  apic[44] {pt3dclear()
	pt3dadd(-107.25, 1087.79, 6, 0.26)
	pt3dadd(-108.02, 1090.41, 0.12, 0.26)
	pt3dadd(-109.31, 1092.96, -1.82, 0.26)
	pt3dadd(-111.11, 1094.95, -3.75, 0.26)
	pt3dadd(-113.42, 1095.23, -5.35, 0.26)
	pt3dadd(-116.25, 1096.37, -6.88, 0.26)
	pt3dadd(-116.25, 1097.79, -8.38, 0.26)
	pt3dadd(-118.31, 1098.93, -8.63, 0.26)
	pt3dadd(-119.85, 1099.5, -9.35, 0.26)
	pt3dadd(-122.17, 1100.06, -10.02, 0.26)
	pt3dadd(-125, 1102.34, -11.73, 0.26)
	pt3dadd(-127.31, 1104.04, -13.57, 0.26)
	pt3dadd(-130.4, 1105.75, -14.07, 0.26)
	pt3dadd(-132.71, 1107.73, -14.82, 0.26)
	pt3dadd(-133.22, 1108.59, -15.68, 0.26)
	pt3dadd(-134.51, 1108.59, -15.82, 0.26)
	pt3dadd(-136.31, 1110.01, -16.25, 0.26)
	pt3dadd(-137.85, 1112.28, -17.55, 0.26)
	pt3dadd(-140.68, 1114.27, -17.72, 0.26)
	pt3dadd(-141.45, 1116.26, -19.27, 0.26)
	pt3dadd(-143.51, 1119.1, -20.97, 0.26)
	pt3dadd(-145.57, 1121.94, -21.2, 0.26)
	pt3dadd(-147.11, 1124.49, -23.07, 0.26)
	pt3dadd(-148.39, 1126.2, -24.58, 0.26)
	pt3dadd(-150.19, 1129.04, -25.95, 0.26)
	pt3dadd(-151.99, 1130.46, -28.13, 0.26)
	pt3dadd(-153.79, 1133.02, -28.82, 0.26)
	pt3dadd(-156.62, 1135.57, -30.67, 0.26)
  }
  apic[45] {pt3dclear()
	pt3dadd(-20.02, 849.8, -20.2, 1.03)
	pt3dadd(-18.18, 852.63, -20.65, 1.03)
	pt3dadd(-17.41, 856.32, -19.75, 1.03)
	pt3dadd(-18.18, 860.02, -19.13, 1.03)
	pt3dadd(-17.92, 863.14, -18.15, 1.03)
	pt3dadd(-18.18, 866.27, -17.5, 1.03)
	pt3dadd(-18.18, 869.11, -16.38, 1.03)
	pt3dadd(-16.89, 871.95, -15.3, 1.03)
	pt3dadd(-16.38, 875.07, -13.82, 1.03)
	pt3dadd(-16.64, 877.91, -9.6, 1.03)
	pt3dadd(-17.92, 879.9, -8.23, 0.77)
	pt3dadd(-18.69, 881.89, -7.87, 0.77)
	pt3dadd(-17.67, 884.16, -10.25, 0.77)
	pt3dadd(-17.41, 886.44, -11.65, 0.77)
	pt3dadd(-17.67, 888.42, -7.05, 0.77)
	pt3dadd(-18.44, 889.84, -5.8, 0.77)
	pt3dadd(-18.18, 892.12, -4.03, 0.77)
	pt3dadd(-17.92, 894.39, -2.9, 0.77)
	pt3dadd(-18.69, 895.81, -1.15, 0.77)
	pt3dadd(-19.47, 898.65, -1.82, 0.77)
	pt3dadd(-20.24, 904.39, -1, 0.77)
	pt3dadd(-20.24, 907.8, -0.77, 0.77)
	pt3dadd(-20.75, 910.07, -0.7, 0.77)
	pt3dadd(-20.24, 913.2, -0.67, 0.77)
  }
  apic[46] {pt3dclear()
	pt3dadd(-20.24, 913.2, -0.67, 0.51)
	pt3dadd(-22.29, 914.05, 0.97, 0.51)
	pt3dadd(-23.32, 915.75, 1.73, 0.51)
	pt3dadd(-23.58, 918.31, 3.42, 0.51)
	pt3dadd(-25.89, 919.73, 3.97, 0.51)
	pt3dadd(-27.18, 920.58, 4.3, 0.51)
	pt3dadd(-26.15, 922, 4.9, 0.26)
	pt3dadd(-24.09, 922.86, 5.77, 0.26)
	pt3dadd(-23.84, 924.56, 7.13, 0.26)
	pt3dadd(-23.84, 925.7, 8.25, 0.26)
  }
  apic[47] {pt3dclear()
	pt3dadd(-23.84, 925.7, 8.25, 0.26)
	pt3dadd(-21.27, 926.55, 9.72, 0.26)
	pt3dadd(-20.24, 927.4, 10.1, 0.26)
	pt3dadd(-19.98, 929.1, 10.3, 0.26)
  }
  apic[48] {pt3dclear()
	pt3dadd(-23.84, 925.7, 8.25, 0.26)
	pt3dadd(-25.38, 926.83, 8.68, 0.26)
	pt3dadd(-25.89, 928.82, 10.65, 0.26)
	pt3dadd(-26.67, 930.53, 11.75, 0.26)
	pt3dadd(-27.69, 932.23, 12.8, 0.26)
	pt3dadd(-30.01, 931.66, 13.07, 0.26)
  }
  apic[49] {pt3dclear()
	pt3dadd(-20.24, 913.2, -0.67, 0.77)
	pt3dadd(-18.18, 914.62, 1.5, 0.77)
	pt3dadd(-17.92, 917.46, 2, 0.77)
	pt3dadd(-17.92, 919.73, -0.8, 0.77)
	pt3dadd(-18.44, 921.15, -2.15, 0.77)
	pt3dadd(-18.95, 922.57, -5.03, 0.77)
	pt3dadd(-17.41, 923.71, -6.47, 0.77)
	pt3dadd(-15.87, 923.99, -7, 0.77)
	pt3dadd(-15.35, 925.98, -7.1, 0.77)
	pt3dadd(-15.87, 927.4, -7.2, 0.77)
  }
}
proc shape3d_15() {
  apic[49] {	pt3dadd(-13.81, 929.1, -7.4, 0.77)
	pt3dadd(-13.29, 931.95, -7.8, 0.77)
	pt3dadd(-12.01, 935.07, -8.27, 0.77)
	pt3dadd(-10.21, 936.49, -8.4, 0.77)
	pt3dadd(-10.21, 939.62, -8.95, 0.77)
	pt3dadd(-10.72, 942.46, -9.1, 0.77)
	pt3dadd(-8.41, 944.16, -9.35, 0.77)
	pt3dadd(-7.12, 946.49, -9.67, 0.77)
	pt3dadd(-6.35, 949.33, -9.72, 0.77)
	pt3dadd(-6.1, 951.32, -8.52, 0.77)
	pt3dadd(-6.87, 953.31, -5.85, 0.77)
	pt3dadd(-6.87, 954.73, -2.73, 0.77)
	pt3dadd(-7.12, 957.29, 0.15, 0.77)
	pt3dadd(-5.84, 960.41, 0.43, 0.77)
	pt3dadd(-4.55, 963.54, -2.27, 0.77)
	pt3dadd(-4.04, 966.38, -1.7, 0.77)
	pt3dadd(-4.04, 968.36, -1.85, 0.77)
	pt3dadd(-3.52, 970.92, 0.3, 0.77)
	pt3dadd(-1.98, 972.91, 0.65, 0.77)
	pt3dadd(-1.72, 973.76, 0.82, 0.77)
	pt3dadd(-2.24, 975.75, 0.85, 0.77)
	pt3dadd(-2.24, 977.17, 1.05, 0.77)
	pt3dadd(-1.21, 979.44, 1.9, 0.77)
	pt3dadd(-0.18, 981.72, 2.6, 0.77)
	pt3dadd(0.08, 983.76, 1.13, 0.51)
	pt3dadd(-0.18, 986.32, 4.25, 0.51)
	pt3dadd(1.1, 989.16, 6.25, 0.51)
	pt3dadd(2.13, 992, 6.42, 0.51)
	pt3dadd(3.68, 994.56, 7.77, 0.51)
	pt3dadd(5.22, 996.55, 9.45, 0.51)
	pt3dadd(5.22, 999.1, 9.8, 0.51)
	pt3dadd(5.73, 1000.81, 10.6, 0.51)
	pt3dadd(3.93, 1001.09, 11.9, 0.51)
	pt3dadd(2.65, 999.1, 12.35, 0.26)
	pt3dadd(2.39, 996.26, 12.55, 0.26)
	pt3dadd(1.88, 994.84, 12.62, 0.26)
  }
  apic[50] {pt3dclear()
	pt3dadd(18.73, 594.35, -57.02, 1.8)
	pt3dadd(19.03, 598.09, -57.42, 1.8)
	pt3dadd(18.51, 603.21, -57.92, 1.8)
	pt3dadd(17.48, 608.32, -58.05, 1.8)
	pt3dadd(17.23, 612.58, -58.42, 1.8)
	pt3dadd(16.71, 617.13, -58.47, 1.8)
	pt3dadd(16.2, 621.67, -58.55, 1.8)
	pt3dadd(15.94, 626.5, -59.05, 1.8)
	pt3dadd(14.66, 631.05, -59.15, 1.8)
	pt3dadd(14.91, 636.45, -59.5, 1.8)
	pt3dadd(14.66, 640.14, -59.5, 1.8)
	pt3dadd(14.66, 643.55, -59.58, 1.8)
	pt3dadd(15.43, 647.81, -59.75, 1.8)
	pt3dadd(14.4, 651.79, -59.97, 1.8)
	pt3dadd(14.91, 655.48, -60.55, 1.8)
  }
  apic[51] {pt3dclear()
	pt3dadd(14.91, 655.48, -60.55, 1.54)
	pt3dadd(16.46, 658.32, -55.35, 1.54)
	pt3dadd(16.71, 660.88, -53.38, 1.54)
	pt3dadd(15.68, 663.43, -52.63, 1.54)
	pt3dadd(15.43, 666.27, -52.33, 1.54)
	pt3dadd(16.2, 668.55, -52.05, 1.54)
	pt3dadd(17.23, 671.1, -52.05, 1.54)
	pt3dadd(16.2, 675.08, -51.85, 1.54)
	pt3dadd(16.46, 678.83, -51.72, 1.54)
	pt3dadd(15.68, 683.66, -51.45, 1.54)
	pt3dadd(15.94, 687.92, -51.22, 1.54)
	pt3dadd(16.2, 692.18, -51.12, 1.29)
	pt3dadd(16.2, 695.88, -51.03, 1.29)
	pt3dadd(16.71, 698.72, -50.97, 1.29)
	pt3dadd(16.46, 701.84, -50.52, 1.29)
	pt3dadd(16.46, 704.97, -50.3, 1.29)
	pt3dadd(17.23, 708.09, -49.43, 1.29)
	pt3dadd(17.74, 711.5, -49.1, 1.29)
	pt3dadd(18.26, 715.19, -48.85, 1.29)
	pt3dadd(19.54, 718.6, -48.62, 1.29)
	pt3dadd(19.8, 721.5, -48.5, 1.29)
	pt3dadd(19.03, 724.91, -47.95, 1.29)
	pt3dadd(18.51, 729.17, -47.85, 1.29)
	pt3dadd(20.31, 732.86, -47.7, 1.29)
	pt3dadd(21.08, 735.99, -47.53, 1.29)
	pt3dadd(21.34, 739.68, -47.33, 1.29)
	pt3dadd(21.6, 742.24, -46.8, 1.29)
	pt3dadd(22.63, 745.93, -46.05, 1.29)
	pt3dadd(23.14, 750.19, -45.92, 1.29)
	pt3dadd(23.14, 755.02, -45.88, 1.29)
	pt3dadd(23.91, 758.43, -45.63, 1.29)
	pt3dadd(26.48, 761.84, -45.35, 1.29)
	pt3dadd(28.54, 764.11, -45.13, 1.29)
	pt3dadd(28.28, 767.01, -44.8, 1.29)
	pt3dadd(27.51, 770.7, -43.27, 1.29)
	pt3dadd(27.51, 775.53, -43.07, 1.29)
	pt3dadd(28.54, 779.79, -42.8, 1.29)
	pt3dadd(28.8, 783.2, -42.55, 1.29)
	pt3dadd(28.54, 786.89, -42.45, 1.29)
	pt3dadd(28.03, 792.01, -42.35, 1.29)
	pt3dadd(27.77, 796.55, -41.9, 1.29)
	pt3dadd(27.77, 800.81, -41.35, 1.29)
	pt3dadd(28.54, 804.22, -40.95, 1.29)
	pt3dadd(27.77, 807.92, -40.88, 1.29)
	pt3dadd(27.77, 813.09, -40.48, 1.29)
	pt3dadd(27, 817.63, -40.05, 1.29)
	pt3dadd(25.97, 821.32, -39.78, 1.29)
	pt3dadd(26.74, 823.88, -38.47, 1.29)
	pt3dadd(27.26, 827.01, -37.7, 1.29)
	pt3dadd(27, 831.84, -36.6, 1.29)
	pt3dadd(26.23, 837.23, -36.33, 1.29)
	pt3dadd(26.48, 842.06, -36.22, 1.29)
	pt3dadd(26.48, 846.32, -35.97, 1.29)
	pt3dadd(25.46, 850.3, -35.8, 1.29)
	pt3dadd(26.48, 853.71, -35.65, 1.29)
	pt3dadd(27.51, 857.18, -35.75, 1.29)
	pt3dadd(27.77, 860.3, -35.22, 1.29)
  }
  apic[52] {pt3dclear()
	pt3dadd(27.77, 860.3, -35.22, 0.51)
	pt3dadd(26.23, 861.72, -34.9, 0.51)
	pt3dadd(24.17, 863.71, -34.63, 0.51)
	pt3dadd(23.4, 865.98, -33.97, 0.51)
	pt3dadd(23.4, 868.25, -33.65, 0.51)
	pt3dadd(22.11, 870.53, -33.3, 0.51)
	pt3dadd(20.57, 872.23, -32.1, 0.51)
	pt3dadd(19.28, 873.65, -31.13, 0.51)
	pt3dadd(19.28, 875.64, -30.7, 0.51)
	pt3dadd(19.03, 877.06, -30.3, 0.51)
	pt3dadd(19.8, 878.77, -29.17, 0.51)
	pt3dadd(19.28, 879.62, -26.28, 0.51)
	pt3dadd(19.03, 881.04, -24.58, 0.51)
	pt3dadd(19.03, 883.6, -24.25, 0.51)
	pt3dadd(19.03, 885.3, -23.23, 0.51)
	pt3dadd(19.03, 887.29, -22.1, 0.51)
	pt3dadd(18.26, 888.99, -21.48, 0.51)
	pt3dadd(18.77, 890.98, -21.15, 0.51)
	pt3dadd(18, 893.25, -18.95, 0.51)
	pt3dadd(18.26, 895.53, -17.6, 0.51)
	pt3dadd(16.71, 897.57, -17.52, 0.51)
	pt3dadd(15.68, 899.84, -17.05, 0.51)
	pt3dadd(15.68, 902.97, -16.55, 0.51)
	pt3dadd(16.71, 904.67, -16.17, 0.51)
	pt3dadd(16.97, 906.38, -15.35, 0.51)
	pt3dadd(17.48, 907.23, -11.73, 0.51)
	pt3dadd(15.43, 908.08, -8.5, 0.51)
	pt3dadd(14.66, 909.79, -8.05, 0.26)
	pt3dadd(15.43, 911.49, -7.92, 0.26)
	pt3dadd(15.17, 912.91, -7.4, 0.26)
	pt3dadd(14.4, 912.63, -6.47, 0.26)
	pt3dadd(14.4, 914.9, -5.1, 0.26)
	pt3dadd(13.63, 916.04, -3.65, 0.26)
	pt3dadd(12.34, 916.61, -1.85, 0.26)
	pt3dadd(11.83, 918.31, -0.32, 0.26)
	pt3dadd(12.86, 920.58, 1, 0.26)
	pt3dadd(13.63, 922, 1.35, 0.26)
	pt3dadd(13.37, 923.42, 1.63, 0.26)
	pt3dadd(12.08, 924.84, 2.7, 0.26)
	pt3dadd(14.14, 925.98, 2.88, 0.26)
	pt3dadd(13.11, 928.82, 4.13, 0.26)
	pt3dadd(12.08, 929.67, 5.53, 0.26)
	pt3dadd(12.6, 930.81, 6.93, 0.26)
	pt3dadd(11.31, 931.09, 7.17, 0.26)
	pt3dadd(10.28, 932.8, 7.57, 0.26)
	pt3dadd(9.77, 934.5, 8.27, 0.26)
	pt3dadd(9.26, 935.35, 9.05, 0.26)
	pt3dadd(9, 937.06, 7.8, 0.26)
	pt3dadd(7.71, 937.34, 8.55, 0.26)
	pt3dadd(6.43, 936.49, 9.3, 0.26)
	pt3dadd(5.66, 934.79, 9.55, 0.26)
	pt3dadd(7.46, 934.5, 9.67, 0.26)
  }
  apic[53] {pt3dclear()
	pt3dadd(27.77, 860.3, -35.22, 1.03)
	pt3dadd(29.27, 863.24, -35.22, 1.03)
	pt3dadd(30.04, 866.65, -33.83, 1.03)
	pt3dadd(30.3, 869.77, -32.6, 1.03)
	pt3dadd(31.33, 873.75, -32.5, 1.03)
	pt3dadd(32.61, 875.74, -32.28, 1.03)
	pt3dadd(33.38, 878.29, -32.13, 1.03)
	pt3dadd(34.41, 881.7, -31.98, 1.03)
	pt3dadd(34.67, 886.25, -31.55, 1.03)
	pt3dadd(33.9, 889.94, -31.32, 1.03)
	pt3dadd(34.16, 893.07, -31.15, 1.03)
	pt3dadd(35.18, 897.61, -30.9, 1.03)
	pt3dadd(34.93, 900.45, -30.67, 1.03)
	pt3dadd(34.67, 903.58, -30.5, 1.03)
	pt3dadd(35.44, 906.42, -30.13, 1.03)
	pt3dadd(36.21, 908.69, -29.58, 1.03)
	pt3dadd(36.47, 912.38, -29.2, 1.03)
	pt3dadd(35.96, 916.65, -28.75, 1.03)
	pt3dadd(35.96, 921.47, -28.45, 1.03)
	pt3dadd(36, 925.64, -28.72, 1.03)
	pt3dadd(37.03, 929.62, -27.27, 1.03)
	pt3dadd(36.77, 931.32, -25.87, 1.03)
	pt3dadd(35.74, 933.03, -25.47, 1.03)
	pt3dadd(34.2, 936.72, -25.17, 1.03)
	pt3dadd(33.43, 940.13, -25.07, 1.03)
	pt3dadd(34.71, 942.97, -24.58, 1.03)
	pt3dadd(36, 945.53, -23.15, 1.03)
	pt3dadd(35.49, 947.52, -22.1, 1.03)
	pt3dadd(37.03, 950.07, -21.8, 1.03)
	pt3dadd(37.8, 953.48, -21.48, 1.03)
	pt3dadd(39.86, 957.17, -21.18, 1.03)
	pt3dadd(40.89, 959.73, -20.95, 1.03)
	pt3dadd(41.4, 962.29, -20.38, 1.03)
	pt3dadd(41.91, 964.28, -19.67, 1.03)
	pt3dadd(44.23, 966.26, -18.77, 1.03)
	pt3dadd(45.51, 969.39, -18.52, 1.03)
	pt3dadd(46.8, 972.29, -18.15, 1.03)
	pt3dadd(47.31, 975.7, -18.02, 1.03)
	pt3dadd(48.6, 978.54, -17.2, 1.03)
	pt3dadd(49.11, 980.24, -16.45, 0.77)
  }
}
proc shape3d_16() {
  apic[53] {	pt3dadd(50.66, 981.66, -16.07, 0.77)
	pt3dadd(51.68, 982.51, -13.87, 0.77)
	pt3dadd(50.66, 985.35, -12.88, 0.77)
	pt3dadd(50.4, 987.34, -12.57, 0.77)
	pt3dadd(51.43, 989.05, -10.73, 0.77)
	pt3dadd(53.48, 990.18, -9.63, 0.77)
	pt3dadd(54.26, 992.74, -8.68, 0.77)
	pt3dadd(55.8, 994.73, -8.4, 0.77)
	pt3dadd(58.37, 996.15, -8.23, 0.77)
	pt3dadd(59.14, 997.85, -6.32, 0.77)
	pt3dadd(58.88, 999.84, -3.72, 0.77)
	pt3dadd(58.88, 1001.55, -3.32, 0.77)
	pt3dadd(60.68, 1004.39, -2.3, 0.77)
	pt3dadd(62.23, 1005.81, -1.07, 0.77)
	pt3dadd(62.23, 1007.23, 1.8, 0.77)
	pt3dadd(64.28, 1008.65, 2.3, 0.77)
	pt3dadd(65.83, 1010.35, 2.78, 0.77)
	pt3dadd(67.63, 1011.77, 2.85, 0.77)
	pt3dadd(69.43, 1013.54, 0.95, 0.51)
	pt3dadd(68.4, 1015.81, 1.7, 0.51)
	pt3dadd(69.17, 1017.23, 3.75, 0.51)
	pt3dadd(70.71, 1019.5, 4.72, 0.51)
	pt3dadd(71.74, 1020.64, 6.2, 0.51)
  }
  apic[54] {pt3dclear()
	pt3dadd(71.74, 1020.64, 6.2, 0.51)
	pt3dadd(74.31, 1021.49, 7.07, 0.51)
	pt3dadd(75.34, 1022.34, 8.25, 0.51)
	pt3dadd(75.6, 1024.33, 8.65, 0.51)
	pt3dadd(76.63, 1026.32, 9.52, 0.77)
  }
  apic[55] {pt3dclear()
	pt3dadd(76.63, 1026.32, 9.52, 0.51)
	pt3dadd(77.66, 1029.16, 11.07, 0.51)
	pt3dadd(78.43, 1031.15, 11.35, 0.51)
	pt3dadd(79.97, 1030.86, 11.95, 0.51)
  }
  apic[56] {pt3dclear()
	pt3dadd(76.63, 1026.32, 9.52, 0.26)
	pt3dadd(79.97, 1026.89, 9.13, 0.26)
	pt3dadd(82.03, 1028.02, 9.7, 0.26)
	pt3dadd(84.08, 1027.74, 10.28, 0.26)
	pt3dadd(86.14, 1028.59, 10.65, 0.26)
	pt3dadd(86.66, 1030.01, 10.85, 0.26)
	pt3dadd(86.91, 1031.72, 11.27, 0.26)
  }
  apic[57] {pt3dclear()
	pt3dadd(71.74, 1020.64, 6.2, 0.51)
	pt3dadd(69.94, 1021.49, 7.7, 0.51)
	pt3dadd(69.17, 1022.63, 9.32, 0.51)
	pt3dadd(70.2, 1025.47, 10.35, 0.51)
	pt3dadd(69.68, 1027.46, 12.22, 0.51)
	pt3dadd(69.17, 1029.44, 13.18, 0.51)
	pt3dadd(69.68, 1031.43, 14.6, 0.51)
  }
  apic[58] {pt3dclear()
	pt3dadd(69.68, 1031.43, 14.6, 0.26)
	pt3dadd(68.4, 1033.99, 14.85, 0.26)
	pt3dadd(67.88, 1035.41, 15.38, 0.26)
	pt3dadd(66.34, 1035.69, 15.63, 0.26)
	pt3dadd(64.54, 1036.83, 15.77, 0.26)
	pt3dadd(63.51, 1037.97, 16.17, 0.26)
	pt3dadd(64.54, 1039.1, 16.42, 0.26)
  }
  apic[59] {pt3dclear()
	pt3dadd(69.68, 1031.43, 14.6, 0.26)
	pt3dadd(71.74, 1032.28, 14.6, 0.26)
	pt3dadd(72.77, 1033.99, 15, 0.26)
	pt3dadd(73.54, 1035.69, 15.17, 0.26)
	pt3dadd(75.6, 1036.26, 15.63, 0.26)
  }
  apic[60] {pt3dclear()
	pt3dadd(14.91, 655.48, -60.55, 1.03)
	pt3dadd(13.03, 660.91, -60.97, 1.03)
	pt3dadd(12, 666.88, -61.32, 1.03)
	pt3dadd(9.94, 674.55, -61.47, 1.03)
	pt3dadd(9.17, 681.36, -61.65, 1.03)
	pt3dadd(8.4, 687.05, -62.3, 1.03)
	pt3dadd(7.11, 690.46, -63.02, 1.03)
	pt3dadd(6.08, 695.28, -63.38, 1.03)
	pt3dadd(5.06, 699.83, -64.97, 1.03)
	pt3dadd(3.26, 704.38, -65.2, 1.03)
	pt3dadd(2.48, 707.78, -65.4, 1.03)
	pt3dadd(2.74, 711.19, -65.82, 1.03)
	pt3dadd(1.97, 716.59, -63.05, 1.03)
	pt3dadd(2.21, 720.64, -63.13, 1.03)
	pt3dadd(1.44, 725.18, -61.65, 1.03)
	pt3dadd(1.19, 728.59, -60.65, 1.03)
	pt3dadd(1.44, 731.43, -60.27, 1.03)
	pt3dadd(1.7, 734.27, -60.17, 1.03)
	pt3dadd(1.19, 736.83, -60.15, 1.03)
	pt3dadd(0.16, 739.39, -60, 1.03)
	pt3dadd(0.16, 741.94, -59.87, 1.03)
	pt3dadd(0.16, 745.64, -59.65, 1.03)
	pt3dadd(-0.61, 749.33, -59.6, 1.03)
	pt3dadd(-1.9, 752.46, -59.4, 1.03)
	pt3dadd(-0.87, 755.86, -59.17, 1.03)
	pt3dadd(-1.39, 758.99, -59.05, 1.03)
	pt3dadd(-1.9, 762.4, -58.78, 1.03)
	pt3dadd(-2.16, 767.51, -58.75, 1.03)
	pt3dadd(-1.9, 771.55, -58.47, 1.03)
	pt3dadd(-0.87, 775.24, -58.5, 1.03)
	pt3dadd(-1.39, 779.78, -58.22, 1.03)
	pt3dadd(-1.13, 784.61, -57.97, 1.03)
	pt3dadd(-2.16, 787.74, -57.72, 1.03)
	pt3dadd(-2.67, 791.43, -57.47, 1.03)
	pt3dadd(-1.13, 795.41, -57, 1.03)
	pt3dadd(-1.64, 798.82, -57.85, 1.03)
	pt3dadd(-3.19, 803.36, -58.25, 1.03)
	pt3dadd(-3.7, 808.48, -58.62, 1.03)
	pt3dadd(-3.43, 813.03, -58.17, 1.03)
	pt3dadd(-3.17, 816.72, -57.67, 1.03)
	pt3dadd(-3.94, 820.98, -57.17, 1.03)
	pt3dadd(-6, 824.39, -57.1, 1.03)
	pt3dadd(-6.26, 828.09, -56.82, 1.03)
	pt3dadd(-6, 831.21, -56.35, 1.03)
	pt3dadd(-7.54, 834.62, -55.72, 1.03)
	pt3dadd(-8.57, 837.46, -54.65, 1.03)
	pt3dadd(-7.8, 840.59, -54.13, 1.03)
	pt3dadd(-7.54, 844.28, -53.72, 1.03)
	pt3dadd(-7.69, 846.98, -52.37, 1.03)
	pt3dadd(-8.72, 849.82, -50.92, 1.03)
	pt3dadd(-10.01, 854.09, -50.47, 1.03)
	pt3dadd(-10.52, 857.49, -50.25, 1.03)
	pt3dadd(-10.01, 860.62, -49.95, 1.03)
	pt3dadd(-10.78, 864.31, -49.52, 1.03)
	pt3dadd(-12.07, 867.15, -49.32, 1.03)
	pt3dadd(-11.55, 869.71, -49, 1.03)
	pt3dadd(-11.29, 873.97, -48.62, 1.03)
	pt3dadd(-11.55, 876.53, -48.25, 1.03)
	pt3dadd(-12.16, 878.43, -45.65, 1.03)
  }
  apic[61] {pt3dclear()
	pt3dadd(-12.16, 878.43, -45.65, 0.77)
	pt3dadd(-14.59, 882.28, -52.65, 0.77)
	pt3dadd(-16.13, 885.98, -52.28, 0.77)
	pt3dadd(-17.67, 887.96, -52, 0.77)
	pt3dadd(-19.99, 890.24, -51.35, 0.77)
	pt3dadd(-20.76, 893.36, -47.77, 0.77)
	pt3dadd(-22.3, 895.92, -47.33, 0.77)
	pt3dadd(-24.1, 900.18, -46.42, 0.77)
	pt3dadd(-25.9, 905.01, -46.22, 0.77)
	pt3dadd(-26.41, 907.57, -45.8, 0.77)
	pt3dadd(-27.44, 908.7, -45.1, 0.77)
	pt3dadd(-28.73, 909.27, -44.9, 0.77)
	pt3dadd(-29.49, 913.24, -44.85, 0.77)
	pt3dadd(-31.54, 917.79, -44.52, 0.77)
	pt3dadd(-32.31, 920.06, -47.22, 0.77)
	pt3dadd(-33.86, 922.33, -48.6, 0.77)
	pt3dadd(-35.4, 925.46, -49.13, 0.77)
	pt3dadd(-35.66, 928.87, -49.4, 0.77)
	pt3dadd(-36.43, 930.57, -49.85, 0.77)
	pt3dadd(-37.97, 932.84, -50.1, 0.77)
	pt3dadd(-39, 936.25, -50.65, 0.77)
	pt3dadd(-40.03, 939.09, -51.75, 0.77)
	pt3dadd(-40.29, 942.22, -51.8, 0.77)
	pt3dadd(-40.29, 945.34, -49.75, 0.77)
	pt3dadd(-41.31, 947.9, -48.78, 0.77)
	pt3dadd(-42.09, 951.59, -48.27, 0.77)
	pt3dadd(-42.34, 954.43, -47.95, 0.77)
	pt3dadd(-43.89, 957.27, -47.4, 0.77)
	pt3dadd(-44.4, 959.83, -47, 0.77)
	pt3dadd(-45.17, 963.52, -46.88, 0.77)
	pt3dadd(-46.71, 967.5, -46.7, 0.77)
	pt3dadd(-48.31, 971.34, -47.35, 0.77)
	pt3dadd(-49.6, 973.62, -47.08, 0.77)
	pt3dadd(-51.14, 974.75, -46.08, 0.77)
	pt3dadd(-52.43, 976.17, -45.68, 0.77)
	pt3dadd(-51.66, 978.73, -45.15, 0.77)
	pt3dadd(-50.89, 981.86, -44.75, 0.77)
	pt3dadd(-51.66, 984.7, -44.55, 0.77)
	pt3dadd(-52.94, 986.69, -45.92, 0.77)
	pt3dadd(-53.71, 988.96, -47.05, 0.77)
	pt3dadd(-54.23, 990.95, -48.75, 0.77)
	pt3dadd(-54.74, 994.07, -49.7, 0.77)
	pt3dadd(-55.77, 997.2, -48.47, 0.77)
	pt3dadd(-56.54, 1000.89, -49.17, 0.77)
	pt3dadd(-57.06, 1004.3, -49.27, 0.77)
	pt3dadd(-58.34, 1007.99, -49.52, 0.77)
	pt3dadd(-58.86, 1011.12, -50.57, 0.77)
	pt3dadd(-59.89, 1013.39, -53.27, 0.77)
	pt3dadd(-60.66, 1015.09, -53.58, 0.77)
	pt3dadd(-60.66, 1017.37, -53.62, 0.77)
	pt3dadd(-60.91, 1019.35, -54.15, 0.77)
	pt3dadd(-62.2, 1021.91, -55.6, 0.77)
	pt3dadd(-62.2, 1024.75, -57.25, 0.77)
	pt3dadd(-62.71, 1026.17, -57.6, 0.77)
  }
  apic[62] {pt3dclear()
	pt3dadd(-62.71, 1026.17, -57.6, 0.77)
	pt3dadd(-64.26, 1028.16, -57.6, 0.77)
	pt3dadd(-64.51, 1031, -57.75, 0.77)
	pt3dadd(-65.8, 1033.56, -58.27, 0.77)
	pt3dadd(-67.08, 1035.83, -58.45, 0.77)
	pt3dadd(-68.37, 1039.52, -59.85, 0.77)
	pt3dadd(-68.88, 1042.65, -60.4, 0.77)
	pt3dadd(-69.14, 1046.06, -61.8, 0.77)
	pt3dadd(-69.66, 1048.61, -61.82, 0.51)
	pt3dadd(-70.68, 1049.75, -61.95, 0.51)
	pt3dadd(-71.97, 1052.59, -62.45, 0.51)
	pt3dadd(-72.74, 1055.43, -63.05, 0.51)
	pt3dadd(-74.8, 1058.56, -61.77, 0.51)
	pt3dadd(-75.83, 1061.68, -62.82, 0.51)
  }
  apic[63] {pt3dclear()
	pt3dadd(-75.83, 1061.68, -62.82, 0.51)
	pt3dadd(-77.11, 1065.15, -65.07, 0.51)
	pt3dadd(-78.4, 1067.7, -65.63, 0.51)
	pt3dadd(-80.2, 1070.83, -65.97, 0.51)
	pt3dadd(-81.48, 1073.1, -66.92, 0.51)
	pt3dadd(-83.03, 1076.23, -67.5, 0.51)
	pt3dadd(-84.06, 1078.78, -68, 0.51)
	pt3dadd(-85.6, 1081.34, -69.55, 0.51)
	pt3dadd(-86.63, 1083.33, -69.55, 0.51)
	pt3dadd(-87.14, 1087.02, -69.8, 0.51)
	pt3dadd(-88.68, 1090.72, -70.45, 0.51)
	pt3dadd(-89.71, 1094.98, -70.8, 0.51)
	pt3dadd(-90.23, 1097.53, -70.82, 0.51)
	pt3dadd(-91, 1100.09, -70.85, 0.51)
	pt3dadd(-91.26, 1102.36, -71.55, 0.51)
  }
}
proc shape3d_17() {
  apic[63] {	pt3dadd(-92.28, 1104.64, -72.05, 0.51)
	pt3dadd(-93.57, 1105.77, -72.55, 0.51)
	pt3dadd(-94.08, 1108.04, -72.88, 0.51)
	pt3dadd(-95.37, 1110.32, -73.28, 0.51)
	pt3dadd(-96.14, 1113.16, -74.32, 0.51)
	pt3dadd(-97.17, 1116.28, -75.6, 0.51)
	pt3dadd(-98.2, 1119.69, -76.65, 0.51)
	pt3dadd(-98.99, 1122.12, -75.78, 0.51)
	pt3dadd(-100.53, 1124.96, -76.77, 0.51)
	pt3dadd(-102.07, 1128.37, -77.6, 0.51)
	pt3dadd(-103.61, 1131.78, -79.15, 0.51)
	pt3dadd(-105.16, 1135.19, -79.4, 0.51)
	pt3dadd(-107.47, 1136.89, -79.6, 0.51)
	pt3dadd(-108.5, 1138.03, -79.8, 0.51)
	pt3dadd(-109.53, 1140.87, -78.53, 0.51)
	pt3dadd(-109.53, 1142.57, -80.45, 0.51)
	pt3dadd(-110.3, 1143.71, -82.83, 0.51)
	pt3dadd(-111.59, 1144.84, -84.57, 0.51)
	pt3dadd(-113.13, 1147.69, -83.95, 0.51)
	pt3dadd(-113.39, 1149.96, -83.95, 0.51)
	pt3dadd(-113.39, 1151.95, -87.7, 0.51)
	pt3dadd(-113.64, 1153.65, -90.2, 0.51)
	pt3dadd(-114.67, 1155.64, -93.75, 0.51)
	pt3dadd(-114.16, 1157.91, -96.6, 0.51)
	pt3dadd(-113.13, 1160.47, -99.07, 0.51)
	pt3dadd(-113.9, 1162.46, -100.68, 0.51)
	pt3dadd(-114.41, 1165.58, -104.43, 0.51)
	pt3dadd(-115.19, 1168.42, -104.43, 0.51)
	pt3dadd(-116.73, 1171.26, -104.9, 0.51)
	pt3dadd(-117.5, 1174.67, -106.1, 0.51)
	pt3dadd(-120.84, 1176.95, -107.22, 0.51)
	pt3dadd(-125.73, 1179.79, -108.13, 0.51)
	pt3dadd(-132.16, 1180.64, -108.45, 0.51)
	pt3dadd(-134.73, 1180.35, -109.55, 0.51)
	pt3dadd(-137.56, 1181.49, -109.65, 0.51)
	pt3dadd(-140.39, 1182.34, -109.67, 0.51)
  }
  apic[64] {pt3dclear()
	pt3dadd(-75.83, 1061.68, -62.82, 0.51)
	pt3dadd(-74.89, 1064.34, -62.75, 0.51)
	pt3dadd(-75.92, 1065.76, -56.32, 0.51)
	pt3dadd(-76.44, 1067.18, -53.9, 0.51)
	pt3dadd(-76.69, 1068.6, -51.55, 0.51)
	pt3dadd(-75.66, 1069.45, -51.17, 0.51)
	pt3dadd(-75.66, 1071.72, -51.63, 0.51)
	pt3dadd(-74.64, 1073.99, -49.3, 0.51)
	pt3dadd(-72.84, 1075.7, -42, 0.51)
	pt3dadd(-71.29, 1076.84, -39.75, 0.51)
	pt3dadd(-70.52, 1078.54, -38.33, 0.51)
	pt3dadd(-69.24, 1079.68, -37.08, 0.51)
	pt3dadd(-68.21, 1082.23, -37.08, 0.51)
	pt3dadd(-68.46, 1083.65, -36.3, 0.51)
	pt3dadd(-67.18, 1084.51, -35.13, 0.51)
	pt3dadd(-67.95, 1086.21, -34, 0.51)
	pt3dadd(-68.46, 1087.91, -32.02, 0.51)
	pt3dadd(-68.46, 1089.62, -30.65, 0.51)
	pt3dadd(-67.69, 1091.32, -30.02, 0.51)
	pt3dadd(-66.41, 1092.46, -27.73, 0.51)
	pt3dadd(-65.89, 1093.88, -25.87, 0.51)
	pt3dadd(-65.64, 1096.44, -24.5, 0.51)
	pt3dadd(-64.35, 1097.57, -23.55, 0.51)
	pt3dadd(-64.61, 1100.13, -21.98, 0.51)
	pt3dadd(-64.35, 1101.55, -20.42, 0.51)
	pt3dadd(-65.64, 1102.69, -18.88, 0.51)
	pt3dadd(-64.86, 1103.82, -17.85, 0.51)
	pt3dadd(-65.64, 1106.1, -16.47, 0.51)
	pt3dadd(-65.12, 1107.23, -15.85, 0.51)
	pt3dadd(-64.35, 1108.94, -15.5, 0.51)
	pt3dadd(-64.61, 1111.21, -15.45, 0.51)
	pt3dadd(-65.12, 1112.63, -14.18, 0.51)
	pt3dadd(-65.38, 1113.77, -13.1, 0.51)
	pt3dadd(-64.61, 1116.32, -12.1, 0.51)
	pt3dadd(-63.84, 1118.31, -10.95, 0.51)
	pt3dadd(-65.12, 1119.73, -9.17, 0.51)
	pt3dadd(-65.08, 1122.84, -9.95, 0.51)
	pt3dadd(-65.08, 1124.26, -7.57, 0.51)
	pt3dadd(-62.25, 1125.97, -6.32, 0.51)
  }
  apic[65] {pt3dclear()
	pt3dadd(-62.25, 1125.97, -6.32, 0.51)
	pt3dadd(-62.77, 1128.52, -4.75, 0.51)
	pt3dadd(-63.02, 1129.66, -1, 0.51)
	pt3dadd(-63.8, 1131.08, 1.88, 0.51)
	pt3dadd(-65.08, 1130.23, 5.7, 0.51)
	pt3dadd(-65.85, 1128.81, 6.85, 0.51)
  }
  apic[66] {pt3dclear()
	pt3dadd(-62.25, 1125.97, -6.32, 0.51)
	pt3dadd(-60.45, 1126.53, -7.47, 0.51)
	pt3dadd(-57.88, 1127.1, 7.9, 0.26)
	pt3dadd(-56.34, 1127.95, 7.95, 0.26)
	pt3dadd(-55.57, 1128.24, 8.5, 0.26)
	pt3dadd(-54.54, 1127.67, 8.5, 0.26)
	pt3dadd(-54.28, 1126.53, 8.52, 0.26)
	pt3dadd(-52.48, 1126.25, 8.63, 0.26)
	pt3dadd(-51.71, 1127.39, 8.65, 0.26)
  }
  apic[67] {pt3dclear()
	pt3dadd(-62.71, 1026.17, -57.6, 0.51)
	pt3dadd(-61.89, 1028.47, -57.95, 0.51)
	pt3dadd(-61.12, 1030.46, -61.2, 0.51)
	pt3dadd(-60.09, 1031.88, -62.67, 0.51)
	pt3dadd(-58.81, 1032.73, -63.45, 0.51)
	pt3dadd(-58.29, 1034.43, -64.25, 0.51)
	pt3dadd(-57.01, 1035.86, -64.7, 0.51)
	pt3dadd(-56.24, 1037.56, -66.17, 0.51)
	pt3dadd(-55.72, 1039.26, -66.17, 0.51)
	pt3dadd(-54.69, 1040.97, -67.38, 0.51)
	pt3dadd(-54.18, 1043.53, -67.7, 0.51)
	pt3dadd(-53.92, 1045.23, -68.07, 0.51)
	pt3dadd(-52.38, 1047.79, -68.32, 0.51)
	pt3dadd(-51.35, 1049.78, -69.85, 0.51)
	pt3dadd(-50.58, 1051.76, -70.4, 0.51)
	pt3dadd(-51.09, 1054.04, -71.25, 0.51)
	pt3dadd(-49.55, 1055.74, -72.07, 0.51)
	pt3dadd(-49.55, 1057.45, -73.9, 0.51)
	pt3dadd(-49.29, 1060, -75.22, 0.51)
	pt3dadd(-49.04, 1063.13, -75.32, 0.51)
	pt3dadd(-48.78, 1065.97, -76.9, 0.51)
	pt3dadd(-47.75, 1067.67, -77.32, 0.51)
	pt3dadd(-46.98, 1069.66, -77.32, 0.51)
	pt3dadd(-46.98, 1071.37, -78.7, 0.51)
	pt3dadd(-45.44, 1072.5, -79.02, 0.51)
	pt3dadd(-43.64, 1074.77, -79.7, 0.51)
	pt3dadd(-42.86, 1077.33, -81.03, 0.51)
	pt3dadd(-42.61, 1079.6, -82.83, 0.51)
	pt3dadd(-41.58, 1081.59, -85.3, 0.51)
	pt3dadd(-41.61, 1083.76, -86.58, 0.51)
	pt3dadd(-40.59, 1085.18, -87.8, 0.51)
	pt3dadd(-39.3, 1086.6, -88.7, 0.51)
	pt3dadd(-39.3, 1088.02, -90.18, 0.51)
	pt3dadd(-38.53, 1090.86, -86.15, 0.26)
	pt3dadd(-37.5, 1093.98, -91, 0.26)
	pt3dadd(-36.47, 1097.39, -93.25, 0.26)
	pt3dadd(-35.7, 1100.8, -94.03, 0.26)
	pt3dadd(-34.67, 1104.49, -96.1, 0.26)
	pt3dadd(-33.39, 1109.04, -96.8, 0.26)
	pt3dadd(-31.59, 1113.59, -97.6, 0.26)
	pt3dadd(-30.3, 1117.28, -98.15, 0.26)
	pt3dadd(-29.53, 1118.98, -98.53, 0.26)
	pt3dadd(-28.5, 1120.4, -98.97, 0.26)
	pt3dadd(-27.73, 1123.53, -99.22, 0.26)
	pt3dadd(-27.21, 1127.51, -99.22, 0.26)
	pt3dadd(-26.19, 1130.4, -99.22, 0.26)
	pt3dadd(-25.41, 1133.24, -99.67, 0.26)
	pt3dadd(-24.64, 1135.8, -100.37, 0.26)
	pt3dadd(-23.62, 1138.36, -100.65, 0.26)
	pt3dadd(-22.33, 1140.91, -100.8, 0.26)
	pt3dadd(-21.3, 1143.19, -100.88, 0.26)
	pt3dadd(-21.56, 1144.04, -101.1, 0.26)
	pt3dadd(-20.02, 1146.03, -101.1, 0.26)
	pt3dadd(-20.02, 1148.58, -101.1, 0.26)
	pt3dadd(-18.99, 1151.14, -102, 0.26)
	pt3dadd(-18.73, 1154.55, -103.2, 0.26)
	pt3dadd(-18.73, 1156.54, -105.13, 0.26)
	pt3dadd(-16.93, 1158.81, -105.4, 0.26)
	pt3dadd(-17.44, 1161.37, -105.52, 0.26)
	pt3dadd(-15.9, 1163.92, -109.15, 0.26)
	pt3dadd(-13.59, 1165.91, -109.78, 0.26)
	pt3dadd(-11.79, 1167.9, -111.32, 0.26)
	pt3dadd(-11.02, 1170.46, -112.85, 0.26)
	pt3dadd(-11.27, 1174.15, -113.47, 0.26)
	pt3dadd(-11.02, 1177.56, -116.3, 0.26)
	pt3dadd(-10.76, 1180.68, -116.67, 0.26)
	pt3dadd(-13.07, 1182.39, -117.32, 0.26)
  }
  apic[68] {pt3dclear()
	pt3dadd(-12.16, 878.43, -45.65, 0.77)
	pt3dadd(-11.1, 882.15, -43.85, 0.77)
	pt3dadd(-10.59, 885.85, -43.2, 0.77)
	pt3dadd(-9.81, 889.82, -41.88, 0.77)
	pt3dadd(-9.04, 892.95, -41.7, 0.77)
	pt3dadd(-7.76, 895.51, -41.32, 0.77)
	pt3dadd(-8.27, 898.35, -40.77, 0.77)
	pt3dadd(-8.79, 901.47, -40.4, 0.77)
	pt3dadd(-8.53, 904.88, -40.03, 0.77)
	pt3dadd(-8.27, 907.72, -39.28, 0.77)
	pt3dadd(-7.76, 910.82, -39.25, 0.77)
	pt3dadd(-7.5, 913.66, -38.72, 0.77)
	pt3dadd(-7.76, 917.92, -38.17, 0.77)
	pt3dadd(-8.01, 921.33, -37.77, 0.77)
	pt3dadd(-7.5, 924.17, -37.35, 0.77)
	pt3dadd(-8.27, 927.29, -36.55, 0.77)
	pt3dadd(-7.24, 929.57, -35.3, 0.77)
	pt3dadd(-6.47, 931.84, -34.67, 0.77)
	pt3dadd(-7.24, 934.4, -34.45, 0.77)
	pt3dadd(-7.24, 936.67, -34.22, 0.77)
	pt3dadd(-6.73, 939.51, -34.2, 0.77)
	pt3dadd(-7.17, 942.63, -34.08, 0.77)
	pt3dadd(-7.68, 946.89, -33.7, 0.77)
	pt3dadd(-8.71, 950.02, -33.05, 0.77)
	pt3dadd(-9.74, 952.86, -32.32, 0.77)
	pt3dadd(-9.48, 955.99, -32.17, 0.77)
	pt3dadd(-9.48, 957.97, -31.52, 0.77)
	pt3dadd(-10.77, 959.39, -31.17, 0.77)
	pt3dadd(-11.28, 961.95, -30.07, 0.77)
	pt3dadd(-10.51, 964.79, -29.3, 0.77)
	pt3dadd(-9.22, 966.78, -28.77, 0.77)
	pt3dadd(-8.97, 969.34, -28.33, 0.77)
	pt3dadd(-9.48, 971.04, -27.7, 0.77)
  }
  apic[69] {pt3dclear()
	pt3dadd(-9.48, 971.04, -27.7, 0.77)
	pt3dadd(-9.74, 974.17, -27.08, 0.77)
	pt3dadd(-9.99, 977.29, -26.88, 0.77)
	pt3dadd(-10.77, 980.7, -26.63, 0.77)
	pt3dadd(-10.77, 984.11, -27.15, 0.77)
	pt3dadd(-11.28, 987.8, -26.48, 0.77)
	pt3dadd(-11.79, 990.64, -26, 0.77)
	pt3dadd(-11.79, 993.48, -24.92, 0.77)
	pt3dadd(-13.19, 996.47, -31.27, 0.77)
	pt3dadd(-12.67, 998.18, -30.65, 0.77)
  }
}
proc shape3d_18() {
  apic[69] {	pt3dadd(-11.13, 999.6, -26.98, 0.77)
	pt3dadd(-10.36, 1001.87, -26.48, 0.51)
	pt3dadd(-8.3, 1003.01, -24.48, 0.51)
	pt3dadd(-5.73, 1004.71, -24.32, 0.51)
	pt3dadd(-3.41, 1005.56, -23.57, 0.51)
	pt3dadd(-1.36, 1008.12, -21.77, 0.51)
	pt3dadd(-0.84, 1010.39, -20.9, 0.51)
	pt3dadd(-1.36, 1012.1, -19.4, 0.51)
	pt3dadd(-1.37, 1015.6, -19.7, 0.51)
	pt3dadd(-1.63, 1018.15, -18.72, 0.51)
	pt3dadd(-0.6, 1021, -15.82, 0.51)
	pt3dadd(0.17, 1023.55, -14.65, 0.51)
	pt3dadd(0.68, 1025.82, -13.85, 0.51)
	pt3dadd(2.74, 1027.25, -13.32, 0.51)
	pt3dadd(4.54, 1028.1, -11.58, 0.51)
	pt3dadd(5.57, 1029.23, -8.77, 0.51)
	pt3dadd(6.34, 1030.37, -7.92, 0.51)
	pt3dadd(7.37, 1031.79, -7.47, 0.51)
	pt3dadd(6.86, 1032.93, -7.17, 0.51)
	pt3dadd(7.63, 1034.35, -5.88, 0.51)
	pt3dadd(9.17, 1034.35, -5.22, 0.51)
	pt3dadd(10.2, 1035.77, -3.62, 0.51)
	pt3dadd(11.23, 1037.47, -2.2, 0.51)
	pt3dadd(13.28, 1038.61, -1.8, 0.51)
	pt3dadd(13.8, 1039.46, -1.13, 0.51)
	pt3dadd(12.77, 1040.88, -1, 0.51)
	pt3dadd(11.48, 1041.73, -0.77, 0.51)
	pt3dadd(12, 1044.01, -0.22, 0.51)
	pt3dadd(13.8, 1045.99, 1.75, 0.51)
	pt3dadd(15.86, 1046.56, 2.2, 0.51)
	pt3dadd(18.17, 1046.56, 2.53, 0.51)
	pt3dadd(18.94, 1048.55, 3, 0.51)
	pt3dadd(20.23, 1051.68, 3.25, 0.51)
	pt3dadd(20.48, 1055.14, 3.65, 0.51)
	pt3dadd(19.97, 1057.41, 4.07, 0.51)
	pt3dadd(21.77, 1057.98, 4.38, 0.51)
	pt3dadd(23.31, 1060.54, 1.65, 0.77)
	pt3dadd(24.08, 1063.38, 1.97, 0.77)
	pt3dadd(25.11, 1065.37, 2.05, 0.77)
	pt3dadd(24.86, 1067.93, 2.22, 0.77)
	pt3dadd(25.37, 1070.77, -0.32, 0.77)
	pt3dadd(26.66, 1073.04, -0.97, 0.77)
  }
  apic[70] {pt3dclear()
	pt3dadd(26.66, 1073.04, -0.97, 0.26)
	pt3dadd(25.37, 1075.6, -2.47, 0.26)
	pt3dadd(23.31, 1076.16, -1.63, 0.26)
	pt3dadd(22.54, 1077.02, -0.63, 0.26)
	pt3dadd(23.31, 1079.86, 0.25, 0.26)
	pt3dadd(23.57, 1080.99, 1.67, 0.26)
	pt3dadd(22.28, 1082.98, 4.47, 0.26)
	pt3dadd(23.06, 1084.69, 6.97, 0.26)
	pt3dadd(23.31, 1087.24, 7.7, 0.26)
	pt3dadd(23.57, 1089.8, 7.97, 0.26)
	pt3dadd(23.31, 1091.5, 8.95, 0.26)
	pt3dadd(23.57, 1092.92, 9.38, 0.26)
	pt3dadd(24.34, 1094.34, 10.45, 0.26)
	pt3dadd(23.57, 1095.2, 11.4, 0.26)
	pt3dadd(24.34, 1098.04, 12.25, 0.26)
	pt3dadd(23.57, 1100.59, 13.42, 0.26)
	pt3dadd(25.37, 1102.3, 13.82, 0.26)
	pt3dadd(26.4, 1104, 14.3, 0.26)
	pt3dadd(25.11, 1105.14, 14.8, 0.26)
	pt3dadd(23.83, 1105.42, 15.35, 0.26)
	pt3dadd(23.06, 1106.84, 15.4, 0.26)
	pt3dadd(24.34, 1107.41, 15.77, 0.26)
  }
  apic[71] {pt3dclear()
	pt3dadd(26.66, 1073.04, -0.97, 0.77)
	pt3dadd(27.17, 1075.88, -3.42, 0.77)
	pt3dadd(28.2, 1079.57, -4.72, 0.77)
	pt3dadd(28.2, 1084.12, -4.95, 0.77)
	pt3dadd(28.46, 1086.96, -5, 0.77)
	pt3dadd(29.23, 1091.22, -5.15, 0.77)
	pt3dadd(28.46, 1095.2, -5.22, 0.77)
	pt3dadd(28.2, 1097.19, -6.02, 0.77)
	pt3dadd(28.46, 1098.32, -6.02, 0.77)
	pt3dadd(30.26, 1100.88, -6.32, 0.77)
	pt3dadd(31.03, 1104, -6.57, 0.77)
	pt3dadd(31.28, 1106.28, -6.7, 0.77)
	pt3dadd(30.77, 1108.26, -6.8, 0.77)
	pt3dadd(32.57, 1110.54, -7, 0.51)
	pt3dadd(33.86, 1111.96, -8.07, 0.51)
	pt3dadd(34.63, 1113.66, -8.27, 0.51)
	pt3dadd(34.63, 1115.65, -9.65, 0.51)
	pt3dadd(34.37, 1117.36, -8.47, 0.51)
	pt3dadd(36.43, 1119.34, -9, 0.51)
	pt3dadd(37.2, 1121.62, -9.77, 0.51)
	pt3dadd(38.74, 1124.17, -10.8, 0.51)
  }
  apic[72] {pt3dclear()
	pt3dadd(38.74, 1124.17, -10.8, 0.26)
	pt3dadd(37.97, 1127.01, -10.95, 0.26)
	pt3dadd(36.94, 1129.29, -6.93, 0.26)
	pt3dadd(37.2, 1131.28, -6.75, 0.26)
	pt3dadd(37.2, 1134.12, -6.5, 0.26)
	pt3dadd(36.43, 1136.1, -7.55, 0.26)
	pt3dadd(36.17, 1137.81, -10.63, 0.26)
	pt3dadd(35.66, 1139.23, -12.52, 0.26)
	pt3dadd(35.4, 1141.5, -17.32, 0.26)
	pt3dadd(35.66, 1142.92, -18.77, 0.26)
	pt3dadd(36.94, 1144.91, -19.67, 0.26)
	pt3dadd(37.2, 1147.18, -20.38, 0.26)
	pt3dadd(38.23, 1148.89, -19.38, 0.26)
  }
  apic[73] {pt3dclear()
	pt3dadd(38.74, 1124.17, -10.8, 0.51)
	pt3dadd(38.74, 1127.3, -15.35, 0.51)
	pt3dadd(39.77, 1128.72, -16.02, 0.51)
	pt3dadd(39, 1130.71, -16.35, 0.51)
	pt3dadd(39.77, 1132.7, -18.48, 0.51)
	pt3dadd(40.03, 1134.68, -19.6, 0.51)
	pt3dadd(39.77, 1135.54, -20.13, 0.51)
	pt3dadd(39.51, 1137.24, -20.13, 0.51)
	pt3dadd(40.03, 1138.66, -21.25, 0.51)
	pt3dadd(39.77, 1140.37, -21.72, 0.51)
	pt3dadd(39.77, 1141.79, -22.5, 0.51)
	pt3dadd(41.06, 1142.64, -23.47, 0.51)
	pt3dadd(42.6, 1144.63, -24.42, 0.51)
	pt3dadd(43.11, 1146.33, -25.47, 0.51)
	pt3dadd(42.34, 1147.47, -26.48, 0.51)
	pt3dadd(43.63, 1149.17, -26.82, 0.51)
	pt3dadd(44.91, 1151.44, -27.32, 0.51)
	pt3dadd(46.97, 1152.3, -27.65, 0.51)
	pt3dadd(48.26, 1153.72, -28.27, 0.51)
	pt3dadd(49.8, 1155.71, -28.8, 0.51)
	pt3dadd(51.08, 1155.71, -29.2, 0.51)
	pt3dadd(53.4, 1158.26, -27.25, 0.51)
	pt3dadd(55.46, 1158.55, -29.7, 0.51)
	pt3dadd(57.77, 1159.4, -30.95, 0.51)
	pt3dadd(59.31, 1159.97, -31.52, 0.51)
	pt3dadd(61.11, 1159.68, -31.72, 0.51)
	pt3dadd(62.14, 1158.83, -31.72, 0.51)
	pt3dadd(62.91, 1158.26, -31.88, 0.51)
	pt3dadd(65.23, 1157.98, -32.08, 0.26)
	pt3dadd(67.03, 1157.69, -32.1, 0.26)
	pt3dadd(67.28, 1156.27, -32.83, 0.26)
	pt3dadd(69.6, 1154, -33.65, 0.26)
  }
  apic[74] {pt3dclear()
	pt3dadd(-9.48, 971.04, -27.7, 0.77)
	pt3dadd(-7.9, 972.28, -27.38, 0.77)
	pt3dadd(-5.59, 973.7, -25.65, 0.51)
	pt3dadd(-3.79, 975.12, -24.75, 0.51)
	pt3dadd(-1.99, 977.39, -23.4, 0.51)
	pt3dadd(-1.73, 979.1, -21.18, 0.51)
	pt3dadd(-0.44, 979.95, -20.33, 0.51)
	pt3dadd(1.1, 979.95, -19.95, 0.51)
	pt3dadd(1.61, 982.22, -19.65, 0.51)
	pt3dadd(0.59, 984.78, -19.25, 0.51)
	pt3dadd(1.87, 986.48, -18.57, 0.51)
	pt3dadd(3.93, 987.91, -18.15, 0.51)
	pt3dadd(5.99, 989.33, -17.13, 0.51)
	pt3dadd(7.01, 990.46, -16, 0.51)
	pt3dadd(5.99, 992.17, -15.55, 0.51)
	pt3dadd(6.24, 993.87, -15.15, 0.51)
	pt3dadd(8.3, 996.14, -13.7, 0.51)
  }
  apic[75] {pt3dclear()
	pt3dadd(8.3, 996.14, -13.7, 0.51)
	pt3dadd(9.33, 1000.12, -13.3, 0.51)
	pt3dadd(9.59, 1002.11, -12.93, 0.51)
	pt3dadd(9.07, 1004.95, -16.2, 0.51)
	pt3dadd(8.81, 1007.51, -17.5, 0.51)
	pt3dadd(8.56, 1011.77, -19.6, 0.51)
	pt3dadd(8.56, 1012.9, -20.3, 0.51)
	pt3dadd(7.53, 1014.04, -20.5, 0.51)
	pt3dadd(6.5, 1016.88, -20.9, 0.51)
	pt3dadd(6.76, 1020.01, -20.9, 0.51)
	pt3dadd(5.21, 1022.56, -21.02, 0.51)
	pt3dadd(5.47, 1025.97, -21.58, 0.51)
	pt3dadd(5.73, 1028.53, -22.83, 0.51)
	pt3dadd(5.99, 1031.65, -22.83, 0.51)
	pt3dadd(6.76, 1035.35, -24.7, 0.51)
	pt3dadd(7.79, 1036.77, -25.3, 0.51)
	pt3dadd(7.53, 1039.89, -25.38, 0.51)
	pt3dadd(8.3, 1043.58, -25.47, 0.51)
	pt3dadd(9.07, 1046.14, -25.65, 0.51)
	pt3dadd(9.59, 1049.61, -25.87, 0.51)
	pt3dadd(10.1, 1051.6, -25.87, 0.51)
	pt3dadd(10.61, 1053.3, -25.87, 0.51)
	pt3dadd(10.1, 1055.29, -26.07, 0.51)
	pt3dadd(10.61, 1059.27, -27.32, 0.51)
	pt3dadd(10.87, 1061.54, -28.45, 0.51)
  }
  apic[76] {pt3dclear()
	pt3dadd(10.87, 1061.54, -28.45, 0.51)
	pt3dadd(11.9, 1064.66, -28.45, 0.51)
	pt3dadd(13.19, 1067.22, -28.98, 0.51)
	pt3dadd(13.7, 1069.21, -29.05, 0.51)
	pt3dadd(13.44, 1070.35, -29.05, 0.51)
	pt3dadd(15.5, 1072.33, -29.08, 0.51)
	pt3dadd(16.27, 1074.32, -29.08, 0.51)
	pt3dadd(17.04, 1076.03, -29.08, 0.51)
	pt3dadd(18.07, 1078.87, -30.25, 0.51)
	pt3dadd(19.36, 1081.42, -30.25, 0.51)
	pt3dadd(20.64, 1083.7, -30.55, 0.51)
	pt3dadd(21.16, 1085.12, -30.55, 0.51)
	pt3dadd(21.41, 1087.11, -30.73, 0.51)
	pt3dadd(21.67, 1090.51, -31.2, 0.51)
	pt3dadd(22.11, 1093.41, -29.9, 0.51)
	pt3dadd(22.62, 1094.83, -29.72, 0.51)
	pt3dadd(23.39, 1097.67, -29.72, 0.51)
	pt3dadd(23.39, 1099.09, -29.22, 0.51)
	pt3dadd(25.14, 1100.28, -32.13, 0.29)
	pt3dadd(26.02, 1101.87, -29.85, 0.29)
	pt3dadd(27.48, 1103.15, -28.3, 0.29)
	pt3dadd(28.36, 1104.74, -27.1, 0.29)
	pt3dadd(28.07, 1107.28, -24.3, 0.29)
	pt3dadd(28.94, 1109.83, -22.6, 0.29)
	pt3dadd(29.53, 1113.01, -20.47, 0.29)
	pt3dadd(30.11, 1114.6, -18.27, 0.29)
	pt3dadd(30.11, 1116.19, -17.45, 0.29)
	pt3dadd(31.29, 1120.01, -17.4, 0.29)
  }
}
proc shape3d_19() {
  apic[76] {	pt3dadd(30.99, 1123.25, -19.55, 0.29)
	pt3dadd(29.82, 1124.85, -19.07, 0.29)
	pt3dadd(29.53, 1125.8, -21.52, 0.29)
	pt3dadd(30.41, 1128.03, -22.8, 0.29)
	pt3dadd(29.82, 1129.94, -23.35, 0.29)
	pt3dadd(30.11, 1132.8, -24.32, 0.29)
	pt3dadd(30.11, 1134.71, -25.45, 0.29)
	pt3dadd(31.29, 1136.3, -25.8, 0.29)
	pt3dadd(30.7, 1137.89, -26.45, 0.29)
	pt3dadd(30.41, 1141.07, -28.55, 0.29)
	pt3dadd(30.99, 1144.26, -29.58, 0.29)
	pt3dadd(31.87, 1145.85, -31.45, 0.29)
	pt3dadd(30.99, 1147.76, -33.47, 0.29)
	pt3dadd(32.46, 1149.66, -34.7, 0.29)
	pt3dadd(31.58, 1152.53, -36.03, 0.29)
	pt3dadd(31.58, 1154.76, -39.08, 0.29)
	pt3dadd(32.16, 1156.66, -39.38, 0.29)
	pt3dadd(33.63, 1158.57, -41.12, 0.29)
	pt3dadd(34.5, 1160.8, -43.15, 0.29)
	pt3dadd(35.67, 1162.39, -45.1, 0.29)
	pt3dadd(36.26, 1165.26, -47.22, 0.29)
	pt3dadd(37.14, 1168.44, -47.6, 0.29)
	pt3dadd(35.38, 1170.03, -47.97, 0.29)
  }
  apic[77] {pt3dclear()
	pt3dadd(10.87, 1061.54, -28.45, 0.29)
	pt3dadd(13.44, 1062.35, -28.35, 0.29)
	pt3dadd(15.2, 1064.58, -28.23, 0.29)
	pt3dadd(16.07, 1066.49, -28.02, 0.29)
	pt3dadd(19, 1068.08, -28.02, 0.29)
	pt3dadd(21.05, 1071.58, -27.27, 0.29)
	pt3dadd(22.8, 1075.08, -26.35, 0.29)
	pt3dadd(24.26, 1077.31, -26.13, 0.29)
	pt3dadd(25.43, 1079.85, -24.3, 0.29)
	pt3dadd(26.6, 1081.45, -24.13, 0.29)
	pt3dadd(28.36, 1082.72, -23.9, 0.29)
	pt3dadd(27.77, 1084.31, -22.67, 0.29)
	pt3dadd(28.94, 1085.58, -22.43, 0.29)
	pt3dadd(30.11, 1088.13, -21.82, 0.29)
	pt3dadd(30.7, 1092.58, -21.6, 0.29)
	pt3dadd(29.82, 1097.67, -21.45, 0.29)
	pt3dadd(30.7, 1100.85, -21.28, 0.29)
	pt3dadd(30.7, 1105.63, -21.07, 0.29)
	pt3dadd(30.11, 1109.13, -19.92, 0.29)
	pt3dadd(30.41, 1111.35, -19.5, 0.29)
	pt3dadd(29.53, 1113.26, -18.45, 0.29)
	pt3dadd(30.7, 1114.54, -17.92, 0.29)
	pt3dadd(31.87, 1115.81, -17.57, 0.29)
	pt3dadd(32.16, 1117.4, -16.8, 0.29)
	pt3dadd(32.46, 1118.99, -16.47, 0.29)
	pt3dadd(32.75, 1120.26, -15.77, 0.29)
	pt3dadd(33.92, 1121.54, -15.6, 0.29)
	pt3dadd(33.04, 1123.13, -15, 0.29)
	pt3dadd(33.63, 1125.04, -14.6, 0.29)
	pt3dadd(34.5, 1126.95, -14.25, 0.29)
	pt3dadd(34.21, 1128.22, -13.55, 0.29)
	pt3dadd(34.8, 1130.45, -12.9, 0.29)
	pt3dadd(35.38, 1132.67, -12, 0.29)
	pt3dadd(34.8, 1134.26, -11.63, 0.29)
	pt3dadd(33.92, 1135.54, -11.32, 0.29)
	pt3dadd(34.21, 1136.49, -11.02, 0.29)
	pt3dadd(34.5, 1138.4, -10.77, 0.29)
	pt3dadd(36.26, 1140.31, -10.55, 0.29)
	pt3dadd(38.31, 1141.9, -10.33, 0.29)
	pt3dadd(40.06, 1143.17, -10.17, 0.29)
	pt3dadd(40.7, 1144.79, -13.95, 0.29)
	pt3dadd(41.29, 1146.7, -15.63, 0.29)
	pt3dadd(43.04, 1146.7, -17.8, 0.29)
	pt3dadd(43.63, 1148.61, -18.08, 0.29)
	pt3dadd(44.5, 1150.2, -18.7, 0.29)
	pt3dadd(43.92, 1151.47, -19.82, 0.29)
	pt3dadd(43.92, 1152.11, -22.7, 0.29)
	pt3dadd(45.38, 1153.7, -24.42, 0.29)
	pt3dadd(45.97, 1153.06, -26.67, 0.29)
	pt3dadd(48.01, 1153.06, -29.22, 0.29)
	pt3dadd(49.48, 1154.66, -30.38, 0.29)
	pt3dadd(49.77, 1154.02, -32.35, 0.29)
	pt3dadd(51.52, 1155.61, -33.8, 0.29)
	pt3dadd(52.11, 1156.56, -34.25, 0.29)
	pt3dadd(53.28, 1157.84, -34.92, 0.29)
	pt3dadd(54.74, 1160.06, -35.88, 0.29)
	pt3dadd(56.5, 1161.02, -36.3, 0.29)
  }
  apic[78] {pt3dclear()
	pt3dadd(8.3, 996.14, -13.7, 0.29)
	pt3dadd(11.8, 998.81, -10.97, 0.29)
	pt3dadd(13.26, 1000.72, -10.55, 0.29)
	pt3dadd(15.02, 1001.68, -9.35, 0.29)
	pt3dadd(17.36, 1001.36, -8.15, 0.29)
	pt3dadd(17.94, 1002.31, -6.6, 0.29)
	pt3dadd(18.23, 1003.59, -5.2, 0.29)
	pt3dadd(19.99, 1003.9, -4.35, 0.29)
	pt3dadd(20.87, 1005.81, -3.9, 0.29)
	pt3dadd(22.33, 1006.45, -2.97, 0.29)
	pt3dadd(23.5, 1007.09, -1.73, 0.29)
	pt3dadd(24.38, 1008.36, -0.93, 0.29)
	pt3dadd(25.25, 1009.95, -0.55, 0.29)
	pt3dadd(26.42, 1010.59, 1.6, 0.29)
	pt3dadd(27.01, 1011.54, 3.8, 0.29)
	pt3dadd(29.35, 1012.81, 3.92, 0.29)
	pt3dadd(30.23, 1013.45, 5.72, 0.29)
	pt3dadd(31.69, 1015.04, 6.78, 0.29)
	pt3dadd(32.86, 1016.63, 7.02, 0.29)
	pt3dadd(33.44, 1017.59, 7.05, 0.29)
	pt3dadd(33.85, 1019.7, 4.9, 0.29)
	pt3dadd(35.22, 1021.04, 5.95, 0.29)
	pt3dadd(36.98, 1020.4, 6.25, 0.29)
	pt3dadd(38.44, 1019.45, 6.57, 0.29)
	pt3dadd(38.44, 1020.4, 6.75, 0.29)
	pt3dadd(38.44, 1021.67, 6.88, 0.29)
	pt3dadd(40.19, 1022.95, 7.45, 0.29)
	pt3dadd(41.95, 1022.63, 7.92, 0.29)
	pt3dadd(42.24, 1023.26, 8.35, 0.29)
	pt3dadd(42.24, 1024.22, 8.55, 0.29)
	pt3dadd(44, 1025.49, 9.15, 0.29)
	pt3dadd(45.17, 1026.76, 9.2, 0.29)
	pt3dadd(45.75, 1027.4, 9.2, 0.29)
	pt3dadd(46.92, 1028.67, 9.75, 0.29)
	pt3dadd(48.68, 1029.63, 10.07, 0.29)
	pt3dadd(49.85, 1030.26, 9.35, 0.29)
	pt3dadd(49.26, 1031.86, 9.15, 0.29)
	pt3dadd(50.72, 1033.13, 8.05, 0.29)
	pt3dadd(52.48, 1033.76, 5.95, 0.29)
	pt3dadd(52.77, 1035.04, 5.65, 0.29)
	pt3dadd(54.53, 1036.31, 4.97, 0.29)
	pt3dadd(56.57, 1037.58, 4.7, 0.29)
	pt3dadd(57.74, 1036.63, 4.3, 0.29)
	pt3dadd(59.21, 1037.26, 4.82, 0.29)
	pt3dadd(60.08, 1038.54, 6.75, 0.29)
	pt3dadd(61.84, 1039.49, 8.3, 0.29)
	pt3dadd(64.76, 1041.72, 8.65, 0.29)
	pt3dadd(67.1, 1041.72, 10.5, 0.29)
	pt3dadd(70.03, 1042.67, 10.8, 0.29)
	pt3dadd(72.95, 1043.95, 11.73, 0.29)
	pt3dadd(76.46, 1046.17, 12.47, 0.29)
	pt3dadd(77.34, 1048.72, 12.85, 0.29)
	pt3dadd(79.68, 1050.63, 12.98, 0.29)
	pt3dadd(81.14, 1050.63, 13.15, 0.29)
	pt3dadd(84.07, 1052.86, 13.38, 0.29)
  }
  apic[79] {pt3dclear()
	pt3dadd(25.36, 192.82, -44.95, 0.88)
	pt3dadd(24.19, 194.74, -45.63, 0.88)
	pt3dadd(23.02, 196.02, -51.03, 0.88)
	pt3dadd(21.86, 197.3, -55.13, 0.88)
	pt3dadd(20.1, 197.94, -57.37, 0.88)
	pt3dadd(19.52, 200.18, -60.15, 0.88)
	pt3dadd(17.77, 203.06, -63.05, 0.88)
	pt3dadd(16.6, 204.98, -63.8, 0.88)
	pt3dadd(13.98, 207.55, -65.63, 0.88)
	pt3dadd(12.52, 210.43, -66, 0.88)
	pt3dadd(10.77, 212.35, -68.13, 0.88)
	pt3dadd(9.6, 215.23, -69.05, 0.88)
	pt3dadd(9.6, 217.15, -72.17, 0.88)
	pt3dadd(9.02, 219.39, -74.13, 0.88)
	pt3dadd(7.26, 222.92, -76.45, 0.88)
	pt3dadd(6.1, 223.88, -82.3, 0.88)
	pt3dadd(4.64, 227.4, -82.38, 0.88)
	pt3dadd(3.47, 230.28, -86.13, 0.88)
	pt3dadd(1.43, 231.88, -87.72, 0.88)
	pt3dadd(1.14, 234.44, -89.95, 0.88)
	pt3dadd(-2.66, 235.4, -94.03, 0.88)
  }
  apic[80] {pt3dclear()
	pt3dadd(26.7, 153.46, -49.4, 1.17)
	pt3dadd(28.28, 154.05, -49.4, 1.17)
	pt3dadd(30.32, 153.09, -40.57, 1.17)
	pt3dadd(31.49, 154.37, -36.33, 1.17)
	pt3dadd(33.53, 155.33, -33.33, 1.17)
	pt3dadd(35.57, 155.97, -32.4, 1.17)
  }
  apic[81] {pt3dclear()
	pt3dadd(35.57, 155.97, -32.4, 1.17)
	pt3dadd(38.2, 156.61, -31.2, 1.17)
	pt3dadd(40.53, 156.93, -32.47, 1.17)
	pt3dadd(43.16, 156.93, -33.95, 1.17)
	pt3dadd(46.66, 159.17, -34.88, 1.17)
  }
  apic[82] {pt3dclear()
	pt3dadd(46.66, 159.17, -34.88, 1.17)
	pt3dadd(47.54, 160.77, -30.83, 1.17)
	pt3dadd(49.87, 162.37, -31.4, 1.17)
	pt3dadd(51.91, 164.3, -28.92, 0.88)
	pt3dadd(53.87, 163.99, -26.8, 0.88)
	pt3dadd(56.78, 165.59, -26.13, 0.88)
	pt3dadd(57.66, 168.15, -25.7, 0.88)
	pt3dadd(59.7, 170.71, -25.03, 0.88)
	pt3dadd(62.33, 171.99, -23.57, 0.88)
	pt3dadd(64.08, 173.91, -23.02, 0.88)
	pt3dadd(66.41, 174.55, -21.32, 0.88)
	pt3dadd(67.87, 175.19, -20.5, 0.88)
  }
  apic[83] {pt3dclear()
	pt3dadd(67.87, 175.19, -20.5, 0.88)
	pt3dadd(71.08, 176.16, -19.82, 0.88)
	pt3dadd(73.13, 177.12, -19.17, 0.88)
	pt3dadd(74.58, 179.36, -20.3, 0.88)
	pt3dadd(75.17, 181.92, -24.35, 0.88)
	pt3dadd(76.04, 184.48, -24.8, 0.88)
	pt3dadd(76.92, 186.4, -27.97, 0.88)
	pt3dadd(77.21, 188.32, -31.27, 0.88)
	pt3dadd(76.34, 190.89, -31.58, 0.88)
	pt3dadd(75.46, 193.13, -32.47, 0.88)
	pt3dadd(75.75, 194.41, -32.6, 0.88)
	pt3dadd(76.63, 196.01, -32.63, 0.88)
	pt3dadd(77.79, 198.25, -32.65, 0.88)
	pt3dadd(78.96, 198.89, -33.15, 0.88)
	pt3dadd(78.96, 201.45, -33.33, 0.88)
	pt3dadd(79.55, 203.69, -33.83, 0.88)
	pt3dadd(80.42, 204.97, -33.97, 0.88)
	pt3dadd(81.3, 206.26, -31.52, 0.88)
	pt3dadd(82.46, 208.18, -29.45, 0.88)
	pt3dadd(82.17, 211.06, -29.05, 0.88)
	pt3dadd(82.46, 212.98, -32.92, 0.88)
  }
}
proc shape3d_20() {
  apic[83] {	pt3dadd(83.05, 215.86, -34.42, 0.88)
	pt3dadd(83.34, 217.46, -35.4, 0.88)
	pt3dadd(85.09, 219.38, -37.02, 0.88)
	pt3dadd(85.97, 221.31, -37.8, 0.88)
	pt3dadd(86.84, 224.19, -38.03, 0.88)
	pt3dadd(89.18, 226.11, -38.9, 0.88)
	pt3dadd(90.63, 228.35, -40.03, 0.88)
  }
  apic[84] {pt3dclear()
	pt3dadd(90.63, 228.35, -40.03, 0.29)
	pt3dadd(94.39, 229.66, -40.35, 0.29)
	pt3dadd(95.85, 230.31, -42.53, 0.29)
	pt3dadd(97.02, 231.59, -44.27, 0.29)
	pt3dadd(98.18, 230.95, -44.85, 0.29)
	pt3dadd(100.23, 231.27, -45.22, 0.29)
	pt3dadd(103.44, 232.87, -45.42, 0.29)
	pt3dadd(105.19, 234.47, -45.57, 0.29)
	pt3dadd(108.4, 235.75, -45.92, 0.29)
	pt3dadd(110.73, 236.71, -47.1, 0.29)
	pt3dadd(112.78, 235.75, -47.25, 0.29)
	pt3dadd(116.28, 236.39, -43.7, 0.29)
	pt3dadd(118.03, 235.11, -42.92, 0.29)
	pt3dadd(119.78, 234.47, -39.88, 0.29)
	pt3dadd(123.28, 233.51, -38.17, 0.29)
	pt3dadd(125.61, 231.91, -37.15, 0.29)
	pt3dadd(128.24, 231.27, -34.88, 0.29)
  }
  apic[85] {pt3dclear()
	pt3dadd(90.63, 228.35, -40.03, 0.29)
	pt3dadd(93.58, 232.43, -40.2, 0.29)
	pt3dadd(95.33, 236.28, -40.4, 0.29)
	pt3dadd(98.54, 237.88, -40.45, 0.29)
	pt3dadd(100.29, 240.44, -40.45, 0.29)
	pt3dadd(104.67, 241.4, -40.52, 0.29)
	pt3dadd(105.84, 242.04, -41.22, 0.29)
	pt3dadd(106.13, 243.96, -41.52, 0.29)
	pt3dadd(108.17, 246.52, -41.8, 0.29)
	pt3dadd(110.5, 248.12, -42.53, 0.29)
	pt3dadd(112.55, 251.33, -43.27, 0.29)
	pt3dadd(114.01, 254.21, -43.55, 0.29)
	pt3dadd(116.34, 256.77, -44.32, 0.29)
	pt3dadd(118.97, 256.77, -45.92, 0.29)
	pt3dadd(120.43, 258.37, -47.63, 0.29)
	pt3dadd(122.18, 260.29, -48.15, 0.29)
	pt3dadd(123.34, 262.53, -50.68, 0.29)
	pt3dadd(126.26, 264.78, -50.72, 0.29)
	pt3dadd(128.89, 267.98, -50.77, 0.29)
	pt3dadd(130.64, 269.58, -52.28, 0.29)
	pt3dadd(131.81, 272.14, -53.97, 0.29)
	pt3dadd(134.43, 273.74, -53.05, 0.29)
	pt3dadd(136.18, 275.02, -53.92, 0.29)
	pt3dadd(138.23, 276.94, -55.4, 0.29)
	pt3dadd(139.69, 278.22, -57.63, 0.29)
	pt3dadd(140.27, 280.79, -58.27, 0.29)
  }
  apic[86] {pt3dclear()
	pt3dadd(67.87, 175.19, -20.5, 0.29)
	pt3dadd(67.61, 176.72, -18.13, 0.29)
	pt3dadd(65.86, 178.64, -15.52, 0.29)
	pt3dadd(64.98, 180.56, -14.88, 0.29)
	pt3dadd(64.69, 183.12, -12.93, 0.29)
	pt3dadd(63.81, 185.04, -11.25, 0.29)
	pt3dadd(62.36, 185.68, -9.57, 0.29)
	pt3dadd(60.31, 187.28, -8.38, 0.29)
	pt3dadd(61.48, 190.17, -6.22, 0.29)
	pt3dadd(62.36, 192.41, -4.2, 0.29)
	pt3dadd(62.65, 194.33, -2.83, 0.29)
	pt3dadd(62.06, 197.21, -2.65, 0.29)
	pt3dadd(61.77, 200.09, -2.47, 0.29)
	pt3dadd(62.06, 202.97, -2.75, 0.29)
	pt3dadd(61.77, 205.22, -4.15, 0.29)
	pt3dadd(61.77, 206.5, -5.77, 0.29)
	pt3dadd(60.9, 209.06, -7.55, 0.29)
	pt3dadd(61.77, 210.98, -7.95, 0.29)
	pt3dadd(62.06, 212.26, -7.17, 0.29)
	pt3dadd(62.36, 213.22, -3.78, 0.29)
	pt3dadd(60.9, 215.78, -3.08, 0.29)
	pt3dadd(60.6, 216.74, -2.53, 0.29)
	pt3dadd(60.9, 218.99, 0.05, 0.29)
	pt3dadd(62.06, 221.87, 0.5, 0.29)
	pt3dadd(62.94, 223.15, 0.6, 0.29)
	pt3dadd(64.11, 224.43, -4.55, 0.29)
	pt3dadd(62.94, 225.71, -5.92, 0.29)
	pt3dadd(63.52, 226.35, -7.65, 0.29)
	pt3dadd(63.23, 227.95, -10.07, 0.29)
	pt3dadd(63.23, 229.87, -11.17, 0.29)
	pt3dadd(64.4, 231.15, -11.27, 0.29)
	pt3dadd(67.32, 233.07, -10.48, 0.29)
  }
  apic[87] {pt3dclear()
	pt3dadd(46.66, 159.17, -34.88, 1.17)
	pt3dadd(50.1, 158.79, -34.88, 1.17)
	pt3dadd(53.02, 159.11, -35.67, 1.17)
	pt3dadd(55.94, 158.14, -36.27, 1.17)
	pt3dadd(58.85, 157.82, -36.27, 1.17)
	pt3dadd(60.9, 159.43, -37.38, 1.17)
	pt3dadd(63.81, 160.39, -38.05, 1.17)
	pt3dadd(67.32, 161.03, -38.25, 1.17)
	pt3dadd(71.11, 159.75, -37.32, 1.17)
	pt3dadd(73.44, 157.82, -39.67, 1.17)
	pt3dadd(75.2, 157.18, -39.67, 0.88)
	pt3dadd(78.7, 158.79, -37.77, 0.88)
	pt3dadd(80.74, 159.75, -40.48, 0.88)
	pt3dadd(83.37, 159.11, -40.52, 0.88)
	pt3dadd(85.7, 157.82, -40.9, 0.88)
	pt3dadd(87.16, 159.43, -41.12, 0.88)
	pt3dadd(90.66, 160.71, -39.4, 0.88)
	pt3dadd(94.46, 160.71, -38.8, 0.88)
	pt3dadd(97.96, 161.35, -38.55, 0.88)
	pt3dadd(100.29, 159.43, -38.4, 0.88)
	pt3dadd(103.21, 161.67, -37.75, 0.88)
	pt3dadd(107, 161.67, -37.5, 0.88)
	pt3dadd(110.51, 161.03, -36.38, 0.88)
	pt3dadd(113.42, 161.67, -35.02, 0.88)
	pt3dadd(115.47, 161.99, -33.47, 0.88)
	pt3dadd(119.55, 162.31, -32.72, 0.88)
	pt3dadd(121.59, 161.35, -32.4, 0.88)
	pt3dadd(123.34, 163.27, -33.92, 0.88)
	pt3dadd(125.68, 164.23, -36.1, 0.88)
	pt3dadd(129.47, 164.23, -36.2, 0.88)
	pt3dadd(131.27, 165.67, -35.02, 0.88)
	pt3dadd(132.73, 167.92, -33.92, 0.58)
	pt3dadd(136.23, 168.24, -32.25, 0.58)
	pt3dadd(139.15, 168.24, -32.02, 0.58)
	pt3dadd(140.61, 169.2, -30.8, 0.58)
	pt3dadd(142.06, 171.76, -30.47, 0.58)
	pt3dadd(143.09, 174.68, -30.47, 0.58)
	pt3dadd(144.25, 176.92, -34.88, 0.58)
	pt3dadd(147.17, 178.2, -36.25, 0.58)
	pt3dadd(149.21, 178.52, -37.05, 0.58)
	pt3dadd(150.67, 179.81, -37.2, 0.58)
	pt3dadd(153.59, 181.09, -38.97, 0.58)
	pt3dadd(157.09, 182.05, -40.05, 0.29)
	pt3dadd(159.43, 183.01, -40.85, 0.29)
	pt3dadd(160.3, 184.29, -41.12, 0.29)
	pt3dadd(162.64, 184.61, -42.77, 0.29)
	pt3dadd(166.14, 184.29, -44.1, 0.29)
	pt3dadd(167.89, 185.89, -45.2, 0.29)
	pt3dadd(168.18, 187.81, -45.88, 0.29)
  }
  apic[88] {pt3dclear()
	pt3dadd(35.57, 155.97, -32.4, 1.17)
	pt3dadd(35.41, 157.39, -26.5, 1.17)
  }
  apic[89] {pt3dclear()
	pt3dadd(35.41, 157.39, -26.5, 0.88)
	pt3dadd(36.57, 159.31, -24.17, 0.88)
	pt3dadd(36.86, 161.55, -23.27, 0.88)
	pt3dadd(38.62, 162.51, -19.97, 0.88)
	pt3dadd(39.49, 162.83, -16.95, 0.88)
	pt3dadd(37.45, 162.19, -15.75, 0.88)
	pt3dadd(38.03, 163.15, -12.88, 0.88)
	pt3dadd(36.28, 163.8, -10.33, 0.58)
	pt3dadd(35.11, 163.8, -12.7, 0.58)
	pt3dadd(35.99, 165.72, -8.97, 0.58)
	pt3dadd(36.86, 167, -3.1, 0.58)
	pt3dadd(35.7, 167.64, -1.5, 0.58)
	pt3dadd(36.57, 170.2, 1.55, 0.58)
	pt3dadd(35.99, 170.2, 5.37, 0.58)
	pt3dadd(35.11, 169.88, 10.52, 0.58)
  }
  apic[90] {pt3dclear()
	pt3dadd(35.11, 169.88, 10.52, 0.29)
	pt3dadd(32.78, 168.28, 10.52, 0.29)
	pt3dadd(32.2, 166.36, 10.92, 0.29)
	pt3dadd(30.44, 164.44, 10.92, 0.29)
  }
  apic[91] {pt3dclear()
	pt3dadd(35.11, 169.88, 10.52, 0.29)
	pt3dadd(36.28, 172.12, 10.52, 0.29)
	pt3dadd(35.7, 173.08, 14.2, 0.29)
	pt3dadd(34.24, 173.4, 14.45, 0.29)
	pt3dadd(33.36, 174.36, 14.72, 0.29)
	pt3dadd(32.2, 173.08, 15.35, 0.29)
  }
  apic[92] {pt3dclear()
	pt3dadd(35.41, 157.39, -26.5, 0.88)
	pt3dadd(33.07, 159.31, -21.98, 0.88)
	pt3dadd(29.57, 160.59, -21, 0.88)
	pt3dadd(27.23, 162.83, -20.5, 0.88)
	pt3dadd(26.07, 164.44, -18.92, 0.88)
	pt3dadd(24.02, 166.36, -18.77, 0.88)
	pt3dadd(23.15, 167.96, -16.63, 0.88)
  }
  apic[93] {pt3dclear()
	pt3dadd(23.15, 167.96, -16.63, 0.88)
	pt3dadd(23.91, 170.15, -13.77, 0.88)
	pt3dadd(22.46, 171.11, -12.85, 0.88)
	pt3dadd(21, 172.39, -11.63, 0.88)
	pt3dadd(21.87, 174.63, -9.27, 0.88)
	pt3dadd(22.75, 176.55, -6.65, 0.88)
	pt3dadd(21.29, 178.8, -4.5, 0.88)
	pt3dadd(19.83, 180.08, -3.7, 0.88)
	pt3dadd(20.12, 182.64, -2, 0.88)
	pt3dadd(20.41, 185.52, -1.9, 0.88)
	pt3dadd(19.83, 187.44, -1.7, 0.88)
	pt3dadd(19.83, 190, -1.55, 0.88)
	pt3dadd(20.41, 192.56, -1.47, 0.88)
	pt3dadd(19.83, 196.41, -1.4, 0.88)
	pt3dadd(18.95, 200.57, -0.8, 0.88)
	pt3dadd(17.2, 203.45, -0.8, 0.88)
	pt3dadd(15.74, 204.73, -0.65, 0.88)
	pt3dadd(17.49, 206.65, -0.2, 0.88)
	pt3dadd(18.66, 209.22, 0.17, 0.88)
	pt3dadd(18.66, 211.78, 0.45, 0.88)
	pt3dadd(17.49, 214.02, 1.38, 0.88)
	pt3dadd(17.79, 216.58, 1.8, 0.88)
	pt3dadd(17.49, 219.14, 1.9, 0.88)
	pt3dadd(18.08, 221.38, 1.2, 0.88)
	pt3dadd(19.25, 222.99, 0.05, 0.88)
	pt3dadd(18.08, 225.55, -0.67, 0.88)
	pt3dadd(18.37, 228.75, -2.33, 0.88)
	pt3dadd(17.79, 231.63, -3.4, 0.88)
	pt3dadd(15.45, 233.23, -3.5, 0.88)
	pt3dadd(12.83, 235.15, -4.75, 0.58)
	pt3dadd(11.66, 237.39, -5.53, 0.58)
	pt3dadd(11.37, 240.28, -6.65, 0.58)
	pt3dadd(11.95, 242.84, -6.73, 0.58)
	pt3dadd(11.37, 246.68, -6.9, 0.58)
	pt3dadd(9.91, 247.32, -6.9, 0.58)
  }
}
proc shape3d_21() {
  apic[93] {	pt3dadd(6.7, 248.6, -7, 0.58)
	pt3dadd(4.36, 249.56, -7.53, 0.58)
	pt3dadd(2.9, 248.92, -7.67, 0.58)
  }
  apic[94] {pt3dclear()
	pt3dadd(23.15, 167.96, -16.63, 0.88)
	pt3dadd(21.29, 167.52, -15.8, 0.88)
	pt3dadd(19.25, 168.16, -13.23, 0.88)
	pt3dadd(17.49, 167.52, -11.1, 0.88)
	pt3dadd(16.33, 166.24, -9.3, 0.88)
	pt3dadd(13.12, 164.64, -9.02, 0.88)
	pt3dadd(9.91, 164, -8.47, 0.88)
	pt3dadd(7.28, 163.68, -8.42, 0.88)
  }
  apic[95] {pt3dclear()
	pt3dadd(7.28, 163.68, -8.42, 0.58)
	pt3dadd(4.36, 161.76, -10.63, 0.58)
	pt3dadd(2.32, 161.12, -10.17, 0.58)
	pt3dadd(0.28, 161.12, -8.82, 0.58)
	pt3dadd(-0.01, 161.44, -4.9, 0.58)
	pt3dadd(-0.89, 160.48, -1.02, 0.58)
	pt3dadd(-2.06, 160.16, -0.57, 0.58)
	pt3dadd(-2.93, 160.8, 1, 0.58)
	pt3dadd(-2.93, 162.4, 3.8, 0.58)
	pt3dadd(-4.68, 163.04, 4.75, 0.58)
	pt3dadd(-6.73, 164.32, 5.07, 0.58)
	pt3dadd(-8.77, 165.6, 6.65, 0.58)
	pt3dadd(-10.81, 165.28, 7.5, 0.58)
	pt3dadd(-13.15, 164.64, 8.25, 0.58)
	pt3dadd(-13.44, 165.92, 10.1, 0.58)
	pt3dadd(-15.48, 167.52, 11.85, 0.58)
	pt3dadd(-17.52, 167.52, 12.4, 0.58)
	pt3dadd(-19.27, 167.52, 12.75, 0.58)
	pt3dadd(-20.73, 167.52, 14.38, 0.58)
	pt3dadd(-23.36, 167.52, 14.57, 0.58)
	pt3dadd(-26.28, 167.52, 15.05, 0.58)
  }
  apic[96] {pt3dclear()
	pt3dadd(7.28, 163.68, -8.42, 0.58)
	pt3dadd(5.24, 165.6, -8.4, 0.58)
	pt3dadd(3.49, 164.32, -6.52, 0.58)
	pt3dadd(2.03, 164.64, -4.78, 0.58)
	pt3dadd(1.74, 165.6, -3.42, 0.58)
	pt3dadd(-1.18, 165.28, -1.58, 0.58)
	pt3dadd(-2.35, 166.56, 1.45, 0.58)
	pt3dadd(-2.93, 168.16, 3.08, 0.58)
	pt3dadd(-3.81, 169.45, 4.75, 0.58)
	pt3dadd(-5.56, 168.81, 6.75, 0.58)
	pt3dadd(-7.31, 168.48, 7.65, 0.58)
	pt3dadd(-7.31, 169.77, 8.25, 0.58)
	pt3dadd(-9.35, 170.41, 13, 0.58)
	pt3dadd(-9.64, 170.41, 13.57, 0.58)
  }
  apic[97] {pt3dclear()
	pt3dadd(-9.64, 170.41, 13.57, 0.58)
	pt3dadd(-11.98, 169.45, 9.35, 0.58)
	pt3dadd(-14.6, 169.13, 8.05, 0.58)
	pt3dadd(-16.36, 169.45, 6.05, 0.58)
  }
  apic[98] {pt3dclear()
	pt3dadd(-9.64, 170.41, 13.57, 0.58)
	pt3dadd(-9.64, 172.33, 13.57, 0.58)
	pt3dadd(-9.94, 174.25, 12.2, 0.58)
	pt3dadd(-10.81, 174.89, 11.13, 0.58)
  }
  apic[99] {pt3dclear()
	pt3dadd(26.54, 126.47, -42.17, 1.17)
	pt3dadd(28, 125.83, -42.33, 1.17)
	pt3dadd(31.5, 125.51, -45.03, 1.17)
	pt3dadd(35.3, 124.87, -46.88, 1.17)
	pt3dadd(38.51, 123.27, -46.88, 1.17)
	pt3dadd(40.55, 121.67, -47.9, 1.17)
	pt3dadd(43.17, 120.39, -50.07, 1.17)
	pt3dadd(46.97, 119.75, -51.17, 1.17)
	pt3dadd(51.05, 117.83, -51.38, 1.17)
	pt3dadd(53.1, 117.19, -51.67, 1.17)
	pt3dadd(54.56, 116.55, -51.67, 1.17)
  }
  apic[100] {pt3dclear()
	pt3dadd(54.56, 116.55, -51.67, 1.17)
	pt3dadd(56.01, 116.23, -50.22, 1.17)
	pt3dadd(58.64, 116.23, -47.9, 1.17)
  }
  apic[101] {pt3dclear()
	pt3dadd(58.64, 116.23, -47.9, 0.88)
	pt3dadd(60.39, 117.83, -45.88, 0.88)
	pt3dadd(63.02, 117.83, -44.65, 0.88)
	pt3dadd(65.06, 117.51, -42.8, 0.88)
	pt3dadd(66.52, 118.47, -38.57, 0.88)
	pt3dadd(69.44, 119.11, -37.6, 0.88)
	pt3dadd(71.48, 120.07, -36.97, 0.88)
	pt3dadd(72.65, 121.99, -35.45, 0.88)
	pt3dadd(75.27, 122.95, -34.32, 0.88)
	pt3dadd(77.32, 123.59, -37.45, 0.88)
	pt3dadd(79.07, 125.51, -33.33, 0.88)
	pt3dadd(81.69, 125.83, -31.63, 0.88)
	pt3dadd(83.74, 126.47, -30.47, 0.88)
	pt3dadd(85.49, 127.43, -29.62, 0.88)
	pt3dadd(88.99, 128.39, -29.27, 0.88)
	pt3dadd(91.03, 127.43, -28.92, 0.88)
	pt3dadd(93.37, 127.43, -31.85, 0.88)
	pt3dadd(96.87, 129.35, -31.52, 0.88)
	pt3dadd(99.49, 130.96, -33.07, 0.88)
	pt3dadd(102.41, 132.24, -33.67, 0.88)
	pt3dadd(104.46, 132.56, -35.85, 0.88)
	pt3dadd(105.91, 132.24, -39.5, 0.88)
	pt3dadd(109.71, 133.2, -41.42, 0.88)
	pt3dadd(111.46, 134.16, -41.88, 0.88)
	pt3dadd(112.63, 134.48, -41.1, 0.58)
	pt3dadd(113.5, 135.76, -41.2, 0.58)
	pt3dadd(113.79, 137.36, -41.7, 0.58)
	pt3dadd(116.42, 138.32, -41.88, 0.58)
	pt3dadd(119.05, 139.6, -43.4, 0.58)
	pt3dadd(121.67, 141.52, -46.57, 0.58)
	pt3dadd(122.55, 142.48, -47.7, 0.58)
	pt3dadd(124.01, 143.12, -47.75, 0.58)
	pt3dadd(126.34, 145.05, -48.15, 0.58)
	pt3dadd(128.09, 146.01, -44.32, 0.58)
	pt3dadd(131.01, 146.65, -42.67, 0.58)
	pt3dadd(132.76, 147.29, -42.17, 0.58)
	pt3dadd(134.8, 149.21, -42.08, 0.58)
	pt3dadd(136.56, 149.21, -41.82, 0.58)
	pt3dadd(137.72, 150.49, -43.62, 0.58)
	pt3dadd(140.35, 150.81, -44.17, 0.58)
	pt3dadd(143.1, 152.16, -41.3, 0.58)
	pt3dadd(144.85, 153.12, -40.3, 0.58)
	pt3dadd(147.48, 152.8, -41.93, 0.58)
	pt3dadd(149.82, 154.72, -42.95, 0.58)
	pt3dadd(152.15, 156.96, -44.63, 0.58)
	pt3dadd(153.61, 157.28, -46.67, 0.58)
	pt3dadd(155.36, 158.56, -47.47, 0.58)
	pt3dadd(157.4, 161.12, -48, 0.58)
	pt3dadd(159.74, 162.76, -45, 0.58)
	pt3dadd(160.91, 164.04, -44, 0.29)
	pt3dadd(160.91, 165.64, -41.57, 0.29)
	pt3dadd(160.91, 168.84, -40.5, 0.29)
	pt3dadd(161.2, 170.44, -39.63, 0.29)
	pt3dadd(161.78, 172.04, -37.92, 0.29)
	pt3dadd(162.95, 172.36, -35.97, 0.29)
  }
  apic[102] {pt3dclear()
	pt3dadd(58.64, 116.23, -47.9, 0.88)
	pt3dadd(59.74, 114.4, -45.4, 0.88)
	pt3dadd(63.53, 113.44, -44.92, 0.88)
	pt3dadd(66.45, 112.48, -43.82, 0.88)
	pt3dadd(70.24, 112.16, -41.9, 0.88)
	pt3dadd(72.87, 111.2, -41.52, 0.88)
	pt3dadd(75.2, 109.6, -41.17, 0.88)
	pt3dadd(77.24, 108, -39.58, 0.88)
	pt3dadd(78.7, 106.72, -37.95, 0.88)
	pt3dadd(80.75, 106.72, -37.67, 0.88)
	pt3dadd(83.37, 105.12, -37.25, 0.88)
	pt3dadd(85.12, 104.16, -37.05, 0.88)
	pt3dadd(86.87, 104.16, -36.92, 0.88)
	pt3dadd(88.63, 105.12, -36.88, 0.88)
	pt3dadd(91.25, 103.84, -36.72, 0.88)
	pt3dadd(94.17, 103.84, -36.3, 0.88)
	pt3dadd(96.5, 103.2, -34.88, 0.88)
	pt3dadd(99.13, 102.56, -34.75, 0.88)
	pt3dadd(102.34, 101.92, -34.75, 0.88)
	pt3dadd(105.84, 102.56, -34.6, 0.88)
	pt3dadd(108.76, 102.56, -34.6, 0.88)
	pt3dadd(110.51, 100.96, -34.58, 0.88)
	pt3dadd(112.55, 100.31, -34.42, 0.88)
	pt3dadd(114.6, 98.39, -34.42, 0.88)
	pt3dadd(116.06, 97.43, -33.53, 0.88)
	pt3dadd(118.1, 97.43, -33.83, 0.88)
	pt3dadd(119.27, 96.15, -34.58, 0.88)
	pt3dadd(121.89, 96.47, -35.3, 0.88)
	pt3dadd(123.94, 95.19, -36.52, 0.88)
	pt3dadd(125.69, 93.59, -38, 0.88)
	pt3dadd(127.73, 91.99, -39.47, 0.88)
	pt3dadd(130.36, 91.67, -40.17, 0.88)
	pt3dadd(133.86, 92.31, -43.53, 0.58)
	pt3dadd(136.19, 91.99, -42.8, 0.58)
	pt3dadd(138.23, 91.03, -40.97, 0.58)
	pt3dadd(139.11, 89.43, -40.25, 0.58)
	pt3dadd(141.74, 88.79, -39.42, 0.58)
	pt3dadd(144.07, 88.15, -37.92, 0.58)
	pt3dadd(146.11, 87.51, -37.22, 0.58)
	pt3dadd(147.86, 86.87, -36.27, 0.58)
	pt3dadd(149.61, 87.19, -36.15, 0.58)
	pt3dadd(151.95, 86.87, -35.92, 0.58)
	pt3dadd(153.41, 85.91, -35.85, 0.58)
	pt3dadd(153.99, 84.62, -34.17, 0.58)
	pt3dadd(155.16, 83.66, -32.28, 0.58)
	pt3dadd(158.08, 83.02, -31.98, 0.58)
	pt3dadd(159.24, 82.06, -32.7, 0.58)
	pt3dadd(160.7, 81.74, -35.8, 0.58)
	pt3dadd(163.04, 80.14, -37.65, 0.58)
	pt3dadd(165.37, 79.18, -38.07, 0.58)
	pt3dadd(166.25, 77.9, -38.4, 0.58)
	pt3dadd(168.58, 76.3, -38.47, 0.58)
	pt3dadd(171.5, 76.62, -38.63, 0.58)
	pt3dadd(174.13, 76.3, -35.63, 0.58)
	pt3dadd(175, 77.26, -34.15, 0.58)
	pt3dadd(176.75, 77.26, -32.05, 0.58)
	pt3dadd(177.92, 77.26, -30.75, 0.58)
	pt3dadd(179.96, 76.62, -30.52, 0.58)
	pt3dadd(181.71, 75.34, -29.8, 0.58)
	pt3dadd(182.88, 75.02, -28.3, 0.58)
	pt3dadd(184.63, 75.34, -26.45, 0.58)
	pt3dadd(186.68, 74.06, -26.28, 0.58)
	pt3dadd(187.55, 72.78, -25.47, 0.58)
	pt3dadd(190.47, 73.74, -25.27, 0.58)
	pt3dadd(192.22, 72.78, -25.1, 0.58)
	pt3dadd(193.68, 71.5, -24.9, 0.58)
	pt3dadd(196.31, 70.21, -28.47, 0.58)
	pt3dadd(198.06, 69.25, -28.17, 0.58)
	pt3dadd(200.39, 67.65, -28.1, 0.58)
  }
  apic[103] {pt3dclear()
	pt3dadd(54.56, 116.55, -51.67, 0.88)
	pt3dadd(55.74, 114.08, -52.13, 0.88)
	pt3dadd(56.61, 111.2, -52.95, 0.88)
	pt3dadd(58.66, 108.96, -53.13, 0.88)
	pt3dadd(59.53, 106.08, -53.45, 0.88)
	pt3dadd(60.41, 103.2, -54.65, 0.88)
	pt3dadd(62.45, 101.6, -56.9, 0.88)
	pt3dadd(64.2, 99.99, -58.58, 0.88)
  }
}
proc shape3d_22() {
  apic[103] {	pt3dadd(66.24, 98.39, -59.78, 0.88)
	pt3dadd(68.58, 97.75, -61.85, 0.88)
	pt3dadd(69.45, 95.83, -63.7, 0.88)
	pt3dadd(70.62, 93.27, -65.38, 0.88)
	pt3dadd(71.5, 91.67, -68.2, 0.88)
	pt3dadd(72.96, 88.79, -70.8, 0.88)
	pt3dadd(74.12, 86.23, -74.95, 0.88)
	pt3dadd(75.29, 85.26, -78.07, 0.88)
	pt3dadd(75.58, 82.38, -80.65, 0.88)
	pt3dadd(76.75, 80.14, -83.1, 0.88)
	pt3dadd(77.62, 77.9, -87.25, 0.88)
	pt3dadd(80.25, 75.34, -87.87, 0.88)
	pt3dadd(82.59, 73.42, -89.1, 0.58)
	pt3dadd(85.5, 71.18, -92.57, 0.58)
	pt3dadd(88.13, 69.25, -98.3, 0.58)
	pt3dadd(89.88, 67.01, -98.97, 0.58)
  }
  apic[104] {pt3dclear()
	pt3dadd(32.88, 68.19, -58.25, 1.17)
	pt3dadd(30.73, 68.55, -58.25, 1.17)
	pt3dadd(28.1, 68.87, -58.75, 1.17)
	pt3dadd(26.35, 68.55, -62.05, 1.17)
	pt3dadd(23.14, 68.23, -64.75, 1.17)
	pt3dadd(20.22, 68.55, -65.03, 1.17)
	pt3dadd(17.89, 69.83, -66.32, 1.17)
	pt3dadd(15.85, 70.47, -67.4, 1.17)
	pt3dadd(13.69, 70.79, -67.05, 0.88)
  }
  apic[105] {pt3dclear()
	pt3dadd(13.69, 70.79, -67.05, 0.88)
	pt3dadd(13.1, 71.75, -67.05, 0.88)
	pt3dadd(11.35, 72.71, -67.22, 0.88)
	pt3dadd(9.31, 73.35, -69.38, 0.88)
	pt3dadd(5.52, 74.31, -70.97, 0.58)
	pt3dadd(2.6, 75.91, -71.77, 0.58)
	pt3dadd(-0.32, 78.8, -72.32, 0.58)
	pt3dadd(-3.53, 80.4, -71.95, 0.58)
	pt3dadd(-6.45, 81.68, -73.65, 0.58)
	pt3dadd(-9.37, 81.68, -74, 0.58)
	pt3dadd(-11.7, 83.28, -75.1, 0.58)
	pt3dadd(-14.62, 85.52, -76.1, 0.58)
	pt3dadd(-17.83, 86.48, -78.05, 0.58)
	pt3dadd(-20.16, 86.8, -78.75, 0.58)
	pt3dadd(-22.21, 87.76, -80.02, 0.58)
	pt3dadd(-24.83, 89.68, -80.2, 0.58)
	pt3dadd(-27.17, 90.96, -81.53, 0.58)
	pt3dadd(-29.21, 91.93, -83.13, 0.58)
	pt3dadd(-30.67, 92.57, -83.93, 0.58)
	pt3dadd(-32.71, 93.21, -85.42, 0.58)
	pt3dadd(-33, 95.13, -86.15, 0.58)
	pt3dadd(-34.75, 96.41, -83.75, 0.58)
	pt3dadd(-37.09, 96.73, -86.8, 0.58)
	pt3dadd(-39.13, 99.61, -89.95, 0.58)
	pt3dadd(-41.17, 99.61, -91.27, 0.58)
	pt3dadd(-42.63, 100.57, -92.3, 0.58)
	pt3dadd(-43.8, 102.81, -96.45, 0.58)
	pt3dadd(-45.84, 103.77, -96.88, 0.58)
	pt3dadd(-49.93, 103.13, -99.67, 0.58)
	pt3dadd(-52.26, 104.41, -99.85, 0.58)
	pt3dadd(-54.89, 105.69, -101.22, 0.58)
  }
  apic[106] {pt3dclear()
	pt3dadd(13.69, 70.79, -67.05, 0.58)
	pt3dadd(11.35, 72.07, -69.9, 0.58)
	pt3dadd(8.43, 72.71, -72.95, 0.58)
	pt3dadd(7.56, 75.27, -74.18, 0.58)
	pt3dadd(6.98, 76.23, -76.15, 0.58)
	pt3dadd(5.81, 77.84, -77.25, 0.58)
	pt3dadd(3.18, 77.2, -78.15, 0.58)
	pt3dadd(0.56, 77.52, -80.52, 0.58)
  }
  apic[107] {pt3dclear()
	pt3dadd(0.56, 77.52, -80.52, 0.58)
	pt3dadd(-0.9, 80.08, -81.65, 0.58)
	pt3dadd(-2.65, 80.4, -84.43, 0.58)
	pt3dadd(-4.99, 81.68, -89.05, 0.58)
	pt3dadd(-5.86, 82.96, -92.97, 0.58)
	pt3dadd(-8.49, 82.64, -95.13, 0.58)
	pt3dadd(-11.12, 83.92, -95.65, 0.58)
	pt3dadd(-14.33, 85.52, -100.13, 0.58)
	pt3dadd(-14.91, 87.44, -104.15, 0.58)
	pt3dadd(-16.95, 89.36, -106.2, 0.58)
  }
  apic[108] {pt3dclear()
	pt3dadd(0.56, 77.52, -80.52, 0.58)
	pt3dadd(-1.78, 75.91, -80.52, 0.58)
	pt3dadd(-1.78, 73.99, -82.63, 0.58)
	pt3dadd(-3.53, 72.39, -83.13, 0.58)
	pt3dadd(-5.28, 72.71, -87.3, 0.58)
	pt3dadd(-7.32, 72.39, -90.33, 0.58)
	pt3dadd(-8.78, 70.47, -92.15, 0.58)
	pt3dadd(-11.41, 70.15, -96.3, 0.58)
	pt3dadd(-12.87, 69.83, -99.38, 0.58)
	pt3dadd(-13.74, 68.55, -101.2, 0.58)
  }
}
proc basic_shape() {
  shape3d_1()
  shape3d_2()
  shape3d_3()
  shape3d_4()
  shape3d_5()
  shape3d_6()
  shape3d_7()
  shape3d_8()
  shape3d_9()
  shape3d_10()
  shape3d_11()
  shape3d_12()
  shape3d_13()
  shape3d_14()
  shape3d_15()
  shape3d_16()
  shape3d_17()
  shape3d_18()
  shape3d_19()
  shape3d_20()
  shape3d_21()
  shape3d_22()
}

objref all, somatic, axonal, basal, apical
proc subsets() { local i
  objref all, somatic, axonal, basal, apical
  all = new SectionList()
    soma all.append()
    axon all.append()
    for i=0, 83 dend[i] all.append()
    for i=0, 108 apic[i] all.append()

  somatic = new SectionList()
    soma somatic.append()

  axonal = new SectionList()
    axon axonal.append()

  basal = new SectionList()
    for i=0, 83 dend[i] basal.append()

  apical = new SectionList()
    for i=0, 108 apic[i] apical.append()

}
proc geom() {
}
proc geom_nseg() {
}
proc biophys() {
}
access soma

celldef()

Loading data, please wait...