DBS of a multi-compartment model of subthalamic nucleus projection neurons (Miocinovic et al. 2006)

 Download zip file   Auto-launch 
Help downloading and running models
Accession:151460
We built a comprehensive computational model of subthalamic nucleus (STN) deep brain stimulation (DBS) in parkinsonian macaques to study the effects of stimulation in a controlled environment. The model consisted of three fundamental components: 1) a three-dimensional (3D) anatomical model of the macaque basal ganglia, 2) a finite element model of the DBS electrode and electric field transmitted to the tissue medium, and 3) multicompartment biophysical models of STN projection neurons, GPi fibers of passage, and internal capsule fibers of passage. Populations of neurons were positioned within the 3D anatomical model. Neurons were stimulated with electrode positions and stimulation parameters defined as clinically effective in two parkinsonian monkeys. The model predicted axonal activation of STN neurons and GPi fibers during STN DBS. Model predictions regarding the degree of GPi fiber activation matched well with experimental recordings in both monkeys.
Reference:
1 . Miocinovic S, Parent M, Butson CR, Hahn PJ, Russo GS, Vitek JL, McIntyre CC (2006) Computational analysis of subthalamic nucleus and lenticular fasciculus activation during therapeutic deep brain stimulation. J Neurophysiol 96:1569-80 [PubMed]
Model Information (Click on a link to find other models with that property)
Model Type: Neuron or other electrically excitable cell;
Brain Region(s)/Organism:
Cell Type(s): Subthalamus nucleus projection neuron;
Channel(s): I K; I K,leak; I K,Ca; I Sodium; I Calcium; I Na, leak;
Gap Junctions:
Receptor(s): GabaA;
Gene(s):
Transmitter(s): Gaba;
Simulation Environment: NEURON;
Model Concept(s): Action Potential Initiation; Action Potentials; Parkinson's; Deep brain stimulation;
Implementer(s): McIntyre, Cameron C. [ccm4 at case.edu]; Hahn, Philip [hahnp at ccf.org]; Miocinovic, Svjetlana [svjetlana.miocinovic at utsouthwestern.edu]; Butson, Chris [cbutson at mcw.edu];
Search NeuronDB for information about:  GabaA; I K; I K,leak; I K,Ca; I Sodium; I Calcium; I Na, leak; Gaba;
/
MiocinovicEtAl2006
fem_fourier_waveform
fem_voltage
README.html
ampa.mod
AXNODE75.mod
Cacum.mod
CaT.mod
gabaa.mod
HVA.mod
Ih.mod
KDR.mod
Kv31.mod
myions.mod *
Na.mod
NaL.mod
PARAK75.mod
sKCa.mod
STh.mod
train.mod
ghk.inc
hocload.tmp
init.hoc
main.hoc
mosinit.hoc *
n17_full9_fem_type1RD_Gillies.hoc
n17_full9_fem_type3RD_Gillies.hoc
n17_full9_fem_type4RD_Gillies.hoc
run.sh
screenshot.png
small_run.hoc
STN.hoc
STN_dbs_fem_syn.ses
                            
//Svjetlana Miocinovic
//STN neuron (3D dendritic tree, no axon)
//NEURON 5.5 (Windows version)
//March 2004

//Original geometry transformed with following matrix:
//[-0.0196   -0.9996    0.0251         0
//    0.0191    0.0247    0.9994         0
//    0.9996   -0.0201   -0.0186         0
//   -4.3981*1000    3.5506*1000   -1.6118*1000    1.0000] must multiply by 1000 because coords in .hoc file are in 
//                                                           micrometers and M was calculated from Rhino files in mm
// Vt = Vo*M  (Vt is new vertices, Vo are original vertices, M is transformation matrix)

//Variables//
proc model_globals(){

	celsius=36	//degC//
	v_init=-60	//mV//

//topological parameters//
	dendelements=288
	somaelements = 3
	iselements=1   //initial segment elements
	axonnodes=60		
	paranodes1=(axonnodes-1)*2
	paranodes2=(axonnodes-1)*2
	axoninter=(axonnodes-1)*3
	total=dendelements+somaelements+iselements+axonnodes+paranodes1+paranodes2+axoninter	 
//morphological parameters//
	fiberD=2   //fiber diameter
	paralength1=3  //MYSA length
	nodelength=1
	space_p1=0.002  
	space_p2=0.004
	space_i=0.004
//electrical parameters//	
	rhoa=0.7e6 //Ohm-um//
	mycm=0.1 //uF/cm2/lamella membrane//
	mygm=0.001 //S/cm2/lamella membrane//	
}
model_globals ()

proc dependent_var() {
	if (fiberD==1) {axonD=0.8 nodeD=0.7 paraD1=0.7 paraD2=0.8 deltax=200 paralength2=10 nl=20}
	if (fiberD==2) {axonD=1.6 nodeD=1.4 paraD1=1.4 paraD2=1.6 deltax=200 paralength2=10 nl=30}

	Rpn0=(rhoa*.01)/(PI*((((nodeD/2)+space_p1)^2)-((nodeD/2)^2)))
	Rpn1=(rhoa*.01)/(PI*((((paraD1/2)+space_p1)^2)-((paraD1/2)^2)))
	Rpn2=(rhoa*.01)/(PI*((((paraD2/2)+space_p2)^2)-((paraD2/2)^2)))
	Rpx=(rhoa*.01)/(PI*((((axonD/2)+space_i)^2)-((axonD/2)^2)))

	interlength=(deltax-nodelength-(2*paralength1)-(2*paralength2))/6
}
dependent_var()

objref s[total] //list of all compartments

//----------------------------------------------------------------------------------------
//change parameters here:

//insert myions (used to be set in STN_multi.hoc)									
//Extracell. ion concentrations taken from Bevan,Wilson 1999 paper (slice bathing solution)									
//Intracell. ion concentrations are typical mammalian values (from Johnston & Wu, 1999 via NEUORN tutorial)
	cai0_ca_ion = 1e-4 	//from Gillies mod file  //was 2e-4		
	cao0_ca_ion = 2   			
	ki0_k_ion = 140 
	ko0_k_ion = 2.5 	
	nao0_na_ion = 126 	
	nai0_na_ion = 10 
	
//params for soma and init segment 
//insert Cacum	
//insert CaT
	my_gcaT_CaT = 0 //0.001 (mho/cm2)
//insert HVA
	my_gcaL_HVA = 9.5e-4 //0.002 (mho/cm2)
	my_gcaN_HVA = 1.15e-3 //0.012 (mho/cm2)
//insert sKCa	
	my_gk_sKCa = 1.8*6.84e-5 //0.0001 (mho/cm2)
//insert KDR	
	my_gk_KDR = 3.84e-3 //3.842910637e-03 (mho/cm2)
//insert Kv31
	my_gk_Kv31 = 1.2*1.34e-2 //0.015 (mho/cm2)
//insert Na	
	my_gna_Na = 0.75*1.48e-2 //1.0e-7 (mho/cm2)
//insert NaL
	my_gna_NaL = 0.75*1.11e-5 //0.81e-5 (mho/cm2)	
//insert Ih
	my_gk_Ih = 1.01e-3 //0.001 (mho/cm2)	
//insert STh	
	my_gpas_STh = 7.84112e-05 //7.84112e-05 (mho/cm2) <0,1e9>	
//-------------------------------------------------------------------------------------------------
create soma[somaelements], dend[dendelements], initseg[iselements]
create node[axonnodes], MYSA[paranodes1], FLUT[paranodes2], STIN[axoninter]
create electrode 
access soma[1]

proc initcell(){
	for i=0,somaelements-1 {
		soma[i] {
			s[i] = new SectionRef()
			nseg = 1
			Ra = 150.2 	//Ohm-cm//  //from Gillies 2005
			cm = 1

			insert myions  //dummy mechanism to set up ion concentrations for na and k		
			insert Cacum	
				cai0_Cacum = cai0_ca_ion
			insert CaT
				gcaT_CaT = my_gcaT_CaT
			insert HVA
				gcaL_HVA = my_gcaL_HVA
				gcaN_HVA = my_gcaN_HVA
			insert sKCa	
				gk_sKCa = my_gk_sKCa
			insert KDR	
				gk_KDR = my_gk_KDR
			insert Kv31
				gk_Kv31 = my_gk_Kv31
			insert Na	
				gna_Na = my_gna_Na
			insert NaL
				gna_NaL = my_gna_NaL	
			insert Ih
				gk_Ih = my_gk_Ih
			insert STh	
				gpas_STh = my_gpas_STh			
		
			insert extracellular xraxial=1e+09 xg=1e+09 xc=0
		}
	}
	for i=0,dendelements-1 {
		dend[i] {
			s[i+somaelements] = new SectionRef()
			nseg = 1
			Ra = 150.2 	//Ohm-cm//  //from Gillies 2005
			cm = 1

			//conductances for dendrites set at the end of file
			insert myions  //dummy mechanism to set up ion concentrations for na and k		
			insert Cacum	
				cai0_Cacum = cai0_ca_ion
			insert CaT
			insert HVA
			insert sKCa	//CHANGED AT THE END 1.8*
			insert KDR	
			insert Kv31
			insert Na	
				gna_Na = 0.65*1e-7
			insert NaL
				gna_NaL = 0.65*8.1e-6
			insert Ih
			insert STh	
				gpas_STh = my_gpas_STh			

			insert extracellular xraxial=1e+09 xg=1e+09 xc=0
		}
	}
	for i=0,iselements-1 {
		initseg[i] {
			s[i+dendelements+somaelements] = new SectionRef()
			nseg = 1
			Ra = 150.2 	//Ohm-cm//  //from Gillies 2005
			cm = 1

			insert myions
			insert myions  //dummy mechanism to set up ion concentrations for na and k		
			insert Cacum	
				cai0_Cacum = cai0_ca_ion
			insert CaT
				gcaT_CaT = my_gcaT_CaT
			insert HVA
				gcaL_HVA = my_gcaL_HVA
				gcaN_HVA = my_gcaN_HVA
			insert sKCa	
				gk_sKCa = my_gk_sKCa
			insert KDR	
				gk_KDR = my_gk_KDR
			insert Kv31
				gk_Kv31 = my_gk_Kv31
			insert Na	
				gna_Na = my_gna_Na
			insert NaL
				gna_NaL = my_gna_NaL	
			insert Ih
				gk_Ih = my_gk_Ih
			insert STh	
				gpas_STh = my_gpas_STh			

			insert extracellular xraxial=1e+09 xg=1e+09 xc=0
		}
	}
	for i=0,axonnodes-2 {
		node[i]{
			s[i+dendelements+somaelements+iselements] = new SectionRef()					
			nseg=1
			Ra=rhoa/10000
			cm=2
			insert axnode75	
				gnabar_axnode75 = 2.0 //3  
				gnapbar_axnode75 = 0.05 
				gkbar_axnode75 = 0.07
				gl_axnode75 = 0.005
				ek_axnode75 = -85 //-95
				ena_axnode75 = 55 //45
				el_axnode75 = -60 
				vshift_axnode75 = 15 //10   //rest potential should be -80+vshift
				vtraub_axnode75 = -80 //-80

			insert extracellular xraxial=Rpn0 xg=1e10 xc=0
		}
	}
	node[axonnodes-1] { 
		s[dendelements+somaelements+iselements+axonnodes-1] = new SectionRef()
		nseg=1
		Ra=rhoa/10000
		cm=2
		insert pas
			g_pas = 0.0001
			e_pas = -65 
		insert extracellular xraxial=Rpn0 xg=1e10 xc=0
	}
	for i=0, paranodes1-1 {
		MYSA[i]{
			s[i+dendelements+somaelements+iselements+axonnodes] = new SectionRef()
			nseg=1
			Ra=rhoa/10000
			cm=2
			insert pas
				g_pas=0.0001	
				e_pas=-65
			insert extracellular xraxial=Rpn1 xg=mygm/(nl*2) xc=mycm/(nl*2)
			}
	}
	for i=0, paranodes2-1 {
		FLUT[i]{
			s[i+dendelements+somaelements+iselements+axonnodes+paranodes1] = new SectionRef()
			nseg=1
			Ra=rhoa/10000
			cm=2
			insert parak75
				gkbar_parak75 = 0.02 //0.02
				ek_parak75 = -85 //-95
				vshift_parak75 = 15 //10
			insert pas
				g_pas=0.0001		
				e_pas=-60
			insert extracellular xraxial=Rpn2 xg=mygm/(nl*2) xc=mycm/(nl*2)
		}
	}
	for i=0, axoninter-1 {
		STIN[i]{
			s[i+dendelements+somaelements+iselements+axonnodes+paranodes1+paranodes2] = new SectionRef()
			nseg=1
			Ra=rhoa/10000
			cm=2
			insert pas
				g_pas=0.0001
				e_pas=-65
			insert extracellular xraxial=Rpx xg=mygm/(nl*2) xc=mycm/(nl*2)
		}
	}
	electrode {
		L=1
		d=1
	}
}

connect soma[1](0), soma[0](1)  
connect soma[2](0), soma[1](1)

connect dend[0](0), soma[0](0)
connect dend[1](0), dend[0](1)
connect dend[2](0), dend[1](1)
connect dend[3](0), dend[2](1)
connect dend[4](0), dend[3](1)
connect dend[5](0), dend[4](1)
connect dend[6](0), dend[5](1)
connect dend[7](0), dend[6](1)
connect dend[8](0), dend[7](1)
connect dend[9](0), dend[8](1)
connect dend[10](0), dend[9](1)
connect dend[11](0), dend[10](1)
connect dend[12](0), dend[11](1)
connect dend[13](0), dend[12](1)
connect dend[14](0), dend[13](1)
connect dend[15](0), dend[14](1)
connect dend[16](0), dend[15](1)
connect dend[17](0), dend[16](1)
connect dend[18](0), dend[17](1)
connect dend[19](0), dend[1](1)
connect dend[20](0), dend[19](1)
connect dend[21](0), dend[20](1)
connect dend[22](0), dend[21](1)
connect dend[23](0), dend[22](1)
connect dend[24](0), dend[23](1)
connect dend[25](0), dend[24](1)
connect dend[26](0), dend[25](1)
connect dend[27](0), dend[26](1)
connect dend[28](0), dend[27](1)
connect dend[29](0), dend[28](1)
connect dend[30](0), dend[29](1)
connect dend[31](0), dend[30](1)
connect dend[32](0), dend[31](1)
connect dend[33](0), dend[19](1)
connect dend[34](0), dend[33](1)
connect dend[35](0), dend[34](1)
connect dend[36](0), dend[35](1)
connect dend[37](0), dend[36](1)
connect dend[38](0), dend[37](1)
connect dend[39](0), dend[38](1)
connect dend[40](0), dend[0](1)
connect dend[41](0), dend[40](1)
connect dend[42](0), dend[41](1)
connect dend[43](0), dend[42](1)
connect dend[44](0), dend[43](1)
connect dend[45](0), dend[44](1)
connect dend[46](0), dend[45](1)
connect dend[47](0), dend[46](1)
connect dend[48](0), dend[47](1)
connect dend[49](0), dend[48](1)
connect dend[50](0), dend[40](1)
connect dend[51](0), dend[50](1)
connect dend[52](0), dend[51](1)
connect dend[53](0), dend[52](1)
connect dend[54](0), dend[53](1)
connect dend[55](0), dend[54](1)
connect dend[56](0), dend[55](1)
connect dend[57](0), dend[56](1)
connect dend[58](0), dend[57](1)
connect dend[59](0), dend[58](1)
connect dend[60](0), dend[59](1)
connect dend[61](0), dend[60](1)
connect dend[62](0), dend[50](1)
connect dend[63](0), dend[62](1)
connect dend[64](0), dend[63](1)
connect dend[65](0), dend[64](1)
connect dend[66](0), dend[65](1)
connect dend[67](0), dend[66](1)
connect dend[68](0), dend[67](1)
connect dend[69](0), dend[68](1)
connect dend[70](0), dend[68](1)
connect dend[71](0), dend[70](1)
connect dend[72](0), dend[71](1)
connect dend[73](0), dend[72](1)
connect dend[74](0), dend[73](1)
connect dend[75](0), dend[74](1)
connect dend[76](0), dend[75](1)
connect dend[77](0), soma[2](1)
connect dend[78](0), dend[77](1)
connect dend[79](0), dend[78](1)
connect dend[80](0), dend[79](1)
connect dend[81](0), dend[80](1)
connect dend[82](0), dend[81](1)
connect dend[83](0), dend[82](1)
connect dend[84](0), dend[83](1)
connect dend[85](0), dend[84](1)
connect dend[86](0), dend[85](1)
connect dend[87](0), dend[77](1)
connect dend[88](0), dend[87](1)
connect dend[89](0), dend[88](1)
connect dend[90](0), dend[89](1)
connect dend[91](0), dend[90](1)
connect dend[92](0), dend[91](1)
connect dend[93](0), dend[92](1)
connect dend[94](0), dend[93](1)
connect dend[95](0), dend[94](1)
connect dend[96](0), dend[95](1)
connect dend[97](0), dend[96](1)
connect dend[98](0), dend[97](1)
connect dend[99](0), dend[87](1)
connect dend[100](0), dend[99](1)
connect dend[101](0), dend[100](1)
connect dend[102](0), dend[101](1)
connect dend[103](0), dend[102](1)
connect dend[104](0), dend[103](1)
connect dend[105](0), dend[104](1)
connect dend[106](0), dend[105](1)
connect dend[107](0), dend[106](1)
connect dend[108](0), dend[107](1)
connect dend[109](0), dend[108](1)
connect dend[110](0), dend[109](1)
connect dend[111](0), dend[110](1)
connect dend[112](0), dend[111](1)
connect dend[113](0), dend[105](1)
connect dend[114](0), dend[113](1)
connect dend[115](0), dend[114](1)
connect dend[116](0), dend[115](1)
connect dend[117](0), dend[116](1)
connect dend[118](0), dend[117](1)
connect dend[119](0), dend[118](1)
connect dend[120](0), soma[2](1)
connect dend[121](0), dend[120](1)
connect dend[122](0), dend[121](1)
connect dend[123](0), dend[122](1)
connect dend[124](0), dend[123](1)
connect dend[125](0), dend[124](1)
connect dend[126](0), dend[125](1)
connect dend[127](0), dend[126](1)
connect dend[128](0), dend[127](1)
connect dend[129](0), dend[128](1)
connect dend[130](0), dend[129](1)
connect dend[131](0), dend[130](1)
connect dend[132](0), dend[124](1)
connect dend[133](0), dend[132](1)
connect dend[134](0), dend[133](1)
connect dend[135](0), dend[134](1)
connect dend[136](0), dend[135](1)
connect dend[137](0), dend[136](1)
connect dend[138](0), dend[137](1)
connect dend[139](0), dend[138](1)
connect dend[140](0), dend[139](1)
connect dend[141](0), dend[121](1)
connect dend[142](0), dend[141](1)
connect dend[143](0), dend[142](1)
connect dend[144](0), dend[143](1)
connect dend[145](0), dend[144](1)
connect dend[146](0), dend[145](1)
connect dend[147](0), dend[146](1)
connect dend[148](0), dend[147](1)
connect dend[149](0), dend[148](1)
connect dend[150](0), dend[149](1)
connect dend[151](0), dend[150](1)
connect dend[152](0), dend[151](1)
connect dend[153](0), dend[152](1)
connect dend[154](0), dend[153](1)
connect dend[155](0), dend[154](1)
connect dend[156](0), dend[120](1)
connect dend[157](0), dend[156](1)
connect dend[158](0), dend[157](1)
connect dend[159](0), dend[158](1)
connect dend[160](0), dend[159](1)
connect dend[161](0), dend[160](1)
connect dend[162](0), dend[161](1)
connect dend[163](0), dend[162](1)
connect dend[164](0), dend[163](1)
connect dend[165](0), dend[164](1)
connect dend[166](0), dend[165](1)
connect dend[167](0), soma[2](1)
connect dend[168](0), dend[167](1)
connect dend[169](0), dend[168](1)
connect dend[170](0), dend[169](1)
connect dend[171](0), dend[170](1)
connect dend[172](0), dend[171](1)
connect dend[173](0), dend[172](1)
connect dend[174](0), dend[173](1)
connect dend[175](0), dend[174](1)
connect dend[176](0), dend[175](1)
connect dend[177](0), dend[173](1)
connect dend[178](0), dend[177](1)
connect dend[179](0), dend[178](1)
connect dend[180](0), dend[172](1)
connect dend[181](0), dend[169](1)
connect dend[182](0), dend[181](1)
connect dend[183](0), dend[182](1)
connect dend[184](0), dend[183](1)
connect dend[185](0), dend[184](1)
connect dend[186](0), dend[185](1)
connect dend[187](0), dend[186](1)
connect dend[188](0), dend[187](1)
connect dend[189](0), dend[188](1)
connect dend[190](0), dend[168](1)
connect dend[191](0), dend[190](1)
connect dend[192](0), dend[191](1)
connect dend[193](0), dend[192](1)
connect dend[194](0), dend[193](1)
connect dend[195](0), dend[167](1)
connect dend[196](0), dend[195](1)
connect dend[197](0), dend[196](1)
connect dend[198](0), dend[197](1)
connect dend[199](0), dend[198](1)
connect dend[200](0), dend[199](1)
connect dend[201](0), dend[200](1)
connect dend[202](0), dend[198](1)
connect dend[203](0), dend[202](1)
connect dend[204](0), dend[203](1)
connect dend[205](0), dend[204](1)
connect dend[206](0), dend[205](1)
connect dend[207](0), dend[197](1)
connect dend[208](0), dend[207](1)
connect dend[209](0), dend[208](1)
connect dend[210](0), dend[209](1)
connect dend[211](0), dend[210](1)
connect dend[212](0), dend[211](1)
connect dend[213](0), dend[212](1)
connect dend[214](0), dend[213](1)
connect dend[215](0), dend[214](1)
connect dend[216](0), dend[196](1)
connect dend[217](0), dend[216](1)
connect dend[218](0), dend[217](1)
connect dend[219](0), dend[218](1)
connect dend[220](0), dend[219](1)
connect dend[221](0), dend[220](1)
connect dend[222](0), dend[221](1)
connect dend[223](0), dend[222](1)
connect dend[224](0), dend[223](1)
connect dend[225](0), dend[224](1)
connect dend[226](0), dend[220](1)
connect dend[227](0), dend[226](1)
connect dend[228](0), dend[227](1)
connect dend[229](0), dend[228](1)
connect dend[230](0), dend[229](1)
connect dend[231](0), dend[230](1)
connect dend[232](0), dend[231](1)
connect dend[233](0), dend[195](1)
connect dend[234](0), dend[233](1)
connect dend[235](0), dend[234](1)
connect dend[236](0), dend[235](1)
connect dend[237](0), dend[236](1)
connect dend[238](0), dend[237](1)
connect dend[239](0), dend[238](1)
connect dend[240](0), soma[2](1)
connect dend[241](0), dend[240](1)
connect dend[242](0), dend[241](1)
connect dend[243](0), dend[242](1)
connect dend[244](0), dend[243](1)
connect dend[245](0), dend[244](1)
connect dend[246](0), dend[245](1)
connect dend[247](0), dend[246](1)
connect dend[248](0), dend[247](1)
connect dend[249](0), dend[248](1)
connect dend[250](0), dend[244](1)
connect dend[251](0), dend[250](1)
connect dend[252](0), dend[251](1)
connect dend[253](0), dend[252](1)
connect dend[254](0), dend[250](1)
connect dend[255](0), dend[254](1)
connect dend[256](0), dend[255](1)
connect dend[257](0), dend[256](1)
connect dend[258](0), dend[257](1)
connect dend[259](0), dend[258](1)
connect dend[260](0), dend[259](1)
connect dend[261](0), soma[0](0)
connect dend[262](0), dend[261](1)
connect dend[263](0), dend[262](1)
connect dend[264](0), dend[263](1)
connect dend[265](0), dend[264](1)
connect dend[266](0), dend[265](1)
connect dend[267](0), dend[266](1)
connect dend[268](0), dend[267](1)
connect dend[269](0), dend[268](1)
connect dend[270](0), dend[269](1)
connect dend[271](0), dend[270](1)
connect dend[272](0), soma[0](0)
connect dend[273](0), dend[272](1)
connect dend[274](0), dend[273](1)
connect dend[275](0), dend[274](1)
connect dend[276](0), dend[275](1)
connect dend[277](0), soma[0](0)
connect dend[278](0), dend[277](1)
connect dend[279](0), dend[278](1)
connect dend[280](0), dend[279](1)
connect dend[281](0), dend[280](1)
connect dend[282](0), dend[281](1)
connect dend[283](0), dend[281](1)
connect dend[284](0), dend[280](1)
connect dend[285](0), dend[277](1)
connect dend[286](0), dend[285](1)
connect dend[287](0), dend[286](1)

connect initseg[0](0), soma[2](1)

connect node[0](0), initseg[0](1)
connect MYSA[0](0), node[0](1)
connect FLUT[0](0), MYSA[0](1)
connect STIN[0](0), FLUT[0](1)
connect STIN[1](0), STIN[0](1)
connect STIN[2](0), STIN[1](1)	
connect FLUT[1](0), STIN[2](1)
connect MYSA[1](0), FLUT[1](1)
connect node[1](0), MYSA[1](1)
for i=1, axonnodes-2 {
	connect MYSA[2*i](0), node[i](1)
	connect FLUT[2*i](0), MYSA[2*i](1)
	connect STIN[3*i](0), FLUT[2*i](1)
	connect STIN[3*i+1](0), STIN[3*i](1)
	connect STIN[3*i+2](0), STIN[3*i+1](1)
	connect FLUT[2*i+1](0), STIN[3*i+2](1)
	connect MYSA[2*i+1](0), FLUT[2*i+1](1)
	connect node[i+1](0), MYSA[2*i+1](1)	
}


//I made up coords for soma 
//If changing them, make sure to change them at all dendrites and init seg. that connect to soma 

//soma diam = 12.5um, length = 18.5um, area = 733  same as in n17_reduced2_axon4EX.hoc
//soma {
//   pt3dadd(-1708.151,-615.483,4.69,14.157)
//   pt3dadd(-1690.786,-608.962,4.076,10.916)
//}

//area 518um^2
soma[0]{
    pt3dadd(-4371.69,5242.77,-2269.88,2) 
    pt3dadd(-4371.73,5241.93,-2269.53,18) 
}
soma[1]{
    pt3dadd(-4371.73,5241.93,-2269.53,18) 
    pt3dadd(-4372.48,5226.49,-2263.26,18) 
}
soma[2]{
    pt3dadd(-4372.48,5226.49,-2263.26,18) 
    pt3dadd(-4372.52,5225.59,-2262.91,2) 
}


//dend0
dend[0] {
    pt3dadd(-4371.69,5242.77,-2269.88,2)
    pt3dadd(-4369.79,5249.08,-2269.49,1.6)
    pt3dadd(-4369.67,5257.1,-2271.75,1.6)
}
//dend1
dend[1] {
    pt3dadd(-4369.67,5257.1,-2271.75,1.6)
    pt3dadd(-4372.02,5261.42,-2268.68,1.6)
    pt3dadd(-4384.96,5265.7,-2267.12,1.6)
    pt3dadd(-4392.13,5272.06,-2264.94,1.6)
    pt3dadd(-4396.11,5275.43,-2262.57,1.6)
    pt3dadd(-4397.32,5278.52,-2259.5,0.92)    //diameter changed to match dend19(0)
    //pt3dadd(-4397.12,5277.79,-2256.09,0.92)  //removed to match dend19(0)
}
//dend2
dend[2] {
    pt3dadd(-4397.32,5278.52,-2259.5,0.92)    //added to match dend1(1)
    pt3dadd(-4402.87,5284.14,-2249.04,0.92)
}
dend[3] {
    pt3dadd(-4402.87,5284.14,-2249.04,0.92)
    pt3dadd(-4408.27,5289.13,-2245.31,0.92)
    pt3dadd(-4410.5,5291.38,-2240.88,0.92) //was 1.232
    pt3dadd(-4416.41,5294.58,-2231.63,0.92) //was 1.232
    pt3dadd(-4422.07,5293.61,-2226.99,0.92) //was 1.232
}
dend[4] {
    pt3dadd(-4422.07,5293.61,-2226.99,0.92) //was 1.232
    pt3dadd(-4424.55,5297.45,-2222.45,0.92) //was 1.232
    pt3dadd(-4425.59,5297.74,-2215.82,0.92) //was 1.232
    pt3dadd(-4425.42,5299.68,-2209.08,0.92)
}
dend[5] {
    pt3dadd(-4425.42,5299.68,-2209.08,0.92)
    pt3dadd(-4437.24,5303.17,-2201.59,0.92)
    pt3dadd(-4436.96,5301.25,-2192.9,0.92)
    pt3dadd(-4436.78,5303.74,-2185.84,0.92)
    pt3dadd(-4448.28,5306.16,-2175.84,0.92)
}
dend[6] {
    pt3dadd(-4448.28,5306.16,-2175.84,0.92)
    pt3dadd(-4450.03,5310.13,-2171.16,0.92)
    pt3dadd(-4458.4,5310.58,-2164.53,0.92)
    pt3dadd(-4468.25,5314.07,-2154.27,0.92)
}
dend[7] {
    pt3dadd(-4468.25,5314.07,-2154.27,0.92)
    pt3dadd(-4475.98,5318.21,-2140.66,0.92)
    pt3dadd(-4485.21,5320.65,-2135.49,0.92)
    pt3dadd(-4493.93,5318.09,-2128.05,0.92)
    pt3dadd(-4502.34,5322.52,-2119.95,0.92)
}
dend[8] {
    pt3dadd(-4502.34,5322.52,-2119.95,0.92)
    pt3dadd(-4509.76,5329.25,-2116.07,0.92)
    pt3dadd(-4509.45,5329.73,-2099.94,0.92)
    pt3dadd(-4517.43,5328.57,-2094.52,0.92)
}
dend[9] {
    pt3dadd(-4517.43,5328.57,-2094.52,0.92)
    pt3dadd(-4517.36,5331.08,-2093.46,0.92)
    pt3dadd(-4517.09,5337.26,-2085.19,0.92)
    pt3dadd(-4528.84,5343.28,-2076.99,0.92)
    pt3dadd(-4538.95,5345.08,-2063.05,0.92)
}
dend[10] {
    pt3dadd(-4538.95,5345.08,-2063.05,0.92)
    pt3dadd(-4545.45,5349.62,-2054.71,0.92)
    pt3dadd(-4553.25,5351.29,-2042.53,0.92)
    pt3dadd(-4562.27,5355.79,-2035.87,0.92)
}
dend[11] {  
    pt3dadd(-4562.27,5355.79,-2035.87,0.92)
    pt3dadd(-4565.74,5355.84,-2032.86,0.92)
    pt3dadd(-4574.47,5361.15,-2027.11,0.92)
    pt3dadd(-4574.77,5364.39,-2015.18,0.92)
    pt3dadd(-4588.96,5373.19,-2007.42,0.92)
}
dend[12] { 
    pt3dadd(-4588.96,5373.19,-2007.42,0.92)
    pt3dadd(-4613.88,5373.42,-1999.13,0.92)
    pt3dadd(-4633.37,5373.49,-1990.47,0.92)
    pt3dadd(-4633.32,5371.53,-1985.83,0.92)
}
dend[13] { 
    pt3dadd(-4633.32,5371.53,-1985.83,0.92)
    pt3dadd(-4646.43,5376.56,-1978.48,0.92)
    pt3dadd(-4662.57,5380.47,-1967.82,0.92)
    pt3dadd(-4677.01,5383.3,-1958.79,0.92)
    pt3dadd(-4690.81,5388.54,-1949.72,0.92)
}
dend[14] {
    pt3dadd(-4690.81,5388.54,-1949.72,0.92)
    pt3dadd(-4700.95,5395.73,-1942.85,0.92)
    pt3dadd(-4702.48,5405.47,-1933.51,0.92)
    pt3dadd(-4702.12,5413.5,-1930.5,0.92)
}
dend[15] {
    pt3dadd(-4702.12,5413.5,-1930.5,0.92)
    pt3dadd(-4720.09,5421.61,-1927.85,0.92)
    pt3dadd(-4733.01,5427.49,-1919.85,0.92)
    pt3dadd(-4742.96,5431.71,-1915.08,0.92)
    pt3dadd(-4758.65,5443.72,-1904.33,0.92)
}
dend[16] {
    pt3dadd(-4758.65,5443.72,-1904.33,0.92)
    pt3dadd(-4762.66,5450.8,-1898.94,0.616)
    pt3dadd(-4773.72,5458.32,-1894.54,0.616)
    pt3dadd(-4775.44,5463.78,-1890.78,0.616)
}
dend[17] {
    pt3dadd(-4775.44,5463.78,-1890.78,0.616)
    pt3dadd(-4773.59,5464.77,-1886.97,0.616)
    pt3dadd(-4773.3,5466.73,-1881.31,0.616)
    pt3dadd(-4791.5,5479.16,-1872.07,0.616)
    pt3dadd(-4831.63,5503.63,-1848.8,0.616) //was 0.624
}
dend[18] {
    pt3dadd(-4831.63,5503.63,-1848.8,0.616) //was 0.624
    pt3dadd(-4850.45,5512.74,-1845.54,0.616) //was 0.92
    pt3dadd(-4862.41,5521.16,-1842.97,0.616)
    pt3dadd(-4884.93,5531.12,-1834.85,0.616)
    pt3dadd(-4895.09,5542.65,-1826.22,0.616)
    pt3dadd(-4894.76,5551.32,-1818.27,0.616)
}
//dend3
dend[19] {
    pt3dadd(-4397.32,5278.52,-2259.5,0.92) //was 1.6
    pt3dadd(-4404.64,5285.24,-2258.43,0.92) //was 1.6
    pt3dadd(-4413.03,5290.52,-2257.82,0.92) //was 1.6
    pt3dadd(-4414.18,5295.43,-2254.16,0.92) //was 1.6
}
//dend4
dend[20] {
    pt3dadd(-4414.18,5295.43,-2254.16,0.92) //was 1.6
    pt3dadd(-4414.07,5295.57,-2248.42,0.92) //was 1.536
    pt3dadd(-4422.42,5300.37,-2245.11,0.92) //was 1.232
}
dend[21]{ 
    pt3dadd(-4422.42,5300.37,-2245.11,0.92) //was 1.232
    pt3dadd(-4427.91,5300.98,-2241.59,0.92)
    pt3dadd(-4429.02,5302.96,-2240.11,0.92)
    pt3dadd(-4428.68,5306.87,-2234.33,0.92)
    pt3dadd(-4453.02,5307.63,-2227.41,0.92)
}
dend[22]{
    pt3dadd(-4453.02,5307.63,-2227.41,0.92)
    pt3dadd(-4466.19,5307.27,-2217.32,0.92)
    pt3dadd(-4476.63,5307.11,-2211.23,0.92)
    pt3dadd(-4480.32,5309.17,-2206.63,0.92)
}
dend[23]{
    pt3dadd(-4480.32,5309.17,-2206.63,0.92)
    pt3dadd(-4480.28,5305.71,-2201.14,0.92)
    pt3dadd(-4488.72,5307.32,-2191.4,0.92)
    pt3dadd(-4500.19,5305.93,-2183.61,0.92)
    pt3dadd(-4511.19,5310.7,-2181,0.92)
}
dend[24]{
    pt3dadd(-4511.19,5310.7,-2181,0.92)
    pt3dadd(-4519.97,5316.63,-2178.51,0.92)
    pt3dadd(-4519.85,5319.27,-2175.01,0.92)
    pt3dadd(-4519.75,5323.46,-2174.29,0.92)
}
dend[25]{
    pt3dadd(-4519.75,5323.46,-2174.29,0.92)
    pt3dadd(-4519.73,5327.86,-2177.7,0.92)
    pt3dadd(-4531.35,5333.91,-2178.34,0.92)
    pt3dadd(-4553.74,5339.4,-2174.06,0.92)
    pt3dadd(-4568.3,5338.65,-2167.5,0.92)
}
dend[26]{
    pt3dadd(-4568.3,5338.65,-2167.5,0.92)
    pt3dadd(-4580.32,5340.73,-2161.84,0.92)
    pt3dadd(-4583.09,5348.13,-2153.56,0.92)
    pt3dadd(-4582.96,5345.63,-2151.31,0.92)
}
dend[27]{
    pt3dadd(-4582.96,5345.63,-2151.31,0.92)
    pt3dadd(-4588.3,5342.57,-2151.37,0.92)
    pt3dadd(-4614.13,5344.06,-2146.15,0.92)
    pt3dadd(-4638.26,5349.54,-2140.94,0.92)
    pt3dadd(-4638.09,5354.97,-2137.67,0.92)
}
dend[28]{ 
    pt3dadd(-4638.09,5354.97,-2137.67,0.92)
    pt3dadd(-4637.86,5362.07,-2132.94,0.92) //was 1.232
    pt3dadd(-4691.37,5376.37,-2124.33,0.92) //was 1.232
    pt3dadd(-4701.02,5386.03,-2117.55,0.92) //was 1.232
}
dend[29]{
    pt3dadd(-4701.02,5386.03,-2117.55,0.92) //was 1.232
    pt3dadd(-4731.06,5395.35,-2110.6,0.92) //was 1.232
    pt3dadd(-4748.99,5400.09,-2102.64,0.92) //was 1.232
    pt3dadd(-4760.48,5407.94,-2097.94,0.92) //was 1.232
    pt3dadd(-4784.16,5417.08,-2087.91,0.92) //was 1.232
}
dend[30]{
    pt3dadd(-4784.16,5417.08,-2087.91,0.92) //was 1.232
    pt3dadd(-4809.14,5429.3,-2080.23,0.92) //was 1.232
    pt3dadd(-4814.18,5436.49,-2067.75,0.92) //was 1.232
    pt3dadd(-4813.81,5445.9,-2065.69,0.92) //was 1.232
}
dend[31]{
    pt3dadd(-4813.81,5445.9,-2065.69,0.92) //was 1.232
    pt3dadd(-4850.71,5451.36,-2060.95,0.92) //was 1.232
    pt3dadd(-4861.87,5455.45,-2058.44,0.92)
    pt3dadd(-4872.2,5462.13,-2053.09,0.92)
    pt3dadd(-4881.66,5469.59,-2049.95,0.92)
}
dend[32]{
    pt3dadd(-4881.66,5469.59,-2049.95,0.92)
    pt3dadd(-4881.52,5471.23,-2044.13,0.92)
    pt3dadd(-4881.57,5473.44,-2041.35,0.92)
    pt3dadd(-4900.33,5479.42,-2039.54,0.616)
    pt3dadd(-4932.58,5482.75,-2034.5,0.616)
    pt3dadd(-4942.61,5484.48,-2032.06,0.616)
}
//dend5
dend[33] {
    pt3dadd(-4414.18,5295.43,-2254.16,0.92) //was 1.6
    pt3dadd(-4418.37,5300.13,-2255.82,0.92) //was 1.536
    pt3dadd(-4418.22,5305.98,-2253.9,0.92) //was 1.536
    pt3dadd(-4423.27,5310.82,-2254.69,0.92) //was 1.536
}
dend[34]{
    pt3dadd(-4423.27,5310.82,-2254.69,0.92) //was 1.536
    pt3dadd(-4423.13,5314.49,-2251.06,0.92) //was 1.536
    pt3dadd(-4423.02,5319.85,-2251.33,0.92) //was 1.536
    pt3dadd(-4422.67,5326.66,-2247.95,0.92) //was 1.536
    pt3dadd(-4437.4,5338.74,-2248.55,0.92) //was 1.536
}
dend[35]{
    pt3dadd(-4437.4,5338.74,-2248.55,0.92) //was 1.536
    pt3dadd(-4450.37,5351.45,-2250.2,0.92) //was 1.536
    pt3dadd(-4456.02,5361.16,-2248.74,0.92) //was 1.536
    pt3dadd(-4460.19,5367.45,-2251.02,0.92) //was 1.232
    pt3dadd(-4465.99,5376.88,-2250.03,0.92) //was 1.232
    pt3dadd(-4476.04,5384.25,-2254.34,0.92) //was 1.232
}
dend[36]{
    pt3dadd(-4476.04,5384.25,-2254.34,0.92) //was 1.232
    pt3dadd(-4483.98,5391.06,-2255.23,0.92) //was 1.232
    pt3dadd(-4489.42,5400.84,-2258.56,0.92) //was 1.232
    pt3dadd(-4493.81,5411.14,-2260.96,0.92) //was 1.232
    pt3dadd(-4495.76,5413.76,-2258.64,0.92) //was 1.232
}
dend[37]{
    pt3dadd(-4495.76,5413.76,-2258.64,0.92) //was 1.232
    pt3dadd(-4501.84,5418.21,-2259.78,0.92) //was 1.232
    pt3dadd(-4501.89,5421.62,-2257.66,0.92) //was 1.232
    pt3dadd(-4501.66,5431.55,-2264.27,0.92) //was 1.232
    pt3dadd(-4502.73,5433.97,-2269.13,0.92) //was 1.232
}
dend[38]{ 
    pt3dadd(-4502.73,5433.97,-2269.13,0.92) //was 1.232
    pt3dadd(-4524.51,5451.77,-2268.82,0.92) //was 1.232
    pt3dadd(-4539.17,5473.94,-2269.03,0.92) //was 1.232
    pt3dadd(-4554.64,5495.45,-2264.35,0.92) //was 1.232
    pt3dadd(-4554.57,5499.08,-2257.31,0.92)
    pt3dadd(-4554.47,5503.13,-2256.08,0.92)
}
dend[39]{
    pt3dadd(-4554.47,5503.13,-2256.08,0.92)
    pt3dadd(-4561.69,5503.54,-2250.21,0.92)
    pt3dadd(-4572.92,5512.57,-2248.53,0.92)
    pt3dadd(-4581.87,5523.54,-2245.48,0.92)
    pt3dadd(-4593.91,5532.02,-2247.19,0.92)
    pt3dadd(-4596.1,5542.92,-2251.12,0.92)
}
//dend6
dend[40]{
    pt3dadd(-4369.67,5257.1,-2271.75,1.6)
    pt3dadd(-4369.59,5265.47,-2276.11,1.6)
}
//dend7
dend[41]{
    pt3dadd(-4369.59,5265.47,-2276.11,1.6)
    pt3dadd(-4359.97,5285.26,-2269.3,1.536)
}
dend[42]{
    pt3dadd(-4359.97,5285.26,-2269.3,1.536)
    pt3dadd(-4366.34,5294.36,-2266.86,1.536)
}
dend[43]{
    pt3dadd(-4366.34,5294.36,-2266.86,1.536)
    pt3dadd(-4383.14,5308.4,-2262.57,1.536)
    pt3dadd(-4393.72,5323.12,-2256.07,1.536)
}
dend[44]{
    pt3dadd(-4393.72,5323.12,-2256.07,1.536)
    pt3dadd(-4399.51,5331.23,-2253.17,1.536)
}
dend[45]{
    pt3dadd(-4399.51,5331.23,-2253.17,1.536)
    pt3dadd(-4405.11,5353.65,-2246.91,1.536)
    pt3dadd(-4415.18,5369.18,-2238.09,1.536)
}
dend[46]{
    pt3dadd(-4415.18,5369.18,-2238.09,1.536)
    pt3dadd(-4426.09,5384.8,-2234.14,1.536)
    pt3dadd(-4425.98,5386.69,-2230.2,1.232)
}
dend[47]{ 
    pt3dadd(-4425.98,5386.69,-2230.2,1.232)
    pt3dadd(-4426.15,5391.67,-2229.28,1.232)
    pt3dadd(-4425.31,5407.83,-2224.91,0.624)
}
dend[48]{
    pt3dadd(-4425.31,5407.83,-2224.91,0.624)
    pt3dadd(-4420.88,5562.97,-2154.46,0.624) //was 0.92
    pt3dadd(-4428.59,5574.93,-2148.36,0.624) //was 0.92
}
dend[49]{
    pt3dadd(-4428.59,5574.93,-2148.36,0.624) //was 0.92
    pt3dadd(-4451.68,5591.8,-2146.76,0.624) //was 0.92
    pt3dadd(-4482.61,5616.36,-2140.91,0.624) //was 0.92
}
//dend8
dend[50]{
    pt3dadd(-4369.59,5265.47,-2276.11,1.6)
    pt3dadd(-4364.92,5266.48,-2278.5,1.6)
    pt3dadd(-4358.98,5269.98,-2285.96,1.6)
    pt3dadd(-4357.28,5273.46,-2292.99,1.6)
    pt3dadd(-4357.47,5276.69,-2298.68,1.6)
    pt3dadd(-4357.44,5280.53,-2301.33,1.6)
}
//dend9
dend[51]{
    pt3dadd(-4357.44,5280.53,-2301.33,1.6)
    pt3dadd(-4361.54,5281.75,-2302.38,1.6)
    pt3dadd(-4361.52,5284.14,-2304.1,1.6)
    pt3dadd(-4361.45,5287.02,-2303.13,1.232)
}
dend[52]{
    pt3dadd(-4361.45,5287.02,-2303.13,1.232)
    pt3dadd(-4366.5,5297.57,-2310.19,1.232) //was 1.536
    pt3dadd(-4372.66,5307.06,-2312.7,1.232) //was 1.536
    pt3dadd(-4374.32,5314.03,-2315.28,1.232) //was 1.536
    pt3dadd(-4374.41,5317.78,-2324.23,1.232) //was 1.536
}
dend[53]{
    pt3dadd(-4374.41,5317.78,-2324.23,1.232) //was 1.536
    pt3dadd(-4380.37,5323.97,-2327.82,1.232) //was 1.536
    pt3dadd(-4386.16,5338.32,-2331.58,1.232) //was 1.536
    pt3dadd(-4389.22,5359.18,-2336.91,1.232) //was 1.536
    pt3dadd(-4404.03,5384.67,-2340.58,1.232) //was 1.536
}
dend[54]{
    pt3dadd(-4404.03,5384.67,-2340.58,1.232) //was 1.536
    pt3dadd(-4414.96,5406.06,-2344.42,1.232) //was 1.536
    pt3dadd(-4423.48,5422.06,-2346.8,1.232) //was 1.536
    pt3dadd(-4429.83,5430.43,-2350.33,1.232) //was 1.536
    pt3dadd(-4429.66,5437.69,-2349.2,1.232) //was 1.536
}
dend[55]{
    pt3dadd(-4429.66,5437.69,-2349.2,1.232) //was 1.536
    pt3dadd(-4443.87,5448.95,-2352.82,1.232) //was 1.536
    pt3dadd(-4450.38,5457.94,-2357.54,1.232)
    pt3dadd(-4459.57,5469.47,-2359.56,1.232)
    pt3dadd(-4465.66,5476.08,-2362.92,1.232)
}
dend[56]{
    pt3dadd(-4465.66,5476.08,-2362.92,1.232)
    pt3dadd(-4465.67,5484.07,-2372,1.232)
    pt3dadd(-4469.76,5489.06,-2376.61,1.232)
    pt3dadd(-4490.08,5500.13,-2377.4,0.92)
    pt3dadd(-4493.33,5507.41,-2379.02,0.92)
}
dend[57]{
    pt3dadd(-4493.33,5507.41,-2379.02,0.92)
    pt3dadd(-4493.29,5511.08,-2380.85,0.92)
    pt3dadd(-4493.18,5516.11,-2380.31,0.92)
    pt3dadd(-4499.16,5523.43,-2386.29,0.92)
    pt3dadd(-4502.85,5530.05,-2386.87,0.92)
}
dend[58]{
    pt3dadd(-4502.85,5530.05,-2386.87,0.92)
    pt3dadd(-4506.55,5538.58,-2390.17,0.92)
    pt3dadd(-4509.9,5548.76,-2392.21,0.92)
    pt3dadd(-4509.74,5557.26,-2392.76,0.92)
    pt3dadd(-4510.4,5564.82,-2397.14,0.92)
}
dend[59]{
    pt3dadd(-4510.4,5564.82,-2397.14,0.92)
    pt3dadd(-4510.23,5572.45,-2395.92,0.92)
    pt3dadd(-4510.14,5578.65,-2398.27,0.92)
    pt3dadd(-4510.01,5583.86,-2396.88,0.92)
    pt3dadd(-4509.51,5608.5,-2396.15,0.92)
}
dend[60]{
    pt3dadd(-4509.51,5608.5,-2396.15,0.92)
    pt3dadd(-4517.42,5637.61,-2395.53,0.92)
    pt3dadd(-4520.28,5662.48,-2394.46,0.92)
    pt3dadd(-4528.58,5689.52,-2397.45,0.92)
    pt3dadd(-4522.62,5724.33,-2405.77,0.92)
}
dend[61]{
    pt3dadd(-4522.62,5724.33,-2405.77,0.92)
    pt3dadd(-4522.46,5743.06,-2417.66,0.92)
    pt3dadd(-4518.11,5763.27,-2426.71,0.92)
    pt3dadd(-4534.82,5788.46,-2429.65,0.92)
    pt3dadd(-4541.21,5801.25,-2432.03,0.92)
}
//dend10
dend[62]{
    pt3dadd(-4357.44,5280.53,-2301.33,1.6)
    pt3dadd(-4352.12,5291.8,-2303.15,1.536)
    pt3dadd(-4351.94,5298.33,-2300.56,1.232)
    pt3dadd(-4353.19,5305.35,-2297.22,0.92)
}
dend[63]{
    pt3dadd(-4353.19,5305.35,-2297.22,0.92)
    pt3dadd(-4347,5319.35,-2294.68,0.92)
    pt3dadd(-4348.75,5329.87,-2289.67,0.92)
    pt3dadd(-4353.74,5346.89,-2276.65,0.92)
}
dend[64]{
    pt3dadd(-4353.74,5346.89,-2276.65,0.92)
    pt3dadd(-4347.75,5362.93,-2271.52,0.92)
    pt3dadd(-4347.24,5378.47,-2260.79,0.92)
    pt3dadd(-4346.94,5390.9,-2250.12,0.92)
    pt3dadd(-4347.05,5394.04,-2244.16,0.92)
}
dend[65]{
    pt3dadd(-4347.05,5394.04,-2244.16,0.92)
    pt3dadd(-4347.04,5401.77,-2243.55,0.92)
    pt3dadd(-4346.69,5413.18,-2237.13,0.92)
    pt3dadd(-4344.24,5416.71,-2227.32,0.92)
    pt3dadd(-4354.19,5428.94,-2215.8,0.92)
}
dend[66]{       
    pt3dadd(-4354.19,5428.94,-2215.8,0.92)
    pt3dadd(-4355.7,5434.62,-2208.75,0.92)
    pt3dadd(-4354.9,5462.49,-2188.13,0.92)
    pt3dadd(-4354.78,5470.7,-2182.14,0.92)
    pt3dadd(-4360.64,5485.8,-2174.75,0.92)
}
dend[67]{ 
    pt3dadd(-4360.64,5485.8,-2174.75,0.92)
    pt3dadd(-4367.24,5498.94,-2173.35,0.92)
    pt3dadd(-4374.54,5507.85,-2165.64,0.92)
    pt3dadd(-4384.32,5516.18,-2156.06,0.92)
    pt3dadd(-4392.4,5526.65,-2152.72,0.92)
}
dend[68]{       
    pt3dadd(-4392.4,5526.65,-2152.72,0.92)
    pt3dadd(-4400.26,5540.01,-2140.18,0.92)
    pt3dadd(-4402.91,5546.76,-2132.46,0.92)
    pt3dadd(-4408.86,5559.7,-2135.24,0.92)
    pt3dadd(-4409.78,5562.35,-2132.26,0.92)
}
//dend11
dend[69]{
    pt3dadd(-4409.78,5562.35,-2132.26,0.92)
    pt3dadd(-4410.34,5560.93,-2129.05,0.616)
    pt3dadd(-4411.51,5566.27,-2126.76,0.616)
}
//dend12
dend[70]{
    pt3dadd(-4409.78,5562.35,-2132.26,0.92)
    pt3dadd(-4408.38,5571.17,-2129.6,0.92)
}
dend[71]{
    pt3dadd(-4408.38,5571.17,-2129.6,0.92)
    pt3dadd(-4412.01,5584.21,-2125.81,0.92)
    pt3dadd(-4419.74,5603.86,-2121.71,0.92)
}
dend[72]{
    pt3dadd(-4419.74,5603.86,-2121.71,0.92)
    pt3dadd(-4419.4,5613.84,-2114.13,0.92)
    pt3dadd(-4419.22,5625.56,-2117.37,0.92) //was 1.24
}
dend[73]{
    pt3dadd(-4419.22,5625.56,-2117.37,0.92) //was 1.24
    pt3dadd(-4435.9,5658.81,-2111.5,0.624)
    pt3dadd(-4454.8,5699.5,-2107.5,0.624)
}
dend[74]{
    pt3dadd(-4454.8,5699.5,-2107.5,0.624)
    pt3dadd(-4466.03,5728.18,-2103.28,0.624)
    pt3dadd(-4475.68,5742.89,-2086.46,0.624)
}
dend[75]{
    pt3dadd(-4475.68,5742.89,-2086.46,0.624)
    pt3dadd(-4487.85,5758.56,-2079.7,0.624)
    pt3dadd(-4498.99,5796.77,-2057.32,0.624)
}
dend[76]{
    pt3dadd(-4498.99,5796.77,-2057.32,0.624)
    pt3dadd(-4498.39,5817.02,-2046.82,0.624)
    pt3dadd(-4500.12,5835.31,-2042.1,0.624)
}

//-----------------------------------------------------------
//dend13
dend[77]{
    pt3dadd(-4372.52,5225.59,-2262.91,2)
    pt3dadd(-4370.19,5218.63,-2257.9,1.6)
    pt3dadd(-4370.31,5211.33,-2256.63,1.6)
}
//dend14
dend[78]{
    pt3dadd(-4370.31,5211.33,-2256.63,1.6)
    pt3dadd(-4370.3,5206.72,-2251.22,1.232)
    pt3dadd(-4373.75,5200.71,-2248.68,1.232)
    pt3dadd(-4374.54,5198.31,-2241.32,1.232)
}
dend[79]{
    pt3dadd(-4374.54,5198.31,-2241.32,1.232)
    pt3dadd(-4382.44,5199.35,-2233.96,1.232)
    pt3dadd(-4389.06,5190.63,-2225.35,1.232)
    pt3dadd(-4396.39,5183.36,-2217.47,1.232)
    pt3dadd(-4399.53,5185.78,-2207.28,1.232)
}
dend[80]{
    pt3dadd(-4399.53,5185.78,-2207.28,1.232)
    pt3dadd(-4399.51,5183.97,-2204.21,1.232)
    pt3dadd(-4403.87,5184.44,-2195.46,1.232)
    pt3dadd(-4403.78,5184.34,-2190.2,1.232)
    pt3dadd(-4403.8,5179.24,-2185.77,1.232)
    pt3dadd(-4408.98,5176.76,-2177.55,1.232)
}
dend[81]{
    pt3dadd(-4408.98,5176.76,-2177.55,1.232)
    pt3dadd(-4415.9,5168.52,-2170.4,1.232)
    pt3dadd(-4421.98,5166.23,-2164.16,1.232)
    pt3dadd(-4423.31,5166.64,-2156.68,1.232)
    pt3dadd(-4423.81,5159.99,-2145.02,1.232)
}
dend[82]{
    pt3dadd(-4423.81,5159.99,-2145.02,1.232)
    pt3dadd(-4423.44,5161.79,-2135.11,1.232)
    pt3dadd(-4423.28,5166.4,-2131.49,1.232)
    pt3dadd(-4423.27,5166.44,-2122.67,1.232)
    pt3dadd(-4434.63,5162.63,-2114.73,1.232)
}
dend[83]{
    pt3dadd(-4434.63,5162.63,-2114.73,1.232)
    pt3dadd(-4444.95,5152.12,-2098.19,1.232)
    pt3dadd(-4454.65,5146.7,-2085.89,0.92)
    pt3dadd(-4461.09,5138.82,-2069.1,0.92)
    pt3dadd(-4461.49,5131.28,-2058.69,0.92)
    pt3dadd(-4468.82,5129.7,-2049.01,0.92)
}
dend[84]{
    pt3dadd(-4468.82,5129.7,-2049.01,0.92)
    pt3dadd(-4475.71,5125.36,-2044.07,0.92)
    pt3dadd(-4477.71,5125.9,-2033.9,0.92)
    pt3dadd(-4484.72,5119.1,-2025.61,0.92)
    pt3dadd(-4494.64,5111.02,-2006,0.616)
}
dend[85]{
    pt3dadd(-4494.64,5111.02,-2006,0.616)
    pt3dadd(-4498.78,5111.68,-2000.57,0.616)
    pt3dadd(-4503.47,5113.93,-1995.11,0.616)
    pt3dadd(-4511.54,5110.94,-1984.59,0.616)
    pt3dadd(-4519.52,5108.47,-1977.54,0.616)
    pt3dadd(-4519.25,5106.35,-1968.11,0.616)
}
dend[86]{
    pt3dadd(-4519.25,5106.35,-1968.11,0.616)
    pt3dadd(-4519.19,5102.81,-1960.73,0.616)
    pt3dadd(-4534.82,5105.11,-1952.41,0.616)
    pt3dadd(-4551.57,5108.38,-1942.41,0.616)
    pt3dadd(-4562.55,5119.4,-1937.11,0.616)
}
//dend15
dend[87]{
    pt3dadd(-4370.31,5211.33,-2256.63,1.6)
    pt3dadd(-4372.9,5204.81,-2255.08,1.6)
}
//dend16
dend[88]{
    pt3dadd(-4372.9,5204.81,-2255.08,1.6)
    pt3dadd(-4365.9,5190.78,-2257.32,1.536)
    pt3dadd(-4350.58,5170.61,-2263.72,1.536)
}
dend[89]{
    pt3dadd(-4350.58,5170.61,-2263.72,1.536)
    pt3dadd(-4349.88,5168.08,-2270.35,1.232)
    pt3dadd(-4319.59,5155.4,-2275.5,1.232)
}
dend[90]{
    pt3dadd(-4319.59,5155.4,-2275.5,1.232)
    pt3dadd(-4294.53,5137.9,-2273.12,1.232)
    pt3dadd(-4285.81,5129.46,-2276.22,1.232)
    pt3dadd(-4286,5123.56,-2280.02,1.232)
}
dend[91]{
    pt3dadd(-4286,5123.56,-2280.02,1.232)
    pt3dadd(-4286.2,5116.15,-2283.08,0.92)
    pt3dadd(-4273.23,5101.07,-2286.85,0.92)
    pt3dadd(-4258.3,5087.64,-2289.03,0.92)
}
dend[92]{
    pt3dadd(-4258.3,5087.64,-2289.03,0.92)
    pt3dadd(-4242.3,5074.15,-2297.33,0.92)
    pt3dadd(-4231.85,5064.02,-2300.05,0.92)
    pt3dadd(-4224.09,5056.17,-2299.82,0.92)
}
dend[93]{
    pt3dadd(-4224.09,5056.17,-2299.82,0.92)
    pt3dadd(-4215.34,5046.14,-2299.64,0.92)
    pt3dadd(-4203.59,5041.64,-2293.73,0.92)
}
dend[94]{
    pt3dadd(-4203.59,5041.64,-2293.73,0.92)
    pt3dadd(-4193.12,5034.17,-2290.13,0.92)
    pt3dadd(-4185.54,5026.16,-2292.19,0.92)
    pt3dadd(-4175.61,5013.65,-2289.02,0.92)
}
dend[95]{
    pt3dadd(-4175.61,5013.65,-2289.02,0.92)
    pt3dadd(-4165.78,5004.87,-2286.52,0.92)
    pt3dadd(-4152.41,4996.46,-2292.34,0.92)
    pt3dadd(-4152.48,4996.54,-2295.9,0.92)
}
dend[96]{
    pt3dadd(-4152.48,4996.54,-2295.9,0.92)
    pt3dadd(-4152.9,4989.72,-2303.1,0.92)
    pt3dadd(-4126.13,4987.11,-2311.69,0.92)
    pt3dadd(-4111.45,4977.88,-2316.72,0.92)
}
dend[97]{
    pt3dadd(-4111.45,4977.88,-2316.72,0.92)
    pt3dadd(-4097.97,4974.02,-2320.69,0.92)
    pt3dadd(-4093.4,4968.82,-2321.33,0.92)
    pt3dadd(-4093.5,4967.43,-2325.51,0.92)
}
dend[98]{
    pt3dadd(-4093.5,4967.43,-2325.51,0.92)
    pt3dadd(-4093.95,4960.57,-2334.35,0.624)
    pt3dadd(-4046.35,4949.57,-2348.71,0.624)
    pt3dadd(-4035.89,4937.49,-2357.24,0.624)
}
//dend17
dend[99]{
    pt3dadd(-4372.9,5204.81,-2255.08,1.6)
    pt3dadd(-4377.24,5196.63,-2250.79,1.536)
    pt3dadd(-4380.99,5188.93,-2246.75,1.536)
}
dend[100]{
    pt3dadd(-4380.99,5188.93,-2246.75,1.536)
    pt3dadd(-4386.57,5185.64,-2243.71,1.536)
    pt3dadd(-4393.06,5180.06,-2239.75,1.536)
    pt3dadd(-4400.27,5175.47,-2236.29,1.536)
    pt3dadd(-4413.23,5172.95,-2228.83,1.536)
}
dend[101]{
    pt3dadd(-4413.23,5172.95,-2228.83,1.536)
    pt3dadd(-4414.15,5173.24,-2223.42,1.536)
    pt3dadd(-4418.55,5170.77,-2220.52,1.536)
    pt3dadd(-4422.41,5171.96,-2216.42,1.232)
    pt3dadd(-4422.37,5170.27,-2212.5,1.232)
}
dend[102]{      
    pt3dadd(-4422.37,5170.27,-2212.5,1.232)
    pt3dadd(-4422.43,5175.77,-2205.83,0.92)
    pt3dadd(-4422.22,5183.95,-2203.66,0.92)
    pt3dadd(-4422.08,5191.14,-2203.75,0.92)
    pt3dadd(-4421.98,5190.76,-2197.85,0.92)
}
dend[103]{  
    pt3dadd(-4421.98,5190.76,-2197.85,0.92)
    pt3dadd(-4421.93,5185.4,-2189.67,0.92)
    pt3dadd(-4472.4,5161.07,-2180.27,0.92)
    pt3dadd(-4486.23,5140.57,-2176.73,0.92)
    pt3dadd(-4486.36,5129.28,-2171.73,0.92)
}
dend[104]{     
    pt3dadd(-4486.36,5129.28,-2171.73,0.92)
    pt3dadd(-4497.1,5114.97,-2173.91,0.92)
    pt3dadd(-4506.37,5099.5,-2174.8,0.92)
    pt3dadd(-4514.1,5083.47,-2178.84,0.92)
    pt3dadd(-4514.25,5077.28,-2180.35,0.92)
}
dend[105]{
    pt3dadd(-4514.25,5077.28,-2180.35,0.92)
    pt3dadd(-4524,5070.74,-2177.19,0.92)
    pt3dadd(-4532.32,5067.89,-2172.01,0.92)
    pt3dadd(-4541.43,5065.89,-2170.68,0.92)
}
//dend18
dend[106]{
    pt3dadd(-4541.43,5065.89,-2170.68,0.92)
    pt3dadd(-4556.86,5056.46,-2162.39,0.92)
    pt3dadd(-4566.55,5051.52,-2158.11,0.92)
}
dend[107]{
    pt3dadd(-4566.55,5051.52,-2158.11,0.92)
    pt3dadd(-4576.7,5046.25,-2153.96,0.92)
    pt3dadd(-4574.83,5042.2,-2151.52,0.92)
    pt3dadd(-4574.97,5030.57,-2154.43,0.92)
}
dend[108]{
    pt3dadd(-4574.97,5030.57,-2154.43,0.92)
    pt3dadd(-4600.12,5024.32,-2151.57,0.92)
    pt3dadd(-4623.82,5020.56,-2145.15,0.92)
    pt3dadd(-4623.81,5014.88,-2138.38,0.92)
}
dend[109]{
    pt3dadd(-4623.81,5014.88,-2138.38,0.92)
    pt3dadd(-4623.87,5010.14,-2136.36,0.92)
    pt3dadd(-4638.81,5003.98,-2136.39,0.92)
    pt3dadd(-4647.63,4997.93,-2131.51,0.92)
}
dend[110]{
    pt3dadd(-4647.63,4997.93,-2131.51,0.92)
    pt3dadd(-4659.28,4990.22,-2126.38,0.92)
    pt3dadd(-4668.67,4978.85,-2122.61,0.92)
    pt3dadd(-4673.69,4976.11,-2129.32,0.92)
}
dend[111]{
    pt3dadd(-4673.69,4976.11,-2129.32,0.92)
    pt3dadd(-4676.05,4971.9,-2125.49,0.92)
    pt3dadd(-4676.08,4964.92,-2127.39,0.92)
    pt3dadd(-4705.67,4960.47,-2128.88,0.616)
}
dend[112]{
    pt3dadd(-4705.67,4960.47,-2128.88,0.616)
    pt3dadd(-4715.12,4959.36,-2123.45,0.616)
    pt3dadd(-4726.62,4950.09,-2116.82,0.616)
    pt3dadd(-4735.89,4943.93,-2111.84,0.304)
}
//dend19
dend[113]{
    pt3dadd(-4541.43,5065.89,-2170.68,0.92)
    pt3dadd(-4546.78,5060.02,-2176.11,0.92)
    pt3dadd(-4561.12,5059.78,-2182.4,0.92)
}
dend[114]{
    pt3dadd(-4561.12,5059.78,-2182.4,0.92)
    pt3dadd(-4571.71,5061.52,-2185.75,0.92)
    pt3dadd(-4572.41,5053.21,-2183.12,0.92)
    pt3dadd(-4572.37,5052.35,-2187.84,0.92)
}
dend[115]{
    pt3dadd(-4572.37,5052.35,-2187.84,0.92)
    pt3dadd(-4624.56,5051.11,-2185.95,0.92)
    pt3dadd(-4636.26,5045.4,-2185.91,0.92)
    pt3dadd(-4658.03,5046.88,-2191.71,0.92)
}
dend[116]{
    pt3dadd(-4658.03,5046.88,-2191.71,0.92)
    pt3dadd(-4670.29,5040.11,-2196.93,0.92)
    pt3dadd(-4684.82,5034.4,-2191.45,0.92)
    pt3dadd(-4687.53,5025.38,-2185.66,0.92)
}
dend[117]{
    pt3dadd(-4687.53,5025.38,-2185.66,0.92)
    pt3dadd(-4687.55,5019.48,-2188.23,0.92)
    pt3dadd(-4669.48,5014.81,-2196.8,0.616)
    pt3dadd(-4705.16,5014.29,-2207.2,0.616)
}
dend[118]{
    pt3dadd(-4705.16,5014.29,-2207.2,0.616)
    pt3dadd(-4716.58,5023.29,-2215.18,0.616)
    pt3dadd(-4716.6,5025.42,-2219.03,0.616)
    pt3dadd(-4720.43,5031.81,-2226.54,0.616)
}
dend[119]{
    pt3dadd(-4720.43,5031.81,-2226.54,0.616)
    pt3dadd(-4720.48,5032.74,-2230.29,0.616)
    pt3dadd(-4720.52,5033.58,-2233.67,0.304)
}
//-------------------------------------------------------
//dend20
dend[120]{
    pt3dadd(-4372.52,5225.59,-2262.91,2)
    pt3dadd(-4370.33,5228.25,-2275.88,1.6)
    pt3dadd(-4370.45,5224.57,-2278.08,1.6)
}
//dend21
dend[121]{
    pt3dadd(-4370.45,5224.57,-2278.08,1.6)
    pt3dadd(-4370.61,5220.17,-2281.96,1.6)
    pt3dadd(-4371.41,5217.85,-2290.85,1.6)
    pt3dadd(-4371.54,5217.1,-2297.2,1.6)
}
//dend22
dend[122]{
    pt3dadd(-4371.54,5217.1,-2297.2,1.6)
    pt3dadd(-4363.58,5208.38,-2309.52,1.536)
}
dend[123]{
    pt3dadd(-4363.58,5208.38,-2309.52,1.536)
    pt3dadd(-4363.99,5205.29,-2320.17,1.232)
    pt3dadd(-4321.82,5199.1,-2340.48,1.232)
}
dend[124]{
    pt3dadd(-4321.82,5199.1,-2340.48,1.232)
    pt3dadd(-4341.34,5195.33,-2360.7,1.232)
    pt3dadd(-4341.54,5193.62,-2369.82,1.232)
}
//dend23
dend[125]{
    pt3dadd(-4341.54,5193.62,-2369.82,1.232)
    pt3dadd(-4341.84,5190.22,-2381.94,1.232)
}
dend[126]{
    pt3dadd(-4341.84,5190.22,-2381.94,1.232)
    pt3dadd(-4330.18,5195.63,-2399.36,1.232)
    pt3dadd(-4328.47,5195.72,-2410.53,0.92)
    pt3dadd(-4314.92,5197.3,-2424.47,0.92)
}
dend[127]{
    pt3dadd(-4314.92,5197.3,-2424.47,0.92)
    pt3dadd(-4315.08,5205.62,-2442.19,0.92)
    pt3dadd(-4309.3,5213.52,-2463.02,0.92)
}
dend[128]{
    pt3dadd(-4309.3,5213.52,-2463.02,0.92)
    pt3dadd(-4309.25,5221.48,-2476.8,0.92)
    pt3dadd(-4309.39,5227.51,-2490.46,0.92)
    pt3dadd(-4309.41,5231.74,-2496,0.92)
}
dend[129]{
    pt3dadd(-4309.41,5231.74,-2496,0.92)
    pt3dadd(-4304.71,5246.26,-2527.74,0.616)
    pt3dadd(-4303.25,5253.78,-2543.68,0.616)
}
dend[130]{
    pt3dadd(-4303.25,5253.78,-2543.68,0.616)
    pt3dadd(-4307.01,5259.96,-2555.35,0.616)
    pt3dadd(-4305.77,5272.64,-2573.39,0.616)
    pt3dadd(-4294.3,5271.96,-2586.51,0.616)
}
dend[131]{
    pt3dadd(-4294.3,5271.96,-2586.51,0.616)
    pt3dadd(-4281.19,5279.31,-2599.35,0.616)
    pt3dadd(-4282,5282.38,-2614.09,0.616)
}
//dend24
dend[132]{
    pt3dadd(-4341.54,5193.62,-2369.82,1.232)
    pt3dadd(-4347.15,5202.24,-2380.74,0.92)
    pt3dadd(-4332.16,5202.84,-2395.37,0.92)
}
dend[133]{        
    pt3dadd(-4332.16,5202.84,-2395.37,0.92)
    pt3dadd(-4323.52,5203.19,-2404.51,0.92)
    pt3dadd(-4317.14,5201.65,-2422.42,0.92)
    pt3dadd(-4303.08,5197.19,-2441.88,0.92)
}
dend[134]{     
    pt3dadd(-4303.08,5197.19,-2441.88,0.92)
    pt3dadd(-4289.66,5199.1,-2455.61,0.92)
    pt3dadd(-4285.47,5201.63,-2469.81,0.92)
    pt3dadd(-4282.1,5202.77,-2487.26,0.92)
}
dend[135]{
    pt3dadd(-4282.1,5202.77,-2487.26,0.92)
    pt3dadd(-4279.24,5205.66,-2493.72,0.92)
    pt3dadd(-4279.41,5204.47,-2501.54,0.616)
}
dend[136]{
    pt3dadd(-4279.41,5204.47,-2501.54,0.616)
    pt3dadd(-4278.82,5208.11,-2513.1,0.616)
    pt3dadd(-4279.19,5208.43,-2525.28,0.616)
    pt3dadd(-4273.8,5197.52,-2539.56,0.616)
}
dend[137]{
    pt3dadd(-4273.8,5197.52,-2539.56,0.616)
    pt3dadd(-4267.49,5183.51,-2555.81,0.616)
    pt3dadd(-4259.44,5177.3,-2573.36,0.616)
}
dend[138]{
    pt3dadd(-4259.44,5177.3,-2573.36,0.616)
    pt3dadd(-4253.65,5172.7,-2595.67,0.616)
    pt3dadd(-4246.81,5171.18,-2612.86,0.616)
    pt3dadd(-4238.43,5170.96,-2627.36,0.616)
}
dend[139]{ 
    pt3dadd(-4238.43,5170.96,-2627.36,0.616)
    pt3dadd(-4233.84,5167.43,-2644.2,0.616)
    pt3dadd(-4233.86,5165.59,-2659.38,0.616)
}
dend[140]{
    pt3dadd(-4233.86,5165.59,-2659.38,0.616)
    pt3dadd(-4233.29,5169.11,-2664.1,0.616)
    pt3dadd(-4233.63,5171.12,-2668.77,0.616)
}
//dend25
dend[141]{
    pt3dadd(-4371.54,5217.1,-2297.2,1.6)
    pt3dadd(-4371.3,5218.78,-2302.35,1.536)
    pt3dadd(-4375.52,5216.91,-2306.17,1.536)
}
dend[142]{
    pt3dadd(-4375.52,5216.91,-2306.17,1.536)
    pt3dadd(-4384.61,5222.06,-2311.29,1.536)
    pt3dadd(-4392.26,5216.82,-2323.09,1.536)
    pt3dadd(-4398.42,5215.46,-2329.57,1.536)
}
dend[143]{
    pt3dadd(-4398.42,5215.46,-2329.57,1.536)
    pt3dadd(-4398.3,5222.39,-2330.95,1.536)
    pt3dadd(-4409.56,5222.84,-2337.59,1.536)
    pt3dadd(-4420.31,5223.27,-2347.91,1.536)
}
dend[144]{
    pt3dadd(-4420.31,5223.27,-2347.91,1.536)
    pt3dadd(-4424.47,5232.95,-2353.63,1.232)
    pt3dadd(-4430.4,5237.73,-2362.56,1.232)
    pt3dadd(-4438.31,5242.5,-2366.6,1.232)
}
dend[145]{
    pt3dadd(-4438.31,5242.5,-2366.6,1.232)
    pt3dadd(-4438.36,5243.23,-2370.02,1.232)
    pt3dadd(-4438.31,5254.44,-2379.9,1.232)
    pt3dadd(-4416.31,5261,-2394.73,0.92)
}
dend[146]{
    pt3dadd(-4416.31,5261,-2394.73,0.92)
    pt3dadd(-4410.68,5269.93,-2401.31,0.92)
    pt3dadd(-4398.84,5279.87,-2413.78,0.92)
    pt3dadd(-4390.45,5293.08,-2434.3,0.92)
}
dend[147]{
    pt3dadd(-4390.45,5293.08,-2434.3,0.92)
    pt3dadd(-4380.49,5303.01,-2452.84,0.92)
    pt3dadd(-4371.91,5305.13,-2467.34,0.92)
    pt3dadd(-4371.74,5307.79,-2476.75,0.92)
}
dend[148]{
    pt3dadd(-4371.74,5307.79,-2476.75,0.92)
    pt3dadd(-4376.58,5311.71,-2489.01,0.616)
    pt3dadd(-4368.73,5320.68,-2502.58,0.616)
    pt3dadd(-4366.57,5326.06,-2510.62,0.616)
}
dend[149]{
    pt3dadd(-4366.57,5326.06,-2510.62,0.616)
    pt3dadd(-4374.85,5330.27,-2518.48,0.616)
    pt3dadd(-4375.4,5325.89,-2535.33,0.616)
    pt3dadd(-4365.71,5327.99,-2544.9,0.616)
}
dend[150]{ 
    pt3dadd(-4365.71,5327.99,-2544.9,0.616)
    pt3dadd(-4361.03,5340.4,-2567,0.616)
    pt3dadd(-4354.69,5343.22,-2575.96,0.616)
    pt3dadd(-4354.61,5346.43,-2590.7,0.616)
}
dend[151]{
    pt3dadd(-4354.61,5346.43,-2590.7,0.616)
    pt3dadd(-4350.86,5359.17,-2607.55,0.616)
    pt3dadd(-4348.43,5372.58,-2625.39,0.616)
    pt3dadd(-4348.44,5382.43,-2636.52,0.616)
}
dend[152]{
    pt3dadd(-4348.44,5382.43,-2636.52,0.616)
    pt3dadd(-4346.72,5398.78,-2664.38,0.616)
    pt3dadd(-4344.23,5414.86,-2689.94,0.616)
    pt3dadd(-4340.05,5426.75,-2706.6,0.616)
}
dend[153]{
    pt3dadd(-4340.05,5426.75,-2706.6,0.616)
    pt3dadd(-4340.03,5434.38,-2713.49,0.616)
    pt3dadd(-4326.21,5446.7,-2732.55,0.616)
    pt3dadd(-4323.25,5460.56,-2753.88,0.616)
}
dend[154]{
    pt3dadd(-4323.25,5460.56,-2753.88,0.616)
    pt3dadd(-4325.5,5477.94,-2759.95,0.616)
    pt3dadd(-4321.01,5491.5,-2777,0.616)
    pt3dadd(-4320.01,5499.56,-2787.38,0.616)
}
dend[155]{ 
    pt3dadd(-4320.01,5499.56,-2787.38,0.616)
    pt3dadd(-4317.47,5506.24,-2800.1,0.616)
    pt3dadd(-4316.16,5522.05,-2809.79,0.616)
    pt3dadd(-4316.13,5529.58,-2816.3,0.616)
}
//dend26
dend[156]{
    pt3dadd(-4370.45,5224.57,-2278.08,1.6)
    pt3dadd(-4369.65,5216.23,-2273.48,1.6)
    pt3dadd(-4369.83,5205.52,-2271.7,1.6)
    pt3dadd(-4360.16,5194.34,-2267.74,1.6)
}
dend[157]{
    pt3dadd(-4360.16,5194.34,-2267.74,1.6)
    pt3dadd(-4357.42,5187.23,-2262.37,1.6)
    pt3dadd(-4357.32,5185.13,-2255.01,1.536)
    pt3dadd(-4348.35,5173.15,-2248.29,1.536)
    pt3dadd(-4342.15,5160.83,-2240.87,1.536)
}
dend[158]{
    pt3dadd(-4342.15,5160.83,-2240.87,1.536)
    pt3dadd(-4336.96,5149.59,-2233.69,1.232)
    pt3dadd(-4329.33,5138.51,-2229.13,1.232)
    pt3dadd(-4327.8,5131.74,-2218.77,1.232)
    pt3dadd(-4320.79,5119.91,-2206.98,1.232)
}
dend[159]{
    pt3dadd(-4320.79,5119.91,-2206.98,1.232)
    pt3dadd(-4313.53,5103.95,-2201.77,1.232)
    pt3dadd(-4313.57,5098.84,-2198.52,1.232)
    pt3dadd(-4303.12,5091.61,-2196.62,1.232)
    pt3dadd(-4295.38,5086.51,-2184.83,1.232)
}
dend[160]{
    pt3dadd(-4295.38,5086.51,-2184.83,1.232)
    pt3dadd(-4289.48,5063.53,-2173.9,1.232)
    pt3dadd(-4289.87,5047.72,-2169.81,1.232)
    pt3dadd(-4277.93,5038.98,-2165.06,1.232)
    pt3dadd(-4275.15,5032.42,-2165.8,1.232)
}
dend[161]{
    pt3dadd(-4275.15,5032.42,-2165.8,1.232)
    pt3dadd(-4271.77,5028.02,-2160.85,1.232)
    pt3dadd(-4263.21,5018.25,-2163.32,1.232)
    pt3dadd(-4251.27,5011.48,-2160.62,1.232)
    pt3dadd(-4238.27,4998.96,-2157.25,1.232)
}
dend[162]{
    pt3dadd(-4238.27,4998.96,-2157.25,1.232)
    pt3dadd(-4228.68,4989.74,-2151.9,0.92)
    pt3dadd(-4228.93,4984.15,-2151.52,0.92)
    pt3dadd(-4211.03,4973.51,-2155.16,1.232)
    pt3dadd(-4193.39,4963.34,-2157.49,1.232)
}
dend[163]{
    pt3dadd(-4193.39,4963.34,-2157.49,1.232)
    pt3dadd(-4177.92,4945.54,-2165.63,0.92)
    pt3dadd(-4168.5,4938.72,-2164.65,0.92)
    pt3dadd(-4164.57,4927.73,-2162.21,0.92)
    pt3dadd(-4155.58,4917.83,-2164.76,0.92)
}
dend[164]{
    pt3dadd(-4155.58,4917.83,-2164.76,0.92)
    pt3dadd(-4153.58,4909.11,-2166.52,0.92)
    pt3dadd(-4154.17,4892.55,-2171.96,0.92)
    pt3dadd(-4146.22,4883.07,-2175.78,0.92)
    pt3dadd(-4134.94,4874.93,-2183.68,0.92)
}
dend[165]{
    pt3dadd(-4134.94,4874.93,-2183.68,0.92)
    pt3dadd(-4119.09,4864.05,-2186.43,0.92)
    pt3dadd(-4100.34,4850.68,-2189.27,0.92)
    pt3dadd(-4092.08,4847.13,-2198.39,0.92)
    pt3dadd(-4091.52,4840.46,-2200.32,0.92)
}
dend[166]{
    pt3dadd(-4091.52,4840.46,-2200.32,0.92)
    pt3dadd(-4091.66,4834.88,-2201.86,0.92)
    pt3dadd(-4092.15,4828.05,-2205,0.624)
    pt3dadd(-4065.28,4818.74,-2208.62,0.624)
    pt3dadd(-4054.75,4810.84,-2217.32,0.624)
}
//---------------------------------------------------
//dend27
dend[167]{
    pt3dadd(-4372.52,5225.59,-2262.91,2)
    pt3dadd(-4370.29,5229.94,-2275.47,1.6)
    pt3dadd(-4370.43,5225.68,-2278.5,1.6)
}
//dend28
dend[168]{
    pt3dadd(-4370.43,5225.68,-2278.5,1.6)
    pt3dadd(-4370.6,5221.64,-2283.48,1.6)
}
//dend29
dend[169]{
    pt3dadd(-4370.6,5221.64,-2283.48,1.6)
    pt3dadd(-4370.68,5224.91,-2290.96,1.536)
    pt3dadd(-4370.78,5226.35,-2297.8,1.536)
    pt3dadd(-4377.15,5237.65,-2305.83,1.536)
}
//dend30
dend[170]{
    pt3dadd(-4377.15,5237.65,-2305.83,1.536)
    pt3dadd(-4377.22,5241.52,-2313.91,1.232)
    pt3dadd(-4366.04,5248.71,-2319.43,1.232)
}
dend[171]{
    pt3dadd(-4366.04,5248.71,-2319.43,1.232)
    pt3dadd(-4361.2,5256.01,-2327.26,1.232)
    pt3dadd(-4356.4,5260.51,-2333.98,1.232)
    pt3dadd(-4356.48,5261.47,-2339.36,1.232)
}
dend[172]{
    pt3dadd(-4356.48,5261.47,-2339.36,1.232)
    pt3dadd(-4356.52,5265.53,-2345.61,0.92)
    pt3dadd(-4355.57,5269.94,-2347.02,0.92)
    pt3dadd(-4347.27,5274.57,-2355.12,0.92)
}
//dend31
dend[173]{
    pt3dadd(-4347.27,5274.57,-2355.12,0.92)
    pt3dadd(-4343.26,5276.44,-2362.15,0.616)
}
//dend32
dend[174]{
    pt3dadd(-4343.26,5276.44,-2362.15,0.616)
    pt3dadd(-4345.34,5285,-2373.23,0.616)
}
dend[175]{
    pt3dadd(-4345.34,5285,-2373.23,0.616)
    pt3dadd(-4355.87,5301.67,-2373.49,0.616)
    pt3dadd(-4361.15,5304.3,-2376.84,0.616)
}
dend[176]{
    pt3dadd(-4361.15,5304.3,-2376.84,0.616)
    pt3dadd(-4358,5309.11,-2385.7,0.616)
    pt3dadd(-4331.06,5309.27,-2396.15,0.616)
    pt3dadd(-4309.57,5313.61,-2427.54,0.616)
}
//dend33
dend[177]{
    pt3dadd(-4343.26,5276.44,-2362.15,0.616)
    pt3dadd(-4344.14,5275.16,-2368.77,0.616) //was 0.92
}
dend[178]{
    pt3dadd(-4344.14,5275.16,-2368.77,0.616) //was 0.92
    pt3dadd(-4323.05,5277.14,-2388.04,0.616) //was 0.92
}
dend[179]{
    pt3dadd(-4323.05,5277.14,-2388.04,0.616) //was 0.92
    pt3dadd(-4306.41,5278.79,-2402.06,0.616) //was 0.92
    pt3dadd(-4294.97,5281.53,-2428.04,0.616) //was 0.92
}
//dend34
dend[180]{
    pt3dadd(-4347.27,5274.57,-2355.12,0.92)
    pt3dadd(-4362.63,5286.23,-2366.04,0.92)
    pt3dadd(-4361.87,5297.65,-2368.62,0.616)
    pt3dadd(-4361.67,5301.02,-2369.75,0.616)
}
//dend35
dend[181]{
    pt3dadd(-4377.15,5237.65,-2305.83,1.536)
    pt3dadd(-4381.58,5245.59,-2308.44,0.92)
}
dend[182]{
    pt3dadd(-4381.58,5245.59,-2308.44,0.92)
    pt3dadd(-4389.11,5254.25,-2312.02,0.92)
    pt3dadd(-4399.1,5261.88,-2313.47,0.92)
    pt3dadd(-4403.25,5271.92,-2319.07,0.92)
}
dend[183]{
    pt3dadd(-4403.25,5271.92,-2319.07,0.92)
    pt3dadd(-4405.3,5281.58,-2321.17,0.92)
    pt3dadd(-4408.52,5288.68,-2328.98,0.92)
    pt3dadd(-4410.58,5293.21,-2333.98,0.92)
}
dend[184]{
    pt3dadd(-4410.58,5293.21,-2333.98,0.92)
    pt3dadd(-4407.62,5311.4,-2336.59,0.92)
    pt3dadd(-4407.54,5320.87,-2342.03,0.92)
}
dend[185]{
    pt3dadd(-4407.54,5320.87,-2342.03,0.92)
    pt3dadd(-4414.46,5331.45,-2355.16,0.92)
    pt3dadd(-4422.06,5340.97,-2356.42,0.92)
}
dend[186]{
    pt3dadd(-4422.06,5340.97,-2356.42,0.92)
    pt3dadd(-4422.21,5350.71,-2358.92,0.92)
    pt3dadd(-4421.61,5360.18,-2360.71,0.92)
}
dend[187]{ 
    pt3dadd(-4421.61,5360.18,-2360.71,0.92)
    pt3dadd(-4421.24,5368.63,-2358.05,0.92)
    pt3dadd(-4403.68,5382.75,-2358.94,0.92)
    pt3dadd(-4455.98,5409.11,-2369.24,0.92)
}
dend[188]{
    pt3dadd(-4455.98,5409.11,-2369.24,0.92)
    pt3dadd(-4466.52,5434.49,-2372.36,0.92)
    pt3dadd(-4485.11,5451.72,-2381.53,0.92)
    pt3dadd(-4490.54,5460.16,-2382.81,0.92)
}
dend[189]{  
    pt3dadd(-4490.54,5460.16,-2382.81,0.92)
    pt3dadd(-4497.2,5478.38,-2398.29,0.92)
    pt3dadd(-4490.15,5496.18,-2416.46,0.92)
    pt3dadd(-4494.56,5508.22,-2422.41,0.92)
}
//dend36
dend[190]{
    pt3dadd(-4370.6,5221.64,-2283.48,1.6)
    pt3dadd(-4370.98,5211.46,-2292.91,1.232)
    pt3dadd(-4365.65,5199.37,-2308.33,1.232)
}
dend[191]{
    pt3dadd(-4365.65,5199.37,-2308.33,1.232)
    pt3dadd(-4361.56,5192.89,-2325.97,1.232)
    pt3dadd(-4361.93,5186.65,-2339.01,1.232)
    pt3dadd(-4362.22,5182.72,-2350.47,0.92)
}
dend[192]{
    pt3dadd(-4362.22,5182.72,-2350.47,0.92)
    pt3dadd(-4364.96,5178.95,-2367.14,0.92)
    pt3dadd(-4372.08,5177.08,-2385.57,0.92)
}
dend[193]{
    pt3dadd(-4372.08,5177.08,-2385.57,0.92)
    pt3dadd(-4375.3,5174.52,-2405.91,0.92)
    pt3dadd(-4375.88,5183.36,-2422.94,0.92)
    pt3dadd(-4380.22,5192.16,-2437.09,0.92)
}
dend[194]{
    pt3dadd(-4380.22,5192.16,-2437.09,0.92)
    pt3dadd(-4380.35,5200.04,-2452.42,0.92)
    pt3dadd(-4372.8,5204.03,-2468.68,0.92)
}
//dend37
dend[195]{
    pt3dadd(-4370.43,5225.68,-2278.5,1.6)
    pt3dadd(-4365.66,5222.14,-2270.34,1.6)
    pt3dadd(-4353.18,5222.16,-2261.52,1.6)
    pt3dadd(-4353.17,5221.34,-2252.84,1.6)
    pt3dadd(-4352.93,5221.02,-2239.52,1.6)
    pt3dadd(-4373.65,5236.94,-2227.12,1.6)
    pt3dadd(-4378.5,5243.76,-2219.14,1.6)
}
//dend38
dend[196]{
    pt3dadd(-4378.5,5243.76,-2219.14,1.6)
    pt3dadd(-4382.31,5249.32,-2217.26,1.6)
    pt3dadd(-4390.36,5254.24,-2214.33,1.6)
    pt3dadd(-4396.55,5258.75,-2212.77,1.6)
    pt3dadd(-4396.39,5265.57,-2211.35,1.6)
}
///dend39
dend[197]{
    pt3dadd(-4396.39,5265.57,-2211.35,1.6)
    pt3dadd(-4403.65,5269.48,-2211.61,1.536)
    pt3dadd(-4420.43,5278.96,-2209.51,1.536)
    pt3dadd(-4412.47,5281.48,-2210.42,1.536)
}
//dend40
dend[198]{
    pt3dadd(-4412.47,5281.48,-2210.42,1.536)
    pt3dadd(-4419.13,5284.91,-2209.22,1.232)
    pt3dadd(-4421.76,5290.81,-2207.24,1.232)
    pt3dadd(-4419.65,5293.34,-2207.05,0.92)
    pt3dadd(-4429.97,5297.36,-2206.25,0.92)
}
//dend41
dend[199]{
    pt3dadd(-4429.97,5297.36,-2206.25,0.92)
    pt3dadd(-4439.07,5303.33,-2205.34,0.92)
    pt3dadd(-4450.75,5310.63,-2203.25,0.92)
    pt3dadd(-4463.9,5315.23,-2205.85,0.92)
}
dend[200]{
    pt3dadd(-4463.9,5315.23,-2205.85,0.92)
    pt3dadd(-4474.37,5323.13,-2201.6,0.92)
    pt3dadd(-4485.28,5329.89,-2196.06,0.92)
    pt3dadd(-4497.14,5333.24,-2191.01,0.92)
    pt3dadd(-4503.35,5335.26,-2187.59,0.92)
}
dend[201]{
    pt3dadd(-4503.35,5335.26,-2187.59,0.92)
    pt3dadd(-4512.09,5341.64,-2183.78,0.92)
    pt3dadd(-4512.11,5349.23,-2185.36,0.92)
    pt3dadd(-4512.2,5350.32,-2183.48,0.92)
}
//dend42
dend[202]{
    pt3dadd(-4429.97,5297.36,-2206.25,0.92)
    pt3dadd(-4430.18,5298.06,-2202.86,0.92)
    pt3dadd(-4434.84,5297.56,-2200.53,0.92)
}
dend[203]{
    pt3dadd(-4434.84,5297.56,-2200.53,0.92)
    pt3dadd(-4455.43,5304.7,-2187.95,0.92)
    pt3dadd(-4465.47,5311.04,-2174.92,0.92)
    pt3dadd(-4483.51,5316.38,-2164.87,0.92)
    pt3dadd(-4495.21,5323.29,-2155.27,0.92)
}
dend[204]{
    pt3dadd(-4495.21,5323.29,-2155.27,0.92)
    pt3dadd(-4504.88,5327.69,-2143.97,0.92)
    pt3dadd(-4513.43,5330.79,-2133.83,0.92)
    pt3dadd(-4513.21,5334.21,-2125.73,0.92)
}
dend[205]{
    pt3dadd(-4513.21,5334.21,-2125.73,0.92)
    pt3dadd(-4513.11,5337.37,-2123.52,0.616)
    pt3dadd(-4537.17,5346.38,-2118.55,0.616)
    pt3dadd(-4549.06,5351.78,-2108.93,0.616)
    pt3dadd(-4557.53,5359.91,-2092.27,0.616)
}
dend[206]{
    pt3dadd(-4557.53,5359.91,-2092.27,0.616)
    pt3dadd(-4563.6,5359.1,-2087.09,0.616)
    pt3dadd(-4569.8,5364.14,-2078.95,0.616)
    pt3dadd(-4569.56,5373.27,-2075.84,0.616)
    pt3dadd(-4579.15,5373.04,-2070.79,0.616)
}
//dend43
dend[207]{
    pt3dadd(-4412.47,5281.48,-2210.42,1.536)
    pt3dadd(-4418.78,5287.48,-2201.04,0.92)
    pt3dadd(-4418.54,5289.45,-2198.5,0.92)
}
dend[208]{
    pt3dadd(-4418.54,5289.45,-2198.5,0.92)
    pt3dadd(-4431.87,5297.72,-2190.92,0.92)
    pt3dadd(-4452.01,5306.92,-2180.2,0.92)
    pt3dadd(-4463.26,5316.28,-2172.36,0.92)
}
dend[209]{
    pt3dadd(-4463.26,5316.28,-2172.36,0.92)
    pt3dadd(-4472.76,5327.18,-2158.54,0.92)
    pt3dadd(-4483.89,5339.74,-2147.84,0.92)
    pt3dadd(-4494.08,5344.51,-2140.84,0.92)
}
dend[210]{
    pt3dadd(-4494.08,5344.51,-2140.84,0.92)
    pt3dadd(-4495.47,5345.44,-2138.18,0.92)
    pt3dadd(-4503.73,5348.64,-2136.01,0.92)
}
dend[211]{
    pt3dadd(-4503.73,5348.64,-2136.01,0.92)
    pt3dadd(-4503.41,5355.89,-2134.98,0.92)
    pt3dadd(-4503.18,5362.38,-2129.66,0.92)
    pt3dadd(-4516.48,5366.92,-2123.77,0.92)
}
dend[212]{
    pt3dadd(-4516.48,5366.92,-2123.77,0.92)
    pt3dadd(-4525.82,5372.56,-2111.97,0.92)
    pt3dadd(-4543.22,5377.65,-2107.07,0.92)
    pt3dadd(-4551.89,5384.92,-2100.05,0.92)
}
dend[213]{
    pt3dadd(-4551.89,5384.92,-2100.05,0.92)
    pt3dadd(-4560.85,5388.94,-2089.38,0.92)
    pt3dadd(-4563.38,5398.34,-2085.71,0.616)
    pt3dadd(-4562.89,5404.44,-2074.22,0.616)
}
dend[214]{ 
    pt3dadd(-4562.89,5404.44,-2074.22,0.616)
    pt3dadd(-4576.7,5417.26,-2057.85,0.616)
    pt3dadd(-4588.88,5425.47,-2051.41,0.616)
    pt3dadd(-4600.87,5434.87,-2035.89,0.616)
}
dend[215]{
    pt3dadd(-4600.87,5434.87,-2035.89,0.616)
    pt3dadd(-4614.86,5455.07,-2029.58,0.616)
    pt3dadd(-4626.72,5468.53,-2019.57,0.616)
    pt3dadd(-4629.49,5475.49,-2010.41,0.616)
}
//dend44
dend[216]{
    pt3dadd(-4396.39,5265.57,-2211.35,1.6)
    pt3dadd(-4390.72,5273.99,-2207.85,0.92)
    pt3dadd(-4398.21,5286.57,-2206.06,0.92)
}
dend[217]{
    pt3dadd(-4398.21,5286.57,-2206.06,0.92)
    pt3dadd(-4408.79,5296.53,-2202.27,0.92)
    pt3dadd(-4414.14,5303.98,-2189.99,0.92)
    pt3dadd(-4418.04,5311.74,-2187.39,0.92)
}
dend[218]{
    pt3dadd(-4418.04,5311.74,-2187.39,0.92)
    pt3dadd(-4417.5,5320.75,-2184.03,0.92)
    pt3dadd(-4419.52,5323.17,-2184.84,0.92)
    pt3dadd(-4419.32,5327.84,-2187.08,0.92)
}
dend[219]{
    pt3dadd(-4419.32,5327.84,-2187.08,0.92)
    pt3dadd(-4437.11,5340.92,-2188.17,0.92)
    pt3dadd(-4448.58,5355.07,-2181.86,0.92)
    pt3dadd(-4461.65,5364.4,-2176.8,0.92)
}
dend[220]{
    pt3dadd(-4461.65,5364.4,-2176.8,0.92)
    pt3dadd(-4473.55,5374.96,-2173.43,0.92)
    pt3dadd(-4478.88,5392,-2163.63,0.92)
}
//dend45
dend[221]{
    pt3dadd(-4478.88,5392,-2163.63,0.92)
    pt3dadd(-4476.78,5399.29,-2161.31,0.92)
    pt3dadd(-4476.66,5405.84,-2161.98,0.92)
}
dend[222]{
    pt3dadd(-4476.66,5405.84,-2161.98,0.92)
    pt3dadd(-4489.29,5416.38,-2158.2,0.92)
    pt3dadd(-4500.45,5427.26,-2147.15,0.92)
    pt3dadd(-4505.05,5443.72,-2136.71,0.92)
}
dend[223]{
    pt3dadd(-4505.05,5443.72,-2136.71,0.92)
    pt3dadd(-4504.61,5456.05,-2126.1,0.92)
    pt3dadd(-4507.41,5491.16,-2101.44,0.92)
    pt3dadd(-4515.94,5507.92,-2089.66,0.92)
    pt3dadd(-4522.19,5518.24,-2082.36,0.92)
}
dend[224]{
    pt3dadd(-4522.19,5518.24,-2082.36,0.92)
    pt3dadd(-4530.65,5526.03,-2072.42,0.92)
    pt3dadd(-4539.93,5537.1,-2062.99,0.92)
    pt3dadd(-4548.76,5553.34,-2051.03,0.92)
}
dend[225]{
    pt3dadd(-4548.76,5553.34,-2051.03,0.92)
    pt3dadd(-4556.47,5558.89,-2037.45,0.92)
    pt3dadd(-4565.85,5561.33,-2032.35,0.92)
    pt3dadd(-4567.36,5564.21,-2029.31,0.92)
}
//dend46
dend[226]{
    pt3dadd(-4478.88,5392,-2163.63,0.92)
    pt3dadd(-4480.12,5392.69,-2159.81,0.616)
}
dend[227]{ 
    pt3dadd(-4480.12,5392.69,-2159.81,0.616)
    pt3dadd(-4490.91,5396.34,-2153.09,0.616)
    pt3dadd(-4502.16,5405.52,-2152.1,0.616)
}
dend[228]{ 
    pt3dadd(-4502.16,5405.52,-2152.1,0.616)
    pt3dadd(-4510.05,5415.3,-2146.2,0.616)
    pt3dadd(-4510.45,5420.81,-2133.92,0.616)
}
dend[229]{
    pt3dadd(-4510.45,5420.81,-2133.92,0.616)
    pt3dadd(-4509.7,5435.98,-2126.03,0.616)
    pt3dadd(-4508.93,5456.37,-2106.5,0.616)
}
dend[230]{
    pt3dadd(-4508.93,5456.37,-2106.5,0.616)
    pt3dadd(-4532.34,5459.48,-2091.4,0.616)
    pt3dadd(-4542.7,5465.42,-2079.33,0.616)
}
dend[231]{
    pt3dadd(-4542.7,5465.42,-2079.33,0.616)
    pt3dadd(-4553.85,5467.25,-2065.83,0.616)
    pt3dadd(-4564.14,5469.94,-2046.31,0.616)
}
dend[232]{
    pt3dadd(-4564.14,5469.94,-2046.31,0.616)
    pt3dadd(-4572.56,5470.93,-2026.89,0.616)
    pt3dadd(-4572.24,5475.73,-2014.88,0.616)
}
//dend47
dend[233]{
    pt3dadd(-4378.5,5243.76,-2219.14,1.6)
    pt3dadd(-4380.18,5243.63,-2214.66,0.92)
    pt3dadd(-4389.94,5250.8,-2203.65,0.92)
}
dend[234]{
    pt3dadd(-4389.94,5250.8,-2203.65,0.92)
    pt3dadd(-4398.06,5255.77,-2188.49,0.92)
    pt3dadd(-4409.57,5263.7,-2177.2,0.92)
    pt3dadd(-4412.94,5264.77,-2170.3,0.92)
}
dend[235]{
    pt3dadd(-4412.94,5264.77,-2170.3,0.92)
    pt3dadd(-4419.3,5268.19,-2169.09,0.92)
    pt3dadd(-4419.01,5274.18,-2160.21,0.92)
    pt3dadd(-4418.85,5279.06,-2156.59,0.92)
}
dend[236]{
    pt3dadd(-4418.85,5279.06,-2156.59,0.92)
    pt3dadd(-4425.61,5283.99,-2147.03,0.92)
    pt3dadd(-4441.45,5290.53,-2138.67,0.92)
    pt3dadd(-4456.17,5303.89,-2132.12,0.92)
}
dend[237]{
    pt3dadd(-4456.17,5303.89,-2132.12,0.92)
    pt3dadd(-4469.3,5311.84,-2121.83,0.92)
    pt3dadd(-4477.34,5327.87,-2121.46,0.92)
    pt3dadd(-4486.01,5344.28,-2108.98,0.92)
}
dend[238]{
    pt3dadd(-4486.01,5344.28,-2108.98,0.92)
    pt3dadd(-4486.45,5348.97,-2098.12,0.616)
    pt3dadd(-4500.05,5358.64,-2090.96,0.616)
    pt3dadd(-4509.11,5367.92,-2075.57,0.616)
}
dend[239]{ 
    pt3dadd(-4509.11,5367.92,-2075.57,0.616)
    pt3dadd(-4508.8,5378.48,-2070.36,0.616)
    pt3dadd(-4508.58,5384.18,-2064.85,0.616)
}
//---------------------------------------------------------
//dend48
dend[240]{
    pt3dadd(-4372.52,5225.59,-2262.91,2)
    pt3dadd(-4370.24,5233.69,-2276.69,1.6)
    pt3dadd(-4370.36,5231.46,-2281.19,1.6)
    pt3dadd(-4362.74,5226.7,-2284.11,1.6)
    pt3dadd(-4354.23,5222.55,-2294.81,1.6)
}
dend[241]{
    pt3dadd(-4354.23,5222.55,-2294.81,1.6)
    pt3dadd(-4337.38,5216.04,-2304.27,1.6)
    pt3dadd(-4325.71,5204.73,-2310.72,1.536)
    pt3dadd(-4313.8,5189.84,-2324.65,1.536)
    pt3dadd(-4302.52,5178.61,-2329.12,1.232)
}
dend[242]{
    pt3dadd(-4302.52,5178.61,-2329.12,1.232)
    pt3dadd(-4302.8,5168.47,-2325.06,0.92)
    pt3dadd(-4295.5,5156.21,-2321.75,0.92)
    pt3dadd(-4280.38,5146.75,-2326.36,0.92)
    pt3dadd(-4271.1,5133.17,-2332.84,0.92)
}
dend[243]{
    pt3dadd(-4271.1,5133.17,-2332.84,0.92)
    pt3dadd(-4260.74,5120.27,-2336.97,0.92)
    pt3dadd(-4248.66,5106.2,-2342.84,0.92)
    pt3dadd(-4239.64,5097.27,-2345.2,0.92)
    pt3dadd(-4233.89,5085.13,-2346.14,0.92)
}
dend[244]{ 
    pt3dadd(-4233.89,5085.13,-2346.14,0.92)
    pt3dadd(-4234.15,5074.42,-2348.6,0.92)
    pt3dadd(-4215.86,5062.28,-2352.62,0.92)
    pt3dadd(-4203.55,5047,-2352.93,0.92)
    pt3dadd(-4197.04,5031.53,-2356.81,0.92)
    pt3dadd(-4194.95,5026.17,-2356.15,0.92)
}
//dend49
dend[245]{
    pt3dadd(-4194.95,5026.17,-2356.15,0.92)
    pt3dadd(-4194.44,5017.4,-2351.14,0.616)
    pt3dadd(-4179.95,5009.27,-2351.73,0.616)
}
dend[246]{
    pt3dadd(-4179.95,5009.27,-2351.73,0.616)
    pt3dadd(-4170.35,5003.86,-2350,0.616)
    pt3dadd(-4164.44,4991.97,-2350.6,0.616)
}
dend[247]{
    pt3dadd(-4164.44,4991.97,-2350.6,0.616)
    pt3dadd(-4164.61,4986.5,-2353.65,0.616)
    pt3dadd(-4144.25,4972.34,-2347.37,0.616)
    pt3dadd(-4136.58,4955.17,-2341.99,0.616)
}
dend[248]{
    pt3dadd(-4136.58,4955.17,-2341.99,0.616)
    pt3dadd(-4132.45,4941.08,-2341.64,0.616)
    pt3dadd(-4132.92,4923.03,-2347.13,0.616)
    pt3dadd(-4133.47,4902.46,-2354.72,0.616)
}
dend[249]{
    pt3dadd(-4133.47,4902.46,-2354.72,0.616)
    pt3dadd(-4133.92,4898.2,-2366.79,0.616) //was 0.624
    pt3dadd(-4126.28,4893.66,-2368.48,0.616) //was 0.624
    pt3dadd(-4121.39,4889.9,-2369.88,0.616) //was 0.624
}
//dend50
dend[250]{
    pt3dadd(-4194.95,5026.17,-2356.15,0.92)
    pt3dadd(-4190.51,5014.97,-2357.76,0.616)
    pt3dadd(-4175.93,5007.93,-2362.86,0.616)
}
//dend51
dend[251]{
    pt3dadd(-4175.93,5007.93,-2362.86,0.616)
    pt3dadd(-4183.41,5000.52,-2362.58,0.616)
    pt3dadd(-4183.25,4996.86,-2365.47,0.616)
}
dend[252]{ 
    pt3dadd(-4183.25,4996.86,-2365.47,0.616)
    pt3dadd(-4180.58,4991.95,-2366.71,0.304)
    pt3dadd(-4167.25,4986.8,-2369.5,0.304)
}
dend[253]{
    pt3dadd(-4167.25,4986.8,-2369.5,0.304)
    pt3dadd(-4161.93,4986.92,-2376.06,0.304)
    pt3dadd(-4161.99,4989.32,-2381.78,0.304)
}
//dend52
dend[254]{
    pt3dadd(-4175.93,5007.93,-2362.86,0.616)
    pt3dadd(-4182.4,5000.4,-2363.82,0.616)
}
dend[255]{
    pt3dadd(-4182.4,5000.4,-2363.82,0.616)
    pt3dadd(-4164.56,4997.87,-2371.45,0.616)
    pt3dadd(-4165.69,4992.1,-2370.46,0.616)
}
dend[256]{
    pt3dadd(-4165.69,4992.1,-2370.46,0.616)
    pt3dadd(-4165.86,4987.69,-2375.12,0.616)
    pt3dadd(-4166.19,4984.28,-2381.04,0.304)
}
dend[257]{
    pt3dadd(-4166.19,4984.28,-2381.04,0.304)
    pt3dadd(-4139.64,4969.11,-2387.46,0.304)
    pt3dadd(-4125.75,4951.03,-2393.95,0.304)
}
dend[258]{
    pt3dadd(-4125.75,4951.03,-2393.95,0.304)
    pt3dadd(-4113.38,4932.17,-2402.74,0.304)
    pt3dadd(-4104.47,4921.72,-2408.54,0.304)
}
dend[259]{
    pt3dadd(-4104.47,4921.72,-2408.54,0.304)
    pt3dadd(-4104.73,4912.67,-2412.93,0.304)
    pt3dadd(-4104.93,4904.71,-2415.11,0.304) //was 0.624
}
dend[260]{
    pt3dadd(-4104.93,4904.71,-2415.11,0.304) //was 0.624
    pt3dadd(-4104.94,4899.7,-2410.29,0.304) //was 0.624
    pt3dadd(-4105.29,4877,-2404.34,0.304) //was 0.624
}
//-----------------------------------------------------
//dend53
dend[261]{
    pt3dadd(-4371.69,5242.77,-2269.88,2)
    pt3dadd(-4369.78,5240.45,-2259.41,1.536)
    pt3dadd(-4369.61,5245.82,-2256.02,1.232)
    pt3dadd(-4380.61,5248.61,-2251.31,1.232)
    pt3dadd(-4393.09,5248.55,-2236.53,1.232)
}
dend[262]{
    pt3dadd(-4393.09,5248.55,-2236.53,1.232)
    pt3dadd(-4398.65,5245.66,-2224.79,1.232)
    pt3dadd(-4409.83,5230.11,-2209.83,1.232)
    pt3dadd(-4413.94,5232.63,-2204.87,1.232)
    pt3dadd(-4414.03,5226.71,-2195.42,1.232)
}
dend[263]{ 
    pt3dadd(-4414.03,5226.71,-2195.42,1.232)
    pt3dadd(-4413.83,5229.26,-2187.54,1.232)
    pt3dadd(-4413.69,5233.03,-2183.75,1.232)
    pt3dadd(-4415.61,5232.29,-2176.31,1.232)
    pt3dadd(-4421.69,5227.13,-2166.8,1.232)
}
dend[264]{
    pt3dadd(-4421.69,5227.13,-2166.8,1.232)
    pt3dadd(-4432.08,5222.35,-2152.33,1.232)
    pt3dadd(-4441.21,5211.05,-2134.4,1.232)
    pt3dadd(-4451.29,5208.82,-2122.06,1.232)
    pt3dadd(-4461.26,5212.86,-2110.85,1.232)
}
dend[265]{
    pt3dadd(-4461.26,5212.86,-2110.85,1.232)
    pt3dadd(-4467.17,5212.01,-2096.59,1.232)
    pt3dadd(-4477.02,5209.15,-2086.42,1.232)
    pt3dadd(-4486.6,5203.76,-2075.72,1.232)
    pt3dadd(-4494.83,5204.2,-2069.09,1.232)
}
dend[266]{
    pt3dadd(-4494.83,5204.2,-2069.09,1.232)
    pt3dadd(-4495.63,5199.6,-2060.7,1.232)
    pt3dadd(-4503.09,5200.24,-2051.61,1.232)
    pt3dadd(-4502.84,5202.24,-2040.49,1.232)
    pt3dadd(-4513.87,5198.01,-2029.99,1.232)
}
dend[267]{
    pt3dadd(-4513.87,5198.01,-2029.99,1.232)
    pt3dadd(-4526.99,5199.34,-2019.6,1.232)
    pt3dadd(-4535.11,5198.83,-2006.26,1.232)
    pt3dadd(-4540.17,5195.78,-1991.1,1.232)
    pt3dadd(-4540.16,5189.12,-1983.45,1.232)
}
dend[268]{
    pt3dadd(-4540.16,5189.12,-1983.45,1.232)
    pt3dadd(-4548.39,5189.45,-1976.9,1.232)
    pt3dadd(-4554.63,5184.43,-1960.05,0.92)
    pt3dadd(-4560.96,5181.78,-1950.6,0.92)
    pt3dadd(-4567.19,5182.97,-1940.34,0.92)
}
dend[269]{
    pt3dadd(-4567.19,5182.97,-1940.34,0.92)
    pt3dadd(-4567.2,5180.99,-1938.67,0.92)
    pt3dadd(-4567.27,5175.14,-1936.24,0.92)
    pt3dadd(-4598.61,5176.69,-1928.11,0.92)
    pt3dadd(-4609.98,5181.9,-1913.84,0.92)
}
dend[270]{
    pt3dadd(-4609.98,5181.9,-1913.84,0.92)
    pt3dadd(-4615.23,5177.35,-1899.8,0.92)
    pt3dadd(-4624.08,5178.9,-1888.3,0.92)
    pt3dadd(-4626.1,5176.34,-1875.72,0.92)
    pt3dadd(-4626.11,5169.36,-1877.22,0.304)
}
dend[271]{
    pt3dadd(-4626.11,5169.36,-1877.22,0.304)
    pt3dadd(-4630.73,5165.05,-1876.28,0.304)
    pt3dadd(-4638.71,5162.55,-1868.87,0.304)
    pt3dadd(-4638.7,5157,-1862.66,0.304)
    pt3dadd(-4638.9,5147.9,-1863.52,0.304)
    pt3dadd(-4638.77,5149.68,-1858.35,0.304)
}
//------------------------------------------------
//dend54
dend[272]{
    pt3dadd(-4371.69,5242.77,-2269.88,2)
    pt3dadd(-4372.84,5247.97,-2274.29,1.232)
    pt3dadd(-4386.3,5255.67,-2273.22,1.232)
}
dend[273]{
    pt3dadd(-4386.3,5255.67,-2273.22,1.232)
    pt3dadd(-4402.95,5258.7,-2265.11,1.232)
    pt3dadd(-4414.63,5265.16,-2261.63,1.232)
}
dend[274]{
    pt3dadd(-4414.63,5265.16,-2261.63,1.232)
    pt3dadd(-4418.03,5266.34,-2256.32,1.232)
    pt3dadd(-4417.64,5272.9,-2242.56,0.624)
}
dend[275]{
    pt3dadd(-4417.64,5272.9,-2242.56,0.624)
    pt3dadd(-4436.5,5289.08,-2233.25,0.624)
    pt3dadd(-4445.69,5304.83,-2232.02,0.624)
    pt3dadd(-4459.2,5322.71,-2228.79,0.624)
}
dend[276]{ 
    pt3dadd(-4459.2,5322.71,-2228.79,0.624)
    pt3dadd(-4472.72,5345.15,-2215.34,0.624)
    pt3dadd(-4480.44,5360.1,-2204.82,0.624)
}

//-----------------------------------------------
//dend55
dend[277]{
    pt3dadd(-4371.69,5242.77,-2269.88,2)
    pt3dadd(-4351.31,5244.22,-2263.69,1.232)
    pt3dadd(-4365.77,5247.32,-2255.98,1.232)
    pt3dadd(-4364.7,5250.98,-2249.91,1.232)
}
//dend56
dend[278]{
    pt3dadd(-4364.7,5250.98,-2249.91,1.232)
    pt3dadd(-4371.88,5258.21,-2241.75,1.232)
}
dend[279]{
    pt3dadd(-4371.88,5258.21,-2241.75,1.232)
    pt3dadd(-4384.44,5263.23,-2236.29,0.92)
    pt3dadd(-4397.61,5269.74,-2226.68,0.92)
}
dend[280]{
    pt3dadd(-4397.61,5269.74,-2226.68,0.92)
    pt3dadd(-4406.43,5275.79,-2218.48,0.92)
    pt3dadd(-4414.59,5282.53,-2214.95,0.92)
}
//dend57
dend[281]{
    pt3dadd(-4414.59,5282.53,-2214.95,0.92)
    pt3dadd(-4412.95,5294.33,-2210.28,0.92)
    pt3dadd(-4412.81,5301.83,-2210.88,0.304)
    pt3dadd(-4408.86,5309.04,-2211.41,0.304)
    pt3dadd(-4405.27,5311.03,-2217.73,0.304)
}
//dend58
dend[282]{
    pt3dadd(-4405.27,5311.03,-2217.73,0.304)
    pt3dadd(-4404.06,5314.21,-2219.3,0.304)
    pt3dadd(-4404.14,5315.79,-2225.28,0.304)
}
//dend59
dend[283]{
    pt3dadd(-4405.27,5311.03,-2217.73,0.304)
    pt3dadd(-4405.28,5308.03,-2222.93,0.304)
    pt3dadd(-4405.48,5302.6,-2227.97,0.304)
    pt3dadd(-4405.66,5298.49,-2233.46,0.304)
}
//dend60
dend[284]{
    pt3dadd(-4414.59,5282.53,-2214.95,0.92)
    pt3dadd(-4410.16,5285.27,-2208.81,0.616)
    pt3dadd(-4415.3,5289.04,-2205.07,0.92)
}
//dend61
dend[285]{
    pt3dadd(-4364.7,5250.98,-2249.91,1.232)
    pt3dadd(-4376.84,5254.29,-2244.2,0.92)
}
dend[286]{
    pt3dadd(-4376.84,5254.29,-2244.2,0.92)
    pt3dadd(-4404.46,5262.19,-2231.51,0.92)
    pt3dadd(-4410.07,5267.44,-2223.61,0.616)
}
dend[287]{
    pt3dadd(-4410.07,5267.44,-2223.61,0.616)
    pt3dadd(-4418.57,5267.63,-2216.12,0.616)
    pt3dadd(-4418.44,5268.38,-2209.77,0.616)
}


//length of axon 3267.7 um
initseg[0]{
    pt3dadd(-4372.52,5225.59,-2262.91,2) 
    pt3dadd(-4369.7,5233.91,-2252.26,2) 
    pt3dadd(-4369.37,5232.86,-2237.49,1.4) 
}


node[0]{  //if it is too large, then it activates soma passively 
        // pt3dadd(-1698.89,-598.055,6.525,5.704)
    pt3dadd(-4369.37,5232.86,-2237.49,1.4) 
    pt3dadd(-4369.07,5232.64,-2236.56,1.4) 
}
MYSA[0]{
    pt3dadd(-4369.07,5232.64,-2236.56,1.4) 
    pt3dadd(-4368.63,5232.3,-2235.17,1.4) 
}
FLUT[0]{
    pt3dadd(-4368.63,5232.3,-2235.17,1.6) 
    pt3dadd(-4367.13,5231.18,-2230.53,1.6) 
}
STIN[0]{
    pt3dadd(-4367.13,5231.18,-2230.53,1.6) 
    pt3dadd(-4358.45,5224.66,-2203.64,1.6) 
}
STIN[1]{
    pt3dadd(-4358.45,5224.66,-2203.64,1.6) 
    pt3dadd(-4355.29,5222.28,-2193.83,1.6) 
    pt3dadd(-4350.16,5211.2,-2190.32,1.6) 
    pt3dadd(-4350.32,5205.61,-2189.14,1.6) 
}
STIN[2]{
    pt3dadd(-4350.32,5205.61,-2189.14,1.6) 
    pt3dadd(-4350.51,5198.72,-2187.68,1.6) 
    pt3dadd(-4329.25,5193.71,-2189.78,1.6) 
}
FLUT[1]{
    pt3dadd(-4329.25,5193.71,-2189.78,1.6) 
    pt3dadd(-4324.4,5192.57,-2190.26,1.6) 
}
MYSA[1]{
    pt3dadd(-4324.4,5192.57,-2190.26,1.4) 
    pt3dadd(-4322.95,5192.23,-2190.4,1.4) 
}
node[1]{
    pt3dadd(-4322.95,5192.23,-2190.4,1.4) 
    pt3dadd(-4321.98,5192,-2190.5,1.4) 
}
MYSA[2]{
    pt3dadd(-4321.98,5192,-2190.5,1.4) 
    pt3dadd(-4320.53,5191.66,-2190.64,1.4) 
}
FLUT[2]{
    pt3dadd(-4320.53,5191.66,-2190.64,1.6) 
    pt3dadd(-4315.68,5190.51,-2191.12,1.6) 
}
STIN[3]{
    pt3dadd(-4315.68,5190.51,-2191.12,1.6) 
    pt3dadd(-4296.03,5185.89,-2193.06,1.6) 
    pt3dadd(-4294.46,5177.49,-2194.81,1.6) 
}
STIN[4]{
    pt3dadd(-4294.46,5177.49,-2194.81,1.6) 
    pt3dadd(-4293.95,5174.77,-2195.38,1.6) 
    pt3dadd(-4294.6,5158.92,-2205.1,1.6) 
    pt3dadd(-4287.29,5157.29,-2206.23,1.6) 
}
STIN[5]{
    pt3dadd(-4287.29,5157.29,-2206.23,1.6) 
    pt3dadd(-4259.3,5151.05,-2210.56,1.6) 
}
FLUT[3]{
    pt3dadd(-4259.3,5151.05,-2210.56,1.6) 
    pt3dadd(-4254.48,5149.97,-2211.31,1.6) 
}
MYSA[3]{
    pt3dadd(-4254.48,5149.97,-2211.31,1.4) 
    pt3dadd(-4253.03,5149.65,-2211.53,1.4) 
}
node[2]{
    pt3dadd(-4253.03,5149.65,-2211.53,1.4) 
    pt3dadd(-4252.07,5149.43,-2211.68,1.4) 
}
MYSA[4]{
    pt3dadd(-4252.07,5149.43,-2211.68,1.4) 
    pt3dadd(-4250.62,5149.11,-2211.91,1.4) 
}
FLUT[4]{
    pt3dadd(-4250.62,5149.11,-2211.91,1.6) 
    pt3dadd(-4245.79,5148.04,-2212.65,1.6) 
}
STIN[6]{
    pt3dadd(-4245.79,5148.04,-2212.65,1.6) 
    pt3dadd(-4230.99,5144.74,-2214.94,1.6) 
    pt3dadd(-4229.19,5142.05,-2225.64,1.6) 
    pt3dadd(-4229.32,5140.73,-2227.75,1.6) 
}
STIN[7]{
    pt3dadd(-4229.32,5140.73,-2227.75,1.6) 
    pt3dadd(-4229.47,5139.32,-2230,1.6) 
    pt3dadd(-4229.53,5135.57,-2229.04,1.6) 
    pt3dadd(-4210.04,5136.83,-2217.94,1.6) 
}
STIN[8]{
    pt3dadd(-4210.04,5136.83,-2217.94,1.6) 
    pt3dadd(-4206.68,5137.05,-2216.02,1.6) 
    pt3dadd(-4201.46,5144.65,-2192.65,1.6) 
}
FLUT[5]{
    pt3dadd(-4201.46,5144.65,-2192.65,1.6) 
    pt3dadd(-4200.42,5146.16,-2188,1.6) 
}
MYSA[5]{
    pt3dadd(-4200.42,5146.16,-2188,1.4) 
    pt3dadd(-4200.11,5146.62,-2186.61,1.4) 
}
node[3]{
    pt3dadd(-4200.11,5146.62,-2186.61,1.4) 
    pt3dadd(-4199.9,5146.92,-2185.68,1.4) 
}
MYSA[6]{
    pt3dadd(-4199.9,5146.92,-2185.68,1.4) 
    pt3dadd(-4199.28,5147.83,-2182.89,1.4) 
}
FLUT[6]{
    pt3dadd(-4199.28,5147.83,-2182.89,1.6) 
    pt3dadd(-4198.42,5149.08,-2179.04,1.6) 
    pt3dadd(-4195.95,5151.62,-2174.37,1.6) 
}
STIN[9]{
    pt3dadd(-4195.95,5151.62,-2174.37,1.6) 
    pt3dadd(-4185.22,5162.66,-2154.09,1.6) 
    pt3dadd(-4160.74,5176.01,-2145.38,1.6) 
    pt3dadd(-4159.63,5178.91,-2144.18,1.6) 
}
STIN[10]{
    pt3dadd(-4159.63,5178.91,-2144.18,1.6) 
    pt3dadd(-4155.84,5188.79,-2140.07,1.6) 
    pt3dadd(-4155.51,5199.54,-2133.75,1.6) 
    pt3dadd(-4122.82,5207.68,-2139.51,1.6) 
}
STIN[11]{
    pt3dadd(-4122.82,5207.68,-2139.51,1.6) 
    pt3dadd(-4100.86,5213.15,-2143.37,1.6) 
    pt3dadd(-4096.25,5219.6,-2154.72,1.6) 
    pt3dadd(-4096.31,5232.47,-2163.75,1.6) 
    pt3dadd(-4091.75,5233.84,-2166.46,1.6) 
}
FLUT[7]{
    pt3dadd(-4091.75,5233.84,-2166.46,1.6) 
    pt3dadd(-4083.43,5236.33,-2171.41,1.6) 
}
MYSA[7]{
    pt3dadd(-4083.43,5236.33,-2171.41,1.4) 
    pt3dadd(-4080.93,5237.08,-2172.89,1.4) 
}
node[4]{
    pt3dadd(-4080.93,5237.08,-2172.89,1.4) 
    pt3dadd(-4080.1,5237.33,-2173.38,1.4) 
}
MYSA[8]{
    pt3dadd(-4080.1,5237.33,-2173.38,1.4) 
    pt3dadd(-4077.6,5238.07,-2174.87,1.4) 
}
FLUT[8]{
    pt3dadd(-4077.6,5238.07,-2174.87,1.6) 
    pt3dadd(-4069.28,5240.57,-2179.82,1.6) 
}
STIN[12]{
    pt3dadd(-4069.28,5240.57,-2179.82,1.6) 
    pt3dadd(-4038.68,5249.73,-2198,1.6) 
    pt3dadd(-4034.93,5256.53,-2216.25,1.6) 
    pt3dadd(-4034.96,5256.74,-2217.65,1.6) 
}
STIN[13]{
    pt3dadd(-4034.96,5256.74,-2217.65,1.6) 
    pt3dadd(-4035.39,5259.56,-2236.17,1.6) 
    pt3dadd(-4003.87,5265.71,-2258.75,1.6) 
}
STIN[14]{
    pt3dadd(-4003.87,5265.71,-2258.75,1.6) 
    pt3dadd(-3976.85,5270.99,-2278.12,1.6) 
    pt3dadd(-3974.45,5279.35,-2284.59,1.6) 
    pt3dadd(-3961.08,5279.17,-2286.46,1.6) 
}
FLUT[9]{
    pt3dadd(-3961.08,5279.17,-2286.46,1.6) 
    pt3dadd(-3951.18,5279.04,-2287.84,1.6) 
}
MYSA[9]{
    pt3dadd(-3951.18,5279.04,-2287.84,1.4) 
    pt3dadd(-3948.21,5279,-2288.25,1.4) 
}
node[5]{
    pt3dadd(-3948.21,5279,-2288.25,1.4) 
    pt3dadd(-3947.22,5278.99,-2288.39,1.4) 
}
MYSA[10]{
    pt3dadd(-3947.22,5278.99,-2288.39,1.4) 
    pt3dadd(-3944.25,5278.95,-2288.81,1.4) 
}
FLUT[10]{
    pt3dadd(-3944.25,5278.95,-2288.81,1.6) 
    pt3dadd(-3934.34,5278.82,-2290.19,1.6) 
}
STIN[15]{
    pt3dadd(-3934.34,5278.82,-2290.19,1.6) 
    pt3dadd(-3923.14,5278.68,-2291.75,1.6) 
    pt3dadd(-3923.31,5282.8,-2305.64,1.6) 
    pt3dadd(-3894.3,5274.02,-2316.48,1.6) 
}
STIN[16]{
    pt3dadd(-3894.3,5274.02,-2316.48,1.6) 
    pt3dadd(-3862.38,5264.36,-2328.41,1.6) 
    pt3dadd(-3845.68,5249.26,-2330.12,1.6) 
}
STIN[17]{
    pt3dadd(-3845.68,5249.26,-2330.12,1.6) 
    pt3dadd(-3830.6,5235.63,-2331.66,1.6) 
    pt3dadd(-3831.05,5226.47,-2345.76,1.6) 
    pt3dadd(-3813.49,5217.35,-2352.19,1.6) 
}
FLUT[11]{
    pt3dadd(-3813.49,5217.35,-2352.19,1.6) 
    pt3dadd(-3805.05,5212.97,-2355.28,1.6) 
}
MYSA[11]{
    pt3dadd(-3805.05,5212.97,-2355.28,1.4) 
    pt3dadd(-3802.52,5211.65,-2356.21,1.4) 
}
node[6]{
    pt3dadd(-3802.52,5211.65,-2356.21,1.4) 
    pt3dadd(-3801.68,5211.21,-2356.52,1.4) 
}
MYSA[12]{
    pt3dadd(-3801.68,5211.21,-2356.52,1.4) 
    pt3dadd(-3799.15,5209.9,-2357.44,1.4) 
}
FLUT[12]{
    pt3dadd(-3799.15,5209.9,-2357.44,1.6) 
    pt3dadd(-3790.71,5205.51,-2360.53,1.6) 
}
STIN[18]{
    pt3dadd(-3790.71,5205.51,-2360.53,1.6) 
    pt3dadd(-3775.7,5197.71,-2366.03,1.6) 
    pt3dadd(-3771.85,5189.87,-2386.96,1.6) 
    pt3dadd(-3772.44,5176.17,-2397.89,1.6) 
}
STIN[19]{
    pt3dadd(-3772.44,5176.17,-2397.89,1.6) 
    pt3dadd(-3772.64,5171.5,-2401.61,1.6) 
    pt3dadd(-3740.12,5142.5,-2430.04,1.6) 
}
STIN[20]{
    pt3dadd(-3740.12,5142.5,-2430.04,1.6) 
    pt3dadd(-3715.78,5120.79,-2451.33,1.6) 
    pt3dadd(-3716.36,5111.31,-2467.84,1.6) 
}
FLUT[13]{
    pt3dadd(-3716.36,5111.31,-2467.84,1.6) 
    pt3dadd(-3716.66,5106.33,-2476.51,1.6) 
}
MYSA[13]{
    pt3dadd(-3716.66,5106.33,-2476.51,1.4) 
    pt3dadd(-3716.75,5104.84,-2479.11,1.4) 
}
node[7]{
    pt3dadd(-3716.75,5104.84,-2479.11,1.4) 
    pt3dadd(-3716.78,5104.34,-2479.98,1.4) 
}
MYSA[14]{
    pt3dadd(-3716.78,5104.34,-2479.98,1.4) 
    pt3dadd(-3716.87,5102.84,-2482.58,1.4) 
}
FLUT[14]{
    pt3dadd(-3716.87,5102.84,-2482.58,1.6) 
    pt3dadd(-3716.93,5101.81,-2484.37,1.6) 
    pt3dadd(-3711.96,5099.11,-2489.92,1.6) 
}
STIN[21]{
    pt3dadd(-3711.96,5099.11,-2489.92,1.6) 
    pt3dadd(-3675.61,5079.31,-2530.55,1.6) 
}
STIN[22]{
    pt3dadd(-3675.61,5079.31,-2530.55,1.6) 
    pt3dadd(-3657.67,5069.55,-2550.59,1.6) 
    pt3dadd(-3655.67,5064.08,-2563.54,1.6) 
    pt3dadd(-3656.08,5055.22,-2575.86,1.6) 
}
STIN[23]{
    pt3dadd(-3656.08,5055.22,-2575.86,1.6) 
    pt3dadd(-3656.36,5048.93,-2584.61,1.6) 
    pt3dadd(-3616.33,5026.68,-2596.09,1.6) 
}
FLUT[15]{
    pt3dadd(-3616.33,5026.68,-2596.09,1.6) 
    pt3dadd(-3607.85,5021.97,-2598.53,1.6) 
}
MYSA[15]{
    pt3dadd(-3607.85,5021.97,-2598.53,1.4) 
    pt3dadd(-3605.31,5020.55,-2599.25,1.4) 
}
node[8]{
    pt3dadd(-3605.31,5020.55,-2599.25,1.4) 
    pt3dadd(-3604.46,5020.08,-2599.5,1.4) 
}
MYSA[16]{
    pt3dadd(-3604.46,5020.08,-2599.5,1.4) 
    pt3dadd(-3601.91,5018.67,-2600.23,1.4) 
}
FLUT[16]{
    pt3dadd(-3601.91,5018.67,-2600.23,1.6) 
    pt3dadd(-3599.68,5017.43,-2600.87,1.6) 
    pt3dadd(-3599.88,5011.83,-2605.65,1.6) 
}
STIN[24]{
    pt3dadd(-3599.88,5011.83,-2605.65,1.6) 
    pt3dadd(-3600.49,4994.89,-2620.13,1.6) 
    pt3dadd(-3571.08,4978.88,-2632.51,1.6) 
}
STIN[25]{
    pt3dadd(-3571.08,4978.88,-2632.51,1.6) 
    pt3dadd(-3542.63,4963.39,-2644.49,1.6) 
    pt3dadd(-3525.44,4948.88,-2651.18,1.6) 
}
STIN[26]{
    pt3dadd(-3525.44,4948.88,-2651.18,1.6) 
    pt3dadd(-3510.56,4936.32,-2656.97,1.6) 
    pt3dadd(-3489.25,4919.84,-2667.85,1.6) 
    pt3dadd(-3489.42,4911.22,-2667.99,1.6) 
}
FLUT[17]{
    pt3dadd(-3489.42,4911.22,-2667.99,1.6) 
    pt3dadd(-3489.58,4903.35,-2668.12,1.6) 
    pt3dadd(-3487.66,4902.43,-2668.2,1.6) 
}
MYSA[17]{
    pt3dadd(-3487.66,4902.43,-2668.2,1.4) 
    pt3dadd(-3484.96,4901.14,-2668.32,1.4) 
}
node[9]{
    pt3dadd(-3484.96,4901.14,-2668.32,1.4) 
    pt3dadd(-3484.05,4900.71,-2668.36,1.4) 
}
MYSA[18]{
    pt3dadd(-3484.05,4900.71,-2668.36,1.4) 
    pt3dadd(-3481.35,4899.41,-2668.48,1.4) 
}
FLUT[18]{
    pt3dadd(-3481.35,4899.41,-2668.48,1.6) 
    pt3dadd(-3472.34,4895.1,-2668.88,1.6) 
}
STIN[27]{
    pt3dadd(-3472.34,4895.1,-2668.88,1.6) 
    pt3dadd(-3430.08,4874.89,-2670.76,1.6) 
    pt3dadd(-3430.44,4864.55,-2674.84,1.6) 
}
STIN[28]{
    pt3dadd(-3430.44,4864.55,-2674.84,1.6) 
    pt3dadd(-3430.79,4854.7,-2678.73,1.6) 
    pt3dadd(-3393.49,4826.25,-2685.6,1.6) 
}
STIN[29]{
    pt3dadd(-3393.49,4826.25,-2685.6,1.6) 
    pt3dadd(-3367.89,4806.72,-2690.32,1.6) 
    pt3dadd(-3352.6,4793.92,-2689.95,1.6) 
    pt3dadd(-3352.74,4789.12,-2692.66,1.6) 
}
FLUT[19]{
    pt3dadd(-3352.74,4789.12,-2692.66,1.6) 
    pt3dadd(-3353.01,4780.42,-2697.58,1.6) 
}
MYSA[19]{
    pt3dadd(-3353.01,4780.42,-2697.58,1.4) 
    pt3dadd(-3353.04,4779.46,-2698.12,1.4) 
    pt3dadd(-3351.2,4778.96,-2698.16,1.4) 
}
node[10]{
    pt3dadd(-3351.2,4778.96,-2698.16,1.4) 
    pt3dadd(-3350.24,4778.69,-2698.17,1.4) 
}
MYSA[20]{
    pt3dadd(-3350.24,4778.69,-2698.17,1.4) 
    pt3dadd(-3347.35,4777.9,-2698.23,1.4) 
}
FLUT[20]{
    pt3dadd(-3347.35,4777.9,-2698.23,1.6) 
    pt3dadd(-3337.7,4775.26,-2698.41,1.6) 
}
STIN[30]{
    pt3dadd(-3337.7,4775.26,-2698.41,1.6) 
    pt3dadd(-3307.12,4766.87,-2698.98,1.6) 
    pt3dadd(-3305.61,4780.05,-2687.22,1.6) 
    pt3dadd(-3312.35,4784.62,-2689.83,1.6) 
}
STIN[31]{
    pt3dadd(-3312.35,4784.62,-2689.83,1.6) 
    pt3dadd(-3331.54,4797.61,-2697.27,1.6) 
    pt3dadd(-3345.16,4805.11,-2712.11,1.6) 
    pt3dadd(-3345.2,4809.06,-2718.58,1.6) 
    pt3dadd(-3348.03,4811.6,-2721.14,1.6) 
}
STIN[32]{
    pt3dadd(-3348.03,4811.6,-2721.14,1.6) 
    pt3dadd(-3367.31,4828.89,-2738.58,1.6) 
    pt3dadd(-3391.36,4840.46,-2740.84,1.6) 
}
FLUT[21]{
    pt3dadd(-3391.36,4840.46,-2740.84,1.6) 
    pt3dadd(-3400.34,4844.78,-2741.69,1.6) 
}
MYSA[21]{
    pt3dadd(-3400.34,4844.78,-2741.69,1.4) 
    pt3dadd(-3403.03,4846.08,-2741.94,1.4) 
}
node[11]{
    pt3dadd(-3403.03,4846.08,-2741.94,1.4) 
    pt3dadd(-3403.93,4846.51,-2742.03,1.4) 
}
MYSA[22]{
    pt3dadd(-3403.93,4846.51,-2742.03,1.4) 
    pt3dadd(-3406.63,4847.81,-2742.28,1.4) 
}
FLUT[22]{
    pt3dadd(-3406.63,4847.81,-2742.28,1.6) 
    pt3dadd(-3415.6,4852.13,-2743.13,1.6) 
}
STIN[33]{
    pt3dadd(-3415.6,4852.13,-2743.13,1.6) 
    pt3dadd(-3420.56,4854.51,-2743.59,1.6) 
    pt3dadd(-3420.22,4872.87,-2745.16,1.6) 
    pt3dadd(-3450.23,4888.77,-2742.63,1.6) 
}
STIN[34]{
    pt3dadd(-3450.23,4888.77,-2742.63,1.6) 
    pt3dadd(-3476.13,4902.48,-2740.45,1.6) 
    pt3dadd(-3477.94,4922.02,-2740.59,1.6) 
    pt3dadd(-3481.17,4929.78,-2743.8,1.6) 
}
STIN[35]{
    pt3dadd(-3481.17,4929.78,-2743.8,1.6) 
    pt3dadd(-3486.35,4942.2,-2748.96,1.6) 
    pt3dadd(-3522.87,4963.62,-2738.63,1.6) 
}
FLUT[23]{
    pt3dadd(-3522.87,4963.62,-2738.63,1.6) 
    pt3dadd(-3529.74,4967.65,-2736.68,1.6) 
    pt3dadd(-3529.69,4969.04,-2735.54,1.6) 
}
MYSA[23]{
    pt3dadd(-3529.69,4969.04,-2735.54,1.4) 
    pt3dadd(-3529.61,4971.36,-2733.64,1.4) 
}
node[12]{
    pt3dadd(-3529.61,4971.36,-2733.64,1.4) 
    pt3dadd(-3529.58,4972.14,-2733,1.4) 
}
MYSA[24]{
    pt3dadd(-3529.58,4972.14,-2733,1.4) 
    pt3dadd(-3529.5,4974.46,-2731.1,1.4) 
}
FLUT[24]{
    pt3dadd(-3529.5,4974.46,-2731.1,1.6) 
    pt3dadd(-3529.24,4981.72,-2725.15,1.6) 
    pt3dadd(-3529.8,4981.95,-2725.06,1.6) 
}
STIN[36]{
    pt3dadd(-3529.8,4981.95,-2725.06,1.6) 
    pt3dadd(-3582.75,5004.07,-2716.66,1.6) 
}
STIN[37]{
    pt3dadd(-3582.75,5004.07,-2716.66,1.6) 
    pt3dadd(-3588.69,5006.56,-2715.72,1.6) 
    pt3dadd(-3588.43,5027.95,-2709.08,1.6) 
    pt3dadd(-3587.93,5043.97,-2699.38,1.6) 
    pt3dadd(-3596.27,5049.27,-2696.29,1.6) 
}
STIN[38]{
    pt3dadd(-3596.27,5049.27,-2696.29,1.6) 
    pt3dadd(-3643.02,5078.92,-2679,1.6) 
}
FLUT[25]{
    pt3dadd(-3643.02,5078.92,-2679,1.6) 
    pt3dadd(-3650.33,5083.56,-2676.29,1.6) 
    pt3dadd(-3650.32,5084.45,-2676.05,1.6) 
}
MYSA[25]{
    pt3dadd(-3650.32,5084.45,-2676.05,1.4) 
    pt3dadd(-3650.27,5087.35,-2675.26,1.4) 
}
node[13]{
    pt3dadd(-3650.27,5087.35,-2675.26,1.4) 
    pt3dadd(-3650.25,5088.31,-2675,1.4) 
}
MYSA[26]{
    pt3dadd(-3650.25,5088.31,-2675,1.4) 
    pt3dadd(-3650.2,5091.21,-2674.21,1.4) 
}
FLUT[26]{
    pt3dadd(-3650.2,5091.21,-2674.21,1.6) 
    pt3dadd(-3650.04,5100.86,-2671.59,1.6) 
}
STIN[39]{
    pt3dadd(-3650.04,5100.86,-2671.59,1.6) 
    pt3dadd(-3650.03,5101.74,-2671.35,1.6) 
    pt3dadd(-3700.61,5125.36,-2659.43,1.6) 
}
STIN[40]{
    pt3dadd(-3700.61,5125.36,-2659.43,1.6) 
    pt3dadd(-3701.23,5125.65,-2659.29,1.6) 
    pt3dadd(-3716.14,5152.85,-2646.72,1.6) 
    pt3dadd(-3703.46,5166.47,-2642.23,1.6) 
    pt3dadd(-3707.37,5168.87,-2641.18,1.6) 
}
STIN[41]{
    pt3dadd(-3707.37,5168.87,-2641.18,1.6) 
    pt3dadd(-3745.83,5192.53,-2630.84,1.6) 
    pt3dadd(-3751.32,5202.21,-2627.3,1.6) 
}
FLUT[27]{
    pt3dadd(-3751.32,5202.21,-2627.3,1.6) 
    pt3dadd(-3756.02,5210.5,-2624.28,1.6) 
}
MYSA[27]{
    pt3dadd(-3756.02,5210.5,-2624.28,1.4) 
    pt3dadd(-3757.44,5212.99,-2623.37,1.4) 
}
node[14]{
    pt3dadd(-3757.44,5212.99,-2623.37,1.4) 
    pt3dadd(-3757.91,5213.81,-2623.06,1.4) 
}
MYSA[28]{
    pt3dadd(-3757.91,5213.81,-2623.06,1.4) 
    pt3dadd(-3759.32,5216.3,-2622.16,1.4) 
}
FLUT[28]{
    pt3dadd(-3759.32,5216.3,-2622.16,1.6) 
    pt3dadd(-3759.69,5216.96,-2621.91,1.6) 
    pt3dadd(-3763.89,5223.64,-2617.18,1.6) 
}
STIN[42]{
    pt3dadd(-3763.89,5223.64,-2617.18,1.6) 
    pt3dadd(-3770.28,5233.8,-2609.97,1.6) 
    pt3dadd(-3799.81,5265.33,-2601.61,1.6) 
}
STIN[43]{
    pt3dadd(-3799.81,5265.33,-2601.61,1.6) 
    pt3dadd(-3816.41,5283.05,-2596.92,1.6) 
    pt3dadd(-3816.07,5295.81,-2592.37,1.6) 
    pt3dadd(-3815.86,5304.01,-2581.9,1.6) 
    pt3dadd(-3821.16,5307.17,-2580.1,1.6) 
}
STIN[44]{
    pt3dadd(-3821.16,5307.17,-2580.1,1.6) 
    pt3dadd(-3859.06,5329.79,-2567.24,1.6) 
    pt3dadd(-3868.9,5336.42,-2565.25,1.6) 
}
FLUT[29]{
    pt3dadd(-3868.9,5336.42,-2565.25,1.6) 
    pt3dadd(-3877.08,5341.93,-2563.6,1.6) 
}
MYSA[29]{
    pt3dadd(-3877.08,5341.93,-2563.6,1.4) 
    pt3dadd(-3879.53,5343.58,-2563.11,1.4) 
}
node[15]{
    pt3dadd(-3879.53,5343.58,-2563.11,1.4) 
    pt3dadd(-3880.35,5344.13,-2562.95,1.4) 
}
MYSA[30]{
    pt3dadd(-3880.35,5344.13,-2562.95,1.4) 
    pt3dadd(-3882.81,5345.78,-2562.45,1.4) 
}
FLUT[30]{
    pt3dadd(-3882.81,5345.78,-2562.45,1.6) 
    pt3dadd(-3890.99,5351.29,-2560.8,1.6) 
}
STIN[45]{
    pt3dadd(-3890.99,5351.29,-2560.8,1.6) 
    pt3dadd(-3909.07,5363.46,-2557.16,1.6) 
    pt3dadd(-3922.55,5396.33,-2551.97,1.6) 
}
STIN[46]{
    pt3dadd(-3922.55,5396.33,-2551.97,1.6) 
    pt3dadd(-3925.46,5403.4,-2550.85,1.6) 
    pt3dadd(-3924.91,5420.37,-2539.97,1.6) 
    pt3dadd(-3953.05,5430.32,-2535.97,1.6) 
}
STIN[47]{
    pt3dadd(-3953.05,5430.32,-2535.97,1.6) 
    pt3dadd(-3972.83,5437.31,-2533.16,1.6) 
    pt3dadd(-3983.13,5462.84,-2523.12,1.6) 
    pt3dadd(-3987.9,5467.98,-2520.38,1.6) 
}
FLUT[31]{
    pt3dadd(-3987.9,5467.98,-2520.38,1.6) 
    pt3dadd(-3994.24,5474.81,-2516.74,1.6) 
}
MYSA[31]{
    pt3dadd(-3994.24,5474.81,-2516.74,1.4) 
    pt3dadd(-3996.14,5476.86,-2515.65,1.4) 
}
node[16]{
    pt3dadd(-3996.14,5476.86,-2515.65,1.4) 
    pt3dadd(-3996.19,5476.91,-2515.63,1.4) 
    pt3dadd(-3996.97,5477.37,-2515.44,1.4) 
}
MYSA[32]{
    pt3dadd(-3996.97,5477.37,-2515.44,1.4) 
    pt3dadd(-3999.5,5478.86,-2514.82,1.4) 
}
FLUT[32]{
    pt3dadd(-3999.5,5478.86,-2514.82,1.6) 
    pt3dadd(-4007.94,5483.82,-2512.78,1.6) 
}
STIN[48]{
    pt3dadd(-4007.94,5483.82,-2512.78,1.6) 
    pt3dadd(-4032.4,5498.2,-2506.85,1.6) 
    pt3dadd(-4039.79,5516.17,-2505.76,1.6) 
    pt3dadd(-4039.59,5523.12,-2499.21,1.6) 
}
STIN[49]{
    pt3dadd(-4039.59,5523.12,-2499.21,1.6) 
    pt3dadd(-4039.23,5535.08,-2487.94,1.6) 
    pt3dadd(-4075.56,5555.12,-2485.55,1.6) 
}
STIN[50]{
    pt3dadd(-4075.56,5555.12,-2485.55,1.6) 
    pt3dadd(-4098.91,5568.01,-2484.01,1.6) 
    pt3dadd(-4108.41,5594.23,-2479.45,1.6) 
    pt3dadd(-4110.5,5595.77,-2477.88,1.6) 
}
FLUT[33]{
    pt3dadd(-4110.5,5595.77,-2477.88,1.6) 
    pt3dadd(-4117.38,5600.84,-2472.71,1.6) 
}
MYSA[33]{
    pt3dadd(-4117.38,5600.84,-2472.71,1.4) 
    pt3dadd(-4119.45,5602.37,-2471.15,1.4) 
}
node[17]{
    pt3dadd(-4119.45,5602.37,-2471.15,1.4) 
    pt3dadd(-4120.14,5602.87,-2470.64,1.4) 
}
MYSA[34]{
    pt3dadd(-4120.14,5602.87,-2470.64,1.4) 
    pt3dadd(-4122.21,5604.4,-2469.08,1.4) 
}
FLUT[34]{
    pt3dadd(-4122.21,5604.4,-2469.08,1.6) 
    pt3dadd(-4124.66,5606.21,-2467.24,1.6) 
    pt3dadd(-4129.99,5609.64,-2466.15,1.6) 
}
STIN[51]{
    pt3dadd(-4129.99,5609.64,-2466.15,1.6) 
    pt3dadd(-4163.45,5631.23,-2459.33,1.6) 
    pt3dadd(-4174.09,5643.39,-2452.34,1.6) 
}
STIN[52]{
    pt3dadd(-4174.09,5643.39,-2452.34,1.6) 
    pt3dadd(-4177.48,5647.26,-2450.12,1.6) 
    pt3dadd(-4188.55,5664.38,-2441.16,1.6) 
    pt3dadd(-4210.57,5683.96,-2434.87,1.6) 
}
STIN[53]{
    pt3dadd(-4210.57,5683.96,-2434.87,1.6) 
    pt3dadd(-4239.86,5710,-2426.51,1.6) 
    pt3dadd(-4239.69,5722.39,-2422.96,1.6) 
    pt3dadd(-4243.33,5725.38,-2421.17,1.6) 
}
FLUT[35]{
    pt3dadd(-4243.33,5725.38,-2421.17,1.6) 
    pt3dadd(-4250.55,5731.32,-2417.63,1.6) 
}
MYSA[35]{
    pt3dadd(-4250.55,5731.32,-2417.63,1.4) 
    pt3dadd(-4252.72,5733.1,-2416.57,1.4) 
}
node[18]{
    pt3dadd(-4252.72,5733.1,-2416.57,1.4) 
    pt3dadd(-4253.44,5733.7,-2416.22,1.4) 
}
MYSA[36]{
    pt3dadd(-4253.44,5733.7,-2416.22,1.4) 
    pt3dadd(-4255.61,5735.48,-2415.16,1.4) 
}
FLUT[36]{
    pt3dadd(-4255.61,5735.48,-2415.16,1.6) 
    pt3dadd(-4262.83,5741.42,-2411.61,1.6) 
}
STIN[54]{
    pt3dadd(-4262.83,5741.42,-2411.61,1.6) 
    pt3dadd(-4265.56,5743.66,-2410.28,1.6) 
    pt3dadd(-4279.2,5767.94,-2412.25,1.6) 
    pt3dadd(-4302.51,5780.1,-2411.3,1.6) 
}
STIN[55]{
    pt3dadd(-4302.51,5780.1,-2411.3,1.6) 
    pt3dadd(-4304.13,5780.95,-2411.23,1.6) 
    pt3dadd(-4324.82,5805.69,-2415.15,1.6) 
    pt3dadd(-4342.33,5820.1,-2408.32,1.6) 
}
STIN[56]{
    pt3dadd(-4342.33,5820.1,-2408.32,1.6) 
    pt3dadd(-4356.18,5831.5,-2402.92,1.6) 
    pt3dadd(-4378.63,5847.98,-2397.53,1.6) 
    pt3dadd(-4388.63,5852.05,-2396.04,1.6) 
}
FLUT[37]{
    pt3dadd(-4388.63,5852.05,-2396.04,1.6) 
    pt3dadd(-4397.8,5855.79,-2394.66,1.6) 
}
MYSA[37]{
    pt3dadd(-4397.8,5855.79,-2394.66,1.4) 
    pt3dadd(-4400.56,5856.91,-2394.25,1.4) 
}
node[19]{
    pt3dadd(-4400.56,5856.91,-2394.25,1.4) 
    pt3dadd(-4401.47,5857.29,-2394.11,1.4) 
}
MYSA[38]{
    pt3dadd(-4401.47,5857.29,-2394.11,1.4) 
    pt3dadd(-4404.23,5858.41,-2393.7,1.4) 
}
FLUT[38]{
    pt3dadd(-4404.23,5858.41,-2393.7,1.6) 
    pt3dadd(-4412.86,5861.93,-2392.41,1.6) 
    pt3dadd(-4413.16,5862.43,-2392.48,1.6) 
}
STIN[57]{
    pt3dadd(-4413.16,5862.43,-2392.48,1.6) 
    pt3dadd(-4423.96,5880.75,-2394.79,1.6) 
    pt3dadd(-4440.65,5896.96,-2402.94,1.6) 
    pt3dadd(-4450.9,5898.38,-2396.95,1.6) 
}
STIN[58]{
    pt3dadd(-4450.9,5898.38,-2396.95,1.6) 
    pt3dadd(-4477.83,5902.11,-2381.21,1.6) 
    pt3dadd(-4500.61,5907.29,-2368.53,1.6) 
}
STIN[59]{
    pt3dadd(-4500.61,5907.29,-2368.53,1.6) 
    pt3dadd(-4506.86,5908.72,-2365.05,1.6) 
    pt3dadd(-4512.69,5928.08,-2352.28,1.6) 
    pt3dadd(-4523.14,5940.99,-2344.87,1.6) 
    pt3dadd(-4530.02,5944.67,-2341.25,1.6) 
}
FLUT[39]{
    pt3dadd(-4530.02,5944.67,-2341.25,1.6) 
    pt3dadd(-4538.01,5948.95,-2337.03,1.6) 
}
MYSA[39]{
    pt3dadd(-4538.01,5948.95,-2337.03,1.4) 
    pt3dadd(-4540.41,5950.24,-2335.77,1.4) 
}
node[20]{
    pt3dadd(-4540.41,5950.24,-2335.77,1.4) 
    pt3dadd(-4541.21,5950.67,-2335.35,1.4) 
}
MYSA[40]{
    pt3dadd(-4541.21,5950.67,-2335.35,1.4) 
    pt3dadd(-4543.61,5951.95,-2334.08,1.4) 
}
FLUT[40]{
    pt3dadd(-4543.61,5951.95,-2334.08,1.6) 
    pt3dadd(-4551.6,5956.23,-2329.87,1.6) 
}
STIN[60]{
    pt3dadd(-4551.6,5956.23,-2329.87,1.6) 
    pt3dadd(-4563.52,5962.61,-2323.59,1.6) 
    pt3dadd(-4571.44,5985.35,-2287.85,1.6) 
}
STIN[61]{
    pt3dadd(-4571.44,5985.35,-2287.85,1.6) 
    pt3dadd(-4572.89,5989.52,-2281.3,1.6) 
    pt3dadd(-4583.21,5998.59,-2262.83,1.6) 
    pt3dadd(-4607.57,6008.73,-2256.76,1.6) 
}
STIN[62]{
    pt3dadd(-4607.57,6008.73,-2256.76,1.6) 
    pt3dadd(-4615.06,6011.85,-2254.9,1.6) 
    pt3dadd(-4618.52,6026.47,-2252,1.6) 
    pt3dadd(-4618.23,6042.52,-2253.55,1.6) 
    pt3dadd(-4634.39,6050.93,-2254.62,1.6) 
}
FLUT[41]{
    pt3dadd(-4634.39,6050.93,-2254.62,1.6) 
    pt3dadd(-4643.25,6055.54,-2255.21,1.6) 
}
MYSA[41]{
    pt3dadd(-4643.25,6055.54,-2255.21,1.4) 
    pt3dadd(-4645.9,6056.92,-2255.39,1.4) 
}
node[21]{
    pt3dadd(-4645.9,6056.92,-2255.39,1.4) 
    pt3dadd(-4646.79,6057.39,-2255.44,1.4) 
}
MYSA[42]{
    pt3dadd(-4646.79,6057.39,-2255.44,1.4) 
    pt3dadd(-4649.44,6058.77,-2255.62,1.4) 
}
FLUT[42]{
    pt3dadd(-4649.44,6058.77,-2255.62,1.6) 
    pt3dadd(-4658.3,6063.38,-2256.21,1.6) 
}
STIN[63]{
    pt3dadd(-4658.3,6063.38,-2256.21,1.6) 
    pt3dadd(-4670.97,6069.97,-2257.05,1.6) 
    pt3dadd(-4697.37,6084.75,-2257.87,1.6) 
    pt3dadd(-4710.56,6086.61,-2259.52,1.6) 
}
STIN[64]{
    pt3dadd(-4710.56,6086.61,-2259.52,1.6) 
    pt3dadd(-4754.38,6092.77,-2264.99,1.6) 
    pt3dadd(-4767.42,6090.29,-2266.93,1.6) 
}
STIN[65]{
    pt3dadd(-4767.42,6090.29,-2266.93,1.6) 
    pt3dadd(-4801.76,6083.75,-2272.03,1.6) 
    pt3dadd(-4805.24,6074.04,-2282.79,1.6) 
    pt3dadd(-4812.92,6073.96,-2281.65,1.6) 
}
FLUT[43]{
    pt3dadd(-4812.92,6073.96,-2281.65,1.6) 
    pt3dadd(-4822.81,6073.86,-2280.18,1.6) 
}
MYSA[43]{
    pt3dadd(-4822.81,6073.86,-2280.18,1.4) 
    pt3dadd(-4825.77,6073.83,-2279.74,1.4) 
}
node[22]{
    pt3dadd(-4825.77,6073.83,-2279.74,1.4) 
    pt3dadd(-4826.76,6073.82,-2279.6,1.4) 
}
MYSA[44]{
    pt3dadd(-4826.76,6073.82,-2279.6,1.4) 
    pt3dadd(-4829.73,6073.78,-2279.15,1.4) 
}
FLUT[44]{
    pt3dadd(-4829.73,6073.78,-2279.15,1.6) 
    pt3dadd(-4839.62,6073.68,-2277.69,1.6) 
}
STIN[66]{
    pt3dadd(-4839.62,6073.68,-2277.69,1.6) 
    pt3dadd(-4852.18,6073.55,-2275.82,1.6) 
    pt3dadd(-4857.78,6084.23,-2272.26,1.6) 
    pt3dadd(-4857.56,6088.12,-2264.81,1.6) 
    pt3dadd(-4857.17,6093.72,-2258.24,1.6) 
    pt3dadd(-4872.59,6091.89,-2256.05,1.6) 
}
STIN[67]{
    pt3dadd(-4872.59,6091.89,-2256.05,1.6) 
    pt3dadd(-4922.41,6085.97,-2248.97,1.6) 
    pt3dadd(-4922.24,6092.25,-2246.83,1.6) 
    pt3dadd(-4922.23,6092.52,-2246.18,1.6) 
}
STIN[68]{
    pt3dadd(-4922.23,6092.52,-2246.18,1.6) 
    pt3dadd(-4922.01,6095.87,-2238.15,1.6) 
    pt3dadd(-4952.98,6106.7,-2219.99,1.6) 
    pt3dadd(-4960.25,6113.41,-2213.57,1.6) 
}
FLUT[45]{
    pt3dadd(-4960.25,6113.41,-2213.57,1.6) 
    pt3dadd(-4966.42,6119.1,-2208.12,1.6) 
}
MYSA[45]{
    pt3dadd(-4966.42,6119.1,-2208.12,1.4) 
    pt3dadd(-4968.27,6120.8,-2206.49,1.4) 
}
node[23]{
    pt3dadd(-4968.27,6120.8,-2206.49,1.4) 
    pt3dadd(-4968.88,6121.37,-2205.95,1.4) 
}
MYSA[46]{
    pt3dadd(-4968.88,6121.37,-2205.95,1.4) 
    pt3dadd(-4970.73,6123.08,-2204.31,1.4) 
}
FLUT[46]{
    pt3dadd(-4970.73,6123.08,-2204.31,1.6) 
    pt3dadd(-4976.9,6128.76,-2198.87,1.6) 
}
STIN[69]{
    pt3dadd(-4976.9,6128.76,-2198.87,1.6) 
    pt3dadd(-4977.49,6129.31,-2198.35,1.6) 
    pt3dadd(-4987.07,6138.77,-2180,1.6) 
    pt3dadd(-4986.68,6148.13,-2169.02,1.6) 
    pt3dadd(-4986.6,6142.48,-2158.51,1.6) 
    pt3dadd(-4994.35,6143.99,-2158.02,1.6) 
}
STIN[70]{
    pt3dadd(-4994.35,6143.99,-2158.02,1.6) 
    pt3dadd(-5045.1,6153.87,-2154.78,1.6) 
    pt3dadd(-5050.56,6151.71,-2152.8,1.6) 
}
STIN[71]{
    pt3dadd(-5050.56,6151.71,-2152.8,1.6) 
    pt3dadd(-5059.48,6148.17,-2149.57,1.6) 
    pt3dadd(-5059.51,6134.92,-2144.52,1.6) 
    pt3dadd(-5090.43,6122.07,-2140.75,1.6) 
}
FLUT[47]{
    pt3dadd(-5090.43,6122.07,-2140.75,1.6) 
    pt3dadd(-5099.61,6118.25,-2139.64,1.6) 
}
MYSA[47]{
    pt3dadd(-5099.61,6118.25,-2139.64,1.4) 
    pt3dadd(-5102.36,6117.11,-2139.3,1.4) 
}
node[24]{
    pt3dadd(-5102.36,6117.11,-2139.3,1.4) 
    pt3dadd(-5103.28,6116.73,-2139.19,1.4) 
}
MYSA[48]{
    pt3dadd(-5103.28,6116.73,-2139.19,1.4) 
    pt3dadd(-5106.03,6115.58,-2138.85,1.4) 
}
FLUT[48]{
    pt3dadd(-5106.03,6115.58,-2138.85,1.6) 
    pt3dadd(-5110.84,6113.58,-2138.27,1.6) 
    pt3dadd(-5113.48,6110.3,-2140.47,1.6) 
}
STIN[72]{
    pt3dadd(-5113.48,6110.3,-2140.47,1.6) 
    pt3dadd(-5123.99,6097.23,-2149.22,1.6) 
    pt3dadd(-5124.14,6094.74,-2154.59,1.6) 
    pt3dadd(-5124.56,6072.53,-2161.57,1.6) 
    pt3dadd(-5134.39,6072.7,-2160.5,1.6) 
}
STIN[73]{
    pt3dadd(-5134.39,6072.7,-2160.5,1.6) 
    pt3dadd(-5176.94,6073.4,-2155.88,1.6) 
    pt3dadd(-5190.65,6079.24,-2152.92,1.6) 
}
STIN[74]{
    pt3dadd(-5190.65,6079.24,-2152.92,1.6) 
    pt3dadd(-5198.22,6082.46,-2151.29,1.6) 
    pt3dadd(-5198.19,6079.98,-2147.04,1.6) 
    pt3dadd(-5198.54,6064.12,-2148.57,1.6) 
    pt3dadd(-5199.05,6049.68,-2160.58,1.6) 
    pt3dadd(-5208.61,6046.97,-2159.75,1.6) 
}
FLUT[49]{
    pt3dadd(-5208.61,6046.97,-2159.75,1.6) 
    pt3dadd(-5218.19,6044.25,-2158.92,1.6) 
}
MYSA[49]{
    pt3dadd(-5218.19,6044.25,-2158.92,1.4) 
    pt3dadd(-5221.07,6043.43,-2158.67,1.4) 
}
node[25]{
    pt3dadd(-5221.07,6043.43,-2158.67,1.4) 
    pt3dadd(-5222.03,6043.16,-2158.59,1.4) 
}
MYSA[50]{
    pt3dadd(-5222.03,6043.16,-2158.59,1.4) 
    pt3dadd(-5224.9,6042.34,-2158.34,1.4) 
}
FLUT[50]{
    pt3dadd(-5224.9,6042.34,-2158.34,1.6) 
    pt3dadd(-5234.49,6039.62,-2157.51,1.6) 
}
STIN[75]{
    pt3dadd(-5234.49,6039.62,-2157.51,1.6) 
    pt3dadd(-5250.44,6035.1,-2156.13,1.6) 
    pt3dadd(-5263.32,6014.4,-2156.41,1.6) 
    pt3dadd(-5263.17,6014.19,-2147.87,1.6) 
    pt3dadd(-5263.33,6006.44,-2148.06,1.6) 
    pt3dadd(-5263.33,6005.77,-2147.92,1.6) 
}
STIN[76]{
    pt3dadd(-5263.33,6005.77,-2147.92,1.6) 
    pt3dadd(-5263.35,5995.85,-2145.75,1.6) 
    pt3dadd(-5305.96,5980.5,-2130.34,1.6) 
}
STIN[77]{
    pt3dadd(-5305.96,5980.5,-2130.34,1.6) 
    pt3dadd(-5311.32,5978.57,-2128.4,1.6) 
    pt3dadd(-5330.53,5968.28,-2109.8,1.6) 
    pt3dadd(-5342.44,5951.88,-2098.25,1.6) 
}
FLUT[51]{
    pt3dadd(-5342.44,5951.88,-2098.25,1.6) 
    pt3dadd(-5345.48,5947.69,-2095.29,1.6) 
    pt3dadd(-5345.32,5948.62,-2091.37,1.6) 
}
MYSA[51]{
    pt3dadd(-5345.32,5948.62,-2091.37,1.4) 
    pt3dadd(-5345.19,5949.32,-2088.46,1.4) 
}
node[26]{
    pt3dadd(-5345.19,5949.32,-2088.46,1.4) 
    pt3dadd(-5345.17,5949.44,-2087.94,1.4) 
    pt3dadd(-5345.6,5949.35,-2087.79,1.4) 
}
MYSA[52]{
    pt3dadd(-5345.6,5949.35,-2087.79,1.4) 
    pt3dadd(-5348.38,5948.76,-2086.84,1.4) 
}
FLUT[52]{
    pt3dadd(-5348.38,5948.76,-2086.84,1.6) 
    pt3dadd(-5357.65,5946.76,-2083.67,1.6) 
}
STIN[78]{
    pt3dadd(-5357.65,5946.76,-2083.67,1.6) 
    pt3dadd(-5394.34,5938.89,-2071.12,1.6) 
    pt3dadd(-5406.05,5926.24,-2064.58,1.6) 
}
STIN[79]{
    pt3dadd(-5406.05,5926.24,-2064.58,1.6) 
    pt3dadd(-5413.61,5918.07,-2060.35,1.6) 
    pt3dadd(-5424.99,5898.51,-2051.83,1.6) 
    pt3dadd(-5439.44,5886.74,-2040.3,1.6) 
}
STIN[80]{
    pt3dadd(-5439.44,5886.74,-2040.3,1.6) 
    pt3dadd(-5443.49,5883.43,-2037.07,1.6) 
    pt3dadd(-5459.97,5866.65,-2021.88,1.6) 
    pt3dadd(-5463.3,5855.23,-2007.42,1.6) 
    pt3dadd(-5463.2,5853.07,-2002.77,1.6) 
}
FLUT[53]{
    pt3dadd(-5463.2,5853.07,-2002.77,1.6) 
    pt3dadd(-5463.05,5850.03,-1996.25,1.6) 
    pt3dadd(-5465.67,5849.42,-1995.46,1.6) 
}
MYSA[53]{
    pt3dadd(-5465.67,5849.42,-1995.46,1.4) 
    pt3dadd(-5468.47,5848.77,-1994.62,1.4) 
}
node[27]{
    pt3dadd(-5468.47,5848.77,-1994.62,1.4) 
    pt3dadd(-5469.41,5848.56,-1994.34,1.4) 
}
MYSA[54]{
    pt3dadd(-5469.41,5848.56,-1994.34,1.4) 
    pt3dadd(-5472.21,5847.91,-1993.5,1.4) 
}
FLUT[54]{
    pt3dadd(-5472.21,5847.91,-1993.5,1.6) 
    pt3dadd(-5481.56,5845.75,-1990.69,1.6) 
}
STIN[81]{
    pt3dadd(-5481.56,5845.75,-1990.69,1.6) 
    pt3dadd(-5508.31,5839.56,-1982.64,1.6) 
    pt3dadd(-5528.09,5834.75,-1968.48,1.6) 
    pt3dadd(-5531.98,5833.31,-1966.5,1.6) 
}
STIN[82]{
    pt3dadd(-5531.98,5833.31,-1966.5,1.6) 
    pt3dadd(-5551.06,5826.22,-1956.75,1.6) 
    pt3dadd(-5559.04,5814.35,-1946.97,1.6) 
    pt3dadd(-5559.16,5800.31,-1937.97,1.6) 
    pt3dadd(-5560.37,5799.88,-1937.36,1.6) 
}
STIN[83]{
    pt3dadd(-5560.37,5799.88,-1937.36,1.6) 
    pt3dadd(-5609.72,5782.19,-1912.56,1.6) 
}
FLUT[55]{
    pt3dadd(-5609.72,5782.19,-1912.56,1.6) 
    pt3dadd(-5612.26,5781.28,-1911.28,1.6) 
    pt3dadd(-5614.65,5778.54,-1905.29,1.6) 
}
MYSA[55]{
    pt3dadd(-5614.65,5778.54,-1905.29,1.4) 
    pt3dadd(-5615.68,5777.37,-1902.72,1.4) 
}
node[28]{
    pt3dadd(-5615.68,5777.37,-1902.72,1.4) 
    pt3dadd(-5616.02,5776.98,-1901.87,1.4) 
}
MYSA[56]{
    pt3dadd(-5616.02,5776.98,-1901.87,1.4) 
    pt3dadd(-5617.04,5775.8,-1899.3,1.4) 
}
FLUT[56]{
    pt3dadd(-5617.04,5775.8,-1899.3,1.6) 
    pt3dadd(-5620.45,5771.89,-1890.76,1.6) 
}
STIN[84]{
    pt3dadd(-5620.45,5771.89,-1890.76,1.6) 
    pt3dadd(-5624.15,5767.65,-1881.49,1.6) 
    pt3dadd(-5623.84,5764.13,-1868.81,1.6) 
    pt3dadd(-5653.92,5756.47,-1854.96,1.6) 
}
STIN[85]{
    pt3dadd(-5653.92,5756.47,-1854.96,1.6) 
    pt3dadd(-5667.38,5753.05,-1848.77,1.6) 
    pt3dadd(-5682.05,5734.4,-1828.6,1.6) 
    pt3dadd(-5681.9,5731.9,-1817.75,1.6) 
    pt3dadd(-5681.89,5731.72,-1817.26,1.6) 
}
STIN[86]{
    pt3dadd(-5681.89,5731.72,-1817.26,1.6) 
    pt3dadd(-5681.7,5725.82,-1800.45,1.6) 
    pt3dadd(-5715.06,5716.74,-1779.98,1.6) 
}
FLUT[57]{
    pt3dadd(-5715.06,5716.74,-1779.98,1.6) 
    pt3dadd(-5717.41,5716.11,-1778.54,1.6) 
    pt3dadd(-5720.78,5712.63,-1773.25,1.6) 
}
MYSA[57]{
    pt3dadd(-5720.78,5712.63,-1773.25,1.4) 
    pt3dadd(-5722.19,5711.18,-1771.04,1.4) 
}
node[29]{
    pt3dadd(-5722.19,5711.18,-1771.04,1.4) 
    pt3dadd(-5722.66,5710.7,-1770.3,1.4) 
}
MYSA[58]{
    pt3dadd(-5722.66,5710.7,-1770.3,1.4) 
    pt3dadd(-5724.07,5709.24,-1768.08,1.4) 
}
FLUT[58]{
    pt3dadd(-5724.07,5709.24,-1768.08,1.6) 
    pt3dadd(-5728.77,5704.4,-1760.71,1.6) 
}
STIN[87]{
    pt3dadd(-5728.77,5704.4,-1760.71,1.6) 
    pt3dadd(-5740.67,5692.15,-1742.04,1.6) 
    pt3dadd(-5740.83,5670.41,-1727.36,1.6) 
    pt3dadd(-5744.95,5668.33,-1722.82,1.6) 
}
STIN[88]{
    pt3dadd(-5744.95,5668.33,-1722.82,1.6) 
    pt3dadd(-5755.34,5663.09,-1711.38,1.6) 
    pt3dadd(-5785.19,5645.94,-1687.89,1.6) 
}
STIN[89]{
    pt3dadd(-5785.19,5645.94,-1687.89,1.6) 
    pt3dadd(-5795.25,5640.15,-1679.97,1.6) 
    pt3dadd(-5798.83,5622.81,-1639.75,1.6) 
}
FLUT[59]{
    pt3dadd(-5798.83,5622.81,-1639.75,1.6) 
    pt3dadd(-5799.64,5618.86,-1630.6,1.6) 
}
MYSA[59]{
    pt3dadd(-5799.64,5618.86,-1630.6,1.4) 
    pt3dadd(-5799.87,5617.76,-1628.04,1.4) 
    pt3dadd(-5799.87,5617.56,-1628.03,1.4) 
}
node[30]{
    pt3dadd(-5799.87,5617.56,-1628.03,1.4) 
    pt3dadd(-5799.88,5616.56,-1627.97,1.4) 
}
MYSA[60]{
    pt3dadd(-5799.88,5616.56,-1627.97,1.4) 
    pt3dadd(-5799.92,5613.57,-1627.81,1.4) 
}
FLUT[60]{
    pt3dadd(-5799.92,5613.57,-1627.81,1.6) 
    pt3dadd(-5800.05,5603.58,-1627.25,1.6) 
}
STIN[90]{
    pt3dadd(-5800.05,5603.58,-1627.25,1.6) 
    pt3dadd(-5800.16,5594.39,-1626.74,1.6) 
    pt3dadd(-5800.77,5571.92,-1635.31,1.6) 
    pt3dadd(-5818.22,5563.88,-1619.72,1.6) 
}
STIN[91]{
    pt3dadd(-5818.22,5563.88,-1619.72,1.6) 
    pt3dadd(-5828.28,5559.24,-1610.73,1.6) 
    pt3dadd(-5853.78,5550.41,-1584.63,1.6) 
    pt3dadd(-5854.89,5546.73,-1579.79,1.6) 
}
STIN[92]{
    pt3dadd(-5854.89,5546.73,-1579.79,1.6) 
    pt3dadd(-5860.72,5527.24,-1554.22,1.6) 
    pt3dadd(-5860.73,5515.58,-1541.81,1.6) 
    pt3dadd(-5860.75,5509.36,-1536.31,1.6) 
}
FLUT[61]{
    pt3dadd(-5860.75,5509.36,-1536.31,1.6) 
    pt3dadd(-5860.76,5504.78,-1532.26,1.6) 
    pt3dadd(-5862.77,5503.44,-1529.22,1.6) 
}
MYSA[61]{
    pt3dadd(-5862.77,5503.44,-1529.22,1.4) 
    pt3dadd(-5864.32,5502.4,-1526.87,1.4) 
}
node[31]{
    pt3dadd(-5864.32,5502.4,-1526.87,1.4) 
    pt3dadd(-5864.84,5502.05,-1526.09,1.4) 
}
MYSA[62]{
    pt3dadd(-5864.84,5502.05,-1526.09,1.4) 
    pt3dadd(-5866.39,5501.02,-1523.74,1.4) 
}
FLUT[62]{
    pt3dadd(-5866.39,5501.02,-1523.74,1.6) 
    pt3dadd(-5871.57,5497.56,-1515.92,1.6) 
}
STIN[93]{
    pt3dadd(-5871.57,5497.56,-1515.92,1.6) 
    pt3dadd(-5886.05,5487.9,-1494.03,1.6) 
    pt3dadd(-5901.69,5472.11,-1474.61,1.6) 
    pt3dadd(-5901.87,5471.83,-1474.21,1.6) 
}
STIN[94]{
    pt3dadd(-5901.87,5471.83,-1474.21,1.6) 
    pt3dadd(-5917.96,5446.65,-1438.7,1.6) 
    pt3dadd(-5917.75,5443.21,-1427.64,1.6) 
}
STIN[95]{
    pt3dadd(-5917.75,5443.21,-1427.64,1.6) 
    pt3dadd(-5917.51,5439.23,-1414.87,1.6) 
    pt3dadd(-5953.77,5426.94,-1391.94,1.6) 
}
FLUT[63]{
    pt3dadd(-5953.77,5426.94,-1391.94,1.6) 
    pt3dadd(-5956.61,5425.97,-1390.14,1.6) 
    pt3dadd(-5959.46,5423.6,-1384.81,1.6) 
}
MYSA[63]{
    pt3dadd(-5959.46,5423.6,-1384.81,1.4) 
    pt3dadd(-5960.77,5422.51,-1382.34,1.4) 
}
node[32]{
    pt3dadd(-5960.77,5422.51,-1382.34,1.4) 
    pt3dadd(-5961.21,5422.14,-1381.52,1.4) 
}
MYSA[64]{
    pt3dadd(-5961.21,5422.14,-1381.52,1.4) 
    pt3dadd(-5962.53,5421.05,-1379.06,1.4) 
}
FLUT[64]{
    pt3dadd(-5962.53,5421.05,-1379.06,1.6) 
    pt3dadd(-5966.91,5417.4,-1370.85,1.6) 
}
STIN[96]{
    pt3dadd(-5966.91,5417.4,-1370.85,1.6) 
    pt3dadd(-5972.46,5412.77,-1360.43,1.6) 
    pt3dadd(-5972.43,5399.55,-1344.24,1.6) 
    pt3dadd(-5988.84,5388.81,-1329.7,1.6) 
}
STIN[97]{
    pt3dadd(-5988.84,5388.81,-1329.7,1.6) 
    pt3dadd(-6012.9,5373.07,-1308.38,1.6) 
    pt3dadd(-6023.54,5357.71,-1296.38,1.6) 
}
STIN[98]{
    pt3dadd(-6023.54,5357.71,-1296.38,1.6) 
    pt3dadd(-6024.28,5356.64,-1295.54,1.6) 
    pt3dadd(-6024.12,5353.54,-1283.48,1.6) 
    pt3dadd(-5983.61,5343.93,-1269.23,1.6) 
}
FLUT[65]{
    pt3dadd(-5983.61,5343.93,-1269.23,1.6) 
    pt3dadd(-5974.41,5341.75,-1265.99,1.6) 
}
MYSA[65]{
    pt3dadd(-5974.41,5341.75,-1265.99,1.4) 
    pt3dadd(-5971.65,5341.09,-1265.02,1.4) 
}
node[33]{
    pt3dadd(-5971.65,5341.09,-1265.02,1.4) 
    pt3dadd(-5970.73,5340.87,-1264.69,1.4) 
}
MYSA[66]{
    pt3dadd(-5970.73,5340.87,-1264.69,1.4) 
    pt3dadd(-5967.97,5340.22,-1263.72,1.4) 
}
FLUT[66]{
    pt3dadd(-5967.97,5340.22,-1263.72,1.6) 
    pt3dadd(-5958.76,5338.03,-1260.48,1.6) 
}
STIN[99]{
    pt3dadd(-5958.76,5338.03,-1260.48,1.6) 
    pt3dadd(-5936.43,5332.74,-1252.62,1.6) 
    pt3dadd(-5960.69,5321.55,-1232.02,1.6) 
}
STIN[100]{
    pt3dadd(-5960.69,5321.55,-1232.02,1.6) 
    pt3dadd(-5973.28,5315.74,-1221.33,1.6) 
    pt3dadd(-5991.02,5303.38,-1191.78,1.6) 
    pt3dadd(-5993.46,5302.46,-1188.92,1.6) 
}
STIN[101]{
    pt3dadd(-5993.46,5302.46,-1188.92,1.6) 
    pt3dadd(-6009.09,5296.6,-1170.67,1.6) 
    pt3dadd(-6008.95,5287.88,-1154.14,1.6) 
    pt3dadd(-6008.86,5278.17,-1143.26,1.6) 
}
FLUT[67]{
    pt3dadd(-6008.86,5278.17,-1143.26,1.6) 
    pt3dadd(-6008.8,5272.63,-1137.06,1.6) 
    pt3dadd(-6009.82,5272.06,-1135.85,1.6) 
}
MYSA[67]{
    pt3dadd(-6009.82,5272.06,-1135.85,1.4) 
    pt3dadd(-6011.64,5271.04,-1133.69,1.4) 
}
node[34]{
    pt3dadd(-6011.64,5271.04,-1133.69,1.4) 
    pt3dadd(-6012.25,5270.71,-1132.97,1.4) 
}
MYSA[68]{
    pt3dadd(-6012.25,5270.71,-1132.97,1.4) 
    pt3dadd(-6014.07,5269.69,-1130.82,1.4) 
}
FLUT[68]{
    pt3dadd(-6014.07,5269.69,-1130.82,1.6) 
    pt3dadd(-6020.14,5266.31,-1123.63,1.6) 
}
STIN[102]{
    pt3dadd(-6020.14,5266.31,-1123.63,1.6) 
    pt3dadd(-6038.83,5255.91,-1101.5,1.6) 
    pt3dadd(-6048.03,5244.85,-1078.38,1.6) 
}
STIN[103]{
    pt3dadd(-6048.03,5244.85,-1078.38,1.6) 
    pt3dadd(-6053.45,5238.35,-1064.78,1.6) 
    pt3dadd(-6061.52,5229.2,-1039.9,1.6) 
    pt3dadd(-6061.31,5226.69,-1025.86,1.6) 
}
STIN[104]{
    pt3dadd(-6061.31,5226.69,-1025.86,1.6) 
    pt3dadd(-6061.21,5225.44,-1018.91,1.6) 
    pt3dadd(-6060.75,5217.65,-993.335,1.6) 
    pt3dadd(-6076.17,5209.51,-976.569,1.6) 
}
FLUT[69]{
    pt3dadd(-6076.17,5209.51,-976.569,1.6) 
    pt3dadd(-6082.55,5206.15,-969.639,1.6) 
}
MYSA[69]{
    pt3dadd(-6082.55,5206.15,-969.639,1.4) 
    pt3dadd(-6083.55,5205.62,-968.553,1.4) 
    pt3dadd(-6084.29,5204.53,-968.006,1.4) 
}
node[35]{
    pt3dadd(-6084.29,5204.53,-968.006,1.4) 
    pt3dadd(-6084.82,5203.76,-967.624,1.4) 
}
MYSA[70]{
    pt3dadd(-6084.82,5203.76,-967.624,1.4) 
    pt3dadd(-6086.38,5201.48,-966.479,1.4) 
}
FLUT[70]{
    pt3dadd(-6086.38,5201.48,-966.479,1.6) 
    pt3dadd(-6091.6,5193.85,-962.662,1.6) 
}
STIN[105]{
    pt3dadd(-6091.6,5193.85,-962.662,1.6) 
    pt3dadd(-6098.59,5183.65,-957.558,1.6) 
    pt3dadd(-6115.26,5166.67,-928.899,1.6) 
    pt3dadd(-6118.44,5164.41,-922.644,1.6) 
}
STIN[106]{
    pt3dadd(-6118.44,5164.41,-922.644,1.6) 
    pt3dadd(-6129.46,5156.56,-900.997,1.6) 
    pt3dadd(-6132.94,5144.65,-870.99,1.6) 
}
STIN[107]{
    pt3dadd(-6132.94,5144.65,-870.99,1.6) 
    pt3dadd(-6133.49,5142.79,-866.287,1.6) 
    pt3dadd(-6133.42,5131.85,-850.472,1.6) 
    pt3dadd(-6133.33,5123.28,-836.326,1.6) 
    pt3dadd(-6145.33,5118.68,-824.991,1.6) 
}
FLUT[71]{
    pt3dadd(-6145.33,5118.68,-824.991,1.6) 
    pt3dadd(-6152.34,5116,-818.379,1.6) 
}
MYSA[71]{
    pt3dadd(-6152.34,5116,-818.379,1.4) 
    pt3dadd(-6154.44,5115.19,-816.396,1.4) 
}
node[36]{
    pt3dadd(-6154.44,5115.19,-816.396,1.4) 
    pt3dadd(-6155.14,5114.92,-815.735,1.4) 
}
MYSA[72]{
    pt3dadd(-6155.14,5114.92,-815.735,1.4) 
    pt3dadd(-6157.24,5114.12,-813.751,1.4) 
}
FLUT[72]{
    pt3dadd(-6157.24,5114.12,-813.751,1.6) 
    pt3dadd(-6163.38,5111.77,-807.957,1.6) 
    pt3dadd(-6163.93,5111.16,-807.029,1.6) 
}
STIN[108]{
    pt3dadd(-6163.93,5111.16,-807.029,1.6) 
    pt3dadd(-6181.54,5091.55,-777.169,1.6) 
    pt3dadd(-6186.64,5082.52,-762.249,1.6) 
}
STIN[109]{
    pt3dadd(-6186.64,5082.52,-762.249,1.6) 
    pt3dadd(-6191.04,5074.72,-749.361,1.6) 
    pt3dadd(-6191.19,5063.13,-737.157,1.6) 
    pt3dadd(-6215.72,5057.85,-732.806,1.6) 
}
STIN[110]{
    pt3dadd(-6215.72,5057.85,-732.806,1.6) 
    pt3dadd(-6228.03,5055.21,-730.625,1.6) 
    pt3dadd(-6245.59,5060.27,-710.697,1.6) 
    pt3dadd(-6255.75,5052.01,-698.078,1.6) 
}
FLUT[73]{
    pt3dadd(-6255.75,5052.01,-698.078,1.6) 
    pt3dadd(-6256.22,5051.63,-697.495,1.6) 
    pt3dadd(-6256.18,5046.56,-689.958,1.6) 
    pt3dadd(-6256.23,5046.56,-689.901,1.6) 
}
MYSA[73]{
    pt3dadd(-6256.23,5046.56,-689.901,1.4) 
    pt3dadd(-6258.17,5046.57,-687.613,1.4) 
}
node[37]{
    pt3dadd(-6258.17,5046.57,-687.613,1.4) 
    pt3dadd(-6258.82,5046.58,-686.85,1.4) 
}
MYSA[74]{
    pt3dadd(-6258.82,5046.58,-686.85,1.4) 
    pt3dadd(-6260.76,5046.59,-684.562,1.4) 
}
FLUT[74]{
    pt3dadd(-6260.76,5046.59,-684.562,1.6) 
    pt3dadd(-6267.22,5046.64,-676.934,1.6) 
}
STIN[111]{
    pt3dadd(-6267.22,5046.64,-676.934,1.6) 
    pt3dadd(-6270.1,5046.66,-673.538,1.6) 
    pt3dadd(-6282.75,5048.77,-653.912,1.6) 
    pt3dadd(-6284.36,5047.04,-628.308,1.6) 
    pt3dadd(-6282.61,5046.57,-624.31,1.6) 
}
STIN[112]{
    pt3dadd(-6282.61,5046.57,-624.31,1.6) 
    pt3dadd(-6273.08,5044.05,-602.46,1.6) 
    pt3dadd(-6257.89,5043.16,-580.86,1.6) 
    pt3dadd(-6255.88,5043.18,-573.529,1.6) 
}
STIN[113]{
    pt3dadd(-6255.88,5043.18,-573.529,1.6) 
    pt3dadd(-6255.21,5043.19,-571.088,1.6) 
    pt3dadd(-6255.16,5043.53,-568.977,1.6) 
    pt3dadd(-6246.05,5040.71,-548.984,1.6) 
    pt3dadd(-6226.21,5038.48,-525.041,1.6) 
}
FLUT[75]{
    pt3dadd(-6226.21,5038.48,-525.041,1.6) 
    pt3dadd(-6223.6,5038.19,-521.89,1.6) 
    pt3dadd(-6219.13,5037.15,-518.192,1.6) 
}
MYSA[75]{
    pt3dadd(-6219.13,5037.15,-518.192,1.4) 
    pt3dadd(-6216.85,5036.63,-516.311,1.4) 
}
node[38]{
    pt3dadd(-6216.85,5036.63,-516.311,1.4) 
    pt3dadd(-6216.09,5036.45,-515.684,1.4) 
}
MYSA[76]{
    pt3dadd(-6216.09,5036.45,-515.684,1.4) 
    pt3dadd(-6213.82,5035.93,-513.803,1.4) 
}
FLUT[76]{
    pt3dadd(-6213.82,5035.93,-513.803,1.6) 
    pt3dadd(-6206.23,5034.17,-507.532,1.6) 
}
STIN[114]{
    pt3dadd(-6206.23,5034.17,-507.532,1.6) 
    pt3dadd(-6179.88,5028.09,-485.762,1.6) 
    pt3dadd(-6179.57,5021.77,-469.705,1.6) 
    pt3dadd(-6174.09,5020.96,-467.339,1.6) 
}
STIN[115]{
    pt3dadd(-6174.09,5020.96,-467.339,1.6) 
    pt3dadd(-6136.38,5015.4,-451.056,1.6) 
    pt3dadd(-6122.48,5015.34,-442.072,1.6) 
}
STIN[116]{
    pt3dadd(-6122.48,5015.34,-442.072,1.6) 
    pt3dadd(-6115.31,5015.31,-437.441,1.6) 
    pt3dadd(-6115.19,5007.08,-422.144,1.6) 
    pt3dadd(-6115.18,4993.64,-414.749,1.6) 
    pt3dadd(-6102.1,4983.79,-411.204,1.6) 
}
FLUT[77]{
    pt3dadd(-6102.1,4983.79,-411.204,1.6) 
    pt3dadd(-6094.29,4977.91,-409.088,1.6) 
}
MYSA[77]{
    pt3dadd(-6094.29,4977.91,-409.088,1.4) 
    pt3dadd(-6091.94,4976.15,-408.454,1.4) 
}
node[39]{
    pt3dadd(-6091.94,4976.15,-408.454,1.4) 
    pt3dadd(-6091.16,4975.56,-408.242,1.4) 
}
MYSA[78]{
    pt3dadd(-6091.16,4975.56,-408.242,1.4) 
    pt3dadd(-6088.82,4973.8,-407.607,1.4) 
}
FLUT[78]{
    pt3dadd(-6088.82,4973.8,-407.607,1.6) 
    pt3dadd(-6081.01,4967.92,-405.491,1.6) 
}
STIN[117]{
    pt3dadd(-6081.01,4967.92,-405.491,1.6) 
    pt3dadd(-6074.38,4962.92,-403.694,1.6) 
    pt3dadd(-6060.38,4941.44,-400.209,1.6) 
    pt3dadd(-6050.77,4929.89,-391.454,1.6) 
    pt3dadd(-6050.84,4923.66,-391.798,1.6) 
}
STIN[118]{
    pt3dadd(-6050.84,4923.66,-391.798,1.6) 
    pt3dadd(-6050.93,4915.41,-392.253,1.6) 
    pt3dadd(-6016.27,4893.34,-381.415,1.6) 
    pt3dadd(-6014.17,4886.72,-379.349,1.6) 
}
STIN[119]{
    pt3dadd(-6014.17,4886.72,-379.349,1.6) 
    pt3dadd(-6000,4842.06,-365.412,1.6) 
    pt3dadd(-5998.15,4833.81,-361.98,1.6) 
}
FLUT[79]{
    pt3dadd(-5998.15,4833.81,-361.98,1.6) 
    pt3dadd(-5996.13,4824.77,-358.217,1.6) 
}
MYSA[79]{
    pt3dadd(-5996.13,4824.77,-358.217,1.4) 
    pt3dadd(-5995.52,4822.06,-357.088,1.4) 
}
node[40]{
    pt3dadd(-5995.52,4822.06,-357.088,1.4) 
    pt3dadd(-5995.32,4821.16,-356.712,1.4) 
}
MYSA[80]{
    pt3dadd(-5995.32,4821.16,-356.712,1.4) 
    pt3dadd(-5994.71,4818.44,-355.583,1.4) 
}
FLUT[80]{
    pt3dadd(-5994.71,4818.44,-355.583,1.6) 
    pt3dadd(-5993.19,4811.67,-352.766,1.6) 
    pt3dadd(-5991.78,4809.9,-351.683,1.6) 
}
STIN[120]{
    pt3dadd(-5991.78,4809.9,-351.683,1.6) 
    pt3dadd(-5973.03,4786.22,-337.266,1.6) 
    pt3dadd(-5975.38,4766.66,-322.647,1.6) 
}
STIN[121]{
    pt3dadd(-5975.38,4766.66,-322.647,1.6) 
    pt3dadd(-5976.58,4756.68,-315.189,1.6) 
    pt3dadd(-5968.08,4735.95,-276.965,1.6) 
    pt3dadd(-5968.86,4735.42,-276.268,1.6) 
}
STIN[122]{
    pt3dadd(-5968.86,4735.42,-276.268,1.6) 
    pt3dadd(-5999.8,4714.45,-248.697,1.6) 
    pt3dadd(-6000.41,4709.87,-238.101,1.6) 
}
FLUT[81]{
    pt3dadd(-6000.41,4709.87,-238.101,1.6) 
    pt3dadd(-6000.68,4707.86,-233.441,1.6) 
    pt3dadd(-6001.21,4707.2,-228.599,1.6) 
}
MYSA[81]{
    pt3dadd(-6001.21,4707.2,-228.599,1.4) 
    pt3dadd(-6001.54,4706.8,-225.645,1.4) 
}
node[41]{
    pt3dadd(-6001.54,4706.8,-225.645,1.4) 
    pt3dadd(-6001.64,4706.66,-224.66,1.4) 
}
MYSA[82]{
    pt3dadd(-6001.64,4706.66,-224.66,1.4) 
    pt3dadd(-6001.7,4706.59,-224.157,1.4) 
    pt3dadd(-6001.7,4704.95,-222.286,1.4) 
}
FLUT[82]{
    pt3dadd(-6001.7,4704.95,-222.286,1.6) 
    pt3dadd(-6001.69,4698.35,-214.772,1.6) 
}
STIN[123]{
    pt3dadd(-6001.69,4698.35,-214.772,1.6) 
    pt3dadd(-6001.69,4694.92,-210.863,1.6) 
    pt3dadd(-6049.68,4702.42,-190.179,1.6) 
}
STIN[124]{
    pt3dadd(-6049.68,4702.42,-190.179,1.6) 
    pt3dadd(-6049.69,4702.42,-190.175,1.6) 
    pt3dadd(-6065.67,4686.67,-165.51,1.6) 
    pt3dadd(-6065.54,4679.16,-158.415,1.6) 
    pt3dadd(-6078.77,4676.72,-153.544,1.6) 
}
STIN[125]{
    pt3dadd(-6078.77,4676.72,-153.544,1.6) 
    pt3dadd(-6119.04,4669.31,-138.722,1.6) 
    pt3dadd(-6126.02,4671.15,-129.661,1.6) 
    pt3dadd(-6125.99,4670.06,-127.004,1.6) 
}
FLUT[83]{
    pt3dadd(-6125.99,4670.06,-127.004,1.6) 
    pt3dadd(-6125.92,4667.23,-120.062,1.6) 
    pt3dadd(-6125.88,4666.19,-117.786,1.6) 
}
MYSA[83]{
    pt3dadd(-6125.88,4666.19,-117.786,1.4) 
    pt3dadd(-6125.83,4664.95,-115.054,1.4) 
}
node[42]{
    pt3dadd(-6125.83,4664.95,-115.054,1.4) 
    pt3dadd(-6125.81,4664.54,-114.144,1.4) 
}
MYSA[84]{
    pt3dadd(-6125.81,4664.54,-114.144,1.4) 
    pt3dadd(-6125.77,4663.3,-111.412,1.4) 
}
FLUT[84]{
    pt3dadd(-6125.77,4663.3,-111.412,1.6) 
    pt3dadd(-6125.61,4659.17,-102.307,1.6) 
}
STIN[126]{
    pt3dadd(-6125.61,4659.17,-102.307,1.6) 
    pt3dadd(-6125.6,4658.87,-101.635,1.6) 
    pt3dadd(-6167.45,4645.91,-82.858,1.6) 
    pt3dadd(-6174.63,4640.18,-80.08,1.6) 
}
STIN[127]{
    pt3dadd(-6174.63,4640.18,-80.08,1.6) 
    pt3dadd(-6182.53,4633.86,-77.0196,1.6) 
    pt3dadd(-6182.7,4615.97,-74.6233,1.6) 
    pt3dadd(-6210.29,4608.57,-67.7603,1.6) 
}
STIN[128]{
    pt3dadd(-6210.29,4608.57,-67.7603,1.6) 
    pt3dadd(-6231.86,4602.79,-62.394,1.6) 
    pt3dadd(-6246.55,4583.87,-59.3845,1.6) 
    pt3dadd(-6246.79,4574.26,-61.8232,1.6) 
    pt3dadd(-6247.56,4573.8,-61.4649,1.6) 
}
FLUT[85]{
    pt3dadd(-6247.56,4573.8,-61.4649,1.6) 
    pt3dadd(-6255.52,4569,-57.7775,1.6) 
}
MYSA[85]{
    pt3dadd(-6255.52,4569,-57.7775,1.4) 
    pt3dadd(-6257.91,4567.56,-56.6713,1.4) 
}
node[43]{
    pt3dadd(-6257.91,4567.56,-56.6713,1.4) 
    pt3dadd(-6258.71,4567.08,-56.3025,1.4) 
}
MYSA[86]{
    pt3dadd(-6258.71,4567.08,-56.3025,1.4) 
    pt3dadd(-6261.1,4565.64,-55.1963,1.4) 
}
FLUT[86]{
    pt3dadd(-6261.1,4565.64,-55.1963,1.6) 
    pt3dadd(-6269.06,4560.84,-51.5089,1.6) 
}
STIN[129]{
    pt3dadd(-6269.06,4560.84,-51.5089,1.6) 
    pt3dadd(-6273.57,4558.12,-49.4179,1.6) 
    pt3dadd(-6285.68,4553.47,-41.5687,1.6) 
    pt3dadd(-6248.96,4551.11,-36.3547,1.6) 
}
STIN[130]{
    pt3dadd(-6248.96,4551.11,-36.3547,1.6) 
    pt3dadd(-6227.1,4549.7,-33.251,1.6) 
    pt3dadd(-6259.2,4541.18,-19.6793,1.6) 
}
STIN[131]{
    pt3dadd(-6259.2,4541.18,-19.6793,1.6) 
    pt3dadd(-6269.22,4538.52,-15.4437,1.6) 
    pt3dadd(-6269.15,4531.28,-3.98149,1.6) 
    pt3dadd(-6302.03,4529.82,0.716435,1.6) 
}
FLUT[87]{
    pt3dadd(-6302.03,4529.82,0.716435,1.6) 
    pt3dadd(-6311.92,4529.38,2.12975,1.6) 
}
MYSA[87]{
    pt3dadd(-6311.92,4529.38,2.12975,1.4) 
    pt3dadd(-6314.88,4529.25,2.55374,1.4) 
}
node[44]{
    pt3dadd(-6314.88,4529.25,2.55374,1.4) 
    pt3dadd(-6315.87,4529.21,2.69507,1.4) 
}
MYSA[88]{
    pt3dadd(-6315.87,4529.21,2.69507,1.4) 
    pt3dadd(-6318.84,4529.07,3.11907,1.4) 
}
FLUT[88]{
    pt3dadd(-6318.84,4529.07,3.11907,1.6) 
    pt3dadd(-6328.73,4528.64,4.53238,1.6) 
}
STIN[132]{
    pt3dadd(-6328.73,4528.64,4.53238,1.6) 
    pt3dadd(-6353.61,4527.53,8.08855,1.6) 
    pt3dadd(-6376.68,4514.49,19.8158,1.6) 
    pt3dadd(-6379.87,4512.84,21.2326,1.6) 
}
STIN[133]{
    pt3dadd(-6379.87,4512.84,21.2326,1.6) 
    pt3dadd(-6399.89,4502.46,30.1207,1.6) 
    pt3dadd(-6403.76,4491.81,38.7711,1.6) 
    pt3dadd(-6403.92,4484.9,37.7245,1.6) 
    pt3dadd(-6403.92,4474.36,44.4777,1.6) 
}
STIN[134]{
    pt3dadd(-6403.92,4474.36,44.4777,1.6) 
    pt3dadd(-6403.93,4465.02,50.4712,1.6) 
    pt3dadd(-6446.98,4467.23,68.9367,1.6) 
}
FLUT[89]{
    pt3dadd(-6446.98,4467.23,68.9367,1.6) 
    pt3dadd(-6451.16,4467.44,70.7308,1.6) 
    pt3dadd(-6453.79,4463.78,73.7844,1.6) 
}
MYSA[89]{
    pt3dadd(-6453.79,4463.78,73.7844,1.4) 
    pt3dadd(-6455.24,4461.77,75.4672,1.4) 
}
node[45]{
    pt3dadd(-6455.24,4461.77,75.4672,1.4) 
    pt3dadd(-6455.72,4461.09,76.0282,1.4) 
}
MYSA[90]{
    pt3dadd(-6455.72,4461.09,76.0282,1.4) 
    pt3dadd(-6457.17,4459.08,77.711,1.4) 
}
FLUT[90]{
    pt3dadd(-6457.17,4459.08,77.711,1.6) 
    pt3dadd(-6459.72,4455.54,80.6622,1.6) 
    pt3dadd(-6461,4451.01,81.2076,1.6) 
}
STIN[135]{
    pt3dadd(-6461,4451.01,81.2076,1.6) 
    pt3dadd(-6470.83,4416.31,85.3861,1.6) 
    pt3dadd(-6471.22,4394.8,82.5703,1.6) 
}
STIN[136]{
    pt3dadd(-6471.22,4394.8,82.5703,1.6) 
    pt3dadd(-6471.49,4380.08,80.6431,1.6) 
    pt3dadd(-6502.47,4350.31,76.5705,1.6) 
}
STIN[137]{
    pt3dadd(-6502.47,4350.31,76.5705,1.6) 
    pt3dadd(-6511.37,4341.75,75.4001,1.6) 
    pt3dadd(-6528.92,4312.29,70.3818,1.6) 
    pt3dadd(-6529.1,4301.75,67.4406,1.6) 
}
FLUT[91]{
    pt3dadd(-6529.1,4301.75,67.4406,1.6) 
    pt3dadd(-6529.24,4293.51,65.1406,1.6) 
    pt3dadd(-6530.36,4292.6,65.1092,1.6) 
}
MYSA[91]{
    pt3dadd(-6530.36,4292.6,65.1092,1.4) 
    pt3dadd(-6532.69,4290.71,65.0438,1.4) 
}
node[46]{
    pt3dadd(-6532.69,4290.71,65.0438,1.4) 
    pt3dadd(-6533.46,4290.08,65.022,1.4) 
}
MYSA[92]{
    pt3dadd(-6533.46,4290.08,65.022,1.4) 
    pt3dadd(-6535.79,4288.19,64.9567,1.4) 
}
FLUT[92]{
    pt3dadd(-6535.79,4288.19,64.9567,1.6) 
    pt3dadd(-6543.55,4281.89,64.7387,1.6) 
}
STIN[138]{
    pt3dadd(-6543.55,4281.89,64.7387,1.6) 
    pt3dadd(-6582.33,4250.4,63.6499,1.6) 
    pt3dadd(-6585.31,4242.99,62.7493,1.6) 
}
STIN[139]{
    pt3dadd(-6585.31,4242.99,62.7493,1.6) 
    pt3dadd(-6599.57,4207.52,58.4373,1.6) 
    pt3dadd(-6599.94,4188.01,59.3796,1.6) 
}
STIN[140]{
    pt3dadd(-6599.94,4188.01,59.3796,1.6) 
    pt3dadd(-6599.97,4186.39,59.4579,1.6) 
    pt3dadd(-6633.89,4141.83,52.9574,1.6) 
}
FLUT[93]{
    pt3dadd(-6633.89,4141.83,52.9574,1.6) 
    pt3dadd(-6635.34,4139.92,52.6797,1.6) 
    pt3dadd(-6637.88,4132.78,52.2674,1.6) 
}
MYSA[93]{
    pt3dadd(-6637.88,4132.78,52.2674,1.4) 
    pt3dadd(-6638.88,4129.96,52.1044,1.4) 
}
node[47]{
    pt3dadd(-6638.88,4129.96,52.1044,1.4) 
    pt3dadd(-6639.22,4129.02,52.0501,1.4) 
}
MYSA[94]{
    pt3dadd(-6639.22,4129.02,52.0501,1.4) 
    pt3dadd(-6640.22,4126.19,51.8872,1.4) 
}
FLUT[94]{
    pt3dadd(-6640.22,4126.19,51.8872,1.6) 
    pt3dadd(-6643.56,4116.78,51.344,1.6) 
}
STIN[141]{
    pt3dadd(-6643.56,4116.78,51.344,1.6) 
    pt3dadd(-6649.84,4099.12,50.3245,1.6) 
    pt3dadd(-6649.92,4093.66,51.7418,1.6) 
    pt3dadd(-6655.62,4063.46,46.3254,1.6) 
    pt3dadd(-6656.74,4061.37,46.5999,1.6) 
}
STIN[142]{
    pt3dadd(-6656.74,4061.37,46.5999,1.6) 
    pt3dadd(-6682.61,4013.14,52.9574,1.6) 
    pt3dadd(-6683.85,4010.78,54.1094,1.6) 
}
STIN[143]{
    pt3dadd(-6683.85,4010.78,54.1094,1.6) 
    pt3dadd(-6694.13,3991.18,63.6744,1.6) 
    pt3dadd(-6694.53,3973.01,61.9608,1.6) 
    pt3dadd(-6694.69,3957.48,63.7809,1.6) 
}
FLUT[95]{
    pt3dadd(-6694.69,3957.48,63.7809,1.6) 
    pt3dadd(-6694.74,3953.6,64.2353,1.6) 
    pt3dadd(-6699.09,3949.44,65.1922,1.6) 
}
MYSA[95]{
    pt3dadd(-6699.09,3949.44,65.1922,1.4) 
    pt3dadd(-6701.23,3947.4,65.6631,1.4) 
}
node[48]{
    pt3dadd(-6701.23,3947.4,65.6631,1.4) 
    pt3dadd(-6701.94,3946.71,65.82,1.4) 
}
MYSA[96]{
    pt3dadd(-6701.94,3946.71,65.82,1.4) 
    pt3dadd(-6704.09,3944.67,66.2908,1.4) 
}
FLUT[96]{
    pt3dadd(-6704.09,3944.67,66.2908,1.6) 
    pt3dadd(-6711.23,3937.84,67.8602,1.6) 
}
STIN[144]{
    pt3dadd(-6711.23,3937.84,67.8602,1.6) 
    pt3dadd(-6732.25,3917.75,72.4814,1.6) 
    pt3dadd(-6741.75,3892.57,82.0306,1.6) 
}
STIN[145]{
    pt3dadd(-6741.75,3892.57,82.0306,1.6) 
    pt3dadd(-6755.79,3855.35,96.1426,1.6) 
    pt3dadd(-6761.37,3843.25,104.628,1.6) 
}
STIN[146]{
    pt3dadd(-6761.37,3843.25,104.628,1.6) 
    pt3dadd(-6763.38,3838.9,107.679,1.6) 
    pt3dadd(-6763.55,3820,119.354,1.6) 
    pt3dadd(-6763.64,3793.83,134.243,1.6) 
}
FLUT[97]{
    pt3dadd(-6763.64,3793.83,134.243,1.6) 
    pt3dadd(-6763.64,3793.82,134.248,1.6) 
    pt3dadd(-6768.99,3786.61,138.625,1.6) 
}
MYSA[97]{
    pt3dadd(-6768.99,3786.61,138.625,1.4) 
    pt3dadd(-6770.6,3784.44,139.94,1.4) 
}
node[49]{
    pt3dadd(-6770.6,3784.44,139.94,1.4) 
    pt3dadd(-6771.13,3783.72,140.378,1.4) 
}
MYSA[98]{
    pt3dadd(-6771.13,3783.72,140.378,1.4) 
    pt3dadd(-6772.74,3781.56,141.692,1.4) 
}
FLUT[98]{
    pt3dadd(-6772.74,3781.56,141.692,1.6) 
    pt3dadd(-6778.09,3774.33,146.074,1.6) 
}
STIN[147]{
    pt3dadd(-6778.09,3774.33,146.074,1.6) 
    pt3dadd(-6785.17,3764.79,151.864,1.6) 
    pt3dadd(-6813.81,3734.88,168.913,1.6) 
}
STIN[148]{
    pt3dadd(-6813.81,3734.88,168.913,1.6) 
    pt3dadd(-6819.07,3729.39,172.044,1.6) 
    pt3dadd(-6823.5,3690.66,197.096,1.6) 
    pt3dadd(-6823.95,3688.7,199.883,1.6) 
}
STIN[149]{
    pt3dadd(-6823.95,3688.7,199.883,1.6) 
    pt3dadd(-6829.49,3664.97,233.529,1.6) 
    pt3dadd(-6829.76,3653.9,245.703,1.6) 
}
FLUT[99]{
    pt3dadd(-6829.76,3653.9,245.703,1.6) 
    pt3dadd(-6829.93,3647.17,253.101,1.6) 
}
MYSA[99]{
    pt3dadd(-6829.93,3647.17,253.101,1.4) 
    pt3dadd(-6829.98,3645.15,255.32,1.4) 
}
node[50]{
    pt3dadd(-6829.98,3645.15,255.32,1.4) 
    pt3dadd(-6830,3644.48,256.06,1.4) 
}
MYSA[100]{
    pt3dadd(-6830,3644.48,256.06,1.4) 
    pt3dadd(-6830.05,3642.46,258.279,1.4) 
}
FLUT[100]{
    pt3dadd(-6830.05,3642.46,258.279,1.6) 
    pt3dadd(-6830.2,3636.43,264.91,1.6) 
    pt3dadd(-6830.37,3635.53,265.391,1.6) 
}
STIN[150]{
    pt3dadd(-6830.37,3635.53,265.391,1.6) 
    pt3dadd(-6832.69,3622.99,272.073,1.6) 
    pt3dadd(-6833.18,3595.7,275.268,1.6) 
    pt3dadd(-6846.22,3587.79,280.526,1.6) 
}
STIN[151]{
    pt3dadd(-6846.22,3587.79,280.526,1.6) 
    pt3dadd(-6869.86,3573.43,290.065,1.6) 
    pt3dadd(-6882.62,3558.94,305.703,1.6) 
    pt3dadd(-6884.57,3556.39,307.893,1.6) 
}
STIN[152]{
    pt3dadd(-6884.57,3556.39,307.893,1.6) 
    pt3dadd(-6893.67,3544.47,318.096,1.6) 
    pt3dadd(-6894.03,3509.76,328.605,1.6) 
    pt3dadd(-6894.07,3506.5,330.136,1.6) 
}
FLUT[101]{
    pt3dadd(-6894.07,3506.5,330.136,1.6) 
    pt3dadd(-6894.17,3497.45,334.388,1.6) 
}
MYSA[101]{
    pt3dadd(-6894.17,3497.45,334.388,1.4) 
    pt3dadd(-6894.2,3494.74,335.663,1.4) 
}
node[51]{
    pt3dadd(-6894.2,3494.74,335.663,1.4) 
    pt3dadd(-6894.21,3493.83,336.088,1.4) 
}
MYSA[102]{
    pt3dadd(-6894.21,3493.83,336.088,1.4) 
    pt3dadd(-6894.24,3491.12,337.364,1.4) 
}
FLUT[102]{
    pt3dadd(-6894.24,3491.12,337.364,1.6) 
    pt3dadd(-6894.35,3482.06,341.615,1.6) 
}
STIN[153]{
    pt3dadd(-6894.35,3482.06,341.615,1.6) 
    pt3dadd(-6894.43,3474.83,345.013,1.6) 
    pt3dadd(-6896.41,3430.8,368.648,1.6) 
}
STIN[154]{
    pt3dadd(-6896.41,3430.8,368.648,1.6) 
    pt3dadd(-6898.71,3379.73,396.061,1.6) 
}
STIN[155]{
    pt3dadd(-6898.71,3379.73,396.061,1.6) 
    pt3dadd(-6898.77,3378.41,396.769,1.6) 
    pt3dadd(-6906.33,3330,424.912,1.6) 
}
FLUT[103]{
    pt3dadd(-6906.33,3330,424.912,1.6) 
    pt3dadd(-6907.34,3323.5,428.693,1.6) 
    pt3dadd(-6907.05,3321.68,430.241,1.6) 
}
MYSA[103]{
    pt3dadd(-6907.05,3321.68,430.241,1.4) 
    pt3dadd(-6906.69,3319.41,432.17,1.4) 
}
node[52]{
    pt3dadd(-6906.69,3319.41,432.17,1.4) 
    pt3dadd(-6906.57,3318.65,432.813,1.4) 
}
MYSA[104]{
    pt3dadd(-6906.57,3318.65,432.813,1.4) 
    pt3dadd(-6906.2,3316.38,434.741,1.4) 
}
FLUT[104]{
    pt3dadd(-6906.2,3316.38,434.741,1.6) 
    pt3dadd(-6904.99,3308.82,441.17,1.6) 
}
STIN[156]{
    pt3dadd(-6904.99,3308.82,441.17,1.6) 
    pt3dadd(-6900.63,3281.59,464.314,1.6) 
    pt3dadd(-6907.08,3262.27,472.635,1.6) 
}
STIN[157]{
    pt3dadd(-6907.08,3262.27,472.635,1.6) 
    pt3dadd(-6909.15,3256.08,475.302,1.6) 
    pt3dadd(-6899.68,3220.15,510.162,1.6) 
}
STIN[158]{
    pt3dadd(-6899.68,3220.15,510.162,1.6) 
    pt3dadd(-6899.54,3219.6,510.693,1.6) 
    pt3dadd(-6894.9,3195,550.418,1.6) 
    pt3dadd(-6894.84,3189.82,559.28,1.6) 
}
FLUT[105]{
    pt3dadd(-6894.84,3189.82,559.28,1.6) 
    pt3dadd(-6894.78,3184.77,567.912,1.6) 
}
MYSA[105]{
    pt3dadd(-6894.78,3184.77,567.912,1.4) 
    pt3dadd(-6894.76,3183.26,570.502,1.4) 
}
node[53]{
    pt3dadd(-6894.76,3183.26,570.502,1.4) 
    pt3dadd(-6894.76,3182.75,571.365,1.4) 
}
MYSA[106]{
    pt3dadd(-6894.76,3182.75,571.365,1.4) 
    pt3dadd(-6894.74,3181.24,573.955,1.4) 
}
FLUT[106]{
    pt3dadd(-6894.74,3181.24,573.955,1.6) 
    pt3dadd(-6894.7,3178.03,579.435,1.6) 
    pt3dadd(-6895.35,3175.06,581.457,1.6) 
}
STIN[159]{
    pt3dadd(-6895.35,3175.06,581.457,1.6) 
    pt3dadd(-6900.16,3152.78,596.62,1.6) 
    pt3dadd(-6914.07,3137.01,618.883,1.6) 
}
STIN[160]{
    pt3dadd(-6914.07,3137.01,618.883,1.6) 
    pt3dadd(-6925.35,3124.21,636.942,1.6) 
    pt3dadd(-6925.37,3110.81,650.339,1.6) 
    pt3dadd(-6925.25,3105.02,663.312,1.6) 
}
STIN[161]{
    pt3dadd(-6925.25,3105.02,663.312,1.6) 
    pt3dadd(-6925.07,3096.68,682.015,1.6) 
    pt3dadd(-6922.93,3067.34,705.309,1.6) 
}
FLUT[107]{
    pt3dadd(-6922.93,3067.34,705.309,1.6) 
    pt3dadd(-6922.36,3059.53,711.518,1.6) 
}
MYSA[107]{
    pt3dadd(-6922.36,3059.53,711.518,1.4) 
    pt3dadd(-6922.2,3057.23,713.337,1.4) 
    pt3dadd(-6922.2,3057.19,713.388,1.4) 
}
node[54]{
    pt3dadd(-6922.2,3057.19,713.388,1.4) 
    pt3dadd(-6922.26,3056.5,714.109,1.4) 
}
MYSA[108]{
    pt3dadd(-6922.26,3056.5,714.109,1.4) 
    pt3dadd(-6922.44,3054.43,716.272,1.4) 
}
FLUT[108]{
    pt3dadd(-6922.44,3054.43,716.272,1.6) 
    pt3dadd(-6923.03,3047.52,723.484,1.6) 
}
STIN[162]{
    pt3dadd(-6923.03,3047.52,723.484,1.6) 
    pt3dadd(-6923.68,3039.95,731.399,1.6) 
    pt3dadd(-6938.15,3039.33,757.871,1.6) 
    pt3dadd(-6949.49,3037.59,764.743,1.6) 
    pt3dadd(-6950.84,3040.09,766.73,1.6) 
}
STIN[163]{
    pt3dadd(-6950.84,3040.09,766.73,1.6) 
    pt3dadd(-6953.49,3045,770.629,1.6) 
    pt3dadd(-6953.55,3046.49,765.631,1.6) 
    pt3dadd(-6973.64,3064.92,792.619,1.6) 
    pt3dadd(-6976.75,3065.3,799.561,1.6) 
}
STIN[164]{
    pt3dadd(-6976.75,3065.3,799.561,1.6) 
    pt3dadd(-6987.41,3066.63,823.391,1.6) 
    pt3dadd(-6990.25,3043.74,845.368,1.6) 
}
FLUT[109]{
    pt3dadd(-6990.25,3043.74,845.368,1.6) 
    pt3dadd(-6991.14,3036.56,852.267,1.6) 
}
MYSA[109]{
    pt3dadd(-6991.14,3036.56,852.267,1.4) 
    pt3dadd(-6991.41,3034.4,854.336,1.4) 
}
node[55]{
    pt3dadd(-6991.41,3034.4,854.336,1.4) 
    pt3dadd(-6991.5,3033.69,855.026,1.4) 
}
MYSA[110]{
    pt3dadd(-6991.5,3033.69,855.026,1.4) 
    pt3dadd(-6991.77,3031.53,857.096,1.4) 
}
FLUT[110]{
    pt3dadd(-6991.77,3031.53,857.096,1.6) 
    pt3dadd(-6992.66,3024.35,863.994,1.6) 
}
STIN[165]{
    pt3dadd(-6992.66,3024.35,863.994,1.6) 
    pt3dadd(-6993.67,3016.17,871.847,1.6) 
    pt3dadd(-6993.93,2986.35,890.506,1.6) 
    pt3dadd(-6992.49,2975.89,894.932,1.6) 
}
STIN[166]{
    pt3dadd(-6992.49,2975.89,894.932,1.6) 
    pt3dadd(-6987.87,2942.25,909.168,1.6) 
    pt3dadd(-6987.83,2929.01,925.705,1.6) 
}
STIN[167]{
    pt3dadd(-6987.83,2929.01,925.705,1.6) 
    pt3dadd(-6987.8,2920.94,935.794,1.6) 
    pt3dadd(-6987.7,2911.13,951.72,1.6) 
    pt3dadd(-6987.88,2891.84,963.005,1.6) 
    pt3dadd(-6987.84,2890.45,966.782,1.6) 
}
FLUT[111]{
    pt3dadd(-6987.84,2890.45,966.782,1.6) 
    pt3dadd(-6987.77,2888.11,973.119,1.6) 
    pt3dadd(-6987.71,2886.08,975.649,1.6) 
}
MYSA[111]{
    pt3dadd(-6987.71,2886.08,975.649,1.4) 
    pt3dadd(-6987.66,2884.2,977.987,1.4) 
}
node[56]{
    pt3dadd(-6987.66,2884.2,977.987,1.4) 
    pt3dadd(-6987.64,2883.58,978.767,1.4) 
}
MYSA[112]{
    pt3dadd(-6987.64,2883.58,978.767,1.4) 
    pt3dadd(-6987.59,2881.7,981.105,1.4) 
}
FLUT[112]{
    pt3dadd(-6987.59,2881.7,981.105,1.6) 
    pt3dadd(-6987.42,2875.44,988.901,1.6) 
}
STIN[168]{
    pt3dadd(-6987.42,2875.44,988.901,1.6) 
    pt3dadd(-6986.94,2857.84,1010.81,1.6) 
    pt3dadd(-6981.52,2837.9,1032.41,1.6) 
}
STIN[169]{
    pt3dadd(-6981.52,2837.9,1032.41,1.6) 
    pt3dadd(-6979.9,2831.93,1038.87,1.6) 
    pt3dadd(-6986.86,2814.45,1077.6,1.6) 
    pt3dadd(-6988.94,2811.27,1082.24,1.6) 
}
STIN[170]{
    pt3dadd(-6988.94,2811.27,1082.24,1.6) 
    pt3dadd(-6990.92,2808.23,1086.68,1.6) 
    pt3dadd(-6990.53,2821.94,1092.94,1.6) 
    pt3dadd(-6990.55,2814.47,1099.78,1.6) 
    pt3dadd(-6990.28,2822.56,1105.46,1.6) 
    pt3dadd(-6989.72,2835.41,1114.42,1.6) 
    pt3dadd(-6990.75,2835.54,1115.5,1.6) 
}
FLUT[113]{
    pt3dadd(-6990.75,2835.54,1115.5,1.6) 
    pt3dadd(-6997.62,2836.41,1122.72,1.6) 
}
MYSA[113]{
    pt3dadd(-6997.62,2836.41,1122.72,1.4) 
    pt3dadd(-6999.68,2836.67,1124.88,1.4) 
}
node[57]{
    pt3dadd(-6999.68,2836.67,1124.88,1.4) 
    pt3dadd(-7000.36,2836.76,1125.6,1.4) 
}
MYSA[114]{
    pt3dadd(-7000.36,2836.76,1125.6,1.4) 
    pt3dadd(-7002.42,2837.02,1127.77,1.4) 
}
FLUT[114]{
    pt3dadd(-7002.42,2837.02,1127.77,1.6) 
    pt3dadd(-7009.29,2837.89,1134.98,1.6) 
}
STIN[171]{
    pt3dadd(-7009.29,2837.89,1134.98,1.6) 
    pt3dadd(-7021.27,2839.41,1147.56,1.6) 
    pt3dadd(-7030.84,2826.16,1184.68,1.6) 
}
STIN[172]{
    pt3dadd(-7030.84,2826.16,1184.68,1.6) 
    pt3dadd(-7031.1,2825.8,1185.68,1.6) 
    pt3dadd(-7030.37,2799.44,1206.07,1.6) 
    pt3dadd(-7026.19,2788.22,1226.37,1.6) 
}
STIN[173]{
    pt3dadd(-7026.19,2788.22,1226.37,1.6) 
    pt3dadd(-7022.31,2777.81,1245.2,1.6) 
    pt3dadd(-7021.32,2760.05,1276.65,1.6) 
}
FLUT[115]{
    pt3dadd(-7021.32,2760.05,1276.65,1.6) 
    pt3dadd(-7021.04,2755.13,1285.36,1.6) 
}
MYSA[115]{
    pt3dadd(-7021.04,2755.13,1285.36,1.4) 
    pt3dadd(-7020.96,2753.65,1287.97,1.4) 
}
node[58]{
    pt3dadd(-7020.96,2753.65,1287.97,1.4) 
    pt3dadd(-7020.93,2753.16,1288.84,1.4) 
}
MYSA[116]{
    pt3dadd(-7020.93,2753.16,1288.84,1.4) 
    pt3dadd(-7020.85,2751.69,1291.45,1.4) 
}
FLUT[116]{
    pt3dadd(-7020.85,2751.69,1291.45,1.6) 
    pt3dadd(-7020.6,2747.15,1299.47,1.6) 
    pt3dadd(-7021,2747.08,1300.13,1.6) 
}
STIN[174]{
    pt3dadd(-7021,2747.08,1300.13,1.6) 
    pt3dadd(-7032.16,2745.14,1318.23,1.6) 
    pt3dadd(-7050.44,2742.76,1338.78,1.6) 
    pt3dadd(-7051.16,2737.82,1346.31,1.6) 
}
STIN[175]{
    pt3dadd(-7051.16,2737.82,1346.31,1.6) 
    pt3dadd(-7051.98,2732.22,1354.86,1.6) 
    pt3dadd(-7051.87,2718.07,1367.56,1.6) 
    pt3dadd(-7068.03,2702.08,1385.14,1.6) 
}
STIN[176]{
    pt3dadd(-7068.03,2702.08,1385.14,1.6) 
    pt3dadd(-7077.52,2692.68,1395.46,1.6) 
    pt3dadd(-7092.33,2669.91,1412.42,1.6) 
    pt3dadd(-7094.95,2662,1416.07,1.6) 
}
FLUT[117]{
    pt3dadd(-7094.95,2662,1416.07,1.6) 
    pt3dadd(-7097.83,2653.3,1420.08,1.6) 
}
MYSA[117]{
    pt3dadd(-7097.83,2653.3,1420.08,1.4) 
    pt3dadd(-7098.7,2650.69,1421.29,1.4) 
}
node[59]{
    pt3dadd(-7098.7,2650.69,1421.29,1.4) 
    pt3dadd(-7098.98,2649.83,1421.69,1.4) 
}

//change dendrites'  conductances so they linearly decrease or increase with increasing 
//distance from the soma (see Gillies 2005 for more detailed explanation)

initcell()  //IF NOT CALLED HERE, MUST CALL IT IN STN_multi.hoc !!!


access soma[1]
my_ind = int(n3d()/2)
xsoma=x3d(my_ind)  //get coordinates for soma location
ysoma=y3d(my_ind)
zsoma=z3d(my_ind)
//print "soma coords ", xsoma, ysoma, zsoma
max_dist = 734.15 // Maximum dendrite-soma distance ; set to zero when calculating for the first time

kdr_prox = -0.05 //Proximity for KDR channel (from Gillies 2005)
kfr_prox = 0.8 //Proximity for Kv31 channel (from Gillies 2005)
kca_prox = -0.52 //Proximity for KCa channel (from Gillies 2005)
hcn_prox = -0.39 //Proximity for HCN channel (from Gillies 2005)
cat_prox = -0.01 //Proximity for CaT channel (from Gillies 2005)
can_prox = 0.5 //Proximity for CaN channel (from Gillies 2005)
cal_prox = -0.57 //Proximity for CaL channel (from Gillies 2005)

for i=0,dendelements-1 {
	access	dend[i]
	my_ind = int(n3d()/2)
	xdend=x3d(my_ind)  //get coordinates for dendrite
	ydend=y3d(my_ind)
	zdend=z3d(my_ind)
	//print "		dend coords ", xdend, ydend, zdend
	app_dist = sqrt((xsoma-xdend)^2 + (ysoma-ydend)^2 + (zsoma-zdend)^2) //distance from soma to dend
	pd = app_dist/max_dist   //parametrized distance (from 0 to 1)
	//if (max_dist < app_dist) max_dist = app_dist	//for calculating maximum dendrite-soma distance
	
	//set up KDR conductance
	if (kdr_prox == 0) { 
		f = 1   
  	} else {
		if (kdr_prox > 0) { 
			f = (1-kdr_prox-pd)/(1-kdr_prox)
    		} else { 
			f = (kdr_prox+pd)/(1+kdr_prox) 
    		}
	} 
   	if (f < 0) f = 0
    	gk_KDR   = 4.22e-5 + f*9.32e-5  //Basal conductance * f*Tree_Conductance 


	//set up CaT conductance
	if (cat_prox == 0) { 
		f = 1   
  	} else {
		if (cat_prox > 0) { 
			f = (1-cat_prox-pd)/(1-cat_prox)
    		} else { 
			f = (cat_prox+pd)/(1+cat_prox) 
    		}
	} 
   	if (f < 0) f = 0
    	gcaT_CaT   = 1.17e-3 + f*1.67e-3  //Basal conductance * f*Tree_Conductance 

	//set up CaL conductance
	if (cal_prox == 0) { 
		f = 1   
  	} else {
		if (cal_prox > 0) { 
			f = (1-cal_prox-pd)/(1-cal_prox)
    		} else { 
			f = (cal_prox+pd)/(1+cal_prox) 
    		}
	} 
   	if (f < 0) f = 0
    	gcaL_HVA   = 1.21e-4 + f*1.87e-3  //Basal conductance * f*Tree_Conductance 
	
	//set up CaN conductance
	if (can_prox == 0) { 
		f = 1   
  	} else {
		if (can_prox > 0) { 
			f = (1-can_prox-pd)/(1-can_prox)
    		} else { 
			f = (can_prox+pd)/(1+can_prox) 
    		}
	} 
   	if (f < 0) f = 0
    	gcaN_HVA   = 0 + f*4.79e-4  //Basal conductance * f*Tree_Conductance 

	//set up KCa conductance
	if (kca_prox == 0) { 
		f = 1   
  	} else {
		if (kca_prox > 0) { 
			f = (1-kca_prox-pd)/(1-kca_prox)
    		} else { 
			f = (kca_prox+pd)/(1+kca_prox) 
    		}
	} 
   	if (f < 0) f = 0
    	gk_sKCa   = 0 + 1.8*f*3.92e-5  //Basal conductance * f*Tree_Conductance 
	
	//set up Kv31 (KFR) conductance
	if (kfr_prox == 0) { 
		f = 1   
  	} else {
		if (kfr_prox > 0) { 
			f = (1-kfr_prox-pd)/(1-kfr_prox)
    		} else { 
			f = (kfr_prox+pd)/(1+kfr_prox) 
    		}
	} 
   	if (f < 0) f = 0
    	gk_Kv31   = 8.91e-4 + f*1.0e-3  //Basal conductance * f*Tree_Conductance 


	//set up HCN conductance
	if (hcn_prox == 0) { 
		f = 1   
  	} else {
		if (hcn_prox > 0) { 
			f = (1-hcn_prox-pd)/(1-hcn_prox)
    		} else { 
			f = (hcn_prox+pd)/(1+hcn_prox) 
    		}
	} 
   	if (f < 0) f = 0
    	gk_Ih   = 0 + f*5.1e-4  //Basal conductance * f*Tree_Conductance  		
	
				
	//print "Dend=", i, " dist = ", app_dist, " pd = ", pd, " f= ", f, " new cond. =", ghcnbar_hcn
	//print i,",", app_dist, ",", pd, ",", f, ",", ghcnbar_hcn

} 
//print "Max = ", max_dist //max dist is 734

Loading data, please wait...