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

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

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

Loading data, please wait...