Multiplication by NMDA receptors in Direction Selective Ganglion cells (Poleg-Polsky & Diamond 2016)

 Download zip file   Auto-launch 
Help downloading and running models
Accession:189347
The model demonstrates how signal amplification with NMDARs depends on the synaptic environment. When direction selectivity (DS) detection is mediated by DS inhibition, NMDARs multiply other synaptic conductances. In the case of DS tuned excitation, NMDARs contribute additively.
Reference:
1 . Poleg-Polsky A, Diamond JS (2016) NMDA Receptors Multiplicatively Scale Visual Signals and Enhance Directional Motion Discrimination in Retinal Ganglion Cells. Neuron 89:1277-1290 [PubMed]
Model Information (Click on a link to find other models with that property)
Model Type: Dendrite; Neuron or other electrically excitable cell; Realistic Network; Synapse;
Brain Region(s)/Organism:
Cell Type(s): Retina ganglion GLU cell;
Channel(s): I K; I Na,t;
Gap Junctions:
Receptor(s): AMPA; NMDA; GabaA; Nicotinic;
Gene(s):
Transmitter(s): Glutamate; Acetylcholine; Gaba;
Simulation Environment: NEURON;
Model Concept(s): Direction Selectivity; Synaptic Integration; Vision;
Implementer(s): Polsky, Alon [alonpol at tx.technion.ac.il];
Search NeuronDB for information about:  Retina ganglion GLU cell; Nicotinic; GabaA; AMPA; NMDA; I Na,t; I K; Acetylcholine; Gaba; Glutamate;
numdendskip=1
begintemplate DSGC
	external numdendskip
	public soma,dend,dends ,somas ,all,ON,OFF ,SACinhibsyn,numsyn,BIPsyn,SACexcsyn,countON
    objref dends,all ,ON,OFF,somas
	objref  SACinhibsyn[2],BIPsyn[2],SACexcsyn[2]
	 
	soma3z=0
	on3z=-10
	off3z=-200
	fix1=-200


create soma,dend[350]

proc topol() { local i
  create soma,dend[350]
  for i = 2, 4 connect dend[i](0), dend[i-1](1)
  connect dend[1](0), soma(1)
  connect dend[5](0), dend[2](1)
  for i = 6, 12 connect dend[i](0), dend[i-1](1)
  connect dend[13](0), dend[3](1)
  for i = 14, 16 connect dend[i](0), dend[i-1](1)
  connect dend[17](0), dend[1](1)
  for i = 18, 23 connect dend[i](0), dend[i-1](1)
  connect dend[24](0), soma(1)
  for i = 25, 34 connect dend[i](0), dend[i-1](1)
  connect dend[35](0), soma(0)
  for i = 36, 47 connect dend[i](0), dend[i-1](1)
  connect dend[48](0), dend[6](1)
  for i = 49, 52 connect dend[i](0), dend[i-1](1)
  for i = 53, 54 connect dend[i](0), dend[i-46](1)
  connect dend[55](0), dend[54](1)
  for i = 56, 58 connect dend[i](0), dend[i-47](1)
  connect dend[59](0), dend[5](1)
  for i = 60, 62 connect dend[i](0), dend[i-1](1)
  connect dend[63](0), dend[13](1)
  for i = 64, 67 connect dend[i](0), dend[i-1](1)
  for i = 68, 69 connect dend[i](0), dend[i-54](1)
  for i = 70, 71 connect dend[i](0), dend[i-52](1)
  connect dend[72](0), dend[22](1)
  connect dend[73](0), dend[21](1)
  for i = 74, 79 connect dend[i](0), dend[i-1](1)
  connect dend[80](0), dend[20](1)
  for i = 81, 83 connect dend[i](0), dend[i-1](1)
  connect dend[84](0), dend[17](1)
  for i = 85, 92 connect dend[i](0), dend[i-1](1)
  connect dend[93](0), dend[33](1)
  connect dend[94](0), dend[32](1)
  connect dend[95](0), dend[31](1)
  for i = 96, 98 connect dend[i](0), dend[i-1](1)
  connect dend[99](0), dend[30](1)
  connect dend[100](0), dend[27](1)
  connect dend[101](0), dend[100](1)
  connect dend[102](0), dend[28](1)
  connect dend[103](0), dend[26](1)
  connect dend[104](0), dend[25](1)
  for i = 105, 106 connect dend[i](0), dend[i-1](1)
  connect dend[107](0), dend[24](1)
  for i = 108, 119 connect dend[i](0), dend[i-1](1)
  for i = 120, 121 connect dend[i](0), dend[29](1)
  connect dend[122](0), dend[36](1)
  connect dend[123](0), dend[122](1)
  connect dend[124](0), dend[37](1)
  for i = 125, 128 connect dend[i](0), dend[i-1](1)
  for i = 129, 131 connect dend[i](0), dend[i-91](1)
  for i = 132, 138 connect dend[i](0), dend[i-1](1)
  connect dend[139](0), dend[43](1)
  connect dend[140](0), dend[139](1)
  connect dend[141](0), dend[42](1)
  connect dend[142](0), dend[41](1)
  for i = 143, 144 connect dend[i](0), dend[i-99](1)
  connect dend[145](0), dend[45](1)
  for i = 146, 147 connect dend[i](0), dend[i-1](1)
  connect dend[148](0), dend[46](1)
  connect dend[149](0), dend[35](1)
  for i = 150, 156 connect dend[i](0), dend[i-1](1)
  connect dend[157](0), dend[48](1)
  for i = 158, 165 connect dend[i](0), dend[i-1](1)
  connect dend[166](0), dend[50](1)
  connect dend[167](0), dend[166](1)
  connect dend[168](0), dend[51](1)
  connect dend[169](0), dend[49](1)
  connect dend[170](0), dend[54](1)
  for i = 171, 172 connect dend[i](0), dend[i-1](1)
  for i = 173, 174 connect dend[i](0), dend[i-113](1)
  connect dend[175](0), dend[59](1)
  connect dend[176](0), dend[63](1)
  for i = 177, 178 connect dend[i](0), dend[i-112](1)
  connect dend[179](0), dend[64](1)
  for i = 180, 181 connect dend[i](0), dend[i-106](1)
  for i = 182, 183 connect dend[i](0), dend[i-105](1)
  for i = 184, 188 connect dend[i](0), dend[i-1](1)
  connect dend[189](0), dend[76](1)
  connect dend[190](0), dend[73](1)
  for i = 191, 193 connect dend[i](0), dend[i-1](1)
  for i = 194, 195 connect dend[i](0), dend[i-113](1)
  connect dend[196](0), dend[80](1)
  connect dend[197](0), dend[91](1)
  connect dend[198](0), dend[89](1)
  for i = 199, 200 connect dend[i](0), dend[i-112](1)
  connect dend[201](0), dend[200](1)
  connect dend[202](0), dend[90](1)
  connect dend[203](0), dend[86](1)
  for i = 204, 205 connect dend[i](0), dend[i-1](1)
  connect dend[206](0), dend[85](1)
  connect dend[207](0), dend[84](1)
  connect dend[208](0), dend[97](1)
  connect dend[209](0), dend[96](1)
  connect dend[210](0), dend[95](1)
  connect dend[211](0), dend[210](1)
  connect dend[212](0), dend[100](1)
  connect dend[213](0), dend[212](1)
  connect dend[214](0), dend[104](1)
  for i = 215, 217 connect dend[i](0), dend[i-1](1)
  connect dend[218](0), dend[105](1)
  for i = 219, 220 connect dend[i](0), dend[i-1](1)
  connect dend[221](0), dend[114](1)
  connect dend[222](0), dend[116](1)
  connect dend[223](0), dend[118](1)
  connect dend[224](0), dend[117](1)
  connect dend[225](0), dend[112](1)
  connect dend[226](0), dend[225](1)
  connect dend[227](0), dend[111](1)
  connect dend[228](0), dend[113](1)
  connect dend[229](0), dend[115](1)
  connect dend[230](0), dend[108](1)
  connect dend[231](0), dend[107](1)
  for i = 232, 233 connect dend[i](0), dend[i-123](1)
  connect dend[234](0), dend[116](1)
  connect dend[235](0), dend[122](1)
  for i = 236, 243 connect dend[i](0), dend[i-1](1)
  for i = 244, 245 connect dend[i](0), dend[i-120](1)
  for i = 246, 247 connect dend[i](0), dend[i-1](1)
  for i = 248, 249 connect dend[i](0), dend[i-122](1)
  connect dend[250](0), dend[134](1)
  for i = 251, 252 connect dend[i](0), dend[i-115](1)
  for i = 253, 255 connect dend[i](0), dend[i-122](1)
  connect dend[256](0), dend[135](1)
  connect dend[257](0), dend[139](1)
  for i = 258, 259 connect dend[i](0), dend[i-113](1)
  for i = 260, 262 connect dend[i](0), dend[i-109](1)
  connect dend[263](0), dend[262](1)
  connect dend[264](0), dend[155](1)
  connect dend[265](0), dend[154](1)
  connect dend[266](0), dend[150](1)
  connect dend[267](0), dend[149](1)
  for i = 268, 275 connect dend[i](0), dend[i-111](1)
  connect dend[276](0), dend[166](1)
  connect dend[277](0), dend[171](1)
  connect dend[278](0), dend[170](1)
  connect dend[279](0), dend[278](1)
  connect dend[280](0), dend[183](1)
  connect dend[281](0), dend[185](1)
  connect dend[282](0), dend[184](1)
  for i = 283, 284 connect dend[i](0), dend[i-97](1)
  connect dend[285](0), dend[190](1)
  connect dend[286](0), dend[192](1)
  connect dend[287](0), dend[191](1)
  connect dend[288](0), dend[200](1)
  for i = 289, 290 connect dend[i](0), dend[i-86](1)
  for i = 291, 292 connect dend[i](0), dend[i-1](1)
  connect dend[293](0), dend[210](1)
  connect dend[294](0), dend[293](1)
  connect dend[295](0), dend[212](1)
  connect dend[296](0), dend[216](1)
  connect dend[297](0), dend[296](1)
  connect dend[298](0), dend[215](1)
  connect dend[299](0), dend[214](1)
  connect dend[300](0), dend[219](1)
  connect dend[301](0), dend[218](1)
  for i = 302, 303 connect dend[i](0), dend[i-1](1)
  connect dend[304](0), dend[225](1)
  for i = 305, 310 connect dend[i](0), dend[i-1](1)
  connect dend[311](0), dend[227](1)
  connect dend[312](0), dend[242](1)
  connect dend[313](0), dend[241](1)
  connect dend[314](0), dend[240](1)
  connect dend[315](0), dend[239](1)
  connect dend[316](0), dend[238](1)
  connect dend[317](0), dend[237](1)
  connect dend[318](0), dend[236](1)
  connect dend[319](0), dend[235](1)
  for i = 320, 321 connect dend[i](0), dend[i-75](1)
  connect dend[322](0), dend[262](1)
  connect dend[323](0), dend[322](1)
  connect dend[324](0), dend[278](1)
  for i = 325, 326 connect dend[i](0), dend[i-35](1)
  connect dend[327](0), dend[293](1)
  connect dend[328](0), dend[327](1)
  connect dend[329](0), dend[296](1)
  connect dend[330](0), dend[329](1)
  connect dend[331](0), dend[302](1)
  connect dend[332](0), dend[331](1)
  connect dend[333](0), dend[301](1)
  for i = 334, 335 connect dend[i](0), dend[i-26](1)
  connect dend[336](0), dend[307](1)
  connect dend[337](0), dend[336](1)
  connect dend[338](0), dend[306](1)
  connect dend[339](0), dend[305](1)
  connect dend[340](0), dend[304](1)
  connect dend[341](0), dend[322](1)
  for i = 342, 343 connect dend[i](0), dend[i-15](1)
  for i = 344, 345 connect dend[i](0), dend[i-1](1)
  connect dend[346](0), dend[329](1)
  connect dend[347](0), dend[331](1)
  connect dend[348](0), dend[336](1)
  connect dend[349](0), dend[349-6](1)
  connect dend[0](0), dend[350-6](1)
  basic_shape()
}
proc shape3d_1() {
  soma {pt3dclear()
	pt3dadd(104.59, 123.486, 50, 0.878906)
	pt3dadd(105.007, 122.963, 45.9626, 6.14065)
	pt3dadd(104.594, 122.607, 46.3301, 7.7364)
	pt3dadd(104.368, 122.2, 46.4825, 8.31975)
	pt3dadd(104.245, 121.772, 46.541, 8.35494)
	pt3dadd(105.518, 119.897, 47.1442, 10.6233)
	pt3dadd(103.711, 119.531, 50, 0.878906)
  }
  dend[1] {pt3dclear()
	pt3dadd(103.711, 119.531, 50, 0.878906)
	pt3dadd(103.845, 118.294, 46.9907, 11.5426)
	pt3dadd(103.378, 117.803, 47.6241, 11.0034)
	pt3dadd(103.564, 117.224, 47.7047, 11.1072)
	pt3dadd(103.216, 116.819, 47.4268, 11.5501)
	pt3dadd(101.362, 117.338, 45.2402, 7.199)
	pt3dadd(100.17, 117.295, 44.8247, 7.01648)
	pt3dadd(98.9956, 115.956, 45.575, 7.41387)
	pt3dadd(101.102, 114.464, 47.9798, 11.8)
  }
  dend[2] {pt3dclear()
	pt3dadd(101.102, 114.464, 47.9798, 11.8)
	pt3dadd(100.195, 113.818, 50, 0.878906)
  }
  dend[3] {pt3dclear()
	pt3dadd(100.195, 113.818, 50, 0.878906)
	pt3dadd(99.7559, 112.939, 50, 0.878906)
	pt3dadd(99.7559, 112.061, 50, 0.878906)
	pt3dadd(99.7559, 111.182, 50, 0.878906)
  }
  dend[4] {pt3dclear()
	pt3dadd(99.7559, 111.182, 50, 0.878906)
	pt3dadd(100.635, 112.061, 52, 0.878906)
	pt3dadd(101.514, 111.621, 52, 0.878906)
	pt3dadd(102.393, 112.5, 54, 0.878906)
  }
  dend[5] {pt3dclear()
	pt3dadd(100.195, 113.818, 50, 0.878906)
	pt3dadd(100.195, 113.379, 50, 0)
	pt3dadd(100.635, 113.379, 50, 0)
	pt3dadd(101.074, 113.379, 49, 0)
	pt3dadd(101.514, 113.379, 49, 0)
	pt3dadd(101.953, 113.379, 49, 0)
	pt3dadd(102.393, 113.379, 48, 0)
	pt3dadd(102.832, 113.379, 48, 0)
	pt3dadd(103.271, 113.379, 48, 0)
	pt3dadd(103.711, 113.379, 47, 0)
	pt3dadd(104.15, 113.818, 46, 0)
	pt3dadd(104.59, 113.818, 46, 0)
	pt3dadd(105.029, 113.818, 46, 0)
	pt3dadd(105.469, 113.818, 45, 0)
	pt3dadd(105.908, 113.818, 45, 0)
	pt3dadd(106.348, 113.818, 45, 0)
	pt3dadd(106.787, 113.818, 44, 0)
	pt3dadd(107.227, 113.818, 43, 0)
	pt3dadd(107.666, 113.818, 43, 0)
	pt3dadd(108.105, 113.818, 43, 0)
  }
  dend[6] {pt3dclear()
	pt3dadd(108.105, 113.818, 43, 0)
	pt3dadd(108.545, 113.379, 43, 0)
	pt3dadd(108.105, 113.818, 43, 0)
	pt3dadd(107.666, 113.379, 43, 0)
	pt3dadd(107.227, 112.939, 43, 0)
	pt3dadd(106.787, 112.5, 43, 0)
	pt3dadd(106.787, 112.061, 43, 0)
	pt3dadd(106.348, 111.621, 43, 0)
	pt3dadd(106.348, 111.182, 43, 0)
	pt3dadd(105.908, 110.742, 43, 0)
	pt3dadd(105.469, 110.303, 43, 0)
	pt3dadd(105.029, 109.863, 43, 0)
	pt3dadd(104.59, 109.424, 43, 0)
	pt3dadd(104.15, 108.984, 43, 0)
	pt3dadd(103.711, 108.545, 43, 0)
	pt3dadd(103.711, 108.105, 43, 0)
	pt3dadd(103.271, 108.105, 43, 0)
	pt3dadd(102.832, 107.666, 42, 0)
	pt3dadd(102.832, 107.227, 42, 0)
	pt3dadd(102.832, 106.787, 42, 0)
	pt3dadd(102.393, 106.348, 41, 0)
	pt3dadd(102.393, 105.908, 41, 0)
	pt3dadd(102.393, 105.469, 41, 0)
	pt3dadd(102.393, 105.029, 41, 0)
	pt3dadd(102.393, 104.59, 41, 0)
	pt3dadd(101.953, 105.029, 40, 0)
	pt3dadd(101.514, 105.029, 40, 0)
	pt3dadd(101.074, 104.59, 39, 0)
	pt3dadd(100.635, 104.15, 39, 0)
	pt3dadd(100.195, 103.711, 39, 0)
	pt3dadd(99.7559, 103.271, 39, 0)
	pt3dadd(99.3164, 102.832, 39, 0)
	pt3dadd(99.3164, 102.393, 39, 0)
	pt3dadd(98.877, 101.953, 39, 0)
	pt3dadd(98.877, 101.514, 39, 0)
	pt3dadd(98.877, 101.074, 39, 0)
	pt3dadd(98.877, 100.635, 39, 0)
	pt3dadd(98.877, 100.195, 39, 0)
	pt3dadd(98.4375, 99.7559, 39, 0)
	pt3dadd(98.4375, 99.3164, 39, 0)
	pt3dadd(97.998, 98.877, 40, 0)
	pt3dadd(97.5586, 98.4375, 40, 0)
	pt3dadd(97.1191, 97.998, 40, 0)
	pt3dadd(96.6797, 97.5586, 40, 0)
	pt3dadd(96.6797, 97.1191, 40, 0)
	pt3dadd(96.2402, 96.6797, 40, 0)
	pt3dadd(95.8008, 96.2402, 40, 0)
	pt3dadd(95.3613, 95.8008, 40, 0)
	pt3dadd(94.9219, 95.3613, 40, 0)
	pt3dadd(94.9219, 94.9219, 40, 0)
	pt3dadd(94.4824, 94.4824, 40, 0)
	pt3dadd(94.4824, 94.043, 40, 0)
	pt3dadd(94.4824, 93.6035, 40, 0)
	pt3dadd(94.043, 93.1641, 39, 0)
  }
  dend[7] {pt3dclear()
	pt3dadd(94.043, 93.1641, 39, 0)
	pt3dadd(93.6035, 92.7246, 39, 0)
	pt3dadd(93.1641, 92.7246, 39, 0)
	pt3dadd(92.7246, 92.7246, 38, 0)
	pt3dadd(92.2852, 92.7246, 38, 0)
	pt3dadd(91.8457, 92.7246, 38, 0)
	pt3dadd(91.4062, 92.2852, 38, 0)
	pt3dadd(91.4062, 91.8457, 38, 0)
	pt3dadd(91.4062, 91.4062, 38, 0)
	pt3dadd(91.4062, 90.9668, 38, 0)
	pt3dadd(91.4062, 90.5273, 38, 0)
	pt3dadd(91.4062, 90.0879, 38, 0)
	pt3dadd(90.9668, 89.6484, 38, 0)
	pt3dadd(90.5273, 89.209, 38, 0)
	pt3dadd(90.0879, 89.209, 38, 0)
	pt3dadd(89.6484, 89.209, 38, 0)
	pt3dadd(89.209, 89.209, 38, 0)
	pt3dadd(88.7695, 89.209, 38, 0)
	pt3dadd(88.3301, 89.209, 38, 0)
	pt3dadd(87.8906, 89.6484, 37, 0)
	pt3dadd(87.4512, 89.209, 37, 0)
	pt3dadd(87.0117, 88.7695, 37, 0)
	pt3dadd(86.5723, 88.3301, 37, 0)
	pt3dadd(86.5723, 87.8906, 37, 0)
	pt3dadd(86.5723, 87.4512, 37, 0)
	pt3dadd(86.1328, 87.0117, 37, 0)
	pt3dadd(85.6934, 86.5723, 37, 0)
	pt3dadd(85.2539, 86.1328, 37, 0)
  }
  dend[8] {pt3dclear()
	pt3dadd(85.2539, 86.1328, 37, 0)
	pt3dadd(84.8145, 85.6934, 37, 0)
	pt3dadd(84.375, 85.6934, 37, 0)
	pt3dadd(83.9355, 85.2539, 37, 0)
	pt3dadd(83.4961, 84.8145, 37, 0)
	pt3dadd(83.0566, 84.8145, 37, 0)
	pt3dadd(82.6172, 84.375, 37, 0)
	pt3dadd(82.1777, 83.9355, 37, 0)
	pt3dadd(81.7383, 83.9355, 38, 0)
	pt3dadd(81.2988, 83.4961, 38, 0)
	pt3dadd(80.8594, 83.4961, 38, 0)
	pt3dadd(80.4199, 83.0566, 38, 0)
	pt3dadd(79.9805, 83.4961, 38, 0)
	pt3dadd(79.541, 83.4961, 38, 0)
  }
  dend[9] {pt3dclear()
	pt3dadd(79.541, 83.4961, 38, 0)
	pt3dadd(79.1016, 83.4961, 38, 0)
	pt3dadd(78.6621, 83.9355, 39, 0)
	pt3dadd(78.2227, 83.9355, 39, 0)
	pt3dadd(77.7832, 83.9355, 39, 0)
	pt3dadd(77.3438, 83.9355, 39, 0)
	pt3dadd(76.9043, 83.9355, 39, 0)
	pt3dadd(76.4648, 83.9355, 39, 0)
	pt3dadd(76.0254, 83.9355, 39, 0)
	pt3dadd(75.5859, 83.9355, 39, 0)
	pt3dadd(75.1465, 84.375, 39, 0)
	pt3dadd(74.707, 84.375, 39, 0)
	pt3dadd(74.2676, 84.375, 40, 0)
	pt3dadd(73.8281, 84.375, 40, 0)
	pt3dadd(73.3887, 84.375, 40, 0)
	pt3dadd(72.9492, 84.375, 41, 0)
	pt3dadd(72.5098, 84.375, 41, 0)
	pt3dadd(72.0703, 84.375, 41, 0)
	pt3dadd(71.6309, 84.375, 41, 0)
	pt3dadd(71.1914, 84.375, 41, 0)
	pt3dadd(70.752, 84.375, 41, 0)
	pt3dadd(70.3125, 84.375, 42, 0)
	pt3dadd(69.873, 84.375, 42, 0)
	pt3dadd(69.4336, 84.375, 42, 0)
	pt3dadd(68.9941, 84.375, 42, 0)
	pt3dadd(68.5547, 83.9355, 42, 0)
	pt3dadd(68.1152, 83.9355, 42, 0)
	pt3dadd(67.6758, 83.9355, 42, 0)
	pt3dadd(67.2363, 83.9355, 42, 0)
	pt3dadd(66.7969, 83.9355, 42, 0)
	pt3dadd(66.3574, 83.9355, 42, 0)
	pt3dadd(65.918, 83.9355, 42, 0)
	pt3dadd(65.918, 83.9355, 43, 0)
	pt3dadd(65.4785, 83.9355, 44, 0)
	pt3dadd(65.0391, 83.9355, 44, 0)
	pt3dadd(64.5996, 83.9355, 44, 0)
	pt3dadd(64.1602, 83.9355, 44, 0)
	pt3dadd(63.7207, 83.9355, 44, 0)
	pt3dadd(63.2812, 83.9355, 44, 0)
	pt3dadd(62.8418, 83.9355, 44, 0)
	pt3dadd(62.4023, 83.4961, 43, 0)
	pt3dadd(61.9629, 83.0566, 42, 0)
	pt3dadd(61.5234, 83.0566, 42, 0)
	pt3dadd(61.084, 83.0566, 42, 0)
	pt3dadd(60.6445, 82.6172, 41, 0)
	pt3dadd(60.6445, 82.1777, 41, 0)
	pt3dadd(60.6445, 82.6172, 42, 0)
	pt3dadd(60.6445, 83.0566, 42, 0)
	pt3dadd(60.6445, 83.4961, 42, 0)
	pt3dadd(60.2051, 83.9355, 42, 0)
	pt3dadd(59.7656, 84.375, 42, 0)
	pt3dadd(59.3262, 84.375, 42, 0)
	pt3dadd(58.8867, 84.375, 42, 0)
	pt3dadd(58.4473, 84.8145, 41, 0)
	pt3dadd(58.0078, 84.8145, 41, 0)
  }
  dend[10] {pt3dclear()
	pt3dadd(58.0078, 84.8145, 41, 0)
	pt3dadd(57.5684, 84.8145, 41, 0)
	pt3dadd(57.1289, 84.8145, 41, 0)
  }
}
proc shape3d_2() {
  dend[10] {	pt3dadd(56.6895, 84.8145, 41, 0)
	pt3dadd(56.25, 84.8145, 41, 0)
	pt3dadd(55.8105, 84.8145, 41, 0)
	pt3dadd(55.3711, 85.2539, 41, 0)
	pt3dadd(54.9316, 85.2539, 41, 0)
	pt3dadd(54.4922, 85.2539, 41, 0)
	pt3dadd(54.0527, 85.2539, 41, 0)
	pt3dadd(53.6133, 85.2539, 42, 0)
	pt3dadd(53.1738, 85.2539, 42, 0)
	pt3dadd(52.7344, 85.2539, 42, 0)
	pt3dadd(52.2949, 85.2539, 42, 0)
	pt3dadd(51.8555, 85.2539, 42, 0)
	pt3dadd(51.416, 85.2539, 42, 0)
	pt3dadd(50.9766, 84.8145, 42, 0)
	pt3dadd(50.5371, 84.8145, 42, 0)
	pt3dadd(50.0977, 84.8145, 42, 0)
	pt3dadd(49.6582, 84.8145, 42, 0)
	pt3dadd(49.2188, 84.8145, 42, 0)
	pt3dadd(48.7793, 84.375, 42, 0)
	pt3dadd(48.3398, 84.375, 42, 0)
	pt3dadd(47.9004, 84.375, 43, 0)
	pt3dadd(47.4609, 84.375, 43, 0)
	pt3dadd(47.0215, 84.375, 43, 0)
	pt3dadd(46.582, 83.9355, 43, 0)
	pt3dadd(46.1426, 83.9355, 43, 0)
	pt3dadd(45.7031, 83.9355, 43, 0)
	pt3dadd(45.2637, 83.4961, 43, 0)
	pt3dadd(44.8242, 83.4961, 42, 0)
	pt3dadd(44.8242, 83.9355, 41, 0)
	pt3dadd(44.3848, 83.4961, 42, 0)
	pt3dadd(43.9453, 83.0566, 43, 0)
	pt3dadd(43.5059, 83.0566, 44, 0)
  }
  dend[11] {pt3dclear()
	pt3dadd(43.5059, 83.0566, 44, 0)
	pt3dadd(43.5059, 82.6172, 45, 0)
	pt3dadd(43.0664, 82.1777, 45, 0)
	pt3dadd(42.627, 81.7383, 45, 0)
	pt3dadd(42.1875, 81.7383, 45, 0)
	pt3dadd(41.748, 81.7383, 45, 0)
	pt3dadd(41.3086, 81.7383, 45, 0)
	pt3dadd(40.8691, 81.2988, 45, 0)
	pt3dadd(40.4297, 81.2988, 45, 0)
	pt3dadd(39.9902, 81.2988, 45, 0)
	pt3dadd(39.5508, 81.2988, 46, 0)
	pt3dadd(39.1113, 80.8594, 46, 0)
	pt3dadd(38.6719, 80.4199, 47, 0)
	pt3dadd(38.2324, 80.4199, 47, 0)
	pt3dadd(37.793, 79.9805, 48, 0)
	pt3dadd(37.3535, 79.541, 48, 0)
	pt3dadd(36.9141, 79.541, 48, 0)
	pt3dadd(36.4746, 79.541, 48, 0)
	pt3dadd(36.0352, 79.1016, 47, 0)
	pt3dadd(35.5957, 79.1016, 47, 0)
	pt3dadd(35.1562, 79.1016, 47, 0)
	pt3dadd(34.7168, 79.1016, 47, 0)
	pt3dadd(34.2773, 79.1016, 47, 0)
	pt3dadd(33.8379, 78.6621, 47, 0)
	pt3dadd(33.3984, 78.6621, 47, 0)
	pt3dadd(32.959, 78.6621, 47, 0)
	pt3dadd(32.5195, 78.2227, 47, 0)
	pt3dadd(32.0801, 78.2227, 47, 0)
	pt3dadd(31.6406, 78.2227, 47, 0)
	pt3dadd(31.2012, 78.2227, 47, 0)
	pt3dadd(30.7617, 77.7832, 47, 0)
	pt3dadd(30.3223, 77.7832, 47, 0)
	pt3dadd(29.8828, 77.7832, 47, 0)
  }
  dend[12] {pt3dclear()
	pt3dadd(29.8828, 77.7832, 47, 0)
	pt3dadd(29.4434, 77.7832, 47, 0)
	pt3dadd(29.0039, 77.7832, 47, 0)
	pt3dadd(28.5645, 77.3438, 47, 0)
	pt3dadd(28.125, 77.3438, 47, 0)
	pt3dadd(27.6855, 77.3438, 47, 0)
	pt3dadd(27.2461, 76.9043, 47, 0)
	pt3dadd(26.8066, 76.9043, 47, 0)
	pt3dadd(26.3672, 76.4648, 47, 0)
	pt3dadd(26.3672, 76.0254, 47, 0)
	pt3dadd(26.3672, 75.5859, 47, 0)
  }
  dend[13] {pt3dclear()
	pt3dadd(99.7559, 111.182, 50, 0.878906)
	pt3dadd(99.7559, 111.182, 50, 0)
	pt3dadd(99.3164, 111.182, 50, 0)
	pt3dadd(98.877, 111.182, 49, 0)
	pt3dadd(98.4375, 111.621, 48, 0)
	pt3dadd(97.998, 112.061, 47, 0)
	pt3dadd(97.5586, 112.5, 46, 0)
	pt3dadd(97.5586, 112.939, 46, 0)
	pt3dadd(97.1191, 113.379, 45, 0)
	pt3dadd(96.6797, 113.379, 44, 0)
	pt3dadd(96.2402, 112.939, 43, 0)
	pt3dadd(95.8008, 112.5, 43, 0)
	pt3dadd(95.3613, 112.061, 43, 0)
	pt3dadd(94.9219, 112.061, 43, 0)
	pt3dadd(94.4824, 112.5, 43, 0)
	pt3dadd(94.043, 112.5, 43, 0)
	pt3dadd(93.6035, 112.5, 43, 0)
	pt3dadd(93.1641, 112.5, 43, 0)
	pt3dadd(92.7246, 112.5, 43, 0)
	pt3dadd(92.2852, 112.5, 43, 0)
	pt3dadd(91.8457, 112.5, 43, 0)
	pt3dadd(91.4062, 112.061, 44, 0)
	pt3dadd(91.4062, 111.621, 44, 0)
	pt3dadd(91.4062, 111.621, 43, 0)
	pt3dadd(90.9668, 111.182, 42, 0)
	pt3dadd(90.5273, 110.742, 41, 0)
	pt3dadd(90.0879, 110.303, 40, 0)
	pt3dadd(89.6484, 109.863, 40, 0)
	pt3dadd(89.209, 109.424, 40, 0)
	pt3dadd(88.7695, 109.424, 40, 0)
	pt3dadd(88.3301, 108.984, 40, 0)
	pt3dadd(87.8906, 108.545, 40, 0)
	pt3dadd(87.4512, 108.105, 40, 0)
	pt3dadd(87.0117, 108.105, 40, 0)
	pt3dadd(86.5723, 107.666, 39, 0)
	pt3dadd(86.1328, 107.227, 39, 0)
	pt3dadd(85.6934, 107.227, 39, 0)
	pt3dadd(85.2539, 107.227, 39, 0)
	pt3dadd(84.8145, 107.227, 38, 0)
	pt3dadd(84.375, 107.227, 37, 0)
	pt3dadd(83.9355, 107.227, 37, 0)
	pt3dadd(83.4961, 107.227, 37, 0)
	pt3dadd(83.0566, 107.227, 37, 0)
	pt3dadd(82.6172, 107.227, 37, 0)
	pt3dadd(82.1777, 107.227, 37, 0)
	pt3dadd(81.7383, 107.666, 37, 0)
	pt3dadd(81.2988, 107.666, 38, 0)
	pt3dadd(80.8594, 107.227, 39, 0)
	pt3dadd(80.4199, 107.666, 40, 0)
	pt3dadd(79.9805, 107.666, 39, 0)
	pt3dadd(79.9805, 108.105, 38, 0)
	pt3dadd(79.9805, 108.105, 37, 0)
	pt3dadd(79.541, 108.105, 36, 0)
	pt3dadd(79.1016, 108.105, 36, 0)
	pt3dadd(78.6621, 108.545, 36, 0)
	pt3dadd(78.2227, 108.984, 36, 0)
	pt3dadd(77.7832, 109.424, 36, 0)
	pt3dadd(77.7832, 109.863, 36, 0)
	pt3dadd(77.3438, 110.303, 35, 0)
	pt3dadd(76.9043, 110.742, 35, 0)
	pt3dadd(76.4648, 110.742, 35, 0)
	pt3dadd(76.0254, 111.182, 35, 0)
	pt3dadd(75.5859, 111.621, 35, 0)
	pt3dadd(75.1465, 112.061, 35, 0)
	pt3dadd(74.707, 112.5, 35, 0)
	pt3dadd(74.2676, 112.939, 35, 0)
	pt3dadd(73.8281, 113.379, 34, 0)
	pt3dadd(73.8281, 113.818, 34, 0)
	pt3dadd(73.8281, 114.258, 34, 0)
	pt3dadd(73.3887, 114.697, 34, 0)
	pt3dadd(73.3887, 115.137, 34, 0)
	pt3dadd(73.3887, 115.576, 34, 0)
	pt3dadd(72.9492, 116.016, 34, 0)
	pt3dadd(72.5098, 116.455, 34, 0)
	pt3dadd(72.0703, 116.455, 34, 0)
	pt3dadd(71.6309, 116.895, 35, 0)
	pt3dadd(71.1914, 117.334, 36, 0)
	pt3dadd(70.752, 117.773, 36, 0)
	pt3dadd(70.3125, 117.334, 35, 0)
	pt3dadd(69.873, 116.895, 34, 0)
	pt3dadd(69.4336, 116.895, 34, 0)
	pt3dadd(68.9941, 116.895, 34, 0)
	pt3dadd(68.5547, 116.895, 34, 0)
	pt3dadd(68.1152, 116.895, 34, 0)
	pt3dadd(67.6758, 116.895, 34, 0)
	pt3dadd(67.2363, 116.895, 34, 0)
	pt3dadd(66.7969, 116.895, 34, 0)
	pt3dadd(66.3574, 116.895, 35, 0)
	pt3dadd(65.918, 116.455, 36, 0)
  }
  dend[14] {pt3dclear()
	pt3dadd(65.918, 116.455, 36, 0)
	pt3dadd(65.4785, 116.016, 35, 0)
	pt3dadd(65.0391, 115.576, 34, 0)
	pt3dadd(64.5996, 115.576, 34, 0)
	pt3dadd(64.1602, 115.576, 34, 0)
	pt3dadd(63.7207, 115.576, 34, 0)
	pt3dadd(63.2812, 115.576, 34, 0)
	pt3dadd(62.8418, 115.576, 34, 0)
	pt3dadd(62.4023, 115.576, 34, 0)
	pt3dadd(61.9629, 115.576, 34, 0)
	pt3dadd(61.5234, 115.576, 34, 0)
	pt3dadd(61.084, 116.016, 34, 0)
	pt3dadd(60.6445, 116.016, 34, 0)
	pt3dadd(60.2051, 116.016, 34, 0)
	pt3dadd(59.7656, 116.016, 34, 0)
	pt3dadd(59.3262, 116.016, 34, 0)
	pt3dadd(58.8867, 116.016, 34, 0)
	pt3dadd(58.4473, 116.455, 34, 0)
	pt3dadd(58.0078, 116.455, 34, 0)
	pt3dadd(57.5684, 116.895, 34, 0)
	pt3dadd(57.1289, 116.895, 34, 0)
	pt3dadd(56.6895, 116.895, 34, 0)
	pt3dadd(56.25, 116.895, 34, 0)
	pt3dadd(55.8105, 117.334, 34, 0)
	pt3dadd(55.3711, 117.334, 34, 0)
	pt3dadd(54.9316, 117.773, 34, 0)
	pt3dadd(54.4922, 118.213, 34, 0)
	pt3dadd(54.0527, 118.213, 34, 0)
	pt3dadd(53.6133, 118.652, 34, 0)
	pt3dadd(53.1738, 118.652, 34, 0)
	pt3dadd(52.7344, 119.092, 33, 0)
	pt3dadd(52.7344, 119.531, 33, 0)
	pt3dadd(52.7344, 119.971, 33, 0)
	pt3dadd(52.2949, 120.41, 33, 0)
	pt3dadd(52.2949, 120.85, 33, 0)
  }
}
proc shape3d_3() {
  dend[14] {	pt3dadd(51.8555, 121.289, 33, 0)
	pt3dadd(51.416, 121.729, 32, 0)
	pt3dadd(50.9766, 121.729, 32, 0)
	pt3dadd(50.5371, 122.168, 32, 0)
	pt3dadd(50.0977, 122.607, 32, 0)
	pt3dadd(49.6582, 123.047, 32, 0)
	pt3dadd(49.2188, 123.486, 32, 0)
	pt3dadd(48.7793, 123.486, 32, 0)
	pt3dadd(48.3398, 123.486, 32, 0)
	pt3dadd(47.9004, 123.926, 32, 0)
	pt3dadd(47.4609, 123.926, 32, 0)
	pt3dadd(47.0215, 124.365, 32, 0)
	pt3dadd(46.582, 124.365, 32, 0)
	pt3dadd(46.1426, 124.805, 32, 0)
	pt3dadd(45.7031, 125.244, 33, 0)
  }
  dend[15] {pt3dclear()
	pt3dadd(45.7031, 125.244, 33, 0)
	pt3dadd(45.2637, 124.805, 32, 0)
	pt3dadd(44.8242, 124.365, 31, 0)
	pt3dadd(44.3848, 123.926, 30, 0)
	pt3dadd(43.9453, 123.486, 30, 0)
	pt3dadd(43.5059, 123.486, 30, 0)
	pt3dadd(43.0664, 123.486, 30, 0)
	pt3dadd(42.627, 123.926, 30, 0)
	pt3dadd(42.1875, 123.926, 30, 0)
	pt3dadd(41.748, 123.926, 30, 0)
	pt3dadd(41.3086, 123.486, 31, 0)
	pt3dadd(40.8691, 123.486, 31, 0)
	pt3dadd(40.4297, 123.486, 31, 0)
	pt3dadd(39.9902, 123.486, 31, 0)
	pt3dadd(39.5508, 123.486, 31, 0)
	pt3dadd(39.1113, 123.486, 31, 0)
	pt3dadd(38.6719, 123.486, 31, 0)
	pt3dadd(38.2324, 123.047, 31, 0)
	pt3dadd(37.793, 123.047, 31, 0)
	pt3dadd(37.3535, 122.607, 31, 0)
	pt3dadd(36.9141, 122.607, 31, 0)
	pt3dadd(36.4746, 122.168, 31, 0)
	pt3dadd(36.0352, 122.168, 31, 0)
	pt3dadd(35.5957, 121.729, 31, 0)
	pt3dadd(35.1562, 121.729, 31, 0)
	pt3dadd(34.7168, 121.729, 31, 0)
	pt3dadd(34.2773, 121.729, 31, 0)
	pt3dadd(33.8379, 122.168, 31, 0)
	pt3dadd(33.8379, 122.607, 31, 0)
	pt3dadd(33.3984, 122.168, 30, 0)
	pt3dadd(32.959, 122.168, 30, 0)
	pt3dadd(32.5195, 122.168, 29, 0)
	pt3dadd(32.0801, 122.168, 29, 0)
	pt3dadd(31.6406, 121.729, 29, 0)
	pt3dadd(31.2012, 121.729, 29, 0)
  }
  dend[16] {pt3dclear()
	pt3dadd(31.2012, 121.729, 29, 0)
	pt3dadd(30.7617, 121.289, 28, 0)
	pt3dadd(30.3223, 120.85, 28, 0)
	pt3dadd(29.8828, 120.41, 28, 0)
	pt3dadd(29.4434, 120.41, 28, 0)
	pt3dadd(29.0039, 119.971, 27, 0)
	pt3dadd(28.5645, 119.971, 27, 0)
	pt3dadd(28.125, 119.971, 27, 0)
	pt3dadd(27.6855, 119.531, 27, 0)
	pt3dadd(27.2461, 119.531, 27, 0)
	pt3dadd(26.8066, 119.531, 27, 0)
	pt3dadd(26.3672, 119.531, 27, 0)
	pt3dadd(25.9277, 119.531, 27, 0)
	pt3dadd(25.4883, 119.531, 27, 0)
	pt3dadd(25.0488, 119.531, 28, 0)
	pt3dadd(24.6094, 119.531, 28, 0)
	pt3dadd(24.1699, 119.531, 28, 0)
	pt3dadd(23.7305, 119.531, 28, 0)
	pt3dadd(23.291, 119.531, 28, 0)
	pt3dadd(22.8516, 119.531, 28, 0)
	pt3dadd(22.4121, 119.531, 28, 0)
	pt3dadd(22.8516, 119.531, 27, 0)
	pt3dadd(23.291, 119.971, 26, 0)
	pt3dadd(23.291, 119.971, 25, 0)
	pt3dadd(22.8516, 119.971, 24, 0)
	pt3dadd(22.4121, 120.41, 23, 0)
	pt3dadd(21.9727, 120.41, 23, 0)
	pt3dadd(21.5332, 120.85, 23, 0)
	pt3dadd(21.0938, 121.289, 23, 0)
	pt3dadd(20.6543, 121.729, 23, 0)
	pt3dadd(20.6543, 121.289, 23, 0)
	pt3dadd(21.0938, 120.85, 22, 0)
	pt3dadd(21.5332, 120.85, 21, 0)
	pt3dadd(21.0938, 120.85, 20, 0)
	pt3dadd(20.6543, 121.289, 19, 0)
	pt3dadd(20.6543, 121.729, 19, 0)
	pt3dadd(20.2148, 122.168, 18, 0)
	pt3dadd(19.7754, 122.607, 17, 0)
	pt3dadd(19.3359, 123.047, 17, 0)
	pt3dadd(18.8965, 123.047, 17, 0)
	pt3dadd(18.457, 123.486, 17, 0)
	pt3dadd(18.0176, 123.486, 17, 0)
	pt3dadd(17.5781, 123.926, 17, 0)
	pt3dadd(17.1387, 123.926, 17, 0)
	pt3dadd(16.6992, 124.365, 18, 0)
	pt3dadd(16.2598, 124.365, 18, 0)
  }
  dend[17] {pt3dclear()
	pt3dadd(101.102, 114.464, 47.9798, 11.8)
	pt3dadd(101.514, 116.455, 50, 0)
	pt3dadd(101.074, 116.895, 49, 0)
	pt3dadd(100.635, 117.334, 48, 0)
	pt3dadd(100.195, 117.773, 47, 0)
	pt3dadd(99.7559, 118.213, 46, 0)
	pt3dadd(99.3164, 118.213, 46, 0)
	pt3dadd(98.877, 118.652, 45, 0)
	pt3dadd(98.4375, 118.652, 45, 0)
	pt3dadd(97.998, 118.652, 45, 0)
	pt3dadd(97.5586, 118.213, 46, 0)
	pt3dadd(97.1191, 118.652, 45, 0)
	pt3dadd(96.6797, 119.092, 44, 0)
	pt3dadd(96.2402, 119.531, 43, 0)
	pt3dadd(95.8008, 119.971, 42, 0)
	pt3dadd(95.3613, 120.41, 41, 0)
	pt3dadd(94.9219, 120.85, 40, 0)
	pt3dadd(94.4824, 121.289, 39, 0)
  }
  dend[18] {pt3dclear()
	pt3dadd(94.4824, 121.289, 39, 0)
	pt3dadd(94.043, 121.289, 39, 0)
	pt3dadd(93.6035, 121.729, 39, 0)
	pt3dadd(93.1641, 122.168, 39, 0)
	pt3dadd(93.1641, 122.607, 39, 0)
	pt3dadd(93.1641, 123.047, 40, 0)
	pt3dadd(93.1641, 123.047, 41, 0)
	pt3dadd(93.1641, 123.047, 40, 0)
	pt3dadd(93.1641, 122.607, 39, 0)
	pt3dadd(93.1641, 123.047, 38, 0)
	pt3dadd(93.1641, 123.486, 38, 0)
	pt3dadd(93.1641, 123.926, 37, 0)
	pt3dadd(93.1641, 124.365, 37, 0)
	pt3dadd(93.1641, 124.805, 37, 0)
	pt3dadd(92.7246, 125.244, 36, 0)
	pt3dadd(92.2852, 125.684, 35, 0)
	pt3dadd(92.2852, 126.123, 34, 0)
	pt3dadd(92.2852, 126.562, 34, 0)
	pt3dadd(92.2852, 127.002, 33, 0)
	pt3dadd(92.2852, 127.441, 33, 0)
	pt3dadd(92.2852, 127.881, 33, 0)
	pt3dadd(91.8457, 128.32, 34, 0)
	pt3dadd(91.4062, 128.32, 34, 0)
	pt3dadd(90.9668, 128.32, 34, 0)
	pt3dadd(90.5273, 128.32, 34, 0)
	pt3dadd(90.9668, 128.32, 34, 0)
	pt3dadd(91.4062, 128.32, 34, 0)
	pt3dadd(91.8457, 128.32, 33, 0)
	pt3dadd(92.2852, 128.76, 32, 0)
	pt3dadd(91.8457, 129.199, 31, 0)
	pt3dadd(91.4062, 129.639, 30, 0)
	pt3dadd(90.9668, 130.078, 29, 0)
	pt3dadd(90.5273, 130.518, 29, 0)
	pt3dadd(90.0879, 130.957, 29, 0)
	pt3dadd(89.6484, 131.396, 29, 0)
	pt3dadd(89.209, 131.396, 29, 0)
	pt3dadd(88.7695, 131.396, 29, 0)
	pt3dadd(88.3301, 131.836, 29, 0)
	pt3dadd(88.3301, 132.275, 30, 0)
	pt3dadd(87.8906, 131.836, 29, 0)
	pt3dadd(87.4512, 132.275, 28, 0)
	pt3dadd(87.4512, 132.715, 27, 0)
	pt3dadd(87.0117, 133.154, 26, 0)
	pt3dadd(86.5723, 133.594, 26, 0)
	pt3dadd(86.1328, 134.033, 25, 0)
	pt3dadd(85.6934, 134.033, 25, 0)
	pt3dadd(85.2539, 134.473, 25, 0)
	pt3dadd(84.8145, 134.912, 25, 0)
	pt3dadd(84.375, 134.912, 25, 0)
	pt3dadd(83.9355, 135.352, 25, 0)
	pt3dadd(83.4961, 135.352, 25, 0)
	pt3dadd(83.0566, 135.791, 25, 0)
	pt3dadd(82.6172, 135.791, 25, 0)
	pt3dadd(82.1777, 136.23, 25, 0)
  }
  dend[19] {pt3dclear()
	pt3dadd(82.1777, 136.23, 25, 0)
	pt3dadd(81.7383, 136.67, 25, 0)
	pt3dadd(81.2988, 137.109, 25, 0)
	pt3dadd(80.8594, 137.549, 25, 0)
	pt3dadd(80.4199, 137.988, 25, 0)
	pt3dadd(79.9805, 138.428, 25, 0)
	pt3dadd(79.541, 138.867, 25, 0)
	pt3dadd(79.1016, 139.307, 25, 0)
	pt3dadd(78.6621, 139.746, 25, 0)
	pt3dadd(78.2227, 140.186, 25, 0)
	pt3dadd(77.7832, 140.625, 25, 0)
	pt3dadd(77.3438, 141.064, 25, 0)
	pt3dadd(76.9043, 141.504, 25, 0)
  }
  dend[20] {pt3dclear()
	pt3dadd(76.9043, 141.504, 25, 0)
	pt3dadd(76.9043, 141.943, 25, 0)
	pt3dadd(76.4648, 142.383, 24, 0)
	pt3dadd(76.4648, 142.822, 24, 0)
	pt3dadd(76.4648, 143.262, 24, 0)
	pt3dadd(76.0254, 143.701, 24, 0)
	pt3dadd(76.0254, 144.141, 24, 0)
	pt3dadd(75.5859, 144.58, 24, 0)
	pt3dadd(75.1465, 145.02, 24, 0)
	pt3dadd(74.707, 145.459, 24, 0)
  }
  dend[21] {pt3dclear()
	pt3dadd(74.707, 145.459, 24, 0)
	pt3dadd(74.707, 145.898, 25, 0)
	pt3dadd(75.1465, 146.338, 25, 0)
	pt3dadd(75.5859, 146.777, 25, 0)
	pt3dadd(75.1465, 146.338, 25, 0)
	pt3dadd(74.707, 145.898, 25, 0)
	pt3dadd(74.2676, 145.898, 25, 0)
	pt3dadd(73.8281, 146.338, 25, 0)
	pt3dadd(73.3887, 146.338, 25, 0)
  }
}
proc shape3d_4() {
  dend[21] {	pt3dadd(72.9492, 146.777, 25, 0)
	pt3dadd(72.5098, 146.777, 25, 0)
	pt3dadd(72.0703, 147.217, 25, 0)
	pt3dadd(71.6309, 147.217, 25, 0)
	pt3dadd(71.1914, 147.217, 25, 0)
	pt3dadd(70.752, 147.217, 25, 0)
  }
  dend[22] {pt3dclear()
	pt3dadd(70.752, 147.217, 25, 0)
	pt3dadd(70.3125, 147.217, 24, 0)
	pt3dadd(69.873, 147.217, 24, 0)
	pt3dadd(69.4336, 147.217, 24, 0)
	pt3dadd(68.9941, 147.217, 24, 0)
	pt3dadd(68.5547, 147.656, 23, 0)
	pt3dadd(68.1152, 148.096, 23, 0)
	pt3dadd(67.6758, 148.096, 23, 0)
	pt3dadd(67.2363, 148.096, 23, 0)
	pt3dadd(66.7969, 148.535, 23, 0)
	pt3dadd(66.3574, 148.535, 23, 0)
	pt3dadd(65.918, 148.535, 23, 0)
	pt3dadd(65.4785, 148.535, 23, 0)
	pt3dadd(65.0391, 148.535, 23, 0)
	pt3dadd(64.5996, 148.535, 23, 0)
	pt3dadd(64.1602, 148.535, 23, 0)
	pt3dadd(63.7207, 148.535, 23, 0)
	pt3dadd(63.2812, 148.096, 22, 0)
	pt3dadd(62.8418, 148.096, 22, 0)
	pt3dadd(62.4023, 148.096, 22, 0)
	pt3dadd(61.9629, 147.656, 22, 0)
	pt3dadd(61.5234, 147.656, 22, 0)
	pt3dadd(61.084, 147.656, 22, 0)
	pt3dadd(60.6445, 147.656, 22, 0)
	pt3dadd(60.2051, 147.656, 22, 0)
	pt3dadd(59.7656, 147.217, 22, 0)
	pt3dadd(59.3262, 147.217, 22, 0)
	pt3dadd(58.8867, 147.217, 22, 0)
	pt3dadd(58.4473, 147.656, 22, 0)
  }
  dend[23] {pt3dclear()
	pt3dadd(58.4473, 147.656, 22, 0)
	pt3dadd(58.0078, 147.217, 23, 0)
	pt3dadd(58.4473, 146.777, 23, 0)
	pt3dadd(58.4473, 146.338, 23, 0)
	pt3dadd(58.0078, 145.898, 23, 0)
	pt3dadd(57.5684, 145.459, 23, 0)
	pt3dadd(57.5684, 145.02, 23, 0)
	pt3dadd(57.1289, 144.58, 23, 0)
	pt3dadd(56.6895, 144.141, 23, 0)
	pt3dadd(56.6895, 143.701, 23, 0)
	pt3dadd(56.25, 143.262, 23, 0)
	pt3dadd(55.8105, 142.822, 23, 0)
	pt3dadd(55.3711, 142.383, 23, 0)
	pt3dadd(55.3711, 141.943, 23, 0)
	pt3dadd(54.9316, 141.504, 23, 0)
	pt3dadd(54.4922, 141.064, 23, 0)
	pt3dadd(54.0527, 140.625, 23, 0)
	pt3dadd(53.6133, 140.625, 23, 0)
	pt3dadd(53.1738, 140.186, 23, 0)
	pt3dadd(52.7344, 139.746, 23, 0)
	pt3dadd(52.7344, 139.307, 23, 0)
	pt3dadd(52.2949, 138.867, 24, 0)
	pt3dadd(51.8555, 138.428, 24, 0)
	pt3dadd(51.416, 138.428, 24, 0)
	pt3dadd(50.9766, 137.988, 24, 0)
	pt3dadd(50.5371, 138.428, 23, 0)
	pt3dadd(50.9766, 137.988, 24, 0)
	pt3dadd(50.5371, 137.988, 25, 0)
	pt3dadd(50.5371, 137.988, 26, 0)
	pt3dadd(50.0977, 137.988, 27, 0)
	pt3dadd(50.0977, 137.988, 28, 0)
	pt3dadd(49.6582, 137.549, 29, 0)
	pt3dadd(49.6582, 137.549, 30, 0)
	pt3dadd(49.2188, 137.549, 31, 0)
	pt3dadd(48.7793, 137.109, 32, 0)
	pt3dadd(48.3398, 136.67, 32, 0)
	pt3dadd(47.9004, 136.23, 32, 0)
	pt3dadd(47.4609, 136.23, 32, 0)
	pt3dadd(47.0215, 136.23, 32, 0)
	pt3dadd(46.582, 136.23, 32, 0)
	pt3dadd(46.1426, 136.23, 32, 0)
	pt3dadd(45.7031, 135.791, 32, 0)
	pt3dadd(45.2637, 135.791, 32, 0)
	pt3dadd(44.8242, 135.352, 32, 0)
	pt3dadd(44.3848, 135.352, 32, 0)
	pt3dadd(43.9453, 134.912, 32, 0)
	pt3dadd(43.5059, 134.473, 32, 0)
	pt3dadd(43.0664, 134.033, 31, 0)
	pt3dadd(43.0664, 133.594, 31, 0)
	pt3dadd(43.0664, 133.154, 31, 0)
	pt3dadd(42.627, 132.715, 31, 0)
	pt3dadd(42.1875, 132.715, 31, 0)
	pt3dadd(41.748, 132.275, 31, 0)
	pt3dadd(41.3086, 131.836, 31, 0)
	pt3dadd(40.8691, 131.396, 30, 0)
	pt3dadd(40.4297, 131.836, 31, 0)
	pt3dadd(39.9902, 131.836, 32, 0)
	pt3dadd(39.5508, 131.836, 33, 0)
	pt3dadd(39.1113, 132.275, 34, 0)
	pt3dadd(38.6719, 132.275, 34, 0)
	pt3dadd(38.2324, 132.275, 34, 0)
	pt3dadd(37.793, 131.836, 35, 0)
	pt3dadd(37.3535, 131.396, 35, 0)
	pt3dadd(36.9141, 130.957, 35, 0)
	pt3dadd(36.4746, 130.518, 35, 0)
	pt3dadd(36.0352, 130.518, 35, 0)
	pt3dadd(35.5957, 130.518, 35, 0)
	pt3dadd(35.1562, 130.957, 34, 0)
	pt3dadd(34.7168, 130.518, 34, 0)
	pt3dadd(34.2773, 130.518, 34, 0)
	pt3dadd(33.8379, 130.957, 34, 0)
	pt3dadd(33.3984, 131.396, 34, 0)
	pt3dadd(32.959, 131.836, 34, 0)
	pt3dadd(32.5195, 131.836, 33, 0)
	pt3dadd(32.0801, 131.836, 33, 0)
	pt3dadd(31.6406, 131.836, 33, 0)
	pt3dadd(31.6406, 132.275, 33, 0)
	pt3dadd(31.2012, 132.715, 33, 0)
	pt3dadd(30.7617, 133.154, 33, 0)
	pt3dadd(30.3223, 133.594, 33, 0)
	pt3dadd(29.8828, 134.033, 33, 0)
	pt3dadd(29.4434, 134.033, 34, 0)
	pt3dadd(29.0039, 134.473, 34, 0)
	pt3dadd(28.5645, 134.473, 34, 0)
	pt3dadd(28.125, 134.912, 34, 0)
	pt3dadd(27.6855, 135.352, 34, 0)
	pt3dadd(27.2461, 135.791, 34, 0)
	pt3dadd(26.8066, 136.23, 34, 0)
	pt3dadd(26.3672, 136.67, 34, 0)
	pt3dadd(25.9277, 137.109, 34, 0)
	pt3dadd(25.4883, 137.109, 34, 0)
	pt3dadd(25.0488, 137.109, 34, 0)
	pt3dadd(24.6094, 137.109, 34, 0)
	pt3dadd(24.1699, 137.109, 34, 0)
	pt3dadd(23.7305, 137.109, 34, 0)
	pt3dadd(23.291, 137.109, 34, 0)
	pt3dadd(22.8516, 137.549, 34, 0)
	pt3dadd(22.4121, 137.549, 34, 0)
	pt3dadd(21.9727, 137.549, 34, 0)
	pt3dadd(21.5332, 137.549, 34, 0)
	pt3dadd(21.0938, 137.988, 34, 0)
	pt3dadd(20.6543, 137.988, 34, 0)
  }
  dend[24] {pt3dclear()
	pt3dadd(103.711, 119.531, 50, 0.878906)
	pt3dadd(104.15, 121.289, 50, 0)
	pt3dadd(103.711, 121.729, 50, 0)
	pt3dadd(103.271, 122.168, 49, 0)
	pt3dadd(102.832, 122.607, 48, 0)
	pt3dadd(102.393, 123.047, 47, 0)
	pt3dadd(101.953, 123.486, 46, 0)
	pt3dadd(101.514, 123.486, 46, 0)
	pt3dadd(101.514, 123.926, 45, 0)
	pt3dadd(101.074, 124.365, 44, 0)
	pt3dadd(101.074, 124.805, 44, 0)
	pt3dadd(100.635, 125.244, 43, 0)
	pt3dadd(100.195, 125.684, 43, 0)
	pt3dadd(100.195, 126.123, 43, 0)
	pt3dadd(99.7559, 126.562, 42, 0)
	pt3dadd(99.7559, 127.002, 42, 0)
	pt3dadd(99.3164, 127.441, 42, 0)
	pt3dadd(98.877, 127.881, 43, 0)
	pt3dadd(99.3164, 128.32, 44, 0)
	pt3dadd(99.3164, 128.76, 44, 0)
	pt3dadd(99.3164, 128.32, 44, 0)
	pt3dadd(98.877, 127.881, 43, 0)
	pt3dadd(98.877, 127.881, 42, 0)
	pt3dadd(98.4375, 128.32, 41, 0)
	pt3dadd(97.998, 128.76, 40, 0)
	pt3dadd(97.5586, 129.199, 40, 0)
	pt3dadd(97.1191, 129.639, 39, 0)
	pt3dadd(96.6797, 130.078, 39, 0)
	pt3dadd(96.2402, 130.518, 39, 0)
	pt3dadd(95.8008, 130.957, 39, 0)
	pt3dadd(95.3613, 131.396, 39, 0)
	pt3dadd(94.9219, 131.836, 39, 0)
	pt3dadd(94.4824, 131.836, 39, 0)
	pt3dadd(94.043, 132.275, 38, 0)
	pt3dadd(93.6035, 132.715, 38, 0)
	pt3dadd(93.1641, 133.154, 38, 0)
	pt3dadd(92.7246, 133.594, 38, 0)
	pt3dadd(92.2852, 134.033, 38, 0)
	pt3dadd(91.8457, 134.473, 38, 0)
	pt3dadd(91.4062, 134.912, 38, 0)
	pt3dadd(90.9668, 135.352, 38, 0)
	pt3dadd(90.5273, 135.791, 38, 0)
	pt3dadd(90.0879, 136.23, 38, 0)
	pt3dadd(89.6484, 136.23, 38, 0)
	pt3dadd(89.209, 136.67, 38, 0)
	pt3dadd(88.7695, 137.109, 38, 0)
	pt3dadd(88.3301, 137.549, 39, 0)
	pt3dadd(88.3301, 137.988, 38, 0)
	pt3dadd(88.7695, 137.988, 37, 0)
	pt3dadd(88.3301, 138.428, 36, 0)
	pt3dadd(87.8906, 138.867, 35, 0)
  }
  dend[25] {pt3dclear()
	pt3dadd(87.8906, 138.867, 35, 0)
	pt3dadd(87.4512, 139.307, 35, 0)
	pt3dadd(87.4512, 139.746, 35, 0)
	pt3dadd(87.0117, 140.186, 35, 0)
	pt3dadd(86.5723, 140.625, 35, 0)
	pt3dadd(86.1328, 141.064, 34, 0)
	pt3dadd(85.6934, 141.064, 33, 0)
	pt3dadd(85.2539, 141.064, 33, 0)
	pt3dadd(84.8145, 141.504, 32, 0)
	pt3dadd(84.375, 141.943, 32, 0)
	pt3dadd(84.375, 142.383, 32, 0)
  }
  dend[26] {pt3dclear()
	pt3dadd(84.375, 142.383, 32, 0)
  }
}
proc shape3d_5() {
  dend[26] {	pt3dadd(83.9355, 142.822, 32, 0)
	pt3dadd(83.4961, 143.262, 32, 0)
  }
  dend[27] {pt3dclear()
	pt3dadd(83.4961, 143.262, 32, 0)
	pt3dadd(83.0566, 143.701, 33, 0)
	pt3dadd(83.0566, 144.141, 34, 0)
	pt3dadd(83.0566, 143.701, 33, 0)
	pt3dadd(83.4961, 143.262, 32, 0)
	pt3dadd(83.9355, 142.822, 32, 0)
	pt3dadd(84.375, 142.383, 32, 0)
	pt3dadd(84.375, 141.943, 32, 0)
	pt3dadd(84.8145, 141.504, 32, 0)
	pt3dadd(84.8145, 141.064, 31, 0)
	pt3dadd(84.375, 140.625, 30, 0)
	pt3dadd(83.9355, 140.186, 30, 0)
	pt3dadd(83.4961, 140.186, 30, 0)
	pt3dadd(83.0566, 140.186, 30, 0)
	pt3dadd(82.6172, 140.186, 30, 0)
	pt3dadd(82.1777, 139.746, 30, 0)
	pt3dadd(81.7383, 139.307, 30, 0)
	pt3dadd(81.2988, 139.307, 30, 0)
	pt3dadd(80.8594, 138.867, 30, 0)
	pt3dadd(80.4199, 138.428, 30, 0)
	pt3dadd(79.9805, 138.428, 30, 0)
	pt3dadd(79.541, 137.988, 30, 0)
	pt3dadd(79.1016, 137.988, 31, 0)
	pt3dadd(78.6621, 137.549, 31, 0)
	pt3dadd(78.2227, 137.549, 31, 0)
	pt3dadd(77.7832, 137.549, 31, 0)
	pt3dadd(77.3438, 137.549, 31, 0)
	pt3dadd(76.9043, 137.549, 31, 0)
	pt3dadd(76.4648, 137.109, 31, 0)
	pt3dadd(76.0254, 137.109, 31, 0)
	pt3dadd(75.5859, 137.109, 31, 0)
	pt3dadd(75.1465, 137.109, 31, 0)
	pt3dadd(74.707, 136.67, 30, 0)
	pt3dadd(74.2676, 136.67, 30, 0)
	pt3dadd(73.8281, 136.67, 30, 0)
	pt3dadd(73.3887, 136.67, 30, 0)
	pt3dadd(72.9492, 136.67, 30, 0)
	pt3dadd(72.5098, 136.67, 30, 0)
	pt3dadd(72.0703, 136.67, 30, 0)
	pt3dadd(71.6309, 136.67, 30, 0)
	pt3dadd(71.1914, 136.67, 30, 0)
	pt3dadd(70.752, 136.67, 30, 0)
	pt3dadd(70.3125, 136.67, 30, 0)
	pt3dadd(69.873, 136.67, 30, 0)
	pt3dadd(69.4336, 136.67, 30, 0)
	pt3dadd(68.9941, 136.67, 30, 0)
	pt3dadd(68.5547, 136.67, 30, 0)
	pt3dadd(68.1152, 136.67, 29, 0)
	pt3dadd(67.6758, 136.67, 29, 0)
	pt3dadd(67.2363, 136.67, 29, 0)
	pt3dadd(66.7969, 136.67, 29, 0)
	pt3dadd(66.3574, 136.23, 29, 0)
  }
  dend[28] {pt3dclear()
	pt3dadd(66.3574, 136.23, 29, 0)
	pt3dadd(65.918, 135.791, 30, 0)
	pt3dadd(65.918, 135.352, 30, 0)
	pt3dadd(66.3574, 134.912, 30, 0)
	pt3dadd(66.7969, 134.473, 29, 0)
	pt3dadd(67.2363, 134.033, 29, 0)
	pt3dadd(67.2363, 133.594, 29, 0)
	pt3dadd(67.2363, 133.154, 29, 0)
	pt3dadd(67.2363, 132.715, 29, 0)
	pt3dadd(66.7969, 132.275, 29, 0)
	pt3dadd(66.3574, 131.836, 29, 0)
  }
  dend[29] {pt3dclear()
	pt3dadd(66.3574, 131.836, 29, 0)
	pt3dadd(65.918, 131.396, 28, 0)
	pt3dadd(65.4785, 130.957, 28, 0)
	pt3dadd(65.0391, 130.518, 27, 0)
	pt3dadd(64.5996, 130.518, 27, 0)
	pt3dadd(64.1602, 130.518, 27, 0)
	pt3dadd(63.7207, 130.518, 27, 0)
	pt3dadd(63.2812, 130.518, 27, 0)
	pt3dadd(62.8418, 130.518, 27, 0)
	pt3dadd(62.4023, 130.078, 26, 0)
	pt3dadd(61.9629, 129.639, 26, 0)
	pt3dadd(61.5234, 129.199, 26, 0)
	pt3dadd(61.084, 129.199, 26, 0)
	pt3dadd(60.6445, 128.76, 25, 0)
	pt3dadd(60.2051, 128.76, 25, 0)
	pt3dadd(59.7656, 128.32, 24, 0)
	pt3dadd(59.7656, 127.881, 24, 0)
	pt3dadd(59.3262, 127.441, 24, 0)
	pt3dadd(58.8867, 127.002, 25, 0)
	pt3dadd(58.4473, 127.002, 26, 0)
  }
  dend[30] {pt3dclear()
	pt3dadd(58.4473, 127.002, 26, 0)
	pt3dadd(58.0078, 126.562, 25, 0)
	pt3dadd(57.5684, 126.123, 24, 0)
	pt3dadd(57.1289, 125.684, 23, 0)
	pt3dadd(56.6895, 125.684, 23, 0)
	pt3dadd(56.25, 125.684, 23, 0)
	pt3dadd(55.8105, 125.244, 23, 0)
	pt3dadd(55.3711, 125.244, 22, 0)
	pt3dadd(54.9316, 125.244, 22, 0)
	pt3dadd(54.4922, 125.244, 22, 0)
	pt3dadd(54.0527, 124.805, 22, 0)
	pt3dadd(53.6133, 124.805, 22, 0)
	pt3dadd(53.1738, 124.805, 22, 0)
	pt3dadd(52.7344, 124.805, 22, 0)
	pt3dadd(52.2949, 124.365, 22, 0)
	pt3dadd(51.8555, 124.805, 23, 0)
	pt3dadd(51.416, 124.805, 23, 0)
	pt3dadd(50.9766, 125.244, 23, 0)
	pt3dadd(50.5371, 125.244, 23, 0)
	pt3dadd(50.0977, 125.244, 23, 0)
	pt3dadd(49.6582, 124.805, 23, 0)
	pt3dadd(49.2188, 124.805, 23, 0)
	pt3dadd(48.7793, 124.805, 23, 0)
	pt3dadd(48.3398, 124.365, 23, 0)
	pt3dadd(47.9004, 123.926, 23, 0)
	pt3dadd(47.4609, 123.486, 23, 0)
	pt3dadd(47.4609, 123.047, 23, 0)
	pt3dadd(47.4609, 122.607, 23, 0)
	pt3dadd(47.4609, 122.168, 24, 0)
	pt3dadd(47.4609, 121.729, 24, 0)
	pt3dadd(47.9004, 121.289, 24, 0)
	pt3dadd(47.4609, 120.85, 25, 0)
	pt3dadd(47.0215, 120.85, 25, 0)
	pt3dadd(46.582, 120.85, 25, 0)
	pt3dadd(46.1426, 120.41, 26, 0)
	pt3dadd(45.7031, 119.971, 27, 0)
	pt3dadd(45.7031, 119.531, 27, 0)
	pt3dadd(45.7031, 119.092, 27, 0)
	pt3dadd(45.2637, 118.652, 27, 0)
	pt3dadd(45.2637, 118.213, 27, 0)
	pt3dadd(45.2637, 117.773, 28, 0)
	pt3dadd(45.2637, 117.334, 28, 0)
	pt3dadd(45.2637, 116.895, 28, 0)
	pt3dadd(45.7031, 116.455, 28, 0)
	pt3dadd(46.1426, 116.016, 28, 0)
	pt3dadd(46.582, 116.016, 28, 0)
	pt3dadd(47.0215, 115.576, 28, 0)
	pt3dadd(47.4609, 115.137, 28, 0)
  }
  dend[31] {pt3dclear()
	pt3dadd(47.4609, 115.137, 28, 0)
	pt3dadd(47.0215, 115.576, 28, 0)
	pt3dadd(46.582, 116.016, 28, 0)
	pt3dadd(46.1426, 116.016, 28, 0)
	pt3dadd(45.7031, 116.016, 29, 0)
	pt3dadd(45.7031, 116.016, 30, 0)
	pt3dadd(45.7031, 116.016, 31, 0)
  }
  dend[32] {pt3dclear()
	pt3dadd(45.7031, 116.016, 31, 0)
	pt3dadd(45.7031, 115.576, 31, 0)
	pt3dadd(45.7031, 115.137, 31, 0)
	pt3dadd(45.7031, 114.697, 31, 0)
	pt3dadd(45.7031, 114.258, 31, 0)
	pt3dadd(45.7031, 113.818, 31, 0)
	pt3dadd(46.1426, 113.379, 31, 0)
	pt3dadd(46.1426, 112.939, 31, 0)
	pt3dadd(46.1426, 112.5, 31, 0)
	pt3dadd(46.1426, 112.061, 31, 0)
	pt3dadd(46.1426, 111.621, 32, 0)
	pt3dadd(46.1426, 111.182, 32, 0)
	pt3dadd(46.1426, 110.742, 32, 0)
	pt3dadd(46.1426, 110.303, 32, 0)
	pt3dadd(46.582, 109.863, 33, 0)
	pt3dadd(46.582, 109.424, 34, 0)
	pt3dadd(46.582, 108.984, 34, 0)
	pt3dadd(46.582, 108.545, 34, 0)
	pt3dadd(46.582, 108.105, 34, 0)
	pt3dadd(46.582, 107.666, 34, 0)
  }
  dend[33] {pt3dclear()
	pt3dadd(46.582, 107.666, 34, 0)
	pt3dadd(46.582, 107.227, 34, 0)
	pt3dadd(46.582, 106.787, 33, 0)
  }
  dend[34] {pt3dclear()
	pt3dadd(46.582, 106.787, 33, 0)
	pt3dadd(46.582, 106.348, 32, 0)
	pt3dadd(47.0215, 105.908, 31, 0)
	pt3dadd(46.582, 105.469, 31, 0)
	pt3dadd(46.1426, 105.029, 32, 0)
	pt3dadd(45.7031, 104.59, 32, 0)
	pt3dadd(46.1426, 104.15, 32, 0)
	pt3dadd(46.582, 103.711, 32, 0)
	pt3dadd(46.582, 103.271, 32, 0)
	pt3dadd(47.0215, 102.832, 32, 0)
	pt3dadd(47.0215, 102.393, 32, 0)
  }
  dend[35] {pt3dclear()
	pt3dadd(104.59, 123.486, 50, 0.878906)
	pt3dadd(104.59, 123.486, 50, 0)
	pt3dadd(104.59, 123.486, 49, 0)
	pt3dadd(105.029, 123.926, 48, 0)
	pt3dadd(105.469, 124.365, 47, 0)
	pt3dadd(105.908, 124.805, 46, 0)
	pt3dadd(106.348, 125.244, 45, 0)
	pt3dadd(106.787, 125.684, 44, 0)
	pt3dadd(106.787, 126.123, 44, 0)
	pt3dadd(107.227, 126.562, 43, 0)
	pt3dadd(107.227, 127.002, 43, 0)
	pt3dadd(107.227, 127.441, 43, 0)
	pt3dadd(107.666, 127.881, 42, 0)
	pt3dadd(108.105, 128.32, 42, 0)
	pt3dadd(108.105, 128.76, 42, 0)
	pt3dadd(108.105, 129.199, 42, 0)
	pt3dadd(108.545, 129.639, 41, 0)
  }
  dend[36] {pt3dclear()
	pt3dadd(108.545, 129.639, 41, 0)
	pt3dadd(108.984, 130.078, 41, 0)
	pt3dadd(109.424, 130.518, 42, 0)
	pt3dadd(109.863, 130.957, 42, 0)
	pt3dadd(109.424, 130.518, 42, 0)
	pt3dadd(108.984, 130.078, 41, 0)
	pt3dadd(108.545, 130.518, 40, 0)
	pt3dadd(108.545, 130.957, 40, 0)
	pt3dadd(108.545, 131.396, 40, 0)
  }
}
proc shape3d_6() {
  dend[36] {	pt3dadd(108.545, 131.836, 40, 0)
	pt3dadd(108.545, 132.275, 39, 0)
	pt3dadd(108.545, 132.715, 39, 0)
	pt3dadd(108.545, 133.154, 39, 0)
	pt3dadd(108.545, 133.594, 39, 0)
	pt3dadd(108.545, 134.033, 39, 0)
	pt3dadd(108.105, 134.473, 38, 0)
	pt3dadd(108.105, 134.912, 38, 0)
	pt3dadd(108.105, 135.352, 38, 0)
	pt3dadd(108.105, 135.791, 38, 0)
	pt3dadd(108.105, 136.23, 38, 0)
	pt3dadd(108.105, 136.67, 38, 0)
	pt3dadd(108.105, 137.109, 38, 0)
	pt3dadd(108.105, 137.549, 38, 0)
	pt3dadd(108.105, 137.988, 38, 0)
	pt3dadd(108.545, 138.428, 39, 0)
	pt3dadd(108.105, 137.988, 38, 0)
	pt3dadd(108.545, 137.549, 37, 0)
  }
  dend[37] {pt3dclear()
	pt3dadd(108.545, 137.549, 37, 0)
	pt3dadd(108.984, 137.988, 36, 0)
	pt3dadd(109.424, 138.428, 35, 0)
	pt3dadd(109.424, 138.867, 35, 0)
	pt3dadd(109.863, 139.307, 34, 0)
	pt3dadd(109.863, 139.746, 34, 0)
	pt3dadd(110.303, 140.186, 34, 0)
	pt3dadd(110.742, 140.625, 33, 0)
  }
  dend[38] {pt3dclear()
	pt3dadd(110.742, 140.625, 33, 0)
	pt3dadd(110.742, 141.064, 33, 0)
	pt3dadd(110.742, 141.504, 32, 0)
	pt3dadd(111.182, 141.943, 32, 0)
	pt3dadd(111.182, 142.383, 32, 0)
	pt3dadd(111.621, 142.822, 32, 0)
	pt3dadd(111.621, 143.262, 32, 0)
	pt3dadd(111.621, 143.262, 33, 0)
	pt3dadd(112.061, 143.701, 34, 0)
	pt3dadd(112.5, 144.141, 35, 0)
	pt3dadd(112.061, 143.701, 34, 0)
	pt3dadd(111.621, 143.262, 33, 0)
	pt3dadd(111.621, 143.701, 32, 0)
	pt3dadd(112.061, 144.141, 32, 0)
  }
  dend[39] {pt3dclear()
	pt3dadd(112.061, 144.141, 32, 0)
	pt3dadd(112.5, 144.58, 32, 0)
	pt3dadd(112.939, 145.02, 32, 0)
	pt3dadd(113.379, 145.459, 31, 0)
  }
  dend[40] {pt3dclear()
	pt3dadd(113.379, 145.459, 31, 0)
	pt3dadd(113.818, 145.898, 31, 0)
	pt3dadd(114.258, 146.338, 31, 0)
	pt3dadd(114.258, 146.777, 31, 0)
	pt3dadd(114.258, 147.217, 31, 0)
	pt3dadd(114.258, 147.656, 30, 0)
	pt3dadd(114.258, 148.096, 30, 0)
	pt3dadd(114.697, 148.535, 29, 0)
	pt3dadd(114.697, 148.975, 29, 0)
	pt3dadd(114.697, 149.414, 29, 0)
	pt3dadd(115.137, 149.854, 29, 0)
  }
  dend[41] {pt3dclear()
	pt3dadd(115.137, 149.854, 29, 0)
	pt3dadd(115.576, 150.293, 29, 0)
	pt3dadd(115.576, 150.732, 29, 0)
	pt3dadd(116.016, 151.172, 29, 0)
  }
  dend[42] {pt3dclear()
	pt3dadd(116.016, 151.172, 29, 0)
	pt3dadd(116.016, 151.611, 29, 0)
	pt3dadd(116.016, 152.051, 29, 0)
	pt3dadd(116.455, 152.49, 29, 0)
	pt3dadd(116.455, 152.93, 29, 0)
	pt3dadd(116.455, 153.369, 29, 0)
	pt3dadd(116.895, 153.809, 29, 0)
	pt3dadd(117.334, 154.248, 29, 0)
	pt3dadd(117.773, 154.688, 29, 0)
	pt3dadd(118.213, 154.688, 29, 0)
	pt3dadd(118.652, 155.127, 29, 0)
	pt3dadd(119.092, 155.566, 29, 0)
  }
  dend[43] {pt3dclear()
	pt3dadd(119.092, 155.566, 29, 0)
	pt3dadd(119.531, 156.006, 29, 0)
	pt3dadd(119.531, 156.445, 29, 0)
	pt3dadd(119.971, 156.885, 29, 0)
	pt3dadd(119.971, 157.324, 29, 0)
	pt3dadd(119.971, 157.764, 29, 0)
	pt3dadd(120.41, 158.203, 29, 0)
	pt3dadd(120.85, 158.643, 29, 0)
	pt3dadd(121.289, 158.643, 29, 0)
	pt3dadd(121.729, 159.082, 29, 0)
	pt3dadd(122.168, 159.521, 29, 0)
	pt3dadd(122.607, 159.961, 29, 0)
	pt3dadd(123.047, 159.521, 30, 0)
	pt3dadd(123.486, 159.082, 30, 0)
	pt3dadd(123.047, 159.521, 30, 0)
	pt3dadd(123.047, 159.961, 29, 0)
	pt3dadd(123.047, 160.4, 29, 0)
	pt3dadd(123.486, 160.84, 28, 0)
	pt3dadd(123.926, 160.84, 28, 0)
	pt3dadd(124.365, 160.84, 28, 0)
	pt3dadd(124.805, 161.279, 28, 0)
	pt3dadd(125.244, 161.279, 28, 0)
	pt3dadd(125.684, 161.279, 28, 0)
	pt3dadd(126.123, 161.279, 28, 0)
	pt3dadd(126.562, 161.279, 28, 0)
	pt3dadd(127.002, 161.279, 28, 0)
	pt3dadd(127.441, 161.279, 28, 0)
	pt3dadd(127.881, 161.279, 28, 0)
	pt3dadd(128.32, 161.279, 28, 0)
	pt3dadd(128.76, 161.279, 28, 0)
	pt3dadd(129.199, 160.84, 28, 0)
  }
  dend[44] {pt3dclear()
	pt3dadd(129.199, 160.84, 28, 0)
	pt3dadd(129.639, 160.4, 28, 0)
	pt3dadd(130.078, 160.4, 28, 0)
	pt3dadd(130.518, 159.961, 28, 0)
	pt3dadd(130.957, 159.521, 28, 0)
	pt3dadd(131.396, 159.082, 28, 0)
	pt3dadd(131.836, 159.082, 28, 0)
	pt3dadd(132.275, 158.643, 28, 0)
	pt3dadd(132.715, 158.643, 28, 0)
	pt3dadd(133.154, 158.643, 28, 0)
	pt3dadd(133.594, 158.203, 28, 0)
	pt3dadd(134.033, 158.203, 28, 0)
  }
  dend[45] {pt3dclear()
	pt3dadd(134.033, 158.203, 28, 0)
	pt3dadd(134.473, 158.203, 28, 0)
	pt3dadd(134.912, 158.203, 28, 0)
	pt3dadd(135.352, 158.203, 28, 0)
	pt3dadd(135.791, 158.203, 28, 0)
	pt3dadd(136.23, 158.643, 28, 0)
	pt3dadd(136.67, 158.643, 28, 0)
	pt3dadd(137.109, 158.643, 28, 0)
	pt3dadd(137.549, 158.643, 28, 0)
	pt3dadd(137.988, 158.643, 28, 0)
	pt3dadd(138.428, 158.643, 28, 0)
	pt3dadd(138.867, 158.643, 28, 0)
	pt3dadd(139.307, 158.643, 28, 0)
	pt3dadd(139.746, 158.203, 28, 0)
	pt3dadd(140.186, 158.203, 28, 0)
	pt3dadd(140.625, 157.764, 28, 0)
	pt3dadd(141.064, 157.764, 28, 0)
	pt3dadd(141.504, 157.764, 28, 0)
	pt3dadd(141.943, 157.764, 28, 0)
	pt3dadd(142.383, 157.764, 28, 0)
	pt3dadd(142.822, 157.764, 28, 0)
	pt3dadd(143.262, 157.764, 28, 0)
	pt3dadd(143.701, 157.764, 28, 0)
	pt3dadd(144.141, 157.764, 28, 0)
	pt3dadd(144.58, 157.764, 28, 0)
  }
  dend[46] {pt3dclear()
	pt3dadd(144.58, 157.764, 28, 0)
	pt3dadd(145.02, 157.324, 29, 0)
	pt3dadd(145.459, 156.885, 30, 0)
	pt3dadd(145.898, 156.885, 30, 0)
	pt3dadd(146.338, 156.885, 30, 0)
	pt3dadd(146.777, 156.885, 30, 0)
	pt3dadd(147.217, 156.885, 30, 0)
	pt3dadd(147.656, 156.445, 30, 0)
	pt3dadd(148.096, 156.445, 30, 0)
	pt3dadd(148.535, 156.445, 30, 0)
	pt3dadd(148.975, 156.445, 30, 0)
	pt3dadd(149.414, 156.445, 30, 0)
	pt3dadd(149.854, 156.445, 30, 0)
	pt3dadd(150.293, 156.445, 29, 0)
	pt3dadd(150.732, 156.445, 29, 0)
	pt3dadd(151.172, 156.445, 29, 0)
	pt3dadd(151.611, 156.445, 29, 0)
	pt3dadd(152.051, 156.445, 29, 0)
	pt3dadd(152.49, 156.885, 29, 0)
	pt3dadd(152.051, 156.445, 29, 0)
	pt3dadd(152.49, 156.006, 28, 0)
	pt3dadd(152.93, 156.006, 28, 0)
	pt3dadd(153.369, 156.006, 28, 0)
	pt3dadd(153.809, 156.006, 28, 0)
	pt3dadd(154.248, 156.006, 28, 0)
	pt3dadd(154.688, 156.006, 28, 0)
	pt3dadd(155.127, 156.006, 28, 0)
	pt3dadd(155.566, 156.006, 28, 0)
	pt3dadd(156.006, 156.006, 28, 0)
	pt3dadd(156.445, 156.445, 27, 0)
	pt3dadd(156.885, 156.445, 27, 0)
	pt3dadd(157.324, 156.445, 27, 0)
	pt3dadd(157.764, 156.885, 26, 0)
	pt3dadd(158.203, 156.885, 26, 0)
	pt3dadd(158.643, 157.324, 26, 0)
	pt3dadd(159.082, 157.324, 26, 0)
	pt3dadd(159.521, 157.764, 26, 0)
	pt3dadd(159.961, 158.203, 25, 0)
	pt3dadd(160.4, 158.203, 25, 0)
	pt3dadd(160.84, 158.203, 25, 0)
	pt3dadd(161.279, 158.203, 25, 0)
	pt3dadd(161.719, 158.203, 25, 0)
	pt3dadd(162.158, 158.643, 25, 0)
	pt3dadd(162.598, 158.643, 25, 0)
	pt3dadd(163.037, 158.643, 25, 0)
	pt3dadd(163.477, 158.643, 24, 0)
	pt3dadd(163.916, 158.643, 24, 0)
	pt3dadd(164.355, 158.643, 24, 0)
	pt3dadd(164.795, 158.203, 24, 0)
	pt3dadd(165.234, 158.203, 24, 0)
	pt3dadd(165.674, 158.203, 24, 0)
	pt3dadd(166.113, 158.203, 24, 0)
	pt3dadd(166.553, 158.203, 24, 0)
	pt3dadd(166.992, 157.764, 24, 0)
	pt3dadd(167.432, 157.764, 24, 0)
	pt3dadd(167.871, 157.324, 24, 0)
	pt3dadd(168.311, 156.885, 24, 0)
	pt3dadd(168.75, 156.885, 24, 0)
	pt3dadd(169.189, 156.885, 25, 0)
	pt3dadd(169.629, 156.885, 25, 0)
	pt3dadd(169.629, 156.885, 24, 0)
  }
}
proc shape3d_7() {
  dend[46] {	pt3dadd(169.629, 156.885, 23, 0)
	pt3dadd(170.068, 156.885, 22, 0)
	pt3dadd(170.508, 156.885, 22, 0)
	pt3dadd(170.947, 156.885, 22, 0)
	pt3dadd(171.387, 156.885, 22, 0)
	pt3dadd(171.826, 156.885, 22, 0)
	pt3dadd(172.266, 156.445, 21, 0)
	pt3dadd(172.705, 156.006, 21, 0)
	pt3dadd(173.145, 156.006, 21, 0)
	pt3dadd(173.584, 155.566, 21, 0)
	pt3dadd(174.023, 155.127, 21, 0)
	pt3dadd(174.463, 154.688, 22, 0)
	pt3dadd(174.463, 154.248, 22, 0)
	pt3dadd(174.902, 153.809, 22, 0)
	pt3dadd(175.342, 153.369, 23, 0)
	pt3dadd(175.781, 152.93, 23, 0)
	pt3dadd(175.781, 152.49, 23, 0)
	pt3dadd(176.221, 152.051, 23, 0)
	pt3dadd(176.66, 151.611, 23, 0)
	pt3dadd(177.1, 151.611, 22, 0)
	pt3dadd(177.539, 152.051, 22, 0)
	pt3dadd(177.1, 151.611, 22, 0)
	pt3dadd(176.66, 151.611, 23, 0)
	pt3dadd(176.66, 151.172, 23, 0)
	pt3dadd(176.66, 150.732, 24, 0)
	pt3dadd(177.1, 150.293, 24, 0)
	pt3dadd(177.1, 149.854, 24, 0)
	pt3dadd(177.539, 149.414, 24, 0)
	pt3dadd(177.539, 148.975, 24, 0)
	pt3dadd(177.539, 148.535, 24, 0)
	pt3dadd(177.979, 148.096, 24, 0)
	pt3dadd(178.418, 147.656, 24, 0)
	pt3dadd(178.857, 147.217, 24, 0)
	pt3dadd(179.297, 146.777, 24, 0)
	pt3dadd(179.297, 146.338, 24, 0)
	pt3dadd(179.297, 145.898, 24, 0)
	pt3dadd(179.736, 145.459, 24, 0)
	pt3dadd(180.176, 145.02, 23, 0)
	pt3dadd(180.615, 144.58, 23, 0)
	pt3dadd(181.055, 144.141, 22, 0)
	pt3dadd(181.494, 143.701, 22, 0)
	pt3dadd(181.934, 143.701, 22, 0)
	pt3dadd(182.373, 143.262, 22, 0)
	pt3dadd(182.812, 143.262, 22, 0)
	pt3dadd(183.252, 142.822, 22, 0)
	pt3dadd(183.691, 142.383, 22, 0)
	pt3dadd(184.131, 141.943, 22, 0)
	pt3dadd(184.57, 141.504, 22, 0)
	pt3dadd(185.01, 141.064, 22, 0)
	pt3dadd(185.449, 140.625, 22, 0)
	pt3dadd(185.449, 140.186, 22, 0)
	pt3dadd(185.449, 139.746, 22, 0)
	pt3dadd(185.889, 139.307, 23, 0)
	pt3dadd(186.328, 138.867, 23, 0)
	pt3dadd(186.328, 138.428, 23, 0)
	pt3dadd(186.768, 137.988, 24, 0)
	pt3dadd(186.768, 137.549, 23, 0)
	pt3dadd(186.768, 137.109, 22, 0)
	pt3dadd(187.207, 136.67, 22, 0)
	pt3dadd(187.207, 136.23, 22, 0)
	pt3dadd(187.207, 135.791, 22, 0)
	pt3dadd(187.646, 135.352, 22, 0)
	pt3dadd(187.646, 134.912, 22, 0)
	pt3dadd(187.646, 134.473, 22, 0)
	pt3dadd(188.086, 134.033, 23, 0)
	pt3dadd(188.086, 133.594, 23, 0)
	pt3dadd(188.086, 133.154, 23, 0)
	pt3dadd(188.086, 132.715, 23, 0)
	pt3dadd(188.525, 132.275, 23, 0)
	pt3dadd(188.965, 131.836, 23, 0)
	pt3dadd(189.404, 131.396, 23, 0)
	pt3dadd(189.844, 130.957, 23, 0)
	pt3dadd(190.283, 130.957, 23, 0)
  }
  dend[47] {pt3dclear()
	pt3dadd(190.283, 130.957, 23, 0)
	pt3dadd(190.723, 130.957, 23, 0)
	pt3dadd(191.162, 130.957, 23, 0)
	pt3dadd(191.602, 130.957, 22, 0)
	pt3dadd(192.041, 130.957, 22, 0)
	pt3dadd(192.48, 131.396, 22, 0)
	pt3dadd(192.92, 131.836, 22, 0)
	pt3dadd(193.359, 131.836, 22, 0)
	pt3dadd(193.799, 131.836, 22, 0)
	pt3dadd(194.238, 131.836, 22, 0)
	pt3dadd(194.678, 131.836, 22, 0)
	pt3dadd(195.117, 131.836, 22, 0)
	pt3dadd(195.557, 131.836, 22, 0)
	pt3dadd(195.996, 131.396, 23, 0)
	pt3dadd(196.436, 131.396, 23, 0)
	pt3dadd(196.875, 131.396, 23, 0)
	pt3dadd(197.314, 131.396, 23, 0)
	pt3dadd(197.754, 131.396, 23, 0)
	pt3dadd(198.193, 131.396, 23, 0)
	pt3dadd(198.633, 131.396, 23, 0)
	pt3dadd(199.072, 131.836, 23, 0)
	pt3dadd(199.512, 131.836, 23, 0)
	pt3dadd(199.951, 131.836, 23, 0)
	pt3dadd(200.391, 132.275, 23, 0)
	pt3dadd(200.83, 132.275, 23, 0)
	pt3dadd(201.27, 132.715, 23, 0)
	pt3dadd(201.709, 133.154, 23, 0)
	pt3dadd(202.148, 133.154, 23, 0)
	pt3dadd(202.588, 133.154, 23, 0)
  }
  dend[48] {pt3dclear()
	pt3dadd(94.043, 93.1641, 39, 0)
	pt3dadd(94.043, 93.1641, 39, 0)
	pt3dadd(94.4824, 92.7246, 40, 0)
	pt3dadd(94.9219, 92.2852, 40, 0)
	pt3dadd(94.9219, 91.8457, 40, 0)
	pt3dadd(95.3613, 91.4062, 40, 0)
	pt3dadd(95.3613, 90.9668, 40, 0)
	pt3dadd(95.3613, 90.5273, 40, 0)
	pt3dadd(95.8008, 90.0879, 40, 0)
	pt3dadd(95.8008, 89.6484, 40, 0)
	pt3dadd(95.3613, 89.209, 39, 0)
	pt3dadd(95.8008, 88.7695, 39, 0)
	pt3dadd(95.8008, 88.3301, 39, 0)
	pt3dadd(95.8008, 87.8906, 39, 0)
	pt3dadd(95.8008, 87.4512, 39, 0)
	pt3dadd(95.3613, 87.0117, 39, 0)
	pt3dadd(95.3613, 86.5723, 39, 0)
	pt3dadd(95.3613, 86.1328, 39, 0)
	pt3dadd(94.9219, 85.6934, 38, 0)
	pt3dadd(94.9219, 85.2539, 38, 0)
	pt3dadd(94.9219, 84.8145, 38, 0)
	pt3dadd(95.3613, 84.375, 38, 0)
	pt3dadd(95.3613, 83.9355, 38, 0)
	pt3dadd(95.3613, 83.4961, 38, 0)
	pt3dadd(95.8008, 83.0566, 38, 0)
	pt3dadd(96.2402, 82.6172, 38, 0)
	pt3dadd(96.6797, 82.1777, 38, 0)
	pt3dadd(97.1191, 81.7383, 37, 0)
	pt3dadd(97.5586, 81.7383, 37, 0)
	pt3dadd(97.998, 81.7383, 37, 0)
	pt3dadd(98.4375, 81.7383, 37, 0)
	pt3dadd(98.877, 81.2988, 37, 0)
	pt3dadd(99.3164, 81.2988, 37, 0)
	pt3dadd(99.7559, 80.8594, 37, 0)
	pt3dadd(100.195, 80.4199, 36, 0)
	pt3dadd(100.635, 79.9805, 36, 0)
	pt3dadd(101.074, 79.541, 36, 0)
	pt3dadd(101.514, 79.1016, 37, 0)
	pt3dadd(101.953, 79.1016, 37, 0)
	pt3dadd(102.393, 79.1016, 37, 0)
	pt3dadd(102.832, 79.1016, 38, 0)
	pt3dadd(102.832, 78.6621, 37, 0)
	pt3dadd(103.271, 78.6621, 36, 0)
	pt3dadd(103.711, 78.2227, 35, 0)
	pt3dadd(103.711, 77.7832, 35, 0)
	pt3dadd(104.15, 77.3438, 35, 0)
	pt3dadd(104.59, 76.9043, 35, 0)
	pt3dadd(105.029, 76.4648, 35, 0)
  }
  dend[49] {pt3dclear()
	pt3dadd(105.029, 76.4648, 35, 0)
	pt3dadd(105.029, 76.0254, 35, 0)
	pt3dadd(105.029, 75.5859, 35, 0)
	pt3dadd(105.469, 75.1465, 35, 0)
	pt3dadd(105.469, 74.707, 35, 0)
	pt3dadd(105.908, 74.2676, 35, 0)
	pt3dadd(105.908, 73.8281, 35, 0)
	pt3dadd(105.908, 73.3887, 35, 0)
	pt3dadd(105.908, 72.9492, 35, 0)
	pt3dadd(105.908, 72.5098, 35, 0)
	pt3dadd(105.908, 72.0703, 35, 0)
	pt3dadd(105.908, 71.6309, 35, 0)
	pt3dadd(106.348, 71.1914, 35, 0)
	pt3dadd(106.348, 70.752, 35, 0)
	pt3dadd(106.348, 70.3125, 35, 0)
	pt3dadd(106.787, 69.873, 35, 0)
	pt3dadd(106.787, 69.4336, 35, 0)
	pt3dadd(106.787, 68.9941, 35, 0)
	pt3dadd(106.787, 68.5547, 35, 0)
	pt3dadd(106.787, 68.1152, 35, 0)
	pt3dadd(106.348, 67.6758, 36, 0)
	pt3dadd(106.348, 67.2363, 36, 0)
	pt3dadd(105.908, 66.7969, 36, 0)
	pt3dadd(105.469, 66.3574, 36, 0)
	pt3dadd(105.469, 65.918, 36, 0)
	pt3dadd(105.908, 65.4785, 36, 0)
	pt3dadd(106.348, 65.0391, 36, 0)
	pt3dadd(105.908, 65.4785, 36, 0)
	pt3dadd(105.469, 65.918, 36, 0)
	pt3dadd(105.469, 66.3574, 37, 0)
	pt3dadd(105.469, 66.3574, 38, 0)
  }
  dend[50] {pt3dclear()
	pt3dadd(105.469, 66.3574, 38, 0)
	pt3dadd(105.029, 65.918, 39, 0)
	pt3dadd(104.59, 65.4785, 39, 0)
	pt3dadd(104.15, 65.0391, 40, 0)
	pt3dadd(103.711, 64.5996, 41, 0)
	pt3dadd(103.271, 64.1602, 41, 0)
	pt3dadd(102.832, 63.7207, 41, 0)
	pt3dadd(102.393, 63.2812, 41, 0)
	pt3dadd(102.393, 62.8418, 41, 0)
	pt3dadd(101.953, 62.4023, 41, 0)
	pt3dadd(101.514, 62.4023, 41, 0)
	pt3dadd(101.074, 62.4023, 41, 0)
	pt3dadd(100.635, 61.9629, 42, 0)
  }
  dend[51] {pt3dclear()
	pt3dadd(100.635, 61.9629, 42, 0)
	pt3dadd(100.195, 61.5234, 42, 0)
	pt3dadd(99.7559, 61.084, 42, 0)
	pt3dadd(99.3164, 61.084, 42, 0)
	pt3dadd(98.877, 61.084, 42, 0)
	pt3dadd(98.4375, 60.6445, 42, 0)
  }
}
proc shape3d_8() {
  dend[51] {	pt3dadd(97.998, 60.6445, 42, 0)
	pt3dadd(97.5586, 60.6445, 42, 0)
	pt3dadd(97.1191, 60.6445, 42, 0)
	pt3dadd(96.6797, 60.6445, 42, 0)
	pt3dadd(96.2402, 60.6445, 42, 0)
	pt3dadd(95.8008, 60.6445, 42, 0)
	pt3dadd(95.3613, 60.6445, 42, 0)
	pt3dadd(94.9219, 60.6445, 42, 0)
	pt3dadd(94.4824, 60.6445, 42, 0)
	pt3dadd(94.043, 60.6445, 42, 0)
  }
  dend[52] {pt3dclear()
	pt3dadd(94.043, 60.6445, 42, 0)
	pt3dadd(93.6035, 61.084, 42, 0)
	pt3dadd(93.1641, 61.084, 42, 0)
	pt3dadd(92.7246, 61.084, 42, 0)
	pt3dadd(92.2852, 61.084, 42, 0)
	pt3dadd(91.8457, 61.084, 42, 0)
	pt3dadd(91.4062, 61.084, 42, 0)
	pt3dadd(90.9668, 61.084, 41, 0)
	pt3dadd(90.5273, 61.084, 41, 0)
	pt3dadd(90.0879, 61.5234, 41, 0)
	pt3dadd(89.6484, 61.5234, 41, 0)
	pt3dadd(89.209, 61.5234, 41, 0)
	pt3dadd(88.7695, 61.5234, 41, 0)
	pt3dadd(88.3301, 61.9629, 40, 0)
	pt3dadd(87.8906, 61.9629, 40, 0)
	pt3dadd(87.4512, 62.4023, 41, 0)
	pt3dadd(87.0117, 62.4023, 41, 0)
	pt3dadd(86.5723, 62.4023, 42, 0)
	pt3dadd(86.5723, 62.4023, 43, 0)
	pt3dadd(86.5723, 62.4023, 42, 0)
	pt3dadd(86.1328, 62.8418, 41, 0)
	pt3dadd(85.6934, 63.2812, 40, 0)
	pt3dadd(85.2539, 63.7207, 40, 0)
	pt3dadd(84.8145, 64.1602, 40, 0)
	pt3dadd(84.375, 64.5996, 40, 0)
	pt3dadd(83.9355, 65.0391, 39, 0)
	pt3dadd(83.4961, 65.4785, 38, 0)
	pt3dadd(83.0566, 65.918, 38, 0)
	pt3dadd(82.6172, 66.3574, 38, 0)
	pt3dadd(82.1777, 66.7969, 38, 0)
	pt3dadd(81.7383, 67.2363, 38, 0)
	pt3dadd(81.2988, 67.2363, 38, 0)
	pt3dadd(80.8594, 67.6758, 38, 0)
	pt3dadd(81.2988, 68.1152, 39, 0)
  }
  dend[53] {pt3dclear()
	pt3dadd(85.2539, 86.1328, 37, 0)
	pt3dadd(85.2539, 86.1328, 37, 0)
	pt3dadd(85.6934, 86.1328, 38, 0)
	pt3dadd(85.6934, 85.6934, 39, 0)
	pt3dadd(85.6934, 85.2539, 39, 0)
	pt3dadd(86.1328, 84.8145, 39, 0)
	pt3dadd(86.1328, 84.375, 39, 0)
	pt3dadd(86.1328, 83.9355, 39, 0)
	pt3dadd(86.1328, 83.4961, 40, 0)
	pt3dadd(86.5723, 83.0566, 40, 0)
	pt3dadd(86.5723, 82.6172, 40, 0)
	pt3dadd(86.5723, 82.1777, 40, 0)
	pt3dadd(86.5723, 81.7383, 40, 0)
	pt3dadd(86.5723, 81.2988, 40, 0)
	pt3dadd(86.1328, 80.8594, 40, 0)
	pt3dadd(86.1328, 80.4199, 39, 0)
	pt3dadd(86.1328, 79.9805, 39, 0)
	pt3dadd(86.1328, 79.541, 39, 0)
	pt3dadd(86.1328, 79.1016, 39, 0)
	pt3dadd(85.6934, 79.541, 39, 0)
	pt3dadd(85.2539, 79.9805, 40, 0)
	pt3dadd(84.8145, 80.4199, 41, 0)
	pt3dadd(84.375, 79.9805, 41, 0)
	pt3dadd(83.9355, 79.9805, 41, 0)
	pt3dadd(83.4961, 79.541, 42, 0)
	pt3dadd(83.0566, 79.1016, 42, 0)
	pt3dadd(82.6172, 78.6621, 42, 0)
	pt3dadd(82.1777, 78.6621, 42, 0)
	pt3dadd(81.7383, 79.1016, 42, 0)
	pt3dadd(81.2988, 78.6621, 42, 0)
	pt3dadd(80.8594, 78.6621, 42, 0)
	pt3dadd(80.4199, 78.6621, 42, 0)
	pt3dadd(79.9805, 78.6621, 42, 0)
	pt3dadd(79.541, 78.6621, 42, 0)
	pt3dadd(79.1016, 78.2227, 42, 0)
	pt3dadd(78.6621, 78.2227, 43, 0)
	pt3dadd(78.2227, 77.7832, 43, 0)
	pt3dadd(77.7832, 77.7832, 43, 0)
	pt3dadd(77.3438, 77.3438, 43, 0)
	pt3dadd(76.9043, 77.3438, 43, 0)
	pt3dadd(76.4648, 77.3438, 43, 0)
	pt3dadd(76.0254, 77.3438, 43, 0)
	pt3dadd(75.5859, 77.3438, 42, 0)
	pt3dadd(75.5859, 77.3438, 43, 0)
	pt3dadd(75.1465, 77.3438, 44, 0)
	pt3dadd(74.707, 77.3438, 44, 0)
	pt3dadd(74.2676, 77.3438, 45, 0)
	pt3dadd(73.8281, 76.9043, 45, 0)
	pt3dadd(73.3887, 76.4648, 45, 0)
	pt3dadd(72.9492, 76.0254, 45, 0)
	pt3dadd(72.5098, 75.5859, 45, 0)
	pt3dadd(72.5098, 75.1465, 45, 0)
	pt3dadd(72.5098, 74.707, 45, 0)
	pt3dadd(72.0703, 74.2676, 45, 0)
	pt3dadd(71.6309, 73.8281, 45, 0)
	pt3dadd(71.6309, 73.3887, 45, 0)
	pt3dadd(71.6309, 72.9492, 45, 0)
	pt3dadd(71.6309, 72.5098, 46, 0)
	pt3dadd(71.1914, 72.0703, 46, 0)
	pt3dadd(70.752, 71.6309, 46, 0)
	pt3dadd(70.3125, 71.1914, 46, 0)
	pt3dadd(69.873, 70.752, 46, 0)
	pt3dadd(69.873, 70.3125, 46, 0)
	pt3dadd(69.4336, 69.873, 45, 0)
	pt3dadd(68.9941, 69.873, 45, 0)
	pt3dadd(69.4336, 69.873, 46, 0)
	pt3dadd(69.4336, 69.4336, 47, 0)
	pt3dadd(69.4336, 68.9941, 47, 0)
	pt3dadd(68.9941, 68.5547, 47, 0)
	pt3dadd(68.9941, 68.1152, 47, 0)
	pt3dadd(68.5547, 67.6758, 48, 0)
	pt3dadd(68.1152, 67.2363, 48, 0)
	pt3dadd(67.6758, 66.7969, 48, 0)
	pt3dadd(67.6758, 66.3574, 48, 0)
	pt3dadd(67.2363, 65.918, 48, 0)
	pt3dadd(66.7969, 65.4785, 48, 0)
	pt3dadd(66.3574, 65.0391, 48, 0)
	pt3dadd(66.3574, 64.5996, 48, 0)
	pt3dadd(65.918, 64.1602, 49, 0)
	pt3dadd(65.4785, 64.1602, 49, 0)
	pt3dadd(65.0391, 63.7207, 49, 0)
	pt3dadd(64.5996, 63.2812, 49, 0)
	pt3dadd(64.1602, 62.8418, 49, 0)
	pt3dadd(63.7207, 62.4023, 49, 0)
	pt3dadd(63.2812, 61.9629, 49, 0)
	pt3dadd(63.2812, 61.5234, 49, 0)
  }
  dend[54] {pt3dclear()
	pt3dadd(79.541, 83.4961, 38, 0)
	pt3dadd(79.541, 83.4961, 38, 0)
	pt3dadd(79.9805, 83.4961, 38, 0)
	pt3dadd(80.4199, 83.0566, 37, 0)
	pt3dadd(80.4199, 82.6172, 37, 0)
	pt3dadd(80.4199, 82.1777, 37, 0)
	pt3dadd(80.4199, 81.7383, 37, 0)
	pt3dadd(80.8594, 81.2988, 37, 0)
	pt3dadd(80.8594, 80.8594, 37, 0)
	pt3dadd(80.8594, 80.4199, 37, 0)
	pt3dadd(80.8594, 79.9805, 37, 0)
	pt3dadd(81.2988, 79.541, 37, 0)
	pt3dadd(81.2988, 79.1016, 37, 0)
	pt3dadd(81.2988, 78.6621, 37, 0)
	pt3dadd(81.2988, 78.2227, 37, 0)
	pt3dadd(81.2988, 77.7832, 37, 0)
	pt3dadd(81.2988, 77.3438, 37, 0)
  }
  dend[55] {pt3dclear()
	pt3dadd(81.2988, 77.3438, 37, 0)
	pt3dadd(80.8594, 76.9043, 37, 0)
	pt3dadd(80.4199, 76.4648, 37, 0)
	pt3dadd(80.4199, 76.0254, 37, 0)
	pt3dadd(80.4199, 75.5859, 37, 0)
	pt3dadd(80.4199, 75.1465, 37, 0)
	pt3dadd(79.9805, 74.707, 37, 0)
	pt3dadd(79.9805, 74.2676, 37, 0)
	pt3dadd(80.4199, 73.8281, 36, 0)
	pt3dadd(79.9805, 73.3887, 36, 0)
	pt3dadd(79.9805, 72.9492, 36, 0)
	pt3dadd(80.4199, 72.5098, 36, 0)
	pt3dadd(80.4199, 72.0703, 35, 0)
	pt3dadd(80.4199, 71.6309, 35, 0)
	pt3dadd(80.8594, 71.1914, 35, 0)
	pt3dadd(80.8594, 70.752, 35, 0)
	pt3dadd(80.8594, 70.3125, 35, 0)
	pt3dadd(80.8594, 69.873, 34, 0)
	pt3dadd(80.4199, 69.4336, 33, 0)
	pt3dadd(79.9805, 68.9941, 33, 0)
	pt3dadd(79.541, 68.5547, 32, 0)
	pt3dadd(79.1016, 68.1152, 31, 0)
	pt3dadd(78.6621, 67.6758, 31, 0)
	pt3dadd(78.6621, 67.2363, 31, 0)
	pt3dadd(78.2227, 66.7969, 31, 0)
	pt3dadd(77.7832, 66.3574, 31, 0)
	pt3dadd(77.7832, 65.918, 31, 0)
	pt3dadd(77.7832, 65.4785, 31, 0)
	pt3dadd(77.7832, 65.0391, 31, 0)
	pt3dadd(77.3438, 64.5996, 31, 0)
	pt3dadd(77.3438, 64.1602, 31, 0)
	pt3dadd(76.9043, 63.7207, 31, 0)
	pt3dadd(76.4648, 63.2812, 31, 0)
	pt3dadd(76.4648, 62.8418, 31, 0)
	pt3dadd(76.0254, 62.4023, 31, 0)
	pt3dadd(76.0254, 61.9629, 31, 0)
	pt3dadd(76.4648, 61.5234, 30, 0)
	pt3dadd(76.0254, 61.084, 29, 0)
	pt3dadd(76.0254, 61.084, 28, 0)
	pt3dadd(76.0254, 60.6445, 27, 0)
  }
  dend[56] {pt3dclear()
	pt3dadd(58.0078, 84.8145, 41, 0)
	pt3dadd(58.0078, 84.8145, 41, 0)
	pt3dadd(58.0078, 85.2539, 40, 0)
	pt3dadd(58.0078, 85.6934, 39, 0)
	pt3dadd(57.5684, 85.6934, 38, 0)
	pt3dadd(57.5684, 86.1328, 38, 0)
	pt3dadd(57.5684, 86.5723, 37, 0)
	pt3dadd(57.1289, 87.0117, 36, 0)
	pt3dadd(57.1289, 87.4512, 36, 0)
	pt3dadd(56.6895, 87.8906, 36, 0)
	pt3dadd(56.6895, 88.3301, 36, 0)
	pt3dadd(56.25, 88.7695, 36, 0)
	pt3dadd(55.8105, 88.7695, 36, 0)
  }
}
proc shape3d_9() {
  dend[56] {	pt3dadd(55.3711, 88.7695, 36, 0)
	pt3dadd(54.9316, 88.7695, 36, 0)
	pt3dadd(54.4922, 88.3301, 36, 0)
	pt3dadd(54.9316, 88.7695, 36, 0)
	pt3dadd(55.3711, 89.209, 35, 0)
	pt3dadd(54.9316, 89.209, 34, 0)
	pt3dadd(54.4922, 89.209, 33, 0)
	pt3dadd(54.0527, 89.209, 33, 0)
	pt3dadd(53.6133, 89.209, 32, 0)
	pt3dadd(53.1738, 88.7695, 31, 0)
	pt3dadd(52.7344, 88.7695, 31, 0)
	pt3dadd(52.2949, 88.7695, 31, 0)
	pt3dadd(51.8555, 88.7695, 30, 0)
	pt3dadd(51.416, 89.209, 30, 0)
	pt3dadd(50.9766, 89.6484, 30, 0)
	pt3dadd(50.5371, 89.6484, 30, 0)
	pt3dadd(50.0977, 89.6484, 30, 0)
	pt3dadd(49.6582, 90.0879, 29, 0)
	pt3dadd(49.2188, 90.5273, 28, 0)
	pt3dadd(48.7793, 90.5273, 28, 0)
	pt3dadd(48.3398, 90.9668, 28, 0)
	pt3dadd(47.9004, 91.4062, 28, 0)
	pt3dadd(47.4609, 91.4062, 28, 0)
	pt3dadd(47.0215, 91.4062, 28, 0)
	pt3dadd(46.582, 91.4062, 28, 0)
  }
  dend[57] {pt3dclear()
	pt3dadd(43.5059, 83.0566, 44, 0)
	pt3dadd(43.5059, 83.0566, 44, 0)
	pt3dadd(43.5059, 83.4961, 44, 0)
	pt3dadd(43.0664, 83.9355, 44, 0)
	pt3dadd(42.627, 84.375, 44, 0)
	pt3dadd(42.1875, 84.8145, 44, 0)
	pt3dadd(42.1875, 85.2539, 44, 0)
	pt3dadd(42.1875, 85.6934, 44, 0)
	pt3dadd(42.1875, 86.1328, 44, 0)
	pt3dadd(41.748, 86.5723, 43, 0)
	pt3dadd(41.3086, 87.0117, 43, 0)
	pt3dadd(40.8691, 87.4512, 43, 0)
	pt3dadd(40.4297, 87.8906, 43, 0)
	pt3dadd(39.9902, 87.8906, 43, 0)
	pt3dadd(39.5508, 88.3301, 44, 0)
	pt3dadd(39.1113, 88.7695, 44, 0)
	pt3dadd(39.1113, 89.209, 44, 0)
	pt3dadd(38.6719, 89.6484, 44, 0)
  }
  dend[58] {pt3dclear()
	pt3dadd(29.8828, 77.7832, 47, 0)
	pt3dadd(29.8828, 77.7832, 47, 0)
	pt3dadd(29.4434, 78.2227, 47, 0)
	pt3dadd(29.4434, 78.6621, 47, 0)
	pt3dadd(29.4434, 79.1016, 47, 0)
	pt3dadd(29.0039, 79.541, 47, 0)
	pt3dadd(28.5645, 79.9805, 47, 0)
	pt3dadd(28.125, 80.4199, 46, 0)
	pt3dadd(27.6855, 80.8594, 46, 0)
	pt3dadd(27.6855, 81.2988, 46, 0)
	pt3dadd(27.6855, 81.7383, 46, 0)
	pt3dadd(27.2461, 82.1777, 46, 0)
	pt3dadd(26.8066, 82.6172, 46, 0)
	pt3dadd(26.3672, 83.0566, 46, 0)
	pt3dadd(25.9277, 83.4961, 45, 0)
	pt3dadd(25.4883, 83.9355, 45, 0)
  }
  dend[59] {pt3dclear()
	pt3dadd(108.105, 113.818, 43, 0)
	pt3dadd(108.105, 113.818, 43, 0)
	pt3dadd(108.545, 113.818, 42, 0)
	pt3dadd(108.984, 113.818, 42, 0)
	pt3dadd(109.424, 114.258, 42, 0)
	pt3dadd(109.863, 114.258, 42, 0)
	pt3dadd(110.303, 114.258, 42, 0)
	pt3dadd(110.742, 114.258, 42, 0)
	pt3dadd(111.182, 114.697, 41, 0)
	pt3dadd(111.621, 114.697, 41, 0)
	pt3dadd(112.061, 114.258, 41, 0)
	pt3dadd(112.5, 114.258, 41, 0)
	pt3dadd(112.939, 113.818, 41, 0)
	pt3dadd(113.379, 113.379, 41, 0)
	pt3dadd(113.818, 112.939, 41, 0)
	pt3dadd(114.258, 112.5, 41, 0)
	pt3dadd(114.697, 112.061, 41, 0)
	pt3dadd(115.137, 112.061, 41, 0)
	pt3dadd(115.576, 112.061, 41, 0)
	pt3dadd(116.016, 111.621, 41, 0)
	pt3dadd(116.455, 111.182, 40, 0)
	pt3dadd(116.895, 110.742, 40, 0)
	pt3dadd(116.895, 110.303, 40, 0)
	pt3dadd(117.334, 109.863, 40, 0)
	pt3dadd(117.773, 109.424, 40, 0)
	pt3dadd(118.213, 108.984, 40, 0)
	pt3dadd(118.652, 108.545, 40, 0)
	pt3dadd(119.092, 108.545, 40, 0)
	pt3dadd(119.531, 108.105, 40, 0)
	pt3dadd(119.971, 108.105, 40, 0)
	pt3dadd(120.41, 108.105, 41, 0)
	pt3dadd(119.971, 108.105, 40, 0)
	pt3dadd(119.971, 107.666, 39, 0)
	pt3dadd(120.41, 107.227, 39, 0)
	pt3dadd(120.85, 106.787, 39, 0)
	pt3dadd(121.289, 106.348, 39, 0)
	pt3dadd(121.729, 105.908, 38, 0)
	pt3dadd(122.168, 105.469, 38, 0)
	pt3dadd(122.607, 105.029, 38, 0)
	pt3dadd(122.607, 104.59, 38, 0)
	pt3dadd(123.047, 104.15, 38, 0)
	pt3dadd(123.486, 103.711, 38, 0)
	pt3dadd(123.926, 103.711, 38, 0)
	pt3dadd(124.365, 103.271, 37, 0)
	pt3dadd(124.805, 103.271, 37, 0)
	pt3dadd(125.244, 102.832, 37, 0)
	pt3dadd(125.684, 102.393, 37, 0)
	pt3dadd(126.123, 101.953, 36, 0)
	pt3dadd(126.562, 101.953, 36, 0)
	pt3dadd(127.002, 101.514, 36, 0)
	pt3dadd(127.441, 101.514, 36, 0)
	pt3dadd(127.881, 101.074, 37, 0)
	pt3dadd(128.32, 100.635, 38, 0)
	pt3dadd(128.76, 100.195, 37, 0)
	pt3dadd(129.199, 100.635, 36, 0)
	pt3dadd(129.639, 100.635, 35, 0)
  }
  dend[60] {pt3dclear()
	pt3dadd(129.639, 100.635, 35, 0)
	pt3dadd(130.078, 100.635, 35, 0)
	pt3dadd(130.518, 100.195, 35, 0)
	pt3dadd(130.957, 100.195, 35, 0)
	pt3dadd(131.396, 100.195, 35, 0)
  }
  dend[61] {pt3dclear()
	pt3dadd(131.396, 100.195, 35, 0)
	pt3dadd(131.836, 100.195, 35, 0)
	pt3dadd(132.275, 100.195, 34, 0)
	pt3dadd(132.715, 100.195, 34, 0)
	pt3dadd(133.154, 100.635, 34, 0)
	pt3dadd(133.594, 101.074, 34, 0)
	pt3dadd(134.033, 101.074, 34, 0)
	pt3dadd(134.473, 101.074, 34, 0)
	pt3dadd(134.912, 101.074, 34, 0)
	pt3dadd(135.352, 101.074, 34, 0)
	pt3dadd(135.791, 101.074, 34, 0)
	pt3dadd(136.23, 101.074, 35, 0)
	pt3dadd(136.67, 101.074, 35, 0)
	pt3dadd(137.109, 101.074, 35, 0)
	pt3dadd(137.549, 101.074, 35, 0)
	pt3dadd(137.988, 101.074, 35, 0)
	pt3dadd(138.428, 101.514, 35, 0)
	pt3dadd(138.867, 101.514, 35, 0)
	pt3dadd(139.307, 101.514, 35, 0)
	pt3dadd(139.746, 101.514, 35, 0)
	pt3dadd(140.186, 101.514, 35, 0)
	pt3dadd(140.625, 101.953, 35, 0)
	pt3dadd(141.064, 102.393, 34, 0)
	pt3dadd(141.504, 102.393, 34, 0)
	pt3dadd(141.943, 102.393, 34, 0)
	pt3dadd(142.383, 102.393, 34, 0)
	pt3dadd(142.822, 102.393, 34, 0)
	pt3dadd(143.262, 102.393, 34, 0)
	pt3dadd(143.701, 102.832, 34, 0)
	pt3dadd(144.141, 102.832, 34, 0)
	pt3dadd(144.58, 102.832, 34, 0)
	pt3dadd(145.02, 102.393, 34, 0)
	pt3dadd(145.459, 102.393, 34, 0)
	pt3dadd(145.898, 102.393, 34, 0)
	pt3dadd(146.338, 102.393, 34, 0)
	pt3dadd(146.777, 102.393, 34, 0)
	pt3dadd(147.217, 102.832, 34, 0)
	pt3dadd(147.217, 102.393, 34, 0)
	pt3dadd(147.656, 101.953, 33, 0)
	pt3dadd(148.096, 101.953, 32, 0)
	pt3dadd(148.535, 101.953, 32, 0)
	pt3dadd(148.975, 101.953, 32, 0)
	pt3dadd(149.414, 101.953, 32, 0)
	pt3dadd(149.854, 101.953, 32, 0)
	pt3dadd(150.293, 101.953, 32, 0)
	pt3dadd(150.732, 101.514, 32, 0)
	pt3dadd(151.172, 101.514, 32, 0)
	pt3dadd(151.611, 101.514, 32, 0)
	pt3dadd(152.051, 101.514, 32, 0)
	pt3dadd(152.49, 101.514, 32, 0)
	pt3dadd(152.93, 101.074, 32, 0)
	pt3dadd(153.369, 101.074, 32, 0)
	pt3dadd(153.809, 100.635, 32, 0)
	pt3dadd(154.248, 100.635, 32, 0)
	pt3dadd(154.688, 100.195, 32, 0)
	pt3dadd(155.127, 99.7559, 32, 0)
	pt3dadd(155.566, 99.3164, 32, 0)
	pt3dadd(156.006, 98.877, 32, 0)
	pt3dadd(156.006, 98.4375, 32, 0)
	pt3dadd(156.445, 97.998, 32, 0)
	pt3dadd(156.885, 97.5586, 32, 0)
	pt3dadd(156.885, 97.1191, 32, 0)
	pt3dadd(156.885, 96.6797, 32, 0)
	pt3dadd(156.885, 96.2402, 32, 0)
	pt3dadd(156.885, 95.8008, 32, 0)
	pt3dadd(156.885, 95.3613, 32, 0)
	pt3dadd(157.324, 94.9219, 32, 0)
	pt3dadd(157.764, 94.4824, 32, 0)
	pt3dadd(158.203, 94.043, 32, 0)
	pt3dadd(158.643, 94.043, 32, 0)
	pt3dadd(159.082, 93.6035, 32, 0)
	pt3dadd(159.521, 93.6035, 33, 0)
	pt3dadd(159.961, 94.043, 33, 0)
	pt3dadd(160.4, 94.043, 34, 0)
	pt3dadd(159.961, 94.043, 33, 0)
	pt3dadd(159.521, 93.6035, 33, 0)
	pt3dadd(159.521, 93.1641, 33, 0)
	pt3dadd(159.521, 92.7246, 33, 0)
	pt3dadd(159.961, 92.2852, 33, 0)
	pt3dadd(160.4, 91.8457, 33, 0)
  }
}
proc shape3d_10() {
  dend[61] {	pt3dadd(160.84, 91.4062, 33, 0)
	pt3dadd(161.279, 90.9668, 32, 0)
	pt3dadd(161.719, 90.9668, 32, 0)
	pt3dadd(162.158, 90.9668, 32, 0)
	pt3dadd(162.598, 90.5273, 32, 0)
	pt3dadd(163.037, 90.0879, 32, 0)
	pt3dadd(163.477, 89.6484, 32, 0)
	pt3dadd(163.916, 89.6484, 32, 0)
	pt3dadd(164.355, 89.209, 32, 0)
	pt3dadd(164.795, 88.7695, 32, 0)
	pt3dadd(165.234, 88.7695, 32, 0)
	pt3dadd(165.674, 88.7695, 32, 0)
	pt3dadd(166.113, 88.7695, 32, 0)
	pt3dadd(166.553, 88.3301, 32, 0)
	pt3dadd(166.992, 87.8906, 32, 0)
	pt3dadd(167.432, 87.8906, 32, 0)
	pt3dadd(167.871, 87.8906, 32, 0)
	pt3dadd(168.311, 87.4512, 31, 0)
	pt3dadd(168.75, 87.0117, 31, 0)
	pt3dadd(169.189, 86.5723, 31, 0)
	pt3dadd(169.629, 86.1328, 31, 0)
	pt3dadd(170.068, 85.6934, 32, 0)
	pt3dadd(170.508, 85.2539, 32, 0)
	pt3dadd(170.947, 84.8145, 32, 0)
	pt3dadd(171.387, 84.375, 32, 0)
	pt3dadd(171.826, 83.9355, 33, 0)
	pt3dadd(171.826, 83.4961, 33, 0)
	pt3dadd(171.826, 83.0566, 33, 0)
	pt3dadd(171.826, 82.6172, 33, 0)
	pt3dadd(171.826, 82.1777, 33, 0)
	pt3dadd(171.826, 81.7383, 33, 0)
	pt3dadd(172.266, 81.2988, 33, 0)
	pt3dadd(172.266, 80.8594, 33, 0)
	pt3dadd(172.705, 80.4199, 33, 0)
	pt3dadd(172.705, 79.9805, 33, 0)
	pt3dadd(172.705, 79.541, 33, 0)
  }
  dend[62] {pt3dclear()
	pt3dadd(172.705, 79.541, 33, 0)
	pt3dadd(172.705, 79.1016, 33, 0)
	pt3dadd(172.705, 78.6621, 33, 0)
	pt3dadd(172.705, 78.2227, 33, 0)
	pt3dadd(172.705, 77.7832, 33, 0)
	pt3dadd(172.705, 77.3438, 33, 0)
	pt3dadd(173.145, 76.9043, 34, 0)
	pt3dadd(173.145, 76.4648, 34, 0)
	pt3dadd(173.145, 76.0254, 34, 0)
	pt3dadd(172.705, 75.5859, 35, 0)
	pt3dadd(172.266, 75.1465, 36, 0)
	pt3dadd(172.266, 74.707, 36, 0)
	pt3dadd(171.826, 74.2676, 36, 0)
	pt3dadd(171.826, 73.8281, 36, 0)
  }
  dend[63] {pt3dclear()
	pt3dadd(65.918, 116.455, 36, 0)
	pt3dadd(65.918, 116.455, 36, 0)
	pt3dadd(65.4785, 116.016, 35, 0)
	pt3dadd(65.0391, 115.576, 35, 0)
	pt3dadd(64.5996, 115.137, 35, 0)
	pt3dadd(64.5996, 114.697, 35, 0)
	pt3dadd(64.5996, 114.258, 35, 0)
	pt3dadd(64.1602, 113.818, 35, 0)
	pt3dadd(63.7207, 113.379, 35, 0)
	pt3dadd(63.2812, 112.939, 35, 0)
	pt3dadd(63.2812, 112.5, 35, 0)
	pt3dadd(63.2812, 112.061, 35, 0)
	pt3dadd(63.2812, 111.621, 35, 0)
	pt3dadd(63.2812, 111.182, 35, 0)
	pt3dadd(63.2812, 110.742, 36, 0)
  }
  dend[64] {pt3dclear()
	pt3dadd(63.2812, 110.742, 36, 0)
	pt3dadd(63.2812, 110.303, 36, 0)
	pt3dadd(63.2812, 109.863, 36, 0)
	pt3dadd(63.7207, 109.424, 36, 0)
	pt3dadd(64.1602, 108.984, 36, 0)
	pt3dadd(64.5996, 108.545, 36, 0)
	pt3dadd(65.0391, 108.105, 35, 0)
	pt3dadd(65.4785, 108.105, 35, 0)
	pt3dadd(65.918, 107.666, 35, 0)
	pt3dadd(66.3574, 107.666, 35, 0)
	pt3dadd(66.7969, 107.666, 35, 0)
	pt3dadd(67.2363, 107.227, 35, 0)
	pt3dadd(67.6758, 107.227, 35, 0)
	pt3dadd(68.1152, 106.787, 35, 0)
  }
  dend[65] {pt3dclear()
	pt3dadd(68.1152, 106.787, 35, 0)
	pt3dadd(68.1152, 106.348, 35, 0)
	pt3dadd(68.5547, 105.908, 36, 0)
	pt3dadd(68.5547, 105.469, 36, 0)
	pt3dadd(68.1152, 105.029, 37, 0)
	pt3dadd(67.6758, 104.59, 37, 0)
	pt3dadd(68.1152, 104.15, 37, 0)
	pt3dadd(68.1152, 103.711, 37, 0)
	pt3dadd(67.6758, 103.271, 37, 0)
	pt3dadd(67.2363, 102.832, 37, 0)
	pt3dadd(66.7969, 102.393, 37, 0)
	pt3dadd(66.3574, 101.953, 38, 0)
	pt3dadd(66.3574, 101.514, 38, 0)
	pt3dadd(66.3574, 101.074, 38, 0)
	pt3dadd(65.918, 100.635, 39, 0)
	pt3dadd(65.918, 100.195, 39, 0)
	pt3dadd(65.918, 99.7559, 39, 0)
	pt3dadd(65.918, 99.3164, 39, 0)
	pt3dadd(66.3574, 98.877, 39, 0)
	pt3dadd(66.3574, 98.4375, 39, 0)
	pt3dadd(65.918, 97.998, 39, 0)
	pt3dadd(65.918, 97.5586, 39, 0)
	pt3dadd(65.918, 97.1191, 39, 0)
	pt3dadd(66.3574, 96.6797, 39, 0)
	pt3dadd(66.3574, 96.2402, 39, 0)
  }
  dend[66] {pt3dclear()
	pt3dadd(66.3574, 96.2402, 39, 0)
	pt3dadd(66.3574, 95.8008, 39, 0)
	pt3dadd(66.3574, 95.3613, 39, 0)
	pt3dadd(66.7969, 94.9219, 39, 0)
	pt3dadd(66.7969, 94.4824, 39, 0)
	pt3dadd(67.2363, 94.043, 39, 0)
	pt3dadd(67.6758, 93.6035, 39, 0)
	pt3dadd(67.6758, 93.1641, 39, 0)
	pt3dadd(67.6758, 92.7246, 39, 0)
	pt3dadd(68.1152, 92.2852, 39, 0)
	pt3dadd(68.5547, 91.8457, 39, 0)
	pt3dadd(68.9941, 91.4062, 39, 0)
	pt3dadd(69.4336, 90.9668, 39, 0)
  }
  dend[67] {pt3dclear()
	pt3dadd(69.4336, 90.9668, 39, 0)
	pt3dadd(69.873, 90.9668, 40, 0)
	pt3dadd(70.3125, 90.9668, 40, 0)
	pt3dadd(70.752, 90.9668, 40, 0)
	pt3dadd(71.1914, 90.9668, 40, 0)
	pt3dadd(71.6309, 90.5273, 40, 0)
	pt3dadd(72.0703, 90.0879, 40, 0)
	pt3dadd(72.5098, 90.0879, 40, 0)
	pt3dadd(72.9492, 90.0879, 40, 0)
	pt3dadd(73.3887, 89.6484, 40, 0)
	pt3dadd(73.8281, 89.6484, 40, 0)
	pt3dadd(74.2676, 89.6484, 40, 0)
	pt3dadd(74.707, 89.6484, 40, 0)
	pt3dadd(75.1465, 89.6484, 40, 0)
	pt3dadd(75.5859, 89.6484, 40, 0)
	pt3dadd(76.0254, 89.6484, 40, 0)
	pt3dadd(76.4648, 89.6484, 40, 0)
	pt3dadd(76.9043, 90.0879, 40, 0)
	pt3dadd(77.3438, 90.0879, 40, 0)
	pt3dadd(77.7832, 90.5273, 39, 0)
	pt3dadd(77.7832, 90.9668, 39, 0)
	pt3dadd(78.2227, 90.9668, 39, 0)
	pt3dadd(78.6621, 90.9668, 39, 0)
	pt3dadd(79.1016, 91.4062, 39, 0)
	pt3dadd(79.541, 91.8457, 39, 0)
	pt3dadd(79.541, 92.2852, 39, 0)
	pt3dadd(79.9805, 92.7246, 39, 0)
	pt3dadd(80.4199, 93.1641, 39, 0)
	pt3dadd(80.4199, 93.6035, 39, 0)
	pt3dadd(80.4199, 94.043, 38, 0)
	pt3dadd(80.8594, 94.4824, 38, 0)
	pt3dadd(81.2988, 94.9219, 38, 0)
	pt3dadd(81.7383, 95.3613, 38, 0)
	pt3dadd(82.1777, 95.8008, 38, 0)
	pt3dadd(82.6172, 96.2402, 38, 0)
	pt3dadd(83.0566, 96.6797, 38, 0)
	pt3dadd(83.0566, 97.1191, 38, 0)
	pt3dadd(83.0566, 97.5586, 38, 0)
	pt3dadd(83.0566, 97.998, 38, 0)
	pt3dadd(82.6172, 98.4375, 38, 0)
	pt3dadd(82.6172, 98.877, 39, 0)
	pt3dadd(82.6172, 99.3164, 39, 0)
	pt3dadd(82.1777, 99.7559, 39, 0)
	pt3dadd(81.7383, 100.195, 38, 0)
	pt3dadd(81.7383, 100.635, 38, 0)
	pt3dadd(81.2988, 101.074, 38, 0)
	pt3dadd(80.8594, 101.514, 37, 0)
	pt3dadd(80.8594, 101.953, 37, 0)
	pt3dadd(80.4199, 102.393, 37, 0)
	pt3dadd(80.4199, 102.832, 36, 0)
	pt3dadd(80.4199, 103.271, 36, 0)
	pt3dadd(79.9805, 103.711, 36, 0)
  }
  dend[68] {pt3dclear()
	pt3dadd(45.7031, 125.244, 33, 0)
	pt3dadd(45.7031, 125.244, 33, 0)
	pt3dadd(45.7031, 125.684, 33, 0)
	pt3dadd(45.7031, 126.123, 33, 0)
	pt3dadd(46.1426, 126.562, 33, 0)
	pt3dadd(46.1426, 127.002, 33, 0)
	pt3dadd(46.582, 127.441, 33, 0)
	pt3dadd(46.582, 127.881, 33, 0)
	pt3dadd(46.582, 128.32, 33, 0)
	pt3dadd(46.582, 128.76, 33, 0)
	pt3dadd(46.582, 129.199, 33, 0)
	pt3dadd(46.582, 129.639, 33, 0)
	pt3dadd(46.582, 130.078, 33, 0)
	pt3dadd(46.582, 130.518, 33, 0)
	pt3dadd(47.0215, 130.957, 33, 0)
	pt3dadd(47.4609, 131.396, 33, 0)
	pt3dadd(47.4609, 131.836, 33, 0)
	pt3dadd(47.9004, 132.275, 33, 0)
	pt3dadd(47.9004, 132.715, 33, 0)
	pt3dadd(47.9004, 133.154, 33, 0)
	pt3dadd(47.9004, 133.594, 33, 0)
	pt3dadd(47.9004, 134.033, 33, 0)
	pt3dadd(47.9004, 134.473, 33, 0)
	pt3dadd(48.3398, 134.912, 34, 0)
	pt3dadd(48.7793, 134.912, 34, 0)
	pt3dadd(49.2188, 135.352, 34, 0)
	pt3dadd(48.7793, 135.791, 34, 0)
	pt3dadd(48.3398, 136.23, 33, 0)
	pt3dadd(47.9004, 136.23, 32, 0)
	pt3dadd(48.3398, 136.67, 31, 0)
	pt3dadd(48.3398, 137.109, 30, 0)
  }
}
proc shape3d_11() {
  dend[68] {	pt3dadd(48.3398, 137.549, 30, 0)
	pt3dadd(47.9004, 137.988, 30, 0)
	pt3dadd(47.9004, 138.428, 30, 0)
	pt3dadd(47.4609, 138.867, 30, 0)
	pt3dadd(47.0215, 139.307, 30, 0)
	pt3dadd(46.582, 139.746, 30, 0)
	pt3dadd(46.1426, 140.186, 30, 0)
	pt3dadd(46.1426, 140.625, 30, 0)
	pt3dadd(45.7031, 141.064, 30, 0)
	pt3dadd(45.2637, 141.504, 30, 0)
	pt3dadd(44.8242, 141.943, 30, 0)
	pt3dadd(44.8242, 142.383, 30, 0)
  }
  dend[69] {pt3dclear()
	pt3dadd(31.2012, 121.729, 29, 0)
	pt3dadd(31.2012, 121.729, 29, 0)
	pt3dadd(30.7617, 122.168, 28, 0)
	pt3dadd(30.3223, 122.607, 28, 0)
	pt3dadd(29.8828, 123.047, 28, 0)
	pt3dadd(29.4434, 123.486, 29, 0)
	pt3dadd(29.0039, 123.926, 29, 0)
	pt3dadd(29.0039, 124.365, 29, 0)
	pt3dadd(29.0039, 124.805, 29, 0)
	pt3dadd(28.5645, 125.244, 29, 0)
	pt3dadd(28.5645, 125.684, 29, 0)
	pt3dadd(28.125, 126.123, 28, 0)
	pt3dadd(27.6855, 126.123, 28, 0)
	pt3dadd(27.2461, 126.562, 28, 0)
	pt3dadd(26.8066, 127.002, 28, 0)
	pt3dadd(26.8066, 127.441, 28, 0)
	pt3dadd(26.8066, 127.881, 28, 0)
	pt3dadd(26.3672, 128.32, 28, 0)
	pt3dadd(25.9277, 128.76, 28, 0)
	pt3dadd(25.4883, 129.199, 28, 0)
	pt3dadd(25.9277, 129.199, 29, 0)
	pt3dadd(25.9277, 129.639, 30, 0)
	pt3dadd(25.4883, 129.639, 31, 0)
	pt3dadd(25.0488, 129.199, 32, 0)
	pt3dadd(24.6094, 129.639, 32, 0)
	pt3dadd(24.1699, 130.078, 33, 0)
	pt3dadd(23.7305, 130.078, 33, 0)
	pt3dadd(23.291, 130.078, 33, 0)
	pt3dadd(22.8516, 130.078, 33, 0)
	pt3dadd(22.4121, 130.078, 33, 0)
	pt3dadd(21.9727, 130.078, 33, 0)
	pt3dadd(21.5332, 130.078, 34, 0)
	pt3dadd(21.0938, 130.078, 35, 0)
	pt3dadd(20.6543, 130.078, 35, 0)
	pt3dadd(20.2148, 130.078, 35, 0)
	pt3dadd(19.7754, 130.078, 36, 0)
	pt3dadd(19.3359, 130.078, 36, 0)
	pt3dadd(18.8965, 130.078, 36, 0)
	pt3dadd(18.457, 130.078, 36, 0)
	pt3dadd(18.0176, 130.078, 36, 0)
	pt3dadd(17.5781, 130.518, 35, 0)
	pt3dadd(17.1387, 130.518, 35, 0)
  }
  dend[70] {pt3dclear()
	pt3dadd(82.1777, 136.23, 25, 0)
	pt3dadd(82.1777, 136.23, 25, 0)
	pt3dadd(82.1777, 135.791, 25, 0)
	pt3dadd(82.1777, 135.352, 25, 0)
	pt3dadd(82.1777, 134.912, 25, 0)
	pt3dadd(81.7383, 134.473, 25, 0)
  }
  dend[71] {pt3dclear()
	pt3dadd(76.9043, 141.504, 25, 0)
	pt3dadd(76.9043, 141.504, 25, 0)
	pt3dadd(76.4648, 141.064, 24, 0)
	pt3dadd(76.0254, 140.625, 24, 0)
	pt3dadd(75.5859, 140.186, 24, 0)
	pt3dadd(75.1465, 139.746, 24, 0)
	pt3dadd(74.707, 139.307, 25, 0)
	pt3dadd(74.2676, 138.867, 25, 0)
	pt3dadd(74.2676, 138.428, 25, 0)
  }
  dend[72] {pt3dclear()
	pt3dadd(58.4473, 147.656, 22, 0)
	pt3dadd(58.4473, 147.656, 22, 0)
	pt3dadd(58.0078, 147.656, 21, 0)
	pt3dadd(57.5684, 148.096, 21, 0)
	pt3dadd(57.1289, 148.096, 21, 0)
	pt3dadd(56.6895, 148.096, 21, 0)
	pt3dadd(56.25, 148.096, 21, 0)
	pt3dadd(55.8105, 148.535, 22, 0)
	pt3dadd(55.3711, 148.535, 22, 0)
	pt3dadd(54.9316, 148.535, 22, 0)
	pt3dadd(54.4922, 148.535, 23, 0)
	pt3dadd(54.0527, 148.975, 23, 0)
	pt3dadd(53.6133, 148.975, 23, 0)
	pt3dadd(53.1738, 149.414, 23, 0)
	pt3dadd(52.7344, 149.854, 23, 0)
	pt3dadd(52.2949, 149.854, 23, 0)
	pt3dadd(51.8555, 150.293, 23, 0)
	pt3dadd(51.416, 150.732, 23, 0)
	pt3dadd(51.8555, 151.172, 22, 0)
	pt3dadd(51.416, 150.732, 23, 0)
	pt3dadd(50.9766, 150.732, 23, 0)
	pt3dadd(50.5371, 150.732, 23, 0)
	pt3dadd(50.0977, 151.172, 23, 0)
	pt3dadd(49.6582, 151.611, 22, 0)
	pt3dadd(49.2188, 151.611, 21, 0)
	pt3dadd(49.2188, 152.051, 21, 0)
	pt3dadd(48.7793, 152.49, 20, 0)
	pt3dadd(48.3398, 152.49, 19, 0)
	pt3dadd(47.9004, 152.93, 19, 0)
	pt3dadd(47.4609, 153.369, 18, 0)
	pt3dadd(47.4609, 153.809, 18, 0)
	pt3dadd(47.0215, 154.248, 18, 0)
	pt3dadd(47.0215, 154.688, 18, 0)
	pt3dadd(47.0215, 155.127, 18, 0)
	pt3dadd(46.582, 155.566, 18, 0)
	pt3dadd(46.582, 155.566, 17, 0)
	pt3dadd(46.582, 155.566, 16, 0)
	pt3dadd(46.582, 155.566, 15, 0)
	pt3dadd(46.1426, 156.006, 14, 0)
	pt3dadd(45.7031, 156.445, 14, 0)
	pt3dadd(45.2637, 156.445, 14, 0)
	pt3dadd(44.8242, 156.885, 14, 0)
	pt3dadd(44.3848, 156.885, 14, 0)
	pt3dadd(43.9453, 156.885, 14, 0)
	pt3dadd(43.5059, 156.885, 14, 0)
	pt3dadd(43.0664, 157.324, 14, 0)
	pt3dadd(42.627, 157.324, 14, 0)
	pt3dadd(42.1875, 157.764, 14, 0)
	pt3dadd(41.748, 157.764, 14, 0)
	pt3dadd(41.3086, 157.764, 14, 0)
	pt3dadd(40.8691, 157.764, 14, 0)
	pt3dadd(40.4297, 157.764, 14, 0)
	pt3dadd(39.9902, 158.203, 14, 0)
	pt3dadd(39.5508, 158.203, 14, 0)
	pt3dadd(39.1113, 158.203, 14, 0)
	pt3dadd(38.6719, 158.203, 14, 0)
	pt3dadd(38.2324, 158.643, 14, 0)
	pt3dadd(37.793, 158.643, 14, 0)
	pt3dadd(37.3535, 158.643, 14, 0)
	pt3dadd(36.9141, 158.203, 14, 0)
  }
  dend[73] {pt3dclear()
	pt3dadd(70.752, 147.217, 25, 0)
	pt3dadd(70.752, 147.217, 25, 0)
	pt3dadd(70.752, 147.217, 26, 0)
	pt3dadd(70.3125, 147.656, 27, 0)
	pt3dadd(70.3125, 148.096, 28, 0)
  }
  dend[74] {pt3dclear()
	pt3dadd(70.3125, 148.096, 28, 0)
	pt3dadd(70.3125, 148.535, 28, 0)
	pt3dadd(70.3125, 148.975, 28, 0)
	pt3dadd(70.3125, 149.414, 28, 0)
	pt3dadd(70.3125, 149.854, 28, 0)
	pt3dadd(70.3125, 150.293, 28, 0)
	pt3dadd(69.873, 150.732, 28, 0)
	pt3dadd(69.873, 151.172, 28, 0)
	pt3dadd(69.873, 151.611, 28, 0)
	pt3dadd(69.4336, 152.051, 28, 0)
	pt3dadd(69.4336, 152.49, 28, 0)
	pt3dadd(68.9941, 152.93, 28, 0)
  }
  dend[75] {pt3dclear()
	pt3dadd(68.9941, 152.93, 28, 0)
	pt3dadd(68.5547, 153.369, 28, 0)
	pt3dadd(68.1152, 153.809, 28, 0)
	pt3dadd(67.6758, 154.248, 28, 0)
	pt3dadd(67.6758, 154.688, 27, 0)
	pt3dadd(67.2363, 155.127, 27, 0)
	pt3dadd(66.7969, 155.566, 27, 0)
	pt3dadd(66.3574, 156.006, 26, 0)
	pt3dadd(65.918, 156.006, 26, 0)
	pt3dadd(65.4785, 156.006, 26, 0)
	pt3dadd(65.0391, 156.445, 26, 0)
	pt3dadd(64.5996, 156.445, 26, 0)
	pt3dadd(64.1602, 156.885, 27, 0)
	pt3dadd(63.7207, 157.324, 27, 0)
	pt3dadd(63.2812, 157.764, 27, 0)
	pt3dadd(62.8418, 158.203, 27, 0)
	pt3dadd(62.8418, 158.643, 27, 0)
	pt3dadd(62.4023, 159.082, 27, 0)
  }
  dend[76] {pt3dclear()
	pt3dadd(62.4023, 159.082, 27, 0)
	pt3dadd(61.9629, 159.082, 27, 0)
	pt3dadd(61.5234, 159.082, 27, 0)
	pt3dadd(61.084, 159.521, 27, 0)
	pt3dadd(60.6445, 159.521, 27, 0)
	pt3dadd(60.2051, 159.961, 27, 0)
	pt3dadd(59.7656, 160.4, 27, 0)
	pt3dadd(59.3262, 160.4, 27, 0)
	pt3dadd(59.3262, 160.84, 27, 0)
	pt3dadd(58.8867, 161.279, 27, 0)
	pt3dadd(58.4473, 161.719, 27, 0)
	pt3dadd(58.0078, 162.158, 27, 0)
	pt3dadd(57.5684, 162.158, 27, 0)
	pt3dadd(57.1289, 162.598, 27, 0)
	pt3dadd(56.6895, 163.037, 28, 0)
	pt3dadd(56.25, 163.477, 28, 0)
	pt3dadd(55.8105, 163.916, 28, 0)
	pt3dadd(55.3711, 164.355, 27, 0)
	pt3dadd(55.3711, 164.795, 27, 0)
	pt3dadd(54.9316, 165.234, 27, 0)
	pt3dadd(54.4922, 165.674, 27, 0)
	pt3dadd(54.0527, 166.113, 27, 0)
	pt3dadd(53.6133, 166.553, 27, 0)
	pt3dadd(53.1738, 166.992, 27, 0)
	pt3dadd(53.1738, 167.432, 27, 0)
	pt3dadd(53.1738, 167.871, 27, 0)
	pt3dadd(52.7344, 168.311, 27, 0)
	pt3dadd(52.2949, 168.75, 26, 0)
	pt3dadd(52.2949, 169.189, 26, 0)
	pt3dadd(51.8555, 169.629, 26, 0)
	pt3dadd(51.8555, 170.068, 26, 0)
	pt3dadd(51.416, 170.508, 26, 0)
	pt3dadd(51.416, 170.947, 26, 0)
	pt3dadd(51.416, 171.387, 26, 0)
	pt3dadd(51.416, 171.826, 26, 0)
	pt3dadd(50.9766, 172.266, 26, 0)
  }
}
proc shape3d_12() {
  dend[76] {	pt3dadd(50.5371, 172.705, 26, 0)
	pt3dadd(50.0977, 173.145, 27, 0)
  }
  dend[77] {pt3dclear()
	pt3dadd(50.0977, 173.145, 27, 0)
	pt3dadd(49.6582, 173.145, 27, 0)
	pt3dadd(49.2188, 173.145, 27, 0)
	pt3dadd(48.7793, 173.584, 27, 0)
	pt3dadd(48.7793, 174.023, 27, 0)
	pt3dadd(48.7793, 174.463, 28, 0)
  }
  dend[78] {pt3dclear()
	pt3dadd(48.7793, 174.463, 28, 0)
	pt3dadd(48.3398, 174.902, 28, 0)
	pt3dadd(48.3398, 175.342, 28, 0)
	pt3dadd(48.3398, 175.781, 28, 0)
  }
  dend[79] {pt3dclear()
	pt3dadd(48.3398, 175.781, 28, 0)
	pt3dadd(47.9004, 176.221, 28, 0)
	pt3dadd(47.9004, 176.66, 28, 0)
	pt3dadd(48.3398, 177.1, 27, 0)
	pt3dadd(48.7793, 177.539, 27, 0)
	pt3dadd(48.7793, 177.979, 27, 0)
	pt3dadd(48.7793, 178.418, 27, 0)
	pt3dadd(48.3398, 178.857, 27, 0)
	pt3dadd(48.3398, 179.297, 27, 0)
	pt3dadd(48.3398, 179.736, 27, 0)
	pt3dadd(47.9004, 180.176, 27, 0)
  }
  dend[80] {pt3dclear()
	pt3dadd(74.707, 145.459, 24, 0)
	pt3dadd(74.707, 145.459, 24, 0)
	pt3dadd(75.1465, 145.02, 23, 0)
	pt3dadd(75.5859, 145.02, 23, 0)
	pt3dadd(76.0254, 145.459, 23, 0)
	pt3dadd(76.0254, 145.898, 23, 0)
	pt3dadd(76.0254, 146.338, 23, 0)
	pt3dadd(75.5859, 146.777, 22, 0)
	pt3dadd(75.5859, 147.217, 22, 0)
	pt3dadd(75.1465, 147.656, 22, 0)
	pt3dadd(74.707, 148.096, 21, 0)
  }
  dend[81] {pt3dclear()
	pt3dadd(74.707, 148.096, 21, 0)
	pt3dadd(74.2676, 148.535, 20, 0)
	pt3dadd(74.2676, 148.975, 20, 0)
	pt3dadd(74.2676, 149.414, 20, 0)
	pt3dadd(73.8281, 149.854, 20, 0)
	pt3dadd(73.8281, 150.293, 20, 0)
	pt3dadd(73.8281, 150.732, 20, 0)
	pt3dadd(73.8281, 151.172, 20, 0)
	pt3dadd(73.8281, 151.611, 21, 0)
	pt3dadd(73.3887, 152.051, 22, 0)
	pt3dadd(72.9492, 152.051, 22, 0)
	pt3dadd(72.5098, 152.051, 22, 0)
	pt3dadd(72.9492, 152.051, 22, 0)
	pt3dadd(73.3887, 152.49, 21, 0)
	pt3dadd(73.8281, 152.051, 20, 0)
	pt3dadd(74.2676, 152.051, 19, 0)
	pt3dadd(74.2676, 152.49, 18, 0)
	pt3dadd(73.8281, 152.93, 18, 0)
	pt3dadd(73.8281, 153.369, 18, 0)
	pt3dadd(73.3887, 153.809, 18, 0)
	pt3dadd(73.3887, 154.248, 18, 0)
	pt3dadd(72.9492, 154.688, 17, 0)
	pt3dadd(72.9492, 155.127, 17, 0)
	pt3dadd(72.5098, 155.566, 17, 0)
	pt3dadd(72.5098, 156.006, 17, 0)
	pt3dadd(72.5098, 156.445, 17, 0)
	pt3dadd(72.5098, 156.885, 17, 0)
	pt3dadd(72.5098, 157.324, 17, 0)
	pt3dadd(72.5098, 157.764, 18, 0)
	pt3dadd(72.9492, 157.324, 19, 0)
	pt3dadd(72.5098, 157.764, 18, 0)
	pt3dadd(72.0703, 158.203, 17, 0)
	pt3dadd(72.0703, 158.643, 17, 0)
	pt3dadd(71.6309, 159.082, 17, 0)
	pt3dadd(71.1914, 159.521, 17, 0)
  }
  dend[82] {pt3dclear()
	pt3dadd(71.1914, 159.521, 17, 0)
	pt3dadd(70.752, 159.521, 17, 0)
	pt3dadd(71.1914, 159.961, 16, 0)
	pt3dadd(71.1914, 160.4, 15, 0)
	pt3dadd(71.1914, 160.84, 14, 0)
	pt3dadd(71.1914, 161.279, 14, 0)
	pt3dadd(70.752, 161.719, 13, 0)
	pt3dadd(70.752, 162.158, 13, 0)
	pt3dadd(70.3125, 162.598, 13, 0)
	pt3dadd(69.873, 162.598, 14, 0)
	pt3dadd(70.3125, 162.598, 13, 0)
	pt3dadd(70.3125, 162.598, 12, 0)
	pt3dadd(69.873, 163.037, 12, 0)
	pt3dadd(69.873, 163.477, 12, 0)
	pt3dadd(69.4336, 163.916, 11, 0)
	pt3dadd(69.4336, 164.355, 11, 0)
	pt3dadd(69.4336, 164.795, 11, 0)
	pt3dadd(69.4336, 165.234, 11, 0)
	pt3dadd(69.4336, 165.674, 11, 0)
	pt3dadd(69.4336, 166.113, 11, 0)
	pt3dadd(69.873, 166.553, 11, 0)
	pt3dadd(69.4336, 166.992, 10, 0)
  }
  dend[83] {pt3dclear()
	pt3dadd(69.4336, 166.992, 10, 0)
	pt3dadd(69.4336, 167.432, 10, 0)
	pt3dadd(69.873, 167.871, 9, 0)
	pt3dadd(70.3125, 168.311, 9, 0)
	pt3dadd(70.752, 168.75, 8, 0)
	pt3dadd(71.1914, 169.189, 8, 0)
	pt3dadd(71.6309, 169.629, 8, 0)
	pt3dadd(72.0703, 170.068, 8, 0)
	pt3dadd(72.5098, 170.068, 8, 0)
	pt3dadd(72.9492, 170.508, 8, 0)
	pt3dadd(73.3887, 170.508, 8, 0)
	pt3dadd(73.8281, 170.947, 8, 0)
	pt3dadd(74.2676, 170.947, 8, 0)
	pt3dadd(74.707, 170.947, 8, 0)
	pt3dadd(75.1465, 170.947, 8, 0)
	pt3dadd(75.5859, 171.387, 8, 0)
	pt3dadd(76.0254, 171.387, 8, 0)
	pt3dadd(76.4648, 171.387, 8, 0)
	pt3dadd(76.9043, 171.387, 8, 0)
	pt3dadd(77.3438, 171.387, 8, 0)
	pt3dadd(77.7832, 171.387, 8, 0)
	pt3dadd(78.2227, 171.387, 8, 0)
	pt3dadd(78.6621, 171.387, 8, 0)
	pt3dadd(79.1016, 171.387, 8, 0)
	pt3dadd(79.541, 171.826, 8, 0)
	pt3dadd(79.9805, 172.266, 8, 0)
	pt3dadd(80.4199, 172.705, 8, 0)
	pt3dadd(80.4199, 172.266, 7, 0)
	pt3dadd(80.8594, 171.826, 6, 0)
	pt3dadd(81.2988, 171.826, 6, 0)
	pt3dadd(81.7383, 171.826, 6, 0)
	pt3dadd(82.1777, 171.826, 6, 0)
	pt3dadd(82.6172, 172.266, 6, 0)
	pt3dadd(83.0566, 172.266, 6, 0)
	pt3dadd(83.4961, 172.266, 6, 0)
	pt3dadd(83.9355, 172.266, 6, 0)
	pt3dadd(84.375, 172.266, 6, 0)
	pt3dadd(84.8145, 172.266, 5, 0)
	pt3dadd(85.2539, 172.266, 5, 0)
	pt3dadd(85.6934, 172.266, 5, 0)
	pt3dadd(86.1328, 172.266, 5, 0)
	pt3dadd(86.5723, 172.266, 5, 0)
	pt3dadd(87.0117, 172.266, 6, 0)
	pt3dadd(87.4512, 172.266, 6, 0)
	pt3dadd(87.8906, 171.826, 6, 0)
	pt3dadd(88.3301, 171.826, 6, 0)
	pt3dadd(88.7695, 171.826, 6, 0)
	pt3dadd(89.209, 171.387, 6, 0)
	pt3dadd(89.6484, 171.387, 6, 0)
	pt3dadd(90.0879, 171.387, 6, 0)
	pt3dadd(90.5273, 170.947, 6, 0)
	pt3dadd(90.5273, 170.508, 6, 0)
  }
  dend[84] {pt3dclear()
	pt3dadd(94.4824, 121.289, 39, 0)
	pt3dadd(94.4824, 121.289, 39, 0)
	pt3dadd(94.9219, 120.85, 39, 0)
	pt3dadd(95.3613, 120.41, 39, 0)
	pt3dadd(95.8008, 120.41, 39, 0)
	pt3dadd(96.2402, 119.971, 38, 0)
	pt3dadd(96.2402, 119.531, 37, 0)
	pt3dadd(96.2402, 119.092, 37, 0)
	pt3dadd(96.2402, 118.652, 36, 0)
	pt3dadd(96.2402, 118.213, 36, 0)
	pt3dadd(96.2402, 117.773, 36, 0)
	pt3dadd(96.2402, 117.334, 36, 0)
	pt3dadd(96.2402, 116.895, 36, 0)
	pt3dadd(96.2402, 116.455, 37, 0)
	pt3dadd(96.6797, 116.016, 37, 0)
	pt3dadd(96.6797, 115.576, 37, 0)
	pt3dadd(96.6797, 116.016, 37, 0)
	pt3dadd(96.2402, 116.455, 37, 0)
	pt3dadd(96.2402, 116.895, 36, 0)
	pt3dadd(96.6797, 116.895, 35, 0)
	pt3dadd(97.1191, 116.455, 34, 0)
	pt3dadd(97.5586, 116.016, 33, 0)
	pt3dadd(97.5586, 115.576, 33, 0)
	pt3dadd(97.5586, 115.137, 32, 0)
	pt3dadd(97.5586, 114.697, 32, 0)
	pt3dadd(97.5586, 114.258, 32, 0)
	pt3dadd(97.5586, 113.818, 32, 0)
	pt3dadd(97.5586, 113.379, 32, 0)
	pt3dadd(97.5586, 112.939, 32, 0)
	pt3dadd(97.1191, 112.5, 32, 0)
	pt3dadd(97.1191, 112.061, 32, 0)
	pt3dadd(96.6797, 111.621, 32, 0)
	pt3dadd(96.6797, 111.182, 31, 0)
	pt3dadd(96.2402, 110.742, 30, 0)
	pt3dadd(95.8008, 110.303, 30, 0)
	pt3dadd(95.8008, 109.863, 30, 0)
	pt3dadd(95.8008, 109.424, 30, 0)
	pt3dadd(96.2402, 108.984, 30, 0)
	pt3dadd(96.6797, 108.545, 29, 0)
  }
  dend[85] {pt3dclear()
	pt3dadd(96.6797, 108.545, 29, 0)
	pt3dadd(97.1191, 108.105, 29, 0)
	pt3dadd(97.5586, 107.666, 29, 0)
	pt3dadd(97.5586, 107.227, 29, 0)
	pt3dadd(97.998, 106.787, 28, 0)
	pt3dadd(98.4375, 106.348, 28, 0)
  }
  dend[86] {pt3dclear()
	pt3dadd(98.4375, 106.348, 28, 0)
	pt3dadd(98.877, 105.908, 28, 0)
	pt3dadd(99.3164, 105.908, 28, 0)
	pt3dadd(99.7559, 105.908, 28, 0)
	pt3dadd(100.195, 105.908, 28, 0)
	pt3dadd(100.635, 105.908, 28, 0)
	pt3dadd(101.074, 105.469, 28, 0)
	pt3dadd(101.514, 105.469, 28, 0)
	pt3dadd(101.953, 105.029, 29, 0)
	pt3dadd(102.393, 105.029, 29, 0)
	pt3dadd(102.832, 105.029, 29, 0)
	pt3dadd(103.271, 104.59, 30, 0)
  }
}
proc shape3d_13() {
  dend[86] {	pt3dadd(103.711, 104.59, 30, 0)
	pt3dadd(104.15, 104.15, 30, 0)
	pt3dadd(104.59, 103.711, 31, 0)
  }
  dend[87] {pt3dclear()
	pt3dadd(104.59, 103.711, 31, 0)
	pt3dadd(105.029, 103.271, 31, 0)
	pt3dadd(105.469, 102.832, 31, 0)
	pt3dadd(105.908, 102.393, 31, 0)
	pt3dadd(106.348, 101.953, 30, 0)
	pt3dadd(106.348, 101.514, 29, 0)
	pt3dadd(106.348, 101.074, 30, 0)
	pt3dadd(106.787, 101.514, 31, 0)
	pt3dadd(107.227, 101.074, 32, 0)
	pt3dadd(107.666, 101.074, 32, 0)
	pt3dadd(108.105, 100.635, 32, 0)
	pt3dadd(108.545, 100.635, 32, 0)
	pt3dadd(108.984, 100.195, 32, 0)
	pt3dadd(109.424, 99.7559, 32, 0)
	pt3dadd(109.863, 99.3164, 32, 0)
	pt3dadd(110.303, 98.877, 33, 0)
	pt3dadd(110.303, 98.4375, 33, 0)
	pt3dadd(110.742, 97.998, 33, 0)
	pt3dadd(110.742, 97.5586, 33, 0)
	pt3dadd(111.182, 97.1191, 33, 0)
	pt3dadd(111.182, 96.6797, 33, 0)
	pt3dadd(111.621, 96.2402, 33, 0)
	pt3dadd(112.061, 95.8008, 32, 0)
	pt3dadd(112.5, 95.8008, 32, 0)
	pt3dadd(112.939, 95.3613, 32, 0)
	pt3dadd(112.939, 94.9219, 33, 0)
	pt3dadd(113.379, 94.9219, 34, 0)
	pt3dadd(113.818, 94.9219, 35, 0)
  }
  dend[88] {pt3dclear()
	pt3dadd(113.818, 94.9219, 35, 0)
	pt3dadd(113.818, 94.4824, 35, 0)
	pt3dadd(113.818, 94.043, 35, 0)
	pt3dadd(114.258, 93.6035, 35, 0)
	pt3dadd(114.697, 93.1641, 35, 0)
	pt3dadd(115.137, 92.7246, 35, 0)
	pt3dadd(115.576, 92.2852, 35, 0)
  }
  dend[89] {pt3dclear()
	pt3dadd(115.576, 92.2852, 35, 0)
	pt3dadd(116.016, 91.8457, 35, 0)
	pt3dadd(116.455, 91.8457, 35, 0)
	pt3dadd(116.895, 91.8457, 35, 0)
	pt3dadd(117.334, 91.8457, 35, 0)
	pt3dadd(117.773, 91.8457, 35, 0)
	pt3dadd(118.213, 91.4062, 35, 0)
  }
  dend[90] {pt3dclear()
	pt3dadd(118.213, 91.4062, 35, 0)
	pt3dadd(118.652, 90.9668, 35, 0)
	pt3dadd(119.092, 90.9668, 35, 0)
	pt3dadd(119.531, 90.9668, 35, 0)
	pt3dadd(119.971, 90.9668, 35, 0)
	pt3dadd(120.41, 90.9668, 35, 0)
	pt3dadd(120.85, 90.5273, 35, 0)
	pt3dadd(121.289, 90.5273, 35, 0)
	pt3dadd(121.729, 90.0879, 35, 0)
  }
  dend[91] {pt3dclear()
	pt3dadd(121.729, 90.0879, 35, 0)
	pt3dadd(122.168, 90.0879, 35, 0)
	pt3dadd(122.607, 90.0879, 35, 0)
  }
  dend[92] {pt3dclear()
	pt3dadd(122.607, 90.0879, 35, 0)
	pt3dadd(123.047, 89.6484, 35, 0)
	pt3dadd(123.486, 89.209, 35, 0)
	pt3dadd(123.486, 88.7695, 35, 0)
	pt3dadd(123.926, 88.3301, 35, 0)
	pt3dadd(124.365, 87.8906, 35, 0)
	pt3dadd(123.926, 87.4512, 34, 0)
	pt3dadd(124.365, 87.4512, 35, 0)
	pt3dadd(124.805, 87.0117, 35, 0)
	pt3dadd(125.244, 86.5723, 36, 0)
	pt3dadd(125.684, 86.1328, 36, 0)
	pt3dadd(125.684, 85.6934, 36, 0)
	pt3dadd(125.684, 85.2539, 36, 0)
	pt3dadd(125.684, 84.8145, 36, 0)
	pt3dadd(125.684, 84.375, 36, 0)
	pt3dadd(126.123, 83.9355, 37, 0)
	pt3dadd(126.562, 83.4961, 36, 0)
	pt3dadd(127.002, 83.0566, 35, 0)
	pt3dadd(127.441, 83.0566, 34, 0)
	pt3dadd(127.002, 83.0566, 35, 0)
	pt3dadd(126.562, 83.4961, 36, 0)
	pt3dadd(126.123, 83.9355, 37, 0)
	pt3dadd(126.562, 83.4961, 38, 0)
	pt3dadd(127.002, 83.0566, 38, 0)
	pt3dadd(127.441, 82.6172, 39, 0)
	pt3dadd(127.441, 82.1777, 39, 0)
	pt3dadd(127.441, 81.7383, 39, 0)
	pt3dadd(127.881, 81.2988, 39, 0)
	pt3dadd(128.32, 80.8594, 40, 0)
	pt3dadd(128.32, 80.4199, 40, 0)
	pt3dadd(128.32, 79.9805, 40, 0)
	pt3dadd(128.32, 79.541, 40, 0)
	pt3dadd(127.881, 79.1016, 40, 0)
  }
  dend[93] {pt3dclear()
	pt3dadd(46.582, 106.787, 33, 0)
	pt3dadd(46.582, 106.787, 33, 0)
	pt3dadd(47.0215, 107.227, 33, 0)
	pt3dadd(47.4609, 107.227, 33, 0)
	pt3dadd(47.9004, 107.227, 33, 0)
	pt3dadd(48.3398, 107.227, 33, 0)
	pt3dadd(48.7793, 106.787, 32, 0)
	pt3dadd(49.2188, 106.348, 31, 0)
	pt3dadd(49.6582, 106.348, 31, 0)
	pt3dadd(50.0977, 106.348, 31, 0)
	pt3dadd(50.5371, 105.908, 31, 0)
	pt3dadd(50.9766, 105.908, 31, 0)
	pt3dadd(51.416, 105.469, 31, 0)
	pt3dadd(51.8555, 105.469, 31, 0)
	pt3dadd(52.2949, 105.029, 31, 0)
	pt3dadd(52.7344, 105.029, 31, 0)
	pt3dadd(53.1738, 105.029, 31, 0)
  }
  dend[94] {pt3dclear()
	pt3dadd(46.582, 107.666, 34, 0)
	pt3dadd(46.582, 107.666, 34, 0)
	pt3dadd(46.1426, 107.227, 34, 0)
	pt3dadd(45.7031, 107.227, 34, 0)
	pt3dadd(45.2637, 107.227, 34, 0)
	pt3dadd(44.8242, 107.227, 34, 0)
	pt3dadd(44.3848, 107.227, 34, 0)
	pt3dadd(43.9453, 106.787, 34, 0)
	pt3dadd(43.5059, 106.348, 34, 0)
	pt3dadd(43.0664, 106.348, 34, 0)
	pt3dadd(42.627, 106.348, 34, 0)
	pt3dadd(42.1875, 105.908, 34, 0)
	pt3dadd(41.748, 105.469, 34, 0)
	pt3dadd(41.3086, 105.469, 34, 0)
	pt3dadd(40.8691, 105.908, 35, 0)
	pt3dadd(40.4297, 106.348, 36, 0)
	pt3dadd(39.9902, 106.348, 37, 0)
	pt3dadd(39.5508, 105.908, 37, 0)
	pt3dadd(39.1113, 105.908, 37, 0)
	pt3dadd(38.6719, 105.469, 37, 0)
	pt3dadd(38.2324, 105.469, 37, 0)
	pt3dadd(37.793, 105.469, 37, 0)
	pt3dadd(37.3535, 105.029, 37, 0)
	pt3dadd(36.9141, 105.029, 37, 0)
	pt3dadd(36.4746, 104.59, 37, 0)
	pt3dadd(36.4746, 104.15, 37, 0)
	pt3dadd(36.0352, 103.711, 36, 0)
	pt3dadd(35.5957, 103.271, 36, 0)
	pt3dadd(35.1562, 103.711, 36, 0)
	pt3dadd(34.7168, 103.711, 36, 0)
	pt3dadd(34.2773, 103.711, 36, 0)
	pt3dadd(33.8379, 103.271, 35, 0)
	pt3dadd(33.3984, 103.271, 35, 0)
	pt3dadd(32.959, 103.271, 35, 0)
	pt3dadd(32.5195, 102.832, 35, 0)
	pt3dadd(32.0801, 102.832, 35, 0)
	pt3dadd(31.6406, 102.832, 35, 0)
	pt3dadd(31.2012, 102.832, 35, 0)
	pt3dadd(30.7617, 102.832, 35, 0)
	pt3dadd(30.3223, 102.393, 35, 0)
	pt3dadd(30.3223, 101.953, 35, 0)
	pt3dadd(29.8828, 101.514, 35, 0)
	pt3dadd(29.4434, 101.514, 35, 0)
	pt3dadd(29.0039, 101.074, 35, 0)
	pt3dadd(28.5645, 101.074, 35, 0)
	pt3dadd(28.125, 101.074, 36, 0)
	pt3dadd(27.6855, 101.074, 36, 0)
	pt3dadd(27.2461, 100.635, 36, 0)
	pt3dadd(26.8066, 100.635, 36, 0)
	pt3dadd(26.3672, 100.635, 36, 0)
	pt3dadd(25.9277, 100.195, 36, 0)
	pt3dadd(25.9277, 99.7559, 37, 0)
	pt3dadd(25.9277, 99.3164, 37, 0)
	pt3dadd(25.4883, 98.877, 38, 0)
	pt3dadd(25.0488, 98.4375, 38, 0)
	pt3dadd(24.6094, 98.877, 39, 0)
	pt3dadd(24.1699, 98.4375, 40, 0)
	pt3dadd(23.7305, 98.4375, 40, 0)
	pt3dadd(23.291, 97.998, 40, 0)
	pt3dadd(22.8516, 97.5586, 40, 0)
	pt3dadd(22.4121, 97.1191, 40, 0)
  }
  dend[95] {pt3dclear()
	pt3dadd(45.7031, 116.016, 31, 0)
	pt3dadd(45.7031, 116.016, 31, 0)
	pt3dadd(45.2637, 116.016, 31, 0)
	pt3dadd(44.8242, 116.455, 32, 0)
	pt3dadd(44.3848, 116.455, 33, 0)
  }
  dend[96] {pt3dclear()
	pt3dadd(44.3848, 116.455, 33, 0)
	pt3dadd(43.9453, 116.455, 34, 0)
	pt3dadd(43.5059, 116.455, 34, 0)
	pt3dadd(43.0664, 116.455, 34, 0)
	pt3dadd(42.627, 116.455, 34, 0)
	pt3dadd(42.1875, 116.455, 34, 0)
	pt3dadd(41.748, 116.895, 35, 0)
	pt3dadd(41.3086, 116.895, 35, 0)
	pt3dadd(40.8691, 116.895, 35, 0)
	pt3dadd(40.4297, 116.895, 35, 0)
	pt3dadd(39.9902, 116.895, 35, 0)
	pt3dadd(39.5508, 116.895, 35, 0)
	pt3dadd(39.1113, 116.895, 35, 0)
	pt3dadd(38.6719, 117.334, 34, 0)
	pt3dadd(38.2324, 117.773, 33, 0)
	pt3dadd(38.2324, 118.213, 33, 0)
	pt3dadd(38.2324, 117.773, 33, 0)
	pt3dadd(38.6719, 117.334, 34, 0)
	pt3dadd(38.2324, 116.895, 34, 0)
	pt3dadd(37.793, 116.455, 34, 0)
	pt3dadd(37.3535, 116.455, 34, 0)
	pt3dadd(36.9141, 116.455, 35, 0)
	pt3dadd(36.4746, 116.016, 35, 0)
	pt3dadd(36.0352, 115.576, 35, 0)
	pt3dadd(35.5957, 115.137, 35, 0)
	pt3dadd(35.5957, 114.697, 35, 0)
	pt3dadd(35.1562, 114.258, 35, 0)
  }
}
proc shape3d_14() {
  dend[96] {	pt3dadd(34.7168, 114.258, 35, 0)
	pt3dadd(34.2773, 114.258, 35, 0)
	pt3dadd(33.8379, 114.258, 35, 0)
  }
  dend[97] {pt3dclear()
	pt3dadd(33.8379, 114.258, 35, 0)
	pt3dadd(33.3984, 113.818, 35, 0)
	pt3dadd(32.959, 113.818, 35, 0)
	pt3dadd(32.5195, 113.379, 35, 0)
	pt3dadd(32.0801, 113.379, 35, 0)
	pt3dadd(31.6406, 112.939, 36, 0)
	pt3dadd(31.2012, 112.5, 37, 0)
	pt3dadd(30.7617, 112.061, 37, 0)
	pt3dadd(30.7617, 111.621, 37, 0)
	pt3dadd(30.7617, 111.182, 37, 0)
	pt3dadd(30.7617, 110.742, 37, 0)
  }
  dend[98] {pt3dclear()
	pt3dadd(30.7617, 110.742, 37, 0)
	pt3dadd(30.3223, 110.303, 37, 0)
	pt3dadd(29.8828, 109.863, 37, 0)
	pt3dadd(29.8828, 109.424, 37, 0)
	pt3dadd(29.4434, 109.424, 36, 0)
	pt3dadd(29.0039, 109.424, 35, 0)
	pt3dadd(28.5645, 108.984, 35, 0)
	pt3dadd(29.0039, 109.424, 35, 0)
	pt3dadd(29.4434, 109.424, 36, 0)
	pt3dadd(29.8828, 109.424, 37, 0)
	pt3dadd(29.4434, 109.863, 38, 0)
	pt3dadd(29.0039, 109.863, 39, 0)
	pt3dadd(28.5645, 109.863, 40, 0)
	pt3dadd(28.125, 109.863, 40, 0)
	pt3dadd(27.6855, 109.424, 40, 0)
	pt3dadd(27.2461, 108.984, 40, 0)
	pt3dadd(26.8066, 108.984, 40, 0)
	pt3dadd(26.3672, 108.984, 40, 0)
	pt3dadd(25.9277, 108.545, 40, 0)
	pt3dadd(25.4883, 108.545, 40, 0)
	pt3dadd(25.0488, 108.105, 40, 0)
	pt3dadd(24.6094, 107.666, 41, 0)
	pt3dadd(24.6094, 107.227, 41, 0)
	pt3dadd(24.1699, 106.787, 41, 0)
	pt3dadd(24.1699, 106.348, 41, 0)
	pt3dadd(24.1699, 105.908, 41, 0)
	pt3dadd(24.1699, 105.469, 41, 0)
	pt3dadd(23.7305, 105.029, 41, 0)
	pt3dadd(23.291, 104.59, 41, 0)
	pt3dadd(22.8516, 104.15, 41, 0)
	pt3dadd(22.4121, 103.711, 41, 0)
	pt3dadd(21.9727, 103.271, 40, 0)
	pt3dadd(21.5332, 102.832, 40, 0)
	pt3dadd(21.0938, 102.832, 40, 0)
	pt3dadd(20.6543, 102.393, 40, 0)
  }
  dend[99] {pt3dclear()
	pt3dadd(47.4609, 115.137, 28, 0)
	pt3dadd(47.4609, 115.137, 28, 0)
	pt3dadd(47.4609, 115.137, 27, 0)
	pt3dadd(47.4609, 115.137, 26, 0)
	pt3dadd(47.9004, 115.137, 25, 0)
	pt3dadd(48.3398, 115.137, 25, 0)
	pt3dadd(48.7793, 114.697, 25, 0)
	pt3dadd(49.2188, 114.258, 25, 0)
	pt3dadd(49.6582, 114.258, 26, 0)
	pt3dadd(50.0977, 114.258, 26, 0)
	pt3dadd(50.5371, 114.697, 26, 0)
	pt3dadd(50.9766, 114.697, 26, 0)
	pt3dadd(51.416, 114.697, 26, 0)
	pt3dadd(51.8555, 114.697, 26, 0)
	pt3dadd(52.2949, 114.697, 26, 0)
	pt3dadd(51.8555, 114.258, 25, 0)
	pt3dadd(51.416, 114.258, 25, 0)
	pt3dadd(50.9766, 114.258, 25, 0)
	pt3dadd(50.5371, 114.697, 24, 0)
	pt3dadd(50.0977, 114.697, 24, 0)
	pt3dadd(50.0977, 114.697, 23, 0)
	pt3dadd(50.0977, 114.697, 22, 0)
	pt3dadd(50.0977, 114.697, 21, 0)
	pt3dadd(50.5371, 115.137, 20, 0)
	pt3dadd(50.9766, 115.137, 20, 0)
	pt3dadd(51.416, 115.576, 19, 0)
	pt3dadd(51.8555, 116.016, 19, 0)
	pt3dadd(52.2949, 116.455, 19, 0)
	pt3dadd(52.7344, 116.895, 18, 0)
	pt3dadd(53.1738, 116.895, 18, 0)
	pt3dadd(53.6133, 116.895, 18, 0)
	pt3dadd(54.0527, 117.334, 19, 0)
	pt3dadd(54.0527, 117.773, 19, 0)
	pt3dadd(54.0527, 118.213, 19, 0)
	pt3dadd(54.0527, 118.652, 19, 0)
	pt3dadd(54.0527, 119.092, 19, 0)
	pt3dadd(54.0527, 119.531, 19, 0)
	pt3dadd(54.0527, 119.971, 19, 0)
	pt3dadd(54.0527, 120.41, 19, 0)
	pt3dadd(53.6133, 120.85, 19, 0)
	pt3dadd(53.6133, 121.289, 19, 0)
	pt3dadd(53.1738, 121.729, 19, 0)
	pt3dadd(53.6133, 121.729, 18, 0)
	pt3dadd(54.0527, 122.168, 17, 0)
	pt3dadd(54.4922, 122.168, 17, 0)
  }
  dend[100] {pt3dclear()
	pt3dadd(66.3574, 136.23, 29, 0)
	pt3dadd(66.3574, 136.23, 29, 0)
	pt3dadd(65.918, 135.791, 30, 0)
	pt3dadd(65.4785, 135.791, 30, 0)
	pt3dadd(65.0391, 135.791, 30, 0)
	pt3dadd(64.5996, 136.23, 30, 0)
	pt3dadd(64.1602, 136.23, 30, 0)
	pt3dadd(63.7207, 136.67, 30, 0)
	pt3dadd(63.2812, 137.109, 30, 0)
	pt3dadd(62.8418, 137.109, 30, 0)
	pt3dadd(62.4023, 137.549, 30, 0)
	pt3dadd(62.4023, 137.988, 30, 0)
	pt3dadd(62.4023, 138.428, 30, 0)
	pt3dadd(61.9629, 138.867, 30, 0)
	pt3dadd(61.5234, 139.307, 30, 0)
	pt3dadd(61.084, 139.307, 30, 0)
	pt3dadd(60.6445, 139.307, 30, 0)
	pt3dadd(60.2051, 139.307, 30, 0)
	pt3dadd(59.7656, 139.307, 30, 0)
	pt3dadd(59.3262, 139.307, 30, 0)
	pt3dadd(58.8867, 139.307, 30, 0)
	pt3dadd(58.4473, 139.746, 30, 0)
	pt3dadd(58.0078, 139.746, 30, 0)
	pt3dadd(57.5684, 139.746, 30, 0)
	pt3dadd(57.1289, 140.186, 30, 0)
	pt3dadd(56.6895, 140.186, 30, 0)
  }
  dend[101] {pt3dclear()
	pt3dadd(56.6895, 140.186, 30, 0)
	pt3dadd(56.25, 140.186, 29, 0)
  }
  dend[102] {pt3dclear()
	pt3dadd(66.3574, 131.836, 29, 0)
	pt3dadd(66.3574, 131.836, 29, 0)
	pt3dadd(65.918, 131.396, 29, 0)
	pt3dadd(65.4785, 131.396, 29, 0)
	pt3dadd(65.0391, 131.836, 30, 0)
	pt3dadd(64.5996, 132.275, 30, 0)
	pt3dadd(64.1602, 132.715, 30, 0)
	pt3dadd(63.7207, 133.154, 30, 0)
	pt3dadd(63.2812, 133.154, 30, 0)
	pt3dadd(62.8418, 133.594, 30, 0)
	pt3dadd(62.4023, 133.594, 30, 0)
	pt3dadd(61.9629, 133.594, 30, 0)
	pt3dadd(61.5234, 134.033, 30, 0)
	pt3dadd(61.084, 134.473, 29, 0)
	pt3dadd(60.6445, 134.473, 29, 0)
	pt3dadd(60.2051, 134.912, 29, 0)
	pt3dadd(59.7656, 135.352, 30, 0)
  }
  dend[103] {pt3dclear()
	pt3dadd(83.4961, 143.262, 32, 0)
	pt3dadd(83.4961, 143.262, 32, 0)
	pt3dadd(83.4961, 143.701, 32, 0)
	pt3dadd(83.0566, 144.141, 32, 0)
	pt3dadd(82.6172, 144.58, 32, 0)
	pt3dadd(82.1777, 144.58, 32, 0)
	pt3dadd(81.7383, 144.58, 32, 0)
	pt3dadd(81.2988, 144.58, 31, 0)
	pt3dadd(80.8594, 145.02, 30, 0)
	pt3dadd(80.4199, 145.02, 30, 0)
	pt3dadd(79.9805, 145.02, 30, 0)
	pt3dadd(79.541, 145.02, 30, 0)
	pt3dadd(79.1016, 145.459, 30, 0)
	pt3dadd(78.6621, 145.898, 31, 0)
	pt3dadd(79.1016, 145.459, 30, 0)
	pt3dadd(78.6621, 145.459, 29, 0)
	pt3dadd(78.2227, 145.459, 29, 0)
	pt3dadd(77.7832, 145.459, 28, 0)
	pt3dadd(77.3438, 145.459, 28, 0)
	pt3dadd(76.9043, 145.459, 28, 0)
	pt3dadd(76.4648, 145.459, 28, 0)
	pt3dadd(76.0254, 145.459, 28, 0)
	pt3dadd(75.5859, 145.459, 27, 0)
	pt3dadd(75.1465, 145.459, 27, 0)
	pt3dadd(74.707, 145.898, 27, 0)
	pt3dadd(74.2676, 145.898, 27, 0)
	pt3dadd(73.8281, 145.898, 27, 0)
	pt3dadd(73.3887, 145.898, 28, 0)
	pt3dadd(72.9492, 145.898, 29, 0)
  }
  dend[104] {pt3dclear()
	pt3dadd(84.375, 142.383, 32, 0)
	pt3dadd(84.375, 142.383, 32, 0)
	pt3dadd(83.9355, 142.822, 32, 0)
	pt3dadd(83.4961, 143.262, 32, 0)
	pt3dadd(83.4961, 143.701, 32, 0)
	pt3dadd(83.4961, 144.141, 32, 0)
	pt3dadd(83.4961, 144.58, 32, 0)
	pt3dadd(83.4961, 145.02, 32, 0)
	pt3dadd(83.4961, 145.459, 32, 0)
	pt3dadd(83.4961, 145.898, 32, 0)
	pt3dadd(83.4961, 146.338, 32, 0)
	pt3dadd(83.4961, 146.777, 31, 0)
	pt3dadd(83.4961, 147.217, 31, 0)
	pt3dadd(83.4961, 147.656, 31, 0)
	pt3dadd(83.4961, 148.096, 31, 0)
	pt3dadd(83.4961, 148.535, 31, 0)
	pt3dadd(83.0566, 148.975, 31, 0)
	pt3dadd(82.6172, 149.414, 31, 0)
	pt3dadd(82.1777, 149.854, 30, 0)
  }
  dend[105] {pt3dclear()
	pt3dadd(82.1777, 149.854, 30, 0)
	pt3dadd(81.7383, 150.293, 30, 0)
	pt3dadd(81.2988, 150.732, 30, 0)
	pt3dadd(80.8594, 150.732, 30, 0)
	pt3dadd(80.4199, 151.172, 31, 0)
	pt3dadd(80.4199, 151.172, 30, 0)
	pt3dadd(79.9805, 151.611, 29, 0)
	pt3dadd(79.9805, 151.611, 28, 0)
	pt3dadd(79.541, 152.051, 28, 0)
	pt3dadd(79.1016, 152.49, 28, 0)
	pt3dadd(78.6621, 152.93, 28, 0)
	pt3dadd(78.2227, 152.93, 28, 0)
	pt3dadd(77.7832, 153.369, 29, 0)
  }
}
proc shape3d_15() {
  dend[105] {	pt3dadd(77.3438, 153.369, 29, 0)
	pt3dadd(76.9043, 153.369, 29, 0)
	pt3dadd(76.4648, 153.369, 29, 0)
	pt3dadd(76.0254, 153.369, 29, 0)
	pt3dadd(75.5859, 153.369, 29, 0)
	pt3dadd(75.1465, 153.809, 30, 0)
	pt3dadd(75.1465, 154.248, 30, 0)
	pt3dadd(75.1465, 154.688, 30, 0)
	pt3dadd(74.707, 154.248, 30, 0)
	pt3dadd(74.2676, 154.248, 29, 0)
	pt3dadd(73.8281, 154.688, 29, 0)
	pt3dadd(73.3887, 154.688, 29, 0)
	pt3dadd(72.9492, 155.127, 28, 0)
	pt3dadd(72.5098, 155.566, 28, 0)
	pt3dadd(72.0703, 156.006, 28, 0)
	pt3dadd(72.0703, 156.445, 28, 0)
	pt3dadd(71.6309, 156.885, 28, 0)
	pt3dadd(71.6309, 157.324, 28, 0)
	pt3dadd(71.1914, 157.764, 29, 0)
	pt3dadd(70.752, 158.203, 29, 0)
	pt3dadd(70.3125, 158.643, 29, 0)
	pt3dadd(69.873, 159.082, 29, 0)
	pt3dadd(69.4336, 159.521, 29, 0)
	pt3dadd(68.9941, 159.961, 28, 0)
	pt3dadd(68.5547, 160.4, 28, 0)
	pt3dadd(68.1152, 160.84, 28, 0)
	pt3dadd(68.1152, 161.279, 28, 0)
	pt3dadd(68.1152, 161.719, 28, 0)
	pt3dadd(67.6758, 162.158, 28, 0)
	pt3dadd(68.1152, 162.598, 29, 0)
	pt3dadd(67.6758, 162.598, 28, 0)
	pt3dadd(67.2363, 163.037, 27, 0)
	pt3dadd(67.2363, 163.477, 27, 0)
	pt3dadd(67.2363, 163.916, 27, 0)
	pt3dadd(66.7969, 164.355, 27, 0)
	pt3dadd(66.3574, 164.795, 27, 0)
	pt3dadd(65.918, 165.234, 27, 0)
	pt3dadd(65.4785, 165.234, 27, 0)
	pt3dadd(65.0391, 165.234, 27, 0)
  }
  dend[106] {pt3dclear()
	pt3dadd(65.0391, 165.234, 27, 0)
	pt3dadd(64.5996, 165.674, 27, 0)
	pt3dadd(64.5996, 166.113, 27, 0)
	pt3dadd(64.5996, 166.553, 26, 0)
	pt3dadd(64.5996, 166.992, 26, 0)
	pt3dadd(65.0391, 167.432, 26, 0)
	pt3dadd(65.0391, 167.871, 26, 0)
	pt3dadd(65.0391, 168.311, 26, 0)
	pt3dadd(65.0391, 168.75, 26, 0)
	pt3dadd(65.0391, 169.189, 26, 0)
	pt3dadd(65.0391, 169.629, 26, 0)
	pt3dadd(65.0391, 170.068, 26, 0)
	pt3dadd(64.5996, 170.508, 26, 0)
	pt3dadd(64.5996, 170.947, 27, 0)
	pt3dadd(64.5996, 170.508, 26, 0)
	pt3dadd(65.0391, 170.947, 25, 0)
	pt3dadd(65.4785, 171.387, 25, 0)
	pt3dadd(65.918, 171.387, 25, 0)
	pt3dadd(66.3574, 171.826, 25, 0)
	pt3dadd(66.3574, 172.266, 25, 0)
	pt3dadd(66.3574, 172.705, 24, 0)
	pt3dadd(66.3574, 173.145, 24, 0)
	pt3dadd(66.3574, 173.584, 24, 0)
	pt3dadd(65.918, 174.023, 24, 0)
	pt3dadd(65.4785, 174.463, 24, 0)
	pt3dadd(65.0391, 174.902, 24, 0)
	pt3dadd(64.5996, 174.902, 24, 0)
	pt3dadd(64.5996, 174.902, 23, 0)
	pt3dadd(64.1602, 174.463, 22, 0)
	pt3dadd(63.7207, 174.463, 21, 0)
	pt3dadd(63.7207, 174.902, 21, 0)
	pt3dadd(63.7207, 175.342, 20, 0)
	pt3dadd(64.1602, 175.342, 20, 0)
	pt3dadd(64.5996, 175.342, 20, 0)
	pt3dadd(65.0391, 175.781, 20, 0)
	pt3dadd(65.4785, 175.781, 20, 0)
	pt3dadd(65.918, 176.221, 19, 0)
	pt3dadd(66.3574, 176.221, 19, 0)
	pt3dadd(66.7969, 176.66, 19, 0)
	pt3dadd(66.3574, 176.221, 19, 0)
	pt3dadd(65.918, 176.221, 19, 0)
	pt3dadd(65.4785, 175.781, 20, 0)
	pt3dadd(65.0391, 175.781, 20, 0)
	pt3dadd(64.5996, 175.342, 20, 0)
	pt3dadd(64.1602, 175.342, 20, 0)
	pt3dadd(63.7207, 175.342, 19, 0)
	pt3dadd(63.2812, 175.781, 19, 0)
	pt3dadd(63.2812, 176.221, 18, 0)
	pt3dadd(62.8418, 176.66, 17, 0)
	pt3dadd(62.8418, 177.1, 16, 0)
	pt3dadd(62.8418, 177.539, 16, 0)
	pt3dadd(62.4023, 177.979, 16, 0)
	pt3dadd(61.9629, 178.418, 16, 0)
	pt3dadd(61.5234, 178.857, 15, 0)
	pt3dadd(61.5234, 179.297, 15, 0)
	pt3dadd(61.084, 179.736, 15, 0)
	pt3dadd(60.6445, 180.176, 15, 0)
	pt3dadd(60.6445, 180.615, 15, 0)
	pt3dadd(60.2051, 181.055, 15, 0)
	pt3dadd(60.2051, 181.494, 15, 0)
	pt3dadd(60.2051, 181.934, 15, 0)
	pt3dadd(60.2051, 182.373, 15, 0)
	pt3dadd(60.2051, 182.812, 15, 0)
	pt3dadd(60.2051, 183.252, 15, 0)
	pt3dadd(60.2051, 183.691, 15, 0)
	pt3dadd(60.6445, 184.131, 16, 0)
	pt3dadd(61.084, 184.57, 16, 0)
	pt3dadd(61.084, 185.01, 16, 0)
	pt3dadd(61.5234, 185.01, 15, 0)
	pt3dadd(61.084, 185.01, 16, 0)
	pt3dadd(61.084, 184.57, 16, 0)
	pt3dadd(60.6445, 184.131, 16, 0)
	pt3dadd(60.2051, 183.691, 15, 0)
	pt3dadd(60.2051, 183.252, 15, 0)
	pt3dadd(60.2051, 182.812, 15, 0)
	pt3dadd(60.2051, 182.373, 15, 0)
	pt3dadd(60.2051, 181.934, 15, 0)
	pt3dadd(60.2051, 181.494, 15, 0)
	pt3dadd(60.2051, 181.055, 15, 0)
	pt3dadd(60.2051, 180.615, 14, 0)
	pt3dadd(60.2051, 180.176, 13, 0)
	pt3dadd(60.2051, 180.176, 12, 0)
	pt3dadd(59.7656, 179.736, 11, 0)
	pt3dadd(59.7656, 179.297, 10, 0)
	pt3dadd(59.3262, 178.857, 9, 0)
	pt3dadd(58.8867, 178.857, 9, 0)
	pt3dadd(58.4473, 178.857, 9, 0)
	pt3dadd(58.0078, 178.857, 9, 0)
	pt3dadd(57.5684, 178.418, 9, 0)
	pt3dadd(57.1289, 178.418, 9, 0)
	pt3dadd(57.1289, 177.979, 10, 0)
	pt3dadd(57.1289, 178.418, 9, 0)
	pt3dadd(56.6895, 178.418, 9, 0)
	pt3dadd(56.25, 178.857, 9, 0)
	pt3dadd(55.8105, 179.297, 9, 0)
	pt3dadd(55.3711, 179.297, 9, 0)
	pt3dadd(54.9316, 179.736, 9, 0)
	pt3dadd(54.4922, 180.176, 9, 0)
	pt3dadd(54.0527, 180.615, 9, 0)
	pt3dadd(53.6133, 180.615, 9, 0)
	pt3dadd(53.1738, 181.055, 9, 0)
	pt3dadd(52.7344, 181.055, 9, 0)
	pt3dadd(52.2949, 181.494, 9, 0)
	pt3dadd(51.8555, 181.934, 9, 0)
	pt3dadd(51.8555, 182.373, 9, 0)
	pt3dadd(51.8555, 182.812, 9, 0)
	pt3dadd(51.8555, 183.252, 9, 0)
	pt3dadd(51.8555, 183.691, 9, 0)
	pt3dadd(51.416, 184.131, 9, 0)
	pt3dadd(50.9766, 184.57, 9, 0)
	pt3dadd(50.5371, 185.01, 9, 0)
	pt3dadd(50.0977, 185.01, 9, 0)
	pt3dadd(49.6582, 185.449, 9, 0)
	pt3dadd(49.6582, 185.889, 9, 0)
	pt3dadd(49.6582, 186.328, 9, 0)
	pt3dadd(49.6582, 186.768, 9, 0)
	pt3dadd(49.6582, 187.207, 9, 0)
	pt3dadd(49.6582, 187.646, 9, 0)
	pt3dadd(49.6582, 188.086, 9, 0)
	pt3dadd(49.6582, 188.525, 9, 0)
	pt3dadd(49.6582, 188.965, 9, 0)
	pt3dadd(49.6582, 189.404, 9, 0)
	pt3dadd(49.2188, 189.844, 10, 0)
  }
  dend[107] {pt3dclear()
	pt3dadd(87.8906, 138.867, 35, 0)
	pt3dadd(87.8906, 138.867, 35, 0)
	pt3dadd(88.3301, 139.307, 35, 0)
	pt3dadd(88.3301, 139.746, 35, 0)
	pt3dadd(88.7695, 140.186, 35, 0)
	pt3dadd(88.7695, 140.625, 35, 0)
	pt3dadd(89.209, 141.064, 35, 0)
	pt3dadd(89.6484, 141.504, 35, 0)
	pt3dadd(89.6484, 141.943, 34, 0)
	pt3dadd(90.0879, 142.383, 34, 0)
	pt3dadd(90.0879, 142.822, 34, 0)
	pt3dadd(90.0879, 143.262, 34, 0)
	pt3dadd(90.0879, 143.701, 33, 0)
	pt3dadd(90.5273, 144.141, 32, 0)
	pt3dadd(90.5273, 144.58, 32, 0)
	pt3dadd(90.5273, 145.02, 32, 0)
	pt3dadd(90.5273, 145.459, 32, 0)
	pt3dadd(90.9668, 145.898, 33, 0)
	pt3dadd(91.4062, 146.338, 34, 0)
	pt3dadd(90.9668, 145.898, 33, 0)
	pt3dadd(90.5273, 145.898, 32, 0)
	pt3dadd(90.5273, 146.338, 31, 0)
	pt3dadd(90.5273, 146.777, 31, 0)
	pt3dadd(90.5273, 147.217, 31, 0)
	pt3dadd(90.5273, 147.656, 30, 0)
	pt3dadd(90.5273, 148.096, 30, 0)
	pt3dadd(90.9668, 148.535, 29, 0)
	pt3dadd(90.9668, 148.975, 29, 0)
	pt3dadd(90.9668, 149.414, 29, 0)
	pt3dadd(90.9668, 149.854, 28, 0)
	pt3dadd(90.9668, 150.293, 28, 0)
	pt3dadd(90.9668, 150.732, 27, 0)
  }
  dend[108] {pt3dclear()
	pt3dadd(90.9668, 150.732, 27, 0)
	pt3dadd(90.5273, 151.172, 27, 0)
	pt3dadd(90.0879, 151.611, 27, 0)
	pt3dadd(90.5273, 152.051, 28, 0)
	pt3dadd(90.0879, 151.611, 27, 0)
	pt3dadd(89.6484, 152.051, 27, 0)
  }
}
proc shape3d_16() {
  dend[108] {	pt3dadd(89.6484, 152.49, 27, 0)
  }
  dend[109] {pt3dclear()
	pt3dadd(89.6484, 152.49, 27, 0)
	pt3dadd(89.6484, 152.93, 26, 0)
	pt3dadd(89.209, 153.369, 26, 0)
	pt3dadd(89.209, 153.809, 26, 0)
	pt3dadd(89.209, 154.248, 25, 0)
	pt3dadd(89.209, 154.688, 24, 0)
	pt3dadd(89.209, 155.127, 24, 0)
	pt3dadd(89.209, 155.566, 24, 0)
	pt3dadd(89.209, 156.006, 24, 0)
	pt3dadd(88.7695, 156.445, 25, 0)
	pt3dadd(88.3301, 156.885, 25, 0)
	pt3dadd(88.7695, 157.324, 24, 0)
	pt3dadd(88.7695, 156.885, 23, 0)
	pt3dadd(89.209, 156.885, 22, 0)
	pt3dadd(89.209, 157.324, 21, 0)
	pt3dadd(89.209, 157.764, 21, 0)
	pt3dadd(89.209, 158.203, 21, 0)
	pt3dadd(89.209, 158.643, 21, 0)
	pt3dadd(89.209, 159.082, 21, 0)
	pt3dadd(89.209, 159.521, 21, 0)
	pt3dadd(89.209, 159.961, 21, 0)
	pt3dadd(89.209, 160.4, 21, 0)
	pt3dadd(89.209, 160.84, 21, 0)
	pt3dadd(89.209, 161.279, 21, 0)
	pt3dadd(89.209, 161.719, 21, 0)
	pt3dadd(89.209, 162.158, 21, 0)
	pt3dadd(89.6484, 162.598, 22, 0)
	pt3dadd(89.6484, 163.037, 22, 0)
	pt3dadd(89.6484, 163.477, 22, 0)
	pt3dadd(89.6484, 163.916, 22, 0)
	pt3dadd(89.6484, 164.355, 22, 0)
	pt3dadd(89.6484, 164.795, 22, 0)
	pt3dadd(89.6484, 165.234, 22, 0)
	pt3dadd(89.6484, 165.674, 22, 0)
	pt3dadd(89.6484, 166.113, 21, 0)
	pt3dadd(89.6484, 165.674, 22, 0)
	pt3dadd(89.6484, 166.113, 23, 0)
	pt3dadd(89.6484, 166.553, 24, 0)
	pt3dadd(89.209, 166.992, 25, 0)
	pt3dadd(88.7695, 167.432, 25, 0)
	pt3dadd(88.7695, 167.871, 25, 0)
  }
  dend[110] {pt3dclear()
	pt3dadd(88.7695, 167.871, 25, 0)
	pt3dadd(88.3301, 168.311, 25, 0)
	pt3dadd(88.3301, 168.75, 25, 0)
	pt3dadd(88.3301, 169.189, 25, 0)
	pt3dadd(88.3301, 169.629, 25, 0)
	pt3dadd(87.8906, 170.068, 25, 0)
	pt3dadd(87.4512, 170.508, 25, 0)
	pt3dadd(87.0117, 170.947, 25, 0)
	pt3dadd(86.5723, 171.387, 25, 0)
	pt3dadd(86.1328, 171.826, 24, 0)
	pt3dadd(85.6934, 172.266, 24, 0)
  }
  dend[111] {pt3dclear()
	pt3dadd(85.6934, 172.266, 24, 0)
	pt3dadd(85.2539, 172.705, 24, 0)
	pt3dadd(84.8145, 173.145, 24, 0)
	pt3dadd(85.2539, 173.584, 24, 0)
	pt3dadd(85.6934, 173.584, 24, 0)
	pt3dadd(86.1328, 174.023, 24, 0)
	pt3dadd(86.5723, 174.463, 25, 0)
	pt3dadd(86.5723, 174.902, 25, 0)
  }
  dend[112] {pt3dclear()
	pt3dadd(86.5723, 174.902, 25, 0)
	pt3dadd(86.1328, 175.342, 25, 0)
	pt3dadd(86.1328, 175.781, 25, 0)
	pt3dadd(85.6934, 176.221, 25, 0)
	pt3dadd(85.6934, 176.66, 25, 0)
  }
  dend[113] {pt3dclear()
	pt3dadd(85.6934, 176.66, 25, 0)
	pt3dadd(85.6934, 177.1, 25, 0)
	pt3dadd(85.6934, 177.539, 25, 0)
	pt3dadd(86.1328, 177.979, 25, 0)
	pt3dadd(86.1328, 178.418, 25, 0)
	pt3dadd(86.5723, 178.857, 25, 0)
	pt3dadd(87.0117, 179.297, 26, 0)
	pt3dadd(87.4512, 179.736, 26, 0)
	pt3dadd(87.4512, 180.176, 26, 0)
	pt3dadd(87.4512, 180.615, 26, 0)
	pt3dadd(87.4512, 181.055, 26, 0)
	pt3dadd(87.8906, 181.494, 26, 0)
	pt3dadd(88.3301, 181.934, 26, 0)
	pt3dadd(88.7695, 182.373, 26, 0)
	pt3dadd(88.7695, 182.812, 26, 0)
	pt3dadd(88.7695, 183.252, 25, 0)
  }
  dend[114] {pt3dclear()
	pt3dadd(88.7695, 183.252, 25, 0)
	pt3dadd(88.7695, 183.691, 25, 0)
	pt3dadd(88.3301, 184.131, 25, 0)
	pt3dadd(88.3301, 184.57, 25, 0)
	pt3dadd(88.3301, 185.01, 25, 0)
	pt3dadd(87.8906, 185.449, 26, 0)
	pt3dadd(88.3301, 185.449, 25, 0)
	pt3dadd(88.3301, 185.889, 24, 0)
	pt3dadd(88.3301, 186.328, 24, 0)
	pt3dadd(88.3301, 186.768, 23, 0)
	pt3dadd(88.7695, 187.207, 23, 0)
	pt3dadd(89.209, 187.646, 23, 0)
	pt3dadd(89.6484, 187.646, 23, 0)
  }
  dend[115] {pt3dclear()
	pt3dadd(89.6484, 187.646, 23, 0)
	pt3dadd(90.0879, 188.086, 23, 0)
	pt3dadd(90.5273, 188.086, 23, 0)
	pt3dadd(90.9668, 188.086, 23, 0)
	pt3dadd(91.4062, 188.086, 23, 0)
	pt3dadd(91.8457, 188.525, 22, 0)
	pt3dadd(92.2852, 188.965, 23, 0)
	pt3dadd(92.7246, 188.525, 22, 0)
	pt3dadd(93.1641, 188.525, 21, 0)
	pt3dadd(93.6035, 188.525, 21, 0)
	pt3dadd(94.043, 188.525, 21, 0)
	pt3dadd(94.4824, 188.525, 21, 0)
	pt3dadd(94.9219, 188.525, 21, 0)
	pt3dadd(95.3613, 188.965, 21, 0)
  }
  dend[116] {pt3dclear()
	pt3dadd(95.3613, 188.965, 21, 0)
	pt3dadd(95.8008, 189.404, 20, 0)
	pt3dadd(96.2402, 189.844, 20, 0)
	pt3dadd(96.6797, 190.283, 20, 0)
	pt3dadd(97.1191, 190.723, 20, 0)
	pt3dadd(97.5586, 190.723, 20, 0)
	pt3dadd(97.998, 191.162, 20, 0)
	pt3dadd(98.4375, 191.602, 20, 0)
	pt3dadd(98.877, 191.602, 20, 0)
	pt3dadd(99.3164, 191.162, 20, 0)
  }
  dend[117] {pt3dclear()
	pt3dadd(99.3164, 191.162, 20, 0)
	pt3dadd(99.7559, 190.723, 21, 0)
	pt3dadd(100.195, 190.723, 21, 0)
	pt3dadd(100.635, 190.723, 21, 0)
	pt3dadd(101.074, 190.723, 21, 0)
	pt3dadd(101.514, 190.723, 22, 0)
	pt3dadd(101.953, 190.723, 22, 0)
	pt3dadd(102.393, 190.723, 22, 0)
	pt3dadd(102.832, 190.723, 22, 0)
	pt3dadd(103.271, 190.723, 22, 0)
	pt3dadd(103.711, 190.723, 22, 0)
	pt3dadd(104.15, 190.283, 22, 0)
	pt3dadd(104.59, 190.283, 22, 0)
	pt3dadd(105.029, 189.844, 22, 0)
	pt3dadd(105.469, 189.404, 22, 0)
	pt3dadd(105.908, 189.404, 22, 0)
	pt3dadd(106.348, 188.965, 23, 0)
	pt3dadd(106.787, 188.525, 23, 0)
	pt3dadd(107.227, 188.086, 23, 0)
	pt3dadd(107.666, 188.086, 23, 0)
	pt3dadd(108.105, 187.646, 23, 0)
	pt3dadd(108.105, 187.207, 23, 0)
	pt3dadd(108.545, 186.768, 23, 0)
	pt3dadd(108.984, 186.768, 23, 0)
	pt3dadd(109.424, 187.207, 22, 0)
	pt3dadd(109.424, 187.646, 22, 0)
	pt3dadd(109.863, 188.086, 21, 0)
	pt3dadd(109.424, 187.646, 22, 0)
	pt3dadd(109.424, 187.207, 22, 0)
	pt3dadd(109.863, 186.768, 23, 0)
	pt3dadd(110.303, 186.768, 23, 0)
	pt3dadd(110.742, 186.328, 23, 0)
	pt3dadd(111.182, 186.328, 23, 0)
	pt3dadd(111.621, 186.328, 23, 0)
	pt3dadd(112.061, 186.328, 22, 0)
	pt3dadd(112.5, 186.328, 22, 0)
	pt3dadd(112.939, 186.328, 22, 0)
	pt3dadd(113.379, 186.328, 22, 0)
	pt3dadd(113.818, 186.768, 21, 0)
	pt3dadd(114.258, 186.768, 21, 0)
	pt3dadd(114.697, 186.768, 21, 0)
	pt3dadd(115.137, 186.768, 21, 0)
	pt3dadd(115.576, 186.768, 20, 0)
	pt3dadd(116.016, 186.768, 20, 0)
	pt3dadd(116.455, 186.768, 20, 0)
	pt3dadd(116.895, 187.207, 20, 0)
	pt3dadd(117.334, 187.646, 20, 0)
	pt3dadd(117.773, 188.086, 20, 0)
	pt3dadd(118.213, 188.525, 20, 0)
	pt3dadd(118.652, 188.965, 20, 0)
	pt3dadd(119.092, 189.404, 20, 0)
	pt3dadd(119.531, 189.404, 20, 0)
	pt3dadd(119.971, 189.844, 20, 0)
	pt3dadd(119.971, 190.283, 20, 0)
	pt3dadd(119.971, 190.723, 20, 0)
	pt3dadd(119.971, 191.162, 21, 0)
	pt3dadd(120.41, 191.602, 21, 0)
	pt3dadd(120.85, 192.041, 21, 0)
	pt3dadd(121.289, 192.48, 21, 0)
	pt3dadd(121.289, 192.92, 21, 0)
	pt3dadd(121.289, 193.359, 21, 0)
	pt3dadd(121.729, 193.799, 21, 0)
	pt3dadd(122.168, 194.238, 21, 0)
	pt3dadd(122.607, 194.678, 20, 0)
	pt3dadd(122.607, 195.117, 20, 0)
  }
  dend[118] {pt3dclear()
	pt3dadd(122.607, 195.117, 20, 0)
	pt3dadd(123.047, 195.557, 20, 0)
	pt3dadd(123.486, 195.557, 20, 0)
	pt3dadd(123.926, 195.557, 20, 0)
	pt3dadd(124.365, 195.557, 20, 0)
	pt3dadd(124.805, 195.557, 20, 0)
	pt3dadd(125.244, 195.557, 20, 0)
	pt3dadd(125.684, 195.996, 20, 0)
	pt3dadd(126.123, 196.436, 20, 0)
  }
  dend[119] {pt3dclear()
	pt3dadd(126.123, 196.436, 20, 0)
	pt3dadd(126.562, 196.436, 20, 0)
	pt3dadd(127.002, 196.436, 20, 0)
	pt3dadd(127.441, 196.436, 20, 0)
	pt3dadd(127.881, 196.436, 20, 0)
	pt3dadd(128.32, 196.875, 20, 0)
	pt3dadd(128.76, 197.314, 20, 0)
  }
}
proc shape3d_17() {
  dend[119] {	pt3dadd(129.199, 197.754, 20, 0)
	pt3dadd(129.199, 198.193, 20, 0)
	pt3dadd(129.639, 198.633, 20, 0)
	pt3dadd(130.078, 199.072, 20, 0)
	pt3dadd(130.518, 199.512, 20, 0)
	pt3dadd(130.957, 199.951, 20, 0)
	pt3dadd(130.957, 200.391, 20, 0)
	pt3dadd(131.396, 200.83, 20, 0)
	pt3dadd(131.396, 201.27, 20, 0)
	pt3dadd(131.396, 201.709, 20, 0)
	pt3dadd(131.396, 202.148, 21, 0)
	pt3dadd(131.396, 201.709, 20, 0)
	pt3dadd(131.836, 202.148, 19, 0)
	pt3dadd(131.836, 202.588, 19, 0)
	pt3dadd(132.275, 203.027, 19, 0)
	pt3dadd(132.275, 203.467, 18, 0)
	pt3dadd(132.275, 203.906, 18, 0)
	pt3dadd(132.275, 204.346, 18, 0)
	pt3dadd(132.275, 204.785, 18, 0)
	pt3dadd(132.275, 205.225, 18, 0)
	pt3dadd(131.836, 205.664, 18, 0)
	pt3dadd(131.836, 206.104, 18, 0)
	pt3dadd(131.836, 206.543, 18, 0)
	pt3dadd(131.836, 206.982, 18, 0)
	pt3dadd(131.836, 207.422, 18, 0)
	pt3dadd(131.836, 207.861, 18, 0)
	pt3dadd(131.836, 208.301, 18, 0)
	pt3dadd(131.836, 208.74, 18, 0)
	pt3dadd(132.275, 209.18, 19, 0)
	pt3dadd(132.275, 209.619, 19, 0)
	pt3dadd(132.275, 210.059, 19, 0)
	pt3dadd(132.275, 210.498, 19, 0)
	pt3dadd(132.275, 210.938, 19, 0)
	pt3dadd(131.836, 211.377, 19, 0)
	pt3dadd(131.396, 211.816, 19, 0)
	pt3dadd(130.957, 212.256, 19, 0)
	pt3dadd(130.518, 212.695, 19, 0)
	pt3dadd(130.078, 213.135, 19, 0)
	pt3dadd(130.078, 213.574, 19, 0)
	pt3dadd(129.639, 214.014, 19, 0)
	pt3dadd(129.639, 214.453, 19, 0)
	pt3dadd(129.639, 214.893, 19, 0)
	pt3dadd(129.199, 215.332, 19, 0)
	pt3dadd(128.76, 215.771, 18, 0)
	pt3dadd(128.76, 216.211, 18, 0)
	pt3dadd(128.32, 216.65, 18, 0)
	pt3dadd(128.32, 217.09, 18, 0)
	pt3dadd(128.32, 217.529, 18, 0)
	pt3dadd(128.32, 217.969, 18, 0)
	pt3dadd(127.881, 218.408, 18, 0)
	pt3dadd(127.441, 218.848, 18, 0)
	pt3dadd(127.002, 218.848, 18, 0)
	pt3dadd(126.562, 218.848, 18, 0)
	pt3dadd(126.123, 219.287, 17, 0)
	pt3dadd(125.684, 219.287, 17, 0)
	pt3dadd(125.244, 219.287, 17, 0)
	pt3dadd(124.805, 219.727, 17, 0)
	pt3dadd(124.365, 219.727, 17, 0)
	pt3dadd(123.926, 219.727, 17, 0)
	pt3dadd(123.486, 219.727, 17, 0)
	pt3dadd(123.047, 219.727, 18, 0)
	pt3dadd(122.607, 219.727, 18, 0)
	pt3dadd(122.168, 219.727, 18, 0)
	pt3dadd(121.729, 220.166, 18, 0)
	pt3dadd(121.729, 220.605, 18, 0)
	pt3dadd(121.729, 221.045, 18, 0)
	pt3dadd(121.729, 221.484, 18, 0)
  }
  dend[120] {pt3dclear()
	pt3dadd(58.4473, 127.002, 26, 0)
	pt3dadd(58.4473, 127.002, 26, 0)
	pt3dadd(58.8867, 127.002, 25, 0)
	pt3dadd(59.3262, 127.441, 24, 0)
	pt3dadd(59.7656, 127.881, 24, 0)
	pt3dadd(60.2051, 127.881, 24, 0)
	pt3dadd(60.6445, 127.441, 23, 0)
	pt3dadd(61.084, 127.002, 22, 0)
	pt3dadd(61.5234, 127.002, 22, 0)
	pt3dadd(61.9629, 126.562, 22, 0)
	pt3dadd(62.4023, 126.123, 22, 0)
	pt3dadd(62.8418, 125.684, 22, 0)
	pt3dadd(62.8418, 125.244, 22, 0)
	pt3dadd(63.2812, 124.805, 23, 0)
	pt3dadd(63.7207, 124.805, 24, 0)
	pt3dadd(64.1602, 124.365, 25, 0)
	pt3dadd(64.5996, 123.926, 26, 0)
	pt3dadd(65.0391, 123.486, 27, 0)
	pt3dadd(65.4785, 123.047, 27, 0)
	pt3dadd(65.918, 123.047, 28, 0)
	pt3dadd(66.3574, 123.047, 28, 0)
	pt3dadd(66.7969, 123.047, 28, 0)
	pt3dadd(67.2363, 123.047, 29, 0)
	pt3dadd(67.6758, 123.047, 29, 0)
	pt3dadd(68.1152, 122.607, 29, 0)
	pt3dadd(68.5547, 122.607, 30, 0)
	pt3dadd(68.9941, 122.607, 30, 0)
	pt3dadd(69.4336, 122.168, 30, 0)
	pt3dadd(69.873, 121.729, 30, 0)
	pt3dadd(70.3125, 121.729, 30, 0)
	pt3dadd(70.752, 121.289, 30, 0)
	pt3dadd(71.1914, 121.289, 30, 0)
  }
  dend[121] {pt3dclear()
	pt3dadd(58.4473, 127.002, 26, 0)
	pt3dadd(58.4473, 127.002, 26, 0)
	pt3dadd(58.8867, 127.002, 26, 0)
	pt3dadd(59.3262, 126.562, 26, 0)
	pt3dadd(59.3262, 126.123, 26, 0)
	pt3dadd(59.3262, 125.684, 26, 0)
	pt3dadd(59.7656, 125.244, 27, 0)
	pt3dadd(60.2051, 124.805, 27, 0)
	pt3dadd(60.2051, 124.365, 28, 0)
	pt3dadd(60.2051, 123.926, 28, 0)
	pt3dadd(60.2051, 123.486, 28, 0)
  }
  dend[122] {pt3dclear()
	pt3dadd(108.545, 137.549, 37, 0)
	pt3dadd(108.545, 137.549, 37, 0)
	pt3dadd(108.105, 137.988, 37, 0)
	pt3dadd(107.666, 137.988, 37, 0)
	pt3dadd(107.227, 138.428, 37, 0)
	pt3dadd(106.787, 138.867, 37, 0)
	pt3dadd(106.348, 139.307, 37, 0)
	pt3dadd(105.908, 139.307, 37, 0)
	pt3dadd(105.469, 139.746, 36, 0)
	pt3dadd(105.029, 140.186, 36, 0)
	pt3dadd(105.029, 140.625, 36, 0)
	pt3dadd(105.029, 141.064, 35, 0)
	pt3dadd(104.59, 141.504, 35, 0)
	pt3dadd(104.15, 141.943, 34, 0)
	pt3dadd(103.711, 142.383, 34, 0)
	pt3dadd(103.271, 142.822, 34, 0)
	pt3dadd(102.832, 143.262, 33, 0)
	pt3dadd(102.393, 143.701, 33, 0)
	pt3dadd(101.953, 144.141, 32, 0)
	pt3dadd(101.514, 144.58, 32, 0)
	pt3dadd(101.074, 144.58, 33, 0)
	pt3dadd(100.635, 145.02, 34, 0)
	pt3dadd(101.074, 144.58, 33, 0)
	pt3dadd(101.514, 144.58, 32, 0)
	pt3dadd(101.074, 145.02, 31, 0)
	pt3dadd(100.635, 145.459, 30, 0)
	pt3dadd(100.195, 145.898, 30, 0)
	pt3dadd(100.195, 146.338, 29, 0)
	pt3dadd(100.195, 146.777, 29, 0)
	pt3dadd(100.195, 147.217, 29, 0)
	pt3dadd(99.7559, 147.656, 29, 0)
	pt3dadd(99.3164, 148.096, 28, 0)
	pt3dadd(99.3164, 147.656, 28, 0)
	pt3dadd(99.3164, 147.217, 28, 0)
  }
  dend[123] {pt3dclear()
	pt3dadd(99.3164, 147.217, 28, 0)
	pt3dadd(98.877, 146.777, 28, 0)
	pt3dadd(98.4375, 146.777, 27, 0)
	pt3dadd(97.998, 147.217, 27, 0)
	pt3dadd(97.5586, 147.656, 27, 0)
	pt3dadd(97.1191, 148.096, 27, 0)
	pt3dadd(96.6797, 148.535, 27, 0)
	pt3dadd(96.6797, 148.975, 27, 0)
	pt3dadd(96.2402, 149.414, 27, 0)
	pt3dadd(96.2402, 149.854, 27, 0)
	pt3dadd(96.2402, 150.293, 27, 0)
	pt3dadd(96.2402, 150.732, 27, 0)
	pt3dadd(96.2402, 151.172, 27, 0)
	pt3dadd(96.2402, 151.611, 27, 0)
	pt3dadd(96.2402, 152.051, 27, 0)
	pt3dadd(96.2402, 152.49, 27, 0)
	pt3dadd(95.8008, 152.93, 26, 0)
	pt3dadd(95.8008, 153.369, 26, 0)
	pt3dadd(96.2402, 153.809, 26, 0)
	pt3dadd(96.6797, 154.248, 26, 0)
	pt3dadd(96.6797, 154.688, 27, 0)
	pt3dadd(96.6797, 155.127, 27, 0)
	pt3dadd(96.2402, 155.566, 27, 0)
	pt3dadd(96.2402, 156.006, 27, 0)
	pt3dadd(95.8008, 156.445, 27, 0)
	pt3dadd(95.3613, 156.445, 27, 0)
	pt3dadd(94.9219, 156.885, 28, 0)
	pt3dadd(94.9219, 157.324, 28, 0)
	pt3dadd(94.9219, 157.764, 28, 0)
	pt3dadd(94.9219, 158.203, 28, 0)
	pt3dadd(94.4824, 158.643, 28, 0)
	pt3dadd(94.043, 159.082, 28, 0)
	pt3dadd(94.043, 159.521, 28, 0)
	pt3dadd(94.043, 159.961, 28, 0)
	pt3dadd(94.043, 160.4, 28, 0)
	pt3dadd(93.6035, 160.84, 28, 0)
	pt3dadd(93.6035, 161.279, 28, 0)
	pt3dadd(93.6035, 161.719, 28, 0)
	pt3dadd(93.6035, 162.158, 28, 0)
	pt3dadd(93.1641, 162.598, 28, 0)
	pt3dadd(93.1641, 163.037, 28, 0)
	pt3dadd(92.7246, 163.477, 28, 0)
	pt3dadd(92.7246, 163.916, 28, 0)
	pt3dadd(92.7246, 164.355, 28, 0)
	pt3dadd(93.1641, 164.795, 28, 0)
	pt3dadd(93.6035, 164.795, 28, 0)
  }
  dend[124] {pt3dclear()
	pt3dadd(110.742, 140.625, 33, 0)
	pt3dadd(110.742, 140.625, 33, 0)
	pt3dadd(111.182, 140.625, 33, 0)
	pt3dadd(111.621, 140.625, 32, 0)
	pt3dadd(112.061, 140.625, 32, 0)
	pt3dadd(112.5, 140.625, 31, 0)
	pt3dadd(112.939, 140.625, 31, 0)
	pt3dadd(113.379, 141.064, 31, 0)
	pt3dadd(113.818, 141.064, 31, 0)
	pt3dadd(114.258, 141.064, 31, 0)
  }
}
proc shape3d_18() {
  dend[124] {	pt3dadd(114.697, 141.064, 31, 0)
	pt3dadd(115.137, 141.064, 30, 0)
	pt3dadd(115.576, 141.064, 30, 0)
	pt3dadd(116.016, 141.504, 30, 0)
	pt3dadd(116.455, 141.943, 29, 0)
	pt3dadd(116.895, 141.943, 29, 0)
	pt3dadd(117.334, 142.383, 29, 0)
	pt3dadd(117.773, 142.822, 29, 0)
	pt3dadd(118.213, 143.262, 30, 0)
	pt3dadd(118.652, 143.262, 31, 0)
	pt3dadd(119.092, 142.822, 31, 0)
	pt3dadd(119.092, 142.383, 31, 0)
	pt3dadd(119.092, 142.822, 31, 0)
	pt3dadd(118.652, 143.262, 31, 0)
	pt3dadd(118.213, 143.262, 30, 0)
	pt3dadd(118.213, 143.701, 29, 0)
	pt3dadd(118.652, 144.141, 29, 0)
	pt3dadd(119.092, 144.58, 28, 0)
	pt3dadd(119.531, 144.58, 28, 0)
	pt3dadd(119.971, 145.02, 28, 0)
	pt3dadd(120.41, 145.459, 28, 0)
	pt3dadd(120.85, 145.459, 27, 0)
	pt3dadd(121.289, 145.898, 27, 0)
	pt3dadd(121.729, 145.898, 27, 0)
	pt3dadd(122.168, 145.898, 27, 0)
	pt3dadd(122.607, 146.338, 27, 0)
  }
  dend[125] {pt3dclear()
	pt3dadd(122.607, 146.338, 27, 0)
	pt3dadd(123.047, 146.338, 27, 0)
	pt3dadd(123.486, 146.338, 27, 0)
	pt3dadd(123.926, 146.338, 27, 0)
	pt3dadd(124.365, 146.338, 27, 0)
	pt3dadd(124.805, 146.777, 28, 0)
	pt3dadd(124.365, 146.338, 27, 0)
	pt3dadd(124.805, 145.898, 26, 0)
	pt3dadd(125.244, 145.459, 26, 0)
	pt3dadd(125.684, 145.02, 26, 0)
	pt3dadd(126.123, 144.58, 26, 0)
	pt3dadd(126.562, 144.141, 26, 0)
	pt3dadd(127.002, 144.141, 27, 0)
	pt3dadd(127.441, 143.701, 27, 0)
	pt3dadd(127.881, 143.701, 27, 0)
	pt3dadd(128.32, 143.262, 27, 0)
	pt3dadd(128.76, 143.262, 27, 0)
	pt3dadd(129.199, 142.822, 27, 0)
	pt3dadd(129.639, 142.383, 27, 0)
	pt3dadd(130.078, 142.383, 27, 0)
	pt3dadd(130.518, 141.943, 27, 0)
	pt3dadd(130.957, 141.943, 27, 0)
	pt3dadd(131.396, 141.504, 27, 0)
	pt3dadd(131.836, 141.504, 27, 0)
	pt3dadd(132.275, 141.504, 28, 0)
	pt3dadd(132.715, 141.504, 28, 0)
	pt3dadd(133.154, 141.064, 28, 0)
	pt3dadd(133.594, 141.064, 28, 0)
	pt3dadd(134.033, 140.625, 28, 0)
	pt3dadd(134.473, 140.625, 28, 0)
  }
  dend[126] {pt3dclear()
	pt3dadd(134.473, 140.625, 28, 0)
	pt3dadd(134.912, 140.625, 28, 0)
	pt3dadd(135.352, 141.064, 28, 0)
	pt3dadd(135.791, 141.064, 28, 0)
	pt3dadd(136.23, 141.504, 28, 0)
	pt3dadd(136.67, 141.504, 28, 0)
	pt3dadd(137.109, 141.504, 27, 0)
	pt3dadd(137.549, 141.504, 27, 0)
	pt3dadd(137.988, 141.504, 27, 0)
	pt3dadd(138.428, 141.504, 27, 0)
	pt3dadd(138.867, 141.504, 27, 0)
	pt3dadd(139.307, 141.943, 27, 0)
	pt3dadd(139.746, 142.383, 26, 0)
	pt3dadd(140.186, 142.822, 26, 0)
	pt3dadd(140.625, 142.822, 26, 0)
	pt3dadd(141.064, 142.822, 26, 0)
	pt3dadd(141.504, 143.262, 26, 0)
	pt3dadd(141.943, 143.701, 26, 0)
	pt3dadd(142.383, 144.141, 26, 0)
	pt3dadd(142.822, 144.58, 26, 0)
	pt3dadd(143.262, 145.02, 26, 0)
	pt3dadd(143.701, 145.02, 26, 0)
	pt3dadd(144.141, 145.02, 26, 0)
	pt3dadd(144.58, 145.02, 26, 0)
	pt3dadd(145.02, 145.459, 26, 0)
	pt3dadd(145.459, 145.898, 26, 0)
	pt3dadd(145.898, 145.898, 26, 0)
	pt3dadd(146.338, 145.898, 26, 0)
	pt3dadd(146.777, 146.338, 26, 0)
	pt3dadd(147.217, 146.338, 26, 0)
	pt3dadd(147.656, 146.777, 26, 0)
	pt3dadd(148.096, 146.777, 26, 0)
	pt3dadd(148.535, 146.777, 26, 0)
	pt3dadd(148.975, 146.777, 26, 0)
	pt3dadd(149.414, 146.777, 26, 0)
  }
  dend[127] {pt3dclear()
	pt3dadd(149.414, 146.777, 26, 0)
	pt3dadd(149.854, 146.777, 26, 0)
	pt3dadd(150.293, 146.777, 26, 0)
	pt3dadd(150.293, 147.217, 27, 0)
	pt3dadd(150.732, 146.777, 26, 0)
	pt3dadd(151.172, 147.217, 25, 0)
	pt3dadd(151.611, 147.217, 25, 0)
	pt3dadd(152.051, 147.656, 25, 0)
	pt3dadd(152.49, 147.656, 25, 0)
	pt3dadd(152.93, 148.096, 25, 0)
	pt3dadd(153.369, 148.535, 25, 0)
	pt3dadd(153.809, 148.535, 25, 0)
	pt3dadd(154.248, 148.535, 25, 0)
	pt3dadd(154.688, 148.975, 25, 0)
	pt3dadd(155.127, 148.975, 25, 0)
	pt3dadd(155.566, 148.975, 25, 0)
	pt3dadd(156.006, 149.414, 25, 0)
	pt3dadd(156.445, 149.414, 25, 0)
  }
  dend[128] {pt3dclear()
	pt3dadd(156.445, 149.414, 25, 0)
	pt3dadd(156.885, 149.414, 25, 0)
	pt3dadd(157.324, 149.414, 25, 0)
	pt3dadd(157.764, 149.414, 25, 0)
	pt3dadd(157.764, 149.414, 24, 0)
	pt3dadd(158.203, 148.975, 23, 0)
	pt3dadd(158.643, 148.975, 23, 0)
	pt3dadd(159.082, 149.414, 23, 0)
	pt3dadd(159.521, 149.414, 23, 0)
	pt3dadd(159.961, 149.854, 23, 0)
	pt3dadd(160.4, 150.293, 22, 0)
	pt3dadd(160.84, 150.293, 22, 0)
	pt3dadd(161.279, 150.732, 22, 0)
	pt3dadd(161.279, 151.172, 22, 0)
	pt3dadd(161.719, 151.611, 22, 0)
	pt3dadd(162.158, 151.611, 22, 0)
	pt3dadd(162.598, 152.051, 22, 0)
	pt3dadd(163.037, 152.49, 21, 0)
	pt3dadd(163.037, 152.93, 21, 0)
	pt3dadd(163.477, 153.369, 21, 0)
	pt3dadd(163.477, 153.809, 21, 0)
	pt3dadd(163.916, 154.248, 21, 0)
	pt3dadd(164.355, 154.688, 21, 0)
	pt3dadd(164.795, 154.688, 21, 0)
	pt3dadd(165.234, 155.127, 22, 0)
	pt3dadd(165.674, 155.127, 23, 0)
	pt3dadd(166.113, 154.688, 22, 0)
	pt3dadd(166.553, 154.688, 22, 0)
	pt3dadd(166.992, 154.688, 22, 0)
	pt3dadd(167.432, 154.688, 22, 0)
	pt3dadd(167.871, 154.688, 21, 0)
	pt3dadd(168.311, 154.688, 21, 0)
	pt3dadd(168.75, 154.248, 21, 0)
	pt3dadd(169.189, 153.809, 22, 0)
	pt3dadd(169.189, 153.369, 22, 0)
	pt3dadd(169.629, 152.93, 22, 0)
	pt3dadd(170.068, 152.49, 22, 0)
	pt3dadd(170.508, 152.49, 22, 0)
	pt3dadd(170.947, 152.051, 21, 0)
	pt3dadd(171.387, 152.051, 21, 0)
	pt3dadd(171.826, 152.051, 21, 0)
	pt3dadd(172.266, 152.051, 21, 0)
	pt3dadd(172.705, 152.051, 21, 0)
	pt3dadd(173.145, 152.49, 21, 0)
	pt3dadd(173.584, 152.49, 21, 0)
	pt3dadd(174.023, 152.93, 21, 0)
	pt3dadd(174.463, 153.369, 22, 0)
	pt3dadd(174.902, 153.809, 22, 0)
	pt3dadd(174.463, 154.248, 22, 0)
	pt3dadd(174.463, 154.688, 22, 0)
	pt3dadd(174.023, 155.127, 21, 0)
	pt3dadd(174.023, 155.566, 21, 0)
	pt3dadd(174.463, 156.006, 21, 0)
	pt3dadd(174.902, 156.445, 21, 0)
	pt3dadd(175.342, 156.445, 21, 0)
	pt3dadd(175.781, 156.445, 21, 0)
	pt3dadd(176.221, 156.006, 20, 0)
	pt3dadd(176.66, 156.006, 19, 0)
	pt3dadd(177.1, 156.006, 19, 0)
	pt3dadd(177.539, 156.445, 19, 0)
	pt3dadd(177.979, 156.445, 19, 0)
	pt3dadd(178.418, 156.885, 19, 0)
	pt3dadd(178.857, 156.885, 19, 0)
	pt3dadd(179.297, 157.324, 18, 0)
	pt3dadd(179.736, 157.764, 17, 0)
	pt3dadd(180.176, 157.764, 17, 0)
	pt3dadd(180.615, 157.764, 17, 0)
	pt3dadd(181.055, 158.203, 17, 0)
	pt3dadd(181.055, 158.643, 17, 0)
	pt3dadd(181.494, 159.082, 17, 0)
	pt3dadd(181.494, 159.521, 17, 0)
  }
  dend[129] {pt3dclear()
	pt3dadd(112.061, 144.141, 32, 0)
	pt3dadd(112.061, 144.141, 32, 0)
	pt3dadd(111.621, 143.701, 32, 0)
	pt3dadd(111.621, 143.262, 32, 0)
	pt3dadd(111.621, 142.822, 32, 0)
	pt3dadd(111.182, 142.383, 32, 0)
	pt3dadd(111.182, 141.943, 32, 0)
	pt3dadd(110.742, 141.504, 32, 0)
	pt3dadd(110.742, 141.064, 32, 0)
	pt3dadd(111.182, 140.625, 32, 0)
	pt3dadd(111.621, 140.625, 32, 0)
	pt3dadd(112.061, 140.625, 32, 0)
	pt3dadd(112.5, 140.625, 31, 0)
	pt3dadd(112.939, 140.625, 31, 0)
	pt3dadd(113.379, 141.064, 31, 0)
	pt3dadd(113.818, 141.064, 31, 0)
	pt3dadd(114.258, 141.064, 31, 0)
	pt3dadd(114.697, 141.064, 30, 0)
	pt3dadd(115.137, 141.064, 30, 0)
	pt3dadd(115.576, 141.064, 30, 0)
  }
}
proc shape3d_19() {
  dend[129] {	pt3dadd(116.016, 141.064, 30, 0)
	pt3dadd(116.455, 140.625, 30, 0)
	pt3dadd(116.895, 140.186, 30, 0)
	pt3dadd(117.334, 139.746, 29, 0)
	pt3dadd(117.773, 139.307, 29, 0)
	pt3dadd(117.773, 138.867, 28, 0)
	pt3dadd(118.213, 138.428, 28, 0)
	pt3dadd(118.213, 137.988, 28, 0)
	pt3dadd(118.213, 137.549, 28, 0)
	pt3dadd(118.652, 137.109, 29, 0)
  }
  dend[130] {pt3dclear()
	pt3dadd(113.379, 145.459, 31, 0)
	pt3dadd(113.379, 145.459, 31, 0)
	pt3dadd(112.939, 145.02, 31, 0)
	pt3dadd(112.5, 144.58, 31, 0)
	pt3dadd(112.061, 144.141, 31, 0)
	pt3dadd(111.621, 144.141, 31, 0)
	pt3dadd(111.182, 144.58, 31, 0)
	pt3dadd(111.182, 145.02, 30, 0)
	pt3dadd(110.742, 145.459, 29, 0)
	pt3dadd(110.303, 145.898, 29, 0)
	pt3dadd(109.863, 145.898, 29, 0)
	pt3dadd(109.424, 145.898, 29, 0)
	pt3dadd(108.984, 145.898, 29, 0)
	pt3dadd(108.545, 145.898, 29, 0)
	pt3dadd(108.105, 145.898, 29, 0)
	pt3dadd(107.666, 145.898, 29, 0)
	pt3dadd(107.227, 146.338, 29, 0)
	pt3dadd(107.227, 146.777, 29, 0)
	pt3dadd(107.227, 147.217, 29, 0)
	pt3dadd(107.666, 147.656, 29, 0)
	pt3dadd(108.105, 148.096, 28, 0)
	pt3dadd(108.545, 148.535, 27, 0)
	pt3dadd(108.545, 148.975, 27, 0)
	pt3dadd(108.105, 149.414, 27, 0)
	pt3dadd(107.666, 149.854, 27, 0)
	pt3dadd(107.227, 150.293, 27, 0)
	pt3dadd(106.787, 150.732, 27, 0)
	pt3dadd(106.348, 150.732, 27, 0)
	pt3dadd(105.908, 151.172, 27, 0)
	pt3dadd(105.469, 151.611, 26, 0)
	pt3dadd(105.469, 152.051, 26, 0)
  }
  dend[131] {pt3dclear()
	pt3dadd(115.137, 149.854, 29, 0)
	pt3dadd(115.137, 149.854, 29, 0)
	pt3dadd(114.697, 149.854, 29, 0)
	pt3dadd(114.258, 149.854, 29, 0)
	pt3dadd(113.818, 150.293, 28, 0)
	pt3dadd(113.379, 150.732, 27, 0)
	pt3dadd(113.379, 151.172, 27, 0)
	pt3dadd(113.379, 151.611, 27, 0)
	pt3dadd(112.939, 152.051, 26, 0)
	pt3dadd(112.939, 152.49, 26, 0)
	pt3dadd(112.939, 152.93, 26, 0)
	pt3dadd(112.939, 153.369, 26, 0)
	pt3dadd(112.939, 153.809, 25, 0)
	pt3dadd(112.939, 154.248, 25, 0)
	pt3dadd(112.939, 154.688, 25, 0)
	pt3dadd(112.939, 155.127, 25, 0)
	pt3dadd(112.939, 155.566, 25, 0)
	pt3dadd(112.939, 156.006, 25, 0)
	pt3dadd(112.5, 156.445, 24, 0)
	pt3dadd(112.5, 156.885, 24, 0)
	pt3dadd(112.5, 157.324, 24, 0)
	pt3dadd(112.5, 157.764, 24, 0)
	pt3dadd(112.5, 158.203, 24, 0)
	pt3dadd(112.5, 158.643, 24, 0)
	pt3dadd(112.5, 159.082, 24, 0)
	pt3dadd(112.5, 159.521, 24, 0)
	pt3dadd(112.5, 159.961, 24, 0)
  }
  dend[132] {pt3dclear()
	pt3dadd(112.5, 159.961, 24, 0)
	pt3dadd(112.939, 160.4, 24, 0)
	pt3dadd(113.379, 160.84, 24, 0)
	pt3dadd(113.818, 161.279, 24, 0)
	pt3dadd(114.258, 161.719, 24, 0)
	pt3dadd(114.697, 162.158, 25, 0)
	pt3dadd(115.137, 162.598, 25, 0)
	pt3dadd(115.576, 163.037, 25, 0)
	pt3dadd(115.576, 163.477, 25, 0)
	pt3dadd(115.576, 163.916, 25, 0)
  }
  dend[133] {pt3dclear()
	pt3dadd(115.576, 163.916, 25, 0)
	pt3dadd(115.576, 164.355, 25, 0)
	pt3dadd(115.576, 164.795, 26, 0)
	pt3dadd(115.137, 165.234, 26, 0)
	pt3dadd(115.137, 165.674, 26, 0)
	pt3dadd(115.137, 166.113, 26, 0)
	pt3dadd(115.137, 166.553, 26, 0)
	pt3dadd(114.697, 166.992, 26, 0)
	pt3dadd(114.258, 167.432, 26, 0)
	pt3dadd(114.258, 167.871, 26, 0)
	pt3dadd(114.258, 168.311, 26, 0)
	pt3dadd(114.258, 168.75, 26, 0)
	pt3dadd(114.258, 169.189, 26, 0)
	pt3dadd(114.258, 169.629, 26, 0)
	pt3dadd(114.258, 170.068, 26, 0)
	pt3dadd(114.258, 170.508, 26, 0)
	pt3dadd(114.258, 170.947, 26, 0)
  }
  dend[134] {pt3dclear()
	pt3dadd(114.258, 170.947, 26, 0)
	pt3dadd(114.258, 171.387, 25, 0)
  }
  dend[135] {pt3dclear()
	pt3dadd(114.258, 171.387, 25, 0)
	pt3dadd(113.818, 171.826, 25, 0)
	pt3dadd(113.379, 172.266, 25, 0)
	pt3dadd(112.939, 172.705, 24, 0)
  }
  dend[136] {pt3dclear()
	pt3dadd(112.939, 172.705, 24, 0)
	pt3dadd(112.939, 173.145, 24, 0)
	pt3dadd(112.939, 173.584, 24, 0)
	pt3dadd(112.939, 174.023, 24, 0)
	pt3dadd(113.379, 174.463, 24, 0)
	pt3dadd(113.818, 174.902, 23, 0)
	pt3dadd(113.818, 175.342, 23, 0)
	pt3dadd(113.818, 175.781, 23, 0)
	pt3dadd(114.258, 176.221, 23, 0)
	pt3dadd(114.258, 176.66, 23, 0)
	pt3dadd(114.697, 177.1, 23, 0)
	pt3dadd(114.697, 177.539, 23, 0)
	pt3dadd(114.258, 177.979, 24, 0)
	pt3dadd(114.697, 177.539, 23, 0)
	pt3dadd(115.137, 177.979, 23, 0)
	pt3dadd(115.576, 178.418, 23, 0)
	pt3dadd(115.576, 178.857, 22, 0)
	pt3dadd(115.576, 179.297, 22, 0)
  }
  dend[137] {pt3dclear()
	pt3dadd(115.576, 179.297, 22, 0)
	pt3dadd(115.576, 179.736, 22, 0)
	pt3dadd(115.576, 180.176, 22, 0)
	pt3dadd(116.016, 180.615, 22, 0)
	pt3dadd(116.455, 181.055, 22, 0)
	pt3dadd(116.895, 181.494, 22, 0)
	pt3dadd(117.334, 181.934, 22, 0)
	pt3dadd(117.773, 181.934, 22, 0)
	pt3dadd(118.213, 182.373, 21, 0)
	pt3dadd(118.652, 182.373, 21, 0)
	pt3dadd(119.092, 182.373, 21, 0)
	pt3dadd(119.531, 182.373, 21, 0)
	pt3dadd(119.971, 181.934, 21, 0)
	pt3dadd(120.41, 181.934, 21, 0)
  }
  dend[138] {pt3dclear()
	pt3dadd(120.41, 181.934, 21, 0)
	pt3dadd(120.85, 181.934, 21, 0)
	pt3dadd(121.289, 181.934, 21, 0)
	pt3dadd(121.729, 181.934, 21, 0)
	pt3dadd(122.168, 181.934, 22, 0)
	pt3dadd(122.607, 181.934, 22, 0)
	pt3dadd(123.047, 181.934, 22, 0)
	pt3dadd(123.486, 181.934, 22, 0)
	pt3dadd(123.926, 181.934, 22, 0)
	pt3dadd(124.365, 181.934, 22, 0)
	pt3dadd(124.805, 181.934, 22, 0)
	pt3dadd(125.244, 181.934, 22, 0)
	pt3dadd(125.684, 182.373, 22, 0)
	pt3dadd(126.123, 182.373, 22, 0)
	pt3dadd(126.562, 182.373, 22, 0)
	pt3dadd(127.002, 182.373, 22, 0)
	pt3dadd(127.441, 182.373, 22, 0)
	pt3dadd(127.881, 182.812, 22, 0)
	pt3dadd(128.32, 182.812, 22, 0)
	pt3dadd(128.76, 182.812, 22, 0)
	pt3dadd(129.199, 182.812, 22, 0)
	pt3dadd(129.639, 182.373, 22, 0)
	pt3dadd(129.199, 182.812, 22, 0)
	pt3dadd(129.639, 183.252, 22, 0)
	pt3dadd(130.078, 183.691, 21, 0)
	pt3dadd(130.518, 184.131, 21, 0)
	pt3dadd(130.957, 184.131, 21, 0)
	pt3dadd(131.396, 184.131, 21, 0)
	pt3dadd(131.836, 184.131, 21, 0)
	pt3dadd(132.275, 184.57, 21, 0)
	pt3dadd(132.715, 184.57, 21, 0)
	pt3dadd(133.154, 184.57, 21, 0)
	pt3dadd(133.594, 185.01, 21, 0)
	pt3dadd(134.033, 185.01, 21, 0)
	pt3dadd(134.473, 185.449, 21, 0)
	pt3dadd(134.912, 185.889, 21, 0)
	pt3dadd(135.352, 185.889, 21, 0)
	pt3dadd(135.791, 186.328, 21, 0)
	pt3dadd(135.791, 186.768, 21, 0)
	pt3dadd(136.23, 187.207, 21, 0)
	pt3dadd(136.67, 187.646, 21, 0)
	pt3dadd(137.109, 188.086, 20, 0)
	pt3dadd(137.549, 188.525, 20, 0)
	pt3dadd(137.988, 188.965, 20, 0)
	pt3dadd(138.428, 188.965, 20, 0)
	pt3dadd(138.867, 188.965, 20, 0)
	pt3dadd(139.307, 189.404, 20, 0)
	pt3dadd(139.746, 189.404, 20, 0)
	pt3dadd(140.186, 189.404, 20, 0)
	pt3dadd(140.625, 188.965, 20, 0)
  }
  dend[139] {pt3dclear()
	pt3dadd(129.199, 160.84, 28, 0)
	pt3dadd(129.199, 160.84, 28, 0)
	pt3dadd(128.76, 161.279, 28, 0)
	pt3dadd(128.32, 161.719, 27, 0)
	pt3dadd(128.32, 162.158, 27, 0)
	pt3dadd(128.76, 162.598, 27, 0)
	pt3dadd(128.76, 163.037, 27, 0)
	pt3dadd(129.199, 163.477, 26, 0)
	pt3dadd(128.76, 163.916, 26, 0)
	pt3dadd(128.76, 164.355, 26, 0)
	pt3dadd(128.76, 164.795, 26, 0)
	pt3dadd(128.76, 165.234, 26, 0)
	pt3dadd(129.199, 165.674, 26, 0)
	pt3dadd(129.639, 166.113, 25, 0)
	pt3dadd(129.639, 166.553, 25, 0)
	pt3dadd(129.639, 166.992, 25, 0)
	pt3dadd(129.639, 167.432, 25, 0)
  }
}
proc shape3d_20() {
  dend[139] {	pt3dadd(130.078, 167.871, 25, 0)
	pt3dadd(130.518, 168.311, 25, 0)
	pt3dadd(130.957, 168.75, 25, 0)
	pt3dadd(131.396, 169.189, 25, 0)
	pt3dadd(131.836, 168.75, 26, 0)
	pt3dadd(131.836, 168.75, 27, 0)
	pt3dadd(132.275, 168.75, 26, 0)
	pt3dadd(131.836, 169.189, 25, 0)
	pt3dadd(132.275, 169.629, 24, 0)
	pt3dadd(132.715, 169.629, 24, 0)
	pt3dadd(133.154, 169.629, 24, 0)
	pt3dadd(133.594, 169.629, 24, 0)
	pt3dadd(134.033, 169.629, 24, 0)
	pt3dadd(134.473, 169.629, 24, 0)
	pt3dadd(134.912, 169.629, 24, 0)
	pt3dadd(135.352, 169.629, 23, 0)
	pt3dadd(135.791, 169.629, 23, 0)
	pt3dadd(136.23, 170.068, 23, 0)
	pt3dadd(136.67, 170.508, 23, 0)
	pt3dadd(137.109, 170.947, 23, 0)
	pt3dadd(137.549, 171.387, 23, 0)
	pt3dadd(137.988, 171.826, 23, 0)
	pt3dadd(138.428, 171.826, 23, 0)
	pt3dadd(138.867, 171.826, 23, 0)
	pt3dadd(139.307, 172.266, 23, 0)
	pt3dadd(139.746, 172.705, 23, 0)
	pt3dadd(140.186, 172.705, 23, 0)
	pt3dadd(140.625, 173.145, 23, 0)
	pt3dadd(141.064, 173.584, 23, 0)
	pt3dadd(141.504, 173.145, 23, 0)
	pt3dadd(141.943, 173.145, 23, 0)
	pt3dadd(142.383, 173.584, 23, 0)
	pt3dadd(142.822, 174.023, 22, 0)
  }
  dend[140] {pt3dclear()
	pt3dadd(142.822, 174.023, 22, 0)
	pt3dadd(142.822, 174.463, 22, 0)
	pt3dadd(142.822, 174.902, 22, 0)
	pt3dadd(142.822, 175.342, 22, 0)
	pt3dadd(142.822, 175.781, 22, 0)
	pt3dadd(142.822, 176.221, 21, 0)
	pt3dadd(142.822, 176.66, 21, 0)
	pt3dadd(143.262, 177.1, 21, 0)
	pt3dadd(143.262, 177.539, 21, 0)
	pt3dadd(143.262, 177.979, 21, 0)
	pt3dadd(143.262, 178.418, 21, 0)
	pt3dadd(143.701, 178.857, 21, 0)
	pt3dadd(144.141, 179.297, 21, 0)
	pt3dadd(144.58, 179.736, 21, 0)
	pt3dadd(145.02, 180.176, 21, 0)
	pt3dadd(145.459, 180.615, 21, 0)
	pt3dadd(145.898, 181.055, 21, 0)
	pt3dadd(146.338, 181.055, 21, 0)
	pt3dadd(146.777, 181.494, 22, 0)
	pt3dadd(146.338, 181.934, 21, 0)
	pt3dadd(146.777, 182.373, 21, 0)
	pt3dadd(147.217, 182.812, 20, 0)
	pt3dadd(147.656, 183.252, 20, 0)
	pt3dadd(147.656, 183.691, 20, 0)
	pt3dadd(147.656, 184.131, 20, 0)
	pt3dadd(147.656, 184.57, 20, 0)
	pt3dadd(147.656, 185.01, 20, 0)
	pt3dadd(147.656, 185.449, 20, 0)
	pt3dadd(147.656, 185.889, 20, 0)
	pt3dadd(147.656, 186.328, 20, 0)
	pt3dadd(147.656, 186.768, 20, 0)
	pt3dadd(147.656, 187.207, 20, 0)
	pt3dadd(147.656, 187.646, 20, 0)
	pt3dadd(147.656, 188.086, 20, 0)
	pt3dadd(148.096, 188.525, 20, 0)
	pt3dadd(148.535, 188.965, 20, 0)
	pt3dadd(148.096, 188.965, 20, 0)
	pt3dadd(147.656, 188.525, 19, 0)
	pt3dadd(147.217, 188.965, 19, 0)
	pt3dadd(147.217, 189.404, 19, 0)
	pt3dadd(146.777, 189.844, 19, 0)
	pt3dadd(146.777, 190.283, 19, 0)
	pt3dadd(146.777, 190.723, 19, 0)
	pt3dadd(146.338, 191.162, 19, 0)
	pt3dadd(145.898, 191.602, 19, 0)
	pt3dadd(145.898, 192.041, 19, 0)
	pt3dadd(145.459, 192.48, 19, 0)
	pt3dadd(145.459, 192.92, 19, 0)
	pt3dadd(145.898, 193.359, 19, 0)
	pt3dadd(145.898, 193.799, 19, 0)
	pt3dadd(145.898, 194.238, 19, 0)
	pt3dadd(145.898, 194.678, 19, 0)
	pt3dadd(145.898, 195.117, 19, 0)
	pt3dadd(145.459, 195.557, 18, 0)
	pt3dadd(145.459, 195.996, 18, 0)
	pt3dadd(145.02, 196.436, 18, 0)
	pt3dadd(145.02, 196.875, 18, 0)
	pt3dadd(145.02, 197.314, 18, 0)
	pt3dadd(144.58, 197.754, 18, 0)
	pt3dadd(144.58, 198.193, 18, 0)
	pt3dadd(144.141, 198.633, 17, 0)
	pt3dadd(144.141, 199.072, 17, 0)
	pt3dadd(144.141, 199.512, 17, 0)
	pt3dadd(144.141, 199.951, 17, 0)
	pt3dadd(144.141, 200.391, 17, 0)
	pt3dadd(144.141, 200.83, 17, 0)
	pt3dadd(143.701, 201.27, 17, 0)
	pt3dadd(143.262, 201.709, 17, 0)
	pt3dadd(142.822, 202.148, 17, 0)
	pt3dadd(142.383, 202.588, 18, 0)
	pt3dadd(142.383, 203.027, 18, 0)
	pt3dadd(141.943, 203.467, 18, 0)
	pt3dadd(141.943, 203.906, 18, 0)
	pt3dadd(141.504, 204.346, 19, 0)
	pt3dadd(141.064, 204.785, 19, 0)
	pt3dadd(140.625, 204.785, 19, 0)
	pt3dadd(140.186, 204.785, 19, 0)
	pt3dadd(139.746, 205.225, 18, 0)
	pt3dadd(139.307, 205.225, 18, 0)
	pt3dadd(138.867, 205.664, 18, 0)
	pt3dadd(138.867, 206.104, 18, 0)
	pt3dadd(138.867, 206.543, 18, 0)
	pt3dadd(138.867, 206.982, 18, 0)
	pt3dadd(138.867, 207.422, 18, 0)
	pt3dadd(138.867, 207.861, 18, 0)
	pt3dadd(138.867, 208.301, 18, 0)
  }
  dend[141] {pt3dclear()
	pt3dadd(119.092, 155.566, 29, 0)
	pt3dadd(119.092, 155.566, 29, 0)
	pt3dadd(119.531, 156.006, 29, 0)
	pt3dadd(119.971, 156.006, 29, 0)
	pt3dadd(120.41, 156.006, 28, 0)
	pt3dadd(120.85, 156.006, 28, 0)
	pt3dadd(121.289, 155.566, 27, 0)
	pt3dadd(121.729, 156.006, 27, 0)
	pt3dadd(122.168, 156.006, 27, 0)
	pt3dadd(122.607, 156.445, 26, 0)
	pt3dadd(123.047, 156.445, 26, 0)
	pt3dadd(123.486, 156.445, 26, 0)
	pt3dadd(123.926, 156.006, 26, 0)
	pt3dadd(124.365, 156.006, 26, 0)
	pt3dadd(124.805, 155.566, 26, 0)
	pt3dadd(124.805, 155.566, 27, 0)
	pt3dadd(124.805, 155.566, 26, 0)
	pt3dadd(124.365, 156.006, 26, 0)
	pt3dadd(123.926, 156.445, 26, 0)
	pt3dadd(123.926, 156.885, 26, 0)
	pt3dadd(123.926, 157.324, 26, 0)
	pt3dadd(124.365, 157.764, 26, 0)
	pt3dadd(124.805, 158.203, 25, 0)
	pt3dadd(124.805, 158.643, 25, 0)
	pt3dadd(124.365, 159.082, 25, 0)
	pt3dadd(123.926, 159.082, 25, 0)
	pt3dadd(123.486, 159.521, 25, 0)
	pt3dadd(123.047, 159.521, 25, 0)
	pt3dadd(122.607, 159.521, 25, 0)
	pt3dadd(122.168, 159.961, 25, 0)
	pt3dadd(121.729, 160.4, 25, 0)
	pt3dadd(121.289, 160.84, 25, 0)
	pt3dadd(121.289, 161.279, 25, 0)
	pt3dadd(120.85, 160.84, 25, 0)
	pt3dadd(120.41, 160.84, 24, 0)
	pt3dadd(120.41, 160.84, 23, 0)
	pt3dadd(119.971, 160.4, 22, 0)
	pt3dadd(119.531, 160.4, 21, 0)
	pt3dadd(119.531, 159.961, 20, 0)
	pt3dadd(119.531, 159.961, 19, 0)
	pt3dadd(119.531, 160.4, 19, 0)
	pt3dadd(119.531, 160.84, 18, 0)
	pt3dadd(119.971, 160.84, 17, 0)
	pt3dadd(119.531, 160.84, 17, 0)
	pt3dadd(119.092, 160.84, 16, 0)
	pt3dadd(118.652, 160.4, 15, 0)
	pt3dadd(118.652, 159.961, 14, 0)
	pt3dadd(118.213, 159.961, 13, 0)
	pt3dadd(117.773, 160.4, 12, 0)
	pt3dadd(117.334, 160.84, 11, 0)
	pt3dadd(116.895, 160.84, 10, 0)
	pt3dadd(116.455, 160.84, 10, 0)
	pt3dadd(116.016, 160.4, 10, 0)
	pt3dadd(115.576, 160.4, 10, 0)
	pt3dadd(115.137, 159.961, 10, 0)
	pt3dadd(114.697, 159.521, 10, 0)
	pt3dadd(114.258, 159.521, 10, 0)
	pt3dadd(113.818, 159.082, 10, 0)
	pt3dadd(113.379, 159.082, 10, 0)
	pt3dadd(112.939, 159.082, 11, 0)
	pt3dadd(112.5, 158.643, 11, 0)
	pt3dadd(112.061, 158.203, 11, 0)
	pt3dadd(111.621, 157.764, 11, 0)
	pt3dadd(111.182, 157.764, 11, 0)
	pt3dadd(110.742, 157.324, 11, 0)
	pt3dadd(110.303, 157.324, 11, 0)
	pt3dadd(109.863, 156.885, 12, 0)
	pt3dadd(109.424, 156.445, 12, 0)
	pt3dadd(108.984, 156.006, 12, 0)
	pt3dadd(108.984, 155.566, 11, 0)
  }
  dend[142] {pt3dclear()
	pt3dadd(116.016, 151.172, 29, 0)
	pt3dadd(116.016, 151.172, 29, 0)
	pt3dadd(116.016, 151.611, 29, 0)
	pt3dadd(116.016, 152.051, 29, 0)
	pt3dadd(116.455, 152.49, 29, 0)
	pt3dadd(116.895, 152.49, 28, 0)
	pt3dadd(117.334, 152.49, 28, 0)
	pt3dadd(117.773, 152.051, 27, 0)
	pt3dadd(118.213, 151.611, 26, 0)
	pt3dadd(118.652, 151.611, 26, 0)
	pt3dadd(119.092, 151.172, 27, 0)
  }
}
proc shape3d_21() {
  dend[142] {	pt3dadd(119.531, 150.732, 27, 0)
  }
  dend[143] {pt3dclear()
	pt3dadd(134.033, 158.203, 28, 0)
	pt3dadd(134.033, 158.203, 28, 0)
	pt3dadd(133.594, 158.203, 28, 0)
	pt3dadd(133.154, 158.203, 27, 0)
	pt3dadd(133.594, 157.764, 26, 0)
	pt3dadd(133.594, 157.324, 26, 0)
	pt3dadd(133.594, 156.885, 26, 0)
	pt3dadd(133.594, 156.445, 26, 0)
	pt3dadd(133.594, 156.006, 26, 0)
	pt3dadd(133.594, 155.566, 26, 0)
	pt3dadd(133.594, 155.127, 26, 0)
	pt3dadd(134.033, 154.688, 26, 0)
	pt3dadd(134.473, 154.248, 26, 0)
	pt3dadd(134.912, 154.248, 27, 0)
	pt3dadd(134.473, 154.248, 26, 0)
	pt3dadd(134.033, 154.688, 26, 0)
	pt3dadd(133.594, 155.127, 26, 0)
	pt3dadd(133.594, 155.566, 26, 0)
	pt3dadd(133.594, 156.006, 26, 0)
	pt3dadd(133.594, 156.445, 26, 0)
	pt3dadd(134.033, 156.885, 25, 0)
	pt3dadd(134.473, 156.885, 25, 0)
	pt3dadd(134.912, 156.885, 25, 0)
	pt3dadd(135.352, 157.324, 24, 0)
	pt3dadd(135.791, 156.885, 23, 0)
	pt3dadd(136.23, 156.885, 23, 0)
	pt3dadd(136.67, 156.885, 22, 0)
	pt3dadd(137.109, 156.885, 22, 0)
	pt3dadd(137.549, 156.885, 22, 0)
	pt3dadd(137.988, 157.324, 22, 0)
	pt3dadd(137.988, 157.764, 22, 0)
	pt3dadd(138.428, 158.203, 23, 0)
	pt3dadd(137.988, 157.764, 22, 0)
	pt3dadd(137.988, 157.324, 22, 0)
	pt3dadd(138.428, 156.885, 21, 0)
	pt3dadd(138.867, 156.445, 20, 0)
	pt3dadd(139.307, 156.445, 20, 0)
	pt3dadd(139.746, 156.885, 19, 0)
	pt3dadd(140.186, 156.885, 19, 0)
	pt3dadd(140.625, 157.324, 19, 0)
	pt3dadd(141.064, 157.324, 19, 0)
	pt3dadd(141.504, 157.324, 19, 0)
	pt3dadd(141.943, 157.324, 19, 0)
	pt3dadd(142.383, 157.324, 19, 0)
	pt3dadd(142.822, 157.324, 19, 0)
	pt3dadd(142.383, 157.324, 19, 0)
	pt3dadd(141.943, 157.764, 18, 0)
	pt3dadd(141.504, 157.764, 18, 0)
	pt3dadd(141.064, 157.764, 17, 0)
	pt3dadd(141.064, 157.324, 16, 0)
	pt3dadd(141.064, 157.764, 16, 0)
	pt3dadd(141.064, 158.203, 15, 0)
	pt3dadd(141.064, 158.643, 15, 0)
	pt3dadd(141.504, 159.082, 14, 0)
	pt3dadd(141.943, 159.521, 14, 0)
	pt3dadd(142.383, 159.961, 14, 0)
	pt3dadd(142.822, 160.4, 14, 0)
	pt3dadd(142.383, 160.4, 13, 0)
	pt3dadd(142.383, 160.4, 12, 0)
	pt3dadd(142.383, 160.84, 11, 0)
	pt3dadd(142.822, 161.279, 10, 0)
	pt3dadd(142.822, 161.719, 10, 0)
	pt3dadd(143.262, 162.158, 9, 0)
	pt3dadd(143.262, 162.598, 9, 0)
	pt3dadd(143.262, 163.037, 9, 0)
	pt3dadd(143.701, 163.477, 9, 0)
	pt3dadd(144.141, 163.916, 9, 0)
	pt3dadd(144.58, 164.355, 10, 0)
	pt3dadd(145.02, 164.355, 10, 0)
	pt3dadd(144.58, 164.355, 10, 0)
	pt3dadd(144.141, 163.916, 9, 0)
	pt3dadd(143.701, 163.916, 8, 0)
	pt3dadd(143.262, 164.355, 8, 0)
	pt3dadd(142.822, 164.795, 7, 0)
	pt3dadd(142.822, 164.795, 6, 0)
	pt3dadd(143.262, 165.234, 7, 0)
	pt3dadd(143.262, 165.674, 7, 0)
	pt3dadd(143.262, 166.113, 7, 0)
	pt3dadd(142.822, 166.553, 6, 0)
	pt3dadd(142.822, 166.992, 6, 0)
  }
  dend[144] {pt3dclear()
	pt3dadd(144.58, 157.764, 28, 0)
	pt3dadd(144.58, 157.764, 28, 0)
	pt3dadd(144.58, 158.203, 27, 0)
	pt3dadd(144.58, 158.643, 27, 0)
	pt3dadd(144.58, 159.082, 27, 0)
	pt3dadd(144.58, 159.521, 26, 0)
	pt3dadd(144.58, 159.961, 26, 0)
	pt3dadd(144.58, 160.4, 26, 0)
	pt3dadd(144.141, 160.84, 25, 0)
	pt3dadd(144.141, 161.279, 25, 0)
	pt3dadd(143.701, 161.719, 25, 0)
	pt3dadd(143.262, 162.158, 25, 0)
	pt3dadd(142.822, 162.158, 25, 0)
	pt3dadd(142.383, 162.598, 25, 0)
	pt3dadd(142.383, 163.037, 25, 0)
	pt3dadd(142.822, 163.477, 26, 0)
	pt3dadd(142.383, 163.037, 25, 0)
	pt3dadd(141.943, 162.598, 25, 0)
	pt3dadd(141.504, 162.598, 25, 0)
	pt3dadd(141.064, 163.037, 24, 0)
	pt3dadd(140.625, 163.477, 24, 0)
	pt3dadd(140.186, 163.477, 24, 0)
	pt3dadd(139.746, 163.477, 24, 0)
	pt3dadd(139.307, 163.477, 24, 0)
	pt3dadd(138.867, 163.477, 24, 0)
	pt3dadd(138.428, 163.037, 24, 0)
  }
  dend[145] {pt3dclear()
	pt3dadd(144.58, 157.764, 28, 0)
	pt3dadd(144.58, 157.764, 28, 0)
	pt3dadd(144.58, 158.203, 27, 0)
	pt3dadd(144.58, 158.643, 27, 0)
	pt3dadd(144.58, 159.082, 27, 0)
	pt3dadd(144.58, 159.521, 26, 0)
	pt3dadd(145.02, 159.961, 25, 0)
	pt3dadd(145.459, 159.961, 25, 0)
	pt3dadd(145.898, 159.961, 25, 0)
	pt3dadd(146.338, 159.961, 25, 0)
	pt3dadd(146.777, 160.4, 24, 0)
	pt3dadd(147.217, 160.4, 24, 0)
	pt3dadd(147.656, 160.4, 24, 0)
	pt3dadd(148.096, 160.84, 24, 0)
	pt3dadd(148.535, 160.84, 24, 0)
	pt3dadd(148.975, 160.84, 24, 0)
  }
  dend[146] {pt3dclear()
	pt3dadd(148.975, 160.84, 24, 0)
	pt3dadd(149.414, 160.84, 24, 0)
	pt3dadd(149.854, 161.279, 24, 0)
	pt3dadd(150.293, 161.279, 24, 0)
	pt3dadd(150.732, 161.279, 24, 0)
	pt3dadd(151.172, 160.84, 24, 0)
	pt3dadd(151.611, 160.84, 24, 0)
  }
  dend[147] {pt3dclear()
	pt3dadd(151.611, 160.84, 24, 0)
	pt3dadd(152.051, 160.84, 24, 0)
	pt3dadd(152.49, 161.279, 24, 0)
	pt3dadd(152.93, 161.719, 24, 0)
	pt3dadd(153.369, 162.158, 23, 0)
	pt3dadd(153.809, 162.598, 23, 0)
	pt3dadd(154.248, 163.037, 23, 0)
	pt3dadd(154.688, 163.477, 23, 0)
	pt3dadd(154.688, 163.916, 24, 0)
	pt3dadd(154.248, 164.355, 25, 0)
	pt3dadd(154.688, 163.916, 24, 0)
	pt3dadd(155.127, 163.916, 23, 0)
	pt3dadd(155.566, 163.916, 23, 0)
	pt3dadd(156.006, 163.916, 23, 0)
	pt3dadd(156.445, 163.916, 23, 0)
	pt3dadd(156.885, 164.355, 23, 0)
	pt3dadd(157.324, 164.795, 23, 0)
	pt3dadd(157.324, 165.234, 23, 0)
	pt3dadd(157.764, 165.674, 22, 0)
	pt3dadd(157.764, 166.113, 22, 0)
	pt3dadd(157.764, 166.553, 22, 0)
	pt3dadd(157.764, 166.992, 22, 0)
	pt3dadd(157.324, 167.432, 22, 0)
	pt3dadd(157.324, 167.871, 22, 0)
	pt3dadd(157.324, 168.311, 22, 0)
	pt3dadd(157.324, 168.75, 22, 0)
	pt3dadd(157.324, 169.189, 21, 0)
	pt3dadd(157.324, 169.629, 21, 0)
	pt3dadd(157.764, 170.068, 21, 0)
	pt3dadd(158.203, 170.508, 21, 0)
	pt3dadd(158.643, 170.508, 21, 0)
	pt3dadd(159.082, 170.947, 21, 0)
	pt3dadd(159.521, 171.387, 21, 0)
	pt3dadd(159.961, 171.387, 21, 0)
	pt3dadd(160.4, 171.387, 21, 0)
	pt3dadd(160.84, 171.387, 21, 0)
	pt3dadd(161.279, 171.387, 21, 0)
	pt3dadd(161.719, 170.947, 21, 0)
	pt3dadd(162.158, 171.387, 22, 0)
	pt3dadd(162.598, 171.826, 22, 0)
	pt3dadd(162.158, 171.387, 22, 0)
	pt3dadd(162.598, 170.947, 21, 0)
	pt3dadd(163.037, 170.947, 21, 0)
	pt3dadd(163.477, 170.947, 21, 0)
	pt3dadd(163.916, 171.387, 21, 0)
	pt3dadd(164.355, 171.387, 21, 0)
	pt3dadd(164.795, 171.387, 21, 0)
	pt3dadd(165.234, 170.947, 20, 0)
	pt3dadd(165.674, 170.947, 20, 0)
	pt3dadd(166.113, 170.508, 20, 0)
	pt3dadd(166.553, 170.068, 20, 0)
	pt3dadd(166.992, 169.629, 19, 0)
	pt3dadd(167.432, 169.629, 19, 0)
	pt3dadd(167.871, 169.629, 19, 0)
	pt3dadd(168.311, 169.629, 19, 0)
	pt3dadd(168.75, 169.629, 19, 0)
	pt3dadd(169.189, 169.629, 19, 0)
	pt3dadd(169.629, 169.629, 20, 0)
	pt3dadd(169.629, 169.629, 19, 0)
	pt3dadd(170.068, 169.189, 19, 0)
	pt3dadd(170.508, 169.189, 18, 0)
	pt3dadd(170.947, 169.189, 18, 0)
	pt3dadd(171.387, 169.189, 18, 0)
	pt3dadd(171.826, 169.189, 17, 0)
	pt3dadd(172.266, 168.75, 16, 0)
	pt3dadd(172.705, 168.75, 16, 0)
	pt3dadd(173.145, 168.311, 15, 0)
	pt3dadd(173.145, 167.871, 15, 0)
	pt3dadd(173.584, 167.432, 15, 0)
	pt3dadd(174.023, 166.992, 16, 0)
  }
}
proc shape3d_22() {
  dend[147] {	pt3dadd(174.463, 166.992, 17, 0)
	pt3dadd(174.902, 166.992, 17, 0)
	pt3dadd(175.342, 166.992, 17, 0)
	pt3dadd(175.781, 167.432, 17, 0)
	pt3dadd(176.221, 167.432, 17, 0)
	pt3dadd(176.66, 167.432, 17, 0)
	pt3dadd(176.221, 167.432, 17, 0)
	pt3dadd(175.781, 167.432, 17, 0)
	pt3dadd(175.342, 166.992, 17, 0)
	pt3dadd(174.902, 166.992, 17, 0)
	pt3dadd(174.463, 166.992, 17, 0)
	pt3dadd(174.023, 166.992, 16, 0)
	pt3dadd(173.584, 166.992, 15, 0)
	pt3dadd(173.584, 167.432, 15, 0)
	pt3dadd(173.145, 166.992, 14, 0)
	pt3dadd(173.145, 166.553, 13, 0)
	pt3dadd(173.584, 166.113, 12, 0)
	pt3dadd(173.584, 165.674, 12, 0)
	pt3dadd(173.584, 165.234, 11, 0)
	pt3dadd(174.023, 164.795, 12, 0)
	pt3dadd(173.584, 164.355, 13, 0)
	pt3dadd(173.584, 163.916, 13, 0)
	pt3dadd(173.584, 164.355, 13, 0)
	pt3dadd(174.023, 164.795, 12, 0)
	pt3dadd(173.584, 165.234, 11, 0)
	pt3dadd(173.584, 164.795, 10, 0)
	pt3dadd(173.584, 164.355, 10, 0)
	pt3dadd(174.023, 163.916, 9, 0)
	pt3dadd(174.463, 163.477, 8, 0)
	pt3dadd(174.902, 163.477, 8, 0)
	pt3dadd(175.342, 163.477, 8, 0)
	pt3dadd(175.781, 163.477, 8, 0)
  }
  dend[148] {pt3dclear()
	pt3dadd(190.283, 130.957, 23, 0)
	pt3dadd(190.283, 130.957, 23, 0)
	pt3dadd(190.283, 130.518, 23, 0)
	pt3dadd(189.844, 130.078, 24, 0)
	pt3dadd(189.844, 129.639, 24, 0)
	pt3dadd(189.404, 129.199, 24, 0)
	pt3dadd(189.404, 128.76, 24, 0)
	pt3dadd(188.965, 128.32, 24, 0)
	pt3dadd(188.525, 127.881, 24, 0)
	pt3dadd(188.525, 127.441, 24, 0)
	pt3dadd(188.525, 127.002, 24, 0)
	pt3dadd(188.086, 126.562, 24, 0)
	pt3dadd(188.086, 126.123, 24, 0)
	pt3dadd(188.086, 125.684, 24, 0)
	pt3dadd(188.086, 125.244, 24, 0)
	pt3dadd(188.086, 124.805, 24, 0)
	pt3dadd(188.086, 124.365, 24, 0)
	pt3dadd(188.525, 123.926, 24, 0)
	pt3dadd(188.525, 123.486, 24, 0)
	pt3dadd(188.086, 123.047, 24, 0)
	pt3dadd(187.646, 122.607, 24, 0)
	pt3dadd(187.207, 122.168, 24, 0)
  }
  dend[149] {pt3dclear()
	pt3dadd(108.545, 129.639, 41, 0)
	pt3dadd(108.545, 129.639, 41, 0)
	pt3dadd(108.545, 129.199, 41, 0)
	pt3dadd(108.984, 128.76, 41, 0)
	pt3dadd(109.424, 128.32, 40, 0)
	pt3dadd(109.424, 127.881, 39, 0)
	pt3dadd(109.424, 127.441, 39, 0)
	pt3dadd(109.424, 127.002, 39, 0)
	pt3dadd(109.424, 126.562, 40, 0)
	pt3dadd(109.424, 127.002, 39, 0)
	pt3dadd(109.424, 127.002, 38, 0)
	pt3dadd(108.984, 127.002, 37, 0)
	pt3dadd(108.984, 126.562, 36, 0)
	pt3dadd(108.984, 126.562, 35, 0)
	pt3dadd(108.545, 126.562, 34, 0)
	pt3dadd(108.984, 127.002, 34, 0)
	pt3dadd(109.424, 127.002, 34, 0)
	pt3dadd(109.863, 127.441, 33, 0)
	pt3dadd(110.303, 127.441, 33, 0)
	pt3dadd(110.742, 127.881, 32, 0)
	pt3dadd(111.182, 127.881, 31, 0)
  }
  dend[150] {pt3dclear()
	pt3dadd(111.182, 127.881, 31, 0)
	pt3dadd(111.621, 128.32, 31, 0)
	pt3dadd(112.061, 128.76, 31, 0)
	pt3dadd(112.5, 129.199, 31, 0)
	pt3dadd(112.939, 129.199, 31, 0)
	pt3dadd(113.379, 129.199, 31, 0)
  }
  dend[151] {pt3dclear()
	pt3dadd(113.379, 129.199, 31, 0)
	pt3dadd(113.818, 129.199, 31, 0)
	pt3dadd(114.258, 128.76, 31, 0)
	pt3dadd(114.697, 128.76, 31, 0)
	pt3dadd(115.137, 128.76, 31, 0)
	pt3dadd(115.576, 128.76, 31, 0)
	pt3dadd(116.016, 128.76, 32, 0)
	pt3dadd(116.455, 128.76, 32, 0)
	pt3dadd(116.895, 128.76, 32, 0)
	pt3dadd(117.334, 128.76, 32, 0)
	pt3dadd(117.773, 129.199, 32, 0)
  }
  dend[152] {pt3dclear()
	pt3dadd(117.773, 129.199, 32, 0)
	pt3dadd(118.213, 129.639, 32, 0)
	pt3dadd(118.652, 129.639, 32, 0)
	pt3dadd(119.092, 130.078, 32, 0)
	pt3dadd(119.531, 130.078, 32, 0)
	pt3dadd(119.971, 130.078, 31, 0)
	pt3dadd(120.41, 130.078, 31, 0)
	pt3dadd(120.85, 130.518, 31, 0)
	pt3dadd(121.289, 130.518, 31, 0)
	pt3dadd(121.729, 130.518, 30, 0)
	pt3dadd(122.168, 130.518, 30, 0)
	pt3dadd(122.607, 130.518, 30, 0)
	pt3dadd(123.047, 130.957, 30, 0)
	pt3dadd(123.486, 130.957, 30, 0)
	pt3dadd(123.926, 130.957, 31, 0)
	pt3dadd(124.365, 130.957, 31, 0)
	pt3dadd(124.805, 130.518, 31, 0)
	pt3dadd(125.244, 130.518, 31, 0)
	pt3dadd(125.684, 130.078, 31, 0)
	pt3dadd(126.123, 129.639, 31, 0)
	pt3dadd(126.562, 129.639, 31, 0)
	pt3dadd(127.002, 130.078, 31, 0)
	pt3dadd(127.002, 130.518, 31, 0)
	pt3dadd(127.002, 130.078, 31, 0)
	pt3dadd(127.441, 129.639, 30, 0)
	pt3dadd(127.881, 129.639, 30, 0)
	pt3dadd(128.32, 129.199, 30, 0)
	pt3dadd(128.76, 129.199, 30, 0)
	pt3dadd(129.199, 129.199, 30, 0)
	pt3dadd(129.639, 129.199, 30, 0)
	pt3dadd(130.078, 129.199, 30, 0)
	pt3dadd(130.518, 129.199, 30, 0)
  }
  dend[153] {pt3dclear()
	pt3dadd(130.518, 129.199, 30, 0)
	pt3dadd(130.957, 129.199, 30, 0)
	pt3dadd(131.396, 129.199, 30, 0)
	pt3dadd(131.836, 129.199, 30, 0)
	pt3dadd(132.275, 129.199, 30, 0)
	pt3dadd(132.715, 129.199, 30, 0)
	pt3dadd(133.154, 129.199, 30, 0)
	pt3dadd(133.594, 129.199, 30, 0)
	pt3dadd(134.033, 129.199, 30, 0)
	pt3dadd(134.473, 129.639, 30, 0)
	pt3dadd(134.912, 129.639, 30, 0)
	pt3dadd(135.352, 129.639, 30, 0)
	pt3dadd(135.791, 130.078, 30, 0)
	pt3dadd(136.23, 130.078, 30, 0)
	pt3dadd(136.67, 129.639, 30, 0)
	pt3dadd(137.109, 129.199, 30, 0)
	pt3dadd(137.549, 128.76, 30, 0)
  }
  dend[154] {pt3dclear()
	pt3dadd(137.549, 128.76, 30, 0)
	pt3dadd(137.988, 128.32, 31, 0)
	pt3dadd(137.549, 128.76, 30, 0)
	pt3dadd(137.109, 129.199, 30, 0)
	pt3dadd(136.67, 129.639, 30, 0)
	pt3dadd(136.67, 130.078, 30, 0)
	pt3dadd(136.67, 130.518, 30, 0)
	pt3dadd(137.109, 130.957, 29, 0)
	pt3dadd(137.549, 130.957, 29, 0)
	pt3dadd(137.988, 130.957, 29, 0)
	pt3dadd(138.428, 130.957, 29, 0)
	pt3dadd(138.867, 130.957, 29, 0)
	pt3dadd(139.307, 130.518, 29, 0)
	pt3dadd(139.746, 130.518, 29, 0)
	pt3dadd(140.186, 130.078, 29, 0)
	pt3dadd(140.625, 130.078, 29, 0)
	pt3dadd(141.064, 130.078, 29, 0)
	pt3dadd(141.504, 129.639, 29, 0)
	pt3dadd(141.943, 129.639, 29, 0)
	pt3dadd(142.383, 129.639, 29, 0)
	pt3dadd(142.822, 130.078, 28, 0)
	pt3dadd(143.262, 130.078, 28, 0)
	pt3dadd(143.701, 130.078, 28, 0)
	pt3dadd(144.141, 130.518, 28, 0)
	pt3dadd(144.58, 130.518, 28, 0)
	pt3dadd(145.02, 130.518, 28, 0)
	pt3dadd(145.459, 130.518, 28, 0)
	pt3dadd(145.898, 130.518, 28, 0)
	pt3dadd(146.338, 130.078, 28, 0)
	pt3dadd(146.777, 130.078, 28, 0)
	pt3dadd(147.217, 130.518, 28, 0)
	pt3dadd(147.656, 130.518, 28, 0)
	pt3dadd(148.096, 130.518, 28, 0)
	pt3dadd(148.535, 130.518, 27, 0)
	pt3dadd(148.975, 130.518, 27, 0)
	pt3dadd(149.414, 130.518, 27, 0)
	pt3dadd(149.854, 130.518, 27, 0)
	pt3dadd(150.293, 130.518, 27, 0)
	pt3dadd(150.732, 130.518, 27, 0)
	pt3dadd(151.172, 130.518, 27, 0)
	pt3dadd(151.611, 130.518, 27, 0)
	pt3dadd(152.051, 130.518, 27, 0)
	pt3dadd(152.49, 130.518, 27, 0)
	pt3dadd(152.93, 130.518, 27, 0)
	pt3dadd(153.369, 130.518, 27, 0)
  }
  dend[155] {pt3dclear()
	pt3dadd(153.369, 130.518, 27, 0)
	pt3dadd(153.809, 130.518, 27, 0)
	pt3dadd(154.248, 130.957, 27, 0)
	pt3dadd(154.688, 131.396, 27, 0)
	pt3dadd(155.127, 131.836, 27, 0)
  }
  dend[156] {pt3dclear()
	pt3dadd(155.127, 131.836, 27, 0)
	pt3dadd(155.566, 132.275, 28, 0)
	pt3dadd(156.006, 132.715, 29, 0)
	pt3dadd(155.566, 132.275, 28, 0)
	pt3dadd(155.566, 131.836, 27, 0)
	pt3dadd(156.006, 131.836, 26, 0)
	pt3dadd(156.445, 131.836, 26, 0)
	pt3dadd(156.885, 131.836, 26, 0)
	pt3dadd(157.324, 131.836, 26, 0)
  }
}
proc shape3d_23() {
  dend[156] {	pt3dadd(157.764, 131.836, 26, 0)
	pt3dadd(158.203, 131.836, 26, 0)
	pt3dadd(158.643, 131.396, 26, 0)
	pt3dadd(159.082, 131.396, 26, 0)
	pt3dadd(159.521, 131.396, 26, 0)
	pt3dadd(159.961, 131.836, 25, 0)
	pt3dadd(160.4, 132.275, 25, 0)
	pt3dadd(160.84, 132.275, 25, 0)
	pt3dadd(161.279, 132.275, 25, 0)
	pt3dadd(161.719, 132.275, 25, 0)
	pt3dadd(162.158, 131.836, 25, 0)
	pt3dadd(162.598, 131.836, 25, 0)
	pt3dadd(163.037, 131.836, 25, 0)
	pt3dadd(163.477, 131.836, 25, 0)
	pt3dadd(163.916, 132.275, 25, 0)
	pt3dadd(164.355, 132.275, 25, 0)
	pt3dadd(164.795, 132.275, 25, 0)
	pt3dadd(165.234, 132.275, 25, 0)
	pt3dadd(165.674, 132.275, 25, 0)
	pt3dadd(166.113, 132.275, 25, 0)
	pt3dadd(166.553, 132.275, 25, 0)
	pt3dadd(166.992, 132.715, 26, 0)
	pt3dadd(167.432, 132.715, 26, 0)
	pt3dadd(167.871, 132.715, 26, 0)
	pt3dadd(168.311, 132.715, 26, 0)
	pt3dadd(168.75, 133.154, 26, 0)
	pt3dadd(169.189, 133.154, 26, 0)
	pt3dadd(169.629, 133.594, 26, 0)
	pt3dadd(170.068, 134.033, 26, 0)
	pt3dadd(170.508, 134.473, 26, 0)
	pt3dadd(170.947, 134.473, 26, 0)
	pt3dadd(171.387, 134.473, 26, 0)
	pt3dadd(171.826, 134.473, 26, 0)
	pt3dadd(172.266, 134.912, 26, 0)
	pt3dadd(172.705, 135.352, 26, 0)
	pt3dadd(173.145, 135.791, 25, 0)
	pt3dadd(173.584, 136.23, 24, 0)
	pt3dadd(174.023, 136.23, 24, 0)
	pt3dadd(174.463, 136.67, 24, 0)
	pt3dadd(174.902, 137.109, 24, 0)
	pt3dadd(175.342, 137.109, 24, 0)
	pt3dadd(175.781, 136.67, 23, 0)
	pt3dadd(176.221, 136.67, 23, 0)
	pt3dadd(176.66, 136.67, 23, 0)
	pt3dadd(177.1, 136.67, 23, 0)
	pt3dadd(177.539, 137.109, 23, 0)
	pt3dadd(177.979, 137.549, 23, 0)
  }
  dend[157] {pt3dclear()
	pt3dadd(105.029, 76.4648, 35, 0)
	pt3dadd(105.029, 76.4648, 35, 0)
	pt3dadd(104.59, 76.9043, 35, 0)
	pt3dadd(104.15, 77.3438, 35, 0)
	pt3dadd(103.711, 77.7832, 35, 0)
	pt3dadd(103.711, 78.2227, 35, 0)
	pt3dadd(103.711, 78.6621, 35, 0)
	pt3dadd(103.711, 79.1016, 35, 0)
	pt3dadd(104.15, 79.541, 35, 0)
	pt3dadd(104.59, 79.9805, 35, 0)
	pt3dadd(105.029, 79.9805, 35, 0)
	pt3dadd(105.469, 79.541, 34, 0)
	pt3dadd(105.908, 79.1016, 34, 0)
	pt3dadd(106.348, 79.1016, 35, 0)
	pt3dadd(106.787, 79.1016, 35, 0)
	pt3dadd(107.227, 79.1016, 35, 0)
	pt3dadd(107.666, 79.1016, 35, 0)
	pt3dadd(108.105, 79.1016, 35, 0)
	pt3dadd(108.545, 78.6621, 35, 0)
	pt3dadd(108.984, 78.6621, 35, 0)
	pt3dadd(109.424, 78.2227, 36, 0)
	pt3dadd(109.863, 78.2227, 36, 0)
	pt3dadd(110.303, 78.2227, 36, 0)
	pt3dadd(110.742, 78.2227, 36, 0)
	pt3dadd(111.182, 77.7832, 35, 0)
	pt3dadd(111.621, 77.7832, 35, 0)
	pt3dadd(111.182, 77.7832, 35, 0)
	pt3dadd(110.742, 78.2227, 36, 0)
	pt3dadd(110.303, 78.2227, 36, 0)
	pt3dadd(109.863, 77.7832, 37, 0)
	pt3dadd(109.863, 77.3438, 37, 0)
	pt3dadd(110.303, 76.9043, 38, 0)
	pt3dadd(110.742, 76.4648, 38, 0)
	pt3dadd(110.742, 76.0254, 38, 0)
	pt3dadd(111.182, 75.5859, 38, 0)
	pt3dadd(111.621, 75.1465, 38, 0)
	pt3dadd(112.061, 74.707, 38, 0)
	pt3dadd(112.5, 74.2676, 38, 0)
	pt3dadd(112.939, 73.8281, 38, 0)
	pt3dadd(113.379, 73.3887, 38, 0)
	pt3dadd(113.818, 72.9492, 38, 0)
	pt3dadd(114.258, 72.5098, 38, 0)
	pt3dadd(114.697, 72.5098, 38, 0)
	pt3dadd(115.137, 72.5098, 38, 0)
	pt3dadd(115.576, 72.0703, 38, 0)
	pt3dadd(116.016, 72.0703, 38, 0)
	pt3dadd(116.455, 72.0703, 38, 0)
	pt3dadd(116.895, 72.0703, 38, 0)
	pt3dadd(117.334, 72.0703, 38, 0)
	pt3dadd(117.773, 72.0703, 38, 0)
	pt3dadd(118.213, 72.0703, 38, 0)
  }
  dend[158] {pt3dclear()
	pt3dadd(118.213, 72.0703, 38, 0)
	pt3dadd(118.652, 71.6309, 38, 0)
	pt3dadd(119.092, 71.1914, 38, 0)
	pt3dadd(119.531, 71.1914, 38, 0)
	pt3dadd(119.971, 70.752, 38, 0)
	pt3dadd(120.41, 70.3125, 38, 0)
	pt3dadd(120.85, 69.873, 37, 0)
	pt3dadd(120.41, 69.4336, 37, 0)
	pt3dadd(119.971, 68.9941, 38, 0)
	pt3dadd(119.971, 68.5547, 39, 0)
  }
  dend[159] {pt3dclear()
	pt3dadd(119.971, 68.5547, 39, 0)
	pt3dadd(119.971, 68.1152, 39, 0)
	pt3dadd(120.41, 67.6758, 40, 0)
	pt3dadd(120.41, 67.2363, 40, 0)
	pt3dadd(120.41, 66.7969, 40, 0)
	pt3dadd(120.41, 66.3574, 40, 0)
	pt3dadd(119.971, 65.918, 41, 0)
	pt3dadd(119.531, 65.4785, 41, 0)
	pt3dadd(119.092, 65.0391, 41, 0)
	pt3dadd(119.092, 64.5996, 41, 0)
	pt3dadd(119.092, 64.1602, 41, 0)
	pt3dadd(119.092, 63.7207, 41, 0)
	pt3dadd(119.092, 63.2812, 41, 0)
	pt3dadd(119.092, 62.8418, 41, 0)
	pt3dadd(119.531, 62.4023, 41, 0)
	pt3dadd(119.971, 61.9629, 41, 0)
	pt3dadd(119.531, 61.5234, 40, 0)
	pt3dadd(119.971, 61.5234, 41, 0)
	pt3dadd(120.41, 61.5234, 42, 0)
	pt3dadd(120.85, 61.084, 42, 0)
	pt3dadd(120.85, 60.6445, 42, 0)
	pt3dadd(121.289, 60.2051, 42, 0)
  }
  dend[160] {pt3dclear()
	pt3dadd(121.289, 60.2051, 42, 0)
	pt3dadd(121.289, 59.7656, 42, 0)
	pt3dadd(121.289, 59.3262, 42, 0)
	pt3dadd(121.289, 58.8867, 43, 0)
	pt3dadd(121.289, 58.4473, 43, 0)
	pt3dadd(121.289, 58.0078, 43, 0)
	pt3dadd(121.289, 57.5684, 43, 0)
	pt3dadd(121.289, 57.1289, 43, 0)
	pt3dadd(121.289, 56.6895, 43, 0)
	pt3dadd(121.289, 56.25, 43, 0)
	pt3dadd(121.289, 55.8105, 43, 0)
	pt3dadd(121.729, 55.3711, 43, 0)
	pt3dadd(121.729, 54.9316, 43, 0)
	pt3dadd(122.168, 54.4922, 44, 0)
	pt3dadd(122.607, 54.0527, 44, 0)
	pt3dadd(122.607, 53.6133, 44, 0)
	pt3dadd(123.047, 53.1738, 44, 0)
	pt3dadd(123.486, 52.7344, 44, 0)
	pt3dadd(123.486, 52.2949, 44, 0)
	pt3dadd(123.926, 51.8555, 44, 0)
	pt3dadd(124.365, 51.416, 44, 0)
	pt3dadd(124.805, 50.9766, 44, 0)
	pt3dadd(125.244, 50.9766, 44, 0)
	pt3dadd(125.684, 50.5371, 44, 0)
	pt3dadd(125.684, 50.0977, 44, 0)
	pt3dadd(126.123, 49.6582, 44, 0)
	pt3dadd(126.123, 49.2188, 44, 0)
	pt3dadd(126.123, 48.7793, 44, 0)
	pt3dadd(126.123, 48.3398, 44, 0)
	pt3dadd(126.123, 47.9004, 44, 0)
	pt3dadd(126.562, 47.4609, 44, 0)
  }
  dend[161] {pt3dclear()
	pt3dadd(126.562, 47.4609, 44, 0)
	pt3dadd(126.562, 47.0215, 44, 0)
	pt3dadd(127.002, 47.0215, 43, 0)
	pt3dadd(127.002, 46.582, 44, 0)
	pt3dadd(127.441, 46.582, 45, 0)
	pt3dadd(127.881, 46.1426, 45, 0)
	pt3dadd(128.32, 46.1426, 45, 0)
	pt3dadd(128.76, 45.7031, 45, 0)
	pt3dadd(129.199, 45.2637, 45, 0)
	pt3dadd(129.639, 44.8242, 45, 0)
	pt3dadd(130.078, 44.3848, 45, 0)
	pt3dadd(130.518, 44.3848, 45, 0)
	pt3dadd(130.957, 43.9453, 45, 0)
	pt3dadd(131.396, 43.5059, 45, 0)
	pt3dadd(131.396, 43.0664, 45, 0)
  }
  dend[162] {pt3dclear()
	pt3dadd(131.396, 43.0664, 45, 0)
	pt3dadd(131.396, 42.627, 45, 0)
	pt3dadd(131.836, 42.1875, 46, 0)
	pt3dadd(131.836, 41.748, 46, 0)
	pt3dadd(132.275, 41.3086, 46, 0)
	pt3dadd(132.715, 40.8691, 46, 0)
	pt3dadd(132.715, 40.4297, 46, 0)
	pt3dadd(133.154, 39.9902, 47, 0)
	pt3dadd(133.154, 39.5508, 47, 0)
	pt3dadd(133.154, 39.1113, 47, 0)
	pt3dadd(133.594, 38.6719, 47, 0)
	pt3dadd(133.594, 38.2324, 47, 0)
	pt3dadd(133.594, 37.793, 47, 0)
	pt3dadd(133.594, 37.3535, 47, 0)
	pt3dadd(133.594, 36.9141, 47, 0)
	pt3dadd(133.594, 36.4746, 46, 0)
	pt3dadd(133.594, 36.0352, 46, 0)
	pt3dadd(133.594, 35.5957, 46, 0)
	pt3dadd(133.594, 35.1562, 47, 0)
	pt3dadd(134.033, 34.7168, 48, 0)
	pt3dadd(133.594, 34.2773, 49, 0)
	pt3dadd(133.594, 33.8379, 49, 0)
	pt3dadd(134.033, 33.3984, 49, 0)
	pt3dadd(134.033, 32.959, 49, 0)
  }
}
proc shape3d_24() {
  dend[162] {  }
  dend[163] {pt3dclear()
	pt3dadd(134.033, 32.959, 49, 0)
	pt3dadd(134.473, 32.5195, 49, 0)
	pt3dadd(134.912, 32.0801, 49, 0)
	pt3dadd(135.352, 32.0801, 49, 0)
	pt3dadd(135.791, 31.6406, 48, 0)
	pt3dadd(136.23, 31.6406, 48, 0)
	pt3dadd(136.67, 31.6406, 48, 0)
	pt3dadd(137.109, 31.6406, 48, 0)
	pt3dadd(137.549, 31.6406, 48, 0)
  }
  dend[164] {pt3dclear()
	pt3dadd(137.549, 31.6406, 48, 0)
	pt3dadd(137.988, 31.6406, 48, 0)
	pt3dadd(138.428, 31.6406, 48, 0)
	pt3dadd(138.867, 31.6406, 48, 0)
	pt3dadd(139.307, 32.0801, 48, 0)
	pt3dadd(139.746, 32.5195, 48, 0)
	pt3dadd(140.186, 32.5195, 49, 0)
	pt3dadd(140.625, 32.5195, 49, 0)
	pt3dadd(141.064, 32.5195, 49, 0)
	pt3dadd(141.504, 32.5195, 49, 0)
	pt3dadd(141.943, 32.5195, 49, 0)
	pt3dadd(142.383, 32.0801, 49, 0)
	pt3dadd(142.822, 32.0801, 49, 0)
	pt3dadd(143.262, 31.6406, 48, 0)
	pt3dadd(143.701, 31.2012, 48, 0)
	pt3dadd(144.141, 31.2012, 48, 0)
	pt3dadd(144.58, 31.2012, 48, 0)
	pt3dadd(145.02, 30.7617, 48, 0)
	pt3dadd(145.459, 30.7617, 48, 0)
	pt3dadd(145.898, 30.7617, 48, 0)
  }
  dend[165] {pt3dclear()
	pt3dadd(145.898, 30.7617, 48, 0)
	pt3dadd(146.338, 30.3223, 48, 0)
	pt3dadd(146.777, 30.3223, 48, 0)
	pt3dadd(147.217, 30.3223, 48, 0)
	pt3dadd(147.656, 30.3223, 48, 0)
	pt3dadd(148.096, 30.3223, 48, 0)
	pt3dadd(148.535, 30.3223, 48, 0)
	pt3dadd(148.975, 29.8828, 47, 0)
	pt3dadd(149.414, 29.8828, 47, 0)
	pt3dadd(149.854, 29.4434, 47, 0)
	pt3dadd(150.293, 29.4434, 47, 0)
	pt3dadd(150.732, 29.0039, 47, 0)
	pt3dadd(151.172, 28.5645, 47, 0)
	pt3dadd(151.611, 28.125, 47, 0)
	pt3dadd(152.051, 27.6855, 47, 0)
	pt3dadd(152.49, 27.6855, 47, 0)
	pt3dadd(152.93, 27.2461, 47, 0)
	pt3dadd(153.369, 27.2461, 47, 0)
	pt3dadd(153.809, 27.2461, 47, 0)
	pt3dadd(154.248, 26.8066, 47, 0)
	pt3dadd(154.688, 26.8066, 47, 0)
	pt3dadd(155.127, 26.8066, 47, 0)
	pt3dadd(155.566, 26.8066, 48, 0)
	pt3dadd(156.006, 26.3672, 49, 0)
	pt3dadd(156.445, 26.8066, 48, 0)
	pt3dadd(156.885, 27.2461, 48, 0)
	pt3dadd(157.324, 27.2461, 48, 0)
	pt3dadd(157.764, 27.2461, 48, 0)
	pt3dadd(158.203, 27.6855, 48, 0)
	pt3dadd(158.643, 28.125, 48, 0)
	pt3dadd(159.082, 28.5645, 48, 0)
	pt3dadd(159.521, 29.0039, 48, 0)
	pt3dadd(159.961, 29.0039, 48, 0)
	pt3dadd(160.4, 29.4434, 48, 0)
	pt3dadd(160.84, 29.8828, 48, 0)
	pt3dadd(161.279, 30.3223, 48, 0)
	pt3dadd(161.719, 30.7617, 48, 0)
	pt3dadd(162.158, 31.2012, 48, 0)
	pt3dadd(162.598, 31.2012, 48, 0)
	pt3dadd(163.037, 31.2012, 48, 0)
	pt3dadd(163.477, 31.2012, 48, 0)
	pt3dadd(163.916, 31.2012, 48, 0)
	pt3dadd(164.355, 31.2012, 48, 0)
	pt3dadd(164.795, 31.2012, 48, 0)
	pt3dadd(165.234, 31.2012, 48, 0)
	pt3dadd(165.674, 30.7617, 49, 0)
	pt3dadd(165.674, 31.2012, 48, 0)
	pt3dadd(166.113, 31.6406, 47, 0)
	pt3dadd(166.553, 31.6406, 47, 0)
	pt3dadd(166.992, 31.2012, 47, 0)
	pt3dadd(167.432, 31.2012, 47, 0)
	pt3dadd(167.871, 31.2012, 47, 0)
	pt3dadd(168.311, 30.7617, 46, 0)
	pt3dadd(168.75, 30.7617, 45, 0)
	pt3dadd(169.189, 31.2012, 45, 0)
	pt3dadd(169.629, 31.2012, 45, 0)
	pt3dadd(170.068, 31.2012, 45, 0)
	pt3dadd(170.508, 31.2012, 45, 0)
	pt3dadd(170.947, 31.2012, 45, 0)
	pt3dadd(171.387, 31.6406, 44, 0)
	pt3dadd(171.826, 31.6406, 44, 0)
	pt3dadd(172.266, 32.0801, 44, 0)
	pt3dadd(172.705, 32.5195, 44, 0)
	pt3dadd(173.145, 32.5195, 44, 0)
	pt3dadd(173.584, 32.5195, 44, 0)
	pt3dadd(174.023, 32.959, 44, 0)
	pt3dadd(174.463, 33.3984, 44, 0)
	pt3dadd(174.463, 33.8379, 44, 0)
	pt3dadd(174.902, 34.2773, 45, 0)
	pt3dadd(175.342, 34.7168, 45, 0)
	pt3dadd(175.781, 34.7168, 45, 0)
	pt3dadd(176.221, 35.1562, 45, 0)
	pt3dadd(176.66, 35.1562, 45, 0)
	pt3dadd(177.1, 35.5957, 45, 0)
	pt3dadd(176.66, 35.5957, 45, 0)
	pt3dadd(176.221, 36.0352, 44, 0)
	pt3dadd(175.781, 36.4746, 44, 0)
	pt3dadd(175.342, 36.9141, 44, 0)
	pt3dadd(174.902, 37.3535, 43, 0)
	pt3dadd(174.902, 37.793, 43, 0)
	pt3dadd(174.902, 38.2324, 43, 0)
	pt3dadd(174.902, 38.6719, 42, 0)
	pt3dadd(174.902, 39.1113, 42, 0)
	pt3dadd(174.902, 39.5508, 42, 0)
	pt3dadd(174.902, 39.9902, 42, 0)
	pt3dadd(174.902, 40.4297, 42, 0)
	pt3dadd(174.902, 40.8691, 42, 0)
	pt3dadd(174.902, 41.3086, 42, 0)
	pt3dadd(174.902, 41.748, 42, 0)
	pt3dadd(174.902, 42.1875, 42, 0)
	pt3dadd(174.902, 42.627, 42, 0)
	pt3dadd(174.463, 43.0664, 42, 0)
	pt3dadd(174.023, 43.5059, 42, 0)
	pt3dadd(174.463, 43.5059, 41, 0)
	pt3dadd(174.023, 43.9453, 40, 0)
	pt3dadd(174.023, 44.3848, 40, 0)
	pt3dadd(174.023, 44.8242, 40, 0)
	pt3dadd(173.584, 45.2637, 40, 0)
	pt3dadd(173.584, 45.7031, 40, 0)
	pt3dadd(173.584, 46.1426, 40, 0)
	pt3dadd(173.584, 46.582, 40, 0)
	pt3dadd(173.584, 47.0215, 40, 0)
	pt3dadd(174.023, 47.4609, 40, 0)
	pt3dadd(174.023, 47.9004, 40, 0)
	pt3dadd(174.463, 48.3398, 40, 0)
	pt3dadd(174.902, 48.7793, 40, 0)
	pt3dadd(175.342, 49.2188, 39, 0)
	pt3dadd(175.781, 49.6582, 39, 0)
	pt3dadd(176.221, 50.0977, 39, 0)
	pt3dadd(176.66, 50.5371, 39, 0)
	pt3dadd(177.1, 50.9766, 39, 0)
	pt3dadd(177.1, 51.416, 39, 0)
	pt3dadd(177.1, 51.8555, 38, 0)
	pt3dadd(177.1, 52.2949, 38, 0)
	pt3dadd(177.539, 52.7344, 37, 0)
	pt3dadd(177.539, 53.1738, 37, 0)
	pt3dadd(177.979, 53.6133, 37, 0)
	pt3dadd(178.418, 54.0527, 37, 0)
	pt3dadd(178.857, 54.4922, 37, 0)
	pt3dadd(179.297, 54.9316, 37, 0)
	pt3dadd(179.736, 55.3711, 37, 0)
	pt3dadd(180.176, 55.8105, 38, 0)
  }
  dend[166] {pt3dclear()
	pt3dadd(100.635, 61.9629, 42, 0)
	pt3dadd(100.635, 61.9629, 42, 0)
	pt3dadd(101.074, 61.9629, 42, 0)
	pt3dadd(101.514, 62.4023, 42, 0)
	pt3dadd(101.953, 62.4023, 42, 0)
	pt3dadd(102.393, 61.9629, 43, 0)
	pt3dadd(101.953, 61.5234, 44, 0)
	pt3dadd(102.393, 61.084, 44, 0)
	pt3dadd(102.832, 60.6445, 44, 0)
	pt3dadd(102.832, 60.2051, 44, 0)
	pt3dadd(102.832, 59.7656, 44, 0)
	pt3dadd(103.271, 59.3262, 44, 0)
	pt3dadd(103.271, 58.8867, 44, 0)
	pt3dadd(103.271, 58.4473, 44, 0)
	pt3dadd(103.711, 58.0078, 44, 0)
	pt3dadd(103.711, 57.5684, 44, 0)
	pt3dadd(104.15, 57.1289, 44, 0)
	pt3dadd(104.59, 56.6895, 44, 0)
	pt3dadd(105.029, 56.25, 44, 0)
	pt3dadd(105.029, 55.8105, 44, 0)
	pt3dadd(105.469, 55.3711, 44, 0)
	pt3dadd(105.469, 54.9316, 44, 0)
	pt3dadd(105.469, 54.4922, 44, 0)
	pt3dadd(105.469, 54.0527, 44, 0)
	pt3dadd(105.469, 53.6133, 44, 0)
	pt3dadd(105.908, 53.1738, 44, 0)
	pt3dadd(105.469, 53.1738, 44, 0)
	pt3dadd(105.029, 52.7344, 45, 0)
  }
  dend[167] {pt3dclear()
	pt3dadd(105.029, 52.7344, 45, 0)
	pt3dadd(104.59, 52.7344, 45, 0)
	pt3dadd(104.15, 52.2949, 46, 0)
	pt3dadd(103.711, 51.8555, 46, 0)
	pt3dadd(103.711, 51.416, 46, 0)
	pt3dadd(103.271, 50.9766, 46, 0)
	pt3dadd(102.832, 50.5371, 47, 0)
	pt3dadd(102.393, 50.0977, 47, 0)
	pt3dadd(101.953, 50.0977, 47, 0)
	pt3dadd(101.514, 50.0977, 47, 0)
	pt3dadd(101.074, 50.0977, 47, 0)
	pt3dadd(100.635, 50.0977, 47, 0)
	pt3dadd(100.195, 50.5371, 47, 0)
	pt3dadd(99.7559, 50.5371, 47, 0)
	pt3dadd(99.3164, 50.5371, 47, 0)
	pt3dadd(98.877, 50.5371, 47, 0)
	pt3dadd(98.4375, 50.9766, 47, 0)
	pt3dadd(97.998, 50.9766, 47, 0)
	pt3dadd(97.5586, 50.9766, 47, 0)
	pt3dadd(97.1191, 50.9766, 47, 0)
	pt3dadd(96.6797, 50.9766, 47, 0)
  }
}
proc shape3d_25() {
  dend[167] {	pt3dadd(96.2402, 51.416, 47, 0)
	pt3dadd(95.8008, 51.8555, 47, 0)
	pt3dadd(95.3613, 52.2949, 47, 0)
	pt3dadd(94.9219, 52.7344, 47, 0)
	pt3dadd(94.4824, 53.1738, 46, 0)
	pt3dadd(94.043, 53.1738, 46, 0)
	pt3dadd(93.6035, 53.1738, 46, 0)
	pt3dadd(93.1641, 53.1738, 46, 0)
	pt3dadd(92.7246, 52.7344, 46, 0)
	pt3dadd(92.2852, 52.7344, 46, 0)
	pt3dadd(91.8457, 53.1738, 47, 0)
	pt3dadd(91.4062, 53.6133, 47, 0)
	pt3dadd(91.4062, 53.1738, 47, 0)
	pt3dadd(91.4062, 52.7344, 47, 0)
	pt3dadd(91.4062, 52.2949, 47, 0)
	pt3dadd(91.4062, 51.8555, 47, 0)
	pt3dadd(90.9668, 51.416, 47, 0)
	pt3dadd(90.9668, 50.9766, 47, 0)
	pt3dadd(90.9668, 50.5371, 47, 0)
	pt3dadd(90.9668, 50.0977, 47, 0)
	pt3dadd(91.4062, 49.6582, 47, 0)
	pt3dadd(91.4062, 49.2188, 47, 0)
	pt3dadd(90.9668, 48.7793, 48, 0)
	pt3dadd(90.5273, 48.3398, 48, 0)
	pt3dadd(90.0879, 47.9004, 48, 0)
	pt3dadd(89.6484, 47.4609, 48, 0)
	pt3dadd(89.209, 47.4609, 48, 0)
	pt3dadd(88.7695, 47.0215, 48, 0)
	pt3dadd(88.3301, 46.582, 48, 0)
	pt3dadd(87.8906, 46.582, 48, 0)
	pt3dadd(87.4512, 46.582, 48, 0)
	pt3dadd(87.0117, 46.582, 48, 0)
	pt3dadd(86.5723, 46.582, 48, 0)
	pt3dadd(86.1328, 47.0215, 48, 0)
	pt3dadd(86.1328, 47.4609, 47, 0)
	pt3dadd(85.6934, 47.0215, 48, 0)
	pt3dadd(85.2539, 46.582, 48, 0)
	pt3dadd(84.8145, 46.582, 48, 0)
	pt3dadd(84.375, 47.0215, 49, 0)
	pt3dadd(83.9355, 47.0215, 50, 0)
	pt3dadd(83.4961, 47.4609, 50, 0)
	pt3dadd(83.0566, 47.4609, 50, 0)
	pt3dadd(82.6172, 47.4609, 50, 0)
	pt3dadd(82.1777, 47.9004, 51, 0)
  }
  dend[168] {pt3dclear()
	pt3dadd(94.043, 60.6445, 42, 0)
	pt3dadd(94.043, 60.6445, 42, 0)
	pt3dadd(94.4824, 61.084, 43, 0)
	pt3dadd(94.9219, 60.6445, 43, 0)
	pt3dadd(94.9219, 60.2051, 43, 0)
	pt3dadd(95.3613, 59.7656, 43, 0)
	pt3dadd(95.8008, 59.3262, 44, 0)
	pt3dadd(95.8008, 58.8867, 45, 0)
	pt3dadd(95.8008, 58.4473, 45, 0)
	pt3dadd(95.8008, 58.0078, 45, 0)
	pt3dadd(95.8008, 57.5684, 45, 0)
	pt3dadd(95.8008, 57.1289, 45, 0)
	pt3dadd(95.3613, 57.1289, 45, 0)
	pt3dadd(94.9219, 56.6895, 46, 0)
	pt3dadd(95.3613, 56.25, 47, 0)
	pt3dadd(95.3613, 55.8105, 47, 0)
	pt3dadd(95.3613, 55.3711, 47, 0)
	pt3dadd(95.3613, 54.9316, 47, 0)
	pt3dadd(95.3613, 54.4922, 47, 0)
	pt3dadd(95.3613, 54.0527, 47, 0)
	pt3dadd(94.9219, 53.6133, 47, 0)
	pt3dadd(94.9219, 53.1738, 47, 0)
	pt3dadd(94.9219, 52.7344, 47, 0)
	pt3dadd(94.9219, 52.2949, 47, 0)
	pt3dadd(94.9219, 51.8555, 47, 0)
	pt3dadd(94.9219, 51.416, 47, 0)
	pt3dadd(94.9219, 50.9766, 47, 0)
	pt3dadd(95.3613, 50.5371, 48, 0)
	pt3dadd(95.8008, 50.0977, 48, 0)
	pt3dadd(95.8008, 49.6582, 48, 0)
	pt3dadd(96.2402, 49.2188, 48, 0)
	pt3dadd(96.2402, 48.7793, 48, 0)
	pt3dadd(96.2402, 48.3398, 48, 0)
	pt3dadd(96.2402, 47.9004, 48, 0)
	pt3dadd(96.2402, 47.4609, 48, 0)
	pt3dadd(96.2402, 47.0215, 48, 0)
	pt3dadd(96.2402, 46.582, 48, 0)
	pt3dadd(96.2402, 46.1426, 48, 0)
	pt3dadd(95.8008, 45.7031, 48, 0)
	pt3dadd(95.3613, 45.2637, 48, 0)
	pt3dadd(95.3613, 44.8242, 48, 0)
	pt3dadd(94.9219, 44.3848, 48, 0)
	pt3dadd(94.4824, 43.9453, 48, 0)
	pt3dadd(94.4824, 43.5059, 48, 0)
	pt3dadd(94.4824, 43.0664, 48, 0)
	pt3dadd(94.4824, 42.627, 48, 0)
	pt3dadd(94.4824, 42.1875, 48, 0)
	pt3dadd(94.9219, 41.748, 48, 0)
	pt3dadd(94.9219, 41.3086, 48, 0)
	pt3dadd(94.9219, 40.8691, 48, 0)
	pt3dadd(95.3613, 40.4297, 48, 0)
	pt3dadd(95.3613, 39.9902, 48, 0)
	pt3dadd(95.3613, 39.5508, 48, 0)
	pt3dadd(95.3613, 39.1113, 48, 0)
	pt3dadd(95.3613, 38.6719, 48, 0)
	pt3dadd(95.8008, 38.2324, 49, 0)
	pt3dadd(95.8008, 37.793, 49, 0)
	pt3dadd(96.2402, 37.3535, 49, 0)
	pt3dadd(96.6797, 36.9141, 49, 0)
	pt3dadd(97.1191, 36.9141, 49, 0)
	pt3dadd(97.5586, 36.4746, 49, 0)
	pt3dadd(97.998, 36.0352, 49, 0)
	pt3dadd(98.4375, 35.5957, 49, 0)
	pt3dadd(98.877, 35.1562, 48, 0)
	pt3dadd(99.3164, 35.1562, 48, 0)
	pt3dadd(99.3164, 34.7168, 48, 0)
	pt3dadd(99.3164, 34.2773, 48, 0)
	pt3dadd(98.877, 33.8379, 49, 0)
	pt3dadd(99.3164, 33.3984, 50, 0)
	pt3dadd(99.7559, 32.959, 50, 0)
	pt3dadd(100.195, 32.5195, 50, 0)
	pt3dadd(100.635, 32.0801, 51, 0)
	pt3dadd(100.635, 31.6406, 51, 0)
	pt3dadd(101.074, 31.2012, 51, 0)
	pt3dadd(101.514, 30.7617, 51, 0)
	pt3dadd(101.953, 30.3223, 51, 0)
	pt3dadd(102.393, 29.8828, 51, 0)
	pt3dadd(102.832, 29.4434, 51, 0)
	pt3dadd(103.271, 29.0039, 51, 0)
	pt3dadd(103.271, 28.5645, 50, 0)
	pt3dadd(103.271, 28.5645, 51, 0)
	pt3dadd(103.711, 28.125, 52, 0)
	pt3dadd(104.15, 28.125, 52, 0)
	pt3dadd(104.59, 27.6855, 52, 0)
	pt3dadd(105.029, 27.2461, 52, 0)
	pt3dadd(105.469, 26.8066, 52, 0)
	pt3dadd(105.908, 26.3672, 52, 0)
	pt3dadd(106.348, 25.9277, 52, 0)
	pt3dadd(106.348, 25.4883, 52, 0)
	pt3dadd(106.348, 25.0488, 53, 0)
	pt3dadd(106.348, 24.6094, 53, 0)
	pt3dadd(106.348, 24.1699, 54, 0)
	pt3dadd(105.908, 23.7305, 54, 0)
	pt3dadd(105.908, 23.291, 54, 0)
	pt3dadd(105.469, 22.8516, 54, 0)
	pt3dadd(105.029, 22.4121, 54, 0)
	pt3dadd(104.59, 21.9727, 54, 0)
	pt3dadd(104.15, 21.5332, 54, 0)
	pt3dadd(103.711, 21.0938, 54, 0)
	pt3dadd(103.271, 20.6543, 53, 0)
	pt3dadd(102.832, 20.2148, 53, 0)
	pt3dadd(102.393, 19.7754, 53, 0)
  }
  dend[169] {pt3dclear()
	pt3dadd(105.469, 66.3574, 38, 0)
	pt3dadd(105.469, 66.3574, 38, 0)
	pt3dadd(105.469, 65.918, 38, 0)
	pt3dadd(105.908, 65.4785, 38, 0)
	pt3dadd(106.348, 65.0391, 39, 0)
	pt3dadd(106.787, 65.0391, 39, 0)
	pt3dadd(107.227, 65.0391, 39, 0)
	pt3dadd(107.666, 65.0391, 39, 0)
	pt3dadd(108.105, 65.0391, 39, 0)
	pt3dadd(108.545, 65.0391, 39, 0)
	pt3dadd(108.984, 65.0391, 39, 0)
	pt3dadd(109.424, 64.5996, 39, 0)
	pt3dadd(109.863, 64.5996, 39, 0)
	pt3dadd(110.303, 64.5996, 39, 0)
	pt3dadd(110.742, 64.5996, 39, 0)
  }
  dend[170] {pt3dclear()
	pt3dadd(81.2988, 77.3438, 37, 0)
	pt3dadd(81.2988, 77.3438, 37, 0)
	pt3dadd(81.2988, 77.7832, 37, 0)
	pt3dadd(81.2988, 78.2227, 37, 0)
	pt3dadd(81.2988, 78.6621, 37, 0)
	pt3dadd(81.2988, 79.1016, 37, 0)
	pt3dadd(80.8594, 79.541, 37, 0)
	pt3dadd(80.4199, 79.9805, 38, 0)
	pt3dadd(79.9805, 79.541, 39, 0)
	pt3dadd(79.9805, 79.541, 40, 0)
	pt3dadd(79.9805, 79.1016, 41, 0)
	pt3dadd(79.9805, 78.6621, 42, 0)
	pt3dadd(80.4199, 78.6621, 42, 0)
	pt3dadd(80.8594, 78.6621, 42, 0)
	pt3dadd(81.2988, 78.6621, 42, 0)
	pt3dadd(81.7383, 78.2227, 42, 0)
	pt3dadd(82.1777, 78.2227, 42, 0)
	pt3dadd(82.6172, 77.7832, 43, 0)
	pt3dadd(83.0566, 77.3438, 43, 0)
	pt3dadd(83.0566, 76.9043, 43, 0)
	pt3dadd(83.4961, 76.4648, 43, 0)
	pt3dadd(83.9355, 76.0254, 43, 0)
	pt3dadd(84.375, 76.0254, 43, 0)
  }
  dend[171] {pt3dclear()
	pt3dadd(84.375, 76.0254, 43, 0)
	pt3dadd(84.8145, 75.5859, 42, 0)
	pt3dadd(85.2539, 75.5859, 41, 0)
	pt3dadd(85.6934, 76.0254, 41, 0)
	pt3dadd(86.1328, 76.0254, 41, 0)
	pt3dadd(86.5723, 76.0254, 41, 0)
	pt3dadd(87.0117, 76.0254, 41, 0)
  }
  dend[172] {pt3dclear()
	pt3dadd(87.0117, 76.0254, 41, 0)
	pt3dadd(87.4512, 75.5859, 41, 0)
	pt3dadd(87.4512, 75.1465, 42, 0)
	pt3dadd(87.4512, 74.707, 42, 0)
	pt3dadd(87.4512, 74.2676, 42, 0)
	pt3dadd(87.4512, 73.8281, 43, 0)
	pt3dadd(87.0117, 73.3887, 43, 0)
	pt3dadd(87.0117, 72.9492, 43, 0)
	pt3dadd(86.5723, 72.9492, 43, 0)
  }
}
proc shape3d_26() {
  dend[172] {	pt3dadd(86.1328, 73.3887, 44, 0)
	pt3dadd(85.6934, 73.3887, 44, 0)
	pt3dadd(85.2539, 72.9492, 45, 0)
	pt3dadd(84.8145, 72.9492, 45, 0)
	pt3dadd(84.375, 72.5098, 45, 0)
	pt3dadd(83.9355, 72.0703, 45, 0)
  }
  dend[173] {pt3dclear()
	pt3dadd(131.396, 100.195, 35, 0)
	pt3dadd(131.396, 100.195, 35, 0)
	pt3dadd(130.957, 99.7559, 35, 0)
	pt3dadd(130.957, 99.3164, 35, 0)
	pt3dadd(130.957, 98.877, 35, 0)
	pt3dadd(131.396, 98.4375, 36, 0)
	pt3dadd(131.396, 97.998, 36, 0)
	pt3dadd(131.836, 97.5586, 36, 0)
	pt3dadd(132.275, 97.1191, 35, 0)
	pt3dadd(132.715, 97.1191, 35, 0)
  }
  dend[174] {pt3dclear()
	pt3dadd(172.705, 79.541, 33, 0)
	pt3dadd(172.705, 79.541, 33, 0)
	pt3dadd(173.145, 79.9805, 34, 0)
	pt3dadd(173.584, 79.9805, 34, 0)
	pt3dadd(174.023, 79.9805, 34, 0)
	pt3dadd(174.463, 79.9805, 34, 0)
	pt3dadd(174.902, 79.9805, 34, 0)
	pt3dadd(175.342, 79.9805, 34, 0)
	pt3dadd(175.781, 79.9805, 34, 0)
	pt3dadd(176.221, 79.9805, 34, 0)
	pt3dadd(176.66, 79.541, 34, 0)
	pt3dadd(177.1, 79.1016, 34, 0)
	pt3dadd(177.539, 79.1016, 34, 0)
	pt3dadd(177.979, 78.6621, 33, 0)
	pt3dadd(178.418, 78.2227, 33, 0)
	pt3dadd(178.857, 77.7832, 33, 0)
	pt3dadd(179.297, 77.7832, 33, 0)
	pt3dadd(179.736, 77.7832, 33, 0)
	pt3dadd(180.176, 77.7832, 33, 0)
  }
  dend[175] {pt3dclear()
	pt3dadd(129.639, 100.635, 35, 0)
	pt3dadd(129.639, 100.635, 35, 0)
	pt3dadd(129.199, 100.635, 34, 0)
	pt3dadd(128.76, 100.635, 33, 0)
	pt3dadd(128.76, 100.635, 32, 0)
	pt3dadd(128.32, 100.195, 31, 0)
	pt3dadd(128.32, 99.7559, 30, 0)
	pt3dadd(127.881, 99.3164, 29, 0)
	pt3dadd(127.441, 99.3164, 28, 0)
	pt3dadd(127.002, 98.877, 28, 0)
	pt3dadd(126.562, 98.4375, 28, 0)
	pt3dadd(126.562, 97.998, 28, 0)
	pt3dadd(126.562, 97.5586, 28, 0)
	pt3dadd(126.562, 97.1191, 28, 0)
	pt3dadd(126.562, 96.6797, 27, 0)
	pt3dadd(126.562, 96.6797, 26, 0)
	pt3dadd(126.562, 96.2402, 25, 0)
	pt3dadd(126.562, 95.8008, 25, 0)
	pt3dadd(126.562, 95.3613, 25, 0)
	pt3dadd(126.562, 94.9219, 25, 0)
	pt3dadd(126.123, 94.4824, 25, 0)
	pt3dadd(126.123, 94.043, 25, 0)
	pt3dadd(126.123, 93.6035, 26, 0)
	pt3dadd(125.684, 93.1641, 26, 0)
	pt3dadd(125.684, 92.7246, 26, 0)
	pt3dadd(125.684, 92.2852, 26, 0)
	pt3dadd(125.684, 91.8457, 26, 0)
	pt3dadd(125.684, 91.4062, 26, 0)
	pt3dadd(126.123, 90.9668, 26, 0)
	pt3dadd(126.123, 90.5273, 26, 0)
	pt3dadd(125.684, 90.0879, 26, 0)
	pt3dadd(125.244, 89.6484, 26, 0)
	pt3dadd(125.684, 89.209, 26, 0)
	pt3dadd(126.123, 88.7695, 25, 0)
	pt3dadd(126.562, 88.3301, 24, 0)
	pt3dadd(126.562, 87.8906, 23, 0)
	pt3dadd(127.002, 87.4512, 22, 0)
	pt3dadd(127.441, 87.0117, 22, 0)
	pt3dadd(127.441, 86.5723, 22, 0)
	pt3dadd(127.441, 86.1328, 21, 0)
	pt3dadd(127.441, 85.6934, 21, 0)
	pt3dadd(127.441, 85.2539, 21, 0)
	pt3dadd(127.441, 84.8145, 21, 0)
	pt3dadd(127.881, 84.375, 22, 0)
	pt3dadd(127.881, 83.9355, 22, 0)
	pt3dadd(127.881, 83.4961, 22, 0)
	pt3dadd(127.881, 83.0566, 22, 0)
  }
  dend[176] {pt3dclear()
	pt3dadd(63.2812, 110.742, 36, 0)
	pt3dadd(63.2812, 110.742, 36, 0)
	pt3dadd(63.2812, 110.303, 36, 0)
	pt3dadd(63.2812, 109.863, 36, 0)
	pt3dadd(62.8418, 109.424, 36, 0)
	pt3dadd(62.4023, 108.984, 36, 0)
	pt3dadd(61.9629, 108.984, 36, 0)
	pt3dadd(61.5234, 108.984, 37, 0)
	pt3dadd(61.084, 108.545, 37, 0)
	pt3dadd(60.6445, 108.105, 37, 0)
	pt3dadd(60.2051, 107.666, 37, 0)
	pt3dadd(59.7656, 107.227, 37, 0)
	pt3dadd(59.3262, 106.787, 38, 0)
	pt3dadd(59.3262, 106.348, 38, 0)
	pt3dadd(58.8867, 105.908, 39, 0)
	pt3dadd(58.4473, 105.908, 39, 0)
	pt3dadd(58.0078, 105.908, 39, 0)
	pt3dadd(57.5684, 105.908, 39, 0)
	pt3dadd(57.1289, 105.469, 39, 0)
	pt3dadd(56.6895, 105.469, 39, 0)
	pt3dadd(56.25, 105.469, 39, 0)
	pt3dadd(55.8105, 105.469, 39, 0)
	pt3dadd(55.3711, 105.469, 39, 0)
	pt3dadd(54.9316, 105.469, 39, 0)
	pt3dadd(54.4922, 105.029, 38, 0)
	pt3dadd(54.0527, 105.029, 37, 0)
	pt3dadd(53.6133, 105.029, 37, 0)
	pt3dadd(53.1738, 105.469, 37, 0)
	pt3dadd(52.7344, 105.469, 37, 0)
	pt3dadd(52.2949, 105.469, 37, 0)
	pt3dadd(51.8555, 105.029, 37, 0)
	pt3dadd(51.416, 104.59, 37, 0)
	pt3dadd(50.9766, 104.15, 37, 0)
	pt3dadd(50.9766, 103.711, 37, 0)
	pt3dadd(50.5371, 103.271, 37, 0)
	pt3dadd(50.0977, 103.271, 37, 0)
	pt3dadd(49.6582, 103.271, 37, 0)
	pt3dadd(49.2188, 102.832, 37, 0)
	pt3dadd(48.7793, 102.393, 37, 0)
	pt3dadd(48.3398, 101.953, 38, 0)
	pt3dadd(47.9004, 101.514, 38, 0)
	pt3dadd(47.4609, 101.074, 39, 0)
	pt3dadd(47.0215, 101.074, 39, 0)
	pt3dadd(46.582, 100.635, 39, 0)
	pt3dadd(46.1426, 100.635, 39, 0)
	pt3dadd(45.7031, 100.195, 39, 0)
	pt3dadd(45.2637, 99.7559, 39, 0)
	pt3dadd(44.8242, 99.3164, 39, 0)
	pt3dadd(44.3848, 99.3164, 39, 0)
	pt3dadd(43.9453, 98.877, 39, 0)
	pt3dadd(43.5059, 98.4375, 39, 0)
	pt3dadd(43.0664, 98.4375, 39, 0)
	pt3dadd(42.627, 98.4375, 39, 0)
	pt3dadd(42.1875, 98.4375, 39, 0)
	pt3dadd(41.748, 97.998, 39, 0)
	pt3dadd(41.3086, 97.5586, 39, 0)
  }
  dend[177] {pt3dclear()
	pt3dadd(66.3574, 96.2402, 39, 0)
	pt3dadd(66.3574, 96.2402, 39, 0)
	pt3dadd(66.3574, 95.8008, 39, 0)
	pt3dadd(66.3574, 95.3613, 39, 0)
	pt3dadd(65.918, 94.9219, 39, 0)
	pt3dadd(65.4785, 94.4824, 39, 0)
	pt3dadd(65.4785, 94.043, 39, 0)
	pt3dadd(65.4785, 93.6035, 39, 0)
	pt3dadd(65.0391, 93.1641, 40, 0)
	pt3dadd(65.0391, 92.7246, 40, 0)
	pt3dadd(65.0391, 92.2852, 40, 0)
	pt3dadd(65.0391, 91.8457, 40, 0)
	pt3dadd(64.5996, 91.4062, 40, 0)
	pt3dadd(64.1602, 90.9668, 40, 0)
	pt3dadd(63.7207, 90.5273, 40, 0)
	pt3dadd(63.2812, 90.5273, 40, 0)
	pt3dadd(62.8418, 90.0879, 40, 0)
  }
  dend[178] {pt3dclear()
	pt3dadd(69.4336, 90.9668, 39, 0)
	pt3dadd(69.4336, 90.9668, 39, 0)
	pt3dadd(68.9941, 90.9668, 39, 0)
	pt3dadd(68.5547, 90.5273, 39, 0)
	pt3dadd(68.5547, 90.0879, 39, 0)
	pt3dadd(68.9941, 89.6484, 39, 0)
	pt3dadd(68.9941, 89.209, 39, 0)
	pt3dadd(68.9941, 88.7695, 39, 0)
	pt3dadd(68.9941, 88.3301, 39, 0)
	pt3dadd(68.9941, 87.8906, 39, 0)
	pt3dadd(68.5547, 87.4512, 39, 0)
	pt3dadd(68.1152, 87.0117, 39, 0)
	pt3dadd(68.1152, 86.5723, 39, 0)
	pt3dadd(68.1152, 86.1328, 39, 0)
	pt3dadd(68.1152, 85.6934, 39, 0)
	pt3dadd(68.5547, 85.2539, 39, 0)
  }
  dend[179] {pt3dclear()
	pt3dadd(68.1152, 106.787, 35, 0)
	pt3dadd(68.1152, 106.787, 35, 0)
	pt3dadd(68.5547, 106.787, 35, 0)
	pt3dadd(68.9941, 106.348, 35, 0)
	pt3dadd(69.4336, 106.348, 34, 0)
	pt3dadd(69.873, 106.348, 33, 0)
	pt3dadd(70.3125, 106.348, 33, 0)
	pt3dadd(70.752, 106.348, 33, 0)
	pt3dadd(71.1914, 106.348, 33, 0)
	pt3dadd(71.6309, 106.348, 33, 0)
	pt3dadd(72.0703, 106.348, 32, 0)
	pt3dadd(72.5098, 106.348, 32, 0)
	pt3dadd(72.9492, 106.348, 32, 0)
	pt3dadd(73.3887, 106.348, 32, 0)
	pt3dadd(73.8281, 105.908, 32, 0)
	pt3dadd(74.2676, 105.908, 32, 0)
	pt3dadd(74.707, 105.469, 32, 0)
	pt3dadd(75.1465, 105.029, 32, 0)
	pt3dadd(75.5859, 104.59, 32, 0)
	pt3dadd(76.0254, 104.15, 32, 0)
	pt3dadd(76.0254, 103.711, 32, 0)
	pt3dadd(76.0254, 104.15, 32, 0)
	pt3dadd(76.0254, 104.59, 32, 0)
	pt3dadd(75.5859, 105.029, 31, 0)
	pt3dadd(75.5859, 105.029, 30, 0)
	pt3dadd(76.0254, 104.59, 30, 0)
	pt3dadd(76.4648, 104.15, 29, 0)
	pt3dadd(76.9043, 103.711, 29, 0)
	pt3dadd(77.3438, 103.271, 29, 0)
  }
}
proc shape3d_27() {
  dend[179] {	pt3dadd(77.7832, 102.832, 29, 0)
	pt3dadd(77.7832, 102.393, 29, 0)
	pt3dadd(78.2227, 101.953, 29, 0)
	pt3dadd(78.6621, 101.514, 29, 0)
	pt3dadd(79.1016, 101.074, 29, 0)
	pt3dadd(79.541, 100.635, 28, 0)
	pt3dadd(79.9805, 100.195, 28, 0)
	pt3dadd(80.4199, 99.7559, 27, 0)
	pt3dadd(80.4199, 99.3164, 27, 0)
	pt3dadd(80.8594, 98.877, 26, 0)
	pt3dadd(81.2988, 98.4375, 26, 0)
	pt3dadd(81.7383, 97.998, 26, 0)
	pt3dadd(81.7383, 97.5586, 26, 0)
	pt3dadd(81.7383, 97.1191, 26, 0)
	pt3dadd(82.1777, 96.6797, 27, 0)
	pt3dadd(82.6172, 96.6797, 28, 0)
	pt3dadd(83.0566, 96.6797, 28, 0)
	pt3dadd(83.4961, 97.1191, 28, 0)
	pt3dadd(83.0566, 96.6797, 28, 0)
	pt3dadd(82.6172, 96.6797, 28, 0)
	pt3dadd(82.1777, 96.6797, 27, 0)
	pt3dadd(82.1777, 97.1191, 26, 0)
	pt3dadd(82.6172, 96.6797, 25, 0)
	pt3dadd(82.6172, 96.2402, 24, 0)
	pt3dadd(82.6172, 95.8008, 24, 0)
	pt3dadd(83.0566, 95.3613, 24, 0)
	pt3dadd(83.0566, 94.9219, 24, 0)
	pt3dadd(83.0566, 94.4824, 24, 0)
	pt3dadd(83.0566, 94.043, 24, 0)
	pt3dadd(83.0566, 93.6035, 24, 0)
	pt3dadd(83.4961, 93.1641, 24, 0)
	pt3dadd(83.9355, 92.7246, 24, 0)
	pt3dadd(83.4961, 92.7246, 24, 0)
	pt3dadd(83.0566, 92.2852, 23, 0)
	pt3dadd(82.6172, 91.8457, 22, 0)
	pt3dadd(82.1777, 91.4062, 21, 0)
	pt3dadd(81.7383, 90.9668, 20, 0)
	pt3dadd(81.7383, 90.5273, 19, 0)
	pt3dadd(81.2988, 90.0879, 18, 0)
	pt3dadd(80.8594, 89.6484, 18, 0)
	pt3dadd(80.4199, 89.6484, 18, 0)
	pt3dadd(79.9805, 89.209, 18, 0)
	pt3dadd(79.541, 88.7695, 19, 0)
	pt3dadd(79.1016, 88.3301, 19, 0)
  }
  dend[180] {pt3dclear()
	pt3dadd(68.9941, 152.93, 28, 0)
	pt3dadd(68.9941, 152.93, 28, 0)
	pt3dadd(69.4336, 153.369, 28, 0)
	pt3dadd(69.873, 153.809, 28, 0)
	pt3dadd(70.3125, 153.809, 28, 0)
	pt3dadd(70.752, 153.809, 28, 0)
	pt3dadd(71.1914, 153.809, 28, 0)
	pt3dadd(71.6309, 153.809, 28, 0)
	pt3dadd(72.0703, 153.809, 28, 0)
	pt3dadd(72.5098, 153.809, 28, 0)
  }
  dend[181] {pt3dclear()
	pt3dadd(62.4023, 159.082, 27, 0)
	pt3dadd(62.4023, 159.082, 27, 0)
	pt3dadd(61.9629, 159.082, 27, 0)
	pt3dadd(61.5234, 159.082, 27, 0)
	pt3dadd(61.084, 159.082, 27, 0)
	pt3dadd(60.6445, 158.643, 27, 0)
	pt3dadd(60.2051, 158.203, 27, 0)
	pt3dadd(59.7656, 158.203, 27, 0)
	pt3dadd(59.3262, 157.764, 27, 0)
	pt3dadd(58.8867, 157.764, 27, 0)
	pt3dadd(58.4473, 157.764, 28, 0)
  }
  dend[182] {pt3dclear()
	pt3dadd(48.7793, 174.463, 28, 0)
	pt3dadd(48.7793, 174.463, 28, 0)
	pt3dadd(48.7793, 174.023, 28, 0)
	pt3dadd(48.7793, 173.584, 27, 0)
	pt3dadd(49.2188, 173.145, 27, 0)
	pt3dadd(49.6582, 172.705, 27, 0)
	pt3dadd(49.2188, 172.266, 27, 0)
	pt3dadd(49.2188, 171.826, 27, 0)
	pt3dadd(49.2188, 171.387, 27, 0)
	pt3dadd(48.7793, 170.947, 27, 0)
	pt3dadd(48.3398, 170.508, 27, 0)
	pt3dadd(47.9004, 170.068, 27, 0)
	pt3dadd(47.4609, 169.629, 28, 0)
	pt3dadd(47.0215, 169.629, 28, 0)
  }
  dend[183] {pt3dclear()
	pt3dadd(48.3398, 175.781, 28, 0)
	pt3dadd(48.3398, 175.781, 28, 0)
	pt3dadd(47.9004, 176.221, 28, 0)
	pt3dadd(47.4609, 176.66, 29, 0)
	pt3dadd(47.0215, 176.66, 29, 0)
	pt3dadd(46.582, 177.1, 29, 0)
	pt3dadd(46.1426, 177.1, 29, 0)
	pt3dadd(45.7031, 177.539, 29, 0)
	pt3dadd(45.2637, 177.539, 29, 0)
	pt3dadd(44.8242, 177.979, 29, 0)
	pt3dadd(44.3848, 178.418, 29, 0)
	pt3dadd(43.9453, 178.857, 29, 0)
	pt3dadd(43.5059, 179.297, 29, 0)
	pt3dadd(43.0664, 179.736, 29, 0)
	pt3dadd(42.627, 179.736, 28, 0)
	pt3dadd(42.1875, 179.736, 28, 0)
	pt3dadd(41.748, 179.736, 28, 0)
	pt3dadd(42.1875, 180.176, 29, 0)
	pt3dadd(42.1875, 180.615, 29, 0)
	pt3dadd(42.1875, 181.055, 29, 0)
	pt3dadd(42.1875, 181.494, 29, 0)
	pt3dadd(42.1875, 181.934, 29, 0)
	pt3dadd(42.1875, 182.373, 28, 0)
	pt3dadd(42.1875, 182.812, 28, 0)
  }
  dend[184] {pt3dclear()
	pt3dadd(42.1875, 182.812, 28, 0)
	pt3dadd(42.1875, 183.252, 28, 0)
	pt3dadd(42.1875, 183.691, 28, 0)
	pt3dadd(42.1875, 184.131, 28, 0)
	pt3dadd(41.748, 184.57, 29, 0)
	pt3dadd(41.748, 185.01, 29, 0)
	pt3dadd(42.1875, 184.57, 28, 0)
	pt3dadd(42.627, 184.57, 27, 0)
	pt3dadd(43.0664, 185.01, 26, 0)
	pt3dadd(43.0664, 185.449, 26, 0)
	pt3dadd(43.0664, 185.889, 26, 0)
	pt3dadd(43.5059, 186.328, 26, 0)
	pt3dadd(43.9453, 186.768, 25, 0)
  }
  dend[185] {pt3dclear()
	pt3dadd(43.9453, 186.768, 25, 0)
	pt3dadd(43.9453, 187.207, 25, 0)
	pt3dadd(44.3848, 187.646, 25, 0)
	pt3dadd(44.3848, 188.086, 25, 0)
	pt3dadd(44.3848, 188.525, 25, 0)
	pt3dadd(44.3848, 188.965, 25, 0)
	pt3dadd(44.3848, 189.404, 25, 0)
	pt3dadd(44.3848, 189.844, 25, 0)
	pt3dadd(44.3848, 190.283, 25, 0)
	pt3dadd(44.3848, 190.723, 25, 0)
	pt3dadd(44.3848, 191.162, 24, 0)
	pt3dadd(44.3848, 191.602, 24, 0)
	pt3dadd(44.8242, 192.041, 24, 0)
	pt3dadd(45.2637, 192.48, 24, 0)
	pt3dadd(45.2637, 192.92, 24, 0)
	pt3dadd(45.2637, 193.359, 24, 0)
  }
  dend[186] {pt3dclear()
	pt3dadd(45.2637, 193.359, 24, 0)
	pt3dadd(45.2637, 193.799, 24, 0)
	pt3dadd(45.2637, 194.238, 24, 0)
	pt3dadd(45.2637, 194.678, 24, 0)
	pt3dadd(45.2637, 195.117, 24, 0)
	pt3dadd(45.7031, 195.557, 24, 0)
	pt3dadd(45.7031, 195.996, 24, 0)
	pt3dadd(46.1426, 196.436, 24, 0)
	pt3dadd(46.1426, 196.875, 24, 0)
	pt3dadd(46.1426, 197.314, 24, 0)
	pt3dadd(45.7031, 197.754, 24, 0)
	pt3dadd(45.7031, 198.193, 24, 0)
	pt3dadd(45.7031, 198.633, 24, 0)
	pt3dadd(46.1426, 199.072, 25, 0)
	pt3dadd(45.7031, 198.633, 24, 0)
	pt3dadd(45.2637, 199.072, 24, 0)
	pt3dadd(44.8242, 199.512, 24, 0)
	pt3dadd(44.8242, 199.951, 24, 0)
	pt3dadd(44.3848, 200.391, 24, 0)
	pt3dadd(43.9453, 200.83, 24, 0)
	pt3dadd(43.5059, 200.83, 24, 0)
	pt3dadd(43.0664, 201.27, 24, 0)
	pt3dadd(42.627, 201.709, 24, 0)
	pt3dadd(42.1875, 202.148, 25, 0)
	pt3dadd(41.748, 202.588, 25, 0)
	pt3dadd(41.3086, 203.027, 25, 0)
	pt3dadd(41.3086, 203.467, 25, 0)
	pt3dadd(41.3086, 203.906, 25, 0)
	pt3dadd(41.3086, 203.467, 25, 0)
	pt3dadd(41.3086, 203.027, 25, 0)
	pt3dadd(41.3086, 202.588, 26, 0)
	pt3dadd(40.8691, 202.148, 26, 0)
	pt3dadd(40.4297, 202.148, 26, 0)
	pt3dadd(39.9902, 202.148, 26, 0)
	pt3dadd(39.5508, 202.148, 26, 0)
	pt3dadd(39.1113, 202.148, 26, 0)
	pt3dadd(38.6719, 202.148, 27, 0)
	pt3dadd(38.2324, 202.148, 27, 0)
	pt3dadd(37.793, 202.148, 27, 0)
	pt3dadd(37.3535, 202.148, 27, 0)
	pt3dadd(36.9141, 202.148, 27, 0)
	pt3dadd(36.4746, 202.148, 27, 0)
	pt3dadd(36.0352, 202.148, 27, 0)
	pt3dadd(35.5957, 202.148, 27, 0)
	pt3dadd(35.1562, 202.148, 27, 0)
	pt3dadd(34.7168, 202.148, 27, 0)
	pt3dadd(34.2773, 202.588, 26, 0)
	pt3dadd(33.8379, 202.588, 26, 0)
	pt3dadd(33.3984, 202.588, 26, 0)
	pt3dadd(32.959, 203.027, 26, 0)
	pt3dadd(32.5195, 203.467, 26, 0)
	pt3dadd(32.0801, 203.906, 26, 0)
	pt3dadd(31.6406, 204.346, 26, 0)
	pt3dadd(31.2012, 204.346, 26, 0)
  }
  dend[187] {pt3dclear()
	pt3dadd(31.2012, 204.346, 26, 0)
	pt3dadd(30.7617, 204.346, 26, 0)
	pt3dadd(30.3223, 204.346, 26, 0)
	pt3dadd(29.8828, 204.346, 26, 0)
	pt3dadd(29.4434, 204.346, 26, 0)
	pt3dadd(29.0039, 204.785, 26, 0)
	pt3dadd(28.5645, 204.785, 26, 0)
	pt3dadd(28.125, 205.225, 26, 0)
	pt3dadd(27.6855, 205.225, 25, 0)
	pt3dadd(27.2461, 205.225, 25, 0)
	pt3dadd(26.8066, 205.225, 25, 0)
	pt3dadd(26.3672, 205.664, 25, 0)
	pt3dadd(25.9277, 206.104, 25, 0)
	pt3dadd(25.9277, 206.543, 25, 0)
  }
}
proc shape3d_28() {
  dend[187] {	pt3dadd(25.9277, 206.104, 25, 0)
	pt3dadd(25.4883, 205.664, 25, 0)
	pt3dadd(25.0488, 205.664, 25, 0)
	pt3dadd(24.6094, 206.104, 24, 0)
	pt3dadd(24.1699, 206.543, 24, 0)
	pt3dadd(23.7305, 206.543, 24, 0)
	pt3dadd(23.291, 206.543, 24, 0)
	pt3dadd(22.8516, 206.543, 24, 0)
	pt3dadd(22.4121, 206.982, 23, 0)
	pt3dadd(21.9727, 207.422, 23, 0)
	pt3dadd(21.5332, 207.861, 23, 0)
	pt3dadd(21.0938, 208.301, 23, 0)
	pt3dadd(20.6543, 208.74, 23, 0)
	pt3dadd(20.2148, 209.18, 23, 0)
	pt3dadd(19.7754, 209.619, 23, 0)
	pt3dadd(20.2148, 209.18, 23, 0)
	pt3dadd(20.6543, 208.74, 23, 0)
	pt3dadd(21.0938, 208.301, 23, 0)
	pt3dadd(21.0938, 207.861, 22, 0)
	pt3dadd(20.6543, 207.422, 21, 0)
	pt3dadd(20.2148, 206.982, 20, 0)
	pt3dadd(19.7754, 206.982, 20, 0)
	pt3dadd(19.3359, 206.982, 20, 0)
	pt3dadd(18.8965, 207.422, 19, 0)
	pt3dadd(18.457, 207.422, 19, 0)
	pt3dadd(18.0176, 207.861, 19, 0)
	pt3dadd(17.5781, 207.861, 19, 0)
	pt3dadd(17.1387, 207.422, 19, 0)
	pt3dadd(16.6992, 207.422, 19, 0)
	pt3dadd(16.2598, 207.422, 19, 0)
	pt3dadd(16.6992, 207.422, 19, 0)
	pt3dadd(17.1387, 207.422, 19, 0)
	pt3dadd(17.5781, 207.861, 19, 0)
	pt3dadd(17.5781, 208.301, 18, 0)
	pt3dadd(17.5781, 208.74, 17, 0)
  }
  dend[188] {pt3dclear()
	pt3dadd(17.5781, 208.74, 17, 0)
	pt3dadd(17.1387, 209.18, 18, 0)
	pt3dadd(16.6992, 209.18, 18, 0)
	pt3dadd(16.2598, 209.619, 18, 0)
	pt3dadd(15.8203, 210.059, 17, 0)
	pt3dadd(15.3809, 210.059, 17, 0)
	pt3dadd(14.9414, 210.059, 16, 0)
  }
  dend[189] {pt3dclear()
	pt3dadd(50.0977, 173.145, 27, 0)
	pt3dadd(50.0977, 173.145, 27, 0)
	pt3dadd(50.5371, 173.145, 27, 0)
	pt3dadd(50.9766, 173.145, 27, 0)
	pt3dadd(51.416, 173.584, 26, 0)
	pt3dadd(51.416, 174.023, 26, 0)
	pt3dadd(51.416, 174.463, 26, 0)
	pt3dadd(51.8555, 174.902, 26, 0)
	pt3dadd(51.8555, 175.342, 26, 0)
	pt3dadd(51.8555, 175.781, 25, 0)
	pt3dadd(52.2949, 175.781, 25, 0)
	pt3dadd(52.7344, 175.781, 25, 0)
	pt3dadd(53.1738, 175.781, 25, 0)
	pt3dadd(53.6133, 176.221, 25, 0)
	pt3dadd(54.0527, 176.66, 25, 0)
	pt3dadd(54.0527, 177.1, 25, 0)
	pt3dadd(54.0527, 177.539, 25, 0)
	pt3dadd(54.4922, 177.979, 25, 0)
	pt3dadd(54.4922, 178.418, 25, 0)
	pt3dadd(54.9316, 178.857, 25, 0)
	pt3dadd(54.9316, 179.297, 25, 0)
	pt3dadd(54.9316, 179.736, 25, 0)
	pt3dadd(55.3711, 180.176, 25, 0)
	pt3dadd(55.8105, 180.615, 25, 0)
  }
  dend[190] {pt3dclear()
	pt3dadd(70.3125, 148.096, 28, 0)
	pt3dadd(70.3125, 148.096, 28, 0)
	pt3dadd(69.873, 148.096, 28, 0)
	pt3dadd(69.4336, 148.096, 28, 0)
	pt3dadd(68.9941, 148.096, 28, 0)
	pt3dadd(68.5547, 148.096, 28, 0)
	pt3dadd(68.1152, 148.535, 28, 0)
	pt3dadd(67.6758, 148.535, 28, 0)
	pt3dadd(67.2363, 148.535, 29, 0)
	pt3dadd(66.7969, 148.535, 29, 0)
	pt3dadd(66.3574, 148.535, 29, 0)
	pt3dadd(65.918, 148.535, 29, 0)
	pt3dadd(65.4785, 148.535, 29, 0)
	pt3dadd(65.0391, 148.535, 29, 0)
	pt3dadd(64.5996, 148.535, 30, 0)
	pt3dadd(64.1602, 148.535, 30, 0)
	pt3dadd(63.7207, 148.535, 30, 0)
	pt3dadd(63.2812, 148.535, 30, 0)
	pt3dadd(62.8418, 148.975, 30, 0)
	pt3dadd(62.4023, 148.975, 30, 0)
	pt3dadd(61.9629, 148.975, 30, 0)
	pt3dadd(61.5234, 148.975, 30, 0)
  }
  dend[191] {pt3dclear()
	pt3dadd(61.5234, 148.975, 30, 0)
	pt3dadd(61.084, 149.414, 30, 0)
	pt3dadd(60.6445, 149.414, 30, 0)
	pt3dadd(60.2051, 149.854, 30, 0)
	pt3dadd(60.2051, 150.293, 30, 0)
	pt3dadd(59.7656, 150.732, 30, 0)
	pt3dadd(59.3262, 151.172, 30, 0)
	pt3dadd(58.8867, 151.172, 29, 0)
	pt3dadd(58.4473, 151.611, 29, 0)
	pt3dadd(58.0078, 151.611, 30, 0)
  }
  dend[192] {pt3dclear()
	pt3dadd(58.0078, 151.611, 30, 0)
	pt3dadd(57.5684, 151.611, 30, 0)
	pt3dadd(57.1289, 151.611, 30, 0)
	pt3dadd(56.6895, 151.172, 30, 0)
	pt3dadd(56.25, 151.172, 30, 0)
	pt3dadd(55.8105, 151.172, 30, 0)
	pt3dadd(55.3711, 151.172, 30, 0)
	pt3dadd(54.9316, 151.172, 30, 0)
	pt3dadd(54.4922, 150.732, 30, 0)
	pt3dadd(54.0527, 150.293, 30, 0)
	pt3dadd(53.6133, 150.293, 30, 0)
	pt3dadd(53.1738, 149.854, 30, 0)
  }
  dend[193] {pt3dclear()
	pt3dadd(53.1738, 149.854, 30, 0)
	pt3dadd(52.7344, 149.854, 30, 0)
	pt3dadd(52.2949, 149.854, 30, 0)
	pt3dadd(51.8555, 149.854, 30, 0)
	pt3dadd(51.416, 149.854, 30, 0)
	pt3dadd(50.9766, 149.414, 30, 0)
	pt3dadd(50.5371, 149.414, 30, 0)
	pt3dadd(50.0977, 149.414, 30, 0)
	pt3dadd(49.6582, 149.854, 29, 0)
	pt3dadd(50.0977, 149.414, 30, 0)
	pt3dadd(49.6582, 148.975, 30, 0)
	pt3dadd(49.6582, 148.535, 30, 0)
	pt3dadd(49.2188, 148.096, 30, 0)
	pt3dadd(48.7793, 148.096, 30, 0)
	pt3dadd(48.3398, 148.096, 30, 0)
	pt3dadd(47.9004, 148.096, 30, 0)
	pt3dadd(47.4609, 148.535, 30, 0)
	pt3dadd(47.0215, 148.975, 30, 0)
	pt3dadd(46.582, 148.975, 30, 0)
	pt3dadd(46.1426, 148.975, 30, 0)
	pt3dadd(45.7031, 148.975, 31, 0)
	pt3dadd(45.2637, 148.975, 31, 0)
	pt3dadd(44.8242, 148.975, 31, 0)
	pt3dadd(44.3848, 148.975, 31, 0)
	pt3dadd(43.9453, 148.975, 31, 0)
	pt3dadd(43.5059, 148.975, 31, 0)
	pt3dadd(43.0664, 148.975, 31, 0)
	pt3dadd(42.627, 148.975, 31, 0)
	pt3dadd(42.1875, 148.975, 31, 0)
	pt3dadd(41.748, 148.975, 31, 0)
	pt3dadd(41.3086, 148.975, 31, 0)
	pt3dadd(40.8691, 148.975, 31, 0)
	pt3dadd(40.4297, 148.535, 31, 0)
	pt3dadd(39.9902, 148.975, 31, 0)
	pt3dadd(39.9902, 149.414, 31, 0)
	pt3dadd(39.9902, 149.854, 31, 0)
	pt3dadd(39.5508, 150.293, 31, 0)
	pt3dadd(39.1113, 150.732, 31, 0)
	pt3dadd(38.6719, 150.732, 31, 0)
	pt3dadd(38.2324, 151.172, 31, 0)
	pt3dadd(37.793, 151.611, 30, 0)
	pt3dadd(37.3535, 152.051, 30, 0)
	pt3dadd(36.9141, 152.49, 30, 0)
	pt3dadd(36.4746, 152.93, 30, 0)
	pt3dadd(36.4746, 153.369, 29, 0)
	pt3dadd(36.0352, 153.809, 29, 0)
	pt3dadd(35.5957, 154.248, 29, 0)
	pt3dadd(35.1562, 154.688, 29, 0)
	pt3dadd(34.7168, 155.127, 29, 0)
	pt3dadd(34.7168, 155.566, 29, 0)
	pt3dadd(34.7168, 156.006, 29, 0)
	pt3dadd(34.2773, 156.445, 30, 0)
	pt3dadd(33.8379, 156.445, 30, 0)
	pt3dadd(33.3984, 156.445, 30, 0)
	pt3dadd(32.959, 156.445, 30, 0)
	pt3dadd(32.5195, 156.445, 31, 0)
	pt3dadd(32.0801, 156.445, 31, 0)
	pt3dadd(31.6406, 156.885, 32, 0)
	pt3dadd(31.2012, 156.885, 32, 0)
	pt3dadd(30.7617, 156.885, 32, 0)
	pt3dadd(30.3223, 156.885, 33, 0)
	pt3dadd(29.8828, 156.885, 33, 0)
	pt3dadd(29.4434, 156.885, 33, 0)
	pt3dadd(29.0039, 156.885, 33, 0)
	pt3dadd(28.5645, 156.885, 33, 0)
	pt3dadd(28.125, 156.885, 33, 0)
	pt3dadd(27.6855, 156.885, 33, 0)
	pt3dadd(27.2461, 156.885, 33, 0)
	pt3dadd(26.8066, 156.885, 33, 0)
	pt3dadd(26.3672, 156.885, 33, 0)
	pt3dadd(25.9277, 156.885, 33, 0)
	pt3dadd(25.4883, 156.885, 33, 0)
	pt3dadd(25.0488, 157.324, 33, 0)
	pt3dadd(24.6094, 157.764, 32, 0)
	pt3dadd(24.1699, 158.203, 31, 0)
	pt3dadd(24.1699, 158.643, 31, 0)
	pt3dadd(24.1699, 159.082, 31, 0)
	pt3dadd(24.1699, 159.521, 30, 0)
	pt3dadd(23.7305, 159.961, 30, 0)
	pt3dadd(23.291, 160.4, 29, 0)
	pt3dadd(22.8516, 160.84, 28, 0)
	pt3dadd(22.8516, 161.279, 28, 0)
  }
  dend[194] {pt3dclear()
	pt3dadd(71.1914, 159.521, 17, 0)
	pt3dadd(71.1914, 159.521, 17, 0)
	pt3dadd(70.752, 159.521, 17, 0)
	pt3dadd(70.3125, 159.521, 17, 0)
	pt3dadd(69.873, 159.521, 17, 0)
	pt3dadd(69.4336, 159.961, 17, 0)
	pt3dadd(68.9941, 160.4, 17, 0)
	pt3dadd(68.5547, 160.84, 17, 0)
  }
}
proc shape3d_29() {
  dend[194] {	pt3dadd(68.1152, 160.84, 17, 0)
	pt3dadd(67.6758, 160.84, 17, 0)
	pt3dadd(67.2363, 160.84, 17, 0)
	pt3dadd(66.7969, 160.84, 17, 0)
	pt3dadd(66.3574, 161.279, 17, 0)
	pt3dadd(65.918, 161.279, 17, 0)
	pt3dadd(65.918, 161.719, 17, 0)
	pt3dadd(66.3574, 162.158, 18, 0)
	pt3dadd(66.7969, 162.598, 19, 0)
	pt3dadd(66.7969, 163.037, 19, 0)
	pt3dadd(66.3574, 163.477, 19, 0)
	pt3dadd(65.918, 163.916, 19, 0)
  }
  dend[195] {pt3dclear()
	pt3dadd(69.4336, 166.992, 10, 0)
	pt3dadd(69.4336, 166.992, 10, 0)
	pt3dadd(68.9941, 166.553, 10, 0)
	pt3dadd(68.5547, 166.553, 10, 0)
	pt3dadd(68.1152, 166.553, 10, 0)
	pt3dadd(67.6758, 166.553, 9, 0)
	pt3dadd(67.2363, 166.992, 10, 0)
	pt3dadd(66.7969, 166.992, 10, 0)
  }
  dend[196] {pt3dclear()
	pt3dadd(74.707, 148.096, 21, 0)
	pt3dadd(74.707, 148.096, 21, 0)
	pt3dadd(74.2676, 148.535, 21, 0)
	pt3dadd(73.8281, 148.975, 20, 0)
	pt3dadd(73.3887, 148.535, 19, 0)
	pt3dadd(72.9492, 148.535, 18, 0)
	pt3dadd(72.5098, 148.975, 18, 0)
	pt3dadd(72.0703, 148.975, 17, 0)
	pt3dadd(71.6309, 148.975, 17, 0)
	pt3dadd(71.1914, 149.414, 16, 0)
	pt3dadd(70.752, 149.414, 16, 0)
	pt3dadd(70.3125, 149.414, 16, 0)
	pt3dadd(69.873, 148.975, 15, 0)
	pt3dadd(69.4336, 148.535, 15, 0)
	pt3dadd(68.9941, 148.535, 15, 0)
	pt3dadd(68.5547, 148.535, 15, 0)
	pt3dadd(68.1152, 148.535, 15, 0)
	pt3dadd(67.6758, 148.535, 15, 0)
	pt3dadd(67.2363, 148.096, 15, 0)
	pt3dadd(66.7969, 148.096, 15, 0)
	pt3dadd(66.3574, 148.096, 15, 0)
	pt3dadd(65.918, 148.096, 15, 0)
	pt3dadd(65.4785, 148.096, 15, 0)
	pt3dadd(65.0391, 147.656, 15, 0)
	pt3dadd(64.5996, 147.656, 15, 0)
	pt3dadd(64.1602, 147.217, 16, 0)
	pt3dadd(63.7207, 146.777, 16, 0)
	pt3dadd(63.2812, 146.338, 16, 0)
	pt3dadd(63.7207, 146.777, 16, 0)
	pt3dadd(64.1602, 147.217, 16, 0)
	pt3dadd(64.5996, 147.656, 15, 0)
	pt3dadd(64.1602, 148.096, 14, 0)
	pt3dadd(63.7207, 148.096, 14, 0)
	pt3dadd(63.2812, 148.535, 14, 0)
	pt3dadd(62.8418, 148.975, 14, 0)
	pt3dadd(62.4023, 149.414, 14, 0)
	pt3dadd(61.9629, 149.854, 14, 0)
	pt3dadd(61.5234, 150.293, 14, 0)
	pt3dadd(61.084, 150.732, 14, 0)
	pt3dadd(60.6445, 150.732, 14, 0)
	pt3dadd(60.2051, 151.172, 14, 0)
	pt3dadd(59.7656, 151.611, 13, 0)
	pt3dadd(59.3262, 151.611, 12, 0)
	pt3dadd(58.8867, 152.051, 12, 0)
	pt3dadd(58.4473, 152.051, 12, 0)
	pt3dadd(58.0078, 152.49, 12, 0)
	pt3dadd(57.5684, 152.49, 12, 0)
	pt3dadd(57.1289, 152.49, 13, 0)
	pt3dadd(56.6895, 152.051, 14, 0)
	pt3dadd(57.1289, 152.49, 13, 0)
	pt3dadd(57.5684, 152.49, 12, 0)
	pt3dadd(57.1289, 152.93, 11, 0)
	pt3dadd(57.1289, 152.93, 10, 0)
	pt3dadd(57.1289, 153.369, 10, 0)
	pt3dadd(56.6895, 153.809, 10, 0)
	pt3dadd(56.25, 154.248, 9, 0)
	pt3dadd(56.25, 154.688, 9, 0)
	pt3dadd(56.25, 155.127, 9, 0)
	pt3dadd(55.8105, 155.566, 9, 0)
	pt3dadd(55.3711, 156.006, 10, 0)
	pt3dadd(54.9316, 156.445, 10, 0)
	pt3dadd(54.4922, 156.445, 10, 0)
	pt3dadd(54.0527, 156.885, 11, 0)
	pt3dadd(54.0527, 157.324, 12, 0)
	pt3dadd(53.6133, 157.764, 13, 0)
	pt3dadd(53.6133, 158.203, 13, 0)
	pt3dadd(53.1738, 158.643, 13, 0)
	pt3dadd(52.7344, 159.082, 13, 0)
	pt3dadd(52.2949, 159.082, 13, 0)
	pt3dadd(51.8555, 159.082, 13, 0)
	pt3dadd(51.416, 159.082, 13, 0)
	pt3dadd(50.9766, 159.082, 13, 0)
	pt3dadd(50.5371, 159.521, 12, 0)
	pt3dadd(50.9766, 159.961, 11, 0)
	pt3dadd(50.5371, 159.961, 11, 0)
	pt3dadd(50.0977, 159.521, 12, 0)
	pt3dadd(49.6582, 159.961, 13, 0)
	pt3dadd(49.2188, 160.4, 13, 0)
	pt3dadd(48.7793, 160.84, 14, 0)
	pt3dadd(48.3398, 160.84, 15, 0)
	pt3dadd(47.9004, 161.279, 15, 0)
	pt3dadd(47.4609, 161.719, 15, 0)
	pt3dadd(47.9004, 161.279, 15, 0)
	pt3dadd(48.3398, 160.84, 15, 0)
	pt3dadd(48.7793, 160.84, 16, 0)
	pt3dadd(48.7793, 160.4, 17, 0)
	pt3dadd(48.7793, 160.4, 18, 0)
	pt3dadd(49.2188, 160.84, 19, 0)
	pt3dadd(49.6582, 161.279, 19, 0)
	pt3dadd(49.2188, 160.84, 19, 0)
	pt3dadd(48.7793, 160.84, 20, 0)
	pt3dadd(48.3398, 160.84, 21, 0)
	pt3dadd(47.9004, 161.279, 22, 0)
	pt3dadd(47.9004, 161.719, 23, 0)
	pt3dadd(47.4609, 161.719, 24, 0)
	pt3dadd(47.0215, 161.279, 24, 0)
	pt3dadd(46.582, 161.279, 24, 0)
	pt3dadd(46.1426, 161.279, 24, 0)
	pt3dadd(45.7031, 161.279, 24, 0)
	pt3dadd(45.2637, 161.279, 24, 0)
	pt3dadd(44.8242, 161.279, 24, 0)
	pt3dadd(44.3848, 161.719, 24, 0)
	pt3dadd(43.9453, 161.719, 24, 0)
	pt3dadd(43.5059, 161.719, 24, 0)
	pt3dadd(43.0664, 162.158, 24, 0)
	pt3dadd(42.627, 162.158, 24, 0)
	pt3dadd(42.1875, 162.158, 24, 0)
	pt3dadd(41.748, 161.719, 23, 0)
	pt3dadd(41.3086, 162.158, 23, 0)
	pt3dadd(40.8691, 162.158, 23, 0)
	pt3dadd(40.4297, 162.598, 22, 0)
	pt3dadd(39.9902, 163.037, 22, 0)
	pt3dadd(39.5508, 163.037, 22, 0)
	pt3dadd(39.1113, 163.037, 22, 0)
	pt3dadd(38.6719, 163.477, 22, 0)
	pt3dadd(38.2324, 163.916, 22, 0)
	pt3dadd(37.793, 163.916, 22, 0)
	pt3dadd(37.3535, 164.355, 22, 0)
	pt3dadd(36.9141, 164.355, 22, 0)
	pt3dadd(36.4746, 164.355, 22, 0)
	pt3dadd(36.0352, 164.795, 22, 0)
	pt3dadd(35.5957, 164.795, 22, 0)
	pt3dadd(35.1562, 165.234, 23, 0)
	pt3dadd(35.1562, 165.674, 23, 0)
	pt3dadd(35.1562, 166.113, 23, 0)
	pt3dadd(35.1562, 166.553, 23, 0)
  }
  dend[197] {pt3dclear()
	pt3dadd(122.607, 90.0879, 35, 0)
	pt3dadd(122.607, 90.0879, 35, 0)
	pt3dadd(123.047, 90.0879, 35, 0)
	pt3dadd(123.486, 90.5273, 34, 0)
	pt3dadd(123.486, 90.9668, 34, 0)
	pt3dadd(123.926, 91.4062, 34, 0)
	pt3dadd(124.365, 91.8457, 34, 0)
	pt3dadd(124.805, 91.8457, 34, 0)
	pt3dadd(125.244, 91.8457, 34, 0)
	pt3dadd(125.684, 91.8457, 34, 0)
	pt3dadd(126.123, 92.2852, 34, 0)
	pt3dadd(126.562, 92.7246, 34, 0)
	pt3dadd(127.002, 92.7246, 34, 0)
	pt3dadd(127.441, 92.7246, 34, 0)
	pt3dadd(127.881, 92.7246, 34, 0)
	pt3dadd(128.32, 92.7246, 34, 0)
	pt3dadd(128.76, 92.7246, 34, 0)
	pt3dadd(129.199, 92.7246, 34, 0)
	pt3dadd(129.639, 92.7246, 34, 0)
	pt3dadd(130.078, 92.2852, 34, 0)
	pt3dadd(130.518, 91.8457, 34, 0)
	pt3dadd(130.957, 91.4062, 34, 0)
  }
  dend[198] {pt3dclear()
	pt3dadd(118.213, 91.4062, 35, 0)
	pt3dadd(118.213, 91.4062, 35, 0)
	pt3dadd(117.773, 91.8457, 35, 0)
	pt3dadd(117.334, 91.8457, 35, 0)
	pt3dadd(116.895, 91.8457, 35, 0)
	pt3dadd(116.455, 91.8457, 35, 0)
	pt3dadd(116.016, 91.4062, 35, 0)
	pt3dadd(115.576, 90.9668, 36, 0)
	pt3dadd(115.137, 90.5273, 36, 0)
	pt3dadd(115.137, 90.0879, 36, 0)
	pt3dadd(114.697, 89.6484, 35, 0)
	pt3dadd(114.258, 89.6484, 35, 0)
	pt3dadd(113.818, 89.209, 34, 0)
	pt3dadd(113.818, 88.7695, 33, 0)
	pt3dadd(113.379, 88.3301, 34, 0)
  }
  dend[199] {pt3dclear()
	pt3dadd(113.818, 94.9219, 35, 0)
	pt3dadd(113.818, 94.9219, 35, 0)
	pt3dadd(113.379, 95.3613, 35, 0)
	pt3dadd(112.939, 95.3613, 35, 0)
	pt3dadd(112.5, 95.8008, 35, 0)
	pt3dadd(112.061, 95.8008, 35, 0)
	pt3dadd(111.621, 96.2402, 35, 0)
	pt3dadd(111.182, 96.2402, 35, 0)
	pt3dadd(110.742, 96.2402, 35, 0)
	pt3dadd(110.303, 95.8008, 36, 0)
	pt3dadd(109.863, 95.8008, 36, 0)
	pt3dadd(109.424, 95.8008, 36, 0)
	pt3dadd(108.984, 95.3613, 36, 0)
	pt3dadd(108.545, 94.9219, 36, 0)
	pt3dadd(108.105, 94.4824, 36, 0)
	pt3dadd(107.666, 94.4824, 36, 0)
	pt3dadd(107.227, 94.043, 36, 0)
  }
}
proc shape3d_30() {
  dend[199] {	pt3dadd(106.787, 94.043, 36, 0)
	pt3dadd(106.348, 94.043, 36, 0)
	pt3dadd(105.908, 94.043, 36, 0)
	pt3dadd(105.469, 94.043, 36, 0)
	pt3dadd(105.029, 93.6035, 36, 0)
  }
  dend[200] {pt3dclear()
	pt3dadd(115.576, 92.2852, 35, 0)
	pt3dadd(115.576, 92.2852, 35, 0)
	pt3dadd(115.576, 92.7246, 35, 0)
	pt3dadd(115.576, 93.1641, 35, 0)
	pt3dadd(115.576, 93.6035, 35, 0)
	pt3dadd(115.576, 94.043, 34, 0)
	pt3dadd(115.576, 94.4824, 34, 0)
	pt3dadd(116.016, 94.9219, 34, 0)
	pt3dadd(116.455, 94.9219, 34, 0)
	pt3dadd(116.895, 94.9219, 33, 0)
	pt3dadd(117.334, 94.9219, 33, 0)
	pt3dadd(117.773, 95.3613, 33, 0)
	pt3dadd(118.213, 95.8008, 33, 0)
	pt3dadd(118.213, 96.2402, 33, 0)
	pt3dadd(118.213, 96.6797, 33, 0)
	pt3dadd(118.213, 97.1191, 33, 0)
	pt3dadd(118.213, 97.5586, 33, 0)
	pt3dadd(118.652, 97.998, 33, 0)
	pt3dadd(118.652, 98.4375, 33, 0)
	pt3dadd(118.652, 98.877, 33, 0)
	pt3dadd(119.092, 99.3164, 33, 0)
	pt3dadd(119.531, 99.7559, 33, 0)
	pt3dadd(119.971, 100.195, 33, 0)
	pt3dadd(119.971, 100.635, 33, 0)
	pt3dadd(120.41, 101.074, 33, 0)
	pt3dadd(120.85, 101.514, 33, 0)
	pt3dadd(121.289, 101.953, 33, 0)
	pt3dadd(121.729, 102.393, 33, 0)
	pt3dadd(121.729, 102.832, 33, 0)
	pt3dadd(121.729, 103.271, 33, 0)
  }
  dend[201] {pt3dclear()
	pt3dadd(121.729, 103.271, 33, 0)
	pt3dadd(121.729, 103.711, 33, 0)
	pt3dadd(121.729, 104.15, 33, 0)
	pt3dadd(121.729, 104.59, 33, 0)
	pt3dadd(121.729, 105.029, 33, 0)
	pt3dadd(121.729, 105.469, 33, 0)
	pt3dadd(121.729, 105.908, 33, 0)
	pt3dadd(121.729, 106.348, 33, 0)
	pt3dadd(121.729, 106.787, 33, 0)
	pt3dadd(121.729, 107.227, 33, 0)
	pt3dadd(122.168, 107.666, 33, 0)
	pt3dadd(122.168, 108.105, 33, 0)
	pt3dadd(122.168, 108.545, 33, 0)
	pt3dadd(122.168, 108.984, 32, 0)
	pt3dadd(122.607, 108.984, 31, 0)
	pt3dadd(123.047, 108.984, 31, 0)
	pt3dadd(123.486, 109.424, 31, 0)
	pt3dadd(123.926, 109.863, 31, 0)
	pt3dadd(124.365, 110.303, 31, 0)
	pt3dadd(124.365, 110.742, 31, 0)
	pt3dadd(124.365, 111.182, 30, 0)
	pt3dadd(124.365, 111.621, 30, 0)
	pt3dadd(124.365, 112.061, 30, 0)
	pt3dadd(124.365, 112.5, 30, 0)
	pt3dadd(124.365, 112.939, 30, 0)
	pt3dadd(124.365, 113.379, 29, 0)
	pt3dadd(124.365, 113.818, 29, 0)
	pt3dadd(124.365, 114.258, 29, 0)
	pt3dadd(124.365, 114.697, 29, 0)
	pt3dadd(124.365, 115.137, 29, 0)
	pt3dadd(124.365, 115.576, 29, 0)
	pt3dadd(124.365, 116.016, 29, 0)
	pt3dadd(124.365, 116.455, 29, 0)
	pt3dadd(124.805, 116.895, 29, 0)
	pt3dadd(124.805, 117.334, 29, 0)
	pt3dadd(124.805, 117.773, 29, 0)
	pt3dadd(124.805, 118.213, 29, 0)
	pt3dadd(124.805, 118.652, 29, 0)
	pt3dadd(124.805, 119.092, 29, 0)
	pt3dadd(124.805, 119.531, 29, 0)
  }
  dend[202] {pt3dclear()
	pt3dadd(121.729, 90.0879, 35, 0)
	pt3dadd(121.729, 90.0879, 35, 0)
	pt3dadd(121.289, 90.5273, 35, 0)
	pt3dadd(120.85, 90.5273, 35, 0)
	pt3dadd(120.41, 90.9668, 35, 0)
	pt3dadd(119.971, 90.9668, 35, 0)
	pt3dadd(119.531, 90.9668, 35, 0)
	pt3dadd(119.092, 90.9668, 35, 0)
	pt3dadd(118.652, 90.9668, 35, 0)
	pt3dadd(118.213, 90.9668, 35, 0)
	pt3dadd(117.773, 90.5273, 34, 0)
	pt3dadd(117.334, 90.0879, 34, 0)
	pt3dadd(117.334, 89.6484, 34, 0)
	pt3dadd(117.773, 89.209, 33, 0)
  }
  dend[203] {pt3dclear()
	pt3dadd(104.59, 103.711, 31, 0)
	pt3dadd(104.59, 103.711, 31, 0)
	pt3dadd(105.029, 103.711, 32, 0)
	pt3dadd(105.029, 104.15, 32, 0)
	pt3dadd(105.469, 104.59, 32, 0)
	pt3dadd(105.469, 105.029, 32, 0)
	pt3dadd(105.908, 105.469, 33, 0)
	pt3dadd(105.908, 105.908, 33, 0)
	pt3dadd(106.348, 106.348, 33, 0)
	pt3dadd(106.348, 106.787, 33, 0)
	pt3dadd(106.787, 107.227, 34, 0)
	pt3dadd(107.227, 107.666, 34, 0)
	pt3dadd(107.227, 108.105, 34, 0)
	pt3dadd(107.227, 108.545, 33, 0)
	pt3dadd(107.227, 108.984, 33, 0)
	pt3dadd(107.227, 109.424, 33, 0)
	pt3dadd(107.227, 109.863, 33, 0)
	pt3dadd(107.227, 110.303, 33, 0)
	pt3dadd(106.787, 110.742, 33, 0)
	pt3dadd(106.787, 111.182, 33, 0)
  }
  dend[204] {pt3dclear()
	pt3dadd(106.787, 111.182, 33, 0)
	pt3dadd(106.787, 110.742, 33, 0)
	pt3dadd(107.227, 110.303, 33, 0)
	pt3dadd(107.227, 109.863, 33, 0)
	pt3dadd(107.227, 109.424, 33, 0)
	pt3dadd(107.666, 108.984, 33, 0)
	pt3dadd(108.105, 108.984, 32, 0)
	pt3dadd(108.545, 108.545, 32, 0)
	pt3dadd(108.984, 108.105, 32, 0)
	pt3dadd(109.424, 107.666, 32, 0)
  }
  dend[205] {pt3dclear()
	pt3dadd(109.424, 107.666, 32, 0)
	pt3dadd(109.863, 107.227, 32, 0)
	pt3dadd(109.863, 106.787, 32, 0)
	pt3dadd(110.303, 106.348, 32, 0)
	pt3dadd(110.742, 105.908, 32, 0)
	pt3dadd(111.182, 105.469, 32, 0)
	pt3dadd(111.621, 105.029, 33, 0)
	pt3dadd(112.061, 104.59, 33, 0)
	pt3dadd(112.5, 104.15, 33, 0)
	pt3dadd(112.5, 103.711, 33, 0)
	pt3dadd(112.939, 103.271, 33, 0)
	pt3dadd(113.379, 102.832, 33, 0)
	pt3dadd(113.818, 102.393, 33, 0)
	pt3dadd(114.258, 102.393, 33, 0)
	pt3dadd(114.697, 102.393, 33, 0)
	pt3dadd(115.137, 102.393, 33, 0)
	pt3dadd(115.576, 102.393, 33, 0)
  }
  dend[206] {pt3dclear()
	pt3dadd(98.4375, 106.348, 28, 0)
	pt3dadd(98.4375, 106.348, 28, 0)
	pt3dadd(97.998, 105.908, 27, 0)
	pt3dadd(97.5586, 105.908, 26, 0)
	pt3dadd(97.5586, 105.469, 25, 0)
	pt3dadd(97.1191, 105.029, 24, 0)
	pt3dadd(96.6797, 105.469, 23, 0)
	pt3dadd(96.2402, 105.469, 22, 0)
	pt3dadd(95.8008, 105.029, 21, 0)
	pt3dadd(95.3613, 105.029, 21, 0)
	pt3dadd(94.9219, 105.029, 21, 0)
	pt3dadd(94.4824, 104.59, 22, 0)
	pt3dadd(94.043, 104.15, 22, 0)
	pt3dadd(93.6035, 103.711, 22, 0)
	pt3dadd(93.6035, 103.271, 22, 0)
	pt3dadd(93.1641, 102.832, 22, 0)
	pt3dadd(92.7246, 102.393, 22, 0)
	pt3dadd(92.2852, 101.953, 23, 0)
	pt3dadd(92.2852, 101.514, 23, 0)
	pt3dadd(92.2852, 101.953, 23, 0)
	pt3dadd(92.7246, 102.393, 22, 0)
	pt3dadd(93.1641, 102.832, 22, 0)
	pt3dadd(93.6035, 103.271, 22, 0)
	pt3dadd(93.6035, 103.711, 22, 0)
	pt3dadd(94.043, 104.15, 22, 0)
	pt3dadd(94.4824, 104.59, 22, 0)
	pt3dadd(94.9219, 105.029, 21, 0)
	pt3dadd(95.3613, 105.029, 21, 0)
	pt3dadd(95.8008, 105.029, 20, 0)
	pt3dadd(95.8008, 105.029, 19, 0)
	pt3dadd(95.8008, 105.469, 18, 0)
	pt3dadd(95.8008, 105.908, 18, 0)
	pt3dadd(95.8008, 106.348, 18, 0)
	pt3dadd(95.8008, 106.787, 18, 0)
	pt3dadd(96.2402, 107.227, 17, 0)
	pt3dadd(96.6797, 107.666, 17, 0)
	pt3dadd(96.6797, 108.105, 17, 0)
	pt3dadd(97.1191, 108.545, 17, 0)
	pt3dadd(97.5586, 108.984, 17, 0)
	pt3dadd(97.5586, 109.424, 17, 0)
	pt3dadd(97.5586, 109.863, 18, 0)
	pt3dadd(97.5586, 110.303, 18, 0)
	pt3dadd(97.998, 110.742, 18, 0)
	pt3dadd(98.4375, 111.182, 18, 0)
	pt3dadd(98.877, 111.621, 18, 0)
	pt3dadd(99.3164, 112.061, 18, 0)
	pt3dadd(99.7559, 112.5, 18, 0)
	pt3dadd(100.195, 112.5, 18, 0)
	pt3dadd(100.635, 112.939, 17, 0)
	pt3dadd(101.074, 113.379, 17, 0)
	pt3dadd(101.514, 113.818, 17, 0)
	pt3dadd(101.953, 114.258, 17, 0)
	pt3dadd(102.393, 114.258, 17, 0)
	pt3dadd(102.832, 114.697, 17, 0)
	pt3dadd(103.271, 115.137, 17, 0)
	pt3dadd(103.711, 115.137, 17, 0)
	pt3dadd(104.15, 115.576, 17, 0)
	pt3dadd(104.59, 116.016, 17, 0)
	pt3dadd(105.029, 116.455, 17, 0)
	pt3dadd(105.469, 116.895, 17, 0)
	pt3dadd(105.469, 117.334, 18, 0)
	pt3dadd(105.908, 116.895, 17, 0)
	pt3dadd(105.908, 117.334, 16, 0)
	pt3dadd(105.908, 117.773, 16, 0)
  }
}
proc shape3d_31() {
  dend[206] {	pt3dadd(106.348, 118.213, 16, 0)
	pt3dadd(106.787, 118.652, 16, 0)
	pt3dadd(107.227, 119.092, 16, 0)
	pt3dadd(107.227, 119.531, 16, 0)
	pt3dadd(107.227, 119.971, 16, 0)
	pt3dadd(107.666, 120.41, 16, 0)
	pt3dadd(108.105, 120.85, 16, 0)
	pt3dadd(108.105, 121.289, 16, 0)
	pt3dadd(108.105, 121.729, 16, 0)
	pt3dadd(108.545, 122.168, 16, 0)
	pt3dadd(108.984, 122.607, 16, 0)
	pt3dadd(108.984, 123.047, 16, 0)
	pt3dadd(109.424, 123.486, 15, 0)
	pt3dadd(109.863, 123.486, 14, 0)
	pt3dadd(110.303, 123.926, 14, 0)
	pt3dadd(110.742, 123.926, 14, 0)
	pt3dadd(111.182, 123.926, 14, 0)
	pt3dadd(111.621, 124.365, 13, 0)
	pt3dadd(112.061, 124.365, 13, 0)
	pt3dadd(112.5, 124.365, 13, 0)
	pt3dadd(112.939, 124.365, 13, 0)
	pt3dadd(113.379, 124.365, 13, 0)
	pt3dadd(113.818, 124.365, 13, 0)
	pt3dadd(114.258, 124.365, 13, 0)
	pt3dadd(114.697, 124.365, 13, 0)
	pt3dadd(115.137, 124.365, 13, 0)
	pt3dadd(115.576, 124.805, 13, 0)
	pt3dadd(116.016, 124.805, 13, 0)
	pt3dadd(116.455, 125.244, 13, 0)
	pt3dadd(116.895, 125.684, 13, 0)
	pt3dadd(116.895, 126.123, 13, 0)
	pt3dadd(117.334, 126.562, 13, 0)
  }
  dend[207] {pt3dclear()
	pt3dadd(96.6797, 108.545, 29, 0)
	pt3dadd(96.6797, 108.545, 29, 0)
	pt3dadd(96.2402, 108.984, 30, 0)
	pt3dadd(95.8008, 109.424, 30, 0)
	pt3dadd(95.8008, 109.863, 30, 0)
	pt3dadd(95.8008, 110.303, 30, 0)
	pt3dadd(95.8008, 110.742, 30, 0)
	pt3dadd(95.3613, 111.182, 30, 0)
	pt3dadd(94.9219, 111.621, 30, 0)
	pt3dadd(94.4824, 112.061, 30, 0)
	pt3dadd(94.043, 112.061, 30, 0)
	pt3dadd(93.6035, 112.061, 30, 0)
	pt3dadd(93.1641, 112.5, 30, 0)
	pt3dadd(92.7246, 112.939, 29, 0)
	pt3dadd(92.2852, 113.379, 29, 0)
	pt3dadd(91.8457, 113.818, 28, 0)
	pt3dadd(91.4062, 113.818, 27, 0)
	pt3dadd(90.9668, 114.258, 26, 0)
	pt3dadd(90.5273, 114.258, 26, 0)
	pt3dadd(90.0879, 114.258, 26, 0)
	pt3dadd(89.6484, 114.258, 26, 0)
	pt3dadd(89.209, 114.697, 25, 0)
	pt3dadd(88.7695, 115.137, 24, 0)
	pt3dadd(88.7695, 115.576, 24, 0)
	pt3dadd(88.7695, 116.016, 24, 0)
	pt3dadd(88.3301, 116.455, 24, 0)
	pt3dadd(87.8906, 116.895, 25, 0)
	pt3dadd(87.4512, 117.334, 25, 0)
	pt3dadd(87.4512, 117.773, 25, 0)
	pt3dadd(87.4512, 118.213, 25, 0)
	pt3dadd(87.4512, 118.652, 25, 0)
	pt3dadd(87.4512, 119.092, 25, 0)
	pt3dadd(87.0117, 119.531, 25, 0)
	pt3dadd(87.0117, 119.971, 25, 0)
	pt3dadd(86.5723, 120.41, 25, 0)
	pt3dadd(86.5723, 119.971, 25, 0)
	pt3dadd(86.5723, 119.531, 25, 0)
	pt3dadd(86.5723, 119.092, 25, 0)
	pt3dadd(86.5723, 118.652, 25, 0)
	pt3dadd(86.1328, 118.213, 24, 0)
	pt3dadd(86.5723, 118.213, 24, 0)
	pt3dadd(87.0117, 117.773, 23, 0)
	pt3dadd(87.4512, 117.334, 22, 0)
	pt3dadd(87.4512, 117.334, 21, 0)
	pt3dadd(87.4512, 117.334, 20, 0)
	pt3dadd(87.0117, 117.773, 19, 0)
	pt3dadd(86.5723, 117.773, 18, 0)
	pt3dadd(86.1328, 117.334, 17, 0)
	pt3dadd(85.6934, 117.334, 17, 0)
	pt3dadd(85.2539, 117.773, 16, 0)
	pt3dadd(84.8145, 117.334, 17, 0)
	pt3dadd(84.375, 117.334, 17, 0)
	pt3dadd(83.9355, 117.334, 17, 0)
	pt3dadd(83.4961, 117.334, 17, 0)
	pt3dadd(83.0566, 117.334, 17, 0)
	pt3dadd(82.6172, 117.773, 17, 0)
	pt3dadd(82.1777, 117.773, 17, 0)
	pt3dadd(81.7383, 118.213, 17, 0)
	pt3dadd(81.2988, 118.213, 17, 0)
	pt3dadd(80.8594, 118.213, 17, 0)
	pt3dadd(80.4199, 117.773, 17, 0)
	pt3dadd(79.9805, 117.334, 17, 0)
	pt3dadd(79.541, 116.895, 17, 0)
	pt3dadd(79.1016, 116.455, 17, 0)
	pt3dadd(78.6621, 116.016, 17, 0)
	pt3dadd(78.6621, 115.576, 17, 0)
	pt3dadd(78.6621, 115.137, 17, 0)
	pt3dadd(78.6621, 114.697, 17, 0)
	pt3dadd(78.6621, 114.258, 18, 0)
	pt3dadd(78.6621, 113.818, 18, 0)
	pt3dadd(78.2227, 113.379, 19, 0)
	pt3dadd(77.7832, 113.818, 19, 0)
	pt3dadd(77.3438, 113.818, 19, 0)
	pt3dadd(77.7832, 113.818, 19, 0)
	pt3dadd(78.2227, 113.379, 19, 0)
	pt3dadd(78.6621, 112.939, 18, 0)
	pt3dadd(79.1016, 112.5, 18, 0)
	pt3dadd(79.1016, 112.061, 18, 0)
	pt3dadd(79.541, 111.621, 17, 0)
	pt3dadd(79.541, 111.182, 18, 0)
	pt3dadd(79.541, 110.742, 18, 0)
	pt3dadd(79.1016, 110.303, 18, 0)
	pt3dadd(78.6621, 110.303, 18, 0)
	pt3dadd(78.2227, 109.863, 17, 0)
  }
  dend[208] {pt3dclear()
	pt3dadd(30.7617, 110.742, 37, 0)
	pt3dadd(30.7617, 110.742, 37, 0)
	pt3dadd(30.7617, 110.303, 38, 0)
	pt3dadd(30.7617, 109.863, 38, 0)
	pt3dadd(30.7617, 109.424, 38, 0)
	pt3dadd(31.2012, 108.984, 38, 0)
	pt3dadd(31.6406, 108.545, 38, 0)
	pt3dadd(32.0801, 108.105, 38, 0)
	pt3dadd(32.5195, 107.666, 38, 0)
	pt3dadd(32.959, 107.227, 38, 0)
	pt3dadd(33.3984, 106.787, 38, 0)
	pt3dadd(33.8379, 106.348, 38, 0)
	pt3dadd(34.2773, 106.348, 38, 0)
	pt3dadd(34.7168, 106.787, 38, 0)
  }
  dend[209] {pt3dclear()
	pt3dadd(33.8379, 114.258, 35, 0)
	pt3dadd(33.8379, 114.258, 35, 0)
	pt3dadd(33.3984, 113.818, 35, 0)
	pt3dadd(32.959, 113.818, 35, 0)
	pt3dadd(32.5195, 113.818, 35, 0)
	pt3dadd(32.0801, 113.818, 35, 0)
	pt3dadd(31.6406, 113.818, 35, 0)
	pt3dadd(31.2012, 114.258, 36, 0)
	pt3dadd(31.2012, 114.697, 36, 0)
	pt3dadd(30.7617, 115.137, 36, 0)
	pt3dadd(30.3223, 115.576, 36, 0)
  }
  dend[210] {pt3dclear()
	pt3dadd(44.3848, 116.455, 33, 0)
	pt3dadd(44.3848, 116.455, 33, 0)
	pt3dadd(43.9453, 116.455, 34, 0)
	pt3dadd(43.5059, 116.455, 35, 0)
	pt3dadd(43.5059, 116.895, 35, 0)
	pt3dadd(43.5059, 117.334, 35, 0)
	pt3dadd(43.5059, 117.773, 35, 0)
	pt3dadd(43.5059, 118.213, 35, 0)
	pt3dadd(43.0664, 118.652, 35, 0)
	pt3dadd(42.627, 119.092, 35, 0)
	pt3dadd(42.627, 119.531, 35, 0)
	pt3dadd(42.627, 119.971, 35, 0)
	pt3dadd(42.627, 120.41, 35, 0)
  }
  dend[211] {pt3dclear()
	pt3dadd(42.627, 120.41, 35, 0)
	pt3dadd(42.1875, 120.85, 35, 0)
	pt3dadd(42.1875, 121.289, 35, 0)
	pt3dadd(42.1875, 121.729, 35, 0)
	pt3dadd(42.1875, 122.168, 35, 0)
	pt3dadd(41.748, 122.607, 35, 0)
	pt3dadd(41.748, 123.047, 35, 0)
	pt3dadd(42.1875, 123.486, 35, 0)
	pt3dadd(42.1875, 123.926, 35, 0)
	pt3dadd(42.1875, 124.365, 35, 0)
	pt3dadd(41.748, 124.805, 35, 0)
	pt3dadd(41.748, 125.244, 35, 0)
	pt3dadd(41.748, 125.684, 35, 0)
	pt3dadd(41.748, 126.123, 35, 0)
	pt3dadd(41.748, 126.562, 35, 0)
	pt3dadd(41.748, 127.002, 35, 0)
	pt3dadd(41.748, 127.441, 35, 0)
	pt3dadd(41.748, 127.881, 35, 0)
	pt3dadd(41.748, 128.32, 35, 0)
	pt3dadd(41.3086, 128.76, 35, 0)
	pt3dadd(41.748, 129.199, 34, 0)
	pt3dadd(41.748, 129.639, 34, 0)
	pt3dadd(42.1875, 130.078, 34, 0)
	pt3dadd(42.627, 130.078, 34, 0)
	pt3dadd(43.0664, 130.518, 34, 0)
  }
  dend[212] {pt3dclear()
	pt3dadd(56.6895, 140.186, 30, 0)
	pt3dadd(56.6895, 140.186, 30, 0)
	pt3dadd(56.25, 140.625, 30, 0)
	pt3dadd(55.8105, 141.064, 30, 0)
	pt3dadd(55.3711, 141.504, 30, 0)
	pt3dadd(54.9316, 141.504, 30, 0)
	pt3dadd(54.4922, 141.943, 30, 0)
	pt3dadd(54.0527, 141.943, 30, 0)
	pt3dadd(53.6133, 142.383, 29, 0)
	pt3dadd(53.1738, 142.383, 29, 0)
	pt3dadd(52.7344, 142.383, 28, 0)
	pt3dadd(52.2949, 142.383, 28, 0)
	pt3dadd(51.8555, 142.822, 28, 0)
	pt3dadd(51.416, 143.262, 27, 0)
	pt3dadd(50.9766, 143.701, 27, 0)
	pt3dadd(50.5371, 144.141, 26, 0)
	pt3dadd(50.0977, 144.141, 26, 0)
	pt3dadd(49.6582, 144.58, 26, 0)
	pt3dadd(49.6582, 145.02, 26, 0)
	pt3dadd(49.6582, 145.02, 25, 0)
	pt3dadd(49.2188, 145.459, 24, 0)
  }
}
proc shape3d_32() {
  dend[212] {	pt3dadd(48.7793, 145.898, 23, 0)
	pt3dadd(48.3398, 146.338, 22, 0)
	pt3dadd(48.3398, 146.777, 22, 0)
	pt3dadd(48.3398, 147.217, 22, 0)
  }
  dend[213] {pt3dclear()
	pt3dadd(48.3398, 147.217, 22, 0)
	pt3dadd(47.9004, 147.656, 21, 0)
	pt3dadd(47.4609, 148.096, 21, 0)
	pt3dadd(47.4609, 148.535, 21, 0)
	pt3dadd(47.0215, 148.975, 21, 0)
	pt3dadd(46.582, 149.414, 21, 0)
	pt3dadd(46.1426, 149.854, 21, 0)
	pt3dadd(45.7031, 149.854, 21, 0)
	pt3dadd(45.2637, 149.854, 22, 0)
	pt3dadd(44.8242, 150.293, 22, 0)
	pt3dadd(45.2637, 149.854, 22, 0)
	pt3dadd(45.7031, 149.854, 21, 0)
	pt3dadd(46.1426, 149.854, 20, 0)
	pt3dadd(46.1426, 149.854, 19, 0)
	pt3dadd(45.7031, 150.293, 18, 0)
  }
  dend[214] {pt3dclear()
	pt3dadd(82.1777, 149.854, 30, 0)
	pt3dadd(82.1777, 149.854, 30, 0)
	pt3dadd(82.6172, 150.293, 29, 0)
	pt3dadd(83.0566, 150.732, 28, 0)
	pt3dadd(83.0566, 151.172, 27, 0)
	pt3dadd(83.0566, 151.611, 27, 0)
	pt3dadd(82.6172, 152.051, 27, 0)
	pt3dadd(82.6172, 152.49, 27, 0)
	pt3dadd(82.6172, 152.93, 27, 0)
	pt3dadd(82.6172, 153.369, 27, 0)
	pt3dadd(82.6172, 153.809, 27, 0)
	pt3dadd(82.6172, 154.248, 28, 0)
	pt3dadd(83.0566, 154.688, 28, 0)
	pt3dadd(83.0566, 155.127, 28, 0)
	pt3dadd(83.0566, 155.566, 28, 0)
	pt3dadd(83.4961, 156.006, 28, 0)
	pt3dadd(83.4961, 156.445, 28, 0)
	pt3dadd(83.4961, 156.885, 28, 0)
	pt3dadd(83.0566, 157.324, 28, 0)
	pt3dadd(83.0566, 157.764, 28, 0)
	pt3dadd(82.6172, 158.203, 28, 0)
	pt3dadd(82.6172, 158.643, 28, 0)
	pt3dadd(82.1777, 159.082, 28, 0)
	pt3dadd(82.1777, 159.521, 28, 0)
	pt3dadd(82.1777, 159.961, 28, 0)
	pt3dadd(82.1777, 160.4, 28, 0)
	pt3dadd(81.7383, 160.84, 27, 0)
	pt3dadd(81.7383, 161.279, 27, 0)
	pt3dadd(82.1777, 161.719, 27, 0)
	pt3dadd(82.6172, 162.158, 28, 0)
	pt3dadd(83.0566, 162.598, 28, 0)
	pt3dadd(82.6172, 162.598, 28, 0)
	pt3dadd(82.1777, 162.598, 28, 0)
	pt3dadd(81.7383, 162.158, 27, 0)
	pt3dadd(81.2988, 162.158, 26, 0)
  }
  dend[215] {pt3dclear()
	pt3dadd(81.2988, 162.158, 26, 0)
	pt3dadd(80.8594, 162.158, 26, 0)
	pt3dadd(80.4199, 162.158, 26, 0)
	pt3dadd(79.9805, 162.158, 26, 0)
	pt3dadd(79.541, 162.158, 25, 0)
	pt3dadd(79.1016, 162.158, 25, 0)
	pt3dadd(78.6621, 162.158, 25, 0)
	pt3dadd(78.2227, 161.719, 25, 0)
	pt3dadd(77.7832, 161.719, 25, 0)
	pt3dadd(77.3438, 162.158, 25, 0)
	pt3dadd(77.3438, 162.598, 26, 0)
	pt3dadd(77.3438, 163.037, 26, 0)
	pt3dadd(77.3438, 163.477, 26, 0)
	pt3dadd(77.3438, 163.916, 26, 0)
	pt3dadd(76.9043, 164.355, 26, 0)
	pt3dadd(76.4648, 164.795, 26, 0)
	pt3dadd(76.0254, 164.795, 26, 0)
	pt3dadd(75.5859, 164.795, 26, 0)
	pt3dadd(75.1465, 164.795, 26, 0)
	pt3dadd(75.5859, 165.234, 26, 0)
	pt3dadd(75.5859, 165.674, 26, 0)
  }
  dend[216] {pt3dclear()
	pt3dadd(75.5859, 165.674, 26, 0)
	pt3dadd(75.5859, 166.113, 27, 0)
	pt3dadd(75.1465, 166.553, 27, 0)
	pt3dadd(75.1465, 166.992, 27, 0)
	pt3dadd(75.5859, 167.432, 27, 0)
	pt3dadd(75.5859, 167.871, 27, 0)
	pt3dadd(76.0254, 168.311, 27, 0)
	pt3dadd(76.0254, 168.75, 26, 0)
	pt3dadd(76.4648, 169.189, 26, 0)
	pt3dadd(76.9043, 169.629, 26, 0)
	pt3dadd(77.3438, 170.068, 26, 0)
	pt3dadd(77.3438, 170.508, 26, 0)
	pt3dadd(77.3438, 170.947, 26, 0)
	pt3dadd(77.3438, 171.387, 27, 0)
	pt3dadd(76.9043, 171.826, 27, 0)
	pt3dadd(76.9043, 172.266, 27, 0)
	pt3dadd(76.4648, 172.705, 27, 0)
	pt3dadd(76.4648, 173.145, 27, 0)
	pt3dadd(76.0254, 173.584, 27, 0)
	pt3dadd(75.5859, 174.023, 27, 0)
	pt3dadd(75.1465, 174.463, 27, 0)
	pt3dadd(74.707, 174.463, 27, 0)
	pt3dadd(74.2676, 174.902, 27, 0)
	pt3dadd(73.8281, 175.342, 27, 0)
	pt3dadd(73.8281, 175.781, 27, 0)
	pt3dadd(73.8281, 176.221, 26, 0)
	pt3dadd(73.8281, 176.66, 26, 0)
	pt3dadd(73.8281, 177.1, 26, 0)
	pt3dadd(73.8281, 177.539, 26, 0)
	pt3dadd(73.3887, 177.539, 26, 0)
	pt3dadd(72.9492, 177.539, 26, 0)
	pt3dadd(72.5098, 177.539, 26, 0)
	pt3dadd(72.0703, 177.539, 26, 0)
	pt3dadd(71.6309, 177.979, 26, 0)
	pt3dadd(71.1914, 178.418, 26, 0)
	pt3dadd(70.752, 178.857, 26, 0)
	pt3dadd(70.3125, 178.857, 26, 0)
	pt3dadd(69.873, 179.297, 25, 0)
	pt3dadd(69.4336, 179.297, 25, 0)
	pt3dadd(68.9941, 179.297, 24, 0)
	pt3dadd(68.5547, 179.297, 24, 0)
	pt3dadd(68.1152, 179.297, 24, 0)
	pt3dadd(67.6758, 179.736, 24, 0)
	pt3dadd(67.2363, 179.736, 24, 0)
	pt3dadd(66.7969, 179.736, 24, 0)
	pt3dadd(66.3574, 179.736, 24, 0)
	pt3dadd(65.918, 179.736, 25, 0)
	pt3dadd(65.4785, 179.736, 25, 0)
	pt3dadd(65.0391, 180.176, 25, 0)
	pt3dadd(65.0391, 180.615, 25, 0)
	pt3dadd(65.0391, 181.055, 25, 0)
	pt3dadd(64.5996, 180.615, 26, 0)
	pt3dadd(64.1602, 180.176, 26, 0)
	pt3dadd(63.7207, 180.176, 26, 0)
	pt3dadd(63.2812, 180.615, 26, 0)
	pt3dadd(63.2812, 181.055, 26, 0)
	pt3dadd(62.8418, 181.494, 26, 0)
	pt3dadd(62.8418, 181.934, 26, 0)
	pt3dadd(62.4023, 182.373, 27, 0)
	pt3dadd(62.4023, 182.812, 27, 0)
	pt3dadd(62.4023, 183.252, 27, 0)
	pt3dadd(62.4023, 183.691, 27, 0)
	pt3dadd(62.4023, 184.131, 27, 0)
	pt3dadd(62.4023, 184.57, 26, 0)
	pt3dadd(62.4023, 185.01, 26, 0)
	pt3dadd(62.4023, 185.449, 26, 0)
	pt3dadd(62.4023, 185.889, 26, 0)
	pt3dadd(62.8418, 186.328, 25, 0)
	pt3dadd(62.8418, 186.768, 25, 0)
	pt3dadd(62.8418, 187.207, 25, 0)
	pt3dadd(62.8418, 187.646, 25, 0)
	pt3dadd(63.2812, 188.086, 25, 0)
	pt3dadd(63.7207, 188.525, 25, 0)
	pt3dadd(64.1602, 188.965, 25, 0)
	pt3dadd(63.7207, 189.404, 24, 0)
	pt3dadd(63.2812, 189.844, 23, 0)
	pt3dadd(63.2812, 190.283, 23, 0)
	pt3dadd(62.8418, 190.723, 23, 0)
	pt3dadd(62.8418, 191.162, 23, 0)
	pt3dadd(62.8418, 191.602, 23, 0)
	pt3dadd(62.4023, 192.041, 23, 0)
	pt3dadd(62.4023, 192.48, 23, 0)
	pt3dadd(61.9629, 192.92, 23, 0)
	pt3dadd(61.5234, 193.359, 23, 0)
	pt3dadd(61.084, 193.799, 23, 0)
	pt3dadd(60.6445, 194.238, 23, 0)
	pt3dadd(60.2051, 193.799, 22, 0)
	pt3dadd(59.7656, 194.238, 22, 0)
	pt3dadd(59.3262, 194.238, 22, 0)
	pt3dadd(58.8867, 194.678, 22, 0)
	pt3dadd(58.4473, 194.678, 22, 0)
	pt3dadd(58.0078, 195.117, 22, 0)
	pt3dadd(57.5684, 195.557, 22, 0)
	pt3dadd(57.1289, 195.996, 22, 0)
	pt3dadd(56.6895, 196.436, 22, 0)
	pt3dadd(56.6895, 196.875, 22, 0)
	pt3dadd(56.6895, 197.314, 22, 0)
	pt3dadd(56.25, 197.754, 22, 0)
	pt3dadd(56.6895, 198.193, 23, 0)
	pt3dadd(57.1289, 198.633, 23, 0)
	pt3dadd(57.5684, 198.633, 23, 0)
	pt3dadd(57.1289, 198.633, 23, 0)
	pt3dadd(56.6895, 198.193, 23, 0)
	pt3dadd(56.25, 197.754, 22, 0)
	pt3dadd(55.8105, 197.754, 22, 0)
	pt3dadd(55.3711, 197.754, 21, 0)
	pt3dadd(54.9316, 197.754, 20, 0)
	pt3dadd(54.4922, 197.754, 20, 0)
	pt3dadd(54.0527, 197.314, 19, 0)
	pt3dadd(53.6133, 197.314, 19, 0)
	pt3dadd(53.1738, 197.314, 19, 0)
	pt3dadd(52.7344, 197.314, 19, 0)
	pt3dadd(52.2949, 197.314, 19, 0)
	pt3dadd(51.8555, 196.875, 20, 0)
	pt3dadd(52.2949, 197.314, 19, 0)
	pt3dadd(51.8555, 197.314, 18, 0)
	pt3dadd(51.416, 197.314, 18, 0)
	pt3dadd(50.9766, 197.754, 17, 0)
	pt3dadd(50.5371, 198.193, 16, 0)
	pt3dadd(50.0977, 198.193, 16, 0)
	pt3dadd(49.6582, 198.193, 16, 0)
	pt3dadd(49.2188, 198.193, 16, 0)
	pt3dadd(48.7793, 198.193, 16, 0)
	pt3dadd(48.3398, 198.633, 15, 0)
  }
  dend[217] {pt3dclear()
	pt3dadd(48.3398, 198.633, 15, 0)
  }
}
proc shape3d_33() {
  dend[217] {	pt3dadd(47.9004, 198.633, 15, 0)
	pt3dadd(47.4609, 199.072, 15, 0)
	pt3dadd(47.4609, 199.512, 15, 0)
	pt3dadd(47.4609, 199.951, 15, 0)
	pt3dadd(47.0215, 200.391, 15, 0)
	pt3dadd(47.0215, 200.83, 15, 0)
	pt3dadd(46.582, 201.27, 15, 0)
	pt3dadd(46.1426, 201.709, 15, 0)
	pt3dadd(46.1426, 202.148, 15, 0)
	pt3dadd(46.1426, 202.588, 15, 0)
	pt3dadd(46.1426, 203.027, 15, 0)
	pt3dadd(45.7031, 203.467, 15, 0)
	pt3dadd(45.2637, 203.467, 15, 0)
	pt3dadd(44.8242, 203.906, 15, 0)
	pt3dadd(44.3848, 204.346, 15, 0)
	pt3dadd(44.3848, 204.785, 15, 0)
	pt3dadd(44.3848, 205.225, 15, 0)
	pt3dadd(43.9453, 205.664, 15, 0)
	pt3dadd(43.9453, 206.104, 15, 0)
	pt3dadd(43.9453, 206.543, 15, 0)
	pt3dadd(43.5059, 206.982, 16, 0)
	pt3dadd(43.9453, 206.543, 15, 0)
	pt3dadd(43.5059, 206.104, 14, 0)
	pt3dadd(43.5059, 206.543, 13, 0)
	pt3dadd(43.0664, 206.982, 12, 0)
	pt3dadd(42.627, 206.982, 12, 0)
	pt3dadd(42.1875, 207.422, 11, 0)
	pt3dadd(41.748, 207.861, 11, 0)
	pt3dadd(41.748, 208.301, 11, 0)
	pt3dadd(41.748, 208.74, 11, 0)
	pt3dadd(41.748, 209.18, 10, 0)
	pt3dadd(41.3086, 209.619, 10, 0)
	pt3dadd(41.3086, 210.059, 10, 0)
	pt3dadd(41.3086, 210.498, 10, 0)
	pt3dadd(40.8691, 210.938, 11, 0)
	pt3dadd(40.4297, 211.377, 12, 0)
	pt3dadd(39.9902, 211.377, 12, 0)
	pt3dadd(39.5508, 211.816, 12, 0)
	pt3dadd(39.5508, 212.256, 12, 0)
	pt3dadd(39.5508, 212.695, 12, 0)
	pt3dadd(39.5508, 213.135, 11, 0)
	pt3dadd(39.5508, 213.135, 10, 0)
	pt3dadd(39.1113, 213.574, 9, 0)
	pt3dadd(39.1113, 214.014, 8, 0)
	pt3dadd(39.1113, 214.453, 8, 0)
	pt3dadd(38.6719, 214.893, 8, 0)
	pt3dadd(38.2324, 215.332, 8, 0)
	pt3dadd(38.2324, 215.771, 8, 0)
	pt3dadd(37.793, 216.211, 8, 0)
	pt3dadd(37.3535, 216.65, 8, 0)
	pt3dadd(36.9141, 217.09, 8, 0)
	pt3dadd(36.9141, 217.529, 8, 0)
	pt3dadd(36.9141, 217.969, 8, 0)
	pt3dadd(36.4746, 218.408, 8, 0)
	pt3dadd(36.0352, 218.848, 8, 0)
	pt3dadd(35.5957, 219.287, 8, 0)
	pt3dadd(35.1562, 219.727, 8, 0)
	pt3dadd(34.7168, 220.166, 7, 0)
	pt3dadd(34.7168, 220.605, 7, 0)
	pt3dadd(34.7168, 221.045, 7, 0)
	pt3dadd(34.2773, 221.484, 8, 0)
  }
  dend[218] {pt3dclear()
	pt3dadd(65.0391, 165.234, 27, 0)
	pt3dadd(65.0391, 165.234, 27, 0)
	pt3dadd(64.5996, 165.234, 27, 0)
	pt3dadd(64.1602, 165.234, 27, 0)
	pt3dadd(63.7207, 164.795, 28, 0)
	pt3dadd(63.2812, 164.355, 28, 0)
	pt3dadd(62.8418, 163.916, 28, 0)
	pt3dadd(62.8418, 163.477, 28, 0)
	pt3dadd(62.4023, 163.037, 28, 0)
	pt3dadd(61.9629, 162.598, 28, 0)
	pt3dadd(61.5234, 162.598, 28, 0)
	pt3dadd(61.084, 162.598, 28, 0)
	pt3dadd(60.6445, 163.037, 28, 0)
	pt3dadd(60.2051, 163.037, 28, 0)
	pt3dadd(59.7656, 163.037, 28, 0)
	pt3dadd(59.3262, 163.037, 28, 0)
	pt3dadd(58.8867, 163.037, 28, 0)
	pt3dadd(58.4473, 163.037, 28, 0)
	pt3dadd(58.0078, 163.037, 28, 0)
	pt3dadd(57.5684, 163.037, 29, 0)
	pt3dadd(57.1289, 163.037, 29, 0)
	pt3dadd(56.6895, 163.037, 29, 0)
	pt3dadd(56.25, 163.037, 29, 0)
	pt3dadd(55.8105, 163.037, 29, 0)
	pt3dadd(55.3711, 163.477, 29, 0)
	pt3dadd(54.9316, 163.477, 29, 0)
	pt3dadd(54.4922, 163.477, 29, 0)
	pt3dadd(54.0527, 163.477, 29, 0)
	pt3dadd(53.6133, 163.477, 29, 0)
	pt3dadd(53.1738, 163.916, 29, 0)
	pt3dadd(52.7344, 163.916, 29, 0)
	pt3dadd(52.2949, 163.916, 30, 0)
	pt3dadd(51.8555, 163.916, 30, 0)
	pt3dadd(51.416, 163.916, 30, 0)
	pt3dadd(50.9766, 163.916, 30, 0)
	pt3dadd(50.5371, 163.916, 29, 0)
	pt3dadd(50.0977, 163.477, 28, 0)
	pt3dadd(49.6582, 163.477, 28, 0)
	pt3dadd(49.2188, 163.916, 28, 0)
	pt3dadd(48.7793, 163.916, 28, 0)
	pt3dadd(48.3398, 163.916, 28, 0)
	pt3dadd(47.9004, 164.355, 28, 0)
	pt3dadd(47.4609, 164.795, 28, 0)
	pt3dadd(47.9004, 164.355, 28, 0)
	pt3dadd(48.3398, 163.916, 29, 0)
	pt3dadd(48.3398, 163.916, 30, 0)
  }
  dend[219] {pt3dclear()
	pt3dadd(48.3398, 163.916, 30, 0)
	pt3dadd(48.7793, 163.477, 31, 0)
	pt3dadd(48.3398, 163.037, 31, 0)
	pt3dadd(47.9004, 162.598, 32, 0)
  }
  dend[220] {pt3dclear()
	pt3dadd(47.9004, 162.598, 32, 0)
	pt3dadd(47.4609, 162.158, 32, 0)
	pt3dadd(47.0215, 162.158, 32, 0)
	pt3dadd(46.582, 162.158, 32, 0)
	pt3dadd(46.1426, 162.158, 33, 0)
	pt3dadd(45.7031, 162.598, 33, 0)
	pt3dadd(45.2637, 162.598, 33, 0)
	pt3dadd(44.8242, 162.598, 33, 0)
	pt3dadd(44.3848, 162.598, 33, 0)
	pt3dadd(43.9453, 162.598, 33, 0)
	pt3dadd(43.5059, 163.037, 34, 0)
	pt3dadd(43.0664, 163.037, 34, 0)
	pt3dadd(42.627, 163.037, 34, 0)
	pt3dadd(42.1875, 163.477, 34, 0)
	pt3dadd(41.748, 163.477, 34, 0)
	pt3dadd(41.3086, 163.477, 34, 0)
	pt3dadd(40.8691, 163.477, 34, 0)
	pt3dadd(40.4297, 163.477, 33, 0)
	pt3dadd(39.9902, 163.037, 32, 0)
	pt3dadd(39.5508, 162.598, 32, 0)
	pt3dadd(39.9902, 163.037, 32, 0)
	pt3dadd(40.4297, 163.477, 33, 0)
	pt3dadd(40.4297, 163.916, 33, 0)
	pt3dadd(40.4297, 164.355, 33, 0)
	pt3dadd(39.9902, 164.795, 33, 0)
	pt3dadd(39.5508, 164.795, 33, 0)
	pt3dadd(39.1113, 165.234, 33, 0)
	pt3dadd(39.1113, 165.674, 33, 0)
	pt3dadd(38.6719, 166.113, 33, 0)
	pt3dadd(38.2324, 166.553, 33, 0)
	pt3dadd(37.793, 166.992, 33, 0)
	pt3dadd(37.3535, 166.992, 33, 0)
	pt3dadd(36.9141, 167.432, 32, 0)
	pt3dadd(36.4746, 167.871, 31, 0)
	pt3dadd(36.0352, 168.311, 30, 0)
	pt3dadd(35.5957, 168.75, 30, 0)
	pt3dadd(35.1562, 168.75, 30, 0)
	pt3dadd(34.7168, 168.75, 30, 0)
	pt3dadd(34.2773, 169.189, 29, 0)
	pt3dadd(33.8379, 169.189, 29, 0)
	pt3dadd(33.3984, 169.629, 29, 0)
	pt3dadd(32.959, 169.629, 29, 0)
	pt3dadd(32.5195, 170.068, 29, 0)
	pt3dadd(32.0801, 170.068, 29, 0)
	pt3dadd(31.6406, 170.068, 29, 0)
	pt3dadd(31.2012, 170.068, 29, 0)
	pt3dadd(30.7617, 170.068, 29, 0)
	pt3dadd(30.3223, 170.068, 29, 0)
	pt3dadd(29.8828, 170.068, 30, 0)
	pt3dadd(29.8828, 170.508, 31, 0)
	pt3dadd(29.4434, 170.508, 32, 0)
	pt3dadd(29.0039, 170.508, 31, 0)
	pt3dadd(28.5645, 170.068, 30, 0)
	pt3dadd(28.125, 170.508, 30, 0)
	pt3dadd(27.6855, 170.508, 30, 0)
	pt3dadd(27.2461, 170.508, 30, 0)
	pt3dadd(26.8066, 170.508, 30, 0)
	pt3dadd(26.3672, 170.947, 30, 0)
	pt3dadd(25.9277, 170.947, 30, 0)
	pt3dadd(25.4883, 170.947, 30, 0)
	pt3dadd(25.0488, 170.947, 30, 0)
	pt3dadd(24.6094, 170.947, 31, 0)
	pt3dadd(24.1699, 170.947, 31, 0)
	pt3dadd(23.7305, 170.947, 31, 0)
	pt3dadd(23.291, 170.947, 31, 0)
	pt3dadd(22.8516, 171.387, 32, 0)
	pt3dadd(22.4121, 171.826, 32, 0)
	pt3dadd(21.9727, 172.266, 32, 0)
	pt3dadd(21.5332, 172.705, 32, 0)
	pt3dadd(21.0938, 173.145, 32, 0)
	pt3dadd(20.6543, 173.584, 32, 0)
	pt3dadd(20.6543, 174.023, 32, 0)
	pt3dadd(20.2148, 174.463, 32, 0)
	pt3dadd(19.7754, 174.902, 32, 0)
	pt3dadd(19.3359, 175.342, 32, 0)
	pt3dadd(18.8965, 175.781, 31, 0)
	pt3dadd(18.8965, 176.221, 31, 0)
	pt3dadd(18.8965, 176.66, 31, 0)
	pt3dadd(18.457, 177.1, 30, 0)
	pt3dadd(18.0176, 177.539, 30, 0)
	pt3dadd(17.5781, 177.539, 30, 0)
	pt3dadd(17.1387, 177.539, 30, 0)
	pt3dadd(16.6992, 177.539, 30, 0)
	pt3dadd(16.2598, 177.1, 30, 0)
	pt3dadd(15.8203, 177.1, 30, 0)
	pt3dadd(15.3809, 177.1, 30, 0)
	pt3dadd(14.9414, 177.1, 30, 0)
	pt3dadd(14.502, 177.1, 30, 0)
	pt3dadd(14.0625, 177.1, 30, 0)
  }
}
proc shape3d_34() {
  dend[220] {	pt3dadd(13.623, 176.66, 31, 0)
	pt3dadd(13.1836, 176.66, 31, 0)
	pt3dadd(12.7441, 176.66, 31, 0)
	pt3dadd(12.3047, 176.66, 31, 0)
	pt3dadd(11.8652, 176.66, 31, 0)
	pt3dadd(11.4258, 176.66, 31, 0)
	pt3dadd(10.9863, 176.66, 31, 0)
	pt3dadd(10.5469, 176.66, 31, 0)
	pt3dadd(10.1074, 176.66, 31, 0)
	pt3dadd(9.66797, 176.66, 31, 0)
	pt3dadd(9.22852, 176.221, 31, 0)
	pt3dadd(8.78906, 176.221, 31, 0)
	pt3dadd(8.34961, 176.221, 31, 0)
  }
  dend[221] {pt3dclear()
	pt3dadd(89.6484, 187.646, 23, 0)
	pt3dadd(89.6484, 187.646, 23, 0)
	pt3dadd(89.209, 187.646, 23, 0)
	pt3dadd(88.7695, 187.207, 23, 0)
	pt3dadd(88.3301, 186.768, 23, 0)
	pt3dadd(87.8906, 186.768, 23, 0)
	pt3dadd(87.4512, 186.768, 23, 0)
	pt3dadd(87.0117, 186.768, 23, 0)
	pt3dadd(86.5723, 186.768, 23, 0)
	pt3dadd(86.1328, 186.768, 23, 0)
	pt3dadd(85.6934, 186.768, 23, 0)
	pt3dadd(85.2539, 186.768, 23, 0)
	pt3dadd(84.8145, 186.768, 23, 0)
	pt3dadd(84.375, 186.768, 23, 0)
	pt3dadd(83.9355, 186.768, 23, 0)
	pt3dadd(83.4961, 186.768, 23, 0)
	pt3dadd(83.0566, 186.768, 23, 0)
	pt3dadd(82.6172, 186.768, 23, 0)
	pt3dadd(82.1777, 186.768, 23, 0)
	pt3dadd(81.7383, 186.328, 23, 0)
	pt3dadd(81.2988, 186.328, 23, 0)
	pt3dadd(80.8594, 185.889, 23, 0)
	pt3dadd(80.4199, 185.889, 23, 0)
	pt3dadd(79.9805, 185.889, 23, 0)
	pt3dadd(79.541, 185.889, 23, 0)
	pt3dadd(79.1016, 185.889, 23, 0)
	pt3dadd(78.6621, 185.889, 23, 0)
	pt3dadd(78.2227, 185.889, 23, 0)
	pt3dadd(77.7832, 185.449, 24, 0)
	pt3dadd(77.3438, 185.889, 24, 0)
	pt3dadd(76.9043, 186.328, 25, 0)
	pt3dadd(76.4648, 186.768, 25, 0)
	pt3dadd(76.0254, 187.207, 25, 0)
	pt3dadd(75.5859, 187.646, 25, 0)
	pt3dadd(75.1465, 188.086, 24, 0)
	pt3dadd(74.707, 188.525, 24, 0)
	pt3dadd(74.2676, 188.525, 24, 0)
	pt3dadd(73.8281, 188.965, 24, 0)
	pt3dadd(73.3887, 188.965, 24, 0)
	pt3dadd(72.9492, 188.965, 24, 0)
	pt3dadd(72.5098, 189.404, 23, 0)
	pt3dadd(72.0703, 189.404, 23, 0)
	pt3dadd(71.6309, 188.965, 23, 0)
	pt3dadd(71.1914, 188.965, 23, 0)
	pt3dadd(70.752, 188.965, 23, 0)
	pt3dadd(70.3125, 188.965, 23, 0)
	pt3dadd(69.873, 188.525, 24, 0)
	pt3dadd(69.4336, 188.086, 24, 0)
	pt3dadd(68.9941, 187.646, 24, 0)
	pt3dadd(68.5547, 187.207, 24, 0)
	pt3dadd(68.5547, 186.768, 24, 0)
	pt3dadd(68.1152, 186.328, 24, 0)
	pt3dadd(68.1152, 185.889, 24, 0)
	pt3dadd(68.1152, 185.449, 24, 0)
	pt3dadd(68.1152, 185.01, 24, 0)
	pt3dadd(68.1152, 184.57, 24, 0)
	pt3dadd(68.1152, 184.131, 24, 0)
	pt3dadd(68.1152, 183.691, 24, 0)
	pt3dadd(68.1152, 183.252, 24, 0)
	pt3dadd(68.5547, 182.812, 24, 0)
	pt3dadd(68.5547, 182.373, 24, 0)
	pt3dadd(68.9941, 181.934, 25, 0)
	pt3dadd(68.9941, 181.494, 25, 0)
	pt3dadd(68.9941, 181.055, 25, 0)
	pt3dadd(69.4336, 180.615, 25, 0)
	pt3dadd(69.4336, 180.176, 25, 0)
	pt3dadd(69.873, 179.736, 24, 0)
  }
  dend[222] {pt3dclear()
	pt3dadd(99.3164, 191.162, 20, 0)
	pt3dadd(99.3164, 191.162, 20, 0)
	pt3dadd(98.877, 191.602, 20, 0)
	pt3dadd(98.877, 192.041, 20, 0)
	pt3dadd(98.877, 192.48, 20, 0)
	pt3dadd(98.877, 192.92, 20, 0)
	pt3dadd(99.3164, 193.359, 19, 0)
	pt3dadd(99.7559, 193.799, 19, 0)
	pt3dadd(99.7559, 194.238, 19, 0)
	pt3dadd(100.195, 194.678, 19, 0)
	pt3dadd(100.635, 195.117, 18, 0)
	pt3dadd(101.074, 195.557, 18, 0)
	pt3dadd(101.514, 195.996, 19, 0)
	pt3dadd(101.953, 196.436, 20, 0)
	pt3dadd(101.953, 196.875, 20, 0)
	pt3dadd(102.393, 197.314, 20, 0)
	pt3dadd(102.832, 197.754, 20, 0)
	pt3dadd(103.271, 198.193, 20, 0)
	pt3dadd(103.271, 197.754, 19, 0)
	pt3dadd(103.711, 197.314, 18, 0)
	pt3dadd(103.271, 197.314, 17, 0)
	pt3dadd(102.832, 196.875, 16, 0)
	pt3dadd(102.393, 197.314, 15, 0)
	pt3dadd(102.832, 197.314, 15, 0)
	pt3dadd(103.271, 197.314, 15, 0)
	pt3dadd(103.711, 197.314, 15, 0)
	pt3dadd(104.15, 197.754, 14, 0)
	pt3dadd(104.59, 197.754, 14, 0)
	pt3dadd(105.029, 197.754, 14, 0)
	pt3dadd(105.469, 198.193, 14, 0)
	pt3dadd(105.908, 198.193, 14, 0)
	pt3dadd(106.348, 198.633, 14, 0)
	pt3dadd(106.787, 199.072, 13, 0)
	pt3dadd(107.227, 199.512, 13, 0)
	pt3dadd(107.666, 199.951, 13, 0)
	pt3dadd(108.105, 200.391, 13, 0)
	pt3dadd(107.666, 199.951, 12, 0)
	pt3dadd(107.666, 199.512, 11, 0)
	pt3dadd(108.105, 199.951, 10, 0)
	pt3dadd(108.545, 199.951, 9, 0)
	pt3dadd(108.984, 200.391, 9, 0)
	pt3dadd(109.424, 200.83, 9, 0)
	pt3dadd(109.863, 200.83, 9, 0)
	pt3dadd(110.303, 201.27, 9, 0)
	pt3dadd(110.742, 201.709, 9, 0)
	pt3dadd(111.182, 201.709, 9, 0)
	pt3dadd(111.621, 201.709, 9, 0)
	pt3dadd(112.061, 202.148, 9, 0)
	pt3dadd(112.5, 202.148, 9, 0)
	pt3dadd(112.939, 202.588, 9, 0)
	pt3dadd(113.379, 203.027, 9, 0)
	pt3dadd(113.818, 203.467, 9, 0)
	pt3dadd(114.258, 203.906, 9, 0)
	pt3dadd(114.697, 204.346, 9, 0)
	pt3dadd(115.137, 204.785, 10, 0)
	pt3dadd(115.137, 205.225, 10, 0)
	pt3dadd(115.576, 205.664, 10, 0)
	pt3dadd(115.576, 206.104, 10, 0)
	pt3dadd(116.016, 206.543, 11, 0)
	pt3dadd(116.455, 206.982, 11, 0)
	pt3dadd(116.895, 206.982, 11, 0)
	pt3dadd(117.334, 206.982, 11, 0)
	pt3dadd(117.773, 206.543, 10, 0)
	pt3dadd(118.213, 206.543, 9, 0)
  }
  dend[223] {pt3dclear()
	pt3dadd(126.123, 196.436, 20, 0)
	pt3dadd(126.123, 196.436, 20, 0)
	pt3dadd(126.562, 196.875, 20, 0)
	pt3dadd(126.562, 197.314, 20, 0)
	pt3dadd(126.562, 197.754, 20, 0)
	pt3dadd(126.562, 198.193, 20, 0)
	pt3dadd(127.002, 198.633, 20, 0)
	pt3dadd(127.002, 199.072, 20, 0)
	pt3dadd(127.002, 199.512, 19, 0)
	pt3dadd(127.002, 199.951, 19, 0)
	pt3dadd(127.002, 200.391, 19, 0)
	pt3dadd(127.002, 200.83, 19, 0)
	pt3dadd(127.002, 201.27, 19, 0)
	pt3dadd(127.002, 201.709, 19, 0)
	pt3dadd(127.002, 202.148, 19, 0)
	pt3dadd(127.002, 202.588, 19, 0)
	pt3dadd(127.002, 203.027, 19, 0)
	pt3dadd(127.002, 203.467, 19, 0)
	pt3dadd(126.562, 203.906, 19, 0)
	pt3dadd(126.123, 204.346, 19, 0)
	pt3dadd(125.684, 204.346, 19, 0)
	pt3dadd(125.244, 204.346, 19, 0)
	pt3dadd(124.805, 204.785, 19, 0)
	pt3dadd(124.365, 205.225, 19, 0)
	pt3dadd(123.926, 205.664, 19, 0)
	pt3dadd(123.486, 206.104, 19, 0)
	pt3dadd(123.486, 206.543, 19, 0)
	pt3dadd(123.047, 206.982, 19, 0)
	pt3dadd(122.607, 207.422, 19, 0)
	pt3dadd(122.607, 207.861, 19, 0)
	pt3dadd(122.607, 208.301, 19, 0)
	pt3dadd(122.607, 208.74, 19, 0)
	pt3dadd(122.168, 209.18, 19, 0)
	pt3dadd(121.729, 209.619, 19, 0)
	pt3dadd(121.729, 210.059, 19, 0)
	pt3dadd(122.168, 210.498, 20, 0)
	pt3dadd(122.607, 210.498, 20, 0)
  }
  dend[224] {pt3dclear()
	pt3dadd(122.607, 195.117, 20, 0)
	pt3dadd(122.607, 195.117, 20, 0)
	pt3dadd(123.047, 195.557, 20, 0)
	pt3dadd(123.486, 195.996, 20, 0)
	pt3dadd(123.926, 196.436, 20, 0)
	pt3dadd(123.926, 196.875, 20, 0)
	pt3dadd(123.926, 197.314, 20, 0)
	pt3dadd(123.926, 197.754, 20, 0)
	pt3dadd(124.365, 198.193, 20, 0)
	pt3dadd(124.365, 198.633, 20, 0)
	pt3dadd(124.365, 199.072, 20, 0)
	pt3dadd(124.365, 199.512, 20, 0)
	pt3dadd(124.365, 199.951, 20, 0)
	pt3dadd(124.365, 200.391, 20, 0)
  }
  dend[225] {pt3dclear()
	pt3dadd(85.6934, 176.66, 25, 0)
	pt3dadd(85.6934, 176.66, 25, 0)
	pt3dadd(85.2539, 177.1, 24, 0)
	pt3dadd(84.8145, 177.539, 24, 0)
	pt3dadd(84.375, 177.979, 24, 0)
  }
}
proc shape3d_35() {
  dend[225] {	pt3dadd(83.9355, 178.418, 23, 0)
	pt3dadd(83.9355, 178.857, 23, 0)
	pt3dadd(83.4961, 179.297, 23, 0)
	pt3dadd(83.4961, 179.736, 23, 0)
	pt3dadd(83.0566, 180.176, 22, 0)
	pt3dadd(83.0566, 180.615, 22, 0)
	pt3dadd(82.6172, 181.055, 21, 0)
	pt3dadd(82.6172, 181.494, 21, 0)
	pt3dadd(82.1777, 181.934, 21, 0)
	pt3dadd(81.7383, 182.373, 22, 0)
	pt3dadd(82.1777, 182.812, 21, 0)
	pt3dadd(82.6172, 183.252, 21, 0)
	pt3dadd(82.6172, 183.691, 21, 0)
  }
  dend[226] {pt3dclear()
	pt3dadd(82.6172, 183.691, 21, 0)
	pt3dadd(82.6172, 184.131, 21, 0)
	pt3dadd(83.0566, 184.57, 21, 0)
	pt3dadd(83.4961, 185.01, 22, 0)
	pt3dadd(83.4961, 185.449, 22, 0)
	pt3dadd(83.4961, 185.889, 22, 0)
	pt3dadd(83.4961, 186.328, 22, 0)
	pt3dadd(83.4961, 186.768, 22, 0)
	pt3dadd(83.4961, 187.207, 22, 0)
	pt3dadd(83.4961, 187.646, 22, 0)
	pt3dadd(83.4961, 188.086, 22, 0)
	pt3dadd(83.9355, 188.525, 22, 0)
	pt3dadd(84.375, 188.965, 22, 0)
	pt3dadd(84.375, 189.404, 22, 0)
	pt3dadd(84.375, 189.844, 22, 0)
	pt3dadd(84.375, 190.283, 22, 0)
	pt3dadd(84.375, 190.723, 22, 0)
  }
  dend[227] {pt3dclear()
	pt3dadd(86.5723, 174.902, 25, 0)
	pt3dadd(86.5723, 174.902, 25, 0)
	pt3dadd(87.0117, 174.902, 25, 0)
	pt3dadd(87.4512, 174.902, 25, 0)
	pt3dadd(87.8906, 174.902, 25, 0)
	pt3dadd(88.3301, 174.902, 24, 0)
	pt3dadd(88.7695, 174.463, 24, 0)
	pt3dadd(89.209, 174.463, 24, 0)
	pt3dadd(89.6484, 174.463, 24, 0)
	pt3dadd(90.0879, 174.463, 24, 0)
	pt3dadd(90.5273, 174.463, 24, 0)
	pt3dadd(90.9668, 174.463, 24, 0)
	pt3dadd(90.9668, 174.463, 25, 0)
	pt3dadd(91.4062, 174.463, 24, 0)
	pt3dadd(91.8457, 174.463, 23, 0)
	pt3dadd(92.2852, 174.463, 23, 0)
	pt3dadd(92.7246, 174.463, 23, 0)
	pt3dadd(93.1641, 174.463, 23, 0)
	pt3dadd(93.6035, 174.463, 23, 0)
	pt3dadd(94.043, 174.463, 23, 0)
	pt3dadd(94.4824, 174.023, 23, 0)
	pt3dadd(94.9219, 174.023, 23, 0)
	pt3dadd(95.3613, 174.023, 23, 0)
	pt3dadd(95.8008, 174.023, 23, 0)
	pt3dadd(96.2402, 174.023, 23, 0)
	pt3dadd(96.6797, 174.023, 23, 0)
	pt3dadd(97.1191, 174.023, 23, 0)
	pt3dadd(97.5586, 174.023, 23, 0)
	pt3dadd(97.998, 174.023, 23, 0)
	pt3dadd(98.4375, 174.023, 23, 0)
	pt3dadd(98.877, 174.023, 23, 0)
	pt3dadd(99.3164, 174.023, 23, 0)
	pt3dadd(99.7559, 174.023, 23, 0)
	pt3dadd(100.195, 174.023, 23, 0)
	pt3dadd(100.635, 174.023, 23, 0)
	pt3dadd(101.074, 173.584, 24, 0)
	pt3dadd(101.514, 173.145, 24, 0)
	pt3dadd(101.953, 173.145, 24, 0)
	pt3dadd(102.393, 173.145, 24, 0)
	pt3dadd(102.832, 173.145, 24, 0)
	pt3dadd(103.271, 172.705, 24, 0)
	pt3dadd(103.711, 172.705, 24, 0)
	pt3dadd(104.15, 172.705, 24, 0)
	pt3dadd(104.59, 173.145, 23, 0)
  }
  dend[228] {pt3dclear()
	pt3dadd(88.7695, 183.252, 25, 0)
	pt3dadd(88.7695, 183.252, 25, 0)
	pt3dadd(89.209, 182.812, 25, 0)
	pt3dadd(89.6484, 182.373, 24, 0)
	pt3dadd(89.6484, 181.934, 24, 0)
	pt3dadd(89.6484, 181.494, 24, 0)
	pt3dadd(89.6484, 181.055, 23, 0)
	pt3dadd(89.6484, 180.615, 23, 0)
	pt3dadd(90.0879, 180.176, 23, 0)
	pt3dadd(90.0879, 179.736, 23, 0)
	pt3dadd(90.5273, 179.297, 23, 0)
	pt3dadd(90.9668, 179.297, 23, 0)
	pt3dadd(91.4062, 178.857, 23, 0)
	pt3dadd(91.8457, 178.857, 23, 0)
	pt3dadd(92.2852, 178.418, 23, 0)
	pt3dadd(92.7246, 178.418, 23, 0)
	pt3dadd(93.1641, 178.418, 23, 0)
	pt3dadd(93.6035, 178.418, 23, 0)
	pt3dadd(94.043, 178.418, 23, 0)
	pt3dadd(94.4824, 178.418, 23, 0)
  }
  dend[229] {pt3dclear()
	pt3dadd(95.3613, 188.965, 21, 0)
	pt3dadd(95.3613, 188.965, 21, 0)
	pt3dadd(95.8008, 188.965, 21, 0)
	pt3dadd(96.2402, 188.525, 21, 0)
	pt3dadd(96.6797, 188.086, 20, 0)
	pt3dadd(97.1191, 188.086, 21, 0)
	pt3dadd(97.5586, 188.086, 21, 0)
	pt3dadd(97.998, 188.086, 21, 0)
	pt3dadd(98.4375, 187.646, 21, 0)
	pt3dadd(98.877, 187.207, 21, 0)
	pt3dadd(99.3164, 186.768, 21, 0)
	pt3dadd(99.3164, 186.328, 21, 0)
	pt3dadd(99.3164, 185.889, 21, 0)
  }
  dend[230] {pt3dclear()
	pt3dadd(89.6484, 152.49, 27, 0)
	pt3dadd(89.6484, 152.49, 27, 0)
	pt3dadd(89.209, 152.93, 26, 0)
	pt3dadd(88.7695, 153.369, 26, 0)
	pt3dadd(88.3301, 153.369, 26, 0)
	pt3dadd(87.8906, 152.93, 27, 0)
	pt3dadd(87.4512, 152.93, 27, 0)
	pt3dadd(87.0117, 152.49, 27, 0)
	pt3dadd(86.5723, 152.051, 27, 0)
	pt3dadd(86.1328, 151.611, 27, 0)
  }
  dend[231] {pt3dclear()
	pt3dadd(90.9668, 150.732, 27, 0)
	pt3dadd(90.9668, 150.732, 27, 0)
	pt3dadd(91.4062, 151.172, 27, 0)
	pt3dadd(91.8457, 151.172, 27, 0)
	pt3dadd(92.2852, 151.172, 26, 0)
	pt3dadd(92.7246, 151.611, 26, 0)
	pt3dadd(93.1641, 152.051, 27, 0)
	pt3dadd(93.6035, 152.49, 27, 0)
  }
  dend[232] {pt3dclear()
	pt3dadd(88.7695, 167.871, 25, 0)
	pt3dadd(88.7695, 167.871, 25, 0)
	pt3dadd(89.209, 167.432, 25, 0)
	pt3dadd(89.6484, 166.992, 24, 0)
	pt3dadd(90.0879, 166.992, 24, 0)
	pt3dadd(90.5273, 167.432, 24, 0)
	pt3dadd(90.9668, 167.432, 24, 0)
	pt3dadd(91.4062, 167.432, 24, 0)
	pt3dadd(91.8457, 167.432, 24, 0)
	pt3dadd(92.2852, 167.871, 25, 0)
	pt3dadd(92.7246, 167.871, 25, 0)
	pt3dadd(93.1641, 168.311, 25, 0)
	pt3dadd(93.1641, 168.75, 25, 0)
	pt3dadd(93.6035, 169.189, 25, 0)
	pt3dadd(93.6035, 169.629, 25, 0)
	pt3dadd(93.6035, 170.068, 25, 0)
	pt3dadd(94.043, 170.508, 24, 0)
	pt3dadd(94.043, 170.947, 24, 0)
	pt3dadd(94.4824, 171.387, 24, 0)
	pt3dadd(94.4824, 171.826, 24, 0)
	pt3dadd(94.9219, 172.266, 24, 0)
	pt3dadd(95.3613, 172.705, 24, 0)
  }
  dend[233] {pt3dclear()
	pt3dadd(85.6934, 172.266, 24, 0)
	pt3dadd(85.6934, 172.266, 24, 0)
	pt3dadd(86.1328, 171.826, 25, 0)
	pt3dadd(86.5723, 171.826, 25, 0)
	pt3dadd(87.0117, 172.266, 26, 0)
	pt3dadd(87.0117, 172.705, 26, 0)
	pt3dadd(87.0117, 173.145, 26, 0)
	pt3dadd(87.0117, 173.584, 26, 0)
	pt3dadd(87.0117, 174.023, 26, 0)
	pt3dadd(86.5723, 174.463, 25, 0)
	pt3dadd(86.5723, 174.902, 25, 0)
	pt3dadd(86.1328, 175.342, 25, 0)
	pt3dadd(86.1328, 175.781, 25, 0)
	pt3dadd(85.6934, 176.221, 25, 0)
	pt3dadd(85.2539, 176.66, 24, 0)
	pt3dadd(84.8145, 177.1, 24, 0)
	pt3dadd(84.375, 176.66, 24, 0)
	pt3dadd(83.9355, 176.221, 24, 0)
	pt3dadd(83.4961, 175.781, 23, 0)
	pt3dadd(83.0566, 175.781, 23, 0)
	pt3dadd(82.6172, 175.781, 23, 0)
	pt3dadd(82.1777, 175.781, 23, 0)
  }
  dend[234] {pt3dclear()
	pt3dadd(99.3164, 191.162, 20, 0)
	pt3dadd(99.3164, 191.162, 20, 0)
	pt3dadd(98.877, 191.602, 20, 0)
	pt3dadd(98.877, 192.041, 20, 0)
	pt3dadd(98.4375, 192.48, 20, 0)
	pt3dadd(97.998, 192.92, 20, 0)
	pt3dadd(97.5586, 192.92, 20, 0)
	pt3dadd(97.1191, 193.359, 20, 0)
	pt3dadd(96.6797, 193.799, 20, 0)
	pt3dadd(96.2402, 194.238, 20, 0)
	pt3dadd(95.8008, 194.238, 20, 0)
	pt3dadd(95.3613, 194.678, 20, 0)
	pt3dadd(94.9219, 194.678, 20, 0)
	pt3dadd(94.4824, 194.678, 20, 0)
	pt3dadd(94.043, 194.678, 20, 0)
	pt3dadd(93.6035, 195.117, 19, 0)
	pt3dadd(93.1641, 195.117, 19, 0)
	pt3dadd(92.7246, 195.117, 19, 0)
	pt3dadd(92.2852, 195.117, 18, 0)
	pt3dadd(91.8457, 195.117, 18, 0)
	pt3dadd(91.4062, 195.117, 18, 0)
	pt3dadd(90.9668, 195.117, 18, 0)
	pt3dadd(90.5273, 195.117, 19, 0)
	pt3dadd(90.0879, 195.117, 19, 0)
	pt3dadd(89.6484, 195.117, 19, 0)
	pt3dadd(89.209, 195.117, 19, 0)
	pt3dadd(88.7695, 195.117, 20, 0)
	pt3dadd(88.3301, 195.117, 20, 0)
	pt3dadd(87.8906, 195.117, 20, 0)
	pt3dadd(87.4512, 195.557, 21, 0)
	pt3dadd(87.0117, 195.557, 21, 0)
  }
}
proc shape3d_36() {
  dend[234] {	pt3dadd(86.5723, 195.557, 21, 0)
	pt3dadd(86.1328, 195.996, 21, 0)
	pt3dadd(85.6934, 195.996, 21, 0)
	pt3dadd(85.2539, 195.557, 21, 0)
	pt3dadd(84.8145, 195.557, 21, 0)
	pt3dadd(84.375, 195.557, 21, 0)
	pt3dadd(83.9355, 195.557, 21, 0)
	pt3dadd(83.4961, 195.557, 21, 0)
	pt3dadd(83.0566, 195.557, 21, 0)
	pt3dadd(82.6172, 195.557, 21, 0)
	pt3dadd(82.1777, 195.557, 21, 0)
	pt3dadd(81.7383, 195.557, 21, 0)
	pt3dadd(81.2988, 195.557, 21, 0)
	pt3dadd(80.8594, 195.557, 21, 0)
	pt3dadd(80.4199, 195.557, 21, 0)
	pt3dadd(80.4199, 195.996, 20, 0)
	pt3dadd(80.4199, 195.557, 21, 0)
	pt3dadd(79.9805, 195.557, 22, 0)
	pt3dadd(79.541, 195.117, 22, 0)
	pt3dadd(79.1016, 194.678, 22, 0)
	pt3dadd(78.6621, 194.238, 22, 0)
	pt3dadd(78.2227, 194.238, 22, 0)
  }
  dend[235] {pt3dclear()
	pt3dadd(99.3164, 147.217, 28, 0)
	pt3dadd(99.3164, 147.217, 28, 0)
	pt3dadd(99.7559, 146.777, 28, 0)
	pt3dadd(100.195, 146.777, 27, 0)
	pt3dadd(100.635, 146.777, 26, 0)
	pt3dadd(101.074, 146.777, 25, 0)
	pt3dadd(101.514, 147.217, 24, 0)
	pt3dadd(101.953, 147.656, 23, 0)
	pt3dadd(102.393, 147.656, 23, 0)
	pt3dadd(102.832, 148.096, 22, 0)
	pt3dadd(103.271, 148.096, 22, 0)
	pt3dadd(103.711, 148.535, 23, 0)
  }
  dend[236] {pt3dclear()
	pt3dadd(103.711, 148.535, 23, 0)
	pt3dadd(104.15, 148.535, 23, 0)
	pt3dadd(104.59, 148.535, 23, 0)
	pt3dadd(105.029, 148.535, 23, 0)
	pt3dadd(104.59, 148.535, 23, 0)
	pt3dadd(104.15, 148.535, 23, 0)
	pt3dadd(103.711, 148.096, 22, 0)
	pt3dadd(103.271, 148.096, 21, 0)
	pt3dadd(102.832, 148.535, 20, 0)
	pt3dadd(102.832, 148.975, 20, 0)
	pt3dadd(103.271, 149.414, 19, 0)
	pt3dadd(103.711, 149.854, 18, 0)
	pt3dadd(104.15, 150.293, 18, 0)
	pt3dadd(104.59, 150.732, 17, 0)
  }
  dend[237] {pt3dclear()
	pt3dadd(104.59, 150.732, 17, 0)
	pt3dadd(104.59, 151.172, 17, 0)
	pt3dadd(105.029, 151.611, 17, 0)
	pt3dadd(105.029, 152.051, 17, 0)
	pt3dadd(105.029, 152.49, 17, 0)
	pt3dadd(105.029, 152.93, 17, 0)
	pt3dadd(105.029, 153.369, 17, 0)
	pt3dadd(105.029, 153.809, 17, 0)
	pt3dadd(105.469, 154.248, 17, 0)
	pt3dadd(105.908, 154.248, 17, 0)
	pt3dadd(106.348, 154.248, 17, 0)
	pt3dadd(106.787, 154.248, 18, 0)
	pt3dadd(106.348, 154.688, 17, 0)
  }
  dend[238] {pt3dclear()
	pt3dadd(106.348, 154.688, 17, 0)
	pt3dadd(105.908, 154.688, 16, 0)
	pt3dadd(105.469, 155.127, 15, 0)
	pt3dadd(105.469, 155.127, 14, 0)
	pt3dadd(105.469, 155.127, 13, 0)
	pt3dadd(105.029, 155.127, 12, 0)
	pt3dadd(105.029, 155.566, 12, 0)
	pt3dadd(105.029, 156.006, 11, 0)
	pt3dadd(104.59, 156.445, 10, 0)
	pt3dadd(104.59, 156.885, 10, 0)
	pt3dadd(104.59, 157.324, 10, 0)
	pt3dadd(104.59, 157.764, 10, 0)
	pt3dadd(105.029, 158.203, 9, 0)
	pt3dadd(105.029, 158.643, 9, 0)
	pt3dadd(105.029, 159.082, 9, 0)
  }
  dend[239] {pt3dclear()
	pt3dadd(105.029, 159.082, 9, 0)
	pt3dadd(105.029, 159.521, 9, 0)
	pt3dadd(105.029, 159.961, 9, 0)
	pt3dadd(105.029, 160.4, 9, 0)
	pt3dadd(105.469, 160.84, 9, 0)
	pt3dadd(105.469, 161.279, 9, 0)
	pt3dadd(105.908, 161.719, 9, 0)
	pt3dadd(106.348, 161.719, 10, 0)
	pt3dadd(106.787, 162.158, 11, 0)
	pt3dadd(107.227, 162.598, 12, 0)
	pt3dadd(107.666, 163.037, 12, 0)
	pt3dadd(107.227, 162.598, 12, 0)
	pt3dadd(106.787, 162.158, 11, 0)
	pt3dadd(106.348, 162.598, 10, 0)
	pt3dadd(106.348, 163.037, 10, 0)
	pt3dadd(106.348, 163.477, 9, 0)
	pt3dadd(106.348, 163.916, 9, 0)
	pt3dadd(106.348, 164.355, 9, 0)
	pt3dadd(106.348, 164.795, 9, 0)
	pt3dadd(106.348, 165.234, 9, 0)
  }
  dend[240] {pt3dclear()
	pt3dadd(106.348, 165.234, 9, 0)
	pt3dadd(106.348, 165.674, 9, 0)
	pt3dadd(106.348, 166.113, 9, 0)
	pt3dadd(106.348, 166.553, 9, 0)
	pt3dadd(106.348, 166.992, 9, 0)
	pt3dadd(106.348, 167.432, 9, 0)
	pt3dadd(106.787, 167.871, 9, 0)
	pt3dadd(106.787, 168.311, 9, 0)
  }
  dend[241] {pt3dclear()
	pt3dadd(106.787, 168.311, 9, 0)
	pt3dadd(107.227, 168.75, 9, 0)
	pt3dadd(107.666, 169.189, 9, 0)
	pt3dadd(107.666, 169.629, 8, 0)
	pt3dadd(108.105, 170.068, 8, 0)
	pt3dadd(108.545, 170.508, 8, 0)
	pt3dadd(108.545, 170.947, 8, 0)
	pt3dadd(108.984, 171.387, 8, 0)
	pt3dadd(108.984, 171.826, 8, 0)
  }
  dend[242] {pt3dclear()
	pt3dadd(108.984, 171.826, 8, 0)
	pt3dadd(109.424, 172.266, 8, 0)
	pt3dadd(109.863, 172.705, 8, 0)
	pt3dadd(110.303, 173.145, 9, 0)
	pt3dadd(110.742, 173.584, 9, 0)
	pt3dadd(111.182, 173.584, 9, 0)
  }
  dend[243] {pt3dclear()
	pt3dadd(111.182, 173.584, 9, 0)
	pt3dadd(111.621, 173.584, 9, 0)
	pt3dadd(112.061, 174.023, 10, 0)
	pt3dadd(112.5, 174.463, 10, 0)
	pt3dadd(112.939, 174.902, 10, 0)
	pt3dadd(113.379, 175.342, 10, 0)
	pt3dadd(113.818, 175.342, 10, 0)
	pt3dadd(114.258, 175.342, 9, 0)
	pt3dadd(114.258, 175.781, 10, 0)
	pt3dadd(114.697, 176.221, 10, 0)
	pt3dadd(115.137, 176.66, 10, 0)
	pt3dadd(115.576, 177.1, 10, 0)
	pt3dadd(116.016, 177.539, 10, 0)
	pt3dadd(116.455, 177.979, 10, 0)
	pt3dadd(116.895, 177.979, 10, 0)
	pt3dadd(117.334, 178.418, 10, 0)
	pt3dadd(117.773, 178.418, 10, 0)
	pt3dadd(118.213, 178.857, 10, 0)
	pt3dadd(118.652, 178.857, 10, 0)
	pt3dadd(119.092, 178.857, 9, 0)
	pt3dadd(119.531, 178.857, 9, 0)
	pt3dadd(119.971, 179.297, 9, 0)
	pt3dadd(120.41, 179.736, 9, 0)
	pt3dadd(120.85, 180.176, 9, 0)
	pt3dadd(120.85, 180.615, 9, 0)
	pt3dadd(121.289, 180.615, 9, 0)
	pt3dadd(121.729, 180.615, 9, 0)
	pt3dadd(122.168, 180.615, 9, 0)
	pt3dadd(122.607, 181.055, 8, 0)
	pt3dadd(123.047, 181.494, 7, 0)
	pt3dadd(123.486, 181.934, 7, 0)
	pt3dadd(123.926, 181.934, 7, 0)
	pt3dadd(124.365, 182.373, 8, 0)
	pt3dadd(124.805, 182.373, 8, 0)
	pt3dadd(125.244, 182.373, 8, 0)
	pt3dadd(125.684, 182.373, 9, 0)
	pt3dadd(126.123, 182.373, 9, 0)
	pt3dadd(126.123, 182.812, 8, 0)
	pt3dadd(125.684, 182.373, 7, 0)
	pt3dadd(125.244, 182.812, 6, 0)
	pt3dadd(125.244, 182.373, 5, 0)
	pt3dadd(125.684, 182.373, 4, 0)
	pt3dadd(126.123, 182.812, 3, 0)
	pt3dadd(126.562, 182.812, 3, 0)
	pt3dadd(127.002, 182.812, 3, 0)
	pt3dadd(127.441, 182.812, 3, 0)
	pt3dadd(127.881, 182.812, 3, 0)
	pt3dadd(128.32, 182.812, 3, 0)
	pt3dadd(128.76, 183.252, 3, 0)
	pt3dadd(129.199, 183.691, 3, 0)
	pt3dadd(129.639, 183.691, 3, 0)
	pt3dadd(130.078, 184.131, 3, 0)
	pt3dadd(130.518, 184.131, 3, 0)
	pt3dadd(130.957, 184.131, 3, 0)
	pt3dadd(131.396, 184.131, 3, 0)
	pt3dadd(131.836, 184.57, 3, 0)
	pt3dadd(132.275, 184.57, 3, 0)
	pt3dadd(132.715, 185.01, 3, 0)
	pt3dadd(133.154, 185.01, 3, 0)
	pt3dadd(133.594, 185.449, 3, 0)
	pt3dadd(134.033, 185.889, 3, 0)
	pt3dadd(134.473, 186.328, 3, 0)
	pt3dadd(134.912, 186.328, 3, 0)
	pt3dadd(135.352, 185.889, 3, 0)
  }
  dend[244] {pt3dclear()
	pt3dadd(122.607, 146.338, 27, 0)
	pt3dadd(122.607, 146.338, 27, 0)
	pt3dadd(123.047, 146.777, 26, 0)
	pt3dadd(123.486, 147.217, 25, 0)
	pt3dadd(123.486, 147.656, 24, 0)
	pt3dadd(123.926, 148.096, 23, 0)
	pt3dadd(124.365, 148.535, 22, 0)
	pt3dadd(124.365, 148.975, 22, 0)
	pt3dadd(124.805, 149.414, 21, 0)
	pt3dadd(124.805, 149.854, 21, 0)
	pt3dadd(125.244, 149.854, 20, 0)
	pt3dadd(125.684, 150.293, 20, 0)
	pt3dadd(126.123, 150.732, 21, 0)
	pt3dadd(126.123, 151.172, 21, 0)
	pt3dadd(126.123, 150.732, 21, 0)
	pt3dadd(125.684, 150.293, 20, 0)
	pt3dadd(125.244, 149.854, 19, 0)
  }
}
proc shape3d_37() {
  dend[244] {	pt3dadd(124.805, 150.293, 18, 0)
	pt3dadd(124.805, 150.293, 17, 0)
	pt3dadd(124.805, 150.732, 16, 0)
	pt3dadd(125.244, 151.172, 16, 0)
	pt3dadd(125.244, 151.611, 16, 0)
	pt3dadd(124.805, 151.611, 15, 0)
	pt3dadd(124.805, 152.051, 15, 0)
	pt3dadd(124.805, 152.49, 14, 0)
	pt3dadd(124.805, 152.93, 13, 0)
	pt3dadd(124.805, 153.369, 13, 0)
	pt3dadd(124.805, 153.809, 12, 0)
	pt3dadd(124.805, 154.248, 11, 0)
	pt3dadd(125.244, 154.688, 11, 0)
  }
  dend[245] {pt3dclear()
	pt3dadd(134.473, 140.625, 28, 0)
	pt3dadd(134.473, 140.625, 28, 0)
	pt3dadd(134.473, 140.186, 28, 0)
	pt3dadd(134.473, 139.746, 28, 0)
	pt3dadd(134.912, 139.307, 28, 0)
	pt3dadd(134.912, 138.867, 28, 0)
	pt3dadd(134.912, 138.428, 28, 0)
	pt3dadd(135.352, 137.988, 28, 0)
	pt3dadd(135.352, 137.549, 28, 0)
	pt3dadd(135.791, 137.109, 28, 0)
	pt3dadd(136.23, 136.67, 28, 0)
	pt3dadd(136.67, 136.23, 28, 0)
	pt3dadd(137.109, 136.23, 28, 0)
  }
  dend[246] {pt3dclear()
	pt3dadd(137.109, 136.23, 28, 0)
	pt3dadd(137.549, 135.791, 28, 0)
	pt3dadd(137.988, 135.791, 28, 0)
	pt3dadd(138.428, 135.791, 28, 0)
	pt3dadd(138.867, 135.791, 28, 0)
	pt3dadd(139.307, 135.791, 28, 0)
	pt3dadd(139.746, 136.23, 28, 0)
	pt3dadd(140.186, 135.791, 28, 0)
	pt3dadd(140.625, 136.23, 29, 0)
	pt3dadd(141.064, 136.67, 29, 0)
	pt3dadd(141.504, 136.67, 29, 0)
	pt3dadd(141.943, 136.67, 29, 0)
	pt3dadd(142.383, 136.23, 30, 0)
	pt3dadd(142.822, 135.791, 30, 0)
	pt3dadd(143.262, 135.352, 30, 0)
	pt3dadd(143.701, 134.912, 30, 0)
	pt3dadd(144.141, 134.473, 30, 0)
	pt3dadd(144.58, 134.473, 30, 0)
	pt3dadd(145.02, 134.473, 30, 0)
	pt3dadd(145.459, 134.473, 30, 0)
	pt3dadd(145.02, 134.473, 29, 0)
	pt3dadd(145.459, 134.033, 28, 0)
	pt3dadd(145.898, 133.594, 27, 0)
	pt3dadd(146.338, 133.154, 27, 0)
	pt3dadd(146.338, 132.715, 27, 0)
	pt3dadd(146.338, 132.275, 27, 0)
	pt3dadd(146.777, 131.836, 27, 0)
	pt3dadd(147.217, 131.396, 26, 0)
	pt3dadd(147.217, 130.957, 26, 0)
	pt3dadd(147.217, 130.518, 26, 0)
	pt3dadd(147.217, 130.078, 26, 0)
	pt3dadd(147.656, 129.639, 26, 0)
	pt3dadd(147.656, 129.199, 26, 0)
	pt3dadd(148.096, 128.76, 26, 0)
	pt3dadd(148.096, 128.32, 26, 0)
	pt3dadd(148.535, 127.881, 26, 0)
	pt3dadd(148.975, 127.441, 26, 0)
	pt3dadd(149.414, 127.441, 26, 0)
	pt3dadd(149.854, 127.002, 26, 0)
	pt3dadd(150.293, 127.002, 26, 0)
	pt3dadd(150.732, 126.562, 26, 0)
	pt3dadd(151.172, 126.123, 27, 0)
	pt3dadd(151.611, 126.123, 27, 0)
	pt3dadd(152.051, 126.123, 27, 0)
	pt3dadd(152.49, 125.684, 27, 0)
	pt3dadd(152.93, 125.684, 27, 0)
	pt3dadd(153.369, 125.684, 27, 0)
	pt3dadd(153.809, 125.244, 26, 0)
  }
  dend[247] {pt3dclear()
	pt3dadd(153.809, 125.244, 26, 0)
	pt3dadd(154.248, 124.805, 26, 0)
	pt3dadd(154.688, 124.805, 26, 0)
	pt3dadd(155.127, 124.805, 26, 0)
	pt3dadd(155.566, 124.805, 26, 0)
	pt3dadd(156.006, 125.244, 26, 0)
	pt3dadd(156.445, 125.244, 26, 0)
	pt3dadd(156.885, 125.244, 26, 0)
	pt3dadd(157.324, 124.805, 26, 0)
	pt3dadd(157.764, 124.805, 26, 0)
	pt3dadd(158.203, 124.805, 26, 0)
	pt3dadd(158.643, 124.805, 26, 0)
	pt3dadd(159.082, 124.365, 26, 0)
	pt3dadd(159.082, 123.926, 26, 0)
	pt3dadd(159.082, 123.486, 26, 0)
	pt3dadd(159.082, 123.047, 26, 0)
	pt3dadd(159.082, 122.607, 26, 0)
	pt3dadd(159.082, 122.168, 26, 0)
	pt3dadd(159.082, 121.729, 26, 0)
	pt3dadd(159.521, 121.729, 26, 0)
	pt3dadd(159.961, 122.168, 26, 0)
	pt3dadd(160.4, 122.607, 26, 0)
	pt3dadd(160.84, 123.047, 26, 0)
	pt3dadd(161.279, 123.486, 26, 0)
	pt3dadd(161.719, 123.926, 26, 0)
	pt3dadd(162.158, 124.365, 26, 0)
	pt3dadd(162.598, 124.365, 26, 0)
	pt3dadd(163.037, 124.365, 26, 0)
	pt3dadd(163.477, 124.365, 27, 0)
	pt3dadd(163.916, 124.365, 27, 0)
	pt3dadd(164.355, 124.365, 27, 0)
	pt3dadd(164.795, 123.926, 27, 0)
	pt3dadd(165.234, 123.486, 27, 0)
	pt3dadd(165.674, 123.486, 27, 0)
	pt3dadd(166.113, 123.047, 27, 0)
	pt3dadd(166.553, 123.047, 27, 0)
	pt3dadd(166.992, 122.607, 28, 0)
	pt3dadd(167.432, 122.607, 28, 0)
	pt3dadd(167.871, 122.168, 28, 0)
	pt3dadd(168.311, 121.729, 28, 0)
	pt3dadd(168.311, 121.289, 28, 0)
	pt3dadd(168.311, 120.85, 28, 0)
	pt3dadd(168.75, 120.41, 28, 0)
	pt3dadd(169.189, 119.971, 28, 0)
	pt3dadd(169.629, 119.971, 28, 0)
	pt3dadd(170.068, 119.531, 28, 0)
	pt3dadd(170.508, 119.092, 28, 0)
	pt3dadd(170.947, 119.092, 28, 0)
	pt3dadd(171.387, 118.652, 27, 0)
	pt3dadd(171.826, 118.213, 27, 0)
	pt3dadd(172.266, 118.213, 27, 0)
	pt3dadd(172.705, 117.773, 27, 0)
	pt3dadd(173.145, 117.773, 27, 0)
	pt3dadd(173.584, 117.773, 27, 0)
	pt3dadd(174.023, 117.773, 26, 0)
	pt3dadd(174.463, 117.773, 26, 0)
	pt3dadd(174.902, 118.213, 26, 0)
	pt3dadd(175.342, 118.652, 26, 0)
	pt3dadd(175.342, 118.213, 26, 0)
	pt3dadd(175.342, 117.773, 27, 0)
	pt3dadd(175.342, 117.334, 27, 0)
	pt3dadd(175.342, 116.895, 27, 0)
	pt3dadd(174.902, 116.455, 28, 0)
	pt3dadd(174.902, 116.016, 28, 0)
	pt3dadd(175.342, 115.576, 28, 0)
	pt3dadd(175.781, 115.576, 28, 0)
	pt3dadd(176.221, 115.576, 28, 0)
	pt3dadd(176.66, 115.576, 28, 0)
	pt3dadd(177.1, 115.137, 28, 0)
	pt3dadd(177.539, 115.137, 28, 0)
	pt3dadd(177.979, 114.697, 28, 0)
	pt3dadd(178.418, 114.697, 28, 0)
	pt3dadd(178.857, 114.697, 28, 0)
	pt3dadd(179.297, 114.697, 28, 0)
	pt3dadd(179.736, 114.697, 28, 0)
	pt3dadd(180.176, 114.258, 28, 0)
	pt3dadd(180.615, 114.697, 28, 0)
	pt3dadd(181.055, 115.137, 27, 0)
	pt3dadd(181.494, 115.137, 27, 0)
	pt3dadd(181.934, 115.576, 26, 0)
	pt3dadd(182.373, 115.576, 26, 0)
	pt3dadd(182.812, 115.576, 26, 0)
	pt3dadd(183.252, 115.137, 26, 0)
	pt3dadd(183.691, 115.137, 26, 0)
	pt3dadd(184.131, 115.137, 26, 0)
	pt3dadd(184.57, 115.137, 26, 0)
	pt3dadd(185.01, 115.137, 26, 0)
	pt3dadd(185.449, 115.137, 26, 0)
	pt3dadd(185.889, 115.137, 26, 0)
	pt3dadd(186.328, 115.137, 26, 0)
	pt3dadd(186.768, 115.576, 26, 0)
	pt3dadd(187.207, 116.016, 26, 0)
	pt3dadd(187.646, 116.455, 26, 0)
	pt3dadd(188.086, 116.895, 26, 0)
  }
  dend[248] {pt3dclear()
	pt3dadd(149.414, 146.777, 26, 0)
	pt3dadd(149.414, 146.777, 26, 0)
	pt3dadd(149.854, 146.777, 26, 0)
	pt3dadd(150.293, 146.777, 26, 0)
	pt3dadd(150.732, 146.338, 26, 0)
	pt3dadd(150.732, 145.898, 26, 0)
	pt3dadd(151.172, 145.459, 26, 0)
	pt3dadd(151.172, 145.02, 26, 0)
	pt3dadd(151.611, 144.58, 26, 0)
	pt3dadd(152.051, 144.141, 26, 0)
	pt3dadd(152.49, 143.701, 26, 0)
	pt3dadd(152.93, 143.701, 26, 0)
	pt3dadd(153.369, 143.701, 26, 0)
	pt3dadd(153.809, 143.701, 26, 0)
	pt3dadd(154.248, 143.262, 26, 0)
	pt3dadd(154.688, 143.262, 26, 0)
	pt3dadd(155.127, 143.262, 26, 0)
	pt3dadd(155.566, 143.262, 26, 0)
	pt3dadd(156.006, 142.822, 25, 0)
	pt3dadd(156.445, 142.822, 25, 0)
	pt3dadd(156.885, 142.822, 25, 0)
	pt3dadd(157.324, 142.383, 24, 0)
	pt3dadd(157.764, 142.383, 24, 0)
	pt3dadd(158.203, 141.943, 24, 0)
	pt3dadd(158.643, 141.504, 24, 0)
	pt3dadd(159.082, 141.504, 24, 0)
	pt3dadd(159.521, 141.504, 24, 0)
	pt3dadd(159.961, 141.504, 24, 0)
	pt3dadd(160.4, 141.943, 24, 0)
	pt3dadd(160.84, 141.943, 24, 0)
	pt3dadd(161.279, 141.504, 24, 0)
	pt3dadd(161.719, 141.504, 24, 0)
  }
}
proc shape3d_38() {
  dend[248] {	pt3dadd(162.158, 141.504, 24, 0)
	pt3dadd(162.598, 141.943, 24, 0)
	pt3dadd(163.037, 141.943, 24, 0)
	pt3dadd(163.477, 141.943, 24, 0)
	pt3dadd(163.916, 142.383, 24, 0)
	pt3dadd(164.355, 142.383, 24, 0)
	pt3dadd(164.795, 142.383, 24, 0)
	pt3dadd(165.234, 142.383, 24, 0)
	pt3dadd(165.674, 142.383, 24, 0)
	pt3dadd(166.113, 142.383, 25, 0)
	pt3dadd(166.553, 142.383, 25, 0)
	pt3dadd(166.992, 142.383, 25, 0)
	pt3dadd(167.432, 142.383, 25, 0)
	pt3dadd(167.871, 142.383, 25, 0)
	pt3dadd(168.311, 142.383, 25, 0)
	pt3dadd(168.75, 142.383, 25, 0)
	pt3dadd(169.189, 142.383, 24, 0)
	pt3dadd(169.629, 142.822, 24, 0)
	pt3dadd(170.068, 142.822, 24, 0)
	pt3dadd(170.508, 142.822, 23, 0)
	pt3dadd(170.947, 142.822, 23, 0)
	pt3dadd(171.387, 142.822, 23, 0)
	pt3dadd(171.826, 142.822, 23, 0)
	pt3dadd(172.266, 142.822, 23, 0)
	pt3dadd(172.705, 142.822, 23, 0)
	pt3dadd(173.145, 142.822, 23, 0)
  }
  dend[249] {pt3dclear()
	pt3dadd(156.445, 149.414, 25, 0)
	pt3dadd(156.445, 149.414, 25, 0)
	pt3dadd(156.445, 149.414, 24, 0)
	pt3dadd(156.445, 149.854, 24, 0)
	pt3dadd(156.445, 150.293, 24, 0)
	pt3dadd(156.445, 150.732, 24, 0)
	pt3dadd(156.445, 151.172, 24, 0)
	pt3dadd(156.445, 151.611, 24, 0)
	pt3dadd(156.006, 152.051, 24, 0)
	pt3dadd(156.006, 152.49, 24, 0)
	pt3dadd(156.445, 152.93, 24, 0)
	pt3dadd(156.885, 153.369, 24, 0)
	pt3dadd(156.885, 153.809, 24, 0)
	pt3dadd(156.445, 154.248, 25, 0)
	pt3dadd(156.445, 154.688, 25, 0)
	pt3dadd(156.885, 154.248, 24, 0)
	pt3dadd(157.324, 154.248, 23, 0)
	pt3dadd(157.764, 154.688, 23, 0)
	pt3dadd(158.203, 154.688, 22, 0)
	pt3dadd(158.643, 155.127, 23, 0)
	pt3dadd(159.082, 155.127, 23, 0)
	pt3dadd(159.521, 155.127, 23, 0)
	pt3dadd(159.961, 155.566, 23, 0)
	pt3dadd(160.4, 155.566, 23, 0)
	pt3dadd(160.84, 155.566, 23, 0)
	pt3dadd(161.279, 156.006, 23, 0)
	pt3dadd(161.719, 156.445, 23, 0)
	pt3dadd(161.719, 156.885, 22, 0)
  }
  dend[250] {pt3dclear()
	pt3dadd(114.258, 171.387, 25, 0)
	pt3dadd(114.258, 171.387, 25, 0)
	pt3dadd(114.697, 171.387, 25, 0)
	pt3dadd(115.137, 171.387, 25, 0)
	pt3dadd(115.576, 171.387, 25, 0)
	pt3dadd(116.016, 171.387, 25, 0)
	pt3dadd(116.455, 171.826, 25, 0)
	pt3dadd(116.895, 171.826, 25, 0)
	pt3dadd(117.334, 171.826, 25, 0)
	pt3dadd(117.773, 171.826, 25, 0)
	pt3dadd(118.213, 171.826, 25, 0)
	pt3dadd(118.652, 171.826, 25, 0)
	pt3dadd(119.092, 171.826, 25, 0)
	pt3dadd(119.531, 171.826, 25, 0)
	pt3dadd(119.971, 171.826, 25, 0)
	pt3dadd(120.41, 171.826, 25, 0)
	pt3dadd(120.41, 172.266, 24, 0)
	pt3dadd(120.41, 172.705, 23, 0)
	pt3dadd(120.85, 172.705, 22, 0)
	pt3dadd(121.289, 173.145, 21, 0)
	pt3dadd(121.289, 173.584, 21, 0)
	pt3dadd(121.289, 174.023, 21, 0)
	pt3dadd(121.729, 174.463, 20, 0)
	pt3dadd(121.729, 174.902, 20, 0)
	pt3dadd(122.168, 175.342, 20, 0)
	pt3dadd(122.607, 175.781, 20, 0)
	pt3dadd(123.047, 176.221, 19, 0)
	pt3dadd(123.486, 176.66, 19, 0)
	pt3dadd(123.926, 176.66, 19, 0)
	pt3dadd(124.365, 176.66, 19, 0)
	pt3dadd(124.805, 177.1, 20, 0)
	pt3dadd(124.365, 176.66, 19, 0)
	pt3dadd(124.365, 177.1, 18, 0)
	pt3dadd(124.365, 177.539, 18, 0)
	pt3dadd(124.805, 177.979, 17, 0)
	pt3dadd(125.244, 177.979, 17, 0)
	pt3dadd(125.684, 177.979, 17, 0)
	pt3dadd(126.123, 177.979, 16, 0)
	pt3dadd(126.562, 177.979, 15, 0)
	pt3dadd(127.002, 177.979, 15, 0)
	pt3dadd(127.441, 177.979, 15, 0)
	pt3dadd(127.881, 177.539, 14, 0)
	pt3dadd(128.32, 177.539, 14, 0)
	pt3dadd(128.76, 177.539, 14, 0)
	pt3dadd(129.199, 177.539, 14, 0)
	pt3dadd(129.639, 177.539, 15, 0)
	pt3dadd(129.199, 177.539, 14, 0)
	pt3dadd(128.76, 177.539, 13, 0)
	pt3dadd(129.199, 177.979, 12, 0)
	pt3dadd(129.639, 178.418, 11, 0)
	pt3dadd(130.078, 178.418, 11, 0)
	pt3dadd(130.518, 178.857, 10, 0)
	pt3dadd(130.957, 178.857, 9, 0)
	pt3dadd(131.396, 178.857, 9, 0)
	pt3dadd(131.836, 178.857, 10, 0)
	pt3dadd(132.275, 178.857, 10, 0)
	pt3dadd(132.715, 178.418, 10, 0)
	pt3dadd(133.154, 177.979, 10, 0)
	pt3dadd(133.154, 177.539, 10, 0)
  }
  dend[251] {pt3dclear()
	pt3dadd(115.576, 179.297, 22, 0)
	pt3dadd(115.576, 179.297, 22, 0)
	pt3dadd(115.576, 179.736, 22, 0)
	pt3dadd(115.576, 180.176, 22, 0)
	pt3dadd(115.576, 180.615, 22, 0)
	pt3dadd(115.576, 181.055, 22, 0)
	pt3dadd(115.137, 181.494, 21, 0)
	pt3dadd(114.697, 181.934, 21, 0)
	pt3dadd(114.258, 181.934, 21, 0)
	pt3dadd(113.818, 182.373, 21, 0)
	pt3dadd(113.379, 182.373, 21, 0)
	pt3dadd(112.939, 182.373, 21, 0)
	pt3dadd(112.5, 182.373, 21, 0)
  }
  dend[252] {pt3dclear()
	pt3dadd(120.41, 181.934, 21, 0)
	pt3dadd(120.41, 181.934, 21, 0)
	pt3dadd(120.85, 181.934, 21, 0)
	pt3dadd(121.289, 181.934, 21, 0)
	pt3dadd(121.729, 181.934, 21, 0)
	pt3dadd(122.168, 181.494, 21, 0)
	pt3dadd(122.607, 181.494, 21, 0)
	pt3dadd(123.047, 181.055, 21, 0)
	pt3dadd(123.486, 180.615, 20, 0)
	pt3dadd(123.926, 180.615, 20, 0)
	pt3dadd(124.365, 180.615, 20, 0)
	pt3dadd(124.805, 180.615, 20, 0)
	pt3dadd(125.244, 180.615, 20, 0)
	pt3dadd(125.684, 180.615, 20, 0)
	pt3dadd(126.123, 180.615, 20, 0)
	pt3dadd(126.562, 180.615, 20, 0)
	pt3dadd(127.002, 180.176, 20, 0)
	pt3dadd(127.441, 179.736, 20, 0)
	pt3dadd(127.881, 179.736, 20, 0)
	pt3dadd(128.32, 179.736, 20, 0)
	pt3dadd(128.76, 179.736, 20, 0)
  }
  dend[253] {pt3dclear()
	pt3dadd(112.5, 159.961, 24, 0)
	pt3dadd(112.5, 159.961, 24, 0)
	pt3dadd(112.061, 160.4, 24, 0)
	pt3dadd(111.621, 160.84, 24, 0)
	pt3dadd(111.621, 161.279, 24, 0)
	pt3dadd(111.621, 161.719, 24, 0)
	pt3dadd(111.621, 162.158, 24, 0)
	pt3dadd(111.621, 162.598, 24, 0)
	pt3dadd(111.621, 163.037, 25, 0)
	pt3dadd(111.182, 163.477, 25, 0)
	pt3dadd(110.742, 163.916, 25, 0)
  }
  dend[254] {pt3dclear()
	pt3dadd(115.576, 163.916, 25, 0)
	pt3dadd(115.576, 163.916, 25, 0)
	pt3dadd(116.016, 163.916, 25, 0)
	pt3dadd(116.455, 163.916, 25, 0)
	pt3dadd(116.895, 164.355, 24, 0)
	pt3dadd(117.334, 164.355, 24, 0)
	pt3dadd(117.773, 164.795, 24, 0)
	pt3dadd(118.213, 165.234, 24, 0)
	pt3dadd(118.652, 165.674, 25, 0)
	pt3dadd(119.092, 166.113, 25, 0)
	pt3dadd(119.531, 166.553, 25, 0)
	pt3dadd(119.971, 166.992, 25, 0)
	pt3dadd(120.41, 167.432, 25, 0)
  }
  dend[255] {pt3dclear()
	pt3dadd(114.258, 170.947, 26, 0)
	pt3dadd(114.258, 170.947, 26, 0)
	pt3dadd(113.818, 170.947, 25, 0)
	pt3dadd(113.379, 170.947, 25, 0)
	pt3dadd(112.939, 170.508, 25, 0)
	pt3dadd(112.5, 170.508, 25, 0)
	pt3dadd(112.061, 170.068, 25, 0)
	pt3dadd(111.621, 170.068, 25, 0)
	pt3dadd(111.182, 170.068, 25, 0)
	pt3dadd(110.742, 169.629, 26, 0)
	pt3dadd(110.742, 169.189, 26, 0)
  }
  dend[256] {pt3dclear()
	pt3dadd(112.939, 172.705, 24, 0)
	pt3dadd(112.939, 172.705, 24, 0)
	pt3dadd(112.5, 172.705, 24, 0)
	pt3dadd(112.061, 172.705, 24, 0)
	pt3dadd(111.621, 172.705, 24, 0)
	pt3dadd(111.182, 172.705, 24, 0)
	pt3dadd(110.742, 173.145, 24, 0)
	pt3dadd(110.742, 173.584, 24, 0)
  }
  dend[257] {pt3dclear()
	pt3dadd(142.822, 174.023, 22, 0)
	pt3dadd(142.822, 174.023, 22, 0)
	pt3dadd(142.822, 173.584, 22, 0)
	pt3dadd(143.262, 173.145, 22, 0)
	pt3dadd(143.701, 173.145, 22, 0)
	pt3dadd(144.141, 173.145, 22, 0)
	pt3dadd(144.58, 172.705, 22, 0)
	pt3dadd(145.02, 172.705, 22, 0)
	pt3dadd(145.459, 172.266, 22, 0)
	pt3dadd(145.898, 172.266, 22, 0)
  }
}
proc shape3d_39() {
  dend[257] {	pt3dadd(146.338, 172.705, 22, 0)
	pt3dadd(146.777, 172.705, 22, 0)
	pt3dadd(147.217, 172.705, 22, 0)
	pt3dadd(147.656, 173.145, 21, 0)
	pt3dadd(148.096, 173.145, 21, 0)
	pt3dadd(148.535, 173.145, 21, 0)
	pt3dadd(148.975, 173.584, 21, 0)
	pt3dadd(149.414, 174.023, 21, 0)
	pt3dadd(149.854, 174.023, 21, 0)
	pt3dadd(150.293, 174.023, 22, 0)
	pt3dadd(149.854, 174.023, 21, 0)
	pt3dadd(150.293, 174.023, 20, 0)
	pt3dadd(150.732, 174.023, 20, 0)
	pt3dadd(151.172, 174.463, 20, 0)
	pt3dadd(151.611, 174.463, 20, 0)
	pt3dadd(152.051, 174.463, 19, 0)
	pt3dadd(152.49, 174.463, 19, 0)
	pt3dadd(152.93, 174.463, 19, 0)
	pt3dadd(153.369, 174.902, 19, 0)
	pt3dadd(153.809, 174.902, 19, 0)
	pt3dadd(154.248, 174.902, 19, 0)
	pt3dadd(154.688, 174.902, 19, 0)
	pt3dadd(155.127, 175.342, 19, 0)
	pt3dadd(155.566, 175.781, 19, 0)
	pt3dadd(156.006, 175.781, 19, 0)
	pt3dadd(156.445, 176.221, 19, 0)
	pt3dadd(156.885, 176.221, 19, 0)
	pt3dadd(157.324, 176.66, 19, 0)
	pt3dadd(157.324, 177.1, 19, 0)
	pt3dadd(157.764, 177.539, 19, 0)
	pt3dadd(158.203, 177.979, 20, 0)
	pt3dadd(158.643, 178.418, 20, 0)
	pt3dadd(158.643, 178.857, 20, 0)
	pt3dadd(158.643, 179.297, 20, 0)
	pt3dadd(158.643, 179.736, 20, 0)
	pt3dadd(158.203, 180.176, 20, 0)
	pt3dadd(158.203, 180.615, 20, 0)
	pt3dadd(158.203, 181.055, 20, 0)
	pt3dadd(158.643, 181.494, 20, 0)
	pt3dadd(159.082, 181.934, 20, 0)
	pt3dadd(159.521, 182.373, 19, 0)
	pt3dadd(159.961, 182.812, 19, 0)
	pt3dadd(160.4, 182.812, 19, 0)
	pt3dadd(160.84, 183.252, 19, 0)
	pt3dadd(161.279, 183.691, 19, 0)
	pt3dadd(161.719, 183.691, 19, 0)
	pt3dadd(162.158, 184.131, 19, 0)
	pt3dadd(162.598, 184.131, 19, 0)
	pt3dadd(163.037, 184.57, 19, 0)
	pt3dadd(163.477, 185.01, 18, 0)
	pt3dadd(163.916, 185.449, 18, 0)
	pt3dadd(164.355, 185.449, 18, 0)
	pt3dadd(164.795, 185.449, 18, 0)
	pt3dadd(165.234, 185.449, 18, 0)
	pt3dadd(165.674, 185.889, 18, 0)
	pt3dadd(166.113, 185.889, 18, 0)
	pt3dadd(166.553, 185.889, 18, 0)
	pt3dadd(166.992, 186.328, 18, 0)
	pt3dadd(167.432, 186.768, 18, 0)
	pt3dadd(167.871, 186.768, 18, 0)
	pt3dadd(168.311, 186.768, 18, 0)
	pt3dadd(168.75, 186.768, 18, 0)
	pt3dadd(169.189, 186.768, 18, 0)
	pt3dadd(169.629, 186.768, 18, 0)
	pt3dadd(170.068, 186.768, 18, 0)
	pt3dadd(170.508, 187.207, 18, 0)
	pt3dadd(170.947, 187.207, 18, 0)
	pt3dadd(171.387, 187.646, 17, 0)
	pt3dadd(171.826, 188.086, 17, 0)
	pt3dadd(171.826, 188.525, 17, 0)
	pt3dadd(172.266, 188.965, 16, 0)
	pt3dadd(172.705, 189.404, 16, 0)
	pt3dadd(173.145, 189.844, 16, 0)
	pt3dadd(173.145, 190.283, 16, 0)
	pt3dadd(173.584, 190.723, 16, 0)
	pt3dadd(174.023, 190.723, 17, 0)
	pt3dadd(174.463, 190.283, 18, 0)
	pt3dadd(174.902, 189.844, 18, 0)
	pt3dadd(175.342, 189.404, 18, 0)
	pt3dadd(174.902, 189.844, 18, 0)
	pt3dadd(174.463, 190.283, 18, 0)
	pt3dadd(174.023, 190.723, 17, 0)
	pt3dadd(173.584, 191.162, 16, 0)
	pt3dadd(174.023, 191.602, 15, 0)
	pt3dadd(174.463, 192.041, 15, 0)
	pt3dadd(174.902, 192.48, 15, 0)
	pt3dadd(174.902, 192.92, 15, 0)
	pt3dadd(174.902, 193.359, 15, 0)
	pt3dadd(174.902, 193.799, 15, 0)
	pt3dadd(174.902, 194.238, 15, 0)
	pt3dadd(174.902, 194.678, 15, 0)
	pt3dadd(174.463, 195.117, 15, 0)
	pt3dadd(174.463, 195.557, 15, 0)
	pt3dadd(174.023, 195.996, 15, 0)
	pt3dadd(173.584, 196.436, 15, 0)
	pt3dadd(173.584, 196.875, 15, 0)
	pt3dadd(173.145, 197.314, 15, 0)
	pt3dadd(172.705, 197.314, 15, 0)
  }
  dend[258] {pt3dclear()
	pt3dadd(148.975, 160.84, 24, 0)
	pt3dadd(148.975, 160.84, 24, 0)
	pt3dadd(149.414, 161.279, 24, 0)
	pt3dadd(149.854, 161.719, 24, 0)
	pt3dadd(149.854, 162.158, 24, 0)
	pt3dadd(149.854, 162.598, 23, 0)
	pt3dadd(149.854, 163.037, 23, 0)
	pt3dadd(150.293, 163.477, 23, 0)
	pt3dadd(150.293, 163.916, 23, 0)
	pt3dadd(150.293, 164.355, 23, 0)
	pt3dadd(150.293, 164.795, 23, 0)
	pt3dadd(149.854, 165.234, 23, 0)
	pt3dadd(149.854, 165.674, 23, 0)
	pt3dadd(149.854, 166.113, 23, 0)
	pt3dadd(149.414, 166.553, 23, 0)
	pt3dadd(149.414, 166.992, 23, 0)
	pt3dadd(149.414, 167.432, 23, 0)
	pt3dadd(149.414, 166.992, 23, 0)
	pt3dadd(149.414, 166.553, 23, 0)
	pt3dadd(149.854, 166.113, 22, 0)
	pt3dadd(150.293, 166.113, 21, 0)
	pt3dadd(150.293, 166.553, 20, 0)
	pt3dadd(150.293, 166.992, 19, 0)
	pt3dadd(150.293, 167.432, 19, 0)
	pt3dadd(149.854, 167.871, 18, 0)
	pt3dadd(149.414, 168.311, 17, 0)
	pt3dadd(148.975, 168.75, 17, 0)
	pt3dadd(148.535, 169.189, 18, 0)
	pt3dadd(148.096, 169.189, 18, 0)
	pt3dadd(148.535, 169.629, 17, 0)
	pt3dadd(148.535, 170.068, 16, 0)
	pt3dadd(148.535, 170.508, 16, 0)
	pt3dadd(148.096, 170.947, 15, 0)
	pt3dadd(148.096, 171.387, 15, 0)
	pt3dadd(148.096, 171.826, 15, 0)
	pt3dadd(148.096, 172.266, 15, 0)
	pt3dadd(147.656, 172.705, 14, 0)
	pt3dadd(147.217, 173.145, 14, 0)
	pt3dadd(146.777, 173.584, 14, 0)
	pt3dadd(146.777, 174.023, 14, 0)
	pt3dadd(146.777, 174.463, 14, 0)
	pt3dadd(147.217, 174.902, 14, 0)
	pt3dadd(147.656, 175.342, 14, 0)
	pt3dadd(147.217, 174.902, 14, 0)
	pt3dadd(146.777, 174.463, 14, 0)
	pt3dadd(146.338, 174.023, 13, 0)
	pt3dadd(146.338, 174.023, 12, 0)
	pt3dadd(145.898, 174.023, 11, 0)
	pt3dadd(145.898, 174.463, 10, 0)
	pt3dadd(145.898, 174.902, 10, 0)
	pt3dadd(145.898, 175.342, 10, 0)
	pt3dadd(145.459, 175.781, 11, 0)
	pt3dadd(145.02, 176.221, 11, 0)
	pt3dadd(144.58, 176.66, 11, 0)
	pt3dadd(144.141, 177.1, 11, 0)
	pt3dadd(143.701, 177.539, 11, 0)
	pt3dadd(143.262, 177.539, 11, 0)
	pt3dadd(143.262, 177.1, 11, 0)
	pt3dadd(143.262, 176.66, 11, 0)
	pt3dadd(143.701, 176.221, 11, 0)
	pt3dadd(144.141, 175.781, 10, 0)
	pt3dadd(144.58, 175.342, 10, 0)
	pt3dadd(145.02, 174.902, 9, 0)
	pt3dadd(145.459, 174.902, 9, 0)
	pt3dadd(145.898, 174.902, 9, 0)
	pt3dadd(145.898, 174.902, 8, 0)
	pt3dadd(146.338, 175.342, 7, 0)
	pt3dadd(146.338, 175.342, 6, 0)
	pt3dadd(146.338, 175.342, 5, 0)
	pt3dadd(146.338, 175.781, 4, 0)
	pt3dadd(146.338, 176.221, 3, 0)
	pt3dadd(145.898, 176.66, 2, 0)
	pt3dadd(145.898, 177.1, 2, 0)
	pt3dadd(146.338, 177.539, 2, 0)
	pt3dadd(146.777, 177.979, 2, 0)
	pt3dadd(147.217, 178.418, 2, 0)
  }
  dend[259] {pt3dclear()
	pt3dadd(151.611, 160.84, 24, 0)
	pt3dadd(151.611, 160.84, 24, 0)
	pt3dadd(152.051, 160.4, 23, 0)
	pt3dadd(152.49, 159.961, 23, 0)
	pt3dadd(152.49, 159.521, 23, 0)
	pt3dadd(152.93, 159.082, 22, 0)
	pt3dadd(153.369, 158.643, 22, 0)
	pt3dadd(153.809, 158.203, 22, 0)
	pt3dadd(153.809, 157.764, 22, 0)
	pt3dadd(153.809, 157.324, 22, 0)
	pt3dadd(153.809, 156.885, 22, 0)
	pt3dadd(153.369, 156.445, 23, 0)
  }
  dend[260] {pt3dclear()
	pt3dadd(117.773, 129.199, 32, 0)
	pt3dadd(117.773, 129.199, 32, 0)
	pt3dadd(117.334, 128.76, 32, 0)
	pt3dadd(116.895, 128.32, 31, 0)
	pt3dadd(116.895, 127.881, 31, 0)
	pt3dadd(116.895, 127.441, 31, 0)
	pt3dadd(116.895, 127.002, 31, 0)
	pt3dadd(116.895, 126.562, 31, 0)
	pt3dadd(116.895, 126.123, 31, 0)
	pt3dadd(116.895, 125.684, 31, 0)
	pt3dadd(116.895, 125.244, 31, 0)
	pt3dadd(116.895, 124.805, 31, 0)
	pt3dadd(116.455, 124.365, 31, 0)
	pt3dadd(116.016, 124.365, 31, 0)
  }
}
proc shape3d_40() {
  dend[260] {	pt3dadd(115.576, 123.926, 31, 0)
  }
  dend[261] {pt3dclear()
	pt3dadd(130.518, 129.199, 30, 0)
	pt3dadd(130.518, 129.199, 30, 0)
	pt3dadd(130.518, 128.76, 29, 0)
	pt3dadd(130.518, 128.32, 29, 0)
	pt3dadd(130.518, 127.881, 29, 0)
	pt3dadd(130.957, 127.441, 29, 0)
	pt3dadd(130.957, 127.002, 29, 0)
	pt3dadd(130.957, 126.562, 29, 0)
	pt3dadd(130.518, 126.123, 29, 0)
	pt3dadd(130.078, 125.684, 29, 0)
	pt3dadd(130.078, 125.244, 28, 0)
	pt3dadd(130.078, 124.805, 28, 0)
	pt3dadd(130.078, 124.365, 28, 0)
	pt3dadd(130.078, 123.926, 28, 0)
	pt3dadd(130.078, 123.486, 28, 0)
	pt3dadd(130.518, 123.047, 28, 0)
	pt3dadd(130.957, 122.607, 28, 0)
	pt3dadd(130.957, 122.168, 29, 0)
	pt3dadd(130.957, 121.729, 29, 0)
	pt3dadd(130.957, 121.289, 29, 0)
	pt3dadd(130.957, 120.85, 29, 0)
	pt3dadd(130.957, 120.41, 29, 0)
	pt3dadd(130.957, 119.971, 29, 0)
	pt3dadd(130.518, 119.531, 29, 0)
	pt3dadd(130.078, 119.092, 29, 0)
	pt3dadd(130.078, 118.652, 29, 0)
	pt3dadd(130.078, 118.213, 29, 0)
	pt3dadd(130.078, 117.773, 29, 0)
	pt3dadd(130.078, 117.334, 29, 0)
	pt3dadd(130.078, 116.895, 29, 0)
	pt3dadd(130.518, 116.455, 29, 0)
	pt3dadd(130.518, 116.016, 29, 0)
	pt3dadd(130.078, 116.016, 30, 0)
	pt3dadd(130.078, 115.576, 31, 0)
	pt3dadd(130.078, 115.137, 31, 0)
	pt3dadd(130.518, 114.697, 31, 0)
	pt3dadd(130.518, 114.258, 31, 0)
	pt3dadd(130.957, 113.818, 31, 0)
	pt3dadd(130.957, 113.379, 31, 0)
	pt3dadd(131.396, 112.939, 31, 0)
	pt3dadd(131.396, 112.5, 31, 0)
	pt3dadd(131.396, 112.061, 32, 0)
	pt3dadd(131.396, 111.621, 32, 0)
	pt3dadd(131.836, 111.182, 32, 0)
	pt3dadd(132.275, 110.742, 32, 0)
	pt3dadd(132.715, 110.303, 32, 0)
	pt3dadd(133.154, 109.863, 32, 0)
	pt3dadd(133.594, 109.424, 32, 0)
	pt3dadd(134.033, 108.984, 32, 0)
	pt3dadd(134.033, 108.545, 32, 0)
	pt3dadd(134.033, 108.105, 32, 0)
	pt3dadd(134.473, 107.666, 32, 0)
	pt3dadd(134.912, 107.227, 32, 0)
	pt3dadd(135.352, 106.787, 32, 0)
	pt3dadd(135.791, 106.348, 32, 0)
	pt3dadd(136.23, 106.348, 32, 0)
	pt3dadd(136.67, 106.348, 32, 0)
	pt3dadd(137.109, 106.348, 32, 0)
	pt3dadd(137.549, 106.348, 32, 0)
	pt3dadd(137.988, 105.908, 32, 0)
	pt3dadd(137.988, 105.469, 32, 0)
	pt3dadd(138.428, 105.029, 32, 0)
	pt3dadd(138.867, 105.029, 32, 0)
	pt3dadd(139.307, 104.59, 32, 0)
	pt3dadd(139.746, 104.59, 32, 0)
	pt3dadd(140.186, 104.59, 32, 0)
	pt3dadd(140.625, 104.15, 32, 0)
	pt3dadd(141.064, 103.711, 32, 0)
	pt3dadd(141.504, 103.271, 32, 0)
	pt3dadd(141.943, 103.271, 32, 0)
	pt3dadd(142.383, 102.832, 32, 0)
	pt3dadd(142.822, 102.393, 32, 0)
	pt3dadd(143.262, 101.953, 32, 0)
	pt3dadd(143.701, 101.514, 32, 0)
	pt3dadd(144.141, 101.074, 32, 0)
	pt3dadd(144.58, 101.074, 32, 0)
	pt3dadd(145.02, 101.074, 32, 0)
	pt3dadd(145.459, 100.635, 33, 0)
	pt3dadd(145.898, 100.635, 33, 0)
	pt3dadd(146.338, 100.635, 33, 0)
	pt3dadd(146.777, 100.635, 33, 0)
	pt3dadd(147.217, 100.635, 33, 0)
	pt3dadd(147.656, 100.635, 33, 0)
	pt3dadd(148.096, 100.195, 33, 0)
	pt3dadd(148.535, 100.195, 33, 0)
	pt3dadd(148.975, 100.195, 33, 0)
	pt3dadd(149.414, 100.195, 32, 0)
	pt3dadd(149.854, 99.7559, 32, 0)
	pt3dadd(150.293, 99.7559, 31, 0)
	pt3dadd(150.732, 99.3164, 31, 0)
	pt3dadd(151.172, 99.3164, 31, 0)
	pt3dadd(151.611, 99.3164, 31, 0)
	pt3dadd(152.051, 99.3164, 31, 0)
	pt3dadd(152.49, 99.3164, 31, 0)
	pt3dadd(152.93, 99.3164, 31, 0)
	pt3dadd(153.369, 99.3164, 31, 0)
	pt3dadd(153.809, 99.3164, 30, 0)
	pt3dadd(154.248, 99.3164, 30, 0)
	pt3dadd(154.688, 99.3164, 30, 0)
	pt3dadd(155.127, 99.3164, 30, 0)
	pt3dadd(155.566, 99.3164, 30, 0)
	pt3dadd(156.006, 99.7559, 31, 0)
	pt3dadd(156.445, 99.7559, 31, 0)
	pt3dadd(156.885, 99.7559, 31, 0)
	pt3dadd(157.324, 99.7559, 31, 0)
	pt3dadd(157.764, 99.7559, 31, 0)
	pt3dadd(158.203, 99.7559, 31, 0)
	pt3dadd(158.643, 100.195, 31, 0)
	pt3dadd(159.082, 100.635, 31, 0)
	pt3dadd(159.521, 100.635, 31, 0)
	pt3dadd(159.961, 100.635, 31, 0)
	pt3dadd(160.4, 101.074, 31, 0)
	pt3dadd(160.84, 101.514, 31, 0)
	pt3dadd(161.279, 101.953, 31, 0)
  }
  dend[262] {pt3dclear()
	pt3dadd(137.549, 128.76, 30, 0)
	pt3dadd(137.549, 128.76, 30, 0)
	pt3dadd(137.549, 128.32, 30, 0)
	pt3dadd(137.988, 127.881, 30, 0)
	pt3dadd(137.988, 127.441, 29, 0)
	pt3dadd(138.428, 127.002, 29, 0)
	pt3dadd(138.867, 126.562, 29, 0)
	pt3dadd(139.307, 126.123, 28, 0)
	pt3dadd(139.307, 125.684, 28, 0)
	pt3dadd(139.746, 125.244, 28, 0)
	pt3dadd(140.186, 124.805, 28, 0)
  }
  dend[263] {pt3dclear()
	pt3dadd(140.186, 124.805, 28, 0)
	pt3dadd(140.625, 124.365, 28, 0)
	pt3dadd(141.064, 123.926, 28, 0)
	pt3dadd(141.504, 123.486, 28, 0)
	pt3dadd(141.943, 123.486, 28, 0)
	pt3dadd(142.383, 123.047, 28, 0)
	pt3dadd(142.822, 122.607, 29, 0)
	pt3dadd(143.262, 122.168, 29, 0)
	pt3dadd(143.262, 121.729, 29, 0)
	pt3dadd(143.262, 121.289, 29, 0)
	pt3dadd(143.701, 120.85, 28, 0)
	pt3dadd(144.141, 120.41, 27, 0)
	pt3dadd(144.58, 120.41, 27, 0)
	pt3dadd(145.02, 120.41, 27, 0)
	pt3dadd(145.459, 120.41, 27, 0)
	pt3dadd(145.898, 120.41, 27, 0)
	pt3dadd(146.338, 120.41, 27, 0)
	pt3dadd(146.777, 120.41, 27, 0)
	pt3dadd(147.217, 120.41, 27, 0)
	pt3dadd(147.656, 119.971, 27, 0)
	pt3dadd(148.096, 119.531, 27, 0)
	pt3dadd(148.096, 119.092, 27, 0)
	pt3dadd(148.535, 118.652, 27, 0)
	pt3dadd(148.535, 118.213, 27, 0)
	pt3dadd(148.535, 117.773, 27, 0)
	pt3dadd(148.096, 117.334, 27, 0)
	pt3dadd(148.096, 116.895, 27, 0)
	pt3dadd(147.656, 116.455, 28, 0)
	pt3dadd(147.656, 116.016, 28, 0)
	pt3dadd(147.656, 115.576, 28, 0)
	pt3dadd(147.656, 115.137, 28, 0)
	pt3dadd(147.656, 114.697, 28, 0)
	pt3dadd(147.656, 114.258, 28, 0)
	pt3dadd(147.656, 113.818, 28, 0)
	pt3dadd(147.656, 113.379, 28, 0)
	pt3dadd(147.656, 112.939, 28, 0)
	pt3dadd(147.656, 112.5, 28, 0)
	pt3dadd(148.096, 112.061, 28, 0)
  }
  dend[264] {pt3dclear()
	pt3dadd(155.127, 131.836, 27, 0)
	pt3dadd(155.127, 131.836, 27, 0)
	pt3dadd(155.127, 132.275, 27, 0)
	pt3dadd(155.127, 132.715, 27, 0)
	pt3dadd(155.127, 133.154, 27, 0)
	pt3dadd(155.127, 133.594, 27, 0)
	pt3dadd(155.127, 134.033, 27, 0)
	pt3dadd(154.688, 134.473, 26, 0)
	pt3dadd(154.688, 134.912, 26, 0)
	pt3dadd(155.127, 135.352, 26, 0)
	pt3dadd(155.127, 135.791, 26, 0)
	pt3dadd(155.127, 136.23, 25, 0)
	pt3dadd(155.566, 136.67, 25, 0)
	pt3dadd(155.566, 137.109, 25, 0)
	pt3dadd(156.006, 137.549, 25, 0)
	pt3dadd(156.006, 137.988, 25, 0)
	pt3dadd(156.006, 138.428, 25, 0)
	pt3dadd(156.445, 138.867, 26, 0)
	pt3dadd(156.885, 139.307, 26, 0)
	pt3dadd(156.885, 139.746, 27, 0)
  }
  dend[265] {pt3dclear()
	pt3dadd(153.369, 130.518, 27, 0)
	pt3dadd(153.369, 130.518, 27, 0)
	pt3dadd(153.809, 130.518, 27, 0)
	pt3dadd(154.248, 130.078, 28, 0)
	pt3dadd(154.688, 129.639, 28, 0)
	pt3dadd(155.127, 129.199, 28, 0)
	pt3dadd(155.127, 128.76, 28, 0)
	pt3dadd(155.566, 128.32, 27, 0)
	pt3dadd(156.006, 128.32, 27, 0)
	pt3dadd(156.445, 128.32, 27, 0)
	pt3dadd(156.885, 128.32, 27, 0)
	pt3dadd(157.324, 128.32, 27, 0)
	pt3dadd(157.764, 128.76, 27, 0)
	pt3dadd(158.203, 128.76, 27, 0)
	pt3dadd(158.643, 128.76, 27, 0)
	pt3dadd(159.082, 128.32, 27, 0)
  }
}
proc shape3d_41() {
  dend[265] {	pt3dadd(159.521, 128.76, 27, 0)
	pt3dadd(159.961, 128.76, 27, 0)
	pt3dadd(160.4, 128.76, 26, 0)
	pt3dadd(160.84, 129.199, 26, 0)
	pt3dadd(161.279, 129.639, 26, 0)
	pt3dadd(161.719, 129.639, 26, 0)
	pt3dadd(162.158, 129.639, 26, 0)
	pt3dadd(162.598, 129.639, 26, 0)
	pt3dadd(163.037, 129.199, 26, 0)
	pt3dadd(163.477, 128.76, 26, 0)
	pt3dadd(163.477, 128.32, 26, 0)
	pt3dadd(163.916, 127.881, 26, 0)
	pt3dadd(163.916, 127.441, 26, 0)
	pt3dadd(164.355, 127.002, 26, 0)
	pt3dadd(164.795, 126.562, 26, 0)
	pt3dadd(165.234, 126.562, 27, 0)
	pt3dadd(165.674, 126.562, 27, 0)
	pt3dadd(166.113, 126.123, 27, 0)
	pt3dadd(166.553, 125.684, 27, 0)
	pt3dadd(166.992, 125.684, 27, 0)
	pt3dadd(167.432, 125.684, 27, 0)
	pt3dadd(167.871, 125.684, 27, 0)
	pt3dadd(168.311, 125.684, 27, 0)
	pt3dadd(168.75, 125.684, 27, 0)
	pt3dadd(169.189, 125.684, 27, 0)
	pt3dadd(169.629, 126.123, 27, 0)
	pt3dadd(170.068, 126.562, 26, 0)
  }
  dend[266] {pt3dclear()
	pt3dadd(113.379, 129.199, 31, 0)
	pt3dadd(113.379, 129.199, 31, 0)
	pt3dadd(113.379, 129.639, 31, 0)
	pt3dadd(113.379, 130.078, 30, 0)
	pt3dadd(113.818, 130.518, 30, 0)
	pt3dadd(113.818, 130.957, 30, 0)
	pt3dadd(114.258, 131.396, 30, 0)
	pt3dadd(114.697, 131.836, 30, 0)
	pt3dadd(114.697, 132.275, 30, 0)
	pt3dadd(115.137, 132.715, 30, 0)
	pt3dadd(115.576, 133.154, 30, 0)
	pt3dadd(115.576, 133.594, 30, 0)
	pt3dadd(115.576, 134.033, 30, 0)
	pt3dadd(115.576, 134.473, 30, 0)
	pt3dadd(115.576, 134.912, 30, 0)
  }
  dend[267] {pt3dclear()
	pt3dadd(111.182, 127.881, 31, 0)
	pt3dadd(111.182, 127.881, 31, 0)
	pt3dadd(110.742, 127.881, 32, 0)
	pt3dadd(110.303, 127.881, 32, 0)
	pt3dadd(109.863, 127.881, 32, 0)
	pt3dadd(109.424, 127.881, 32, 0)
	pt3dadd(108.984, 127.881, 31, 0)
	pt3dadd(108.545, 128.32, 30, 0)
	pt3dadd(108.545, 128.76, 30, 0)
	pt3dadd(108.105, 129.199, 30, 0)
	pt3dadd(107.666, 129.639, 30, 0)
  }
  dend[268] {pt3dclear()
	pt3dadd(118.213, 72.0703, 38, 0)
	pt3dadd(118.213, 72.0703, 38, 0)
	pt3dadd(117.773, 72.5098, 39, 0)
	pt3dadd(117.773, 72.9492, 39, 0)
	pt3dadd(117.773, 73.3887, 39, 0)
	pt3dadd(118.213, 73.8281, 39, 0)
	pt3dadd(118.213, 74.2676, 39, 0)
	pt3dadd(118.652, 74.707, 39, 0)
	pt3dadd(118.652, 75.1465, 39, 0)
	pt3dadd(119.092, 75.5859, 39, 0)
	pt3dadd(119.092, 76.0254, 39, 0)
	pt3dadd(119.531, 76.4648, 39, 0)
	pt3dadd(119.971, 76.9043, 39, 0)
	pt3dadd(120.41, 77.3438, 39, 0)
  }
  dend[269] {pt3dclear()
	pt3dadd(119.971, 68.5547, 39, 0)
	pt3dadd(119.971, 68.5547, 39, 0)
	pt3dadd(119.971, 68.9941, 39, 0)
	pt3dadd(119.971, 69.4336, 38, 0)
	pt3dadd(120.41, 69.4336, 38, 0)
	pt3dadd(120.85, 69.4336, 38, 0)
	pt3dadd(121.289, 69.4336, 38, 0)
	pt3dadd(121.729, 69.4336, 38, 0)
	pt3dadd(122.168, 69.873, 38, 0)
	pt3dadd(122.607, 69.873, 38, 0)
	pt3dadd(123.047, 70.3125, 39, 0)
	pt3dadd(123.486, 70.752, 39, 0)
	pt3dadd(123.926, 71.1914, 39, 0)
	pt3dadd(124.365, 71.6309, 39, 0)
	pt3dadd(124.805, 71.6309, 39, 0)
	pt3dadd(125.244, 71.6309, 39, 0)
	pt3dadd(125.684, 71.6309, 39, 0)
	pt3dadd(126.123, 71.6309, 39, 0)
	pt3dadd(126.562, 71.6309, 39, 0)
	pt3dadd(127.002, 71.6309, 39, 0)
	pt3dadd(127.441, 71.6309, 39, 0)
	pt3dadd(127.881, 71.6309, 39, 0)
	pt3dadd(127.881, 71.1914, 39, 0)
	pt3dadd(128.32, 70.752, 39, 0)
	pt3dadd(128.32, 70.3125, 39, 0)
	pt3dadd(128.32, 69.873, 39, 0)
	pt3dadd(128.76, 69.4336, 39, 0)
	pt3dadd(128.76, 68.9941, 39, 0)
	pt3dadd(128.76, 68.5547, 39, 0)
	pt3dadd(129.199, 68.1152, 40, 0)
	pt3dadd(129.199, 67.6758, 40, 0)
	pt3dadd(129.639, 67.2363, 40, 0)
	pt3dadd(130.078, 66.7969, 40, 0)
	pt3dadd(130.518, 66.7969, 40, 0)
	pt3dadd(130.957, 66.3574, 40, 0)
	pt3dadd(131.396, 66.7969, 39, 0)
	pt3dadd(131.836, 66.7969, 39, 0)
  }
  dend[270] {pt3dclear()
	pt3dadd(121.289, 60.2051, 42, 0)
	pt3dadd(121.289, 60.2051, 42, 0)
	pt3dadd(121.729, 60.2051, 42, 0)
	pt3dadd(122.168, 59.7656, 42, 0)
	pt3dadd(122.607, 60.2051, 42, 0)
	pt3dadd(123.047, 59.7656, 42, 0)
	pt3dadd(123.486, 59.7656, 42, 0)
	pt3dadd(123.926, 59.7656, 42, 0)
	pt3dadd(124.365, 59.3262, 42, 0)
	pt3dadd(124.805, 59.3262, 42, 0)
	pt3dadd(125.244, 59.3262, 42, 0)
  }
  dend[271] {pt3dclear()
	pt3dadd(126.562, 47.4609, 44, 0)
	pt3dadd(126.562, 47.4609, 44, 0)
	pt3dadd(126.562, 47.0215, 44, 0)
	pt3dadd(126.123, 46.582, 44, 0)
	pt3dadd(125.684, 46.1426, 44, 0)
	pt3dadd(125.244, 46.1426, 44, 0)
	pt3dadd(124.805, 45.7031, 45, 0)
	pt3dadd(124.805, 45.2637, 45, 0)
	pt3dadd(124.805, 44.8242, 45, 0)
	pt3dadd(124.365, 44.3848, 45, 0)
	pt3dadd(124.365, 43.9453, 44, 0)
	pt3dadd(124.365, 43.5059, 43, 0)
	pt3dadd(124.365, 43.0664, 43, 0)
	pt3dadd(124.365, 42.627, 44, 0)
  }
  dend[272] {pt3dclear()
	pt3dadd(131.396, 43.0664, 45, 0)
	pt3dadd(131.396, 43.0664, 45, 0)
	pt3dadd(131.396, 43.5059, 45, 0)
	pt3dadd(131.396, 43.9453, 45, 0)
	pt3dadd(131.396, 44.3848, 45, 0)
	pt3dadd(131.836, 44.8242, 45, 0)
	pt3dadd(132.275, 45.2637, 45, 0)
	pt3dadd(132.715, 45.7031, 45, 0)
	pt3dadd(133.154, 45.7031, 45, 0)
	pt3dadd(133.594, 46.1426, 45, 0)
	pt3dadd(134.033, 46.582, 45, 0)
	pt3dadd(134.033, 47.0215, 45, 0)
	pt3dadd(134.473, 47.4609, 45, 0)
	pt3dadd(134.912, 47.9004, 45, 0)
	pt3dadd(135.352, 48.3398, 45, 0)
	pt3dadd(135.791, 48.7793, 45, 0)
	pt3dadd(136.23, 49.2188, 45, 0)
	pt3dadd(136.23, 49.6582, 45, 0)
	pt3dadd(136.67, 50.0977, 44, 0)
	pt3dadd(137.109, 50.0977, 44, 0)
	pt3dadd(137.549, 50.5371, 44, 0)
	pt3dadd(137.988, 50.5371, 44, 0)
	pt3dadd(138.428, 50.5371, 44, 0)
	pt3dadd(138.867, 50.5371, 44, 0)
	pt3dadd(139.307, 50.5371, 44, 0)
	pt3dadd(139.746, 50.5371, 44, 0)
	pt3dadd(140.186, 50.5371, 44, 0)
	pt3dadd(140.625, 50.0977, 44, 0)
	pt3dadd(141.064, 49.6582, 44, 0)
	pt3dadd(141.504, 49.2188, 44, 0)
	pt3dadd(141.943, 49.2188, 44, 0)
	pt3dadd(142.383, 49.6582, 44, 0)
	pt3dadd(142.383, 50.0977, 44, 0)
  }
  dend[273] {pt3dclear()
	pt3dadd(134.033, 32.959, 49, 0)
	pt3dadd(134.033, 32.959, 49, 0)
	pt3dadd(133.594, 33.3984, 49, 0)
	pt3dadd(133.154, 33.3984, 49, 0)
	pt3dadd(132.715, 33.3984, 49, 0)
	pt3dadd(132.275, 32.959, 48, 0)
	pt3dadd(131.836, 32.959, 48, 0)
	pt3dadd(131.396, 32.959, 48, 0)
	pt3dadd(130.957, 32.5195, 48, 0)
	pt3dadd(130.518, 32.0801, 48, 0)
	pt3dadd(130.518, 31.6406, 48, 0)
  }
  dend[274] {pt3dclear()
	pt3dadd(137.549, 31.6406, 48, 0)
	pt3dadd(137.549, 31.6406, 48, 0)
	pt3dadd(137.549, 31.2012, 48, 0)
	pt3dadd(137.549, 30.7617, 48, 0)
	pt3dadd(137.549, 30.3223, 48, 0)
	pt3dadd(137.549, 29.8828, 48, 0)
	pt3dadd(137.988, 29.4434, 48, 0)
	pt3dadd(137.988, 29.0039, 48, 0)
	pt3dadd(138.428, 28.5645, 48, 0)
	pt3dadd(138.867, 28.125, 48, 0)
	pt3dadd(139.307, 27.6855, 48, 0)
  }
  dend[275] {pt3dclear()
	pt3dadd(145.898, 30.7617, 48, 0)
	pt3dadd(145.898, 30.7617, 48, 0)
	pt3dadd(146.338, 30.3223, 47, 0)
	pt3dadd(146.338, 29.8828, 47, 0)
	pt3dadd(146.338, 29.4434, 47, 0)
	pt3dadd(146.777, 29.0039, 47, 0)
	pt3dadd(146.777, 28.5645, 47, 0)
	pt3dadd(146.777, 28.125, 47, 0)
	pt3dadd(146.777, 27.6855, 47, 0)
	pt3dadd(146.777, 27.2461, 47, 0)
	pt3dadd(146.777, 26.8066, 47, 0)
	pt3dadd(146.777, 26.3672, 47, 0)
	pt3dadd(146.777, 25.9277, 47, 0)
	pt3dadd(146.777, 25.4883, 47, 0)
	pt3dadd(146.777, 25.0488, 48, 0)
	pt3dadd(146.338, 24.6094, 49, 0)
  }
}
proc shape3d_42() {
  dend[275] {	pt3dadd(145.898, 24.1699, 49, 0)
	pt3dadd(145.459, 23.7305, 49, 0)
	pt3dadd(145.02, 23.291, 49, 0)
	pt3dadd(144.58, 22.8516, 49, 0)
	pt3dadd(144.141, 22.4121, 49, 0)
	pt3dadd(143.701, 21.9727, 49, 0)
	pt3dadd(143.262, 21.9727, 49, 0)
	pt3dadd(142.822, 21.5332, 49, 0)
	pt3dadd(142.822, 21.0938, 49, 0)
	pt3dadd(142.383, 20.6543, 49, 0)
	pt3dadd(142.383, 20.2148, 49, 0)
	pt3dadd(142.383, 19.7754, 49, 0)
	pt3dadd(142.383, 19.3359, 48, 0)
	pt3dadd(142.383, 18.8965, 48, 0)
	pt3dadd(141.943, 18.457, 48, 0)
	pt3dadd(141.504, 18.0176, 48, 0)
	pt3dadd(141.504, 17.5781, 48, 0)
  }
  dend[276] {pt3dclear()
	pt3dadd(105.029, 52.7344, 45, 0)
	pt3dadd(105.029, 52.7344, 45, 0)
	pt3dadd(105.029, 52.2949, 45, 0)
	pt3dadd(105.469, 51.8555, 45, 0)
	pt3dadd(105.908, 51.416, 45, 0)
	pt3dadd(106.348, 50.9766, 45, 0)
	pt3dadd(106.787, 50.5371, 46, 0)
	pt3dadd(106.787, 50.0977, 46, 0)
	pt3dadd(106.787, 49.6582, 46, 0)
	pt3dadd(107.227, 49.2188, 45, 0)
	pt3dadd(107.227, 48.7793, 45, 0)
	pt3dadd(107.666, 48.3398, 45, 0)
	pt3dadd(108.105, 47.9004, 45, 0)
	pt3dadd(108.105, 47.4609, 45, 0)
  }
  dend[277] {pt3dclear()
	pt3dadd(87.0117, 76.0254, 41, 0)
	pt3dadd(87.0117, 76.0254, 41, 0)
	pt3dadd(87.4512, 75.5859, 41, 0)
	pt3dadd(87.8906, 75.5859, 40, 0)
	pt3dadd(88.3301, 76.0254, 40, 0)
	pt3dadd(88.7695, 76.0254, 40, 0)
	pt3dadd(89.209, 76.0254, 40, 0)
	pt3dadd(89.6484, 76.4648, 40, 0)
	pt3dadd(90.0879, 76.4648, 40, 0)
	pt3dadd(90.5273, 76.9043, 40, 0)
	pt3dadd(90.9668, 77.3438, 39, 0)
	pt3dadd(91.4062, 77.3438, 39, 0)
	pt3dadd(91.8457, 77.7832, 39, 0)
	pt3dadd(92.2852, 77.7832, 39, 0)
	pt3dadd(92.7246, 78.2227, 39, 0)
	pt3dadd(93.1641, 78.6621, 39, 0)
	pt3dadd(93.6035, 79.1016, 39, 0)
	pt3dadd(93.6035, 79.541, 40, 0)
	pt3dadd(93.6035, 79.9805, 40, 0)
	pt3dadd(94.043, 80.4199, 41, 0)
	pt3dadd(94.043, 80.8594, 41, 0)
  }
  dend[278] {pt3dclear()
	pt3dadd(84.375, 76.0254, 43, 0)
	pt3dadd(84.375, 76.0254, 43, 0)
	pt3dadd(83.9355, 76.0254, 43, 0)
	pt3dadd(83.4961, 76.0254, 43, 0)
	pt3dadd(83.0566, 76.4648, 44, 0)
	pt3dadd(82.6172, 76.0254, 44, 0)
	pt3dadd(82.1777, 75.5859, 44, 0)
	pt3dadd(82.1777, 75.1465, 44, 0)
	pt3dadd(82.1777, 74.707, 44, 0)
	pt3dadd(81.7383, 74.2676, 45, 0)
	pt3dadd(81.7383, 73.8281, 45, 0)
	pt3dadd(81.2988, 73.3887, 45, 0)
	pt3dadd(80.8594, 72.9492, 45, 0)
	pt3dadd(80.4199, 72.5098, 46, 0)
	pt3dadd(79.9805, 72.0703, 47, 0)
	pt3dadd(79.541, 71.6309, 47, 0)
	pt3dadd(79.541, 71.1914, 47, 0)
	pt3dadd(79.541, 70.752, 47, 0)
	pt3dadd(79.1016, 70.3125, 47, 0)
	pt3dadd(79.1016, 69.873, 46, 0)
	pt3dadd(78.6621, 69.4336, 46, 0)
	pt3dadd(78.6621, 68.9941, 46, 0)
	pt3dadd(78.2227, 68.5547, 45, 0)
	pt3dadd(77.7832, 68.1152, 45, 0)
	pt3dadd(77.3438, 67.6758, 45, 0)
	pt3dadd(77.3438, 67.2363, 44, 0)
	pt3dadd(76.9043, 66.7969, 44, 0)
	pt3dadd(76.4648, 66.3574, 44, 0)
	pt3dadd(76.0254, 65.918, 44, 0)
	pt3dadd(75.5859, 65.4785, 45, 0)
	pt3dadd(76.0254, 65.0391, 46, 0)
	pt3dadd(76.0254, 64.5996, 47, 0)
	pt3dadd(76.0254, 64.1602, 47, 0)
	pt3dadd(76.0254, 63.7207, 48, 0)
	pt3dadd(76.0254, 63.2812, 48, 0)
	pt3dadd(76.0254, 62.8418, 48, 0)
	pt3dadd(75.5859, 62.4023, 48, 0)
	pt3dadd(75.5859, 61.9629, 48, 0)
	pt3dadd(75.5859, 61.5234, 48, 0)
	pt3dadd(76.0254, 61.084, 48, 0)
	pt3dadd(76.0254, 61.084, 49, 0)
	pt3dadd(76.0254, 61.084, 50, 0)
	pt3dadd(75.5859, 60.6445, 51, 0)
	pt3dadd(75.1465, 60.2051, 51, 0)
	pt3dadd(74.707, 59.7656, 51, 0)
	pt3dadd(74.2676, 59.3262, 52, 0)
	pt3dadd(73.8281, 58.8867, 52, 0)
	pt3dadd(73.8281, 58.4473, 53, 0)
	pt3dadd(73.8281, 58.0078, 53, 0)
	pt3dadd(73.8281, 57.5684, 53, 0)
	pt3dadd(73.8281, 57.1289, 53, 0)
	pt3dadd(73.8281, 56.6895, 53, 0)
	pt3dadd(73.8281, 56.25, 53, 0)
	pt3dadd(73.3887, 55.8105, 53, 0)
	pt3dadd(72.9492, 55.3711, 53, 0)
	pt3dadd(72.9492, 54.9316, 52, 0)
	pt3dadd(72.9492, 54.4922, 52, 0)
	pt3dadd(72.9492, 54.0527, 52, 0)
	pt3dadd(72.5098, 53.6133, 51, 0)
	pt3dadd(72.5098, 53.1738, 51, 0)
	pt3dadd(72.5098, 52.7344, 51, 0)
  }
  dend[279] {pt3dclear()
	pt3dadd(72.5098, 52.7344, 51, 0)
	pt3dadd(72.0703, 52.2949, 50, 0)
	pt3dadd(72.0703, 51.8555, 50, 0)
	pt3dadd(71.6309, 51.416, 50, 0)
	pt3dadd(72.0703, 50.9766, 50, 0)
	pt3dadd(72.0703, 50.5371, 50, 0)
	pt3dadd(72.0703, 50.0977, 50, 0)
	pt3dadd(71.6309, 49.6582, 50, 0)
	pt3dadd(71.6309, 49.2188, 50, 0)
	pt3dadd(72.0703, 48.7793, 50, 0)
	pt3dadd(72.5098, 48.3398, 50, 0)
	pt3dadd(72.9492, 48.3398, 50, 0)
	pt3dadd(73.3887, 47.9004, 51, 0)
	pt3dadd(73.8281, 47.9004, 51, 0)
	pt3dadd(73.3887, 47.4609, 50, 0)
	pt3dadd(73.8281, 47.0215, 49, 0)
	pt3dadd(74.2676, 47.0215, 49, 0)
	pt3dadd(74.707, 46.582, 48, 0)
	pt3dadd(74.707, 46.1426, 47, 0)
	pt3dadd(75.1465, 45.7031, 46, 0)
	pt3dadd(75.1465, 45.2637, 46, 0)
	pt3dadd(75.5859, 44.8242, 45, 0)
	pt3dadd(76.0254, 44.3848, 45, 0)
	pt3dadd(76.0254, 43.9453, 45, 0)
  }
  dend[280] {pt3dclear()
	pt3dadd(42.1875, 182.812, 28, 0)
	pt3dadd(42.1875, 182.812, 28, 0)
	pt3dadd(41.748, 182.812, 28, 0)
	pt3dadd(41.3086, 182.812, 28, 0)
	pt3dadd(40.8691, 182.373, 28, 0)
	pt3dadd(40.4297, 182.373, 28, 0)
	pt3dadd(39.9902, 182.812, 28, 0)
	pt3dadd(39.5508, 182.812, 28, 0)
	pt3dadd(39.1113, 182.812, 28, 0)
	pt3dadd(38.6719, 182.812, 28, 0)
	pt3dadd(38.2324, 182.812, 28, 0)
	pt3dadd(37.793, 182.812, 28, 0)
	pt3dadd(37.3535, 182.812, 28, 0)
	pt3dadd(36.9141, 182.373, 27, 0)
	pt3dadd(36.4746, 182.373, 27, 0)
	pt3dadd(36.0352, 182.373, 27, 0)
	pt3dadd(35.5957, 181.934, 27, 0)
	pt3dadd(35.1562, 181.494, 27, 0)
	pt3dadd(34.7168, 181.494, 27, 0)
	pt3dadd(34.2773, 181.494, 27, 0)
	pt3dadd(33.8379, 181.934, 27, 0)
	pt3dadd(33.3984, 181.934, 27, 0)
	pt3dadd(32.959, 181.934, 27, 0)
	pt3dadd(32.5195, 181.934, 27, 0)
	pt3dadd(32.0801, 181.934, 27, 0)
	pt3dadd(31.6406, 182.373, 27, 0)
	pt3dadd(31.2012, 182.373, 27, 0)
	pt3dadd(30.7617, 182.812, 28, 0)
  }
  dend[281] {pt3dclear()
	pt3dadd(45.2637, 193.359, 24, 0)
	pt3dadd(45.2637, 193.359, 24, 0)
	pt3dadd(45.2637, 192.92, 24, 0)
	pt3dadd(44.8242, 192.48, 24, 0)
	pt3dadd(44.3848, 192.041, 24, 0)
	pt3dadd(43.9453, 192.041, 24, 0)
	pt3dadd(43.5059, 192.48, 24, 0)
	pt3dadd(43.0664, 192.92, 24, 0)
	pt3dadd(42.627, 192.92, 24, 0)
	pt3dadd(42.1875, 192.92, 24, 0)
	pt3dadd(41.748, 192.92, 24, 0)
	pt3dadd(41.3086, 192.92, 25, 0)
	pt3dadd(40.8691, 192.92, 25, 0)
	pt3dadd(40.4297, 192.92, 25, 0)
	pt3dadd(39.9902, 192.92, 25, 0)
	pt3dadd(39.5508, 192.92, 25, 0)
	pt3dadd(39.1113, 192.92, 25, 0)
	pt3dadd(38.6719, 192.92, 25, 0)
	pt3dadd(38.2324, 192.48, 26, 0)
	pt3dadd(37.793, 192.48, 26, 0)
	pt3dadd(37.3535, 192.48, 26, 0)
	pt3dadd(36.9141, 192.48, 26, 0)
	pt3dadd(36.4746, 192.48, 27, 0)
	pt3dadd(36.0352, 192.48, 27, 0)
	pt3dadd(35.5957, 192.48, 27, 0)
	pt3dadd(35.1562, 192.92, 28, 0)
	pt3dadd(34.7168, 192.92, 28, 0)
	pt3dadd(34.2773, 192.92, 28, 0)
	pt3dadd(33.8379, 192.92, 28, 0)
	pt3dadd(33.3984, 192.92, 28, 0)
	pt3dadd(32.959, 193.359, 28, 0)
	pt3dadd(32.5195, 193.359, 28, 0)
	pt3dadd(32.0801, 193.359, 28, 0)
	pt3dadd(31.6406, 193.359, 28, 0)
	pt3dadd(31.2012, 192.92, 27, 0)
  }
}
proc shape3d_43() {
  dend[281] {	pt3dadd(30.7617, 192.48, 27, 0)
	pt3dadd(30.3223, 192.041, 27, 0)
	pt3dadd(29.8828, 192.041, 27, 0)
	pt3dadd(29.4434, 191.602, 27, 0)
	pt3dadd(29.0039, 191.162, 26, 0)
	pt3dadd(28.5645, 191.162, 26, 0)
	pt3dadd(28.125, 191.162, 26, 0)
	pt3dadd(27.6855, 191.162, 26, 0)
	pt3dadd(27.2461, 191.162, 26, 0)
	pt3dadd(26.8066, 191.162, 26, 0)
	pt3dadd(26.3672, 191.162, 26, 0)
	pt3dadd(25.9277, 191.602, 26, 0)
	pt3dadd(25.4883, 191.602, 26, 0)
	pt3dadd(25.0488, 191.602, 26, 0)
	pt3dadd(24.6094, 191.602, 26, 0)
	pt3dadd(24.1699, 191.602, 26, 0)
	pt3dadd(23.7305, 191.162, 26, 0)
	pt3dadd(23.291, 191.162, 25, 0)
	pt3dadd(22.8516, 190.723, 25, 0)
	pt3dadd(22.4121, 190.283, 25, 0)
	pt3dadd(21.9727, 190.283, 25, 0)
	pt3dadd(21.5332, 190.283, 25, 0)
	pt3dadd(21.0938, 190.283, 25, 0)
	pt3dadd(20.6543, 190.283, 25, 0)
	pt3dadd(20.2148, 190.283, 25, 0)
	pt3dadd(19.7754, 190.283, 25, 0)
	pt3dadd(19.3359, 190.283, 25, 0)
	pt3dadd(18.8965, 190.283, 25, 0)
	pt3dadd(18.457, 190.723, 25, 0)
	pt3dadd(18.0176, 190.723, 25, 0)
  }
  dend[282] {pt3dclear()
	pt3dadd(43.9453, 186.768, 25, 0)
	pt3dadd(43.9453, 186.768, 25, 0)
	pt3dadd(43.5059, 186.328, 25, 0)
	pt3dadd(43.0664, 185.889, 25, 0)
	pt3dadd(42.627, 185.449, 25, 0)
	pt3dadd(42.1875, 185.01, 25, 0)
	pt3dadd(41.748, 184.57, 25, 0)
	pt3dadd(41.3086, 184.57, 25, 0)
	pt3dadd(40.8691, 184.57, 25, 0)
	pt3dadd(40.4297, 184.57, 25, 0)
	pt3dadd(39.9902, 184.57, 25, 0)
	pt3dadd(39.5508, 184.57, 25, 0)
	pt3dadd(39.1113, 185.01, 25, 0)
	pt3dadd(39.1113, 185.449, 25, 0)
	pt3dadd(38.6719, 185.889, 25, 0)
	pt3dadd(38.6719, 186.328, 25, 0)
  }
  dend[283] {pt3dclear()
	pt3dadd(31.2012, 204.346, 26, 0)
	pt3dadd(31.2012, 204.346, 26, 0)
	pt3dadd(31.6406, 204.346, 26, 0)
	pt3dadd(31.6406, 204.785, 26, 0)
	pt3dadd(32.0801, 205.225, 26, 0)
	pt3dadd(32.0801, 205.664, 26, 0)
	pt3dadd(32.5195, 206.104, 25, 0)
	pt3dadd(32.959, 206.104, 25, 0)
	pt3dadd(33.3984, 206.104, 25, 0)
	pt3dadd(33.8379, 206.543, 25, 0)
	pt3dadd(34.2773, 206.982, 25, 0)
	pt3dadd(34.7168, 207.422, 25, 0)
	pt3dadd(34.7168, 207.861, 25, 0)
	pt3dadd(34.7168, 208.301, 25, 0)
	pt3dadd(34.7168, 208.74, 25, 0)
	pt3dadd(34.7168, 209.18, 25, 0)
	pt3dadd(35.1562, 209.619, 25, 0)
	pt3dadd(35.5957, 210.059, 25, 0)
  }
  dend[284] {pt3dclear()
	pt3dadd(17.5781, 208.74, 17, 0)
	pt3dadd(17.5781, 208.74, 17, 0)
	pt3dadd(18.0176, 208.74, 16, 0)
	pt3dadd(18.0176, 209.18, 15, 0)
	pt3dadd(17.5781, 209.18, 14, 0)
	pt3dadd(17.1387, 209.619, 13, 0)
	pt3dadd(17.5781, 210.059, 12, 0)
	pt3dadd(17.5781, 210.498, 11, 0)
	pt3dadd(17.5781, 210.938, 11, 0)
	pt3dadd(17.5781, 211.377, 10, 0)
	pt3dadd(17.5781, 211.816, 10, 0)
	pt3dadd(17.1387, 212.256, 9, 0)
	pt3dadd(16.6992, 212.695, 9, 0)
	pt3dadd(16.2598, 213.135, 9, 0)
	pt3dadd(16.2598, 213.574, 9, 0)
	pt3dadd(15.8203, 214.014, 8, 0)
	pt3dadd(15.8203, 214.453, 8, 0)
	pt3dadd(15.3809, 214.893, 8, 0)
	pt3dadd(14.9414, 215.332, 8, 0)
	pt3dadd(14.9414, 215.771, 7, 0)
	pt3dadd(14.9414, 216.211, 7, 0)
	pt3dadd(14.9414, 216.65, 7, 0)
	pt3dadd(14.9414, 217.09, 7, 0)
	pt3dadd(14.9414, 217.529, 7, 0)
	pt3dadd(14.502, 217.969, 7, 0)
	pt3dadd(14.502, 218.408, 7, 0)
	pt3dadd(14.502, 218.848, 7, 0)
	pt3dadd(14.502, 219.287, 7, 0)
	pt3dadd(14.502, 219.727, 8, 0)
	pt3dadd(14.9414, 220.166, 8, 0)
  }
  dend[285] {pt3dclear()
	pt3dadd(61.5234, 148.975, 30, 0)
	pt3dadd(61.5234, 148.975, 30, 0)
	pt3dadd(61.084, 149.414, 30, 0)
	pt3dadd(60.6445, 149.414, 30, 0)
	pt3dadd(60.2051, 148.975, 30, 0)
	pt3dadd(59.7656, 148.535, 30, 0)
	pt3dadd(59.3262, 148.096, 30, 0)
	pt3dadd(58.8867, 147.656, 30, 0)
	pt3dadd(58.4473, 147.656, 30, 0)
	pt3dadd(58.0078, 147.217, 31, 0)
	pt3dadd(57.5684, 147.217, 31, 0)
	pt3dadd(57.1289, 146.777, 31, 0)
	pt3dadd(56.6895, 146.777, 31, 0)
	pt3dadd(56.25, 146.338, 31, 0)
	pt3dadd(55.8105, 146.338, 31, 0)
	pt3dadd(55.3711, 146.777, 30, 0)
	pt3dadd(54.9316, 146.338, 30, 0)
	pt3dadd(54.4922, 146.338, 30, 0)
	pt3dadd(54.0527, 145.898, 30, 0)
	pt3dadd(53.6133, 145.898, 30, 0)
	pt3dadd(53.1738, 146.338, 30, 0)
	pt3dadd(52.7344, 146.338, 30, 0)
	pt3dadd(52.2949, 146.338, 30, 0)
	pt3dadd(51.8555, 146.338, 30, 0)
	pt3dadd(51.416, 146.338, 30, 0)
	pt3dadd(50.9766, 146.338, 30, 0)
	pt3dadd(50.5371, 146.338, 30, 0)
	pt3dadd(50.0977, 146.338, 30, 0)
	pt3dadd(49.6582, 146.338, 30, 0)
	pt3dadd(49.2188, 146.338, 30, 0)
	pt3dadd(48.7793, 145.898, 31, 0)
	pt3dadd(48.3398, 145.459, 31, 0)
	pt3dadd(47.9004, 145.459, 31, 0)
	pt3dadd(47.4609, 145.02, 31, 0)
	pt3dadd(47.0215, 145.02, 31, 0)
	pt3dadd(46.582, 145.02, 31, 0)
	pt3dadd(46.1426, 144.58, 31, 0)
	pt3dadd(45.7031, 144.141, 31, 0)
	pt3dadd(45.2637, 143.701, 31, 0)
	pt3dadd(44.8242, 143.262, 31, 0)
	pt3dadd(44.3848, 142.822, 31, 0)
	pt3dadd(44.3848, 142.383, 31, 0)
	pt3dadd(44.3848, 141.943, 31, 0)
	pt3dadd(44.3848, 141.504, 31, 0)
	pt3dadd(43.9453, 141.064, 31, 0)
	pt3dadd(43.9453, 140.625, 31, 0)
	pt3dadd(43.9453, 140.186, 31, 0)
	pt3dadd(43.5059, 139.746, 31, 0)
	pt3dadd(43.0664, 139.746, 31, 0)
	pt3dadd(42.627, 139.746, 31, 0)
	pt3dadd(42.1875, 139.746, 31, 0)
	pt3dadd(41.748, 140.186, 30, 0)
  }
  dend[286] {pt3dclear()
	pt3dadd(53.1738, 149.854, 30, 0)
	pt3dadd(53.1738, 149.854, 30, 0)
	pt3dadd(53.1738, 149.414, 31, 0)
	pt3dadd(53.1738, 148.975, 31, 0)
	pt3dadd(53.1738, 148.535, 31, 0)
	pt3dadd(53.1738, 148.096, 31, 0)
	pt3dadd(53.1738, 147.656, 31, 0)
	pt3dadd(53.6133, 147.217, 32, 0)
	pt3dadd(53.6133, 146.777, 32, 0)
	pt3dadd(54.0527, 146.338, 32, 0)
	pt3dadd(54.0527, 145.898, 32, 0)
	pt3dadd(54.0527, 145.459, 32, 0)
	pt3dadd(54.4922, 145.02, 32, 0)
	pt3dadd(54.4922, 144.58, 32, 0)
	pt3dadd(54.4922, 144.141, 31, 0)
	pt3dadd(54.9316, 143.701, 30, 0)
	pt3dadd(54.4922, 143.701, 31, 0)
	pt3dadd(54.0527, 143.262, 32, 0)
	pt3dadd(53.6133, 142.822, 32, 0)
	pt3dadd(53.1738, 142.383, 32, 0)
	pt3dadd(52.7344, 141.943, 33, 0)
	pt3dadd(52.2949, 141.504, 33, 0)
	pt3dadd(51.8555, 141.504, 33, 0)
	pt3dadd(51.416, 141.064, 33, 0)
	pt3dadd(50.9766, 141.064, 33, 0)
	pt3dadd(50.5371, 141.064, 33, 0)
	pt3dadd(50.0977, 140.625, 32, 0)
	pt3dadd(49.6582, 140.625, 32, 0)
	pt3dadd(49.2188, 141.064, 33, 0)
	pt3dadd(48.7793, 141.064, 34, 0)
	pt3dadd(48.3398, 140.625, 35, 0)
	pt3dadd(47.9004, 140.625, 35, 0)
	pt3dadd(47.4609, 140.625, 35, 0)
	pt3dadd(47.0215, 140.625, 36, 0)
	pt3dadd(46.582, 140.186, 36, 0)
	pt3dadd(46.1426, 139.746, 36, 0)
	pt3dadd(45.7031, 139.746, 36, 0)
	pt3dadd(45.2637, 139.746, 36, 0)
	pt3dadd(44.8242, 139.746, 36, 0)
	pt3dadd(44.3848, 139.746, 36, 0)
	pt3dadd(43.9453, 139.746, 36, 0)
	pt3dadd(43.5059, 139.746, 36, 0)
	pt3dadd(43.0664, 139.746, 36, 0)
	pt3dadd(42.627, 139.746, 36, 0)
	pt3dadd(42.1875, 139.746, 36, 0)
	pt3dadd(41.748, 140.186, 36, 0)
	pt3dadd(41.3086, 140.186, 36, 0)
	pt3dadd(40.8691, 140.186, 36, 0)
	pt3dadd(40.4297, 139.746, 35, 0)
	pt3dadd(39.9902, 139.746, 35, 0)
	pt3dadd(39.5508, 139.746, 35, 0)
	pt3dadd(39.1113, 139.746, 35, 0)
	pt3dadd(38.6719, 139.746, 35, 0)
	pt3dadd(38.2324, 139.746, 35, 0)
  }
}
proc shape3d_44() {
  dend[286] {	pt3dadd(37.793, 139.307, 35, 0)
	pt3dadd(37.3535, 138.867, 35, 0)
	pt3dadd(36.9141, 138.867, 35, 0)
	pt3dadd(36.4746, 138.428, 35, 0)
	pt3dadd(36.0352, 138.428, 35, 0)
	pt3dadd(35.5957, 138.428, 35, 0)
	pt3dadd(35.1562, 138.428, 35, 0)
	pt3dadd(34.7168, 137.988, 35, 0)
	pt3dadd(34.2773, 137.988, 35, 0)
	pt3dadd(33.8379, 137.988, 35, 0)
	pt3dadd(33.3984, 137.549, 35, 0)
	pt3dadd(32.959, 137.109, 35, 0)
	pt3dadd(32.5195, 137.109, 35, 0)
	pt3dadd(32.0801, 137.109, 35, 0)
	pt3dadd(32.0801, 136.67, 35, 0)
	pt3dadd(31.6406, 136.23, 35, 0)
	pt3dadd(31.2012, 135.791, 35, 0)
	pt3dadd(30.7617, 135.352, 35, 0)
	pt3dadd(30.3223, 134.912, 35, 0)
	pt3dadd(29.8828, 134.912, 35, 0)
	pt3dadd(29.4434, 134.912, 35, 0)
	pt3dadd(29.0039, 134.473, 35, 0)
	pt3dadd(28.5645, 134.033, 35, 0)
	pt3dadd(28.125, 134.033, 35, 0)
	pt3dadd(27.6855, 134.473, 35, 0)
	pt3dadd(27.2461, 134.473, 35, 0)
	pt3dadd(26.8066, 134.473, 35, 0)
	pt3dadd(26.3672, 134.473, 35, 0)
	pt3dadd(25.9277, 134.473, 35, 0)
	pt3dadd(25.4883, 134.033, 35, 0)
	pt3dadd(25.0488, 134.033, 35, 0)
	pt3dadd(24.6094, 134.033, 35, 0)
	pt3dadd(24.1699, 134.033, 35, 0)
	pt3dadd(23.7305, 134.033, 35, 0)
	pt3dadd(23.291, 134.033, 35, 0)
	pt3dadd(22.8516, 134.033, 35, 0)
	pt3dadd(22.4121, 134.033, 35, 0)
	pt3dadd(21.9727, 134.033, 35, 0)
	pt3dadd(21.5332, 134.033, 34, 0)
	pt3dadd(21.0938, 134.033, 34, 0)
	pt3dadd(20.6543, 134.033, 34, 0)
	pt3dadd(20.2148, 134.033, 34, 0)
	pt3dadd(19.7754, 134.033, 34, 0)
	pt3dadd(19.3359, 134.033, 34, 0)
	pt3dadd(18.8965, 134.473, 34, 0)
	pt3dadd(18.457, 134.473, 34, 0)
	pt3dadd(18.0176, 134.473, 34, 0)
	pt3dadd(17.5781, 134.473, 34, 0)
	pt3dadd(17.1387, 134.473, 34, 0)
	pt3dadd(16.6992, 134.033, 35, 0)
	pt3dadd(16.2598, 134.033, 35, 0)
	pt3dadd(15.8203, 134.033, 35, 0)
	pt3dadd(15.3809, 134.033, 35, 0)
	pt3dadd(14.9414, 134.033, 35, 0)
	pt3dadd(14.502, 134.033, 35, 0)
	pt3dadd(14.0625, 133.594, 35, 0)
	pt3dadd(13.623, 133.154, 35, 0)
	pt3dadd(13.1836, 133.154, 35, 0)
	pt3dadd(12.7441, 133.154, 35, 0)
	pt3dadd(12.3047, 133.154, 35, 0)
	pt3dadd(11.8652, 132.715, 35, 0)
	pt3dadd(11.4258, 132.715, 35, 0)
	pt3dadd(10.9863, 132.715, 35, 0)
	pt3dadd(10.5469, 132.715, 35, 0)
	pt3dadd(10.1074, 132.715, 35, 0)
	pt3dadd(9.66797, 132.715, 35, 0)
	pt3dadd(9.22852, 132.715, 35, 0)
	pt3dadd(8.78906, 132.275, 34, 0)
	pt3dadd(8.34961, 131.836, 34, 0)
	pt3dadd(8.34961, 131.396, 34, 0)
	pt3dadd(7.91016, 131.396, 34, 0)
	pt3dadd(7.4707, 131.836, 35, 0)
	pt3dadd(7.03125, 132.275, 36, 0)
	pt3dadd(6.5918, 132.275, 36, 0)
	pt3dadd(6.15234, 131.836, 36, 0)
	pt3dadd(5.71289, 131.396, 36, 0)
	pt3dadd(5.27344, 130.957, 37, 0)
	pt3dadd(5.27344, 130.518, 37, 0)
	pt3dadd(4.83398, 130.078, 37, 0)
	pt3dadd(4.39453, 129.639, 38, 0)
	pt3dadd(3.95508, 129.639, 38, 0)
	pt3dadd(3.51562, 129.639, 38, 0)
	pt3dadd(3.07617, 129.639, 38, 0)
	pt3dadd(2.63672, 129.639, 38, 0)
	pt3dadd(2.19727, 129.639, 38, 0)
	pt3dadd(1.75781, 129.199, 38, 0)
	pt3dadd(1.31836, 129.199, 37, 0)
	pt3dadd(1.31836, 129.199, 36, 0)
  }
  dend[287] {pt3dclear()
	pt3dadd(58.0078, 151.611, 30, 0)
	pt3dadd(58.0078, 151.611, 30, 0)
	pt3dadd(57.5684, 151.611, 30, 0)
	pt3dadd(57.5684, 152.051, 30, 0)
	pt3dadd(57.5684, 152.49, 30, 0)
	pt3dadd(57.5684, 152.93, 29, 0)
	pt3dadd(57.5684, 153.369, 29, 0)
	pt3dadd(57.5684, 153.809, 29, 0)
	pt3dadd(57.5684, 154.248, 29, 0)
	pt3dadd(57.5684, 154.688, 29, 0)
	pt3dadd(57.1289, 155.127, 29, 0)
	pt3dadd(57.1289, 155.566, 29, 0)
	pt3dadd(57.1289, 156.006, 29, 0)
	pt3dadd(56.6895, 156.445, 30, 0)
	pt3dadd(57.1289, 156.006, 29, 0)
	pt3dadd(57.1289, 156.006, 28, 0)
	pt3dadd(56.6895, 156.445, 28, 0)
	pt3dadd(56.25, 156.885, 28, 0)
	pt3dadd(55.8105, 157.324, 28, 0)
	pt3dadd(55.3711, 157.764, 27, 0)
	pt3dadd(55.3711, 158.203, 27, 0)
	pt3dadd(55.3711, 158.643, 27, 0)
	pt3dadd(54.9316, 159.082, 27, 0)
	pt3dadd(54.4922, 159.082, 27, 0)
	pt3dadd(54.0527, 159.521, 28, 0)
	pt3dadd(53.6133, 159.961, 28, 0)
	pt3dadd(53.1738, 160.4, 28, 0)
	pt3dadd(53.6133, 159.961, 28, 0)
	pt3dadd(54.0527, 159.521, 28, 0)
	pt3dadd(54.4922, 159.082, 27, 0)
	pt3dadd(54.9316, 159.521, 26, 0)
	pt3dadd(54.9316, 159.961, 26, 0)
	pt3dadd(54.9316, 160.4, 26, 0)
	pt3dadd(54.9316, 160.84, 25, 0)
	pt3dadd(54.4922, 161.279, 25, 0)
	pt3dadd(54.0527, 161.719, 24, 0)
	pt3dadd(53.6133, 162.158, 24, 0)
	pt3dadd(53.1738, 162.598, 23, 0)
	pt3dadd(52.7344, 163.037, 23, 0)
	pt3dadd(52.2949, 163.477, 23, 0)
	pt3dadd(51.8555, 163.916, 23, 0)
	pt3dadd(51.416, 164.355, 23, 0)
	pt3dadd(50.9766, 163.916, 24, 0)
	pt3dadd(50.9766, 164.355, 23, 0)
	pt3dadd(50.9766, 164.795, 23, 0)
	pt3dadd(51.416, 165.234, 23, 0)
	pt3dadd(51.8555, 165.674, 24, 0)
	pt3dadd(52.2949, 166.113, 24, 0)
	pt3dadd(52.7344, 166.553, 25, 0)
	pt3dadd(53.1738, 166.992, 26, 0)
	pt3dadd(53.1738, 167.432, 26, 0)
	pt3dadd(52.7344, 167.871, 26, 0)
	pt3dadd(52.7344, 168.311, 26, 0)
	pt3dadd(52.7344, 168.75, 26, 0)
	pt3dadd(52.2949, 169.189, 26, 0)
	pt3dadd(51.8555, 169.629, 26, 0)
	pt3dadd(51.8555, 170.068, 26, 0)
	pt3dadd(51.416, 170.508, 26, 0)
	pt3dadd(50.9766, 170.508, 25, 0)
	pt3dadd(50.5371, 170.508, 24, 0)
	pt3dadd(50.0977, 170.508, 24, 0)
	pt3dadd(49.6582, 170.947, 23, 0)
	pt3dadd(49.2188, 170.947, 23, 0)
	pt3dadd(48.7793, 171.387, 22, 0)
	pt3dadd(48.3398, 170.947, 22, 0)
	pt3dadd(47.9004, 170.947, 22, 0)
	pt3dadd(47.4609, 170.508, 22, 0)
	pt3dadd(47.0215, 170.508, 22, 0)
	pt3dadd(46.582, 170.508, 22, 0)
	pt3dadd(46.1426, 170.508, 22, 0)
	pt3dadd(45.7031, 170.508, 22, 0)
	pt3dadd(45.2637, 170.508, 21, 0)
	pt3dadd(44.8242, 170.508, 21, 0)
	pt3dadd(44.3848, 170.068, 21, 0)
	pt3dadd(43.9453, 170.068, 21, 0)
	pt3dadd(43.5059, 170.068, 21, 0)
	pt3dadd(43.0664, 169.629, 21, 0)
	pt3dadd(42.627, 169.189, 21, 0)
	pt3dadd(42.1875, 169.189, 21, 0)
	pt3dadd(41.748, 169.189, 21, 0)
	pt3dadd(41.3086, 169.629, 20, 0)
  }
  dend[288] {pt3dclear()
	pt3dadd(121.729, 103.271, 33, 0)
	pt3dadd(121.729, 103.271, 33, 0)
	pt3dadd(122.168, 102.832, 32, 0)
	pt3dadd(122.607, 102.832, 32, 0)
	pt3dadd(123.047, 102.832, 32, 0)
	pt3dadd(123.486, 103.271, 32, 0)
	pt3dadd(123.926, 103.271, 32, 0)
	pt3dadd(124.365, 103.711, 31, 0)
	pt3dadd(124.805, 103.711, 31, 0)
	pt3dadd(125.244, 103.711, 31, 0)
	pt3dadd(125.684, 103.711, 31, 0)
	pt3dadd(126.123, 103.711, 31, 0)
	pt3dadd(126.562, 103.271, 31, 0)
	pt3dadd(127.002, 103.271, 31, 0)
	pt3dadd(127.441, 103.271, 31, 0)
	pt3dadd(127.881, 102.832, 31, 0)
	pt3dadd(128.32, 102.832, 31, 0)
	pt3dadd(128.76, 102.832, 31, 0)
	pt3dadd(129.199, 102.832, 31, 0)
	pt3dadd(129.639, 102.832, 31, 0)
	pt3dadd(130.078, 102.393, 31, 0)
	pt3dadd(130.518, 102.393, 31, 0)
	pt3dadd(130.957, 102.393, 31, 0)
	pt3dadd(131.396, 102.393, 31, 0)
	pt3dadd(131.836, 102.832, 31, 0)
	pt3dadd(132.275, 103.271, 31, 0)
	pt3dadd(132.715, 103.711, 31, 0)
	pt3dadd(132.715, 104.15, 31, 0)
	pt3dadd(132.715, 104.59, 31, 0)
	pt3dadd(132.715, 105.029, 31, 0)
  }
  dend[289] {pt3dclear()
	pt3dadd(106.787, 111.182, 33, 0)
  }
}
proc shape3d_45() {
  dend[289] {	pt3dadd(106.787, 111.182, 33, 0)
	pt3dadd(106.348, 111.621, 33, 0)
	pt3dadd(105.908, 111.621, 33, 0)
	pt3dadd(105.469, 111.621, 33, 0)
	pt3dadd(105.029, 112.061, 33, 0)
	pt3dadd(104.59, 112.5, 33, 0)
	pt3dadd(104.59, 112.939, 33, 0)
	pt3dadd(104.59, 113.379, 33, 0)
	pt3dadd(104.15, 113.818, 33, 0)
	pt3dadd(104.15, 114.258, 32, 0)
	pt3dadd(104.15, 114.697, 32, 0)
	pt3dadd(104.15, 115.137, 32, 0)
	pt3dadd(104.15, 115.576, 31, 0)
	pt3dadd(104.15, 116.016, 31, 0)
	pt3dadd(104.15, 116.455, 31, 0)
	pt3dadd(104.59, 116.895, 31, 0)
	pt3dadd(105.029, 117.334, 31, 0)
	pt3dadd(105.469, 117.773, 31, 0)
	pt3dadd(105.469, 118.213, 31, 0)
	pt3dadd(105.469, 118.652, 31, 0)
  }
  dend[290] {pt3dclear()
	pt3dadd(109.424, 107.666, 32, 0)
	pt3dadd(109.424, 107.666, 32, 0)
	pt3dadd(109.424, 108.105, 31, 0)
	pt3dadd(109.424, 107.666, 30, 0)
	pt3dadd(109.863, 107.666, 30, 0)
	pt3dadd(110.303, 107.666, 29, 0)
	pt3dadd(110.742, 107.666, 28, 0)
	pt3dadd(111.182, 107.666, 28, 0)
	pt3dadd(111.621, 107.227, 27, 0)
  }
  dend[291] {pt3dclear()
	pt3dadd(111.621, 107.227, 27, 0)
	pt3dadd(111.621, 106.787, 27, 0)
	pt3dadd(111.621, 106.348, 27, 0)
	pt3dadd(111.182, 105.908, 27, 0)
	pt3dadd(111.182, 105.469, 27, 0)
	pt3dadd(111.182, 105.029, 26, 0)
	pt3dadd(110.742, 104.59, 26, 0)
	pt3dadd(110.303, 104.15, 26, 0)
  }
  dend[292] {pt3dclear()
	pt3dadd(110.303, 104.15, 26, 0)
	pt3dadd(110.303, 103.711, 26, 0)
	pt3dadd(109.863, 103.271, 25, 0)
	pt3dadd(109.424, 102.832, 25, 0)
	pt3dadd(108.984, 102.393, 25, 0)
	pt3dadd(108.545, 101.953, 25, 0)
	pt3dadd(108.545, 101.514, 25, 0)
	pt3dadd(108.545, 101.074, 25, 0)
	pt3dadd(108.105, 100.635, 25, 0)
	pt3dadd(108.105, 100.195, 25, 0)
	pt3dadd(107.666, 99.7559, 26, 0)
	pt3dadd(107.666, 99.3164, 26, 0)
	pt3dadd(107.227, 98.877, 26, 0)
	pt3dadd(107.227, 98.4375, 26, 0)
	pt3dadd(107.227, 97.998, 26, 0)
	pt3dadd(107.227, 97.5586, 26, 0)
	pt3dadd(107.227, 97.1191, 26, 0)
	pt3dadd(107.227, 96.6797, 26, 0)
	pt3dadd(107.227, 96.2402, 26, 0)
	pt3dadd(106.787, 95.8008, 25, 0)
	pt3dadd(106.787, 95.3613, 25, 0)
	pt3dadd(106.787, 94.9219, 25, 0)
	pt3dadd(106.348, 94.4824, 26, 0)
	pt3dadd(106.787, 94.9219, 25, 0)
	pt3dadd(106.348, 94.4824, 24, 0)
	pt3dadd(106.348, 94.043, 23, 0)
	pt3dadd(106.348, 93.6035, 22, 0)
	pt3dadd(106.348, 93.1641, 21, 0)
	pt3dadd(106.348, 92.7246, 21, 0)
	pt3dadd(106.348, 92.2852, 21, 0)
	pt3dadd(105.908, 91.8457, 20, 0)
	pt3dadd(105.469, 91.4062, 20, 0)
	pt3dadd(105.469, 90.9668, 20, 0)
	pt3dadd(105.029, 90.5273, 20, 0)
  }
  dend[293] {pt3dclear()
	pt3dadd(42.627, 120.41, 35, 0)
	pt3dadd(42.627, 120.41, 35, 0)
	pt3dadd(42.1875, 120.85, 35, 0)
	pt3dadd(41.748, 121.289, 34, 0)
	pt3dadd(41.3086, 121.289, 34, 0)
	pt3dadd(40.8691, 120.85, 34, 0)
	pt3dadd(40.4297, 120.85, 34, 0)
	pt3dadd(39.9902, 120.85, 34, 0)
	pt3dadd(39.5508, 120.85, 34, 0)
	pt3dadd(39.1113, 120.85, 34, 0)
	pt3dadd(38.6719, 120.85, 35, 0)
	pt3dadd(38.2324, 121.289, 35, 0)
	pt3dadd(37.793, 121.729, 35, 0)
  }
  dend[294] {pt3dclear()
	pt3dadd(37.793, 121.729, 35, 0)
	pt3dadd(37.793, 122.168, 35, 0)
	pt3dadd(37.3535, 122.607, 35, 0)
	pt3dadd(36.9141, 123.047, 35, 0)
	pt3dadd(36.4746, 123.486, 35, 0)
	pt3dadd(36.4746, 123.926, 35, 0)
	pt3dadd(36.4746, 124.365, 35, 0)
	pt3dadd(36.4746, 124.805, 35, 0)
	pt3dadd(36.4746, 125.244, 35, 0)
	pt3dadd(36.4746, 125.684, 35, 0)
	pt3dadd(36.4746, 126.123, 35, 0)
	pt3dadd(36.0352, 126.562, 35, 0)
	pt3dadd(35.5957, 127.002, 35, 0)
	pt3dadd(35.1562, 127.441, 34, 0)
	pt3dadd(34.7168, 127.881, 34, 0)
	pt3dadd(34.2773, 127.881, 34, 0)
	pt3dadd(33.8379, 127.881, 34, 0)
	pt3dadd(33.3984, 128.32, 34, 0)
  }
  dend[295] {pt3dclear()
	pt3dadd(48.3398, 147.217, 22, 0)
	pt3dadd(48.3398, 147.217, 22, 0)
	pt3dadd(48.3398, 146.777, 22, 0)
	pt3dadd(48.3398, 146.338, 21, 0)
	pt3dadd(47.9004, 145.898, 21, 0)
	pt3dadd(47.4609, 145.459, 21, 0)
	pt3dadd(47.0215, 145.02, 21, 0)
	pt3dadd(46.582, 145.02, 21, 0)
	pt3dadd(46.1426, 145.02, 22, 0)
	pt3dadd(45.7031, 145.02, 22, 0)
	pt3dadd(45.2637, 145.02, 22, 0)
	pt3dadd(44.8242, 145.02, 22, 0)
	pt3dadd(44.3848, 145.02, 23, 0)
	pt3dadd(43.9453, 145.02, 23, 0)
	pt3dadd(43.5059, 145.02, 23, 0)
	pt3dadd(43.0664, 145.02, 23, 0)
	pt3dadd(42.627, 145.02, 23, 0)
	pt3dadd(42.1875, 145.02, 23, 0)
	pt3dadd(41.748, 144.58, 22, 0)
	pt3dadd(41.3086, 144.58, 23, 0)
	pt3dadd(40.8691, 144.58, 23, 0)
	pt3dadd(40.4297, 144.141, 24, 0)
	pt3dadd(39.9902, 144.141, 24, 0)
	pt3dadd(39.5508, 143.701, 24, 0)
	pt3dadd(39.5508, 143.262, 24, 0)
	pt3dadd(39.5508, 142.822, 25, 0)
	pt3dadd(39.1113, 142.383, 26, 0)
	pt3dadd(39.1113, 141.943, 26, 0)
	pt3dadd(39.1113, 141.504, 26, 0)
	pt3dadd(39.1113, 141.064, 26, 0)
	pt3dadd(39.5508, 140.625, 26, 0)
	pt3dadd(39.5508, 140.186, 26, 0)
	pt3dadd(39.1113, 139.746, 26, 0)
	pt3dadd(39.1113, 139.307, 26, 0)
	pt3dadd(39.1113, 138.867, 26, 0)
	pt3dadd(39.1113, 138.428, 26, 0)
	pt3dadd(38.6719, 137.988, 25, 0)
	pt3dadd(38.6719, 137.549, 25, 0)
	pt3dadd(38.2324, 137.109, 24, 0)
	pt3dadd(37.793, 137.109, 24, 0)
	pt3dadd(37.3535, 136.67, 25, 0)
	pt3dadd(36.9141, 136.67, 25, 0)
	pt3dadd(36.4746, 136.23, 25, 0)
	pt3dadd(36.0352, 136.23, 25, 0)
	pt3dadd(35.5957, 135.791, 25, 0)
	pt3dadd(35.1562, 135.352, 26, 0)
	pt3dadd(34.7168, 134.912, 26, 0)
	pt3dadd(34.2773, 134.473, 26, 0)
	pt3dadd(34.2773, 134.033, 26, 0)
	pt3dadd(33.8379, 133.594, 26, 0)
	pt3dadd(33.3984, 133.594, 26, 0)
	pt3dadd(32.959, 133.154, 26, 0)
	pt3dadd(32.5195, 133.154, 26, 0)
	pt3dadd(32.0801, 132.715, 27, 0)
	pt3dadd(31.6406, 132.715, 27, 0)
	pt3dadd(31.2012, 132.275, 27, 0)
	pt3dadd(30.7617, 131.836, 27, 0)
	pt3dadd(30.3223, 131.836, 27, 0)
	pt3dadd(29.8828, 131.836, 27, 0)
	pt3dadd(29.4434, 131.836, 26, 0)
	pt3dadd(29.0039, 131.836, 26, 0)
	pt3dadd(28.5645, 132.275, 26, 0)
	pt3dadd(28.125, 132.275, 26, 0)
	pt3dadd(27.6855, 132.275, 25, 0)
	pt3dadd(27.2461, 132.715, 26, 0)
	pt3dadd(26.8066, 133.154, 27, 0)
	pt3dadd(26.3672, 133.154, 27, 0)
	pt3dadd(25.9277, 133.594, 27, 0)
	pt3dadd(25.4883, 133.594, 27, 0)
	pt3dadd(25.0488, 133.594, 27, 0)
	pt3dadd(24.6094, 133.594, 27, 0)
	pt3dadd(24.1699, 133.594, 28, 0)
	pt3dadd(23.7305, 133.154, 28, 0)
	pt3dadd(23.291, 133.154, 28, 0)
	pt3dadd(22.8516, 132.715, 28, 0)
	pt3dadd(22.4121, 132.715, 28, 0)
	pt3dadd(21.9727, 132.715, 28, 0)
	pt3dadd(21.5332, 132.715, 28, 0)
	pt3dadd(21.0938, 132.715, 28, 0)
	pt3dadd(20.6543, 132.715, 28, 0)
  }
  dend[296] {pt3dclear()
	pt3dadd(48.3398, 198.633, 15, 0)
	pt3dadd(48.3398, 198.633, 15, 0)
	pt3dadd(47.9004, 198.633, 15, 0)
	pt3dadd(47.4609, 198.633, 15, 0)
	pt3dadd(47.0215, 198.633, 14, 0)
	pt3dadd(46.582, 198.633, 14, 0)
	pt3dadd(46.1426, 198.193, 14, 0)
	pt3dadd(45.7031, 197.754, 14, 0)
	pt3dadd(45.2637, 197.314, 14, 0)
	pt3dadd(44.8242, 197.314, 14, 0)
	pt3dadd(44.3848, 197.314, 14, 0)
	pt3dadd(43.9453, 197.314, 14, 0)
	pt3dadd(43.5059, 197.314, 14, 0)
	pt3dadd(43.0664, 197.314, 14, 0)
	pt3dadd(42.627, 197.314, 14, 0)
  }
  dend[297] {pt3dclear()
	pt3dadd(42.627, 197.314, 14, 0)
	pt3dadd(42.1875, 197.314, 14, 0)
	pt3dadd(41.748, 197.314, 14, 0)
  }
}
proc shape3d_46() {
  dend[297] {	pt3dadd(41.3086, 197.754, 14, 0)
	pt3dadd(40.8691, 198.193, 14, 0)
	pt3dadd(40.4297, 198.633, 13, 0)
	pt3dadd(39.9902, 198.633, 13, 0)
	pt3dadd(39.5508, 198.633, 13, 0)
	pt3dadd(39.1113, 199.072, 13, 0)
	pt3dadd(38.6719, 199.072, 13, 0)
	pt3dadd(38.2324, 199.512, 13, 0)
	pt3dadd(38.2324, 199.951, 13, 0)
	pt3dadd(37.793, 200.391, 13, 0)
	pt3dadd(37.3535, 200.83, 13, 0)
	pt3dadd(36.9141, 200.83, 13, 0)
	pt3dadd(36.4746, 200.83, 13, 0)
	pt3dadd(36.0352, 201.27, 13, 0)
	pt3dadd(36.0352, 201.709, 13, 0)
	pt3dadd(35.5957, 202.148, 13, 0)
	pt3dadd(35.5957, 202.588, 13, 0)
	pt3dadd(35.1562, 203.027, 14, 0)
	pt3dadd(35.1562, 203.467, 14, 0)
	pt3dadd(35.1562, 203.906, 14, 0)
	pt3dadd(35.1562, 204.346, 14, 0)
  }
  dend[298] {pt3dclear()
	pt3dadd(75.5859, 165.674, 26, 0)
	pt3dadd(75.5859, 165.674, 26, 0)
	pt3dadd(76.0254, 165.234, 26, 0)
	pt3dadd(76.0254, 164.795, 26, 0)
	pt3dadd(75.5859, 164.355, 27, 0)
	pt3dadd(75.1465, 163.916, 27, 0)
	pt3dadd(74.707, 163.477, 27, 0)
	pt3dadd(74.2676, 163.037, 27, 0)
	pt3dadd(73.8281, 162.598, 27, 0)
	pt3dadd(73.3887, 162.158, 27, 0)
	pt3dadd(72.9492, 161.719, 26, 0)
	pt3dadd(72.5098, 161.279, 26, 0)
	pt3dadd(72.0703, 161.279, 26, 0)
  }
  dend[299] {pt3dclear()
	pt3dadd(81.2988, 162.158, 26, 0)
	pt3dadd(81.2988, 162.158, 26, 0)
	pt3dadd(80.8594, 162.158, 26, 0)
	pt3dadd(80.4199, 162.158, 26, 0)
	pt3dadd(79.9805, 162.598, 25, 0)
	pt3dadd(79.9805, 163.037, 25, 0)
	pt3dadd(79.9805, 163.477, 25, 0)
	pt3dadd(79.9805, 163.916, 25, 0)
	pt3dadd(80.4199, 164.355, 25, 0)
	pt3dadd(80.4199, 164.795, 25, 0)
	pt3dadd(80.4199, 165.234, 25, 0)
	pt3dadd(80.4199, 165.674, 25, 0)
	pt3dadd(80.4199, 166.113, 25, 0)
	pt3dadd(80.4199, 166.553, 25, 0)
	pt3dadd(80.4199, 166.992, 25, 0)
	pt3dadd(80.4199, 167.432, 25, 0)
	pt3dadd(80.4199, 167.871, 25, 0)
	pt3dadd(80.4199, 168.311, 25, 0)
	pt3dadd(80.4199, 168.75, 25, 0)
	pt3dadd(80.4199, 169.189, 25, 0)
	pt3dadd(80.4199, 169.629, 25, 0)
	pt3dadd(80.8594, 170.068, 25, 0)
	pt3dadd(80.4199, 169.629, 24, 0)
	pt3dadd(79.9805, 170.068, 24, 0)
	pt3dadd(79.9805, 170.508, 24, 0)
	pt3dadd(79.9805, 170.947, 24, 0)
	pt3dadd(79.541, 171.387, 23, 0)
	pt3dadd(79.541, 171.826, 23, 0)
	pt3dadd(79.9805, 172.266, 22, 0)
	pt3dadd(80.4199, 172.705, 22, 0)
	pt3dadd(80.8594, 173.145, 22, 0)
	pt3dadd(80.4199, 173.145, 21, 0)
	pt3dadd(80.4199, 173.145, 20, 0)
	pt3dadd(80.8594, 173.584, 19, 0)
	pt3dadd(80.8594, 174.023, 18, 0)
	pt3dadd(80.8594, 174.463, 17, 0)
	pt3dadd(81.2988, 174.902, 17, 0)
	pt3dadd(81.2988, 175.342, 17, 0)
	pt3dadd(81.7383, 175.781, 18, 0)
	pt3dadd(81.2988, 175.342, 17, 0)
	pt3dadd(81.2988, 174.902, 16, 0)
	pt3dadd(81.2988, 175.342, 15, 0)
	pt3dadd(81.2988, 175.781, 15, 0)
	pt3dadd(81.2988, 176.221, 15, 0)
	pt3dadd(81.2988, 176.66, 14, 0)
	pt3dadd(81.2988, 177.1, 14, 0)
	pt3dadd(81.2988, 177.539, 14, 0)
	pt3dadd(81.7383, 177.979, 13, 0)
	pt3dadd(81.2988, 178.418, 13, 0)
	pt3dadd(80.8594, 178.857, 14, 0)
	pt3dadd(80.4199, 178.857, 14, 0)
	pt3dadd(80.8594, 178.857, 13, 0)
	pt3dadd(81.2988, 178.857, 12, 0)
	pt3dadd(81.2988, 178.857, 11, 0)
	pt3dadd(81.2988, 179.297, 10, 0)
	pt3dadd(81.2988, 179.736, 10, 0)
	pt3dadd(81.2988, 180.176, 10, 0)
	pt3dadd(81.7383, 180.615, 9, 0)
	pt3dadd(82.1777, 181.055, 8, 0)
	pt3dadd(82.6172, 181.494, 8, 0)
	pt3dadd(83.0566, 181.934, 8, 0)
	pt3dadd(83.4961, 182.373, 9, 0)
	pt3dadd(83.4961, 182.812, 10, 0)
	pt3dadd(83.4961, 182.373, 9, 0)
	pt3dadd(83.4961, 182.373, 8, 0)
	pt3dadd(83.9355, 182.812, 7, 0)
	pt3dadd(84.375, 182.812, 7, 0)
	pt3dadd(84.8145, 183.252, 6, 0)
	pt3dadd(85.2539, 183.691, 6, 0)
	pt3dadd(85.6934, 184.131, 6, 0)
	pt3dadd(86.1328, 184.57, 6, 0)
	pt3dadd(86.5723, 185.01, 6, 0)
	pt3dadd(87.0117, 185.449, 6, 0)
	pt3dadd(87.4512, 185.889, 6, 0)
	pt3dadd(87.8906, 186.328, 6, 0)
	pt3dadd(88.3301, 186.768, 6, 0)
	pt3dadd(88.7695, 187.207, 6, 0)
	pt3dadd(89.209, 187.646, 7, 0)
	pt3dadd(89.6484, 187.646, 7, 0)
	pt3dadd(90.0879, 187.646, 7, 0)
	pt3dadd(90.5273, 188.086, 7, 0)
	pt3dadd(90.9668, 188.086, 7, 0)
	pt3dadd(91.4062, 188.086, 7, 0)
	pt3dadd(91.8457, 188.525, 6, 0)
	pt3dadd(92.2852, 188.525, 6, 0)
	pt3dadd(92.7246, 188.965, 6, 0)
	pt3dadd(93.1641, 189.404, 6, 0)
	pt3dadd(93.6035, 189.404, 6, 0)
	pt3dadd(94.043, 189.844, 5, 0)
	pt3dadd(94.4824, 190.283, 5, 0)
	pt3dadd(94.9219, 190.283, 5, 0)
	pt3dadd(95.3613, 190.283, 5, 0)
	pt3dadd(95.8008, 190.283, 5, 0)
	pt3dadd(96.2402, 190.723, 6, 0)
	pt3dadd(96.2402, 191.162, 6, 0)
	pt3dadd(96.6797, 191.602, 6, 0)
  }
  dend[300] {pt3dclear()
	pt3dadd(47.9004, 162.598, 32, 0)
	pt3dadd(47.9004, 162.598, 32, 0)
	pt3dadd(47.4609, 162.158, 32, 0)
	pt3dadd(47.4609, 161.719, 32, 0)
	pt3dadd(47.4609, 161.279, 32, 0)
	pt3dadd(47.9004, 160.84, 32, 0)
	pt3dadd(48.3398, 160.84, 32, 0)
	pt3dadd(48.7793, 160.4, 32, 0)
	pt3dadd(49.2188, 159.961, 32, 0)
	pt3dadd(49.6582, 159.961, 32, 0)
	pt3dadd(50.0977, 159.961, 32, 0)
	pt3dadd(50.5371, 159.521, 32, 0)
	pt3dadd(50.9766, 159.521, 32, 0)
  }
  dend[301] {pt3dclear()
	pt3dadd(48.3398, 163.916, 30, 0)
	pt3dadd(48.3398, 163.916, 30, 0)
	pt3dadd(48.7793, 163.477, 31, 0)
	pt3dadd(48.3398, 163.037, 31, 0)
	pt3dadd(47.9004, 162.598, 31, 0)
	pt3dadd(47.4609, 162.158, 31, 0)
	pt3dadd(47.0215, 161.719, 31, 0)
	pt3dadd(47.0215, 161.279, 31, 0)
	pt3dadd(46.582, 160.84, 30, 0)
	pt3dadd(46.582, 160.4, 30, 0)
	pt3dadd(46.1426, 159.961, 30, 0)
	pt3dadd(45.7031, 159.521, 29, 0)
	pt3dadd(45.7031, 159.082, 29, 0)
	pt3dadd(45.7031, 158.643, 29, 0)
	pt3dadd(45.7031, 158.203, 29, 0)
	pt3dadd(45.7031, 157.764, 29, 0)
	pt3dadd(45.7031, 157.324, 29, 0)
	pt3dadd(45.7031, 156.885, 29, 0)
	pt3dadd(45.7031, 156.445, 29, 0)
	pt3dadd(45.7031, 156.006, 29, 0)
	pt3dadd(45.7031, 155.566, 29, 0)
	pt3dadd(45.2637, 155.127, 28, 0)
	pt3dadd(45.2637, 154.688, 28, 0)
	pt3dadd(44.8242, 154.688, 28, 0)
	pt3dadd(44.3848, 154.688, 28, 0)
	pt3dadd(43.9453, 155.127, 28, 0)
	pt3dadd(43.5059, 155.127, 28, 0)
	pt3dadd(43.0664, 155.566, 29, 0)
  }
  dend[302] {pt3dclear()
	pt3dadd(43.0664, 155.566, 29, 0)
	pt3dadd(43.0664, 156.006, 30, 0)
	pt3dadd(42.627, 156.006, 30, 0)
	pt3dadd(42.1875, 156.006, 30, 0)
	pt3dadd(41.748, 156.445, 30, 0)
	pt3dadd(41.3086, 156.445, 30, 0)
	pt3dadd(40.8691, 156.885, 30, 0)
  }
  dend[303] {pt3dclear()
	pt3dadd(40.8691, 156.885, 30, 0)
	pt3dadd(40.4297, 157.324, 30, 0)
	pt3dadd(39.9902, 157.764, 30, 0)
	pt3dadd(39.9902, 158.203, 30, 0)
	pt3dadd(39.5508, 158.643, 30, 0)
	pt3dadd(39.1113, 158.643, 30, 0)
	pt3dadd(38.6719, 158.643, 30, 0)
	pt3dadd(38.2324, 158.643, 30, 0)
  }
  dend[304] {pt3dclear()
	pt3dadd(82.6172, 183.691, 21, 0)
	pt3dadd(82.6172, 183.691, 21, 0)
	pt3dadd(82.6172, 183.252, 21, 0)
	pt3dadd(82.1777, 182.812, 21, 0)
	pt3dadd(81.7383, 182.373, 20, 0)
	pt3dadd(81.2988, 182.812, 19, 0)
	pt3dadd(80.8594, 182.812, 19, 0)
	pt3dadd(80.4199, 183.252, 18, 0)
	pt3dadd(79.9805, 183.691, 18, 0)
	pt3dadd(79.541, 184.131, 18, 0)
	pt3dadd(79.1016, 184.57, 18, 0)
	pt3dadd(78.6621, 185.01, 17, 0)
  }
  dend[305] {pt3dclear()
	pt3dadd(78.6621, 185.01, 17, 0)
	pt3dadd(78.2227, 185.449, 17, 0)
  }
}
proc shape3d_47() {
  dend[305] {	pt3dadd(77.7832, 185.889, 17, 0)
	pt3dadd(77.3438, 185.889, 16, 0)
	pt3dadd(76.9043, 186.328, 16, 0)
	pt3dadd(76.4648, 186.328, 16, 0)
	pt3dadd(76.0254, 186.768, 16, 0)
	pt3dadd(75.5859, 187.207, 16, 0)
	pt3dadd(75.1465, 187.646, 16, 0)
	pt3dadd(75.1465, 188.086, 17, 0)
	pt3dadd(75.1465, 188.086, 18, 0)
	pt3dadd(75.1465, 188.086, 17, 0)
	pt3dadd(75.1465, 187.646, 16, 0)
	pt3dadd(75.1465, 188.086, 15, 0)
	pt3dadd(74.707, 188.525, 15, 0)
	pt3dadd(74.707, 188.965, 15, 0)
	pt3dadd(74.2676, 189.404, 15, 0)
	pt3dadd(74.2676, 189.844, 15, 0)
	pt3dadd(73.8281, 190.283, 15, 0)
	pt3dadd(73.3887, 190.723, 15, 0)
	pt3dadd(73.3887, 191.162, 15, 0)
	pt3dadd(72.9492, 191.602, 15, 0)
	pt3dadd(72.9492, 192.041, 15, 0)
	pt3dadd(72.5098, 192.48, 15, 0)
	pt3dadd(72.5098, 192.92, 15, 0)
  }
  dend[306] {pt3dclear()
	pt3dadd(72.5098, 192.92, 15, 0)
	pt3dadd(72.0703, 193.359, 15, 0)
	pt3dadd(72.0703, 193.799, 15, 0)
	pt3dadd(71.6309, 194.238, 16, 0)
  }
  dend[307] {pt3dclear()
	pt3dadd(71.6309, 194.238, 16, 0)
	pt3dadd(71.6309, 194.678, 16, 0)
	pt3dadd(71.6309, 195.117, 16, 0)
	pt3dadd(72.0703, 195.557, 16, 0)
	pt3dadd(72.5098, 195.996, 16, 0)
	pt3dadd(72.5098, 196.436, 16, 0)
	pt3dadd(72.5098, 196.875, 16, 0)
	pt3dadd(72.0703, 197.314, 17, 0)
	pt3dadd(71.6309, 197.754, 17, 0)
	pt3dadd(71.1914, 198.193, 17, 0)
	pt3dadd(70.752, 198.633, 17, 0)
	pt3dadd(70.3125, 199.072, 17, 0)
	pt3dadd(69.873, 199.512, 17, 0)
	pt3dadd(69.4336, 199.951, 17, 0)
	pt3dadd(68.9941, 199.951, 17, 0)
	pt3dadd(68.5547, 199.951, 17, 0)
	pt3dadd(68.1152, 199.951, 17, 0)
	pt3dadd(67.6758, 199.951, 17, 0)
	pt3dadd(68.1152, 199.951, 17, 0)
	pt3dadd(68.5547, 199.951, 17, 0)
	pt3dadd(68.9941, 199.951, 17, 0)
	pt3dadd(69.4336, 199.951, 18, 0)
	pt3dadd(68.9941, 200.391, 19, 0)
	pt3dadd(68.5547, 200.83, 20, 0)
	pt3dadd(68.1152, 201.27, 21, 0)
	pt3dadd(67.6758, 201.709, 21, 0)
	pt3dadd(67.2363, 201.709, 21, 0)
	pt3dadd(66.7969, 202.148, 21, 0)
	pt3dadd(66.3574, 202.148, 21, 0)
	pt3dadd(65.918, 202.588, 21, 0)
  }
  dend[308] {pt3dclear()
	pt3dadd(65.918, 202.588, 21, 0)
	pt3dadd(65.4785, 202.588, 21, 0)
	pt3dadd(65.0391, 202.588, 21, 0)
	pt3dadd(64.5996, 202.588, 21, 0)
	pt3dadd(64.1602, 202.588, 21, 0)
	pt3dadd(63.7207, 202.588, 21, 0)
	pt3dadd(63.2812, 202.588, 21, 0)
	pt3dadd(62.8418, 203.027, 20, 0)
	pt3dadd(62.4023, 203.467, 19, 0)
	pt3dadd(61.9629, 203.467, 19, 0)
	pt3dadd(61.5234, 203.906, 19, 0)
	pt3dadd(61.084, 203.906, 19, 0)
	pt3dadd(60.6445, 203.906, 19, 0)
	pt3dadd(60.2051, 204.346, 19, 0)
	pt3dadd(59.7656, 204.346, 19, 0)
	pt3dadd(59.3262, 204.785, 20, 0)
	pt3dadd(58.8867, 205.225, 20, 0)
	pt3dadd(58.4473, 205.664, 21, 0)
	pt3dadd(58.0078, 205.664, 21, 0)
	pt3dadd(57.5684, 206.104, 21, 0)
	pt3dadd(57.1289, 206.543, 21, 0)
	pt3dadd(56.6895, 206.982, 21, 0)
	pt3dadd(56.25, 207.422, 21, 0)
	pt3dadd(55.8105, 207.422, 21, 0)
	pt3dadd(55.3711, 207.422, 21, 0)
	pt3dadd(54.9316, 207.861, 22, 0)
	pt3dadd(54.4922, 207.861, 22, 0)
	pt3dadd(54.0527, 207.861, 22, 0)
	pt3dadd(53.6133, 207.861, 22, 0)
	pt3dadd(53.1738, 207.861, 22, 0)
	pt3dadd(52.7344, 207.861, 22, 0)
	pt3dadd(52.2949, 207.861, 21, 0)
	pt3dadd(51.8555, 207.861, 21, 0)
	pt3dadd(51.416, 207.861, 21, 0)
	pt3dadd(50.9766, 207.861, 21, 0)
	pt3dadd(50.5371, 208.301, 21, 0)
	pt3dadd(50.0977, 208.301, 21, 0)
	pt3dadd(49.6582, 208.301, 21, 0)
	pt3dadd(49.2188, 208.301, 21, 0)
	pt3dadd(48.7793, 208.301, 21, 0)
	pt3dadd(48.3398, 208.301, 21, 0)
	pt3dadd(47.9004, 208.301, 21, 0)
	pt3dadd(47.4609, 208.301, 20, 0)
	pt3dadd(47.0215, 208.74, 20, 0)
	pt3dadd(46.582, 208.74, 20, 0)
	pt3dadd(46.1426, 209.18, 20, 0)
	pt3dadd(45.7031, 209.18, 20, 0)
	pt3dadd(45.2637, 209.619, 20, 0)
	pt3dadd(44.8242, 210.059, 20, 0)
	pt3dadd(44.3848, 210.498, 20, 0)
	pt3dadd(43.9453, 210.938, 20, 0)
	pt3dadd(43.5059, 210.938, 20, 0)
	pt3dadd(43.0664, 210.938, 20, 0)
	pt3dadd(42.627, 210.938, 20, 0)
	pt3dadd(42.1875, 211.377, 20, 0)
	pt3dadd(42.1875, 211.816, 20, 0)
	pt3dadd(41.748, 212.256, 19, 0)
	pt3dadd(41.3086, 212.256, 19, 0)
	pt3dadd(40.8691, 212.695, 20, 0)
	pt3dadd(41.3086, 212.695, 19, 0)
	pt3dadd(41.3086, 213.135, 18, 0)
	pt3dadd(41.3086, 213.574, 18, 0)
	pt3dadd(40.8691, 214.014, 18, 0)
	pt3dadd(40.8691, 214.453, 18, 0)
	pt3dadd(40.4297, 214.893, 19, 0)
	pt3dadd(40.4297, 215.332, 19, 0)
	pt3dadd(39.9902, 215.771, 20, 0)
	pt3dadd(39.9902, 216.211, 20, 0)
	pt3dadd(39.9902, 216.65, 20, 0)
	pt3dadd(40.4297, 217.09, 20, 0)
	pt3dadd(40.8691, 217.529, 20, 0)
  }
  dend[309] {pt3dclear()
	pt3dadd(40.8691, 217.529, 20, 0)
	pt3dadd(41.3086, 217.969, 20, 0)
	pt3dadd(41.748, 218.408, 20, 0)
	pt3dadd(42.1875, 218.848, 20, 0)
	pt3dadd(42.627, 219.287, 21, 0)
	pt3dadd(43.0664, 219.727, 21, 0)
	pt3dadd(43.5059, 219.727, 21, 0)
	pt3dadd(43.9453, 220.166, 21, 0)
	pt3dadd(43.9453, 220.605, 21, 0)
	pt3dadd(44.3848, 221.045, 21, 0)
	pt3dadd(44.8242, 221.484, 21, 0)
	pt3dadd(45.2637, 221.484, 21, 0)
  }
  dend[310] {pt3dclear()
	pt3dadd(45.2637, 221.484, 21, 0)
	pt3dadd(45.7031, 221.484, 21, 0)
	pt3dadd(46.1426, 221.924, 22, 0)
	pt3dadd(46.582, 221.924, 22, 0)
	pt3dadd(47.0215, 221.924, 22, 0)
	pt3dadd(47.4609, 221.484, 21, 0)
	pt3dadd(47.9004, 221.484, 21, 0)
	pt3dadd(48.3398, 221.484, 21, 0)
	pt3dadd(48.7793, 221.484, 21, 0)
	pt3dadd(49.2188, 221.484, 21, 0)
	pt3dadd(49.6582, 221.924, 20, 0)
	pt3dadd(50.0977, 221.484, 21, 0)
	pt3dadd(50.5371, 221.484, 21, 0)
	pt3dadd(50.9766, 221.484, 21, 0)
	pt3dadd(51.416, 221.484, 21, 0)
	pt3dadd(51.8555, 221.484, 21, 0)
	pt3dadd(52.2949, 221.484, 21, 0)
	pt3dadd(52.7344, 221.045, 20, 0)
	pt3dadd(53.1738, 221.045, 20, 0)
	pt3dadd(53.6133, 220.605, 20, 0)
	pt3dadd(54.0527, 220.605, 20, 0)
	pt3dadd(54.4922, 220.166, 20, 0)
	pt3dadd(54.9316, 219.727, 20, 0)
	pt3dadd(55.3711, 219.287, 20, 0)
  }
  dend[311] {pt3dclear()
	pt3dadd(104.59, 173.145, 23, 0)
	pt3dadd(104.59, 173.145, 23, 0)
	pt3dadd(104.59, 172.705, 23, 0)
	pt3dadd(104.15, 172.266, 23, 0)
	pt3dadd(104.15, 171.826, 23, 0)
	pt3dadd(103.711, 171.387, 23, 0)
	pt3dadd(103.711, 170.947, 23, 0)
	pt3dadd(103.271, 170.508, 23, 0)
	pt3dadd(102.832, 170.068, 23, 0)
	pt3dadd(102.393, 169.629, 24, 0)
	pt3dadd(101.953, 169.629, 24, 0)
	pt3dadd(101.514, 169.189, 24, 0)
	pt3dadd(101.074, 168.75, 24, 0)
	pt3dadd(100.635, 168.311, 24, 0)
	pt3dadd(100.195, 167.871, 24, 0)
	pt3dadd(99.7559, 167.432, 24, 0)
	pt3dadd(99.7559, 166.992, 24, 0)
	pt3dadd(99.3164, 166.553, 24, 0)
	pt3dadd(98.877, 166.553, 24, 0)
	pt3dadd(98.4375, 166.113, 24, 0)
	pt3dadd(98.4375, 165.674, 24, 0)
	pt3dadd(97.998, 165.234, 24, 0)
	pt3dadd(97.5586, 164.795, 24, 0)
	pt3dadd(97.1191, 164.355, 24, 0)
	pt3dadd(96.6797, 163.916, 24, 0)
	pt3dadd(96.2402, 163.477, 24, 0)
	pt3dadd(95.8008, 163.916, 23, 0)
	pt3dadd(95.3613, 163.916, 23, 0)
  }
  dend[312] {pt3dclear()
	pt3dadd(111.182, 173.584, 9, 0)
	pt3dadd(111.182, 173.584, 9, 0)
	pt3dadd(111.621, 173.584, 9, 0)
	pt3dadd(112.061, 173.584, 9, 0)
	pt3dadd(112.5, 173.584, 9, 0)
	pt3dadd(112.939, 173.145, 9, 0)
	pt3dadd(113.379, 173.145, 9, 0)
	pt3dadd(113.818, 173.145, 9, 0)
  }
}
proc shape3d_48() {
  dend[312] {	pt3dadd(114.258, 173.145, 9, 0)
	pt3dadd(114.697, 172.705, 9, 0)
	pt3dadd(115.137, 172.266, 9, 0)
	pt3dadd(115.576, 172.266, 9, 0)
	pt3dadd(116.016, 171.826, 9, 0)
	pt3dadd(116.455, 171.387, 8, 0)
	pt3dadd(116.895, 171.387, 8, 0)
	pt3dadd(117.334, 170.947, 7, 0)
	pt3dadd(117.773, 170.947, 7, 0)
	pt3dadd(118.213, 170.947, 7, 0)
	pt3dadd(118.652, 170.947, 7, 0)
	pt3dadd(119.092, 170.947, 7, 0)
	pt3dadd(119.531, 171.387, 8, 0)
	pt3dadd(119.971, 171.387, 8, 0)
	pt3dadd(119.971, 170.947, 8, 0)
	pt3dadd(119.971, 170.508, 8, 0)
	pt3dadd(119.971, 170.068, 8, 0)
	pt3dadd(119.531, 169.629, 8, 0)
	pt3dadd(119.531, 169.189, 8, 0)
	pt3dadd(119.531, 168.75, 8, 0)
	pt3dadd(119.531, 168.311, 8, 0)
	pt3dadd(119.971, 167.871, 7, 0)
	pt3dadd(119.971, 167.432, 6, 0)
	pt3dadd(119.971, 166.992, 6, 0)
	pt3dadd(119.971, 166.553, 6, 0)
	pt3dadd(119.971, 166.113, 6, 0)
	pt3dadd(119.971, 165.674, 6, 0)
	pt3dadd(119.971, 165.234, 7, 0)
	pt3dadd(119.971, 164.795, 7, 0)
	pt3dadd(119.971, 164.355, 8, 0)
	pt3dadd(119.971, 163.916, 8, 0)
	pt3dadd(120.41, 163.477, 8, 0)
	pt3dadd(120.85, 163.037, 8, 0)
	pt3dadd(121.289, 162.598, 8, 0)
	pt3dadd(121.729, 162.158, 8, 0)
	pt3dadd(122.168, 162.158, 8, 0)
	pt3dadd(122.607, 161.719, 7, 0)
	pt3dadd(122.607, 161.279, 7, 0)
	pt3dadd(122.607, 160.84, 6, 0)
	pt3dadd(122.607, 160.4, 6, 0)
	pt3dadd(122.607, 159.961, 6, 0)
	pt3dadd(122.607, 159.521, 6, 0)
	pt3dadd(122.607, 159.082, 6, 0)
	pt3dadd(123.047, 158.643, 6, 0)
	pt3dadd(123.486, 158.203, 6, 0)
	pt3dadd(123.926, 157.764, 6, 0)
	pt3dadd(124.365, 157.324, 6, 0)
	pt3dadd(124.365, 156.885, 6, 0)
	pt3dadd(124.365, 156.445, 7, 0)
	pt3dadd(124.805, 156.006, 7, 0)
	pt3dadd(124.805, 155.566, 7, 0)
	pt3dadd(124.805, 155.127, 6, 0)
	pt3dadd(124.805, 154.688, 6, 0)
  }
  dend[313] {pt3dclear()
	pt3dadd(108.984, 171.826, 8, 0)
	pt3dadd(108.984, 171.826, 8, 0)
	pt3dadd(108.545, 171.826, 8, 0)
	pt3dadd(108.105, 172.266, 8, 0)
	pt3dadd(107.666, 172.705, 9, 0)
	pt3dadd(107.227, 173.145, 9, 0)
	pt3dadd(107.227, 173.584, 9, 0)
	pt3dadd(106.787, 174.023, 9, 0)
	pt3dadd(106.348, 174.463, 9, 0)
	pt3dadd(105.908, 174.902, 9, 0)
	pt3dadd(105.908, 175.342, 9, 0)
	pt3dadd(105.908, 175.781, 9, 0)
	pt3dadd(105.469, 176.221, 9, 0)
	pt3dadd(105.029, 176.66, 9, 0)
	pt3dadd(105.029, 177.1, 9, 0)
	pt3dadd(104.59, 177.539, 9, 0)
	pt3dadd(104.59, 177.979, 9, 0)
	pt3dadd(104.59, 178.418, 9, 0)
	pt3dadd(104.59, 178.857, 9, 0)
	pt3dadd(104.59, 179.297, 9, 0)
	pt3dadd(104.59, 179.736, 8, 0)
	pt3dadd(104.59, 180.176, 8, 0)
	pt3dadd(104.59, 180.615, 8, 0)
	pt3dadd(105.029, 181.055, 8, 0)
	pt3dadd(105.469, 181.494, 8, 0)
	pt3dadd(105.908, 181.934, 8, 0)
	pt3dadd(106.348, 182.373, 8, 0)
	pt3dadd(106.348, 182.812, 8, 0)
	pt3dadd(106.348, 183.252, 8, 0)
	pt3dadd(105.908, 183.691, 8, 0)
	pt3dadd(105.908, 184.131, 8, 0)
	pt3dadd(105.908, 184.57, 8, 0)
	pt3dadd(105.908, 185.01, 8, 0)
	pt3dadd(106.348, 185.449, 8, 0)
	pt3dadd(106.787, 185.889, 7, 0)
	pt3dadd(106.787, 186.328, 6, 0)
	pt3dadd(106.787, 186.768, 6, 0)
	pt3dadd(106.348, 187.207, 6, 0)
	pt3dadd(106.348, 187.646, 5, 0)
	pt3dadd(105.908, 188.086, 5, 0)
	pt3dadd(105.908, 188.525, 5, 0)
	pt3dadd(105.908, 188.965, 5, 0)
	pt3dadd(105.908, 189.404, 5, 0)
	pt3dadd(106.348, 189.844, 5, 0)
	pt3dadd(106.787, 190.283, 5, 0)
	pt3dadd(107.227, 190.723, 5, 0)
	pt3dadd(107.227, 191.162, 5, 0)
	pt3dadd(107.227, 191.602, 5, 0)
	pt3dadd(107.227, 192.041, 5, 0)
  }
  dend[314] {pt3dclear()
	pt3dadd(106.787, 168.311, 9, 0)
	pt3dadd(106.787, 168.311, 9, 0)
	pt3dadd(106.348, 167.871, 9, 0)
	pt3dadd(105.908, 168.311, 8, 0)
	pt3dadd(105.469, 168.311, 8, 0)
	pt3dadd(105.029, 168.75, 8, 0)
	pt3dadd(104.59, 169.189, 9, 0)
	pt3dadd(104.15, 169.629, 9, 0)
	pt3dadd(103.711, 170.068, 9, 0)
	pt3dadd(103.271, 170.068, 9, 0)
	pt3dadd(102.832, 170.508, 9, 0)
	pt3dadd(102.832, 170.947, 8, 0)
	pt3dadd(102.832, 171.387, 8, 0)
	pt3dadd(102.832, 171.826, 8, 0)
  }
  dend[315] {pt3dclear()
	pt3dadd(106.348, 165.234, 9, 0)
	pt3dadd(106.348, 165.234, 9, 0)
	pt3dadd(105.908, 165.674, 9, 0)
	pt3dadd(105.469, 165.674, 8, 0)
	pt3dadd(105.029, 165.674, 8, 0)
	pt3dadd(104.59, 165.674, 8, 0)
	pt3dadd(104.15, 165.234, 7, 0)
	pt3dadd(103.711, 164.795, 7, 0)
	pt3dadd(103.271, 164.355, 7, 0)
	pt3dadd(103.271, 163.916, 7, 0)
	pt3dadd(102.832, 163.916, 8, 0)
	pt3dadd(102.393, 164.355, 8, 0)
	pt3dadd(101.953, 164.795, 8, 0)
	pt3dadd(101.514, 165.234, 8, 0)
	pt3dadd(101.074, 165.674, 8, 0)
	pt3dadd(100.635, 165.674, 8, 0)
  }
  dend[316] {pt3dclear()
	pt3dadd(105.029, 159.082, 9, 0)
	pt3dadd(105.029, 159.082, 9, 0)
	pt3dadd(104.59, 159.521, 9, 0)
	pt3dadd(104.15, 159.961, 9, 0)
	pt3dadd(103.711, 159.961, 8, 0)
	pt3dadd(103.271, 160.4, 8, 0)
	pt3dadd(102.832, 160.84, 8, 0)
	pt3dadd(102.832, 161.279, 8, 0)
  }
  dend[317] {pt3dclear()
	pt3dadd(106.348, 154.688, 17, 0)
	pt3dadd(106.348, 154.688, 17, 0)
	pt3dadd(105.908, 154.688, 17, 0)
	pt3dadd(105.469, 154.688, 17, 0)
	pt3dadd(105.029, 154.248, 17, 0)
	pt3dadd(104.59, 154.248, 17, 0)
	pt3dadd(104.15, 154.248, 17, 0)
	pt3dadd(103.711, 154.248, 17, 0)
	pt3dadd(103.271, 154.248, 18, 0)
	pt3dadd(102.832, 153.809, 18, 0)
	pt3dadd(102.832, 154.248, 19, 0)
	pt3dadd(102.393, 154.688, 20, 0)
	pt3dadd(101.953, 154.688, 20, 0)
	pt3dadd(101.514, 154.688, 20, 0)
	pt3dadd(101.074, 154.688, 20, 0)
	pt3dadd(100.635, 154.248, 19, 0)
	pt3dadd(100.195, 154.688, 18, 0)
	pt3dadd(99.7559, 154.688, 18, 0)
	pt3dadd(100.195, 154.688, 18, 0)
	pt3dadd(100.635, 154.248, 19, 0)
	pt3dadd(101.074, 154.688, 20, 0)
	pt3dadd(101.074, 155.127, 21, 0)
	pt3dadd(101.074, 155.566, 22, 0)
	pt3dadd(101.074, 156.006, 23, 0)
	pt3dadd(100.635, 156.006, 24, 0)
	pt3dadd(100.195, 156.006, 24, 0)
	pt3dadd(99.7559, 156.006, 24, 0)
	pt3dadd(99.3164, 156.006, 24, 0)
	pt3dadd(99.7559, 156.006, 25, 0)
	pt3dadd(99.7559, 156.445, 26, 0)
	pt3dadd(99.7559, 156.885, 26, 0)
	pt3dadd(99.7559, 157.324, 26, 0)
	pt3dadd(99.7559, 157.764, 26, 0)
	pt3dadd(99.7559, 158.203, 26, 0)
	pt3dadd(100.195, 158.643, 27, 0)
	pt3dadd(100.195, 159.082, 27, 0)
	pt3dadd(100.195, 159.521, 27, 0)
	pt3dadd(100.635, 159.961, 27, 0)
	pt3dadd(100.635, 160.4, 27, 0)
	pt3dadd(100.635, 160.84, 27, 0)
	pt3dadd(100.635, 161.279, 27, 0)
	pt3dadd(100.195, 161.719, 27, 0)
  }
  dend[318] {pt3dclear()
	pt3dadd(104.59, 150.732, 17, 0)
	pt3dadd(104.59, 150.732, 17, 0)
	pt3dadd(105.029, 150.293, 16, 0)
	pt3dadd(105.029, 149.854, 15, 0)
	pt3dadd(105.469, 149.854, 14, 0)
	pt3dadd(105.908, 149.854, 14, 0)
	pt3dadd(106.348, 149.854, 13, 0)
	pt3dadd(106.787, 149.854, 13, 0)
	pt3dadd(107.227, 149.854, 13, 0)
	pt3dadd(107.666, 149.854, 13, 0)
	pt3dadd(108.105, 150.293, 13, 0)
	pt3dadd(108.545, 150.732, 13, 0)
  }
  dend[319] {pt3dclear()
	pt3dadd(103.711, 148.535, 23, 0)
	pt3dadd(103.711, 148.535, 23, 0)
	pt3dadd(103.271, 148.096, 22, 0)
	pt3dadd(102.832, 148.096, 22, 0)
	pt3dadd(102.393, 147.656, 23, 0)
	pt3dadd(101.953, 147.656, 23, 0)
  }
}
proc shape3d_49() {
  dend[319] {	pt3dadd(101.514, 147.217, 24, 0)
	pt3dadd(101.074, 146.777, 25, 0)
	pt3dadd(100.635, 146.777, 25, 0)
	pt3dadd(100.195, 146.777, 25, 0)
	pt3dadd(99.7559, 146.777, 25, 0)
	pt3dadd(99.3164, 147.217, 25, 0)
	pt3dadd(99.3164, 147.656, 24, 0)
	pt3dadd(98.877, 148.096, 24, 0)
	pt3dadd(98.877, 148.535, 23, 0)
	pt3dadd(98.877, 148.975, 23, 0)
	pt3dadd(98.4375, 149.414, 22, 0)
	pt3dadd(97.998, 149.414, 22, 0)
	pt3dadd(97.5586, 149.854, 22, 0)
	pt3dadd(97.1191, 150.293, 22, 0)
	pt3dadd(96.6797, 150.293, 22, 0)
	pt3dadd(96.2402, 150.732, 22, 0)
	pt3dadd(95.8008, 150.732, 22, 0)
	pt3dadd(95.3613, 150.732, 22, 0)
	pt3dadd(94.9219, 150.293, 22, 0)
	pt3dadd(94.4824, 150.293, 22, 0)
	pt3dadd(94.043, 149.854, 22, 0)
	pt3dadd(93.6035, 149.854, 22, 0)
	pt3dadd(93.1641, 150.293, 22, 0)
	pt3dadd(92.7246, 150.732, 23, 0)
	pt3dadd(92.7246, 151.172, 23, 0)
	pt3dadd(92.7246, 150.732, 23, 0)
	pt3dadd(93.1641, 150.293, 22, 0)
	pt3dadd(93.6035, 149.854, 21, 0)
	pt3dadd(93.1641, 149.414, 20, 0)
	pt3dadd(93.1641, 148.975, 19, 0)
	pt3dadd(93.1641, 148.535, 19, 0)
	pt3dadd(92.7246, 148.535, 18, 0)
	pt3dadd(92.2852, 148.535, 17, 0)
	pt3dadd(92.7246, 148.535, 17, 0)
	pt3dadd(93.1641, 148.535, 16, 0)
	pt3dadd(93.6035, 148.096, 15, 0)
	pt3dadd(94.043, 148.096, 14, 0)
	pt3dadd(94.4824, 147.656, 13, 0)
	pt3dadd(94.9219, 147.217, 13, 0)
	pt3dadd(95.3613, 146.777, 13, 0)
	pt3dadd(95.8008, 146.338, 13, 0)
	pt3dadd(95.8008, 145.898, 13, 0)
	pt3dadd(96.2402, 145.459, 14, 0)
	pt3dadd(96.2402, 145.02, 14, 0)
	pt3dadd(96.2402, 144.58, 14, 0)
  }
  dend[320] {pt3dclear()
	pt3dadd(137.109, 136.23, 28, 0)
	pt3dadd(137.109, 136.23, 28, 0)
	pt3dadd(136.67, 136.23, 28, 0)
	pt3dadd(136.23, 136.23, 27, 0)
	pt3dadd(135.791, 136.23, 27, 0)
	pt3dadd(135.352, 135.791, 27, 0)
	pt3dadd(134.912, 135.352, 27, 0)
	pt3dadd(134.473, 134.912, 27, 0)
	pt3dadd(134.473, 134.473, 27, 0)
	pt3dadd(134.473, 134.033, 27, 0)
	pt3dadd(134.033, 133.594, 27, 0)
	pt3dadd(133.594, 133.594, 27, 0)
	pt3dadd(133.154, 133.154, 27, 0)
	pt3dadd(132.715, 133.154, 27, 0)
  }
  dend[321] {pt3dclear()
	pt3dadd(153.809, 125.244, 26, 0)
	pt3dadd(153.809, 125.244, 26, 0)
	pt3dadd(154.248, 124.805, 26, 0)
	pt3dadd(154.248, 124.365, 26, 0)
	pt3dadd(154.248, 123.926, 26, 0)
	pt3dadd(154.248, 123.486, 26, 0)
	pt3dadd(154.248, 123.047, 26, 0)
	pt3dadd(154.688, 122.607, 27, 0)
	pt3dadd(154.688, 122.168, 27, 0)
	pt3dadd(154.688, 121.729, 27, 0)
	pt3dadd(154.688, 121.289, 27, 0)
	pt3dadd(154.688, 120.85, 28, 0)
	pt3dadd(154.688, 120.41, 28, 0)
	pt3dadd(154.688, 119.971, 28, 0)
	pt3dadd(154.688, 119.531, 29, 0)
	pt3dadd(154.688, 119.092, 29, 0)
	pt3dadd(155.127, 118.652, 29, 0)
	pt3dadd(155.566, 118.213, 30, 0)
	pt3dadd(156.006, 117.773, 30, 0)
	pt3dadd(156.445, 117.773, 30, 0)
	pt3dadd(156.885, 117.334, 29, 0)
	pt3dadd(157.324, 117.334, 29, 0)
	pt3dadd(157.764, 117.334, 29, 0)
	pt3dadd(158.203, 116.895, 29, 0)
	pt3dadd(158.643, 116.895, 29, 0)
	pt3dadd(159.082, 116.895, 29, 0)
	pt3dadd(159.521, 116.455, 29, 0)
	pt3dadd(159.521, 116.016, 28, 0)
	pt3dadd(159.961, 115.576, 28, 0)
	pt3dadd(159.521, 115.137, 28, 0)
	pt3dadd(159.521, 114.697, 28, 0)
	pt3dadd(159.521, 114.258, 28, 0)
	pt3dadd(159.961, 113.818, 29, 0)
	pt3dadd(159.961, 113.379, 29, 0)
	pt3dadd(159.961, 112.939, 29, 0)
	pt3dadd(159.961, 112.5, 29, 0)
	pt3dadd(159.961, 112.061, 29, 0)
	pt3dadd(159.961, 111.621, 29, 0)
	pt3dadd(159.521, 111.182, 29, 0)
	pt3dadd(159.961, 111.182, 29, 0)
	pt3dadd(160.4, 111.182, 29, 0)
	pt3dadd(160.84, 111.182, 29, 0)
	pt3dadd(161.279, 111.182, 29, 0)
	pt3dadd(161.719, 110.742, 29, 0)
	pt3dadd(162.158, 110.303, 29, 0)
	pt3dadd(162.598, 109.863, 29, 0)
	pt3dadd(163.037, 109.863, 29, 0)
	pt3dadd(163.477, 109.863, 29, 0)
	pt3dadd(163.916, 109.863, 29, 0)
	pt3dadd(164.355, 109.863, 29, 0)
	pt3dadd(164.795, 109.863, 29, 0)
	pt3dadd(165.234, 109.863, 28, 0)
	pt3dadd(165.674, 109.424, 28, 0)
	pt3dadd(165.674, 108.984, 28, 0)
	pt3dadd(165.674, 108.545, 28, 0)
	pt3dadd(166.113, 108.105, 28, 0)
	pt3dadd(166.553, 107.666, 28, 0)
	pt3dadd(166.553, 107.227, 28, 0)
	pt3dadd(166.553, 106.787, 28, 0)
	pt3dadd(166.992, 106.348, 28, 0)
	pt3dadd(166.992, 105.908, 28, 0)
	pt3dadd(167.432, 105.469, 28, 0)
	pt3dadd(167.871, 105.029, 29, 0)
	pt3dadd(168.311, 104.59, 29, 0)
	pt3dadd(168.75, 104.59, 29, 0)
	pt3dadd(169.189, 104.59, 29, 0)
	pt3dadd(169.189, 104.15, 29, 0)
	pt3dadd(168.75, 103.711, 29, 0)
	pt3dadd(168.311, 103.271, 29, 0)
	pt3dadd(168.311, 102.832, 30, 0)
	pt3dadd(168.311, 102.393, 30, 0)
	pt3dadd(168.311, 101.953, 30, 0)
	pt3dadd(168.311, 101.514, 30, 0)
	pt3dadd(168.75, 101.074, 30, 0)
	pt3dadd(169.189, 100.635, 30, 0)
	pt3dadd(169.629, 100.195, 30, 0)
	pt3dadd(170.068, 99.7559, 30, 0)
	pt3dadd(170.508, 99.3164, 30, 0)
	pt3dadd(170.508, 98.877, 30, 0)
	pt3dadd(170.947, 98.4375, 31, 0)
	pt3dadd(171.387, 97.998, 32, 0)
	pt3dadd(171.826, 97.5586, 32, 0)
	pt3dadd(172.266, 97.1191, 32, 0)
	pt3dadd(172.705, 96.6797, 32, 0)
	pt3dadd(172.705, 96.2402, 32, 0)
	pt3dadd(173.145, 95.8008, 32, 0)
	pt3dadd(173.584, 95.3613, 32, 0)
	pt3dadd(173.584, 94.9219, 32, 0)
	pt3dadd(173.584, 94.4824, 32, 0)
	pt3dadd(173.584, 94.043, 32, 0)
	pt3dadd(173.584, 93.6035, 32, 0)
	pt3dadd(173.584, 93.1641, 32, 0)
	pt3dadd(174.023, 92.7246, 32, 0)
	pt3dadd(174.023, 92.2852, 32, 0)
	pt3dadd(174.463, 91.8457, 32, 0)
	pt3dadd(174.463, 91.4062, 32, 0)
	pt3dadd(174.023, 90.9668, 32, 0)
	pt3dadd(173.584, 90.5273, 32, 0)
  }
  dend[322] {pt3dclear()
	pt3dadd(140.186, 124.805, 28, 0)
	pt3dadd(140.186, 124.805, 28, 0)
	pt3dadd(140.625, 125.244, 28, 0)
	pt3dadd(140.625, 125.684, 28, 0)
	pt3dadd(141.064, 126.123, 27, 0)
	pt3dadd(141.504, 126.123, 26, 0)
	pt3dadd(141.943, 126.562, 26, 0)
	pt3dadd(142.383, 127.002, 25, 0)
	pt3dadd(142.822, 127.002, 25, 0)
	pt3dadd(143.262, 127.002, 24, 0)
	pt3dadd(143.701, 127.441, 23, 0)
	pt3dadd(144.141, 127.441, 23, 0)
	pt3dadd(144.58, 127.441, 23, 0)
	pt3dadd(145.02, 127.441, 23, 0)
	pt3dadd(145.459, 127.002, 23, 0)
	pt3dadd(145.898, 126.562, 23, 0)
	pt3dadd(146.338, 126.123, 23, 0)
	pt3dadd(146.777, 125.684, 23, 0)
	pt3dadd(147.217, 125.244, 23, 0)
	pt3dadd(147.656, 124.805, 23, 0)
	pt3dadd(148.096, 124.805, 23, 0)
	pt3dadd(148.535, 124.805, 23, 0)
	pt3dadd(148.096, 124.365, 22, 0)
	pt3dadd(148.096, 123.926, 21, 0)
  }
  dend[323] {pt3dclear()
	pt3dadd(148.096, 123.926, 21, 0)
	pt3dadd(148.535, 123.486, 21, 0)
	pt3dadd(148.975, 123.047, 21, 0)
	pt3dadd(148.975, 122.607, 21, 0)
	pt3dadd(149.414, 122.168, 20, 0)
	pt3dadd(149.854, 121.729, 20, 0)
	pt3dadd(150.293, 121.289, 20, 0)
	pt3dadd(150.732, 120.85, 20, 0)
	pt3dadd(151.172, 120.85, 20, 0)
	pt3dadd(151.611, 120.41, 20, 0)
	pt3dadd(152.051, 119.971, 20, 0)
	pt3dadd(152.49, 119.531, 20, 0)
	pt3dadd(152.93, 119.092, 20, 0)
	pt3dadd(153.369, 119.092, 20, 0)
	pt3dadd(153.809, 119.092, 20, 0)
	pt3dadd(154.248, 118.652, 20, 0)
	pt3dadd(154.688, 118.213, 19, 0)
	pt3dadd(155.127, 118.213, 19, 0)
	pt3dadd(155.566, 118.213, 19, 0)
  }
}
proc shape3d_50() {
  dend[323] {	pt3dadd(156.006, 117.773, 18, 0)
	pt3dadd(156.445, 117.773, 18, 0)
	pt3dadd(156.885, 117.773, 18, 0)
	pt3dadd(157.324, 117.773, 18, 0)
	pt3dadd(157.764, 117.773, 17, 0)
	pt3dadd(158.203, 117.773, 16, 0)
	pt3dadd(158.643, 117.334, 15, 0)
	pt3dadd(159.082, 116.895, 15, 0)
	pt3dadd(159.521, 116.895, 15, 0)
	pt3dadd(159.961, 116.455, 15, 0)
	pt3dadd(160.4, 116.455, 15, 0)
	pt3dadd(160.84, 116.016, 15, 0)
	pt3dadd(161.279, 116.016, 15, 0)
	pt3dadd(161.719, 115.576, 15, 0)
	pt3dadd(162.158, 115.137, 15, 0)
	pt3dadd(162.598, 115.137, 15, 0)
	pt3dadd(163.037, 115.137, 15, 0)
	pt3dadd(163.477, 115.137, 15, 0)
	pt3dadd(163.916, 115.137, 15, 0)
	pt3dadd(164.355, 115.137, 15, 0)
	pt3dadd(164.795, 115.137, 15, 0)
	pt3dadd(165.234, 115.137, 15, 0)
	pt3dadd(165.674, 115.576, 15, 0)
  }
  dend[324] {pt3dclear()
	pt3dadd(72.5098, 52.7344, 51, 0)
	pt3dadd(72.5098, 52.7344, 51, 0)
	pt3dadd(72.0703, 52.2949, 51, 0)
	pt3dadd(71.6309, 51.8555, 51, 0)
	pt3dadd(71.1914, 51.8555, 51, 0)
	pt3dadd(70.752, 51.8555, 51, 0)
	pt3dadd(70.3125, 51.8555, 51, 0)
	pt3dadd(69.873, 52.2949, 51, 0)
	pt3dadd(69.4336, 52.2949, 51, 0)
	pt3dadd(68.9941, 52.7344, 51, 0)
	pt3dadd(68.5547, 52.7344, 51, 0)
	pt3dadd(68.1152, 52.7344, 51, 0)
	pt3dadd(67.6758, 52.7344, 51, 0)
	pt3dadd(67.2363, 52.7344, 51, 0)
	pt3dadd(66.7969, 52.7344, 51, 0)
	pt3dadd(66.3574, 52.7344, 51, 0)
  }
  dend[325] {pt3dclear()
	pt3dadd(111.621, 107.227, 27, 0)
	pt3dadd(111.621, 107.227, 27, 0)
	pt3dadd(112.061, 107.227, 27, 0)
	pt3dadd(112.5, 107.666, 26, 0)
	pt3dadd(112.939, 107.666, 26, 0)
	pt3dadd(113.379, 107.666, 26, 0)
	pt3dadd(113.818, 108.105, 25, 0)
	pt3dadd(114.258, 108.545, 25, 0)
	pt3dadd(114.258, 108.984, 25, 0)
	pt3dadd(114.258, 109.424, 25, 0)
	pt3dadd(114.697, 109.863, 24, 0)
	pt3dadd(115.137, 110.303, 24, 0)
	pt3dadd(115.137, 110.742, 24, 0)
	pt3dadd(115.137, 111.182, 24, 0)
	pt3dadd(114.697, 111.621, 23, 0)
	pt3dadd(114.697, 112.061, 23, 0)
	pt3dadd(114.697, 112.5, 23, 0)
	pt3dadd(114.697, 112.939, 23, 0)
	pt3dadd(114.258, 113.379, 23, 0)
	pt3dadd(113.818, 113.818, 22, 0)
	pt3dadd(113.379, 114.258, 22, 0)
	pt3dadd(113.379, 114.697, 22, 0)
	pt3dadd(112.939, 115.137, 22, 0)
	pt3dadd(112.5, 115.576, 22, 0)
	pt3dadd(112.061, 116.016, 22, 0)
	pt3dadd(112.061, 116.455, 22, 0)
	pt3dadd(112.5, 116.895, 23, 0)
	pt3dadd(112.061, 116.455, 22, 0)
	pt3dadd(111.621, 116.455, 21, 0)
	pt3dadd(111.182, 116.895, 21, 0)
	pt3dadd(110.742, 117.334, 21, 0)
	pt3dadd(110.742, 117.773, 21, 0)
	pt3dadd(110.742, 118.213, 21, 0)
	pt3dadd(110.303, 118.652, 21, 0)
	pt3dadd(110.303, 119.092, 21, 0)
	pt3dadd(109.863, 119.531, 21, 0)
	pt3dadd(109.863, 119.971, 21, 0)
	pt3dadd(109.424, 120.41, 21, 0)
	pt3dadd(109.424, 120.85, 21, 0)
	pt3dadd(109.424, 121.289, 21, 0)
	pt3dadd(108.984, 121.729, 22, 0)
	pt3dadd(108.545, 122.168, 22, 0)
	pt3dadd(108.545, 122.607, 22, 0)
	pt3dadd(108.105, 123.047, 22, 0)
	pt3dadd(107.666, 123.486, 23, 0)
	pt3dadd(107.666, 123.486, 24, 0)
	pt3dadd(107.666, 123.926, 25, 0)
	pt3dadd(107.227, 124.365, 25, 0)
	pt3dadd(107.227, 124.805, 25, 0)
	pt3dadd(107.227, 125.244, 25, 0)
	pt3dadd(107.227, 125.684, 25, 0)
	pt3dadd(107.227, 126.123, 26, 0)
	pt3dadd(107.227, 126.562, 26, 0)
	pt3dadd(107.227, 127.002, 26, 0)
	pt3dadd(107.666, 127.441, 26, 0)
	pt3dadd(108.105, 127.881, 26, 0)
	pt3dadd(108.545, 128.32, 25, 0)
	pt3dadd(108.545, 128.76, 25, 0)
	pt3dadd(108.984, 128.76, 24, 0)
	pt3dadd(109.424, 128.76, 24, 0)
	pt3dadd(109.863, 129.199, 24, 0)
	pt3dadd(109.863, 129.199, 23, 0)
	pt3dadd(109.863, 129.639, 22, 0)
	pt3dadd(109.863, 130.078, 22, 0)
	pt3dadd(110.303, 130.518, 23, 0)
	pt3dadd(109.863, 130.078, 22, 0)
	pt3dadd(109.863, 129.639, 22, 0)
	pt3dadd(109.863, 129.199, 23, 0)
	pt3dadd(109.863, 129.199, 24, 0)
	pt3dadd(109.424, 128.76, 24, 0)
	pt3dadd(108.984, 128.76, 24, 0)
	pt3dadd(108.545, 128.76, 25, 0)
	pt3dadd(108.545, 128.32, 25, 0)
	pt3dadd(108.105, 127.881, 26, 0)
	pt3dadd(107.666, 127.441, 26, 0)
	pt3dadd(107.227, 127.002, 26, 0)
	pt3dadd(107.227, 126.562, 26, 0)
	pt3dadd(106.787, 126.123, 26, 0)
	pt3dadd(106.348, 125.684, 26, 0)
	pt3dadd(105.908, 125.684, 27, 0)
	pt3dadd(105.469, 125.684, 27, 0)
	pt3dadd(105.029, 126.123, 28, 0)
	pt3dadd(104.59, 126.123, 28, 0)
	pt3dadd(104.15, 126.562, 28, 0)
	pt3dadd(103.711, 127.002, 28, 0)
	pt3dadd(103.271, 127.441, 28, 0)
	pt3dadd(103.271, 127.881, 29, 0)
	pt3dadd(103.271, 128.32, 29, 0)
	pt3dadd(102.832, 128.76, 29, 0)
	pt3dadd(102.832, 129.199, 29, 0)
	pt3dadd(102.393, 129.639, 29, 0)
	pt3dadd(102.393, 130.078, 29, 0)
	pt3dadd(102.393, 130.518, 29, 0)
	pt3dadd(102.393, 130.957, 29, 0)
	pt3dadd(101.953, 131.396, 29, 0)
	pt3dadd(101.514, 131.396, 28, 0)
	pt3dadd(101.074, 131.836, 28, 0)
	pt3dadd(100.635, 132.275, 27, 0)
  }
  dend[326] {pt3dclear()
	pt3dadd(110.303, 104.15, 26, 0)
	pt3dadd(110.303, 104.15, 26, 0)
	pt3dadd(110.303, 103.711, 26, 0)
	pt3dadd(109.863, 103.271, 25, 0)
	pt3dadd(109.424, 102.832, 25, 0)
	pt3dadd(108.984, 102.393, 25, 0)
	pt3dadd(108.545, 101.953, 24, 0)
	pt3dadd(108.105, 101.953, 24, 0)
	pt3dadd(107.666, 101.953, 24, 0)
	pt3dadd(107.227, 101.514, 25, 0)
	pt3dadd(106.787, 101.074, 25, 0)
	pt3dadd(106.348, 101.074, 25, 0)
	pt3dadd(105.908, 100.635, 25, 0)
	pt3dadd(106.348, 100.635, 25, 0)
	pt3dadd(106.787, 101.074, 24, 0)
	pt3dadd(107.227, 101.514, 23, 0)
	pt3dadd(107.666, 101.074, 22, 0)
	pt3dadd(108.105, 100.635, 21, 0)
	pt3dadd(108.545, 100.195, 21, 0)
	pt3dadd(108.545, 99.7559, 20, 0)
	pt3dadd(108.984, 99.3164, 19, 0)
	pt3dadd(109.424, 98.877, 19, 0)
	pt3dadd(109.863, 98.877, 19, 0)
	pt3dadd(110.303, 98.4375, 19, 0)
	pt3dadd(110.742, 98.4375, 19, 0)
	pt3dadd(111.182, 97.998, 19, 0)
	pt3dadd(111.621, 97.5586, 19, 0)
	pt3dadd(112.061, 97.1191, 19, 0)
	pt3dadd(112.5, 96.6797, 19, 0)
	pt3dadd(112.939, 96.2402, 19, 0)
	pt3dadd(113.379, 96.2402, 19, 0)
	pt3dadd(113.818, 95.8008, 19, 0)
	pt3dadd(114.258, 95.8008, 19, 0)
	pt3dadd(114.697, 95.3613, 19, 0)
	pt3dadd(115.137, 94.9219, 19, 0)
	pt3dadd(115.137, 94.4824, 19, 0)
	pt3dadd(115.137, 94.043, 19, 0)
	pt3dadd(115.576, 93.6035, 19, 0)
	pt3dadd(115.576, 93.1641, 19, 0)
	pt3dadd(115.576, 92.7246, 19, 0)
	pt3dadd(115.576, 92.2852, 19, 0)
	pt3dadd(116.016, 91.8457, 20, 0)
	pt3dadd(116.016, 91.4062, 20, 0)
	pt3dadd(116.455, 90.9668, 21, 0)
	pt3dadd(116.455, 90.5273, 21, 0)
	pt3dadd(116.455, 90.0879, 21, 0)
	pt3dadd(116.455, 89.6484, 21, 0)
	pt3dadd(116.455, 89.209, 21, 0)
	pt3dadd(116.016, 88.7695, 21, 0)
	pt3dadd(116.016, 88.3301, 21, 0)
	pt3dadd(116.016, 87.8906, 21, 0)
	pt3dadd(115.576, 87.4512, 21, 0)
	pt3dadd(115.576, 87.0117, 21, 0)
	pt3dadd(115.576, 86.5723, 21, 0)
	pt3dadd(115.576, 86.1328, 22, 0)
	pt3dadd(115.576, 85.6934, 22, 0)
	pt3dadd(115.137, 85.2539, 22, 0)
	pt3dadd(114.697, 84.8145, 22, 0)
	pt3dadd(114.258, 84.375, 22, 0)
	pt3dadd(113.818, 83.9355, 22, 0)
	pt3dadd(113.818, 83.4961, 22, 0)
	pt3dadd(113.818, 83.0566, 22, 0)
	pt3dadd(113.818, 82.6172, 22, 0)
  }
}
proc shape3d_51() {
  dend[326] {	pt3dadd(113.818, 82.1777, 22, 0)
	pt3dadd(113.818, 81.7383, 22, 0)
	pt3dadd(113.818, 81.2988, 22, 0)
	pt3dadd(113.818, 80.8594, 22, 0)
	pt3dadd(113.818, 80.4199, 22, 0)
	pt3dadd(113.818, 79.9805, 22, 0)
	pt3dadd(113.818, 79.541, 21, 0)
	pt3dadd(114.258, 79.1016, 21, 0)
  }
  dend[327] {pt3dclear()
	pt3dadd(37.793, 121.729, 35, 0)
	pt3dadd(37.793, 121.729, 35, 0)
	pt3dadd(37.3535, 121.729, 35, 0)
	pt3dadd(36.9141, 122.168, 34, 0)
	pt3dadd(36.4746, 122.607, 33, 0)
	pt3dadd(36.0352, 122.168, 32, 0)
	pt3dadd(35.5957, 122.168, 32, 0)
	pt3dadd(35.1562, 121.729, 31, 0)
	pt3dadd(34.7168, 121.729, 31, 0)
	pt3dadd(34.2773, 121.729, 31, 0)
	pt3dadd(33.8379, 121.729, 31, 0)
	pt3dadd(33.3984, 122.168, 30, 0)
	pt3dadd(32.959, 122.168, 30, 0)
	pt3dadd(32.5195, 122.168, 30, 0)
	pt3dadd(32.0801, 122.168, 30, 0)
	pt3dadd(31.6406, 122.168, 30, 0)
	pt3dadd(31.2012, 121.729, 29, 0)
	pt3dadd(30.7617, 122.168, 28, 0)
	pt3dadd(30.3223, 122.607, 28, 0)
	pt3dadd(29.8828, 123.047, 28, 0)
	pt3dadd(29.4434, 123.486, 29, 0)
	pt3dadd(29.4434, 123.486, 30, 0)
	pt3dadd(29.0039, 123.926, 31, 0)
	pt3dadd(28.5645, 124.365, 32, 0)
	pt3dadd(28.5645, 124.805, 33, 0)
	pt3dadd(28.5645, 125.244, 33, 0)
  }
  dend[328] {pt3dclear()
	pt3dadd(28.5645, 125.244, 33, 0)
	pt3dadd(28.5645, 125.684, 33, 0)
	pt3dadd(28.5645, 126.123, 33, 0)
	pt3dadd(28.5645, 126.562, 33, 0)
	pt3dadd(28.5645, 127.002, 33, 0)
	pt3dadd(28.125, 127.441, 33, 0)
	pt3dadd(27.6855, 127.881, 33, 0)
	pt3dadd(27.2461, 128.32, 33, 0)
  }
  dend[329] {pt3dclear()
	pt3dadd(42.627, 197.314, 14, 0)
	pt3dadd(42.627, 197.314, 14, 0)
	pt3dadd(43.0664, 197.314, 14, 0)
	pt3dadd(43.5059, 197.314, 14, 0)
	pt3dadd(43.9453, 197.314, 14, 0)
	pt3dadd(44.3848, 197.314, 14, 0)
	pt3dadd(44.8242, 196.875, 13, 0)
	pt3dadd(45.2637, 196.436, 13, 0)
	pt3dadd(45.7031, 195.996, 12, 0)
	pt3dadd(46.1426, 195.996, 12, 0)
	pt3dadd(46.582, 195.996, 12, 0)
	pt3dadd(47.0215, 195.996, 12, 0)
	pt3dadd(47.4609, 195.557, 12, 0)
	pt3dadd(47.9004, 195.117, 12, 0)
	pt3dadd(47.9004, 195.557, 11, 0)
	pt3dadd(47.4609, 195.996, 10, 0)
  }
  dend[330] {pt3dclear()
	pt3dadd(47.4609, 195.996, 10, 0)
	pt3dadd(47.4609, 196.436, 10, 0)
	pt3dadd(47.9004, 196.875, 10, 0)
	pt3dadd(47.9004, 197.314, 10, 0)
	pt3dadd(48.3398, 197.754, 9, 0)
	pt3dadd(48.7793, 198.193, 9, 0)
	pt3dadd(49.2188, 198.633, 9, 0)
	pt3dadd(49.6582, 198.633, 9, 0)
	pt3dadd(50.0977, 199.072, 9, 0)
	pt3dadd(50.5371, 199.072, 9, 0)
	pt3dadd(50.9766, 199.512, 9, 0)
	pt3dadd(51.416, 199.951, 9, 0)
	pt3dadd(51.8555, 200.391, 9, 0)
	pt3dadd(52.2949, 200.83, 9, 0)
	pt3dadd(52.7344, 201.27, 9, 0)
	pt3dadd(53.1738, 201.27, 9, 0)
	pt3dadd(53.6133, 201.27, 8, 0)
	pt3dadd(54.0527, 200.83, 8, 0)
	pt3dadd(54.4922, 200.391, 8, 0)
	pt3dadd(54.9316, 200.391, 8, 0)
	pt3dadd(55.3711, 200.391, 8, 0)
	pt3dadd(55.8105, 200.83, 8, 0)
	pt3dadd(56.25, 200.83, 8, 0)
  }
  dend[331] {pt3dclear()
	pt3dadd(40.8691, 156.885, 30, 0)
	pt3dadd(40.8691, 156.885, 30, 0)
	pt3dadd(40.4297, 156.445, 30, 0)
	pt3dadd(39.9902, 156.445, 31, 0)
	pt3dadd(39.5508, 156.445, 31, 0)
	pt3dadd(39.1113, 156.445, 31, 0)
	pt3dadd(38.6719, 156.445, 31, 0)
	pt3dadd(38.2324, 156.445, 31, 0)
	pt3dadd(37.793, 156.885, 31, 0)
	pt3dadd(37.3535, 156.885, 31, 0)
	pt3dadd(36.9141, 156.885, 31, 0)
	pt3dadd(36.4746, 157.324, 31, 0)
	pt3dadd(36.0352, 157.324, 31, 0)
	pt3dadd(35.5957, 157.324, 31, 0)
	pt3dadd(35.1562, 157.324, 31, 0)
	pt3dadd(34.7168, 157.324, 31, 0)
	pt3dadd(34.2773, 156.885, 31, 0)
	pt3dadd(33.8379, 156.885, 31, 0)
	pt3dadd(33.3984, 156.885, 31, 0)
	pt3dadd(32.959, 156.445, 31, 0)
	pt3dadd(32.5195, 156.445, 32, 0)
	pt3dadd(32.0801, 156.445, 32, 0)
	pt3dadd(31.6406, 156.445, 32, 0)
	pt3dadd(31.2012, 156.885, 32, 0)
	pt3dadd(30.7617, 156.885, 32, 0)
	pt3dadd(30.3223, 156.885, 33, 0)
	pt3dadd(29.8828, 156.885, 33, 0)
	pt3dadd(29.4434, 156.885, 33, 0)
	pt3dadd(29.0039, 156.885, 33, 0)
	pt3dadd(28.5645, 156.885, 33, 0)
	pt3dadd(28.125, 156.885, 33, 0)
	pt3dadd(27.6855, 156.885, 33, 0)
	pt3dadd(27.2461, 156.885, 33, 0)
	pt3dadd(26.8066, 156.885, 33, 0)
	pt3dadd(26.3672, 156.885, 33, 0)
	pt3dadd(25.9277, 156.885, 33, 0)
	pt3dadd(25.4883, 156.885, 33, 0)
	pt3dadd(25.0488, 157.324, 33, 0)
	pt3dadd(24.6094, 157.324, 33, 0)
	pt3dadd(24.1699, 157.324, 33, 0)
	pt3dadd(23.7305, 157.324, 33, 0)
	pt3dadd(23.291, 157.324, 33, 0)
	pt3dadd(22.8516, 156.885, 33, 0)
	pt3dadd(22.4121, 156.885, 33, 0)
	pt3dadd(21.9727, 156.885, 33, 0)
	pt3dadd(21.5332, 157.324, 33, 0)
	pt3dadd(21.0938, 157.764, 33, 0)
	pt3dadd(20.6543, 157.764, 33, 0)
	pt3dadd(20.2148, 158.203, 33, 0)
	pt3dadd(19.7754, 158.203, 33, 0)
	pt3dadd(19.3359, 158.203, 33, 0)
	pt3dadd(18.8965, 158.643, 33, 0)
	pt3dadd(18.457, 158.643, 33, 0)
	pt3dadd(18.0176, 158.643, 33, 0)
	pt3dadd(17.5781, 158.643, 33, 0)
	pt3dadd(17.1387, 158.643, 33, 0)
	pt3dadd(16.6992, 158.643, 33, 0)
  }
  dend[332] {pt3dclear()
	pt3dadd(16.6992, 158.643, 33, 0)
	pt3dadd(16.2598, 158.643, 33, 0)
	pt3dadd(15.8203, 158.643, 33, 0)
	pt3dadd(15.3809, 159.082, 33, 0)
	pt3dadd(14.9414, 159.521, 34, 0)
	pt3dadd(14.502, 159.521, 35, 0)
	pt3dadd(14.502, 159.961, 35, 0)
	pt3dadd(14.0625, 160.4, 35, 0)
	pt3dadd(13.623, 160.84, 35, 0)
	pt3dadd(13.623, 161.279, 35, 0)
	pt3dadd(13.1836, 161.719, 36, 0)
	pt3dadd(12.7441, 162.158, 36, 0)
	pt3dadd(12.3047, 162.598, 36, 0)
	pt3dadd(11.8652, 163.037, 36, 0)
	pt3dadd(11.4258, 163.477, 36, 0)
	pt3dadd(10.9863, 163.477, 36, 0)
	pt3dadd(10.5469, 163.916, 36, 0)
	pt3dadd(10.1074, 164.355, 36, 0)
	pt3dadd(9.66797, 164.355, 36, 0)
	pt3dadd(9.22852, 164.355, 36, 0)
	pt3dadd(8.78906, 164.795, 36, 0)
	pt3dadd(8.34961, 165.234, 36, 0)
	pt3dadd(7.91016, 165.674, 36, 0)
	pt3dadd(7.4707, 165.674, 36, 0)
	pt3dadd(7.03125, 166.113, 36, 0)
	pt3dadd(6.5918, 166.553, 36, 0)
	pt3dadd(6.15234, 166.553, 36, 0)
	pt3dadd(5.71289, 166.553, 36, 0)
  }
  dend[333] {pt3dclear()
	pt3dadd(43.0664, 155.566, 29, 0)
	pt3dadd(43.0664, 155.566, 29, 0)
	pt3dadd(42.627, 155.127, 28, 0)
	pt3dadd(42.1875, 155.127, 28, 0)
	pt3dadd(41.748, 154.688, 28, 0)
	pt3dadd(41.3086, 154.688, 28, 0)
	pt3dadd(40.8691, 154.248, 28, 0)
	pt3dadd(40.4297, 153.809, 29, 0)
	pt3dadd(39.9902, 153.809, 29, 0)
	pt3dadd(39.9902, 153.369, 29, 0)
	pt3dadd(39.9902, 152.93, 30, 0)
	pt3dadd(39.5508, 152.49, 31, 0)
	pt3dadd(39.1113, 152.49, 31, 0)
	pt3dadd(38.6719, 152.49, 31, 0)
	pt3dadd(38.2324, 152.49, 31, 0)
	pt3dadd(37.793, 152.49, 31, 0)
	pt3dadd(37.3535, 152.051, 31, 0)
	pt3dadd(36.9141, 152.051, 31, 0)
	pt3dadd(36.4746, 151.611, 31, 0)
	pt3dadd(36.0352, 151.611, 31, 0)
	pt3dadd(35.5957, 151.172, 31, 0)
  }
  dend[334] {pt3dclear()
	pt3dadd(40.8691, 217.529, 20, 0)
	pt3dadd(40.8691, 217.529, 20, 0)
	pt3dadd(40.4297, 217.529, 20, 0)
	pt3dadd(39.9902, 217.09, 21, 0)
	pt3dadd(39.5508, 217.529, 21, 0)
	pt3dadd(39.5508, 217.969, 22, 0)
	pt3dadd(39.1113, 218.408, 22, 0)
	pt3dadd(38.6719, 218.848, 23, 0)
	pt3dadd(38.2324, 218.848, 23, 0)
	pt3dadd(37.793, 219.287, 23, 0)
	pt3dadd(37.3535, 219.727, 23, 0)
	pt3dadd(36.9141, 219.727, 23, 0)
	pt3dadd(36.4746, 220.166, 23, 0)
  }
}
proc shape3d_52() {
  dend[334] {	pt3dadd(36.0352, 220.166, 23, 0)
	pt3dadd(35.5957, 220.605, 23, 0)
	pt3dadd(35.1562, 220.605, 23, 0)
	pt3dadd(34.7168, 220.605, 23, 0)
	pt3dadd(34.2773, 220.605, 23, 0)
	pt3dadd(33.8379, 220.605, 23, 0)
	pt3dadd(33.3984, 221.045, 23, 0)
	pt3dadd(32.959, 221.484, 23, 0)
	pt3dadd(32.5195, 221.484, 23, 0)
	pt3dadd(32.0801, 221.924, 23, 0)
	pt3dadd(31.6406, 222.363, 23, 0)
	pt3dadd(31.2012, 222.803, 23, 0)
	pt3dadd(30.7617, 223.242, 22, 0)
	pt3dadd(30.3223, 223.242, 22, 0)
  }
  dend[335] {pt3dclear()
	pt3dadd(45.2637, 221.484, 21, 0)
	pt3dadd(45.2637, 221.484, 21, 0)
	pt3dadd(44.8242, 221.924, 21, 0)
	pt3dadd(44.8242, 222.363, 21, 0)
	pt3dadd(44.3848, 222.803, 21, 0)
	pt3dadd(43.9453, 223.242, 20, 0)
	pt3dadd(43.5059, 223.682, 20, 0)
	pt3dadd(43.0664, 223.682, 20, 0)
	pt3dadd(42.627, 223.242, 20, 0)
	pt3dadd(42.1875, 223.242, 20, 0)
	pt3dadd(41.748, 223.682, 20, 0)
  }
  dend[336] {pt3dclear()
	pt3dadd(65.918, 202.588, 21, 0)
	pt3dadd(65.918, 202.588, 21, 0)
	pt3dadd(66.3574, 202.588, 22, 0)
	pt3dadd(66.3574, 203.027, 22, 0)
	pt3dadd(66.3574, 203.467, 22, 0)
	pt3dadd(66.7969, 203.906, 22, 0)
	pt3dadd(67.2363, 204.346, 22, 0)
	pt3dadd(67.2363, 204.785, 22, 0)
	pt3dadd(67.6758, 205.225, 22, 0)
	pt3dadd(68.1152, 205.664, 22, 0)
	pt3dadd(68.5547, 206.104, 22, 0)
	pt3dadd(68.5547, 206.543, 22, 0)
	pt3dadd(68.9941, 206.982, 21, 0)
	pt3dadd(69.4336, 207.422, 21, 0)
	pt3dadd(69.873, 207.861, 21, 0)
	pt3dadd(70.3125, 208.301, 21, 0)
	pt3dadd(70.752, 208.301, 21, 0)
	pt3dadd(71.1914, 208.74, 22, 0)
	pt3dadd(71.6309, 208.74, 22, 0)
	pt3dadd(72.0703, 209.18, 22, 0)
	pt3dadd(72.5098, 209.619, 22, 0)
	pt3dadd(72.5098, 210.059, 22, 0)
  }
  dend[337] {pt3dclear()
	pt3dadd(72.5098, 210.059, 22, 0)
	pt3dadd(72.9492, 210.498, 21, 0)
	pt3dadd(72.9492, 210.938, 21, 0)
	pt3dadd(73.3887, 211.377, 21, 0)
	pt3dadd(73.3887, 211.816, 21, 0)
	pt3dadd(73.8281, 212.256, 21, 0)
	pt3dadd(74.2676, 212.695, 21, 0)
	pt3dadd(74.707, 212.695, 21, 0)
	pt3dadd(75.1465, 213.135, 20, 0)
	pt3dadd(75.1465, 213.574, 20, 0)
	pt3dadd(75.1465, 214.014, 20, 0)
	pt3dadd(75.5859, 214.453, 21, 0)
	pt3dadd(76.0254, 214.893, 21, 0)
	pt3dadd(76.4648, 215.332, 21, 0)
	pt3dadd(76.9043, 215.771, 21, 0)
	pt3dadd(77.3438, 216.211, 21, 0)
	pt3dadd(77.3438, 216.65, 21, 0)
	pt3dadd(76.9043, 216.65, 21, 0)
	pt3dadd(76.4648, 216.65, 21, 0)
	pt3dadd(76.0254, 216.65, 21, 0)
	pt3dadd(75.5859, 216.65, 21, 0)
	pt3dadd(75.1465, 216.65, 21, 0)
	pt3dadd(74.707, 216.65, 20, 0)
	pt3dadd(74.2676, 216.65, 19, 0)
	pt3dadd(74.2676, 217.09, 19, 0)
	pt3dadd(73.8281, 217.529, 19, 0)
	pt3dadd(73.8281, 217.969, 19, 0)
	pt3dadd(73.8281, 218.408, 19, 0)
	pt3dadd(73.8281, 218.848, 19, 0)
	pt3dadd(73.3887, 219.287, 19, 0)
	pt3dadd(72.9492, 219.727, 19, 0)
	pt3dadd(72.5098, 220.166, 18, 0)
	pt3dadd(72.0703, 220.166, 18, 0)
	pt3dadd(71.6309, 220.605, 18, 0)
	pt3dadd(71.1914, 221.045, 18, 0)
	pt3dadd(70.752, 221.484, 17, 0)
	pt3dadd(70.752, 221.924, 17, 0)
	pt3dadd(70.3125, 222.363, 17, 0)
	pt3dadd(69.873, 222.803, 18, 0)
	pt3dadd(69.4336, 222.803, 19, 0)
  }
  dend[338] {pt3dclear()
	pt3dadd(71.6309, 194.238, 16, 0)
	pt3dadd(71.6309, 194.238, 16, 0)
	pt3dadd(71.1914, 194.238, 17, 0)
	pt3dadd(70.752, 194.238, 18, 0)
	pt3dadd(70.3125, 194.238, 18, 0)
	pt3dadd(69.873, 194.238, 19, 0)
	pt3dadd(69.4336, 194.678, 19, 0)
	pt3dadd(68.9941, 194.678, 19, 0)
	pt3dadd(68.5547, 194.678, 19, 0)
	pt3dadd(68.1152, 194.678, 19, 0)
	pt3dadd(67.6758, 194.678, 19, 0)
	pt3dadd(68.1152, 194.678, 19, 0)
	pt3dadd(68.5547, 194.678, 19, 0)
	pt3dadd(68.9941, 194.678, 19, 0)
	pt3dadd(69.4336, 194.678, 19, 0)
	pt3dadd(69.873, 194.238, 19, 0)
	pt3dadd(70.3125, 194.238, 18, 0)
	pt3dadd(70.752, 194.238, 17, 0)
	pt3dadd(71.1914, 194.238, 16, 0)
	pt3dadd(71.6309, 194.238, 16, 0)
	pt3dadd(71.1914, 194.238, 15, 0)
	pt3dadd(70.752, 194.678, 14, 0)
	pt3dadd(70.752, 195.117, 13, 0)
	pt3dadd(70.752, 195.117, 12, 0)
	pt3dadd(70.3125, 195.117, 11, 0)
	pt3dadd(69.873, 195.117, 10, 0)
	pt3dadd(69.4336, 195.117, 10, 0)
	pt3dadd(68.9941, 194.678, 10, 0)
	pt3dadd(68.9941, 194.238, 10, 0)
	pt3dadd(68.5547, 194.678, 9, 0)
	pt3dadd(68.1152, 195.117, 8, 0)
	pt3dadd(67.6758, 195.117, 8, 0)
	pt3dadd(67.2363, 195.117, 7, 0)
	pt3dadd(66.7969, 195.117, 7, 0)
	pt3dadd(66.3574, 194.678, 7, 0)
	pt3dadd(65.918, 194.238, 7, 0)
	pt3dadd(66.3574, 194.678, 7, 0)
	pt3dadd(66.7969, 195.117, 6, 0)
	pt3dadd(66.7969, 195.557, 5, 0)
	pt3dadd(67.2363, 195.996, 4, 0)
	pt3dadd(67.2363, 195.996, 3, 0)
	pt3dadd(67.2363, 196.436, 3, 0)
	pt3dadd(67.6758, 196.875, 2, 0)
	pt3dadd(68.1152, 196.875, 2, 0)
	pt3dadd(68.5547, 196.875, 2, 0)
	pt3dadd(68.9941, 197.314, 3, 0)
	pt3dadd(68.9941, 197.754, 3, 0)
	pt3dadd(69.4336, 198.193, 3, 0)
	pt3dadd(69.873, 198.633, 3, 0)
  }
  dend[339] {pt3dclear()
	pt3dadd(72.5098, 192.92, 15, 0)
	pt3dadd(72.5098, 192.92, 15, 0)
	pt3dadd(72.9492, 193.359, 14, 0)
	pt3dadd(73.3887, 193.359, 14, 0)
	pt3dadd(73.8281, 193.799, 14, 0)
	pt3dadd(73.8281, 194.238, 14, 0)
	pt3dadd(73.8281, 194.678, 13, 0)
	pt3dadd(74.2676, 195.117, 13, 0)
	pt3dadd(74.2676, 195.557, 13, 0)
	pt3dadd(74.2676, 195.996, 13, 0)
	pt3dadd(74.2676, 196.436, 13, 0)
	pt3dadd(74.2676, 196.875, 13, 0)
	pt3dadd(74.2676, 197.314, 13, 0)
	pt3dadd(74.2676, 197.754, 13, 0)
	pt3dadd(74.707, 198.193, 13, 0)
	pt3dadd(74.707, 198.633, 13, 0)
	pt3dadd(74.707, 199.072, 13, 0)
	pt3dadd(74.707, 199.512, 13, 0)
	pt3dadd(75.1465, 199.951, 12, 0)
	pt3dadd(75.5859, 199.951, 12, 0)
  }
  dend[340] {pt3dclear()
	pt3dadd(78.6621, 185.01, 17, 0)
	pt3dadd(78.6621, 185.01, 17, 0)
	pt3dadd(79.1016, 185.01, 17, 0)
	pt3dadd(79.541, 185.01, 17, 0)
	pt3dadd(79.9805, 185.449, 17, 0)
	pt3dadd(80.4199, 185.889, 17, 0)
	pt3dadd(80.4199, 186.328, 17, 0)
	pt3dadd(80.8594, 186.768, 16, 0)
	pt3dadd(81.2988, 187.207, 16, 0)
	pt3dadd(81.2988, 187.646, 16, 0)
	pt3dadd(81.7383, 188.086, 16, 0)
	pt3dadd(81.7383, 188.525, 16, 0)
	pt3dadd(81.7383, 188.965, 16, 0)
	pt3dadd(82.1777, 189.404, 16, 0)
	pt3dadd(82.6172, 189.844, 15, 0)
	pt3dadd(82.6172, 190.283, 15, 0)
	pt3dadd(83.0566, 190.723, 15, 0)
	pt3dadd(83.0566, 191.162, 15, 0)
	pt3dadd(83.4961, 191.602, 15, 0)
	pt3dadd(83.9355, 192.041, 15, 0)
	pt3dadd(84.375, 192.041, 15, 0)
	pt3dadd(84.8145, 192.48, 16, 0)
	pt3dadd(85.2539, 192.48, 16, 0)
  }
  dend[341] {pt3dclear()
	pt3dadd(148.096, 123.926, 21, 0)
	pt3dadd(148.096, 123.926, 21, 0)
	pt3dadd(148.096, 124.365, 21, 0)
	pt3dadd(148.096, 124.805, 21, 0)
	pt3dadd(148.096, 125.244, 21, 0)
	pt3dadd(148.535, 125.684, 21, 0)
	pt3dadd(148.975, 126.123, 21, 0)
	pt3dadd(149.414, 126.562, 21, 0)
	pt3dadd(149.854, 127.002, 21, 0)
	pt3dadd(150.293, 127.441, 20, 0)
	pt3dadd(150.732, 127.881, 20, 0)
	pt3dadd(151.172, 128.32, 20, 0)
	pt3dadd(151.611, 128.76, 20, 0)
	pt3dadd(152.051, 129.199, 20, 0)
	pt3dadd(152.49, 129.639, 19, 0)
	pt3dadd(152.49, 130.078, 19, 0)
	pt3dadd(152.49, 130.518, 19, 0)
	pt3dadd(152.49, 130.957, 19, 0)
	pt3dadd(152.49, 131.396, 19, 0)
  }
  dend[342] {pt3dclear()
	pt3dadd(28.5645, 125.244, 33, 0)
	pt3dadd(28.5645, 125.244, 33, 0)
  }
}
proc shape3d_53() {
  dend[342] {	pt3dadd(28.125, 124.805, 34, 0)
	pt3dadd(27.6855, 124.805, 34, 0)
	pt3dadd(27.2461, 125.244, 35, 0)
	pt3dadd(26.8066, 124.805, 36, 0)
	pt3dadd(26.8066, 124.365, 36, 0)
	pt3dadd(26.3672, 123.926, 36, 0)
	pt3dadd(25.9277, 123.486, 36, 0)
	pt3dadd(25.4883, 123.047, 36, 0)
	pt3dadd(25.4883, 122.607, 36, 0)
	pt3dadd(25.0488, 122.168, 36, 0)
	pt3dadd(24.6094, 121.729, 36, 0)
	pt3dadd(24.6094, 121.289, 37, 0)
	pt3dadd(24.6094, 120.85, 37, 0)
	pt3dadd(24.6094, 120.41, 37, 0)
	pt3dadd(24.1699, 119.971, 36, 0)
	pt3dadd(23.7305, 119.531, 36, 0)
	pt3dadd(23.291, 119.092, 36, 0)
	pt3dadd(22.8516, 118.652, 36, 0)
	pt3dadd(22.4121, 118.213, 36, 0)
	pt3dadd(21.9727, 118.213, 35, 0)
	pt3dadd(21.5332, 117.773, 35, 0)
	pt3dadd(21.0938, 117.773, 35, 0)
	pt3dadd(20.6543, 117.773, 35, 0)
	pt3dadd(20.2148, 117.773, 35, 0)
	pt3dadd(19.7754, 117.334, 36, 0)
	pt3dadd(19.3359, 116.895, 36, 0)
	pt3dadd(18.8965, 116.455, 36, 0)
	pt3dadd(18.457, 116.016, 36, 0)
	pt3dadd(18.0176, 115.576, 36, 0)
	pt3dadd(18.0176, 115.137, 36, 0)
  }
  dend[343] {pt3dclear()
	pt3dadd(27.2461, 128.32, 33, 0)
	pt3dadd(27.2461, 128.32, 33, 0)
	pt3dadd(26.8066, 128.76, 33, 0)
	pt3dadd(26.3672, 129.199, 34, 0)
	pt3dadd(25.9277, 128.76, 35, 0)
	pt3dadd(25.4883, 128.76, 36, 0)
	pt3dadd(25.0488, 128.76, 36, 0)
	pt3dadd(24.6094, 129.199, 37, 0)
	pt3dadd(24.1699, 129.199, 37, 0)
	pt3dadd(23.7305, 129.199, 38, 0)
	pt3dadd(23.291, 129.639, 38, 0)
	pt3dadd(22.8516, 129.639, 38, 0)
	pt3dadd(22.4121, 130.078, 38, 0)
	pt3dadd(21.9727, 130.518, 38, 0)
	pt3dadd(21.5332, 130.957, 38, 0)
	pt3dadd(21.5332, 131.396, 38, 0)
	pt3dadd(21.0938, 131.836, 38, 0)
	pt3dadd(20.6543, 132.275, 38, 0)
	pt3dadd(20.2148, 132.715, 38, 0)
	pt3dadd(19.7754, 132.715, 38, 0)
	pt3dadd(19.3359, 133.154, 38, 0)
	pt3dadd(18.8965, 133.154, 38, 0)
	pt3dadd(18.457, 133.594, 38, 0)
	pt3dadd(18.0176, 134.033, 38, 0)
	pt3dadd(17.5781, 134.473, 38, 0)
	pt3dadd(17.1387, 134.912, 38, 0)
	pt3dadd(17.1387, 135.352, 38, 0)
	pt3dadd(17.1387, 135.791, 37, 0)
	pt3dadd(17.1387, 136.23, 37, 0)
	pt3dadd(17.1387, 136.67, 37, 0)
	pt3dadd(16.6992, 137.109, 37, 0)
	pt3dadd(16.6992, 137.549, 37, 0)
	pt3dadd(16.6992, 137.988, 37, 0)
	pt3dadd(16.6992, 138.428, 37, 0)
	pt3dadd(16.2598, 138.867, 37, 0)
	pt3dadd(16.2598, 139.307, 37, 0)
	pt3dadd(16.2598, 139.746, 36, 0)
  }
  dend[344] {pt3dclear()
	pt3dadd(16.2598, 139.746, 36, 0)
	pt3dadd(16.2598, 140.186, 36, 0)
	pt3dadd(16.2598, 140.625, 36, 0)
	pt3dadd(16.6992, 141.064, 36, 0)
	pt3dadd(16.6992, 141.504, 36, 0)
	pt3dadd(16.6992, 141.943, 36, 0)
	pt3dadd(16.6992, 142.383, 36, 0)
	pt3dadd(16.6992, 142.822, 36, 0)
	pt3dadd(16.2598, 143.262, 35, 0)
	pt3dadd(16.2598, 143.701, 35, 0)
	pt3dadd(16.2598, 144.141, 35, 0)
  }
  dend[345] {pt3dclear()
	pt3dadd(16.2598, 144.141, 35, 0)
	pt3dadd(15.8203, 144.58, 35, 0)
	pt3dadd(15.3809, 145.02, 35, 0)
	pt3dadd(14.9414, 145.02, 35, 0)
	pt3dadd(14.502, 145.459, 35, 0)
	pt3dadd(14.0625, 145.898, 35, 0)
	pt3dadd(13.623, 146.338, 35, 0)
	pt3dadd(13.1836, 146.777, 35, 0)
	pt3dadd(12.7441, 146.777, 35, 0)
	pt3dadd(12.3047, 147.217, 35, 0)
	pt3dadd(12.7441, 147.656, 36, 0)
	pt3dadd(12.7441, 148.096, 36, 0)
	pt3dadd(12.7441, 148.535, 36, 0)
  }
  dend[346] {pt3dclear()
	pt3dadd(47.4609, 195.996, 10, 0)
	pt3dadd(47.4609, 195.996, 10, 0)
	pt3dadd(47.0215, 195.996, 10, 0)
	pt3dadd(46.582, 195.557, 10, 0)
	pt3dadd(46.1426, 195.117, 9, 0)
	pt3dadd(46.1426, 194.678, 9, 0)
	pt3dadd(46.582, 194.238, 9, 0)
	pt3dadd(46.582, 193.799, 9, 0)
	pt3dadd(46.582, 193.359, 9, 0)
	pt3dadd(46.582, 192.92, 9, 0)
	pt3dadd(46.582, 192.48, 9, 0)
	pt3dadd(46.1426, 192.041, 9, 0)
	pt3dadd(46.1426, 191.602, 9, 0)
	pt3dadd(46.1426, 191.162, 9, 0)
	pt3dadd(46.1426, 190.723, 9, 0)
	pt3dadd(46.1426, 190.283, 9, 0)
	pt3dadd(46.1426, 189.844, 9, 0)
	pt3dadd(46.1426, 189.404, 9, 0)
	pt3dadd(46.1426, 188.965, 9, 0)
	pt3dadd(46.1426, 188.525, 9, 0)
	pt3dadd(46.1426, 188.086, 9, 0)
	pt3dadd(46.1426, 187.646, 9, 0)
	pt3dadd(46.1426, 187.207, 9, 0)
	pt3dadd(46.582, 186.768, 9, 0)
	pt3dadd(47.0215, 186.328, 9, 0)
	pt3dadd(47.0215, 185.889, 9, 0)
	pt3dadd(47.0215, 185.449, 9, 0)
  }
  dend[347] {pt3dclear()
	pt3dadd(16.6992, 158.643, 33, 0)
	pt3dadd(16.6992, 158.643, 33, 0)
	pt3dadd(16.2598, 158.203, 32, 0)
	pt3dadd(15.8203, 157.764, 32, 0)
	pt3dadd(15.3809, 157.324, 32, 0)
	pt3dadd(14.9414, 156.885, 32, 0)
	pt3dadd(14.502, 156.445, 31, 0)
	pt3dadd(14.0625, 156.445, 31, 0)
	pt3dadd(13.623, 156.445, 31, 0)
	pt3dadd(13.1836, 156.445, 31, 0)
	pt3dadd(12.7441, 156.006, 31, 0)
	pt3dadd(12.3047, 156.006, 31, 0)
	pt3dadd(11.8652, 156.006, 31, 0)
	pt3dadd(11.4258, 156.006, 31, 0)
  }
  dend[348] {pt3dclear()
	pt3dadd(72.5098, 210.059, 22, 0)
	pt3dadd(72.5098, 210.059, 22, 0)
	pt3dadd(72.9492, 210.059, 22, 0)
	pt3dadd(73.3887, 209.619, 22, 0)
	pt3dadd(73.8281, 209.619, 22, 0)
	pt3dadd(74.2676, 210.059, 22, 0)
	pt3dadd(74.707, 210.059, 22, 0)
	pt3dadd(75.1465, 210.498, 23, 0)
	pt3dadd(75.5859, 210.498, 23, 0)
	pt3dadd(76.0254, 210.498, 23, 0)
	pt3dadd(76.4648, 210.498, 23, 0)
	pt3dadd(76.9043, 210.938, 23, 0)
	pt3dadd(77.3438, 211.377, 23, 0)
	pt3dadd(77.3438, 211.816, 23, 0)
	pt3dadd(77.7832, 212.256, 23, 0)
	pt3dadd(78.2227, 212.695, 23, 0)
	pt3dadd(78.6621, 212.695, 23, 0)
	pt3dadd(79.1016, 212.695, 23, 0)
	pt3dadd(79.541, 212.695, 23, 0)
	pt3dadd(79.9805, 212.695, 23, 0)
	pt3dadd(80.4199, 213.135, 23, 0)
	pt3dadd(80.8594, 213.135, 23, 0)
	pt3dadd(81.2988, 213.135, 22, 0)
	pt3dadd(81.7383, 213.135, 22, 0)
	pt3dadd(82.1777, 212.695, 22, 0)
	pt3dadd(82.6172, 212.256, 21, 0)
	pt3dadd(83.0566, 212.256, 21, 0)
	pt3dadd(83.4961, 212.256, 21, 0)
	pt3dadd(83.9355, 212.256, 21, 0)
	pt3dadd(84.375, 212.256, 21, 0)
	pt3dadd(84.8145, 212.256, 21, 0)
	pt3dadd(85.2539, 212.256, 21, 0)
	pt3dadd(85.6934, 212.256, 21, 0)
	pt3dadd(86.1328, 212.256, 21, 0)
	pt3dadd(86.5723, 212.256, 21, 0)
	pt3dadd(87.0117, 212.695, 22, 0)
	pt3dadd(87.0117, 212.256, 21, 0)
	pt3dadd(87.4512, 211.816, 20, 0)
	pt3dadd(87.8906, 211.816, 20, 0)
	pt3dadd(88.3301, 211.377, 19, 0)
	pt3dadd(88.7695, 211.377, 19, 0)
	pt3dadd(89.209, 211.377, 19, 0)
	pt3dadd(89.6484, 211.377, 19, 0)
	pt3dadd(90.0879, 211.377, 19, 0)
	pt3dadd(90.5273, 211.377, 19, 0)
	pt3dadd(90.9668, 211.816, 19, 0)
	pt3dadd(91.4062, 211.816, 19, 0)
	pt3dadd(91.8457, 211.816, 19, 0)
	pt3dadd(92.2852, 211.377, 19, 0)
	pt3dadd(92.7246, 211.377, 19, 0)
	pt3dadd(93.1641, 211.816, 19, 0)
	pt3dadd(93.6035, 211.816, 19, 0)
  }
  dend[349] {pt3dclear()
	pt3dadd(16.2598, 139.746, 36, 0)
	pt3dadd(16.2598, 139.746, 36, 0)
	pt3dadd(15.8203, 140.186, 36, 0)
	pt3dadd(15.3809, 140.186, 36, 0)
	pt3dadd(14.9414, 140.186, 36, 0)
	pt3dadd(14.502, 140.186, 36, 0)
	pt3dadd(14.0625, 140.186, 36, 0)
	pt3dadd(13.623, 140.186, 36, 0)
	pt3dadd(13.1836, 140.186, 36, 0)
	pt3dadd(12.7441, 139.746, 35, 0)
	pt3dadd(12.3047, 139.746, 35, 0)
	pt3dadd(11.8652, 139.746, 35, 0)
	pt3dadd(11.4258, 140.186, 35, 0)
	pt3dadd(10.9863, 140.186, 35, 0)
	pt3dadd(10.5469, 140.186, 35, 0)
	pt3dadd(10.1074, 139.746, 35, 0)
  }
}
proc shape3d_54() {
  dend[349] {	pt3dadd(9.66797, 139.746, 35, 0)
	pt3dadd(9.22852, 140.186, 35, 0)
	pt3dadd(8.78906, 140.186, 35, 0)
	pt3dadd(8.34961, 140.186, 35, 0)
	pt3dadd(7.91016, 140.186, 35, 0)
	pt3dadd(7.4707, 140.186, 35, 0)
	pt3dadd(7.03125, 140.186, 34, 0)
	pt3dadd(6.5918, 140.186, 34, 0)
	pt3dadd(6.15234, 140.186, 34, 0)
	pt3dadd(5.71289, 140.186, 34, 0)
	pt3dadd(5.27344, 140.186, 34, 0)
	pt3dadd(4.83398, 139.746, 34, 0)
	pt3dadd(4.39453, 139.746, 34, 0)
	pt3dadd(3.95508, 139.307, 34, 0)
	pt3dadd(3.95508, 138.867, 34, 0)
	pt3dadd(3.95508, 138.428, 35, 0)
  }
  dend[0] {pt3dclear()
	pt3dadd(16.2598, 144.141, 35, 0)
	pt3dadd(16.2598, 144.141, 35, 0)
	pt3dadd(16.6992, 144.141, 35, 0)
	pt3dadd(17.1387, 144.141, 34, 0)
	pt3dadd(17.5781, 144.141, 34, 0)
	pt3dadd(18.0176, 144.141, 34, 0)
	pt3dadd(18.457, 144.58, 34, 0)
	pt3dadd(18.8965, 145.02, 34, 0)
	pt3dadd(19.3359, 145.459, 33, 0)
	pt3dadd(19.7754, 145.898, 32, 0)
	pt3dadd(20.2148, 146.338, 32, 0)
	pt3dadd(20.2148, 146.777, 32, 0)
	pt3dadd(20.2148, 147.217, 32, 0)
	pt3dadd(20.2148, 147.656, 31, 0)
	pt3dadd(20.2148, 148.096, 31, 0)
	pt3dadd(20.6543, 148.535, 31, 0)
	pt3dadd(21.0938, 148.975, 31, 0)
	pt3dadd(21.5332, 149.414, 31, 0)
	pt3dadd(21.9727, 149.854, 31, 0)
	pt3dadd(22.4121, 150.293, 31, 0)
	pt3dadd(22.8516, 150.732, 31, 0)
	pt3dadd(23.291, 150.732, 31, 0)
	pt3dadd(23.7305, 151.172, 31, 0)
	pt3dadd(24.1699, 151.172, 31, 0)
	pt3dadd(24.6094, 151.172, 31, 0)
	pt3dadd(25.0488, 151.172, 31, 0)
	pt3dadd(25.4883, 151.172, 31, 0)
	pt3dadd(25.9277, 151.172, 31, 0)
	pt3dadd(26.3672, 151.172, 31, 0)
	pt3dadd(26.8066, 151.172, 32, 0)
	pt3dadd(27.2461, 151.172, 32, 0)
	pt3dadd(27.6855, 151.172, 32, 0)
	pt3dadd(28.125, 151.172, 32, 0)
  }
}
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()
}



	objref all, off,on,dends

    proc init(){local i
		//create soma, dend[241]
		
		topol()
	  //	objref all, OFF,ON,dends
	  	all = new SectionList()
		somas = new SectionList()
	    dends = new SectionList()
	  	ON = new SectionList()
	  	OFF = new SectionList()

 	    soma all.append()
		for i=0, 349 dend[i] all.append()
		for i=0, 349 dend[i] dends.append()
		soma somas.append()
		forsec all{
			if (z3d(n3d()-1)>=-.16*y3d(n3d()-1)+46){
				ON.append()
				
			}else{
				OFF.append()
				//diam=3
			}
		}


  		access soma
		distance()
		forsec dends{
			diam=.5+2.58*exp(-(distance(01)-10)/10)
		}
		countON=0
		forall {
            nseg=1
		}
		forsec ON{
            countON=countON+1
			
   	 	}

		numsynperdend=1
		
		numsyn=int(countON*numsynperdend/numdendskip)+1
		objref SACinhibsyn[numsyn],SACexcsyn[numsyn],BIPsyn[numsyn]

		countn=0
		skip=0
		forsec ON{
			if(skip==0){
				for i=0,numsynperdend-1{
					SACinhibsyn[countn]=new SACinhib(.5)//(i+1)/(numsynperdend+1))
					SACexcsyn[countn]=new SACexc(.5)//(i+1)/(numsynperdend+1))				
					SACinhibsyn[countn].locx=(x3d(1)-x3d(0))/(numsynperdend+1)*(i+1)+x3d(0)
					SACinhibsyn[countn].locy=(y3d(1)-y3d(0))/(numsynperdend+1)*(i+1)+y3d(0)
					SACexcsyn[countn].locx=(x3d(1)-x3d(0))/(numsynperdend+1)*(i+1)+x3d(0)
					SACexcsyn[countn].locy=(y3d(1)-y3d(0))/(numsynperdend+1)*(i+1)+y3d(0)								
					BIPsyn[countn]=new bipNMDA(.5)//(i+1)/(numsynperdend+1))
					BIPsyn[countn].locx=(x3d(1)-x3d(0))/(numsynperdend+1)*(i+1)+x3d(0)
					BIPsyn[countn].locy=(y3d(1)-y3d(0))/(numsynperdend+1)*(i+1)+y3d(0)
					countn=countn+1
				}
				//print countn,numsyn
			}		
			skip=skip+1
            if(skip==numdendskip){skip=0}
        }
		numsyn=countn
		//print countn
		vshift_ca_spike=0//-10
		TotalPump_cad=1e-2
		TotalRGB_cad=0.0001
	}
//end proc init
endtemplate DSGC
//objref cc
//cc=new DSGC()
//load_file("nrngui.hoc")


Loading data, please wait...