//Svjetlana Miocinovic
//STN neuron (3D dendritic tree, no axon)
//NEURON 5.5 (Windows version)
//March 2004

//soma and dendrites like n17_full9.hoc, but axon trajectory different
//axon goes ventral to STN 

//Variables//
proc model_globals(){

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

//topological parameters//
	dendelements=288
	somaelements = 3
	iselements=1   //initial segment elements
	axonnodes=28		
	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)
//}

//soma diam incr from 8 to 18
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(-1700.70 , -614.07    , 6.45    , 4.62)  
    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(-4397.12,5277.79,-2256.09,0.92)
    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(-1697.84 , -613.84    , 6.30    , 1.92) 
    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(-1698.40 , -614.04    , 6.45    , 1.54)  
    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(-1699.61 , -614.56    , 6.45    , 1.92)  
    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(-1699.62 , -614.46    , 6.45    , 1.92)  
    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(-1698.89 , -614.82  , -16.56    , 1.92)  
    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(-1700.53 , -614.52    , 6.45    , 1.92) 
  //pt3dadd(-1707.09 , -619.17    , 6.45    , 1.92)  
    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(-1701.68 , -614.65   , 23.89    , 1.54)  
  //pt3dadd(-1706.63 , -612.48   , 23.89    , 1.54)  
    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.219971,5232.750000,-2237.025024,1.400000)
}

node[0]{
	 pt3dadd(-4369.219971,5232.750000,-2237.025024,1.400000)
	 pt3dadd(-4368.616693,5232.225686,-2236.424066,1.400000)
}
MYSA[0]{
	 pt3dadd(-4368.616693,5232.225686,-2236.424066,1.400000)
	 pt3dadd(-4367.711775,5231.439216,-2235.522629,1.400000)
}
FLUT[0]{
	 pt3dadd(-4367.711775,5231.439216,-2235.522629,1.600000)
	 pt3dadd(-4364.695384,5228.817649,-2232.517838,1.600000)
}
STIN[0]{
	 pt3dadd(-4364.695384,5228.817649,-2232.517838,1.600000)
	 pt3dadd(-4347.200315,5213.612557,-2215.090051,1.600000)
}
STIN[1]{
	 pt3dadd(-4347.200315,5213.612557,-2215.090051,1.600000)
	 pt3dadd(-4329.705246,5198.407464,-2197.662265,1.600000)
}
STIN[2]{
	 pt3dadd(-4329.705246,5198.407464,-2197.662265,1.600000)
	 pt3dadd(-4322.465088,5192.114990,-2190.449951,1.600000)
	 pt3dadd(-4308.408345,5183.555129,-2194.703253,1.600000)
}
FLUT[1]{
	 pt3dadd(-4308.408345,5183.555129,-2194.703253,1.600000)
	 pt3dadd(-4304.273679,5181.037321,-2195.954324,1.600000)
}
MYSA[1]{
	 pt3dadd(-4304.273679,5181.037321,-2195.954324,1.400000)
	 pt3dadd(-4303.033279,5180.281979,-2196.329645,1.400000)
}
node[1]{
	 pt3dadd(-4303.033279,5180.281979,-2196.329645,1.400000)
	 pt3dadd(-4302.206346,5179.778417,-2196.579859,1.400000)
}
MYSA[2]{
	 pt3dadd(-4302.206346,5179.778417,-2196.579859,1.400000)
	 pt3dadd(-4300.965946,5179.023075,-2196.955181,1.400000)
}
FLUT[2]{
	 pt3dadd(-4300.965946,5179.023075,-2196.955181,1.600000)
	 pt3dadd(-4296.831279,5176.505268,-2198.206252,1.600000)
}
STIN[3]{
	 pt3dadd(-4296.831279,5176.505268,-2198.206252,1.600000)
	 pt3dadd(-4272.850214,5161.901984,-2205.462464,1.600000)
}
STIN[4]{
	 pt3dadd(-4272.850214,5161.901984,-2205.462464,1.600000)
	 pt3dadd(-4252.549805,5149.540039,-2211.604980,1.600000)
	 pt3dadd(-4248.548768,5149.329116,-2209.666330,1.600000)
}
STIN[5]{
	 pt3dadd(-4248.548768,5149.329116,-2209.666330,1.600000)
	 pt3dadd(-4222.480289,5147.954860,-2197.035186,1.600000)
}
FLUT[3]{
	 pt3dadd(-4222.480289,5147.954860,-2197.035186,1.600000)
	 pt3dadd(-4217.985723,5147.717919,-2194.857403,1.600000)
}
MYSA[3]{
	 pt3dadd(-4217.985723,5147.717919,-2194.857403,1.400000)
	 pt3dadd(-4216.637354,5147.646837,-2194.204068,1.400000)
}
node[2]{
	 pt3dadd(-4216.637354,5147.646837,-2194.204068,1.400000)
	 pt3dadd(-4215.738440,5147.599448,-2193.768511,1.400000)
}
MYSA[4]{
	 pt3dadd(-4215.738440,5147.599448,-2193.768511,1.400000)
	 pt3dadd(-4214.390071,5147.528366,-2193.115176,1.400000)
}
FLUT[4]{
	 pt3dadd(-4214.390071,5147.528366,-2193.115176,1.600000)
	 pt3dadd(-4209.895505,5147.291426,-2190.937393,1.600000)
}
STIN[6]{
	 pt3dadd(-4209.895505,5147.291426,-2190.937393,1.600000)
	 pt3dadd(-4200.004883,5146.770020,-2186.145020,1.600000)
	 pt3dadd(-4185.708229,5157.590341,-2184.588391,1.600000)
}
STIN[7]{
	 pt3dadd(-4185.708229,5157.590341,-2184.588391,1.600000)
	 pt3dadd(-4162.671060,5175.025859,-2182.080090,1.600000)
}
STIN[8]{
	 pt3dadd(-4162.671060,5175.025859,-2182.080090,1.600000)
	 pt3dadd(-4139.633891,5192.461376,-2179.571788,1.600000)
}
FLUT[5]{
	 pt3dadd(-4139.633891,5192.461376,-2179.571788,1.600000)
	 pt3dadd(-4135.661966,5195.467500,-2179.139323,1.600000)
}
MYSA[5]{
	 pt3dadd(-4135.661966,5195.467500,-2179.139323,1.400000)
	 pt3dadd(-4134.470388,5196.369337,-2179.009583,1.400000)
}
node[3]{
	 pt3dadd(-4134.470388,5196.369337,-2179.009583,1.400000)
	 pt3dadd(-4133.676003,5196.970562,-2178.923090,1.400000)
}
MYSA[6]{
	 pt3dadd(-4133.676003,5196.970562,-2178.923090,1.400000)
	 pt3dadd(-4131.292847,5198.774236,-2178.663610,1.400000)
}
FLUT[6]{
	 pt3dadd(-4131.292847,5198.774236,-2178.663610,1.600000)
	 pt3dadd(-4123.348996,5204.786484,-2177.798679,1.600000)
}
STIN[9]{
	 pt3dadd(-4123.348996,5204.786484,-2177.798679,1.600000)
	 pt3dadd(-4080.515015,5237.205078,-2173.134888,1.600000)
	 pt3dadd(-4077.517100,5238.148474,-2175.735150,1.600000)
}
STIN[10]{
	 pt3dadd(-4077.517100,5238.148474,-2175.735150,1.600000)
	 pt3dadd(-4034.890021,5251.562530,-2212.708048,1.600000)
}
STIN[11]{
	 pt3dadd(-4034.890021,5251.562530,-2212.708048,1.600000)
	 pt3dadd(-3992.262941,5264.976586,-2249.680946,1.600000)
}
FLUT[7]{
	 pt3dadd(-3992.262941,5264.976586,-2249.680946,1.600000)
	 pt3dadd(-3984.913444,5267.289354,-2256.055584,1.600000)
}
MYSA[7]{
	 pt3dadd(-3984.913444,5267.289354,-2256.055584,1.400000)
	 pt3dadd(-3982.708595,5267.983185,-2257.967975,1.400000)
}
node[4]{
	 pt3dadd(-3982.708595,5267.983185,-2257.967975,1.400000)
	 pt3dadd(-3981.973646,5268.214462,-2258.605439,1.400000)
}
MYSA[8]{
	 pt3dadd(-3981.973646,5268.214462,-2258.605439,1.400000)
	 pt3dadd(-3979.768797,5268.908292,-2260.517830,1.400000)
}
FLUT[8]{
	 pt3dadd(-3979.768797,5268.908292,-2260.517830,1.600000)
	 pt3dadd(-3972.419300,5271.221060,-2266.892468,1.600000)
}
STIN[12]{
	 pt3dadd(-3972.419300,5271.221060,-2266.892468,1.600000)
	 pt3dadd(-3947.714966,5278.995117,-2288.319946,1.600000)
	 pt3dadd(-3927.348108,5269.544919,-2297.837261,1.600000)
}
STIN[13]{
	 pt3dadd(-3927.348108,5269.544919,-2297.837261,1.600000)
	 pt3dadd(-3878.908001,5247.068766,-2320.473043,1.600000)
}
STIN[14]{
	 pt3dadd(-3878.908001,5247.068766,-2320.473043,1.600000)
	 pt3dadd(-3830.467895,5224.592613,-2343.108825,1.600000)
}
FLUT[9]{
	 pt3dadd(-3830.467895,5224.592613,-2343.108825,1.600000)
	 pt3dadd(-3822.116152,5220.717414,-2347.011547,1.600000)
}
MYSA[9]{
	 pt3dadd(-3822.116152,5220.717414,-2347.011547,1.400000)
	 pt3dadd(-3819.610629,5219.554855,-2348.182363,1.400000)
}
node[5]{
	 pt3dadd(-3819.610629,5219.554855,-2348.182363,1.400000)
	 pt3dadd(-3818.775455,5219.167335,-2348.572635,1.400000)
}
MYSA[10]{
	 pt3dadd(-3818.775455,5219.167335,-2348.572635,1.400000)
	 pt3dadd(-3816.269932,5218.004775,-2349.743451,1.400000)
}
FLUT[10]{
	 pt3dadd(-3816.269932,5218.004775,-2349.743451,1.600000)
	 pt3dadd(-3807.918190,5214.129576,-2353.646172,1.600000)
}
STIN[15]{
	 pt3dadd(-3807.918190,5214.129576,-2353.646172,1.600000)
	 pt3dadd(-3802.099976,5211.429932,-2356.364990,1.600000)
	 pt3dadd(-3777.237899,5184.265284,-2391.697419,1.600000)
}
STIN[16]{
	 pt3dadd(-3777.237899,5184.265284,-2391.697419,1.600000)
	 pt3dadd(-3748.981959,5153.392454,-2431.852994,1.600000)
}
STIN[17]{
	 pt3dadd(-3748.981959,5153.392454,-2431.852994,1.600000)
	 pt3dadd(-3720.726018,5122.519624,-2472.008569,1.600000)
}
FLUT[11]{
	 pt3dadd(-3720.726018,5122.519624,-2472.008569,1.600000)
	 pt3dadd(-3715.854304,5117.196723,-2478.931944,1.600000)
}
MYSA[11]{
	 pt3dadd(-3715.854304,5117.196723,-2478.931944,1.400000)
	 pt3dadd(-3714.392790,5115.599852,-2481.008957,1.400000)
}
node[6]{
	 pt3dadd(-3714.392790,5115.599852,-2481.008957,1.400000)
	 pt3dadd(-3713.905619,5115.067562,-2481.701294,1.400000)
}
MYSA[12]{
	 pt3dadd(-3713.905619,5115.067562,-2481.701294,1.400000)
	 pt3dadd(-3712.444105,5113.470691,-2483.778307,1.400000)
}
FLUT[12]{
	 pt3dadd(-3712.444105,5113.470691,-2483.778307,1.600000)
	 pt3dadd(-3707.572391,5108.147790,-2490.701682,1.600000)
}
STIN[18]{
	 pt3dadd(-3707.572391,5108.147790,-2490.701682,1.600000)
	 pt3dadd(-3699.200000,5099.000000,-2502.600000,1.600000)
	 pt3dadd(-3702.400000,5093.500000,-2507.100000,1.600000)
	 pt3dadd(-3709.600000,5081.200000,-2516.800000,1.600000)
	 pt3dadd(-3716.227389,5069.634556,-2525.246673,1.600000)
}
STIN[19]{
	 pt3dadd(-3716.227389,5069.634556,-2525.246673,1.600000)
	 pt3dadd(-3719.800000,5063.400000,-2529.800000,1.600000)
	 pt3dadd(-3734.500000,5037.300000,-2547.000000,1.600000)
	 pt3dadd(-3740.931186,5025.683670,-2553.873330,1.600000)
}
STIN[20]{
	 pt3dadd(-3740.931186,5025.683670,-2553.873330,1.600000)
	 pt3dadd(-3750.500000,5008.400000,-2564.100000,1.600000)
	 pt3dadd(-3761.700000,4987.900000,-2574.900000,1.600000)
	 pt3dadd(-3766.110805,4979.799653,-2578.811469,1.600000)
}
FLUT[13]{
	 pt3dadd(-3766.110805,4979.799653,-2578.811469,1.600000)
	 pt3dadd(-3770.513464,4971.714267,-2582.715714,1.600000)
}
MYSA[13]{
	 pt3dadd(-3770.513464,4971.714267,-2582.715714,1.400000)
	 pt3dadd(-3771.834262,4969.288651,-2583.886987,1.400000)
}
node[7]{
	 pt3dadd(-3771.834262,4969.288651,-2583.886987,1.400000)
	 pt3dadd(-3772.274528,4968.480112,-2584.277412,1.400000)
}
MYSA[14]{
	 pt3dadd(-3772.274528,4968.480112,-2584.277412,1.400000)
	 pt3dadd(-3773.595326,4966.054496,-2585.448685,1.400000)
}
FLUT[14]{
	 pt3dadd(-3773.595326,4966.054496,-2585.448685,1.600000)
	 pt3dadd(-3777.600000,4958.700000,-2589.000000,1.600000)
	 pt3dadd(-3778.000112,4957.952852,-2589.314374,1.600000)
}
STIN[21]{
	 pt3dadd(-3778.000112,4957.952852,-2589.314374,1.600000)
	 pt3dadd(-3797.200000,4922.100000,-2604.400000,1.600000)
	 pt3dadd(-3803.779013,4909.842672,-2608.903491,1.600000)
}
STIN[22]{
	 pt3dadd(-3803.779013,4909.842672,-2608.903491,1.600000)
	 pt3dadd(-3814.000000,4890.800000,-2615.900000,1.600000)
	 pt3dadd(-3830.088477,4860.893199,-2625.474124,1.600000)
}
STIN[23]{
	 pt3dadd(-3830.088477,4860.893199,-2625.474124,1.600000)
	 pt3dadd(-3830.300000,4860.500000,-2625.600000,1.600000)
	 pt3dadd(-3851.300000,4821.100000,-2636.300000,1.600000)
	 pt3dadd(-3856.674163,4811.052652,-2638.603213,1.600000)
}
FLUT[15]{
	 pt3dadd(-3856.674163,4811.052652,-2638.603213,1.600000)
	 pt3dadd(-3861.297184,4802.409612,-2640.584507,1.600000)
}
MYSA[15]{
	 pt3dadd(-3861.297184,4802.409612,-2640.584507,1.400000)
	 pt3dadd(-3862.684091,4799.816700,-2641.178896,1.400000)
}
node[8]{
	 pt3dadd(-3862.684091,4799.816700,-2641.178896,1.400000)
	 pt3dadd(-3863.146393,4798.952396,-2641.377025,1.400000)
}
MYSA[16]{
	 pt3dadd(-3863.146393,4798.952396,-2641.377025,1.400000)
	 pt3dadd(-3864.533299,4796.359484,-2641.971414,1.400000)
}
FLUT[16]{
	 pt3dadd(-3864.533299,4796.359484,-2641.971414,1.600000)
	 pt3dadd(-3867.400000,4791.000000,-2643.200000,1.600000)
	 pt3dadd(-3869.182389,4787.698983,-2643.799458,1.600000)
}
STIN[24]{
	 pt3dadd(-3869.182389,4787.698983,-2643.799458,1.600000)
	 pt3dadd(-3889.700000,4749.700000,-2650.700000,1.600000)
	 pt3dadd(-3896.465389,4737.250290,-2652.373911,1.600000)
}
STIN[25]{
	 pt3dadd(-3896.465389,4737.250290,-2652.373911,1.600000)
	 pt3dadd(-3909.100000,4714.000000,-2655.500000,1.600000)
	 pt3dadd(-3924.096526,4686.572144,-2657.933647,1.600000)
}
STIN[26]{
	 pt3dadd(-3924.096526,4686.572144,-2657.933647,1.600000)
	 pt3dadd(-3931.900000,4672.300000,-2659.200000,1.600000)
	 pt3dadd(-3952.213295,4635.910182,-2660.070570,1.600000)
}
FLUT[17]{
	 pt3dadd(-3952.213295,4635.910182,-2660.070570,1.600000)
	 pt3dadd(-3957.086388,4627.180386,-2660.279417,1.600000)
}
MYSA[17]{
	 pt3dadd(-3957.086388,4627.180386,-2660.279417,1.400000)
	 pt3dadd(-3958.548315,4624.561446,-2660.342071,1.400000)
}
node[9]{
	 pt3dadd(-3958.548315,4624.561446,-2660.342071,1.400000)
	 pt3dadd(-3959.035625,4623.688467,-2660.362955,1.400000)
}
MYSA[18]{
	 pt3dadd(-3959.035625,4623.688467,-2660.362955,1.400000)
	 pt3dadd(-3960.497552,4621.069528,-2660.425609,1.400000)
}
FLUT[18]{
	 pt3dadd(-3960.497552,4621.069528,-2660.425609,1.600000)
	 pt3dadd(-3965.370645,4612.339731,-2660.634456,1.600000)
}
STIN[27]{
	 pt3dadd(-3965.370645,4612.339731,-2660.634456,1.600000)
	 pt3dadd(-3966.900000,4609.600000,-2660.700000,1.600000)
	 pt3dadd(-3994.164695,4562.063571,-2658.107104,1.600000)
}
STIN[28]{
	 pt3dadd(-3994.164695,4562.063571,-2658.107104,1.600000)
	 pt3dadd(-4001.600000,4549.100000,-2657.400000,1.600000)
	 pt3dadd(-4023.567547,4512.616298,-2651.178791,1.600000)
}
STIN[29]{
	 pt3dadd(-4023.567547,4512.616298,-2651.178791,1.600000)
	 pt3dadd(-4053.171489,4463.450071,-2642.794954,1.600000)
}
FLUT[19]{
	 pt3dadd(-4053.171489,4463.450071,-2642.794954,1.600000)
	 pt3dadd(-4058.275617,4454.973135,-2641.349465,1.600000)
}
MYSA[19]{
	 pt3dadd(-4058.275617,4454.973135,-2641.349465,1.400000)
	 pt3dadd(-4059.806855,4452.430055,-2640.915819,1.400000)
}
node[10]{
	 pt3dadd(-4059.806855,4452.430055,-2640.915819,1.400000)
	 pt3dadd(-4060.317268,4451.582361,-2640.771270,1.400000)
}
MYSA[20]{
	 pt3dadd(-4060.317268,4451.582361,-2640.771270,1.400000)
	 pt3dadd(-4061.848507,4449.039280,-2640.337623,1.400000)
}
FLUT[20]{
	 pt3dadd(-4061.848507,4449.039280,-2640.337623,1.600000)
	 pt3dadd(-4064.100000,4445.300000,-2639.700000,1.600000)
	 pt3dadd(-4067.023068,4440.750448,-2638.288335,1.600000)
}
STIN[30]{
	 pt3dadd(-4067.023068,4440.750448,-2638.288335,1.600000)
	 pt3dadd(-4097.357952,4393.536311,-2623.638417,1.600000)
}
STIN[31]{
	 pt3dadd(-4097.357952,4393.536311,-2623.638417,1.600000)
	 pt3dadd(-4102.200000,4386.000000,-2621.300000,1.600000)
	 pt3dadd(-4128.096315,4348.423919,-2604.176723,1.600000)
}
STIN[32]{
	 pt3dadd(-4128.096315,4348.423919,-2604.176723,1.600000)
	 pt3dadd(-4151.200000,4314.900000,-2588.900000,1.600000)
	 pt3dadd(-4158.977590,4304.506938,-2582.407204,1.600000)
}
FLUT[21]{
	 pt3dadd(-4158.977590,4304.506938,-2582.407204,1.600000)
	 pt3dadd(-4164.336184,4297.346339,-2577.933805,1.600000)
}
MYSA[21]{
	 pt3dadd(-4164.336184,4297.346339,-2577.933805,1.400000)
	 pt3dadd(-4165.943762,4295.198159,-2576.591786,1.400000)
}
node[11]{
	 pt3dadd(-4165.943762,4295.198159,-2576.591786,1.400000)
	 pt3dadd(-4166.479621,4294.482099,-2576.144446,1.400000)
}
MYSA[22]{
	 pt3dadd(-4166.479621,4294.482099,-2576.144446,1.400000)
	 pt3dadd(-4168.087199,4292.333919,-2574.802426,1.400000)
}
FLUT[22]{
	 pt3dadd(-4168.087199,4292.333919,-2574.802426,1.600000)
	 pt3dadd(-4173.445793,4285.173320,-2570.329028,1.600000)
}
STIN[33]{
	 pt3dadd(-4173.445793,4285.173320,-2570.329028,1.600000)
	 pt3dadd(-4185.100000,4269.600000,-2560.600000,1.600000)
	 pt3dadd(-4204.511330,4245.789502,-2541.353639,1.600000)
}
STIN[34]{
	 pt3dadd(-4204.511330,4245.789502,-2541.353639,1.600000)
	 pt3dadd(-4220.400000,4226.300000,-2525.600000,1.600000)
	 pt3dadd(-4235.427842,4209.913050,-2508.048101,1.600000)
}
STIN[35]{
	 pt3dadd(-4235.427842,4209.913050,-2508.048101,1.600000)
	 pt3dadd(-4259.100000,4184.100000,-2480.400000,1.600000)
	 pt3dadd(-4266.150704,4177.806810,-2470.931080,1.600000)
}
FLUT[23]{
	 pt3dadd(-4266.150704,4177.806810,-2470.931080,1.600000)
	 pt3dadd(-4271.420984,4173.102758,-2463.853224,1.600000)
}
MYSA[23]{
	 pt3dadd(-4271.420984,4173.102758,-2463.853224,1.400000)
	 pt3dadd(-4273.002068,4171.691543,-2461.729867,1.400000)
}
node[12]{
	 pt3dadd(-4273.002068,4171.691543,-2461.729867,1.400000)
	 pt3dadd(-4273.529096,4171.221137,-2461.022082,1.400000)
}
MYSA[24]{
	 pt3dadd(-4273.529096,4171.221137,-2461.022082,1.400000)
	 pt3dadd(-4275.110180,4169.809922,-2458.898725,1.400000)
}
FLUT[24]{
	 pt3dadd(-4275.110180,4169.809922,-2458.898725,1.600000)
	 pt3dadd(-4280.380460,4165.105870,-2451.820869,1.600000)
}
STIN[36]{
	 pt3dadd(-4280.380460,4165.105870,-2451.820869,1.600000)
	 pt3dadd(-4307.500000,4140.900000,-2415.400000,1.600000)
	 pt3dadd(-4312.581469,4138.719112,-2411.903310,1.600000)
}
STIN[37]{
	 pt3dadd(-4312.581469,4138.719112,-2411.903310,1.600000)
	 pt3dadd(-4357.629192,4119.385325,-2380.904805,1.600000)
}
STIN[38]{
	 pt3dadd(-4357.629192,4119.385325,-2380.904805,1.600000)
	 pt3dadd(-4377.400000,4110.900000,-2367.300000,1.600000)
	 pt3dadd(-4408.677928,4103.623334,-2362.018549,1.600000)
}
FLUT[25]{
	 pt3dadd(-4408.677928,4103.623334,-2362.018549,1.600000)
	 pt3dadd(-4418.288710,4101.387430,-2360.395715,1.600000)
}
MYSA[25]{
	 pt3dadd(-4418.288710,4101.387430,-2360.395715,1.400000)
	 pt3dadd(-4421.171945,4100.716658,-2359.908865,1.400000)
}
node[13]{
	 pt3dadd(-4421.171945,4100.716658,-2359.908865,1.400000)
	 pt3dadd(-4422.133023,4100.493068,-2359.746581,1.400000)
}
MYSA[26]{
	 pt3dadd(-4422.133023,4100.493068,-2359.746581,1.400000)
	 pt3dadd(-4425.016258,4099.822296,-2359.259731,1.400000)
}
FLUT[26]{
	 pt3dadd(-4425.016258,4099.822296,-2359.259731,1.600000)
	 pt3dadd(-4434.627041,4097.586392,-2357.636897,1.600000)
}
STIN[39]{
	 pt3dadd(-4434.627041,4097.586392,-2357.636897,1.600000)
	 pt3dadd(-4490.369580,4084.618147,-2348.224461,1.600000)
}
STIN[40]{
	 pt3dadd(-4490.369580,4084.618147,-2348.224461,1.600000)
	 pt3dadd(-4537.300000,4073.700000,-2340.300000,1.600000)
	 pt3dadd(-4546.182389,4071.485915,-2339.779039,1.600000)
}
STIN[41]{
	 pt3dadd(-4546.182389,4071.485915,-2339.779039,1.600000)
	 pt3dadd(-4602.369436,4057.480346,-2336.483611,1.600000)
}
FLUT[27]{
	 pt3dadd(-4602.369436,4057.480346,-2336.483611,1.600000)
	 pt3dadd(-4605.500000,4056.700000,-2336.300000,1.600000)
	 pt3dadd(-4611.908520,4054.528327,-2336.137935,1.600000)
}
MYSA[27]{
	 pt3dadd(-4611.908520,4054.528327,-2336.137935,1.400000)
	 pt3dadd(-4614.748998,4053.565766,-2336.066102,1.400000)
}
node[14]{
	 pt3dadd(-4614.748998,4053.565766,-2336.066102,1.400000)
	 pt3dadd(-4615.695824,4053.244912,-2336.042158,1.400000)
}
MYSA[28]{
	 pt3dadd(-4615.695824,4053.244912,-2336.042158,1.400000)
	 pt3dadd(-4618.536302,4052.282351,-2335.970325,1.400000)
}
FLUT[28]{
	 pt3dadd(-4618.536302,4052.282351,-2335.970325,1.600000)
	 pt3dadd(-4628.004563,4049.073815,-2335.730882,1.600000)
}
STIN[42]{
	 pt3dadd(-4628.004563,4049.073815,-2335.730882,1.600000)
	 pt3dadd(-4682.920476,4030.464304,-2334.342112,1.600000)
}
STIN[43]{
	 pt3dadd(-4682.920476,4030.464304,-2334.342112,1.600000)
	 pt3dadd(-4737.836388,4011.854793,-2332.953343,1.600000)
}
STIN[44]{
	 pt3dadd(-4737.836388,4011.854793,-2332.953343,1.600000)
	 pt3dadd(-4743.900000,4009.800000,-2332.800000,1.600000)
	 pt3dadd(-4788.189000,3983.333751,-2332.407114,1.600000)
}
FLUT[29]{
	 pt3dadd(-4788.189000,3983.333751,-2332.407114,1.600000)
	 pt3dadd(-4796.772829,3978.204221,-2332.330967,1.600000)
}
MYSA[29]{
	 pt3dadd(-4796.772829,3978.204221,-2332.330967,1.400000)
	 pt3dadd(-4799.347977,3976.665362,-2332.308123,1.400000)
}
node[15]{
	 pt3dadd(-4799.347977,3976.665362,-2332.308123,1.400000)
	 pt3dadd(-4800.206360,3976.152409,-2332.300508,1.400000)
}
MYSA[30]{
	 pt3dadd(-4800.206360,3976.152409,-2332.300508,1.400000)
	 pt3dadd(-4802.781509,3974.613550,-2332.277664,1.400000)
}
FLUT[30]{
	 pt3dadd(-4802.781509,3974.613550,-2332.277664,1.600000)
	 pt3dadd(-4811.365338,3969.484020,-2332.201517,1.600000)
}
STIN[45]{
	 pt3dadd(-4811.365338,3969.484020,-2332.201517,1.600000)
	 pt3dadd(-4861.151547,3939.732745,-2331.759865,1.600000)
}
STIN[46]{
	 pt3dadd(-4861.151547,3939.732745,-2331.759865,1.600000)
	 pt3dadd(-4867.900000,3935.700000,-2331.700000,1.600000)
	 pt3dadd(-4907.405262,3904.826993,-2331.869260,1.600000)
}
STIN[47]{
	 pt3dadd(-4907.405262,3904.826993,-2331.869260,1.600000)
	 pt3dadd(-4953.105072,3869.113003,-2332.065060,1.600000)
}
FLUT[31]{
	 pt3dadd(-4953.105072,3869.113003,-2332.065060,1.600000)
	 pt3dadd(-4960.984349,3862.955418,-2332.098819,1.600000)
}
MYSA[31]{
	 pt3dadd(-4960.984349,3862.955418,-2332.098819,1.400000)
	 pt3dadd(-4963.348133,3861.108143,-2332.108947,1.400000)
}
node[16]{
	 pt3dadd(-4963.348133,3861.108143,-2332.108947,1.400000)
	 pt3dadd(-4964.136060,3860.492385,-2332.112322,1.400000)
}
MYSA[32]{
	 pt3dadd(-4964.136060,3860.492385,-2332.112322,1.400000)
	 pt3dadd(-4966.499844,3858.645109,-2332.122450,1.400000)
}
FLUT[32]{
	 pt3dadd(-4966.499844,3858.645109,-2332.122450,1.600000)
	 pt3dadd(-4974.379121,3852.487525,-2332.156209,1.600000)
}
STIN[48]{
	 pt3dadd(-4974.379121,3852.487525,-2332.156209,1.600000)
	 pt3dadd(-4984.600000,3844.500000,-2332.200000,1.600000)
	 pt3dadd(-5023.862180,3822.463410,-2332.835937,1.600000)
}
STIN[49]{
	 pt3dadd(-5023.862180,3822.463410,-2332.835937,1.600000)
	 pt3dadd(-5074.435129,3794.078452,-2333.655076,1.600000)
}
STIN[50]{
	 pt3dadd(-5074.435129,3794.078452,-2333.655076,1.600000)
	 pt3dadd(-5125.008078,3765.693494,-2334.474215,1.600000)
}
FLUT[33]{
	 pt3dadd(-5125.008078,3765.693494,-2334.474215,1.600000)
	 pt3dadd(-5126.600000,3764.800000,-2334.500000,1.600000)
	 pt3dadd(-5134.041242,3761.424372,-2334.271774,1.600000)
}
MYSA[33]{
	 pt3dadd(-5134.041242,3761.424372,-2334.271774,1.400000)
	 pt3dadd(-5136.772210,3760.185502,-2334.188014,1.400000)
}
node[17]{
	 pt3dadd(-5136.772210,3760.185502,-2334.188014,1.400000)
	 pt3dadd(-5137.682533,3759.772546,-2334.160093,1.400000)
}
MYSA[34]{
	 pt3dadd(-5137.682533,3759.772546,-2334.160093,1.400000)
	 pt3dadd(-5140.413501,3758.533676,-2334.076333,1.400000)
}
FLUT[34]{
	 pt3dadd(-5140.413501,3758.533676,-2334.076333,1.600000)
	 pt3dadd(-5149.516727,3754.404110,-2333.797133,1.600000)
}
STIN[51]{
	 pt3dadd(-5149.516727,3754.404110,-2333.797133,1.600000)
	 pt3dadd(-5202.315440,3730.452625,-2332.177772,1.600000)
}
STIN[52]{
	 pt3dadd(-5202.315440,3730.452625,-2332.177772,1.600000)
	 pt3dadd(-5255.114152,3706.501141,-2330.558410,1.600000)
}
STIN[53]{
	 pt3dadd(-5255.114152,3706.501141,-2330.558410,1.600000)
	 pt3dadd(-5266.800000,3701.200000,-2330.200000,1.600000)
	 pt3dadd(-5306.741036,3680.230272,-2328.037326,1.600000)
}
FLUT[35]{
	 pt3dadd(-5306.741036,3680.230272,-2328.037326,1.600000)
	 pt3dadd(-5315.584795,3675.587147,-2327.558466,1.600000)
}
MYSA[35]{
	 pt3dadd(-5315.584795,3675.587147,-2327.558466,1.400000)
	 pt3dadd(-5318.237923,3674.194209,-2327.414807,1.400000)
}
node[18]{
	 pt3dadd(-5318.237923,3674.194209,-2327.414807,1.400000)
	 pt3dadd(-5319.122299,3673.729896,-2327.366921,1.400000)
}
MYSA[36]{
	 pt3dadd(-5319.122299,3673.729896,-2327.366921,1.400000)
	 pt3dadd(-5321.775427,3672.336959,-2327.223263,1.400000)
}
FLUT[36]{
	 pt3dadd(-5321.775427,3672.336959,-2327.223263,1.600000)
	 pt3dadd(-5330.619186,3667.693834,-2326.744403,1.600000)
}
STIN[54]{
	 pt3dadd(-5330.619186,3667.693834,-2326.744403,1.600000)
	 pt3dadd(-5381.912991,3640.763707,-2323.967014,1.600000)
}
STIN[55]{
	 pt3dadd(-5381.912991,3640.763707,-2323.967014,1.600000)
	 pt3dadd(-5412.700000,3624.600000,-2322.300000,1.600000)
	 pt3dadd(-5432.075169,3612.237329,-2325.373206,1.600000)
}
STIN[56]{
	 pt3dadd(-5432.075169,3612.237329,-2325.373206,1.600000)
	 pt3dadd(-5480.538426,3581.314487,-2333.060241,1.600000)
}
FLUT[37]{
	 pt3dadd(-5480.538426,3581.314487,-2333.060241,1.600000)
	 pt3dadd(-5488.894160,3575.982962,-2334.385591,1.600000)
}
MYSA[37]{
	 pt3dadd(-5488.894160,3575.982962,-2334.385591,1.400000)
	 pt3dadd(-5491.400880,3574.383505,-2334.783197,1.400000)
}
node[19]{
	 pt3dadd(-5491.400880,3574.383505,-2334.783197,1.400000)
	 pt3dadd(-5492.236454,3573.850352,-2334.915732,1.400000)
}
MYSA[38]{
	 pt3dadd(-5492.236454,3573.850352,-2334.915732,1.400000)
	 pt3dadd(-5494.743174,3572.250895,-2335.313337,1.400000)
}
FLUT[38]{
	 pt3dadd(-5494.743174,3572.250895,-2335.313337,1.600000)
	 pt3dadd(-5503.098908,3566.919370,-2336.638688,1.600000)
}
STIN[57]{
	 pt3dadd(-5503.098908,3566.919370,-2336.638688,1.600000)
	 pt3dadd(-5551.400000,3536.100000,-2344.300000,1.600000)
	 pt3dadd(-5551.542044,3535.989546,-2344.372727,1.600000)
}
STIN[58]{
	 pt3dadd(-5551.542044,3535.989546,-2344.372727,1.600000)
	 pt3dadd(-5593.992116,3502.980371,-2366.107163,1.600000)
}
STIN[59]{
	 pt3dadd(-5593.992116,3502.980371,-2366.107163,1.600000)
	 pt3dadd(-5636.442187,3469.971195,-2387.841600,1.600000)
}
FLUT[39]{
	 pt3dadd(-5636.442187,3469.971195,-2387.841600,1.600000)
	 pt3dadd(-5643.761165,3464.279958,-2391.588917,1.600000)
}
MYSA[39]{
	 pt3dadd(-5643.761165,3464.279958,-2391.588917,1.400000)
	 pt3dadd(-5645.956859,3462.572587,-2392.713112,1.400000)
}
node[20]{
	 pt3dadd(-5645.956859,3462.572587,-2392.713112,1.400000)
	 pt3dadd(-5646.688756,3462.003463,-2393.087843,1.400000)
}
MYSA[40]{
	 pt3dadd(-5646.688756,3462.003463,-2393.087843,1.400000)
	 pt3dadd(-5648.884450,3460.296092,-2394.212038,1.400000)
}
FLUT[40]{
	 pt3dadd(-5648.884450,3460.296092,-2394.212038,1.600000)
	 pt3dadd(-5656.203428,3454.604855,-2397.959355,1.600000)
}
STIN[60]{
	 pt3dadd(-5656.203428,3454.604855,-2397.959355,1.600000)
	 pt3dadd(-5676.400000,3438.900000,-2408.300000,1.600000)
	 pt3dadd(-5697.023113,3420.542702,-2421.034720,1.600000)
}
STIN[61]{
	 pt3dadd(-5697.023113,3420.542702,-2421.034720,1.600000)
	 pt3dadd(-5736.363111,3385.524902,-2445.327068,1.600000)
}
STIN[62]{
	 pt3dadd(-5736.363111,3385.524902,-2445.327068,1.600000)
	 pt3dadd(-5774.700000,3351.400000,-2469.000000,1.600000)
	 pt3dadd(-5775.728976,3350.400020,-2469.358357,1.600000)
}
FLUT[41]{
	 pt3dadd(-5775.728976,3350.400020,-2469.358357,1.600000)
	 pt3dadd(-5782.686645,3343.638412,-2471.781476,1.600000)
}
MYSA[41]{
	 pt3dadd(-5782.686645,3343.638412,-2471.781476,1.400000)
	 pt3dadd(-5784.773946,3341.609930,-2472.508412,1.400000)
}
node[21]{
	 pt3dadd(-5784.773946,3341.609930,-2472.508412,1.400000)
	 pt3dadd(-5785.469713,3340.933769,-2472.750724,1.400000)
}
MYSA[42]{
	 pt3dadd(-5785.469713,3340.933769,-2472.750724,1.400000)
	 pt3dadd(-5787.557014,3338.905287,-2473.477659,1.400000)
}
FLUT[42]{
	 pt3dadd(-5787.557014,3338.905287,-2473.477659,1.600000)
	 pt3dadd(-5794.514683,3332.143679,-2475.900778,1.600000)
}
STIN[63]{
	 pt3dadd(-5794.514683,3332.143679,-2475.900778,1.600000)
	 pt3dadd(-5834.869163,3292.926355,-2489.954867,1.600000)
}
STIN[64]{
	 pt3dadd(-5834.869163,3292.926355,-2489.954867,1.600000)
	 pt3dadd(-5875.223643,3253.709032,-2504.008957,1.600000)
}
STIN[65]{
	 pt3dadd(-5875.223643,3253.709032,-2504.008957,1.600000)
	 pt3dadd(-5913.100000,3216.900000,-2517.200000,1.600000)
	 pt3dadd(-5915.617516,3214.417612,-2516.769095,1.600000)
}
FLUT[43]{
	 pt3dadd(-5915.617516,3214.417612,-2516.769095,1.600000)
	 pt3dadd(-5922.685785,3207.447970,-2515.559270,1.600000)
}
MYSA[43]{
	 pt3dadd(-5922.685785,3207.447970,-2515.559270,1.400000)
	 pt3dadd(-5924.806265,3205.357078,-2515.196323,1.400000)
}
node[22]{
	 pt3dadd(-5924.806265,3205.357078,-2515.196323,1.400000)
	 pt3dadd(-5925.513092,3204.660114,-2515.075340,1.400000)
}
MYSA[44]{
	 pt3dadd(-5925.513092,3204.660114,-2515.075340,1.400000)
	 pt3dadd(-5927.633573,3202.569221,-2514.712393,1.400000)
}
FLUT[44]{
	 pt3dadd(-5927.633573,3202.569221,-2514.712393,1.600000)
	 pt3dadd(-5934.701841,3195.599580,-2513.502569,1.600000)
}
STIN[66]{
	 pt3dadd(-5934.701841,3195.599580,-2513.502569,1.600000)
	 pt3dadd(-5975.697799,3155.175659,-2506.485586,1.600000)
}
STIN[67]{
	 pt3dadd(-5975.697799,3155.175659,-2506.485586,1.600000)
	 pt3dadd(-6016.693757,3114.751737,-2499.468603,1.600000)
}
STIN[68]{
	 pt3dadd(-6016.693757,3114.751737,-2499.468603,1.600000)
	 pt3dadd(-6020.600000,3110.900000,-2498.800000,1.600000)
	 pt3dadd(-6057.386150,3077.400481,-2482.125622,1.600000)
}
FLUT[45]{
	 pt3dadd(-6057.386150,3077.400481,-2482.125622,1.600000)
	 pt3dadd(-6064.396568,3071.016404,-2478.947949,1.600000)
}
MYSA[45]{
	 pt3dadd(-6064.396568,3071.016404,-2478.947949,1.400000)
	 pt3dadd(-6066.499693,3069.101181,-2477.994647,1.400000)
}
node[23]{
	 pt3dadd(-6066.499693,3069.101181,-2477.994647,1.400000)
	 pt3dadd(-6067.200735,3068.462773,-2477.676880,1.400000)
}
MYSA[46]{
	 pt3dadd(-6067.200735,3068.462773,-2477.676880,1.400000)
	 pt3dadd(-6069.303860,3066.547550,-2476.723578,1.400000)
}
FLUT[46]{
	 pt3dadd(-6069.303860,3066.547550,-2476.723578,1.600000)
	 pt3dadd(-6076.314278,3060.163473,-2473.545905,1.600000)
}
STIN[69]{
	 pt3dadd(-6076.314278,3060.163473,-2473.545905,1.600000)
	 pt3dadd(-6116.974700,3023.135826,-2455.115402,1.600000)
}
STIN[70]{
	 pt3dadd(-6116.974700,3023.135826,-2455.115402,1.600000)
	 pt3dadd(-6142.600000,2999.800000,-2443.500000,1.600000)
	 pt3dadd(-6158.634631,2987.940006,-2435.613456,1.600000)
}
STIN[71]{
	 pt3dadd(-6158.634631,2987.940006,-2435.613456,1.600000)
	 pt3dadd(-6201.998089,2955.866282,-2414.285382,1.600000)
}
FLUT[47]{
	 pt3dadd(-6201.998089,2955.866282,-2414.285382,1.600000)
	 pt3dadd(-6209.474547,2950.336329,-2410.608127,1.600000)
}
MYSA[47]{
	 pt3dadd(-6209.474547,2950.336329,-2410.608127,1.400000)
	 pt3dadd(-6211.717485,2948.677344,-2409.504951,1.400000)
}
node[24]{
	 pt3dadd(-6211.717485,2948.677344,-2409.504951,1.400000)
	 pt3dadd(-6212.465131,2948.124348,-2409.137226,1.400000)
}
MYSA[48]{
	 pt3dadd(-6212.465131,2948.124348,-2409.137226,1.400000)
	 pt3dadd(-6214.708068,2946.465363,-2408.034049,1.400000)
}
FLUT[48]{
	 pt3dadd(-6214.708068,2946.465363,-2408.034049,1.600000)
	 pt3dadd(-6222.184526,2940.935410,-2404.356795,1.600000)
}
STIN[72]{
	 pt3dadd(-6222.184526,2940.935410,-2404.356795,1.600000)
	 pt3dadd(-6265.547984,2908.861686,-2383.028721,1.600000)
}
STIN[73]{
	 pt3dadd(-6265.547984,2908.861686,-2383.028721,1.600000)
	 pt3dadd(-6302.000000,2881.900000,-2365.100000,1.600000)
	 pt3dadd(-6310.137141,2878.002111,-2363.087546,1.600000)
}
STIN[74]{
	 pt3dadd(-6310.137141,2878.002111,-2363.087546,1.600000)
	 pt3dadd(-6361.190826,2853.546151,-2350.461098,1.600000)
}
FLUT[49]{
	 pt3dadd(-6361.190826,2853.546151,-2350.461098,1.600000)
	 pt3dadd(-6369.993186,2849.329606,-2348.284124,1.600000)
}
MYSA[49]{
	 pt3dadd(-6369.993186,2849.329606,-2348.284124,1.400000)
	 pt3dadd(-6372.633893,2848.064642,-2347.631032,1.400000)
}
node[25]{
	 pt3dadd(-6372.633893,2848.064642,-2347.631032,1.400000)
	 pt3dadd(-6373.514129,2847.642988,-2347.413335,1.400000)
}
MYSA[50]{
	 pt3dadd(-6373.514129,2847.642988,-2347.413335,1.400000)
	 pt3dadd(-6376.154837,2846.378024,-2346.760243,1.400000)
}
FLUT[50]{
	 pt3dadd(-6376.154837,2846.378024,-2346.760243,1.600000)
	 pt3dadd(-6384.957197,2842.161479,-2344.583269,1.600000)
}
STIN[75]{
	 pt3dadd(-6384.957197,2842.161479,-2344.583269,1.600000)
	 pt3dadd(-6436.010882,2817.705519,-2331.956821,1.600000)
}
STIN[76]{
	 pt3dadd(-6436.010882,2817.705519,-2331.956821,1.600000)
	 pt3dadd(-6487.064568,2793.249558,-2319.330373,1.600000)
}
STIN[77]{
	 pt3dadd(-6487.064568,2793.249558,-2319.330373,1.600000)
	 pt3dadd(-6507.000000,2783.700000,-2314.400000,1.600000)
	 pt3dadd(-6540.769210,2773.248617,-2314.830269,1.600000)
}
FLUT[51]{
	 pt3dadd(-6540.769210,2773.248617,-2314.830269,1.600000)
	 pt3dadd(-6550.321441,2770.292254,-2314.951979,1.600000)
}
MYSA[51]{
	 pt3dadd(-6550.321441,2770.292254,-2314.951979,1.400000)
	 pt3dadd(-6553.187110,2769.405346,-2314.988492,1.400000)
}
node[26]{
	 pt3dadd(-6553.187110,2769.405346,-2314.988492,1.400000)
	 pt3dadd(-6554.142333,2769.109710,-2315.000663,1.400000)
}
MYSA[52]{
	 pt3dadd(-6554.142333,2769.109710,-2315.000663,1.400000)
	 pt3dadd(-6557.008002,2768.222801,-2315.037176,1.400000)
}
FLUT[52]{
	 pt3dadd(-6557.008002,2768.222801,-2315.037176,1.600000)
	 pt3dadd(-6566.560233,2765.266438,-2315.158885,1.600000)
}
STIN[78]{
	 pt3dadd(-6566.560233,2765.266438,-2315.158885,1.600000)
	 pt3dadd(-6621.963170,2748.119537,-2315.864800,1.600000)
}
STIN[79]{
	 pt3dadd(-6621.963170,2748.119537,-2315.864800,1.600000)
	 pt3dadd(-6677.366107,2730.972635,-2316.570715,1.600000)
}
STIN[80]{
	 pt3dadd(-6677.366107,2730.972635,-2316.570715,1.600000)
	 pt3dadd(-6732.769044,2713.825734,-2317.276630,1.600000)
}
FLUT[53]{
	 pt3dadd(-6732.769044,2713.825734,-2317.276630,1.600000)
	 pt3dadd(-6742.321275,2710.869371,-2317.398339,1.600000)
}
MYSA[53]{
	 pt3dadd(-6742.321275,2710.869371,-2317.398339,1.400000)
	 pt3dadd(-6745.186944,2709.982462,-2317.434852,1.400000)
}
node[27]{
	 pt3dadd(-6745.186944,2709.982462,-2317.434852,1.400000)
	 pt3dadd(-6746.142167,2709.686826,-2317.447023,1.400000)
}

//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