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, 0.1)
}

//create soma, dend[149], dend_5[58], dend_6[79]
// cmw: updated 8/19/11 to fix oblique connect error
create soma, dend[150], dend_5[58], dend_6[79]  

proc topol() { local i
  //connect dend(0), soma(1)	// moved - see dend[62] below.
  for i = 1, 2 connect dend[i](0), dend_5[i-1](1)
  for i = 3, 5 connect dend[i](0), dend_5[i-2](1)
  for i = 6, 7 connect dend[i](0), dend_5[i-3](1)
  connect dend[8](0), dend_5[4](1)
  connect dend[9](0), dend_5[2](1)
  connect dend[10](0), dend_5[5](1)
  for i = 11, 12 connect dend[i](0), dend[10](1)
  for i = 13, 14 connect dend[i](0), dend_5[i-8](1)
  for i = 15, 16 connect dend[i](0), dend_5[i-9](1)
  connect dend[17](0), dend_5[7](1)
  for i = 18, 19 connect dend[i](0), soma(0)
  for i = 20, 21 connect dend[i](0), dend_5[i-11](1)
  connect dend[22](0), dend_5[10](1)
  connect dend[23](0), dend_5[9](1)
  connect dend[24](0), dend_5[8](1)
  for i = 25, 26 connect dend[i](0), dend_5[11](1)
  connect dend[27](0), soma(0)
  connect dend[28](0), dend_5[12](1)
  for i = 29, 30 connect dend[i](0), dend[28](1)
  for i = 31, 32 connect dend[i](0), dend_5[i-19](1)
  for i = 33, 34 connect dend[i](0), dend[i-1](1)
  connect dend[35](0), dend[33](1)
  connect dend[36](0), dend[32](1)
  for i = 37, 38 connect dend[i](0), dend_5[i-24](1)
  connect dend[39](0), dend_5[14](1)
  connect dend[40](0), soma(0)
  for i = 41, 43 connect dend[i](0), dend_5[i-26](1)
  connect dend[44](0), dend_5[17](1)
  connect dend[45](0), dend_5[15](1)
  for i = 46, 47 connect dend[i](0), dend_5[18](1)
  connect dend[48](0), soma(0)
  for i = 49, 51 connect dend[i](0), dend_5[i-30](1)
  for i = 52, 53 connect dend[i](0), dend_5[i-31](1)
  connect dend[54](0), dend_5[22](1)
  connect dend[55](0), dend_5[20](1)
  for i = 56, 57 connect dend[i](0), dend_5[i-33](1)
  connect dend[58](0), dend_5[24](1)
  connect dend[59](0), dend_5[23](1)
  for i = 60, 61 connect dend[i](0), dend[59](1)
  
  // cmw:  corrected 8/19/11
  connect dend[149](0), soma(0)
  connect dend[62](0), dend[149](1)
  connect dend(0), dend[149](1)


  for i = 63, 65 connect dend[i](0), dend_5[i-38](1)
  connect dend[66](0), dend_5[27](1)
  connect dend[67](0), dend_5[26](1)
  for i = 68, 69 connect dend[i](0), dend_5[28](1)
  connect dend[70](0), dend_5[25](1)
  for i = 71, 73 connect dend[i](0), dend_5[i-42](1)
  connect dend[74](0), dend_5[31](1)
  connect dend[75](0), dend_5[30](1)
  connect dend[76](0), dend_5[29](1)
  for i = 77, 78 connect dend[i](0), dend_5[i-45](1)
  for i = 79, 81 connect dend[i](0), dend_5[i-46](1)
  connect dend[82](0), dend_5[35](1)
  connect dend[83](0), dend_5[34](1)
  connect dend[84](0), dend_5[32](1)
  for i = 85, 86 connect dend[i](0), dend_5[i-49](1)
  connect dend[87](0), dend_5[37](1)
  connect dend[88](0), dend_5[36](1)
  for i = 89, 90 connect dend[i](0), dend_5[i-51](1)
  connect dend[91](0), dend_5[39](1)
  connect dend[92](0), dend_5[38](1)
  connect dend[93](0), dend_5[40](1)
  for i = 94, 95 connect dend[i](0), dend[93](1)
  for i = 96, 99 connect dend[i](0), dend_5[i-56](1)
  connect dend[100](0), dend_5[43](1)
  connect dend[101](0), dend_5[42](1)
  connect dend[102](0), dend_5[41](1)
  for i = 103, 104 connect dend[i](0), dend_5[i-59](1)
  connect dend[105](0), dend_5[45](1)
  connect dend[106](0), dend_5[44](1)
  for i = 107, 111 connect dend[i](0), dend_5[i-61](1)
  connect dend[112](0), dend_5[50](1)
  connect dend[113](0), dend[112](1)
  for i = 114, 115 connect dend[i](0), dend_5[51](1)
  connect dend[116](0), dend_5[49](1)
  connect dend[117](0), dend_5[52](1)
  for i = 118, 119 connect dend[i](0), dend[i-1](1)
  connect dend[120](0), dend[118](1)
  connect dend[121](0), dend[117](1)
  for i = 122, 123 connect dend[i](0), dend_5[i-70](1)
  for i = 124, 126 connect dend[i](0), dend[i-1](1)
  connect dend[127](0), dend[125](1)
  connect dend[128](0), dend[124](1)
  connect dend[129](0), dend[123](1)
  for i = 130, 131 connect dend[i](0), dend_5[54](1)
  for i = 132, 133 connect dend[i](0), dend_5[55](1)
  for i = 134, 135 connect dend[i](0), dend[133](1)
  connect dend[136](0), dend_5[53](1)
  connect dend[137](0), dend_5[48](1)
  connect dend[138](0), dend_5[47](1)
  for i = 139, 140 connect dend[i](0), dend_5[56](1)
  connect dend[141](0), dend_5[46](1)
  for i = 142, 143 connect dend[i](0), dend_5[57](1)
  connect dend[144](0), soma(0)
  for i = 145, 146 connect dend[i](0), dend[144](1)
  for i = 147, 148 connect dend[i](0), dend[146](1)
  for i = 0, 1 connect dend_5[i](0), dend[i](1)
  connect dend_5[2](0), dend_5(1)
  connect dend_5[3](0), dend[4](1)
  connect dend_5[4](0), dend[6](1)
  connect dend_5[5](0), dend[9](1)
  connect dend_5[6](0), dend[13](1)
  connect dend_5[7](0), dend[15](1)
  connect dend_5[8](0), dend[19](1)
  connect dend_5[9](0), dend_5[8](1)
  connect dend_5[10](0), dend[20](1)
  connect dend_5[11](0), dend[24](1)
  connect dend_5[12](0), dend[27](1)
  connect dend_5[13](0), dend[31](1)
  connect dend_5[14](0), dend[37](1)
  for i = 15, 16 connect dend_5[i](0), dend[i+25](1)
  connect dend_5[17](0), dend_5[16](1)
  connect dend_5[18](0), dend[45](1)
  for i = 19, 21 connect dend_5[i](0), dend[i+29](1)
  connect dend_5[22](0), dend[52](1)
  connect dend_5[23](0), dend_5[19](1)
  connect dend_5[24](0), dend[56](1)
  for i = 25, 27 connect dend_5[i](0), dend[i+37](1)
  connect dend_5[28](0), dend[67](1)
  for i = 29, 31 connect dend_5[i](0), dend[i+41](1)
  for i = 32, 33 connect dend_5[i](0), dend[i+44](1)
  for i = 34, 35 connect dend_5[i](0), dend[i+45](1)
  for i = 36, 37 connect dend_5[i](0), dend[i+48](1)
  for i = 38, 39 connect dend_5[i](0), dend[i+50](1)
  connect dend_5[40](0), dend[92](1)
  for i = 41, 43 connect dend_5[i](0), dend[i+55](1)
  for i = 44, 45 connect dend_5[i](0), dend[i+58](1)
  for i = 46, 50 connect dend_5[i](0), dend[i+60](1)
  connect dend_5[51](0), dend[112](1)
  connect dend_5[52](0), dend[116](1)
  connect dend_5[53](0), dend[122](1)
  connect dend_5[54](0), dend[129](1)
  connect dend_5[55](0), dend[131](1)
  connect dend_5[56](0), dend[138](1)
  connect dend_5[57](0), dend[141](1)
  for i = 0, 1 connect dend_6[i](0), dend[i+2](1)
  connect dend_6[2](0), dend[5](1)
  for i = 3, 4 connect dend_6[i](0), dend[i+4](1)
  for i = 5, 6 connect dend_6[i](0), dend[i+6](1)
  connect dend_6[7](0), dend[14](1)
  for i = 8, 10 connect dend_6[i](0), dend[i+8](1)
  for i = 11, 13 connect dend_6[i](0), dend[i+10](1)
  for i = 14, 15 connect dend_6[i](0), dend[i+11](1)
  for i = 16, 17 connect dend_6[i](0), dend[i+13](1)
  for i = 18, 20 connect dend_6[i](0), dend[i+16](1)
  for i = 21, 22 connect dend_6[i](0), dend[i+17](1)
  for i = 23, 25 connect dend_6[i](0), dend[i+19](1)
  for i = 26, 27 connect dend_6[i](0), dend[i+20](1)
  connect dend_6[28](0), dend[51](1)
  for i = 29, 31 connect dend_6[i](0), dend[i+24](1)
  for i = 32, 33 connect dend_6[i](0), dend[i+25](1)
  for i = 34, 35 connect dend_6[i](0), dend[i+26](1)
  for i = 36, 37 connect dend_6[i](0), dend[i+29](1)
  for i = 38, 39 connect dend_6[i](0), dend[i+30](1)
  for i = 40, 42 connect dend_6[i](0), dend[i+33](1)
  connect dend_6[43](0), dend[78](1)
  for i = 44, 46 connect dend_6[i](0), dend[i+37](1)
  for i = 47, 48 connect dend_6[i](0), dend[i+39](1)
  for i = 49, 50 connect dend_6[i](0), dend[i+41](1)
  for i = 51, 52 connect dend_6[i](0), dend[i+43](1)
  for i = 53, 55 connect dend_6[i](0), dend[i+46](1)
  for i = 56, 57 connect dend_6[i](0), dend[i+48](1)
  connect dend_6[58](0), dend[111](1)
  for i = 59, 61 connect dend_6[i](0), dend[i+54](1)
  for i = 62, 64 connect dend_6[i](0), dend[i+57](1)
  for i = 65, 67 connect dend_6[i](0), dend[i+61](1)
  connect dend_6[68](0), dend[132](1)
  for i = 69, 71 connect dend_6[i](0), dend[i+66](1)
  for i = 72, 73 connect dend_6[i](0), dend[i+67](1)
  for i = 74, 75 connect dend_6[i](0), dend[i+68](1)
  connect dend_6[76](0), dend[145](1)
  for i = 77, 78 connect dend_6[i](0), dend[i+70](1)
  basic_shape()
}
proc shape3d_1() {
  soma {pt3dclear()
  
    /****
	//original SWC soma line:
	//1 1 265.715698 272.470703 44.825394 5.623369 -1
	//flawed import3d result:
	//pt3dadd(265.716, 272.471, 44.8254, 11.2467)
	//pt3dadd(272.206, 268.596, 40.3163, 2.08387)
	// cmw fix:  if the soma radius is a fair representation of the true
	// soma size, then a soma with L = diam = 2*(orig radius) will have
	// the same lateral SA.  Center the soma at the average of the original (x,y,z) coords,
	// and set the diameter to the average of the original diameters.
	//	Then:
	//  	first point:  xc, yc-rad, zc, diam
	//  	second point:  xc, yc+rad, zc, diam
	pt3dadd(268.961, 266.3266, 42.571, 6.665)
	pt3dadd(268.961, 272.9919,  42.571, 6.665)
	****/
	
	/* 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.
	 */
	pt3dadd(265.716, 264.112, 44.825394, 16.7175)
	pt3dadd(265.716, 280.830, 44.825394, 16.7175)
  }
  dend {pt3dclear()
	// cmw:  added this point on 8/19/11, to fix oblique connect error
	pt3dadd(267.376, 274.355, 43.93,   2.06969)
	// below is original data
	pt3dadd(272.206, 268.596, 40.3163, 2.06969)
	pt3dadd(273.094, 267.537, 39.6515, 2.06969)
	pt3dadd(273.909, 266.915, 38.9122, 2.0412)
	pt3dadd(274.669, 266.423, 38.311, 1.77349)
	pt3dadd(275.376, 265.87, 37.7767, 1.77048)
	pt3dadd(276.061, 265.473, 37.2754, 1.76585)
	pt3dadd(276.873, 265.008, 36.697, 1.69635)
	pt3dadd(277.689, 264.594, 36.1732, 1.72563)
  }
  dend_5 {pt3dclear()
	pt3dadd(277.689, 264.594, 36.1732, 1.72563)
	pt3dadd(279.109, 263.416, 35.1218, 2.55666)
  }
  dend[1] {pt3dclear()
	pt3dadd(279.109, 263.416, 35.1218, 2.55666)
	pt3dadd(280.399, 263.408, 35.4958, 0.789876)
	pt3dadd(281.131, 263.326, 35.4706, 0.470106)
	pt3dadd(281.483, 263.281, 35.4753, 0.485606)
	pt3dadd(281.832, 263.197, 35.4553, 0.526844)
	pt3dadd(282.117, 263.098, 35.4145, 0.548672)
	pt3dadd(282.426, 262.958, 35.4179, 0.607498)
	pt3dadd(282.738, 262.869, 35.4128, 0.567856)
	pt3dadd(283.049, 262.712, 35.3828, 0.571506)
	pt3dadd(283.365, 262.553, 35.3513, 0.543612)
	pt3dadd(283.707, 262.351, 35.2827, 0.521638)
	pt3dadd(284.052, 262.192, 35.2238, 0.594606)
	pt3dadd(284.341, 261.969, 35.1479, 0.711532)
	pt3dadd(284.651, 261.781, 35.1237, 0.747834)
	pt3dadd(285.337, 261.311, 35.1002, 0.572392)
	pt3dadd(285.706, 261.123, 35.0432, 0.551302)
	pt3dadd(286.052, 260.974, 34.9365, 0.731564)
	pt3dadd(286.413, 260.804, 34.8649, 1.09268)
  }
  dend_5[1] {pt3dclear()
	pt3dadd(286.413, 260.804, 34.8649, 1.09268)
	pt3dadd(287.699, 260.503, 34.7675, 1.5296)
  }
  dend[2] {pt3dclear()
	pt3dadd(287.699, 260.503, 34.7675, 1.5296)
	pt3dadd(287.869, 259.752, 34.4666, 0.930602)
	pt3dadd(288.226, 259.001, 34.1043, 0.595434)
	pt3dadd(288.325, 258.627, 34.0428, 0.386838)
	pt3dadd(288.519, 258.327, 33.9297, 0.452282)
	pt3dadd(288.713, 258.006, 33.8365, 0.633698)
	pt3dadd(288.947, 257.672, 33.7339, 0.719368)
	pt3dadd(289.208, 257.429, 33.6175, 0.739478)
	pt3dadd(289.534, 257.212, 33.5966, 0.497092)
	pt3dadd(289.956, 256.99, 33.5602, 0.452378)
	pt3dadd(290.157, 256.729, 33.5017, 0.343722)
	pt3dadd(290.391, 256.524, 33.4852, 0.315642)
	pt3dadd(290.675, 256.31, 33.5109, 0.464922)
	pt3dadd(290.965, 256.017, 33.48, 0.350274)
	pt3dadd(291.134, 255.78, 33.4439, 0.376752)
	pt3dadd(291.41, 255.515, 33.3876, 0.528258)
	pt3dadd(291.725, 255.285, 33.3555, 0.67646)
	pt3dadd(292.057, 255.075, 33.2897, 0.890936)
	pt3dadd(292.743, 254.788, 33.106, 0.764868)
	pt3dadd(293.09, 254.598, 33.0607, 0.735608)
	pt3dadd(293.427, 254.293, 33.027, 0.610626)
	pt3dadd(293.656, 254.039, 33.0268, 0.511458)
	pt3dadd(293.972, 253.851, 33.0061, 0.534508)
	pt3dadd(294.296, 253.694, 32.9625, 0.665922)
	pt3dadd(294.526, 253.418, 32.8974, 0.707872)
	pt3dadd(294.774, 253.072, 32.8454, 0.421506)
	pt3dadd(295.002, 252.822, 32.8954, 0.442184)
	pt3dadd(295.351, 252.663, 33.0034, 0.583772)
	pt3dadd(295.715, 252.465, 33.0354, 0.661516)
	pt3dadd(296.186, 252.194, 32.787, 0.663806)
	pt3dadd(296.569, 252.073, 32.6846, 0.600132)
	pt3dadd(296.915, 251.947, 32.5251, 0.527984)
	pt3dadd(297.199, 251.689, 32.3662, 0.50913)
	pt3dadd(297.459, 251.445, 32.277, 0.46429)
	pt3dadd(297.714, 251.235, 32.2322, 0.477438)
	pt3dadd(298.003, 251.024, 32.2126, 0.382914)
	pt3dadd(298.282, 250.857, 32.1512, 0.381668)
	pt3dadd(298.637, 250.676, 32.1122, 0.557518)
	pt3dadd(299, 250.493, 32.0732, 0.8281)
	pt3dadd(299.408, 250.068, 31.9838, 0.885056)
	pt3dadd(299.956, 249.901, 31.9237, 0.873362)
	pt3dadd(300.746, 249.8, 31.7987, 1.21254)
	pt3dadd(301.57, 249.509, 31.6314, 0.695012)
	pt3dadd(301.904, 249.315, 31.5642, 0.56916)
	pt3dadd(302.194, 249.062, 31.5008, 0.493854)
	pt3dadd(302.482, 248.879, 31.4596, 0.576192)
	pt3dadd(302.766, 248.699, 31.6445, 0.599276)
	pt3dadd(303.133, 248.293, 31.4234, 0.46782)
	pt3dadd(303.31, 247.995, 31.3759, 0.37622)
	pt3dadd(303.536, 247.717, 31.3878, 0.534408)
	pt3dadd(303.807, 247.463, 31.4152, 0.630594)
	pt3dadd(304.094, 247.277, 31.4397, 0.761378)
	pt3dadd(304.735, 246.857, 31.4112, 1.03166)
	pt3dadd(305.24, 246.217, 31.3956, 0.358408)
	pt3dadd(305.446, 246.022, 31.4594, 0.359)
	pt3dadd(305.625, 245.796, 31.5531, 0.344362)
	pt3dadd(305.804, 245.485, 31.5233, 0.438806)
	pt3dadd(305.948, 245.127, 31.4238, 0.93228)
	pt3dadd(306.612, 244.589, 31.667, 1.01819)
	pt3dadd(307.29, 243.983, 31.9037, 0.839104)
	pt3dadd(307.594, 243.77, 32.175, 0.726394)
	pt3dadd(307.907, 243.185, 32.0816, 0.610222)
	pt3dadd(307.964, 242.641, 32.3096, 0.46342)
	pt3dadd(308.158, 242.301, 32.4632, 0.56902)
	pt3dadd(308.444, 241.924, 32.5504, 0.510156)
	pt3dadd(308.641, 241.635, 32.7397, 0.568996)
	pt3dadd(308.734, 241.283, 32.9279, 0.68824)
	pt3dadd(308.92, 240.933, 33.0983, 0.823466)
	pt3dadd(309.249, 240.163, 33.5004, 0.759316)
	pt3dadd(309.304, 239.785, 33.7644, 0.826374)
	pt3dadd(309.654, 239.373, 34.2454, 0.514808)
	pt3dadd(309.857, 239.081, 34.3607, 0.39009)
	pt3dadd(309.879, 238.817, 34.4816, 0.532514)
	pt3dadd(310.05, 238.388, 34.7494, 0.511514)
	pt3dadd(310.226, 238.133, 34.7495, 0.460006)
	pt3dadd(310.409, 237.754, 34.6641, 0.529554)
	pt3dadd(310.602, 237.378, 34.6629, 0.366334)
	pt3dadd(310.751, 237.079, 34.638, 0.249598)
	pt3dadd(310.832, 236.753, 34.6865, 0.361312)
	pt3dadd(310.916, 236.453, 34.7179, 0.396934)
	pt3dadd(310.916, 236.174, 34.665, 0.440968)
	pt3dadd(310.843, 235.784, 34.5648, 0.790424)
	pt3dadd(311.177, 235.199, 34.3416, 0.721218)
	pt3dadd(311.39, 234.763, 34.2213, 0.64287)
	pt3dadd(311.932, 234.532, 34.3356, 0.628628)
	pt3dadd(312.411, 234.37, 34.3532, 0.652194)
	pt3dadd(312.878, 234.168, 34.1535, 0.760492)
	pt3dadd(313.321, 233.948, 33.9354, 0.927344)
	pt3dadd(314.211, 233.535, 33.7557, 0.547198)
	pt3dadd(314.511, 233.476, 33.7318, 0.509514)
	pt3dadd(314.821, 233.333, 33.6898, 0.549584)
	pt3dadd(315.128, 233.112, 33.6211, 0.667726)
	pt3dadd(315.463, 232.973, 33.4973, 0.947264)
	pt3dadd(316.003, 232.477, 33.1716, 0.995868)
	pt3dadd(316.377, 232.025, 33.0419, 0.828378)
	pt3dadd(316.942, 231.478, 32.8185, 0.80903)
	pt3dadd(317.367, 231.156, 33.0033, 0.93764)
	pt3dadd(317.806, 230.5, 33.2356, 1.35876)
	pt3dadd(318.453, 229.306, 33.4175, 0.874922)
	pt3dadd(318.835, 228.647, 33.6876, 0.536164)
	pt3dadd(319.084, 228.437, 33.8631, 0.709348)
	pt3dadd(319.305, 227.862, 33.5339, 0.457592)
	pt3dadd(319.491, 227.625, 33.3885, 0.218932)
	pt3dadd(319.609, 227.383, 33.23, 0.40718)
	pt3dadd(319.655, 227.076, 33.0519, 0.497276)
	pt3dadd(319.648, 226.82, 32.9967, 0.285096)
	pt3dadd(319.714, 226.556, 32.8747, 0.481962)
	pt3dadd(319.979, 226.129, 32.7615, 0.360946)
	pt3dadd(320.141, 225.822, 32.7386, 0.549864)
	pt3dadd(320.387, 225.603, 32.7001, 0.649774)
	pt3dadd(320.538, 225.232, 32.8174, 0.427186)
	pt3dadd(320.72, 224.887, 32.8817, 0.563496)
	pt3dadd(321.007, 224.573, 32.7768, 0.949056)
	pt3dadd(321.207, 224.126, 32.8125, 1.1793)
	pt3dadd(321.439, 223.114, 32.6881, 1.10739)
	pt3dadd(321.564, 222.215, 32.6013, 1.05298)
	pt3dadd(321.642, 221.387, 32.5385, 0.711116)
	pt3dadd(321.779, 220.715, 32.5409, 0.380554)
	pt3dadd(321.808, 220.438, 32.5172, 0.383636)
	pt3dadd(321.876, 220.122, 32.5177, 0.637936)
	pt3dadd(322.008, 219.787, 32.3952, 0.45876)
	pt3dadd(322.111, 219.38, 32.2562, 0.353876)
	pt3dadd(322.181, 219.045, 32.1488, 0.209538)
	pt3dadd(322.123, 218.778, 32.1106, 0.450076)
	pt3dadd(322.204, 218.492, 32.0394, 0.422926)
	pt3dadd(322.522, 218.153, 32.0144, 0.2)
	pt3dadd(322.599, 217.91, 32.0503, 0.29048)
	pt3dadd(322.777, 217.665, 32.0824, 0.365878)
	pt3dadd(322.984, 217.423, 32.065, 0.363248)
	pt3dadd(323.265, 217.111, 32.0507, 0.821626)
	pt3dadd(323.608, 216.483, 31.8687, 1.13114)
	pt3dadd(324.027, 215.716, 31.6721, 1.33801)
	pt3dadd(324.445, 214.56, 31.7571, 0.676902)
	pt3dadd(324.565, 214.114, 31.7434, 0.731118)
	pt3dadd(324.737, 213.789, 31.7051, 0.91878)
	pt3dadd(324.737, 213.348, 31.5345, 0.894404)
	pt3dadd(325.443, 212.509, 31.3751, 0.807032)
	pt3dadd(325.76, 212.184, 31.3924, 0.890398)
	pt3dadd(326.509, 211.544, 31.2996, 1.37418)
	pt3dadd(326.791, 210.815, 31.3694, 0.995514)
	pt3dadd(327.186, 209.986, 31.2282, 0.286812)
	pt3dadd(327.28, 209.685, 31.172, 0.393612)
	pt3dadd(327.415, 209.361, 31.1729, 0.426578)
	pt3dadd(327.611, 209.092, 31.1356, 0.624166)
	pt3dadd(327.731, 208.767, 31.1228, 0.578592)
	pt3dadd(327.863, 208.384, 31.0547, 0.517816)
	pt3dadd(328.637, 207.256, 31.1257, 0.297286)
	pt3dadd(328.699, 207.07, 31.1659, 0.2)
	pt3dadd(328.799, 206.851, 31.1081, 0.2)
	pt3dadd(328.994, 206.404, 31.1331, 0.545296)
	pt3dadd(329.217, 206.15, 31.132, 0.572946)
	pt3dadd(329.515, 205.933, 31.1649, 0.46876)
	pt3dadd(329.899, 205.628, 31.1669, 0.712494)
	pt3dadd(330.31, 204.894, 30.908, 1.35152)
	pt3dadd(331.148, 204.184, 30.6721, 0.81806)
	pt3dadd(331.491, 203.823, 30.7666, 0.373782)
	pt3dadd(331.743, 203.55, 30.7975, 0.306142)
	pt3dadd(332.089, 203.288, 30.8073, 0.335406)
	pt3dadd(332.412, 202.969, 30.9061, 0.324498)
	pt3dadd(332.663, 202.692, 30.569, 0.451858)
	pt3dadd(332.864, 202.359, 30.4778, 0.37673)
	pt3dadd(333.011, 202.022, 30.4031, 0.427642)
	pt3dadd(333.381, 201.329, 30.1584, 0.989656)
	pt3dadd(333.633, 200.891, 30.5537, 0.713174)
	pt3dadd(333.785, 200.433, 30.7413, 0.60837)
	pt3dadd(333.85, 200.069, 30.5574, 0.430108)
	pt3dadd(333.894, 199.692, 30.4945, 0.418748)
	pt3dadd(333.898, 199.395, 30.4645, 0.477692)
  }
}
proc shape3d_2() {
  dend[2] {	pt3dadd(334.031, 199.133, 30.4149, 0.447486)
	pt3dadd(335.271, 196.983, 29.9912, 0.94756)
	pt3dadd(335.542, 196.838, 29.7396, 0.740596)
	pt3dadd(336.09, 196.276, 29.7919, 0.2)
	pt3dadd(336.564, 196.049, 29.7166, 0.56401)
	pt3dadd(336.883, 195.536, 29.6043, 0.77971)
	pt3dadd(337.213, 195.282, 29.5785, 0.657682)
	pt3dadd(338.338, 193.517, 29.357, 0.896634)
	pt3dadd(338.838, 192.91, 29.4938, 0.342286)
	pt3dadd(339.062, 192.684, 29.4974, 0.313134)
	pt3dadd(339.197, 192.386, 29.544, 0.2)
	pt3dadd(339.293, 192.146, 29.6024, 0.344038)
	pt3dadd(339.364, 191.845, 29.7334, 0.452324)
	pt3dadd(339.456, 191.524, 29.8766, 0.666068)
	pt3dadd(339.64, 191.183, 29.9561, 0.615846)
	pt3dadd(339.945, 190.908, 29.9984, 0.583286)
	pt3dadd(340.204, 190.595, 30.0893, 0.825998)
	pt3dadd(340.579, 190.215, 29.9315, 0.535388)
	pt3dadd(340.747, 189.805, 29.8347, 0.545056)
	pt3dadd(341.028, 189.518, 29.8039, 0.26797)
	pt3dadd(341.256, 189.342, 29.7294, 0.2)
	pt3dadd(341.524, 189.207, 29.6534, 0.267024)
	pt3dadd(341.793, 188.979, 29.8757, 0.3916)
	pt3dadd(342.413, 188.548, 30.1468, 1.31993)
	pt3dadd(342.973, 188.014, 30.4035, 1.37746)
	pt3dadd(343.678, 187.358, 30.6377, 1.22918)
	pt3dadd(344.043, 186.981, 30.7215, 1.04148)
	pt3dadd(344.485, 186.335, 30.7308, 0.65555)
	pt3dadd(344.765, 186.027, 30.664, 0.419706)
	pt3dadd(344.883, 185.688, 30.6671, 0.481772)
	pt3dadd(346.102, 184.281, 30.7281, 0.487076)
	pt3dadd(348.724, 180.868, 30.8169, 1.01055)
	pt3dadd(349.3, 180.349, 30.947, 0.853772)
	pt3dadd(349.766, 180.189, 30.9928, 0.801458)
	pt3dadd(350.544, 178.593, 31.4669, 0.422092)
	pt3dadd(350.786, 178.368, 31.3862, 0.205246)
	pt3dadd(351.068, 178.109, 31.3927, 0.2)
	pt3dadd(351.248, 177.845, 31.5209, 0.2)
	pt3dadd(351.448, 177.671, 31.7574, 0.22964)
	pt3dadd(351.876, 176.891, 32.0382, 1.04878)
	pt3dadd(352.319, 176.726, 31.9799, 0.646196)
	pt3dadd(352.703, 176.41, 31.9674, 0.802696)
	pt3dadd(354.128, 175.064, 31.8451, 0.857424)
	pt3dadd(354.561, 174.609, 31.4349, 0.757322)
	pt3dadd(355.099, 174.251, 31.1668, 0.619054)
	pt3dadd(356.69, 172.366, 31.8005, 0.901352)
	pt3dadd(357.168, 171.715, 31.5115, 1.28953)
	pt3dadd(358.053, 171.399, 31.2839, 1.32481)
	pt3dadd(358.362, 170.82, 31.1779, 0.716744)
	pt3dadd(358.836, 170.365, 31.283, 0.390676)
	pt3dadd(359.315, 170.103, 31.5023, 0.203156)
	pt3dadd(359.56, 169.93, 31.5894, 0.2)
	pt3dadd(359.756, 169.792, 31.6463, 0.2)
	pt3dadd(359.992, 169.585, 31.7304, 0.2)
	pt3dadd(360.174, 169.367, 31.7541, 0.244448)
	pt3dadd(360.34, 169.159, 31.6938, 0.294198)
	pt3dadd(360.61, 168.928, 31.6845, 0.470164)
	pt3dadd(361.098, 168.646, 31.6722, 0.790748)
	pt3dadd(361.876, 168.412, 31.7274, 0.778898)
	pt3dadd(365.333, 164.309, 30.2266, 0.461586)
	pt3dadd(365.613, 163.877, 29.9589, 0.746696)
	pt3dadd(365.822, 163.101, 30.042, 1.15375)
	pt3dadd(366.04, 162.261, 29.7592, 0.904578)
	pt3dadd(366.165, 161.869, 29.5834, 0.835124)
	pt3dadd(366.904, 160.74, 29.3174, 1.02508)
	pt3dadd(367.496, 160.194, 29.1615, 1.1135)
	pt3dadd(368.886, 153.526, 28.6947, 1.36743)
	pt3dadd(369.241, 151.737, 29.5693, 0.360418)
	pt3dadd(369.416, 151.496, 29.8785, 0.563014)
	pt3dadd(369.67, 151.206, 30.1842, 0.58216)
	pt3dadd(369.907, 151.006, 30.526, 0.610826)
	pt3dadd(371.085, 146.947, 31.2885, 0.813384)
	pt3dadd(371.412, 146.452, 31.6761, 0.799308)
	pt3dadd(372.44, 143.727, 31.6912, 0.53946)
	pt3dadd(372.627, 140.71, 32.8644, 0.750234)
	pt3dadd(372.767, 140.341, 33.1589, 1.06039)
	pt3dadd(373.227, 139.874, 33.5756, 0.476676)
	pt3dadd(373.477, 139.63, 33.673, 0.23591)
	pt3dadd(373.743, 139.446, 33.7753, 0.2)
	pt3dadd(373.942, 139.212, 33.8566, 0.269852)
	pt3dadd(374.168, 138.946, 33.9224, 0.240628)
	pt3dadd(374.369, 138.659, 34.0836, 0.389992)
	pt3dadd(374.601, 138.433, 34.1182, 0.34782)
	pt3dadd(374.889, 138.194, 34.0614, 0.44863)
	pt3dadd(375.079, 137.884, 34.2026, 0.501726)
	pt3dadd(375.195, 137.547, 34.2458, 0.519964)
	pt3dadd(375.303, 136.531, 34.287, 1.47226)
	pt3dadd(376.118, 136.543, 33.8909, 0.899516)
  }
  dend_6 {pt3dclear()
	pt3dadd(376.118, 136.543, 33.8909, 0.899516)
	pt3dadd(376.4, 136.503, 34, 0.2)
  }
  dend[3] {pt3dclear()
	pt3dadd(287.699, 260.503, 34.7675, 1.5296)
	pt3dadd(288.786, 260.906, 35.1927, 0.551872)
	pt3dadd(289.134, 260.802, 35.32, 0.301308)
	pt3dadd(289.385, 260.749, 35.3472, 0.312798)
	pt3dadd(289.685, 260.677, 35.3612, 0.441876)
	pt3dadd(289.947, 260.681, 35.3115, 0.467662)
	pt3dadd(290.262, 260.656, 35.356, 0.572768)
	pt3dadd(290.595, 260.658, 35.4195, 0.667822)
	pt3dadd(291.044, 260.691, 35.5071, 0.530182)
	pt3dadd(291.344, 260.616, 35.5854, 0.427412)
	pt3dadd(291.669, 260.52, 35.6887, 0.404824)
	pt3dadd(291.948, 260.502, 35.7552, 0.328056)
	pt3dadd(292.19, 260.462, 35.7763, 0.312844)
	pt3dadd(292.493, 260.43, 35.7796, 0.463662)
	pt3dadd(292.794, 260.368, 35.7894, 0.587366)
	pt3dadd(293.089, 260.325, 35.8115, 0.54339)
	pt3dadd(293.396, 260.223, 35.8577, 0.540474)
	pt3dadd(293.714, 260.166, 36.0865, 0.353538)
	pt3dadd(293.932, 260.041, 36.34, 0.545108)
	pt3dadd(294.414, 260.052, 36.2481, 0.395556)
	pt3dadd(294.707, 260.067, 36.1979, 0.448874)
	pt3dadd(295.034, 260.069, 36.1932, 0.575526)
	pt3dadd(295.648, 259.801, 36.1774, 0.800458)
	pt3dadd(296.472, 259.517, 36.3539, 0.879204)
	pt3dadd(297.22, 259.433, 36.6227, 0.739094)
	pt3dadd(297.863, 259.287, 36.8059, 0.542816)
	pt3dadd(298.213, 259.251, 36.8945, 0.66284)
	pt3dadd(298.632, 259.202, 36.9727, 0.98661)
	pt3dadd(299.324, 258.832, 37.111, 0.957004)
	pt3dadd(300.133, 258.368, 37.0936, 0.638906)
	pt3dadd(300.489, 258.138, 36.9775, 0.51713)
	pt3dadd(300.813, 257.974, 36.7763, 0.778414)
	pt3dadd(301.551, 257.976, 37.0261, 0.398898)
	pt3dadd(301.779, 257.925, 37.0715, 0.418612)
	pt3dadd(302.067, 257.875, 37.0878, 0.469382)
	pt3dadd(302.303, 257.627, 37.0269, 0.804216)
	pt3dadd(302.749, 257.684, 37.2628, 0.551008)
	pt3dadd(303.026, 257.712, 37.3348, 0.42898)
	pt3dadd(303.35, 257.686, 37.3784, 0.62215)
	pt3dadd(303.733, 257.644, 37.5065, 0.874438)
	pt3dadd(304.532, 257.701, 37.8525, 0.953614)
	pt3dadd(305.391, 257.741, 37.9842, 0.87259)
	pt3dadd(306.74, 257.535, 38.1193, 0.40941)
	pt3dadd(306.984, 257.45, 38.1572, 0.410522)
	pt3dadd(307.304, 257.4, 38.22, 0.431866)
	pt3dadd(307.636, 257.322, 38.2768, 0.539398)
	pt3dadd(307.943, 257.283, 38.147, 0.437376)
	pt3dadd(308.277, 257.298, 38.0438, 0.394394)
	pt3dadd(308.781, 257.207, 38.2088, 0.357374)
	pt3dadd(309.168, 257.166, 38.126, 0.402142)
	pt3dadd(309.556, 257.194, 38.4764, 0.575936)
	pt3dadd(309.836, 257.186, 38.6324, 0.424948)
	pt3dadd(310.11, 257.17, 38.7631, 0.390832)
	pt3dadd(310.44, 257.168, 38.8481, 0.514686)
	pt3dadd(310.628, 257.352, 38.9702, 0.889842)
	pt3dadd(311.309, 257.071, 39.1217, 0.598984)
	pt3dadd(311.671, 257.006, 39.0673, 0.690106)
	pt3dadd(312.125, 256.918, 39.2989, 0.574668)
	pt3dadd(312.414, 256.733, 39.4498, 0.55372)
	pt3dadd(312.723, 256.586, 39.5838, 0.689842)
	pt3dadd(312.914, 256.331, 39.728, 0.706308)
	pt3dadd(313.193, 256.094, 39.8096, 0.815484)
	pt3dadd(313.507, 255.817, 39.9115, 0.789388)
	pt3dadd(313.984, 255.956, 40.1293, 0.752154)
	pt3dadd(314.309, 256.015, 40.3312, 0.765448)
	pt3dadd(314.774, 255.764, 40.4173, 0.529744)
	pt3dadd(315.104, 255.545, 40.5857, 0.266006)
	pt3dadd(315.365, 255.518, 40.7155, 0.407928)
	pt3dadd(315.604, 255.502, 40.8343, 0.507106)
	pt3dadd(315.918, 255.35, 40.7517, 0.381522)
	pt3dadd(316.172, 255.285, 40.737, 0.428378)
	pt3dadd(316.403, 255.243, 40.7829, 0.320216)
	pt3dadd(316.671, 255.262, 40.8218, 0.398288)
	pt3dadd(317.055, 255.193, 40.88, 0.211948)
	pt3dadd(317.324, 255.16, 40.9136, 0.235224)
	pt3dadd(317.602, 255.034, 40.9158, 0.492328)
	pt3dadd(317.863, 254.891, 40.9189, 0.57443)
	pt3dadd(318.187, 254.704, 40.9, 0.7937)
	pt3dadd(318.501, 254.448, 40.9496, 0.923508)
	pt3dadd(318.989, 254.266, 40.9688, 0.399642)
	pt3dadd(319.381, 254.117, 40.9893, 0.2)
	pt3dadd(319.593, 254.01, 40.9998, 0.2)
	pt3dadd(319.812, 253.998, 41.0033, 0.26329)
	pt3dadd(320.044, 253.97, 40.9056, 0.236494)
	pt3dadd(320.253, 253.89, 40.7294, 0.52261)
	pt3dadd(320.478, 254.008, 40.5937, 0.740922)
	pt3dadd(320.893, 253.856, 40.8389, 0.429464)
	pt3dadd(321.225, 253.787, 41.0081, 0.62045)
	pt3dadd(321.523, 253.717, 41.1845, 0.701842)
	pt3dadd(321.835, 253.592, 41.31, 0.684462)
	pt3dadd(322.296, 253.401, 41.4809, 0.576558)
	pt3dadd(322.523, 253.191, 41.628, 0.400254)
	pt3dadd(322.71, 252.834, 41.8341, 0.659628)
	pt3dadd(323.255, 252.824, 41.6565, 0.633952)
	pt3dadd(323.613, 252.674, 41.6311, 0.849122)
	pt3dadd(324.496, 252.593, 41.6863, 1.54488)
	pt3dadd(325.731, 252.09, 41.6592, 0.874976)
	pt3dadd(326.17, 252.089, 41.6756, 0.601918)
	pt3dadd(326.546, 252.117, 41.7122, 0.555374)
	pt3dadd(326.913, 252.036, 41.5936, 0.39387)
	pt3dadd(327.202, 251.88, 41.3878, 0.613728)
	pt3dadd(327.907, 252.182, 41.819, 0.2)
	pt3dadd(328.131, 252.21, 41.9475, 0.218854)
	pt3dadd(328.411, 252.236, 42.0763, 0.508004)
	pt3dadd(328.93, 252.299, 42.2927, 0.493774)
	pt3dadd(329.236, 252.236, 42.3423, 0.705792)
	pt3dadd(329.816, 252.142, 42.353, 1.07292)
	pt3dadd(330.544, 251.835, 42.1723, 0.93858)
	pt3dadd(331.605, 251.476, 42.418, 0.809832)
	pt3dadd(331.745, 251.05, 42.5211, 1.02869)
  }
}
proc shape3d_3() {
  dend[3] {	pt3dadd(332.505, 250.77, 42.7867, 0.607676)
	pt3dadd(332.842, 250.706, 42.8456, 0.572654)
	pt3dadd(333.173, 250.609, 42.9267, 0.561868)
	pt3dadd(333.53, 250.543, 42.9073, 0.467812)
	pt3dadd(333.869, 250.407, 42.7835, 0.491284)
	pt3dadd(334.149, 250.229, 42.6249, 0.4152)
	pt3dadd(334.566, 249.923, 42.8642, 0.321936)
	pt3dadd(334.785, 249.775, 42.9796, 0.342038)
	pt3dadd(335.096, 249.603, 43.0604, 0.37854)
	pt3dadd(335.402, 249.517, 43.0676, 0.371902)
	pt3dadd(335.711, 249.424, 43.0891, 0.645822)
	pt3dadd(336.155, 249.499, 42.9802, 0.575638)
	pt3dadd(336.629, 249.304, 43.1965, 0.613478)
	pt3dadd(336.965, 249.075, 43.3298, 0.919388)
	pt3dadd(337.747, 248.83, 43.4221, 0.797804)
	pt3dadd(338.152, 248.814, 43.3985, 0.72223)
	pt3dadd(338.518, 248.73, 43.3802, 1.03538)
	pt3dadd(339.323, 248.198, 43.1914, 1.33521)
	pt3dadd(339.79, 247.691, 43.2657, 0.81892)
	pt3dadd(340.403, 247.436, 42.9224, 0.931482)
	pt3dadd(341.162, 247.199, 42.6434, 1.22952)
	pt3dadd(342.039, 246.985, 42.5877, 0.713872)
	pt3dadd(342.401, 246.767, 42.5501, 0.491842)
	pt3dadd(342.796, 246.684, 42.4512, 0.517944)
	pt3dadd(343.095, 246.586, 42.4256, 0.580988)
	pt3dadd(343.406, 246.373, 42.5189, 0.740368)
	pt3dadd(343.768, 246.176, 42.5598, 0.84293)
	pt3dadd(344.163, 245.962, 42.6101, 1.0834)
	pt3dadd(345.061, 245.432, 42.4888, 1.23965)
	pt3dadd(346.248, 245.049, 42.3385, 0.509614)
	pt3dadd(346.572, 244.974, 42.2361, 0.388418)
	pt3dadd(346.728, 244.793, 42.0612, 0.725022)
	pt3dadd(347.225, 244.819, 42.1691, 0.2)
	pt3dadd(347.45, 244.729, 42.14, 0.2)
	pt3dadd(347.699, 244.56, 42.0541, 0.421314)
	pt3dadd(347.942, 244.5, 42.0195, 0.466996)
	pt3dadd(348.419, 244.462, 42.0615, 0.460062)
	pt3dadd(348.745, 244.315, 42.059, 0.580204)
	pt3dadd(349.09, 244.17, 42.1379, 0.74708)
	pt3dadd(351.486, 244.006, 42.8775, 0.788238)
	pt3dadd(353.695, 243.513, 42.8468, 0.531644)
	pt3dadd(354.101, 243.389, 42.9669, 0.769082)
	pt3dadd(354.758, 243.192, 43.2363, 1.30805)
	pt3dadd(355.695, 243.007, 42.9093, 1.08771)
	pt3dadd(356.114, 242.85, 42.5939, 0.489292)
	pt3dadd(356.437, 242.807, 42.3844, 0.221372)
	pt3dadd(356.735, 242.679, 42.3734, 0.2)
	pt3dadd(356.978, 242.581, 42.3179, 0.35083)
	pt3dadd(357.266, 242.596, 42.2509, 0.471786)
	pt3dadd(357.533, 242.624, 42.1802, 0.294878)
	pt3dadd(357.887, 242.721, 42.1247, 0.566168)
	pt3dadd(358.202, 242.688, 42.056, 0.912336)
	pt3dadd(359.024, 242.466, 41.8718, 1.34982)
	pt3dadd(359.761, 242.214, 41.8262, 1.17063)
	pt3dadd(360.576, 241.823, 41.5698, 0.87852)
	pt3dadd(361.92, 241.529, 41.6102, 0.2)
	pt3dadd(362.193, 241.392, 41.6335, 0.220238)
	pt3dadd(362.387, 241.294, 41.6522, 0.50766)
	pt3dadd(362.879, 241.169, 41.7522, 0.545076)
	pt3dadd(363.182, 241.127, 41.7244, 0.525546)
	pt3dadd(363.508, 241.047, 41.7418, 0.501522)
	pt3dadd(363.944, 241.059, 41.626, 0.516094)
	pt3dadd(364.341, 241.013, 41.4993, 0.734022)
	pt3dadd(364.794, 241.081, 41.5081, 1.23706)
	pt3dadd(365.713, 241.373, 41.3338, 1.02585)
	pt3dadd(367.384, 241.395, 41.0196, 0.2)
	pt3dadd(367.587, 241.348, 41.013, 0.238976)
	pt3dadd(367.812, 241.406, 41.0779, 0.241808)
	pt3dadd(368.09, 241.456, 41.0689, 0.307148)
	pt3dadd(368.326, 241.528, 41.0268, 0.45589)
	pt3dadd(368.611, 241.519, 40.7934, 0.411628)
	pt3dadd(368.923, 241.576, 40.6554, 0.361334)
	pt3dadd(369.276, 241.728, 40.5702, 0.575102)
	pt3dadd(369.986, 241.993, 40.5783, 0.275762)
	pt3dadd(370.504, 242.063, 40.7981, 0.277786)
	pt3dadd(370.787, 242.272, 40.9403, 0.480986)
	pt3dadd(371.201, 242.361, 40.9885, 0.59102)
	pt3dadd(371.557, 242.526, 40.9471, 0.61964)
	pt3dadd(371.91, 242.623, 40.7826, 0.710488)
	pt3dadd(372.37, 242.529, 40.5037, 0.759118)
	pt3dadd(372.67, 242.085, 40.1649, 0.672946)
	pt3dadd(373.218, 242.032, 39.6978, 0.2)
	pt3dadd(373.493, 242.013, 39.5386, 0.257938)
	pt3dadd(373.698, 241.89, 39.3562, 0.553406)
	pt3dadd(373.891, 241.865, 39.1307, 0.715798)
	pt3dadd(374.396, 241.761, 39.115, 0.2)
	pt3dadd(374.836, 241.719, 39.1692, 0.313014)
	pt3dadd(375.173, 241.691, 39.1411, 0.2)
	pt3dadd(375.573, 241.734, 39.238, 0.4651)
	pt3dadd(375.926, 241.859, 39.3187, 0.559204)
	pt3dadd(376.396, 241.84, 39.4005, 0.734602)
	pt3dadd(376.765, 241.704, 39.4313, 0.913682)
	pt3dadd(377.295, 241.519, 39.6524, 1.22819)
	pt3dadd(378.573, 241.095, 40.1479, 1.01856)
	pt3dadd(379.199, 241.028, 40.2256, 0.647354)
	pt3dadd(379.81, 240.78, 40.185, 0.369762)
	pt3dadd(380.07, 240.606, 40.1175, 0.313866)
	pt3dadd(380.371, 240.46, 40.0332, 0.485616)
	pt3dadd(382.668, 240.18, 39.3675, 0.330632)
	pt3dadd(383.491, 240.135, 39.0406, 1.09267)
	pt3dadd(384.073, 239.779, 39.0532, 0.730644)
	pt3dadd(384.902, 239.812, 38.8275, 0.311234)
	pt3dadd(385.102, 239.846, 38.8984, 0.2)
	pt3dadd(385.271, 239.869, 38.9561, 0.2)
	pt3dadd(385.5, 239.833, 38.9371, 0.414488)
	pt3dadd(385.693, 239.889, 38.8763, 0.533554)
	pt3dadd(385.945, 239.772, 38.8245, 0.750752)
	pt3dadd(386.6, 239.683, 38.8121, 0.938476)
	pt3dadd(387.461, 239.553, 38.7114, 0.71966)
	pt3dadd(387.93, 239.514, 38.7207, 0.581418)
	pt3dadd(388.277, 239.425, 38.7622, 0.706654)
	pt3dadd(388.837, 239.272, 38.4633, 0.370674)
	pt3dadd(389.094, 239.215, 38.3736, 0.318282)
	pt3dadd(389.474, 239.21, 38.396, 0.377904)
	pt3dadd(389.755, 239.204, 38.4435, 0.365668)
	pt3dadd(390.071, 239.209, 38.4466, 0.405354)
	pt3dadd(392.557, 238.982, 37.853, 0.543348)
	pt3dadd(393.406, 238.86, 38.1888, 0.907624)
	pt3dadd(394.23, 239.293, 38.3614, 1.39661)
	pt3dadd(394.884, 239.28, 38.1809, 1.19852)
	pt3dadd(395.353, 239.622, 38.4069, 0.2)
	pt3dadd(396.651, 239.593, 38.4885, 0.20818)
	pt3dadd(396.821, 239.594, 38.4942, 0.2)
	pt3dadd(397.122, 239.553, 38.4625, 0.216236)
	pt3dadd(397.654, 239.369, 38.4805, 0.782414)
	pt3dadd(398.335, 239.134, 38.5505, 1.1125)
	pt3dadd(398.826, 239.181, 38.6538, 1.00791)
	pt3dadd(405.769, 237.746, 38.9418, 0.414642)
	pt3dadd(406.041, 237.605, 39.181, 0.448656)
	pt3dadd(406.37, 237.651, 38.972, 0.205868)
	pt3dadd(406.702, 237.629, 38.8433, 0.327582)
	pt3dadd(406.927, 237.466, 38.8019, 0.298182)
	pt3dadd(407.382, 237.269, 38.8601, 0.232538)
	pt3dadd(407.601, 237.184, 38.8754, 0.30037)
	pt3dadd(407.82, 237.054, 38.9238, 0.425574)
	pt3dadd(408.443, 236.737, 39.1031, 0.840226)
	pt3dadd(409.221, 236.656, 39.4076, 0.92582)
	pt3dadd(409.682, 236.732, 39.5192, 0.777338)
	pt3dadd(410.277, 236.912, 39.5328, 0.968692)
	pt3dadd(410.844, 237.089, 39.6417, 0.942078)
	pt3dadd(411.445, 237.279, 39.8027, 0.601512)
	pt3dadd(411.785, 237.313, 39.9141, 0.514968)
	pt3dadd(412.147, 237.322, 39.7285, 0.324878)
	pt3dadd(412.423, 237.317, 39.6549, 0.469714)
	pt3dadd(412.666, 237.367, 39.6377, 0.442214)
	pt3dadd(413.202, 237.409, 39.735, 0.662486)
	pt3dadd(413.831, 237.415, 39.727, 0.690414)
	pt3dadd(414.167, 237.416, 39.7552, 0.656058)
	pt3dadd(414.478, 237.367, 39.8743, 0.668342)
	pt3dadd(416.092, 236.796, 39.4697, 0.225918)
	pt3dadd(416.317, 236.785, 39.6538, 0.311738)
	pt3dadd(416.794, 236.742, 39.7205, 0.476398)
	pt3dadd(417.269, 236.534, 39.4615, 0.452544)
	pt3dadd(417.589, 236.61, 39.508, 0.335236)
	pt3dadd(417.851, 236.752, 39.3194, 0.494868)
	pt3dadd(418.404, 236.659, 39.4891, 0.304556)
	pt3dadd(418.643, 236.497, 39.5682, 0.533248)
	pt3dadd(419.378, 236.445, 39.5991, 0.919624)
	pt3dadd(419.983, 236.136, 39.3269, 1.15808)
	pt3dadd(420.782, 236.542, 39.3909, 0.2)
	pt3dadd(420.991, 236.571, 39.3543, 0.2)
	pt3dadd(421.308, 236.633, 39.3111, 0.253016)
	pt3dadd(421.644, 236.561, 39.2678, 0.42351)
	pt3dadd(421.925, 236.58, 39.2567, 0.434082)
	pt3dadd(422.211, 236.605, 39.2983, 0.436496)
	pt3dadd(422.405, 236.625, 39.3027, 0.200802)
	pt3dadd(422.602, 236.601, 39.2847, 0.2)
	pt3dadd(422.801, 236.59, 39.2969, 0.2)
	pt3dadd(423.039, 236.586, 39.3557, 0.2)
	pt3dadd(423.287, 236.586, 39.3242, 0.2)
	pt3dadd(423.513, 236.589, 39.2258, 0.265482)
	pt3dadd(423.683, 236.453, 39.1242, 0.471808)
	pt3dadd(423.932, 236.487, 39.2728, 0.504822)
	pt3dadd(424.592, 236.651, 39.4491, 0.896062)
	pt3dadd(425.235, 236.42, 39.7315, 0.849748)
	pt3dadd(426.094, 236.408, 39.9679, 0.2)
	pt3dadd(426.313, 236.422, 39.9211, 0.2)
	pt3dadd(426.517, 236.371, 39.8752, 0.233432)
	pt3dadd(426.652, 236.253, 39.8876, 0.2)
	pt3dadd(426.849, 236.202, 39.9628, 0.275028)
	pt3dadd(427.109, 236.205, 40.1006, 0.235508)
	pt3dadd(427.344, 236.205, 40.1713, 0.222324)
	pt3dadd(427.585, 236.184, 40.0955, 0.290826)
	pt3dadd(428.33, 236.229, 40.0733, 1.14823)
	pt3dadd(428.797, 235.864, 40.3689, 0.561908)
	pt3dadd(431.771, 234.995, 40.444, 0.369462)
	pt3dadd(431.94, 234.972, 40.5128, 0.332342)
	pt3dadd(432.119, 234.955, 40.6212, 0.302154)
	pt3dadd(432.312, 235.022, 40.6736, 0.2)
	pt3dadd(432.511, 234.993, 40.6646, 0.2)
	pt3dadd(432.685, 234.981, 40.6268, 0.2)
	pt3dadd(433.607, 234.795, 40.9191, 1.12197)
	pt3dadd(437.821, 234.361, 41.2795, 0.5355)
	pt3dadd(437.974, 234.568, 41.5581, 0.342418)
	pt3dadd(438.316, 234.582, 41.6699, 0.347586)
	pt3dadd(438.846, 234.462, 41.8821, 0.875056)
	pt3dadd(439.283, 234.313, 41.9879, 0.700352)
	pt3dadd(441.184, 233.413, 42.6065, 0.501176)
	pt3dadd(441.429, 233.317, 42.8742, 0.733826)
  }
  dend_6[1] {pt3dclear()
	pt3dadd(441.429, 233.317, 42.8742, 0.733826)
  }
}
proc shape3d_4() {
  dend_6[1] {	pt3dadd(441.556, 233.292, 43.2625, 0.64133)
  }
  dend_5[2] {pt3dclear()
	pt3dadd(279.109, 263.416, 35.1218, 2.55666)
	pt3dadd(279.396, 262.353, 34.1424, 2.01903)
  }
  dend[4] {pt3dclear()
	pt3dadd(279.396, 262.353, 34.1424, 2.01903)
	pt3dadd(280.404, 262.391, 33.9242, 0.675842)
	pt3dadd(280.815, 262.544, 33.8414, 0.561884)
	pt3dadd(281.1, 262.641, 33.7307, 0.547054)
	pt3dadd(281.406, 262.734, 33.6094, 0.662364)
	pt3dadd(281.968, 262.765, 33.3125, 0.767002)
	pt3dadd(282.569, 262.611, 32.9285, 0.8513)
	pt3dadd(283.121, 262.506, 32.4945, 0.924198)
	pt3dadd(283.645, 262.384, 32.0885, 0.74627)
	pt3dadd(284.244, 262.107, 31.7384, 0.900808)
	pt3dadd(284.829, 261.793, 31.4009, 0.864308)
	pt3dadd(285.529, 261.544, 31.1225, 1.12863)
	pt3dadd(286.252, 261.135, 30.7589, 0.985166)
	pt3dadd(286.99, 260.912, 30.4573, 0.853196)
	pt3dadd(287.59, 260.862, 30.2167, 0.719412)
	pt3dadd(288.247, 260.826, 29.8902, 0.818918)
	pt3dadd(288.828, 260.599, 29.52, 0.844012)
	pt3dadd(289.499, 260.356, 29.2738, 1.0913)
	pt3dadd(290.319, 259.968, 29.1609, 1.01214)
	pt3dadd(291.086, 259.513, 28.9585, 0.890872)
	pt3dadd(291.825, 259.085, 28.5923, 0.694926)
	pt3dadd(292.125, 258.929, 28.445, 0.612772)
	pt3dadd(292.385, 258.772, 28.2701, 0.606992)
	pt3dadd(292.67, 258.68, 28.1182, 0.559114)
	pt3dadd(292.965, 258.604, 28.0549, 0.632894)
	pt3dadd(293.313, 258.513, 28.0121, 0.586518)
	pt3dadd(293.656, 258.391, 27.8236, 0.704246)
	pt3dadd(294.344, 258.333, 27.5117, 0.980664)
	pt3dadd(295.132, 258.31, 27.3794, 0.879062)
	pt3dadd(295.888, 258.065, 27.1231, 0.882812)
  }
  dend_5[3] {pt3dclear()
	pt3dadd(295.888, 258.065, 27.1231, 0.882812)
	pt3dadd(296.987, 257.54, 26.5681, 1.45366)
  }
  dend[5] {pt3dclear()
	pt3dadd(296.987, 257.54, 26.5681, 1.45366)
	pt3dadd(297.783, 257.002, 26.8081, 0.637446)
	pt3dadd(298.136, 256.792, 26.8566, 0.783074)
	pt3dadd(299.198, 256.356, 26.8338, 0.310238)
	pt3dadd(299.391, 256.259, 26.8581, 0.403066)
	pt3dadd(299.667, 256.139, 26.925, 0.318552)
	pt3dadd(299.927, 255.88, 26.9351, 0.550138)
	pt3dadd(300.287, 255.746, 26.9105, 0.661894)
	pt3dadd(300.786, 255.587, 26.6635, 0.794458)
	pt3dadd(301.077, 255.343, 26.5181, 0.845344)
	pt3dadd(301.578, 255.218, 26.7837, 0.661026)
	pt3dadd(301.929, 255.114, 26.9557, 0.565536)
	pt3dadd(302.375, 254.912, 26.7654, 0.491302)
	pt3dadd(302.682, 254.807, 26.6525, 0.572548)
	pt3dadd(303.255, 254.635, 26.674, 0.542388)
	pt3dadd(303.603, 254.621, 26.6766, 0.654792)
	pt3dadd(304.317, 254.277, 26.55, 1.0247)
	pt3dadd(304.944, 253.83, 26.3769, 0.949828)
	pt3dadd(306.475, 253.224, 26.9075, 0.337488)
	pt3dadd(306.593, 253.195, 26.6655, 0.287488)
	pt3dadd(306.816, 253.158, 26.4497, 0.444852)
	pt3dadd(306.989, 253.044, 26.3524, 0.480848)
	pt3dadd(307.478, 253.026, 26.3193, 0.738348)
	pt3dadd(307.96, 252.851, 26.4051, 0.913818)
	pt3dadd(308.525, 252.377, 26.0249, 0.704048)
	pt3dadd(308.981, 252.162, 25.9566, 0.443864)
	pt3dadd(309.314, 251.942, 25.9753, 0.421552)
	pt3dadd(309.576, 251.716, 26.0576, 0.353864)
	pt3dadd(309.832, 251.444, 26.1649, 0.2)
	pt3dadd(309.989, 251.265, 26.118, 0.21321)
	pt3dadd(310.137, 251.14, 25.9867, 0.260068)
	pt3dadd(310.265, 250.908, 25.9328, 0.382652)
	pt3dadd(310.324, 250.591, 25.9053, 0.682728)
	pt3dadd(310.905, 250.322, 25.7747, 0.42701)
	pt3dadd(311.291, 250.18, 25.804, 0.348162)
	pt3dadd(311.53, 250.006, 25.7923, 0.273442)
	pt3dadd(311.856, 249.878, 25.8447, 0.539184)
	pt3dadd(312.211, 249.776, 25.9702, 0.749742)
	pt3dadd(312.593, 249.754, 26.0491, 0.964452)
	pt3dadd(313.073, 249.961, 26.0941, 0.868696)
	pt3dadd(313.839, 250.117, 25.859, 0.591172)
	pt3dadd(314.174, 249.974, 25.7405, 0.74658)
	pt3dadd(314.534, 249.601, 25.4856, 1.21975)
	pt3dadd(315.355, 249.311, 25.1605, 1.15436)
	pt3dadd(315.802, 249.004, 24.9013, 0.583426)
	pt3dadd(316.212, 248.969, 24.8114, 0.355058)
	pt3dadd(316.4, 248.907, 24.7253, 0.413694)
	pt3dadd(316.632, 248.864, 24.6326, 0.307048)
	pt3dadd(316.952, 248.842, 24.5366, 0.416926)
	pt3dadd(317.219, 248.752, 24.447, 0.449264)
	pt3dadd(317.492, 248.581, 24.4095, 0.40161)
	pt3dadd(317.797, 248.382, 24.3213, 0.484492)
	pt3dadd(318.227, 248.168, 24.1114, 0.327438)
	pt3dadd(318.462, 248.014, 23.9818, 0.386266)
	pt3dadd(318.689, 247.782, 23.9578, 0.363176)
	pt3dadd(319.013, 247.558, 23.9303, 0.360438)
	pt3dadd(319.376, 247.469, 23.8807, 0.586428)
	pt3dadd(319.702, 247.285, 23.8192, 0.795016)
	pt3dadd(320.099, 246.968, 23.8055, 0.763378)
	pt3dadd(320.673, 246.664, 23.6154, 0.920968)
	pt3dadd(321.279, 246.75, 23.5088, 1.0365)
	pt3dadd(322.093, 246.916, 23.5236, 1.25661)
	pt3dadd(322.649, 246.635, 23.3328, 0.771828)
	pt3dadd(323.064, 246.687, 23.1836, 0.62721)
	pt3dadd(323.415, 246.573, 23.028, 0.533356)
	pt3dadd(323.713, 246.517, 23.0272, 0.510116)
	pt3dadd(324.043, 246.493, 23.0613, 0.58244)
	pt3dadd(324.336, 246.37, 23.0322, 0.613884)
	pt3dadd(324.647, 246.212, 22.8966, 0.456146)
	pt3dadd(324.929, 246.134, 22.8455, 0.489762)
	pt3dadd(325.291, 246.048, 22.779, 0.49561)
	pt3dadd(325.621, 246.053, 22.6667, 0.625582)
	pt3dadd(325.941, 245.928, 22.5021, 0.446138)
	pt3dadd(326.159, 245.833, 22.3797, 0.219934)
	pt3dadd(326.473, 245.778, 22.2604, 0.321442)
	pt3dadd(326.789, 245.742, 22.0807, 0.484082)
	pt3dadd(326.959, 245.599, 21.8445, 0.560196)
	pt3dadd(327.179, 245.475, 21.6315, 0.681266)
	pt3dadd(327.671, 245.029, 21.3051, 0.46111)
	pt3dadd(327.876, 244.799, 21.1137, 0.44211)
	pt3dadd(328.187, 244.682, 20.9663, 0.500802)
	pt3dadd(328.527, 244.477, 20.8712, 0.38097)
	pt3dadd(328.842, 244.345, 20.8407, 0.665848)
	pt3dadd(329.205, 244.206, 20.8188, 1.01372)
	pt3dadd(329.864, 243.698, 20.8051, 1.37842)
	pt3dadd(330.826, 243.503, 20.691, 1.77916)
	pt3dadd(331.718, 243.221, 20.2701, 1.52509)
	pt3dadd(332.695, 243.107, 19.9122, 1.02391)
	pt3dadd(333.659, 243.031, 19.7172, 0.720142)
	pt3dadd(334.063, 242.951, 19.6095, 0.652412)
	pt3dadd(334.44, 242.809, 19.4392, 0.453314)
	pt3dadd(334.753, 242.623, 19.2648, 0.374568)
	pt3dadd(334.977, 242.422, 19.1168, 0.387692)
	pt3dadd(335.166, 242.297, 18.9831, 0.396604)
	pt3dadd(335.392, 242.209, 18.7869, 0.215178)
	pt3dadd(335.744, 241.827, 17.5383, 0.446438)
	pt3dadd(336.023, 241.605, 17.59, 0.342636)
	pt3dadd(336.295, 241.418, 17.6394, 0.343562)
	pt3dadd(336.646, 241.257, 17.5657, 0.581988)
	pt3dadd(336.986, 241.084, 17.4744, 0.968876)
	pt3dadd(337.552, 240.8, 17.3559, 0.910016)
	pt3dadd(338.182, 240.517, 17.4301, 0.706302)
	pt3dadd(338.573, 240.315, 17.2947, 0.5337)
	pt3dadd(338.902, 240.07, 17.2005, 0.397696)
	pt3dadd(339.249, 239.781, 17.0935, 0.519822)
	pt3dadd(339.422, 239.552, 16.8145, 0.501888)
	pt3dadd(339.823, 238.995, 16.1291, 0.8364)
	pt3dadd(340.377, 238.741, 15.7015, 1.14952)
	pt3dadd(341.106, 238.515, 15.2412, 1.01013)
	pt3dadd(342.039, 238.179, 14.728, 0.451646)
	pt3dadd(342.195, 237.963, 14.5007, 0.676516)
	pt3dadd(342.654, 237.958, 14.7705, 0.492374)
	pt3dadd(342.977, 237.654, 14.7435, 0.2)
	pt3dadd(343.247, 237.404, 14.5923, 0.386578)
	pt3dadd(343.552, 237.151, 14.5942, 0.515008)
	pt3dadd(343.947, 237.061, 14.5833, 0.381294)
	pt3dadd(344.252, 236.972, 14.5815, 0.348986)
	pt3dadd(344.603, 236.775, 14.5916, 0.515996)
	pt3dadd(344.909, 236.519, 14.5532, 0.765698)
	pt3dadd(345.223, 236.251, 14.5429, 0.921722)
	pt3dadd(345.635, 235.98, 14.7485, 1.28585)
	pt3dadd(346.374, 235.331, 14.7496, 0.480472)
	pt3dadd(346.626, 235.07, 14.6969, 0.403972)
	pt3dadd(346.974, 234.898, 14.5246, 0.430626)
	pt3dadd(347.384, 234.804, 14.3021, 0.743926)
	pt3dadd(347.632, 234.493, 14.164, 0.71129)
	pt3dadd(348.024, 234.203, 14.0261, 0.853668)
	pt3dadd(348.617, 234.104, 14.183, 0.861968)
	pt3dadd(349.224, 233.814, 14.0956, 1.47706)
	pt3dadd(350.259, 233.118, 13.7909, 0.687772)
	pt3dadd(350.549, 232.744, 13.7353, 0.2)
	pt3dadd(350.658, 232.561, 13.6135, 0.2)
	pt3dadd(350.865, 232.356, 13.46, 0.272218)
	pt3dadd(351.09, 232.245, 13.327, 0.507058)
	pt3dadd(351.275, 232.131, 13.1604, 0.512356)
	pt3dadd(352.469, 231.261, 12.5914, 0.425068)
	pt3dadd(352.756, 230.93, 12.5321, 0.551352)
	pt3dadd(353.126, 230.684, 12.5417, 0.57962)
	pt3dadd(353.43, 230.532, 12.4771, 1.08536)
	pt3dadd(356.692, 227.171, 12.6701, 0.740882)
	pt3dadd(357.138, 227.088, 12.4661, 0.45619)
	pt3dadd(357.482, 226.998, 12.3549, 0.390656)
	pt3dadd(357.801, 226.942, 12.2991, 0.468994)
	pt3dadd(358.492, 226.985, 12.1758, 0.852844)
	pt3dadd(359.276, 226.73, 11.9297, 1.19644)
	pt3dadd(359.732, 226.838, 11.8612, 0.853016)
	pt3dadd(360.055, 226.861, 11.7502, 0.669424)
	pt3dadd(360.501, 226.695, 11.6367, 0.3226)
	pt3dadd(360.782, 226.624, 11.5603, 0.297962)
	pt3dadd(361.081, 226.551, 11.4965, 0.48878)
	pt3dadd(361.355, 226.594, 11.4326, 0.450668)
	pt3dadd(361.692, 226.576, 11.4064, 0.227456)
	pt3dadd(361.857, 226.599, 11.4032, 0.2)
	pt3dadd(362.127, 226.659, 11.4281, 0.27292)
	pt3dadd(362.415, 226.794, 11.2824, 0.426356)
	pt3dadd(362.702, 226.482, 11.1018, 0.535676)
	pt3dadd(363.15, 226.154, 11.3038, 0.312782)
	pt3dadd(363.606, 225.727, 11.1786, 0.38412)
	pt3dadd(363.783, 225.517, 11.0608, 0.268352)
	pt3dadd(363.866, 225.218, 10.9892, 0.223762)
	pt3dadd(364.292, 224.683, 10.8132, 0.806522)
	pt3dadd(364.937, 224.606, 10.5994, 0.833072)
	pt3dadd(365.51, 224.271, 10.5755, 0.522938)
	pt3dadd(365.809, 224.231, 10.5119, 0.361442)
	pt3dadd(366.131, 224.196, 10.4255, 0.256106)
  }
}
proc shape3d_5() {
  dend[5] {	pt3dadd(366.389, 224.102, 10.3172, 0.414424)
	pt3dadd(367.01, 223.825, 10.2501, 0.73259)
	pt3dadd(367.752, 223.796, 10.1596, 1.35199)
	pt3dadd(368.588, 223.815, 10.0653, 1.57805)
	pt3dadd(369.038, 223.225, 9.80927, 0.702894)
	pt3dadd(369.242, 223.015, 9.76739, 0.512364)
	pt3dadd(369.543, 222.953, 9.82402, 0.50684)
	pt3dadd(370.175, 223.078, 9.9058, 0.88551)
	pt3dadd(370.855, 221.521, 9.71092, 0.524058)
	pt3dadd(371.106, 221.362, 9.78195, 0.343944)
	pt3dadd(371.383, 221.19, 9.8392, 0.418558)
	pt3dadd(371.615, 221.027, 9.78796, 0.423074)
	pt3dadd(371.936, 220.995, 9.68454, 0.255454)
	pt3dadd(372.174, 220.808, 9.55686, 0.389668)
	pt3dadd(372.694, 220.49, 9.04383, 1.14893)
	pt3dadd(373.43, 220.058, 8.78257, 0.75441)
	pt3dadd(373.99, 219.604, 8.62612, 0.528432)
	pt3dadd(374.326, 219.39, 8.47681, 0.714844)
	pt3dadd(374.869, 218.989, 8.46298, 0.214328)
	pt3dadd(375.052, 218.904, 8.40153, 0.388776)
	pt3dadd(375.24, 218.898, 8.30141, 0.39378)
	pt3dadd(375.434, 218.891, 8.21607, 0.425062)
	pt3dadd(375.717, 218.761, 8.05908, 0.254944)
	pt3dadd(375.957, 218.578, 7.89267, 0.355698)
	pt3dadd(376.253, 218.475, 7.77724, 0.555326)
	pt3dadd(376.567, 218.472, 7.72669, 0.95171)
	pt3dadd(377.088, 218.227, 7.71238, 0.73882)
	pt3dadd(377.5, 218.144, 7.7543, 0.679888)
	pt3dadd(378.114, 217.954, 7.93205, 0.593778)
	pt3dadd(378.405, 217.709, 7.94123, 0.31421)
	pt3dadd(378.621, 217.457, 7.95875, 0.375086)
	pt3dadd(378.797, 217.11, 8.04635, 0.698632)
	pt3dadd(379.134, 216.911, 8.07036, 0.89891)
	pt3dadd(379.574, 216.54, 8.01279, 1.16068)
	pt3dadd(380.445, 216.003, 8.05526, 1.29189)
	pt3dadd(381.202, 215.294, 7.91141, 0.956692)
	pt3dadd(381.863, 214.892, 7.73649, 0.805924)
	pt3dadd(382.198, 214.575, 7.83962, 0.450738)
	pt3dadd(382.451, 214.392, 7.8465, 0.249978)
	pt3dadd(386.049, 212.159, 7.59366, 0.30661)
	pt3dadd(386.466, 212.272, 7.82506, 0.544932)
	pt3dadd(386.554, 212.033, 7.61798, 0.429588)
	pt3dadd(386.693, 211.8, 7.51112, 0.521452)
	pt3dadd(386.968, 211.715, 7.59379, 0.484818)
	pt3dadd(387.746, 211.538, 7.78919, 0.609692)
	pt3dadd(388.08, 211.294, 7.89484, 0.71929)
	pt3dadd(388.424, 211.16, 7.91984, 0.742678)
	pt3dadd(389.024, 210.908, 7.64151, 0.502014)
	pt3dadd(389.486, 210.533, 7.99694, 0.2)
	pt3dadd(389.883, 210.214, 7.98273, 0.342522)
	pt3dadd(390.171, 210.166, 8.05191, 0.268358)
	pt3dadd(390.41, 210.036, 8.08958, 0.26807)
	pt3dadd(390.697, 209.958, 8.09145, 0.308196)
	pt3dadd(390.895, 209.812, 8.19295, 0.2554)
	pt3dadd(391.121, 209.635, 8.27219, 0.251272)
	pt3dadd(391.757, 209.178, 8.26647, 0.82775)
	pt3dadd(392.199, 208.63, 8.45078, 0.919274)
	pt3dadd(392.489, 208.248, 8.63228, 0.75472)
	pt3dadd(393.292, 207.806, 9.07017, 1.24221)
	pt3dadd(393.797, 207.454, 9.19074, 1.01464)
	pt3dadd(394.375, 207.056, 9.643, 0.3162)
	pt3dadd(394.627, 206.949, 9.71818, 0.358888)
	pt3dadd(394.811, 206.83, 9.71689, 0.380342)
	pt3dadd(395.03, 206.868, 9.79066, 0.363168)
	pt3dadd(395.299, 206.673, 9.94254, 0.2)
	pt3dadd(395.449, 206.536, 9.87127, 0.2)
	pt3dadd(395.652, 206.389, 9.87492, 0.2)
	pt3dadd(395.918, 206.273, 9.91129, 0.2)
	pt3dadd(396.555, 205.782, 10.0988, 1.20614)
	pt3dadd(397.028, 205.961, 10.3253, 0.877514)
	pt3dadd(397.368, 206.19, 10.3659, 0.766776)
	pt3dadd(397.766, 206.385, 10.3177, 0.793274)
	pt3dadd(398.196, 206.413, 10.2941, 0.737182)
	pt3dadd(398.668, 206.21, 10.1387, 0.739572)
	pt3dadd(398.963, 206.022, 9.66154, 0.467578)
	pt3dadd(401.482, 204.896, 10.8845, 1.34346)
	pt3dadd(404.477, 201.7, 11.6499, 1.34537)
	pt3dadd(408.183, 198.756, 11.789, 0.402838)
	pt3dadd(408.573, 198.321, 11.7875, 0.682926)
	pt3dadd(408.843, 198.054, 11.8589, 0.543934)
	pt3dadd(409.228, 197.902, 11.9038, 0.798906)
	pt3dadd(409.517, 197.609, 12.0374, 1.1753)
	pt3dadd(410.305, 197.441, 12.146, 0.733964)
	pt3dadd(410.642, 197.061, 12.2841, 0.2)
	pt3dadd(410.912, 196.854, 12.2607, 0.431842)
	pt3dadd(411.131, 196.698, 12.2444, 0.590978)
	pt3dadd(413.889, 194.262, 12.09, 0.24365)
	pt3dadd(414.145, 194.165, 12.3643, 0.343346)
	pt3dadd(415.052, 193.919, 12.6837, 0.939376)
	pt3dadd(418.239, 192.696, 12.4611, 0.612446)
	pt3dadd(418.787, 192.465, 12.3981, 0.956708)
	pt3dadd(422.389, 191.075, 12.283, 0.776794)
	pt3dadd(423.247, 190.821, 12.2507, 1.44373)
	pt3dadd(423.813, 190.323, 12.0314, 0.573688)
	pt3dadd(424.219, 189.864, 11.9774, 0.2)
	pt3dadd(424.416, 189.583, 11.9637, 0.388154)
	pt3dadd(424.581, 189.322, 11.803, 0.321286)
	pt3dadd(424.673, 189.009, 11.7148, 0.403516)
	pt3dadd(424.785, 188.728, 11.8787, 0.371878)
	pt3dadd(432.71, 181.324, 18.4833, 0.959968)
	pt3dadd(432.864, 180.863, 18.5769, 0.644262)
	pt3dadd(432.881, 180.149, 18.7728, 0.467946)
	pt3dadd(432.885, 179.789, 18.775, 0.569932)
	pt3dadd(433.251, 179.776, 19.2967, 0.2)
	pt3dadd(433.401, 179.671, 19.3631, 0.2)
	pt3dadd(436.411, 177.602, 20.2466, 0.783734)
	pt3dadd(436.571, 177.204, 20.181, 0.2)
	pt3dadd(436.788, 177.016, 20.2351, 0.223774)
	pt3dadd(437.084, 176.936, 20.2842, 0.698728)
	pt3dadd(437.458, 176.673, 19.6337, 0.495042)
	pt3dadd(437.917, 176.409, 19.333, 0.2)
	pt3dadd(438.588, 175.916, 19.0766, 0.2)
	pt3dadd(438.957, 175.613, 18.9536, 0.430016)
	pt3dadd(439.308, 175.302, 18.8497, 0.344518)
	pt3dadd(439.603, 175.079, 18.8625, 0.2)
	pt3dadd(439.801, 174.887, 18.761, 0.2)
	pt3dadd(440.371, 174.4, 18.6074, 0.848026)
	pt3dadd(441.272, 173.997, 18.4791, 0.521982)
	pt3dadd(441.764, 173.781, 19.2594, 0.36708)
	pt3dadd(442.999, 172.44, 17.9943, 0.593768)
	pt3dadd(446.204, 168.14, 14.9712, 0.89598)
	pt3dadd(446.708, 164.882, 14.6981, 0.2)
	pt3dadd(446.946, 164.68, 14.4912, 0.598944)
	pt3dadd(447.526, 164.017, 14.1496, 0.883622)
	pt3dadd(448.428, 159.698, 12.4224, 0.915366)
	pt3dadd(448.746, 159.46, 13.1516, 0.80415)
	pt3dadd(449.306, 157.727, 12.4258, 0.481418)
	pt3dadd(449.871, 157.182, 12.3533, 1.01833)
	pt3dadd(449.887, 156.687, 11.9447, 0.869146)
	pt3dadd(450.338, 156.192, 11.8647, 0.683912)
	pt3dadd(450.495, 155.483, 11.722, 0.588288)
	pt3dadd(450.682, 155.229, 11.466, 0.624938)
	pt3dadd(451.195, 155.093, 11.3911, 0.340538)
	pt3dadd(451.535, 154.654, 11.4252, 0.691228)
	pt3dadd(451.507, 154.482, 11.1185, 0.607454)
	pt3dadd(451.528, 154.316, 10.7935, 0.560222)
	pt3dadd(451.556, 154.098, 10.4691, 0.491782)
	pt3dadd(451.613, 153.695, 10.2387, 0.245016)
	pt3dadd(451.63, 153.479, 10.1482, 0.2)
	pt3dadd(451.608, 153.259, 10.0294, 0.200462)
	pt3dadd(451.69, 153.093, 10.0431, 0.364062)
	pt3dadd(452.242, 152.095, 9.57138, 0.729528)
	pt3dadd(452.66, 151.773, 9.53727, 0.542184)
	pt3dadd(453.679, 148.547, 7.9173, 0.889704)
	pt3dadd(453.889, 148.09, 7.50595, 0.997286)
	pt3dadd(453.995, 147.634, 6.88436, 0.69506)
	pt3dadd(454.171, 147.115, 6.58672, 0.292688)
	pt3dadd(454.211, 146.819, 6.32616, 0.365966)
  }
  dend_6[2] {pt3dclear()
	pt3dadd(454.211, 146.819, 6.32616, 0.365966)
	pt3dadd(454.205, 146.643, 5.93292, 0.2)
  }
  dend[6] {pt3dclear()
	pt3dadd(296.987, 257.54, 26.5681, 1.45366)
	pt3dadd(297.936, 258.009, 25.6362, 0.786354)
	pt3dadd(298.289, 258.145, 25.3722, 0.875758)
	pt3dadd(298.631, 258.311, 25.1251, 0.994356)
	pt3dadd(299.191, 258.341, 24.8285, 1.31453)
	pt3dadd(300.167, 258.202, 24.5365, 0.774048)
	pt3dadd(300.543, 258.171, 24.3916, 0.710474)
	pt3dadd(300.903, 258.099, 24.2085, 0.719504)
	pt3dadd(301.653, 257.922, 24.0057, 0.526566)
	pt3dadd(302.045, 258.027, 23.4806, 0.74507)
	pt3dadd(302.307, 258.111, 23.1806, 0.930024)
	pt3dadd(302.861, 258.177, 22.5472, 0.787)
	pt3dadd(303.285, 258.143, 22.191, 0.51855)
	pt3dadd(303.701, 258.197, 21.9798, 0.458432)
	pt3dadd(303.914, 258.37, 21.8186, 0.750064)
	pt3dadd(304.226, 258.595, 21.5994, 0.8027)
	pt3dadd(304.608, 259.007, 21.0872, 0.942558)
	pt3dadd(305.157, 259.076, 20.8226, 0.990268)
	pt3dadd(305.844, 258.893, 20.4839, 0.86436)
	pt3dadd(306.624, 258.952, 20.1593, 0.880356)
	pt3dadd(307.3, 259.204, 19.7083, 0.625758)
	pt3dadd(307.642, 259.277, 19.5594, 0.513804)
	pt3dadd(307.968, 259.314, 19.4517, 0.534974)
	pt3dadd(308.285, 259.303, 19.3001, 0.580658)
  }
  dend_5[4] {pt3dclear()
	pt3dadd(308.285, 259.303, 19.3001, 0.580658)
	pt3dadd(308.896, 259.244, 19.0207, 0.80991)
  }
  dend[7] {pt3dclear()
	pt3dadd(308.896, 259.244, 19.0207, 0.80991)
	pt3dadd(308.946, 259.611, 18.6936, 0.446442)
	pt3dadd(308.993, 259.863, 18.4529, 0.678004)
	pt3dadd(308.919, 260.06, 18.0959, 0.660388)
	pt3dadd(309.473, 260.72, 18.0706, 0.280528)
	pt3dadd(309.765, 261.009, 18.0556, 0.554348)
	pt3dadd(310.007, 261.302, 18.1633, 0.462196)
	pt3dadd(310.215, 261.696, 17.9452, 0.34845)
	pt3dadd(310.528, 262.107, 17.8204, 0.999764)
	pt3dadd(310.289, 262.863, 17.7346, 0.490874)
	pt3dadd(310.298, 263.273, 17.7177, 0.570434)
	pt3dadd(310.4, 263.711, 17.5034, 0.657078)
	pt3dadd(310.62, 263.901, 17.3216, 0.777576)
	pt3dadd(310.748, 264.205, 17.101, 0.884826)
	pt3dadd(310.784, 264.64, 16.8268, 1.00414)
	pt3dadd(311.107, 265.067, 16.5026, 0.582196)
	pt3dadd(311.286, 265.301, 16.2797, 0.686612)
	pt3dadd(311.398, 265.572, 16.0808, 0.601166)
	pt3dadd(311.551, 265.95, 15.9834, 0.299756)
	pt3dadd(311.974, 266.242, 16.0532, 0.583626)
	pt3dadd(311.987, 266.591, 15.8161, 0.373082)
	pt3dadd(312.192, 266.877, 15.6805, 0.437842)
	pt3dadd(312.34, 267.237, 15.602, 0.737926)
	pt3dadd(312.57, 267.522, 15.5223, 1.0342)
  }
}
proc shape3d_6() {
  dend[7] {	pt3dadd(312.956, 267.954, 15.3228, 0.63134)
	pt3dadd(313.281, 268.143, 15.1441, 0.603528)
	pt3dadd(313.729, 268.353, 14.8389, 0.403564)
	pt3dadd(313.991, 268.486, 14.6974, 0.3317)
	pt3dadd(314.243, 268.694, 14.5761, 0.48301)
	pt3dadd(314.526, 268.802, 14.3828, 0.646654)
	pt3dadd(314.739, 269.033, 14.0519, 0.72163)
	pt3dadd(314.934, 269.227, 13.7783, 1.02941)
	pt3dadd(315.055, 269.859, 13.2917, 1.43173)
	pt3dadd(315.458, 270.801, 12.4963, 1.32356)
	pt3dadd(315.751, 271.587, 11.8591, 0.98896)
	pt3dadd(315.886, 272.029, 11.5833, 0.980918)
	pt3dadd(315.941, 272.683, 11.2072, 0.888472)
	pt3dadd(316.078, 273.16, 10.6906, 0.57944)
	pt3dadd(316.285, 273.366, 10.4932, 0.32823)
	pt3dadd(316.503, 273.515, 10.3145, 0.415062)
	pt3dadd(316.764, 273.702, 10.1548, 0.498186)
	pt3dadd(316.945, 273.949, 9.98699, 0.537716)
	pt3dadd(317.052, 274.254, 9.81253, 0.676276)
	pt3dadd(317.179, 274.561, 9.60473, 1.04899)
	pt3dadd(316.985, 275.181, 8.90887, 1.03557)
	pt3dadd(317.495, 275.539, 8.19316, 0.652292)
	pt3dadd(317.716, 275.699, 7.8862, 0.5849)
	pt3dadd(317.845, 275.946, 7.47656, 0.738268)
	pt3dadd(318.221, 276.162, 6.95329, 0.798564)
	pt3dadd(318.678, 276.441, 6.52176, 0.326736)
	pt3dadd(319.101, 276.485, 6.30078, 0.978142)
	pt3dadd(319.482, 276.899, 5.80209, 1.30838)
	pt3dadd(319.973, 277.255, 5.54147, 0.896162)
	pt3dadd(320.758, 277.567, 5.25028, 0.39545)
	pt3dadd(320.979, 277.794, 5.17888, 0.2)
	pt3dadd(321.249, 277.956, 5.16359, 0.272018)
	pt3dadd(321.627, 278.036, 5.12071, 0.4902)
  }
  dend_6[3] {pt3dclear()
	pt3dadd(321.627, 278.036, 5.12071, 0.4902)
	pt3dadd(321.896, 278.2, 5.09222, 0.709352)
  }
  dend[8] {pt3dclear()
	pt3dadd(308.896, 259.244, 19.0207, 0.80991)
	pt3dadd(309.495, 258.683, 18.7441, 0.556746)
	pt3dadd(309.73, 258.378, 18.5451, 0.970586)
	pt3dadd(310.569, 258.251, 18.4574, 1.37966)
	pt3dadd(311.564, 257.882, 18.0482, 0.565408)
	pt3dadd(311.935, 257.808, 17.9727, 0.307988)
	pt3dadd(312.208, 257.815, 17.9179, 0.289626)
	pt3dadd(312.543, 257.846, 17.847, 0.648306)
	pt3dadd(312.832, 257.63, 17.7287, 0.913196)
	pt3dadd(313.522, 257.751, 17.4002, 0.860124)
	pt3dadd(313.939, 257.923, 17.2985, 0.722298)
	pt3dadd(314.603, 258.122, 16.9887, 0.400452)
	pt3dadd(314.927, 258.115, 16.8322, 0.509244)
	pt3dadd(315.206, 258.115, 16.5383, 0.5625)
	pt3dadd(315.48, 258.254, 16.2957, 0.41746)
	pt3dadd(315.684, 258.322, 16.0855, 0.482582)
	pt3dadd(315.943, 258.318, 15.9193, 0.395674)
	pt3dadd(316.389, 258.501, 15.8891, 0.754486)
	pt3dadd(316.731, 258.213, 15.4867, 0.567834)
	pt3dadd(317.019, 258.141, 15.3404, 0.515838)
	pt3dadd(317.289, 258.155, 15.1639, 0.635184)
	pt3dadd(318.006, 258.001, 14.9888, 0.361298)
	pt3dadd(318.312, 257.827, 14.7923, 0.341258)
	pt3dadd(318.669, 257.808, 14.6449, 0.365142)
	pt3dadd(318.912, 257.885, 14.457, 0.574766)
	pt3dadd(319.237, 257.824, 14.3233, 0.834646)
	pt3dadd(319.999, 257.97, 14.0331, 0.76706)
	pt3dadd(320.387, 258.015, 13.9492, 0.795834)
	pt3dadd(320.775, 257.874, 13.8647, 0.95217)
	pt3dadd(321.535, 258.05, 13.6891, 0.909278)
	pt3dadd(322.042, 258.197, 13.1797, 0.48683)
	pt3dadd(322.261, 258.248, 12.9779, 0.422232)
	pt3dadd(322.502, 258.334, 12.7547, 0.444808)
	pt3dadd(322.749, 258.436, 12.5764, 0.57309)
	pt3dadd(323.025, 258.427, 12.4448, 0.790662)
	pt3dadd(323.378, 258.505, 12.2793, 0.952668)
	pt3dadd(324.041, 258.64, 11.9766, 1.27351)
	pt3dadd(324.647, 258.505, 11.4388, 0.973754)
	pt3dadd(325.316, 258.671, 10.9583, 0.659544)
	pt3dadd(325.636, 258.771, 10.7684, 0.64354)
	pt3dadd(325.906, 258.82, 10.586, 0.681608)
	pt3dadd(326.388, 259.021, 10.1963, 0.754174)
	pt3dadd(326.835, 258.94, 9.72681, 0.730758)
	pt3dadd(327.119, 258.815, 9.49997, 0.509582)
	pt3dadd(327.431, 258.63, 9.29143, 0.362028)
	pt3dadd(327.762, 258.402, 9.14715, 0.211174)
	pt3dadd(328.051, 258.348, 9.13032, 0.2)
	pt3dadd(328.256, 258.385, 9.12206, 0.403034)
	pt3dadd(328.494, 258.334, 9.09311, 0.540952)
	pt3dadd(328.746, 258.219, 8.98133, 0.747134)
	pt3dadd(329.365, 258.284, 8.7136, 1.30161)
	pt3dadd(330.025, 258.241, 7.91222, 0.75892)
	pt3dadd(330.181, 258.25, 7.54147, 0.775864)
	pt3dadd(330.276, 257.764, 6.97448, 0.4661)
	pt3dadd(330.382, 257.523, 6.76921, 0.597628)
  }
  dend_6[4] {pt3dclear()
	pt3dadd(330.382, 257.523, 6.76921, 0.597628)
	pt3dadd(330.415, 257.402, 6.35468, 0.362396)
  }
  dend[9] {pt3dclear()
	pt3dadd(279.396, 262.353, 34.1424, 2.01903)
	pt3dadd(279.133, 261.277, 33.4346, 0.921914)
	pt3dadd(278.777, 260.652, 33.1247, 0.770086)
	pt3dadd(278.582, 260.376, 32.9387, 0.845156)
	pt3dadd(278.18, 259.818, 32.4906, 1.04614)
	pt3dadd(277.921, 259.277, 32.0193, 1.01605)
	pt3dadd(277.838, 258.698, 31.5286, 0.921596)
	pt3dadd(277.503, 258.161, 30.9958, 0.826292)
	pt3dadd(277.119, 257.936, 30.8088, 0.808596)
	pt3dadd(276.498, 257.469, 30.5214, 0.819922)
	pt3dadd(276.263, 257.177, 30.3255, 0.97212)
	pt3dadd(275.791, 256.49, 30.0267, 1.30326)
  }
  dend_5[5] {pt3dclear()
	pt3dadd(275.791, 256.49, 30.0267, 1.30326)
	pt3dadd(275.064, 255.307, 29.2574, 1.84663)
  }
  dend[10] {pt3dclear()
	pt3dadd(275.064, 255.307, 29.2574, 1.84663)
	pt3dadd(276.089, 254.885, 28.7359, 0.657884)
	pt3dadd(276.414, 254.778, 28.5, 0.630264)
	pt3dadd(276.66, 254.698, 28.2662, 0.556076)
	pt3dadd(276.862, 254.632, 27.9853, 0.5385)
	pt3dadd(277.013, 254.503, 27.751, 0.510606)
	pt3dadd(277.221, 254.371, 27.546, 0.439438)
	pt3dadd(277.479, 254.177, 27.3528, 0.372002)
	pt3dadd(277.676, 253.966, 27.1639, 0.44765)
	pt3dadd(277.892, 253.711, 26.9712, 0.519708)
	pt3dadd(278.08, 253.487, 26.8131, 0.645074)
	pt3dadd(278.415, 253.081, 26.4828, 1.00934)
	pt3dadd(278.442, 252.431, 26.0527, 1.1873)
	pt3dadd(278.91, 252.003, 25.5173, 1.02337)
	pt3dadd(279.099, 251.444, 24.9753, 0.872736)
	pt3dadd(279.389, 250.751, 24.6602, 1.11295)
	pt3dadd(279.775, 249.766, 23.8833, 0.816214)
	pt3dadd(279.839, 249.478, 23.5974, 0.708872)
	pt3dadd(279.747, 249.224, 23.2976, 0.781298)
	pt3dadd(279.923, 248.633, 23.002, 0.441854)
	pt3dadd(279.94, 248.313, 22.8907, 0.514832)
	pt3dadd(279.938, 248.039, 22.7818, 0.678886)
	pt3dadd(280.022, 247.455, 22.438, 1.16872)
	pt3dadd(280.008, 246.829, 22.0178, 0.77672)
	pt3dadd(280.113, 246.288, 21.7853, 1.10454)
	pt3dadd(280.606, 245.662, 21.3699, 1.48654)
  }
  dend[11] {pt3dclear()
	pt3dadd(280.606, 245.662, 21.3699, 1.48654)
	pt3dadd(281.231, 245.144, 20.1156, 0.774532)
	pt3dadd(281.343, 244.927, 19.5485, 0.699538)
	pt3dadd(281.61, 244.513, 19.2735, 0.241862)
	pt3dadd(281.734, 244.285, 19.0236, 0.509736)
	pt3dadd(281.811, 244.123, 18.7983, 0.703116)
	pt3dadd(281.927, 243.873, 18.56, 0.969034)
	pt3dadd(282.471, 243.393, 18.1858, 1.32283)
	pt3dadd(282.924, 242.397, 17.1549, 0.559294)
	pt3dadd(283.157, 242.232, 16.8441, 0.335274)
	pt3dadd(283.281, 242.21, 16.562, 0.2)
	pt3dadd(283.506, 241.65, 15.2339, 0.92253)
	pt3dadd(283.496, 241.446, 14.5873, 0.962006)
	pt3dadd(283.532, 241.081, 13.9576, 0.912444)
	pt3dadd(283.967, 240.504, 13.3446, 0.765844)
	pt3dadd(284.167, 240.573, 13.0148, 0.777268)
	pt3dadd(284.797, 240.712, 12.5101, 1.32983)
	pt3dadd(285.419, 240.215, 12.2745, 0.84556)
	pt3dadd(285.569, 239.75, 11.6521, 0.784792)
	pt3dadd(285.514, 239.376, 11.1843, 0.698408)
	pt3dadd(285.912, 239.083, 11.1159, 0.584536)
	pt3dadd(286.174, 238.664, 11.146, 0.760932)
	pt3dadd(285.899, 238.321, 10.9206, 0.654204)
	pt3dadd(285.637, 237.813, 10.4089, 0.589618)
	pt3dadd(285.459, 237.545, 10.2125, 0.556834)
	pt3dadd(285.291, 237.25, 10.0694, 0.827738)
	pt3dadd(285.319, 236.99, 9.51892, 1.06194)
	pt3dadd(285.514, 236.817, 9.02988, 1.01322)
	pt3dadd(285.853, 236.782, 8.46155, 0.807198)
	pt3dadd(286.053, 236.452, 8.17651, 0.506752)
	pt3dadd(286.151, 236.206, 7.89089, 0.585954)
	pt3dadd(286.298, 235.967, 7.6731, 0.583618)
	pt3dadd(286.221, 235.654, 7.52348, 0.713906)
	pt3dadd(286.244, 235.195, 7.32312, 1.31077)
	pt3dadd(286.137, 235.137, 6.55718, 1.25836)
	pt3dadd(286.047, 235.519, 5.53453, 1.22293)
	pt3dadd(285.587, 235.771, 4.73849, 1.13861)
  }
  dend_6[5] {pt3dclear()
	pt3dadd(285.587, 235.771, 4.73849, 1.13861)
	pt3dadd(284.934, 236.049, 4.55553, 0.38319)
  }
  dend[12] {pt3dclear()
	pt3dadd(280.606, 245.662, 21.3699, 1.48654)
	pt3dadd(280.569, 244.149, 20.8569, 0.730458)
	pt3dadd(280.628, 243.696, 20.7761, 0.613)
	pt3dadd(280.605, 242.997, 20.6261, 1.1165)
	pt3dadd(280.637, 242.565, 20.6, 0.2)
	pt3dadd(280.796, 241.558, 19.1318, 0.288966)
	pt3dadd(280.838, 241.192, 18.9903, 0.474256)
	pt3dadd(280.905, 240.438, 18.5284, 0.994436)
	pt3dadd(280.559, 239.844, 18.1647, 1.09819)
	pt3dadd(280.033, 239.147, 17.94, 0.761486)
	pt3dadd(279.902, 238.727, 17.9022, 0.637384)
	pt3dadd(278.696, 235.704, 17.4909, 0.571594)
	pt3dadd(278.9, 235.568, 17.2629, 0.635024)
	pt3dadd(279.061, 235.332, 17.0872, 0.532274)
	pt3dadd(279.198, 234.95, 16.889, 0.460748)
	pt3dadd(279.575, 234.571, 16.7425, 0.757372)
	pt3dadd(279.671, 233.999, 16.6755, 0.483276)
	pt3dadd(279.698, 233.7, 16.6784, 0.56872)
	pt3dadd(279.595, 233.347, 16.7062, 0.68339)
	pt3dadd(279.631, 233.077, 16.3886, 0.623326)
	pt3dadd(279.853, 232.655, 16.2758, 0.431904)
	pt3dadd(279.919, 232.227, 16.1836, 0.605696)
	pt3dadd(279.955, 231.759, 15.9008, 0.664456)
	pt3dadd(280.028, 231.42, 15.6959, 0.738102)
	pt3dadd(280.203, 230.6, 15.4995, 1.00976)
	pt3dadd(280.218, 229.964, 15.0242, 0.515636)
	pt3dadd(280.287, 229.631, 14.9222, 0.508666)
	pt3dadd(280.319, 229.274, 14.8492, 0.552008)
	pt3dadd(280.616, 228.609, 14.5997, 1.12277)
  }
}
proc shape3d_7() {
  dend[12] {	pt3dadd(280.396, 227.794, 14.235, 1.30149)
	pt3dadd(280.347, 227.305, 13.9866, 0.647254)
	pt3dadd(280.28, 226.614, 13.6492, 0.246612)
	pt3dadd(280.279, 226.361, 13.488, 0.366476)
	pt3dadd(280.347, 226.034, 13.4203, 0.641264)
	pt3dadd(280.629, 225.433, 13.3559, 1.21913)
	pt3dadd(281, 224.562, 13.1143, 1.33909)
	pt3dadd(281.303, 224.031, 12.6979, 1.42458)
	pt3dadd(281.494, 223.605, 12.3684, 0.757076)
	pt3dadd(281.543, 222.507, 11.8602, 0.585588)
	pt3dadd(281.591, 222.36, 11.643, 0.405434)
	pt3dadd(281.852, 222.16, 11.4323, 0.326594)
	pt3dadd(282.282, 222.017, 11.0336, 0.713668)
	pt3dadd(282.614, 221.868, 11.1345, 0.616708)
	pt3dadd(282.845, 221.655, 11.1328, 0.47028)
	pt3dadd(283.146, 221.475, 11.1339, 0.2)
	pt3dadd(283.44, 221.356, 11.1666, 0.34263)
	pt3dadd(283.621, 221.231, 11.1326, 0.33567)
	pt3dadd(283.909, 221.108, 11.1009, 0.387092)
	pt3dadd(284.146, 221.002, 11.0291, 0.358642)
	pt3dadd(284.597, 220.44, 10.7745, 0.814712)
	pt3dadd(285.074, 220.284, 10.6949, 0.983836)
	pt3dadd(285.502, 220.106, 10.5692, 0.75153)
	pt3dadd(285.792, 219.89, 10.5031, 0.446342)
	pt3dadd(285.994, 219.591, 10.3902, 0.442606)
	pt3dadd(286.303, 219.328, 10.2804, 0.602724)
	pt3dadd(286.454, 219.043, 10.2499, 0.458834)
	pt3dadd(286.611, 218.765, 10.237, 0.410352)
	pt3dadd(286.834, 218.51, 10.1859, 0.325352)
	pt3dadd(287.085, 218.292, 10.1433, 0.4592)
	pt3dadd(287.256, 217.955, 10.1044, 0.454752)
	pt3dadd(287.398, 217.621, 10.0625, 0.658006)
	pt3dadd(287.598, 217.342, 9.95564, 0.589854)
	pt3dadd(287.719, 216.901, 9.92106, 0.562336)
	pt3dadd(287.77, 216.473, 9.66524, 0.467962)
	pt3dadd(287.798, 215.96, 9.68932, 0.2)
	pt3dadd(287.691, 215.393, 9.69926, 1.04149)
	pt3dadd(288.007, 214.714, 9.46998, 1.14478)
	pt3dadd(288.388, 213.926, 9.09561, 0.760058)
	pt3dadd(288.542, 213.614, 8.9641, 0.51633)
	pt3dadd(288.639, 212.996, 8.61721, 0.880798)
	pt3dadd(288.971, 212.195, 7.86431, 1.74539)
	pt3dadd(288.91, 211.458, 7.14294, 1.47675)
	pt3dadd(288.325, 211.066, 6.16091, 0.81608)
	pt3dadd(287.834, 211.314, 5.9668, 0.827772)
  }
  dend_6[6] {pt3dclear()
	pt3dadd(287.834, 211.314, 5.9668, 0.827772)
	pt3dadd(287.629, 211.917, 5.79561, 1.03599)
  }
  dend[13] {pt3dclear()
	pt3dadd(275.064, 255.307, 29.2574, 1.84663)
	pt3dadd(274.229, 254.934, 28.83, 1.03422)
	pt3dadd(273.712, 254.788, 28.6695, 0.830024)
	pt3dadd(273.276, 254.529, 28.5849, 0.779624)
	pt3dadd(272.982, 254.226, 28.5257, 0.934144)
	pt3dadd(272.272, 253.654, 28.3243, 1.11262)
  }
  dend_5[6] {pt3dclear()
	pt3dadd(272.272, 253.654, 28.3243, 1.11262)
	pt3dadd(271.386, 253.253, 27.8217, 1.34546)
  }
  dend[14] {pt3dclear()
	pt3dadd(271.386, 253.253, 27.8217, 1.34546)
	pt3dadd(271.056, 252.372, 27.6166, 0.392634)
	pt3dadd(270.992, 252.054, 27.5584, 0.385146)
	pt3dadd(270.826, 251.765, 27.648, 0.44537)
	pt3dadd(270.703, 251.499, 27.8062, 0.559112)
	pt3dadd(270.62, 250.995, 27.3628, 0.380098)
	pt3dadd(270.483, 250.745, 27.2303, 0.465552)
	pt3dadd(270.378, 250.474, 27.097, 0.344364)
	pt3dadd(270.24, 250.208, 26.9991, 0.362992)
	pt3dadd(270.094, 249.914, 26.9201, 0.582982)
	pt3dadd(269.984, 249.578, 26.8049, 0.796258)
	pt3dadd(269.935, 248.701, 26.7962, 0.808502)
	pt3dadd(269.831, 248.218, 26.7833, 1.08574)
	pt3dadd(269.627, 247.757, 26.4308, 0.802394)
	pt3dadd(269.438, 247.392, 26.2679, 0.587136)
	pt3dadd(269.264, 247.03, 26.2768, 0.542004)
	pt3dadd(269.121, 246.702, 26.3094, 0.605572)
	pt3dadd(268.989, 245.992, 26.0589, 0.333684)
	pt3dadd(268.951, 245.593, 25.8942, 0.751008)
	pt3dadd(268.723, 245.116, 25.8274, 0.85937)
	pt3dadd(268.423, 244.786, 25.6816, 1.1501)
	pt3dadd(268.286, 243.773, 25.1717, 0.776612)
	pt3dadd(268.297, 243.052, 25.0926, 0.60096)
	pt3dadd(268.268, 242.677, 24.8349, 0.876492)
	pt3dadd(268.143, 242.383, 24.4497, 0.767444)
	pt3dadd(268.046, 241.784, 23.9294, 0.936196)
	pt3dadd(267.644, 241.468, 23.7994, 0.874172)
	pt3dadd(267.182, 240.847, 23.6463, 0.805662)
	pt3dadd(267.301, 240.277, 23.5325, 0.5046)
	pt3dadd(267.383, 239.987, 23.4015, 0.543748)
	pt3dadd(267.581, 239.69, 23.2177, 0.362812)
	pt3dadd(267.601, 239.507, 23.1417, 0.26085)
	pt3dadd(267.572, 239.213, 23.0794, 0.2)
	pt3dadd(267.408, 238.974, 22.9954, 0.2)
	pt3dadd(267.395, 238.719, 22.8648, 0.470226)
	pt3dadd(267.305, 238.399, 22.6865, 0.824296)
	pt3dadd(266.957, 237.878, 22.5494, 0.369042)
	pt3dadd(266.751, 237.704, 22.4875, 0.281472)
	pt3dadd(266.585, 237.406, 22.4867, 0.402782)
	pt3dadd(266.361, 237.226, 22.4793, 0.532998)
	pt3dadd(266.093, 237.199, 22.4288, 0.925738)
	pt3dadd(265.844, 236.393, 22.3171, 0.711598)
	pt3dadd(265.761, 235.993, 22.3351, 0.795202)
	pt3dadd(265.353, 235.041, 22.1895, 0.491668)
	pt3dadd(265.355, 234.721, 22.071, 0.719904)
	pt3dadd(265.201, 234.398, 21.9374, 0.924192)
	pt3dadd(264.685, 233.715, 21.7032, 1.16271)
	pt3dadd(264.338, 233.107, 21.7254, 0.920624)
	pt3dadd(264.092, 232.436, 21.5847, 0.482856)
	pt3dadd(263.941, 232.099, 21.4466, 0.630928)
	pt3dadd(263.872, 231.746, 21.2827, 0.51778)
	pt3dadd(263.866, 231.324, 21.1628, 1.01577)
	pt3dadd(263.56, 230.674, 21.0785, 0.685692)
	pt3dadd(263.466, 230.314, 21.102, 0.426852)
	pt3dadd(263.423, 230.032, 21.1061, 0.584216)
	pt3dadd(263.386, 229.433, 21.0378, 0.737066)
	pt3dadd(263.661, 228.976, 21.1783, 0.69479)
	pt3dadd(263.798, 228.424, 21.0335, 0.696136)
	pt3dadd(263.852, 227.853, 20.7865, 0.495854)
	pt3dadd(263.768, 227.557, 20.743, 0.38222)
	pt3dadd(263.704, 227.252, 20.6565, 0.371482)
	pt3dadd(263.686, 227.031, 20.6889, 0.419156)
	pt3dadd(263.623, 226.766, 20.6429, 0.292726)
	pt3dadd(263.594, 226.561, 20.6749, 0.2)
	pt3dadd(263.58, 226.341, 20.6361, 0.334364)
	pt3dadd(263.539, 226.013, 20.5501, 0.664734)
	pt3dadd(263.352, 225.765, 20.4217, 0.750812)
	pt3dadd(263.193, 225.062, 20.3091, 1.05776)
	pt3dadd(262.588, 224.216, 19.9784, 0.432614)
	pt3dadd(262.385, 223.976, 19.9227, 0.426606)
	pt3dadd(262.358, 223.595, 19.9389, 0.68991)
	pt3dadd(262.079, 223.259, 19.7257, 0.546164)
	pt3dadd(261.926, 222.868, 19.5302, 0.65998)
	pt3dadd(261.952, 222.631, 19.2796, 0.911766)
	pt3dadd(262.092, 221.993, 18.7388, 1.82534)
	pt3dadd(262.37, 220.639, 17.8721, 0.964452)
	pt3dadd(262.571, 219.907, 17.5181, 0.860092)
	pt3dadd(262.655, 219.442, 17.0411, 0.85756)
	pt3dadd(262.569, 218.91, 16.619, 0.355598)
	pt3dadd(262.49, 218.635, 16.4176, 0.609598)
	pt3dadd(262.797, 218.044, 16.0427, 0.425116)
	pt3dadd(262.945, 217.774, 15.8317, 0.559026)
	pt3dadd(263.042, 217.476, 15.6083, 0.746368)
	pt3dadd(263.178, 217.099, 15.4182, 0.933022)
	pt3dadd(263.065, 216.475, 15.2734, 0.694548)
	pt3dadd(262.993, 216.043, 15.1364, 1.02534)
	pt3dadd(262.966, 215.012, 14.9711, 0.672528)
	pt3dadd(262.868, 214.639, 14.8003, 0.815986)
	pt3dadd(262.779, 214.083, 14.4031, 0.35718)
	pt3dadd(262.721, 213.904, 14.1492, 0.568762)
	pt3dadd(262.718, 213.802, 13.8623, 0.653696)
	pt3dadd(262.626, 213.327, 14.052, 0.2)
	pt3dadd(262.522, 213.095, 14.0886, 0.38528)
	pt3dadd(262.296, 212.908, 14.0834, 0.619374)
	pt3dadd(262.169, 212.241, 13.9897, 0.248394)
	pt3dadd(262.089, 212.003, 13.8107, 0.447662)
	pt3dadd(262.035, 211.705, 13.6466, 0.716874)
	pt3dadd(261.665, 211.272, 13.3401, 1.01863)
	pt3dadd(261.392, 210.602, 13.0269, 0.769528)
	pt3dadd(261.202, 210.244, 12.5691, 0.863892)
	pt3dadd(261.141, 209.51, 12.0992, 1.03381)
	pt3dadd(261.22, 208.925, 11.7567, 1.30349)
	pt3dadd(261.157, 208.446, 11.1708, 0.805578)
	pt3dadd(260.983, 207.956, 10.6236, 0.771876)
	pt3dadd(260.835, 207.205, 10.2175, 0.745392)
	pt3dadd(260.66, 206.206, 9.64603, 0.54223)
	pt3dadd(260.621, 206.026, 9.44991, 0.401374)
	pt3dadd(260.666, 205.831, 9.29531, 0.370924)
	pt3dadd(260.775, 205.618, 9.18122, 0.231752)
	pt3dadd(260.727, 205.416, 9.15759, 0.42223)
	pt3dadd(260.71, 205.154, 9.11096, 0.577566)
	pt3dadd(260.698, 204.833, 9.00362, 0.629304)
	pt3dadd(260.669, 203.984, 9.04879, 1.01209)
	pt3dadd(260.5, 203.337, 8.70389, 0.770344)
	pt3dadd(260.798, 202.693, 7.99018, 0.909986)
	pt3dadd(260.491, 202.169, 7.52916, 0.994698)
	pt3dadd(260.707, 201.339, 7.04014, 0.859564)
	pt3dadd(260.514, 200.898, 6.88524, 0.996996)
	pt3dadd(260.268, 200.445, 6.59735, 0.709468)
	pt3dadd(260.323, 199.841, 6.33039, 0.784112)
	pt3dadd(260.288, 199.168, 6.11164, 0.597666)
	pt3dadd(260.224, 198.819, 5.96398, 0.444886)
	pt3dadd(260.336, 198.521, 5.84528, 0.453698)
	pt3dadd(260.551, 198.271, 5.77848, 0.334798)
	pt3dadd(260.708, 198.044, 5.69703, 0.489272)
	pt3dadd(260.805, 197.744, 5.60187, 0.56095)
	pt3dadd(260.863, 197.521, 5.41878, 0.6213)
	pt3dadd(260.933, 197.171, 4.94648, 0.737926)
	pt3dadd(261.28, 196.935, 4.82645, 0.33406)
	pt3dadd(261.579, 196.703, 4.68344, 0.565074)
	pt3dadd(261.605, 196.164, 5.07417, 0.431716)
	pt3dadd(261.571, 195.861, 5.23576, 0.243932)
	pt3dadd(261.549, 195.528, 5.35411, 0.319018)
	pt3dadd(261.626, 195.319, 5.41652, 0.482084)
	pt3dadd(261.464, 195.025, 5.49964, 0.294138)
	pt3dadd(261.418, 194.675, 5.60083, 0.654606)
	pt3dadd(261.41, 194.093, 5.63428, 1.00138)
	pt3dadd(261.593, 193.348, 5.52097, 0.658272)
	pt3dadd(261.9, 193.005, 5.4889, 0.36334)
	pt3dadd(262.177, 192.779, 5.56847, 0.28524)
	pt3dadd(262.412, 192.63, 5.64418, 0.2)
  }
  dend_6[7] {pt3dclear()
	pt3dadd(262.412, 192.63, 5.64418, 0.2)
	pt3dadd(262.697, 192.581, 5.64156, 0.397028)
  }
  dend[15] {pt3dclear()
	pt3dadd(271.386, 253.253, 27.8217, 1.34546)
	pt3dadd(270.528, 253.781, 27.7752, 0.394912)
  }
}
proc shape3d_8() {
  dend[15] {	pt3dadd(270.174, 253.926, 27.789, 0.578256)
	pt3dadd(269.843, 254.099, 27.8205, 0.840234)
	pt3dadd(268.884, 254.318, 27.4038, 0.759372)
	pt3dadd(268.565, 254.537, 27.2466, 0.727668)
	pt3dadd(268.221, 254.636, 27.178, 0.62828)
	pt3dadd(267.879, 254.706, 27.075, 0.582914)
	pt3dadd(267.549, 254.735, 26.9625, 0.57042)
	pt3dadd(267.217, 254.815, 26.9168, 0.615384)
	pt3dadd(266.776, 254.853, 26.6503, 0.428026)
	pt3dadd(266.475, 254.799, 26.5461, 0.372634)
	pt3dadd(266.159, 254.693, 26.4716, 0.571366)
	pt3dadd(265.87, 254.517, 26.379, 0.616662)
	pt3dadd(265.553, 254.363, 26.2605, 0.760804)
	pt3dadd(265.193, 254.259, 26.1512, 0.976656)
  }
  dend_5[7] {pt3dclear()
	pt3dadd(265.193, 254.259, 26.1512, 0.976656)
	pt3dadd(264.496, 254.143, 25.9037, 1.1625)
  }
  dend[16] {pt3dclear()
	pt3dadd(264.496, 254.143, 25.9037, 1.1625)
	pt3dadd(263.714, 254.747, 25.3698, 0.309112)
	pt3dadd(263.503, 254.85, 25.1498, 0.431828)
	pt3dadd(263.26, 255.041, 24.941, 0.481672)
	pt3dadd(263.021, 255.206, 24.7688, 0.690938)
	pt3dadd(262.804, 255.372, 24.531, 0.81041)
	pt3dadd(262.523, 255.285, 24.1786, 0.63542)
	pt3dadd(262.194, 255.171, 23.7446, 0.535736)
	pt3dadd(261.98, 255.137, 23.5311, 0.396012)
	pt3dadd(261.738, 255.175, 23.3175, 0.368072)
	pt3dadd(261.478, 255.368, 23.1322, 0.293062)
	pt3dadd(261.297, 255.564, 22.9428, 0.700272)
	pt3dadd(261.258, 255.838, 22.7046, 1.36488)
	pt3dadd(260.812, 256.205, 22.1392, 1.34217)
	pt3dadd(260.23, 256.591, 21.1072, 0.680298)
	pt3dadd(260.034, 256.723, 20.6739, 0.663052)
	pt3dadd(259.82, 256.851, 20.1079, 0.781746)
	pt3dadd(259.77, 257.042, 19.6335, 0.59304)
	pt3dadd(259.743, 257.217, 19.0716, 0.67639)
	pt3dadd(259.673, 257.823, 18.6908, 0.487906)
	pt3dadd(259.382, 258.082, 18.554, 0.719252)
	pt3dadd(259.09, 258.195, 18.3708, 0.941796)
	pt3dadd(258.668, 258.391, 18.2577, 1.37982)
	pt3dadd(257.536, 258.84, 17.6574, 0.386)
	pt3dadd(257.386, 259.092, 17.4458, 0.36587)
	pt3dadd(257.281, 259.359, 17.2406, 0.592336)
	pt3dadd(257.16, 259.643, 17.0897, 0.83008)
	pt3dadd(256.789, 260.361, 17.0003, 0.753968)
	pt3dadd(256.513, 261.039, 16.8738, 1.37166)
	pt3dadd(255.771, 261.838, 16.6907, 0.810834)
	pt3dadd(255.436, 262.075, 16.5997, 0.635918)
	pt3dadd(255.177, 262.478, 16.4945, 0.859482)
	pt3dadd(254.846, 262.923, 16.3944, 1.10914)
	pt3dadd(254.343, 263.172, 16.1273, 1.68867)
	pt3dadd(254.235, 263.933, 15.6186, 1.54684)
	pt3dadd(253.367, 264.607, 15.0829, 0.893802)
	pt3dadd(252.819, 265.031, 14.5833, 0.68266)
	pt3dadd(252.598, 265.273, 14.4642, 0.51859)
	pt3dadd(252.3, 265.602, 14.4976, 0.316478)
	pt3dadd(252.103, 265.841, 14.5255, 0.262266)
	pt3dadd(251.854, 266.058, 14.4742, 0.307124)
	pt3dadd(251.548, 266.308, 14.3628, 0.576952)
	pt3dadd(251.245, 266.499, 14.2119, 0.687992)
	pt3dadd(250.854, 266.604, 14.0827, 0.717604)
	pt3dadd(250.471, 266.654, 13.9023, 0.870226)
	pt3dadd(250.169, 266.602, 13.4292, 0.93466)
	pt3dadd(249.871, 266.922, 12.9114, 0.2)
	pt3dadd(249.806, 267.059, 12.7424, 0.224178)
	pt3dadd(249.784, 267.209, 12.5623, 0.309272)
	pt3dadd(249.735, 267.437, 12.3598, 0.448404)
	pt3dadd(249.557, 267.626, 12.1559, 0.446084)
	pt3dadd(249.334, 267.734, 11.9789, 0.57857)
	pt3dadd(249.072, 267.912, 11.7372, 0.716496)
	pt3dadd(248.796, 268.189, 11.6179, 0.75956)
	pt3dadd(248.299, 268.701, 11.4526, 0.644082)
	pt3dadd(248.045, 268.935, 11.3164, 0.64911)
	pt3dadd(247.681, 269.222, 11.266, 0.662592)
	pt3dadd(247.332, 269.344, 11.2257, 0.878528)
	pt3dadd(246.551, 269.893, 10.8603, 0.577354)
	pt3dadd(246.156, 270.086, 10.7717, 0.2)
	pt3dadd(245.951, 270.256, 10.6174, 0.2)
	pt3dadd(245.8, 270.514, 10.5398, 0.4103)
	pt3dadd(245.539, 270.665, 10.513, 0.529396)
	pt3dadd(245.241, 270.702, 10.2807, 0.628982)
	pt3dadd(244.943, 270.791, 10.1666, 0.70932)
	pt3dadd(244.58, 271.022, 9.96898, 0.727142)
	pt3dadd(244.065, 271.408, 9.47208, 0.565624)
	pt3dadd(243.877, 271.58, 9.22799, 0.755048)
	pt3dadd(243.871, 271.989, 9.01521, 0.987674)
	pt3dadd(243.329, 272.516, 8.48622, 1.37082)
	pt3dadd(242.718, 272.965, 7.83196, 0.989502)
	pt3dadd(241.8, 273.302, 7.54808, 0.512146)
	pt3dadd(241.38, 273.446, 7.36586, 0.676434)
	pt3dadd(240.952, 273.736, 7.14555, 1.20196)
	pt3dadd(240.304, 274.396, 6.85749, 1.16419)
	pt3dadd(239.879, 274.923, 6.24, 1.53508)
	pt3dadd(239.086, 275.374, 5.57272, 0.70303)
	pt3dadd(238.58, 275.784, 5.5159, 0.408576)
	pt3dadd(238.365, 276.091, 5.3583, 0.568782)
	pt3dadd(238.119, 276.284, 5.09209, 0.635314)
	pt3dadd(237.815, 276.673, 5.04689, 0.410408)
	pt3dadd(237.629, 277.029, 5.00742, 0.334976)
	pt3dadd(237.528, 277.345, 4.93162, 0.60777)
	pt3dadd(237.292, 277.708, 4.88387, 0.740644)
	pt3dadd(236.896, 277.941, 4.78584, 1.05209)
	pt3dadd(236.419, 278.81, 4.68017, 1.38751)
	pt3dadd(235.512, 279.783, 4.75092, 0.636696)
	pt3dadd(235.215, 280.163, 4.76504, 0.621042)
	pt3dadd(235.069, 280.605, 4.54222, 0.934204)
	pt3dadd(235.186, 281.346, 4.12225, 1.83667)
  }
  dend_6[8] {pt3dclear()
	pt3dadd(235.186, 281.346, 4.12225, 1.83667)
	pt3dadd(235.53, 281.531, 3.77109, 1.77357)
  }
  dend[17] {pt3dclear()
	pt3dadd(264.496, 254.143, 25.9037, 1.1625)
	pt3dadd(263.553, 253.662, 25.8506, 0.51434)
	pt3dadd(263.186, 253.632, 25.9, 0.333816)
	pt3dadd(262.905, 253.608, 25.9543, 0.307884)
	pt3dadd(262.614, 253.578, 26.0742, 0.386054)
	pt3dadd(262.439, 253.492, 26.3422, 0.537232)
	pt3dadd(261.978, 253.423, 26.2303, 0.2)
	pt3dadd(261.695, 253.368, 26.2235, 0.291266)
	pt3dadd(261.449, 253.151, 26.2512, 0.713544)
	pt3dadd(261.27, 252.805, 26.2323, 1.19825)
	pt3dadd(260.179, 252.748, 25.9692, 0.68686)
	pt3dadd(259.861, 252.646, 25.8723, 0.819838)
	pt3dadd(259.429, 252.67, 25.891, 0.953298)
	pt3dadd(258.562, 252.441, 25.7503, 1.13067)
	pt3dadd(257.825, 251.935, 25.7766, 0.782624)
	pt3dadd(257.31, 251.848, 25.7228, 0.462216)
	pt3dadd(256.904, 251.695, 25.493, 0.337556)
	pt3dadd(256.692, 251.552, 25.3641, 0.355526)
	pt3dadd(256.366, 251.48, 25.3067, 0.442304)
	pt3dadd(256.027, 251.399, 25.1676, 0.233492)
	pt3dadd(255.701, 251.298, 25.0422, 0.509932)
	pt3dadd(255.421, 251.119, 24.9257, 0.903812)
	pt3dadd(254.412, 250.935, 24.4623, 0.450172)
	pt3dadd(254.093, 250.844, 24.3829, 0.437088)
	pt3dadd(253.396, 250.697, 24.1184, 0.914332)
	pt3dadd(252.797, 250.15, 24.0253, 0.86013)
	pt3dadd(252.428, 249.878, 23.9703, 0.868194)
	pt3dadd(251.529, 249.608, 23.879, 1.20296)
	pt3dadd(250.982, 249.227, 23.8881, 1.29048)
	pt3dadd(250.183, 249.085, 23.6595, 0.657896)
	pt3dadd(249.787, 249.004, 23.2635, 0.44254)
	pt3dadd(249.607, 248.875, 22.9745, 0.728952)
	pt3dadd(249.144, 248.602, 23.1252, 0.463852)
	pt3dadd(248.797, 248.489, 23.2053, 0.499024)
	pt3dadd(248.432, 248.418, 23.1669, 0.499558)
	pt3dadd(248.099, 248.352, 23.1826, 0.371506)
	pt3dadd(247.889, 248.224, 23.1954, 0.45454)
	pt3dadd(247.497, 248.139, 23.2022, 0.796596)
	pt3dadd(247.053, 247.533, 23.4058, 0.755066)
	pt3dadd(246.542, 247.136, 23.3657, 0.317964)
	pt3dadd(246.359, 246.884, 23.3676, 0.289838)
	pt3dadd(246.119, 246.63, 23.3215, 0.454226)
	pt3dadd(245.947, 246.305, 23.226, 0.623682)
	pt3dadd(245.643, 246.053, 23.2954, 0.617574)
	pt3dadd(245.312, 245.445, 23.2126, 0.776144)
	pt3dadd(245.098, 245.056, 23.1358, 0.995162)
	pt3dadd(244.552, 244.518, 22.9287, 0.929032)
	pt3dadd(244.211, 243.725, 22.7263, 0.376146)
	pt3dadd(244.043, 243.47, 22.6521, 0.45939)
	pt3dadd(243.988, 243.175, 22.5914, 0.307876)
	pt3dadd(243.925, 242.863, 22.4384, 0.549732)
	pt3dadd(243.992, 242.581, 22.2455, 0.842576)
	pt3dadd(243.654, 241.932, 21.9266, 0.86725)
	pt3dadd(243.678, 241.274, 21.7166, 0.81562)
	pt3dadd(243.801, 240.78, 21.6506, 0.843534)
	pt3dadd(243.6, 240.343, 21.4713, 0.615282)
	pt3dadd(243.413, 240.022, 21.3578, 0.641204)
	pt3dadd(243.388, 239.571, 21.269, 0.700698)
	pt3dadd(243.329, 239.196, 21.1982, 0.611228)
	pt3dadd(243.271, 238.889, 21.1033, 0.45607)
	pt3dadd(243.254, 238.617, 21.0408, 0.521006)
	pt3dadd(243.155, 238.285, 21.0199, 0.697264)
	pt3dadd(242.975, 237.947, 20.8713, 0.853976)
	pt3dadd(242.905, 237.499, 20.5567, 1.18812)
	pt3dadd(242.599, 236.833, 20.1345, 1.21984)
	pt3dadd(242.455, 235.998, 19.5162, 0.830986)
	pt3dadd(242.432, 235.427, 19.313, 0.84812)
	pt3dadd(242.662, 234.645, 19.1321, 0.591072)
	pt3dadd(242.666, 234.116, 18.8824, 0.50043)
	pt3dadd(242.604, 233.849, 18.7099, 0.482392)
	pt3dadd(242.669, 233.573, 18.5785, 0.454718)
	pt3dadd(242.727, 233.2, 18.4215, 0.632812)
	pt3dadd(242.843, 232.733, 18.1172, 0.758562)
	pt3dadd(242.922, 232.285, 17.9919, 0.499592)
	pt3dadd(242.928, 231.932, 17.6129, 0.590856)
	pt3dadd(242.911, 231.631, 17.332, 0.71859)
	pt3dadd(242.742, 231.072, 17.178, 0.675634)
	pt3dadd(242.725, 230.696, 17.0847, 0.610028)
	pt3dadd(242.774, 230.354, 16.9873, 0.736694)
	pt3dadd(242.612, 229.617, 16.6036, 0.350036)
	pt3dadd(242.548, 229.298, 16.4205, 0.543636)
	pt3dadd(242.655, 229.092, 16.273, 0.558298)
	pt3dadd(242.744, 228.514, 16.0308, 0.47153)
	pt3dadd(242.831, 228.21, 15.8267, 0.805358)
	pt3dadd(243.048, 227.982, 15.5732, 0.838718)
	pt3dadd(242.79, 227.722, 15.3562, 0.835792)
	pt3dadd(242.719, 227.027, 15.0367, 0.993438)
	pt3dadd(242.781, 226.393, 14.6986, 0.72232)
	pt3dadd(242.805, 226.011, 14.6203, 0.683106)
	pt3dadd(242.785, 225.586, 14.3948, 0.832432)
	pt3dadd(242.98, 224.882, 14.0406, 1.13301)
	pt3dadd(242.988, 224.023, 13.8249, 1.16994)
  }
}
proc shape3d_9() {
  dend[17] {	pt3dadd(242.984, 223.394, 13.4228, 0.732086)
	pt3dadd(242.936, 223.021, 13.1691, 0.780522)
	pt3dadd(242.944, 222.593, 12.7167, 0.530502)
	pt3dadd(243.049, 222.305, 12.6349, 0.235366)
	pt3dadd(243.08, 221.963, 12.5142, 0.458138)
	pt3dadd(243.154, 221.711, 12.3533, 0.669312)
	pt3dadd(243.064, 221.187, 11.9295, 1.07551)
	pt3dadd(243.001, 220.784, 11.5579, 1.16086)
	pt3dadd(242.917, 220.113, 11.0068, 1.27821)
	pt3dadd(242.861, 219.293, 10.5723, 1.3475)
	pt3dadd(243.012, 218.345, 9.97871, 1.01606)
	pt3dadd(242.928, 217.577, 9.65864, 0.52858)
	pt3dadd(242.88, 217.281, 9.53807, 0.325616)
	pt3dadd(242.891, 217.036, 9.42352, 0.31867)
	pt3dadd(242.91, 216.787, 9.28424, 0.52161)
	pt3dadd(242.993, 216.539, 9.08895, 0.644696)
	pt3dadd(243.162, 216.403, 8.8131, 0.550658)
	pt3dadd(243.389, 216.304, 8.52904, 0.56131)
	pt3dadd(243.619, 216.199, 8.33583, 0.462536)
  }
  dend_6[9] {pt3dclear()
	pt3dadd(243.619, 216.199, 8.33583, 0.462536)
	pt3dadd(243.982, 215.963, 8.23246, 0.2)
  }
  dend[18] {pt3dclear()
	pt3dadd(265.716, 272.471, 44.8254, 2.00156)
	pt3dadd(265.439, 265.734, 44.7547, 2.00156)
	pt3dadd(265.346, 264.551, 44.8662, 1.34004)
	pt3dadd(265.032, 263.691, 44.8333, 1.33351)
	pt3dadd(264.808, 262.673, 44.7535, 1.2197)
	pt3dadd(264.615, 261.85, 44.7219, 1.13953)
	pt3dadd(264.431, 260.971, 44.6533, 1.117)
	pt3dadd(264.271, 260.13, 44.6448, 1.10663)
	pt3dadd(264.012, 259.297, 44.6768, 1.19445)
	pt3dadd(263.901, 258.434, 44.6778, 1.34717)
	pt3dadd(263.562, 257.58, 44.6686, 1.27374)
	pt3dadd(263.302, 256.711, 44.6422, 1.23787)
	pt3dadd(263.016, 255.908, 44.6589, 1.2485)
	pt3dadd(262.65, 255.108, 44.7902, 1.21925)
	pt3dadd(262.241, 254.408, 45.0042, 1.10303)
	pt3dadd(261.774, 253.792, 45.1183, 0.929328)
	pt3dadd(261.373, 253.045, 45.1657, 1.15078)
	pt3dadd(260.939, 252.144, 45.138, 0.95628)
	pt3dadd(260.683, 251.403, 45.0971, 1.16786)
	pt3dadd(260.423, 250.549, 44.9078, 1.07356)
	pt3dadd(260.104, 249.811, 44.7351, 0.912976)
	pt3dadd(259.891, 249.028, 44.7471, 0.92398)
	pt3dadd(259.851, 248.211, 44.8504, 0.857262)
	pt3dadd(259.77, 247.54, 44.8635, 1.01302)
	pt3dadd(259.566, 246.823, 44.8824, 0.900782)
	pt3dadd(259.496, 246.035, 44.9343, 0.939544)
	pt3dadd(259.332, 245.276, 44.7688, 0.9289)
	pt3dadd(259.155, 244.562, 44.5804, 0.737168)
	pt3dadd(258.892, 244.266, 44.6065, 0.670348)
	pt3dadd(258.563, 243.958, 44.673, 0.65714)
	pt3dadd(258.202, 243.729, 44.7659, 0.712542)
	pt3dadd(257.891, 243.502, 44.828, 0.814518)
	pt3dadd(257.659, 243.148, 44.8474, 0.917042)
	pt3dadd(257.331, 242.493, 44.9732, 0.99255)
	pt3dadd(238.29, 211.637, 54.4516, 0.67316)
	pt3dadd(237.621, 211.106, 54.6411, 0.865072)
	pt3dadd(237.239, 210.653, 54.5412, 1.00337)
	pt3dadd(236.861, 209.973, 54.4275, 0.694022)
	pt3dadd(236.573, 209.433, 54.3257, 0.558198)
	pt3dadd(235.815, 209.204, 54.3665, 1.31632)
	pt3dadd(235.159, 208.886, 54.4668, 0.985746)
	pt3dadd(234.509, 208.495, 54.6412, 1.10882)
	pt3dadd(234.209, 208.022, 54.5512, 0.9302)
	pt3dadd(233.726, 207.615, 54.73, 0.766606)
	pt3dadd(233.22, 207.445, 54.9905, 1.03759)
	pt3dadd(233.238, 206.985, 54.9301, 0.756024)
	pt3dadd(232.652, 206.828, 54.8087, 0.43622)
	pt3dadd(232.503, 206.67, 54.6758, 0.2)
	pt3dadd(232.307, 206.518, 54.6544, 0.2)
	pt3dadd(231.767, 206.119, 54.9486, 0.719786)
	pt3dadd(231.557, 206.07, 54.6562, 0.624174)
	pt3dadd(231.159, 205.748, 54.2438, 0.77043)
	pt3dadd(230.854, 205.433, 54.3122, 0.62666)
	pt3dadd(230.546, 205.083, 54.3569, 0.526278)
	pt3dadd(230.435, 204.784, 54.2253, 0.63651)
	pt3dadd(229.998, 203.732, 54.1169, 1.23636)
	pt3dadd(229.604, 203.34, 54.3077, 0.896534)
	pt3dadd(228.997, 202.446, 54.6052, 1.33007)
	pt3dadd(228.5, 201.949, 54.5793, 1.34016)
	pt3dadd(227.84, 201.306, 54.4243, 0.77258)
	pt3dadd(227.691, 201.034, 54.5119, 0.452936)
	pt3dadd(227.544, 200.678, 54.5774, 0.472186)
	pt3dadd(227.529, 200.51, 55.0992, 0.544094)
	pt3dadd(226.382, 199.179, 53.8637, 0.468786)
	pt3dadd(226.105, 198.885, 53.6586, 0.617106)
	pt3dadd(225.586, 198.473, 53.1679, 1.16769)
	pt3dadd(224.991, 197.699, 53.0957, 0.92833)
	pt3dadd(224.319, 197.571, 53.0394, 0.736374)
	pt3dadd(223.825, 197.172, 52.982, 0.243138)
	pt3dadd(223.6, 197.057, 52.9061, 0.4126)
	pt3dadd(223.389, 196.887, 52.8893, 0.249182)
	pt3dadd(223.102, 196.67, 52.94, 0.484724)
	pt3dadd(222.823, 196.419, 53.0334, 0.384094)
	pt3dadd(222.475, 196.257, 53.0939, 0.661214)
	pt3dadd(221.922, 195.793, 52.9456, 0.77143)
	pt3dadd(221.4, 195.47, 52.9945, 0.928952)
	pt3dadd(220.932, 195.12, 52.7974, 0.681798)
	pt3dadd(220.146, 194.629, 52.7114, 0.215544)
	pt3dadd(219.909, 194.616, 52.7246, 0.244744)
	pt3dadd(219.741, 194.603, 52.7297, 0.467758)
	pt3dadd(219.314, 194.582, 52.716, 0.354202)
	pt3dadd(219.063, 194.568, 52.5973, 0.47666)
	pt3dadd(218.828, 194.545, 52.4822, 0.459948)
	pt3dadd(218.571, 194.501, 52.4755, 0.49397)
	pt3dadd(218.342, 194.307, 52.7518, 0.432728)
	pt3dadd(217.636, 194.286, 52.5204, 0.410614)
	pt3dadd(217.398, 194.203, 52.4509, 0.448532)
	pt3dadd(217.191, 194.022, 52.4565, 0.310846)
	pt3dadd(216.939, 193.91, 52.4563, 0.372942)
	pt3dadd(216.663, 193.823, 52.4108, 0.42973)
	pt3dadd(216.285, 193.73, 52.367, 0.526074)
	pt3dadd(215.878, 193.574, 52.2743, 0.863138)
	pt3dadd(215.339, 193.199, 52.1428, 1.33859)
	pt3dadd(214.536, 192.409, 51.8539, 1.16741)
	pt3dadd(213.969, 192.127, 51.671, 1.06612)
	pt3dadd(213.611, 191.627, 51.5541, 1.05993)
	pt3dadd(213.086, 191.504, 51.4926, 0.59767)
	pt3dadd(212.748, 191.16, 51.4529, 0.437226)
	pt3dadd(212.416, 190.833, 51.3959, 0.463442)
	pt3dadd(211.901, 190.518, 51.4221, 0.411486)
	pt3dadd(211.628, 190.381, 51.1745, 0.405028)
	pt3dadd(211.383, 190.18, 50.7219, 0.468832)
	pt3dadd(211.099, 189.984, 50.7527, 0.673952)
	pt3dadd(210.746, 189.832, 50.6653, 0.775762)
	pt3dadd(210.064, 189.539, 50.6286, 0.533618)
	pt3dadd(209.792, 189.394, 50.5869, 0.40862)
	pt3dadd(209.559, 189.2, 50.5328, 0.2)
	pt3dadd(209.01, 189.002, 50.2635, 0.2)
	pt3dadd(208.701, 188.951, 50.1241, 0.350648)
	pt3dadd(208.336, 188.76, 49.9199, 0.49322)
	pt3dadd(208.045, 188.615, 49.7959, 0.58604)
	pt3dadd(207.422, 188.203, 49.5489, 1.17076)
	pt3dadd(206.527, 187.722, 49.1664, 1.25743)
	pt3dadd(205.95, 187.311, 48.8962, 0.707818)
	pt3dadd(203.522, 184.722, 48.3727, 0.526868)
	pt3dadd(203.192, 184.283, 48.2602, 0.614132)
	pt3dadd(202.907, 183.914, 48.2542, 0.950614)
	pt3dadd(202.472, 183.2, 48.1014, 1.36761)
	pt3dadd(202.038, 182.089, 47.7821, 0.644746)
	pt3dadd(201.788, 181.695, 47.6755, 0.342508)
	pt3dadd(201.516, 181.462, 47.5648, 0.383214)
	pt3dadd(201.158, 181.049, 47.5136, 0.35777)
	pt3dadd(200.96, 180.821, 47.4461, 0.2)
	pt3dadd(200.758, 180.508, 47.3893, 0.24622)
	pt3dadd(200.227, 180.178, 47.3584, 0.6127)
	pt3dadd(199.965, 179.873, 47.2129, 0.763172)
	pt3dadd(199.629, 179.24, 46.7991, 0.791154)
	pt3dadd(199.067, 178.813, 46.5092, 0.47807)
	pt3dadd(198.69, 178.624, 46.4142, 0.71899)
	pt3dadd(198.021, 178.371, 46.1928, 0.983642)
	pt3dadd(197.481, 178.28, 46.0956, 1.30495)
	pt3dadd(196.526, 177.954, 45.9543, 0.52363)
	pt3dadd(196.254, 178.127, 45.8935, 0.8957)
	pt3dadd(195.702, 178.268, 45.7005, 0.506194)
	pt3dadd(195.282, 178.246, 45.6789, 0.36166)
	pt3dadd(195.01, 178.126, 45.6513, 0.532044)
	pt3dadd(194.736, 178.083, 45.5379, 0.59618)
	pt3dadd(194.391, 177.857, 45.3005, 0.730478)
	pt3dadd(194.05, 177.52, 45.0806, 0.755092)
	pt3dadd(191.486, 174.988, 44.7686, 1.1331)
	pt3dadd(190.907, 174.418, 44.507, 1.04743)
	pt3dadd(190.671, 173.958, 44.5113, 0.825354)
	pt3dadd(190.197, 173.576, 44.4907, 0.758264)
	pt3dadd(189.909, 173.31, 44.3389, 0.518984)
	pt3dadd(189.616, 173.098, 44.2539, 0.492458)
	pt3dadd(189.314, 172.756, 44.2176, 0.446468)
	pt3dadd(188.897, 172.376, 44.2237, 0.44947)
	pt3dadd(188.673, 172.131, 44.2768, 0.309158)
	pt3dadd(181.684, 163.478, 45.3016, 0.668428)
	pt3dadd(181.554, 163.164, 45.1375, 0.781622)
	pt3dadd(181.016, 162.487, 45.1375, 0.87635)
	pt3dadd(177.615, 158.893, 46.5801, 0.221304)
	pt3dadd(177.456, 158.6, 46.6178, 0.364448)
	pt3dadd(177.297, 158.508, 46.6357, 0.2)
	pt3dadd(176.691, 158.124, 46.7998, 0.530346)
	pt3dadd(176.084, 157.74, 46.4544, 0.582754)
	pt3dadd(175.748, 157.389, 46.2783, 0.683056)
	pt3dadd(175.022, 156.818, 46.6989, 1.15271)
	pt3dadd(174.599, 156.553, 46.7771, 0.76515)
	pt3dadd(171.574, 154.128, 46.3878, 1.45634)
	pt3dadd(171.183, 153.259, 46.6249, 0.79177)
	pt3dadd(170.7, 153.054, 46.7121, 0.383982)
	pt3dadd(170.384, 152.801, 46.6879, 0.507134)
	pt3dadd(170.19, 152.5, 46.6869, 0.562762)
	pt3dadd(169.927, 152.226, 46.6856, 0.49197)
	pt3dadd(169.551, 152, 46.6519, 0.611284)
	pt3dadd(169.314, 151.691, 46.6785, 0.354628)
	pt3dadd(169.05, 151.519, 46.6991, 0.510526)
	pt3dadd(168.82, 151.398, 46.7058, 0.270954)
	pt3dadd(168.603, 151.258, 46.714, 0.2)
	pt3dadd(168.164, 150.795, 46.7821, 0.687302)
	pt3dadd(166.465, 149.595, 46.8759, 0.902786)
	pt3dadd(166.22, 149.125, 47.1788, 0.700038)
	pt3dadd(165.901, 148.875, 47.3305, 0.469322)
	pt3dadd(165.643, 148.591, 47.3204, 0.3762)
	pt3dadd(165.464, 148.487, 47.2459, 0.374688)
	pt3dadd(165.142, 148.285, 47.432, 0.2)
	pt3dadd(164.926, 148.176, 47.5385, 0.2)
	pt3dadd(164.705, 148.043, 47.5164, 0.2)
  }
}
proc shape3d_10() {
  dend[18] {	pt3dadd(164.463, 147.693, 47.5314, 0.568378)
	pt3dadd(164.32, 147.261, 47.8021, 0.815312)
	pt3dadd(164.118, 146.707, 47.8968, 0.810666)
	pt3dadd(163.641, 146.016, 47.9388, 0.882432)
	pt3dadd(163.294, 145.773, 48.0674, 0.777298)
	pt3dadd(160.114, 144.134, 47.4356, 0.46975)
	pt3dadd(159.85, 143.908, 47.3684, 0.480444)
	pt3dadd(159.625, 143.792, 47.362, 0.383932)
	pt3dadd(159.419, 143.649, 47.2268, 0.393108)
	pt3dadd(157.71, 142.496, 46.982, 1.31939)
	pt3dadd(155.683, 140.735, 47.4639, 0.66641)
	pt3dadd(151.821, 138.556, 47.3979, 0.412516)
	pt3dadd(151.534, 138.27, 47.6633, 0.698494)
	pt3dadd(146.465, 134.594, 48.1714, 0.656428)
	pt3dadd(145.899, 134.368, 48.3816, 0.636378)
	pt3dadd(145.719, 134.06, 48.6, 0.2)
	pt3dadd(143.091, 131.435, 48.356, 0.694334)
	pt3dadd(142.773, 130.672, 48.5011, 1.34262)
	pt3dadd(141.867, 130.279, 48.6702, 0.85179)
	pt3dadd(140.005, 127.421, 48.9332, 0.779844)
	pt3dadd(140.385, 127.187, 48.6701, 0.948828)
	pt3dadd(140.428, 126.205, 48.0866, 0.2)
	pt3dadd(140.38, 125.924, 48.0165, 0.2)
	pt3dadd(140.457, 125.757, 47.939, 0.272636)
	pt3dadd(140.555, 125.572, 47.6415, 0.480708)
	pt3dadd(140.702, 125.391, 47.3906, 0.872762)
	pt3dadd(140.755, 125.331, 46.7562, 0.695882)
	pt3dadd(142.115, 124.606, 45.861, 0.819066)
	pt3dadd(142.769, 124.405, 45.2361, 0.481246)
	pt3dadd(142.915, 124.26, 44.963, 0.478348)
	pt3dadd(143.028, 124.201, 44.685, 0.45002)
	pt3dadd(143.343, 124.012, 44.4696, 0.2)
	pt3dadd(143.516, 123.898, 44.2787, 0.442666)
	pt3dadd(143.627, 123.811, 43.9544, 0.264606)
	pt3dadd(143.857, 123.69, 43.7373, 0.2)
	pt3dadd(144.018, 123.596, 43.6687, 0.2)
	pt3dadd(144.305, 123.42, 43.6209, 0.302418)
	pt3dadd(144.382, 123.412, 43.3278, 0.2)
  }
  dend_6[10] {pt3dclear()
	pt3dadd(144.382, 123.412, 43.3278, 0.2)
	pt3dadd(144.386, 123.395, 43.1639, 0.2)
  }
  dend[19] {pt3dclear()
	pt3dadd(265.716, 272.471, 44.8254, 0.979464)
	pt3dadd(257.097, 268.72, 43.2961, 0.979464)
	pt3dadd(256.515, 268.37, 43.2078, 1.08471)
	pt3dadd(255.578, 267.964, 42.9773, 1.23273)
	pt3dadd(254.865, 267.477, 42.6027, 1.06761)
	pt3dadd(254.403, 267.139, 42.4838, 0.882094)
	pt3dadd(253.68, 266.535, 42.3418, 0.599514)
	pt3dadd(253.281, 266.489, 42.3002, 0.56192)
	pt3dadd(252.924, 266.561, 42.3269, 0.699688)
	pt3dadd(252.533, 266.543, 42.4148, 0.88013)
	pt3dadd(251.766, 266.497, 42.5688, 1.22055)
	pt3dadd(250.966, 266.277, 42.5247, 1.41008)
	pt3dadd(250.13, 266.116, 42.2199, 1.37961)
	pt3dadd(249.432, 266.035, 41.6759, 1.10291)
	pt3dadd(248.739, 266.072, 41.0886, 1.0199)
	pt3dadd(248.311, 265.972, 40.4255, 1.12439)
	pt3dadd(247.935, 265.878, 39.7658, 0.916674)
	pt3dadd(247.408, 265.581, 39.2645, 0.841888)
	pt3dadd(246.856, 265.256, 38.9416, 0.756948)
	pt3dadd(246.286, 264.952, 38.6206, 1.02081)
	pt3dadd(245.516, 264.783, 38.2379, 1.03802)
	pt3dadd(244.867, 264.631, 37.7024, 1.09736)
	pt3dadd(244.213, 264.38, 37.2144, 0.979622)
	pt3dadd(243.432, 264.083, 36.7131, 1.09262)
	pt3dadd(242.868, 263.887, 36.1705, 1.06696)
	pt3dadd(242.461, 263.582, 35.5389, 1.23468)
	pt3dadd(241.767, 263.288, 34.9149, 1.05633)
	pt3dadd(241.03, 263.005, 34.4551, 1.45527)
  }
  dend_5[8] {pt3dclear()
	pt3dadd(241.03, 263.005, 34.4551, 1.45527)
	pt3dadd(240.249, 262.698, 33.4526, 1.41888)
  }
  dend_5[9] {pt3dclear()
	pt3dadd(240.249, 262.698, 33.4526, 1.41888)
	pt3dadd(240.033, 262.788, 32.9733, 1.19283)
  }
  dend[20] {pt3dclear()
	pt3dadd(240.033, 262.788, 32.9733, 1.19283)
	pt3dadd(239.304, 263.004, 32.4762, 0.647446)
	pt3dadd(238.986, 262.968, 32.2827, 0.56929)
	pt3dadd(238.768, 262.803, 32.0717, 0.457832)
	pt3dadd(238.534, 262.651, 31.8424, 0.517362)
	pt3dadd(238.342, 262.549, 31.6316, 0.529258)
	pt3dadd(238.08, 262.527, 31.4315, 0.579458)
	pt3dadd(237.812, 262.605, 31.2659, 0.629578)
	pt3dadd(237.503, 262.815, 31.0259, 0.490416)
	pt3dadd(237.285, 263.063, 30.8518, 0.554736)
	pt3dadd(236.776, 263.207, 30.8236, 0.53961)
	pt3dadd(236.443, 263.408, 30.7326, 0.506798)
	pt3dadd(236.203, 263.587, 30.5087, 0.510076)
	pt3dadd(235.921, 263.718, 30.3212, 0.552612)
	pt3dadd(235.605, 263.896, 30.1257, 0.497844)
	pt3dadd(235.05, 264.307, 30.0905, 0.495982)
	pt3dadd(234.683, 264.558, 30.0092, 0.643096)
	pt3dadd(234.326, 264.784, 29.9182, 0.572666)
	pt3dadd(233.997, 265.076, 29.712, 0.617584)
	pt3dadd(233.805, 265.423, 29.5353, 0.600226)
	pt3dadd(233.497, 265.665, 29.4019, 0.783978)
	pt3dadd(233.179, 266.055, 29.4115, 1.15274)
	pt3dadd(232.584, 265.886, 28.9615, 0.971872)
	pt3dadd(231.724, 266.184, 28.5386, 0.824594)
	pt3dadd(231.268, 266.172, 28.3544, 0.859094)
	pt3dadd(230.983, 266.407, 28.1219, 0.988098)
	pt3dadd(229.939, 266.627, 27.776, 0.70073)
	pt3dadd(229.494, 266.57, 27.7571, 0.738398)
	pt3dadd(229.051, 266.475, 27.7565, 1.15234)
	pt3dadd(228.49, 266.638, 27.5862, 0.857814)
	pt3dadd(227.77, 266.421, 27.4194, 0.685974)
	pt3dadd(227.336, 266.392, 27.4532, 0.786312)
	pt3dadd(226.857, 266.222, 27.39, 1.15601)
  }
  dend_5[10] {pt3dclear()
	pt3dadd(226.857, 266.222, 27.39, 1.15601)
	pt3dadd(225.404, 266.208, 26.9455, 2.01729)
  }
  dend[21] {pt3dclear()
	pt3dadd(225.404, 266.208, 26.9455, 2.01729)
	pt3dadd(224.662, 266.683, 26.3462, 0.96075)
	pt3dadd(223.882, 266.833, 26.054, 0.71135)
	pt3dadd(223.539, 266.743, 25.9979, 0.512968)
	pt3dadd(223.159, 266.702, 25.9783, 0.486406)
	pt3dadd(222.776, 266.677, 25.9555, 0.77282)
	pt3dadd(221.806, 266.577, 25.5646, 0.383132)
	pt3dadd(221.547, 266.45, 25.4091, 0.389068)
	pt3dadd(221.302, 266.451, 25.2382, 0.443048)
	pt3dadd(221.031, 266.419, 25.0714, 0.5391)
	pt3dadd(220.786, 266.481, 24.8646, 0.529904)
	pt3dadd(220.491, 266.59, 24.7191, 0.397472)
	pt3dadd(220.211, 266.722, 24.6236, 0.47281)
	pt3dadd(219.896, 266.812, 24.5455, 0.62502)
	pt3dadd(219.569, 266.911, 24.495, 1.01384)
	pt3dadd(218.72, 267.319, 24.0372, 0.894886)
	pt3dadd(218.187, 267.379, 23.8353, 0.756836)
	pt3dadd(217.615, 267.496, 23.8388, 0.587188)
	pt3dadd(216.627, 267.623, 23.7479, 0.698242)
	pt3dadd(216.144, 267.798, 23.7137, 0.774292)
	pt3dadd(215.731, 267.854, 23.5817, 0.718392)
	pt3dadd(215.304, 267.785, 23.4006, 0.814654)
	pt3dadd(214.802, 267.931, 23.4195, 0.619782)
	pt3dadd(214.389, 268.024, 23.3866, 0.495582)
	pt3dadd(214.037, 268.153, 23.3392, 0.672346)
	pt3dadd(213.682, 268.229, 23.2976, 0.827314)
	pt3dadd(213.232, 268.105, 23.0579, 0.708856)
	pt3dadd(212.562, 268.075, 22.9003, 0.47225)
	pt3dadd(212.192, 268.065, 22.7931, 0.571404)
	pt3dadd(211.83, 267.984, 22.7745, 0.420108)
	pt3dadd(211.447, 267.858, 22.7697, 0.505164)
	pt3dadd(211.212, 267.699, 22.3221, 0.43983)
	pt3dadd(210.977, 267.601, 21.9478, 0.53667)
	pt3dadd(210.436, 267.522, 21.7438, 0.72839)
	pt3dadd(210.025, 267.506, 21.592, 0.630702)
	pt3dadd(209.7, 267.483, 21.4679, 0.54813)
	pt3dadd(209.388, 267.474, 21.3404, 0.542494)
	pt3dadd(209.034, 267.586, 21.2698, 0.589026)
	pt3dadd(208.64, 267.638, 21.2038, 0.678836)
	pt3dadd(208.228, 267.632, 21.05, 0.97932)
	pt3dadd(207.295, 267.179, 20.5036, 1.54351)
	pt3dadd(206.095, 267.199, 19.96, 1.59873)
	pt3dadd(204.562, 267.152, 19.3171, 0.484428)
	pt3dadd(204.035, 267.109, 19.2396, 0.67341)
	pt3dadd(203.635, 267.113, 19.2176, 1.06084)
	pt3dadd(203.091, 267.332, 19.0265, 0.61731)
	pt3dadd(202.655, 267.37, 18.9324, 0.594838)
	pt3dadd(202.271, 267.525, 19.0311, 0.55915)
	pt3dadd(201.915, 267.525, 18.7697, 0.515502)
	pt3dadd(201.504, 267.422, 18.4649, 0.759456)
	pt3dadd(200.654, 267.389, 18.0201, 0.4701)
	pt3dadd(200.171, 267.395, 18.0324, 0.273784)
	pt3dadd(199.857, 267.48, 17.9858, 0.46989)
	pt3dadd(199.537, 267.561, 17.9556, 0.719372)
	pt3dadd(199.133, 267.635, 17.9472, 0.99838)
	pt3dadd(198.373, 268.09, 17.503, 1.4148)
	pt3dadd(197.614, 267.937, 17.2425, 1.02487)
	pt3dadd(196.666, 267.799, 16.9605, 0.658184)
	pt3dadd(196.261, 267.873, 16.9647, 0.540772)
	pt3dadd(195.826, 268.02, 17.0055, 0.536492)
	pt3dadd(195.39, 268.014, 16.7683, 0.335938)
	pt3dadd(195.092, 267.989, 16.6026, 0.376832)
	pt3dadd(194.795, 267.822, 16.4293, 0.80798)
	pt3dadd(194.163, 267.963, 16.1904, 0.6542)
	pt3dadd(193.663, 268.161, 16.2396, 0.735268)
	pt3dadd(193.121, 268.164, 16.0774, 0.739936)
	pt3dadd(192.708, 268.088, 15.8531, 0.876802)
	pt3dadd(192.07, 267.968, 15.8408, 0.562258)
	pt3dadd(191.544, 267.785, 15.3898, 0.788844)
	pt3dadd(191.146, 267.578, 15.0424, 1.17377)
	pt3dadd(190.808, 267.677, 14.4871, 1.00427)
	pt3dadd(190.508, 267.72, 13.9931, 1.06414)
	pt3dadd(190.079, 267.788, 13.6014, 1.06169)
	pt3dadd(189.643, 267.538, 13.3049, 1.39081)
	pt3dadd(188.939, 267.405, 13.0973, 1.22961)
	pt3dadd(188.206, 267.412, 12.9047, 1.26536)
	pt3dadd(187.612, 267.33, 12.5583, 1.70352)
	pt3dadd(187.008, 267.079, 11.7014, 1.48612)
	pt3dadd(186.08, 266.759, 10.9238, 0.839696)
	pt3dadd(185.851, 266.57, 10.6241, 0.891056)
	pt3dadd(185.732, 266.527, 9.84841, 0.836888)
	pt3dadd(185.689, 266.398, 9.16408, 0.780854)
	pt3dadd(185.449, 266.235, 8.70343, 0.757124)
	pt3dadd(184.76, 265.982, 8.42889, 0.70633)
	pt3dadd(184.337, 266.073, 8.20585, 0.958012)
	pt3dadd(183.86, 266.284, 7.97511, 0.802922)
	pt3dadd(183.415, 266.482, 7.77235, 0.891968)
	pt3dadd(182.924, 266.558, 7.3179, 1.1116)
	pt3dadd(182.226, 266.569, 7.11131, 1.25221)
	pt3dadd(181.598, 266.614, 7.08813, 1.13319)
	pt3dadd(181.048, 266.69, 6.97441, 0.992832)
	pt3dadd(180.492, 266.843, 6.84986, 1.37628)
	pt3dadd(179.893, 266.793, 6.4156, 1.3794)
  }
}
proc shape3d_11() {
  dend[21] {	pt3dadd(179.259, 266.492, 6.13413, 1.30835)
	pt3dadd(177.896, 266.67, 5.97347, 0.750608)
	pt3dadd(177.5, 267.156, 5.72028, 0.809888)
	pt3dadd(177.055, 267.515, 5.486, 0.95197)
	pt3dadd(176.359, 267.514, 5.37209, 0.947846)
	pt3dadd(175.58, 267.736, 5.00919, 0.646806)
  }
  dend_6[11] {pt3dclear()
	pt3dadd(175.58, 267.736, 5.00919, 0.646806)
	pt3dadd(175.263, 267.73, 4.83522, 0.279658)
  }
  dend[22] {pt3dclear()
	pt3dadd(225.404, 266.208, 26.9455, 2.01729)
	pt3dadd(224.802, 265.423, 27.2492, 1.28314)
	pt3dadd(223.664, 265.449, 27.558, 0.487366)
	pt3dadd(223.39, 265.553, 27.659, 0.444214)
	pt3dadd(223.102, 265.606, 27.7893, 0.307282)
	pt3dadd(222.851, 265.668, 27.8486, 0.417442)
	pt3dadd(222.612, 265.664, 27.9047, 0.421192)
	pt3dadd(222.31, 265.694, 28.0079, 0.438866)
	pt3dadd(221.976, 265.737, 28.0829, 0.41472)
	pt3dadd(221.7, 265.701, 28.2086, 0.495026)
	pt3dadd(221.37, 265.655, 28.1966, 0.532958)
	pt3dadd(220.751, 265.505, 27.9892, 0.454308)
	pt3dadd(220.461, 265.452, 27.8969, 0.645072)
	pt3dadd(220.126, 265.397, 27.8583, 0.720318)
	pt3dadd(219.751, 265.245, 27.7961, 0.831278)
	pt3dadd(219.353, 265.13, 27.5476, 0.894704)
	pt3dadd(218.91, 264.91, 27.4145, 0.77109)
	pt3dadd(218.332, 264.646, 27.2421, 0.500702)
	pt3dadd(217.974, 264.502, 27.2077, 0.415944)
	pt3dadd(217.625, 264.414, 27.1986, 0.2)
	pt3dadd(217.385, 264.405, 27.1368, 0.2)
	pt3dadd(217.134, 264.417, 27.122, 0.369026)
	pt3dadd(216.8, 264.44, 27.1173, 0.694944)
	pt3dadd(216.434, 264.528, 27.2699, 1.05336)
	pt3dadd(215.678, 264.295, 27.4249, 0.815694)
	pt3dadd(215.284, 264.169, 27.4507, 0.791282)
	pt3dadd(214.253, 264.125, 27.5772, 0.552188)
	pt3dadd(213.787, 264.017, 27.5281, 0.424928)
	pt3dadd(213.491, 263.884, 27.5254, 0.37901)
	pt3dadd(213.194, 263.784, 27.4848, 0.247094)
	pt3dadd(212.895, 263.623, 27.3867, 0.54868)
	pt3dadd(212.638, 263.356, 27.2327, 0.579982)
	pt3dadd(212.327, 263.238, 27.1086, 0.445556)
	pt3dadd(212.079, 263.099, 26.9578, 0.529126)
	pt3dadd(211.728, 262.989, 26.8406, 0.725828)
	pt3dadd(211.335, 262.887, 26.9155, 0.78734)
	pt3dadd(210.894, 262.7, 26.9329, 0.763684)
	pt3dadd(210.487, 262.526, 26.7566, 0.95139)
	pt3dadd(209.906, 262.371, 26.4455, 1.20773)
	pt3dadd(209.023, 262.098, 25.9987, 0.619704)
	pt3dadd(208.604, 261.919, 26.0115, 0.56177)
	pt3dadd(208.292, 261.725, 26.031, 0.638986)
	pt3dadd(207.976, 261.485, 26.0065, 0.969226)
	pt3dadd(207.252, 261.214, 25.9794, 0.786664)
	pt3dadd(206.735, 260.933, 26.113, 0.77875)
	pt3dadd(206.293, 260.794, 26.1968, 0.816982)
	pt3dadd(205.844, 260.515, 26.1688, 0.531652)
	pt3dadd(205.535, 260.399, 26.2024, 0.530524)
	pt3dadd(205.248, 260.31, 26.3358, 0.544556)
	pt3dadd(204.856, 260.281, 26.0476, 0.454788)
	pt3dadd(204.562, 260.25, 25.9133, 0.569546)
	pt3dadd(203.885, 259.808, 25.7274, 0.214192)
	pt3dadd(203.651, 259.701, 25.6697, 0.2)
	pt3dadd(203.39, 259.53, 25.7073, 0.2)
	pt3dadd(203.162, 259.447, 25.6039, 0.60628)
	pt3dadd(203.111, 259.105, 25.4469, 0.521378)
	pt3dadd(202.876, 259.16, 25.2808, 0.692414)
	pt3dadd(202.21, 259.134, 25.1792, 0.687262)
	pt3dadd(201.85, 258.876, 25.1886, 1.03398)
	pt3dadd(200.878, 258.954, 25.1224, 0.779944)
	pt3dadd(200.355, 258.964, 24.9163, 0.734728)
	pt3dadd(199.654, 258.539, 24.782, 0.88559)
	pt3dadd(198.887, 258.255, 24.5732, 0.819582)
	pt3dadd(198.393, 258.113, 24.6008, 0.938512)
	pt3dadd(197.927, 257.987, 24.5201, 0.714758)
	pt3dadd(197.61, 257.813, 24.4996, 0.51817)
	pt3dadd(197.174, 257.627, 24.4714, 0.495204)
	pt3dadd(196.722, 257.605, 24.3285, 0.605504)
	pt3dadd(196.611, 257.092, 23.9621, 0.321024)
	pt3dadd(196.39, 256.928, 23.8555, 0.249534)
	pt3dadd(196.067, 256.783, 23.8327, 0.2)
	pt3dadd(195.828, 256.597, 23.74, 0.246246)
	pt3dadd(195.559, 256.456, 23.6028, 0.532634)
	pt3dadd(195.369, 256.227, 23.4443, 0.750862)
	pt3dadd(194.628, 256.196, 23.3662, 0.798066)
	pt3dadd(194.184, 256.146, 23.2664, 1.10078)
	pt3dadd(193.126, 256.226, 23.2726, 1.18097)
	pt3dadd(192.245, 256.143, 23.3641, 0.812088)
	pt3dadd(191.772, 255.976, 23.1086, 0.347076)
	pt3dadd(191.589, 255.943, 23.0512, 0.338756)
	pt3dadd(191.349, 255.979, 22.9916, 0.348628)
	pt3dadd(191.057, 255.924, 22.9685, 0.578502)
	pt3dadd(190.869, 255.62, 23.0703, 0.645022)
	pt3dadd(190.429, 255.501, 22.8192, 0.384438)
	pt3dadd(190.187, 255.518, 22.696, 0.495264)
	pt3dadd(189.688, 255.444, 22.5735, 0.481086)
	pt3dadd(189.361, 255.428, 22.7077, 0.665114)
	pt3dadd(188.946, 255.546, 22.5816, 0.89943)
	pt3dadd(188.431, 255.617, 22.4172, 1.18713)
	pt3dadd(187.489, 255.348, 22.6105, 1.10397)
	pt3dadd(186.805, 255.256, 22.5683, 0.658936)
	pt3dadd(186.505, 255.138, 22.4859, 0.470328)
	pt3dadd(186.265, 255.093, 22.3694, 0.46314)
	pt3dadd(186.044, 255.083, 22.1984, 0.469096)
	pt3dadd(186.015, 254.72, 22.5569, 0.366664)
	pt3dadd(185.891, 254.498, 22.5897, 0.2)
	pt3dadd(185.573, 254.272, 22.5626, 0.555222)
	pt3dadd(185.273, 254.184, 22.5674, 0.603582)
	pt3dadd(184.9, 254.182, 22.5989, 0.326974)
	pt3dadd(184.5, 253.936, 22.647, 0.85331)
	pt3dadd(184.106, 253.976, 22.573, 0.650856)
	pt3dadd(183.435, 253.811, 22.5932, 0.339596)
	pt3dadd(183.14, 253.825, 22.5979, 0.2)
	pt3dadd(182.903, 253.657, 22.6096, 0.262058)
	pt3dadd(182.738, 253.586, 22.6276, 0.263644)
	pt3dadd(182.548, 253.517, 22.6463, 0.338806)
	pt3dadd(182.299, 253.471, 22.6602, 0.406524)
	pt3dadd(181.991, 253.474, 22.699, 0.413696)
	pt3dadd(181.656, 253.472, 22.7583, 0.539224)
	pt3dadd(181.231, 253.366, 22.9042, 0.8353)
	pt3dadd(180.265, 253.365, 23.266, 1.03212)
	pt3dadd(179.328, 253.468, 23.446, 1.30077)
	pt3dadd(178.493, 253.479, 23.747, 1.42372)
	pt3dadd(177.462, 253.467, 23.9958, 1.0592)
	pt3dadd(177.067, 253.546, 24.0695, 0.722716)
	pt3dadd(176.741, 253.589, 24.2021, 0.56624)
	pt3dadd(176.399, 253.554, 24.2233, 0.621852)
	pt3dadd(176.126, 253.531, 24.2654, 0.502124)
	pt3dadd(175.857, 253.517, 24.3071, 0.505812)
	pt3dadd(175.496, 253.481, 24.3565, 0.482746)
	pt3dadd(175.1, 253.49, 24.3769, 0.560004)
	pt3dadd(174.762, 253.56, 24.6092, 0.67479)
	pt3dadd(174.275, 253.75, 24.5739, 0.369902)
	pt3dadd(173.952, 253.843, 24.5437, 0.3356)
	pt3dadd(173.663, 253.928, 24.6218, 0.391778)
	pt3dadd(173.311, 253.967, 24.704, 0.457522)
	pt3dadd(173.025, 253.945, 24.7417, 0.549038)
	pt3dadd(172.259, 254.072, 24.5346, 0.939592)
	pt3dadd(171.652, 254.196, 24.4043, 0.86211)
	pt3dadd(170.887, 254.546, 24.1698, 1.01748)
	pt3dadd(170.073, 254.566, 23.9879, 0.956626)
	pt3dadd(169.662, 254.583, 23.9524, 0.701584)
	pt3dadd(169.303, 254.687, 24.021, 0.511406)
	pt3dadd(168.974, 254.738, 24.0187, 0.422338)
	pt3dadd(168.658, 254.773, 23.9785, 0.522878)
	pt3dadd(168.34, 254.706, 24.0123, 0.58805)
	pt3dadd(167.978, 254.594, 24.0274, 0.67464)
	pt3dadd(167.19, 254.582, 23.7698, 0.683274)
	pt3dadd(166.575, 254.496, 23.8342, 0.496624)
	pt3dadd(166.313, 254.398, 23.8554, 0.39656)
	pt3dadd(165.704, 254.139, 23.9518, 0.933312)
	pt3dadd(165.269, 253.811, 23.9153, 0.378836)
	pt3dadd(164.949, 253.688, 23.919, 0.463666)
	pt3dadd(164.285, 253.929, 23.9232, 0.802422)
	pt3dadd(163.886, 253.965, 23.9756, 0.734844)
	pt3dadd(162.31, 253.52, 24.0084, 0.814376)
	pt3dadd(161.977, 253.266, 23.8753, 1.01774)
	pt3dadd(161.269, 253.162, 23.8384, 0.844608)
	pt3dadd(160.67, 253.205, 23.5578, 0.707878)
	pt3dadd(159.984, 253.178, 23.4568, 0.824194)
	pt3dadd(159.284, 252.827, 23.3527, 0.684404)
	pt3dadd(158.971, 252.687, 23.1394, 0.660466)
	pt3dadd(158.544, 252.416, 23.2228, 0.42302)
	pt3dadd(158.291, 252.276, 23.2951, 0.47245)
	pt3dadd(158.02, 252.239, 23.2915, 0.312706)
	pt3dadd(157.774, 252.244, 23.2669, 0.486044)
	pt3dadd(157.476, 252.117, 23.2747, 0.925784)
	pt3dadd(156.707, 251.539, 23.3589, 1.20556)
	pt3dadd(155.881, 250.861, 23.4106, 0.84713)
	pt3dadd(151.26, 247.785, 22.8635, 0.342554)
	pt3dadd(151.002, 247.746, 22.9082, 0.489338)
	pt3dadd(150.577, 247.671, 23.007, 0.578584)
	pt3dadd(149.707, 247.325, 23.1925, 1.16393)
	pt3dadd(149.273, 247.232, 23.2886, 0.76763)
	pt3dadd(148.898, 246.979, 23.2404, 0.858484)
	pt3dadd(148.418, 247.047, 23.2496, 0.657688)
	pt3dadd(148.04, 247.091, 23.344, 0.534164)
	pt3dadd(147.709, 247.096, 23.3946, 0.52649)
	pt3dadd(146.826, 246.967, 23.101, 1.13952)
	pt3dadd(146.044, 247.138, 22.7977, 0.991024)
	pt3dadd(145.656, 247.361, 22.6342, 0.85539)
	pt3dadd(145.097, 247.242, 22.8103, 0.346046)
	pt3dadd(144.905, 247.186, 22.918, 0.266684)
	pt3dadd(142.9, 247.028, 22.4001, 0.66079)
	pt3dadd(142.537, 246.685, 22.66, 0.766704)
	pt3dadd(142.059, 246.598, 22.8269, 0.789572)
	pt3dadd(141.675, 246.6, 22.9884, 1.0676)
	pt3dadd(140.827, 246.317, 22.9676, 0.989316)
	pt3dadd(140.053, 246.2, 23.0714, 0.681016)
	pt3dadd(139.519, 246.069, 23.1121, 0.642218)
	pt3dadd(139.016, 245.941, 23.1293, 0.614428)
	pt3dadd(138.695, 245.903, 23.2686, 0.534362)
	pt3dadd(138.451, 245.862, 23.4544, 0.478558)
	pt3dadd(137.992, 245.91, 23.2397, 0.25186)
	pt3dadd(137.707, 245.963, 23.2023, 0.226474)
	pt3dadd(137.626, 245.852, 23.1943, 0.361578)
	pt3dadd(137.399, 245.826, 23.1917, 0.2341)
	pt3dadd(137.145, 245.824, 23.2074, 0.40631)
	pt3dadd(136.867, 245.923, 23.1368, 0.471396)
	pt3dadd(136.54, 246.121, 23.0468, 0.794934)
	pt3dadd(136.116, 246.115, 23.0617, 0.840272)
	pt3dadd(135.618, 246.293, 23.1573, 0.620834)
  }
}
proc shape3d_12() {
  dend[22] {	pt3dadd(135.224, 246.437, 23.2177, 0.72743)
	pt3dadd(134.322, 246.294, 22.9251, 0.455622)
	pt3dadd(134.063, 246.4, 22.7735, 0.453494)
	pt3dadd(131.135, 246.857, 22.1689, 0.834036)
	pt3dadd(130.843, 246.871, 21.7968, 0.404454)
	pt3dadd(129.011, 246.637, 21.699, 0.55574)
	pt3dadd(128.73, 246.797, 21.4829, 0.40238)
	pt3dadd(128.423, 246.949, 21.561, 0.419148)
	pt3dadd(128.197, 246.995, 21.5128, 0.341752)
	pt3dadd(127.976, 247.043, 21.5024, 0.320584)
	pt3dadd(127.692, 247.074, 21.5044, 0.44071)
	pt3dadd(127.504, 247.018, 21.4767, 0.363748)
	pt3dadd(127.313, 246.988, 21.532, 0.2)
	pt3dadd(127.068, 247.011, 21.5673, 0.2)
	pt3dadd(126.76, 247.118, 21.4582, 0.616262)
	pt3dadd(126.296, 247.142, 21.3723, 0.910454)
	pt3dadd(125.602, 247.193, 21.3875, 1.13724)
	pt3dadd(124.822, 247.267, 21.2412, 0.80934)
	pt3dadd(120.759, 247.038, 21.7947, 0.522046)
	pt3dadd(120.209, 246.87, 21.9832, 0.92506)
	pt3dadd(119.346, 246.646, 21.9853, 1.05927)
	pt3dadd(118.523, 246.646, 21.9364, 0.640852)
	pt3dadd(118.189, 246.613, 21.838, 0.471228)
	pt3dadd(117.954, 246.609, 21.7622, 0.2)
	pt3dadd(117.774, 246.708, 21.7342, 0.2)
	pt3dadd(117.481, 246.798, 21.7509, 0.207746)
	pt3dadd(117.325, 246.949, 21.736, 0.330174)
	pt3dadd(117.088, 247.113, 21.7469, 0.615864)
	pt3dadd(116.936, 247.403, 21.752, 0.55224)
	pt3dadd(116.665, 247.61, 21.7666, 0.466894)
	pt3dadd(116.221, 247.492, 21.5591, 0.321162)
	pt3dadd(115.927, 247.173, 21.608, 0.46196)
	pt3dadd(115.82, 246.925, 21.6485, 0.560344)
	pt3dadd(115.499, 246.761, 21.7115, 0.69089)
	pt3dadd(115.083, 246.747, 21.7838, 0.889494)
	pt3dadd(114.331, 246.701, 21.8537, 0.93634)
	pt3dadd(110.274, 245.914, 22.6155, 0.662598)
	pt3dadd(110.085, 245.718, 22.7902, 0.247802)
	pt3dadd(109.942, 245.581, 22.9366, 0.2)
	pt3dadd(109.703, 245.553, 23.0401, 0.2)
	pt3dadd(109.081, 245.309, 23.2917, 0.480178)
	pt3dadd(108.752, 245.177, 23.258, 0.74106)
	pt3dadd(108.045, 245.024, 23.2328, 1.27666)
	pt3dadd(107.138, 244.737, 23.194, 0.996416)
	pt3dadd(106.453, 244.352, 23.3906, 0.512372)
	pt3dadd(104.069, 243.109, 23.0337, 0.2)
	pt3dadd(103.862, 242.968, 23.087, 0.322314)
	pt3dadd(103.283, 242.686, 23.0466, 0.605736)
	pt3dadd(102.959, 242.414, 22.9852, 0.731142)
	pt3dadd(102.392, 242.064, 23.015, 0.83015)
	pt3dadd(102.022, 241.986, 23.211, 0.661532)
	pt3dadd(101.741, 241.941, 23.3421, 0.494906)
	pt3dadd(101.456, 241.899, 23.3292, 0.45786)
	pt3dadd(101.194, 241.808, 23.3385, 0.40562)
	pt3dadd(99.9857, 240.048, 22.9307, 0.40049)
	pt3dadd(99.6701, 239.608, 22.7983, 0.575806)
	pt3dadd(99.3946, 239.075, 22.6754, 1.15134)
	pt3dadd(98.8378, 238.359, 22.5281, 0.920606)
	pt3dadd(98.4033, 238.047, 22.4449, 0.519854)
	pt3dadd(96.173, 236.703, 22.4634, 0.489908)
	pt3dadd(95.4921, 236.179, 22.1873, 1.05086)
	pt3dadd(95.0396, 235.801, 22.2246, 0.845444)
	pt3dadd(93.7496, 234.189, 22.5899, 0.580454)
	pt3dadd(93.0175, 232.325, 23.2288, 0.949462)
	pt3dadd(91.5656, 229.744, 23.4551, 0.788142)
	pt3dadd(91.2491, 229.409, 23.2356, 1.02676)
	pt3dadd(90.741, 228.756, 22.9951, 0.72745)
	pt3dadd(90.3918, 228.504, 22.8952, 0.751094)
	pt3dadd(89.3807, 225.737, 22.1723, 0.461082)
	pt3dadd(89.229, 225.398, 22.2571, 0.541374)
	pt3dadd(88.9784, 224.986, 22.1928, 0.777194)
	pt3dadd(88.805, 224.555, 22.1547, 0.786758)
	pt3dadd(87.4634, 223.394, 22.1818, 0.2)
	pt3dadd(87.3566, 223.176, 22.3465, 0.334982)
	pt3dadd(87.2035, 222.98, 22.4415, 0.41896)
	pt3dadd(86.6863, 222.557, 22.3435, 0.462442)
	pt3dadd(86.2838, 222.358, 22.2739, 0.80832)
	pt3dadd(83.9983, 223.492, 21.8878, 0.50383)
	pt3dadd(83.8663, 223.615, 21.8778, 0.532074)
	pt3dadd(83.4466, 223.882, 21.8801, 0.636534)
	pt3dadd(82.7903, 223.697, 21.6114, 1.02089)
	pt3dadd(82.4276, 223.79, 20.9147, 0.815914)
  }
  dend_6[12] {pt3dclear()
	pt3dadd(82.4276, 223.79, 20.9147, 0.815914)
	pt3dadd(78.7511, 225.303, 20.5291, 0.6377)
  }
  dend[23] {pt3dclear()
	pt3dadd(240.033, 262.788, 32.9733, 1.19283)
	pt3dadd(240.392, 262.494, 32.2401, 0.605958)
	pt3dadd(240.527, 262.41, 31.8727, 0.526974)
	pt3dadd(240.686, 262.355, 31.3903, 0.556682)
	pt3dadd(240.714, 262.255, 30.9772, 0.595266)
	pt3dadd(240.677, 262.029, 30.474, 0.511764)
	pt3dadd(240.662, 261.892, 30.2502, 0.525798)
	pt3dadd(240.691, 261.707, 29.9519, 0.559356)
	pt3dadd(240.799, 261.484, 29.6701, 0.484364)
	pt3dadd(240.998, 261.343, 29.3675, 0.42586)
	pt3dadd(241.143, 261.183, 29.1311, 0.421268)
	pt3dadd(241.268, 260.89, 28.9487, 0.344928)
	pt3dadd(241.456, 260.632, 28.768, 0.529194)
	pt3dadd(241.611, 260.377, 28.5914, 0.72486)
	pt3dadd(242.129, 259.736, 28.1369, 0.517842)
	pt3dadd(242.422, 259.568, 27.8384, 0.69569)
	pt3dadd(242.59, 259.364, 27.5209, 0.787036)
	pt3dadd(242.785, 259.073, 26.9047, 0.76744)
	pt3dadd(243.091, 259.001, 26.6385, 0.746888)
	pt3dadd(243.476, 258.912, 26.3919, 1.11447)
	pt3dadd(243.623, 258.39, 25.8069, 1.09565)
	pt3dadd(243.931, 257.959, 25.3014, 0.51049)
	pt3dadd(244.202, 257.781, 25.1287, 0.467468)
	pt3dadd(244.536, 257.703, 24.9691, 0.56372)
	pt3dadd(244.811, 257.771, 24.7023, 0.798718)
	pt3dadd(245.225, 257.721, 24.3372, 0.64628)
	pt3dadd(245.472, 257.721, 24.101, 0.54367)
	pt3dadd(245.748, 257.685, 23.877, 0.567182)
	pt3dadd(246.01, 257.565, 23.6933, 0.727038)
	pt3dadd(246.192, 256.941, 23.2646, 0.396856)
	pt3dadd(246.501, 256.701, 23.0611, 0.498624)
	pt3dadd(246.907, 256.657, 22.8844, 0.43852)
	pt3dadd(247.15, 256.653, 22.7073, 0.530002)
	pt3dadd(247.446, 256.595, 22.4595, 0.894488)
	pt3dadd(247.804, 256.123, 21.887, 1.16316)
	pt3dadd(248.111, 255.613, 21.1425, 0.775648)
	pt3dadd(248.686, 255.417, 20.9788, 0.322222)
	pt3dadd(248.981, 255.361, 20.8544, 0.387146)
	pt3dadd(249.225, 255.268, 20.7076, 0.540172)
	pt3dadd(249.493, 255.172, 20.5954, 0.725148)
	pt3dadd(249.659, 254.985, 20.255, 0.690868)
	pt3dadd(249.691, 254.784, 19.9341, 0.507844)
	pt3dadd(249.775, 254.436, 19.7156, 0.51615)
	pt3dadd(249.908, 254.019, 19.5776, 0.35317)
	pt3dadd(250.225, 253.553, 19.6358, 0.829652)
	pt3dadd(250.813, 253.334, 19.4872, 1.22309)
	pt3dadd(251.59, 252.698, 18.8616, 1.14837)
	pt3dadd(252.253, 252.605, 18.21, 0.837776)
	pt3dadd(252.623, 252.219, 18.0109, 0.459756)
	pt3dadd(252.924, 251.999, 17.8275, 0.953782)
	pt3dadd(253.101, 251.669, 17.4757, 1.16554)
	pt3dadd(253.662, 251.266, 16.7294, 1.17491)
	pt3dadd(254.897, 250.595, 14.9838, 0.526142)
	pt3dadd(255.068, 250.327, 14.8904, 0.543108)
	pt3dadd(255.399, 249.921, 14.5012, 0.505814)
	pt3dadd(255.708, 249.933, 14.3781, 0.263062)
	pt3dadd(256.274, 250.002, 14.0524, 0.757524)
	pt3dadd(256.923, 249.792, 13.1533, 1.40693)
	pt3dadd(257.217, 249.758, 12.3355, 0.923774)
	pt3dadd(257.536, 249.795, 11.6629, 0.844346)
	pt3dadd(257.795, 249.989, 11.143, 0.897324)
	pt3dadd(258.095, 249.978, 10.3512, 1.06625)
	pt3dadd(258.697, 249.696, 9.8275, 1.19286)
	pt3dadd(259.193, 249.423, 9.6733, 0.786424)
	pt3dadd(259.557, 249.333, 9.49839, 0.570682)
	pt3dadd(259.868, 249.315, 9.29924, 0.339544)
	pt3dadd(260.125, 249.191, 9.065, 0.561736)
	pt3dadd(260.591, 249.132, 8.475, 1.00835)
	pt3dadd(261.555, 248.977, 7.60131, 1.3433)
	pt3dadd(261.893, 248.672, 6.95813, 0.919256)
	pt3dadd(262.11, 248.601, 6.62666, 0.726594)
	pt3dadd(262.349, 248.401, 6.27787, 0.534344)
	pt3dadd(262.69, 247.901, 5.82053, 0.747542)
  }
  dend_6[13] {pt3dclear()
	pt3dadd(262.69, 247.901, 5.82053, 0.747542)
	pt3dadd(262.517, 247.411, 5.11754, 1.71091)
  }
  dend[24] {pt3dclear()
	pt3dadd(240.249, 262.698, 33.4526, 1.41888)
	pt3dadd(239.536, 262.332, 33.3769, 0.685894)
	pt3dadd(239.066, 262.219, 33.124, 0.350962)
	pt3dadd(238.821, 262.193, 32.8564, 0.372864)
	pt3dadd(238.666, 262.099, 32.6162, 0.342768)
	pt3dadd(238.501, 261.833, 32.3775, 0.211978)
	pt3dadd(238.291, 261.591, 32.1804, 0.332666)
	pt3dadd(238.105, 261.467, 31.933, 0.451152)
	pt3dadd(237.944, 261.411, 31.7681, 0.496688)
	pt3dadd(237.71, 261.42, 31.6156, 0.52714)
	pt3dadd(237.465, 261.423, 31.455, 0.50826)
	pt3dadd(237.255, 261.455, 31.2823, 0.558726)
	pt3dadd(236.961, 261.485, 31.0756, 0.565186)
	pt3dadd(236.663, 261.448, 30.8986, 0.701264)
	pt3dadd(236.299, 260.969, 30.7223, 0.69589)
	pt3dadd(236.044, 260.72, 30.5571, 0.76157)
	pt3dadd(235.68, 260.531, 30.4363, 1.00023)
	pt3dadd(234.472, 260.355, 30.1901, 1.10825)
	pt3dadd(233.918, 259.972, 30.1169, 0.830056)
	pt3dadd(233.198, 259.676, 30.1252, 0.578382)
	pt3dadd(232.822, 259.514, 30.1728, 0.54364)
	pt3dadd(232.448, 259.448, 30.214, 0.693642)
	pt3dadd(232.073, 259.371, 30.3326, 0.713216)
	pt3dadd(231.707, 259.409, 30.4833, 0.872498)
	pt3dadd(231.251, 259.349, 30.6131, 0.929814)
	pt3dadd(230.395, 259.072, 30.7097, 0.879966)
	pt3dadd(229.992, 258.88, 30.7376, 0.810774)
	pt3dadd(229.413, 258.448, 30.4938, 0.492722)
	pt3dadd(229.14, 258.257, 30.3892, 0.530268)
	pt3dadd(228.854, 257.913, 30.3659, 0.395692)
	pt3dadd(228.58, 257.685, 30.3662, 0.37011)
	pt3dadd(228.357, 257.428, 30.3785, 0.388686)
	pt3dadd(228.055, 257.135, 30.3828, 0.391534)
	pt3dadd(227.687, 256.998, 30.471, 0.907082)
	pt3dadd(227.476, 256.531, 30.336, 0.662278)
	pt3dadd(227.199, 256.253, 30.2163, 0.826746)
	pt3dadd(226.977, 255.522, 29.8966, 0.802584)
	pt3dadd(226.717, 255.195, 29.6139, 0.943866)
	pt3dadd(226.455, 254.682, 29.4892, 0.758874)
  }
  dend_5[11] {pt3dclear()
	pt3dadd(226.455, 254.682, 29.4892, 0.758874)
	pt3dadd(225.581, 253.876, 28.9252, 1.22675)
  }
}
proc shape3d_13() {
  dend_5[11] {  }
  dend[25] {pt3dclear()
	pt3dadd(225.581, 253.876, 28.9252, 1.22675)
	pt3dadd(224.815, 253.946, 28.78, 0.621612)
	pt3dadd(224.114, 253.708, 28.5465, 0.241664)
	pt3dadd(223.974, 253.63, 28.5256, 0.299118)
	pt3dadd(223.761, 253.563, 28.5099, 0.309494)
	pt3dadd(223.534, 253.502, 28.4765, 0.40915)
	pt3dadd(223.256, 253.454, 28.4894, 0.426784)
	pt3dadd(222.973, 253.367, 28.521, 0.36086)
	pt3dadd(222.641, 253.204, 28.5862, 0.545144)
	pt3dadd(222.348, 252.955, 28.418, 0.66889)
	pt3dadd(222.016, 252.76, 28.2671, 0.740978)
	pt3dadd(221.677, 252.359, 28.2586, 0.617802)
	pt3dadd(221.393, 252.105, 28.2312, 0.426162)
	pt3dadd(221.002, 251.874, 28.2397, 0.551398)
	pt3dadd(220.693, 251.662, 28.0376, 0.662468)
	pt3dadd(220.355, 251.388, 27.9131, 0.766404)
	pt3dadd(219.909, 251.174, 28.033, 0.915004)
	pt3dadd(219.148, 250.698, 28.2164, 1.05833)
	pt3dadd(218.043, 250.404, 28.2041, 1.22779)
	pt3dadd(217.603, 249.811, 28.2027, 0.431162)
	pt3dadd(217.371, 249.583, 28.2632, 0.2)
	pt3dadd(217.181, 249.369, 28.254, 0.385174)
	pt3dadd(216.868, 249.28, 28.3014, 0.358578)
	pt3dadd(216.526, 249.127, 28.2383, 0.455802)
	pt3dadd(216.234, 248.992, 28.167, 0.56137)
	pt3dadd(215.888, 248.905, 28.2918, 0.591196)
	pt3dadd(215.59, 248.896, 28.5067, 1.27181)
	pt3dadd(215.151, 248.229, 28.4118, 0.411526)
	pt3dadd(214.958, 247.987, 28.447, 0.248632)
	pt3dadd(214.726, 247.753, 28.4269, 0.259664)
	pt3dadd(214.448, 247.561, 28.4824, 0.39665)
	pt3dadd(214.25, 247.346, 28.5546, 0.554858)
	pt3dadd(214.044, 247.053, 28.5491, 0.349724)
	pt3dadd(213.795, 246.741, 28.5574, 0.532122)
	pt3dadd(213.649, 246.421, 28.5379, 0.63448)
	pt3dadd(213.312, 246.067, 28.4683, 0.477466)
	pt3dadd(212.975, 245.873, 28.4541, 0.916386)
	pt3dadd(212.646, 245.218, 28.3667, 0.61723)
	pt3dadd(212.521, 244.914, 28.3809, 0.578974)
	pt3dadd(212.266, 244.46, 28.4279, 0.941366)
	pt3dadd(211.793, 243.851, 28.1895, 1.21644)
	pt3dadd(211.258, 243.107, 27.9604, 1.28197)
	pt3dadd(210.54, 242.239, 27.7392, 0.742136)
	pt3dadd(210.12, 241.909, 27.421, 0.536496)
	pt3dadd(209.835, 241.654, 27.2102, 0.606288)
	pt3dadd(209.632, 241.381, 27.039, 0.808048)
	pt3dadd(209.478, 241.069, 26.7519, 0.764528)
	pt3dadd(209.064, 240.71, 26.6261, 0.849572)
	pt3dadd(208.644, 240.512, 26.4367, 0.839298)
	pt3dadd(208.34, 239.991, 26.3872, 0.90842)
	pt3dadd(207.903, 239.613, 26.2762, 1.06273)
	pt3dadd(207.425, 239.304, 26.1807, 1.1486)
	pt3dadd(206.573, 239.21, 26.0024, 0.800734)
	pt3dadd(205.96, 239.029, 25.6795, 0.749446)
	pt3dadd(205.616, 238.924, 25.5136, 0.811504)
	pt3dadd(205.379, 238.629, 25.2831, 0.614104)
	pt3dadd(205.206, 238.263, 25.2245, 0.476796)
	pt3dadd(204.994, 237.746, 25.4357, 0.411876)
	pt3dadd(204.872, 237.439, 25.513, 0.395812)
	pt3dadd(204.752, 237.132, 25.5258, 0.758652)
	pt3dadd(204.421, 236.413, 25.3088, 0.84175)
	pt3dadd(204.201, 236.101, 25.0414, 0.91631)
	pt3dadd(204.032, 235.696, 24.5235, 0.622586)
	pt3dadd(203.715, 235.178, 24.5911, 0.2)
	pt3dadd(203.657, 234.989, 24.5981, 0.2)
	pt3dadd(203.622, 234.7, 24.5215, 0.265192)
	pt3dadd(203.478, 234.49, 24.4353, 0.529678)
	pt3dadd(203.383, 234.221, 24.332, 0.542276)
	pt3dadd(203.207, 233.972, 24.3143, 0.722886)
	pt3dadd(203.002, 233.478, 24.3226, 1.04769)
	pt3dadd(202.702, 232.76, 23.9272, 0.775694)
	pt3dadd(202.691, 232.373, 23.7624, 0.982004)
	pt3dadd(202.269, 232.062, 23.4588, 0.75635)
	pt3dadd(201.994, 231.705, 23.3026, 0.80485)
	pt3dadd(201.945, 231.26, 23.2409, 0.69798)
	pt3dadd(201.831, 230.684, 23.12, 0.723434)
	pt3dadd(201.589, 230.42, 23.2912, 0.47626)
	pt3dadd(200.166, 228.992, 23.3119, 0.680012)
	pt3dadd(200.031, 228.634, 23.3833, 0.284928)
	pt3dadd(199.94, 228.384, 23.4982, 0.242808)
	pt3dadd(199.788, 228.085, 23.5526, 0.419752)
	pt3dadd(199.432, 227.701, 23.4615, 0.84121)
	pt3dadd(199.349, 227.472, 23.2943, 0.563114)
	pt3dadd(198.845, 226.542, 22.7579, 1.36846)
	pt3dadd(197.862, 225.823, 22.4049, 1.47084)
	pt3dadd(197.445, 225.309, 22.3384, 0.932242)
	pt3dadd(197.217, 224.935, 22.2783, 0.777472)
	pt3dadd(196.939, 224.658, 22.2015, 0.56074)
	pt3dadd(196.791, 224.299, 22.1161, 0.269642)
	pt3dadd(196.781, 223.987, 22.1521, 0.450976)
	pt3dadd(196.673, 223.525, 22.1011, 0.545814)
	pt3dadd(196.441, 223.303, 22.0107, 0.54951)
	pt3dadd(196.17, 223.088, 21.8827, 0.671538)
	pt3dadd(195.969, 222.708, 21.8658, 0.823472)
	pt3dadd(195.805, 222.398, 21.7642, 0.468566)
	pt3dadd(195.779, 221.888, 21.7527, 0.704798)
	pt3dadd(195.377, 221.741, 21.7111, 0.526322)
	pt3dadd(195.051, 221.593, 21.7771, 0.627242)
	pt3dadd(194.759, 220.885, 21.3978, 0.898178)
	pt3dadd(194.098, 220.504, 21.3545, 0.981012)
	pt3dadd(193.753, 220.096, 21.2518, 0.623846)
	pt3dadd(193.444, 219.847, 21.1145, 0.688452)
	pt3dadd(192.622, 219.444, 20.9282, 1.29474)
	pt3dadd(191.974, 218.801, 20.806, 0.562202)
	pt3dadd(191.681, 218.624, 20.7792, 0.437158)
	pt3dadd(191.451, 218.404, 20.7383, 0.428722)
	pt3dadd(191.078, 218.269, 20.6313, 0.451466)
	pt3dadd(190.808, 218.295, 20.5694, 0.272652)
	pt3dadd(190.533, 218.323, 20.5445, 0.44736)
	pt3dadd(190.252, 218.294, 20.4573, 0.512412)
	pt3dadd(189.966, 218.246, 20.3708, 0.537722)
	pt3dadd(189.684, 218.129, 20.2623, 0.42463)
	pt3dadd(189.408, 218.055, 20.1927, 0.452398)
	pt3dadd(189.106, 218, 20.1593, 0.441288)
	pt3dadd(188.538, 217.822, 20.1425, 0.812872)
	pt3dadd(188.182, 217.67, 20.0937, 0.734688)
	pt3dadd(187.821, 217.614, 20.085, 0.692246)
	pt3dadd(187.469, 217.55, 19.9943, 0.628268)
	pt3dadd(187.114, 217.417, 19.7154, 0.764258)
	pt3dadd(185.931, 217.621, 20.4228, 0.341784)
	pt3dadd(185.696, 217.598, 20.0868, 0.34784)
	pt3dadd(185.418, 217.579, 19.9581, 0.42019)
	pt3dadd(185.133, 217.497, 19.8832, 0.478532)
	pt3dadd(184.874, 217.431, 19.8307, 0.32852)
	pt3dadd(184.576, 217.353, 19.8125, 0.29008)
	pt3dadd(184.318, 217.249, 19.7389, 0.41601)
	pt3dadd(184.046, 217.256, 19.6064, 0.550574)
	pt3dadd(183.637, 217.22, 19.3662, 0.65918)
	pt3dadd(183.08, 217.219, 18.8802, 0.76818)
	pt3dadd(182.653, 216.948, 18.8915, 0.470732)
	pt3dadd(182.278, 216.703, 18.8364, 0.713312)
	pt3dadd(181.448, 216.714, 18.8778, 0.941132)
	pt3dadd(180.63, 216.545, 18.762, 1.07202)
	pt3dadd(179.822, 216.446, 18.5871, 1.21609)
	pt3dadd(179.203, 216.925, 18.2009, 1.14826)
	pt3dadd(178.631, 217.067, 18.1367, 0.51764)
	pt3dadd(178.363, 217.136, 18.1665, 0.304994)
	pt3dadd(178.097, 217.167, 18.195, 0.302548)
	pt3dadd(177.608, 217.144, 18.0022, 0.679368)
	pt3dadd(177.304, 217.151, 17.8945, 0.500162)
	pt3dadd(176.714, 217.244, 17.648, 0.863098)
	pt3dadd(175.966, 217.446, 17.5803, 1.34757)
	pt3dadd(175.373, 217.51, 17.3138, 1.02412)
	pt3dadd(174.861, 217.638, 17.2891, 0.80819)
	pt3dadd(174.4, 217.629, 17.3541, 0.721512)
	pt3dadd(170.192, 217.228, 16.4456, 0.737384)
	pt3dadd(169.839, 217.198, 16.2903, 0.910208)
	pt3dadd(169.247, 216.871, 16.0413, 0.494146)
	pt3dadd(168.839, 216.644, 15.8953, 0.608986)
	pt3dadd(168.64, 216.401, 15.745, 0.9785)
	pt3dadd(168.021, 216.194, 15.5082, 1.18474)
	pt3dadd(167.364, 215.786, 15.0402, 0.70021)
	pt3dadd(166.832, 215.818, 14.7849, 0.2)
	pt3dadd(166.532, 215.82, 14.6929, 0.372344)
	pt3dadd(166.312, 215.829, 14.5184, 0.267002)
	pt3dadd(165.985, 215.685, 14.3876, 0.2)
	pt3dadd(165.687, 215.599, 14.3342, 0.2)
	pt3dadd(165.529, 215.392, 14.2586, 0.290466)
	pt3dadd(165.318, 215.17, 14.1287, 0.759228)
	pt3dadd(164.757, 215.149, 13.9447, 1.08032)
	pt3dadd(163.793, 215.115, 13.8365, 1.50164)
	pt3dadd(162.916, 215.216, 13.49, 0.682632)
	pt3dadd(162.603, 215.272, 13.3215, 0.57647)
	pt3dadd(162.128, 215.324, 13.1451, 0.663764)
	pt3dadd(161.789, 215.105, 13.0209, 0.2)
	pt3dadd(161.561, 214.995, 12.8826, 0.435412)
	pt3dadd(161.36, 214.914, 12.7184, 0.542908)
	pt3dadd(160.977, 214.932, 12.6328, 0.390936)
	pt3dadd(160.764, 214.946, 12.5772, 0.27034)
	pt3dadd(160.479, 214.871, 12.5144, 0.527766)
	pt3dadd(160.208, 214.868, 12.4103, 0.564782)
	pt3dadd(159.911, 214.723, 12.2808, 0.622436)
	pt3dadd(159.594, 214.637, 12.1699, 0.688326)
	pt3dadd(158.916, 214.373, 11.9158, 1.14611)
	pt3dadd(158.344, 214.298, 11.6102, 1.38707)
	pt3dadd(157.149, 213.726, 11.5531, 0.880152)
	pt3dadd(156.564, 213.199, 11.6586, 0.548436)
	pt3dadd(156.192, 213.007, 11.6953, 0.520794)
	pt3dadd(155.778, 212.986, 11.724, 0.458036)
	pt3dadd(155.386, 212.903, 11.7606, 0.238118)
	pt3dadd(155.087, 212.97, 11.8849, 0.206858)
	pt3dadd(154.905, 213.072, 12.049, 0.460784)
	pt3dadd(154.566, 212.997, 12.1732, 0.278828)
	pt3dadd(154.1, 213.058, 12.0223, 0.512068)
	pt3dadd(152.987, 212.219, 10.6299, 0.8999)
	pt3dadd(152.571, 212.088, 10.6957, 0.960098)
	pt3dadd(152.039, 211.942, 10.5072, 0.668918)
	pt3dadd(151.6, 211.68, 10.2546, 0.261018)
	pt3dadd(151.395, 211.577, 10.1249, 0.340622)
	pt3dadd(151.15, 211.501, 9.96385, 0.41909)
	pt3dadd(150.907, 211.399, 9.87005, 0.367248)
	pt3dadd(150.7, 211.317, 9.8107, 0.36382)
	pt3dadd(150.344, 211.127, 9.87251, 0.218808)
	pt3dadd(150.072, 211.007, 9.90556, 0.2)
	pt3dadd(149.898, 210.884, 9.90605, 0.251646)
	pt3dadd(149.547, 210.79, 9.88042, 0.480466)
	pt3dadd(149.307, 210.693, 9.85304, 0.631252)
	pt3dadd(148.901, 210.542, 9.69827, 0.515382)
	pt3dadd(148.634, 210.404, 9.60856, 0.272946)
	pt3dadd(148.309, 210.292, 9.50212, 0.568358)
  }
}
proc shape3d_14() {
  dend[25] {	pt3dadd(148.004, 210.145, 9.38721, 0.69032)
	pt3dadd(147.6, 210.021, 9.46311, 0.600342)
	pt3dadd(147.323, 209.977, 9.79267, 0.529384)
	pt3dadd(147.206, 209.905, 10.1258, 0.606088)
	pt3dadd(147.145, 209.829, 10.3986, 0.511438)
	pt3dadd(145.084, 208.591, 9.25792, 0.668754)
	pt3dadd(144.84, 208.561, 8.94357, 0.725362)
	pt3dadd(144.486, 208.454, 8.85207, 0.9252)
	pt3dadd(144.078, 208.312, 8.61948, 0.914402)
	pt3dadd(143.546, 208.599, 8.22118, 0.342898)
	pt3dadd(143.354, 208.914, 8.08852, 0.57518)
	pt3dadd(143.111, 209.053, 8.01609, 0.625458)
	pt3dadd(142.741, 209.196, 7.79877, 0.806888)
	pt3dadd(142.325, 209.068, 7.63646, 1.28801)
	pt3dadd(141.505, 209.537, 7.32377, 0.41279)
	pt3dadd(138.258, 210.291, 6.75876, 1.17854)
	pt3dadd(137.393, 210.096, 6.7694, 0.401962)
	pt3dadd(137.001, 210.082, 6.77807, 0.534718)
	pt3dadd(136.819, 210.056, 6.7726, 0.496786)
	pt3dadd(135.914, 210.28, 7.41656, 0.460608)
	pt3dadd(135.67, 210.218, 7.04737, 0.708716)
	pt3dadd(134.953, 210.387, 6.82918, 1.39886)
	pt3dadd(133.906, 210.302, 6.95372, 0.801986)
	pt3dadd(133.516, 210.291, 6.94453, 0.579098)
	pt3dadd(133.146, 210.399, 6.99692, 0.523592)
	pt3dadd(132.874, 210.625, 7.0812, 0.602124)
	pt3dadd(132.469, 210.762, 6.95982, 0.2)
	pt3dadd(132.241, 210.841, 6.89938, 0.2)
	pt3dadd(132.083, 210.881, 6.88855, 0.2)
	pt3dadd(131.835, 211.004, 6.85605, 0.253698)
	pt3dadd(131.654, 211.126, 6.80459, 0.236994)
	pt3dadd(131.15, 211.473, 6.7941, 0.46698)
	pt3dadd(130.763, 211.522, 6.82129, 0.498298)
	pt3dadd(130.513, 211.729, 6.72526, 0.2)
	pt3dadd(130.303, 211.911, 6.64131, 0.2)
	pt3dadd(130.088, 212.094, 6.57696, 0.251778)
	pt3dadd(129.774, 212.463, 6.34593, 1.01396)
	pt3dadd(129.321, 212.775, 5.93243, 1.0071)
  }
  dend_6[14] {pt3dclear()
	pt3dadd(129.321, 212.775, 5.93243, 1.0071)
	pt3dadd(128.983, 213.501, 5.61399, 1.2595)
  }
  dend[26] {pt3dclear()
	pt3dadd(225.581, 253.876, 28.9252, 1.22675)
	pt3dadd(225.259, 252.963, 29.1265, 0.717078)
	pt3dadd(224.937, 252.338, 29.3162, 0.46652)
	pt3dadd(224.847, 252.026, 29.4287, 0.44256)
	pt3dadd(224.89, 251.724, 29.4783, 0.777204)
	pt3dadd(224.712, 251.336, 29.2897, 0.576582)
	pt3dadd(224.503, 251.077, 29.1109, 0.712694)
	pt3dadd(224.274, 250.859, 28.9125, 0.85515)
	pt3dadd(223.571, 250.263, 29.1173, 0.552816)
	pt3dadd(223.3, 250.017, 29.1817, 0.576208)
	pt3dadd(222.998, 249.766, 28.9626, 0.526942)
	pt3dadd(222.655, 249.381, 29.1058, 0.276756)
	pt3dadd(222.44, 249.143, 29.2499, 0.333692)
	pt3dadd(222.281, 248.883, 29.3269, 0.348156)
	pt3dadd(222.152, 248.536, 29.3371, 0.38426)
	pt3dadd(221.899, 248.259, 29.2676, 0.65257)
	pt3dadd(221.606, 247.974, 29.137, 0.810874)
	pt3dadd(221.537, 247.536, 29.1534, 1.05161)
	pt3dadd(220.998, 246.852, 28.9682, 1.20413)
	pt3dadd(220.982, 246.198, 29.0005, 0.69107)
	pt3dadd(220.994, 245.844, 28.987, 0.524784)
	pt3dadd(221.003, 245.452, 29.0201, 0.426532)
	pt3dadd(220.993, 245.086, 28.9815, 0.272702)
	pt3dadd(220.973, 244.774, 28.9378, 0.384704)
	pt3dadd(220.877, 244.452, 29.0308, 0.497822)
	pt3dadd(220.706, 244.206, 29.0656, 0.450964)
	pt3dadd(220.613, 243.969, 29.0406, 0.31669)
	pt3dadd(220.482, 243.639, 29.1045, 0.391638)
	pt3dadd(220.385, 243.381, 29.1453, 0.4631)
	pt3dadd(220.209, 242.97, 29.0586, 0.333552)
	pt3dadd(220.064, 242.685, 28.999, 0.407126)
	pt3dadd(219.942, 242.323, 28.9919, 0.529768)
	pt3dadd(219.882, 241.935, 28.9739, 0.638788)
	pt3dadd(219.67, 241.503, 28.9652, 1.04002)
	pt3dadd(219.652, 240.551, 28.857, 1.34707)
	pt3dadd(219.684, 239.837, 28.9504, 0.891114)
	pt3dadd(219.578, 239.347, 28.8369, 0.848058)
	pt3dadd(219.482, 238.577, 28.7504, 0.87442)
	pt3dadd(219.397, 238.097, 28.7853, 0.952482)
	pt3dadd(218.678, 237.091, 29.0198, 0.774984)
	pt3dadd(218.519, 236.611, 29.011, 0.608506)
	pt3dadd(218.315, 236.331, 28.924, 0.499044)
	pt3dadd(218.191, 235.965, 29.0565, 0.212594)
	pt3dadd(218.092, 235.707, 29.0859, 0.30125)
	pt3dadd(217.966, 235.468, 29.0439, 0.357114)
	pt3dadd(217.877, 235.21, 29.0348, 0.395206)
	pt3dadd(217.777, 234.927, 29.052, 0.34637)
	pt3dadd(217.593, 234.55, 29.0005, 0.677872)
	pt3dadd(217.518, 234.072, 28.9333, 0.805216)
	pt3dadd(217.25, 233.656, 28.8342, 1.12307)
	pt3dadd(217.041, 232.592, 28.9469, 1.08324)
	pt3dadd(216.661, 232.189, 29.0701, 0.91042)
	pt3dadd(216.316, 231.51, 29.2002, 0.718174)
	pt3dadd(216.05, 231.152, 29.1699, 0.413812)
	pt3dadd(215.896, 230.862, 29.2183, 0.608068)
	pt3dadd(215.651, 230.47, 29.1271, 0.445662)
	pt3dadd(215.585, 230.183, 29.1176, 0.323672)
	pt3dadd(215.532, 229.908, 29.0347, 0.464132)
	pt3dadd(215.59, 229.471, 28.9201, 0.627594)
	pt3dadd(215.454, 229.102, 29.241, 0.304926)
	pt3dadd(215.407, 228.742, 29.4212, 0.528086)
	pt3dadd(215.336, 228.407, 29.5416, 0.88742)
	pt3dadd(215.176, 227.695, 29.5973, 1.32663)
	pt3dadd(214.918, 226.675, 29.7783, 0.636274)
	pt3dadd(214.668, 226.374, 29.8405, 0.399962)
	pt3dadd(214.549, 226.04, 29.8717, 0.2)
	pt3dadd(214.415, 225.814, 29.8991, 0.322434)
	pt3dadd(214.281, 225.614, 29.8914, 0.290042)
	pt3dadd(214.179, 225.349, 29.9018, 0.280776)
	pt3dadd(214.186, 225.097, 29.966, 0.212766)
	pt3dadd(214.23, 224.919, 30.1059, 0.33997)
	pt3dadd(214.303, 224.694, 30.1771, 0.677276)
	pt3dadd(213.948, 224.052, 30.0962, 0.713726)
	pt3dadd(213.782, 223.707, 30.2332, 0.845074)
	pt3dadd(213.193, 222.733, 30.3168, 0.955774)
	pt3dadd(212.857, 221.907, 30.5004, 1.08625)
	pt3dadd(212.474, 220.988, 30.5184, 1.38602)
	pt3dadd(212.301, 219.979, 30.7013, 0.61903)
	pt3dadd(212.202, 219.606, 30.6149, 0.728912)
	pt3dadd(211.965, 219.172, 30.6271, 0.766566)
	pt3dadd(211.701, 218.599, 30.4943, 0.64508)
	pt3dadd(211.737, 218.186, 30.4107, 1.16896)
	pt3dadd(211.192, 217.578, 30.3247, 1.3072)
	pt3dadd(210.922, 216.765, 30.0304, 1.35429)
	pt3dadd(210.494, 215.685, 29.8153, 0.715504)
	pt3dadd(210.303, 215.26, 29.6845, 0.825456)
	pt3dadd(210.119, 214.788, 29.5554, 0.617018)
	pt3dadd(209.924, 214.423, 29.5058, 0.66392)
	pt3dadd(209.767, 214.088, 29.4394, 0.834348)
	pt3dadd(209.158, 213.623, 29.3558, 0.487588)
	pt3dadd(208.863, 213.31, 29.3126, 0.590278)
	pt3dadd(208.278, 212.943, 29.6718, 0.71349)
	pt3dadd(208.258, 212.496, 29.6443, 0.632922)
	pt3dadd(208.103, 212.103, 29.6829, 0.737472)
	pt3dadd(207.86, 211.506, 29.841, 0.68065)
	pt3dadd(207.82, 211.154, 29.9393, 0.757554)
	pt3dadd(207.645, 210.683, 29.9378, 1.02385)
	pt3dadd(207.212, 210.3, 30.5462, 1.05366)
	pt3dadd(204.769, 207.24, 30.3099, 1.06589)
	pt3dadd(204.304, 206.421, 30.1882, 0.55803)
	pt3dadd(204.319, 206.073, 30.1247, 0.58648)
	pt3dadd(204.357, 205.684, 29.9989, 0.495858)
	pt3dadd(204.393, 205.373, 29.7948, 0.612658)
	pt3dadd(204.599, 204.942, 30.0794, 0.75589)
	pt3dadd(202.895, 202.393, 29.5924, 0.490224)
	pt3dadd(202.727, 202.142, 29.7521, 0.487552)
	pt3dadd(202.524, 201.811, 29.8162, 0.431034)
	pt3dadd(202.387, 201.59, 30.0027, 0.46474)
	pt3dadd(202.181, 201.316, 30.306, 0.256364)
	pt3dadd(202.081, 201.065, 30.3366, 0.2)
	pt3dadd(201.951, 200.938, 30.2732, 0.2)
	pt3dadd(201.769, 200.63, 30.5879, 0.28365)
	pt3dadd(201.789, 200.396, 30.6718, 0.2)
	pt3dadd(201.731, 200.117, 30.6725, 0.37467)
	pt3dadd(201.511, 199.406, 30.3607, 0.977298)
	pt3dadd(201.117, 198.84, 30.5681, 0.746166)
	pt3dadd(200.587, 198.401, 30.8548, 1.25948)
	pt3dadd(200.188, 197.548, 30.8108, 1.12842)
	pt3dadd(199.617, 196.9, 30.8397, 0.749396)
	pt3dadd(199.393, 196.531, 30.8673, 0.570994)
	pt3dadd(199.143, 196.3, 30.8489, 0.6253)
	pt3dadd(199.012, 195.873, 30.8205, 0.412252)
	pt3dadd(198.847, 195.612, 30.9226, 0.436714)
	pt3dadd(198.698, 195.398, 31.1563, 0.2)
	pt3dadd(198.457, 195.206, 31.3947, 0.2)
	pt3dadd(198.184, 194.951, 31.5017, 0.461656)
	pt3dadd(198.088, 194.611, 31.4179, 0.437018)
	pt3dadd(197.963, 194.292, 31.4821, 0.621704)
	pt3dadd(197.589, 193.654, 31.3885, 0.818342)
	pt3dadd(197.154, 193.203, 31.5626, 1.0272)
	pt3dadd(196.73, 192.456, 31.804, 0.68087)
	pt3dadd(196.611, 192.094, 31.7951, 0.597312)
	pt3dadd(196.552, 191.686, 31.7311, 0.473852)
	pt3dadd(196.642, 191.34, 31.6508, 0.758146)
	pt3dadd(196.374, 190.857, 31.9011, 0.386312)
	pt3dadd(196.247, 190.607, 31.9918, 0.2)
	pt3dadd(196.205, 190.289, 31.9849, 0.2)
	pt3dadd(196.086, 189.825, 32.289, 0.507558)
	pt3dadd(196.055, 189.555, 32.1266, 0.426796)
	pt3dadd(196.062, 189.266, 32.163, 0.275966)
	pt3dadd(196.009, 189.037, 32.2364, 0.21601)
	pt3dadd(195.998, 188.867, 32.2506, 0.282302)
	pt3dadd(195.98, 188.685, 32.3073, 0.256398)
	pt3dadd(195.997, 188.515, 32.2226, 0.267508)
	pt3dadd(195.967, 188.323, 32.2336, 0.364008)
	pt3dadd(196.031, 187.792, 32.4319, 0.5242)
	pt3dadd(195.964, 187.463, 32.3236, 0.48643)
	pt3dadd(195.833, 186.999, 32.2268, 0.446534)
	pt3dadd(195.812, 186.788, 32.2948, 0.28572)
	pt3dadd(195.552, 185.962, 32.2602, 0.474988)
	pt3dadd(195.297, 185.616, 32.4699, 0.57635)
	pt3dadd(194.749, 185.117, 32.607, 0.977166)
	pt3dadd(194.281, 184.955, 32.6378, 0.996436)
	pt3dadd(193.815, 184.656, 32.8284, 1.28913)
	pt3dadd(193.303, 184.041, 33.0358, 0.90785)
	pt3dadd(193.04, 183.798, 33.3486, 0.679244)
	pt3dadd(192.856, 183.464, 33.3116, 0.469232)
	pt3dadd(192.796, 183.183, 33.1759, 0.2)
	pt3dadd(192.559, 182.968, 33.1428, 0.32248)
	pt3dadd(192.219, 182.382, 33.435, 0.53501)
  }
}
proc shape3d_15() {
  dend[26] {	pt3dadd(192.144, 182.241, 33.4, 0.2)
	pt3dadd(191.055, 179.812, 34.5557, 0.472188)
	pt3dadd(191.011, 179.52, 34.7479, 0.424704)
	pt3dadd(190.811, 177.711, 35.0021, 0.646058)
	pt3dadd(190.449, 177.449, 34.9692, 0.428626)
	pt3dadd(190.265, 177.133, 34.9511, 0.538478)
	pt3dadd(190.084, 176.844, 34.9276, 0.597122)
	pt3dadd(189.886, 176.572, 34.9199, 0.844304)
	pt3dadd(189.288, 176.054, 34.9695, 1.02657)
	pt3dadd(188.8, 175.634, 34.918, 0.870306)
	pt3dadd(188.529, 175.263, 34.9508, 0.616192)
	pt3dadd(187.982, 173.594, 34.9049, 0.415084)
	pt3dadd(187.835, 173.325, 34.9305, 0.469064)
	pt3dadd(187.726, 172.903, 35.082, 0.467834)
	pt3dadd(187.61, 172.569, 34.9027, 0.378966)
	pt3dadd(187.107, 172.061, 34.8703, 0.714824)
	pt3dadd(187.16, 171.833, 35.0837, 0.461266)
	pt3dadd(187.029, 171.607, 35.2811, 0.2)
	pt3dadd(186.932, 171.415, 35.3874, 0.2)
	pt3dadd(186.494, 170.825, 35.3531, 0.732962)
	pt3dadd(186.176, 170.473, 35.7556, 0.870648)
	pt3dadd(185.798, 169.727, 36.0135, 0.95426)
	pt3dadd(185.542, 169.398, 36.0875, 0.557608)
	pt3dadd(185.287, 168.951, 36.1796, 0.885774)
	pt3dadd(185.129, 168.297, 36.4678, 0.992522)
	pt3dadd(180.481, 161.82, 37.3948, 0.646642)
	pt3dadd(180.252, 161.428, 37.5326, 0.74424)
	pt3dadd(179.994, 161.147, 37.9055, 0.903642)
	pt3dadd(179.624, 160.928, 38.167, 0.619882)
	pt3dadd(173.705, 153.126, 40.4006, 0.71309)
	pt3dadd(173.538, 152.624, 40.878, 1.04082)
	pt3dadd(173.069, 151.896, 40.8441, 1.10771)
	pt3dadd(172.933, 151.487, 40.7979, 0.671042)
	pt3dadd(172.684, 151.12, 40.4569, 0.541766)
	pt3dadd(171.178, 147.892, 40.197, 0.59698)
	pt3dadd(171.15, 147.563, 40.2111, 0.735748)
	pt3dadd(170.816, 146.915, 40.241, 0.764114)
	pt3dadd(169.603, 144.316, 39.8102, 0.680256)
	pt3dadd(169.386, 143.413, 39.4416, 0.2)
	pt3dadd(169.301, 143.034, 39.273, 0.411032)
	pt3dadd(169.165, 142.743, 39.2365, 0.36744)
	pt3dadd(169.057, 142.47, 39.2538, 0.374884)
	pt3dadd(168.872, 142.157, 39.3045, 0.367396)
	pt3dadd(168.775, 141.904, 39.2014, 0.238132)
	pt3dadd(168.748, 141.171, 39.0592, 1.0031)
	pt3dadd(168.822, 140.782, 38.9251, 0.743618)
	pt3dadd(168.796, 140.369, 38.8015, 0.685902)
	pt3dadd(167.555, 137.881, 39.065, 1.0784)
	pt3dadd(167.147, 137.275, 38.7615, 1.06738)
	pt3dadd(167.15, 136.565, 38.8689, 0.481622)
	pt3dadd(167.09, 136.22, 38.8549, 0.389756)
	pt3dadd(165.802, 132.238, 38.045, 0.858452)
	pt3dadd(166.02, 130.59, 37.6025, 0.567904)
	pt3dadd(166.61, 130.409, 37.6055, 0.2)
	pt3dadd(166.878, 130.403, 37.5315, 0.279986)
  }
  dend_6[15] {pt3dclear()
	pt3dadd(166.878, 130.403, 37.5315, 0.279986)
	pt3dadd(167.363, 130.199, 37.4991, 0.560088)
  }
  dend[27] {pt3dclear()
	pt3dadd(265.716, 272.471, 44.8254, 0.89232)
	pt3dadd(257.579, 277.22, 47.1094, 0.89232)
	pt3dadd(256.295, 277.097, 47.831, 1.33779)
	pt3dadd(255.379, 277.165, 48.3331, 1.07727)
	pt3dadd(254.689, 276.97, 48.7524, 1.14085)
	pt3dadd(253.941, 276.901, 49.1571, 1.05218)
	pt3dadd(253.181, 276.742, 49.56, 1.24453)
	pt3dadd(252.245, 276.874, 49.8507, 1.42629)
	pt3dadd(251.297, 277.043, 49.9996, 1.34941)
	pt3dadd(250.281, 276.99, 50.0469, 1.10025)
	pt3dadd(249.283, 276.887, 50.1444, 1.19585)
	pt3dadd(248.238, 276.855, 50.2184, 1.11267)
	pt3dadd(247.283, 276.924, 50.1827, 0.90801)
	pt3dadd(246.455, 276.919, 50.0755, 0.959098)
	pt3dadd(245.656, 277.116, 50.0188, 1.01794)
	pt3dadd(244.794, 277.317, 50.0568, 1.27832)
	pt3dadd(243.807, 277.427, 50.1679, 1.14438)
	pt3dadd(242.884, 277.404, 50.2249, 1.14178)
	pt3dadd(242.074, 277.488, 50.259, 1.06101)
	pt3dadd(241.336, 277.601, 50.2804, 0.920782)
	pt3dadd(240.649, 277.807, 50.2773, 0.830368)
	pt3dadd(239.975, 277.939, 50.2593, 0.851338)
	pt3dadd(239.224, 278.061, 50.2651, 0.842974)
	pt3dadd(238.384, 278.132, 50.3174, 1.02771)
	pt3dadd(237.62, 278.439, 50.3515, 1.23226)
	pt3dadd(236.767, 278.668, 50.3792, 1.51776)
	pt3dadd(235.704, 279.135, 50.4954, 1.52923)
	pt3dadd(234.764, 279.346, 50.6609, 1.47696)
	pt3dadd(233.897, 279.573, 50.7959, 1.04251)
	pt3dadd(233.103, 279.808, 50.922, 1.17525)
	pt3dadd(232.28, 279.954, 51.1467, 1.33984)
	pt3dadd(231.451, 280.222, 51.4275, 1.67697)
  }
  dend_5[12] {pt3dclear()
	pt3dadd(231.451, 280.222, 51.4275, 1.67697)
	pt3dadd(230.639, 280.299, 51.7311, 1.36673)
  }
  dend[28] {pt3dclear()
	pt3dadd(230.639, 280.299, 51.7311, 1.36673)
	pt3dadd(230.425, 280.419, 52.4032, 0.860004)
	pt3dadd(230.066, 280.533, 53.0774, 0.5619)
	pt3dadd(229.922, 280.63, 53.4191, 0.69745)
	pt3dadd(229.808, 280.67, 53.7644, 0.85265)
	pt3dadd(229.63, 280.669, 54.3619, 0.717272)
	pt3dadd(229.258, 280.786, 54.9324, 0.425928)
	pt3dadd(229.154, 280.888, 55.1811, 0.514186)
	pt3dadd(229.093, 280.957, 55.6216, 0.617824)
	pt3dadd(229.034, 281.033, 56.0835, 0.675584)
	pt3dadd(228.893, 281.12, 56.6686, 0.878884)
	pt3dadd(228.873, 281.132, 57.3357, 1.00513)
	pt3dadd(229.014, 281.078, 58.0026, 1.07978)
	pt3dadd(229.434, 280.819, 58.7002, 0.842706)
	pt3dadd(229.789, 280.697, 59.3319, 0.99323)
	pt3dadd(229.895, 281.09, 59.7828, 0.578654)
	pt3dadd(230.116, 281.412, 60.0538, 0.254574)
	pt3dadd(230.216, 281.531, 60.3221, 0.44726)
	pt3dadd(230.223, 281.648, 60.577, 0.594068)
	pt3dadd(230.254, 281.725, 60.883, 0.652306)
	pt3dadd(230.298, 281.629, 61.5266, 0.68247)
	pt3dadd(230.331, 281.529, 61.895, 0.873944)
	pt3dadd(230.394, 282.086, 62.3214, 0.925772)
	pt3dadd(230.615, 282.086, 62.8038, 1.16044)
  }
  dend[29] {pt3dclear()
	pt3dadd(230.615, 282.086, 62.8038, 1.16044)
	pt3dadd(231.309, 281.091, 63.6225, 0.6257)
	pt3dadd(231.658, 280.998, 63.8243, 0.277904)
	pt3dadd(231.916, 280.934, 63.9502, 0.2)
	pt3dadd(232.11, 280.774, 64.0792, 0.58958)
	pt3dadd(232.224, 280.553, 64.2924, 0.66355)
	pt3dadd(232.451, 280.41, 64.5309, 0.526284)
	pt3dadd(232.662, 280.225, 64.7858, 0.343452)
	pt3dadd(232.848, 280.054, 65.0556, 0.360362)
	pt3dadd(233.003, 279.98, 65.308, 0.675954)
	pt3dadd(233.374, 279.831, 65.9498, 0.827894)
	pt3dadd(233.94, 279.635, 66.5033, 0.669106)
	pt3dadd(234.24, 279.686, 66.6573, 0.478134)
	pt3dadd(234.491, 279.679, 66.8118, 0.515184)
	pt3dadd(234.719, 279.674, 67.1094, 0.509522)
	pt3dadd(234.866, 279.609, 67.3486, 0.44978)
	pt3dadd(235.097, 279.576, 67.5707, 0.32397)
	pt3dadd(235.347, 279.479, 67.8113, 0.537294)
	pt3dadd(235.612, 279.36, 68.0588, 0.847914)
	pt3dadd(235.987, 279.299, 68.5725, 1.20942)
	pt3dadd(236.312, 278.906, 69.0601, 1.27627)
	pt3dadd(236.748, 278.69, 69.8105, 0.755944)
	pt3dadd(237.077, 278.87, 70.3584, 0.567072)
	pt3dadd(237.243, 278.906, 70.5903, 0.458512)
	pt3dadd(237.391, 278.821, 70.8597, 0.519282)
	pt3dadd(237.572, 278.504, 70.9972, 0.2)
	pt3dadd(237.729, 278.239, 71.1541, 0.35975)
	pt3dadd(238.049, 278.109, 71.366, 0.615604)
	pt3dadd(238.286, 278.342, 71.7581, 0.70117)
	pt3dadd(238.467, 278.433, 72.3215, 0.856182)
	pt3dadd(238.717, 278.464, 72.8828, 0.666148)
	pt3dadd(238.966, 278.212, 73.4527, 0.407384)
	pt3dadd(239.053, 278, 73.7417, 0.2)
	pt3dadd(239.207, 277.878, 74.0164, 0.55262)
	pt3dadd(239.328, 277.781, 74.2854, 0.871446)
	pt3dadd(239.24, 277.472, 74.8988, 0.876208)
	pt3dadd(239.191, 276.908, 75.476, 0.89567)
	pt3dadd(239.442, 276.568, 76.3085, 0.59236)
	pt3dadd(239.417, 276.427, 76.7836, 0.418526)
	pt3dadd(239.362, 276.406, 76.9918, 0.396526)
	pt3dadd(239.343, 276.304, 77.217, 0.48836)
	pt3dadd(239.226, 276.161, 77.7247, 0.54295)
	pt3dadd(239.135, 276.052, 77.9735, 0.563614)
	pt3dadd(239.191, 275.948, 78.2498, 0.826034)
	pt3dadd(239.124, 275.662, 78.566, 0.582504)
	pt3dadd(238.909, 275.515, 78.9465, 0.537604)
	pt3dadd(238.798, 275.613, 79.4395, 1.16995)
	pt3dadd(238.6, 275.731, 80.4112, 0.976152)
	pt3dadd(237.663, 275.268, 81.3962, 0.408744)
	pt3dadd(237.689, 275.112, 82.0367, 0.895956)
	pt3dadd(237.333, 274.508, 83.179, 1.25326)
	pt3dadd(237.014, 274.36, 84.1504, 1.0839)
	pt3dadd(236.917, 274.311, 84.7491, 0.736234)
	pt3dadd(236.994, 274.3, 85.1667, 0.599488)
	pt3dadd(237.018, 274.195, 85.513, 0.396314)
	pt3dadd(236.937, 274.118, 85.7427, 0.212778)
	pt3dadd(236.843, 273.96, 85.9684, 0.226514)
	pt3dadd(236.796, 273.848, 86.3544, 0.47671)
	pt3dadd(236.842, 273.8, 86.9734, 0.535226)
	pt3dadd(236.904, 273.617, 87.6757, 0.84465)
	pt3dadd(237.106, 273.296, 88.1656, 1.14026)
	pt3dadd(236.699, 272.82, 88.8054, 0.982148)
	pt3dadd(236.779, 272.611, 89.0838, 0.714356)
	pt3dadd(236.917, 272.4, 89.3159, 0.562942)
	pt3dadd(237.001, 272.098, 89.8771, 0.544858)
	pt3dadd(237.084, 271.933, 90.1734, 0.553818)
	pt3dadd(237.165, 271.809, 90.4408, 0.448114)
	pt3dadd(237.268, 271.595, 90.6775, 0.261068)
	pt3dadd(237.453, 271.385, 90.8798, 0.381926)
	pt3dadd(237.544, 271.262, 91.0966, 0.476856)
	pt3dadd(237.813, 271.095, 91.464, 0.4953)
	pt3dadd(238.093, 271.018, 91.8331, 0.388352)
	pt3dadd(238.374, 270.539, 92.5675, 0.889406)
	pt3dadd(238.125, 270.183, 92.855, 0.7191)
	pt3dadd(238.014, 269.817, 93.1994, 0.745652)
	pt3dadd(238.99, 269.553, 93.5301, 0.8846)
	pt3dadd(239.388, 268.969, 93.659, 0.734756)
  }
  dend_6[16] {pt3dclear()
	pt3dadd(239.388, 268.969, 93.659, 0.734756)
	pt3dadd(239.423, 268.633, 93.7508, 0.757216)
  }
  dend[30] {pt3dclear()
	pt3dadd(230.615, 282.086, 62.8038, 1.16044)
	pt3dadd(231.055, 283.018, 63.2466, 0.612454)
	pt3dadd(231.218, 283.199, 63.4692, 0.749594)
	pt3dadd(231.047, 283.768, 63.7659, 0.266004)
	pt3dadd(231.035, 284.072, 63.7947, 0.2)
	pt3dadd(231.037, 284.351, 63.8067, 0.2)
  }
}
proc shape3d_16() {
  dend[30] {	pt3dadd(231.099, 284.689, 63.9104, 0.413384)
	pt3dadd(231.072, 284.885, 64.2084, 0.579324)
	pt3dadd(230.993, 285.144, 64.7592, 0.931432)
	pt3dadd(230.738, 285.733, 65.2001, 0.828052)
	pt3dadd(230.818, 285.893, 65.6233, 0.610018)
	pt3dadd(230.532, 286.9, 66.045, 0.379752)
	pt3dadd(230.492, 287.017, 66.2747, 0.48674)
	pt3dadd(230.596, 287.445, 66.8034, 0.988212)
	pt3dadd(230.782, 287.52, 67.2229, 0.854074)
	pt3dadd(230.852, 287.744, 67.4681, 0.50346)
	pt3dadd(230.784, 287.994, 67.6572, 0.202958)
	pt3dadd(230.755, 288.145, 67.9321, 0.490024)
	pt3dadd(230.792, 288.184, 68.4029, 0.567564)
  }
  dend_6[17] {pt3dclear()
	pt3dadd(230.792, 288.184, 68.4029, 0.567564)
	pt3dadd(230.818, 288.038, 68.6551, 0.467562)
  }
  dend[31] {pt3dclear()
	pt3dadd(230.639, 280.299, 51.7311, 1.36673)
	pt3dadd(229.962, 280.52, 51.5493, 0.988328)
	pt3dadd(229.215, 280.783, 51.4707, 0.703548)
	pt3dadd(228.554, 280.948, 51.5502, 0.557798)
	pt3dadd(228.207, 281.122, 51.5395, 0.596294)
	pt3dadd(227.825, 281.24, 51.5233, 0.724242)
	pt3dadd(227.125, 281.327, 51.5203, 0.6118)
	pt3dadd(226.787, 281.34, 51.544, 0.51178)
	pt3dadd(226.38, 281.382, 51.5593, 0.634186)
	pt3dadd(226.033, 281.451, 51.545, 0.69107)
	pt3dadd(225.589, 281.477, 51.5482, 0.878274)
	pt3dadd(225.154, 281.454, 51.4641, 1.14659)
	pt3dadd(224.285, 281.627, 51.3878, 1.07107)
	pt3dadd(223.369, 281.803, 51.4832, 1.18716)
  }
  dend_5[13] {pt3dclear()
	pt3dadd(223.369, 281.803, 51.4832, 1.18716)
	pt3dadd(222.025, 282.209, 51.4912, 1.68531)
  }
  dend[32] {pt3dclear()
	pt3dadd(222.025, 282.209, 51.4912, 1.68531)
	pt3dadd(221.721, 283.558, 51.4982, 0.314564)
	pt3dadd(221.586, 283.774, 51.4566, 0.312386)
	pt3dadd(221.331, 284.013, 51.4507, 0.339834)
	pt3dadd(220.971, 284.33, 51.4613, 0.917458)
	pt3dadd(220.234, 284.448, 51.3975, 0.978348)
	pt3dadd(219.819, 285.009, 51.6303, 0.827094)
	pt3dadd(219.551, 285.417, 51.6884, 0.694118)
	pt3dadd(219.272, 285.812, 51.6723, 0.938406)
	pt3dadd(218.907, 286.627, 51.6799, 1.36544)
  }
  dend[33] {pt3dclear()
	pt3dadd(218.907, 286.627, 51.6799, 1.36544)
	pt3dadd(218.326, 286.87, 52.1836, 1.02066)
	pt3dadd(217.624, 287.179, 52.3778, 0.2)
	pt3dadd(217.346, 287.317, 52.3925, 0.33051)
	pt3dadd(216.999, 287.408, 52.4531, 0.273072)
	pt3dadd(216.698, 287.496, 52.5641, 0.494452)
	pt3dadd(216.447, 287.712, 52.7134, 0.89192)
	pt3dadd(216.07, 287.926, 52.8909, 1.31937)
	pt3dadd(215.152, 288.092, 53.2724, 0.878778)
	pt3dadd(214.696, 288.084, 53.3702, 0.547276)
	pt3dadd(214.344, 288.118, 53.4666, 0.516448)
	pt3dadd(213.997, 288.198, 53.8188, 0.533006)
	pt3dadd(213.782, 288.328, 54.1152, 0.447038)
	pt3dadd(213.618, 288.44, 54.3948, 0.520582)
	pt3dadd(213.213, 288.634, 54.5023, 0.295318)
	pt3dadd(213.038, 288.745, 54.5877, 0.258826)
	pt3dadd(212.707, 288.819, 54.7498, 0.315464)
	pt3dadd(212.474, 288.846, 54.9217, 0.338402)
	pt3dadd(212.222, 288.895, 55.1186, 0.43078)
	pt3dadd(211.942, 288.861, 55.2825, 0.496572)
	pt3dadd(211.671, 288.833, 55.4477, 0.686342)
	pt3dadd(211.355, 288.906, 55.6049, 0.926636)
	pt3dadd(210.794, 289.188, 56.0441, 0.631948)
	pt3dadd(210.506, 289.249, 56.1841, 0.505112)
	pt3dadd(210.166, 289.3, 56.2961, 0.828136)
	pt3dadd(209.818, 289.472, 56.4421, 1.16001)
	pt3dadd(209.138, 290.009, 56.5757, 1.19155)
	pt3dadd(208.317, 290.307, 56.7195, 0.994776)
	pt3dadd(207.779, 290.46, 56.6183, 1.05832)
	pt3dadd(206.819, 290.655, 56.5116, 0.812836)
	pt3dadd(206.45, 290.923, 56.5214, 1.09416)
	pt3dadd(205.732, 291.376, 56.4879, 0.871194)
	pt3dadd(205.183, 291.455, 56.577, 1.34297)
	pt3dadd(204.175, 291.402, 56.4211, 0.710572)
	pt3dadd(203.792, 291.523, 56.3908, 0.95288)
	pt3dadd(203.342, 291.727, 56.394, 1.08814)
	pt3dadd(202.661, 292.487, 56.5662, 1.07232)
	pt3dadd(202.232, 293.034, 56.6175, 0.51363)
	pt3dadd(201.92, 293.246, 56.6132, 0.413664)
	pt3dadd(201.531, 293.401, 56.6538, 0.784912)
	pt3dadd(201.117, 293.288, 56.5889, 0.729954)
	pt3dadd(200.605, 293.295, 56.5277, 0.79383)
	pt3dadd(200.229, 293.773, 56.4709, 0.826186)
	pt3dadd(199.847, 293.931, 56.3615, 0.591122)
	pt3dadd(199.514, 293.996, 56.2386, 0.662236)
	pt3dadd(199.107, 294.434, 56.3115, 0.33591)
	pt3dadd(198.801, 294.645, 56.3563, 0.426518)
	pt3dadd(198.531, 294.805, 56.3049, 0.287936)
	pt3dadd(198.238, 294.996, 56.3363, 0.256272)
	pt3dadd(197.93, 295.185, 56.3564, 0.326822)
	pt3dadd(197.577, 295.387, 56.326, 0.752716)
	pt3dadd(197.172, 295.421, 56.3776, 1.12714)
	pt3dadd(196.385, 295.676, 56.286, 1.34393)
	pt3dadd(195.309, 296.064, 56.6612, 1.17287)
	pt3dadd(194.636, 296.396, 56.7856, 0.873248)
	pt3dadd(194.186, 296.486, 56.8071, 0.711158)
	pt3dadd(193.808, 296.765, 56.9155, 0.471516)
	pt3dadd(193.434, 296.932, 57.0282, 0.21825)
	pt3dadd(193.097, 297.08, 57.123, 0.318334)
	pt3dadd(192.741, 297.289, 57.1357, 0.465616)
	pt3dadd(192.387, 297.434, 57.1716, 0.780348)
	pt3dadd(191.692, 297.403, 57.284, 0.747802)
	pt3dadd(191.272, 297.569, 57.208, 0.743304)
	pt3dadd(190.866, 297.522, 57.1613, 0.704524)
	pt3dadd(190.3, 297.675, 57.4459, 0.442134)
	pt3dadd(190.037, 297.734, 57.5229, 0.374196)
	pt3dadd(189.7, 297.814, 57.5354, 0.354614)
	pt3dadd(189.38, 297.941, 57.5545, 0.51901)
	pt3dadd(189.112, 298.087, 57.5858, 0.549708)
	pt3dadd(188.741, 298.274, 57.5793, 0.98609)
	pt3dadd(187.983, 298.491, 57.6757, 1.25009)
	pt3dadd(187.406, 299.426, 57.8994, 0.899298)
	pt3dadd(186.894, 299.809, 58.0854, 0.756928)
	pt3dadd(186.169, 299.99, 58.1033, 0.748078)
	pt3dadd(185.763, 299.923, 58.0946, 0.817458)
	pt3dadd(184.966, 299.42, 58.2272, 0.78789)
	pt3dadd(184.639, 299.715, 58.3133, 1.32999)
	pt3dadd(183.816, 299.971, 58.7428, 1.6246)
	pt3dadd(182.906, 300.304, 59.1655, 1.43187)
	pt3dadd(182.079, 301.066, 59.2344, 0.554854)
	pt3dadd(181.834, 301.352, 59.3014, 0.482208)
	pt3dadd(181.582, 301.586, 59.4042, 0.46779)
	pt3dadd(181.233, 301.882, 59.4833, 0.497268)
	pt3dadd(180.889, 302.134, 59.6307, 0.541822)
	pt3dadd(180.561, 302.308, 59.7777, 0.745578)
	pt3dadd(179.955, 302.641, 60.0581, 1.48935)
	pt3dadd(179.035, 303.144, 60.3744, 1.37466)
  }
  dend[34] {pt3dclear()
	pt3dadd(179.035, 303.144, 60.3744, 1.37466)
	pt3dadd(178.185, 303.269, 61.2734, 1.60707)
	pt3dadd(177.403, 303.195, 61.8078, 0.464914)
	pt3dadd(177.132, 303.204, 62.0059, 0.396532)
	pt3dadd(176.834, 303.246, 62.2201, 0.814548)
	pt3dadd(176.608, 303.506, 62.454, 0.849948)
	pt3dadd(176.298, 303.394, 63.0917, 0.803024)
	pt3dadd(176.071, 303.278, 63.4062, 0.556026)
	pt3dadd(175.805, 303.195, 63.6303, 0.382172)
	pt3dadd(175.529, 303.136, 63.8169, 0.520782)
	pt3dadd(175.264, 303.13, 63.9805, 0.821294)
	pt3dadd(174.666, 303.094, 64.5841, 1.36105)
	pt3dadd(173.974, 303.547, 65.8526, 0.616242)
	pt3dadd(173.743, 303.658, 66.084, 0.478276)
	pt3dadd(173.536, 303.744, 66.3357, 0.518634)
	pt3dadd(173.229, 303.725, 66.483, 0.541978)
	pt3dadd(172.945, 303.681, 66.6002, 0.56733)
	pt3dadd(172.545, 303.585, 66.7066, 0.707948)
	pt3dadd(172.117, 303.564, 66.9245, 0.780372)
	pt3dadd(171.832, 303.638, 67.2572, 0.83421)
	pt3dadd(171.407, 303.627, 67.6722, 0.667084)
	pt3dadd(170.864, 303.567, 67.9681, 0.266484)
	pt3dadd(170.596, 303.482, 68.0207, 0.38949)
	pt3dadd(170.423, 303.458, 68.3559, 0.433312)
	pt3dadd(170.257, 303.494, 68.5894, 0.459196)
	pt3dadd(170.112, 303.542, 68.8247, 0.48781)
	pt3dadd(170.014, 303.522, 69.1162, 0.557424)
	pt3dadd(169.808, 303.584, 69.4146, 0.74234)
	pt3dadd(169.579, 303.63, 69.7334, 0.782394)
	pt3dadd(169.262, 303.979, 70.3119, 1.06614)
	pt3dadd(168.435, 303.949, 70.9876, 0.2)
	pt3dadd(167.849, 303.743, 71.2315, 1.09428)
	pt3dadd(167.407, 303.418, 71.5301, 1.2294)
	pt3dadd(166.488, 303.579, 71.9957, 0.549926)
	pt3dadd(165.918, 303.592, 72.1972, 0.2)
	pt3dadd(165.71, 303.602, 72.2582, 0.218412)
	pt3dadd(165.491, 303.59, 72.2799, 0.233714)
	pt3dadd(165.223, 303.63, 72.3338, 0.363976)
	pt3dadd(164.935, 303.665, 72.4731, 0.660884)
	pt3dadd(164.407, 303.788, 72.8589, 1.20952)
	pt3dadd(163.642, 303.885, 73.0175, 1.28903)
	pt3dadd(162.823, 304.081, 73.3897, 0.605216)
	pt3dadd(162.535, 304.075, 73.5596, 0.407566)
	pt3dadd(162.116, 304.128, 73.474, 0.434174)
	pt3dadd(161.776, 304.198, 73.5584, 0.228614)
	pt3dadd(161.513, 304.331, 73.7266, 0.2)
	pt3dadd(161.287, 304.373, 73.7882, 0.2)
	pt3dadd(161.116, 304.467, 73.9024, 0.316782)
	pt3dadd(160.951, 304.605, 73.9468, 0.376624)
	pt3dadd(160.66, 304.812, 73.9459, 0.774032)
	pt3dadd(159.915, 304.709, 74.0368, 1.01612)
	pt3dadd(158.899, 304.605, 74.0732, 0.682208)
	pt3dadd(156.729, 304.852, 74.7919, 0.283288)
	pt3dadd(156.444, 304.961, 74.9384, 0.622738)
	pt3dadd(155.603, 305.165, 75.3228, 1.10432)
	pt3dadd(155.344, 304.877, 75.4907, 0.784372)
	pt3dadd(154.912, 304.751, 75.5069, 0.857728)
	pt3dadd(154.34, 305.159, 75.5557, 1.01212)
	pt3dadd(154.201, 305.653, 75.9438, 0.75879)
	pt3dadd(153.975, 306.118, 76.2456, 0.22778)
	pt3dadd(153.802, 306.264, 76.4556, 0.458332)
	pt3dadd(153.499, 306.519, 76.8992, 0.818974)
	pt3dadd(152.694, 306.418, 77.2396, 0.301794)
	pt3dadd(152.423, 306.413, 77.3444, 0.389614)
	pt3dadd(152.216, 306.361, 77.7091, 0.575984)
	pt3dadd(151.414, 306.797, 77.9713, 1.05042)
	pt3dadd(149.368, 306.912, 79.1013, 0.424336)
	pt3dadd(149.086, 306.921, 79.2714, 0.512998)
	pt3dadd(148.891, 306.984, 79.4161, 0.409456)
	pt3dadd(148.624, 306.985, 79.5293, 0.2)
	pt3dadd(148.077, 306.928, 79.6138, 0.557402)
	pt3dadd(147.527, 307.272, 80.1349, 0.990514)
  }
}
proc shape3d_17() {
  dend[34] {	pt3dadd(146.848, 307.199, 80.6328, 0.952004)
	pt3dadd(146.297, 306.649, 80.7522, 1.18621)
	pt3dadd(141.858, 306.994, 84.1114, 0.2)
	pt3dadd(141.699, 306.963, 84.2228, 0.272602)
	pt3dadd(140.4, 307.089, 84.7201, 1.23721)
	pt3dadd(139.581, 306.887, 85.0425, 0.996948)
	pt3dadd(138.674, 306.819, 85.5309, 0.28361)
	pt3dadd(138.42, 306.814, 85.627, 0.2)
	pt3dadd(138.098, 306.798, 85.6782, 0.31209)
	pt3dadd(137.904, 306.704, 85.7992, 0.388816)
	pt3dadd(137.665, 306.605, 85.892, 0.319386)
	pt3dadd(137.409, 306.508, 85.9758, 0.41604)
	pt3dadd(137.162, 306.473, 86.0482, 0.442628)
	pt3dadd(132.411, 307.313, 88.5641, 1.17591)
	pt3dadd(131.282, 307.666, 89.1533, 1.05458)
	pt3dadd(125.397, 309.834, 89.9977, 0.686706)
	pt3dadd(125.067, 309.923, 89.8486, 0.494776)
	pt3dadd(124.572, 310.028, 89.8221, 0.288378)
	pt3dadd(124.33, 310.099, 89.7518, 0.257802)
	pt3dadd(124.087, 310.184, 89.704, 0.31979)
	pt3dadd(123.715, 310.178, 89.6915, 0.214058)
	pt3dadd(123.428, 310.197, 89.6443, 0.2)
	pt3dadd(122.728, 310.3, 89.6963, 0.955842)
	pt3dadd(121.909, 310.094, 90.029, 1.25654)
	pt3dadd(121.263, 310.135, 90.1516, 0.513434)
	pt3dadd(120.941, 310.214, 90.1138, 0.203598)
	pt3dadd(120.767, 310.206, 90.1045, 0.2)
	pt3dadd(120.575, 310.229, 90.1057, 0.228514)
	pt3dadd(120.347, 310.252, 90.1697, 0.31594)
	pt3dadd(120.144, 310.233, 90.1556, 0.2)
	pt3dadd(119.85, 310.236, 90.1356, 0.2)
	pt3dadd(119.617, 310.362, 90.2158, 0.213926)
	pt3dadd(119.319, 310.364, 90.0727, 0.375598)
	pt3dadd(118.566, 310.29, 90.2828, 0.916196)
	pt3dadd(117.823, 310.303, 90.7244, 1.27517)
	pt3dadd(117.196, 310.565, 91.0966, 0.569282)
	pt3dadd(116.784, 310.579, 90.9679, 0.2)
	pt3dadd(112.738, 310.901, 90.5412, 0.592314)
	pt3dadd(112.414, 311.093, 90.823, 0.850726)
	pt3dadd(108.569, 310.935, 90.4979, 0.446056)
	pt3dadd(108.292, 310.884, 90.6468, 0.475822)
	pt3dadd(107.911, 310.976, 90.5753, 0.200262)
	pt3dadd(107.577, 310.945, 90.4578, 0.233242)
	pt3dadd(107.274, 310.909, 90.2995, 0.582732)
	pt3dadd(106.482, 310.791, 90.1146, 1.10442)
	pt3dadd(97.6487, 310.922, 90.9988, 0.681352)
	pt3dadd(97.2818, 310.855, 91.0753, 0.732114)
  }
  dend_6[18] {pt3dclear()
	pt3dadd(97.2818, 310.855, 91.0753, 0.732114)
	pt3dadd(97.0637, 310.737, 91.5642, 0.52487)
  }
  dend[35] {pt3dclear()
	pt3dadd(179.035, 303.144, 60.3744, 1.37466)
	pt3dadd(177.245, 303.88, 60.337, 0.620274)
	pt3dadd(176.911, 303.994, 60.4066, 0.383018)
	pt3dadd(176.545, 304.209, 60.5539, 0.311386)
	pt3dadd(176.372, 304.368, 60.4226, 0.383456)
	pt3dadd(176.246, 304.536, 60.3122, 0.285792)
	pt3dadd(176.077, 304.721, 60.1819, 0.2)
	pt3dadd(175.893, 304.902, 60.1299, 0.2)
	pt3dadd(175.724, 305.063, 60.1803, 0.2)
	pt3dadd(174.997, 305.461, 60.013, 0.75483)
	pt3dadd(174.734, 305.914, 60.0859, 1.32063)
	pt3dadd(174.003, 305.893, 60.4019, 0.96936)
	pt3dadd(173.357, 306.23, 60.628, 0.960848)
	pt3dadd(172.792, 306.467, 60.635, 0.57779)
	pt3dadd(172.467, 306.514, 60.6445, 0.481092)
	pt3dadd(172.144, 306.604, 60.6141, 0.398526)
	pt3dadd(171.764, 306.788, 60.6623, 0.293074)
	pt3dadd(171.345, 306.894, 60.6578, 0.465982)
	pt3dadd(170.882, 307.072, 60.2828, 0.625742)
	pt3dadd(170.614, 307.216, 60.1474, 0.547334)
	pt3dadd(170.152, 307.254, 60.5751, 0.417752)
	pt3dadd(169.706, 307.512, 60.275, 0.2)
	pt3dadd(169.466, 307.604, 60.1765, 0.211816)
	pt3dadd(169.313, 307.683, 60.1314, 0.449096)
	pt3dadd(169.038, 307.78, 60.0677, 0.751944)
	pt3dadd(168.493, 308.025, 59.647, 0.676816)
	pt3dadd(165.342, 309.976, 59.2, 0.2)
	pt3dadd(165.261, 310.394, 59.1105, 0.945272)
	pt3dadd(164.861, 310.76, 59.1442, 0.708232)
	pt3dadd(164.188, 311.042, 58.8395, 1.11546)
	pt3dadd(163.535, 311.02, 58.4329, 0.786876)
	pt3dadd(162.916, 311.458, 58.5713, 0.30199)
	pt3dadd(162.588, 311.493, 58.5692, 0.400904)
	pt3dadd(162.313, 311.597, 58.6071, 0.413642)
	pt3dadd(162.002, 311.691, 58.6249, 0.5669)
	pt3dadd(161.67, 311.934, 58.7756, 0.437838)
	pt3dadd(161.429, 312.071, 58.8443, 0.338808)
	pt3dadd(161.202, 312.204, 58.9288, 0.317596)
	pt3dadd(160.935, 312.342, 58.9872, 0.292596)
	pt3dadd(160.63, 312.432, 59.0678, 0.365338)
	pt3dadd(159.904, 312.733, 59.1557, 0.867654)
	pt3dadd(159.622, 313.29, 59.3015, 1.02553)
	pt3dadd(159.208, 313.606, 59.2365, 0.960344)
	pt3dadd(158.126, 313.913, 59.4317, 1.44078)
	pt3dadd(157.311, 314.242, 59.5106, 0.931142)
	pt3dadd(156.818, 314.614, 59.3914, 0.785346)
	pt3dadd(156.508, 315.062, 59.4093, 0.42765)
	pt3dadd(156.252, 315.086, 59.4336, 0.2)
	pt3dadd(155.928, 315.18, 59.482, 0.42785)
	pt3dadd(155.384, 315.411, 59.2326, 0.752992)
	pt3dadd(154.779, 315.686, 58.5782, 1.32203)
	pt3dadd(154.397, 315.79, 58.152, 0.802022)
	pt3dadd(151.625, 316.622, 56.7822, 0.436252)
	pt3dadd(149.536, 316.747, 58.0018, 0.530192)
	pt3dadd(149.189, 316.831, 57.6191, 0.681274)
	pt3dadd(147.572, 316.865, 57.9222, 0.532496)
	pt3dadd(147.134, 316.986, 58.1257, 0.38344)
	pt3dadd(143.961, 317.845, 58.1693, 1.17747)
	pt3dadd(143.039, 318.307, 58.0905, 1.32823)
	pt3dadd(142.087, 319.116, 57.8249, 0.2)
	pt3dadd(141.944, 319.258, 57.9124, 0.2)
	pt3dadd(141.536, 319.622, 58.0425, 0.424124)
	pt3dadd(141.268, 319.825, 58.1168, 0.567494)
	pt3dadd(140.998, 320.007, 58.3175, 0.7488)
	pt3dadd(140.474, 320.177, 58.2606, 0.36037)
	pt3dadd(137.969, 321.779, 59, 0.2)
	pt3dadd(137.598, 322.062, 58.9115, 1.08341)
	pt3dadd(137.209, 322.355, 58.9159, 0.967012)
	pt3dadd(132.943, 325.386, 60.1079, 0.542344)
	pt3dadd(131.501, 327.094, 58.6487, 1.02543)
	pt3dadd(131.186, 327.484, 58.771, 1.06479)
	pt3dadd(130.875, 327.726, 58.8, 0.2)
	pt3dadd(128.432, 330.065, 57.0421, 1.36459)
	pt3dadd(127.575, 330.607, 56.9907, 0.924524)
	pt3dadd(126.943, 331.059, 56.6225, 0.25156)
	pt3dadd(126.624, 331.309, 56.376, 0.2)
	pt3dadd(126.27, 331.386, 56.2424, 0.2)
	pt3dadd(126.17, 331.395, 56.1212, 0.2)
	pt3dadd(125.935, 331.517, 56.1055, 0.2)
	pt3dadd(123.051, 332.992, 55.0702, 0.525776)
	pt3dadd(122.86, 333.298, 54.6475, 0.392276)
	pt3dadd(122.494, 333.57, 54.3691, 0.424994)
	pt3dadd(122.361, 333.624, 53.9438, 0.2)
	pt3dadd(116.943, 337.506, 52.1619, 0.75713)
	pt3dadd(117.068, 337.76, 51.6149, 0.472348)
	pt3dadd(117.001, 337.826, 51.3859, 0.513514)
	pt3dadd(116.818, 337.888, 51.0706, 0.853456)
	pt3dadd(116.712, 338.017, 50.6423, 0.81989)
	pt3dadd(116.302, 338.307, 50.2673, 0.47525)
	pt3dadd(116.288, 338.549, 49.987, 0.469438)
	pt3dadd(116.277, 338.686, 49.7284, 0.521322)
	pt3dadd(116.304, 338.787, 49.4719, 0.505814)
	pt3dadd(116.062, 339.111, 49.1026, 0.2)
	pt3dadd(115.989, 339.352, 49.0028, 0.2)
	pt3dadd(115.852, 339.491, 48.9134, 0.266968)
	pt3dadd(115.64, 339.635, 48.7492, 0.409664)
	pt3dadd(115.461, 339.85, 48.5567, 0.529174)
	pt3dadd(115.251, 340.022, 48.3671, 0.764804)
	pt3dadd(115.108, 340.055, 48.0478, 0.754584)
	pt3dadd(113.697, 340.823, 48.0243, 0.410772)
	pt3dadd(113.49, 340.973, 48.0255, 0.393748)
	pt3dadd(113.271, 341.11, 48.0485, 0.2856)
	pt3dadd(113.023, 341.205, 48.112, 0.2)
	pt3dadd(112.47, 341.377, 48.1859, 0.323784)
	pt3dadd(112.178, 341.597, 48.1888, 0.356428)
	pt3dadd(111.473, 342.337, 48.1536, 1.25222)
	pt3dadd(110.322, 342.122, 48.1164, 0.965864)
	pt3dadd(109.827, 341.947, 48.4986, 0.592572)
	pt3dadd(107.225, 341.84, 48.4334, 0.464916)
	pt3dadd(106.385, 341.924, 48.4414, 0.95837)
	pt3dadd(103.078, 344.202, 48.2547, 0.938804)
	pt3dadd(101.253, 346.306, 47.92, 0.96703)
	pt3dadd(100.913, 347.005, 47.8513, 0.889756)
	pt3dadd(100.794, 347.405, 47.8956, 0.56345)
	pt3dadd(99.2308, 349.125, 48.0055, 0.593354)
	pt3dadd(96.728, 351.022, 49.2371, 0.92363)
	pt3dadd(96.5087, 351.749, 49.7473, 0.596116)
	pt3dadd(96.4392, 352.049, 49.8494, 0.327372)
  }
  dend_6[19] {pt3dclear()
	pt3dadd(96.4392, 352.049, 49.8494, 0.327372)
	pt3dadd(96.4117, 352.221, 49.9719, 0.2)
  }
  dend[36] {pt3dclear()
	pt3dadd(218.907, 286.627, 51.6799, 1.36544)
	pt3dadd(218.942, 288.686, 51.9399, 0.340166)
	pt3dadd(218.963, 289.005, 51.7811, 0.21185)
	pt3dadd(218.944, 289.214, 51.774, 0.243928)
	pt3dadd(218.935, 289.751, 51.6269, 0.534764)
	pt3dadd(218.876, 290.234, 51.6518, 0.55124)
	pt3dadd(218.93, 290.551, 51.5733, 0.359036)
	pt3dadd(218.968, 290.867, 51.5241, 0.354468)
	pt3dadd(218.878, 291.421, 51.4748, 0.727102)
	pt3dadd(218.79, 291.932, 51.188, 0.873352)
	pt3dadd(218.325, 292.5, 50.7305, 1.003)
	pt3dadd(218.199, 292.876, 50.4231, 0.776422)
	pt3dadd(218.14, 293.184, 50.1974, 0.62548)
	pt3dadd(217.911, 293.513, 50.2512, 0.220682)
	pt3dadd(217.635, 294.384, 49.8489, 0.2)
	pt3dadd(217.532, 294.711, 49.7183, 0.363366)
	pt3dadd(217.381, 295.047, 49.6468, 0.45224)
	pt3dadd(217.242, 295.346, 49.4781, 0.678234)
	pt3dadd(217.031, 295.568, 49.1641, 0.577486)
	pt3dadd(216.964, 295.797, 48.9692, 0.562178)
	pt3dadd(216.894, 296.013, 48.7623, 0.489578)
	pt3dadd(216.911, 296.333, 48.6677, 0.416164)
	pt3dadd(216.89, 296.55, 48.4909, 0.394986)
	pt3dadd(216.78, 296.84, 48.3343, 0.410356)
	pt3dadd(216.634, 297.192, 48.3316, 0.356396)
	pt3dadd(216.17, 297.886, 48.0729, 1.15006)
	pt3dadd(216.21, 298.822, 47.5783, 1.08551)
	pt3dadd(215.762, 299.226, 46.8797, 1.04136)
	pt3dadd(215.004, 299.498, 46.3498, 1.38473)
	pt3dadd(214.578, 300.094, 45.8189, 1.1673)
	pt3dadd(214.19, 300.549, 45.6705, 0.919146)
  }
}
proc shape3d_18() {
  dend[36] {	pt3dadd(213.402, 301.924, 45.8348, 0.470326)
	pt3dadd(213.396, 302.081, 45.4842, 0.453694)
	pt3dadd(213.371, 302.698, 45.0674, 1.0091)
	pt3dadd(212.709, 303.097, 45.2038, 1.06149)
	pt3dadd(212.209, 303.787, 45.2016, 0.452272)
	pt3dadd(211.879, 304.192, 44.8358, 0.218688)
	pt3dadd(211.786, 304.463, 44.7156, 0.247714)
	pt3dadd(211.653, 304.693, 44.5944, 0.50961)
	pt3dadd(211.611, 304.889, 44.3737, 0.502728)
	pt3dadd(211.565, 305.096, 44.1747, 0.62447)
	pt3dadd(211.673, 305.663, 43.8946, 0.541976)
	pt3dadd(211.464, 306.289, 43.4632, 0.41333)
	pt3dadd(211.504, 306.515, 43.2576, 0.553634)
	pt3dadd(211.394, 306.876, 43.1257, 0.821238)
	pt3dadd(211.243, 307.326, 42.9873, 1.19342)
	pt3dadd(211.136, 308.268, 42.4308, 1.105)
	pt3dadd(210.634, 309.302, 42.2185, 0.2)
	pt3dadd(210.571, 309.537, 42.2156, 0.260328)
	pt3dadd(210.483, 309.708, 42.204, 0.501744)
	pt3dadd(210.359, 309.955, 42.1997, 0.706816)
	pt3dadd(210.372, 310.304, 42.094, 1.11748)
	pt3dadd(209.886, 310.525, 41.8162, 0.76043)
	pt3dadd(209.565, 310.946, 41.6719, 0.589944)
	pt3dadd(209.161, 311.156, 41.4419, 0.848082)
	pt3dadd(208.946, 311.548, 41.264, 0.786312)
	pt3dadd(208.669, 311.917, 41.1033, 0.973086)
	pt3dadd(208.086, 312.536, 40.8219, 1.31802)
	pt3dadd(207.323, 313.69, 40.7425, 0.71717)
	pt3dadd(206.974, 313.955, 40.653, 0.542416)
	pt3dadd(206.766, 314.284, 40.5504, 0.2)
	pt3dadd(206.675, 314.74, 40.4511, 0.459)
	pt3dadd(206.53, 315.025, 40.4064, 0.270216)
	pt3dadd(206.377, 315.273, 40.4355, 0.407672)
	pt3dadd(206.001, 315.671, 40.3673, 1.01601)
	pt3dadd(205.713, 316.138, 40.0495, 1.04648)
	pt3dadd(205.475, 316.49, 39.9409, 0.594004)
	pt3dadd(205.255, 316.843, 39.9579, 0.224086)
	pt3dadd(205.077, 317.018, 39.8584, 0.2)
	pt3dadd(204.882, 317.166, 39.6418, 0.2)
	pt3dadd(204.695, 317.43, 39.4841, 0.346172)
	pt3dadd(204.365, 318.312, 39.2558, 1.10895)
	pt3dadd(204.287, 318.804, 39.0426, 0.998364)
	pt3dadd(204.005, 319.246, 38.8716, 1.01818)
	pt3dadd(203.434, 319.658, 38.5882, 0.805474)
	pt3dadd(203.087, 320.097, 38.5107, 0.747616)
	pt3dadd(202.997, 320.704, 38.6074, 0.78633)
	pt3dadd(202.724, 320.996, 38.4736, 0.758354)
	pt3dadd(202.486, 321.117, 38.2558, 0.612446)
	pt3dadd(202.362, 321.405, 38.0983, 0.452862)
	pt3dadd(202.2, 321.628, 37.9063, 0.422646)
	pt3dadd(201.884, 322.422, 37.4744, 0.981104)
	pt3dadd(201.722, 322.766, 37.3956, 0.565426)
	pt3dadd(201.491, 323.118, 37.3646, 0.39966)
	pt3dadd(201.227, 323.648, 37.4382, 0.57706)
	pt3dadd(201.005, 323.891, 37.3352, 0.424742)
	pt3dadd(200.791, 324.14, 37.2004, 0.410326)
	pt3dadd(200.633, 324.422, 37.0485, 0.547576)
	pt3dadd(200.632, 324.727, 36.9379, 0.420594)
	pt3dadd(200.415, 325.026, 36.8353, 0.416948)
	pt3dadd(198.516, 325.9, 34.2317, 0.608216)
	pt3dadd(198.014, 326.313, 33.6893, 0.502532)
	pt3dadd(197.609, 326.354, 33.4537, 0.703294)
	pt3dadd(197.285, 326.556, 33.3373, 1.03052)
	pt3dadd(196.849, 326.943, 33.0995, 1.34128)
	pt3dadd(195.877, 327.301, 32.8593, 1.22699)
	pt3dadd(195.376, 327.893, 32.9496, 1.21515)
	pt3dadd(194.476, 328.383, 32.8737, 0.811694)
	pt3dadd(194.142, 328.839, 32.7301, 0.772114)
	pt3dadd(193.918, 329.207, 32.7119, 0.768756)
	pt3dadd(193.681, 329.643, 32.7699, 0.607912)
	pt3dadd(193.481, 330.043, 32.8122, 0.853488)
	pt3dadd(192.903, 330.422, 32.5666, 0.684986)
	pt3dadd(192.461, 330.885, 32.4531, 0.709228)
	pt3dadd(192.164, 331.244, 32.3332, 0.894478)
	pt3dadd(191.486, 331.829, 32.1216, 1.76782)
	pt3dadd(190.391, 332.523, 32.3069, 1.17895)
	pt3dadd(189.678, 333.312, 32.2689, 0.860004)
	pt3dadd(189.276, 333.518, 32.2017, 0.601746)
	pt3dadd(189.012, 333.859, 32.0994, 0.622772)
	pt3dadd(188.589, 334.1, 31.9884, 0.62015)
	pt3dadd(188.241, 334.397, 31.9316, 0.61987)
	pt3dadd(187.908, 334.756, 31.8291, 0.63762)
	pt3dadd(187.853, 335.132, 31.776, 0.484198)
	pt3dadd(187.119, 335.414, 32.2896, 0.916598)
	pt3dadd(186.648, 335.646, 32.3501, 0.716508)
	pt3dadd(186.189, 335.901, 32.0756, 0.9008)
	pt3dadd(185.579, 336.285, 32.3605, 0.392262)
	pt3dadd(185.294, 336.423, 32.4517, 0.343664)
	pt3dadd(184.982, 336.603, 32.514, 0.343972)
	pt3dadd(184.665, 336.711, 32.6393, 0.522998)
	pt3dadd(184.242, 336.849, 32.6564, 0.656362)
	pt3dadd(183.825, 336.873, 32.72, 1.00378)
	pt3dadd(183.343, 337.214, 32.5771, 0.784894)
	pt3dadd(182.997, 337.504, 32.6147, 0.814096)
	pt3dadd(182.473, 337.701, 32.4578, 0.984394)
	pt3dadd(182.085, 338.198, 32.3847, 1.12242)
	pt3dadd(181.481, 338.936, 32.3907, 1.03959)
	pt3dadd(180.947, 339.679, 32.309, 0.73017)
	pt3dadd(180.665, 339.976, 32.2811, 0.630148)
	pt3dadd(180.427, 340.36, 32.1655, 0.653458)
	pt3dadd(180.253, 340.706, 32.048, 0.710688)
	pt3dadd(179.911, 340.976, 32.0697, 0.704892)
	pt3dadd(179.624, 341.326, 32.0993, 0.94949)
	pt3dadd(178.823, 341.653, 32.0256, 1.64167)
	pt3dadd(177.542, 342.902, 31.5844, 0.484916)
	pt3dadd(177.261, 343.15, 31.4875, 0.277518)
	pt3dadd(176.993, 343.315, 31.4193, 0.374758)
	pt3dadd(176.758, 343.472, 31.3921, 0.34859)
	pt3dadd(176.368, 343.529, 31.4028, 0.431148)
	pt3dadd(176.086, 343.488, 31.4578, 0.52706)
	pt3dadd(175.71, 343.431, 31.485, 0.416182)
	pt3dadd(175.464, 343.437, 31.5292, 0.32995)
	pt3dadd(175.217, 343.398, 31.5238, 0.212846)
	pt3dadd(174.978, 343.363, 31.5417, 0.349366)
	pt3dadd(174.653, 343.382, 31.6288, 0.690454)
	pt3dadd(174.296, 343.555, 31.7525, 0.779548)
	pt3dadd(173.927, 343.701, 31.5335, 0.73421)
	pt3dadd(173.638, 344.201, 31.4718, 0.521108)
	pt3dadd(173.301, 344.529, 31.3119, 1.03106)
	pt3dadd(173.183, 345.089, 31.3703, 0.99657)
	pt3dadd(172.675, 345.503, 31.4247, 0.767558)
	pt3dadd(172.337, 345.75, 31.3817, 0.318112)
	pt3dadd(172.121, 345.967, 31.3386, 0.2375)
	pt3dadd(171.873, 346.266, 31.3127, 0.508142)
	pt3dadd(171.622, 346.546, 31.2817, 0.737334)
	pt3dadd(171.311, 346.802, 31.2419, 0.856842)
	pt3dadd(170.752, 347.085, 31.2266, 0.970246)
	pt3dadd(170, 347.387, 31.2433, 0.718192)
	pt3dadd(169.39, 347.466, 31.2134, 0.48291)
	pt3dadd(169.108, 347.564, 31.2187, 0.519002)
	pt3dadd(168.82, 347.806, 31.2331, 0.728064)
	pt3dadd(168.519, 348.017, 31.2168, 0.609976)
	pt3dadd(168.272, 348.282, 31.1404, 0.416268)
	pt3dadd(168.085, 348.521, 31.0247, 0.485954)
	pt3dadd(167.765, 348.685, 30.9576, 0.245294)
	pt3dadd(167.489, 348.874, 30.8994, 0.402204)
	pt3dadd(167.216, 349.165, 30.7666, 0.737286)
	pt3dadd(166.875, 349.279, 30.627, 0.61207)
	pt3dadd(166.533, 349.506, 30.4898, 0.523168)
	pt3dadd(166.385, 349.925, 30.3851, 1.0691)
	pt3dadd(165.417, 350.387, 30.3262, 1.16448)
	pt3dadd(164.878, 350.794, 30.2296, 0.775858)
	pt3dadd(164.5, 350.928, 30.2101, 0.544892)
	pt3dadd(164.153, 351.125, 30.1834, 0.592326)
	pt3dadd(163.663, 351.379, 29.9593, 0.427806)
	pt3dadd(163.312, 351.593, 29.8992, 0.294828)
	pt3dadd(163.026, 351.745, 29.9517, 0.2)
	pt3dadd(162.794, 351.858, 29.8857, 0.2)
	pt3dadd(162.523, 352.04, 29.8582, 0.239374)
	pt3dadd(162.281, 352.208, 29.7869, 0.38034)
	pt3dadd(161.975, 352.275, 29.665, 0.495642)
	pt3dadd(161.652, 352.268, 29.5176, 0.530488)
	pt3dadd(161.418, 352.402, 29.4995, 0.3015)
	pt3dadd(161.179, 352.56, 29.5707, 0.32613)
	pt3dadd(160.903, 352.722, 29.5832, 0.365806)
	pt3dadd(160.565, 352.849, 29.5377, 0.438306)
	pt3dadd(160.253, 352.934, 29.4705, 0.599882)
	pt3dadd(159.876, 353.031, 29.3519, 0.846968)
	pt3dadd(159.562, 353.243, 29.1515, 0.948374)
	pt3dadd(159.001, 353.384, 28.9832, 1.35099)
	pt3dadd(158.326, 353.914, 29.0463, 1.52052)
	pt3dadd(157.424, 354.322, 29.2183, 0.928614)
	pt3dadd(156.686, 354.743, 29.0932, 0.611592)
	pt3dadd(156.171, 354.766, 28.8687, 0.735882)
	pt3dadd(155.128, 355.256, 28.8455, 0.31333)
	pt3dadd(154.74, 355.48, 28.8263, 0.336922)
	pt3dadd(154.432, 355.613, 28.8113, 0.2)
	pt3dadd(154.145, 355.793, 28.8039, 0.229024)
	pt3dadd(153.863, 355.933, 28.8575, 0.551658)
	pt3dadd(153.573, 355.952, 28.5351, 0.739292)
	pt3dadd(152.749, 356.393, 28.5704, 0.26045)
	pt3dadd(152.324, 356.571, 28.589, 0.52293)
	pt3dadd(152.02, 356.783, 28.6169, 0.739472)
	pt3dadd(151.647, 356.789, 28.6099, 0.72226)
	pt3dadd(151.263, 357.055, 28.6482, 0.58941)
	pt3dadd(150.866, 357.34, 28.5788, 0.60092)
	pt3dadd(150.52, 357.433, 28.5541, 0.612504)
	pt3dadd(150.16, 357.542, 28.5314, 0.572078)
	pt3dadd(149.779, 357.84, 28.4336, 0.812674)
	pt3dadd(149.277, 358.433, 28.3932, 0.757896)
	pt3dadd(148.829, 358.636, 28.4254, 0.75375)
	pt3dadd(148.353, 358.8, 28.4068, 1.10687)
	pt3dadd(147.78, 358.929, 28.6069, 1.27744)
	pt3dadd(146.936, 359.475, 28.7263, 0.547488)
	pt3dadd(146.423, 359.805, 28.8326, 0.454596)
	pt3dadd(146.103, 359.865, 28.8983, 0.447272)
	pt3dadd(145.831, 359.937, 28.8954, 0.428882)
	pt3dadd(145.578, 359.986, 28.8551, 0.34079)
	pt3dadd(145.269, 360.032, 28.761, 0.376426)
	pt3dadd(144.943, 360.121, 28.6405, 0.561916)
	pt3dadd(144.583, 360.375, 28.616, 0.77668)
	pt3dadd(144.16, 360.742, 28.7103, 0.64767)
	pt3dadd(143.721, 361.014, 28.7502, 0.805412)
	pt3dadd(143.314, 361.18, 28.7833, 1.14925)
	pt3dadd(142.535, 361.585, 28.8897, 1.14571)
	pt3dadd(141.576, 361.879, 28.826, 1.05429)
	pt3dadd(141.024, 361.737, 28.8702, 0.64412)
	pt3dadd(140.418, 361.905, 28.8906, 0.381956)
	pt3dadd(140.229, 361.959, 28.8986, 0.266566)
	pt3dadd(139.98, 361.964, 28.9276, 0.316526)
  }
}
proc shape3d_19() {
  dend[36] {	pt3dadd(139.652, 361.898, 28.9086, 0.6034)
	pt3dadd(138.958, 362.371, 28.8661, 0.303248)
	pt3dadd(138.745, 362.561, 28.8829, 0.332042)
	pt3dadd(138.523, 362.804, 28.8837, 0.277596)
	pt3dadd(138.292, 363.101, 28.8959, 0.416722)
	pt3dadd(137.912, 363.26, 28.907, 0.224794)
	pt3dadd(137.706, 363.356, 28.9057, 0.22405)
	pt3dadd(137.501, 363.412, 28.9284, 0.30953)
	pt3dadd(137.197, 363.615, 28.9758, 0.479682)
	pt3dadd(136.922, 363.819, 28.9489, 0.821594)
	pt3dadd(136.053, 364.386, 29.1151, 0.444202)
	pt3dadd(135.644, 364.899, 28.7725, 0.368502)
	pt3dadd(135.353, 365.229, 28.6591, 0.23717)
	pt3dadd(135.179, 365.487, 28.5859, 0.278532)
	pt3dadd(134.989, 365.694, 28.5812, 0.40982)
	pt3dadd(134.763, 366.023, 28.6032, 0.737722)
	pt3dadd(134.41, 366.661, 28.5656, 1.3734)
	pt3dadd(133.751, 367.301, 28.3847, 0.707298)
	pt3dadd(133.439, 367.577, 28.3257, 0.499134)
	pt3dadd(133.293, 367.803, 28.3101, 0.335724)
	pt3dadd(133.171, 368.04, 28.2523, 0.454124)
	pt3dadd(132.222, 368.581, 28.657, 0.447154)
	pt3dadd(132.024, 368.765, 28.7132, 0.260626)
	pt3dadd(131.856, 368.922, 28.76, 0.2)
	pt3dadd(131.693, 369.126, 28.8559, 0.2)
	pt3dadd(131.534, 369.315, 28.9448, 0.2)
	pt3dadd(130.735, 370.081, 29.3255, 1.1889)
	pt3dadd(130.128, 370.191, 29.414, 1.16586)
	pt3dadd(129.657, 370.581, 29.8522, 0.83147)
	pt3dadd(129.311, 370.971, 29.8597, 0.491876)
	pt3dadd(129.151, 371.256, 29.8076, 0.283732)
	pt3dadd(128.861, 371.416, 29.8944, 0.31606)
	pt3dadd(128.63, 371.612, 30.0766, 0.272508)
	pt3dadd(128.455, 371.812, 30.2552, 0.412082)
	pt3dadd(128.312, 371.955, 30.4869, 0.458144)
	pt3dadd(127.882, 372.377, 30.367, 0.342814)
	pt3dadd(127.608, 372.54, 30.4235, 0.2)
	pt3dadd(127.196, 373.104, 30.6493, 0.857482)
	pt3dadd(126.797, 373.681, 30.9631, 1.17523)
	pt3dadd(126.275, 373.963, 31.0436, 0.806608)
	pt3dadd(125.899, 374.312, 31.159, 0.787034)
	pt3dadd(125.6, 374.689, 31.1678, 0.59181)
	pt3dadd(125.267, 375.384, 31.1402, 0.86509)
	pt3dadd(125.161, 375.793, 31.1834, 0.75461)
	pt3dadd(124.945, 376.122, 31.2224, 0.446658)
	pt3dadd(124.795, 376.383, 31.3245, 0.2)
	pt3dadd(124.505, 376.67, 31.2378, 0.2)
	pt3dadd(124.409, 376.938, 31.2226, 0.213172)
	pt3dadd(124.068, 377.348, 31.3457, 0.842434)
	pt3dadd(123.815, 377.801, 31.2379, 0.63754)
	pt3dadd(123.778, 378.154, 31.134, 0.421848)
	pt3dadd(123.692, 378.369, 31.0123, 0.419644)
	pt3dadd(123.577, 378.74, 31.1655, 0.2)
	pt3dadd(123.45, 379.225, 31.252, 0.497588)
	pt3dadd(123.231, 379.479, 31.2904, 0.432836)
	pt3dadd(122.973, 379.677, 31.3053, 0.2)
	pt3dadd(122.582, 380.258, 31.3441, 0.791184)
	pt3dadd(122.023, 380.867, 31.3328, 0.948478)
	pt3dadd(121.7, 381.302, 31.4292, 1.022)
	pt3dadd(121.274, 382.236, 31.4248, 1.10059)
	pt3dadd(121.112, 382.884, 31.6564, 1.03669)
	pt3dadd(120.8, 383.273, 31.613, 0.638482)
	pt3dadd(120.597, 383.54, 31.4552, 0.381228)
	pt3dadd(120.287, 383.818, 31.5231, 0.28075)
	pt3dadd(120.011, 384.045, 31.58, 0.300704)
	pt3dadd(119.65, 384.34, 31.6143, 0.674936)
	pt3dadd(119.29, 384.341, 31.5274, 0.694586)
	pt3dadd(118.757, 384.481, 31.5018, 0.408204)
	pt3dadd(118.557, 384.557, 31.4977, 0.249226)
	pt3dadd(118.272, 384.57, 31.5388, 0.220218)
	pt3dadd(116.585, 385.427, 31.4152, 0.519062)
	pt3dadd(116.232, 385.491, 31.4923, 0.499242)
	pt3dadd(115.974, 385.473, 31.6127, 0.335266)
	pt3dadd(115.698, 385.45, 31.8124, 0.479234)
	pt3dadd(115.394, 385.573, 31.857, 0.340324)
	pt3dadd(115.011, 385.678, 31.8284, 0.561648)
	pt3dadd(114.626, 385.89, 31.8179, 0.955596)
	pt3dadd(114.21, 385.788, 32.1096, 1.35376)
	pt3dadd(113.252, 386.909, 32.3886, 0.421412)
	pt3dadd(112.994, 387.012, 32.4944, 0.39638)
	pt3dadd(112.632, 387.267, 32.3616, 0.403588)
	pt3dadd(112.39, 387.429, 32.3375, 0.342576)
	pt3dadd(112.112, 387.677, 32.3092, 0.2)
	pt3dadd(111.877, 387.788, 32.2573, 0.290232)
	pt3dadd(111.601, 387.916, 32.2351, 0.534184)
	pt3dadd(111.361, 388.055, 32.3431, 0.513398)
	pt3dadd(110.698, 388.175, 32.5665, 0.2)
	pt3dadd(110.479, 388.184, 32.6014, 0.2)
	pt3dadd(110.283, 388.231, 32.6446, 0.350024)
	pt3dadd(110.018, 388.37, 32.6748, 0.686614)
	pt3dadd(109.672, 388.474, 32.724, 1.17976)
	pt3dadd(109.355, 389.002, 32.5274, 0.885418)
	pt3dadd(108.934, 389.24, 32.4063, 1.06739)
	pt3dadd(108.311, 389.631, 32.3976, 0.356282)
	pt3dadd(108.138, 389.87, 32.4616, 0.2)
	pt3dadd(107.884, 389.98, 32.4788, 0.237994)
	pt3dadd(107.752, 390.132, 32.5265, 0.293964)
	pt3dadd(107.521, 390.494, 32.3606, 0.373258)
	pt3dadd(106.494, 391.598, 32.1954, 0.426552)
	pt3dadd(106.126, 391.983, 32.372, 0.95636)
	pt3dadd(106.078, 392.462, 32.8667, 1.21547)
	pt3dadd(105.933, 393.059, 33.4786, 0.92488)
	pt3dadd(104.253, 395.129, 34.8115, 1.24338)
	pt3dadd(103.841, 395.417, 35.4925, 1.23696)
	pt3dadd(103.674, 395.815, 35.9404, 0.539498)
	pt3dadd(103.416, 395.884, 36.1671, 0.2)
	pt3dadd(103.184, 395.972, 36.4097, 0.437326)
	pt3dadd(102.893, 396.003, 36.8611, 0.756828)
	pt3dadd(102.675, 396.044, 37.0448, 0.573368)
	pt3dadd(102.268, 396.005, 37.1142, 0.63404)
	pt3dadd(101.918, 396.147, 37.2976, 0.690324)
	pt3dadd(101.619, 396.424, 37.555, 0.541608)
	pt3dadd(101.328, 396.417, 37.6188, 0.465162)
	pt3dadd(100.715, 396.398, 37.503, 0.671552)
	pt3dadd(100.474, 396.484, 37.8532, 0.564544)
	pt3dadd(100.335, 396.513, 38.1596, 0.63439)
	pt3dadd(100.305, 396.786, 38.5606, 0.524542)
	pt3dadd(100.281, 396.884, 38.8393, 0.58533)
  }
  dend_6[20] {pt3dclear()
	pt3dadd(100.281, 396.884, 38.8393, 0.58533)
	pt3dadd(100.267, 396.896, 39.1468, 0.592176)
  }
  dend[37] {pt3dclear()
	pt3dadd(222.025, 282.209, 51.4912, 1.68531)
	pt3dadd(221.045, 282.238, 51.7118, 1.10022)
	pt3dadd(220.533, 282.438, 51.6596, 1.21543)
	pt3dadd(219.951, 282.215, 51.6459, 0.772458)
	pt3dadd(219.42, 281.839, 51.6784, 0.314086)
	pt3dadd(219.173, 281.79, 51.7555, 0.35738)
	pt3dadd(218.903, 281.7, 51.7023, 0.611708)
	pt3dadd(218.597, 281.398, 51.8506, 0.472178)
	pt3dadd(218.287, 281.186, 51.9205, 0.60519)
	pt3dadd(218.008, 280.988, 51.9222, 0.687408)
	pt3dadd(217.66, 280.814, 51.9273, 0.45749)
	pt3dadd(217.291, 280.731, 51.987, 0.535034)
	pt3dadd(216.913, 280.815, 52.0145, 0.958336)
	pt3dadd(216.182, 280.625, 51.9646, 0.752742)
	pt3dadd(215.793, 280.542, 52.0802, 0.730274)
	pt3dadd(215.445, 280.37, 52.2612, 0.529266)
	pt3dadd(215.227, 280.239, 52.3595, 0.44591)
	pt3dadd(214.875, 280.172, 52.4492, 0.453494)
	pt3dadd(214.625, 280.032, 52.4913, 0.473804)
	pt3dadd(214.289, 279.878, 52.5009, 0.558222)
	pt3dadd(213.95, 279.699, 52.4444, 1.01613)
	pt3dadd(213.033, 279.62, 52.6295, 0.659396)
	pt3dadd(212.649, 279.585, 52.6275, 0.641494)
	pt3dadd(212.306, 279.557, 52.6528, 0.706326)
	pt3dadd(211.954, 279.294, 52.6402, 0.624874)
	pt3dadd(211.536, 279.103, 52.5769, 0.985152)
	pt3dadd(211.198, 278.779, 52.7595, 0.75617)
	pt3dadd(210.839, 278.679, 52.8226, 0.679914)
	pt3dadd(210.421, 278.613, 52.8942, 0.68573)
	pt3dadd(209.943, 278.793, 52.8968, 1.28774)
	pt3dadd(209.143, 278.223, 52.656, 1.06185)
	pt3dadd(208.286, 277.959, 52.5256, 1.11222)
	pt3dadd(207.287, 277.401, 52.5473, 0.829478)
	pt3dadd(206.943, 277.097, 52.4513, 0.979858)
	pt3dadd(206.495, 276.909, 52.2995, 1.14157)
  }
  dend_5[14] {pt3dclear()
	pt3dadd(206.495, 276.909, 52.2995, 1.14157)
	pt3dadd(205.771, 276.757, 51.946, 1.56251)
  }
  dend[38] {pt3dclear()
	pt3dadd(205.771, 276.757, 51.946, 1.56251)
	pt3dadd(205.272, 275.797, 52.1754, 0.929718)
	pt3dadd(205.229, 275.323, 52.3366, 0.51771)
	pt3dadd(205.068, 275.091, 52.4978, 0.461424)
	pt3dadd(204.823, 274.715, 52.3289, 0.282026)
	pt3dadd(204.681, 274.475, 52.1931, 0.247174)
	pt3dadd(204.497, 274.151, 52.1977, 0.2)
	pt3dadd(204.406, 273.955, 52.2551, 0.2)
	pt3dadd(204.315, 273.7, 52.2713, 0.29414)
	pt3dadd(204.214, 273.446, 52.1845, 0.604918)
	pt3dadd(203.901, 273.052, 51.863, 0.589402)
	pt3dadd(203.645, 272.802, 51.9546, 0.569504)
	pt3dadd(203.307, 272.49, 51.987, 0.567076)
	pt3dadd(203.173, 272.212, 52.1702, 0.818288)
	pt3dadd(202.772, 271.745, 52.0389, 0.903224)
	pt3dadd(202.494, 271.388, 51.9504, 1.11263)
	pt3dadd(202.071, 270.281, 51.6027, 1.00986)
	pt3dadd(201.767, 269.56, 51.3536, 0.44149)
	pt3dadd(201.672, 269.307, 51.2195, 0.39319)
	pt3dadd(201.597, 269.023, 51.1839, 0.2)
	pt3dadd(201.459, 268.755, 51.1459, 0.426532)
	pt3dadd(201.279, 268.504, 51.2344, 0.49248)
	pt3dadd(200.946, 268.209, 51.1841, 0.494284)
	pt3dadd(200.555, 268.023, 51.4303, 0.812158)
	pt3dadd(200.276, 267.69, 51.5083, 1.05652)
	pt3dadd(200.026, 267.116, 51.5164, 1.03192)
	pt3dadd(199.524, 266.403, 51.2541, 0.952232)
	pt3dadd(199.424, 265.718, 51.4296, 0.34405)
	pt3dadd(199.377, 265.415, 51.424, 0.543698)
	pt3dadd(199.101, 265.103, 51.4898, 0.454488)
	pt3dadd(198.884, 264.826, 51.3113, 0.458614)
	pt3dadd(198.659, 264.559, 51.1012, 0.676388)
	pt3dadd(198.325, 264.191, 51.2085, 0.2)
	pt3dadd(198.101, 263.397, 51.8821, 0.486262)
	pt3dadd(197.86, 263.112, 51.9225, 0.251992)
	pt3dadd(197.648, 262.856, 51.9424, 0.219716)
	pt3dadd(197.443, 262.636, 51.9988, 0.2)
	pt3dadd(196.873, 262.139, 52.0388, 0.556412)
	pt3dadd(196.701, 261.856, 52.0209, 0.527706)
	pt3dadd(196.414, 261.496, 52.0097, 0.438926)
	pt3dadd(196.174, 261.158, 52.0662, 0.6089)
	pt3dadd(195.955, 260.833, 52.0658, 0.765208)
	pt3dadd(195.451, 260.006, 52.1642, 1.23901)
  }
}
proc shape3d_20() {
  dend[38] {	pt3dadd(195.068, 259.361, 52.351, 1.2532)
	pt3dadd(194.91, 258.878, 52.3716, 0.973954)
	pt3dadd(194.676, 258.261, 52.6304, 1.11028)
	pt3dadd(194.413, 257.706, 52.8586, 0.85439)
	pt3dadd(194.261, 257.279, 52.8573, 0.453122)
	pt3dadd(194.156, 256.878, 53.0457, 0.373472)
	pt3dadd(191.262, 251.913, 54.003, 1.07196)
	pt3dadd(190.953, 251.137, 54.1937, 0.588534)
	pt3dadd(190.52, 250.955, 54.3737, 1.37005)
	pt3dadd(189.845, 250.299, 54.6888, 0.397232)
	pt3dadd(189.754, 250.13, 54.9168, 0.478818)
	pt3dadd(189.631, 249.78, 55.1017, 0.241722)
	pt3dadd(189.549, 249.577, 55.1825, 0.2)
	pt3dadd(189.393, 249.363, 55.2693, 0.2)
	pt3dadd(189.229, 249.124, 55.2873, 0.257882)
	pt3dadd(189.091, 248.86, 55.2816, 0.589704)
	pt3dadd(188.831, 248.577, 55.4423, 0.828318)
	pt3dadd(188.617, 248.197, 55.6489, 0.811496)
	pt3dadd(188.485, 247.743, 55.8699, 0.836334)
	pt3dadd(188.292, 247.345, 55.9877, 0.768834)
	pt3dadd(188.276, 246.899, 56.1738, 0.41419)
	pt3dadd(188.243, 246.635, 56.1912, 0.2)
	pt3dadd(188.301, 246.355, 56.3367, 0.2)
	pt3dadd(187.167, 245.252, 56.5161, 1.08228)
	pt3dadd(186.801, 244.639, 56.7371, 0.819082)
	pt3dadd(186.475, 244.338, 56.8272, 0.608718)
	pt3dadd(186.197, 244, 56.8226, 0.690414)
	pt3dadd(185.787, 243.864, 56.8295, 0.611322)
	pt3dadd(185.174, 243.297, 57.213, 0.788776)
	pt3dadd(185.165, 242.592, 57.2146, 0.821738)
	pt3dadd(184.859, 242.202, 57.223, 0.451976)
	pt3dadd(183.489, 240.031, 58.3043, 0.654998)
	pt3dadd(182.986, 239.716, 58.7396, 0.630564)
	pt3dadd(182.789, 239.466, 58.8276, 0.533394)
	pt3dadd(182.594, 239.23, 58.8909, 0.40204)
	pt3dadd(182.387, 239.041, 59.0317, 0.478222)
	pt3dadd(181.704, 237.651, 59.2573, 1.18325)
	pt3dadd(180.952, 236.998, 59.1714, 1.40837)
	pt3dadd(180.291, 236.093, 59.5655, 0.74328)
	pt3dadd(179.529, 235.675, 59.8481, 0.619988)
	pt3dadd(179.307, 235.442, 59.9642, 0.661922)
	pt3dadd(178.961, 235.158, 60.0773, 0.73265)
	pt3dadd(178.637, 234.867, 60.1159, 0.91997)
	pt3dadd(175.382, 230.353, 61.3954, 0.697342)
	pt3dadd(174.911, 230.113, 61.6425, 1.0761)
	pt3dadd(174.362, 229.555, 61.7304, 0.575326)
	pt3dadd(174.162, 229.272, 61.7419, 0.526818)
	pt3dadd(174.03, 228.935, 61.7316, 0.496728)
	pt3dadd(173.892, 228.51, 61.8631, 0.455792)
	pt3dadd(173.787, 228.263, 61.9248, 0.288158)
	pt3dadd(173.54, 227.99, 61.8497, 0.361626)
	pt3dadd(173.363, 227.808, 61.8252, 0.24326)
	pt3dadd(173.191, 227.682, 61.8085, 0.233848)
	pt3dadd(172.501, 227.007, 61.3107, 0.643902)
	pt3dadd(172.311, 226.979, 61.5548, 0.47963)
	pt3dadd(172.03, 226.782, 61.9293, 0.638322)
	pt3dadd(170.667, 224.763, 61.9957, 0.352284)
	pt3dadd(170.298, 224.318, 61.8405, 1.20079)
	pt3dadd(170.158, 223.622, 61.537, 0.89928)
	pt3dadd(170.064, 223.124, 61.3272, 0.796768)
	pt3dadd(169.841, 222.787, 61.2834, 0.569064)
	pt3dadd(169.591, 222.459, 61.3153, 0.598372)
	pt3dadd(169.35, 222.114, 61.2892, 0.639398)
	pt3dadd(169.096, 221.776, 61.4012, 0.879516)
	pt3dadd(168.601, 221.245, 61.9184, 0.95858)
	pt3dadd(168.131, 220.737, 61.8217, 0.2)
	pt3dadd(167.966, 220.569, 61.8156, 0.2)
	pt3dadd(167.774, 220.396, 61.834, 0.2)
	pt3dadd(167.241, 219.469, 62.072, 0.319134)
	pt3dadd(167.128, 219.31, 62.0363, 0.2)
	pt3dadd(166.982, 219.087, 62.0391, 0.235866)
	pt3dadd(166.733, 218.338, 62.3408, 0.83231)
	pt3dadd(166.107, 218.005, 62.6515, 0.313352)
	pt3dadd(165.827, 217.781, 62.7086, 0.354354)
	pt3dadd(165.66, 217.564, 62.8151, 0.37952)
	pt3dadd(165.474, 217.233, 62.8352, 0.5247)
	pt3dadd(165.255, 216.99, 62.9112, 0.554172)
	pt3dadd(163.844, 215.715, 63.3298, 0.2)
	pt3dadd(163.764, 215.484, 63.4037, 0.204724)
	pt3dadd(162.99, 215.048, 63.4358, 0.703338)
	pt3dadd(162.629, 214.793, 63.5046, 0.670574)
	pt3dadd(162.372, 214.467, 63.6055, 0.647992)
	pt3dadd(161.899, 213.811, 63.8621, 0.944286)
	pt3dadd(160.072, 210.949, 64.8626, 0.558726)
	pt3dadd(159.814, 210.735, 65.1128, 0.593216)
	pt3dadd(158.607, 209.394, 65.8, 0.2)
	pt3dadd(158.493, 209.197, 65.8142, 0.688446)
	pt3dadd(158.34, 207.085, 66.5452, 0.2)
	pt3dadd(158.22, 206.892, 66.6905, 0.214728)
	pt3dadd(158.121, 206.592, 66.8284, 0.477584)
	pt3dadd(158.108, 206.301, 67.0722, 0.634248)
	pt3dadd(158.121, 205.947, 67.6008, 0.537356)
	pt3dadd(158.058, 205.8, 67.8635, 0.62467)
	pt3dadd(157.964, 205.699, 68.2951, 0.540894)
	pt3dadd(157.766, 205.663, 68.6271, 0.419304)
	pt3dadd(157.085, 205.146, 69.2009, 1.19634)
  }
  dend_6[21] {pt3dclear()
	pt3dadd(157.085, 205.146, 69.2009, 1.19634)
	pt3dadd(155.304, 202.243, 70.8756, 0.72957)
  }
  dend[39] {pt3dclear()
	pt3dadd(205.771, 276.757, 51.946, 1.56251)
	pt3dadd(205.044, 277.016, 51.4739, 0.948598)
	pt3dadd(204.385, 277.039, 51.2442, 0.851524)
	pt3dadd(203.635, 277.008, 51.1076, 0.633054)
	pt3dadd(203.346, 276.906, 50.9281, 0.434278)
	pt3dadd(203.068, 276.865, 50.6713, 0.423062)
	pt3dadd(202.828, 276.8, 50.4867, 0.495702)
	pt3dadd(202.371, 276.713, 50.5565, 0.497054)
	pt3dadd(202.047, 276.706, 50.5197, 0.451332)
	pt3dadd(201.816, 276.633, 50.5076, 0.457868)
	pt3dadd(201.573, 276.619, 50.5358, 0.357352)
	pt3dadd(201.243, 276.611, 50.5381, 0.516558)
	pt3dadd(200.944, 276.684, 50.4068, 0.56372)
	pt3dadd(200.565, 276.706, 50.3211, 0.61077)
	pt3dadd(200.16, 276.677, 50.0612, 0.6218)
	pt3dadd(199.723, 276.677, 49.7849, 1.02345)
	pt3dadd(199.014, 276.235, 49.2927, 0.788776)
	pt3dadd(198.143, 275.863, 49.3957, 0.862324)
	pt3dadd(197.562, 275.668, 49.0784, 0.380326)
	pt3dadd(197.29, 275.617, 48.8562, 0.227854)
	pt3dadd(197.073, 275.585, 48.693, 0.264574)
	pt3dadd(196.72, 275.582, 48.622, 0.311524)
	pt3dadd(196.425, 275.705, 48.6402, 0.552856)
	pt3dadd(196.105, 275.716, 48.2952, 0.557006)
	pt3dadd(195.855, 275.705, 48.0336, 0.587128)
	pt3dadd(195.624, 275.726, 47.7762, 0.916418)
	pt3dadd(194.977, 275.644, 47.2304, 0.918684)
	pt3dadd(194.414, 275.423, 46.9905, 1.08792)
	pt3dadd(193.41, 275.39, 46.9875, 1.36425)
	pt3dadd(192.734, 275.663, 46.8602, 0.858286)
	pt3dadd(191.829, 275.752, 46.5222, 0.859358)
	pt3dadd(191.149, 275.779, 46.1787, 0.302906)
	pt3dadd(190.877, 275.788, 46.1036, 0.324544)
	pt3dadd(190.617, 275.776, 46.0214, 0.376406)
	pt3dadd(190.377, 275.735, 45.893, 0.398372)
	pt3dadd(190.084, 275.636, 45.6849, 0.327872)
	pt3dadd(189.852, 275.576, 45.5476, 0.370794)
	pt3dadd(189.605, 275.51, 45.3882, 0.513122)
	pt3dadd(189.301, 275.597, 45.279, 0.838342)
	pt3dadd(188.895, 275.563, 45.587, 0.715696)
	pt3dadd(188.353, 275.513, 45.993, 0.578052)
	pt3dadd(187.978, 275.405, 45.9918, 0.21516)
	pt3dadd(187.768, 275.379, 45.9674, 0.2)
	pt3dadd(187.511, 275.376, 45.9866, 0.3681)
	pt3dadd(187.231, 275.374, 46.005, 0.779916)
	pt3dadd(186.44, 275.352, 45.6331, 1.2802)
	pt3dadd(185.483, 275.429, 45.0281, 1.08682)
	pt3dadd(184.738, 275.323, 44.5676, 0.545952)
	pt3dadd(184.401, 275.406, 44.4296, 0.518394)
	pt3dadd(184.174, 275.603, 44.2239, 0.770234)
	pt3dadd(183.372, 275.485, 44.0724, 0.524068)
	pt3dadd(183.01, 275.552, 43.9611, 0.535736)
	pt3dadd(182.671, 275.65, 43.77, 0.47629)
	pt3dadd(182.395, 275.578, 43.5809, 0.738452)
	pt3dadd(181.98, 275.521, 43.6628, 0.521484)
	pt3dadd(181.551, 275.506, 43.6554, 0.956482)
	pt3dadd(180.698, 275.407, 43.4884, 1.32217)
	pt3dadd(179.652, 275.289, 43.2692, 1.06921)
	pt3dadd(178.689, 275.055, 43.0844, 1.03597)
	pt3dadd(177.927, 274.739, 42.6809, 0.93088)
	pt3dadd(177.031, 274.643, 42.5053, 0.879512)
	pt3dadd(176.575, 274.661, 42.6955, 1.00024)
	pt3dadd(176.088, 274.651, 42.9252, 1.11232)
	pt3dadd(175.047, 274.423, 42.6842, 0.75543)
	pt3dadd(174.296, 274.54, 42.6155, 0.443424)
	pt3dadd(174.006, 274.736, 42.4756, 0.846972)
	pt3dadd(173.511, 274.518, 42.6863, 0.528116)
	pt3dadd(173.165, 274.485, 42.7641, 0.4467)
	pt3dadd(172.824, 274.472, 42.8522, 0.526276)
	pt3dadd(172.475, 274.422, 42.9859, 0.719048)
	pt3dadd(171.803, 274.244, 42.5738, 0.520642)
	pt3dadd(171.356, 274.221, 42.6575, 0.266288)
	pt3dadd(171.118, 274.254, 42.621, 0.25746)
	pt3dadd(170.909, 274.23, 42.6122, 0.362806)
	pt3dadd(170.652, 274.267, 42.6271, 0.467978)
	pt3dadd(170.403, 274.107, 42.5916, 0.38287)
	pt3dadd(170.159, 274.01, 42.5686, 0.266942)
	pt3dadd(169.872, 273.976, 42.5535, 0.25531)
	pt3dadd(169.546, 273.896, 42.5735, 0.334374)
	pt3dadd(169.228, 273.869, 42.6621, 0.560768)
	pt3dadd(168.901, 273.901, 42.8076, 1.10403)
	pt3dadd(168.1, 274.002, 42.6144, 0.797348)
	pt3dadd(167.312, 273.977, 42.816, 0.853636)
	pt3dadd(167.033, 273.781, 43.1589, 0.980122)
	pt3dadd(166.434, 273.754, 43.1909, 0.306262)
	pt3dadd(166.175, 273.699, 43.295, 0.33835)
	pt3dadd(165.854, 273.684, 43.4376, 0.64989)
	pt3dadd(165.382, 273.902, 43.648, 0.62424)
	pt3dadd(165.013, 274.102, 43.7829, 0.946456)
	pt3dadd(164.643, 274.393, 44.1338, 0.990724)
	pt3dadd(164.243, 274.602, 44.4395, 1.60064)
	pt3dadd(163.546, 274.902, 44.7939, 1.27189)
	pt3dadd(162.72, 275.551, 45.1932, 1.4881)
	pt3dadd(162.129, 276.082, 45.0807, 1.07646)
	pt3dadd(161.257, 276.316, 44.9262, 0.697242)
	pt3dadd(160.837, 276.27, 44.8236, 0.779082)
	pt3dadd(160.292, 276.461, 44.4616, 0.402982)
	pt3dadd(160.005, 276.661, 44.2646, 0.391522)
	pt3dadd(159.816, 276.818, 44.1216, 0.478868)
	pt3dadd(159.52, 276.952, 43.941, 0.62465)
	pt3dadd(159.282, 277.103, 43.7992, 0.731804)
	pt3dadd(159.028, 277.437, 43.8094, 0.479506)
  }
}
proc shape3d_21() {
  dend[39] {	pt3dadd(158.489, 277.695, 43.6259, 0.363892)
	pt3dadd(158.293, 277.691, 43.5271, 0.394496)
	pt3dadd(158.042, 277.701, 43.3819, 0.497882)
	pt3dadd(157.765, 278.015, 43.2943, 0.349664)
	pt3dadd(157.456, 278.133, 43.131, 0.6361)
	pt3dadd(156.995, 278.085, 43.2437, 0.513122)
	pt3dadd(156.682, 278.059, 43.2304, 0.485604)
	pt3dadd(156.295, 278.024, 42.9792, 0.484308)
	pt3dadd(155.956, 278.06, 42.7329, 0.707612)
	pt3dadd(155.49, 278.009, 42.9329, 0.627418)
	pt3dadd(155.114, 278.088, 43.009, 0.634374)
	pt3dadd(154.655, 278.149, 42.9379, 0.715568)
	pt3dadd(154.232, 278.07, 42.9346, 0.997522)
	pt3dadd(153.745, 278.043, 42.676, 1.07428)
	pt3dadd(152.917, 277.681, 42.5233, 0.924308)
	pt3dadd(152.197, 277.455, 42.4859, 0.820582)
	pt3dadd(151.972, 277.173, 42.4436, 0.795572)
	pt3dadd(147.903, 276.879, 42.3625, 0.93457)
	pt3dadd(147.636, 276.646, 42.6027, 0.752928)
	pt3dadd(147.073, 276.434, 42.4254, 0.305996)
	pt3dadd(146.861, 276.525, 42.4132, 0.805218)
	pt3dadd(146.417, 276.935, 41.9453, 0.493682)
	pt3dadd(146.2, 277.01, 41.7755, 0.470338)
	pt3dadd(145.917, 277.057, 41.6367, 0.535452)
	pt3dadd(145.632, 277.019, 41.5246, 0.325344)
	pt3dadd(145.402, 276.991, 41.418, 0.269166)
	pt3dadd(145.07, 277.018, 41.333, 0.449434)
	pt3dadd(144.748, 277.116, 41.3272, 0.553834)
	pt3dadd(144.259, 277.135, 41.1526, 0.515114)
	pt3dadd(143.859, 277.059, 40.8506, 0.476026)
	pt3dadd(143.641, 277.186, 40.7266, 0.2)
	pt3dadd(143.416, 277.267, 40.7053, 0.2)
	pt3dadd(143.145, 277.36, 40.7016, 0.433396)
	pt3dadd(142.878, 277.351, 40.5556, 0.523492)
	pt3dadd(142.592, 277.443, 40.3284, 0.71757)
	pt3dadd(142.349, 277.699, 40.1172, 0.673372)
	pt3dadd(142.185, 278.037, 40.0525, 0.606634)
	pt3dadd(141.791, 278.331, 40.1064, 0.6599)
	pt3dadd(141.311, 278.502, 40.0395, 0.908352)
	pt3dadd(140.155, 278.341, 39.9153, 0.53095)
	pt3dadd(139.819, 278.369, 39.7355, 0.402512)
	pt3dadd(138.322, 278.509, 40.1526, 0.556514)
	pt3dadd(137.886, 278.342, 39.9684, 0.770748)
	pt3dadd(136.93, 278.28, 39.6704, 1.65256)
	pt3dadd(136.247, 278.1, 39.4204, 1.35281)
	pt3dadd(135.502, 278.041, 39.2286, 0.667054)
	pt3dadd(135.224, 278.112, 39.0878, 0.56836)
	pt3dadd(134.888, 278.071, 38.9463, 0.460314)
	pt3dadd(134.648, 278.018, 38.7958, 0.331632)
	pt3dadd(134.345, 277.945, 38.5568, 0.505888)
	pt3dadd(133.875, 277.697, 38.5794, 0.2)
	pt3dadd(133.608, 277.605, 38.4924, 0.252746)
	pt3dadd(133.357, 277.619, 38.4206, 0.49911)
	pt3dadd(132.794, 277.571, 38.1835, 0.69715)
	pt3dadd(132.469, 277.578, 37.99, 0.502626)
	pt3dadd(132.239, 277.593, 37.888, 0.402208)
	pt3dadd(131.901, 277.606, 37.7603, 0.324446)
	pt3dadd(131.623, 277.617, 37.8005, 0.2)
	pt3dadd(131.265, 277.681, 37.7319, 0.50708)
	pt3dadd(130.579, 277.761, 37.5441, 0.841834)
	pt3dadd(130.022, 277.681, 37.5228, 0.518798)
	pt3dadd(129.597, 277.649, 37.351, 0.464508)
	pt3dadd(129.298, 277.589, 37.065, 0.427364)
	pt3dadd(127.238, 276.462, 36.3978, 0.783478)
	pt3dadd(126.372, 276.358, 36.0504, 1.16008)
	pt3dadd(125.531, 276.5, 35.5115, 0.394944)
	pt3dadd(125.282, 276.541, 35.3113, 0.496902)
	pt3dadd(124.706, 276.67, 35.3083, 0.265812)
	pt3dadd(124.574, 276.774, 35.3069, 0.239066)
	pt3dadd(124.333, 276.91, 35.3639, 0.2)
	pt3dadd(124.05, 276.976, 35.3813, 0.2)
	pt3dadd(123.899, 277.111, 35.2727, 0.56717)
	pt3dadd(123.589, 277.136, 35.0679, 0.793992)
	pt3dadd(123.162, 277.536, 34.8361, 1.19671)
	pt3dadd(122.318, 277.874, 34.8275, 0.574244)
	pt3dadd(122.006, 277.909, 34.7924, 0.462616)
	pt3dadd(121.652, 277.954, 34.5004, 0.260376)
	pt3dadd(120.614, 277.894, 34.3319, 0.472894)
	pt3dadd(120.396, 277.793, 34.1368, 0.455168)
	pt3dadd(120.111, 277.713, 33.9629, 0.523228)
	pt3dadd(119.748, 277.795, 33.6774, 0.789172)
	pt3dadd(118.101, 278.581, 33.3413, 0.587966)
	pt3dadd(117.844, 278.775, 33.2131, 0.678386)
	pt3dadd(117.166, 278.946, 33.3853, 0.390966)
	pt3dadd(116.798, 279.021, 33.4373, 0.355806)
	pt3dadd(116.202, 279.441, 33.2491, 0.817592)
	pt3dadd(115.588, 279.238, 33.0574, 0.334792)
	pt3dadd(115.362, 279.218, 32.9864, 0.2)
	pt3dadd(115.045, 279.292, 32.848, 0.449524)
	pt3dadd(114.445, 279.484, 32.5887, 0.879442)
	pt3dadd(113.647, 279.693, 32.3617, 1.23669)
	pt3dadd(113.101, 279.924, 32.2406, 0.91018)
	pt3dadd(112.753, 280.106, 32.0746, 0.7202)
	pt3dadd(112.334, 280.141, 32.106, 0.490592)
	pt3dadd(112.024, 280.177, 32.0928, 0.273838)
	pt3dadd(111.698, 280.211, 31.9006, 0.290728)
	pt3dadd(111.467, 280.188, 31.823, 0.281824)
	pt3dadd(111.156, 280.183, 31.8197, 0.277352)
	pt3dadd(110.89, 280.196, 31.7265, 0.306732)
	pt3dadd(110.592, 280.212, 31.5194, 0.303314)
	pt3dadd(110.18, 280.355, 31.3732, 0.2)
	pt3dadd(109.9, 280.359, 31.3186, 0.27691)
	pt3dadd(109.354, 280.408, 31.2151, 0.802366)
	pt3dadd(109.066, 280.607, 31.0965, 0.736608)
	pt3dadd(108.694, 280.694, 30.837, 0.542132)
	pt3dadd(108.424, 280.809, 30.6994, 0.326778)
	pt3dadd(108.115, 280.851, 30.6986, 0.32323)
	pt3dadd(107.041, 281.005, 30.3616, 0.303466)
	pt3dadd(106.742, 281.02, 30.1415, 0.375624)
	pt3dadd(106.446, 281.047, 30.0098, 0.466734)
	pt3dadd(105.699, 280.84, 29.7641, 1.16283)
	pt3dadd(104.978, 280.77, 29.4532, 0.802144)
	pt3dadd(104.608, 280.606, 29.3325, 0.483534)
	pt3dadd(104.179, 280.52, 29.2934, 0.381966)
	pt3dadd(103.9, 280.356, 29.1301, 0.512134)
	pt3dadd(103.557, 280.24, 28.7856, 0.534212)
	pt3dadd(103.172, 279.999, 28.6524, 0.459714)
	pt3dadd(102.924, 279.873, 28.3126, 0.35146)
	pt3dadd(102.515, 279.885, 28.0221, 0.394604)
	pt3dadd(101.958, 279.762, 27.8746, 0.226016)
	pt3dadd(101.636, 279.774, 27.7485, 0.567852)
	pt3dadd(101.4, 279.887, 27.5873, 0.503174)
	pt3dadd(101.048, 279.813, 27.5618, 0.2)
	pt3dadd(100.701, 279.736, 27.5077, 0.48854)
	pt3dadd(99.9074, 279.63, 27.5454, 0.901166)
	pt3dadd(99.1674, 279.748, 27.7764, 0.610484)
	pt3dadd(97.6003, 279.227, 27.9692, 0.757662)
	pt3dadd(96.8144, 279.433, 27.7889, 0.427058)
	pt3dadd(96.5453, 279.46, 27.7362, 0.4311)
	pt3dadd(96.3095, 279.46, 27.6056, 0.499986)
	pt3dadd(96.0881, 279.494, 27.497, 0.509654)
	pt3dadd(93.5387, 279.817, 27.4145, 0.780198)
	pt3dadd(93.1959, 279.997, 27.3745, 0.839106)
	pt3dadd(92.8693, 280.293, 27.1683, 1.3066)
	pt3dadd(92.061, 280.234, 26.6002, 0.70767)
	pt3dadd(91.6984, 280.176, 26.5136, 0.239528)
	pt3dadd(91.4193, 280.208, 26.455, 0.2)
	pt3dadd(89.6164, 280.165, 26.571, 0.793676)
	pt3dadd(89.1796, 280.298, 26.2184, 0.622676)
	pt3dadd(88.7561, 280.371, 26.1303, 0.2)
	pt3dadd(87.7807, 280.296, 25.9764, 0.4953)
	pt3dadd(87.5351, 280.388, 25.8539, 0.460542)
	pt3dadd(87.3118, 280.441, 25.7702, 0.449302)
	pt3dadd(86.8567, 280.398, 25.7909, 0.2)
	pt3dadd(86.6415, 280.519, 25.7667, 0.389938)
	pt3dadd(86.4046, 280.473, 25.723, 0.541668)
	pt3dadd(85.7733, 280.377, 25.6528, 0.717712)
	pt3dadd(85.3907, 280.303, 25.747, 0.733436)
	pt3dadd(84.6764, 280.035, 25.9322, 0.707976)
	pt3dadd(84.2094, 280.239, 25.8876, 0.311196)
	pt3dadd(83.8972, 280.203, 25.8202, 0.345156)
	pt3dadd(83.7253, 280.188, 25.8677, 0.225906)
  }
  dend_6[22] {pt3dclear()
	pt3dadd(83.7253, 280.188, 25.8677, 0.225906)
	pt3dadd(83.5634, 280.188, 25.8791, 0.2)
  }
  dend[40] {pt3dclear()
	pt3dadd(265.716, 272.471, 44.8254, 1.81244)
	pt3dadd(258.39, 279.38, 44.69, 1.81244)
	pt3dadd(257.752, 280.241, 44.4994, 1.03923)
	pt3dadd(257.162, 280.924, 44.1886, 0.999352)
	pt3dadd(256.564, 281.393, 43.8101, 1.02789)
	pt3dadd(255.911, 281.629, 43.3894, 1.13744)
	pt3dadd(255.148, 281.794, 43.1471, 1.52666)
	pt3dadd(254.262, 282.079, 43.034, 1.34277)
	pt3dadd(253.575, 282.658, 42.9549, 1.03073)
	pt3dadd(252.961, 283.206, 42.9296, 1.10058)
	pt3dadd(252.23, 283.477, 42.8554, 1.02709)
	pt3dadd(251.486, 283.772, 42.7199, 0.93581)
	pt3dadd(250.804, 284.156, 42.5476, 0.756348)
	pt3dadd(250.462, 284.375, 42.45, 0.898992)
	pt3dadd(249.775, 284.518, 42.0932, 0.960236)
	pt3dadd(249.037, 284.703, 41.745, 1.18032)
	pt3dadd(248.261, 284.929, 41.5704, 0.951446)
	pt3dadd(247.797, 285.095, 41.4554, 0.955444)
	pt3dadd(246.898, 285.47, 41.1838, 1.0556)
	pt3dadd(246.401, 285.635, 40.8633, 1.27198)
	pt3dadd(245.639, 286.231, 40.325, 1.22243)
	pt3dadd(244.901, 286.596, 39.9687, 0.788882)
	pt3dadd(244.19, 286.751, 39.7667, 0.866136)
	pt3dadd(243.361, 286.96, 39.6101, 1.26321)
	pt3dadd(242.488, 287.236, 39.5265, 1.52368)
  }
  dend_5[15] {pt3dclear()
	pt3dadd(242.488, 287.236, 39.5265, 1.52368)
	pt3dadd(240.978, 287.906, 38.8589, 1.37669)
  }
  dend[41] {pt3dclear()
	pt3dadd(240.978, 287.906, 38.8589, 1.37669)
	pt3dadd(240.479, 287.788, 38.1726, 0.808878)
	pt3dadd(240.185, 287.881, 37.8404, 0.957092)
	pt3dadd(239.78, 288.109, 37.5367, 0.849428)
	pt3dadd(239.215, 288.586, 37.063, 0.835108)
	pt3dadd(238.674, 289.034, 36.6685, 0.85926)
	pt3dadd(238.322, 289.245, 36.3697, 0.984528)
	pt3dadd(237.892, 289.118, 35.8419, 0.861668)
	pt3dadd(237.598, 289.107, 35.4783, 0.918538)
	pt3dadd(236.924, 289.304, 34.8589, 1.0271)
	pt3dadd(236.584, 289.346, 34.4007, 1.31674)
	pt3dadd(236.224, 289.348, 33.4015, 1.31791)
	pt3dadd(235.748, 289.525, 32.358, 1.40648)
	pt3dadd(235.208, 289.658, 31.6514, 1.72412)
	pt3dadd(234.71, 289.799, 30.5796, 1.49348)
	pt3dadd(234.075, 289.949, 29.5594, 0.840702)
	pt3dadd(233.785, 289.943, 29.2272, 0.906788)
	pt3dadd(233.075, 290.008, 28.7099, 1.02094)
	pt3dadd(232.749, 290.023, 28.313, 1.19207)
  }
}
proc shape3d_22() {
  dend[41] {	pt3dadd(232.169, 289.902, 27.9523, 1.25658)
  }
  dend_5[16] {pt3dclear()
	pt3dadd(232.169, 289.902, 27.9523, 1.25658)
	pt3dadd(230.69, 290.433, 26.6934, 2.00931)
  }
  dend[42] {pt3dclear()
	pt3dadd(230.69, 290.433, 26.6934, 2.00931)
	pt3dadd(230.734, 291.685, 25.9778, 0.562124)
	pt3dadd(230.612, 292.049, 25.7743, 0.481528)
	pt3dadd(230.48, 292.264, 25.4944, 0.675096)
	pt3dadd(230.38, 292.475, 25.2385, 0.693882)
	pt3dadd(230.362, 292.731, 24.9948, 0.500354)
	pt3dadd(230.293, 292.961, 24.7647, 0.679588)
	pt3dadd(230.121, 293.193, 24.474, 0.943314)
	pt3dadd(229.982, 293.668, 23.9367, 1.18349)
	pt3dadd(229.579, 294.082, 23.4752, 0.838064)
	pt3dadd(229.231, 294.415, 23.2408, 0.686848)
	pt3dadd(229.149, 295.016, 22.7902, 0.541468)
	pt3dadd(228.703, 295.383, 22.4642, 0.78447)
	pt3dadd(228.336, 295.243, 22.0979, 1.01962)
	pt3dadd(227.818, 295.818, 21.4743, 0.886356)
	pt3dadd(227.375, 296.048, 21.3363, 0.57088)
	pt3dadd(226.975, 296.363, 20.807, 0.93941)
	pt3dadd(226.805, 296.716, 20.4858, 1.32665)
	pt3dadd(225.857, 296.979, 19.7674, 1.02885)
	pt3dadd(225.572, 297.395, 19.6111, 0.871064)
	pt3dadd(225.197, 297.677, 19.4256, 0.913434)
	pt3dadd(225.062, 298.006, 19.1153, 0.810324)
	pt3dadd(224.862, 298.146, 18.5143, 0.607502)
	pt3dadd(224.571, 298.287, 18.0317, 0.571782)
	pt3dadd(224.032, 298.526, 17.5995, 0.554196)
	pt3dadd(223.708, 298.607, 17.3066, 0.75647)
	pt3dadd(223.432, 298.692, 17.0248, 0.803522)
	pt3dadd(223.289, 298.928, 16.5424, 1.00566)
	pt3dadd(222.824, 299.221, 16.0126, 0.747816)
	pt3dadd(222.594, 299.596, 15.8093, 0.999026)
	pt3dadd(222.204, 299.812, 15.5143, 1.25668)
	pt3dadd(221.822, 300.364, 14.8894, 1.09701)
	pt3dadd(221.596, 300.756, 14.5194, 0.94386)
	pt3dadd(221.148, 301.472, 14.1979, 1.05115)
	pt3dadd(220.833, 301.901, 13.1623, 0.994548)
	pt3dadd(220.575, 302.389, 12.8191, 0.607522)
	pt3dadd(220.279, 302.705, 12.619, 0.913474)
	pt3dadd(219.928, 302.898, 12.2806, 0.909576)
	pt3dadd(219.54, 303.114, 11.9226, 1.02874)
	pt3dadd(219.33, 303.268, 11.4614, 1.04739)
	pt3dadd(218.883, 303.688, 10.9993, 1.00767)
	pt3dadd(218.501, 303.958, 10.732, 1.1347)
	pt3dadd(218.193, 304.48, 10.6116, 1.22087)
	pt3dadd(217.769, 305.119, 10.3719, 1.03181)
	pt3dadd(217.686, 306.097, 10.115, 0.553658)
	pt3dadd(217.735, 306.72, 9.86153, 1.17591)
	pt3dadd(217.8, 307.512, 8.74013, 0.590262)
	pt3dadd(218.147, 307.823, 8.26186, 0.645302)
	pt3dadd(218.286, 308.144, 7.90032, 0.987846)
	pt3dadd(218.353, 308.724, 7.6538, 0.714658)
	pt3dadd(218.313, 309.036, 7.47568, 0.54831)
	pt3dadd(218.29, 309.297, 7.31659, 0.498296)
	pt3dadd(218.3, 309.622, 7.20165, 0.614718)
	pt3dadd(218.305, 309.977, 7.04246, 0.984646)
	pt3dadd(218.088, 310.592, 6.5347, 1.20207)
	pt3dadd(217.463, 311.522, 6.1016, 1.5667)
	pt3dadd(216.818, 312.209, 5.25927, 1.35352)
	pt3dadd(216.601, 313.15, 4.58482, 0.924498)
	pt3dadd(217.08, 314.092, 4.28438, 1.01045)
	pt3dadd(217.23, 314.493, 3.94759, 0.68712)
  }
  dend_6[23] {pt3dclear()
	pt3dadd(217.23, 314.493, 3.94759, 0.68712)
	pt3dadd(217.26, 314.768, 3.63242, 0.509446)
  }
  dend_5[17] {pt3dclear()
	pt3dadd(230.69, 290.433, 26.6934, 2.00931)
	pt3dadd(229.747, 290.224, 26.3994, 1.47349)
  }
  dend[43] {pt3dclear()
	pt3dadd(229.747, 290.224, 26.3994, 1.47349)
	pt3dadd(229.231, 290.699, 25.4882, 0.60037)
	pt3dadd(228.916, 290.734, 25.0651, 0.58148)
	pt3dadd(228.496, 290.793, 24.6813, 0.704492)
	pt3dadd(228.325, 290.722, 24.1774, 0.73232)
	pt3dadd(227.74, 290.637, 23.8019, 0.828176)
	pt3dadd(227.328, 290.532, 23.495, 0.938838)
	pt3dadd(226.965, 290.702, 22.993, 0.811292)
	pt3dadd(226.601, 290.687, 22.7327, 0.514892)
	pt3dadd(226.327, 290.748, 22.4734, 0.492016)
	pt3dadd(226.068, 290.828, 22.2297, 0.569386)
	pt3dadd(225.765, 290.862, 21.8629, 0.604726)
	pt3dadd(225.529, 290.767, 21.602, 0.621308)
	pt3dadd(225.269, 290.697, 21.3482, 0.596656)
	pt3dadd(225.011, 290.577, 21.0867, 0.743608)
	pt3dadd(224.659, 290.616, 20.5388, 0.704588)
	pt3dadd(224.534, 290.629, 20.1841, 0.742714)
	pt3dadd(224.212, 290.589, 19.9188, 0.773574)
	pt3dadd(223.496, 290.807, 19.4367, 0.663936)
	pt3dadd(223.218, 291.068, 19.2041, 0.936122)
	pt3dadd(222.754, 291.397, 19.0194, 0.781884)
	pt3dadd(222.36, 291.519, 18.8354, 0.93652)
	pt3dadd(221.559, 291.864, 18.337, 1.33574)
	pt3dadd(221.089, 291.806, 17.8593, 1.57773)
	pt3dadd(220.036, 292.048, 17.1973, 0.816456)
	pt3dadd(219.695, 292.163, 16.8473, 0.712018)
	pt3dadd(219.404, 292.181, 16.5409, 0.527276)
	pt3dadd(218.933, 292.58, 16.3181, 0.38492)
	pt3dadd(218.683, 292.768, 16.1326, 0.556838)
	pt3dadd(218.463, 292.967, 15.9643, 0.647472)
	pt3dadd(218.113, 293.036, 15.7897, 0.436644)
	pt3dadd(217.822, 293.238, 15.6413, 0.526892)
	pt3dadd(217.657, 293.478, 15.4866, 0.597966)
	pt3dadd(217.374, 293.614, 15.3575, 0.473618)
	pt3dadd(217.053, 293.832, 15.3255, 0.728844)
	pt3dadd(216.734, 294.03, 15.3674, 1.14821)
	pt3dadd(215.849, 293.714, 15.2354, 1.00364)
	pt3dadd(215.331, 293.604, 14.8264, 1)
	pt3dadd(214.961, 293.228, 14.5194, 1.24438)
	pt3dadd(214.215, 293.319, 14.3907, 0.676254)
	pt3dadd(213.595, 293.466, 13.8562, 0.878812)
	pt3dadd(213.347, 293.401, 13.4778, 0.998214)
	pt3dadd(213.11, 293.41, 12.9876, 1.05509)
	pt3dadd(212.427, 293.448, 12.3316, 1.10328)
	pt3dadd(211.933, 293.76, 11.7865, 1.20784)
	pt3dadd(211.506, 294.037, 11.4389, 1.43514)
	pt3dadd(210.628, 294.868, 10.9635, 0.455116)
	pt3dadd(210.394, 295.205, 10.7963, 0.49935)
	pt3dadd(210.112, 295.509, 10.5275, 0.825708)
	pt3dadd(209.884, 295.762, 10.03, 0.954638)
	pt3dadd(209.489, 296.244, 9.46984, 0.719688)
	pt3dadd(209.304, 296.599, 9.2868, 1.20709)
	pt3dadd(208.546, 297.036, 8.70237, 0.786722)
	pt3dadd(208.243, 297.228, 8.40569, 1.23964)
	pt3dadd(208.124, 297.012, 7.28571, 1.29773)
	pt3dadd(208.596, 297.287, 6.17293, 1.16167)
	pt3dadd(208.822, 297.511, 5.25878, 1.20429)
	pt3dadd(208.769, 297.891, 4.39213, 1.54521)
	pt3dadd(207.792, 298.417, 3.97144, 0.2)
	pt3dadd(207.596, 298.571, 3.96572, 0.2)
	pt3dadd(207.363, 298.742, 3.92725, 0.291582)
	pt3dadd(207.171, 298.882, 3.89573, 0.379772)
  }
  dend_6[24] {pt3dclear()
	pt3dadd(207.171, 298.882, 3.89573, 0.379772)
	pt3dadd(206.938, 299.003, 3.7589, 0.328268)
  }
  dend[44] {pt3dclear()
	pt3dadd(229.747, 290.224, 26.3994, 1.47349)
	pt3dadd(228.921, 289.827, 26.2118, 1.23543)
	pt3dadd(228.425, 289.519, 25.9443, 0.831968)
	pt3dadd(227.722, 289.483, 25.7323, 0.759802)
	pt3dadd(227.351, 289.269, 25.5868, 0.940076)
	pt3dadd(226.22, 288.913, 25.0224, 0.597942)
	pt3dadd(225.909, 288.723, 24.8701, 0.493436)
	pt3dadd(225.592, 288.673, 24.718, 0.45749)
	pt3dadd(225.345, 288.634, 24.5006, 0.58366)
	pt3dadd(224.958, 288.376, 24.4294, 0.353214)
	pt3dadd(224.611, 288.242, 24.3531, 0.483628)
	pt3dadd(224.285, 288.196, 24.2581, 0.825306)
	pt3dadd(223.616, 287.791, 24.092, 1.22631)
	pt3dadd(223.015, 286.951, 23.6047, 0.905714)
	pt3dadd(222.552, 286.597, 23.2648, 0.81281)
	pt3dadd(221.992, 286.406, 22.9264, 0.68508)
	pt3dadd(221.597, 286.019, 22.7846, 0.415144)
	pt3dadd(221.432, 285.71, 22.6359, 0.651146)
	pt3dadd(221.055, 285.542, 22.6414, 0.503762)
	pt3dadd(220.689, 285.428, 22.6532, 0.48125)
	pt3dadd(220.317, 285.282, 22.6537, 0.715016)
	pt3dadd(219.969, 284.971, 22.5948, 1.14936)
	pt3dadd(219.606, 284.902, 22.1115, 1.06597)
	pt3dadd(218.935, 284.739, 21.484, 1.0164)
	pt3dadd(218.527, 284.51, 21.2101, 0.677314)
	pt3dadd(218.152, 284.319, 20.9716, 0.64529)
	pt3dadd(217.642, 284.254, 20.6933, 0.924776)
	pt3dadd(216.924, 283.862, 20.1274, 0.976512)
	pt3dadd(216.506, 283.589, 19.95, 0.628904)
	pt3dadd(216.18, 283.407, 19.82, 0.456068)
	pt3dadd(215.819, 283.205, 19.6326, 0.61294)
	pt3dadd(215.504, 283.019, 19.4385, 0.787314)
	pt3dadd(215.008, 282.635, 19.1994, 0.739564)
	pt3dadd(214.677, 282.325, 19.0808, 0.601906)
	pt3dadd(214.426, 281.953, 18.9802, 1.03028)
	pt3dadd(213.647, 281.394, 18.6376, 1.14642)
	pt3dadd(212.884, 281.122, 18.2298, 1.0812)
	pt3dadd(212.346, 280.811, 18.0348, 0.958068)
	pt3dadd(211.796, 280.664, 18.1823, 0.60546)
	pt3dadd(211.282, 280.406, 18.0135, 0.912266)
	pt3dadd(210.908, 280.09, 17.7469, 0.898694)
	pt3dadd(210.423, 279.755, 17.6544, 0.749156)
	pt3dadd(209.922, 279.302, 17.5822, 0.76881)
	pt3dadd(209.498, 278.982, 17.2688, 0.79063)
	pt3dadd(209.169, 278.612, 16.5775, 1.1969)
	pt3dadd(208.774, 278.652, 16.1107, 0.89671)
	pt3dadd(208.425, 278.505, 15.7688, 0.835482)
	pt3dadd(208.21, 278.098, 15.545, 0.642742)
	pt3dadd(207.954, 277.87, 15.2336, 0.684596)
	pt3dadd(207.669, 277.678, 14.8225, 0.90105)
	pt3dadd(207.481, 277.511, 14.4165, 1.10281)
	pt3dadd(206.901, 277.248, 14.2886, 0.696912)
	pt3dadd(206.477, 277.177, 14.1364, 0.850162)
	pt3dadd(205.91, 277.223, 14.0567, 0.74195)
	pt3dadd(205.485, 277.22, 13.985, 0.677032)
	pt3dadd(205.034, 277.187, 13.9694, 0.641212)
	pt3dadd(204.705, 277.156, 13.9513, 0.654176)
	pt3dadd(204.174, 276.997, 13.7711, 0.771874)
	pt3dadd(203.604, 276.856, 13.423, 1.19606)
	pt3dadd(203.22, 276.487, 13.1194, 1.52677)
	pt3dadd(202.467, 276.32, 12.7813, 1.73169)
	pt3dadd(201.332, 275.784, 12.4915, 0.88876)
	pt3dadd(200.834, 275.395, 12.3335, 1.20644)
	pt3dadd(200.428, 274.747, 12.1979, 1.32857)
	pt3dadd(199.681, 273.971, 11.8275, 0.914936)
	pt3dadd(199.422, 273.585, 11.4778, 0.719974)
	pt3dadd(199.298, 273.244, 11.237, 0.601542)
	pt3dadd(199.05, 272.966, 11.0779, 0.416032)
	pt3dadd(198.863, 272.705, 10.943, 0.59001)
  }
}
proc shape3d_23() {
  dend[44] {	pt3dadd(198.752, 272.252, 10.9415, 0.83952)
	pt3dadd(198.02, 271.983, 10.8256, 0.512542)
	pt3dadd(197.739, 271.774, 10.7886, 0.303892)
	pt3dadd(197.511, 271.507, 10.69, 0.59074)
	pt3dadd(197.104, 271.311, 10.5691, 0.599032)
	pt3dadd(196.729, 271.127, 10.5141, 1.03904)
	pt3dadd(195.959, 270.853, 9.97487, 1.89511)
	pt3dadd(195.314, 270.134, 9.43431, 1.55121)
	pt3dadd(194.727, 269.521, 9.43669, 0.819388)
	pt3dadd(194.5, 269.032, 9.36243, 0.9441)
	pt3dadd(193.807, 268.483, 9.02927, 1.35023)
	pt3dadd(193.263, 268.075, 8.69946, 0.728312)
	pt3dadd(192.991, 267.765, 8.52132, 0.861204)
	pt3dadd(192.458, 267.243, 8.1377, 0.95258)
	pt3dadd(192.001, 266.979, 7.8792, 0.784592)
	pt3dadd(191.334, 266.587, 7.61159, 0.579484)
	pt3dadd(191.008, 266.416, 7.45582, 0.541142)
	pt3dadd(190.79, 266.231, 7.29033, 0.52546)
	pt3dadd(190.477, 266.088, 7.16144, 0.45691)
	pt3dadd(190.184, 265.913, 7.02477, 0.519788)
	pt3dadd(189.909, 265.705, 6.87333, 0.551904)
	pt3dadd(189.73, 265.456, 6.7483, 0.62439)
	pt3dadd(189.393, 265.193, 6.72011, 0.792204)
	pt3dadd(189.005, 265.086, 6.59611, 0.915436)
	pt3dadd(188.334, 264.796, 6.25323, 0.926712)
	pt3dadd(187.914, 264.457, 6.11996, 0.747498)
	pt3dadd(187.319, 264.186, 6.01554, 0.620404)
	pt3dadd(186.921, 264.106, 6.0005, 0.851784)
	pt3dadd(186.321, 263.649, 5.95165, 0.694352)
	pt3dadd(186.047, 263.393, 5.82884, 0.795528)
	pt3dadd(185.341, 262.978, 5.79904, 0.741272)
	pt3dadd(185.057, 262.721, 5.80246, 0.719156)
	pt3dadd(184.689, 262.474, 5.7456, 0.760762)
	pt3dadd(184.303, 262.298, 5.63421, 0.78434)
	pt3dadd(183.876, 262.213, 5.54644, 0.70523)
	pt3dadd(183.457, 262.081, 5.47328, 0.94403)
	pt3dadd(182.974, 261.986, 5.45013, 1.19021)
	pt3dadd(182.301, 261.737, 5.07356, 1.46478)
	pt3dadd(181.507, 261.14, 5.16482, 0.47694)
	pt3dadd(181.183, 260.93, 5.13121, 0.2)
	pt3dadd(180.968, 260.817, 5.16813, 0.2)
	pt3dadd(180.758, 260.769, 5.18282, 0.328824)
	pt3dadd(180.558, 260.722, 5.2427, 0.441454)
	pt3dadd(180.252, 260.668, 5.32717, 0.460416)
	pt3dadd(179.989, 260.552, 5.34864, 0.45196)
	pt3dadd(179.711, 260.503, 5.27505, 0.49766)
	pt3dadd(179.45, 260.494, 5.17116, 0.562226)
	pt3dadd(179.146, 260.271, 5.10761, 0.52639)
	pt3dadd(178.826, 260.083, 5.07686, 0.577004)
	pt3dadd(178.491, 259.804, 5.01131, 0.900616)
	pt3dadd(177.785, 259.438, 4.96704, 1.10477)
	pt3dadd(176.977, 259.171, 4.81002, 1.59014)
	pt3dadd(176.129, 258.67, 4.66759, 1.53381)
	pt3dadd(175.007, 258.226, 4.49388, 0.850892)
	pt3dadd(174.557, 258.132, 4.43437, 0.592346)
	pt3dadd(174.215, 257.953, 4.4689, 0.567484)
	pt3dadd(173.868, 257.774, 4.59974, 0.625054)
	pt3dadd(173.529, 257.591, 4.56295, 0.578702)
	pt3dadd(173.157, 257.343, 4.52446, 0.945524)
	pt3dadd(172.512, 257.268, 4.63349, 0.572468)
	pt3dadd(172.196, 257.17, 4.68195, 0.445862)
	pt3dadd(171.851, 257.161, 4.78103, 0.53686)
	pt3dadd(171.583, 256.828, 4.80204, 0.460094)
	pt3dadd(171.354, 256.452, 4.70317, 0.699756)
  }
  dend_6[25] {pt3dclear()
	pt3dadd(171.354, 256.452, 4.70317, 0.699756)
	pt3dadd(171.317, 256.036, 4.51151, 0.878248)
  }
  dend[45] {pt3dclear()
	pt3dadd(240.978, 287.906, 38.8589, 1.37669)
	pt3dadd(240.385, 288.731, 39.1508, 0.449776)
	pt3dadd(240.138, 288.997, 39.1725, 0.41453)
	pt3dadd(239.808, 289.215, 39.1583, 0.432184)
	pt3dadd(239.445, 289.453, 39.1602, 0.526604)
	pt3dadd(239.134, 289.7, 39.1186, 0.588928)
	pt3dadd(238.8, 289.942, 39.0759, 0.546116)
	pt3dadd(238.485, 290.202, 39.023, 0.529868)
	pt3dadd(238.196, 290.502, 38.9193, 0.65274)
	pt3dadd(237.879, 290.781, 38.821, 0.809936)
	pt3dadd(237.599, 291.069, 38.7438, 0.886322)
	pt3dadd(237.238, 291.318, 38.6749, 0.684872)
	pt3dadd(236.95, 291.505, 38.6083, 0.734628)
	pt3dadd(236.221, 291.653, 38.5497, 0.629816)
	pt3dadd(235.836, 291.809, 38.5784, 0.625046)
	pt3dadd(235.514, 291.882, 38.6493, 0.499566)
	pt3dadd(235.158, 292.038, 38.6928, 0.632602)
	pt3dadd(234.868, 292.211, 38.7129, 0.686158)
	pt3dadd(234.515, 292.402, 38.7599, 0.64766)
	pt3dadd(234.221, 292.637, 38.7544, 0.563576)
	pt3dadd(233.893, 292.865, 38.7669, 0.621718)
	pt3dadd(233.559, 293.102, 38.7758, 0.676202)
	pt3dadd(233.157, 293.225, 38.7575, 0.850652)
	pt3dadd(232.797, 293.564, 38.7141, 0.87572)
	pt3dadd(232.407, 293.908, 38.6805, 0.909988)
	pt3dadd(231.78, 294.336, 38.6501, 0.616404)
	pt3dadd(231.405, 294.59, 38.6689, 0.496424)
	pt3dadd(231.087, 294.844, 38.6816, 0.508928)
	pt3dadd(230.708, 295.122, 38.6767, 0.669878)
	pt3dadd(230.472, 295.46, 38.6588, 0.764708)
	pt3dadd(230.156, 295.775, 38.6834, 0.878036)
	pt3dadd(229.756, 296.066, 38.7039, 1.24315)
  }
  dend_5[18] {pt3dclear()
	pt3dadd(229.756, 296.066, 38.7039, 1.24315)
	pt3dadd(228.916, 296.582, 38.6256, 1.51044)
  }
  dend[46] {pt3dclear()
	pt3dadd(228.916, 296.582, 38.6256, 1.51044)
	pt3dadd(228.001, 296.682, 39.1783, 1.36273)
	pt3dadd(227.284, 296.475, 39.2555, 0.37159)
	pt3dadd(226.837, 296.302, 39.0139, 0.800684)
	pt3dadd(226.302, 296.697, 39.4273, 0.470004)
	pt3dadd(225.966, 296.706, 39.5959, 0.423038)
	pt3dadd(225.707, 296.712, 39.7331, 0.522806)
	pt3dadd(225.366, 296.85, 39.8809, 0.500826)
	pt3dadd(225.08, 296.901, 39.9735, 0.543294)
	pt3dadd(224.747, 296.92, 40.0395, 0.646258)
	pt3dadd(224.423, 296.992, 40.1516, 0.739472)
	pt3dadd(223.708, 297.184, 40.4806, 0.686368)
	pt3dadd(223.234, 297.048, 40.8323, 0.43784)
	pt3dadd(222.92, 296.968, 40.8578, 0.403396)
	pt3dadd(222.573, 296.888, 40.8845, 0.478772)
	pt3dadd(222.204, 296.88, 40.9025, 0.630732)
	pt3dadd(221.546, 296.847, 40.9962, 0.842618)
	pt3dadd(220.743, 296.676, 41.1114, 0.928568)
	pt3dadd(220.25, 296.768, 41.4481, 0.711858)
	pt3dadd(219.939, 296.859, 41.605, 0.56504)
	pt3dadd(219.613, 297.011, 41.6626, 0.368744)
	pt3dadd(219.262, 297.174, 41.6846, 0.541266)
	pt3dadd(218.954, 297.303, 41.6965, 0.593516)
	pt3dadd(218.598, 297.38, 41.73, 0.70576)
	pt3dadd(218.188, 297.505, 41.7889, 0.72146)
	pt3dadd(217.828, 297.907, 41.9214, 0.866788)
	pt3dadd(217.34, 298.189, 42.1396, 0.772934)
	pt3dadd(216.95, 298.41, 42.2411, 0.7949)
	pt3dadd(216.446, 298.522, 42.1832, 1.01054)
	pt3dadd(215.722, 298.632, 42.2434, 0.952262)
	pt3dadd(215.002, 298.69, 42.3582, 1.31591)
	pt3dadd(214.226, 298.586, 42.456, 0.763124)
	pt3dadd(213.835, 298.608, 42.4474, 0.71106)
	pt3dadd(213.476, 298.57, 42.3889, 0.754694)
	pt3dadd(213.072, 298.687, 42.4594, 0.634088)
	pt3dadd(212.695, 298.827, 42.5418, 0.41533)
	pt3dadd(212.417, 298.94, 42.5164, 0.34149)
	pt3dadd(211.938, 298.989, 42.8099, 0.254846)
	pt3dadd(211.7, 299.005, 42.8987, 0.244862)
	pt3dadd(211.526, 298.984, 42.9769, 0.26241)
	pt3dadd(211.238, 299.011, 43.1037, 0.454646)
	pt3dadd(210.947, 299.085, 43.2595, 0.529206)
	pt3dadd(210.575, 299.181, 43.3889, 0.529926)
	pt3dadd(210.354, 299.287, 43.6051, 0.550416)
	pt3dadd(210.153, 299.339, 43.83, 0.585856)
	pt3dadd(209.726, 299.361, 43.8734, 0.40395)
	pt3dadd(209.45, 299.292, 43.9601, 0.397058)
	pt3dadd(209.196, 299.23, 44.0147, 0.547668)
	pt3dadd(208.65, 299.175, 43.8893, 0.348826)
	pt3dadd(208.335, 299.229, 43.7482, 0.420716)
	pt3dadd(207.89, 299.222, 43.9003, 0.381806)
	pt3dadd(207.557, 299.178, 43.9375, 0.439266)
	pt3dadd(207.244, 299.103, 43.9329, 0.413956)
	pt3dadd(206.997, 299.045, 43.9649, 0.311162)
	pt3dadd(206.677, 299.016, 43.9565, 0.357974)
	pt3dadd(206.334, 299.09, 43.9502, 0.583016)
	pt3dadd(205.498, 299.064, 43.7812, 0.850786)
	pt3dadd(204.813, 299.167, 43.656, 0.611762)
	pt3dadd(204.417, 299.256, 43.5436, 0.835778)
	pt3dadd(204.166, 299.705, 43.427, 1.31592)
	pt3dadd(203.564, 300.049, 43.1558, 0.73884)
	pt3dadd(202.943, 300.197, 43.2309, 0.75824)
	pt3dadd(202.206, 300.354, 43.2085, 0.462392)
	pt3dadd(201.942, 300.385, 43.1931, 0.26548)
	pt3dadd(201.628, 300.401, 43.1516, 0.458552)
	pt3dadd(201.275, 300.607, 43.2333, 0.326816)
	pt3dadd(201.026, 300.724, 43.2631, 0.423272)
	pt3dadd(200.797, 300.785, 43.292, 0.305726)
	pt3dadd(200.576, 300.839, 43.3455, 0.302592)
	pt3dadd(200.273, 300.894, 43.4359, 0.48644)
	pt3dadd(199.973, 301.021, 43.5211, 0.675908)
	pt3dadd(199.638, 301.112, 43.5611, 1.02425)
	pt3dadd(198.813, 301.345, 43.8703, 1.05527)
	pt3dadd(198.373, 301.592, 44.0682, 1.01533)
	pt3dadd(197.538, 301.74, 44.4048, 0.2)
	pt3dadd(196.929, 301.802, 44.7113, 0.793192)
	pt3dadd(196.385, 301.708, 44.7027, 0.558778)
	pt3dadd(195.969, 301.583, 44.6833, 0.596168)
	pt3dadd(195.562, 301.547, 44.6759, 0.576894)
	pt3dadd(195.161, 301.73, 44.6727, 0.385736)
	pt3dadd(194.862, 301.831, 44.6639, 0.237564)
	pt3dadd(194.583, 301.976, 44.7298, 0.39962)
	pt3dadd(194.277, 302.005, 44.7183, 0.704742)
	pt3dadd(193.826, 302.102, 44.7737, 0.963588)
	pt3dadd(193.37, 302.384, 44.694, 1.12405)
	pt3dadd(192.407, 302.783, 44.5351, 1.02442)
	pt3dadd(191.563, 302.828, 44.6428, 0.72113)
	pt3dadd(191.178, 302.919, 44.6974, 0.532288)
	pt3dadd(190.772, 303.023, 44.6192, 0.598778)
	pt3dadd(190.444, 303.128, 44.4527, 0.54308)
	pt3dadd(189.954, 303.195, 45.1605, 0.390272)
	pt3dadd(189.816, 303.266, 45.3399, 0.299818)
	pt3dadd(189.611, 303.267, 45.5032, 0.253416)
	pt3dadd(189.34, 303.227, 45.6199, 0.271984)
	pt3dadd(189.06, 303.117, 45.5484, 0.583)
	pt3dadd(188.743, 303.204, 45.5089, 0.765198)
	pt3dadd(188.364, 303.151, 45.6311, 0.844282)
	pt3dadd(187.796, 303.019, 46.0156, 1.13197)
	pt3dadd(187.255, 302.801, 46.1791, 1.01034)
	pt3dadd(186.839, 302.603, 46.412, 1.19883)
  }
}
proc shape3d_24() {
  dend[46] {	pt3dadd(186.121, 302.732, 46.617, 0.644684)
	pt3dadd(185.761, 302.718, 46.7221, 0.504114)
	pt3dadd(185.37, 302.814, 46.8433, 0.561024)
	pt3dadd(184.995, 302.896, 46.9613, 0.82261)
	pt3dadd(184.181, 302.963, 47.1828, 1.06059)
	pt3dadd(183.613, 303.048, 47.2696, 1.1028)
	pt3dadd(183.11, 302.924, 47.4927, 0.56112)
	pt3dadd(181.08, 302.597, 47.8417, 0.840542)
	pt3dadd(180.685, 302.685, 48.0411, 0.866226)
	pt3dadd(179.799, 302.618, 48.2571, 1.40068)
	pt3dadd(179.026, 302.45, 48.7637, 1.11101)
	pt3dadd(178.655, 302.608, 48.8915, 0.688574)
	pt3dadd(178.317, 302.587, 48.9548, 0.435196)
	pt3dadd(177.898, 302.598, 48.975, 0.2)
	pt3dadd(177.692, 302.544, 49.0019, 0.32815)
	pt3dadd(177.449, 302.438, 48.8947, 0.404718)
	pt3dadd(177.154, 302.427, 48.8144, 0.221154)
	pt3dadd(176.916, 302.382, 48.7221, 0.359436)
	pt3dadd(176.664, 302.363, 48.7433, 0.369176)
	pt3dadd(176.416, 302.322, 48.7642, 0.316126)
	pt3dadd(176.169, 302.273, 48.7964, 0.42717)
	pt3dadd(175.224, 302.309, 48.8076, 1.11847)
	pt3dadd(174.405, 302.64, 48.9381, 1.10971)
	pt3dadd(174.021, 302.656, 48.9824, 0.734554)
	pt3dadd(173.613, 302.757, 48.9803, 0.325924)
	pt3dadd(173.301, 302.727, 48.9718, 0.444502)
	pt3dadd(172.886, 302.802, 48.9602, 0.396688)
	pt3dadd(172.497, 302.826, 48.9895, 0.68558)
	pt3dadd(171.847, 302.928, 49.1826, 1.076)
	pt3dadd(171.176, 303.247, 49.3615, 1.15124)
	pt3dadd(169.905, 302.981, 49.5213, 0.975778)
	pt3dadd(169.088, 302.639, 50.0225, 1.4729)
	pt3dadd(168.328, 302.99, 50.1524, 0.739062)
	pt3dadd(168.111, 303.26, 50.107, 0.58013)
	pt3dadd(167.832, 303.364, 50.1299, 0.311406)
	pt3dadd(167.575, 303.409, 50.2032, 0.250074)
	pt3dadd(167.357, 303.471, 50.2238, 0.259468)
	pt3dadd(167.053, 303.617, 50.3203, 0.353264)
	pt3dadd(166.461, 303.681, 50.4536, 1.00483)
	pt3dadd(165.766, 303.677, 50.2731, 1.005)
	pt3dadd(165.317, 303.904, 50.2624, 0.969262)
	pt3dadd(164.316, 304.009, 50.1767, 1.09488)
	pt3dadd(162.789, 303.825, 49.9501, 1.42543)
	pt3dadd(162.479, 303.549, 49.9745, 0.64025)
	pt3dadd(162.134, 303.507, 49.9113, 0.50299)
	pt3dadd(161.841, 303.527, 49.7416, 0.515126)
	pt3dadd(161.503, 303.424, 49.5022, 0.33946)
	pt3dadd(161.186, 303.386, 49.6103, 0.439588)
	pt3dadd(160.929, 303.375, 49.719, 0.321812)
	pt3dadd(160.621, 303.411, 49.6144, 0.405632)
	pt3dadd(160.331, 303.411, 49.6052, 0.437782)
	pt3dadd(160.021, 303.444, 49.6772, 0.324376)
	pt3dadd(159.839, 303.504, 49.7285, 0.307308)
	pt3dadd(159.357, 303.642, 49.7525, 0.662588)
	pt3dadd(159.025, 303.674, 49.6952, 0.501838)
	pt3dadd(158.524, 303.804, 49.7463, 0.837772)
	pt3dadd(157.503, 303.664, 50.1424, 1.299)
	pt3dadd(156.928, 303.41, 50.1449, 0.96115)
	pt3dadd(156.368, 303.286, 50.031, 0.983514)
	pt3dadd(155.766, 303.268, 50.1792, 0.422604)
	pt3dadd(155.443, 303.258, 50.2592, 0.3101)
	pt3dadd(155.182, 303.333, 50.324, 0.426056)
	pt3dadd(154.475, 303.498, 50.3993, 1.06712)
	pt3dadd(154.1, 303.4, 50.9162, 1.19443)
	pt3dadd(153.778, 303.397, 51.3128, 1.0751)
	pt3dadd(149.204, 304.178, 52.5649, 1.06681)
	pt3dadd(148.385, 304.188, 52.8033, 1.17881)
	pt3dadd(147.705, 304.151, 52.9822, 0.653438)
	pt3dadd(147.338, 304.153, 52.9241, 0.332924)
	pt3dadd(144.404, 303.982, 53.686, 0.58818)
	pt3dadd(144.125, 304.02, 53.7139, 0.799746)
	pt3dadd(143.315, 304.266, 53.7487, 1.33054)
	pt3dadd(142.706, 304.477, 53.6859, 1.03978)
	pt3dadd(142.021, 304.455, 54.1302, 0.470886)
	pt3dadd(141.557, 304.562, 54.1824, 0.2)
	pt3dadd(141.287, 304.616, 54.1412, 0.2)
	pt3dadd(141.101, 304.502, 54.0802, 0.349692)
	pt3dadd(140.868, 304.516, 54.1636, 0.386836)
	pt3dadd(140.104, 304.502, 54.3747, 1.11048)
	pt3dadd(138.968, 304.592, 54.5939, 0.2)
	pt3dadd(138.471, 304.496, 54.7222, 0.717656)
	pt3dadd(138.159, 304.516, 54.747, 0.53009)
	pt3dadd(137.892, 304.508, 54.8091, 0.391672)
	pt3dadd(137.687, 304.427, 54.9155, 0.295192)
	pt3dadd(137.372, 304.389, 55.0606, 0.2)
	pt3dadd(137.079, 304.293, 55.241, 0.301026)
	pt3dadd(136.173, 303.848, 55.3021, 0.990616)
	pt3dadd(135.578, 303.778, 55.3065, 1.17933)
	pt3dadd(132.41, 303.706, 55.9631, 0.99257)
	pt3dadd(131.63, 303.862, 56.336, 0.945106)
	pt3dadd(130.913, 304.306, 56.5783, 0.2)
	pt3dadd(130.679, 304.352, 56.5903, 0.239464)
	pt3dadd(130.528, 304.398, 56.583, 0.333356)
	pt3dadd(130.255, 304.378, 56.6174, 0.46399)
	pt3dadd(129.983, 304.376, 57.0385, 0.504546)
	pt3dadd(129.848, 304.41, 57.3308, 0.42701)
	pt3dadd(129.613, 304.729, 57.6029, 0.29422)
	pt3dadd(129.53, 304.91, 57.8755, 0.558074)
	pt3dadd(129.429, 304.97, 58.1347, 0.584296)
	pt3dadd(129.199, 304.944, 58.3406, 0.440766)
	pt3dadd(128.765, 305.016, 58.4869, 0.781774)
	pt3dadd(128.054, 304.939, 58.9304, 0.71405)
	pt3dadd(127.939, 305.24, 59.4081, 1.0195)
	pt3dadd(127.14, 305.254, 59.9048, 0.350858)
	pt3dadd(126.639, 305.675, 60.1701, 0.516968)
	pt3dadd(126.457, 305.918, 60.2898, 0.332544)
	pt3dadd(126.295, 306.195, 60.5545, 0.384654)
	pt3dadd(126.131, 306.283, 60.7767, 0.44628)
	pt3dadd(125.941, 306.373, 60.9546, 0.301984)
	pt3dadd(125.695, 306.396, 61.1499, 0.3368)
	pt3dadd(125.528, 306.402, 61.3751, 0.363434)
	pt3dadd(125.413, 306.413, 61.6122, 0.374968)
	pt3dadd(125.143, 306.411, 61.7876, 0.24523)
	pt3dadd(124.86, 306.508, 61.9577, 0.438148)
	pt3dadd(124.586, 306.495, 62.1903, 0.510682)
	pt3dadd(124.304, 306.437, 62.372, 0.680586)
	pt3dadd(123.975, 306.634, 62.5909, 0.930524)
	pt3dadd(123.642, 306.995, 62.8839, 1.10315)
	pt3dadd(123.494, 307.473, 63.152, 1.08832)
	pt3dadd(120.318, 309.515, 66.5079, 0.674584)
	pt3dadd(117.301, 315.059, 70.5366, 0.501572)
	pt3dadd(113.328, 318.13, 72.4839, 0.535462)
	pt3dadd(112.983, 318.203, 72.3738, 0.422638)
	pt3dadd(112.8, 318.206, 72.4, 0.2)
	pt3dadd(112.033, 318.574, 72.359, 0.2)
	pt3dadd(111.721, 319.013, 72.5615, 0.427544)
	pt3dadd(110.999, 319.149, 72.5694, 1.19321)
	pt3dadd(110.387, 319.134, 72.6959, 1.04413)
	pt3dadd(109.971, 318.987, 72.6702, 0.493826)
	pt3dadd(109.599, 318.808, 72.4978, 0.440152)
	pt3dadd(109.139, 318.617, 72.5037, 0.292068)
	pt3dadd(108.92, 318.609, 72.4402, 0.222632)
	pt3dadd(108.739, 318.593, 72.3435, 0.2)
	pt3dadd(108.62, 318.581, 72.1549, 0.259276)
	pt3dadd(104.24, 320.143, 71.0596, 0.567558)
	pt3dadd(103.78, 320.341, 70.3368, 0.874354)
	pt3dadd(103.605, 320.479, 69.9913, 0.690126)
	pt3dadd(103.415, 320.6, 69.6081, 0.765716)
	pt3dadd(102.331, 322.215, 68.3113, 0.76474)
	pt3dadd(102.052, 322.419, 68.1107, 0.2)
	pt3dadd(101.731, 322.598, 67.9714, 0.538562)
	pt3dadd(101.714, 322.704, 67.6086, 0.475356)
  }
  dend_6[26] {pt3dclear()
	pt3dadd(101.714, 322.704, 67.6086, 0.475356)
	pt3dadd(101.622, 322.821, 67.3413, 0.313316)
  }
  dend[47] {pt3dclear()
	pt3dadd(228.916, 296.582, 38.6256, 1.51044)
	pt3dadd(227.897, 297.585, 38.266, 1.052)
	pt3dadd(227.602, 298.554, 38.0455, 0.787142)
	pt3dadd(227.38, 298.971, 37.9906, 0.445362)
	pt3dadd(227.261, 299.362, 38.0837, 0.417814)
	pt3dadd(226.902, 299.682, 37.7814, 0.37396)
	pt3dadd(226.771, 299.985, 37.5987, 0.491648)
	pt3dadd(226.607, 300.299, 37.4021, 0.535584)
	pt3dadd(226.396, 300.572, 37.3556, 0.492804)
	pt3dadd(226.169, 300.895, 37.2947, 0.639858)
	pt3dadd(225.802, 301.128, 37.2134, 0.623782)
	pt3dadd(225.383, 301.416, 37.3901, 0.897174)
	pt3dadd(224.811, 301.741, 37.274, 0.874704)
	pt3dadd(224.476, 302.049, 37.2119, 0.64042)
	pt3dadd(224.179, 302.283, 37.1539, 0.415214)
	pt3dadd(223.985, 302.633, 37.0425, 0.373318)
	pt3dadd(223.784, 302.952, 37.1977, 0.404278)
	pt3dadd(223.556, 303.309, 37.3208, 0.681172)
	pt3dadd(223.284, 303.608, 37.4016, 1.0698)
	pt3dadd(223.002, 304.056, 37.5255, 1.05374)
	pt3dadd(222.071, 304.59, 37.3959, 0.50809)
	pt3dadd(221.74, 304.864, 37.274, 0.471812)
	pt3dadd(221.429, 305.099, 37.197, 0.305664)
	pt3dadd(221.284, 305.359, 37.1485, 0.2)
	pt3dadd(221.169, 305.583, 37.131, 0.352386)
	pt3dadd(221.031, 305.795, 37.1253, 0.421322)
	pt3dadd(220.81, 306.077, 37.1089, 0.317034)
	pt3dadd(220.566, 306.333, 37.1632, 0.369996)
	pt3dadd(220.363, 306.549, 37.32, 0.678958)
	pt3dadd(220.201, 306.911, 37.2869, 0.84787)
	pt3dadd(219.847, 307.194, 37.291, 1.15041)
	pt3dadd(219.253, 307.799, 37.109, 1.49705)
	pt3dadd(218.468, 308.834, 37.0222, 1.1957)
	pt3dadd(217.723, 309.355, 36.8631, 1.07013)
	pt3dadd(217.137, 309.952, 36.7857, 0.852448)
	pt3dadd(216.615, 310.429, 36.7475, 0.500938)
	pt3dadd(216.303, 310.598, 36.7305, 0.427004)
	pt3dadd(216.025, 310.845, 36.7917, 0.574338)
	pt3dadd(215.627, 311.2, 36.8344, 0.492348)
	pt3dadd(215.325, 311.447, 36.8929, 0.494786)
	pt3dadd(215.077, 311.593, 36.8909, 0.376388)
	pt3dadd(214.844, 311.774, 36.8243, 0.30452)
	pt3dadd(214.532, 311.972, 36.7391, 0.32774)
	pt3dadd(214.244, 312.175, 36.6609, 0.594576)
	pt3dadd(214.029, 312.419, 36.5114, 0.922462)
	pt3dadd(213.669, 313.018, 36.3238, 1.30993)
	pt3dadd(212.936, 313.658, 36.1004, 1.02611)
	pt3dadd(212.3, 314.167, 35.8615, 0.57847)
	pt3dadd(212.005, 314.44, 35.8893, 0.26316)
	pt3dadd(211.832, 314.651, 35.9272, 0.2)
	pt3dadd(211.638, 314.85, 35.8846, 0.24372)
	pt3dadd(211.47, 315.123, 35.7828, 0.469246)
	pt3dadd(211.237, 315.215, 35.6052, 0.616294)
	pt3dadd(211.011, 315.501, 35.4659, 0.520446)
	pt3dadd(210.69, 315.811, 35.6633, 0.50447)
	pt3dadd(210.442, 316.012, 35.9646, 0.55829)
  }
}
proc shape3d_25() {
  dend[47] {	pt3dadd(210.252, 316.211, 36.1907, 0.489914)
	pt3dadd(209.887, 316.646, 35.8478, 0.630138)
	pt3dadd(209.698, 316.974, 35.6608, 0.912544)
	pt3dadd(208.792, 317.545, 35.5643, 1.37477)
	pt3dadd(207.93, 318.184, 35.5277, 1.17867)
	pt3dadd(207.396, 318.664, 35.2245, 1.19731)
	pt3dadd(206.59, 319.649, 35.3363, 0.861114)
	pt3dadd(206.191, 319.972, 35.3294, 0.563096)
	pt3dadd(205.899, 320.323, 35.3397, 0.572012)
	pt3dadd(205.511, 320.603, 35.434, 0.966308)
	pt3dadd(205.187, 321.053, 35.2122, 0.926754)
	pt3dadd(204.794, 321.415, 35.025, 0.731944)
	pt3dadd(204.411, 321.593, 34.9952, 0.531894)
	pt3dadd(203.994, 321.792, 35.1083, 0.568886)
	pt3dadd(203.557, 322.016, 34.9838, 0.719196)
	pt3dadd(203.204, 322.197, 34.8824, 0.82278)
	pt3dadd(202.802, 322.397, 34.6854, 0.757814)
	pt3dadd(202.446, 322.576, 34.5503, 0.693506)
	pt3dadd(202.035, 322.885, 34.519, 0.974594)
	pt3dadd(201.166, 323.923, 34.4047, 0.757426)
	pt3dadd(200.887, 324.313, 34.3383, 0.75776)
	pt3dadd(200.635, 324.676, 34.2973, 1.02941)
	pt3dadd(200.06, 324.909, 34.4303, 0.863322)
	pt3dadd(199.233, 327.542, 35.8333, 1.03496)
	pt3dadd(199.022, 328.432, 35.8481, 0.315064)
	pt3dadd(199.028, 328.698, 35.8138, 0.332744)
	pt3dadd(198.894, 328.954, 35.6945, 0.346538)
	pt3dadd(198.789, 329.122, 35.4852, 0.393544)
	pt3dadd(198.548, 329.439, 35.4703, 0.357188)
	pt3dadd(198.421, 329.704, 35.4358, 0.401546)
	pt3dadd(198.272, 330.071, 35.4572, 0.49803)
	pt3dadd(198.014, 330.367, 35.5986, 0.584372)
	pt3dadd(197.09, 331.58, 35.4602, 0.488726)
	pt3dadd(196.893, 332.083, 35.4075, 0.72219)
	pt3dadd(196.604, 332.384, 35.4111, 1.15521)
	pt3dadd(196.295, 333.071, 35.5669, 1.46324)
	pt3dadd(195.77, 333.602, 35.4277, 0.2)
	pt3dadd(195.515, 334.022, 35.4255, 0.707622)
	pt3dadd(195.104, 334.541, 35.6048, 0.668488)
	pt3dadd(194.497, 334.886, 35.5351, 0.577692)
	pt3dadd(194.152, 335.033, 35.5115, 0.57848)
	pt3dadd(193.846, 335.35, 35.6881, 0.946058)
	pt3dadd(193.139, 335.569, 35.3614, 0.2)
	pt3dadd(192.924, 335.645, 35.2607, 0.2)
	pt3dadd(192.694, 335.673, 35.1819, 0.392756)
	pt3dadd(192.407, 335.806, 35.0957, 0.687302)
	pt3dadd(192.111, 336.34, 34.7649, 0.75952)
	pt3dadd(191.898, 336.701, 34.734, 0.68214)
	pt3dadd(191.773, 337.041, 34.7004, 0.932052)
	pt3dadd(191.409, 337.763, 34.7522, 0.796408)
	pt3dadd(190.902, 338.302, 34.8149, 0.97676)
	pt3dadd(190.608, 338.704, 34.9349, 0.62255)
	pt3dadd(190.227, 338.931, 34.9709, 0.378864)
	pt3dadd(189.965, 339.021, 35.0406, 0.329108)
	pt3dadd(189.697, 339.194, 35.089, 0.265356)
	pt3dadd(188.877, 339.944, 35.1781, 0.2)
	pt3dadd(188.6, 340.157, 35.1615, 0.445026)
	pt3dadd(187.952, 340.674, 35.2652, 0.897082)
	pt3dadd(187.55, 340.726, 35.1662, 0.740562)
	pt3dadd(187.248, 340.972, 35.2768, 0.691894)
	pt3dadd(186.702, 341.595, 35.0577, 0.929718)
	pt3dadd(186.146, 342.274, 34.6982, 1.02979)
	pt3dadd(185.544, 342.566, 34.7001, 0.728648)
	pt3dadd(185.19, 342.985, 34.55, 0.338684)
	pt3dadd(184.924, 343.269, 34.4756, 0.386258)
	pt3dadd(184.69, 343.497, 34.4155, 0.575384)
	pt3dadd(184.461, 343.806, 34.3266, 0.755338)
	pt3dadd(183.819, 344.407, 34.2097, 1.00678)
	pt3dadd(183.503, 344.797, 34.0461, 0.567078)
	pt3dadd(183.322, 345.157, 33.9303, 0.489846)
	pt3dadd(183.01, 345.618, 33.8247, 0.696958)
	pt3dadd(182.555, 345.885, 33.8141, 0.261298)
	pt3dadd(182.358, 346.008, 33.8919, 0.282618)
	pt3dadd(182.179, 346.161, 33.9248, 0.2)
	pt3dadd(181.971, 346.413, 33.9144, 0.2)
	pt3dadd(181.843, 346.637, 33.862, 0.399716)
	pt3dadd(181.565, 346.853, 33.8404, 0.332884)
	pt3dadd(181.1, 347.003, 33.7968, 0.584006)
	pt3dadd(181.075, 347.329, 33.8243, 0.590748)
	pt3dadd(180.796, 347.693, 33.8011, 0.694316)
	pt3dadd(180.545, 347.985, 33.6421, 0.789274)
	pt3dadd(180.158, 348.708, 33.356, 1.43492)
	pt3dadd(179.905, 349.341, 33.0477, 0.972268)
	pt3dadd(179.668, 350.049, 32.6588, 0.963384)
	pt3dadd(178.498, 350.803, 32.458, 0.783836)
	pt3dadd(178.098, 350.959, 32.4469, 0.797426)
	pt3dadd(177.788, 351.283, 32.4315, 0.645978)
	pt3dadd(177.332, 351.799, 32.6632, 0.299732)
	pt3dadd(177.043, 352.047, 32.7595, 0.307516)
	pt3dadd(176.734, 352.287, 32.7837, 0.436548)
	pt3dadd(176.329, 352.446, 32.8959, 0.786852)
	pt3dadd(176.065, 353.008, 32.7141, 0.553582)
	pt3dadd(175.808, 353.307, 32.6023, 0.47524)
	pt3dadd(175.398, 353.93, 30.9507, 0.2)
	pt3dadd(174.844, 354.055, 31.9321, 0.293918)
	pt3dadd(174.418, 354.208, 32.1337, 0.512702)
	pt3dadd(173.95, 354.504, 32.0877, 1.1312)
	pt3dadd(173.395, 354.882, 31.9495, 1.22443)
	pt3dadd(173.141, 355.486, 32.0969, 0.915586)
	pt3dadd(172.682, 355.833, 31.8501, 0.287058)
	pt3dadd(172.497, 356.103, 31.7617, 0.228072)
	pt3dadd(172.269, 356.342, 31.6997, 0.266934)
	pt3dadd(172.062, 356.575, 31.7203, 0.2)
	pt3dadd(171.953, 356.929, 31.727, 0.519016)
	pt3dadd(171.771, 357.238, 31.7069, 1.13986)
	pt3dadd(171.396, 357.989, 31.5577, 0.985762)
	pt3dadd(171.098, 358.367, 31.4486, 0.884538)
	pt3dadd(170.78, 358.732, 31.3176, 1.19939)
	pt3dadd(170.143, 359.055, 31.209, 0.935804)
	pt3dadd(169.791, 359.371, 31.0674, 0.851312)
	pt3dadd(169.305, 359.997, 30.7654, 0.895476)
	pt3dadd(168.695, 360.531, 30.5703, 0.252252)
	pt3dadd(168.393, 360.684, 30.4411, 0.379912)
	pt3dadd(168.237, 360.931, 30.1931, 0.2)
	pt3dadd(168.004, 361.192, 30.1381, 0.2)
	pt3dadd(167.798, 361.44, 30.0535, 0.379718)
	pt3dadd(167.523, 361.663, 29.8913, 0.87741)
	pt3dadd(167.052, 362.335, 29.7727, 0.78268)
	pt3dadd(166.628, 362.87, 29.3197, 0.23747)
	pt3dadd(166.588, 363.093, 29.2175, 0.2)
	pt3dadd(166.533, 363.388, 29.1713, 0.2)
	pt3dadd(166.064, 364.661, 28.4154, 0.80569)
	pt3dadd(165.84, 365.467, 28.3289, 1.3615)
	pt3dadd(165.539, 365.919, 27.9288, 1.18461)
	pt3dadd(165.268, 366.475, 27.6883, 0.90068)
	pt3dadd(165.143, 366.756, 27.4962, 0.62457)
	pt3dadd(164.906, 367.105, 27.5918, 0.534622)
	pt3dadd(164.899, 367.554, 27.3862, 0.485734)
	pt3dadd(164.838, 367.888, 27.3148, 0.44581)
	pt3dadd(164.774, 368.233, 27.2399, 0.453962)
	pt3dadd(164.517, 368.49, 27.1929, 0.417516)
	pt3dadd(164.461, 368.789, 27.0874, 0.534678)
	pt3dadd(164.381, 369.002, 27.0437, 0.20816)
	pt3dadd(164.337, 369.215, 27.0189, 0.28103)
	pt3dadd(164.263, 369.419, 26.9677, 0.28321)
	pt3dadd(164.206, 369.712, 26.9751, 0.241266)
	pt3dadd(164.115, 369.97, 26.8952, 0.2)
	pt3dadd(163.995, 370.202, 26.7787, 0.2)
	pt3dadd(163.653, 370.78, 26.5089, 0.76499)
	pt3dadd(163.064, 371.317, 26.6086, 1.03393)
	pt3dadd(162.614, 371.861, 26.1383, 0.444016)
	pt3dadd(161.923, 373.29, 25.4261, 0.282182)
	pt3dadd(161.858, 373.514, 25.3793, 0.2)
	pt3dadd(161.814, 373.688, 25.3048, 0.28828)
	pt3dadd(161.766, 373.949, 25.3145, 0.247238)
	pt3dadd(161.655, 374.16, 25.3095, 0.277752)
	pt3dadd(161.595, 374.374, 25.3185, 0.201776)
	pt3dadd(161.487, 374.749, 25.3596, 0.574554)
	pt3dadd(161.345, 375.193, 25.4313, 0.663336)
	pt3dadd(160.828, 375.874, 25.4997, 1.35325)
	pt3dadd(160.984, 376.508, 25.4781, 1.00627)
	pt3dadd(161.596, 377.354, 24.8614, 0.872498)
	pt3dadd(161.306, 378.012, 24.8681, 0.2)
	pt3dadd(161.255, 378.22, 24.8157, 0.260478)
	pt3dadd(161.268, 378.704, 24.6275, 0.5322)
	pt3dadd(161.251, 378.97, 24.5046, 0.435156)
	pt3dadd(161.242, 379.211, 24.4378, 0.495692)
	pt3dadd(161.252, 379.549, 24.4503, 0.622782)
	pt3dadd(161.124, 380.083, 24.4358, 0.535888)
	pt3dadd(160.958, 380.386, 24.3858, 0.279438)
	pt3dadd(160.739, 380.67, 24.2808, 0.465138)
	pt3dadd(160.497, 380.844, 24.2294, 0.48009)
	pt3dadd(160.206, 381.276, 24.2052, 0.315054)
	pt3dadd(160.077, 381.509, 24.2068, 0.2)
	pt3dadd(159.792, 382.021, 24.1402, 0.727996)
	pt3dadd(159.189, 382.557, 24.0695, 1.08921)
	pt3dadd(158.693, 383.183, 23.9949, 0.975854)
	pt3dadd(158.521, 383.576, 23.9999, 0.560182)
	pt3dadd(158.373, 383.942, 23.9464, 0.423132)
	pt3dadd(158.27, 384.204, 23.9419, 0.496804)
	pt3dadd(158.049, 384.471, 24.0448, 0.291846)
	pt3dadd(157.906, 384.678, 24.0173, 0.2)
	pt3dadd(157.753, 384.839, 24.0087, 0.2)
	pt3dadd(157.301, 385.092, 24.0916, 0.46701)
	pt3dadd(157.098, 385.302, 24.2535, 0.592988)
	pt3dadd(156.955, 385.596, 24.3278, 0.535066)
	pt3dadd(156.719, 385.883, 24.3342, 0.674454)
	pt3dadd(156.24, 386.533, 24.1294, 0.91471)
	pt3dadd(155.951, 387.209, 24.3998, 0.50275)
	pt3dadd(155.819, 387.471, 24.522, 0.410352)
	pt3dadd(154.08, 390.265, 25.2696, 0.921222)
	pt3dadd(153.966, 390.403, 25.7969, 1.02573)
	pt3dadd(152.909, 391.942, 25.4819, 0.619372)
	pt3dadd(152.598, 392.174, 25.1788, 0.506574)
	pt3dadd(152.285, 392.531, 25.3259, 0.594552)
	pt3dadd(152.076, 392.687, 25.8275, 0.2)
	pt3dadd(151.909, 394.282, 25.204, 0.822652)
	pt3dadd(151.697, 394.647, 25.1832, 0.866342)
	pt3dadd(148.194, 399.769, 25.4032, 0.777374)
	pt3dadd(147.884, 400.263, 25.6457, 0.2)
	pt3dadd(147.834, 400.465, 25.6256, 0.2)
	pt3dadd(147.759, 400.644, 25.6029, 0.24482)
	pt3dadd(147.72, 400.842, 25.5566, 0.393128)
	pt3dadd(147.77, 401.039, 25.484, 0.349806)
	pt3dadd(147.782, 401.219, 25.4478, 0.28246)
	pt3dadd(147.789, 401.503, 25.3737, 0.307278)
	pt3dadd(147.846, 401.774, 25.239, 0.602884)
	pt3dadd(147.621, 402.091, 25.1403, 0.45325)
	pt3dadd(147.61, 402.36, 25.0415, 0.290194)
	pt3dadd(147.502, 402.736, 25.005, 0.241728)
  }
}
proc shape3d_26() {
  dend[47] {	pt3dadd(147.404, 402.956, 24.8994, 0.2)
	pt3dadd(147.225, 403.228, 24.9045, 0.2)
	pt3dadd(147.103, 403.458, 24.8496, 0.2)
	pt3dadd(146.927, 403.657, 24.7901, 0.2)
	pt3dadd(146.642, 403.904, 24.7235, 0.451898)
	pt3dadd(146.419, 404.128, 24.6687, 0.665982)
	pt3dadd(146.093, 404.337, 24.5505, 1.22425)
	pt3dadd(145.517, 405.605, 24.5111, 0.807462)
	pt3dadd(145.173, 405.898, 24.5722, 0.336894)
	pt3dadd(144.921, 406.056, 24.6462, 0.238912)
	pt3dadd(144.473, 408.002, 24.9246, 0.369434)
	pt3dadd(144.474, 408.125, 25.2869, 0.49074)
	pt3dadd(144.449, 408.394, 25.3952, 0.2)
	pt3dadd(144.349, 408.999, 25.2455, 0.69934)
	pt3dadd(144.401, 409.58, 24.6213, 1.20315)
	pt3dadd(144.068, 410.01, 24.4174, 1.00536)
	pt3dadd(143.579, 410.504, 24.2884, 0.482478)
	pt3dadd(143.351, 411.962, 24.4441, 0.747304)
	pt3dadd(143.309, 412.239, 24.6313, 0.782774)
	pt3dadd(142.941, 412.762, 24.7279, 0.2)
	pt3dadd(142.844, 413.108, 24.6444, 0.243968)
	pt3dadd(142.848, 413.341, 24.4941, 0.315738)
	pt3dadd(143.031, 413.79, 24.2803, 0.594614)
  }
  dend_6[27] {pt3dclear()
	pt3dadd(143.031, 413.79, 24.2803, 0.594614)
	pt3dadd(143.123, 413.934, 24.2, 0.2)
  }
  dend[48] {pt3dclear()
	pt3dadd(265.716, 272.471, 44.8254, 1.81589)
	pt3dadd(267.939, 266.509, 48.7431, 1.81589)
	pt3dadd(268.19, 265.617, 49.2633, 1.58493)
	pt3dadd(268.553, 264.881, 49.7405, 1.77399)
	pt3dadd(268.953, 264.129, 50.3217, 1.49481)
	pt3dadd(269.211, 263.361, 50.7222, 1.32083)
	pt3dadd(269.544, 262.696, 51.2147, 1.69639)
	pt3dadd(269.555, 262.033, 51.7737, 1.2798)
  }
  dend_5[19] {pt3dclear()
	pt3dadd(269.555, 262.033, 51.7737, 1.2798)
	pt3dadd(270.186, 260.803, 52.3018, 1.76101)
  }
  dend[49] {pt3dclear()
	pt3dadd(270.186, 260.803, 52.3018, 1.76101)
	pt3dadd(270.664, 259.685, 51.8519, 1.15449)
  }
  dend_5[20] {pt3dclear()
	pt3dadd(270.664, 259.685, 51.8519, 1.15449)
	pt3dadd(271.155, 258.493, 51.6556, 1.3319)
  }
  dend[50] {pt3dclear()
	pt3dadd(271.155, 258.493, 51.6556, 1.3319)
	pt3dadd(272.046, 258.033, 51.6511, 0.537882)
	pt3dadd(272.385, 257.91, 51.65, 0.512592)
	pt3dadd(272.695, 257.698, 51.7172, 0.517382)
	pt3dadd(272.989, 257.447, 51.8534, 0.566332)
	pt3dadd(273.223, 257.106, 51.9792, 0.523992)
	pt3dadd(273.433, 256.826, 52.0664, 0.499462)
	pt3dadd(273.688, 256.526, 52.1268, 0.500546)
	pt3dadd(273.927, 256.306, 52.2119, 0.539836)
	pt3dadd(274.214, 256.042, 52.2972, 0.545422)
	pt3dadd(274.511, 255.724, 52.2895, 0.554046)
	pt3dadd(274.833, 255.436, 52.3457, 0.558578)
	pt3dadd(275.203, 255.163, 52.4182, 0.546072)
	pt3dadd(275.51, 254.902, 52.4087, 0.559468)
	pt3dadd(275.783, 254.611, 52.4946, 0.497876)
	pt3dadd(276.065, 254.378, 52.5694, 0.53992)
	pt3dadd(276.33, 254.097, 52.624, 0.640302)
	pt3dadd(276.59, 253.865, 52.7096, 0.62062)
	pt3dadd(276.874, 253.606, 52.7892, 0.514948)
	pt3dadd(277.191, 253.417, 52.9052, 0.433562)
	pt3dadd(277.413, 253.23, 53.0692, 0.449188)
	pt3dadd(277.692, 253.053, 53.1807, 0.446464)
	pt3dadd(278.111, 252.798, 53.0846, 0.43613)
	pt3dadd(278.451, 252.626, 53.1223, 0.664642)
	pt3dadd(278.802, 252.438, 53.1627, 0.820488)
	pt3dadd(279.117, 252.106, 53.1847, 0.815056)
  }
  dend_5[21] {pt3dclear()
	pt3dadd(279.117, 252.106, 53.1847, 0.815056)
	pt3dadd(279.877, 251.603, 53.2911, 1.41591)
  }
  dend[51] {pt3dclear()
	pt3dadd(279.877, 251.603, 53.2911, 1.41591)
	pt3dadd(279.715, 251.202, 54.1824, 0.608686)
	pt3dadd(279.654, 250.997, 54.435, 0.541076)
	pt3dadd(279.589, 250.844, 54.6614, 0.465456)
	pt3dadd(279.671, 250.61, 54.8994, 0.586084)
	pt3dadd(279.793, 250.367, 55.0986, 0.417214)
	pt3dadd(279.849, 250.164, 55.2883, 0.434664)
	pt3dadd(279.947, 250.011, 55.5394, 0.506696)
	pt3dadd(280.075, 249.787, 56.0313, 0.669822)
	pt3dadd(280.074, 249.567, 56.3251, 0.545106)
	pt3dadd(279.879, 249.187, 56.555, 0.748988)
	pt3dadd(279.646, 248.488, 56.9885, 0.841664)
	pt3dadd(279.898, 248.124, 57.3214, 1.00165)
	pt3dadd(279.906, 247.487, 57.6334, 0.507732)
	pt3dadd(279.959, 247.154, 57.2403, 0.459384)
	pt3dadd(279.909, 247.028, 56.9045, 0.561878)
	pt3dadd(279.949, 246.987, 56.5807, 0.444316)
  }
  dend_6[28] {pt3dclear()
	pt3dadd(279.949, 246.987, 56.5807, 0.444316)
	pt3dadd(279.977, 246.98, 56.3256, 0.2)
  }
  dend[52] {pt3dclear()
	pt3dadd(279.877, 251.603, 53.2911, 1.41591)
	pt3dadd(280.524, 251.41, 53.0197, 1.22885)
	pt3dadd(280.979, 251.089, 52.7457, 0.58011)
	pt3dadd(281.609, 251.309, 52.7376, 0.825654)
	pt3dadd(282.37, 251.157, 52.6225, 0.845882)
	pt3dadd(282.764, 251.011, 52.5345, 0.781824)
	pt3dadd(283.313, 250.888, 52.5146, 1.06221)
	pt3dadd(284.167, 250.586, 52.4843, 1.03767)
	pt3dadd(284.971, 250.266, 52.3366, 0.985002)
	pt3dadd(285.892, 249.923, 52.1514, 1.04147)
	pt3dadd(286.734, 249.745, 52.4189, 1.06999)
	pt3dadd(287.535, 249.516, 52.5527, 1.0751)
	pt3dadd(288.364, 249.159, 52.6507, 1.18735)
	pt3dadd(289.176, 248.933, 52.6401, 0.943582)
	pt3dadd(290, 248.895, 52.6287, 0.566696)
	pt3dadd(290.382, 248.795, 52.591, 0.799712)
  }
  dend_5[22] {pt3dclear()
	pt3dadd(290.382, 248.795, 52.591, 0.799712)
	pt3dadd(291.279, 248.365, 52.3498, 1.53392)
  }
  dend[53] {pt3dclear()
	pt3dadd(291.279, 248.365, 52.3498, 1.53392)
	pt3dadd(291.905, 248.021, 52.8521, 1.03606)
	pt3dadd(292.798, 247.896, 53.2954, 0.720318)
	pt3dadd(293.172, 247.895, 53.3771, 0.507694)
	pt3dadd(293.472, 247.913, 53.4783, 0.573284)
	pt3dadd(293.869, 247.816, 53.4467, 0.42906)
	pt3dadd(294.139, 247.731, 53.4314, 0.517414)
	pt3dadd(294.458, 247.604, 53.4848, 0.391692)
	pt3dadd(294.772, 247.421, 53.5375, 0.33342)
	pt3dadd(295.018, 247.317, 53.4688, 0.209374)
	pt3dadd(295.311, 247.232, 53.4785, 0.228592)
	pt3dadd(295.574, 247.175, 53.5502, 0.54927)
	pt3dadd(295.877, 247.137, 53.416, 0.587628)
	pt3dadd(296.228, 247.256, 53.3167, 0.65838)
	pt3dadd(296.548, 247.352, 53.1832, 0.717648)
	pt3dadd(297.296, 247.437, 53.2583, 0.666162)
	pt3dadd(297.717, 247.525, 53.2691, 0.821144)
	pt3dadd(298.437, 247.559, 53.119, 0.92163)
	pt3dadd(299.151, 247.559, 53.1197, 0.559476)
	pt3dadd(299.577, 247.594, 53.4134, 0.36699)
	pt3dadd(299.881, 247.635, 53.4044, 0.322098)
	pt3dadd(300.094, 247.678, 53.4327, 0.32871)
	pt3dadd(300.464, 247.764, 53.435, 0.20585)
	pt3dadd(300.737, 247.778, 53.5079, 0.36671)
	pt3dadd(300.987, 247.723, 53.5442, 0.49813)
	pt3dadd(301.301, 247.634, 53.5381, 0.398734)
	pt3dadd(301.627, 247.582, 53.6106, 0.449012)
	pt3dadd(301.882, 247.512, 53.7399, 0.534912)
	pt3dadd(302.277, 247.553, 53.7412, 0.494984)
	pt3dadd(302.706, 247.497, 53.8695, 0.607196)
	pt3dadd(303.382, 247.402, 53.826, 0.688126)
	pt3dadd(304.06, 247.22, 53.8417, 0.968748)
	pt3dadd(304.728, 247.028, 53.9421, 0.843752)
	pt3dadd(305.197, 246.991, 54.0817, 0.695698)
	pt3dadd(305.91, 246.593, 53.9364, 0.40435)
	pt3dadd(306.287, 246.53, 53.9368, 0.478908)
	pt3dadd(306.655, 246.565, 53.9693, 0.390434)
	pt3dadd(306.941, 246.568, 53.9735, 0.382606)
	pt3dadd(307.226, 246.555, 53.8713, 0.435494)
	pt3dadd(307.529, 246.425, 53.7253, 0.334472)
	pt3dadd(307.801, 246.381, 53.6028, 0.462272)
	pt3dadd(308.097, 246.301, 53.497, 0.600166)
	pt3dadd(308.437, 246.347, 53.3672, 1.10906)
	pt3dadd(309.32, 246.296, 53.16, 1.50448)
	pt3dadd(310.215, 245.78, 53.1058, 1.39749)
	pt3dadd(311, 245.637, 52.9923, 0.435638)
	pt3dadd(311.396, 245.585, 52.9138, 0.77258)
	pt3dadd(311.783, 245.398, 53.1763, 1.02913)
	pt3dadd(312.501, 245.291, 53.4589, 0.674424)
	pt3dadd(312.972, 245.205, 53.3574, 0.33395)
	pt3dadd(313.216, 245.208, 53.2759, 0.23597)
	pt3dadd(313.541, 245.208, 53.3584, 0.252808)
	pt3dadd(313.804, 245.103, 53.5567, 0.420746)
	pt3dadd(314.188, 245.052, 53.4448, 0.449654)
	pt3dadd(314.616, 244.953, 53.4006, 0.57659)
	pt3dadd(314.996, 244.922, 53.3653, 0.933212)
	pt3dadd(315.68, 244.631, 53.5237, 0.753296)
	pt3dadd(316.2, 244.616, 53.331, 0.372868)
	pt3dadd(316.577, 244.629, 53.201, 0.683974)
	pt3dadd(316.977, 244.546, 53.4208, 0.625452)
	pt3dadd(317.283, 244.519, 53.5803, 0.598644)
	pt3dadd(317.617, 244.483, 53.7291, 0.982636)
	pt3dadd(318.909, 243.695, 53.9812, 0.602108)
	pt3dadd(319.404, 244.091, 53.9288, 1.388)
	pt3dadd(320.09, 243.608, 54.0012, 0.930454)
	pt3dadd(321.057, 243.507, 54.1734, 0.458396)
	pt3dadd(321.489, 243.405, 54.338, 0.2)
	pt3dadd(321.703, 243.377, 54.3769, 0.2)
	pt3dadd(321.84, 243.34, 54.4103, 0.343684)
	pt3dadd(322.086, 243.254, 54.4736, 0.34938)
	pt3dadd(322.345, 243.152, 54.5242, 0.506946)
	pt3dadd(322.65, 243.001, 54.3743, 0.491694)
	pt3dadd(322.832, 242.697, 54.1649, 0.426994)
	pt3dadd(323.462, 242.529, 54.0917, 0.671274)
	pt3dadd(323.842, 242.643, 54.3334, 0.825822)
	pt3dadd(324.564, 242.415, 54.6459, 0.687438)
	pt3dadd(324.926, 242.367, 54.8926, 0.70352)
	pt3dadd(325.302, 242.322, 55.0223, 0.610906)
	pt3dadd(325.706, 242.342, 55.0581, 0.543052)
	pt3dadd(326.087, 242.275, 55.3762, 0.674586)
	pt3dadd(326.418, 242.244, 55.58, 0.24156)
	pt3dadd(397.073, 220.252, 70.4653, 0.447576)
	pt3dadd(397.264, 220.152, 70.6147, 0.499764)
	pt3dadd(397.575, 219.875, 70.7165, 0.926116)
	pt3dadd(397.962, 219.585, 70.7969, 0.332844)
	pt3dadd(398.203, 219.39, 70.8954, 0.303924)
	pt3dadd(398.423, 219.269, 71.0395, 0.340054)
	pt3dadd(398.675, 219.102, 71.1311, 0.488348)
	pt3dadd(398.98, 218.872, 71.0835, 0.831504)
	pt3dadd(399.426, 218.826, 71.0994, 1.4095)
	pt3dadd(400.071, 217.991, 71.4265, 0.777364)
	pt3dadd(401.106, 217.839, 71.5857, 0.2)
	pt3dadd(401.331, 217.842, 71.5864, 0.238788)
	pt3dadd(401.507, 217.804, 71.6667, 0.385056)
	pt3dadd(401.746, 217.559, 71.6405, 0.20108)
	pt3dadd(401.898, 217.365, 71.6227, 0.41838)
  }
}
proc shape3d_27() {
  dend[53] {	pt3dadd(406.471, 216.703, 72.6119, 1.00643)
	pt3dadd(407.09, 216.631, 72.92, 0.753386)
	pt3dadd(407.531, 216.509, 73.0071, 0.34693)
	pt3dadd(407.772, 216.429, 73.0944, 0.27885)
	pt3dadd(407.996, 216.395, 73.2011, 0.301986)
	pt3dadd(408.218, 216.372, 73.3761, 0.31242)
	pt3dadd(408.52, 216.217, 73.5268, 0.288104)
	pt3dadd(408.743, 216.105, 73.7176, 0.46337)
	pt3dadd(409.033, 216.006, 73.7039, 0.2)
	pt3dadd(409.579, 215.875, 73.7557, 0.59067)
	pt3dadd(409.825, 215.611, 73.711, 0.416454)
	pt3dadd(409.812, 214.984, 73.9026, 0.2)
	pt3dadd(409.795, 214.74, 73.8342, 0.354644)
	pt3dadd(409.929, 214.556, 73.7029, 0.456886)
	pt3dadd(410.166, 214.406, 73.662, 0.30987)
	pt3dadd(410.559, 214.399, 73.7147, 0.428416)
	pt3dadd(410.89, 214.653, 74.0501, 0.900404)
	pt3dadd(411.304, 214.591, 74.1721, 0.234986)
	pt3dadd(411.485, 214.48, 74.2536, 0.2)
	pt3dadd(411.663, 214.302, 74.3757, 0.2)
	pt3dadd(411.747, 214.184, 74.6835, 0.306568)
	pt3dadd(415.135, 212.746, 75.1515, 0.613278)
	pt3dadd(415.513, 212.466, 75.5062, 0.576736)
	pt3dadd(417.25, 211.372, 76.6984, 0.445816)
	pt3dadd(417.534, 211.204, 76.2429, 0.629348)
	pt3dadd(417.83, 211.102, 76.1869, 0.698636)
	pt3dadd(418.666, 210.789, 76.2128, 0.88495)
	pt3dadd(419.374, 210.375, 76.3851, 0.36788)
	pt3dadd(419.678, 210.088, 76.2508, 0.2)
	pt3dadd(422.189, 208.617, 76.8381, 0.597714)
	pt3dadd(422.563, 208.389, 77.3173, 0.41034)
	pt3dadd(422.652, 208.39, 77.6239, 0.425424)
	pt3dadd(426, 208.12, 77.4, 0.2)
	pt3dadd(426.086, 208.084, 77.5592, 0.524368)
	pt3dadd(426.38, 207.968, 77.6824, 0.526262)
	pt3dadd(428.303, 207.725, 78.1108, 0.915848)
	pt3dadd(428.71, 207.666, 78.3145, 1.07561)
	pt3dadd(432.384, 207.533, 80.3445, 0.571908)
	pt3dadd(432.675, 207.431, 80.6364, 0.684094)
	pt3dadd(433.006, 207.315, 80.8222, 0.712474)
	pt3dadd(433.533, 207.246, 81.0851, 0.546186)
	pt3dadd(433.707, 207.2, 81.3513, 0.399032)
	pt3dadd(434.022, 207.207, 81.5799, 0.2)
	pt3dadd(434.251, 207.207, 81.6002, 0.2)
	pt3dadd(437.008, 207.946, 83.2, 0.2)
	pt3dadd(437.271, 208.057, 83.299, 0.57874)
	pt3dadd(437.551, 208.106, 83.4397, 0.555268)
	pt3dadd(437.946, 207.883, 83.7128, 0.383506)
	pt3dadd(448.352, 203.692, 86.9691, 0.2)
	pt3dadd(449.476, 203.486, 86.987, 0.77738)
	pt3dadd(453.004, 199.111, 86.6034, 0.2)
	pt3dadd(452.817, 198.807, 86.5606, 0.285746)
  }
  dend_6[29] {pt3dclear()
	pt3dadd(452.817, 198.807, 86.5606, 0.285746)
	pt3dadd(453.089, 198.485, 86.5087, 0.42688)
  }
  dend[54] {pt3dclear()
	pt3dadd(291.279, 248.365, 52.3498, 1.53392)
	pt3dadd(292.169, 248.588, 51.924, 0.698928)
	pt3dadd(292.497, 248.629, 51.6928, 0.468442)
	pt3dadd(292.839, 248.619, 51.486, 0.440538)
	pt3dadd(293.115, 248.579, 51.3488, 0.326006)
	pt3dadd(293.33, 248.514, 51.2328, 0.432318)
	pt3dadd(293.565, 248.44, 51.1168, 0.482146)
	pt3dadd(293.897, 248.341, 51.052, 0.612334)
	pt3dadd(294.177, 248.099, 50.9953, 0.986786)
	pt3dadd(294.691, 247.65, 50.3899, 0.628984)
	pt3dadd(294.906, 247.425, 50.2367, 0.485446)
	pt3dadd(295.254, 247.166, 50.1583, 0.334222)
	pt3dadd(295.488, 246.99, 50.0738, 0.241092)
	pt3dadd(295.76, 246.808, 49.9773, 0.315738)
	pt3dadd(296.076, 246.691, 49.8646, 0.622326)
	pt3dadd(296.375, 246.585, 49.7801, 0.761902)
	pt3dadd(297.013, 246.512, 49.4802, 1.08881)
	pt3dadd(297.799, 246.432, 49.1743, 0.738618)
	pt3dadd(298.165, 246.327, 49.0755, 0.529646)
	pt3dadd(298.504, 246.188, 48.9435, 0.405166)
	pt3dadd(299.053, 245.951, 48.8799, 0.266856)
	pt3dadd(299.249, 245.835, 48.8284, 0.3338)
	pt3dadd(299.479, 245.787, 48.7066, 0.473778)
	pt3dadd(300.091, 245.761, 48.6439, 0.698548)
	pt3dadd(300.515, 245.761, 48.5791, 1.04181)
	pt3dadd(301.403, 245.594, 48.4597, 0.707672)
	pt3dadd(301.805, 245.604, 48.4294, 0.909016)
	pt3dadd(302.256, 245.625, 48.3689, 1.08578)
	pt3dadd(303.2, 245.608, 48.107, 1.1252)
	pt3dadd(303.761, 245.219, 47.6544, 1.01471)
	pt3dadd(304.222, 245.125, 47.4113, 0.546264)
	pt3dadd(304.601, 244.988, 47.4024, 0.269744)
	pt3dadd(304.867, 244.899, 47.3735, 0.438106)
	pt3dadd(305.106, 244.819, 47.2699, 0.328506)
	pt3dadd(305.346, 244.787, 47.2437, 0.346152)
	pt3dadd(305.614, 244.764, 47.3459, 0.359898)
	pt3dadd(305.907, 244.893, 47.4792, 0.510792)
	pt3dadd(306.236, 244.893, 47.3391, 0.5652)
	pt3dadd(306.607, 244.87, 47.2236, 0.857292)
	pt3dadd(307.354, 244.716, 47.1678, 0.911678)
	pt3dadd(308.299, 244.637, 46.9474, 1.10404)
	pt3dadd(308.867, 244.343, 46.5042, 0.71388)
	pt3dadd(309.554, 244.118, 46.2941, 0.529908)
	pt3dadd(309.883, 244.088, 46.1363, 0.563934)
	pt3dadd(310.219, 244.033, 45.9417, 0.650366)
	pt3dadd(310.747, 243.813, 45.6266, 0.86856)
	pt3dadd(311.206, 243.738, 45.5147, 0.679772)
	pt3dadd(311.856, 243.656, 45.2226, 0.567348)
	pt3dadd(312.088, 243.368, 45.1214, 0.422008)
	pt3dadd(312.444, 243.176, 45.082, 0.358194)
	pt3dadd(312.644, 243.086, 44.9787, 0.2)
	pt3dadd(312.912, 242.938, 44.9111, 0.2)
	pt3dadd(313.139, 242.777, 44.9583, 0.401914)
	pt3dadd(313.348, 242.547, 45.0257, 0.66317)
	pt3dadd(313.713, 242.529, 44.9423, 0.92039)
	pt3dadd(314.556, 242.518, 44.5648, 0.873714)
	pt3dadd(315.18, 242.458, 44.2734, 0.713434)
	pt3dadd(315.328, 242.068, 43.629, 0.23519)
	pt3dadd(315.278, 241.959, 43.378, 0.307128)
	pt3dadd(315.556, 241.919, 43.2296, 0.31251)
	pt3dadd(315.892, 241.873, 43.1504, 0.43879)
	pt3dadd(316.13, 241.612, 43.0892, 0.539316)
	pt3dadd(316.311, 241.353, 43.0105, 0.575956)
	pt3dadd(316.495, 241, 42.9405, 0.520048)
	pt3dadd(316.8, 240.899, 42.8442, 0.67995)
	pt3dadd(317.126, 240.806, 42.7252, 1.01014)
	pt3dadd(318.076, 240.372, 42.4571, 0.63049)
	pt3dadd(318.367, 240.091, 42.396, 0.448806)
	pt3dadd(318.716, 239.915, 42.6229, 0.423236)
	pt3dadd(318.992, 239.706, 42.989, 0.690426)
	pt3dadd(319.861, 239.433, 41.3295, 0.262284)
	pt3dadd(319.959, 239.578, 41.7128, 0.448732)
	pt3dadd(320.368, 239.593, 42.1644, 0.36023)
	pt3dadd(320.825, 239.479, 42.1148, 0.736452)
	pt3dadd(321.197, 239.262, 41.9386, 1.14578)
	pt3dadd(322.328, 239.086, 41.3439, 0.725406)
	pt3dadd(322.659, 238.996, 41.1724, 0.704316)
	pt3dadd(323.04, 238.999, 41.0416, 0.957886)
	pt3dadd(323.788, 238.893, 40.8168, 0.98754)
	pt3dadd(324.121, 238.544, 40.5417, 0.649316)
	pt3dadd(324.676, 238.096, 40.5012, 0.2)
	pt3dadd(324.843, 237.847, 40.538, 0.21376)
	pt3dadd(325.06, 237.72, 40.5946, 0.522432)
	pt3dadd(325.396, 237.468, 40.4384, 0.40415)
	pt3dadd(325.747, 237.289, 40.3406, 0.344342)
	pt3dadd(325.958, 237.091, 40.2029, 0.555436)
	pt3dadd(326.236, 237.006, 40.1649, 0.306672)
	pt3dadd(326.501, 236.948, 40.0721, 0.352882)
	pt3dadd(326.778, 236.872, 39.9678, 0.453888)
	pt3dadd(327.102, 236.786, 39.9343, 0.804876)
	pt3dadd(327.779, 236.417, 39.8603, 1.27551)
	pt3dadd(328.512, 236.032, 40.0348, 0.926954)
	pt3dadd(329.217, 236.179, 39.6758, 0.65726)
	pt3dadd(329.55, 236.336, 39.5251, 0.900756)
	pt3dadd(329.937, 236.222, 39.3059, 0.900364)
	pt3dadd(330.696, 235.901, 38.8765, 0.430242)
	pt3dadd(330.951, 235.688, 38.8813, 0.26415)
	pt3dadd(331.186, 235.431, 38.9679, 0.335532)
	pt3dadd(331.565, 235.191, 38.7221, 0.420236)
	pt3dadd(331.915, 234.941, 38.5538, 0.76921)
	pt3dadd(332.293, 234.739, 38.4677, 1.03893)
	pt3dadd(333.138, 234.378, 38.4039, 1.26988)
	pt3dadd(334.098, 234.038, 38.2713, 1.39626)
	pt3dadd(334.59, 233.598, 38.0044, 1.23485)
	pt3dadd(335.358, 233.568, 37.7949, 0.85218)
	pt3dadd(335.683, 233.321, 37.6305, 0.789604)
	pt3dadd(336.04, 233.07, 37.4004, 0.719958)
	pt3dadd(336.612, 232.759, 37.2043, 0.436034)
	pt3dadd(336.925, 232.596, 37.105, 0.445384)
	pt3dadd(337.212, 232.418, 37.1055, 0.451422)
	pt3dadd(337.585, 232.276, 37.1229, 0.671584)
	pt3dadd(337.958, 232.272, 37.1734, 0.693746)
	pt3dadd(338.181, 231.672, 37.1588, 0.263316)
	pt3dadd(338.506, 231.398, 37.1739, 0.473454)
	pt3dadd(338.791, 231.278, 37.1478, 0.630088)
	pt3dadd(339.125, 231.108, 37.0437, 0.586252)
	pt3dadd(339.406, 230.963, 36.8534, 0.571846)
	pt3dadd(339.707, 230.78, 36.645, 0.485308)
	pt3dadd(339.943, 230.487, 36.5117, 0.345342)
	pt3dadd(340.185, 230.268, 36.3171, 0.562818)
	pt3dadd(340.328, 230.127, 36.116, 0.549542)
	pt3dadd(340.897, 229.981, 36.313, 0.2)
	pt3dadd(341.168, 229.817, 36.3593, 0.2)
	pt3dadd(341.421, 229.586, 36.3094, 0.50491)
	pt3dadd(341.625, 229.373, 36.2395, 0.745636)
	pt3dadd(342.139, 228.806, 36.4518, 0.465222)
	pt3dadd(342.381, 228.589, 36.5538, 0.372894)
	pt3dadd(342.658, 228.382, 36.7397, 0.498458)
	pt3dadd(342.896, 228.18, 36.8605, 0.654366)
	pt3dadd(343.216, 227.802, 36.6598, 0.48454)
	pt3dadd(343.382, 227.453, 36.5767, 0.65675)
	pt3dadd(343.752, 227.284, 36.6259, 0.548462)
	pt3dadd(344.233, 227.07, 36.6358, 0.338156)
	pt3dadd(344.493, 226.894, 36.6243, 0.387266)
	pt3dadd(344.729, 226.638, 36.6357, 0.615708)
	pt3dadd(345.002, 226.411, 36.6108, 0.754196)
	pt3dadd(345.453, 226.296, 36.4551, 1.04887)
	pt3dadd(345.888, 226.006, 36.3592, 1.40631)
	pt3dadd(346.95, 225.196, 36.2117, 0.653556)
	pt3dadd(347.317, 225.083, 36.1206, 0.511262)
	pt3dadd(347.654, 224.948, 35.9872, 0.627484)
	pt3dadd(348.038, 224.671, 35.9147, 0.53581)
	pt3dadd(348.384, 224.428, 35.9609, 0.489196)
	pt3dadd(348.693, 224.207, 36.0373, 0.351256)
	pt3dadd(349.092, 224.126, 35.8348, 0.53324)
	pt3dadd(349.452, 223.899, 35.6841, 0.741618)
  }
}
proc shape3d_28() {
  dend[54] {	pt3dadd(349.757, 223.443, 35.636, 0.765466)
	pt3dadd(350.097, 223.262, 35.6394, 0.764306)
	pt3dadd(350.451, 223.098, 35.6269, 0.89469)
	pt3dadd(350.964, 222.406, 35.7261, 1.01916)
	pt3dadd(351.588, 221.771, 35.6677, 0.890186)
	pt3dadd(352.276, 220.929, 35.5308, 0.529702)
	pt3dadd(352.671, 220.786, 35.4986, 0.612704)
	pt3dadd(353.09, 220.448, 35.2497, 0.526262)
	pt3dadd(353.431, 220.061, 35.1454, 0.2)
	pt3dadd(353.636, 219.806, 35.0611, 0.2)
	pt3dadd(353.845, 219.558, 35.0099, 0.309694)
	pt3dadd(353.987, 219.379, 34.9054, 0.356872)
	pt3dadd(354.331, 219.173, 34.7785, 0.2)
	pt3dadd(355.992, 217.73, 34.4407, 0.513122)
	pt3dadd(356.173, 217.305, 34.3197, 0.760456)
	pt3dadd(356.897, 216.611, 34.525, 1.12908)
	pt3dadd(357.279, 216.283, 34.5243, 0.67709)
	pt3dadd(357.651, 216.09, 34.4465, 0.602356)
	pt3dadd(358.728, 214.436, 33.9402, 1.18447)
	pt3dadd(359.595, 214.317, 33.7058, 1.1547)
	pt3dadd(360.598, 214.029, 33.0807, 0.708788)
	pt3dadd(361.996, 213.416, 32.9734, 0.2)
	pt3dadd(362.312, 213.306, 32.8514, 0.2)
	pt3dadd(362.542, 213.147, 32.9313, 0.213642)
	pt3dadd(362.683, 212.967, 32.9807, 0.316366)
	pt3dadd(362.91, 212.686, 32.9006, 0.2)
	pt3dadd(363.46, 212.137, 32.8598, 0.780414)
	pt3dadd(363.674, 211.765, 32.9461, 0.448674)
	pt3dadd(363.95, 211.489, 33.2262, 0.622504)
	pt3dadd(364.133, 211.355, 33.655, 0.45841)
	pt3dadd(364.841, 210.396, 34.1001, 0.747248)
	pt3dadd(364.9, 210.216, 33.4843, 0.563318)
	pt3dadd(365.06, 209.912, 33.2577, 0.43165)
	pt3dadd(365.51, 209.451, 33.1886, 0.834802)
	pt3dadd(366.256, 209.14, 33.0747, 0.933494)
	pt3dadd(366.916, 208.699, 33.0147, 0.985384)
	pt3dadd(367.894, 208.48, 32.9288, 0.632762)
	pt3dadd(368.41, 208.495, 32.8023, 0.488388)
	pt3dadd(368.838, 208.35, 32.9045, 0.454328)
	pt3dadd(369.114, 208.227, 32.9916, 0.354088)
	pt3dadd(369.396, 208.124, 32.9799, 0.258332)
	pt3dadd(369.666, 207.969, 32.9719, 0.371154)
	pt3dadd(370.088, 207.775, 33.0004, 0.312282)
	pt3dadd(370.37, 207.716, 32.8969, 0.2)
	pt3dadd(370.676, 207.66, 32.8697, 0.543436)
	pt3dadd(371.293, 207.212, 32.8899, 0.2)
	pt3dadd(371.542, 206.972, 32.884, 0.285702)
	pt3dadd(371.852, 206.732, 32.9206, 0.516844)
	pt3dadd(372.205, 206.583, 33.0074, 0.868564)
	pt3dadd(373.182, 206.12, 33.116, 0.2)
	pt3dadd(373.416, 205.881, 33.1788, 0.210052)
	pt3dadd(373.683, 205.803, 33.4844, 0.252836)
	pt3dadd(375.707, 204.046, 33.7032, 0.836262)
	pt3dadd(376.085, 203.864, 33.6149, 0.51346)
	pt3dadd(378.908, 201.572, 34.2, 0.2)
	pt3dadd(378.953, 201.398, 34.1687, 0.691514)
	pt3dadd(379.444, 201.3, 34.1427, 0.420188)
	pt3dadd(379.844, 201.274, 34.1604, 0.611432)
	pt3dadd(380.565, 200.862, 34.1171, 1.32707)
	pt3dadd(381.301, 200.246, 34.3337, 1.14783)
	pt3dadd(382.106, 199.856, 34.2153, 0.2)
	pt3dadd(382.33, 199.843, 34.196, 0.2)
	pt3dadd(382.492, 199.779, 34.0938, 0.354112)
	pt3dadd(382.723, 199.711, 33.9132, 0.442698)
	pt3dadd(382.999, 199.397, 33.9556, 0.2)
	pt3dadd(383.261, 199.159, 33.9874, 0.366082)
	pt3dadd(383.626, 199.073, 34.0054, 0.426462)
	pt3dadd(383.934, 199.076, 34.0958, 0.545426)
	pt3dadd(384.447, 198.897, 34.1968, 1.05312)
	pt3dadd(385.001, 198.086, 34.3579, 1.2135)
	pt3dadd(385.524, 197.983, 34.439, 1.03195)
	pt3dadd(386.205, 197.909, 34.4188, 0.527146)
	pt3dadd(386.819, 197.806, 34.8586, 0.423392)
	pt3dadd(387.079, 197.623, 34.9741, 0.207172)
	pt3dadd(387.392, 197.563, 35.0933, 0.320776)
	pt3dadd(387.588, 197.478, 35.1718, 0.423532)
	pt3dadd(387.878, 197.382, 35.1849, 0.362736)
	pt3dadd(388.589, 197.411, 35.3415, 0.817988)
	pt3dadd(389.267, 196.941, 35.5909, 0.895664)
	pt3dadd(389.852, 196.984, 35.2842, 0.59382)
	pt3dadd(390.244, 196.69, 35.3183, 0.312188)
	pt3dadd(390.529, 196.576, 35.4191, 0.2)
	pt3dadd(390.826, 196.408, 35.4139, 0.2)
	pt3dadd(391.134, 196.144, 35.3997, 0.2)
	pt3dadd(391.427, 195.972, 35.3949, 0.2)
	pt3dadd(391.709, 195.797, 35.3017, 0.385982)
	pt3dadd(392.035, 195.663, 35.221, 0.60093)
	pt3dadd(392.392, 195.45, 35.4202, 0.873118)
	pt3dadd(392.927, 195.168, 35.8302, 1.12501)
	pt3dadd(393.671, 194.813, 35.9566, 1.03599)
	pt3dadd(394.07, 194.645, 36.1338, 0.763896)
	pt3dadd(396.435, 193.232, 36.555, 1.1591)
	pt3dadd(397.288, 192.795, 36.7745, 0.787042)
	pt3dadd(398.064, 192.833, 36.9808, 0.355762)
	pt3dadd(402.551, 190.777, 37.0816, 0.738172)
	pt3dadd(402.827, 190.586, 36.8322, 0.956682)
	pt3dadd(403.497, 189.852, 36.7635, 0.99685)
	pt3dadd(407.154, 188.5, 36.8221, 0.601928)
	pt3dadd(407.585, 188.264, 36.7179, 0.525104)
	pt3dadd(407.872, 188.06, 36.7068, 0.508558)
	pt3dadd(408.153, 187.94, 36.624, 0.772772)
	pt3dadd(408.493, 187.677, 36.5272, 0.757998)
	pt3dadd(409.2, 187.691, 36.5096, 0.81149)
	pt3dadd(409.516, 187.746, 36.1758, 0.731844)
	pt3dadd(410.216, 187.802, 35.6656, 0.2)
	pt3dadd(412.01, 187.507, 36.1701, 0.806614)
	pt3dadd(412.582, 187.403, 35.9005, 0.75389)
	pt3dadd(412.972, 187.084, 35.9099, 0.409746)
	pt3dadd(414.364, 186.788, 36.0208, 0.2)
	pt3dadd(414.532, 186.786, 36.0416, 0.229504)
	pt3dadd(414.735, 186.752, 36.1073, 0.34015)
	pt3dadd(415.018, 186.745, 36.1255, 0.48454)
	pt3dadd(415.514, 186.718, 36.0611, 0.574886)
	pt3dadd(418.505, 185.295, 36.2876, 1.3233)
	pt3dadd(418.893, 184.728, 36.1463, 0.986142)
	pt3dadd(422.747, 183.264, 37.3105, 0.657506)
	pt3dadd(424.178, 182.674, 36.604, 0.417632)
	pt3dadd(424.761, 182.469, 36.6303, 0.566356)
	pt3dadd(426.389, 181.683, 36.4282, 0.52895)
	pt3dadd(428.516, 180.672, 35.8104, 0.555442)
	pt3dadd(428.869, 180.741, 36.1435, 0.838132)
	pt3dadd(430.169, 178.72, 35.5741, 0.61977)
	pt3dadd(432.448, 176.497, 36.5771, 0.409112)
	pt3dadd(432.947, 176.227, 36.8011, 0.568228)
	pt3dadd(435.241, 175.074, 36.9462, 0.561258)
  }
  dend_6[30] {pt3dclear()
	pt3dadd(435.241, 175.074, 36.9462, 0.561258)
	pt3dadd(435.712, 174.974, 37.219, 0.746022)
  }
  dend[55] {pt3dclear()
	pt3dadd(271.155, 258.493, 51.6556, 1.3319)
	pt3dadd(270.835, 257.619, 51.5979, 0.403532)
	pt3dadd(270.783, 257.376, 51.5847, 0.274586)
	pt3dadd(270.711, 257.114, 51.5359, 0.453296)
	pt3dadd(270.612, 256.909, 51.5237, 0.345912)
	pt3dadd(270.561, 256.657, 51.4843, 0.41199)
	pt3dadd(270.481, 256.405, 51.4363, 0.505462)
	pt3dadd(270.386, 256.098, 51.4489, 0.582388)
	pt3dadd(270.262, 255.727, 51.4697, 0.499848)
	pt3dadd(270.119, 255.469, 51.5078, 0.56128)
	pt3dadd(269.929, 255.143, 51.5466, 0.57103)
	pt3dadd(269.767, 254.801, 51.5585, 0.541336)
	pt3dadd(269.595, 254.481, 51.549, 0.45075)
	pt3dadd(269.297, 254.074, 51.5176, 0.442202)
	pt3dadd(269.098, 253.75, 51.5166, 0.374332)
	pt3dadd(268.916, 253.443, 51.5601, 0.53518)
	pt3dadd(268.69, 253.161, 51.5621, 0.60075)
	pt3dadd(268.545, 252.847, 51.5179, 0.56895)
	pt3dadd(268.345, 252.551, 51.4866, 0.531672)
	pt3dadd(268.148, 252.251, 51.4629, 0.684378)
	pt3dadd(268.001, 251.935, 51.4447, 0.85211)
	pt3dadd(267.715, 251.606, 51.3963, 0.84719)
	pt3dadd(267.452, 251.266, 51.4258, 0.75789)
	pt3dadd(267.246, 250.944, 51.4387, 0.836896)
	pt3dadd(266.638, 250.353, 51.4015, 0.906944)
	pt3dadd(266.128, 249.794, 51.34, 0.550912)
	pt3dadd(265.829, 249.621, 51.3117, 0.517974)
	pt3dadd(265.552, 249.37, 51.3176, 0.388846)
	pt3dadd(265.356, 249.156, 51.3243, 0.395276)
	pt3dadd(265.124, 248.929, 51.2793, 0.474536)
	pt3dadd(264.872, 248.692, 51.1834, 0.58628)
	pt3dadd(264.57, 248.465, 51.1897, 0.583902)
	pt3dadd(264.208, 248.185, 51.2912, 0.56663)
	pt3dadd(263.897, 247.928, 51.3405, 0.703262)
	pt3dadd(263.647, 247.623, 51.362, 0.7157)
	pt3dadd(263.397, 247.348, 51.4523, 0.6955)
	pt3dadd(263.216, 247.002, 51.5997, 0.662668)
	pt3dadd(262.808, 246.509, 51.6098, 0.595016)
	pt3dadd(262.674, 246.181, 51.5798, 0.493116)
	pt3dadd(262.526, 245.875, 51.5872, 0.521516)
	pt3dadd(262.323, 245.531, 51.608, 0.684666)
	pt3dadd(262.124, 245.211, 51.6678, 0.852028)
	pt3dadd(261.692, 244.607, 51.6082, 0.998452)
	pt3dadd(261.205, 243.987, 51.3797, 1.15087)
	pt3dadd(260.709, 243.644, 51.4568, 0.779678)
	pt3dadd(260.329, 243.324, 51.417, 0.669008)
	pt3dadd(260.071, 243.08, 51.3799, 0.47859)
	pt3dadd(259.763, 242.893, 51.2591, 0.581486)
	pt3dadd(259.499, 242.647, 51.2272, 0.596018)
	pt3dadd(259.27, 242.413, 51.0805, 0.375878)
	pt3dadd(238.198, 228.67, 56.7547, 0.80418)
	pt3dadd(238.068, 228.283, 56.8663, 0.804044)
	pt3dadd(238.044, 227.773, 56.8367, 0.899878)
	pt3dadd(237.86, 227.123, 56.8904, 1.42016)
	pt3dadd(237.296, 226.491, 56.6934, 0.8427)
	pt3dadd(237.137, 225.768, 56.5179, 0.42472)
	pt3dadd(237.056, 225.508, 56.4389, 0.229598)
	pt3dadd(236.782, 224.172, 56.4433, 0.717874)
	pt3dadd(236.387, 223.451, 56.3197, 0.93153)
	pt3dadd(236.288, 222.804, 56.2411, 0.900196)
	pt3dadd(236.309, 222.292, 56.4231, 1.05277)
	pt3dadd(235.915, 221.098, 56.2769, 0.976984)
	pt3dadd(236.01, 220.275, 56.2113, 0.73054)
	pt3dadd(236.093, 219.746, 56.3455, 0.909546)
	pt3dadd(235.903, 218.945, 56.141, 0.981282)
	pt3dadd(235.439, 218.388, 56.0601, 0.706424)
	pt3dadd(235.162, 217.943, 56.0446, 0.970126)
	pt3dadd(234.621, 217.755, 56.0646, 0.812264)
	pt3dadd(234.661, 217.24, 56.0188, 1.15889)
	pt3dadd(234.575, 216.474, 55.8607, 1.00471)
	pt3dadd(233.587, 212.077, 55.6652, 0.729046)
	pt3dadd(233.492, 211.865, 55.0654, 0.537052)
	pt3dadd(233.391, 211.555, 54.7766, 0.59637)
  }
}
proc shape3d_29() {
  dend[55] {	pt3dadd(233.464, 211.197, 54.6196, 0.566502)
	pt3dadd(233.597, 210.907, 54.4877, 0.75449)
	pt3dadd(233.52, 210.108, 54.6031, 0.893882)
	pt3dadd(233.415, 209.582, 54.3279, 0.400524)
	pt3dadd(233.189, 204.295, 55.754, 0.806424)
	pt3dadd(232.975, 204.012, 55.2793, 0.794888)
	pt3dadd(232.743, 203.285, 55.3696, 0.701728)
	pt3dadd(232.553, 202.606, 55.4433, 0.962202)
	pt3dadd(232.096, 201.999, 55.8192, 0.90423)
	pt3dadd(232.073, 201.716, 56.6016, 0.590544)
	pt3dadd(230.444, 199.34, 55.8574, 0.64387)
	pt3dadd(229.903, 198.682, 56, 1.03931)
	pt3dadd(229.452, 197.925, 56.1002, 0.810024)
	pt3dadd(229.314, 197.139, 56.2354, 0.948972)
	pt3dadd(227.965, 195.064, 56.7061, 0.539802)
	pt3dadd(228.151, 194.698, 56.1031, 1.06476)
	pt3dadd(227.787, 194.009, 56.093, 1.06918)
	pt3dadd(227.493, 193.23, 55.7887, 0.649444)
	pt3dadd(227.597, 192.497, 55.642, 0.952016)
	pt3dadd(227.582, 192.141, 55.4587, 0.774696)
	pt3dadd(227.386, 191.835, 55.3047, 0.780966)
	pt3dadd(223.236, 186.673, 55.6553, 0.94471)
	pt3dadd(222.955, 186.291, 56.1331, 1.20639)
	pt3dadd(218.49, 177.22, 56.2504, 0.557844)
	pt3dadd(218.152, 176.922, 56.6095, 0.926644)
	pt3dadd(217.813, 176.536, 56.7078, 0.867834)
	pt3dadd(217.162, 175.882, 56.6888, 1.07372)
	pt3dadd(216.777, 175.183, 56.6876, 1.00481)
	pt3dadd(215.838, 174.665, 56.4912, 0.2)
	pt3dadd(215.592, 174.423, 56.4915, 0.384478)
	pt3dadd(215.416, 174.124, 56.4738, 0.411418)
	pt3dadd(214.199, 172.19, 56.759, 0.949312)
	pt3dadd(213.654, 171.706, 56.6193, 1.16232)
	pt3dadd(213.463, 171.072, 56.6705, 0.348784)
	pt3dadd(213.43, 170.721, 56.7702, 0.240146)
	pt3dadd(213.38, 170.495, 56.7149, 0.239378)
	pt3dadd(213.464, 170.335, 56.587, 0.433122)
	pt3dadd(213.288, 169.901, 56.6739, 0.392248)
	pt3dadd(213.259, 169.63, 56.753, 0.50935)
	pt3dadd(209.39, 162.912, 57.7883, 0.251302)
	pt3dadd(209.274, 162.628, 57.9444, 0.389588)
	pt3dadd(208.956, 162.1, 58.1512, 0.887712)
	pt3dadd(208.393, 161.73, 58.3077, 0.907022)
	pt3dadd(208.21, 161.326, 58.4796, 0.85706)
	pt3dadd(207.913, 160.994, 58.644, 0.762914)
	pt3dadd(207.713, 160.154, 58.9962, 0.681248)
	pt3dadd(207.259, 160.113, 59.2522, 0.400258)
	pt3dadd(204.096, 154.238, 60.0994, 0.681786)
	pt3dadd(203.965, 153.364, 60.0128, 1.07349)
	pt3dadd(204.062, 152.615, 60.1638, 0.827454)
	pt3dadd(204.066, 152.186, 60.2677, 0.718742)
	pt3dadd(203.831, 151.408, 60.4637, 1.13649)
	pt3dadd(203.623, 150.815, 60.7433, 0.787726)
	pt3dadd(203.424, 150.527, 60.8744, 0.729392)
	pt3dadd(202.031, 149.779, 61, 0.2)
	pt3dadd(201.792, 149.565, 61.0024, 0.541502)
	pt3dadd(201.464, 149.398, 61.1509, 0.55439)
	pt3dadd(201.148, 149.3, 61.2741, 0.607404)
	pt3dadd(200.809, 149.267, 61.4249, 0.4915)
	pt3dadd(200.56, 149.29, 61.6232, 0.470608)
	pt3dadd(200.3, 149.357, 61.8378, 0.486782)
	pt3dadd(200.121, 149.226, 62.0884, 0.431646)
	pt3dadd(199.52, 148.999, 61.8369, 0.218332)
	pt3dadd(199.36, 148.989, 61.9184, 0.2)
	pt3dadd(199.114, 148.916, 62.0178, 0.2)
	pt3dadd(198.723, 148.9, 62.2877, 0.498818)
	pt3dadd(198.384, 148.86, 62.7129, 0.61034)
	pt3dadd(198.028, 148.681, 62.8076, 0.413832)
	pt3dadd(197.756, 148.606, 62.9822, 0.2)
	pt3dadd(197.54, 148.574, 63.1612, 0.31681)
	pt3dadd(197.35, 148.574, 63.3506, 0.302838)
	pt3dadd(197.008, 148.57, 63.5454, 0.2)
	pt3dadd(196.368, 148.428, 63.3546, 0.2)
	pt3dadd(196.127, 148.386, 63.3161, 0.209106)
	pt3dadd(194.475, 147.798, 63.62, 1.19892)
	pt3dadd(193.732, 147.302, 63.5538, 0.783912)
	pt3dadd(193.394, 146.918, 63.5601, 0.98203)
	pt3dadd(192.92, 146.489, 63.8758, 0.750684)
	pt3dadd(192.702, 146.226, 64.1623, 0.627626)
	pt3dadd(192.486, 145.784, 64.1269, 0.2)
	pt3dadd(192.393, 145.484, 64.0397, 0.2)
	pt3dadd(192.215, 145.391, 63.892, 0.2)
	pt3dadd(191.098, 144.6, 64.4816, 0.961054)
	pt3dadd(188.903, 143.03, 64.6081, 0.438788)
	pt3dadd(188.61, 142.953, 64.7984, 0.295216)
	pt3dadd(188.36, 142.844, 64.9306, 0.48324)
	pt3dadd(187.666, 142.331, 65.1926, 0.89551)
	pt3dadd(180.825, 137.766, 68.0814, 0.448848)
	pt3dadd(177.923, 134.128, 69.2659, 0.581088)
	pt3dadd(177.759, 133.851, 69.2277, 0.2)
	pt3dadd(177.544, 133.585, 69.1761, 0.2)
	pt3dadd(177.389, 133.385, 69.0837, 0.2)
	pt3dadd(177.28, 133.194, 69.0567, 0.244904)
	pt3dadd(176.78, 132.492, 69.0155, 0.63981)
	pt3dadd(176.546, 132.291, 69.0359, 0.507222)
	pt3dadd(176.422, 132.081, 69.09, 0.367438)
	pt3dadd(176.317, 131.41, 69.0875, 0.925132)
	pt3dadd(175.81, 130.87, 69.1399, 1.18764)
	pt3dadd(175.301, 130.412, 69.3415, 1.40488)
	pt3dadd(175.407, 129.769, 69.7544, 0.834328)
	pt3dadd(171.798, 126.492, 69.0051, 1.32702)
	pt3dadd(170.822, 126.001, 68.9404, 0.403926)
	pt3dadd(170.615, 125.737, 68.9302, 0.2)
	pt3dadd(170.328, 125.474, 68.8927, 0.276314)
	pt3dadd(170.052, 125.366, 68.8436, 0.678546)
	pt3dadd(169.69, 125.338, 68.5429, 0.89593)
	pt3dadd(169.422, 125.452, 68.6, 0.2)
	pt3dadd(167.508, 124.971, 68.0317, 0.729106)
	pt3dadd(167.013, 124.624, 67.5885, 0.834626)
  }
  dend_6[31] {pt3dclear()
	pt3dadd(167.013, 124.624, 67.5885, 0.834626)
	pt3dadd(162.542, 114.081, 65.8076, 0.64931)
  }
  dend_5[23] {pt3dclear()
	pt3dadd(270.186, 260.803, 52.3018, 1.76101)
	pt3dadd(271.017, 261.497, 53.7175, 1.34891)
  }
  dend[56] {pt3dclear()
	pt3dadd(271.017, 261.497, 53.7175, 1.34891)
	pt3dadd(270.617, 260.987, 54.3562, 0.614956)
	pt3dadd(270.412, 260.82, 54.6148, 0.475562)
	pt3dadd(270.259, 260.588, 54.8506, 0.521656)
	pt3dadd(270.096, 260.417, 55.0803, 0.635258)
	pt3dadd(269.893, 260.206, 55.3021, 0.612732)
	pt3dadd(269.724, 259.984, 55.5084, 0.590872)
	pt3dadd(269.574, 259.756, 55.6828, 0.727606)
	pt3dadd(269.124, 259.378, 56.0746, 0.900626)
	pt3dadd(268.69, 258.889, 56.4361, 0.913944)
	pt3dadd(268.105, 258.57, 56.9898, 0.572498)
	pt3dadd(267.86, 258.552, 57.1542, 0.34333)
	pt3dadd(267.638, 258.487, 57.3238, 0.41594)
	pt3dadd(267.381, 258.411, 57.4715, 0.403082)
	pt3dadd(267.137, 258.308, 57.642, 0.476944)
	pt3dadd(266.893, 258.205, 57.7829, 0.413)
	pt3dadd(266.604, 258.022, 57.9054, 0.493796)
	pt3dadd(266.284, 257.83, 58.0262, 0.879222)
  }
  dend_5[24] {pt3dclear()
	pt3dadd(266.284, 257.83, 58.0262, 0.879222)
	pt3dadd(265.487, 257.831, 58.7014, 1.47624)
  }
  dend[57] {pt3dclear()
	pt3dadd(265.487, 257.831, 58.7014, 1.47624)
	pt3dadd(266.139, 258.013, 59.5614, 0.449226)
	pt3dadd(266.288, 258.044, 59.7983, 0.335294)
	pt3dadd(266.439, 258.089, 60.024, 0.498926)
	pt3dadd(266.555, 258.021, 60.352, 0.618362)
	pt3dadd(266.574, 257.993, 60.6702, 0.89594)
	pt3dadd(266.325, 257.839, 61.3513, 1.22579)
	pt3dadd(265.647, 257.718, 61.9543, 0.944552)
	pt3dadd(265.197, 257.613, 62.4689, 0.672028)
	pt3dadd(264.747, 257.533, 62.8602, 0.541182)
	pt3dadd(264.499, 257.43, 63.05, 0.60397)
	pt3dadd(264.29, 257.302, 63.2801, 0.585206)
	pt3dadd(264.117, 257.188, 63.5149, 0.53061)
	pt3dadd(263.921, 257.084, 63.835, 0.542168)
	pt3dadd(263.689, 256.866, 64.1179, 0.333258)
	pt3dadd(263.517, 256.68, 64.2895, 0.2)
	pt3dadd(263.333, 256.537, 64.5447, 0.448414)
	pt3dadd(263.221, 256.492, 64.7837, 0.587748)
	pt3dadd(263.113, 256.375, 65.0726, 0.646098)
	pt3dadd(263.062, 256.319, 65.3984, 0.643814)
	pt3dadd(262.776, 256.23, 65.8538, 0.299536)
	pt3dadd(262.545, 256.091, 66.0659, 0.2)
	pt3dadd(262.364, 255.997, 66.2798, 0.2)
	pt3dadd(262.239, 255.88, 66.451, 0.588326)
	pt3dadd(262.161, 255.712, 66.7025, 0.77767)
	pt3dadd(261.963, 255.555, 67.3075, 0.754786)
	pt3dadd(254.404, 248.998, 82.3677, 0.345414)
	pt3dadd(254.289, 248.425, 83.1124, 1.02308)
	pt3dadd(254.63, 247.771, 83.6902, 1.04362)
	pt3dadd(254.399, 247.303, 83.7686, 0.515002)
	pt3dadd(254.63, 246.651, 84.0027, 0.760732)
	pt3dadd(254.56, 246.397, 84.2185, 0.600072)
	pt3dadd(254.585, 246.112, 84.5358, 0.392824)
	pt3dadd(254.63, 245.926, 84.6676, 0.2)
	pt3dadd(254.883, 244.77, 85.5075, 1.16155)
	pt3dadd(254.82, 244.34, 85.7149, 0.686656)
	pt3dadd(254.491, 243.995, 86.0227, 0.874972)
	pt3dadd(254.102, 243.985, 86.1754, 0.7229)
	pt3dadd(253.862, 243.099, 86.7645, 1.1637)
	pt3dadd(253.581, 242.77, 87.4012, 1.04941)
	pt3dadd(253.19, 243.07, 87.9161, 0.314038)
	pt3dadd(253.093, 243.25, 88.3979, 0.551406)
  }
  dend_6[32] {pt3dclear()
	pt3dadd(253.093, 243.25, 88.3979, 0.551406)
	pt3dadd(253.055, 243.261, 88.6262, 0.447586)
  }
  dend[58] {pt3dclear()
	pt3dadd(265.487, 257.831, 58.7014, 1.47624)
	pt3dadd(264.777, 257.813, 59.0458, 1.14014)
	pt3dadd(264.051, 257.602, 59.4011, 0.836576)
	pt3dadd(263.362, 257.34, 59.5812, 0.730142)
	pt3dadd(262.669, 257.226, 59.8134, 0.652328)
	pt3dadd(262.094, 257.146, 59.9733, 0.721054)
	pt3dadd(261.627, 256.983, 60.0643, 0.437398)
	pt3dadd(261.311, 256.895, 60.0979, 0.503134)
	pt3dadd(261.022, 256.869, 60.1258, 0.489014)
	pt3dadd(260.679, 256.758, 60.1913, 0.563112)
	pt3dadd(260.387, 256.584, 60.2927, 0.700838)
	pt3dadd(260.001, 256.51, 60.3713, 0.948774)
	pt3dadd(259.184, 256.099, 60.3692, 0.73892)
	pt3dadd(258.755, 255.884, 60.4232, 0.87833)
	pt3dadd(258.081, 255.654, 60.5542, 0.525892)
	pt3dadd(257.782, 255.458, 60.5923, 0.55652)
	pt3dadd(257.464, 255.267, 60.661, 0.649908)
	pt3dadd(257.099, 255.14, 60.702, 0.807094)
	pt3dadd(256.44, 254.611, 60.8148, 1.11168)
	pt3dadd(255.652, 253.999, 60.9666, 0.868138)
	pt3dadd(254.86, 253.779, 61.1109, 1.14639)
	pt3dadd(254.069, 253.51, 61.2972, 1.21312)
	pt3dadd(253.414, 252.995, 61.4006, 1.57636)
  }
}
proc shape3d_30() {
  dend[58] {	pt3dadd(252.597, 252.286, 61.4895, 0.979306)
	pt3dadd(252.034, 252.375, 61.4543, 1.05807)
	pt3dadd(251.524, 252.541, 61.3739, 0.991178)
	pt3dadd(236.217, 249.476, 66.163, 0.513002)
	pt3dadd(235.8, 249.464, 66.6032, 0.769296)
	pt3dadd(235.409, 249.377, 66.7452, 0.983916)
	pt3dadd(234.867, 249.208, 66.6437, 1.17439)
	pt3dadd(234.376, 248.812, 66.7057, 1.11703)
	pt3dadd(233.594, 248.504, 66.9572, 0.97116)
	pt3dadd(233.138, 248.725, 67.0353, 1.3301)
	pt3dadd(231.731, 248.264, 67.094, 1.05066)
	pt3dadd(229.441, 247.499, 67.2183, 0.403584)
	pt3dadd(229.034, 247.417, 67.0561, 0.707276)
	pt3dadd(228.547, 247.056, 67.0459, 0.643096)
	pt3dadd(227.707, 246.972, 67.4249, 1.21527)
	pt3dadd(227.008, 246.432, 67.6271, 0.672164)
	pt3dadd(226.55, 246.165, 67.6013, 0.393632)
	pt3dadd(226.244, 246.063, 67.5769, 0.417382)
	pt3dadd(225.943, 246.02, 67.4728, 0.434608)
	pt3dadd(225.6, 246.077, 67.5687, 0.438522)
	pt3dadd(225.225, 246.116, 67.7562, 0.746952)
	pt3dadd(224.774, 246.062, 67.7433, 0.49878)
	pt3dadd(224.387, 245.956, 67.6184, 0.53394)
	pt3dadd(223.996, 245.655, 67.8034, 0.292956)
	pt3dadd(223.719, 245.466, 67.889, 0.397622)
	pt3dadd(223.45, 245.391, 67.9516, 0.210794)
	pt3dadd(223.181, 245.295, 68.0998, 0.501714)
	pt3dadd(222.861, 245.199, 68.0125, 0.356344)
	pt3dadd(222.478, 245.112, 67.956, 0.438784)
	pt3dadd(222.179, 245.042, 67.8146, 0.872298)
	pt3dadd(221.741, 244.792, 67.8997, 0.698602)
	pt3dadd(221.302, 244.562, 67.9478, 0.787152)
	pt3dadd(220.951, 244.337, 68.0535, 0.966604)
	pt3dadd(220.523, 243.835, 68.1219, 1.08184)
	pt3dadd(219.991, 243.623, 68.0973, 0.730826)
	pt3dadd(219.744, 243.301, 68.0886, 0.547872)
	pt3dadd(219.363, 243.013, 68.0282, 0.73106)
	pt3dadd(219.013, 243.126, 68.1816, 0.418304)
	pt3dadd(218.403, 242.984, 68.2887, 0.886466)
	pt3dadd(218.065, 242.502, 68.4447, 1.04764)
	pt3dadd(217.185, 242.436, 68.5856, 1.14158)
	pt3dadd(216.401, 242.079, 68.6418, 1.04017)
	pt3dadd(215.692, 241.849, 68.9782, 0.717896)
	pt3dadd(215.176, 241.737, 69.0528, 0.56985)
	pt3dadd(214.876, 241.543, 69.1001, 0.657716)
	pt3dadd(214.518, 240.973, 69.4059, 0.2)
	pt3dadd(213.864, 240.878, 69.4559, 0.32414)
	pt3dadd(213.536, 240.76, 69.5118, 0.288354)
	pt3dadd(213.275, 240.588, 69.6167, 0.425818)
	pt3dadd(212.992, 240.425, 69.8114, 0.803168)
	pt3dadd(212.163, 240.297, 69.9484, 0.874104)
	pt3dadd(211.421, 239.887, 70.1085, 0.831078)
	pt3dadd(211.037, 239.607, 70.2123, 0.576522)
	pt3dadd(210.736, 239.26, 70.2399, 0.52219)
	pt3dadd(210.487, 238.873, 70.2588, 0.397676)
	pt3dadd(210.184, 238.587, 70.3353, 0.2)
	pt3dadd(209.949, 238.358, 70.4144, 0.73701)
	pt3dadd(209.456, 237.782, 70.4924, 0.811478)
	pt3dadd(209.057, 237.613, 70.4887, 1.00681)
	pt3dadd(208.366, 237.167, 70.3091, 1.13394)
	pt3dadd(207.857, 236.933, 70.452, 0.657846)
	pt3dadd(207.427, 236.628, 70.6699, 1.06643)
	pt3dadd(206.698, 236.176, 70.8576, 0.731994)
	pt3dadd(206.275, 236.077, 71.0963, 0.914008)
	pt3dadd(205.47, 235.825, 71.2594, 1.15019)
	pt3dadd(197.22, 231.044, 74.0819, 0.595658)
	pt3dadd(196.789, 230.916, 74.4072, 0.797038)
	pt3dadd(192.265, 229.153, 75.211, 0.819534)
	pt3dadd(191.934, 229.017, 75.4326, 0.78377)
	pt3dadd(191.046, 229.007, 75.4036, 1.67001)
	pt3dadd(190.598, 228.543, 75.6614, 1.1389)
	pt3dadd(190.021, 228.403, 75.9763, 0.2)
	pt3dadd(189.658, 228.14, 76.1351, 0.736868)
	pt3dadd(188.956, 227.884, 76.593, 0.876746)
	pt3dadd(184.012, 225.647, 78.5173, 1.47798)
	pt3dadd(182.901, 225.411, 78.887, 1.47512)
	pt3dadd(182.445, 225.314, 79.6624, 0.895552)
	pt3dadd(182.022, 224.855, 80.0568, 0.487766)
	pt3dadd(181.79, 224.557, 80.2476, 0.2)
	pt3dadd(181.568, 224.288, 80.4056, 0.2)
	pt3dadd(181.287, 224.116, 80.5307, 0.364752)
	pt3dadd(178.042, 221.537, 83.0071, 1.22145)
	pt3dadd(177.747, 220.642, 83.2405, 0.49799)
	pt3dadd(177.882, 220.281, 83.5965, 0.952722)
	pt3dadd(177.552, 219.985, 83.8155, 0.57136)
  }
  dend_6[33] {pt3dclear()
	pt3dadd(177.552, 219.985, 83.8155, 0.57136)
	pt3dadd(177.349, 219.757, 84.0088, 0.413966)
  }
  dend[59] {pt3dclear()
	pt3dadd(271.017, 261.497, 53.7175, 1.34891)
	pt3dadd(271.648, 261.574, 54.1127, 0.739594)
	pt3dadd(272.252, 261.586, 54.3997, 0.385046)
	pt3dadd(272.513, 261.544, 54.5113, 0.44544)
	pt3dadd(272.749, 261.435, 54.5894, 0.356458)
	pt3dadd(273.034, 261.293, 54.676, 0.39386)
	pt3dadd(273.363, 261.217, 54.8059, 0.322968)
	pt3dadd(273.631, 261.188, 54.9572, 0.39635)
	pt3dadd(273.914, 261.188, 55.1243, 0.636004)
	pt3dadd(274.252, 261.152, 55.3029, 0.752018)
	pt3dadd(274.629, 261.079, 55.5248, 0.88147)
	pt3dadd(275.021, 261.172, 55.8003, 0.91585)
	pt3dadd(275.524, 261.109, 56.26, 0.509234)
	pt3dadd(275.788, 261.054, 56.4236, 0.501544)
	pt3dadd(276.073, 260.964, 56.5735, 0.362902)
	pt3dadd(276.322, 260.815, 56.7466, 0.411784)
	pt3dadd(276.552, 260.674, 56.913, 0.470956)
	pt3dadd(276.806, 260.496, 57.0601, 0.574654)
	pt3dadd(276.988, 260.257, 57.2182, 0.72619)
	pt3dadd(277.389, 259.917, 57.5807, 0.60978)
	pt3dadd(277.68, 259.833, 57.7843, 0.701316)
	pt3dadd(277.996, 259.786, 57.982, 0.82588)
	pt3dadd(278.516, 259.525, 58.3719, 1.12376)
	pt3dadd(279.145, 259.197, 58.6487, 0.781326)
	pt3dadd(279.496, 259.027, 58.7465, 0.633666)
	pt3dadd(279.834, 258.858, 58.8001, 0.595464)
	pt3dadd(280.194, 258.692, 58.878, 0.690972)
	pt3dadd(280.751, 258.289, 59.0466, 0.992784)
	pt3dadd(281.382, 257.845, 59.2378, 1.16269)
	pt3dadd(282.175, 257.6, 59.4648, 1.23948)
	pt3dadd(282.902, 257.313, 59.6912, 0.929642)
	pt3dadd(283.724, 257.056, 59.9222, 0.69702)
	pt3dadd(284.11, 257.075, 60.0439, 0.554676)
	pt3dadd(284.731, 257.04, 60.2859, 0.440092)
	pt3dadd(285.016, 257.016, 60.3653, 0.513282)
	pt3dadd(285.261, 256.922, 60.3973, 0.472282)
	pt3dadd(285.618, 256.862, 60.401, 0.641296)
	pt3dadd(286.232, 256.852, 60.5576, 0.412924)
	pt3dadd(286.593, 256.926, 60.6089, 0.822536)
	pt3dadd(287.287, 256.765, 60.6887, 1.13517)
	pt3dadd(288.365, 256.524, 61.1275, 0.890906)
	pt3dadd(288.97, 256.538, 61.3211, 0.38503)
	pt3dadd(289.213, 256.482, 61.3643, 0.381412)
	pt3dadd(289.527, 256.467, 61.4191, 0.435332)
	pt3dadd(289.905, 256.364, 61.4997, 0.662264)
	pt3dadd(290.192, 256.255, 61.6373, 0.6141)
	pt3dadd(290.525, 256.168, 61.7849, 0.674894)
	pt3dadd(290.934, 256.13, 61.857, 0.893284)
	pt3dadd(291.81, 255.821, 61.975, 1.30407)
	pt3dadd(292.63, 254.972, 62.0489, 0.779234)
	pt3dadd(293.049, 254.593, 62.1131, 0.818532)
	pt3dadd(293.537, 254.474, 62.0892, 0.94306)
	pt3dadd(294.533, 254.311, 62.4029, 0.960494)
	pt3dadd(295.177, 254.309, 62.7388, 0.695682)
	pt3dadd(295.639, 254.315, 62.8034, 0.520894)
	pt3dadd(296.03, 254.365, 62.8954, 0.54869)
	pt3dadd(296.323, 254.459, 62.9666, 0.550264)
	pt3dadd(296.658, 254.578, 63.0699, 0.776532)
	pt3dadd(297.022, 254.604, 63.2193, 1.03885)
	pt3dadd(297.825, 254.57, 63.4517, 1.3308)
  }
  dend[60] {pt3dclear()
	pt3dadd(297.825, 254.57, 63.4517, 1.3308)
	pt3dadd(298.693, 254.085, 63.8385, 1.5002)
	pt3dadd(299.405, 253.608, 63.986, 0.656998)
	pt3dadd(299.792, 253.411, 64.0232, 0.316178)
	pt3dadd(300.017, 253.219, 64.0528, 0.2)
	pt3dadd(300.248, 253.149, 64.0825, 0.346936)
	pt3dadd(300.534, 253.072, 64.1708, 0.381874)
	pt3dadd(300.814, 253.081, 64.216, 0.396398)
	pt3dadd(301.126, 253.078, 64.2863, 0.560274)
	pt3dadd(301.447, 253, 64.3099, 0.799296)
	pt3dadd(301.853, 252.897, 64.3234, 0.869294)
	pt3dadd(302.211, 252.642, 64.3613, 0.587658)
	pt3dadd(302.515, 252.374, 64.3163, 0.533452)
	pt3dadd(302.846, 252.003, 64.6078, 0.362168)
	pt3dadd(303.085, 251.859, 64.657, 0.211652)
	pt3dadd(303.418, 251.808, 64.8121, 0.2)
	pt3dadd(303.682, 251.731, 65.0009, 0.421868)
	pt3dadd(303.954, 251.593, 65.1903, 0.42055)
	pt3dadd(304.499, 251.159, 65.0802, 0.460342)
	pt3dadd(304.831, 250.974, 65.075, 0.376386)
	pt3dadd(305.2, 250.773, 65.0702, 0.557012)
	pt3dadd(305.529, 250.498, 65.1173, 0.839934)
	pt3dadd(306.028, 249.886, 65.2903, 0.657114)
	pt3dadd(306.732, 249.529, 65.3647, 0.919068)
	pt3dadd(307.2, 249.739, 65.4641, 1.57461)
	pt3dadd(308.229, 249.609, 65.7988, 1.17152)
	pt3dadd(308.721, 249.199, 65.8468, 0.556818)
	pt3dadd(308.971, 249.051, 65.8068, 0.368928)
	pt3dadd(309.888, 248.61, 66.0349, 0.270346)
	pt3dadd(310.144, 248.59, 66.0315, 0.207504)
	pt3dadd(310.355, 248.567, 66.0963, 0.2)
	pt3dadd(310.585, 248.414, 66.0899, 0.279618)
	pt3dadd(310.804, 248.31, 66.1332, 0.454102)
	pt3dadd(311.161, 248.233, 66.1937, 0.765242)
	pt3dadd(311.451, 247.96, 66.3554, 0.457814)
	pt3dadd(311.87, 247.792, 66.4379, 0.604606)
	pt3dadd(312.19, 247.507, 66.3929, 0.466728)
	pt3dadd(312.539, 247.415, 66.3979, 0.760984)
	pt3dadd(312.94, 247.488, 66.6037, 1.02873)
	pt3dadd(316.548, 246.903, 67.0534, 0.2)
	pt3dadd(316.743, 246.907, 67.1235, 0.2)
	pt3dadd(317.439, 247.137, 67.4017, 1.29109)
	pt3dadd(318.152, 247.203, 67.8589, 0.394548)
	pt3dadd(318.452, 247.189, 68.0254, 0.2)
	pt3dadd(319.539, 247.27, 68.4435, 0.537954)
	pt3dadd(319.836, 247.19, 68.2399, 0.381598)
	pt3dadd(320.201, 247.077, 68.1358, 0.55281)
	pt3dadd(320.939, 246.849, 68.2491, 0.8935)
	pt3dadd(321.861, 246.493, 68.3534, 1.11296)
	pt3dadd(322.189, 246.27, 68.378, 0.584418)
	pt3dadd(323.019, 246.158, 68.4669, 0.632796)
	pt3dadd(323.295, 245.979, 68.5486, 0.209668)
	pt3dadd(323.559, 245.914, 68.6221, 0.2)
  }
}
proc shape3d_31() {
  dend[60] {	pt3dadd(323.738, 245.814, 68.6408, 0.2)
	pt3dadd(324.222, 245.528, 68.438, 0.6521)
	pt3dadd(324.688, 245.398, 68.9538, 0.801522)
	pt3dadd(324.961, 245.187, 69.2058, 0.796158)
	pt3dadd(325.281, 244.804, 69.2993, 0.669532)
	pt3dadd(325.49, 244.584, 69.3672, 0.490428)
	pt3dadd(326.072, 244.166, 69.3519, 0.732416)
  }
  dend_6[34] {pt3dclear()
	pt3dadd(326.072, 244.166, 69.3519, 0.732416)
	pt3dadd(327.059, 244.036, 69.2031, 1.29329)
  }
  dend[61] {pt3dclear()
	pt3dadd(297.825, 254.57, 63.4517, 1.3308)
	pt3dadd(301.581, 254.909, 64.3033, 0.2)
	pt3dadd(301.79, 255.046, 64.1284, 0.344014)
	pt3dadd(302.194, 255.238, 63.9127, 0.633102)
	pt3dadd(302.791, 255.39, 64.1126, 1.21845)
	pt3dadd(303.541, 255.56, 64.3549, 0.90559)
	pt3dadd(303.9, 255.689, 64.4257, 0.815042)
	pt3dadd(312.727, 260.193, 65.3905, 0.785892)
	pt3dadd(313.26, 260.257, 65.3351, 0.341912)
	pt3dadd(313.904, 260.515, 65.4162, 0.769274)
	pt3dadd(314.309, 260.9, 65.5242, 1.29489)
	pt3dadd(316.614, 262.323, 66.0132, 0.531252)
	pt3dadd(316.859, 262.502, 66.4324, 0.635094)
	pt3dadd(317.187, 262.585, 66.5599, 0.376104)
	pt3dadd(317.518, 262.771, 66.7352, 0.38585)
	pt3dadd(317.789, 262.87, 66.7769, 0.484872)
	pt3dadd(318.036, 262.93, 66.7212, 0.470246)
	pt3dadd(318.385, 263.03, 66.7578, 0.65634)
	pt3dadd(319.026, 263.322, 66.8942, 1.1166)
	pt3dadd(319.133, 264.016, 66.822, 0.517468)
	pt3dadd(319.351, 264.23, 66.7832, 0.405508)
	pt3dadd(319.724, 264.444, 66.824, 0.755414)
	pt3dadd(319.923, 264.861, 66.8412, 0.655592)
	pt3dadd(320.289, 265.091, 66.9649, 0.523106)
	pt3dadd(320.72, 265.241, 66.9818, 0.75844)
	pt3dadd(321.161, 265.307, 66.9347, 1.01494)
	pt3dadd(322.129, 265.561, 66.8031, 1.29242)
	pt3dadd(322.739, 265.773, 66.8839, 0.939282)
	pt3dadd(323.203, 265.96, 66.9209, 0.541292)
	pt3dadd(323.699, 266.162, 66.6531, 0.2)
	pt3dadd(323.883, 266.252, 66.4981, 0.2)
	pt3dadd(324.049, 266.307, 66.3424, 0.493366)
	pt3dadd(324.231, 266.289, 65.9623, 0.696122)
	pt3dadd(324.291, 266.352, 65.4172, 0.466446)
	pt3dadd(325.8, 268.888, 66.8328, 1.42992)
	pt3dadd(326.371, 269.253, 66.8227, 1.29956)
	pt3dadd(327.194, 269.769, 67.2226, 1.17769)
	pt3dadd(327.591, 270.082, 67.4122, 0.556854)
	pt3dadd(327.873, 270.125, 67.6409, 0.518936)
	pt3dadd(328.968, 270.016, 67.8752, 0.572708)
	pt3dadd(329.198, 270.173, 68.2375, 0.739232)
	pt3dadd(329.673, 270.52, 68.4291, 1.16915)
	pt3dadd(330.116, 271.086, 68.5247, 0.995644)
	pt3dadd(343.439, 278.922, 73.4204, 0.5167)
	pt3dadd(343.623, 279.028, 73.5832, 0.336122)
	pt3dadd(343.9, 279.188, 73.7652, 0.372736)
	pt3dadd(344.328, 279.221, 74.1391, 0.884888)
	pt3dadd(344.992, 279.611, 74.5892, 1.11265)
	pt3dadd(345.92, 280.041, 75.2273, 0.270866)
	pt3dadd(346.096, 280.103, 75.4873, 0.517932)
	pt3dadd(348.215, 281.147, 76.0393, 0.405208)
	pt3dadd(348.501, 281.292, 76.1028, 0.566986)
	pt3dadd(348.844, 281.528, 76.4053, 0.69915)
	pt3dadd(349.01, 281.88, 76.6373, 0.641878)
	pt3dadd(349.394, 282.171, 76.86, 0.547292)
	pt3dadd(350.101, 282.275, 76.9477, 0.703234)
	pt3dadd(356.711, 284.017, 79.3498, 0.2)
	pt3dadd(356.922, 284.018, 79.4367, 0.2)
	pt3dadd(357.519, 284.258, 79.6974, 0.68876)
	pt3dadd(357.873, 284.31, 79.68, 0.58523)
	pt3dadd(358.197, 284.592, 79.728, 0.421792)
	pt3dadd(358.551, 284.803, 79.7815, 0.324706)
	pt3dadd(358.947, 284.839, 79.736, 0.427894)
	pt3dadd(359.546, 284.595, 79.3804, 0.743682)
	pt3dadd(359.94, 284.942, 79.5625, 0.632516)
	pt3dadd(360.238, 285.191, 80.0055, 0.81773)
	pt3dadd(364.263, 285.825, 81, 0.2)
	pt3dadd(364.784, 286.04, 80.9165, 1.07491)
	pt3dadd(365.513, 285.855, 80.7289, 0.65561)
	pt3dadd(365.932, 285.853, 80.6359, 0.457382)
	pt3dadd(366.22, 285.712, 80.6779, 0.30333)
	pt3dadd(369.283, 285.768, 80.4875, 1.22426)
	pt3dadd(369.955, 285.617, 80.5342, 1.25914)
	pt3dadd(370.614, 285.689, 80.404, 0.565926)
	pt3dadd(371.096, 285.67, 80.5995, 0.523964)
	pt3dadd(371.468, 285.779, 80.5999, 0.2)
	pt3dadd(375.845, 284.347, 79.9507, 0.409918)
	pt3dadd(376.393, 284.188, 80.0094, 0.796568)
	pt3dadd(376.707, 283.844, 80.0016, 0.662712)
	pt3dadd(377.023, 283.634, 79.9371, 0.581552)
	pt3dadd(377.526, 283.709, 79.873, 0.720078)
	pt3dadd(378.495, 283.592, 80.1549, 0.36984)
	pt3dadd(378.794, 283.554, 80.1643, 0.245046)
	pt3dadd(379.04, 283.427, 80.1686, 0.2)
	pt3dadd(379.362, 283.406, 80.1906, 0.2)
	pt3dadd(379.632, 283.243, 80.2545, 0.2)
	pt3dadd(379.806, 283.06, 80.275, 0.2)
	pt3dadd(379.994, 282.891, 80.3428, 0.292192)
	pt3dadd(380.347, 282.835, 80.4892, 0.30111)
	pt3dadd(380.659, 282.817, 80.6363, 0.669292)
	pt3dadd(380.938, 282.747, 80.8436, 1.23802)
	pt3dadd(382.004, 282.643, 81.1576, 0.871274)
	pt3dadd(382.518, 282.338, 81.653, 0.519882)
	pt3dadd(382.909, 282.229, 81.9065, 0.331818)
	pt3dadd(383.179, 282.142, 82.0585, 0.23207)
	pt3dadd(383.412, 281.993, 82.3001, 0.38248)
	pt3dadd(385.858, 281.505, 84.9357, 0.412934)
	pt3dadd(386.093, 281.385, 85.1282, 0.324402)
	pt3dadd(386.365, 281.189, 85.2663, 0.308108)
	pt3dadd(386.614, 281.148, 85.3554, 0.25584)
	pt3dadd(386.899, 281.074, 85.4053, 0.457628)
	pt3dadd(387.412, 280.974, 85.6874, 0.449362)
	pt3dadd(387.623, 281.012, 85.9549, 0.29383)
	pt3dadd(388.859, 281.104, 86.2363, 0.664916)
	pt3dadd(389.395, 281.185, 86.134, 0.66092)
	pt3dadd(390, 281.074, 86.0276, 0.849168)
	pt3dadd(392.771, 281.423, 86.0803, 0.369596)
	pt3dadd(393.113, 281.359, 86.58, 0.506472)
	pt3dadd(393.476, 281.455, 86.6776, 0.521186)
	pt3dadd(393.899, 281.461, 86.6859, 0.449668)
	pt3dadd(395.731, 282.091, 86.4124, 0.2)
	pt3dadd(396.003, 282.202, 86.4375, 0.391932)
	pt3dadd(396.697, 282.77, 85.6866, 1.11171)
	pt3dadd(397.515, 283.24, 85.3799, 0.484494)
	pt3dadd(397.776, 283.202, 85.2187, 0.620342)
	pt3dadd(398.355, 283.402, 84.9157, 0.302614)
	pt3dadd(398.566, 283.422, 84.7791, 0.439032)
	pt3dadd(398.767, 283.493, 84.6587, 0.511016)
	pt3dadd(398.976, 283.577, 84.528, 0.402398)
	pt3dadd(399.346, 283.793, 84.517, 0.2)
	pt3dadd(399.612, 283.955, 84.3762, 0.399762)
	pt3dadd(399.764, 284.121, 84.2479, 0.715534)
	pt3dadd(400.131, 284.421, 84.2613, 0.2)
	pt3dadd(400.503, 284.612, 84.2003, 0.798056)
	pt3dadd(400.888, 284.692, 83.8434, 1.04807)
	pt3dadd(401.372, 285.119, 83.7874, 0.2)
	pt3dadd(401.545, 285.27, 83.7153, 0.258808)
	pt3dadd(401.906, 285.526, 83.7816, 0.2)
	pt3dadd(402.103, 285.675, 83.75, 0.2)
	pt3dadd(402.315, 285.776, 83.715, 0.26164)
	pt3dadd(402.571, 285.929, 83.667, 0.64848)
	pt3dadd(402.994, 286.47, 83.2366, 0.865194)
	pt3dadd(405.921, 288.569, 82.491, 0.605154)
	pt3dadd(406.18, 288.702, 82.4043, 0.617822)
	pt3dadd(406.57, 289.226, 82.2309, 0.2)
	pt3dadd(406.893, 289.836, 82.1677, 0.704326)
	pt3dadd(407.147, 290.392, 82.1017, 0.399374)
	pt3dadd(407.339, 290.607, 81.9584, 0.320724)
	pt3dadd(413.025, 296.31, 79.2791, 0.971468)
	pt3dadd(413.92, 302.754, 76.6761, 0.872576)
	pt3dadd(414.045, 303.322, 76.1223, 1.038)
	pt3dadd(415.209, 305.165, 75.6717, 0.619924)
	pt3dadd(415.601, 305.863, 75.6116, 0.799826)
	pt3dadd(417.599, 308.8, 74.4792, 0.66563)
	pt3dadd(417.725, 308.891, 74.9599, 0.62211)
	pt3dadd(418.298, 310.269, 74.0542, 0.976908)
	pt3dadd(418.32, 310.903, 73.5797, 0.571106)
	pt3dadd(418.584, 311.043, 73.4581, 0.53678)
	pt3dadd(419.075, 311.344, 73.5148, 0.477812)
	pt3dadd(419.308, 311.688, 73.5772, 0.47698)
	pt3dadd(419.963, 312.818, 73.0264, 0.541836)
	pt3dadd(420.236, 313.283, 72.9939, 0.802892)
	pt3dadd(422.551, 314.863, 73.8884, 0.961132)
	pt3dadd(424.244, 315.394, 73.9266, 0.909998)
	pt3dadd(424.746, 315.551, 73.8243, 0.717758)
	pt3dadd(429.987, 320.777, 72.3816, 0.743102)
	pt3dadd(430.473, 321.299, 72.269, 1.02212)
	pt3dadd(430.749, 321.77, 72.0614, 0.241078)
	pt3dadd(431.026, 322.157, 71.9175, 0.782238)
	pt3dadd(431.417, 322.478, 71.7446, 0.965552)
  }
  dend_6[35] {pt3dclear()
	pt3dadd(431.417, 322.478, 71.7446, 0.965552)
	pt3dadd(431.864, 322.682, 72.3768, 0.566064)
  }
  // cmw:  added this point on 8/19/11, to fix oblique connect error
  dend[149] {pt3dclear()  // broke dend[62] into two pieces
	pt3dadd(265.716, 272.471, 44.8254, 3.97553)
	pt3dadd(267.376, 274.355, 44.660, 3.97553)
  }
  dend[62] {pt3dclear()  
	//pt3dadd(265.716, 272.471, 44.8254, 3.97553)  // orig endpoint
	pt3dadd(267.376, 274.355, 44.660, 3.97553)
	pt3dadd(274.91, 282.901, 43.9128, 3.97553)
  }
  dend_5[25] {pt3dclear()
	pt3dadd(274.91, 282.901, 43.9128, 3.97553)
	pt3dadd(276.789, 284.121, 44.1427, 2.68046)
  }
  dend[63] {pt3dclear()
	pt3dadd(276.789, 284.121, 44.1427, 2.68046)
	pt3dadd(278.866, 283.707, 44.9346, 1.83701)
	pt3dadd(280.137, 283.74, 45.1959, 0.65425)
	pt3dadd(280.517, 283.736, 45.2341, 0.680148)
	pt3dadd(280.854, 283.765, 45.2698, 0.659452)
	pt3dadd(281.206, 283.804, 45.3383, 0.751316)
	pt3dadd(281.942, 283.862, 45.4071, 0.617528)
	pt3dadd(282.275, 283.871, 45.4603, 0.596074)
	pt3dadd(282.64, 283.852, 45.5244, 0.67358)
	pt3dadd(282.993, 283.868, 45.5519, 0.742598)
	pt3dadd(283.394, 283.843, 45.5649, 0.736452)
	pt3dadd(283.779, 283.766, 45.5676, 0.633128)
	pt3dadd(284.121, 283.695, 45.5941, 0.576264)
	pt3dadd(284.482, 283.634, 45.7028, 0.65217)
	pt3dadd(284.848, 283.588, 45.7965, 0.637636)
	pt3dadd(285.242, 283.558, 45.8842, 0.703866)
	pt3dadd(285.683, 283.405, 45.8591, 0.79085)
	pt3dadd(286.095, 283.292, 45.8823, 0.993288)
	pt3dadd(286.711, 283.223, 46.1421, 0.570556)
	pt3dadd(287.018, 283.121, 46.2957, 0.571618)
	pt3dadd(287.306, 283.032, 46.3895, 0.523684)
	pt3dadd(287.647, 282.973, 46.4842, 0.640354)
	pt3dadd(287.954, 282.979, 46.5863, 0.720092)
	pt3dadd(288.608, 282.876, 46.8283, 0.855584)
	pt3dadd(289.34, 282.715, 46.9869, 0.873898)
  }
}
proc shape3d_32() {
  dend[63] {	pt3dadd(290.126, 282.555, 47.1726, 0.904542)
	pt3dadd(290.812, 282.471, 47.2869, 0.935574)
	pt3dadd(291.562, 282.509, 47.31, 1.20709)
	pt3dadd(292.364, 282.52, 47.4667, 0.93161)
	pt3dadd(293.183, 282.427, 47.6996, 0.730194)
	pt3dadd(293.56, 282.427, 47.8315, 0.713548)
	pt3dadd(293.868, 282.426, 48.0159, 0.734134)
	pt3dadd(294.358, 282.45, 48.0647, 0.522318)
	pt3dadd(294.798, 282.341, 48.0948, 0.533566)
	pt3dadd(295.292, 282.186, 48.0518, 0.394684)
	pt3dadd(295.639, 282.087, 48.0725, 0.44639)
	pt3dadd(295.938, 281.995, 48.1411, 0.469518)
	pt3dadd(296.242, 281.876, 48.1992, 0.52713)
	pt3dadd(296.531, 281.78, 48.2548, 0.613318)
	pt3dadd(296.897, 281.72, 48.2515, 0.752898)
	pt3dadd(297.624, 281.49, 48.3672, 0.906262)
	pt3dadd(298.374, 281.331, 48.4518, 1.03563)
	pt3dadd(299.115, 281.041, 48.5736, 0.988652)
	pt3dadd(299.614, 280.82, 48.6691, 0.871184)
	pt3dadd(300.372, 280.509, 48.6957, 0.689058)
	pt3dadd(300.722, 280.376, 48.7113, 0.72471)
	pt3dadd(301.052, 280.222, 48.7635, 0.755102)
	pt3dadd(301.489, 279.967, 48.803, 1.07768)
	pt3dadd(302.221, 279.808, 48.9052, 1.30188)
	pt3dadd(303.196, 279.501, 49.1342, 1.42962)
	pt3dadd(304.351, 279.077, 49.5591, 1.10367)
	pt3dadd(305.143, 278.809, 49.8671, 1.19373)
  }
  dend_5[26] {pt3dclear()
	pt3dadd(305.143, 278.809, 49.8671, 1.19373)
	pt3dadd(306.335, 278.086, 50.0579, 1.37743)
  }
  dend[64] {pt3dclear()
	pt3dadd(306.335, 278.086, 50.0579, 1.37743)
	pt3dadd(306.92, 278.484, 50.2842, 0.565836)
	pt3dadd(307.346, 278.407, 50.4885, 0.478778)
	pt3dadd(307.6, 278.334, 50.6276, 0.54414)
	pt3dadd(307.846, 278.262, 50.7997, 0.519178)
	pt3dadd(308.123, 278.288, 50.946, 0.518376)
	pt3dadd(308.355, 278.208, 51.0486, 0.506188)
	pt3dadd(308.642, 278.155, 51.1381, 0.400396)
	pt3dadd(308.988, 278.111, 51.2165, 0.494368)
	pt3dadd(309.381, 278.088, 51.3231, 0.588812)
	pt3dadd(309.81, 277.893, 51.4837, 0.85755)
	pt3dadd(310.669, 277.487, 51.9651, 0.903594)
	pt3dadd(311.278, 277.454, 52.3503, 0.45718)
	pt3dadd(311.565, 277.495, 52.5592, 0.405478)
	pt3dadd(311.778, 277.561, 52.6659, 0.293364)
	pt3dadd(312.024, 277.595, 52.8067, 0.321962)
	pt3dadd(312.32, 277.506, 52.9778, 0.702754)
	pt3dadd(312.59, 277.588, 53.1898, 0.777578)
	pt3dadd(312.933, 277.544, 53.3748, 0.882662)
	pt3dadd(313.64, 277.385, 53.7175, 1.19663)
  }
  dend_5[27] {pt3dclear()
	pt3dadd(313.64, 277.385, 53.7175, 1.19663)
	pt3dadd(314.969, 277.318, 54.1437, 1.75663)
  }
  dend[65] {pt3dclear()
	pt3dadd(314.969, 277.318, 54.1437, 1.75663)
	pt3dadd(315.344, 277.993, 54.6627, 0.779998)
	pt3dadd(315.538, 278.178, 54.9987, 0.716424)
	pt3dadd(315.765, 278.323, 55.2538, 0.475824)
	pt3dadd(316.002, 278.339, 55.4956, 0.696964)
	pt3dadd(316.637, 278.536, 55.764, 0.683006)
	pt3dadd(316.993, 278.722, 55.683, 0.728404)
	pt3dadd(317.59, 278.615, 56.2183, 0.2)
	pt3dadd(317.906, 278.587, 56.2906, 0.2)
	pt3dadd(318.067, 278.609, 56.4279, 0.394084)
	pt3dadd(318.34, 278.666, 56.5505, 0.6137)
	pt3dadd(318.59, 278.57, 56.7786, 0.721888)
	pt3dadd(318.878, 278.56, 57.09, 0.71465)
	pt3dadd(319.349, 278.748, 57.5115, 0.300668)
	pt3dadd(319.679, 278.837, 57.6552, 0.326348)
	pt3dadd(319.879, 278.963, 57.8409, 0.544182)
	pt3dadd(320.025, 279.072, 58.0436, 0.69867)
	pt3dadd(320.363, 279.028, 58.2223, 0.699748)
	pt3dadd(320.731, 279.058, 58.4304, 0.891294)
	pt3dadd(321.461, 279.309, 58.6684, 0.591162)
	pt3dadd(321.916, 279.073, 59.0515, 0.923278)
	pt3dadd(322.476, 279.148, 59.4126, 0.659056)
	pt3dadd(323.023, 279.206, 59.7587, 0.523114)
	pt3dadd(323.375, 279.2, 59.8869, 0.329712)
	pt3dadd(323.627, 279.11, 59.9068, 0.30017)
	pt3dadd(323.811, 279.024, 59.9199, 0.31355)
	pt3dadd(324.044, 278.994, 59.9665, 0.357016)
	pt3dadd(324.223, 278.983, 59.9873, 0.300124)
	pt3dadd(324.491, 278.992, 59.998, 0.275294)
	pt3dadd(324.788, 278.89, 59.997, 0.3513)
	pt3dadd(325.022, 278.773, 60.0256, 0.373458)
	pt3dadd(325.3, 278.627, 60.1005, 0.568444)
	pt3dadd(325.604, 278.387, 60.1646, 0.916428)
	pt3dadd(326.424, 278.525, 60.4586, 0.573202)
	pt3dadd(326.72, 278.632, 60.6023, 0.790222)
	pt3dadd(327.2, 278.578, 60.6554, 0.783952)
	pt3dadd(327.541, 278.373, 60.7984, 1.04627)
	pt3dadd(328.086, 278.433, 60.9014, 1.10712)
	pt3dadd(329.086, 278.632, 61.2887, 1.15306)
	pt3dadd(329.696, 278.717, 61.6854, 0.529274)
	pt3dadd(330.046, 278.721, 61.8173, 0.394452)
	pt3dadd(330.347, 278.758, 61.854, 0.31354)
	pt3dadd(330.636, 278.829, 61.9532, 0.380288)
	pt3dadd(330.878, 278.934, 62.0916, 0.514934)
	pt3dadd(331.182, 278.986, 62.1193, 0.31938)
	pt3dadd(331.421, 279.043, 62.1645, 0.402156)
	pt3dadd(331.736, 279.039, 62.3202, 0.399908)
	pt3dadd(332.035, 279.031, 62.4464, 0.537446)
	pt3dadd(332.345, 278.988, 62.6336, 0.774278)
	pt3dadd(332.702, 279.104, 62.7956, 0.758318)
	pt3dadd(333.12, 279.175, 62.8507, 0.710952)
	pt3dadd(333.558, 279.167, 62.8503, 1.13546)
	pt3dadd(334.439, 278.804, 63.0541, 1.45469)
	pt3dadd(335.302, 279, 63.1252, 0.960688)
	pt3dadd(335.96, 279.004, 63.3768, 1.18773)
	pt3dadd(336.404, 278.548, 63.6905, 1.10009)
	pt3dadd(336.928, 278.224, 63.954, 0.748484)
	pt3dadd(337.304, 278.104, 64.1049, 0.402092)
	pt3dadd(337.576, 278.048, 64.1045, 0.293558)
	pt3dadd(337.909, 277.972, 64.0149, 0.496588)
	pt3dadd(338.457, 277.972, 64.2386, 0.304806)
	pt3dadd(338.711, 278.009, 64.2946, 0.2)
	pt3dadd(338.85, 278.073, 64.3849, 0.2)
	pt3dadd(339.039, 278.113, 64.5216, 0.405022)
	pt3dadd(339.497, 278.177, 64.6254, 0.695336)
	pt3dadd(339.859, 278.015, 64.7705, 0.613772)
	pt3dadd(340.102, 277.815, 64.9014, 0.763798)
	pt3dadd(340.527, 277.785, 64.9485, 0.769794)
	pt3dadd(341.024, 277.958, 65.1128, 0.952784)
	pt3dadd(341.53, 278.084, 65.2563, 1.38844)
	pt3dadd(342.478, 278.474, 65.6178, 0.841192)
	pt3dadd(343.066, 278.502, 65.6503, 0.704218)
	pt3dadd(343.633, 278.336, 65.8677, 0.705598)
	pt3dadd(344.045, 278.138, 66.0353, 0.654128)
	pt3dadd(344.403, 277.805, 66.2349, 0.483466)
	pt3dadd(344.736, 277.752, 66.3933, 0.26617)
	pt3dadd(344.988, 277.761, 66.4456, 0.459888)
	pt3dadd(345.555, 277.739, 66.5183, 0.2)
	pt3dadd(345.971, 277.695, 66.5767, 0.448514)
	pt3dadd(346.346, 277.646, 66.7029, 0.67038)
	pt3dadd(346.895, 277.658, 66.894, 0.960956)
	pt3dadd(347.441, 277.517, 67.2093, 1.01646)
	pt3dadd(347.742, 277.301, 67.4218, 0.80298)
	pt3dadd(348.376, 277.22, 67.8183, 0.238772)
	pt3dadd(348.588, 277.241, 67.9574, 0.208032)
	pt3dadd(348.793, 277.208, 68.096, 0.25299)
	pt3dadd(349.054, 277.142, 68.1519, 0.403076)
	pt3dadd(349.588, 277.042, 68.3122, 0.799812)
	pt3dadd(350.505, 277.179, 68.4269, 0.94217)
	pt3dadd(351.001, 276.874, 68.4578, 0.582886)
	pt3dadd(351.336, 276.563, 68.6176, 0.738124)
	pt3dadd(352.05, 276.651, 69.3282, 1.11221)
	pt3dadd(352.317, 276.625, 69.7781, 0.782406)
	pt3dadd(352.623, 276.588, 70.1126, 0.418518)
	pt3dadd(352.889, 276.631, 70.2658, 0.2)
	pt3dadd(353.133, 276.69, 70.4357, 0.378516)
	pt3dadd(353.344, 276.658, 70.6256, 0.491774)
	pt3dadd(353.59, 276.589, 70.792, 0.53994)
	pt3dadd(353.994, 276.293, 71.2814, 0.900824)
	pt3dadd(354.228, 276.378, 71.6072, 0.815272)
	pt3dadd(355.209, 276.138, 72.0689, 0.2)
	pt3dadd(355.735, 276.13, 72.0129, 0.38314)
	pt3dadd(355.894, 276.109, 72.4526, 0.478918)
	pt3dadd(356.078, 275.943, 72.6681, 0.241232)
	pt3dadd(356.547, 275.596, 73.0866, 0.685274)
	pt3dadd(357.056, 275.683, 73.3778, 0.883712)
	pt3dadd(357.877, 275.498, 73.6095, 1.36121)
	pt3dadd(358.599, 275.405, 73.949, 0.77243)
	pt3dadd(361.302, 275.01, 74.2445, 0.820178)
	pt3dadd(361.928, 275.321, 74.3762, 0.501644)
	pt3dadd(362.219, 275.412, 74.4128, 0.414298)
	pt3dadd(362.5, 275.446, 74.489, 0.437586)
	pt3dadd(362.799, 275.436, 74.5961, 0.363468)
	pt3dadd(369.513, 273.233, 79.0833, 0.329374)
	pt3dadd(370.394, 273.145, 79.5709, 0.886536)
	pt3dadd(374.377, 273.183, 82.8382, 0.553214)
	pt3dadd(375.39, 273.213, 84, 0.2)
	pt3dadd(375.458, 273.266, 83.9866, 0.602422)
	pt3dadd(376.04, 273.198, 83.8668, 0.89009)
	pt3dadd(376.358, 273.662, 83.8152, 1.08777)
	pt3dadd(378.751, 273.872, 85.049, 0.356416)
	pt3dadd(378.875, 273.897, 85.3588, 0.4951)
	pt3dadd(379.547, 273.819, 86.0018, 0.969992)
	pt3dadd(380.026, 273.901, 86.062, 0.468984)
	pt3dadd(380.256, 274.067, 85.977, 0.53176)
	pt3dadd(386.052, 273.846, 93.7843, 0.430944)
	pt3dadd(386.621, 274.136, 94.2844, 0.834946)
	pt3dadd(386.793, 274.216, 94.9837, 1.0768)
	pt3dadd(387.311, 274.104, 95.4916, 0.362444)
	pt3dadd(387.563, 274.076, 95.6886, 0.2)
	pt3dadd(387.795, 274.007, 95.7724, 0.2)
	pt3dadd(388.299, 274.215, 95.8152, 0.672114)
	pt3dadd(388.819, 273.974, 96.1772, 0.2)
	pt3dadd(389.813, 273.922, 98.4481, 0.396912)
	pt3dadd(390.535, 274.259, 98.5565, 0.613838)
	pt3dadd(390.943, 274.25, 99.1694, 0.452024)
	pt3dadd(391.215, 274.272, 99.4545, 0.53393)
	pt3dadd(391.35, 274.3, 99.698, 0.492582)
	pt3dadd(391.534, 274.3, 100.014, 0.524758)
	pt3dadd(391.676, 274.186, 100.305, 0.436186)
	pt3dadd(391.932, 274.173, 100.472, 0.352058)
	pt3dadd(392.343, 274.191, 100.597, 0.2)
	pt3dadd(392.595, 274.184, 100.689, 0.2)
	pt3dadd(392.794, 274.186, 100.863, 0.2)
	pt3dadd(393.025, 274.059, 100.954, 0.2)
	pt3dadd(393.256, 273.999, 101.121, 0.23632)
	pt3dadd(393.457, 273.895, 101.285, 0.660586)
	pt3dadd(393.662, 273.882, 101.555, 0.791808)
	pt3dadd(393.933, 273.917, 101.916, 0.91504)
  }
}
proc shape3d_33() {
  dend[65] {	pt3dadd(394.238, 273.902, 102.685, 1.03421)
	pt3dadd(394.811, 273.754, 103.09, 0.473982)
	pt3dadd(395.256, 273.766, 103.42, 0.279012)
	pt3dadd(395.498, 273.778, 103.47, 0.269806)
	pt3dadd(395.763, 273.766, 103.537, 0.201898)
	pt3dadd(396.01, 273.654, 103.534, 0.258886)
	pt3dadd(397.195, 273.163, 103.683, 0.3565)
	pt3dadd(397.345, 273.146, 103.906, 0.285672)
	pt3dadd(397.481, 273.125, 104.002, 0.228784)
	pt3dadd(397.739, 273.19, 103.955, 0.2)
	pt3dadd(398.337, 273.149, 103.764, 0.2)
	pt3dadd(398.658, 272.917, 103.864, 0.50238)
	pt3dadd(399.232, 272.888, 104.483, 0.815396)
	pt3dadd(399.897, 272.803, 104.513, 0.589388)
	pt3dadd(400.356, 272.647, 104.412, 0.2)
	pt3dadd(400.633, 272.578, 104.483, 0.22945)
	pt3dadd(400.848, 272.448, 104.698, 0.343742)
	pt3dadd(401.267, 272.363, 105.163, 0.84006)
	pt3dadd(401.801, 272.337, 105.401, 1.06535)
	pt3dadd(402.171, 272.104, 105.937, 0.731316)
	pt3dadd(414.919, 269.071, 114.012, 1.04166)
	pt3dadd(420.695, 268.686, 119.845, 0.2)
	pt3dadd(420.942, 268.769, 120.009, 0.30223)
	pt3dadd(421.457, 268.605, 120.362, 0.703064)
	pt3dadd(421.621, 268.678, 120.665, 0.644758)
	pt3dadd(421.843, 268.676, 120.911, 0.410296)
	pt3dadd(422.169, 268.782, 121.192, 0.24158)
	pt3dadd(422.559, 268.835, 121.424, 0.466828)
	pt3dadd(423.147, 269.102, 121.947, 0.89856)
  }
  dend_6[36] {pt3dclear()
	pt3dadd(423.147, 269.102, 121.947, 0.89856)
	pt3dadd(423.156, 269.04, 122.336, 0.707916)
  }
  dend[66] {pt3dclear()
	pt3dadd(314.969, 277.318, 54.1437, 1.75663)
	pt3dadd(316.002, 276.823, 54.2726, 1.09881)
	pt3dadd(316.762, 276.573, 54.3517, 0.519686)
	pt3dadd(317.088, 276.47, 54.3862, 0.495986)
	pt3dadd(317.435, 276.423, 54.3996, 0.398198)
	pt3dadd(317.733, 276.453, 54.4635, 0.56067)
	pt3dadd(317.989, 276.503, 54.6017, 0.563476)
	pt3dadd(318.322, 276.498, 54.6963, 0.573334)
	pt3dadd(318.741, 276.353, 54.9272, 0.434918)
	pt3dadd(318.952, 276.25, 55.0176, 0.384098)
	pt3dadd(319.249, 276.205, 55.0991, 0.319232)
	pt3dadd(319.551, 276.103, 55.2177, 0.435512)
	pt3dadd(319.756, 275.993, 55.3077, 0.381728)
	pt3dadd(319.986, 275.919, 55.3811, 0.504914)
	pt3dadd(320.318, 275.933, 55.372, 0.5439)
	pt3dadd(320.58, 275.902, 55.2133, 0.545868)
	pt3dadd(321.059, 275.82, 55.5676, 0.278172)
	pt3dadd(321.348, 275.824, 55.7239, 0.337188)
	pt3dadd(321.626, 275.736, 55.8157, 0.44664)
	pt3dadd(321.946, 275.653, 55.8789, 0.662762)
	pt3dadd(322.244, 275.558, 56.0375, 0.897682)
	pt3dadd(322.808, 275.34, 56.2965, 0.911478)
	pt3dadd(323.714, 275.204, 56.3195, 1.17711)
	pt3dadd(324.41, 274.997, 56.5907, 0.351924)
	pt3dadd(324.65, 274.874, 56.5489, 0.33201)
	pt3dadd(324.915, 274.7, 56.3778, 0.418544)
	pt3dadd(325.309, 274.771, 56.7083, 0.46174)
	pt3dadd(325.604, 274.731, 56.8628, 0.550588)
	pt3dadd(326.131, 274.708, 57.0472, 0.52951)
	pt3dadd(326.465, 274.725, 57.0567, 0.955458)
	pt3dadd(327.155, 274.506, 57.2365, 0.887908)
	pt3dadd(327.989, 274.52, 57.4258, 1.03667)
	pt3dadd(328.713, 274.467, 57.6, 1.09463)
	pt3dadd(329.488, 274.31, 57.8752, 0.725406)
	pt3dadd(329.775, 274.135, 58.0419, 0.624504)
	pt3dadd(330.195, 273.997, 58.2186, 0.649442)
	pt3dadd(330.587, 273.873, 58.3643, 0.791256)
	pt3dadd(330.971, 273.783, 58.4756, 1.06122)
	pt3dadd(331.703, 273.485, 58.5791, 1.29598)
	pt3dadd(332.718, 273.221, 58.7599, 0.864872)
	pt3dadd(333.19, 273.021, 58.8487, 0.699462)
	pt3dadd(333.522, 272.941, 58.9401, 0.452392)
	pt3dadd(333.742, 272.898, 59.0403, 0.454184)
	pt3dadd(333.989, 272.871, 59.1005, 0.461982)
	pt3dadd(334.299, 272.905, 59.2287, 0.440372)
	pt3dadd(334.578, 272.884, 59.3084, 0.447958)
	pt3dadd(334.894, 272.756, 59.4032, 0.72976)
	pt3dadd(335.251, 272.697, 59.4581, 0.779084)
	pt3dadd(335.633, 272.766, 59.5055, 1.09724)
	pt3dadd(336.386, 272.842, 59.7449, 1.47435)
	pt3dadd(337.383, 273.204, 60.0915, 0.786988)
	pt3dadd(338.042, 273.097, 60.2344, 1.30742)
	pt3dadd(338.87, 272.709, 60.7609, 0.991822)
	pt3dadd(339.651, 272.558, 61.0648, 0.916724)
	pt3dadd(340.464, 272.466, 61.2569, 0.513916)
	pt3dadd(340.757, 272.437, 61.4736, 0.652368)
	pt3dadd(341.197, 272.254, 61.4131, 0.379656)
	pt3dadd(341.486, 272.113, 61.4134, 0.241472)
	pt3dadd(341.711, 271.977, 61.5266, 0.324684)
	pt3dadd(341.938, 271.849, 61.6356, 0.33014)
	pt3dadd(342.284, 271.717, 61.6859, 0.376922)
	pt3dadd(342.532, 271.581, 61.7899, 0.467868)
	pt3dadd(342.805, 271.415, 62.0078, 0.541034)
	pt3dadd(351.42, 269.979, 64.6365, 0.439776)
	pt3dadd(352.111, 269.898, 64.8508, 0.932178)
	pt3dadd(352.585, 270.088, 64.9816, 0.515054)
	pt3dadd(353.446, 270.154, 65.0693, 0.704358)
	pt3dadd(353.817, 269.72, 65.3029, 1.06293)
	pt3dadd(354.245, 269.689, 65.4043, 0.600062)
	pt3dadd(354.604, 269.358, 65.5197, 0.49647)
	pt3dadd(354.858, 269.103, 65.541, 0.592326)
	pt3dadd(355.095, 268.943, 65.6231, 0.27742)
	pt3dadd(355.403, 268.909, 65.6266, 0.2)
	pt3dadd(355.617, 268.795, 65.6627, 0.2)
	pt3dadd(355.781, 268.745, 65.8921, 0.282644)
	pt3dadd(356.292, 268.671, 66.1444, 0.425)
	pt3dadd(356.59, 268.637, 66.0258, 0.351006)
	pt3dadd(357.006, 268.681, 65.8152, 0.565292)
	pt3dadd(357.169, 268.463, 66.0225, 0.448544)
	pt3dadd(357.445, 268.296, 66.24, 0.45149)
	pt3dadd(357.742, 268.14, 66.3503, 0.561194)
	pt3dadd(358.18, 267.996, 66.5101, 0.937048)
	pt3dadd(358.565, 267.507, 66.7948, 0.754566)
	pt3dadd(359.241, 267.424, 66.978, 0.644186)
	pt3dadd(359.73, 267.361, 67.3627, 0.545428)
	pt3dadd(359.895, 267.182, 67.5188, 0.211676)
	pt3dadd(360.161, 267.074, 67.6265, 0.302536)
	pt3dadd(360.649, 267.109, 67.6596, 0.62015)
	pt3dadd(360.845, 267.102, 67.9063, 0.567048)
	pt3dadd(361.125, 266.978, 68.0081, 0.284406)
	pt3dadd(361.384, 267.01, 68.0408, 0.2)
	pt3dadd(361.636, 267.013, 68.083, 0.416708)
	pt3dadd(361.956, 266.929, 68.0554, 0.326908)
	pt3dadd(362.192, 266.774, 68.1054, 0.336618)
	pt3dadd(362.444, 266.771, 68.122, 0.454444)
	pt3dadd(362.697, 266.726, 68.1433, 0.494588)
	pt3dadd(363.16, 266.444, 68.3073, 0.73405)
	pt3dadd(363.527, 266.428, 68.4931, 0.701884)
	pt3dadd(364.009, 265.895, 68.8951, 0.9566)
	pt3dadd(364.19, 265.546, 69.0743, 0.446006)
	pt3dadd(364.528, 265.273, 69.2184, 0.460316)
	pt3dadd(365.282, 265.006, 69.2215, 0.815288)
	pt3dadd(365.609, 265.14, 69.6084, 0.705724)
	pt3dadd(366.107, 264.941, 69.7729, 0.430744)
	pt3dadd(366.358, 264.8, 69.8407, 0.507528)
	pt3dadd(366.84, 264.883, 70.0517, 0.371546)
	pt3dadd(367.218, 265.122, 70.4418, 0.883746)
	pt3dadd(367.51, 265.218, 70.7432, 0.737214)
	pt3dadd(367.87, 265.317, 71.1609, 0.52621)
	pt3dadd(368.137, 265.087, 71.0271, 0.2)
	pt3dadd(368.41, 264.89, 70.8458, 0.478554)
	pt3dadd(370.274, 264.136, 70.7228, 0.55776)
	pt3dadd(370.983, 264.245, 71.3311, 0.992218)
	pt3dadd(371.567, 264.116, 71.4947, 0.662034)
	pt3dadd(372.145, 263.488, 71.803, 0.962276)
	pt3dadd(372.43, 263.237, 71.806, 0.54612)
	pt3dadd(372.701, 263.024, 71.8956, 0.378094)
	pt3dadd(373.063, 262.711, 72.0529, 0.582362)
	pt3dadd(373.321, 262.118, 72.4352, 0.788548)
	pt3dadd(373.747, 261.866, 72.5817, 0.235344)
	pt3dadd(374.384, 261.594, 72.6852, 0.736002)
	pt3dadd(374.835, 261.372, 73.2367, 0.93154)
	pt3dadd(375.002, 261.206, 73.5733, 0.81071)
	pt3dadd(375.586, 260.905, 73.9065, 0.2)
	pt3dadd(376.049, 260.701, 73.9213, 0.498146)
	pt3dadd(376.311, 260.579, 74.2759, 0.411396)
	pt3dadd(376.609, 260.376, 74.2391, 0.23148)
	pt3dadd(376.844, 260.221, 74.1721, 0.223732)
	pt3dadd(377.127, 260.189, 74.2588, 0.320406)
	pt3dadd(377.324, 259.997, 74.3437, 0.2)
	pt3dadd(377.549, 259.787, 74.3955, 0.2)
	pt3dadd(377.854, 259.491, 74.5107, 0.412114)
	pt3dadd(378.113, 259.363, 74.6244, 0.36)
	pt3dadd(378.376, 259.197, 74.786, 0.396784)
	pt3dadd(378.73, 258.907, 75.0168, 0.733314)
	pt3dadd(378.896, 258.774, 75.3515, 0.720598)
	pt3dadd(379.426, 258.429, 75.6418, 0.472722)
	pt3dadd(379.734, 258.367, 75.7183, 0.412828)
	pt3dadd(379.966, 258.384, 75.712, 0.32196)
	pt3dadd(384.186, 256.217, 78.5694, 0.837496)
	pt3dadd(388.02, 255.059, 80.0308, 0.704224)
	pt3dadd(388.598, 254.969, 79.9783, 0.2)
	pt3dadd(388.872, 254.718, 80.0255, 1.08628)
	pt3dadd(389.602, 254.409, 80.421, 1.03511)
	pt3dadd(390.295, 254.083, 81.1853, 0.660024)
	pt3dadd(397.105, 250.506, 83.0971, 0.813092)
	pt3dadd(397.474, 250.182, 83.3059, 0.855866)
	pt3dadd(397.654, 249.807, 83.4, 0.2)
	pt3dadd(401.821, 247.507, 85.2081, 0.527016)
	pt3dadd(402.109, 247.135, 85.5281, 0.689864)
	pt3dadd(402.393, 246.821, 85.6226, 0.546688)
	pt3dadd(405.313, 244.978, 87.2004, 0.838398)
	pt3dadd(406.108, 244.784, 87.1702, 0.758664)
	pt3dadd(406.317, 244.644, 86.5278, 0.633688)
	pt3dadd(412.207, 242.524, 89.034, 0.318834)
	pt3dadd(412.472, 242.678, 89.2101, 0.219208)
	pt3dadd(412.65, 242.807, 89.3378, 0.241836)
	pt3dadd(412.985, 242.918, 89.6361, 0.449996)
	pt3dadd(413.237, 243.018, 89.6785, 0.36857)
	pt3dadd(413.92, 243.198, 89.7283, 0.701206)
	pt3dadd(414.306, 243.134, 89.5253, 0.540666)
	pt3dadd(414.81, 243.015, 90.1096, 0.349726)
	pt3dadd(415.067, 242.989, 90.3661, 0.435244)
	pt3dadd(417.695, 243.143, 90.9272, 0.24861)
	pt3dadd(418.506, 243.243, 91.255, 0.653594)
	pt3dadd(418.657, 243.012, 91.5839, 0.960482)
	pt3dadd(419.479, 242.683, 92.0434, 0.459466)
	pt3dadd(420.038, 242.903, 92.2162, 0.8443)
	pt3dadd(422.307, 242.608, 92.8481, 0.394936)
  }
}
proc shape3d_34() {
  dend[66] {	pt3dadd(422.58, 242.273, 92.989, 0.784912)
	pt3dadd(422.839, 242.231, 93.3034, 0.733142)
	pt3dadd(431.2, 243.236, 98, 0.2)
	pt3dadd(431.493, 243.337, 97.8539, 0.809884)
	pt3dadd(431.892, 243.931, 97.517, 0.376246)
  }
  dend_6[37] {pt3dclear()
	pt3dadd(431.892, 243.931, 97.517, 0.376246)
	pt3dadd(432.087, 244.052, 97.1405, 0.354888)
  }
  dend[67] {pt3dclear()
	pt3dadd(306.335, 278.086, 50.0579, 1.37743)
	pt3dadd(307.003, 277.393, 50.1333, 0.77894)
	pt3dadd(307.493, 276.913, 50.3716, 0.422802)
	pt3dadd(307.699, 276.641, 50.417, 0.393382)
	pt3dadd(307.913, 276.389, 50.3914, 0.36621)
	pt3dadd(308.193, 276.178, 50.4062, 0.368128)
	pt3dadd(308.438, 276.001, 50.4065, 0.40543)
	pt3dadd(308.706, 275.748, 50.4516, 0.364272)
	pt3dadd(308.999, 275.423, 50.4787, 0.751468)
	pt3dadd(309.326, 275.127, 50.4639, 1.01854)
	pt3dadd(309.964, 274.365, 50.5199, 1.04025)
	pt3dadd(310.735, 273.521, 50.3832, 0.722044)
	pt3dadd(311.092, 273.245, 50.3518, 0.72562)
	pt3dadd(311.39, 273.012, 50.3542, 0.857004)
	pt3dadd(311.865, 272.747, 50.2222, 0.4816)
	pt3dadd(312.153, 272.524, 50.1317, 0.61942)
	pt3dadd(312.612, 272.647, 50.4919, 0.622384)
	pt3dadd(312.927, 272.612, 50.575, 0.3651)
	pt3dadd(313.241, 272.592, 50.5543, 0.358276)
	pt3dadd(313.562, 272.536, 50.4716, 0.497436)
	pt3dadd(313.871, 272.441, 50.443, 0.608996)
	pt3dadd(314.204, 272.31, 50.4942, 0.50299)
	pt3dadd(314.524, 272.265, 50.6, 0.521186)
	pt3dadd(314.868, 272.15, 50.6693, 0.677888)
	pt3dadd(315.188, 271.964, 50.725, 0.811294)
	pt3dadd(315.521, 271.607, 50.8748, 1.10498)
	pt3dadd(316.319, 271.385, 51.1231, 1.18287)
	pt3dadd(317.44, 270.903, 51.3126, 0.9903)
	pt3dadd(317.75, 270.304, 51.3198, 1.17869)
	pt3dadd(318.527, 269.798, 51.1889, 0.758454)
	pt3dadd(318.9, 269.64, 51.1406, 0.801294)
	pt3dadd(319.35, 269.349, 51.1622, 0.666884)
	pt3dadd(319.812, 268.912, 51.294, 0.399978)
	pt3dadd(320.105, 268.773, 51.3199, 0.24861)
	pt3dadd(320.421, 268.599, 51.361, 0.347596)
	pt3dadd(320.722, 268.497, 51.2904, 0.489684)
	pt3dadd(320.964, 268.281, 51.1423, 0.343902)
	pt3dadd(321.212, 268.099, 51.0153, 0.511384)
	pt3dadd(321.525, 267.837, 50.9988, 0.547842)
	pt3dadd(321.983, 267.509, 50.7927, 0.563508)
	pt3dadd(322.547, 267.078, 50.8979, 0.501162)
	pt3dadd(322.773, 266.874, 50.9004, 0.365928)
	pt3dadd(323.004, 266.711, 50.9283, 0.3011)
	pt3dadd(323.311, 266.594, 50.9187, 0.488934)
	pt3dadd(323.576, 266.438, 50.912, 0.673082)
	pt3dadd(323.888, 266.17, 50.8913, 0.74052)
	pt3dadd(324.282, 265.937, 50.7548, 0.669442)
	pt3dadd(324.64, 265.787, 50.708, 0.725666)
	pt3dadd(325.105, 265.596, 50.7095, 1.04808)
  }
  dend_5[28] {pt3dclear()
	pt3dadd(325.105, 265.596, 50.7095, 1.04808)
	pt3dadd(326.298, 264.488, 50.971, 1.76635)
  }
  dend[68] {pt3dclear()
	pt3dadd(326.298, 264.488, 50.971, 1.76635)
	pt3dadd(326.908, 263.522, 51.0071, 1.12157)
	pt3dadd(327.549, 262.829, 51.0329, 0.419184)
	pt3dadd(327.808, 262.589, 51.0545, 0.399302)
	pt3dadd(328.024, 262.35, 51.0128, 0.407258)
	pt3dadd(328.206, 262.044, 50.8751, 0.449696)
	pt3dadd(328.233, 261.747, 50.6523, 0.675746)
	pt3dadd(328.677, 261.348, 50.6333, 0.2)
	pt3dadd(329.069, 261.051, 50.6081, 0.57472)
	pt3dadd(329.237, 260.755, 51.0691, 0.602448)
	pt3dadd(329.412, 260.342, 51.3453, 0.310154)
	pt3dadd(329.557, 260.053, 51.5, 0.402452)
	pt3dadd(329.747, 259.759, 51.4514, 0.464978)
	pt3dadd(330, 259.394, 51.5365, 0.89189)
	pt3dadd(330.418, 258.709, 51.5963, 1.16265)
	pt3dadd(331.2, 258.184, 51.6923, 1.18107)
	pt3dadd(331.81, 257.901, 51.7338, 0.80827)
	pt3dadd(332.112, 257.494, 51.9239, 0.683024)
	pt3dadd(332.44, 257.304, 52.0235, 0.61359)
	pt3dadd(332.783, 257.05, 52.0787, 0.541814)
	pt3dadd(333.088, 256.799, 52.0999, 0.751892)
	pt3dadd(333.759, 256.379, 52.1394, 0.34388)
	pt3dadd(333.892, 256.145, 52.1146, 0.2)
	pt3dadd(334.089, 255.888, 52.1216, 0.2)
	pt3dadd(334.275, 255.728, 52.1047, 0.42284)
	pt3dadd(334.526, 255.586, 52.0547, 0.404414)
	pt3dadd(334.827, 255.373, 52.0139, 0.801182)
	pt3dadd(335.648, 254.688, 52.2263, 0.2)
	pt3dadd(335.823, 254.641, 52.268, 0.2)
	pt3dadd(336.034, 254.54, 52.2862, 0.2)
	pt3dadd(336.248, 254.387, 52.3174, 0.2)
	pt3dadd(336.466, 254.247, 52.3352, 0.2)
	pt3dadd(336.778, 254.123, 52.3941, 0.352684)
	pt3dadd(336.965, 253.896, 52.4682, 0.798346)
	pt3dadd(337.416, 253.374, 52.4168, 1.54835)
	pt3dadd(338.359, 252.623, 52.4071, 1.18396)
	pt3dadd(338.963, 252.18, 52.429, 1.22584)
	pt3dadd(339.755, 251.491, 52.524, 1.11312)
	pt3dadd(340.286, 251.229, 52.6632, 0.894226)
	pt3dadd(340.809, 250.699, 52.8252, 0.34391)
	pt3dadd(341.072, 250.534, 52.9769, 0.421094)
	pt3dadd(341.329, 250.152, 53.0667, 0.245336)
	pt3dadd(341.478, 249.933, 53.0293, 0.2)
	pt3dadd(341.66, 249.727, 53.0076, 0.410562)
	pt3dadd(341.877, 249.5, 52.993, 0.51158)
	pt3dadd(342.166, 249.273, 52.8933, 0.599982)
	pt3dadd(342.525, 249.02, 52.7275, 0.68237)
	pt3dadd(342.907, 248.802, 52.5766, 0.392904)
	pt3dadd(343.207, 248.657, 52.4849, 0.750038)
	pt3dadd(343.28, 248.175, 52.5831, 0.463138)
	pt3dadd(343.582, 247.761, 52.5252, 0.221064)
	pt3dadd(343.699, 247.54, 52.57, 0.2)
	pt3dadd(343.814, 247.286, 52.598, 0.257276)
	pt3dadd(344.035, 247.086, 52.5118, 0.7562)
	pt3dadd(344.425, 246.495, 52.1396, 1.50998)
	pt3dadd(344.874, 245.599, 51.9931, 1.50139)
	pt3dadd(345.381, 244.592, 51.9884, 1.23715)
	pt3dadd(398.2, 204.439, 43.9471, 0.787048)
	pt3dadd(399.137, 203.891, 43.8606, 0.51934)
	pt3dadd(399.244, 203.584, 43.8765, 0.411438)
	pt3dadd(399.398, 203.272, 43.8384, 0.404602)
	pt3dadd(399.609, 202.95, 43.8105, 0.27503)
	pt3dadd(399.666, 202.769, 43.8053, 0.266156)
	pt3dadd(399.876, 202.479, 43.8264, 0.237618)
	pt3dadd(400.022, 202.325, 43.8879, 0.361232)
	pt3dadd(400.171, 202.053, 43.8915, 0.406362)
	pt3dadd(400.454, 201.038, 43.7829, 0.2)
	pt3dadd(400.566, 200.71, 43.7679, 0.406852)
	pt3dadd(400.709, 200.49, 43.697, 0.341132)
	pt3dadd(400.933, 200.241, 43.6656, 0.2)
	pt3dadd(401.095, 199.998, 43.6257, 0.245312)
	pt3dadd(401.251, 199.803, 43.6409, 0.27843)
	pt3dadd(401.422, 199.615, 43.6391, 0.312508)
	pt3dadd(401.576, 199.366, 43.6038, 0.353466)
	pt3dadd(401.735, 199.133, 43.5052, 0.280016)
	pt3dadd(401.939, 198.88, 43.4677, 0.454772)
	pt3dadd(403.038, 197.891, 42.9948, 1.37415)
	pt3dadd(403.553, 197.403, 42.2677, 0.865248)
	pt3dadd(403.975, 197.029, 42.0645, 0.2)
	pt3dadd(404.171, 196.826, 41.9555, 0.2)
	pt3dadd(404.322, 196.619, 41.8712, 0.2)
	pt3dadd(404.422, 196.352, 41.7663, 0.2)
	pt3dadd(404.64, 196.125, 41.6783, 0.371394)
	pt3dadd(404.86, 195.99, 41.564, 0.2)
	pt3dadd(405.128, 195.798, 41.4453, 0.389384)
	pt3dadd(405.371, 195.67, 41.363, 0.479484)
	pt3dadd(405.694, 195.511, 41.3364, 0.461886)
	pt3dadd(408.107, 192.832, 38.7111, 0.457744)
	pt3dadd(408.245, 192.684, 39.2974, 0.634096)
	pt3dadd(408.734, 192.809, 40.1058, 1.03052)
	pt3dadd(409.007, 192.588, 41.317, 0.732716)
	pt3dadd(410.998, 192.173, 39.6178, 0.707194)
	pt3dadd(413.004, 190.855, 39.0182, 0.40939)
	pt3dadd(413.313, 190.587, 38.9999, 0.666506)
	pt3dadd(413.645, 190.571, 38.8369, 0.756414)
	pt3dadd(413.888, 190.276, 38.6077, 0.619944)
	pt3dadd(414.113, 189.996, 38.4302, 0.844096)
	pt3dadd(414.748, 189.285, 37.998, 0.20551)
	pt3dadd(414.917, 189.073, 37.8445, 0.741158)
	pt3dadd(415.492, 188.912, 37.6181, 0.861786)
	pt3dadd(415.804, 188.838, 37.2259, 0.688906)
	pt3dadd(418.963, 186.641, 35.9993, 0.813174)
	pt3dadd(419.294, 186.247, 36.124, 0.898112)
	pt3dadd(421.611, 182.873, 34.9421, 0.385482)
	pt3dadd(421.924, 182.397, 34.5804, 0.821716)
	pt3dadd(422.485, 181.724, 34.5113, 0.2)
	pt3dadd(422.694, 181.528, 34.4571, 0.452752)
	pt3dadd(422.81, 181.392, 34.3684, 0.416482)
	pt3dadd(425.219, 178.941, 34.6872, 0.696184)
	pt3dadd(425.58, 178.544, 34.5706, 0.666638)
	pt3dadd(427.178, 174.895, 34.5876, 0.434646)
	pt3dadd(427.504, 174.428, 34.7173, 0.988648)
	pt3dadd(427.44, 173.99, 34.6448, 0.893278)
	pt3dadd(427.473, 173.599, 34.6072, 0.806514)
	pt3dadd(430.016, 171.63, 35.2133, 0.2)
	pt3dadd(430.285, 171.453, 35.0418, 0.381632)
	pt3dadd(430.808, 171.314, 34.8044, 0.703018)
	pt3dadd(431.189, 171.036, 34.7555, 0.335894)
	pt3dadd(431.476, 170.882, 34.7136, 0.2)
	pt3dadd(431.682, 170.837, 34.644, 0.2)
	pt3dadd(431.901, 170.798, 34.6194, 0.340424)
	pt3dadd(432.109, 170.85, 34.5598, 0.462784)
	pt3dadd(432.365, 170.751, 34.5932, 0.574866)
	pt3dadd(432.611, 170.566, 34.6359, 0.838018)
	pt3dadd(433.191, 170.168, 34.6961, 0.89482)
	pt3dadd(433.61, 170.12, 34.515, 0.855968)
	pt3dadd(434.27, 169.807, 34.3662, 0.713926)
	pt3dadd(434.599, 169.431, 34.5477, 0.555762)
	pt3dadd(434.92, 169.273, 34.6011, 0.441356)
	pt3dadd(435.2, 169.075, 34.5819, 0.32459)
	pt3dadd(437.589, 167.533, 35.0095, 0.756336)
	pt3dadd(437.768, 167.126, 34.7417, 0.442746)
	pt3dadd(437.802, 166.891, 34.4941, 0.666264)
	pt3dadd(437.617, 166.586, 34.2584, 0.404374)
  }
  dend_6[38] {pt3dclear()
	pt3dadd(437.617, 166.586, 34.2584, 0.404374)
	pt3dadd(437.399, 166.362, 34.1759, 0.529524)
  }
  dend[69] {pt3dclear()
	pt3dadd(326.298, 264.488, 50.971, 1.76635)
	pt3dadd(327.58, 265.112, 50.7889, 0.854312)
	pt3dadd(328.28, 265.03, 50.4497, 0.2)
	pt3dadd(328.518, 265.002, 50.4805, 0.2)
	pt3dadd(328.723, 265.019, 50.4647, 0.229858)
	pt3dadd(328.857, 265.082, 50.4753, 0.358322)
  }
}
proc shape3d_35() {
  dend[69] {	pt3dadd(329.117, 265.019, 50.4559, 0.350616)
	pt3dadd(329.383, 264.911, 50.4058, 0.530518)
	pt3dadd(329.729, 264.857, 50.3527, 0.902842)
	pt3dadd(330.475, 264.808, 50.2742, 0.979346)
	pt3dadd(330.885, 264.579, 50.0079, 0.783072)
	pt3dadd(331.467, 264.371, 50.3846, 0.415096)
	pt3dadd(331.738, 264.193, 50.3676, 0.239104)
	pt3dadd(331.997, 264.111, 50.2239, 0.45635)
	pt3dadd(332.29, 264.024, 50.0623, 0.407336)
	pt3dadd(332.617, 263.843, 50.1238, 0.317566)
	pt3dadd(332.976, 263.65, 50.0968, 0.495134)
	pt3dadd(333.502, 263.35, 49.936, 0.815866)
	pt3dadd(333.859, 263.112, 49.8247, 0.98422)
	pt3dadd(334.794, 262.528, 49.6866, 0.882396)
	pt3dadd(335.142, 262.246, 49.5747, 1.22272)
	pt3dadd(336.017, 262.234, 49.5064, 0.73602)
	pt3dadd(336.425, 262.268, 49.5585, 0.463136)
	pt3dadd(336.74, 262.279, 49.521, 0.444156)
	pt3dadd(337.073, 262.271, 49.3013, 0.39283)
	pt3dadd(337.333, 262.516, 49.1825, 0.547008)
	pt3dadd(337.749, 262.075, 49.5285, 0.327556)
	pt3dadd(338.045, 262.018, 49.6337, 0.345026)
	pt3dadd(338.295, 261.971, 49.7341, 0.461478)
	pt3dadd(338.602, 261.849, 49.7578, 0.525872)
	pt3dadd(339.249, 261.725, 49.6093, 0.621454)
	pt3dadd(339.6, 261.836, 49.5842, 0.774972)
	pt3dadd(340.003, 261.811, 49.6745, 0.787078)
	pt3dadd(340.387, 261.665, 49.6745, 0.857646)
	pt3dadd(341.203, 261.289, 49.858, 1.44914)
	pt3dadd(342.304, 260.858, 49.9306, 1.43914)
	pt3dadd(343.2, 260.58, 49.7881, 1.55374)
	pt3dadd(344.323, 260.206, 49.7965, 1.58463)
	pt3dadd(345.443, 260.1, 50.2398, 1.38065)
	pt3dadd(346.344, 259.877, 50.4975, 0.911774)
	pt3dadd(346.718, 259.603, 50.4506, 0.52952)
	pt3dadd(347.04, 259.458, 50.3727, 0.504746)
	pt3dadd(347.579, 259.403, 50.4557, 0.237992)
	pt3dadd(347.822, 259.378, 50.5742, 0.220776)
	pt3dadd(348.131, 259.368, 50.7156, 0.4938)
	pt3dadd(348.466, 259.33, 50.5915, 0.57343)
	pt3dadd(348.779, 259.505, 50.529, 0.95082)
	pt3dadd(349.65, 259.716, 50.5077, 0.961206)
	pt3dadd(350.303, 259.809, 50.5624, 0.62237)
	pt3dadd(350.659, 259.798, 50.6004, 0.632934)
	pt3dadd(351.049, 259.801, 50.6108, 0.7762)
	pt3dadd(351.744, 259.481, 50.7692, 0.994852)
	pt3dadd(352.241, 259.485, 50.9665, 0.973256)
	pt3dadd(352.793, 259.679, 51.0117, 0.891064)
	pt3dadd(353.629, 259.854, 51.2183, 1.23088)
	pt3dadd(354.283, 259.778, 51.0558, 0.744364)
	pt3dadd(355.041, 259.624, 51.0298, 0.28579)
	pt3dadd(355.353, 259.59, 51.0508, 0.23208)
	pt3dadd(356.706, 259.518, 50.8257, 0.534766)
	pt3dadd(357.066, 259.529, 51.0898, 0.524788)
	pt3dadd(357.449, 259.53, 51.149, 0.531644)
	pt3dadd(357.871, 259.624, 51.1128, 0.848718)
	pt3dadd(358.599, 259.413, 50.9854, 1.31437)
	pt3dadd(359.421, 259.121, 50.8319, 0.96131)
	pt3dadd(360.256, 259.213, 50.9555, 0.42027)
	pt3dadd(360.505, 259.223, 50.9855, 0.231876)
	pt3dadd(360.877, 259.17, 50.8718, 0.336466)
	pt3dadd(361.155, 259.043, 50.8191, 0.438834)
	pt3dadd(361.451, 258.965, 50.8277, 0.425344)
	pt3dadd(361.72, 258.878, 50.8517, 0.502852)
	pt3dadd(362.011, 258.674, 50.7878, 0.486008)
	pt3dadd(362.225, 258.412, 50.5767, 0.47812)
	pt3dadd(362.796, 258.258, 50.667, 0.26644)
	pt3dadd(363.093, 258.076, 50.6537, 0.410368)
	pt3dadd(363.767, 257.807, 50.6059, 1.08763)
	pt3dadd(364.363, 257.372, 49.9766, 0.896224)
	pt3dadd(365.078, 257.131, 50.3694, 0.404096)
	pt3dadd(365.366, 257.056, 50.3106, 0.285772)
	pt3dadd(365.637, 257.007, 50.2141, 0.371154)
	pt3dadd(365.965, 256.854, 50.3517, 0.44295)
	pt3dadd(366.695, 256.48, 50.5945, 1.08212)
	pt3dadd(367.693, 255.913, 50.4097, 0.2)
	pt3dadd(367.905, 255.715, 50.3991, 0.2)
	pt3dadd(368.183, 255.49, 50.3969, 0.2)
	pt3dadd(368.36, 255.266, 50.3336, 0.240268)
	pt3dadd(368.861, 254.95, 50.1341, 0.717062)
	pt3dadd(369.206, 254.965, 50.3616, 0.814752)
	pt3dadd(369.554, 255.047, 50.5436, 0.496136)
	pt3dadd(369.864, 255.003, 50.5927, 0.3249)
	pt3dadd(370.08, 254.799, 50.5882, 0.555782)
	pt3dadd(370.977, 254.241, 50.4466, 1.29935)
	pt3dadd(373.375, 252.389, 49.9886, 0.835312)
	pt3dadd(373.68, 252.124, 50.1601, 1.00743)
	pt3dadd(374.086, 251.353, 49.9259, 0.741602)
	pt3dadd(374.549, 251.033, 49.7876, 0.2)
	pt3dadd(374.775, 250.927, 49.649, 0.328234)
	pt3dadd(374.882, 250.811, 49.1657, 0.22888)
	pt3dadd(375.809, 249.736, 50.6838, 0.379998)
	pt3dadd(376.114, 249.235, 50.6367, 0.489374)
	pt3dadd(377.425, 248.026, 50.8377, 0.213932)
	pt3dadd(377.623, 247.822, 50.878, 0.352916)
	pt3dadd(377.792, 247.61, 50.8536, 0.414872)
	pt3dadd(378.186, 247.358, 50.7571, 0.444132)
	pt3dadd(378.406, 247.042, 50.8036, 0.398218)
	pt3dadd(378.674, 246.691, 50.8738, 0.610676)
	pt3dadd(379.059, 246.479, 50.775, 0.676054)
	pt3dadd(379.674, 245.984, 50.7025, 0.826208)
	pt3dadd(379.995, 245.706, 50.681, 0.825804)
	pt3dadd(380.411, 245.434, 50.6792, 0.859666)
	pt3dadd(380.75, 245.212, 50.636, 0.77103)
	pt3dadd(381.079, 244.997, 50.5939, 0.67312)
	pt3dadd(381.435, 244.787, 50.5669, 0.503866)
	pt3dadd(381.878, 244.626, 50.6037, 0.733826)
	pt3dadd(382.368, 244.275, 50.7751, 0.734502)
	pt3dadd(382.699, 243.998, 51.0914, 0.546892)
	pt3dadd(383.385, 243.641, 51.064, 0.460638)
	pt3dadd(384.196, 243.445, 51.1226, 0.878158)
	pt3dadd(384.73, 243.482, 51.1457, 0.934342)
	pt3dadd(385.243, 243.512, 51.1818, 0.97668)
	pt3dadd(385.697, 243.371, 51.1858, 0.579182)
	pt3dadd(386.177, 243.351, 51.263, 0.721994)
	pt3dadd(386.69, 243.204, 51.3008, 0.414646)
	pt3dadd(387.036, 242.962, 50.9803, 0.440702)
	pt3dadd(387.452, 242.85, 50.8094, 0.40332)
	pt3dadd(387.836, 242.811, 50.9716, 0.353854)
	pt3dadd(388.306, 242.738, 51.0986, 0.626042)
	pt3dadd(388.603, 242.784, 51.1511, 0.2)
	pt3dadd(389.259, 242.815, 51.1706, 0.920064)
	pt3dadd(395.936, 241.494, 51.2, 0.2)
	pt3dadd(396.041, 241.482, 51.2046, 0.601134)
	pt3dadd(396.443, 241.197, 51.4113, 0.967256)
	pt3dadd(396.963, 240.929, 51.6749, 0.938736)
	pt3dadd(397.558, 240.677, 51.5919, 0.332148)
	pt3dadd(398.044, 240.296, 51.4836, 0.63757)
	pt3dadd(398.519, 240.196, 51.6802, 0.339712)
	pt3dadd(398.778, 240.094, 51.8666, 0.431202)
	pt3dadd(399.058, 239.997, 52.0257, 0.289626)
	pt3dadd(400.387, 240.366, 53.1409, 0.679962)
	pt3dadd(400.587, 240.316, 52.6664, 0.59247)
	pt3dadd(400.791, 240.204, 52.4014, 0.388058)
	pt3dadd(400.946, 239.955, 52.1338, 0.499354)
	pt3dadd(401.37, 239.875, 51.8826, 0.635262)
	pt3dadd(401.74, 239.825, 51.8108, 0.751364)
	pt3dadd(402.838, 239.512, 51.7875, 1.42484)
	pt3dadd(403.516, 239.329, 51.2494, 0.583496)
	pt3dadd(403.862, 239.216, 51.1515, 0.209968)
	pt3dadd(404.123, 239.179, 51.0787, 0.25784)
	pt3dadd(404.43, 239.123, 51.0713, 0.343026)
	pt3dadd(404.695, 239.077, 51.0235, 0.363998)
	pt3dadd(405.124, 238.988, 50.9118, 0.203044)
	pt3dadd(405.275, 239.043, 50.8159, 0.38706)
	pt3dadd(405.456, 239.097, 50.7309, 0.52647)
	pt3dadd(405.565, 239.073, 50.4769, 0.481358)
	pt3dadd(406.027, 238.866, 50.3464, 0.2)
	pt3dadd(406.276, 238.821, 50.317, 0.2)
	pt3dadd(406.5, 238.876, 50.3219, 0.2)
	pt3dadd(406.83, 238.928, 50.3263, 0.556994)
	pt3dadd(407.127, 238.76, 50.0395, 0.2)
	pt3dadd(407.324, 238.594, 49.7974, 0.380528)
	pt3dadd(407.642, 238.475, 49.7219, 0.548754)
	pt3dadd(407.984, 238.383, 49.7058, 0.659126)
	pt3dadd(408.429, 238.224, 49.585, 0.707642)
	pt3dadd(408.786, 238.056, 49.4007, 0.75546)
	pt3dadd(409.33, 238.036, 49.5491, 0.387846)
	pt3dadd(409.858, 237.699, 49.188, 0.2)
	pt3dadd(410.034, 237.55, 48.9884, 0.2)
	pt3dadd(410.227, 237.393, 48.8651, 0.206874)
	pt3dadd(410.497, 237.286, 48.7655, 0.680342)
	pt3dadd(411.077, 237.021, 48.5507, 1.03064)
	pt3dadd(411.693, 236.562, 48.5502, 0.868498)
	pt3dadd(411.994, 236.249, 48.442, 0.573046)
	pt3dadd(412.673, 235.694, 48.3267, 0.2)
	pt3dadd(412.824, 235.482, 48.2314, 0.388282)
	pt3dadd(412.984, 235.364, 48.1237, 0.429298)
	pt3dadd(413.718, 234.504, 48.2961, 0.68701)
	pt3dadd(413.904, 234.166, 48.3207, 0.960432)
	pt3dadd(414.49, 233.683, 48.2411, 0.750886)
	pt3dadd(414.736, 233.321, 48.0782, 0.788058)
	pt3dadd(416.647, 231.341, 47.3207, 0.800238)
	pt3dadd(416.977, 231.196, 47.4982, 0.37536)
	pt3dadd(422.896, 224.789, 46.0783, 0.833346)
	pt3dadd(425.932, 223.329, 45.8455, 0.668878)
	pt3dadd(432.185, 224.622, 45.0099, 0.463258)
	pt3dadd(432.355, 224.725, 44.8253, 0.564986)
	pt3dadd(432.616, 224.738, 44.588, 0.635128)
	pt3dadd(432.992, 224.576, 44.1893, 0.898124)
	pt3dadd(433.971, 224.728, 43.6625, 0.302604)
	pt3dadd(434.143, 224.831, 43.4956, 0.448108)
	pt3dadd(434.242, 224.924, 43.2383, 0.471478)
	pt3dadd(434.328, 225, 42.9966, 0.415734)
	pt3dadd(434.41, 225.019, 42.7691, 0.38844)
	pt3dadd(434.477, 225.086, 42.5574, 0.270344)
	pt3dadd(434.731, 225.17, 42.3926, 0.2)
	pt3dadd(434.945, 225.231, 42.1091, 0.426702)
	pt3dadd(435.075, 225.347, 41.8892, 0.639228)
	pt3dadd(435.171, 225.37, 41.4933, 0.725584)
	pt3dadd(435.379, 225.379, 40.8496, 0.43058)
	pt3dadd(435.682, 225.527, 40.5317, 0.2)
	pt3dadd(435.829, 225.609, 40.3224, 0.410818)
	pt3dadd(435.904, 225.649, 39.9311, 0.513324)
	pt3dadd(436.099, 225.432, 39.8287, 0.213032)
	pt3dadd(436.411, 225.325, 39.652, 0.422216)
	pt3dadd(436.804, 225.632, 39.282, 0.319808)
	pt3dadd(437.084, 225.797, 39.0626, 0.753738)
	pt3dadd(437.381, 225.798, 38.4769, 0.676228)
	pt3dadd(440.547, 226, 36.8621, 0.628172)
  }
}
proc shape3d_36() {
  dend[69] {	pt3dadd(440.749, 225.866, 36.5903, 0.6439)
	pt3dadd(441.241, 225.982, 36.6233, 0.2)
	pt3dadd(441.546, 225.938, 36.4544, 0.64342)
	pt3dadd(441.929, 225.797, 36.1838, 0.785874)
	pt3dadd(442.604, 225.388, 36.3835, 0.40352)
	pt3dadd(442.826, 225.215, 36.7344, 0.380102)
	pt3dadd(445.995, 225.026, 35.3212, 0.231842)
	pt3dadd(446.484, 225.09, 35.3331, 0.564768)
	pt3dadd(447.35, 225.487, 35.2256, 0.980122)
	pt3dadd(450.382, 226.339, 35.862, 0.69795)
	pt3dadd(450.632, 226.449, 35.9817, 0.653264)
	pt3dadd(452.495, 226.587, 35.507, 0.27081)
	pt3dadd(452.784, 226.598, 35.4968, 0.2)
	pt3dadd(453.184, 226.609, 35.4851, 0.654728)
	pt3dadd(453.6, 226.435, 35.1769, 0.773748)
	pt3dadd(454, 226.42, 35.18, 0.761926)
	pt3dadd(454.781, 226.941, 35.1924, 0.802752)
	pt3dadd(455.43, 227.134, 34.9743, 0.3989)
	pt3dadd(455.72, 227.127, 34.6155, 0.573528)
	pt3dadd(459.387, 226.38, 36.6, 0.2)
	pt3dadd(459.699, 226.206, 36.734, 0.60909)
	pt3dadd(460.141, 226.013, 37.2086, 0.847354)
	pt3dadd(460.315, 226.389, 37.6758, 0.45826)
	pt3dadd(460.513, 226.349, 37.8256, 0.24089)
  }
  dend_6[39] {pt3dclear()
	pt3dadd(460.513, 226.349, 37.8256, 0.24089)
	pt3dadd(460.882, 226.373, 37.8028, 0.309482)
  }
  dend[70] {pt3dclear()
	pt3dadd(276.789, 284.121, 44.1427, 2.68046)
	pt3dadd(276.749, 285.876, 44.0196, 3.13617)
	pt3dadd(278.091, 287.475, 43.6525, 3.14151)
	pt3dadd(278.966, 288.793, 43.5317, 3.28835)
  }
  dend_5[29] {pt3dclear()
	pt3dadd(278.966, 288.793, 43.5317, 3.28835)
	pt3dadd(280.134, 290.016, 43.3705, 3.33234)
  }
  dend[71] {pt3dclear()
	pt3dadd(280.134, 290.016, 43.3705, 3.33234)
	pt3dadd(279.333, 291.393, 42.5449, 0.548708)
	pt3dadd(279.265, 291.791, 42.3727, 0.57448)
	pt3dadd(279.198, 292.058, 42.1671, 0.741178)
	pt3dadd(279.126, 292.397, 41.989, 0.917206)
	pt3dadd(279.234, 292.933, 41.5478, 0.863344)
	pt3dadd(278.918, 293.444, 41.0719, 0.701554)
	pt3dadd(278.606, 293.603, 40.8359, 0.719318)
	pt3dadd(278.263, 293.661, 40.59, 0.815762)
	pt3dadd(277.902, 293.975, 40.0541, 0.922944)
	pt3dadd(277.655, 294.499, 39.5691, 0.673382)
	pt3dadd(277.492, 294.729, 39.3377, 0.706614)
	pt3dadd(277.307, 294.938, 39.0699, 0.791702)
	pt3dadd(277.059, 295.094, 38.7815, 0.788738)
	pt3dadd(276.591, 295.294, 38.3284, 0.72302)
	pt3dadd(276.12, 295.629, 37.9221, 0.633838)
	pt3dadd(275.893, 295.844, 37.7798, 0.63167)
	pt3dadd(275.66, 296.118, 37.6534, 0.743434)
	pt3dadd(275.115, 296.509, 37.2033, 1.29005)
	pt3dadd(274.641, 296.988, 36.3065, 1.1021)
	pt3dadd(274.089, 297.605, 35.5902, 0.906882)
	pt3dadd(273.756, 297.85, 35.3487, 1.00965)
	pt3dadd(273.174, 298.279, 34.8041, 1.08522)
	pt3dadd(272.709, 298.372, 34.4574, 1.02703)
	pt3dadd(272.111, 298.786, 33.7711, 1.0894)
	pt3dadd(271.601, 299.334, 33.2875, 0.878054)
  }
  dend_5[30] {pt3dclear()
	pt3dadd(271.601, 299.334, 33.2875, 0.878054)
	pt3dadd(270.842, 299.801, 32.8224, 1.18921)
  }
  dend[72] {pt3dclear()
	pt3dadd(270.842, 299.801, 32.8224, 1.18921)
	pt3dadd(269.901, 299.87, 32.5956, 0.955984)
	pt3dadd(269.462, 300.001, 32.4288, 0.866698)
	pt3dadd(268.967, 300.155, 32.4865, 0.854706)
	pt3dadd(268.079, 300.476, 32.2733, 0.505706)
	pt3dadd(267.788, 300.68, 32.0904, 0.488258)
	pt3dadd(267.498, 300.852, 31.9563, 0.524512)
	pt3dadd(267.027, 301.133, 32.0873, 0.536364)
	pt3dadd(266.741, 301.33, 32.0893, 0.566296)
	pt3dadd(266.408, 301.582, 31.9914, 0.636716)
	pt3dadd(266.006, 301.831, 32.0875, 0.602152)
	pt3dadd(265.664, 302.013, 32.1462, 0.490136)
	pt3dadd(265.389, 302.223, 32.1749, 0.706396)
	pt3dadd(264.87, 302.716, 32.1861, 1.07429)
	pt3dadd(264.329, 303.301, 32.2698, 1.09337)
	pt3dadd(263.673, 303.848, 32.2911, 1.14805)
	pt3dadd(262.833, 304.481, 32.1225, 0.9464)
	pt3dadd(262.136, 304.892, 31.8853, 0.808852)
	pt3dadd(261.78, 305.131, 31.7794, 0.733766)
	pt3dadd(261.47, 305.477, 31.6234, 0.689276)
	pt3dadd(261.121, 305.607, 31.4862, 0.710108)
	pt3dadd(260.456, 305.908, 31.382, 0.613564)
	pt3dadd(260.122, 306.141, 31.5493, 0.76569)
	pt3dadd(259.685, 306.329, 31.658, 0.823086)
	pt3dadd(259.113, 306.314, 31.6149, 0.975152)
	pt3dadd(258.631, 306.688, 31.6317, 0.944082)
	pt3dadd(258.23, 307.086, 31.7011, 1.23356)
	pt3dadd(257.479, 307.407, 31.5907, 1.33492)
  }
  dend_5[31] {pt3dclear()
	pt3dadd(257.479, 307.407, 31.5907, 1.33492)
	pt3dadd(256.355, 308.417, 31.455, 1.85906)
  }
  dend[73] {pt3dclear()
	pt3dadd(256.355, 308.417, 31.455, 1.85906)
	pt3dadd(256.344, 309.597, 31.5889, 0.952422)
	pt3dadd(255.917, 310.265, 31.7382, 0.667412)
	pt3dadd(255.715, 310.54, 31.7547, 0.715528)
	pt3dadd(255.536, 310.9, 31.8181, 0.807566)
	pt3dadd(255.19, 311.508, 31.8763, 0.99488)
	pt3dadd(254.799, 312.203, 31.8391, 1.06878)
	pt3dadd(254.58, 312.74, 32.1724, 0.77161)
	pt3dadd(254.583, 313.144, 32.27, 0.384414)
	pt3dadd(254.419, 313.472, 32.3616, 0.492266)
	pt3dadd(254.259, 313.899, 32.4392, 0.895706)
	pt3dadd(254.286, 314.555, 32.8102, 0.89825)
	pt3dadd(254.105, 314.926, 33.0111, 0.947464)
	pt3dadd(253.883, 315.696, 33.1017, 1.301)
	pt3dadd(254.158, 316.595, 33.6379, 0.690756)
	pt3dadd(254.287, 316.958, 33.6361, 0.563486)
	pt3dadd(254.477, 317.293, 33.5276, 0.602516)
	pt3dadd(254.476, 317.705, 33.8275, 0.560502)
	pt3dadd(254.649, 317.96, 34.0325, 0.577512)
	pt3dadd(254.665, 318.282, 34.2309, 0.521118)
	pt3dadd(254.636, 318.569, 34.3765, 0.390826)
	pt3dadd(254.65, 318.856, 34.5623, 0.564768)
	pt3dadd(254.628, 319.168, 34.7388, 0.746554)
	pt3dadd(254.735, 319.66, 34.7735, 0.63701)
	pt3dadd(254.881, 320.102, 34.7915, 0.87705)
	pt3dadd(255.354, 320.839, 34.8382, 1.29784)
	pt3dadd(255.721, 321.745, 35.2007, 0.87591)
	pt3dadd(256.019, 322.555, 35.388, 0.817628)
	pt3dadd(256.115, 323.008, 35.4273, 1.02911)
	pt3dadd(255.979, 324.095, 35.5542, 0.827462)
	pt3dadd(256.109, 324.704, 35.9454, 0.79331)
	pt3dadd(256.36, 325.194, 35.9139, 0.521634)
	pt3dadd(256.513, 325.5, 35.9803, 0.585496)
	pt3dadd(256.638, 325.804, 36.0696, 0.903528)
	pt3dadd(256.747, 326.358, 36.0008, 0.778984)
	pt3dadd(256.681, 327.117, 35.9908, 0.322496)
	pt3dadd(256.749, 327.441, 36.0309, 0.329592)
	pt3dadd(256.904, 327.706, 35.9906, 0.36075)
	pt3dadd(257.033, 327.964, 35.9443, 0.73198)
	pt3dadd(257.38, 328.565, 36.1726, 0.750026)
	pt3dadd(257.647, 328.944, 36.1003, 0.57234)
	pt3dadd(257.957, 329.714, 36.1418, 0.261176)
	pt3dadd(258.019, 330.003, 36.1447, 0.407814)
	pt3dadd(258.216, 330.267, 36.3412, 0.211626)
	pt3dadd(258.328, 330.509, 36.386, 0.2)
	pt3dadd(258.525, 330.661, 36.3573, 0.43611)
	pt3dadd(258.544, 330.991, 36.4368, 0.640038)
	pt3dadd(258.705, 331.253, 36.5612, 0.683768)
	pt3dadd(259.08, 331.53, 36.501, 0.72339)
	pt3dadd(259.195, 332.007, 36.451, 0.811082)
	pt3dadd(259.22, 332.414, 36.4746, 0.974026)
	pt3dadd(259.731, 333.397, 36.457, 0.898094)
	pt3dadd(260.147, 333.751, 36.2527, 0.752908)
	pt3dadd(260.37, 334.062, 36.0862, 0.444414)
	pt3dadd(260.524, 334.348, 35.9102, 0.577876)
	pt3dadd(260.701, 334.64, 35.789, 0.59843)
	pt3dadd(260.906, 335.004, 35.7774, 0.795558)
	pt3dadd(261.175, 335.409, 35.7061, 0.985042)
	pt3dadd(261.628, 336.096, 35.6071, 1.13112)
	pt3dadd(262.022, 337.096, 35.5479, 0.731954)
	pt3dadd(262.351, 337.652, 35.372, 0.931304)
	pt3dadd(262.599, 338.382, 35.1432, 0.771972)
	pt3dadd(262.708, 338.986, 35.2931, 0.700372)
	pt3dadd(262.832, 339.319, 35.4302, 0.493894)
	pt3dadd(262.821, 339.791, 35.4139, 0.343964)
	pt3dadd(262.939, 340.012, 35.4092, 0.373034)
	pt3dadd(263.013, 340.221, 35.3826, 0.2)
	pt3dadd(263.15, 340.473, 35.3889, 0.25729)
	pt3dadd(263.343, 340.72, 35.4595, 0.499368)
	pt3dadd(263.464, 341.021, 35.4174, 0.635744)
	pt3dadd(263.559, 341.413, 35.3643, 0.711074)
	pt3dadd(263.875, 342.072, 35.2431, 0.532056)
	pt3dadd(263.934, 342.46, 35.1944, 0.536808)
	pt3dadd(264.096, 342.774, 35.1553, 0.68811)
	pt3dadd(264.293, 343.386, 35.1657, 0.503718)
	pt3dadd(264.393, 343.696, 35.2443, 0.422312)
	pt3dadd(264.474, 344.044, 35.2078, 0.521088)
	pt3dadd(264.411, 344.412, 35.1356, 0.722534)
	pt3dadd(264.453, 344.796, 35.0528, 0.89475)
	pt3dadd(264.68, 345.222, 34.9849, 0.932496)
	pt3dadd(265.014, 345.528, 34.7955, 1.12094)
	pt3dadd(265.301, 346.259, 34.6012, 1.41841)
	pt3dadd(265.496, 347.084, 34.8274, 1.35803)
	pt3dadd(265.782, 348.025, 35.5066, 0.422524)
	pt3dadd(265.872, 348.29, 35.6604, 0.327794)
	pt3dadd(265.971, 348.528, 35.7712, 0.240384)
	pt3dadd(266.103, 348.812, 35.9223, 0.376384)
	pt3dadd(266.329, 348.971, 36.0322, 0.399954)
	pt3dadd(266.649, 349.011, 36.1475, 0.607114)
	pt3dadd(266.661, 349.45, 36.2262, 0.61602)
	pt3dadd(266.875, 349.816, 36.1379, 0.576388)
	pt3dadd(267.202, 350.16, 36.2623, 0.86648)
	pt3dadd(267.564, 350.853, 36.5625, 1.13715)
	pt3dadd(268.053, 351.54, 36.7265, 1.14186)
	pt3dadd(268.269, 352.259, 36.9538, 0.626042)
	pt3dadd(268.262, 352.65, 37.0284, 0.639474)
	pt3dadd(268.35, 353.002, 37.075, 0.901108)
	pt3dadd(268.282, 353.862, 37.1368, 1.04416)
	pt3dadd(268.472, 354.514, 37.2814, 0.5814)
	pt3dadd(268.596, 355.036, 37.4414, 0.286228)
	pt3dadd(268.707, 355.535, 37.558, 0.2)
	pt3dadd(268.876, 355.749, 37.4916, 0.2)
	pt3dadd(269.095, 356.449, 37.4688, 0.931762)
	pt3dadd(269.017, 356.835, 37.3257, 0.575922)
	pt3dadd(268.989, 357.664, 37.4054, 1.1941)
	pt3dadd(269.349, 358.387, 37.2809, 1.19066)
	pt3dadd(269.231, 358.982, 37.6361, 0.761706)
	pt3dadd(269.246, 359.342, 37.8528, 0.463026)
	pt3dadd(269.297, 359.745, 38.1687, 0.55482)
	pt3dadd(269.301, 360.074, 38.1549, 0.478206)
  }
}
proc shape3d_37() {
  dend[73] {	pt3dadd(269.268, 360.351, 38.1355, 0.3386)
	pt3dadd(269.225, 360.575, 38.143, 0.342468)
	pt3dadd(269.23, 360.82, 38.1438, 0.47211)
	pt3dadd(269.231, 361.021, 38.1966, 0.3605)
	pt3dadd(269.247, 361.314, 38.3728, 0.507216)
	pt3dadd(269.146, 361.626, 38.4534, 0.496532)
	pt3dadd(269.209, 362.026, 38.1511, 0.412674)
	pt3dadd(269.286, 362.213, 37.9098, 0.55415)
	pt3dadd(269.305, 362.603, 38.047, 0.2)
	pt3dadd(269.349, 362.917, 38.1354, 0.518872)
	pt3dadd(269.481, 363.27, 38.2119, 0.665822)
	pt3dadd(269.874, 363.972, 38.3991, 0.908064)
	pt3dadd(269.993, 364.401, 38.4967, 0.793932)
	pt3dadd(270.001, 365.18, 38.703, 1.20434)
	pt3dadd(270.174, 366.045, 38.7605, 1.035)
	pt3dadd(270.305, 366.769, 38.8933, 1.14931)
	pt3dadd(270.589, 367.297, 38.7448, 0.857706)
	pt3dadd(270.643, 367.678, 38.6615, 0.66558)
	pt3dadd(270.808, 368.318, 38.6433, 0.786626)
	pt3dadd(271.096, 368.69, 38.8894, 0.756326)
	pt3dadd(271.199, 368.998, 39.0794, 0.432836)
	pt3dadd(271.264, 369.236, 39.153, 0.266972)
	pt3dadd(271.335, 369.427, 39.1868, 0.26557)
	pt3dadd(271.462, 369.68, 39.2537, 0.2)
	pt3dadd(271.646, 369.905, 39.3435, 0.244612)
	pt3dadd(271.853, 370.099, 39.3661, 0.264492)
	pt3dadd(272.013, 370.41, 39.3134, 0.458134)
	pt3dadd(272.306, 370.703, 39.2555, 0.650344)
	pt3dadd(272.663, 370.959, 39.2764, 0.77686)
	pt3dadd(272.995, 371.384, 39.4873, 0.87215)
	pt3dadd(273.265, 371.771, 39.5594, 0.7484)
	pt3dadd(273.47, 372.184, 39.5072, 0.692922)
	pt3dadd(273.721, 372.509, 39.5243, 0.746178)
	pt3dadd(273.871, 372.949, 39.8972, 0.621412)
	pt3dadd(273.861, 373.519, 39.7851, 0.305622)
	pt3dadd(273.853, 373.824, 39.7048, 0.430456)
	pt3dadd(273.994, 374.071, 39.6288, 0.254386)
	pt3dadd(274.385, 375.097, 39.5319, 0.366828)
	pt3dadd(274.541, 375.294, 39.5334, 0.276396)
	pt3dadd(274.625, 375.548, 39.5445, 0.210718)
	pt3dadd(274.735, 375.878, 39.6587, 0.537636)
	pt3dadd(274.809, 376.732, 39.2, 0.969802)
	pt3dadd(274.925, 377.253, 39.212, 0.64498)
	pt3dadd(275.272, 377.699, 39.185, 0.53951)
	pt3dadd(275.111, 378.189, 39.0762, 0.534484)
	pt3dadd(275.629, 378.995, 39.1308, 1.09104)
	pt3dadd(275.709, 379.496, 39.2751, 0.984942)
	pt3dadd(275.741, 379.922, 39.4868, 0.951266)
	pt3dadd(275.944, 382.536, 39.8778, 0.614336)
	pt3dadd(276.08, 382.896, 39.6555, 0.583484)
	pt3dadd(276.043, 383.639, 39.6233, 1.05511)
	pt3dadd(275.931, 384.473, 39.7855, 0.548452)
	pt3dadd(275.906, 384.794, 39.8761, 0.636364)
	pt3dadd(275.899, 385.451, 39.9119, 0.565856)
	pt3dadd(275.958, 385.926, 40.044, 0.700226)
	pt3dadd(275.858, 386.367, 40.1462, 0.412574)
	pt3dadd(275.817, 386.696, 40.0692, 0.416386)
	pt3dadd(277.219, 392.137, 40.7344, 0.257248)
	pt3dadd(277.057, 392.47, 40.5761, 0.544698)
	pt3dadd(276.885, 392.781, 40.3819, 0.657518)
	pt3dadd(276.591, 393.248, 40.1911, 1.23331)
	pt3dadd(276.685, 394.209, 40.1494, 0.835532)
	pt3dadd(277.431, 394.988, 40.0767, 0.9951)
	pt3dadd(277.681, 395.656, 39.9035, 0.391812)
	pt3dadd(277.784, 395.849, 39.7723, 0.29078)
	pt3dadd(277.824, 396.455, 40.0149, 0.426948)
	pt3dadd(277.89, 396.692, 40.093, 0.516494)
	pt3dadd(277.997, 396.955, 40.0865, 0.779572)
	pt3dadd(276.386, 401.88, 39.9964, 1.05616)
	pt3dadd(276.076, 402.706, 39.9841, 0.533596)
	pt3dadd(276.011, 403.097, 39.9905, 0.711222)
	pt3dadd(275.306, 403.714, 40.3367, 0.2)
	pt3dadd(275.119, 403.889, 40.449, 0.2)
	pt3dadd(274.867, 405.372, 40.341, 0.897034)
	pt3dadd(274.644, 405.995, 40.3955, 1.2292)
	pt3dadd(274.55, 406.694, 40.292, 1.62404)
	pt3dadd(274.382, 409.658, 39.4508, 0.401876)
	pt3dadd(274.541, 409.792, 39.7398, 0.281278)
	pt3dadd(274.802, 409.943, 40.0235, 0.298156)
	pt3dadd(275.015, 410.571, 40.0798, 0.84489)
	pt3dadd(275.457, 411.519, 40.3392, 1.06538)
	pt3dadd(275.577, 411.917, 40.2556, 0.675004)
	pt3dadd(275.705, 412.568, 39.9194, 0.832676)
	pt3dadd(275.66, 412.968, 40.1676, 0.512914)
	pt3dadd(275.795, 413.247, 40.3207, 0.486824)
	pt3dadd(275.943, 413.799, 40.5319, 0.2)
	pt3dadd(276.013, 414.015, 40.5758, 0.2)
	pt3dadd(276.036, 414.275, 40.6326, 0.36372)
	pt3dadd(276.271, 414.743, 40.4334, 0.588566)
	pt3dadd(276.652, 414.957, 40.6242, 0.48122)
	pt3dadd(276.955, 415.196, 40.7728, 0.602604)
	pt3dadd(277.097, 415.893, 41.0088, 1.03851)
	pt3dadd(276.996, 416.468, 41.0039, 0.658918)
	pt3dadd(277.067, 416.781, 41.0379, 0.56135)
	pt3dadd(277.228, 417.245, 41.0636, 0.601402)
	pt3dadd(277.351, 417.784, 41.1099, 0.636784)
	pt3dadd(277.488, 418.103, 41.105, 0.586438)
	pt3dadd(277.544, 418.418, 41.169, 0.511218)
	pt3dadd(277.475, 418.632, 41.2237, 0.386514)
	pt3dadd(277.467, 418.947, 41.2999, 0.501614)
	pt3dadd(277.704, 419.253, 41.3757, 0.452394)
	pt3dadd(277.846, 419.503, 41.4106, 0.336768)
	pt3dadd(277.989, 419.727, 41.4113, 0.239688)
	pt3dadd(278.177, 419.946, 41.4211, 0.343766)
	pt3dadd(278.375, 420.188, 41.3919, 0.222594)
	pt3dadd(278.658, 420.479, 41.3339, 0.28068)
	pt3dadd(279.188, 420.95, 41.1934, 0.754318)
	pt3dadd(279.686, 421.67, 41.1243, 0.21603)
	pt3dadd(279.878, 421.865, 41.1736, 0.2)
	pt3dadd(279.959, 422.109, 41.2232, 0.427326)
	pt3dadd(280.435, 422.551, 41.2925, 0.70641)
	pt3dadd(280.882, 422.848, 41.2871, 0.593742)
	pt3dadd(281.141, 423.081, 41.2528, 0.607702)
	pt3dadd(281.255, 423.701, 41.2988, 0.908858)
	pt3dadd(281.358, 424.104, 41.4074, 0.727184)
	pt3dadd(281.613, 424.416, 41.4685, 0.79204)
	pt3dadd(282.275, 424.983, 41.4196, 0.939454)
	pt3dadd(282.811, 425.376, 41.1928, 0.94886)
	pt3dadd(282.962, 425.77, 41.1494, 0.780806)
	pt3dadd(283.236, 426.176, 40.8231, 0.582748)
	pt3dadd(284.096, 430.119, 40.61, 1.29908)
	pt3dadd(284.347, 430.812, 40.4025, 0.896668)
	pt3dadd(284.866, 431.372, 40.2645, 0.358288)
	pt3dadd(285.007, 431.614, 40.2382, 0.346038)
	pt3dadd(285.008, 431.902, 40.2116, 0.346984)
	pt3dadd(287.444, 436.086, 40.0831, 1.08223)
	pt3dadd(287.674, 436.641, 39.8825, 1.25682)
	pt3dadd(288.299, 437.148, 39.7222, 1.00531)
	pt3dadd(288.803, 437.852, 39.8243, 0.796322)
	pt3dadd(288.883, 438.231, 39.8333, 0.563408)
	pt3dadd(289.003, 438.467, 39.8092, 0.2)
	pt3dadd(288.978, 438.698, 39.8679, 0.206814)
	pt3dadd(289.052, 439.214, 39.8904, 0.743742)
	pt3dadd(289.202, 439.787, 39.7162, 0.827414)
	pt3dadd(289.251, 440.13, 39.5708, 0.663598)
	pt3dadd(289.353, 440.483, 39.2641, 0.622382)
	pt3dadd(289.51, 440.732, 39.0761, 0.587248)
	pt3dadd(289.901, 441.09, 38.6434, 0.356534)
	pt3dadd(290.178, 441.333, 38.4756, 0.2)
	pt3dadd(290.609, 441.863, 38.2826, 0.810144)
	pt3dadd(290.699, 442.431, 38.201, 0.610358)
	pt3dadd(292.559, 444.911, 38.0167, 0.627954)
	pt3dadd(293.013, 445.479, 38.1254, 1.0795)
	pt3dadd(292.982, 447.898, 37.9324, 0.885296)
	pt3dadd(293.509, 448.411, 38.0641, 1.02465)
	pt3dadd(293.878, 449.316, 39.6127, 0.545288)
	pt3dadd(292.181, 453.493, 38.437, 0.372696)
	pt3dadd(292.088, 453.753, 38.2421, 0.469654)
	pt3dadd(292.317, 453.945, 38.258, 0.2)
	pt3dadd(292.764, 454.523, 38.5191, 1.45938)
	pt3dadd(292.872, 455.303, 38.5001, 1.0184)
	pt3dadd(293.289, 456.013, 38.1169, 0.861334)
	pt3dadd(292.997, 456.3, 37.8066, 0.64772)
	pt3dadd(293.943, 458.947, 36.7234, 0.698886)
	pt3dadd(293.917, 459.237, 36.8057, 0.977078)
	pt3dadd(293.986, 459.712, 36.6356, 1.12577)
	pt3dadd(293.82, 460.667, 36.818, 1.13251)
	pt3dadd(295.06, 465.161, 36.0376, 0.893484)
	pt3dadd(295.09, 465.514, 35.7354, 0.938656)
	pt3dadd(294.944, 466.2, 35.4611, 0.805114)
	pt3dadd(295.01, 466.616, 35.3155, 0.972988)
	pt3dadd(295.196, 467.695, 34.646, 0.2)
	pt3dadd(295.219, 467.938, 34.5581, 0.41293)
	pt3dadd(295.209, 468.261, 34.258, 0.53853)
	pt3dadd(297.191, 471.723, 32.3917, 1.36477)
	pt3dadd(297.039, 472.31, 32.6772, 1.50764)
	pt3dadd(299.264, 474.876, 32.8208, 0.779094)
	pt3dadd(300.387, 480.878, 33.2242, 0.981542)
	pt3dadd(300.084, 482.623, 32.8471, 1.34296)
	pt3dadd(300.149, 483.395, 32.754, 1.33044)
	pt3dadd(300.642, 483.874, 32.5176, 1.05065)
	pt3dadd(300.506, 484.514, 32.1335, 0.42913)
	pt3dadd(300.614, 484.841, 32.0367, 0.29712)
	pt3dadd(300.921, 485.345, 31.81, 0.782246)
	pt3dadd(300.995, 485.793, 31.5954, 0.512198)
	pt3dadd(301.01, 486.264, 31.4391, 0.2)
	pt3dadd(301.137, 486.504, 31.4067, 0.2)
	pt3dadd(301.193, 486.706, 31.2806, 0.326648)
	pt3dadd(301.321, 487.247, 31.1087, 0.882162)
	pt3dadd(301.354, 487.971, 31.0151, 1.1856)
	pt3dadd(302.312, 493.407, 30.1868, 0.957976)
	pt3dadd(302.284, 494.061, 29.9422, 0.712704)
	pt3dadd(302.425, 494.798, 29.6178, 1.04461)
	pt3dadd(302.503, 496.197, 29.0307, 0.507446)
	pt3dadd(302.514, 496.306, 28.7273, 0.569976)
	pt3dadd(302.616, 496.447, 28.529, 0.480198)
	pt3dadd(302.794, 496.597, 28.2953, 0.508478)
	pt3dadd(304.385, 500.11, 26.9016, 1.43773)
	pt3dadd(304.769, 500.965, 27.2218, 1.08583)
	pt3dadd(305.223, 501.425, 27.1931, 0.2)
	pt3dadd(305.394, 501.68, 27.1682, 0.365154)
	pt3dadd(305.519, 501.901, 27.1691, 0.542364)
	pt3dadd(306.652, 503.207, 27.0822, 0.820258)
	pt3dadd(307.359, 506.035, 27.5037, 1.00534)
	pt3dadd(307.582, 506.901, 27.0517, 0.2)
	pt3dadd(307.691, 507.051, 27.1258, 0.2)
	pt3dadd(307.867, 507.304, 27.1904, 0.2)
	pt3dadd(307.818, 507.519, 27.3425, 0.2)
	pt3dadd(307.699, 507.9, 27.4731, 0.502782)
	pt3dadd(307.836, 508.473, 27.7499, 0.897608)
  }
}
proc shape3d_38() {
  dend[73] {	pt3dadd(308.626, 512.186, 27.2, 0.2)
	pt3dadd(308.703, 512.341, 27.1782, 0.769384)
	pt3dadd(308.925, 512.658, 26.9491, 0.692266)
  }
  dend_6[40] {pt3dclear()
	pt3dadd(308.925, 512.658, 26.9491, 0.692266)
	pt3dadd(309.187, 512.879, 26.6141, 0.226896)
  }
  dend[74] {pt3dclear()
	pt3dadd(256.355, 308.417, 31.455, 1.85906)
	pt3dadd(254.93, 307.928, 31.13, 0.52876)
	pt3dadd(254.6, 307.818, 31.0414, 0.69837)
	pt3dadd(254.056, 307.654, 30.8288, 0.70838)
	pt3dadd(253.397, 307.828, 30.8057, 0.58643)
	pt3dadd(253.13, 307.898, 30.4866, 0.537152)
	pt3dadd(252.422, 308.026, 30.619, 0.357582)
	pt3dadd(252.145, 308.203, 30.6077, 0.384216)
	pt3dadd(251.823, 308.368, 30.6129, 0.484808)
	pt3dadd(251.495, 308.46, 30.5608, 0.544438)
	pt3dadd(251.148, 308.589, 30.5239, 0.626548)
	pt3dadd(250.871, 308.841, 30.5692, 0.64682)
	pt3dadd(250.515, 309.288, 30.4854, 0.485594)
	pt3dadd(250.311, 309.436, 30.4077, 0.258368)
	pt3dadd(250.028, 309.575, 30.0947, 0.2)
	pt3dadd(249.823, 309.624, 29.8703, 0.351726)
	pt3dadd(249.687, 309.717, 29.6869, 0.41054)
	pt3dadd(249.421, 309.812, 29.7453, 0.265016)
	pt3dadd(249.109, 310.007, 29.8358, 0.399592)
	pt3dadd(248.767, 310.169, 29.8827, 0.724578)
	pt3dadd(248.406, 310.104, 29.9176, 1.08869)
	pt3dadd(247.551, 310.355, 29.8156, 1.10295)
	pt3dadd(247.13, 311.168, 29.4975, 0.954354)
	pt3dadd(246.662, 311.555, 29.5781, 0.789106)
	pt3dadd(246.357, 311.905, 29.645, 0.855062)
	pt3dadd(246.041, 312.25, 29.6103, 0.9653)
	pt3dadd(245.535, 312.514, 29.4211, 0.771342)
	pt3dadd(245.18, 312.705, 29.3895, 0.502622)
	pt3dadd(244.949, 313.038, 29.3031, 0.69467)
	pt3dadd(244.374, 313.296, 29.2892, 0.478438)
	pt3dadd(244.04, 313.308, 29.3307, 0.521204)
	pt3dadd(243.683, 313.495, 29.315, 0.652038)
	pt3dadd(243.248, 313.878, 29.1373, 0.630428)
	pt3dadd(242.904, 314.114, 29.1282, 0.640022)
	pt3dadd(242.508, 314.368, 29.137, 0.834106)
	pt3dadd(242.038, 314.839, 28.9185, 0.526716)
	pt3dadd(241.81, 315.12, 28.8908, 0.381078)
	pt3dadd(241.414, 315.338, 28.9926, 0.513046)
	pt3dadd(241.11, 315.67, 28.9201, 0.556904)
	pt3dadd(240.808, 316.079, 28.6686, 0.460278)
	pt3dadd(240.626, 316.322, 28.4769, 0.622134)
	pt3dadd(240.342, 316.346, 28.3283, 0.540318)
	pt3dadd(240.01, 316.286, 28.3089, 0.580856)
	pt3dadd(239.665, 316.171, 28.2407, 0.829904)
	pt3dadd(238.978, 315.796, 27.9994, 0.941838)
	pt3dadd(238.256, 316.133, 27.9859, 0.883956)
	pt3dadd(237.829, 316.372, 27.8815, 0.9665)
	pt3dadd(237.333, 316.581, 27.7112, 0.886388)
	pt3dadd(236.535, 316.843, 27.2982, 0.492258)
	pt3dadd(236.143, 317.282, 27.0668, 1.04035)
	pt3dadd(235.377, 317.654, 26.5298, 1.12785)
	pt3dadd(234.785, 317.63, 26.4441, 1.07809)
	pt3dadd(233.806, 318.163, 26.4562, 0.686832)
	pt3dadd(233.383, 318.328, 26.4538, 0.631792)
	pt3dadd(232.976, 318.543, 26.3358, 0.386492)
	pt3dadd(232.676, 318.709, 26.2639, 0.2)
	pt3dadd(232.438, 318.92, 26.2002, 0.25245)
	pt3dadd(232.121, 319.083, 26.1258, 0.48786)
	pt3dadd(231.794, 319.183, 26.059, 0.69021)
	pt3dadd(231.427, 319.313, 26.0428, 0.642064)
	pt3dadd(231.018, 319.496, 25.9357, 0.868206)
	pt3dadd(230.129, 319.898, 25.9928, 1.12873)
	pt3dadd(229.546, 320.171, 25.9523, 0.761456)
	pt3dadd(229.175, 320.497, 25.9121, 0.651486)
	pt3dadd(228.696, 320.605, 25.7882, 0.712798)
	pt3dadd(228.306, 320.8, 25.6381, 0.678978)
	pt3dadd(227.979, 320.938, 25.5056, 0.528924)
	pt3dadd(227.787, 321.186, 25.3184, 0.82022)
	pt3dadd(227.044, 321.328, 25.2398, 0.648754)
	pt3dadd(226.629, 321.433, 25.1096, 0.694976)
	pt3dadd(226.137, 321.563, 25.1155, 0.527666)
	pt3dadd(225.785, 321.705, 25.1024, 0.591716)
	pt3dadd(225.364, 321.8, 25.2227, 0.8349)
	pt3dadd(224.682, 321.751, 25.1424, 1.07667)
	pt3dadd(224.12, 321.809, 25.1791, 0.96382)
	pt3dadd(223.69, 322.254, 25.1961, 1.02428)
	pt3dadd(222.922, 322.798, 25.3406, 0.751494)
	pt3dadd(222.501, 322.881, 25.3279, 0.543458)
	pt3dadd(222.114, 323.086, 25.2097, 0.573602)
	pt3dadd(221.969, 323.499, 25.1124, 0.216632)
	pt3dadd(221.631, 323.413, 25.1458, 0.310526)
	pt3dadd(221.379, 323.53, 25.2156, 0.448654)
	pt3dadd(221.121, 323.603, 25.3386, 0.412596)
	pt3dadd(220.872, 323.888, 25.1666, 0.2)
	pt3dadd(220.633, 324.073, 25.1179, 0.28387)
	pt3dadd(220.388, 324.3, 25.1257, 0.382886)
	pt3dadd(220.054, 324.533, 25.0976, 0.493486)
	pt3dadd(219.69, 324.727, 25.0173, 0.726272)
	pt3dadd(219.502, 325.138, 24.9032, 0.641138)
	pt3dadd(219.238, 325.474, 24.7719, 0.861156)
	pt3dadd(218.834, 325.753, 24.6979, 1.03412)
	pt3dadd(218.415, 326.076, 24.5586, 0.77192)
	pt3dadd(218.109, 326.424, 24.3538, 0.819394)
	pt3dadd(217.665, 326.673, 24.2625, 0.610614)
	pt3dadd(217.268, 326.904, 24.1658, 0.98715)
	pt3dadd(216.572, 327.381, 23.826, 1.00058)
	pt3dadd(215.519, 327.604, 23.5844, 1.0798)
	pt3dadd(214.652, 327.97, 23.3904, 0.669882)
	pt3dadd(214.272, 328.151, 23.2414, 1.05972)
	pt3dadd(213.237, 328.111, 22.6383, 1.26993)
	pt3dadd(212.303, 328.12, 22.6342, 0.591842)
	pt3dadd(211.888, 328.196, 22.7574, 0.429484)
	pt3dadd(211.655, 328.406, 23.059, 0.802686)
	pt3dadd(211.021, 328.206, 22.5206, 0.2)
	pt3dadd(210.79, 328.217, 22.3801, 0.2)
	pt3dadd(210.516, 328.228, 22.3132, 0.45429)
	pt3dadd(210.281, 328.294, 22.1335, 0.554932)
	pt3dadd(209.951, 328.606, 22.1089, 0.343604)
	pt3dadd(209.71, 328.916, 22.0921, 0.529418)
	pt3dadd(209.331, 329.053, 22.0751, 0.755882)
	pt3dadd(208.914, 329.203, 22.0649, 1.26194)
	pt3dadd(207.912, 329.898, 21.4588, 1.07078)
	pt3dadd(207.098, 330.034, 21.0131, 1.03904)
	pt3dadd(206.347, 330.2, 20.5553, 0.847438)
	pt3dadd(205.936, 330.397, 20.349, 0.676386)
	pt3dadd(205.384, 330.648, 20.2206, 0.945984)
	pt3dadd(204.513, 331.072, 20.1227, 0.935016)
	pt3dadd(203.952, 331.613, 20.0349, 0.494976)
	pt3dadd(203.766, 331.884, 19.917, 0.789626)
	pt3dadd(203.156, 331.934, 19.9183, 0.46956)
	pt3dadd(202.844, 331.985, 19.9633, 0.358962)
	pt3dadd(202.563, 332.141, 19.7249, 0.2)
	pt3dadd(202.216, 332.249, 19.6346, 0.44187)
	pt3dadd(201.987, 332.31, 19.5206, 0.686376)
	pt3dadd(201.222, 332.565, 19.4586, 1.01799)
	pt3dadd(200.749, 332.737, 18.9862, 0.710416)
	pt3dadd(200.526, 332.844, 18.724, 0.551128)
	pt3dadd(200.183, 332.959, 18.5993, 0.506318)
	pt3dadd(199.811, 333.004, 18.5276, 0.357666)
	pt3dadd(199.465, 333.083, 18.4456, 0.55249)
	pt3dadd(199.115, 333.227, 18.3765, 0.737384)
	pt3dadd(198.692, 333.3, 18.3413, 0.921208)
	pt3dadd(197.943, 333.264, 18.1614, 0.563552)
	pt3dadd(197.618, 333.27, 18.0763, 0.622886)
	pt3dadd(197.311, 333.307, 17.9858, 0.442488)
	pt3dadd(196.956, 333.326, 17.9238, 0.51065)
	pt3dadd(196.653, 333.364, 17.8252, 0.658754)
	pt3dadd(196.34, 333.482, 17.759, 0.55426)
	pt3dadd(196.014, 333.492, 17.7939, 0.505522)
	pt3dadd(195.598, 333.595, 17.7716, 0.609948)
	pt3dadd(195.292, 333.758, 17.647, 0.705516)
	pt3dadd(195.012, 333.778, 17.416, 0.673614)
	pt3dadd(194.545, 333.954, 17.577, 0.441456)
	pt3dadd(193.979, 334.003, 17.5631, 0.470602)
	pt3dadd(193.718, 333.955, 17.6069, 0.444598)
	pt3dadd(193.407, 333.997, 17.5457, 0.29543)
	pt3dadd(193.138, 334.191, 17.4873, 0.308278)
	pt3dadd(192.835, 334.326, 17.3785, 0.617488)
	pt3dadd(192.531, 334.442, 17.2937, 0.663052)
	pt3dadd(192.183, 334.4, 17.2003, 0.69548)
	pt3dadd(191.812, 334.334, 17.1221, 0.670006)
	pt3dadd(191.423, 334.397, 17.0231, 0.715522)
	pt3dadd(191.089, 334.526, 16.9112, 0.650744)
	pt3dadd(190.72, 334.59, 16.7665, 0.889834)
	pt3dadd(190.325, 334.772, 16.5887, 0.663218)
	pt3dadd(189.998, 334.96, 16.5031, 0.695434)
	pt3dadd(189.592, 334.917, 16.355, 0.977354)
	pt3dadd(188.882, 335.373, 15.8021, 1.19196)
	pt3dadd(188.166, 335.721, 15.7095, 0.966202)
	pt3dadd(187.494, 336.129, 15.4063, 0.533314)
	pt3dadd(187.174, 336.291, 15.3046, 0.469606)
	pt3dadd(186.855, 336.306, 15.1442, 0.528652)
	pt3dadd(186.562, 336.345, 14.9604, 0.580864)
	pt3dadd(186.295, 336.51, 14.7593, 0.587898)
	pt3dadd(185.902, 336.816, 14.6686, 0.41647)
	pt3dadd(185.651, 337.025, 14.637, 0.296616)
	pt3dadd(185.333, 337.212, 14.5616, 0.480074)
	pt3dadd(185.033, 337.376, 14.4156, 0.698818)
	pt3dadd(184.752, 337.531, 14.2472, 0.814478)
	pt3dadd(184.082, 337.974, 13.911, 1.53365)
	pt3dadd(182.962, 338.501, 13.5273, 1.17076)
	pt3dadd(182.048, 338.794, 12.9958, 0.927416)
	pt3dadd(181.406, 339.407, 12.6732, 0.2)
	pt3dadd(181.091, 339.526, 12.5831, 0.528194)
	pt3dadd(180.803, 339.53, 12.358, 0.75885)
	pt3dadd(180.287, 339.886, 12.4981, 0.398626)
	pt3dadd(180.01, 339.974, 12.4693, 0.392228)
	pt3dadd(179.673, 340.081, 12.3868, 0.558654)
	pt3dadd(179.342, 340.217, 12.3013, 0.683618)
	pt3dadd(179.11, 340.71, 12.3989, 0.57296)
	pt3dadd(179.073, 341.153, 12.575, 0.542216)
	pt3dadd(178.444, 341.386, 12.2174, 0.277932)
	pt3dadd(178.26, 341.42, 12.2293, 0.2)
	pt3dadd(178.059, 341.453, 12.2543, 0.227314)
	pt3dadd(177.627, 341.717, 12.0999, 0.648044)
	pt3dadd(177.479, 341.924, 11.8828, 0.625782)
	pt3dadd(177.143, 342.315, 11.5605, 0.669044)
	pt3dadd(176.862, 342.512, 11.3612, 0.78013)
	pt3dadd(176.536, 342.69, 11.1762, 0.683514)
	pt3dadd(176.304, 342.95, 10.9549, 0.383762)
	pt3dadd(176.056, 343.246, 10.7185, 0.41524)
	pt3dadd(175.757, 343.409, 10.5789, 0.379018)
	pt3dadd(175.432, 343.581, 10.4311, 0.521602)
	pt3dadd(175.102, 343.793, 10.2062, 0.72341)
	pt3dadd(174.057, 344.08, 9.85453, 1.32277)
  }
}
proc shape3d_39() {
  dend[74] {	pt3dadd(173.043, 344.62, 9.18034, 1.12756)
	pt3dadd(172.608, 344.688, 8.98502, 0.493452)
	pt3dadd(172.229, 344.815, 8.86468, 0.493302)
	pt3dadd(171.993, 345.002, 8.63972, 0.64537)
	pt3dadd(171.697, 345.101, 8.58147, 0.328558)
	pt3dadd(171.413, 345.188, 8.51538, 0.2)
	pt3dadd(171.203, 345.288, 8.41885, 0.2)
	pt3dadd(171.006, 345.389, 8.40914, 0.207006)
	pt3dadd(170.787, 345.541, 8.41104, 0.2)
	pt3dadd(170.503, 345.76, 8.41011, 0.288072)
	pt3dadd(170.21, 346.083, 8.49912, 0.564218)
	pt3dadd(169.927, 346.189, 8.3881, 0.451498)
	pt3dadd(169.592, 346.366, 8.24984, 0.581564)
	pt3dadd(169.301, 346.528, 8.1589, 0.48475)
	pt3dadd(169.025, 346.701, 8.14814, 0.32102)
	pt3dadd(168.759, 346.803, 8.15586, 0.21094)
	pt3dadd(168.507, 346.876, 8.15928, 0.344012)
	pt3dadd(167.826, 347.132, 8.05938, 0.462616)
	pt3dadd(167.58, 347.297, 7.78724, 0.475078)
	pt3dadd(167.22, 347.603, 7.56219, 0.760742)
	pt3dadd(166.821, 347.771, 7.22739, 0.817614)
	pt3dadd(166.512, 348.109, 7.26242, 0.704032)
	pt3dadd(166.218, 348.422, 7.17012, 0.772854)
	pt3dadd(165.385, 348.852, 6.75223, 1.48307)
	pt3dadd(164.725, 349.058, 6.4657, 0.981346)
	pt3dadd(164.388, 349.252, 6.35644, 0.513344)
	pt3dadd(163.963, 349.419, 6.19943, 0.430642)
	pt3dadd(163.512, 349.527, 5.82549, 0.570494)
	pt3dadd(163.171, 349.698, 5.28299, 0.737478)
	pt3dadd(162.853, 350.08, 5.01424, 0.56989)
	pt3dadd(162.199, 350.425, 4.62206, 0.964398)
	pt3dadd(161.767, 350.686, 3.93729, 1.0517)
	pt3dadd(161, 351.201, 3.757, 0.739846)
	pt3dadd(160.675, 351.352, 3.71021, 0.499666)
	pt3dadd(160.314, 351.502, 3.68993, 0.563386)
  }
  dend_6[41] {pt3dclear()
	pt3dadd(160.314, 351.502, 3.68993, 0.563386)
	pt3dadd(159.923, 351.639, 3.54168, 0.642994)
  }
  dend[75] {pt3dclear()
	pt3dadd(270.842, 299.801, 32.8224, 1.18921)
	pt3dadd(270.876, 299.74, 31.7092, 0.948638)
	pt3dadd(270.708, 299.88, 31.0853, 0.569214)
	pt3dadd(270.555, 299.84, 30.7912, 0.750448)
	pt3dadd(270.247, 299.781, 30.2073, 0.954384)
	pt3dadd(270.258, 299.635, 29.508, 0.787926)
	pt3dadd(270.29, 299.73, 28.8745, 0.6968)
	pt3dadd(270.148, 299.678, 28.3073, 0.747434)
	pt3dadd(270.044, 299.633, 27.6312, 0.97538)
	pt3dadd(270.069, 299.781, 26.7897, 0.83675)
	pt3dadd(269.82, 300.002, 26.4284, 0.732072)
	pt3dadd(269.507, 300.043, 26.0035, 0.715284)
	pt3dadd(269.341, 299.906, 25.6563, 0.67462)
	pt3dadd(269.211, 299.766, 25.3226, 0.591184)
	pt3dadd(269.125, 299.69, 25.0199, 0.656434)
	pt3dadd(268.938, 299.695, 24.7273, 0.702306)
	pt3dadd(268.783, 299.901, 24.3844, 0.86684)
	pt3dadd(268.43, 299.758, 23.4802, 0.737688)
	pt3dadd(268.206, 299.831, 23.1216, 0.830248)
	pt3dadd(268.369, 300.006, 22.3299, 1.21103)
	pt3dadd(268.18, 300.592, 20.786, 0.870574)
	pt3dadd(268.031, 300.837, 20.1025, 0.646622)
	pt3dadd(268.028, 300.888, 19.7508, 0.60309)
	pt3dadd(268.109, 300.899, 19.3933, 0.643056)
	pt3dadd(268.099, 300.826, 18.9803, 0.763764)
	pt3dadd(267.916, 300.78, 18.5368, 0.945142)
	pt3dadd(267.63, 300.552, 17.7747, 1.25073)
	pt3dadd(267.57, 300.621, 16.847, 1.1746)
	pt3dadd(267.633, 300.258, 15.9814, 0.605316)
	pt3dadd(267.694, 300.143, 15.6663, 0.610058)
	pt3dadd(267.794, 299.996, 15.3178, 0.807936)
	pt3dadd(267.694, 299.686, 14.6671, 1.00353)
	pt3dadd(267.643, 299.256, 14.3673, 0.702336)
	pt3dadd(267.669, 298.804, 14.1255, 0.893426)
	pt3dadd(268.163, 298.577, 13.8219, 0.793586)
	pt3dadd(268.651, 298.709, 13.3288, 1.35105)
	pt3dadd(268.851, 299.201, 12.4581, 1.33171)
	pt3dadd(268.967, 299.492, 11.138, 0.909564)
	pt3dadd(268.924, 299.696, 10.3457, 1.13037)
	pt3dadd(268.595, 299.508, 9.46344, 1.27652)
	pt3dadd(268.567, 299.415, 8.64423, 1.16467)
	pt3dadd(268.701, 299.412, 8.06816, 1.07351)
	pt3dadd(269.026, 299.217, 7.30322, 0.63907)
	pt3dadd(269.287, 299.099, 7.02502, 0.716346)
	pt3dadd(269.591, 299.082, 6.80712, 0.802274)
	pt3dadd(269.933, 298.869, 6.62728, 0.969192)
	pt3dadd(270.133, 298.2, 6.2045, 1.31212)
	pt3dadd(270.791, 297.819, 5.67304, 1.12632)
	pt3dadd(271.376, 298.05, 5.20332, 0.534166)
	pt3dadd(271.526, 298.275, 4.94137, 0.40788)
	pt3dadd(271.455, 298.522, 4.67882, 0.248322)
  }
  dend_6[42] {pt3dclear()
	pt3dadd(271.455, 298.522, 4.67882, 0.248322)
	pt3dadd(271.442, 298.682, 4.49196, 0.26413)
  }
  dend[76] {pt3dclear()
	pt3dadd(280.134, 290.016, 43.3705, 3.33234)
	pt3dadd(281.8, 291.158, 43.3918, 2.62428)
	pt3dadd(283.221, 292.284, 43.3055, 2.2959)
	pt3dadd(284.208, 293.121, 43.3184, 2.56541)
	pt3dadd(285.223, 294.185, 43.2525, 2.62786)
  }
  dend_5[32] {pt3dclear()
	pt3dadd(285.223, 294.185, 43.2525, 2.62786)
	pt3dadd(286.877, 295.985, 42.961, 2.84532)
  }
  dend[77] {pt3dclear()
	pt3dadd(286.877, 295.985, 42.961, 2.84532)
	pt3dadd(288.426, 295.833, 42.0986, 0.795078)
	pt3dadd(288.973, 295.58, 41.7221, 0.507114)
	pt3dadd(289.235, 295.475, 41.5104, 0.594514)
	pt3dadd(289.487, 295.363, 41.3216, 0.690954)
	pt3dadd(290.022, 295.28, 41.0285, 0.828582)
	pt3dadd(290.604, 295.17, 40.6841, 0.929464)
	pt3dadd(291.202, 295.078, 40.3285, 0.919708)
	pt3dadd(291.689, 294.652, 39.9064, 0.605572)
	pt3dadd(291.962, 294.47, 39.7425, 0.550628)
	pt3dadd(292.285, 294.366, 39.5402, 0.658314)
	pt3dadd(292.87, 294.328, 39.108, 0.650778)
	pt3dadd(293.362, 294.44, 38.6625, 0.701928)
	pt3dadd(293.618, 294.565, 38.4225, 0.71054)
	pt3dadd(294.117, 294.518, 37.935, 0.957764)
	pt3dadd(294.598, 294.326, 37.3872, 1.00379)
	pt3dadd(295.148, 294.233, 36.8913, 0.76529)
	pt3dadd(295.636, 293.925, 36.4983, 0.830916)
	pt3dadd(296.089, 293.596, 36.0963, 0.957778)
	pt3dadd(296.709, 293.241, 35.6783, 1.312)
	pt3dadd(297.382, 292.992, 35.2356, 1.37111)
  }
  dend_5[33] {pt3dclear()
	pt3dadd(297.382, 292.992, 35.2356, 1.37111)
	pt3dadd(297.742, 292.902, 34.7995, 1.06888)
  }
  dend[78] {pt3dclear()
	pt3dadd(297.742, 292.902, 34.7995, 1.06888)
	pt3dadd(298.763, 292.753, 35.048, 0.936254)
	pt3dadd(299.544, 292.542, 35.2563, 0.811744)
	pt3dadd(299.935, 292.523, 35.0849, 0.520598)
	pt3dadd(300.291, 292.468, 34.9927, 0.511792)
	pt3dadd(300.617, 292.385, 34.8907, 0.574634)
	pt3dadd(300.888, 292.305, 34.8034, 0.558106)
	pt3dadd(301.201, 292.208, 34.6977, 0.555578)
	pt3dadd(301.525, 292.107, 34.5309, 0.501548)
	pt3dadd(301.749, 292.034, 34.3034, 0.411728)
	pt3dadd(301.971, 291.953, 34.0258, 0.554372)
	pt3dadd(302.379, 291.769, 34.0346, 0.265722)
	pt3dadd(302.683, 291.634, 34.0068, 0.432698)
	pt3dadd(303.044, 291.568, 33.957, 0.463104)
	pt3dadd(303.416, 291.559, 33.8622, 0.63877)
	pt3dadd(303.778, 291.47, 33.7596, 0.739212)
	pt3dadd(304.175, 291.361, 33.4858, 0.62314)
	pt3dadd(304.489, 291.222, 33.4023, 0.35742)
	pt3dadd(304.837, 291.151, 33.3996, 0.300506)
	pt3dadd(305.101, 291.152, 33.4429, 0.334432)
	pt3dadd(305.374, 291.136, 33.4132, 0.337114)
	pt3dadd(305.692, 291.115, 33.3722, 0.463746)
	pt3dadd(306.032, 291.031, 33.2884, 0.692078)
	pt3dadd(306.495, 290.763, 32.9256, 0.767332)
	pt3dadd(307.385, 290.507, 32.7174, 0.595044)
	pt3dadd(307.721, 290.387, 32.6082, 0.396486)
	pt3dadd(308.068, 290.274, 32.5227, 0.428516)
	pt3dadd(308.376, 290.187, 32.3888, 0.420226)
	pt3dadd(308.656, 290.049, 32.2959, 0.668184)
	pt3dadd(309.121, 290.104, 32.2377, 0.835762)
	pt3dadd(309.719, 289.761, 32.1637, 0.2)
	pt3dadd(310.105, 289.705, 32.1189, 1.36301)
	pt3dadd(310.913, 289.258, 31.616, 0.889466)
	pt3dadd(311.549, 289.022, 31.4376, 0.77561)
	pt3dadd(312.257, 288.965, 31.2959, 0.727244)
	pt3dadd(312.88, 288.95, 31.0994, 0.921702)
	pt3dadd(313.658, 288.427, 31.1897, 0.362338)
	pt3dadd(313.98, 288.214, 31.1426, 0.239382)
	pt3dadd(314.217, 288.107, 31.0965, 0.336032)
	pt3dadd(314.483, 287.917, 31.0679, 0.538774)
	pt3dadd(314.78, 287.84, 31.0426, 0.899346)
	pt3dadd(315.438, 287.541, 31.1457, 1.09622)
	pt3dadd(316.266, 287.162, 31.07, 1.18496)
	pt3dadd(316.707, 286.852, 30.7343, 0.90673)
	pt3dadd(317.189, 286.421, 30.3997, 0.546222)
	pt3dadd(317.453, 286.224, 30.2256, 0.486726)
	pt3dadd(317.845, 286.127, 30.2498, 0.409068)
	pt3dadd(318.209, 286.017, 30.2511, 0.360412)
	pt3dadd(318.497, 285.956, 30.2335, 0.442202)
	pt3dadd(318.867, 285.867, 30.3856, 0.526832)
	pt3dadd(319.23, 285.795, 30.4813, 0.596102)
	pt3dadd(319.707, 285.747, 30.0366, 0.491558)
	pt3dadd(320.223, 285.524, 29.9047, 0.370724)
	pt3dadd(320.494, 285.324, 29.7466, 0.477472)
	pt3dadd(320.801, 285.213, 29.6123, 0.620118)
	pt3dadd(321.218, 285.159, 29.5474, 0.85913)
	pt3dadd(321.736, 284.821, 29.5305, 0.970058)
	pt3dadd(322.359, 284.116, 29.4894, 0.723342)
	pt3dadd(322.67, 283.788, 29.498, 0.618222)
	pt3dadd(322.964, 283.496, 29.4632, 0.6698)
	pt3dadd(323.34, 283.335, 29.4095, 0.466656)
	pt3dadd(323.586, 283.144, 29.3946, 0.3603)
	pt3dadd(323.917, 282.975, 29.3352, 0.246796)
	pt3dadd(324.18, 282.809, 29.2571, 0.34931)
	pt3dadd(324.489, 282.776, 29.1348, 0.326166)
	pt3dadd(324.789, 282.762, 29.0476, 0.32289)
	pt3dadd(325.105, 282.649, 28.9745, 0.683316)
	pt3dadd(325.406, 282.469, 28.9106, 0.797318)
	pt3dadd(326.166, 282.085, 28.8512, 0.952418)
	pt3dadd(326.892, 281.572, 28.8597, 1.31604)
	pt3dadd(327.7, 281.091, 28.4203, 0.78975)
	pt3dadd(328.109, 280.827, 28.1754, 0.822618)
	pt3dadd(328.629, 280.491, 28.0389, 0.975158)
	pt3dadd(329.257, 280.348, 28.0718, 0.707812)
	pt3dadd(329.632, 280.218, 28.0588, 0.43766)
	pt3dadd(330.024, 280.053, 27.9662, 0.383294)
	pt3dadd(330.31, 279.935, 27.9103, 0.4243)
	pt3dadd(330.684, 279.804, 27.9578, 0.430694)
	pt3dadd(330.997, 279.653, 28.0208, 0.763966)
	pt3dadd(331.43, 279.63, 27.8856, 0.759984)
  }
}
proc shape3d_40() {
  dend[78] {	pt3dadd(332.126, 279.173, 27.7529, 0.450204)
	pt3dadd(332.413, 278.977, 27.7351, 0.411726)
	pt3dadd(332.703, 278.786, 27.6771, 0.75993)
	pt3dadd(333.098, 278.661, 27.5973, 0.957012)
	pt3dadd(334.113, 278.633, 27.5905, 1.15448)
	pt3dadd(334.96, 278.192, 27.687, 1.16844)
	pt3dadd(335.946, 277.49, 27.2122, 0.997544)
	pt3dadd(336.42, 276.986, 27.4766, 0.714362)
	pt3dadd(336.802, 276.735, 27.5896, 0.781086)
	pt3dadd(337.182, 276.562, 27.6617, 1.0073)
	pt3dadd(337.986, 276.13, 27.5417, 0.512084)
	pt3dadd(338.356, 275.991, 27.5227, 0.453352)
	pt3dadd(338.701, 275.857, 27.4451, 0.754972)
	pt3dadd(339.337, 275.727, 27.3025, 0.627126)
	pt3dadd(339.691, 275.735, 27.1979, 0.51291)
	pt3dadd(339.986, 275.791, 27.1392, 0.47444)
	pt3dadd(340.231, 275.783, 27.0635, 0.365142)
	pt3dadd(340.56, 275.688, 26.9682, 0.39632)
	pt3dadd(340.769, 275.614, 26.9436, 0.292948)
	pt3dadd(340.984, 275.569, 26.9272, 0.364306)
	pt3dadd(341.3, 275.55, 26.9437, 0.506982)
	pt3dadd(341.62, 275.499, 26.9263, 0.661452)
	pt3dadd(341.922, 275.36, 26.8336, 0.460918)
	pt3dadd(342.164, 275.095, 26.8343, 0.259382)
	pt3dadd(342.363, 274.833, 26.7969, 0.220286)
	pt3dadd(342.579, 274.565, 26.7952, 0.35148)
	pt3dadd(342.699, 274.264, 26.7935, 0.497106)
	pt3dadd(342.863, 273.928, 26.7365, 0.635542)
	pt3dadd(343.015, 273.383, 26.7404, 1.26378)
	pt3dadd(343.941, 272.726, 26.4482, 0.85134)
	pt3dadd(344.508, 272.363, 26.562, 0.561954)
	pt3dadd(344.987, 272.097, 26.6825, 0.837618)
	pt3dadd(345.697, 271.617, 26.669, 0.856494)
	pt3dadd(346.007, 271.297, 26.6022, 1.2732)
	pt3dadd(346.933, 270.867, 26.2923, 1.33437)
	pt3dadd(347.488, 270.167, 25.9554, 0.90386)
	pt3dadd(348.148, 269.771, 25.6665, 0.832802)
	pt3dadd(348.504, 269.6, 25.5317, 0.752074)
	pt3dadd(348.756, 269.334, 25.4441, 0.74524)
	pt3dadd(349.072, 269.121, 25.4198, 0.562262)
	pt3dadd(349.412, 268.919, 25.4128, 0.516346)
	pt3dadd(349.731, 268.583, 25.4127, 0.836242)
	pt3dadd(350.043, 268.313, 25.2728, 0.990558)
	pt3dadd(350.704, 268.095, 25.3404, 1.18844)
	pt3dadd(351.597, 267.42, 25.2272, 0.511242)
	pt3dadd(351.917, 267.226, 25.2104, 0.27879)
	pt3dadd(352.217, 266.971, 25.1586, 0.379754)
	pt3dadd(352.501, 266.768, 25.1401, 0.680704)
	pt3dadd(352.775, 266.466, 25.4025, 0.78016)
	pt3dadd(353.078, 266.261, 25.6569, 0.693196)
	pt3dadd(353.684, 265.762, 25.4513, 0.584584)
	pt3dadd(353.996, 265.505, 25.4059, 0.545608)
	pt3dadd(354.272, 265.316, 25.3689, 0.40735)
	pt3dadd(354.701, 265.06, 25.3941, 0.2)
	pt3dadd(354.927, 264.887, 25.3765, 0.2)
	pt3dadd(355.081, 264.742, 25.3392, 0.202138)
	pt3dadd(355.244, 264.598, 25.4086, 0.274804)
	pt3dadd(355.51, 264.386, 25.359, 0.411474)
	pt3dadd(355.807, 264.237, 25.1639, 0.607332)
	pt3dadd(356.041, 263.831, 25.1146, 0.523528)
	pt3dadd(356.299, 263.501, 25.0788, 1.00162)
	pt3dadd(357.193, 263.567, 25.1238, 0.867768)
	pt3dadd(357.682, 263.416, 25.2888, 0.991852)
	pt3dadd(358.07, 263.093, 25.3252, 1.0384)
	pt3dadd(358.644, 262.286, 25.3916, 0.91272)
	pt3dadd(359.155, 262.033, 25.8349, 1.11616)
	pt3dadd(359.609, 261.703, 26.1465, 0.74145)
	pt3dadd(359.94, 261.478, 26.2367, 0.396532)
	pt3dadd(360.181, 261.366, 26.2603, 0.26246)
	pt3dadd(360.38, 261.181, 26.2564, 0.331)
	pt3dadd(360.677, 260.933, 26.2814, 0.645362)
	pt3dadd(361.295, 261.061, 26.255, 0.478922)
	pt3dadd(361.728, 261.002, 26.1421, 0.68737)
	pt3dadd(362.142, 261.009, 25.941, 0.870348)
	pt3dadd(362.616, 260.831, 25.6975, 1.05973)
	pt3dadd(363.376, 260.434, 25.5565, 1.03843)
	pt3dadd(364.149, 260.125, 25.7987, 0.866802)
	pt3dadd(364.893, 259.759, 26.0541, 0.605628)
	pt3dadd(365.17, 259.622, 26.0822, 0.46734)
	pt3dadd(365.544, 259.594, 26.3247, 0.226626)
	pt3dadd(365.78, 259.563, 26.5247, 0.340664)
	pt3dadd(365.926, 259.502, 26.7258, 0.4917)
	pt3dadd(366.176, 259.419, 26.9737, 0.389166)
	pt3dadd(366.4, 259.312, 27.1519, 0.539178)
	pt3dadd(366.853, 259.24, 27.0413, 0.49985)
	pt3dadd(367.427, 259.131, 26.8912, 0.656052)
	pt3dadd(367.75, 258.829, 26.751, 0.433336)
	pt3dadd(368.041, 258.618, 26.6353, 0.427148)
	pt3dadd(368.427, 258.489, 26.5955, 0.595954)
	pt3dadd(368.832, 258.303, 26.4042, 0.93478)
	pt3dadd(369.435, 257.606, 26.39, 0.2)
	pt3dadd(369.848, 257.378, 26.4328, 1.06236)
	pt3dadd(370.732, 256.857, 26.2608, 0.78682)
	pt3dadd(371.304, 256.492, 26.5026, 0.407144)
	pt3dadd(371.723, 256.411, 26.7315, 0.2)
	pt3dadd(371.908, 256.339, 26.7121, 0.304758)
	pt3dadd(372.094, 256.255, 26.6958, 0.451)
	pt3dadd(372.332, 256.176, 26.7733, 0.339006)
	pt3dadd(372.545, 256.078, 26.9071, 0.47233)
	pt3dadd(372.928, 255.945, 26.6729, 0.32775)
	pt3dadd(373.177, 255.818, 26.5746, 0.267)
	pt3dadd(373.535, 255.74, 26.6334, 0.54265)
	pt3dadd(373.857, 255.665, 26.7529, 0.700052)
	pt3dadd(374.224, 255.283, 26.5454, 0.608916)
	pt3dadd(374.508, 255.041, 26.2696, 0.612166)
	pt3dadd(374.882, 254.619, 26.3328, 0.378016)
	pt3dadd(375.083, 254.397, 26.3545, 0.2)
	pt3dadd(375.402, 254.119, 26.3678, 0.590272)
	pt3dadd(375.736, 253.895, 26.4431, 0.925536)
	pt3dadd(376.462, 253.643, 26.4679, 1.07669)
	pt3dadd(377.401, 252.991, 26.1648, 0.822084)
	pt3dadd(377.829, 252.613, 26.1484, 0.481332)
	pt3dadd(378.23, 252.381, 26.0878, 0.377102)
	pt3dadd(378.589, 252.236, 26.0542, 0.257774)
	pt3dadd(378.79, 252.195, 26.1236, 0.2)
	pt3dadd(379.077, 252.153, 26.2182, 0.358008)
	pt3dadd(379.314, 252.065, 26.3308, 0.451776)
	pt3dadd(379.651, 252.175, 26.4232, 0.4048)
	pt3dadd(379.943, 252.235, 26.49, 0.530728)
	pt3dadd(380.332, 252.34, 26.4332, 0.843066)
	pt3dadd(381.006, 252.294, 26.3364, 0.92851)
	pt3dadd(381.555, 252.633, 26.3316, 1.24632)
	pt3dadd(382.297, 252.798, 26.3036, 1.08482)
	pt3dadd(383.153, 252.837, 26.2274, 0.676576)
	pt3dadd(383.525, 252.793, 26.1385, 0.342834)
	pt3dadd(383.847, 252.845, 25.9292, 0.48389)
	pt3dadd(384.227, 252.904, 25.923, 0.489262)
	pt3dadd(384.612, 253.003, 25.7751, 0.528982)
	pt3dadd(385.041, 253.206, 25.6039, 0.785202)
	pt3dadd(385.78, 253.016, 25.9304, 0.460986)
	pt3dadd(386.363, 252.769, 25.8369, 0.2)
	pt3dadd(386.614, 252.67, 25.7959, 0.2)
	pt3dadd(386.922, 252.584, 25.7852, 0.2)
	pt3dadd(387.196, 252.322, 25.9708, 0.414326)
	pt3dadd(387.394, 252.127, 25.8873, 0.257904)
	pt3dadd(387.619, 251.965, 25.8237, 0.313324)
	pt3dadd(387.813, 251.861, 25.8319, 0.421922)
	pt3dadd(388.046, 251.646, 25.7843, 0.2)
	pt3dadd(388.307, 251.398, 25.7738, 0.363768)
	pt3dadd(388.563, 251.105, 25.7571, 0.614704)
	pt3dadd(388.71, 250.746, 25.7344, 0.72096)
	pt3dadd(389.106, 250.028, 25.5784, 0.965424)
	pt3dadd(389.36, 249.597, 25.4573, 0.751798)
	pt3dadd(389.714, 249.094, 25.3557, 0.251128)
	pt3dadd(389.908, 248.813, 25.2121, 0.556658)
	pt3dadd(390.266, 248.65, 25.1549, 0.66856)
	pt3dadd(391.769, 247.002, 24.8349, 1.09515)
	pt3dadd(392.285, 246.675, 24.5928, 1.08761)
	pt3dadd(393.035, 246.149, 24.5425, 0.2)
	pt3dadd(393.515, 245.97, 24.4178, 0.650808)
	pt3dadd(393.71, 245.733, 24.2057, 0.569084)
	pt3dadd(394.066, 245.439, 24.276, 0.320944)
	pt3dadd(394.244, 245.272, 24.2918, 0.217334)
	pt3dadd(394.461, 245.118, 24.2393, 0.2)
	pt3dadd(394.713, 244.986, 24.1913, 0.219466)
	pt3dadd(394.94, 244.804, 24.1376, 0.414896)
	pt3dadd(395.287, 244.617, 24.1545, 0.570054)
	pt3dadd(395.735, 244.011, 23.9887, 1.09878)
	pt3dadd(397.717, 242.613, 23.7472, 0.587346)
	pt3dadd(397.781, 242.313, 23.7427, 0.36087)
	pt3dadd(397.944, 242.051, 23.7532, 0.372122)
	pt3dadd(398.171, 241.836, 23.7087, 0.403572)
	pt3dadd(398.31, 241.589, 23.7383, 0.42843)
	pt3dadd(398.631, 241.079, 23.8973, 0.633958)
	pt3dadd(398.972, 240.962, 23.75, 0.710792)
	pt3dadd(399.261, 240.842, 23.4954, 0.754524)
	pt3dadd(399.866, 240.057, 23.4119, 0.95016)
	pt3dadd(400.341, 239.407, 23.2784, 0.948494)
	pt3dadd(400.704, 238.755, 23.1839, 0.887022)
	pt3dadd(401.789, 238.138, 23.0879, 0.390684)
	pt3dadd(402.261, 237.97, 23.3756, 0.456788)
	pt3dadd(402.614, 237.52, 23.3892, 0.204666)
	pt3dadd(402.818, 237.26, 23.3379, 0.388922)
	pt3dadd(403.089, 237.032, 23.3909, 0.339358)
	pt3dadd(403.432, 236.928, 23.4144, 0.539388)
	pt3dadd(403.725, 236.655, 23.2809, 0.338154)
	pt3dadd(404.014, 236.467, 23.2949, 0.383212)
	pt3dadd(404.304, 236.29, 23.2988, 0.442134)
	pt3dadd(404.585, 236.099, 23.3171, 0.611328)
	pt3dadd(404.914, 235.898, 23.3434, 0.747412)
	pt3dadd(405.135, 235.542, 23.3059, 0.924618)
	pt3dadd(405.997, 235.011, 23.5598, 0.692668)
	pt3dadd(406.2, 234.674, 23.5978, 0.745874)
	pt3dadd(407.974, 234.207, 23.9301, 0.2)
	pt3dadd(408.24, 234.199, 23.9825, 0.237356)
	pt3dadd(408.722, 234.072, 24.0903, 0.635358)
	pt3dadd(409.306, 233.623, 24.1183, 1.15788)
	pt3dadd(409.872, 233.17, 24.3683, 0.241476)
	pt3dadd(410.284, 233.233, 24.4037, 0.634646)
	pt3dadd(410.59, 233.03, 24.5304, 0.331264)
	pt3dadd(410.787, 232.848, 24.7154, 0.386926)
	pt3dadd(411.745, 232.696, 24.5992, 0.2)
	pt3dadd(411.889, 232.592, 24.5984, 0.2)
	pt3dadd(412.094, 232.574, 24.5947, 0.2)
	pt3dadd(412.308, 232.515, 24.5826, 0.2)
	pt3dadd(413.209, 231.882, 24.5383, 1.01286)
	pt3dadd(413.998, 231.431, 24.6112, 1.36605)
	pt3dadd(414.149, 231.089, 24.6, 0.2)
	pt3dadd(416.757, 229.429, 25.3791, 0.274044)
	pt3dadd(416.951, 229.387, 25.3735, 0.2)
  }
}
proc shape3d_41() {
  dend[78] {	pt3dadd(417.14, 229.282, 25.3862, 0.24241)
	pt3dadd(417.628, 229.1, 25.3682, 0.602634)
	pt3dadd(418.111, 228.946, 25.4212, 1.06836)
	pt3dadd(418.707, 228.527, 25.5701, 0.81202)
	pt3dadd(419.095, 228.306, 25.5672, 0.804536)
	pt3dadd(419.583, 227.859, 25.0227, 0.644496)
	pt3dadd(421.604, 227.012, 25.1846, 0.636184)
	pt3dadd(421.942, 226.916, 25.6205, 0.5683)
	pt3dadd(423.48, 225.856, 24.6526, 1.14903)
	pt3dadd(424.046, 225.205, 24.5776, 0.96086)
	pt3dadd(426.132, 222.153, 23.7518, 0.54716)
	pt3dadd(426.303, 221.932, 23.5934, 0.531914)
	pt3dadd(426.501, 221.81, 23.434, 0.351994)
	pt3dadd(426.694, 221.702, 23.3701, 0.2)
	pt3dadd(426.909, 221.479, 23.2761, 0.2)
	pt3dadd(427.059, 221.211, 23.0802, 0.380448)
	pt3dadd(427.697, 220.267, 22.8752, 0.823182)
	pt3dadd(429.861, 218.68, 22.2372, 0.546768)
	pt3dadd(433.159, 215.381, 22.2271, 0.269234)
	pt3dadd(433.384, 215.355, 22.1835, 0.203832)
	pt3dadd(433.663, 215.324, 22.1464, 0.502152)
	pt3dadd(434.063, 215.463, 21.9111, 0.938372)
	pt3dadd(435.713, 213.658, 21.2672, 0.695174)
	pt3dadd(437.173, 212.278, 20.5397, 0.69481)
	pt3dadd(437.45, 212.147, 20.2439, 0.890502)
	pt3dadd(437.979, 211.692, 19.7149, 0.279512)
	pt3dadd(438.174, 211.43, 19.5668, 0.28604)
	pt3dadd(438.427, 211.164, 19.4573, 0.330406)
	pt3dadd(438.693, 210.923, 19.4174, 0.2)
	pt3dadd(438.802, 210.69, 19.4508, 0.2)
	pt3dadd(438.863, 210.498, 19.4538, 0.37812)
	pt3dadd(438.911, 210.22, 19.4142, 0.689838)
	pt3dadd(439.124, 210.026, 19.2215, 0.708928)
	pt3dadd(439.366, 209.875, 18.8731, 0.422988)
	pt3dadd(439.833, 209.533, 18.7576, 0.2)
	pt3dadd(440.017, 209.366, 18.7356, 0.2)
	pt3dadd(440.213, 209.084, 18.7132, 0.2)
	pt3dadd(440.459, 208.952, 18.6805, 0.367666)
	pt3dadd(440.651, 208.683, 18.5413, 0.67866)
	pt3dadd(440.908, 208.484, 18.4068, 0.869856)
	pt3dadd(441.317, 208.347, 18.2315, 0.902774)
	pt3dadd(441.66, 208.156, 17.8896, 0.86917)
	pt3dadd(441.987, 207.939, 17.6685, 0.434278)
	pt3dadd(444.193, 206.384, 17.3642, 0.806274)
	pt3dadd(444.624, 206.356, 17.389, 0.694742)
  }
  dend_6[43] {pt3dclear()
	pt3dadd(444.624, 206.356, 17.389, 0.694742)
	pt3dadd(445.039, 206.072, 17.378, 0.551712)
  }
  dend[79] {pt3dclear()
	pt3dadd(297.742, 292.902, 34.7995, 1.06888)
	pt3dadd(298.004, 292.646, 33.907, 0.73369)
	pt3dadd(298.29, 292.396, 33.3224, 0.81351)
	pt3dadd(298.672, 292.172, 32.67, 0.742244)
	pt3dadd(299.057, 292.169, 32.3114, 0.764166)
	pt3dadd(299.548, 291.99, 31.8333, 0.658736)
	pt3dadd(299.788, 291.808, 31.6245, 0.531236)
	pt3dadd(300.016, 291.677, 31.4044, 0.55613)
	pt3dadd(300.256, 291.521, 31.2645, 0.54898)
	pt3dadd(300.569, 291.407, 30.9255, 0.436294)
	pt3dadd(300.852, 291.286, 30.6648, 0.548066)
	pt3dadd(301.111, 291.084, 30.4252, 0.979232)
  }
  dend_5[34] {pt3dclear()
	pt3dadd(301.111, 291.084, 30.4252, 0.979232)
	pt3dadd(302.067, 290.909, 29.4399, 1.3202)
  }
  dend[80] {pt3dclear()
	pt3dadd(302.067, 290.909, 29.4399, 1.3202)
	pt3dadd(301.879, 291.135, 28.6477, 1.36431)
	pt3dadd(301.682, 291.211, 27.9686, 0.974704)
	pt3dadd(301.328, 291.073, 27.0103, 0.834276)
	pt3dadd(301.115, 291.104, 26.3615, 0.75643)
	pt3dadd(301.211, 291.129, 25.7532, 0.766162)
	pt3dadd(301.412, 291.018, 25.1115, 0.809948)
	pt3dadd(301.418, 290.755, 24.4159, 1.12799)
  }
  dend_5[35] {pt3dclear()
	pt3dadd(301.418, 290.755, 24.4159, 1.12799)
	pt3dadd(301.433, 290.282, 23.1772, 1.21765)
  }
  dend[81] {pt3dclear()
	pt3dadd(301.433, 290.282, 23.1772, 1.21765)
	pt3dadd(300.758, 290.014, 22.6499, 0.76001)
	pt3dadd(300.242, 289.983, 22.5328, 0.2)
	pt3dadd(299.939, 289.939, 22.4187, 0.281766)
	pt3dadd(299.65, 290.08, 22.2315, 0.308124)
	pt3dadd(299.478, 290.206, 22.0267, 0.439324)
	pt3dadd(299.2, 290.226, 21.7827, 0.585996)
	pt3dadd(298.653, 290.3, 21.4195, 0.718032)
	pt3dadd(298.26, 290.256, 21.1542, 0.66013)
	pt3dadd(297.75, 290.321, 21.1756, 0.957062)
	pt3dadd(297.177, 290.307, 20.9837, 0.972992)
	pt3dadd(296.574, 290.085, 20.7232, 0.67908)
	pt3dadd(296.057, 289.949, 20.7059, 0.472752)
	pt3dadd(295.815, 289.869, 20.6704, 0.509492)
	pt3dadd(295.484, 289.587, 20.5911, 0.557706)
	pt3dadd(295.203, 289.843, 20.6268, 0.713686)
	pt3dadd(294.705, 289.637, 20.3486, 0.321694)
	pt3dadd(294.466, 289.572, 20.1664, 0.395084)
	pt3dadd(294.247, 289.477, 20.0246, 0.450418)
	pt3dadd(293.984, 289.395, 19.8864, 0.505692)
	pt3dadd(293.767, 289.196, 19.752, 0.760862)
	pt3dadd(293.338, 288.937, 19.1914, 1.22355)
	pt3dadd(292.969, 288.683, 18.6641, 1.21819)
	pt3dadd(292.201, 288.408, 18.1976, 1.3757)
	pt3dadd(291.555, 287.777, 17.6853, 0.71174)
	pt3dadd(291.613, 287.402, 17.6376, 0.622708)
	pt3dadd(290.919, 287.502, 17.2825, 0.52021)
	pt3dadd(290.652, 287.504, 17.1664, 0.495516)
	pt3dadd(290.36, 287.661, 16.9585, 0.376048)
	pt3dadd(290.125, 287.808, 16.7401, 0.491436)
	pt3dadd(289.695, 287.801, 16.6255, 0.797622)
	pt3dadd(289.304, 287.712, 16.107, 1.01874)
	pt3dadd(288.698, 287.541, 15.3835, 1.26069)
	pt3dadd(287.951, 287.767, 15.1731, 0.683732)
	pt3dadd(287.563, 287.783, 15.113, 0.738878)
	pt3dadd(287.151, 287.456, 14.7998, 0.475738)
	pt3dadd(286.921, 287.287, 14.61, 0.578998)
	pt3dadd(286.592, 287.118, 14.3911, 1.01245)
	pt3dadd(285.998, 287.271, 13.838, 1.30903)
	pt3dadd(285.125, 286.813, 13.3754, 1.44598)
	pt3dadd(284.455, 286.32, 12.585, 0.62312)
	pt3dadd(283.836, 285.986, 12.2985, 0.538958)
	pt3dadd(283.481, 285.855, 12.2869, 0.408596)
	pt3dadd(283.184, 285.603, 12.1827, 0.502972)
	pt3dadd(282.876, 285.362, 11.9697, 0.762466)
	pt3dadd(282.543, 285.276, 11.7478, 0.872304)
	pt3dadd(282.018, 284.907, 11.6782, 0.6529)
	pt3dadd(281.623, 284.676, 11.4218, 0.957472)
	pt3dadd(280.964, 284.323, 10.926, 1.59629)
	pt3dadd(280.846, 283.632, 10.1254, 1.1848)
	pt3dadd(280.324, 283.072, 9.41508, 0.573838)
	pt3dadd(280.149, 282.9, 8.96921, 0.63646)
	pt3dadd(280.046, 282.705, 8.69682, 0.509716)
	pt3dadd(279.769, 282.194, 8.54615, 0.445138)
	pt3dadd(279.51, 281.961, 8.43191, 0.583476)
	pt3dadd(279.281, 281.63, 8.36065, 0.62058)
	pt3dadd(279.071, 281.312, 8.13041, 0.779958)
	pt3dadd(278.786, 281.112, 7.81377, 0.856408)
	pt3dadd(278.418, 280.616, 7.36601, 0.62117)
	pt3dadd(278.389, 280.338, 7.18752, 0.715668)
	pt3dadd(278.3, 280.014, 6.85281, 0.796908)
	pt3dadd(278.251, 279.468, 6.29347, 1.22534)
	pt3dadd(277.832, 279.565, 5.38957, 1.57914)
  }
  dend_6[44] {pt3dclear()
	pt3dadd(277.832, 279.565, 5.38957, 1.57914)
	pt3dadd(277.496, 279.136, 4.67996, 0.955996)
  }
  dend[82] {pt3dclear()
	pt3dadd(301.433, 290.282, 23.1772, 1.21765)
	pt3dadd(302.193, 290.294, 22.613, 0.613532)
	pt3dadd(302.55, 290.467, 22.4177, 0.51175)
	pt3dadd(302.923, 290.643, 22.5228, 0.444918)
	pt3dadd(303.443, 290.693, 22.1503, 0.354286)
	pt3dadd(303.832, 290.629, 22.0081, 0.497466)
	pt3dadd(304.144, 290.571, 21.9965, 0.509352)
	pt3dadd(304.455, 290.58, 21.8569, 0.726824)
	pt3dadd(304.902, 290.516, 21.2393, 0.695906)
	pt3dadd(305.144, 290.43, 20.9093, 0.738092)
	pt3dadd(305.44, 290.326, 20.6737, 1.05064)
	pt3dadd(306.077, 289.863, 19.9549, 0.9289)
	pt3dadd(306.38, 289.665, 19.6366, 0.967306)
	pt3dadd(307.14, 289.095, 18.8711, 0.59705)
	pt3dadd(307.363, 288.995, 18.5843, 0.481416)
	pt3dadd(307.543, 288.898, 18.3263, 0.507862)
	pt3dadd(307.765, 288.81, 18.0506, 0.49135)
	pt3dadd(307.959, 288.711, 17.8277, 0.54831)
	pt3dadd(308.199, 288.696, 17.5824, 0.703234)
	pt3dadd(308.493, 288.602, 17.0142, 0.857704)
	pt3dadd(308.597, 288.469, 16.3885, 0.750866)
	pt3dadd(308.864, 288.464, 15.8279, 0.648338)
	pt3dadd(308.999, 288.558, 15.539, 0.720276)
	pt3dadd(309.225, 288.539, 14.9708, 0.741778)
	pt3dadd(309.406, 288.396, 14.5124, 0.682372)
	pt3dadd(309.49, 288.169, 14.2515, 0.54129)
	pt3dadd(309.593, 287.883, 14.0933, 0.409162)
	pt3dadd(309.824, 287.591, 13.9933, 0.696812)
	pt3dadd(309.988, 287.288, 13.8148, 0.859848)
	pt3dadd(310.305, 287.108, 13.4487, 0.582286)
	pt3dadd(310.56, 287.082, 13.25, 0.471564)
	pt3dadd(310.828, 286.998, 13.0153, 0.700592)
	pt3dadd(311.142, 287.076, 12.8333, 1.1565)
	pt3dadd(311.389, 286.883, 12.1814, 1.5733)
	pt3dadd(311.937, 286.827, 11.1004, 1.22656)
	pt3dadd(312.768, 287.065, 10.3588, 0.869854)
	pt3dadd(313.057, 287.153, 10.0339, 0.942056)
	pt3dadd(313.501, 287.378, 9.36538, 0.96991)
	pt3dadd(313.44, 287.266, 8.77421, 0.837734)
	pt3dadd(313.368, 286.953, 8.31711, 1.06142)
	pt3dadd(313.423, 286.517, 7.84004, 1.17062)
	pt3dadd(314.184, 286.322, 7.13428, 1.22497)
	pt3dadd(314.772, 286.662, 5.73789, 1.53088)
  }
  dend_6[45] {pt3dclear()
	pt3dadd(314.772, 286.662, 5.73789, 1.53088)
	pt3dadd(314.85, 286.735, 5.20768, 1.28889)
  }
  dend[83] {pt3dclear()
	pt3dadd(302.067, 290.909, 29.4399, 1.3202)
	pt3dadd(303.04, 290.922, 29.3357, 0.986272)
	pt3dadd(303.854, 290.509, 29.1762, 0.494546)
	pt3dadd(304.326, 290.582, 29.4146, 0.635498)
	pt3dadd(304.831, 290.527, 29.3845, 0.454272)
	pt3dadd(305.155, 290.479, 29.3757, 0.418244)
	pt3dadd(305.476, 290.366, 29.2721, 0.41874)
	pt3dadd(305.841, 290.256, 29.1297, 0.642806)
	pt3dadd(306.186, 290.214, 28.968, 0.876682)
	pt3dadd(306.698, 289.895, 29.0765, 0.583618)
	pt3dadd(307.048, 289.788, 29.0801, 0.797996)
	pt3dadd(307.454, 289.7, 28.9803, 1.02555)
	pt3dadd(308.061, 289.484, 28.9452, 0.382186)
	pt3dadd(308.319, 289.402, 28.8323, 0.293794)
	pt3dadd(308.618, 289.253, 28.7252, 0.30636)
	pt3dadd(308.751, 289.01, 28.5827, 0.405094)
	pt3dadd(309.076, 288.871, 28.4427, 0.567232)
	pt3dadd(309.356, 288.704, 28.3511, 0.707332)
	pt3dadd(310.013, 288.501, 28.1727, 0.568512)
  }
}
proc shape3d_42() {
  dend[83] {	pt3dadd(310.34, 288.629, 27.9578, 0.858106)
	pt3dadd(310.693, 288.427, 27.717, 0.608864)
	pt3dadd(310.967, 288.387, 27.4829, 0.657528)
	pt3dadd(311.301, 288.367, 27.2941, 0.684532)
	pt3dadd(311.983, 288.029, 27.3156, 0.341766)
	pt3dadd(312.211, 287.976, 27.36, 0.285858)
	pt3dadd(312.415, 287.881, 27.3382, 0.313846)
	pt3dadd(312.623, 287.815, 27.3374, 0.27535)
	pt3dadd(312.849, 287.733, 27.3062, 0.395526)
	pt3dadd(313.184, 287.616, 27.3271, 0.616434)
	pt3dadd(313.443, 287.385, 27.3143, 0.864914)
	pt3dadd(313.662, 287.035, 27.1692, 1.21088)
	pt3dadd(314.444, 286.68, 26.9452, 0.599972)
	pt3dadd(314.803, 286.514, 26.9503, 0.774134)
	pt3dadd(315.152, 286.284, 26.9483, 0.862114)
	pt3dadd(315.514, 285.989, 26.7466, 0.665342)
	pt3dadd(315.792, 285.669, 26.6863, 0.585264)
	pt3dadd(316.091, 285.294, 26.726, 0.91112)
	pt3dadd(316.832, 285.315, 26.5379, 0.56723)
	pt3dadd(317.241, 285.207, 26.5107, 0.435624)
	pt3dadd(317.596, 284.948, 26.3793, 0.449096)
	pt3dadd(317.799, 284.652, 26.1689, 0.577268)
	pt3dadd(318.473, 284.222, 26.1173, 0.384034)
	pt3dadd(318.708, 284.003, 26.0295, 0.325164)
	pt3dadd(318.924, 283.769, 25.9496, 0.315806)
	pt3dadd(319.193, 283.619, 25.8836, 0.292312)
	pt3dadd(319.553, 283.592, 25.7802, 0.444002)
	pt3dadd(319.921, 283.588, 25.5545, 0.952168)
	pt3dadd(320.594, 283.25, 25.0746, 0.966488)
	pt3dadd(321.239, 283, 24.5315, 0.463084)
	pt3dadd(321.481, 282.92, 24.4125, 0.464782)
	pt3dadd(321.926, 282.743, 24.436, 0.2)
	pt3dadd(322.204, 282.57, 24.3444, 0.39244)
	pt3dadd(322.384, 282.41, 24.272, 0.391368)
	pt3dadd(322.678, 282.235, 24.1626, 0.336978)
	pt3dadd(323.018, 282.111, 24.0686, 0.539676)
	pt3dadd(323.264, 281.877, 24.041, 0.614204)
	pt3dadd(323.612, 281.711, 24.0793, 0.703532)
	pt3dadd(324.057, 281.666, 24.0367, 0.796436)
	pt3dadd(324.467, 281.5, 23.7324, 0.714096)
	pt3dadd(325.03, 281.308, 23.707, 0.599538)
	pt3dadd(325.436, 281.248, 23.6513, 0.836774)
	pt3dadd(326.262, 280.828, 23.6674, 0.807032)
	pt3dadd(326.896, 280.424, 23.5268, 0.870516)
	pt3dadd(327.621, 280.036, 23.392, 0.83896)
	pt3dadd(328.137, 279.728, 23.2893, 0.546772)
	pt3dadd(328.474, 279.589, 23.2253, 0.47801)
	pt3dadd(328.837, 279.481, 23.1553, 0.48777)
	pt3dadd(329.16, 279.506, 23.0645, 0.591054)
	pt3dadd(329.473, 279.512, 22.9777, 0.776708)
	pt3dadd(329.854, 279.373, 22.9145, 0.906518)
	pt3dadd(330.576, 279.064, 22.7975, 0.899366)
	pt3dadd(330.964, 278.737, 22.6554, 0.972066)
	pt3dadd(331.371, 278.479, 22.4723, 1.03806)
	pt3dadd(332.206, 278.234, 22.3028, 1.283)
	pt3dadd(332.971, 277.722, 21.9074, 0.738468)
	pt3dadd(333.425, 277.489, 21.3672, 0.657596)
	pt3dadd(333.609, 277.348, 21.0984, 0.635658)
	pt3dadd(333.865, 277.319, 20.8413, 0.496974)
	pt3dadd(334.554, 277.15, 20.8282, 0.532314)
	pt3dadd(334.89, 276.973, 20.7446, 0.757342)
	pt3dadd(335.308, 276.952, 20.6833, 1.29698)
	pt3dadd(336.386, 276.694, 20.9324, 0.942626)
	pt3dadd(336.983, 276.634, 21.0629, 0.479748)
	pt3dadd(337.437, 276.641, 21.0384, 0.41582)
	pt3dadd(337.758, 276.464, 20.9883, 0.62748)
	pt3dadd(337.939, 276.249, 20.8468, 0.782316)
	pt3dadd(338.431, 276.423, 21.2139, 0.351806)
	pt3dadd(338.74, 276.272, 21.3228, 0.31751)
	pt3dadd(338.993, 276.178, 21.4554, 0.477582)
	pt3dadd(339.422, 276.037, 21.5725, 0.220124)
	pt3dadd(339.727, 276.03, 21.6407, 0.431962)
	pt3dadd(340.036, 275.931, 21.7174, 0.620758)
	pt3dadd(340.339, 275.746, 21.7699, 0.606788)
	pt3dadd(340.758, 275.568, 21.7388, 0.720664)
	pt3dadd(341.446, 275.455, 21.7105, 0.805822)
	pt3dadd(341.811, 275.277, 21.6913, 0.929126)
	pt3dadd(342.656, 274.83, 21.5502, 0.657194)
	pt3dadd(343.117, 274.827, 21.5137, 0.990642)
	pt3dadd(343.841, 274.549, 21.7915, 1.30158)
	pt3dadd(344.833, 274.634, 21.7764, 0.37518)
	pt3dadd(345.133, 274.58, 21.8302, 0.3955)
	pt3dadd(345.455, 274.432, 21.9622, 0.538078)
	pt3dadd(345.805, 274.339, 21.8282, 0.499238)
	pt3dadd(346.166, 274.415, 21.6842, 0.785872)
	pt3dadd(346.543, 274.077, 21.6723, 0.436762)
	pt3dadd(346.78, 273.866, 21.7012, 0.219606)
	pt3dadd(347.069, 273.763, 21.7789, 0.359552)
	pt3dadd(347.319, 273.553, 21.8445, 0.68852)
	pt3dadd(347.974, 273.298, 22.0483, 0.981228)
	pt3dadd(348.774, 273.12, 22.1227, 0.983458)
	pt3dadd(349.391, 272.892, 22.283, 0.994308)
	pt3dadd(350.337, 272.762, 22.4585, 0.553064)
	pt3dadd(350.653, 272.609, 22.4459, 0.431368)
	pt3dadd(350.99, 272.496, 22.7264, 0.53406)
	pt3dadd(351.245, 272.335, 22.9917, 0.2)
	pt3dadd(352.087, 272.164, 22.9278, 0.2)
	pt3dadd(352.453, 272.148, 22.9199, 0.41294)
	pt3dadd(352.649, 271.906, 22.8993, 0.62673)
	pt3dadd(352.942, 271.682, 22.8793, 0.83061)
	pt3dadd(353.696, 271.549, 22.8874, 1.14399)
	pt3dadd(354.284, 270.999, 22.9128, 0.2)
	pt3dadd(354.762, 270.787, 23.0762, 1.22302)
	pt3dadd(355.712, 270.263, 22.8707, 0.446126)
	pt3dadd(355.986, 270.135, 22.7864, 0.219226)
	pt3dadd(356.265, 269.999, 22.7657, 0.294264)
	pt3dadd(356.501, 269.865, 22.7417, 0.493584)
	pt3dadd(356.771, 269.57, 22.7968, 0.34862)
	pt3dadd(357.139, 269.38, 22.7893, 0.359288)
	pt3dadd(357.494, 269.303, 22.7368, 0.429424)
	pt3dadd(357.784, 269.288, 22.4793, 0.590662)
	pt3dadd(358.171, 268.92, 22.8103, 0.29806)
	pt3dadd(358.273, 268.451, 22.9608, 0.706538)
	pt3dadd(358.684, 268.454, 22.7724, 0.426614)
	pt3dadd(358.971, 268.43, 22.7323, 0.277494)
	pt3dadd(359.235, 268.42, 22.6516, 0.326774)
	pt3dadd(359.517, 268.275, 22.6206, 0.49873)
	pt3dadd(359.699, 268.059, 22.601, 0.515194)
	pt3dadd(360.002, 267.784, 22.607, 0.819506)
	pt3dadd(360.842, 267.475, 22.4556, 0.61415)
	pt3dadd(361.3, 267.446, 22.4007, 0.652052)
	pt3dadd(361.697, 267.647, 22.3816, 0.981132)
	pt3dadd(362.729, 267.496, 22.2656, 0.924678)
	pt3dadd(363.597, 267.31, 22.1844, 0.614072)
	pt3dadd(363.914, 267.16, 22.1434, 0.655)
	pt3dadd(364.439, 267, 22.099, 0.2)
	pt3dadd(364.639, 266.93, 22.002, 0.2)
	pt3dadd(364.849, 266.799, 21.8802, 0.2)
	pt3dadd(365.031, 266.74, 21.8538, 0.233838)
	pt3dadd(365.283, 266.679, 21.8139, 0.475496)
	pt3dadd(365.527, 266.543, 21.8376, 0.691598)
	pt3dadd(366.125, 266.39, 21.775, 0.31657)
	pt3dadd(366.431, 266.307, 21.7496, 0.500396)
	pt3dadd(366.774, 266.252, 21.7517, 0.467588)
	pt3dadd(367.085, 266.166, 21.7147, 0.699488)
	pt3dadd(367.441, 266.105, 21.6495, 1.00591)
	pt3dadd(368.243, 265.961, 21.643, 1.35634)
	pt3dadd(369.162, 265.779, 21.6967, 0.78563)
	pt3dadd(369.675, 265.665, 21.7469, 0.956554)
	pt3dadd(370.506, 265.206, 21.7398, 0.322548)
	pt3dadd(370.81, 265.124, 21.717, 0.230502)
	pt3dadd(370.993, 265.021, 21.7038, 0.238952)
	pt3dadd(371.234, 264.973, 21.6546, 0.33003)
	pt3dadd(371.547, 264.96, 21.6771, 0.54896)
	pt3dadd(371.865, 264.891, 21.6882, 0.931336)
	pt3dadd(372.406, 264.442, 21.9263, 0.570184)
	pt3dadd(372.649, 264.266, 22.2913, 0.701888)
	pt3dadd(373.318, 264.019, 22.173, 0.212392)
	pt3dadd(373.558, 263.871, 22.2025, 0.211134)
	pt3dadd(373.839, 263.766, 22.2666, 0.329986)
	pt3dadd(374.074, 263.398, 22.3685, 0.595844)
	pt3dadd(374.461, 263.529, 22.4606, 0.712356)
	pt3dadd(375.104, 263.495, 22.5392, 0.947236)
	pt3dadd(375.814, 263.23, 22.8005, 1.18097)
	pt3dadd(376.403, 263.027, 22.6484, 1.0495)
	pt3dadd(377.26, 262.822, 22.4672, 0.724274)
	pt3dadd(377.693, 262.608, 22.4547, 0.554088)
	pt3dadd(377.987, 262.453, 22.4837, 0.476064)
	pt3dadd(378.494, 262.377, 22.4111, 0.252824)
	pt3dadd(378.774, 262.399, 22.4159, 0.2)
	pt3dadd(378.951, 262.403, 22.4317, 0.223674)
	pt3dadd(379.166, 262.355, 22.4818, 0.26181)
	pt3dadd(379.313, 262.306, 22.4724, 0.245248)
	pt3dadd(379.66, 262.127, 22.4205, 0.426376)
	pt3dadd(380.119, 262.005, 22.2046, 0.68453)
	pt3dadd(380.345, 261.692, 22.2919, 0.687934)
	pt3dadd(380.865, 261.052, 22.1981, 1.20314)
	pt3dadd(381.425, 260.761, 22.2383, 1.21199)
	pt3dadd(381.897, 260.654, 22.1917, 0.631598)
	pt3dadd(382.251, 260.606, 22.231, 0.404112)
	pt3dadd(382.599, 260.549, 22.2673, 0.44239)
	pt3dadd(383.29, 260.468, 22.3998, 0.933388)
	pt3dadd(383.664, 260.258, 22.0433, 0.611414)
	pt3dadd(383.744, 259.858, 21.87, 0.2)
	pt3dadd(383.919, 259.621, 21.7018, 0.550782)
	pt3dadd(384.083, 259.391, 21.5331, 0.554972)
	pt3dadd(384.64, 258.925, 21.2981, 1.01418)
	pt3dadd(385.411, 258.822, 20.9843, 0.745648)
	pt3dadd(385.713, 258.618, 20.711, 0.702518)
	pt3dadd(386.251, 258.56, 20.4593, 0.48935)
	pt3dadd(386.704, 258.177, 20.6609, 0.2)
	pt3dadd(387.034, 257.814, 20.7367, 0.257928)
	pt3dadd(387.159, 257.59, 20.7098, 0.266954)
	pt3dadd(387.229, 257.362, 20.619, 0.342634)
	pt3dadd(387.449, 257.113, 20.4955, 0.468912)
	pt3dadd(387.697, 256.998, 20.3468, 0.401264)
	pt3dadd(388.002, 256.842, 20.3887, 0.428992)
	pt3dadd(388.348, 256.792, 20.3067, 0.29694)
	pt3dadd(388.703, 256.629, 20.1872, 0.46379)
	pt3dadd(389.278, 255.986, 20.2586, 0.942318)
	pt3dadd(389.76, 255.664, 19.9655, 1.01332)
	pt3dadd(390.466, 255.259, 19.7533, 0.934258)
	pt3dadd(390.904, 255.111, 19.7878, 0.841422)
	pt3dadd(391.377, 254.932, 19.927, 0.569622)
	pt3dadd(391.894, 254.665, 19.6289, 0.34221)
	pt3dadd(392.157, 254.548, 19.6167, 0.2)
	pt3dadd(392.432, 254.372, 19.6107, 0.323026)
	pt3dadd(392.674, 254.218, 19.5949, 0.287454)
	pt3dadd(392.988, 254.101, 19.5356, 0.2)
	pt3dadd(393.238, 253.977, 19.4793, 0.367464)
  }
}
proc shape3d_43() {
  dend[83] {	pt3dadd(393.809, 253.625, 19.4358, 0.827382)
	pt3dadd(397.745, 252.359, 18.933, 0.2)
	pt3dadd(397.975, 252.295, 18.9644, 0.2)
	pt3dadd(398.279, 252.155, 18.908, 0.2)
	pt3dadd(398.644, 251.983, 18.6971, 0.535064)
	pt3dadd(398.917, 251.853, 18.4679, 0.64938)
	pt3dadd(399.311, 251.734, 18.5901, 0.2)
	pt3dadd(399.57, 251.593, 18.5674, 0.237176)
	pt3dadd(399.817, 251.575, 18.5408, 0.469908)
	pt3dadd(400.313, 251.445, 18.6068, 0.662936)
	pt3dadd(400.628, 251.289, 18.3952, 0.974238)
	pt3dadd(401.26, 250.846, 18.0934, 1.25782)
	pt3dadd(401.677, 250.017, 18.032, 0.87411)
	pt3dadd(401.986, 249.719, 17.8643, 0.828284)
	pt3dadd(402.438, 249.312, 17.9856, 0.642112)
	pt3dadd(402.888, 249.232, 17.9967, 0.916724)
	pt3dadd(403.296, 248.949, 17.8502, 0.834888)
	pt3dadd(403.615, 248.692, 17.6317, 0.868518)
	pt3dadd(404.269, 248.172, 17.7821, 0.26439)
	pt3dadd(404.459, 248.127, 17.6911, 0.2)
	pt3dadd(404.529, 248.063, 17.5455, 0.2)
	pt3dadd(407.66, 247.008, 17.0897, 0.590632)
	pt3dadd(407.987, 247.083, 17.1242, 0.515682)
	pt3dadd(408.393, 246.972, 17.4479, 0.52471)
	pt3dadd(408.815, 246.828, 17.1082, 0.2)
	pt3dadd(409, 246.806, 16.9052, 0.2)
	pt3dadd(409.174, 246.8, 16.7262, 0.22415)
	pt3dadd(409.437, 246.786, 16.5896, 0.2)
	pt3dadd(409.71, 246.712, 16.5171, 0.247034)
	pt3dadd(410.219, 246.622, 16.2902, 0.756276)
	pt3dadd(410.63, 246.567, 16.4215, 0.46643)
	pt3dadd(410.982, 246.487, 16.3539, 0.31327)
	pt3dadd(411.754, 246.139, 16.3659, 0.921406)
	pt3dadd(412.223, 245.966, 16.3719, 0.99832)
	pt3dadd(412.7, 245.514, 16.2126, 0.798474)
	pt3dadd(413.197, 245.426, 16.0116, 0.74061)
	pt3dadd(413.573, 245.213, 15.8084, 0.616132)
	pt3dadd(413.881, 244.847, 15.7549, 0.2)
	pt3dadd(414.101, 244.599, 15.6472, 0.396566)
	pt3dadd(414.356, 244.497, 15.6048, 0.40277)
	pt3dadd(414.654, 244.203, 15.6147, 0.246246)
	pt3dadd(414.818, 243.972, 15.513, 0.273936)
	pt3dadd(414.975, 243.75, 15.4263, 0.546762)
	pt3dadd(415.516, 243.334, 15.2679, 1.10863)
	pt3dadd(416.265, 243.106, 14.9845, 1.31174)
	pt3dadd(416.668, 242.733, 14.9305, 0.991126)
	pt3dadd(417.168, 242.673, 14.9135, 0.801438)
	pt3dadd(417.612, 242.615, 14.8262, 0.802666)
	pt3dadd(418.003, 242.375, 14.6409, 0.736228)
	pt3dadd(418.376, 242.011, 14.5316, 0.698024)
	pt3dadd(418.706, 241.546, 14.0616, 0.745392)
	pt3dadd(419.29, 241.33, 14.0739, 0.2)
	pt3dadd(419.59, 241.217, 14.0368, 0.369034)
	pt3dadd(421.22, 240.313, 13.8188, 0.446002)
	pt3dadd(421.452, 239.905, 13.6298, 0.895498)
	pt3dadd(421.794, 239.601, 13.3959, 0.478932)
	pt3dadd(422.151, 239.443, 13.3677, 0.2)
	pt3dadd(422.402, 239.314, 13.4628, 0.273978)
	pt3dadd(422.479, 238.907, 13.5336, 0.318224)
	pt3dadd(424.914, 237.779, 12.9244, 0.2)
	pt3dadd(425.075, 237.664, 12.7246, 0.237146)
	pt3dadd(425.492, 237.425, 12.595, 0.457604)
	pt3dadd(425.785, 237.42, 12.5587, 0.358022)
	pt3dadd(426.057, 237.38, 12.4587, 0.327834)
	pt3dadd(426.666, 237.423, 12.3363, 0.642276)
	pt3dadd(427.183, 237.352, 12.304, 0.58984)
	pt3dadd(427.509, 237.28, 12.109, 0.518618)
	pt3dadd(427.769, 237.022, 11.938, 0.347324)
	pt3dadd(428.202, 236.609, 12.1464, 0.323144)
	pt3dadd(428.367, 236.335, 12.1353, 0.207062)
	pt3dadd(428.508, 235.958, 12.0316, 0.539886)
	pt3dadd(428.83, 235.427, 12.0685, 0.253234)
	pt3dadd(429.028, 235.197, 12.0162, 0.415256)
	pt3dadd(429.451, 234.648, 12.1579, 0.79818)
	pt3dadd(429.928, 234.098, 12.3507, 1.33164)
	pt3dadd(430.3, 233.484, 12.232, 1.03243)
	pt3dadd(430.727, 233.219, 11.8933, 0.63287)
	pt3dadd(431.003, 233.106, 11.5986, 0.566208)
	pt3dadd(431.44, 232.666, 11.7135, 0.457296)
	pt3dadd(431.726, 232.438, 11.6873, 0.316562)
	pt3dadd(431.999, 232.185, 11.5065, 0.38724)
	pt3dadd(432.289, 232.074, 11.4317, 0.410152)
	pt3dadd(432.641, 231.938, 11.4193, 0.545204)
	pt3dadd(432.947, 231.805, 11.3592, 0.58359)
	pt3dadd(433.221, 231.58, 11.2702, 0.717488)
	pt3dadd(433.493, 231.32, 11.2555, 0.730044)
	pt3dadd(433.902, 231.316, 11.3501, 0.393124)
	pt3dadd(434.115, 230.576, 10.8876, 0.427186)
	pt3dadd(434.56, 230.187, 10.508, 0.669938)
	pt3dadd(434.831, 229.967, 10.3835, 0.656594)
	pt3dadd(435.367, 229.863, 10.4299, 0.4219)
	pt3dadd(435.702, 229.788, 10.3175, 0.305054)
	pt3dadd(436.049, 229.605, 10.4161, 0.38767)
	pt3dadd(436.161, 229.359, 10.3945, 0.2)
	pt3dadd(436.423, 229.218, 10.399, 0.2)
	pt3dadd(436.647, 229.11, 10.45, 0.2)
	pt3dadd(437.15, 228.759, 10.5945, 0.724414)
	pt3dadd(437.828, 228.537, 10.4275, 1.00846)
	pt3dadd(438.252, 228.237, 10.3633, 0.846414)
	pt3dadd(438.999, 228.021, 10.3705, 0.835724)
	pt3dadd(439.576, 228.072, 10.3845, 0.657236)
	pt3dadd(439.969, 227.851, 10.3459, 0.418042)
	pt3dadd(442.65, 226.664, 10.349, 0.520354)
	pt3dadd(443.083, 226.43, 10.4614, 0.639402)
	pt3dadd(443.589, 226.064, 10.7337, 0.289532)
	pt3dadd(443.86, 225.94, 10.8229, 0.450268)
	pt3dadd(444.051, 225.808, 10.9522, 0.403626)
	pt3dadd(448.464, 222.724, 11.6084, 0.830862)
	pt3dadd(448.966, 222.513, 11.7408, 0.853114)
	pt3dadd(449.387, 222.311, 12.0491, 0.684256)
	pt3dadd(449.692, 222.154, 12.1494, 0.326326)
	pt3dadd(449.899, 221.722, 12.2462, 0.694654)
	pt3dadd(450.215, 221.736, 12.1755, 0.572516)
	pt3dadd(453.73, 218.451, 13.413, 0.559508)
	pt3dadd(454.088, 218.313, 13.5156, 0.710918)
	pt3dadd(454.51, 218.119, 13.7441, 0.61347)
  }
  dend_6[46] {pt3dclear()
	pt3dadd(454.51, 218.119, 13.7441, 0.61347)
	pt3dadd(454.708, 217.884, 14.0352, 0.424112)
  }
  dend[84] {pt3dclear()
	pt3dadd(286.877, 295.985, 42.961, 2.84532)
	pt3dadd(287.594, 297.542, 43.2785, 2.2968)
	pt3dadd(288.428, 298.873, 43.38, 1.91402)
	pt3dadd(289.079, 299.613, 43.4108, 1.78444)
	pt3dadd(289.724, 300.456, 43.4659, 2.02589)
	pt3dadd(290.266, 301.336, 43.5254, 2.14016)
	pt3dadd(290.775, 302.359, 43.5537, 2.21271)
	pt3dadd(291.34, 303.477, 43.5295, 2.21452)
  }
  dend_5[36] {pt3dclear()
	pt3dadd(291.34, 303.477, 43.5295, 2.21452)
	pt3dadd(291.931, 304.898, 43.555, 2.64839)
  }
  dend[85] {pt3dclear()
	pt3dadd(291.931, 304.898, 43.555, 2.64839)
	pt3dadd(291.276, 306.127, 43.4383, 0.907772)
	pt3dadd(290.94, 306.732, 43.4524, 0.28263)
	pt3dadd(290.781, 306.956, 43.4767, 0.356194)
	pt3dadd(290.661, 307.198, 43.4648, 0.473542)
	pt3dadd(290.551, 307.456, 43.4623, 0.44756)
	pt3dadd(290.473, 307.754, 43.4642, 0.559458)
	pt3dadd(290.29, 308.108, 43.4381, 0.75668)
	pt3dadd(289.936, 308.678, 43.3843, 0.669046)
	pt3dadd(289.84, 309.058, 43.3234, 0.854394)
	pt3dadd(289.413, 309.291, 43.3999, 0.581418)
	pt3dadd(289.167, 309.607, 43.4438, 0.456272)
	pt3dadd(288.893, 309.797, 43.4384, 0.634164)
	pt3dadd(288.584, 310.003, 43.4276, 0.657382)
	pt3dadd(288.178, 310.127, 43.3594, 0.545136)
	pt3dadd(287.907, 310.211, 43.2775, 0.711834)
	pt3dadd(287.689, 310.552, 43.2713, 0.58043)
	pt3dadd(287.407, 310.793, 43.3271, 0.398472)
	pt3dadd(287.104, 311.01, 43.3323, 0.27354)
	pt3dadd(286.851, 311.18, 43.3293, 0.294266)
	pt3dadd(286.553, 311.328, 43.3405, 0.48129)
	pt3dadd(286.291, 311.517, 43.3261, 0.605046)
	pt3dadd(286.005, 311.766, 43.2461, 0.748104)
	pt3dadd(285.378, 312.179, 43.1376, 1.06442)
	pt3dadd(284.695, 312.513, 43.0019, 1.2989)
	pt3dadd(283.763, 312.866, 43.1617, 0.966572)
	pt3dadd(283.017, 313.054, 43.4231, 0.646578)
	pt3dadd(282.719, 313.102, 43.5508, 0.556152)
	pt3dadd(282.147, 313.197, 43.8066, 0.705416)
	pt3dadd(281.777, 313.298, 43.8781, 0.652838)
	pt3dadd(281.165, 313.606, 44.0115, 0.807582)
	pt3dadd(280.514, 313.72, 44.2108, 0.794272)
	pt3dadd(279.923, 313.972, 44.4223, 0.705726)
	pt3dadd(279.559, 314.036, 44.5247, 0.888718)
	pt3dadd(278.992, 314.448, 44.8038, 1.51661)
  }
  dend_5[37] {pt3dclear()
	pt3dadd(278.992, 314.448, 44.8038, 1.51661)
	pt3dadd(278.081, 314.779, 45.1998, 1.30694)
  }
  dend[86] {pt3dclear()
	pt3dadd(278.081, 314.779, 45.1998, 1.30694)
	pt3dadd(277.988, 315.423, 45.6362, 0.787152)
	pt3dadd(277.979, 315.717, 45.9141, 0.635532)
	pt3dadd(277.882, 316.126, 46.3795, 0.418422)
	pt3dadd(277.645, 316.297, 46.6957, 0.444386)
	pt3dadd(277.474, 316.346, 46.9951, 0.41262)
	pt3dadd(277.245, 316.44, 47.3247, 0.735578)
	pt3dadd(277.031, 316.838, 47.9222, 0.814536)
	pt3dadd(276.846, 317.224, 48.5501, 0.876174)
	pt3dadd(276.578, 317.692, 49.0363, 1.06962)
	pt3dadd(276.212, 318.091, 49.3501, 0.840162)
	pt3dadd(275.991, 318.34, 49.6377, 0.777212)
	pt3dadd(275.724, 318.586, 49.928, 0.624594)
	pt3dadd(275.438, 318.699, 50.1307, 0.403486)
	pt3dadd(275.186, 318.8, 50.3501, 0.248818)
	pt3dadd(274.955, 318.997, 50.4871, 0.340332)
	pt3dadd(274.718, 319.153, 50.4889, 0.488244)
	pt3dadd(274.32, 319.605, 51.0478, 0.210914)
	pt3dadd(274.087, 319.813, 51.1901, 0.2)
	pt3dadd(273.886, 320.043, 51.3009, 0.435404)
	pt3dadd(273.719, 320.22, 51.591, 0.527382)
	pt3dadd(273.529, 320.41, 51.7918, 0.45005)
	pt3dadd(273.336, 320.672, 51.9698, 0.792652)
	pt3dadd(272.904, 321.092, 52.353, 0.980036)
	pt3dadd(272.305, 321.275, 52.8543, 0.442526)
	pt3dadd(272.015, 321.307, 53.0081, 0.252498)
	pt3dadd(271.744, 321.311, 53.1527, 0.560344)
	pt3dadd(271.579, 321.754, 53.2822, 0.600008)
	pt3dadd(271.326, 321.907, 53.4333, 0.778502)
	pt3dadd(270.743, 322.211, 53.7443, 1.17136)
	pt3dadd(269.659, 322.688, 54.347, 0.618818)
	pt3dadd(269.324, 322.903, 54.4552, 0.712048)
	pt3dadd(268.973, 323.104, 54.5384, 1.03454)
	pt3dadd(268.38, 323.222, 54.7563, 1.02254)
	pt3dadd(267.846, 323.372, 55.2066, 0.7403)
  }
}
proc shape3d_44() {
  dend[86] {	pt3dadd(267.159, 323.773, 55.3289, 0.2)
	pt3dadd(266.981, 323.8, 55.4096, 0.2)
	pt3dadd(266.749, 323.907, 55.5346, 0.2)
	pt3dadd(266.58, 323.983, 55.6619, 0.2)
	pt3dadd(266.34, 324.082, 55.8589, 0.2)
	pt3dadd(266.123, 324.234, 56.0045, 0.395246)
	pt3dadd(265.872, 324.4, 56.1765, 0.617656)
	pt3dadd(265.603, 325.021, 56.2592, 0.835572)
	pt3dadd(265.03, 325.505, 56.4734, 0.62002)
	pt3dadd(264.635, 325.943, 56.4932, 0.361086)
	pt3dadd(264.352, 326.172, 56.536, 0.34816)
	pt3dadd(264.083, 326.484, 56.593, 0.595512)
	pt3dadd(263.799, 326.703, 56.544, 0.611932)
	pt3dadd(263.479, 327.034, 56.53, 0.623928)
	pt3dadd(263.343, 327.545, 56.6133, 1.10024)
	pt3dadd(262.916, 328.179, 56.6871, 1.04011)
	pt3dadd(262.6, 328.715, 56.7664, 0.783058)
	pt3dadd(262.242, 328.978, 56.8763, 0.825792)
	pt3dadd(261.863, 329.206, 56.9479, 0.649636)
	pt3dadd(261.625, 329.564, 56.9475, 1.31654)
	pt3dadd(260.74, 330.383, 57.3028, 1.15662)
	pt3dadd(260.277, 331.14, 57.5873, 0.860276)
	pt3dadd(260.092, 331.417, 57.8618, 0.775002)
	pt3dadd(259.818, 331.776, 57.9818, 0.377536)
	pt3dadd(259.513, 331.956, 58.1448, 0.367216)
	pt3dadd(259.199, 332.086, 58.3181, 0.540986)
	pt3dadd(258.914, 332.148, 58.5151, 0.583754)
	pt3dadd(258.655, 332.257, 58.6895, 0.574338)
	pt3dadd(258.429, 332.398, 58.8896, 0.820096)
	pt3dadd(258.209, 332.608, 59.2389, 0.875038)
	pt3dadd(257.967, 333.19, 59.7846, 0.740812)
	pt3dadd(257.652, 333.663, 60.0508, 0.41104)
	pt3dadd(257.453, 333.932, 60.2099, 0.445874)
	pt3dadd(257.354, 334.188, 60.3437, 0.469192)
	pt3dadd(257.195, 334.62, 60.388, 0.2)
	pt3dadd(257.027, 334.837, 60.451, 0.432198)
	pt3dadd(256.982, 335.244, 60.549, 0.830366)
	pt3dadd(256.294, 335.535, 60.7004, 1.08819)
	pt3dadd(255.533, 335.789, 60.8095, 1.07299)
	pt3dadd(254.875, 336.388, 61.0273, 0.377426)
	pt3dadd(254.58, 336.623, 61.1127, 0.421166)
	pt3dadd(254.382, 336.954, 61.2254, 0.705398)
	pt3dadd(254.035, 337.426, 61.6114, 0.569838)
	pt3dadd(253.807, 337.68, 61.7752, 0.361324)
	pt3dadd(253.579, 337.866, 61.8932, 0.2)
	pt3dadd(253.392, 338.092, 61.9637, 0.2)
	pt3dadd(253.168, 338.332, 62.1147, 0.20908)
	pt3dadd(252.99, 338.528, 62.2737, 0.639274)
	pt3dadd(252.786, 338.706, 62.4545, 0.965888)
	pt3dadd(252.612, 339.307, 62.9338, 1.12122)
	pt3dadd(252.01, 339.906, 63.4669, 1.15851)
	pt3dadd(251.551, 340.529, 64.0782, 0.29366)
	pt3dadd(250.249, 343.243, 65.4504, 0.700562)
	pt3dadd(250.134, 343.447, 65.7075, 0.53262)
	pt3dadd(250.108, 343.649, 65.937, 0.492538)
	pt3dadd(250.02, 343.88, 66.3995, 0.487328)
	pt3dadd(249.876, 343.944, 66.6204, 0.445926)
	pt3dadd(249.7, 344.114, 66.8508, 0.380722)
	pt3dadd(249.516, 344.212, 67.0951, 0.565738)
	pt3dadd(249.52, 344.307, 67.7382, 0.704066)
	pt3dadd(249.587, 344.666, 67.9452, 0.300938)
	pt3dadd(249.504, 344.95, 68.1321, 0.384144)
	pt3dadd(249.395, 345.475, 68.4084, 0.716924)
	pt3dadd(249.49, 345.829, 68.5182, 0.72373)
	pt3dadd(249.779, 346.523, 68.973, 1.39907)
	pt3dadd(249.662, 346.806, 69.5552, 1.18441)
	pt3dadd(249.612, 347.14, 69.9882, 0.818936)
	pt3dadd(249.63, 347.278, 70.3412, 0.470906)
	pt3dadd(249.671, 347.391, 70.6129, 0.30184)
	pt3dadd(249.718, 347.473, 70.904, 0.403954)
	pt3dadd(249.78, 347.59, 71.1566, 0.446496)
	pt3dadd(249.751, 347.748, 71.8007, 0.914926)
	pt3dadd(249.656, 348.074, 72.5381, 1.0927)
	pt3dadd(249.346, 348.096, 73.4604, 1.44363)
	pt3dadd(249.456, 348.659, 74.4817, 0.575198)
	pt3dadd(249.501, 348.819, 74.7718, 0.450116)
	pt3dadd(249.523, 349.057, 75.0637, 0.712046)
	pt3dadd(249.498, 349.289, 75.2707, 0.578446)
	pt3dadd(249.457, 349.538, 75.4281, 0.477974)
	pt3dadd(249.446, 349.788, 75.6611, 0.631896)
	pt3dadd(249.451, 350.18, 76.0778, 0.602762)
	pt3dadd(249.405, 350.338, 76.354, 0.560256)
	pt3dadd(249.547, 350.438, 76.6646, 0.485786)
	pt3dadd(249.592, 350.618, 76.855, 0.2)
	pt3dadd(249.661, 350.783, 77.0493, 0.383626)
	pt3dadd(249.703, 350.92, 77.2386, 0.431568)
	pt3dadd(249.869, 351.119, 77.4128, 0.365728)
	pt3dadd(250.022, 351.329, 77.6304, 0.605908)
	pt3dadd(250.115, 351.452, 77.9753, 0.744894)
	pt3dadd(249.966, 351.943, 78.7114, 1.1064)
	pt3dadd(250.093, 352.274, 79.0688, 0.995886)
	pt3dadd(250.276, 352.562, 79.4394, 0.682786)
	pt3dadd(250.373, 352.89, 79.6918, 0.333118)
	pt3dadd(250.295, 353.169, 79.8022, 0.2)
	pt3dadd(250.264, 353.428, 80.0242, 0.353196)
	pt3dadd(250.183, 353.714, 80.4209, 0.63879)
	pt3dadd(250.023, 354.074, 80.877, 0.742432)
	pt3dadd(250.026, 354.7, 81.1408, 0.878856)
	pt3dadd(250.16, 355.017, 81.4987, 0.675252)
	pt3dadd(250.104, 355.245, 81.6787, 0.503082)
	pt3dadd(250.007, 355.506, 81.9023, 0.333894)
	pt3dadd(249.959, 355.796, 82.0698, 0.424888)
	pt3dadd(249.844, 356.013, 82.1719, 0.476648)
	pt3dadd(249.919, 356.389, 82.3079, 0.606522)
	pt3dadd(248.974, 362.634, 85.7434, 0.658046)
	pt3dadd(248.892, 362.999, 85.8251, 0.60383)
	pt3dadd(247.9, 367.461, 87.2689, 0.54126)
	pt3dadd(247.874, 368.103, 87.532, 0.615828)
  }
  dend_6[47] {pt3dclear()
	pt3dadd(247.874, 368.103, 87.532, 0.615828)
	pt3dadd(247.827, 368.311, 87.8065, 0.691394)
  }
  dend[87] {pt3dclear()
	pt3dadd(278.081, 314.779, 45.1998, 1.30694)
	pt3dadd(277.463, 314.618, 45.0579, 0.935236)
	pt3dadd(276.728, 314.82, 44.9699, 0.38175)
	pt3dadd(276.328, 314.977, 45.15, 0.225508)
	pt3dadd(276.097, 315.005, 45.1194, 0.251032)
	pt3dadd(275.914, 314.967, 45.0609, 0.470498)
	pt3dadd(275.671, 315.052, 44.9984, 0.558932)
	pt3dadd(275.408, 315.118, 44.8856, 0.642508)
	pt3dadd(275.058, 315.431, 45.0129, 0.349634)
	pt3dadd(274.78, 315.615, 45.1193, 0.206136)
	pt3dadd(274.5, 315.776, 45.0892, 0.204214)
	pt3dadd(274.241, 315.898, 44.9952, 0.519722)
	pt3dadd(273.812, 316.372, 45.046, 0.57215)
	pt3dadd(273.485, 316.602, 45.2091, 0.950962)
	pt3dadd(272.742, 316.59, 45.3848, 1.17888)
	pt3dadd(271.742, 317.01, 45.5735, 0.796106)
	pt3dadd(271.37, 317.23, 45.7334, 0.494804)
	pt3dadd(271.006, 317.37, 45.7824, 0.2)
	pt3dadd(270.762, 317.43, 45.793, 0.2)
	pt3dadd(270.598, 317.531, 45.8505, 0.2)
	pt3dadd(270.345, 317.613, 45.9665, 0.285342)
	pt3dadd(270.105, 317.668, 46.0921, 0.332282)
	pt3dadd(269.861, 317.756, 46.1869, 0.515126)
	pt3dadd(269.586, 317.91, 46.2626, 0.884214)
	pt3dadd(268.913, 318.229, 46.2496, 1.21632)
	pt3dadd(268.097, 318.58, 46.2215, 1.12324)
	pt3dadd(267.24, 318.705, 46.3246, 0.969152)
	pt3dadd(266.397, 318.866, 46.2331, 0.573178)
	pt3dadd(266.025, 318.925, 46.1293, 0.454156)
	pt3dadd(265.645, 319.148, 46.2667, 0.434648)
	pt3dadd(265.415, 319.311, 46.2918, 0.278482)
	pt3dadd(265.163, 319.455, 46.3026, 0.373632)
	pt3dadd(264.853, 319.538, 46.301, 0.584742)
	pt3dadd(264.593, 319.785, 46.0692, 0.456446)
	pt3dadd(264.339, 319.973, 45.8872, 0.616006)
	pt3dadd(264.042, 320.319, 46.0544, 0.632406)
	pt3dadd(263.686, 320.65, 45.9594, 0.573962)
	pt3dadd(263.411, 321.012, 46.0543, 0.784142)
	pt3dadd(263.085, 321.27, 46.1546, 0.884776)
	pt3dadd(262.93, 321.745, 46.2252, 1.06041)
	pt3dadd(262.541, 322.411, 46.4982, 1.13843)
	pt3dadd(261.688, 322.823, 46.545, 0.922242)
	pt3dadd(261.331, 323.168, 46.582, 0.556814)
	pt3dadd(261.034, 323.401, 46.6276, 0.504596)
	pt3dadd(260.729, 323.6, 46.6792, 0.456214)
	pt3dadd(259.573, 324.725, 47.2094, 0.256834)
	pt3dadd(259.295, 325.049, 47.0454, 0.620474)
	pt3dadd(258.549, 325.949, 46.9472, 1.09645)
	pt3dadd(258.394, 326.618, 46.8569, 0.713506)
	pt3dadd(258.364, 326.893, 46.841, 0.420934)
	pt3dadd(258.202, 327.193, 46.8466, 0.274774)
	pt3dadd(258.005, 327.454, 46.8408, 0.293744)
	pt3dadd(257.671, 327.729, 46.8415, 0.5527)
	pt3dadd(256.656, 328.503, 46.9028, 1.20057)
	pt3dadd(256.435, 328.823, 46.9414, 0.75)
	pt3dadd(256.239, 329.146, 46.9874, 0.398596)
	pt3dadd(256.002, 329.384, 47.0366, 0.26529)
	pt3dadd(255.774, 329.615, 47.1246, 0.294832)
	pt3dadd(255.622, 329.829, 47.1362, 0.251888)
	pt3dadd(255.455, 330.086, 47.1354, 0.342676)
	pt3dadd(255.043, 330.645, 47.3447, 0.543096)
	pt3dadd(254.899, 331.167, 47.0489, 0.659214)
	pt3dadd(254.645, 331.426, 47.1865, 0.206172)
	pt3dadd(254.386, 331.688, 47.2439, 0.41513)
	pt3dadd(253.974, 331.969, 47.243, 0.5514)
	pt3dadd(253.758, 332.181, 47.2606, 0.505356)
	pt3dadd(253.18, 332.699, 47.2205, 0.9216)
	pt3dadd(252.766, 332.991, 47.1213, 0.88544)
	pt3dadd(252.226, 333.496, 46.9388, 1.06953)
	pt3dadd(251.501, 333.82, 46.8013, 1.20083)
	pt3dadd(251.152, 334.225, 46.7516, 0.949616)
	pt3dadd(250.99, 334.98, 46.5824, 1.00505)
	pt3dadd(248.921, 336.853, 45.2854, 0.932938)
	pt3dadd(248.841, 337.361, 45.2772, 0.970368)
	pt3dadd(248.517, 338.273, 45.325, 0.919418)
	pt3dadd(248.212, 339.021, 45.097, 0.889642)
	pt3dadd(248.062, 339.424, 44.9397, 0.905936)
	pt3dadd(247.904, 340.066, 44.6672, 0.812798)
	pt3dadd(247.675, 340.517, 44.2681, 0.581454)
	pt3dadd(247.497, 340.747, 44.0229, 0.514946)
	pt3dadd(247.459, 341.018, 43.8785, 0.396414)
	pt3dadd(247.386, 341.26, 43.6904, 0.309754)
	pt3dadd(247.273, 341.505, 43.5807, 0.2)
	pt3dadd(247.168, 341.806, 43.4797, 0.536188)
	pt3dadd(246.81, 342.073, 43.2392, 0.632714)
	pt3dadd(246.52, 342.317, 43.1012, 0.636056)
	pt3dadd(246.211, 342.502, 42.9776, 0.985258)
	pt3dadd(245.78, 343.021, 42.6526, 1.18051)
	pt3dadd(245.028, 343.945, 42.2262, 1.11543)
	pt3dadd(244.443, 344.628, 42.0652, 0.654606)
  }
}
proc shape3d_45() {
  dend[87] {	pt3dadd(244.278, 344.996, 42.0302, 0.528646)
	pt3dadd(244.106, 345.309, 41.8741, 0.606192)
	pt3dadd(243.778, 345.927, 41.2827, 0.963118)
	pt3dadd(243.463, 346.329, 41.2533, 0.885524)
	pt3dadd(243.063, 346.527, 41.2887, 1.02058)
	pt3dadd(242.774, 347.057, 41.2864, 0.806014)
	pt3dadd(242.345, 347.541, 40.9925, 0.358484)
	pt3dadd(242.105, 347.835, 40.8547, 0.420518)
	pt3dadd(241.864, 348.055, 40.6866, 0.625592)
	pt3dadd(241.503, 348.41, 40.4125, 0.797004)
	pt3dadd(240.753, 348.832, 40.3337, 0.74681)
	pt3dadd(240.278, 349.07, 40.203, 1.15459)
	pt3dadd(239.5, 349.464, 40.0614, 1.36201)
	pt3dadd(239.09, 350.041, 39.8237, 0.605764)
	pt3dadd(238.912, 350.391, 39.7203, 0.444614)
	pt3dadd(238.665, 350.555, 39.6073, 0.40986)
	pt3dadd(238.378, 350.617, 39.4988, 0.2)
	pt3dadd(238.057, 350.732, 39.3323, 0.391448)
	pt3dadd(237.933, 351.021, 39.1743, 0.432776)
	pt3dadd(237.487, 351.361, 38.8585, 0.677568)
	pt3dadd(237.058, 351.604, 38.6589, 0.642264)
	pt3dadd(236.708, 351.736, 38.4858, 0.503686)
	pt3dadd(236.418, 351.796, 38.3826, 0.332856)
	pt3dadd(236.089, 351.852, 38.2905, 0.254142)
	pt3dadd(235.753, 351.996, 38.1793, 0.380494)
	pt3dadd(235.537, 352.038, 37.8024, 0.39911)
	pt3dadd(235.268, 352.201, 37.6936, 0.39305)
	pt3dadd(234.996, 352.403, 37.5651, 0.471024)
	pt3dadd(234.541, 352.782, 37.2863, 0.770262)
	pt3dadd(234.107, 352.8, 37.2304, 0.79486)
	pt3dadd(233.689, 352.979, 37.0778, 0.892844)
	pt3dadd(233.309, 353.198, 36.8395, 0.831226)
	pt3dadd(232.987, 353.636, 36.584, 0.899062)
	pt3dadd(232.274, 354.066, 36.3206, 0.575608)
	pt3dadd(231.891, 354.2, 36.2258, 0.375092)
	pt3dadd(231.621, 354.28, 36.1541, 0.365244)
	pt3dadd(231.26, 354.417, 36.1281, 0.492702)
	pt3dadd(230.82, 354.427, 36.0948, 0.753956)
	pt3dadd(230.121, 354.66, 36.1426, 0.9135)
	pt3dadd(229.448, 354.982, 36.1271, 0.51672)
	pt3dadd(229.033, 355.368, 35.8766, 0.381656)
	pt3dadd(228.769, 355.572, 35.7639, 0.357432)
	pt3dadd(228.487, 355.73, 35.6963, 0.666818)
	pt3dadd(228.188, 355.958, 35.4916, 0.923308)
	pt3dadd(227.742, 356.33, 35.4468, 1.09088)
	pt3dadd(227, 356.892, 35.3017, 1.4178)
	pt3dadd(225.878, 357.075, 35.2263, 0.566802)
	pt3dadd(225.608, 357.297, 35.2703, 0.40149)
	pt3dadd(223.994, 357.887, 34.9857, 0.787222)
	pt3dadd(223.58, 358.029, 34.1898, 0.916754)
	pt3dadd(223.117, 358.293, 34.0465, 0.76221)
	pt3dadd(222.773, 358.608, 33.8763, 0.495536)
	pt3dadd(222.51, 358.824, 33.6981, 0.369388)
	pt3dadd(222.283, 358.99, 33.4751, 0.235086)
	pt3dadd(221.976, 359.318, 33.2341, 0.254772)
	pt3dadd(221.709, 359.585, 33.2911, 0.382966)
	pt3dadd(221.505, 359.72, 33.0953, 0.427314)
	pt3dadd(221.272, 359.946, 32.9006, 0.28719)
	pt3dadd(221.007, 360.194, 32.8058, 0.265578)
	pt3dadd(220.477, 360.686, 32.5791, 0.621018)
	pt3dadd(219.988, 361.115, 32.9209, 1.12628)
	pt3dadd(219.123, 361.626, 32.7982, 1.39969)
	pt3dadd(218.486, 362.076, 32.6213, 1.49363)
	pt3dadd(217.698, 362.731, 32.5455, 1.01117)
	pt3dadd(216.839, 362.889, 32.2155, 1.31263)
	pt3dadd(216.301, 363.46, 32.1089, 0.685568)
	pt3dadd(215.933, 363.58, 32.039, 0.469612)
	pt3dadd(215.671, 363.774, 32.0076, 0.2)
	pt3dadd(215.391, 363.869, 31.9429, 0.39109)
	pt3dadd(215.027, 364.159, 31.7823, 0.339974)
	pt3dadd(214.695, 364.398, 31.8607, 0.388714)
	pt3dadd(214.151, 364.88, 31.873, 0.816256)
	pt3dadd(213.883, 364.946, 31.5349, 0.669368)
	pt3dadd(213.508, 365.172, 31.1107, 0.640088)
	pt3dadd(213.227, 365.526, 31.1478, 0.64018)
	pt3dadd(212.685, 365.726, 31.2567, 0.642922)
	pt3dadd(212.228, 365.576, 31.4716, 1.10518)
	pt3dadd(211.557, 366.136, 31.3713, 0.924908)
	pt3dadd(210.755, 366.437, 31.3341, 0.93708)
	pt3dadd(210.075, 366.731, 31.429, 0.52894)
	pt3dadd(209.741, 366.906, 31.4147, 0.583026)
	pt3dadd(209.292, 367.194, 31.2572, 0.41567)
	pt3dadd(208.987, 367.27, 31.4377, 0.425314)
	pt3dadd(208.681, 367.299, 31.5649, 0.52356)
	pt3dadd(208.249, 367.393, 31.6609, 0.638146)
	pt3dadd(207.901, 367.51, 31.7939, 0.34337)
	pt3dadd(207.538, 367.623, 31.9309, 0.345934)
	pt3dadd(207.164, 367.714, 31.98, 0.632886)
	pt3dadd(206.807, 367.939, 32.1693, 0.896532)
	pt3dadd(206.401, 368.257, 32.3489, 0.974966)
	pt3dadd(205.907, 368.618, 32.3523, 0.694882)
	pt3dadd(205.585, 368.752, 32.3419, 0.30012)
	pt3dadd(205.151, 368.768, 32.3244, 0.903176)
	pt3dadd(204.874, 369.368, 32.389, 0.276136)
	pt3dadd(204.627, 369.466, 32.3666, 0.2)
	pt3dadd(204.442, 369.613, 32.336, 0.250442)
	pt3dadd(204.278, 369.735, 32.3012, 0.204172)
	pt3dadd(203.662, 370.229, 31.8894, 0.743256)
	pt3dadd(203.279, 370.246, 32.0035, 1.15528)
	pt3dadd(202.323, 370.402, 32.1638, 1.0521)
	pt3dadd(201.489, 370.685, 32.1261, 0.813176)
	pt3dadd(201.135, 370.971, 31.9876, 0.79462)
	pt3dadd(200.524, 371.246, 31.7238, 0.512376)
	pt3dadd(200.311, 371.442, 31.7071, 0.233768)
	pt3dadd(200.094, 371.615, 31.6873, 0.2)
	pt3dadd(199.899, 371.743, 31.6745, 0.2)
	pt3dadd(199.635, 371.841, 31.6363, 0.231596)
	pt3dadd(199.507, 371.961, 31.6597, 0.229356)
	pt3dadd(199.288, 371.99, 31.649, 0.228794)
	pt3dadd(198.507, 372.045, 31.3735, 0.812596)
	pt3dadd(197.953, 372.471, 31.6071, 0.641926)
	pt3dadd(197.376, 372.652, 31.7179, 0.28948)
	pt3dadd(197.125, 372.693, 31.7369, 0.442484)
	pt3dadd(196.826, 372.886, 31.9206, 0.473006)
	pt3dadd(196.587, 373.151, 31.8836, 0.463904)
	pt3dadd(196.197, 373.44, 31.7861, 0.70647)
	pt3dadd(195.672, 373.604, 31.7959, 0.962692)
	pt3dadd(194.73, 374.277, 31.3717, 1.39802)
	pt3dadd(193.956, 374.469, 31.331, 0.920012)
	pt3dadd(193.464, 374.573, 31.337, 0.83868)
	pt3dadd(192.879, 374.825, 31.1808, 0.639746)
	pt3dadd(190.118, 375.325, 30.8011, 1.34248)
	pt3dadd(189.192, 375.699, 30.5848, 0.961286)
	pt3dadd(188.546, 375.725, 30.2761, 0.51991)
	pt3dadd(188.241, 375.641, 30.1447, 0.390222)
	pt3dadd(187.864, 375.749, 30.0376, 0.372166)
	pt3dadd(187.59, 375.812, 29.9764, 0.362254)
	pt3dadd(187.356, 375.991, 29.9034, 0.292142)
	pt3dadd(187.092, 376.098, 29.8116, 0.490342)
	pt3dadd(186.809, 376.111, 29.7563, 0.347708)
	pt3dadd(186.559, 376.131, 29.7376, 0.261332)
	pt3dadd(186.313, 376.138, 29.6697, 0.33991)
	pt3dadd(185.887, 376.253, 29.8603, 0.238148)
	pt3dadd(185.64, 376.426, 29.7294, 0.393628)
	pt3dadd(185.095, 376.818, 29.495, 1.07644)
	pt3dadd(184.722, 377.01, 29.0567, 1.14785)
	pt3dadd(184.114, 377.241, 28.9487, 0.485986)
	pt3dadd(183.903, 377.356, 28.8919, 0.258322)
	pt3dadd(183.693, 377.439, 28.8192, 0.222482)
	pt3dadd(183.526, 377.492, 28.8176, 0.2)
	pt3dadd(183.04, 377.968, 28.3707, 0.684234)
	pt3dadd(182.774, 378.181, 28.148, 0.362342)
	pt3dadd(182.463, 378.421, 27.9884, 0.2)
	pt3dadd(181.979, 378.833, 27.6501, 0.75486)
	pt3dadd(181.795, 379.166, 27.7577, 0.896258)
	pt3dadd(181.196, 379.555, 27.6511, 0.8431)
	pt3dadd(180.579, 379.637, 27.492, 0.338366)
	pt3dadd(180.345, 379.797, 27.376, 0.2)
	pt3dadd(180.113, 379.889, 27.272, 0.2)
	pt3dadd(179.899, 380.022, 27.2187, 0.309826)
	pt3dadd(179.424, 380.211, 26.9633, 0.507626)
	pt3dadd(179.188, 380.491, 26.8382, 0.626468)
	pt3dadd(178.897, 380.718, 26.8041, 0.761336)
	pt3dadd(178.28, 381.111, 26.74, 1.26167)
	pt3dadd(177.577, 381.452, 26.5512, 0.899206)
	pt3dadd(177.012, 381.78, 26.5244, 0.28534)
	pt3dadd(176.802, 381.938, 26.521, 0.31892)
	pt3dadd(176.617, 382.082, 26.5467, 0.345228)
	pt3dadd(176.23, 382.227, 26.6068, 0.35005)
	pt3dadd(175.999, 382.425, 26.3577, 0.283416)
	pt3dadd(175.681, 382.516, 25.9416, 0.57534)
	pt3dadd(175.435, 382.901, 26.2316, 0.323832)
	pt3dadd(175.276, 383.183, 26.2287, 0.2)
	pt3dadd(174.979, 383.589, 26.0776, 0.559304)
	pt3dadd(174.775, 383.819, 25.8106, 0.810004)
	pt3dadd(174.38, 384.155, 25.2833, 0.980146)
	pt3dadd(173.848, 384.303, 25.014, 0.865352)
	pt3dadd(173.486, 384.693, 24.8764, 0.549716)
	pt3dadd(173.237, 385.031, 24.7657, 0.583326)
	pt3dadd(172.911, 385.167, 24.6711, 0.357242)
	pt3dadd(172.62, 385.272, 24.6014, 0.271216)
	pt3dadd(172.374, 385.333, 24.5741, 0.2)
	pt3dadd(172.106, 385.45, 24.3977, 0.279922)
	pt3dadd(171.958, 385.42, 24.2467, 0.207144)
	pt3dadd(171.62, 385.41, 24.0587, 0.417384)
	pt3dadd(171.202, 385.555, 24.0329, 0.76389)
	pt3dadd(170.774, 385.342, 23.9296, 0.954708)
	pt3dadd(170.146, 385.25, 23.6648, 0.917446)
	pt3dadd(168.388, 387.297, 22.2906, 0.504914)
	pt3dadd(168.225, 387.638, 22.218, 0.492042)
	pt3dadd(167.839, 387.874, 22.1334, 0.490818)
	pt3dadd(167.271, 388.127, 22.0801, 0.67874)
	pt3dadd(167.075, 388.384, 21.7097, 0.878812)
	pt3dadd(166.795, 388.664, 21.1264, 0.927906)
	pt3dadd(166.304, 388.921, 21.0821, 1.07289)
	pt3dadd(165.811, 389.563, 21.0515, 0.978854)
	pt3dadd(165.323, 390.419, 21.1971, 0.2)
	pt3dadd(165.167, 390.632, 21.3147, 0.247428)
	pt3dadd(164.12, 391.978, 20.751, 0.745126)
	pt3dadd(163.773, 392.12, 20.6442, 0.922504)
	pt3dadd(163.215, 392.785, 20.8622, 0.401952)
	pt3dadd(162.954, 392.979, 20.9109, 0.32628)
	pt3dadd(160.767, 393.975, 20.5109, 0.904702)
	pt3dadd(160.104, 394.254, 20.4319, 0.903512)
	pt3dadd(159.556, 394.351, 20.5582, 0.429238)
	pt3dadd(159.337, 394.417, 20.5873, 0.2)
	pt3dadd(157.337, 395.01, 20.299, 0.707244)
	pt3dadd(156.907, 395.357, 20.1224, 0.440652)
	pt3dadd(156.476, 395.507, 19.993, 0.2)
	pt3dadd(156.122, 395.855, 19.9722, 0.427876)
  }
}
proc shape3d_46() {
  dend[87] {	pt3dadd(155.684, 396.102, 19.8253, 0.543708)
	pt3dadd(155.375, 396.308, 19.7838, 0.657222)
	pt3dadd(155.145, 396.643, 19.7625, 0.712976)
	pt3dadd(154.751, 396.85, 19.7237, 0.923416)
	pt3dadd(152.602, 400.858, 19.7138, 0.835696)
	pt3dadd(152.571, 401.257, 19.3592, 1.07081)
	pt3dadd(152.433, 403.808, 18.9575, 0.83287)
	pt3dadd(153.14, 407.189, 17.936, 0.983018)
	pt3dadd(153.215, 407.69, 17.471, 0.779406)
	pt3dadd(153.126, 410.015, 17.1241, 0.52329)
	pt3dadd(153.09, 410.302, 16.926, 0.828026)
	pt3dadd(153.397, 411.349, 16.2391, 1.32356)
	pt3dadd(153.17, 411.799, 15.7493, 0.794354)
	pt3dadd(153.022, 412.093, 15.4055, 1.06916)
	pt3dadd(152.923, 412.713, 15.3518, 0.504832)
	pt3dadd(152.785, 413.024, 15.3535, 0.408196)
	pt3dadd(152.488, 413.221, 15.3629, 0.36038)
	pt3dadd(152.128, 413.219, 15.8511, 0.421772)
  }
  dend_6[48] {pt3dclear()
	pt3dadd(152.128, 413.219, 15.8511, 0.421772)
	pt3dadd(152.093, 413.234, 16.0255, 0.40862)
  }
  dend[88] {pt3dclear()
	pt3dadd(291.931, 304.898, 43.555, 2.64839)
	pt3dadd(293.327, 305.785, 43.5599, 2.17752)
	pt3dadd(294.49, 306.784, 43.6616, 1.9891)
	pt3dadd(295.263, 307.458, 43.7949, 2.02877)
	pt3dadd(296.054, 308.221, 43.8268, 2.26171)
  }
  dend_5[38] {pt3dclear()
	pt3dadd(296.054, 308.221, 43.8268, 2.26171)
	pt3dadd(297.059, 309.113, 43.6907, 2.17631)
  }
  dend[89] {pt3dclear()
	pt3dadd(297.059, 309.113, 43.6907, 2.17631)
	pt3dadd(298.188, 308.737, 44.2609, 0.454434)
	pt3dadd(298.469, 308.619, 44.3541, 0.2)
	pt3dadd(298.656, 308.584, 44.4446, 0.2)
	pt3dadd(298.874, 308.512, 44.4476, 0.305512)
	pt3dadd(299.07, 308.438, 44.462, 0.450422)
	pt3dadd(299.326, 308.389, 44.4549, 0.485914)
	pt3dadd(299.595, 308.361, 44.4821, 0.739672)
	pt3dadd(300.123, 308.201, 44.6071, 0.704114)
	pt3dadd(300.724, 308.075, 44.7826, 0.469758)
	pt3dadd(301.06, 308.068, 44.8578, 0.477536)
	pt3dadd(301.388, 308.056, 44.9423, 0.514014)
	pt3dadd(301.692, 308.023, 45.0485, 0.726542)
	pt3dadd(302.069, 307.851, 45.1255, 0.486636)
	pt3dadd(302.476, 307.753, 45.1244, 0.357542)
	pt3dadd(302.746, 307.6, 45.1706, 0.397572)
	pt3dadd(303.054, 307.476, 45.1882, 0.523586)
	pt3dadd(303.416, 307.332, 45.1951, 0.614204)
	pt3dadd(303.867, 307.333, 45.2385, 0.898902)
	pt3dadd(304.496, 306.982, 45.3678, 0.998098)
	pt3dadd(305.33, 306.912, 45.6649, 0.891362)
	pt3dadd(305.775, 306.929, 45.9132, 1.09642)
	pt3dadd(306.717, 306.691, 46.0293, 0.57669)
	pt3dadd(307.139, 306.601, 46.0536, 0.438652)
	pt3dadd(307.445, 306.494, 46.1005, 0.538544)
	pt3dadd(307.782, 306.452, 46.1198, 0.649148)
	pt3dadd(308.451, 306.507, 46.2298, 0.884186)
	pt3dadd(309.254, 306.323, 46.4863, 0.955778)
	pt3dadd(309.758, 306.19, 46.4057, 0.794088)
	pt3dadd(310.193, 306.079, 46.4285, 1.0941)
	pt3dadd(310.752, 305.931, 46.6733, 1.10593)
	pt3dadd(311.463, 305.788, 47.127, 0.992592)
	pt3dadd(312.015, 305.63, 46.9958, 0.74913)
	pt3dadd(312.476, 305.605, 47.003, 0.59457)
	pt3dadd(313.026, 305.551, 46.9857, 0.37467)
	pt3dadd(313.288, 305.538, 46.991, 0.452338)
	pt3dadd(313.642, 305.524, 47.0124, 0.450058)
	pt3dadd(313.964, 305.483, 47.0744, 0.485596)
	pt3dadd(314.244, 305.401, 47.1432, 0.587782)
	pt3dadd(314.594, 305.395, 47.1858, 0.641534)
	pt3dadd(315.236, 305.326, 47.2223, 0.529266)
	pt3dadd(315.51, 305.293, 47.2867, 0.581542)
	pt3dadd(315.817, 305.233, 47.387, 0.692228)
	pt3dadd(316.344, 305.174, 47.2694, 0.76068)
	pt3dadd(316.775, 305.274, 47.31, 0.854354)
	pt3dadd(317.619, 305.107, 47.4237, 1.00104)
	pt3dadd(318.347, 305.162, 47.513, 1.06105)
	pt3dadd(319.127, 305.248, 47.6157, 1.12752)
	pt3dadd(319.959, 305.262, 47.6974, 1.23597)
	pt3dadd(320.746, 305.155, 47.7447, 0.92744)
	pt3dadd(321.597, 305.289, 47.9491, 0.883746)
	pt3dadd(322.339, 305.233, 48.0943, 1.1378)
	pt3dadd(323.483, 305.55, 48.4986, 0.919386)
	pt3dadd(324.19, 305.376, 48.6118, 0.450694)
	pt3dadd(324.596, 305.262, 48.5535, 0.53769)
	pt3dadd(324.982, 305.221, 48.5442, 0.712128)
	pt3dadd(325.479, 305.114, 48.8549, 0.521292)
	pt3dadd(325.821, 304.962, 49.0773, 0.471534)
	pt3dadd(326.111, 304.849, 49.2814, 0.45818)
	pt3dadd(326.408, 304.68, 49.4058, 0.559478)
	pt3dadd(326.747, 304.535, 49.4675, 0.683508)
	pt3dadd(327.143, 304.399, 49.5356, 0.826226)
	pt3dadd(327.535, 304.099, 49.7059, 0.921704)
	pt3dadd(328.298, 303.912, 49.6856, 0.582298)
	pt3dadd(328.84, 303.782, 50.0905, 0.528858)
	pt3dadd(329.128, 303.766, 50.335, 0.718976)
	pt3dadd(329.492, 303.65, 50.5454, 0.878294)
	pt3dadd(330.309, 303.644, 50.9802, 0.891518)
	pt3dadd(330.754, 303.571, 51.1719, 0.857248)
	pt3dadd(331.226, 303.683, 51.3871, 0.809512)
	pt3dadd(331.687, 303.813, 51.6636, 0.757354)
	pt3dadd(332.019, 303.824, 51.8939, 0.824528)
	pt3dadd(332.584, 304.056, 52.4178, 1.05237)
	pt3dadd(333.221, 303.488, 53.0595, 0.938466)
  }
  dend_5[39] {pt3dclear()
	pt3dadd(333.221, 303.488, 53.0595, 0.938466)
	pt3dadd(334.207, 303.307, 53.3677, 1.16082)
  }
  dend[90] {pt3dclear()
	pt3dadd(334.207, 303.307, 53.3677, 1.16082)
	pt3dadd(334.896, 303.262, 53.4823, 1.1996)
	pt3dadd(335.632, 303.034, 53.9319, 0.711762)
	pt3dadd(336.005, 302.914, 54.0056, 0.60113)
	pt3dadd(336.601, 302.608, 54.2113, 0.390402)
	pt3dadd(336.915, 302.427, 54.3252, 0.683316)
	pt3dadd(337.218, 302.356, 54.5265, 0.668246)
	pt3dadd(338.001, 302.107, 54.6848, 0.551434)
	pt3dadd(338.261, 302.037, 54.7733, 0.292868)
	pt3dadd(338.618, 301.998, 54.7725, 0.348358)
	pt3dadd(338.976, 301.97, 54.7828, 0.5615)
	pt3dadd(339.313, 301.913, 54.7712, 0.573334)
	pt3dadd(339.658, 301.823, 54.8037, 0.836058)
	pt3dadd(340.339, 301.67, 54.7097, 0.762022)
	pt3dadd(340.803, 301.404, 55.2452, 0.450122)
	pt3dadd(341.111, 301.293, 55.4272, 0.295936)
	pt3dadd(341.29, 301.076, 55.607, 0.6134)
	pt3dadd(341.682, 300.739, 55.9408, 1.0357)
	pt3dadd(341.99, 300.084, 56.2317, 1.13823)
	pt3dadd(342.482, 299.546, 56.7869, 0.697694)
	pt3dadd(342.785, 299.519, 57.0338, 0.634618)
	pt3dadd(342.978, 299.365, 57.2349, 0.544942)
	pt3dadd(343.241, 299.197, 57.4873, 0.809796)
	pt3dadd(343.822, 298.908, 58.1838, 0.529664)
	pt3dadd(344.115, 298.938, 58.4031, 0.686592)
	pt3dadd(344.383, 298.836, 58.6094, 0.849418)
	pt3dadd(345.04, 298.61, 59.0217, 0.928982)
	pt3dadd(345.947, 298.562, 59.7195, 0.249756)
	pt3dadd(346.195, 298.599, 59.765, 0.2)
	pt3dadd(346.499, 298.606, 59.8162, 0.319462)
	pt3dadd(346.736, 298.799, 59.9084, 0.731904)
	pt3dadd(347.31, 298.452, 60.1587, 0.486598)
	pt3dadd(347.546, 298.233, 60.3776, 0.43105)
	pt3dadd(347.851, 298.093, 60.5384, 0.493798)
	pt3dadd(348.294, 297.881, 60.5627, 0.956642)
	pt3dadd(349.028, 297.631, 60.5971, 0.481806)
	pt3dadd(349.526, 297.665, 60.7495, 1.44684)
	pt3dadd(350.511, 297.732, 61.5808, 1.04581)
	pt3dadd(351.092, 297.397, 62.0891, 0.583232)
	pt3dadd(351.358, 297.193, 62.3195, 0.733276)
	pt3dadd(351.628, 297.082, 62.6337, 0.691612)
	pt3dadd(351.856, 296.924, 62.987, 0.695)
	pt3dadd(351.978, 296.541, 63.1686, 0.2)
	pt3dadd(352.067, 296.311, 63.407, 0.599628)
	pt3dadd(352.087, 296.279, 63.7667, 0.636436)
	pt3dadd(352.084, 296.115, 64.4192, 0.937592)
	pt3dadd(352.001, 296.061, 65.3289, 0.946924)
	pt3dadd(352.092, 296.142, 65.7955, 0.682726)
	pt3dadd(352.284, 296.146, 66.4454, 0.528344)
	pt3dadd(352.371, 295.967, 66.7884, 0.533034)
	pt3dadd(352.7, 295.86, 67.2033, 0.760482)
	pt3dadd(353.07, 295.797, 67.5293, 0.827064)
	pt3dadd(353.477, 296.093, 67.8155, 1.38638)
	pt3dadd(353.895, 295.772, 68.5733, 0.97207)
	pt3dadd(353.704, 295.465, 69.3284, 0.656978)
	pt3dadd(354.271, 295.277, 69.6915, 0.387572)
	pt3dadd(354.45, 295.098, 69.9685, 0.437916)
	pt3dadd(354.59, 295.023, 70.1955, 0.358586)
	pt3dadd(354.778, 294.841, 70.3268, 0.263568)
	pt3dadd(355.072, 294.72, 70.4861, 0.481294)
	pt3dadd(355.388, 294.661, 70.6823, 0.815356)
	pt3dadd(355.596, 294.617, 71.2801, 0.929282)
	pt3dadd(356.148, 294.255, 71.7408, 1.31822)
	pt3dadd(363.304, 290.597, 76.6528, 0.698348)
	pt3dadd(363.98, 290.564, 77.138, 1.13828)
	pt3dadd(364.747, 290.32, 77.4857, 0.962716)
	pt3dadd(365.173, 290.286, 77.781, 0.884674)
	pt3dadd(365.367, 290.298, 77.9739, 0.588324)
	pt3dadd(366.69, 290.193, 77.9757, 0.384338)
	pt3dadd(367.171, 289.86, 78.4823, 0.75628)
	pt3dadd(368.238, 290.142, 78.8163, 0.679964)
	pt3dadd(368.533, 290.219, 79.0275, 0.496534)
	pt3dadd(369.214, 289.967, 79.4271, 0.935786)
	pt3dadd(369.608, 289.893, 79.8621, 0.936096)
	pt3dadd(370.058, 289.88, 80.265, 0.591608)
	pt3dadd(370.519, 289.947, 80.605, 0.421864)
	pt3dadd(370.83, 289.852, 80.7777, 0.256666)
	pt3dadd(371.052, 289.816, 80.9109, 0.238636)
	pt3dadd(371.269, 289.764, 81.0569, 0.302674)
	pt3dadd(371.816, 289.818, 81.2189, 0.69082)
	pt3dadd(372.088, 289.83, 81.503, 0.68373)
	pt3dadd(372.539, 289.486, 82.0018, 0.802908)
	pt3dadd(376.4, 289.294, 84.7178, 0.570292)
	pt3dadd(376.553, 289.163, 84.9628, 0.548944)
	pt3dadd(377.006, 289.143, 85.1737, 0.561778)
	pt3dadd(377.541, 289.34, 85.188, 0.90736)
	pt3dadd(378.011, 289.745, 85.7986, 1.21035)
	pt3dadd(378.446, 289.727, 86.2253, 0.893894)
	pt3dadd(378.951, 289.542, 86.7084, 0.554502)
	pt3dadd(379.174, 289.446, 87.0377, 0.426732)
	pt3dadd(382.841, 288.369, 88.5326, 0.703338)
	pt3dadd(383.1, 288.354, 89.0115, 0.95171)
	pt3dadd(386.378, 288.168, 93.5682, 0.741648)
	pt3dadd(386.979, 288.348, 93.777, 0.221178)
	pt3dadd(387.319, 287.961, 93.9629, 0.512294)
	pt3dadd(392.509, 288.718, 98.1515, 0.519338)
	pt3dadd(392.763, 288.748, 98.2698, 0.369652)
  }
}
proc shape3d_47() {
  dend[90] {	pt3dadd(392.973, 288.798, 98.4439, 0.2)
	pt3dadd(393.492, 288.876, 98.665, 0.612214)
	pt3dadd(393.869, 288.753, 98.9012, 0.2)
	pt3dadd(394.271, 288.711, 99.2171, 0.943524)
	pt3dadd(395.039, 288.444, 99.6813, 0.350854)
	pt3dadd(395.302, 288.292, 99.9458, 0.56185)
	pt3dadd(395.817, 288.17, 100.162, 0.473002)
	pt3dadd(396.096, 288.024, 100.328, 0.403404)
	pt3dadd(399.512, 286.102, 102.016, 0.850424)
	pt3dadd(399.745, 286.138, 102.376, 0.915014)
	pt3dadd(400.642, 286.527, 102.527, 0.509324)
	pt3dadd(401.152, 286.368, 102.878, 0.418134)
	pt3dadd(407.522, 285.969, 104.223, 0.503196)
	pt3dadd(407.999, 286.022, 104.417, 0.718292)
	pt3dadd(408.352, 286.166, 104.566, 0.785158)
	pt3dadd(408.907, 285.907, 104.542, 0.2)
	pt3dadd(409.249, 285.79, 104.508, 0.2)
	pt3dadd(409.725, 285.884, 104.374, 0.553196)
	pt3dadd(410.255, 285.804, 104.628, 0.222828)
	pt3dadd(410.461, 285.796, 104.733, 0.2)
	pt3dadd(414.895, 285.989, 106.221, 0.677188)
	pt3dadd(415.298, 286.15, 106.166, 1.13397)
	pt3dadd(416.007, 286.209, 105.956, 1.16907)
	pt3dadd(416.736, 286.196, 105.934, 0.781842)
	pt3dadd(417.604, 285.996, 106.302, 0.2)
	pt3dadd(417.865, 285.952, 106.392, 0.2)
	pt3dadd(418.144, 285.916, 106.523, 0.504798)
	pt3dadd(418.41, 285.984, 106.72, 0.694396)
	pt3dadd(419.509, 286.007, 107.05, 0.2)
	pt3dadd(419.73, 286.009, 107.279, 0.272202)
	pt3dadd(423.647, 287.14, 110.791, 0.523674)
	pt3dadd(426.441, 288.697, 113.206, 0.2)
	pt3dadd(427.257, 289.383, 113.923, 0.726586)
	pt3dadd(427.494, 289.602, 114.112, 0.685682)
	pt3dadd(427.857, 289.686, 114.391, 0.44192)
	pt3dadd(428.174, 289.615, 114.444, 0.489662)
	pt3dadd(428.744, 290.003, 114.663, 0.909674)
	pt3dadd(441.101, 291.007, 119.679, 0.68668)
	pt3dadd(441.439, 291.284, 119.415, 0.49134)
	pt3dadd(443.047, 292.97, 120.873, 0.84488)
	pt3dadd(446.704, 295.206, 121.892, 0.538574)
	pt3dadd(446.893, 295.718, 121.957, 0.619192)
	pt3dadd(447.105, 296.022, 121.996, 0.2)
	pt3dadd(447.195, 296.258, 122.033, 0.320492)
	pt3dadd(447.324, 296.459, 122.244, 0.396148)
	pt3dadd(447.507, 296.758, 122.299, 0.2)
	pt3dadd(447.586, 297.148, 122.223, 0.570388)
	pt3dadd(447.807, 297.472, 122.263, 0.731936)
	pt3dadd(448.023, 297.682, 122.676, 0.610214)
	pt3dadd(451.39, 300.207, 124.231, 0.785274)
	pt3dadd(451.734, 300.429, 124.607, 0.785414)
	pt3dadd(451.869, 300.689, 124.989, 0.54063)
  }
  dend_6[49] {pt3dclear()
	pt3dadd(451.869, 300.689, 124.989, 0.54063)
	pt3dadd(455.386, 302.466, 124.55, 0.2)
  }
  dend[91] {pt3dclear()
	pt3dadd(334.207, 303.307, 53.3677, 1.16082)
	pt3dadd(334.9, 304.124, 53.4551, 1.26489)
	pt3dadd(335.724, 304.481, 53.5534, 0.50486)
	pt3dadd(335.937, 304.74, 53.65, 0.392004)
	pt3dadd(336.143, 304.828, 53.7193, 0.362198)
	pt3dadd(336.395, 304.97, 53.6315, 0.376248)
	pt3dadd(336.672, 305.236, 53.4893, 0.690378)
	pt3dadd(336.956, 305.397, 53.8705, 0.580144)
	pt3dadd(337.121, 305.562, 54.0855, 0.47894)
	pt3dadd(337.379, 305.778, 54.2974, 0.392852)
	pt3dadd(337.531, 306.041, 54.4736, 0.378716)
	pt3dadd(337.711, 306.256, 54.6275, 0.598682)
	pt3dadd(337.863, 306.527, 54.7479, 0.824084)
	pt3dadd(338.564, 306.842, 54.8864, 0.69417)
	pt3dadd(338.934, 306.945, 54.9692, 0.796802)
	pt3dadd(339.623, 307.118, 55.1744, 0.753716)
	pt3dadd(340.062, 307.283, 55.1236, 0.574388)
	pt3dadd(340.406, 307.485, 55.0021, 0.527546)
	pt3dadd(340.933, 307.786, 55.1255, 0.2)
	pt3dadd(341.149, 308.006, 55.0613, 0.361794)
	pt3dadd(341.495, 308.17, 54.9921, 0.878296)
	pt3dadd(342.204, 308.297, 55.1042, 1.28464)
	pt3dadd(343.186, 308.421, 55.1715, 0.557802)
	pt3dadd(343.507, 308.445, 55.1625, 0.607618)
	pt3dadd(343.881, 308.511, 55.1705, 0.79459)
	pt3dadd(344.171, 308.809, 55.235, 1.19809)
	pt3dadd(345.201, 309.431, 55.1934, 0.45799)
	pt3dadd(345.6, 309.592, 55.1172, 0.2)
	pt3dadd(345.888, 309.642, 55.1033, 0.307482)
	pt3dadd(346.056, 309.719, 55.0553, 0.436984)
	pt3dadd(346.283, 309.723, 54.9995, 0.409044)
	pt3dadd(346.541, 309.676, 54.9319, 0.531384)
	pt3dadd(346.866, 309.799, 54.8837, 0.51321)
	pt3dadd(347.114, 309.939, 54.8813, 0.458924)
	pt3dadd(347.462, 310.087, 54.9639, 0.2)
	pt3dadd(347.656, 310.286, 55.0474, 0.2)
	pt3dadd(347.874, 310.464, 55.02, 0.2)
	pt3dadd(348.01, 310.673, 54.9487, 0.548296)
	pt3dadd(348.561, 310.804, 55.1188, 0.710146)
	pt3dadd(348.967, 311.002, 55.228, 1.34943)
	pt3dadd(349.599, 311.885, 55.5719, 1.40265)
	pt3dadd(350.249, 312.402, 55.9684, 0.586842)
	pt3dadd(351.119, 312.496, 55.912, 0.763522)
	pt3dadd(351.507, 312.394, 56.0835, 0.800002)
	pt3dadd(351.879, 312.509, 56.1998, 0.497726)
	pt3dadd(352.233, 312.534, 56.2252, 0.425932)
	pt3dadd(352.503, 312.7, 56.0213, 0.287608)
	pt3dadd(352.669, 312.904, 55.8154, 0.398064)
	pt3dadd(352.992, 312.798, 56.2419, 0.2)
	pt3dadd(353.201, 312.88, 56.3769, 0.227962)
	pt3dadd(353.393, 312.967, 56.5299, 0.2)
	pt3dadd(353.512, 313.2, 56.6915, 0.2)
	pt3dadd(353.88, 313.141, 56.6873, 0.620528)
	pt3dadd(354.241, 313.237, 56.7131, 0.82517)
	pt3dadd(355.151, 313.27, 57.0148, 0.951778)
	pt3dadd(355.877, 313.692, 57.1793, 0.501018)
	pt3dadd(355.986, 314.02, 57.2487, 0.528248)
	pt3dadd(356.3, 314.262, 57.4471, 0.241818)
	pt3dadd(356.58, 314.426, 57.6282, 0.322412)
	pt3dadd(356.811, 314.56, 57.7757, 0.409198)
	pt3dadd(357.077, 314.732, 57.8416, 0.318838)
	pt3dadd(357.425, 314.843, 57.762, 0.320866)
	pt3dadd(357.743, 314.883, 57.7559, 0.406214)
	pt3dadd(358.071, 314.899, 57.8349, 0.514924)
	pt3dadd(358.357, 314.893, 57.9969, 0.511396)
	pt3dadd(358.762, 314.88, 57.9088, 0.486834)
	pt3dadd(359.325, 314.884, 57.8668, 1.05784)
	pt3dadd(360.146, 314.887, 57.9035, 0.6885)
	pt3dadd(361.003, 315.282, 57.9819, 0.883092)
	pt3dadd(361.684, 315.7, 58.2211, 0.736222)
	pt3dadd(362.001, 315.934, 58.3555, 0.909768)
	pt3dadd(362.318, 316.233, 58.5127, 1.12911)
	pt3dadd(362.826, 316.608, 58.2582, 0.733642)
	pt3dadd(363.437, 316.868, 58.5851, 0.367276)
	pt3dadd(363.718, 316.998, 58.6797, 0.315084)
	pt3dadd(364.028, 317.278, 58.7091, 0.227616)
	pt3dadd(364.209, 317.576, 58.7436, 0.475098)
	pt3dadd(364.455, 317.791, 58.8197, 0.718688)
	pt3dadd(364.901, 318.013, 58.8623, 0.271706)
	pt3dadd(365.21, 318.149, 58.819, 0.54014)
	pt3dadd(365.601, 318.306, 58.762, 0.87583)
	pt3dadd(365.857, 318.636, 58.9145, 1.20869)
	pt3dadd(366.905, 319.145, 59.2194, 0.574592)
	pt3dadd(367.49, 319.444, 59.4436, 0.220288)
	pt3dadd(367.759, 319.596, 59.5647, 0.2)
	pt3dadd(367.965, 319.832, 59.6846, 0.3202)
	pt3dadd(368.163, 320.003, 59.7711, 0.453708)
	pt3dadd(368.409, 320.235, 59.7531, 0.567266)
	pt3dadd(368.757, 320.428, 59.7375, 0.794188)
	pt3dadd(369.135, 320.633, 59.6855, 1.14968)
	pt3dadd(369.978, 321.047, 59.9274, 1.13455)
	pt3dadd(370.353, 321.58, 59.9881, 0.726474)
	pt3dadd(370.7, 321.806, 60.069, 0.655126)
	pt3dadd(371.041, 321.903, 60.2111, 0.60096)
	pt3dadd(371.336, 321.977, 60.4477, 0.7529)
	pt3dadd(372.481, 322.545, 60.7098, 0.21577)
	pt3dadd(372.681, 322.616, 60.6918, 0.2)
	pt3dadd(372.984, 322.709, 60.7495, 0.2)
	pt3dadd(373.291, 322.932, 60.8356, 0.432524)
	pt3dadd(373.768, 323.141, 60.8601, 0.679504)
	pt3dadd(374.211, 323.137, 61.0562, 0.818166)
	pt3dadd(374.613, 323, 61.0456, 0.661246)
	pt3dadd(374.943, 322.916, 61.1304, 0.58587)
	pt3dadd(375.297, 322.878, 61.2171, 0.687224)
	pt3dadd(376.034, 323.119, 61.4582, 0.979298)
	pt3dadd(376.708, 323.576, 61.6102, 0.60556)
	pt3dadd(376.997, 323.879, 61.6142, 0.824536)
	pt3dadd(379.158, 325.148, 61.6543, 0.459898)
	pt3dadd(379.493, 325.266, 61.8681, 0.2)
	pt3dadd(380.046, 325.707, 62.2708, 0.562348)
	pt3dadd(381.362, 326.806, 62.9523, 0.335724)
	pt3dadd(383.208, 327.586, 64, 0.2)
	pt3dadd(383.444, 327.797, 64.0459, 0.748908)
	pt3dadd(383.908, 328.101, 64.6091, 0.644566)
	pt3dadd(383.992, 328.562, 64.9517, 0.678592)
	pt3dadd(384.085, 328.965, 65.2013, 0.890052)
	pt3dadd(384.33, 329.178, 65.3373, 0.640768)
	pt3dadd(384.646, 329.593, 65.4805, 0.596316)
	pt3dadd(384.832, 329.789, 65.5866, 0.393584)
	pt3dadd(385.034, 330.057, 65.7371, 0.367256)
	pt3dadd(385.228, 330.418, 65.8537, 0.296778)
	pt3dadd(385.414, 330.633, 65.9863, 0.374068)
	pt3dadd(385.59, 330.782, 66.1092, 0.398778)
	pt3dadd(385.87, 330.969, 66.1672, 0.348324)
	pt3dadd(386.76, 332.44, 66.799, 0.85018)
	pt3dadd(387.126, 332.62, 66.9413, 0.863374)
	pt3dadd(387.734, 333.321, 66.9433, 1.35985)
	pt3dadd(388.055, 334.067, 67.4008, 1.35991)
	pt3dadd(388.397, 334.425, 67.6685, 0.938796)
	pt3dadd(388.556, 334.734, 67.8724, 0.796802)
	pt3dadd(388.915, 335.025, 67.9148, 0.2)
	pt3dadd(389.195, 335.194, 68.0173, 0.494278)
	pt3dadd(389.338, 335.316, 68.3148, 0.571608)
	pt3dadd(389.789, 335.596, 68.5858, 0.433818)
	pt3dadd(389.974, 335.865, 68.7416, 0.2)
	pt3dadd(390.146, 336.138, 68.686, 0.249154)
	pt3dadd(390.338, 336.458, 68.7617, 0.581478)
	pt3dadd(390.519, 336.724, 68.8931, 0.58354)
	pt3dadd(393.581, 341.827, 69.7842, 0.556966)
	pt3dadd(393.803, 341.921, 70.1777, 0.553222)
	pt3dadd(394.251, 342.165, 70.3355, 0.541584)
	pt3dadd(394.432, 342.529, 70.4142, 0.803498)
	pt3dadd(394.72, 342.847, 70.5523, 0.80395)
	pt3dadd(394.915, 343.265, 70.4766, 0.87916)
	pt3dadd(394.92, 343.705, 70.4257, 0.958522)
	pt3dadd(403.347, 351.095, 70.8098, 0.547046)
  }
}
proc shape3d_48() {
  dend[91] {	pt3dadd(403.707, 351.496, 70.9608, 0.2)
	pt3dadd(403.788, 351.718, 70.8623, 0.215512)
	pt3dadd(403.986, 351.906, 70.8319, 0.278342)
	pt3dadd(404.386, 352.164, 70.9041, 0.501478)
	pt3dadd(405.108, 353.004, 71.2028, 0.56607)
	pt3dadd(405.281, 353.224, 71.1974, 0.346028)
	pt3dadd(405.759, 353.332, 71.4302, 0.384332)
	pt3dadd(406.011, 353.4, 71.4604, 0.2)
	pt3dadd(406.27, 353.444, 71.4871, 0.308634)
	pt3dadd(407.379, 353.725, 71.6211, 1.55897)
	pt3dadd(407.827, 354.166, 71.8216, 1.29177)
	pt3dadd(409.696, 355.471, 72.3738, 0.70756)
	pt3dadd(410.048, 355.852, 72.5263, 0.2)
	pt3dadd(410.301, 355.969, 72.5352, 0.259664)
	pt3dadd(411.582, 356.595, 72.4786, 0.636568)
	pt3dadd(413.158, 357.327, 72.6765, 0.69873)
	pt3dadd(413.297, 357.598, 73.1275, 0.551456)
	pt3dadd(415.484, 358.613, 73.5792, 1.09694)
	pt3dadd(416.202, 358.869, 74.111, 0.960638)
	pt3dadd(417.755, 359.131, 73.5806, 0.255648)
	pt3dadd(418.119, 359.147, 74.6975, 0.2)
	pt3dadd(418.315, 359.205, 74.8518, 0.283244)
	pt3dadd(418.626, 359.323, 75.01, 0.503276)
	pt3dadd(418.98, 359.293, 74.9232, 0.595706)
	pt3dadd(419.491, 359.481, 75.2024, 0.86464)
	pt3dadd(419.998, 359.868, 75.1397, 0.512824)
	pt3dadd(420.457, 360.162, 75.1562, 0.854096)
	pt3dadd(424.165, 361.796, 76.3189, 0.300392)
	pt3dadd(424.456, 361.888, 76.4513, 0.507832)
	pt3dadd(424.672, 361.955, 76.62, 0.478864)
	pt3dadd(424.913, 361.961, 76.8016, 0.448316)
	pt3dadd(425.202, 362.136, 77.1875, 0.520814)
	pt3dadd(425.595, 362.218, 77.2545, 0.233764)
	pt3dadd(425.828, 362.393, 77.3456, 0.2)
	pt3dadd(426.192, 362.521, 77.3573, 0.451934)
	pt3dadd(426.572, 362.674, 77.6494, 0.980592)
	pt3dadd(426.951, 363.364, 77.9661, 0.72657)
	pt3dadd(427.306, 363.711, 78.0228, 0.958994)
	pt3dadd(427.829, 363.856, 78.1049, 1.31529)
	pt3dadd(428.445, 364.283, 78.0447, 0.601884)
	pt3dadd(428.832, 364.383, 78.0779, 0.214524)
	pt3dadd(430.114, 365.027, 78.3224, 0.643696)
	pt3dadd(430.333, 365.192, 78.2488, 0.535898)
	pt3dadd(430.571, 365.416, 78.2, 0.2)
	pt3dadd(432.55, 366.66, 78.8498, 0.340404)
	pt3dadd(432.918, 366.744, 78.6568, 0.654502)
	pt3dadd(435.501, 368.265, 79.8686, 0.845726)
	pt3dadd(441.477, 372.901, 79.8, 0.2)
	pt3dadd(444.48, 373.753, 79.9062, 0.68469)
	pt3dadd(448.446, 374.113, 80.2383, 0.2)
	pt3dadd(449.042, 374.141, 80.0756, 0.506774)
	pt3dadd(449.461, 374.161, 80.4276, 0.831986)
  }
  dend_6[50] {pt3dclear()
	pt3dadd(449.461, 374.161, 80.4276, 0.831986)
	pt3dadd(449.75, 373.96, 80.6169, 0.773734)
  }
  dend[92] {pt3dclear()
	pt3dadd(297.059, 309.113, 43.6907, 2.17631)
	pt3dadd(297.591, 310.157, 43.4953, 1.64333)
	pt3dadd(298.02, 311.082, 43.4522, 1.61846)
	pt3dadd(298.448, 312.052, 43.4353, 1.76729)
	pt3dadd(298.773, 312.996, 43.4805, 1.92428)
  }
  dend_5[40] {pt3dclear()
	pt3dadd(298.773, 312.996, 43.4805, 1.92428)
	pt3dadd(299.52, 314.717, 43.4023, 1.81706)
  }
  dend[93] {pt3dclear()
	pt3dadd(299.52, 314.717, 43.4023, 1.81706)
	pt3dadd(299.38, 315.521, 44.2826, 0.70165)
	pt3dadd(299.304, 315.863, 44.4808, 0.41861)
	pt3dadd(299.338, 316.124, 44.6525, 0.432088)
	pt3dadd(299.39, 316.38, 44.8156, 0.597524)
	pt3dadd(299.245, 316.791, 45.123, 0.689422)
	pt3dadd(299.191, 317.386, 45.3593, 0.62268)
	pt3dadd(299.176, 317.666, 45.5629, 0.74817)
	pt3dadd(299.299, 318.012, 45.8134, 0.640266)
	pt3dadd(299.469, 318.248, 45.9701, 0.586544)
	pt3dadd(299.553, 318.522, 46.1505, 0.698692)
	pt3dadd(299.645, 318.808, 46.4285, 0.729936)
	pt3dadd(299.455, 319.37, 46.8125, 0.951118)
	pt3dadd(299.22, 319.982, 47.1782, 0.785836)
	pt3dadd(299.204, 320.472, 47.6487, 0.886528)
	pt3dadd(299.1, 320.897, 47.8754, 0.590118)
	pt3dadd(298.923, 321.429, 48.226, 0.55335)
	pt3dadd(298.962, 321.729, 48.4122, 0.749244)
	pt3dadd(298.829, 322.215, 48.8869, 0.928278)
	pt3dadd(298.7, 322.597, 49.5649, 0.888874)
	pt3dadd(298.53, 322.968, 49.9914, 0.76903)
	pt3dadd(298.243, 323.048, 50.2556, 0.496536)
	pt3dadd(297.981, 323.291, 50.5017, 0.29683)
	pt3dadd(297.89, 323.567, 50.6862, 0.410174)
	pt3dadd(297.836, 323.773, 50.9251, 0.527128)
	pt3dadd(297.867, 323.933, 51.2105, 0.711028)
	pt3dadd(297.875, 324.199, 51.8713, 0.954686)
	pt3dadd(297.724, 324.521, 52.6385, 1.15492)
	pt3dadd(297.515, 324.983, 53.3342, 0.712944)
	pt3dadd(297.359, 325.161, 53.7131, 0.554404)
	pt3dadd(297.289, 325.255, 53.9708, 0.531914)
	pt3dadd(297.204, 325.433, 54.4195, 0.583274)
	pt3dadd(297.212, 325.614, 54.9347, 0.729088)
	pt3dadd(297.069, 325.801, 55.2565, 0.760102)
	pt3dadd(296.807, 326.004, 55.8318, 0.741822)
	pt3dadd(296.782, 326.127, 56.1887, 0.95212)
	pt3dadd(296.885, 326.482, 56.667, 0.986266)
	pt3dadd(297.202, 326.92, 57.2912, 1.07651)
	pt3dadd(297.333, 327.612, 58.2263, 0.907204)
	pt3dadd(297.394, 327.783, 58.6567, 1.06272)
	pt3dadd(297.498, 328.211, 59.3438, 1.15481)
	pt3dadd(297.579, 328.711, 60.1342, 0.874414)
	pt3dadd(297.682, 329.067, 60.7721, 0.632978)
	pt3dadd(297.86, 329.276, 60.9538, 0.249326)
	pt3dadd(297.819, 329.386, 61.4352, 0.335292)
	pt3dadd(297.64, 329.383, 61.6538, 0.22131)
	pt3dadd(297.563, 329.42, 61.8504, 0.336486)
	pt3dadd(297.499, 329.471, 62.0509, 0.448084)
	pt3dadd(297.405, 329.814, 62.4653, 0.290276)
	pt3dadd(297.361, 330.098, 62.6854, 0.356126)
	pt3dadd(297.27, 330.291, 62.882, 0.50976)
	pt3dadd(297.116, 330.503, 63.0756, 0.567918)
	pt3dadd(297.098, 330.699, 63.3429, 0.617194)
	pt3dadd(297.184, 330.878, 63.7181, 0.610586)
	pt3dadd(297.361, 331.025, 64.0441, 0.57955)
	pt3dadd(297.431, 331.207, 64.3831, 0.764784)
	pt3dadd(297.551, 331.508, 65.0097, 1.10161)
	pt3dadd(297.164, 331.465, 65.8639, 1.02403)
	pt3dadd(296.618, 331.474, 66.7566, 0.844514)
	pt3dadd(296.537, 331.985, 67.2209, 0.925298)
	pt3dadd(296.526, 332.545, 67.797, 0.875374)
	pt3dadd(296.331, 333.289, 68.0241, 0.937562)
	pt3dadd(296.341, 333.628, 68.6744, 1.05537)
	pt3dadd(296.263, 334.077, 69.3419, 1.10917)
	pt3dadd(296.383, 334.552, 70.1461, 1.2874)
	pt3dadd(296.276, 335.219, 70.8078, 0.540618)
	pt3dadd(296.283, 335.444, 71.0279, 0.553436)
	pt3dadd(296.237, 335.625, 71.2399, 0.732468)
	pt3dadd(296.152, 336.02, 71.8407, 1.07078)
	pt3dadd(296.427, 336.445, 72.5373, 1.33558)
  }
  dend[94] {pt3dclear()
	pt3dadd(296.427, 336.445, 72.5373, 1.33558)
	pt3dadd(295.804, 337.194, 73.0338, 0.2)
	pt3dadd(295.679, 337.368, 73.2286, 0.263072)
	pt3dadd(295.577, 337.552, 73.4443, 0.421112)
	pt3dadd(295.369, 337.658, 73.6796, 0.43241)
	pt3dadd(295.177, 337.803, 73.9687, 0.471566)
	pt3dadd(295.058, 338.068, 74.1693, 0.473076)
	pt3dadd(295.004, 338.29, 74.3593, 0.461538)
	pt3dadd(294.923, 338.541, 74.4898, 0.47408)
	pt3dadd(294.83, 338.876, 74.6806, 0.34461)
	pt3dadd(294.754, 339.177, 74.7818, 0.2)
	pt3dadd(294.177, 340.687, 74.9662, 0.257016)
	pt3dadd(294.015, 340.954, 75.1556, 0.634176)
	pt3dadd(293.873, 341.546, 76.0757, 1.0715)
	pt3dadd(293.107, 341.997, 76.7826, 0.2)
	pt3dadd(292.999, 342.299, 77.615, 0.2)
	pt3dadd(291.24, 346.687, 80.6067, 0.741136)
	pt3dadd(291.213, 347.126, 80.7606, 0.78003)
	pt3dadd(291.137, 347.487, 80.9407, 0.560686)
	pt3dadd(291.011, 347.85, 81.1457, 0.561194)
	pt3dadd(290.943, 348.2, 81.3204, 0.555362)
	pt3dadd(290.695, 348.431, 81.4987, 0.649866)
	pt3dadd(290.363, 348.665, 81.6151, 0.581934)
	pt3dadd(289.958, 348.713, 81.6377, 0.688992)
	pt3dadd(289.695, 348.907, 81.8197, 0.715806)
	pt3dadd(288.598, 351.841, 83.3161, 0.236416)
	pt3dadd(288.549, 351.94, 83.6229, 0.273418)
	pt3dadd(288.371, 352.079, 83.827, 0.24422)
	pt3dadd(287.828, 352.666, 84.1805, 0.927246)
	pt3dadd(287.966, 352.795, 84.6827, 1.20136)
	pt3dadd(287.791, 353.359, 85.255, 0.736478)
	pt3dadd(284.793, 356.669, 87.6, 0.2)
	pt3dadd(281.384, 361.433, 89.7115, 0.29267)
	pt3dadd(281.333, 361.613, 90.0064, 0.522216)
	pt3dadd(281.154, 361.932, 90.9007, 0.635558)
	pt3dadd(281.103, 362.176, 91.0134, 0.52066)
	pt3dadd(281.01, 362.371, 91.1883, 0.28673)
	pt3dadd(280.945, 362.607, 91.3766, 0.2)
	pt3dadd(280.722, 362.746, 91.7233, 0.337774)
	pt3dadd(280.537, 362.899, 92.0791, 0.533444)
	pt3dadd(280.452, 363, 92.3865, 0.603042)
	pt3dadd(280.571, 363.493, 93.0922, 1.32589)
	pt3dadd(280.393, 363.459, 93.4355, 0.746926)
	pt3dadd(279.995, 363.735, 93.6019, 0.750672)
	pt3dadd(280.151, 364.269, 93.8863, 0.668186)
	pt3dadd(267.702, 385.158, 113.866, 0.55075)
	pt3dadd(267.511, 385.277, 114.391, 0.72601)
	pt3dadd(267.347, 385.618, 114.8, 0.721066)
	pt3dadd(264.671, 388.565, 116.432, 0.715436)
	pt3dadd(264.418, 388.793, 116.498, 0.890122)
	pt3dadd(263.652, 389.257, 116.6, 0.848358)
	pt3dadd(263.551, 389.38, 116.4, 0.2)
	pt3dadd(254.932, 397.787, 124.839, 1.14146)
	pt3dadd(254.55, 398.127, 125.236, 0.895966)
	pt3dadd(254.279, 398.421, 125.61, 0.281058)
	pt3dadd(251.599, 403.861, 129.05, 0.842572)
	pt3dadd(250.088, 410.073, 132.097, 0.661328)
	pt3dadd(250.202, 410.882, 132.342, 0.454858)
	pt3dadd(250.083, 411.189, 132.758, 0.421302)
	pt3dadd(250.029, 411.345, 132.948, 0.40148)
  }
  dend_6[51] {pt3dclear()
	pt3dadd(250.029, 411.345, 132.948, 0.40148)
	pt3dadd(250.042, 411.444, 133.221, 0.256668)
  }
  dend[95] {pt3dclear()
	pt3dadd(296.427, 336.445, 72.5373, 1.33558)
	pt3dadd(299.104, 337.926, 74.3068, 0.649236)
	pt3dadd(299.437, 337.952, 74.6268, 0.963812)
	pt3dadd(300.279, 338.054, 75.1748, 0.928746)
	pt3dadd(301.044, 338.505, 75.3128, 0.753074)
	pt3dadd(301.454, 338.411, 75.335, 0.319194)
	pt3dadd(301.935, 338.344, 75.5017, 0.363892)
  }
}
proc shape3d_49() {
  dend[95] {	pt3dadd(302.161, 338.39, 75.6375, 0.307596)
	pt3dadd(302.372, 338.478, 75.787, 0.2)
	pt3dadd(302.573, 338.505, 75.9208, 0.325544)
	pt3dadd(302.821, 338.504, 76.1224, 0.543182)
	pt3dadd(303.314, 338.432, 76.6851, 0.860552)
	pt3dadd(303.798, 338.165, 76.9336, 0.648722)
	pt3dadd(304.272, 338.141, 76.9508, 0.528312)
	pt3dadd(304.74, 338.244, 77.0127, 0.791082)
	pt3dadd(305.094, 338.157, 77.2412, 0.440788)
	pt3dadd(305.46, 338.104, 77.3416, 0.575928)
	pt3dadd(305.802, 338.145, 77.4625, 0.623684)
	pt3dadd(306.372, 338.687, 77.783, 0.995118)
	pt3dadd(307.352, 338.67, 78.0616, 0.976892)
	pt3dadd(307.703, 338.857, 78.1811, 0.766774)
	pt3dadd(311.136, 340.16, 79.8986, 0.791182)
	pt3dadd(311.651, 340.367, 80.0508, 0.491344)
	pt3dadd(312.192, 340.619, 80.4125, 0.643856)
	pt3dadd(312.604, 340.698, 80.448, 0.591218)
	pt3dadd(312.984, 340.824, 80.689, 0.745596)
	pt3dadd(314.502, 341.209, 81.0836, 0.47237)
	pt3dadd(314.891, 341.096, 81.2832, 0.558594)
	pt3dadd(315.658, 341.115, 81.5548, 0.965234)
	pt3dadd(316.045, 340.933, 81.7038, 0.716882)
	pt3dadd(319.629, 341.405, 83.0362, 0.424946)
	pt3dadd(320.255, 341.236, 83.763, 0.899582)
	pt3dadd(320.713, 340.959, 83.8562, 0.36568)
	pt3dadd(321.064, 340.887, 83.9224, 0.564666)
	pt3dadd(321.456, 341.005, 84.0497, 0.606328)
	pt3dadd(322.304, 341.138, 84.1694, 1.26706)
	pt3dadd(323.175, 341.178, 84.6205, 0.303426)
	pt3dadd(323.516, 341.128, 84.6335, 0.2)
	pt3dadd(323.702, 341.209, 85.1062, 0.2)
	pt3dadd(323.86, 341.179, 85.2531, 0.2)
	pt3dadd(324.256, 341.059, 85.5406, 0.456422)
	pt3dadd(324.576, 340.733, 85.84, 0.80043)
	pt3dadd(325.593, 341.186, 86.4084, 0.424564)
	pt3dadd(326.177, 340.754, 86.4665, 0.717512)
	pt3dadd(326.576, 340.767, 86.6023, 0.703086)
	pt3dadd(326.984, 340.9, 86.6105, 0.54834)
	pt3dadd(327.374, 340.701, 86.7456, 0.861942)
	pt3dadd(327.786, 340.707, 87.0673, 0.547256)
	pt3dadd(327.99, 340.733, 87.2917, 0.410986)
	pt3dadd(328.184, 340.776, 87.504, 0.480224)
	pt3dadd(328.426, 340.741, 87.6666, 0.328228)
	pt3dadd(328.713, 340.763, 87.7754, 0.33858)
	pt3dadd(329.013, 340.714, 87.8332, 0.405208)
	pt3dadd(329.266, 340.612, 87.8588, 0.307328)
	pt3dadd(329.565, 340.549, 87.95, 0.242492)
	pt3dadd(329.865, 340.405, 88.1006, 0.298332)
	pt3dadd(330.497, 340.388, 88.4016, 0.823996)
	pt3dadd(330.784, 340.605, 88.6801, 0.75611)
	pt3dadd(331.268, 340.677, 88.8576, 0.534606)
	pt3dadd(332.203, 340.806, 88.9228, 1.29697)
	pt3dadd(332.948, 341.002, 89.4967, 0.868634)
	pt3dadd(333.143, 341.079, 89.7599, 0.546886)
	pt3dadd(333.44, 341.171, 89.9635, 0.350036)
	pt3dadd(333.964, 341.279, 90.4018, 0.833736)
	pt3dadd(334.143, 341.58, 90.5907, 0.767218)
	pt3dadd(335.001, 341.633, 90.8478, 1.20696)
	pt3dadd(335.587, 341.855, 91.0513, 1.0025)
	pt3dadd(335.919, 341.985, 91.2844, 0.772596)
	pt3dadd(336.136, 342.181, 91.6079, 0.4391)
	pt3dadd(339.878, 343.708, 92.8734, 0.678648)
	pt3dadd(340.262, 343.833, 92.8903, 0.7018)
	pt3dadd(340.633, 343.903, 93.0304, 0.906312)
	pt3dadd(341.356, 344.173, 93.4444, 0.76142)
	pt3dadd(341.67, 344.211, 93.4719, 0.378292)
	pt3dadd(342.724, 344.483, 93.5872, 0.504148)
	pt3dadd(343.067, 344.699, 93.7914, 0.79602)
	pt3dadd(343.572, 344.791, 94.392, 0.688964)
	pt3dadd(346.816, 345.42, 95.218, 0.773004)
	pt3dadd(347.135, 345.437, 95.4084, 0.787708)
	pt3dadd(347.584, 345.749, 95.8123, 0.937202)
	pt3dadd(348.364, 346.161, 96.2288, 0.694488)
	pt3dadd(348.694, 346.217, 96.3656, 0.753956)
	pt3dadd(352.273, 349.191, 98.2337, 0.420674)
	pt3dadd(352.524, 349.254, 98.7046, 0.651424)
	pt3dadd(352.851, 349.562, 98.8357, 0.920924)
	pt3dadd(353.303, 349.984, 99.3045, 0.991328)
	pt3dadd(353.497, 350.245, 99.5227, 0.888256)
	pt3dadd(354.788, 351.242, 100.233, 0.390834)
	pt3dadd(355.218, 351.591, 100.594, 0.659468)
	pt3dadd(355.317, 352.042, 100.768, 1.12622)
	pt3dadd(355.913, 352.801, 101.233, 0.691582)
	pt3dadd(356.153, 353.087, 101.402, 0.609236)
	pt3dadd(356.516, 353.191, 101.348, 0.405272)
	pt3dadd(356.88, 353.187, 101.248, 0.61272)
	pt3dadd(357.45, 353.57, 101.161, 0.2)
	pt3dadd(357.637, 353.735, 101.24, 0.2)
	pt3dadd(357.903, 353.797, 101.215, 0.254682)
	pt3dadd(363.412, 358.387, 105.359, 0.432682)
	pt3dadd(363.543, 358.626, 105.695, 0.509168)
	pt3dadd(363.694, 358.831, 105.776, 0.419854)
	pt3dadd(364.06, 359.366, 105.925, 0.845496)
	pt3dadd(364.699, 359.803, 106.227, 1.26787)
	pt3dadd(369.735, 363.652, 113.833, 0.472282)
	pt3dadd(369.85, 363.708, 114.089, 0.42096)
	pt3dadd(370.09, 363.79, 114.256, 0.2)
	pt3dadd(370.286, 363.937, 114.447, 0.392006)
	pt3dadd(370.407, 363.996, 114.714, 0.52719)
	pt3dadd(370.989, 364.194, 115.053, 0.699616)
	pt3dadd(370.945, 364.284, 115.397, 0.902758)
	pt3dadd(371.269, 364.376, 115.868, 0.6557)
	pt3dadd(375.221, 365.425, 120.892, 0.50355)
	pt3dadd(375.651, 365.538, 120.673, 0.710742)
	pt3dadd(380.715, 366.826, 123.078, 0.77529)
	pt3dadd(380.995, 366.631, 123.496, 0.807502)
	pt3dadd(381.564, 366.353, 123.517, 0.859406)
	pt3dadd(382.078, 366.479, 123.679, 0.66696)
	pt3dadd(382.404, 366.514, 123.579, 0.387786)
	pt3dadd(382.695, 366.495, 123.417, 0.559844)
	pt3dadd(387.792, 366.328, 126.203, 0.513946)
	pt3dadd(388.387, 366.106, 126.675, 0.530884)
	pt3dadd(388.889, 366.616, 126.808, 0.801936)
	pt3dadd(389.312, 366.672, 127.174, 1.07794)
  }
  dend_6[52] {pt3dclear()
	pt3dadd(389.312, 366.672, 127.174, 1.07794)
	pt3dadd(389.7, 366.776, 127.532, 0.743698)
  }
  dend[96] {pt3dclear()
	pt3dadd(299.52, 314.717, 43.4023, 1.81706)
	pt3dadd(300.143, 315.433, 42.8201, 1.98418)
	pt3dadd(301.099, 316.574, 42.5548, 1.87406)
	pt3dadd(301.785, 317.545, 42.5909, 1.99467)
	pt3dadd(302.178, 318.525, 42.5637, 1.95471)
	pt3dadd(302.614, 319.464, 42.4796, 1.88263)
	pt3dadd(303.199, 320.424, 42.4081, 1.93067)
	pt3dadd(303.85, 321.242, 42.3317, 1.64354)
	pt3dadd(304.498, 322.026, 42.3163, 1.39611)
	pt3dadd(305.132, 322.8, 42.19, 1.41503)
	pt3dadd(305.635, 323.713, 42.1084, 1.57682)
	pt3dadd(306.095, 324.6, 42.0623, 1.75877)
	pt3dadd(306.675, 325.762, 41.8445, 1.81367)
	pt3dadd(307.279, 326.749, 41.6721, 1.85403)
	pt3dadd(307.855, 327.818, 41.5621, 1.77338)
	pt3dadd(308.484, 329.054, 41.5286, 1.621)
	pt3dadd(309.118, 329.906, 41.5739, 1.75304)
	pt3dadd(309.961, 330.848, 41.3812, 2.01126)
  }
  dend_5[41] {pt3dclear()
	pt3dadd(309.961, 330.848, 41.3812, 2.01126)
	pt3dadd(311.795, 332.141, 41.1148, 2.62246)
  }
  dend[97] {pt3dclear()
	pt3dadd(311.795, 332.141, 41.1148, 2.62246)
	pt3dadd(313.117, 331.652, 40.7131, 0.745098)
	pt3dadd(313.528, 331.586, 40.595, 0.419136)
	pt3dadd(313.743, 331.648, 40.4591, 0.484898)
	pt3dadd(314.075, 331.769, 40.2444, 0.678264)
	pt3dadd(314.388, 331.733, 40.0396, 0.66668)
	pt3dadd(314.661, 331.7, 39.8095, 0.648226)
	pt3dadd(315.192, 331.748, 39.4904, 0.62269)
	pt3dadd(315.501, 331.726, 39.0534, 0.559052)
	pt3dadd(315.719, 331.732, 38.8332, 0.532066)
	pt3dadd(315.969, 331.802, 38.6173, 0.59899)
	pt3dadd(316.18, 331.803, 38.405, 0.734046)
	pt3dadd(316.586, 331.915, 38.2278, 0.656162)
	pt3dadd(316.859, 332.037, 38.015, 0.680898)
	pt3dadd(317.125, 332.154, 37.8065, 0.687522)
	pt3dadd(317.681, 332.264, 37.9578, 0.726804)
	pt3dadd(318.104, 332.267, 38.0058, 0.692352)
  }
  dend_5[42] {pt3dclear()
	pt3dadd(318.104, 332.267, 38.0058, 0.692352)
	pt3dadd(318.556, 332.208, 37.9995, 0.76889)
  }
  dend[98] {pt3dclear()
	pt3dadd(318.556, 332.208, 37.9995, 0.76889)
	pt3dadd(319.211, 332.337, 37.6666, 0.722232)
	pt3dadd(319.586, 332.504, 37.5684, 0.677186)
	pt3dadd(319.93, 332.697, 37.4071, 0.938842)
	pt3dadd(320.317, 332.98, 37.2665, 0.711136)
	pt3dadd(320.685, 333.219, 37.0851, 0.751786)
	pt3dadd(321.038, 333.283, 36.8601, 0.968522)
	pt3dadd(321.63, 333.433, 36.7547, 0.858026)
	pt3dadd(322.064, 333.432, 36.773, 0.742874)
	pt3dadd(322.441, 333.483, 36.4826, 0.842322)
	pt3dadd(323.135, 333.712, 35.9525, 0.885934)
	pt3dadd(323.527, 333.708, 35.7375, 0.965638)
	pt3dadd(324.007, 333.593, 35.5265, 0.992424)
	pt3dadd(324.769, 333.811, 34.9619, 0.698272)
	pt3dadd(325.418, 333.792, 34.9783, 0.809662)
	pt3dadd(326.179, 333.785, 34.8919, 0.72528)
	pt3dadd(326.601, 333.685, 34.8176, 0.962518)
	pt3dadd(327.369, 333.903, 34.6444, 0.95816)
	pt3dadd(328.109, 334.177, 34.4271, 1.06518)
	pt3dadd(329.035, 334.406, 34.2598, 1.31264)
	pt3dadd(329.694, 334.608, 33.9343, 1.18291)
	pt3dadd(330.465, 334.777, 33.5161, 1.12378)
	pt3dadd(331.427, 334.996, 33.1655, 1.08466)
	pt3dadd(332.482, 335.193, 32.9067, 0.941862)
	pt3dadd(333.215, 335.262, 32.6307, 0.90642)
	pt3dadd(333.672, 335.429, 32.6236, 0.744308)
	pt3dadd(334.325, 335.539, 32.5131, 0.483978)
	pt3dadd(334.585, 335.61, 32.4528, 0.441648)
	pt3dadd(334.875, 335.704, 32.381, 0.451134)
	pt3dadd(335.183, 335.816, 32.3385, 0.785388)
	pt3dadd(335.878, 335.838, 32.3939, 0.728726)
	pt3dadd(336.247, 335.855, 32.4268, 0.89733)
	pt3dadd(336.981, 335.997, 32.3233, 0.76575)
	pt3dadd(337.378, 336.134, 32.2415, 0.79148)
	pt3dadd(337.833, 336.09, 32.092, 0.676558)
	pt3dadd(338.474, 335.971, 31.9463, 0.614688)
	pt3dadd(338.793, 336.006, 31.9474, 0.658038)
	pt3dadd(339.453, 336.067, 32.0594, 0.646958)
	pt3dadd(339.982, 336.078, 31.8799, 0.709562)
	pt3dadd(340.634, 336.225, 31.7865, 0.827818)
	pt3dadd(341.357, 336.425, 31.6034, 1.0939)
	pt3dadd(342.266, 336.412, 31.4184, 1.17908)
	pt3dadd(343, 336.249, 31.2789, 0.905794)
	pt3dadd(343.734, 336.176, 31.1548, 0.587762)
  }
}
proc shape3d_50() {
  dend[98] {	pt3dadd(344.081, 336.124, 31.0516, 0.646766)
	pt3dadd(344.405, 336.328, 30.9172, 1.12749)
	pt3dadd(345.214, 336.296, 30.7566, 1.1454)
	pt3dadd(346.152, 335.881, 30.8628, 1.08205)
  }
  dend_5[43] {pt3dclear()
	pt3dadd(346.152, 335.881, 30.8628, 1.08205)
	pt3dadd(347.129, 335.686, 30.7626, 0.963586)
  }
  dend[99] {pt3dclear()
	pt3dadd(347.129, 335.686, 30.7626, 0.963586)
	pt3dadd(347.731, 335.55, 30.134, 0.513542)
	pt3dadd(348.063, 335.409, 29.9063, 0.327774)
	pt3dadd(348.348, 335.29, 29.7472, 0.289208)
	pt3dadd(348.609, 335.144, 29.5653, 0.393488)
	pt3dadd(348.899, 334.995, 29.3942, 0.378754)
	pt3dadd(349.201, 334.906, 29.2687, 0.53012)
	pt3dadd(349.534, 334.866, 29.2331, 0.689234)
	pt3dadd(349.971, 334.713, 29.0323, 1.11666)
	pt3dadd(350.781, 334.333, 28.5273, 0.622218)
	pt3dadd(351.381, 334.347, 28.3035, 0.517372)
	pt3dadd(351.702, 334.33, 28.1268, 0.519954)
	pt3dadd(352.034, 334.295, 27.8962, 0.708356)
	pt3dadd(352.511, 334.058, 27.4855, 1.09371)
	pt3dadd(353.065, 334.296, 27.0735, 0.900936)
	pt3dadd(353.747, 334.237, 26.5511, 0.6377)
	pt3dadd(354.036, 334.234, 26.3344, 0.74801)
	pt3dadd(354.775, 334.465, 26.0635, 0.768952)
	pt3dadd(354.909, 334.711, 25.6997, 0.818534)
	pt3dadd(355.414, 334.667, 25.4439, 0.51084)
	pt3dadd(355.797, 334.754, 25.408, 0.2)
	pt3dadd(356.043, 334.771, 25.3446, 0.2)
	pt3dadd(356.285, 334.739, 25.1335, 0.302974)
	pt3dadd(356.466, 334.769, 24.9418, 0.354136)
	pt3dadd(356.633, 334.724, 24.8432, 0.373454)
	pt3dadd(356.928, 334.744, 24.7983, 0.25834)
	pt3dadd(357.316, 334.578, 24.7558, 0.35407)
	pt3dadd(357.65, 334.5, 24.6621, 0.45292)
	pt3dadd(357.989, 334.459, 24.3592, 0.493164)
	pt3dadd(358.247, 334.495, 24.0086, 0.722392)
	pt3dadd(358.865, 334.451, 23.7388, 0.828018)
	pt3dadd(359.584, 334.461, 23.3555, 0.919902)
	pt3dadd(360.328, 334.429, 22.9533, 0.37977)
	pt3dadd(360.651, 334.456, 22.8341, 0.495926)
	pt3dadd(360.927, 334.422, 22.6915, 0.472206)
	pt3dadd(361.221, 334.395, 22.5675, 0.642686)
	pt3dadd(361.418, 334.647, 22.3471, 0.47916)
	pt3dadd(361.608, 334.856, 22.1514, 0.658276)
	pt3dadd(361.947, 334.875, 21.9641, 0.89892)
	pt3dadd(362.604, 334.95, 21.4226, 0.970938)
	pt3dadd(363.384, 335.296, 21.1746, 1.00342)
	pt3dadd(363.821, 335.607, 21.0113, 0.751554)
	pt3dadd(364.201, 335.792, 20.4747, 0.386078)
	pt3dadd(364.365, 335.825, 20.2398, 0.384142)
	pt3dadd(364.561, 335.889, 19.9784, 0.585068)
	pt3dadd(364.779, 335.785, 19.7352, 0.948372)
	pt3dadd(365.479, 335.748, 18.8507, 0.7743)
	pt3dadd(365.906, 335.67, 18.3382, 0.511484)
	pt3dadd(366.163, 335.543, 18.1594, 0.645658)
	pt3dadd(366.721, 335.622, 17.8752, 0.764334)
	pt3dadd(367.097, 335.626, 17.7665, 0.93784)
	pt3dadd(367.787, 335.83, 17.6023, 1.53338)
	pt3dadd(368.867, 335.842, 17.3564, 0.85008)
	pt3dadd(369.536, 335.903, 17.0002, 0.525158)
	pt3dadd(369.881, 335.98, 16.8872, 0.248992)
	pt3dadd(370.125, 335.98, 16.8151, 0.25641)
	pt3dadd(370.349, 336, 16.6966, 0.22979)
	pt3dadd(370.591, 335.996, 16.6354, 0.227476)
	pt3dadd(370.852, 336.002, 16.519, 0.34359)
	pt3dadd(371.127, 335.922, 16.3984, 0.56441)
	pt3dadd(371.412, 336.004, 16.2815, 0.793984)
	pt3dadd(372.222, 336.431, 16.0419, 0.908042)
	pt3dadd(372.957, 336.786, 15.839, 0.564674)
	pt3dadd(373.426, 337.02, 15.3783, 0.320954)
	pt3dadd(373.641, 337.04, 15.0508, 0.324782)
	pt3dadd(376.699, 337.573, 13.0639, 0.518986)
	pt3dadd(377.205, 337.704, 12.98, 0.30576)
	pt3dadd(377.409, 337.911, 12.8077, 0.554348)
	pt3dadd(377.796, 338.259, 12.4026, 0.89408)
	pt3dadd(378.177, 338.705, 11.9558, 1.17589)
	pt3dadd(378.62, 339.211, 11.3287, 1.24421)
	pt3dadd(378.988, 339.703, 10.3491, 0.820992)
	pt3dadd(379.136, 339.771, 9.99259, 0.653914)
	pt3dadd(379.775, 339.935, 9.70232, 0.396066)
	pt3dadd(380.01, 340.076, 9.53199, 0.498714)
	pt3dadd(380.08, 340.307, 9.32561, 0.603512)
	pt3dadd(380.019, 340.589, 8.72114, 0.718762)
	pt3dadd(380.227, 340.691, 8.45326, 0.572728)
	pt3dadd(380.47, 340.717, 8.2673, 0.459988)
	pt3dadd(380.729, 340.685, 8.09982, 0.449252)
	pt3dadd(381.04, 340.668, 7.79273, 0.485634)
	pt3dadd(381.227, 340.694, 7.56272, 0.513704)
	pt3dadd(381.414, 340.682, 7.32879, 0.53947)
	pt3dadd(381.608, 340.689, 7.13573, 0.538482)
	pt3dadd(382.128, 340.838, 6.79665, 0.692506)
	pt3dadd(382.775, 340.981, 6.41213, 0.916428)
	pt3dadd(383.144, 341.178, 6.14042, 0.713984)
	pt3dadd(383.622, 341.258, 5.98346, 0.706198)
	pt3dadd(384.113, 341.566, 5.79497, 0.857368)
	pt3dadd(384.485, 341.84, 5.3538, 0.576624)
	pt3dadd(384.845, 342.102, 5.16209, 0.2)
	pt3dadd(385.059, 342.241, 4.99953, 0.261598)
	pt3dadd(385.183, 342.398, 4.87314, 0.43158)
	pt3dadd(385.399, 342.516, 4.69162, 0.589674)
	pt3dadd(385.767, 342.802, 4.27786, 1.22469)
	pt3dadd(386.256, 342.491, 3.36151, 1.41207)
  }
  dend_6[53] {pt3dclear()
	pt3dadd(386.256, 342.491, 3.36151, 1.41207)
	pt3dadd(386.286, 342.76, 2.69989, 0.84096)
  }
  dend[100] {pt3dclear()
	pt3dadd(347.129, 335.686, 30.7626, 0.963586)
	pt3dadd(347.703, 335.978, 31.3809, 0.43653)
	pt3dadd(348.028, 336.151, 31.5112, 0.367218)
	pt3dadd(348.214, 336.397, 31.5272, 0.499806)
	pt3dadd(348.665, 336.485, 31.8718, 0.484612)
	pt3dadd(348.95, 336.714, 31.9219, 0.427668)
	pt3dadd(349.15, 336.823, 31.9067, 0.314672)
	pt3dadd(349.441, 337.073, 32.0893, 0.67348)
	pt3dadd(350.093, 337.091, 32.3146, 0.546948)
	pt3dadd(350.533, 337.175, 32.2667, 0.73536)
	pt3dadd(351.152, 337.381, 32.3042, 0.78754)
	pt3dadd(351.562, 337.524, 32.3172, 0.963792)
	pt3dadd(352.433, 337.374, 32.4406, 0.61026)
	pt3dadd(352.956, 337.391, 32.6197, 0.38315)
	pt3dadd(353.288, 337.433, 32.6681, 0.457972)
	pt3dadd(353.607, 337.495, 32.6652, 0.63676)
	pt3dadd(354.269, 337.439, 32.7415, 0.65799)
	pt3dadd(354.598, 337.446, 32.7677, 0.64613)
	pt3dadd(354.926, 337.491, 32.8386, 0.559784)
	pt3dadd(355.271, 337.57, 32.9551, 0.768374)
	pt3dadd(356.221, 337.52, 33.2683, 1.00079)
	pt3dadd(357.039, 337.485, 33.4589, 1.37425)
	pt3dadd(358.159, 338.143, 33.6661, 1.28938)
	pt3dadd(359.015, 338.212, 33.8782, 1.10834)
	pt3dadd(359.719, 338.408, 34.4987, 1.07232)
	pt3dadd(360.302, 338.799, 34.6411, 0.703986)
	pt3dadd(360.614, 339.074, 34.7853, 0.518894)
	pt3dadd(360.908, 339.228, 34.9416, 0.485964)
	pt3dadd(360.919, 339.376, 35.1467, 0.729884)
	pt3dadd(361.595, 339.791, 34.9134, 0.2)
	pt3dadd(361.84, 339.874, 34.9044, 0.293792)
	pt3dadd(362.039, 339.979, 34.9638, 0.2)
	pt3dadd(362.219, 339.993, 34.9936, 0.2)
	pt3dadd(362.44, 339.998, 35.0536, 0.229148)
	pt3dadd(362.74, 340.016, 35.0685, 0.235376)
	pt3dadd(363.015, 340.107, 35.1315, 0.511902)
	pt3dadd(363.329, 340.166, 35.0712, 0.459448)
	pt3dadd(363.637, 340.041, 34.9417, 0.885558)
	pt3dadd(366.385, 341.526, 35.9475, 0.962718)
	pt3dadd(367.225, 341.943, 35.8428, 0.730834)
	pt3dadd(367.499, 342.28, 35.7517, 0.539982)
	pt3dadd(367.604, 342.618, 35.6271, 0.822594)
	pt3dadd(368.1, 342.885, 35.871, 0.507204)
	pt3dadd(368.379, 343.069, 35.9122, 0.26872)
	pt3dadd(368.636, 343.354, 35.9051, 0.2)
	pt3dadd(368.871, 343.365, 35.9632, 0.2)
	pt3dadd(369.094, 343.461, 35.9219, 0.327452)
	pt3dadd(369.274, 343.537, 35.8883, 0.437898)
	pt3dadd(369.701, 343.655, 36.1475, 0.331698)
	pt3dadd(369.961, 343.773, 36.2971, 0.313658)
	pt3dadd(370.171, 343.913, 36.4339, 0.53008)
	pt3dadd(370.503, 343.858, 36.4496, 0.70606)
	pt3dadd(370.926, 343.815, 36.4619, 1.1943)
	pt3dadd(371.731, 343.902, 36.5895, 1.07607)
	pt3dadd(372.451, 343.796, 36.8874, 0.780868)
	pt3dadd(372.881, 343.817, 36.9437, 0.572788)
	pt3dadd(373.297, 344.034, 36.9068, 0.619362)
	pt3dadd(373.576, 343.811, 37.2816, 0.298152)
	pt3dadd(375.706, 343.394, 37.4724, 0.814012)
	pt3dadd(376.102, 343.653, 37.5041, 0.651244)
	pt3dadd(376.454, 343.814, 37.5706, 0.712946)
	pt3dadd(376.774, 344.078, 37.6565, 0.57327)
	pt3dadd(377.122, 344.222, 37.7322, 0.504204)
	pt3dadd(377.473, 344.406, 37.8045, 0.675352)
	pt3dadd(377.88, 344.541, 37.8738, 1.30376)
	pt3dadd(378.521, 344.331, 38.1568, 1.1485)
	pt3dadd(379.042, 344.431, 38.1839, 0.44685)
	pt3dadd(380.045, 344.626, 38.367, 0.294198)
	pt3dadd(380.628, 344.822, 38.2946, 0.358572)
	pt3dadd(380.998, 345.025, 38.0434, 0.563744)
	pt3dadd(381.251, 345.005, 38.438, 0.336378)
	pt3dadd(381.426, 345.043, 38.6473, 0.31556)
	pt3dadd(381.594, 345.102, 38.787, 0.449188)
	pt3dadd(382.019, 345.133, 39.2544, 0.662694)
	pt3dadd(382.359, 345.099, 39.4008, 0.540916)
	pt3dadd(382.724, 345.229, 39.3759, 0.589132)
	pt3dadd(383.037, 345.537, 39.2878, 1.25507)
	pt3dadd(384.223, 345.417, 39.5609, 0.26955)
	pt3dadd(384.507, 345.392, 39.5233, 0.2)
	pt3dadd(384.62, 345.387, 39.5135, 0.2)
	pt3dadd(384.908, 345.332, 39.539, 0.245478)
	pt3dadd(385.138, 345.251, 39.5761, 0.397352)
	pt3dadd(385.35, 345.266, 39.675, 0.482976)
	pt3dadd(385.62, 345.303, 39.8265, 0.502228)
	pt3dadd(385.888, 345.284, 39.9963, 0.482636)
	pt3dadd(386.156, 345.257, 40.1922, 0.717886)
	pt3dadd(387.007, 345.369, 40.091, 0.606466)
	pt3dadd(387.394, 345.51, 40.041, 1.0589)
	pt3dadd(388.405, 345.317, 40.2974, 1.0099)
	pt3dadd(389.284, 345.582, 40.3554, 0.772452)
	pt3dadd(389.914, 345.406, 40.2556, 0.780022)
	pt3dadd(390.646, 345.349, 40.2179, 0.867486)
	pt3dadd(391.107, 345.692, 40.4331, 0.522732)
	pt3dadd(391.39, 345.81, 40.5135, 0.638148)
	pt3dadd(391.918, 345.84, 40.6276, 0.29805)
	pt3dadd(392.164, 345.91, 40.6567, 0.310256)
  }
}
proc shape3d_51() {
  dend[100] {	pt3dadd(392.448, 345.936, 40.6922, 0.517794)
	pt3dadd(392.772, 346.04, 40.7976, 0.74257)
	pt3dadd(393.511, 346.185, 40.9025, 0.892176)
	pt3dadd(394.238, 346.375, 40.9764, 0.745902)
	pt3dadd(394.62, 346.242, 41.0953, 0.854548)
	pt3dadd(394.997, 345.949, 41.2405, 0.892376)
	pt3dadd(395.394, 345.545, 41.032, 1.03583)
	pt3dadd(396.233, 345.383, 41.3543, 0.431832)
	pt3dadd(396.463, 345.371, 41.548, 0.508116)
	pt3dadd(396.879, 345.421, 41.2349, 0.400332)
	pt3dadd(397.024, 345.481, 40.8987, 0.480984)
	pt3dadd(397.149, 345.414, 40.5461, 0.2)
	pt3dadd(398.338, 345.835, 41.8319, 0.364432)
	pt3dadd(398.519, 345.883, 41.908, 0.312752)
	pt3dadd(398.764, 345.923, 41.9707, 0.345186)
	pt3dadd(399.173, 346.059, 42.1465, 0.478622)
	pt3dadd(399.48, 346.117, 42.2567, 0.54498)
	pt3dadd(400.069, 346.191, 42.4464, 0.695834)
	pt3dadd(400.896, 346.35, 42.5415, 1.01785)
	pt3dadd(401.591, 346.481, 42.7818, 1.4675)
	pt3dadd(402.092, 346.637, 42.9269, 1.04709)
	pt3dadd(402.611, 346.533, 42.4989, 0.2)
	pt3dadd(402.839, 346.485, 42.3762, 0.446164)
	pt3dadd(403.108, 346.72, 42.7601, 0.2)
	pt3dadd(403.299, 346.788, 42.8975, 0.293726)
	pt3dadd(403.495, 346.802, 43.0586, 0.27039)
	pt3dadd(403.979, 346.819, 43.4342, 0.783778)
	pt3dadd(405.01, 346.955, 43.4966, 1.04604)
	pt3dadd(405.735, 346.967, 43.4514, 0.727382)
	pt3dadd(406.334, 347.256, 43.5511, 0.66546)
	pt3dadd(406.675, 347.24, 43.6356, 0.599604)
	pt3dadd(407.103, 347.171, 43.5846, 0.289964)
	pt3dadd(407.385, 347.054, 43.4594, 0.488168)
	pt3dadd(407.708, 347.175, 43.6767, 0.36084)
	pt3dadd(407.979, 347.221, 43.8811, 0.354698)
	pt3dadd(408.246, 347.2, 43.9037, 0.202528)
	pt3dadd(408.483, 347.244, 44.0152, 0.2)
	pt3dadd(408.891, 347.332, 44.1321, 0.50407)
	pt3dadd(409.631, 347.369, 44.2334, 1.11933)
	pt3dadd(410.466, 347.749, 44.4614, 0.2)
	pt3dadd(410.666, 347.78, 44.5429, 0.2)
	pt3dadd(410.855, 347.808, 44.6679, 0.2)
	pt3dadd(411.322, 347.752, 44.835, 0.451782)
	pt3dadd(411.765, 347.69, 44.6064, 0.34226)
	pt3dadd(411.921, 347.605, 44.4139, 0.286986)
	pt3dadd(412.128, 347.516, 44.2059, 0.517856)
	pt3dadd(412.43, 347.596, 44.6495, 0.2)
	pt3dadd(412.63, 347.617, 44.9178, 0.423978)
	pt3dadd(412.978, 347.578, 45.433, 0.881338)
	pt3dadd(413.582, 347.664, 45.6691, 0.917968)
	pt3dadd(414.321, 347.533, 46.0536, 1.16357)
	pt3dadd(414.822, 347.594, 45.9232, 0.82158)
	pt3dadd(415.187, 347.53, 45.794, 0.592964)
	pt3dadd(415.644, 347.62, 45.7247, 0.2)
	pt3dadd(415.879, 347.659, 45.767, 0.34579)
	pt3dadd(416.325, 347.701, 45.8042, 0.506482)
	pt3dadd(416.625, 347.688, 45.7192, 0.472984)
	pt3dadd(416.92, 347.733, 45.671, 0.46626)
	pt3dadd(418.945, 348.011, 45.4387, 0.722242)
	pt3dadd(419.402, 348.182, 45.3055, 0.91307)
	pt3dadd(420.188, 348.337, 45.5724, 0.785524)
	pt3dadd(420.394, 348.181, 45.9648, 0.64839)
	pt3dadd(422.6, 348.5, 45.6, 0.2)
	pt3dadd(422.641, 348.52, 45.5133, 0.498876)
	pt3dadd(422.987, 348.716, 44.8442, 0.66244)
	pt3dadd(425.851, 348.534, 45.5736, 0.625766)
	pt3dadd(426.183, 348.846, 45.4957, 0.635776)
	pt3dadd(426.554, 348.822, 45.3668, 0.774682)
	pt3dadd(427.068, 348.855, 45.4852, 0.828558)
	pt3dadd(427.619, 348.749, 45.4617, 0.575804)
	pt3dadd(427.935, 348.546, 45.4569, 0.552928)
	pt3dadd(430.853, 348.382, 46.7708, 0.442072)
	pt3dadd(431.107, 348.526, 46.4628, 0.544456)
	pt3dadd(431.227, 348.564, 46.4, 0.2)
	pt3dadd(433.695, 348.893, 46.9254, 0.42952)
	pt3dadd(434.015, 349.182, 47.2411, 0.2)
	pt3dadd(434.236, 349.231, 47.3335, 0.256694)
	pt3dadd(434.431, 349.349, 47.5161, 0.419394)
	pt3dadd(434.624, 349.412, 47.6838, 0.37645)
	pt3dadd(435.017, 349.404, 47.6464, 0.2)
	pt3dadd(435.269, 349.464, 47.5832, 0.2)
	pt3dadd(435.561, 349.513, 47.5815, 0.532836)
	pt3dadd(435.859, 349.383, 47.7178, 0.633306)
	pt3dadd(436.318, 349.268, 47.7987, 1.056)
	pt3dadd(436.617, 349.715, 47.8899, 0.86539)
	pt3dadd(438.888, 350.702, 48.7095, 0.917458)
	pt3dadd(439.435, 350.583, 48.4695, 0.357454)
	pt3dadd(439.729, 350.631, 48.471, 0.26144)
	pt3dadd(439.932, 350.629, 48.4455, 0.219076)
	pt3dadd(440.161, 350.619, 48.4981, 0.231756)
	pt3dadd(440.448, 350.648, 48.4856, 0.491986)
	pt3dadd(440.78, 350.662, 48.6604, 0.742694)
	pt3dadd(441.485, 350.59, 48.9504, 0.552436)
	pt3dadd(441.999, 350.83, 49.083, 0.903106)
	pt3dadd(442.2, 350.911, 48.8, 0.2)
	pt3dadd(443.682, 351.227, 49.713, 0.2)
	pt3dadd(444.026, 351.346, 49.8336, 0.381776)
	pt3dadd(444.503, 351.42, 49.8626, 0.762428)
	pt3dadd(444.797, 351.309, 50.1, 0.39801)
	pt3dadd(445.1, 351.186, 50.1929, 0.2)
	pt3dadd(445.414, 351.068, 50.243, 0.50668)
	pt3dadd(446.117, 351.098, 50.5326, 0.921784)
	pt3dadd(446.392, 351.169, 50.9066, 0.788468)
	pt3dadd(448.297, 351.298, 51.4778, 0.750144)
	pt3dadd(448.622, 351.357, 51.7937, 0.880316)
	pt3dadd(448.995, 351.41, 52.0783, 0.794088)
	pt3dadd(449.227, 351.472, 52.325, 0.496984)
	pt3dadd(451.52, 351.885, 52.6782, 0.94272)
	pt3dadd(455.583, 352.435, 53.0431, 0.624194)
	pt3dadd(455.757, 352.69, 53.4332, 0.698868)
	pt3dadd(456.258, 352.915, 53.5691, 0.575606)
	pt3dadd(458.018, 354.417, 54.471, 0.2)
	pt3dadd(461.974, 356.801, 56.896, 0.828448)
	pt3dadd(462.44, 356.913, 57.0207, 0.83532)
	pt3dadd(462.702, 357.112, 57.4462, 0.76784)
	pt3dadd(462.921, 357.278, 57.8339, 0.49059)
	pt3dadd(463.103, 357.335, 58.0169, 0.333006)
	pt3dadd(463.298, 357.416, 58.2085, 0.314226)
	pt3dadd(463.592, 357.608, 58.3296, 0.2)
	pt3dadd(463.839, 357.764, 58.4449, 0.46351)
	pt3dadd(464.324, 358.027, 58.6615, 1.04589)
	pt3dadd(466.081, 359.677, 59.6287, 0.2)
	pt3dadd(466.572, 360.262, 59.8213, 1.16779)
	pt3dadd(466.796, 360.502, 59.5306, 0.869372)
	pt3dadd(466.988, 360.785, 59.2813, 0.391384)
	pt3dadd(468.397, 361.602, 61, 0.2)
	pt3dadd(468.442, 361.713, 61.0466, 0.828566)
	pt3dadd(471.084, 362.329, 62.4786, 0.538066)
	pt3dadd(472.419, 361.419, 62.2, 0.501414)
	pt3dadd(472.906, 361.336, 62.3979, 0.472378)
	pt3dadd(473.124, 361.603, 62.8345, 0.871122)
  }
  dend_6[54] {pt3dclear()
	pt3dadd(473.124, 361.603, 62.8345, 0.871122)
	pt3dadd(475.058, 362.6, 63.6636, 0.796458)
  }
  dend[101] {pt3dclear()
	pt3dadd(318.556, 332.208, 37.9995, 0.76889)
	pt3dadd(318.815, 331.499, 38.1846, 0.681222)
	pt3dadd(319.297, 331.26, 37.6958, 0.2)
	pt3dadd(319.472, 331.204, 37.5749, 0.275806)
	pt3dadd(319.488, 331.195, 37.3875, 0.37912)
	pt3dadd(319.514, 331.179, 37.1737, 0.38387)
	pt3dadd(319.627, 331.154, 36.9804, 0.381394)
	pt3dadd(319.795, 331.033, 36.7106, 0.36787)
	pt3dadd(319.918, 330.861, 36.4707, 0.517518)
	pt3dadd(320, 330.708, 36.2619, 0.607814)
  }
  dend_6[55] {pt3dclear()
	pt3dadd(320, 330.708, 36.2619, 0.607814)
	pt3dadd(320.012, 330.556, 35.7445, 0.2)
  }
  dend[102] {pt3dclear()
	pt3dadd(311.795, 332.141, 41.1148, 2.62246)
	pt3dadd(311.928, 333.99, 41.1836, 2.12964)
	pt3dadd(312.194, 335.016, 41.0612, 1.98531)
	pt3dadd(312.642, 336.008, 40.928, 1.60469)
	pt3dadd(313.225, 336.997, 40.8601, 1.62043)
	pt3dadd(313.688, 337.827, 40.8045, 1.71437)
	pt3dadd(314.498, 338.806, 40.9517, 1.72489)
  }
  dend_5[44] {pt3dclear()
	pt3dadd(314.498, 338.806, 40.9517, 1.72489)
	pt3dadd(315.156, 340.152, 41.1981, 2.14792)
  }
  dend[103] {pt3dclear()
	pt3dadd(315.156, 340.152, 41.1981, 2.14792)
	pt3dadd(315.49, 340.489, 42.2359, 1.07428)
	pt3dadd(316.13, 340.762, 42.8699, 0.659434)
	pt3dadd(316.354, 340.816, 43.1199, 0.895726)
	pt3dadd(316.661, 340.96, 43.4806, 0.799474)
	pt3dadd(317.044, 341.201, 43.9039, 0.428148)
	pt3dadd(317.242, 341.309, 44.1826, 0.580018)
	pt3dadd(317.453, 341.416, 44.4605, 0.728302)
	pt3dadd(317.881, 341.638, 44.703, 0.652122)
	pt3dadd(318.121, 341.932, 44.7918, 0.686264)
	pt3dadd(318.378, 342.17, 45.163, 0.826412)
	pt3dadd(318.991, 342.225, 45.5893, 0.933548)
	pt3dadd(319.582, 342.341, 46.2253, 1.01871)
	pt3dadd(320.268, 342.514, 47.0626, 1.0571)
	pt3dadd(320.742, 342.671, 47.6949, 1.12912)
  }
  dend_5[45] {pt3dclear()
	pt3dadd(320.742, 342.671, 47.6949, 1.12912)
	pt3dadd(321.049, 342.842, 48.339, 1.19622)
  }
  dend[104] {pt3dclear()
	pt3dadd(321.049, 342.842, 48.339, 1.19622)
	pt3dadd(320.851, 343.553, 48.6139, 0.690522)
	pt3dadd(320.765, 343.898, 48.6918, 0.430626)
	pt3dadd(320.669, 344.219, 48.7497, 0.413418)
	pt3dadd(320.397, 344.518, 48.7883, 0.533502)
	pt3dadd(320.839, 344.983, 49.1135, 0.32398)
	pt3dadd(321.053, 345.22, 49.1959, 0.25866)
	pt3dadd(321.191, 345.49, 49.3479, 0.715194)
	pt3dadd(321.14, 345.773, 49.6131, 0.927918)
	pt3dadd(321.017, 346.284, 50.2285, 1.07466)
	pt3dadd(321.163, 346.8, 50.9201, 1.24705)
	pt3dadd(321.125, 347.667, 51.4118, 0.840098)
	pt3dadd(320.897, 348.66, 51.9268, 0.466074)
	pt3dadd(320.707, 348.933, 52.0775, 0.2)
	pt3dadd(320.526, 349.129, 52.261, 0.650336)
	pt3dadd(320.098, 349.597, 52.5246, 0.879484)
	pt3dadd(319.75, 350.189, 52.8464, 0.869428)
	pt3dadd(319.486, 351.036, 52.9886, 0.368562)
	pt3dadd(319.426, 351.22, 52.9898, 0.254586)
	pt3dadd(319.381, 351.421, 53.113, 0.2)
	pt3dadd(319.282, 351.667, 53.2304, 0.526128)
	pt3dadd(319.277, 352.159, 53.383, 0.530704)
	pt3dadd(319.415, 352.451, 53.5249, 0.47199)
	pt3dadd(319.555, 352.703, 53.7187, 0.537516)
	pt3dadd(319.712, 352.934, 53.9108, 0.681534)
	pt3dadd(319.804, 353.176, 54.1412, 0.790678)
	pt3dadd(319.753, 353.689, 54.5711, 1.15528)
	pt3dadd(319.868, 354.268, 54.6613, 0.69673)
	pt3dadd(319.669, 354.811, 54.8641, 0.403322)
  }
}
proc shape3d_52() {
  dend[104] {	pt3dadd(319.664, 355.668, 54.6712, 0.254716)
	pt3dadd(319.388, 356.054, 54.9822, 0.992916)
	pt3dadd(318.789, 357.083, 54.6322, 1.46671)
	pt3dadd(316.315, 362.515, 56.6187, 0.2)
	pt3dadd(316.151, 362.822, 56.6614, 0.393566)
	pt3dadd(315.892, 363.588, 56.7951, 1.05434)
	pt3dadd(315.971, 364.186, 56.7559, 0.81702)
	pt3dadd(315.859, 366.795, 58.3842, 1.28448)
	pt3dadd(315.653, 367.282, 58.574, 1.05428)
	pt3dadd(315.389, 367.925, 58.7633, 1.28001)
	pt3dadd(314.976, 368.628, 58.997, 0.773474)
	pt3dadd(314.837, 369.243, 59.1452, 0.2)
	pt3dadd(314.846, 369.505, 59.3314, 0.317082)
	pt3dadd(314.875, 369.817, 59.4415, 0.601032)
	pt3dadd(314.786, 370.236, 59.3627, 0.760404)
	pt3dadd(314.83, 370.733, 59.2657, 0.833494)
	pt3dadd(314.382, 374.05, 60.9791, 0.771806)
	pt3dadd(314.253, 374.65, 61.4467, 0.509478)
	pt3dadd(314.217, 374.891, 61.6176, 0.381818)
	pt3dadd(314.184, 375.105, 61.7772, 0.2533)
	pt3dadd(314.185, 375.376, 61.8494, 0.279118)
	pt3dadd(314.145, 375.654, 61.925, 0.38226)
	pt3dadd(314.06, 375.858, 62.0336, 0.468544)
	pt3dadd(314.009, 376.094, 62.1549, 0.380466)
	pt3dadd(313.964, 376.328, 62.2926, 0.327906)
	pt3dadd(314.009, 376.637, 62.4312, 0.346532)
	pt3dadd(313.95, 376.849, 62.7085, 0.447594)
	pt3dadd(313.774, 377.197, 62.8333, 0.475346)
	pt3dadd(313.698, 377.563, 62.9856, 0.627404)
	pt3dadd(313.597, 377.851, 63.2004, 0.870534)
	pt3dadd(313.406, 378.193, 63.4248, 1.19362)
	pt3dadd(313.412, 379.046, 63.8516, 1.51479)
	pt3dadd(313.081, 379.8, 64.4756, 1.24627)
	pt3dadd(312.915, 380.241, 64.9229, 1.12628)
	pt3dadd(311.504, 382.082, 66.9778, 0.626054)
	pt3dadd(311.455, 382.5, 67.216, 0.723618)
	pt3dadd(311.802, 382.773, 67.4229, 0.719604)
	pt3dadd(311.966, 383.666, 67.8527, 1.10565)
	pt3dadd(312.736, 392.548, 71.8562, 0.507878)
	pt3dadd(312.78, 392.793, 72.2932, 0.675872)
	pt3dadd(312.762, 393.069, 72.8167, 0.902894)
	pt3dadd(312.884, 393.513, 73.3899, 1.14081)
	pt3dadd(312.622, 393.92, 73.6588, 0.790304)
	pt3dadd(312.545, 394.19, 73.955, 0.517956)
	pt3dadd(311.323, 396.593, 75.3879, 0.478586)
	pt3dadd(311.213, 396.869, 75.9952, 0.883978)
	pt3dadd(311.418, 397.522, 76.2961, 1.17424)
	pt3dadd(311.502, 398.149, 76.597, 0.629854)
	pt3dadd(312.065, 399.606, 77.6351, 0.864022)
	pt3dadd(311.771, 400.059, 78.0315, 0.2)
	pt3dadd(311.603, 400.234, 78.1852, 0.2)
	pt3dadd(311.76, 402.455, 79.9782, 0.722436)
	pt3dadd(312.054, 403.058, 80.1815, 0.347458)
	pt3dadd(312.251, 403.306, 80.3274, 0.680584)
	pt3dadd(312.315, 403.655, 80.4503, 0.733984)
	pt3dadd(312.252, 404.024, 80.617, 1.14301)
	pt3dadd(312.711, 405.75, 81.8579, 0.532792)
	pt3dadd(312.893, 406.804, 82.2567, 0.853618)
	pt3dadd(313.428, 411.667, 85.1636, 0.341156)
	pt3dadd(313.496, 411.816, 85.4547, 0.55777)
	pt3dadd(313.588, 411.979, 85.7079, 0.486438)
	pt3dadd(313.767, 412.196, 85.8489, 0.446268)
	pt3dadd(314.115, 412.638, 86.1283, 1.00939)
	pt3dadd(314.246, 413.075, 86.5071, 0.363054)
	pt3dadd(317.6, 420.899, 92.2678, 0.733342)
	pt3dadd(317.801, 421.129, 92.5657, 0.81872)
	pt3dadd(318.121, 421.372, 92.7781, 0.881014)
	pt3dadd(319.274, 422.622, 93.0355, 0.241952)
	pt3dadd(319.528, 422.858, 93.0994, 0.29519)
	pt3dadd(319.649, 423.06, 93.3123, 0.355212)
	pt3dadd(319.836, 423.324, 93.4975, 0.61993)
	pt3dadd(320.133, 423.42, 93.7278, 0.6349)
	pt3dadd(320.489, 423.462, 93.9913, 0.875204)
	pt3dadd(320.899, 424.03, 94.0794, 1.05654)
	pt3dadd(321.182, 424.37, 94.1467, 0.804858)
	pt3dadd(321.286, 424.683, 94.148, 0.566998)
	pt3dadd(324.373, 429.803, 97.6389, 1.0069)
	pt3dadd(324.659, 430.505, 98.4367, 0.540596)
	pt3dadd(326.447, 432.621, 100.117, 0.422748)
	pt3dadd(326.715, 432.873, 100.603, 0.985598)
	pt3dadd(327.277, 433.559, 100.921, 1.04469)
	pt3dadd(330.549, 439.003, 103.738, 0.2)
	pt3dadd(332.26, 443.489, 105.382, 0.901926)
	pt3dadd(332.383, 443.781, 105.225, 0.812728)
	pt3dadd(333.483, 446.377, 105.751, 0.660078)
	pt3dadd(334.116, 447.017, 105.82, 0.84905)
	pt3dadd(334.301, 447.132, 106.206, 0.917834)
	pt3dadd(337.394, 453.996, 107.341, 0.539414)
	pt3dadd(337.546, 454.011, 107.625, 0.717204)
	pt3dadd(338.175, 454.365, 108.049, 1.18413)
	pt3dadd(338.436, 454.888, 108.578, 0.640282)
	pt3dadd(341.316, 459.862, 110.4, 0.2)
	pt3dadd(343.386, 466.044, 112.977, 0.293666)
	pt3dadd(343.305, 466.887, 115.034, 0.584564)
  }
  dend_6[56] {pt3dclear()
	pt3dadd(343.305, 466.887, 115.034, 0.584564)
	pt3dadd(342.619, 470.56, 116.123, 0.2)
  }
  dend[105] {pt3dclear()
	pt3dadd(321.049, 342.842, 48.339, 1.19622)
	pt3dadd(321.826, 342.406, 48.906, 0.3988)
	pt3dadd(322.122, 342.398, 49.0488, 0.365182)
	pt3dadd(322.367, 342.425, 49.1389, 0.25275)
	pt3dadd(322.666, 342.47, 49.273, 0.447804)
	pt3dadd(323.037, 342.466, 49.4143, 0.581226)
	pt3dadd(323.31, 342.362, 49.5989, 0.689524)
	pt3dadd(323.669, 342.284, 49.7843, 0.531224)
	pt3dadd(324.036, 342.191, 49.9682, 0.741696)
	pt3dadd(324.707, 342.1, 50.1984, 0.511686)
	pt3dadd(325.178, 342.034, 50.3311, 0.718262)
	pt3dadd(325.796, 342.106, 50.8281, 0.858852)
	pt3dadd(326.062, 342.214, 51.1655, 0.830556)
	pt3dadd(326.487, 342.214, 51.4329, 0.693542)
	pt3dadd(326.783, 342.083, 51.7014, 0.583986)
	pt3dadd(327.049, 342.023, 51.8805, 0.47833)
	pt3dadd(327.351, 342.041, 52.0452, 0.406644)
	pt3dadd(327.562, 341.994, 52.1509, 0.460986)
	pt3dadd(327.8, 341.904, 52.2612, 0.566406)
	pt3dadd(328.413, 341.657, 52.372, 0.395558)
	pt3dadd(328.76, 341.717, 52.4982, 0.453364)
	pt3dadd(329.123, 341.836, 52.7229, 0.457314)
	pt3dadd(329.347, 341.875, 52.8885, 0.414778)
	pt3dadd(329.624, 341.907, 53.0859, 0.49028)
	pt3dadd(329.903, 341.916, 53.2772, 0.933772)
	pt3dadd(330.362, 342.113, 53.4593, 1.20837)
	pt3dadd(331.423, 342.387, 54.6761, 0.786374)
	pt3dadd(331.805, 342.432, 55.2233, 0.52692)
	pt3dadd(331.941, 342.479, 55.513, 0.559118)
	pt3dadd(332.075, 342.448, 56.1603, 0.912238)
	pt3dadd(332.719, 342.315, 56.8589, 1.3579)
	pt3dadd(333.444, 342.22, 57.5253, 1.16058)
	pt3dadd(334.049, 342.383, 58.1735, 0.890834)
	pt3dadd(334.622, 342.503, 58.6166, 0.54364)
	pt3dadd(334.932, 342.629, 58.7773, 0.641502)
	pt3dadd(335.383, 342.515, 59.0932, 0.63904)
	pt3dadd(335.726, 342.516, 59.1972, 0.440158)
	pt3dadd(336, 342.634, 59.3864, 0.605558)
	pt3dadd(336.299, 342.72, 59.7356, 0.48374)
	pt3dadd(336.487, 342.823, 59.9205, 0.208036)
	pt3dadd(336.772, 342.808, 60.1404, 0.388884)
	pt3dadd(336.986, 342.759, 60.3837, 0.714416)
	pt3dadd(337.295, 342.806, 60.6418, 1.13589)
	pt3dadd(338.305, 343.103, 61.0464, 0.912856)
	pt3dadd(338.83, 343.243, 61.5236, 0.942664)
	pt3dadd(340.772, 343.906, 62.447, 0.68012)
	pt3dadd(341.13, 343.798, 62.7453, 0.698324)
	pt3dadd(341.862, 343.786, 63.0406, 0.810044)
	pt3dadd(342.164, 343.998, 63.0891, 0.39149)
	pt3dadd(342.413, 344.161, 63.2538, 0.437972)
	pt3dadd(342.769, 344.214, 63.5997, 0.37737)
	pt3dadd(342.997, 344.09, 63.6201, 0.2)
	pt3dadd(343.246, 344.002, 63.7204, 0.296524)
	pt3dadd(343.466, 343.877, 63.8641, 0.516872)
	pt3dadd(343.661, 343.795, 64.1277, 0.466396)
	pt3dadd(344.046, 343.798, 64.3522, 0.345306)
	pt3dadd(344.33, 343.785, 64.4542, 0.32233)
	pt3dadd(344.668, 343.789, 64.4238, 0.2)
	pt3dadd(345.112, 343.76, 64.8412, 0.470786)
	pt3dadd(345.384, 344.149, 65.5911, 1.16586)
	pt3dadd(345.231, 344.333, 66.0208, 0.7986)
	pt3dadd(345.481, 344.419, 66.4243, 0.668312)
	pt3dadd(345.657, 343.791, 66.9018, 0.2)
	pt3dadd(346.181, 343.995, 67.3633, 0.464896)
	pt3dadd(347.067, 343.969, 67.305, 0.2)
	pt3dadd(347.224, 343.875, 67.5826, 0.288194)
	pt3dadd(347.338, 343.879, 68.0664, 0.56739)
	pt3dadd(347.488, 343.8, 68.3603, 0.60337)
	pt3dadd(347.7, 343.675, 68.6989, 0.774178)
	pt3dadd(347.944, 343.779, 69.1906, 0.755458)
	pt3dadd(348.268, 343.801, 69.3937, 0.310822)
	pt3dadd(348.729, 343.679, 69.657, 0.756718)
	pt3dadd(350.207, 344.107, 71.6764, 0.338376)
	pt3dadd(350.394, 344.183, 71.8287, 0.340942)
	pt3dadd(350.6, 344.198, 72.0151, 0.545424)
	pt3dadd(350.823, 344.371, 72.4578, 0.612316)
	pt3dadd(351.393, 344.051, 72.962, 0.790996)
	pt3dadd(351.707, 343.922, 73.2338, 0.561486)
	pt3dadd(351.898, 343.932, 73.5438, 0.44025)
	pt3dadd(352.073, 343.958, 73.785, 0.445954)
	pt3dadd(352.186, 344.19, 74.1219, 0.530266)
	pt3dadd(352.336, 344.343, 74.4079, 0.617154)
	pt3dadd(352.391, 344.376, 74.743, 0.667162)
	pt3dadd(352.643, 343.791, 75.0932, 0.80404)
	pt3dadd(353.401, 343.893, 75.6668, 0.866588)
	pt3dadd(353.754, 343.735, 75.9503, 0.507844)
	pt3dadd(353.959, 343.618, 76.1053, 0.344206)
	pt3dadd(354.166, 343.534, 76.3009, 0.397082)
	pt3dadd(354.292, 343.401, 76.567, 0.3303)
	pt3dadd(354.438, 343.314, 76.7859, 0.332936)
	pt3dadd(354.654, 343.259, 77.003, 0.497222)
	pt3dadd(354.797, 343.222, 77.2324, 0.440272)
	pt3dadd(354.783, 343.228, 77.4983, 0.469698)
	pt3dadd(355.485, 343.039, 77.5849, 0.2)
	pt3dadd(355.704, 343.037, 77.6642, 0.216424)
	pt3dadd(355.901, 343.012, 77.8179, 0.316716)
	pt3dadd(356.263, 342.893, 78.1347, 0.71263)
	pt3dadd(356.838, 342.893, 78.507, 1.02854)
	pt3dadd(357.18, 343.344, 79.2781, 0.681056)
	pt3dadd(357.268, 343.516, 79.5291, 0.489176)
	pt3dadd(357.449, 343.721, 79.7122, 0.2)
	pt3dadd(357.566, 344.001, 80.0001, 0.682404)
	pt3dadd(357.688, 344.464, 80.6733, 1.09629)
	pt3dadd(357.95, 344.994, 81.0744, 1.10596)
  }
}
proc shape3d_53() {
  dend[105] {	pt3dadd(358.345, 345.39, 81.8211, 0.812478)
	pt3dadd(358.559, 345.649, 82.1672, 0.50605)
	pt3dadd(358.731, 345.766, 82.3671, 0.466852)
	pt3dadd(359.006, 345.796, 82.5438, 0.261078)
	pt3dadd(359.2, 345.856, 82.7279, 0.455324)
	pt3dadd(359.347, 345.915, 82.9592, 0.447474)
	pt3dadd(359.569, 345.962, 83.1694, 0.325608)
	pt3dadd(359.773, 345.98, 83.3805, 0.248634)
	pt3dadd(359.987, 345.94, 83.6114, 0.417132)
	pt3dadd(360.065, 345.891, 83.8607, 0.370254)
	pt3dadd(360.212, 345.843, 84.0881, 0.436844)
	pt3dadd(360.799, 345.882, 84.5436, 0.968884)
	pt3dadd(361.536, 345.324, 85.0194, 1.0524)
	pt3dadd(361.973, 345.505, 85.3601, 0.850228)
	pt3dadd(362.641, 345.29, 85.7375, 0.562012)
	pt3dadd(362.964, 345.406, 86.1368, 0.78282)
	pt3dadd(368.207, 345.483, 90.3969, 0.862274)
	pt3dadd(368.961, 345.375, 90.7648, 1.09741)
	pt3dadd(369.349, 345.27, 91.068, 1.00215)
	pt3dadd(369.995, 345.023, 91.6971, 1.11313)
	pt3dadd(370.501, 344.885, 92.1796, 0.75301)
	pt3dadd(370.734, 344.876, 92.3496, 0.558042)
	pt3dadd(370.977, 344.741, 92.5268, 0.462356)
	pt3dadd(371.216, 344.705, 92.6557, 0.438842)
	pt3dadd(371.607, 344.652, 92.7499, 0.335084)
	pt3dadd(371.799, 344.612, 92.8814, 0.2)
	pt3dadd(371.999, 344.591, 93.0443, 0.2)
	pt3dadd(372.216, 344.546, 93.1574, 0.216486)
	pt3dadd(372.434, 344.509, 93.2691, 0.389994)
	pt3dadd(372.912, 344.492, 93.5513, 0.743314)
	pt3dadd(373.201, 344.508, 93.8294, 0.507752)
  }
  dend_6[57] {pt3dclear()
	pt3dadd(373.201, 344.508, 93.8294, 0.507752)
	pt3dadd(373.362, 344.568, 93.9779, 0.341658)
  }
  dend[106] {pt3dclear()
	pt3dadd(315.156, 340.152, 41.1981, 2.14792)
	pt3dadd(315.595, 341.103, 40.7555, 2.03418)
	pt3dadd(316.441, 341.927, 40.4897, 1.78848)
	pt3dadd(317.116, 343.036, 40.4973, 1.66077)
	pt3dadd(317.784, 344.512, 40.5993, 2.34927)
	pt3dadd(318.277, 345.635, 40.6255, 2.04739)
	pt3dadd(319.52, 346.744, 40.3602, 1.43488)
	pt3dadd(319.993, 347.795, 40.1975, 1.83774)
	pt3dadd(320.442, 348.776, 39.7918, 1.79177)
	pt3dadd(320.429, 349.847, 39.555, 1.54562)
	pt3dadd(320.877, 350.832, 39.4352, 1.41711)
	pt3dadd(321.591, 351.857, 39.3725, 1.22861)
	pt3dadd(322.042, 352.395, 39.367, 1.38325)
	pt3dadd(322.649, 353.311, 39.2992, 1.69389)
	pt3dadd(323.419, 354.077, 39.1503, 1.53667)
	pt3dadd(324.092, 355.041, 38.9453, 1.69788)
	pt3dadd(324.861, 356.046, 38.4679, 1.76525)
	pt3dadd(325.486, 357.104, 38.1983, 1.75192)
	pt3dadd(325.837, 357.904, 38.0961, 2.37274)
  }
  dend_5[46] {pt3dclear()
	pt3dadd(325.837, 357.904, 38.0961, 2.37274)
	pt3dadd(326.426, 358.995, 37.3123, 2.8517)
  }
  dend[107] {pt3dclear()
	pt3dadd(326.426, 358.995, 37.3123, 2.8517)
	pt3dadd(327.36, 360.091, 36.9955, 2.41937)
	pt3dadd(328.004, 361.226, 37.0177, 1.90226)
	pt3dadd(328.769, 362.653, 36.9891, 2.03327)
	pt3dadd(329.222, 363.835, 36.8343, 1.96437)
	pt3dadd(329.823, 364.883, 36.5884, 1.80195)
	pt3dadd(330.417, 365.495, 36.2766, 1.71858)
	pt3dadd(331.196, 366.833, 35.9901, 1.884)
	pt3dadd(331.852, 367.929, 35.7331, 1.78977)
	pt3dadd(332.564, 369.362, 35.7233, 1.86948)
	pt3dadd(333.549, 370.608, 35.4364, 1.85813)
	pt3dadd(334.441, 371.793, 35.5253, 1.62888)
	pt3dadd(335.034, 372.394, 35.5456, 1.79964)
	pt3dadd(335.763, 373.678, 35.4363, 1.89698)
	pt3dadd(336.853, 375.471, 35.1109, 2.0155)
	pt3dadd(337.78, 376.566, 34.8301, 1.84108)
  }
  dend_5[47] {pt3dclear()
	pt3dadd(337.78, 376.566, 34.8301, 1.84108)
	pt3dadd(339.005, 377.7, 34.5659, 2.2443)
  }
  dend[108] {pt3dclear()
	pt3dadd(339.005, 377.7, 34.5659, 2.2443)
	pt3dadd(339.531, 378.751, 34.6477, 2.47499)
	pt3dadd(340.443, 380.139, 34.813, 1.91313)
	pt3dadd(341.281, 381.416, 35.1804, 2.10866)
	pt3dadd(342.213, 382.874, 35.4215, 2.05721)
	pt3dadd(343.001, 383.731, 35.3155, 1.98108)
	pt3dadd(343.897, 384.77, 35.4187, 1.71448)
	pt3dadd(344.906, 385.815, 35.5079, 1.70233)
	pt3dadd(346.085, 387.211, 35.5468, 1.92978)
	pt3dadd(347.066, 388.229, 35.5272, 2.36289)
	pt3dadd(347.81, 389.414, 35.4453, 2.27086)
	pt3dadd(348.482, 390.654, 35.7548, 2.26788)
	pt3dadd(349.456, 391.986, 35.7055, 1.97755)
	pt3dadd(350.409, 393.471, 35.9658, 2.08769)
	pt3dadd(351.243, 394.437, 36.154, 2.15002)
	pt3dadd(351.828, 395.643, 36.2437, 2.42806)
	pt3dadd(353.052, 396.86, 36.2344, 2.22012)
	pt3dadd(354.562, 397.566, 36.1276, 2.49355)
	pt3dadd(355.633, 398.531, 36.0852, 2.5881)
	pt3dadd(356.752, 399.523, 36.0302, 2.48562)
	pt3dadd(357.793, 400.547, 36.1125, 2.55645)
	pt3dadd(358.918, 401.718, 35.9362, 2.03108)
	pt3dadd(359.895, 402.766, 36.2283, 1.91351)
	pt3dadd(360.516, 403.894, 36.5519, 1.92889)
  }
  dend_5[48] {pt3dclear()
	pt3dadd(360.516, 403.894, 36.5519, 1.92889)
	pt3dadd(361.576, 405.599, 36.863, 2.77833)
  }
  dend[109] {pt3dclear()
	pt3dadd(361.576, 405.599, 36.863, 2.77833)
	pt3dadd(363.133, 406.5, 36.9399, 1.82296)
	pt3dadd(363.991, 407.434, 37.0661, 1.76452)
	pt3dadd(364.697, 408.32, 37.3781, 1.8488)
	pt3dadd(365.319, 409.452, 37.785, 1.89947)
	pt3dadd(366.018, 410.697, 38.0133, 1.72855)
	pt3dadd(366.291, 411.366, 38.5389, 1.75095)
	pt3dadd(366.733, 412.055, 39.4958, 1.92758)
	pt3dadd(366.903, 412.907, 40.8404, 1.61466)
	pt3dadd(367.041, 413.555, 41.8835, 1.27199)
	pt3dadd(367.362, 413.684, 42.3215, 1.05157)
	pt3dadd(367.589, 414.076, 42.7115, 0.875492)
	pt3dadd(368.023, 414.705, 43.0198, 0.785132)
	pt3dadd(368.366, 415.087, 43.0836, 0.769274)
	pt3dadd(368.597, 415.417, 43.0782, 0.986678)
	pt3dadd(368.911, 416.134, 42.624, 1.10759)
	pt3dadd(369.191, 416.469, 42.2444, 0.96895)
	pt3dadd(369.649, 417.062, 41.9041, 1.01602)
	pt3dadd(369.715, 417.402, 41.4184, 1.22464)
	pt3dadd(370.409, 417.838, 40.7378, 1.47617)
	pt3dadd(371.467, 418.371, 39.7832, 2.10754)
	pt3dadd(372.01, 419.441, 38.6006, 2.01893)
	pt3dadd(373.317, 420.415, 37.859, 1.69831)
  }
  dend_5[49] {pt3dclear()
	pt3dadd(373.317, 420.415, 37.859, 1.69831)
	pt3dadd(374.543, 421.853, 37.4908, 2.29987)
  }
  dend[110] {pt3dclear()
	pt3dadd(374.543, 421.853, 37.4908, 2.29987)
	pt3dadd(376.259, 422.282, 37.6634, 0.4794)
	pt3dadd(376.624, 422.276, 37.7457, 0.421372)
	pt3dadd(376.928, 422.269, 37.805, 0.53796)
	pt3dadd(377.258, 422.274, 37.8913, 0.755078)
	pt3dadd(377.577, 422.619, 37.9153, 0.424592)
	pt3dadd(377.954, 422.793, 38.2413, 0.566358)
  }
  dend_5[50] {pt3dclear()
	pt3dadd(377.954, 422.793, 38.2413, 0.566358)
	pt3dadd(378.334, 422.866, 38.4996, 0.610576)
  }
  dend[111] {pt3dclear()
	pt3dadd(378.334, 422.866, 38.4996, 0.610576)
	pt3dadd(378.231, 422.454, 39.0317, 0.643232)
	pt3dadd(378.272, 422.104, 39.2893, 0.664296)
  }
  dend_6[58] {pt3dclear()
	pt3dadd(378.272, 422.104, 39.2893, 0.664296)
	pt3dadd(378.767, 422.012, 39.5019, 0.69529)
  }
  dend[112] {pt3dclear()
	pt3dadd(378.334, 422.866, 38.4996, 0.610576)
	pt3dadd(378.784, 422.943, 38.6065, 0.919144)
	pt3dadd(379.535, 423.264, 38.6706, 1.15951)
	pt3dadd(380.342, 423.738, 39.2963, 0.906606)
	pt3dadd(380.659, 424.008, 39.8253, 0.92526)
	pt3dadd(381.089, 424.312, 39.959, 0.580606)
	pt3dadd(381.406, 424.46, 40.1033, 0.749892)
	pt3dadd(382.128, 424.639, 40.4358, 1.02596)
	pt3dadd(382.518, 424.785, 40.7422, 0.930464)
	pt3dadd(383.29, 424.753, 41.0197, 0.899982)
	pt3dadd(383.73, 425.048, 40.9906, 0.486432)
	pt3dadd(384.086, 425.247, 41.129, 0.59891)
	pt3dadd(384.384, 425.452, 41.2357, 0.580472)
	pt3dadd(384.718, 425.581, 41.414, 0.755462)
	pt3dadd(385.309, 425.588, 41.8327, 0.895278)
	pt3dadd(386.291, 425.627, 42.1088, 0.91015)
	pt3dadd(386.99, 425.703, 42.3288, 0.595794)
	pt3dadd(387.278, 425.789, 42.3913, 0.45134)
	pt3dadd(387.622, 425.772, 42.4256, 0.521446)
	pt3dadd(387.964, 425.794, 42.3969, 0.493066)
	pt3dadd(388.225, 425.957, 42.669, 0.533194)
	pt3dadd(388.447, 426.106, 42.8251, 0.411458)
	pt3dadd(388.783, 426.289, 42.9308, 0.309902)
	pt3dadd(389.018, 426.418, 43.0884, 0.428256)
	pt3dadd(389.137, 426.505, 43.3072, 0.514974)
	pt3dadd(389.251, 426.553, 43.5791, 0.518526)
	pt3dadd(389.466, 426.931, 43.6466, 0.2)
	pt3dadd(389.844, 427.191, 43.7768, 0.46043)
	pt3dadd(390.197, 427.033, 43.8889, 0.814208)
	pt3dadd(390.588, 427.347, 44.1976, 0.8356)
	pt3dadd(390.915, 427.383, 44.5102, 1.15531)
	pt3dadd(391.66, 427.653, 44.9758, 0.906844)
	pt3dadd(392.243, 427.886, 45.0386, 0.61998)
	pt3dadd(392.56, 428.135, 45.0774, 0.394898)
	pt3dadd(392.786, 428.276, 45.1049, 0.359914)
	pt3dadd(393.015, 428.394, 45.1565, 0.270684)
	pt3dadd(393.195, 428.527, 45.1361, 0.251788)
	pt3dadd(393.441, 428.619, 45.173, 0.298588)
	pt3dadd(393.714, 428.715, 45.2316, 0.4835)
	pt3dadd(394.064, 428.821, 45.293, 0.58553)
	pt3dadd(394.636, 428.854, 45.5607, 0.733762)
	pt3dadd(395.023, 428.953, 45.7449, 1.15461)
	pt3dadd(395.905, 429.502, 46.4325, 0.962642)
	pt3dadd(396.333, 429.671, 46.6872, 0.558186)
	pt3dadd(396.643, 429.887, 46.6988, 0.2)
	pt3dadd(396.908, 429.979, 46.7368, 0.268776)
	pt3dadd(397.127, 430.069, 46.7773, 0.494576)
	pt3dadd(397.424, 430.096, 46.8663, 0.526856)
	pt3dadd(398.079, 430.415, 46.8733, 0.258258)
	pt3dadd(398.357, 430.434, 47.0257, 0.2)
	pt3dadd(398.823, 430.525, 47.3778, 0.396948)
	pt3dadd(399.115, 430.616, 47.3917, 0.340654)
	pt3dadd(399.362, 430.763, 47.4259, 0.436568)
	pt3dadd(399.619, 430.829, 47.4551, 0.270838)
	pt3dadd(399.879, 430.963, 47.4645, 0.466896)
	pt3dadd(400.113, 431.028, 47.5562, 0.363304)
	pt3dadd(400.357, 431.167, 47.6992, 0.428756)
	pt3dadd(400.587, 431.259, 47.7622, 0.402588)
	pt3dadd(400.858, 431.382, 47.8458, 0.4202)
	pt3dadd(401.156, 431.478, 47.9553, 0.552582)
	pt3dadd(401.662, 431.555, 48.0682, 0.797646)
	pt3dadd(402.018, 431.895, 48.0446, 0.79376)
	pt3dadd(403.146, 431.777, 48.1841, 0.3167)
  }
}
proc shape3d_54() {
  dend[112] {	pt3dadd(403.382, 431.783, 48.1435, 0.218584)
	pt3dadd(403.593, 431.8, 48.1242, 0.207464)
	pt3dadd(403.849, 431.831, 48.1113, 0.295792)
	pt3dadd(404.175, 431.86, 48.1819, 0.529426)
	pt3dadd(404.548, 431.802, 48.2673, 0.8908)
	pt3dadd(404.873, 432.13, 48.2564, 0.974832)
	pt3dadd(405.393, 432.118, 48.3719, 1.04027)
	pt3dadd(405.904, 432.232, 48.7004, 1.09288)
	pt3dadd(406.34, 432.37, 49.0092, 0.681924)
	pt3dadd(406.923, 432.561, 48.9933, 0.63412)
	pt3dadd(407.405, 432.63, 49.0366, 1.1363)
	pt3dadd(408.286, 432.562, 49.1255, 0.872724)
	pt3dadd(409.1, 432.481, 49.4098, 1.13613)
  }
  dend[113] {pt3dclear()
	pt3dadd(409.1, 432.481, 49.4098, 1.13613)
	pt3dadd(409.923, 432.258, 49.6132, 0.29659)
	pt3dadd(410.204, 432.18, 49.6791, 0.358692)
	pt3dadd(410.417, 432.08, 49.6997, 0.454268)
	pt3dadd(410.954, 431.978, 49.8001, 0.444602)
	pt3dadd(411.261, 432.012, 49.9148, 0.604262)
	pt3dadd(411.615, 431.998, 50.0328, 0.683038)
	pt3dadd(412.045, 431.939, 50.2815, 0.510102)
	pt3dadd(412.287, 432.036, 50.3264, 0.261356)
	pt3dadd(412.578, 432.008, 50.3782, 0.2)
	pt3dadd(412.946, 431.984, 50.3793, 0.2)
	pt3dadd(413.248, 431.832, 50.4047, 0.461012)
	pt3dadd(413.597, 431.808, 50.7021, 0.50906)
	pt3dadd(413.946, 431.689, 50.9435, 0.589522)
	pt3dadd(414.446, 431.494, 51.2097, 0.964324)
	pt3dadd(415.468, 431.396, 51.6565, 0.30478)
	pt3dadd(415.659, 431.412, 51.6219, 0.2)
	pt3dadd(415.81, 431.399, 51.5825, 0.2)
	pt3dadd(416.067, 431.388, 51.632, 0.2)
	pt3dadd(416.334, 431.383, 51.726, 0.242272)
	pt3dadd(416.595, 431.382, 51.7827, 0.241882)
	pt3dadd(416.821, 431.325, 51.8483, 0.414744)
	pt3dadd(417.073, 431.342, 51.861, 0.410486)
	pt3dadd(417.383, 431.372, 51.9242, 0.342254)
	pt3dadd(417.788, 431.425, 52.1482, 0.551066)
	pt3dadd(418.24, 431.399, 52.1841, 0.267538)
	pt3dadd(418.458, 431.384, 52.1952, 0.2)
	pt3dadd(419.391, 431.604, 53.0526, 0.335366)
	pt3dadd(419.507, 431.645, 52.832, 0.32474)
	pt3dadd(419.887, 431.732, 52.4935, 0.54315)
	pt3dadd(420.665, 431.679, 52.4758, 1.00688)
	pt3dadd(421.681, 431.709, 52.4534, 0.456172)
	pt3dadd(421.862, 431.595, 52.4268, 0.2)
	pt3dadd(422.09, 431.598, 52.4845, 0.2)
	pt3dadd(422.319, 431.583, 52.569, 0.211088)
	pt3dadd(422.611, 431.655, 52.4654, 0.433782)
	pt3dadd(423.051, 431.658, 52.333, 0.577746)
	pt3dadd(423.269, 431.552, 52.4831, 0.46943)
	pt3dadd(423.563, 431.564, 52.5443, 0.2)
	pt3dadd(423.822, 431.573, 52.6179, 0.2)
	pt3dadd(424.11, 431.516, 52.6419, 0.488766)
	pt3dadd(424.566, 431.435, 52.8245, 0.716892)
	pt3dadd(424.905, 431.391, 53.1079, 0.57828)
	pt3dadd(426.432, 431.2, 53.131, 0.40323)
	pt3dadd(427.19, 431.087, 53.4092, 1.28082)
	pt3dadd(427.689, 431.26, 53.3296, 1.1091)
	pt3dadd(429.803, 430.862, 53.0715, 0.590812)
	pt3dadd(430.297, 431.063, 53.0711, 0.3698)
	pt3dadd(430.669, 431.123, 53.1694, 0.523358)
	pt3dadd(431.029, 431.214, 53.175, 0.58724)
	pt3dadd(431.394, 431.399, 53.1058, 0.492324)
	pt3dadd(431.698, 431.566, 53.0374, 0.24404)
	pt3dadd(432.438, 431.656, 52.833, 0.509952)
	pt3dadd(432.821, 431.631, 52.8499, 0.73442)
	pt3dadd(433.181, 431.76, 52.834, 1.12476)
	pt3dadd(435.59, 432.184, 52.7078, 0.3349)
	pt3dadd(435.917, 432.203, 52.7932, 0.2)
	pt3dadd(436.467, 432.247, 52.8012, 0.611362)
	pt3dadd(437.202, 432.122, 52.8791, 0.2)
	pt3dadd(437.5, 432.115, 52.8261, 0.409804)
	pt3dadd(437.72, 432.144, 52.7803, 0.2)
	pt3dadd(437.964, 432.005, 52.7033, 0.2)
	pt3dadd(438.468, 431.787, 52.6916, 0.62864)
	pt3dadd(439.049, 431.868, 52.8248, 1.00628)
	pt3dadd(440.094, 431.679, 52.6885, 1.05956)
	pt3dadd(440.614, 431.476, 52.9442, 0.7025)
	pt3dadd(440.965, 431.261, 52.913, 0.308526)
	pt3dadd(441.651, 430.993, 52.7673, 0.845526)
	pt3dadd(442.092, 430.82, 52.8039, 0.575362)
	pt3dadd(444.203, 430.091, 52.7817, 0.69528)
	pt3dadd(445.854, 429.982, 51.9911, 0.31534)
	pt3dadd(446.124, 429.895, 51.9489, 0.341006)
	pt3dadd(446.418, 429.792, 51.8523, 0.226882)
	pt3dadd(446.862, 429.695, 51.6296, 0.513988)
	pt3dadd(447.314, 429.524, 51.641, 0.38645)
	pt3dadd(447.725, 429.538, 51.6059, 0.458462)
	pt3dadd(448.055, 429.599, 51.5717, 0.798506)
	pt3dadd(448.98, 429.64, 51.5047, 1.04189)
	pt3dadd(449.52, 429.744, 51.3733, 0.390422)
	pt3dadd(449.822, 429.778, 51.39, 0.2)
	pt3dadd(450.054, 429.794, 51.3361, 0.2)
	pt3dadd(450.225, 429.791, 51.3095, 0.2)
	pt3dadd(450.453, 429.789, 51.2358, 0.291486)
	pt3dadd(450.693, 429.811, 51.137, 0.317706)
	pt3dadd(450.963, 429.818, 51.0809, 0.277352)
	pt3dadd(451.308, 429.855, 51.0543, 0.495454)
	pt3dadd(451.683, 429.899, 51.1927, 0.50325)
	pt3dadd(452.18, 429.79, 51.3115, 0.783844)
	pt3dadd(452.463, 430.244, 51.1719, 0.2)
	pt3dadd(452.994, 430.5, 51.2125, 0.2)
	pt3dadd(453.253, 430.569, 51.2114, 0.31164)
	pt3dadd(453.545, 430.581, 51.2132, 0.376056)
	pt3dadd(453.849, 430.607, 51.2245, 0.589384)
	pt3dadd(454.192, 430.521, 51.2727, 0.557042)
	pt3dadd(454.626, 430.428, 51.3349, 0.655026)
	pt3dadd(454.989, 430.27, 51.3985, 0.96887)
	pt3dadd(456.065, 430.453, 51.0397, 0.954738)
	pt3dadd(456.872, 430.753, 51.0054, 0.2)
	pt3dadd(457.092, 430.83, 50.9613, 0.2)
	pt3dadd(458.517, 431.523, 50.8858, 0.557838)
	pt3dadd(458.809, 431.687, 50.6185, 0.627688)
	pt3dadd(459.065, 431.872, 50.3381, 0.583866)
	pt3dadd(459.428, 431.977, 50.3775, 0.2)
	pt3dadd(459.69, 431.984, 50.3932, 0.2)
	pt3dadd(460.957, 432.799, 50.1785, 0.815228)
	pt3dadd(461.768, 432.754, 50.0898, 0.99571)
	pt3dadd(462.162, 432.776, 50.0461, 0.755896)
	pt3dadd(463.495, 433.014, 50.3059, 0.261482)
	pt3dadd(463.726, 433.016, 50.2522, 0.313554)
	pt3dadd(463.917, 433.057, 50.201, 0.2)
	pt3dadd(464.499, 433.27, 50.2892, 0.505604)
	pt3dadd(465.44, 433.375, 50.3995, 0.68518)
	pt3dadd(465.78, 433.332, 50.0989, 0.934448)
	pt3dadd(466.88, 433.567, 50.1263, 0.25036)
	pt3dadd(467.109, 433.561, 50.079, 0.2)
	pt3dadd(467.352, 433.604, 49.9493, 0.2)
	pt3dadd(467.594, 433.656, 49.8462, 0.47272)
	pt3dadd(467.985, 433.81, 49.5913, 0.469136)
	pt3dadd(468.392, 433.956, 49.5433, 0.321526)
	pt3dadd(468.632, 434.026, 49.5457, 0.2)
	pt3dadd(473.491, 434.61, 48.43, 0.67814)
	pt3dadd(473.858, 434.748, 48.6527, 0.499844)
	pt3dadd(474.148, 434.862, 48.7433, 0.524212)
	pt3dadd(474.509, 434.91, 48.8102, 0.581154)
	pt3dadd(475.212, 435.131, 48.8839, 0.953098)
	pt3dadd(475.552, 435.184, 48.9517, 0.771864)
	pt3dadd(478.107, 437.084, 49.1849, 1.28453)
	pt3dadd(478.63, 437.324, 49.229, 0.937492)
	pt3dadd(481.824, 438.195, 49, 0.2)
	pt3dadd(481.906, 438.33, 49.1132, 0.379742)
	pt3dadd(482.259, 438.641, 49.1569, 0.771528)
	pt3dadd(482.383, 438.806, 49.5775, 0.686918)
	pt3dadd(483.886, 438.317, 48.5983, 0.764132)
	pt3dadd(484.433, 438.406, 48.4746, 0.746978)
	pt3dadd(485.228, 438.561, 48.4892, 0.657104)
	pt3dadd(485.574, 438.689, 48.4917, 0.497702)
	pt3dadd(487.685, 438.878, 48.7015, 0.71387)
	pt3dadd(492.262, 439.951, 49.7853, 0.509082)
	pt3dadd(492.581, 440.028, 49.875, 0.569786)
	pt3dadd(492.968, 440.17, 49.9468, 0.384594)
	pt3dadd(493.27, 440.335, 49.988, 0.265272)
	pt3dadd(493.556, 440.336, 50.2878, 0.400216)
	pt3dadd(496.49, 441.182, 50.8376, 0.655022)
	pt3dadd(496.927, 440.993, 51.5299, 1.17926)
	pt3dadd(497.719, 440.894, 51.8274, 1.26437)
	pt3dadd(498.31, 441.154, 51.2201, 0.397744)
	pt3dadd(500.002, 440.997, 52.1225, 0.663108)
	pt3dadd(500.371, 441.173, 52.4903, 0.347728)
	pt3dadd(500.797, 441.334, 52.7837, 0.48114)
	pt3dadd(501.035, 441.391, 52.6242, 0.26409)
	pt3dadd(501.323, 441.413, 52.5144, 0.237912)
	pt3dadd(501.534, 441.508, 52.533, 0.410586)
	pt3dadd(501.86, 441.525, 52.5972, 0.441476)
	pt3dadd(502.421, 441.722, 52.5833, 0.930914)
	pt3dadd(505.643, 441.825, 52.5663, 0.30075)
	pt3dadd(505.815, 441.8, 52.3996, 0.259302)
	pt3dadd(505.996, 441.771, 52.2769, 0.386856)
	pt3dadd(506.411, 441.656, 52.01, 0.719742)
	pt3dadd(506.922, 441.457, 52.1292, 0.2)
	pt3dadd(507.183, 441.361, 52.1723, 0.2)
	pt3dadd(507.521, 441.21, 52.2905, 0.359832)
	pt3dadd(507.879, 440.904, 52.2229, 0.2)
	pt3dadd(508.166, 440.762, 52.2451, 0.212082)
	pt3dadd(508.246, 440.643, 52.3977, 0.22719)
	pt3dadd(508.498, 440.169, 52.6301, 0.58664)
	pt3dadd(508.892, 439.994, 52.5042, 0.2)
	pt3dadd(509.315, 439.923, 52.3448, 0.788878)
	pt3dadd(510.106, 439.653, 52.205, 1.46867)
	pt3dadd(510.508, 439.391, 52.1716, 0.928542)
	pt3dadd(516.145, 437.088, 51.0754, 0.517924)
	pt3dadd(518.037, 436.697, 51.1891, 0.499958)
	pt3dadd(519.811, 436.101, 50.9046, 0.81906)
	pt3dadd(519.988, 435.761, 50.5915, 0.736638)
	pt3dadd(520.108, 435.003, 50.3848, 1.02956)
	pt3dadd(520.758, 434.939, 49.975, 0.405256)
	pt3dadd(521.148, 434.666, 50.0318, 0.2)
	pt3dadd(521.676, 434.418, 50.2078, 0.711202)
	pt3dadd(522.333, 434.34, 50.186, 0.91392)
	pt3dadd(524.52, 433.987, 49.8142, 0.427982)
	pt3dadd(524.782, 433.817, 50.053, 0.43484)
	pt3dadd(525.224, 433.674, 50.016, 0.2)
	pt3dadd(525.449, 433.51, 49.9345, 0.2)
	pt3dadd(525.695, 433.426, 49.854, 0.318632)
	pt3dadd(525.946, 433.288, 49.792, 0.523082)
	pt3dadd(528.316, 432.315, 49.7653, 0.85382)
	pt3dadd(528.962, 432.292, 49.4914, 0.958924)
	pt3dadd(530.13, 430.691, 50.6847, 0.302728)
  }
}
proc shape3d_55() {
  dend[113] {	pt3dadd(530.814, 430.525, 50.5883, 0.839984)
	pt3dadd(531.412, 430.657, 50.0398, 0.411812)
	pt3dadd(531.631, 430.797, 49.8437, 0.401712)
	pt3dadd(531.756, 430.905, 49.6298, 0.547332)
	pt3dadd(531.78, 430.945, 49.3592, 0.74704)
  }
  dend_6[59] {pt3dclear()
	pt3dadd(531.78, 430.945, 49.3592, 0.74704)
	pt3dadd(531.87, 430.999, 48.7502, 0.296258)
  }
  dend_5[51] {pt3dclear()
	pt3dadd(409.1, 432.481, 49.4098, 1.13613)
	pt3dadd(413.288, 436.944, 51.2657, 0.906726)
  }
  dend[114] {pt3dclear()
	pt3dadd(413.288, 436.944, 51.2657, 0.906726)
	pt3dadd(418.902, 441.485, 55.1923, 1.08868)
	pt3dadd(419.316, 441.779, 55.7611, 0.242778)
	pt3dadd(419.539, 441.84, 55.9541, 0.279902)
	pt3dadd(419.631, 441.945, 56.2752, 0.564076)
	pt3dadd(419.742, 441.997, 56.7716, 0.758696)
	pt3dadd(419.753, 442.291, 57.3589, 0.453934)
	pt3dadd(419.781, 442.446, 57.526, 0.234336)
	pt3dadd(419.827, 442.674, 57.7282, 0.2)
	pt3dadd(419.937, 442.881, 57.9603, 0.2)
	pt3dadd(420.278, 443.662, 58.6858, 0.946052)
	pt3dadd(420.087, 444.393, 59.334, 1.01019)
	pt3dadd(420.281, 445.304, 59.4227, 0.92276)
	pt3dadd(420.545, 446.199, 59.6605, 0.695384)
	pt3dadd(420.595, 446.541, 59.7223, 0.265746)
	pt3dadd(420.622, 446.855, 59.8371, 0.2)
	pt3dadd(420.598, 447.051, 59.9347, 0.2)
	pt3dadd(421.087, 449.496, 60.7853, 0.2)
	pt3dadd(421.296, 449.851, 61.0402, 0.3939)
	pt3dadd(421.368, 450.075, 61.1036, 0.2)
	pt3dadd(422.534, 452.197, 62.411, 0.873444)
	pt3dadd(422.714, 452.565, 62.7036, 0.805914)
	pt3dadd(422.788, 453.461, 62.8738, 0.821396)
	pt3dadd(422.557, 453.747, 62.7486, 0.839014)
	pt3dadd(422.855, 456.435, 63.9675, 0.2)
	pt3dadd(422.967, 456.637, 64.1022, 0.2)
	pt3dadd(423.204, 456.851, 64.2236, 0.393046)
	pt3dadd(423.524, 457.365, 64.6346, 0.906262)
	pt3dadd(423.843, 457.686, 65.2911, 1.16172)
	pt3dadd(424.13, 458.035, 65.6559, 0.5741)
	pt3dadd(429.745, 461.621, 67.0061, 0.862412)
	pt3dadd(430.365, 462.085, 67.2136, 0.91277)
	pt3dadd(430.879, 462.081, 67.2659, 0.987388)
	pt3dadd(431.604, 462.416, 67.1047, 0.385372)
	pt3dadd(432.073, 462.75, 67.2008, 0.2)
	pt3dadd(432.124, 463.022, 67.3449, 0.2)
	pt3dadd(432.276, 463.361, 67.8459, 0.549918)
	pt3dadd(432.585, 463.509, 67.9654, 0.427978)
	pt3dadd(433.091, 463.799, 68.1835, 0.613968)
	pt3dadd(433.323, 463.873, 68.4023, 0.546128)
	pt3dadd(436.441, 465.567, 69.2072, 0.59303)
	pt3dadd(436.943, 465.503, 69.2218, 0.785218)
	pt3dadd(437.588, 465.7, 69.6073, 0.478472)
	pt3dadd(443.673, 470.155, 70.9117, 0.90452)
	pt3dadd(444.033, 470.454, 71.0754, 0.998546)
	pt3dadd(450.494, 476.601, 72.4406, 0.8166)
	pt3dadd(451.167, 476.996, 72.4343, 1.01375)
	pt3dadd(451.699, 477.267, 72.4163, 0.646022)
	pt3dadd(454.005, 478.583, 73.3607, 0.554668)
	pt3dadd(454.412, 478.826, 73.4371, 0.709148)
	pt3dadd(454.686, 479.138, 73.6139, 0.811588)
	pt3dadd(455.034, 479.598, 73.6011, 0.330072)
	pt3dadd(460.462, 482.547, 75.6594, 0.53452)
	pt3dadd(461.051, 482.755, 75.7164, 0.632384)
	pt3dadd(461.439, 482.794, 75.7896, 0.316492)
	pt3dadd(461.731, 482.789, 75.8654, 0.27933)
	pt3dadd(462.87, 482.708, 76.257, 0.435678)
	pt3dadd(463.151, 482.68, 76.4084, 0.359162)
	pt3dadd(463.445, 482.581, 76.5292, 0.24657)
	pt3dadd(463.803, 482.434, 76.8725, 0.512362)
	pt3dadd(464.178, 482.429, 77.1854, 0.2939)
	pt3dadd(464.45, 482.603, 77.5157, 0.267338)
	pt3dadd(464.634, 482.425, 77.8005, 0.321712)
	pt3dadd(464.871, 482.233, 77.9781, 0.2)
	pt3dadd(465.056, 482.072, 78.206, 0.60335)
	pt3dadd(465.761, 482.002, 78.6935, 1.06216)
	pt3dadd(470.006, 485.223, 82.4467, 0.302656)
	pt3dadd(470.255, 485.374, 82.5589, 0.2)
	pt3dadd(470.518, 485.516, 82.6077, 0.388126)
	pt3dadd(472.134, 486.749, 83.608, 0.387704)
	pt3dadd(472.521, 486.804, 83.1944, 0.439674)
	pt3dadd(475.281, 489.049, 85.4867, 0.940586)
	pt3dadd(475.908, 489.38, 86.2161, 0.72136)
	pt3dadd(479.086, 490.526, 86.7891, 0.65924)
	pt3dadd(479.681, 490.719, 87.0445, 0.696622)
	pt3dadd(480.531, 490.876, 87.3551, 0.476996)
	pt3dadd(482.585, 492.971, 88.2799, 0.418802)
	pt3dadd(482.913, 493.366, 88.6057, 0.675478)
	pt3dadd(487.505, 496.772, 90.4365, 1.10484)
	pt3dadd(488.009, 497.376, 90.5861, 0.933834)
	pt3dadd(491.684, 501.113, 94.2416, 0.2)
	pt3dadd(492.004, 501.473, 94.3883, 0.686054)
	pt3dadd(492.188, 501.725, 94.6295, 0.481256)
	pt3dadd(492.697, 501.906, 94.7524, 0.572906)
	pt3dadd(497.114, 503.54, 98.1609, 0.927886)
	pt3dadd(497.363, 503.659, 98.7606, 0.787414)
	pt3dadd(497.707, 504.018, 99.0424, 0.362976)
  }
  dend_6[60] {pt3dclear()
	pt3dadd(497.707, 504.018, 99.0424, 0.362976)
	pt3dadd(501.756, 505.29, 101.671, 0.899778)
  }
  dend[115] {pt3dclear()
	pt3dadd(413.288, 436.944, 51.2657, 0.906726)
	pt3dadd(412.663, 436.877, 51.2, 1.04434)
	pt3dadd(412.704, 436.44, 51.4, 0.63361)
	pt3dadd(412.437, 435.985, 51, 0.338486)
	pt3dadd(412.327, 435.815, 50.8, 0.235952)
  }
  dend_6[61] {pt3dclear()
	pt3dadd(412.327, 435.815, 50.8, 0.235952)
	pt3dadd(412.2, 435.79, 50.8, 0.2)
  }
  dend[116] {pt3dclear()
	pt3dadd(374.543, 421.853, 37.4908, 2.29987)
	pt3dadd(375.285, 423.718, 36.4977, 1.83022)
	pt3dadd(375.609, 425.126, 35.9577, 1.55908)
	pt3dadd(376.065, 425.727, 35.6546, 1.86326)
	pt3dadd(376.605, 426.497, 35.4249, 1.66247)
	pt3dadd(377.21, 427.888, 35.192, 1.69897)
	pt3dadd(378.221, 428.815, 35.139, 1.73736)
	pt3dadd(378.652, 429.592, 35.2323, 1.68687)
	pt3dadd(379.103, 430.965, 34.8987, 1.93068)
	pt3dadd(379.844, 432.304, 34.6311, 1.8287)
	pt3dadd(380.496, 433.478, 34.4408, 1.44058)
	pt3dadd(380.838, 434.801, 34.3902, 1.96876)
	pt3dadd(381.427, 435.914, 34.6043, 1.85635)
	pt3dadd(381.879, 436.845, 34.3792, 1.68992)
	pt3dadd(382.733, 437.759, 34.1277, 1.94206)
	pt3dadd(383.256, 438.921, 33.9525, 1.88316)
	pt3dadd(383.483, 440.198, 34.0764, 1.63742)
	pt3dadd(383.93, 440.906, 33.8575, 1.55641)
	pt3dadd(383.927, 441.715, 33.8476, 1.33774)
	pt3dadd(384.151, 442.468, 33.8784, 1.55912)
	pt3dadd(384.895, 443.771, 33.7259, 1.72969)
	pt3dadd(385.451, 445.194, 33.476, 1.91726)
	pt3dadd(386.339, 446.801, 33.5241, 1.63952)
	pt3dadd(386.591, 447.617, 33.5278, 1.72514)
	pt3dadd(387.265, 448.389, 33.3137, 1.34195)
	pt3dadd(387.274, 449.781, 33.3342, 1.51694)
	pt3dadd(387.885, 450.239, 33.3795, 1.3682)
	pt3dadd(388.57, 451.32, 33.4232, 1.48199)
	pt3dadd(389.622, 452.447, 33.0711, 1.69538)
	pt3dadd(390.399, 453.205, 32.9571, 1.82673)
	pt3dadd(390.861, 454.244, 32.9572, 1.82733)
	pt3dadd(391.413, 455.394, 33.0807, 1.55882)
	pt3dadd(391.495, 456.797, 33.2138, 1.31477)
	pt3dadd(391.465, 457.535, 33.2295, 1.41554)
	pt3dadd(391.823, 458.312, 33.1758, 1.31083)
	pt3dadd(392.365, 459.074, 32.9234, 1.62315)
	pt3dadd(392.733, 460.356, 32.8762, 2.19745)
	pt3dadd(393.596, 461.521, 32.8254, 2.29689)
	pt3dadd(394.289, 462.958, 32.7105, 1.74146)
	pt3dadd(394.635, 463.841, 32.6517, 1.52558)
	pt3dadd(395.083, 464.954, 32.6783, 1.45673)
	pt3dadd(395.502, 465.584, 32.6314, 1.39965)
	pt3dadd(396.211, 466.502, 32.8344, 1.15085)
	pt3dadd(396.69, 467.011, 32.7041, 1.0605)
	pt3dadd(396.981, 467.544, 32.6598, 1.16415)
	pt3dadd(397.362, 468.502, 32.5505, 1.35301)
	pt3dadd(397.583, 469.528, 32.5877, 1.55112)
	pt3dadd(397.814, 470.424, 32.5303, 1.62326)
	pt3dadd(398.061, 471.419, 32.2975, 1.45496)
	pt3dadd(398.778, 472.688, 32.5132, 1.75661)
	pt3dadd(399.453, 473.778, 32.576, 1.43643)
	pt3dadd(399.685, 474.796, 32.7069, 1.21647)
	pt3dadd(400.017, 475.75, 32.869, 1.20374)
	pt3dadd(400.313, 476.286, 32.8238, 1.37763)
	pt3dadd(400.426, 477.372, 32.8361, 1.55597)
	pt3dadd(400.998, 478.667, 32.8452, 1.62861)
	pt3dadd(401.49, 479.814, 32.8357, 1.50906)
	pt3dadd(402.071, 480.813, 33.0932, 1.56162)
	pt3dadd(402.544, 481.5, 32.9328, 1.42776)
	pt3dadd(403.228, 482.535, 32.7895, 1.42509)
	pt3dadd(404.03, 483.585, 32.8882, 1.38344)
	pt3dadd(404.282, 484.236, 33.0594, 1.34883)
	pt3dadd(405.023, 485.162, 33.2789, 1.42879)
	pt3dadd(405.455, 485.708, 33.0439, 1.34)
	pt3dadd(406.173, 486.799, 32.8901, 1.43859)
	pt3dadd(406.65, 487.824, 32.8666, 1.70695)
  }
  dend_5[52] {pt3dclear()
	pt3dadd(406.65, 487.824, 32.8666, 1.70695)
	pt3dadd(407.344, 488.8, 32.9, 2.16348)
  }
  dend[117] {pt3dclear()
	pt3dadd(407.344, 488.8, 32.9, 2.16348)
	pt3dadd(406.212, 489.586, 33.3193, 0.402134)
	pt3dadd(406.007, 489.81, 33.2865, 0.2)
	pt3dadd(405.85, 489.982, 33.3409, 0.2)
	pt3dadd(405.648, 490.288, 33.3785, 0.313124)
	pt3dadd(405.633, 490.552, 33.4416, 0.249348)
	pt3dadd(405.587, 490.826, 33.5669, 0.261658)
	pt3dadd(405.451, 491.048, 33.69, 0.33331)
	pt3dadd(405.276, 491.307, 33.7231, 0.501734)
	pt3dadd(405.163, 491.65, 33.7869, 0.66165)
	pt3dadd(404.963, 492.031, 33.9202, 0.803234)
	pt3dadd(404.985, 492.579, 34.1865, 0.665558)
	pt3dadd(405.047, 492.991, 34.2775, 0.615298)
	pt3dadd(404.922, 493.277, 34.4237, 0.493498)
	pt3dadd(404.849, 493.609, 34.5505, 0.635482)
	pt3dadd(404.699, 494.23, 34.686, 0.792504)
	pt3dadd(404.565, 494.958, 34.9166, 1.11514)
	pt3dadd(404.202, 495.865, 34.9846, 0.609634)
	pt3dadd(404.004, 496.459, 35.1412, 0.443938)
	pt3dadd(403.924, 496.742, 35.2063, 0.478202)
	pt3dadd(403.872, 496.993, 35.2719, 0.51803)
	pt3dadd(403.841, 497.341, 35.3919, 0.301468)
	pt3dadd(403.805, 497.643, 35.4765, 0.419688)
	pt3dadd(403.69, 497.897, 35.5824, 0.548222)
	pt3dadd(403.443, 498.332, 35.7031, 1.15126)
	pt3dadd(403.053, 499.068, 35.4754, 1.23357)
	pt3dadd(403.04, 500.055, 35.4142, 1.03231)
  }
}
proc shape3d_56() {
  dend[117] {	pt3dadd(402.81, 501.008, 35.4892, 1.0038)
	pt3dadd(402.631, 501.573, 35.5588, 0.934296)
	pt3dadd(402.513, 502.038, 35.8096, 0.924164)
	pt3dadd(402.859, 502.621, 35.6597, 0.865422)
	pt3dadd(403.043, 502.985, 35.4235, 0.635194)
	pt3dadd(403.202, 503.191, 35.1966, 0.64128)
	pt3dadd(403.343, 503.865, 35.4371, 0.511392)
	pt3dadd(403.348, 504.11, 35.5585, 0.492362)
	pt3dadd(403.29, 504.397, 35.6442, 0.45282)
	pt3dadd(403.268, 504.653, 35.6714, 0.454076)
	pt3dadd(403.356, 504.909, 35.7206, 0.347752)
	pt3dadd(403.402, 505.201, 35.6693, 0.41439)
	pt3dadd(403.509, 505.522, 35.6007, 0.633782)
	pt3dadd(403.613, 505.844, 35.5345, 0.653992)
	pt3dadd(403.681, 506.232, 35.5295, 0.965082)
	pt3dadd(403.938, 507.233, 35.5713, 0.925706)
	pt3dadd(404.081, 508.161, 35.6301, 0.527532)
	pt3dadd(404.13, 508.472, 35.6907, 0.542834)
	pt3dadd(404.225, 508.766, 35.6638, 0.437606)
	pt3dadd(404.379, 509.202, 35.6844, 0.291534)
	pt3dadd(404.437, 509.413, 35.6702, 0.2724)
	pt3dadd(404.492, 509.645, 35.6831, 0.42208)
	pt3dadd(404.515, 509.95, 35.6916, 0.572276)
	pt3dadd(404.718, 510.277, 35.6321, 0.629986)
	pt3dadd(404.934, 510.604, 35.6111, 0.769958)
	pt3dadd(405.068, 511.005, 35.5857, 1.18423)
	pt3dadd(404.719, 512.425, 35.7314, 0.633218)
	pt3dadd(404.638, 512.783, 35.7218, 0.479774)
	pt3dadd(404.676, 513.195, 35.7477, 0.608276)
	pt3dadd(405.18, 514.133, 35.7481, 0.593304)
	pt3dadd(405.314, 514.708, 35.7885, 0.64305)
	pt3dadd(405.362, 515.04, 35.7972, 0.887704)
	pt3dadd(405.62, 515.718, 35.6353, 1.06178)
	pt3dadd(406.042, 516.56, 35.6307, 0.65583)
	pt3dadd(406.022, 516.909, 35.6397, 0.824286)
	pt3dadd(406.407, 517.768, 35.577, 0.603826)
	pt3dadd(406.318, 518.229, 35.4518, 0.798428)
	pt3dadd(406.426, 518.98, 35.3493, 0.737242)
	pt3dadd(406.573, 519.429, 35.3522, 1.09522)
	pt3dadd(406.863, 520.332, 35.4071, 1.31706)
	pt3dadd(407.172, 521.352, 35.2523, 0.74723)
	pt3dadd(407.373, 521.797, 35.2202, 0.754268)
	pt3dadd(407.615, 522.211, 35.2759, 0.782204)
	pt3dadd(407.891, 522.585, 35.349, 0.985334)
	pt3dadd(408.099, 523.5, 35.1932, 1.19575)
	pt3dadd(408.04, 524.567, 35.0804, 0.883242)
	pt3dadd(408.063, 525.241, 35.0151, 0.70885)
	pt3dadd(408.161, 525.628, 35.0121, 0.595556)
	pt3dadd(408.182, 525.929, 35.003, 0.517802)
	pt3dadd(408.164, 526.228, 35.0218, 0.400184)
	pt3dadd(408.14, 526.518, 35.1149, 0.471436)
	pt3dadd(408.073, 526.783, 35.1948, 0.52397)
	pt3dadd(408.022, 527.108, 35.1764, 0.442562)
	pt3dadd(407.967, 527.505, 35.0784, 0.552266)
	pt3dadd(408.066, 527.876, 34.983, 0.748182)
	pt3dadd(408.113, 528.259, 34.9518, 0.931396)
	pt3dadd(408.062, 529.133, 35.016, 1.32072)
	pt3dadd(407.912, 530.068, 35.0297, 1.1878)
	pt3dadd(407.758, 531.006, 34.592, 0.947718)
	pt3dadd(407.702, 531.629, 34.6316, 0.588318)
	pt3dadd(407.654, 531.992, 34.671, 0.44751)
	pt3dadd(407.643, 532.297, 34.7691, 0.51388)
	pt3dadd(407.668, 532.772, 34.6518, 0.438664)
	pt3dadd(407.917, 533.136, 34.4802, 0.263384)
	pt3dadd(407.726, 533.377, 34.5174, 0.279846)
	pt3dadd(407.699, 533.621, 34.5384, 0.366628)
	pt3dadd(407.693, 533.947, 34.5464, 0.560546)
	pt3dadd(407.614, 534.288, 34.5409, 1.1101)
	pt3dadd(407.514, 535.229, 34.4708, 1.12672)
	pt3dadd(407.282, 535.791, 34.543, 1.04108)
	pt3dadd(407.336, 536.397, 34.4764, 1.1504)
	pt3dadd(407.6, 536.916, 34.5423, 1.37392)
	pt3dadd(407.577, 537.558, 34.2612, 0.880946)
	pt3dadd(407.599, 538.26, 34.178, 0.300842)
	pt3dadd(407.609, 538.535, 34.1809, 0.341462)
	pt3dadd(407.596, 538.856, 34.1645, 0.345978)
	pt3dadd(407.509, 539.176, 34.1164, 0.411304)
	pt3dadd(407.474, 539.468, 33.9817, 0.527646)
	pt3dadd(407.442, 539.815, 33.9407, 0.443038)
	pt3dadd(407.448, 540.139, 33.8977, 0.458826)
	pt3dadd(407.353, 540.629, 33.8535, 0.437868)
	pt3dadd(407.256, 540.969, 33.8513, 0.49031)
	pt3dadd(407.163, 541.301, 33.8057, 0.785724)
	pt3dadd(407.082, 541.755, 33.6254, 0.895018)
	pt3dadd(407.177, 542.261, 33.5018, 1.24215)
	pt3dadd(406.99, 543.465, 33.2105, 1.51283)
	pt3dadd(406.802, 544.011, 32.7148, 1.20013)
	pt3dadd(406.841, 544.956, 32.7204, 0.504078)
	pt3dadd(406.857, 545.29, 32.7576, 0.40298)
	pt3dadd(406.921, 545.82, 32.5918, 0.478532)
	pt3dadd(407.014, 546.078, 32.4534, 0.369346)
	pt3dadd(407.128, 546.354, 32.2805, 0.552692)
	pt3dadd(407.299, 546.703, 32.1768, 0.741088)
	pt3dadd(407.499, 546.999, 32.0366, 1.0006)
	pt3dadd(407.649, 547.559, 31.8551, 0.9914)
	pt3dadd(407.934, 548.403, 31.5865, 1.174)
	pt3dadd(408.031, 548.975, 31.2674, 0.860412)
	pt3dadd(408.179, 549.61, 31.0154, 0.527914)
	pt3dadd(408.259, 549.984, 30.9219, 0.421206)
	pt3dadd(408.369, 550.189, 30.8876, 0.356372)
	pt3dadd(408.525, 550.424, 30.8104, 0.474454)
	pt3dadd(408.693, 550.698, 30.7165, 0.53299)
	pt3dadd(408.702, 551.034, 30.673, 0.712276)
	pt3dadd(408.727, 551.412, 30.642, 0.73114)
	pt3dadd(408.615, 552.135, 30.622, 1.1416)
	pt3dadd(408.377, 553.221, 30.2624, 1.19059)
	pt3dadd(408.366, 553.968, 30.2609, 0.748792)
	pt3dadd(408.332, 554.366, 30.2703, 0.541236)
	pt3dadd(408.323, 554.748, 30.2789, 0.497712)
	pt3dadd(408.284, 555.114, 30.2887, 0.54676)
	pt3dadd(408.091, 555.486, 30.3075, 0.723618)
	pt3dadd(407.772, 555.827, 30.2693, 1.30486)
	pt3dadd(407.435, 557.087, 29.9711, 1.48184)
	pt3dadd(407.199, 558.479, 29.297, 1.28)
	pt3dadd(406.961, 559.703, 28.9898, 0.912132)
	pt3dadd(406.727, 560.135, 28.9629, 0.644876)
	pt3dadd(406.632, 560.459, 28.9592, 0.520158)
	pt3dadd(406.515, 560.814, 28.9226, 0.601934)
	pt3dadd(406.305, 561.158, 28.9024, 0.553298)
	pt3dadd(406.082, 561.509, 28.8063, 0.493202)
	pt3dadd(405.789, 561.804, 28.7431, 0.452948)
	pt3dadd(405.638, 562.118, 28.6161, 0.755152)
	pt3dadd(405.392, 562.419, 28.4876, 0.797342)
	pt3dadd(404.794, 562.828, 28.3134, 0.990368)
	pt3dadd(404.167, 563.565, 28.2224, 1.11842)
	pt3dadd(403.32, 564.145, 28.2239, 1.35389)
	pt3dadd(402.831, 564.66, 27.9546, 0.832226)
	pt3dadd(402.647, 565.03, 27.821, 1.07207)
	pt3dadd(401.997, 565.985, 27.7663, 0.743652)
	pt3dadd(401.762, 566.276, 27.7821, 0.610272)
	pt3dadd(401.551, 566.617, 27.6738, 0.499966)
	pt3dadd(401.266, 566.811, 27.5387, 0.669566)
	pt3dadd(401.141, 567.156, 27.4689, 0.596534)
	pt3dadd(400.831, 567.531, 27.595, 0.405074)
	pt3dadd(400.654, 567.818, 27.6258, 0.408048)
	pt3dadd(400.5, 568.096, 27.651, 0.484278)
	pt3dadd(400.477, 568.415, 27.7202, 0.55676)
	pt3dadd(400.379, 568.802, 27.5728, 0.95887)
	pt3dadd(400.016, 569.612, 27.1916, 1.47748)
	pt3dadd(399.572, 570.465, 27.0559, 1.17093)
	pt3dadd(399.201, 571.328, 26.8284, 0.98683)
	pt3dadd(399.047, 571.783, 26.5215, 0.699096)
	pt3dadd(398.868, 572.212, 26.3908, 0.425826)
	pt3dadd(398.811, 572.476, 26.3158, 0.27311)
	pt3dadd(398.806, 572.749, 26.2293, 0.202036)
	pt3dadd(398.75, 573.105, 26.067, 0.402136)
	pt3dadd(398.559, 573.372, 25.9295, 0.66035)
	pt3dadd(398.411, 573.798, 26.0694, 0.711364)
	pt3dadd(398.37, 574.187, 26.1876, 0.654602)
	pt3dadd(398.371, 574.567, 26.3089, 0.849894)
	pt3dadd(398.097, 575.34, 26.161, 0.519684)
	pt3dadd(397.853, 575.88, 26.3575, 0.356294)
	pt3dadd(397.813, 576.245, 26.3704, 0.291774)
	pt3dadd(397.766, 576.622, 26.4098, 0.641968)
	pt3dadd(397.703, 577.003, 26.4376, 1.06724)
	pt3dadd(397.792, 577.717, 26.5046, 1.23339)
	pt3dadd(397.257, 579.47, 26.5568, 0.519632)
	pt3dadd(397.23, 579.778, 26.5285, 0.302246)
	pt3dadd(397.274, 580.02, 26.5612, 0.31695)
	pt3dadd(397.254, 580.226, 26.5822, 0.284724)
	pt3dadd(397.241, 580.497, 26.6112, 0.316776)
	pt3dadd(397.147, 580.765, 26.5974, 0.674802)
	pt3dadd(397.154, 581.433, 26.6, 1.15105)
	pt3dadd(397.204, 582.377, 26.7403, 1.22372)
	pt3dadd(396.932, 583.298, 26.8735, 1.25192)
	pt3dadd(396.741, 584.512, 27.0553, 0.720768)
	pt3dadd(396.572, 584.859, 27.0575, 0.582172)
	pt3dadd(396.496, 585.143, 27.1181, 0.456472)
	pt3dadd(396.389, 585.453, 27.146, 0.371566)
	pt3dadd(396.255, 585.841, 27.2124, 0.563198)
	pt3dadd(396.087, 586.202, 27.3402, 0.580334)
	pt3dadd(396.019, 586.495, 27.4087, 0.630296)
	pt3dadd(395.913, 587.115, 27.4511, 0.510682)
	pt3dadd(395.79, 587.447, 27.5134, 0.456106)
	pt3dadd(395.542, 587.652, 27.5214, 0.380124)
	pt3dadd(395.347, 587.843, 27.557, 0.488208)
	pt3dadd(395.163, 588.152, 27.5795, 0.48117)
	pt3dadd(395.031, 588.41, 27.6247, 0.320392)
	pt3dadd(394.92, 588.639, 27.6659, 0.35676)
	pt3dadd(394.796, 588.805, 27.6792, 0.3904)
	pt3dadd(394.612, 588.999, 27.6881, 0.38325)
	pt3dadd(394.437, 589.218, 27.742, 0.400946)
	pt3dadd(394.215, 589.462, 27.8144, 0.299092)
	pt3dadd(393.925, 589.713, 27.8497, 0.366966)
	pt3dadd(393.7, 590.039, 27.9805, 0.456846)
	pt3dadd(393.599, 590.369, 28.0894, 0.589628)
	pt3dadd(393.426, 590.719, 28.216, 0.824918)
	pt3dadd(393.257, 591.542, 28.2888, 1.02648)
	pt3dadd(393.022, 592.149, 28.3776, 1.03291)
	pt3dadd(392.766, 592.635, 28.3527, 0.60508)
	pt3dadd(392.608, 593.043, 28.3143, 0.244226)
	pt3dadd(392.516, 593.283, 28.2612, 0.229876)
	pt3dadd(392.401, 593.474, 28.2807, 0.287668)
	pt3dadd(392.284, 593.635, 28.2997, 0.29714)
	pt3dadd(392.204, 593.833, 28.3032, 0.247776)
	pt3dadd(392.091, 594.105, 28.2189, 0.402488)
	pt3dadd(391.934, 594.318, 28.1063, 0.52311)
	pt3dadd(391.873, 594.72, 28.2438, 0.519774)
	pt3dadd(391.72, 595.002, 28.331, 0.829498)
	pt3dadd(391.613, 595.462, 28.3552, 1.15322)
  }
}
proc shape3d_57() {
  dend[117] {  }
  dend[118] {pt3dclear()
	pt3dadd(391.613, 595.462, 28.3552, 1.15322)
	pt3dadd(391.784, 596.804, 28.7603, 1.18807)
	pt3dadd(391.736, 597.469, 29.0917, 0.91571)
	pt3dadd(391.77, 597.925, 29.1836, 0.718444)
	pt3dadd(391.628, 598.288, 29.3084, 0.62505)
	pt3dadd(391.578, 598.839, 29.3722, 0.24832)
	pt3dadd(391.581, 599.11, 29.4934, 0.231006)
	pt3dadd(391.683, 608.181, 30.4366, 1.03844)
	pt3dadd(391.146, 608.682, 30.5023, 0.685758)
	pt3dadd(390.896, 609.216, 30.2729, 0.54895)
	pt3dadd(390.836, 609.562, 30.2021, 0.635722)
	pt3dadd(390.788, 610.011, 30.2638, 0.61489)
	pt3dadd(390.77, 610.297, 30.4663, 0.610688)
	pt3dadd(390.873, 610.532, 30.7511, 0.671994)
	pt3dadd(390.812, 610.899, 30.8045, 0.362314)
	pt3dadd(390.823, 611.165, 30.8005, 0.2)
	pt3dadd(390.801, 611.386, 30.8002, 0.2)
	pt3dadd(390.786, 611.638, 30.8556, 0.28468)
	pt3dadd(390.811, 611.922, 30.854, 0.22631)
	pt3dadd(390.91, 612.194, 30.8545, 0.610348)
	pt3dadd(390.871, 612.96, 30.936, 0.43588)
	pt3dadd(390.776, 613.931, 30.8589, 0.822892)
	pt3dadd(390.698, 614.763, 30.7014, 1.20003)
	pt3dadd(390.607, 615.544, 30.7887, 0.78018)
	pt3dadd(390.384, 615.991, 30.9547, 0.55133)
	pt3dadd(390.385, 616.395, 30.691, 0.2)
	pt3dadd(390.372, 616.668, 30.5226, 0.408716)
	pt3dadd(390.323, 616.909, 30.8129, 0.405084)
	pt3dadd(390.305, 617.207, 30.846, 0.215076)
	pt3dadd(390.281, 617.461, 30.8661, 0.329308)
	pt3dadd(390.309, 617.718, 30.8444, 0.524688)
	pt3dadd(390.255, 618.032, 31.0087, 0.578984)
	pt3dadd(390.205, 618.304, 31.1547, 0.61344)
	pt3dadd(390.273, 618.664, 31.3367, 0.516676)
	pt3dadd(390.204, 619.188, 31.3009, 0.2)
	pt3dadd(390.122, 619.479, 31.252, 0.210418)
	pt3dadd(390.094, 619.77, 31.1997, 0.584014)
	pt3dadd(390.074, 620.089, 31.1877, 0.946472)
	pt3dadd(389.908, 620.801, 31.51, 1.42389)
	pt3dadd(389.949, 621.834, 31.9999, 1.41227)
	pt3dadd(389.515, 622.79, 31.8356, 0.404292)
	pt3dadd(389.39, 623.04, 31.8508, 0.2914)
	pt3dadd(389.346, 623.342, 31.8184, 0.252902)
	pt3dadd(389.343, 623.564, 31.8101, 0.312488)
	pt3dadd(389.338, 623.852, 31.806, 0.354488)
	pt3dadd(389.38, 624.035, 31.9032, 0.27195)
	pt3dadd(389.412, 624.322, 31.9885, 0.391568)
	pt3dadd(389.497, 624.602, 32.0432, 0.54477)
	pt3dadd(389.406, 624.933, 32.0063, 0.396962)
	pt3dadd(389.399, 625.212, 32.0105, 0.37442)
	pt3dadd(389.397, 625.485, 31.972, 0.319214)
	pt3dadd(389.367, 625.752, 31.9845, 0.318124)
	pt3dadd(389.309, 626.036, 32.0042, 0.427482)
	pt3dadd(389.201, 626.279, 31.9964, 0.27432)
	pt3dadd(389.176, 626.63, 31.9804, 0.302344)
	pt3dadd(389.066, 627.021, 32.0645, 0.2)
	pt3dadd(389.026, 627.248, 32.1457, 0.2)
	pt3dadd(388.895, 627.507, 32.1735, 0.2)
	pt3dadd(388.684, 627.747, 32.2037, 0.587202)
	pt3dadd(388.52, 628.068, 32.2189, 0.944364)
	pt3dadd(388.565, 629.13, 32.4326, 1.30088)
	pt3dadd(388.789, 630.043, 32.4583, 0.98138)
	pt3dadd(388.83, 630.704, 32.482, 0.598534)
	pt3dadd(388.737, 631.197, 32.5692, 0.778762)
	pt3dadd(388.715, 631.575, 32.696, 0.86261)
	pt3dadd(388.67, 632.056, 32.8119, 0.948618)
	pt3dadd(388.504, 632.626, 32.9128, 1.21122)
	pt3dadd(388.439, 633.628, 32.9278, 1.09673)
	pt3dadd(388.735, 634.67, 33.1802, 0.392966)
	pt3dadd(388.704, 634.96, 33.2133, 0.2)
	pt3dadd(388.679, 635.259, 33.3215, 0.281752)
	pt3dadd(388.724, 635.415, 33.4728, 0.337746)
	pt3dadd(388.73, 635.63, 33.5825, 0.496532)
	pt3dadd(388.634, 636.071, 33.5631, 0.387912)
	pt3dadd(388.548, 636.444, 33.609, 0.395484)
	pt3dadd(388.343, 636.698, 33.6799, 0.543842)
	pt3dadd(388.172, 637.032, 33.789, 0.77734)
	pt3dadd(388.028, 637.411, 33.8818, 1.10033)
	pt3dadd(387.83, 638.115, 34.024, 0.952708)
	pt3dadd(387.732, 638.822, 34.0552, 0.54945)
	pt3dadd(387.666, 639.188, 34.0861, 0.523386)
	pt3dadd(387.589, 639.457, 34.1289, 0.341094)
	pt3dadd(387.391, 639.841, 34.2433, 0.317932)
	pt3dadd(387.366, 640.032, 34.2705, 0.280068)
	pt3dadd(387.277, 640.275, 34.2939, 0.233816)
	pt3dadd(387.233, 640.466, 34.2257, 0.332794)
	pt3dadd(387.225, 640.763, 34.1823, 0.4587)
	pt3dadd(387.132, 641.048, 34.2829, 0.530854)
	pt3dadd(386.924, 641.549, 34.3091, 0.264038)
	pt3dadd(386.69, 641.884, 34.337, 0.361666)
	pt3dadd(386.464, 642.191, 34.3481, 0.49942)
	pt3dadd(386.301, 642.617, 34.4557, 0.689506)
	pt3dadd(386.063, 642.984, 34.5452, 0.703192)
	pt3dadd(385.914, 643.556, 34.4366, 0.533238)
	pt3dadd(385.481, 644.078, 34.3926, 0.517226)
	pt3dadd(385.073, 644.325, 34.298, 0.92358)
	pt3dadd(384.673, 644.748, 34.3252, 0.68791)
	pt3dadd(384.221, 645.463, 34.1045, 0.291206)
	pt3dadd(384.026, 645.878, 34.0796, 0.471116)
	pt3dadd(383.752, 646.155, 34.0935, 0.32367)
	pt3dadd(383.547, 646.358, 34.1563, 0.291708)
	pt3dadd(383.288, 646.614, 34.1777, 0.2)
	pt3dadd(383.121, 646.835, 34.1963, 0.456558)
	pt3dadd(382.393, 647.922, 34.4105, 0.601404)
	pt3dadd(382.49, 648.249, 34.5249, 0.542968)
	pt3dadd(382.486, 648.539, 34.6658, 0.534606)
	pt3dadd(382.329, 648.98, 34.8931, 0.617614)
	pt3dadd(382.114, 649.291, 34.7591, 0.482214)
	pt3dadd(381.801, 649.571, 34.6162, 0.51816)
	pt3dadd(381.491, 649.671, 34.4983, 0.509952)
  }
  dend[119] {pt3dclear()
	pt3dadd(381.491, 649.671, 34.4983, 0.509952)
	pt3dadd(380.812, 649.534, 34.2553, 0.816024)
	pt3dadd(380.309, 649.662, 33.9082, 0.453664)
	pt3dadd(380.046, 650.024, 33.6592, 0.2)
	pt3dadd(379.844, 650.213, 33.4843, 0.450436)
	pt3dadd(379.605, 650.616, 33.37, 0.208492)
	pt3dadd(379.56, 650.863, 33.3432, 0.331932)
	pt3dadd(379.411, 651.07, 33.3924, 0.309554)
	pt3dadd(379.405, 651.374, 33.4471, 0.333908)
	pt3dadd(379.112, 651.528, 33.051, 0.295642)
	pt3dadd(379.018, 651.665, 32.8463, 0.31442)
	pt3dadd(378.988, 651.942, 32.7753, 0.297808)
	pt3dadd(378.824, 652.247, 32.7207, 0.388894)
	pt3dadd(378.617, 652.552, 32.6786, 0.540434)
	pt3dadd(378.331, 652.895, 32.6009, 0.744068)
	pt3dadd(378.014, 653.179, 32.5393, 0.405152)
	pt3dadd(377.799, 653.544, 32.5299, 0.2)
	pt3dadd(377.594, 653.865, 32.4897, 0.269008)
	pt3dadd(377.308, 654.063, 32.4102, 0.755176)
	pt3dadd(376.831, 654.441, 31.9894, 0.809088)
	pt3dadd(376.517, 654.862, 31.501, 0.459446)
	pt3dadd(374.805, 657.491, 32.2327, 0.96072)
	pt3dadd(374.134, 658.254, 32.0812, 0.308736)
	pt3dadd(373.88, 658.411, 31.8936, 0.41237)
	pt3dadd(373.961, 658.613, 31.7457, 0.430668)
	pt3dadd(373.906, 659.057, 31.8708, 0.485968)
	pt3dadd(373.816, 659.309, 31.9331, 0.368024)
	pt3dadd(373.716, 659.596, 31.9322, 0.296276)
	pt3dadd(373.624, 659.854, 31.9012, 0.255282)
	pt3dadd(373.56, 660.049, 31.8466, 0.31465)
	pt3dadd(373.387, 660.29, 31.7924, 0.201904)
	pt3dadd(373.275, 660.667, 31.7068, 0.48689)
	pt3dadd(373.004, 661.07, 31.7017, 0.403682)
	pt3dadd(372.839, 661.237, 31.7007, 0.2)
	pt3dadd(372.694, 661.486, 31.7085, 0.2)
	pt3dadd(372.496, 661.723, 31.7834, 0.29015)
	pt3dadd(372.094, 662.289, 31.9066, 0.981916)
	pt3dadd(371.454, 662.864, 31.9385, 1.13553)
	pt3dadd(371.323, 663.374, 31.8731, 0.624356)
	pt3dadd(369.882, 667.939, 31.2322, 0.587922)
	pt3dadd(369.733, 668.284, 30.9971, 0.925492)
	pt3dadd(369.661, 668.97, 30.9252, 0.631962)
	pt3dadd(369.199, 669.523, 30.9994, 0.508872)
	pt3dadd(369.12, 669.934, 31.1406, 0.383958)
	pt3dadd(368.754, 673.604, 31.2266, 1.06174)
	pt3dadd(368.924, 679.392, 30.3971, 1.12286)
	pt3dadd(368.94, 685.1, 29.6065, 0.206726)
	pt3dadd(368.84, 685.32, 29.6988, 0.2)
	pt3dadd(368.831, 685.507, 29.5644, 0.2)
	pt3dadd(369.014, 686.086, 29.3721, 0.761808)
	pt3dadd(368.9, 686.756, 29.0929, 1.12582)
	pt3dadd(368.824, 688.785, 28.4736, 0.55258)
	pt3dadd(368.313, 689.294, 28.4023, 1.1793)
	pt3dadd(368.239, 689.73, 28.4442, 0.72875)
	pt3dadd(368.141, 690.051, 28.4986, 0.441896)
	pt3dadd(368.004, 690.334, 28.6005, 0.264072)
	pt3dadd(367.958, 690.66, 28.8274, 0.2)
	pt3dadd(365.677, 695.529, 28.3354, 0.819098)
	pt3dadd(364.524, 697.371, 27.8981, 0.724878)
	pt3dadd(364.438, 698.199, 27.8182, 1.13949)
	pt3dadd(363.925, 699.012, 27.7125, 0.651124)
	pt3dadd(363.263, 701.887, 27.1882, 0.758916)
	pt3dadd(362.903, 702.48, 27.1274, 0.2)
	pt3dadd(362.74, 702.636, 27.1148, 0.2)
	pt3dadd(361.192, 706.472, 26.8706, 0.329966)
	pt3dadd(361.056, 706.788, 27.008, 0.65583)
	pt3dadd(360.876, 707.546, 27.1834, 0.908412)
	pt3dadd(360.64, 708.018, 27.0571, 0.569634)
	pt3dadd(360.188, 708.243, 27.0562, 0.481476)
	pt3dadd(359.911, 708.378, 27.218, 0.620138)
	pt3dadd(359.679, 708.574, 27.3511, 0.511398)
	pt3dadd(359.377, 708.94, 27.2404, 0.316456)
	pt3dadd(359.178, 709.192, 27.1414, 0.390478)
	pt3dadd(355.965, 712.92, 26.5895, 0.95745)
	pt3dadd(355.733, 713.394, 26.7922, 0.465362)
	pt3dadd(355.662, 713.637, 27.0102, 0.372028)
	pt3dadd(354.601, 716.084, 26.3367, 0.666214)
	pt3dadd(353.575, 718.265, 26.7018, 0.653922)
	pt3dadd(353.399, 719.374, 26.6987, 0.2)
	pt3dadd(353.381, 719.501, 26.5794, 0.233426)
	pt3dadd(353.32, 719.71, 26.5282, 0.2)
	pt3dadd(353.135, 719.962, 26.3637, 0.2)
	pt3dadd(352.876, 720.59, 26.2009, 1.122)
	pt3dadd(350.486, 723.885, 25.6147, 0.669574)
	pt3dadd(350.187, 724.507, 25.4294, 0.291076)
	pt3dadd(350.202, 724.776, 25.3631, 0.28374)
	pt3dadd(350.02, 724.993, 25.3274, 0.260576)
	pt3dadd(349.839, 725.184, 25.3048, 0.291072)
	pt3dadd(349.402, 725.641, 25.3292, 0.439544)
	pt3dadd(346.917, 729.645, 25.4847, 1.03678)
  }
}
proc shape3d_58() {
  dend[119] {	pt3dadd(345.815, 732.347, 24.5478, 0.2925)
	pt3dadd(345.668, 732.547, 24.5939, 0.2)
	pt3dadd(345.203, 733.041, 24.6409, 0.470978)
	pt3dadd(345.038, 733.249, 24.6025, 0.562284)
	pt3dadd(344.287, 735.114, 24.5488, 0.581146)
	pt3dadd(343.599, 735.67, 24.5778, 0.939798)
	pt3dadd(338.071, 740.253, 26.1431, 1.06662)
	pt3dadd(337.739, 740.87, 26.6796, 0.926918)
	pt3dadd(337.544, 741.129, 26.851, 0.546676)
	pt3dadd(337.32, 741.499, 26.9476, 0.401204)
	pt3dadd(337.196, 741.856, 27.0119, 0.450198)
	pt3dadd(336.901, 742.099, 27.1484, 0.2)
	pt3dadd(336.717, 742.284, 27.2361, 0.2)
	pt3dadd(336.483, 742.408, 27.3603, 0.258494)
	pt3dadd(336.077, 742.639, 27.6419, 0.689764)
	pt3dadd(335.644, 742.878, 28.0872, 0.866062)
	pt3dadd(335.379, 743.447, 28.2735, 0.2)
	pt3dadd(335.219, 743.614, 28.3991, 0.2)
	pt3dadd(335.016, 743.712, 28.5325, 0.2)
	pt3dadd(334.781, 743.848, 28.6677, 0.287598)
	pt3dadd(334.558, 743.921, 28.836, 0.514386)
	pt3dadd(333.798, 745.209, 30.0146, 1.10462)
	pt3dadd(333.432, 745.843, 30.2743, 0.830662)
	pt3dadd(333.113, 746.262, 30.4506, 0.2)
	pt3dadd(332.95, 746.503, 30.5244, 0.353826)
	pt3dadd(332.829, 746.615, 30.7452, 0.453516)
	pt3dadd(332.296, 749.254, 30.3488, 0.75398)
	pt3dadd(332.821, 750.87, 29.4323, 0.434906)
	pt3dadd(333.025, 751.135, 29.1713, 0.542702)
	pt3dadd(333.169, 751.247, 28.961, 0.491474)
	pt3dadd(333.24, 751.6, 28.8, 0.2)
	pt3dadd(332.998, 753.323, 28.5008, 0.382904)
	pt3dadd(332.929, 753.473, 28.4806, 0.346784)
	pt3dadd(332.939, 753.762, 28.4696, 0.2)
	pt3dadd(332.872, 753.948, 28.4285, 0.2)
	pt3dadd(333.237, 754.478, 28.1378, 1.24203)
	pt3dadd(333.214, 755.255, 27.2132, 1.32679)
	pt3dadd(332.82, 756.104, 27.0879, 0.217696)
	pt3dadd(332.713, 756.413, 27.0974, 0.2)
	pt3dadd(332.513, 756.669, 27.0575, 0.367754)
	pt3dadd(332.412, 756.802, 26.932, 0.44417)
	pt3dadd(332.564, 759.039, 25.956, 0.534946)
	pt3dadd(332.594, 759.141, 25.6545, 0.479938)
	pt3dadd(332.7, 759.307, 25.4446, 0.235414)
	pt3dadd(332.963, 761.628, 24.7342, 0.887054)
	pt3dadd(333.242, 761.863, 24.5823, 0.64255)
	pt3dadd(333.377, 762.233, 24.4634, 0.377964)
	pt3dadd(333.49, 762.515, 24.3926, 0.432276)
	pt3dadd(333.526, 762.711, 24.2218, 0.520992)
	pt3dadd(333.422, 763.103, 24.0501, 0.2)
	pt3dadd(333.398, 763.326, 24.0259, 0.2)
	pt3dadd(333.167, 765.14, 23.5304, 1.12467)
	pt3dadd(333.698, 765.808, 22.8861, 0.707764)
	pt3dadd(334.503, 769.036, 21.2361, 0.60178)
	pt3dadd(334.311, 769.457, 21.029, 0.514524)
	pt3dadd(333.925, 770.861, 20.3342, 1.27716)
	pt3dadd(332.198, 772.342, 19.6119, 0.828094)
	pt3dadd(329.506, 777.891, 19.1578, 1.03439)
	pt3dadd(326.418, 781.872, 18.1083, 0.408194)
	pt3dadd(326.255, 781.969, 18.0868, 0.267274)
	pt3dadd(326.031, 782.094, 18.0462, 0.232682)
	pt3dadd(325.594, 782.358, 18.127, 0.895864)
	pt3dadd(324.888, 782.88, 18.1086, 1.08089)
	pt3dadd(323.214, 786.386, 17.7943, 0.433744)
	pt3dadd(323.092, 786.434, 17.6012, 0.3884)
	pt3dadd(322.78, 786.574, 17.6041, 0.21658)
	pt3dadd(322.523, 786.543, 17.6614, 0.503616)
	pt3dadd(322.291, 786.545, 17.9041, 0.51503)
	pt3dadd(318.674, 789.468, 16.6969, 0.996306)
	pt3dadd(318.421, 789.895, 16.7046, 1.17788)
	pt3dadd(317.711, 790.35, 16.5596, 0.809996)
	pt3dadd(317.193, 790.833, 16.4682, 0.2)
	pt3dadd(317.103, 791.109, 16.3784, 0.316192)
	pt3dadd(316.995, 791.31, 16.2082, 0.388288)
	pt3dadd(316.879, 791.526, 16.0118, 0.466844)
	pt3dadd(316.615, 791.677, 15.7936, 0.339586)
	pt3dadd(316.287, 791.869, 15.591, 0.900414)
	pt3dadd(315.707, 792.324, 15.168, 1.00957)
	pt3dadd(315.197, 792.543, 14.9936, 1.36174)
	pt3dadd(314.392, 793.17, 14.9216, 0.8433)
	pt3dadd(313.827, 793.589, 14.6041, 0.303886)
	pt3dadd(313.572, 793.785, 14.4976, 0.283024)
	pt3dadd(313.144, 793.931, 14.3539, 0.2)
	pt3dadd(312.925, 794.04, 14.2154, 0.2)
	pt3dadd(312.732, 794.201, 14.1561, 0.2)
	pt3dadd(312.479, 794.421, 14.0925, 0.669498)
	pt3dadd(309.729, 795.882, 12.5084, 0.58274)
	pt3dadd(307.443, 797.677, 11.7851, 0.961578)
	pt3dadd(306.905, 797.805, 11.5014, 0.251612)
	pt3dadd(306.633, 797.916, 11.3498, 0.316868)
	pt3dadd(306.383, 798.112, 11.1349, 0.607076)
	pt3dadd(306.17, 798.387, 10.9599, 0.737732)
	pt3dadd(305.643, 798.719, 10.7492, 0.2)
	pt3dadd(305.391, 798.879, 10.7212, 0.2)
	pt3dadd(304.751, 798.982, 10.716, 0.805796)
	pt3dadd(304.47, 799.586, 10.3942, 1.26118)
	pt3dadd(304.587, 799.782, 9.56117, 0.802002)
	pt3dadd(304.469, 800.108, 8.9383, 1.02369)
	pt3dadd(304.17, 800.104, 8.21489, 0.980548)
	pt3dadd(303.823, 800.465, 7.87575, 0.66662)
	pt3dadd(303.738, 800.754, 7.72252, 0.57487)
	pt3dadd(303.461, 801.312, 7.0056, 0.2)
	pt3dadd(303.397, 801.517, 6.87744, 0.36304)
	pt3dadd(303.219, 801.637, 6.69322, 0.426324)
	pt3dadd(303.059, 801.864, 6.47147, 0.571376)
	pt3dadd(302.641, 802.088, 6.01135, 0.85414)
	pt3dadd(302.093, 802.39, 6.00147, 0.38154)
	pt3dadd(301.942, 802.48, 6.10074, 0.2)
	pt3dadd(301.733, 802.554, 6.09748, 0.2)
	pt3dadd(301.493, 802.618, 5.97206, 0.255652)
	pt3dadd(301.206, 802.85, 5.70978, 0.466632)
	pt3dadd(301.046, 802.987, 5.64705, 0.42996)
	pt3dadd(300.635, 803.18, 5.79331, 0.29105)
	pt3dadd(300.33, 803.295, 5.84849, 0.446212)
	pt3dadd(300.008, 803.396, 5.90096, 0.516018)
	pt3dadd(299.537, 804.133, 5.81947, 1.04636)
	pt3dadd(298.574, 804.485, 5.95056, 1.35767)
	pt3dadd(297.952, 804.215, 5.85045, 1.19266)
	pt3dadd(297.12, 804.076, 6.18916, 0.54889)
	pt3dadd(296.847, 803.689, 6.27865, 0.2)
	pt3dadd(296.216, 803.619, 5.98132, 0.690334)
	pt3dadd(295.778, 803.946, 6.22498, 0.49408)
	pt3dadd(295.456, 804.021, 6.32298, 0.348266)
	pt3dadd(293.874, 803.934, 6.22976, 0.961438)
	pt3dadd(290.078, 805.471, 4.36901, 0.224402)
	pt3dadd(290.052, 805.572, 4.62668, 0.676958)
	pt3dadd(290.032, 805.665, 5.23402, 0.779022)
	pt3dadd(290.506, 806.226, 5.86358, 0.998764)
	pt3dadd(290.607, 806.269, 6.51642, 0.854236)
	pt3dadd(288.484, 808.639, 5.5404, 0.93755)
	pt3dadd(288.246, 809.446, 5.52718, 0.758484)
	pt3dadd(288.012, 809.807, 5.48297, 0.276516)
	pt3dadd(284.229, 812.93, 6.65867, 0.904286)
	pt3dadd(284.131, 813.14, 7.03154, 1.05155)
	pt3dadd(283.86, 813.928, 7.56825, 0.483844)
  }
  dend_6[62] {pt3dclear()
	pt3dadd(283.86, 813.928, 7.56825, 0.483844)
	pt3dadd(283.807, 814.202, 7.59375, 0.2)
  }
  dend[120] {pt3dclear()
	pt3dadd(381.491, 649.671, 34.4983, 0.509952)
	pt3dadd(379.969, 653.057, 35.9325, 0.799276)
	pt3dadd(380.059, 653.508, 35.6855, 0.91602)
	pt3dadd(380.222, 654.181, 35.6597, 1.25749)
	pt3dadd(379.171, 659.863, 36.2808, 0.37619)
	pt3dadd(378.987, 660.219, 36.5199, 0.425082)
	pt3dadd(378.786, 660.459, 36.5948, 0.2)
	pt3dadd(378.61, 661.002, 36.6727, 0.963692)
	pt3dadd(378.46, 661.787, 36.8601, 0.949244)
	pt3dadd(378.419, 662.163, 37.1269, 0.758036)
	pt3dadd(375.989, 669.676, 38.435, 0.704828)
	pt3dadd(375.939, 670.154, 38.5549, 0.816028)
	pt3dadd(375.511, 670.751, 38.7904, 1.01404)
	pt3dadd(374.948, 671.369, 38.8598, 0.804688)
	pt3dadd(374.508, 671.867, 38.8825, 0.2)
	pt3dadd(374.315, 672.092, 38.928, 0.2)
	pt3dadd(374.144, 672.326, 39.0049, 0.523534)
	pt3dadd(373.91, 672.526, 39.136, 0.664652)
	pt3dadd(373.613, 672.751, 39.2103, 0.817188)
	pt3dadd(373.071, 673.475, 39.3036, 0.28794)
	pt3dadd(372.956, 673.656, 39.3988, 0.2)
	pt3dadd(372.674, 673.85, 39.4741, 0.2)
	pt3dadd(372.461, 673.994, 39.4803, 0.20693)
	pt3dadd(372.192, 674.254, 39.5451, 0.334948)
	pt3dadd(371.995, 674.425, 39.5748, 0.2)
	pt3dadd(371.82, 674.644, 39.6615, 0.2)
	pt3dadd(371.613, 674.869, 39.8197, 0.467724)
	pt3dadd(371.493, 675.088, 39.959, 0.587476)
	pt3dadd(371.415, 675.347, 40.0978, 0.746696)
	pt3dadd(371.296, 675.888, 40.0593, 0.276836)
	pt3dadd(369.451, 680.599, 39.8561, 0.658066)
	pt3dadd(369.196, 681.161, 39.6712, 1.31243)
	pt3dadd(368.706, 681.791, 39.9487, 1.02977)
	pt3dadd(368.285, 682.266, 39.8637, 0.265318)
	pt3dadd(368.122, 682.585, 39.7726, 0.2)
	pt3dadd(367.934, 682.794, 39.6887, 0.25001)
	pt3dadd(367.606, 683.178, 39.3321, 0.519824)
	pt3dadd(367.488, 683.489, 39.5304, 0.36773)
	pt3dadd(367.296, 683.799, 39.7119, 0.476562)
	pt3dadd(367.11, 684.085, 39.8114, 0.60819)
	pt3dadd(366.883, 684.306, 39.8087, 0.477756)
	pt3dadd(366.651, 684.54, 39.7798, 0.2)
	pt3dadd(366.477, 684.764, 39.8365, 0.296024)
	pt3dadd(366.343, 684.967, 39.8718, 0.367808)
	pt3dadd(366.019, 685.326, 39.8929, 0.575604)
	pt3dadd(365.8, 685.646, 39.96, 0.647738)
	pt3dadd(365.553, 685.909, 39.973, 0.677856)
	pt3dadd(365.339, 686.192, 39.9498, 0.882492)
	pt3dadd(365.206, 686.639, 39.8717, 0.946772)
	pt3dadd(364.656, 687.183, 39.8912, 0.87099)
	pt3dadd(364.389, 687.64, 39.7195, 0.789972)
	pt3dadd(363.873, 688.37, 39.6178, 0.256694)
	pt3dadd(363.797, 688.625, 39.663, 0.2)
	pt3dadd(363.691, 688.825, 39.7261, 0.2)
	pt3dadd(363.482, 689.055, 39.7691, 0.238622)
	pt3dadd(363.25, 689.307, 39.8209, 0.451544)
	pt3dadd(363.046, 689.502, 39.983, 0.586182)
	pt3dadd(362.741, 689.928, 39.9609, 0.224906)
	pt3dadd(362.61, 690.165, 40.0471, 0.266968)
	pt3dadd(362.491, 690.427, 40.0771, 0.2)
	pt3dadd(362.345, 690.613, 40.0886, 0.2)
	pt3dadd(362.141, 690.886, 40.1443, 0.2)
	pt3dadd(361.96, 691.143, 40.1988, 0.584152)
  }
}
proc shape3d_59() {
  dend[120] {	pt3dadd(361.7, 691.315, 40.2696, 0.72948)
	pt3dadd(361.403, 691.533, 40.3237, 0.91119)
	pt3dadd(360.862, 692.362, 40.1456, 0.2)
	pt3dadd(360.573, 692.623, 40.2433, 0.2)
	pt3dadd(360.306, 692.781, 40.2921, 0.236012)
	pt3dadd(360.116, 692.915, 40.2523, 0.354186)
	pt3dadd(359.895, 693.139, 39.9856, 0.2)
	pt3dadd(359.888, 693.372, 39.7654, 0.458814)
	pt3dadd(359.848, 693.571, 39.5905, 0.681428)
	pt3dadd(359.487, 693.895, 40.0282, 0.2)
	pt3dadd(359.375, 694.173, 40.1848, 0.2)
	pt3dadd(359.22, 694.464, 40.2039, 0.616856)
	pt3dadd(359, 694.837, 40.1465, 0.796594)
	pt3dadd(358.85, 695.505, 40.1604, 0.938818)
	pt3dadd(358.5, 696.094, 40.0128, 0.689838)
	pt3dadd(358.278, 696.467, 39.8801, 0.719462)
	pt3dadd(357.807, 697.06, 40.0449, 0.324722)
	pt3dadd(357.549, 697.397, 40.0009, 0.2)
	pt3dadd(357.417, 697.652, 39.8749, 0.350288)
	pt3dadd(357.207, 697.871, 39.9207, 0.42768)
	pt3dadd(356.939, 698.072, 39.9152, 0.211902)
	pt3dadd(356.793, 698.25, 40.0274, 0.2)
	pt3dadd(356.649, 698.449, 39.9953, 0.2)
	pt3dadd(356.453, 698.653, 39.9206, 0.351824)
	pt3dadd(355.946, 699.791, 39.9678, 0.31304)
	pt3dadd(355.826, 699.894, 40.033, 0.273712)
	pt3dadd(355.699, 700.111, 40.1258, 0.2)
	pt3dadd(355.552, 700.301, 40.1709, 0.2)
	pt3dadd(355.228, 700.667, 40.0354, 0.500972)
	pt3dadd(355.118, 700.907, 40.0227, 0.506156)
	pt3dadd(355.029, 701.103, 39.9702, 0.300212)
	pt3dadd(354.98, 701.37, 39.91, 0.215534)
	pt3dadd(354.968, 701.548, 39.9145, 0.2)
	pt3dadd(354.531, 702.62, 39.8944, 1.02145)
	pt3dadd(354.162, 702.826, 39.7072, 0.842498)
	pt3dadd(353.989, 703.049, 39.5557, 0.602676)
	pt3dadd(353.087, 706.479, 40, 0.63426)
	pt3dadd(352.92, 706.708, 39.8665, 0.566698)
	pt3dadd(352.799, 707.034, 39.8255, 0.596292)
	pt3dadd(352.698, 707.402, 39.8036, 0.855216)
	pt3dadd(352.585, 707.879, 39.589, 1.18207)
	pt3dadd(350.47, 713.216, 39.1768, 1.06638)
	pt3dadd(350.005, 713.71, 39.2812, 0.89998)
	pt3dadd(347.794, 717.208, 41.1042, 0.660942)
	pt3dadd(347.487, 717.329, 40.5887, 0.880778)
	pt3dadd(346.828, 717.982, 40.4008, 0.593666)
	pt3dadd(342.86, 721.643, 40.9999, 0.78618)
	pt3dadd(342.502, 721.883, 41.1844, 0.66091)
	pt3dadd(339.369, 725.758, 41.0029, 0.557704)
	pt3dadd(339.098, 726.03, 41.1792, 0.645698)
	pt3dadd(338.958, 726.443, 41.125, 0.750194)
	pt3dadd(338.691, 726.776, 40.9573, 0.424244)
	pt3dadd(338.495, 727.059, 40.9859, 0.2)
	pt3dadd(338.312, 727.217, 41.093, 0.2)
	pt3dadd(338.142, 727.375, 41.1862, 0.2)
	pt3dadd(337.917, 727.461, 41.2452, 0.247454)
	pt3dadd(337.737, 727.613, 41.3055, 0.369088)
	pt3dadd(337.43, 727.875, 41.3795, 0.2)
	pt3dadd(337.283, 728.116, 41.4189, 0.2)
	pt3dadd(337.174, 728.328, 41.4745, 0.2)
	pt3dadd(336.966, 728.453, 41.5747, 0.2)
	pt3dadd(336.688, 728.695, 41.6583, 0.35712)
	pt3dadd(336.455, 728.911, 41.739, 0.50547)
	pt3dadd(336.28, 729.209, 41.7858, 0.598926)
	pt3dadd(334.062, 730.606, 42.3331, 0.43891)
	pt3dadd(333.855, 730.84, 42.5296, 0.567676)
	pt3dadd(333.282, 731.447, 42.8305, 0.93581)
	pt3dadd(330.304, 734.714, 42.7418, 0.330148)
	pt3dadd(330.145, 735.013, 42.8108, 0.506528)
	pt3dadd(329.683, 735.502, 42.9085, 1.03749)
	pt3dadd(329.2, 735.805, 42.6271, 0.625516)
	pt3dadd(326.73, 737.936, 43.5138, 0.741266)
	pt3dadd(323.201, 741.196, 44.0129, 1.32543)
	pt3dadd(320.6, 744.057, 43.6095, 0.910694)
	pt3dadd(319.608, 745.477, 44.5235, 0.553876)
	pt3dadd(319.182, 745.483, 44.1556, 0.578058)
	pt3dadd(316.631, 747.548, 44.4959, 1.09843)
	pt3dadd(316.018, 747.867, 44.7635, 0.948584)
	pt3dadd(315.729, 748.31, 44.8007, 0.513584)
	pt3dadd(315.58, 748.585, 44.7422, 0.429726)
	pt3dadd(314.303, 749.87, 45.1153, 0.955234)
	pt3dadd(313.591, 750.472, 45.2887, 0.364498)
	pt3dadd(313.375, 750.597, 45.3834, 0.30475)
	pt3dadd(313.123, 750.825, 45.4547, 0.288112)
	pt3dadd(312.855, 751.086, 45.647, 0.30739)
	pt3dadd(312.551, 751.297, 45.7495, 0.2)
	pt3dadd(312.376, 751.349, 45.7748, 0.2)
	pt3dadd(312.138, 751.463, 45.7261, 0.2)
	pt3dadd(311.964, 751.623, 45.6449, 0.284018)
	pt3dadd(311.771, 751.785, 45.703, 0.2)
	pt3dadd(311.539, 751.891, 45.7572, 0.2)
	pt3dadd(310.526, 752.597, 46.8654, 0.423014)
	pt3dadd(307.524, 754.467, 47.3754, 0.798874)
	pt3dadd(305.985, 755.814, 47.8207, 0.846398)
	pt3dadd(305.457, 756.508, 47.9442, 1.04466)
	pt3dadd(304.799, 757.141, 48.519, 0.434628)
	pt3dadd(304.577, 757.347, 48.7536, 0.376888)
	pt3dadd(302.838, 759.313, 48.7406, 0.480786)
	pt3dadd(300.838, 761.142, 48.6553, 0.702678)
	pt3dadd(298.264, 763.816, 48.7083, 0.367618)
	pt3dadd(297.889, 763.877, 48.64, 0.423276)
	pt3dadd(297.582, 764.128, 48.7437, 0.417034)
	pt3dadd(295.839, 766.371, 49.5978, 0.770924)
	pt3dadd(295.345, 766.477, 49.6553, 0.66053)
	pt3dadd(288.86, 771.038, 50.8594, 0.895064)
	pt3dadd(288.51, 771.613, 51.0967, 0.62174)
	pt3dadd(283.572, 774.514, 51.1812, 0.67952)
	pt3dadd(282.996, 775.041, 51.2163, 1.15861)
	pt3dadd(279.256, 778.155, 52.1082, 0.537734)
	pt3dadd(276.34, 782.789, 53.2744, 0.984104)
	pt3dadd(274.321, 786.602, 53.4582, 0.681992)
	pt3dadd(274.079, 786.985, 53.986, 0.779306)
	pt3dadd(271.078, 789.461, 54.6545, 0.637668)
	pt3dadd(270.715, 789.706, 54.616, 0.482736)
	pt3dadd(270.622, 789.746, 54.6, 0.2)
	pt3dadd(269.087, 791.125, 54.6558, 0.510122)
	pt3dadd(268.676, 791.865, 54.7398, 0.949954)
	pt3dadd(267.984, 792.286, 54.7623, 0.64628)
	pt3dadd(267.58, 792.689, 54.5079, 0.2)
	pt3dadd(266.798, 793.1, 54.5496, 0.965698)
	pt3dadd(266.662, 793.365, 54.7908, 0.444726)
	pt3dadd(266.214, 793.574, 55.1838, 0.67706)
	pt3dadd(265.741, 793.871, 55.2574, 0.646204)
	pt3dadd(265.402, 794.27, 55.3635, 0.253754)
	pt3dadd(263.502, 796.271, 55.7275, 0.552748)
	pt3dadd(263.239, 796.456, 55.5916, 0.413406)
	pt3dadd(262.946, 796.615, 55.5527, 0.2)
	pt3dadd(262.622, 796.799, 55.5106, 0.49499)
	pt3dadd(262.302, 796.71, 55.6929, 0.484722)
	pt3dadd(261.5, 796.841, 55.975, 1.0457)
	pt3dadd(258.507, 799.066, 55.8049, 1.04888)
	pt3dadd(257.733, 799.576, 55.9779, 0.374716)
  }
  dend_6[63] {pt3dclear()
	pt3dadd(257.733, 799.576, 55.9779, 0.374716)
	pt3dadd(257.482, 799.811, 56.0327, 0.33231)
  }
  dend[121] {pt3dclear()
	pt3dadd(391.613, 595.462, 28.3552, 1.15322)
	pt3dadd(392.523, 607.975, 22.7626, 0.560002)
	pt3dadd(392.353, 608.374, 22.7832, 0.656512)
	pt3dadd(392.082, 608.712, 22.618, 0.403146)
	pt3dadd(391.964, 608.912, 22.4999, 0.2)
	pt3dadd(391.844, 609.291, 22.1565, 0.43226)
	pt3dadd(391.712, 609.327, 21.924, 0.403064)
	pt3dadd(391.646, 609.562, 21.74, 0.2)
	pt3dadd(391.567, 609.781, 21.6264, 0.34647)
	pt3dadd(391.478, 610.235, 21.183, 0.57884)
	pt3dadd(391.238, 610.647, 20.6147, 0.326144)
	pt3dadd(391.178, 610.817, 20.3973, 0.41277)
	pt3dadd(390.246, 614.106, 19.6966, 0.60885)
	pt3dadd(390.165, 614.323, 19.4749, 0.249562)
	pt3dadd(390.029, 614.479, 19.2936, 0.2)
	pt3dadd(390.02, 614.769, 19.0962, 0.274106)
	pt3dadd(390.034, 614.946, 18.8811, 0.268124)
	pt3dadd(390.028, 615.097, 18.7783, 0.30008)
	pt3dadd(389.995, 615.344, 18.7342, 0.2)
	pt3dadd(389.957, 615.53, 18.7599, 0.2)
	pt3dadd(389.747, 615.844, 18.6258, 0.405796)
	pt3dadd(389.59, 616.156, 18.5209, 0.624648)
	pt3dadd(389.452, 616.953, 18.3106, 1.17958)
	pt3dadd(389.69, 617.712, 17.7439, 0.869252)
	pt3dadd(389.508, 618.337, 17.531, 0.505588)
	pt3dadd(389.448, 618.728, 17.4597, 0.342718)
	pt3dadd(389.41, 619.06, 17.4741, 0.425116)
	pt3dadd(389.235, 619.194, 17.3491, 0.421438)
	pt3dadd(389, 619.456, 17.1754, 0.3396)
	pt3dadd(388.994, 619.71, 17.0794, 0.31665)
	pt3dadd(389.014, 619.958, 17.0477, 0.2)
	pt3dadd(389.024, 620.182, 16.9927, 0.2)
	pt3dadd(389.095, 620.781, 16.8976, 0.846598)
	pt3dadd(388.804, 621.051, 16.5848, 1.15782)
	pt3dadd(387.984, 621.097, 15.7496, 1.38156)
	pt3dadd(387.7, 622.26, 14.6769, 0.450402)
	pt3dadd(387.624, 622.548, 14.4133, 0.64908)
	pt3dadd(387.537, 623.201, 14.2349, 0.2)
	pt3dadd(387.459, 623.427, 14.1574, 0.2)
	pt3dadd(387.467, 623.709, 14.1479, 0.254284)
	pt3dadd(387.538, 623.91, 14.181, 0.551658)
	pt3dadd(387.752, 624.099, 14.3454, 0.599992)
	pt3dadd(387.331, 624.2, 13.7377, 0.41929)
	pt3dadd(387.142, 624.415, 13.4602, 0.563636)
	pt3dadd(387.164, 624.608, 13.1751, 0.746146)
	pt3dadd(387.065, 624.953, 12.7327, 0.628906)
	pt3dadd(386.948, 625.283, 12.5237, 0.363006)
	pt3dadd(386.829, 625.68, 12.4279, 0.2)
	pt3dadd(386.776, 625.912, 12.414, 0.2)
	pt3dadd(386.692, 626.066, 12.334, 0.212034)
	pt3dadd(386.601, 626.288, 12.1986, 0.405848)
	pt3dadd(386.51, 626.441, 12.0764, 0.576386)
	pt3dadd(386.463, 626.962, 11.8305, 0.873634)
	pt3dadd(386.288, 627.253, 11.5351, 0.961214)
	pt3dadd(385.846, 627.519, 11.342, 0.393624)
	pt3dadd(385.544, 627.705, 11.3809, 0.2)
	pt3dadd(385.298, 627.91, 11.4077, 0.2)
	pt3dadd(385.149, 628.042, 11.3264, 0.323774)
	pt3dadd(384.975, 628.285, 11.2691, 0.384336)
	pt3dadd(384.199, 629.861, 10.8346, 0.912206)
	pt3dadd(383.717, 630.5, 10.7498, 0.832612)
	pt3dadd(383.023, 631.368, 10.7235, 0.2)
	pt3dadd(382.832, 631.609, 10.6884, 0.296868)
	pt3dadd(382.653, 631.901, 10.6843, 0.445574)
	pt3dadd(382.44, 632.13, 10.621, 0.56402)
	pt3dadd(382.152, 632.496, 10.5204, 0.253846)
  }
}
proc shape3d_60() {
  dend[121] {	pt3dadd(382.036, 632.809, 10.5431, 0.2)
	pt3dadd(381.875, 633.064, 10.5811, 0.29658)
	pt3dadd(381.589, 633.263, 10.5602, 0.484934)
	pt3dadd(381.423, 633.676, 10.3922, 0.344758)
	pt3dadd(381.411, 634.09, 10.2418, 0.228874)
	pt3dadd(381.272, 634.321, 10.2235, 0.2)
	pt3dadd(381.202, 634.513, 10.2789, 0.27195)
	pt3dadd(380.929, 635.114, 10.3094, 0.829896)
	pt3dadd(380.687, 635.432, 10.1619, 0.964356)
	pt3dadd(378.598, 638.54, 8.88459, 1.0077)
	pt3dadd(377.961, 639.029, 8.45938, 0.883184)
	pt3dadd(377.81, 639.53, 8.40484, 0.2)
	pt3dadd(377.69, 639.832, 8.27032, 0.48724)
	pt3dadd(377.598, 640.103, 7.82765, 0.687722)
	pt3dadd(376.979, 645.722, 6.98764, 0.852828)
	pt3dadd(376.967, 646.454, 6.52743, 1.28566)
	pt3dadd(376.179, 649.506, 6.99428, 0.2)
	pt3dadd(376.148, 649.784, 6.97916, 0.464642)
	pt3dadd(376.194, 650.265, 6.91489, 0.844884)
	pt3dadd(375.994, 650.882, 6.90284, 1.04245)
	pt3dadd(375.901, 661.115, 4.35764, 1.2859)
	pt3dadd(376.1, 661.875, 4.39054, 0.997568)
	pt3dadd(376.017, 662.615, 4.4282, 0.551808)
	pt3dadd(376.042, 662.944, 4.53435, 0.496016)
	pt3dadd(376.761, 672.255, 3.16165, 0.508264)
	pt3dadd(376.929, 672.602, 3.62028, 0.93876)
	pt3dadd(376.572, 673.104, 3.6496, 0.2)
	pt3dadd(376.394, 673.419, 3.72391, 0.354828)
	pt3dadd(376.409, 673.714, 3.79471, 0.915566)
	pt3dadd(375.815, 674.149, 4.01227, 1.27026)
  }
  dend_6[64] {pt3dclear()
	pt3dadd(375.815, 674.149, 4.01227, 1.27026)
	pt3dadd(375.506, 674.272, 4.09855, 1.31635)
  }
  dend[122] {pt3dclear()
	pt3dadd(407.344, 488.8, 32.9, 2.16348)
	pt3dadd(408.347, 489.9, 32.8083, 1.56239)
	pt3dadd(408.918, 490.92, 32.6259, 1.10407)
	pt3dadd(409.412, 491.66, 32.7597, 0.901608)
	pt3dadd(409.974, 492.619, 32.8201, 0.868302)
	pt3dadd(410.32, 493.103, 32.8724, 0.790596)
	pt3dadd(410.699, 493.555, 33.0637, 0.840466)
	pt3dadd(410.977, 493.851, 33.1762, 0.876998)
	pt3dadd(411.199, 494.224, 33.2551, 1.16662)
	pt3dadd(411.653, 495.127, 33.4344, 1.13975)
	pt3dadd(412.189, 496.055, 33.544, 1.4093)
	pt3dadd(412.756, 496.783, 33.7218, 1.73992)
  }
  dend_5[53] {pt3dclear()
	pt3dadd(412.756, 496.783, 33.7218, 1.73992)
	pt3dadd(413.522, 498.297, 33.5498, 2.58067)
  }
  dend[123] {pt3dclear()
	pt3dadd(413.522, 498.297, 33.5498, 2.58067)
	pt3dadd(415.276, 499.198, 33.6949, 0.908626)
	pt3dadd(416.102, 499.623, 33.7358, 0.626264)
	pt3dadd(416.521, 499.834, 33.7374, 0.708618)
	pt3dadd(416.888, 500.105, 33.6208, 0.669246)
	pt3dadd(417.309, 500.329, 33.5292, 0.756248)
	pt3dadd(417.677, 500.638, 33.5708, 0.925152)
	pt3dadd(418.489, 500.889, 33.4111, 0.979358)
	pt3dadd(419.056, 501.091, 33.5878, 0.656826)
	pt3dadd(419.419, 501.252, 33.6289, 0.644286)
	pt3dadd(419.743, 501.325, 33.5903, 0.55848)
	pt3dadd(420.115, 501.519, 33.4462, 0.762608)
	pt3dadd(420.692, 501.771, 33.2994, 0.942656)
	pt3dadd(421.321, 502.328, 33.3364, 0.625006)
	pt3dadd(421.773, 502.593, 33.2437, 0.569038)
	pt3dadd(422.302, 502.85, 33.4799, 0.729576)
	pt3dadd(422.704, 503.045, 33.5118, 0.468466)
	pt3dadd(423.042, 503.223, 33.5206, 0.430452)
	pt3dadd(423.413, 503.44, 33.5536, 0.455942)
	pt3dadd(423.739, 503.589, 33.4334, 0.658342)
	pt3dadd(424.084, 503.721, 33.307, 0.590622)
	pt3dadd(424.424, 503.877, 33.1759, 0.598324)
	pt3dadd(424.76, 504.081, 33.1224, 0.642884)
	pt3dadd(425.069, 504.394, 33.2015, 0.628232)
	pt3dadd(425.482, 504.777, 33.3405, 0.456664)
	pt3dadd(425.878, 504.912, 33.4475, 0.796092)
	pt3dadd(426.554, 505.34, 33.3905, 0.906102)
	pt3dadd(426.916, 505.663, 33.2794, 0.893298)
	pt3dadd(427.557, 506.21, 33.0781, 0.786876)
	pt3dadd(428.042, 506.322, 33.2261, 0.627216)
	pt3dadd(428.395, 506.477, 33.32, 0.495212)
	pt3dadd(428.711, 506.604, 33.5024, 0.401698)
	pt3dadd(429.067, 506.707, 33.5339, 0.537052)
	pt3dadd(429.635, 506.818, 33.303, 0.487824)
	pt3dadd(430.093, 507.001, 33.2377, 0.690904)
	pt3dadd(430.5, 507.248, 33.1833, 0.756976)
	pt3dadd(431.086, 507.547, 33.1683, 0.924726)
	pt3dadd(431.5, 507.822, 33.1253, 0.939136)
	pt3dadd(431.925, 508.031, 33.0646, 1.0625)
	pt3dadd(432.429, 508.192, 32.8831, 1.22224)
	pt3dadd(432.951, 508.807, 32.7547, 0.958618)
	pt3dadd(433.504, 509.339, 32.6906, 1.16098)
	pt3dadd(434, 510.152, 32.6056, 0.803556)
	pt3dadd(434.461, 510.351, 32.4258, 1.41641)
	pt3dadd(435.167, 511.019, 32.2243, 1.61966)
  }
  dend[124] {pt3dclear()
	pt3dadd(435.167, 511.019, 32.2243, 1.61966)
	pt3dadd(436.233, 511.109, 31.7739, 0.425228)
	pt3dadd(436.49, 511.111, 31.6314, 0.419008)
	pt3dadd(436.703, 510.946, 31.4525, 0.430548)
	pt3dadd(437.068, 511.311, 31.4873, 0.2)
	pt3dadd(437.258, 511.385, 31.4312, 0.203316)
	pt3dadd(437.477, 511.399, 31.3508, 0.231438)
	pt3dadd(437.711, 511.501, 31.2597, 0.2)
	pt3dadd(437.967, 511.646, 31.1168, 0.308514)
	pt3dadd(438.216, 511.753, 31.0156, 0.4786)
	pt3dadd(438.501, 511.87, 30.8881, 0.559756)
	pt3dadd(438.779, 511.894, 30.769, 0.548432)
	pt3dadd(439.168, 511.951, 30.5288, 0.656712)
	pt3dadd(439.568, 511.982, 30.0867, 0.747052)
	pt3dadd(440.064, 512.266, 30.1209, 0.276216)
	pt3dadd(440.286, 512.361, 30.0645, 0.251076)
	pt3dadd(440.554, 512.407, 29.9214, 0.227444)
	pt3dadd(440.77, 512.548, 29.8569, 0.2)
	pt3dadd(441.05, 512.673, 29.7533, 0.204602)
	pt3dadd(441.262, 512.854, 29.5792, 0.318092)
	pt3dadd(441.411, 513.013, 29.3385, 0.49746)
	pt3dadd(441.565, 513.117, 29.1085, 0.577768)
	pt3dadd(441.977, 513.166, 29.1813, 0.2)
	pt3dadd(442.335, 513.313, 29.2214, 0.590884)
	pt3dadd(442.78, 513.607, 28.9095, 0.346332)
	pt3dadd(443.004, 513.767, 28.7947, 0.2)
	pt3dadd(443.246, 513.887, 28.7271, 0.417884)
	pt3dadd(443.494, 513.999, 28.6138, 0.353276)
	pt3dadd(443.852, 514.039, 28.5307, 0.41726)
	pt3dadd(444.181, 514.192, 28.4259, 0.517574)
	pt3dadd(444.433, 514.411, 28.4021, 0.811888)
	pt3dadd(445.17, 514.523, 28.3638, 0.99787)
	pt3dadd(445.942, 514.768, 28.2195, 0.866432)
	pt3dadd(446.31, 515.036, 28.0791, 1.03671)
	pt3dadd(447.026, 515.445, 28.0594, 0.6372)
	pt3dadd(447.353, 515.499, 28.0238, 0.443016)
	pt3dadd(447.645, 515.61, 27.98, 0.292306)
	pt3dadd(447.928, 515.745, 27.9258, 0.328764)
	pt3dadd(448.142, 515.979, 27.8724, 0.425126)
	pt3dadd(448.403, 516.33, 27.8053, 0.684606)
	pt3dadd(448.691, 516.555, 27.6696, 0.875166)
	pt3dadd(449.132, 516.625, 27.6717, 0.771838)
	pt3dadd(449.469, 516.849, 27.7956, 0.589062)
	pt3dadd(449.874, 517.023, 28.0544, 0.257578)
	pt3dadd(450.469, 517.239, 27.6152, 0.448392)
	pt3dadd(450.799, 517.42, 27.4083, 0.536804)
	pt3dadd(450.992, 517.692, 27.23, 0.68894)
	pt3dadd(451.358, 517.815, 27.055, 0.934254)
	pt3dadd(452.193, 518.275, 26.8594, 0.924878)
	pt3dadd(452.826, 518.544, 26.6971, 0.862668)
	pt3dadd(453.205, 518.611, 26.4678, 1.10416)
	pt3dadd(453.953, 518.842, 26.0155, 0.350844)
	pt3dadd(454.236, 518.975, 25.9783, 0.31365)
	pt3dadd(454.538, 519.141, 25.9699, 0.420848)
	pt3dadd(454.852, 519.261, 26.0012, 0.591022)
	pt3dadd(455.255, 519.346, 26.0532, 1.02061)
	pt3dadd(455.98, 519.679, 26.0151, 1.2689)
	pt3dadd(457.004, 519.969, 25.9245, 0.838824)
	pt3dadd(457.452, 520.038, 25.7709, 0.341372)
	pt3dadd(457.788, 520.158, 25.7875, 0.31725)
	pt3dadd(458.061, 520.25, 25.7348, 0.255568)
	pt3dadd(458.328, 520.341, 25.6922, 0.436722)
	pt3dadd(458.62, 520.557, 25.6992, 0.409482)
	pt3dadd(458.83, 520.499, 25.8463, 0.221926)
	pt3dadd(459.055, 520.274, 25.8895, 0.545012)
	pt3dadd(459.474, 520.442, 25.673, 0.306728)
	pt3dadd(459.726, 520.62, 25.6277, 0.37984)
	pt3dadd(459.999, 520.744, 25.611, 0.575324)
	pt3dadd(460.355, 520.873, 25.4197, 0.607216)
	pt3dadd(460.681, 520.924, 25.249, 0.939204)
	pt3dadd(461.352, 521.086, 25.149, 1.29407)
	pt3dadd(462.098, 521.947, 24.8554, 0.87592)
	pt3dadd(462.565, 522.051, 24.6719, 0.735246)
	pt3dadd(462.893, 522.471, 24.5246, 0.2)
	pt3dadd(463.051, 522.705, 24.4433, 0.23563)
	pt3dadd(463.25, 522.851, 24.4172, 0.313588)
	pt3dadd(463.428, 523.038, 24.382, 0.247812)
	pt3dadd(463.587, 523.216, 24.3821, 0.416168)
	pt3dadd(463.758, 523.394, 24.3753, 0.42907)
	pt3dadd(464.001, 523.545, 24.3824, 0.393942)
	pt3dadd(464.218, 523.683, 24.3827, 0.225548)
	pt3dadd(464.489, 523.859, 24.322, 0.285882)
	pt3dadd(464.675, 524.091, 24.2101, 0.580898)
	pt3dadd(464.944, 524.108, 24.0296, 0.651856)
	pt3dadd(465.229, 524.194, 23.8263, 0.94601)
	pt3dadd(465.751, 524.587, 23.6347, 1.01564)
	pt3dadd(466.288, 524.935, 23.4114, 0.833798)
	pt3dadd(466.956, 524.941, 23.3337, 0.442842)
	pt3dadd(467.291, 525.055, 23.1387, 0.410052)
	pt3dadd(467.542, 525.213, 22.9918, 0.335876)
	pt3dadd(467.778, 525.395, 22.8535, 0.481824)
	pt3dadd(468.053, 525.683, 22.8961, 0.599654)
	pt3dadd(468.264, 525.915, 22.8687, 0.63886)
	pt3dadd(468.545, 526.123, 22.7765, 0.84687)
	pt3dadd(469.231, 526.235, 22.5742, 1.21154)
	pt3dadd(469.831, 526.702, 22.2914, 0.984792)
	pt3dadd(470.421, 526.977, 22.1986, 0.423956)
	pt3dadd(470.697, 527.2, 22.1337, 0.361258)
	pt3dadd(470.96, 527.422, 22.0687, 0.632714)
	pt3dadd(471.131, 527.796, 22.039, 0.930358)
	pt3dadd(471.577, 528.095, 22.1112, 0.484906)
	pt3dadd(471.776, 528.317, 22.0321, 0.345656)
	pt3dadd(472.037, 528.562, 21.9987, 0.50863)
	pt3dadd(472.125, 528.955, 21.9695, 0.413378)
	pt3dadd(472.369, 529.323, 22.0047, 0.568488)
	pt3dadd(472.568, 529.554, 22.0715, 0.440186)
	pt3dadd(472.759, 529.826, 22.1424, 0.530856)
	pt3dadd(472.936, 530.092, 22.1704, 0.538778)
	pt3dadd(473.084, 530.507, 22.1104, 0.67197)
  }
}
proc shape3d_61() {
  dend[124] {	pt3dadd(473.267, 530.808, 22.0478, 0.871788)
	pt3dadd(473.689, 531.382, 21.9678, 1.09245)
	pt3dadd(474.367, 531.896, 22.0195, 1.25481)
	pt3dadd(475.088, 532.476, 21.6286, 1.09934)
	pt3dadd(475.682, 533.026, 21.5376, 0.607872)
	pt3dadd(476.098, 533.488, 21.5116, 0.257418)
	pt3dadd(476.25, 533.631, 21.5075, 0.312876)
	pt3dadd(476.426, 533.877, 21.4607, 0.30446)
	pt3dadd(476.632, 534.031, 21.4596, 0.363416)
	pt3dadd(476.851, 534.252, 21.4623, 0.46088)
	pt3dadd(477.073, 534.501, 21.436, 0.469188)
	pt3dadd(477.411, 534.601, 21.3695, 0.837286)
	pt3dadd(477.933, 535.241, 21.4927, 0.351032)
	pt3dadd(478.178, 535.46, 21.5452, 0.2)
	pt3dadd(478.422, 535.654, 21.5949, 0.383594)
	pt3dadd(478.659, 535.958, 21.6695, 0.72109)
	pt3dadd(479.176, 536.438, 21.7798, 0.705484)
	pt3dadd(479.391, 536.748, 21.8949, 0.722326)
	pt3dadd(479.724, 537.384, 21.9604, 0.939056)
	pt3dadd(479.904, 538.139, 22.0833, 1.3879)
	pt3dadd(480.349, 538.949, 21.9832, 1.14576)
	pt3dadd(480.95, 539.557, 21.9468, 0.451982)
	pt3dadd(481.31, 539.909, 21.9003, 0.2)
	pt3dadd(481.534, 540.129, 21.8863, 0.2)
	pt3dadd(481.737, 540.343, 21.8372, 0.2)
	pt3dadd(481.98, 540.57, 21.896, 0.264276)
	pt3dadd(482.383, 540.774, 21.904, 0.489158)
	pt3dadd(482.675, 540.888, 21.9249, 0.568176)
	pt3dadd(483.084, 541.144, 21.9237, 0.48491)
	pt3dadd(483.474, 541.437, 22.0391, 0.961038)
	pt3dadd(483.71, 541.922, 22.0802, 0.8352)
	pt3dadd(483.891, 542.297, 22.1058, 0.534776)
	pt3dadd(484.142, 542.566, 22.1422, 0.447576)
	pt3dadd(484.326, 542.776, 22.1749, 0.450446)
	pt3dadd(484.482, 543.06, 22.1354, 0.2)
	pt3dadd(484.613, 543.296, 22.1777, 0.204948)
	pt3dadd(484.733, 543.474, 22.2593, 0.339148)
	pt3dadd(484.848, 543.702, 22.302, 0.387744)
	pt3dadd(485.051, 543.921, 22.3022, 0.442988)
	pt3dadd(485.323, 544.122, 22.2575, 0.534652)
	pt3dadd(485.709, 544.672, 22.1158, 0.67396)
	pt3dadd(485.922, 545.004, 21.9963, 0.570024)
	pt3dadd(486.146, 545.3, 21.9286, 0.63094)
	pt3dadd(486.558, 545.739, 22.1059, 0.693334)
	pt3dadd(486.859, 546.062, 22.1274, 0.768628)
	pt3dadd(487.331, 546.725, 22.31, 0.964098)
	pt3dadd(487.524, 547.28, 22.1877, 0.638432)
	pt3dadd(487.602, 547.573, 22.1681, 0.587956)
	pt3dadd(487.752, 547.855, 22.1334, 0.495706)
	pt3dadd(488.003, 548.472, 22.0018, 0.913132)
	pt3dadd(488.323, 548.841, 22.1309, 0.767296)
	pt3dadd(488.358, 549.38, 22.1129, 0.632308)
	pt3dadd(488.436, 549.868, 22.0647, 0.64128)
	pt3dadd(488.48, 550.215, 22.0315, 0.68845)
	pt3dadd(488.598, 550.441, 22.041, 0.44236)
	pt3dadd(488.777, 550.661, 22.0861, 0.409966)
	pt3dadd(488.979, 550.94, 22.1726, 0.24548)
	pt3dadd(489.155, 551.164, 22.2781, 0.362636)
	pt3dadd(489.286, 551.43, 22.3073, 0.325988)
	pt3dadd(489.438, 551.674, 22.3139, 0.346218)
	pt3dadd(489.583, 551.931, 22.3045, 0.434454)
	pt3dadd(489.994, 552.431, 22.3364, 0.785542)
	pt3dadd(490.151, 553.072, 22.4626, 0.878926)
	pt3dadd(490.289, 553.446, 22.5141, 0.635652)
	pt3dadd(490.473, 553.995, 22.6151, 0.436768)
	pt3dadd(490.439, 554.221, 22.6483, 0.207396)
	pt3dadd(490.507, 554.502, 22.7507, 0.338774)
	pt3dadd(490.6, 554.704, 22.8082, 0.441506)
	pt3dadd(490.898, 555.488, 23.0178, 0.370814)
	pt3dadd(490.977, 555.746, 23.0575, 0.223222)
	pt3dadd(491.028, 556.088, 23.2095, 0.340718)
	pt3dadd(491.272, 556.795, 23.1273, 1.14039)
	pt3dadd(491.463, 557.449, 23.264, 1.57434)
	pt3dadd(491.868, 558.094, 23.5067, 0.97632)
	pt3dadd(492.273, 558.767, 23.6819, 0.56264)
	pt3dadd(492.509, 559.077, 23.6967, 0.2)
	pt3dadd(492.687, 559.275, 23.76, 0.2)
	pt3dadd(492.852, 559.511, 23.7832, 0.2)
	pt3dadd(493.02, 559.668, 23.7222, 0.396566)
	pt3dadd(493.159, 559.905, 23.6473, 0.662206)
	pt3dadd(493.253, 560.506, 23.9111, 0.535744)
	pt3dadd(493.311, 560.815, 24.0323, 0.844178)
	pt3dadd(493.552, 561.488, 24.1472, 1.11705)
	pt3dadd(493.97, 561.865, 24.257, 1.04263)
	pt3dadd(494.353, 562.564, 24.4378, 1.21154)
	pt3dadd(495.005, 563.199, 24.4934, 0.687384)
	pt3dadd(495.223, 563.494, 24.4741, 0.495308)
	pt3dadd(495.429, 563.734, 24.5047, 0.361488)
	pt3dadd(495.647, 563.887, 24.5052, 0.213802)
	pt3dadd(496.771, 565.468, 24.7732, 0.472268)
	pt3dadd(496.844, 565.788, 24.8748, 0.2)
	pt3dadd(496.875, 566.185, 25.1563, 0.522216)
	pt3dadd(496.972, 566.411, 25.1739, 0.361316)
	pt3dadd(497.135, 566.682, 25.0909, 0.475968)
	pt3dadd(497.284, 566.921, 24.9904, 0.588026)
	pt3dadd(497.647, 567.083, 25.0376, 0.431518)
	pt3dadd(497.895, 567.242, 25.0376, 0.315294)
	pt3dadd(498.205, 567.88, 25.2407, 1.18703)
	pt3dadd(498.858, 568.51, 25.2982, 1.08928)
	pt3dadd(499.093, 569.049, 25.2093, 0.811536)
	pt3dadd(499.458, 569.293, 25.1461, 0.586156)
	pt3dadd(499.731, 569.455, 25.106, 0.48011)
	pt3dadd(499.999, 569.613, 25.072, 0.454804)
	pt3dadd(500.277, 569.727, 25.0486, 0.554796)
	pt3dadd(500.701, 570.148, 24.98, 0.609114)
	pt3dadd(501.06, 570.374, 25.0064, 0.454162)
	pt3dadd(501.333, 570.545, 24.9449, 0.544862)
	pt3dadd(501.645, 570.628, 24.9574, 0.616334)
	pt3dadd(501.92, 570.759, 24.9765, 0.417368)
	pt3dadd(502.234, 570.944, 24.8416, 0.499802)
	pt3dadd(502.55, 571.151, 24.7106, 0.674546)
	pt3dadd(502.963, 571.227, 24.8097, 0.3914)
	pt3dadd(503.201, 571.327, 24.7665, 0.368468)
	pt3dadd(503.506, 571.421, 24.766, 0.32221)
	pt3dadd(503.664, 571.566, 24.7964, 0.31275)
	pt3dadd(503.947, 571.708, 24.7473, 0.314048)
	pt3dadd(504.59, 571.86, 24.7268, 0.759288)
	pt3dadd(505.204, 572.344, 24.4903, 0.972016)
	pt3dadd(506.185, 572.58, 24.5313, 0.925794)
	pt3dadd(506.539, 572.803, 24.5139, 0.82014)
	pt3dadd(507.1, 572.794, 24.8173, 0.767334)
	pt3dadd(507.399, 573.006, 24.8872, 0.541572)
	pt3dadd(507.682, 573.163, 24.9783, 0.552272)
	pt3dadd(508.762, 573.728, 25.3334, 0.706792)
	pt3dadd(509.068, 574.001, 25.3557, 0.86955)
	pt3dadd(509.502, 574.261, 25.4557, 0.933408)
	pt3dadd(510.229, 574.461, 25.6804, 0.85418)
	pt3dadd(510.693, 574.593, 25.7437, 0.79507)
	pt3dadd(511.089, 574.697, 25.7583, 0.762818)
	pt3dadd(511.572, 574.908, 25.7853, 0.563928)
	pt3dadd(511.866, 574.984, 25.8473, 0.603652)
	pt3dadd(512.281, 575.036, 25.97, 0.705152)
	pt3dadd(512.657, 574.997, 26.0297, 0.923898)
	pt3dadd(513.32, 575.399, 26.1233, 1.63206)
  }
  dend[125] {pt3dclear()
	pt3dadd(513.32, 575.399, 26.1233, 1.63206)
	pt3dadd(513.687, 576.24, 26.6066, 0.645182)
	pt3dadd(514.117, 576.656, 27.0549, 0.413944)
	pt3dadd(514.308, 576.755, 27.2193, 0.428456)
	pt3dadd(514.574, 576.818, 27.2092, 0.326662)
	pt3dadd(514.843, 576.974, 27.2281, 0.393492)
	pt3dadd(515.095, 577.122, 27.3485, 0.485696)
	pt3dadd(515.334, 577.207, 27.4597, 0.461816)
	pt3dadd(515.653, 577.352, 27.5324, 0.515682)
	pt3dadd(515.977, 577.494, 27.6522, 0.85302)
	pt3dadd(516.348, 577.672, 27.7867, 0.519438)
	pt3dadd(516.591, 577.887, 27.8476, 0.346358)
	pt3dadd(516.819, 578.049, 27.865, 0.302906)
	pt3dadd(517.029, 578.195, 27.9512, 0.272832)
	pt3dadd(517.284, 578.467, 28.0963, 0.526772)
	pt3dadd(517.357, 578.755, 28.244, 0.864366)
	pt3dadd(517.817, 578.968, 28.1685, 0.63951)
	pt3dadd(518.224, 579.239, 28.1067, 1.00253)
	pt3dadd(518.756, 580.007, 28.2419, 1.10132)
	pt3dadd(519.814, 579.897, 28.2977, 0.84057)
	pt3dadd(520.547, 580.029, 28.5139, 0.29055)
	pt3dadd(520.782, 580.178, 28.4801, 0.238972)
	pt3dadd(521.01, 580.299, 28.5012, 0.277712)
	pt3dadd(521.218, 580.412, 28.5597, 0.304384)
	pt3dadd(521.442, 580.579, 28.6513, 0.23296)
	pt3dadd(521.687, 580.792, 28.775, 0.405546)
	pt3dadd(521.936, 580.879, 28.9121, 0.52427)
	pt3dadd(522.258, 580.915, 29.0066, 0.525986)
	pt3dadd(522.565, 580.894, 29.0827, 0.58914)
	pt3dadd(522.917, 580.918, 29.0469, 0.727746)
	pt3dadd(523.922, 581.928, 29.0194, 0.282898)
	pt3dadd(524.093, 582.005, 29.27, 0.331876)
	pt3dadd(524.297, 582.211, 29.3989, 0.265538)
	pt3dadd(524.645, 582.443, 29.5127, 0.723894)
	pt3dadd(525.219, 582.717, 29.671, 1.24138)
	pt3dadd(525.726, 583.48, 29.9803, 1.13825)
	pt3dadd(528.573, 584.832, 30.6667, 0.364402)
	pt3dadd(528.808, 585.021, 30.9654, 0.46706)
	pt3dadd(529.121, 585.306, 31.2093, 0.842796)
	pt3dadd(529.595, 585.39, 31.4378, 0.67946)
	pt3dadd(530.741, 586.288, 31.2, 0.2)
	pt3dadd(531.109, 586.635, 31.2749, 1.10579)
	pt3dadd(531.845, 587.077, 31.3978, 1.11219)
	pt3dadd(532.431, 587.39, 31.7164, 0.814724)
	pt3dadd(532.909, 587.573, 31.7771, 0.382626)
	pt3dadd(533.228, 587.622, 31.8054, 0.380396)
	pt3dadd(533.517, 587.693, 31.8736, 0.372976)
	pt3dadd(533.78, 587.736, 31.8649, 0.322172)
	pt3dadd(534.088, 587.785, 31.8846, 0.351208)
	pt3dadd(534.513, 587.865, 31.8973, 0.224696)
	pt3dadd(534.681, 587.978, 31.9029, 0.280736)
	pt3dadd(534.839, 587.999, 32.0808, 0.29944)
	pt3dadd(535.063, 588.091, 32.1689, 0.2)
	pt3dadd(535.326, 588.237, 32.1774, 0.2)
	pt3dadd(535.571, 588.373, 32.1957, 0.2)
	pt3dadd(536.146, 588.52, 32.3451, 0.940418)
	pt3dadd(539.261, 591.183, 33.5047, 0.339912)
	pt3dadd(539.527, 591.397, 33.5372, 0.369208)
	pt3dadd(539.729, 591.584, 33.6857, 0.26469)
	pt3dadd(540.019, 591.986, 33.828, 0.344496)
	pt3dadd(540.239, 592.225, 34.3238, 0.707872)
	pt3dadd(540.489, 592.418, 34.3084, 0.262882)
	pt3dadd(540.759, 592.553, 34.2208, 0.2)
	pt3dadd(540.914, 592.711, 34.1354, 0.2)
	pt3dadd(541.191, 593.017, 34.2942, 0.790818)
	pt3dadd(541.557, 593.129, 34.3946, 0.537614)
  }
}
proc shape3d_62() {
  dend[125] {	pt3dadd(541.908, 593.372, 34.4364, 0.602674)
	pt3dadd(542.381, 593.687, 34.4109, 0.524402)
	pt3dadd(542.61, 593.749, 34.4119, 0.318468)
	pt3dadd(542.807, 593.792, 34.5025, 0.24138)
	pt3dadd(543.291, 593.938, 34.5811, 0.473432)
	pt3dadd(543.574, 594.077, 34.5486, 0.340096)
	pt3dadd(543.832, 594.224, 34.5505, 0.370104)
	pt3dadd(544.335, 594.265, 34.7576, 0.390066)
	pt3dadd(544.582, 594.294, 34.7614, 0.307754)
	pt3dadd(544.817, 594.327, 34.7914, 0.23446)
	pt3dadd(545.108, 594.432, 34.803, 0.238536)
	pt3dadd(545.343, 594.592, 34.7808, 0.461038)
	pt3dadd(545.65, 594.794, 34.7329, 0.712258)
	pt3dadd(545.826, 595.124, 34.7748, 0.73452)
	pt3dadd(546.232, 595.331, 34.8472, 0.610492)
	pt3dadd(546.718, 595.32, 34.9522, 0.469476)
	pt3dadd(550.075, 595.874, 35.5157, 0.806264)
	pt3dadd(550.432, 595.944, 35.9946, 0.678004)
	pt3dadd(550.836, 596.322, 36.229, 0.2)
	pt3dadd(553.164, 597.911, 37.201, 0.370962)
	pt3dadd(553.252, 598.152, 37.4152, 0.478872)
	pt3dadd(553.401, 598.361, 37.5177, 0.2)
	pt3dadd(553.71, 598.82, 37.7089, 0.587742)
	pt3dadd(553.986, 598.987, 37.913, 0.448396)
	pt3dadd(554.473, 599.29, 37.8964, 0.25201)
	pt3dadd(554.648, 599.403, 37.9435, 0.267846)
	pt3dadd(554.832, 599.423, 38.0857, 0.209204)
	pt3dadd(555.124, 599.552, 38.2085, 0.569184)
	pt3dadd(555.244, 599.796, 38.2175, 0.575362)
	pt3dadd(557.069, 600.48, 38.4528, 0.2)
	pt3dadd(557.777, 601.226, 39.3705, 1.13293)
	pt3dadd(558.514, 601.672, 39.7239, 1.03367)
	pt3dadd(559.095, 602.082, 40.0562, 0.955088)
	pt3dadd(559.268, 602.493, 40.2081, 0.519338)
	pt3dadd(559.49, 602.725, 40.227, 0.481804)
	pt3dadd(559.746, 602.938, 40.4247, 0.48744)
	pt3dadd(559.914, 603.109, 40.6828, 0.536118)
	pt3dadd(560.052, 603.466, 41.2267, 0.941228)
	pt3dadd(560.685, 603.621, 41.1866, 0.375872)
	pt3dadd(561.004, 603.888, 41.213, 0.55443)
	pt3dadd(561.566, 604.491, 41.3506, 1.11804)
	pt3dadd(561.94, 604.928, 41.4097, 0.764334)
	pt3dadd(563.325, 606.151, 40.6411, 0.47411)
	pt3dadd(563.53, 606.413, 40.7053, 0.467056)
	pt3dadd(563.792, 606.768, 40.7048, 0.387578)
	pt3dadd(564.014, 607.144, 40.723, 0.510856)
	pt3dadd(564.354, 607.264, 40.4909, 0.2)
	pt3dadd(564.563, 607.476, 40.4736, 0.270172)
	pt3dadd(564.709, 607.694, 40.59, 0.521344)
	pt3dadd(565.068, 607.768, 40.8003, 0.472356)
	pt3dadd(565.658, 608.055, 40.9048, 0.701872)
	pt3dadd(566.018, 608.311, 41.0249, 0.672942)
	pt3dadd(566.278, 608.698, 41.2147, 0.94883)
	pt3dadd(566.581, 609.086, 41.4017, 1.12781)
	pt3dadd(567.229, 609.998, 41.3055, 0.719848)
	pt3dadd(567.563, 610.135, 41.2622, 0.553314)
	pt3dadd(567.973, 610.392, 41.3265, 0.417504)
	pt3dadd(568.195, 610.581, 41.3621, 0.345266)
	pt3dadd(568.414, 610.78, 41.3945, 0.259982)
	pt3dadd(568.642, 610.994, 41.3694, 0.2)
	pt3dadd(568.89, 611.151, 41.3965, 0.248334)
	pt3dadd(569.218, 611.347, 41.4672, 0.420294)
	pt3dadd(569.522, 611.517, 41.5358, 0.67623)
	pt3dadd(569.826, 611.736, 41.5808, 0.81622)
	pt3dadd(570.511, 612.041, 41.9342, 1.07216)
	pt3dadd(570.848, 612.416, 42.1529, 0.427198)
	pt3dadd(571.106, 612.69, 42.1871, 0.2)
	pt3dadd(571.253, 612.845, 42.2935, 0.2)
	pt3dadd(571.473, 613.028, 42.4732, 0.2)
	pt3dadd(571.641, 613.243, 42.5564, 0.2)
	pt3dadd(571.801, 613.521, 42.6459, 0.612084)
	pt3dadd(571.993, 613.732, 42.8281, 0.912228)
	pt3dadd(572.634, 614.089, 43.1759, 0.640722)
	pt3dadd(572.909, 614.371, 43.2389, 0.390426)
	pt3dadd(573.19, 614.625, 43.3476, 0.44159)
	pt3dadd(573.398, 614.966, 43.2963, 0.38794)
	pt3dadd(573.79, 616.379, 45.1497, 1.18813)
	pt3dadd(574.085, 616.957, 45.6381, 0.922268)
	pt3dadd(574.167, 617.256, 45.9887, 0.864014)
	pt3dadd(576.468, 621.158, 47.6356, 0.564044)
	pt3dadd(576.699, 621.708, 47.8976, 0.915)
	pt3dadd(577.171, 622.323, 48.3269, 1.26127)
	pt3dadd(577.915, 622.977, 48.3296, 0.944018)
	pt3dadd(578.098, 623.416, 48.1383, 0.619404)
	pt3dadd(578.21, 624.084, 48.2694, 0.559878)
	pt3dadd(578.376, 624.469, 48.2032, 0.2)
	pt3dadd(578.532, 624.846, 48.1268, 0.533476)
	pt3dadd(578.717, 625.244, 48.2334, 0.519228)
	pt3dadd(578.796, 625.62, 48.3141, 0.686496)
	pt3dadd(579.092, 625.941, 48.5655, 0.499686)
	pt3dadd(579.246, 626.199, 48.5314, 0.2)
	pt3dadd(579.413, 626.455, 48.4073, 0.288048)
	pt3dadd(579.645, 626.717, 48.4449, 0.24012)
	pt3dadd(579.845, 627.024, 48.5103, 0.444488)
	pt3dadd(580.139, 627.245, 48.5753, 0.982202)
	pt3dadd(580.769, 627.728, 48.767, 0.79637)
	pt3dadd(580.941, 628.237, 48.8133, 0.998802)
  }
  dend[126] {pt3dclear()
	pt3dadd(580.941, 628.237, 48.8133, 0.998802)
	pt3dadd(581.873, 630.584, 51.7224, 0.922108)
	pt3dadd(582.358, 630.869, 52.1784, 0.399702)
	pt3dadd(582.506, 631.075, 52.3839, 0.292124)
	pt3dadd(582.668, 631.187, 52.609, 0.344544)
	pt3dadd(582.836, 631.214, 52.8205, 0.349608)
	pt3dadd(583.015, 631.355, 53.0528, 0.30221)
	pt3dadd(583.248, 631.562, 53.2251, 0.2)
	pt3dadd(583.514, 631.714, 53.4259, 0.415692)
	pt3dadd(583.891, 631.876, 53.7944, 0.691118)
	pt3dadd(584.428, 632.133, 53.8116, 0.2)
	pt3dadd(584.916, 632.305, 53.8571, 0.547888)
	pt3dadd(585.176, 632.475, 54.2744, 0.481702)
	pt3dadd(585.337, 632.648, 54.5846, 0.474936)
	pt3dadd(585.7, 633.052, 55.0962, 1.16439)
	pt3dadd(586.416, 633.234, 55.51, 1.13068)
	pt3dadd(586.758, 633.493, 55.954, 1.02581)
	pt3dadd(587.135, 633.606, 56.219, 0.664012)
	pt3dadd(587.424, 633.793, 56.5187, 0.488186)
	pt3dadd(590.384, 636.861, 59.6628, 0.28941)
	pt3dadd(590.522, 637.142, 59.9142, 0.591244)
	pt3dadd(590.703, 637.691, 60.3675, 0.84667)
	pt3dadd(590.782, 638.305, 60.7247, 0.707354)
	pt3dadd(590.874, 638.539, 60.8, 0.2)
	pt3dadd(591.103, 638.951, 60.9235, 0.2)
	pt3dadd(591.225, 639.13, 60.985, 0.2)
	pt3dadd(591.29, 639.343, 61.0756, 0.2)
	pt3dadd(591.454, 639.654, 61.2293, 0.374894)
	pt3dadd(591.567, 639.806, 61.4085, 0.219258)
	pt3dadd(591.856, 640.119, 61.4352, 0.506824)
	pt3dadd(592.209, 641.575, 62.1586, 1.55368)
	pt3dadd(592.406, 642.08, 62.3788, 0.55774)
	pt3dadd(592.764, 642.192, 62.8687, 0.704986)
	pt3dadd(592.89, 642.419, 63.085, 0.582028)
	pt3dadd(593.032, 642.672, 63.2963, 0.2)
	pt3dadd(593.124, 642.926, 63.4776, 0.418006)
	pt3dadd(593.267, 643.168, 63.7284, 0.571646)
	pt3dadd(594.187, 645.795, 65.3037, 0.378682)
	pt3dadd(594.472, 646.079, 65.6069, 0.529924)
	pt3dadd(594.661, 646.238, 65.8855, 0.62597)
	pt3dadd(594.796, 646.426, 66.0778, 0.417264)
	pt3dadd(594.987, 646.57, 66.2376, 0.2)
	pt3dadd(595.183, 646.777, 66.3264, 0.2)
	pt3dadd(595.592, 647.196, 66.9663, 1.05075)
	pt3dadd(595.964, 647.726, 66.9852, 0.95452)
	pt3dadd(598.979, 651.367, 70.2145, 1.01949)
	pt3dadd(601.646, 653.323, 70.8705, 0.61288)
	pt3dadd(601.861, 653.306, 71.2388, 0.617492)
	pt3dadd(602.087, 653.318, 71.7464, 0.550302)
	pt3dadd(602.302, 653.449, 71.9709, 0.385886)
	pt3dadd(602.477, 653.487, 72.1963, 0.43897)
	pt3dadd(604.24, 655.234, 73.237, 0.862226)
	pt3dadd(604.714, 655.645, 73.7391, 1.19854)
	pt3dadd(605.069, 655.873, 73.5435, 0.97273)
	pt3dadd(607.132, 656.666, 74.7666, 0.464508)
	pt3dadd(607.377, 656.763, 74.8721, 0.2)
	pt3dadd(607.587, 656.821, 74.9556, 0.210978)
	pt3dadd(608.282, 657.223, 75.3014, 0.424472)
	pt3dadd(608.459, 657.336, 75.5102, 0.301472)
	pt3dadd(608.625, 657.558, 75.6189, 0.2)
	pt3dadd(609.087, 658.076, 75.6812, 0.571412)
	pt3dadd(609.431, 658.324, 76.2235, 0.990534)
	pt3dadd(610.086, 658.625, 76.6518, 0.840316)
	pt3dadd(610.518, 658.712, 76.9806, 0.540242)
	pt3dadd(610.775, 658.83, 76.9952, 0.222032)
	pt3dadd(611.028, 659.047, 77.1484, 0.368574)
	pt3dadd(611.265, 659.194, 77.483, 0.47987)
	pt3dadd(611.488, 659.188, 77.6804, 0.328782)
	pt3dadd(611.648, 659.196, 77.8855, 0.36267)
	pt3dadd(611.943, 659.415, 78.0778, 0.290884)
	pt3dadd(612.204, 659.652, 78.2314, 0.419308)
	pt3dadd(612.392, 659.879, 78.3753, 0.408904)
	pt3dadd(612.549, 660.079, 78.5383, 0.51122)
	pt3dadd(612.707, 660.283, 78.9154, 0.588302)
	pt3dadd(612.994, 660.452, 78.9639, 0.2)
	pt3dadd(613.269, 660.632, 79.1042, 0.260772)
	pt3dadd(615.855, 662.312, 81.0835, 0.532044)
	pt3dadd(616.349, 662.688, 81.7636, 0.990276)
	pt3dadd(620.215, 666.567, 85.6617, 0.407596)
	pt3dadd(620.377, 666.803, 85.4897, 0.347718)
	pt3dadd(620.39, 667.122, 85.3909, 0.456636)
	pt3dadd(620.674, 667.53, 85.6639, 0.848496)
	pt3dadd(621.003, 668.28, 86.189, 0.499196)
	pt3dadd(621.288, 668.644, 85.9814, 0.2)
	pt3dadd(621.399, 668.872, 85.896, 0.383088)
	pt3dadd(621.465, 669.122, 85.9555, 0.635366)
	pt3dadd(621.581, 669.329, 86.1929, 0.765062)
	pt3dadd(621.561, 670.101, 86.2383, 0.679648)
	pt3dadd(621.725, 670.583, 86.2777, 1.26685)
	pt3dadd(621.534, 671.624, 86.6106, 0.46329)
	pt3dadd(621.559, 671.939, 86.7647, 0.532176)
	pt3dadd(621.565, 672.216, 87, 0.708666)
	pt3dadd(621.572, 672.524, 87.2014, 0.907862)
	pt3dadd(621.558, 673.279, 87.4771, 1.19086)
	pt3dadd(621.41, 673.899, 87.7578, 0.82871)
	pt3dadd(621.066, 674.482, 87.7929, 0.2)
	pt3dadd(621.026, 674.677, 87.8646, 0.2)
	pt3dadd(620.635, 678.993, 87.5114, 0.305678)
	pt3dadd(620.467, 679.242, 87.6457, 0.32191)
	pt3dadd(620.489, 679.675, 87.6705, 0.667656)
	pt3dadd(620.366, 680.047, 87.7799, 1.15793)
	pt3dadd(620.556, 680.756, 87.6851, 1.015)
	pt3dadd(620.518, 681.331, 87.7043, 0.856144)
  }
}
proc shape3d_63() {
  dend[126] {	pt3dadd(620.272, 681.848, 87.7324, 1.09049)
	pt3dadd(620.078, 684.786, 87.7584, 0.542204)
	pt3dadd(620.114, 685.002, 87.9251, 0.519042)
	pt3dadd(620.158, 685.196, 88.1633, 0.484286)
	pt3dadd(620.101, 685.46, 88.5919, 0.69874)
	pt3dadd(620.759, 688.538, 89.2227, 0.695472)
	pt3dadd(620.85, 691.533, 89.7438, 1.15689)
	pt3dadd(620.728, 692.028, 89.4773, 1.30649)
	pt3dadd(621.657, 697.007, 90.193, 0.68344)
	pt3dadd(621.602, 697.453, 90.2985, 0.968862)
	pt3dadd(621.62, 698.307, 90.9296, 0.30568)
	pt3dadd(621.592, 698.457, 91.0648, 0.2)
	pt3dadd(621.643, 698.73, 91.156, 0.41694)
	pt3dadd(622.81, 702.731, 91.6653, 0.651)
	pt3dadd(622.944, 703.034, 91.754, 0.497126)
	pt3dadd(623.582, 704.163, 93.0677, 0.84334)
	pt3dadd(623.533, 704.544, 93.0489, 0.540362)
	pt3dadd(623.593, 704.707, 93.1031, 0.307176)
	pt3dadd(623.552, 704.968, 93.1941, 0.2)
	pt3dadd(623.72, 705.441, 93.3804, 0.460756)
	pt3dadd(623.936, 705.565, 93.512, 0.331112)
	pt3dadd(624.14, 705.796, 93.5856, 0.319064)
	pt3dadd(624.408, 705.903, 93.7621, 0.48645)
	pt3dadd(624.745, 705.974, 93.9059, 0.279062)
	pt3dadd(624.987, 706.005, 94.0336, 0.201468)
	pt3dadd(625.557, 706.163, 94.3636, 0.783618)
	pt3dadd(625.892, 706.37, 94.5067, 0.785866)
	pt3dadd(626.237, 706.832, 94.7496, 0.72174)
	pt3dadd(626.651, 707.41, 95.2827, 1.17662)
	pt3dadd(627.134, 707.749, 95.3944, 0.770574)
	pt3dadd(627.522, 708.214, 95.563, 0.642896)
	pt3dadd(627.787, 708.596, 95.6666, 0.395446)
	pt3dadd(628.399, 708.962, 95.9774, 0.68486)
	pt3dadd(628.855, 709.351, 96.6139, 1.14528)
	pt3dadd(629.063, 709.759, 97.0151, 1.11641)
	pt3dadd(628.979, 710.418, 97.47, 0.807548)
	pt3dadd(629.546, 710.882, 97.6615, 0.268852)
	pt3dadd(629.626, 711.009, 97.8543, 0.356528)
	pt3dadd(629.711, 711.003, 98.1165, 0.245476)
	pt3dadd(630.038, 711.112, 98.3171, 0.40162)
	pt3dadd(630.282, 711.312, 98.5375, 0.55427)
	pt3dadd(630.76, 711.75, 98.926, 0.2)
	pt3dadd(631.112, 712.086, 99.4444, 0.846026)
	pt3dadd(633.942, 714.79, 101.793, 0.715032)
	pt3dadd(634.118, 715.07, 102.171, 1.04587)
	pt3dadd(634.667, 715.613, 102.643, 0.785678)
	pt3dadd(634.87, 715.678, 103.033, 0.429066)
	pt3dadd(635.769, 716.89, 102.66, 0.793436)
	pt3dadd(635.945, 717.278, 102.653, 1.00789)
	pt3dadd(638.973, 723.423, 105.873, 0.378152)
	pt3dadd(639.728, 725.379, 105.113, 1.15355)
  }
  dend_6[65] {pt3dclear()
	pt3dadd(639.728, 725.379, 105.113, 1.15355)
	pt3dadd(640.293, 727.768, 105.763, 0.994936)
  }
  dend[127] {pt3dclear()
	pt3dadd(580.941, 628.237, 48.8133, 0.998802)
	pt3dadd(584.594, 630.725, 47.4167, 1.01563)
	pt3dadd(585, 630.911, 47.4518, 0.755592)
	pt3dadd(588.17, 633.144, 46.9254, 0.580878)
	pt3dadd(589.485, 634.218, 46.3422, 0.453754)
	pt3dadd(589.869, 634.491, 46.1965, 0.5468)
	pt3dadd(590.289, 634.651, 45.9706, 0.2)
	pt3dadd(590.511, 634.701, 45.9244, 0.2)
	pt3dadd(590.687, 634.86, 45.955, 0.2)
	pt3dadd(590.956, 634.906, 45.852, 0.26016)
	pt3dadd(590.999, 635.484, 45.955, 0.537754)
	pt3dadd(591.838, 636.116, 45.5335, 1.3325)
	pt3dadd(595.9, 639.516, 43.1516, 0.631828)
	pt3dadd(596.181, 639.753, 43.0581, 0.698482)
	pt3dadd(596.843, 640.301, 42.8036, 1.0012)
	pt3dadd(597.539, 640.809, 42.6183, 0.568304)
	pt3dadd(597.837, 641.07, 42.6041, 0.593388)
	pt3dadd(600.063, 642.742, 42.0063, 1.1349)
	pt3dadd(600.147, 643.151, 42.0279, 0.93895)
	pt3dadd(601.207, 645.016, 41.1611, 0.684962)
	pt3dadd(601.613, 645.083, 41.0011, 0.52792)
	pt3dadd(604.283, 646.836, 38.9503, 0.656238)
	pt3dadd(604.638, 646.9, 38.6941, 0.89087)
	pt3dadd(605.125, 647.395, 38.2397, 0.912342)
	pt3dadd(605.663, 647.881, 38.127, 0.2)
	pt3dadd(605.791, 648.107, 38.0778, 0.292196)
	pt3dadd(606.104, 648.173, 38.0213, 0.221914)
	pt3dadd(606.313, 648.325, 38.0137, 0.2)
	pt3dadd(606.468, 648.438, 38.0063, 0.20071)
	pt3dadd(606.662, 648.598, 37.8566, 0.2)
	pt3dadd(607.564, 648.856, 37.5396, 0.741198)
	pt3dadd(607.937, 649.117, 37.2208, 1.07235)
	pt3dadd(608.588, 649.588, 36.8969, 1.06177)
	pt3dadd(608.862, 649.723, 36.465, 0.778872)
	pt3dadd(609.917, 650.497, 35.7169, 0.2)
	pt3dadd(610.101, 650.65, 35.5855, 0.2)
	pt3dadd(610.759, 651.016, 34.7518, 1.02171)
	pt3dadd(611.215, 651.311, 35.0048, 1.18119)
	pt3dadd(611.722, 652.028, 34.7742, 0.580626)
	pt3dadd(611.997, 652.28, 34.6659, 0.424886)
	pt3dadd(612.99, 653.758, 34.2622, 0.354676)
	pt3dadd(613.099, 654.026, 34.1831, 0.343874)
	pt3dadd(613.315, 654.589, 33.9108, 0.59421)
	pt3dadd(613.413, 654.886, 33.4084, 0.63254)
	pt3dadd(613.55, 655.185, 33.1138, 0.2)
	pt3dadd(613.582, 655.423, 32.9973, 0.220368)
	pt3dadd(613.58, 655.603, 32.8778, 0.356022)
	pt3dadd(613.686, 656.098, 32.6356, 0.464648)
	pt3dadd(613.778, 656.308, 32.4821, 0.41359)
	pt3dadd(614.27, 656.999, 32.26, 1.14423)
	pt3dadd(618.097, 660.283, 29.854, 0.2)
	pt3dadd(618.932, 661.106, 29.3874, 1.09646)
	pt3dadd(621.161, 663.503, 28.2286, 0.797438)
	pt3dadd(621.279, 663.869, 28.2045, 0.81226)
	pt3dadd(625.006, 667.347, 27.5309, 0.93976)
	pt3dadd(626.802, 670.994, 26.8232, 0.944538)
	pt3dadd(627.321, 671.182, 27.5023, 0.797834)
	pt3dadd(630.041, 675.654, 26.3015, 0.597268)
	pt3dadd(630.546, 676.015, 26.0616, 1.21267)
	pt3dadd(630.855, 676.736, 25.7274, 0.2)
	pt3dadd(631.008, 676.941, 25.6305, 0.35083)
	pt3dadd(632.037, 678.831, 22.2141, 0.675958)
	pt3dadd(632.124, 679.004, 22.8022, 0.884246)
	pt3dadd(632.251, 679.06, 23.3175, 0.677078)
	pt3dadd(632.279, 679.186, 23.5394, 0.4453)
	pt3dadd(632.331, 679.308, 23.7226, 0.2)
	pt3dadd(632.365, 679.56, 24.0534, 0.554092)
	pt3dadd(636.287, 684.021, 23.1063, 1.08247)
	pt3dadd(641.966, 688.52, 17.7389, 0.505638)
	pt3dadd(643.45, 690.611, 17.6039, 0.387866)
	pt3dadd(644.253, 691.1, 17.2701, 1.03696)
	pt3dadd(645.112, 691.32, 16.9333, 0.420318)
	pt3dadd(645.418, 691.39, 16.7392, 0.681818)
	pt3dadd(645.61, 691.477, 16.4206, 0.751456)
  }
  dend_6[66] {pt3dclear()
	pt3dadd(645.61, 691.477, 16.4206, 0.751456)
	pt3dadd(645.698, 691.411, 16.0539, 0.629082)
  }
  dend[128] {pt3dclear()
	pt3dadd(513.32, 575.399, 26.1233, 1.63206)
	pt3dadd(515.18, 574.587, 25.205, 0.2)
	pt3dadd(515.338, 574.513, 25.2099, 0.2)
	pt3dadd(515.791, 574.298, 25.1008, 0.592632)
	pt3dadd(516.382, 574.08, 24.8856, 0.68073)
	pt3dadd(516.725, 573.869, 24.8121, 0.771046)
	pt3dadd(517.243, 573.922, 24.494, 0.805942)
	pt3dadd(517.533, 573.892, 24.3438, 0.624978)
	pt3dadd(519.997, 573.239, 23.8442, 0.742696)
	pt3dadd(520.497, 573.411, 23.5925, 0.2)
	pt3dadd(520.93, 573.639, 23.3312, 0.44461)
	pt3dadd(521.251, 573.696, 23.5214, 0.424036)
	pt3dadd(521.728, 573.811, 23.346, 0.33499)
	pt3dadd(522.038, 573.884, 23.2899, 0.501586)
	pt3dadd(522.299, 573.927, 23.2356, 0.548436)
	pt3dadd(522.601, 573.989, 23.2211, 0.453114)
	pt3dadd(522.905, 574.03, 23.163, 0.286528)
	pt3dadd(523.181, 574.116, 23.1321, 0.2)
	pt3dadd(523.439, 574.226, 23.1018, 0.36769)
	pt3dadd(523.774, 574.253, 23.0334, 0.781638)
	pt3dadd(524.444, 574.344, 22.9386, 0.845248)
	pt3dadd(525.117, 574.327, 22.7578, 1.12985)
	pt3dadd(525.791, 574.117, 22.7184, 0.892976)
	pt3dadd(526.498, 574.087, 22.7684, 0.508796)
	pt3dadd(526.825, 574.188, 22.7869, 0.377632)
	pt3dadd(527.13, 574.198, 22.666, 0.35563)
	pt3dadd(527.507, 574.191, 22.5878, 0.256878)
	pt3dadd(527.823, 574.195, 22.5363, 0.2)
	pt3dadd(528.054, 574.188, 22.4586, 0.2)
	pt3dadd(528.3, 574.238, 22.3587, 0.249876)
	pt3dadd(528.592, 574.15, 22.2766, 0.451218)
	pt3dadd(528.75, 573.911, 22.125, 0.536706)
	pt3dadd(529.168, 574.002, 22.2387, 0.266768)
	pt3dadd(529.433, 573.997, 22.2342, 0.312836)
	pt3dadd(529.616, 574, 22.2206, 0.241034)
	pt3dadd(529.808, 574.001, 22.2015, 0.2)
	pt3dadd(530.004, 574.003, 22.1944, 0.2)
	pt3dadd(530.202, 574.002, 22.1953, 0.2)
	pt3dadd(530.487, 574.05, 22.1966, 0.321224)
	pt3dadd(530.726, 574.066, 22.2536, 0.563782)
	pt3dadd(531.406, 574.189, 22.1268, 0.566368)
	pt3dadd(531.619, 573.921, 21.9685, 0.829252)
	pt3dadd(532.44, 573.309, 22.269, 0.211908)
	pt3dadd(532.721, 573.156, 22.403, 0.20004)
	pt3dadd(533.084, 573.146, 22.1735, 0.232236)
	pt3dadd(533.279, 573.193, 22.0476, 0.374878)
	pt3dadd(533.501, 573.154, 22.019, 0.416278)
	pt3dadd(533.948, 573.036, 22.1834, 0.251756)
	pt3dadd(534.205, 572.994, 22.2625, 0.2)
	pt3dadd(534.535, 572.975, 22.2719, 0.511376)
	pt3dadd(535.136, 572.806, 22.3699, 0.609176)
	pt3dadd(536.8, 571.927, 22.6, 0.2)
	pt3dadd(537.17, 571.867, 22.5504, 0.363804)
	pt3dadd(537.432, 571.794, 22.4997, 0.372436)
	pt3dadd(540.535, 569.879, 21.8723, 0.56698)
	pt3dadd(540.975, 569.569, 21.7154, 0.83591)
	pt3dadd(541.592, 569.084, 21.7493, 1.48529)
	pt3dadd(542.186, 568.835, 21.823, 0.788592)
	pt3dadd(544.89, 568.384, 21.6103, 0.2)
	pt3dadd(545.139, 568.313, 21.6267, 0.2)
	pt3dadd(545.615, 568.059, 21.4767, 0.684174)
	pt3dadd(546.498, 567.883, 21.5331, 0.925918)
	pt3dadd(547.57, 567.918, 21.0029, 0.563598)
	pt3dadd(547.802, 567.981, 20.7937, 0.391312)
	pt3dadd(548.035, 568.135, 20.5853, 0.52209)
	pt3dadd(548.124, 568.474, 20.5858, 0.567436)
	pt3dadd(548.502, 568.173, 20.0467, 0.2)
	pt3dadd(548.658, 568.078, 19.8453, 0.269528)
	pt3dadd(548.819, 568.028, 19.6798, 0.379262)
	pt3dadd(549.191, 567.955, 19.3066, 0.561476)
	pt3dadd(551.193, 567.783, 16.7272, 0.2)
  }
}
proc shape3d_64() {
  dend[128] {	pt3dadd(551.205, 567.732, 17.0341, 0.417166)
	pt3dadd(551.358, 567.618, 17.4225, 0.405956)
	pt3dadd(551.71, 567.6, 17.6146, 0.314652)
	pt3dadd(552.002, 567.49, 17.6597, 0.548646)
	pt3dadd(552.749, 567.21, 17.2544, 0.768136)
	pt3dadd(553.128, 566.997, 17.2129, 0.69087)
	pt3dadd(553.447, 566.934, 17.1484, 0.437982)
	pt3dadd(555.139, 566.928, 16.499, 0.39231)
	pt3dadd(555.409, 567.197, 16.9381, 0.75116)
	pt3dadd(555.905, 567.282, 17.0561, 0.655116)
	pt3dadd(556.173, 567.376, 17.0197, 0.47056)
	pt3dadd(556.679, 567.387, 17.1645, 0.2)
	pt3dadd(556.841, 567.495, 17.0823, 0.2)
	pt3dadd(557.08, 567.567, 16.9845, 0.257292)
	pt3dadd(557.265, 567.602, 16.921, 0.391332)
	pt3dadd(557.839, 567.793, 17.0378, 0.744172)
	pt3dadd(558.221, 567.91, 17.0503, 0.56372)
	pt3dadd(561.155, 569, 16.983, 0.215162)
	pt3dadd(561.465, 569.166, 16.9419, 0.21651)
	pt3dadd(562.141, 569.552, 17.1717, 0.882972)
	pt3dadd(562.692, 569.757, 16.7802, 1.21982)
	pt3dadd(563.381, 570.057, 16.5839, 1.15587)
	pt3dadd(563.791, 570.004, 16.44, 0.781412)
	pt3dadd(568.513, 570.01, 15.3585, 0.664654)
	pt3dadd(568.833, 569.961, 15.1708, 0.70337)
	pt3dadd(569.616, 569.884, 15.0592, 0.894776)
	pt3dadd(572.862, 570.078, 15.7911, 0.534878)
	pt3dadd(573.112, 570.299, 15.5098, 0.667876)
	pt3dadd(573.669, 570.547, 16.3234, 0.2)
	pt3dadd(575.69, 571.505, 12.5316, 0.558624)
	pt3dadd(576.051, 571.673, 12.2831, 0.749316)
	pt3dadd(576.437, 572.343, 12.2504, 0.885084)
	pt3dadd(576.907, 573.081, 12.1644, 0.30477)
	pt3dadd(577.126, 573.307, 12.0402, 0.526138)
	pt3dadd(577.374, 573.477, 11.9343, 0.504956)
	pt3dadd(577.708, 573.618, 11.7441, 0.307854)
	pt3dadd(580.591, 576.952, 11.0435, 0.657946)
	pt3dadd(582.134, 578.989, 10.2284, 1.06161)
	pt3dadd(582.605, 579.698, 9.93891, 1.18936)
	pt3dadd(584.195, 582.415, 9.48117, 1.19329)
	pt3dadd(584.744, 582.984, 9.55058, 0.711314)
	pt3dadd(585.71, 583.963, 9.19428, 0.318288)
	pt3dadd(586.214, 584.324, 9.27067, 0.870044)
  }
  dend_6[67] {pt3dclear()
	pt3dadd(586.214, 584.324, 9.27067, 0.870044)
	pt3dadd(588.606, 589.975, 9.12599, 1.08493)
  }
  dend[129] {pt3dclear()
	pt3dadd(435.167, 511.019, 32.2243, 1.61966)
	pt3dadd(435.92, 513.488, 32.1932, 0.573676)
	pt3dadd(436.374, 513.817, 32.3113, 0.354482)
	pt3dadd(436.626, 513.998, 32.3613, 0.251052)
	pt3dadd(436.897, 514.29, 32.3894, 0.2)
	pt3dadd(436.722, 515.905, 32.7827, 0.52721)
	pt3dadd(437.034, 516.31, 32.3788, 0.907802)
	pt3dadd(437.12, 516.418, 32.4, 0.2)
	pt3dadd(437.263, 516.954, 32.3633, 0.366898)
	pt3dadd(437.354, 517.236, 32.3964, 0.2)
	pt3dadd(437.4, 517.48, 32.3898, 0.269512)
	pt3dadd(437.527, 517.744, 32.2213, 0.2)
	pt3dadd(437.668, 517.979, 32.1315, 0.2)
	pt3dadd(437.787, 518.126, 32.0641, 0.216592)
	pt3dadd(437.842, 518.35, 31.9012, 0.2)
	pt3dadd(437.884, 518.5, 31.8024, 0.2)
	pt3dadd(438.297, 518.946, 31.8137, 0.73419)
	pt3dadd(438.589, 519.203, 31.8015, 0.532958)
	pt3dadd(438.999, 519.806, 31.8014, 1.4165)
	pt3dadd(438.979, 520.635, 31.7831, 1.13528)
	pt3dadd(438.927, 521.52, 31.963, 0.94719)
	pt3dadd(439.075, 522.121, 31.6339, 0.352964)
	pt3dadd(439.143, 522.338, 31.5533, 0.2973)
	pt3dadd(439.16, 522.567, 31.508, 0.434356)
	pt3dadd(438.967, 522.914, 31.43, 0.816886)
	pt3dadd(438.913, 523.781, 31.4241, 0.91864)
	pt3dadd(439.136, 524.304, 31.3067, 0.492678)
	pt3dadd(439.325, 524.562, 31.246, 0.566906)
	pt3dadd(439.601, 524.709, 31.2256, 0.575696)
	pt3dadd(439.556, 525.158, 31.1111, 0.2)
	pt3dadd(439.548, 525.431, 31.0359, 0.417658)
	pt3dadd(439.601, 525.791, 31.1225, 0.448494)
	pt3dadd(439.705, 525.997, 31.1198, 0.203044)
	pt3dadd(439.835, 526.286, 31.0917, 0.2)
	pt3dadd(439.935, 526.495, 31.1027, 0.201356)
	pt3dadd(440.01, 526.674, 31.1708, 0.37524)
	pt3dadd(440.108, 527.003, 31.2341, 0.777396)
	pt3dadd(440.532, 527.383, 31.4082, 1.27041)
	pt3dadd(440.668, 528.006, 31.4828, 0.953238)
	pt3dadd(440.793, 528.595, 31.1203, 0.412566)
	pt3dadd(440.923, 528.788, 30.8444, 0.461186)
	pt3dadd(441.833, 532.546, 31.9709, 0.351516)
	pt3dadd(442.396, 532.77, 31.2206, 0.854156)
	pt3dadd(442.588, 533.156, 31.3054, 0.828414)
	pt3dadd(442.902, 533.309, 31.316, 0.68498)
	pt3dadd(443.074, 533.654, 31.4191, 0.54209)
	pt3dadd(443.134, 533.937, 31.5912, 0.431988)
	pt3dadd(443.217, 534.206, 31.7761, 0.66304)
	pt3dadd(443.348, 534.604, 31.5713, 0.3442)
	pt3dadd(443.402, 534.865, 31.386, 0.281678)
	pt3dadd(443.501, 535.1, 31.2349, 0.519736)
	pt3dadd(443.457, 535.359, 31.1964, 0.48064)
	pt3dadd(443.523, 535.646, 31.188, 0.546448)
	pt3dadd(443.851, 535.983, 31.1103, 0.382514)
	pt3dadd(444.07, 536.224, 31.1273, 0.275698)
	pt3dadd(444.275, 536.478, 31.1353, 0.442184)
	pt3dadd(444.397, 537.161, 31.238, 1.06794)
	pt3dadd(444.06, 537.834, 31.1545, 0.742812)
	pt3dadd(444.809, 539.568, 31.0544, 0.2)
	pt3dadd(444.929, 539.943, 30.9401, 0.403446)
	pt3dadd(444.96, 540.277, 31.0418, 0.659834)
	pt3dadd(444.897, 540.78, 31.1793, 0.73214)
	pt3dadd(445.117, 541.307, 31.0862, 0.647052)
	pt3dadd(445.564, 541.507, 30.9913, 0.989202)
	pt3dadd(445.986, 541.862, 30.6018, 0.863684)
	pt3dadd(446.182, 542.408, 30.5482, 0.423362)
	pt3dadd(446.218, 542.713, 30.4697, 0.276762)
	pt3dadd(446.33, 543.016, 30.4536, 0.44817)
	pt3dadd(446.592, 543.664, 30.4073, 0.937852)
	pt3dadd(447.131, 544.261, 30.3567, 1.12044)
	pt3dadd(447.776, 545.044, 30.1603, 0.903758)
	pt3dadd(447.885, 545.637, 30.3007, 0.303514)
	pt3dadd(448.253, 546.024, 30.0562, 0.2)
	pt3dadd(448.611, 546.257, 29.7615, 0.62228)
	pt3dadd(448.572, 546.734, 30.06, 0.252962)
	pt3dadd(448.713, 547.063, 30.2246, 0.478086)
	pt3dadd(448.838, 547.305, 30.3354, 0.391404)
	pt3dadd(449.17, 548.079, 30.4501, 0.986352)
	pt3dadd(449.237, 548.603, 30.6853, 1.0249)
	pt3dadd(449.224, 549.576, 30.8533, 1.08475)
	pt3dadd(449.396, 550.154, 30.6926, 0.874744)
	pt3dadd(449.772, 550.652, 30.5546, 0.786812)
	pt3dadd(450.248, 550.866, 30.5153, 0.675172)
	pt3dadd(450.75, 551.031, 30.6777, 0.541056)
	pt3dadd(451.001, 551.311, 30.8882, 0.615726)
	pt3dadd(451.436, 551.672, 30.7473, 0.373146)
	pt3dadd(451.678, 551.837, 30.7119, 0.325988)
	pt3dadd(451.912, 552.004, 30.6348, 0.3969)
	pt3dadd(452.173, 552.165, 30.4705, 0.373934)
	pt3dadd(452.285, 552.478, 30.344, 0.34936)
	pt3dadd(452.393, 552.678, 30.1822, 0.54166)
	pt3dadd(452.58, 553.011, 30.2561, 0.382232)
	pt3dadd(452.768, 553.34, 30.3196, 0.477506)
	pt3dadd(453.03, 553.699, 30.229, 0.63311)
	pt3dadd(453.305, 554.152, 30.2151, 0.45909)
	pt3dadd(453.407, 554.448, 30.2311, 0.327302)
	pt3dadd(453.563, 554.751, 30.2154, 0.225324)
	pt3dadd(453.902, 555.362, 30.1926, 0.622268)
	pt3dadd(454.475, 555.95, 30.1424, 0.955212)
	pt3dadd(454.71, 556.349, 30.2813, 0.86736)
	pt3dadd(454.949, 556.798, 30.3698, 0.89501)
	pt3dadd(455.198, 557.132, 30.4631, 0.656746)
	pt3dadd(455.365, 557.528, 30.5963, 0.473976)
	pt3dadd(455.577, 557.735, 30.7834, 0.409474)
	pt3dadd(455.702, 557.974, 30.865, 0.537446)
	pt3dadd(455.827, 558.428, 30.6364, 0.475152)
	pt3dadd(455.991, 558.703, 30.4489, 0.672182)
	pt3dadd(456.391, 559.139, 30.5858, 0.527814)
	pt3dadd(456.699, 559.457, 30.6094, 0.71384)
	pt3dadd(457.302, 559.999, 30.671, 1.07156)
	pt3dadd(457.584, 560.813, 30.8113, 1.62517)
	pt3dadd(457.971, 561.38, 30.8609, 1.22328)
	pt3dadd(458.276, 561.723, 30.9185, 0.812574)
	pt3dadd(458.616, 562.305, 31.0121, 0.557402)
	pt3dadd(458.719, 562.635, 31.0599, 0.4613)
	pt3dadd(459.752, 563.361, 31.3978, 0.63465)
	pt3dadd(460.272, 563.694, 31.4637, 0.954128)
	pt3dadd(460.67, 564.452, 31.2449, 1.15108)
	pt3dadd(460.995, 565.108, 31.3122, 0.793072)
	pt3dadd(461.253, 565.499, 31.1534, 0.381726)
	pt3dadd(461.425, 565.85, 31.2413, 0.421086)
	pt3dadd(461.671, 566.093, 31.2783, 0.249542)
	pt3dadd(461.836, 566.316, 31.288, 0.29416)
	pt3dadd(462.02, 566.542, 31.348, 0.438934)
	pt3dadd(462.252, 566.768, 31.416, 0.589462)
	pt3dadd(462.406, 567.104, 31.4998, 0.724168)
	pt3dadd(462.652, 567.43, 31.5047, 0.734706)
	pt3dadd(462.977, 568.12, 31.3313, 0.353244)
	pt3dadd(463.458, 569.787, 31.2091, 0.474542)
	pt3dadd(463.495, 570.089, 31.202, 0.558686)
	pt3dadd(463.726, 570.918, 31.1437, 1.19291)
	pt3dadd(464, 571.598, 31.068, 1.1413)
	pt3dadd(464.396, 572.294, 31.1106, 1.30196)
	pt3dadd(464.798, 572.969, 31.1991, 0.820748)
	pt3dadd(465.057, 573.227, 31.2976, 0.595202)
	pt3dadd(465.444, 573.657, 31.1599, 0.336308)
	pt3dadd(465.647, 573.97, 31.1401, 0.305156)
	pt3dadd(465.743, 574.234, 31.1181, 0.250796)
	pt3dadd(465.796, 574.442, 31.0697, 0.302888)
	pt3dadd(465.845, 574.68, 31.0785, 0.372258)
	pt3dadd(465.954, 574.932, 31.1485, 0.440804)
	pt3dadd(465.961, 575.237, 31.0371, 0.474348)
	pt3dadd(465.954, 575.535, 30.8857, 0.579904)
	pt3dadd(466.07, 575.925, 30.8412, 0.519058)
	pt3dadd(466.134, 576.174, 30.8485, 0.473226)
	pt3dadd(466.312, 576.502, 30.8367, 0.427224)
	pt3dadd(466.501, 576.811, 30.8153, 0.400222)
	pt3dadd(466.645, 577.053, 30.7033, 0.490608)
	pt3dadd(466.72, 577.407, 30.6164, 0.485088)
	pt3dadd(467.057, 577.962, 30.3635, 0.800464)
	pt3dadd(467.411, 579.142, 30.2149, 1.62888)
	pt3dadd(467.583, 580.132, 30.0787, 0.737394)
	pt3dadd(467.709, 580.479, 29.9771, 0.466232)
	pt3dadd(467.689, 580.828, 29.9073, 0.28582)
	pt3dadd(467.759, 581.029, 29.9507, 0.37585)
  }
}
proc shape3d_65() {
  dend[129] {	pt3dadd(467.806, 581.319, 29.7065, 0.2)
	pt3dadd(467.796, 581.442, 29.7533, 0.2)
	pt3dadd(467.8, 581.7, 29.8108, 0.33102)
	pt3dadd(467.811, 581.888, 29.6903, 0.374212)
	pt3dadd(467.947, 582.025, 29.5516, 0.447622)
	pt3dadd(467.99, 582.248, 29.401, 0.44203)
	pt3dadd(468.011, 582.568, 29.3907, 0.2)
	pt3dadd(468.308, 583.132, 29.3188, 0.872266)
	pt3dadd(468.254, 583.816, 29.1433, 1.14127)
	pt3dadd(468.215, 584.491, 29.257, 0.63713)
	pt3dadd(468.666, 585.458, 29.0572, 1.32224)
	pt3dadd(468.536, 586.275, 29.104, 0.906358)
	pt3dadd(468.591, 586.877, 28.8818, 0.373176)
	pt3dadd(468.676, 587.179, 28.835, 0.278552)
	pt3dadd(468.757, 587.4, 28.8241, 0.40402)
	pt3dadd(468.808, 587.608, 28.8137, 0.305816)
	pt3dadd(468.941, 587.862, 28.808, 0.462526)
	pt3dadd(468.971, 588.127, 28.7967, 0.497638)
	pt3dadd(468.804, 588.82, 28.8095, 0.758544)
	pt3dadd(469.253, 589.717, 28.8126, 0.996786)
	pt3dadd(469.605, 590.105, 28.9462, 0.70394)
	pt3dadd(469.685, 590.82, 28.439, 0.60742)
	pt3dadd(469.549, 591.48, 28.1305, 0.679366)
	pt3dadd(469.688, 591.886, 28.1501, 0.372568)
	pt3dadd(469.727, 592.285, 28.1097, 0.539398)
	pt3dadd(469.75, 592.628, 28.0235, 0.702508)
	pt3dadd(469.946, 593.407, 27.9202, 1.10792)
	pt3dadd(470.166, 594.169, 27.6178, 0.890958)
	pt3dadd(470.143, 594.571, 27.57, 0.790464)
	pt3dadd(470.72, 596.322, 27.0421, 0.416866)
	pt3dadd(470.851, 596.55, 27.0188, 0.503988)
	pt3dadd(470.881, 596.787, 26.9804, 0.481044)
	pt3dadd(470.905, 597.023, 26.9069, 0.447402)
	pt3dadd(470.996, 597.265, 26.8717, 0.303092)
	pt3dadd(471.018, 597.561, 26.8364, 0.428848)
	pt3dadd(471.311, 598.363, 26.6654, 1.11097)
	pt3dadd(471.739, 598.965, 26.4054, 0.995222)
	pt3dadd(471.76, 599.734, 26.104, 1.21757)
	pt3dadd(472.304, 600.143, 26.1304, 0.700954)
	pt3dadd(472.912, 600.616, 26.0513, 0.936524)
	pt3dadd(473.258, 600.78, 25.9252, 0.71942)
	pt3dadd(473.551, 600.967, 25.7586, 0.766132)
	pt3dadd(473.768, 602.111, 25.2602, 0.36852)
	pt3dadd(473.782, 602.405, 25.3597, 0.32721)
	pt3dadd(473.917, 602.677, 25.3761, 0.35092)
	pt3dadd(474.366, 603.395, 25.198, 0.60879)
	pt3dadd(475.008, 603.665, 25.3579, 0.58401)
	pt3dadd(475.47, 604.124, 25.5514, 0.93335)
	pt3dadd(475.462, 605.012, 25.6512, 0.854316)
	pt3dadd(475.631, 605.496, 25.5934, 0.371936)
	pt3dadd(475.829, 605.782, 25.4939, 0.358832)
	pt3dadd(476.023, 606.039, 25.3117, 0.346866)
	pt3dadd(476.29, 606.425, 25.399, 0.374328)
	pt3dadd(476.604, 606.678, 25.4731, 0.782502)
	pt3dadd(476.89, 607.355, 25.121, 1.02193)
	pt3dadd(477.938, 608.087, 25.5053, 1.16787)
	pt3dadd(478.252, 608.656, 25.6047, 0.6709)
	pt3dadd(478.573, 609.042, 25.6103, 0.337898)
	pt3dadd(478.858, 609.332, 25.6031, 0.2)
	pt3dadd(478.966, 609.507, 25.5977, 0.2)
	pt3dadd(479.063, 609.708, 25.6368, 0.262028)
	pt3dadd(479.239, 609.918, 25.7506, 0.273584)
	pt3dadd(479.53, 610.075, 25.9298, 0.462826)
	pt3dadd(479.766, 610.357, 26.2917, 0.921662)
	pt3dadd(480.394, 611.179, 26.4524, 0.998378)
	pt3dadd(480.755, 611.641, 26.281, 0.93755)
	pt3dadd(481.216, 611.988, 26.2644, 0.75083)
	pt3dadd(481.556, 612.186, 26.2808, 0.603008)
	pt3dadd(481.96, 612.321, 26.3322, 0.470188)
	pt3dadd(482.229, 612.593, 26.4182, 0.334188)
	pt3dadd(482.444, 612.824, 26.3541, 0.2)
	pt3dadd(482.655, 613.084, 26.3152, 0.2)
	pt3dadd(482.887, 613.276, 26.29, 0.319644)
	pt3dadd(483.113, 613.431, 26.2087, 0.40448)
	pt3dadd(483.413, 613.665, 26.2154, 0.54011)
	pt3dadd(483.727, 613.961, 26.2858, 0.713188)
	pt3dadd(484.374, 614.405, 26.6575, 0.997538)
	pt3dadd(484.852, 614.524, 26.6758, 0.602244)
	pt3dadd(485.04, 614.94, 26.6587, 0.802698)
	pt3dadd(485.398, 615.147, 26.6077, 0.559526)
	pt3dadd(485.708, 615.414, 26.6603, 0.342646)
	pt3dadd(485.983, 615.541, 26.6741, 0.389358)
	pt3dadd(486.299, 615.677, 26.7309, 0.418054)
	pt3dadd(486.606, 615.833, 26.7928, 0.456906)
	pt3dadd(486.826, 616.047, 26.8083, 0.497222)
	pt3dadd(487.095, 616.263, 26.8876, 0.605386)
	pt3dadd(487.665, 616.617, 27.2104, 0.731276)
	pt3dadd(487.955, 617.091, 27.1538, 0.742336)
	pt3dadd(488.059, 617.455, 27.1997, 0.507814)
	pt3dadd(488.227, 617.844, 27.2737, 0.351978)
	pt3dadd(488.338, 618.08, 27.2918, 0.323192)
	pt3dadd(488.4, 618.284, 27.2384, 0.43438)
	pt3dadd(488.596, 618.618, 27.3954, 0.41352)
	pt3dadd(488.8, 618.87, 27.454, 0.30554)
	pt3dadd(489.007, 619.066, 27.4739, 0.308204)
	pt3dadd(489.237, 619.283, 27.4947, 0.274504)
	pt3dadd(489.584, 619.91, 27.5913, 0.827242)
	pt3dadd(490.012, 620.722, 27.6757, 1.66869)
  }
  dend_5[54] {pt3dclear()
	pt3dadd(490.012, 620.722, 27.6757, 1.66869)
	pt3dadd(491.133, 621.052, 27.7452, 1.49029)
  }
  dend[130] {pt3dclear()
	pt3dadd(491.133, 621.052, 27.7452, 1.49029)
	pt3dadd(492.274, 621.451, 27.5687, 0.44939)
	pt3dadd(492.578, 621.445, 27.6282, 0.462952)
	pt3dadd(492.922, 621.448, 27.4419, 0.487976)
	pt3dadd(493.061, 621.681, 27.321, 0.2)
	pt3dadd(493.295, 621.851, 27.1891, 0.2)
	pt3dadd(493.45, 621.93, 27.145, 0.270144)
	pt3dadd(493.703, 622.006, 27.0019, 0.382274)
	pt3dadd(493.934, 621.943, 26.7847, 0.639874)
	pt3dadd(494.326, 622.339, 27.2245, 0.274358)
	pt3dadd(494.562, 622.483, 27.4008, 0.42705)
	pt3dadd(494.869, 622.615, 27.4054, 0.2)
	pt3dadd(495.156, 622.723, 27.3211, 0.2)
	pt3dadd(495.414, 622.817, 27.2103, 0.368872)
	pt3dadd(496.019, 622.973, 27.3339, 0.743936)
	pt3dadd(496.354, 623.086, 27.4658, 0.546326)
	pt3dadd(496.587, 623.191, 27.4749, 0.368364)
	pt3dadd(496.821, 623.263, 27.5545, 0.431646)
	pt3dadd(497.936, 623.998, 27.3804, 0.2)
	pt3dadd(498.086, 624.135, 27.4023, 0.32638)
	pt3dadd(498.239, 624.371, 27.4545, 0.2)
	pt3dadd(498.309, 624.529, 27.5089, 0.2)
	pt3dadd(498.481, 624.734, 27.3649, 0.2)
	pt3dadd(498.786, 625.076, 27.5637, 0.5478)
	pt3dadd(499.078, 625.38, 27.7237, 0.560264)
	pt3dadd(499.116, 625.708, 27.8252, 0.52746)
	pt3dadd(499.193, 625.987, 27.9452, 0.362676)
	pt3dadd(499.448, 626.265, 27.945, 0.308134)
	pt3dadd(499.748, 626.457, 27.8517, 0.355058)
	pt3dadd(500.124, 626.734, 27.7143, 0.585488)
	pt3dadd(500.813, 626.931, 27.9891, 0.9965)
	pt3dadd(501.531, 627.067, 28.0639, 0.89448)
	pt3dadd(502.156, 627.236, 28.3721, 0.544646)
	pt3dadd(502.483, 627.484, 28.3228, 0.20041)
	pt3dadd(502.654, 627.633, 28.416, 0.2)
	pt3dadd(502.836, 627.791, 28.468, 0.2)
	pt3dadd(503.02, 627.92, 28.4983, 0.2)
	pt3dadd(503.314, 628.053, 28.4754, 0.218078)
	pt3dadd(503.736, 628.351, 28.4182, 0.702962)
	pt3dadd(504.03, 628.514, 28.425, 0.655488)
	pt3dadd(504.307, 628.717, 28.5708, 0.5166)
	pt3dadd(504.533, 629.01, 28.585, 0.2)
	pt3dadd(504.813, 629.231, 28.6106, 0.37514)
	pt3dadd(505.028, 629.524, 28.647, 0.660398)
	pt3dadd(505.697, 629.899, 29.0401, 1.04838)
	pt3dadd(506.03, 630.284, 29.228, 0.678818)
	pt3dadd(506.505, 630.693, 29.2061, 0.2)
	pt3dadd(506.747, 630.905, 29.225, 0.2)
	pt3dadd(507.024, 631.203, 29.2758, 0.375764)
	pt3dadd(507.409, 631.449, 29.2232, 0.721646)
	pt3dadd(507.865, 631.771, 29.2011, 0.769904)
	pt3dadd(508.396, 632.128, 29.2104, 0.452816)
	pt3dadd(508.664, 632.206, 29.2032, 0.210562)
	pt3dadd(508.909, 632.238, 29.2016, 0.224136)
	pt3dadd(509.308, 632.437, 29.1146, 0.46664)
	pt3dadd(509.547, 632.43, 29.0927, 0.353852)
	pt3dadd(511.546, 633.082, 29.1652, 0.42389)
	pt3dadd(511.723, 633.114, 29.1575, 0.3806)
	pt3dadd(511.976, 633.173, 29.0004, 0.315674)
	pt3dadd(512.193, 633.299, 28.9923, 0.2)
	pt3dadd(512.466, 633.405, 28.9034, 0.2063)
	pt3dadd(512.684, 633.551, 28.8354, 0.518934)
	pt3dadd(512.903, 633.817, 28.7571, 0.684878)
	pt3dadd(513.125, 634.316, 28.7535, 0.910706)
	pt3dadd(514.057, 634.547, 28.6151, 0.28856)
	pt3dadd(514.292, 634.622, 28.4933, 0.265654)
	pt3dadd(514.411, 634.762, 28.2963, 0.4751)
	pt3dadd(516.671, 635.098, 27.3061, 0.651406)
	pt3dadd(517.279, 635.379, 27.8589, 0.973364)
	pt3dadd(517.689, 635.437, 27.9447, 0.806454)
	pt3dadd(518.424, 636.048, 27.965, 0.398184)
	pt3dadd(518.752, 636.189, 27.9361, 0.464972)
	pt3dadd(519.006, 636.301, 27.9001, 0.361174)
	pt3dadd(519.226, 636.474, 27.8318, 0.506104)
	pt3dadd(519.488, 636.524, 27.8481, 0.515358)
	pt3dadd(519.749, 636.638, 27.9039, 0.507894)
	pt3dadd(520.242, 636.799, 27.8987, 0.2)
	pt3dadd(520.451, 636.86, 27.8953, 0.258636)
	pt3dadd(520.621, 636.915, 27.9741, 0.432672)
	pt3dadd(520.823, 637.019, 27.9581, 0.342268)
	pt3dadd(521.031, 637.177, 27.9184, 0.349122)
	pt3dadd(521.207, 637.23, 27.9012, 0.4096)
	pt3dadd(521.473, 637.336, 27.8495, 0.487228)
	pt3dadd(521.699, 637.45, 27.8364, 0.340068)
	pt3dadd(522.124, 637.546, 27.7735, 0.2)
	pt3dadd(522.372, 637.577, 27.7155, 0.239652)
	pt3dadd(522.615, 637.643, 27.6817, 0.482028)
	pt3dadd(522.886, 637.69, 27.6514, 0.581082)
	pt3dadd(523.184, 637.784, 27.6699, 0.390322)
	pt3dadd(525.031, 638.416, 27.6241, 0.76154)
	pt3dadd(525.536, 638.695, 27.6563, 1.04421)
	pt3dadd(525.98, 639.082, 27.74, 0.800502)
	pt3dadd(526.293, 639.427, 27.7078, 0.468286)
	pt3dadd(526.51, 639.624, 27.6972, 0.488548)
	pt3dadd(526.993, 639.715, 27.6549, 0.42279)
	pt3dadd(527.208, 639.752, 27.6823, 0.30414)
	pt3dadd(527.422, 639.814, 27.7241, 0.274336)
	pt3dadd(527.621, 639.861, 27.7647, 0.392476)
	pt3dadd(527.818, 639.981, 27.8342, 0.349156)
	pt3dadd(528.115, 639.993, 27.8984, 0.211544)
  }
}
proc shape3d_66() {
  dend[130] {	pt3dadd(528.634, 640.111, 27.9899, 0.50293)
	pt3dadd(528.893, 640.082, 27.9918, 0.450886)
	pt3dadd(529.393, 639.991, 28.0021, 0.261544)
	pt3dadd(529.609, 639.99, 27.9198, 0.2)
	pt3dadd(529.81, 639.95, 27.8672, 0.292498)
	pt3dadd(530.051, 639.897, 27.8214, 0.483408)
	pt3dadd(530.659, 639.967, 27.683, 0.72773)
	pt3dadd(531.374, 639.82, 27.4026, 0.899318)
	pt3dadd(531.926, 639.884, 27.5693, 0.614956)
	pt3dadd(533.479, 640.349, 27.7957, 0.47529)
	pt3dadd(533.649, 640.401, 27.5954, 0.308892)
	pt3dadd(533.923, 640.503, 27.4556, 0.2)
	pt3dadd(534.065, 640.614, 27.4057, 0.2)
	pt3dadd(534.311, 640.663, 27.3925, 0.2)
	pt3dadd(534.566, 640.808, 27.3754, 0.202236)
	pt3dadd(534.724, 640.828, 27.3625, 0.28216)
	pt3dadd(534.897, 640.87, 27.3296, 0.27207)
	pt3dadd(535.135, 640.893, 27.3508, 0.2)
	pt3dadd(535.362, 640.997, 27.2731, 0.219534)
	pt3dadd(536.564, 641.364, 27.0979, 1.30162)
	pt3dadd(537.501, 641.915, 27.2404, 0.443198)
	pt3dadd(537.732, 641.985, 27.1817, 0.2)
	pt3dadd(538.094, 642.017, 27.2233, 0.263222)
	pt3dadd(538.403, 642.003, 27.2671, 0.2)
	pt3dadd(538.714, 641.992, 27.2459, 0.284104)
	pt3dadd(538.949, 642.118, 27.248, 0.575222)
	pt3dadd(539.253, 642.182, 27.2367, 0.761006)
	pt3dadd(539.773, 642.202, 27.2823, 0.531832)
	pt3dadd(540.057, 642.202, 27.3021, 0.2)
	pt3dadd(540.232, 642.197, 27.3042, 0.2)
	pt3dadd(540.416, 642.197, 27.3045, 0.2)
	pt3dadd(540.689, 642.22, 27.3444, 0.2)
	pt3dadd(540.888, 642.173, 27.3186, 0.201394)
	pt3dadd(541.037, 642.229, 27.2983, 0.26252)
	pt3dadd(541.263, 642.229, 27.2863, 0.398134)
	pt3dadd(541.544, 642.258, 27.2953, 0.660912)
	pt3dadd(541.886, 642.295, 27.3449, 0.875964)
	pt3dadd(545.187, 642.692, 26.7836, 0.586232)
	pt3dadd(545.599, 642.546, 26.6712, 0.82788)
	pt3dadd(546.318, 642.781, 26.6559, 0.825192)
	pt3dadd(546.68, 642.991, 26.5839, 0.65109)
	pt3dadd(546.976, 643.246, 26.2555, 0.526832)
	pt3dadd(547.301, 643.358, 26.2534, 0.3518)
	pt3dadd(547.7, 643.357, 26.3041, 0.610716)
	pt3dadd(548.074, 643.547, 25.9383, 0.303522)
	pt3dadd(548.333, 643.584, 25.8256, 0.368488)
	pt3dadd(548.844, 643.858, 25.7143, 0.526638)
	pt3dadd(549.22, 644.002, 25.6326, 0.25835)
	pt3dadd(549.423, 644.164, 25.5684, 0.2)
	pt3dadd(549.975, 644.35, 25.4579, 0.670436)
	pt3dadd(550.352, 644.661, 25.2651, 0.2)
	pt3dadd(550.633, 644.801, 25.1323, 0.377864)
	pt3dadd(551.14, 645.171, 25.0027, 0.945752)
	pt3dadd(551.79, 645.158, 24.8877, 1.42748)
	pt3dadd(553.519, 646.273, 23.9327, 0.2)
	pt3dadd(553.717, 646.484, 23.7958, 0.247648)
	pt3dadd(554.068, 646.637, 23.6043, 0.772228)
	pt3dadd(554.413, 646.809, 23.4896, 0.450712)
	pt3dadd(554.643, 647.031, 23.4902, 0.41659)
	pt3dadd(555.464, 647.403, 23.2543, 1.09003)
	pt3dadd(556.173, 647.371, 23.206, 0.930926)
	pt3dadd(556.484, 647.683, 23.1903, 0.455052)
	pt3dadd(559.796, 649.161, 22.4354, 0.95315)
	pt3dadd(560.108, 649.325, 22.3773, 0.697556)
	pt3dadd(560.657, 649.601, 22.3968, 0.2)
	pt3dadd(560.851, 649.68, 22.2984, 0.2)
	pt3dadd(561.11, 649.699, 22.1513, 0.31085)
	pt3dadd(561.505, 649.794, 22.0099, 0.481026)
	pt3dadd(561.826, 650.095, 22.0023, 0.228238)
	pt3dadd(562.006, 650.256, 21.9525, 0.2)
	pt3dadd(562.296, 650.385, 21.8619, 0.348106)
	pt3dadd(562.706, 650.767, 21.9107, 0.616602)
	pt3dadd(562.995, 650.97, 21.9106, 0.509534)
	pt3dadd(563.379, 651.021, 21.8426, 0.2)
	pt3dadd(563.798, 651.307, 21.534, 0.568908)
	pt3dadd(564.218, 651.396, 21.7852, 0.2)
	pt3dadd(564.504, 651.479, 21.8886, 0.441726)
	pt3dadd(564.836, 651.641, 21.9013, 0.475486)
	pt3dadd(565.481, 651.833, 21.962, 1.14075)
	pt3dadd(566.365, 651.887, 22.0384, 1.01515)
	pt3dadd(566.801, 652.071, 22.0015, 0.864034)
	pt3dadd(567.187, 652.218, 21.9817, 0.652968)
	pt3dadd(567.505, 652.51, 22.0059, 0.593704)
	pt3dadd(567.802, 652.817, 22.0682, 0.511686)
	pt3dadd(568.071, 652.995, 22.0403, 0.360446)
	pt3dadd(568.33, 653.24, 22.0241, 0.533968)
	pt3dadd(568.505, 653.398, 22.1756, 0.426472)
	pt3dadd(568.831, 653.41, 22.1283, 0.2)
	pt3dadd(569.015, 653.412, 22.1642, 0.2)
	pt3dadd(569.249, 653.536, 22.1743, 0.2)
	pt3dadd(569.656, 653.719, 22.2417, 0.551632)
	pt3dadd(569.947, 653.9, 22.2792, 0.68266)
	pt3dadd(570.188, 654.125, 22.558, 0.660826)
	pt3dadd(571.335, 654.686, 22.6185, 0.2)
	pt3dadd(571.609, 654.898, 22.4497, 0.590026)
	pt3dadd(572.129, 655.072, 22.3775, 0.83377)
	pt3dadd(572.817, 655.318, 22.3997, 0.2)
	pt3dadd(573.047, 655.365, 22.4551, 0.27939)
	pt3dadd(573.306, 655.407, 22.4128, 0.2)
	pt3dadd(573.529, 655.427, 22.446, 0.2)
	pt3dadd(574.016, 655.789, 22.4726, 0.776428)
	pt3dadd(574.66, 655.897, 22.5579, 0.53585)
	pt3dadd(574.947, 655.916, 22.4709, 0.241442)
	pt3dadd(575.29, 655.968, 22.4156, 0.294816)
	pt3dadd(575.52, 656.005, 22.3294, 0.430502)
	pt3dadd(575.924, 656.337, 22.3889, 0.2)
	pt3dadd(576.062, 656.368, 22.3944, 0.2)
	pt3dadd(576.509, 656.514, 22.4061, 0.520694)
	pt3dadd(577.104, 656.627, 22.2354, 1.20936)
	pt3dadd(578.142, 656.817, 22.8396, 0.784722)
	pt3dadd(580.216, 656.993, 22.1167, 0.401372)
	pt3dadd(580.348, 656.883, 22.2634, 0.464914)
	pt3dadd(580.511, 656.968, 22.4049, 0.34838)
	pt3dadd(580.762, 657.002, 22.4703, 0.2)
	pt3dadd(581.114, 657.144, 22.3965, 0.541542)
	pt3dadd(581.517, 657.385, 22.4272, 0.785668)
	pt3dadd(581.818, 657.443, 22.092, 0.645346)
	pt3dadd(582.443, 657.727, 22.1073, 0.2)
	pt3dadd(582.863, 657.691, 22.2521, 0.603784)
	pt3dadd(583.054, 657.703, 22.562, 0.589294)
	pt3dadd(584.523, 658.323, 21.9146, 1.4038)
	pt3dadd(585.168, 658.803, 21.8285, 0.581414)
	pt3dadd(585.467, 658.802, 21.8228, 0.404024)
	pt3dadd(585.874, 658.898, 21.5811, 0.216316)
	pt3dadd(586.055, 658.965, 21.4493, 0.310492)
	pt3dadd(586.241, 658.984, 21.4188, 0.289314)
	pt3dadd(586.45, 658.995, 21.3467, 0.2)
	pt3dadd(586.713, 659.007, 21.303, 0.268158)
	pt3dadd(586.947, 659.041, 21.1959, 0.316942)
	pt3dadd(587.195, 658.999, 21.1024, 0.2)
	pt3dadd(587.493, 658.988, 21.0773, 0.281572)
	pt3dadd(587.868, 658.504, 21.1815, 0.830968)
	pt3dadd(590.043, 658.733, 20.9288, 0.826244)
	pt3dadd(590.677, 658.635, 20.6366, 0.695004)
	pt3dadd(592.93, 658.774, 21.5364, 0.704278)
	pt3dadd(593.041, 658.745, 20.9606, 0.42428)
	pt3dadd(593.177, 658.756, 20.7585, 0.42368)
	pt3dadd(593.327, 658.787, 20.5515, 0.322632)
	pt3dadd(593.481, 658.829, 20.4292, 0.274572)
	pt3dadd(593.732, 658.794, 20.4069, 0.2)
	pt3dadd(594.171, 658.833, 20.4352, 0.49891)
	pt3dadd(594.442, 658.843, 20.4357, 0.31122)
	pt3dadd(595.423, 658.956, 20.2245, 1.32407)
	pt3dadd(596.118, 659.242, 20.0361, 0.786144)
	pt3dadd(596.636, 659.268, 20.1292, 0.78362)
	pt3dadd(597.131, 659.257, 19.9271, 0.307968)
	pt3dadd(597.444, 659.202, 19.8974, 0.297292)
	pt3dadd(597.694, 659.004, 19.8204, 0.279752)
	pt3dadd(597.855, 659.009, 19.8102, 0.218638)
	pt3dadd(598.094, 658.993, 19.7368, 0.224078)
	pt3dadd(598.3, 659.032, 19.6211, 0.292106)
	pt3dadd(598.456, 659.116, 19.5525, 0.44688)
	pt3dadd(601.184, 660.14, 19.8812, 0.591366)
	pt3dadd(601.324, 660.108, 19.5556, 0.518738)
	pt3dadd(601.563, 660.138, 19.2992, 0.543544)
	pt3dadd(601.913, 660.146, 19.5099, 0.494934)
	pt3dadd(602.122, 660.136, 19.6677, 0.559668)
	pt3dadd(606.003, 661.49, 18.475, 0.95602)
	pt3dadd(606.88, 661.94, 18.3148, 0.2)
	pt3dadd(607.07, 662.097, 18.2423, 0.2)
	pt3dadd(607.507, 662.311, 18.2191, 0.543164)
	pt3dadd(609.991, 663.417, 17.2, 0.77786)
	pt3dadd(610.6, 663.601, 17, 0.774964)
	pt3dadd(611.013, 663.773, 16.8, 0.373768)
	pt3dadd(614.582, 664.707, 16.3379, 0.935364)
	pt3dadd(615.091, 664.913, 16.34, 0.993516)
  }
  dend[131] {pt3dclear()
	pt3dadd(491.133, 621.052, 27.7452, 1.49029)
	pt3dadd(490.717, 622.022, 28.3408, 0.679646)
	pt3dadd(490.759, 622.636, 28.6268, 0.2)
	pt3dadd(490.797, 622.902, 28.6396, 0.250664)
	pt3dadd(490.837, 623.067, 28.6778, 0.362448)
	pt3dadd(490.872, 623.25, 28.7393, 0.356328)
	pt3dadd(490.902, 623.574, 28.8077, 0.614184)
	pt3dadd(490.877, 623.94, 28.8142, 0.799684)
	pt3dadd(490.904, 624.352, 28.8815, 0.918606)
	pt3dadd(490.848, 625.111, 29.1868, 0.921602)
	pt3dadd(491.177, 625.897, 29.3202, 0.430228)
	pt3dadd(491.327, 626.246, 29.3139, 0.2)
	pt3dadd(491.364, 626.501, 29.3066, 0.2)
	pt3dadd(491.434, 626.695, 29.3022, 0.254914)
	pt3dadd(491.104, 629.688, 30.2701, 0.747198)
	pt3dadd(491.233, 630.241, 30.4093, 0.660584)
	pt3dadd(491.105, 630.659, 30.5641, 0.535492)
	pt3dadd(490.979, 631.066, 30.7166, 0.64792)
	pt3dadd(490.849, 632.505, 31.5376, 0.83789)
	pt3dadd(491.14, 633.151, 31.3868, 0.957512)
	pt3dadd(491.182, 633.835, 31.3726, 1.08059)
	pt3dadd(491.259, 634.549, 31.7305, 1.12423)
	pt3dadd(490.945, 635.291, 32.1156, 0.428316)
	pt3dadd(490.891, 635.535, 32.1782, 0.339102)
	pt3dadd(490.813, 635.902, 32.2975, 0.349426)
	pt3dadd(490.771, 636.139, 32.3918, 0.368416)
	pt3dadd(490.777, 636.471, 32.5212, 0.398642)
	pt3dadd(490.81, 636.721, 32.6439, 0.27592)
	pt3dadd(490.827, 636.967, 32.7939, 0.23472)
	pt3dadd(490.993, 637.229, 32.798, 0.2)
	pt3dadd(491.183, 638.965, 33.585, 0.344)
	pt3dadd(491.197, 639.231, 33.6534, 0.23694)
	pt3dadd(491.209, 639.422, 33.6799, 0.2)
	pt3dadd(491.23, 639.67, 33.7535, 0.247664)
  }
}
proc shape3d_67() {
  dend[131] {	pt3dadd(491.243, 639.889, 33.8407, 0.351098)
	pt3dadd(491.222, 640.038, 33.9561, 0.2)
	pt3dadd(491.297, 640.299, 34.1558, 0.378052)
	pt3dadd(491.383, 640.568, 34.1812, 0.2)
	pt3dadd(491.392, 640.802, 34.1987, 0.2)
	pt3dadd(491.407, 641.057, 34.3226, 0.379942)
	pt3dadd(491.487, 641.32, 34.4579, 0.611204)
	pt3dadd(491.698, 641.513, 34.5965, 0.759706)
	pt3dadd(491.874, 642.363, 35.0289, 0.929322)
	pt3dadd(491.996, 642.879, 35.5156, 0.257072)
	pt3dadd(491.999, 643.08, 35.4578, 0.2)
	pt3dadd(492.052, 643.329, 35.4449, 0.38048)
	pt3dadd(491.957, 643.701, 35.6183, 0.264776)
	pt3dadd(491.867, 643.983, 35.7375, 0.288572)
	pt3dadd(491.806, 644.194, 35.8866, 0.31012)
	pt3dadd(491.751, 644.427, 35.9868, 0.29223)
	pt3dadd(491.666, 644.664, 36.1339, 0.264184)
	pt3dadd(491.783, 645.004, 36.1862, 0.2)
	pt3dadd(491.818, 645.396, 36.1646, 0.781018)
	pt3dadd(491.88, 646.001, 36.3018, 1.1348)
	pt3dadd(492.186, 646.544, 36.4279, 1.19914)
	pt3dadd(492.844, 647.5, 36.5525, 0.417014)
	pt3dadd(492.957, 647.824, 36.5505, 0.31769)
	pt3dadd(493.246, 648.172, 36.6272, 0.37822)
	pt3dadd(493.569, 651.451, 37.3423, 0.317414)
	pt3dadd(493.501, 651.669, 37.4045, 0.464032)
	pt3dadd(493.436, 652.367, 37.6659, 0.852076)
  }
  dend_5[55] {pt3dclear()
	pt3dadd(493.436, 652.367, 37.6659, 0.852076)
	pt3dadd(493.833, 652.815, 37.9151, 0.887848)
  }
  dend[132] {pt3dclear()
	pt3dadd(493.833, 652.815, 37.9151, 0.887848)
	pt3dadd(494.169, 653.953, 39.3439, 0.2)
	pt3dadd(493.89, 654.554, 40.1852, 0.929058)
	pt3dadd(493.019, 658, 42.1767, 0.944436)
	pt3dadd(492.92, 658.367, 42.0302, 0.584304)
	pt3dadd(492.558, 662.344, 43.8586, 0.446508)
	pt3dadd(492.364, 662.47, 44.0086, 0.2)
	pt3dadd(492.071, 663.002, 44.3043, 0.590154)
	pt3dadd(491.938, 663.417, 44.2994, 0.988192)
	pt3dadd(491.755, 664.039, 44.5036, 1.27407)
	pt3dadd(491.717, 664.679, 44.5243, 1.24673)
	pt3dadd(491.463, 665.341, 44.5679, 0.52723)
	pt3dadd(491.284, 665.581, 44.6409, 0.420216)
	pt3dadd(489.987, 667.989, 45.6, 0.2)
	pt3dadd(489.857, 668.062, 45.6332, 0.510248)
	pt3dadd(489.526, 668.384, 45.9057, 0.262352)
	pt3dadd(489.361, 668.495, 46.1569, 0.2)
	pt3dadd(488.2, 670.089, 47, 0.2)
	pt3dadd(488.094, 670.53, 47.0512, 0.2)
	pt3dadd(487.816, 671.273, 47.2701, 0.693458)
	pt3dadd(487.607, 671.709, 47.3149, 0.283536)
	pt3dadd(487.568, 672.028, 47.3212, 0.257882)
	pt3dadd(487.213, 673.146, 47.4412, 0.214214)
	pt3dadd(487.226, 673.541, 47.5503, 0.272532)
	pt3dadd(487.37, 673.791, 47.7497, 0.39844)
	pt3dadd(487.13, 675.881, 47.9636, 0.875446)
	pt3dadd(486.858, 676.493, 48.0089, 0.71984)
	pt3dadd(486.531, 676.831, 47.8977, 0.619588)
	pt3dadd(484.485, 679.471, 49.0607, 0.471472)
	pt3dadd(484.413, 679.614, 48.685, 0.78799)
	pt3dadd(484.404, 680.003, 48.2906, 0.636108)
	pt3dadd(484.333, 680.808, 48.2382, 1.07935)
	pt3dadd(483.584, 683.344, 48.5325, 0.263138)
	pt3dadd(483.479, 683.74, 48.6013, 0.587422)
	pt3dadd(483.304, 684.482, 48.4869, 1.0905)
	pt3dadd(483.615, 686.308, 49.0227, 0.257934)
	pt3dadd(483.605, 687.1, 49.3839, 0.802528)
	pt3dadd(483.409, 687.559, 49.6321, 0.904676)
	pt3dadd(482.876, 689.679, 50.6877, 0.545472)
	pt3dadd(482.987, 690.325, 50.2376, 0.646348)
	pt3dadd(483.211, 690.935, 50.774, 0.380714)
	pt3dadd(483.138, 691.149, 50.9968, 0.2)
	pt3dadd(483.035, 691.32, 51.1447, 0.2)
	pt3dadd(482.883, 691.915, 51.4033, 0.673764)
	pt3dadd(482.981, 692.124, 51.5035, 0.428278)
	pt3dadd(483.089, 692.354, 51.5944, 0.2)
	pt3dadd(483.203, 692.591, 51.619, 0.2)
	pt3dadd(483.245, 692.77, 51.5457, 0.2)
	pt3dadd(483.326, 693.026, 51.6143, 0.229496)
	pt3dadd(483.383, 693.243, 51.8074, 0.2)
	pt3dadd(483.421, 693.578, 51.9558, 0.427756)
	pt3dadd(483.541, 693.761, 52.1282, 0.455712)
	pt3dadd(483.519, 694.111, 52.4815, 0.451328)
	pt3dadd(483.721, 697.77, 52.929, 0.645816)
	pt3dadd(484.909, 701.1, 53.8163, 0.689118)
	pt3dadd(484.833, 701.8, 54.3253, 1.27639)
	pt3dadd(487.184, 707.504, 55.2422, 0.2)
	pt3dadd(487.098, 707.724, 55.5077, 0.433882)
	pt3dadd(487.388, 708.545, 55.8924, 1.13452)
	pt3dadd(489.748, 713.765, 57.6536, 0.996472)
	pt3dadd(490.206, 714.468, 58.0074, 1.17051)
	pt3dadd(490.271, 714.824, 58.3257, 0.940094)
	pt3dadd(490.489, 716.456, 61.8193, 1.22747)
	pt3dadd(490.676, 716.868, 62.3121, 1.29244)
	pt3dadd(490.793, 717.618, 62.5363, 0.254396)
	pt3dadd(490.814, 717.831, 62.5262, 0.2)
	pt3dadd(490.835, 718.09, 62.5743, 0.21138)
	pt3dadd(490.77, 718.317, 62.5331, 0.2)
	pt3dadd(490.849, 718.665, 62.5886, 0.305474)
	pt3dadd(490.821, 719.181, 62.6144, 1.14281)
	pt3dadd(490.472, 719.294, 63.3711, 0.941746)
	pt3dadd(490.752, 719.909, 63.6121, 0.2)
	pt3dadd(490.828, 720.178, 63.8104, 0.557222)
	pt3dadd(490.971, 720.391, 64.0628, 0.908184)
	pt3dadd(490.975, 720.712, 64.3958, 0.948918)
	pt3dadd(491.486, 721.479, 64.8606, 0.27729)
	pt3dadd(491.689, 721.767, 65.1149, 0.653922)
	pt3dadd(492.026, 722.192, 65.2084, 0.334806)
	pt3dadd(492.116, 722.377, 65.4925, 0.252924)
	pt3dadd(492.444, 723.097, 65.4773, 0.360958)
	pt3dadd(492.637, 723.487, 65.6532, 0.498588)
	pt3dadd(492.882, 723.942, 65.7351, 0.267174)
	pt3dadd(493.184, 724.196, 65.8827, 0.520124)
	pt3dadd(493.374, 724.474, 66.2701, 0.74746)
	pt3dadd(493.494, 724.768, 66.362, 0.592262)
	pt3dadd(493.614, 725.074, 66.4542, 0.366334)
	pt3dadd(493.538, 725.45, 66.57, 0.426354)
	pt3dadd(493.403, 725.801, 66.7538, 0.740448)
	pt3dadd(493.466, 726.254, 67.0527, 1.03628)
	pt3dadd(493.704, 726.816, 68.0464, 1.00545)
	pt3dadd(493.859, 727.558, 68.0443, 0.2)
	pt3dadd(493.897, 727.888, 68.2559, 0.57631)
	pt3dadd(493.803, 728.132, 68.5148, 0.727386)
	pt3dadd(494.408, 729.978, 68.9375, 0.810278)
	pt3dadd(494.573, 730.106, 69.5275, 1.00133)
	pt3dadd(494.678, 730.688, 69.6554, 0.317208)
	pt3dadd(495.029, 731.275, 69.9305, 0.84744)
	pt3dadd(495.247, 731.87, 70.4676, 1.49667)
	pt3dadd(496.894, 734.732, 71.0196, 0.548962)
	pt3dadd(497.303, 735.413, 71.2946, 0.2)
	pt3dadd(497.891, 736.026, 71.2495, 1.09946)
  }
  dend_6[68] {pt3dclear()
	pt3dadd(497.891, 736.026, 71.2495, 1.09946)
	pt3dadd(495.154, 742.4, 72.1797, 0.798144)
  }
  dend[133] {pt3dclear()
	pt3dadd(493.833, 652.815, 37.9151, 0.887848)
	pt3dadd(494.302, 655.364, 37.1896, 0.548096)
	pt3dadd(494.292, 655.797, 36.912, 0.615706)
	pt3dadd(495.012, 658.595, 35.8116, 0.963424)
	pt3dadd(495.279, 659.453, 36.101, 0.51198)
	pt3dadd(495.422, 659.815, 36.0526, 0.598154)
	pt3dadd(495.381, 660.214, 36.1134, 0.505978)
	pt3dadd(495.28, 660.441, 36.2816, 0.570974)
	pt3dadd(495.208, 660.859, 36.1419, 0.253338)
	pt3dadd(495.209, 661.071, 36.055, 0.2)
	pt3dadd(495.326, 661.272, 35.9614, 0.2)
	pt3dadd(495.897, 664.2, 35.2, 0.2)
	pt3dadd(495.912, 664.376, 35.1748, 0.600732)
	pt3dadd(496.22, 664.714, 35.1519, 0.667408)
	pt3dadd(496.224, 668.013, 34.8366, 0.437016)
	pt3dadd(496.196, 668.201, 34.6, 0.398574)
	pt3dadd(496.384, 669.283, 34.2607, 0.361346)
	pt3dadd(496.475, 669.495, 34.1128, 0.2)
	pt3dadd(496.775, 669.973, 33.7071, 0.575216)
	pt3dadd(496.977, 670.949, 33.217, 1.52734)
  }
  dend[134] {pt3dclear()
	pt3dadd(496.977, 670.949, 33.217, 1.52734)
	pt3dadd(497.197, 671.592, 32.7359, 0.2)
  }
  dend[135] {pt3dclear()
	pt3dadd(496.977, 670.949, 33.217, 1.52734)
	pt3dadd(498.732, 674.962, 31.2724, 1.10655)
	pt3dadd(498.612, 679.267, 30.505, 1.24242)
	pt3dadd(498.465, 679.94, 30.309, 0.905736)
	pt3dadd(496.805, 684.328, 30.2782, 0.822632)
	pt3dadd(496.614, 687.146, 29.7902, 0.40806)
	pt3dadd(496.475, 687.371, 29.8982, 0.2)
	pt3dadd(496.399, 687.57, 30.0706, 0.281282)
	pt3dadd(496.417, 687.817, 30.1537, 0.338048)
	pt3dadd(496.234, 688.767, 30.3302, 1.08527)
	pt3dadd(497.354, 692.496, 28.4635, 1.23244)
	pt3dadd(497.395, 693.521, 28.047, 1.5928)
	pt3dadd(497.501, 694.482, 27.6515, 0.298856)
	pt3dadd(497.558, 694.675, 27.62, 0.2)
	pt3dadd(497.542, 697.607, 27.0231, 1.18624)
	pt3dadd(497.75, 697.996, 26.8452, 0.695306)
	pt3dadd(498.603, 703.479, 25.6474, 1.34817)
	pt3dadd(498.447, 711.769, 24.2889, 0.90095)
	pt3dadd(498.392, 712.163, 24.2644, 1.0999)
	pt3dadd(497.97, 715.252, 24.1605, 0.628606)
	pt3dadd(499.088, 719.181, 24.1277, 0.86282)
	pt3dadd(499.864, 722.699, 24.4077, 1.16007)
	pt3dadd(501.061, 729.293, 26.3599, 0.743044)
	pt3dadd(501.027, 729.951, 26.7207, 0.34222)
	pt3dadd(501.228, 731.126, 27.5232, 0.408688)
	pt3dadd(501.296, 731.5, 27.8525, 0.709644)
	pt3dadd(501.16, 731.802, 28.1493, 0.696652)
	pt3dadd(500.685, 731.944, 28.721, 0.21854)
	pt3dadd(500.561, 731.99, 28.8919, 0.2)
	pt3dadd(500.446, 731.984, 29.1006, 0.20305)
	pt3dadd(500.434, 732.088, 29.5219, 0.689838)
	pt3dadd(499.947, 734.766, 31.2833, 0.661484)
	pt3dadd(499.882, 734.983, 31.7069, 1.0995)
	pt3dadd(499.853, 735.521, 32.2214, 1.05143)
	pt3dadd(499.876, 735.842, 32.7299, 0.980736)
	pt3dadd(500.204, 737.03, 33.2444, 0.389446)
	pt3dadd(500.13, 737.481, 33.8769, 0.705482)
	pt3dadd(500.126, 737.813, 34.4093, 0.751098)
	pt3dadd(500.219, 737.996, 34.727, 0.57347)
	pt3dadd(500.823, 741.037, 36.1132, 0.902152)
	pt3dadd(501.134, 741.102, 36.5199, 0.390024)
	pt3dadd(501.313, 741.256, 36.7161, 0.2)
	pt3dadd(501.528, 741.34, 36.952, 0.298386)
	pt3dadd(501.649, 741.382, 37.1565, 0.495452)
	pt3dadd(501.72, 741.459, 37.436, 0.694748)
	pt3dadd(501.892, 741.572, 37.7834, 0.65039)
  }
}
proc shape3d_68() {
  dend[135] {	pt3dadd(505.279, 743.14, 41.2425, 0.5193)
	pt3dadd(505.413, 743.162, 41.5605, 0.719276)
	pt3dadd(505.803, 743.114, 42.0434, 0.628512)
	pt3dadd(506.118, 743.104, 42.2279, 0.5459)
	pt3dadd(506.685, 743.007, 42.649, 0.7594)
	pt3dadd(506.934, 743.084, 42.8772, 0.673908)
	pt3dadd(509.343, 744.95, 49.6544, 0.2)
	pt3dadd(510.114, 745.291, 49.9863, 0.908934)
	pt3dadd(510.458, 745.679, 49.9711, 0.674296)
	pt3dadd(510.756, 745.771, 50.0886, 0.334934)
	pt3dadd(511.026, 745.796, 50.2103, 0.275014)
	pt3dadd(511.285, 745.8, 50.2982, 0.27299)
	pt3dadd(511.567, 745.789, 50.3695, 0.31675)
	pt3dadd(512.31, 745.844, 50.7659, 0.599364)
	pt3dadd(512.837, 745.765, 51.1133, 0.725966)
	pt3dadd(513.104, 745.598, 51.3855, 0.79619)
	pt3dadd(513.572, 745.649, 52.0502, 1.06623)
	pt3dadd(513.899, 745.998, 52.1552, 0.621274)
	pt3dadd(514.285, 746.322, 52.6511, 0.554376)
	pt3dadd(514.444, 746.54, 53.029, 0.884998)
	pt3dadd(514.682, 746.607, 53.4908, 1.04216)
	pt3dadd(515.279, 746.607, 54.1451, 0.78498)
	pt3dadd(515.746, 746.655, 54.4586, 0.513214)
	pt3dadd(515.968, 746.678, 54.6432, 0.426678)
	pt3dadd(516.139, 746.677, 54.8621, 0.500852)
	pt3dadd(516.317, 746.679, 55.0732, 0.486966)
	pt3dadd(516.504, 746.675, 55.2912, 0.478498)
	pt3dadd(516.707, 746.746, 55.4584, 0.333706)
	pt3dadd(516.991, 746.755, 55.5876, 0.307194)
	pt3dadd(517.239, 746.715, 55.7897, 0.504114)
	pt3dadd(517.548, 746.746, 55.9472, 0.43481)
	pt3dadd(517.863, 746.875, 56.0945, 0.645146)
	pt3dadd(518.172, 746.889, 56.4657, 0.950856)
	pt3dadd(518.58, 746.738, 57.2831, 1.10611)
	pt3dadd(518.887, 746.989, 58.3901, 0.719066)
	pt3dadd(523.267, 746.604, 58.8325, 1.04729)
	pt3dadd(523.418, 746.666, 59.4618, 1.01103)
	pt3dadd(524.189, 746.906, 59.5784, 0.2)
	pt3dadd(524.698, 746.979, 59.5795, 0.50501)
	pt3dadd(525.077, 746.962, 59.687, 0.36132)
	pt3dadd(525.732, 746.787, 60, 1.01189)
	pt3dadd(526.124, 746.663, 60.7346, 0.905506)
	pt3dadd(526.796, 746.817, 60.6336, 0.2)
	pt3dadd(527.015, 746.928, 60.6062, 0.2)
	pt3dadd(527.25, 746.988, 60.6366, 0.2)
	pt3dadd(527.51, 747.105, 60.6684, 0.466132)
	pt3dadd(527.795, 747.188, 60.6436, 0.332702)
	pt3dadd(528.142, 747.215, 60.5141, 0.275344)
	pt3dadd(528.739, 747.203, 60.4031, 0.807204)
	pt3dadd(529.056, 747.172, 60.784, 0.756922)
	pt3dadd(529.502, 747.775, 61.481, 0.995474)
	pt3dadd(529.792, 747.793, 62.4833, 1.14896)
	pt3dadd(530.105, 747.787, 62.8327, 0.774756)
	pt3dadd(530.496, 747.901, 63.1099, 0.538074)
	pt3dadd(530.819, 748.011, 63.3738, 0.7425)
	pt3dadd(532.579, 748.503, 63.3574, 0.334788)
	pt3dadd(532.871, 748.303, 64.7512, 0.746134)
	pt3dadd(533.116, 748.388, 65.1232, 0.762944)
	pt3dadd(533.506, 748.623, 65.7379, 0.869152)
	pt3dadd(534.8, 750.892, 67.6, 0.2)
	pt3dadd(535.059, 750.973, 67.5831, 0.798084)
	pt3dadd(535.534, 751.269, 67.205, 0.621614)
	pt3dadd(535.695, 751.281, 66.6753, 0.534998)
	pt3dadd(535.755, 751.195, 66.378, 0.261528)
  }
  dend_6[69] {pt3dclear()
	pt3dadd(535.755, 751.195, 66.378, 0.261528)
	pt3dadd(535.777, 751.144, 66.1515, 0.258168)
  }
  dend[136] {pt3dclear()
	pt3dadd(413.522, 498.297, 33.5498, 2.58067)
	pt3dadd(413.277, 499.898, 32.6446, 1.02061)
	pt3dadd(413.634, 500.435, 32.7582, 0.951308)
	pt3dadd(413.775, 500.942, 32.6106, 0.774958)
	pt3dadd(413.677, 501.711, 32.6521, 0.863858)
	pt3dadd(413.695, 502.256, 32.6046, 0.608516)
	pt3dadd(413.871, 502.793, 32.772, 0.543318)
	pt3dadd(414.022, 503.199, 33.0937, 0.857274)
	pt3dadd(414.238, 503.595, 33.2494, 0.674474)
	pt3dadd(414.313, 503.921, 33.3814, 0.578202)
	pt3dadd(414.34, 504.345, 33.3663, 0.424882)
	pt3dadd(414.304, 504.668, 33.3545, 0.444446)
	pt3dadd(414.259, 505.093, 33.32, 0.443552)
	pt3dadd(414.299, 505.375, 33.2205, 0.456136)
	pt3dadd(414.318, 505.728, 33.1522, 0.585142)
	pt3dadd(414.168, 506.034, 33.0983, 0.719674)
	pt3dadd(414.066, 506.419, 32.966, 0.868846)
	pt3dadd(413.968, 506.836, 32.8927, 1.0448)
	pt3dadd(414.241, 507.812, 32.7788, 1.63225)
	pt3dadd(414.143, 508.953, 32.7713, 1.24082)
	pt3dadd(414.389, 510.083, 33.0148, 0.997398)
	pt3dadd(414.494, 510.834, 33.1252, 0.62536)
	pt3dadd(414.588, 511.2, 33.1679, 0.666842)
	pt3dadd(414.747, 511.492, 33.224, 0.786136)
	pt3dadd(414.918, 512.066, 33.3961, 1.02602)
	pt3dadd(414.707, 512.635, 33.2925, 0.585672)
	pt3dadd(414.482, 513.249, 33.2137, 0.566806)
	pt3dadd(414.351, 513.579, 33.1304, 0.818826)
	pt3dadd(414.588, 514.033, 33.1381, 0.480184)
	pt3dadd(414.733, 514.302, 33.1998, 0.428482)
	pt3dadd(414.86, 514.623, 33.2318, 0.522042)
	pt3dadd(414.919, 514.976, 33.2571, 0.69741)
	pt3dadd(415.064, 515.614, 33.2988, 0.767396)
	pt3dadd(415.09, 515.991, 33.3668, 0.885986)
	pt3dadd(415.117, 516.888, 33.2774, 0.888042)
	pt3dadd(415.139, 517.79, 33.3147, 0.83141)
	pt3dadd(415.006, 518.368, 33.177, 0.75653)
	pt3dadd(414.917, 518.788, 33.0471, 0.950752)
	pt3dadd(414.961, 519.693, 33.1134, 0.967776)
	pt3dadd(414.922, 520.506, 33.2668, 0.531256)
	pt3dadd(414.848, 520.844, 33.147, 0.501664)
	pt3dadd(414.884, 521.177, 33.1357, 0.513428)
	pt3dadd(414.891, 521.51, 33.1815, 0.556406)
	pt3dadd(414.836, 521.831, 33.1505, 0.877394)
	pt3dadd(414.966, 522.534, 32.9601, 1.26864)
	pt3dadd(415.308, 523.664, 32.7983, 1.28188)
	pt3dadd(415.538, 524.679, 32.7569, 1.34644)
	pt3dadd(415.552, 525.624, 32.9145, 1.50296)
	pt3dadd(415.183, 526.567, 33.0432, 1.74588)
	pt3dadd(415.672, 527.687, 32.9786, 1.06403)
	pt3dadd(415.92, 528.185, 32.6703, 0.901884)
	pt3dadd(416.199, 528.555, 32.268, 0.61464)
	pt3dadd(416.501, 528.789, 31.9388, 0.64482)
	pt3dadd(416.807, 529.44, 31.8853, 0.375958)
	pt3dadd(416.94, 529.824, 31.8393, 0.494056)
	pt3dadd(417.107, 530.151, 31.8655, 0.570984)
	pt3dadd(417.18, 530.518, 31.8849, 0.698478)
	pt3dadd(417.246, 530.997, 31.6519, 0.75386)
	pt3dadd(417.446, 531.561, 31.3466, 0.565204)
	pt3dadd(417.695, 531.808, 31.1526, 0.8023)
	pt3dadd(418.087, 532.272, 30.7677, 1.2593)
	pt3dadd(418.167, 533.151, 30.6209, 1.48902)
	pt3dadd(418.667, 534.401, 30.413, 1.29708)
	pt3dadd(418.924, 535.303, 29.9965, 0.986086)
	pt3dadd(418.948, 535.933, 29.5808, 0.830376)
	pt3dadd(419.105, 536.373, 29.448, 0.707392)
	pt3dadd(419.355, 536.702, 29.4447, 1.36655)
	pt3dadd(419.217, 537.555, 29.0386, 0.814394)
	pt3dadd(419.131, 538.186, 28.829, 0.53247)
	pt3dadd(419.261, 538.543, 28.6922, 0.45906)
	pt3dadd(419.435, 538.749, 28.5237, 0.357168)
	pt3dadd(419.604, 539.011, 28.3803, 0.543882)
	pt3dadd(419.657, 539.237, 28.1885, 0.509836)
	pt3dadd(419.842, 539.832, 28.4084, 0.485434)
	pt3dadd(419.91, 540.241, 28.438, 0.535336)
	pt3dadd(419.908, 540.663, 28.2393, 0.697946)
	pt3dadd(419.988, 541.144, 28.0849, 0.40059)
	pt3dadd(419.961, 541.496, 28.0676, 0.52408)
	pt3dadd(420.133, 541.891, 27.793, 0.562124)
	pt3dadd(420.369, 542.185, 27.6175, 0.612982)
	pt3dadd(420.546, 542.437, 27.4428, 0.7833)
	pt3dadd(420.708, 543.123, 27.2066, 1.10288)
	pt3dadd(420.795, 543.721, 26.6722, 1.19132)
	pt3dadd(421.322, 544.453, 26.0389, 1.9426)
	pt3dadd(421.474, 545.703, 25.8211, 1.28964)
	pt3dadd(421.663, 546.528, 25.6057, 0.924102)
	pt3dadd(421.683, 546.989, 25.7008, 0.824432)
	pt3dadd(421.876, 547.529, 25.414, 0.54126)
	pt3dadd(421.968, 547.847, 25.3406, 0.468366)
	pt3dadd(422.082, 548.196, 25.3632, 0.542968)
	pt3dadd(422.096, 548.545, 25.0498, 0.5413)
	pt3dadd(422.167, 548.834, 24.8069, 0.76168)
	pt3dadd(422.234, 549.212, 24.7344, 0.570336)
	pt3dadd(422.31, 549.524, 24.6478, 0.517458)
	pt3dadd(422.454, 549.864, 24.522, 0.428662)
	pt3dadd(422.613, 550.124, 24.3868, 0.402354)
	pt3dadd(422.726, 550.438, 24.3117, 0.544368)
	pt3dadd(422.807, 550.855, 24.2735, 0.720234)
	pt3dadd(422.816, 551.238, 24.3262, 0.916116)
	pt3dadd(422.662, 552.093, 24.2037, 1.16222)
	pt3dadd(423.305, 552.772, 23.9121, 1.17222)
	pt3dadd(423.557, 553.57, 23.8789, 0.838868)
	pt3dadd(423.508, 553.996, 23.8027, 0.9216)
	pt3dadd(423.62, 554.786, 23.5452, 1.22258)
	pt3dadd(423.848, 555.649, 23.3358, 0.995408)
	pt3dadd(423.968, 556.346, 23.302, 0.810086)
	pt3dadd(424.278, 556.993, 23.2743, 0.568784)
	pt3dadd(424.399, 557.335, 23.2413, 0.654214)
	pt3dadd(424.391, 557.719, 23.1619, 0.4068)
	pt3dadd(424.342, 558.059, 23.144, 0.51414)
	pt3dadd(424.353, 558.436, 23.2023, 0.531222)
	pt3dadd(424.321, 558.73, 23.2705, 0.528904)
	pt3dadd(424.314, 559.276, 23.3289, 0.53476)
	pt3dadd(424.331, 559.849, 23.4048, 0.618672)
	pt3dadd(424.442, 560.203, 23.4205, 0.689974)
	pt3dadd(424.623, 560.526, 23.3472, 0.63855)
	pt3dadd(424.729, 560.839, 23.2784, 0.694414)
	pt3dadd(424.956, 561.486, 23.2872, 0.703922)
	pt3dadd(425.02, 561.837, 23.2905, 0.868458)
	pt3dadd(425.211, 562.297, 23.0937, 0.897144)
	pt3dadd(425.442, 563.006, 22.7592, 0.75351)
	pt3dadd(425.612, 563.343, 22.5824, 0.629636)
	pt3dadd(425.826, 563.585, 22.4324, 0.607088)
	pt3dadd(426.115, 563.839, 22.3165, 0.869138)
	pt3dadd(426.715, 564.212, 22.2009, 1.18769)
	pt3dadd(427.468, 564.8, 21.8519, 1.33782)
	pt3dadd(428.217, 565.34, 21.2389, 1.34017)
	pt3dadd(429.041, 566.064, 20.4127, 0.564994)
	pt3dadd(429.263, 566.285, 20.197, 0.459388)
	pt3dadd(429.49, 566.459, 20.0106, 0.531984)
	pt3dadd(429.701, 566.71, 19.8264, 0.665326)
	pt3dadd(429.861, 567.01, 19.6449, 0.933216)
	pt3dadd(430.383, 567.408, 19.2876, 0.932976)
	pt3dadd(430.899, 567.924, 18.7443, 1.03936)
  }
}
proc shape3d_69() {
  dend[136] {	pt3dadd(431.452, 568.382, 18.2929, 0.912086)
	pt3dadd(431.852, 568.656, 18.1821, 0.752206)
	pt3dadd(432.155, 569.18, 17.7105, 0.333266)
	pt3dadd(432.309, 569.396, 17.5251, 0.345594)
	pt3dadd(432.597, 569.52, 17.3262, 0.563722)
	pt3dadd(432.79, 569.757, 17.1888, 0.509018)
	pt3dadd(432.975, 570.074, 17.0885, 0.449492)
	pt3dadd(433.145, 570.31, 17.0026, 0.519264)
	pt3dadd(433.352, 570.621, 16.9773, 0.583652)
	pt3dadd(433.489, 570.933, 16.9902, 0.456086)
	pt3dadd(433.619, 571.313, 16.987, 0.635824)
	pt3dadd(433.833, 571.567, 17.0023, 0.80494)
	pt3dadd(434.316, 572.213, 16.8572, 1.03227)
	pt3dadd(435.075, 573.039, 16.3621, 0.997676)
	pt3dadd(435.434, 573.666, 16.2502, 0.953568)
	pt3dadd(435.606, 574.435, 16.0206, 1.16845)
	pt3dadd(436.161, 575.176, 15.4984, 0.322428)
	pt3dadd(436.282, 575.397, 15.3524, 0.242182)
	pt3dadd(436.522, 575.542, 15.1777, 0.340256)
	pt3dadd(436.751, 575.6, 14.9792, 0.54086)
	pt3dadd(436.821, 575.972, 14.9736, 0.44284)
	pt3dadd(437.103, 576.228, 15.009, 0.737132)
	pt3dadd(437.474, 576.839, 15.072, 0.530748)
	pt3dadd(437.653, 577.123, 15.0094, 0.4621)
	pt3dadd(437.782, 577.428, 15.0208, 0.321926)
	pt3dadd(437.972, 577.727, 14.9438, 0.260016)
	pt3dadd(438.139, 577.998, 14.8301, 0.543002)
	pt3dadd(438.282, 578.352, 14.6464, 0.673908)
	pt3dadd(438.338, 578.803, 14.5427, 0.958436)
	pt3dadd(438.63, 579.228, 14.2289, 1.12879)
	pt3dadd(439, 579.741, 13.9905, 1.19186)
	pt3dadd(439.349, 580.847, 13.4253, 1.14075)
	pt3dadd(439.873, 581.87, 13.114, 0.52946)
	pt3dadd(440.07, 582.205, 12.9275, 0.477756)
	pt3dadd(440.2, 582.478, 12.7883, 0.2)
	pt3dadd(440.232, 582.81, 12.6914, 0.2)
	pt3dadd(440.323, 583.042, 12.6118, 0.513276)
	pt3dadd(440.272, 583.35, 12.5701, 0.743422)
	pt3dadd(440.452, 583.689, 12.3439, 0.73384)
	pt3dadd(440.633, 583.899, 12.0775, 0.627588)
	pt3dadd(440.769, 584.193, 11.83, 0.337732)
	pt3dadd(440.957, 584.414, 11.6588, 0.343954)
	pt3dadd(441.145, 584.621, 11.5377, 0.48728)
	pt3dadd(441.283, 584.886, 11.474, 0.68296)
	pt3dadd(441.385, 585.219, 11.3954, 0.871958)
	pt3dadd(441.451, 585.909, 11.0893, 1.03475)
	pt3dadd(441.78, 586.505, 10.6844, 0.767766)
	pt3dadd(441.9, 586.896, 10.848, 0.480006)
	pt3dadd(441.965, 587.308, 10.7055, 0.300812)
	pt3dadd(442.079, 587.679, 10.5918, 0.457602)
	pt3dadd(442.156, 587.971, 10.4618, 0.929972)
	pt3dadd(442.555, 588.526, 10.1311, 1.26362)
	pt3dadd(442.928, 589.414, 10.0038, 1.34804)
	pt3dadd(443.494, 590.016, 9.57379, 1.45952)
	pt3dadd(444.792, 594.448, 9.8721, 1.28098)
	pt3dadd(446.585, 597.007, 9.27821, 0.731722)
	pt3dadd(446.797, 597.392, 9.05632, 1.20449)
	pt3dadd(447.013, 598.093, 8.72147, 1.5504)
	pt3dadd(452.339, 601.517, 6.56879, 0.2)
	pt3dadd(452.603, 601.646, 6.36602, 0.46249)
	pt3dadd(453.006, 602.058, 6.23738, 0.990682)
	pt3dadd(453.395, 602.009, 6.02726, 0.8565)
  }
  dend_6[70] {pt3dclear()
	pt3dadd(453.395, 602.009, 6.02726, 0.8565)
	pt3dadd(453.724, 602.156, 5.8997, 0.464718)
  }
  dend[137] {pt3dclear()
	pt3dadd(361.576, 405.599, 36.863, 2.77833)
	pt3dadd(360.578, 406.937, 37.6013, 0.724418)
	pt3dadd(360.305, 407.279, 37.6769, 0.25649)
	pt3dadd(360.214, 407.501, 37.7529, 0.278372)
	pt3dadd(360.116, 407.671, 37.8566, 0.257004)
	pt3dadd(359.987, 407.911, 37.9289, 0.245312)
	pt3dadd(360.018, 408.26, 37.9204, 0.645172)
	pt3dadd(359.785, 408.526, 38.0833, 0.850838)
	pt3dadd(359.507, 408.757, 38.4468, 1.11019)
	pt3dadd(359.209, 409.471, 38.9018, 1.15458)
	pt3dadd(358.598, 409.687, 39.3459, 0.319492)
	pt3dadd(358.423, 409.803, 39.5119, 0.2)
	pt3dadd(358.202, 409.986, 39.6462, 0.306732)
	pt3dadd(357.915, 410.183, 39.8473, 0.481308)
	pt3dadd(357.699, 410.418, 40.0092, 0.588288)
	pt3dadd(357.564, 410.689, 40.142, 0.537626)
	pt3dadd(357.508, 411.04, 40.0971, 0.764912)
	pt3dadd(357.243, 411.489, 40.3211, 0.656574)
	pt3dadd(357.188, 411.825, 40.4006, 0.732758)
	pt3dadd(357.17, 412.192, 40.5316, 0.737782)
	pt3dadd(356.957, 412.784, 40.7423, 0.65566)
	pt3dadd(356.582, 414.42, 41.6595, 0.748338)
	pt3dadd(356.637, 414.769, 41.5131, 0.75125)
	pt3dadd(356.685, 415.182, 41.4769, 0.790264)
	pt3dadd(356.647, 415.547, 41.7022, 0.999818)
	pt3dadd(356.553, 416.238, 41.8827, 1.32228)
	pt3dadd(356.47, 416.946, 41.8269, 1.20626)
	pt3dadd(356.083, 417.843, 41.7983, 0.80938)
	pt3dadd(355.819, 418.504, 41.7677, 0.698858)
	pt3dadd(355.859, 418.869, 41.8937, 0.511058)
	pt3dadd(355.781, 419.166, 42.069, 0.430346)
	pt3dadd(355.678, 419.432, 42.0886, 0.52033)
	pt3dadd(355.58, 419.751, 41.8078, 0.94649)
	pt3dadd(355.742, 420.33, 41.7788, 0.516276)
	pt3dadd(355.851, 420.709, 41.701, 0.700296)
	pt3dadd(355.892, 421.098, 42.0026, 0.69823)
	pt3dadd(356.017, 421.368, 42.2518, 0.893486)
	pt3dadd(356.396, 422.161, 42.6396, 1.70317)
	pt3dadd(356.224, 422.879, 43.1851, 1.49924)
	pt3dadd(356.261, 423.625, 43.4684, 0.517162)
	pt3dadd(356.617, 424.709, 44.2908, 0.738022)
	pt3dadd(356.782, 425.06, 44.5963, 0.229846)
	pt3dadd(356.81, 425.342, 44.6733, 0.256054)
	pt3dadd(356.705, 425.697, 44.8901, 0.552122)
	pt3dadd(356.656, 426.133, 45.1405, 0.933638)
	pt3dadd(356.619, 426.88, 45.5907, 1.16293)
	pt3dadd(356.838, 427.698, 45.7798, 0.480822)
	pt3dadd(357.009, 428.128, 45.942, 0.988574)
	pt3dadd(357.372, 428.433, 46.2966, 1.13475)
	pt3dadd(357.46, 429.264, 46.6904, 0.913342)
	pt3dadd(359.103, 430.688, 46.8761, 1.11408)
	pt3dadd(359.384, 431.33, 46.7481, 0.47147)
	pt3dadd(359.547, 431.613, 46.8108, 0.415718)
	pt3dadd(360.463, 433.398, 46.5541, 1.36996)
	pt3dadd(358.696, 437.264, 47.4122, 0.752312)
	pt3dadd(358.641, 437.624, 47.634, 0.749686)
	pt3dadd(358.082, 438.545, 49.0389, 0.449174)
	pt3dadd(357.818, 438.909, 48.6132, 0.603554)
	pt3dadd(357.505, 439.117, 48.7315, 0.679798)
	pt3dadd(357.388, 439.426, 48.8797, 0.60468)
	pt3dadd(357.325, 439.797, 49.0317, 0.533722)
	pt3dadd(357.374, 440.31, 49.5988, 0.810786)
	pt3dadd(357.192, 440.565, 49.8425, 0.782714)
	pt3dadd(356.942, 440.93, 49.9784, 0.730522)
	pt3dadd(356.524, 441.669, 50.4831, 0.950268)
	pt3dadd(356.257, 442.096, 50.6133, 0.729548)
	pt3dadd(356.107, 442.364, 50.704, 0.59682)
	pt3dadd(355.891, 444.947, 51.0566, 1.1105)
	pt3dadd(355.538, 445.355, 51.3993, 0.586166)
	pt3dadd(355.586, 445.663, 51.5779, 0.2)
	pt3dadd(355.727, 446.119, 51.6549, 0.567896)
	pt3dadd(356.475, 446.405, 51.6422, 1.00814)
	pt3dadd(356.566, 446.964, 51.6633, 0.638624)
	pt3dadd(356.779, 447.494, 51.9524, 0.24473)
	pt3dadd(356.905, 447.774, 52.0894, 0.499162)
	pt3dadd(356.988, 448.243, 52.1621, 0.740966)
	pt3dadd(358.302, 454.12, 54.7859, 0.473228)
	pt3dadd(358.387, 454.236, 54.4595, 0.378028)
	pt3dadd(358.613, 454.443, 54.1691, 0.40137)
	pt3dadd(358.694, 454.745, 54.1084, 0.556982)
	pt3dadd(358.942, 455.187, 54.3923, 0.9021)
	pt3dadd(359.183, 455.74, 54.6124, 0.535452)
	pt3dadd(359.432, 456.104, 54.6232, 0.291258)
	pt3dadd(359.628, 456.391, 54.6219, 0.359616)
	pt3dadd(359.71, 456.695, 54.6924, 0.624376)
	pt3dadd(359.8, 456.933, 54.8818, 0.86013)
	pt3dadd(359.813, 457.705, 54.8632, 0.764636)
	pt3dadd(359.916, 458.151, 54.8898, 1.26935)
	pt3dadd(359.879, 459.037, 55.2246, 0.600886)
	pt3dadd(359.81, 459.334, 55.3432, 0.335232)
	pt3dadd(359.758, 459.6, 55.481, 0.683118)
	pt3dadd(359.811, 460.105, 55.8538, 0.925508)
	pt3dadd(359.836, 461.029, 56.0658, 1.15752)
	pt3dadd(359.45, 461.653, 56.263, 0.2)
	pt3dadd(359.425, 461.869, 56.2244, 0.2)
	pt3dadd(359.312, 462.035, 56.3122, 0.2)
	pt3dadd(359.272, 462.102, 56.4885, 0.275544)
	pt3dadd(358.935, 466.437, 56.1638, 0.30516)
	pt3dadd(358.748, 466.749, 56.2953, 0.472958)
	pt3dadd(358.583, 467.62, 56.2812, 1.2684)
	pt3dadd(358.819, 468.097, 56.2061, 0.908768)
	pt3dadd(358.497, 469.261, 56.3028, 1.19148)
	pt3dadd(358.407, 469.713, 56.2428, 0.70364)
	pt3dadd(358.355, 470.064, 56.3073, 0.379056)
	pt3dadd(358.3, 470.371, 56.4727, 0.345234)
	pt3dadd(359.197, 478.85, 57.95, 0.98486)
	pt3dadd(359.576, 479.527, 57.7176, 0.842588)
	pt3dadd(378.172, 512.651, 73.8698, 1.02699)
	pt3dadd(378.559, 519.599, 76.3729, 0.66384)
	pt3dadd(378.504, 519.934, 76.2479, 0.482096)
	pt3dadd(378.525, 520.337, 76.3167, 0.51268)
	pt3dadd(380.402, 523.333, 78.3957, 0.681882)
	pt3dadd(380.706, 523.652, 78.5509, 0.599936)
	pt3dadd(380.982, 523.795, 78.511, 0.377006)
	pt3dadd(383.664, 526.466, 79.8, 0.2)
	pt3dadd(383.878, 526.592, 79.7995, 0.614744)
	pt3dadd(384.217, 527.197, 80.1466, 1.12327)
	pt3dadd(384.239, 527.499, 80.6207, 0.58374)
	pt3dadd(384.397, 527.786, 80.6195, 0.2)
	pt3dadd(387.289, 529.776, 81.8839, 0.72768)
	pt3dadd(387.444, 529.869, 82.2749, 0.662222)
	pt3dadd(387.72, 530.097, 82.5471, 0.23414)
	pt3dadd(387.786, 530.16, 82.8043, 0.266298)
	pt3dadd(388.925, 531.109, 84.0132, 0.576264)
	pt3dadd(389.33, 531.282, 84.1659, 0.382202)
	pt3dadd(389.818, 531.599, 84.1249, 0.88768)
	pt3dadd(393.514, 537.801, 85.7267, 0.532092)
	pt3dadd(393.686, 538.046, 85.6829, 0.2)
	pt3dadd(394.061, 538.501, 85.6042, 0.484404)
	pt3dadd(394.874, 541.76, 85.7927, 0.543854)
	pt3dadd(395.219, 541.964, 86.561, 0.8618)
	pt3dadd(395.59, 542.228, 86.8208, 1.00311)
	pt3dadd(396.072, 542.603, 86.8871, 0.556388)
	pt3dadd(396.171, 542.811, 86.8922, 0.207576)
  }
  dend_6[71] {pt3dclear()
	pt3dadd(396.171, 542.811, 86.8922, 0.207576)
	pt3dadd(396.129, 543.345, 86.7597, 0.691446)
  }
}
proc shape3d_70() {
  dend_6[71] {  }
  dend[138] {pt3dclear()
	pt3dadd(339.005, 377.7, 34.5659, 2.2443)
	pt3dadd(340.258, 377.338, 33.5535, 1.18633)
	pt3dadd(340.944, 377.21, 33.2322, 0.752258)
	pt3dadd(341.366, 377.14, 33.017, 0.972434)
	pt3dadd(342.303, 377.035, 32.7364, 1.10315)
	pt3dadd(342.873, 376.941, 32.3883, 0.807854)
	pt3dadd(343.556, 377.082, 31.8884, 0.857218)
	pt3dadd(343.598, 377.2, 31.3065, 0.847468)
	pt3dadd(343.925, 377.599, 30.8613, 0.810084)
	pt3dadd(344.203, 377.84, 30.624, 0.881558)
	pt3dadd(344.385, 378.186, 30.3877, 1.23665)
	pt3dadd(345.059, 378.385, 29.6219, 1.1691)
  }
  dend_5[56] {pt3dclear()
	pt3dadd(345.059, 378.385, 29.6219, 1.1691)
	pt3dadd(345.368, 378.445, 28.7545, 0.821878)
  }
  dend[139] {pt3dclear()
	pt3dadd(345.368, 378.445, 28.7545, 0.821878)
	pt3dadd(345.901, 378.993, 28.7511, 0.210336)
	pt3dadd(346.258, 379.129, 28.6504, 0.453466)
	pt3dadd(346.55, 379.158, 28.503, 0.69923)
	pt3dadd(346.859, 379.499, 28.4095, 0.60112)
	pt3dadd(347.117, 379.687, 28.3133, 0.606014)
	pt3dadd(347.404, 379.939, 28.2016, 0.789864)
	pt3dadd(347.672, 380.293, 28.1862, 0.911686)
	pt3dadd(348.306, 380.605, 27.7331, 0.7599)
	pt3dadd(348.608, 380.721, 27.5229, 0.535278)
	pt3dadd(348.912, 380.815, 27.4424, 0.403718)
	pt3dadd(349.331, 380.873, 27.3362, 0.558044)
	pt3dadd(349.668, 380.767, 27.2599, 0.734264)
	pt3dadd(349.804, 381.255, 26.552, 0.57189)
	pt3dadd(350.001, 381.422, 26.2845, 0.440112)
	pt3dadd(350.237, 381.549, 25.9979, 0.480072)
	pt3dadd(350.51, 381.562, 25.7648, 0.706462)
	pt3dadd(350.806, 381.665, 25.5423, 0.943574)
	pt3dadd(350.996, 381.724, 24.8692, 0.94227)
	pt3dadd(351.596, 381.91, 24.4573, 0.586518)
	pt3dadd(351.886, 381.893, 24.2348, 0.452184)
	pt3dadd(352.114, 381.833, 24.043, 0.416956)
	pt3dadd(352.54, 381.939, 24.0076, 0.265322)
	pt3dadd(352.71, 381.971, 23.939, 0.2)
	pt3dadd(352.861, 382.004, 23.8084, 0.278442)
	pt3dadd(353.052, 382.023, 23.6924, 0.362486)
	pt3dadd(353.275, 382.019, 23.6025, 0.378192)
	pt3dadd(353.605, 382.097, 23.5674, 0.2)
	pt3dadd(353.831, 382.14, 23.5129, 0.347508)
	pt3dadd(354.029, 382.176, 23.3524, 0.319382)
	pt3dadd(354.276, 382.197, 23.1457, 0.584638)
	pt3dadd(354.575, 382.301, 22.7186, 0.546296)
	pt3dadd(354.92, 382.289, 22.5862, 0.448768)
	pt3dadd(355.439, 382.411, 22.5878, 1.18939)
	pt3dadd(356.344, 382.345, 22.3719, 0.67239)
	pt3dadd(356.673, 382.354, 22.2429, 0.583868)
	pt3dadd(357.025, 382.438, 22.058, 0.723894)
	pt3dadd(357.367, 382.605, 21.7574, 0.834996)
	pt3dadd(358.129, 382.894, 21.3439, 0.420956)
	pt3dadd(358.441, 383.059, 21.2271, 0.646772)
	pt3dadd(359.004, 382.995, 21.1975, 0.674798)
	pt3dadd(359.452, 383.073, 21.2245, 0.501238)
	pt3dadd(359.803, 383.065, 21.2478, 0.42575)
	pt3dadd(360.091, 383.115, 21.1023, 0.50157)
	pt3dadd(360.438, 383.129, 20.9478, 0.662772)
	pt3dadd(360.971, 383.343, 20.7395, 0.631282)
	pt3dadd(361.38, 383.425, 20.6992, 0.698776)
	pt3dadd(362.108, 383.278, 20.7659, 0.924088)
	pt3dadd(362.611, 383.234, 20.8928, 1.248)
	pt3dadd(363.217, 383.047, 20.7928, 1.13075)
	pt3dadd(364.046, 382.896, 20.4341, 0.470276)
	pt3dadd(364.352, 382.888, 20.3107, 0.471054)
	pt3dadd(364.598, 382.868, 20.2558, 0.627512)
	pt3dadd(364.972, 382.968, 20.261, 0.463022)
	pt3dadd(365.425, 383.078, 20.2389, 0.439466)
	pt3dadd(365.705, 383.155, 20.217, 0.532208)
	pt3dadd(366.031, 383.159, 20.1736, 0.492576)
	pt3dadd(366.322, 383.216, 20.0382, 0.339422)
	pt3dadd(366.584, 383.217, 19.9418, 0.258168)
	pt3dadd(366.809, 383.188, 19.9271, 0.336956)
	pt3dadd(367.048, 383.216, 19.8935, 0.461446)
	pt3dadd(367.342, 383.376, 19.7867, 0.436642)
	pt3dadd(367.757, 383.6, 19.7616, 0.347608)
	pt3dadd(368.029, 383.776, 19.7883, 0.360842)
	pt3dadd(368.315, 383.958, 19.8829, 0.752186)
	pt3dadd(368.718, 383.947, 19.703, 0.475294)
	pt3dadd(368.95, 383.958, 19.5835, 0.31482)
	pt3dadd(369.189, 383.975, 19.5467, 0.347686)
	pt3dadd(369.405, 384.31, 19.3886, 0.274894)
	pt3dadd(369.635, 384.51, 19.1784, 0.636038)
	pt3dadd(370.331, 384.468, 18.9543, 0.364182)
	pt3dadd(370.583, 384.414, 18.8287, 0.262586)
	pt3dadd(370.926, 384.352, 18.6975, 0.723684)
	pt3dadd(371.856, 384.644, 18.2583, 0.269568)
	pt3dadd(372.077, 384.873, 18.0087, 0.562904)
	pt3dadd(372.394, 384.895, 17.8814, 0.58377)
	pt3dadd(372.713, 384.871, 17.6746, 0.833698)
	pt3dadd(373.072, 384.786, 17.4459, 0.787714)
	pt3dadd(373.469, 384.687, 17.2445, 0.923908)
	pt3dadd(374.492, 384.756, 16.7328, 0.825792)
	pt3dadd(374.97, 385.026, 16.5294, 0.367012)
	pt3dadd(375.188, 385.158, 16.441, 0.362054)
	pt3dadd(375.448, 385.25, 16.4005, 0.420578)
	pt3dadd(375.656, 385.563, 16.329, 0.31173)
	pt3dadd(375.862, 385.689, 16.2385, 0.2)
	pt3dadd(376.084, 385.748, 16.0737, 0.30755)
	pt3dadd(376.317, 385.838, 15.956, 0.66228)
	pt3dadd(376.968, 386.071, 15.7132, 1.15642)
	pt3dadd(377.798, 386.335, 15.3009, 0.968256)
	pt3dadd(378.511, 386.505, 15.0844, 0.435726)
	pt3dadd(378.787, 386.546, 15.0095, 0.431304)
	pt3dadd(379.053, 386.646, 15.0026, 0.49411)
	pt3dadd(379.339, 386.676, 14.9269, 0.439936)
	pt3dadd(379.561, 386.737, 14.8005, 0.372948)
	pt3dadd(379.875, 386.789, 14.6863, 0.400418)
	pt3dadd(380.129, 386.748, 14.5933, 0.462634)
	pt3dadd(380.477, 386.721, 14.5899, 0.478196)
	pt3dadd(380.767, 386.624, 14.5996, 0.471208)
	pt3dadd(381.16, 386.487, 14.0938, 0.518426)
	pt3dadd(381.433, 386.538, 13.8225, 0.549392)
	pt3dadd(381.633, 386.582, 13.5532, 0.404946)
	pt3dadd(381.976, 386.796, 13.5598, 0.2)
	pt3dadd(382.258, 386.933, 13.5592, 0.582972)
	pt3dadd(382.928, 387.084, 13.2224, 0.48978)
	pt3dadd(383.121, 387.111, 13.0184, 0.60975)
	pt3dadd(383.589, 387.523, 12.6563, 0.260152)
	pt3dadd(383.818, 387.686, 12.4922, 0.545798)
	pt3dadd(384.262, 388.063, 12.2476, 0.31925)
	pt3dadd(384.539, 388.198, 12.1598, 0.817438)
	pt3dadd(385.089, 388.305, 11.8282, 1.32016)
	pt3dadd(385.561, 387.996, 11.2113, 0.992954)
	pt3dadd(386.477, 387.812, 10.9872, 0.2)
	pt3dadd(386.717, 387.702, 10.9895, 0.2)
	pt3dadd(386.878, 387.604, 10.9926, 0.247672)
	pt3dadd(387.041, 387.482, 11.001, 0.33178)
	pt3dadd(387.203, 387.337, 11.0016, 0.400804)
	pt3dadd(387.486, 387.167, 10.9789, 0.229252)
	pt3dadd(387.754, 387.007, 10.8937, 0.36381)
	pt3dadd(388.02, 387.021, 10.8419, 0.361492)
	pt3dadd(388.236, 387.192, 10.7354, 0.264208)
	pt3dadd(388.496, 387.305, 10.6083, 0.511492)
	pt3dadd(388.731, 387.297, 10.4803, 0.510696)
	pt3dadd(389.045, 387.204, 10.3261, 0.307492)
	pt3dadd(389.293, 387.109, 10.1938, 0.2)
	pt3dadd(389.51, 387.074, 10.0399, 0.4078)
	pt3dadd(389.764, 387.088, 9.91386, 0.47042)
	pt3dadd(390.069, 387.123, 9.77521, 0.570596)
	pt3dadd(390.307, 387.221, 9.60265, 0.639246)
	pt3dadd(390.652, 387.376, 9.48215, 0.828856)
	pt3dadd(391.304, 387.097, 9.16725, 1.00267)
  }
  dend_6[72] {pt3dclear()
	pt3dadd(391.304, 387.097, 9.16725, 1.00267)
	pt3dadd(391.666, 387.14, 9.01165, 0.872314)
  }
  dend[140] {pt3dclear()
	pt3dadd(345.368, 378.445, 28.7545, 0.821878)
	pt3dadd(345.399, 378.397, 28.2725, 0.770936)
	pt3dadd(345.286, 378.518, 27.7922, 0.561158)
	pt3dadd(345.665, 378.718, 27.1788, 0.62921)
	pt3dadd(345.778, 378.798, 26.8367, 0.689676)
	pt3dadd(345.961, 378.974, 26.2501, 0.730418)
	pt3dadd(346.138, 378.922, 25.927, 0.74324)
	pt3dadd(346.594, 378.842, 25.4534, 0.734224)
	pt3dadd(346.971, 378.623, 24.9707, 0.71585)
	pt3dadd(347.313, 378.443, 24.4261, 0.738016)
	pt3dadd(347.322, 378.183, 23.9962, 0.82741)
	pt3dadd(347.451, 378.026, 23.3952, 0.755986)
	pt3dadd(347.608, 378.125, 22.863, 0.726394)
	pt3dadd(347.81, 378.182, 22.5489, 0.681416)
	pt3dadd(348.17, 378.393, 22.0308, 0.786964)
	pt3dadd(348.661, 378.155, 21.5311, 1.17717)
	pt3dadd(348.854, 377.862, 20.7616, 1.43839)
	pt3dadd(348.896, 377.838, 19.1653, 0.979828)
	pt3dadd(349.263, 377.859, 18.5082, 0.91595)
	pt3dadd(349.761, 377.896, 17.8862, 1.23829)
	pt3dadd(349.853, 378.096, 17.2364, 1.14941)
	pt3dadd(350.049, 378.438, 16.48, 0.902798)
	pt3dadd(349.979, 378.665, 15.9077, 0.66441)
	pt3dadd(349.909, 378.706, 15.5466, 0.740692)
	pt3dadd(349.821, 378.694, 14.8517, 0.78955)
	pt3dadd(349.861, 378.866, 14.4973, 0.867142)
	pt3dadd(350.13, 379.453, 13.916, 0.598584)
	pt3dadd(350.319, 379.659, 13.6725, 0.52808)
	pt3dadd(350.286, 379.714, 13.1653, 0.547636)
	pt3dadd(350.234, 379.83, 12.6, 0.729644)
	pt3dadd(350.324, 379.992, 11.8639, 0.89502)
	pt3dadd(350.089, 379.885, 11.3807, 0.784426)
	pt3dadd(349.964, 379.86, 10.7168, 0.715908)
	pt3dadd(349.995, 379.999, 10.3631, 0.719046)
	pt3dadd(350.112, 380.2, 9.73222, 0.738694)
	pt3dadd(349.843, 380.335, 9.08862, 0.859948)
	pt3dadd(349.819, 380.136, 8.29609, 1.34505)
	pt3dadd(350.236, 380.105, 6.92275, 0.859196)
	pt3dadd(350.237, 380.145, 6.35082, 0.827226)
	pt3dadd(350.276, 380.551, 5.70042, 0.742872)
  }
  dend_6[73] {pt3dclear()
	pt3dadd(350.276, 380.551, 5.70042, 0.742872)
	pt3dadd(350.252, 380.641, 5.17317, 0.3941)
  }
  dend[141] {pt3dclear()
	pt3dadd(326.426, 358.995, 37.3123, 2.8517)
	pt3dadd(324.798, 359.817, 36.844, 1.14052)
	pt3dadd(324.124, 360.09, 36.4269, 1.0235)
	pt3dadd(323.481, 360.338, 35.9498, 0.675562)
	pt3dadd(323.166, 360.396, 35.7505, 0.674086)
	pt3dadd(322.722, 360.49, 35.4068, 0.598776)
	pt3dadd(322.404, 360.537, 35.1607, 0.628544)
	pt3dadd(322.189, 360.707, 34.9134, 0.856034)
	pt3dadd(321.415, 360.893, 34.4298, 0.668696)
	pt3dadd(320.994, 361.145, 33.9893, 0.945274)
	pt3dadd(320.591, 361.228, 33.7289, 0.735322)
	pt3dadd(320.262, 361.336, 33.5378, 0.818148)
  }
}
proc shape3d_71() {
  dend[141] {	pt3dadd(319.527, 361.409, 33.4159, 1.05853)
	pt3dadd(318.683, 361.422, 33.1371, 1.08601)
	pt3dadd(318.174, 361.58, 32.9552, 0.98663)
	pt3dadd(317.471, 361.714, 32.698, 0.949112)
	pt3dadd(316.725, 361.945, 32.4629, 0.8194)
	pt3dadd(316.029, 362.13, 32.3127, 0.931518)
	pt3dadd(315.267, 362.351, 32.2646, 0.816888)
	pt3dadd(314.27, 362.583, 31.8704, 1.15286)
	pt3dadd(313.428, 362.939, 31.7185, 0.926804)
	pt3dadd(312.695, 363.241, 31.9915, 0.849912)
	pt3dadd(311.755, 363.69, 31.6969, 1.26125)
	pt3dadd(310.737, 364.139, 31.0953, 1.0325)
	pt3dadd(310.314, 364.257, 30.8172, 1.203)
	pt3dadd(309.805, 364.478, 30.5572, 0.822044)
	pt3dadd(309.121, 364.821, 30.2573, 0.87233)
	pt3dadd(308.784, 365.077, 30.0649, 0.895642)
	pt3dadd(308.416, 365.579, 29.9421, 0.825458)
	pt3dadd(308.042, 365.82, 29.8597, 0.763262)
	pt3dadd(307.673, 366.027, 29.7809, 0.825072)
	pt3dadd(306.879, 366.424, 29.3432, 1.14977)
	pt3dadd(306.129, 366.778, 28.7996, 0.700502)
	pt3dadd(305.817, 366.821, 28.5806, 0.78815)
	pt3dadd(305.053, 367.3, 28.2324, 0.72446)
	pt3dadd(304.801, 367.575, 28.1115, 0.513772)
	pt3dadd(304.59, 367.854, 28.0397, 0.580754)
	pt3dadd(304.274, 368.065, 28.0126, 0.607216)
	pt3dadd(304.028, 368.388, 27.9338, 0.95549)
	pt3dadd(303.267, 369.046, 27.8156, 1.03604)
	pt3dadd(302.655, 369.603, 27.5419, 0.963862)
	pt3dadd(302.322, 369.961, 27.4335, 1.1046)
	pt3dadd(301.781, 370.288, 27.1992, 0.800394)
	pt3dadd(301.372, 370.513, 27.116, 0.894728)
	pt3dadd(300.867, 370.725, 27.0832, 1.01084)
	pt3dadd(300.026, 370.962, 27.0344, 0.91965)
	pt3dadd(299.221, 371.086, 26.8019, 0.960052)
	pt3dadd(298.593, 371.23, 26.6069, 0.691888)
	pt3dadd(298.202, 371.264, 26.594, 0.50769)
	pt3dadd(297.619, 371.348, 26.6398, 0.620998)
	pt3dadd(297.317, 371.444, 26.6369, 0.751828)
	pt3dadd(296.578, 371.521, 26.5379, 0.850144)
	pt3dadd(295.64, 371.722, 26.2212, 0.661376)
	pt3dadd(295.169, 371.782, 26.1553, 1.01091)
	pt3dadd(294.219, 372.299, 26.0101, 1.0319)
	pt3dadd(293.393, 372.617, 25.8947, 0.695498)
	pt3dadd(292.875, 372.728, 25.5089, 0.544424)
	pt3dadd(292.591, 372.836, 25.2869, 0.744088)
  }
  dend_5[57] {pt3dclear()
	pt3dadd(292.591, 372.836, 25.2869, 0.744088)
	pt3dadd(291.88, 372.987, 25.0422, 0.796982)
  }
  dend[142] {pt3dclear()
	pt3dadd(291.88, 372.987, 25.0422, 0.796982)
	pt3dadd(291.43, 372.904, 24.5975, 0.367382)
	pt3dadd(291.219, 372.923, 24.3989, 0.42922)
	pt3dadd(291.062, 372.983, 24.2227, 0.366348)
	pt3dadd(290.81, 372.944, 24.0661, 0.621254)
	pt3dadd(290.294, 372.892, 23.7568, 0.541502)
	pt3dadd(289.933, 372.895, 23.4503, 0.521006)
	pt3dadd(289.651, 372.958, 23.2654, 0.661164)
	pt3dadd(289.345, 372.964, 23.0627, 0.841784)
	pt3dadd(288.561, 373.326, 22.7306, 0.931244)
	pt3dadd(287.897, 373.791, 22.5612, 1.09075)
	pt3dadd(287.352, 374.012, 22.4134, 0.627914)
	pt3dadd(287.071, 374.171, 22.3058, 0.337392)
	pt3dadd(286.832, 374.313, 22.2184, 0.322716)
	pt3dadd(286.53, 374.383, 22.1308, 0.342616)
	pt3dadd(286.241, 374.41, 21.9426, 0.389288)
	pt3dadd(286.026, 374.391, 21.6817, 0.487728)
	pt3dadd(285.836, 374.398, 21.4281, 0.47595)
	pt3dadd(285.431, 374.504, 21.3767, 0.493896)
	pt3dadd(284.993, 374.625, 21.3011, 0.7027)
	pt3dadd(284.672, 374.842, 21.0793, 0.694338)
	pt3dadd(284.327, 375.082, 20.7386, 0.486662)
	pt3dadd(284.076, 375.266, 20.5757, 0.3119)
	pt3dadd(283.809, 375.43, 20.4741, 0.44184)
	pt3dadd(283.577, 375.598, 20.375, 0.505488)
	pt3dadd(283.225, 375.656, 20.2484, 0.687454)
	pt3dadd(282.587, 375.927, 19.8712, 0.522784)
	pt3dadd(282.3, 375.984, 19.6823, 0.574768)
	pt3dadd(281.95, 375.957, 19.4712, 1.10075)
	pt3dadd(281.598, 376.185, 19.1101, 1.10303)
	pt3dadd(280.907, 376.346, 18.9545, 1.07846)
	pt3dadd(280.101, 376.471, 18.5311, 1.18986)
	pt3dadd(279.12, 377.089, 18.1091, 0.969084)
	pt3dadd(278.185, 376.974, 17.8074, 0.877162)
	pt3dadd(277.828, 376.898, 17.3809, 0.597944)
	pt3dadd(277.607, 376.887, 17.1231, 0.565582)
	pt3dadd(277.218, 376.985, 17.0968, 0.360592)
	pt3dadd(276.992, 377.046, 17.0423, 0.2919)
	pt3dadd(276.77, 377.172, 16.9538, 0.332148)
	pt3dadd(276.499, 377.258, 16.9146, 0.50323)
	pt3dadd(276.232, 377.278, 16.8494, 0.404616)
	pt3dadd(275.898, 377.303, 16.6692, 0.588486)
	pt3dadd(275.592, 377.465, 16.5655, 0.589252)
	pt3dadd(275.203, 377.666, 16.5524, 0.886204)
	pt3dadd(274.744, 377.744, 16.5566, 1.07011)
	pt3dadd(274.042, 378.429, 16.1363, 0.870976)
	pt3dadd(273.525, 378.63, 15.9192, 0.47639)
	pt3dadd(273.154, 378.891, 15.9129, 0.2)
	pt3dadd(272.882, 378.994, 15.9381, 0.249046)
	pt3dadd(272.697, 379.177, 15.8758, 0.60091)
	pt3dadd(272.499, 379.246, 15.6475, 0.676656)
	pt3dadd(272.064, 379.08, 15.5207, 0.509748)
	pt3dadd(271.763, 378.984, 15.4883, 0.673072)
	pt3dadd(271.067, 379.07, 15.3171, 0.963286)
	pt3dadd(270.458, 379.236, 15.4088, 0.632602)
	pt3dadd(270.162, 379.388, 15.4422, 0.433816)
	pt3dadd(269.845, 379.487, 15.4863, 0.40947)
	pt3dadd(269.518, 379.482, 15.6391, 0.506386)
	pt3dadd(269.206, 379.621, 15.7347, 0.69654)
	pt3dadd(268.785, 380.056, 15.455, 0.457762)
	pt3dadd(268.591, 380.254, 15.27, 0.598534)
	pt3dadd(268.318, 380.44, 15.1058, 0.622368)
	pt3dadd(268.054, 380.612, 15.0122, 0.442864)
	pt3dadd(267.786, 380.868, 14.9596, 0.304844)
	pt3dadd(267.607, 381.037, 14.9198, 0.270522)
	pt3dadd(267.394, 381.201, 14.817, 0.2)
	pt3dadd(267.095, 381.42, 14.7094, 0.350718)
	pt3dadd(266.852, 381.72, 14.6603, 0.660806)
	pt3dadd(266.592, 381.981, 14.636, 0.99519)
	pt3dadd(266.167, 382.287, 14.4686, 1.52166)
	pt3dadd(265.596, 382.972, 14.3074, 1.46761)
	pt3dadd(264.632, 383.3, 13.8658, 1.34628)
	pt3dadd(264.086, 383.71, 13.5434, 0.5735)
	pt3dadd(263.802, 383.908, 13.4261, 0.593648)
	pt3dadd(263.54, 384.127, 13.3512, 0.562814)
	pt3dadd(263.22, 384.397, 13.2043, 0.487838)
	pt3dadd(263.002, 384.656, 13.065, 0.392524)
	pt3dadd(262.777, 384.837, 12.8626, 0.450068)
	pt3dadd(262.683, 385.077, 12.7201, 0.61205)
	pt3dadd(262.711, 385.416, 12.5671, 0.662058)
	pt3dadd(262.174, 385.585, 12.7163, 0.264548)
	pt3dadd(261.97, 385.707, 12.7078, 0.27254)
	pt3dadd(261.782, 385.796, 12.6985, 0.312786)
	pt3dadd(261.516, 385.961, 12.6953, 0.424444)
	pt3dadd(261.222, 386.132, 12.7434, 0.484452)
	pt3dadd(260.905, 386.329, 12.6798, 0.495926)
	pt3dadd(260.565, 386.421, 12.6937, 0.275932)
	pt3dadd(260.375, 386.482, 12.6949, 0.2)
	pt3dadd(260.15, 386.553, 12.639, 0.2)
	pt3dadd(259.888, 386.552, 12.5027, 0.237282)
	pt3dadd(259.733, 386.769, 12.4176, 0.513398)
	pt3dadd(259.393, 387.081, 12.5659, 0.566156)
	pt3dadd(259.098, 387.192, 12.6029, 0.644088)
	pt3dadd(258.726, 387.465, 12.5212, 0.47023)
	pt3dadd(258.371, 387.621, 12.3706, 0.451954)
	pt3dadd(258.091, 387.906, 12.1639, 0.682384)
	pt3dadd(257.377, 388.289, 12.2958, 0.467734)
	pt3dadd(257.143, 388.389, 12.3009, 0.29833)
	pt3dadd(256.881, 388.451, 12.3163, 0.2)
	pt3dadd(256.649, 388.603, 12.3475, 0.2)
	pt3dadd(256.433, 388.696, 12.4113, 0.404184)
	pt3dadd(256.177, 388.702, 12.4341, 0.447406)
	pt3dadd(255.931, 388.743, 12.4028, 0.45727)
	pt3dadd(255.64, 388.817, 12.3712, 0.250156)
	pt3dadd(255.185, 389.186, 12.2907, 0.786132)
	pt3dadd(254.726, 389.033, 12.1978, 0.313532)
	pt3dadd(254.286, 389.088, 12.0575, 0.665452)
	pt3dadd(253.901, 389.358, 11.8471, 0.37364)
	pt3dadd(253.583, 389.421, 11.7451, 0.29282)
	pt3dadd(253.132, 389.808, 11.4315, 0.878122)
	pt3dadd(252.587, 389.688, 11.2287, 0.559418)
	pt3dadd(252.138, 389.766, 11.2865, 0.298048)
	pt3dadd(251.975, 389.8, 11.2933, 0.2)
	pt3dadd(251.735, 389.869, 11.2242, 0.2)
	pt3dadd(251.503, 389.971, 11.1821, 0.408182)
	pt3dadd(251.262, 389.963, 11.1032, 0.387736)
	pt3dadd(250.959, 390.013, 11.0325, 0.519874)
	pt3dadd(250.683, 390.198, 10.9475, 0.55588)
	pt3dadd(250.432, 390.403, 10.9385, 0.508328)
	pt3dadd(250.109, 390.577, 11.1802, 0.443994)
	pt3dadd(249.823, 390.705, 11.4242, 0.556916)
	pt3dadd(249.475, 390.965, 10.7496, 0.362936)
	pt3dadd(249.226, 391.042, 10.5434, 0.320928)
	pt3dadd(248.849, 391.135, 10.4127, 0.333488)
	pt3dadd(248.665, 391.262, 10.1393, 0.355494)
	pt3dadd(248.632, 391.196, 9.93146, 0.25741)
	pt3dadd(248.596, 391.204, 9.76573, 0.2)
	pt3dadd(248.509, 391.303, 9.58287, 0.2)
	pt3dadd(248.006, 391.608, 9.05154, 1.18647)
	pt3dadd(247.358, 391.713, 8.54826, 1.55467)
	pt3dadd(246.248, 392.294, 8.30223, 0.935302)
	pt3dadd(245.823, 392.414, 8.09201, 0.69699)
	pt3dadd(245.474, 392.439, 7.93753, 0.648626)
	pt3dadd(245.21, 392.466, 7.8376, 0.529418)
	pt3dadd(244.901, 392.607, 7.68782, 0.375652)
	pt3dadd(244.649, 392.741, 7.58103, 0.36853)
	pt3dadd(244.401, 392.909, 7.40313, 0.5674)
	pt3dadd(244.198, 393.112, 7.18709, 0.648712)
	pt3dadd(243.879, 393.56, 6.76146, 1.07368)
	pt3dadd(243.513, 393.843, 6.61996, 0.950648)
	pt3dadd(242.818, 394.43, 6.11036, 0.62667)
	pt3dadd(242.567, 394.648, 5.80419, 0.360008)
	pt3dadd(242.438, 394.871, 5.58919, 0.525406)
	pt3dadd(242.077, 394.948, 5.70842, 0.342106)
	pt3dadd(241.682, 395.015, 5.56525, 0.27074)
	pt3dadd(241.403, 395.084, 5.38951, 0.35962)
	pt3dadd(241.135, 395.192, 5.24178, 0.492566)
	pt3dadd(240.806, 395.649, 5.23019, 0.379558)
	pt3dadd(240.565, 395.841, 5.13216, 0.232736)
	pt3dadd(240.316, 396.022, 5.03714, 0.353052)
	pt3dadd(240.076, 396.174, 4.95563, 0.396074)
	pt3dadd(239.302, 396.429, 5.0111, 0.91254)
  }
}
proc shape3d_72() {
  dend[142] {	pt3dadd(238.973, 397.328, 4.89587, 1.12016)
	pt3dadd(238.802, 397.751, 4.8838, 0.868914)
	pt3dadd(238.501, 398.393, 4.73967, 0.447736)
	pt3dadd(238.364, 398.68, 4.70797, 0.27151)
	pt3dadd(238.209, 398.945, 4.64971, 0.419362)
	pt3dadd(238.033, 399.211, 4.59752, 0.484626)
	pt3dadd(237.858, 399.504, 4.51214, 0.445668)
	pt3dadd(237.79, 399.76, 4.50507, 0.308714)
	pt3dadd(237.779, 400.024, 4.44789, 0.295662)
	pt3dadd(237.675, 400.315, 4.36298, 0.507004)
	pt3dadd(237.471, 400.547, 4.18005, 0.565336)
	pt3dadd(237.255, 400.754, 3.97637, 0.447896)
	pt3dadd(236.933, 400.959, 3.87947, 0.239948)
	pt3dadd(236.579, 401.044, 3.77148, 0.368602)
	pt3dadd(236.305, 401.199, 3.83821, 0.35813)
	pt3dadd(235.888, 401.165, 3.88563, 0.45963)
  }
  dend_6[74] {pt3dclear()
	pt3dadd(235.888, 401.165, 3.88563, 0.45963)
	pt3dadd(235.313, 401.776, 3.66108, 1.42619)
  }
  dend[143] {pt3dclear()
	pt3dadd(291.88, 372.987, 25.0422, 0.796982)
	pt3dadd(291.473, 373.525, 25.349, 0.2)
	pt3dadd(291.305, 373.692, 25.4475, 0.2)
	pt3dadd(291.204, 373.914, 25.5695, 0.209808)
	pt3dadd(291.056, 373.96, 25.759, 0.366966)
	pt3dadd(290.808, 373.838, 26.0306, 0.76117)
	pt3dadd(290.483, 374.545, 25.9153, 0.415766)
	pt3dadd(290.352, 374.814, 25.775, 0.22812)
	pt3dadd(290.2, 375.082, 25.6316, 0.504534)
	pt3dadd(289.932, 375.279, 25.5481, 0.511324)
	pt3dadd(289.665, 375.516, 25.7302, 0.593782)
	pt3dadd(289.361, 375.902, 25.684, 0.857598)
	pt3dadd(289.223, 376.408, 25.5799, 0.774306)
	pt3dadd(289.054, 376.776, 25.5902, 0.671162)
	pt3dadd(288.765, 377.058, 25.7201, 0.75616)
	pt3dadd(288.074, 377.43, 26.0328, 0.681792)
	pt3dadd(287.636, 377.597, 26.3015, 0.451214)
	pt3dadd(285.729, 379.537, 26.0978, 0.925114)
	pt3dadd(285.549, 379.892, 26.1843, 0.660528)
	pt3dadd(285.363, 380.185, 26.2015, 0.697174)
	pt3dadd(285.198, 380.564, 26.2155, 0.835846)
	pt3dadd(284.671, 381.171, 26.3697, 0.955772)
	pt3dadd(284.583, 381.763, 26.2155, 0.300386)
	pt3dadd(284.572, 382.05, 25.996, 0.400272)
	pt3dadd(284.211, 382.457, 26.2219, 0.2)
	pt3dadd(284.067, 382.691, 26.2709, 0.244794)
	pt3dadd(283.944, 382.929, 26.2651, 0.473516)
	pt3dadd(283.742, 383.15, 26.3762, 0.54057)
	pt3dadd(283.509, 383.31, 26.6581, 0.507536)
	pt3dadd(283.431, 383.496, 26.8846, 0.624256)
	pt3dadd(283.314, 383.712, 27.4763, 0.511384)
	pt3dadd(283.251, 385.201, 25.948, 0.702788)
	pt3dadd(283.213, 385.542, 26.0141, 0.743012)
	pt3dadd(283.104, 386.091, 26.145, 0.995078)
	pt3dadd(283.257, 386.781, 25.9852, 1.05481)
	pt3dadd(282.859, 387.693, 26.0231, 0.5761)
	pt3dadd(282.446, 387.731, 25.9302, 1.02008)
	pt3dadd(282.153, 388.195, 25.9485, 0.784812)
	pt3dadd(281.517, 388.642, 25.8631, 0.785482)
	pt3dadd(280.883, 388.833, 25.8793, 0.733062)
	pt3dadd(280.525, 388.924, 25.9786, 1.04225)
	pt3dadd(279.809, 389.329, 25.9576, 0.93501)
	pt3dadd(279.046, 389.484, 25.7665, 0.599884)
	pt3dadd(278.629, 389.607, 25.643, 0.336838)
	pt3dadd(277.864, 390.409, 25.6146, 0.289406)
	pt3dadd(277.575, 390.608, 25.4093, 0.54523)
	pt3dadd(277.127, 390.804, 25.1742, 0.775406)
	pt3dadd(276.92, 391.086, 25.2384, 0.693272)
	pt3dadd(276.767, 391.315, 25.3175, 0.478212)
	pt3dadd(276.599, 391.554, 25.439, 0.2)
	pt3dadd(276.421, 391.732, 25.5092, 0.2)
	pt3dadd(276.278, 391.892, 25.5351, 0.2)
	pt3dadd(275.838, 392.348, 25.5013, 0.44784)
	pt3dadd(275.636, 392.434, 25.3369, 0.223782)
	pt3dadd(275.426, 392.576, 25.1292, 0.2)
	pt3dadd(275.034, 392.809, 24.9701, 0.33839)
	pt3dadd(274.995, 393.178, 24.8188, 0.546126)
	pt3dadd(274.709, 393.265, 24.7194, 0.347148)
	pt3dadd(274.11, 393.646, 24.6119, 0.802358)
	pt3dadd(273.593, 394.112, 24.6167, 1.15108)
	pt3dadd(272.62, 394.531, 24.5488, 0.926666)
	pt3dadd(272.308, 394.842, 24.7903, 0.9139)
	pt3dadd(270.509, 397.058, 24.8346, 0.511028)
	pt3dadd(270.391, 397.431, 24.7438, 0.528906)
	pt3dadd(270.139, 397.793, 24.6333, 0.855626)
	pt3dadd(269.762, 398.525, 24.2993, 1.21931)
	pt3dadd(269.448, 399.092, 23.7729, 0.347738)
	pt3dadd(269.352, 400.624, 23.7945, 0.713856)
	pt3dadd(267.048, 405.237, 20.1695, 1.12906)
	pt3dadd(263.079, 411.227, 18.6334, 1.16287)
	pt3dadd(262.614, 411.738, 18.2185, 1.10549)
	pt3dadd(262.254, 412.402, 17.9138, 1.2506)
	pt3dadd(261.575, 413.125, 17.6892, 0.478576)
	pt3dadd(261.331, 413.458, 17.6178, 0.359034)
	pt3dadd(261.118, 413.732, 17.6172, 0.2756)
	pt3dadd(261.027, 414.041, 17.4162, 0.366366)
	pt3dadd(261.019, 414.269, 17.1943, 0.29944)
	pt3dadd(260.994, 414.491, 16.9082, 0.216988)
	pt3dadd(260.564, 416.085, 16.6389, 0.29155)
	pt3dadd(260.164, 416.36, 16.3645, 0.850198)
	pt3dadd(259.834, 416.915, 15.7522, 1.21989)
	pt3dadd(259.533, 417.174, 15.5592, 0.853748)
	pt3dadd(259.164, 417.31, 15.2181, 0.617672)
	pt3dadd(257.685, 419.62, 13.7164, 0.975842)
	pt3dadd(257.561, 419.978, 13.3446, 0.871262)
	pt3dadd(256.907, 420.304, 13.0233, 0.91089)
	pt3dadd(256.621, 420.616, 12.8161, 0.786688)
	pt3dadd(256.4, 420.892, 12.6666, 0.362144)
	pt3dadd(256.208, 421.147, 12.5486, 0.201168)
	pt3dadd(255.643, 421.491, 12.2304, 0.94812)
	pt3dadd(255.339, 421.789, 12.0782, 0.63029)
	pt3dadd(255.085, 422.037, 11.971, 0.64632)
	pt3dadd(254.66, 422.235, 12.2693, 0.391802)
	pt3dadd(254.474, 422.303, 12.5623, 0.449844)
	pt3dadd(253.269, 423.601, 11.5331, 0.25069)
	pt3dadd(252.912, 423.736, 11.3351, 0.37067)
	pt3dadd(252.461, 423.712, 11.2305, 0.743338)
	pt3dadd(252.016, 424.252, 10.9802, 0.94847)
	pt3dadd(251.409, 424.773, 10.8459, 1.04266)
	pt3dadd(251.086, 425.171, 10.6215, 0.895158)
	pt3dadd(249.583, 426.307, 10.2033, 0.867582)
	pt3dadd(249.478, 426.816, 10.0186, 0.347558)
	pt3dadd(249.435, 427.058, 9.91528, 0.524398)
	pt3dadd(249.217, 427.236, 9.76402, 0.735352)
	pt3dadd(248.781, 427.5, 9.53976, 0.751544)
	pt3dadd(248.387, 427.855, 9.1232, 0.368794)
	pt3dadd(248.273, 428.082, 8.88342, 0.548292)
	pt3dadd(248.224, 428.335, 8.61148, 0.65623)
	pt3dadd(248.062, 428.581, 8.3606, 0.747404)
	pt3dadd(247.772, 428.848, 8.16624, 0.640546)
	pt3dadd(247.482, 429.069, 8.04737, 0.80671)
	pt3dadd(247.022, 429.547, 7.86937, 0.650456)
	pt3dadd(245.474, 431.104, 7.58684, 0.238606)
	pt3dadd(245.134, 431.435, 7.53897, 0.562052)
	pt3dadd(245.014, 431.613, 7.6, 0.2)
	pt3dadd(243.823, 432.71, 7.53511, 0.21072)
	pt3dadd(243.476, 432.966, 7.49522, 0.362832)
	pt3dadd(243.021, 433.028, 7.37189, 0.556966)
	pt3dadd(242.812, 433.261, 7.35462, 0.419528)
	pt3dadd(242.545, 433.554, 7.37615, 0.584452)
	pt3dadd(242.223, 433.727, 7.36783, 0.602928)
	pt3dadd(241.802, 433.818, 7.34929, 0.769228)
	pt3dadd(241.067, 434.259, 7.38554, 1.11919)
	pt3dadd(240.626, 434.614, 7.51509, 1.07554)
	pt3dadd(239.21, 435.194, 7.55719, 0.429428)
	pt3dadd(238.95, 435.277, 7.81302, 0.575088)
	pt3dadd(238.655, 435.39, 7.77432, 0.2)
	pt3dadd(238.426, 435.558, 7.78442, 0.2)
	pt3dadd(238.252, 435.715, 7.77471, 0.2)
	pt3dadd(238.034, 435.848, 7.74678, 0.2)
	pt3dadd(237.863, 435.961, 7.80486, 0.325762)
	pt3dadd(237.619, 436.021, 7.87136, 0.265618)
	pt3dadd(237.413, 436.07, 7.85041, 0.343016)
	pt3dadd(237.21, 436.183, 7.7857, 0.202388)
	pt3dadd(237.019, 436.19, 7.76962, 0.246626)
	pt3dadd(236.829, 436.202, 7.74198, 0.289692)
	pt3dadd(236.598, 436.284, 7.68236, 0.489106)
	pt3dadd(236.1, 436.384, 7.62563, 1.08905)
	pt3dadd(235.232, 436.664, 7.32575, 0.524714)
	pt3dadd(234.907, 436.882, 7.30447, 0.2)
	pt3dadd(234.688, 436.976, 7.25487, 0.226042)
	pt3dadd(234.492, 437.111, 7.23496, 0.411854)
	pt3dadd(234.276, 437.311, 7.21863, 0.69038)
	pt3dadd(233.546, 437.43, 7.11253, 0.754922)
	pt3dadd(233.129, 437.718, 7.02356, 1.11599)
	pt3dadd(232.502, 438.38, 7.25653, 0.67673)
	pt3dadd(231.766, 438.677, 7.06951, 0.2)
	pt3dadd(231.577, 438.801, 7.1036, 0.2)
	pt3dadd(231.322, 438.926, 7.16821, 0.2)
	pt3dadd(228.185, 441.789, 7.76874, 0.454298)
	pt3dadd(227.956, 442.098, 7.78122, 0.360954)
	pt3dadd(227.699, 442.349, 7.84639, 0.440686)
	pt3dadd(227.481, 442.652, 7.99982, 0.55919)
	pt3dadd(227.111, 443.094, 7.92533, 0.2)
	pt3dadd(227.056, 443.247, 7.91809, 0.2)
	pt3dadd(225.997, 444.604, 7.84468, 1.15678)
	pt3dadd(225.396, 444.895, 7.65833, 0.883666)
	pt3dadd(225.096, 445.129, 7.17562, 0.54173)
	pt3dadd(224.541, 445.668, 7.12687, 0.2)
	pt3dadd(224.294, 445.74, 7.09618, 0.23931)
	pt3dadd(224.13, 445.82, 7.0111, 0.356752)
	pt3dadd(223.855, 445.917, 6.89725, 0.605764)
	pt3dadd(223.593, 446.117, 6.80128, 0.824926)
	pt3dadd(223.06, 446.578, 6.5627, 0.240176)
	pt3dadd(222.806, 446.733, 6.35384, 0.495148)
	pt3dadd(222.685, 446.841, 6.10332, 0.616044)
	pt3dadd(222.239, 447.167, 6.42662, 0.2)
	pt3dadd(222.031, 447.33, 6.50876, 0.2)
	pt3dadd(220.795, 447.694, 6.80994, 1.00965)
	pt3dadd(220.39, 447.804, 6.37875, 1.04261)
	pt3dadd(218.79, 449.829, 6.74741, 0.39461)
	pt3dadd(218.557, 449.976, 6.68362, 0.204524)
	pt3dadd(218.4, 450, 6.6, 0.2)
	pt3dadd(215.448, 452.484, 6.44565, 1.13459)
	pt3dadd(214.649, 452.606, 6.4524, 0.666144)
	pt3dadd(212.181, 454.894, 7.19518, 0.847224)
	pt3dadd(209.465, 456.665, 7.20299, 0.782486)
	pt3dadd(209.089, 456.944, 7.15909, 0.892886)
	pt3dadd(208.504, 457.428, 7.0441, 0.908794)
	pt3dadd(207.784, 457.826, 7.00164, 0.2)
	pt3dadd(207.564, 457.996, 6.9719, 0.2)
	pt3dadd(207.356, 458.167, 6.9124, 0.33601)
  }
}
proc shape3d_73() {
  dend[143] {	pt3dadd(207.155, 458.295, 6.81784, 0.467634)
	pt3dadd(206.814, 458.549, 6.82918, 0.218584)
	pt3dadd(206.549, 458.685, 6.83474, 0.343204)
	pt3dadd(206.305, 458.844, 6.86844, 0.492638)
	pt3dadd(204.957, 460.102, 6.75001, 1.00447)
	pt3dadd(204.285, 461.097, 6.45609, 0.2)
	pt3dadd(204.104, 461.25, 6.38394, 0.2)
	pt3dadd(203.476, 461.553, 6.27984, 0.527316)
	pt3dadd(200.952, 463.186, 6.01488, 0.763244)
	pt3dadd(199.628, 464.545, 5.43211, 1.31145)
	pt3dadd(199.154, 464.983, 5.52442, 0.751372)
	pt3dadd(198.52, 465.513, 5.33694, 0.2)
	pt3dadd(198.324, 465.689, 5.37557, 0.2)
	pt3dadd(198.162, 465.844, 5.28779, 0.2)
	pt3dadd(197.901, 466.09, 5.22666, 0.2)
	pt3dadd(197.778, 466.24, 5.21333, 0.306804)
	pt3dadd(197.602, 466.437, 5.1816, 0.2)
	pt3dadd(197.426, 466.662, 5.18948, 0.2)
	pt3dadd(197.008, 467.158, 5.06442, 0.930738)
	pt3dadd(196.488, 467.749, 4.8409, 1.29423)
	pt3dadd(196.012, 467.909, 4.57121, 0.770934)
	pt3dadd(195.694, 467.901, 4.06213, 0.479552)
	pt3dadd(193.605, 469.925, 3.5838, 0.959968)
	pt3dadd(193.118, 470.352, 3.6721, 0.759932)
	pt3dadd(192.2, 470.652, 3.70678, 0.614544)
  }
  dend_6[75] {pt3dclear()
	pt3dadd(192.2, 470.652, 3.70678, 0.614544)
	pt3dadd(192.4, 470.652, 3.6, 0.2)
  }
  dend[144] {pt3dclear()
	pt3dadd(265.716, 272.471, 44.8254, 1.02804)
	pt3dadd(258.542, 271.735, 50.3834, 1.02804)
	pt3dadd(258.2, 271.373, 50.9649, 1.11629)
	pt3dadd(257.794, 270.931, 51.4964, 1.10423)
	pt3dadd(257.334, 270.501, 51.9798, 1.1352)
	pt3dadd(256.747, 270.29, 52.5539, 1.30547)
	pt3dadd(256.228, 269.961, 53.0351, 1.2332)
	pt3dadd(255.675, 269.658, 53.5022, 1.0134)
	pt3dadd(255.051, 269.29, 53.9146, 0.847198)
	pt3dadd(254.52, 269.245, 54.3815, 0.703606)
	pt3dadd(254.061, 269.378, 54.8116, 0.678738)
	pt3dadd(253.789, 269.344, 55.0195, 0.659172)
	pt3dadd(253.447, 269.265, 55.3226, 0.710748)
	pt3dadd(253.146, 269.162, 55.5574, 0.839058)
	pt3dadd(252.679, 269.024, 55.9781, 1.20062)
	pt3dadd(252.121, 268.678, 56.5303, 1.15849)
	pt3dadd(251.563, 268.754, 57.2743, 1.11955)
	pt3dadd(251.205, 268.365, 57.9062, 0.869386)
	pt3dadd(250.745, 268.321, 58.183, 1.28935)
	pt3dadd(249.915, 268.09, 58.6276, 0.346756)
	pt3dadd(249.618, 267.987, 58.7975, 0.462998)
	pt3dadd(249.259, 268.179, 58.8817, 0.398322)
	pt3dadd(248.999, 268.204, 58.8588, 0.347808)
	pt3dadd(248.712, 268.22, 58.9527, 0.282082)
	pt3dadd(248.448, 268.217, 59.1535, 0.250612)
	pt3dadd(248.184, 268.203, 59.2974, 0.257184)
	pt3dadd(247.931, 268.245, 59.474, 0.556592)
	pt3dadd(247.653, 268.215, 59.689, 0.682956)
	pt3dadd(247.354, 268.332, 59.8786, 0.750708)
	pt3dadd(247.147, 268.244, 60.1832, 0.813318)
	pt3dadd(246.622, 268.209, 60.5529, 0.826036)
	pt3dadd(246.198, 268.273, 61.1179, 0.907684)
	pt3dadd(245.817, 268.357, 61.5668, 0.715878)
	pt3dadd(245.297, 268.396, 62.039, 0.57094)
	pt3dadd(244.969, 268.355, 62.3256, 0.49424)
	pt3dadd(244.713, 268.247, 62.5359, 0.433546)
	pt3dadd(244.477, 268.099, 62.7876, 0.368104)
	pt3dadd(244.421, 267.904, 63.0671, 0.542092)
	pt3dadd(244.306, 267.807, 63.3654, 0.594594)
	pt3dadd(244.208, 267.695, 63.6498, 0.787734)
	pt3dadd(244.082, 267.618, 64.2814, 0.878906)
	pt3dadd(243.852, 267.56, 64.9704, 0.66565)
	pt3dadd(243.58, 267.536, 65.4239, 0.481454)
	pt3dadd(243.504, 267.423, 65.6773, 0.457892)
	pt3dadd(243.404, 267.289, 65.9171, 0.514044)
	pt3dadd(243.117, 267.162, 66.4228, 0.741252)
	pt3dadd(242.802, 267.108, 66.6638, 0.65845)
	pt3dadd(242.697, 266.744, 66.9116, 1.35781)
	pt3dadd(241.908, 266.705, 67.8317, 1.04686)
	pt3dadd(241.355, 266.424, 68.8387, 0.855572)
	pt3dadd(240.943, 266.253, 69.2972, 0.516282)
	pt3dadd(240.709, 266.202, 69.5113, 0.254218)
	pt3dadd(240.298, 266.186, 69.617, 0.314422)
	pt3dadd(240.014, 266.239, 69.8632, 0.476434)
	pt3dadd(239.789, 266.302, 70.1065, 0.63787)
	pt3dadd(239.481, 266.276, 70.3739, 0.529844)
	pt3dadd(239.26, 266.263, 70.5723, 0.489494)
	pt3dadd(238.982, 266.318, 70.7757, 0.541728)
	pt3dadd(238.642, 266.429, 70.9221, 0.246886)
	pt3dadd(238.446, 266.583, 71.049, 0.34671)
	pt3dadd(238.137, 266.701, 71.2449, 0.585054)
	pt3dadd(237.872, 266.719, 71.3793, 0.854194)
	pt3dadd(237.216, 266.928, 71.7434, 1.33353)
	pt3dadd(236.489, 266.973, 72.1877, 1.2594)
	pt3dadd(235.52, 267.212, 72.5471, 0.213762)
	pt3dadd(235.202, 267.275, 72.7511, 0.461952)
	pt3dadd(234.893, 267.352, 72.8775, 0.279284)
	pt3dadd(234.582, 267.387, 72.9719, 0.242368)
	pt3dadd(234.206, 267.412, 73.0073, 0.686216)
	pt3dadd(233.841, 267.438, 73.1344, 0.73765)
	pt3dadd(233.484, 267.504, 73.3765, 1.09114)
  }
  dend[145] {pt3dclear()
	pt3dadd(233.484, 267.504, 73.3765, 1.09114)
	pt3dadd(232.99, 267.263, 73.4812, 0.518028)
	pt3dadd(232.524, 267.53, 73.6108, 1.02577)
	pt3dadd(231.741, 267.39, 73.7602, 0.77323)
	pt3dadd(231.123, 267.614, 73.8572, 1.16615)
	pt3dadd(230.544, 267.559, 73.9418, 0.997846)
	pt3dadd(230.13, 267.229, 73.8976, 0.755354)
	pt3dadd(229.759, 267.055, 74.2237, 0.691368)
	pt3dadd(229.417, 266.819, 74.2361, 0.480072)
	pt3dadd(227.502, 266.387, 74.796, 0.562802)
	pt3dadd(227.084, 266.291, 74.8557, 0.546484)
	pt3dadd(226.308, 265.998, 75.0147, 0.946764)
	pt3dadd(225.566, 266.044, 75.275, 0.319662)
	pt3dadd(225.129, 266, 75.3907, 0.592458)
	pt3dadd(224.98, 265.63, 75.3705, 0.548964)
	pt3dadd(224.689, 265.204, 75.4076, 0.541308)
	pt3dadd(224.392, 264.782, 75.4647, 0.77822)
	pt3dadd(224.053, 264.638, 75.6171, 0.743714)
	pt3dadd(223.718, 264.495, 75.7271, 0.606964)
	pt3dadd(223.444, 264.296, 75.8406, 0.585406)
	pt3dadd(222.512, 263.702, 75.9841, 0.452768)
	pt3dadd(222.307, 263.599, 75.8814, 0.48961)
	pt3dadd(221.892, 263.546, 75.8575, 0.2)
	pt3dadd(221.202, 263.23, 76.2183, 0.721604)
	pt3dadd(220.875, 263.062, 76.2906, 1.04744)
	pt3dadd(220.196, 262.65, 76.4457, 0.8911)
	pt3dadd(219.768, 262.188, 76.5254, 0.66739)
	pt3dadd(219.324, 261.926, 76.6477, 0.518004)
	pt3dadd(218.905, 261.921, 76.8227, 0.556914)
	pt3dadd(218.562, 262.063, 76.9397, 0.596728)
	pt3dadd(217.744, 261.982, 77.1732, 0.2)
	pt3dadd(217.55, 262.003, 77.1866, 0.2)
	pt3dadd(213.229, 260.711, 78.3568, 0.432116)
	pt3dadd(212.503, 260.144, 78.4323, 1.12977)
	pt3dadd(211.909, 259.646, 78.5713, 1.50482)
	pt3dadd(211.225, 259.104, 78.4464, 0.452424)
	pt3dadd(210.774, 259.097, 78.324, 0.837446)
	pt3dadd(210.376, 258.977, 78.3699, 0.676644)
	pt3dadd(209.992, 258.891, 78.4463, 0.714248)
	pt3dadd(209.489, 258.572, 78.6915, 0.846936)
	pt3dadd(209.216, 258.368, 78.7822, 0.572274)
	pt3dadd(208.819, 258.19, 78.8378, 0.400776)
	pt3dadd(208.51, 258.044, 78.7843, 0.279112)
	pt3dadd(208.003, 257.82, 78.6535, 0.373516)
	pt3dadd(207.791, 257.581, 78.5823, 0.2)
	pt3dadd(207.519, 257.361, 78.5244, 0.406528)
	pt3dadd(207.204, 257.096, 78.5861, 0.47815)
	pt3dadd(206.737, 256.762, 78.6897, 0.645302)
	pt3dadd(206.1, 256.596, 78.7903, 1.15754)
	pt3dadd(205.669, 256.218, 78.8085, 0.902252)
	pt3dadd(204.77, 255.748, 78.8222, 1.09774)
	pt3dadd(204.106, 255.339, 78.9774, 1.13663)
	pt3dadd(204.025, 254.9, 79.0224, 0.769962)
	pt3dadd(203.109, 254.738, 79.11, 0.685956)
	pt3dadd(202.623, 254.715, 79.1348, 0.527436)
	pt3dadd(201.847, 254.612, 79.3045, 0.782312)
	pt3dadd(201.114, 254.163, 79.4882, 1.13534)
	pt3dadd(200.705, 253.875, 79.6249, 0.859746)
	pt3dadd(199.992, 253.698, 79.9074, 0.693796)
	pt3dadd(199.537, 253.465, 79.8958, 0.2)
	pt3dadd(199.312, 253.435, 79.947, 0.2)
	pt3dadd(199.158, 253.355, 80.106, 0.314404)
	pt3dadd(198.993, 253.283, 80.272, 0.394612)
	pt3dadd(198.479, 253.001, 80.2409, 0.424556)
	pt3dadd(198.095, 252.787, 80.2268, 0.521382)
	pt3dadd(197.73, 252.747, 80.3885, 0.332492)
	pt3dadd(197.415, 252.404, 80.4408, 0.803522)
	pt3dadd(196.999, 252.384, 80.375, 0.769874)
	pt3dadd(196.424, 252.107, 80.3853, 0.969032)
	pt3dadd(195.937, 251.686, 80.507, 1.30058)
	pt3dadd(195.061, 251.488, 80.6574, 0.88945)
	pt3dadd(194.708, 251.442, 80.7511, 0.73609)
	pt3dadd(194.338, 251.229, 80.8712, 0.63751)
	pt3dadd(194.089, 250.924, 81.0301, 0.4616)
	pt3dadd(191.89, 248.987, 81.5676, 0.322696)
	pt3dadd(191.646, 248.892, 81.6325, 0.465036)
	pt3dadd(191.333, 248.795, 81.6653, 0.51944)
	pt3dadd(190.938, 248.673, 81.7704, 0.779926)
	pt3dadd(190.189, 248.57, 81.9979, 0.503068)
	pt3dadd(189.868, 248.392, 82.0193, 0.783252)
	pt3dadd(189.438, 248.069, 82.0261, 1.17225)
	pt3dadd(188.664, 247.686, 82.2997, 0.964432)
	pt3dadd(188.058, 247.745, 82.3033, 0.657482)
	pt3dadd(187.614, 247.625, 82.6193, 0.462952)
	pt3dadd(187.381, 247.656, 82.7123, 0.283522)
	pt3dadd(187.158, 247.603, 82.8213, 0.200802)
	pt3dadd(184.049, 246.644, 83.553, 0.537178)
	pt3dadd(183.821, 246.387, 83.6447, 0.75334)
	pt3dadd(183.394, 246.081, 83.7907, 1.18944)
	pt3dadd(182.602, 245.662, 83.7722, 0.45485)
	pt3dadd(182.374, 245.695, 83.8504, 0.58921)
	pt3dadd(181.907, 245.633, 83.9702, 0.72897)
	pt3dadd(181.649, 245.476, 84.191, 0.45819)
	pt3dadd(177.129, 241.194, 85.2002, 0.6599)
	pt3dadd(176.926, 240.861, 85.2884, 0.555352)
	pt3dadd(176.728, 240.67, 85.3455, 0.48766)
	pt3dadd(176.466, 240.455, 85.411, 0.646032)
	pt3dadd(176.163, 240.003, 85.5747, 0.2)
	pt3dadd(175.882, 239.715, 85.6379, 0.546702)
	pt3dadd(175.583, 239.625, 85.825, 0.604)
	pt3dadd(175.177, 239.122, 86.2787, 0.73415)
	pt3dadd(174.62, 238.657, 86.3433, 1.14371)
  }
}
proc shape3d_74() {
  dend[145] {	pt3dadd(174.188, 238.283, 87.1274, 0.85248)
	pt3dadd(173.174, 237.528, 87.0362, 0.373154)
	pt3dadd(172.902, 237.313, 87.3791, 0.57941)
	pt3dadd(172.536, 237.207, 87.5544, 0.2)
	pt3dadd(172.295, 237.225, 87.5179, 0.2)
	pt3dadd(172.124, 237.192, 87.45, 0.26906)
	pt3dadd(166.574, 236.011, 89.5224, 0.219796)
	pt3dadd(166.358, 236.005, 89.5401, 0.2)
	pt3dadd(166.023, 235.999, 89.4066, 0.218928)
	pt3dadd(165.816, 235.968, 89.519, 0.389524)
	pt3dadd(165.157, 235.742, 89.6272, 0.990094)
	pt3dadd(164.792, 235.601, 89.5971, 0.737542)
	pt3dadd(164.144, 235.036, 89.6115, 0.408706)
	pt3dadd(163.508, 234.912, 89.5974, 0.61703)
	pt3dadd(163.127, 234.785, 89.8202, 0.717738)
	pt3dadd(162.663, 234.865, 90.0493, 0.898828)
	pt3dadd(160.886, 234.542, 90.3751, 0.2)
	pt3dadd(160.585, 234.394, 90.3092, 0.347534)
	pt3dadd(160.25, 234.389, 90.5063, 0.338608)
	pt3dadd(159.958, 234.317, 90.5867, 0.388274)
	pt3dadd(159.178, 234.067, 90.714, 0.843028)
	pt3dadd(157.133, 233.227, 91.0032, 0.670444)
	pt3dadd(156.427, 232.795, 91.1197, 0.872648)
	pt3dadd(156.036, 232.606, 91.1591, 0.625768)
	pt3dadd(155.672, 232.457, 91.1223, 0.830042)
	pt3dadd(154.633, 231.967, 91.0064, 0.2)
	pt3dadd(154.383, 231.727, 91.0254, 0.316256)
	pt3dadd(153.858, 231.439, 91.0575, 0.963916)
	pt3dadd(153.206, 231.002, 91.1893, 1.27717)
	pt3dadd(147.048, 230.618, 91.4553, 0.969972)
	pt3dadd(146.476, 230.372, 92.0912, 0.314366)
	pt3dadd(145.377, 229.814, 92.3206, 0.55779)
	pt3dadd(144.994, 229.725, 92.1168, 0.697354)
	pt3dadd(144.576, 229.617, 92.2657, 0.581836)
	pt3dadd(143.784, 229.434, 92.3551, 0.771896)
	pt3dadd(143.362, 229.397, 92.4692, 0.741074)
	pt3dadd(136.209, 227.082, 94.4669, 0.702604)
	pt3dadd(135.599, 227.017, 94.5919, 0.389976)
	pt3dadd(135.192, 226.545, 94.6858, 0.760254)
	pt3dadd(135.021, 226.363, 94.6092, 0.48579)
	pt3dadd(134.665, 226.184, 94.6227, 0.348876)
	pt3dadd(134.22, 226.063, 95.5119, 0.622854)
	pt3dadd(133.942, 226.195, 95.4328, 0.21343)
	pt3dadd(133.687, 226.207, 95.4713, 0.2)
	pt3dadd(133.533, 226.189, 95.4276, 0.2)
	pt3dadd(133.287, 226.213, 95.4157, 0.232642)
	pt3dadd(133.082, 226.147, 95.5026, 0.460934)
	pt3dadd(132.553, 226.258, 95.8474, 0.895502)
	pt3dadd(132.204, 226.338, 95.9443, 0.806718)
	pt3dadd(129.925, 226.326, 96.1619, 0.53139)
	pt3dadd(129.589, 226.232, 96.2, 0.2)
	pt3dadd(123.193, 227.212, 97.3647, 0.2)
	pt3dadd(122.855, 227.402, 97.7666, 0.786392)
	pt3dadd(122.545, 227.514, 97.8115, 0.558958)
	pt3dadd(122.068, 227.401, 97.8111, 0.648028)
	pt3dadd(117.359, 228.213, 100.631, 0.541324)
	pt3dadd(117.045, 228.526, 100.183, 0.905762)
	pt3dadd(116.211, 228.509, 100.199, 0.269738)
	pt3dadd(112.816, 228.71, 101.77, 1.00908)
	pt3dadd(109.358, 226.801, 102.963, 0.573386)
	pt3dadd(108.936, 226.636, 103.004, 0.860764)
	pt3dadd(106.461, 224.125, 101.291, 0.517986)
	pt3dadd(106.054, 224.13, 101.705, 0.595474)
	pt3dadd(105.367, 223.572, 101.465, 0.927566)
	pt3dadd(103.131, 221.841, 98.7866, 0.2)
	pt3dadd(102.929, 221.625, 98.7584, 0.624834)
  }
  dend_6[76] {pt3dclear()
	pt3dadd(102.929, 221.625, 98.7584, 0.624834)
	pt3dadd(102.82, 221.62, 98.8, 0.2)
  }
  dend[146] {pt3dclear()
	pt3dadd(233.484, 267.504, 73.3765, 1.09114)
	pt3dadd(233.084, 268.54, 73.5241, 0.61186)
	pt3dadd(232.715, 268.664, 73.5634, 0.429542)
	pt3dadd(232.434, 268.678, 73.6508, 0.575592)
	pt3dadd(231.725, 268.825, 73.824, 0.828024)
	pt3dadd(230.302, 270.132, 74.7208, 1.24623)
	pt3dadd(229.381, 270.44, 74.9901, 0.874846)
	pt3dadd(228.67, 270.608, 75.0547, 1.03945)
	pt3dadd(227.894, 271.01, 75.091, 0.834614)
	pt3dadd(227.531, 271.373, 75.1691, 0.758134)
	pt3dadd(227.296, 271.77, 75.3339, 0.64761)
	pt3dadd(227.061, 272.123, 75.4198, 0.4322)
	pt3dadd(226.867, 272.355, 75.4379, 0.317858)
	pt3dadd(226.659, 272.604, 75.3952, 0.2)
	pt3dadd(226.471, 272.844, 75.3521, 0.341816)
	pt3dadd(226.126, 273.118, 75.5825, 0.2)
	pt3dadd(225.854, 273.34, 75.6064, 0.2)
	pt3dadd(225.723, 273.481, 75.6129, 0.2)
	pt3dadd(225.172, 273.961, 75.6902, 0.70826)
	pt3dadd(225.002, 274.224, 75.6844, 0.48914)
	pt3dadd(224.872, 274.499, 75.6844, 0.366682)
	pt3dadd(224.768, 274.713, 75.7337, 0.2)
	pt3dadd(224.718, 274.893, 75.7871, 0.2)
	pt3dadd(224.326, 275.375, 75.7227, 0.430178)
	pt3dadd(224.034, 275.615, 75.9192, 0.81476)
	pt3dadd(223.522, 276.243, 75.8932, 0.904492)
	pt3dadd(223.354, 276.613, 75.9813, 0.751252)
	pt3dadd(223.165, 276.983, 76.3203, 0.879376)
	pt3dadd(222.834, 277.374, 76.4266, 0.34154)
	pt3dadd(222.654, 277.598, 76.501, 0.28872)
	pt3dadd(222.419, 277.766, 76.5833, 0.254338)
	pt3dadd(222.134, 277.852, 76.6091, 0.386366)
	pt3dadd(221.932, 278.021, 76.5854, 0.357638)
	pt3dadd(219.403, 279.861, 77.8549, 0.375854)
	pt3dadd(219.042, 279.933, 77.8723, 0.344974)
	pt3dadd(218.677, 280.159, 78.0341, 0.2)
	pt3dadd(218.391, 280.302, 78.1396, 0.339802)
	pt3dadd(217.504, 280.75, 78.4744, 1.53762)
	pt3dadd(216.883, 280.625, 78.5224, 1.14333)
	pt3dadd(216.22, 280.817, 78.7158, 1.11988)
	pt3dadd(215.633, 281.207, 79.0152, 0.63544)
  }
  dend[147] {pt3dclear()
	pt3dadd(215.633, 281.207, 79.0152, 0.63544)
	pt3dadd(215.529, 281.795, 79.2244, 0.898102)
	pt3dadd(215.157, 282.424, 79.1675, 0.907124)
	pt3dadd(214.781, 282.588, 79.2456, 0.68639)
	pt3dadd(214.458, 282.721, 79.4729, 0.613824)
	pt3dadd(213.779, 283.155, 79.3791, 0.2)
	pt3dadd(213.388, 283.49, 79.4766, 0.39667)
	pt3dadd(213.156, 283.717, 79.6705, 0.67015)
	pt3dadd(212.822, 283.869, 79.7724, 0.611478)
	pt3dadd(212.425, 284.089, 79.8487, 0.573536)
	pt3dadd(212.109, 284.531, 80.1089, 0.5822)
	pt3dadd(211.928, 284.738, 80.2302, 0.534322)
	pt3dadd(211.597, 285.059, 80.046, 0.2)
	pt3dadd(211.534, 285.255, 80.123, 0.2)
	pt3dadd(211.38, 285.522, 80.2416, 0.257878)
	pt3dadd(211.247, 285.685, 80.289, 0.331152)
	pt3dadd(211.167, 285.938, 80.2226, 0.205418)
	pt3dadd(211.013, 286.228, 80.4862, 0.2)
	pt3dadd(210.699, 286.706, 80.8044, 0.608676)
	pt3dadd(210.535, 287.404, 81.0738, 0.949096)
	pt3dadd(210.312, 288.066, 81.4378, 1.37689)
	pt3dadd(210.134, 288.503, 81.7568, 0.971262)
	pt3dadd(209.91, 288.97, 81.8348, 0.65705)
	pt3dadd(209.478, 289.547, 82.0144, 1.03914)
	pt3dadd(209.457, 290.248, 82.3583, 0.888396)
	pt3dadd(209.051, 290.556, 82.5513, 0.717656)
	pt3dadd(208.482, 291.014, 83.0171, 1.08135)
	pt3dadd(208.583, 291.511, 83.2281, 0.2)
	pt3dadd(208.34, 291.87, 83.616, 0.649434)
	pt3dadd(208.12, 292.777, 83.9352, 1.00129)
	pt3dadd(208.032, 293.381, 84.4601, 0.899696)
	pt3dadd(207.771, 293.883, 84.7274, 0.307356)
	pt3dadd(207.654, 294.023, 84.8149, 0.2)
	pt3dadd(207.565, 294.32, 84.8438, 0.2)
	pt3dadd(207.366, 294.443, 84.8996, 0.302726)
	pt3dadd(207.162, 294.584, 84.9893, 0.260598)
	pt3dadd(206.823, 294.831, 85.4912, 0.611666)
	pt3dadd(206.7, 295.045, 85.7343, 0.599178)
	pt3dadd(206.415, 295.46, 85.9608, 0.699566)
	pt3dadd(205.849, 295.911, 86.1099, 0.887392)
	pt3dadd(205.571, 296.291, 86.2273, 0.620106)
	pt3dadd(205.416, 296.57, 86.3396, 0.216416)
	pt3dadd(205.215, 296.838, 86.4679, 0.379768)
	pt3dadd(204.992, 297.132, 86.5706, 0.253194)
	pt3dadd(204.804, 297.415, 86.6843, 0.2)
	pt3dadd(204.405, 297.974, 87.0586, 0.725296)
	pt3dadd(204.505, 298.384, 87.2206, 0.562896)
	pt3dadd(204.507, 298.788, 87.2741, 0.577118)
	pt3dadd(204.292, 299.198, 87.2934, 0.596288)
	pt3dadd(203.602, 299.879, 87.6099, 0.882514)
	pt3dadd(203.163, 300.206, 88.0116, 0.85869)
	pt3dadd(202.583, 301.028, 88.328, 1.17666)
	pt3dadd(202.228, 301.557, 88.3696, 0.830072)
	pt3dadd(202.021, 301.905, 88.4882, 0.755058)
	pt3dadd(201.895, 302.292, 88.6352, 0.649944)
	pt3dadd(201.452, 302.836, 88.9856, 0.894318)
	pt3dadd(201.192, 303.343, 89.2626, 0.79858)
	pt3dadd(200.97, 303.523, 89.6214, 0.776178)
	pt3dadd(200.922, 303.761, 89.8878, 0.524566)
	pt3dadd(200.676, 304.105, 90.2674, 0.331202)
	pt3dadd(200.584, 304.383, 90.3375, 0.2)
	pt3dadd(200.43, 304.669, 90.4557, 0.433164)
	pt3dadd(200.381, 304.914, 90.6138, 0.510114)
	pt3dadd(200.083, 305.167, 90.8531, 0.37009)
	pt3dadd(199.788, 305.37, 90.9038, 0.497138)
	pt3dadd(199.516, 305.473, 91.0835, 0.526452)
	pt3dadd(199.263, 305.63, 91.3199, 0.519098)
	pt3dadd(198.686, 305.881, 91.6606, 0.83424)
	pt3dadd(198.387, 306.053, 91.82, 0.523608)
	pt3dadd(198.166, 306.425, 92.0585, 0.618372)
	pt3dadd(197.915, 306.57, 91.811, 0.482058)
	pt3dadd(196.967, 307.528, 93.0517, 0.373694)
	pt3dadd(196.839, 307.782, 93.0321, 0.2)
	pt3dadd(196.798, 308.017, 93.0369, 0.296592)
	pt3dadd(196.684, 308.165, 93.2504, 0.2323)
	pt3dadd(196.461, 308.266, 93.3614, 0.2)
	pt3dadd(196.195, 308.414, 93.482, 0.40352)
	pt3dadd(195.95, 308.618, 93.6722, 0.469354)
	pt3dadd(195.648, 308.681, 93.8177, 0.487924)
	pt3dadd(194.997, 308.957, 94.1876, 0.746164)
	pt3dadd(194.77, 309.015, 94.5406, 0.71892)
	pt3dadd(194.48, 309.204, 94.8069, 0.543958)
	pt3dadd(194.131, 309.526, 94.9965, 0.2)
	pt3dadd(192.393, 313.046, 97.1303, 0.2)
	pt3dadd(192.35, 313.143, 97.5157, 0.557214)
	pt3dadd(192.158, 313.439, 98.1836, 0.2)
	pt3dadd(192.223, 313.927, 98.6636, 0.689724)
	pt3dadd(191.949, 314.466, 99.056, 1.10062)
	pt3dadd(191.782, 314.398, 99.6156, 0.834144)
	pt3dadd(191.474, 314.477, 100.019, 0.47983)
	pt3dadd(191.379, 314.538, 100.21, 0.408746)
  }
}
proc shape3d_75() {
  dend[147] {	pt3dadd(191.144, 314.65, 100.617, 0.411288)
	pt3dadd(191.084, 314.639, 100.821, 0.449274)
	pt3dadd(190.184, 315.046, 104.142, 0.2)
	pt3dadd(190.2, 315.138, 104.365, 0.280856)
	pt3dadd(190.079, 315.197, 104.804, 0.586116)
	pt3dadd(190.099, 315.314, 105.226, 0.650638)
	pt3dadd(189.983, 315.621, 105.71, 0.2)
	pt3dadd(190.153, 316.008, 106.001, 0.795284)
	pt3dadd(190.022, 316.198, 106.6, 0.698234)
	pt3dadd(190.023, 316.423, 106.777, 0.410208)
	pt3dadd(190.072, 316.586, 107.011, 0.491356)
	pt3dadd(190.002, 316.934, 107.402, 0.555762)
	pt3dadd(190.102, 316.888, 107.704, 0.589402)
	pt3dadd(190.112, 316.836, 108.314, 0.593032)
	pt3dadd(190.253, 317.127, 108.954, 0.72815)
	pt3dadd(190.291, 317.71, 109.183, 1.09293)
	pt3dadd(190.432, 317.753, 109.675, 0.811762)
	pt3dadd(190.517, 317.751, 110.061, 0.723952)
  }
  dend_6[77] {pt3dclear()
	pt3dadd(190.517, 317.751, 110.061, 0.723952)
	pt3dadd(190.517, 317.817, 110.427, 0.434842)
  }
  dend[148] {pt3dclear()
	pt3dadd(215.633, 281.207, 79.0152, 0.63544)
	pt3dadd(176.45, 264.239, 85.4502, 0.715078)
	pt3dadd(175.991, 264.167, 85.5458, 0.939956)
	pt3dadd(175.296, 264.198, 85.4451, 0.435922)
	pt3dadd(174.958, 263.996, 85.4505, 0.574666)
	pt3dadd(174.723, 263.318, 85.4062, 1.35459)
	pt3dadd(173.828, 262.918, 85.4971, 0.564828)
	pt3dadd(173.571, 262.785, 85.5742, 0.369218)
	pt3dadd(173.302, 262.651, 85.5929, 0.2)
	pt3dadd(172.212, 261.917, 85.6749, 0.427248)
	pt3dadd(172.026, 261.731, 85.6682, 0.38925)
	pt3dadd(171.466, 261.519, 85.6069, 0.674664)
	pt3dadd(171.126, 261.395, 85.7423, 0.578956)
	pt3dadd(170.682, 260.707, 85.7613, 0.943656)
	pt3dadd(170.12, 260.147, 86.0405, 0.960172)
	pt3dadd(169.654, 259.777, 86.0549, 0.42282)
	pt3dadd(169.252, 259.445, 85.9746, 0.2)
	pt3dadd(168.969, 259.293, 85.9639, 0.2)
	pt3dadd(168.627, 259.202, 85.9004, 0.350628)
	pt3dadd(168.313, 258.977, 86.1575, 0.3506)
	pt3dadd(168.013, 258.786, 86.2325, 0.427132)
	pt3dadd(167.736, 258.584, 86.2237, 0.226202)
	pt3dadd(167.446, 258.447, 86.248, 0.411256)
	pt3dadd(167.057, 257.96, 86.3756, 0.94378)
	pt3dadd(166.881, 257.612, 86.4095, 0.260114)
	pt3dadd(166.572, 257.227, 86.5719, 0.696396)
	pt3dadd(166.511, 257.056, 86.7972, 0.570466)
	pt3dadd(166.091, 256.617, 86.6623, 0.309302)
	pt3dadd(165.677, 256.332, 86.6538, 0.565594)
	pt3dadd(165.319, 256.167, 86.7116, 0.625488)
	pt3dadd(164.78, 256.2, 86.7478, 0.732224)
	pt3dadd(164.161, 256.199, 86.7278, 0.775878)
	pt3dadd(163.266, 255.611, 86.9105, 0.2)
	pt3dadd(163.03, 255.349, 86.9138, 0.2)
	pt3dadd(162.652, 255.196, 86.9074, 0.448936)
	pt3dadd(162.443, 255.24, 86.9548, 0.239086)
	pt3dadd(162.109, 255.255, 87.1292, 0.311478)
	pt3dadd(161.896, 255.154, 87.3085, 0.66952)
	pt3dadd(153.26, 251.87, 88.1882, 0.31402)
	pt3dadd(152.974, 251.66, 88.1669, 0.862102)
	pt3dadd(152.639, 251.402, 88.1649, 0.634094)
	pt3dadd(152.287, 251.157, 88.1739, 0.757674)
	pt3dadd(151.911, 251.259, 88.0592, 0.490584)
	pt3dadd(151.199, 250.848, 88.3019, 0.490754)
	pt3dadd(150.845, 250.755, 88.4778, 0.220648)
	pt3dadd(150.527, 250.578, 88.4922, 0.263866)
	pt3dadd(150.41, 250.417, 88.4896, 0.342654)
	pt3dadd(150.151, 250.152, 88.5871, 0.35519)
	pt3dadd(149.951, 249.918, 88.8018, 0.571168)
	pt3dadd(149.723, 249.741, 89.2035, 0.470636)
	pt3dadd(145.395, 248.273, 89.804, 0.461548)
	pt3dadd(144.821, 248.291, 89.8137, 0.97112)
	pt3dadd(144.401, 248.416, 89.8845, 0.355102)
	pt3dadd(144.128, 248.331, 89.8644, 0.298912)
	pt3dadd(143.648, 248.077, 89.8678, 0.91537)
	pt3dadd(134.601, 244.118, 91.278, 1.01889)
	pt3dadd(131.124, 242.167, 92.9106, 0.950928)
	pt3dadd(130.581, 241.528, 93.0497, 1.03773)
	pt3dadd(129.7, 241.244, 93.363, 0.2)
	pt3dadd(129.55, 241.122, 93.4815, 0.2)
	pt3dadd(124.817, 239.022, 94.2313, 0.900804)
	pt3dadd(119.153, 234.278, 96.6, 0.2)
	pt3dadd(119.012, 234.225, 96.6161, 0.703598)
	pt3dadd(118.768, 233.834, 96.6048, 0.856464)
	pt3dadd(118.362, 233.092, 96.6414, 0.78124)
	pt3dadd(118.139, 232.747, 96.6517, 0.683472)
	pt3dadd(117.955, 232.271, 96.5414, 0.38047)
	pt3dadd(117.903, 232.074, 96.3323, 0.282892)
	pt3dadd(117.038, 230.031, 97.4, 0.2)
	pt3dadd(117.131, 229.858, 97.395, 0.57298)
  }
  dend_6[78] {pt3dclear()
	pt3dadd(117.131, 229.858, 97.395, 0.57298)
	pt3dadd(117.171, 229.547, 97.4753, 0.611692)
  }
}
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()
  shape3d_37()
  shape3d_38()
  shape3d_39()
  shape3d_40()
  shape3d_41()
  shape3d_42()
  shape3d_43()
  shape3d_44()
  shape3d_45()
  shape3d_46()
  shape3d_47()
  shape3d_48()
  shape3d_49()
  shape3d_50()
  shape3d_51()
  shape3d_52()
  shape3d_53()
  shape3d_54()
  shape3d_55()
  shape3d_56()
  shape3d_57()
  shape3d_58()
  shape3d_59()
  shape3d_60()
  shape3d_61()
  shape3d_62()
  shape3d_63()
  shape3d_64()
  shape3d_65()
  shape3d_66()
  shape3d_67()
  shape3d_68()
  shape3d_69()
  shape3d_70()
  shape3d_71()
  shape3d_72()
  shape3d_73()
  shape3d_74()
  shape3d_75()
}

objref all, somatic, basal, dendritic_5, dendritic_6
objref apical, obAp, bas1, bas2, bas3, bas4, bas5, bas6
objref dendritic

proc subsets() { local i
  objref all, somatic, basal, dendritic_5, dendritic_6
  all = new SectionList()
    soma all.append()
    for i=0, 148 dend[i] all.append()
    for i=0, 57 dend_5[i] all.append()
    for i=0, 78 dend_6[i] all.append()

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

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

  dendritic_5 = new SectionList()
    for i=0, 57 dend_5[i] dendritic_5.append()

  dendritic_6 = new SectionList()
    for i=0, 78 dend_6[i] dendritic_6.append()

    // SectionLists added manually by Christina Weaver, Aug 19 '11
    apical = new SectionList()  
    dend[149] apical.subtree()  // redefined after oblique correction.
    
    // error!  should be part of the apical tree.  cut dend[62] manually 
    // to account for this.
    obAp = new SectionList()
    dend[0] obAp.subtree()
    
    bas1 = new SectionList()
    dend[40] bas1.subtree()

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

    bas3 = new SectionList()
    dend[144] bas3.subtree()

    bas4 = new SectionList()
    dend[19] bas4.subtree()

    bas5 = new SectionList()
    dend[18] bas5.subtree()

    bas6 = new SectionList()
    dend[48] bas6.subtree()
    
    basal = new SectionList()
    forsec bas1 { basal.append() }
    forsec bas2 { basal.append() }
    forsec bas3 { basal.append() }
    forsec bas4 { basal.append() }
    forsec bas5 { basal.append() }
    forsec bas6 { basal.append() }

    dendritic = new SectionList()    
    forsec "dend"  {
        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...