Parvalbumin-positive basket cells differentiate among hippocampal pyramidal cells (Lee et al. 2014)

 Download zip file   Auto-launch 
Help downloading and running models
Accession:153280
This detailed microcircuit model explores the network level effects of sublayer specific connectivity in the mouse CA1. The differences in strengths and numbers of synapses between PV+ basket cells and either superficial sublayer or deep sublayer pyramidal cells enables a routing of inhibition from superficial to deep pyramidal cells. At the network level of this model, the effects become quite prominent when one compares the effect on firing rates when either the deep or superficial pyramidal cells receive a selective increase in excitation.
Reference:
1 . Lee SH, Marchionni I, Bezaire M, Varga C, Danielson N, Lovett-Barron M, Losonczy A, Soltesz I (2014) Parvalbumin-positive basket cells differentiate among hippocampal pyramidal cells. Neuron 82:1129-44 [PubMed]
Citations  Citation Browser
Model Information (Click on a link to find other models with that property)
Model Type: Realistic Network;
Brain Region(s)/Organism: Hippocampus;
Cell Type(s): Hippocampus CA1 pyramidal GLU cell; Hippocampus CA1 basket cell;
Channel(s): I Sodium; I Calcium; I Potassium;
Gap Junctions:
Receptor(s): GabaA; Glutamate;
Gene(s):
Transmitter(s):
Simulation Environment: NEURON;
Model Concept(s): Detailed Neuronal Models; Connectivity matrix; Laminar Connectivity;
Implementer(s): Bezaire, Marianne [mariannejcase at gmail.com];
Search NeuronDB for information about:  Hippocampus CA1 pyramidal GLU cell; GabaA; Glutamate; I Sodium; I Calcium; I Potassium;
begintemplate pyramidaldeepcell

// public variables
public is_art, gid, randi, Vrest
public init, topol, basic_shape, subsets, geom, biophys
public pre_list, connect_pre

public soma, apical, basal
public all, basal_list, apical_list, soma_list, proximal_apical, proximal_basal
public x, y, z, position, myroot

public pvbasketcell_list, deepcell_list, supercell_list, stimcell_list
public eccell_list, ca3cell_list, ivycell_list

// strings
strdef myroot

// objects
objref syn, pre_list, templist, rootlist

//external variables
external numCellTypes, cellType

// create the sections[segments]
NumSoma=1
NumApical=65
NumBasal=60
create soma[NumSoma], basal[NumBasal], apical[NumApical]


// set the initialization code, which is run whenever a new object
// of this class is instantiated
proc init() {
	gid = $1
	randi = $2
	Vrest = -86 // -65 // $3 resting membrane potential in mV
	// cell sections: soma, dendrites, axon
	append_sections() // append all sections to the section list
	connect_sections()// connect soma, dendrites, axon
	size_sections0()	// set the size dimensions of each section
	size_sections1()	// set the size dimensions of each section
	size_sections2()	// set the size dimensions of each section
	size_sections3()	// set the size dimensions of each section
	size_sections4()	// set the size dimensions of each section
	size_sections5()	// set the size dimensions of each section
	size_sections6()	// set the size dimensions of each section
	size_sections7()	// set the size dimensions of each section
	size_sections8()	// set the size dimensions of each section
	size_sections9()	// set the size dimensions of each section
	size_sections10()	// set the size dimensions of each section
	size_sections11()	// set the size dimensions of each section
	size_sections12()	// set the size dimensions of each section
	
	// subcellular mechanisms: channels, pumps, transporters
	mechinit()
	insert_mechs() // also contains set_biophys()
	
	set_nseg()		// set the number of segments in each section
					// if this is driven by an error-minimization rule,
					// make sure to do it after setting the morphology
					// and inserting the mechanisms, as it depends on those
	get_root()
	
	pre_list = new List() // define a list for the presynaptic connections
	define_synapses()
}



objref all, soma_list, basal_list, apical_list, proximal, proximal_apical, proximal_basal
objref pvbasketcell_list, ca3cell_list, eccell_list, deepcell_list, ivycell_list, supercell_list, stimcell_list
proc append_sections() { local i
	NumSoma=1
	NumApical=65
	NumBasal=60
	
  objref all, soma_list, basal_list, apical_list, proximal, proximal_apical, proximal_basal
	objref pvbasketcell_list, ca3cell_list, eccell_list, deepcell_list, ivycell_list, supercell_list, stimcell_list
  all = new SectionList()
    soma[0] all.append()
    for i=0, NumBasal-1 basal[i] all.append()
    for i=0, NumApical-1 apical[i] all.append()

  soma_list = new SectionList()
    soma[0] soma_list.append()

  basal_list = new SectionList()
    for i=0, NumBasal-1 basal[i] basal_list.append()

  apical_list = new SectionList()
    for i=0, NumApical-1 apical[i] apical_list.append()

  proximal = new SectionList()
	soma[0] proximal.append()
    for i=0, 3 basal[i] proximal.append()
	basal[6] proximal.append()
	basal[8] proximal.append()
    for i=13, 17 basal[i] proximal.append()
    for i=19, 29 basal[i] proximal.append()
    for i=31, 49 basal[i] proximal.append()
    for i=52, 57 basal[i] proximal.append()
    for i=0, 5 apical[i] proximal.append()
    for i=7, 11 apical[i] proximal.append()
    
    deepcell_list = new SectionList()
    supercell_list = new SectionList()
    stimcell_list = new SectionList()
	forsec soma_list {
		stimcell_list.append()
	}
    forsec basal_list {
		deepcell_list.append()
		supercell_list.append()
    }

  proximal_basal = new SectionList()
     for i=0, 3 basal[i] proximal_basal.append()
	basal[6] proximal_basal.append()
	basal[8] proximal_basal.append()
    for i=13, 17 basal[i] proximal_basal.append()
    for i=19, 29 basal[i] proximal_basal.append()
    for i=31, 49 basal[i] proximal_basal.append()
    for i=52, 57 basal[i] proximal_basal.append()
    
  proximal_apical = new SectionList()
    for i=0, 5 apical[i] proximal_apical.append()
    for i=7, 11 apical[i] proximal_apical.append()
    
   
  pvbasketcell_list   = new SectionList()
  
	// numbas=0
	// forsec proximal_basal { numbas=numbas+1}
	
	// numap=0
	// forsec proximal_apical { numap=numap+1}
 	
	// numsoma=0
	// forsec soma_list { numsoma=numsoma+1}
	// print "DEEP numbas=", numbas, ", numap=", numap, ", numsoma=", numsoma
	// DEEP numbas=47 , numap=11 , numsoma=1 
	for zz=1,1 { // 47 ~ 7*7
		forsec proximal_basal { pvbasketcell_list.append()} // 7
	}
	for zz=1,4 { // 44 ~ 7*6
		forsec proximal_apical { pvbasketcell_list.append()} // 6
	}
	
	for zz=1,7 { // 7 ~ 7*1
		forsec soma_list { pvbasketcell_list.append()} // 1
	}
	
  ca3cell_list   = new SectionList()
	forsec basal_list { ca3cell_list.append()}
	forsec apical_list { ca3cell_list.append()}
	
  ivycell_list   = new SectionList()
	forsec basal_list { ivycell_list.append()}
	forsec apical_list { ivycell_list.append()}
	
  eccell_list   = new SectionList()
	forsec apical_list { eccell_list.append()}
	

}

proc connect_sections() { local i
  for i = 1, 4 connect basal[i](0), basal[i-1](1)
  connect basal[5](0), basal[3](1)
  connect basal[6](0), basal[2](1)
  for i = 7, 8 connect basal[i](0), basal[6](1)
  for i = 9, 10 connect basal[i](0), basal[8](1)
  for i = 11, 12 connect basal[i](0), basal[10](1)
  connect basal[13](0), basal[1](1)
  for i = 14, 15 connect basal[i](0), basal[i-1](1)
  connect basal[16](0), basal[14](1)
  for i = 17, 18 connect basal[i](0), basal[16](1)
  connect basal[19](0), basal[13](1)
  connect basal[20](0), basal(1)
  for i = 21, 22 connect basal[i](0), basal[i-1](1)
  connect basal[23](0), basal[21](1)
  connect basal[24](0), basal[20](1)
  for i = 25, 26 connect basal[i](0), basal[24](1)
  connect basal[27](0), basal[20](1)
  for i = 28, 29 connect basal[i](0), basal[i-1](1)
  connect basal[30](0), basal[28](1)
  connect basal[31](0), basal[27](1)
  for i = 32, 33 connect basal[i](0), basal[31](1)
  for i = 35, 36 connect basal[i](0), basal[i-1](1)
  connect basal[37](0), basal[35](1)
  for i = 38, 39 connect basal[i](0), basal[37](1)
  for i = 42, 43 connect basal[i](0), basal[41](1)
  for i = 44, 45 connect basal[i](0), basal[43](1)
  connect basal[46](0), basal[41](1)
  for i = 47, 48 connect basal[i](0), basal[i-1](1)
  connect basal[49](0), basal[47](1)
  for i = 50, 51 connect basal[i](0), basal[49](1)
  connect basal[52](0), basal[46](1)
  connect basal[53](0), basal[41](1)
  for i = 54, 55 connect basal[i](0), basal[i-1](1)
  connect basal[56](0), basal[54](1)
  connect basal[57](0), basal[53](1)
  for i = 58, 59 connect basal[i](0), basal[57](1)
  for i = 1, 2 connect apical[i](0), apical(1)
  for i = 3, 4 connect apical[i](0), apical[2](1)
  for i = 5, 7 connect apical[i](0), apical[4](1)
  for i = 8, 9 connect apical[i](0), apical[i-1](1)
  connect apical[10](0), apical[8](1)
  connect apical[11](0), apical[7](1)
  for i = 12, 13 connect apical[i](0), apical[11](1)
  for i = 14, 15 connect apical[i](0), apical[i-1](1)
  connect apical[16](0), apical[14](1)
  connect apical[17](0), apical[13](1)
  for i = 18, 19 connect apical[i](0), apical[17](1)
  for i = 20, 21 connect apical[i](0), apical[19](1)
  for i = 22, 23 connect apical[i](0), apical[i-1](1)
  connect apical[24](0), apical[22](1)
  connect apical[25](0), apical[21](1)
  for i = 26, 27 connect apical[i](0), apical[25](1)
  for i = 28, 29 connect apical[i](0), apical[27](1)
  for i = 30, 31 connect apical[i](0), apical[i-1](1)
  connect apical[32](0), apical[30](1)
  connect apical[33](0), apical[29](1)
  for i = 34, 35 connect apical[i](0), apical[33](1)
  for i = 36, 37 connect apical[i](0), apical[35](1)
  for i = 38, 39 connect apical[i](0), apical[37](1)
  for i = 40, 41 connect apical[i](0), apical[39](1)
  for i = 42, 43 connect apical[i](0), apical[41](1)
  for i = 44, 45 connect apical[i](0), apical[i-1](1)
  connect apical[46](0), apical[44](1)
  connect apical[47](0), apical[43](1)
  for i = 48, 49 connect apical[i](0), apical[47](1)
  for i = 50, 51 connect apical[i](0), apical[49](1)
  for i = 52, 53 connect apical[i](0), apical[i-1](1)
  connect apical[54](0), apical[52](1)
  for i = 55, 56 connect apical[i](0), apical[i-1](1)
  connect apical[57](0), apical[55](1)
  connect apical[58](0), apical[54](1)
  connect apical[59](0), apical[51](1)
  for i = 60, 61 connect apical[i](0), apical[i-1](1)
  for i = 62, 63 connect apical[i](0), apical[60](1)
  connect apical[64](0), apical[59](1)
  connect basal(0), soma[0](0.5)
  connect basal[34](0), soma[0](0.5)
  for i = 40, 41 connect basal[i](0), soma[0](0.5)
  connect apical(0), soma[0](0.5)
}

proc size_sections0() {
	soma[0] {pt3dclear()
		pt3dadd(0, 0, 0, 22.9854)
		pt3dadd(5.74635, 0, 0, 22.9854)
		pt3dadd(11.4927, 0, 0, 22.9854)
	}
	basal[0] {pt3dclear()
		pt3dadd(-4.14, 7.21, 2.4, 1.16)
		pt3dadd(-2.34, 7.01, 2.4, 1.16)
		pt3dadd(-0.41, 7.14, 2.4, 1.16)
		pt3dadd(1.52, 7.27, 2.4, 1.16)
		pt3dadd(3.96, 7.01, 2.4, 1.16)
	}
	basal[1] {pt3dclear()
		pt3dadd(3.96, 7.01, 2.4, 1.16)
		pt3dadd(5.34, 5.89, 2.5, 1.16)
		pt3dadd(6.49, 5.38, 2.5, 1.16)
		pt3dadd(9.97, 4.36, 1.55, 1.16)
		pt3dadd(12.67, 3.21, 0.6, 1.16)
		pt3dadd(14.35, 2.06, 0.6, 1.16)
	}
	basal[2] {pt3dclear()
		pt3dadd(14.35, 2.06, 0.6, 0.9)
		pt3dadd(17.65, 1.07, 0.65, 0.9)
		pt3dadd(19.45, 1.07, 0.65, 0.9)
		pt3dadd(21.51, 0.82, 0.2, 0.9)
		pt3dadd(23.82, 0.94, 1.3, 0.9)
		pt3dadd(25.5, 0.69, 0.25, 1.03)
		pt3dadd(27.3, 0.31, -0.25, 1.03)
		pt3dadd(28.71, -0.59, -0.75, 1.03)
		pt3dadd(30.64, -1.61, -0.75, 1.03)
		pt3dadd(32.57, -1.61, -1.25, 1.03)
		pt3dadd(34.38, -1.23, -0.25, 1.03)
		pt3dadd(36.82, -1.61, -0.25, 1.03)
		pt3dadd(39.14, -1.35, 0.25, 1.03)
		pt3dadd(41.2, -1.1, 0.25, 1.03)
		pt3dadd(42.1, -1.1, 0.25, 1.03)
	}
	basal[3] {pt3dclear()
		pt3dadd(42.1, -1.1, 0.25, 0.9)
		pt3dadd(44.54, -0.35, 0.35, 0.9)
		pt3dadd(45.31, 0.55, 0.35, 0.9)
		pt3dadd(46.6, 1.06, 0.35, 0.9)
		pt3dadd(48.14, 1.83, 0.9, 0.9)
		pt3dadd(49.94, 1.83, 2.4, 0.9)
		pt3dadd(52.13, 1.83, 0.9, 0.9)
	}
	basal[4] {pt3dclear()
		pt3dadd(52.13, 1.83, 0.9, 0.9)
		pt3dadd(54.19, 2.24, 0.05, 0.9)
		pt3dadd(55.6, 3.13, 0.05, 0.9)
		pt3dadd(57.4, 3.9, -0.9, 0.9)
		pt3dadd(58.82, 4.03, -1.95, 0.9)
		pt3dadd(60.36, 4.28, 1.55, 0.9)
		pt3dadd(62.68, 4.79, 2.05, 0.9)
		pt3dadd(65.64, 5.94, 2.55, 0.9)
		pt3dadd(69.37, 7.6, 2.55, 0.9)
		pt3dadd(70.53, 8.5, 3.05, 0.9)
		pt3dadd(72.72, 9.39, 2.55, 0.9)
		pt3dadd(74.65, 9.9, 2.05, 0.9)
		pt3dadd(76.58, 10.92, 1.55, 0.9)
		pt3dadd(79.02, 11.05, 1.05, 0.9)
		pt3dadd(81.08, 10.79, 2.55, 0.9)
		pt3dadd(83.91, 10.41, 3.05, 0.9)
		pt3dadd(86.93, 11.06, 3.05, 0.9)
		pt3dadd(90.28, 10.93, 3.05, 0.9)
		pt3dadd(93.49, 11.83, 3.55, 0.9)
		pt3dadd(97.23, 12.72, 4.05, 0.9)
		pt3dadd(99.16, 13.61, 4.05, 0.9)
		pt3dadd(100.32, 15.02, 4.05, 0.9)
		pt3dadd(101.09, 14.76, 4.05, 0.9)
		pt3dadd(101.99, 14, 4.55, 0.9)
		pt3dadd(104.3, 13.74, 4.55, 0.9)
		pt3dadd(107.26, 13.49, 5.05, 0.9)
		pt3dadd(109.84, 13.1, 5.05, 0.9)
		pt3dadd(111.13, 13.74, 5.55, 0.9)
		pt3dadd(112.54, 14.89, 6.05, 0.9)
		pt3dadd(113.14, 16.05, 6.05, 0.9)
		pt3dadd(113.01, 17.45, 6.55, 0.9)
	}
	basal[5] {pt3dclear()
		pt3dadd(52.13, 1.83, 0.9, 0.9)
		pt3dadd(53.16, 0.93, 2.9, 0.9)
		pt3dadd(53.93, 0.29, 2.9, 0.9)
		pt3dadd(54.83, 1.06, 2.9, 0.9)
		pt3dadd(55.35, 1.83, 3.9, 0.9)
		pt3dadd(55.86, 2.21, 3.9, 0.9)
		pt3dadd(57.53, 1.7, 2.9, 0.9)
		pt3dadd(58.69, 1.95, 2.9, 0.9)
		pt3dadd(59.59, 3.36, 4.9, 0.9)
		pt3dadd(61.27, 4.25, 5.4, 0.9)
		pt3dadd(63.84, 4.76, 6.4, 0.9)
		pt3dadd(65.64, 5.78, 6.9, 0.9)
		pt3dadd(68.34, 6.42, 7.9, 0.9)
		pt3dadd(71.18, 6.68, 8.4, 0.9)
		pt3dadd(73.75, 6.04, 9.4, 0.9)
		pt3dadd(75.16, 5.53, 8.9, 0.9)
		pt3dadd(75.81, 3.61, 7.4, 0.9)
		pt3dadd(76.84, 2.46, 6.9, 0.9)
		pt3dadd(77.74, 0.93, 8.9, 0.9)
		pt3dadd(77.87, -0.35, 10.4, 0.9)
		pt3dadd(79.28, -1.49, 11.4, 0.9)
		pt3dadd(81.99, -1.88, 11.4, 0.9)
		pt3dadd(85.72, -1.62, 11.9, 0.9)
		pt3dadd(87.26, -1.24, 11.9, 0.9)
		pt3dadd(88.42, -1.11, 11.9, 0.9)
		pt3dadd(89.06, -1.24, 11.9, 0.9)
		pt3dadd(90.35, -2.13, 12.9, 0.9)
		pt3dadd(91.64, -3.15, 12.9, 0.9)
		pt3dadd(92.92, -3.15, 12.9, 0.9)
		pt3dadd(93.95, -2.52, 12.9, 0.9)
		pt3dadd(95.76, -1.88, 13.4, 0.9)
		pt3dadd(97.3, -1.24, 13.4, 0.9)
		pt3dadd(100.77, -0.73, 13.9, 0.9)
		pt3dadd(103.86, -0.98, 14.4, 0.9)
		pt3dadd(106.35, -1.65, 14.4, 0.9)
		pt3dadd(108.8, -2.03, 14.9, 0.9)
		pt3dadd(111.11, -2.29, 14.9, 0.9)
		pt3dadd(112.66, -2.42, 14.9, 0.9)
	}
	basal[6] {pt3dclear()
		pt3dadd(42.1, -1.1, 0.25, 1.03)
		pt3dadd(45.44, -1.86, 0.75, 1.03)
		pt3dadd(48.38, -1.87, 0.75, 0.9)
		pt3dadd(51.73, -1.75, 1.25, 0.9)
		pt3dadd(53.66, -1.62, 0.75, 0.9)
		pt3dadd(56.62, -1.87, -0.25, 0.9)
		pt3dadd(59.84, -1.87, -0.25, 0.9)
		pt3dadd(61.38, -2.38, -0.75, 0.9)
		pt3dadd(63.57, -2.77, -0.75, 0.9)
		pt3dadd(66.01, -2.51, -1.25, 0.9)
		pt3dadd(68.97, -2.13, -1.25, 0.9)
		pt3dadd(70.52, -1.62, -1.25, 0.9)
		pt3dadd(72.32, -0.72, -1.75, 0.9)
		pt3dadd(73.61, -0.6, -0.25, 0.9)
		pt3dadd(74.38, -0.6, -0.25, 0.9)
	}
	basal[7] {pt3dclear()
		pt3dadd(74.38, -0.6, -0.25, 0.9)
		pt3dadd(75.94, -1.88, -0.1, 0.9)
		pt3dadd(77.35, -2.52, -0.05, 0.9)
		pt3dadd(79.8, -2.9, -1.6, 0.9)
		pt3dadd(81.08, -2.77, -1.6, 0.9)
		pt3dadd(81.6, -2.13, -1.6, 0.9)
		pt3dadd(81.99, -1.37, -1.6, 0.9)
		pt3dadd(81.99, -0.09, -2.6, 0.9)
		pt3dadd(81.86, 1.06, -2.6, 0.9)
		pt3dadd(81.73, 2.08, -2.6, 0.9)
		pt3dadd(82.76, 1.95, -2.6, 0.9)
		pt3dadd(83.66, 1.31, -3.1, 0.9)
		pt3dadd(84.43, 0.8, -3.55, 0.9)
		pt3dadd(85.2, 0.93, -4.05, 0.9)
		pt3dadd(86.1, 1.95, -4.05, 0.9)
		pt3dadd(87, 2.34, -4.55, 0.9)
		pt3dadd(88.42, 2.34, -4.55, 0.9)
		pt3dadd(89.19, 1.95, -5, 0.9)
		pt3dadd(89.58, 1.83, -5.1, 0.9)
		pt3dadd(89.96, 1.7, -5.1, 0.9)
	}
	basal[8] {pt3dclear()
		pt3dadd(74.38, -0.6, -0.25, 0.9)
		pt3dadd(78.95, -1.03, -0.25, 0.9)
		pt3dadd(81.91, -1.93, -0.25, 0.9)
		pt3dadd(85.52, -3.33, -0.25, 0.9)
		pt3dadd(86.03, -3.33, -0.75, 0.9)
		pt3dadd(88.35, -3.97, 0.25, 0.9)
	}
	basal[9] {pt3dclear()
		pt3dadd(88.35, -3.97, 0.25, 0.9)
		pt3dadd(91.82, -6.01, 0.4, 0.9)
		pt3dadd(94.53, -7.16, 1.4, 0.9)
		pt3dadd(96.33, -7.55, 0.45, 0.9)
		pt3dadd(97.49, -8.31, -0.05, 0.9)
		pt3dadd(99.55, -9.33, -0.55, 0.9)
		pt3dadd(100.06, -10.48, -0.1, 0.9)
		pt3dadd(100.57, -12.14, 0.4, 0.9)
		pt3dadd(101.09, -13.42, 1.4, 0.9)
		pt3dadd(101.22, -15.59, 1.4, 0.9)
		pt3dadd(101.35, -17.63, 1.85, 0.9)
		pt3dadd(101.6, -19.04, 1.85, 0.9)
		pt3dadd(101.86, -21.21, 2.4, 0.9)
		pt3dadd(101.99, -22.74, 2.9, 0.9)
		pt3dadd(102.25, -24.4, 2.9, 0.9)
		pt3dadd(102.76, -26.06, 3.4, 0.9)
		pt3dadd(103.41, -27.08, 3.4, 0.9)
	}
}

proc size_sections1() {
	basal[10] {pt3dclear()
		pt3dadd(88.35, -3.97, 0.25, 0.9)
		pt3dadd(90.54, -3.71, 0.25, 0.9)
		pt3dadd(94.78, -4.48, 0.75, 0.9)
		pt3dadd(96.33, -4.35, 1.7, 0.9)
		pt3dadd(98, -4.74, 1.7, 0.9)
		pt3dadd(98.64, -4.74, 1.7, 0.9)
		pt3dadd(99.42, -3.84, 1.7, 0.9)
	}
	basal[11] {pt3dclear()
		pt3dadd(99.42, -3.84, 1.7, 0.9)
		pt3dadd(99.8, -3.2, 1.7, 0.9)
	}
	basal[12] {pt3dclear()
		pt3dadd(99.42, -3.84, 1.7, 0.9)
		pt3dadd(99.8, -3.2, 1.7, 0.9)
	}
	basal[13] {pt3dclear()
		pt3dadd(14.35, 2.06, 0.6, 1.16)
		pt3dadd(15.63, -0.62, 0.6, 1.16)
		pt3dadd(17.56, -2.54, -0.4, 1.16)
		pt3dadd(17.69, -3.43, -0.4, 1.16)
	}
	basal[14] {pt3dclear()
		pt3dadd(17.69, -3.43, -0.4, 0.9)
		pt3dadd(19.97, -6.08, -0.25, 0.9)
		pt3dadd(21.9, -7.61, -0.25, 0.9)
		pt3dadd(23.7, -9.02, 0.75, 0.9)
		pt3dadd(25.5, -11.06, -0.75, 0.9)
		pt3dadd(26.14, -11.7, -0.75, 0.9)
		pt3dadd(27.82, -12.98, 0.25, 0.9)
	}
	basal[15] {pt3dclear()
		pt3dadd(27.82, -12.98, 0.25, 0.9)
		pt3dadd(29.37, -15.05, 0.4, 0.9)
		pt3dadd(30.27, -16.45, 0.9, 0.9)
		pt3dadd(32.07, -17.99, -0.05, 0.9)
		pt3dadd(34.65, -19.52, -0.55, 0.9)
		pt3dadd(36.06, -20.54, -0.55, 0.9)
		pt3dadd(38.25, -22.45, -1.1, 0.9)
		pt3dadd(40.44, -25.26, -1.6, 0.9)
		pt3dadd(42.24, -27.18, -1.6, 0.9)
		pt3dadd(43.27, -28.84, -1.6, 0.9)
		pt3dadd(44.56, -30.37, -2.05, 0.9)
		pt3dadd(45.59, -31.01, -2.05, 0.9)
		pt3dadd(47.78, -32.03, -2.6, 0.9)
		pt3dadd(49.06, -32.29, -2.6, 0.9)
		pt3dadd(49.71, -33.82, -2.6, 0.9)
		pt3dadd(49.96, -34.97, -3.1, 0.9)
		pt3dadd(49.96, -35.99, -3.1, 0.9)
		pt3dadd(49.83, -38.16, -3.1, 0.9)
		pt3dadd(50.22, -39.44, -3.55, 0.9)
		pt3dadd(50.35, -40.97, -3.55, 0.9)
		pt3dadd(50.61, -42.37, -4.05, 0.9)
		pt3dadd(51.12, -44.03, -4.05, 0.9)
		pt3dadd(51.94, -45.48, -4.05, 0.9)
		pt3dadd(53.49, -47.52, -4.05, 0.9)
		pt3dadd(54.77, -49.05, -5.1, 0.9)
		pt3dadd(57.48, -49.18, -5.1, 0.9)
		pt3dadd(59.54, -49.18, -5.1, 0.9)
		pt3dadd(61.34, -48.8, -5.1, 0.9)
		pt3dadd(62.5, -48.29, -6.6, 0.9)
		pt3dadd(63.91, -48.16, -5.1, 0.9)
		pt3dadd(65.84, -48.03, -4.6, 0.9)
		pt3dadd(67.9, -48.54, -4.6, 0.9)
	}
	basal[16] {pt3dclear()
		pt3dadd(27.82, -12.98, 0.25, 0.9)
		pt3dadd(29.23, -12.72, 0.25, 0.9)
		pt3dadd(31.16, -12.47, 0.25, 0.9)
	}
	basal[17] {pt3dclear()
		pt3dadd(31.16, -12.47, 0.25, 0.9)
		pt3dadd(34.2, -15.18, 0.4, 0.9)
		pt3dadd(36.65, -17.98, -1.1, 0.9)
		pt3dadd(38.58, -19.9, 0.9, 0.9)
		pt3dadd(39.99, -21.05, 1.4, 0.9)
		pt3dadd(40.89, -23.09, 1.4, 0.9)
		pt3dadd(42.18, -25.14, 1.85, 0.9)
		pt3dadd(43.98, -26.54, 2.4, 0.9)
		pt3dadd(45.66, -27.94, 2.4, 0.9)
		pt3dadd(46.69, -29.73, 2.9, 0.9)
		pt3dadd(46.94, -31.9, 3.4, 0.9)
		pt3dadd(47.46, -35.22, 3.9, 0.9)
		pt3dadd(48.23, -37.14, 4.4, 0.9)
		pt3dadd(49.26, -38.29, 4.9, 0.9)
		pt3dadd(49.39, -39.05, 4.9, 0.9)
		pt3dadd(49, -40.71, 5.4, 0.9)
		pt3dadd(48.49, -42.12, 5.9, 0.9)
		pt3dadd(48.65, -43.88, 6.4, 0.9)
		pt3dadd(49.16, -45.92, 6.9, 0.9)
		pt3dadd(49.42, -47.58, 7.4, 0.9)
		pt3dadd(50.71, -49.24, 7.9, 0.9)
		pt3dadd(53.41, -51.03, 8.4, 0.9)
		pt3dadd(55.21, -51.92, 8.4, 0.9)
		pt3dadd(55.73, -52.81, 8.4, 0.9)
		pt3dadd(56.24, -54.22, 9.4, 0.9)
		pt3dadd(56.11, -57.41, 10.4, 0.9)
		pt3dadd(54.7, -61.11, 11.4, 0.9)
		pt3dadd(53.41, -62.52, 11.4, 0.9)
		pt3dadd(53.41, -63.8, 11.4, 0.9)
		pt3dadd(54.96, -66.86, 11.9, 0.9)
		pt3dadd(54.57, -67.5, 11.9, 0.9)
		pt3dadd(53.8, -66.35, 11.9, 0.9)
		pt3dadd(52.64, -64.94, 11.9, 0.9)
		pt3dadd(50.71, -64.18, 12.9, 0.9)
		pt3dadd(49.81, -64.18, 12.9, 0.9)
		pt3dadd(48.26, -65.2, 12.9, 0.9)
		pt3dadd(46.46, -65.58, 12.9, 0.9)
		pt3dadd(44.66, -64.82, 12.9, 0.9)
		pt3dadd(42.99, -63.8, 12.9, 0.9)
		pt3dadd(42.6, -62.77, 12.9, 0.9)
	}
	basal[18] {pt3dclear()
		pt3dadd(31.16, -12.47, 0.25, 0.9)
		pt3dadd(34.25, -12.08, 0.75, 0.9)
		pt3dadd(35.54, -11.7, 0.75, 0.9)
		pt3dadd(36.31, -9.78, 1.25, 0.9)
		pt3dadd(38.63, -7.61, 1.7, 0.9)
		pt3dadd(41.59, -6.59, 2.25, 0.9)
		pt3dadd(43.65, -4.68, 2.75, 0.9)
		pt3dadd(47.25, -3.66, 3.25, 0.9)
		pt3dadd(49.83, -2.81, 3.25, 0.9)
		pt3dadd(53.56, -1.41, 3.75, 0.9)
		pt3dadd(56.91, -0.77, 3.75, 0.9)
		pt3dadd(59.61, -0.51, 4.25, 0.9)
		pt3dadd(61.8, -1.54, 4.25, 0.9)
		pt3dadd(65.53, -3.71, 4.75, 0.9)
		pt3dadd(69.26, -4.47, 5.25, 0.9)
		pt3dadd(71.84, -3.96, 5.25, 0.9)
		pt3dadd(74.54, -3.71, 5.75, 0.9)
		pt3dadd(76.6, -3.71, 5.75, 0.9)
		pt3dadd(79.79, -3.72, 5.75, 0.9)
		pt3dadd(83.01, -2.57, 6.25, 0.9)
		pt3dadd(86.22, -1.8, 6.25, 0.9)
		pt3dadd(89.05, -1.04, 5.25, 0.9)
		pt3dadd(92.79, -0.52, 5.75, 0.9)
		pt3dadd(94.97, -0.4, 4.75, 0.9)
		pt3dadd(101.02, -1.55, 4.75, 0.9)
		pt3dadd(104.5, -2.95, 4.3, 0.9)
		pt3dadd(107.59, -4.1, 4.75, 0.9)
		pt3dadd(112.59, -5.32, 4.75, 0.9)
		pt3dadd(117.61, -5.44, 5.25, 0.9)
		pt3dadd(120.18, -4.81, 5.25, 0.9)
		pt3dadd(123.27, -3.4, 5.25, 0.9)
		pt3dadd(127, -0.97, 5.75, 0.9)
		pt3dadd(130.35, 2.09, 5.25, 0.9)
		pt3dadd(132.15, 4.64, 5.25, 0.9)
		pt3dadd(134.34, 6.43, 5.25, 0.9)
	}
	basal[19] {pt3dclear()
		pt3dadd(17.69, -3.43, -0.4, 1.03)
		pt3dadd(17.18, -6.88, -0.4, 1.03)
		pt3dadd(17.05, -8.54, -0.95, 1.03)
		pt3dadd(16.28, -10.71, -0.95, 1.03)
		pt3dadd(15.5, -11.86, -0.95, 1.03)
		pt3dadd(15.38, -13.62, -0.95, 1.03)
		pt3dadd(15.89, -16.04, -1.9, 1.03)
		pt3dadd(15.38, -18.98, -2.45, 1.03)
		pt3dadd(14.99, -21.79, -1.45, 1.03)
		pt3dadd(14.73, -24.09, -0.45, 1.03)
		pt3dadd(14.73, -26.38, 0.55, 1.03)
		pt3dadd(14.99, -27.53, 1.55, 1.03)
		pt3dadd(14.73, -29.07, 1.55, 1.03)
		pt3dadd(13.83, -31.62, 2.55, 1.03)
		pt3dadd(13.83, -33.02, 3.05, 1.03)
		pt3dadd(14.73, -34.43, 3.55, 1.03)
		pt3dadd(15.76, -36.22, 3.55, 1.03)
		pt3dadd(15.76, -38.39, 3.55, 0.9)
		pt3dadd(15.12, -40.43, 4.05, 0.9)
		pt3dadd(14.35, -42.09, 4.05, 0.9)
		pt3dadd(14.29, -43.64, 4.55, 0.9)
		pt3dadd(15.19, -44.92, 4.55, 0.9)
		pt3dadd(14.93, -47.47, 5.05, 0.9)
		pt3dadd(14.03, -50.28, 5.05, 0.9)
		pt3dadd(14.03, -52.33, 5.05, 0.9)
		pt3dadd(14.41, -55.65, 6.05, 0.9)
		pt3dadd(15.31, -57.31, 6.05, 0.9)
		pt3dadd(15.96, -58.58, 6.55, 0.9)
		pt3dadd(15.96, -59.73, 7.05, 0.9)
		pt3dadd(15.57, -61.77, 7.05, 0.9)
		pt3dadd(14.67, -63.31, 7.55, 0.9)
		pt3dadd(14.29, -64.07, 8.05, 0.9)
		pt3dadd(14.29, -64.97, 8.05, 0.9)
		pt3dadd(14.8, -65.48, 8.55, 0.9)
		pt3dadd(16.73, -65.99, 8.55, 0.9)
		pt3dadd(18.79, -67.52, 9.05, 0.9)
		pt3dadd(19.56, -68.54, 9.05, 0.9)
		pt3dadd(19.95, -70.33, 9.55, 0.9)
		pt3dadd(19.56, -73.14, 10.05, 0.9)
		pt3dadd(19.89, -74.99, 10.55, 0.9)
		pt3dadd(21.18, -76.91, 10.55, 0.9)
		pt3dadd(22.47, -77.8, 10.55, 0.9)
		pt3dadd(24.27, -79.08, 11.05, 0.9)
		pt3dadd(24.91, -80.61, 11.05, 0.9)
		pt3dadd(24.4, -82.14, 11.05, 0.9)
		pt3dadd(23.88, -84.19, 11.55, 0.9)
		pt3dadd(25.3, -87.76, 12.05, 0.9)
		pt3dadd(26.46, -90.83, 12.55, 0.9)
		pt3dadd(26.97, -93.12, 12.55, 0.9)
		pt3dadd(26.84, -94.4, 12.55, 0.9)
		pt3dadd(27.49, -96.96, 12.55, 0.9)
		pt3dadd(29.29, -99, 12.55, 0.9)
		pt3dadd(30.57, -100.91, 12.55, 0.9)
		pt3dadd(32.38, -106.53, 12.55, 0.9)
	}
}

proc size_sections2() {
	basal[20] {pt3dclear()
		pt3dadd(3.96, 7.01, 2.4, 1.16)
		pt3dadd(6.15, 9.44, 2.4, 1.16)
		pt3dadd(7.7, 11.1, 2.4, 1.16)
		pt3dadd(8.21, 12.5, 1.45, 1.16)
	}
	basal[21] {pt3dclear()
		pt3dadd(8.21, 12.5, 1.45, 0.9)
		pt3dadd(7.72, 14.01, 1.6, 0.9)
		pt3dadd(8.62, 16.43, 2.1, 0.9)
		pt3dadd(10.29, 18.35, 3.1, 0.9)
		pt3dadd(10.94, 19.62, 1.6, 0.9)
		pt3dadd(11.96, 21.54, 1.6, 0.9)
		pt3dadd(12.61, 23.58, 0.65, 0.9)
		pt3dadd(12.87, 25.5, 0.1, 0.9)
		pt3dadd(13.38, 28.05, -0.4, 0.9)
		pt3dadd(13.38, 30.09, -0.85, 0.9)
		pt3dadd(13.23, 32.9, -1.4, 0.9)
		pt3dadd(12.97, 35.45, -1.85, 0.9)
		pt3dadd(12.2, 37.88, -2.4, 0.9)
		pt3dadd(11.04, 39.28, -2.85, 0.9)
		pt3dadd(9.5, 40.18, -3.35, 0.9)
	}
	basal[22] {pt3dclear()
		pt3dadd(9.5, 40.18, -3.35, 0.9)
		pt3dadd(8.8, 42.18, -3.2, 0.9)
		pt3dadd(9.19, 43.46, -3.65, 0.9)
		pt3dadd(9.57, 44.35, -3.65, 0.9)
		pt3dadd(10.22, 45.24, -4.15, 0.9)
		pt3dadd(11.25, 46.14, -4.15, 0.9)
		pt3dadd(11.25, 46.65, -4.15, 0.9)
	}
	basal[23] {pt3dclear()
		pt3dadd(9.5, 40.18, -3.35, 0.9)
		pt3dadd(6.92, 41.96, -3.85, 0.9)
		pt3dadd(5.38, 43.62, -3.85, 0.9)
		pt3dadd(4.86, 45.54, -4.4, 0.9)
		pt3dadd(3.96, 48.09, -4.85, 0.9)
		pt3dadd(3.58, 49.75, -3.4, 0.9)
		pt3dadd(1.9, 51.16, -2.9, 0.9)
		pt3dadd(0.36, 52.56, -2.9, 0.9)
		pt3dadd(-0.16, 53.71, -2.4, 0.9)
		pt3dadd(-0.21, 55.46, -2.4, 0.9)
		pt3dadd(0.69, 57.25, -1.4, 0.9)
		pt3dadd(0.95, 59.03, -0.9, 0.9)
		pt3dadd(1.08, 60.69, -0.4, 0.9)
		pt3dadd(0.18, 61.84, -0.4, 0.9)
		pt3dadd(-0.72, 64.01, 0.1, 0.9)
		pt3dadd(-1.11, 65.93, 0.6, 0.9)
		pt3dadd(-1.62, 67.46, 0.6, 0.9)
		pt3dadd(-2.52, 68.87, 0.6, 0.9)
		pt3dadd(-3.17, 70.14, 0.6, 0.9)
		pt3dadd(-4.58, 71.55, 0.6, 0.9)
		pt3dadd(-4.97, 71.93, 0.6, 0.9)
	}
	basal[24] {pt3dclear()
		pt3dadd(8.21, 12.5, 1.45, 0.9)
		pt3dadd(9.64, 13.85, 1.6, 0.9)
		pt3dadd(11.45, 14.74, 2.6, 0.9)
		pt3dadd(14.02, 14.61, 3.6, 0.9)
		pt3dadd(15.18, 15.38, 1.6, 0.9)
		pt3dadd(16.46, 16.15, 0.6, 0.9)
		pt3dadd(18.91, 17.81, 0.1, 0.9)
		pt3dadd(19.68, 18.32, -2.4, 0.9)
	}
	basal[25] {pt3dclear()
		pt3dadd(19.68, 18.32, -2.4, 0.9)
		pt3dadd(19.24, 19.94, -2.3, 0.9)
		pt3dadd(20.01, 20.7, -2.3, 0.9)
		pt3dadd(21.42, 21.34, -2.3, 0.9)
		pt3dadd(23.22, 21.72, -2.75, 0.9)
		pt3dadd(23.74, 23, -2.25, 0.9)
		pt3dadd(24.38, 23.77, -3.75, 0.9)
		pt3dadd(24.9, 24.92, -3.75, 0.9)
		pt3dadd(26.18, 25.68, -4.2, 0.9)
		pt3dadd(28.24, 25.81, -4.2, 0.9)
		pt3dadd(30.3, 25.3, -4.75, 0.9)
		pt3dadd(31.59, 25.17, -5.2, 0.9)
		pt3dadd(33.26, 25.04, -5.75, 0.9)
		pt3dadd(34.55, 24.66, -6.25, 0.9)
		pt3dadd(36.61, 25.17, -6.25, 0.9)
		pt3dadd(37.25, 25.56, -6.25, 0.9)
		pt3dadd(38.28, 25.94, -6.75, 0.9)
		pt3dadd(38.93, 25.94, -6.75, 0.9)
	}
	basal[26] {pt3dclear()
		pt3dadd(19.68, 18.32, -2.4, 0.9)
		pt3dadd(21.87, 20.36, -2.4, 0.9)
		pt3dadd(24.96, 22.15, -2.4, 0.9)
		pt3dadd(28.95, 23.43, -2.4, 0.9)
		pt3dadd(32.42, 24.32, -1.9, 0.9)
		pt3dadd(35.64, 24.45, -1.4, 0.9)
		pt3dadd(38.08, 25.08, -1.4, 0.9)
		pt3dadd(42.03, 24.87, -1.4, 0.9)
		pt3dadd(44.35, 24.87, -0.9, 0.9)
		pt3dadd(48.08, 25.51, -0.4, 0.9)
		pt3dadd(50.27, 26.15, -1.4, 0.9)
		pt3dadd(53.36, 27.94, -1.85, 0.9)
		pt3dadd(55.29, 29.09, -1.85, 0.9)
		pt3dadd(57.48, 30.75, -1.85, 0.9)
		pt3dadd(60.31, 31.77, -1.85, 0.9)
		pt3dadd(63.91, 33.17, -1.85, 0.9)
		pt3dadd(66.36, 34.32, -1.85, 0.9)
		pt3dadd(68.54, 34.83, -1.85, 0.9)
		pt3dadd(71.45, 36.35, -1.85, 0.9)
		pt3dadd(72.86, 36.48, -2.4, 0.9)
		pt3dadd(75.43, 38.4, -0.9, 0.9)
		pt3dadd(76.59, 39.67, -1.85, 0.9)
		pt3dadd(77.49, 41.33, -1.85, 0.9)
		pt3dadd(78.01, 42.61, -1.85, 0.9)
		pt3dadd(78.91, 43.76, -2.4, 0.9)
		pt3dadd(79.81, 44.91, -2.4, 0.9)
		pt3dadd(80.58, 45.93, -2.4, 0.9)
		pt3dadd(81.1, 47.46, -1.9, 0.9)
		pt3dadd(81.35, 49.76, -1.9, 0.9)
		pt3dadd(81.48, 51.93, -1.4, 0.9)
		pt3dadd(82, 54.87, -2.4, 0.9)
		pt3dadd(83.29, 57.17, -2.4, 0.9)
		pt3dadd(84.64, 59.51, -2.85, 0.9)
		pt3dadd(84.64, 60.4, -2.85, 0.9)
		pt3dadd(85.54, 62.06, -2.85, 0.9)
		pt3dadd(87.08, 62.96, -2.85, 0.9)
		pt3dadd(89.01, 63.21, -3.35, 0.9)
		pt3dadd(90.56, 63.6, -3.85, 0.9)
		pt3dadd(92.23, 63.21, -4.4, 0.9)
		pt3dadd(93, 62.57, -4.4, 0.9)
		pt3dadd(94.03, 62.45, -4.4, 0.9)
		pt3dadd(96.35, 63.08, -4.85, 0.9)
		pt3dadd(97.12, 63.34, -4.85, 0.9)
	}
	basal[27] {pt3dclear()
		pt3dadd(8.21, 12.5, 1.45, 1.03)
		pt3dadd(8.21, 14.42, 1.45, 1.03)
		pt3dadd(8.73, 15.44, 1.45, 1.03)
		pt3dadd(9.88, 17.1, 1.95, 1.03)
		pt3dadd(11.43, 18.5, 1.45, 1.03)
	}
	basal[28] {pt3dclear()
		pt3dadd(11.43, 18.5, 1.45, 0.9)
		pt3dadd(14.59, 18.63, 1.6, 0.9)
		pt3dadd(16.65, 18.37, 2.1, 0.9)
		pt3dadd(19.35, 18.12, 2.1, 0.9)
		pt3dadd(21.1, 17.28, 2.1, 0.9)
		pt3dadd(22.9, 16.26, 2.6, 0.9)
		pt3dadd(24.45, 15.24, 2.6, 0.9)
		pt3dadd(26.51, 15.36, 2.6, 0.9)
		pt3dadd(29.1, 15.04, 2.6, 0.9)
	}
	basal[29] {pt3dclear()
		pt3dadd(29.1, 15.04, 2.6, 0.9)
		pt3dadd(30.13, 13.63, 2.75, 0.9)
		pt3dadd(32.06, 12.61, 2.25, 0.9)
		pt3dadd(33.86, 12.74, 1.75, 0.9)
		pt3dadd(36.18, 12.74, 1.75, 0.9)
		pt3dadd(39.14, 12.48, 1.3, 0.9)
		pt3dadd(43.4, 11.63, 1.75, 0.9)
		pt3dadd(47, 10.35, 2.25, 0.9)
		pt3dadd(49.83, 9.33, 2.7, 0.9)
		pt3dadd(53.05, 8.56, 2.7, 0.9)
		pt3dadd(53.82, 8.44, 2.7, 0.9)
		pt3dadd(55.24, 7.54, 3.25, 0.9)
		pt3dadd(56.65, 5.75, 3.25, 0.9)
		pt3dadd(57.81, 4.09, 3.75, 0.9)
		pt3dadd(60, 2.69, 3.75, 0.9)
		pt3dadd(61.41, 2.18, 4.75, 0.9)
		pt3dadd(62.44, 1.92, 4.75, 0.9)
		pt3dadd(63.47, 0.77, 3.75, 0.9)
		pt3dadd(64.89, -0.37, 2.25, 0.9)
		pt3dadd(66.95, -1.4, 2.25, 0.9)
		pt3dadd(69.65, -1.91, 2.25, 0.9)
		pt3dadd(72.94, -2.81, 2.25, 0.9)
		pt3dadd(78.47, -4.09, 2.25, 0.9)
		pt3dadd(80.92, -3.58, 2.25, 0.9)
		pt3dadd(82.85, -3.45, 2.25, 0.9)
		pt3dadd(84.14, -2.94, 2.25, 0.9)
		pt3dadd(84.78, -2.94, 2.25, 0.9)
	}
}

proc size_sections3() {
	basal[30] {pt3dclear()
		pt3dadd(29.1, 15.04, 2.6, 0.9)
		pt3dadd(30.11, 14.85, 3.1, 0.9)
		pt3dadd(31.91, 13.58, 3.6, 0.9)
		pt3dadd(35.26, 12.81, 4.55, 0.9)
		pt3dadd(40.02, 10.38, 5.6, 0.9)
		pt3dadd(43.11, 9.23, 6.6, 0.9)
		pt3dadd(45.3, 8.6, 5.1, 0.9)
		pt3dadd(47.48, 7.83, 5.1, 0.9)
		pt3dadd(50.31, 7.19, 6.6, 0.9)
		pt3dadd(53.28, 6.69, 7.1, 0.9)
		pt3dadd(57.66, 5.92, 8.1, 0.9)
		pt3dadd(60.75, 5.03, 8.1, 0.9)
		pt3dadd(64.09, 5.03, 8.6, 0.9)
		pt3dadd(67.44, 5.03, 9.1, 0.9)
		pt3dadd(71.68, 5.79, 9.6, 0.9)
		pt3dadd(73.49, 7.07, 9.6, 0.9)
		pt3dadd(76.06, 8.86, 9.6, 0.9)
		pt3dadd(77.99, 9.88, 9.6, 0.9)
		pt3dadd(80.82, 10.9, 9.6, 0.9)
		pt3dadd(84, 10.98, 9.6, 0.9)
		pt3dadd(87.6, 11.49, 10.1, 0.9)
		pt3dadd(89.14, 11.49, 10.1, 0.9)
		pt3dadd(90.94, 12.25, 9.6, 0.9)
		pt3dadd(92.75, 13.4, 9.6, 0.9)
		pt3dadd(95.71, 15.32, 9.6, 0.9)
		pt3dadd(96.99, 15.57, 9.6, 0.9)
		pt3dadd(100.6, 15.96, 9.6, 0.9)
		pt3dadd(103.17, 16.98, 10.1, 0.9)
		pt3dadd(105.62, 18.64, 9.6, 0.9)
		pt3dadd(106.77, 19.92, 9.1, 0.9)
		pt3dadd(107.93, 21.58, 9.1, 0.9)
		pt3dadd(109.35, 22.85, 9.1, 0.9)
		pt3dadd(110.89, 24.26, 9.1, 0.9)
		pt3dadd(112.62, 24.91, 9.1, 0.9)
		pt3dadd(114.67, 25.42, 11.1, 0.9)
		pt3dadd(116.22, 25.29, 11.6, 0.9)
		pt3dadd(116.22, 24.4, 12.1, 0.9)
		pt3dadd(115.83, 23.51, 12.6, 0.9)
		pt3dadd(115.58, 22.87, 13.1, 0.9)
		pt3dadd(115.83, 21.97, 13.6, 0.9)
		pt3dadd(117.12, 21.59, 14.1, 0.9)
		pt3dadd(119.18, 21.08, 14.6, 0.9)
		pt3dadd(121.24, 20.7, 14.6, 0.9)
		pt3dadd(122.53, 20.7, 13.6, 0.9)
		pt3dadd(123.55, 19.93, 12.15, 0.9)
		pt3dadd(125.49, 19.04, 12.1, 0.9)
		pt3dadd(126.39, 18.02, 13.1, 0.9)
		pt3dadd(127.8, 16.87, 14.1, 0.9)
		pt3dadd(129.22, 15.72, 14.6, 0.9)
		pt3dadd(130.76, 15.46, 14.1, 0.9)
		pt3dadd(132.82, 15.33, 14.1, 0.9)
		pt3dadd(135.01, 15.33, 14.6, 0.9)
		pt3dadd(137.32, 15.21, 14.6, 0.9)
		pt3dadd(139.51, 14.95, 14.6, 0.9)
		pt3dadd(140.16, 14.06, 13.6, 0.9)
		pt3dadd(142.27, 12.27, 14.6, 0.9)
		pt3dadd(145.35, 11.38, 14.6, 0.9)
		pt3dadd(147.16, 11.25, 15.1, 0.9)
		pt3dadd(149.6, 11.89, 15.1, 0.9)
	}
	basal[31] {pt3dclear()
		pt3dadd(11.43, 18.5, 1.45, 1.03)
		pt3dadd(12.2, 19.65, 1.95, 1.03)
		pt3dadd(11.94, 20.93, 1.95, 1.03)
		pt3dadd(10.79, 21.57, 1.95, 1.03)
		pt3dadd(9.11, 21.69, 2.45, 1.03)
		pt3dadd(8.47, 22.08, 2.45, 1.03)
		pt3dadd(8.34, 23.1, 2.45, 1.03)
		pt3dadd(9.5, 24.25, 2.95, 1.03)
		pt3dadd(9.76, 25.14, 3.95, 1.03)
	}
	basal[32] {pt3dclear()
		pt3dadd(9.76, 25.14, 3.95, 1.03)
		pt3dadd(8.88, 26.77, 4.05, 1.03)
		pt3dadd(8.88, 28.3, 4.55, 1.03)
		pt3dadd(9.66, 29.06, 5.1, 1.03)
		pt3dadd(9.79, 30.09, 5.6, 1.03)
		pt3dadd(8.24, 30.85, 6.1, 1.03)
		pt3dadd(7.08, 31.75, 6.1, 1.03)
		pt3dadd(5.67, 33.66, 6.6, 0.9)
		pt3dadd(4.77, 35.07, 8.1, 0.9)
		pt3dadd(3.87, 36.47, 8.1, 0.9)
		pt3dadd(2.71, 37.11, 8.1, 0.9)
		pt3dadd(0.13, 37.75, 8.6, 0.9)
		pt3dadd(-0.51, 39.02, 9.1, 0.9)
		pt3dadd(-0.77, 40.04, 9.1, 0.9)
		pt3dadd(-0.25, 40.68, 9.1, 0.9)
		pt3dadd(1.03, 40.68, 9.6, 0.9)
		pt3dadd(2.06, 40.68, 10.6, 0.9)
		pt3dadd(3.61, 41.83, 11.1, 0.9)
		pt3dadd(3.99, 44.51, 11.6, 0.9)
		pt3dadd(4.25, 45.41, 12.6, 0.9)
		pt3dadd(4.38, 47.07, 12.6, 0.9)
		pt3dadd(5.15, 47.71, 12.6, 0.9)
		pt3dadd(6.31, 48.09, 12.6, 0.9)
		pt3dadd(7.64, 49.4, 12.6, 0.9)
		pt3dadd(8.42, 49.78, 13.1, 0.9)
		pt3dadd(9.32, 51.19, 13.1, 0.9)
		pt3dadd(9.83, 51.82, 13.1, 0.9)
	}
	basal[33] {pt3dclear()
		pt3dadd(9.76, 25.14, 3.95, 1.03)
		pt3dadd(11.04, 26.16, 3.95, 1.03)
		pt3dadd(11.81, 27.82, 3.95, 1.03)
		pt3dadd(12.07, 28.97, 3.95, 1.03)
		pt3dadd(13.36, 30.38, 4.45, 1.03)
		pt3dadd(15.05, 31.43, 4.45, 1.03)
		pt3dadd(16.47, 33.47, 4.45, 1.03)
		pt3dadd(17.37, 35.77, 4.45, 1.03)
		pt3dadd(17.75, 38.58, 4.45, 1.03)
		pt3dadd(18.91, 41.26, 4.95, 1.03)
		pt3dadd(20.2, 42.54, 4.95, 1.03)
		pt3dadd(22.13, 45.09, 4.95, 1.03)
		pt3dadd(24.45, 47.52, 5.45, 1.03)
		pt3dadd(25.86, 48.79, 4.45, 1.03)
		pt3dadd(27.15, 50.32, 4.45, 1.03)
		pt3dadd(27.54, 51.98, 4.45, 1.03)
		pt3dadd(28.05, 53.9, 3.95, 1.03)
		pt3dadd(29, 57.16, 3.95, 1.03)
		pt3dadd(30.29, 59.85, 2.95, 1.03)
		pt3dadd(30.8, 62.65, 3.45, 1.03)
		pt3dadd(31.83, 64.19, 3.45, 1.03)
		pt3dadd(32.73, 65.21, 3.45, 1.03)
		pt3dadd(33.25, 66.74, 3.95, 1.03)
		pt3dadd(33.63, 68.53, 3.95, 1.03)
		pt3dadd(34.66, 69.55, 3.95, 1.03)
		pt3dadd(36.47, 70.95, 3.95, 1.03)
		pt3dadd(38.91, 72.74, 4.45, 1.03)
		pt3dadd(40.97, 73.76, 4.45, 1.03)
		pt3dadd(42.13, 74.91, 4.45, 1.03)
		pt3dadd(43.93, 75.93, 4.95, 1.03)
		pt3dadd(45.6, 76.7, 3.95, 1.03)
		pt3dadd(48.7, 77.34, 3.95, 1.03)
		pt3dadd(51.66, 78.24, 3.95, 1.03)
		pt3dadd(52.94, 79.39, 3.45, 1.03)
		pt3dadd(53.2, 81.17, 2.95, 1.03)
		pt3dadd(53.2, 82.58, 2.95, 1.03)
		pt3dadd(53.84, 83.6, 2.95, 1.03)
		pt3dadd(55.52, 83.98, 2.95, 1.03)
		pt3dadd(56.93, 84.24, 2.5, 1.03)
		pt3dadd(57.7, 85.01, 2.5, 1.03)
		pt3dadd(58.48, 86.03, 1.45, 1.03)
		pt3dadd(58.48, 86.41, 0.95, 1.03)
	}
	basal[34] {pt3dclear()
		pt3dadd(-12.98, 0.17, -2.25, 0.9)
		pt3dadd(-12.33, -1.23, -2.25, 0.9)
		pt3dadd(-11.52, -1.44, -2.25, 0.9)
	}
	basal[35] {pt3dclear()
		pt3dadd(-11.52, -1.44, -2.25, 0.9)
		pt3dadd(-10.79, -1.74, -3.15, 0.9)
		pt3dadd(-8.47, -1.74, -3.7, 0.9)
		pt3dadd(-6.67, -3.66, -3.7, 0.9)
		pt3dadd(-5.13, -6.59, -4.2, 0.9)
		pt3dadd(-4.61, -9.53, -4.2, 0.9)
		pt3dadd(-4.35, -11.32, -4.75, 0.9)
		pt3dadd(-4.87, -13.62, -4.75, 0.9)
		pt3dadd(-4.35, -16.55, -4.75, 0.9)
		pt3dadd(-3.2, -18.72, -4.75, 0.9)
		pt3dadd(-1.65, -21.28, -5.2, 0.9)
		pt3dadd(-1.14, -22.94, -5.2, 0.9)
	}
	basal[36] {pt3dclear()
		pt3dadd(-1.14, -22.94, -5.2, 0.9)
		pt3dadd(-2.3, -26.11, -5.05, 0.9)
		pt3dadd(-2.94, -28.79, -6.55, 0.9)
		pt3dadd(-3.72, -31.09, -5.55, 0.9)
		pt3dadd(-4.23, -33.51, -5.55, 0.9)
		pt3dadd(-5.13, -35.3, -6.5, 0.9)
		pt3dadd(-5.13, -36.83, -6.05, 0.9)
		pt3dadd(-5.13, -38.62, -5.55, 0.9)
		pt3dadd(-5.26, -39, -5.55, 0.9)
	}
	basal[37] {pt3dclear()
		pt3dadd(-1.14, -22.94, -5.2, 0.9)
		pt3dadd(0.79, -25.75, -5.2, 0.9)
		pt3dadd(1.69, -27.28, -5.75, 0.9)
		pt3dadd(3.05, -29.27, -5.25, 0.9)
		pt3dadd(3.69, -30.42, -4.25, 0.9)
		pt3dadd(3.95, -32.85, -4.25, 0.9)
		pt3dadd(3.82, -34.89, -3.75, 0.9)
	}
	basal[38] {pt3dclear()
		pt3dadd(3.82, -34.89, -3.75, 0.9)
		pt3dadd(3.34, -37.2, -3.6, 0.9)
		pt3dadd(3.08, -39.5, -1.1, 0.9)
		pt3dadd(2.7, -40.26, -3.1, 0.9)
		pt3dadd(1.54, -41.8, -3.55, 0.9)
		pt3dadd(1.15, -43.33, -4.05, 0.9)
		pt3dadd(0.77, -44.48, -4.55, 0.9)
		pt3dadd(1.15, -46.26, -5.1, 0.9)
		pt3dadd(1.67, -48.05, -5.1, 0.9)
		pt3dadd(1.03, -49.46, -5.6, 0.9)
		pt3dadd(0.12, -50.35, -5.6, 0.9)
		pt3dadd(-0.26, -51.75, -6.1, 0.9)
		pt3dadd(-0.39, -52.65, -6.6, 0.9)
		pt3dadd(0.64, -54.69, -4.1, 0.9)
		pt3dadd(1.54, -56.1, -2.6, 0.9)
		pt3dadd(2.18, -57.25, -4.55, 0.9)
		pt3dadd(2.7, -58.65, -5.1, 0.9)
		pt3dadd(3.34, -59.8, -5.6, 0.9)
		pt3dadd(3.73, -60.95, -5.6, 0.9)
		pt3dadd(3.73, -62.23, -4.1, 0.9)
		pt3dadd(3.6, -63.63, -4.1, 0.9)
		pt3dadd(4.24, -64.91, -4.6, 0.9)
		pt3dadd(5.93, -67.23, -5.55, 0.9)
		pt3dadd(6.83, -69.53, -6.6, 0.9)
		pt3dadd(6.96, -71.19, -4.1, 0.9)
		pt3dadd(6.57, -73.11, -4.1, 0.9)
		pt3dadd(5.41, -75.28, -5.6, 0.9)
		pt3dadd(4.51, -77.19, -5.6, 0.9)
		pt3dadd(2.97, -78.85, -5.6, 0.9)
	}
	basal[39] {pt3dclear()
		pt3dadd(3.82, -34.89, -3.75, 0.9)
		pt3dadd(5.88, -36.55, -3.75, 0.9)
		pt3dadd(8.46, -38.08, -3.25, 0.9)
		pt3dadd(9.74, -38.98, -3.75, 0.9)
		pt3dadd(11.29, -40.64, -4.2, 0.9)
		pt3dadd(12.7, -42.42, -4.75, 0.9)
		pt3dadd(13.73, -44.72, -3.75, 0.9)
		pt3dadd(14.12, -45.61, -3.25, 0.9)
		pt3dadd(15.15, -47.15, -3.25, 0.9)
		pt3dadd(15.53, -48.42, -3.25, 0.9)
		pt3dadd(16.82, -49.19, -3.25, 0.9)
		pt3dadd(19.39, -50.47, -2.75, 0.9)
		pt3dadd(21.71, -51.11, -1.75, 0.9)
		pt3dadd(22.87, -51.74, -2.75, 0.9)
		pt3dadd(25.44, -52.64, -2.75, 0.9)
		pt3dadd(26.86, -53.4, -3.25, 0.9)
		pt3dadd(28.4, -53.4, -3.25, 0.9)
		pt3dadd(30.59, -53.4, -3.25, 0.9)
		pt3dadd(32.49, -54.01, -3.25, 0.9)
		pt3dadd(35.58, -55.03, -3.25, 0.9)
		pt3dadd(37.13, -56.18, -4.2, 0.9)
		pt3dadd(38.41, -57.45, -4.75, 0.9)
		pt3dadd(39.57, -58.47, -4.75, 0.9)
		pt3dadd(40.86, -59.62, -5.2, 0.9)
		pt3dadd(42.28, -60.65, -3.75, 0.9)
		pt3dadd(44.46, -62.31, -3.75, 0.9)
		pt3dadd(46.91, -63.33, -3.75, 0.9)
		pt3dadd(48.58, -63.45, -3.75, 0.9)
		pt3dadd(51.03, -64.22, -3.75, 0.9)
		pt3dadd(53.09, -66.77, -3.75, 0.9)
		pt3dadd(55.02, -69.07, -3.75, 0.9)
		pt3dadd(56.69, -70.48, -3.75, 0.9)
		pt3dadd(58.36, -70.99, -4.75, 0.9)
		pt3dadd(60.16, -71.12, -3.25, 0.9)
		pt3dadd(60.61, -70.02, -3.25, 0.9)
		pt3dadd(62.02, -68.49, -2.75, 0.9)
		pt3dadd(63.31, -66.96, -2.25, 0.9)
		pt3dadd(63.57, -66.19, -1.75, 0.9)
		pt3dadd(64.85, -64.41, -1.3, 0.9)
		pt3dadd(66.53, -63.26, -1.3, 0.9)
		pt3dadd(69.36, -63.13, -1.3, 0.9)
		pt3dadd(71.68, -64.66, 0.75, 0.9)
		pt3dadd(74.51, -66.58, 1.25, 0.9)
		pt3dadd(76.31, -67.73, 1.7, 0.9)
		pt3dadd(77.98, -68.36, 2.25, 0.9)
		pt3dadd(79.91, -69, 2.25, 0.9)
	}
}

proc size_sections4() {
	basal[40] {pt3dclear()
		pt3dadd(-19.61, 3.95, -4.05, 0.9)
		pt3dadd(-21.54, 4.46, -4.05, 0.9)
		pt3dadd(-23.21, 4.85, -4.55, 0.9)
		pt3dadd(-26.56, 4.85, -4.55, 0.9)
		pt3dadd(-27.71, 5.23, -4.55, 0.9)
		pt3dadd(-30.03, 5.48, -4.55, 0.9)
		pt3dadd(-32.73, 4.59, -5.1, 0.9)
		pt3dadd(-34.92, 3.44, -5.6, 0.9)
		pt3dadd(-36.85, 2.55, -6.1, 0.9)
		pt3dadd(-39.17, 2.29, -5.1, 0.9)
		pt3dadd(-41.23, 2.55, -4.1, 0.9)
		pt3dadd(-44.19, 2.8, -5.05, 0.9)
		pt3dadd(-44.7, 2.8, -5.05, 0.9)
	}
	basal[41] {pt3dclear()
		pt3dadd(-16.78, 0.25, 2.6, 0.9)
		pt3dadd(-17.68, -1.28, 2.6, 0.9)
		pt3dadd(-18.96, -3.45, 2.1, 0.9)
	}
	basal[42] {pt3dclear()
		pt3dadd(-18.96, -3.45, 2.1, 0.9)
		pt3dadd(-17.43, -4.18, 2.75, 0.9)
		pt3dadd(-15.76, -4.56, 8.75, 0.9)
		pt3dadd(-15.12, -5.45, 9.75, 0.9)
		pt3dadd(-14.34, -6.35, 11.25, 0.9)
		pt3dadd(-13.06, -5.96, 11.75, 0.9)
		pt3dadd(-12.16, -5.32, 12.75, 0.9)
		pt3dadd(-10.1, -4.69, 12.75, 0.9)
		pt3dadd(-9.07, -4.43, 10.75, 0.9)
		pt3dadd(-7.91, -6.22, 10.75, 0.9)
		pt3dadd(-7.27, -5.84, 11.25, 0.9)
		pt3dadd(-6.62, -5.07, 12.25, 0.9)
		pt3dadd(-5.72, -3.92, 12.75, 0.9)
		pt3dadd(-3.66, -4.18, 13.25, 0.9)
		pt3dadd(-1.35, -4.56, 14.25, 0.9)
		pt3dadd(-0.45, -5.07, 15.75, 0.9)
		pt3dadd(-0.32, -6.09, 16.75, 0.9)
		pt3dadd(0.97, -6.86, 17.25, 0.9)
		pt3dadd(3.16, -7.5, 17.75, 0.9)
		pt3dadd(4.7, -7.62, 18.25, 0.9)
		pt3dadd(5.6, -7.88, 18.75, 0.9)
		pt3dadd(5.86, -7.88, 19.25, 0.9)
	}
	basal[43] {pt3dclear()
		pt3dadd(-18.96, -3.45, 2.1, 0.9)
		pt3dadd(-19.8, -2.57, 2.25, 0.9)
		pt3dadd(-20.83, -1.42, 5.75, 0.9)
		pt3dadd(-21.09, -0.39, 8.75, 0.9)
		pt3dadd(-21.6, -0.01, 9.75, 0.9)
		pt3dadd(-23.27, 0.37, 10.75, 0.9)
		pt3dadd(-25.08, -0.39, 13.75, 0.9)
		pt3dadd(-26.23, -1.93, 15.25, 0.9)
		pt3dadd(-26.75, -3.59, 15.25, 0.9)
		pt3dadd(-26.88, -4.48, 14.25, 0.9)
		pt3dadd(-27.14, -4.99, 16.75, 0.9)
		pt3dadd(-27.91, -4.48, 18.15, 0.9)
		pt3dadd(-29.19, -3.97, 19.75, 0.9)
		pt3dadd(-31.12, -4.86, 17.75, 0.9)
	}
	basal[44] {pt3dclear()
		pt3dadd(-31.12, -4.86, 17.75, 0.9)
		pt3dadd(-31.38, -6.65, 17.9, 0.9)
		pt3dadd(-31.9, -7.67, 19.4, 0.9)
		pt3dadd(-33.31, -8.06, 19.4, 0.9)
		pt3dadd(-33.96, -9.21, 19.9, 0.9)
		pt3dadd(-34.86, -11.25, 20.4, 0.9)
		pt3dadd(-35.76, -13.55, 21.4, 0.9)
		pt3dadd(-36.27, -14.31, 21.4, 0.9)
		pt3dadd(-38.59, -15.72, 23.4, 0.9)
		pt3dadd(-38.97, -17.25, 25.9, 0.9)
		pt3dadd(-38.97, -18.53, 28.35, 0.9)
		pt3dadd(-38.97, -20.57, 30.4, 0.9)
		pt3dadd(-38.97, -21.08, 31.4, 0.9)
	}
	basal[45] {pt3dclear()
		pt3dadd(-31.12, -4.86, 17.75, 0.9)
		pt3dadd(-33.18, -5.76, 20.75, 0.9)
		pt3dadd(-35.24, -5.89, 22.75, 0.9)
		pt3dadd(-36.92, -5.89, 18.75, 0.9)
		pt3dadd(-38.72, -5.12, 17.25, 0.9)
		pt3dadd(-39.49, -4.1, 17.25, 0.9)
		pt3dadd(-41.29, -3.59, 17.25, 0.9)
	}
	basal[46] {pt3dclear()
		pt3dadd(-18.96, -3.45, 2.1, 0.9)
		pt3dadd(-19.78, -5.44, 2.25, 0.9)
		pt3dadd(-20.29, -7.22, 1.75, 0.9)
		pt3dadd(-19.52, -9.01, 1.3, 0.9)
		pt3dadd(-19.36, -9.72, 1.3, 0.9)
	}
	basal[47] {pt3dclear()
		pt3dadd(-19.36, -9.72, 1.3, 0.9)
		pt3dadd(-16.79, -12.27, 1.45, 0.9)
		pt3dadd(-14.6, -12.01, 5.45, 0.9)
		pt3dadd(-11.9, -12.65, 7.45, 0.9)
		pt3dadd(-10.1, -14.57, 8.45, 0.9)
		pt3dadd(-9.84, -16.23, 8.45, 0.9)
		pt3dadd(-9.07, -17.38, 8.45, 0.9)
	}
	basal[48] {pt3dclear()
		pt3dadd(-9.07, -17.38, 8.45, 0.9)
		pt3dadd(-9.99, -18.72, 8.6, 0.9)
		pt3dadd(-11.02, -20.89, 7.6, 0.9)
		pt3dadd(-12.05, -22.68, 6.6, 0.9)
		pt3dadd(-12.05, -24.34, 7.6, 0.9)
		pt3dadd(-11.8, -25.74, 8.6, 0.9)
		pt3dadd(-11.41, -27.02, 9.1, 0.9)
		pt3dadd(-11.67, -28.3, 9.6, 0.9)
		pt3dadd(-12.95, -28.94, 9.6, 0.9)
		pt3dadd(-13.98, -28.94, 9.6, 0.9)
		pt3dadd(-15.01, -28.94, 10.1, 0.9)
		pt3dadd(-16.04, -29.96, 10.6, 0.9)
		pt3dadd(-15.91, -30.6, 10.6, 0.9)
		pt3dadd(-15.4, -31.23, 11.6, 0.9)
		pt3dadd(-15.01, -32.13, 11.6, 0.9)
		pt3dadd(-15.14, -33.28, 11.6, 0.9)
		pt3dadd(-16.17, -34.04, 12.1, 0.9)
		pt3dadd(-17.07, -34.55, 13.1, 0.9)
		pt3dadd(-18.75, -36.09, 14.1, 0.9)
		pt3dadd(-19.39, -36.21, 16.1, 0.9)
		pt3dadd(-20.68, -37.49, 16.6, 0.9)
		pt3dadd(-20.68, -38.51, 17.6, 0.9)
		pt3dadd(-19.77, -40.68, 18.6, 0.9)
		pt3dadd(-19.77, -42.34, 19.6, 0.9)
		pt3dadd(-19.77, -43.75, 20.1, 0.9)
		pt3dadd(-18.87, -44.64, 21.1, 0.9)
		pt3dadd(-17.97, -45.53, 21.6, 0.9)
		pt3dadd(-17.33, -46.43, 22.1, 0.9)
		pt3dadd(-17.46, -47.96, 22.1, 0.9)
		pt3dadd(-17.65, -49, 22.1, 0.9)
		pt3dadd(-19.19, -50.15, 22.6, 0.9)
		pt3dadd(-20.48, -49.89, 22.6, 0.9)
		pt3dadd(-21.25, -50.79, 23.1, 0.9)
		pt3dadd(-21.38, -53.34, 23.6, 0.9)
		pt3dadd(-20.61, -57.3, 25.1, 0.9)
		pt3dadd(-19.58, -58.45, 25.6, 0.9)
		pt3dadd(-18.29, -59.21, 25.6, 0.9)
		pt3dadd(-18.04, -60.24, 25.6, 0.9)
		pt3dadd(-18.42, -61.13, 25.6, 0.9)
		pt3dadd(-21.51, -63.68, 25.6, 0.9)
		pt3dadd(-24.21, -64.58, 26.1, 0.9)
		pt3dadd(-24.47, -65.85, 26.6, 0.9)
		pt3dadd(-24.09, -69.17, 27.1, 0.9)
		pt3dadd(-23.44, -72.24, 27.1, 0.9)
		pt3dadd(-23.31, -74.66, 27.1, 0.9)
		pt3dadd(-22.54, -76.96, 27.6, 0.9)
		pt3dadd(-22.67, -78.49, 27.6, 0.9)
		pt3dadd(-22.53, -80.01, 27.6, 0.9)
		pt3dadd(-23.43, -81.67, 27.6, 0.9)
		pt3dadd(-24.46, -83.46, 27.6, 0.9)
		pt3dadd(-24.72, -84.35, 27.6, 0.9)
	}
	basal[49] {pt3dclear()
		pt3dadd(-9.07, -17.38, 8.45, 0.9)
		pt3dadd(-7.65, -19.04, 8.45, 0.9)
		pt3dadd(-5.98, -20.95, 9.45, 0.9)
		pt3dadd(-4.56, -24.4, 9.95, 0.9)
		pt3dadd(-3.66, -26.95, 10.45, 0.9)
		pt3dadd(-3.53, -29.51, 10.95, 0.9)
		pt3dadd(-3.41, -32.7, 10.95, 0.9)
		pt3dadd(-2.89, -35.76, 11.45, 0.9)
		pt3dadd(-1.48, -38.06, 11.45, 0.9)
		pt3dadd(-0.11, -40.9, 11.45, 0.9)
		pt3dadd(1.56, -44.73, 11.95, 0.9)
		pt3dadd(2.85, -45.62, 11.95, 0.9)
		pt3dadd(4.39, -46.13, 12.95, 0.9)
		pt3dadd(6.71, -47.03, 11.5, 0.9)
		pt3dadd(8.64, -47.67, 11, 0.9)
		pt3dadd(9.41, -49.33, 11, 0.9)
		pt3dadd(10.18, -50.73, 12.95, 0.9)
		pt3dadd(12.37, -52.52, 12.95, 0.9)
		pt3dadd(14.43, -53.79, 13.45, 0.9)
		pt3dadd(15.97, -55.71, 13.45, 0.9)
		pt3dadd(17.13, -57.88, 13.45, 0.9)
	}
}

proc size_sections5() {
	basal[50] {pt3dclear()
		pt3dadd(17.13, -57.88, 13.45, 0.9)
		pt3dadd(17.6, -60.46, 13.65, 0.9)
		pt3dadd(18.5, -62.63, 14.1, 0.9)
		pt3dadd(20.56, -67.22, 14.6, 0.9)
		pt3dadd(21.07, -69.52, 14.1, 0.9)
		pt3dadd(22.1, -72.97, 13.65, 0.9)
		pt3dadd(22.1, -76.42, 12.65, 0.9)
		pt3dadd(21.71, -80.38, 12.65, 0.9)
		pt3dadd(20.94, -82.67, 12.15, 0.9)
		pt3dadd(20.17, -85.48, 12.15, 0.9)
		pt3dadd(20.68, -86.63, 13.1, 0.9)
		pt3dadd(22.49, -89.19, 13.1, 0.9)
		pt3dadd(22.87, -91.36, 13.1, 0.9)
		pt3dadd(23.26, -93.78, 13.6, 0.9)
		pt3dadd(23.39, -95.57, 13.6, 0.9)
		pt3dadd(22.74, -96.46, 13.6, 0.9)
		pt3dadd(21.46, -96.85, 14.1, 0.9)
		pt3dadd(18.75, -97.36, 14.1, 0.9)
	}
	basal[51] {pt3dclear()
		pt3dadd(17.13, -57.88, 13.45, 0.9)
		pt3dadd(20.22, -61.07, 12.5, 0.9)
		pt3dadd(23.05, -64.26, 12, 0.9)
		pt3dadd(25.88, -66.31, 13.45, 0.9)
		pt3dadd(29.74, -69.12, 13.95, 0.9)
		pt3dadd(33.42, -71.82, 13.95, 0.9)
		pt3dadd(38.57, -75.27, 14.45, 0.9)
		pt3dadd(42.3, -77.69, 14.45, 0.9)
		pt3dadd(44.75, -79.99, 14.95, 0.9)
		pt3dadd(46.55, -81.4, 14.95, 0.9)
		pt3dadd(49.77, -84.08, 15.45, 0.9)
		pt3dadd(54.14, -89.06, 15.45, 0.9)
		pt3dadd(56.46, -92.63, 15.45, 0.9)
	}
	basal[52] {pt3dclear()
		pt3dadd(-19.36, -9.72, 1.3, 0.9)
		pt3dadd(-18.88, -10.42, 1.3, 0.9)
		pt3dadd(-16.95, -12.08, 1.3, 0.9)
		pt3dadd(-15.66, -13.48, 0.75, 0.9)
		pt3dadd(-15.02, -15.14, 0.25, 0.9)
		pt3dadd(-14.5, -16.04, 0.25, 0.9)
		pt3dadd(-12.44, -17.31, 1.3, 0.9)
		pt3dadd(-11.93, -17.95, 1.3, 0.9)
		pt3dadd(-11.54, -18.59, 0.25, 0.9)
		pt3dadd(-11.54, -19.61, -0.2, 0.9)
		pt3dadd(-11.03, -22.04, -0.75, 0.9)
		pt3dadd(-10.38, -23.19, -0.75, 0.9)
		pt3dadd(-9.61, -23.19, -0.75, 0.9)
		pt3dadd(-8.71, -23.06, -0.75, 0.9)
		pt3dadd(-7.94, -23.57, -0.75, 0.9)
		pt3dadd(-7.81, -24.21, -1.25, 0.9)
		pt3dadd(-8.07, -25.23, -1.25, 0.9)
		pt3dadd(-8.58, -26.12, -1.75, 0.9)
		pt3dadd(-8.58, -27.14, -2.2, 0.9)
		pt3dadd(-7.81, -28.42, -2.2, 0.9)
		pt3dadd(-5.75, -30.72, -2.7, 0.9)
		pt3dadd(-3.95, -31.61, -2.7, 0.9)
		pt3dadd(-2.02, -33.4, -2.7, 0.9)
		pt3dadd(-0.37, -35.48, -3.25, 0.9)
		pt3dadd(0.53, -37.27, -4.2, 0.9)
		pt3dadd(-0.5, -40.33, -4.75, 0.9)
		pt3dadd(-0.89, -43.4, -5.2, 0.9)
		pt3dadd(1.17, -45.44, -5.7, 0.9)
		pt3dadd(3.49, -46.97, -6.75, 0.9)
		pt3dadd(4.78, -47.87, -6.75, 0.9)
	}
	basal[53] {pt3dclear()
		pt3dadd(-18.96, -3.45, 2.1, 0.9)
		pt3dadd(-21.02, -4.73, 2.6, 0.9)
		pt3dadd(-21.54, -6.13, 3.6, 0.9)
		pt3dadd(-19.94, -8.29, 3.6, 0.9)
	}
	basal[54] {pt3dclear()
		pt3dadd(-19.94, -8.29, 3.6, 0.9)
		pt3dadd(-20.07, -9.95, 3.65, 0.9)
		pt3dadd(-19.04, -13.4, 3.2, 0.9)
		pt3dadd(-19.17, -16.72, 2.25, 0.9)
		pt3dadd(-19.17, -19.78, 1.75, 0.9)
		pt3dadd(-19.17, -21.95, 1.3, 0.9)
	}
	basal[55] {pt3dclear()
		pt3dadd(-19.17, -21.95, 1.3, 0.9)
		pt3dadd(-21.3, -24.17, 1.4, 0.9)
		pt3dadd(-22.33, -25.06, 2.45, 0.9)
		pt3dadd(-23.23, -25.7, 0.95, 0.9)
		pt3dadd(-24.52, -26.85, 0.95, 0.9)
		pt3dadd(-25.16, -28.38, 0.5, 0.9)
		pt3dadd(-25.81, -30.94, 0, 0.9)
		pt3dadd(-26.84, -32.6, -0.55, 0.9)
		pt3dadd(-27.99, -33.49, -0.55, 0.9)
		pt3dadd(-30.44, -34.13, -1.05, 0.9)
		pt3dadd(-39.06, -37.58, -1.55, 0.9)
		pt3dadd(-43.69, -39.49, -2, 0.9)
		pt3dadd(-54.76, -42.56, -3.05, 0.9)
		pt3dadd(-59.27, -44.22, -3.5, 0.9)
		pt3dadd(-62.61, -45.62, -4, 0.9)
		pt3dadd(-64.55, -46.61, -4.5, 0.9)
		pt3dadd(-66.1, -46.61, -4.5, 0.9)
		pt3dadd(-70.6, -49.8, -5, 0.9)
		pt3dadd(-73.56, -51.33, -5, 0.9)
		pt3dadd(-76.52, -52.61, -5.55, 0.9)
		pt3dadd(-78.71, -52.99, -5.05, 0.9)
		pt3dadd(-80.77, -51.33, -4.05, 0.9)
		pt3dadd(-82.31, -50.95, -3.55, 0.9)
		pt3dadd(-85.27, -50.06, -3.05, 0.9)
	}
	basal[56] {pt3dclear()
		pt3dadd(-19.17, -21.95, 1.3, 0.9)
		pt3dadd(-17.24, -23.74, 1.3, 0.9)
		pt3dadd(-14.41, -25.27, 0.75, 0.9)
		pt3dadd(-12.09, -26.17, 0.25, 0.9)
		pt3dadd(-9.26, -27.19, 0.25, 0.9)
		pt3dadd(-5.79, -28.21, 0.25, 0.9)
		pt3dadd(-2.7, -30.25, 0.25, 0.9)
		pt3dadd(-0.64, -32.81, -0.7, 0.9)
		pt3dadd(0.26, -34.72, -0.7, 0.9)
		pt3dadd(0.65, -36.51, -2.2, 0.9)
		pt3dadd(1.68, -39.19, -1.75, 0.9)
		pt3dadd(1.55, -40.59, -0.75, 0.9)
		pt3dadd(1.94, -43.85, -0.75, 0.9)
		pt3dadd(2.2, -45.77, -1.25, 0.9)
		pt3dadd(3.36, -48.19, -1.25, 0.9)
		pt3dadd(5.03, -49.98, -2.2, 0.9)
		pt3dadd(6.96, -51.51, -2.2, 0.9)
		pt3dadd(9.28, -54.07, -2.2, 0.9)
		pt3dadd(11.34, -56.37, -2.75, 0.9)
		pt3dadd(11.85, -57.77, -2.75, 0.9)
		pt3dadd(12.24, -59.18, -3.25, 0.9)
		pt3dadd(12.75, -60.2, -3.75, 0.9)
		pt3dadd(14.3, -61.47, -3.75, 0.9)
		pt3dadd(16.49, -64.16, -3.25, 0.9)
		pt3dadd(17.26, -66.58, -3.25, 0.9)
		pt3dadd(18.29, -68.75, -3.25, 0.9)
		pt3dadd(20.09, -71.56, -3.25, 0.9)
		pt3dadd(21.56, -74.23, -3.25, 0.9)
		pt3dadd(23.87, -77.16, -3.25, 0.9)
		pt3dadd(25.42, -79.59, -3.25, 0.9)
		pt3dadd(26.32, -82.27, -3.25, 0.9)
		pt3dadd(27.61, -85.72, -3.25, 0.9)
		pt3dadd(28.51, -87.12, -3.25, 0.9)
		pt3dadd(29.67, -88.4, -3.25, 0.9)
		pt3dadd(31.6, -89.04, -3.25, 0.9)
		pt3dadd(35.59, -89.8, -3.25, 0.9)
		pt3dadd(38.67, -90.31, -3.25, 0.9)
		pt3dadd(41.51, -90.31, -4.2, 0.9)
		pt3dadd(44.34, -90.44, -4.2, 0.9)
		pt3dadd(46.78, -91.08, -4.2, 0.9)
		pt3dadd(48.58, -92.23, -4.75, 0.9)
		pt3dadd(50.51, -94.91, -4.25, 0.9)
		pt3dadd(51.62, -96.37, -4.25, 0.9)
		pt3dadd(53.42, -97.64, -3.75, 0.9)
		pt3dadd(54.58, -98.92, -3.75, 0.9)
		pt3dadd(57.03, -100.71, -3.75, 0.9)
		pt3dadd(57.28, -101.35, -3.75, 0.9)
	}
	basal[57] {pt3dclear()
		pt3dadd(-19.94, -8.29, 3.6, 0.9)
		pt3dadd(-19.86, -8.56, 4.55, 0.9)
		pt3dadd(-19.35, -10.99, 3.6, 0.9)
		pt3dadd(-18.83, -13.16, 2.6, 0.9)
		pt3dadd(-17.8, -15.97, 3.6, 0.9)
		pt3dadd(-15.36, -18.26, 4.1, 0.9)
		pt3dadd(-12.14, -19.54, 4.55, 0.9)
		pt3dadd(-9.7, -20.95, 5.1, 0.9)
		pt3dadd(-6.48, -22.61, 5.6, 0.9)
		pt3dadd(-4.03, -24.01, 6.6, 0.9)
		pt3dadd(-1.07, -24.9, 7.1, 0.9)
		pt3dadd(1.63, -25.93, 7.6, 0.9)
		pt3dadd(4.72, -27.46, 8.1, 0.9)
		pt3dadd(7.16, -27.59, 7.1, 0.9)
		pt3dadd(9.86, -28.48, 7.1, 0.9)
		pt3dadd(12.44, -29.12, 8.1, 0.9)
		pt3dadd(16.68, -30.78, 8.1, 0.9)
		pt3dadd(19.04, -32.11, 8.1, 0.9)
		pt3dadd(22.26, -33.51, 9.1, 0.9)
		pt3dadd(23.8, -34.4, 8.1, 0.9)
		pt3dadd(25.73, -35.94, 7.1, 0.9)
		pt3dadd(26.37, -36.32, 7.1, 0.9)
	}
	basal[58] {pt3dclear()
		pt3dadd(26.37, -36.32, 7.1, 0.9)
		pt3dadd(28.96, -37.01, 7.25, 0.9)
		pt3dadd(31.15, -38.41, 7.75, 0.9)
		pt3dadd(31.92, -38.03, 7.75, 0.9)
		pt3dadd(32.95, -37.77, 8.25, 0.9)
		pt3dadd(35.27, -38.03, 8.8, 0.9)
		pt3dadd(36.94, -38.54, 9.25, 0.9)
		pt3dadd(39.25, -38.79, 8.75, 0.9)
		pt3dadd(42.09, -38.15, 8.25, 0.9)
		pt3dadd(44.4, -38.15, 8.25, 0.9)
		pt3dadd(45.56, -38.03, 8.25, 0.9)
		pt3dadd(47.88, -37.77, 8.25, 0.9)
		pt3dadd(51.35, -38.28, 8.25, 0.9)
		pt3dadd(54.83, -40.2, 7.75, 0.9)
		pt3dadd(56.5, -40.96, 8.25, 0.9)
		pt3dadd(59.18, -42.12, 8.25, 0.9)
		pt3dadd(62.53, -43.26, 8.75, 0.9)
		pt3dadd(64.59, -44.54, 8.75, 0.9)
		pt3dadd(67.42, -46.07, 8.75, 0.9)
		pt3dadd(68.96, -47.48, 8.75, 0.9)
		pt3dadd(70.89, -48.12, 9.25, 0.9)
		pt3dadd(72.56, -48.63, 9.75, 0.9)
		pt3dadd(74.88, -48.63, 9.75, 0.9)
		pt3dadd(76.55, -48.76, 9.75, 0.9)
		pt3dadd(79.26, -49.27, 9.75, 0.9)
		pt3dadd(80.93, -50.16, 10.25, 0.9)
		pt3dadd(82.86, -51.18, 10.25, 0.9)
		pt3dadd(84.66, -51.56, 10.25, 0.9)
		pt3dadd(87.62, -52.33, 10.25, 0.9)
		pt3dadd(90.66, -53.27, 10.25, 0.9)
		pt3dadd(92.85, -52.89, 10.25, 0.9)
		pt3dadd(94.01, -52.12, 10.75, 0.9)
		pt3dadd(95.55, -51.36, 10.75, 0.9)
		pt3dadd(97.35, -50.46, 10.75, 0.9)
		pt3dadd(98.64, -49.95, 10.75, 0.9)
	}
	basal[59] {pt3dclear()
		pt3dadd(26.37, -36.32, 7.1, 0.9)
		pt3dadd(27.15, -37.85, 7.1, 0.9)
		pt3dadd(27.53, -39.89, 8.1, 0.9)
		pt3dadd(27.66, -42.45, 8.1, 0.9)
		pt3dadd(27.66, -44.36, 8.6, 0.9)
		pt3dadd(27.15, -46.53, 8.6, 0.9)
		pt3dadd(26.89, -48.19, 9.6, 0.9)
		pt3dadd(28.3, -49.34, 9.6, 0.9)
		pt3dadd(28.95, -50.62, 10.1, 0.9)
		pt3dadd(29.33, -51.51, 10.1, 0.9)
		pt3dadd(29.98, -53.3, 10.6, 0.9)
		pt3dadd(30.36, -54.83, 11.1, 0.9)
		pt3dadd(30.88, -55.85, 11.6, 0.9)
		pt3dadd(31.91, -56.62, 11.6, 0.9)
		pt3dadd(32.94, -59.81, 12.6, 0.9)
		pt3dadd(33.19, -61.73, 13.1, 0.9)
		pt3dadd(34.15, -63.92, 13.1, 0.9)
		pt3dadd(34.67, -65.96, 14.1, 0.9)
		pt3dadd(34.92, -69.41, 14.1, 0.9)
		pt3dadd(35.18, -71.84, 14.1, 0.9)
		pt3dadd(36.08, -73.63, 14.1, 0.9)
		pt3dadd(37.75, -75.8, 14.1, 0.9)
		pt3dadd(40.33, -77.58, 14.1, 0.9)
		pt3dadd(43.16, -78.22, 14.1, 0.9)
		pt3dadd(45.22, -78.09, 14.1, 0.9)
		pt3dadd(47.79, -78.86, 14.1, 0.9)
		pt3dadd(48.82, -79.88, 14.1, 0.9)
		pt3dadd(49.72, -81.03, 14.1, 0.9)
		pt3dadd(49.59, -82.82, 14.1, 0.9)
	}
}

proc size_sections6() {
	apical[0] {pt3dclear()
		pt3dadd(-22.14, 10.85, 3.15, 3.09)
		pt3dadd(-23.16, 11.49, 2.65, 3.09)
		pt3dadd(-25.35, 12.39, 2.65, 2.96)
		pt3dadd(-27.67, 13.92, 2.65, 2.83)
		pt3dadd(-30.37, 15.45, 1.15, 2.7)
		pt3dadd(-33.07, 16.73, 1.15, 2.57)
		pt3dadd(-35.52, 18.13, 1.15, 2.45)
		pt3dadd(-37.19, 19.41, 1.15, 2.19)
		pt3dadd(-38.22, 20.3, 0.65, 2.19)
		pt3dadd(-40.02, 21.96, 1.15, 2.19)
	}
	apical[1] {pt3dclear()
		pt3dadd(-40.02, 21.96, 1.15, 0.9)
		pt3dadd(-42.45, 20.81, 1.35, 0.9)
		pt3dadd(-45.93, 20.81, 0.8, 0.9)
		pt3dadd(-47.47, 20.81, 2.75, 0.9)
		pt3dadd(-51.2, 19.91, 2.75, 0.9)
		pt3dadd(-53.01, 19.91, 2.75, 0.9)
		pt3dadd(-55.45, 18.38, 3.3, 0.9)
		pt3dadd(-57.64, 18, 3.3, 0.9)
		pt3dadd(-59.44, 16.98, 2.3, 0.9)
		pt3dadd(-61.76, 14.8, 2.3, 0.9)
		pt3dadd(-64.33, 12.51, 1.8, 0.9)
		pt3dadd(-65.75, 10.97, 1.8, 0.9)
		pt3dadd(-67.68, 9.57, 1.8, 0.9)
		pt3dadd(-69.35, 9.44, 1.35, 0.9)
		pt3dadd(-70.51, 8.93, 0.8, 0.9)
		pt3dadd(-71.79, 7.65, 0.35, 0.9)
		pt3dadd(-72.44, 6.76, 0.35, 0.9)
		pt3dadd(-74.11, 6.25, -0.15, 0.9)
		pt3dadd(-76.94, 5.48, -0.7, 0.9)
		pt3dadd(-79.26, 3.44, -1.2, 0.9)
		pt3dadd(-81.83, 1.27, -1.7, 0.9)
		pt3dadd(-83.38, -1.79, -2.15, 0.9)
		pt3dadd(-86.15, -5.45, -2.15, 0.9)
		pt3dadd(-87.56, -8.26, -2.15, 0.9)
		pt3dadd(-89.49, -10.05, -2.7, 0.9)
		pt3dadd(-91.68, -11.97, -2.7, 0.9)
		pt3dadd(-94.64, -15.8, -2.7, 0.9)
		pt3dadd(-95.93, -18.48, -3.2, 0.9)
		pt3dadd(-97.34, -21.29, -3.2, 0.9)
		pt3dadd(-99.92, -24.35, -3.65, 0.9)
		pt3dadd(-100.43, -25.37, -2.7, 0.9)
		pt3dadd(-101.85, -27.54, -2.7, 0.9)
		pt3dadd(-103.65, -29.84, -2.7, 0.9)
	}
	apical[2] {pt3dclear()
		pt3dadd(-40.02, 21.96, 1.15, 2.19)
		pt3dadd(-41.31, 24.26, 1.15, 2.19)
		pt3dadd(-42.21, 25.79, 1.15, 2.06)
		pt3dadd(-44.36, 28.1, 1.15, 2.06)
	}
	apical[3] {pt3dclear()
		pt3dadd(-44.36, 28.1, 1.15, 0.9)
		pt3dadd(-44.71, 31.25, 1.45, 0.9)
		pt3dadd(-43.69, 33.42, 1.45, 0.9)
		pt3dadd(-43.3, 35.59, 2.5, 0.9)
		pt3dadd(-43.04, 38.02, 4, 0.9)
		pt3dadd(-44.46, 39.42, 5, 0.9)
		pt3dadd(-46.64, 40.82, 6.5, 0.9)
		pt3dadd(-47.42, 42.48, 7.5, 0.9)
		pt3dadd(-47.67, 44.65, 7.5, 0.9)
		pt3dadd(-47.55, 47.08, 7.5, 0.9)
		pt3dadd(-47.29, 50.4, 8, 0.9)
		pt3dadd(-47.42, 52.7, 6.5, 0.9)
		pt3dadd(-48.52, 56.76, 6.5, 0.9)
		pt3dadd(-48.39, 58.93, 6, 0.9)
		pt3dadd(-48.27, 61.48, 5.5, 0.9)
		pt3dadd(-48.39, 63.78, 5, 0.9)
		pt3dadd(-48.52, 65.82, 5, 0.9)
		pt3dadd(-48.39, 68.25, 5, 0.9)
		pt3dadd(-48.39, 70.29, 5, 0.9)
		pt3dadd(-48.91, 73.36, 5, 0.9)
		pt3dadd(-49.29, 75.4, 5, 0.9)
	}
	apical[4] {pt3dclear()
		pt3dadd(-44.36, 28.1, 1.15, 2.06)
		pt3dadd(-46.55, 28.87, 1.15, 2.06)
		pt3dadd(-49.51, 31.42, 1.15, 2.06)
		pt3dadd(-51.44, 32.57, 1.15, 1.93)
	}
	apical[5] {pt3dclear()
		pt3dadd(-51.44, 32.57, 1.15, 0.9)
		pt3dadd(-49.33, 33.68, 1.35, 0.9)
		pt3dadd(-48.08, 34.69, 1.35, 0.9)
		pt3dadd(-46.66, 36.09, 2.3, 0.9)
		pt3dadd(-45.25, 36.99, 3.8, 0.9)
		pt3dadd(-43.96, 38.26, 4.3, 0.9)
		pt3dadd(-43.19, 39.8, 4.8, 0.9)
		pt3dadd(-42.42, 41.71, 5.8, 0.9)
		pt3dadd(-42.42, 44.39, 6.8, 0.9)
		pt3dadd(-41.77, 45.67, 7.3, 0.9)
		pt3dadd(-40.61, 47.33, 7.3, 0.9)
		pt3dadd(-38.17, 48.09, 7.8, 0.9)
		pt3dadd(-35.47, 48.86, 8.3, 0.9)
		pt3dadd(-33.79, 49.5, 8.3, 0.9)
		pt3dadd(-31.86, 49.37, 8.8, 0.9)
		pt3dadd(-30.45, 49.24, 8.8, 0.9)
		pt3dadd(-28.26, 50.27, 9.8, 0.9)
		pt3dadd(-26.46, 51.03, 9.8, 0.9)
		pt3dadd(-25.3, 51.16, 10.3, 0.9)
		pt3dadd(-24.01, 50.27, 11.3, 0.9)
		pt3dadd(-22.85, 48.61, 12.3, 0.9)
		pt3dadd(-22.21, 48.09, 12.3, 0.9)
		pt3dadd(-20.67, 48.48, 12.8, 0.9)
		pt3dadd(-18.61, 48.22, 13.3, 0.9)
		pt3dadd(-16.81, 48.88, 13.3, 0.9)
		pt3dadd(-14.23, 49.9, 13.8, 0.9)
		pt3dadd(-12.56, 51.44, 14.8, 0.9)
		pt3dadd(-11.4, 52.71, 14.8, 0.9)
		pt3dadd(-10.37, 54.37, 14.8, 0.9)
		pt3dadd(-8.57, 55.01, 14.8, 0.9)
		pt3dadd(-7.41, 55.52, 14.8, 0.9)
	}
	apical[6] {pt3dclear()
		pt3dadd(-51.44, 32.57, 1.15, 0.9)
		pt3dadd(-54.73, 32.1, 1.25, 0.9)
		pt3dadd(-56.66, 31.98, 1.25, 0.9)
		pt3dadd(-60.52, 32.23, 1.25, 0.9)
		pt3dadd(-62.06, 32.74, 1.25, 0.9)
		pt3dadd(-65.28, 32.74, 0.8, 0.9)
		pt3dadd(-69.14, 32.87, 1.3, 0.9)
		pt3dadd(-71.07, 33.13, 1.75, 0.9)
		pt3dadd(-73.13, 33.38, 1.75, 0.9)
		pt3dadd(-75.06, 33.25, 2.3, 0.9)
		pt3dadd(-76.73, 32.74, 1.8, 0.9)
		pt3dadd(-78.41, 32.23, 0.8, 0.9)
		pt3dadd(-80.85, 31.85, 0.35, 0.9)
		pt3dadd(-82.4, 30.57, -0.2, 0.9)
		pt3dadd(-84.2, 30.32, -0.2, 0.9)
		pt3dadd(-85.74, 29.93, -0.2, 0.9)
		pt3dadd(-87.41, 29.17, -0.2, 0.9)
		pt3dadd(-90.12, 28.66, -0.7, 0.9)
		pt3dadd(-94.49, 28.66, -0.7, 0.9)
		pt3dadd(-98.35, 29.17, -1.7, 0.9)
		pt3dadd(-102.34, 30.44, -1.7, 0.9)
		pt3dadd(-107.58, 31.33, -2.15, 0.9)
		pt3dadd(-110.54, 31.97, -2.15, 0.9)
		pt3dadd(-111.7, 32.09, -2.7, 0.9)
		pt3dadd(-114.01, 32.35, -2.7, 0.9)
		pt3dadd(-116.07, 31.2, -2.7, 0.9)
		pt3dadd(-118.77, 29.92, -3.2, 0.9)
		pt3dadd(-120.32, 28.52, -2.2, 0.9)
		pt3dadd(-121.6, 28.01, -1.7, 0.9)
		pt3dadd(-124.31, 28.01, -1.2, 0.9)
		pt3dadd(-125.34, 28.39, -1.7, 0.9)
		pt3dadd(-126.75, 28.26, -2.15, 0.9)
		pt3dadd(-128.81, 27.88, -2.7, 0.9)
		pt3dadd(-131.26, 27.62, -2.7, 0.9)
		pt3dadd(-133.44, 28.52, -3.15, 0.9)
		pt3dadd(-136.02, 29.67, -3.2, 0.9)
		pt3dadd(-137.18, 30.18, -3.65, 0.9)
		pt3dadd(-138.72, 30.56, -3.65, 0.9)
		pt3dadd(-139.62, 30.82, -4.15, 0.9)
		pt3dadd(-141.55, 31.97, -3.7, 0.9)
		pt3dadd(-142.32, 33.37, -2.7, 0.9)
		pt3dadd(-143.1, 33.37, -2.2, 0.9)
		pt3dadd(-144.25, 33.37, -2.2, 0.9)
		pt3dadd(-146.31, 32.48, -1.7, 0.9)
		pt3dadd(-148.22, 33.04, -1.7, 0.9)
		pt3dadd(-148.99, 34.06, -1.25, 0.9)
		pt3dadd(-149.63, 35.21, -0.7, 0.9)
		pt3dadd(-150.15, 36.23, -0.7, 0.9)
		pt3dadd(-151.82, 36.87, -0.7, 0.9)
		pt3dadd(-154.52, 36.74, -0.2, 0.9)
		pt3dadd(-156.71, 36.49, -0.2, 0.9)
		pt3dadd(-158.13, 36.49, 0.8, 0.9)
		pt3dadd(-158.77, 35.59, 1.3, 0.9)
		pt3dadd(-159.28, 34.19, 1.3, 0.9)
		pt3dadd(-159.41, 33.55, 1.3, 0.9)
		pt3dadd(-161.34, 33.17, 1.3, 0.9)
		pt3dadd(-163.79, 32.91, 1.75, 0.9)
		pt3dadd(-165.33, 32.91, 2.3, 0.9)
		pt3dadd(-168.68, 34.95, 2.8, 0.9)
		pt3dadd(-170.87, 35.97, 3.3, 0.9)
		pt3dadd(-172.15, 35.72, 3.3, 0.9)
		pt3dadd(-173.57, 36.23, 3.8, 0.9)
		pt3dadd(-174.73, 37.38, 4.3, 0.9)
		pt3dadd(-175.24, 37.89, 4.8, 0.9)
		pt3dadd(-177.69, 38.27, 4.8, 0.9)
		pt3dadd(-179.87, 39.17, 5.3, 0.9)
	}
	apical[7] {pt3dclear()
		pt3dadd(-51.44, 32.57, 1.15, 1.93)
		pt3dadd(-53.75, 34.87, 1.15, 1.93)
		pt3dadd(-56.33, 36.91, 1.15, 1.93)
		pt3dadd(-56.46, 37.3, 1.15, 1.93)
	}
	apical[8] {pt3dclear()
		pt3dadd(-56.46, 37.3, 1.15, 0.9)
		pt3dadd(-56.4, 40.02, 1.3, 0.9)
		pt3dadd(-55.63, 41.17, 2.3, 0.9)
		pt3dadd(-55.49, 42.07, 2.3, 0.9)
	}
	apical[9] {pt3dclear()
		pt3dadd(-55.49, 42.07, 2.3, 0.9)
		pt3dadd(-54.2, 42.19, 2.4, 0.9)
		pt3dadd(-53.18, 42.96, -1.05, 0.9)
		pt3dadd(-52.4, 43.85, -2, 0.9)
		pt3dadd(-52.02, 44.62, -3.05, 0.9)
		pt3dadd(-51.37, 45.9, -4.5, 0.9)
		pt3dadd(-50.6, 46.79, -3.55, 0.9)
		pt3dadd(-50.6, 47.68, -3.55, 0.9)
		pt3dadd(-50.6, 48.45, -3.05, 0.9)
	}
}

proc size_sections7() {
	apical[10] {pt3dclear()
		pt3dadd(-55.49, 42.07, 2.3, 0.9)
		pt3dadd(-55.5, 42.7, 0.8, 0.9)
		pt3dadd(-56.27, 45.13, -0.15, 0.9)
		pt3dadd(-56.4, 45.89, -1.2, 0.9)
		pt3dadd(-56.01, 47.55, -1.2, 0.9)
		pt3dadd(-53.31, 48.58, -1.7, 0.9)
		pt3dadd(-51.38, 48.7, -2.15, 0.9)
		pt3dadd(-49.45, 48.7, -2.7, 0.9)
		pt3dadd(-47.13, 48.19, -2.7, 0.9)
		pt3dadd(-45.72, 47.94, -2.7, 0.9)
		pt3dadd(-45.59, 48.45, -2.7, 0.9)
		pt3dadd(-45.46, 49.09, -2.7, 0.9)
		pt3dadd(-44.82, 49.6, -3.2, 0.9)
		pt3dadd(-43.66, 50.23, -3.2, 0.9)
		pt3dadd(-42.11, 50.23, -3.2, 0.9)
		pt3dadd(-41.6, 50.11, -3.65, 0.9)
		pt3dadd(-41.34, 49.98, -3.65, 0.9)
	}
	apical[11] {pt3dclear()
		pt3dadd(-56.46, 37.3, 1.15, 1.93)
		pt3dadd(-59.16, 39.72, 1.15, 1.93)
		pt3dadd(-60.57, 42.28, 1.15, 1.8)
		pt3dadd(-61.73, 44.96, 1.15, 1.8)
		pt3dadd(-63.15, 46.87, 1.15, 1.67)
		pt3dadd(-64.82, 48.28, 1.15, 1.67)
		pt3dadd(-65.92, 50.13, 1.15, 1.67)
		pt3dadd(-67.47, 51.79, 1.15, 1.67)
		pt3dadd(-69.53, 53.58, 0.65, 1.67)
	}
	apical[12] {pt3dclear()
		pt3dadd(-69.53, 53.58, 0.65, 0.9)
		pt3dadd(-68.81, 56.68, 0.8, 0.9)
		pt3dadd(-67.78, 58.85, 0.8, 0.9)
		pt3dadd(-66.24, 60.12, 0.8, 0.9)
		pt3dadd(-65.6, 63.7, 0.8, 0.9)
		pt3dadd(-65.98, 67.4, 1.35, 0.9)
		pt3dadd(-65.98, 69.32, 1.8, 0.9)
		pt3dadd(-65.21, 71.23, -0.15, 0.9)
		pt3dadd(-64.05, 73.27, -0.7, 0.9)
		pt3dadd(-62.25, 76.34, -0.7, 0.9)
		pt3dadd(-60.82, 79.03, -0.7, 0.9)
		pt3dadd(-59.79, 81.58, -0.7, 0.9)
		pt3dadd(-57.6, 84.52, -0.7, 0.9)
		pt3dadd(-55.93, 87.2, -1.2, 0.9)
		pt3dadd(-54.26, 89.76, -1.2, 0.9)
		pt3dadd(-51.94, 91.67, -1.2, 0.9)
		pt3dadd(-50.91, 94.23, -1.2, 0.9)
		pt3dadd(-49.37, 96.91, -1.2, 0.9)
		pt3dadd(-47.05, 98.18, -1.7, 0.9)
		pt3dadd(-44.22, 99.46, -0.7, 0.9)
		pt3dadd(-40.85, 100.7, -0.7, 0.9)
		pt3dadd(-39.56, 101.46, -0.7, 0.9)
		pt3dadd(-38.02, 101.46, -0.2, 0.9)
		pt3dadd(-35.44, 101.34, 0.3, 0.9)
		pt3dadd(-33.38, 101.21, 0.8, 0.9)
		pt3dadd(-31.84, 102.23, 0.8, 0.9)
		pt3dadd(-29.91, 103, 0.8, 0.9)
		pt3dadd(-27.98, 103, 1.3, 0.9)
		pt3dadd(-26.18, 102.49, 1.3, 0.9)
		pt3dadd(-25.15, 102.49, 0.35, 0.9)
		pt3dadd(-23.22, 103.38, 0.35, 0.9)
		pt3dadd(-21.16, 105.3, 0.35, 0.9)
		pt3dadd(-18.97, 107.08, 0.35, 0.9)
		pt3dadd(-17.94, 108.36, 0.35, 0.9)
		pt3dadd(-16.4, 109.76, 0.35, 0.9)
		pt3dadd(-15.37, 111.93, 0.35, 0.9)
	}
	apical[13] {pt3dclear()
		pt3dadd(-69.53, 53.58, 0.65, 1.67)
		pt3dadd(-72.49, 55.37, 0.65, 1.67)
		pt3dadd(-74.03, 56.13, 0.65, 1.67)
		pt3dadd(-75.45, 57.28, 0.65, 1.67)
		pt3dadd(-78.28, 58.94, 0.65, 1.67)
		pt3dadd(-80.59, 59.96, 0.15, 1.67)
		pt3dadd(-82.4, 60.98, -0.3, 1.67)
		pt3dadd(-86.38, 63.03, -0.3, 1.67)
		pt3dadd(-88.7, 64.56, -0.3, 1.67)
		pt3dadd(-91.53, 65.96, -0.3, 1.67)
		pt3dadd(-93.46, 66.48, -1.35, 1.67)
		pt3dadd(-96.55, 67.24, -1.35, 1.67)
		pt3dadd(-99.13, 68.26, -2.35, 1.67)
		pt3dadd(-100.8, 68.77, -2.35, 1.67)
		pt3dadd(-101.96, 69.92, -2.35, 1.67)
		pt3dadd(-101.96, 71.71, -2.35, 1.8)
		pt3dadd(-102.11, 73.67, -3.3, 1.8)
		pt3dadd(-102.37, 75.08, -1.4, 1.8)
		pt3dadd(-103.53, 75.97, -0.35, 1.8)
		pt3dadd(-105.59, 76.74, 0.65, 1.8)
		pt3dadd(-110.48, 76.86, 1.15, 1.8)
		pt3dadd(-113.44, 76.74, 2.15, 1.8)
		pt3dadd(-116.91, 76.74, 2.65, 1.8)
		pt3dadd(-119.36, 77.5, 3.65, 1.8)
		pt3dadd(-121.93, 79.42, 2.15, 1.93)
	}
	apical[14] {pt3dclear()
		pt3dadd(-121.93, 79.42, 2.15, 1.03)
		pt3dadd(-121.19, 82.47, 2.3, 1.03)
		pt3dadd(-121.44, 84.13, 3.3, 1.03)
	}
	apical[15] {pt3dclear()
		pt3dadd(-121.44, 84.13, 3.3, 0.9)
		pt3dadd(-123, 85.64, 3.4, 0.9)
		pt3dadd(-125.06, 86.66, 2.95, 0.9)
		pt3dadd(-126.73, 87.81, 3.45, 0.9)
		pt3dadd(-128.66, 89.35, 4.45, 0.9)
		pt3dadd(-129.82, 91.39, 4.95, 0.9)
		pt3dadd(-131.11, 92.92, 5.45, 0.9)
		pt3dadd(-131.88, 94.45, 5.95, 0.9)
		pt3dadd(-133.43, 95.35, 5.95, 0.9)
		pt3dadd(-134.2, 96.37, 6.45, 0.9)
		pt3dadd(-134.46, 97.65, 6.95, 0.9)
		pt3dadd(-134.2, 99.82, 7.45, 0.9)
		pt3dadd(-134.58, 102.75, 7.95, 0.9)
		pt3dadd(-135.23, 104.16, 7.95, 0.9)
		pt3dadd(-136.26, 105.31, 8.45, 0.9)
		pt3dadd(-138.83, 106.97, 8.45, 0.9)
		pt3dadd(-141.4, 107.35, 8.45, 0.9)
		pt3dadd(-143.2, 108.89, 8.95, 0.9)
		pt3dadd(-145.13, 110.04, 8.95, 0.9)
		pt3dadd(-145.64, 111.82, 9.45, 0.9)
		pt3dadd(-146.41, 113.87, 9.45, 0.9)
		pt3dadd(-147.44, 115.27, 9.95, 0.9)
		pt3dadd(-149.76, 116.17, 9.95, 0.9)
		pt3dadd(-152.59, 118.08, 10.45, 0.9)
		pt3dadd(-153.75, 119.74, 10.95, 0.9)
		pt3dadd(-155.04, 122.93, 10.95, 0.9)
		pt3dadd(-155.68, 125.1, 11.45, 0.9)
		pt3dadd(-156.2, 126.76, 11.45, 0.9)
		pt3dadd(-157.61, 127.78, 11.45, 0.9)
		pt3dadd(-159.28, 128.81, 12.45, 0.9)
		pt3dadd(-160.18, 129.57, 12.45, 0.9)
		pt3dadd(-160.18, 131.15, 12.45, 0.9)
		pt3dadd(-160.82, 133.07, 12.95, 0.9)
		pt3dadd(-163.27, 135.75, 12.95, 0.9)
		pt3dadd(-163.91, 137.79, 13.45, 0.9)
		pt3dadd(-165.2, 138.69, 13.95, 0.9)
		pt3dadd(-166.23, 139.84, 13.45, 0.9)
		pt3dadd(-166.74, 140.86, 13, 0.9)
		pt3dadd(-166.48, 141.62, 13.45, 0.9)
		pt3dadd(-165.2, 141.88, 13.95, 0.9)
		pt3dadd(-164.68, 142.13, 14.45, 0.9)
		pt3dadd(-164.55, 143.03, 15.45, 0.9)
		pt3dadd(-165.2, 144.43, 15.95, 0.9)
		pt3dadd(-167, 145.45, 16.45, 0.9)
		pt3dadd(-167.39, 146.86, 16.45, 0.9)
		pt3dadd(-167.64, 147.75, 16.95, 0.9)
		pt3dadd(-168.29, 148.52, 17.45, 0.9)
		pt3dadd(-170.47, 148.65, 18.45, 0.9)
		pt3dadd(-172.66, 149.03, 18.45, 0.9)
		pt3dadd(-174.59, 149.67, 19.45, 0.9)
		pt3dadd(-175.24, 150.05, 19.45, 0.9)
		pt3dadd(-175.36, 150.43, 19.95, 0.9)
		pt3dadd(-175.49, 150.95, 20.45, 0.9)
		pt3dadd(-175.62, 151.58, 20.95, 0.9)
		pt3dadd(-175.62, 151.97, 20.95, 0.9)
		pt3dadd(-174.88, 153.45, 21.95, 0.9)
		pt3dadd(-174.11, 154.6, 22.45, 0.9)
		pt3dadd(-172.18, 156, 22.95, 0.9)
	}
	apical[16] {pt3dclear()
		pt3dadd(-121.44, 84.13, 3.3, 1.03)
		pt3dadd(-120.54, 86.43, 3.3, 1.03)
		pt3dadd(-119.64, 88.6, 4.3, 1.03)
		pt3dadd(-119, 90, 2.8, 1.03)
		pt3dadd(-117.84, 91.54, 2.3, 1.03)
		pt3dadd(-116.94, 93.32, 1.35, 1.03)
		pt3dadd(-115.27, 94.98, 0.35, 1.03)
		pt3dadd(-114.75, 95.75, -0.15, 1.03)
		pt3dadd(-114.88, 97.41, -0.7, 1.03)
		pt3dadd(-115.52, 99.96, -0.7, 1.03)
		pt3dadd(-116.68, 101.88, -1.2, 1.03)
		pt3dadd(-117.45, 103.54, -1.2, 1.03)
		pt3dadd(-119.31, 106.03, -1.2, 1.03)
		pt3dadd(-120.21, 107.17, -1.7, 1.03)
		pt3dadd(-122.14, 108.83, -1.2, 1.03)
		pt3dadd(-123.43, 110.62, -0.2, 1.03)
		pt3dadd(-124.59, 111.52, -0.6, 1.03)
		pt3dadd(-125.74, 113.94, -0.7, 0.9)
		pt3dadd(-126.26, 116.24, -0.7, 0.9)
		pt3dadd(-126.39, 118.03, -0.2, 0.9)
		pt3dadd(-127.42, 119.82, -0.2, 0.9)
		pt3dadd(-128.45, 121.35, -0.2, 0.9)
		pt3dadd(-129.73, 123.65, -0.2, 0.9)
		pt3dadd(-130.63, 125.05, -0.2, 0.9)
		pt3dadd(-132.44, 126.58, -0.2, 0.9)
		pt3dadd(-134.12, 127.87, -0.2, 0.9)
		pt3dadd(-135.8, 129.15, 0.3, 0.9)
		pt3dadd(-137.21, 129.79, 0.3, 0.9)
		pt3dadd(-137.98, 130.17, -0.2, 0.9)
		pt3dadd(-139.14, 131.19, -0.65, 0.9)
		pt3dadd(-139.66, 132.6, -1.2, 0.9)
		pt3dadd(-140.43, 133.23, -1.2, 0.9)
		pt3dadd(-141.59, 134.26, -1.65, 0.9)
		pt3dadd(-142.36, 134.89, -1.65, 0.9)
		pt3dadd(-142.49, 136.43, -1.65, 0.9)
		pt3dadd(-142.62, 137.58, -2.7, 0.9)
		pt3dadd(-142.36, 139.11, -3.2, 0.9)
		pt3dadd(-142.36, 139.62, -3.65, 0.9)
	}
	apical[17] {pt3dclear()
		pt3dadd(-121.93, 79.42, 2.15, 1.93)
		pt3dadd(-124.12, 81.33, 2.15, 1.93)
		pt3dadd(-125.15, 82.74, 1.15, 1.93)
		pt3dadd(-125.92, 83.5, 3.65, 1.93)
	}
	apical[18] {pt3dclear()
		pt3dadd(-125.92, 83.5, 3.65, 1.03)
		pt3dadd(-127.97, 83.21, 3.8, 1.03)
		pt3dadd(-128.61, 82.7, 4.3, 1.03)
		pt3dadd(-129.38, 81.55, 3.3, 1.03)
		pt3dadd(-130.28, 79.64, 1.35, 1.03)
		pt3dadd(-131.57, 78.74, 1.35, 1.03)
		pt3dadd(-133.89, 78.1, -0.15, 1.03)
		pt3dadd(-136.33, 77.34, -0.65, 1.03)
		pt3dadd(-140.19, 77.72, -1.7, 1.03)
		pt3dadd(-143.15, 78.49, -2.7, 1.03)
		pt3dadd(-145.73, 78.61, -1.2, 1.03)
		pt3dadd(-147.91, 78.61, -0.7, 1.03)
		pt3dadd(-149.84, 78.61, -0.7, 1.03)
		pt3dadd(-153.32, 79.51, -0.7, 1.03)
		pt3dadd(-156.79, 81.17, -0.2, 1.03)
		pt3dadd(-159.88, 81.68, -0.2, 1.03)
		pt3dadd(-161.94, 82.7, 0.3, 1.03)
		pt3dadd(-164, 83.21, 0.3, 1.03)
		pt3dadd(-165.93, 84.49, 0.3, 1.03)
		pt3dadd(-167.09, 85.51, 0.3, 1.03)
		pt3dadd(-168.76, 86.53, 0.3, 1.03)
		pt3dadd(-170.95, 87.17, 0.3, 1.03)
		pt3dadd(-174.16, 87.96, 0.3, 1.03)
		pt3dadd(-176.22, 88.73, 1.3, 1.03)
		pt3dadd(-180.72, 89.75, 1.3, 1.03)
		pt3dadd(-184.46, 90.39, 1.75, 1.03)
		pt3dadd(-186.9, 90.77, 1.75, 0.9)
		pt3dadd(-189.6, 91.79, 1.75, 0.9)
		pt3dadd(-190.89, 92.94, 2.8, 0.9)
		pt3dadd(-191.41, 93.58, 2.8, 0.9)
		pt3dadd(-192.31, 94.34, 2.8, 0.9)
		pt3dadd(-192.82, 94.22, 2.8, 0.9)
		pt3dadd(-193.21, 92.68, 3.3, 0.9)
		pt3dadd(-193.59, 91.92, 3.8, 0.9)
		pt3dadd(-194.11, 91.41, 3.8, 0.9)
		pt3dadd(-194.49, 92.05, 3.8, 0.9)
		pt3dadd(-195.01, 93.2, 3.8, 0.9)
		pt3dadd(-196.04, 94.6, 4.8, 0.9)
		pt3dadd(-197.45, 94.6, 4.8, 0.9)
		pt3dadd(-198.87, 94.22, 5.3, 0.9)
		pt3dadd(-200.41, 93.71, 5.3, 0.9)
		pt3dadd(-201.96, 93.71, 5.3, 0.9)
		pt3dadd(-201.96, 94.34, 5.3, 0.9)
		pt3dadd(-201.96, 94.86, 6.3, 0.9)
		pt3dadd(-202.22, 95.37, 6.8, 0.9)
		pt3dadd(-203.37, 95.62, 6.8, 0.9)
		pt3dadd(-204.66, 94.98, 7.3, 0.9)
		pt3dadd(-205.82, 92.94, 7.8, 0.9)
		pt3dadd(-207.36, 90.77, 8.3, 0.9)
		pt3dadd(-208.65, 89.62, 8.8, 0.9)
		pt3dadd(-210.84, 88.34, 9.3, 0.9)
		pt3dadd(-213.15, 87.07, 9.8, 0.9)
	}
	apical[19] {pt3dclear()
		pt3dadd(-125.92, 83.5, 3.65, 1.93)
		pt3dadd(-128.5, 86.31, 3.65, 1.93)
		pt3dadd(-130.81, 88.35, 4.65, 1.93)
		pt3dadd(-135.32, 90.78, 5.15, 1.93)
		pt3dadd(-138.41, 93.08, 5.65, 1.93)
	}
}

proc size_sections8() {
	apical[20] {pt3dclear()
		pt3dadd(-138.41, 93.08, 5.65, 0.9)
		pt3dadd(-139.97, 96.14, 5.8, 0.9)
		pt3dadd(-140.61, 98.69, 6.3, 0.9)
		pt3dadd(-141.77, 100.22, 6.8, 0.9)
		pt3dadd(-143.31, 102.78, 6.8, 0.9)
		pt3dadd(-144.34, 105.2, 5.8, 0.9)
		pt3dadd(-144.99, 107.12, 5.3, 0.9)
		pt3dadd(-145.12, 108.52, 6.3, 0.9)
		pt3dadd(-144.99, 110.18, 6.3, 0.9)
		pt3dadd(-144.22, 111.59, 7.3, 0.9)
		pt3dadd(-144.6, 113.89, 7.8, 0.9)
		pt3dadd(-144.86, 115.16, 6.8, 0.9)
		pt3dadd(-145.89, 116.7, 5.8, 0.9)
		pt3dadd(-146.92, 117.33, 6.8, 0.9)
		pt3dadd(-148.59, 118.1, 6.8, 0.9)
		pt3dadd(-151.37, 120.25, 7.3, 0.9)
		pt3dadd(-152.78, 122.93, 7.8, 0.9)
		pt3dadd(-153.3, 125.36, 9.3, 0.9)
		pt3dadd(-153.81, 127.4, 10.3, 0.9)
		pt3dadd(-154.33, 128.68, 9.3, 0.9)
		pt3dadd(-154.46, 130.59, 8.05, 0.9)
		pt3dadd(-154.71, 132.51, 8.35, 0.9)
		pt3dadd(-154.58, 134.55, 8.35, 0.9)
		pt3dadd(-154.46, 136.46, 8.35, 0.9)
		pt3dadd(-154.2, 138, 8.35, 0.9)
		pt3dadd(-154.33, 139.27, 8.35, 0.9)
		pt3dadd(-154.84, 140.3, 8.35, 0.9)
		pt3dadd(-156.13, 141.57, 8.35, 0.9)
		pt3dadd(-158.2, 143.61, 8.35, 0.9)
		pt3dadd(-159.49, 144.25, 9.3, 0.9)
		pt3dadd(-161.29, 145.27, 9.3, 0.9)
		pt3dadd(-163.99, 146.55, 9.3, 0.9)
		pt3dadd(-166.44, 147.96, 9.3, 0.9)
		pt3dadd(-167.98, 149.62, 9.3, 0.9)
		pt3dadd(-169.14, 150.77, 9.8, 0.9)
		pt3dadd(-169.66, 151.28, 9.8, 0.9)
		pt3dadd(-169.78, 152.04, 10.3, 0.9)
		pt3dadd(-171.97, 153.32, 10.3, 0.9)
		pt3dadd(-174.8, 154.08, 10.3, 0.9)
		pt3dadd(-176.86, 155.49, 10.3, 0.9)
		pt3dadd(-178.66, 156.89, 10.8, 0.9)
		pt3dadd(-181.11, 159.19, 11.3, 0.9)
		pt3dadd(-182.27, 160.72, 11.8, 0.9)
		pt3dadd(-182.53, 162.9, 11.8, 0.9)
		pt3dadd(-181.5, 164.56, 13.3, 0.9)
		pt3dadd(-181.06, 165.88, 13.3, 0.9)
		pt3dadd(-181.19, 167.41, 14.3, 0.9)
		pt3dadd(-181.19, 168.3, 13.85, 0.9)
		pt3dadd(-180.93, 170.35, 12.85, 0.9)
		pt3dadd(-180.8, 171.37, 14.3, 0.9)
		pt3dadd(-180.8, 172.13, 15.3, 0.9)
		pt3dadd(-180.8, 174.05, 15.3, 0.9)
	}
	apical[21] {pt3dclear()
		pt3dadd(-138.41, 93.08, 5.65, 1.93)
		pt3dadd(-141.24, 94.74, 5.65, 1.93)
		pt3dadd(-142.96, 95.83, 5.65, 1.93)
	}
	apical[22] {pt3dclear()
		pt3dadd(-142.96, 95.83, 5.65, 0.9)
		pt3dadd(-144.34, 93.71, 5.8, 0.9)
		pt3dadd(-144.47, 92.05, 4.8, 0.9)
		pt3dadd(-143.7, 90.9, 4.35, 0.9)
		pt3dadd(-143.06, 89.24, 6.3, 0.9)
		pt3dadd(-142.41, 88.22, 6.8, 0.9)
		pt3dadd(-142.16, 87.33, 6.8, 0.9)
		pt3dadd(-142.54, 85.92, 7.3, 0.9)
		pt3dadd(-143.96, 84.01, 8.3, 0.9)
		pt3dadd(-144.6, 82.09, 6.8, 0.9)
		pt3dadd(-144.86, 80.56, 7.3, 0.9)
		pt3dadd(-144.86, 79.41, 8.8, 0.9)
		pt3dadd(-143.57, 78.52, 10.8, 0.9)
		pt3dadd(-141.64, 78.52, 11.3, 0.9)
		pt3dadd(-140.1, 78.77, 11.8, 0.9)
		pt3dadd(-138.94, 78.77, 12.3, 0.9)
		pt3dadd(-138.68, 78.13, 12.3, 0.9)
		pt3dadd(-138.94, 76.86, 11.8, 0.9)
		pt3dadd(-140.1, 75.84, 11.35, 0.9)
		pt3dadd(-144.34, 74.94, 12.8, 0.9)
		pt3dadd(-147.3, 75.2, 13.8, 0.9)
		pt3dadd(-147.9, 75.42, 13.8, 0.9)
	}
	apical[23] {pt3dclear()
		pt3dadd(-147.9, 75.42, 13.8, 0.9)
		pt3dadd(-148.73, 75.16, 13.9, 0.9)
		pt3dadd(-149.88, 76.06, 15.45, 0.9)
		pt3dadd(-151.04, 77.08, 15.95, 0.9)
		pt3dadd(-151.94, 77.46, 15.95, 0.9)
		pt3dadd(-153.1, 77.72, 16.45, 0.9)
		pt3dadd(-154.52, 77.08, 16.45, 0.9)
		pt3dadd(-155.42, 76.31, 16.95, 0.9)
		pt3dadd(-156.7, 76.31, 16.95, 0.9)
		pt3dadd(-157.73, 77.21, 17.45, 0.9)
		pt3dadd(-159.28, 78.48, 17.95, 0.9)
		pt3dadd(-161.59, 79.63, 18.45, 0.9)
		pt3dadd(-164.43, 80.78, 19.95, 0.9)
		pt3dadd(-167, 82.06, 20.95, 0.9)
		pt3dadd(-169.06, 83.72, 20.95, 0.9)
		pt3dadd(-172.02, 84.87, 21.45, 0.9)
		pt3dadd(-174.59, 86.15, 21.45, 0.9)
		pt3dadd(-177.42, 86.66, 21.95, 0.9)
		pt3dadd(-180.77, 87.68, 22.45, 0.9)
		pt3dadd(-185.22, 89.23, 22.45, 0.9)
		pt3dadd(-188.95, 91.14, 22.45, 0.9)
		pt3dadd(-192.3, 91.78, 22.45, 0.9)
		pt3dadd(-196.16, 92.42, 22.95, 0.9)
		pt3dadd(-199.63, 92.93, 22.95, 0.9)
	}
	apical[24] {pt3dclear()
		pt3dadd(-147.9, 75.42, 13.8, 0.9)
		pt3dadd(-148.72, 75.71, 14.3, 0.9)
		pt3dadd(-148.46, 76.73, 14.8, 0.9)
		pt3dadd(-147.43, 77.24, 14.8, 0.9)
		pt3dadd(-146.79, 78.01, 14.8, 0.9)
		pt3dadd(-146.66, 78.77, 15.8, 0.9)
		pt3dadd(-147.56, 79.54, 16.3, 0.9)
		pt3dadd(-148.08, 79.54, 16.8, 0.9)
		pt3dadd(-148.98, 79.54, 17.3, 0.9)
		pt3dadd(-149.49, 79.54, 17.3, 0.9)
	}
	apical[25] {pt3dclear()
		pt3dadd(-142.96, 95.83, 5.65, 1.93)
		pt3dadd(-147.33, 98.39, 5.65, 1.93)
	}
	apical[26] {pt3dclear()
		pt3dadd(-147.33, 98.39, 5.65, 0.9)
		pt3dadd(-148.49, 101.97, 5.7, 0.9)
		pt3dadd(-150.16, 105.54, 5.7, 0.9)
		pt3dadd(-150.8, 108.74, 4.8, 0.9)
		pt3dadd(-151.7, 112.57, 5.8, 0.9)
		pt3dadd(-152.99, 115.38, 5.8, 0.9)
		pt3dadd(-153.63, 118.31, 6.8, 0.9)
		pt3dadd(-154.54, 120.99, 6.8, 0.9)
		pt3dadd(-155.6, 122.91, 6.8, 0.9)
		pt3dadd(-155.73, 125.47, 7.3, 0.9)
		pt3dadd(-155.34, 128.15, 7.8, 0.9)
		pt3dadd(-155.86, 132.24, 7.8, 0.9)
		pt3dadd(-156.63, 134.28, 8.3, 0.9)
		pt3dadd(-159.59, 138.36, 8.8, 0.9)
		pt3dadd(-160.75, 139.9, 8.8, 0.9)
		pt3dadd(-161.91, 141.68, 7.8, 0.9)
		pt3dadd(-162.55, 143.6, 7.8, 0.9)
		pt3dadd(-162.44, 146.25, 7.8, 0.9)
		pt3dadd(-162.96, 148.55, 7.3, 0.9)
		pt3dadd(-164.37, 150.59, 6.8, 0.9)
		pt3dadd(-164.76, 152, 6.8, 0.9)
		pt3dadd(-165.27, 153.28, 7.8, 0.9)
		pt3dadd(-164.89, 154.81, 7.8, 0.9)
		pt3dadd(-164.76, 155.96, 7.8, 0.9)
		pt3dadd(-165.4, 157.36, 7.8, 0.9)
		pt3dadd(-166.69, 159.4, 7.3, 0.9)
		pt3dadd(-167.33, 160.43, 6.3, 0.9)
		pt3dadd(-167.85, 162.47, 7.8, 0.9)
		pt3dadd(-168.49, 164.9, 8.3, 0.9)
		pt3dadd(-169.01, 166.68, 8.8, 0.9)
		pt3dadd(-169.52, 168.84, 9.3, 0.9)
		pt3dadd(-170.04, 171.4, 9.3, 0.9)
		pt3dadd(-171.19, 173.18, 10.3, 0.9)
		pt3dadd(-172.61, 174.72, 10.3, 0.9)
		pt3dadd(-173.25, 176.5, 10.8, 0.9)
		pt3dadd(-174.41, 177.91, 10.3, 0.9)
		pt3dadd(-175.83, 179.31, 9.3, 0.9)
		pt3dadd(-177.63, 180.97, 9.3, 0.9)
		pt3dadd(-179.3, 181.99, 9.3, 0.9)
	}
	apical[27] {pt3dclear()
		pt3dadd(-147.33, 98.39, 5.65, 1.93)
		pt3dadd(-150.68, 100.68, 5.65, 1.93)
	}
	apical[28] {pt3dclear()
		pt3dadd(-150.68, 100.68, 5.65, 0.9)
		pt3dadd(-151.26, 103.39, 5.8, 0.9)
		pt3dadd(-151.26, 104.67, 5.3, 0.9)
		pt3dadd(-151.77, 106.33, 4.35, 0.9)
		pt3dadd(-152.93, 108.37, 3.3, 0.9)
		pt3dadd(-154.35, 110.42, 2.8, 0.9)
		pt3dadd(-156.15, 112.08, 2.35, 0.9)
		pt3dadd(-158.72, 113.48, 1.35, 0.9)
		pt3dadd(-160.65, 114.88, 0.8, 0.9)
		pt3dadd(-163.48, 115.91, 0.8, 0.9)
		pt3dadd(-164.77, 116.93, 0.8, 0.9)
		pt3dadd(-166.19, 118.71, 0.8, 0.9)
		pt3dadd(-167.99, 120.25, 0.8, 0.9)
		pt3dadd(-170.18, 120.76, 0.8, 0.9)
		pt3dadd(-173.52, 122.29, -0.15, 0.9)
		pt3dadd(-176.74, 124.46, -0.65, 0.9)
		pt3dadd(-180.33, 126.96, -0.65, 0.9)
		pt3dadd(-185.6, 130.15, -1.2, 0.9)
		pt3dadd(-187.15, 131.81, -1.2, 0.9)
		pt3dadd(-191.14, 135.39, -1.7, 0.9)
		pt3dadd(-193.84, 137.3, -1.7, 0.9)
		pt3dadd(-196.28, 138.71, -1.7, 0.9)
		pt3dadd(-199.5, 140.88, -1.7, 0.9)
		pt3dadd(-202.33, 144.07, -2.15, 0.9)
		pt3dadd(-203.23, 145.86, -1.2, 0.9)
		pt3dadd(-205.42, 148.54, -1.2, 0.9)
		pt3dadd(-206.74, 151.02, -0.7, 0.9)
		pt3dadd(-208.16, 152.94, -0.7, 0.9)
		pt3dadd(-208.8, 154.85, -2.15, 0.9)
		pt3dadd(-209.7, 156.38, -2.7, 0.9)
		pt3dadd(-210.73, 158.04, -3.2, 0.9)
		pt3dadd(-212.02, 159.19, -3.2, 0.9)
	}
	apical[29] {pt3dclear()
		pt3dadd(-150.68, 100.68, 5.65, 1.93)
		pt3dadd(-155.06, 102.22, 5.65, 1.93)
		pt3dadd(-157.5, 103.49, 5.65, 2.06)
		pt3dadd(-159.95, 104.9, 6.15, 2.06)
		pt3dadd(-162.39, 106.05, 5.65, 2.06)
	}
}

proc size_sections9() {
	apical[30] {pt3dclear()
		pt3dadd(-162.39, 106.05, 5.65, 0.9)
		pt3dadd(-163.34, 108.5, 5.75, 0.9)
	}
	apical[31] {pt3dclear()
		pt3dadd(-163.34, 108.5, 5.75, 0.9)
		pt3dadd(-162.55, 110.32, 5.9, 0.9)
		pt3dadd(-162.29, 111.09, 6.9, 0.9)
		pt3dadd(-162.55, 112.62, 7.9, 0.9)
		pt3dadd(-164.22, 113, 8.4, 0.9)
		pt3dadd(-166.8, 112.49, 9.4, 0.9)
		pt3dadd(-168.47, 112.24, 9.4, 0.9)
		pt3dadd(-170.01, 112.49, 9.9, 0.9)
		pt3dadd(-171.82, 112.87, 10.4, 0.9)
		pt3dadd(-173.36, 112.87, 11.4, 0.9)
		pt3dadd(-175.42, 112.87, 11.4, 0.9)
		pt3dadd(-177.99, 114.15, 11.9, 0.9)
		pt3dadd(-178.64, 115.68, 12.4, 0.9)
		pt3dadd(-179.02, 117.09, 12.9, 0.9)
		pt3dadd(-179.67, 118.24, 13.9, 0.9)
		pt3dadd(-182.5, 119.51, 14.4, 0.9)
		pt3dadd(-184.17, 120.54, 16.4, 0.9)
		pt3dadd(-185.84, 121.68, 17.4, 0.9)
		pt3dadd(-187.77, 124.62, 17.4, 0.9)
		pt3dadd(-189.06, 127.05, 18.4, 0.9)
		pt3dadd(-189.32, 128.96, 19.4, 0.9)
		pt3dadd(-190.73, 130.37, 19.9, 0.9)
		pt3dadd(-194.21, 132.16, 19.9, 0.9)
		pt3dadd(-195.69, 134.2, 19.9, 0.9)
		pt3dadd(-198.26, 135.86, 21.4, 0.9)
		pt3dadd(-201.22, 136.88, 21.4, 0.9)
		pt3dadd(-205.47, 137.65, 21.9, 0.9)
		pt3dadd(-207.91, 138.8, 21.9, 0.9)
		pt3dadd(-210.36, 141.73, 22.9, 0.9)
		pt3dadd(-211.65, 143.52, 23.4, 0.9)
		pt3dadd(-212.93, 145.18, 23.9, 0.9)
		pt3dadd(-214.61, 146.71, 23.9, 0.9)
	}
	apical[32] {pt3dclear()
		pt3dadd(-163.34, 108.5, 5.75, 0.9)
		pt3dadd(-164.89, 110.92, 5.75, 0.9)
		pt3dadd(-165.92, 112.33, 5.3, 0.9)
		pt3dadd(-166.69, 113.35, 4.8, 0.9)
		pt3dadd(-166.69, 114.12, 4.35, 0.9)
		pt3dadd(-166.69, 115.52, 4.8, 0.9)
		pt3dadd(-166.43, 116.29, 5.8, 0.9)
		pt3dadd(-164.89, 117.56, 6.3, 0.9)
		pt3dadd(-163.47, 118.46, 6.3, 0.9)
		pt3dadd(-162.44, 119.22, 6.3, 0.9)
		pt3dadd(-162.06, 120.76, 6.3, 0.9)
		pt3dadd(-162.19, 122.67, 6.8, 0.9)
		pt3dadd(-162.57, 125.74, 8.3, 0.9)
		pt3dadd(-162.96, 127.78, 8.3, 0.9)
		pt3dadd(-162.96, 129.57, 8.3, 0.9)
		pt3dadd(-162.29, 131.92, 8.3, 0.9)
		pt3dadd(-162.16, 135.11, 8.8, 0.9)
		pt3dadd(-162.29, 137.03, 8.35, 0.9)
		pt3dadd(-163.83, 140.22, 8.35, 0.9)
		pt3dadd(-167.05, 144.05, 8.35, 0.9)
		pt3dadd(-168.46, 145.84, 8.35, 0.9)
		pt3dadd(-170.65, 148.52, 7.8, 0.9)
		pt3dadd(-171.81, 150.56, 8.3, 0.9)
		pt3dadd(-172.45, 153.24, 8.3, 0.9)
		pt3dadd(-173.52, 157.42, 8.3, 0.9)
		pt3dadd(-173.78, 160.87, 7.8, 0.9)
		pt3dadd(-173.91, 162.78, 8.8, 0.9)
		pt3dadd(-174.68, 164.31, 9.3, 0.9)
		pt3dadd(-176.23, 166.74, 9.3, 0.9)
		pt3dadd(-177.9, 168.91, 9.8, 0.9)
		pt3dadd(-178.41, 170.32, 8.8, 0.9)
		pt3dadd(-179.44, 172.1, 8.8, 0.9)
		pt3dadd(-181.24, 175.17, 8.8, 0.9)
		pt3dadd(-181.76, 176.96, 8.8, 0.9)
		pt3dadd(-183.34, 180.22, 8.8, 0.9)
		pt3dadd(-184.37, 182.9, 8.8, 0.9)
		pt3dadd(-185.78, 184.18, 7.85, 0.9)
		pt3dadd(-188.49, 186.22, 7.85, 0.9)
		pt3dadd(-190.67, 187.88, 7.85, 0.9)
		pt3dadd(-192.22, 189.28, 7.85, 0.9)
		pt3dadd(-195.18, 191.07, 7.85, 0.9)
		pt3dadd(-196.21, 192.99, 7.85, 0.9)
		pt3dadd(-196.85, 194.01, 7.85, 0.9)
		pt3dadd(-197.11, 195.54, 7.85, 0.9)
	}
	apical[33] {pt3dclear()
		pt3dadd(-162.39, 106.05, 5.65, 2.06)
		pt3dadd(-166.51, 107.71, 5.65, 2.06)
		pt3dadd(-168.83, 108.86, 5.65, 2.06)
		pt3dadd(-171.79, 110.13, 5.15, 2.06)
		pt3dadd(-176.03, 112.43, 4.65, 2.06)
		pt3dadd(-181.31, 115.24, 6.15, 2.06)
		pt3dadd(-184.91, 117.03, 6.15, 2.06)
		pt3dadd(-187.42, 118.68, 6.15, 2.06)
	}
	apical[34] {pt3dclear()
		pt3dadd(-187.42, 118.68, 6.15, 1.03)
		pt3dadd(-188.8, 123.13, 6.3, 1.03)
		pt3dadd(-190.35, 125.43, 6.3, 1.03)
		pt3dadd(-192.4, 129.39, 5.3, 1.03)
		pt3dadd(-193.82, 133.73, 4.8, 1.03)
		pt3dadd(-195.24, 136.41, 4.8, 1.03)
		pt3dadd(-197.17, 139.86, 4.35, 1.03)
		pt3dadd(-199.1, 141.9, 4.35, 1.03)
		pt3dadd(-200.97, 144.6, 4.35, 1.03)
		pt3dadd(-203.29, 146.77, 3.3, 1.03)
		pt3dadd(-204.96, 149.07, 3.3, 1.03)
		pt3dadd(-206.64, 152, 2.8, 1.03)
		pt3dadd(-207.15, 153.54, 2.8, 1.03)
		pt3dadd(-207.67, 155.32, 2.8, 1.03)
		pt3dadd(-207.79, 157.49, 2.3, 1.03)
		pt3dadd(-207.79, 159.28, 2.3, 1.03)
		pt3dadd(-208.7, 159.79, 2.3, 1.03)
		pt3dadd(-210.63, 160.81, 1.35, 1.03)
		pt3dadd(-214.49, 161.45, 1.35, 1.03)
		pt3dadd(-216.42, 162.35, 0.8, 1.03)
		pt3dadd(-217.32, 163.11, 0.35, 1.03)
		pt3dadd(-218.09, 164.13, 0.35, 1.03)
		pt3dadd(-218.99, 165.16, -0.15, 1.03)
		pt3dadd(-219.25, 167.25, -0.15, 1.03)
		pt3dadd(-221.82, 169.94, -0.7, 1.03)
		pt3dadd(-223.63, 172.62, -1.2, 1.03)
		pt3dadd(-225.43, 175.04, -1.2, 0.9)
		pt3dadd(-226.59, 177.21, -1.2, 0.9)
		pt3dadd(-227.23, 178.36, -2.15, 0.9)
		pt3dadd(-227.74, 179.64, -2.15, 0.9)
		pt3dadd(-228.26, 180.66, -2.15, 0.9)
		pt3dadd(-228.9, 181.3, -2.15, 0.9)
		pt3dadd(-229.93, 182.19, -2.15, 0.9)
		pt3dadd(-231.09, 182.32, -2.15, 0.9)
	}
	apical[35] {pt3dclear()
		pt3dadd(-187.42, 118.68, 6.15, 2.06)
		pt3dadd(-192.18, 121.36, 6.15, 2.06)
		pt3dadd(-194.5, 122.77, 4.65, 2.06)
		pt3dadd(-197.71, 124.17, 6.65, 2.06)
	}
	apical[36] {pt3dclear()
		pt3dadd(-197.71, 124.17, 6.65, 1.03)
		pt3dadd(-198.59, 127.41, 6.8, 1.03)
		pt3dadd(-199.37, 129.71, 7.3, 1.03)
		pt3dadd(-200.01, 132.13, 7.8, 1.03)
		pt3dadd(-200.91, 133.79, 7.8, 1.03)
		pt3dadd(-202.07, 136.47, 6.3, 1.03)
		pt3dadd(-202.84, 139.03, 5.8, 1.03)
		pt3dadd(-203.1, 142.09, 5.8, 1.03)
		pt3dadd(-204.64, 143.5, 6.3, 1.03)
		pt3dadd(-206.44, 145.03, 7.3, 1.03)
		pt3dadd(-207.86, 146.43, 7.3, 1.03)
		pt3dadd(-209.02, 147.07, 7.3, 1.03)
		pt3dadd(-211.1, 147.76, 7.3, 1.03)
		pt3dadd(-213.93, 148.27, 7.8, 1.03)
		pt3dadd(-216.89, 148.78, 8.8, 1.03)
		pt3dadd(-218.57, 149.68, 8.8, 1.03)
		pt3dadd(-222.17, 152.74, 9.3, 1.03)
		pt3dadd(-225.64, 155.42, 9.8, 1.03)
		pt3dadd(-230.41, 159, 9.8, 1.03)
		pt3dadd(-232.72, 160.27, 9.8, 1.03)
		pt3dadd(-236.07, 162.95, 10.3, 1.03)
		pt3dadd(-238.13, 164.61, 10.3, 1.03)
		pt3dadd(-239.16, 166.02, 9.3, 1.03)
		pt3dadd(-239.16, 167.55, 10.3, 1.03)
		pt3dadd(-238.13, 170.23, 10.8, 1.03)
		pt3dadd(-237.78, 172.01, 10.8, 1.03)
		pt3dadd(-237.26, 173.67, 11.3, 1.03)
		pt3dadd(-237.01, 175.59, 11.8, 1.03)
		pt3dadd(-237.26, 178.78, 12.3, 1.03)
		pt3dadd(-238.29, 180.31, 12.8, 1.03)
		pt3dadd(-240.87, 183.25, 12.8, 1.03)
		pt3dadd(-242.15, 184.91, 12.8, 1.03)
		pt3dadd(-244.6, 188.49, 13.3, 1.03)
		pt3dadd(-246.79, 190.02, 13.8, 1.03)
		pt3dadd(-248.2, 191.42, 14.3, 1.03)
		pt3dadd(-249.36, 192.96, 13.85, 1.03)
		pt3dadd(-250.46, 194.42, 13.35, 1.03)
		pt3dadd(-251.23, 195.95, 13.35, 1.03)
		pt3dadd(-251.62, 197.23, 13.8, 1.03)
		pt3dadd(-252.9, 198.89, 13.8, 1.03)
		pt3dadd(-253.8, 200.68, 13.8, 1.03)
	}
	apical[37] {pt3dclear()
		pt3dadd(-197.71, 124.17, 6.65, 2.06)
		pt3dadd(-202.47, 126.22, 6.65, 2.06)
		pt3dadd(-205.18, 126.85, 7.15, 2.06)
		pt3dadd(-209.81, 127.88, 7.65, 2.06)
		pt3dadd(-213.03, 128.77, 7.65, 2.06)
		pt3dadd(-217.79, 130.81, 8.15, 2.06)
	}
	apical[38] {pt3dclear()
		pt3dadd(-217.79, 130.81, 8.15, 1.03)
		pt3dadd(-219.7, 134.5, 8.3, 1.03)
		pt3dadd(-220.73, 136.16, 7.8, 1.03)
		pt3dadd(-221.38, 137.94, 7.8, 1.03)
		pt3dadd(-222.4, 139.99, 9.8, 1.03)
		pt3dadd(-223.56, 141.14, 10.3, 1.03)
		pt3dadd(-224.59, 141.78, 10.3, 1.03)
		pt3dadd(-225.62, 142.16, 10.8, 1.03)
		pt3dadd(-226.52, 141.9, 10.8, 1.03)
		pt3dadd(-228.45, 141.65, 10.8, 1.03)
		pt3dadd(-230.51, 142.54, 11.3, 1.03)
		pt3dadd(-231.28, 143.56, 11.3, 1.03)
		pt3dadd(-232.06, 144.58, 11.8, 1.03)
		pt3dadd(-233.86, 145.61, 12.3, 1.03)
		pt3dadd(-236.43, 146.37, 13.3, 1.03)
		pt3dadd(-238.11, 147.39, 13.3, 1.03)
		pt3dadd(-238.36, 149.56, 13.3, 1.03)
		pt3dadd(-238.75, 151.22, 13.8, 1.03)
		pt3dadd(-238.75, 152.63, 13.8, 1.03)
		pt3dadd(-237.85, 153.52, 13.8, 1.03)
		pt3dadd(-236.55, 154.62, 14.3, 1.03)
		pt3dadd(-235.13, 155.13, 15.3, 1.03)
		pt3dadd(-234.36, 156.02, 16.3, 1.03)
		pt3dadd(-234.88, 157.68, 16.8, 1.03)
		pt3dadd(-236.55, 160.11, 17.3, 1.03)
		pt3dadd(-239.25, 162.79, 17.8, 1.03)
		pt3dadd(-240.67, 165.09, 18.8, 1.03)
		pt3dadd(-241.7, 166.62, 18.8, 1.03)
		pt3dadd(-242.34, 167.89, 18.8, 1.03)
		pt3dadd(-242.34, 169.3, 19.3, 1.03)
		pt3dadd(-242.6, 170.58, 19.3, 1.03)
		pt3dadd(-243.24, 171.85, 19.8, 1.03)
		pt3dadd(-242.85, 172.75, 19.8, 1.03)
		pt3dadd(-241.44, 173.64, 20.3, 1.03)
		pt3dadd(-240.02, 175.3, 20.8, 1.03)
		pt3dadd(-239.25, 176.71, 21.3, 1.03)
		pt3dadd(-239.37, 178.25, 21.3, 1.03)
		pt3dadd(-239.11, 179.4, 20.85, 1.03)
		pt3dadd(-238.86, 180.3, 22.3, 1.03)
		pt3dadd(-239.11, 181.32, 22.3, 1.03)
		pt3dadd(-240.14, 182.47, 23.8, 1.03)
		pt3dadd(-241.82, 184, 24.8, 1.03)
		pt3dadd(-242.72, 185.53, 26.3, 1.03)
		pt3dadd(-243.75, 186.81, 26.8, 1.03)
	}
	apical[39] {pt3dclear()
		pt3dadd(-217.79, 130.81, 8.15, 2.06)
		pt3dadd(-222.16, 132.47, 8.15, 2.06)
		pt3dadd(-226.15, 134.26, 9.65, 2.06)
	}
}

proc size_sections10() {
	apical[40] {pt3dclear()
		pt3dadd(-226.15, 134.26, 9.65, 0.9)
		pt3dadd(-228.61, 132.21, 9.8, 0.9)
		pt3dadd(-230.41, 130.94, 11.3, 0.9)
		pt3dadd(-231.44, 130.04, 10.3, 0.9)
		pt3dadd(-233.63, 129.79, 9.3, 0.9)
		pt3dadd(-234.92, 130.17, 8.35, 0.9)
		pt3dadd(-237.36, 129.91, 8.35, 0.9)
		pt3dadd(-239.29, 129.28, 7.85, 0.9)
		pt3dadd(-240.06, 128.64, 7.85, 0.9)
		pt3dadd(-240.84, 128.13, 7.85, 0.9)
		pt3dadd(-242.89, 127.74, 7.3, 0.9)
		pt3dadd(-245.21, 127.87, 6.85, 0.9)
		pt3dadd(-247.01, 128, 7.8, 0.9)
		pt3dadd(-251.77, 129.15, 8.8, 0.9)
		pt3dadd(-253.96, 129.79, 8.8, 0.9)
		pt3dadd(-255.38, 129.91, 8.8, 1.03)
		pt3dadd(-257.31, 129.91, 8.8, 1.03)
		pt3dadd(-259.62, 128.64, 9.3, 1.03)
		pt3dadd(-261.55, 125.83, 9.8, 1.03)
		pt3dadd(-263.1, 123.79, 9.8, 1.03)
		pt3dadd(-263.23, 122, 9.8, 1.03)
		pt3dadd(-262.46, 119.06, 9.8, 1.03)
		pt3dadd(-261.43, 116.25, 10.3, 1.03)
		pt3dadd(-261.04, 115.49, 9.3, 1.03)
		pt3dadd(-260.27, 114.46, 9.3, 1.03)
		pt3dadd(-258.59, 112.55, 9.3, 1.03)
		pt3dadd(-257.69, 111.14, 10.3, 1.03)
		pt3dadd(-256.66, 107.95, 10.3, 1.03)
		pt3dadd(-257.18, 104.25, 10.8, 1.03)
		pt3dadd(-257.65, 101.18, 10.8, 1.03)
		pt3dadd(-258.42, 99.9, 8.85, 1.03)
		pt3dadd(-259.97, 98.37, 8.85, 0.9)
		pt3dadd(-260.1, 96.33, 8.85, 0.9)
		pt3dadd(-260.74, 94.28, 8.35, 0.9)
		pt3dadd(-261.25, 92.75, 8.35, 0.9)
		pt3dadd(-262.03, 91.48, 7.8, 0.9)
		pt3dadd(-262.8, 90.33, 9.2, 0.9)
		pt3dadd(-264.6, 89.31, 9.3, 0.9)
		pt3dadd(-266.27, 88.41, 9.3, 0.9)
		pt3dadd(-268.07, 87.01, 9.8, 0.9)
		pt3dadd(-270.13, 84.71, 11.3, 0.9)
		pt3dadd(-270.13, 84.71, 9.35, 0.9)
		pt3dadd(-271.29, 82.92, 9.35, 0.9)
		pt3dadd(-272.19, 82.03, 9.35, 0.9)
	}
	apical[41] {pt3dclear()
		pt3dadd(-226.15, 134.26, 9.65, 2.06)
		pt3dadd(-231.69, 136.81, 9.65, 2.06)
		pt3dadd(-236.58, 139.2, 9.65, 2.06)
		pt3dadd(-240.96, 141.75, 8.15, 2.06)
		pt3dadd(-246.62, 143.54, 8.15, 2.06)
	}
	apical[42] {pt3dclear()
		pt3dadd(-246.62, 143.54, 8.15, 0.9)
		pt3dadd(-248.98, 141.36, 8.3, 0.9)
		pt3dadd(-248.98, 139.95, 9.8, 0.9)
		pt3dadd(-248.47, 138.04, 10.8, 0.9)
		pt3dadd(-247.56, 134.97, 11.8, 0.9)
		pt3dadd(-247.44, 133.57, 13.3, 0.9)
		pt3dadd(-247.05, 130.63, 14.3, 0.9)
		pt3dadd(-247.82, 129.23, 13.85, 0.9)
		pt3dadd(-248.72, 128.72, 12.85, 0.9)
		pt3dadd(-250.27, 128.33, 14.3, 0.9)
		pt3dadd(-253.1, 127.44, 14.3, 0.9)
		pt3dadd(-255.03, 125.78, 13.35, 0.9)
		pt3dadd(-257.09, 124.38, 13.8, 0.9)
		pt3dadd(-259.53, 122.72, 14.3, 0.9)
		pt3dadd(-261.64, 121.51, 14.3, 0.9)
		pt3dadd(-263.31, 120.87, 14.8, 0.9)
		pt3dadd(-265.5, 120.49, 14.8, 0.9)
		pt3dadd(-266.66, 121.38, 14.8, 0.9)
		pt3dadd(-268.97, 122.66, 14.8, 0.9)
		pt3dadd(-270.13, 123.55, 15.3, 0.9)
		pt3dadd(-270.77, 124.07, 14.35, 0.9)
		pt3dadd(-272.06, 125.21, 15.3, 0.9)
		pt3dadd(-273.09, 125.73, 15.8, 0.9)
		pt3dadd(-274.51, 125.73, 15.8, 0.9)
		pt3dadd(-276.18, 125.47, 16.3, 0.9)
		pt3dadd(-276.95, 125.47, 16.3, 0.9)
		pt3dadd(-277.6, 125.85, 15.8, 0.9)
		pt3dadd(-278.24, 127, 15.35, 0.9)
		pt3dadd(-278.88, 127.13, 15.35, 0.9)
		pt3dadd(-280.17, 126.87, 16.3, 0.9)
		pt3dadd(-281.07, 126.49, 16.8, 0.9)
		pt3dadd(-282.49, 125.98, 16.8, 0.9)
		pt3dadd(-284.16, 126.11, 17.3, 0.9)
		pt3dadd(-286.6, 126.87, 17.3, 0.9)
		pt3dadd(-288.53, 127.26, 17.8, 0.9)
		pt3dadd(-290.08, 127.39, 18.3, 0.9)
		pt3dadd(-292.14, 128.02, 18.3, 0.9)
		pt3dadd(-293.94, 128.66, 18.3, 0.9)
		pt3dadd(-295.48, 129.17, 18.3, 0.9)
	}
	apical[43] {pt3dclear()
		pt3dadd(-246.62, 143.54, 8.15, 2.06)
		pt3dadd(-251, 146.09, 8.15, 2.06)
		pt3dadd(-254.09, 147.88, 8.15, 2.06)
		pt3dadd(-257.95, 149.67, 8.15, 2.06)
		pt3dadd(-260.91, 151.58, 7.65, 2.06)
		pt3dadd(-263.35, 153.37, 7.15, 2.06)
		pt3dadd(-265.15, 155.16, 7.15, 2.06)
	}
	apical[44] {pt3dclear()
		pt3dadd(-265.15, 155.16, 7.15, 1.03)
		pt3dadd(-268.2, 154.22, 7.25, 1.03)
		pt3dadd(-269.35, 153.45, 7.8, 1.03)
		pt3dadd(-270.38, 152.81, 7.8, 1.03)
	}
	apical[45] {pt3dclear()
		pt3dadd(-270.38, 152.81, 7.8, 0.9)
		pt3dadd(-273.43, 152.47, 7.9, 0.9)
		pt3dadd(-275.49, 151.7, 7.9, 0.9)
		pt3dadd(-276.91, 151.7, 7.45, 0.9)
		pt3dadd(-278.97, 150.17, 9.95, 0.9)
		pt3dadd(-282.44, 147.87, 9.95, 0.9)
		pt3dadd(-284.37, 146.08, 8.95, 0.9)
		pt3dadd(-287.97, 144.04, 8.95, 0.9)
		pt3dadd(-290.55, 142.12, 8.95, 0.9)
		pt3dadd(-292.48, 140.72, 8.95, 0.9)
		pt3dadd(-294.41, 139.83, 9.95, 0.9)
		pt3dadd(-296.08, 138.8, 10.45, 0.9)
		pt3dadd(-297.75, 138.29, 10.45, 0.9)
		pt3dadd(-300.07, 137.78, 11.95, 0.9)
		pt3dadd(-302.26, 136.25, 11.95, 0.9)
		pt3dadd(-304.45, 136, 11.95, 0.9)
		pt3dadd(-306.12, 135.23, 11.95, 0.9)
		pt3dadd(-308.05, 134.97, 11.95, 0.9)
		pt3dadd(-310.75, 134.97, 11.95, 0.9)
	}
	apical[46] {pt3dclear()
		pt3dadd(-270.38, 152.81, 7.8, 1.03)
		pt3dadd(-272.06, 150.39, 7.8, 1.03)
		pt3dadd(-272.7, 147.71, 8.3, 1.03)
		pt3dadd(-272.7, 146.17, 8.8, 0.9)
		pt3dadd(-272.96, 144.39, 8.8, 0.9)
		pt3dadd(-272.96, 142.47, 9.3, 0.9)
		pt3dadd(-273.6, 140.68, 8.8, 0.9)
		pt3dadd(-275.4, 138.9, 8.3, 0.9)
		pt3dadd(-277.72, 137.36, 7.3, 0.9)
		pt3dadd(-279.13, 136.98, 7.3, 0.9)
		pt3dadd(-279.78, 136.47, 6.85, 0.9)
		pt3dadd(-280.16, 135.19, 6.85, 0.9)
		pt3dadd(-281.32, 133.15, 6.85, 0.9)
		pt3dadd(-283.12, 131.23, 6.85, 0.9)
		pt3dadd(-285.05, 130.21, 6.3, 0.9)
		pt3dadd(-287.24, 129.32, 6.3, 0.9)
		pt3dadd(-290.33, 128.17, 7.8, 0.9)
		pt3dadd(-293.29, 126.77, 7.8, 0.9)
		pt3dadd(-296.25, 124.72, 7.8, 0.9)
		pt3dadd(-298.41, 123.16, 7.8, 0.9)
		pt3dadd(-299.95, 122.39, 6.85, 0.9)
		pt3dadd(-301.63, 120.99, 8.3, 0.9)
		pt3dadd(-303.56, 119.2, 8.3, 0.9)
		pt3dadd(-304.97, 118.3, 8.8, 0.9)
		pt3dadd(-306.26, 117.67, 7.3, 0.9)
		pt3dadd(-307.03, 117.16, 7.3, 0.9)
		pt3dadd(-308.45, 116.64, 7.3, 0.9)
		pt3dadd(-309.35, 115.75, 6.8, 0.9)
		pt3dadd(-310.51, 115.24, 5.8, 0.9)
		pt3dadd(-311.41, 114.09, 5.3, 0.9)
		pt3dadd(-311.41, 111.79, 5.3, 0.9)
		pt3dadd(-311.02, 110.13, 4.8, 0.9)
		pt3dadd(-309.99, 108.47, 4.8, 0.9)
		pt3dadd(-309.09, 106.81, 5.3, 0.9)
	}
	apical[47] {pt3dclear()
		pt3dadd(-265.15, 155.16, 7.15, 2.06)
		pt3dadd(-270.56, 158.61, 7.15, 2.06)
		pt3dadd(-272.87, 160.52, 7.15, 2.06)
		pt3dadd(-277.05, 163.91, 7.15, 2.06)
		pt3dadd(-282.72, 167.74, 6.65, 2.06)
		pt3dadd(-287.74, 170.94, 6.65, 2.06)
		pt3dadd(-291.21, 172.98, 6.65, 2.06)
		pt3dadd(-295.2, 175.66, 6.15, 2.06)
		pt3dadd(-297.77, 178.21, 6.15, 2.06)
		pt3dadd(-300.6, 179.62, 6.15, 2.06)
		pt3dadd(-304.08, 181.41, 6.15, 2.06)
		pt3dadd(-306.52, 181.79, 6.15, 2.06)
		pt3dadd(-310.13, 182.43, 5.65, 2.06)
		pt3dadd(-313.6, 183.45, 5.65, 2.06)
		pt3dadd(-317.28, 184.14, 5.65, 2.06)
		pt3dadd(-321.39, 184.53, 4.65, 2.06)
		pt3dadd(-323.84, 185.29, 4.65, 2.06)
		pt3dadd(-326.67, 186.19, 4.65, 2.06)
		pt3dadd(-329.76, 187.85, 4.65, 2.06)
		pt3dadd(-331.99, 188.51, 4.65, 2.06)
	}
	apical[48] {pt3dclear()
		pt3dadd(-331.99, 188.51, 4.65, 0.77)
		pt3dadd(-332.89, 186.98, 4.7, 0.77)
		pt3dadd(-334.17, 186.21, 5.3, 0.77)
		pt3dadd(-334.94, 185.19, 3.3, 0.77)
		pt3dadd(-335.59, 184.68, 2.8, 0.77)
		pt3dadd(-336.49, 184.3, 2.8, 0.77)
		pt3dadd(-338.16, 183.91, 2.3, 0.77)
		pt3dadd(-339.32, 183.4, 2.3, 0.77)
		pt3dadd(-340.09, 182.64, 2.3, 0.77)
		pt3dadd(-341.89, 181.87, 1.8, 0.77)
		pt3dadd(-343.57, 181.11, 1.35, 0.77)
		pt3dadd(-346.7, 180.45, 1.75, 0.77)
		pt3dadd(-348.88, 179.93, 2.3, 0.77)
		pt3dadd(-351.07, 180.06, 2.3, 0.77)
		pt3dadd(-351.33, 180.06, 2.3, 0.77)
	}
	apical[49] {pt3dclear()
		pt3dadd(-331.99, 188.51, 4.65, 2.06)
		pt3dadd(-332.85, 188.74, 4.65, 2.06)
		pt3dadd(-335.81, 191.04, 4.65, 2.06)
		pt3dadd(-340.95, 195.89, 4.65, 2.06)
		pt3dadd(-343.79, 198.7, 4.65, 2.06)
		pt3dadd(-346.23, 201.51, 4.2, 2.06)
		pt3dadd(-348.42, 203.81, 5.65, 2.06)
		pt3dadd(-350.61, 205.6, 5.65, 2.06)
		pt3dadd(-353.7, 208.02, 5.65, 2.06)
		pt3dadd(-357.09, 210.63, 5.65, 2.06)
		pt3dadd(-361.08, 212.55, 5.15, 2.06)
		pt3dadd(-363.52, 213.82, 5.15, 2.06)
		pt3dadd(-365.84, 215.74, 6.65, 2.06)
		pt3dadd(-369.06, 218.16, 6.65, 2.06)
		pt3dadd(-372.27, 220.46, 6.65, 1.93)
		pt3dadd(-375.62, 223.27, 6.65, 1.93)
		pt3dadd(-378.45, 226.59, 6.65, 1.93)
	}
}

proc size_sections11() {
	apical[50] {pt3dclear()
		pt3dadd(-378.45, 226.59, 6.65, 1.03)
		pt3dadd(-381.06, 226.41, 6.8, 1.03)
		pt3dadd(-382.22, 226.15, 6.8, 1.03)
		pt3dadd(-383.63, 225.38, 5.8, 1.03)
		pt3dadd(-384.66, 224.36, 6.3, 1.03)
		pt3dadd(-385.69, 223.09, 7.3, 1.03)
		pt3dadd(-385.69, 221.43, 7.8, 1.03)
		pt3dadd(-385.05, 219.64, 8.8, 1.03)
		pt3dadd(-384.79, 218.74, 8.8, 1.03)
		pt3dadd(-384.92, 217.21, 8.8, 1.03)
		pt3dadd(-386.46, 215.04, 9.3, 1.03)
		pt3dadd(-387.37, 214.4, 9.3, 1.03)
		pt3dadd(-388.78, 213.89, 9.8, 1.03)
		pt3dadd(-389.55, 213.89, 9.8, 1.03)
		pt3dadd(-390.33, 213, 9.8, 1.03)
		pt3dadd(-390.45, 211.98, 10.3, 1.03)
		pt3dadd(-390.45, 210.96, 10.3, 1.03)
		pt3dadd(-390.71, 209.93, 10.8, 1.03)
		pt3dadd(-391.74, 209.68, 10.8, 1.03)
		pt3dadd(-392.77, 209.55, 11.3, 1.03)
		pt3dadd(-394.7, 208.79, 11.8, 1.03)
		pt3dadd(-396.12, 207.13, 12.3, 1.03)
		pt3dadd(-398.18, 204.7, 12.8, 1.03)
		pt3dadd(-400.75, 202.4, 13.3, 1.03)
		pt3dadd(-402.55, 201.38, 13.3, 1.03)
		pt3dadd(-404.22, 199.72, 13.8, 1.03)
		pt3dadd(-406.28, 198.06, 14.3, 1.03)
		pt3dadd(-408.34, 197.04, 14.8, 1.03)
		pt3dadd(-409.77, 195.73, 14.8, 1.03)
		pt3dadd(-410.54, 194.71, 15.3, 1.03)
		pt3dadd(-411.57, 194.45, 15.8, 1.03)
		pt3dadd(-412.99, 194.84, 15.8, 1.03)
		pt3dadd(-415.18, 196.88, 16.3, 1.03)
		pt3dadd(-417.11, 199.05, 17.8, 1.03)
		pt3dadd(-418.52, 200.45, 18.3, 1.03)
		pt3dadd(-419.3, 201.6, 18.8, 1.03)
		pt3dadd(-420.07, 203.01, 19.3, 1.03)
		pt3dadd(-422.13, 203.39, 20.3, 1.03)
		pt3dadd(-424.83, 203.39, 20.8, 1.03)
		pt3dadd(-428.69, 203.52, 20.8, 1.03)
		pt3dadd(-431.39, 203.77, 21.8, 1.03)
		pt3dadd(-433.32, 203.9, 20.35, 1.03)
		pt3dadd(-435.13, 203.01, 21.3, 1.03)
		pt3dadd(-435.9, 202.5, 21.3, 1.03)
		pt3dadd(-436.93, 202.88, 21.3, 1.03)
		pt3dadd(-439.11, 203.01, 20.85, 1.03)
		pt3dadd(-440.27, 201.22, 21.8, 1.03)
		pt3dadd(-441.17, 199.18, 21.8, 1.03)
		pt3dadd(-441.56, 197.9, 23.3, 1.03)
		pt3dadd(-441.95, 196.62, 24.3, 1.03)
		pt3dadd(-442.59, 196.11, 24.3, 1.03)
		pt3dadd(-444.91, 196.49, 24.3, 1.03)
		pt3dadd(-446.19, 198.79, 24.8, 1.03)
		pt3dadd(-446.84, 199.3, 25.3, 1.03)
		pt3dadd(-448.12, 200.33, 25.8, 1.03)
		pt3dadd(-449.02, 201.22, 26.8, 1.03)
		pt3dadd(-450.44, 202.37, 26.8, 1.03)
		pt3dadd(-452.11, 204.41, 28.3, 1.03)
		pt3dadd(-453.98, 205.04, 28.3, 1.03)
		pt3dadd(-454.37, 205.17, 26.3, 1.03)
		pt3dadd(-455.52, 205.68, 29.8, 1.03)
		pt3dadd(-456.81, 205.42, 30.3, 1.03)
		pt3dadd(-459, 205.29, 30.8, 1.03)
		pt3dadd(-460.54, 205.93, 31.3, 1.03)
		pt3dadd(-461.7, 207.34, 31.3, 1.03)
		pt3dadd(-462.47, 207.97, 32.3, 1.03)
		pt3dadd(-464.4, 208.61, 32.3, 1.03)
		pt3dadd(-465.82, 209, 33.8, 1.03)
		pt3dadd(-468.39, 208.1, 34.25, 1.03)
		pt3dadd(-469.55, 206.95, 35.25, 1.03)
		pt3dadd(-470.58, 206.31, 35.75, 1.03)
		pt3dadd(-471.74, 205.04, 36.75, 1.03)
	}
	apical[51] {pt3dclear()
		pt3dadd(-378.45, 226.59, 6.65, 1.93)
		pt3dadd(-378.84, 228.38, 6.65, 1.93)
		pt3dadd(-379.74, 230.04, 7.65, 1.93)
		pt3dadd(-380.56, 231.04, 7.65, 1.93)
	}
	apical[52] {pt3dclear()
		pt3dadd(-380.56, 231.04, 7.65, 1.16)
		pt3dadd(-381.93, 234.49, 7.65, 1.16)
		pt3dadd(-383.47, 238.57, 7.65, 1.16)
		pt3dadd(-384.12, 241.76, 7.25, 1.16)
		pt3dadd(-383.99, 243.68, 8.8, 1.16)
		pt3dadd(-384.89, 245.21, 9.3, 1.16)
		pt3dadd(-386.82, 248.02, 9.8, 1.16)
		pt3dadd(-388.11, 250.06, 10.3, 1.16)
		pt3dadd(-388.88, 251.72, 10.3, 1.16)
		pt3dadd(-389.14, 253.89, 11.3, 1.16)
		pt3dadd(-389.28, 255.32, 11.3, 1.16)
	}
	apical[53] {pt3dclear()
		pt3dadd(-389.28, 255.32, 11.3, 0.9)
		pt3dadd(-390.34, 256.79, 11.35, 0.9)
		pt3dadd(-391.24, 257.56, 11.35, 0.9)
		pt3dadd(-392.53, 257.43, 11.35, 0.9)
		pt3dadd(-393.56, 257.81, 11.35, 0.9)
		pt3dadd(-394.33, 259.35, 11.35, 0.9)
		pt3dadd(-394.98, 259.6, 10.45, 0.9)
		pt3dadd(-395.88, 260.62, 12.95, 0.9)
		pt3dadd(-397.81, 259.99, 12.95, 0.9)
		pt3dadd(-399.22, 259.47, 13.45, 0.9)
		pt3dadd(-399.74, 259.73, 13.45, 0.9)
		pt3dadd(-399.61, 260.62, 13.45, 0.9)
		pt3dadd(-399.74, 261.52, 13.45, 0.9)
		pt3dadd(-401.54, 262.03, 13.95, 0.9)
		pt3dadd(-404.11, 263.43, 15.45, 0.9)
		pt3dadd(-405.4, 264.07, 15.95, 0.9)
		pt3dadd(-407.33, 265.6, 15.95, 0.9)
		pt3dadd(-408.75, 267.14, 16.95, 0.9)
		pt3dadd(-410.68, 268.54, 16.95, 0.9)
		pt3dadd(-412.35, 270.07, 16.95, 0.9)
		pt3dadd(-414.54, 272.63, 17.95, 0.9)
		pt3dadd(-415.7, 273.78, 17.95, 0.9)
		pt3dadd(-416.21, 274.92, 17.95, 0.9)
		pt3dadd(-417.11, 276.07, 17.95, 0.9)
		pt3dadd(-418.14, 276.33, 17.95, 0.9)
		pt3dadd(-420.59, 276.46, 17.95, 0.9)
		pt3dadd(-422, 275.82, 17.95, 0.9)
		pt3dadd(-423.29, 275.56, 17.95, 0.9)
		pt3dadd(-424.96, 275.95, 18.95, 0.9)
		pt3dadd(-427.28, 277.1, 18.95, 0.9)
		pt3dadd(-430.24, 278.24, 18.95, 0.9)
		pt3dadd(-431.77, 279.96, 18.95, 0.9)
		pt3dadd(-432.54, 281.11, 20.45, 0.9)
		pt3dadd(-432.54, 282.51, 20.45, 0.9)
		pt3dadd(-432.16, 284.43, 20.45, 0.9)
		pt3dadd(-432.16, 286.34, 20.95, 0.9)
		pt3dadd(-432.93, 287.88, 20.95, 0.9)
		pt3dadd(-433.96, 289.92, 20.95, 0.9)
		pt3dadd(-435.76, 290.94, 20.95, 0.9)
		pt3dadd(-437.18, 291.96, 21.45, 0.9)
		pt3dadd(-438.34, 293.24, 21.95, 0.9)
		pt3dadd(-438.46, 295.15, 21.95, 0.9)
		pt3dadd(-438.46, 297.07, 22.45, 0.9)
		pt3dadd(-438.46, 299.5, 22.45, 0.9)
		pt3dadd(-438.46, 301.28, 22.45, 0.9)
		pt3dadd(-439.44, 304, 22.45, 0.9)
		pt3dadd(-439.96, 306.43, 22.95, 0.9)
		pt3dadd(-440.6, 308.22, 22.95, 0.9)
		pt3dadd(-440.6, 309.49, 21.95, 0.9)
		pt3dadd(-440.6, 311.41, 21.95, 0.9)
		pt3dadd(-441.12, 312.56, 21, 0.9)
		pt3dadd(-442.66, 314.09, 20.5, 0.9)
		pt3dadd(-444.72, 314.73, 20.5, 0.9)
		pt3dadd(-447.04, 315.11, 20.5, 0.9)
		pt3dadd(-449.48, 316.39, 20, 0.9)
		pt3dadd(-450.38, 317.54, 19.45, 0.9)
		pt3dadd(-451.28, 319.07, 19.45, 0.9)
		pt3dadd(-451.54, 321.11, 18.45, 0.9)
		pt3dadd(-451.16, 322.65, 17.95, 0.9)
		pt3dadd(-450.77, 324.18, 17.95, 0.9)
		pt3dadd(-450.39, 325.6, 17.95, 0.9)
		pt3dadd(-450.26, 326.75, 16.45, 0.9)
		pt3dadd(-450.64, 327.64, 16.45, 0.9)
		pt3dadd(-451.29, 327.77, 16.45, 0.9)
		pt3dadd(-453.22, 327.51, 16.45, 0.9)
		pt3dadd(-454.5, 328.15, 16.45, 0.9)
		pt3dadd(-456.56, 329.43, 16, 0.9)
		pt3dadd(-457.21, 330.71, 14.5, 0.9)
		pt3dadd(-456.69, 332.75, 13.5, 0.9)
		pt3dadd(-456.69, 334.03, 12, 0.9)
		pt3dadd(-457.21, 336.2, 11.5, 0.9)
		pt3dadd(-458.49, 338.11, 11, 0.9)
		pt3dadd(-459.01, 339.77, 10, 0.9)
		pt3dadd(-459.14, 341.69, 10, 0.9)
		pt3dadd(-460.17, 342.96, 10.45, 0.9)
		pt3dadd(-461.45, 344.75, 10, 0.9)
		pt3dadd(-462.48, 346.79, 8.95, 0.9)
		pt3dadd(-462.41, 348.88, 7.95, 0.9)
		pt3dadd(-462.54, 350.03, 8.45, 0.9)
		pt3dadd(-463.05, 352.2, 8.45, 0.9)
		pt3dadd(-463.05, 353.1, 8.45, 0.9)
	}
	apical[54] {pt3dclear()
		pt3dadd(-389.28, 255.32, 11.3, 0.9)
		pt3dadd(-388.76, 257.24, 11.3, 0.9)
		pt3dadd(-389.79, 259.15, 11.3, 0.9)
		pt3dadd(-391.72, 261.96, 11.3, 0.9)
		pt3dadd(-393.14, 264, 11.8, 0.9)
		pt3dadd(-393.65, 266.3, 12.3, 0.9)
		pt3dadd(-393.4, 268.6, 12.3, 0.9)
		pt3dadd(-392.75, 271.28, 12.8, 0.9)
		pt3dadd(-391.34, 273.32, 12.8, 0.9)
		pt3dadd(-390.44, 274.86, 12.8, 0.9)
		pt3dadd(-390.31, 275.75, 12.8, 0.9)
		pt3dadd(-390.05, 277.67, 12.8, 0.9)
		pt3dadd(-390.15, 278.76, 12.8, 0.9)
	}
	apical[55] {pt3dclear()
		pt3dadd(-390.15, 278.76, 12.8, 0.9)
		pt3dadd(-391.67, 280.64, 12.95, 0.9)
		pt3dadd(-393.98, 283.45, 12.95, 0.9)
		pt3dadd(-396.04, 286.26, 12.95, 0.9)
		pt3dadd(-396.81, 288.04, 12.5, 0.9)
		pt3dadd(-398.87, 290.34, 12.95, 0.9)
		pt3dadd(-400.42, 291.24, 13.45, 0.9)
		pt3dadd(-401.45, 291.87, 13.95, 0.9)
		pt3dadd(-402.09, 292.26, 13, 0.9)
		pt3dadd(-403.38, 292.26, 12.5, 0.9)
		pt3dadd(-405.95, 291.49, 12, 0.9)
		pt3dadd(-408.14, 290.98, 11.5, 0.9)
		pt3dadd(-410.58, 290.6, 11, 0.9)
		pt3dadd(-411.74, 290.47, 10, 0.9)
		pt3dadd(-412.64, 290.21, 10, 0.9)
		pt3dadd(-413.16, 289.19, 10, 0.9)
		pt3dadd(-413.93, 287.28, 10, 0.9)
		pt3dadd(-415.6, 286.13, 10, 0.9)
		pt3dadd(-417.79, 286, 10, 0.9)
		pt3dadd(-419.59, 287.02, 8.5, 0.9)
		pt3dadd(-420.88, 288.04, 8, 0.9)
		pt3dadd(-422.68, 289.96, 8, 0.9)
		pt3dadd(-423.71, 291.87, 6.95, 0.9)
		pt3dadd(-424.48, 293.28, 6.45, 0.9)
		pt3dadd(-425.51, 293.66, 6.45, 0.9)
		pt3dadd(-426.16, 293.02, 6.45, 0.9)
		pt3dadd(-426.93, 292.38, 6.45, 0.9)
		pt3dadd(-428.99, 292.13, 6.45, 0.9)
		pt3dadd(-431.95, 292, 6.45, 0.9)
		pt3dadd(-433.23, 292.38, 6.45, 0.9)
		pt3dadd(-434.48, 293.76, 6.45, 0.9)
	}
	apical[56] {pt3dclear()
		pt3dadd(-434.48, 293.76, 6.45, 0.77)
		pt3dadd(-435.76, 293.5, 6.6, 0.77)
		pt3dadd(-436.92, 293.37, 14.1, 0.77)
		pt3dadd(-437.95, 293.37, 18.6, 0.77)
		pt3dadd(-438.98, 292.48, 21.1, 0.77)
		pt3dadd(-440.4, 292.99, 24.1, 0.77)
		pt3dadd(-441.56, 292.99, 27.1, 0.77)
		pt3dadd(-443.1, 292.99, 28.05, 0.77)
		pt3dadd(-444, 292.99, 28.05, 0.77)
		pt3dadd(-444.77, 293.5, 28.05, 0.77)
		pt3dadd(-444.77, 294.78, 28.6, 0.77)
		pt3dadd(-444.77, 295.93, 29.1, 0.77)
	}
	apical[57] {pt3dclear()
		pt3dadd(-434.48, 293.76, 6.45, 0.9)
		pt3dadd(-434.92, 294.35, 6.45, 0.9)
		pt3dadd(-435.17, 295.38, 6.45, 0.9)
		pt3dadd(-436.07, 297.16, 6.45, 0.9)
		pt3dadd(-438, 298.7, 6.45, 0.9)
		pt3dadd(-440.06, 299.59, 6.45, 0.9)
		pt3dadd(-442.25, 300.36, 6.45, 0.9)
		pt3dadd(-444.57, 302.14, 5.45, 0.9)
		pt3dadd(-447.4, 303.93, 5.45, 0.9)
		pt3dadd(-450.1, 306.1, 5, 0.9)
		pt3dadd(-453.06, 308.02, 5, 0.9)
		pt3dadd(-455.38, 309.29, 5, 0.9)
		pt3dadd(-457.69, 310.31, 5, 0.9)
		pt3dadd(-460.27, 310.83, 5, 0.9)
		pt3dadd(-461.56, 311.59, 5, 0.9)
		pt3dadd(-462.71, 313, 5, 0.9)
		pt3dadd(-463.1, 314.91, 5, 0.9)
		pt3dadd(-462.84, 316.44, 5, 0.9)
		pt3dadd(-462.46, 317.73, 5, 0.9)
		pt3dadd(-462.07, 318.62, 5, 0.9)
		pt3dadd(-462.07, 321.17, 5, 0.9)
		pt3dadd(-463.1, 323.73, 5, 0.9)
		pt3dadd(-463.62, 325.77, 5, 0.9)
		pt3dadd(-464.9, 326.79, 5, 0.9)
		pt3dadd(-465.8, 327.69, 5, 0.9)
		pt3dadd(-466.45, 328.45, 5, 0.9)
		pt3dadd(-467.09, 330.11, 5, 0.9)
		pt3dadd(-467.09, 330.88, 4.5, 0.9)
		pt3dadd(-466.19, 333.3, 4.95, 0.9)
		pt3dadd(-465.67, 335.47, 5.45, 0.9)
		pt3dadd(-465.67, 336.62, 5.45, 0.9)
		pt3dadd(-465.93, 339.18, 5.95, 0.9)
		pt3dadd(-466.94, 341.5, 5.95, 0.9)
		pt3dadd(-468.36, 342.65, 5.95, 0.9)
		pt3dadd(-469.65, 343.29, 6.45, 0.9)
		pt3dadd(-470.93, 344.31, 5.95, 0.9)
		pt3dadd(-471.32, 345.21, 5.95, 0.9)
		pt3dadd(-471.32, 346.48, 5.95, 0.9)
		pt3dadd(-471.58, 348.53, 5.95, 0.9)
		pt3dadd(-471.58, 349.93, 5.45, 0.9)
		pt3dadd(-472.09, 351.21, 5.45, 0.9)
		pt3dadd(-472.22, 351.97, 5.45, 0.9)
	}
	apical[58] {pt3dclear()
		pt3dadd(-390.15, 278.76, 12.8, 0.9)
		pt3dadd(-388.74, 279.78, 12.8, 0.9)
		pt3dadd(-386.68, 281.57, 12.8, 0.9)
		pt3dadd(-384.75, 284, 12.8, 0.9)
		pt3dadd(-383.33, 286.68, 13.3, 0.9)
		pt3dadd(-382.43, 288.98, 13.3, 0.9)
		pt3dadd(-382.04, 290, 12.35, 0.9)
		pt3dadd(-381.66, 293.32, 13.3, 0.9)
		pt3dadd(-381.66, 295.1, 13.8, 0.9)
		pt3dadd(-382.04, 297.79, 14.3, 0.9)
		pt3dadd(-382.94, 299.7, 13.3, 0.9)
		pt3dadd(-383.2, 301.36, 13.3, 0.9)
		pt3dadd(-383.41, 303.1, 13.3, 0.9)
		pt3dadd(-383.54, 304, 12.85, 0.9)
		pt3dadd(-384.57, 305.91, 12.85, 0.9)
		pt3dadd(-386.89, 309.49, 13.3, 0.9)
		pt3dadd(-387.92, 311.15, 13.8, 0.9)
		pt3dadd(-389.21, 313.7, 13.3, 0.9)
		pt3dadd(-390.88, 315.74, 13.8, 0.9)
		pt3dadd(-391.91, 317.53, 13.8, 0.9)
		pt3dadd(-392.81, 318.55, 13.8, 0.9)
		pt3dadd(-393.58, 318.94, 13.8, 0.9)
		pt3dadd(-393.97, 320.09, 13.8, 0.9)
		pt3dadd(-393.97, 321.49, 13.8, 0.9)
		pt3dadd(-393.32, 322.77, 14.3, 0.9)
		pt3dadd(-392.94, 323.92, 14.3, 0.9)
		pt3dadd(-393.05, 326.41, 14.3, 0.9)
		pt3dadd(-393.18, 328.96, 15.3, 0.9)
		pt3dadd(-393.31, 329.86, 14.35, 0.9)
		pt3dadd(-394.08, 331.9, 14.35, 0.9)
		pt3dadd(-394.85, 333.18, 13.85, 0.9)
		pt3dadd(-396.01, 333.69, 13.35, 0.9)
		pt3dadd(-397.17, 333.82, 12.35, 0.9)
		pt3dadd(-398.2, 333.56, 11.85, 0.9)
		pt3dadd(-399.1, 332.67, 11.35, 0.9)
		pt3dadd(-400.39, 332.41, 11.35, 0.9)
		pt3dadd(-403.22, 333.3, 11.35, 0.9)
		pt3dadd(-404.25, 333.82, 10.85, 0.9)
		pt3dadd(-404.89, 334.96, 10.85, 0.9)
		pt3dadd(-404.89, 336.24, 10.85, 0.9)
		pt3dadd(-404.63, 338.79, 9.8, 0.9)
		pt3dadd(-404.5, 340.07, 9.35, 0.9)
		pt3dadd(-404.89, 341.22, 9.35, 0.9)
		pt3dadd(-405.79, 341.99, 9.35, 0.9)
	}
	apical[59] {pt3dclear()
		pt3dadd(-380.56, 231.04, 7.65, 1.8)
		pt3dadd(-385.06, 233.09, 7.65, 1.8)
		pt3dadd(-388.54, 234.87, 9.15, 1.8)
		pt3dadd(-390.21, 236.53, 9.15, 1.67)
		pt3dadd(-392.4, 238.58, 10.15, 1.67)
		pt3dadd(-394.33, 240.49, 9.15, 1.67)
	}
}

proc size_sections12() {
	apical[60] {pt3dclear()
		pt3dadd(-394.33, 240.49, 9.15, 0.9)
		pt3dadd(-395.82, 242.29, 9.3, 0.9)
		pt3dadd(-396.72, 243.19, 9.3, 0.9)
		pt3dadd(-398.01, 243.7, 9.3, 0.9)
		pt3dadd(-400.33, 244.72, 8.8, 0.9)
		pt3dadd(-401.61, 245.74, 9.3, 0.9)
		pt3dadd(-402.64, 246.51, 9.3, 0.9)
	}
	apical[61] {pt3dclear()
		pt3dadd(-402.64, 246.51, 9.3, 0.77)
		pt3dadd(-402.59, 248.54, 9.95, 0.77)
		pt3dadd(-402.72, 249.69, 11.45, 0.77)
		pt3dadd(-401.95, 250.45, 11.45, 0.77)
		pt3dadd(-402.46, 251.6, 11.95, 0.77)
		pt3dadd(-403.75, 252.11, 13.95, 0.77)
		pt3dadd(-405.68, 252.88, 14.45, 0.77)
		pt3dadd(-406.33, 253.77, 14.45, 0.77)
		pt3dadd(-406.45, 255.18, 14.45, 0.77)
		pt3dadd(-407.48, 256.2, 15.45, 0.77)
		pt3dadd(-409.41, 256.71, 16.95, 0.77)
		pt3dadd(-412.76, 256.58, 17.45, 0.77)
		pt3dadd(-415.59, 256.07, 17.45, 0.77)
		pt3dadd(-418.55, 255.94, 18.45, 0.77)
		pt3dadd(-421.51, 255.94, 18.45, 0.77)
		pt3dadd(-422.41, 256.96, 18.45, 0.77)
		pt3dadd(-422.03, 259.26, 18.95, 0.77)
		pt3dadd(-421.25, 260.16, 19.95, 0.77)
		pt3dadd(-419.32, 261.05, 20.95, 0.77)
		pt3dadd(-417.26, 260.54, 21.45, 0.77)
		pt3dadd(-416.23, 260.92, 23.45, 0.77)
		pt3dadd(-415.33, 261.82, 23.95, 0.77)
		pt3dadd(-413.92, 261.05, 24.45, 0.77)
		pt3dadd(-413.79, 260.54, 25.45, 0.77)
		pt3dadd(-412.5, 259.52, 26.9, 0.77)
		pt3dadd(-411.86, 258.5, 27.4, 0.77)
		pt3dadd(-411.86, 257.99, 28.95, 0.77)
		pt3dadd(-413.15, 257.6, 28.95, 0.77)
		pt3dadd(-415.46, 257.09, 29.45, 0.77)
		pt3dadd(-417.78, 255.69, 29.45, 0.77)
		pt3dadd(-420.22, 253.64, 29.95, 0.77)
		pt3dadd(-421, 251.09, 29.95, 0.77)
		pt3dadd(-420.74, 250.32, 28.95, 0.77)
		pt3dadd(-420.48, 248.41, 30.45, 0.77)
		pt3dadd(-420.61, 246.11, 31.45, 0.77)
		pt3dadd(-421.9, 244.45, 31.45, 0.77)
	}
	apical[62] {pt3dclear()
		pt3dadd(-402.64, 246.51, 9.3, 1.03)
		pt3dadd(-405.14, 249.08, 9.45, 1.03)
		pt3dadd(-406.94, 250.61, 9.45, 1.03)
		pt3dadd(-408.23, 251.89, 8.95, 1.03)
		pt3dadd(-409.26, 253.55, 8.95, 1.03)
		pt3dadd(-411.06, 254.96, 8.5, 1.03)
		pt3dadd(-412.99, 256.49, 7.95, 1.03)
		pt3dadd(-415.05, 258.02, 7.95, 1.03)
		pt3dadd(-417.62, 259.3, 7.45, 1.03)
		pt3dadd(-420.32, 260.96, 7.45, 1.03)
		pt3dadd(-421.87, 262.11, 7.45, 1.03)
		pt3dadd(-424.96, 264.4, 7.45, 1.03)
		pt3dadd(-426.12, 265.94, 7.45, 1.03)
		pt3dadd(-427.14, 267.21, 7.45, 1.03)
		pt3dadd(-429.33, 268.36, 7.45, 1.03)
		pt3dadd(-430.62, 269.77, 6.45, 1.03)
		pt3dadd(-432.55, 271.68, 6.45, 1.03)
		pt3dadd(-433.97, 275.51, 6.45, 1.03)
		pt3dadd(-434.48, 277.56, 6.45, 1.03)
		pt3dadd(-435.25, 279.6, 6.45, 1.03)
		pt3dadd(-435.13, 281.51, 6.45, 1.03)
		pt3dadd(-433.84, 283.3, 5.95, 1.03)
		pt3dadd(-432.94, 284.96, 5.45, 1.03)
		pt3dadd(-432.42, 287, 5.45, 1.03)
		pt3dadd(-431.91, 288.66, 4.45, 1.03)
		pt3dadd(-432.04, 290.32, 3.45, 1.03)
		pt3dadd(-433.2, 291.22, 3.45, 1.03)
		pt3dadd(-435.13, 291.6, 3.45, 1.03)
		pt3dadd(-436.93, 291.09, 3.45, 0.9)
		pt3dadd(-438.6, 289.94, 3.45, 0.9)
		pt3dadd(-439.63, 289.05, 2.95, 0.9)
		pt3dadd(-440.27, 288.66, 3.95, 0.9)
		pt3dadd(-441.3, 288.15, 2.95, 0.9)
		pt3dadd(-442.59, 287.26, 2.95, 0.9)
		pt3dadd(-444.13, 286.11, 2.95, 0.9)
		pt3dadd(-445.94, 286.37, 2.5, 0.9)
		pt3dadd(-447.48, 286.24, 2.5, 0.9)
		pt3dadd(-448.64, 286.24, 1.95, 0.9)
		pt3dadd(-450.05, 286.11, 1.95, 0.9)
		pt3dadd(-451.98, 285.34, 1.95, 0.9)
		pt3dadd(-453.92, 283.94, 1.95, 0.9)
		pt3dadd(-455.85, 283.43, 1.5, 0.9)
		pt3dadd(-457.9, 283.43, 1.5, 0.9)
		pt3dadd(-460.09, 283.94, 0.5, 0.9)
		pt3dadd(-460.74, 284.83, 1.9, 0.9)
		pt3dadd(-462.41, 285.47, 2.45, 0.9)
		pt3dadd(-463.31, 285.47, 2.45, 0.9)
	}
	apical[63] {pt3dclear()
		pt3dadd(-402.64, 246.51, 9.3, 0.9)
		pt3dadd(-405.73, 247.66, 9.3, 0.9)
		pt3dadd(-407.92, 248.04, 9.3, 0.9)
		pt3dadd(-411.39, 248.55, 9.8, 0.9)
		pt3dadd(-413.84, 249.83, 10.3, 0.9)
		pt3dadd(-416.41, 251.49, 10.3, 0.9)
		pt3dadd(-418.73, 254.3, 10.3, 0.9)
		pt3dadd(-420.79, 255.83, 10.3, 0.9)
		pt3dadd(-424.01, 258.13, 10.3, 0.9)
		pt3dadd(-425.68, 259.91, 10.3, 0.9)
		pt3dadd(-427.87, 261.96, 10.3, 0.9)
		pt3dadd(-431.86, 264.38, 10.3, 0.9)
		pt3dadd(-434.99, 266.6, 10.3, 0.9)
		pt3dadd(-440.65, 268.9, 10.3, 0.9)
		pt3dadd(-443.87, 269.92, 10.3, 0.9)
		pt3dadd(-447.09, 270.43, 9.8, 0.9)
		pt3dadd(-450.43, 270.81, 9.8, 0.9)
		pt3dadd(-454.16, 271.2, 9.35, 0.9)
		pt3dadd(-456.35, 271.2, 8.8, 0.9)
		pt3dadd(-458.54, 272.09, 8.8, 0.9)
		pt3dadd(-461.63, 273.75, 8.8, 0.9)
		pt3dadd(-465.1, 274.77, 8.8, 1.03)
		pt3dadd(-467.68, 275.15, 8.8, 1.03)
		pt3dadd(-469.22, 275.92, 8.8, 1.03)
		pt3dadd(-471.28, 276.18, 8.35, 1.03)
		pt3dadd(-473.34, 276.05, 7.3, 1.03)
		pt3dadd(-475.27, 275.41, 7.3, 1.03)
		pt3dadd(-478.85, 273.95, 7.3, 1.03)
		pt3dadd(-481.68, 273.56, 7.3, 1.03)
		pt3dadd(-484.64, 273.56, 7.3, 1.03)
		pt3dadd(-488.11, 272.92, 7.3, 1.03)
		pt3dadd(-490.43, 272.29, 7.3, 1.03)
		pt3dadd(-491.84, 271.9, 7.3, 1.03)
		pt3dadd(-493.13, 270.88, 7.3, 1.03)
		pt3dadd(-494.16, 268.2, 6.85, 1.03)
		pt3dadd(-495.71, 266.54, 6.85, 1.03)
		pt3dadd(-497.12, 264.75, 8.8, 1.03)
		pt3dadd(-498.28, 263.6, 8.8, 1.03)
		pt3dadd(-499.95, 263.09, 8.8, 1.03)
		pt3dadd(-502.27, 262.84, 8.8, 1.03)
		pt3dadd(-503.68, 262.45, 8.8, 1.03)
		pt3dadd(-505.49, 261.3, 8.8, 1.03)
		pt3dadd(-506.9, 260.54, 8.8, 1.03)
		pt3dadd(-509.48, 260.16, 8.8, 1.03)
		pt3dadd(-510.89, 261.69, 8.8, 1.03)
		pt3dadd(-512.44, 263.22, 8.8, 1.03)
		pt3dadd(-514.37, 264.37, 10.3, 1.03)
		pt3dadd(-516.3, 265.26, 10.3, 1.03)
		pt3dadd(-519.38, 266.16, 10.3, 1.03)
		pt3dadd(-522.32, 266.7, 10.3, 1.03)
		pt3dadd(-525.66, 266.95, 10.3, 1.03)
		pt3dadd(-527.46, 266.32, 10.3, 1.03)
		pt3dadd(-529.91, 264.15, 10.3, 1.03)
		pt3dadd(-531.45, 261.34, 11.3, 1.03)
		pt3dadd(-532.1, 259.93, 11.3, 1.03)
		pt3dadd(-532.87, 257.51, 11.3, 1.03)
	}
	apical[64] {pt3dclear()
		pt3dadd(-394.33, 240.49, 9.15, 1.54)
		pt3dadd(-397.42, 241.39, 9.15, 1.54)
		pt3dadd(-399.22, 242.15, 10.65, 1.54)
		pt3dadd(-401.15, 242.92, 11.15, 1.54)
		pt3dadd(-402.82, 243.43, 11.15, 1.42)
		pt3dadd(-404.49, 243.81, 11.65, 1.42)
		pt3dadd(-405.27, 244.58, 11.65, 1.29)
		pt3dadd(-406.3, 245.22, 11.65, 1.29)
		pt3dadd(-407.33, 245.47, 12.15, 1.29)
		pt3dadd(-409.13, 245.09, 12.15, 1.29)
		pt3dadd(-411.06, 244.83, 13.15, 1.29)
		pt3dadd(-413.25, 245.09, 13.15, 1.29)
		pt3dadd(-416.33, 245.6, 13.15, 1.29)
		pt3dadd(-418.14, 246.62, 13.65, 1.16)
		pt3dadd(-418.78, 247.13, 13.65, 1.16)
		pt3dadd(-419.94, 247.9, 13.65, 1.16)
		pt3dadd(-420.71, 247.39, 13.65, 1.16)
		pt3dadd(-422.25, 246.24, 13.65, 1.16)
		pt3dadd(-423.67, 244.96, 13.65, 1.03)
		pt3dadd(-424.59, 244.21, 15.65, 1.03)
		pt3dadd(-426.13, 243.69, 15.65, 1.03)
		pt3dadd(-428.06, 242.04, 15.65, 1.03)
		pt3dadd(-428.45, 241.14, 15.65, 1.03)
		pt3dadd(-429.99, 240.38, 14.65, 1.03)
		pt3dadd(-431.02, 240.25, 14.15, 1.03)
		pt3dadd(-432.31, 240.12, 15.15, 1.03)
		pt3dadd(-433.47, 240.12, 15.15, 1.03)
		pt3dadd(-435.14, 239.48, 15.15, 1.03)
		pt3dadd(-436.43, 238.33, 15.15, 1.03)
		pt3dadd(-437.71, 237.44, 15.15, 1.03)
		pt3dadd(-438.87, 237.18, 15.15, 1.03)
		pt3dadd(-442.35, 237.44, 15.15, 1.03)
		pt3dadd(-444.79, 237.95, 15.65, 1.03)
		pt3dadd(-447.62, 238.97, 15.65, 1.03)
		pt3dadd(-448.91, 239.48, 15.65, 1.03)
		pt3dadd(-449.42, 240.5, 15.65, 1.03)
		pt3dadd(-449.81, 240.63, 16.65, 1.03)
		pt3dadd(-451.35, 240.63, 16.65, 1.03)
		pt3dadd(-452, 239.74, 17.15, 1.03)
		pt3dadd(-453.03, 238.84, 17.15, 1.03)
		pt3dadd(-453.93, 238.33, 17.15, 1.03)
		pt3dadd(-456.5, 237.95, 18.15, 1.03)
		pt3dadd(-457.4, 238.08, 19.15, 1.03)
		pt3dadd(-458.18, 238.46, 19.15, 1.03)
		pt3dadd(-458.69, 239.23, 19.15, 1.03)
		pt3dadd(-459.33, 239.99, 19.15, 1.03)
		pt3dadd(-459.98, 240.38, 19.15, 1.03)
		pt3dadd(-461.78, 240.76, 19.15, 1.03)
		pt3dadd(-464.1, 241.27, 19.15, 0.9)
		pt3dadd(-466.41, 242.04, 19.15, 0.9)
		pt3dadd(-467.57, 242.93, 20.15, 0.9)
		pt3dadd(-469.27, 243.92, 20.15, 0.9)
		pt3dadd(-469.78, 245.45, 19.15, 0.9)
		pt3dadd(-470.04, 246.72, 21.15, 0.9)
		pt3dadd(-470.94, 248.13, 21.65, 0.9)
		pt3dadd(-471.71, 249.15, 22.65, 0.9)
		pt3dadd(-474.16, 250.04, 23.65, 0.9)
		pt3dadd(-475.19, 250.04, 23.65, 0.9)
		pt3dadd(-475.83, 250.43, 23.65, 0.9)
		pt3dadd(-475.83, 250.81, 23.65, 0.9)
		pt3dadd(-475.19, 251.19, 23.65, 0.9)
		pt3dadd(-474.54, 251.32, 23.65, 0.9)
		pt3dadd(-474.29, 251.7, 23.65, 0.9)
		pt3dadd(-474.29, 252.22, 24.15, 0.9)
		pt3dadd(-474.8, 253.11, 24.65, 0.9)
		pt3dadd(-476.86, 253.49, 24.65, 0.9)
		pt3dadd(-478.66, 253.24, 25.15, 0.9)
		pt3dadd(-480.21, 252.47, 25.15, 0.9)
		pt3dadd(-481.62, 252.34, 25.6, 0.9)
		pt3dadd(-482.78, 252.22, 25.6, 0.9)
		pt3dadd(-484.45, 252.09, 26.15, 0.9)
		pt3dadd(-485.22, 252.47, 26.15, 0.9)
		pt3dadd(-486.51, 253.62, 26.15, 0.9)
		pt3dadd(-487.28, 254.13, 26.15, 0.9)
		pt3dadd(-488.7, 254.13, 26.15, 0.9)
		pt3dadd(-490.5, 253.75, 26.65, 0.9)
		pt3dadd(-492.43, 252.98, 26.65, 0.9)
		pt3dadd(-494.49, 252.34, 27.15, 0.9)
		pt3dadd(-496.55, 251.45, 28.15, 0.9)
		pt3dadd(-497.84, 250.94, 28.15, 0.9)
		pt3dadd(-498.61, 250.94, 28.15, 0.9)
		pt3dadd(-499.89, 251.32, 28.15, 0.9)
		pt3dadd(-500.67, 252.47, 28.15, 0.9)
		pt3dadd(-502.73, 253.88, 28.15, 0.9)
		pt3dadd(-504.27, 254.64, 28.15, 0.9)
		pt3dadd(-504.66, 255.53, 28.15, 0.9)
		pt3dadd(-505.04, 257.19, 29.15, 0.9)
		pt3dadd(-505.3, 258.09, 29.15, 0.9)
		pt3dadd(-506.46, 259.24, 29.15, 0.9)
		pt3dadd(-508.52, 259.75, 30.15, 0.9)
		pt3dadd(-510.06, 260, 30.15, 0.9)
		pt3dadd(-511.86, 260, 30.15, 0.9)
		pt3dadd(-514.39, 260.51, 30.15, 0.9)
	}
} // r finished at 12


external lambda_f
proc set_nseg() {
  forsec all { nseg = int((L/(0.1*lambda_f(100))+.9)/2)*2 + 1  }
}
objref myclamp
proc mechinit() {

	soma[0] myclamp = new IClamp(0.5)
	
	myclamp.amp=0.0185
	myclamp.del=0
	myclamp.dur=999999
	
	// Temperature of simulation
	celsius = 34.0  

	// Membrane resistance in ohm*cm2
	RmDend = 35000*.69 //*.75 // 35000
	RmSoma = 35000*.69 //*.75 // 35000

	// Membrane capacitance in uF/cm2
	CmSoma= 1
	CmDend = 1

	// Axial resistance in ohm*cm
	RaDend= 295 
	RaSoma= 295

	// reversal potentials in mV
	ekval = -104 //-90
	enaval = 55
	eHCNval = -30
	ecaval = 130
	eleakval = ekval //Vrest  // not lower than ekval
	
	// Calcium concentrations in mM
	ca_outside = 2
	ca_inside = 50.e-6 

	// max ion channel conductances in mho/cm2
	gNav     = 0.09*1.5*2.5 // 0.11 // Voltage gated sodium
	gKdr     = 0.1*3*.3 // Delayed rectifier potassium
	gKdrslow = 0.005 // Slow delayed rectifier potassium
	gKvAdist = 0.012*.9 // Distal A-type potassium
	gKvAprox = 0.012*.9 // Proximal A-type potassium
	gHCN     = 0.00002*1.9 // HCN (hyperpolarization-activated cyclic nucleotide-gated channel)
	gCavT    = 0.05/1 // T-type calcium
	gCavL    = 0.01/2*1.5*1.5 // 0.01/5 // L-type calcium
	gKvCaB	 = 0.02*1.5 // Big potassium channel: voltage and calcium gated 
	gKCaS	 = 0.07 // Small potassium channel: calcium gated
}
proc insert_mechs() {
	NumSoma=1
	NumApical=65
	NumBasal=60
	
	access soma[0]
	distance() // calculates the distance between location 0 of the currently accessed section (as the origin) to a second point (but with this usage, it just sets the origin point) 

	for i=0,NumSoma-1 soma[i] {   
		insert ch_HCNp gmax_ch_HCNp=gHCN
		vhalfl_ch_HCNp=-82
		insert ch_Navp  gmax_ch_Navp=gNav     
		ar2_ch_Navp=1
		insert ch_Kdrp gmax_ch_Kdrp=gKdr
		insert ch_Kdrslow gmax_ch_Kdrslow=gKdrslow
		insert ch_KvAproxp gmax_ch_KvAproxp = gKvAprox
		insert ch_KvCaB
		gmax_ch_KvCaB = gKvCaB
		insert ch_KCaS
		gmax_ch_KCaS = gKCaS
		insert pas e_pas=eleakval g_pas = 1/RmSoma Ra=RaSoma cm=CmSoma
		insert ch_CavLZ
		gmax_ch_CavLZ=gCavL
		insert iconc_CaZ		
		cao_iconc_Ca = ca_outside
		cao=ca_outside
		cai=ca_inside
		eca=ecaval
	}

	for i=0,NumBasal-1 basal[i] {
		insert pas e_pas=eleakval g_pas = 1/RmDend Ra=RaDend  cm=CmDend
		insert ch_CavLZ
		gmax_ch_CavLZ=gCavL
		insert ch_CavT
		cao_iconc_Ca = ca_outside
		cao=ca_outside
		cai=ca_inside
		eca=ecaval
		insert ch_KvCaB
		gmax_ch_KvCaB = gKvCaB
		insert ch_KCaS
		gmax_ch_KCaS = gKCaS
		for (x){ xdist = distance(x)
			if (xdist>500) {xdist=500}
				gmax_ch_CavT=gCavT*(1-exp(-xdist/500)^2)/.66
			}
		if (diam>0.5 && distance(0.5)<500) {
			insert ch_Kdrp 
			gmax_ch_Kdrp=gKdr
		insert ch_Kdrslow gmax_ch_Kdrslow=gKdrslow
			insert ch_KvAproxp
			insert ch_KvAdistp
			gmax_ch_KvAproxp=0
			gmax_ch_KvAdistp=0

			for (x){ xdist = distance(x)
				if (xdist>500) {xdist=500}
				if (xdist > 100){
					gmax_ch_KvAdistp(x) = gKvAdist*(1+xdist/200)
				} else {
					gmax_ch_KvAproxp(x) = gKvAprox*(1+xdist/200)
				}
			}
		}
	}

	for i=0,NumApical-1 apical[i] {
		insert pas e_pas=eleakval g_pas = 1/RmDend Ra=RaDend  cm=CmDend
		insert ch_CavLZ
		gmax_ch_CavLZ=gCavL
		insert ch_CavT
		cao_iconc_Ca = ca_outside
		cao=ca_outside
		cai=ca_inside
		eca=ecaval
		insert ch_KvCaB
		gmax_ch_KvCaB = gKvCaB
		insert ch_KCaS
		gmax_ch_KCaS = gKCaS
		for (x){ xdist = distance(x)
			if (xdist>500) {xdist=500}
				gmax_ch_CavT=gCavT*(1-exp(-xdist/500)^2)/.66
			}
		if (diam>0.5 && distance(0.5)<500) {
			insert ch_HCNp gmax_ch_HCNp = gHCN
			insert ch_Kdrp 
			gmax_ch_Kdrp=gKdr
			insert ch_Kdrslow gmax_ch_Kdrslow=gKdrslow
			insert ch_KvAproxp
			insert ch_KvAdistp
			gmax_ch_KvAproxp=0
			gmax_ch_KvAdistp=0

			for (x){ xdist = distance(x)
				if (xdist>500) {xdist=500}
				gmax_ch_HCNp(x) = gHCN*(1+1.5*xdist/100)
				if (xdist > 100){
					vhalfl_ch_HCNp=-90
					gmax_ch_KvAdistp(x) = gKvAdist*(1+xdist/100)
				} else {
					vhalfl_ch_HCNp=-82
					gmax_ch_KvAproxp(x) = gKvAprox*(1+xdist/100)
				}
			}
		}
	}

	forall {
        v=Vrest
        if (ismembrane("ch_Navaxonp") || ismembrane("ch_Navp") || ismembrane("ch_Nav")) {ena=enaval}
        if (ismembrane("ch_Kdrp") || ismembrane("ch_KvAproxp") || ismembrane("ch_KvAdistp")) {ek=ekval}
        if (ismembrane("ch_HCNp") ) {e_ch_HCNp=eHCNval}
	}
}


func is_art() { return 0 }

proc connect_pre() {  // $o1 target point process, $o2 returned NetCon
	soma[0] $o2 = new NetCon (&v(1), $o1)
			$o2.threshold = -10
}

proc position(){ local i
	forall {
		for i = 0, n3d()-1 {
			pt3dchange(i, $1-x+x3d(i), $2-y+y3d(i), $3-z+z3d(i), diam3d(i))
		}
	}
	x = $1  y = $2  z = $3	
}

proc get_root() {local i localobj sref
	rootlist = new SectionList()
	rootlist.allroots()
	i=0
	forsec all {
		sref = new SectionRef()
		if (sref.has_parent==0) {
			myroot = secname()
			i=i+1
		}
	}
	if (i>1) {
		print "WARNING: cell ", gid, " has ", i, " root sections!"
	}
}

objref syn
proc define_synapses() {local i localobj f2, f3

}

endtemplate pyramidaldeepcell