Rhesus Monkey Layer 3 Pyramidal Neurons: V1 vs PFC (Amatrudo, Weaver et al. 2012)

 Download zip file   Auto-launch 
Help downloading and running models
Accession:144553
Whole-cell patch-clamp recordings and high-resolution 3D morphometric analyses of layer 3 pyramidal neurons in in vitro slices of monkey primary visual cortex (V1) and dorsolateral granular prefrontal cortex (dlPFC) revealed that neurons in these two brain areas possess highly distinctive structural and functional properties. ... Three-dimensional reconstructions of V1 and dlPFC neurons were incorporated into computational models containing Hodgkin-Huxley and AMPA- and GABAA-receptor gated channels. Morphology alone largely accounted for observed passive physiological properties, but led to AP firing rates that differed more than observed empirically, and to synaptic responses that opposed empirical results. Accordingly, modeling predicts that active channel conductances differ between V1 and dlPFC neurons. The unique features of V1 and dlPFC neurons are likely fundamental determinants of area-specific network behavior. The compact electrotonic arbor and increased excitability of V1 neurons support the rapid signal integration required for early processing of visual information. The greater connectivity and dendritic complexity of dlPFC neurons likely support higher level cognitive functions including working memory and planning.
Reference:
1 . Amatrudo JM, Weaver CM, Crimins JL, Hof PR, Rosene DL, Luebke JI (2012) Influence of highly distinctive structural properties on the excitability of pyramidal neurons in monkey visual and prefrontal cortices. J Neurosci 32:13644-60 [PubMed]
Model Information (Click on a link to find other models with that property)
Model Type: Neuron or other electrically excitable cell;
Brain Region(s)/Organism: Neocortex; Prefrontal cortex (PFC);
Cell Type(s): Neocortex L2/3 pyramidal GLU cell;
Channel(s): I N; I K;
Gap Junctions:
Receptor(s):
Gene(s):
Transmitter(s):
Simulation Environment: NEURON;
Model Concept(s): Activity Patterns; Influence of Dendritic Geometry; Detailed Neuronal Models; Electrotonus; Conductance distributions; Vision;
Implementer(s): Weaver, Christina [christina.weaver at fandm.edu];
Search NeuronDB for information about:  Neocortex L2/3 pyramidal GLU cell; I N; I K;
/
V1_PFC_ModelDB
README
kvz_nature.mod *
naz_nature.mod *
vsource.mod *
actionPotentialPlayer.hoc *
add_axon.hoc
analyticFunctions.hoc *
analyze_EPSC.m
aux_procs.hoc
batchrun.hoc
custominit.hoc
define_PFC.hoc
electro_procs.hoc *
figOptions.hoc
fixnseg.hoc *
init_model.hoc
init_PFC.hoc
Jul16IR3f_fromSWCthenManual_Nov22-11.hoc
load_scripts.hoc *
main_fig10_pfc.hoc
main_fig10_v1baseline.hoc
main_fig10_v1tuned.hoc
main_fig9_pfcElec.hoc
main_fig9_v1Elec.hoc
main_PFC-ApBas_fig11epsc.hoc
main_PFC-ApBas_fig12ipsc.hoc
main_V1-ApBas_fig11epsc.hoc
main_V1-ApBas_fig12ipsc.hoc
May3IR2t_ImportFromSWCthenManual_Aug19-11.hoc
measureMeanAtten.hoc
mosinit.hoc
PFC-V1_AddSynapses.hoc
plot_seClamp_i.ses
plot_seClamp_IPSC.ses
read_EPSCsims_mdb.m
read_IPSCsims_mdb.m
readcell.hoc
readNRNbin_Vclamp.m
rigPFCmod.ses
synTweak.hoc
vsrc.ses
                            
proc celldef() {
  topol()
  subsets()
  geom()
  biophys()
  geom_nseg(100,.1)
}

create soma, apic[37], dend[45]

proc topol() { local i
  connect apic(0), soma(1)
  for i = 1, 3 connect apic[i](0), apic[i-1](1)
  connect apic[4](0), apic[2](1)
  for i = 5, 8 connect apic[i](0), apic[i-1](1)
  connect apic[9](0), apic[7](1)
  for i = 10, 11 connect apic[i](0), apic[9](1)
  connect apic[12](0), apic[6](1)
  for i = 13, 14 connect apic[i](0), apic[12](1)
  connect apic[15](0), apic[5](1)
  for i = 16, 17 connect apic[i](0), apic[15](1)
  connect apic[18](0), apic[4](1)
  connect apic[19](0), apic[1](1)
  for i = 20, 21 connect apic[i](0), apic[i-1](1)
  connect apic[22](0), apic[20](1)
  connect apic[23](0), apic[19](1)
  for i = 24, 25 connect apic[i](0), apic[23](1)
  connect apic[26](0), apic(1)
  for i = 27, 28 connect apic[i](0), apic[i-1](1)
  connect apic[29](0), apic[27](1)
  connect apic[30](0), apic[26](1)
  for i = 31, 32 connect apic[i](0), apic[30](1)
  for i = 33, 34 connect apic[i](0), apic[32](1)
  for i = 35, 36 connect apic[i](0), apic[34](1)
  connect dend(0), soma(0)
  for i = 1, 3 connect dend[i](0), dend[i-1](1)
  connect dend[4](0), dend[2](1)
  connect dend[5](0), dend[1](1)
  connect dend[6](0), dend(1)
  for i = 7, 8 connect dend[i](0), dend[6](1)
  for i = 9, 10 connect dend[i](0), dend[8](1)
  connect dend[11](0), soma(0)
  for i = 12, 14 connect dend[i](0), dend[i-1](1)
  connect dend[15](0), dend[13](1)
  for i = 16, 17 connect dend[i](0), dend[15](1)
  connect dend[18](0), dend[12](1)
  for i = 19, 20 connect dend[i](0), dend[i-1](1)
  connect dend[21](0), dend[19](1)
  for i = 22, 23 connect dend[i](0), dend[21](1)
  connect dend[24](0), dend[18](1)
  connect dend[25](0), dend[11](1)
  for i = 26, 27 connect dend[i](0), dend[25](1)
  connect dend[28](0), soma(0)
  for i = 29, 31 connect dend[i](0), dend[i-1](1)
  connect dend[32](0), dend[30](1)
  for i = 33, 34 connect dend[i](0), dend[32](1)
  connect dend[35](0), dend[29](1)
  for i = 36, 37 connect dend[i](0), dend[35](1)
  for i = 38, 39 connect dend[i](0), dend[37](1)
  connect dend[40](0), dend[28](1)
  for i = 41, 42 connect dend[i](0), dend[40](1)
  for i = 43, 44 connect dend[i](0), dend[42](1)
  basic_shape()
}
proc shape3d_1() {
  soma {pt3dclear()

	/**** original flawed result from Import3D:
	//pt3dadd(115.745, 125.091, 80.1781, 11.2907)
	//pt3dadd(116.831, 131.068, 85.4419, 2.3487)
	
	/* cmw 8/28/11:  Since NeuronStudio poorly estimates soma size, Patrick C measured 
	 * somas in excruciating detail for his study.  The young cell May31_IR2i, which I am 
	 * using for the optimization / aging modeling has a surface area of 878 square microns.
	 * In the absence of such detailed measurements of the PFC & visual cells used here, 
	 * I set the soma size to this same surface area, with a soma of equal Length & 
	 * Diameter such that SA = PI * len * diam.  By this method, Length = diam = 16.7175.
	 * The soma here is centered around the soma point listed in the SWC file.
	 *
	 *	1 1 115.744965 125.090736 80.178131 5.645360 -1
	 */
	pt3dadd(115.745, 107.386, 80.1781, 16.7175)
	pt3dadd(115.745, 124.104, 80.1781, 16.7175)
  }
  apic {pt3dclear()
	pt3dadd(116.831, 131.068, 85.4419, 1.99781)
	pt3dadd(117.125, 132.55, 85.6833, 1.99781)
	pt3dadd(117.335, 133.719, 85.8825, 1.8136)
	pt3dadd(117.524, 134.842, 86.1153, 1.71372)
	pt3dadd(117.754, 135.912, 86.3379, 1.66409)
	pt3dadd(117.979, 137.006, 86.5412, 1.50899)
	pt3dadd(118.098, 138.051, 86.7035, 1.7479)
	pt3dadd(118.197, 139.205, 86.8294, 1.73698)
	pt3dadd(118.262, 140.682, 87.0244, 1.57998)
	pt3dadd(118.336, 141.87, 87.0692, 1.63596)
	pt3dadd(118.441, 143.095, 87.0435, 1.71061)
	pt3dadd(118.622, 144.294, 87.0777, 1.71085)
	pt3dadd(118.833, 146.512, 86.8216, 2.50221)
  }
  apic[1] {pt3dclear()
	pt3dadd(118.833, 146.512, 86.8216, 2.50221)
	pt3dadd(118.283, 147.728, 87.0077, 1.51719)
	pt3dadd(117.784, 148.83, 87.1763, 1.50088)
	pt3dadd(117.456, 149.947, 87.1092, 1.7101)
	pt3dadd(117.132, 150.992, 87.0514, 1.49006)
	pt3dadd(116.808, 152.08, 87.0505, 1.18686)
	pt3dadd(116.445, 153.553, 86.4474, 1.24681)
	pt3dadd(116.174, 154.511, 86.2903, 1.29621)
	pt3dadd(115.96, 155.459, 86.3715, 1.29409)
	pt3dadd(115.725, 156.499, 86.4296, 1.3307)
	pt3dadd(115.365, 158.16, 86.498, 1.53873)
  }
  apic[2] {pt3dclear()
	pt3dadd(115.365, 158.16, 86.498, 1.53873)
	pt3dadd(115.445, 159.549, 85.8606, 1.65624)
	pt3dadd(115.457, 160.533, 85.4097, 1.432)
	pt3dadd(115.44, 161.364, 85.1775, 1.41876)
	pt3dadd(115.39, 162.059, 85.0283, 1.45138)
	pt3dadd(115.406, 162.702, 84.5938, 1.60258)
	pt3dadd(115.451, 163.695, 84.5169, 1.47866)
	pt3dadd(115.461, 164.504, 84.3366, 1.31663)
	pt3dadd(115.502, 165.458, 83.8987, 1.41482)
	pt3dadd(115.43, 167.009, 83.404, 1.41748)
  }
  apic[3] {pt3dclear()
	pt3dadd(115.43, 167.009, 83.404, 1.41748)
	pt3dadd(114.734, 167.619, 82.0991, 0.781098)
	pt3dadd(114.339, 167.857, 81.7558, 0.652634)
	pt3dadd(114.049, 168.074, 81.5159, 0.712156)
	pt3dadd(113.69, 168.516, 81.0598, 0.719694)
	pt3dadd(113.407, 168.922, 80.7506, 0.680764)
	pt3dadd(113.014, 169.386, 80.2783, 0.656044)
	pt3dadd(112.756, 169.688, 79.8399, 0.739048)
	pt3dadd(112.513, 170.13, 79.4169, 0.920138)
	pt3dadd(112.281, 170.548, 78.9811, 0.785332)
	pt3dadd(112.125, 170.747, 78.6095, 0.87839)
	pt3dadd(111.925, 171.027, 77.8592, 0.687278)
	pt3dadd(111.644, 171.439, 77.3401, 0.796614)
	pt3dadd(111.31, 171.796, 76.8635, 0.645734)
	pt3dadd(110.904, 172.122, 76.5392, 0.74539)
	pt3dadd(110.43, 172.352, 75.6891, 0.908452)
	pt3dadd(110.145, 172.692, 74.963, 0.8355)
	pt3dadd(109.848, 172.985, 74.5357, 0.841368)
	pt3dadd(109.457, 173.257, 74.1996, 0.812)
	pt3dadd(108.978, 173.529, 73.782, 0.808536)
	pt3dadd(108.391, 173.681, 73.5311, 0.863392)
	pt3dadd(108.004, 174.418, 72.667, 1.21845)
	pt3dadd(107.773, 174.88, 71.6442, 1.01428)
	pt3dadd(107.534, 175.079, 71.226, 0.768738)
	pt3dadd(107.059, 175.326, 71.002, 0.328804)
	pt3dadd(106.73, 175.393, 70.3591, 0.899826)
	pt3dadd(106.416, 175.239, 69.8347, 1.34451)
	pt3dadd(106.004, 175.523, 68.9829, 1.15042)
	pt3dadd(105.619, 175.701, 68.455, 1.06803)
	pt3dadd(104.992, 175.772, 67.8583, 0.740972)
	pt3dadd(104.708, 175.888, 67.0204, 0.897548)
	pt3dadd(104.524, 175.98, 66.2533, 1.15314)
	pt3dadd(104.132, 175.992, 65.5943, 1.31301)
	pt3dadd(103.345, 176.079, 65.109, 0.997656)
	pt3dadd(102.91, 176.004, 64.8571, 1.59216)
	pt3dadd(102.592, 176.529, 63.8638, 0.896666)
	pt3dadd(102.545, 176.748, 63.1345, 0.844426)
	pt3dadd(102.355, 176.998, 62.4468, 0.953218)
	pt3dadd(102.116, 177.363, 61.4907, 0.67196)
	pt3dadd(102.095, 177.464, 60.994, 0.87046)
	pt3dadd(102.093, 177.517, 60.4789, 1.11638)
	pt3dadd(102.006, 178.076, 59.8285, 1.21916)
	pt3dadd(101.77, 178.882, 59.2105, 0.897006)
	pt3dadd(101.539, 179.275, 58.8697, 1.23178)
	pt3dadd(101.124, 179.658, 58.4425, 1.04386)
	pt3dadd(100.579, 180.089, 57.9692, 0.882982)
	pt3dadd(99.7868, 180.25, 57.6926, 0.967672)
	pt3dadd(99.3589, 180.619, 57.0756, 1.15814)
	pt3dadd(98.8986, 181.601, 56.5777, 0.886916)
	pt3dadd(98.7421, 181.998, 56.4485, 1.07819)
	pt3dadd(98.6548, 182.829, 55.7825, 0.810778)
	pt3dadd(98.4562, 183.427, 55.4077, 0.712418)
	pt3dadd(98.3275, 184.004, 55.158, 0.873122)
	pt3dadd(98.0637, 184.604, 54.537, 1.02638)
	pt3dadd(97.4346, 185.026, 54.6, 0.557652)
	pt3dadd(97.131, 185.531, 54.2522, 0.546312)
	pt3dadd(96.878, 185.722, 54.2162, 0.46481)
	pt3dadd(96.6728, 185.93, 54.1928, 0.384)
	pt3dadd(96.4919, 186.123, 54.1354, 0.433262)
	pt3dadd(96.2952, 186.308, 54.0332, 0.40751)
	pt3dadd(96.0928, 186.48, 53.9061, 0.415398)
	pt3dadd(95.9013, 186.647, 53.8023, 0.42888)
	pt3dadd(95.6899, 186.855, 53.7184, 0.449056)
	pt3dadd(95.5026, 187.069, 53.662, 0.563222)
	pt3dadd(95.3853, 187.344, 53.4826, 0.703688)
	pt3dadd(95.1757, 187.638, 53.1579, 0.932052)
	pt3dadd(94.799, 187.848, 52.8522, 0.823712)
	pt3dadd(94.4117, 188.041, 52.5277, 0.870962)
	pt3dadd(94.0139, 188.356, 52.0313, 0.824418)
	pt3dadd(93.9143, 188.748, 51.4907, 0.860546)
	pt3dadd(93.7944, 189.124, 51.0709, 0.651328)
	pt3dadd(93.5367, 189.501, 50.7907, 0.701534)
	pt3dadd(93.1286, 190.142, 50.4159, 0.52236)
	pt3dadd(92.9879, 190.301, 50.223, 0.491042)
	pt3dadd(92.8026, 190.51, 50.091, 0.667102)
	pt3dadd(92.3901, 190.927, 49.5362, 0.70294)
	pt3dadd(92.0682, 191.08, 49.3031, 0.643688)
	pt3dadd(91.8688, 191.366, 49, 0.774816)
	pt3dadd(91.6047, 191.698, 48.82, 0.536188)
	pt3dadd(91.4443, 191.923, 48.7422, 0.4967)
	pt3dadd(91.285, 192.127, 48.6225, 0.530542)
	pt3dadd(91.1187, 192.327, 48.4431, 0.415346)
	pt3dadd(90.956, 192.533, 48.2675, 0.538194)
	pt3dadd(90.795, 192.73, 48.0015, 0.885772)
	pt3dadd(90.4558, 192.813, 47.6482, 1.03782)
	pt3dadd(90.0886, 193.357, 47.1086, 0.580302)
	pt3dadd(89.9059, 193.591, 46.987, 0.485688)
	pt3dadd(89.6227, 193.842, 47.0371, 0.492668)
	pt3dadd(89.3004, 194.086, 46.794, 0.189292)
	pt3dadd(89.1362, 194.226, 46.6582, 0.330216)
	pt3dadd(88.9354, 194.335, 46.5418, 0.551512)
	pt3dadd(88.7151, 194.338, 46.3611, 0.67072)
	pt3dadd(88.5492, 194.63, 46.1311, 0.510664)
	pt3dadd(88.4328, 194.835, 45.9263, 0.592516)
	pt3dadd(88.3117, 195.225, 45.5075, 0.566612)
	pt3dadd(88.2384, 195.413, 45.2953, 0.686706)
	pt3dadd(87.9155, 195.937, 44.8698, 0.663548)
	pt3dadd(87.6089, 196.381, 44.581, 0.633618)
	pt3dadd(87.1895, 196.726, 44.3631, 0.403318)
	pt3dadd(86.9804, 196.856, 44.2629, 0.31542)
	pt3dadd(86.7879, 196.962, 44.1585, 0.25406)
	pt3dadd(86.5989, 197.086, 44.0432, 0.2518)
	pt3dadd(86.4462, 197.212, 43.91, 0.235992)
	pt3dadd(86.2852, 197.384, 43.8054, 0.254126)
	pt3dadd(86.1105, 197.585, 43.6924, 0.37602)
	pt3dadd(85.9304, 197.81, 43.5876, 0.773842)
	pt3dadd(85.1584, 198.567, 43.3005, 0.516494)
	pt3dadd(84.7756, 198.896, 43.3653, 0.381948)
	pt3dadd(84.5492, 199.104, 43.4049, 0.42933)
	pt3dadd(84.3206, 199.32, 43.524, 0.559546)
	pt3dadd(84.1747, 199.623, 43.3377, 0.474234)
	pt3dadd(84.0192, 199.871, 43.2071, 0.513248)
	pt3dadd(83.8408, 200.113, 43.2105, 0.44776)
	pt3dadd(83.6865, 200.361, 43.176, 0.406358)
	pt3dadd(83.5467, 200.618, 43.0456, 0.388388)
	pt3dadd(83.4052, 200.876, 42.993, 0.338806)
	pt3dadd(83.2378, 201.076, 42.9189, 0.464322)
	pt3dadd(82.9415, 201.285, 42.86, 0.237878)
	pt3dadd(82.7803, 201.399, 42.7311, 0.183856)
	pt3dadd(82.6685, 201.492, 42.6083, 0.194906)
	pt3dadd(82.5052, 201.629, 42.461, 0.1428)
	pt3dadd(82.3303, 201.784, 42.377, 0.716578)
	pt3dadd(81.9571, 202.224, 42.065, 0.99023)
	pt3dadd(81.3573, 202.764, 41.4678, 0.725834)
	pt3dadd(81.0331, 202.983, 41.2592, 0.697408)
	pt3dadd(80.8266, 203.188, 41.0608, 0.451522)
	pt3dadd(80.6401, 203.405, 40.8866, 0.377898)
	pt3dadd(80.5263, 203.571, 40.7423, 0.317764)
	pt3dadd(80.4059, 203.739, 40.5683, 0.307074)
	pt3dadd(80.2609, 203.907, 40.4186, 0.379494)
	pt3dadd(80.0849, 204.047, 40.285, 0.611438)
	pt3dadd(79.6248, 204.456, 39.9108, 0.808326)
	pt3dadd(79.1463, 204.653, 39.796, 0.655136)
	pt3dadd(78.9079, 204.813, 39.5236, 0.576292)
	pt3dadd(78.695, 204.93, 39.2985, 0.462022)
	pt3dadd(78.477, 205.004, 39.1424, 0.631342)
	pt3dadd(78.285, 205.084, 38.8983, 0.837072)
	pt3dadd(78.1255, 205.169, 38.4022, 0.882274)
	pt3dadd(77.885, 205.28, 37.6848, 0.96444)
	pt3dadd(77.6589, 205.161, 36.9718, 0.612132)
	pt3dadd(77.5843, 205.065, 36.3959, 0.568476)
	pt3dadd(77.6017, 205.043, 36.1051, 0.666018)
	pt3dadd(77.6414, 204.96, 35.5082, 0.612676)
	pt3dadd(77.6408, 204.912, 35.1754, 0.657998)
	pt3dadd(77.6028, 205.01, 34.5573, 0.665606)
	pt3dadd(77.6187, 205.159, 34.2209, 0.563442)
	pt3dadd(77.669, 205.265, 33.8459, 0.573228)
	pt3dadd(77.4915, 205.761, 33.5245, 0.64886)
	pt3dadd(77.4573, 206.007, 33.2971, 0.674878)
	pt3dadd(77.4566, 206.256, 33.017, 0.684766)
	pt3dadd(77.347, 206.615, 32.487, 0.786264)
	pt3dadd(76.9415, 206.869, 31.9982, 0.56748)
	pt3dadd(76.8195, 207.186, 31.7135, 0.708034)
	pt3dadd(76.9132, 207.785, 31.5333, 0.350674)
	pt3dadd(77.1027, 208.055, 31.3413, 0.4699)
	pt3dadd(77.2767, 208.241, 31.0601, 0.722222)
	pt3dadd(77.4336, 208.516, 30.8316, 0.720612)
	pt3dadd(77.4002, 208.869, 30.3382, 0.658754)
	pt3dadd(77.3397, 209.126, 29.9284, 0.593014)
	pt3dadd(77.4235, 209.459, 29.5489, 0.568552)
	pt3dadd(77.7385, 209.769, 29.1748, 0.684796)
	pt3dadd(78.0179, 210.006, 28.7117, 0.901216)
	pt3dadd(78.076, 210.185, 27.9427, 1.08298)
	pt3dadd(77.6098, 210.722, 27.0917, 0.715562)
  }
}
proc shape3d_2() {
  apic[3] {	pt3dadd(77.3996, 210.988, 26.8223, 0.579662)
	pt3dadd(76.8815, 211.237, 26.4937, 0.355042)
	pt3dadd(76.5258, 211.32, 26.3948, 0.275962)
	pt3dadd(76.3492, 211.382, 26.353, 0.383138)
	pt3dadd(75.2957, 211.799, 26, 0.61553)
	pt3dadd(75.1684, 212.041, 25.8, 0.53714)
	pt3dadd(75.0543, 212.166, 25.6, 0.453934)
	pt3dadd(74.8787, 212.391, 25.4, 0.473986)
	pt3dadd(74.7638, 212.587, 25.2, 0.50095)
	pt3dadd(74.7031, 212.702, 25, 0.426142)
	pt3dadd(74.6738, 212.765, 24.8, 0.39559)
	pt3dadd(74.5213, 212.951, 24.6, 0.53044)
	pt3dadd(74.4493, 213.1, 24.2, 0.660766)
	pt3dadd(74.2768, 213.346, 23.6, 0.49598)
	pt3dadd(74.3393, 213.319, 23, 0.531446)
	pt3dadd(74.5051, 213.304, 22.6, 0.500148)
	pt3dadd(74.4307, 213.497, 22.2, 0.656522)
	pt3dadd(74.3646, 213.879, 21.6, 0.764376)
	pt3dadd(74.0873, 213.969, 21.2, 0.554144)
	pt3dadd(74.3255, 213.929, 20.6, 0.990548)
	pt3dadd(74.7014, 213.996, 20, 1.22974)
	pt3dadd(74.3116, 213.983, 19.2, 1.03598)
	pt3dadd(73.9066, 214.121, 18.6, 0.703132)
	pt3dadd(73.6435, 214.127, 18, 0.519568)
	pt3dadd(73.1147, 214.206, 17.4, 0.533168)
	pt3dadd(72.8404, 214.376, 16.8, 0.716898)
	pt3dadd(71.3786, 214.626, 16.2, 0.551824)
	pt3dadd(70.4229, 215.143, 16, 0.30927)
	pt3dadd(70.1139, 215.505, 15.6, 0.5474)
	pt3dadd(70.064, 215.685, 15.2, 0.437936)
	pt3dadd(69.8166, 216.108, 15, 0.411336)
	pt3dadd(69.4833, 216.393, 14.6, 0.462824)
	pt3dadd(69.3809, 216.892, 14.2, 0.468234)
	pt3dadd(69.4655, 217.2, 13.8, 0.25534)
	pt3dadd(69.3985, 217.501, 13.4, 0.553724)
	pt3dadd(69.422, 217.491, 12.8, 0.438838)
	pt3dadd(69.4594, 217.5, 12.4, 0.44352)
	pt3dadd(69.456, 217.483, 12, 0.504504)
	pt3dadd(69.3774, 217.68, 11.6, 0.530026)
	pt3dadd(69.2937, 217.797, 11.2, 0.47309)
	pt3dadd(69.2671, 217.886, 11, 0.43835)
	pt3dadd(69.2398, 218, 10.8, 0.444946)
	pt3dadd(69.2197, 218.34, 10.4, 0.748704)
	pt3dadd(69.203, 218.7, 10.2, 0.593852)
  }
  apic[4] {pt3dclear()
	pt3dadd(115.43, 167.009, 83.404, 1.41748)
	pt3dadd(115.511, 168.334, 83.6758, 1.30697)
	pt3dadd(115.492, 169.166, 83.404, 1.23478)
	pt3dadd(115.405, 169.843, 83.1963, 1.25983)
	pt3dadd(115.35, 170.458, 83.0416, 1.38331)
	pt3dadd(115.321, 171.276, 83.0145, 1.23932)
	pt3dadd(115.268, 172, 83.1268, 1.07578)
	pt3dadd(115.192, 172.65, 83.3351, 1.0887)
	pt3dadd(115.103, 173.292, 83.5414, 1.05267)
	pt3dadd(115.02, 174.26, 83.2232, 1.19482)
	pt3dadd(115.224, 175.529, 83.1856, 1.45468)
	pt3dadd(115.484, 176.796, 83.2044, 1.41871)
	pt3dadd(115.771, 177.876, 83.2412, 1.91433)
	pt3dadd(115.831, 178.839, 83.2624, 1.96793)
	pt3dadd(116.005, 180.372, 83.3273, 1.57979)
	pt3dadd(116.011, 181.52, 83.1626, 1.76762)
	pt3dadd(116.02, 182.893, 83.0617, 1.21885)
	pt3dadd(115.908, 184.397, 82.6858, 1.9386)
  }
  apic[5] {pt3dclear()
	pt3dadd(115.908, 184.397, 82.6858, 1.9386)
	pt3dadd(115.783, 186.682, 82.6618, 1.46263)
	pt3dadd(115.988, 187.794, 82.7758, 1.33935)
	pt3dadd(116.134, 188.898, 82.5194, 1.57994)
	pt3dadd(116.166, 190.1, 82.6664, 1.5173)
	pt3dadd(116.195, 191.376, 82.6246, 2.20953)
	pt3dadd(116.257, 192.603, 82.5488, 1.61193)
	pt3dadd(116.551, 193.96, 82.263, 1.50644)
	pt3dadd(116.607, 195.422, 82.1016, 1.44105)
  }
  apic[6] {pt3dclear()
	pt3dadd(116.607, 195.422, 82.1016, 1.44105)
	pt3dadd(116.473, 198.603, 82.5525, 1.35394)
	pt3dadd(116.293, 200.014, 82.509, 1.44945)
	pt3dadd(116.21, 201.2, 82.7248, 1.36322)
	pt3dadd(116.196, 202.391, 82.8749, 1.30639)
	pt3dadd(115.944, 203.349, 83.3269, 1.73788)
	pt3dadd(115.726, 204.684, 83.5743, 1.5452)
	pt3dadd(115.68, 205.636, 83.7116, 1.52035)
	pt3dadd(115.655, 206.726, 84.0283, 1.35104)
	pt3dadd(115.76, 208.13, 83.7141, 1.66866)
	pt3dadd(115.883, 209.749, 83.6519, 1.55957)
	pt3dadd(115.843, 211.51, 83.0391, 1.63375)
	pt3dadd(115.927, 213.589, 83.2853, 1.52746)
	pt3dadd(115.915, 214.779, 83.3224, 1.20678)
	pt3dadd(115.803, 215.919, 83.4002, 1.28074)
	pt3dadd(115.556, 217.008, 83.6203, 1.12805)
	pt3dadd(115.358, 217.979, 83.6299, 1.39534)
	pt3dadd(115.345, 218.977, 83.6589, 1.45711)
	pt3dadd(115.243, 219.925, 83.8015, 1.10337)
	pt3dadd(115.519, 221.006, 83.865, 1.29515)
	pt3dadd(115.645, 222.107, 84.1297, 1.55436)
	pt3dadd(115.781, 223.294, 84.0751, 1.20805)
	pt3dadd(115.87, 224.434, 84.155, 1.38065)
	pt3dadd(116.151, 225.532, 84.4246, 1.09023)
	pt3dadd(116.303, 226.818, 84.5395, 1.3351)
	pt3dadd(116.324, 228.002, 84.6, 1.8048)
	pt3dadd(116.093, 229.552, 85.029, 1.38908)
	pt3dadd(116.328, 231.228, 85.2738, 1.2226)
  }
  apic[7] {pt3dclear()
	pt3dadd(116.328, 231.228, 85.2738, 1.2226)
	pt3dadd(115.743, 232.502, 85.5486, 1.25149)
	pt3dadd(115.215, 233.479, 85.9615, 1.00092)
	pt3dadd(114.728, 234.596, 86.1366, 0.973436)
	pt3dadd(114.434, 235.271, 86.2425, 0.96747)
	pt3dadd(113.97, 236.37, 86.0853, 1.08094)
	pt3dadd(113.959, 237.39, 86.513, 1.42057)
	pt3dadd(113.473, 238.407, 87.1853, 1.14286)
	pt3dadd(113.13, 239.325, 87.3236, 1.16733)
	pt3dadd(112.9, 240.182, 88.0743, 1.15002)
	pt3dadd(112.787, 240.96, 88.4368, 1.01119)
	pt3dadd(112.801, 242.021, 88.6297, 0.9633)
	pt3dadd(112.778, 242.787, 89.1913, 1.4066)
	pt3dadd(112.714, 243.426, 89.638, 1.66395)
	pt3dadd(112.329, 244.35, 89.5742, 1.57857)
	pt3dadd(111.844, 245.799, 90.1107, 1.24573)
	pt3dadd(111.613, 246.561, 90.7509, 1.7893)
	pt3dadd(111.544, 247.432, 91.414, 1.60336)
	pt3dadd(111.289, 248.648, 91.372, 1.16656)
	pt3dadd(111.199, 249.976, 92.1754, 1.12199)
  }
  apic[8] {pt3dclear()
	pt3dadd(111.199, 249.976, 92.1754, 1.12199)
	pt3dadd(111.916, 250.72, 92.1238, 0.48925)
	pt3dadd(112.469, 251.341, 92.4234, 0.535018)
	pt3dadd(112.908, 251.905, 92.7675, 0.728702)
	pt3dadd(113.358, 252.637, 92.953, 0.53362)
	pt3dadd(113.877, 253.456, 93.0365, 0.713432)
	pt3dadd(114.396, 254.12, 93.0637, 0.495706)
	pt3dadd(114.879, 255.074, 93.4641, 0.736078)
	pt3dadd(115.038, 255.702, 93.8054, 0.985426)
	pt3dadd(115.175, 256.713, 93.9482, 0.87799)
	pt3dadd(115.161, 257.34, 94.2782, 0.809112)
	pt3dadd(115.176, 257.695, 94.5231, 0.8579)
	pt3dadd(115.226, 258.04, 94.7915, 0.875832)
	pt3dadd(115.255, 258.706, 95.2907, 1.10346)
	pt3dadd(115.447, 259.22, 96.0384, 1.3036)
	pt3dadd(115.668, 259.65, 96.5464, 0.912498)
	pt3dadd(115.775, 260.347, 97.4969, 0.941308)
	pt3dadd(115.726, 261.193, 97.8801, 1.05975)
	pt3dadd(115.605, 262.178, 98.5137, 0.841614)
	pt3dadd(115.683, 262.896, 98.8857, 1.02596)
	pt3dadd(115.34, 263.586, 99.708, 1.15254)
	pt3dadd(115.507, 264.314, 100.286, 0.870262)
	pt3dadd(115.628, 264.845, 100.707, 1.09778)
	pt3dadd(115.755, 265.513, 100.823, 0.585332)
	pt3dadd(116.018, 266.569, 100.712, 0.748932)
	pt3dadd(116.201, 267.496, 100.885, 0.595362)
	pt3dadd(116.316, 268.066, 100.975, 0.812792)
	pt3dadd(116.451, 268.585, 101.139, 0.752216)
	pt3dadd(116.502, 269.054, 101.521, 0.65761)
	pt3dadd(116.205, 269.749, 101.152, 0.1)
	pt3dadd(116.573, 271.38, 101.432, 0.677262)
	pt3dadd(116.583, 271.814, 101.435, 0.67023)
	pt3dadd(116.532, 272.214, 101.422, 0.718036)
	pt3dadd(116.449, 272.62, 101.376, 0.982986)
	pt3dadd(116.271, 273.473, 101.516, 1.0133)
	pt3dadd(115.875, 274.246, 101.871, 1.62)
	pt3dadd(116.048, 275.086, 102.594, 0.895562)
	pt3dadd(116.002, 275.611, 103.178, 1.01368)
	pt3dadd(115.793, 276.933, 103.56, 0.83462)
	pt3dadd(115.663, 277.397, 103.795, 0.852094)
	pt3dadd(115.524, 277.791, 104.075, 0.936646)
	pt3dadd(115.448, 278.157, 104.377, 1.281)
	pt3dadd(115.367, 278.832, 105.07, 1.75965)
	pt3dadd(114.991, 279.147, 106.171, 0.377648)
	pt3dadd(114.641, 279.871, 106.464, 0.536648)
	pt3dadd(114.503, 280.647, 106.754, 1.05555)
	pt3dadd(114.4, 281.109, 107.344, 0.86466)
	pt3dadd(114.317, 281.223, 107.987, 0.56807)
	pt3dadd(114.203, 282.251, 108.742, 0.70301)
	pt3dadd(114.209, 282.642, 108.989, 0.919884)
	pt3dadd(114.243, 282.946, 109.367, 1.11176)
	pt3dadd(114.028, 283.598, 110.043, 0.843598)
	pt3dadd(113.955, 284.069, 110.293, 0.775378)
	pt3dadd(114, 284.447, 110.562, 0.824938)
	pt3dadd(113.982, 284.596, 111.252, 0.68676)
	pt3dadd(113.944, 284.654, 111.608, 0.787438)
	pt3dadd(113.82, 285.079, 112.147, 0.697752)
	pt3dadd(113.742, 285.638, 112.308, 0.615488)
	pt3dadd(113.755, 286.125, 112.618, 0.468788)
	pt3dadd(113.769, 286.37, 112.774, 0.520126)
	pt3dadd(113.781, 286.578, 112.953, 0.560236)
	pt3dadd(113.76, 286.849, 113.061, 0.738334)
	pt3dadd(113.732, 287.462, 113.389, 1.23555)
	pt3dadd(113.842, 288.041, 114.294, 0.826376)
	pt3dadd(114.061, 288.486, 114.81, 0.490454)
	pt3dadd(114.208, 288.697, 115.033, 0.569876)
	pt3dadd(114.369, 288.84, 115.358, 0.724648)
	pt3dadd(114.521, 289.364, 115.843, 0.558984)
	pt3dadd(114.646, 289.679, 116.106, 0.53484)
	pt3dadd(114.738, 289.959, 116.316, 0.49164)
	pt3dadd(114.757, 290.194, 116.42, 0.521984)
	pt3dadd(114.701, 290.489, 116.484, 0.504956)
	pt3dadd(114.553, 290.926, 116.524, 0.528192)
	pt3dadd(114.33, 291.4, 116.54, 0.63783)
	pt3dadd(114.135, 291.655, 116.524, 0.78711)
	pt3dadd(113.862, 292.009, 116.374, 0.761852)
	pt3dadd(113.634, 292.443, 116.391, 0.54612)
	pt3dadd(113.467, 292.775, 116.397, 0.563738)
	pt3dadd(113.275, 293.091, 116.439, 0.796942)
	pt3dadd(112.961, 293.735, 116.596, 1.20723)
	pt3dadd(113.156, 294.283, 116.399, 0.818842)
  }
}
proc shape3d_3() {
  apic[8] {	pt3dadd(113.361, 294.958, 116.281, 0.496188)
	pt3dadd(113.494, 295.231, 116.269, 0.4886)
	pt3dadd(113.614, 295.492, 116.285, 0.594636)
	pt3dadd(113.865, 296.144, 116.214, 0.594802)
	pt3dadd(113.737, 296.457, 116.002, 0.721662)
	pt3dadd(113.592, 296.812, 115.761, 0.870222)
	pt3dadd(113.347, 297.39, 115.557, 0.70161)
	pt3dadd(113.234, 297.706, 115.427, 0.612574)
	pt3dadd(113.155, 298.273, 115.207, 0.636802)
	pt3dadd(113.17, 298.81, 115.103, 0.624502)
	pt3dadd(113.167, 299.467, 115.033, 0.633466)
	pt3dadd(113.145, 299.852, 114.946, 0.774712)
	pt3dadd(113.087, 300.222, 114.67, 0.751724)
	pt3dadd(113.088, 300.614, 114.369, 0.762506)
	pt3dadd(113.194, 300.95, 114.084, 0.966958)
	pt3dadd(113.002, 301.344, 113.88, 0.94756)
	pt3dadd(112.797, 301.83, 113.753, 0.812156)
	pt3dadd(112.566, 302.273, 113.628, 0.824864)
	pt3dadd(112.441, 302.713, 113.525, 0.871564)
	pt3dadd(112.375, 303.145, 113.464, 1.1552)
	pt3dadd(111.923, 303.606, 113.552, 0.694706)
	pt3dadd(111.65, 303.888, 113.614, 0.548058)
	pt3dadd(111.344, 304.181, 113.596, 0.61081)
	pt3dadd(111.094, 304.478, 113.548, 0.947632)
	pt3dadd(110.893, 305.32, 113.32, 0.795444)
	pt3dadd(110.754, 305.73, 113.264, 1.16917)
	pt3dadd(110.008, 307.013, 113.343, 0.828136)
	pt3dadd(109.858, 307.45, 113.346, 0.698322)
	pt3dadd(109.698, 307.861, 113.256, 0.762738)
	pt3dadd(109.528, 308.263, 113.26, 0.906776)
	pt3dadd(109.526, 308.794, 113.187, 1.07987)
	pt3dadd(109.625, 309.57, 113.257, 0.654396)
	pt3dadd(109.483, 309.953, 113.167, 0.473564)
	pt3dadd(109.39, 310.266, 113.098, 0.541364)
	pt3dadd(109.311, 310.616, 113.027, 0.779136)
	pt3dadd(109.057, 310.931, 112.926, 0.68154)
	pt3dadd(108.939, 311.29, 112.71, 0.74943)
	pt3dadd(108.828, 311.648, 112.592, 0.7577)
	pt3dadd(108.745, 312.04, 112.554, 0.875076)
	pt3dadd(108.631, 312.713, 112.371, 0.817848)
	pt3dadd(108.572, 313.452, 112.32, 0.847448)
	pt3dadd(108.576, 314.157, 112.26, 0.74736)
	pt3dadd(108.546, 314.883, 112.267, 0.871398)
	pt3dadd(108.561, 315.578, 112.181, 1.07609)
	pt3dadd(108.544, 316.614, 112.119, 0.932856)
	pt3dadd(108.477, 317.326, 112.28, 0.705084)
	pt3dadd(108.46, 317.697, 112.221, 0.574412)
	pt3dadd(108.417, 318.164, 112.291, 0.514226)
	pt3dadd(108.528, 318.682, 112.03, 0.552712)
	pt3dadd(108.641, 319.052, 111.958, 0.685888)
	pt3dadd(108.733, 319.456, 111.964, 0.76239)
	pt3dadd(108.511, 320.537, 111.637, 0.575236)
	pt3dadd(108.394, 320.817, 111.606, 0.440196)
	pt3dadd(108.286, 321.107, 111.581, 0.428932)
	pt3dadd(108.24, 321.464, 111.571, 0.608064)
	pt3dadd(108.203, 321.783, 111.633, 0.876912)
	pt3dadd(108.567, 322.496, 111.348, 1.03005)
	pt3dadd(108.53, 323.095, 111.164, 0.811298)
	pt3dadd(108.535, 323.691, 110.973, 0.478004)
	pt3dadd(108.549, 323.995, 110.911, 0.444696)
	pt3dadd(108.562, 324.267, 110.838, 0.475312)
	pt3dadd(108.569, 324.573, 110.714, 0.671998)
	pt3dadd(108.416, 325.133, 110.619, 1.41956)
	pt3dadd(108.812, 326.071, 109.948, 0.98854)
	pt3dadd(109.275, 326.867, 109.403, 0.621568)
	pt3dadd(109.455, 327.158, 109.208, 0.612534)
	pt3dadd(109.653, 327.426, 109.033, 0.522024)
	pt3dadd(109.812, 327.676, 108.926, 0.45442)
	pt3dadd(109.929, 327.901, 108.792, 0.42298)
	pt3dadd(110.005, 328.119, 108.663, 0.634684)
	pt3dadd(110.012, 328.593, 108.542, 0.646432)
	pt3dadd(110.053, 329.135, 108.415, 0.623062)
	pt3dadd(110.105, 329.44, 108.32, 0.598778)
	pt3dadd(110.162, 329.738, 108.228, 0.571688)
	pt3dadd(110.226, 330.048, 108.119, 0.69186)
	pt3dadd(110.33, 330.378, 107.994, 0.975286)
	pt3dadd(110.418, 331.17, 107.636, 0.650732)
	pt3dadd(110.423, 331.898, 107.454, 0.840522)
	pt3dadd(110.346, 332.659, 107.328, 1.45435)
	pt3dadd(111.023, 333.383, 107.501, 0.658028)
	pt3dadd(111.241, 333.684, 107.663, 0.672478)
	pt3dadd(111.495, 334.154, 107.322, 0.637788)
	pt3dadd(111.613, 334.456, 107.203, 0.50891)
	pt3dadd(111.654, 334.744, 107.176, 0.477278)
	pt3dadd(111.673, 334.998, 107.179, 0.549522)
	pt3dadd(111.699, 335.538, 107.129, 0.547988)
	pt3dadd(111.775, 336.112, 107.002, 0.467364)
	pt3dadd(111.806, 336.399, 107.025, 0.535468)
	pt3dadd(111.82, 336.676, 107.051, 0.604278)
	pt3dadd(111.822, 336.98, 106.971, 0.647308)
	pt3dadd(111.827, 337.31, 106.894, 0.769752)
	pt3dadd(112.115, 338.213, 106.857, 0.686556)
	pt3dadd(112.312, 338.573, 106.876, 0.664634)
	pt3dadd(112.479, 338.968, 106.918, 0.632952)
	pt3dadd(112.561, 339.292, 107.023, 0.761104)
	pt3dadd(113.246, 340.008, 106.735, 0.495924)
	pt3dadd(113.403, 340.215, 106.701, 0.383388)
	pt3dadd(113.593, 340.526, 106.792, 0.309084)
	pt3dadd(113.692, 340.733, 106.829, 0.354678)
	pt3dadd(113.822, 340.926, 106.883, 0.4158)
	pt3dadd(113.997, 341.143, 106.933, 0.416726)
	pt3dadd(114.209, 341.324, 106.962, 0.504222)
	pt3dadd(114.465, 341.491, 106.957, 0.594692)
	pt3dadd(114.767, 341.68, 106.921, 0.519792)
	pt3dadd(115.051, 341.888, 106.913, 0.57449)
	pt3dadd(115.379, 342.124, 106.876, 0.712318)
  }
  apic[9] {pt3dclear()
	pt3dadd(111.199, 249.976, 92.1754, 1.12199)
	pt3dadd(110.432, 250.223, 91.3266, 1.00795)
	pt3dadd(109.79, 251.205, 90.9935, 1.06761)
	pt3dadd(109.472, 251.763, 91.0545, 0.82166)
	pt3dadd(109.198, 252.191, 91.1701, 0.784736)
	pt3dadd(108.824, 252.829, 90.7283, 0.910384)
	pt3dadd(108.4, 253.536, 90.5752, 0.87745)
	pt3dadd(107.866, 254.202, 90.5248, 1.20207)
	pt3dadd(107.554, 255.207, 90.472, 1.29815)
	pt3dadd(107.319, 255.984, 90.0326, 1.11881)
	pt3dadd(106.697, 256.905, 89.6373, 1.2309)
	pt3dadd(106.278, 257.685, 89.3531, 1.24117)
	pt3dadd(106.026, 258.302, 89.2935, 0.897)
	pt3dadd(105.879, 258.723, 89.2067, 1.06231)
	pt3dadd(105.335, 259.461, 88.9986, 1.03634)
	pt3dadd(104.994, 259.95, 89.0645, 0.941088)
	pt3dadd(104.688, 260.341, 89.1705, 0.918198)
	pt3dadd(104.455, 260.854, 89.0812, 0.92498)
	pt3dadd(104.235, 261.318, 89.0954, 0.892774)
	pt3dadd(104.091, 261.76, 89.1302, 0.97577)
	pt3dadd(103.808, 262.805, 88.9669, 1.04183)
	pt3dadd(103.438, 263.382, 89.0629, 1.04214)
	pt3dadd(102.887, 264.03, 89.2153, 1.40186)
	pt3dadd(102.26, 265.245, 88.7812, 1.12108)
	pt3dadd(101.891, 266.076, 88.327, 0.91712)
	pt3dadd(101.229, 267.51, 88.4188, 0.744296)
	pt3dadd(101, 268.091, 88.6359, 0.791882)
	pt3dadd(100.802, 268.752, 88.2256, 0.882892)
	pt3dadd(100.607, 269.296, 88.0632, 0.936474)
	pt3dadd(100.247, 269.961, 88.196, 1.04366)
	pt3dadd(99.9659, 270.505, 88.2868, 1.25305)
	pt3dadd(99.3417, 271.217, 88.9446, 1.34687)
	pt3dadd(99.1814, 272.286, 89.2319, 1.06905)
	pt3dadd(99.1641, 272.88, 89.3506, 0.855256)
	pt3dadd(98.9868, 273.592, 89.0643, 1.10901)
	pt3dadd(98.8125, 274.187, 89.0635, 0.82946)
	pt3dadd(98.7526, 274.662, 89.1816, 0.853354)
	pt3dadd(98.7445, 275.187, 89.3149, 0.77102)
	pt3dadd(98.7379, 275.576, 89.4088, 0.805844)
	pt3dadd(98.6893, 275.981, 89.4383, 0.82237)
	pt3dadd(98.703, 276.447, 89.3915, 0.891388)
	pt3dadd(98.8462, 277.256, 89.2355, 0.77318)
	pt3dadd(99.0584, 277.75, 89.1237, 0.952606)
	pt3dadd(98.974, 278.557, 89.1018, 1.76686)
	pt3dadd(98.5084, 280.087, 89.6104, 0.970876)
	pt3dadd(98.1142, 281.5, 88.6162, 1.03664)
	pt3dadd(97.9629, 282.27, 88.535, 1.18105)
	pt3dadd(98.0757, 282.959, 88.372, 1.03961)
	pt3dadd(98.0823, 283.457, 88.1726, 0.75216)
	pt3dadd(98.024, 284.222, 88.1256, 0.592638)
	pt3dadd(97.9753, 284.609, 88.1102, 0.584646)
	pt3dadd(97.9388, 284.925, 88.0637, 0.642028)
	pt3dadd(97.9113, 285.251, 87.9967, 0.633146)
	pt3dadd(97.8769, 285.547, 87.8366, 0.756166)
	pt3dadd(97.7619, 286.314, 87.4705, 0.703492)
	pt3dadd(97.7087, 286.971, 87.3437, 0.559742)
	pt3dadd(97.6919, 287.257, 87.2544, 0.589738)
	pt3dadd(97.6619, 287.586, 87.1642, 0.670958)
	pt3dadd(97.4829, 287.984, 87.2824, 0.566812)
	pt3dadd(97.3613, 288.252, 87.3164, 0.58281)
	pt3dadd(97.2458, 288.559, 87.291, 0.766442)
	pt3dadd(97.1243, 289.237, 87.0007, 0.949478)
	pt3dadd(96.8019, 290.253, 86.7051, 0.63374)
	pt3dadd(96.6991, 290.563, 86.7376, 0.58381)
	pt3dadd(96.6237, 290.866, 86.784, 0.543706)
	pt3dadd(96.5704, 291.417, 86.9413, 0.699622)
	pt3dadd(96.5002, 291.979, 87.0304, 0.530554)
	pt3dadd(96.345, 292.506, 87.1507, 0.59523)
	pt3dadd(96.2768, 292.813, 87.2266, 0.568956)
	pt3dadd(96.2354, 293.096, 87.2468, 0.526448)
	pt3dadd(96.2085, 293.387, 87.2695, 0.541482)
	pt3dadd(96.1698, 293.68, 87.3085, 0.584596)
	pt3dadd(95.9824, 294.222, 87.3354, 0.914048)
	pt3dadd(95.8967, 294.97, 87.4514, 0.748584)
	pt3dadd(95.7897, 295.362, 87.5704, 0.868106)
	pt3dadd(95.6336, 295.936, 87.7441, 0.87901)
  }
  apic[10] {pt3dclear()
	pt3dadd(95.6336, 295.936, 87.7441, 0.87901)
	pt3dadd(95.0347, 296.438, 88.3753, 0.641544)
	pt3dadd(94.8169, 296.584, 88.5968, 0.717174)
	pt3dadd(94.5879, 296.793, 88.8185, 0.852864)
	pt3dadd(94.5074, 297.19, 89.0446, 0.666966)
	pt3dadd(94.482, 297.651, 89.4132, 0.558408)
	pt3dadd(94.3917, 298.012, 89.7868, 0.62179)
	pt3dadd(94.2216, 298.364, 90.1722, 0.843212)
	pt3dadd(93.9743, 298.76, 90.6464, 1.0752)
	pt3dadd(93.9043, 298.953, 91.1695, 1.04088)
	pt3dadd(93.8396, 299.527, 91.9355, 0.707444)
	pt3dadd(93.7981, 299.775, 92.1941, 0.604732)
	pt3dadd(93.7919, 300.015, 92.4301, 0.774566)
	pt3dadd(93.589, 300.457, 92.379, 0.567156)
	pt3dadd(93.4435, 300.713, 92.4286, 0.471764)
	pt3dadd(93.3196, 300.95, 92.4392, 0.417978)
	pt3dadd(93.1972, 301.194, 92.4439, 0.569558)
	pt3dadd(93.0925, 301.468, 92.4618, 0.694854)
  }
}
proc shape3d_4() {
  apic[10] {	pt3dadd(92.8245, 302.088, 92.5304, 1.04559)
	pt3dadd(92.3724, 302.954, 92.9797, 0.93098)
	pt3dadd(91.8451, 303.641, 93.438, 0.678454)
	pt3dadd(91.5379, 304.156, 93.6731, 0.75721)
	pt3dadd(91.1938, 304.74, 93.6482, 1.27708)
	pt3dadd(91.1127, 305.078, 94.1996, 0.90548)
	pt3dadd(90.9044, 305.329, 94.5324, 0.604804)
	pt3dadd(90.7529, 305.488, 94.744, 0.631558)
	pt3dadd(90.6096, 305.666, 94.9677, 0.891882)
	pt3dadd(90.2504, 306.183, 95.3173, 1.28228)
	pt3dadd(90.2543, 306.778, 95.6449, 0.638134)
	pt3dadd(90.1956, 307.241, 96.0153, 0.585142)
	pt3dadd(90.0722, 307.653, 96.3945, 0.617346)
	pt3dadd(89.9451, 308.3, 96.3905, 0.852318)
	pt3dadd(89.8712, 308.938, 96.2783, 0.730914)
	pt3dadd(89.8081, 309.681, 96.2506, 0.987426)
	pt3dadd(89.6621, 310.534, 96.626, 0.938688)
	pt3dadd(89.6088, 311.454, 96.3311, 0.870804)
	pt3dadd(89.3729, 312.285, 96.3986, 0.692474)
	pt3dadd(89.2337, 312.874, 96.4473, 0.785888)
	pt3dadd(89.06, 313.689, 96.4179, 0.75357)
	pt3dadd(88.9827, 314.384, 96.4242, 0.772588)
	pt3dadd(88.9741, 314.816, 96.4895, 0.550086)
	pt3dadd(88.9345, 315.143, 96.5871, 0.501764)
	pt3dadd(88.8506, 315.402, 96.6044, 0.532112)
	pt3dadd(88.7784, 315.687, 96.5368, 0.548162)
	pt3dadd(88.7146, 315.961, 96.4535, 0.599144)
	pt3dadd(88.672, 316.286, 96.523, 0.772766)
	pt3dadd(88.72, 316.813, 96.6971, 0.515406)
	pt3dadd(88.7732, 317.086, 96.7641, 0.474708)
	pt3dadd(88.8767, 317.349, 96.7654, 0.46593)
	pt3dadd(89.035, 317.593, 96.7196, 0.720634)
	pt3dadd(88.955, 318.195, 96.4454, 0.77108)
	pt3dadd(88.6543, 318.915, 96.2107, 0.902186)
	pt3dadd(88.2592, 319.434, 95.8695, 1.0009)
	pt3dadd(87.9517, 320.118, 96.0003, 1.42604)
	pt3dadd(88.0192, 321.2, 95.6312, 0.76859)
	pt3dadd(87.9692, 321.773, 95.6411, 0.60218)
	pt3dadd(87.8506, 322.289, 95.647, 0.578408)
	pt3dadd(87.7743, 322.585, 95.682, 0.60739)
	pt3dadd(87.5512, 323.077, 95.836, 1.01866)
	pt3dadd(87.8111, 323.73, 95.6744, 0.728562)
	pt3dadd(87.7205, 324.414, 95.5791, 0.68389)
	pt3dadd(87.419, 324.92, 95.5604, 0.501998)
	pt3dadd(87.3024, 325.174, 95.5595, 0.461902)
	pt3dadd(87.2161, 325.433, 95.5563, 0.523642)
	pt3dadd(87.1172, 325.717, 95.5212, 0.55418)
	pt3dadd(87.0885, 326.036, 95.4545, 0.593694)
	pt3dadd(87.1292, 326.347, 95.3758, 0.571466)
	pt3dadd(87.1902, 326.814, 95.258, 0.495514)
	pt3dadd(87.037, 327.406, 95.0197, 0.626888)
	pt3dadd(86.8805, 327.758, 94.9688, 0.53062)
	pt3dadd(86.7619, 328.016, 94.8748, 0.464892)
	pt3dadd(86.6889, 328.265, 94.7314, 0.51578)
	pt3dadd(86.6423, 328.527, 94.5865, 0.7781)
	pt3dadd(86.3002, 329.203, 94.5647, 1.10138)
	pt3dadd(86.5242, 329.874, 94.302, 0.773182)
	pt3dadd(86.6678, 330.344, 94.2593, 0.5924)
	pt3dadd(86.7549, 330.678, 94.2432, 0.52299)
	pt3dadd(86.8563, 331.003, 94.1935, 0.491852)
	pt3dadd(86.9405, 331.288, 93.9815, 0.544394)
	pt3dadd(87.0768, 331.487, 93.7566, 1.08473)
	pt3dadd(87.196, 331.984, 93.1741, 1.13376)
	pt3dadd(87.0385, 332.562, 93.0493, 0.985614)
	pt3dadd(86.8966, 333.096, 93.1146, 0.650838)
	pt3dadd(86.8561, 333.424, 93.1735, 0.514456)
	pt3dadd(86.8405, 333.69, 93.1581, 0.452652)
	pt3dadd(86.8396, 333.936, 93.1464, 0.399506)
	pt3dadd(86.8228, 334.234, 93.1195, 0.437768)
	pt3dadd(86.802, 334.476, 93.0762, 0.426732)
	pt3dadd(86.7643, 334.721, 93.0513, 0.499742)
	pt3dadd(86.7128, 335.002, 93.0716, 0.497776)
	pt3dadd(86.6785, 335.257, 93.0918, 0.465668)
	pt3dadd(86.6662, 335.501, 93.0753, 0.462936)
	pt3dadd(86.7843, 336.062, 93.0402, 0.632028)
	pt3dadd(86.6615, 336.408, 93.0908, 0.52222)
	pt3dadd(86.4905, 336.89, 93.1611, 0.433548)
	pt3dadd(86.3906, 337.149, 93.1744, 0.458614)
	pt3dadd(86.2861, 337.403, 93.1905, 0.54839)
	pt3dadd(86.0407, 337.911, 93.1643, 0.6103)
	pt3dadd(85.8634, 338.481, 93.1956, 0.725294)
	pt3dadd(85.6973, 338.822, 93.0368, 0.850784)
	pt3dadd(85.4616, 339.387, 93.0512, 0.735126)
	pt3dadd(85.3102, 340.194, 92.9552, 0.741406)
	pt3dadd(85.2194, 340.803, 92.9168, 0.709554)
	pt3dadd(85.2521, 341.384, 92.9855, 0.53103)
	pt3dadd(85.2442, 341.653, 92.9952, 0.478042)
	pt3dadd(85.2202, 341.903, 92.9555, 0.481246)
	pt3dadd(85.1938, 342.201, 92.8617, 0.574012)
	pt3dadd(85.1905, 342.475, 92.7672, 0.538086)
	pt3dadd(85.1796, 342.766, 92.6807, 0.68267)
	pt3dadd(85.1973, 343.414, 92.4192, 0.808)
	pt3dadd(85.2953, 343.924, 92.0408, 0.598478)
	pt3dadd(85.3636, 344.156, 91.8568, 0.713182)
	pt3dadd(85.4274, 344.43, 91.6067, 1.05385)
	pt3dadd(85.3409, 345.32, 91.4332, 0.712692)
	pt3dadd(85.1769, 345.974, 91.3166, 0.542954)
	pt3dadd(85.1261, 346.292, 91.2026, 0.666062)
	pt3dadd(84.9067, 346.679, 91.3104, 0.51317)
	pt3dadd(84.7744, 346.911, 91.3351, 0.44001)
	pt3dadd(84.6397, 347.149, 91.3264, 0.485072)
	pt3dadd(84.4923, 347.396, 91.2922, 0.49735)
	pt3dadd(84.3556, 347.891, 91.2379, 0.437034)
	pt3dadd(84.2993, 348.137, 91.2136, 0.463276)
	pt3dadd(84.2244, 348.389, 91.2172, 0.528846)
	pt3dadd(84.1248, 348.671, 91.2355, 0.613856)
	pt3dadd(83.6812, 349.169, 91.0319, 0.654464)
	pt3dadd(83.1343, 349.343, 90.7385, 0.94365)
	pt3dadd(82.7921, 350.054, 90.7639, 0.559)
	pt3dadd(82.704, 350.355, 90.7012, 0.609058)
	pt3dadd(82.5981, 350.639, 90.6001, 0.595286)
	pt3dadd(82.3486, 350.966, 90.6, 0.468808)
	pt3dadd(82, 351.147, 90.6, 0.89331)
	pt3dadd(81.5201, 351.56, 90.8175, 0.70992)
	pt3dadd(81.1613, 351.992, 91.1068, 0.729098)
	pt3dadd(80.8527, 352.406, 91.435, 0.80983)
	pt3dadd(80.5642, 352.876, 91.7175, 0.643394)
	pt3dadd(80.1951, 353.294, 91.9585, 0.73735)
	pt3dadd(79.8361, 353.794, 92.6164, 0.769148)
	pt3dadd(79.5584, 353.988, 93.0449, 0.798578)
	pt3dadd(78.7417, 354.414, 93.1563, 0.51933)
	pt3dadd(78.501, 354.575, 93.2444, 0.505128)
	pt3dadd(78.3035, 354.71, 93.3722, 0.514134)
	pt3dadd(78.0933, 354.86, 93.516, 0.526112)
	pt3dadd(77.9214, 355.031, 93.6977, 0.559958)
	pt3dadd(77.7975, 355.234, 93.9072, 0.544562)
	pt3dadd(77.703, 355.434, 94.1051, 0.53018)
	pt3dadd(77.5838, 355.662, 94.3678, 0.648234)
	pt3dadd(77.2067, 355.994, 94.5644, 0.701168)
	pt3dadd(76.6695, 356.292, 94.7812, 0.593708)
	pt3dadd(76.4406, 356.431, 94.9195, 0.552002)
	pt3dadd(76.2455, 356.572, 95.0768, 0.56523)
	pt3dadd(76.0533, 356.712, 95.2723, 0.600874)
	pt3dadd(75.7022, 356.918, 95.6231, 0.558164)
	pt3dadd(75.3315, 357.101, 96.0097, 0.574816)
	pt3dadd(74.9333, 357.43, 96.2512, 0.806798)
	pt3dadd(75.0185, 358.111, 96.7847, 0.874432)
	pt3dadd(74.6518, 358.773, 96.5136, 0.873514)
	pt3dadd(74.3938, 359.161, 96.6169, 0.452678)
	pt3dadd(74.2792, 359.408, 96.7321, 0.490724)
	pt3dadd(74.2417, 359.664, 96.8713, 0.536368)
	pt3dadd(74.2697, 359.89, 97.0252, 0.488316)
	pt3dadd(74.3362, 360.103, 97.1604, 0.601572)
	pt3dadd(74.4094, 360.604, 97.4449, 1.0715)
	pt3dadd(74.0629, 361.039, 98.0937, 1.03362)
	pt3dadd(73.9008, 361.712, 98.3038, 0.49193)
	pt3dadd(73.8304, 361.92, 98.4309, 0.41294)
	pt3dadd(73.7641, 362.136, 98.5257, 0.34863)
	pt3dadd(73.7105, 362.346, 98.5469, 0.350576)
	pt3dadd(73.627, 362.561, 98.5872, 0.438526)
	pt3dadd(73.4021, 363.022, 98.7142, 0.580214)
	pt3dadd(73.0064, 363.144, 98.9352, 0.40332)
	pt3dadd(72.8159, 363.231, 99.0491, 0.379574)
	pt3dadd(72.6155, 363.344, 99.1722, 0.368558)
	pt3dadd(72.4147, 363.439, 99.2725, 0.474182)
	pt3dadd(72.0183, 363.477, 99.5118, 0.547414)
	pt3dadd(71.7818, 363.427, 99.6511, 0.501674)
	pt3dadd(71.4698, 363.354, 99.7475, 0.500558)
	pt3dadd(71.2101, 363.313, 99.8306, 0.438188)
	pt3dadd(70.9436, 363.306, 99.8939, 0.41597)
	pt3dadd(70.7326, 363.316, 99.8709, 0.378814)
	pt3dadd(70.5088, 363.335, 99.8067, 0.408182)
	pt3dadd(70.2856, 363.381, 99.7271, 0.456066)
	pt3dadd(70.042, 363.451, 99.6226, 0.579796)
	pt3dadd(69.7878, 363.517, 99.472, 0.751756)
	pt3dadd(69.2899, 363.636, 99.5626, 0.425666)
	pt3dadd(69.0227, 363.746, 99.5848, 0.444372)
	pt3dadd(68.7525, 363.861, 99.6589, 0.508856)
	pt3dadd(68.5013, 364, 99.7464, 0.562662)
	pt3dadd(68.2602, 364.142, 99.8282, 0.63737)
	pt3dadd(67.9516, 364.33, 99.9801, 0.564536)
	pt3dadd(67.7269, 364.46, 100.143, 0.506362)
	pt3dadd(67.5172, 364.563, 100.289, 0.60989)
	pt3dadd(67.2146, 364.711, 100.279, 0.559672)
	pt3dadd(66.8457, 364.876, 100.2, 0.521836)
	pt3dadd(66.5318, 365.153, 101, 0.80132)
	pt3dadd(66.1934, 365.6, 101.6, 0.935592)
	pt3dadd(66.0248, 366.256, 100.924, 0.638652)
	pt3dadd(65.9653, 366.69, 101.014, 0.471596)
	pt3dadd(65.9375, 366.968, 101.004, 0.462664)
	pt3dadd(65.9055, 367.213, 100.939, 0.443184)
	pt3dadd(65.8183, 367.469, 100.765, 0.402116)
	pt3dadd(65.7342, 367.689, 100.65, 0.423036)
	pt3dadd(65.6519, 367.904, 100.543, 0.446386)
	pt3dadd(65.5948, 368.171, 100.418, 0.531112)
	pt3dadd(65.5781, 368.45, 100.304, 0.434602)
	pt3dadd(65.5701, 368.674, 100.229, 0.430562)
	pt3dadd(65.5392, 368.907, 100.185, 0.422096)
	pt3dadd(65.4748, 369.136, 100.202, 0.564468)
	pt3dadd(65.4062, 369.404, 100.257, 0.747786)
	pt3dadd(65.417, 369.796, 100.6, 0.777894)
	pt3dadd(65.5881, 370.293, 100.8, 0.965572)
  }
  apic[11] {pt3dclear()
	pt3dadd(95.6336, 295.936, 87.7441, 0.87901)
	pt3dadd(95.4622, 296.731, 87.4931, 0.667022)
	pt3dadd(95.3722, 297.309, 87.4445, 0.665042)
	pt3dadd(95.3121, 297.615, 87.5818, 0.890384)
	pt3dadd(95.5508, 298.432, 87.5103, 0.524948)
	pt3dadd(95.6017, 298.683, 87.4183, 0.537374)
	pt3dadd(95.5894, 298.967, 87.3263, 0.490326)
	pt3dadd(95.5765, 299.247, 87.1991, 0.527974)
  }
}
proc shape3d_5() {
  apic[11] {	pt3dadd(95.6097, 299.514, 87.014, 0.605266)
	pt3dadd(95.7511, 299.747, 86.757, 0.794384)
	pt3dadd(95.9399, 299.978, 86.4869, 1.15478)
	pt3dadd(96.0346, 300.73, 85.6253, 0.895366)
	pt3dadd(96.2621, 301.41, 85.64, 0.880112)
	pt3dadd(96.6112, 302.276, 85.4393, 0.530442)
	pt3dadd(96.77, 302.578, 85.3314, 0.44376)
	pt3dadd(96.8941, 302.822, 85.2553, 0.458784)
	pt3dadd(97.0089, 303.072, 85.168, 0.43418)
	pt3dadd(97.1162, 303.355, 85.0508, 0.522422)
	pt3dadd(97.2514, 303.634, 84.9749, 0.801318)
	pt3dadd(97.763, 304.218, 84.3197, 0.841082)
	pt3dadd(98.098, 304.576, 83.8454, 0.828996)
	pt3dadd(98.2519, 304.983, 83.6256, 0.570158)
	pt3dadd(98.3617, 305.242, 83.4928, 0.576432)
	pt3dadd(98.4637, 305.521, 83.4546, 0.7458)
	pt3dadd(98.896, 306.067, 82.9865, 0.62358)
	pt3dadd(99.1878, 306.33, 82.5521, 0.65975)
	pt3dadd(99.3347, 306.611, 82.1121, 0.677762)
	pt3dadd(99.303, 307.086, 81.8418, 0.509242)
	pt3dadd(99.355, 307.312, 81.7234, 0.459418)
	pt3dadd(99.5101, 307.504, 81.5684, 0.557994)
	pt3dadd(99.6947, 307.638, 81.3672, 0.50642)
	pt3dadd(99.8698, 307.725, 81.1613, 0.544542)
	pt3dadd(100.218, 307.792, 80.79, 0.728996)
	pt3dadd(100.648, 307.758, 80.5867, 1.02395)
	pt3dadd(100.794, 308.519, 80.2198, 0.735084)
	pt3dadd(100.879, 308.824, 79.9901, 0.661774)
	pt3dadd(101.005, 309.109, 79.5218, 0.68203)
	pt3dadd(101.154, 309.405, 78.9694, 0.816352)
	pt3dadd(101.164, 309.987, 78.4721, 0.74524)
	pt3dadd(101.224, 310.534, 78.1461, 0.62856)
	pt3dadd(101.456, 310.959, 77.8068, 0.843218)
	pt3dadd(101.639, 311.635, 77.4239, 0.800428)
	pt3dadd(101.728, 312.171, 77.1511, 0.581588)
	pt3dadd(101.827, 312.416, 76.9351, 0.625916)
	pt3dadd(101.949, 312.684, 76.571, 0.66933)
	pt3dadd(102.152, 313.006, 76.0715, 0.752248)
	pt3dadd(102.432, 313.153, 75.5162, 0.943542)
	pt3dadd(102.132, 313.741, 75.4646, 0.662706)
	pt3dadd(102.006, 314.046, 75.3434, 0.618952)
	pt3dadd(101.911, 314.357, 75.1401, 0.632276)
	pt3dadd(101.85, 314.634, 74.8967, 0.750234)
	pt3dadd(101.847, 314.88, 74.5568, 0.841406)
	pt3dadd(101.884, 315.449, 73.9886, 0.798582)
	pt3dadd(101.907, 316.002, 73.6265, 0.544486)
	pt3dadd(101.895, 316.455, 73.4005, 0.487506)
	pt3dadd(101.88, 316.703, 73.3022, 0.43664)
	pt3dadd(101.87, 316.937, 73.248, 0.442056)
	pt3dadd(101.88, 317.155, 73.1377, 0.392746)
	pt3dadd(101.899, 317.37, 73.0941, 0.397522)
	pt3dadd(101.911, 317.573, 73.0929, 0.44482)
	pt3dadd(101.918, 317.796, 73.0992, 0.452114)
	pt3dadd(101.918, 318.043, 73.1369, 0.366026)
	pt3dadd(101.931, 318.307, 73.152, 0.398968)
	pt3dadd(101.971, 318.589, 73.0973, 0.398944)
	pt3dadd(102.004, 318.916, 73.0929, 0.691998)
	pt3dadd(102.072, 319.281, 73.1729, 1.03209)
	pt3dadd(102.121, 319.674, 73.7648, 1.02425)
	pt3dadd(102.187, 320, 74.4707, 0.914896)
	pt3dadd(102.145, 320.167, 75.1215, 0.886772)
	pt3dadd(102.036, 320.371, 75.7455, 0.972214)
	pt3dadd(102.121, 320.567, 76.6615, 1.03934)
	pt3dadd(102.283, 320.59, 77.3504, 0.941238)
	pt3dadd(102.466, 320.677, 77.9918, 0.943352)
	pt3dadd(102.63, 320.855, 78.6583, 0.763566)
	pt3dadd(102.78, 321.249, 78.8349, 0.563086)
	pt3dadd(102.882, 321.513, 79.0356, 0.562886)
	pt3dadd(102.975, 321.735, 79.246, 0.640356)
	pt3dadd(103.01, 322.183, 79.6519, 0.617812)
	pt3dadd(102.946, 322.566, 79.6984, 0.538352)
	pt3dadd(102.963, 322.844, 79.7177, 0.600282)
	pt3dadd(103.036, 323.13, 79.8127, 0.896896)
	pt3dadd(103.461, 323.976, 80.2554, 0.525478)
	pt3dadd(103.572, 324.168, 80.4555, 0.496824)
	pt3dadd(103.668, 324.348, 80.6455, 0.525734)
	pt3dadd(103.761, 324.548, 80.8554, 0.498304)
	pt3dadd(103.975, 324.921, 81.0452, 0.378364)
	pt3dadd(104.107, 325.142, 81.1644, 0.461346)
	pt3dadd(104.226, 325.338, 81.3013, 0.492292)
	pt3dadd(104.326, 325.537, 81.4417, 0.536702)
	pt3dadd(104.46, 326.011, 81.6264, 0.561666)
	pt3dadd(104.577, 326.596, 81.6118, 0.473524)
	pt3dadd(104.618, 326.854, 81.5801, 0.458624)
	pt3dadd(104.691, 327.109, 81.5802, 0.463762)
	pt3dadd(104.788, 327.365, 81.5817, 0.573968)
	pt3dadd(105.09, 327.901, 81.4588, 0.947736)
	pt3dadd(105.29, 328.605, 81.2086, 1.00912)
	pt3dadd(105.235, 329.362, 80.7889, 0.698668)
	pt3dadd(105.204, 329.917, 80.4172, 0.733892)
	pt3dadd(105.221, 330.517, 80.1116, 0.854026)
	pt3dadd(105.104, 331.181, 79.8573, 0.724396)
	pt3dadd(105.125, 331.547, 79.7946, 0.6195)
	pt3dadd(105.12, 331.961, 79.6813, 0.708484)
	pt3dadd(104.993, 332.581, 79.4177, 0.516622)
	pt3dadd(104.918, 332.87, 79.1955, 0.551834)
	pt3dadd(104.878, 333.059, 78.8446, 0.616458)
	pt3dadd(104.628, 333.692, 78.86, 0.231466)
	pt3dadd(104.454, 334.082, 78.8382, 0.667258)
	pt3dadd(104.259, 334.418, 78.553, 0.740158)
	pt3dadd(103.995, 334.919, 78.0861, 0.599634)
	pt3dadd(103.866, 335.177, 77.848, 0.588508)
	pt3dadd(103.674, 335.606, 77.5605, 0.513164)
	pt3dadd(103.584, 335.836, 77.4683, 0.492738)
	pt3dadd(103.532, 336.087, 77.4135, 0.496464)
	pt3dadd(103.526, 336.344, 77.362, 0.54547)
	pt3dadd(103.587, 336.628, 77.3054, 0.609436)
	pt3dadd(103.744, 336.906, 77.1183, 0.83534)
	pt3dadd(103.865, 337.706, 77.1377, 0.565654)
	pt3dadd(103.857, 338, 77.0703, 0.481178)
	pt3dadd(103.838, 338.248, 76.9697, 0.44212)
	pt3dadd(103.758, 338.528, 76.9092, 0.457404)
	pt3dadd(103.657, 338.76, 76.8246, 0.415712)
	pt3dadd(103.563, 338.982, 76.7686, 0.448042)
	pt3dadd(103.445, 339.233, 76.7181, 0.582906)
	pt3dadd(103.247, 339.801, 76.6771, 0.860992)
	pt3dadd(102.943, 340.476, 76.3733, 0.750048)
	pt3dadd(102.825, 340.851, 76.1958, 0.565452)
	pt3dadd(102.709, 341.144, 76.0274, 0.600846)
	pt3dadd(102.568, 341.383, 75.8823, 0.587344)
	pt3dadd(102.435, 341.589, 75.7061, 0.732108)
	pt3dadd(102.164, 341.95, 75.2726, 0.80018)
	pt3dadd(101.878, 342.65, 74.9302, 0.650662)
	pt3dadd(101.735, 343.26, 74.8667, 0.769874)
	pt3dadd(101.585, 343.747, 74.6656, 0.524192)
	pt3dadd(101.464, 344.217, 74.5084, 0.293508)
	pt3dadd(101.381, 344.456, 74.4704, 0.361556)
	pt3dadd(101.241, 344.704, 74.3731, 0.632826)
	pt3dadd(101.03, 344.849, 74.1506, 0.848596)
	pt3dadd(100.829, 345.343, 73.8936, 0.506166)
	pt3dadd(100.683, 345.708, 73.8895, 0.427728)
	pt3dadd(100.538, 346.027, 73.8647, 0.484312)
	pt3dadd(100.326, 346.351, 73.6765, 0.501138)
	pt3dadd(100.191, 346.586, 73.5816, 0.526)
	pt3dadd(100.068, 346.846, 73.4827, 0.735736)
	pt3dadd(99.9827, 347.433, 73.2127, 0.689944)
	pt3dadd(99.949, 348.086, 73.0565, 0.71034)
	pt3dadd(99.8517, 348.445, 72.9169, 0.846222)
	pt3dadd(99.6833, 348.783, 72.5152, 0.860512)
	pt3dadd(99.577, 349.084, 72.206, 0.82698)
	pt3dadd(99.5806, 349.578, 72.0751, 0.90724)
	pt3dadd(99.5292, 350.166, 71.9933, 0.699096)
	pt3dadd(99.4167, 350.823, 71.8906, 0.415912)
	pt3dadd(99.3502, 351.071, 71.8528, 0.430006)
	pt3dadd(99.2617, 351.313, 71.7921, 0.486512)
	pt3dadd(99.1701, 351.567, 71.7153, 0.755576)
	pt3dadd(98.7635, 352.309, 71.3459, 0.98995)
	pt3dadd(98.553, 352.872, 71.3795, 0.48332)
	pt3dadd(98.4369, 353.19, 71.5332, 0.44029)
	pt3dadd(98.3584, 353.441, 71.5901, 0.47228)
	pt3dadd(98.2751, 353.72, 71.6184, 0.450106)
	pt3dadd(98.2154, 354.016, 71.6259, 0.456454)
	pt3dadd(98.1623, 354.326, 71.5924, 0.568502)
	pt3dadd(98.1008, 354.648, 71.3198, 0.596074)
	pt3dadd(98.0584, 354.87, 71.1126, 0.486314)
	pt3dadd(98.0133, 355.069, 70.9518, 0.469698)
	pt3dadd(97.9595, 355.279, 70.8234, 0.427708)
	pt3dadd(97.8493, 355.527, 70.6879, 0.439006)
	pt3dadd(97.7414, 355.747, 70.6246, 0.401744)
	pt3dadd(97.6169, 355.954, 70.5695, 0.402496)
	pt3dadd(97.4726, 356.187, 70.4463, 0.465608)
	pt3dadd(97.3322, 356.412, 70.3867, 0.5352)
	pt3dadd(97.2073, 356.696, 70.4024, 0.753904)
	pt3dadd(97.054, 357.37, 70.0194, 0.761146)
	pt3dadd(97.0278, 357.95, 69.7357, 1.11027)
	pt3dadd(96.9477, 358.404, 68.9355, 1.00223)
	pt3dadd(96.8255, 358.539, 68.4285, 1.01986)
	pt3dadd(96.5766, 358.934, 68.0894, 1.00435)
	pt3dadd(96.2486, 359.528, 67.8693, 0.597648)
	pt3dadd(96.0228, 359.771, 67.7506, 0.535236)
	pt3dadd(95.8087, 359.935, 67.6558, 0.453918)
	pt3dadd(95.6078, 360.132, 67.5328, 0.618028)
	pt3dadd(95.4962, 360.354, 67.3329, 0.894258)
	pt3dadd(95.6109, 360.564, 66.9077, 0.887596)
	pt3dadd(95.6257, 360.842, 66.2794, 0.935812)
	pt3dadd(95.4317, 361.21, 65.7323, 0.804564)
	pt3dadd(95.2917, 361.565, 65.2857, 0.617332)
	pt3dadd(95.1143, 361.927, 64.9604, 0.580372)
	pt3dadd(95.0455, 362.135, 64.7483, 0.646664)
	pt3dadd(95.0523, 362.415, 64.2136, 0.699456)
	pt3dadd(95.0197, 362.691, 63.6923, 0.788032)
	pt3dadd(94.7965, 362.953, 63.4773, 0.699452)
	pt3dadd(94.468, 363.239, 63.2204, 0.891778)
	pt3dadd(94.0511, 363.458, 63.2202, 0.972908)
	pt3dadd(93.2761, 363.954, 62.4234, 0.501386)
	pt3dadd(93.111, 364.1, 62.2439, 0.481146)
	pt3dadd(92.948, 364.269, 62.0895, 0.529566)
	pt3dadd(92.5848, 364.664, 62.0655, 0.560044)
	pt3dadd(92.0145, 364.762, 62.07, 0.444078)
	pt3dadd(91.7168, 364.789, 62.0903, 0.5946)
	pt3dadd(91.4326, 364.899, 62.0533, 0.598588)
	pt3dadd(91.1424, 365.174, 61.6339, 0.626186)
	pt3dadd(90.9586, 365.326, 61.418, 0.534406)
	pt3dadd(90.7444, 365.455, 61.2485, 0.57433)
	pt3dadd(90.4929, 365.586, 61.0747, 0.61441)
	pt3dadd(90.2098, 365.681, 60.9305, 0.65628)
	pt3dadd(89.896, 365.747, 60.7925, 0.865104)
	pt3dadd(89.6582, 365.916, 60.4095, 0.854036)
	pt3dadd(89.3659, 366.097, 59.8918, 0.633644)
	pt3dadd(89.0692, 366.135, 59.3953, 0.619306)
  }
}
proc shape3d_6() {
  apic[11] {	pt3dadd(88.7627, 365.986, 59.1836, 0.76299)
	pt3dadd(88.1487, 366.264, 58.706, 1.06692)
	pt3dadd(87.6074, 366.401, 57.9754, 1.0919)
	pt3dadd(86.8874, 366.513, 57.1645, 0.706494)
	pt3dadd(86.47, 366.786, 56.7751, 0.709596)
	pt3dadd(86.1195, 366.717, 56.5351, 0.664916)
	pt3dadd(85.6305, 366.814, 56.1052, 0.795428)
	pt3dadd(85.3872, 366.767, 55.6715, 0.923494)
	pt3dadd(84.8322, 366.623, 55.5443, 0.750458)
	pt3dadd(84.2428, 366.749, 55.1848, 0.545894)
	pt3dadd(83.9917, 366.841, 55.0552, 0.466184)
	pt3dadd(83.7397, 366.934, 54.9277, 0.464794)
	pt3dadd(83.5226, 366.988, 54.8484, 0.50505)
	pt3dadd(83.2877, 367.03, 54.7269, 0.480132)
	pt3dadd(83.0579, 367.048, 54.5922, 0.560608)
	pt3dadd(82.6148, 367.098, 54.3027, 0.553158)
	pt3dadd(82.3933, 367.163, 54.0901, 0.603352)
	pt3dadd(82.0086, 367.273, 53.6457, 0.538462)
	pt3dadd(81.7944, 367.358, 53.5037, 0.414828)
	pt3dadd(81.5705, 367.433, 53.378, 0.449176)
	pt3dadd(81.3154, 367.49, 53.2416, 0.498836)
	pt3dadd(81.0766, 367.525, 53.0367, 0.672668)
	pt3dadd(80.8909, 367.556, 52.7176, 0.810042)
	pt3dadd(80.495, 367.796, 52.6, 0.227006)
	pt3dadd(80.1494, 368.13, 53.2, 0.344514)
	pt3dadd(79.927, 368.308, 53, 0.394006)
	pt3dadd(79.6893, 368.382, 52.8, 0.328228)
	pt3dadd(79.5919, 368.389, 52.6, 0.304182)
	pt3dadd(79.2924, 368.518, 52.6, 0.525574)
	pt3dadd(79.0136, 368.471, 52.4, 0.516512)
	pt3dadd(78.8, 368.449, 52.4, 0.422974)
	pt3dadd(78.5, 368.464, 52.4, 0.44461)
	pt3dadd(78.382, 368.55, 52.2, 0.306518)
	pt3dadd(78.1997, 368.699, 52.2, 0.408426)
	pt3dadd(77.9599, 368.84, 52.4, 0.56515)
	pt3dadd(77.6865, 368.955, 52.4, 0.593134)
	pt3dadd(77.3881, 369.075, 52.4, 0.496624)
	pt3dadd(77.1849, 369.164, 52.4, 0.432714)
	pt3dadd(77.0062, 369.213, 52.2, 0.431)
	pt3dadd(76.9166, 369.24, 52, 0.421124)
	pt3dadd(76.7062, 369.315, 52, 0.439654)
	pt3dadd(76.4597, 369.467, 52, 0.407666)
	pt3dadd(76.3879, 369.48, 51.8, 0.32826)
	pt3dadd(76.1964, 369.595, 51.8, 0.338964)
	pt3dadd(76.0026, 369.709, 51.8, 0.39232)
	pt3dadd(75.6041, 369.914, 51.8, 0.654142)
	pt3dadd(75.2, 369.996, 51.8, 0.582764)
	pt3dadd(74.9995, 370.004, 51.8, 0.385764)
	pt3dadd(74.8277, 370.359, 51, 0.520256)
	pt3dadd(74.5065, 370.499, 50.8, 0.659392)
	pt3dadd(73.9628, 370.633, 50.8, 0.607024)
	pt3dadd(73.6299, 370.698, 50.6, 0.478778)
	pt3dadd(73.5135, 370.733, 50.6, 0.45125)
	pt3dadd(73.2919, 370.717, 50.6, 0.42611)
	pt3dadd(73.1985, 370.798, 50.4, 0.313106)
	pt3dadd(72.8999, 370.9, 50.4, 0.475752)
	pt3dadd(72.6051, 371.012, 50.4, 0.479388)
	pt3dadd(72.4126, 371.131, 50.2, 0.423334)
	pt3dadd(72.0972, 371.189, 50, 0.387248)
	pt3dadd(72, 371.201, 49.8, 0.388398)
	pt3dadd(71.8, 371.212, 49.8, 0.342316)
	pt3dadd(71.7251, 371.253, 49.6, 0.336162)
	pt3dadd(71.4973, 371.296, 49.6, 0.342732)
	pt3dadd(71.3264, 371.344, 49.6, 0.28378)
	pt3dadd(71.1162, 371.439, 49.6, 0.42892)
	pt3dadd(70.8004, 371.509, 49.8, 0.579066)
  }
  apic[12] {pt3dclear()
	pt3dadd(116.328, 231.228, 85.2738, 1.2226)
	pt3dadd(116.702, 232.464, 85.0788, 1.60748)
	pt3dadd(117.062, 233.651, 84.8914, 1.56995)
	pt3dadd(117.602, 234.485, 85.0008, 1.03108)
	pt3dadd(118.002, 235.202, 85.2332, 1.05029)
	pt3dadd(118.343, 235.927, 85.6854, 1.0963)
	pt3dadd(118.424, 236.527, 86.2198, 1.07525)
	pt3dadd(118.893, 237.545, 86.1496, 0.983288)
	pt3dadd(119.394, 238.533, 86.2593, 0.755418)
	pt3dadd(119.605, 239.019, 86.2, 0.596006)
	pt3dadd(119.843, 239.38, 86.2, 0.553656)
	pt3dadd(120.303, 239.903, 86.0996, 1.15439)
	pt3dadd(120.8, 240.807, 86.2041, 0.871042)
	pt3dadd(121.038, 241.224, 86.3253, 0.967826)
	pt3dadd(121.274, 241.703, 86.4508, 1.04484)
	pt3dadd(121.44, 242.308, 86.544, 1.08476)
	pt3dadd(121.494, 242.893, 86.7393, 1.44688)
	pt3dadd(121.936, 243.972, 87.0772, 0.858196)
	pt3dadd(122.208, 245.266, 86.9882, 0.484394)
	pt3dadd(122.368, 245.961, 86.7357, 1.08664)
	pt3dadd(122.669, 246.775, 86.8851, 0.734426)
	pt3dadd(122.981, 247.432, 87.031, 0.96111)
	pt3dadd(123.239, 248.045, 86.6, 0.83682)
	pt3dadd(123.561, 248.485, 87.8, 0.493014)
	pt3dadd(123.79, 249.131, 86.9731, 0.727416)
	pt3dadd(123.715, 249.858, 87.1581, 0.65452)
	pt3dadd(123.792, 250.514, 87.0938, 0.84779)
	pt3dadd(124.247, 251.494, 86.6491, 1.08017)
	pt3dadd(124.759, 252.486, 86.9268, 0.764018)
	pt3dadd(125.002, 252.984, 86.9776, 0.710266)
	pt3dadd(125.256, 253.406, 86.9271, 0.798464)
	pt3dadd(125.488, 253.847, 87.09, 0.783294)
	pt3dadd(125.74, 254.3, 87.2186, 0.86495)
	pt3dadd(125.996, 254.806, 87.2231, 1.10092)
	pt3dadd(126.262, 255.702, 87.4006, 0.86511)
	pt3dadd(126.257, 256.464, 87.5968, 1.56108)
	pt3dadd(127.241, 257.999, 88.3979, 0.90198)
	pt3dadd(127.574, 258.555, 88.566, 0.997752)
	pt3dadd(127.959, 259.045, 88.9612, 1.02649)
	pt3dadd(128.363, 259.403, 89.3399, 1.16985)
	pt3dadd(128.751, 259.65, 89.766, 0.900638)
	pt3dadd(128.9, 260.248, 90.185, 1.03638)
	pt3dadd(129.239, 260.87, 90.7139, 1.13864)
	pt3dadd(129.456, 261.414, 91.3288, 0.812584)
	pt3dadd(130.529, 263.313, 91.107, 0.87933)
	pt3dadd(130.781, 263.785, 91.0783, 0.739428)
	pt3dadd(130.982, 264.2, 91.1263, 0.985132)
	pt3dadd(131.223, 264.607, 91.2823, 0.992892)
	pt3dadd(131.789, 265.533, 91.3348, 1.33284)
	pt3dadd(132.404, 266.315, 92.254, 0.678296)
	pt3dadd(133.121, 266.882, 92.3792, 0.810296)
	pt3dadd(133.563, 267.519, 92.5822, 1.18771)
	pt3dadd(134.103, 268.272, 92.497, 0.91738)
	pt3dadd(134.686, 268.87, 92.4824, 1.04593)
	pt3dadd(134.957, 269.623, 93.17, 0.843702)
	pt3dadd(135.587, 270.374, 93.1163, 0.903148)
	pt3dadd(135.95, 271.125, 93.3897, 0.884432)
	pt3dadd(136.622, 271.881, 93.3987, 0.853322)
	pt3dadd(136.741, 272.808, 93.4226, 1.02345)
	pt3dadd(136.68, 273.385, 93.4889, 1.27002)
	pt3dadd(137.502, 274.319, 93.9322, 0.88923)
	pt3dadd(137.784, 274.806, 94.3551, 1.06528)
	pt3dadd(138.082, 275.352, 94.5912, 0.787784)
	pt3dadd(138.391, 276.198, 94.8664, 0.578932)
	pt3dadd(138.599, 277.137, 94.7185, 0.86626)
	pt3dadd(139.134, 278.032, 94.7876, 1.00252)
	pt3dadd(139.615, 278.97, 94.6984, 0.671478)
	pt3dadd(140.118, 279.914, 95.0148, 0.841702)
	pt3dadd(140.555, 281.216, 94.6146, 1.4156)
	pt3dadd(141.013, 282.34, 95.0658, 0.878296)
	pt3dadd(141.136, 282.846, 95.1611, 1.0749)
	pt3dadd(141.365, 283.588, 95.4772, 0.787044)
	pt3dadd(141.468, 284.11, 95.7022, 0.85077)
	pt3dadd(141.791, 284.675, 95.4135, 0.822508)
	pt3dadd(141.958, 285.17, 95.3021, 1.27348)
	pt3dadd(142.282, 285.797, 95.3052, 0.82898)
	pt3dadd(142.503, 286.281, 95.4396, 0.726828)
	pt3dadd(142.637, 286.701, 95.6037, 0.899536)
	pt3dadd(142.88, 287.192, 95.3573, 1.00617)
	pt3dadd(142.986, 288.055, 95.1833, 1.69368)
	pt3dadd(143.295, 289.477, 95.4851, 0.948192)
	pt3dadd(143.377, 290.042, 95.4786, 1.44141)
	pt3dadd(143.824, 291.104, 95.6266, 1.24655)
	pt3dadd(144.103, 291.756, 95.4267, 0.98735)
	pt3dadd(144.28, 292.509, 95.4729, 0.875638)
	pt3dadd(144.452, 293.188, 95.3923, 0.9637)
	pt3dadd(144.735, 293.831, 95.2766, 1.01071)
	pt3dadd(144.739, 294.65, 95.3246, 0.73636)
	pt3dadd(144.669, 295.24, 95.4598, 0.937584)
	pt3dadd(144.917, 295.93, 95.6143, 0.62038)
	pt3dadd(145.022, 296.277, 95.6906, 0.666504)
	pt3dadd(145.218, 296.894, 95.856, 0.673116)
	pt3dadd(145.343, 297.255, 95.9459, 0.6897)
	pt3dadd(145.5, 297.692, 96.0922, 0.671782)
	pt3dadd(145.787, 298.317, 95.8279, 0.805396)
	pt3dadd(146.015, 298.727, 95.7475, 0.856434)
	pt3dadd(146.226, 299.14, 95.7861, 0.992066)
	pt3dadd(146.781, 299.86, 96.1439, 1.42352)
	pt3dadd(146.987, 300.616, 95.8556, 0.982274)
	pt3dadd(147.188, 301.13, 95.7949, 1.02015)
	pt3dadd(147.241, 301.689, 95.6912, 1.14584)
	pt3dadd(147.288, 302.614, 95.6544, 0.78943)
	pt3dadd(147.361, 303.083, 95.6326, 0.76844)
	pt3dadd(147.498, 303.666, 95.7485, 0.887648)
	pt3dadd(147.682, 304.151, 95.9177, 0.76258)
	pt3dadd(147.967, 304.679, 96.1537, 0.754554)
	pt3dadd(148.284, 305.141, 96.2326, 0.837768)
	pt3dadd(148.591, 305.835, 96.0004, 1.13703)
	pt3dadd(149.163, 306.491, 95.9176, 1.14265)
	pt3dadd(149.412, 307.301, 96.1994, 1.19123)
	pt3dadd(149.622, 308.067, 97.0718, 0.59285)
  }
  apic[13] {pt3dclear()
	pt3dadd(149.622, 308.067, 97.0718, 0.59285)
	pt3dadd(149.669, 308.58, 97.2285, 0.722612)
	pt3dadd(149.817, 310.165, 97.7128, 0.743688)
	pt3dadd(149.894, 310.563, 97.8882, 0.737688)
	pt3dadd(150.005, 310.912, 98.1194, 0.775188)
	pt3dadd(150.222, 311.372, 98.741, 0.925686)
	pt3dadd(150.005, 312.259, 98.6962, 0.671984)
	pt3dadd(149.927, 312.657, 98.7624, 0.882874)
	pt3dadd(149.755, 313.527, 98.907, 1.59335)
	pt3dadd(150.224, 314.591, 99.7483, 0.672288)
	pt3dadd(150.281, 314.927, 99.9504, 0.642888)
	pt3dadd(150.308, 315.276, 100.063, 0.735122)
	pt3dadd(150.356, 315.652, 100.122, 1.13639)
	pt3dadd(150.592, 316.279, 100.825, 0.835466)
	pt3dadd(150.686, 316.529, 101.222, 0.643806)
	pt3dadd(150.826, 317.186, 101.529, 0.62974)
	pt3dadd(150.917, 317.523, 101.721, 0.758268)
	pt3dadd(150.991, 317.841, 101.938, 0.739476)
	pt3dadd(150.978, 318.149, 102.151, 0.829626)
	pt3dadd(151.137, 318.888, 102.343, 0.974182)
	pt3dadd(151.487, 319.6, 102.581, 1.74974)
	pt3dadd(151.443, 320.76, 102.974, 0.80564)
	pt3dadd(151.491, 321.073, 103.239, 0.917932)
  }
}
proc shape3d_7() {
  apic[13] {	pt3dadd(151.529, 321.831, 103.893, 0.822436)
	pt3dadd(151.779, 322.394, 104.274, 0.819562)
	pt3dadd(151.925, 322.711, 104.506, 1.07936)
	pt3dadd(151.79, 323.706, 104.955, 0.630638)
	pt3dadd(151.772, 324.023, 105.053, 0.719478)
	pt3dadd(151.739, 324.638, 105.242, 0.934022)
	pt3dadd(151.779, 325.346, 105.871, 0.633634)
	pt3dadd(151.741, 325.666, 106.087, 0.714908)
	pt3dadd(151.676, 326.031, 106.292, 0.63464)
	pt3dadd(151.65, 326.385, 106.507, 0.624364)
	pt3dadd(151.657, 326.844, 106.735, 0.669662)
	pt3dadd(151.676, 327.165, 106.911, 0.669322)
	pt3dadd(151.72, 327.454, 107.113, 0.719264)
	pt3dadd(151.791, 328.101, 107.4, 0.777276)
	pt3dadd(151.822, 328.618, 107.658, 0.840592)
	pt3dadd(151.839, 329.312, 107.537, 0.7833)
	pt3dadd(151.848, 330.032, 107.883, 0.916198)
	pt3dadd(151.786, 330.527, 108.574, 0.975036)
	pt3dadd(151.91, 331.19, 109.003, 0.684958)
	pt3dadd(151.906, 331.697, 108.74, 0.713016)
	pt3dadd(152.007, 332.294, 108.584, 0.636388)
	pt3dadd(152.124, 332.864, 108.64, 0.556076)
	pt3dadd(152.213, 333.182, 108.635, 0.551014)
	pt3dadd(152.409, 333.697, 108.773, 0.60796)
	pt3dadd(152.551, 333.975, 108.854, 0.645934)
	pt3dadd(152.724, 334.255, 108.867, 0.617046)
	pt3dadd(152.876, 334.53, 108.897, 0.620196)
	pt3dadd(153.025, 334.817, 108.929, 0.818976)
	pt3dadd(153.348, 335.313, 108.929, 1.34701)
	pt3dadd(153.902, 336.486, 109, 0.564112)
	pt3dadd(154.137, 336.898, 109.014, 0.579064)
	pt3dadd(154.277, 337.343, 109.044, 0.578098)
	pt3dadd(154.544, 337.931, 109.396, 0.47221)
	pt3dadd(154.624, 338.177, 109.531, 0.502404)
	pt3dadd(154.662, 338.417, 109.695, 0.585694)
	pt3dadd(154.682, 338.68, 109.909, 0.681022)
	pt3dadd(154.693, 338.938, 110.193, 0.838492)
	pt3dadd(154.708, 339.293, 110.987, 0.982186)
	pt3dadd(154.709, 339.462, 111.467, 0.940424)
	pt3dadd(154.817, 340.204, 111.825, 0.477686)
	pt3dadd(154.779, 340.498, 111.891, 0.485206)
	pt3dadd(154.699, 340.746, 111.967, 0.552108)
	pt3dadd(154.599, 340.99, 112.06, 0.616486)
	pt3dadd(154.374, 341.496, 112.184, 0.666024)
	pt3dadd(154.214, 341.782, 112.25, 0.649932)
	pt3dadd(154.22, 342.11, 112.587, 0.686402)
	pt3dadd(154.302, 342.569, 112.927, 0.609556)
	pt3dadd(154.369, 343.025, 113.335, 0.933062)
	pt3dadd(154.127, 343.519, 113.782, 0.671886)
	pt3dadd(153.946, 343.939, 114.116, 0.658036)
	pt3dadd(153.807, 344.414, 114.377, 0.938588)
	pt3dadd(153.566, 345.137, 114.586, 0.857184)
	pt3dadd(153.117, 345.728, 114.962, 0.83175)
	pt3dadd(152.586, 346.081, 115.296, 1.36614)
	pt3dadd(152.589, 346.883, 116.395, 0.797434)
	pt3dadd(152.765, 347.043, 117.152, 0.515574)
	pt3dadd(152.825, 347.049, 117.471, 0.188326)
	pt3dadd(152.829, 347.058, 117.636, 0.274598)
	pt3dadd(152.82, 347.058, 117.88, 0.364456)
	pt3dadd(152.624, 346.937, 118.127, 0.48407)
	pt3dadd(152.399, 346.756, 118.14, 0.477064)
  }
  apic[14] {pt3dclear()
	pt3dadd(149.622, 308.067, 97.0718, 0.59285)
	pt3dadd(150.311, 308.962, 95.8409, 1.16725)
	pt3dadd(150.662, 309.405, 95.3195, 1.05787)
	pt3dadd(150.887, 309.819, 94.9969, 1.26295)
	pt3dadd(151.273, 310.826, 94.7492, 0.666448)
	pt3dadd(151.596, 311.237, 94.7134, 0.849714)
	pt3dadd(151.909, 311.596, 94.756, 0.76877)
	pt3dadd(152.17, 311.943, 94.7937, 0.814786)
	pt3dadd(152.427, 312.325, 94.776, 0.911412)
	pt3dadd(152.601, 312.973, 94.2666, 0.912028)
	pt3dadd(152.691, 313.353, 93.959, 0.98558)
	pt3dadd(153.079, 313.918, 94.0343, 0.747502)
	pt3dadd(153.398, 314.294, 94.0132, 0.883748)
	pt3dadd(153.75, 314.574, 93.9223, 1.43471)
	pt3dadd(153.799, 315.243, 94.2898, 0.619544)
	pt3dadd(153.87, 315.527, 94.5072, 0.705846)
	pt3dadd(153.952, 315.803, 94.713, 0.751074)
	pt3dadd(154.179, 316.26, 94.5526, 0.850058)
	pt3dadd(154.393, 317.005, 94.5932, 0.85782)
	pt3dadd(154.466, 317.816, 94.6574, 0.792884)
	pt3dadd(154.403, 318.208, 94.7285, 0.834232)
	pt3dadd(154.36, 318.631, 94.8083, 0.899886)
	pt3dadd(154.521, 319.07, 94.9551, 0.813046)
	pt3dadd(154.59, 319.644, 94.9712, 0.83281)
	pt3dadd(154.495, 320.357, 95.1371, 0.94612)
	pt3dadd(154.379, 320.969, 95.4056, 1.41294)
	pt3dadd(154.546, 321.935, 95.5335, 0.71261)
	pt3dadd(154.646, 322.564, 95.7348, 0.742288)
	pt3dadd(154.621, 323.243, 95.8627, 1.0514)
	pt3dadd(154.817, 323.98, 95.964, 1.02652)
	pt3dadd(154.751, 325.032, 96.2396, 0.740114)
	pt3dadd(154.693, 325.417, 96.3083, 0.695638)
	pt3dadd(154.626, 326.062, 96.3873, 0.733846)
	pt3dadd(154.65, 326.696, 96.408, 0.78329)
	pt3dadd(154.598, 327.392, 96.317, 0.832866)
	pt3dadd(154.554, 328.032, 96.2818, 0.70418)
	pt3dadd(154.576, 328.719, 96.1952, 0.640198)
	pt3dadd(154.603, 329.32, 96.0803, 0.738764)
	pt3dadd(154.682, 329.653, 95.9042, 0.693766)
	pt3dadd(154.754, 329.978, 95.7274, 0.78688)
	pt3dadd(154.8, 330.322, 95.4806, 0.78257)
	pt3dadd(154.769, 330.931, 95.2652, 0.955232)
	pt3dadd(154.827, 331.664, 95.2167, 0.953342)
	pt3dadd(154.929, 332.468, 95.2477, 0.842686)
	pt3dadd(155.049, 333.159, 95.0032, 0.672712)
	pt3dadd(155.137, 333.409, 94.7603, 0.623548)
	pt3dadd(155.13, 333.794, 94.6643, 0.537274)
	pt3dadd(155.249, 334.157, 94.4707, 0.584932)
	pt3dadd(155.462, 334.497, 94.009, 0.957056)
	pt3dadd(155.875, 334.971, 94.1833, 0.927614)
	pt3dadd(155.851, 335.695, 93.9002, 0.991762)
	pt3dadd(155.804, 336.456, 93.7494, 0.629626)
	pt3dadd(155.746, 336.829, 93.7205, 0.559296)
	pt3dadd(155.716, 337.127, 93.6629, 0.522256)
	pt3dadd(155.72, 337.453, 93.5894, 0.555452)
	pt3dadd(155.772, 337.761, 93.4782, 0.578752)
	pt3dadd(155.87, 338.101, 93.2505, 0.657956)
	pt3dadd(155.998, 338.403, 93.0708, 0.624786)
	pt3dadd(156.197, 338.732, 92.9634, 0.710008)
	pt3dadd(156.415, 339.063, 92.8824, 0.815412)
	pt3dadd(156.775, 339.662, 92.7507, 1.05688)
	pt3dadd(156.818, 340.517, 92.7835, 1.36085)
	pt3dadd(157.657, 340.937, 92.536, 0.929416)
	pt3dadd(158.241, 341.724, 91.6321, 0.735238)
	pt3dadd(158.551, 342.087, 91.2528, 0.584118)
	pt3dadd(158.777, 342.365, 90.7751, 0.72398)
	pt3dadd(158.992, 342.798, 90.2698, 0.842774)
	pt3dadd(159.194, 343.272, 89.9156, 0.603252)
	pt3dadd(159.5, 343.742, 89.373, 0.64704)
	pt3dadd(159.84, 344.293, 88.5522, 1.18368)
	pt3dadd(160.048, 344.654, 88.0184, 1.01107)
	pt3dadd(160.444, 345.134, 87.1822, 0.837132)
	pt3dadd(160.692, 345.296, 86.6594, 0.797454)
	pt3dadd(160.857, 345.578, 85.9836, 0.63445)
	pt3dadd(160.875, 345.758, 85.7044, 0.664342)
	pt3dadd(160.849, 346.111, 85.2393, 0.533446)
	pt3dadd(160.764, 346.328, 85.0179, 0.550096)
	pt3dadd(160.681, 346.578, 84.5717, 0.83232)
	pt3dadd(160.827, 346.99, 83.9471, 0.898654)
	pt3dadd(161.194, 347.401, 83.5105, 1.02041)
	pt3dadd(161.44, 348.01, 83.1236, 0.999872)
	pt3dadd(161.603, 348.731, 82.6288, 1.07714)
	pt3dadd(162.101, 349.23, 82.1303, 0.63179)
	pt3dadd(162.42, 349.358, 82.0062, 0.593484)
	pt3dadd(162.743, 349.637, 81.6609, 0.660178)
	pt3dadd(162.916, 349.873, 81.4523, 0.67518)
	pt3dadd(162.986, 350.176, 81.2462, 0.73622)
	pt3dadd(162.902, 350.603, 80.82, 0.672206)
	pt3dadd(162.776, 351.002, 80.581, 0.72697)
	pt3dadd(162.712, 351.368, 80.1648, 0.891944)
	pt3dadd(162.587, 351.874, 79.4446, 1.16068)
	pt3dadd(163.032, 352.031, 79.0402, 0.987682)
	pt3dadd(163.477, 352.358, 78.2132, 0.87973)
	pt3dadd(163.751, 352.651, 77.5143, 1.10929)
	pt3dadd(164.265, 352.981, 77.061, 1.34924)
	pt3dadd(164.895, 353.102, 75.9122, 1.08251)
	pt3dadd(165.021, 353.1, 75.3049, 1.27237)
	pt3dadd(165.442, 353.305, 74.285, 1.36669)
	pt3dadd(166.411, 353.642, 73.3116, 0.614)
	pt3dadd(167.164, 353.753, 72.9485, 0.770144)
	pt3dadd(167.801, 353.908, 72.6397, 0.755494)
	pt3dadd(168.507, 353.921, 72.5364, 0.6604)
	pt3dadd(168.892, 353.916, 72.5192, 0.726594)
	pt3dadd(169.279, 353.844, 72.3579, 1.13925)
	pt3dadd(170.055, 354.838, 71.9007, 0.747726)
	pt3dadd(170.354, 355.358, 71.877, 0.574568)
	pt3dadd(170.629, 355.699, 71.8178, 0.678136)
	pt3dadd(170.909, 355.954, 72.0465, 0.434802)
	pt3dadd(171.429, 356.508, 71.6243, 0.379862)
	pt3dadd(171.605, 356.721, 71.5379, 0.444482)
	pt3dadd(171.778, 356.989, 71.5531, 0.365952)
	pt3dadd(172.026, 357.28, 71.5346, 0.500416)
	pt3dadd(172.272, 357.552, 71.3145, 0.712718)
	pt3dadd(172.547, 358.277, 71.1365, 0.576542)
	pt3dadd(172.761, 358.823, 71.0628, 0.85814)
	pt3dadd(173.15, 359.909, 70.2516, 0.98976)
	pt3dadd(173.348, 360.615, 69.7226, 0.656238)
	pt3dadd(173.5, 360.88, 69.3332, 0.81073)
	pt3dadd(173.821, 361.175, 68.8056, 0.733352)
	pt3dadd(173.977, 361.496, 68.5403, 0.69131)
	pt3dadd(174.055, 361.82, 68.1662, 0.736214)
	pt3dadd(174.133, 362.068, 67.801, 0.781024)
	pt3dadd(174.246, 362.305, 67.4245, 0.814824)
	pt3dadd(174.406, 362.525, 66.9095, 0.880852)
	pt3dadd(174.611, 362.74, 66.3464, 1.11082)
	pt3dadd(174.849, 363.22, 65.5482, 1.11499)
	pt3dadd(175.472, 363.437, 65.0102, 0.566834)
	pt3dadd(175.817, 363.369, 64.7393, 0.846094)
	pt3dadd(176.021, 363.787, 64.1967, 0.978302)
	pt3dadd(176.244, 364.062, 63.8522, 1.16369)
	pt3dadd(176.654, 364.328, 63.5351, 0.570144)
	pt3dadd(177.235, 364.782, 62.9716, 0.642624)
	pt3dadd(177.956, 365.23, 62.7773, 0.387424)
	pt3dadd(178.201, 365.452, 62.7378, 0.800274)
	pt3dadd(178.848, 365.461, 62.601, 0.450764)
	pt3dadd(179.119, 365.511, 62.5371, 0.26903)
	pt3dadd(179.433, 365.605, 62.398, 0.451348)
	pt3dadd(179.825, 365.74, 62.1975, 0.494242)
	pt3dadd(180.137, 365.855, 61.6434, 0.731326)
  }
}
proc shape3d_8() {
  apic[14] {	pt3dadd(180.613, 365.866, 62, 0.47684)
	pt3dadd(180.903, 365.808, 62, 0.408034)
	pt3dadd(181.159, 365.887, 62, 0.40524)
	pt3dadd(182.359, 366.337, 62.6, 0.632116)
	pt3dadd(182.7, 366.478, 62.4, 0.741088)
	pt3dadd(182.9, 366.366, 62, 0.39389)
	pt3dadd(182.975, 366.34, 61.8, 0.33564)
	pt3dadd(183.2, 366.357, 61.6, 0.44043)
	pt3dadd(183.5, 366.35, 61.4, 0.482178)
	pt3dadd(183.81, 366.436, 61.2, 0.470728)
	pt3dadd(184.09, 366.517, 61.4, 0.329878)
	pt3dadd(184.3, 366.6, 61.4, 0.399376)
	pt3dadd(184.482, 366.727, 61.4, 0.28926)
	pt3dadd(184.569, 366.746, 61.2, 0.245348)
	pt3dadd(184.72, 366.773, 61.4, 0.30123)
	pt3dadd(184.887, 366.842, 61.6, 0.330518)
	pt3dadd(184.992, 366.819, 61.8, 0.462878)
	pt3dadd(185.2, 366.911, 61.4, 0.556182)
	pt3dadd(185.399, 367.002, 61.2, 0.502778)
	pt3dadd(185.657, 367.053, 60.8, 0.671122)
	pt3dadd(186.049, 366.938, 60.6, 0.462424)
	pt3dadd(186.409, 366.922, 60.8, 0.41636)
	pt3dadd(186.689, 366.875, 60.8, 0.441172)
	pt3dadd(186.912, 366.83, 60.6, 0.4265)
	pt3dadd(187.177, 366.832, 60.6, 0.24636)
	pt3dadd(187.326, 366.845, 60.6, 0.334288)
	pt3dadd(187.931, 366.749, 60.8, 1.01366)
	pt3dadd(188.302, 366.896, 60.8, 0.613522)
	pt3dadd(188.601, 367.099, 60.6, 0.774936)
	pt3dadd(189.053, 367.174, 60.6, 0.671108)
	pt3dadd(189.395, 367.212, 60.6, 0.535122)
	pt3dadd(189.599, 367.202, 60.8, 0.504064)
	pt3dadd(189.896, 367.308, 60.6, 0.435096)
	pt3dadd(190.183, 367.326, 60.6, 0.407188)
	pt3dadd(190.3, 367.352, 60.4, 0.427062)
	pt3dadd(190.608, 367.384, 60.4, 0.430092)
	pt3dadd(190.845, 367.45, 60.4, 0.401166)
	pt3dadd(191.087, 367.533, 60.2, 0.416558)
	pt3dadd(191.369, 367.638, 60.2, 0.412344)
	pt3dadd(191.591, 367.715, 60.2, 0.405736)
	pt3dadd(191.805, 367.785, 60.2, 0.389144)
	pt3dadd(192.048, 367.841, 60.2, 0.441914)
	pt3dadd(192.4, 367.906, 60.2, 0.380616)
	pt3dadd(192.686, 367.929, 60.2, 0.394578)
	pt3dadd(193.015, 367.969, 60, 0.518578)
	pt3dadd(193.3, 368.016, 60, 0.567108)
	pt3dadd(193.646, 368.029, 59.6, 0.876972)
	pt3dadd(194.092, 367.883, 59.2, 1.0675)
  }
  apic[15] {pt3dclear()
	pt3dadd(116.607, 195.422, 82.1016, 1.44105)
	pt3dadd(117.456, 197.979, 79.7841, 1.32747)
	pt3dadd(117.774, 198.716, 79.11, 1.57552)
	pt3dadd(118.501, 199.516, 78.404, 1.5851)
	pt3dadd(118.968, 199.975, 77.9119, 1.37734)
	pt3dadd(119.661, 200.469, 77.6119, 0.863056)
	pt3dadd(120.144, 201.229, 77.2628, 1.23572)
	pt3dadd(120.62, 202.038, 76.0179, 1.60906)
  }
  apic[16] {pt3dclear()
	pt3dadd(120.62, 202.038, 76.0179, 1.60906)
	pt3dadd(121.565, 202.193, 75.7458, 0.923458)
	pt3dadd(122.392, 202.134, 75.8383, 0.346136)
	pt3dadd(122.939, 202.131, 75.6805, 0.91981)
	pt3dadd(123.635, 202.809, 75.5339, 0.483548)
	pt3dadd(123.865, 203.099, 75.605, 0.419266)
	pt3dadd(124.101, 203.348, 75.66, 0.340056)
	pt3dadd(124.31, 203.599, 75.7497, 0.413342)
	pt3dadd(124.521, 203.914, 75.834, 0.497474)
	pt3dadd(124.807, 204.292, 75.5363, 0.472634)
	pt3dadd(124.985, 204.566, 75.3338, 0.524624)
	pt3dadd(125.099, 204.94, 75.1536, 0.633788)
	pt3dadd(125.209, 205.301, 74.8283, 0.827434)
	pt3dadd(125.438, 205.82, 74.388, 1.02703)
	pt3dadd(125.632, 206.866, 74.3123, 0.611336)
	pt3dadd(125.726, 207.292, 74.3254, 0.44128)
	pt3dadd(125.866, 207.627, 74.355, 0.423844)
	pt3dadd(126.028, 207.892, 74.3398, 0.420244)
	pt3dadd(126.166, 208.149, 74.3087, 0.479954)
	pt3dadd(126.309, 208.421, 74.2864, 0.630476)
	pt3dadd(126.678, 208.963, 74.149, 0.648786)
	pt3dadd(126.907, 209.208, 74.1181, 0.97698)
	pt3dadd(127.475, 209.71, 74.0399, 1.01302)
	pt3dadd(127.871, 209.779, 73.6372, 0.920644)
	pt3dadd(127.96, 210.744, 73.7642, 0.36486)
	pt3dadd(128.01, 211.012, 73.7304, 0.380258)
	pt3dadd(128.062, 211.32, 73.6953, 0.467356)
	pt3dadd(128.087, 211.604, 73.6332, 0.613386)
	pt3dadd(128.087, 211.947, 73.543, 0.866204)
	pt3dadd(128.382, 212.437, 73.4903, 0.620814)
	pt3dadd(128.536, 212.729, 73.4353, 0.508666)
	pt3dadd(128.684, 213.012, 73.3571, 0.48408)
	pt3dadd(128.821, 213.277, 73.3401, 0.46995)
	pt3dadd(128.96, 213.535, 73.3246, 0.557948)
	pt3dadd(129.086, 213.798, 73.2854, 0.737352)
	pt3dadd(129.263, 214.115, 73.2056, 0.939172)
	pt3dadd(129.728, 214.36, 73.1125, 0.695616)
	pt3dadd(130.087, 214.581, 73.0141, 0.732618)
	pt3dadd(130.454, 214.898, 72.7454, 0.608132)
	pt3dadd(130.717, 215.23, 72.5474, 0.816626)
	pt3dadd(131.233, 215.636, 72.514, 0.461774)
	pt3dadd(131.66, 215.917, 72.4273, 0.690714)
	pt3dadd(132.05, 216.207, 72.1276, 1.47631)
	pt3dadd(132.88, 216.559, 71.8194, 0.97996)
	pt3dadd(133.333, 216.828, 71.4066, 1.0035)
	pt3dadd(133.656, 217.33, 71.2261, 0.805976)
	pt3dadd(133.95, 217.803, 71.2156, 0.586042)
	pt3dadd(134.049, 218.231, 71.1151, 0.932622)
	pt3dadd(134.55, 218.38, 71, 0.77219)
	pt3dadd(134.799, 218.811, 70.7034, 0.316646)
	pt3dadd(135.163, 218.972, 70.6261, 0.418244)
	pt3dadd(135.467, 219.174, 70.5008, 0.84954)
	pt3dadd(135.871, 219.407, 70.3757, 0.913566)
	pt3dadd(136.231, 219.489, 71.0342, 0.397718)
	pt3dadd(137.543, 220.171, 70.4409, 0.604124)
	pt3dadd(137.844, 220.365, 70.2438, 0.6054)
	pt3dadd(138.176, 220.465, 70.1677, 0.608848)
	pt3dadd(138.531, 220.643, 70.0771, 0.48477)
	pt3dadd(138.838, 220.948, 69.8244, 0.898134)
	pt3dadd(139.343, 221.02, 70, 0.626786)
	pt3dadd(139.662, 221.352, 70.4, 0.200286)
	pt3dadd(139.707, 221.394, 70.4, 0.24037)
	pt3dadd(139.875, 221.619, 70.4, 0.392196)
	pt3dadd(140.008, 221.749, 70.2, 0.501922)
	pt3dadd(140.21, 221.883, 70.2, 0.399394)
	pt3dadd(140.499, 222.104, 70, 0.573044)
	pt3dadd(140.699, 222.201, 70.2, 0.464676)
	pt3dadd(140.801, 222.397, 70, 0.437918)
	pt3dadd(140.901, 222.6, 70, 0.371186)
	pt3dadd(140.971, 222.77, 69.8, 0.367048)
	pt3dadd(141.114, 222.966, 70, 0.440166)
	pt3dadd(141.316, 223.084, 70, 0.51734)
	pt3dadd(141.463, 223.145, 70.2, 0.39142)
	pt3dadd(141.9, 223.325, 71.4, 0.335266)
	pt3dadd(142.317, 223.461, 70.5052, 0.606556)
	pt3dadd(142.415, 223.551, 70.2521, 0.565784)
	pt3dadd(142.646, 223.675, 70.0777, 0.535154)
	pt3dadd(143.327, 224.255, 69.6341, 0.877092)
	pt3dadd(144.009, 224.783, 69.8338, 0.53238)
	pt3dadd(144.279, 224.998, 69.8276, 0.42211)
	pt3dadd(144.525, 225.253, 69.6902, 0.578066)
	pt3dadd(145.022, 225.532, 69.7106, 0.47425)
	pt3dadd(145.278, 225.66, 69.7832, 0.332494)
	pt3dadd(145.585, 225.857, 69.8303, 0.3583)
	pt3dadd(145.805, 226.007, 69.8901, 0.320072)
	pt3dadd(146.035, 226.193, 69.8679, 0.294518)
	pt3dadd(146.251, 226.414, 69.8167, 0.282472)
	pt3dadd(146.488, 226.7, 69.8168, 0.397584)
	pt3dadd(146.733, 226.977, 69.7393, 0.86494)
	pt3dadd(146.981, 227.192, 69.1565, 1.1515)
	pt3dadd(147.817, 227.762, 69.6578, 0.31103)
	pt3dadd(148.003, 227.892, 69.7935, 0.188144)
	pt3dadd(148.212, 228.029, 69.9433, 0.288512)
	pt3dadd(148.392, 228.132, 70.0504, 0.2763)
	pt3dadd(148.559, 228.234, 70.0799, 0.309412)
	pt3dadd(148.746, 228.383, 70.1262, 0.335876)
	pt3dadd(148.931, 228.593, 70.136, 0.375466)
	pt3dadd(149.124, 228.83, 70.0926, 0.533426)
	pt3dadd(149.376, 229.098, 69.942, 0.59491)
	pt3dadd(149.654, 229.338, 69.9353, 0.505702)
	pt3dadd(149.91, 229.628, 69.8397, 0.680154)
	pt3dadd(150.134, 229.939, 69.789, 0.951896)
	pt3dadd(150.807, 230.507, 69.896, 0.645288)
	pt3dadd(151.082, 230.886, 69.8456, 0.596246)
	pt3dadd(151.362, 231.271, 70.0679, 0.326306)
	pt3dadd(151.502, 231.435, 70.2354, 0.349142)
	pt3dadd(151.614, 231.596, 70.4094, 0.550894)
	pt3dadd(151.633, 231.83, 70.5556, 0.680082)
	pt3dadd(151.767, 232.211, 70.1686, 0.571228)
	pt3dadd(151.863, 232.4, 69.9607, 0.574484)
	pt3dadd(152.248, 232.694, 69.7668, 0.63287)
	pt3dadd(152.448, 233.37, 69.393, 0.410402)
	pt3dadd(152.521, 233.6, 69.1958, 0.442946)
	pt3dadd(152.611, 233.778, 68.918, 0.551084)
	pt3dadd(152.698, 233.907, 68.6832, 0.643612)
	pt3dadd(152.884, 234.156, 68.1549, 0.806254)
	pt3dadd(153.182, 234.641, 67.806, 0.437998)
	pt3dadd(153.371, 234.845, 67.6115, 0.539338)
	pt3dadd(153.521, 235.011, 67.4071, 0.655574)
	pt3dadd(153.597, 235.309, 67.2894, 0.472856)
	pt3dadd(153.732, 235.629, 67.2599, 0.363106)
	pt3dadd(153.84, 235.895, 67.2343, 0.35718)
	pt3dadd(153.955, 236.213, 67.0647, 0.415316)
	pt3dadd(154.018, 236.397, 66.9672, 0.36168)
	pt3dadd(154.161, 236.634, 67.0274, 0.218206)
	pt3dadd(154.284, 236.837, 67.0346, 0.235994)
	pt3dadd(154.413, 237.024, 66.8339, 0.468298)
	pt3dadd(154.518, 237.534, 66.6979, 0.343812)
	pt3dadd(154.606, 237.762, 66.6843, 0.291158)
	pt3dadd(154.687, 237.969, 66.6606, 0.328216)
	pt3dadd(154.795, 238.19, 66.6597, 0.319078)
	pt3dadd(154.931, 238.431, 66.6702, 0.280614)
	pt3dadd(155.081, 238.639, 66.7119, 0.331854)
	pt3dadd(155.283, 238.87, 66.7873, 0.428864)
	pt3dadd(155.456, 239.103, 66.9397, 0.41404)
	pt3dadd(155.623, 239.55, 67.1024, 0.335976)
	pt3dadd(155.68, 239.749, 67.2153, 0.30503)
	pt3dadd(155.749, 239.997, 67.3263, 0.427042)
	pt3dadd(155.814, 240.281, 67.3838, 0.738814)
	pt3dadd(156.227, 240.849, 67.7602, 0.811636)
	pt3dadd(156.435, 241.242, 67.9184, 0.624586)
	pt3dadd(156.667, 241.464, 68.01, 0.446694)
	pt3dadd(156.956, 241.63, 67.9582, 0.427504)
	pt3dadd(157.244, 241.809, 67.9869, 0.822522)
  }
}
proc shape3d_9() {
  apic[16] {	pt3dadd(157.878, 242.449, 67.8827, 0.606708)
	pt3dadd(158.348, 242.804, 67.7801, 0.973824)
	pt3dadd(158.582, 243.256, 67.931, 0.35414)
	pt3dadd(158.874, 243.94, 68.7058, 1.01801)
	pt3dadd(159.136, 244.49, 68.9646, 0.299512)
	pt3dadd(159.246, 244.672, 68.9734, 0.1)
	pt3dadd(159.399, 244.842, 68.9959, 0.158266)
	pt3dadd(159.52, 245.071, 69.0159, 0.35059)
	pt3dadd(159.61, 245.324, 68.9312, 0.330126)
	pt3dadd(159.71, 245.579, 68.8903, 0.210376)
	pt3dadd(159.834, 245.824, 69.0412, 0.423232)
	pt3dadd(160.022, 246.039, 69.2136, 0.410814)
	pt3dadd(160.195, 246.214, 69.1709, 0.282984)
	pt3dadd(160.434, 246.388, 69.0493, 0.596252)
	pt3dadd(160.685, 246.616, 69.385, 0.55602)
	pt3dadd(160.922, 246.8, 69.6136, 0.489034)
	pt3dadd(161.179, 246.987, 69.7449, 0.890942)
	pt3dadd(161.841, 247.735, 70.0767, 0.446358)
	pt3dadd(162.023, 247.966, 70.2295, 0.511822)
	pt3dadd(162.101, 248.237, 70.3856, 0.785334)
	pt3dadd(162.582, 248.727, 70.7433, 0.427278)
	pt3dadd(162.789, 249.012, 70.8, 0.491898)
	pt3dadd(163.187, 249.205, 71, 0.61)
	pt3dadd(163.377, 249.419, 71, 0.567936)
	pt3dadd(163.644, 249.541, 71, 0.479146)
	pt3dadd(163.911, 249.57, 71.4, 0.483378)
	pt3dadd(164.095, 249.803, 71.4, 0.419944)
	pt3dadd(164.341, 250.212, 71.4, 0.749498)
	pt3dadd(164.401, 250.6, 71.4, 0.380646)
	pt3dadd(164.4, 250.8, 71.4, 0.39682)
	pt3dadd(164.398, 250.9, 71.6, 0.397032)
	pt3dadd(164.343, 251.052, 71.4, 0.477214)
	pt3dadd(164.2, 251.2, 71.4, 0.239766)
  }
  apic[17] {pt3dclear()
	pt3dadd(120.62, 202.038, 76.0179, 1.60906)
	pt3dadd(120.636, 202.772, 74.7372, 1.08724)
	pt3dadd(120.728, 203.329, 74.3231, 1.05157)
	pt3dadd(120.833, 203.82, 73.5856, 0.885498)
	pt3dadd(120.94, 204.1, 73.07, 1.03017)
	pt3dadd(121.054, 204.38, 72.6508, 1.13467)
	pt3dadd(121.503, 205.087, 71.9347, 0.857198)
	pt3dadd(121.885, 205.231, 71.1716, 0.687464)
	pt3dadd(122.004, 205.411, 70.688, 0.81258)
	pt3dadd(122.093, 205.743, 70.1503, 0.850296)
	pt3dadd(122.156, 205.988, 69.7476, 0.516878)
	pt3dadd(122.194, 206.191, 69.4237, 0.470288)
	pt3dadd(122.224, 206.345, 69.1306, 0.512612)
	pt3dadd(122.268, 206.501, 68.8203, 0.574914)
	pt3dadd(122.245, 206.744, 68.5641, 0.507782)
	pt3dadd(122.322, 206.998, 68.2416, 0.610776)
	pt3dadd(122.384, 207.181, 67.9989, 0.550998)
	pt3dadd(122.445, 207.352, 67.7636, 0.47287)
	pt3dadd(122.507, 207.533, 67.5365, 0.522486)
	pt3dadd(122.558, 207.716, 67.3433, 0.529598)
	pt3dadd(122.596, 207.994, 67.1582, 0.573774)
	pt3dadd(122.588, 208.32, 67.0265, 0.76957)
	pt3dadd(122.967, 209.386, 66.2397, 0.52771)
	pt3dadd(123.034, 209.649, 66.0285, 0.601894)
	pt3dadd(123.08, 209.915, 65.8917, 0.288592)
	pt3dadd(122.937, 210.369, 65.67, 0.304766)
	pt3dadd(122.876, 210.627, 65.5922, 0.331562)
	pt3dadd(122.842, 210.897, 65.4925, 0.40959)
	pt3dadd(122.881, 211.17, 65.3646, 0.456116)
	pt3dadd(122.995, 211.431, 65.2227, 0.680376)
	pt3dadd(123.187, 211.658, 64.985, 1.1155)
	pt3dadd(123.431, 211.835, 64.5069, 1.07659)
	pt3dadd(123.424, 212.47, 64.2829, 0.531884)
	pt3dadd(123.439, 212.952, 63.9524, 1.0132)
	pt3dadd(123.205, 213.539, 63.7505, 0.854806)
	pt3dadd(122.872, 214.478, 63.6016, 0.43937)
	pt3dadd(122.758, 214.836, 63.5152, 0.454622)
	pt3dadd(122.66, 215.192, 63.3648, 0.456098)
	pt3dadd(122.633, 215.554, 63.3017, 0.717254)
	pt3dadd(122.718, 215.908, 63.2431, 1.11036)
	pt3dadd(122.541, 216.75, 62.5905, 0.42254)
	pt3dadd(122.418, 217.08, 62.3451, 0.617596)
	pt3dadd(122.384, 217.314, 61.8274, 0.788682)
	pt3dadd(122.319, 217.608, 61.3457, 0.75471)
	pt3dadd(122.259, 217.887, 60.9894, 0.91772)
	pt3dadd(122.38, 218.698, 60.3134, 0.917754)
	pt3dadd(122.592, 219.153, 59.7849, 0.75533)
	pt3dadd(122.397, 219.592, 59.5407, 0.342542)
	pt3dadd(122.251, 219.909, 59.4701, 0.40724)
	pt3dadd(122.173, 220.263, 59.2755, 0.46985)
	pt3dadd(122.221, 220.626, 58.8949, 0.61755)
	pt3dadd(122.263, 220.838, 58.6185, 0.753618)
	pt3dadd(122.277, 221.187, 58.1393, 0.501138)
	pt3dadd(122.136, 221.52, 57.9118, 0.588016)
	pt3dadd(122.012, 221.86, 57.7798, 0.866918)
	pt3dadd(121.903, 222.132, 57.4301, 1.14495)
	pt3dadd(122.282, 222.66, 56.7997, 0.888656)
	pt3dadd(122.65, 222.825, 56.5793, 0.588958)
	pt3dadd(122.674, 223.488, 56.095, 0.496482)
	pt3dadd(122.728, 223.74, 55.8821, 0.606768)
	pt3dadd(122.779, 224.21, 55.4884, 0.464432)
	pt3dadd(122.711, 224.512, 55.2582, 0.453778)
	pt3dadd(122.545, 224.845, 55.1117, 0.397358)
	pt3dadd(122.39, 225.084, 55.0541, 0.373162)
	pt3dadd(122.173, 225.319, 54.9543, 0.483238)
	pt3dadd(121.892, 225.52, 54.8361, 0.698732)
	pt3dadd(121.734, 225.582, 54.2992, 1.01636)
	pt3dadd(121.611, 225.617, 53.4929, 0.870024)
	pt3dadd(121.386, 226.187, 52.8752, 0.69224)
	pt3dadd(121.233, 226.559, 52.6561, 0.491828)
	pt3dadd(121.063, 226.824, 52.1847, 0.270502)
	pt3dadd(120.9, 227.239, 51.8328, 0.565286)
	pt3dadd(120.776, 227.42, 51.6455, 0.608354)
	pt3dadd(120.441, 227.765, 51.324, 0.428614)
	pt3dadd(120.246, 227.944, 51.2009, 0.418288)
	pt3dadd(120.068, 228.154, 51.0981, 0.48573)
	pt3dadd(119.895, 228.433, 50.9768, 0.677736)
	pt3dadd(119.658, 228.689, 50.6955, 0.639028)
	pt3dadd(119.193, 228.968, 50.5568, 0.885458)
	pt3dadd(118.621, 229.745, 50.122, 0.594434)
	pt3dadd(118.334, 230.077, 49.9703, 0.532122)
	pt3dadd(118.001, 230.36, 49.9396, 0.731904)
	pt3dadd(117.629, 230.582, 50.0187, 0.72984)
	pt3dadd(117.312, 230.956, 49.656, 0.646296)
	pt3dadd(117.082, 231.266, 49.4563, 0.575298)
	pt3dadd(116.895, 231.628, 49.3921, 0.716334)
	pt3dadd(116.728, 232.027, 49.317, 0.829724)
	pt3dadd(116.231, 232.442, 49, 0.340826)
	pt3dadd(114.918, 233.711, 48.2, 0.331714)
	pt3dadd(114.495, 234.152, 48, 0.694092)
	pt3dadd(114.18, 234.486, 48, 0.40322)
	pt3dadd(114.093, 234.589, 47.8, 0.405134)
	pt3dadd(113.984, 234.795, 47.8, 0.371648)
	pt3dadd(113.814, 235.009, 47.8, 0.343448)
	pt3dadd(113.698, 235.198, 47.8, 0.305032)
	pt3dadd(113.622, 235.407, 47.6, 0.366016)
	pt3dadd(113.58, 235.6, 47.6, 0.359902)
	pt3dadd(113.556, 235.811, 47.4, 0.29249)
	pt3dadd(113.499, 235.999, 47.4, 0.308604)
	pt3dadd(113.398, 236.2, 47.4, 0.360344)
	pt3dadd(113.315, 236.404, 47.4, 0.382104)
	pt3dadd(113.2, 236.7, 47.4, 0.527572)
	pt3dadd(113.225, 236.9, 47.2, 0.449044)
	pt3dadd(113.18, 237.193, 47, 0.589554)
	pt3dadd(113.209, 237.499, 47, 0.418576)
	pt3dadd(113.022, 238.473, 46.4, 0.56357)
	pt3dadd(112.901, 238.502, 46.2, 0.44261)
	pt3dadd(112.69, 238.694, 45.8, 0.417786)
	pt3dadd(112.689, 238.89, 45.6, 0.54942)
	pt3dadd(112.573, 239.226, 45.4, 0.689064)
	pt3dadd(112.625, 239.588, 45.2, 0.646592)
	pt3dadd(112.774, 239.812, 44.8, 0.604036)
	pt3dadd(112.771, 240.122, 44.6, 0.47428)
	pt3dadd(112.773, 240.289, 44.4, 0.453232)
	pt3dadd(112.793, 240.603, 44.2, 0.448598)
	pt3dadd(112.808, 240.9, 44.2, 0.321456)
	pt3dadd(112.848, 241.1, 44.2, 0.274354)
	pt3dadd(112.897, 241.298, 44.2, 0.36026)
	pt3dadd(112.889, 241.5, 44.2, 0.30642)
	pt3dadd(112.907, 241.8, 44.4, 0.362946)
	pt3dadd(112.943, 242.051, 44.4, 0.433132)
	pt3dadd(112.925, 242.112, 44.2, 0.398902)
	pt3dadd(112.977, 242.209, 44, 0.449874)
	pt3dadd(112.993, 242.397, 43.8, 0.523278)
	pt3dadd(112.986, 242.594, 43.6, 0.41152)
	pt3dadd(113.019, 242.708, 43.2, 0.458238)
	pt3dadd(112.899, 242.795, 42.8, 0.380082)
	pt3dadd(112.829, 242.882, 42.6, 0.3687)
	pt3dadd(112.719, 242.946, 42.4, 0.397998)
	pt3dadd(112.5, 243.001, 42.2, 0.374038)
	pt3dadd(112.3, 243.1, 42.2, 0.377726)
	pt3dadd(112.192, 243.174, 42, 0.361162)
	pt3dadd(112.011, 243.219, 42, 0.301172)
	pt3dadd(111.786, 243.283, 41.8, 0.268898)
	pt3dadd(111.599, 243.499, 41.6, 0.546984)
	pt3dadd(111.41, 243.628, 41.4, 0.471824)
	pt3dadd(111.236, 243.787, 41.2, 0.399786)
	pt3dadd(111.205, 243.903, 41, 0.364448)
	pt3dadd(111.075, 244.082, 40.8, 0.25966)
	pt3dadd(111.074, 244.178, 40.6, 0.228386)
	pt3dadd(110.955, 244.337, 40.6, 0.224318)
	pt3dadd(110.6, 244.587, 40.4, 0.53975)
	pt3dadd(110.236, 244.653, 40.2, 0.591366)
	pt3dadd(110.009, 244.723, 40, 0.553382)
	pt3dadd(109.411, 244.926, 39.8, 0.42094)
	pt3dadd(109.21, 245.025, 39.6, 0.41319)
	pt3dadd(109.089, 245.082, 39.4, 0.407456)
	pt3dadd(109.002, 245.104, 39.2, 0.42138)
	pt3dadd(108.803, 245.209, 38.8, 0.566204)
	pt3dadd(108.511, 245.336, 38.6, 0.604044)
	pt3dadd(108.433, 245.47, 38.4, 0.502448)
	pt3dadd(108.219, 245.628, 38.2, 0.402674)
	pt3dadd(107.897, 245.796, 37.8, 0.604284)
	pt3dadd(107.769, 245.925, 37.4, 0.549566)
	pt3dadd(107.714, 246.051, 37, 0.559492)
	pt3dadd(107.7, 246.204, 36.6, 0.57013)
	pt3dadd(107.658, 246.248, 36.2, 0.447092)
	pt3dadd(107.993, 246.41, 35.8, 0.292496)
	pt3dadd(108.069, 246.442, 35.6, 0.35936)
	pt3dadd(108.186, 246.515, 35.2, 0.544252)
	pt3dadd(108.299, 246.604, 34.8, 0.556666)
	pt3dadd(108.5, 246.799, 34.4, 0.572662)
	pt3dadd(108.686, 246.93, 34.2, 0.502968)
	pt3dadd(108.801, 246.999, 33.8, 0.66576)
	pt3dadd(108.908, 247.018, 33.4, 0.829634)
	pt3dadd(108.301, 247.126, 32.8, 0.840136)
	pt3dadd(108.208, 247.315, 32.4, 0.77942)
  }
}
proc shape3d_10() {
  apic[17] {	pt3dadd(108.197, 247.396, 32, 0.879698)
	pt3dadd(108.584, 247.581, 31.4, 0.635844)
	pt3dadd(108.99, 247.726, 31, 0.69772)
  }
  apic[18] {pt3dclear()
	pt3dadd(115.908, 184.397, 82.6858, 1.9386)
	pt3dadd(114.831, 186.066, 80.6947, 1.81447)
	pt3dadd(114.489, 187.428, 79.4049, 1.65963)
	pt3dadd(114.443, 188.344, 78.8359, 0.838036)
	pt3dadd(114.388, 188.956, 78.3442, 0.95157)
	pt3dadd(114.026, 189.488, 77.7972, 0.978594)
	pt3dadd(114.028, 189.764, 77.3293, 0.841092)
	pt3dadd(114.047, 189.859, 76.8469, 0.603356)
	pt3dadd(114.085, 189.943, 76.4199, 0.394216)
	pt3dadd(114.215, 190.334, 76.0348, 0.670024)
	pt3dadd(114.206, 190.708, 75.7612, 0.691332)
	pt3dadd(114.08, 191.007, 75.2936, 1.00166)
	pt3dadd(114.287, 191.529, 74.7156, 0.86136)
	pt3dadd(114.213, 192.429, 73.8155, 1.13945)
	pt3dadd(114.014, 192.765, 73.3659, 0.790646)
	pt3dadd(113.813, 192.922, 73.0003, 0.92804)
	pt3dadd(113.632, 193.743, 72.1949, 0.992836)
	pt3dadd(113.633, 194.34, 71.6861, 1.05746)
	pt3dadd(113.685, 195.079, 71.1535, 0.684792)
	pt3dadd(113.548, 195.653, 70.8667, 0.628348)
	pt3dadd(113.441, 195.961, 70.771, 0.740642)
	pt3dadd(113.264, 196.653, 70.5194, 0.914774)
	pt3dadd(112.971, 197.24, 70.2103, 0.69882)
	pt3dadd(112.603, 197.641, 69.9409, 0.574912)
	pt3dadd(112.35, 197.786, 69.7383, 0.743842)
	pt3dadd(112.168, 198.007, 69.2878, 0.944686)
	pt3dadd(111.881, 198.57, 68.8363, 0.831784)
	pt3dadd(111.787, 199.033, 68.3798, 0.698732)
	pt3dadd(111.725, 199.301, 68.1171, 0.684784)
	pt3dadd(111.507, 199.649, 67.9511, 0.484258)
	pt3dadd(111.379, 199.871, 67.8376, 0.458384)
	pt3dadd(111.265, 200.098, 67.7336, 0.468878)
	pt3dadd(111.156, 200.35, 67.6134, 0.571116)
	pt3dadd(111.028, 200.59, 67.4755, 0.75808)
	pt3dadd(110.695, 201.025, 67.1953, 0.715856)
	pt3dadd(110.303, 201.483, 67.0405, 0.610332)
	pt3dadd(110.089, 201.749, 66.9559, 0.54011)
	pt3dadd(109.911, 201.987, 66.8784, 0.559198)
	pt3dadd(109.746, 202.219, 66.8102, 0.576966)
	pt3dadd(109.595, 202.516, 66.6265, 0.584538)
	pt3dadd(109.464, 202.778, 66.5425, 0.57475)
	pt3dadd(109.346, 203.078, 66.5126, 0.54668)
	pt3dadd(109.216, 203.426, 66.3322, 0.561804)
	pt3dadd(109.133, 203.694, 66.1769, 0.630176)
	pt3dadd(109.055, 204.214, 65.8819, 0.68943)
	pt3dadd(108.978, 204.905, 65.7971, 1.00052)
	pt3dadd(108.924, 205.759, 65.7624, 0.692424)
	pt3dadd(108.801, 206.092, 65.8096, 0.67452)
	pt3dadd(108.595, 206.611, 65.7471, 0.463162)
	pt3dadd(108.528, 206.877, 65.6567, 0.497404)
	pt3dadd(108.484, 207.15, 65.5703, 0.552284)
	pt3dadd(108.441, 207.439, 65.44, 0.848794)
	pt3dadd(108.26, 208.23, 64.9039, 0.972792)
	pt3dadd(107.893, 208.759, 64.5123, 1.30739)
	pt3dadd(107.845, 209.778, 64.4213, 0.656722)
	pt3dadd(107.849, 210.144, 64.2973, 0.444732)
	pt3dadd(107.858, 210.575, 64.2948, 0.41808)
	pt3dadd(107.89, 210.992, 64.2229, 0.479156)
	pt3dadd(107.924, 211.224, 64.1234, 0.474228)
	pt3dadd(107.936, 211.487, 64.0134, 0.519944)
	pt3dadd(107.925, 211.759, 63.9246, 0.799562)
	pt3dadd(107.547, 212.199, 63.4624, 1.19124)
	pt3dadd(107.36, 212.871, 62.8376, 0.936424)
	pt3dadd(107.373, 213.324, 62.545, 0.783414)
	pt3dadd(107.286, 213.932, 62.1833, 0.698514)
	pt3dadd(107.106, 214.55, 61.8674, 0.624472)
	pt3dadd(106.991, 215.034, 61.5207, 0.560528)
	pt3dadd(106.866, 215.477, 61.255, 0.568858)
	pt3dadd(106.878, 215.697, 61.0634, 0.647954)
	pt3dadd(106.974, 216.249, 60.7525, 0.624944)
	pt3dadd(107.09, 216.448, 60.4854, 0.905538)
	pt3dadd(107.232, 216.977, 59.8736, 0.777526)
	pt3dadd(107.273, 217.416, 59.2711, 1.003)
	pt3dadd(107.247, 218.234, 58.6716, 0.623496)
	pt3dadd(107.084, 218.932, 58.2573, 1.06651)
	pt3dadd(107.291, 219.463, 57.8084, 1.01732)
	pt3dadd(107.392, 220.072, 57.3356, 0.727442)
	pt3dadd(107.273, 220.719, 57.0797, 0.673416)
	pt3dadd(107.111, 221.171, 56.8189, 0.497096)
	pt3dadd(106.954, 221.531, 56.6733, 0.647324)
	pt3dadd(107.007, 221.988, 56.2304, 0.8933)
	pt3dadd(107.012, 222.497, 55.7949, 0.673912)
	pt3dadd(106.953, 222.791, 55.5979, 0.766584)
	pt3dadd(106.595, 223.267, 55.1294, 0.87285)
	pt3dadd(106.151, 223.723, 54.6185, 0.956064)
	pt3dadd(105.84, 224.157, 54.1825, 0.850662)
	pt3dadd(105.58, 224.418, 53.9019, 0.818288)
	pt3dadd(105.085, 224.841, 53.5406, 0.729528)
	pt3dadd(104.861, 225.078, 53.3645, 0.878262)
	pt3dadd(104.849, 225.886, 52.9974, 0.859736)
	pt3dadd(105.025, 226.197, 52.5877, 0.866556)
	pt3dadd(105.036, 226.717, 51.8925, 0.755884)
	pt3dadd(105.054, 227.266, 51.4813, 1.21284)
	pt3dadd(105.285, 227.921, 50.9275, 1.13499)
	pt3dadd(105.399, 228.345, 50.4292, 0.870172)
	pt3dadd(105.338, 228.65, 50.0844, 0.842138)
	pt3dadd(105.095, 228.935, 49.7333, 0.863966)
	pt3dadd(105.203, 229.476, 49.4293, 0.632166)
	pt3dadd(105.239, 229.75, 49.2732, 0.499784)
	pt3dadd(105.259, 229.991, 49.1077, 0.474)
	pt3dadd(105.267, 230.219, 49.0074, 0.49354)
	pt3dadd(105.271, 230.483, 48.9284, 0.55453)
	pt3dadd(105.349, 231.009, 48.6725, 0.641382)
	pt3dadd(105.37, 231.293, 48.3621, 0.83729)
	pt3dadd(105.41, 231.708, 47.8166, 0.824164)
	pt3dadd(105.676, 232.137, 47.3673, 0.54577)
	pt3dadd(105.664, 232.592, 46.9608, 0.29725)
	pt3dadd(105.648, 232.734, 46.7906, 0.256038)
	pt3dadd(105.622, 232.878, 46.6519, 0.41179)
	pt3dadd(105.609, 233.061, 46.4776, 0.611972)
	pt3dadd(105.648, 233.271, 46.1879, 0.894316)
	pt3dadd(105.662, 233.534, 45.6566, 0.86452)
	pt3dadd(105.513, 233.721, 45.0836, 0.678342)
	pt3dadd(105.44, 233.78, 44.7556, 0.678788)
	pt3dadd(105.328, 233.633, 44.1817, 0.458676)
	pt3dadd(105.099, 234.061, 43.8086, 0.465656)
	pt3dadd(104.995, 234.203, 43.6276, 0.400528)
	pt3dadd(104.861, 234.367, 43.4578, 0.31561)
	pt3dadd(104.727, 234.531, 43.295, 0.377494)
	pt3dadd(104.62, 234.651, 43.1411, 0.379546)
	pt3dadd(104.483, 234.809, 42.9883, 0.294562)
	pt3dadd(104.366, 234.938, 42.8468, 0.254424)
	pt3dadd(104.235, 235.094, 42.7042, 0.46934)
	pt3dadd(104.117, 235.196, 42.418, 0.672928)
	pt3dadd(103.858, 235.496, 41.8851, 1.08968)
	pt3dadd(103.732, 236.457, 41.5757, 0.558144)
	pt3dadd(103.71, 236.801, 41.4629, 0.491924)
	pt3dadd(103.719, 237.12, 41.2498, 0.525734)
	pt3dadd(103.719, 237.393, 40.896, 0.785788)
	pt3dadd(103.625, 237.93, 40.325, 0.802774)
	pt3dadd(103.764, 238.252, 40.0963, 0.720574)
	pt3dadd(103.965, 238.708, 39.7278, 0.661878)
	pt3dadd(104.113, 238.94, 39.5006, 0.680856)
	pt3dadd(104.253, 239.164, 39.3728, 0.557644)
	pt3dadd(104.53, 239.48, 39.2, 0.280116)
	pt3dadd(104.584, 239.609, 39.2, 0.323216)
	pt3dadd(104.602, 239.799, 39, 0.33058)
	pt3dadd(104.777, 240.5, 39.2, 0.306046)
	pt3dadd(104.724, 240.919, 39.2, 0.672126)
	pt3dadd(104.486, 241.193, 39.2, 0.43055)
	pt3dadd(104.428, 241.37, 39, 0.364414)
	pt3dadd(105.151, 241.626, 38.8, 0.33139)
	pt3dadd(105.222, 241.791, 38.4, 0.561356)
	pt3dadd(105.516, 241.838, 38, 0.436146)
	pt3dadd(105.9, 241.842, 37.6, 0.424668)
	pt3dadd(106.298, 242.004, 37.4, 0.350912)
	pt3dadd(106.487, 242.124, 37.4, 0.350334)
	pt3dadd(106.568, 242.244, 37.2, 0.385086)
	pt3dadd(106.707, 242.387, 37.2, 0.383354)
	pt3dadd(106.8, 242.501, 37, 0.406442)
	pt3dadd(106.996, 242.707, 37, 0.369218)
	pt3dadd(107.105, 242.896, 36.8, 0.245122)
	pt3dadd(107.189, 243.015, 36.6, 0.193384)
	pt3dadd(107.319, 243.174, 36.6, 0.269698)
	pt3dadd(107.601, 243.398, 36.6, 0.436984)
	pt3dadd(107.8, 243.692, 36.2, 0.574142)
	pt3dadd(108.661, 243.953, 35.8, 0.361014)
	pt3dadd(108.994, 244.257, 35.2, 0.87896)
	pt3dadd(108.788, 244.486, 34.8, 0.643878)
	pt3dadd(110.255, 244.785, 34.6, 0.62382)
	pt3dadd(110.62, 244.958, 34.2, 0.525166)
	pt3dadd(111.248, 245.28, 33.8, 0.572336)
	pt3dadd(111.491, 245.41, 33.4, 0.55823)
	pt3dadd(111.697, 245.502, 33.2, 0.464412)
	pt3dadd(111.941, 245.666, 33, 0.409104)
	pt3dadd(112.132, 245.876, 33, 0.403134)
	pt3dadd(112.157, 245.992, 32.8, 0.490374)
	pt3dadd(112.36, 246.112, 33, 0.395798)
	pt3dadd(112.452, 246.265, 32.8, 0.31884)
	pt3dadd(112.531, 246.358, 32.6, 0.393108)
	pt3dadd(112.7, 246.421, 32.2, 0.3497)
	pt3dadd(112.808, 246.387, 31.8, 0.352304)
	pt3dadd(113.11, 246.58, 31.6, 0.35909)
	pt3dadd(113.351, 246.754, 31.4, 0.39745)
	pt3dadd(113.503, 246.893, 31.4, 0.406946)
	pt3dadd(113.585, 247.022, 31.2, 0.409296)
	pt3dadd(113.605, 247.097, 31, 0.391402)
	pt3dadd(113.759, 247.317, 30.8, 0.515628)
	pt3dadd(114, 247.458, 30.6, 0.484252)
	pt3dadd(114.1, 247.528, 30.4, 0.395386)
	pt3dadd(114.2, 247.6, 30, 0.490426)
	pt3dadd(114.498, 247.692, 29.6, 0.637176)
	pt3dadd(114.196, 248.088, 29, 0.639878)
	pt3dadd(113.893, 248.396, 29, 0.390672)
	pt3dadd(113.764, 248.596, 29, 0.474046)
	pt3dadd(113.754, 248.8, 28.8, 0.45124)
	pt3dadd(113.867, 249.024, 28.6, 0.390256)
	pt3dadd(113.939, 249.277, 28.4, 0.320858)
	pt3dadd(114.063, 249.528, 28.2, 0.367156)
	pt3dadd(114.196, 249.801, 28.2, 0.392308)
	pt3dadd(114.226, 249.882, 28, 0.410746)
	pt3dadd(114.311, 250.093, 28, 0.336596)
	pt3dadd(114.336, 250.189, 27.8, 0.339724)
	pt3dadd(114.401, 250.4, 27.8, 0.422656)
	pt3dadd(114.484, 250.6, 27.8, 0.556884)
	pt3dadd(114.694, 250.809, 27.6, 0.407748)
	pt3dadd(114.894, 251.006, 27.4, 0.546758)
  }
}
proc shape3d_11() {
  apic[18] {	pt3dadd(114.995, 251.205, 27.2, 0.545106)
	pt3dadd(114.952, 251.377, 26.8, 0.540858)
	pt3dadd(114.594, 251.664, 26.4, 0.663842)
	pt3dadd(114.651, 251.778, 26, 0.783228)
	pt3dadd(114.83, 252.075, 25.8, 0.548306)
	pt3dadd(114.843, 252.184, 25.8, 0.435432)
	pt3dadd(114.986, 252.411, 25.4, 0.626908)
	pt3dadd(115.144, 252.687, 25.2, 0.711136)
	pt3dadd(115.025, 252.896, 24.8, 0.545272)
	pt3dadd(114.952, 253.125, 24.4, 0.556676)
	pt3dadd(115.09, 253.324, 24, 0.45346)
	pt3dadd(115.297, 253.508, 23.8, 0.409956)
	pt3dadd(115.394, 253.608, 23.6, 0.488992)
	pt3dadd(115.61, 253.775, 23.6, 0.453144)
	pt3dadd(115.792, 253.92, 23.4, 0.462494)
	pt3dadd(116.003, 254.094, 23.4, 0.395618)
	pt3dadd(116.206, 254.296, 23.2, 0.337998)
	pt3dadd(116.309, 254.383, 23, 0.35811)
	pt3dadd(116.495, 254.603, 22.8, 0.450866)
	pt3dadd(116.698, 254.803, 22.8, 0.43471)
	pt3dadd(116.883, 254.956, 22.8, 0.5004)
	pt3dadd(117.091, 255.112, 22.8, 0.46663)
	pt3dadd(117.278, 255.227, 22.8, 0.24167)
  }
  apic[19] {pt3dclear()
	pt3dadd(115.365, 158.16, 86.498, 1.53873)
	pt3dadd(114.213, 159.459, 87.5545, 0.836716)
	pt3dadd(113.963, 159.814, 87.8675, 0.843182)
	pt3dadd(113.623, 160.274, 88.3104, 1.02883)
	pt3dadd(113.143, 160.75, 88.8594, 1.29268)
	pt3dadd(112.604, 161.195, 89.5061, 0.873088)
	pt3dadd(112.242, 161.421, 89.9992, 0.893364)
	pt3dadd(111.862, 161.64, 90.6136, 0.832986)
	pt3dadd(111.651, 161.91, 91.2309, 0.979248)
	pt3dadd(111.571, 162.098, 91.9022, 1.292)
	pt3dadd(111.048, 162.417, 93.0263, 1.36564)
  }
  apic[20] {pt3dclear()
	pt3dadd(111.048, 162.417, 93.0263, 1.36564)
	pt3dadd(111.044, 162.729, 93.7244, 1.07331)
	pt3dadd(111.04, 163.096, 94.5464, 0.913028)
	pt3dadd(111.483, 163.459, 95.7167, 0.932786)
	pt3dadd(111.789, 163.812, 96.3213, 0.537814)
	pt3dadd(111.881, 163.974, 96.55, 0.560358)
	pt3dadd(112.044, 164.306, 96.9751, 0.720232)
	pt3dadd(112.411, 164.766, 97.3307, 1.14314)
	pt3dadd(113.02, 165.064, 98.2895, 0.727394)
	pt3dadd(113.241, 165.216, 98.7634, 0.664138)
	pt3dadd(113.576, 165.429, 99.1837, 0.842874)
	pt3dadd(113.877, 165.586, 99.5032, 0.909338)
	pt3dadd(114.091, 165.752, 99.9277, 1.26077)
	pt3dadd(114.146, 165.645, 100.725, 1.00244)
	pt3dadd(114.187, 165.633, 101.334, 1.25444)
	pt3dadd(114.373, 165.885, 102.171, 0.719872)
	pt3dadd(114.526, 166.109, 102.555, 0.589118)
	pt3dadd(114.759, 166.52, 102.956, 0.89095)
	pt3dadd(114.877, 166.86, 103.878, 0.719894)
	pt3dadd(115.085, 166.878, 104.519, 0.851586)
	pt3dadd(115.158, 167.054, 105.05, 0.813226)
	pt3dadd(115.446, 167.368, 105.565, 0.641646)
	pt3dadd(115.616, 167.567, 105.852, 0.858636)
	pt3dadd(115.888, 168.009, 106.37, 0.869504)
	pt3dadd(116.178, 167.999, 107.036, 0.920026)
	pt3dadd(116.256, 168.002, 107.863, 1.06475)
	pt3dadd(116.309, 168.392, 108.741, 0.803162)
	pt3dadd(116.345, 168.793, 109.515, 0.918348)
	pt3dadd(116.494, 169.353, 110.191, 0.703214)
	pt3dadd(116.781, 169.317, 110.681, 0.882152)
	pt3dadd(117.269, 169.279, 111.34, 0.831366)
	pt3dadd(117.507, 169.323, 111.751, 1.00059)
	pt3dadd(117.877, 169.392, 112.393, 1.25563)
  }
  apic[21] {pt3dclear()
	pt3dadd(117.877, 169.392, 112.393, 1.25563)
	pt3dadd(117.14, 168.999, 113.04, 0.448802)
	pt3dadd(116.828, 168.492, 113.412, 0.490076)
	pt3dadd(116.732, 168.179, 113.671, 0.580964)
	pt3dadd(116.699, 167.961, 113.908, 0.65528)
	pt3dadd(116.693, 167.848, 114.363, 0.620194)
	pt3dadd(116.5, 167.769, 114.676, 0.246078)
	pt3dadd(116.429, 167.732, 114.852, 0.175208)
	pt3dadd(116.367, 167.7, 115.026, 0.312136)
	pt3dadd(116.343, 167.675, 115.244, 0.390118)
	pt3dadd(116.323, 167.625, 115.451, 0.44273)
	pt3dadd(116.326, 167.517, 115.841, 0.412326)
  }
  apic[22] {pt3dclear()
	pt3dadd(117.877, 169.392, 112.393, 1.25563)
	pt3dadd(117.558, 169.607, 113.421, 1.19191)
	pt3dadd(117.467, 169.703, 114.049, 1.1485)
	pt3dadd(117.497, 169.779, 114.918, 1.22588)
	pt3dadd(117.819, 169.973, 115.928, 0.953706)
	pt3dadd(117.936, 170.025, 116.496, 0.473738)
	pt3dadd(118.341, 170.556, 117.019, 0.474662)
	pt3dadd(118.488, 170.776, 117.213, 0.275386)
	pt3dadd(118.609, 170.922, 117.381, 0.236108)
	pt3dadd(118.716, 171.032, 117.534, 0.294112)
	pt3dadd(118.842, 171.126, 117.716, 0.45696)
	pt3dadd(118.958, 171.202, 117.912, 0.724136)
	pt3dadd(119.068, 171.637, 118.348, 0.53599)
	pt3dadd(119.209, 171.807, 118.892, 0.62464)
	pt3dadd(119.296, 171.806, 119.267, 0.552734)
	pt3dadd(119.318, 171.769, 119.591, 0.524102)
	pt3dadd(119.318, 171.707, 119.886, 0.586376)
	pt3dadd(119.32, 171.679, 120.216, 0.76084)
	pt3dadd(119.551, 171.744, 120.864, 0.828366)
	pt3dadd(119.855, 171.681, 121.593, 1.08897)
	pt3dadd(119.84, 171.468, 122.167, 1.05607)
	pt3dadd(119.942, 171.386, 123.207, 0.950832)
	pt3dadd(120.069, 171.382, 123.722, 0.974936)
	pt3dadd(120.384, 171.497, 124.189, 0.804514)
	pt3dadd(120.872, 171.483, 124.93, 1.25011)
	pt3dadd(121.12, 171.616, 125.876, 1.14675)
	pt3dadd(121.009, 171.751, 126.647, 1.22382)
	pt3dadd(120.701, 171.904, 127.372, 0.869394)
	pt3dadd(120.49, 172.203, 127.766, 0.832738)
	pt3dadd(120.462, 172.405, 128.379, 1.18946)
	pt3dadd(120.659, 172.332, 129.195, 1.20236)
	pt3dadd(121.101, 172.382, 130.147, 1.2151)
	pt3dadd(121.287, 172.537, 130.714, 1.44974)
	pt3dadd(121.188, 172.684, 131.634, 1.05946)
	pt3dadd(120.976, 172.879, 132.283, 1.13029)
	pt3dadd(120.808, 173.024, 133.086, 1.09716)
  }
  apic[23] {pt3dclear()
	pt3dadd(111.048, 162.417, 93.0263, 1.36564)
	pt3dadd(109.955, 162.974, 93.5715, 0.710296)
	pt3dadd(109.669, 163.165, 93.695, 0.602378)
	pt3dadd(109.408, 163.35, 93.7998, 0.570864)
	pt3dadd(109.171, 163.551, 93.8765, 0.62386)
	pt3dadd(108.965, 163.797, 93.8964, 0.657098)
	pt3dadd(108.727, 164.033, 93.8565, 0.762472)
	pt3dadd(108.349, 164.197, 94.3724, 0.855746)
	pt3dadd(107.773, 164.439, 94.8399, 0.774984)
	pt3dadd(107.421, 164.626, 95.0373, 0.907548)
	pt3dadd(106.594, 165.166, 95.1968, 1.22141)
	pt3dadd(106.002, 165.158, 95.3844, 1.15189)
	pt3dadd(105.365, 165.343, 95.7459, 1.25715)
	pt3dadd(104.59, 165.28, 96.4843, 0.543744)
	pt3dadd(104.381, 165.323, 96.703, 0.500424)
	pt3dadd(104.18, 165.429, 96.9066, 0.543602)
	pt3dadd(103.97, 165.613, 97.0659, 0.592018)
	pt3dadd(103.637, 165.922, 97.3494, 0.559896)
	pt3dadd(103.458, 166.01, 97.5541, 0.589012)
	pt3dadd(102.935, 166.076, 97.8399, 0.941624)
	pt3dadd(102.397, 166.217, 98.6816, 1.03304)
	pt3dadd(101.899, 166.192, 99.4927, 0.612702)
  }
  apic[24] {pt3dclear()
	pt3dadd(101.899, 166.192, 99.4927, 0.612702)
	pt3dadd(102.077, 166.277, 100.31, 0.630462)
	pt3dadd(102.257, 166.364, 101.136, 1.12804)
	pt3dadd(102.265, 166.506, 102.368, 1.03789)
	pt3dadd(102.192, 166.494, 103.204, 0.815686)
	pt3dadd(102.154, 166.498, 103.777, 0.813162)
	pt3dadd(102.059, 166.48, 104.312, 0.88356)
	pt3dadd(101.892, 166.497, 104.743, 0.800876)
	pt3dadd(102.452, 166.891, 105.187, 0.499534)
	pt3dadd(102.661, 167.03, 105.448, 0.622642)
	pt3dadd(102.844, 167.128, 105.748, 0.699404)
	pt3dadd(103.091, 167.164, 106.087, 0.781164)
	pt3dadd(103.616, 167.478, 106.331, 0.1)
	pt3dadd(103.314, 167.597, 107.06, 0.1)
	pt3dadd(103.207, 167.61, 107.538, 0.633874)
	pt3dadd(103.024, 168.317, 107.835, 0.454122)
	pt3dadd(102.978, 168.692, 108.064, 0.639332)
	pt3dadd(102.988, 169.09, 108.349, 0.792344)
	pt3dadd(103.078, 169.497, 108.471, 0.875426)
	pt3dadd(103.217, 170.102, 108.214, 0.80603)
	pt3dadd(103.073, 170.624, 108.249, 0.1)
	pt3dadd(103.57, 170.988, 108.917, 0.557762)
	pt3dadd(103.653, 171.07, 109.328, 0.465186)
	pt3dadd(103.598, 171.079, 109.612, 0.523806)
	pt3dadd(103.435, 171.067, 110.083, 0.47457)
	pt3dadd(103.306, 171.092, 110.307, 0.493524)
	pt3dadd(103.162, 171.158, 110.526, 0.53894)
	pt3dadd(102.985, 171.243, 110.744, 0.627424)
	pt3dadd(102.72, 171.242, 110.987, 0.72208)
	pt3dadd(102.577, 170.89, 111.542, 0.676834)
	pt3dadd(102.49, 170.685, 111.807, 0.68346)
	pt3dadd(102.347, 170.289, 112.27, 0.678978)
	pt3dadd(102.378, 169.989, 112.832, 0.74037)
	pt3dadd(102.48, 169.718, 113.345, 0.792524)
	pt3dadd(102.741, 169.653, 113.637, 0.615676)
	pt3dadd(102.853, 169.662, 113.945, 0.530364)
	pt3dadd(102.923, 169.703, 114.279, 0.628956)
	pt3dadd(102.912, 169.75, 114.657, 0.926622)
	pt3dadd(102.815, 169.658, 115.401, 1.14667)
	pt3dadd(102.933, 169.57, 116.467, 1.18832)
	pt3dadd(103.096, 169.553, 117.516, 1.11731)
	pt3dadd(103.149, 169.397, 118.311, 1.3344)
	pt3dadd(102.961, 169.182, 119.125, 1.40741)
	pt3dadd(102.541, 169.304, 119.964, 0.897302)
	pt3dadd(102.44, 169.29, 120.659, 0.88677)
	pt3dadd(102.41, 169.298, 121.105, 0.880488)
	pt3dadd(102.457, 169.389, 122.002, 1.10292)
	pt3dadd(101.982, 169.464, 122.863, 1.186)
	pt3dadd(101.702, 169.576, 123.834, 1.11327)
	pt3dadd(101.571, 169.748, 124.562, 0.886014)
	pt3dadd(101.643, 170.064, 124.937, 0.554802)
	pt3dadd(101.714, 170.194, 125.192, 0.56123)
	pt3dadd(101.787, 170.289, 125.476, 0.524158)
	pt3dadd(101.833, 170.331, 125.743, 0.53273)
	pt3dadd(101.891, 170.339, 126.255, 0.5093)
	pt3dadd(101.904, 170.329, 126.516, 0.573516)
	pt3dadd(101.895, 170.196, 127.038, 0.53699)
	pt3dadd(101.889, 169.824, 127.181, 0.478286)
	pt3dadd(101.87, 169.564, 127.147, 0.553252)
  }
  apic[25] {pt3dclear()
	pt3dadd(101.899, 166.192, 99.4927, 0.612702)
	pt3dadd(100.814, 166.39, 99.5675, 0.73928)
	pt3dadd(100.277, 166.523, 99.5951, 0.69857)
	pt3dadd(99.6954, 166.61, 99.5857, 0.965932)
  }
}
proc shape3d_12() {
  apic[25] {	pt3dadd(98.7815, 166.587, 99.8734, 0.712238)
	pt3dadd(98.3199, 166.526, 100.074, 1.19452)
	pt3dadd(97.7168, 166.278, 100.631, 0.764678)
	pt3dadd(97.3066, 166.175, 100.773, 0.31089)
	pt3dadd(96.9968, 166.368, 101.295, 0.603086)
	pt3dadd(96.8065, 166.506, 101.503, 0.519514)
	pt3dadd(96.6246, 166.609, 101.701, 0.76738)
	pt3dadd(96.2397, 166.886, 102.087, 1.05617)
	pt3dadd(96.0293, 167.411, 102.293, 0.84884)
	pt3dadd(95.4306, 167.706, 102.435, 0.395746)
	pt3dadd(95.1643, 167.813, 102.502, 0.561018)
	pt3dadd(94.9557, 167.992, 102.635, 0.507806)
	pt3dadd(94.7682, 168.162, 102.74, 0.454954)
	pt3dadd(94.6174, 168.38, 102.87, 0.583526)
	pt3dadd(94.611, 168.72, 103.067, 0.525514)
	pt3dadd(94.4771, 169.198, 103.24, 0.579512)
	pt3dadd(94.3813, 169.436, 103.393, 0.718806)
	pt3dadd(93.8427, 169.361, 103.861, 0.350808)
	pt3dadd(93.3331, 169.38, 103.692, 0.492074)
	pt3dadd(93.0145, 169.331, 103.4, 0.533892)
	pt3dadd(92.8, 169.396, 103.6, 0.554978)
	pt3dadd(92.3459, 169.338, 104.2, 0.470998)
	pt3dadd(92.0965, 169.207, 104.2, 0.451422)
	pt3dadd(91.8834, 169.166, 104.4, 0.269332)
	pt3dadd(91.7103, 169.094, 104.73, 0.28783)
	pt3dadd(91.3044, 169.037, 104.879, 0.370346)
	pt3dadd(91.013, 169.045, 104.996, 0.439096)
	pt3dadd(90.7509, 169.086, 105.11, 0.481278)
	pt3dadd(90.5213, 169.175, 105.261, 0.768936)
	pt3dadd(90.0773, 169.108, 105.728, 0.646052)
	pt3dadd(89.6383, 169.024, 105.806, 0.366392)
	pt3dadd(89.3553, 169.046, 105.878, 0.568216)
	pt3dadd(89.0897, 168.992, 106.053, 0.72505)
	pt3dadd(88.5246, 168.991, 106.439, 0.647788)
	pt3dadd(88.083, 169.08, 106.559, 0.708826)
	pt3dadd(87.6703, 169.088, 106.939, 0.533506)
	pt3dadd(87.4117, 169.171, 107.079, 0.407726)
	pt3dadd(87.1334, 169.245, 107.154, 0.554708)
	pt3dadd(86.7709, 169.301, 107.036, 0.576522)
	pt3dadd(86.4909, 169.355, 106.973, 0.682958)
	pt3dadd(86.1697, 169.437, 106.877, 0.720176)
	pt3dadd(85.578, 169.684, 106.778, 1.16605)
	pt3dadd(84.4575, 169.451, 106.802, 0.397092)
	pt3dadd(84.1043, 169.417, 106.79, 0.315186)
	pt3dadd(83.7689, 169.458, 106.79, 0.403506)
	pt3dadd(83.5581, 169.492, 106.719, 0.469236)
	pt3dadd(83.3244, 169.534, 106.736, 0.531984)
	pt3dadd(82.8731, 169.584, 106.758, 0.500012)
	pt3dadd(82.3666, 169.566, 106.725, 0.39752)
	pt3dadd(82.0662, 169.544, 106.656, 0.35719)
	pt3dadd(81.8458, 169.523, 106.646, 0.415166)
	pt3dadd(81.6001, 169.511, 106.664, 0.565552)
	pt3dadd(81.1051, 169.521, 106.76, 1.16246)
	pt3dadd(80.335, 169.519, 107.198, 0.6944)
	pt3dadd(79.9578, 169.493, 107.407, 0.478004)
	pt3dadd(79.7498, 169.486, 107.565, 0.466046)
	pt3dadd(79.5433, 169.479, 107.763, 0.359118)
	pt3dadd(79.3369, 169.476, 107.987, 0.44664)
	pt3dadd(79.1534, 169.47, 108.18, 0.428702)
	pt3dadd(78.9586, 169.461, 108.371, 0.368164)
	pt3dadd(78.768, 169.454, 108.561, 0.444662)
	pt3dadd(78.5534, 169.45, 108.769, 0.427672)
	pt3dadd(78.3326, 169.44, 108.942, 0.412948)
	pt3dadd(78.1174, 169.434, 109.143, 0.509556)
	pt3dadd(77.902, 169.422, 109.334, 0.595276)
	pt3dadd(77.3091, 169.494, 109.6, 1.07638)
	pt3dadd(76.5099, 169.779, 109.731, 1.53949)
	pt3dadd(75.482, 170.223, 109.401, 1.23354)
	pt3dadd(74.9267, 170.676, 109.636, 0.494202)
	pt3dadd(74.7197, 170.841, 109.693, 0.44099)
	pt3dadd(74.4942, 171.055, 109.681, 0.449004)
	pt3dadd(74.3104, 171.242, 109.652, 0.436724)
	pt3dadd(74.1141, 171.395, 109.555, 0.354162)
	pt3dadd(73.8913, 171.53, 109.475, 0.529186)
	pt3dadd(73.6911, 171.602, 109.279, 0.59795)
	pt3dadd(73.4417, 172.072, 109.385, 0.526846)
	pt3dadd(73.3095, 172.368, 109.429, 0.641134)
	pt3dadd(72.9074, 172.919, 109.322, 0.554234)
	pt3dadd(72.5664, 173.344, 109.241, 0.525176)
	pt3dadd(72.3813, 173.579, 109.267, 0.900418)
	pt3dadd(71.936, 174.042, 109.292, 1.255)
	pt3dadd(71.5011, 174.102, 109.773, 1.14252)
	pt3dadd(70.8852, 174.485, 110.04, 0.628124)
	pt3dadd(70.5287, 174.56, 110.128, 0.574268)
	pt3dadd(70.2367, 174.604, 110.115, 0.507346)
	pt3dadd(69.7761, 174.732, 110.117, 0.614698)
	pt3dadd(69.2862, 174.944, 110.218, 0.504996)
	pt3dadd(69.037, 175.024, 110.246, 0.51703)
	pt3dadd(68.7869, 175.14, 110.263, 0.559206)
	pt3dadd(68.2744, 175.322, 110.309, 0.716638)
	pt3dadd(67.6929, 175.479, 110.488, 1.23261)
	pt3dadd(66.3517, 175.903, 110.744, 0.52036)
	pt3dadd(66.0825, 175.96, 110.764, 0.534766)
	pt3dadd(65.8106, 176.024, 110.761, 0.552304)
	pt3dadd(65.2907, 176.162, 110.776, 0.55543)
	pt3dadd(64.7677, 176.338, 110.706, 0.578984)
	pt3dadd(64.4906, 176.428, 110.644, 0.827276)
	pt3dadd(63.8632, 176.464, 110.465, 1.09041)
	pt3dadd(63.0285, 176.654, 110.108, 0.7693)
	pt3dadd(62.6872, 176.772, 109.939, 0.875256)
	pt3dadd(61.7293, 176.653, 109.629, 0.694466)
	pt3dadd(61.3713, 176.604, 109.606, 0.581544)
	pt3dadd(61.0686, 176.592, 109.574, 0.57226)
	pt3dadd(60.5018, 176.614, 109.638, 0.736632)
	pt3dadd(59.9263, 176.405, 109.613, 0.593882)
	pt3dadd(59.6883, 176.218, 109.54, 0.444956)
	pt3dadd(59.4497, 176.03, 109.438, 0.522008)
	pt3dadd(59.1692, 175.846, 109.306, 0.70296)
	pt3dadd(58.8181, 175.68, 109.17, 1.11574)
	pt3dadd(57.9048, 175.824, 108.559, 0.926666)
	pt3dadd(57.4128, 175.877, 108.28, 1.13882)
	pt3dadd(56.5121, 175.915, 108.193, 0.518858)
	pt3dadd(56.2172, 175.9, 108.129, 0.451354)
	pt3dadd(55.986, 175.871, 108.072, 0.475842)
	pt3dadd(55.7378, 175.826, 108.011, 0.470654)
	pt3dadd(55.5127, 175.794, 107.92, 0.586224)
	pt3dadd(55.0134, 175.716, 107.674, 0.69592)
	pt3dadd(54.4749, 175.896, 107.368, 1.0234)
	pt3dadd(53.7439, 176.167, 107.188, 0.941156)
	pt3dadd(52.9632, 176.474, 106.775, 0.520796)
	pt3dadd(52.7227, 176.565, 106.653, 0.380448)
	pt3dadd(52.5177, 176.647, 106.519, 0.375098)
	pt3dadd(52.33, 176.729, 106.392, 0.559486)
	pt3dadd(51.8231, 176.929, 106.309, 0.778324)
	pt3dadd(51.2742, 177.228, 106.314, 0.623606)
	pt3dadd(50.992, 177.422, 106.268, 0.963174)
	pt3dadd(50.3536, 177.428, 106.026, 0.644532)
	pt3dadd(49.8171, 177.448, 105.814, 0.597762)
	pt3dadd(49.5292, 177.515, 105.709, 0.815638)
	pt3dadd(49.0262, 177.864, 105.713, 1.32234)
	pt3dadd(48.206, 177.785, 105.868, 0.663246)
	pt3dadd(47.7684, 177.615, 105.982, 0.435632)
	pt3dadd(47.4798, 177.584, 105.948, 0.304874)
	pt3dadd(47.1447, 177.659, 105.935, 0.364434)
	pt3dadd(46.7388, 177.673, 105.967, 0.561144)
	pt3dadd(46.1646, 177.666, 105.742, 0.914102)
	pt3dadd(45.6385, 177.396, 105.488, 0.73891)
	pt3dadd(45.1091, 177.319, 105.669, 0.647484)
	pt3dadd(44.6429, 177.394, 105.68, 0.512012)
	pt3dadd(44.4001, 177.479, 105.645, 0.897474)
	pt3dadd(43.759, 177.129, 105.803, 0.483118)
	pt3dadd(43.4285, 177.008, 105.87, 0.651184)
	pt3dadd(43.109, 176.865, 105.87, 0.923474)
	pt3dadd(42.2575, 176.651, 106.091, 0.930644)
	pt3dadd(41.6854, 176.609, 106.188, 1.07238)
	pt3dadd(41.0952, 176.536, 106.334, 1.19804)
	pt3dadd(39.2824, 176.45, 106.938, 0.476458)
	pt3dadd(39.0053, 176.413, 107.053, 0.435334)
	pt3dadd(38.7287, 176.332, 107.122, 0.594804)
	pt3dadd(38.3911, 176.209, 107.151, 0.912114)
	pt3dadd(37.6358, 176.13, 107.569, 0.96042)
	pt3dadd(36.9214, 176.289, 107.777, 0.462202)
	pt3dadd(36.6339, 176.319, 107.822, 0.614744)
	pt3dadd(36.0526, 176.357, 107.928, 0.742676)
	pt3dadd(35.626, 176.305, 108.084, 0.559632)
	pt3dadd(35.3211, 176.24, 108.178, 0.766922)
	pt3dadd(34.6161, 176.115, 108.249, 1.16415)
	pt3dadd(34.2007, 175.99, 109.414, 0.335086)
	pt3dadd(34.2022, 175.989, 109.607, 0.282686)
	pt3dadd(34.214, 175.995, 109.82, 0.263048)
	pt3dadd(34.214, 175.996, 110.032, 0.3065)
	pt3dadd(34.0533, 175.962, 110.248, 0.353378)
	pt3dadd(33.9031, 175.858, 110.43, 0.503306)
	pt3dadd(33.7611, 175.669, 110.774, 0.69513)
	pt3dadd(34.301, 175.711, 110.736, 0.1)
  }
  apic[26] {pt3dclear()
	pt3dadd(118.833, 146.512, 86.8216, 2.50221)
	pt3dadd(120.402, 147.343, 87.8616, 0.937268)
	pt3dadd(120.911, 147.621, 88.2377, 0.803794)
	pt3dadd(121.377, 147.855, 88.6127, 0.809886)
	pt3dadd(121.89, 148.08, 89.066, 0.744322)
	pt3dadd(122.359, 148.248, 89.5472, 0.77591)
	pt3dadd(122.689, 148.349, 90.046, 0.87422)
	pt3dadd(123.119, 148.476, 90.5404, 0.799624)
	pt3dadd(123.735, 148.657, 90.9093, 0.898232)
	pt3dadd(124.977, 148.982, 91.6581, 1.33418)
  }
  apic[27] {pt3dclear()
	pt3dadd(124.977, 148.982, 91.6581, 1.33418)
	pt3dadd(125.698, 150.128, 91.7513, 0.600206)
	pt3dadd(126.012, 150.609, 91.7313, 0.515952)
	pt3dadd(126.256, 151.233, 91.5883, 0.574176)
	pt3dadd(126.445, 151.622, 91.6276, 0.492806)
	pt3dadd(126.688, 151.94, 91.6923, 0.809076)
	pt3dadd(127.196, 152.584, 92.1292, 0.48544)
	pt3dadd(127.912, 153.267, 91.4417, 0.490082)
	pt3dadd(128.133, 153.622, 91.2328, 0.299742)
	pt3dadd(128.26, 153.831, 91.2081, 0.406282)
	pt3dadd(128.378, 154.037, 91.198, 0.428946)
	pt3dadd(128.488, 154.253, 91.1663, 0.574662)
	pt3dadd(128.758, 154.728, 91.1063, 0.503286)
	pt3dadd(128.907, 154.982, 91.0727, 0.489576)
	pt3dadd(129.096, 155.323, 91.1545, 0.521742)
	pt3dadd(129.27, 155.722, 91.1539, 0.518874)
	pt3dadd(129.628, 156.075, 91.0105, 0.485968)
	pt3dadd(130.033, 156.447, 90.9748, 0.600052)
	pt3dadd(130.421, 156.909, 91.1676, 0.367344)
	pt3dadd(130.875, 157.435, 90.3664, 0.486118)
	pt3dadd(131.457, 157.689, 89.8966, 0.872356)
	pt3dadd(131.986, 158.127, 89.6511, 0.483362)
	pt3dadd(132.539, 158.623, 89.6748, 0.482842)
	pt3dadd(133.168, 159.112, 89.2792, 0.431536)
	pt3dadd(133.574, 159.933, 89.3118, 0.1)
  }
}
proc shape3d_13() {
  apic[27] {	pt3dadd(134.37, 160.41, 88.8711, 0.791328)
	pt3dadd(135.043, 161, 88.6966, 0.653122)
	pt3dadd(135.731, 162.154, 88.2333, 0.759134)
	pt3dadd(135.871, 162.569, 88.0854, 0.897928)
	pt3dadd(136.395, 162.717, 88.027, 0.778434)
	pt3dadd(136.802, 162.914, 87.9788, 0.531698)
	pt3dadd(137.091, 163.132, 87.9113, 0.77795)
	pt3dadd(137.648, 163.539, 87.8324, 1.0264)
	pt3dadd(138.059, 164.185, 87.4941, 1.00597)
	pt3dadd(138.43, 164.938, 87.2865, 1.55652)
	pt3dadd(139.342, 165.495, 87.5437, 0.745134)
	pt3dadd(140.327, 165.941, 87.2678, 0.87709)
	pt3dadd(140.774, 166.185, 87.2299, 1.35173)
	pt3dadd(141.11, 167.191, 86.8298, 0.729908)
	pt3dadd(141.489, 167.689, 86.6251, 0.707692)
	pt3dadd(142.275, 168.841, 86.5969, 0.484272)
	pt3dadd(142.526, 169.354, 86.4931, 0.712804)
	pt3dadd(142.496, 169.712, 86.5438, 0.811598)
	pt3dadd(142.925, 170.359, 86.3626, 0.60736)
	pt3dadd(143.174, 170.627, 86.3419, 0.607336)
	pt3dadd(143.491, 170.768, 86.2808, 0.850434)
	pt3dadd(143.477, 171.431, 86.298, 0.578432)
	pt3dadd(143.481, 171.809, 86.2944, 0.659836)
	pt3dadd(143.512, 172.155, 86.2578, 0.683606)
	pt3dadd(143.591, 172.543, 86.3604, 0.877406)
	pt3dadd(143.617, 173.078, 86.385, 1.17117)
	pt3dadd(143.9, 173.624, 86.193, 1.32853)
	pt3dadd(144.285, 174.991, 86.0623, 1.03155)
	pt3dadd(144.263, 175.568, 86.1044, 1.48536)
	pt3dadd(144.836, 176.359, 86.2573, 1.1241)
  }
  apic[28] {pt3dclear()
	pt3dadd(144.836, 176.359, 86.2573, 1.1241)
	pt3dadd(144.819, 176.892, 86.4898, 0.55533)
	pt3dadd(144.82, 177.277, 86.4672, 0.463392)
	pt3dadd(144.85, 177.674, 86.4758, 0.772394)
	pt3dadd(144.795, 178.071, 86.68, 0.880346)
	pt3dadd(144.894, 178.629, 86.7551, 0.855288)
	pt3dadd(144.764, 179.347, 86.502, 0.721308)
	pt3dadd(144.988, 180.179, 86.8797, 0.698364)
	pt3dadd(145.048, 180.553, 86.9782, 0.534378)
	pt3dadd(145.056, 180.949, 87.031, 0.493116)
	pt3dadd(144.909, 181.401, 86.943, 0.692938)
	pt3dadd(145.068, 181.912, 87.3222, 0.6214)
	pt3dadd(145.133, 182.59, 87.5766, 0.59275)
	pt3dadd(145.517, 183.066, 88.4023, 0.502876)
	pt3dadd(145.676, 183.365, 88.8391, 0.372874)
	pt3dadd(145.993, 183.813, 89.1067, 0.555182)
	pt3dadd(146.297, 184.166, 89.651, 1.08277)
	pt3dadd(146.717, 184.606, 90.3291, 0.635216)
	pt3dadd(147.026, 184.877, 90.7519, 0.539452)
	pt3dadd(147.472, 185.282, 91.0572, 0.921162)
	pt3dadd(147.793, 185.622, 91.4409, 0.923608)
	pt3dadd(148.291, 186.21, 91.1221, 0.537578)
	pt3dadd(148.669, 186.765, 91.0737, 0.410644)
	pt3dadd(148.976, 187.198, 90.9795, 0.493884)
	pt3dadd(149.251, 187.626, 90.7034, 0.687988)
	pt3dadd(149.452, 187.957, 90.4285, 0.919378)
	pt3dadd(149.516, 188.474, 90.1716, 0.703424)
	pt3dadd(149.548, 188.977, 89.8684, 0.629608)
	pt3dadd(149.665, 189.487, 89.6039, 0.794376)
	pt3dadd(149.905, 190.079, 89.594, 0.726624)
	pt3dadd(149.988, 190.598, 88.9409, 0.880208)
	pt3dadd(150.053, 191.495, 88.8345, 0.650918)
	pt3dadd(150.289, 192.204, 88.565, 1.07326)
	pt3dadd(150.303, 193.591, 88.2674, 1.08346)
	pt3dadd(150.122, 195.126, 87.9205, 1.12247)
	pt3dadd(150.355, 195.932, 88.2263, 1.71972)
	pt3dadd(150.772, 197.378, 88.7749, 0.994372)
	pt3dadd(150.937, 197.945, 88.9261, 1.05007)
	pt3dadd(151.016, 198.71, 89.3628, 0.70915)
	pt3dadd(151.074, 199.162, 89.6565, 0.755706)
	pt3dadd(151.083, 199.736, 90.0105, 0.669838)
	pt3dadd(151.121, 200.09, 90.2204, 0.711608)
	pt3dadd(151.144, 200.535, 90.416, 0.918182)
	pt3dadd(151.208, 201.022, 90.6033, 0.83518)
	pt3dadd(151.293, 201.672, 90.8527, 0.635498)
	pt3dadd(151.383, 202.645, 91.0239, 0.646384)
	pt3dadd(151.41, 202.973, 91.0803, 0.534404)
	pt3dadd(151.418, 203.243, 91.1644, 0.596772)
	pt3dadd(151.546, 203.858, 91.1321, 0.538776)
	pt3dadd(151.606, 204.37, 91.1724, 0.51918)
	pt3dadd(151.698, 204.888, 91.0988, 0.544082)
	pt3dadd(151.821, 205.437, 90.9452, 0.363932)
	pt3dadd(151.817, 205.715, 90.8905, 0.703046)
	pt3dadd(151.758, 206.071, 90.9442, 0.979794)
	pt3dadd(151.948, 207.149, 90.9151, 0.639012)
	pt3dadd(151.979, 207.663, 90.7948, 0.738972)
	pt3dadd(152.126, 208.05, 91.2021, 0.627382)
	pt3dadd(152.42, 208.804, 91.3882, 0.486796)
	pt3dadd(152.495, 209.193, 91.3769, 0.461216)
	pt3dadd(152.546, 209.46, 91.3301, 0.487976)
	pt3dadd(152.57, 209.708, 91.2199, 0.542384)
	pt3dadd(151.811, 210.618, 90.9696, 1.0071)
	pt3dadd(152.719, 210.833, 91.288, 0.559898)
	pt3dadd(152.809, 211.119, 91.2713, 0.564034)
	pt3dadd(152.864, 211.456, 91.2116, 0.537586)
	pt3dadd(152.874, 211.722, 91.1703, 0.534226)
	pt3dadd(152.887, 212.009, 91.1351, 0.557876)
	pt3dadd(152.923, 212.288, 91.116, 0.65706)
	pt3dadd(153.009, 212.62, 91.0716, 0.731194)
	pt3dadd(153.062, 212.982, 91.0603, 0.815192)
	pt3dadd(153.193, 213.475, 90.9527, 0.762568)
	pt3dadd(153.518, 213.863, 90.9573, 0.780444)
	pt3dadd(153.27, 214.556, 91.2559, 0.465982)
	pt3dadd(153.261, 214.841, 91.3519, 0.345676)
	pt3dadd(153.278, 215.106, 91.4284, 0.361196)
	pt3dadd(153.292, 215.387, 91.4084, 0.537184)
	pt3dadd(153.292, 215.66, 91.3992, 0.410318)
	pt3dadd(153.299, 215.906, 91.3651, 0.51061)
	pt3dadd(153.294, 216.171, 91.3788, 0.526766)
	pt3dadd(153.259, 216.466, 91.3621, 0.558168)
	pt3dadd(153.174, 216.751, 91.2546, 0.526864)
	pt3dadd(153.003, 216.978, 91.1736, 0.825722)
	pt3dadd(152.986, 217.736, 91.1222, 0.62055)
	pt3dadd(153.032, 218.09, 91.1429, 0.541254)
	pt3dadd(153.041, 218.385, 91.1304, 0.514764)
	pt3dadd(153.028, 218.633, 91.0575, 0.49356)
	pt3dadd(152.978, 218.895, 91.0144, 0.546886)
	pt3dadd(152.909, 219.157, 90.9691, 0.58474)
	pt3dadd(152.885, 219.481, 90.9304, 0.77524)
	pt3dadd(153.09, 220.153, 91.1078, 0.65592)
	pt3dadd(153.334, 220.698, 91.2257, 0.796552)
	pt3dadd(153.299, 221.464, 90.9571, 0.612658)
	pt3dadd(153.259, 221.781, 90.9361, 0.477952)
	pt3dadd(153.24, 222.024, 90.9444, 0.468124)
	pt3dadd(153.204, 222.316, 90.8918, 0.457952)
	pt3dadd(153.163, 222.554, 90.7899, 0.372934)
	pt3dadd(153.115, 222.775, 90.7611, 0.383858)
	pt3dadd(153.03, 223.012, 90.7438, 0.431334)
	pt3dadd(152.922, 223.264, 90.7719, 0.542192)
	pt3dadd(152.796, 223.505, 90.7915, 0.824318)
	pt3dadd(152.562, 223.967, 90.6921, 1.07928)
	pt3dadd(152.97, 224.796, 90.5497, 0.791634)
	pt3dadd(153.008, 225.936, 90.6379, 0.888996)
	pt3dadd(153.132, 226.72, 91.2023, 0.428672)
	pt3dadd(153.178, 227.01, 91.4108, 0.60767)
	pt3dadd(153.16, 227.322, 91.4911, 0.669052)
	pt3dadd(153.093, 227.763, 91.4126, 0.573856)
	pt3dadd(152.987, 228.279, 91.3312, 0.432866)
	pt3dadd(152.917, 228.519, 91.3177, 0.495208)
	pt3dadd(152.879, 228.805, 91.2694, 0.52827)
	pt3dadd(152.845, 229.082, 91.2539, 0.57193)
	pt3dadd(152.81, 229.405, 91.2669, 0.624106)
	pt3dadd(152.876, 229.711, 91.2848, 0.5467)
	pt3dadd(153.024, 230.13, 90.9323, 0.68635)
	pt3dadd(152.937, 230.588, 90.83, 0.71721)
	pt3dadd(152.921, 230.97, 90.853, 1.08714)
	pt3dadd(153.115, 231.596, 91.1271, 0.649202)
	pt3dadd(153.215, 231.959, 91.076, 0.428682)
	pt3dadd(153.428, 232.769, 90.9191, 0.743508)
	pt3dadd(153.595, 233.244, 91.0071, 0.71653)
	pt3dadd(153.864, 234.01, 91.1491, 0.583878)
	pt3dadd(153.988, 234.321, 91.1341, 0.520268)
	pt3dadd(154.29, 234.98, 91.0867, 0.776376)
	pt3dadd(154.349, 235.68, 91.2669, 0.44446)
	pt3dadd(154.376, 235.977, 91.3425, 0.466172)
	pt3dadd(154.397, 236.226, 91.3688, 0.51663)
	pt3dadd(154.424, 236.481, 91.323, 0.540344)
	pt3dadd(154.453, 236.765, 91.2971, 0.559178)
	pt3dadd(154.449, 237.072, 91.3666, 0.666518)
	pt3dadd(154.375, 237.841, 91.328, 0.717972)
	pt3dadd(154.344, 238.365, 91.2, 0.457222)
	pt3dadd(154.32, 238.605, 91.1676, 0.434112)
	pt3dadd(154.292, 238.846, 91.1434, 0.470846)
	pt3dadd(154.273, 239.125, 91.0981, 0.429708)
	pt3dadd(154.251, 239.349, 91.0959, 0.445162)
	pt3dadd(154.211, 239.587, 91.126, 0.438684)
	pt3dadd(154.155, 239.83, 91.1564, 0.520356)
	pt3dadd(154.071, 240.107, 91.105, 0.555156)
	pt3dadd(153.907, 240.648, 91.0045, 0.635336)
	pt3dadd(153.656, 241.36, 90.9905, 0.884174)
	pt3dadd(153.476, 242.007, 90.5814, 0.864168)
	pt3dadd(153.389, 242.415, 90.3804, 0.797028)
	pt3dadd(152.978, 243.015, 90.0968, 0.565116)
	pt3dadd(152.754, 243.253, 89.9399, 0.467238)
	pt3dadd(152.448, 243.641, 89.7835, 0.366074)
	pt3dadd(152.288, 243.888, 89.7945, 0.354032)
	pt3dadd(152.172, 244.081, 89.7948, 0.321316)
	pt3dadd(152.032, 244.283, 89.7798, 0.400338)
	pt3dadd(151.904, 244.483, 89.7215, 0.432762)
	pt3dadd(151.766, 244.743, 89.6312, 0.435064)
	pt3dadd(151.641, 244.997, 89.6127, 0.408162)
	pt3dadd(151.504, 245.219, 89.6253, 0.418232)
	pt3dadd(151.36, 245.462, 89.5786, 0.630026)
	pt3dadd(151.158, 245.708, 89.5023, 0.620274)
	pt3dadd(151.068, 246.09, 89.4102, 0.685928)
	pt3dadd(150.816, 246.458, 89.2444, 0.469164)
	pt3dadd(150.628, 246.721, 89.1259, 0.349462)
	pt3dadd(150.472, 246.965, 89.0451, 0.552356)
	pt3dadd(150.342, 247.231, 89.0002, 0.892062)
	pt3dadd(150.091, 247.861, 88.6949, 1.32747)
	pt3dadd(149.187, 248.791, 88.8141, 0.479426)
	pt3dadd(148.98, 248.999, 88.9578, 0.641734)
	pt3dadd(148.628, 249.451, 88.844, 0.756108)
	pt3dadd(148.274, 250.013, 88.4886, 0.489298)
	pt3dadd(148.145, 250.237, 88.4526, 0.41688)
	pt3dadd(148.043, 250.48, 88.4324, 0.45575)
	pt3dadd(148.015, 250.726, 88.3826, 0.420448)
	pt3dadd(148.033, 251.014, 88.3297, 0.46706)
	pt3dadd(148.074, 251.325, 88.2907, 0.644204)
	pt3dadd(147.895, 252.08, 87.8126, 0.764156)
  }
}
proc shape3d_14() {
  apic[28] {	pt3dadd(147.573, 252.386, 87.6693, 0.856838)
	pt3dadd(147.414, 252.788, 87.4081, 1.1104)
	pt3dadd(147.253, 253.52, 87.3993, 0.368682)
	pt3dadd(147.135, 253.752, 87.3117, 0.523668)
	pt3dadd(147.006, 253.99, 87.2655, 0.593142)
	pt3dadd(146.804, 254.508, 87.2255, 0.721082)
	pt3dadd(146.734, 254.822, 86.9921, 0.71881)
	pt3dadd(146.587, 255.334, 87.072, 0.650432)
	pt3dadd(146.504, 255.721, 87.1678, 0.672)
	pt3dadd(146.198, 256.092, 87.0636, 0.563724)
	pt3dadd(145.986, 256.546, 86.6617, 0.63348)
	pt3dadd(145.858, 256.897, 86.4705, 0.452134)
	pt3dadd(145.772, 257.159, 86.2892, 0.428428)
	pt3dadd(145.687, 257.367, 86.1737, 0.37035)
	pt3dadd(145.607, 257.558, 86.0909, 0.321736)
	pt3dadd(145.519, 257.782, 85.9945, 0.478892)
	pt3dadd(145.431, 258.042, 85.8827, 0.60445)
	pt3dadd(145.348, 258.341, 85.7514, 0.830868)
	pt3dadd(145.322, 259.222, 85.5907, 0.562974)
	pt3dadd(145.293, 259.699, 85.3441, 0.348526)
	pt3dadd(145.269, 259.866, 85.4305, 0.299558)
	pt3dadd(145.235, 259.967, 85.5814, 0.223206)
	pt3dadd(145.238, 260.157, 85.6498, 0.175808)
	pt3dadd(145.264, 260.324, 85.6572, 0.278466)
	pt3dadd(145.332, 260.49, 85.602, 0.250014)
	pt3dadd(145.405, 260.702, 85.529, 0.218494)
	pt3dadd(145.471, 260.894, 85.4122, 0.36198)
	pt3dadd(145.515, 261.07, 85.2728, 0.434158)
	pt3dadd(145.594, 261.277, 85.1175, 0.472624)
	pt3dadd(145.873, 261.48, 85.0412, 0.537282)
	pt3dadd(146.344, 261.208, 85.1344, 0.569256)
	pt3dadd(146.52, 261.028, 85.3347, 0.440146)
	pt3dadd(146.582, 260.811, 85.5988, 0.407824)
	pt3dadd(146.576, 260.65, 85.754, 0.354794)
	pt3dadd(146.569, 260.501, 85.8648, 0.318454)
  }
  apic[29] {pt3dclear()
	pt3dadd(144.836, 176.359, 86.2573, 1.1241)
	pt3dadd(145.5, 176.301, 86.4, 0.36423)
	pt3dadd(146.031, 176.559, 86.4, 0.232932)
	pt3dadd(146.318, 176.773, 86.4, 0.403612)
	pt3dadd(146.71, 176.975, 86.4, 0.455224)
	pt3dadd(146.948, 177.106, 86.2872, 0.314952)
	pt3dadd(147.302, 177.123, 86.4192, 0.434686)
	pt3dadd(147.664, 177.145, 86.4602, 0.359756)
	pt3dadd(148.281, 177.222, 86.3296, 0.98865)
	pt3dadd(148.538, 177.459, 85.9085, 0.757608)
	pt3dadd(148.767, 177.936, 85.8467, 0.851048)
	pt3dadd(149.174, 178.517, 85.7754, 0.89485)
	pt3dadd(149.655, 178.574, 86.1578, 0.948848)
	pt3dadd(149.961, 178.846, 86.0493, 0.510694)
	pt3dadd(150.266, 179.043, 85.9617, 0.289038)
	pt3dadd(150.596, 179.163, 85.8883, 0.241882)
	pt3dadd(152.083, 179.427, 85.6041, 0.859754)
	pt3dadd(152.788, 180, 85.6129, 0.8784)
	pt3dadd(153.12, 180.17, 85.5585, 0.413044)
	pt3dadd(153.291, 180.308, 85.4371, 0.253026)
	pt3dadd(153.41, 180.423, 85.3548, 0.29054)
	pt3dadd(153.549, 180.517, 85.2963, 0.1)
	pt3dadd(153.681, 180.637, 85.2297, 0.1)
	pt3dadd(153.917, 180.878, 85.0838, 0.376774)
	pt3dadd(154.406, 181.298, 85.276, 0.796694)
	pt3dadd(154.695, 181.394, 84.9136, 0.448758)
	pt3dadd(154.983, 181.411, 84.7288, 0.44831)
	pt3dadd(155.242, 181.503, 84.5804, 0.493346)
	pt3dadd(155.598, 181.73, 84.5208, 0.511286)
	pt3dadd(156.344, 182.072, 84.6829, 0.371338)
	pt3dadd(156.367, 182.127, 84.3106, 0.400656)
	pt3dadd(156.432, 182.15, 84.0015, 0.379272)
	pt3dadd(156.664, 182.165, 83.2496, 0.9242)
	pt3dadd(157.063, 182.363, 83.4493, 0.545842)
	pt3dadd(157.173, 182.44, 83.5115, 0.1)
	pt3dadd(157.297, 182.486, 83.6635, 0.1)
	pt3dadd(157.568, 182.584, 83.8404, 0.244942)
	pt3dadd(157.81, 182.709, 83.6574, 0.334396)
	pt3dadd(158.538, 183.074, 83.4684, 0.4146)
	pt3dadd(158.809, 183.278, 82.9025, 0.661828)
	pt3dadd(159.172, 183.883, 82.7806, 0.74701)
	pt3dadd(159.173, 184.233, 82.6781, 0.649706)
	pt3dadd(159.204, 184.557, 82.295, 0.946926)
	pt3dadd(159.338, 184.976, 82.0135, 0.837262)
	pt3dadd(159.47, 185.266, 82.0127, 0.551032)
	pt3dadd(159.586, 185.531, 82.0998, 0.289694)
	pt3dadd(159.646, 185.738, 82.161, 0.296438)
	pt3dadd(159.714, 185.934, 82.1133, 0.332004)
	pt3dadd(159.781, 186.271, 82.0761, 0.413948)
	pt3dadd(159.781, 186.498, 82.0804, 0.437732)
	pt3dadd(159.763, 186.779, 82.0003, 0.428148)
	pt3dadd(159.762, 187.034, 81.9357, 0.402246)
	pt3dadd(159.807, 187.265, 81.8218, 0.373328)
	pt3dadd(159.895, 187.725, 81.7955, 0.704888)
	pt3dadd(160.121, 188.166, 82.1448, 0.900886)
	pt3dadd(160.181, 188.698, 81.733, 0.762432)
	pt3dadd(160.23, 189, 81.5556, 0.665528)
	pt3dadd(160.292, 189.581, 81.3702, 0.637084)
	pt3dadd(160.342, 189.81, 81.3224, 0.453994)
	pt3dadd(160.333, 190.095, 81.2608, 0.409272)
	pt3dadd(160.125, 190.522, 81.0744, 0.596008)
	pt3dadd(160.578, 191.276, 80.9592, 0.837038)
	pt3dadd(160.779, 192.033, 81.0908, 0.872948)
	pt3dadd(161.147, 192.508, 80.693, 1.03915)
	pt3dadd(161.205, 193.197, 80.8138, 0.683822)
	pt3dadd(161.264, 193.674, 80.8914, 0.543686)
	pt3dadd(161.345, 194.002, 80.8383, 0.396208)
	pt3dadd(161.395, 194.223, 80.7517, 0.280228)
	pt3dadd(161.446, 194.446, 80.5898, 0.349222)
	pt3dadd(161.541, 194.679, 80.4, 0.687454)
	pt3dadd(162.691, 195.978, 81.6086, 0.617068)
	pt3dadd(162.52, 196.311, 81.2674, 0.691178)
	pt3dadd(162.715, 197.116, 80.8344, 1.05156)
	pt3dadd(163.125, 197.919, 80.797, 0.756172)
	pt3dadd(163.274, 198.145, 80.7659, 0.413194)
	pt3dadd(163.448, 198.39, 80.6884, 0.35392)
	pt3dadd(163.6, 198.767, 80.4592, 0.596668)
	pt3dadd(163.595, 199.098, 80.6562, 0.728592)
	pt3dadd(163.788, 199.301, 80.5893, 0.555446)
	pt3dadd(164.127, 200.005, 80.3775, 0.73189)
	pt3dadd(164.364, 200.539, 80.0435, 0.77385)
	pt3dadd(164.517, 201.262, 79.8721, 0.766418)
	pt3dadd(164.613, 201.556, 79.9092, 0.53492)
	pt3dadd(164.682, 201.831, 79.8737, 0.41671)
	pt3dadd(164.768, 202.067, 79.9099, 0.25351)
	pt3dadd(164.897, 202.316, 79.9908, 0.377594)
	pt3dadd(165.172, 202.693, 80.0476, 0.453892)
	pt3dadd(165.868, 203.094, 80.4414, 0.1)
	pt3dadd(165.836, 203.589, 79.9642, 0.738672)
	pt3dadd(165.908, 203.801, 79.7433, 0.573294)
	pt3dadd(166.065, 204.107, 79.4186, 0.390536)
	pt3dadd(166.459, 204.796, 79.2317, 0.376644)
	pt3dadd(166.52, 204.938, 79.1119, 0.39112)
	pt3dadd(166.593, 205.093, 78.9524, 0.415644)
	pt3dadd(166.709, 205.26, 78.7663, 0.483444)
	pt3dadd(166.879, 205.638, 78.3819, 0.621148)
	pt3dadd(166.905, 205.902, 78.1793, 0.622782)
	pt3dadd(166.929, 206.172, 78.0457, 0.492266)
	pt3dadd(167.041, 206.53, 78.0553, 0.471042)
	pt3dadd(167.186, 206.826, 78.1001, 0.523862)
	pt3dadd(167.37, 207.221, 78.0901, 0.416926)
	pt3dadd(167.47, 207.512, 78.1157, 0.439186)
	pt3dadd(167.785, 208.096, 77.8881, 0.811594)
	pt3dadd(167.85, 208.316, 77.3814, 0.992458)
	pt3dadd(168.099, 208.969, 77.5616, 0.796488)
	pt3dadd(168.659, 209.95, 77.6447, 0.595834)
	pt3dadd(169.153, 210.517, 77.7556, 0.751554)
	pt3dadd(169.524, 210.749, 78.1069, 0.428014)
	pt3dadd(170.397, 211.323, 77.4638, 0.391734)
	pt3dadd(170.778, 211.686, 77.421, 0.269362)
	pt3dadd(171.052, 212.149, 77.3943, 0.22409)
	pt3dadd(171.272, 212.451, 76.7618, 0.430958)
	pt3dadd(171.688, 212.838, 76.25, 0.385576)
	pt3dadd(171.998, 213.223, 76.104, 0.32325)
	pt3dadd(172.134, 213.552, 75.7008, 0.801772)
	pt3dadd(172.45, 214.025, 75.194, 0.707274)
	pt3dadd(172.453, 214.544, 74.3436, 0.71876)
	pt3dadd(172.939, 215.258, 74.074, 0.384734)
	pt3dadd(173.378, 215.57, 73.6344, 0.1)
	pt3dadd(173.681, 215.742, 73.2702, 0.542988)
	pt3dadd(173.815, 215.903, 73.0347, 0.605542)
	pt3dadd(173.879, 216.382, 73.1133, 0.413614)
	pt3dadd(173.945, 216.696, 73.1126, 0.400344)
	pt3dadd(174.104, 217.04, 73.0624, 0.363278)
	pt3dadd(174.387, 217.439, 72.8265, 0.470524)
	pt3dadd(174.796, 218.304, 72.1235, 0.382318)
	pt3dadd(174.879, 218.518, 71.9605, 0.295258)
	pt3dadd(174.976, 218.761, 71.8546, 0.244128)
	pt3dadd(175.069, 218.939, 71.8256, 0.194836)
	pt3dadd(175.221, 219.17, 71.8045, 0.377446)
	pt3dadd(175.461, 219.351, 71.6602, 0.468114)
	pt3dadd(175.82, 219.643, 71.1177, 0.693536)
	pt3dadd(175.93, 219.807, 70.8673, 0.630488)
	pt3dadd(176.064, 220.069, 70.5741, 0.737042)
	pt3dadd(176.265, 220.425, 70.1929, 0.974688)
	pt3dadd(176.475, 220.79, 69.8168, 0.754778)
	pt3dadd(176.507, 221.234, 68.8938, 0.9714)
  }
  apic[30] {pt3dclear()
	pt3dadd(124.977, 148.982, 91.6581, 1.33418)
	pt3dadd(125.409, 148.736, 93.0899, 1.54079)
	pt3dadd(125.816, 148.553, 94.3912, 1.41344)
  }
  apic[31] {pt3dclear()
	pt3dadd(125.816, 148.553, 94.3912, 1.41344)
	pt3dadd(127.318, 148.37, 93.9857, 0.472816)
	pt3dadd(127.898, 148.397, 93.8385, 0.553788)
	pt3dadd(128.41, 148.458, 93.7671, 0.928278)
	pt3dadd(128.982, 148.148, 93.9704, 0.806622)
	pt3dadd(129.393, 147.99, 94.248, 0.793798)
	pt3dadd(130.119, 147.859, 94.6085, 0.496578)
	pt3dadd(130.609, 147.782, 94.7347, 0.482562)
	pt3dadd(130.888, 147.742, 94.7976, 0.44675)
	pt3dadd(131.206, 147.721, 94.9062, 0.56784)
	pt3dadd(131.582, 147.663, 95.1602, 0.798706)
	pt3dadd(131.973, 147.355, 95.3433, 0.543732)
	pt3dadd(132.386, 147.067, 95.5553, 0.5039)
	pt3dadd(132.708, 146.889, 95.674, 0.52994)
	pt3dadd(133.084, 146.687, 95.7465, 0.590552)
	pt3dadd(133.49, 146.491, 95.8578, 0.77978)
	pt3dadd(133.919, 146.345, 96.158, 1.1009)
	pt3dadd(134.275, 146.331, 96.6263, 0.779432)
	pt3dadd(134.577, 146.43, 96.9469, 0.502666)
	pt3dadd(135.084, 146.523, 97.1757, 0.56963)
	pt3dadd(135.389, 146.474, 97.3751, 0.928674)
	pt3dadd(135.82, 146.69, 97.418, 0.645496)
	pt3dadd(136.198, 146.86, 97.5116, 0.760932)
	pt3dadd(136.598, 146.996, 97.5023, 1.18305)
	pt3dadd(137.535, 147.218, 97.5548, 1.04781)
  }
}
proc shape3d_15() {
  apic[31] {	pt3dadd(137.996, 147.133, 98.1021, 0.779694)
	pt3dadd(138.679, 147.19, 98.5421, 0.77309)
	pt3dadd(139.079, 147.205, 98.8533, 1.1931)
	pt3dadd(139.959, 146.887, 99.0769, 1.09652)
	pt3dadd(140.746, 147.077, 99.4262, 0.1)
	pt3dadd(141.054, 147.199, 99.6219, 0.717988)
	pt3dadd(141.849, 146.979, 99.6655, 0.451898)
	pt3dadd(142.185, 146.917, 99.8076, 0.503412)
	pt3dadd(142.573, 146.959, 99.8057, 0.672962)
	pt3dadd(142.943, 147.172, 99.6295, 1.04127)
	pt3dadd(143.524, 146.952, 99.4167, 0.911442)
	pt3dadd(143.946, 146.662, 99.3874, 0.62155)
	pt3dadd(144.448, 146.449, 99.367, 0.47229)
	pt3dadd(144.718, 146.366, 99.4514, 0.697542)
	pt3dadd(145.039, 146.306, 99.5779, 0.939538)
	pt3dadd(145.475, 146.371, 99.7884, 0.901084)
	pt3dadd(145.872, 146.399, 100.146, 0.570564)
	pt3dadd(146.1, 146.359, 100.568, 0.368138)
	pt3dadd(146.867, 146.317, 100.803, 0.51215)
	pt3dadd(147.207, 146.291, 100.904, 0.630528)
	pt3dadd(147.529, 146.4, 100.999, 0.676524)
	pt3dadd(147.876, 146.29, 101.348, 0.713812)
	pt3dadd(148.213, 146.134, 101.443, 0.538856)
	pt3dadd(148.539, 146.009, 101.502, 0.666926)
	pt3dadd(148.873, 145.885, 101.531, 1.00573)
	pt3dadd(149.995, 145.577, 102.234, 0.605644)
	pt3dadd(150.478, 145.5, 102.402, 0.774154)
	pt3dadd(150.993, 145.486, 102.379, 0.904326)
	pt3dadd(151.421, 145.406, 102.996, 0.861646)
	pt3dadd(151.807, 145.495, 103.355, 0.76824)
	pt3dadd(152.245, 145.619, 103.818, 0.47111)
	pt3dadd(152.582, 145.431, 104.498, 0.242966)
	pt3dadd(154.3, 145.391, 104.996, 0.57022)
	pt3dadd(154.657, 145.47, 105.092, 0.679824)
	pt3dadd(154.983, 145.583, 105.189, 0.941078)
	pt3dadd(155.778, 145.678, 105.329, 1.51869)
	pt3dadd(156.334, 146.027, 106.396, 0.933198)
	pt3dadd(157.117, 146.087, 107.223, 1.3799)
	pt3dadd(157.644, 146.202, 107.732, 1.17385)
	pt3dadd(158.232, 146.352, 107.909, 0.621526)
	pt3dadd(159.033, 146.466, 108.308, 0.55748)
	pt3dadd(160.42, 146.31, 109.232, 0.711984)
	pt3dadd(160.812, 146.256, 109.425, 0.47211)
	pt3dadd(161.108, 146.223, 109.531, 0.458344)
	pt3dadd(161.372, 146.182, 109.631, 0.435492)
	pt3dadd(161.68, 146.135, 109.772, 0.597014)
	pt3dadd(162.075, 146.134, 109.914, 0.706772)
	pt3dadd(162.459, 146.094, 110.343, 0.60114)
	pt3dadd(162.935, 146.064, 110.487, 0.432252)
	pt3dadd(163.196, 146.021, 110.645, 0.49231)
	pt3dadd(163.424, 145.981, 110.836, 0.572758)
	pt3dadd(163.92, 145.882, 111.234, 1.01163)
	pt3dadd(164.581, 145.559, 111.766, 1.39346)
	pt3dadd(164.614, 145.504, 112.516, 1.09899)
	pt3dadd(164.452, 145.492, 113.43, 0.864438)
	pt3dadd(165.167, 145.762, 113.71, 0.404604)
	pt3dadd(165.481, 145.837, 113.915, 0.496888)
	pt3dadd(165.675, 145.884, 114.066, 0.486112)
	pt3dadd(165.856, 145.925, 114.225, 0.52498)
	pt3dadd(166.188, 146.021, 114.67, 0.625428)
	pt3dadd(166.71, 146.039, 115.103, 0.644266)
	pt3dadd(167.013, 146.078, 115.216, 0.439644)
	pt3dadd(167.229, 146.128, 115.291, 0.411636)
	pt3dadd(167.434, 146.244, 115.406, 0.61358)
	pt3dadd(167.86, 146.67, 115.755, 1.18544)
	pt3dadd(168.026, 146.065, 116.561, 0.548248)
	pt3dadd(167.946, 145.804, 116.76, 0.419234)
	pt3dadd(167.741, 145.542, 116.914, 0.480548)
	pt3dadd(167.529, 145.169, 117.146, 0.439526)
	pt3dadd(167.493, 144.973, 117.293, 0.466736)
	pt3dadd(167.495, 144.781, 117.452, 0.503022)
	pt3dadd(167.499, 144.596, 117.63, 0.515644)
  }
  apic[32] {pt3dclear()
	pt3dadd(125.816, 148.553, 94.3912, 1.41344)
	pt3dadd(125.956, 148.506, 96.1043, 1.14353)
  }
  apic[33] {pt3dclear()
	pt3dadd(125.956, 148.506, 96.1043, 1.14353)
	pt3dadd(126.591, 147.554, 96.8536, 0.952198)
	pt3dadd(126.939, 147.169, 97.2745, 1.19635)
	pt3dadd(127.232, 146.92, 97.8101, 0.997106)
	pt3dadd(127.46, 146.631, 98.3548, 1.17658)
	pt3dadd(127.815, 146.303, 98.9962, 0.683414)
	pt3dadd(128.108, 146.074, 99.2383, 0.443906)
	pt3dadd(128.259, 145.918, 99.4052, 0.43655)
	pt3dadd(128.379, 145.754, 99.5688, 0.43483)
	pt3dadd(128.472, 145.561, 99.7148, 0.41728)
	pt3dadd(128.561, 145.341, 99.869, 0.431692)
	pt3dadd(128.617, 145.157, 100.026, 0.477902)
	pt3dadd(128.636, 144.966, 100.192, 0.551856)
	pt3dadd(128.697, 144.585, 100.538, 0.698908)
	pt3dadd(128.751, 144.048, 100.948, 0.885322)
	pt3dadd(128.975, 143.339, 101.352, 1.10222)
	pt3dadd(128.856, 142.986, 102.125, 0.959684)
	pt3dadd(128.764, 142.686, 102.747, 0.887258)
	pt3dadd(128.795, 142.353, 103.534, 0.919692)
	pt3dadd(129.017, 142.106, 104.314, 0.936302)
	pt3dadd(129.202, 141.925, 105.092, 0.84594)
	pt3dadd(129.471, 141.632, 105.761, 0.867978)
	pt3dadd(129.768, 141.382, 106.243, 0.65853)
	pt3dadd(130.029, 141.067, 106.576, 0.511652)
	pt3dadd(130.116, 140.921, 106.775, 0.563846)
	pt3dadd(130.27, 140.622, 107.235, 0.719856)
	pt3dadd(130.517, 140.406, 107.95, 0.819482)
	pt3dadd(130.85, 140.308, 108.449, 0.945698)
	pt3dadd(131.23, 140.098, 109.123, 1.13715)
	pt3dadd(131.614, 139.883, 109.949, 0.613182)
	pt3dadd(132.009, 139.728, 110.234, 0.742556)
	pt3dadd(132.059, 139.276, 110.953, 0.723846)
	pt3dadd(132.278, 139.041, 111.354, 0.765618)
	pt3dadd(132.638, 138.77, 111.786, 0.853278)
	pt3dadd(132.835, 138.387, 112.577, 0.843078)
	pt3dadd(133.026, 138.096, 113.165, 0.777194)
	pt3dadd(133.386, 137.751, 113.809, 0.63001)
	pt3dadd(133.654, 137.502, 114.129, 0.82057)
	pt3dadd(133.859, 137.383, 114.876, 0.834492)
	pt3dadd(133.926, 137.683, 115.536, 0.860122)
	pt3dadd(133.972, 137.506, 116.656, 1.11853)
	pt3dadd(133.963, 137.256, 117.477, 0.883388)
	pt3dadd(133.573, 136.661, 118.016, 0.4024)
	pt3dadd(133.362, 136.43, 118.376, 0.430202)
	pt3dadd(133.27, 136.36, 119.107, 0.74029)
	pt3dadd(133.224, 136.367, 119.556, 0.81745)
	pt3dadd(133.223, 136.3, 120.459, 1.04405)
	pt3dadd(133.376, 136.347, 121.114, 1.03972)
	pt3dadd(133.506, 136.697, 121.933, 0.769938)
	pt3dadd(133.601, 136.745, 122.531, 0.806574)
	pt3dadd(133.496, 136.65, 123.006, 0.68809)
	pt3dadd(133.292, 136.461, 123.403, 0.791256)
	pt3dadd(132.972, 136.069, 123.911, 0.950066)
	pt3dadd(132.624, 135.547, 124.54, 1.3314)
	pt3dadd(132.536, 135.281, 125.686, 0.462104)
	pt3dadd(132.456, 135.127, 126.204, 0.532866)
	pt3dadd(132.373, 135.052, 126.483, 0.64034)
	pt3dadd(132.15, 134.977, 127.025, 0.661906)
	pt3dadd(132.412, 134.535, 127.262, 0.640432)
	pt3dadd(132.697, 134.631, 127.017, 0.443966)
	pt3dadd(132.837, 134.748, 126.867, 0.118148)
  }
  apic[34] {pt3dclear()
	pt3dadd(125.956, 148.506, 96.1043, 1.14353)
	pt3dadd(125.563, 149.538, 96.9246, 0.73006)
	pt3dadd(125.465, 149.977, 97.1947, 0.861082)
	pt3dadd(125.322, 150.429, 97.4052, 0.76311)
	pt3dadd(125.357, 150.876, 97.7328, 0.918452)
	pt3dadd(125.521, 151.307, 98.0465, 0.900468)
	pt3dadd(125.677, 151.833, 98.4482, 1.35492)
	pt3dadd(125.667, 152.326, 99.1045, 0.772378)
	pt3dadd(125.49, 153.039, 99.5994, 0.760192)
	pt3dadd(125.224, 153.593, 99.7157, 0.478662)
	pt3dadd(125.102, 153.991, 99.739, 0.60333)
	pt3dadd(124.907, 154.439, 99.6394, 0.513038)
	pt3dadd(124.783, 154.714, 99.6529, 0.441498)
	pt3dadd(124.66, 154.973, 99.6594, 0.36791)
	pt3dadd(124.575, 155.205, 99.6663, 0.40346)
	pt3dadd(124.504, 155.436, 99.6707, 0.454962)
	pt3dadd(124.442, 155.693, 99.6872, 0.432816)
	pt3dadd(124.366, 155.944, 99.7306, 0.472218)
	pt3dadd(124.277, 156.194, 99.7632, 0.531544)
	pt3dadd(124.176, 156.479, 99.8, 0.571886)
	pt3dadd(124.077, 156.777, 99.8338, 0.671978)
	pt3dadd(123.853, 156.985, 100.157, 0.852406)
	pt3dadd(123.377, 157.552, 100.439, 0.779898)
	pt3dadd(123.455, 157.86, 100.833, 0.708682)
	pt3dadd(123.551, 158.086, 101.091, 0.651038)
	pt3dadd(123.646, 158.314, 101.319, 0.649682)
	pt3dadd(123.713, 158.54, 101.581, 0.49241)
	pt3dadd(123.851, 159.003, 102.012, 0.39788)
	pt3dadd(123.899, 159.218, 102.301, 0.544292)
	pt3dadd(124.014, 159.631, 102.35, 0.584136)
	pt3dadd(124.148, 159.99, 102.558, 0.336748)
	pt3dadd(124.26, 160.205, 102.607, 0.328796)
	pt3dadd(124.353, 160.427, 102.638, 0.485496)
	pt3dadd(124.404, 160.646, 102.737, 0.489904)
	pt3dadd(124.434, 161.161, 103.083, 0.365502)
	pt3dadd(124.428, 161.481, 103.271, 0.435952)
	pt3dadd(124.44, 161.947, 103.328, 0.314606)
	pt3dadd(124.438, 162.42, 103.638, 0.487768)
	pt3dadd(124.527, 162.764, 104.369, 0.542398)
	pt3dadd(124.535, 163.065, 104.575, 0.478998)
	pt3dadd(124.518, 163.28, 104.741, 0.400706)
	pt3dadd(124.509, 163.479, 104.93, 0.475376)
	pt3dadd(124.485, 163.663, 105.12, 0.55812)
	pt3dadd(124.445, 164.067, 105.453, 0.560678)
	pt3dadd(124.412, 164.528, 105.702, 0.61101)
	pt3dadd(124.377, 165.071, 105.873, 0.847366)
	pt3dadd(124.108, 165.728, 105.77, 0.879608)
	pt3dadd(123.843, 166.215, 105.888, 1.15902)
	pt3dadd(123.869, 166.893, 105.935, 0.534136)
	pt3dadd(123.974, 167.355, 106.112, 0.435998)
	pt3dadd(124.005, 167.579, 106.184, 0.391818)
	pt3dadd(124.024, 167.806, 106.311, 0.48143)
	pt3dadd(124.02, 168.081, 106.368, 0.519924)
	pt3dadd(124.024, 168.337, 106.442, 0.617054)
	pt3dadd(124.031, 168.629, 106.555, 0.697382)
	pt3dadd(123.983, 168.992, 106.635, 0.616442)
	pt3dadd(124.001, 169.289, 106.763, 0.687386)
	pt3dadd(123.772, 169.952, 106.9, 0.517622)
	pt3dadd(123.584, 170.399, 107.053, 0.500204)
	pt3dadd(123.508, 170.663, 107.148, 0.55102)
	pt3dadd(123.406, 170.967, 107.228, 0.688946)
	pt3dadd(123.351, 171.296, 107.572, 0.816302)
	pt3dadd(123.293, 171.869, 108.07, 1.01383)
	pt3dadd(123.059, 172.56, 108.519, 1.20079)
	pt3dadd(122.866, 173.264, 108.963, 1.16185)
  }
}
proc shape3d_16() {
  apic[34] {	pt3dadd(122.732, 174.147, 109.076, 0.949462)
	pt3dadd(122.522, 174.576, 109.105, 0.808152)
	pt3dadd(122.323, 174.855, 109.554, 0.818548)
	pt3dadd(122.128, 175.072, 109.903, 0.971216)
	pt3dadd(121.91, 175.268, 111.067, 0.922792)
	pt3dadd(121.792, 175.371, 111.756, 0.939426)
	pt3dadd(121.642, 175.592, 112.38, 0.761762)
	pt3dadd(121.46, 175.981, 112.928, 0.806398)
	pt3dadd(121.354, 176.212, 113.267, 1.06355)
	pt3dadd(120.797, 176.449, 114.053, 0.987594)
	pt3dadd(120.572, 176.649, 114.471, 1.10078)
	pt3dadd(120.479, 176.677, 115.868, 1.22716)
	pt3dadd(120.217, 176.655, 116.759, 1.33798)
	pt3dadd(119.856, 176.856, 117.536, 1.58793)
	pt3dadd(119.627, 176.98, 118.385, 0.77923)
	pt3dadd(119.452, 177.101, 118.868, 0.601884)
	pt3dadd(119.239, 177.344, 119.362, 0.95944)
	pt3dadd(119.133, 177.477, 119.837, 0.938674)
	pt3dadd(119.016, 177.699, 120.535, 0.825566)
	pt3dadd(118.99, 177.848, 120.919, 0.748438)
	pt3dadd(118.992, 178.066, 121.269, 0.745896)
	pt3dadd(118.951, 178.479, 121.56, 0.672768)
	pt3dadd(118.916, 178.782, 121.951, 0.60379)
	pt3dadd(118.851, 178.986, 122.238, 0.57922)
	pt3dadd(118.781, 179.166, 122.519, 0.774978)
	pt3dadd(118.656, 179.567, 123.112, 1.17445)
	pt3dadd(118.668, 179.831, 124.135, 0.903294)
	pt3dadd(118.395, 180.379, 124.408, 0.152612)
	pt3dadd(118.277, 180.47, 124.548, 0.1)
	pt3dadd(118.158, 180.565, 124.734, 0.182618)
	pt3dadd(118.042, 180.679, 124.892, 0.406438)
	pt3dadd(117.973, 180.835, 125.047, 0.745352)
	pt3dadd(117.97, 181.315, 125.367, 1.06135)
	pt3dadd(117.71, 181.827, 125.669, 0.588952)
	pt3dadd(117.579, 182.064, 125.819, 0.584222)
	pt3dadd(117.247, 183.192, 126.233, 1.09897)
  }
  apic[35] {pt3dclear()
	pt3dadd(117.247, 183.192, 126.233, 1.09897)
	pt3dadd(116.532, 182.466, 126.819, 1.16706)
	pt3dadd(116.693, 182.399, 127.443, 0.567914)
	pt3dadd(116.746, 182.372, 127.794, 0.5121)
	pt3dadd(116.589, 182.241, 128.266, 0.546422)
	pt3dadd(116.459, 182.254, 128.542, 0.593106)
	pt3dadd(116.302, 182.327, 128.816, 0.636872)
	pt3dadd(116.159, 182.365, 128.99, 0.54556)
  }
  apic[36] {pt3dclear()
	pt3dadd(117.247, 183.192, 126.233, 1.09897)
	pt3dadd(116.555, 184.085, 126.692, 0.481786)
	pt3dadd(116.395, 184.329, 126.84, 0.460482)
	pt3dadd(116.291, 184.606, 126.942, 0.61785)
	pt3dadd(116.439, 185.131, 127.136, 0.94829)
	pt3dadd(116.27, 185.746, 127.43, 0.788738)
	pt3dadd(116.355, 186.532, 127.705, 0.497008)
	pt3dadd(116.434, 186.992, 127.81, 0.390996)
	pt3dadd(116.399, 187.239, 127.846, 0.628134)
	pt3dadd(116.301, 187.824, 127.931, 1.19537)
	pt3dadd(116.198, 188.434, 128.76, 0.672484)
	pt3dadd(116.348, 188.1, 129.148, 0.155904)
	pt3dadd(116.233, 187.933, 129.357, 0.1)
	pt3dadd(116.111, 187.833, 129.557, 0.480914)
	pt3dadd(115.928, 187.759, 129.957, 0.792744)
  }
  dend {pt3dclear()
	pt3dadd(115.745, 125.091, 80.1781, 1.70385)
	pt3dadd(114.104, 122.736, 74.3028, 1.70385)
	pt3dadd(113.617, 121.834, 73.23, 1.36298)
	pt3dadd(113.106, 121.068, 71.6842, 1.6926)
  }
  dend[1] {pt3dclear()
	pt3dadd(113.106, 121.068, 71.6842, 1.6926)
	pt3dadd(113.814, 119.949, 71.0659, 0.657018)
	pt3dadd(114, 119.642, 70.9216, 0.484932)
	pt3dadd(114.211, 119.391, 70.7439, 0.487976)
	pt3dadd(114.439, 119.175, 70.5766, 0.619814)
	pt3dadd(114.66, 118.961, 70.3953, 0.537078)
	pt3dadd(114.908, 118.74, 70.2223, 0.641032)
	pt3dadd(115.181, 118.465, 70.0221, 0.594414)
	pt3dadd(115.477, 118.205, 69.8396, 0.619274)
	pt3dadd(115.861, 117.921, 69.711, 0.75779)
	pt3dadd(116.252, 117.708, 69.7124, 0.707586)
	pt3dadd(116.764, 117.466, 68.6467, 0.855562)
	pt3dadd(117.044, 117.277, 68.2522, 0.668248)
	pt3dadd(117.376, 117.07, 67.9067, 0.73172)
	pt3dadd(117.698, 116.929, 67.6527, 0.85195)
	pt3dadd(119.072, 116.318, 66.9271, 1.22096)
  }
  dend[2] {pt3dclear()
	pt3dadd(119.072, 116.318, 66.9271, 1.22096)
	pt3dadd(119.974, 116.695, 66.4255, 0.88709)
	pt3dadd(120.41, 116.975, 65.6555, 0.688994)
	pt3dadd(120.626, 117.13, 65.1497, 0.666542)
	pt3dadd(120.781, 117.275, 64.7363, 0.74261)
	pt3dadd(120.966, 117.483, 64.3537, 0.84973)
	pt3dadd(121.329, 117.775, 64.0163, 0.558196)
	pt3dadd(121.659, 118.065, 63.5648, 0.768956)
	pt3dadd(121.759, 118.352, 62.8666, 0.985618)
  }
  dend[3] {pt3dclear()
	pt3dadd(121.759, 118.352, 62.8666, 0.985618)
	pt3dadd(121.763, 118.963, 62, 0.6712)
	pt3dadd(121.631, 119.223, 61.8, 0.569262)
	pt3dadd(121.592, 119.497, 61.6, 0.469078)
	pt3dadd(121.624, 119.911, 61.4, 0.447384)
	pt3dadd(121.783, 120.234, 60.5248, 0.586842)
	pt3dadd(121.541, 120.876, 60.3808, 0.697266)
	pt3dadd(121.197, 121.479, 59.4927, 0.865542)
	pt3dadd(121.065, 121.727, 59.0726, 1.02756)
	pt3dadd(120.875, 122.278, 58.3418, 1.09093)
	pt3dadd(120.645, 122.536, 57.83, 0.826704)
	pt3dadd(120.531, 123.083, 57.5652, 0.76648)
	pt3dadd(120.743, 123.65, 57.2581, 0.541598)
	pt3dadd(120.701, 124.017, 56.5468, 1.30204)
	pt3dadd(120.659, 124.373, 55.8593, 1.26823)
	pt3dadd(119.999, 124.619, 55.0447, 1.07204)
	pt3dadd(119.831, 124.735, 54.4873, 0.894202)
	pt3dadd(119.688, 124.994, 53.8968, 1.04951)
	pt3dadd(119.343, 125.594, 53.1437, 0.897114)
	pt3dadd(119.063, 126.007, 52.6917, 0.846748)
	pt3dadd(118.475, 126.199, 51.9714, 0.77677)
	pt3dadd(118.155, 126.366, 51.6339, 0.585086)
	pt3dadd(117.969, 126.525, 51.2906, 0.95247)
	pt3dadd(117.86, 126.772, 50.8698, 0.711446)
	pt3dadd(117.743, 126.939, 50.1758, 0.72956)
	pt3dadd(117.588, 127.085, 49.2087, 1.02242)
	pt3dadd(117.533, 127.093, 48.2257, 0.903324)
	pt3dadd(117.476, 127.118, 47.7616, 1.03569)
	pt3dadd(117.339, 127.194, 46.917, 1.07984)
	pt3dadd(116.934, 127.343, 46.4665, 0.82519)
	pt3dadd(116.679, 127.335, 46.1041, 0.521622)
	pt3dadd(116.455, 127.208, 45.542, 0.57185)
	pt3dadd(116.344, 127.139, 45.178, 0.626098)
	pt3dadd(116.241, 127.119, 44.8789, 0.682004)
	pt3dadd(116.117, 127.162, 44.5513, 0.801898)
	pt3dadd(115.888, 127.209, 43.8754, 0.852984)
	pt3dadd(114.215, 127.168, 42.6, 0.503018)
	pt3dadd(113.899, 127.204, 42, 0.62626)
	pt3dadd(113.269, 127.334, 41.2, 0.624694)
	pt3dadd(113.003, 127.299, 40.6, 0.635726)
	pt3dadd(112.853, 127.235, 40.2, 0.59438)
	pt3dadd(112.332, 127.56, 39.6, 0.680058)
	pt3dadd(111.7, 127.705, 39, 0.389648)
	pt3dadd(111.445, 127.849, 38.6, 0.671674)
	pt3dadd(111.1, 127.899, 38.2, 0.608568)
	pt3dadd(110.708, 127.873, 37.6, 0.733796)
	pt3dadd(110.455, 127.839, 37.2, 0.711342)
	pt3dadd(110.112, 127.991, 36.6, 0.458546)
	pt3dadd(109.108, 127.783, 35.8, 0.42267)
	pt3dadd(108.801, 127.904, 35.2, 0.815948)
	pt3dadd(108.488, 128.059, 34.6, 0.599364)
	pt3dadd(107.9, 128.312, 33.8, 0.761544)
	pt3dadd(108.07, 128.634, 33.4, 0.500684)
	pt3dadd(108.137, 128.785, 33, 0.438726)
	pt3dadd(108.2, 128.855, 32.8, 0.476348)
	pt3dadd(107.785, 128.831, 32.6, 0.501866)
	pt3dadd(107.468, 128.711, 32.2, 0.484844)
	pt3dadd(107.35, 128.7, 31.8, 0.479232)
	pt3dadd(107.297, 128.641, 31.4, 0.481672)
	pt3dadd(107.301, 128.601, 31, 0.45864)
	pt3dadd(107.196, 128.696, 30.6, 0.50358)
	pt3dadd(106.9, 128.844, 30.4, 0.440156)
	pt3dadd(106.688, 128.86, 30.2, 0.502326)
	pt3dadd(106.4, 128.849, 30, 0.490646)
	pt3dadd(105.964, 128.744, 29.4, 0.427054)
	pt3dadd(105.713, 128.742, 29, 0.59285)
	pt3dadd(105.54, 128.959, 28.6, 0.573638)
	pt3dadd(104.175, 129.033, 28, 0.381096)
	pt3dadd(104.1, 128.999, 27.6, 0.375782)
	pt3dadd(104.096, 129.014, 27.4, 0.388222)
	pt3dadd(103.877, 128.963, 27, 0.492448)
	pt3dadd(103.681, 128.808, 26.6, 0.47202)
	pt3dadd(103.549, 128.631, 26.4, 0.265466)
	pt3dadd(103.327, 128.344, 26, 0.33101)
	pt3dadd(103.187, 128.331, 25.8, 0.425712)
	pt3dadd(102.992, 128.32, 25.6, 0.457406)
	pt3dadd(102.591, 128.115, 25.2, 0.337546)
	pt3dadd(102.386, 128.034, 25, 0.447546)
	pt3dadd(102.263, 127.956, 24.6, 0.567488)
	pt3dadd(102.101, 127.799, 24.2, 0.543726)
	pt3dadd(100.694, 125.5, 22.6, 0.34439)
	pt3dadd(100.626, 125.283, 22.4, 0.406368)
	pt3dadd(100.5, 125.1, 22.2, 0.440308)
	pt3dadd(100.407, 124.992, 22, 0.491102)
	pt3dadd(100.21, 124.848, 21.8, 0.611306)
	pt3dadd(100.064, 124.552, 21.6, 0.485458)
	pt3dadd(99.7972, 124.409, 21.6, 0.385712)
	pt3dadd(99.5022, 124.297, 21.6, 0.345058)
	pt3dadd(99.4223, 124.238, 21.4, 0.436908)
	pt3dadd(99.1844, 124.014, 21.4, 0.547422)
	pt3dadd(99.0755, 123.812, 21.2, 0.492332)
	pt3dadd(99.0001, 123.559, 21, 0.279526)
	pt3dadd(98.9148, 123.397, 21, 0.170838)
	pt3dadd(98.8897, 123.308, 21, 0.225866)
	pt3dadd(98.8951, 123.205, 20.8, 0.263212)
	pt3dadd(98.6986, 123.007, 20.8, 0.390942)
	pt3dadd(98.497, 122.801, 20.4, 0.572744)
	pt3dadd(98.211, 122.284, 19.8, 0.435904)
	pt3dadd(97.9036, 121.697, 19.6, 0.57856)
	pt3dadd(97.4114, 120.886, 19.4, 0.276466)
	pt3dadd(97.243, 120.647, 18.8, 0.654092)
	pt3dadd(97.0057, 119.289, 18, 0.395656)
	pt3dadd(96.8144, 119.176, 17.6, 0.3085)
	pt3dadd(96.6, 119.078, 17.4, 0.351486)
	pt3dadd(96.3, 118.997, 17, 0.32914)
	pt3dadd(95.0975, 118.703, 15.6, 0.587626)
	pt3dadd(94.8484, 118.46, 15.2, 0.439684)
	pt3dadd(94.6049, 118.28, 15, 0.370536)
	pt3dadd(94.5046, 118.231, 14.6, 0.462216)
	pt3dadd(94.4, 118.245, 14, 0.409736)
	pt3dadd(94.2011, 118.288, 13.6, 0.375772)
	pt3dadd(93.809, 118.425, 13, 0.47147)
  }
}
proc shape3d_17() {
  dend[3] {	pt3dadd(93.5, 118.521, 12.8, 0.331504)
	pt3dadd(93.1915, 118.514, 12.2, 0.404748)
	pt3dadd(92.5035, 118.192, 11.4, 0.411992)
	pt3dadd(92.2072, 118.083, 11.2, 0.464228)
	pt3dadd(92.0163, 118.061, 10.8, 0.55558)
	pt3dadd(91.7396, 117.867, 10.6, 0.65181)
	pt3dadd(91.4975, 117.707, 10.2, 0.82305)
	pt3dadd(90.9997, 117.2, 9.8, 0.326746)
	pt3dadd(90.8727, 117.127, 9.4, 0.487248)
	pt3dadd(90.7637, 117.077, 9, 0.568354)
	pt3dadd(90.3006, 115.897, 8.4, 0.39834)
	pt3dadd(89.9993, 115.807, 8.2, 0.386782)
	pt3dadd(89.7208, 115.775, 7.6, 0.681858)
	pt3dadd(89.1024, 115.392, 7.2, 0.394488)
	pt3dadd(88.5001, 114.999, 6.4, 0.602058)
	pt3dadd(87.8004, 114.899, 6, 0.397542)
	pt3dadd(87.6005, 114.699, 5.8, 0.347204)
	pt3dadd(88.3206, 114.01, 5.4, 0.419748)
	pt3dadd(86.6, 113.9, 5.2, 0.275928)
	pt3dadd(86.2, 113.65, 4.8, 0.454628)
	pt3dadd(85.8772, 113.543, 4.4, 0.320266)
	pt3dadd(85.6064, 113.468, 4, 0.341958)
	pt3dadd(85.3012, 113.396, 3.6, 0.670448)
	pt3dadd(83.8085, 112.695, 2, 0.427538)
  }
  dend[4] {pt3dclear()
	pt3dadd(121.759, 118.352, 62.8666, 0.985618)
	pt3dadd(122.301, 118.699, 62.4, 0.810426)
	pt3dadd(122.455, 119.079, 60.2, 0.544544)
	pt3dadd(122.561, 119.47, 61.9757, 0.546956)
	pt3dadd(122.946, 119.858, 61.7195, 0.469604)
	pt3dadd(123.206, 120.119, 61.5466, 0.441652)
	pt3dadd(123.426, 120.458, 61.4875, 0.402868)
	pt3dadd(123.638, 120.751, 61.4698, 0.35789)
	pt3dadd(123.922, 121.125, 60.8524, 0.564782)
	pt3dadd(124.02, 121.29, 60.547, 0.751032)
	pt3dadd(124.046, 121.65, 59.9961, 0.533352)
	pt3dadd(124.577, 121.991, 59.8241, 0.512854)
	pt3dadd(124.914, 122.271, 59.6965, 0.527246)
	pt3dadd(125.173, 122.534, 59.467, 0.581234)
	pt3dadd(125.373, 122.754, 59.2122, 0.688022)
	pt3dadd(125.798, 123.247, 58.4345, 0.624974)
	pt3dadd(126.302, 123.97, 58.158, 0.71538)
	pt3dadd(126.554, 124.222, 58.0176, 1.06228)
	pt3dadd(127.27, 124.487, 57.8473, 0.984914)
	pt3dadd(127.836, 124.887, 57.891, 0.617816)
	pt3dadd(128.356, 125.288, 57.9379, 0.579322)
	pt3dadd(129.708, 125.771, 57.3656, 0.493554)
	pt3dadd(130.067, 125.875, 57.2161, 0.50786)
	pt3dadd(130.422, 125.957, 57.1242, 0.532686)
	pt3dadd(130.864, 126.034, 57.194, 0.656224)
	pt3dadd(131.308, 125.965, 57.4326, 0.74982)
	pt3dadd(131.859, 125.985, 57.0197, 0.492966)
	pt3dadd(132.399, 125.988, 56.4266, 0.571456)
	pt3dadd(132.735, 126.006, 56.0276, 0.645938)
	pt3dadd(133.331, 125.914, 55.7782, 0.40926)
	pt3dadd(133.678, 125.851, 55.7277, 0.19962)
	pt3dadd(133.996, 125.807, 55.622, 0.45812)
	pt3dadd(134.32, 125.776, 55.4373, 0.6094)
	pt3dadd(134.903, 125.675, 55.2202, 0.54567)
	pt3dadd(135.453, 125.853, 54.5094, 1.08154)
	pt3dadd(136.208, 125.893, 54.2309, 0.538052)
	pt3dadd(136.891, 126.12, 53.94, 0.546512)
	pt3dadd(137.447, 126.467, 53.3477, 0.771678)
	pt3dadd(138.239, 126.921, 52.8496, 0.840996)
	pt3dadd(139.101, 127.095, 52.083, 0.667244)
	pt3dadd(140.107, 127.503, 50.7785, 0.732162)
	pt3dadd(140.612, 127.541, 50.6, 0.487396)
	pt3dadd(140.9, 127.746, 50.4, 0.471436)
	pt3dadd(141.895, 128.602, 49.6, 0.641604)
	pt3dadd(142.183, 128.725, 49.8, 0.41214)
	pt3dadd(142.307, 128.782, 49.6, 0.467052)
	pt3dadd(142.568, 128.943, 49.6, 0.377056)
	pt3dadd(142.814, 129.077, 49.6, 0.332932)
	pt3dadd(143.004, 129.185, 49.4, 0.382736)
	pt3dadd(143.296, 129.306, 49.4, 0.362354)
	pt3dadd(143.416, 129.377, 49.2, 0.412546)
	pt3dadd(143.496, 129.406, 49.4, 0.29876)
	pt3dadd(143.592, 129.443, 49.4, 0.289088)
	pt3dadd(143.89, 129.717, 49, 0.328526)
	pt3dadd(144.195, 129.854, 49, 0.287948)
	pt3dadd(144.408, 129.887, 49, 0.333924)
	pt3dadd(144.6, 129.902, 49, 0.342758)
	pt3dadd(144.814, 129.933, 48.8, 0.43204)
	pt3dadd(145.122, 129.954, 48.6, 0.560338)
	pt3dadd(145.499, 130.107, 48.2, 0.586798)
	pt3dadd(145.89, 130.183, 48, 0.732558)
	pt3dadd(146.286, 130.421, 47.8, 0.294406)
	pt3dadd(146.6, 130.445, 47.6, 0.282456)
	pt3dadd(146.8, 130.5, 47.6, 0.27111)
	pt3dadd(146.886, 130.545, 47.4, 0.303046)
	pt3dadd(147.136, 130.676, 47.2, 0.47353)
	pt3dadd(147.413, 130.621, 47.2, 0.316624)
	pt3dadd(147.471, 130.638, 47, 0.30343)
	pt3dadd(147.7, 130.602, 46.8, 0.346496)
	pt3dadd(147.916, 130.646, 46.4, 0.509538)
	pt3dadd(148.108, 130.786, 46.2, 0.409316)
	pt3dadd(148.304, 130.883, 46.2, 0.376868)
	pt3dadd(148.499, 131.002, 46, 0.352756)
	pt3dadd(148.606, 131.09, 45.8, 0.360718)
	pt3dadd(148.7, 131.196, 45.6, 0.39184)
	pt3dadd(148.897, 131.305, 45.4, 0.368226)
	pt3dadd(149.002, 131.396, 45.2, 0.357544)
	pt3dadd(149.386, 131.667, 44.4, 0.499796)
	pt3dadd(149.366, 132.003, 43.8, 0.461614)
	pt3dadd(149.23, 132.24, 43.6, 0.385366)
	pt3dadd(149.062, 132.694, 42.8, 0.314576)
	pt3dadd(149.006, 132.958, 42.2, 0.488088)
	pt3dadd(148.963, 133.317, 41.2, 0.535234)
	pt3dadd(149.001, 133.599, 40.6, 0.490308)
	pt3dadd(149.082, 133.951, 39.6, 0.513574)
	pt3dadd(149.009, 134.277, 38.4, 0.549632)
	pt3dadd(148.828, 134.4, 37.8, 0.44983)
	pt3dadd(148.516, 134.903, 37, 0.859948)
	pt3dadd(148.879, 135.051, 36.4, 0.960574)
	pt3dadd(148.928, 135.359, 35.8, 0.80378)
	pt3dadd(148.913, 135.548, 34.8, 0.486864)
	pt3dadd(149.001, 136.098, 33.8, 0.633378)
	pt3dadd(149.038, 136.569, 32.6, 0.665946)
	pt3dadd(149.22, 136.783, 32.4, 0.565292)
	pt3dadd(149.408, 136.987, 32.2, 0.422938)
	pt3dadd(149.497, 137.004, 32.4, 0.316024)
	pt3dadd(149.551, 137.133, 32.2, 0.340382)
	pt3dadd(149.604, 137.195, 32, 0.319572)
	pt3dadd(149.714, 137.391, 32, 0.329314)
	pt3dadd(149.798, 137.9, 32.2, 0.361466)
	pt3dadd(149.967, 138.276, 31.4, 0.571788)
	pt3dadd(150.099, 138.298, 31, 0.533048)
	pt3dadd(150.316, 138.334, 30.6, 0.540196)
	pt3dadd(150.7, 138.257, 30, 0.4449)
	pt3dadd(151.016, 138.276, 30, 0.273672)
	pt3dadd(151.8, 138.599, 29.6, 0.392578)
	pt3dadd(152.109, 138.676, 29.4, 0.468098)
	pt3dadd(152.251, 138.76, 29.4, 0.443984)
	pt3dadd(152.4, 138.803, 29.2, 0.370422)
	pt3dadd(152.475, 138.861, 29, 0.352696)
	pt3dadd(152.576, 138.933, 29, 0.241626)
	pt3dadd(152.719, 138.972, 28.8, 0.282208)
	pt3dadd(152.794, 139.009, 29, 0.319358)
	pt3dadd(152.908, 139.085, 28.8, 0.38461)
	pt3dadd(153.092, 139.209, 28.6, 0.507226)
	pt3dadd(153.308, 139.22, 28.4, 0.428996)
	pt3dadd(153.6, 139.053, 29.4, 0.486222)
	pt3dadd(153.773, 138.88, 29.8, 0.565596)
	pt3dadd(154.006, 138.814, 29.8, 0.4281)
	pt3dadd(154.298, 138.897, 29.6, 0.455054)
	pt3dadd(154.541, 138.965, 29.6, 0.36085)
	pt3dadd(154.664, 139.001, 29.4, 0.356744)
	pt3dadd(154.798, 139.02, 29.4, 0.35825)
	pt3dadd(155.198, 138.998, 28.8, 0.502462)
	pt3dadd(155.371, 138.843, 28.6, 0.596934)
	pt3dadd(155.603, 138.702, 28.2, 0.478016)
	pt3dadd(155.791, 138.595, 28, 0.392522)
	pt3dadd(156.046, 138.456, 27.8, 0.36241)
	pt3dadd(156.235, 138.226, 27.6, 0.328822)
	pt3dadd(156.284, 138.09, 27.2, 0.332938)
	pt3dadd(156.311, 138.006, 27, 0.396822)
	pt3dadd(156.354, 137.905, 26.8, 0.484482)
	pt3dadd(156.479, 137.655, 27, 0.55515)
	pt3dadd(156.515, 137.306, 26, 0.4402)
	pt3dadd(156.606, 137.103, 25.8, 0.426328)
	pt3dadd(156.732, 136.911, 25.6, 0.475146)
	pt3dadd(156.818, 136.711, 25.6, 0.404172)
	pt3dadd(156.954, 136.484, 25.4, 0.47957)
	pt3dadd(157.126, 136.319, 25.4, 0.370714)
	pt3dadd(157.309, 136.109, 25, 0.529682)
	pt3dadd(157.512, 136.034, 24.4, 0.495818)
	pt3dadd(157.613, 135.908, 24.2, 0.414998)
	pt3dadd(157.72, 135.815, 24, 0.272886)
	pt3dadd(157.821, 135.716, 23.8, 0.382934)
	pt3dadd(157.922, 135.613, 23.6, 0.412884)
	pt3dadd(158.11, 135.405, 23.4, 0.437258)
	pt3dadd(158.263, 135.173, 23.4, 0.390372)
	pt3dadd(158.361, 134.974, 23.2, 0.252174)
	pt3dadd(158.383, 134.885, 23.4, 0.24)
	pt3dadd(158.52, 134.734, 23.2, 0.293416)
	pt3dadd(158.713, 134.637, 22.8, 0.484348)
	pt3dadd(159.092, 134.576, 22.2, 0.585814)
	pt3dadd(159.329, 134.403, 21.8, 0.459366)
	pt3dadd(159.419, 134.313, 21.6, 0.402922)
	pt3dadd(159.526, 134.214, 21.4, 0.342778)
	pt3dadd(159.62, 134.114, 21.2, 0.38745)
	pt3dadd(159.799, 133.899, 21, 0.532806)
	pt3dadd(160.025, 133.771, 20.8, 0.485044)
	pt3dadd(160.206, 133.712, 20.6, 0.375456)
	pt3dadd(160.413, 133.733, 20.4, 0.248812)
	pt3dadd(160.385, 133.591, 20.6, 0.13548)
  }
  dend[5] {pt3dclear()
	pt3dadd(119.072, 116.318, 66.9271, 1.22096)
	pt3dadd(119.376, 115.659, 67.152, 0.215902)
	pt3dadd(119.46, 115.475, 67.2148, 0.276136)
	pt3dadd(119.528, 115.283, 67.2495, 0.301904)
	pt3dadd(119.591, 115.097, 67.3081, 0.491332)
	pt3dadd(119.626, 114.865, 67.4286, 0.608336)
	pt3dadd(119.569, 114.631, 67.6198, 0.737532)
	pt3dadd(119.923, 114.186, 67.3123, 0.333282)
	pt3dadd(120.034, 114.016, 67.1625, 0.317252)
	pt3dadd(120.135, 113.831, 66.9981, 0.5438)
	pt3dadd(120.05, 113.353, 66.836, 1.10822)
	pt3dadd(120.546, 112.497, 66.891, 0.569444)
	pt3dadd(120.747, 112.173, 66.9271, 0.493158)
	pt3dadd(120.921, 111.924, 66.9093, 0.432294)
	pt3dadd(121.139, 111.696, 66.7761, 0.458576)
  }
}
proc shape3d_18() {
  dend[5] {	pt3dadd(121.324, 111.392, 66.8125, 0.497794)
	pt3dadd(121.419, 111.047, 66.9262, 0.506088)
	pt3dadd(121.504, 110.626, 67.0341, 0.464952)
	pt3dadd(121.538, 110.167, 67.1892, 0.477746)
	pt3dadd(121.592, 109.855, 67.2795, 0.488602)
	pt3dadd(121.72, 109.488, 67.0716, 0.372422)
	pt3dadd(121.856, 109.048, 66.8966, 0.49545)
	pt3dadd(122.137, 108.299, 67.1757, 0.487734)
	pt3dadd(122.237, 108.02, 67.3556, 0.486168)
	pt3dadd(122.356, 107.639, 67.3342, 0.301248)
	pt3dadd(122.414, 107.362, 67.3172, 0.19391)
	pt3dadd(122.443, 107.138, 67.2914, 0.265332)
	pt3dadd(122.503, 106.899, 67.3066, 0.584446)
	pt3dadd(122.592, 106.64, 67.4749, 0.877058)
	pt3dadd(122.696, 106.102, 68.0327, 1.00499)
	pt3dadd(122.67, 105.462, 67.5449, 0.256466)
	pt3dadd(122.728, 105.086, 67.3665, 0.234458)
	pt3dadd(122.805, 104.835, 67.3265, 0.344868)
	pt3dadd(122.885, 104.587, 67.3837, 0.708064)
	pt3dadd(122.847, 104.271, 67.5397, 0.706474)
	pt3dadd(122.684, 103.68, 67.7476, 0.662198)
	pt3dadd(122.632, 103.387, 67.9019, 0.648012)
	pt3dadd(122.642, 103.047, 67.8807, 0.493302)
	pt3dadd(122.635, 102.718, 67.9239, 0.378278)
	pt3dadd(122.615, 102.439, 67.8975, 0.250368)
	pt3dadd(122.598, 102.235, 67.9087, 0.241022)
	pt3dadd(122.599, 102.007, 67.9226, 0.27509)
	pt3dadd(122.603, 101.777, 68.0254, 0.318672)
	pt3dadd(122.632, 101.492, 68.0766, 0.407776)
	pt3dadd(122.692, 101.234, 68.0843, 0.360082)
	pt3dadd(122.752, 100.949, 68.0726, 0.440734)
	pt3dadd(122.831, 100.649, 68.0446, 0.46408)
	pt3dadd(122.915, 100.31, 68.1025, 0.66616)
	pt3dadd(123.001, 99.9729, 68.1837, 0.633276)
	pt3dadd(122.882, 99.5571, 68.0547, 0.660066)
	pt3dadd(122.786, 99.1656, 67.8332, 0.59916)
	pt3dadd(122.734, 98.3046, 68.1543, 0.53991)
	pt3dadd(122.72, 97.8996, 68.2013, 0.56217)
	pt3dadd(122.691, 97.4425, 68.1491, 0.5512)
	pt3dadd(122.644, 97.0757, 68.1988, 0.499826)
	pt3dadd(122.668, 96.5667, 68.083, 0.351698)
	pt3dadd(122.673, 96.2353, 68.002, 0.32476)
	pt3dadd(122.729, 95.9203, 67.9775, 0.454262)
	pt3dadd(122.799, 95.5217, 67.9465, 0.48526)
	pt3dadd(122.864, 95.0061, 67.6657, 0.38292)
	pt3dadd(122.807, 94.7679, 67.5345, 0.189186)
	pt3dadd(122.776, 94.5467, 67.4251, 0.30684)
	pt3dadd(122.781, 94.2967, 67.3607, 0.556816)
	pt3dadd(122.821, 94.0146, 67.4787, 0.79184)
	pt3dadd(122.615, 93.4216, 67.9905, 0.635438)
	pt3dadd(122.543, 92.9254, 67.8815, 0.415116)
	pt3dadd(122.537, 92.6611, 67.8031, 0.362724)
	pt3dadd(122.585, 92.393, 67.8228, 0.473634)
	pt3dadd(122.583, 92.1274, 67.9902, 0.62602)
	pt3dadd(122.606, 91.7827, 68.0549, 0.558484)
	pt3dadd(122.671, 91.3469, 68.1521, 0.671326)
	pt3dadd(122.692, 90.9282, 67.8999, 0.478656)
	pt3dadd(122.743, 90.6815, 67.8131, 0.360848)
	pt3dadd(122.8, 90.4618, 67.7409, 0.36061)
	pt3dadd(122.896, 90.2138, 67.751, 0.354942)
	pt3dadd(123.005, 89.965, 67.7155, 0.360948)
	pt3dadd(123.126, 89.7165, 67.6272, 0.37305)
	pt3dadd(123.268, 89.4644, 67.5435, 0.368122)
	pt3dadd(123.403, 89.1997, 67.5574, 0.590502)
	pt3dadd(123.519, 88.8862, 67.6588, 0.822994)
	pt3dadd(123.661, 88.4497, 67.7568, 0.776794)
	pt3dadd(123.849, 87.7275, 67.8317, 0.48105)
	pt3dadd(124.078, 87.2054, 67.8544, 0.780414)
	pt3dadd(124.196, 86.4664, 67.6954, 0.959242)
	pt3dadd(124.136, 85.9167, 67.8524, 0.38751)
	pt3dadd(124.138, 85.6185, 67.8424, 0.407184)
	pt3dadd(124.155, 85.3484, 67.8807, 0.39317)
	pt3dadd(124.168, 85.0602, 67.9516, 0.48291)
	pt3dadd(124.32, 84.7094, 67.7528, 0.407624)
	pt3dadd(124.449, 84.4937, 67.6548, 0.449144)
	pt3dadd(124.6, 84.2896, 67.5885, 0.373268)
	pt3dadd(124.77, 84.0695, 67.6358, 0.31623)
	pt3dadd(124.964, 83.8082, 67.7316, 0.49275)
	pt3dadd(125.149, 83.5076, 67.7562, 0.761022)
	pt3dadd(125.325, 83.1463, 67.6464, 0.792382)
	pt3dadd(125.372, 82.6593, 67.6566, 0.762868)
	pt3dadd(125.644, 81.6348, 67.8137, 0.267036)
	pt3dadd(125.7, 81.3986, 67.8708, 0.419984)
	pt3dadd(125.781, 81.1845, 67.9362, 0.424)
	pt3dadd(125.915, 80.9748, 67.9711, 0.482282)
	pt3dadd(126.087, 80.7761, 67.8771, 0.567088)
	pt3dadd(126.096, 80.2718, 67.8231, 0.313268)
	pt3dadd(126.126, 80.0562, 67.8355, 0.350838)
	pt3dadd(126.186, 79.8287, 67.8548, 0.372604)
	pt3dadd(126.231, 79.5601, 67.723, 0.396886)
	pt3dadd(126.217, 79.3034, 67.5906, 0.594916)
	pt3dadd(126.363, 78.721, 67.4488, 0.70659)
	pt3dadd(126.335, 78.038, 67.2812, 0.468758)
	pt3dadd(126.371, 77.7251, 67.3184, 0.482646)
	pt3dadd(126.468, 77.4352, 67.3374, 0.71063)
	pt3dadd(126.354, 77.07, 67.334, 0.595144)
	pt3dadd(126.268, 76.6485, 67.3129, 0.773888)
	pt3dadd(126.26, 76.2451, 67.3189, 0.837984)
	pt3dadd(126.264, 75.8386, 67.4285, 0.66108)
	pt3dadd(126.247, 75.527, 67.6169, 0.562396)
	pt3dadd(126.302, 75.0139, 67.2807, 0.554214)
	pt3dadd(126.269, 74.5737, 66.9733, 0.587942)
	pt3dadd(126.268, 74.0032, 67.1657, 0.802506)
	pt3dadd(126.462, 73.572, 66.826, 0.646996)
	pt3dadd(126.535, 73.0516, 66.6366, 0.251216)
	pt3dadd(126.565, 72.9014, 66.5268, 0.116992)
	pt3dadd(126.589, 72.7792, 66.4013, 0.265078)
	pt3dadd(126.85, 72.4074, 66, 0.498458)
	pt3dadd(126.86, 72.0834, 66.2, 0.434322)
	pt3dadd(126.874, 71.9829, 66.4, 0.3885)
	pt3dadd(126.884, 71.6968, 66.4, 0.166344)
	pt3dadd(126.9, 71.6, 66.4, 0.125412)
	pt3dadd(126.917, 71.5114, 66.4, 0.29573)
	pt3dadd(126.936, 71.3264, 66.6, 0.337178)
	pt3dadd(127.317, 70.8213, 66, 0.532506)
	pt3dadd(127.315, 70.5954, 66.2, 0.375674)
	pt3dadd(127.335, 70.5, 66.4, 0.252938)
	pt3dadd(127.399, 70.3963, 66.2, 0.203568)
	pt3dadd(127.352, 70.1216, 66.4, 0.396076)
	pt3dadd(127.33, 69.8749, 66.4, 0.360812)
	pt3dadd(127.328, 69.6, 66.4, 0.441604)
	pt3dadd(127.309, 69.2452, 66.6, 0.531072)
	pt3dadd(127.334, 69.005, 66.8, 0.334268)
	pt3dadd(127.404, 68.8027, 66.8, 0.372508)
	pt3dadd(127.461, 68.484, 66.8, 0.388308)
	pt3dadd(127.505, 68.3, 67, 0.367096)
	pt3dadd(127.52, 68.1118, 67.2, 0.395376)
	pt3dadd(127.583, 67.907, 67.4, 0.454776)
	pt3dadd(127.597, 67.599, 67.6, 0.40781)
	pt3dadd(127.695, 67.4929, 67.4, 0.471334)
	pt3dadd(127.636, 67.0736, 67, 0.334096)
	pt3dadd(127.647, 66.8, 66.8, 0.256866)
	pt3dadd(127.6, 66.494, 67, 0.1)
	pt3dadd(127.718, 66.315, 67, 0.261368)
	pt3dadd(127.701, 66.0977, 67.2, 0.419844)
	pt3dadd(127.572, 65.5, 67.4, 0.242936)
	pt3dadd(127.61, 65.3, 67.4, 0.370338)
	pt3dadd(127.602, 65.1, 67.4, 0.320206)
	pt3dadd(127.559, 64.8, 67.4, 0.473908)
	pt3dadd(127.547, 64.6078, 67.6, 0.49886)
	pt3dadd(127.648, 64.1, 67.6, 0.468666)
	pt3dadd(127.682, 63.7892, 67.6, 0.656962)
	pt3dadd(127.728, 63.4965, 67.6, 0.45623)
	pt3dadd(127.771, 63.3, 67.6, 0.338508)
	pt3dadd(127.837, 63, 67.6, 0.46888)
	pt3dadd(127.847, 62.5779, 67.6, 0.76685)
	pt3dadd(128.054, 62.1538, 67.6, 0.412314)
	pt3dadd(128.028, 62.0413, 67.8, 0.439716)
	pt3dadd(128.066, 61.886, 68, 0.411064)
	pt3dadd(128.152, 61.6565, 68.2, 0.638196)
	pt3dadd(128.275, 61.2909, 68.2, 0.57671)
	pt3dadd(128.255, 61.0082, 68.4, 0.492866)
	pt3dadd(128.209, 60.6964, 68.4, 0.50738)
	pt3dadd(128.148, 60.4, 68.4, 0.472878)
	pt3dadd(128.128, 60.1899, 68.6, 0.475316)
	pt3dadd(128.056, 59.9, 68.6, 0.449028)
	pt3dadd(128.027, 59.5779, 68.6, 0.533636)
	pt3dadd(128.104, 59.3031, 68.6, 0.506236)
	pt3dadd(128.189, 58.9946, 68.6, 0.42936)
	pt3dadd(128.275, 58.7896, 68.6, 0.568344)
	pt3dadd(128.297, 58.4009, 68.8, 0.633184)
	pt3dadd(128.395, 58.0972, 68.6, 0.353492)
	pt3dadd(128.377, 57.9154, 68.6, 0.408756)
	pt3dadd(128.344, 57.7, 68.6, 0.4469)
	pt3dadd(128.291, 57.6018, 68.8, 0.387684)
	pt3dadd(128.266, 57.3457, 68.8, 0.44118)
	pt3dadd(128.143, 57.0205, 68.8, 0.46268)
	pt3dadd(128.037, 56.7823, 68.8, 0.526448)
	pt3dadd(127.926, 56.4892, 69, 0.48939)
	pt3dadd(127.843, 56.3056, 69.2, 0.48866)
	pt3dadd(127.807, 56.0973, 69.4, 0.502612)
	pt3dadd(127.75, 55.8, 69.4, 0.451736)
	pt3dadd(127.745, 55.4789, 69.2, 0.544244)
	pt3dadd(127.784, 55.2, 69, 0.421998)
	pt3dadd(127.792, 55.1, 68.8, 0.382668)
	pt3dadd(127.79, 55, 68.8, 0.303772)
	pt3dadd(127.628, 54.279, 68.6, 0.672374)
	pt3dadd(127.488, 53.8282, 68.8, 0.591872)
	pt3dadd(127.441, 53.3171, 69, 0.735116)
	pt3dadd(127.524, 52.8432, 68.8925, 0.637924)
	pt3dadd(127.597, 52.4851, 68.8509, 0.593678)
	pt3dadd(127.673, 52.1409, 68.9221, 0.619548)
	pt3dadd(127.776, 51.6578, 68.9362, 0.556292)
	pt3dadd(127.945, 50.4022, 68.8229, 1.2544)
	pt3dadd(128.203, 50.1629, 69.0837, 0.734068)
	pt3dadd(128.473, 49.6217, 69.3108, 0.661206)
	pt3dadd(128.502, 49.3697, 69.1842, 0.56495)
	pt3dadd(128.46, 49.1291, 69.087, 0.446328)
	pt3dadd(128.42, 48.8658, 69.0368, 0.409338)
	pt3dadd(128.437, 48.6167, 69.0792, 0.422738)
	pt3dadd(128.444, 47.8845, 68.9049, 0.692858)
	pt3dadd(128.784, 47.4956, 69.2296, 0.911186)
	pt3dadd(128.932, 47.2747, 69.5158, 0.70385)
	pt3dadd(128.977, 46.8882, 69.8389, 0.570152)
	pt3dadd(128.965, 46.3697, 69.6778, 0.21467)
	pt3dadd(128.951, 46.211, 69.7257, 0.308252)
	pt3dadd(128.974, 45.8897, 69.7814, 0.365134)
	pt3dadd(128.957, 45.6941, 69.8093, 0.373538)
	pt3dadd(128.951, 45.2359, 70.0092, 0.580638)
	pt3dadd(129.034, 44.9583, 70.2585, 0.764452)
  }
}
proc shape3d_19() {
  dend[5] {	pt3dadd(128.86, 44.5256, 70.0427, 0.516418)
	pt3dadd(128.504, 43.8406, 70.2422, 0.950808)
	pt3dadd(128.482, 43.2644, 70.1732, 0.427556)
	pt3dadd(128.45, 43.0135, 70.2089, 0.41199)
	pt3dadd(128.394, 42.7408, 70.1832, 0.390472)
	pt3dadd(128.295, 42.4712, 70.1569, 0.208176)
	pt3dadd(128.265, 42.1669, 70.3068, 0.500736)
	pt3dadd(128.254, 41.9381, 70.5033, 0.522812)
	pt3dadd(128.174, 41.299, 70.4232, 0.1)
	pt3dadd(128.15, 41.0703, 70.4031, 0.239548)
	pt3dadd(128.11, 40.8432, 70.3426, 0.32639)
	pt3dadd(128.031, 40.4181, 69.2566, 0.535738)
	pt3dadd(128, 40.1362, 70.0505, 0.761944)
	pt3dadd(128.26, 39.606, 70.0165, 0.522356)
	pt3dadd(128.445, 39.1036, 70.1692, 0.853176)
	pt3dadd(128.554, 38.3914, 69.9969, 1.11726)
	pt3dadd(129.218, 37.714, 70.1799, 0.300414)
	pt3dadd(129.441, 37.5114, 70.2528, 0.352268)
	pt3dadd(129.671, 37.3577, 70.2889, 0.421624)
	pt3dadd(129.838, 37.0514, 70.1853, 0.302482)
	pt3dadd(129.962, 36.807, 70.221, 0.324876)
	pt3dadd(130.039, 36.6608, 70.3212, 0.33247)
	pt3dadd(130.117, 36.4707, 70.418, 0.363634)
	pt3dadd(130.184, 36.2756, 70.5038, 0.412284)
	pt3dadd(130.25, 36.0903, 70.6422, 0.45133)
	pt3dadd(130.355, 35.8927, 70.8146, 0.487852)
	pt3dadd(130.466, 35.7233, 70.9809, 0.560386)
	pt3dadd(130.628, 35.5061, 71.1021, 0.728452)
	pt3dadd(131.101, 34.8993, 70.9583, 0.65286)
	pt3dadd(131.353, 34.6576, 70.8495, 0.501368)
	pt3dadd(131.665, 34.4472, 70.804, 0.461656)
	pt3dadd(131.934, 34.3109, 70.8421, 0.548056)
	pt3dadd(132.19, 34.2019, 70.9676, 0.75638)
	pt3dadd(132.427, 33.9308, 70.7983, 0.543994)
	pt3dadd(132.659, 33.7167, 70.5902, 0.611226)
	pt3dadd(133.229, 33.3138, 70.6075, 0.453268)
	pt3dadd(133.566, 33.1341, 70.7297, 0.580308)
	pt3dadd(133.895, 33.0065, 70.8521, 0.666332)
	pt3dadd(134.326, 32.909, 70.9814, 0.975554)
	pt3dadd(133.802, 32.9072, 71.9273, 0.194136)
	pt3dadd(133.733, 32.9201, 72.1295, 0.310404)
	pt3dadd(133.726, 32.9233, 72.3771, 0.381454)
  }
  dend[6] {pt3dclear()
	pt3dadd(113.106, 121.068, 71.6842, 1.6926)
	pt3dadd(112.345, 120.829, 71.0808, 0.90499)
	pt3dadd(111.722, 120.633, 70.5869, 0.740248)
	pt3dadd(111.134, 120.451, 70.0788, 0.66476)
	pt3dadd(110.609, 120.295, 69.5107, 0.747634)
	pt3dadd(110.213, 120.201, 68.624, 0.8987)
	pt3dadd(109.925, 120.187, 67.9033, 1.0907)
	pt3dadd(109.311, 120.15, 67.0465, 0.885036)
	pt3dadd(108.707, 120.238, 66.2803, 1.25141)
  }
  dend[7] {pt3dclear()
	pt3dadd(108.707, 120.238, 66.2803, 1.25141)
	pt3dadd(108.746, 119.591, 65.7839, 0.398864)
	pt3dadd(108.76, 119.364, 65.6095, 0.359562)
	pt3dadd(108.747, 119.174, 65.4858, 0.352062)
	pt3dadd(108.683, 118.988, 65.3344, 0.320974)
	pt3dadd(108.574, 118.799, 65.1748, 0.425512)
	pt3dadd(108.41, 118.641, 65.0063, 0.429812)
	pt3dadd(108.179, 118.478, 64.7523, 0.62462)
	pt3dadd(107.893, 118.286, 64.4634, 0.753734)
	pt3dadd(107.634, 118.382, 63.8755, 0.75422)
	pt3dadd(107.453, 118.367, 63.4825, 0.492704)
	pt3dadd(107.291, 118.317, 63.0272, 0.595482)
	pt3dadd(107.171, 118.461, 62.4373, 0.60687)
	pt3dadd(107.112, 118.552, 62.1268, 0.62355)
	pt3dadd(107.015, 118.642, 61.6278, 0.500262)
	pt3dadd(106.918, 118.668, 61.1468, 0.541702)
	pt3dadd(106.852, 118.651, 60.8807, 0.554658)
	pt3dadd(106.776, 118.621, 60.3701, 0.57729)
	pt3dadd(106.676, 118.609, 60.0692, 0.647148)
	pt3dadd(106.545, 118.601, 59.6993, 0.75583)
	pt3dadd(106.383, 118.563, 59.1083, 0.71541)
	pt3dadd(106.177, 118.752, 58.4901, 0.524108)
	pt3dadd(106, 118.821, 58.0692, 0.627392)
	pt3dadd(105.778, 118.384, 57.5599, 0.635148)
	pt3dadd(105.718, 118.137, 57.2514, 0.650792)
	pt3dadd(105.749, 117.919, 56.9718, 0.688844)
	pt3dadd(105.894, 117.474, 56.458, 0.940146)
	pt3dadd(105.742, 117.331, 55.6711, 0.55562)
	pt3dadd(105.767, 117.166, 55.2827, 0.510108)
	pt3dadd(105.815, 116.917, 54.9464, 0.561338)
	pt3dadd(105.843, 116.691, 54.6505, 0.648712)
	pt3dadd(105.914, 116.509, 54.3151, 0.808392)
	pt3dadd(106.096, 116.109, 53.9559, 0.555972)
	pt3dadd(106.191, 115.805, 53.6441, 0.540424)
	pt3dadd(106.2, 115.6, 53.4474, 0.443894)
	pt3dadd(106.176, 115.25, 53.1796, 0.334006)
	pt3dadd(106.156, 115.014, 53.0072, 0.376908)
	pt3dadd(106.163, 114.763, 52.8461, 0.425702)
	pt3dadd(106.241, 114.414, 52.718, 0.474488)
	pt3dadd(106.419, 113.995, 52.4468, 0.459478)
	pt3dadd(106.547, 113.689, 52.225, 0.48397)
	pt3dadd(106.634, 113.388, 52.0605, 0.69993)
	pt3dadd(107.054, 113.257, 51.8371, 0.706534)
	pt3dadd(107.514, 113.171, 51.2253, 0.581908)
	pt3dadd(107.759, 113.029, 50.8585, 0.343386)
	pt3dadd(108.108, 112.513, 50.4155, 0.495676)
	pt3dadd(108.247, 112.344, 50.1789, 0.541302)
	pt3dadd(108.368, 112.203, 49.9146, 0.58015)
	pt3dadd(108.489, 112.222, 49.5208, 0.592988)
	pt3dadd(108.726, 111.653, 49.2271, 0.306832)
	pt3dadd(108.808, 111.419, 49.0718, 0.29245)
	pt3dadd(108.882, 111.19, 48.8845, 0.414816)
	pt3dadd(108.968, 110.931, 48.6738, 0.577964)
	pt3dadd(109.172, 110.563, 48.3271, 0.964136)
	pt3dadd(109.216, 110.055, 47.9948, 1.39431)
	pt3dadd(109.696, 109.882, 47.1556, 0.776296)
	pt3dadd(109.924, 109.835, 46.72, 0.748104)
	pt3dadd(110.535, 109.534, 46.5264, 0.578854)
	pt3dadd(110.896, 109.291, 46.4559, 0.44833)
	pt3dadd(111.217, 109.111, 46.3683, 0.365072)
	pt3dadd(111.578, 108.955, 46.2302, 0.570318)
	pt3dadd(111.985, 108.837, 45.8996, 0.695264)
	pt3dadd(112.252, 108.765, 45.5697, 0.726476)
	pt3dadd(112.572, 108.49, 45.2575, 0.718138)
	pt3dadd(112.792, 108.362, 44.9068, 0.685982)
	pt3dadd(113.032, 108.011, 44.6719, 0.661696)
	pt3dadd(113.351, 107.741, 44.4238, 0.504532)
	pt3dadd(113.608, 107.812, 43.8784, 0.59033)
	pt3dadd(113.822, 107.917, 43.4008, 0.41277)
	pt3dadd(114.4, 107.163, 42.9944, 0.1)
	pt3dadd(114.494, 106.977, 42.8193, 0.305134)
	pt3dadd(114.53, 106.809, 42.6272, 0.332114)
	pt3dadd(114.586, 106.624, 42.4396, 0.34301)
	pt3dadd(114.7, 106.427, 42.3011, 0.276104)
	pt3dadd(114.888, 106.223, 42.0928, 0.663998)
	pt3dadd(115.076, 106.124, 41.695, 1.12853)
	pt3dadd(115.255, 106.289, 40.7558, 1.30281)
	pt3dadd(115.738, 105.751, 39.573, 0.448834)
	pt3dadd(115.79, 105.551, 39.1361, 0.59552)
	pt3dadd(115.786, 105.474, 38.7922, 0.596588)
	pt3dadd(115.742, 105.405, 38.4216, 0.635682)
	pt3dadd(115.738, 105.388, 38.054, 0.621098)
	pt3dadd(115.77, 105.34, 37.6577, 0.62049)
	pt3dadd(115.878, 105.153, 37.2377, 0.695508)
	pt3dadd(115.976, 105.041, 36.8467, 0.811318)
	pt3dadd(116.451, 104.643, 36.1997, 0.84422)
	pt3dadd(116.762, 104.393, 36.0052, 0.41089)
	pt3dadd(117.037, 104.269, 35.5307, 0.887302)
	pt3dadd(117.222, 104.186, 35.094, 0.973254)
	pt3dadd(117.46, 104.171, 34.6282, 0.834026)
	pt3dadd(117.807, 104.244, 33.9888, 0.870784)
	pt3dadd(118.415, 103.977, 33.5023, 0.555728)
	pt3dadd(118.765, 103.931, 33.0877, 0.710692)
	pt3dadd(119.175, 103.844, 32.8464, 0.816674)
	pt3dadd(119.411, 104.081, 32.1903, 0.617776)
	pt3dadd(119.89, 104.348, 31.6384, 0.428858)
	pt3dadd(120.05, 104.47, 31.3795, 0.64256)
	pt3dadd(120.291, 104.628, 30.7668, 0.68086)
	pt3dadd(120.427, 104.695, 30.3411, 0.625712)
	pt3dadd(120.52, 104.761, 29.9965, 0.601602)
	pt3dadd(120.585, 104.863, 29.7123, 0.572854)
	pt3dadd(120.644, 104.964, 29.4164, 0.619524)
	pt3dadd(120.728, 105.223, 28.8967, 0.658078)
	pt3dadd(120.764, 105.486, 28.353, 0.747236)
	pt3dadd(120.914, 105.717, 27.8035, 0.574724)
	pt3dadd(121.141, 105.834, 27.4675, 0.557174)
	pt3dadd(121.277, 105.917, 27.1966, 0.620224)
	pt3dadd(121.461, 106.078, 26.649, 0.618756)
	pt3dadd(121.577, 106.219, 26.2009, 0.63016)
	pt3dadd(121.698, 106.367, 25.7141, 0.710448)
	pt3dadd(121.89, 106.647, 25.2663, 0.584672)
	pt3dadd(122.124, 106.916, 24.9204, 0.49563)
	pt3dadd(122.276, 107.059, 24.7823, 0.503068)
	pt3dadd(122.522, 107.207, 24.6764, 0.526538)
	pt3dadd(122.734, 107.359, 24.4478, 0.882276)
	pt3dadd(123.123, 107.622, 23.5903, 0.506164)
	pt3dadd(123.197, 107.756, 23.3048, 0.552016)
	pt3dadd(123.225, 107.887, 23.0565, 0.682484)
	pt3dadd(123.276, 108.26, 22.5415, 0.582174)
	pt3dadd(123.494, 108.587, 22.1771, 0.929116)
	pt3dadd(123.891, 108.672, 21.4641, 0.575908)
	pt3dadd(124.011, 108.704, 21.1565, 0.717212)
	pt3dadd(124.196, 108.906, 20.5935, 0.676148)
	pt3dadd(124.274, 109.124, 20.3436, 0.604364)
	pt3dadd(124.331, 109.539, 19.9297, 0.644478)
	pt3dadd(124.364, 110.002, 19.5008, 0.766124)
	pt3dadd(124.45, 110.225, 19.0937, 0.882698)
	pt3dadd(124.61, 110.568, 18.5119, 0.90869)
	pt3dadd(124.842, 110.996, 17.8837, 0.83336)
	pt3dadd(125.026, 111.132, 17.5124, 0.66847)
	pt3dadd(125.186, 111.234, 17.203, 0.677896)
	pt3dadd(125.241, 111.259, 16.7728, 0.713838)
	pt3dadd(125.305, 111.279, 16.3538, 0.683702)
	pt3dadd(125.419, 111.359, 15.6976, 0.755812)
	pt3dadd(125.504, 111.417, 15.0159, 1.03423)
	pt3dadd(125.525, 111.178, 14.5331, 0.678524)
	pt3dadd(125.526, 111.049, 13.9201, 0.625228)
	pt3dadd(125.51, 111.022, 13.5997, 0.570892)
	pt3dadd(125.499, 110.994, 13.3003, 0.584504)
	pt3dadd(125.396, 110.731, 12.9919, 0.569576)
	pt3dadd(125.317, 110.507, 12.4627, 0.556358)
	pt3dadd(125.245, 110.373, 12.0607, 0.816086)
	pt3dadd(125.459, 110.179, 11.368, 0.74131)
	pt3dadd(125.819, 109.953, 11.0273, 0.457048)
	pt3dadd(126.114, 109.59, 10.2304, 0.655704)
	pt3dadd(126.196, 109.453, 9.86395, 0.59213)
	pt3dadd(126.225, 109.378, 9.47097, 0.654724)
	pt3dadd(126.404, 109.765, 8.86295, 0.550344)
	pt3dadd(126.475, 109.895, 8.58626, 0.691548)
  }
}
proc shape3d_20() {
  dend[7] {	pt3dadd(126.503, 110.126, 8.08032, 0.626894)
	pt3dadd(126.935, 109.867, 7.62335, 0.715746)
	pt3dadd(127.4, 109.757, 7.20736, 0.817442)
	pt3dadd(128.018, 109.649, 6.90905, 0.772964)
  }
  dend[8] {pt3dclear()
	pt3dadd(108.707, 120.238, 66.2803, 1.25141)
	pt3dadd(107.851, 120.471, 65.7996, 1.00665)
	pt3dadd(107.21, 120.535, 65.4653, 0.468458)
	pt3dadd(106.899, 120.588, 65.3066, 0.483138)
	pt3dadd(106.667, 120.646, 65.2118, 0.424874)
	pt3dadd(106.409, 120.727, 65.0993, 0.540244)
	pt3dadd(106.174, 120.825, 64.9331, 0.736872)
	pt3dadd(105.642, 120.918, 64.5199, 0.644702)
  }
  dend[9] {pt3dclear()
	pt3dadd(105.642, 120.918, 64.5199, 0.644702)
	pt3dadd(105.33, 120.835, 64.3213, 0.323218)
	pt3dadd(105.14, 120.784, 64.2, 0.255382)
	pt3dadd(104.917, 120.75, 64.0517, 0.406974)
	pt3dadd(104.697, 120.731, 63.9413, 0.501576)
	pt3dadd(104.391, 120.703, 63.7914, 0.80222)
	pt3dadd(104.163, 120.692, 63.3967, 0.98495)
	pt3dadd(103.686, 120.785, 62.8415, 0.56022)
	pt3dadd(103.499, 120.524, 62.5941, 0.1)
	pt3dadd(103.477, 120.292, 62.2756, 0.348552)
	pt3dadd(103.112, 120.146, 61.9553, 0.1)
	pt3dadd(102.513, 120.349, 61.9928, 0.505442)
	pt3dadd(102.077, 120.401, 61.9189, 0.487916)
	pt3dadd(101.436, 120.442, 61.6623, 0.599338)
	pt3dadd(100.987, 120.513, 61.3792, 0.513464)
	pt3dadd(100.674, 120.556, 61.173, 0.431858)
	pt3dadd(100.441, 120.577, 61.057, 0.324108)
	pt3dadd(100.192, 120.557, 60.9695, 0.306704)
	pt3dadd(99.9416, 120.476, 60.8348, 0.32967)
	pt3dadd(99.7193, 120.376, 60.6589, 0.473832)
	pt3dadd(99.497, 120.249, 60.456, 0.670624)
	pt3dadd(99.265, 120.003, 60.3988, 0.739772)
	pt3dadd(98.8447, 120.213, 60.15, 0.714648)
	pt3dadd(98.2837, 120.223, 60.5005, 0.428094)
	pt3dadd(96.8959, 119.941, 60.1349, 0.33424)
	pt3dadd(96.7066, 119.912, 60.0854, 0.378134)
	pt3dadd(96.524, 119.86, 60.0467, 0.33294)
	pt3dadd(96.263, 119.791, 60.0529, 0.271914)
	pt3dadd(95.9892, 119.701, 60.0319, 0.420098)
	pt3dadd(95.6493, 119.629, 60.0225, 0.468612)
	pt3dadd(95.3477, 119.557, 60.0484, 0.673406)
	pt3dadd(95.0095, 119.276, 60.1954, 1.00794)
	pt3dadd(94.3249, 118.972, 60.6413, 0.277)
	pt3dadd(93.5976, 118.687, 60.7012, 0.147522)
	pt3dadd(93.3508, 118.59, 60.6972, 0.20281)
	pt3dadd(93.1336, 118.531, 60.6406, 0.105752)
	pt3dadd(92.9222, 118.511, 60.6691, 0.31619)
	pt3dadd(92.6876, 118.538, 60.7232, 0.395092)
	pt3dadd(92.4568, 118.591, 60.8923, 0.548342)
	pt3dadd(92.2286, 118.665, 61.0757, 0.701278)
	pt3dadd(91.8324, 118.631, 60.8955, 0.410026)
	pt3dadd(91.4714, 118.677, 60.823, 0.698)
	pt3dadd(91.0435, 118.457, 61.2076, 0.62323)
	pt3dadd(90.6089, 118.108, 61.2777, 0.460892)
	pt3dadd(90.2956, 117.874, 61.216, 0.49405)
	pt3dadd(89.894, 117.626, 61.4358, 0.404152)
	pt3dadd(89.0284, 117.026, 61.5299, 0.18229)
	pt3dadd(88.8893, 116.914, 61.5393, 0.349562)
	pt3dadd(88.7132, 116.77, 61.5294, 0.107278)
	pt3dadd(88.5402, 116.622, 61.4827, 0.277558)
	pt3dadd(88.3549, 116.469, 61.4657, 0.374916)
	pt3dadd(88.1756, 116.32, 61.4851, 0.373994)
	pt3dadd(87.9919, 116.154, 61.5609, 0.375624)
	pt3dadd(87.8012, 115.991, 61.6926, 0.531168)
	pt3dadd(87.5634, 115.867, 61.8318, 0.784012)
	pt3dadd(86.6684, 115.187, 62.2996, 0.68901)
	pt3dadd(86.3721, 114.929, 62.4301, 0.523824)
	pt3dadd(85.9078, 114.436, 62.4259, 0.425152)
	pt3dadd(85.7421, 114.217, 62.4241, 0.280742)
	pt3dadd(85.5957, 114.052, 62.4498, 0.32353)
	pt3dadd(85.4561, 113.871, 62.4495, 0.393438)
	pt3dadd(85.2834, 113.682, 62.4425, 0.538252)
	pt3dadd(85.0899, 113.48, 62.4554, 0.937022)
	pt3dadd(84.3971, 113.101, 62.6093, 0.525776)
	pt3dadd(84.0386, 112.987, 62.6933, 0.489928)
	pt3dadd(83.7062, 112.834, 62.7948, 0.601754)
	pt3dadd(83.4441, 112.646, 63.0401, 0.414376)
	pt3dadd(83.1553, 112.506, 63.28, 0.345776)
	pt3dadd(82.6843, 112.358, 63.1736, 0.280154)
	pt3dadd(82.1898, 112.254, 63.08, 0.493254)
	pt3dadd(81.555, 112.194, 62.8777, 0.45329)
	pt3dadd(80.9283, 111.879, 63.1526, 0.66396)
	pt3dadd(80.2459, 111.451, 62.8346, 0.22809)
	pt3dadd(79.7008, 111.099, 62.4, 0.349646)
	pt3dadd(79.347, 110.875, 62.4, 0.756202)
	pt3dadd(78.8, 110.628, 62.6, 0.529664)
	pt3dadd(78.4, 110.7, 62.6, 0.179832)
	pt3dadd(78.2, 110.674, 62.6, 0.332664)
	pt3dadd(77.7931, 110.517, 62.6, 0.43966)
	pt3dadd(77.3947, 110.315, 62.6, 0.555898)
	pt3dadd(77.0887, 110.227, 62.6, 0.459206)
	pt3dadd(76.7, 110.154, 62.6, 0.47599)
	pt3dadd(76.349, 110.062, 62.6, 0.469488)
	pt3dadd(75.2462, 109.391, 62.4, 0.501568)
	pt3dadd(75.2345, 109.29, 62, 0.609188)
	pt3dadd(75.2017, 108.999, 61.8, 0.636334)
	pt3dadd(74.9461, 108.866, 61.8, 0.43327)
	pt3dadd(74.5935, 108.716, 62.2, 0.580198)
	pt3dadd(74.4664, 108.265, 62.2, 0.755336)
	pt3dadd(74.1941, 107.91, 62.4, 0.403606)
	pt3dadd(74.0696, 107.746, 62.4, 0.226452)
	pt3dadd(73.9808, 107.726, 62.6, 0.249906)
	pt3dadd(73.9004, 107.699, 62.8, 0.343484)
	pt3dadd(73.7042, 107.586, 63, 0.387728)
	pt3dadd(73.5976, 107.403, 62.8, 0.216082)
	pt3dadd(73.4577, 107.173, 62.4, 0.33646)
	pt3dadd(73.1903, 106.908, 62.2, 0.646588)
	pt3dadd(72.8, 106.83, 62, 0.339264)
	pt3dadd(72.7346, 106.803, 62, 0.336144)
	pt3dadd(71.3174, 106.479, 61.8, 0.53527)
	pt3dadd(71.2055, 106.463, 61.8, 0.47519)
	pt3dadd(70.9784, 106.36, 61.8, 0.463904)
	pt3dadd(70.786, 106.207, 61.8, 0.385352)
	pt3dadd(70.5983, 106.003, 61.8, 0.409454)
	pt3dadd(70.452, 105.853, 61.8, 0.388468)
	pt3dadd(70.308, 105.685, 61.8, 0.373332)
	pt3dadd(70.1748, 105.55, 61.6, 0.534548)
	pt3dadd(69.8678, 105.239, 61.8, 0.871642)
	pt3dadd(69.3405, 105.299, 61.4, 0.455578)
	pt3dadd(68.8857, 105.117, 61, 0.56334)
	pt3dadd(68.4, 105.055, 60.4, 0.449868)
	pt3dadd(68.3, 105.026, 60.6, 0.381942)
	pt3dadd(68.1, 105.056, 60.4, 0.41626)
	pt3dadd(67.7074, 105.004, 59.4, 0.671244)
	pt3dadd(67.1713, 104.944, 59, 0.310446)
	pt3dadd(66.8858, 104.834, 58.6, 0.545)
	pt3dadd(66.2461, 104.759, 58, 0.36301)
	pt3dadd(66, 104.747, 57.6, 0.453056)
	pt3dadd(65.7026, 104.765, 57.2, 0.70021)
	pt3dadd(65.2904, 104.413, 57, 0.690646)
	pt3dadd(64.5159, 104.238, 57, 0.423898)
	pt3dadd(64.2742, 104.203, 56.8, 0.403322)
	pt3dadd(63.6736, 103.893, 56.4, 0.253814)
	pt3dadd(63.5209, 103.665, 56.2, 0.301822)
	pt3dadd(62.3728, 103.237, 54.4, 0.365484)
	pt3dadd(62.0031, 102.998, 54.2, 0.228176)
	pt3dadd(61.7967, 102.802, 54, 0.45776)
	pt3dadd(61.5, 102.895, 53.2, 0.56137)
	pt3dadd(61.1, 102.92, 52.8, 0.625412)
	pt3dadd(60.6, 102.878, 52.8, 0.55088)
	pt3dadd(60.4657, 102.943, 52.6, 0.59859)
	pt3dadd(60.2164, 102.94, 52.8, 0.419264)
	pt3dadd(60.1, 102.969, 52.6, 0.455788)
	pt3dadd(59.8961, 102.907, 52.6, 0.406382)
	pt3dadd(59.7536, 102.771, 52.2, 0.555186)
	pt3dadd(59.4, 102.736, 52, 0.178352)
	pt3dadd(59.0937, 102.668, 51.4, 0.255996)
	pt3dadd(58.8535, 102.75, 51.6, 0.517232)
	pt3dadd(58.4351, 102.785, 52, 0.66914)
	pt3dadd(57.9806, 102.523, 51, 0.867426)
	pt3dadd(57.5019, 102.481, 50.4, 0.43291)
	pt3dadd(57.1531, 102.489, 50.2, 0.488636)
	pt3dadd(56.8541, 102.554, 50, 0.689768)
	pt3dadd(56.4008, 102.698, 50.2, 0.627142)
	pt3dadd(55.9, 102.616, 50, 0.37568)
	pt3dadd(55.5508, 102.574, 49.8, 0.890322)
	pt3dadd(55.0643, 102.739, 48.8, 0.534614)
  }
  dend[10] {pt3dclear()
	pt3dadd(105.642, 120.918, 64.5199, 0.644702)
	pt3dadd(105.335, 121.617, 64.5697, 0.50557)
	pt3dadd(105.165, 121.83, 64.6884, 0.633738)
	pt3dadd(104.777, 122.402, 64.4743, 0.613802)
	pt3dadd(104.594, 122.64, 64.3452, 0.63199)
	pt3dadd(104.359, 122.873, 64.3861, 0.560102)
	pt3dadd(104.053, 123.077, 64.3919, 0.674272)
	pt3dadd(103.594, 123.415, 64.3894, 0.556328)
	pt3dadd(103.378, 123.587, 64.5113, 0.54216)
	pt3dadd(103.15, 123.704, 64.6395, 0.720424)
	pt3dadd(102.934, 124.047, 64.5681, 0.602132)
	pt3dadd(102.49, 124.448, 64.5431, 0.436076)
	pt3dadd(102.252, 124.677, 64.5489, 0.354094)
	pt3dadd(102.119, 124.799, 64.5592, 0.284528)
	pt3dadd(101.984, 124.932, 64.6045, 0.32019)
	pt3dadd(101.819, 125.075, 64.6652, 0.399578)
	pt3dadd(101.645, 125.22, 64.7223, 0.379138)
	pt3dadd(101.473, 125.413, 64.7729, 0.385894)
	pt3dadd(101.309, 125.596, 64.7957, 0.38947)
	pt3dadd(101.095, 125.809, 64.8163, 0.558872)
	pt3dadd(100.856, 126.038, 64.7995, 0.50411)
	pt3dadd(100.499, 126.305, 64.8495, 0.3953)
	pt3dadd(100.249, 126.51, 64.854, 0.433108)
	pt3dadd(99.9144, 126.755, 64.8631, 0.401696)
	pt3dadd(99.7177, 126.91, 64.8746, 0.347042)
	pt3dadd(99.5128, 127.088, 64.9065, 0.340804)
	pt3dadd(99.3055, 127.255, 64.9507, 0.393124)
	pt3dadd(99.1073, 127.432, 64.9621, 0.5163)
	pt3dadd(98.9216, 127.656, 64.9196, 0.616496)
	pt3dadd(98.5335, 128.145, 64.8928, 0.736122)
	pt3dadd(98.0083, 128.97, 64.8651, 0.446932)
	pt3dadd(97.8364, 129.311, 64.8702, 0.388436)
	pt3dadd(97.6682, 129.601, 64.8539, 0.376766)
	pt3dadd(97.5233, 129.822, 64.9441, 0.295232)
	pt3dadd(97.3783, 130.049, 65.019, 0.328598)
	pt3dadd(97.2479, 130.296, 65.0877, 0.391804)
	pt3dadd(97.1316, 130.578, 65.0414, 0.475356)
	pt3dadd(97.0019, 130.866, 65.0091, 0.494338)
	pt3dadd(96.8666, 131.17, 65.1334, 0.501802)
	pt3dadd(96.659, 131.492, 65.3458, 0.558332)
	pt3dadd(96.3599, 131.914, 65.3464, 0.939494)
  }
}
proc shape3d_21() {
  dend[10] {	pt3dadd(96.1765, 132.521, 65.2141, 0.476216)
	pt3dadd(96.0116, 133.276, 65.4014, 0.445598)
	pt3dadd(95.733, 133.787, 65.2435, 0.44587)
	pt3dadd(95.5905, 134.18, 64.9562, 0.710468)
	pt3dadd(95.3371, 134.653, 65.245, 0.61959)
	pt3dadd(95.0849, 135.092, 65.4253, 0.823294)
	pt3dadd(94.7502, 135.601, 65.424, 1.01755)
	pt3dadd(94.384, 136.029, 65.469, 1.08586)
	pt3dadd(93.9906, 136.677, 66.4, 0.463746)
	pt3dadd(93.9393, 137.019, 65.4, 0.375228)
	pt3dadd(93.4661, 138.072, 66, 0.625226)
	pt3dadd(93.3304, 139.184, 65.6, 0.35015)
	pt3dadd(93.2337, 139.511, 65.6, 0.385784)
	pt3dadd(93.1139, 139.619, 65.6, 0.281962)
	pt3dadd(92.8021, 140.002, 65.6, 0.5466)
	pt3dadd(92.5679, 140.313, 65.4, 0.72712)
	pt3dadd(92.4792, 140.688, 65.6, 0.34012)
	pt3dadd(92.3965, 140.897, 65.6, 0.309516)
	pt3dadd(92.3867, 141, 65.4, 0.336494)
	pt3dadd(92.3373, 141.238, 65.2, 0.592308)
	pt3dadd(92.2244, 141.397, 65.4, 0.592336)
	pt3dadd(92.0661, 141.867, 65.6, 0.47489)
	pt3dadd(92.0635, 142.115, 65.6, 0.716648)
	pt3dadd(91.92, 142.342, 65.4, 0.529916)
	pt3dadd(91.793, 142.496, 65.2, 0.37158)
	pt3dadd(91.6791, 142.688, 65.2, 0.311162)
	pt3dadd(91.5755, 142.893, 65.2, 0.360482)
	pt3dadd(91.458, 143.158, 65.2, 0.387158)
	pt3dadd(91.3011, 143.5, 65.2, 0.575722)
	pt3dadd(91.3995, 143.701, 65.4, 0.557612)
	pt3dadd(91.3558, 144.141, 65.2, 0.471384)
	pt3dadd(91.2172, 144.679, 64.4, 0.563156)
	pt3dadd(91.4282, 144.891, 64.6, 0.707766)
	pt3dadd(91.3238, 145.211, 64.8, 0.490348)
	pt3dadd(91.2533, 145.536, 64.8, 0.589866)
	pt3dadd(91.3269, 145.896, 64.8, 0.452652)
	pt3dadd(91.231, 146.706, 64.8, 0.343062)
	pt3dadd(91.2134, 146.8, 64.8, 0.344422)
	pt3dadd(91.205, 147, 64.8, 0.327134)
	pt3dadd(91.1564, 147.26, 64.8, 0.41077)
	pt3dadd(91.0069, 147.504, 64.8, 0.399574)
	pt3dadd(90.9569, 147.557, 64.8, 0.400046)
	pt3dadd(90.8065, 147.804, 64.8, 0.387982)
	pt3dadd(90.7926, 147.896, 64.6, 0.35037)
	pt3dadd(90.7011, 148.101, 64.6, 0.349982)
	pt3dadd(90.5701, 148.258, 64.8, 0.431036)
	pt3dadd(90.4396, 148.591, 64.6, 0.483594)
	pt3dadd(90.3526, 148.8, 64.6, 0.441772)
	pt3dadd(90.2946, 148.9, 64.8, 0.374978)
	pt3dadd(90.2437, 149.118, 64.8, 0.406262)
	pt3dadd(90.1864, 149.394, 64.8, 0.440188)
	pt3dadd(90.127, 149.7, 64.8, 0.391198)
	pt3dadd(90.1781, 149.8, 64.6, 0.438874)
	pt3dadd(90.1279, 149.9, 64.8, 0.409606)
	pt3dadd(90.1112, 150.107, 64.8, 0.34927)
	pt3dadd(90.0819, 150.3, 64.8, 0.324784)
	pt3dadd(90.0747, 150.49, 65, 0.54615)
	pt3dadd(89.9986, 150.799, 64.8, 0.643896)
	pt3dadd(89.9345, 151.239, 64.6, 0.52426)
	pt3dadd(90.0609, 151.76, 64.6, 0.48656)
	pt3dadd(90.1315, 151.985, 64.6, 0.520736)
	pt3dadd(90.2601, 152.425, 64.4, 0.721796)
	pt3dadd(90.2654, 152.7, 64.4, 0.431206)
	pt3dadd(90.306, 152.999, 64.8, 0.596984)
	pt3dadd(90.2438, 153.34, 64.6, 0.673062)
	pt3dadd(90.2154, 153.506, 64.4, 0.479032)
	pt3dadd(90.2682, 153.621, 64.2, 0.465922)
	pt3dadd(90.31, 153.693, 64, 0.31832)
	pt3dadd(90.3772, 154.004, 63.8, 0.736574)
	pt3dadd(90.1007, 154.4, 63.8, 0.707248)
	pt3dadd(90.1367, 154.73, 63.8, 0.514846)
	pt3dadd(90.2134, 155.093, 63.8, 0.420292)
	pt3dadd(90.2086, 155.214, 63.6, 0.418162)
	pt3dadd(90.1949, 155.557, 63.6, 0.53482)
	pt3dadd(90.1456, 155.8, 63.6, 0.456246)
	pt3dadd(90.0883, 156.104, 63.4, 0.661666)
	pt3dadd(90.1423, 156.5, 63.6, 0.861702)
	pt3dadd(89.7917, 156.949, 63.2, 0.627748)
	pt3dadd(89.5019, 157.402, 63.2, 0.757414)
	pt3dadd(89.5605, 157.814, 63, 0.48146)
	pt3dadd(89.4582, 157.964, 62.8, 0.524878)
	pt3dadd(89.4121, 158.207, 62.6, 0.720752)
	pt3dadd(89.1207, 158.609, 62, 0.581162)
	pt3dadd(88.9823, 159.039, 61.8, 0.25028)
	pt3dadd(88.5916, 159.396, 60.6, 0.657704)
	pt3dadd(88.5548, 159.5, 60.6, 0.679634)
	pt3dadd(88.4752, 159.7, 61, 0.646156)
	pt3dadd(88.4865, 160, 60.8, 0.562164)
	pt3dadd(88.3829, 160.19, 60.8, 0.42343)
	pt3dadd(88.2781, 160.387, 60.8, 0.32468)
	pt3dadd(88.2078, 160.501, 60.6, 0.383072)
	pt3dadd(88.1164, 160.71, 60.6, 0.404794)
	pt3dadd(88.0105, 160.906, 60.6, 0.418496)
	pt3dadd(87.9103, 161.106, 60.6, 0.354484)
	pt3dadd(87.8029, 161.3, 60.6, 0.40583)
	pt3dadd(87.7779, 161.642, 60.6, 0.621024)
	pt3dadd(87.622, 162.018, 60.6, 0.686052)
	pt3dadd(87.4711, 162.386, 60.4, 0.525882)
	pt3dadd(87.4032, 162.602, 60.2, 0.432624)
	pt3dadd(87.343, 162.8, 59.8, 0.450478)
	pt3dadd(87.2484, 163.1, 59.8, 0.472694)
	pt3dadd(87.0889, 163.293, 59.6, 0.440588)
	pt3dadd(86.8163, 163.545, 59.6, 0.487154)
	pt3dadd(86.5961, 163.8, 59.4, 0.741928)
	pt3dadd(86.4405, 164.117, 59.4, 0.434926)
	pt3dadd(86.3842, 164.34, 59.2, 0.475748)
	pt3dadd(86.2582, 164.7, 59.2, 0.48156)
	pt3dadd(86.149, 165, 59.2, 0.492408)
	pt3dadd(86.0621, 165.18, 59, 0.309676)
	pt3dadd(86.0111, 165.291, 58.8, 0.222178)
	pt3dadd(86.0061, 165.415, 58.6, 0.152044)
	pt3dadd(85.8043, 165.604, 58.6, 0.53395)
	pt3dadd(85.5, 165.755, 58.4, 0.686798)
	pt3dadd(85.4657, 165.973, 58.4, 0.393268)
	pt3dadd(85.4968, 166.088, 58.6, 0.332244)
	pt3dadd(85.4574, 166.217, 58.8, 0.296394)
	pt3dadd(85.3085, 166.328, 59, 0.353752)
	pt3dadd(85.2076, 166.405, 59.2, 0.454614)
	pt3dadd(84.9209, 166.625, 59.2, 0.556944)
	pt3dadd(84.8287, 166.917, 59.2, 0.297954)
	pt3dadd(84.8298, 167.022, 59.4, 0.320072)
	pt3dadd(84.7129, 167.203, 59.4, 0.380408)
	pt3dadd(84.5356, 167.443, 59.6, 0.368756)
	pt3dadd(84.2942, 167.595, 59.8, 0.51994)
	pt3dadd(84.0538, 167.772, 60, 0.572422)
	pt3dadd(83.9032, 168.003, 60.2, 0.556188)
	pt3dadd(83.6682, 168.341, 60.4, 0.75627)
	pt3dadd(83.3439, 168.495, 60.6, 0.645972)
	pt3dadd(83.1051, 168.617, 60.8, 0.64407)
	pt3dadd(82.825, 168.83, 60.8, 0.542552)
	pt3dadd(82.6555, 169.079, 60.6, 0.526162)
	pt3dadd(82.4205, 169.228, 60.8, 0.393026)
	pt3dadd(82.1968, 169.398, 60.8, 0.408864)
	pt3dadd(82.102, 169.601, 60.6, 0.407292)
	pt3dadd(81.864, 169.787, 60.8, 0.460656)
	pt3dadd(81.6257, 170.021, 60.8, 0.442106)
	pt3dadd(80.6985, 170.596, 61, 0.562174)
	pt3dadd(80.4039, 170.703, 61.2, 0.653408)
	pt3dadd(80.1389, 170.85, 61.4, 0.46322)
	pt3dadd(79.9711, 170.879, 61.6, 0.4004)
	pt3dadd(79.8105, 171.009, 61.6, 0.275556)
	pt3dadd(79.7116, 171.116, 61.6, 0.290508)
	pt3dadd(79.6014, 171.202, 61.8, 0.378514)
	pt3dadd(79.3949, 171.396, 61.8, 0.498316)
	pt3dadd(79.1806, 171.574, 61.8, 0.371498)
	pt3dadd(79.0177, 171.713, 62, 0.288706)
	pt3dadd(78.9064, 171.903, 61.8, 0.143774)
	pt3dadd(78.2136, 172.015, 61.6, 0.554482)
	pt3dadd(78.0827, 172.031, 61.6, 0.473826)
	pt3dadd(78.0177, 172.027, 61.8, 0.416084)
	pt3dadd(77.8976, 172.096, 61.6, 0.34568)
	pt3dadd(77.764, 172.17, 61.6, 0.214262)
	pt3dadd(77.5869, 172.187, 61.8, 0.238854)
	pt3dadd(77.4077, 172.304, 61.8, 0.405602)
	pt3dadd(77.1931, 172.487, 61.8, 0.392716)
	pt3dadd(76.9781, 172.663, 61.8, 0.296948)
	pt3dadd(76.8399, 172.772, 62, 0.304332)
	pt3dadd(76.6913, 172.997, 62, 0.38984)
	pt3dadd(76.6041, 173.1, 62.2, 0.391126)
	pt3dadd(76.4846, 173.29, 62.2, 0.39538)
	pt3dadd(76.3052, 173.503, 62.2, 0.450346)
	pt3dadd(76.0998, 173.7, 62.2, 0.357488)
	pt3dadd(75.8984, 173.997, 62.4, 0.441072)
	pt3dadd(75.7059, 174.204, 62.4, 0.453966)
	pt3dadd(75.503, 174.406, 62.4, 0.43417)
	pt3dadd(75.2886, 174.581, 62.4, 0.403914)
	pt3dadd(75.1064, 174.712, 62.2, 0.38373)
	pt3dadd(75.001, 174.804, 62.4, 0.390268)
	pt3dadd(74.6649, 174.961, 62.4, 0.62505)
	pt3dadd(74.4208, 175.125, 62.6, 0.64146)
	pt3dadd(73.9118, 175.541, 62.6, 1.16902)
	pt3dadd(73.793, 176.1, 62.4, 0.52105)
	pt3dadd(73.7074, 176.3, 62.6, 0.38433)
	pt3dadd(73.6275, 176.52, 62.6, 0.399126)
	pt3dadd(73.5759, 176.568, 62.8, 0.402602)
	pt3dadd(73.4378, 176.831, 62.8, 0.402948)
	pt3dadd(73.2902, 176.976, 62.8, 0.457834)
	pt3dadd(73.0915, 177.197, 63, 0.405662)
	pt3dadd(72.9859, 177.392, 63, 0.39695)
	pt3dadd(72.8293, 177.624, 63, 0.334264)
	pt3dadd(72.7848, 177.691, 62.8, 0.35163)
	pt3dadd(72.6835, 177.895, 62.8, 0.381684)
	pt3dadd(72.6101, 178.099, 63, 0.380038)
	pt3dadd(72.5861, 178.292, 63.2, 0.416442)
	pt3dadd(72.5592, 178.5, 63.2, 0.433594)
	pt3dadd(72.496, 178.6, 63.4, 0.373916)
	pt3dadd(72.4633, 178.8, 63.4, 0.41014)
	pt3dadd(72.3711, 178.979, 63.6, 0.40285)
	pt3dadd(72.2359, 179.2, 63.6, 0.454338)
	pt3dadd(72.168, 179.287, 63.8, 0.443354)
	pt3dadd(72.0777, 179.391, 64, 0.454998)
	pt3dadd(71.7986, 179.598, 64.2, 0.24792)
	pt3dadd(71.4825, 179.761, 64.4, 0.442228)
	pt3dadd(71.3211, 179.945, 64.4, 0.554332)
	pt3dadd(71.0202, 180.212, 64.6, 0.646178)
	pt3dadd(70.7837, 180.488, 64.8, 0.611568)
	pt3dadd(70.494, 180.58, 65, 0.37392)
	pt3dadd(70.3196, 180.637, 65, 0.335446)
	pt3dadd(70.1361, 180.742, 65.2, 0.41979)
	pt3dadd(69.9349, 181, 65.4, 0.651016)
  }
}
proc shape3d_22() {
  dend[10] {	pt3dadd(69.918, 181.3, 65.6, 0.311698)
	pt3dadd(69.8994, 181.448, 65.6, 0.244546)
	pt3dadd(69.8072, 181.6, 66.2, 0.374862)
	pt3dadd(69.8018, 181.7, 66.2, 0.39125)
	pt3dadd(69.6708, 181.961, 66.4, 0.398074)
	pt3dadd(69.6054, 182.103, 66.6, 0.360896)
	pt3dadd(69.494, 182.297, 66.6, 0.42111)
	pt3dadd(69.366, 182.572, 67, 0.665666)
	pt3dadd(69.1922, 182.921, 67.2, 0.798328)
	pt3dadd(69.121, 183.284, 67.6, 0.565802)
	pt3dadd(68.8936, 183.329, 68.2, 0.458266)
	pt3dadd(68.7586, 183.585, 68.2, 0.497126)
	pt3dadd(68.5852, 183.792, 68.2, 0.386856)
	pt3dadd(68.4341, 183.925, 68.2, 0.373772)
	pt3dadd(68.2955, 184.092, 68.2, 0.422052)
	pt3dadd(68.1816, 184.172, 68, 0.400544)
	pt3dadd(67.9986, 184.198, 67.8, 0.335218)
	pt3dadd(67.8011, 184.303, 67.8, 0.499322)
	pt3dadd(67.514, 184.43, 67.8, 0.521232)
  }
  dend[11] {pt3dclear()
	pt3dadd(115.745, 125.091, 80.1781, 0.992468)
	pt3dadd(108.09, 122.73, 83.594, 0.992468)
	pt3dadd(107.005, 122.46, 83.4046, 1.01819)
	pt3dadd(106.096, 122.242, 83.2294, 1.15453)
	pt3dadd(105.132, 121.833, 82.9536, 1.09902)
	pt3dadd(104.322, 121.341, 82.8701, 0.913938)
	pt3dadd(103.483, 120.737, 82.8201, 0.994772)
	pt3dadd(102.569, 120.266, 82.5029, 0.977326)
	pt3dadd(101.26, 119.566, 82.2231, 0.837448)
  }
  dend[12] {pt3dclear()
	pt3dadd(101.26, 119.566, 82.2231, 0.837448)
	pt3dadd(100.56, 119.13, 82.5908, 0.937116)
	pt3dadd(99.7964, 118.653, 82.9923, 0.613938)
  }
  dend[13] {pt3dclear()
	pt3dadd(99.7964, 118.653, 82.9923, 0.613938)
	pt3dadd(99.136, 118.356, 83.7923, 0.812112)
	pt3dadd(98.5809, 118.191, 84.084, 0.488874)
	pt3dadd(97.7471, 118.374, 83.8883, 0.567954)
	pt3dadd(97.337, 118.486, 83.8441, 0.74421)
	pt3dadd(96.8871, 118.672, 83.9623, 0.873268)
	pt3dadd(96.3649, 118.939, 84.1227, 0.477722)
	pt3dadd(95.9697, 119.146, 84.25, 0.528926)
	pt3dadd(95.5465, 119.332, 84.4267, 0.580642)
	pt3dadd(95.0741, 119.535, 84.559, 0.527108)
	pt3dadd(94.5346, 119.66, 84.9626, 0.698734)
	pt3dadd(94.019, 119.78, 85.3483, 0.60098)
  }
  dend[14] {pt3dclear()
	pt3dadd(94.019, 119.78, 85.3483, 0.60098)
	pt3dadd(93.205, 120.507, 85.7722, 0.528058)
	pt3dadd(92.8651, 120.849, 86.0077, 0.50023)
	pt3dadd(92.6063, 121.148, 86.2006, 0.504058)
	pt3dadd(92.3199, 121.649, 86.159, 0.543634)
	pt3dadd(92.1562, 121.981, 86.2036, 0.647988)
	pt3dadd(92.0219, 122.316, 86.3276, 0.770278)
	pt3dadd(91.9023, 122.676, 86.495, 1.01463)
	pt3dadd(91.5421, 123.245, 87.0555, 0.694856)
	pt3dadd(91.1406, 123.982, 86.9712, 0.77434)
	pt3dadd(90.9336, 124.418, 87.0623, 0.501668)
	pt3dadd(90.7546, 124.875, 87.0902, 0.492574)
	pt3dadd(90.7284, 125.393, 87.165, 0.587432)
	pt3dadd(90.5989, 125.869, 87.1657, 1.0403)
	pt3dadd(90.3421, 126.976, 87.5456, 0.54412)
	pt3dadd(90.2853, 127.325, 87.6581, 0.534684)
	pt3dadd(90.1994, 127.628, 87.7211, 0.641886)
	pt3dadd(90.0239, 127.949, 87.7676, 0.507254)
	pt3dadd(89.7291, 128.399, 87.7749, 0.39828)
	pt3dadd(89.5021, 128.725, 87.7887, 0.44779)
	pt3dadd(89.2292, 129.033, 87.7217, 0.511344)
	pt3dadd(88.9295, 129.347, 87.5632, 0.679498)
	pt3dadd(88.5544, 129.702, 87.0686, 0.824798)
	pt3dadd(88.4185, 130.097, 86.69, 0.968964)
	pt3dadd(87.8866, 130.895, 86.4652, 0.564826)
	pt3dadd(87.6622, 131.234, 86.4026, 0.395066)
	pt3dadd(87.4591, 131.519, 86.3368, 0.376722)
	pt3dadd(87.2266, 131.815, 86.2297, 0.430376)
	pt3dadd(87, 132.124, 86.1248, 0.352876)
	pt3dadd(86.8271, 132.406, 85.8569, 0.680388)
	pt3dadd(86.6745, 132.66, 85.4213, 0.796486)
	pt3dadd(86.1575, 133.176, 85.4608, 0.47133)
	pt3dadd(85.9041, 133.521, 85.4899, 0.401928)
	pt3dadd(85.7282, 133.811, 85.4528, 0.444716)
	pt3dadd(85.5665, 134.093, 85.3811, 0.458418)
	pt3dadd(85.4213, 134.373, 85.3093, 0.532876)
	pt3dadd(85.2821, 134.655, 85.2523, 0.59483)
	pt3dadd(85.167, 134.995, 85.1493, 0.641062)
	pt3dadd(85.1355, 135.235, 84.8482, 0.764094)
	pt3dadd(85.1282, 135.419, 84.4666, 0.478872)
	pt3dadd(85.0205, 135.621, 84.0962, 0.446194)
	pt3dadd(84.4972, 136.163, 84.2158, 0.459424)
	pt3dadd(84.1801, 136.536, 84.07, 0.636596)
	pt3dadd(83.9805, 136.844, 84.0273, 0.578278)
	pt3dadd(83.8236, 137.16, 84.0124, 0.476276)
	pt3dadd(83.6685, 137.467, 83.9872, 0.422756)
	pt3dadd(83.5195, 137.736, 84.022, 0.449192)
	pt3dadd(83.2989, 137.987, 83.9778, 0.705572)
	pt3dadd(83.022, 138.261, 83.8354, 0.89611)
	pt3dadd(82.4532, 138.839, 83.9561, 0.572218)
	pt3dadd(82.2156, 139.124, 84.1135, 0.706346)
	pt3dadd(81.8207, 139.418, 83.8593, 0.678368)
	pt3dadd(81.3915, 139.828, 83.7438, 0.40052)
	pt3dadd(81.2066, 140.054, 83.8261, 0.307228)
	pt3dadd(81.0135, 140.257, 83.8939, 0.347302)
	pt3dadd(80.7242, 140.472, 84.0459, 0.337032)
	pt3dadd(80.5407, 140.625, 84.0786, 0.332734)
	pt3dadd(80.3536, 140.79, 84.1186, 0.27613)
	pt3dadd(80.1427, 140.976, 84.228, 0.358408)
	pt3dadd(79.965, 141.137, 84.3249, 0.409072)
	pt3dadd(79.7815, 141.315, 84.4238, 0.440578)
	pt3dadd(79.5884, 141.519, 84.5559, 0.502294)
	pt3dadd(79.3471, 141.692, 84.6657, 0.675924)
	pt3dadd(79.0582, 141.936, 84.5347, 0.688064)
	pt3dadd(78.7052, 142.179, 84.5887, 0.534416)
	pt3dadd(78.1879, 142.685, 84.678, 0.501778)
	pt3dadd(78.0646, 143.003, 84.8387, 0.402392)
	pt3dadd(77.7065, 143.213, 84.8282, 0.564472)
	pt3dadd(77.373, 143.432, 84.7368, 0.354704)
	pt3dadd(77.0739, 143.595, 84.7662, 0.323596)
	pt3dadd(76.7554, 143.805, 84.8363, 0.463258)
	pt3dadd(76.4779, 144.064, 84.934, 0.557354)
	pt3dadd(76.1917, 144.347, 84.9785, 0.714876)
	pt3dadd(75.7823, 144.71, 84.9062, 0.724702)
	pt3dadd(74.8956, 145.111, 85.2432, 0.478164)
	pt3dadd(74.4673, 145.323, 85.4003, 0.442444)
	pt3dadd(74.0896, 145.48, 85.634, 0.522112)
	pt3dadd(73.5536, 145.838, 85.5587, 0.507882)
	pt3dadd(73.2293, 146.034, 85.6132, 0.386438)
	pt3dadd(72.9445, 146.197, 85.6752, 0.467524)
	pt3dadd(72.6752, 146.369, 85.6917, 0.538738)
	pt3dadd(72.3209, 146.577, 85.8083, 0.443242)
	pt3dadd(72.0061, 146.584, 85.9085, 0.780198)
	pt3dadd(71.2785, 147.243, 85.7924, 0.319662)
	pt3dadd(71.082, 147.404, 85.83, 0.2276)
	pt3dadd(70.9042, 147.556, 85.8887, 0.296078)
	pt3dadd(70.7158, 147.731, 85.9241, 0.356474)
	pt3dadd(70.5182, 147.921, 85.9247, 0.534674)
	pt3dadd(70.3363, 148.134, 85.8373, 0.59349)
	pt3dadd(70.0786, 148.336, 85.8806, 0.54864)
	pt3dadd(69.9351, 148.712, 85.6381, 0.629346)
	pt3dadd(69.8099, 149.206, 85.6211, 0.282082)
	pt3dadd(69.7438, 149.436, 85.6183, 0.252342)
	pt3dadd(69.6752, 149.632, 85.6636, 0.30079)
	pt3dadd(69.6193, 149.826, 85.7549, 0.373688)
	pt3dadd(69.6098, 150.057, 85.8332, 0.767532)
	pt3dadd(69.4388, 150.544, 85.6419, 0.73389)
	pt3dadd(69.0254, 150.827, 85.8073, 0.370784)
	pt3dadd(68.806, 151.076, 85.8199, 0.535592)
	pt3dadd(68.4945, 151.233, 85.7502, 0.513846)
	pt3dadd(68.2285, 151.39, 85.688, 0.465176)
	pt3dadd(67.9527, 151.544, 85.705, 0.427102)
	pt3dadd(67.6521, 151.704, 85.7712, 0.518016)
	pt3dadd(67.3637, 151.899, 85.7644, 0.671796)
	pt3dadd(67.0745, 152.168, 85.6637, 0.597362)
	pt3dadd(66.8007, 152.396, 85.77, 0.461022)
	pt3dadd(66.5676, 152.579, 85.8832, 0.381524)
	pt3dadd(66.3661, 152.727, 85.9947, 0.4141)
	pt3dadd(66.1447, 152.864, 86.0825, 0.602608)
	pt3dadd(65.934, 153.123, 85.9073, 0.645892)
	pt3dadd(65.6827, 153.592, 85.5352, 0.587794)
	pt3dadd(65.5011, 153.81, 85.4035, 0.606772)
	pt3dadd(65.0318, 154.172, 85.4123, 0.961754)
	pt3dadd(64.494, 154.562, 85.4259, 0.575102)
	pt3dadd(64.0689, 154.796, 85.4234, 0.416162)
	pt3dadd(63.8764, 154.94, 85.4878, 0.490438)
	pt3dadd(63.7044, 155.126, 85.5536, 0.526714)
	pt3dadd(63.2103, 155.406, 85.8625, 0.287048)
	pt3dadd(63.0303, 155.441, 85.9063, 0.24151)
	pt3dadd(62.9068, 155.472, 85.9331, 0.286236)
	pt3dadd(62.6474, 155.596, 85.9826, 0.291752)
	pt3dadd(62.4689, 155.666, 86.0483, 0.490184)
	pt3dadd(61.9892, 155.714, 86.1363, 1.06117)
	pt3dadd(61.5251, 156.106, 86.4958, 1.04532)
	pt3dadd(61.1336, 156.674, 86.8798, 0.420686)
	pt3dadd(60.9971, 156.821, 87, 0.486894)
	pt3dadd(60.8359, 156.985, 87.1487, 0.856492)
	pt3dadd(60.5496, 157.414, 87.4318, 1.02509)
	pt3dadd(60.1323, 157.928, 87.7269, 0.703154)
	pt3dadd(59.673, 158.214, 87.976, 0.505414)
	pt3dadd(59.526, 158.395, 88.1419, 0.442532)
	pt3dadd(59.3774, 158.586, 88.317, 0.439286)
	pt3dadd(59.2655, 158.772, 88.4723, 0.538224)
	pt3dadd(59.0635, 159.22, 88.6706, 0.521248)
	pt3dadd(58.9857, 159.468, 88.7439, 0.457948)
	pt3dadd(58.9036, 159.709, 88.7116, 0.47021)
	pt3dadd(58.7836, 159.947, 88.6248, 0.475332)
	pt3dadd(58.5874, 160.232, 88.7539, 0.29615)
	pt3dadd(58.4608, 160.425, 88.8414, 0.399834)
	pt3dadd(58.3664, 160.606, 88.8986, 0.497506)
	pt3dadd(58.2652, 160.837, 88.956, 0.74601)
	pt3dadd(57.9329, 161.362, 89.2922, 0.869866)
	pt3dadd(57.6889, 161.861, 89.6421, 0.889258)
	pt3dadd(57.2477, 162.149, 89.5642, 0.59482)
	pt3dadd(56.9915, 162.365, 89.6606, 0.36223)
	pt3dadd(56.81, 162.574, 89.7459, 0.312058)
	pt3dadd(56.6681, 162.762, 89.817, 0.328936)
	pt3dadd(56.5291, 162.939, 89.8833, 0.444052)
	pt3dadd(56.4058, 163.139, 89.9641, 0.58377)
	pt3dadd(56.1888, 163.621, 90.0807, 0.70935)
	pt3dadd(55.9055, 163.62, 90.6616, 0.467854)
	pt3dadd(55.7417, 163.718, 90.8097, 0.299502)
	pt3dadd(55.5787, 163.874, 90.9876, 0.340528)
	pt3dadd(55.4812, 164.033, 91.1971, 0.524026)
	pt3dadd(55.4173, 164.163, 91.4282, 0.741508)
	pt3dadd(55.0846, 164.24, 91.8403, 0.425184)
	pt3dadd(54.8969, 164.307, 92.0496, 0.597826)
  }
}
proc shape3d_23() {
  dend[14] {	pt3dadd(54.5797, 164.584, 92.3829, 0.880346)
	pt3dadd(54.5833, 164.761, 92.8661, 1.00106)
	pt3dadd(54.4282, 164.889, 93.6283, 0.828344)
	pt3dadd(54.0192, 165.18, 94.2283, 0.63663)
	pt3dadd(53.9184, 165.493, 94.5433, 0.586024)
	pt3dadd(53.8957, 165.909, 94.6684, 0.4549)
	pt3dadd(53.9141, 166.271, 94.932, 0.45206)
	pt3dadd(53.8951, 166.527, 95.1467, 0.64969)
	pt3dadd(53.8156, 166.748, 95.3921, 0.682974)
	pt3dadd(53.6629, 166.92, 95.6774, 0.62687)
	pt3dadd(53.5391, 167.075, 95.9657, 0.6235)
	pt3dadd(53.3907, 167.354, 96.2093, 0.392472)
	pt3dadd(53.2947, 167.53, 96.385, 0.343416)
	pt3dadd(53.2004, 167.695, 96.5709, 0.407018)
	pt3dadd(53.0945, 167.852, 96.7759, 0.46055)
	pt3dadd(52.9905, 167.98, 96.9503, 0.425794)
	pt3dadd(52.88, 168.11, 97.117, 0.497274)
	pt3dadd(52.7884, 168.278, 97.2994, 0.628506)
	pt3dadd(52.5685, 168.773, 97.4045, 0.612316)
	pt3dadd(52.3338, 169.258, 97.5158, 0.682524)
	pt3dadd(52.1835, 169.758, 97.7431, 0.8409)
	pt3dadd(51.6699, 170.193, 97.8707, 0.644222)
	pt3dadd(51.2354, 170.459, 98.0606, 0.564842)
	pt3dadd(50.7107, 170.785, 98.2954, 0.641926)
	pt3dadd(50.2166, 171.086, 98.4793, 0.747784)
	pt3dadd(49.8397, 171.509, 98.3816, 0.679994)
	pt3dadd(49.3968, 171.923, 98.5392, 0.637764)
	pt3dadd(48.9252, 172.1, 98.7892, 0.880394)
	pt3dadd(48.2748, 172.518, 98.7049, 0.869278)
	pt3dadd(47.691, 172.827, 99.0332, 0.26665)
	pt3dadd(47.4861, 172.996, 99.1774, 0.353446)
	pt3dadd(47.344, 173.137, 99.3017, 0.659412)
	pt3dadd(47.0119, 173.285, 99.0002, 0.540358)
	pt3dadd(46.6188, 173.418, 98.881, 0.459916)
	pt3dadd(46.1599, 173.568, 98.9833, 0.6664)
	pt3dadd(45.6217, 173.709, 99.2935, 0.642004)
	pt3dadd(45.1362, 174.082, 99.4562, 0.486462)
	pt3dadd(44.9101, 174.222, 99.4487, 0.5456)
	pt3dadd(44.4905, 174.392, 99.3786, 0.352816)
	pt3dadd(44.3023, 174.534, 99.361, 0.336944)
	pt3dadd(44.127, 174.73, 99.3715, 0.493748)
	pt3dadd(43.6272, 174.944, 99.4128, 0.657608)
	pt3dadd(43.3998, 175.196, 99.4915, 0.19824)
	pt3dadd(43.2282, 175.344, 99.5535, 0.289564)
	pt3dadd(43.0196, 175.537, 99.5885, 0.25755)
	pt3dadd(42.8918, 175.627, 99.5306, 0.227526)
	pt3dadd(42.7946, 175.69, 99.4195, 0.1)
	pt3dadd(42.6753, 175.795, 99.3254, 0.383892)
	pt3dadd(42.569, 175.884, 99.1533, 0.731448)
	pt3dadd(42.158, 176.317, 99.0951, 0.622202)
	pt3dadd(41.7149, 176.748, 99.1095, 0.513988)
	pt3dadd(41.55, 176.946, 99.1634, 0.600812)
	pt3dadd(41.1218, 176.962, 99.0852, 0.1)
	pt3dadd(41.0028, 176.984, 99.0884, 0.165986)
	pt3dadd(40.8806, 177.031, 99.0359, 0.336102)
	pt3dadd(40.5824, 177.115, 98.8786, 0.470036)
	pt3dadd(40.3836, 177.183, 98.7549, 0.417746)
	pt3dadd(40.2062, 177.235, 98.6034, 0.482252)
	pt3dadd(40.0254, 177.258, 98.4358, 0.57676)
	pt3dadd(39.5561, 177.312, 98.1058, 0.817382)
	pt3dadd(39.1882, 177.505, 98.2011, 0.953224)
	pt3dadd(38.4853, 178.007, 97.9665, 0.671848)
	pt3dadd(38.1251, 178.347, 97.8093, 0.404384)
	pt3dadd(37.9803, 178.535, 97.6437, 0.420932)
	pt3dadd(37.832, 178.708, 97.4885, 0.516784)
	pt3dadd(37.6542, 178.866, 97.3322, 0.76251)
	pt3dadd(37.2497, 179.403, 97.1159, 0.927688)
	pt3dadd(36.5646, 179.912, 97.0121, 0.867668)
	pt3dadd(36.0808, 180.275, 96.8841, 0.633156)
	pt3dadd(35.7994, 180.488, 96.8935, 0.523842)
	pt3dadd(35.5151, 180.616, 96.8994, 0.610788)
	pt3dadd(35.3612, 180.866, 96.717, 0.674582)
	pt3dadd(35.2747, 181.109, 96.4713, 0.843042)
	pt3dadd(34.9463, 181.524, 96.3891, 0.52536)
	pt3dadd(34.8258, 181.773, 96.3544, 0.438698)
	pt3dadd(34.7058, 182.023, 96.372, 0.391714)
	pt3dadd(34.5678, 182.252, 96.3262, 0.477426)
	pt3dadd(34.3537, 182.394, 96.226, 0.828106)
	pt3dadd(34.1126, 182.945, 96.434, 0.554148)
	pt3dadd(33.9841, 183.179, 96.5373, 0.633762)
	pt3dadd(33.8162, 183.456, 96.4446, 0.800086)
	pt3dadd(33.5111, 183.759, 96.4479, 0.958778)
	pt3dadd(33.4472, 184.207, 96.2529, 0.90752)
	pt3dadd(33.3024, 184.869, 96.1903, 0.72182)
	pt3dadd(33.0183, 185.205, 96.231, 0.612376)
	pt3dadd(32.7259, 185.797, 95.9908, 0.372386)
	pt3dadd(32.6362, 185.986, 95.8672, 0.421336)
	pt3dadd(32.514, 186.187, 95.8075, 0.446422)
	pt3dadd(32.3577, 186.372, 95.8902, 0.487348)
	pt3dadd(32.1706, 186.547, 96.0469, 0.699892)
	pt3dadd(31.9532, 187.112, 95.8264, 0.828514)
	pt3dadd(31.5257, 187.651, 95.8405, 1.14104)
	pt3dadd(31.7524, 188.157, 95.5632, 0.637926)
	pt3dadd(31.7929, 188.442, 95.3841, 0.270428)
	pt3dadd(31.8167, 188.65, 95.2273, 0.39331)
	pt3dadd(31.8402, 188.843, 95.0611, 0.53357)
	pt3dadd(31.6544, 188.933, 94.788, 0.28852)
	pt3dadd(31.482, 188.892, 94.6623, 0.120626)
	pt3dadd(31.2748, 188.838, 94.5474, 0.554106)
	pt3dadd(31.1137, 188.799, 94.4258, 0.64659)
  }
  dend[15] {pt3dclear()
	pt3dadd(94.019, 119.78, 85.3483, 0.60098)
	pt3dadd(92.9358, 119.48, 85.841, 0.662448)
	pt3dadd(92.5398, 119.365, 86.098, 0.589024)
	pt3dadd(92.1444, 119.247, 86.3947, 0.821088)
	pt3dadd(91.7277, 119.045, 86.7136, 1.178)
	pt3dadd(91.4827, 118.857, 87.5508, 0.793254)
	pt3dadd(91.1313, 118.745, 88.1514, 0.67621)
	pt3dadd(90.8264, 118.671, 88.6183, 0.66572)
	pt3dadd(90.5517, 118.555, 89.176, 0.91115)
	pt3dadd(90.3343, 118.566, 89.6472, 0.803574)
	pt3dadd(90.0364, 118.421, 90.0733, 0.569302)
	pt3dadd(89.7201, 118.123, 90.35, 0.342758)
	pt3dadd(88.9964, 117.84, 90.6779, 0.668512)
	pt3dadd(88.5594, 117.532, 91.1366, 0.639652)
	pt3dadd(88.0036, 117.285, 91.7986, 0.8119)
	pt3dadd(87.7264, 117.106, 92.3242, 0.80224)
	pt3dadd(87.5129, 116.951, 92.7781, 0.882778)
	pt3dadd(87.044, 116.608, 93.4703, 0.682222)
	pt3dadd(86.8074, 116.251, 93.7853, 1.07679)
	pt3dadd(86.3592, 115.741, 94.9671, 1.11532)
	pt3dadd(86.2003, 115.621, 95.6667, 0.786286)
	pt3dadd(86.1563, 115.485, 96.4108, 0.704602)
	pt3dadd(85.9621, 115.133, 96.7946, 0.70268)
	pt3dadd(85.7709, 114.766, 97.325, 0.969528)
	pt3dadd(85.7653, 114.509, 97.9434, 0.874252)
	pt3dadd(85.8166, 114.126, 98.49, 0.740468)
	pt3dadd(85.8864, 113.834, 98.7322, 0.811056)
	pt3dadd(85.948, 113.456, 99.0896, 0.993682)
	pt3dadd(85.8886, 112.995, 99.6107, 0.788802)
	pt3dadd(85.9049, 112.631, 99.8685, 0.483102)
	pt3dadd(85.8833, 112.421, 100.048, 0.507056)
	pt3dadd(85.75, 112.069, 100.378, 0.576194)
	pt3dadd(85.5403, 111.764, 100.738, 0.845092)
	pt3dadd(85.1413, 111.189, 101.669, 1.07686)
  }
  dend[16] {pt3dclear()
	pt3dadd(85.1413, 111.189, 101.669, 1.07686)
	pt3dadd(85.0625, 110.545, 101.533, 0.665752)
	pt3dadd(85.0178, 110.18, 101.457, 0.461616)
	pt3dadd(85.0438, 109.836, 101.432, 0.561812)
	pt3dadd(84.8596, 109.482, 101.509, 0.779094)
	pt3dadd(84.6091, 108.877, 101.73, 0.536324)
	pt3dadd(84.3935, 108.575, 102.227, 0.482254)
	pt3dadd(84.2975, 108.428, 102.448, 0.433794)
	pt3dadd(84.2031, 108.257, 102.618, 0.39834)
	pt3dadd(84.1023, 108.04, 102.759, 0.357982)
	pt3dadd(84.0387, 107.854, 102.82, 0.418962)
	pt3dadd(83.9714, 107.662, 102.902, 0.316648)
	pt3dadd(83.9004, 107.46, 102.982, 0.19514)
	pt3dadd(83.8, 107.236, 103.029, 0.294198)
	pt3dadd(83.6802, 106.999, 103.066, 0.357154)
	pt3dadd(83.5584, 106.774, 103.104, 0.525538)
	pt3dadd(83.4439, 106.527, 103.236, 0.704152)
	pt3dadd(82.9925, 106.102, 103.731, 0.571884)
	pt3dadd(82.8033, 105.982, 103.936, 0.61557)
	pt3dadd(82.5755, 105.861, 104.114, 0.776872)
	pt3dadd(82.3576, 105.689, 104.386, 0.712272)
	pt3dadd(82.0022, 105.154, 104.528, 0.4186)
	pt3dadd(81.8962, 104.925, 104.603, 0.50137)
	pt3dadd(81.8202, 104.668, 104.672, 0.628956)
	pt3dadd(81.7074, 104.206, 105.076, 0.565924)
	pt3dadd(81.6353, 104.055, 105.31, 0.527194)
	pt3dadd(81.5435, 103.928, 105.534, 0.472908)
	pt3dadd(81.4702, 103.815, 105.745, 0.566278)
	pt3dadd(81.3893, 103.518, 106.174, 0.539514)
	pt3dadd(81.3737, 103.198, 106.201, 0.533424)
	pt3dadd(81.3742, 102.881, 106.249, 0.824134)
	pt3dadd(81.5223, 102.246, 106.434, 1.08517)
	pt3dadd(81.8317, 101.785, 106.964, 0.834262)
	pt3dadd(81.4686, 101.762, 107.919, 1.05317)
	pt3dadd(81.2462, 101.073, 107.988, 0.1)
	pt3dadd(81.159, 100.803, 108.015, 0.408858)
	pt3dadd(81.1722, 100.509, 108.059, 0.584856)
	pt3dadd(81.309, 100.038, 108.262, 0.761104)
	pt3dadd(81.4172, 99.5682, 108.646, 1.07888)
	pt3dadd(81.3773, 99.0573, 109.152, 1.19739)
	pt3dadd(81.2626, 99.1453, 109.807, 0.781336)
	pt3dadd(81.1083, 99.1651, 110.202, 0.727644)
	pt3dadd(80.8399, 99.0511, 110.543, 0.460512)
	pt3dadd(80.4951, 98.7716, 110.913, 1.04471)
	pt3dadd(79.938, 98.1844, 110.956, 0.441112)
	pt3dadd(79.8094, 97.9042, 111.041, 0.85626)
	pt3dadd(79.4132, 97.431, 111.144, 1.15779)
	pt3dadd(79.0744, 96.5817, 111.276, 0.639134)
	pt3dadd(78.9035, 96.0033, 110.998, 0.597404)
	pt3dadd(78.868, 95.5343, 111.133, 0.416938)
	pt3dadd(78.8665, 95.2586, 111.174, 0.447626)
	pt3dadd(78.854, 94.9904, 111.225, 0.58356)
	pt3dadd(78.8351, 94.6924, 111.324, 0.843084)
	pt3dadd(78.8276, 94.0358, 111.763, 1.16742)
	pt3dadd(78.2626, 93.6454, 111.747, 0.612192)
	pt3dadd(77.9771, 93.4475, 111.808, 0.537926)
	pt3dadd(77.725, 93.2649, 111.835, 0.893326)
	pt3dadd(77.6293, 92.5842, 112.339, 0.796968)
	pt3dadd(77.7739, 92.2015, 112.809, 0.774494)
	pt3dadd(77.5683, 91.6684, 113.027, 0.406096)
	pt3dadd(77.4685, 91.4832, 113.045, 0.3284)
	pt3dadd(77.3857, 91.2721, 113.062, 0.364384)
	pt3dadd(77.3039, 91.063, 113.122, 0.51598)
	pt3dadd(77.2286, 90.8202, 113.269, 0.570674)
	pt3dadd(77.1354, 90.6009, 113.466, 0.566062)
	pt3dadd(77.0788, 90.4027, 113.672, 0.537364)
  }
}
proc shape3d_24() {
  dend[16] {	pt3dadd(77.2182, 90.2924, 114.076, 0.563854)
  }
  dend[17] {pt3dclear()
	pt3dadd(85.1413, 111.189, 101.669, 1.07686)
	pt3dadd(85.0744, 111.274, 102.283, 1.0328)
	pt3dadd(84.7937, 111.256, 103.227, 0.681914)
	pt3dadd(84.5789, 111.205, 103.593, 0.701292)
	pt3dadd(84.5183, 110.869, 103.951, 0.620286)
	pt3dadd(84.5654, 110.538, 103.888, 0.485356)
	pt3dadd(84.6933, 110.285, 103.639, 0.38905)
	pt3dadd(84.7711, 110.238, 103.407, 0.388924)
	pt3dadd(84.9789, 110.277, 103.215, 0.42831)
  }
  dend[18] {pt3dclear()
	pt3dadd(99.7964, 118.653, 82.9923, 0.613938)
	pt3dadd(98.8928, 117.606, 82.8177, 0.865512)
	pt3dadd(98.6185, 117.179, 82.8242, 0.644258)
	pt3dadd(98.3679, 116.764, 82.8346, 0.770724)
	pt3dadd(98.1463, 116.338, 82.8536, 0.80778)
	pt3dadd(97.9269, 115.671, 83.0022, 0.882782)
	pt3dadd(97.6964, 115.271, 83.1935, 1.15036)
	pt3dadd(97.2621, 114.416, 83.4725, 1.1294)
	pt3dadd(96.5712, 113.488, 83.4567, 0.793314)
	pt3dadd(96.1749, 112.96, 83.5975, 1.82192)
  }
  dend[19] {pt3dclear()
	pt3dadd(96.1749, 112.96, 83.5975, 1.82192)
	pt3dadd(95.4427, 112.101, 83.8908, 0.589088)
	pt3dadd(95.0744, 111.535, 84.0533, 0.668892)
	pt3dadd(94.7797, 111.102, 84.6, 0.797092)
	pt3dadd(94.285, 110.324, 84.873, 1.17689)
	pt3dadd(93.6741, 109.272, 85.8724, 1.26162)
	pt3dadd(93.3904, 108.839, 86.2394, 0.951496)
	pt3dadd(93.0607, 108.403, 86.5621, 1.32844)
	pt3dadd(92.2229, 107.879, 87.1843, 1.1004)
	pt3dadd(91.2042, 107.614, 87.6387, 1.0267)
	pt3dadd(90.5378, 106.959, 88.2334, 0.817932)
	pt3dadd(90.1609, 106.497, 88.6719, 0.915828)
	pt3dadd(89.8511, 106.067, 89.0771, 1.28768)
	pt3dadd(89.4675, 105.572, 89.4851, 1.33945)
	pt3dadd(89.0283, 105.393, 90.0696, 0.659012)
	pt3dadd(88.5862, 105.305, 90.5379, 0.548706)
	pt3dadd(88.0098, 105.448, 90.9184, 0.789884)
	pt3dadd(87.4325, 105.438, 91.2795, 1.13402)
	pt3dadd(86.8691, 105.1, 92.241, 0.745792)
	pt3dadd(86.47, 104.783, 92.6534, 0.584748)
	pt3dadd(85.941, 104.47, 93.0061, 0.900802)
	pt3dadd(85.4448, 104.128, 93.4581, 1.49735)
	pt3dadd(84.932, 103.422, 94.1955, 1.06564)
  }
  dend[20] {pt3dclear()
	pt3dadd(84.932, 103.422, 94.1955, 1.06564)
	pt3dadd(84.9061, 102.065, 94.5414, 0.470642)
	pt3dadd(84.9345, 101.506, 94.7101, 0.492722)
	pt3dadd(84.9636, 101.2, 94.841, 0.545116)
	pt3dadd(84.9991, 100.827, 95.0003, 0.64492)
	pt3dadd(84.9021, 100.465, 95.2685, 0.610564)
	pt3dadd(84.838, 100.212, 95.4582, 0.526234)
	pt3dadd(84.7893, 99.9737, 95.6531, 0.57693)
	pt3dadd(84.7463, 99.7245, 95.8549, 0.619682)
	pt3dadd(84.679, 99.4497, 96.0711, 0.696516)
	pt3dadd(84.6097, 99.1748, 96.3009, 0.70975)
	pt3dadd(84.5162, 98.9031, 96.5824, 0.717684)
	pt3dadd(84.41, 98.6352, 96.8813, 0.643528)
	pt3dadd(84.3313, 98.3531, 97.2002, 0.663544)
	pt3dadd(84.2738, 98.0964, 97.6474, 0.716464)
	pt3dadd(83.9675, 97.4426, 97.7261, 0.417166)
	pt3dadd(83.839, 97.173, 97.8095, 0.496332)
	pt3dadd(83.7181, 96.9127, 97.9498, 0.545708)
	pt3dadd(83.6089, 96.5608, 98.2829, 0.51087)
	pt3dadd(83.533, 96.3729, 98.4526, 0.484098)
	pt3dadd(83.4492, 96.1853, 98.5935, 0.447842)
	pt3dadd(83.3578, 96.0041, 98.735, 0.498432)
	pt3dadd(83.2647, 95.8213, 98.892, 0.588944)
	pt3dadd(83.0671, 95.4185, 99.2175, 0.648656)
	pt3dadd(82.7855, 95.2213, 99.4447, 0.460082)
	pt3dadd(82.6123, 95.0539, 99.6051, 0.519762)
	pt3dadd(82.5001, 94.8466, 99.7917, 0.739248)
	pt3dadd(82.3895, 94.3814, 100.219, 1.01346)
	pt3dadd(82.0992, 93.9584, 100.672, 1.00161)
	pt3dadd(81.5977, 93.7468, 101.214, 0.822444)
	pt3dadd(81.3187, 93.5766, 101.633, 0.97059)
	pt3dadd(80.9294, 93.0959, 102.34, 0.572816)
	pt3dadd(80.8051, 92.9326, 102.68, 0.703822)
	pt3dadd(80.6554, 92.8149, 103.008, 0.525862)
	pt3dadd(80.1139, 92.5699, 103.034, 0.237992)
	pt3dadd(79.957, 92.4787, 103.122, 0.255752)
	pt3dadd(79.8061, 92.349, 103.263, 0.258464)
	pt3dadd(79.6643, 92.2316, 103.414, 0.257538)
	pt3dadd(79.5109, 92.1065, 103.548, 0.350716)
	pt3dadd(79.3399, 91.9886, 103.658, 0.34794)
	pt3dadd(79.1687, 91.8983, 103.802, 0.31145)
	pt3dadd(78.9677, 91.8106, 103.963, 0.35083)
	pt3dadd(78.7463, 91.7248, 104.116, 0.659694)
	pt3dadd(77.9792, 91.6757, 104.53, 0.553258)
	pt3dadd(77.684, 91.6046, 104.666, 0.403682)
	pt3dadd(77.4572, 91.512, 104.745, 0.364704)
	pt3dadd(77.2325, 91.3669, 104.828, 0.479418)
	pt3dadd(77.1947, 91.0433, 105.307, 0.485558)
	pt3dadd(77.191, 90.8905, 105.502, 0.369092)
	pt3dadd(77.1755, 90.738, 105.731, 0.444318)
	pt3dadd(77.1472, 90.6047, 105.932, 0.51729)
	pt3dadd(77.0488, 90.3458, 106.341, 0.6859)
	pt3dadd(76.8307, 90.0634, 106.752, 0.71469)
	pt3dadd(76.7097, 89.8144, 107.012, 0.711456)
	pt3dadd(76.2316, 89.6136, 107.326, 0.577262)
	pt3dadd(75.9344, 89.5731, 107.523, 0.7733)
	pt3dadd(75.5531, 89.6503, 107.528, 0.78754)
	pt3dadd(75.1772, 89.4191, 107.911, 0.67271)
	pt3dadd(74.7908, 89.0957, 108.177, 0.213344)
	pt3dadd(74.6719, 88.9312, 108.225, 0.26303)
	pt3dadd(74.5652, 88.7735, 108.309, 0.293026)
	pt3dadd(74.5058, 88.5962, 108.428, 0.362834)
	pt3dadd(74.4591, 88.4097, 108.535, 0.378454)
	pt3dadd(74.4279, 88.2357, 108.674, 0.45589)
	pt3dadd(74.4343, 88.1118, 108.875, 0.515692)
	pt3dadd(74.4701, 87.997, 109.106, 0.566658)
	pt3dadd(74.5618, 87.8546, 109.341, 0.516644)
	pt3dadd(74.7043, 87.595, 109.755, 0.578082)
	pt3dadd(74.6388, 87.2666, 110.183, 0.684818)
	pt3dadd(74.5872, 86.8457, 110.612, 1.10947)
	pt3dadd(73.92, 86.8072, 111.105, 0.36333)
	pt3dadd(73.6255, 86.8102, 111.134, 0.392368)
	pt3dadd(73.3548, 86.8605, 111.163, 0.639076)
	pt3dadd(72.7805, 87.0436, 111.258, 0.873838)
	pt3dadd(72.6535, 86.9579, 111.876, 0.682838)
	pt3dadd(72.6061, 86.8827, 112.39, 0.6585)
	pt3dadd(72.6524, 86.5389, 112.84, 0.4574)
	pt3dadd(72.6821, 86.3577, 113.009, 0.438266)
	pt3dadd(72.6709, 86.1774, 113.174, 0.392432)
	pt3dadd(72.6343, 86.0276, 113.314, 0.455506)
	pt3dadd(72.4952, 85.6657, 113.618, 0.427364)
	pt3dadd(72.4052, 85.4841, 113.79, 0.513092)
	pt3dadd(72.2954, 85.326, 114.004, 0.65754)
	pt3dadd(71.9651, 85.1341, 114.45, 0.417156)
	pt3dadd(71.7437, 85.022, 114.594, 0.1)
	pt3dadd(71.0969, 84.8008, 115.2, 0.396968)
	pt3dadd(71.0762, 84.7321, 115.4, 0.390244)
	pt3dadd(71.0152, 84.2678, 116.2, 0.532402)
	pt3dadd(70.8171, 84.0897, 116.4, 0.138868)
	pt3dadd(70.2, 83.9598, 117, 0.478416)
	pt3dadd(69.8916, 83.9202, 117.2, 0.46969)
	pt3dadd(69.293, 83.847, 117.4, 0.49228)
	pt3dadd(68.6792, 83.7254, 117.8, 0.226728)
	pt3dadd(68.3717, 83.3971, 117.8, 0.764158)
	pt3dadd(68.3562, 82.9917, 118, 0.48971)
	pt3dadd(68.3678, 82.8, 118.2, 0.263984)
	pt3dadd(68.3236, 82.5859, 118.2, 0.328222)
	pt3dadd(68.3218, 82.4934, 118.4, 0.369276)
	pt3dadd(68.2402, 82.232, 118.4, 0.53723)
	pt3dadd(68.0172, 81.952, 118.6, 0.481706)
	pt3dadd(67.7894, 81.7096, 118.6, 0.566856)
	pt3dadd(67.8112, 81.3682, 118.6, 0.349612)
	pt3dadd(67.7731, 81.1778, 118.8, 0.264732)
	pt3dadd(67.7918, 80.9671, 118.8, 0.393364)
	pt3dadd(67.7339, 80.686, 119, 0.425828)
	pt3dadd(67.7169, 80.507, 119.2, 0.454728)
	pt3dadd(67.6701, 80.158, 119.2, 0.513768)
	pt3dadd(67.4698, 79.9125, 119.4, 0.454862)
	pt3dadd(67.2914, 79.7046, 119.4, 0.402544)
	pt3dadd(67.1008, 79.4998, 119.4, 0.415602)
	pt3dadd(66.9422, 79.2825, 119.6, 0.507334)
	pt3dadd(66.8562, 79.07, 119.8, 0.547852)
	pt3dadd(66.7001, 78.7999, 120, 0.47539)
	pt3dadd(66.7611, 78.5289, 120.6, 0.383596)
	pt3dadd(66.6973, 78.2, 121, 0.481766)
	pt3dadd(66.7005, 77.9099, 121.2, 0.599928)
	pt3dadd(66.5151, 77.591, 121.4, 0.336002)
	pt3dadd(66.463, 77.2753, 121.4, 0.26954)
	pt3dadd(66.5111, 77.1074, 121.6, 0.44064)
	pt3dadd(66.6224, 76.7907, 121.8, 0.594166)
	pt3dadd(66.5536, 76.6, 122, 0.451324)
	pt3dadd(66.4757, 76.5162, 122.4, 0.408336)
	pt3dadd(66.3945, 76.4033, 122.6, 0.442954)
	pt3dadd(66.202, 76.0957, 122.8, 0.644296)
	pt3dadd(65.904, 75.9596, 123, 0.480104)
	pt3dadd(65.7299, 75.8597, 123, 0.388548)
	pt3dadd(65.6004, 75.7995, 123.2, 0.310818)
	pt3dadd(65.4, 75.6939, 123.2, 0.385566)
	pt3dadd(65.1331, 75.5381, 123.4, 0.535754)
	pt3dadd(64.9252, 75.1794, 123.6, 0.675092)
	pt3dadd(64.6115, 74.9678, 123.6, 0.491114)
	pt3dadd(64.4045, 74.7916, 123.6, 0.384474)
	pt3dadd(64.2242, 74.5674, 123.8, 0.401112)
	pt3dadd(64.0086, 74.3792, 124, 0.459438)
	pt3dadd(63.8264, 74.2363, 124.2, 0.50564)
	pt3dadd(63.6996, 74.1002, 124.6, 0.461596)
	pt3dadd(63.5304, 73.8358, 124.8, 0.519734)
	pt3dadd(63.3426, 73.6057, 125, 0.479666)
	pt3dadd(63.2809, 73.4079, 125.2, 0.4655)
	pt3dadd(63.3238, 73.2805, 125.4, 0.565212)
  }
  dend[21] {pt3dclear()
	pt3dadd(84.932, 103.422, 94.1955, 1.06564)
	pt3dadd(83.6924, 103.584, 94.8614, 0.50547)
	pt3dadd(83.1072, 103.666, 95.2348, 0.560096)
	pt3dadd(82.7136, 103.718, 95.5056, 1.03342)
	pt3dadd(81.8762, 103.727, 96.5423, 0.735678)
	pt3dadd(81.6249, 103.726, 96.8927, 0.537818)
	pt3dadd(81.1425, 103.806, 97.1685, 0.52021)
  }
  dend[22] {pt3dclear()
	pt3dadd(81.1425, 103.806, 97.1685, 0.52021)
	pt3dadd(81.1035, 103.224, 97.4753, 0.626436)
	pt3dadd(81.1154, 102.918, 97.6015, 0.517558)
	pt3dadd(81.1725, 102.648, 97.6817, 0.545606)
	pt3dadd(81.3354, 102.43, 97.5682, 0.512606)
	pt3dadd(81.3411, 102.212, 97.0905, 0.25236)
	pt3dadd(81.3124, 102.139, 96.8761, 0.19585)
	pt3dadd(81.2677, 102.062, 96.6425, 0.254528)
	pt3dadd(81.2009, 101.963, 96.4277, 0.497262)
	pt3dadd(81.0264, 101.767, 96.2283, 0.828684)
  }
}
proc shape3d_25() {
  dend[22] {	pt3dadd(80.8737, 101.543, 97.0536, 0.336382)
	pt3dadd(80.81, 101.493, 97.2979, 0.346464)
	pt3dadd(80.746, 101.454, 97.5572, 0.357194)
	pt3dadd(80.6931, 101.424, 97.7795, 0.402126)
  }
  dend[23] {pt3dclear()
	pt3dadd(81.1425, 103.806, 97.1685, 0.52021)
	pt3dadd(80.8388, 104, 97.3774, 0.4809)
	pt3dadd(80.585, 104.163, 97.552, 0.45639)
	pt3dadd(80.4287, 104.334, 97.682, 0.446688)
	pt3dadd(80.2862, 104.562, 97.7575, 0.379212)
	pt3dadd(80.1613, 104.777, 97.7916, 0.346272)
	pt3dadd(80.0925, 104.97, 97.8009, 0.320526)
	pt3dadd(80.0388, 105.131, 97.8109, 0.295022)
	pt3dadd(80.0037, 105.335, 97.8177, 0.343942)
	pt3dadd(79.9682, 105.539, 97.8852, 0.583694)
	pt3dadd(79.7786, 105.939, 98.1647, 0.384536)
	pt3dadd(79.6262, 106.141, 98.3428, 0.37847)
	pt3dadd(79.4374, 106.293, 98.5376, 0.40506)
	pt3dadd(79.2772, 106.359, 98.7407, 0.46593)
	pt3dadd(79.1198, 106.381, 98.9797, 0.487884)
	pt3dadd(78.9706, 106.399, 99.2032, 0.52885)
	pt3dadd(78.8163, 106.435, 99.4315, 0.521288)
	pt3dadd(78.6806, 106.502, 99.6445, 0.52061)
	pt3dadd(78.5087, 106.645, 99.8398, 0.45869)
	pt3dadd(78.2822, 106.803, 100.062, 0.510094)
	pt3dadd(78.1148, 106.923, 100.256, 0.647076)
	pt3dadd(77.8005, 107.365, 100.601, 0.387954)
	pt3dadd(77.6721, 107.532, 100.763, 0.424708)
	pt3dadd(77.4932, 107.693, 100.926, 0.730554)
	pt3dadd(77.0158, 108.166, 101.021, 0.773924)
	pt3dadd(76.7811, 108.52, 101.258, 0.563428)
	pt3dadd(76.674, 108.741, 101.455, 0.65539)
	pt3dadd(76.4259, 109.163, 101.855, 0.639234)
	pt3dadd(76.2478, 109.342, 102.08, 0.621516)
	pt3dadd(75.8791, 109.623, 102.549, 0.986804)
	pt3dadd(75.6172, 109.618, 103.057, 0.857748)
	pt3dadd(75.0742, 109.966, 103.509, 0.225318)
	pt3dadd(74.9323, 110.083, 103.649, 0.203668)
	pt3dadd(74.7737, 110.198, 103.826, 0.324316)
	pt3dadd(74.6134, 110.305, 104.005, 0.41754)
	pt3dadd(74.4743, 110.393, 104.167, 0.412966)
	pt3dadd(74.3091, 110.495, 104.307, 0.436496)
	pt3dadd(74.134, 110.556, 104.449, 0.614184)
	pt3dadd(73.7474, 110.664, 104.758, 0.708678)
	pt3dadd(73.3529, 110.866, 105.114, 0.933556)
	pt3dadd(72.8521, 111.05, 105.801, 1.15026)
	pt3dadd(72.4987, 111.056, 106.618, 0.904504)
	pt3dadd(71.9713, 111.209, 106.867, 0.365992)
	pt3dadd(71.7579, 111.289, 106.993, 0.404504)
	pt3dadd(71.5521, 111.368, 107.164, 0.559198)
	pt3dadd(71.1921, 111.535, 107.556, 0.786372)
	pt3dadd(70.6774, 111.7, 108.049, 0.992376)
	pt3dadd(70.2956, 111.679, 108.537, 0.622302)
	pt3dadd(70.0298, 111.605, 108.859, 0.588168)
	pt3dadd(69.6378, 111.444, 109.169, 0.475412)
	pt3dadd(69.4263, 111.327, 109.376, 0.510418)
	pt3dadd(69.2388, 111.205, 109.57, 0.590774)
	pt3dadd(69.0563, 111.075, 109.764, 0.730636)
	pt3dadd(68.6273, 110.964, 110.249, 0.797008)
	pt3dadd(68.3236, 110.959, 110.532, 0.792796)
	pt3dadd(67.9647, 110.912, 110.811, 0.983984)
	pt3dadd(67.4972, 110.915, 110.995, 0.935524)
	pt3dadd(67.1132, 110.51, 111.544, 0.510134)
	pt3dadd(66.8643, 110.326, 111.862, 0.666726)
	pt3dadd(66.6833, 110.209, 112.24, 1.02673)
	pt3dadd(66.3602, 109.994, 112.973, 0.703392)
	pt3dadd(66.0838, 109.738, 113.314, 0.521098)
	pt3dadd(65.8947, 109.562, 113.608, 0.606802)
	pt3dadd(65.5763, 109.273, 113.794, 0.490804)
	pt3dadd(65.3902, 109.056, 113.984, 0.461206)
	pt3dadd(65.2002, 108.866, 114.216, 0.494132)
	pt3dadd(64.9753, 108.655, 114.453, 0.477536)
	pt3dadd(64.7968, 108.475, 114.645, 0.566034)
	pt3dadd(64.6122, 108.305, 114.847, 0.645774)
	pt3dadd(64.3391, 108.179, 115.039, 0.548924)
	pt3dadd(64.1075, 108.101, 115.185, 0.545028)
	pt3dadd(63.6544, 108.026, 115.433, 0.562164)
	pt3dadd(63.393, 107.978, 115.56, 0.479344)
	pt3dadd(63.1763, 107.884, 115.7, 0.477458)
	pt3dadd(62.9802, 107.743, 115.868, 0.451502)
	pt3dadd(62.8128, 107.62, 116.012, 0.409332)
	pt3dadd(62.603, 107.519, 116.145, 0.444942)
	pt3dadd(62.398, 107.449, 116.29, 0.499648)
	pt3dadd(62.133, 107.367, 116.389, 0.537186)
	pt3dadd(61.8352, 107.308, 116.496, 0.596488)
	pt3dadd(61.5731, 107.224, 116.618, 0.860238)
	pt3dadd(61.1118, 106.96, 116.933, 0.969602)
	pt3dadd(60.7795, 107.201, 117.331, 0.814792)
	pt3dadd(60.5912, 107.302, 117.722, 0.96529)
	pt3dadd(60.4085, 107.34, 118.37, 0.72185)
	pt3dadd(60.2956, 107.347, 118.845, 0.512684)
	pt3dadd(60.1889, 107.318, 119.109, 0.51162)
	pt3dadd(59.9843, 107.299, 119.578, 0.65352)
	pt3dadd(59.8365, 107.252, 120.111, 0.558744)
	pt3dadd(59.7753, 107.214, 120.621, 0.5407)
	pt3dadd(59.8241, 107.206, 120.89, 0.515732)
	pt3dadd(59.8846, 107.205, 121.152, 0.505966)
	pt3dadd(59.9578, 107.195, 121.466, 0.541192)
	pt3dadd(60.0279, 107.209, 121.729, 0.584072)
	pt3dadd(60.1039, 107.232, 122.032, 0.724122)
	pt3dadd(60.4015, 107.212, 122.644, 1.24868)
	pt3dadd(60.7813, 107.061, 123.253, 1.2175)
  }
  dend[24] {pt3dclear()
	pt3dadd(96.1749, 112.96, 83.5975, 1.82192)
	pt3dadd(96.1396, 111.8, 83.8, 0.670884)
	pt3dadd(96.0531, 111.1, 83.8, 0.59336)
	pt3dadd(95.978, 110.596, 83.8, 0.566336)
	pt3dadd(95.8954, 109.997, 83.8, 0.707038)
	pt3dadd(95.703, 109.433, 84.3084, 1.00111)
	pt3dadd(95.8297, 108.894, 84.3647, 0.604702)
	pt3dadd(95.8357, 108.551, 84.398, 0.408268)
	pt3dadd(95.7702, 108.226, 84.2857, 0.243798)
	pt3dadd(95.5993, 107.924, 84.1146, 0.533874)
	pt3dadd(95.598, 107.501, 84.3653, 0.81504)
	pt3dadd(95.5888, 107.028, 84.5027, 0.740152)
	pt3dadd(95.678, 106.392, 84.7412, 0.834232)
	pt3dadd(95.7413, 105.99, 84.8403, 0.558264)
	pt3dadd(95.7945, 105.649, 84.8559, 0.499844)
	pt3dadd(95.851, 105.344, 84.8656, 0.4513)
	pt3dadd(95.9286, 105.034, 84.9127, 0.517468)
	pt3dadd(95.985, 104.761, 84.9546, 0.587492)
	pt3dadd(96.0412, 104.481, 85.0284, 0.678554)
	pt3dadd(96.1247, 103.906, 85.3182, 0.739084)
	pt3dadd(96.2328, 103.159, 85.3569, 0.509534)
	pt3dadd(96.277, 102.782, 85.3298, 0.75558)
	pt3dadd(96.4359, 102.403, 85.4215, 0.833184)
	pt3dadd(96.1171, 101.721, 85.8555, 0.45435)
	pt3dadd(96.0034, 101.436, 85.9552, 0.399506)
	pt3dadd(95.8611, 101.119, 85.9694, 0.42329)
	pt3dadd(95.6646, 100.809, 85.9446, 0.559612)
	pt3dadd(95.7589, 100.36, 86.2574, 0.490592)
	pt3dadd(95.7903, 100.148, 86.4096, 0.429252)
	pt3dadd(95.8206, 99.9383, 86.5798, 0.525646)
	pt3dadd(95.9661, 99.5365, 86.8988, 0.77596)
	pt3dadd(95.8676, 98.9256, 87.0233, 0.31488)
	pt3dadd(95.6869, 98.5723, 87.053, 0.45213)
	pt3dadd(95.5242, 98.2602, 87.16, 0.550626)
	pt3dadd(95.3969, 97.9846, 87.2981, 0.719368)
	pt3dadd(95.3092, 97.6607, 87.4501, 0.897322)
	pt3dadd(94.9346, 97.0181, 87.729, 0.734438)
	pt3dadd(94.7887, 96.6645, 87.7583, 0.610056)
	pt3dadd(94.6508, 96.3314, 87.802, 0.474846)
	pt3dadd(94.5012, 96.012, 87.8882, 0.433788)
	pt3dadd(94.3253, 95.6645, 87.9769, 0.558824)
	pt3dadd(94.0899, 95.3033, 87.7157, 0.570552)
	pt3dadd(94.1491, 94.744, 87.9054, 0.330976)
	pt3dadd(94.1402, 94.5727, 88.046, 0.388218)
	pt3dadd(94.0937, 94.3803, 88.1819, 0.450944)
	pt3dadd(94.0493, 94.2041, 88.356, 0.459958)
	pt3dadd(93.9938, 94.0091, 88.5145, 0.495002)
	pt3dadd(93.9131, 93.8328, 88.6904, 0.48327)
	pt3dadd(93.7115, 93.5365, 88.6313, 0.306626)
	pt3dadd(93.556, 93.29, 88.6105, 0.314758)
	pt3dadd(93.3821, 93.0205, 88.6763, 0.399172)
	pt3dadd(93.2063, 92.781, 88.7054, 0.388586)
	pt3dadd(92.9595, 92.5153, 88.6478, 0.38386)
	pt3dadd(92.7082, 92.2614, 88.655, 0.78898)
	pt3dadd(92.3967, 91.5679, 88.9533, 0.667366)
	pt3dadd(92.173, 91.2588, 89.1725, 0.606248)
	pt3dadd(91.76, 90.7225, 88.7842, 0.465364)
	pt3dadd(91.4153, 90.2785, 88.7483, 0.253882)
	pt3dadd(91.0794, 89.7578, 88.368, 0.38379)
	pt3dadd(90.963, 89.5596, 88.2053, 0.44382)
	pt3dadd(90.8787, 89.2911, 88.146, 0.408312)
	pt3dadd(90.7992, 88.9971, 88.152, 0.41878)
	pt3dadd(90.6439, 88.5926, 88.1278, 0.338154)
	pt3dadd(90.4564, 88.0692, 87.8717, 0.42496)
	pt3dadd(90.3682, 87.5607, 87.5385, 0.643944)
	pt3dadd(90.0533, 86.8614, 87.2892, 0.998506)
	pt3dadd(89.4006, 86.1035, 87.28, 0.521636)
	pt3dadd(89.1166, 85.8176, 87.2468, 0.396562)
	pt3dadd(88.8307, 85.3812, 87.1215, 0.279902)
	pt3dadd(88.581, 85.0423, 87.0155, 0.424244)
	pt3dadd(88.3413, 84.7507, 86.8168, 0.627112)
	pt3dadd(88.0229, 84.0688, 87.1384, 0.46421)
	pt3dadd(87.8595, 83.8186, 87.1955, 0.37583)
	pt3dadd(87.6545, 83.5843, 87.143, 0.435064)
	pt3dadd(87.403, 83.3741, 87.0665, 0.53674)
	pt3dadd(87.137, 83.2106, 86.9271, 1.19033)
	pt3dadd(87.2201, 82.4297, 86.8828, 0.99911)
	pt3dadd(86.8729, 81.7429, 86.9426, 0.486212)
	pt3dadd(86.7282, 81.4877, 86.9239, 0.445544)
	pt3dadd(86.5603, 81.2407, 86.8619, 0.344476)
	pt3dadd(86.3765, 81.0638, 86.7822, 0.246214)
	pt3dadd(86.1652, 80.9374, 86.6902, 0.388544)
	pt3dadd(85.939, 80.8449, 86.5879, 0.913682)
	pt3dadd(85.6522, 80.2742, 86.3924, 0.35485)
	pt3dadd(85.5928, 80.0477, 86.3323, 0.31784)
	pt3dadd(85.5323, 79.8254, 86.3038, 0.35042)
	pt3dadd(85.4745, 79.553, 86.3242, 0.71874)
	pt3dadd(85.0178, 79.0202, 86.2722, 0.63488)
	pt3dadd(84.7773, 78.7757, 86.2926, 0.573294)
	pt3dadd(84.5705, 78.531, 86.3963, 0.604418)
	pt3dadd(84.1041, 78.0229, 86.1513, 0.426532)
	pt3dadd(83.9151, 77.815, 86.1481, 0.308052)
	pt3dadd(83.7689, 77.6487, 86.1087, 0.299952)
	pt3dadd(83.6233, 77.4742, 86.0334, 0.291876)
	pt3dadd(83.4867, 77.3001, 85.9567, 0.301432)
	pt3dadd(83.3154, 77.0903, 85.8732, 0.347568)
	pt3dadd(83.1526, 76.9075, 85.7955, 0.388062)
	pt3dadd(82.9712, 76.6865, 85.759, 0.466142)
	pt3dadd(82.7246, 76.4802, 85.7271, 0.688476)
  }
}
proc shape3d_26() {
  dend[24] {	pt3dadd(82.2394, 75.9035, 85.4319, 0.322602)
	pt3dadd(82.1486, 75.6683, 85.3111, 0.313752)
	pt3dadd(82.1175, 75.4415, 85.2093, 0.44106)
	pt3dadd(82.0029, 75.1958, 85.2043, 0.47957)
	pt3dadd(81.8495, 74.9183, 85.1935, 0.498336)
	pt3dadd(81.6775, 74.7091, 85.045, 0.57538)
	pt3dadd(81.3821, 74.1699, 84.7538, 0.543906)
	pt3dadd(81.1682, 73.8688, 84.6267, 0.480918)
	pt3dadd(80.8512, 73.5757, 84.4172, 0.62769)
	pt3dadd(80.6236, 73.3634, 84.2608, 0.55124)
	pt3dadd(80.3852, 73.122, 84.1127, 0.440436)
	pt3dadd(80.1987, 72.9493, 83.9871, 0.286234)
	pt3dadd(79.9943, 72.7562, 83.8475, 0.243756)
	pt3dadd(79.786, 72.564, 83.7194, 0.33963)
	pt3dadd(79.5437, 72.3457, 83.6529, 0.45922)
	pt3dadd(79.287, 72.0927, 83.6037, 0.653872)
	pt3dadd(79.0301, 71.9159, 83.081, 0.697068)
	pt3dadd(78.7315, 71.6806, 82.6846, 0.665164)
	pt3dadd(78.4133, 71.4976, 82.3699, 0.518882)
	pt3dadd(78.1572, 71.3395, 82.2192, 0.313478)
	pt3dadd(77.957, 71.215, 82.1312, 0.290988)
	pt3dadd(77.7475, 71.0582, 82.0867, 0.32926)
	pt3dadd(77.5317, 70.9026, 81.9809, 0.421856)
	pt3dadd(77.2825, 70.741, 81.8229, 0.573534)
	pt3dadd(77.0383, 70.5849, 81.6693, 0.684894)
	pt3dadd(76.767, 70.3557, 81.5059, 0.605406)
	pt3dadd(76.5566, 70.1643, 81.3587, 0.572018)
	pt3dadd(76.3558, 69.97, 81.2515, 0.54192)
	pt3dadd(76.1514, 69.8188, 81.1519, 0.460754)
	pt3dadd(75.9244, 69.7013, 81.0679, 0.448816)
	pt3dadd(75.6804, 69.6042, 80.9176, 0.34027)
	pt3dadd(75.4761, 69.5315, 80.773, 0.26393)
	pt3dadd(75.2815, 69.4751, 80.608, 0.37373)
	pt3dadd(75.0744, 69.4241, 80.4034, 0.474698)
	pt3dadd(74.8498, 69.3564, 80.1921, 0.56674)
	pt3dadd(74.6579, 69.2731, 79.9612, 0.572478)
	pt3dadd(74.3679, 68.9548, 79.8389, 0.28911)
	pt3dadd(74.1718, 68.7646, 79.7231, 0.300754)
	pt3dadd(73.9822, 68.5891, 79.6333, 0.286312)
	pt3dadd(73.8073, 68.4335, 79.5227, 0.34395)
	pt3dadd(73.6187, 68.2652, 79.432, 0.487904)
	pt3dadd(73.4304, 68.0471, 79.4224, 0.551182)
	pt3dadd(73.2077, 67.5697, 79.4386, 0.421842)
	pt3dadd(73.0949, 67.3702, 79.4377, 0.33367)
	pt3dadd(72.9235, 67.1667, 79.4409, 0.337226)
	pt3dadd(72.7266, 67.0114, 79.4433, 0.352576)
	pt3dadd(72.4686, 66.8286, 79.457, 0.396918)
	pt3dadd(72.1815, 66.6976, 79.4087, 0.48724)
	pt3dadd(71.9214, 66.5828, 79.2825, 0.428982)
	pt3dadd(71.6728, 66.4119, 79.1982, 0.345198)
	pt3dadd(71.4715, 66.2195, 79.2225, 0.377968)
	pt3dadd(71.3045, 65.9861, 79.2862, 0.389956)
	pt3dadd(71.116, 65.7439, 79.3242, 0.497406)
	pt3dadd(70.9001, 65.4761, 79.2642, 0.40154)
	pt3dadd(70.7147, 65.2672, 79.2478, 0.374698)
	pt3dadd(70.522, 65.0671, 79.2231, 0.40263)
	pt3dadd(70.3228, 64.8879, 79.183, 0.430346)
	pt3dadd(70.0624, 64.6732, 79.1001, 0.318504)
	pt3dadd(69.8646, 64.5386, 79.0727, 0.271818)
	pt3dadd(69.6572, 64.4202, 79.0758, 0.285356)
	pt3dadd(69.4426, 64.3166, 79.0898, 0.309858)
	pt3dadd(69.2006, 64.1872, 79.1095, 0.383832)
	pt3dadd(69.0446, 63.9559, 79.2042, 0.491734)
	pt3dadd(68.8243, 63.7299, 79.3505, 0.87514)
	pt3dadd(68.1748, 63.1866, 79.4392, 0.593998)
	pt3dadd(68.0906, 62.8385, 79.5851, 0.45103)
	pt3dadd(68.0752, 62.5796, 79.6501, 0.463088)
	pt3dadd(68.0705, 62.2851, 79.6876, 0.423104)
	pt3dadd(68.037, 61.9368, 79.6573, 0.391246)
	pt3dadd(67.9858, 61.7235, 79.6574, 0.274278)
	pt3dadd(67.9025, 61.4623, 79.7291, 0.362152)
	pt3dadd(67.7966, 61.2238, 79.8412, 0.573644)
	pt3dadd(67.692, 60.9667, 79.9385, 0.727114)
	pt3dadd(67.2972, 60.3828, 79.8852, 0.590786)
	pt3dadd(67.0761, 60.1568, 79.9856, 0.520368)
	pt3dadd(66.8423, 59.9191, 80.1498, 0.40231)
	pt3dadd(66.6855, 59.7182, 80.3015, 0.351354)
	pt3dadd(66.5037, 59.2969, 80.2, 0.300708)
	pt3dadd(66.4154, 59.1908, 80.2, 0.350444)
	pt3dadd(66.2136, 58.9746, 80.4, 0.3614)
	pt3dadd(66.0981, 58.9031, 80.6, 0.369336)
	pt3dadd(65.9626, 58.7134, 80.4, 0.492616)
	pt3dadd(65.9128, 58.4994, 80.4, 0.372924)
	pt3dadd(65.7867, 58.3109, 80.4, 0.265144)
	pt3dadd(65.6252, 58.0924, 80.4, 0.36452)
	pt3dadd(65.5625, 57.9114, 80.4, 0.337054)
	pt3dadd(65.4961, 57.7, 80.4, 0.364074)
	pt3dadd(65.4764, 57.5, 80.6, 0.346374)
	pt3dadd(65.4192, 57.2, 80.6, 0.328292)
	pt3dadd(65.3999, 57, 80.6, 0.398232)
	pt3dadd(65.2617, 56.7467, 80.8, 0.373276)
	pt3dadd(65.2075, 56.6955, 80.6, 0.357252)
	pt3dadd(65.0106, 56.4824, 80.6, 0.345732)
	pt3dadd(64.9217, 56.3822, 80.6, 0.196716)
	pt3dadd(64.843, 56.261, 80.6, 0.176788)
	pt3dadd(64.703, 56.0945, 80.6, 0.414108)
	pt3dadd(64.4598, 55.9364, 80.8, 0.69953)
	pt3dadd(64.3604, 55.5596, 81, 0.56936)
	pt3dadd(64.375, 55.2689, 80.8, 0.356942)
	pt3dadd(64.3188, 54.9963, 81, 0.365016)
	pt3dadd(64.2655, 54.8143, 81, 0.4323)
	pt3dadd(64.1951, 54.6015, 80.8, 0.406662)
	pt3dadd(64.0996, 54.4002, 80.8, 0.347468)
	pt3dadd(64.0169, 54.1887, 80.8, 0.311728)
	pt3dadd(63.9882, 54.1087, 81, 0.303868)
	pt3dadd(63.8856, 53.9096, 81.2, 0.38477)
	pt3dadd(63.7929, 53.7058, 81.2, 0.498752)
	pt3dadd(63.6949, 53.5024, 81.4, 0.45185)
	pt3dadd(63.5328, 53.1601, 81.4, 0.408578)
	pt3dadd(63.4674, 52.9135, 81.4, 0.418728)
	pt3dadd(63.3847, 52.7126, 81.4, 0.470698)
	pt3dadd(63.2463, 52.6053, 81.6, 0.486466)
	pt3dadd(62.9504, 52.2443, 81.8, 0.409348)
	pt3dadd(62.8153, 52.1744, 81.8, 0.318598)
	pt3dadd(62.5764, 52.0318, 82, 0.403414)
	pt3dadd(62.4091, 51.978, 82.2, 0.447394)
	pt3dadd(62.0571, 51.7474, 82.4, 0.665916)
	pt3dadd(61.9195, 51.4, 82.6, 0.61377)
	pt3dadd(61.7568, 51.1234, 82.6, 0.553752)
	pt3dadd(61.6624, 50.9018, 82.8, 0.4732)
	pt3dadd(61.5051, 50.5973, 82.8, 0.426918)
	pt3dadd(61.4108, 50.3955, 82.8, 0.47119)
	pt3dadd(61.306, 50.1975, 83, 0.41845)
	pt3dadd(61.2335, 50.0861, 83.2, 0.43753)
	pt3dadd(61.1478, 49.8473, 83.4, 0.433)
	pt3dadd(61.1529, 49.7, 83.8, 0.443604)
	pt3dadd(60.5304, 49.1516, 83.8, 0.48728)
	pt3dadd(60.291, 49.0218, 83.8, 0.452364)
	pt3dadd(60.069, 48.9378, 83.8, 0.354062)
	pt3dadd(59.9006, 48.798, 84, 0.402226)
	pt3dadd(59.7983, 48.7033, 84.2, 0.438138)
	pt3dadd(59.51, 48.4878, 84.2, 0.588466)
	pt3dadd(59.4255, 48.3895, 84.4, 0.449964)
	pt3dadd(59.3773, 48.3152, 84.2, 0.413832)
	pt3dadd(59.2483, 48.2244, 84.4, 0.322658)
	pt3dadd(59.1778, 48.2164, 84.6, 0.280382)
	pt3dadd(58.9897, 48.0288, 84.8, 0.485818)
	pt3dadd(58.9584, 47.9, 84.6, 0.449028)
	pt3dadd(58.7832, 47.7138, 84.8, 0.464982)
	pt3dadd(58.6845, 47.6093, 85, 0.408438)
	pt3dadd(58.5242, 47.4271, 85.2, 0.459378)
	pt3dadd(58.4965, 47.3015, 85.4, 0.419474)
	pt3dadd(58.4106, 47.0894, 85.6, 0.529252)
	pt3dadd(58.2946, 46.8022, 85.4, 0.507326)
	pt3dadd(58.2027, 46.6992, 85.6, 0.407666)
	pt3dadd(58.0237, 46.4763, 85.6, 0.490384)
	pt3dadd(57.8951, 46.3044, 85.8, 0.52074)
	pt3dadd(57.734, 46.105, 86, 0.413796)
	pt3dadd(57.6042, 45.9938, 86.2, 0.34357)
	pt3dadd(57.3956, 45.8024, 86.6, 0.43228)
	pt3dadd(57.2734, 45.6178, 86.6, 0.41013)
	pt3dadd(57.1182, 45.3799, 86.4, 0.534708)
	pt3dadd(56.9855, 45.1, 86.4, 0.563454)
	pt3dadd(56.9608, 44.8, 86.4, 0.44691)
	pt3dadd(56.9871, 44.5954, 86.4, 0.394764)
	pt3dadd(57.0073, 44.297, 86.4, 0.496492)
	pt3dadd(56.9863, 43.8592, 86.6, 0.72729)
	pt3dadd(56.8132, 43.584, 86.8, 0.585596)
	pt3dadd(56.6389, 43.268, 87, 0.35582)
	pt3dadd(56.514, 43.0925, 87, 0.375632)
	pt3dadd(56.3785, 42.9159, 87.2, 0.371914)
	pt3dadd(56.197, 42.7016, 87.2, 0.44634)
	pt3dadd(56.0314, 42.3767, 87.4, 0.404516)
	pt3dadd(55.9355, 42.1832, 87.6, 0.52599)
	pt3dadd(55.7542, 41.8, 87.8, 0.663658)
	pt3dadd(55.7029, 41.3986, 87.8, 0.447616)
	pt3dadd(55.5066, 41.1919, 87.6, 0.484068)
	pt3dadd(55.3004, 41.0987, 87.4, 0.618252)
	pt3dadd(55.2152, 40.5876, 88.8, 0.553942)
	pt3dadd(55.1637, 40.3699, 89, 0.51565)
	pt3dadd(54.9861, 40.1126, 89.2, 0.548198)
	pt3dadd(54.6911, 39.9214, 89.2, 0.595178)
	pt3dadd(53.5931, 39.3093, 89.6, 0.309536)
	pt3dadd(53.3445, 39.1341, 89.6, 0.69307)
	pt3dadd(53.0919, 38.7, 89.6, 0.566128)
	pt3dadd(52.6141, 38.1972, 90.4, 0.37188)
	pt3dadd(52.4623, 37.9279, 90.4, 0.368892)
	pt3dadd(52.0087, 37.4714, 90.6, 0.1244)
	pt3dadd(51.8308, 37.3835, 90.8, 0.521648)
	pt3dadd(51.674, 37.1073, 90.8, 0.853558)
	pt3dadd(51.2953, 36.8131, 90.6, 0.446872)
	pt3dadd(50.2494, 36.3558, 90.6, 0.387216)
	pt3dadd(50.0005, 36.0997, 90.6, 0.461842)
	pt3dadd(49.4848, 35.9205, 90.8, 0.276268)
	pt3dadd(49.2182, 35.7728, 90.8, 0.29005)
	pt3dadd(49.0001, 35.6998, 90.8, 0.428058)
	pt3dadd(48.7, 35.6539, 90.8, 0.46946)
	pt3dadd(48.3919, 35.6409, 90.8, 0.107166)
	pt3dadd(47.4499, 34.9454, 90.8, 0.4033)
	pt3dadd(47.2336, 34.688, 90.8, 0.49382)
	pt3dadd(46.899, 34.5006, 91.2, 0.38334)
  }
  dend[25] {pt3dclear()
	pt3dadd(101.26, 119.566, 82.2231, 0.837448)
	pt3dadd(100.229, 119.894, 81.2364, 0.917384)
	pt3dadd(99.5454, 120.125, 80.4845, 0.65026)
	pt3dadd(99.1944, 120.275, 80.1091, 0.61978)
	pt3dadd(98.951, 120.39, 79.8669, 0.572948)
	pt3dadd(98.656, 120.489, 79.6939, 0.501772)
	pt3dadd(98.3354, 120.579, 79.519, 0.546908)
	pt3dadd(97.9756, 120.667, 79.3692, 0.546456)
	pt3dadd(97.5839, 120.775, 79.1434, 0.68661)
  }
}
proc shape3d_27() {
  dend[25] {	pt3dadd(97.1205, 120.899, 78.8052, 0.732636)
	pt3dadd(96.7869, 120.939, 78.6037, 0.665986)
	pt3dadd(96.5098, 121.038, 78.3311, 0.86878)
	pt3dadd(95.9102, 121.438, 77.9314, 0.563924)
	pt3dadd(95.6206, 121.627, 77.8787, 0.52775)
	pt3dadd(95.349, 121.824, 77.8132, 0.580904)
	pt3dadd(95.0594, 122.034, 77.7269, 0.717408)
	pt3dadd(94.7307, 122.216, 77.6218, 1.01158)
	pt3dadd(94.3343, 122.218, 77.2868, 0.942424)
	pt3dadd(93.9233, 122.262, 76.8999, 0.739568)
	pt3dadd(93.6349, 122.308, 76.6196, 0.71726)
	pt3dadd(93.3639, 122.375, 76.3436, 0.619502)
	pt3dadd(93.0478, 122.426, 76.1011, 0.590944)
	pt3dadd(92.7715, 122.478, 75.8725, 0.589816)
	pt3dadd(92.5184, 122.537, 75.6444, 0.654258)
	pt3dadd(92.231, 122.635, 75.3905, 0.7785)
	pt3dadd(91.9551, 122.787, 75.1179, 0.80413)
	pt3dadd(91.4543, 123.081, 74.7559, 0.666904)
	pt3dadd(91.1396, 123.242, 74.6847, 0.649928)
	pt3dadd(90.7819, 123.369, 74.4884, 0.79006)
	pt3dadd(90.2839, 123.497, 73.9356, 0.647164)
	pt3dadd(89.93, 123.531, 73.6371, 0.579842)
	pt3dadd(89.6352, 123.511, 73.4525, 0.66047)
	pt3dadd(89.384, 123.691, 73.1614, 0.817168)
	pt3dadd(88.8791, 123.658, 72.9058, 0.638056)
	pt3dadd(88.1787, 123.703, 72.5993, 1.06282)
	pt3dadd(87.2126, 123.764, 72.1765, 1.07494)
  }
  dend[26] {pt3dclear()
	pt3dadd(87.2126, 123.764, 72.1765, 1.07494)
	pt3dadd(86.4212, 122.992, 71.5978, 0.511594)
	pt3dadd(86.1124, 122.767, 71.6118, 0.460092)
	pt3dadd(85.8058, 122.586, 71.6055, 0.434132)
	pt3dadd(85.5195, 122.462, 71.5394, 0.419746)
	pt3dadd(85.2271, 122.375, 71.3923, 0.441402)
	pt3dadd(84.9308, 122.24, 71.4005, 0.434608)
	pt3dadd(84.6504, 122.073, 71.5289, 0.612028)
	pt3dadd(84.4004, 121.961, 71.7632, 0.738942)
	pt3dadd(83.9657, 121.951, 71.3627, 0.56092)
	pt3dadd(83.6934, 121.952, 71.0075, 0.662322)
	pt3dadd(83.0246, 121.43, 71.0626, 0.1)
	pt3dadd(82.82, 121.237, 71.0874, 0.326522)
	pt3dadd(82.6068, 121.025, 71.1155, 0.571782)
	pt3dadd(82.3491, 120.855, 71.1233, 0.635618)
	pt3dadd(82.0277, 120.766, 71.1361, 0.61818)
	pt3dadd(81.6323, 120.766, 71.0056, 0.473856)
	pt3dadd(81.1403, 120.759, 71.2533, 0.396654)
	pt3dadd(80.919, 120.797, 71.256, 0.303262)
	pt3dadd(80.7062, 120.799, 71.2722, 0.27696)
	pt3dadd(80.4722, 120.752, 71.3384, 0.285034)
	pt3dadd(80.2069, 120.687, 71.3417, 0.35152)
	pt3dadd(79.8756, 120.599, 71.3068, 0.37517)
	pt3dadd(79.541, 120.477, 71.2554, 0.379424)
	pt3dadd(79.1582, 120.353, 71.1957, 0.495708)
	pt3dadd(78.7416, 120.338, 71.21, 0.625496)
	pt3dadd(78.3025, 120.487, 71.4703, 0.597282)
	pt3dadd(77.8854, 120.643, 71.8258, 0.885416)
	pt3dadd(77.4903, 120.46, 72.3186, 0.87484)
	pt3dadd(76.4823, 120.082, 72.2306, 0.25213)
	pt3dadd(76.2228, 120.011, 72.222, 0.306956)
	pt3dadd(75.958, 119.953, 72.2013, 0.267556)
	pt3dadd(75.6244, 119.92, 72.1245, 0.37777)
	pt3dadd(75.1981, 119.906, 72.1063, 0.499168)
	pt3dadd(74.9372, 119.91, 72.0655, 0.276184)
	pt3dadd(74.6165, 119.891, 72.0826, 0.444802)
	pt3dadd(74.2787, 119.84, 71.9681, 0.681242)
	pt3dadd(73.9143, 119.781, 72.5551, 0.524444)
	pt3dadd(73.5069, 119.702, 72.7981, 0.389416)
	pt3dadd(73.1391, 119.627, 72.9677, 0.39605)
	pt3dadd(72.8776, 119.571, 73.0718, 0.415606)
	pt3dadd(72.6094, 119.519, 73.1581, 0.404784)
	pt3dadd(72.2685, 119.435, 73.3024, 0.43482)
	pt3dadd(71.9557, 119.362, 73.5293, 0.527524)
	pt3dadd(71.3388, 119.423, 73.5853, 0.41013)
	pt3dadd(70.877, 119.419, 73.6469, 0.45344)
	pt3dadd(70.4886, 119.37, 73.63, 0.569778)
	pt3dadd(69.9434, 118.974, 73.8548, 0.30055)
	pt3dadd(69.6538, 118.841, 73.9112, 0.358808)
	pt3dadd(69.3307, 118.756, 73.8924, 0.517552)
	pt3dadd(68.9815, 118.729, 73.8893, 0.723994)
	pt3dadd(68.1955, 118.423, 74.2222, 0.560934)
	pt3dadd(67.6447, 118.16, 74.1777, 0.855248)
	pt3dadd(67.2115, 117.9, 74.0855, 1.00509)
	pt3dadd(66.421, 118.056, 74.439, 0.485256)
	pt3dadd(66.1149, 118.072, 74.5236, 0.553532)
	pt3dadd(65.8186, 117.998, 74.48, 0.786188)
	pt3dadd(65.3623, 118.249, 74.7548, 0.381778)
	pt3dadd(65.1729, 118.294, 74.8522, 0.290364)
	pt3dadd(64.9553, 118.285, 74.9117, 0.265462)
	pt3dadd(64.7007, 118.275, 74.8291, 0.282912)
	pt3dadd(64.5206, 118.3, 74.8019, 0.2998)
	pt3dadd(64.3171, 118.373, 74.743, 0.404432)
	pt3dadd(64.0574, 118.368, 74.6945, 0.568184)
	pt3dadd(63.8256, 118.466, 74.9505, 0.708844)
	pt3dadd(63.36, 118.65, 75.1973, 0.468162)
	pt3dadd(63.1146, 118.741, 75.2855, 0.545754)
	pt3dadd(62.85, 118.804, 75.3488, 0.69385)
	pt3dadd(62.5197, 118.658, 75.6576, 0.40672)
	pt3dadd(62.1995, 118.567, 75.7516, 0.341472)
	pt3dadd(61.9756, 118.521, 75.8178, 0.355546)
	pt3dadd(61.6872, 118.489, 75.8551, 0.338738)
	pt3dadd(61.442, 118.472, 75.8531, 0.31351)
	pt3dadd(61.1829, 118.477, 75.817, 0.452652)
	pt3dadd(60.8716, 118.501, 75.8901, 0.54107)
	pt3dadd(60.4749, 118.527, 75.9747, 0.529022)
	pt3dadd(60.1322, 118.553, 75.9689, 0.521944)
	pt3dadd(59.802, 118.591, 75.9306, 0.573806)
	pt3dadd(59.5088, 118.755, 75.8813, 0.699628)
	pt3dadd(59.1848, 118.897, 75.8428, 1.17321)
	pt3dadd(58.5202, 118.833, 75.5102, 0.488616)
	pt3dadd(58.2396, 118.839, 75.4032, 0.333658)
	pt3dadd(58.027, 118.86, 75.3406, 0.1)
	pt3dadd(57.8297, 118.885, 75.3157, 0.1)
	pt3dadd(57.6883, 118.937, 75.3562, 0.1)
	pt3dadd(57.5443, 119.015, 75.4229, 0.363312)
	pt3dadd(57.3514, 119.153, 75.5117, 0.803144)
	pt3dadd(56.7985, 119.195, 75.1657, 0.448626)
	pt3dadd(56.4888, 119.161, 75.0369, 0.17437)
	pt3dadd(56.3689, 119.143, 74.9288, 0.23143)
	pt3dadd(56.2806, 119.164, 74.7966, 0.238042)
	pt3dadd(56.1406, 119.152, 74.7662, 0.29045)
	pt3dadd(55.9193, 119.116, 74.7505, 0.377834)
	pt3dadd(55.6649, 119.102, 74.6896, 0.542084)
	pt3dadd(55.4211, 119.165, 74.5124, 0.6147)
	pt3dadd(55.1847, 119.246, 74.28, 0.573498)
	pt3dadd(54.7634, 119.361, 74.1206, 0.408978)
	pt3dadd(54.506, 119.443, 74.0297, 0.438896)
	pt3dadd(54.2406, 119.542, 73.9097, 0.454324)
	pt3dadd(54.0071, 119.656, 73.7393, 0.51148)
	pt3dadd(53.62, 119.728, 73.6222, 0.430522)
	pt3dadd(53.2469, 119.714, 73.6413, 0.421342)
	pt3dadd(52.9286, 119.813, 73.5402, 0.66289)
	pt3dadd(52.6331, 119.991, 73.3352, 0.738186)
	pt3dadd(52.3524, 120.155, 73.124, 0.893346)
	pt3dadd(51.7385, 120.637, 72.9119, 0.368686)
	pt3dadd(51.1676, 120.605, 72.7541, 0.335854)
	pt3dadd(50.958, 120.641, 72.6457, 0.363822)
	pt3dadd(50.7899, 120.685, 72.5385, 0.33485)
	pt3dadd(50.6199, 120.744, 72.4305, 0.280402)
	pt3dadd(50.4536, 120.754, 72.4377, 0.282936)
	pt3dadd(50.2704, 120.783, 72.5001, 0.255092)
	pt3dadd(50.1022, 120.798, 72.5846, 0.309502)
	pt3dadd(49.8862, 120.828, 72.6301, 0.549918)
	pt3dadd(49.612, 120.907, 72.5761, 0.649576)
	pt3dadd(49.3321, 121.064, 72.3862, 0.666686)
	pt3dadd(49.0657, 121.242, 72.291, 0.605986)
	pt3dadd(48.6884, 121.349, 72.4895, 0.679566)
	pt3dadd(48.3197, 121.546, 72.5159, 0.308756)
	pt3dadd(48.0779, 121.638, 72.5659, 0.1)
	pt3dadd(47.8309, 121.726, 72.6393, 0.268728)
	pt3dadd(47.6587, 121.797, 72.7086, 0.402278)
	pt3dadd(47.4697, 121.882, 72.6997, 0.530924)
	pt3dadd(47.2024, 121.934, 72.7048, 0.658384)
	pt3dadd(46.6567, 122.117, 72.517, 0.510698)
	pt3dadd(46.3641, 122.208, 72.4038, 0.54969)
	pt3dadd(46.0957, 122.27, 72.2913, 0.556818)
	pt3dadd(45.8213, 122.304, 72.1674, 0.506388)
	pt3dadd(45.5047, 122.379, 71.9572, 0.538304)
	pt3dadd(45.2415, 122.444, 71.83, 0.428078)
	pt3dadd(44.9888, 122.507, 71.6917, 0.401562)
	pt3dadd(44.754, 122.53, 71.5746, 0.299464)
	pt3dadd(44.5243, 122.5, 71.4697, 0.298532)
	pt3dadd(44.3124, 122.449, 71.4012, 0.368246)
	pt3dadd(44.0807, 122.411, 71.3417, 0.442406)
	pt3dadd(43.7785, 122.465, 71.326, 0.589668)
	pt3dadd(43.5231, 122.349, 71.1384, 0.681684)
	pt3dadd(42.991, 122.081, 70.9194, 0.544366)
	pt3dadd(42.7054, 122.019, 70.9331, 0.605328)
	pt3dadd(42.3562, 122.029, 70.8281, 0.490016)
	pt3dadd(41.8464, 122.1, 70.8805, 0.388582)
	pt3dadd(41.6032, 122.12, 70.9324, 0.42878)
	pt3dadd(41.3641, 122.144, 71.0026, 0.577188)
	pt3dadd(40.8164, 122.115, 70.8304, 0.577932)
	pt3dadd(40.3283, 122.02, 70.8418, 0.226606)
	pt3dadd(40.0977, 121.985, 70.878, 0.266378)
	pt3dadd(39.9026, 121.974, 70.8699, 0.338532)
	pt3dadd(39.7074, 121.965, 70.8682, 0.394992)
	pt3dadd(39.4624, 121.934, 70.836, 0.44585)
	pt3dadd(39.2345, 121.851, 70.8343, 0.426066)
	pt3dadd(38.9956, 121.777, 70.8095, 0.37714)
	pt3dadd(38.7734, 121.726, 70.8724, 0.385066)
	pt3dadd(38.5177, 121.741, 70.8977, 0.334352)
	pt3dadd(38.3231, 121.794, 70.8798, 0.316882)
	pt3dadd(38.1233, 121.83, 70.8613, 0.397426)
	pt3dadd(37.8932, 121.843, 70.7865, 0.344142)
	pt3dadd(37.6497, 121.83, 70.7094, 0.472308)
	pt3dadd(37.3614, 121.886, 70.5845, 0.585382)
	pt3dadd(37.0737, 121.945, 70.5316, 0.460046)
	pt3dadd(36.7845, 121.909, 70.4558, 0.571228)
	pt3dadd(36.4791, 121.767, 70.3794, 0.438308)
	pt3dadd(36.1678, 121.587, 70.342, 0.444186)
	pt3dadd(35.9062, 121.411, 70.3138, 0.485082)
	pt3dadd(35.6743, 121.193, 70.3028, 0.84192)
	pt3dadd(35.2937, 121.353, 70.2198, 0.487338)
	pt3dadd(34.9632, 121.412, 70.1368, 0.47026)
	pt3dadd(34.6229, 121.347, 70.1452, 0.42015)
	pt3dadd(34.2907, 121.23, 70.1636, 0.390318)
	pt3dadd(33.9801, 121.09, 70.1401, 0.544454)
	pt3dadd(33.6941, 120.918, 70.1009, 0.589784)
	pt3dadd(33.3843, 120.707, 70.0027, 0.48898)
	pt3dadd(33.074, 120.501, 69.9315, 0.41583)
	pt3dadd(32.8478, 120.306, 69.853, 0.399896)
  }
}
proc shape3d_28() {
  dend[26] {	pt3dadd(32.6167, 120.043, 69.7709, 0.24039)
	pt3dadd(32.4429, 119.809, 69.6592, 0.352366)
	pt3dadd(32.2885, 119.57, 69.4981, 0.535294)
	pt3dadd(31.9921, 119.088, 69.652, 0.300286)
	pt3dadd(31.8148, 118.785, 69.6613, 0.384278)
	pt3dadd(31.6456, 118.481, 69.6718, 0.500414)
	pt3dadd(31.4127, 118.213, 69.649, 0.543754)
	pt3dadd(31.2032, 117.944, 69.729, 0.654344)
	pt3dadd(30.9588, 117.525, 69.338, 0.344902)
	pt3dadd(30.8299, 117.351, 69.1916, 0.329794)
	pt3dadd(30.7071, 117.172, 69.1119, 0.378644)
	pt3dadd(30.5687, 116.932, 69.1012, 0.382596)
	pt3dadd(30.4347, 116.687, 68.9951, 0.347526)
	pt3dadd(30.3226, 116.413, 68.9262, 0.449152)
	pt3dadd(30.1936, 116.14, 68.921, 0.69897)
	pt3dadd(29.7194, 115.634, 68.901, 0.455748)
	pt3dadd(29.4584, 115.282, 68.8513, 0.491356)
	pt3dadd(29.282, 114.974, 68.8227, 0.446232)
	pt3dadd(29.1525, 114.719, 68.7801, 0.342476)
	pt3dadd(29.01, 114.448, 68.7071, 0.29598)
	pt3dadd(28.8969, 114.217, 68.6647, 0.368576)
	pt3dadd(28.7892, 113.971, 68.6651, 0.592284)
	pt3dadd(28.6133, 113.709, 68.698, 0.717884)
	pt3dadd(28.4111, 113.423, 68.2728, 0.49114)
	pt3dadd(28.2714, 113.312, 67.987, 0.312674)
	pt3dadd(28.1529, 113.255, 67.7692, 0.304392)
	pt3dadd(28.0159, 113.213, 67.5416, 0.342444)
	pt3dadd(27.8741, 113.172, 67.2988, 0.412642)
	pt3dadd(27.7744, 113.172, 67.0195, 0.48323)
	pt3dadd(27.4502, 112.977, 66.8961, 0.397202)
	pt3dadd(27.2121, 112.829, 66.7909, 0.320504)
	pt3dadd(26.9553, 112.696, 66.6681, 0.403544)
	pt3dadd(26.6197, 112.576, 66.5707, 0.419538)
	pt3dadd(26.3513, 112.508, 66.4958, 0.3191)
	pt3dadd(26.061, 112.401, 66.501, 0.428286)
	pt3dadd(25.7779, 112.256, 66.5665, 0.621192)
	pt3dadd(25.5397, 112.02, 66.6652, 0.706486)
	pt3dadd(24.8, 112.256, 66.2, 0.271912)
	pt3dadd(24.5322, 112.29, 66.2, 0.34502)
	pt3dadd(24.3227, 112.331, 66, 0.395434)
	pt3dadd(24, 112.357, 65.8, 0.440362)
	pt3dadd(23.7487, 112.286, 65.8, 0.497688)
	pt3dadd(23.4099, 112.316, 65.8, 0.33284)
	pt3dadd(23.0094, 112.416, 65.8, 0.34188)
	pt3dadd(22.8025, 112.405, 66, 0.42483)
	pt3dadd(21.5026, 112.761, 66, 0.683974)
	pt3dadd(20.9509, 112.856, 66, 0.382598)
	pt3dadd(20.5881, 112.98, 66.2, 0.323508)
	pt3dadd(20.2269, 113.075, 66.6, 0.368438)
	pt3dadd(19.8222, 113.336, 66.6392, 0.63217)
	pt3dadd(19.4419, 113.607, 66.7057, 0.249984)
	pt3dadd(19.139, 113.771, 66.7972, 0.545398)
	pt3dadd(18.6129, 113.921, 66.8897, 0.839052)
	pt3dadd(18.2902, 114.32, 66.8562, 0.590628)
	pt3dadd(17.9609, 114.553, 66.6586, 0.67324)
	pt3dadd(17.6309, 114.711, 66.5719, 0.325172)
	pt3dadd(17.3998, 114.871, 66.5457, 0.40249)
	pt3dadd(16.9958, 115.254, 66.6249, 0.596746)
	pt3dadd(16.7, 115.392, 66.6, 0.583146)
	pt3dadd(16.3021, 115.603, 66.6, 0.455236)
	pt3dadd(15.6927, 115.888, 66.2, 0.342578)
	pt3dadd(15.5194, 115.99, 66.0676, 0.255658)
	pt3dadd(15.3941, 116.043, 66.1626, 0.243174)
	pt3dadd(15.278, 116.141, 66.2261, 0.288196)
	pt3dadd(14.7382, 116.611, 66.1366, 0.653834)
	pt3dadd(14.3573, 116.928, 66.1775, 0.495684)
	pt3dadd(14.0749, 117.436, 65.6243, 0.507068)
	pt3dadd(13.8776, 117.607, 65.588, 0.259252)
	pt3dadd(13.7245, 117.742, 65.542, 0.334464)
	pt3dadd(13.4119, 118.06, 65.4692, 0.525736)
	pt3dadd(13.1467, 118.436, 65.5693, 0.813304)
	pt3dadd(12.8846, 118.585, 65.2513, 0.81881)
	pt3dadd(12.2827, 118.694, 64.9414, 0.554286)
	pt3dadd(11.9083, 118.971, 64.5751, 0.57475)
	pt3dadd(11.5668, 119.118, 64.1149, 0.733642)
	pt3dadd(11.1181, 119.204, 63.7239, 0.756672)
	pt3dadd(10.8399, 119.317, 63.2986, 0.689468)
	pt3dadd(10.5076, 119.234, 63.0562, 0.333708)
  }
  dend[27] {pt3dclear()
	pt3dadd(87.2126, 123.764, 72.1765, 1.07494)
	pt3dadd(87.0396, 124.327, 70.5913, 1.1064)
	pt3dadd(86.7867, 124.671, 69.8716, 0.84154)
	pt3dadd(86.554, 124.877, 69.2046, 0.747166)
	pt3dadd(86.4095, 124.995, 68.8386, 0.610424)
	pt3dadd(85.9472, 125.065, 68.5041, 0.660972)
	pt3dadd(85.5576, 125.028, 68.1949, 0.702832)
	pt3dadd(85.2758, 125.089, 67.467, 0.966418)
	pt3dadd(85.0027, 125.134, 66.6759, 1.04026)
	pt3dadd(84.9233, 125.293, 65.7359, 1.05365)
	pt3dadd(84.5822, 125.525, 64.8689, 0.92281)
	pt3dadd(84.3182, 125.203, 64.2366, 0.696216)
	pt3dadd(84.0559, 125.038, 63.6668, 0.66569)
	pt3dadd(83.725, 125.157, 63.1927, 0.580976)
	pt3dadd(81.9275, 125.189, 62.4, 0.450504)
	pt3dadd(81.862, 125.114, 62.2, 0.501312)
	pt3dadd(81.5844, 125.038, 62, 0.489642)
	pt3dadd(81.5386, 124.836, 61.4, 0.52415)
	pt3dadd(81.1961, 124.78, 61.2, 0.438562)
	pt3dadd(81.0471, 124.788, 60.8, 0.554402)
	pt3dadd(80.9114, 124.773, 60.6, 0.4829)
	pt3dadd(80.7144, 124.66, 60.4, 0.506458)
	pt3dadd(80.6501, 124.555, 60.2, 0.428)
	pt3dadd(80.5235, 124.468, 60, 0.401762)
	pt3dadd(80.2959, 124.305, 59.6, 0.514296)
	pt3dadd(80.1124, 124.17, 59.2, 0.577538)
	pt3dadd(79.9117, 123.967, 58.8, 0.483988)
	pt3dadd(79.707, 123.788, 58.6, 0.359648)
	pt3dadd(79.643, 123.674, 58.2, 0.25777)
	pt3dadd(79.4866, 123.503, 58, 0.366956)
	pt3dadd(79.4014, 123.299, 58, 0.509288)
	pt3dadd(79.1908, 123.01, 57.8, 0.565982)
	pt3dadd(78.7117, 123.028, 56.8, 0.554344)
	pt3dadd(78.4453, 122.967, 56.6, 0.584866)
	pt3dadd(78.2015, 122.798, 56.4, 0.471162)
	pt3dadd(78.1281, 122.641, 56.2, 0.334514)
	pt3dadd(78.0566, 122.524, 55.8, 0.467722)
	pt3dadd(77.9246, 122.367, 55.6, 0.409328)
	pt3dadd(77.7038, 122.195, 55.4, 0.287378)
	pt3dadd(77.5881, 122.147, 55.2, 0.303074)
	pt3dadd(77.4062, 122.09, 55.2, 0.347894)
	pt3dadd(77.1732, 122.036, 55, 0.361234)
	pt3dadd(77.0082, 121.988, 54.8, 0.311724)
	pt3dadd(76.9101, 121.96, 54.6, 0.328344)
	pt3dadd(76.6869, 121.916, 54.4, 0.546606)
	pt3dadd(76.4097, 121.751, 54.2, 0.705832)
	pt3dadd(76.1687, 121.552, 53.8, 0.805046)
	pt3dadd(76.0814, 121.211, 53.6, 0.422532)
	pt3dadd(76.0046, 120.997, 53.4, 0.375406)
	pt3dadd(75.8662, 120.823, 53.4, 0.270856)
	pt3dadd(75.7894, 120.707, 53.2, 0.197418)
	pt3dadd(75.7142, 120.591, 53, 0.320066)
	pt3dadd(75.6542, 120.434, 52.8, 0.453962)
	pt3dadd(75.5701, 120.322, 52.4, 0.39381)
	pt3dadd(75.4664, 120.22, 52.2, 0.274716)
	pt3dadd(75.3723, 120.134, 52, 0.161722)
	pt3dadd(75.2065, 119.992, 51.8, 0.286478)
	pt3dadd(75.0208, 119.869, 51.8, 0.283962)
	pt3dadd(74.8027, 119.796, 51.4, 0.346754)
	pt3dadd(74.5126, 119.669, 51, 0.432162)
	pt3dadd(74.3979, 119.604, 51, 0.430374)
	pt3dadd(74.2025, 119.495, 50.8, 0.446788)
	pt3dadd(74.0922, 119.413, 50.6, 0.399798)
	pt3dadd(73.9648, 119.343, 50.4, 0.393416)
	pt3dadd(73.6851, 119.28, 50, 0.618856)
	pt3dadd(73.4517, 119.485, 49.6, 0.509668)
	pt3dadd(73.3563, 119.691, 49.2, 0.278222)
	pt3dadd(72.7532, 119.763, 49, 0.490056)
	pt3dadd(72.7933, 119.705, 48.6, 0.64134)
	pt3dadd(72.1, 119.524, 48.2, 0.424172)
	pt3dadd(72.1138, 119.533, 47.8, 0.420546)
	pt3dadd(71.4059, 119.29, 47.6, 0.350874)
	pt3dadd(71.3386, 119.257, 47.2, 0.411168)
	pt3dadd(70.8803, 119.148, 46.8, 0.373486)
	pt3dadd(70.1275, 118.954, 46.6, 0.27976)
	pt3dadd(70.1302, 118.959, 46.4, 0.233076)
	pt3dadd(69.9841, 118.916, 46.2, 0.224148)
	pt3dadd(69.9892, 118.918, 46, 0.317342)
	pt3dadd(69.994, 118.92, 45.8, 0.373566)
	pt3dadd(69.6935, 118.812, 45.6, 0.41108)
	pt3dadd(69.5986, 118.807, 45.2, 0.59414)
	pt3dadd(68.7035, 118.796, 44.8, 0.549152)
	pt3dadd(68.5736, 118.756, 44.4, 0.518466)
	pt3dadd(68.2841, 118.78, 44, 0.442328)
	pt3dadd(67.9853, 118.713, 43.6, 0.497914)
	pt3dadd(67.8883, 118.728, 43.2, 0.450214)
	pt3dadd(67.6888, 118.637, 43, 0.340442)
	pt3dadd(67.2091, 118.485, 42.6, 0.4178)
	pt3dadd(66.5446, 118.375, 42.4, 0.36438)
	pt3dadd(66.4165, 118.3, 41.8, 0.54972)
	pt3dadd(66.2822, 118.124, 41.4, 0.428316)
	pt3dadd(66.1, 118.035, 41.2, 0.412018)
	pt3dadd(65.9147, 117.964, 40.8, 0.422564)
	pt3dadd(65.281, 117.854, 40.6, 0.39038)
	pt3dadd(65.3, 117.857, 40.2, 0.475716)
	pt3dadd(65.1985, 117.898, 39.8, 0.552692)
	pt3dadd(64.6964, 117.995, 39.4, 0.343014)
	pt3dadd(64.5938, 118.091, 39.2, 0.455628)
	pt3dadd(64.3917, 118.18, 38.8, 0.549212)
	pt3dadd(64.1991, 118.299, 38.6, 0.462758)
	pt3dadd(63.9328, 118.569, 38.2, 0.509664)
	pt3dadd(63.4139, 118.571, 38, 0.383654)
	pt3dadd(63.5757, 118.651, 37.8, 0.535332)
	pt3dadd(63.8299, 118.656, 37.6, 0.5526)
	pt3dadd(63.58, 118.992, 37.2, 0.464696)
	pt3dadd(63.5154, 119.306, 36.8, 0.597138)
	pt3dadd(63.3739, 119.589, 36.6, 0.479802)
	pt3dadd(63.2849, 119.692, 36.4, 0.359448)
	pt3dadd(63.2093, 119.806, 36.2, 0.407636)
	pt3dadd(63.1, 119.9, 36, 0.516916)
	pt3dadd(62.7593, 119.968, 35.4, 0.538626)
	pt3dadd(62.9709, 120.288, 34.8, 0.899398)
	pt3dadd(62.9793, 120.533, 34.4, 0.66585)
	pt3dadd(62.8587, 120.859, 34, 0.666288)
	pt3dadd(62.8677, 121.087, 33.6, 0.49321)
	pt3dadd(62.9283, 121.123, 33, 0.532372)
	pt3dadd(62.8138, 121.233, 33, 0.575996)
	pt3dadd(62.818, 121.4, 32.6, 0.635224)
	pt3dadd(62.8309, 121.717, 32.4, 0.474804)
	pt3dadd(62.7745, 121.889, 32.2, 0.447268)
	pt3dadd(62.7673, 122.086, 32, 0.419514)
	pt3dadd(62.7417, 122.2, 31.8, 0.458008)
  }
}
proc shape3d_29() {
  dend[27] {	pt3dadd(62.6283, 122.468, 31.6, 0.644106)
	pt3dadd(62.4107, 122.526, 31.2, 0.560832)
	pt3dadd(62.2494, 122.398, 30.8, 0.49037)
	pt3dadd(62.1942, 122.599, 30.6, 0.587956)
	pt3dadd(62.1085, 122.604, 30.2, 0.538448)
	pt3dadd(61.9968, 122.752, 29.8, 0.608992)
	pt3dadd(62.059, 122.968, 29.4, 0.525436)
	pt3dadd(61.9347, 123.225, 28.8, 0.46101)
	pt3dadd(61.8691, 123.41, 28.4, 0.463586)
	pt3dadd(61.8207, 123.49, 28, 0.41669)
	pt3dadd(61.8565, 123.592, 27.4, 0.277504)
	pt3dadd(61.8885, 123.7, 27, 0.375274)
	pt3dadd(61.9012, 123.959, 26.8, 0.46355)
	pt3dadd(61.8018, 124.102, 26.6, 0.487842)
	pt3dadd(62.0904, 124.212, 26.2, 0.480696)
	pt3dadd(62.2721, 124.352, 25.8, 0.553062)
	pt3dadd(62.3884, 124.506, 25.2, 0.652704)
	pt3dadd(62.52, 124.582, 24.6, 0.513532)
	pt3dadd(62.5988, 124.795, 24.2, 0.591898)
	pt3dadd(62.589, 124.942, 24, 0.46366)
	pt3dadd(62.6863, 125.107, 23.6, 0.416554)
	pt3dadd(62.7808, 125.308, 23.2, 0.474012)
	pt3dadd(62.7938, 125.315, 22.8, 0.610696)
	pt3dadd(62.6519, 125.332, 22.2, 0.594312)
	pt3dadd(62.4713, 125.488, 21.8, 0.559256)
	pt3dadd(61.7122, 125.629, 21.2, 0.581916)
	pt3dadd(62.4129, 125.712, 20.6, 0.543182)
	pt3dadd(62.1, 125.872, 20, 0.41504)
	pt3dadd(61.5223, 125.973, 19.6, 0.467154)
	pt3dadd(61.4032, 126.003, 19.2, 0.550066)
	pt3dadd(61.4029, 126.1, 18.8, 0.333232)
	pt3dadd(60.4452, 126.767, 18, 0.44462)
	pt3dadd(60.4311, 126.9, 17.6, 0.460166)
	pt3dadd(60.4514, 127, 17.4, 0.416138)
	pt3dadd(60.4592, 127.117, 17.2, 0.397034)
	pt3dadd(60.4221, 127.212, 17, 0.359966)
	pt3dadd(60.4056, 127.3, 16.8, 0.387986)
	pt3dadd(60.2974, 127.495, 16.6, 0.40758)
	pt3dadd(60.1968, 127.593, 16.4, 0.443778)
	pt3dadd(60.0711, 127.796, 16, 0.457908)
	pt3dadd(60.0611, 128.016, 16, 0.400588)
	pt3dadd(60.0389, 128.1, 15.8, 0.276176)
	pt3dadd(60.0268, 128.222, 15.8, 0.234556)
	pt3dadd(60.0021, 128.3, 15.6, 0.196412)
	pt3dadd(59.9965, 128.597, 15.4, 0.553926)
	pt3dadd(59.7864, 128.786, 15, 0.525656)
	pt3dadd(59.6599, 128.986, 14.6, 0.487218)
	pt3dadd(59.5287, 129.221, 14.2, 0.388736)
	pt3dadd(59.5186, 129.43, 14, 0.365832)
	pt3dadd(59.5186, 129.511, 13.8, 0.41332)
	pt3dadd(59.3999, 129.7, 13.8, 0.404898)
	pt3dadd(59.3571, 129.757, 13.6, 0.400566)
	pt3dadd(59.2141, 129.919, 13.4, 0.28492)
	pt3dadd(59.1165, 129.983, 13.4, 0.229414)
  }
  dend[28] {pt3dclear()
	pt3dadd(115.745, 125.091, 80.1781, 1.0576)
	pt3dadd(119.099, 118.008, 86.4741, 1.0576)
	pt3dadd(119.383, 117.409, 87.0067, 0.829464)
  }
  dend[29] {pt3dclear()
	pt3dadd(119.383, 117.409, 87.0067, 0.829464)
	pt3dadd(120.342, 116.593, 87.3343, 1.14135)
	pt3dadd(120.997, 116.261, 87.6049, 0.757754)
	pt3dadd(121.44, 115.967, 87.9155, 0.870156)
	pt3dadd(121.802, 115.63, 88.2489, 0.936088)
	pt3dadd(122.207, 115.212, 88.6438, 0.92383)
	pt3dadd(122.474, 114.945, 88.9266, 0.995152)
	pt3dadd(123.158, 114.633, 89.443, 0.858452)
	pt3dadd(123.496, 114.515, 89.7337, 0.892992)
	pt3dadd(123.867, 114.394, 90.0422, 0.84512)
	pt3dadd(124.197, 114.278, 90.3427, 0.910674)
	pt3dadd(124.592, 114.164, 90.7033, 0.862452)
	pt3dadd(124.915, 114.056, 91.0185, 0.684204)
	pt3dadd(125.291, 113.94, 91.2769, 0.799922)
	pt3dadd(125.792, 113.768, 91.4349, 0.889276)
	pt3dadd(126.272, 113.609, 91.564, 1.01958)
	pt3dadd(127.213, 113.323, 91.8735, 0.825128)
	pt3dadd(127.693, 113.178, 91.9765, 0.787466)
	pt3dadd(128.2, 112.967, 92.1513, 0.963182)
	pt3dadd(128.953, 112.563, 92.5438, 1.00259)
  }
  dend[30] {pt3dclear()
	pt3dadd(128.953, 112.563, 92.5438, 1.00259)
	pt3dadd(129.249, 112.039, 93.4105, 0.951294)
	pt3dadd(129.46, 111.727, 93.8483, 0.834474)
	pt3dadd(129.611, 111.511, 94.1901, 0.886892)
	pt3dadd(129.734, 111.101, 94.7663, 1.00286)
	pt3dadd(129.883, 110.688, 95.7299, 0.928202)
	pt3dadd(130.115, 110.482, 96.3857, 0.847162)
	pt3dadd(130.536, 110.25, 96.9063, 0.827294)
	pt3dadd(130.757, 109.955, 97.8642, 0.989874)
	pt3dadd(130.709, 109.823, 98.4315, 1.1116)
	pt3dadd(130.599, 109.61, 98.9933, 1.04801)
	pt3dadd(130.529, 109.341, 99.4571, 1.19712)
	pt3dadd(130.426, 108.823, 100.127, 1.2666)
	pt3dadd(130.292, 108.373, 100.845, 1.16563)
	pt3dadd(130.18, 107.994, 101.448, 0.952054)
  }
  dend[31] {pt3dclear()
	pt3dadd(130.18, 107.994, 101.448, 0.952054)
	pt3dadd(129.842, 107.335, 101.794, 0.520404)
	pt3dadd(129.74, 106.992, 101.888, 0.643566)
	pt3dadd(129.726, 106.621, 102.085, 0.724792)
	pt3dadd(129.765, 106.282, 102.34, 0.980366)
	pt3dadd(129.734, 105.703, 102.736, 0.861256)
	pt3dadd(129.675, 105.193, 103.021, 0.570878)
	pt3dadd(129.583, 104.908, 103.324, 0.584472)
	pt3dadd(129.511, 104.671, 103.511, 0.572568)
	pt3dadd(129.361, 104.259, 103.813, 0.526946)
	pt3dadd(129.24, 103.817, 104.081, 0.938284)
	pt3dadd(129.383, 103.198, 104.552, 1.2601)
	pt3dadd(129.607, 102.546, 104.837, 0.613634)
	pt3dadd(129.671, 102.168, 104.776, 0.426132)
	pt3dadd(129.716, 101.947, 104.809, 0.344946)
	pt3dadd(129.787, 101.728, 104.894, 0.554424)
	pt3dadd(129.946, 101.233, 105.12, 0.902574)
	pt3dadd(129.802, 100.625, 105.265, 1.28249)
	pt3dadd(129.674, 99.8334, 105.415, 0.818118)
	pt3dadd(129.711, 99.3991, 105.514, 0.93637)
	pt3dadd(129.826, 98.9282, 105.566, 0.921308)
	pt3dadd(129.872, 98.4127, 105.752, 0.387582)
	pt3dadd(129.905, 98.2027, 105.804, 0.364196)
	pt3dadd(129.957, 97.9666, 105.848, 0.445416)
	pt3dadd(130.091, 97.7065, 105.86, 0.567832)
	pt3dadd(130.233, 97.4387, 105.963, 0.869474)
	pt3dadd(130.294, 96.8991, 106.339, 0.754454)
	pt3dadd(130.381, 96.4448, 106.734, 0.599532)
	pt3dadd(130.443, 96.2184, 106.943, 0.491752)
	pt3dadd(130.493, 96.015, 107.119, 0.49326)
	pt3dadd(130.522, 95.8107, 107.298, 0.621808)
	pt3dadd(130.542, 95.5584, 107.514, 0.697424)
	pt3dadd(130.57, 95.294, 107.757, 0.781956)
	pt3dadd(130.702, 94.7072, 108.215, 0.758952)
	pt3dadd(130.785, 94.4429, 108.501, 0.793418)
	pt3dadd(130.727, 93.6747, 109.051, 0.720108)
	pt3dadd(130.629, 93.3641, 109.295, 0.720258)
	pt3dadd(130.53, 93.0474, 109.61, 0.830418)
	pt3dadd(130.58, 92.7931, 110.072, 0.835834)
	pt3dadd(130.367, 92.4568, 110.441, 0.652634)
	pt3dadd(130.21, 92.2452, 110.74, 0.718726)
	pt3dadd(129.94, 92.0376, 111.043, 1.02683)
	pt3dadd(129.751, 91.8003, 112.095, 0.955414)
	pt3dadd(129.187, 91.0917, 112.365, 0.353346)
	pt3dadd(128.99, 90.8708, 112.496, 0.461256)
	pt3dadd(128.784, 90.658, 112.63, 0.581586)
	pt3dadd(128.609, 90.384, 112.952, 0.610642)
	pt3dadd(128.496, 90.1766, 113.21, 0.467512)
	pt3dadd(128.359, 89.9648, 113.373, 0.422758)
	pt3dadd(128.221, 89.7998, 113.479, 0.304004)
	pt3dadd(128.048, 89.6208, 113.634, 0.300104)
	pt3dadd(127.832, 89.4686, 113.816, 0.232638)
	pt3dadd(127.686, 89.3675, 113.939, 0.308216)
	pt3dadd(127.544, 89.2876, 114.096, 0.504876)
	pt3dadd(127.352, 89.1892, 114.515, 0.477106)
	pt3dadd(127.241, 89.1238, 114.722, 0.414552)
	pt3dadd(127.111, 89.0574, 114.933, 0.448572)
	pt3dadd(126.973, 89.0027, 115.133, 0.502504)
	pt3dadd(126.851, 88.9224, 115.346, 0.653334)
	pt3dadd(126.664, 88.5397, 115.969, 0.864812)
	pt3dadd(126.556, 88.3197, 116.328, 0.549392)
	pt3dadd(126.14, 88.0808, 116.983, 0.80312)
  }
  dend[32] {pt3dclear()
	pt3dadd(130.18, 107.994, 101.448, 0.952054)
	pt3dadd(130.132, 108.198, 102.438, 1.27865)
	pt3dadd(130.308, 108.088, 103.579, 1.4305)
	pt3dadd(130.224, 107.954, 104.974, 0.840364)
	pt3dadd(130.063, 107.945, 105.446, 0.973562)
	pt3dadd(130.045, 108.391, 106.251, 0.960534)
	pt3dadd(130.311, 108.714, 106.899, 0.886516)
	pt3dadd(130.443, 108.838, 107.634, 0.825784)
	pt3dadd(130.446, 109.011, 108.244, 0.705358)
	pt3dadd(130.619, 109.351, 108.872, 0.840244)
	pt3dadd(130.977, 109.203, 109.414, 1.54858)
	pt3dadd(131.413, 109.119, 110.43, 1.28056)
	pt3dadd(131.443, 109.185, 111.349, 1.09496)
	pt3dadd(131.612, 109.677, 111.681, 0.532814)
	pt3dadd(131.688, 109.9, 111.902, 0.509334)
	pt3dadd(131.751, 110.092, 112.143, 0.766408)
	pt3dadd(131.852, 110.274, 112.476, 0.870786)
	pt3dadd(131.948, 110.332, 113.432, 0.758014)
  }
  dend[33] {pt3dclear()
	pt3dadd(131.948, 110.332, 113.432, 0.758014)
	pt3dadd(132.234, 110.847, 113.763, 0.1)
	pt3dadd(132.32, 111.002, 113.862, 0.133248)
	pt3dadd(132.411, 111.124, 114, 0.224316)
	pt3dadd(132.511, 111.248, 114.171, 0.358108)
	pt3dadd(132.562, 111.385, 114.318, 0.36842)
	pt3dadd(132.588, 111.555, 114.464, 0.391128)
	pt3dadd(132.614, 111.713, 114.6, 0.368652)
	pt3dadd(132.618, 111.892, 114.745, 0.62314)
	pt3dadd(132.557, 112.266, 115.116, 1.02004)
	pt3dadd(132.653, 112.879, 115.437, 0.852032)
	pt3dadd(132.873, 113.202, 115.776, 0.713584)
	pt3dadd(133.151, 113.515, 116.182, 0.46326)
	pt3dadd(133.265, 113.681, 116.392, 0.583558)
	pt3dadd(133.401, 113.834, 116.638, 0.77632)
	pt3dadd(133.606, 114.008, 116.943, 0.601494)
	pt3dadd(133.801, 114.178, 117.206, 0.371932)
	pt3dadd(133.978, 114.245, 117.517, 0.267788)
	pt3dadd(134.469, 114.574, 117.474, 0.368064)
	pt3dadd(134.748, 114.732, 117.546, 0.504428)
	pt3dadd(135.038, 114.883, 117.648, 0.985316)
	pt3dadd(135.708, 115.272, 117.898, 0.797102)
	pt3dadd(136.292, 115.604, 118.234, 0.48932)
	pt3dadd(136.511, 115.769, 118.435, 0.453766)
	pt3dadd(136.709, 115.92, 118.656, 0.619646)
	pt3dadd(136.97, 115.983, 118.872, 0.814662)
	pt3dadd(137.572, 115.856, 119.286, 0.862106)
	pt3dadd(137.778, 116.419, 119.563, 0.26551)
  }
}
proc shape3d_30() {
  dend[33] {	pt3dadd(137.848, 116.575, 119.709, 0.272994)
	pt3dadd(137.898, 116.736, 119.865, 0.340258)
	pt3dadd(137.96, 116.888, 120.002, 0.356722)
	pt3dadd(138.039, 117.077, 120.164, 0.332248)
	pt3dadd(138.126, 117.268, 120.279, 0.349084)
	pt3dadd(138.251, 117.414, 120.41, 0.382814)
	pt3dadd(138.429, 117.521, 120.544, 0.36887)
	pt3dadd(138.635, 117.624, 120.671, 0.468416)
	pt3dadd(138.856, 117.756, 120.77, 0.616568)
	pt3dadd(139.352, 117.825, 121, 0.749278)
	pt3dadd(139.814, 117.702, 121.249, 0.66924)
	pt3dadd(140.291, 117.88, 121.556, 0.599152)
	pt3dadd(140.526, 118.092, 121.722, 0.718636)
	pt3dadd(140.965, 118.103, 122.116, 0.4878)
	pt3dadd(141.17, 118.063, 122.266, 0.38713)
	pt3dadd(141.354, 118.005, 122.393, 0.33912)
	pt3dadd(141.524, 117.923, 122.486, 0.405564)
	pt3dadd(141.711, 117.893, 122.567, 0.414684)
	pt3dadd(141.912, 117.9, 122.634, 0.412912)
	pt3dadd(142.324, 117.992, 122.834, 0.44621)
	pt3dadd(142.54, 118.058, 122.955, 0.552614)
	pt3dadd(142.75, 118.147, 123.113, 0.788516)
	pt3dadd(143.606, 118.457, 123.62, 0.606512)
	pt3dadd(143.916, 118.612, 123.78, 0.509334)
	pt3dadd(144.202, 118.758, 123.989, 0.572612)
	pt3dadd(144.489, 118.969, 124.111, 0.6566)
	pt3dadd(144.755, 119.238, 124.136, 0.796054)
	pt3dadd(145.15, 119.21, 124.719, 0.677556)
	pt3dadd(145.647, 119.265, 125.1, 0.427964)
	pt3dadd(145.957, 119.308, 125.253, 0.477494)
	pt3dadd(146.211, 119.367, 125.339, 0.480262)
	pt3dadd(146.428, 119.46, 125.473, 0.465086)
	pt3dadd(146.64, 119.593, 125.64, 0.455014)
	pt3dadd(146.879, 119.76, 125.815, 0.498776)
	pt3dadd(147.117, 119.922, 125.95, 0.51611)
	pt3dadd(147.363, 120.059, 126.119, 0.654736)
	pt3dadd(147.858, 120.241, 126.486, 0.795392)
	pt3dadd(148.397, 120.328, 126.541, 0.413376)
	pt3dadd(148.666, 120.405, 126.724, 0.318418)
	pt3dadd(148.828, 120.511, 126.861, 0.315336)
	pt3dadd(148.987, 120.638, 127.015, 0.427468)
	pt3dadd(149.154, 120.78, 127.143, 0.775694)
	pt3dadd(149.481, 121.058, 127.394, 0.695704)
	pt3dadd(150.583, 121.099, 127.455, 0.516512)
	pt3dadd(150.945, 121.2, 127.596, 0.792282)
	pt3dadd(151.159, 121.446, 127.836, 0.87606)
	pt3dadd(151.691, 122.169, 128.495, 0.891856)
	pt3dadd(152.061, 122.621, 129.143, 0.647536)
	pt3dadd(152.266, 123.051, 129.195, 0.293206)
	pt3dadd(152.354, 123.25, 129.25, 0.324984)
	pt3dadd(152.412, 123.466, 129.322, 0.574076)
	pt3dadd(152.522, 123.798, 129.4, 0.75254)
	pt3dadd(152.71, 124.294, 129.8, 0.736278)
	pt3dadd(152.83, 124.699, 129.6, 0.933128)
	pt3dadd(153.564, 125.387, 129.958, 1.15986)
	pt3dadd(154.061, 125.879, 130.546, 1.03172)
	pt3dadd(154.569, 126.702, 130.999, 0.521652)
	pt3dadd(154.716, 127.04, 131.059, 0.582666)
	pt3dadd(154.935, 127.336, 131.139, 0.660758)
	pt3dadd(155.125, 127.63, 131.197, 0.641042)
	pt3dadd(155.283, 127.938, 131.334, 0.747108)
	pt3dadd(155.529, 128.881, 131.337, 0.613986)
	pt3dadd(155.593, 129.226, 131.37, 0.770072)
	pt3dadd(155.748, 130.063, 131.451, 1.01083)
  }
  dend[34] {pt3dclear()
	pt3dadd(131.948, 110.332, 113.432, 0.758014)
	pt3dadd(132.659, 109.925, 114.277, 0.800508)
	pt3dadd(133.059, 109.73, 114.846, 1.00403)
	pt3dadd(133.196, 109.34, 115.467, 1.21066)
	pt3dadd(133.054, 109.184, 116.282, 1.1018)
	pt3dadd(133.668, 108.558, 117.09, 0.512762)
	pt3dadd(133.857, 108.364, 117.262, 0.598996)
	pt3dadd(134.039, 108.134, 117.393, 0.510226)
	pt3dadd(134.225, 107.88, 117.481, 0.583922)
	pt3dadd(134.53, 107.423, 117.754, 0.6909)
	pt3dadd(134.966, 107.168, 118.223, 0.676816)
	pt3dadd(135.284, 106.886, 118.609, 0.699446)
	pt3dadd(135.535, 106.563, 119.01, 0.880284)
	pt3dadd(135.781, 106.196, 119.419, 0.981396)
	pt3dadd(136.233, 106.022, 120.118, 0.890684)
	pt3dadd(136.672, 105.908, 120.68, 0.972038)
	pt3dadd(137.013, 105.597, 121.178, 0.943942)
	pt3dadd(137.517, 105.545, 121.513, 0.565028)
	pt3dadd(137.898, 105.532, 121.61, 0.357558)
	pt3dadd(138.075, 105.53, 121.653, 0.40582)
	pt3dadd(138.419, 105.515, 121.699, 0.59141)
	pt3dadd(138.864, 105.484, 121.792, 0.808742)
	pt3dadd(139.095, 105.072, 122.42, 0.65475)
	pt3dadd(139.372, 104.855, 122.847, 0.56913)
	pt3dadd(139.798, 104.651, 123.154, 0.77146)
	pt3dadd(140.064, 104.381, 123.367, 0.499368)
	pt3dadd(140.256, 104.227, 123.507, 0.57063)
	pt3dadd(140.451, 104.088, 123.684, 0.82893)
	pt3dadd(140.906, 103.814, 124.124, 1.26682)
	pt3dadd(141.439, 103.383, 124.899, 1.068)
	pt3dadd(142.221, 102.844, 125.619, 0.729096)
	pt3dadd(142.7, 102.416, 125.879, 0.558744)
	pt3dadd(142.994, 102.346, 126.362, 0.545508)
	pt3dadd(143.161, 102.258, 126.602, 0.635434)
	pt3dadd(143.468, 102.016, 127.044, 0.791162)
	pt3dadd(143.602, 101.785, 127.511, 0.795046)
	pt3dadd(143.351, 101.701, 128.146, 0.519974)
	pt3dadd(143.149, 101.593, 128.624, 0.728688)
	pt3dadd(143.244, 101.223, 129.07, 0.719704)
	pt3dadd(143.522, 100.602, 129.295, 1.03097)
	pt3dadd(144.307, 99.9286, 129.993, 0.969652)
	pt3dadd(144.72, 99.6395, 129.985, 0.55022)
	pt3dadd(144.957, 99.4566, 130.014, 0.449626)
	pt3dadd(145.162, 99.2651, 130.021, 0.426406)
	pt3dadd(145.414, 99.0967, 130.018, 0.400106)
	pt3dadd(145.613, 98.9417, 130.018, 0.622544)
	pt3dadd(146.004, 98.5208, 129.987, 0.727888)
	pt3dadd(146.458, 98.0262, 130.254, 0.809182)
	pt3dadd(147.187, 98.0484, 130.552, 0.573262)
	pt3dadd(147.566, 98.1568, 130.705, 0.809956)
	pt3dadd(147.799, 98.0251, 131.331, 0.671316)
	pt3dadd(148.28, 97.7986, 131.726, 0.40885)
	pt3dadd(148.523, 97.6789, 131.879, 0.68503)
	pt3dadd(148.784, 97.4505, 132.001, 1.07751)
	pt3dadd(149.026, 96.8756, 132.678, 1.08117)
	pt3dadd(148.91, 96.7775, 133.704, 0.82945)
	pt3dadd(148.626, 96.6118, 134.352, 0.782742)
	pt3dadd(148.453, 96.4671, 134.657, 0.701366)
  }
  dend[35] {pt3dclear()
	pt3dadd(128.953, 112.563, 92.5438, 1.00259)
	pt3dadd(129.842, 112.36, 92.6353, 0.61812)
	pt3dadd(130.22, 112.303, 92.6423, 0.430064)
	pt3dadd(130.586, 112.177, 92.7094, 0.556428)
	pt3dadd(130.917, 112.024, 92.7561, 0.559614)
	pt3dadd(131.31, 111.938, 92.6713, 0.570808)
	pt3dadd(131.726, 111.881, 92.57, 0.482994)
	pt3dadd(132.177, 111.813, 92.4852, 0.55061)
	pt3dadd(132.709, 111.67, 92.4363, 0.708938)
	pt3dadd(133.321, 111.531, 92.2409, 0.714516)
	pt3dadd(133.83, 111.409, 92.1699, 0.751308)
	pt3dadd(134.351, 111.294, 92.05, 0.689392)
	pt3dadd(135.014, 111.08, 91.8713, 0.752096)
	pt3dadd(135.589, 110.894, 91.7165, 1.00233)
  }
  dend[36] {pt3dclear()
	pt3dadd(135.589, 110.894, 91.7165, 1.00233)
	pt3dadd(136.519, 110.828, 90.8733, 0.448624)
	pt3dadd(136.784, 110.827, 90.4131, 0.438842)
	pt3dadd(136.841, 110.607, 89.7801, 0.75184)
	pt3dadd(137.057, 110.353, 89.2313, 0.632396)
	pt3dadd(137.39, 110.28, 88.5897, 0.636296)
	pt3dadd(137.478, 110.283, 88.2256, 0.682862)
	pt3dadd(137.662, 110.313, 87.5626, 0.870606)
	pt3dadd(137.714, 110.269, 87.1148, 0.960526)
	pt3dadd(138.176, 110.367, 86.5985, 0.650352)
	pt3dadd(138.574, 110.257, 86.1129, 0.399156)
	pt3dadd(138.846, 109.996, 85.9007, 0.27501)
	pt3dadd(139.019, 109.823, 85.7006, 0.242848)
	pt3dadd(139.156, 109.689, 85.5382, 0.308098)
	pt3dadd(139.284, 109.545, 85.4166, 0.362422)
	pt3dadd(139.454, 109.368, 85.372, 0.498036)
	pt3dadd(139.677, 109.227, 85.2301, 0.406652)
	pt3dadd(139.898, 109.087, 85.059, 0.531974)
	pt3dadd(140.157, 108.867, 84.7984, 0.360678)
	pt3dadd(140.556, 108.418, 84.893, 0.454804)
	pt3dadd(140.936, 108.05, 84.8726, 0.571642)
	pt3dadd(141.383, 107.893, 84.0822, 0.407506)
	pt3dadd(141.568, 107.872, 83.6561, 0.695326)
	pt3dadd(141.715, 107.896, 83.2769, 0.865972)
	pt3dadd(142.002, 107.593, 82.9705, 0.557732)
	pt3dadd(142.173, 107.34, 82.7759, 0.628992)
	pt3dadd(142.37, 107.106, 82.6238, 0.826196)
	pt3dadd(142.788, 106.651, 82.2373, 0.466644)
	pt3dadd(143.019, 106.469, 82.0704, 0.459566)
	pt3dadd(143.373, 106.286, 81.8749, 0.814826)
	pt3dadd(143.816, 105.823, 81.4046, 0.731156)
	pt3dadd(144.043, 105.53, 81.1904, 0.630234)
	pt3dadd(144.298, 105.069, 80.9732, 0.604108)
	pt3dadd(144.63, 104.651, 80.5705, 0.44902)
	pt3dadd(144.8, 104.48, 80.4322, 0.507306)
	pt3dadd(144.976, 104.273, 80.3184, 0.663586)
	pt3dadd(145.444, 103.858, 80.1898, 0.785764)
	pt3dadd(145.846, 103.587, 80, 0.648304)
	pt3dadd(146.411, 103.115, 79.5595, 0.591146)
	pt3dadd(146.713, 102.814, 79.5339, 0.692078)
	pt3dadd(146.951, 102.528, 79.7476, 0.860696)
	pt3dadd(147.228, 102.117, 79.4378, 0.593344)
	pt3dadd(147.391, 101.836, 79.2099, 0.675788)
	pt3dadd(147.567, 101.53, 79.073, 0.43938)
	pt3dadd(147.673, 101.345, 78.9614, 0.33065)
	pt3dadd(147.776, 101.16, 78.8774, 0.36961)
	pt3dadd(147.912, 100.926, 78.803, 0.38971)
	pt3dadd(148.041, 100.724, 78.773, 0.382086)
	pt3dadd(148.197, 100.531, 78.7005, 0.306504)
	pt3dadd(148.339, 100.348, 78.6653, 0.379566)
	pt3dadd(148.526, 100.142, 78.6249, 0.49332)
	pt3dadd(148.73, 99.8778, 78.6559, 0.557286)
	pt3dadd(148.919, 99.6017, 78.5715, 0.565278)
	pt3dadd(149.045, 99.3619, 78.854, 0.644716)
	pt3dadd(149.425, 98.8382, 78.5972, 0.284338)
	pt3dadd(149.636, 98.554, 78.6627, 0.226076)
	pt3dadd(149.777, 98.3732, 78.7371, 0.271116)
	pt3dadd(149.932, 98.2086, 78.7326, 0.184256)
	pt3dadd(150.107, 98.0383, 78.7303, 0.202442)
	pt3dadd(150.353, 97.8056, 78.5958, 0.1)
	pt3dadd(150.495, 97.6243, 78.5651, 0.27227)
	pt3dadd(150.647, 97.4518, 78.6165, 0.534486)
	pt3dadd(150.817, 97.2499, 78.7234, 0.652376)
	pt3dadd(151.021, 96.9561, 78.8352, 0.824594)
  }
}
proc shape3d_31() {
  dend[36] {	pt3dadd(151.338, 96.0093, 78.8456, 0.38091)
	pt3dadd(151.442, 95.6551, 78.7866, 0.357702)
	pt3dadd(151.498, 95.4018, 78.6767, 0.378128)
	pt3dadd(151.545, 95.2269, 78.5436, 0.32602)
	pt3dadd(151.549, 95.0399, 78.4533, 0.309428)
	pt3dadd(151.54, 94.8231, 78.4293, 0.349068)
	pt3dadd(151.521, 94.5686, 78.3685, 0.38977)
	pt3dadd(151.514, 94.3168, 78.2539, 0.524362)
	pt3dadd(151.566, 93.9546, 78.0523, 0.7471)
	pt3dadd(151.773, 93.6067, 77.9082, 0.758468)
	pt3dadd(152.136, 93.0804, 77.3616, 0.651838)
	pt3dadd(152.478, 92.4932, 77.0775, 0.403488)
	pt3dadd(152.675, 92.2225, 76.9586, 0.360014)
	pt3dadd(152.859, 91.9315, 76.9646, 0.542858)
	pt3dadd(152.98, 91.5745, 77.16, 0.626876)
	pt3dadd(153.046, 91.2777, 77.37, 0.594924)
	pt3dadd(153.176, 90.7487, 76.8693, 0.480298)
	pt3dadd(153.217, 90.5557, 76.7141, 0.460346)
	pt3dadd(153.342, 90.1399, 76.5735, 0.24404)
	pt3dadd(153.413, 89.9288, 76.4726, 0.284816)
	pt3dadd(153.514, 89.7038, 76.2717, 0.270974)
	pt3dadd(153.622, 89.5067, 76.1392, 0.297098)
	pt3dadd(153.735, 89.2689, 76.0041, 0.494244)
	pt3dadd(153.829, 88.9962, 75.899, 0.44934)
	pt3dadd(153.907, 88.767, 75.7847, 0.38047)
	pt3dadd(153.935, 88.4872, 75.7428, 0.439968)
	pt3dadd(153.969, 88.2184, 75.7231, 0.509246)
	pt3dadd(154.01, 87.9056, 75.6261, 0.596422)
	pt3dadd(154.182, 87.5961, 75.432, 0.88766)
	pt3dadd(154.286, 87.0857, 75.3015, 0.893494)
	pt3dadd(154.299, 86.4936, 75.5499, 0.600352)
	pt3dadd(154.323, 86.2066, 75.6585, 0.56923)
	pt3dadd(154.403, 85.6475, 75.702, 0.417882)
	pt3dadd(154.462, 85.3518, 75.6743, 0.472016)
	pt3dadd(154.496, 85.0522, 75.7062, 0.529414)
	pt3dadd(154.515, 84.7284, 75.7433, 0.475418)
	pt3dadd(154.517, 84.4176, 75.8825, 0.442504)
	pt3dadd(154.583, 83.722, 75.3742, 0.375474)
	pt3dadd(154.602, 83.5421, 75.2212, 0.379012)
	pt3dadd(154.609, 83.3698, 75.1009, 0.378296)
	pt3dadd(154.609, 83.185, 75.0016, 0.32959)
	pt3dadd(154.606, 83.0051, 74.8829, 0.361328)
	pt3dadd(154.618, 82.8384, 74.7582, 0.327786)
	pt3dadd(154.623, 82.6417, 74.6192, 0.413226)
	pt3dadd(154.633, 82.4101, 74.5102, 0.732872)
	pt3dadd(154.483, 81.777, 74.4573, 1.02147)
	pt3dadd(154.438, 81.3429, 73.9714, 0.658676)
	pt3dadd(154.434, 81.088, 73.7512, 0.720794)
	pt3dadd(154.292, 80.4327, 73.3219, 0.57552)
	pt3dadd(154.083, 80.0122, 73.0496, 0.535214)
	pt3dadd(153.919, 79.5298, 72.9006, 0.499124)
	pt3dadd(153.855, 79.1608, 72.6999, 0.470818)
	pt3dadd(153.747, 78.8078, 72.5328, 0.502712)
	pt3dadd(153.686, 78.3276, 72.2772, 0.482182)
	pt3dadd(153.804, 77.849, 72.1058, 0.58844)
	pt3dadd(154.02, 77.3681, 71.898, 0.479614)
	pt3dadd(154.117, 77.15, 71.8696, 0.372884)
	pt3dadd(154.175, 76.9013, 71.8065, 0.368348)
	pt3dadd(154.216, 76.7108, 71.7254, 0.393448)
	pt3dadd(154.198, 76.5147, 71.5952, 0.296842)
	pt3dadd(154.124, 76.3203, 71.4719, 0.340234)
	pt3dadd(154.01, 76.1211, 71.3167, 0.440658)
	pt3dadd(153.938, 75.934, 71.1234, 0.5503)
	pt3dadd(153.926, 75.6783, 70.9373, 0.478968)
	pt3dadd(153.925, 75.4679, 70.7709, 0.526462)
	pt3dadd(153.948, 75.2249, 70.5895, 0.582064)
	pt3dadd(153.99, 74.967, 70.3373, 0.815572)
	pt3dadd(154.028, 74.4162, 69.8294, 0.648994)
	pt3dadd(154.067, 74.124, 69.5827, 0.500116)
	pt3dadd(154.126, 73.8944, 69.3702, 0.371662)
	pt3dadd(154.193, 73.726, 69.2069, 0.347038)
	pt3dadd(154.268, 73.5496, 68.9979, 0.306136)
	pt3dadd(154.359, 73.3582, 68.8263, 0.412956)
	pt3dadd(154.45, 73.1875, 68.6403, 0.491482)
	pt3dadd(154.53, 73.0166, 68.3205, 0.511216)
	pt3dadd(154.572, 72.8808, 68.0813, 0.523966)
	pt3dadd(154.679, 72.5712, 67.6872, 0.583524)
	pt3dadd(154.685, 72.1686, 67.3134, 0.564498)
	pt3dadd(154.862, 71.7945, 66.9996, 0.43744)
	pt3dadd(155.003, 71.6193, 66.8278, 0.46273)
	pt3dadd(155.193, 71.4375, 66.6033, 0.434706)
	pt3dadd(155.332, 71.2775, 66.4681, 0.338664)
	pt3dadd(155.466, 71.0998, 66.3325, 0.785144)
	pt3dadd(155.8, 70.7889, 65.722, 0.944906)
	pt3dadd(156.042, 69.6782, 65.0824, 0.64298)
	pt3dadd(156.145, 69.3845, 64.9384, 0.344772)
	pt3dadd(156.231, 69.0379, 64.8884, 0.377572)
	pt3dadd(156.3, 68.7916, 64.8948, 0.43429)
	pt3dadd(156.352, 68.5412, 64.9408, 0.52406)
	pt3dadd(156.382, 68.2801, 65.0421, 0.568726)
	pt3dadd(156.605, 67.9449, 64.7128, 0.566096)
	pt3dadd(156.836, 67.5749, 64.3944, 0.438376)
	pt3dadd(156.996, 67.2365, 64.2715, 0.362572)
	pt3dadd(157.123, 67.0367, 64.1716, 0.280382)
	pt3dadd(157.251, 66.8527, 64.1009, 0.39517)
	pt3dadd(157.416, 66.6672, 64.0209, 0.42941)
	pt3dadd(157.594, 66.4681, 63.9133, 0.488358)
	pt3dadd(157.768, 66.233, 63.6999, 0.526832)
	pt3dadd(157.871, 66.0366, 63.543, 0.540948)
	pt3dadd(158.121, 65.6579, 63.2631, 0.796058)
	pt3dadd(157.947, 65.0067, 63.2797, 0.48352)
	pt3dadd(157.89, 64.7657, 63.341, 0.451622)
	pt3dadd(157.876, 64.4761, 63.3084, 0.449586)
	pt3dadd(157.949, 64.0231, 63.2998, 0.381134)
	pt3dadd(158.03, 63.7762, 63.4045, 0.442536)
	pt3dadd(158.087, 63.5646, 63.5167, 0.573286)
	pt3dadd(158.129, 63.3004, 63.651, 0.63021)
	pt3dadd(158.236, 62.9657, 63.4807, 0.627274)
	pt3dadd(158.428, 62.3844, 63.2963, 0.847632)
	pt3dadd(158.549, 61.8611, 63.7645, 0.826508)
	pt3dadd(158.63, 61.0355, 63.485, 0.38295)
	pt3dadd(158.652, 60.7696, 63.4544, 0.410448)
	pt3dadd(158.702, 60.4941, 63.4381, 0.56342)
	pt3dadd(158.82, 59.9452, 63.443, 0.67981)
	pt3dadd(158.981, 59.3377, 63.409, 0.677218)
	pt3dadd(159.065, 58.7839, 63.4403, 0.658386)
	pt3dadd(159.128, 58.1624, 63.2537, 0.625906)
	pt3dadd(159.18, 57.524, 63.6363, 0.349248)
	pt3dadd(159.202, 57.2868, 63.7417, 0.442734)
	pt3dadd(159.209, 57.0557, 63.8679, 0.491578)
	pt3dadd(159.139, 56.5384, 63.804, 0.38527)
	pt3dadd(159.126, 56.3139, 63.7976, 0.355896)
	pt3dadd(159.111, 56.1151, 63.8944, 0.485096)
	pt3dadd(159.08, 55.8835, 64.0143, 0.53813)
	pt3dadd(159.006, 55.394, 63.99, 0.372394)
	pt3dadd(158.953, 55.204, 63.9204, 0.3327)
	pt3dadd(158.861, 54.9997, 63.9231, 0.35661)
	pt3dadd(158.755, 54.7772, 63.9959, 0.548384)
	pt3dadd(158.798, 54.2164, 63.905, 0.557956)
	pt3dadd(158.791, 53.9405, 63.836, 0.650076)
	pt3dadd(158.784, 53.6131, 63.8695, 0.591708)
	pt3dadd(158.721, 53.2193, 64.0263, 0.452804)
	pt3dadd(158.746, 52.9821, 64.1009, 0.381246)
	pt3dadd(158.715, 52.7062, 64.1687, 0.566022)
	pt3dadd(158.607, 52.3851, 64.0711, 0.264268)
	pt3dadd(158.567, 52.2354, 63.967, 0.32155)
	pt3dadd(158.525, 52.0551, 63.8499, 0.184386)
	pt3dadd(158.465, 51.795, 63.7263, 0.1)
	pt3dadd(158.451, 51.5506, 63.6611, 0.253886)
	pt3dadd(158.47, 51.2938, 63.7192, 0.487018)
	pt3dadd(158.457, 51.0075, 63.7782, 0.703318)
	pt3dadd(158.3, 50.1646, 63.5844, 0.738672)
	pt3dadd(158.199, 49.6127, 63.5694, 0.460014)
	pt3dadd(158.134, 49.4072, 63.6537, 0.403324)
	pt3dadd(158.111, 49.1589, 63.5233, 0.562962)
	pt3dadd(158.147, 48.785, 63.519, 0.47366)
	pt3dadd(158.213, 48.4055, 63.6733, 0.40422)
	pt3dadd(158.32, 47.9329, 63.5796, 0.280686)
	pt3dadd(158.395, 47.6682, 63.5533, 0.487864)
	pt3dadd(158.468, 47.4204, 63.5489, 0.623112)
	pt3dadd(158.554, 47.1208, 63.5566, 0.86735)
	pt3dadd(158.663, 46.3151, 63.2202, 0.64097)
	pt3dadd(158.473, 45.7487, 63.4215, 0.197466)
	pt3dadd(158.434, 45.5995, 63.4618, 0.414328)
	pt3dadd(158.394, 45.2045, 63.6425, 0.326256)
	pt3dadd(158.361, 45.0129, 63.653, 0.207618)
	pt3dadd(158.299, 44.8091, 63.576, 0.264582)
	pt3dadd(158.173, 44.5863, 63.5075, 0.378998)
	pt3dadd(158.023, 44.29, 63.6881, 0.726584)
	pt3dadd(158.114, 43.897, 63.6782, 0.851826)
	pt3dadd(158.577, 43.6775, 64.0211, 0.23324)
	pt3dadd(158.718, 43.5968, 64.196, 0.212286)
	pt3dadd(158.813, 43.5156, 64.3756, 0.355932)
	pt3dadd(158.875, 43.4221, 64.5582, 0.496104)
	pt3dadd(158.931, 43.2415, 64.9617, 0.665252)
	pt3dadd(158.852, 43.195, 65.4157, 0.391332)
	pt3dadd(158.781, 43.1485, 65.6544, 0.21303)
	pt3dadd(158.721, 43.1155, 65.8272, 0.161864)
	pt3dadd(158.662, 43.0997, 66.0299, 0.283304)
	pt3dadd(158.653, 43.0866, 66.2205, 0.38789)
	pt3dadd(158.652, 43.1204, 66.4492, 0.396278)
	pt3dadd(158.654, 43.1257, 66.8307, 0.47782)
	pt3dadd(158.723, 43.212, 67.0152, 0.484346)
  }
  dend[37] {pt3dclear()
	pt3dadd(135.589, 110.894, 91.7165, 1.00233)
	pt3dadd(136.626, 110.931, 92.5608, 0.659218)
	pt3dadd(137.678, 111.157, 92.5467, 0.918368)
	pt3dadd(138.286, 111.184, 92.8064, 0.480934)
	pt3dadd(138.904, 111.33, 93.0547, 0.95057)
	pt3dadd(139.591, 111.421, 93.4, 0.431588)
	pt3dadd(139.653, 111.457, 93.4, 0.452904)
	pt3dadd(140, 111.555, 93.4, 0.44175)
	pt3dadd(140.111, 111.573, 93.6, 0.41051)
	pt3dadd(140.395, 111.613, 93.6, 0.450476)
	pt3dadd(140.684, 111.639, 93.6, 0.420198)
	pt3dadd(141.002, 111.695, 93.6, 0.450078)
	pt3dadd(141.096, 111.71, 93.8, 0.402758)
	pt3dadd(141.327, 111.764, 93.8, 0.4047)
	pt3dadd(141.726, 111.913, 94, 0.796716)
	pt3dadd(142.109, 111.878, 94.4, 0.687604)
	pt3dadd(142.5, 111.997, 94.6, 0.793898)
	pt3dadd(142.813, 112.069, 95.4, 0.575568)
	pt3dadd(143.196, 112.138, 95.4, 0.475128)
	pt3dadd(143.4, 112.262, 94.8, 0.467308)
	pt3dadd(143.65, 112.316, 94.8, 0.488548)
	pt3dadd(143.974, 112.435, 94.8, 0.400632)
	pt3dadd(144.107, 112.489, 95, 0.346396)
	pt3dadd(144.3, 112.53, 95, 0.334534)
	pt3dadd(144.5, 112.56, 94.8, 0.411964)
	pt3dadd(144.7, 112.611, 95, 0.376472)
	pt3dadd(144.905, 112.675, 94.8, 0.34918)
  }
}
proc shape3d_32() {
  dend[37] {	pt3dadd(145.092, 112.814, 94.8, 0.390468)
	pt3dadd(145.31, 112.994, 95, 0.643038)
	pt3dadd(145.691, 113.013, 94.8, 0.553992)
	pt3dadd(145.872, 112.98, 94.6, 0.49405)
	pt3dadd(146.009, 112.978, 94.8, 0.451638)
	pt3dadd(146.173, 112.978, 94.6, 0.45008)
	pt3dadd(146.321, 112.952, 94.8, 0.401836)
	pt3dadd(146.5, 112.959, 94.8, 0.304116)
	pt3dadd(146.695, 112.965, 94.8, 0.332812)
	pt3dadd(147.008, 112.941, 94.8, 0.490718)
	pt3dadd(147.351, 112.909, 94.8, 0.670578)
	pt3dadd(147.698, 112.848, 94.8, 0.690412)
	pt3dadd(148.113, 112.933, 94.6, 0.679042)
	pt3dadd(148.5, 112.904, 94.6, 0.57322)
	pt3dadd(148.8, 112.911, 94.6, 0.54242)
	pt3dadd(149.2, 112.96, 94.6, 0.626824)
	pt3dadd(149.6, 113.04, 94.6, 0.658944)
	pt3dadd(149.995, 113.121, 94.4, 0.776846)
	pt3dadd(150.314, 113.284, 94.4, 0.55326)
	pt3dadd(150.6, 113.449, 94.2, 0.670876)
	pt3dadd(151.198, 113.464, 94, 1.24188)
	pt3dadd(152, 113.374, 94.2, 0.584396)
	pt3dadd(152.509, 113.322, 94.2, 0.90627)
	pt3dadd(153.13, 113.078, 94.2, 1.0786)
	pt3dadd(153.536, 113.19, 94.1318, 0.52155)
	pt3dadd(154.092, 113.211, 94.1764, 0.917968)
	pt3dadd(154.579, 113.228, 94.2154, 0.705602)
  }
  dend[38] {pt3dclear()
	pt3dadd(154.579, 113.228, 94.2154, 0.705602)
	pt3dadd(155.929, 113.306, 94.5187, 0.799838)
	pt3dadd(156.297, 113.453, 94.5834, 0.724354)
	pt3dadd(156.69, 113.598, 94.6514, 0.673094)
	pt3dadd(157.156, 113.75, 94.8062, 0.61217)
	pt3dadd(157.626, 113.9, 94.9486, 0.766584)
	pt3dadd(157.972, 114.09, 95.0127, 0.644198)
	pt3dadd(158.315, 114.343, 95.054, 1.21849)
	pt3dadd(159.133, 114.506, 95.5328, 0.985694)
	pt3dadd(159.67, 114.488, 95.766, 0.887748)
	pt3dadd(160.656, 114.671, 95.6338, 1.03127)
	pt3dadd(161.521, 114.965, 95.8996, 1.03533)
	pt3dadd(162.4, 115.181, 96.055, 0.75698)
	pt3dadd(162.786, 115.321, 96.1501, 0.79449)
	pt3dadd(163.149, 115.555, 96.1598, 0.708474)
	pt3dadd(163.488, 115.871, 96.232, 0.678102)
	pt3dadd(163.863, 116.055, 96.237, 0.74503)
	pt3dadd(164.395, 116.17, 96.1431, 0.496294)
	pt3dadd(164.728, 116.246, 96.1602, 0.518286)
	pt3dadd(165.053, 116.38, 96.1783, 0.558592)
	pt3dadd(165.316, 116.529, 96.25, 0.733452)
	pt3dadd(165.858, 116.967, 96.3542, 0.755218)
	pt3dadd(166.236, 117.261, 96.4297, 0.864392)
	pt3dadd(166.552, 117.444, 96.9864, 0.77809)
	pt3dadd(167.603, 118.108, 96.9974, 0.445934)
	pt3dadd(167.876, 118.295, 97.0749, 0.373788)
	pt3dadd(168.087, 118.448, 97.1592, 0.314756)
	pt3dadd(168.27, 118.568, 97.2281, 0.316486)
	pt3dadd(168.47, 118.684, 97.3346, 0.311806)
	pt3dadd(168.675, 118.823, 97.3866, 0.27024)
	pt3dadd(168.881, 118.961, 97.3601, 0.41477)
	pt3dadd(169.122, 119.072, 97.1769, 0.756718)
	pt3dadd(169.606, 119.21, 97.4759, 0.62123)
	pt3dadd(170.179, 119.661, 97.5391, 0.604708)
	pt3dadd(170.579, 120.167, 97.6853, 0.67756)
	pt3dadd(170.976, 120.544, 97.9935, 1.11641)
	pt3dadd(172.001, 121.277, 97.8802, 0.428852)
	pt3dadd(172.385, 121.552, 97.8573, 0.44459)
	pt3dadd(172.63, 121.746, 97.8452, 0.46236)
	pt3dadd(172.832, 121.95, 97.8459, 0.46087)
	pt3dadd(173.069, 122.176, 97.8684, 0.711204)
	pt3dadd(173.456, 122.685, 97.8872, 0.939008)
	pt3dadd(173.724, 123.085, 97.3432, 1.11462)
	pt3dadd(174.587, 123.746, 97.6076, 0.417462)
	pt3dadd(175.262, 124.125, 97.4352, 0.66356)
	pt3dadd(175.734, 124.294, 97.598, 0.197738)
	pt3dadd(176.033, 124.373, 97.6918, 0.39313)
	pt3dadd(176.37, 124.412, 97.7702, 0.665268)
	pt3dadd(176.823, 124.508, 97.7248, 0.97252)
	pt3dadd(177.358, 124.682, 97.6137, 0.804856)
	pt3dadd(178.13, 124.789, 97.4361, 0.997914)
	pt3dadd(179.058, 125.004, 97.3072, 1.12515)
	pt3dadd(179.699, 124.947, 97.4048, 0.931162)
	pt3dadd(180.985, 125.129, 97.356, 0.734986)
	pt3dadd(181.617, 125.408, 97.3305, 0.441228)
	pt3dadd(181.946, 125.615, 97.369, 0.493932)
	pt3dadd(182.252, 125.755, 97.2549, 0.530406)
	pt3dadd(182.539, 125.882, 97.1835, 0.502872)
	pt3dadd(182.813, 126.005, 97.1153, 0.641338)
	pt3dadd(183.129, 126.137, 97.1431, 0.791714)
	pt3dadd(183.707, 126.28, 97.2771, 0.48988)
	pt3dadd(184.014, 126.379, 97.3117, 0.482824)
	pt3dadd(184.299, 126.515, 97.351, 0.614804)
	pt3dadd(184.556, 126.687, 97.4182, 1.03781)
	pt3dadd(185.354, 126.384, 97.521, 1.105)
	pt3dadd(186.749, 126.553, 98.049, 0.604774)
	pt3dadd(187.165, 126.64, 98.226, 0.54787)
	pt3dadd(187.478, 126.682, 98.3111, 0.499166)
	pt3dadd(187.884, 126.736, 98.3152, 0.492856)
	pt3dadd(188.133, 126.783, 98.325, 0.59336)
	pt3dadd(188.615, 126.952, 98.14, 0.494172)
	pt3dadd(189.007, 127.038, 98.0668, 0.501796)
	pt3dadd(189.405, 127.111, 97.958, 0.621442)
	pt3dadd(189.852, 127.116, 97.7072, 0.539566)
	pt3dadd(190.271, 127.018, 97.5168, 0.961024)
	pt3dadd(190.764, 126.98, 97.3734, 1.36636)
	pt3dadd(191.699, 127.201, 97.2, 1.03327)
	pt3dadd(193.596, 127.705, 97.8, 0.335142)
	pt3dadd(194.343, 127.839, 97.6, 0.898576)
	pt3dadd(195.1, 127.559, 97.6, 0.48053)
	pt3dadd(196.285, 127.427, 97.6, 1.11983)
	pt3dadd(197.195, 127.413, 98, 0.562828)
	pt3dadd(197.668, 127.348, 99, 0.59061)
	pt3dadd(199.691, 127.188, 97.8, 0.62297)
	pt3dadd(200.312, 127.185, 97.6, 0.717612)
	pt3dadd(201.546, 127.524, 97.6, 0.987658)
	pt3dadd(202.687, 127.531, 98.2, 0.560702)
	pt3dadd(203.288, 127.729, 98.2, 0.432812)
	pt3dadd(203.893, 127.817, 97.4, 0.46106)
	pt3dadd(204.482, 128.03, 97.8, 0.295688)
	pt3dadd(205.046, 128.323, 97.8, 0.311176)
	pt3dadd(205.4, 128.37, 97.4, 0.60076)
	pt3dadd(205.995, 128.505, 98.4, 0.247944)
	pt3dadd(206.328, 128.592, 98.2, 0.603708)
	pt3dadd(207.052, 128.657, 97.2, 0.99475)
	pt3dadd(207.3, 128.734, 97.4, 0.644776)
	pt3dadd(207.72, 128.752, 97.4, 0.749514)
	pt3dadd(207.931, 128.863, 97.8, 0.404456)
	pt3dadd(208.105, 129.098, 97.4, 0.621342)
	pt3dadd(208.273, 129.337, 97.2, 0.550178)
	pt3dadd(208.329, 129.473, 97, 0.453892)
	pt3dadd(208.412, 129.482, 97.2, 0.395018)
	pt3dadd(208.505, 129.594, 97.2, 0.233726)
	pt3dadd(208.7, 129.8, 97.2, 0.323368)
	pt3dadd(208.921, 129.94, 97.2, 0.50673)
	pt3dadd(209.101, 130.199, 96.8, 0.534156)
	pt3dadd(209.3, 130.2, 97, 0.331754)
	pt3dadd(209.381, 130.328, 96.8, 0.279526)
	pt3dadd(209.525, 130.375, 96.8, 0.211034)
	pt3dadd(209.697, 130.404, 96.8, 0.280576)
	pt3dadd(209.906, 130.389, 97, 0.35174)
	pt3dadd(210.114, 130.473, 97.2, 0.346566)
	pt3dadd(210.214, 130.482, 97.4, 0.27078)
	pt3dadd(210.441, 130.67, 97.4, 0.367218)
	pt3dadd(210.613, 130.881, 97.4, 0.397772)
	pt3dadd(210.804, 130.99, 97.4, 0.408236)
	pt3dadd(210.9, 130.983, 97.6, 0.363174)
	pt3dadd(211.053, 131.042, 97.4, 0.432948)
	pt3dadd(211.3, 131.148, 97.4, 0.28334)
	pt3dadd(211.61, 131.271, 97.2, 0.455198)
	pt3dadd(211.846, 131.473, 97, 0.475748)
	pt3dadd(211.999, 131.601, 97, 0.262612)
	pt3dadd(212.117, 131.68, 96.8, 0.253262)
	pt3dadd(212.299, 132.036, 96.4, 1.04799)
	pt3dadd(213.045, 132.355, 96.8, 0.390692)
	pt3dadd(213.2, 132.5, 96.8, 0.391512)
	pt3dadd(213.415, 132.678, 96.8, 0.412258)
	pt3dadd(213.503, 132.798, 96.6, 0.475434)
	pt3dadd(213.677, 133.028, 96.6, 0.534664)
	pt3dadd(213.899, 133.204, 96.8, 0.401256)
	pt3dadd(213.996, 133.307, 96.6, 0.397614)
	pt3dadd(214.097, 133.405, 96.4, 0.424154)
	pt3dadd(214.309, 133.59, 96.6, 0.47784)
	pt3dadd(214.435, 133.658, 97, 0.40546)
	pt3dadd(214.508, 133.687, 97.2, 0.405278)
	pt3dadd(214.801, 133.898, 95.8, 0.623994)
	pt3dadd(215, 134.001, 95.8, 0.35464)
	pt3dadd(215.175, 134.047, 96, 0.298288)
	pt3dadd(215.299, 134.106, 96.2, 0.38243)
	pt3dadd(215.4, 134.16, 96, 0.456222)
	pt3dadd(215.441, 134.281, 95.6, 0.534468)
	pt3dadd(215.583, 134.418, 95.4, 0.542022)
	pt3dadd(215.774, 134.574, 95.2, 0.476362)
	pt3dadd(215.961, 134.755, 95, 0.314564)
	pt3dadd(216.098, 134.802, 95.2, 0.247808)
	pt3dadd(216.292, 134.91, 95.2, 0.287676)
	pt3dadd(216.488, 135.021, 95.2, 0.331434)
	pt3dadd(216.707, 135.188, 95.2, 0.34864)
	pt3dadd(216.89, 135.325, 95, 0.45767)
	pt3dadd(217.101, 135.498, 94.8, 0.44354)
	pt3dadd(217.195, 135.704, 94.6, 0.2335)
	pt3dadd(217.5, 136.014, 94.6, 0.1)
	pt3dadd(217.714, 136.162, 94.2, 0.471014)
	pt3dadd(217.854, 136.284, 94.2, 0.502476)
	pt3dadd(217.951, 136.485, 94, 0.516282)
	pt3dadd(218.032, 136.677, 93.8, 0.39609)
  }
  dend[39] {pt3dclear()
	pt3dadd(154.579, 113.228, 94.2154, 0.705602)
	pt3dadd(156.102, 112.092, 95.6325, 0.828506)
	pt3dadd(156.529, 111.852, 95.9406, 0.536294)
	pt3dadd(156.909, 111.702, 96.24, 0.59111)
	pt3dadd(157.357, 111.583, 96.5717, 0.603806)
	pt3dadd(157.859, 111.547, 96.9478, 0.85183)
	pt3dadd(158.42, 111.245, 97.2293, 0.67713)
	pt3dadd(158.836, 110.905, 97.6067, 0.62623)
	pt3dadd(158.965, 110.637, 97.7704, 0.560008)
	pt3dadd(159.124, 110.431, 97.915, 0.712382)
	pt3dadd(159.762, 109.976, 98.3771, 0.395474)
	pt3dadd(159.967, 109.826, 98.4803, 0.35711)
	pt3dadd(160.19, 109.656, 98.5823, 0.382304)
	pt3dadd(160.38, 109.538, 98.6402, 0.457258)
	pt3dadd(160.571, 109.415, 98.719, 0.581784)
	pt3dadd(161.157, 109.142, 98.8513, 1.01056)
	pt3dadd(161.579, 109.016, 99.1604, 1.04082)
  }
}
proc shape3d_33() {
  dend[39] {	pt3dadd(162.124, 108.85, 99.4771, 0.779262)
	pt3dadd(162.617, 108.467, 99.8425, 0.752742)
	pt3dadd(162.876, 108.249, 100.103, 0.82601)
	pt3dadd(163.551, 107.955, 100.429, 1.01749)
	pt3dadd(164.003, 107.811, 100.67, 1.25033)
	pt3dadd(164.469, 107.708, 101.489, 1.12737)
	pt3dadd(164.779, 107.578, 102.02, 1.23595)
	pt3dadd(165.259, 107.266, 102.415, 1.12057)
	pt3dadd(165.801, 106.961, 102.717, 0.811288)
	pt3dadd(166.354, 106.65, 103.258, 1.12076)
	pt3dadd(166.781, 106.545, 103.678, 1.17455)
	pt3dadd(167.303, 106.206, 104.79, 0.751368)
	pt3dadd(167.46, 105.617, 105.797, 0.636824)
	pt3dadd(167.168, 105.449, 106.164, 0.48368)
  }
  dend[40] {pt3dclear()
	pt3dadd(119.383, 117.409, 87.0067, 0.829464)
	pt3dadd(120.107, 115.942, 86.4707, 1.23992)
	pt3dadd(120.472, 114.83, 86.3512, 0.50594)
	pt3dadd(120.573, 114.441, 86.3167, 0.490468)
	pt3dadd(120.674, 114.031, 86.2671, 0.426516)
	pt3dadd(120.752, 113.715, 86.2596, 0.455808)
	pt3dadd(120.814, 113.41, 86.2785, 0.471554)
	pt3dadd(120.849, 113.08, 86.3087, 0.571198)
	pt3dadd(120.883, 112.721, 86.3985, 0.599874)
	pt3dadd(120.966, 112.386, 86.4248, 0.52616)
	pt3dadd(121.07, 112.062, 86.3813, 0.590394)
	pt3dadd(121.143, 111.731, 86.3513, 0.560776)
	pt3dadd(121.231, 111.403, 86.3555, 0.614902)
	pt3dadd(121.327, 111.087, 86.405, 0.569034)
	pt3dadd(121.467, 110.744, 86.429, 0.654628)
	pt3dadd(121.618, 110.378, 86.4963, 0.763232)
	pt3dadd(121.66, 109.922, 86.5776, 0.724696)
	pt3dadd(121.721, 109.218, 86.631, 0.62357)
	pt3dadd(121.745, 108.903, 86.6629, 0.738768)
	pt3dadd(121.818, 108.272, 86.6788, 0.708888)
	pt3dadd(121.87, 107.671, 86.6762, 0.68643)
	pt3dadd(121.809, 107.07, 86.6423, 0.691566)
	pt3dadd(121.744, 106.384, 86.6209, 0.685364)
	pt3dadd(121.762, 105.752, 86.5257, 0.518642)
	pt3dadd(121.785, 105.453, 86.459, 0.491818)
	pt3dadd(121.785, 105.155, 86.4338, 0.468322)
	pt3dadd(121.75, 104.832, 86.3923, 0.498948)
	pt3dadd(121.701, 104.516, 86.3027, 0.644632)
	pt3dadd(121.722, 104.178, 86.3122, 0.68891)
	pt3dadd(121.791, 103.683, 86.6322, 0.62523)
	pt3dadd(121.829, 103.341, 86.8184, 0.70856)
	pt3dadd(121.91, 102.682, 87.0142, 0.96546)
  }
  dend[41] {pt3dclear()
	pt3dadd(121.91, 102.682, 87.0142, 0.96546)
	pt3dadd(122.147, 102.137, 87.7247, 0.63859)
	pt3dadd(122.254, 101.853, 88.2117, 0.47277)
	pt3dadd(122.26, 101.666, 88.3905, 0.365852)
	pt3dadd(122.23, 101.477, 88.5658, 0.440268)
	pt3dadd(122.18, 101.311, 88.7174, 0.45436)
	pt3dadd(122.109, 101.136, 88.9084, 0.446992)
	pt3dadd(122.018, 100.986, 89.0718, 0.477652)
	pt3dadd(121.92, 100.819, 89.2319, 0.484652)
	pt3dadd(121.829, 100.627, 89.3757, 0.468744)
	pt3dadd(121.811, 100.42, 89.5872, 0.535902)
	pt3dadd(121.9, 100.216, 89.8301, 0.59935)
	pt3dadd(122.05, 99.8834, 90.2281, 0.679126)
	pt3dadd(122.149, 99.5365, 90.6634, 0.85127)
	pt3dadd(122.077, 99.1501, 91.2032, 1.19389)
	pt3dadd(122.215, 98.545, 91.8191, 0.956512)
	pt3dadd(122.528, 97.9398, 92.4092, 1.06038)
	pt3dadd(122.522, 97.5299, 92.8684, 0.620878)
	pt3dadd(122.473, 97.319, 93.1256, 0.54226)
	pt3dadd(122.391, 97.1516, 93.4045, 0.609154)
	pt3dadd(122.193, 97.0348, 93.7315, 0.677926)
	pt3dadd(121.929, 96.947, 93.9799, 0.60019)
	pt3dadd(122.051, 96.6256, 94.5001, 0.520852)
	pt3dadd(122.094, 96.4517, 94.7243, 0.481636)
	pt3dadd(122.129, 96.2779, 94.9255, 0.614074)
	pt3dadd(122.205, 95.8644, 95.3647, 0.588936)
	pt3dadd(122.197, 95.6142, 95.7729, 0.4578)
	pt3dadd(122.164, 95.4619, 96.0568, 0.583106)
	pt3dadd(122.112, 95.3717, 96.3336, 0.627118)
	pt3dadd(121.966, 95.2891, 96.8203, 0.687318)
	pt3dadd(121.809, 95.1291, 97.381, 0.573464)
	pt3dadd(121.745, 94.9498, 97.6565, 0.682942)
	pt3dadd(121.885, 94.7364, 98.1311, 0.858762)
	pt3dadd(122.044, 94.5056, 98.7285, 0.793456)
	pt3dadd(122.155, 94.3002, 99.349, 0.613334)
	pt3dadd(122.25, 94.2141, 99.7971, 0.521064)
	pt3dadd(122.386, 94.2004, 100.074, 0.462404)
	pt3dadd(122.552, 94.2158, 100.293, 0.52943)
	pt3dadd(122.685, 94.1722, 100.534, 0.650992)
	pt3dadd(122.903, 93.9988, 101.044, 0.534224)
	pt3dadd(123.023, 93.89, 101.285, 0.458906)
	pt3dadd(123.185, 93.7486, 101.509, 0.440888)
	pt3dadd(123.455, 93.5163, 101.738, 0.562156)
	pt3dadd(123.725, 93.2418, 101.989, 0.806096)
	pt3dadd(124.192, 92.7993, 102.279, 0.645764)
	pt3dadd(124.372, 92.6054, 102.469, 0.58737)
	pt3dadd(124.539, 92.4448, 102.665, 0.603544)
	pt3dadd(124.722, 92.2962, 102.869, 0.474446)
	pt3dadd(124.904, 92.165, 103.014, 0.394954)
	pt3dadd(125.084, 92.0331, 103.156, 0.399998)
	pt3dadd(125.257, 91.8674, 103.302, 0.39901)
	pt3dadd(125.398, 91.7218, 103.373, 0.317568)
	pt3dadd(125.556, 91.5346, 103.431, 0.363868)
	pt3dadd(125.706, 91.3285, 103.497, 0.387554)
	pt3dadd(125.87, 91.1372, 103.533, 0.399366)
	pt3dadd(126.052, 90.9544, 103.601, 0.431506)
	pt3dadd(126.266, 90.7553, 103.69, 0.563786)
	pt3dadd(126.519, 90.5823, 103.769, 0.7466)
	pt3dadd(126.675, 90.2405, 103.977, 0.696142)
	pt3dadd(126.796, 89.977, 104.17, 0.834628)
	pt3dadd(126.932, 89.4287, 104.705, 0.835914)
	pt3dadd(126.963, 88.9858, 104.761, 0.55584)
	pt3dadd(126.992, 88.7033, 104.848, 0.46458)
	pt3dadd(127.004, 88.4672, 105.054, 0.451762)
	pt3dadd(127.077, 88.0904, 104.87, 0.389792)
	pt3dadd(127.108, 87.8823, 104.786, 0.355452)
	pt3dadd(127.116, 87.667, 104.695, 0.325182)
	pt3dadd(127.126, 87.4276, 104.642, 0.321348)
	pt3dadd(127.095, 87.1792, 104.625, 0.457556)
	pt3dadd(127.037, 86.9056, 104.722, 0.567848)
	pt3dadd(126.995, 86.6277, 104.856, 0.651942)
	pt3dadd(126.958, 86.3508, 105.079, 0.789124)
	pt3dadd(126.745, 85.8607, 105.6, 0.429284)
	pt3dadd(126.513, 85.4882, 105.6, 0.261196)
	pt3dadd(126.144, 84.3674, 105.6, 0.602884)
	pt3dadd(125.972, 84.2056, 105.4, 0.125612)
	pt3dadd(126.015, 83.4874, 106, 0.274454)
	pt3dadd(125.824, 83.1836, 106, 0.666644)
	pt3dadd(125.667, 82.6083, 106.4, 0.678386)
	pt3dadd(124.914, 81.8918, 106.6, 0.40779)
	pt3dadd(124.551, 81.5233, 106.6, 0.766208)
	pt3dadd(124.333, 81.1733, 106.6, 0.666434)
	pt3dadd(124.312, 80.8862, 106.8, 0.556468)
	pt3dadd(124.168, 80.5933, 106.6, 0.65909)
	pt3dadd(123.691, 79.7094, 107.2, 0.50622)
	pt3dadd(123.524, 79.4736, 107.4, 0.52041)
	pt3dadd(123.26, 79.2539, 107.6, 0.362074)
	pt3dadd(123.046, 78.8663, 108, 0.44279)
	pt3dadd(123.01, 78.4929, 108.298, 0.599234)
	pt3dadd(123.069, 78.296, 108.643, 0.715024)
	pt3dadd(123.161, 77.6707, 109.039, 0.66546)
	pt3dadd(123.126, 77.4224, 108.998, 0.392744)
	pt3dadd(123.121, 77.1928, 109.033, 0.329254)
	pt3dadd(123.138, 76.8719, 109.227, 0.408096)
	pt3dadd(123.15, 76.7277, 109.344, 0.341658)
	pt3dadd(123.142, 76.5199, 109.484, 0.471136)
	pt3dadd(123.153, 76.2779, 109.691, 0.568654)
	pt3dadd(123.149, 75.9017, 110.164, 0.607894)
	pt3dadd(123.081, 75.7639, 110.372, 0.476096)
	pt3dadd(123.018, 75.5861, 110.576, 0.395812)
	pt3dadd(122.96, 75.3451, 110.799, 0.390774)
	pt3dadd(122.906, 75.0857, 110.926, 0.535164)
	pt3dadd(122.814, 74.5853, 111.122, 0.691176)
	pt3dadd(122.688, 74.2673, 111.078, 0.591218)
	pt3dadd(122.565, 73.9918, 111.013, 0.442556)
	pt3dadd(122.48, 73.724, 110.978, 0.362212)
	pt3dadd(122.44, 73.1827, 111.005, 0.621786)
	pt3dadd(122.324, 72.877, 111.496, 0.639152)
	pt3dadd(122.209, 72.6152, 111.803, 0.494682)
	pt3dadd(122.269, 72.0293, 112.249, 0.865716)
	pt3dadd(122.543, 71.4518, 113.014, 1.04211)
	pt3dadd(122.691, 71.0922, 113.489, 0.778278)
	pt3dadd(122.92, 70.8769, 113.601, 0.582374)
	pt3dadd(123.104, 70.6738, 113.661, 0.381466)
	pt3dadd(123.273, 70.5053, 113.704, 0.195744)
	pt3dadd(123.432, 70.3775, 113.769, 0.119618)
	pt3dadd(123.615, 70.2396, 113.83, 0.322324)
	pt3dadd(123.792, 70.0675, 113.963, 0.407568)
	pt3dadd(123.997, 69.854, 114.119, 0.544054)
	pt3dadd(124.136, 69.4005, 114.173, 0.501186)
	pt3dadd(124.288, 68.787, 114.268, 0.903146)
	pt3dadd(124.152, 68.3975, 114.25, 0.544952)
	pt3dadd(124.155, 68.1917, 114.193, 0.402674)
	pt3dadd(124.268, 67.8255, 114.101, 0.534136)
	pt3dadd(124.438, 67.3864, 114.109, 0.757024)
	pt3dadd(124.776, 66.9327, 114.285, 0.81435)
	pt3dadd(125.025, 66.6832, 114.376, 0.724478)
	pt3dadd(125.437, 66.1146, 114.918, 1.04028)
	pt3dadd(125.507, 65.8462, 115.32, 0.91836)
	pt3dadd(125.463, 65.4336, 116.085, 0.943362)
	pt3dadd(125.507, 65.0038, 116.598, 1.07351)
	pt3dadd(125.38, 64.7493, 116.83, 0.568262)
	pt3dadd(125.253, 64.5382, 116.974, 0.312522)
	pt3dadd(125.175, 64.3167, 117.09, 0.1)
	pt3dadd(125.142, 64.0473, 117.218, 0.306224)
	pt3dadd(125.219, 63.8357, 117.321, 0.216484)
	pt3dadd(125.329, 63.6392, 117.381, 0.312394)
	pt3dadd(125.453, 63.4715, 117.456, 0.423234)
	pt3dadd(125.562, 63.3043, 117.477, 0.354042)
	pt3dadd(125.697, 63.0133, 117.419, 0.352392)
	pt3dadd(126.016, 62.4372, 117.205, 0.570316)
	pt3dadd(126.218, 61.8462, 117.327, 0.626424)
	pt3dadd(126.244, 61.5679, 117.388, 0.43225)
	pt3dadd(126.263, 61.3622, 117.562, 0.4676)
	pt3dadd(126.271, 61.2153, 117.78, 0.447368)
	pt3dadd(126.262, 61.0513, 117.981, 0.389672)
	pt3dadd(126.078, 60.5212, 118.343, 1.07052)
	pt3dadd(126.107, 59.841, 118.988, 1.06631)
	pt3dadd(126.102, 59.4714, 119.616, 0.58306)
	pt3dadd(126.136, 59.3878, 120.21, 0.68872)
	pt3dadd(126.113, 59.1583, 120.752, 0.575826)
	pt3dadd(126.176, 58.4937, 121.25, 0.74847)
	pt3dadd(126.31, 58.1916, 121.246, 0.462148)
	pt3dadd(126.552, 57.6766, 121.298, 0.574782)
  }
}
proc shape3d_34() {
  dend[41] {	pt3dadd(126.57, 57.3625, 121.287, 0.46261)
	pt3dadd(126.573, 57.0948, 121.305, 0.460696)
	pt3dadd(126.546, 56.6032, 121.45, 0.516922)
	pt3dadd(126.402, 56.1253, 121.633, 0.721166)
	pt3dadd(126.253, 55.6578, 122.023, 0.894462)
	pt3dadd(126.455, 55.2917, 122.464, 1.02226)
	pt3dadd(126.781, 54.6597, 122.8, 0.781072)
  }
  dend[42] {pt3dclear()
	pt3dadd(121.91, 102.682, 87.0142, 0.96546)
	pt3dadd(121.725, 101.907, 86.745, 0.591766)
	pt3dadd(121.581, 101.517, 86.7355, 0.436578)
	pt3dadd(121.473, 101.205, 86.7453, 0.388934)
	pt3dadd(121.353, 100.91, 86.7385, 0.401498)
	pt3dadd(121.252, 100.639, 86.7571, 0.463676)
	pt3dadd(121.183, 100.361, 86.8235, 0.450946)
	pt3dadd(121.13, 100.037, 86.8379, 0.495628)
	pt3dadd(121.101, 99.5903, 86.5752, 0.522604)
	pt3dadd(121.085, 99.3026, 86.4545, 0.55385)
	pt3dadd(121.051, 98.9689, 86.4309, 0.516358)
	pt3dadd(121.069, 98.5633, 86.3989, 0.58176)
	pt3dadd(121.086, 98.2332, 86.3916, 0.517996)
	pt3dadd(121.081, 97.8831, 86.3356, 0.538022)
	pt3dadd(121.101, 97.5632, 86.2183, 0.529014)
	pt3dadd(121.153, 97.2141, 86.0827, 0.624126)
	pt3dadd(121.222, 96.845, 86.0005, 0.86966)
	pt3dadd(121.294, 96.4118, 86.1251, 1.49468)
	pt3dadd(120.72, 95.5708, 86.086, 0.599032)
	pt3dadd(120.562, 95.283, 86.0641, 0.56006)
	pt3dadd(120.394, 94.9574, 86.0014, 0.525214)
	pt3dadd(120.255, 94.603, 85.8696, 0.727756)
	pt3dadd(120.147, 94.2059, 85.8117, 0.704842)
	pt3dadd(119.942, 93.319, 85.6322, 0.567428)
	pt3dadd(119.853, 92.9894, 85.6146, 0.538308)
	pt3dadd(119.748, 92.6434, 85.5744, 0.528256)
	pt3dadd(119.671, 92.3172, 85.5386, 0.46811)
	pt3dadd(119.626, 91.9761, 85.4303, 0.53988)
	pt3dadd(119.617, 91.6068, 85.3484, 0.776108)
	pt3dadd(119.276, 91.104, 85.6105, 0.612066)
	pt3dadd(119.034, 90.7848, 85.6705, 0.42673)
	pt3dadd(118.755, 90.4273, 85.6423, 0.383746)
	pt3dadd(118.31, 89.8128, 85.2738, 0.656558)
	pt3dadd(118.009, 89.3939, 85, 0.979516)
	pt3dadd(117.53, 88.6104, 84.8, 1.14419)
  }
  dend[43] {pt3dclear()
	pt3dadd(117.53, 88.6104, 84.8, 1.14419)
	pt3dadd(117.217, 87.9665, 84.8997, 0.6565)
	pt3dadd(117.019, 87.4029, 84.8758, 0.493752)
	pt3dadd(116.813, 86.8673, 84.6866, 0.309498)
	pt3dadd(116.711, 86.42, 84.3969, 0.502742)
	pt3dadd(116.691, 86.0055, 84.0116, 0.565812)
	pt3dadd(116.589, 85.4623, 83.3033, 0.909104)
	pt3dadd(116.649, 84.9683, 82.8885, 0.1)
	pt3dadd(116.251, 84.4251, 82.7509, 0.589952)
	pt3dadd(116.044, 84.1428, 82.6597, 0.458236)
	pt3dadd(115.906, 83.8613, 82.5607, 0.59921)
	pt3dadd(115.79, 83.5776, 82.3599, 0.650484)
	pt3dadd(115.677, 83.3002, 82.1681, 0.806944)
	pt3dadd(115.562, 82.9534, 81.9665, 0.953644)
	pt3dadd(115.448, 82.4758, 81.7698, 1.09354)
	pt3dadd(115.13, 81.5173, 81.4759, 0.450248)
	pt3dadd(114.973, 81.0701, 81.4436, 0.40565)
	pt3dadd(114.91, 80.7817, 81.4226, 0.432728)
	pt3dadd(114.852, 80.4385, 81.3805, 0.41626)
	pt3dadd(114.887, 80.1335, 81.3048, 0.406922)
	pt3dadd(114.949, 79.8576, 81.1845, 0.835548)
	pt3dadd(114.609, 79.2546, 81.4, 0.546554)
	pt3dadd(114.675, 78.8309, 81.2, 0.313366)
	pt3dadd(114.754, 78.6, 81, 0.284974)
	pt3dadd(114.922, 78.3475, 80.5679, 0.480206)
	pt3dadd(114.918, 77.8292, 80.9104, 0.711784)
	pt3dadd(114.941, 77.3, 81, 0.291214)
	pt3dadd(114.938, 76.9974, 80.9209, 0.570492)
	pt3dadd(114.984, 76.6803, 80.9983, 0.6156)
	pt3dadd(115.073, 76.3152, 80.9639, 0.741666)
	pt3dadd(115.233, 75.6577, 80.9433, 0.588714)
	pt3dadd(115.328, 75.3669, 80.8909, 0.603828)
	pt3dadd(115.394, 75.0473, 80.7924, 0.605984)
	pt3dadd(115.38, 74.7099, 80.6566, 0.766358)
	pt3dadd(115.492, 74.1589, 80.8103, 0.641288)
	pt3dadd(115.436, 73.7438, 80.8866, 0.739806)
	pt3dadd(115.713, 73.2927, 81.1155, 0.510096)
	pt3dadd(115.848, 72.9982, 81.2437, 0.48113)
	pt3dadd(115.922, 72.7026, 81.3689, 0.550468)
	pt3dadd(115.822, 72.4122, 81.6148, 0.752924)
	pt3dadd(116.259, 71.964, 81.5519, 0.848182)
	pt3dadd(116.397, 71.1989, 81.5477, 0.479252)
	pt3dadd(116.468, 70.9208, 81.6112, 0.370382)
	pt3dadd(116.525, 70.6634, 81.654, 0.371856)
	pt3dadd(116.58, 70.4408, 81.7419, 0.39261)
	pt3dadd(116.646, 70.2109, 81.8316, 0.394694)
	pt3dadd(116.725, 69.9891, 81.8621, 0.367178)
	pt3dadd(116.798, 69.7583, 81.925, 0.432382)
	pt3dadd(116.879, 69.5241, 81.9978, 0.460426)
	pt3dadd(116.959, 69.247, 82.0526, 0.533772)
	pt3dadd(117.088, 68.9385, 82.0845, 0.620254)
	pt3dadd(117.359, 68.6687, 82.076, 0.914148)
	pt3dadd(117.393, 68.265, 82.4054, 0.880264)
	pt3dadd(117.385, 67.9713, 82.8194, 0.574486)
	pt3dadd(117.605, 66.7964, 83.2638, 0.299368)
	pt3dadd(117.63, 66.5064, 83.2973, 0.347288)
	pt3dadd(117.64, 66.1952, 83.2333, 0.402982)
	pt3dadd(117.621, 65.882, 83.1341, 0.664612)
	pt3dadd(117.579, 65.5507, 83.0843, 1.00412)
	pt3dadd(117.736, 64.7019, 82.8484, 1.09726)
	pt3dadd(117.892, 63.4638, 82.6212, 0.879288)
	pt3dadd(117.992, 63.0169, 82.4391, 0.851168)
	pt3dadd(118.121, 62.2075, 82.2061, 0.924524)
	pt3dadd(118.011, 61.6003, 82.2294, 0.511528)
	pt3dadd(117.707, 60.7392, 81.8149, 0.499354)
	pt3dadd(117.662, 60.5151, 81.7096, 0.493434)
	pt3dadd(117.644, 60.3036, 81.5813, 0.433776)
	pt3dadd(117.617, 60.0924, 81.4647, 0.505942)
	pt3dadd(117.572, 59.8136, 81.4137, 0.45609)
	pt3dadd(117.544, 59.5465, 81.2716, 0.557238)
	pt3dadd(117.55, 59.1881, 81.1866, 0.91765)
	pt3dadd(117.586, 58.424, 81.3948, 1.26432)
	pt3dadd(117.619, 57.7499, 81.069, 0.85241)
	pt3dadd(117.578, 57.1747, 81.0529, 0.227742)
	pt3dadd(117.53, 56.9202, 81.0107, 0.1)
	pt3dadd(117.474, 56.6632, 80.9006, 0.582732)
	pt3dadd(117.473, 56.4909, 80.6628, 0.853798)
	pt3dadd(117.611, 55.7392, 81.066, 0.547856)
	pt3dadd(117.64, 55.4222, 81.1527, 0.510642)
	pt3dadd(117.687, 55.1635, 81.2229, 0.451276)
	pt3dadd(117.728, 54.9051, 81.2717, 0.578794)
	pt3dadd(117.718, 54.6069, 81.1753, 0.560272)
	pt3dadd(117.721, 54.3181, 81.1893, 0.64411)
	pt3dadd(117.736, 53.9853, 81.2023, 0.694828)
	pt3dadd(117.719, 53.6153, 81.2843, 0.7892)
	pt3dadd(117.763, 53.199, 81.3299, 0.979226)
	pt3dadd(117.476, 52.5267, 81.6, 0.519462)
	pt3dadd(117.26, 51.6683, 81.6, 0.47433)
	pt3dadd(117.139, 51.4528, 81.6, 0.633272)
	pt3dadd(116.834, 51.0902, 81.6, 1.06978)
	pt3dadd(116.486, 49.4407, 82, 0.780432)
	pt3dadd(116.403, 49.2993, 82, 0.804254)
	pt3dadd(116.255, 48.9264, 82.2, 0.787924)
	pt3dadd(116.148, 48.5, 82.2, 0.485878)
	pt3dadd(116.078, 48.2131, 82, 0.635052)
	pt3dadd(116.065, 47.879, 81.6, 0.835882)
	pt3dadd(116.15, 47.6, 81.6, 0.479798)
	pt3dadd(116.14, 47.1191, 81.8, 0.965972)
	pt3dadd(115.812, 46.4917, 82, 0.327346)
	pt3dadd(115.429, 46.0714, 82.2, 0.363582)
	pt3dadd(115.048, 45.7427, 82.2, 0.622614)
	pt3dadd(114.782, 45.2166, 82.2, 1.11407)
	pt3dadd(114.542, 44.5087, 82.4, 0.88007)
	pt3dadd(114.405, 43.8448, 82.6, 0.863192)
	pt3dadd(114.43, 43.1667, 82.8, 0.759012)
	pt3dadd(114.324, 42.7624, 82.6, 0.732054)
	pt3dadd(114.098, 42.2004, 82.8, 0.400012)
	pt3dadd(113.999, 41.9592, 82.6, 0.786624)
	pt3dadd(113.994, 41.4946, 82.8, 0.907708)
	pt3dadd(114.123, 41.207, 82.8, 0.614838)
	pt3dadd(114.225, 40.9103, 82.8, 0.576078)
	pt3dadd(114.341, 40.5, 82.8, 0.668534)
	pt3dadd(114.396, 40.1987, 82.8, 0.561856)
	pt3dadd(114.474, 39.9894, 83, 0.592842)
	pt3dadd(114.494, 39.7, 83, 0.555672)
	pt3dadd(114.527, 39.289, 83, 0.566872)
	pt3dadd(114.513, 39.0053, 83, 0.530756)
	pt3dadd(114.57, 38.6607, 83, 0.676546)
	pt3dadd(114.667, 38.0391, 83.2, 1.16751)
	pt3dadd(114.093, 37.3502, 82.8, 1.03843)
	pt3dadd(113.89, 36.7068, 82.8, 0.692388)
	pt3dadd(113.997, 36.04, 83.4, 0.641192)
	pt3dadd(114.05, 35.4332, 83.4, 0.83372)
	pt3dadd(114.085, 34.9948, 83.4, 0.598104)
	pt3dadd(114.054, 34.7287, 83.2, 0.55778)
	pt3dadd(114.093, 34.3978, 83.2, 0.631238)
	pt3dadd(114.141, 34, 83.6, 0.624566)
	pt3dadd(114.205, 33.5699, 83.4, 0.691142)
	pt3dadd(114.125, 33.2104, 83, 0.453612)
	pt3dadd(114.063, 33.0516, 82.8, 0.46372)
	pt3dadd(114.125, 32.8, 82.8, 0.228538)
	pt3dadd(114.181, 32.6885, 82.8, 0.311446)
	pt3dadd(114.187, 32.6, 82.6, 0.364182)
	pt3dadd(114.209, 32.4052, 82.6, 0.355284)
	pt3dadd(114.32, 32.1182, 82.6, 0.53709)
	pt3dadd(114.462, 31.8687, 82.8, 0.631676)
	pt3dadd(114.517, 31.4929, 82.8, 0.592058)
	pt3dadd(114.633, 31.3, 82.6, 0.315774)
	pt3dadd(114.645, 31.2, 82.4, 0.237542)
	pt3dadd(114.697, 30.9998, 82.6, 0.393526)
	pt3dadd(114.781, 30.7886, 82.6, 0.327742)
	pt3dadd(114.859, 30.5694, 82.6, 0.388698)
	pt3dadd(114.978, 30.3, 82.6, 0.440484)
	pt3dadd(115.036, 30.0129, 82.6, 0.490698)
	pt3dadd(115.034, 29.7, 82.6, 0.45089)
	pt3dadd(115.021, 29.4171, 82.6, 0.570414)
	pt3dadd(115.103, 29.2012, 82.8, 0.564988)
	pt3dadd(115.188, 28.8928, 82.8, 0.415618)
	pt3dadd(115.296, 28.5994, 82.6, 0.392972)
	pt3dadd(115.396, 28.298, 82.6, 0.441702)
	pt3dadd(115.424, 28.0101, 82.6, 0.427748)
	pt3dadd(115.487, 27.7952, 82.6, 0.393748)
	pt3dadd(115.548, 27.5526, 82.6, 0.417846)
	pt3dadd(115.817, 27.091, 82.8, 0.812326)
	pt3dadd(115.704, 26.7, 83, 0.379058)
	pt3dadd(115.716, 26.6, 82.8, 0.365806)
	pt3dadd(115.706, 26.4, 82.8, 0.348144)
	pt3dadd(115.708, 26.2, 83, 0.36715)
  }
}
proc shape3d_35() {
  dend[43] {	pt3dadd(115.762, 25.9962, 83, 0.478424)
	pt3dadd(115.703, 25.6993, 83, 0.39053)
	pt3dadd(115.642, 25.5774, 83.2, 0.31874)
	pt3dadd(115.553, 25.3715, 83.2, 0.330238)
	pt3dadd(115.515, 25.2, 83.2, 0.357628)
	pt3dadd(115.521, 25, 83, 0.354728)
	pt3dadd(115.526, 24.8176, 83, 0.41563)
	pt3dadd(115.551, 24.5127, 83, 0.304828)
	pt3dadd(115.614, 24.3021, 83, 0.369492)
	pt3dadd(115.748, 24.0246, 83, 0.76054)
	pt3dadd(115.577, 23.6023, 83, 0.44184)
	pt3dadd(115.406, 23.297, 83, 0.393844)
	pt3dadd(115.358, 23.02, 83, 0.371414)
	pt3dadd(115.307, 22.8, 83, 0.382522)
	pt3dadd(115.219, 22.6078, 83.2, 0.428764)
	pt3dadd(115.188, 22.3025, 83.2, 0.380542)
	pt3dadd(115.141, 22.1, 83.4, 0.466468)
	pt3dadd(115.069, 21.813, 83.4, 0.53497)
	pt3dadd(114.996, 21.6029, 83.6, 0.49642)
	pt3dadd(114.928, 21.4299, 83.4, 0.662368)
	pt3dadd(114.891, 21.0973, 83.4, 0.65557)
	pt3dadd(115.008, 20.8037, 83.2, 0.444848)
	pt3dadd(114.967, 20.5, 83.2, 0.392556)
	pt3dadd(114.975, 20.3, 83.2, 0.446656)
	pt3dadd(114.934, 20.1141, 83.4, 0.446262)
	pt3dadd(114.883, 19.9296, 83.6, 0.38786)
	pt3dadd(114.857, 19.7, 83.6, 0.448876)
	pt3dadd(114.903, 19.4, 83.4, 0.568604)
	pt3dadd(114.857, 19.1, 83.4, 0.482316)
	pt3dadd(114.835, 18.8, 83.6, 0.455718)
	pt3dadd(114.78, 18.5918, 83.8, 0.535308)
	pt3dadd(114.85, 18.3207, 83.6, 0.538992)
	pt3dadd(114.869, 18.1328, 83.4, 0.50375)
	pt3dadd(114.949, 17.8264, 83.4, 0.562408)
	pt3dadd(114.926, 17.4892, 83.4, 0.447544)
	pt3dadd(114.998, 17.2, 83.2, 0.1)
	pt3dadd(114.996, 16.8008, 83.6, 0.39708)
	pt3dadd(115.003, 16.4616, 83.6, 0.536602)
	pt3dadd(114.992, 16.1965, 83.8, 0.440142)
	pt3dadd(115.01, 15.901, 83.8, 0.572596)
	pt3dadd(114.899, 15.7007, 83.8, 0.424864)
	pt3dadd(114.858, 15.4, 83.6, 0.480042)
	pt3dadd(114.771, 15.2424, 83.8, 0.533424)
	pt3dadd(114.77, 14.9465, 84, 0.544794)
	pt3dadd(114.795, 14.6018, 84, 0.550872)
	pt3dadd(114.716, 14.3904, 84.2, 0.424298)
	pt3dadd(114.636, 14.1, 84.2, 0.454346)
	pt3dadd(114.629, 13.8293, 84.2, 0.495994)
	pt3dadd(114.637, 13.5342, 84.2, 0.542064)
	pt3dadd(114.622, 13.2579, 84.4, 0.6521)
	pt3dadd(114.595, 12.9015, 84.4, 0.610716)
	pt3dadd(114.478, 12.6582, 84.6, 0.623402)
	pt3dadd(114.396, 12.4, 84.8, 0.588074)
	pt3dadd(114.362, 12.3, 85.2, 0.460762)
	pt3dadd(114.311, 12.1053, 85.6, 0.438974)
	pt3dadd(114.344, 11.7, 85.6, 0.47284)
	pt3dadd(114.444, 11.5181, 85.4, 0.297486)
  }
  dend[44] {pt3dclear()
	pt3dadd(117.53, 88.6104, 84.8, 1.14419)
	pt3dadd(116.927, 88.8495, 85.6, 0.555616)
	pt3dadd(116.588, 88.6072, 85.8, 0.344878)
	pt3dadd(116.4, 88.4997, 85.6, 0.295958)
	pt3dadd(116.305, 88.3951, 85.8, 0.27847)
	pt3dadd(116.202, 88.2971, 85.8, 0.334446)
	pt3dadd(115.958, 88.1298, 85.8, 0.411186)
	pt3dadd(115.815, 88.077, 86, 0.30374)
	pt3dadd(115.7, 88.0628, 86, 0.243676)
	pt3dadd(115.4, 87.9443, 86.2, 0.246726)
	pt3dadd(115.199, 87.9017, 85.6, 0.350392)
	pt3dadd(114.804, 87.6902, 85.4, 0.625364)
	pt3dadd(114.575, 87.1963, 86.8877, 0.694478)
	pt3dadd(114.397, 87, 86.6, 0.529358)
	pt3dadd(113.032, 86.7297, 87, 0.961932)
	pt3dadd(112.635, 86.3738, 87.4, 0.58002)
	pt3dadd(112.386, 86.2685, 87.6, 0.46962)
	pt3dadd(112.201, 86.1988, 87.8, 0.367526)
	pt3dadd(112.106, 86.1801, 87.6, 0.371112)
	pt3dadd(111.896, 86.0406, 87.6, 0.47722)
	pt3dadd(111.518, 85.9514, 87.8, 0.52696)
	pt3dadd(111.146, 85.808, 88, 0.686296)
	pt3dadd(110.962, 85.738, 88.3391, 0.415408)
	pt3dadd(110.707, 85.4829, 88.5398, 0.294272)
	pt3dadd(110.555, 85.351, 88.65, 0.347212)
	pt3dadd(110.429, 85.222, 88.7867, 0.460742)
	pt3dadd(110.289, 85.0796, 88.9632, 0.418962)
	pt3dadd(110.128, 84.9398, 89.1351, 0.485054)
	pt3dadd(109.97, 84.8303, 89.3214, 0.422118)
	pt3dadd(109.806, 84.7273, 89.5539, 0.42309)
	pt3dadd(109.629, 84.6306, 89.7835, 0.425056)
	pt3dadd(109.497, 84.5437, 89.9863, 0.607146)
	pt3dadd(109.227, 84.2508, 90.3787, 0.783248)
	pt3dadd(108.628, 84.0227, 90.648, 0.479782)
	pt3dadd(108.396, 83.8745, 90.883, 0.629964)
	pt3dadd(108.001, 83.3997, 91.4, 0.440016)
	pt3dadd(107.949, 83.3381, 91.4, 0.456486)
	pt3dadd(107.853, 83.2168, 91.6, 0.485)
	pt3dadd(107.636, 83.0566, 91.6, 0.39886)
	pt3dadd(107.523, 82.9696, 91.4, 0.383376)
	pt3dadd(107.406, 82.8897, 91.6, 0.38229)
	pt3dadd(107.185, 82.7163, 91.6, 0.48354)
	pt3dadd(107.043, 82.4847, 91.8, 0.49213)
	pt3dadd(106.943, 82.2277, 92, 0.578706)
	pt3dadd(106.643, 81.9696, 92, 0.450292)
	pt3dadd(106.566, 81.916, 92, 0.517156)
	pt3dadd(106.498, 81.8025, 92.2, 0.452448)
	pt3dadd(106.298, 81.6022, 92.4, 0.586814)
	pt3dadd(106.155, 81.3707, 92.6, 0.547732)
	pt3dadd(105.997, 81.2059, 92.8, 0.44917)
	pt3dadd(105.907, 81.0881, 93, 0.350626)
	pt3dadd(105.702, 80.8972, 93.2, 0.490564)
	pt3dadd(105.294, 80.6567, 93.6, 0.965394)
	pt3dadd(105.191, 80.405, 94, 0.81179)
	pt3dadd(105.048, 80.1103, 94.4, 0.501768)
	pt3dadd(105.019, 79.8286, 94.6, 0.458384)
	pt3dadd(104.96, 79.692, 94.8, 0.487344)
	pt3dadd(104.802, 79.397, 95, 0.484778)
	pt3dadd(104.676, 79.2317, 95.4, 0.403284)
	pt3dadd(104.531, 78.977, 95.4, 0.407952)
	pt3dadd(104.48, 78.8108, 95.6, 0.369024)
	pt3dadd(104.387, 78.6055, 95.6, 0.473252)
	pt3dadd(104.315, 78.3125, 95.8, 0.549782)
	pt3dadd(103.8, 78.0204, 96.4, 0.122162)
	pt3dadd(103.556, 77.8482, 96.4, 0.409224)
	pt3dadd(103.438, 77.7189, 96.4, 0.493524)
	pt3dadd(103.305, 77.494, 96.6, 0.500604)
	pt3dadd(103.102, 77.1985, 96.6, 0.507488)
	pt3dadd(102.895, 76.9035, 96.8, 0.478932)
	pt3dadd(102.818, 76.6892, 96.8, 0.399118)
	pt3dadd(102.751, 76.4846, 96.8, 0.308422)
	pt3dadd(102.611, 76.1862, 96.8, 0.631908)
	pt3dadd(102.377, 75.7137, 97, 0.701642)
	pt3dadd(102.201, 75.5991, 97.2, 0.455448)
	pt3dadd(102.091, 75.5073, 97.4, 0.232052)
	pt3dadd(102.102, 75.3997, 97.2, 0.389862)
	pt3dadd(101.928, 75.3531, 97.4, 0.306336)
	pt3dadd(101.869, 75.3338, 97.6, 0.170994)
	pt3dadd(101.699, 75.2005, 97.6, 0.313208)
	pt3dadd(101.505, 74.9976, 97.8, 0.428398)
	pt3dadd(101.316, 74.7824, 97.8, 0.477766)
	pt3dadd(101.249, 74.6403, 98, 0.460924)
	pt3dadd(101.044, 74.3841, 98, 0.515196)
	pt3dadd(100.933, 74.2319, 98.2, 0.495034)
	pt3dadd(100.727, 73.9728, 98.4, 0.77118)
	pt3dadd(100.671, 73.4575, 98.4, 0.513778)
	pt3dadd(100.598, 73.2011, 98.6, 0.439982)
	pt3dadd(100.495, 73.0019, 98.6, 0.54124)
	pt3dadd(100.456, 72.7, 98.8, 0.457382)
	pt3dadd(100.444, 72.4, 98.8, 0.449898)
	pt3dadd(100.467, 72.2, 99, 0.454902)
	pt3dadd(100.432, 71.8765, 99, 0.397176)
	pt3dadd(100.484, 71.8, 99.2, 0.40268)
	pt3dadd(100.445, 71.6, 99.4, 0.481576)
	pt3dadd(100.407, 71.297, 99.6, 0.503598)
	pt3dadd(100.324, 70.9884, 99.6, 0.413308)
	pt3dadd(100.293, 70.7, 99.6, 0.385482)
	pt3dadd(100.376, 70.3899, 99.8, 0.43207)
	pt3dadd(100.455, 70.0789, 100, 0.553244)
	pt3dadd(100.596, 69.7968, 100, 0.579474)
	pt3dadd(100.706, 69.5, 100, 0.5578)
	pt3dadd(100.719, 69.2, 99.8, 0.336464)
	pt3dadd(100.733, 69, 99.8, 0.26229)
	pt3dadd(100.723, 68.8681, 99.8, 0.31327)
	pt3dadd(100.791, 68.8, 100, 0.359368)
	pt3dadd(100.775, 68.5895, 100, 0.484856)
	pt3dadd(100.845, 68.4, 99.8, 0.656556)
	pt3dadd(100.741, 68, 99.4, 0.461532)
	pt3dadd(100.619, 67.6089, 100.6, 0.502474)
	pt3dadd(100.587, 67.342, 100.8, 0.506904)
	pt3dadd(100.652, 67.2, 101.2, 0.488014)
	pt3dadd(100.672, 66.8885, 101.4, 0.526646)
	pt3dadd(100.701, 66.5996, 101.6, 0.533696)
	pt3dadd(100.63, 66.2909, 101.6, 0.625922)
	pt3dadd(100.555, 65.8263, 102, 0.81447)
	pt3dadd(100.456, 65.6441, 102.4, 0.67306)
	pt3dadd(100.281, 65.4157, 102.8, 0.563822)
	pt3dadd(100.246, 65.0778, 103, 0.529332)
	pt3dadd(100.253, 64.9, 103.2, 0.442482)
	pt3dadd(100.269, 64.6, 103.2, 0.416466)
	pt3dadd(100.294, 64.4025, 103.4, 0.513618)
	pt3dadd(100.204, 63.9425, 103.6, 0.932334)
	pt3dadd(100.207, 63.2974, 103.6, 0.393992)
	pt3dadd(100.353, 62.8161, 104.8, 0.509536)
	pt3dadd(100.36, 62.6818, 104.8, 0.520672)
	pt3dadd(100.394, 62.5025, 105, 0.518196)
	pt3dadd(100.264, 62.2137, 105, 0.519602)
	pt3dadd(100.136, 61.9521, 105.2, 0.544404)
	pt3dadd(100.041, 61.5853, 105.6, 0.715076)
	pt3dadd(99.8995, 61.3008, 105.8, 0.694234)
	pt3dadd(99.8008, 61.0992, 105.8, 0.21959)
	pt3dadd(100.004, 60.7057, 106.6, 0.522336)
	pt3dadd(99.9023, 60.4977, 106.8, 0.558858)
	pt3dadd(99.705, 60.1982, 107, 0.58602)
	pt3dadd(99.6104, 59.9938, 107, 0.725438)
	pt3dadd(99.2764, 59.449, 107.2, 0.857924)
	pt3dadd(99.2023, 59.0904, 107.4, 0.603034)
	pt3dadd(99.2559, 58.517, 107.4, 0.910586)
	pt3dadd(99.2017, 57.9, 107.6, 0.750694)
	pt3dadd(99.1646, 57.5168, 107.8, 0.51469)
	pt3dadd(99.1025, 57.2985, 108, 0.374988)
	pt3dadd(99.021, 56.986, 108.2, 0.40687)
	pt3dadd(98.9496, 56.8453, 108.4, 0.436076)
  }
}
proc shape3d_36() {
  dend[44] {	pt3dadd(98.8476, 56.7388, 108.8, 0.465234)
	pt3dadd(98.7595, 56.6, 109, 0.459068)
	pt3dadd(98.7095, 56.3955, 109.4, 0.445952)
  }
}
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()
  shape3d_23()
  shape3d_24()
  shape3d_25()
  shape3d_26()
  shape3d_27()
  shape3d_28()
  shape3d_29()
  shape3d_30()
  shape3d_31()
  shape3d_32()
  shape3d_33()
  shape3d_34()
  shape3d_35()
  shape3d_36()
}

objref all, somatic, basal, apical
objref bas1, bas2, bas3, dendritic

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

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

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

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

    
    bas1 = new SectionList()
    dend[0] bas1.subtree()

    bas2 = new SectionList()
    dend[11] bas2.subtree()

    bas3 = new SectionList()
    dend[28] bas3.subtree()
    
    dendritic = new SectionList()    
    forsec apical  {
        dendritic.append()
    }
    forsec basal  {
        dendritic.append()
    }

}
proc geom() {
}


/* Sets nseg in each section to an odd value
   so that its segments are no longer than
     d_lambda x the AC length constant
   at frequency freq in that section.

   Be sure to specify your own Ra and cm before calling geom_nseg()

   To understand why this works,
   and the advantages of using an odd value for nseg,
   see  Hines, M.L. and Carnevale, N.T.
        NEURON: a tool for neuroscientists.
        The Neuroscientist 7:123-135, 2001.
*/

// these are reasonable values for most models
// freq = 100      // Hz, frequency at which AC length constant will be computed
// d_lambda = 0.1



func lambda_f() { local i, x1, x2, d1, d2, lam
  if (n3d() < 2) {
          return 1e5 * sqrt(diam / (4 * PI * $1 * Ra * cm))
  }
  // above was too inaccurate with large variation in 3d diameter
  // so now we use all 3-d points to get a better approximate lambda
  x1 = arc3d(0)
  d1 = diam3d(0)
  lam = 0
  for i = 1, n3d() - 1 {
    x2 = arc3d(i)
    d2 = diam3d(i)
    lam += (x2 - x1)/sqrt(d1 + d2)
    x1 = x2
    d1 = d2
  }
  //  length of the section in units of lambda
  lam *= sqrt(2) * 1e-5 * sqrt(4 * PI * $1 * Ra * cm)

  return L / lam
}



proc geom_nseg() { local freq, d_lambda
  freq = $1
  d_lambda = $2
  forall {
    nseg = int((L / (d_lambda * lambda_f(freq)) + 0.9) / 2) * 2 + 1
  }
}

proc biophys() {
}
access soma

celldef()

Loading data, please wait...