begintemplate tcaxon30
external depax
external findTauk
external getgK
external getTaukFac
// NEED TO ADJUST gLeak in tcaxnode
public init, tcaxtotal, tcaxnode, s, tcaxMYSA, tcaxFLUT, tcaxSTIN, tcaxonnodes, tcaxparanodes1, tcaxparanodes2, tcaxoninter, tcaxtotal
nnodes = 30
objref s[nnodes+2*(2*nnodes-2)+3*nnodes-3] // pointer to all the TC cell sections
create tcaxelectrode // electrode for stimulation
create tcaxnode[nnodes] // Ranvier nodes are created
create tcaxMYSA[2*nnodes-2] // MYSA sections are created
create tcaxFLUT[2*nnodes-2] // FLUT sections are created
create tcaxSTIN[3*nnodes-3] // STIN sections are created
proc init() {
global_variables()
init_cell()
connections()
geom1()
geom2()
}
proc global_variables() {
// local i
celsius = 36 // 36 degC - temperature of the cell
v_init = -70 // -70 mV - initial membrane voltage for each compartment
/* Number of sections for each cellular part -----*/
/* */
tcaxonnodes = 30 // number of Ranvier nodes - extentions to 250 and 15
tcaxparanodes1 = 2*tcaxonnodes-2 // number of MYSA sections (= 2*axonnodes-2)
tcaxparanodes2 = 2*tcaxonnodes-2 // number of FLUT sections (= 2*axonnodes-2)
tcaxoninter = 3*tcaxonnodes-3 // number of STIN sections (= 3*axonnodes-3)
tcaxtotal = tcaxonnodes+2*tcaxparanodes1+tcaxoninter // // total number of sections in a TC cell - extentions to 2250 and 370
/* Geometric parameters --------------------------*/
/* */
tcaxfiberD = 2 // um - fiber diameter
tcaxparalength1 = 3 // um - MYSA length
tcaxparalength2 = 10 // um - FLUT length
tcaxnodelength = 1 // um - Ranvier node length
tcaxspace_p1 = 0.002 // um - MYSA periaxonal space width
tcaxspace_p2 = 0.004 // um - FLUT periaxonal space width
tcaxspace_i = 0.004 // um - STIN periaxonal space width
tcaxend_D = 100 // um - diam of ends (bouton & soma, both passive)
tcaxonD = 1.6 // um - STIN diameter
tcaxnodeD = 1.4 // um - Ranvier node diameter
tcaxparaD1 = 1.4 // um - MYSA diameter
tcaxparaD2 = 1.6 // um - FLUT diameter
tcaxdeltax = 200
tcaxnl = 30 // number of myelin lamella
tcaxinterlength=(tcaxdeltax-tcaxnodelength-(2*tcaxparalength1)-(2*tcaxparalength2))/3
/* Electrical parameters -------------------------*/
/* */
tcaxrhoa = 0.7e6 // Ohms*um - intracellular resistivity
tcaxrhoe = 5e6 // Ohms*um - extracellular medium resistivity
tcaxmycm = 0.1 // uF/cm2 - myelin capacitance
tcaxmygm = 0.001 // S/cm2 - myelin conductance
tcaxRpn0 = (tcaxrhoa*.01)/(PI*((((tcaxnodeD/2)+tcaxspace_p1)^2)-((tcaxnodeD/2)^2))) // MOhms*cm - Ranvier node sheath resistivity
tcaxRpn1 = (tcaxrhoa*.01)/(PI*((((tcaxparaD1/2)+tcaxspace_p1)^2)-((tcaxparaD1/2)^2))) // MOhms*cm - MYSA sheath resistivity
tcaxRpn2 = (tcaxrhoa*.01)/(PI*((((tcaxparaD2/2)+tcaxspace_p2)^2)-((tcaxparaD2/2)^2))) // MOhms*cm - FLUT sheath resistivity
tcaxRpx = (tcaxrhoa*.01)/(PI*((((tcaxonD/2)+tcaxspace_i)^2)-((tcaxonD/2)^2))) // MOhms*cm - STIN sheath resistivity
}
proc init_cell() {
/* Ranvier nodes ---------------------------------*/
/* */
tcaxnode[0]{
s[0] = new SectionRef()
nseg=1
Ra=tcaxrhoa/10000
cm=2
insert pas
g_pas=1
e_pas=-70 // -70
insert extracellular xraxial=tcaxRpn0 xg=1e10 xc=0
}
for i=0,tcaxonnodes-1 {
tcaxnode[i]{
s[i] = new SectionRef()
nseg=1
Ra=tcaxrhoa/10000
cm=2
insert axnode75mb
vshift_axnode75mb = 10 // 10
ena_axnode75mb = 45 // 45 in TC, 50 in MRG
gnabar_axnode75mb = 3
gnapbar_axnode75mb = 0.01 // 0.05 in TC, 0.01 in MRG
// ek_axnode75mb = -95 // -95 in TC, -90 in MRG?
gkbar_axnode75mb = 0.08*getgK() // 0.07 in TC, 0.08 in MRG // *2 on 12/9/08 by M. Birdno
gl_axnode75mb = 0.007 // 0.005 in TC, 0.007 in MRG // 0.007 in TC_mb?
el_axnode75mb = -60 // -65 for TC axon only, -60 in TC, -90 in MRG
insert kdyn
ko_kdyn = 3 // (mM)
dep_kdyn = depax()
tk0_kdyn = findTauk()
tkfac_kdyn = getTaukFac()
insert extracellular xraxial=tcaxRpn0 xg=1e10 xc=0
}
}
/* tcaxMYSA ------------------------------------------*/
/* */
for i=0, tcaxparanodes1-1 {
tcaxMYSA[i]{
s[i+tcaxonnodes] = new SectionRef()
nseg=1
Ra=tcaxrhoa/10000
cm=2
insert pas
g_pas=0.0001
e_pas=-70 // -70
insert extracellular xraxial=tcaxRpn1 xg=tcaxmygm/(tcaxnl*2) xc=tcaxmycm/(tcaxnl*2)
}
}
/* tcaxFLUT ------------------------------------------*/
/* */
for i=0, tcaxparanodes2-1 {
tcaxFLUT[i]{
s[i+tcaxonnodes+tcaxparanodes1] = new SectionRef()
nseg=1
Ra=tcaxrhoa/10000
cm=2
insert parak75
gkbar_parak75 = 0.02*getgK() // // *2 on 12/9/08 by M. Birdno
vshift_parak75 = 10 // 10
// insert parak70
// gkbar_parak70 = 0.02
// vshift_parak70 = 10 // 10
insert pas
g_pas=0.0001
e_pas=-70 // -70
insert extracellular xraxial=tcaxRpn2 xg=tcaxmygm/(tcaxnl*2) xc=tcaxmycm/(tcaxnl*2)
}
}
/* STIN ------------------------------------------*/
/* */
for i=0, tcaxoninter-1 {
tcaxSTIN[i]{
s[i+tcaxonnodes+tcaxparanodes1+tcaxparanodes2] = new SectionRef()
nseg=1
Ra=tcaxrhoa/10000
cm=2
insert pas
g_pas=0.0001
e_pas=-70 // -70
insert extracellular xraxial=tcaxRpx xg=tcaxmygm/(tcaxnl*2) xc=tcaxmycm/(tcaxnl*2)
}
}
/* Stimulation Electrode -------------------------*/
/* */
tcaxelectrode {
L=1
d=1
}
/*--------------------------------------------------- End Procedure */
}
proc connections() {
/********************************************************************/
/********************************************************************/
/** **/
/** Connection between the sections in a 3D shape. **/
/** **/
/********************************************************************/
/********************************************************************/
connect tcaxMYSA[0](0), tcaxnode[0](1)
connect tcaxFLUT[0](0), tcaxMYSA[0](1)
connect tcaxSTIN[0](0), tcaxFLUT[0](1)
connect tcaxSTIN[1](0), tcaxSTIN[0](1)
connect tcaxSTIN[2](0), tcaxSTIN[1](1)
connect tcaxFLUT[1](0), tcaxSTIN[2](1)
connect tcaxMYSA[1](0), tcaxFLUT[1](1)
connect tcaxnode[1](0), tcaxMYSA[1](1)
for i=1, tcaxonnodes-2 {
connect tcaxMYSA[2*i](0), tcaxnode[i](1)
connect tcaxFLUT[2*i](0), tcaxMYSA[2*i](1)
connect tcaxSTIN[3*i](0), tcaxFLUT[2*i](1)
connect tcaxSTIN[3*i+1](0), tcaxSTIN[3*i](1)
connect tcaxSTIN[3*i+2](0), tcaxSTIN[3*i+1](1)
connect tcaxFLUT[2*i+1](0), tcaxSTIN[3*i+2](1)
connect tcaxMYSA[2*i+1](0), tcaxFLUT[2*i+1](1)
connect tcaxnode[i+1](0), tcaxMYSA[2*i+1](1)
}
//connect bouton[0](0), tcaxnode[axontcaxnodes-1](1)
/************************************************** End connections */
}
proc geom1() {
/********************************************************************/
/********************************************************************/
/** **/
/** 3D Geometry of each section: x,y,z coordinates and diameter. **/
/** **/
/********************************************************************/
/********************************************************************/
/*soma[0] {
pt3dadd(-70, 0, 0, end_D)
pt3dadd(29, 0, 0, end_D)
}
*/
tcaxnode[0] {
pt3dadd(29, 0, 0, tcaxnodeD) // tcaxnodeD
pt3dadd(30, 0, 0, tcaxnodeD)
}
tcaxMYSA[0] {
pt3dadd(30, 0, 0, tcaxparaD1)
pt3dadd(33, 0, 0, tcaxparaD1)
}
tcaxFLUT[0] {
pt3dadd(33, 0, 0, tcaxparaD2)
pt3dadd(43, 0, 0, tcaxparaD2)
}
tcaxSTIN[0] {
pt3dadd(43, 0, 0, tcaxonD)
pt3dadd(101, 0, 0, tcaxonD)
}
tcaxSTIN[1] {
pt3dadd(101, 0, 0, tcaxonD)
pt3dadd(159, 0, 0, tcaxonD)
}
tcaxSTIN[2] {
pt3dadd(159, 0, 0, tcaxonD)
pt3dadd(217, 0, 0, tcaxonD)
}
tcaxFLUT[1] {
pt3dadd(217, 0, 0, tcaxparaD2)
pt3dadd(227, 0, 0, tcaxparaD2)
}
tcaxMYSA[1] {
pt3dadd(227, 0, 0, tcaxparaD1)
pt3dadd(230, 0, 0, tcaxparaD1)
}
tcaxnode[1] {
pt3dadd(230, 0, 0, tcaxnodeD)
pt3dadd(231, 0, 0, tcaxnodeD)
}
tcaxMYSA[2] {
pt3dadd(231, 0, 0, tcaxparaD1)
pt3dadd(234, 0, 0, tcaxparaD1)
}
tcaxFLUT[2] {
pt3dadd(234, 0, 0, tcaxparaD2)
pt3dadd(244, 0, 0, tcaxparaD2)
}
tcaxSTIN[3] {
pt3dadd(244, 0, 0, tcaxonD)
pt3dadd(302, 0, 0, tcaxonD)
}
tcaxSTIN[4] {
pt3dadd(302, 0, 0, tcaxonD)
pt3dadd(360, 0, 0, tcaxonD)
}
tcaxSTIN[5] {
pt3dadd(360, 0, 0, tcaxonD)
pt3dadd(418, 0, 0, tcaxonD)
}
tcaxFLUT[3] {
pt3dadd(418, 0, 0, tcaxparaD2)
pt3dadd(428, 0, 0, tcaxparaD2)
}
tcaxMYSA[3] {
pt3dadd(428, 0, 0, tcaxparaD1)
pt3dadd(431, 0, 0, tcaxparaD1)
}
tcaxnode[2] {
pt3dadd(431, 0, 0, tcaxnodeD)
pt3dadd(432, 0, 0, tcaxnodeD)
}
tcaxMYSA[4] {
pt3dadd(432, 0, 0, tcaxparaD1)
pt3dadd(435, 0, 0, tcaxparaD1)
}
tcaxFLUT[4] {
pt3dadd(435, 0, 0, tcaxparaD2)
pt3dadd(445, 0, 0, tcaxparaD2)
}
tcaxSTIN[6] {
pt3dadd(445, 0, 0, tcaxonD)
pt3dadd(503, 0, 0, tcaxonD)
}
tcaxSTIN[7] {
pt3dadd(503, 0, 0, tcaxonD)
pt3dadd(561, 0, 0, tcaxonD)
}
tcaxSTIN[8] {
pt3dadd(561, 0, 0, tcaxonD)
pt3dadd(619, 0, 0, tcaxonD)
}
tcaxFLUT[5] {
pt3dadd(619, 0, 0, tcaxparaD2)
pt3dadd(629, 0, 0, tcaxparaD2)
}
tcaxMYSA[5] {
pt3dadd(629, 0, 0, tcaxparaD1)
pt3dadd(632, 0, 0, tcaxparaD1)
}
tcaxnode[3] {
pt3dadd(632, 0, 0, tcaxnodeD)
pt3dadd(633, 0, 0, tcaxnodeD)
}
tcaxMYSA[6] {
pt3dadd(633, 0, 0, tcaxparaD1)
pt3dadd(636, 0, 0, tcaxparaD1)
}
tcaxFLUT[6] {
pt3dadd(636, 0, 0, tcaxparaD2)
pt3dadd(646, 0, 0, tcaxparaD2)
}
tcaxSTIN[9] {
pt3dadd(646, 0, 0, tcaxonD)
pt3dadd(704, 0, 0, tcaxonD)
}
tcaxSTIN[10] {
pt3dadd(704, 0, 0, tcaxonD)
pt3dadd(762, 0, 0, tcaxonD)
}
tcaxSTIN[11] {
pt3dadd(762, 0, 0, tcaxonD)
pt3dadd(820, 0, 0, tcaxonD)
}
tcaxFLUT[7] {
pt3dadd(820, 0, 0, tcaxparaD2)
pt3dadd(830, 0, 0, tcaxparaD2)
}
tcaxMYSA[7] {
pt3dadd(830, 0, 0, tcaxparaD1)
pt3dadd(833, 0, 0, tcaxparaD1)
}
tcaxnode[4] {
pt3dadd(833, 0, 0, tcaxnodeD)
pt3dadd(834, 0, 0, tcaxnodeD)
}
tcaxMYSA[8] {
pt3dadd(834, 0, 0, tcaxparaD1)
pt3dadd(837, 0, 0, tcaxparaD1)
}
tcaxFLUT[8] {
pt3dadd(837, 0, 0, tcaxparaD2)
pt3dadd(847, 0, 0, tcaxparaD2)
}
tcaxSTIN[12] {
pt3dadd(847, 0, 0, tcaxonD)
pt3dadd(905, 0, 0, tcaxonD)
}
tcaxSTIN[13] {
pt3dadd(905, 0, 0, tcaxonD)
pt3dadd(963, 0, 0, tcaxonD)
}
tcaxSTIN[14] {
pt3dadd(963, 0, 0, tcaxonD)
pt3dadd(1021, 0, 0, tcaxonD)
}
tcaxFLUT[9] {
pt3dadd(1021, 0, 0, tcaxparaD2)
pt3dadd(1031, 0, 0, tcaxparaD2)
}
tcaxMYSA[9] {
pt3dadd(1031, 0, 0, tcaxparaD1)
pt3dadd(1034, 0, 0, tcaxparaD1)
}
tcaxnode[5] {
pt3dadd(1034, 0, 0, tcaxnodeD)
pt3dadd(1035, 0, 0, tcaxnodeD)
}
tcaxMYSA[10] {
pt3dadd(1035, 0, 0, tcaxparaD1)
pt3dadd(1038, 0, 0, tcaxparaD1)
}
tcaxFLUT[10] {
pt3dadd(1038, 0, 0, tcaxparaD2)
pt3dadd(1048, 0, 0, tcaxparaD2)
}
tcaxSTIN[15] {
pt3dadd(1048, 0, 0, tcaxonD)
pt3dadd(1106, 0, 0, tcaxonD)
}
tcaxSTIN[16] {
pt3dadd(1106, 0, 0, tcaxonD)
pt3dadd(1164, 0, 0, tcaxonD)
}
tcaxSTIN[17] {
pt3dadd(1164, 0, 0, tcaxonD)
pt3dadd(1222, 0, 0, tcaxonD)
}
tcaxFLUT[11] {
pt3dadd(1222, 0, 0, tcaxparaD2)
pt3dadd(1232, 0, 0, tcaxparaD2)
}
tcaxMYSA[11] {
pt3dadd(1232, 0, 0, tcaxparaD1)
pt3dadd(1235, 0, 0, tcaxparaD1)
}
tcaxnode[6] {
pt3dadd(1235, 0, 0, tcaxnodeD)
pt3dadd(1236, 0, 0, tcaxnodeD)
}
tcaxMYSA[12] {
pt3dadd(1236, 0, 0, tcaxparaD1)
pt3dadd(1239, 0, 0, tcaxparaD1)
}
tcaxFLUT[12] {
pt3dadd(1239, 0, 0, tcaxparaD2)
pt3dadd(1249, 0, 0, tcaxparaD2)
}
tcaxSTIN[18] {
pt3dadd(1249, 0, 0, tcaxonD)
pt3dadd(1307, 0, 0, tcaxonD)
}
tcaxSTIN[19] {
pt3dadd(1307, 0, 0, tcaxonD)
pt3dadd(1365, 0, 0, tcaxonD)
}
tcaxSTIN[20] {
pt3dadd(1365, 0, 0, tcaxonD)
pt3dadd(1423, 0, 0, tcaxonD)
}
tcaxFLUT[13] {
pt3dadd(1423, 0, 0, tcaxparaD2)
pt3dadd(1433, 0, 0, tcaxparaD2)
}
tcaxMYSA[13] {
pt3dadd(1433, 0, 0, tcaxparaD1)
pt3dadd(1436, 0, 0, tcaxparaD1)
}
tcaxnode[7] {
pt3dadd(1436, 0, 0, tcaxnodeD)
pt3dadd(1437, 0, 0, tcaxnodeD)
}
tcaxMYSA[14] {
pt3dadd(1437, 0, 0, tcaxparaD1)
pt3dadd(1440, 0, 0, tcaxparaD1)
}
tcaxFLUT[14] {
pt3dadd(1440, 0, 0, tcaxparaD2)
pt3dadd(1450, 0, 0, tcaxparaD2)
}
tcaxSTIN[21] {
pt3dadd(1450, 0, 0, tcaxonD)
pt3dadd(1508, 0, 0, tcaxonD)
}
tcaxSTIN[22] {
pt3dadd(1508, 0, 0, tcaxonD)
pt3dadd(1566, 0, 0, tcaxonD)
}
tcaxSTIN[23] {
pt3dadd(1566, 0, 0, tcaxonD)
pt3dadd(1624, 0, 0, tcaxonD)
}
tcaxFLUT[15] {
pt3dadd(1624, 0, 0, tcaxparaD2)
pt3dadd(1634, 0, 0, tcaxparaD2)
}
tcaxMYSA[15] {
pt3dadd(1634, 0, 0, tcaxparaD1)
pt3dadd(1637, 0, 0, tcaxparaD1)
}
tcaxnode[8] {
pt3dadd(1637, 0, 0, tcaxnodeD)
pt3dadd(1638, 0, 0, tcaxnodeD)
}
tcaxMYSA[16] {
pt3dadd(1638, 0, 0, tcaxparaD1)
pt3dadd(1641, 0, 0, tcaxparaD1)
}
tcaxFLUT[16] {
pt3dadd(1641, 0, 0, tcaxparaD2)
pt3dadd(1651, 0, 0, tcaxparaD2)
}
tcaxSTIN[24] {
pt3dadd(1651, 0, 0, tcaxonD)
pt3dadd(1709, 0, 0, tcaxonD)
}
tcaxSTIN[25] {
pt3dadd(1709, 0, 0, tcaxonD)
pt3dadd(1767, 0, 0, tcaxonD)
}
tcaxSTIN[26] {
pt3dadd(1767, 0, 0, tcaxonD)
pt3dadd(1825, 0, 0, tcaxonD)
}
tcaxFLUT[17] {
pt3dadd(1825, 0, 0, tcaxparaD2)
pt3dadd(1835, 0, 0, tcaxparaD2)
}
tcaxMYSA[17] {
pt3dadd(1835, 0, 0, tcaxparaD1)
pt3dadd(1838, 0, 0, tcaxparaD1)
}
tcaxnode[9] {
pt3dadd(1838, 0, 0, tcaxnodeD)
pt3dadd(1839, 0, 0, tcaxnodeD)
}
tcaxMYSA[18] {
pt3dadd(1839, 0, 0, tcaxparaD1)
pt3dadd(1842, 0, 0, tcaxparaD1)
}
tcaxFLUT[18] {
pt3dadd(1842, 0, 0, tcaxparaD2)
pt3dadd(1852, 0, 0, tcaxparaD2)
}
tcaxSTIN[27] {
pt3dadd(1852, 0, 0, tcaxonD)
pt3dadd(1910, 0, 0, tcaxonD)
}
tcaxSTIN[28] {
pt3dadd(1910, 0, 0, tcaxonD)
pt3dadd(1968, 0, 0, tcaxonD)
}
tcaxSTIN[29] {
pt3dadd(1968, 0, 0, tcaxonD)
pt3dadd(2026, 0, 0, tcaxonD)
}
tcaxFLUT[19] {
pt3dadd(2026, 0, 0, tcaxparaD2)
pt3dadd(2036, 0, 0, tcaxparaD2)
}
tcaxMYSA[19] {
pt3dadd(2036, 0, 0, tcaxparaD1)
pt3dadd(2039, 0, 0, tcaxparaD1)
}
tcaxnode[10] {
pt3dadd(2039, 0, 0, tcaxnodeD)
pt3dadd(2040, 0, 0, tcaxnodeD)
}
tcaxMYSA[20] {
pt3dadd(2040, 0, 0, tcaxparaD1)
pt3dadd(2043, 0, 0, tcaxparaD1)
}
tcaxFLUT[20] {
pt3dadd(2043, 0, 0, tcaxparaD2)
pt3dadd(2053, 0, 0, tcaxparaD2)
}
tcaxSTIN[30] {
pt3dadd(2053, 0, 0, tcaxonD)
pt3dadd(2111, 0, 0, tcaxonD)
}
tcaxSTIN[31] {
pt3dadd(2111, 0, 0, tcaxonD)
pt3dadd(2169, 0, 0, tcaxonD)
}
tcaxSTIN[32] {
pt3dadd(2169, 0, 0, tcaxonD)
pt3dadd(2227, 0, 0, tcaxonD)
}
tcaxFLUT[21] {
pt3dadd(2227, 0, 0, tcaxparaD2)
pt3dadd(2237, 0, 0, tcaxparaD2)
}
tcaxMYSA[21] {
pt3dadd(2237, 0, 0, tcaxparaD1)
pt3dadd(2240, 0, 0, tcaxparaD1)
}
tcaxnode[11] {
pt3dadd(2240, 0, 0, tcaxnodeD)
pt3dadd(2241, 0, 0, tcaxnodeD)
}
tcaxMYSA[22] {
pt3dadd(2241, 0, 0, tcaxparaD1)
pt3dadd(2244, 0, 0, tcaxparaD1)
}
tcaxFLUT[22] {
pt3dadd(2244, 0, 0, tcaxparaD2)
pt3dadd(2254, 0, 0, tcaxparaD2)
}
tcaxSTIN[33] {
pt3dadd(2254, 0, 0, tcaxonD)
pt3dadd(2312, 0, 0, tcaxonD)
}
tcaxSTIN[34] {
pt3dadd(2312, 0, 0, tcaxonD)
pt3dadd(2370, 0, 0, tcaxonD)
}
tcaxSTIN[35] {
pt3dadd(2370, 0, 0, tcaxonD)
pt3dadd(2428, 0, 0, tcaxonD)
}
tcaxFLUT[23] {
pt3dadd(2428, 0, 0, tcaxparaD2)
pt3dadd(2438, 0, 0, tcaxparaD2)
}
tcaxMYSA[23] {
pt3dadd(2438, 0, 0, tcaxparaD1)
pt3dadd(2441, 0, 0, tcaxparaD1)
}
tcaxnode[12] {
pt3dadd(2441, 0, 0, tcaxnodeD)
pt3dadd(2442, 0, 0, tcaxnodeD)
}
tcaxMYSA[24] {
pt3dadd(2442, 0, 0, tcaxparaD1)
pt3dadd(2445, 0, 0, tcaxparaD1)
}
tcaxFLUT[24] {
pt3dadd(2445, 0, 0, tcaxparaD2)
pt3dadd(2455, 0, 0, tcaxparaD2)
}
tcaxSTIN[36] {
pt3dadd(2455, 0, 0, tcaxonD)
pt3dadd(2513, 0, 0, tcaxonD)
}
tcaxSTIN[37] {
pt3dadd(2513, 0, 0, tcaxonD)
pt3dadd(2571, 0, 0, tcaxonD)
}
tcaxSTIN[38] {
pt3dadd(2571, 0, 0, tcaxonD)
pt3dadd(2629, 0, 0, tcaxonD)
}
tcaxFLUT[25] {
pt3dadd(2629, 0, 0, tcaxparaD2)
pt3dadd(2639, 0, 0, tcaxparaD2)
}
tcaxMYSA[25] {
pt3dadd(2639, 0, 0, tcaxparaD1)
pt3dadd(2642, 0, 0, tcaxparaD1)
}
tcaxnode[13] {
pt3dadd(2642, 0, 0, tcaxnodeD)
pt3dadd(2643, 0, 0, tcaxnodeD)
}
tcaxMYSA[26] {
pt3dadd(2643, 0, 0, tcaxparaD1)
pt3dadd(2646, 0, 0, tcaxparaD1)
}
tcaxFLUT[26] {
pt3dadd(2646, 0, 0, tcaxparaD2)
pt3dadd(2656, 0, 0, tcaxparaD2)
}
tcaxSTIN[39] {
pt3dadd(2656, 0, 0, tcaxonD)
pt3dadd(2714, 0, 0, tcaxonD)
}
tcaxSTIN[40] {
pt3dadd(2714, 0, 0, tcaxonD)
pt3dadd(2772, 0, 0, tcaxonD)
}
tcaxSTIN[41] {
pt3dadd(2772, 0, 0, tcaxonD)
pt3dadd(2830, 0, 0, tcaxonD)
}
tcaxFLUT[27] {
pt3dadd(2830, 0, 0, tcaxparaD2)
pt3dadd(2840, 0, 0, tcaxparaD2)
}
tcaxMYSA[27] {
pt3dadd(2840, 0, 0, tcaxparaD1)
pt3dadd(2843, 0, 0, tcaxparaD1)
}
tcaxnode[14] {
pt3dadd(2843, 0, 0, tcaxnodeD)
pt3dadd(2844, 0, 0, tcaxnodeD)
}
tcaxMYSA[28] {
pt3dadd(2844, 0, 0, tcaxparaD1)
pt3dadd(2847, 0, 0, tcaxparaD1)
}
tcaxFLUT[28] {
pt3dadd(2847, 0, 0, tcaxparaD2)
pt3dadd(2857, 0, 0, tcaxparaD2)
}
tcaxSTIN[42] {
pt3dadd(2857, 0, 0, tcaxonD)
pt3dadd(2915, 0, 0, tcaxonD)
}
tcaxSTIN[43] {
pt3dadd(2915, 0, 0, tcaxonD)
pt3dadd(2973, 0, 0, tcaxonD)
}
tcaxSTIN[44] {
pt3dadd(2973, 0, 0, tcaxonD)
pt3dadd(3031, 0, 0, tcaxonD)
}
tcaxFLUT[29] {
pt3dadd(3031, 0, 0, tcaxparaD2)
pt3dadd(3041, 0, 0, tcaxparaD2)
}
tcaxMYSA[29] {
pt3dadd(3041, 0, 0, tcaxparaD1)
pt3dadd(3044, 0, 0, tcaxparaD1)
}
tcaxnode[15] {
pt3dadd(3044, 0, 0, tcaxnodeD)
pt3dadd(3045, 0, 0, tcaxnodeD)
}
tcaxMYSA[30] {
pt3dadd(3045, 0, 0, tcaxparaD1)
pt3dadd(3048, 0, 0, tcaxparaD1)
}
tcaxFLUT[30] {
pt3dadd(3048, 0, 0, tcaxparaD2)
pt3dadd(3058, 0, 0, tcaxparaD2)
}
tcaxSTIN[45] {
pt3dadd(3058, 0, 0, tcaxonD)
pt3dadd(3116, 0, 0, tcaxonD)
}
tcaxSTIN[46] {
pt3dadd(3116, 0, 0, tcaxonD)
pt3dadd(3174, 0, 0, tcaxonD)
}
tcaxSTIN[47] {
pt3dadd(3174, 0, 0, tcaxonD)
pt3dadd(3232, 0, 0, tcaxonD)
}
tcaxFLUT[31] {
pt3dadd(3232, 0, 0, tcaxparaD2)
pt3dadd(3242, 0, 0, tcaxparaD2)
}
tcaxMYSA[31] {
pt3dadd(3242, 0, 0, tcaxparaD1)
pt3dadd(3245, 0, 0, tcaxparaD1)
}
}
proc geom2() {
tcaxnode[16] {
pt3dadd(3245, 0, 0, tcaxnodeD)
pt3dadd(3246, 0, 0, tcaxnodeD)
}
tcaxMYSA[32] {
pt3dadd(3246, 0, 0, tcaxparaD1)
pt3dadd(3249, 0, 0, tcaxparaD1)
}
tcaxFLUT[32] {
pt3dadd(3249, 0, 0, tcaxparaD2)
pt3dadd(3259, 0, 0, tcaxparaD2)
}
tcaxSTIN[48] {
pt3dadd(3259, 0, 0, tcaxonD)
pt3dadd(3317, 0, 0, tcaxonD)
}
tcaxSTIN[49] {
pt3dadd(3317, 0, 0, tcaxonD)
pt3dadd(3375, 0, 0, tcaxonD)
}
tcaxSTIN[50] {
pt3dadd(3375, 0, 0, tcaxonD)
pt3dadd(3433, 0, 0, tcaxonD)
}
tcaxFLUT[33] {
pt3dadd(3433, 0, 0, tcaxparaD2)
pt3dadd(3443, 0, 0, tcaxparaD2)
}
tcaxMYSA[33] {
pt3dadd(3443, 0, 0, tcaxparaD1)
pt3dadd(3446, 0, 0, tcaxparaD1)
}
tcaxnode[17] {
pt3dadd(3446, 0, 0, tcaxnodeD)
pt3dadd(3447, 0, 0, tcaxnodeD)
}
tcaxMYSA[34] {
pt3dadd(3447, 0, 0, tcaxparaD1)
pt3dadd(3450, 0, 0, tcaxparaD1)
}
tcaxFLUT[34] {
pt3dadd(3450, 0, 0, tcaxparaD2)
pt3dadd(3460, 0, 0, tcaxparaD2)
}
tcaxSTIN[51] {
pt3dadd(3460, 0, 0, tcaxonD)
pt3dadd(3518, 0, 0, tcaxonD)
}
tcaxSTIN[52] {
pt3dadd(3518, 0, 0, tcaxonD)
pt3dadd(3576, 0, 0, tcaxonD)
}
tcaxSTIN[53] {
pt3dadd(3576, 0, 0, tcaxonD)
pt3dadd(3634, 0, 0, tcaxonD)
}
tcaxFLUT[35] {
pt3dadd(3634, 0, 0, tcaxparaD2)
pt3dadd(3644, 0, 0, tcaxparaD2)
}
tcaxMYSA[35] {
pt3dadd(3644, 0, 0, tcaxparaD1)
pt3dadd(3647, 0, 0, tcaxparaD1)
}
tcaxnode[18] {
pt3dadd(3647, 0, 0, tcaxnodeD)
pt3dadd(3648, 0, 0, tcaxnodeD)
}
tcaxMYSA[36] {
pt3dadd(3648, 0, 0, tcaxparaD1)
pt3dadd(3651, 0, 0, tcaxparaD1)
}
tcaxFLUT[36] {
pt3dadd(3651, 0, 0, tcaxparaD2)
pt3dadd(3661, 0, 0, tcaxparaD2)
}
tcaxSTIN[54] {
pt3dadd(3661, 0, 0, tcaxonD)
pt3dadd(3719, 0, 0, tcaxonD)
}
tcaxSTIN[55] {
pt3dadd(3719, 0, 0, tcaxonD)
pt3dadd(3777, 0, 0, tcaxonD)
}
tcaxSTIN[56] {
pt3dadd(3777, 0, 0, tcaxonD)
pt3dadd(3835, 0, 0, tcaxonD)
}
tcaxFLUT[37] {
pt3dadd(3835, 0, 0, tcaxparaD2)
pt3dadd(3845, 0, 0, tcaxparaD2)
}
tcaxMYSA[37] {
pt3dadd(3845, 0, 0, tcaxparaD1)
pt3dadd(3848, 0, 0, tcaxparaD1)
}
tcaxnode[19] {
pt3dadd(3848, 0, 0, tcaxnodeD)
pt3dadd(3849, 0, 0, tcaxnodeD)
}
tcaxMYSA[38] {
pt3dadd(3849, 0, 0, tcaxparaD1)
pt3dadd(3852, 0, 0, tcaxparaD1)
}
tcaxFLUT[38] {
pt3dadd(3852, 0, 0, tcaxparaD2)
pt3dadd(3862, 0, 0, tcaxparaD2)
}
tcaxSTIN[57] {
pt3dadd(3862, 0, 0, tcaxonD)
pt3dadd(3920, 0, 0, tcaxonD)
}
tcaxSTIN[58] {
pt3dadd(3920, 0, 0, tcaxonD)
pt3dadd(3978, 0, 0, tcaxonD)
}
tcaxSTIN[59] {
pt3dadd(3978, 0, 0, tcaxonD)
pt3dadd(4036, 0, 0, tcaxonD)
}
tcaxFLUT[39] {
pt3dadd(4036, 0, 0, tcaxparaD2)
pt3dadd(4046, 0, 0, tcaxparaD2)
}
tcaxMYSA[39] {
pt3dadd(4046, 0, 0, tcaxparaD1)
pt3dadd(4049, 0, 0, tcaxparaD1)
}
tcaxnode[20] {
pt3dadd(4049, 0, 0, tcaxnodeD)
pt3dadd(4050, 0, 0, tcaxnodeD)
}
tcaxMYSA[40] {
pt3dadd(4050, 0, 0, tcaxparaD1)
pt3dadd(4053, 0, 0, tcaxparaD1)
}
tcaxFLUT[40] {
pt3dadd(4053, 0, 0, tcaxparaD2)
pt3dadd(4063, 0, 0, tcaxparaD2)
}
tcaxSTIN[60] {
pt3dadd(4063, 0, 0, tcaxonD)
pt3dadd(4121, 0, 0, tcaxonD)
}
tcaxSTIN[61] {
pt3dadd(4121, 0, 0, tcaxonD)
pt3dadd(4179, 0, 0, tcaxonD)
}
tcaxSTIN[62] {
pt3dadd(4179, 0, 0, tcaxonD)
pt3dadd(4237, 0, 0, tcaxonD)
}
tcaxFLUT[41] {
pt3dadd(4237, 0, 0, tcaxparaD2)
pt3dadd(4247, 0, 0, tcaxparaD2)
}
tcaxMYSA[41] {
pt3dadd(4247, 0, 0, tcaxparaD1)
pt3dadd(4250, 0, 0, tcaxparaD1)
}
tcaxnode[21] {
pt3dadd(4250, 0, 0, tcaxnodeD)
pt3dadd(4251, 0, 0, tcaxnodeD)
}
tcaxMYSA[42] {
pt3dadd(4251, 0, 0, tcaxparaD1)
pt3dadd(4254, 0, 0, tcaxparaD1)
}
tcaxFLUT[42] {
pt3dadd(4254, 0, 0, tcaxparaD2)
pt3dadd(4264, 0, 0, tcaxparaD2)
}
tcaxSTIN[63] {
pt3dadd(4264, 0, 0, tcaxonD)
pt3dadd(4322, 0, 0, tcaxonD)
}
tcaxSTIN[64] {
pt3dadd(4322, 0, 0, tcaxonD)
pt3dadd(4380, 0, 0, tcaxonD)
}
tcaxSTIN[65] {
pt3dadd(4380, 0, 0, tcaxonD)
pt3dadd(4438, 0, 0, tcaxonD)
}
tcaxFLUT[43] {
pt3dadd(4438, 0, 0, tcaxparaD2)
pt3dadd(4448, 0, 0, tcaxparaD2)
}
tcaxMYSA[43] {
pt3dadd(4448, 0, 0, tcaxparaD1)
pt3dadd(4451, 0, 0, tcaxparaD1)
}
tcaxnode[22] {
pt3dadd(4451, 0, 0, tcaxnodeD)
pt3dadd(4452, 0, 0, tcaxnodeD)
}
tcaxMYSA[44] {
pt3dadd(4452, 0, 0, tcaxparaD1)
pt3dadd(4455, 0, 0, tcaxparaD1)
}
tcaxFLUT[44] {
pt3dadd(4455, 0, 0, tcaxparaD2)
pt3dadd(4465, 0, 0, tcaxparaD2)
}
tcaxSTIN[66] {
pt3dadd(4465, 0, 0, tcaxonD)
pt3dadd(4523, 0, 0, tcaxonD)
}
tcaxSTIN[67] {
pt3dadd(4523, 0, 0, tcaxonD)
pt3dadd(4581, 0, 0, tcaxonD)
}
tcaxSTIN[68] {
pt3dadd(4581, 0, 0, tcaxonD)
pt3dadd(4639, 0, 0, tcaxonD)
}
tcaxFLUT[45] {
pt3dadd(4639, 0, 0, tcaxparaD2)
pt3dadd(4649, 0, 0, tcaxparaD2)
}
tcaxMYSA[45] {
pt3dadd(4649, 0, 0, tcaxparaD1)
pt3dadd(4652, 0, 0, tcaxparaD1)
}
tcaxnode[23] {
pt3dadd(4652, 0, 0, tcaxnodeD)
pt3dadd(4653, 0, 0, tcaxnodeD)
}
tcaxMYSA[46] {
pt3dadd(4653, 0, 0, tcaxparaD1)
pt3dadd(4656, 0, 0, tcaxparaD1)
}
tcaxFLUT[46] {
pt3dadd(4656, 0, 0, tcaxparaD2)
pt3dadd(4666, 0, 0, tcaxparaD2)
}
tcaxSTIN[69] {
pt3dadd(4666, 0, 0, tcaxonD)
pt3dadd(4724, 0, 0, tcaxonD)
}
tcaxSTIN[70] {
pt3dadd(4724, 0, 0, tcaxonD)
pt3dadd(4782, 0, 0, tcaxonD)
}
tcaxSTIN[71] {
pt3dadd(4782, 0, 0, tcaxonD)
pt3dadd(4840, 0, 0, tcaxonD)
}
tcaxFLUT[47] {
pt3dadd(4840, 0, 0, tcaxparaD2)
pt3dadd(4850, 0, 0, tcaxparaD2)
}
tcaxMYSA[47] {
pt3dadd(4850, 0, 0, tcaxparaD1)
pt3dadd(4853, 0, 0, tcaxparaD1)
}
tcaxnode[24] {
pt3dadd(4853, 0, 0, tcaxnodeD)
pt3dadd(4854, 0, 0, tcaxnodeD)
}
tcaxMYSA[48] {
pt3dadd(4854, 0, 0, tcaxparaD1)
pt3dadd(4857, 0, 0, tcaxparaD1)
}
tcaxFLUT[48] {
pt3dadd(4857, 0, 0, tcaxparaD2)
pt3dadd(4867, 0, 0, tcaxparaD2)
}
tcaxSTIN[72] {
pt3dadd(4867, 0, 0, tcaxonD)
pt3dadd(4925, 0, 0, tcaxonD)
}
tcaxSTIN[73] {
pt3dadd(4925, 0, 0, tcaxonD)
pt3dadd(4983, 0, 0, tcaxonD)
}
tcaxSTIN[74] {
pt3dadd(4983, 0, 0, tcaxonD)
pt3dadd(5041, 0, 0, tcaxonD)
}
tcaxFLUT[49] {
pt3dadd(5041, 0, 0, tcaxparaD2)
pt3dadd(5051, 0, 0, tcaxparaD2)
}
tcaxMYSA[49] {
pt3dadd(5051, 0, 0, tcaxparaD1)
pt3dadd(5054, 0, 0, tcaxparaD1)
}
tcaxnode[25] {
pt3dadd(5054, 0, 0, tcaxnodeD)
pt3dadd(5055, 0, 0, tcaxnodeD)
}
tcaxMYSA[50] {
pt3dadd(5055, 0, 0, tcaxparaD1)
pt3dadd(5058, 0, 0, tcaxparaD1)
}
tcaxFLUT[50] {
pt3dadd(5058, 0, 0, tcaxparaD2)
pt3dadd(5068, 0, 0, tcaxparaD2)
}
tcaxSTIN[75] {
pt3dadd(5068, 0, 0, tcaxonD)
pt3dadd(5126, 0, 0, tcaxonD)
}
tcaxSTIN[76] {
pt3dadd(5126, 0, 0, tcaxonD)
pt3dadd(5184, 0, 0, tcaxonD)
}
tcaxSTIN[77] {
pt3dadd(5184, 0, 0, tcaxonD)
pt3dadd(5242, 0, 0, tcaxonD)
}
tcaxFLUT[51] {
pt3dadd(5242, 0, 0, tcaxparaD2)
pt3dadd(5252, 0, 0, tcaxparaD2)
}
tcaxMYSA[51] {
pt3dadd(5252, 0, 0, tcaxparaD1)
pt3dadd(5255, 0, 0, tcaxparaD1)
}
tcaxnode[26] {
pt3dadd(5255, 0, 0, tcaxnodeD)
pt3dadd(5256, 0, 0, tcaxnodeD)
}
tcaxMYSA[52] {
pt3dadd(5256, 0, 0, tcaxparaD1)
pt3dadd(5259, 0, 0, tcaxparaD1)
}
tcaxFLUT[52] {
pt3dadd(5259, 0, 0, tcaxparaD2)
pt3dadd(5269, 0, 0, tcaxparaD2)
}
tcaxSTIN[78] {
pt3dadd(5269, 0, 0, tcaxonD)
pt3dadd(5327, 0, 0, tcaxonD)
}
tcaxSTIN[79] {
pt3dadd(5327, 0, 0, tcaxonD)
pt3dadd(5385, 0, 0, tcaxonD)
}
tcaxSTIN[80] {
pt3dadd(5385, 0, 0, tcaxonD)
pt3dadd(5443, 0, 0, tcaxonD)
}
tcaxFLUT[53] {
pt3dadd(5443, 0, 0, tcaxparaD2)
pt3dadd(5453, 0, 0, tcaxparaD2)
}
tcaxMYSA[53] {
pt3dadd(5453, 0, 0, tcaxparaD1)
pt3dadd(5456, 0, 0, tcaxparaD1)
}
tcaxnode[27] {
pt3dadd(5456, 0, 0, tcaxnodeD)
pt3dadd(5457, 0, 0, tcaxnodeD)
}
tcaxMYSA[54] {
pt3dadd(5457, 0, 0, tcaxparaD1)
pt3dadd(5460, 0, 0, tcaxparaD1)
}
tcaxFLUT[54] {
pt3dadd(5460, 0, 0, tcaxparaD2)
pt3dadd(5470, 0, 0, tcaxparaD2)
}
tcaxSTIN[81] {
pt3dadd(5470, 0, 0, tcaxonD)
pt3dadd(5528, 0, 0, tcaxonD)
}
tcaxSTIN[82] {
pt3dadd(5528, 0, 0, tcaxonD)
pt3dadd(5586, 0, 0, tcaxonD)
}
tcaxSTIN[83] {
pt3dadd(5586, 0, 0, tcaxonD)
pt3dadd(5644, 0, 0, tcaxonD)
}
tcaxFLUT[55] {
pt3dadd(5644, 0, 0, tcaxparaD2)
pt3dadd(5654, 0, 0, tcaxparaD2)
}
tcaxMYSA[55] {
pt3dadd(5654, 0, 0, tcaxparaD1)
pt3dadd(5657, 0, 0, tcaxparaD1)
}
tcaxnode[28] {
pt3dadd(5657, 0, 0, tcaxnodeD)
pt3dadd(5658, 0, 0, tcaxnodeD)
}
tcaxMYSA[56] {
pt3dadd(5658, 0, 0, tcaxparaD1)
pt3dadd(5661, 0, 0, tcaxparaD1)
}
tcaxFLUT[56] {
pt3dadd(5661, 0, 0, tcaxparaD2)
pt3dadd(5671, 0, 0, tcaxparaD2)
}
tcaxSTIN[84] {
pt3dadd(5671, 0, 0, tcaxonD)
pt3dadd(5729, 0, 0, tcaxonD)
}
tcaxSTIN[85] {
pt3dadd(5729, 0, 0, tcaxonD)
pt3dadd(5787, 0, 0, tcaxonD)
}
tcaxSTIN[86] {
pt3dadd(5787, 0, 0, tcaxonD)
pt3dadd(5845, 0, 0, tcaxonD)
}
tcaxFLUT[57] {
pt3dadd(5845, 0, 0, tcaxparaD2)
pt3dadd(5855, 0, 0, tcaxparaD2)
}
tcaxMYSA[57] {
pt3dadd(5855, 0, 0, tcaxparaD1)
pt3dadd(5858, 0, 0, tcaxparaD1)
}
tcaxnode[29] {
pt3dadd(5858, 0, 0, tcaxnodeD)
pt3dadd(5859, 0, 0, tcaxnodeD)
}
access tcaxnode[0]
}
init()
/************************************************** End 3D Geometry */
endtemplate tcaxon30