A Layer V CCS type pyramidal cell, inhibitory synapse current conduction (Kubota Y et al., 2015)

 Download zip file   Auto-launch 
Help downloading and running models
Accession:183424
A layer V crossed-corticostriatal (CCS) ‘slender untufted’ pyramidal cell model of rat frontal cortex was built using Neurolucida tracing as well as 3D reconstructed dendrites of serial electron micrographs to give the model as authentic morphology as possible.
Reference:
1 . Kubota Y, Kondo S, Nomura M, Hatada S, Yamaguchi N, Mohamed AA, Karube F, Lübke J, Kawaguchi Y (2015) Functional effects of distinct innervation styles of pyramidal cells by fast spiking cortical interneurons. Elife [PubMed]
Model Information (Click on a link to find other models with that property)
Model Type: Dendrite;
Brain Region(s)/Organism:
Cell Type(s): Neocortex U1 L5B pyramidal pyramidal tract cell;
Channel(s):
Gap Junctions:
Receptor(s):
Gene(s):
Transmitter(s): Glutamate;
Simulation Environment: NEURON;
Model Concept(s):
Implementer(s): Kubota, Yoshi [yoshiy at nips.ac.jp];
Search NeuronDB for information about:  Neocortex U1 L5B pyramidal pyramidal tract cell; Glutamate;
proc celldef() {
  topol()
  subsets()
  geomL()
  geom_nseg()
  geom()
  biophys()
  // geom_nseg()
}

create soma, dend[ 107 ] // apical[ 0 ] -> dend[ 46 ]
create spNeck[ 3 ], spHead[ 3 ]
strdef celltype
celltype="CS56PY"
numTree = 56

proc addSpecialSpine() {
    access spNeck[ 0 ] // sp1
    spNeck[ 0 ].L = 0.5
    spNeck[ 0 ].diam = 0.07
    connect spNeck[ 0 ]( 0 ), dend[ 20 ]( 0.95 )
    access spHead[ 0 ]
    spHead[ 0 ].L = 0.7814
    spHead[ 0 ].diam = 0.265
    connect spHead[ 0 ]( 0 ), spNeck[ 0 ]( 1 )
    access spNeck[ 1 ] // sp2
    spNeck[ 1 ].L = 0.58972
    spNeck[ 1 ].diam = 0.25
    connect spNeck[ 1 ]( 0 ), dend[ 24 ]( 0.255328056 )
    access spHead[ 1 ]
    spHead[ 1 ].L = 1
    spHead[ 1 ].diam = 0.4082
    connect spHead[ 1 ]( 0 ), spNeck[ 1 ]( 1 )
    access spNeck[ 2 ] // sp3
    spNeck[ 2 ].L = 0.5984
    spNeck[ 2 ].diam = 0.2534
    connect spNeck[ 2 ]( 0 ), dend[ 32 ]( 0.258797623 )
    access spHead[ 2 ]
    spHead[ 2 ].L = 0.8212
    spHead[ 2 ].diam = 0.2484
    connect spHead[ 2 ]( 0 ), spNeck[ 2 ]( 1 )
}

proc topol() { local i
    connect dend[ 0 ]( 0 ), soma( 0.85 ) // basal4
    connect dend[ 1 ]( 0 ), soma( 0.9 ) // basal3
    connect dend[ 2 ]( 0 ), soma( 0.85 ) // basal2
    connect dend[ 3 ]( 0 ), soma( 0.9 ) // basal1
    connect dend[ 46 ]( 0 ), soma( 0 ) // apical1
    for i = 4, 5 connect dend[ i ]( 0 ), dend[ 0 ]( 1 )
    for i = 6, 7 connect dend[ i ]( 0 ), dend[ 1 ]( 1 )
    for i = 8, 9 connect dend[ i ]( 0 ), dend[ 2 ]( 1 )
    for i = 10, 11 connect dend[ i ]( 0 ), dend[ 3 ]( 1 )
    for i = 12, 13 connect dend[ i ]( 0 ), dend[ 5 ]( 1 )
    for i = 14, 15 connect dend[ i ]( 0 ), dend[ 8 ]( 1 )
    for i = 16, 17 connect dend[ i ]( 0 ), dend[ 9 ]( 1 )
    for i = 18, 19 connect dend[ i ]( 0 ), dend[ 10 ]( 1 )
    for i = 20, 21 connect dend[ i ]( 0 ), dend[ 11 ]( 1 )
    for i = 22, 23 connect dend[ i ]( 0 ), dend[ 14 ]( 1 )
    for i = 24, 25 connect dend[ i ]( 0 ), dend[ 16 ]( 1 )
    for i = 26, 27 connect dend[ i ]( 0 ), dend[ 18 ]( 1 )
    for i = 28, 29 connect dend[ i ]( 0 ), dend[ 20 ]( 1 )
    for i = 30, 31 connect dend[ i ]( 0 ), dend[ 21 ]( 1 )
    for i = 32, 33 connect dend[ i ]( 0 ), dend[ 23 ]( 1 )
    for i = 34, 35 connect dend[ i ]( 0 ), dend[ 27 ]( 1 )
    for i = 36, 37 connect dend[ i ]( 0 ), dend[ 30 ]( 1 )
    for i = 38, 39 connect dend[ i ]( 0 ), dend[ 31 ]( 1 )
    for i = 40, 41 connect dend[ i ]( 0 ), dend[ 34 ]( 1 )
    for i = 42, 43 connect dend[ i ]( 0 ), dend[ 40 ]( 1 )
    for i = 44, 45 connect dend[ i ]( 0 ), dend[ 43 ]( 1 )
    for i = 47, 48 connect dend[ i ]( 0 ), dend[ 46 ]( 1 )
    for i = 49, 50 connect dend[ i ]( 0 ), dend[ 47 ]( 1 )
    for i = 51, 52 connect dend[ i ]( 0 ), dend[ 48 ]( 1 )
    for i = 53, 54 connect dend[ i ]( 0 ), dend[ 49 ]( 1 )
    for i = 55, 56 connect dend[ i ]( 0 ), dend[ 50 ]( 1 )
    for i = 57, 58 connect dend[ i ]( 0 ), dend[ 52 ]( 1 )
    for i = 59, 60 connect dend[ i ]( 0 ), dend[ 53 ]( 1 )
    for i = 61, 62 connect dend[ i ]( 0 ), dend[ 54 ]( 1 )
    for i = 63, 64 connect dend[ i ]( 0 ), dend[ 56 ]( 1 )
    for i = 65, 66 connect dend[ i ]( 0 ), dend[ 59 ]( 1 )
    for i = 67, 68 connect dend[ i ]( 0 ), dend[ 61 ]( 1 )
    for i = 69, 70 connect dend[ i ]( 0 ), dend[ 62 ]( 1 )
    for i = 71, 72 connect dend[ i ]( 0 ), dend[ 64 ]( 1 )
    for i = 73, 74 connect dend[ i ]( 0 ), dend[ 65 ]( 1 )
    for i = 75, 76 connect dend[ i ]( 0 ), dend[ 66 ]( 1 )
    for i = 77, 78 connect dend[ i ]( 0 ), dend[ 69 ]( 1 )
    for i = 79, 80 connect dend[ i ]( 0 ), dend[ 70 ]( 1 )
    for i = 81, 82 connect dend[ i ]( 0 ), dend[ 73 ]( 1 )
    for i = 83, 84 connect dend[ i ]( 0 ), dend[ 74 ]( 1 )
    for i = 85, 86 connect dend[ i ]( 0 ), dend[ 81 ]( 1 )
    for i = 87, 88 connect dend[ i ]( 0 ), dend[ 82 ]( 1 )
    for i = 89, 90 connect dend[ i ]( 0 ), dend[ 83 ]( 1 )
    for i = 91, 92 connect dend[ i ]( 0 ), dend[ 84 ]( 1 )
    for i = 93, 94 connect dend[ i ]( 0 ), dend[ 85 ]( 1 )
    for i = 95, 96 connect dend[ i ]( 0 ), dend[ 86 ]( 1 )
    for i = 97, 98 connect dend[ i ]( 0 ), dend[ 89 ]( 1 )
    for i = 99, 100 connect dend[ i ]( 0 ), dend[ 91 ]( 1 )
    for i = 101, 102 connect dend[ i ]( 0 ), dend[ 96 ]( 1 )
    for i = 103, 104 connect dend[ i ]( 0 ), dend[ 97 ]( 1 )
    for i = 105, 106 connect dend[ i ]( 0 ), dend[ 99 ]( 1 )
    addSpecialSpine()
    basic_shape()
}

proc shape3d_soma() {
    soma { pt3dclear()
	pt3dadd( 0, 0, 0, 1 ) // 0
	pt3dadd( 0.387966286508062, -0.315023149676989, 0.015574841916822, 1 )
	pt3dadd( 0.775932573016123, -0.630046299353978, 0.031149683833643, 1 )
	pt3dadd( 1.163898859524185, -0.945069449030967, 0.046724525750465, 1 )
	pt3dadd( 1.551865146032246, -1.260092598707956, 0.062299367667286, 1 )
	pt3dadd( 1.939831432540308, -1.575115748384945, 0.077874209584108, 1 )
	pt3dadd( 2.327797719048370, -1.890138898061935, 0.093449051500930, 1 )
	pt3dadd( 2.715764005556431, -2.205162047738924, 0.109023893417751, 1 )
	pt3dadd( 3.103730292064493, -2.520185197415913, 0.124598735334573, 1 )
	pt3dadd( 3.491696578572554, -2.835208347092902, 0.140173577251394, 1 )
	pt3dadd( 3.879662865080616, -3.150231496769891, 0.155748419168216, 1 )
	pt3dadd( 4.267629151588677, -3.465254646446880, 0.171323261085038, 1 )
	pt3dadd( 4.655595438096739, -3.780277796123869, 0.186898103001859, 1 )
	pt3dadd( 5.043561724604801, -4.095300945800858, 0.202472944918681, 1 )
	pt3dadd( 5.431528011112862, -4.410324095477847, 0.218047786835502, 1 )
	pt3dadd( 5.819494297620924, -4.725347245154836, 0.233622628752324, 1 )
	pt3dadd( 6.207460584128985, -5.040370394831825, 0.249197470669145, 1 )
	pt3dadd( 6.595426870637047, -5.355393544508814, 0.264772312585967, 1 )
	pt3dadd( 6.983393157145109, -5.670416694185803, 0.280347154502789, 1 )
	pt3dadd( 7.371359443653170, -5.985439843862793, 0.295921996419610, 1 )
	pt3dadd( 7.759325730161232, -6.300462993539782, 0.311496838336432, 1 )
	pt3dadd( 8.147292016669294, -6.615486143216771, 0.327071680253253, 1 )
	pt3dadd( 8.535258303177354, -6.930509292893760, 0.342646522170075, 1 )
	pt3dadd( 8.923224589685416, -7.245532442570749, 0.358221364086897, 1 )
	pt3dadd( 9.311190876193479, -7.560555592247738, 0.373796206003718, 1 )
	pt3dadd( 9.699157162701539, -7.875578741924727, 0.389371047920540, 2 ) // 1
    }
}

proc shape3d_basal4_1() {
    dend[ 0 ] { pt3dclear()
	//	pt3dstyle(1, -12.073, -3.4287, -7.03175)
	pt3dadd( -0.53, -5.3, -6.37, 1.43 )
	pt3dadd( 1.47, -5.03, -4.7, 1.43 )
	pt3dadd( 4.06, -4.48, -4.7, 1.43 )
	pt3dadd( 5.49, -3.93, -4.7, 1.43 )
	pt3dadd( 6.93, -3.39, -4.64, 1.43 )
	pt3dadd( 8.65, -2.57, -3.29, 1.43 )
    }
}

proc shape3d_basal3_1() {
    dend[ 1 ] { pt3dclear()
	//	pt3dstyle(1, -12.073, -3.4287, -7.03175)
	pt3dadd( -4.66, -11.46, 6.64, 1.15 )
	pt3dadd( -4.66, -13.64, 7.99, 1.15 )
	pt3dadd( -4.66, -15.01, 7.99, 1.15 )
	pt3dadd( -4.66, -16.1, 7.99, 1.15 )
	pt3dadd( -4.66, -17.75, 8.96, 1.15 )
	pt3dadd( -5.52, -19.39, 9.56, 1.15 )
	pt3dadd( -5.52, -21.85, 10.53, 1.15 )
	pt3dadd( -4.37, -23.49, 11.18, 1.15 )
	pt3dadd( -3.51, -24.58, 11.18, 1.15 )
	pt3dadd( -2.65, -25.68, 11.83, 1.15 )
	pt3dadd( -2.65, -27.59, 11.12, 1.15 )
	pt3dadd( -2.65, -29.5, 11.12, 1.15 )
	pt3dadd( -3.22, -31.42, 11.12, 1.15 )
	pt3dadd( -3.22, -33.33, 11.12, 1.15 )
	pt3dadd( -2.94, -35.25, 11.12, 1.15 )
	pt3dadd( -2.08, -36.61, 11.12, 1.15 )
	pt3dadd( -2.43, -38.31, 10.31, 1.15 )
	pt3dadd( -2.72, -40.5, 10.31, 1.15 )
	pt3dadd( -2.14, -42.41, 11.02, 1.15 )
	pt3dadd( -1.85, -44.32, 11.39, 1.15 )
	pt3dadd( -1.28, -45.69, 12.8, 1.15 )
	pt3dadd( -1.57, -46.78, 14.2, 1.15 )
	pt3dadd( -1.57, -48.43, 13.82, 1.15 )
	pt3dadd( -0.99, -48.97, 14.15, 1.15 )
    }
}

proc shape3d_basal2_1() {
    dend[ 2 ] { pt3dclear()
	//	pt3dstyle(1, -12.073, -3.4287, -7.03175)
	pt3dadd( -10.41, -12.64, -13.39, 1.43 )
	pt3dadd( -10.96, -14.02, -13.39, 1.43 )
	pt3dadd( -12.38, -14.87, -13.45, 1.43 )
	pt3dadd( -12.94, -15.7, -15.01, 1.43 )
	pt3dadd( -14.07, -17.08, -16.85, 1.43 )
	pt3dadd( -14.33, -18.18, -17.23, 1.43 )
	pt3dadd( -15.18, -19.29, -17.23, 1.43 )
	pt3dadd( -16.03, -19.85, -17.28, 1.43 )
    }
}

proc shape3d_basal1_1() {
    dend[ 3 ] { pt3dclear()
	//	pt3dstyle(1, -12.073, -3.4287, -7.03175)
	pt3dadd( 0.49, -7.95, -12.42, 1.43 )
	pt3dadd( 3.36, -8.17, -15.61, 1.43 )
	pt3dadd( 3.63, -8.3, -15.61, 1.43 )
    }
}

proc shape3d_basal4_2() {
    dend[ 4 ] { pt3dclear()
	pt3dadd( 8.65, -2.57, -3.29, 1.15 )
	pt3dadd( 10.08, -1.2, -2.43, 1.15 )
	pt3dadd( 11.51, 0.72, -2.43, 1.15 )
	pt3dadd( 12.95, 1.54, -2.11, 1.15 )
	pt3dadd( 14.1, 2.9, -2.16, 1.15 )
	pt3dadd( 16.1, 4, -2.16, 1.15 )
	pt3dadd( 17.25, 5.91, -2.86, 1.15 )
	pt3dadd( 18.4, 7.55, -2.86, 1.15 )
	pt3dadd( 20.41, 9.47, -2.86, 1.15 )
	pt3dadd( 21.56, 11.65, -2.86, 1.15 )
	pt3dadd( 22.7, 13.29, -3.35, 1.43 )
	pt3dadd( 23.56, 14.94, -4.1, 1.43 )
	pt3dadd( 24.14, 16.03, -3.19, 1.43 )
	pt3dadd( 24.71, 17.67, -3.19, 1.43 )
	pt3dadd( 24.71, 19.04, -2.75, 1.43 )
	pt3dadd( 25, 21.22, -2.7, 1.43 )
	pt3dadd( 25.57, 23.14, -2.7, 1.43 )
	pt3dadd( 25.86, 24.51, -0.97, 1.43 )
	pt3dadd( 26.43, 26.15, -0.97, 1.43 )
	pt3dadd( 26.14, 28.33, -0.11, 1.43 )
	pt3dadd( 26.43, 30.25, 1.4, 1.43 )
	pt3dadd( 26.43, 31.34, 1.67, 1.43 )
	pt3dadd( 27.29, 33.26, 1.67, 1.43 )
	pt3dadd( 27.58, 35.44, 2.11, 1.43 )
	pt3dadd( 27.58, 37.09, 3.29, 1.43 )
	pt3dadd( 29.01, 38.45, 4.64, 1.43 )
	pt3dadd( 29.87, 40.09, 5.89, 1.43 )
	pt3dadd( 31.31, 42.01, 7.18, 1.43 )
	pt3dadd( 32.46, 44.2, 8.69, 1.43 )
	pt3dadd( 33.03, 45.84, 8.75, 1.43 )
	pt3dadd( 33.89, 47.2, 10.58, 1.43 )
	pt3dadd( 34.75, 49.12, 10.64, 1.43 )
	pt3dadd( 34.75, 50.76, 12.37, 1.43 )
	pt3dadd( 36.18, 51.58, 12.37, 1.15 )
	pt3dadd( 38.48, 54.04, 12.37, 1.15 )
	pt3dadd( 40.49, 55.68, 13.82, 1.15 )
	pt3dadd( 42.21, 57.05, 14.9, 1.15 )
	pt3dadd( 44.5, 58.14, 16.31, 1.15 )
	pt3dadd( 45.19, 59.05, 14.96, 1.15 )
	pt3dadd( 47.2, 60.15, 14.96, 1.15 )
	pt3dadd( 47.2, 62.34, 17.17, 1.15 )
	pt3dadd( 47.77, 64.25, 19.12, 1.15 )
	pt3dadd( 48.92, 65.89, 19.12, 1.15 )
	pt3dadd( 49.5, 68.08, 19.66, 1.15 )
	pt3dadd( 50.07, 69.99, 20.84, 1.15 )
	pt3dadd( 51.5, 71.63, 20.9, 1.15 )
	pt3dadd( 52.94, 73, 20.52, 1.15 )
	pt3dadd( 54.95, 75.19, 22.19, 1.15 )
	pt3dadd( 55.81, 76.01, 22.73, 1.15 )
	pt3dadd( 56.38, 76.83, 24.08, 1.15 )
    }
}

proc shape3d_basal4_3() {
    dend[ 5 ] { pt3dclear()
	pt3dadd( 8.65, -2.57, -3.29, 1.43 )
	pt3dadd( 9.81, -2.91, -2.86, 1.43 )
	pt3dadd( 11.24, -1.82, 0.27, 1.43 )
	pt3dadd( 12.39, -1, 1.62, 1.43 )
	pt3dadd( 14.11, -0.45, 1.62, 1.43 )
	pt3dadd( 14.97, 0.37, 3.08, 1.43 )
	pt3dadd( 16.69, 0.92, 4.48, 1.43 )
	pt3dadd( 18.7, 1.46, 4.54, 1.43 )
	pt3dadd( 20.13, 1.46, 4.48, 1.43 )
	pt3dadd( 22.14, 2.56, 6.1, 1.43 )
	pt3dadd( 23.86, 2.83, 6.75, 1.43 )
	pt3dadd( 25.58, 3.38, 6.37, 1.43 )
	pt3dadd( 26.73, 4.74, 7.51, 1.43 )
	pt3dadd( 28.45, 4.74, 9.45, 1.43 )
	pt3dadd( 29.31, 6.11, 9.45, 1.43 )
	pt3dadd( 30.46, 6.93, 9.45, 1.43 )
	pt3dadd( 31.61, 7.75, 11.12, 1.43 )
	pt3dadd( 33.33, 8.3, 11.12, 1.43 )
	pt3dadd( 34.76, 8.57, 12.47, 1.43 )
    }
}

proc shape3d_basal3_2() {
    dend[ 6 ] { pt3dclear()
	pt3dadd( -0.99, -48.97, 14.15, 1.15 )
	pt3dadd( -1.57, -50.07, 14.15, 1.15 )
	pt3dadd( -2.14, -51.43, 14.15, 1.15 )
	pt3dadd( -3.29, -52.8, 14.74, 1.15 )
	pt3dadd( -4.44, -53.62, 15.55, 1.15 )
	pt3dadd( -5.87, -54.71, 16.96, 1.15 )
	pt3dadd( -5.87, -56.63, 16.96, 1.15 )
	pt3dadd( -6.16, -58.27, 16.96, 1.15 )
	pt3dadd( -7.88, -58.27, 16.96, 1.15 )
	pt3dadd( -9.03, -58.27, 18.58, 1.15 )
	pt3dadd( -9.31, -59.91, 19.55, 1.15 )
	pt3dadd( -9.31, -60.73, 21.33, 1.15 )
	pt3dadd( -10.46, -62.37, 22.63, 1.15 )
	pt3dadd( -10.46, -63.74, 24.14, 1.15 )
	pt3dadd( -11.32, -64.56, 24.14, 1.15 )
	pt3dadd( -13.04, -64.83, 24.14, 1.15 )
	pt3dadd( -13.04, -65.38, 27.11, 1.15 )
	pt3dadd( -13.62, -67.57, 29.11, 1.15 )
	pt3dadd( -14.19, -68.93, 29.11, 1.15 )
	pt3dadd( -16.44, -69.93, 30.46, 1.15 )
	pt3dadd( -18.16, -70.75, 32.24, 1.15 )
	pt3dadd( -21.03, -72.4, 33.05, 1.15 )
	pt3dadd( -22.17, -73.22, 33.21, 1.15 )
	pt3dadd( -23.61, -73.76, 33.21, 1.15 )
    }
}

proc shape3d_basal3_3() {
    dend[ 7 ] { pt3dclear()
	pt3dadd( -0.99, -48.97, 14.15, 1.15 )
	pt3dadd( -0.66, -50.52, 12.58, 1.15 )
	pt3dadd( -0.66, -51.61, 12.58, 1.15 )
	pt3dadd( -0.95, -53.25, 12.58, 1.15 )
	pt3dadd( 0.2, -54.35, 13.01, 1.15 )
	pt3dadd( 0.78, -55.99, 14.36, 1.15 )
	pt3dadd( 2.5, -57.9, 14.36, 1.15 )
	pt3dadd( 2.78, -59.27, 15.66, 1.15 )
	pt3dadd( 2.5, -61.18, 15.98, 1.15 )
	pt3dadd( 3.07, -62.82, 15.98, 1.15 )
	pt3dadd( 3.93, -65.01, 16.9, 1.15 )
	pt3dadd( 3.93, -66.93, 17.5, 1.15 )
	pt3dadd( 3.07, -68.29, 16.85, 1.15 )
	pt3dadd( 2.78, -69.66, 16.85, 1.15 )
	pt3dadd( 3.36, -71.03, 16.85, 1.15 )
	pt3dadd( 3.36, -71.85, 16.85, 1.15 )
	pt3dadd( 2.78, -73.76, 16.58, 1.15 )
	pt3dadd( 1.92, -75.13, 16.58, 1.15 )
	pt3dadd( 2.21, -76.77, 15.28, 1.15 )
	pt3dadd( 3.07, -77.86, 16.42, 1.15 )
	pt3dadd( 2.5, -79.51, 17.55, 1.15 )
	pt3dadd( 2.21, -80.6, 17.55, 1.15 )
	pt3dadd( 1.06, -81.42, 17.55, 1.15 )
	pt3dadd( 0.49, -83.06, 17.55, 1.15 )
	pt3dadd( 1.64, -84.97, 17.55, 1.15 )
	pt3dadd( 2.5, -87.44, 17.55, 1.15 )
	pt3dadd( 3.36, -89.62, 17.55, 1.15 )
	pt3dadd( 3.36, -91.26, 17.93, 1.15 )
	pt3dadd( 3.64, -92.9, 17.28, 1.15 )
	pt3dadd( 4.5, -94.82, 18.04, 1.15 )
	pt3dadd( 4.79, -95.64, 17.98, 1.15 )
	pt3dadd( 4.5, -97.55, 17.98, 1.15 )
	pt3dadd( 5.65, -99.47, 18.25, 1.15 )
	pt3dadd( 5.65, -100.56, 18.31, 1.15 )
	pt3dadd( 5.35, -102.28, 19.01, 1.15 )
	pt3dadd( 4.77, -104.74, 19.93, 1.15 )
	pt3dadd( 4.2, -106.38, 20.25, 1.15 )
	pt3dadd( 4.2, -107.75, 21.11, 1.15 )
	pt3dadd( 3.91, -109.39, 21.44, 1.15 )
	pt3dadd( 4.2, -111.31, 21.65, 1.15 )
	pt3dadd( 4.77, -112.95, 21.65, 1.15 )
	pt3dadd( 4.77, -115.13, 21.71, 1.15 )
	pt3dadd( 3.62, -117.05, 21.87, 1.15 )
	pt3dadd( 4.77, -118.42, 22.68, 1.15 )
	pt3dadd( 5.06, -120.88, 22.68, 1.15 )
	pt3dadd( 6.49, -122.52, 23.76, 1.15 )
	pt3dadd( 7.07, -124.7, 23.76, 1.15 )
	pt3dadd( 7.93, -126.89, 23.76, 1.15 )
	pt3dadd( 9.65, -129.35, 25.33, 1.15 )
	pt3dadd( 10.22, -132.09, 27.59, 1.15 )
	pt3dadd( 11.68, -132.69, 27.54, 1.15 )
	pt3dadd( 12.25, -135.42, 28.4, 1.15 )
	pt3dadd( 12.54, -137.34, 29.11, 1.15 )
	pt3dadd( 13.97, -140.07, 29.11, 1.15 )
	pt3dadd( 15.41, -141.71, 29.43, 1.15 )
	pt3dadd( 14.84, -143.9, 30.29, 1.15 )
	pt3dadd( 15.41, -145.81, 31.7, 1.15 )
	pt3dadd( 15.98, -147.73, 28.19, 1.15 )
	pt3dadd( 16.56, -151.28, 29.65, 1.15 )
	pt3dadd( 17.99, -154.02, 29.59, 1.15 )
	pt3dadd( 19.42, -155.93, 27.86, 1.15 )
	pt3dadd( 20.57, -157.3, 27.81, 1.15 )
	pt3dadd( 23.44, -159.49, 29.32, 1.15 )
	pt3dadd( 24.59, -160.58, 29.27, 1.15 )
	pt3dadd( 25.45, -160.85, 29.81, 1.15 )
	pt3dadd( 26.88, -161.13, 29.75, 1.15 )
    }
}

proc shape3d_basal2_2() {
    dend[ 8 ] { pt3dclear()
	pt3dadd( -16.03, -19.85, -17.28, 1.15 )
	pt3dadd( -17.45, -20.42, -17.28, 1.15 )
	pt3dadd( -18.88, -21, -17.28, 1.15 )
	pt3dadd( -20.31, -21.02, -17.28, 1.15 )
	pt3dadd( -21.44, -22.13, -17.28, 1.15 )
	pt3dadd( -22.58, -22.7, -17.28, 1.15 )
    }
}

proc shape3d_basal2_3() {
    dend[ 9 ] { pt3dclear()
	pt3dadd( -16.03, -19.85, -17.28, 0.86 )
	pt3dadd( -15.16, -20.83, -19.39, 0.86 )
	pt3dadd( -14.84, -22.74, -20.41, 0.86 )
	pt3dadd( -14.8, -24.93, -20.63, 0.86 )
	pt3dadd( -14.77, -26.57, -21.76, 0.86 )
	pt3dadd( -14.74, -28.21, -22.03, 0.86 )
	pt3dadd( -13.87, -29.01, -23.06, 0.86 )
	pt3dadd( -13.56, -30.38, -23.38, 0.86 )
	pt3dadd( -12.96, -31.73, -24.03, 0.86 )
	pt3dadd( -12.37, -32.54, -24.95, 0.86 )
	pt3dadd( -12.36, -33.36, -26.84, 0.86 )
	pt3dadd( -12.35, -33.64, -28.3, 0.86 )
	pt3dadd( -11.47, -34.72, -28.62, 0.86 )
	pt3dadd( -10.61, -34.7, -28.94, 0.86 )
	pt3dadd( -10.32, -35.24, -29.16, 0.86 )
	pt3dadd( -10.02, -35.78, -29.21, 0.86 )
    }
}

proc shape3d_basal1_2() {
    dend[ 10 ] { pt3dclear()
	pt3dadd( 3.63, -8.3, -15.61, 1.43 )
	pt3dadd( 5.36, -7.86, -19.22, 1.43 )
	pt3dadd( 8.24, -8.09, -19.55, 1.15 )
	pt3dadd( 10.24, -8.05, -19.55, 1.15 )
	pt3dadd( 13.11, -8, -19.55, 1.15 )
	pt3dadd( 15.12, -7.97, -19.55, 1.15 )
	pt3dadd( 15.3, -7.81, -19.55, 1.15 )
    }
}

proc shape3d_basal1_3() {
    dend[ 11 ] { pt3dclear()
	pt3dadd( 3.63, -8.3, -15.61, 1.15 )
	pt3dadd( 4.48, -7.47, -17.71, 1.15 )
	pt3dadd( 5.04, -6.64, -21.06, 1.15 )
	pt3dadd( 5.03, -6.09, -24.52, 1.15 )
	pt3dadd( 5.01, -5, -26.73, 1.15 )
	pt3dadd( 4.69, -3.36, -30.46, 1.15 )
	pt3dadd( 6.12, -3.06, -32.78, 1.15 )
	pt3dadd( 6.68, -1.96, -34.51, 1.15 )
	pt3dadd( 6.37, -0.87, -36.45, 1.15 )
	pt3dadd( 6.37, -0.6, -38.39, 1.15 )
	pt3dadd( 6.35, 0.5, -38.83, 1.15 )
	pt3dadd( 6.32, 1.54, -38.83, 1.15 )
    }
}

proc shape3d_basal4_4() {
    dend[ 12 ] { pt3dclear()
	pt3dadd( 34.76, 8.57, 12.47, 1.15 )
	pt3dadd( 36.48, 10.49, 13.23, 1.15 )
	pt3dadd( 38.25, 11.63, 12.96, 1.15 )
	pt3dadd( 39.4, 11.9, 15.12, 1.15 )
	pt3dadd( 40.84, 12.17, 16.85, 1.15 )
	pt3dadd( 42.84, 13.27, 16.85, 1.15 )
	pt3dadd( 45.14, 13.82, 17.44, 1.15 )
	pt3dadd( 47.72, 13.82, 18.41, 1.15 )
	pt3dadd( 49.44, 14.09, 19.93, 1.15 )
	pt3dadd( 51.74, 14.91, 21.49, 1.15 )
	pt3dadd( 53.46, 14.64, 23.11, 1.15 )
	pt3dadd( 54.89, 15.73, 23.27, 1.15 )
	pt3dadd( 56.9, 16.28, 23.76, 1.15 )
	pt3dadd( 58.05, 17.92, 24.89, 1.15 )
	pt3dadd( 58.33, 19.56, 26.51, 1.15 )
    }
}

proc shape3d_basal4_5() {
    dend[ 13 ] { pt3dclear()
	pt3dadd( 34.76, 8.57, 12.47, 1.15 )
	pt3dadd( 36.25, 8.62, 11.18, 1.15 )
	pt3dadd( 37.97, 9.99, 11.18, 1.15 )
	pt3dadd( 39.69, 10.53, 11.18, 1.15 )
	pt3dadd( 42.27, 11.08, 11.77, 1.15 )
	pt3dadd( 44.56, 11.08, 12.2, 1.15 )
	pt3dadd( 46.86, 12.45, 12.64, 1.15 )
	pt3dadd( 49.73, 12.45, 13.07, 1.15 )
	pt3dadd( 51.45, 13.27, 13.34, 1.15 )
	pt3dadd( 54.32, 14.64, 14.31, 1.15 )
	pt3dadd( 56.9, 15.18, 15.71, 1.15 )
	pt3dadd( 58.33, 16.28, 16.2, 1.15 )
	pt3dadd( 61.2, 16.28, 16.74, 1.15 )
	pt3dadd( 62.06, 17.37, 17.39, 1.15 )
	pt3dadd( 64.07, 17.64, 17.39, 1.15 )
	pt3dadd( 66.04, 17.73, 17.01, 1.15 )
	pt3dadd( 67.19, 19.37, 18.2, 1.15 )
	pt3dadd( 68.05, 20.19, 18.14, 1.15 )
	pt3dadd( 70.06, 21.02, 18.47, 1.15 )
	pt3dadd( 71.49, 22.38, 19.76, 1.15 )
	pt3dadd( 73.79, 23.2, 19.82, 1.15 )
	pt3dadd( 75.51, 24.57, 19.87, 1.15 )
	pt3dadd( 76.94, 26.21, 18.68, 1.15 )
	pt3dadd( 78.38, 27.03, 18.68, 1.15 )
	pt3dadd( 78.95, 28.95, 16.58, 1.15 )
	pt3dadd( 79.52, 30.86, 16.58, 1.15 )
	pt3dadd( 81.24, 32.23, 16.63, 1.15 )
	pt3dadd( 81.82, 33.87, 15.01, 1.15 )
	pt3dadd( 82.1, 35.51, 15.01, 1.15 )
	pt3dadd( 82.1, 37.15, 14.2, 1.15 )
	pt3dadd( 82.97, 38.24, 14.2, 1.15 )
	pt3dadd( 84.4, 39.88, 12.8, 1.15 )
	pt3dadd( 84.4, 41.52, 12.8, 1.15 )
	pt3dadd( 85.26, 43.44, 11.18, 1.15 )
	pt3dadd( 85.83, 44.53, 11.18, 1.15 )
	pt3dadd( 86.69, 45.63, 11.18, 1.15 )
	pt3dadd( 87.56, 47.54, 11.18, 1.15 )
	pt3dadd( 88.42, 48.63, 10.75, 1.15 )
	pt3dadd( 88.99, 50.82, 10.75, 1.15 )
	pt3dadd( 89.28, 52.19, 10.75, 1.15 )
	pt3dadd( 90.14, 53.28, 9.99, 1.15 )
	pt3dadd( 91, 54.1, 9.99, 1.15 )
	pt3dadd( 91.62, 56.05, 10.75, 1.15 )
	pt3dadd( 93.63, 57.42, 12.37, 1.15 )
	pt3dadd( 96.21, 59.33, 12.74, 1.15 )
	pt3dadd( 97.93, 59.33, 13.93, 1.15 )
	pt3dadd( 100.51, 59.88, 13.93, 1.15 )
	pt3dadd( 102.23, 60.42, 13.93, 1.15 )
	pt3dadd( 105.68, 60.7, 14.85, 1.15 )
	pt3dadd( 107.97, 60.7, 14.8, 1.15 )
	pt3dadd( 110.27, 61.24, 15.55, 1.15 )
	pt3dadd( 111.7, 60.97, 15.39, 1.15 )
	pt3dadd( 113.42, 59.33, 15.39, 1.15 )
	pt3dadd( 115.14, 60.15, 17.17, 1.15 )
	pt3dadd( 116.29, 61.24, 18.63, 1.15 )
	pt3dadd( 117.44, 61.79, 19.28, 1.15 )
	pt3dadd( 118.87, 62.06, 19.33, 1.15 )
	pt3dadd( 121.13, 61.96, 19.12, 1.15 )
	pt3dadd( 124, 61.69, 22.63, 1.15 )
    }
}

proc shape3d_basal2_4() {
    dend[ 14 ] { pt3dclear()
	pt3dadd( -22.58, -22.7, -17.28, 1.15 )
	pt3dadd( -24.31, -22.19, -17.12, 1.15 )
	pt3dadd( -26.03, -22.22, -17.87, 1.15 )
	pt3dadd( -28.32, -22.26, -17.87, 1.15 )
    }
}

proc shape3d_basal2_5() {
    dend[ 15 ] { pt3dclear()
	pt3dadd( -22.58, -22.7, -17.28, 0.57 )
	pt3dadd( -24.29, -24, -15.5, 0.57 )
	pt3dadd( -24.84, -25.38, -15.93, 0.57 )
	pt3dadd( -25.69, -25.67, -14.26, 0.57 )
	pt3dadd( -27.68, -26.52, -13.07, 0.57 )
	pt3dadd( -29.38, -27.92, -13.01, 0.57 )
	pt3dadd( -30.24, -28.21, -13.01, 0.57 )
	pt3dadd( -31.66, -28.78, -13.01, 0.57 )
	pt3dadd( -33.37, -29.63, -13.01, 0.57 )
	pt3dadd( -35.37, -31.14, -8.1, 1.43 )
	pt3dadd( -36.81, -32.51, -6.16, 1.43 )
	pt3dadd( -37.96, -32.78, -5.72, 1.43 )
	pt3dadd( -38.82, -34.15, -4.75, 1.43 )
	pt3dadd( -39.68, -34.97, -3.94, 1.43 )
	pt3dadd( -40.82, -35.79, -3.13, 1.43 )
	pt3dadd( -42.26, -35.52, -3.13, 1.43 )
	pt3dadd( -42.55, -36.88, -2.48, 1.43 )
	pt3dadd( -43.69, -38.8, -2.05, 1.43 )
	pt3dadd( -44.27, -40.99, -2.05, 1.43 )
	pt3dadd( -46.27, -42.08, -2.05, 1.43 )
	pt3dadd( -47.42, -43.45, -2.05, 1.43 )
	pt3dadd( -48.86, -44.27, -2.05, 1.43 )
	pt3dadd( -49.43, -45.63, 0.7, 1.43 )
	pt3dadd( -50.29, -46.46, 0.7, 1.43 )
	pt3dadd( -52.01, -47.55, 0.7, 1.43 )
	pt3dadd( -52.01, -49.19, 0.92, 1.43 )
	pt3dadd( -53.45, -51.1, 0.97, 1.43 )
	pt3dadd( -55.45, -52.2, 2.92, 1.43 )
	pt3dadd( -56.6, -53.84, 4.64, 1.43 )
	pt3dadd( -57.75, -54.66, 6.26, 1.43 )
	pt3dadd( -59.18, -56.03, 6.32, 1.43 )
	pt3dadd( -60.04, -56.57, 6.32, 1.15 )
	pt3dadd( -60.9, -57.12, 7.88, 1.15 )
	pt3dadd( -62.05, -58.21, 7.94, 1.15 )
	pt3dadd( -62.62, -59.16, 7.56, 1.15 )
	pt3dadd( -63.19, -61.07, 9.61, 1.15 )
	pt3dadd( -64.05, -61.9, 9.67, 1.15 )
	pt3dadd( -65.48, -62.72, 9.94, 1.15 )
	pt3dadd( -66.92, -64.08, 10.1, 1.15 )
	pt3dadd( -68.35, -65.18, 10.21, 1.15 )
	pt3dadd( -70.07, -66.27, 11.07, 1.15 )
	pt3dadd( -70.36, -67.91, 12.58, 1.15 )
	pt3dadd( -70.93, -68.46, 12.69, 1.15 )
	pt3dadd( -72.08, -69.83, 12.69, 1.15 )
	pt3dadd( -72.94, -71.47, 13.99, 1.15 )
	pt3dadd( -73.8, -73.65, 15.55, 1.15 )
	pt3dadd( -74.95, -74.75, 17.77, 1.15 )
	pt3dadd( -76.96, -76.11, 19.87, 1.15 )
	pt3dadd( -77.25, -76.66, 22.25, 1.15 )
	pt3dadd( -77.82, -78.3, 23.6, 1.15 )
	pt3dadd( -78.97, -78.85, 25.38, 1.15 )
	pt3dadd( -79.83, -79.12, 25.92, 1.15 )
	pt3dadd( -80.69, -79.94, 25.38, 1.15 )
	pt3dadd( -82.12, -81.31, 27.54, 1.15 )
	pt3dadd( -83.84, -82.4, 28.89, 1.15 )
	pt3dadd( -84.13, -84.32, 32.62, 1.15 )
	pt3dadd( -85.85, -85.69, 32.62, 1.15 )
	pt3dadd( -86.43, -87.33, 33.75, 1.15 )
	pt3dadd( -87.86, -88.69, 34.02, 1.15 )
	pt3dadd( -88.43, -88.15, 34.83, 1.15 )
	pt3dadd( -89.29, -89.24, 34.83, 1.15 )
	pt3dadd( -89.58, -90.33, 37.48, 1.15 )
	pt3dadd( -90.69, -90.69, 34.4, 1.15 )
    }
}

proc shape3d_basal2_6() {
    dend[ 16 ] { pt3dclear()
	pt3dadd( -10.02, -35.78, -29.21, 0.57 )
	pt3dadd( -10.86, -36.89, -28.89, 0.57 )
	pt3dadd( -11.15, -37.17, -32.62, 0.57 )
	pt3dadd( -11.42, -38, -33.91, 0.57 )
	pt3dadd( -11.4, -38.82, -33.97, 0.57 )
    }
}

proc shape3d_basal2_7() {
    dend[ 17 ] { pt3dclear()
	pt3dadd( -10.02, -35.78, -29.21, 0.29 )
	pt3dadd( -10.56, -38.16, -31.37, 0.29 )
	pt3dadd( -10.24, -40.34, -32.24, 0.29 )
	pt3dadd( -8.5, -41.13, -32.51, 0.29 )
	pt3dadd( -7.03, -43.29, -33.86, 0.29 )
	pt3dadd( -6.14, -44.92, -34.29, 0.29 )
	pt3dadd( -5.55, -45.73, -35.15, 0.29 )
	pt3dadd( -4.96, -46.81, -36.13, 0.29 )
	pt3dadd( -3.78, -48.43, -36.83, 0.29 )
	pt3dadd( -3.19, -49.51, -37.58, 0.29 )
	pt3dadd( -2.32, -50.32, -38.07, 0.29 )
	pt3dadd( -1.73, -50.86, -38.07, 0.29 )
	pt3dadd( -1.15, -51.39, -38.07, 0.29 )
	pt3dadd( -0.55, -52.75, -38.12, 0.29 )
	pt3dadd( -0.25, -53.84, -39.47, 0.29 )
	pt3dadd( 0.92, -55.19, -40.23, 0.29 )
	pt3dadd( 2.66, -55.98, -41.2, 0.29 )
	pt3dadd( 4.7, -57.58, -42.23, 0.29 )
	pt3dadd( 5.57, -58.11, -43.52, 0.29 )
	pt3dadd( 7.62, -60.54, -44.66, 0.29 )
	pt3dadd( 9.36, -61.6, -44.66, 0.29 )
	pt3dadd( 10.24, -62.68, -44.98, 0.29 )
	pt3dadd( 11.4, -63.76, -45.52, 0.29 )
	pt3dadd( 12.27, -64.29, -46.44, 0.29 )
	pt3dadd( 14.01, -65.35, -48.33, 0.29 )
	pt3dadd( 16.02, -65.32, -50.33, 0.29 )
	pt3dadd( 16.88, -65.57, -51.03, 0.29 )
	pt3dadd( 17.2, -66.94, -51.25, 0.29 )
	pt3dadd( 18.63, -67.24, -53.3, 0.29 )
	pt3dadd( 19.2, -66.95, -55.67, 0.29 )
	pt3dadd( 20.69, -67.68, -56.81, 0.86 )
	pt3dadd( 21.19, -68.55, -56.86, 0.86 )
	pt3dadd( 22.29, -69.19, -57.83, 0.86 )
	pt3dadd( 23.48, -68.75, -59.35, 0.86 )
	pt3dadd( 24.57, -69.39, -60.32, 0.86 )
	pt3dadd( 24.69, -71.33, -60.37, 0.86 )
	pt3dadd( 26.07, -72, -61.18, 0.86 )
	pt3dadd( 26.83, -73.16, -61.56, 0.86 )
	pt3dadd( 27.38, -73.48, -62.42, 0.86 )
	pt3dadd( 28.14, -74.65, -64.26, 0.57 )
	pt3dadd( 28.91, -75.81, -65.99, 0.57 )
	pt3dadd( 29.69, -76.7, -66.04, 0.57 )
	pt3dadd( 30.5, -77.32, -66.47, 0.57 )
	pt3dadd( 31.31, -77.94, -67.93, 0.57 )
	pt3dadd( 32.67, -78.89, -69.93, 0.57 )
	pt3dadd( 34.38, -79.04, -71.66, 0.57 )
	pt3dadd( 35.53, -79.14, -72.74, 0.57 )
	pt3dadd( 36.91, -79.81, -74.63, 0.57 )
	pt3dadd( 38.64, -79.68, -75.55, 0.57 )
	pt3dadd( 39.19, -80.01, -76.84, 0.57 )
	pt3dadd( 39.84, -79.24, -78.57, 0.57 )
	pt3dadd( 40.93, -79.88, -78.73, 0.29 )
	pt3dadd( 41.72, -80.78, -79.81, 0.29 )
	pt3dadd( 43.36, -81.74, -79.81, 0.29 )
	pt3dadd( 44.12, -82.91, -79.81, 0.29 )
	pt3dadd( 44.36, -83.48, -80.89, 0.29 )
	pt3dadd( 44.57, -84.32, -81.7, 0.29 )
	pt3dadd( 45.38, -84.94, -83, 0.29 )
	pt3dadd( 47.6, -85.96, -83, 0.29 )
	pt3dadd( 48.69, -86.6, -83.75, 0.29 )
	pt3dadd( 50.34, -87.57, -83.81, 0.29 )
	pt3dadd( 51.19, -87.64, -84.56, 0.29 )
	pt3dadd( 52.34, -87.74, -84.56, 0.29 )
	pt3dadd( 52.53, -88.86, -84.56, 0.29 )
	pt3dadd( 53.86, -90.07, -84.56, 0.29 )
	pt3dadd( 56.36, -91.12, -85.32, 0.29 )
	pt3dadd( 57.12, -92.28, -85.05, 0.29 )
	pt3dadd( 57.6, -93.42, -84.73, 0.29 )
	pt3dadd( 59.36, -93.03, -86.13, 0.29 )
	pt3dadd( 60.55, -92.58, -88.18, 0.29 )
	pt3dadd( 61.65, -93.23, -89.37, 0.29 )
	pt3dadd( 61.51, -94.86, -89.48, 0.29 )
	pt3dadd( 62.29, -95.75, -89.48, 0.29 )
	pt3dadd( 62.82, -96.35, -90.18, 0.29 )
	pt3dadd( 62.88, -96.93, -88.29, 0.29 )
	pt3dadd( 64.26, -97.6, -91.96, 0.29 )
	pt3dadd( 65.91, -98.57, -93.15, 0.29 )
	pt3dadd( 67.29, -99.24, -93.15, 0.29 )
	pt3dadd( 68.38, -99.88, -93.69, 0.29 )
	pt3dadd( 70.03, -100.85, -93.85, 0.29 )
	pt3dadd( 71.39, -101.79, -93.91, 0.29 )
	pt3dadd( 73.05, -102.48, -93.91, 0.29 )
	pt3dadd( 75.05, -102.66, -94.34, 0.29 )
	pt3dadd( 76.2, -102.76, -94.93, 0.29 )
	pt3dadd( 77.36, -102.59, -94.93, 0.29 )
	pt3dadd( 78.1, -104.02, -94.93, 0.29 )
	pt3dadd( 78.77, -106.28, -96.93, 0.29 )
	pt3dadd( 79.81, -107.47, -98.82, 0.29 )
	pt3dadd( 80.34, -108.06, -99.85, 0.29 )
	pt3dadd( 80.51, -109.45, -99.85, 0.29 )
	pt3dadd( 81.53, -110.91, -100.71, 0.29 )
	pt3dadd( 82.27, -112.35, -101.79, 0.29 )
	pt3dadd( 83.58, -113.84, -99.52, 0.29 )
	pt3dadd( 85.77, -115.13, -99.52, 0.29 )
	pt3dadd( 86.82, -116.32, -99.58, 0.29 )
	pt3dadd( 88.34, -118.64, -98.33, 0.29 )
	pt3dadd( 90.03, -119.38, -99.47, 0.29 )
	pt3dadd( 90.48, -120.79, -99.47, 0.29 )
	pt3dadd( 91.5, -122.25, -99.47, 0.29 )
	pt3dadd( 92.22, -123.96, -99.47, 0.29 )
	pt3dadd( 92.69, -125.1, -99.47, 0.29 )
	pt3dadd( 93.74, -126.29, -99.36, 0.29 )
	pt3dadd( 95.34, -127.8, -99.36, 0.29 )
	pt3dadd( 96.41, -128.72, -101.25, 0.29 )
	pt3dadd( 97.45, -129.91, -101.74, 0.29 )
	pt3dadd( 98.53, -130.83, -102.11, 0.29 )
	pt3dadd( 99.5, -132.84, -102.28, 0.29 )
	pt3dadd( 100.24, -134.27, -102.98, 0.29 )
	pt3dadd( 101.1, -134.35, -101.09, 0.29 )
	pt3dadd( 101.48, -136.58, -102.06, 0.29 )
	pt3dadd( 101.98, -137.44, -103.03, 0.29 )
	pt3dadd( 103.05, -138.36, -103.03, 0.29 )
	pt3dadd( 104.48, -138.49, -103.19, 0.29 )
	pt3dadd( 106.12, -139.45, -103.73, 0.29 )
    }
}

proc shape3d_basal1_4() {
    dend[ 18 ] { pt3dclear()
	pt3dadd( 15.3, -7.81, -19.55, 1.15 )
	pt3dadd( 17.14, -8.48, -19.55, 1.15 )
	pt3dadd( 18.03, -8.12, -20.47, 1.15 )
    }
}

proc shape3d_basal1_5() {
    dend[ 19 ] { pt3dclear()
	pt3dadd( 15.3, -7.81, -19.55, 0.86 )
	pt3dadd( 16.72, -6.97, -19.49, 0.86 )
	pt3dadd( 17.01, -6.96, -17.77, 0.86 )
	pt3dadd( 17.86, -6.13, -17.71, 0.86 )
	pt3dadd( 19.86, -5.82, -16.52, 0.86 )
	pt3dadd( 20.16, -6.63, -16.47, 0.86 )
	pt3dadd( 20.18, -8, -15.93, 0.86 )
	pt3dadd( 21.06, -8.81, -14.47, 0.86 )
	pt3dadd( 22.56, -10.19, -12.31, 1.43 )
	pt3dadd( 23.73, -13.22, -12.31, 1.43 )
	pt3dadd( 25.45, -15.4, -10.1, 1.43 )
	pt3dadd( 27.46, -16.5, -7.24, 1.43 )
	pt3dadd( 29.76, -17.32, -4.86, 1.43 )
	pt3dadd( 31.48, -17.86, -2.7, 1.43 )
	pt3dadd( 34.06, -18.41, -2.38, 1.43 )
	pt3dadd( 36.35, -19.51, 0, 1.43 )
	pt3dadd( 37.79, -18.96, 0, 1.15 )
	pt3dadd( 40.37, -19.78, 2.21, 1.15 )
	pt3dadd( 41.23, -21.97, 5.4, 1.15 )
	pt3dadd( 44.1, -21.97, 8.32, 1.15 )
	pt3dadd( 45.53, -21.42, 8.32, 1.15 )
	pt3dadd( 47.83, -22.51, 8.48, 1.15 )
	pt3dadd( 49.55, -22.79, 10.53, 1.15 )
	pt3dadd( 51.84, -23.06, 11.39, 1.15 )
	pt3dadd( 53.56, -24.15, 12.96, 1.15 )
	pt3dadd( 55.29, -24.7, 14.63, 1.15 )
	pt3dadd( 57.29, -24.15, 13.77, 1.15 )
	pt3dadd( 58.44, -23.88, 15.5, 1.15 )
	pt3dadd( 60.45, -23.88, 17.6, 1.15 )
	pt3dadd( 62.46, -23.33, 19.93, 1.15 )
	pt3dadd( 65.33, -22.51, 21.01, 1.15 )
	pt3dadd( 66.76, -22.24, 22.63, 1.15 )
	pt3dadd( 68.19, -21.69, 25.87, 1.15 )
	pt3dadd( 69.34, -21.42, 27.43, 1.15 )
    }
}

proc shape3d_basal1_6() {
    dend[ 20 ] { pt3dclear()
	pt3dadd( 6.32, 1.54, -38.83, 1.15 )
	pt3dadd( 6.32, 2.14, -38.83, 1.15 )
	pt3dadd( 6.29, 3.78, -38.88, 1.15 )
    }
}

proc shape3d_basal1_7() {
    dend[ 21 ] { pt3dclear()
	pt3dadd( 6.32, 1.54, -38.83, 1.43 )
	pt3dadd( 6.9, 1.01, -34.61, 1.43 )
	pt3dadd( 7.8, -0.89, -36.13, 1.43 )
	pt3dadd( 7.81, -1.44, -39.2, 1.43 )
	pt3dadd( 7.82, -2.26, -41.31, 1.43 )
	pt3dadd( 7.84, -3.35, -43.96, 1.43 )
	pt3dadd( 6.99, -3.64, -45.63, 1.43 )
	pt3dadd( 7, -4.73, -46.71, 1.43 )
	pt3dadd( 7.6, -6.09, -48.76, 1.43 )
	pt3dadd( 7.91, -7.18, -52.54, 1.43 )
	pt3dadd( 7.93, -8.55, -53.19, 1.43 )
	pt3dadd( 7.96, -10.19, -55.4, 1.43 )
	pt3dadd( 7.98, -11.55, -56.48, 1.43 )
	pt3dadd( 8.02, -13.47, -56.54, 1.43 )
	pt3dadd( 8.92, -15.64, -56.92, 1.43 )
	pt3dadd( 8.85, -17.55, -56.92, 0.29 )
	pt3dadd( 9.3, -18.96, -57.89, 0.29 )
    }
}

proc shape3d_basal2_8() {
    dend[ 22 ] { pt3dclear()
	pt3dadd( -28.32, -22.26, -17.87, 0.86 )
	pt3dadd( -29.76, -22.28, -16.85, 0.86 )
	pt3dadd( -31.18, -23.13, -15.98, 0.86 )
	pt3dadd( -32.62, -22.33, -14.58, 0.86 )
	pt3dadd( -34.05, -22.9, -14.58, 0.57 )
	pt3dadd( -36.34, -23.22, -14.58, 0.57 )
	pt3dadd( -37.46, -24.6, -14.58, 0.57 )
	pt3dadd( -38.9, -24.63, -14.58, 0.57 )
	pt3dadd( -40.91, -24.5, -14.58, 1.15 )
	pt3dadd( -42.34, -24.78, -12.1, 1.15 )
	pt3dadd( -43.2, -24.23, -10.48, 1.15 )
	pt3dadd( -44.63, -23.96, -10.21, 1.15 )
	pt3dadd( -46.07, -23.96, -9.67, 1.15 )
	pt3dadd( -47.5, -24.23, -9.67, 1.15 )
	pt3dadd( -48.65, -24.5, -9.67, 1.15 )
	pt3dadd( -51.23, -24.23, -10.04, 1.15 )
	pt3dadd( -54.1, -24.23, -10.04, 1.15 )
	pt3dadd( -55.25, -24.78, -9.77, 1.15 )
	pt3dadd( -57.54, -24.5, -9.61, 1.15 )
	pt3dadd( -58.98, -24.78, -9.56, 1.15 )
	pt3dadd( -60.41, -24.23, -9.23, 1.15 )
	pt3dadd( -61.85, -24.23, -8.59, 1.15 )
	pt3dadd( -63.85, -23.41, -9.67, 1.15 )
	pt3dadd( -66.15, -22.59, -9.67, 1.15 )
	pt3dadd( -67.87, -22.04, -10.53, 1.15 )
	pt3dadd( -69.3, -21.22, -9.88, 1.15 )
	pt3dadd( -71.03, -20.13, -9.23, 1.15 )
	pt3dadd( -73.03, -19.31, -9.23, 1.15 )
	pt3dadd( -74.18, -17.94, -9.23, 1.15 )
	pt3dadd( -75.04, -17.39, -9.23, 1.15 )
	pt3dadd( -76.48, -16.85, -9.23, 1.15 )
	pt3dadd( -77.62, -16.3, -9.23, 1.15 )
	pt3dadd( -79.34, -15.75, -9.23, 1.15 )
	pt3dadd( -79.92, -14.39, -9.4, 1.15 )
	pt3dadd( -81.35, -13.57, -8.48, 1.15 )
	pt3dadd( -83.07, -13.29, -7.83, 1.15 )
	pt3dadd( -84.51, -13.02, -7.83, 1.15 )
	pt3dadd( -85.66, -13.02, -7.83, 1.15 )
	pt3dadd( -87.66, -13.02, -7.83, 1.15 )
	pt3dadd( -89.39, -13.02, -7.83, 1.15 )
	pt3dadd( -91.68, -12.47, -6.43, 1.15 )
	pt3dadd( -92.54, -11.65, -5.18, 1.15 )
	pt3dadd( -94.26, -11.65, -4.91, 1.15 )
	pt3dadd( -95.12, -11.65, -4.21, 1.15 )
	pt3dadd( -96.56, -11.38, -4.27, 1.15 )
	pt3dadd( -98.55, -10.99, -5.51, 1.15 )
	pt3dadd( -100.27, -10.45, -5.51, 1.15 )
	pt3dadd( -101.99, -10.45, -5.08, 1.15 )
	pt3dadd( -104, -9.63, -4, 1.15 )
	pt3dadd( -105.72, -8.53, -3.4, 1.15 )
	pt3dadd( -107.44, -7.44, -2.7, 1.15 )
	pt3dadd( -109.45, -7.44, -2.05, 1.15 )
	pt3dadd( -111.46, -6.89, -2.05, 1.15 )
	pt3dadd( -113.47, -6.34, -1.24, 1.15 )
	pt3dadd( -114.9, -5.25, -0.27, 1.15 )
	pt3dadd( -116.05, -4.98, -0.27, 1.15 )
	pt3dadd( -117.2, -4.98, 0.86, 1.15 )
	pt3dadd( -118.63, -5.25, 1.46, 1.15 )
	pt3dadd( -119.49, -5.8, 1.94, 1.15 )
	pt3dadd( -120.93, -4.98, 2.86, 1.15 )
	pt3dadd( -122.07, -4.43, 4.1, 1.15 )
	pt3dadd( -124.37, -4.16, 5.51, 1.15 )
	pt3dadd( -125.8, -4.16, 7.51, 1.15 )
	pt3dadd( -127.81, -3.88, 8.69, 1.15 )
	pt3dadd( -129.24, -3.61, 8.86, 1.15 )
	pt3dadd( -130.97, -3.34, 10.26, 0.86 )
	pt3dadd( -132.97, -2.52, 8.8, 0.86 )
	pt3dadd( -134.12, -2.52, 11.12, 0.86 )
	pt3dadd( -135.56, -2.24, 11.56, 0.86 )
	pt3dadd( -137.85, -1.42, 12.47, 0.86 )
	pt3dadd( -138.42, 0.49, 12.37, 0.86 )
	pt3dadd( -139.86, 1.04, 12.74, 0.86 )
	pt3dadd( -141.01, 1.31, 13.45, 0.86 )
	pt3dadd( -141.58, 1.86, 14.9, 0.86 )
	pt3dadd( -143.59, 2.68, 14.9, 0.86 )
	pt3dadd( -144.45, 3.5, 14.9, 0.86 )
	pt3dadd( -147.03, 4.05, 14.9, 0.86 )
	pt3dadd( -148.75, 4.05, 14.9, 0.86 )
	pt3dadd( -150.47, 4.32, 14.9, 0.86 )
	pt3dadd( -152.19, 5.41, 15.07, 0.86 )
	pt3dadd( -153.63, 5.41, 16.42, 0.86 )
	pt3dadd( -154.49, 5.14, 16.09, 0.86 )
	pt3dadd( -156.78, 5.14, 16.09, 0.86 )
	pt3dadd( -157.99, 3.94, 15.39, 0.86 )
    }
}

proc shape3d_basal2_9() {
    dend[ 23 ] { pt3dclear()
	pt3dadd( -28.32, -22.26, -17.87, 0.57 )
	pt3dadd( -28.87, -23.63, -19.49, 0.57 )
	pt3dadd( -30, -24.47, -20.25, 0.57 )
	pt3dadd( -31.43, -25.04, -21.49, 0.57 )
	pt3dadd( -33.99, -26.18, -22.73, 0.57 )
	pt3dadd( -36.55, -27.32, -22.95, 0.57 )
	pt3dadd( -38.54, -28.72, -23.6, 0.57 )
	pt3dadd( -40.83, -29.04, -25.06, 0.57 )
	pt3dadd( -42.24, -30.16, -25.06, 0.57 )
	pt3dadd( -44.52, -31.02, -25.06, 0.57 )
	pt3dadd( -45.66, -31.58, -25.06, 0.57 )
	pt3dadd( -47.08, -32.43, -25.06, 0.57 )
	pt3dadd( -48.78, -33.83, -27.86, 0.57 )
	pt3dadd( -49.91, -34.39, -27.92, 0.57 )
	pt3dadd( -50.62, -35.29, -27.49, 0.57 )
	pt3dadd( -52.33, -35.86, -27.49, 0.57 )
    }
}

proc shape3d_basal2_10() {
    dend[ 24 ] { pt3dclear()
	pt3dadd( -11.4, -38.82, -33.97, 0.57 )
	pt3dadd( -12.21, -39.28, -35.69, 0.57 )
	pt3dadd( -12.48, -39.84, -38.12, 0.57 )
	pt3dadd( -11.6, -40.92, -40.23, 0.57 )
	pt3dadd( -11.88, -41.74, -43.79, 0.57 )
	pt3dadd( -12.45, -41.75, -46.93, 0.57 )
	pt3dadd( -13.02, -41.76, -49.84, 0.57 )
	pt3dadd( -13.01, -42.31, -52, 0.57 )
	pt3dadd( -13.01, -42.31, -53.95, 0.57 )
	pt3dadd( -13.01, -42.85, -55.19, 0.57 )
	pt3dadd( -13, -43.13, -56.54, 0.57 )
	pt3dadd( -13.26, -44.5, -58.1, 0.57 )
	pt3dadd( -12.12, -44.21, -57.62, 0.57 )
	pt3dadd( -11.34, -45.51, -57.62, 1.15 )
	pt3dadd( -12.73, -44.84, -62.59, 1.15 )
	pt3dadd( -13.56, -44.49, -65.07, 1.15 )
	pt3dadd( -14.46, -44.96, -66.69, 1.15 )
	pt3dadd( -15.39, -45.71, -67.18, 1.15 )
	pt3dadd( -16.01, -46.2, -68.47, 1.15 )
	pt3dadd( -16.92, -46.67, -70.42, 1.15 )
	pt3dadd( -17.82, -47.14, -71.93, 1.15 )
	pt3dadd( -18.99, -47.31, -73.71, 1.15 )
	pt3dadd( -19.35, -48.1, -75.6, 1.15 )
	pt3dadd( -19.75, -49.44, -77.98, 1.15 )
	pt3dadd( -19.82, -50.26, -79.43, 1.15 )
	pt3dadd( -20.16, -50.78, -80.51, 1.15 )
	pt3dadd( -21.37, -51.5, -80.57, 1.15 )
	pt3dadd( -21.99, -51.99, -80.73, 1.15 )
	pt3dadd( -22.38, -52.73, -81.43, 0.86 )
	pt3dadd( -22.45, -53.55, -83.16, 0.86 )
	pt3dadd( -22.52, -54.36, -84.78, 0.86 )
	pt3dadd( -23.21, -55.68, -85.21, 0.86 )
	pt3dadd( -24.61, -55.28, -85.32, 0.86 )
	pt3dadd( -25.47, -55.2, -86.99, 0.86 )
	pt3dadd( -26.42, -56.22, -86.99, 0.86 )
	pt3dadd( -27.9, -56.64, -86.99, 0.86 )
	pt3dadd( -28.54, -57.4, -86.99, 0.86 )
	pt3dadd( -29.16, -57.9, -87.91, 0.86 )
	pt3dadd( -30.62, -58.05, -88.07, 0.86 )
	pt3dadd( -32.62, -57.87, -88.88, 0.86 )
	pt3dadd( -34.12, -58.56, -90.34, 0.86 )
	pt3dadd( -35.28, -58.74, -89.64, 0.57 )
	pt3dadd( -36.19, -59.21, -90.18, 0.57 )
	pt3dadd( -36.5, -59.45, -90.99, 0.57 )
	pt3dadd( -37.64, -59.35, -92.02, 0.57 )
	pt3dadd( -39.12, -59.77, -92.02, 0.57 )
	pt3dadd( -39.19, -60.59, -92.34, 0.57 )
	pt3dadd( -40.14, -61.61, -92.56, 0.57 )
	pt3dadd( -40.79, -62.37, -92.56, 0.57 )
	pt3dadd( -41.95, -62.55, -94.77, 0.57 )
	pt3dadd( -42.79, -62.2, -93.2, 0.57 )
	pt3dadd( -43.36, -62.15, -94.99, 0.57 )
	pt3dadd( -44.31, -63.16, -95.04, 0.57 )
	pt3dadd( -44.93, -63.66, -95.26, 0.57 )
	pt3dadd( -46.43, -64.35, -95.58, 0.57 )
	pt3dadd( -47.38, -65.36, -96.17, 0.57 )
	pt3dadd( -48.29, -65.83, -97.25, 0.57 )
	pt3dadd( -48.62, -66.35, -97.31, 0.57 )
	pt3dadd( -49.79, -66.53, -97.31, 0.57 )
	pt3dadd( -50.43, -67.29, -97.9, 0.57 )
	pt3dadd( -50.79, -68.09, -97.9, 0.57 )
	pt3dadd( -52, -68.8, -99.41, 0.57 )
	pt3dadd( -51.72, -68.83, -98.77, 0.57 )
	pt3dadd( -53.26, -70.06, -100.01, 0.57 )
	pt3dadd( -55.6, -70.41, -102.65, 0.57 )
	pt3dadd( -56.22, -70.9, -101.79, 0.57 )
	pt3dadd( -57.43, -71.62, -103.03, 0.57 )
	pt3dadd( -58.65, -72.34, -103.79, 0.57 )
	pt3dadd( -59.84, -72.78, -103.36, 0.57 )
	pt3dadd( -61.58, -72.91, -104.81, 0.57 )
	pt3dadd( -63.03, -73.05, -105.79, 0.57 )
	pt3dadd( -65.39, -73.67, -105.79, 0.57 )
	pt3dadd( -66.78, -73.38, -105.79, 0.29 )
	pt3dadd( -68.04, -73.24, -105.79, 0.29 )
	pt3dadd( -69.21, -72.49, -105.79, 0.29 )
	pt3dadd( -69.75, -71.8, -105.79, 0.29 )
	pt3dadd( -70.74, -71.57, -105.79, 0.29 )
	pt3dadd( -71.19, -71.14, -105.79, 0.29 )
	pt3dadd( -72, -70.55, -105.79, 0.29 )
	pt3dadd( -72.86, -69.47, -103.14, 0.57 )
	pt3dadd( -73.93, -68.56, -103.14, 0.57 )
	pt3dadd( -75.05, -68.19, -103.14, 0.57 )
	pt3dadd( -76.41, -67.24, -103.52, 0.57 )
	pt3dadd( -77.77, -66.3, -103.68, 0.57 )
	pt3dadd( -78.79, -64.84, -104.22, 0.57 )
	pt3dadd( -80.08, -63.08, -104.27, 0.57 )
	pt3dadd( -81.05, -61.07, -105.68, 0.57 )
	pt3dadd( -80.08, -59.79, -105.03, 0.57 )
	pt3dadd( -79.96, -58.42, -105.03, 0.57 )
	pt3dadd( -79.86, -57.33, -102.44, 0.57 )
	pt3dadd( -80.65, -56.44, -102.92, 0.57 )
	pt3dadd( -81.15, -55.57, -102.92, 0.57 )
	pt3dadd( -82.17, -54.11, -102.92, 0.57 )
    }
}

proc shape3d_basal2_11() {
    dend[ 25 ] { pt3dclear()
	pt3dadd( -11.4, -38.82, -33.97, 0.57 )
	pt3dadd( -10.2, -39.25, -34.02, 0.57 )
	pt3dadd( -10.18, -40.62, -35.64, 0.57 )
	pt3dadd( -10.72, -41.99, -36.61, 0.57 )
	pt3dadd( -9.28, -42.79, -38.39, 0.57 )
	pt3dadd( -8.96, -44.42, -39.64, 0.57 )
	pt3dadd( -8.94, -45.79, -41.47, 0.57 )
	pt3dadd( -9.2, -46.89, -43.36, 0.57 )
	pt3dadd( -8.03, -48.51, -42.66, 0.57 )
	pt3dadd( -7.43, -50.14, -44.55, 0.57 )
	pt3dadd( -7.41, -50.96, -46.12, 0.57 )
	pt3dadd( -6.24, -52.58, -47.25, 0.57 )
	pt3dadd( -5.92, -54.49, -46.55, 0.57 )
	pt3dadd( -4.75, -55.56, -50.06, 0.57 )
	pt3dadd( -4.44, -56.93, -51.62, 0.57 )
	pt3dadd( -2.7, -57.72, -51.62, 0.57 )
	pt3dadd( -1.54, -58.79, -52.7, 0.57 )
	pt3dadd( -1.51, -60.16, -53.24, 0.57 )
	pt3dadd( -1.5, -60.98, -54.27, 0.57 )
	pt3dadd( -1.47, -62.89, -54.27, 0.57 )
	pt3dadd( -1.71, -65.36, -54.65, 0.57 )
	pt3dadd( -1.96, -67.28, -52.97, 0.57 )
	pt3dadd( -1.94, -68.64, -51.95, 0.57 )
	pt3dadd( -2.19, -70.56, -51.95, 0.57 )
	pt3dadd( -1.87, -72.74, -51.95, 0.57 )
	pt3dadd( -1.56, -74.11, -51.95, 0.57 )
	pt3dadd( -1.52, -76.02, -51.95, 0.57 )
	pt3dadd( -1.5, -77.39, -50.22, 0.57 )
	pt3dadd( -1.74, -79.85, -50.22, 0.57 )
	pt3dadd( -1.72, -81.22, -50.17, 0.57 )
	pt3dadd( -0.27, -82.29, -50.17, 0.57 )
	pt3dadd( 0.34, -83.92, -50.17, 0.57 )
	pt3dadd( 0.93, -85.28, -50.17, 0.57 )
	pt3dadd( 0.95, -86.37, -50.17, 0.57 )
	pt3dadd( 1.04, -87.74, -48.6, 0.57 )
	pt3dadd( 1.36, -89.65, -48.6, 0.57 )
	pt3dadd( 2.53, -90.72, -48.6, 0.57 )
	pt3dadd( 2.85, -92.91, -48.17, 0.57 )
	pt3dadd( 3.43, -93.44, -46.98, 0.57 )
	pt3dadd( 4.61, -95.34, -46.93, 0.57 )
	pt3dadd( 5.5, -96.69, -45.52, 0.57 )
	pt3dadd( 6.66, -97.76, -44.55, 0.57 )
	pt3dadd( 7.54, -98.84, -43.85, 0.57 )
	pt3dadd( 8.73, -101.01, -44.93, 0.57 )
	pt3dadd( 9.03, -101.55, -42.07, 0.57 )
	pt3dadd( 10.48, -102.89, -41.69, 0.29 )
	pt3dadd( 10.8, -104.8, -40.93, 0.29 )
	pt3dadd( 11.99, -106.97, -40.12, 0.29 )
	pt3dadd( 12.02, -108.61, -40.12, 0.29 )
	pt3dadd( 12.64, -111.06, -40.12, 0.29 )
	pt3dadd( 13.23, -112.14, -40.12, 0.29 )
	pt3dadd( 13.83, -113.5, -40.12, 0.29 )
	pt3dadd( 14.43, -115.13, -39.53, 0.29 )
	pt3dadd( 14.73, -116.22, -39.53, 0.29 )
	pt3dadd( 16.19, -117.56, -39.53, 0.29 )
	pt3dadd( 16.58, -118.33, -39.31, 0.29 )
	pt3dadd( 17.45, -119.13, -39.31, 0.29 )
	pt3dadd( 18.34, -120.76, -39.31, 0.29 )
	pt3dadd( 18.64, -121.57, -37.96, 0.29 )
	pt3dadd( 20.11, -123.74, -37.91, 0.29 )
	pt3dadd( 20.44, -126.19, -37.85, 0.29 )
	pt3dadd( 20.5, -129.47, -37.85, 0.29 )
	pt3dadd( 19.94, -130.58, -36.02, 0.29 )
	pt3dadd( 20.56, -132.75, -35.8, 0.29 )
	pt3dadd( 21.46, -134.93, -35.8, 0.29 )
	pt3dadd( 20.91, -136.3, -34.24, 0.29 )
	pt3dadd( 20.08, -138.23, -34.24, 0.29 )
	pt3dadd( 18.67, -139.62, -34.24, 0.29 )
	pt3dadd( 18.4, -140.72, -34.24, 0.29 )
	pt3dadd( 17.56, -141.83, -34.24, 0.29 )
	pt3dadd( 17.58, -143.2, -34.24, 0.29 )
	pt3dadd( 17.61, -144.57, -34.24, 0.29 )
	pt3dadd( 17.64, -146.21, -34.24, 0.29 )
	pt3dadd( 17.08, -147.04, -34.24, 0.29 )
	pt3dadd( 15.94, -147.6, -34.24, 0.29 )
	pt3dadd( 15.67, -148.7, -34.24, 0.29 )
	pt3dadd( 14.22, -149.2, -33.1, 0.29 )
	pt3dadd( 13.37, -149.76, -33.86, 0.29 )
	pt3dadd( 11.94, -150.06, -33.86, 0.29 )
	pt3dadd( 11.1, -151.17, -33.86, 0.29 )
	pt3dadd( 10.26, -152.55, -33.86, 0.29 )
	pt3dadd( 9.71, -153.66, -33.86, 0.29 )
	pt3dadd( 8.88, -155.86, -33.86, 0.29 )
	pt3dadd( 9.47, -156.67, -33.86, 0.29 )
	pt3dadd( 10.08, -158.57, -33.86, 0.29 )
	pt3dadd( 10.98, -160.74, -33.8, 0.29 )
	pt3dadd( 11.59, -162.92, -33.75, 0.29 )
	pt3dadd( 11.9, -164.56, -33.75, 0.29 )
	pt3dadd( 11.93, -165.92, -34.45, 0.29 )
	pt3dadd( 11.96, -167.57, -34.45, 0.29 )
	pt3dadd( 11.99, -169.21, -34.45, 0.29 )
	pt3dadd( 11.44, -170.58, -34.51, 0.29 )
	pt3dadd( 11.46, -171.68, -34.51, 0.29 )
	pt3dadd( 11.47, -172.77, -34.51, 0.29 )
	pt3dadd( 12.64, -173.84, -34.34, 0.29 )
	pt3dadd( 13.22, -174.38, -34.45, 0.29 )
	pt3dadd( 13.82, -175.74, -36.13, 0.29 )
	pt3dadd( 14.41, -176.55, -36.45, 0.29 )
	pt3dadd( 15.57, -177.07, -36.45, 0.29 )
	pt3dadd( 17.01, -177.6, -36.45, 0.29 )
	pt3dadd( 18.17, -178.4, -36.45, 0.29 )
	pt3dadd( 20.75, -178.08, -36.5, 0.29 )
	pt3dadd( 21.9, -178.33, -36.45, 0.29 )
	pt3dadd( 23.62, -178.3, -35.26, 0.29 )
	pt3dadd( 24.22, -179.66, -36.5, 0.29 )
	pt3dadd( 26.48, -181.29, -38.56, 0.29 )
	pt3dadd( 28.2, -180.98, -38.56, 0.29 )
	pt3dadd( 29.63, -180.96, -39.58, 0.29 )
    }
}

proc shape3d_basal1_8() {
    dend[ 26 ] { pt3dclear()
	pt3dadd( 18.03, -8.12, -20.47, 0.86 )
	pt3dadd( 19.21, -10.01, -20.47, 0.86 )
	pt3dadd( 20.37, -10.81, -20.84, 0.86 )
	pt3dadd( 21.81, -11.33, -21.11, 0.86 )
	pt3dadd( 23.57, -13.49, -19.82, 0.86 )
	pt3dadd( 25.03, -14.83, -19.82, 0.86 )
	pt3dadd( 26.19, -15.63, -19.82, 0.86 )
	pt3dadd( 27.64, -16.7, -19.82, 0.86 )
	pt3dadd( 29.11, -18.32, -21.06, 0.86 )
	pt3dadd( 30.86, -20.2, -21.71, 0.86 )
	pt3dadd( 32.61, -22.09, -22.09, 0.86 )
	pt3dadd( 33.78, -23.16, -23.49, 0.86 )
	pt3dadd( 34.68, -25.6, -23.54, 0.86 )
	pt3dadd( 35.56, -26.41, -24.84, 0.86 )
	pt3dadd( 37.29, -27.2, -25.7, 0.86 )
	pt3dadd( 38.19, -29.1, -26.68, 0.86 )
	pt3dadd( 38.49, -30.19, -27.65, 0.86 )
	pt3dadd( 39.09, -31.27, -28.4, 0.86 )
	pt3dadd( 40.55, -32.89, -28.89, 0.86 )
	pt3dadd( 40.85, -33.7, -30.08, 0.86 )
	pt3dadd( 41.16, -35.06, -30.08, 0.86 )
	pt3dadd( 42.91, -36.4, -30.08, 0.86 )
	pt3dadd( 43.8, -38.03, -30.08, 0.86 )
	pt3dadd( 44.7, -38.25, -32.24, 0.86 )
	pt3dadd( 44.71, -39.35, -32.24, 0.86 )
	pt3dadd( 45.88, -40.42, -33.21, 0.86 )
	pt3dadd( 47.63, -41.76, -33.21, 0.86 )
	pt3dadd( 48.22, -43.11, -33.21, 0.86 )
	pt3dadd( 50.54, -44.17, -33.21, 0.86 )
	pt3dadd( 52.27, -44.68, -33.21, 0.86 )
	pt3dadd( 54.3, -46.29, -33.21, 0.86 )
	pt3dadd( 55.49, -48.46, -33.8, 0.86 )
	pt3dadd( 56.67, -50.62, -33.8, 0.86 )
	pt3dadd( 58.13, -51.69, -33.8, 0.86 )
	pt3dadd( 59.59, -53.03, -33.8, 0.57 )
	pt3dadd( 60.47, -54.39, -33.91, 0.57 )
	pt3dadd( 61.64, -55.46, -32.99, 0.57 )
	pt3dadd( 62.82, -57.35, -32.99, 0.57 )
	pt3dadd( 63.13, -58.72, -32.99, 0.57 )
	pt3dadd( 64.88, -60.33, -32.99, 0.57 )
	pt3dadd( 66.34, -61.67, -32.99, 0.57 )
	pt3dadd( 67.21, -62.2, -32.99, 0.57 )
	pt3dadd( 69.26, -64.63, -31.75, 0.57 )
	pt3dadd( 70.42, -65.7, -30.94, 0.57 )
	pt3dadd( 70.46, -67.61, -30.89, 0.57 )
	pt3dadd( 71.34, -68.97, -31.54, 0.57 )
	pt3dadd( 71.54, -69.49, -31.48, 0.57 )
	pt3dadd( 72.43, -71.11, -32.13, 0.57 )
	pt3dadd( 74.19, -73.27, -32.24, 0.57 )
	pt3dadd( 75.37, -75.16, -32.29, 0.57 )
	pt3dadd( 77.4, -75.95, -32.62, 0.57 )
	pt3dadd( 79.7, -76.46, -32.62, 0.57 )
	pt3dadd( 81.72, -76.97, -32.62, 0.57 )
	pt3dadd( 83.16, -77.22, -33.21, 0.57 )
	pt3dadd( 84.9, -78.55, -33.21, 0.57 )
	pt3dadd( 86.92, -79.07, -33.21, 0.57 )
	pt3dadd( 88.08, -79.87, -33.21, 0.57 )
	pt3dadd( 89.26, -81.49, -33.21, 0.57 )
	pt3dadd( 90.14, -82.84, -35.37, 0.57 )
	pt3dadd( 91.04, -85.28, -36.94, 0.57 )
	pt3dadd( 91.37, -87.47, -39.04, 0.57 )
	pt3dadd( 91.4, -89.11, -40.12, 0.57 )
	pt3dadd( 92, -91.01, -40.39, 0.57 )
	pt3dadd( 92.6, -92.37, -40.82, 0.57 )
	pt3dadd( 93.79, -94.53, -40.99, 0.57 )
	pt3dadd( 95.25, -96.15, -42.44, 0.57 )
	pt3dadd( 95.85, -97.78, -43.69, 0.57 )
	pt3dadd( 96.44, -98.32, -44.87, 0.57 )
	pt3dadd( 97.62, -100.21, -44.87, 0.57 )
	pt3dadd( 98.99, -103.55, -45.68, 0.57 )
	pt3dadd( 99.61, -103.88, -45.68, 0.57 )
	pt3dadd( 100.42, -104.5, -45.68, 0.57 )
	pt3dadd( 101.44, -105.96, -45.68, 0.57 )
	pt3dadd( 102.56, -106.33, -45.68, 0.57 )
	pt3dadd( 103.63, -107.25, -46.28, 0.57 )
	pt3dadd( 103.87, -107.82, -46.6, 0.57 )
	pt3dadd( 104.61, -109.26, -46.66, 0.57 )
	pt3dadd( 105.37, -110.42, -46.87, 0.57 )
	pt3dadd( 106.39, -111.88, -46.93, 0.57 )
	pt3dadd( 106.89, -112.75, -46.93, 0.57 )
	pt3dadd( 107.42, -113.35, -46.93, 0.57 )
	pt3dadd( 108.16, -114.78, -47.68, 0.57 )
	pt3dadd( 109.73, -116.57, -48.22, 0.57 )
	pt3dadd( 110.2, -117.71, -49.14, 0.57 )
	pt3dadd( 111.27, -118.62, -50.65, 0.57 )
	pt3dadd( 112.97, -119.05, -50.98, 0.57 )
	pt3dadd( 114.68, -119.2, -52.27, 0.57 )
	pt3dadd( 115.13, -120.61, -52.43, 0.57 )
	pt3dadd( 114.99, -122.24, -54.16, 0.57 )
	pt3dadd( 115.73, -123.68, -54.16, 0.57 )
	pt3dadd( 115.63, -124.77, -54.16, 0.57 )
	pt3dadd( 115.82, -125.88, -54.22, 0.57 )
	pt3dadd( 115.99, -127.27, -54.22, 0.57 )
	pt3dadd( 116.2, -128.11, -54.76, 0.57 )
	pt3dadd( 116.16, -128.66, -56.48, 0.57 )
	pt3dadd( 116.06, -129.75, -56.48, 0.57 )
	pt3dadd( 115.08, -131.04, -56.48, 0.57 )
	pt3dadd( 114.99, -132.13, -56.48, 0.57 )
	pt3dadd( 114.32, -133.16, -57.73, 0.57 )
	pt3dadd( 113.99, -133.68, -59.99, 0.57 )
	pt3dadd( 112.75, -134.67, -59.99, 0.57 )
	pt3dadd( 112.89, -136.33, -61.18, 0.57 )
	pt3dadd( 112.77, -137.7, -61.94, 0.57 )
	pt3dadd( 113.23, -139.11, -62.86, 0.57 )
	pt3dadd( 114.27, -140.3, -64.15, 0.57 )
	pt3dadd( 114.15, -141.66, -64.15, 0.57 )
	pt3dadd( 115.49, -142.87, -64.21, 0.57 )
	pt3dadd( 115.73, -143.44, -65.5, 0.57 )
	pt3dadd( 116.15, -145.13, -66.96, 0.57 )
	pt3dadd( 116.21, -145.66, -68.85, 0.57 )
	pt3dadd( 116.09, -147.02, -71.39, 0.57 )
	pt3dadd( 117.45, -147.97, -72.9, 0.57 )
	pt3dadd( 118.95, -147.27, -73.17, 0.57 )
	pt3dadd( 120.1, -147.37, -73.17, 0.57 )
	pt3dadd( 121.21, -147.75, -74.47, 0.57 )
	pt3dadd( 122.38, -147.57, -74.95, 0.57 )
	pt3dadd( 123.26, -147.38, -76.14, 0.57 )
	pt3dadd( 124.43, -147.2, -76.79, 0.57 )
	pt3dadd( 125.62, -146.76, -78.35, 0.57 )
	pt3dadd( 126.48, -146.83, -78.52, 0.57 )
	pt3dadd( 128.1, -148.07, -79, 0.57 )
	pt3dadd( 129.19, -148.72, -79, 0.57 )
	pt3dadd( 130.88, -149.14, -79.6, 0.57 )
	pt3dadd( 131.74, -149.22, -80.46, 0.57 )
	pt3dadd( 133.91, -150.78, -80.46, 0.57 )
	pt3dadd( 135.57, -151.47, -81.97, 0.57 )
	pt3dadd( 137.07, -150.78, -77.65, 0.57 )
	pt3dadd( 138.53, -150.63, -77.65, 0.57 )
	pt3dadd( 139.67, -150.73, -76.73, 0.57 )
	pt3dadd( 140.53, -150.81, -78.19, 0.57 )
	pt3dadd( 141.38, -150.88, -78.25, 0.57 )
	pt3dadd( 142.5, -151.26, -78.25, 0.57 )
    }
}

proc shape3d_basal1_9() {
    dend[ 27 ] { pt3dclear()
	pt3dadd( 18.03, -8.12, -20.47, 0.86 )
	pt3dadd( 19.98, -6.86, -21.06, 0.86 )
	pt3dadd( 21.97, -5.74, -21.28, 0.86 )
    }
}

proc shape3d_basal1_10() {
    dend[ 28 ] { pt3dclear()
	pt3dadd( 6.29, 3.78, -38.88, 1.15 )
	pt3dadd( 7.69, 5.72, -40.12, 1.15 )
	pt3dadd( 8.25, 6.55, -40.88, 1.15 )
	pt3dadd( 9.39, 7.11, -41.26, 1.15 )
	pt3dadd( 10.23, 8.22, -41.26, 1.15 )
	pt3dadd( 10.77, 10.42, -41.26, 1.15 )
	pt3dadd( 11.58, 12.9, -41.69, 1.15 )
	pt3dadd( 12.71, 14.01, -41.69, 1.15 )
	pt3dadd( 13.83, 15.67, -41.69, 1.15 )
	pt3dadd( 15.22, 18.43, -41.69, 1.15 )
	pt3dadd( 16.34, 19.82, -41.9, 1.15 )
	pt3dadd( 18.02, 22.31, -41.96, 1.15 )
	pt3dadd( 19.13, 24.24, -41.74, 1.15 )
	pt3dadd( 20.53, 26.18, -41.74, 1.15 )
	pt3dadd( 22.22, 27.85, -40.99, 1.15 )
	pt3dadd( 23.06, 29.23, -40.99, 1.15 )
	pt3dadd( 23.91, 30.07, -41.42, 1.15 )
	pt3dadd( 24.72, 32.54, -41.09, 1.15 )
	pt3dadd( 24.99, 33.64, -41.09, 1.15 )
	pt3dadd( 26.12, 35.03, -41.09, 1.15 )
	pt3dadd( 26.96, 36.14, -41.09, 1.15 )
	pt3dadd( 28.35, 38.62, -41.09, 1.15 )
	pt3dadd( 28.61, 40, -42.23, 1.15 )
	pt3dadd( 30.59, 41.67, -42.23, 1.15 )
	pt3dadd( 30.57, 42.77, -42.23, 1.15 )
	pt3dadd( 31.41, 43.87, -42.23, 1.15 )
	pt3dadd( 32.54, 45.26, -42.23, 1.15 )
	pt3dadd( 33.95, 46.65, -42.23, 1.15 )
	pt3dadd( 35.35, 48.59, -42.23, 1.15 )
	pt3dadd( 36.47, 49.98, -42.23, 1.15 )
	pt3dadd( 37.6, 50.82, -42.23, 1.15 )
	pt3dadd( 38.18, 52.51, -42.12, 1.15 )
	pt3dadd( 39.01, 54.71, -42.98, 1.15 )
	pt3dadd( 39.57, 55.54, -43.74, 1.15 )
	pt3dadd( 40.68, 57.48, -44.12, 1.15 )
	pt3dadd( 41.81, 58.32, -45.04, 1.15 )
	pt3dadd( 42.07, 59.96, -45.04, 1.15 )
	pt3dadd( 43.19, 61.62, -45.04, 1.15 )
	pt3dadd( 44.03, 62.73, -45.04, 1.15 )
	pt3dadd( 45.16, 63.85, -45.04, 1.15 )
	pt3dadd( 46.27, 65.78, -46.71, 1.15 )
	pt3dadd( 47.11, 66.89, -46.71, 1.15 )
	pt3dadd( 47.66, 68.27, -47.03, 1.15 )
	pt3dadd( 48.22, 69.37, -47.03, 1.15 )
	pt3dadd( 48.77, 70.75, -48.6, 1.15 )
	pt3dadd( 48.74, 72.39, -48.6, 1.15 )
	pt3dadd( 49.28, 74.04, -48.6, 1.15 )
	pt3dadd( 49.83, 75.69, -49.73, 1.15 )
	pt3dadd( 50.68, 76.52, -51.19, 1.15 )
	pt3dadd( 51.8, 77.91, -51.19, 1.15 )
	pt3dadd( 53.2, 79.85, -51.19, 1.15 )
	pt3dadd( 54.31, 82.06, -52, 1.15 )
	pt3dadd( 54.28, 83.42, -54.16, 1.15 )
	pt3dadd( 54.55, 84.8, -54.16, 1.15 )
	pt3dadd( 54.81, 86.17, -54.16, 1.15 )
	pt3dadd( 55.08, 87.27, -54.16, 1.15 )
	pt3dadd( 55.63, 88.64, -54.16, 1.15 )
	pt3dadd( 55.91, 89.19, -56, 1.15 )
	pt3dadd( 56.45, 91.12, -56.16, 1.15 )
	pt3dadd( 56.7, 92.76, -58, 1.15 )
	pt3dadd( 58.12, 93.88, -60.37, 1.15 )
	pt3dadd( 58.1, 94.7, -63.67, 1.15 )
	pt3dadd( 58.59, 95.44, -65.18, 0.29 )
	pt3dadd( 58.64, 95.98, -66.64, 0.29 )
	pt3dadd( 59.04, 97.32, -67.61, 0.29 )
	pt3dadd( 60.54, 98.01, -67.61, 0.29 )
	pt3dadd( 61.19, 98.78, -69.61, 0.29 )
	pt3dadd( 61.31, 100.14, -69.82, 0.29 )
	pt3dadd( 61.43, 101.5, -71.33, 0.29 )
	pt3dadd( 61.19, 102.07, -73.39, 0.29 )
	pt3dadd( 61.24, 102.62, -75.65, 0.29 )
	pt3dadd( 61.33, 103.71, -77.92, 0.29 )
	pt3dadd( 60.55, 104.6, -77.6, 0.29 )
	pt3dadd( 59.31, 103.61, -77.6, 0.29 )
	pt3dadd( 58.4, 103.14, -78.68, 0.29 )
	pt3dadd( 57.52, 102.94, -80.24, 0.29 )
	pt3dadd( 55.81, 103.09, -81.59, 0.29 )
	pt3dadd( 54.66, 103.19, -83.11, 0.29 )
	pt3dadd( 54.09, 103.24, -84.35, 0.29 )
	pt3dadd( 52.9, 102.8, -85.75, 0.29 )
	pt3dadd( 52.83, 101.98, -85.91, 0.29 )
	pt3dadd( 53.64, 101.36, -87.16, 0.29 )
	pt3dadd( 55, 100.42, -88.83, 0.29 )
	pt3dadd( 55.76, 99.25, -89.64, 0.29 )
	pt3dadd( 55.52, 99.82, -89.96, 0.29 )
	pt3dadd( 55.85, 100.34, -89.96, 0.29 )
    }
}

proc shape3d_basal1_11() {
    dend[ 29 ] { pt3dclear()
	pt3dadd( 6.29, 3.78, -38.88, 1.15 )
	pt3dadd( 5.1, 5.9, -40.99, 1.15 )
	pt3dadd( 2.79, 6.41, -41.2, 1.15 )
	pt3dadd( 1.62, 7.75, -43.52, 1.15 )
	pt3dadd( -0.12, 8.82, -45.36, 1.15 )
	pt3dadd( -1.86, 9.88, -46.82, 1.15 )
	pt3dadd( -3.03, 11.23, -47.74, 1.15 )
	pt3dadd( -4.19, 12.03, -47.9, 1.15 )
	pt3dadd( -5.92, 12.27, -47.84, 1.15 )
	pt3dadd( -7.33, 11.15, -45.74, 1.15 )
	pt3dadd( -8.49, 11.95, -50.06, 1.15 )
	pt3dadd( -9.94, 12.75, -51.41, 1.15 )
	pt3dadd( -11.38, 12.72, -51.46, 1.15 )
	pt3dadd( -13.13, 14.33, -52.81, 1.15 )
	pt3dadd( -14, 14.86, -54.27, 1.15 )
	pt3dadd( -15.16, 15.94, -55.35, 1.15 )
	pt3dadd( -15.47, 17.03, -56.7, 1.15 )
	pt3dadd( -16.62, 17.55, -58.16, 1.15 )
	pt3dadd( -16.92, 18.1, -59.72, 1.15 )
	pt3dadd( -19.22, 18.33, -60.8, 1.15 )
	pt3dadd( -20.09, 19.13, -62.15, 1.15 )
	pt3dadd( -20.97, 19.94, -62.21, 1.15 )
	pt3dadd( -22.42, 20.73, -62.21, 1.15 )
	pt3dadd( -23.89, 20.57, -62.26, 1.15 )
	pt3dadd( -24.98, 21.21, -65.66, 1.15 )
	pt3dadd( -25.74, 22.38, -68.2, 1.15 )
	pt3dadd( -26.53, 23.27, -68.26, 1.15 )
	pt3dadd( -27.29, 24.43, -71.06, 1.15 )
	pt3dadd( -28.43, 24.53, -71.55, 1.15 )
	pt3dadd( -30.08, 25.5, -72.9, 1.15 )
	pt3dadd( -30.53, 26.91, -72.9, 1.15 )
	pt3dadd( -31.03, 27.78, -72.9, 0.86 )
	pt3dadd( -32.67, 28.75, -73.17, 0.86 )
	pt3dadd( -32.91, 29.32, -73.44, 0.86 )
	pt3dadd( -33.77, 29.39, -74.47, 0.86 )
	pt3dadd( -35.2, 29.52, -74.68, 0.86 )
	pt3dadd( -36.63, 29.64, -74.74, 0.86 )
	pt3dadd( -37.41, 30.53, -75.22, 0.86 )
	pt3dadd( -38.2, 31.43, -75.22, 0.86 )
	pt3dadd( -38.77, 31.48, -75.65, 0.57 )
	pt3dadd( -40.17, 31.87, -75.17, 0.57 )
	pt3dadd( -40.72, 32.2, -75.76, 0.57 )
	pt3dadd( -41.51, 33.09, -76.03, 0.57 )
	pt3dadd( -42.34, 33.44, -76.63, 0.57 )
	pt3dadd( -43.15, 34.06, -76.19, 0.57 )
	pt3dadd( -44.06, 33.59, -76.9, 0.57 )
	pt3dadd( -45.53, 33.17, -78.35, 0.57 )
	pt3dadd( -46.65, 33.54, -79.22, 0.57 )
	pt3dadd( -47.51, 33.61, -79.7, 0.57 )
	pt3dadd( -48.65, 33.71, -79.7, 0.57 )
	pt3dadd( -49.56, 33.24, -80.73, 0.57 )
	pt3dadd( -50.44, 33.05, -82.13, 0.57 )
	pt3dadd( -51.3, 33.12, -82.4, 0.57 )
	pt3dadd( -52.39, 33.77, -83.54, 0.57 )
	pt3dadd( -54.06, 34.46, -83.86, 0.57 )
	pt3dadd( -54.61, 34.78, -85.81, 0.57 )
	pt3dadd( -55.15, 35.11, -87.1, 0.57 )
	pt3dadd( -55.15, 35.11, -87.32, 0.29 )
	pt3dadd( -56.58, 35.23, -87.59, 0.29 )
	pt3dadd( -57.11, 35.83, -88.61, 0.29 )
	pt3dadd( -57.92, 36.45, -89.32, 0.29 )
	pt3dadd( -58.13, 37.29, -90.34, 0.29 )
	pt3dadd( -59.77, 38.25, -91.04, 0.29 )
	pt3dadd( -60.87, 38.9, -92.34, 0.29 )
	pt3dadd( -61.37, 39.77, -93.74, 0.29 )
	pt3dadd( -61.37, 39.77, -95.26, 0.29 )
	pt3dadd( -61.58, 40.61, -96.39, 0.29 )
	pt3dadd( -61.18, 41.95, -97.2, 0.29 )
	pt3dadd( -61.53, 44.45, -98.28, 0.29 )
	pt3dadd( -61.18, 45.24, -99.09, 0.29 )
	pt3dadd( -61.34, 46.63, -99.68, 0.29 )
	pt3dadd( -60.79, 46.72, -97.85, 0.29 )
	pt3dadd( -61.22, 48.4, -99.09, 0.29 )
	pt3dadd( -60.51, 49.99, -99.14, 0.29 )
	pt3dadd( -60.08, 51.6, -99.14, 0.29 )
	pt3dadd( -59.94, 53.23, -99.14, 0.29 )
	pt3dadd( -59.79, 54.87, -100.49, 0.29 )
	pt3dadd( -59.67, 56.23, -99.68, 0.29 )
	pt3dadd( -59.53, 57.86, -100.12, 0.29 )
	pt3dadd( -59.39, 59.5, -100.82, 0.29 )
	pt3dadd( -59.84, 60.91, -102.28, 0.29 )
	pt3dadd( -60.27, 62.59, -103.36, 0.29 )
	pt3dadd( -60.98, 64.3, -103.73, 0.29 )
	pt3dadd( -61.17, 65.42, -103.73, 0.29 )
	pt3dadd( -61.65, 66.56, -104.17, 0.29 )
	pt3dadd( -61.82, 67.95, -104.17, 0.29 )
	pt3dadd( -62.27, 69.36, -105.03, 0.29 )
	pt3dadd( -62.48, 70.2, -104.98, 0.29 )
	pt3dadd( -63.27, 71.09, -104.17, 0.29 )
	pt3dadd( -64.6, 72.31, -104.11, 0.29 )
	pt3dadd( -65.13, 72.9, -104.11, 0.29 )
	pt3dadd( -65.63, 73.77, -104.76, 0.29 )
	pt3dadd( -65.82, 74.88, -103.95, 0.29 )
	pt3dadd( -65.91, 77.09, -106.16, 0.29 )
	pt3dadd( -65.51, 78.42, -108.38, 0.29 )
	pt3dadd( -65.96, 79.84, -109.46, 0.29 )
	pt3dadd( -66.2, 80.41, -109.4, 0.29 )
	pt3dadd( -67.01, 81.03, -109.4, 0.29 )
	pt3dadd( -67.72, 82.74, -109.46, 0.29 )
	pt3dadd( -67.58, 84.37, -109.51, 0.29 )
	pt3dadd( -68.56, 86.38, -109.51, 0.29 )
	pt3dadd( -69.63, 87.29, -108.43, 0.29 )
	pt3dadd( -70.98, 88.24, -109.62, 0.29 )
	pt3dadd( -71.51, 88.83, -108.97, 0.29 )
	pt3dadd( -72.82, 90.32, -109.19, 0.29 )
	pt3dadd( -73.77, 92.6, -110.21, 0.29 )
	pt3dadd( -73.98, 93.44, -110.21, 0.29 )
	pt3dadd( -74.2, 94.28, -110.27, 0.29 )
    }
}

proc shape3d_basal1_12() {
    dend[ 30 ] { pt3dclear()
	pt3dadd( 9.3, -18.96, -57.89, 1.43 )
	pt3dadd( 10.62, -20.42, -63.5, 1.43 )
	pt3dadd( 12.86, -21.17, -64.8, 1.43 )
	pt3dadd( 13.46, -20.95, -64.91, 1.43 )
	pt3dadd( 14.5, -22.14, -66.91, 1.43 )
	pt3dadd( 15.89, -22.81, -67.77, 1.43 )
    }
}

proc shape3d_basal1_13() {
    dend[ 31 ] { pt3dclear()
	pt3dadd( 9.3, -18.96, -57.89, 1.43 )
	pt3dadd( 7.8, -19.65, -59.72, 1.43 )
	pt3dadd( 6.82, -20.94, -62.86, 1.43 )
	pt3dadd( 5.94, -21.13, -63.61, 1.43 )
	pt3dadd( 5.09, -21.06, -65.72, 1.15 )
	pt3dadd( 4.18, -21.53, -68.04, 1.15 )
	pt3dadd( 3.59, -21.75, -68.9, 1.15 )
	pt3dadd( 2.89, -23.06, -68.9, 1.15 )
	pt3dadd( 2.04, -22.99, -70.15, 0.86 )
	pt3dadd( 1.44, -23.21, -71.6, 0.86 )
	pt3dadd( 0.51, -23.95, -73.6, 0.86 )
	pt3dadd( 0.44, -24.77, -74.47, 0.86 )
	pt3dadd( -0.27, -26.35, -75.33, 0.86 )
	pt3dadd( -0.89, -26.85, -77.11, 0.86 )
    }
}

proc shape3d_basal2_12() {
    dend[ 32 ] { pt3dclear()
	pt3dadd( -52.33, -35.86, -27.49, 0.57 )
	pt3dadd( -53.77, -35.62, -30.29, 0.57 )
	pt3dadd( -54.64, -35.08, -32.72, 0.57 )
	pt3dadd( -56.37, -34.57, -34.61, 0.57 )
	pt3dadd( -58.38, -34.6, -36.45, 0.57 )
	pt3dadd( -59.52, -34.62, -39.64, 0.57 )
	pt3dadd( -60.39, -34.64, -41.15, 0.57 )
	pt3dadd( -61.25, -34.65, -41.47, 0.57 )
	pt3dadd( -61.55, -33.84, -42.23, 0.57 )
	pt3dadd( -61.85, -33.02, -43.85, 0.57 )
	pt3dadd( -63.28, -33.05, -46.33, 0.57 )
	pt3dadd( -64.99, -33.9, -46.39, 0.57 )
	pt3dadd( -65.28, -33.9, -47.57, 0.57 )
	pt3dadd( -66.43, -33.38, -47.79, 0.57 )
	pt3dadd( -67.59, -32.85, -49.03, 0.57 )
	pt3dadd( -68.16, -32.86, -50.49, 0.57 )
	pt3dadd( -69.02, -32.87, -50.54, 0.57 )
	pt3dadd( -71.32, -32.91, -51.68, 0.57 )
	pt3dadd( -71.62, -32.1, -53.35, 0.57 )
	pt3dadd( -72.49, -31.57, -53.35, 0.57 )
	pt3dadd( -73.36, -31.04, -53.35, 0.57 )
	pt3dadd( -74.24, -29.96, -54.11, 0.57 )
	pt3dadd( -74.82, -29.69, -55.89, 0.57 )
	pt3dadd( -75.4, -29.16, -57.83, 0.57 )
	pt3dadd( -76.83, -29.18, -57.83, 0.57 )
	pt3dadd( -77.99, -28.93, -59.02, 0.57 )
	pt3dadd( -79.7, -29.51, -59.72, 0.57 )
	pt3dadd( -80.14, -28.81, -59.78, 0.57 )
	pt3dadd( -80.12, -28.53, -61.07, 1.15 )
	pt3dadd( -81.26, -28.43, -63.88, 1.15 )
	pt3dadd( -82.4, -28.33, -67.28, 1.15 )
	pt3dadd( -83.81, -27.94, -67.66, 1.15 )
	pt3dadd( -84.67, -27.86, -69.66, 1.15 )
	pt3dadd( -85.55, -28.06, -71.01, 1.15 )
	pt3dadd( -86.74, -28.5, -71.87, 1.15 )
	pt3dadd( -87.59, -28.43, -71.98, 1.15 )
	pt3dadd( -89.38, -29.1, -72.58, 1.15 )
	pt3dadd( -90.76, -28.43, -73.44, 1.15 )
	pt3dadd( -91.62, -28.35, -75.55, 1.15 )
	pt3dadd( -92.55, -29.09, -76.63, 1.15 )
	pt3dadd( -92.64, -30.18, -77.87, 1.15 )
	pt3dadd( -92.93, -30.16, -78.52, 0.86 )
	pt3dadd( -93.48, -29.83, -80.51, 0.86 )
	pt3dadd( -94.33, -29.76, -81.54, 0.86 )
	pt3dadd( -95.19, -29.68, -82.94, 0.86 )
	pt3dadd( -96.38, -30.13, -82.94, 0.86 )
	pt3dadd( -97.83, -30.28, -83.92, 0.86 )
	pt3dadd( -99.55, -30.13, -85.37, 0.86 )
	pt3dadd( -99.84, -30.1, -86.62, 0.86 )
	pt3dadd( -101, -30.27, -87.16, 0.86 )
	pt3dadd( -101.65, -31.04, -87.48, 0.86 )
	pt3dadd( -102.79, -30.94, -87.7, 0.86 )
	pt3dadd( -103.93, -30.84, -88.72, 0.86 )
	pt3dadd( -105.1, -31.01, -90.4, 0.86 )
	pt3dadd( -105.98, -31.21, -91.75, 0.86 )
	pt3dadd( -107.12, -31.11, -91.75, 0.86 )
	pt3dadd( -108.29, -31.28, -92.66, 0.86 )
	pt3dadd( -108.67, -32.35, -93.31, 0.86 )
	pt3dadd( -109.84, -32.52, -94.45, 0.86 )
	pt3dadd( -111.65, -33.46, -95.8, 0.57 )
	pt3dadd( -112.79, -33.36, -96.66, 0.57 )
	pt3dadd( -113.65, -33.29, -97.74, 0.57 )
	pt3dadd( -114.51, -33.21, -99.63, 0.57 )
	pt3dadd( -115.93, -33.09, -99.63, 0.57 )
	pt3dadd( -118.58, -33.68, -101.36, 0.57 )
	pt3dadd( -119.46, -33.88, -102.76, 0.57 )
	pt3dadd( -120.91, -34.02, -103.3, 0.57 )
	pt3dadd( -121.82, -34.49, -104.17, 0.57 )
	pt3dadd( -122.65, -34.15, -105.35, 0.57 )
	pt3dadd( -123.48, -33.8, -105.79, 0.57 )
	pt3dadd( -124.91, -33.67, -105.84, 0.57 )
	pt3dadd( -125.84, -34.41, -105.84, 0.57 )
	pt3dadd( -127.56, -34.26, -105.84, 0.57 )
	pt3dadd( -129.01, -34.41, -105.68, 0.57 )
	pt3dadd( -130.46, -34.56, -105.3, 0.57 )
	pt3dadd( -131.39, -35.3, -105.25, 0.57 )
	pt3dadd( -132.27, -35.5, -105.19, 0.57 )
	pt3dadd( -133.18, -35.97, -105.19, 0.57 )
	pt3dadd( -134.03, -35.89, -105.19, 0.57 )
	pt3dadd( -134.89, -35.82, -104.33, 0.57 )
	pt3dadd( -136.37, -36.24, -103.95, 0.57 )
	pt3dadd( -137.46, -36.49, -103.84, 0.57 )
	pt3dadd( -140.41, -37.33, -105.08, 0.57 )
	pt3dadd( -142.18, -37.72, -106.22, 0.57 )
	pt3dadd( -143.63, -37.87, -107.3, 0.57 )
	pt3dadd( -145.65, -37.97, -108.16, 0.57 )
	pt3dadd( -146.56, -38.44, -108.54, 0.57 )
	pt3dadd( -148.72, -40.17, -107.24, 0.57 )
	pt3dadd( -153.79, -43.85, -107.24, 0.29 )
	pt3dadd( -154.07, -44.81, -108.81, 0.29 )
	pt3dadd( -154.53, -46.12, -109.84, 0.29 )
	pt3dadd( -154.81, -47.96, -109.57, 0.29 )
	pt3dadd( -155.8, -48.59, -109.46, 0.29 )
	pt3dadd( -155.99, -49.81, -110.43, 0.29 )
	pt3dadd( -156.98, -50.44, -111.4, 0.29 )
	pt3dadd( -157.62, -51.24, -112.59, 0.29 )
	pt3dadd( -158.17, -52.29, -113.29, 0.29 )
	pt3dadd( -158.81, -53.96, -113.29, 0.29 )
	pt3dadd( -159.71, -54.85, -114.43, 0.29 )
	pt3dadd( -159.72, -55.72, -116.21, 0.29 )
	pt3dadd( -159.72, -56.59, -118.53, 0.29 )
	pt3dadd( -159.37, -58.49, -119.56, 0.29 )
	pt3dadd( -159.01, -59.53, -119.61, 0.29 )
	pt3dadd( -158.2, -60.11, -122.36, 0.29 )
	pt3dadd( -157.85, -61.15, -123.39, 0.29 )
	pt3dadd( -158.04, -63.24, -123.98, 0.29 )
	pt3dadd( -157.96, -65.24, -124.58, 0.29 )
	pt3dadd( -157.87, -66.36, -124.79, 0.29 )
	pt3dadd( -158.7, -68.38, -125.98, 0.29 )
    }
}

proc shape3d_basal2_13() {
    dend[ 33 ] { pt3dclear()
	pt3dadd( -52.33, -35.86, -27.49, 0.57 )
	pt3dadd( -54.04, -36.44, -27.65, 0.57 )
	pt3dadd( -56.61, -37.31, -27.97, 0.57 )
	pt3dadd( -58.04, -37.33, -27.92, 0.57 )
	pt3dadd( -59.45, -38.72, -27.92, 0.57 )
	pt3dadd( -61.17, -39.03, -29.81, 0.57 )
	pt3dadd( -63.16, -39.88, -29.81, 0.57 )
	pt3dadd( -64.6, -39.91, -30.08, 0.57 )
	pt3dadd( -66.89, -40.22, -30.35, 0.57 )
	pt3dadd( -68.03, -40.51, -30.35, 0.57 )
	pt3dadd( -68.6, -40.8, -30.35, 0.57 )
	pt3dadd( -69.15, -41.9, -32.24, 0.57 )
	pt3dadd( -70.27, -43.56, -32.56, 0.57 )
	pt3dadd( -71.97, -44.96, -32.99, 0.57 )
	pt3dadd( -73.39, -45.53, -32.99, 0.57 )
	pt3dadd( -73.94, -46.91, -32.99, 0.57 )
	pt3dadd( -75.36, -47.75, -32.99, 0.57 )
	pt3dadd( -76.49, -48.87, -32.99, 0.57 )
	pt3dadd( -78.2, -49.72, -32.99, 0.57 )
	pt3dadd( -79.61, -51.11, -32.99, 0.57 )
	pt3dadd( -80.45, -52.22, -32.99, 0.57 )
	pt3dadd( -80.98, -54.69, -32.99, 0.57 )
	pt3dadd( -81.52, -56.61, -33.43, 0.57 )
	pt3dadd( -82.35, -58.27, -30.83, 0.57 )
	pt3dadd( -83.19, -59.65, -29.54, 0.57 )
	pt3dadd( -83.45, -61.02, -28.19, 0.57 )
	pt3dadd( -83.71, -62.67, -26.14, 0.57 )
	pt3dadd( -83.12, -63.75, -24.35, 0.57 )
	pt3dadd( -83.1, -64.85, -23.44, 0.57 )
	pt3dadd( -81.63, -66.46, -23.49, 0.57 )
	pt3dadd( -81.25, -66.06, -23.92, 0.57 )
	pt3dadd( -80.66, -67.14, -20.79, 0.57 )
	pt3dadd( -80.63, -68.78, -17.06, 0.57 )
	pt3dadd( -81.47, -70.17, -16.36, 0.57 )
	pt3dadd( -81.74, -71.27, -15.55, 0.57 )
	pt3dadd( -82.88, -71.56, -15.39, 0.57 )
	pt3dadd( -83.73, -71.85, -14.8, 0.57 )
	pt3dadd( -84.31, -71.86, -14.8, 0.57 )
	pt3dadd( -84.87, -72.69, -13.12, 0.57 )
	pt3dadd( -85.72, -73.25, -13.12, 0.57 )
    }
}

proc shape3d_basal1_14() {
    dend[ 34 ] { pt3dclear()
	pt3dadd( 21.97, -5.74, -21.28, 0.57 )
	pt3dadd( 23.38, -4.34, -19.33, 0.57 )
	pt3dadd( 24.5, -3.23, -18.04, 0.57 )
	pt3dadd( 25.62, -1.57, -17.23, 0.57 )
	pt3dadd( 26.18, -0.47, -17.12, 0.57 )
	pt3dadd( 27.03, 0.1, -17.01, 0.57 )
	pt3dadd( 27.59, 0.93, -16.85, 0.57 )
	pt3dadd( 29.01, 1.77, -16.85, 0.57 )
	pt3dadd( 30.72, 2.08, -16.42, 0.57 )
	pt3dadd( 32.73, 2.11, -16.25, 0.57 )
	pt3dadd( 33.3, 2.39, -16.04, 0.57 )
	pt3dadd( 35.59, 2.71, -15.98, 0.57 )
	pt3dadd( 37.02, 3.28, -15.98, 0.57 )
	pt3dadd( 38.16, 3.57, -15.44, 0.57 )
    }
}

proc shape3d_basal1_15() {
    dend[ 35 ] { pt3dclear()
	pt3dadd( 21.97, -5.74, -21.28, 0.86 )
	pt3dadd( 24.03, -6.88, -20.47, 0.86 )
	pt3dadd( 25.77, -8.21, -19.01, 0.86 )
	pt3dadd( 27.49, -8.18, -18.95, 0.86 )
	pt3dadd( 28.37, -9.26, -18.95, 0.86 )
	pt3dadd( 29.53, -9.52, -20.2, 0.86 )
	pt3dadd( 29.55, -11.16, -18.58, 0.86 )
	pt3dadd( 30.43, -12.24, -17.01, 0.86 )
	pt3dadd( 31.6, -13.31, -15.77, 0.86 )
	pt3dadd( 33.33, -13.83, -15.77, 0.86 )
	pt3dadd( 34.2, -14.36, -15.71, 0.86 )
	pt3dadd( 35.66, -15.7, -15.71, 0.86 )
	pt3dadd( 37.68, -16.76, -15.61, 0.86 )
	pt3dadd( 39.99, -17.27, -14.96, 0.86 )
	pt3dadd( 41.72, -17.78, -16.09, 0.86 )
	pt3dadd( 42.59, -18.59, -16.09, 0.86 )
	pt3dadd( 44.34, -19.92, -16.74, 0.86 )
	pt3dadd( 45.49, -20.18, -17.23, 0.86 )
	pt3dadd( 46.37, -21.26, -18.9, 0.86 )
	pt3dadd( 47.83, -22.6, -20.25, 0.86 )
	pt3dadd( 49.29, -23.94, -21.11, 0.86 )
	pt3dadd( 51.62, -26.09, -21.55, 0.86 )
	pt3dadd( 53.66, -27.69, -23.44, 0.86 )
	pt3dadd( 54.5, -29.37, -23.65, 0.86 )
	pt3dadd( 55.38, -30.18, -24.46, 0.86 )
	pt3dadd( 56.27, -31.8, -25.65, 0.86 )
	pt3dadd( 58.01, -33.14, -25.65, 0.86 )
	pt3dadd( 59.46, -33.94, -25.65, 0.86 )
	pt3dadd( 60.92, -35.28, -26.89, 0.86 )
	pt3dadd( 62.08, -36.35, -26.89, 0.86 )
	pt3dadd( 62.68, -37.43, -28.3, 0.86 )
	pt3dadd( 64.13, -38.23, -28.3, 0.86 )
	pt3dadd( 65.57, -39.03, -28.3, 0.86 )
	pt3dadd( 65.88, -40.11, -30.4, 0.86 )
	pt3dadd( 67.05, -41.46, -30.46, 0.86 )
	pt3dadd( 68.52, -43.62, -31.05, 0.86 )
	pt3dadd( 69.12, -44.71, -31.05, 0.86 )
	pt3dadd( 70.26, -44.69, -31.1, 0.86 )
	pt3dadd( 71.43, -45.76, -31.86, 0.86 )
	pt3dadd( 73.45, -46.55, -31.91, 0.86 )
	pt3dadd( 74.04, -47.36, -31.91, 0.86 )
	pt3dadd( 74.92, -48.71, -33.05, 0.86 )
	pt3dadd( 76.38, -50.05, -33.1, 0.86 )
	pt3dadd( 76.69, -51.41, -33.48, 0.86 )
	pt3dadd( 78.14, -52.21, -33.48, 0.86 )
	pt3dadd( 80.46, -53.53, -33.48, 0.86 )
	pt3dadd( 81.64, -55.03, -34.72, 0.86 )
	pt3dadd( 83.11, -56.92, -34.78, 0.86 )
	pt3dadd( 83.42, -58.28, -35.48, 0.86 )
	pt3dadd( 83.73, -59.64, -35.69, 0.86 )
	pt3dadd( 84.05, -61.28, -35.75, 0.86 )
	pt3dadd( 85.21, -62.08, -35.75, 0.86 )
	pt3dadd( 86.66, -63.15, -35.75, 0.86 )
	pt3dadd( 87.26, -64.78, -35.75, 0.86 )
	pt3dadd( 89.01, -66.11, -35.75, 0.86 )
	pt3dadd( 89.9, -67.74, -37.91, 0.86 )
	pt3dadd( 91.65, -69.35, -37.91, 0.86 )
	pt3dadd( 93.68, -70.96, -40.12, 0.86 )
	pt3dadd( 96, -72.01, -41.9, 0.86 )
	pt3dadd( 98.59, -72.78, -41.96, 0.86 )
	pt3dadd( 100.89, -73.02, -43.36, 0.86 )
	pt3dadd( 102.61, -72.71, -41.9, 0.86 )
	pt3dadd( 104.33, -72.96, -42.66, 0.86 )
	pt3dadd( 105.78, -73.75, -42.88, 0.86 )
	pt3dadd( 106.66, -74.56, -43.31, 0.86 )
	pt3dadd( 109.54, -75.6, -45.2, 0.86 )
	pt3dadd( 109.89, -78.03, -48.01, 0.86 )
	pt3dadd( 111.28, -78.99, -48.01, 0.57 )
	pt3dadd( 111.73, -80.4, -48.01, 0.57 )
	pt3dadd( 112.78, -81.59, -48.01, 0.57 )
	pt3dadd( 112.73, -82.14, -49.09, 0.57 )
	pt3dadd( 113.23, -83, -50.17, 0.57 )
	pt3dadd( 114.04, -83.62, -50.76, 0.57 )
	pt3dadd( 114.25, -84.47, -51.03, 0.57 )
	pt3dadd( 115.25, -86.2, -51.08, 0.57 )
	pt3dadd( 115.13, -87.56, -51.08, 0.57 )
	pt3dadd( 115.02, -88.92, -52.11, 0.57 )
	pt3dadd( 114.61, -90.26, -52.16, 0.57 )
	pt3dadd( 114.42, -92.44, -52.54, 0.57 )
	pt3dadd( 114.56, -94.1, -52.54, 0.57 )
	pt3dadd( 114.42, -95.73, -52.54, 0.57 )
	pt3dadd( 114.35, -96.55, -53.73, 0.57 )
	pt3dadd( 114.54, -97.67, -53.84, 0.57 )
	pt3dadd( 114.42, -99.03, -54.65, 0.57 )
	pt3dadd( 114.59, -100.42, -55.3, 0.57 )
	pt3dadd( 114.75, -101.8, -55.3, 0.57 )
	pt3dadd( 114.99, -102.37, -56.32, 0.57 )
	pt3dadd( 114.87, -103.73, -57.35, 0.57 )
	pt3dadd( 115.61, -105.17, -57.62, 0.57 )
	pt3dadd( 116.06, -106.58, -58.64, 0.57 )
	pt3dadd( 118.56, -107.63, -59.99, 0.57 )
	pt3dadd( 119.32, -108.79, -62.32, 0.57 )
	pt3dadd( 118.59, -110.65, -64.21, 0.57 )
	pt3dadd( 119.4, -111.27, -66.47, 0.57 )
	pt3dadd( 117.3, -112.18, -67.45, 0.57 )
	pt3dadd( 116.63, -113.22, -69.23, 0.57 )
	pt3dadd( 117.04, -115.29, -70.36, 0.57 )
	pt3dadd( 119.25, -116.3, -72.09, 0.57 )
	pt3dadd( 121.28, -116.21, -73.76, 0.57 )
	pt3dadd( 122.13, -116.28, -75.38, 0.57 )
    }
}

proc shape3d_basal1_16() {
    dend[ 36 ] { pt3dclear()
	pt3dadd( 15.89, -22.81, -67.77, 0.86 )
	pt3dadd( 16.45, -20.77, -68.69, 0.86 )
	pt3dadd( 17.47, -18.93, -71.44, 0.86 )
	pt3dadd( 18.45, -17.65, -73.12, 0.86 )
	pt3dadd( 19.16, -16.06, -75.01, 0.86 )
	pt3dadd( 19.88, -14.48, -77.98, 0.86 )
	pt3dadd( 19.95, -13.66, -81.59, 0.86 )
	pt3dadd( 20.88, -12.92, -83.32, 0.86 )
	pt3dadd( 20.43, -11.51, -83.65, 0.86 )
	pt3dadd( 20.45, -11.23, -85.27, 0.86 )
	pt3dadd( 21.02, -11.28, -85.27, 0.86 )
	pt3dadd( 22.26, -10.3, -86.29, 0.86 )
	pt3dadd( 22.64, -9.23, -88.67, 0.86 )
	pt3dadd( 23, -8.44, -90.13, 0.86 )
	pt3dadd( 24.21, -7.72, -91.85, 0.86 )
	pt3dadd( 26, -7.05, -91.91, 0.86 )
	pt3dadd( 26.64, -6.29, -93.85, 0.86 )
	pt3dadd( 28.14, -5.59, -95.53, 0.86 )
	pt3dadd( 29.07, -4.85, -98.55, 0.86 )
	pt3dadd( 28.31, -3.69, -101.47, 0.86 )
	pt3dadd( 27.81, -2.82, -103.03, 0.86 )
	pt3dadd( 27.55, -2.52, -104.06, 0.86 )
	pt3dadd( 27.9, -1.73, -105.19, 0.86 )
	pt3dadd( 28.31, -0.39, -105.62, 0.86 )
	pt3dadd( 26.95, 0.15, -105.62, 0.29 )
	pt3dadd( 25.86, 0.65, -106.43, 0.29 )
	pt3dadd( 26.5, 1.45, -109.46, 0.29 )
	pt3dadd( 27.41, 2.34, -112.37, 0.29 )
	pt3dadd( 27.86, 2.78, -113.99, 0.29 )
	pt3dadd( 27.68, 3.3, -116.05, 0.29 )
	pt3dadd( 27.42, 4.07, -117.18, 0.29 )
	pt3dadd( 26.97, 4.5, -118.37, 0.29 )
	pt3dadd( 25.97, 4.73, -119.66, 0.29 )
	pt3dadd( 25.25, 5.07, -120.91, 0.29 )
	pt3dadd( 23.81, 4.86, -122.15, 0.29 )
	pt3dadd( 24.53, 4.53, -124.47, 0.29 )
	pt3dadd( 23.72, 4.25, -126.25, 0.29 )
	pt3dadd( 23.35, 3.54, -127.76, 0.29 )
	pt3dadd( 21.72, 2.98, -128.79, 0.29 )
	pt3dadd( 21.72, 2.11, -129.92, 0.29 )
	pt3dadd( 21.72, 1.24, -130.9, 0.29 )
	pt3dadd( 20.99, -0.16, -132.3, 0.29 )
	pt3dadd( 20.36, -0.09, -131.98, 0.29 )
	pt3dadd( 20, 0.94, -133.33, 0.29 )
	pt3dadd( 19.46, 2.49, -131.76, 0.29 )
	pt3dadd( 19.02, 3.79, -131.76, 0.29 )
	pt3dadd( 19.02, 4.66, -131.76, 0.29 )
	pt3dadd( 19.21, 5.88, -131.76, 0.29 )
	pt3dadd( 18.68, 7.43, -131.76, 0.29 )
	pt3dadd( 18.59, 7.69, -131.76, 0.29 )
    }
}

proc shape3d_basal1_17() {
    dend[ 37 ] { pt3dclear()
	pt3dadd( 15.89, -22.81, -67.77, 1.15 )
	pt3dadd( 18.67, -23.87, -69.98, 1.15 )
	pt3dadd( 20.03, -24.82, -71.33, 1.15 )
	pt3dadd( 22.29, -25.29, -71.33, 1.15 )
	pt3dadd( 23.41, -25.66, -72.74, 1.15 )
	pt3dadd( 24.22, -26.28, -73.98, 1.15 )
	pt3dadd( 25.89, -26.98, -73.98, 1.15 )
	pt3dadd( 26.67, -27.87, -74.84, 1.15 )
	pt3dadd( 28.58, -29.13, -77.71, 1.15 )
	pt3dadd( 29.7, -29.51, -79.11, 1.15 )
	pt3dadd( 31.46, -29.11, -81.22, 1.15 )
	pt3dadd( 33.7, -29.86, -83.48, 1.15 )
	pt3dadd( 35.44, -29.73, -85.05, 1.15 )
	pt3dadd( 37.2, -29.34, -85.05, 1.15 )
	pt3dadd( 37.7, -30.21, -85.05, 1.15 )
	pt3dadd( 38.56, -30.28, -85.05, 1.15 )
	pt3dadd( 40.2, -31.25, -88.61, 1.15 )
	pt3dadd( 40.83, -31.68, -92.66, 1.15 )
	pt3dadd( 41.4, -31.73, -95.9, 1.15 )
	pt3dadd( 42.74, -32.95, -99.25, 1.15 )
	pt3dadd( 45.57, -33.47, -103.25, 1.15 )
	pt3dadd( 47.29, -33.62, -104.22, 1.15 )
	pt3dadd( 48.67, -34.29, -105.35, 1.15 )
	pt3dadd( 48.26, -33.72, -105.95, 0.29 )
	pt3dadd( 49.34, -34.22, -108.7, 0.29 )
	pt3dadd( 49.7, -33.51, -108.81, 0.29 )
	pt3dadd( 50.52, -33.23, -108.81, 0.29 )
	pt3dadd( 51.59, -34.6, -109.62, 0.29 )
	pt3dadd( 52.86, -34.74, -109.62, 0.29 )
	pt3dadd( 53.94, -34.37, -110.7, 0.29 )
	pt3dadd( 55.47, -34.42, -111.02, 0.29 )
	pt3dadd( 56.47, -34.66, -111.46, 0.29 )
	pt3dadd( 57.91, -35.32, -112.27, 0.29 )
	pt3dadd( 58.89, -36.42, -113.78, 0.29 )
	pt3dadd( 60.25, -35.95, -115.02, 0.29 )
	pt3dadd( 61.33, -36.45, -117.07, 0.29 )
	pt3dadd( 61.87, -36.26, -118.04, 0.29 )
	pt3dadd( 63.05, -36.15, -119.02, 0.29 )
	pt3dadd( 63.41, -35.44, -119.56, 0.29 )
	pt3dadd( 64.68, -34.72, -121.28, 0.29 )
	pt3dadd( 66.03, -35.12, -122.47, 0.29 )
	pt3dadd( 68.02, -35.6, -122.96, 0.29 )
	pt3dadd( 68.91, -36.44, -124.31, 0.29 )
	pt3dadd( 69.36, -36.87, -124.31, 0.29 )
	pt3dadd( 70.72, -37.27, -125.33, 0.29 )
	pt3dadd( 71.34, -38.21, -125.55, 0.29 )
	pt3dadd( 72.33, -38.45, -126.2, 0.29 )
	pt3dadd( 73.24, -38.42, -126.2, 0.29 )
	pt3dadd( 74.32, -38.92, -126.2, 0.29 )
	pt3dadd( 74.95, -38.99, -126.2, 0.29 )
	pt3dadd( 76.3, -39.39, -126.2, 0.29 )
	pt3dadd( 77.48, -39.28, -126.47, 0.29 )
	pt3dadd( 78.92, -39.94, -126.95, 0.29 )
	pt3dadd( 80.35, -41.47, -126.95, 0.29 )
	pt3dadd( 80.89, -43.02, -128.41, 0.29 )
	pt3dadd( 82.33, -42.81, -129.87, 0.29 )
	pt3dadd( 83.17, -43.32, -129.92, 0.29 )
	pt3dadd( 84.34, -44.08, -131.54, 0.29 )
	pt3dadd( 85.87, -44.13, -131.92, 0.29 )
	pt3dadd( 87.67, -44.95, -132.25, 0.29 )
	pt3dadd( 88.75, -45.45, -133.06, 0.29 )
	pt3dadd( 89.2, -45.87, -134.3, 0.29 )
	pt3dadd( 90.64, -46.53, -135.16, 0.29 )
	pt3dadd( 92.09, -46.33, -136.24, 0.29 )
	pt3dadd( 93.8, -47.76, -137.65, 0.29 )
	pt3dadd( 94.24, -49.06, -140.13, 0.29 )
	pt3dadd( 94.6, -50.09, -141.37, 0.29 )
	pt3dadd( 94.87, -50.87, -141.75, 0.29 )
	pt3dadd( 95.67, -52.32, -143.32, 0.29 )
	pt3dadd( 96.39, -53.52, -143.53, 0.29 )
	pt3dadd( 97.37, -54.63, -144.02, 0.29 )
	pt3dadd( 98.27, -55.48, -144.45, 0.29 )
	pt3dadd( 98.45, -55.99, -144.94, 0.29 )
	pt3dadd( 97.9, -57.05, -146.34, 0.29 )
	pt3dadd( 97.99, -58.18, -147.58, 0.29 )
	pt3dadd( 97.44, -59.23, -148.07, 0.29 )
	pt3dadd( 97.35, -60.71, -148.23, 0.29 )
	pt3dadd( 98.06, -62.78, -148.55, 0.29 )
	pt3dadd( 98.23, -64.17, -149.26, 0.29 )
	pt3dadd( 98.95, -65.37, -149.36, 0.29 )
	pt3dadd( 99.67, -65.7, -150.28, 0.29 )
	pt3dadd( 100.47, -68.02, -150.28, 0.29 )
	pt3dadd( 101.19, -69.22, -151.15, 0.29 )
    }
}

proc shape3d_basal1_18() {
    dend[ 38 ] { pt3dclear()
	pt3dadd( -0.89, -26.85, -77.11, 0.86 )
	pt3dadd( -3, -28.02, -82.84, 0.86 )
	pt3dadd( -4.14, -27.92, -84.62, 0.86 )
	pt3dadd( -5.69, -29.15, -86.4, 0.86 )
	pt3dadd( -8.1, -30.32, -88.29, 0.86 )
	pt3dadd( -9.64, -31.55, -90.02, 0.86 )
	pt3dadd( -10.22, -31.5, -89.8, 0.86 )
	pt3dadd( -11.98, -31.9, -93.85, 0.86 )
	pt3dadd( -12.62, -32.67, -96.23, 0.86 )
	pt3dadd( -14.12, -33.36, -99.52, 0.86 )
	pt3dadd( -15, -33.56, -101.63, 0.86 )
	pt3dadd( -16.45, -33.7, -103.19, 0.86 )
	pt3dadd( -17.67, -34.42, -105.46, 0.86 )
	pt3dadd( -17.96, -34.39, -102.92, 0.86 )
	pt3dadd( -18.32, -34.9, -104.38, 0.29 )
	pt3dadd( -19.49, -35.02, -106.97, 0.29 )
	pt3dadd( -19.86, -35.72, -109.84, 0.29 )
	pt3dadd( -20.94, -36.1, -111.35, 0.29 )
	pt3dadd( -21.75, -34.64, -112.54, 0.29 )
	pt3dadd( -22.02, -34.73, -114.32, 0.29 )
	pt3dadd( -24, -34.26, -115.29, 0.29 )
	pt3dadd( -24.73, -34.8, -117.45, 0.29 )
	pt3dadd( -25.63, -34.82, -119.5, 0.29 )
	pt3dadd( -26.44, -35.1, -120.58, 0.29 )
	pt3dadd( -26.71, -35.19, -121.88, 0.29 )
	pt3dadd( -27.89, -35.31, -123.44, 0.29 )
	pt3dadd( -27.8, -35.56, -127.6, 0.29 )
	pt3dadd( -27.89, -35.31, -125.6, 0.29 )
	pt3dadd( -28.88, -35.94, -131.27, 0.29 )
	pt3dadd( -29.61, -36.48, -134.3, 0.29 )
	pt3dadd( -29.25, -36.64, -138.02, 0.29 )
	pt3dadd( -30.33, -37.02, -140.35, 0.29 )
	pt3dadd( -31.42, -37.39, -144.5, 0.29 )
	pt3dadd( -31.78, -38.09, -146.93, 0.29 )
	pt3dadd( -32.33, -38.28, -147.64, 0.29 )
	pt3dadd( -32.51, -38.63, -148.55, 0.29 )
	pt3dadd( -33.32, -38.91, -149.36, 0.29 )
	pt3dadd( -34.32, -39.54, -150.28, 0.29 )
	pt3dadd( -35.67, -40.01, -150.44, 0.29 )
	pt3dadd( -37.12, -40.22, -150.82, 0.29 )
	pt3dadd( -36.85, -39.19, -152.01, 0.29 )
	pt3dadd( -38.15, -38.68, -152.87, 0.29 )
	pt3dadd( -39.64, -39.44, -154.76, 0.29 )
	pt3dadd( -40.43, -40.58, -156.76, 0.29 )
	pt3dadd( -42.08, -40.79, -159.62, 0.29 )
	pt3dadd( -43.4, -42.09, -161.51, 0.29 )
	pt3dadd( -42.98, -43.46, -162.76, 0.29 )
	pt3dadd( -43.94, -44.05, -164.32, 0.29 )
	pt3dadd( -45.63, -44.48, -165.67, 0.29 )
	pt3dadd( -46.42, -44.72, -167.67, 0.29 )
	pt3dadd( -46.77, -45.42, -165.46, 0.29 )
	pt3dadd( -48.34, -45.9, -167.67, 0.29 )
	pt3dadd( -49.13, -46.14, -169.51, 0.29 )
	pt3dadd( -50.17, -46.46, -169.94, 0.29 )
	pt3dadd( -52.1, -47.65, -171.13, 0.29 )
	pt3dadd( -53.06, -48.25, -172.69, 0.29 )
	pt3dadd( -54.1, -48.57, -174.2, 0.29 )
	pt3dadd( -52.8, -48.17, -182.03, 0.29 )
	pt3dadd( -54.8, -48.18, -183.28, 0.29 )
	pt3dadd( -55.31, -47.43, -184.03, 0.29 )
	pt3dadd( -55.91, -46.42, -185.49, 0.29 )
	pt3dadd( -57.2, -45.91, -187.38, 0.29 )
	pt3dadd( -58.85, -45.22, -188.19, 0.29 )
	pt3dadd( -59.54, -44.83, -189.16, 0.29 )
	pt3dadd( -60.75, -44.6, -189.27, 0.29 )
	pt3dadd( -63.62, -44.58, -189.76, 0.29 )
	pt3dadd( -64.4, -44.81, -190.24, 0.29 )
	pt3dadd( -66.14, -44.75, -190.78, 0.29 )
	pt3dadd( -67.01, -44.71, -192.02, 0.29 )
	pt3dadd( -68.66, -44.92, -193.54, 0.29 )
	pt3dadd( -70.05, -45.04, -192.73, 0.29 )
	pt3dadd( -72.08, -45.61, -194.35, 0.29 )
	pt3dadd( -73.34, -46.24, -195.32, 0.29 )
	pt3dadd( -74.36, -47, -195.32, 0.29 )
	pt3dadd( -74.95, -46.36, -196.07, 0.29 )
	pt3dadd( -75.68, -45.97, -196.67, 0.29 )
	pt3dadd( -76.91, -45.97, -196.83, 0.29 )
	pt3dadd( -77.77, -45.84, -198.18, 0.29 )
	pt3dadd( -78.76, -45.96, -200.12, 0.29 )
	pt3dadd( -79.97, -45.31, -201.8, 0.29 )
	pt3dadd( -80.83, -45.18, -203.36, 0.29 )
	pt3dadd( -81.96, -45.56, -204.01, 0.29 )
	pt3dadd( -83.22, -46.19, -204.55, 0.29 )
	pt3dadd( -84.38, -47.2, -205.74, 0.29 )
	pt3dadd( -83.38, -44.15, -207.58, 0.29 )
	pt3dadd( -83.32, -42.88, -208.06, 0.29 )
	pt3dadd( -83.67, -42.37, -209.14, 0.29 )
	pt3dadd( -83.89, -41.61, -210.38, 0.29 )
	pt3dadd( -84.07, -40.21, -211.36, 0.29 )
	pt3dadd( -83.77, -39.07, -211.79, 0.29 )
	pt3dadd( -83.96, -37.67, -212.22, 0.29 )
	pt3dadd( -84.93, -37.16, -213.41, 0.29 )
	pt3dadd( -86.13, -36.52, -213.84, 0.29 )
	pt3dadd( -86.86, -36.13, -213.84, 0.29 )
	pt3dadd( -87.55, -35.11, -214.6, 0.29 )
	pt3dadd( -87.66, -34.73, -214.76, 0.29 )
	pt3dadd( -88.73, -33.83, -215.51, 0.29 )
	pt3dadd( -88.95, -33.07, -217.03, 0.29 )
	pt3dadd( -89.56, -33.07, -218.59, 0.29 )
	pt3dadd( -89.81, -32.94, -220.32, 0.29 )
	pt3dadd( -88.84, -33.45, -222.59, 0.29 )
	pt3dadd( -88.63, -34.22, -224.86, 0.29 )
	pt3dadd( -89.49, -34.08, -226.21, 0.29 )
	pt3dadd( -90.1, -34.08, -227.66, 0.29 )
	pt3dadd( -89.3, -35.48, -229.28, 0.29 )
    }
}

proc shape3d_basal1_19() {
    dend[ 39 ] { pt3dclear()
	pt3dadd( -0.89, -26.85, -77.11, 0.86 )
	pt3dadd( 0.13, -28.31, -78.68, 0.86 )
	pt3dadd( 2.04, -29.58, -80.08, 0.86 )
	pt3dadd( 3.04, -31.31, -82.57, 0.86 )
	pt3dadd( 2.87, -33.22, -84.67, 0.86 )
	pt3dadd( 3.87, -34.95, -86.72, 0.86 )
	pt3dadd( 3.78, -36.04, -87.32, 0.86 )
	pt3dadd( 4.49, -37.75, -87.43, 0.86 )
	pt3dadd( 4.39, -38.84, -88.13, 0.86 )
	pt3dadd( 5.13, -40.28, -89.48, 0.86 )
	pt3dadd( 6.16, -41.74, -89.91, 0.86 )
	pt3dadd( 5.77, -42.8, -92.12, 0.86 )
	pt3dadd( 6.78, -44.54, -93.2, 0.86 )
	pt3dadd( 6.94, -45.93, -93.58, 0.57 )
	pt3dadd( 7.35, -47.88, -94.66, 0.57 )
	pt3dadd( 8.13, -48.78, -94.66, 0.57 )
	pt3dadd( 8.37, -49.35, -95.63, 0.57 )
	pt3dadd( 9.04, -51.6, -95.53, 0.57 )
	pt3dadd( 10.32, -53.36, -95.2, 0.57 )
	pt3dadd( 10.75, -55.04, -93.74, 0.57 )
	pt3dadd( 10.58, -56.95, -92.45, 0.57 )
	pt3dadd( 11.58, -58.68, -92.39, 0.57 )
	pt3dadd( 11.14, -60.55, -101.3, 0.57 )
	pt3dadd( 11.57, -62.23, -102.44, 0.57 )
	pt3dadd( 12.24, -64.49, -102.71, 0.57 )
	pt3dadd( 12.38, -66.15, -103.41, 0.57 )
	pt3dadd( 12.08, -68.34, -103.36, 0.57 )
	pt3dadd( 12.84, -70.03, -103.36, 0.29 )
	pt3dadd( 13.02, -70.54, -104.22, 0.29 )
	pt3dadd( 13.73, -71.74, -105.68, 0.29 )
	pt3dadd( 14, -72.52, -108.27, 0.29 )
	pt3dadd( 13.64, -73.22, -106.97, 0.29 )
	pt3dadd( 13.99, -74.26, -108.54, 0.29 )
	pt3dadd( 14.35, -75.29, -109.08, 0.29 )
	pt3dadd( 14.52, -76.68, -109.67, 0.29 )
	pt3dadd( 14.79, -77.45, -109.67, 0.29 )
	pt3dadd( 15.24, -78.74, -109.67, 0.29 )
	pt3dadd( 16.13, -79.59, -109.67, 0.29 )
	pt3dadd( 16.31, -80.11, -108.54, 0.29 )
	pt3dadd( 16.49, -80.63, -108.11, 0.29 )
	pt3dadd( 16.76, -81.4, -108, 0.29 )
	pt3dadd( 16.94, -81.92, -107.73, 0.29 )
	pt3dadd( 16.57, -82.62, -107.41, 0.29 )
	pt3dadd( 16.47, -84.1, -106.16, 0.29 )
	pt3dadd( 16.47, -84.97, -104.98, 0.29 )
	pt3dadd( 16.38, -85.58, -102.98, 0.29 )
	pt3dadd( 16.37, -86.45, -102.82, 0.29 )
	pt3dadd( 16.73, -87.49, -102.82, 0.29 )
	pt3dadd( 17, -88.26, -102.82, 0.29 )
	pt3dadd( 17.53, -88.94, -102.82, 0.29 )
	pt3dadd( 17.8, -89.72, -102.49, 0.29 )
	pt3dadd( 18.42, -91.53, -102.49, 0.29 )
    }
}

proc shape3d_basal1_20() {
    dend[ 40 ] { pt3dclear()
	pt3dadd( 38.16, 3.57, -15.44, 0.57 )
	pt3dadd( 41.6, 3.63, -14.58, 0.57 )
	pt3dadd( 43.29, 5.58, -16.04, 0.57 )
	pt3dadd( 44.7, 6.97, -17.77, 0.57 )
	pt3dadd( 46.52, 7.31, -18.14, 0.57 )
	pt3dadd( 48.81, 7.62, -19.71, 0.57 )
	pt3dadd( 49.36, 9, -21.11, 0.57 )
	pt3dadd( 50.52, 8.47, -21.98, 0.57 )
	pt3dadd( 52.25, 7.68, -23.17, 0.57 )
	pt3dadd( 53.95, 9.08, -24.3, 0.57 )
	pt3dadd( 55.37, 9.65, -25.6, 0.57 )
	pt3dadd( 57.66, 10.24, -27, 0.57 )
	pt3dadd( 58.79, 11.08, -27.97, 0.57 )
	pt3dadd( 60.49, 12.2, -28.62, 0.57 )
	pt3dadd( 61.63, 13.04, -29.32, 0.57 )
	pt3dadd( 61.91, 13.05, -29.92, 0.57 )
	pt3dadd( 63.06, 13.07, -30.51, 0.57 )
	pt3dadd( 64.19, 13.91, -31.27, 0.57 )
	pt3dadd( 65.91, 14.21, -31.32, 0.57 )
	pt3dadd( 67.04, 15.32, -32.78, 0.57 )
	pt3dadd( 67.89, 16.16, -32.83, 0.57 )
	pt3dadd( 68.72, 17.81, -32.83, 0.57 )
	pt3dadd( 70.14, 18.66, -33.91, 0.57 )
	pt3dadd( 71.85, 18.96, -33.91, 0.57 )
	pt3dadd( 73.77, 21.27, -35.05, 0.57 )
	pt3dadd( 76.62, 22.14, -36.13, 0.57 )
	pt3dadd( 78.31, 24.36, -36.13, 0.57 )
	pt3dadd( 79.73, 25.21, -38.07, 0.57 )
	pt3dadd( 81.71, 26.34, -38.56, 0.57 )
	pt3dadd( 82.85, 27.18, -39.69, 0.57 )
	pt3dadd( 83.99, 27.2, -39.8, 0.57 )
	pt3dadd( 84.84, 28.03, -40.23, 0.57 )
	pt3dadd( 86.84, 28.34, -40.23, 0.57 )
	pt3dadd( 88.55, 29.46, -40.28, 0.57 )
	pt3dadd( 88.53, 30.28, -40.45, 0.57 )
	pt3dadd( 89.96, 30.58, -40.5, 0.57 )
	pt3dadd( 91.1, 31.15, -41.53, 0.57 )
	pt3dadd( 92.52, 31.72, -42.34, 0.57 )
	pt3dadd( 93.93, 33.11, -43.2, 0.57 )
	pt3dadd( 95.07, 33.95, -44.33, 0.57 )
    }
}

proc shape3d_basal1_21() {
    dend[ 41 ] { pt3dclear()
	pt3dadd( 38.16, 3.57, -15.44, 0.57 )
	pt3dadd( 40.21, 2.98, -13.34, 0.57 )
	pt3dadd( 41.39, 1.36, -12.96, 0.57 )
	pt3dadd( 43.4, 0.84, -11.66, 0.57 )
	pt3dadd( 44.83, 1.14, -11.29, 0.57 )
	pt3dadd( 45.7, 0.61, -11.23, 0.57 )
	pt3dadd( 46.85, 0.36, -9.88, 0.57 )
	pt3dadd( 48.59, -0.43, -9.88, 0.57 )
	pt3dadd( 50.6, -0.67, -9.88, 0.57 )
	pt3dadd( 51.44, 0.44, -9.88, 0.57 )
	pt3dadd( 53.73, 1.02, -9.88, 0.57 )
	pt3dadd( 54.6, 0.22, -9.88, 0.57 )
	pt3dadd( 55.75, -0.03, -9.88, 0.57 )
	pt3dadd( 57.21, -1.1, -8.86, 0.57 )
	pt3dadd( 58.29, -0.91, -8.86, 1.43 )
	pt3dadd( 59.73, -0.09, -8.86, 1.43 )
	pt3dadd( 61.74, 0.46, -8.86, 1.43 )
	pt3dadd( 64.6, 0.46, -7.72, 1.43 )
	pt3dadd( 68.33, 0.46, -6.97, 1.43 )
	pt3dadd( 69.77, 1, -6.97, 1.15 )
	pt3dadd( 71.49, 1.55, -6.26, 1.15 )
	pt3dadd( 72.92, 2.1, -6.26, 1.15 )
	pt3dadd( 74.89, 1.86, -6.1, 1.15 )
	pt3dadd( 77.19, 1.59, -5.35, 1.15 )
	pt3dadd( 78.91, 1.32, -5.94, 1.15 )
	pt3dadd( 81.49, 1.32, -5.94, 1.15 )
	pt3dadd( 82.92, 2.14, -6.32, 1.15 )
	pt3dadd( 84.93, 0.77, -6.32, 1.15 )
	pt3dadd( 86.94, -0.33, -6.32, 1.15 )
	pt3dadd( 89.52, -0.05, -6.26, 1.15 )
	pt3dadd( 91.82, -1.15, -5.83, 1.15 )
	pt3dadd( 93.54, -1.97, -5.83, 1.15 )
	pt3dadd( 95.55, -3.06, -7.02, 1.15 )
	pt3dadd( 98.13, -3.33, -7.67, 1.15 )
	pt3dadd( 100.42, -3.61, -8.69, 1.15 )
	pt3dadd( 102.69, -3.76, -8.91, 1.15 )
	pt3dadd( 106.14, -4.58, -8.91, 1.15 )
	pt3dadd( 109.58, -4.58, -10.85, 1.15 )
	pt3dadd( 112.73, -4.04, -10.91, 1.15 )
	pt3dadd( 113.88, -3.49, -10.91, 1.15 )
	pt3dadd( 115.89, -2.4, -11.39, 1.15 )
	pt3dadd( 116.33, -0.78, -11.39, 1.43 )
	pt3dadd( 118.62, -0.19, -11.39, 1.43 )
	pt3dadd( 120.61, 0.66, -11.39, 1.43 )
	pt3dadd( 123.19, 0.71, -11.39, 1.43 )
	pt3dadd( 123.76, 0.72, -11.39, 1.43 )
	pt3dadd( 127.79, -0.03, -11.39, 1.43 )
	pt3dadd( 129.79, 0.82, -11.39, 1.43 )
	pt3dadd( 130.92, 1.66, -11.39, 1.43 )
	pt3dadd( 132.64, 1.69, -11.39, 1.43 )
	pt3dadd( 134.66, 1.94, -11.39, 1.15 )
	pt3dadd( 137.24, 2.48, -11.39, 1.15 )
	pt3dadd( 139.25, 3.03, -10.96, 1.15 )
	pt3dadd( 142.12, 2.21, -10.85, 1.15 )
	pt3dadd( 144.7, 1.66, -9.61, 1.15 )
	pt3dadd( 146.71, 1.12, -9.61, 1.15 )
	pt3dadd( 149, 1.66, -9.88, 1.15 )
	pt3dadd( 150.15, 2.21, -9.88, 1.15 )
	pt3dadd( 152.45, 1.66, -9.83, 1.15 )
	pt3dadd( 155.03, 2.76, -9.94, 1.15 )
	pt3dadd( 157.32, 3.58, -7.24, 1.15 )
	pt3dadd( 158.76, 4.12, -5.35, 1.15 )
	pt3dadd( 160.76, 3.85, -4.75, 1.15 )
	pt3dadd( 162.77, 3.85, -4.75, 1.15 )
	pt3dadd( 164.78, 4.94, -4.75, 1.15 )
	pt3dadd( 167.44, 5.22, -5.51, 1.15 )
	pt3dadd( 169.16, 4.67, -5.51, 1.15 )
	pt3dadd( 171.74, 4.4, -6.37, 1.15 )
	pt3dadd( 173.75, 3.58, -6.43, 1.15 )
	pt3dadd( 175.47, 2.49, -6.8, 1.15 )
	pt3dadd( 177.76, 1.94, -5.56, 1.15 )
	pt3dadd( 179.49, 0.85, -5.56, 1.15 )
	pt3dadd( 180.92, 0.3, -5.56, 1.15 )
	pt3dadd( 182.64, -0.8, -5.56, 1.15 )
	pt3dadd( 182.64, -2.44, -5.35, 1.15 )
	pt3dadd( 183.79, -4.35, -4.16, 1.15 )
	pt3dadd( 184.94, -5.99, -4.16, 1.15 )
	pt3dadd( 186.08, -7.63, -4.16, 1.15 )
	pt3dadd( 187.8, -10.09, -2.81, 1.15 )
	pt3dadd( 189.24, -10.64, -4.43, 1.15 )
	pt3dadd( 190.96, -10.64, -4.43, 1.15 )
	pt3dadd( 192.68, -11.46, -4.75, 1.15 )
	pt3dadd( 193.52, -11.83, -4.27, 1.15 )
	pt3dadd( 194.95, -13.74, -6.05, 1.15 )
	pt3dadd( 196.96, -14.83, -5.78, 1.15 )
	pt3dadd( 199.25, -15.93, -6.48, 1.15 )
	pt3dadd( 201.26, -18.12, -6.53, 1.15 )
	pt3dadd( 203.84, -17.57, -7.18, 1.15 )
	pt3dadd( 205.85, -18.12, -6.8, 1.15 )
	pt3dadd( 207.86, -18.94, -8.1, 1.15 )
	pt3dadd( 210.73, -19.21, -9.94, 1.15 )
	pt3dadd( 212.45, -18.39, -9.94, 1.15 )
	pt3dadd( 214.46, -17.57, -9.94, 1.15 )
	pt3dadd( 217.04, -16.75, -11.39, 1.15 )
	pt3dadd( 218.76, -16.2, -13.66, 1.15 )
	pt3dadd( 221.05, -16.48, -14.85, 1.15 )
	pt3dadd( 223.45, -16.93, -14.04, 1.15 )
	pt3dadd( 225.17, -17.2, -16.25, 1.15 )
    }
}

proc shape3d_basal1_22() {
    dend[ 42 ] { pt3dclear()
	pt3dadd( 95.07, 33.95, -44.33, 0.57 )
	pt3dadd( 98.22, 34.01, -43.58, 0.57 )
	pt3dadd( 101.41, 33.62, -44.55, 0.57 )
    }
}

proc shape3d_basal1_23() {
    dend[ 43 ] { pt3dclear()
	pt3dadd( 95.07, 33.95, -44.33, 0.57 )
	pt3dadd( 97.63, 36.02, -44.06, 0.57 )
	pt3dadd( 98.46, 37.95, -45.14, 0.57 )
	pt3dadd( 99.31, 38.78, -46.82, 0.57 )
	pt3dadd( 101.02, 39.36, -46.82, 0.57 )
	pt3dadd( 103.03, 39.39, -47.84, 0.57 )
	pt3dadd( 103.87, 40.5, -49.36, 0.57 )
	pt3dadd( 105.01, 41.07, -51.84, 0.57 )
	pt3dadd( 106.14, 41.64, -54.81, 0.57 )
    }
}

proc shape3d_basal1_24() {
    dend[ 44 ] { pt3dclear()
	pt3dadd( 106.14, 41.64, -54.81, 0.57 )
	pt3dadd( 107.32, 39.74, -55.94, 0.57 )
	pt3dadd( 106.77, 38.37, -57.67, 0.57 )
	pt3dadd( 106.59, 36.81, -59.24, 0.29 )
	pt3dadd( 105.78, 37.43, -61.51, 0.29 )
	pt3dadd( 105.76, 37.16, -63.34, 0.29 )
	pt3dadd( 104.35, 37.55, -63.45, 0.29 )
	pt3dadd( 103.31, 38.74, -64.8, 0.29 )
	pt3dadd( 103.02, 38.77, -67.61, 0.29 )
	pt3dadd( 102.45, 38.82, -69.28, 0.29 )
	pt3dadd( 102.19, 39.12, -70.42, 0.29 )
	pt3dadd( 102.23, 39.66, -72.14, 0.29 )
	pt3dadd( 102.38, 41.29, -73.12, 0.29 )
	pt3dadd( 102.47, 42.38, -73.06, 0.29 )
	pt3dadd( 102.26, 43.23, -74.57, 0.29 )
	pt3dadd( 102.07, 44.34, -75.01, 0.29 )
	pt3dadd( 101.83, 44.91, -75.71, 0.29 )
	pt3dadd( 101.04, 45.8, -76.73, 0.29 )
	pt3dadd( 99.38, 46.5, -77.6, 0.29 )
	pt3dadd( 98.52, 46.57, -78.68, 0.29 )
	pt3dadd( 97.16, 47.52, -79.38, 0.29 )
	pt3dadd( 95.45, 47.67, -80.51, 0.29 )
	pt3dadd( 95.57, 49.03, -81.97, 0.29 )
	pt3dadd( 95.69, 50.39, -83.21, 0.29 )
	pt3dadd( 95.8, 51.75, -83.75, 0.29 )
	pt3dadd( 95.81, 55.05, -84.35, 0.29 )
	pt3dadd( 95.31, 55.91, -85.21, 0.29 )
	pt3dadd( 95.45, 57.55, -85.21, 0.29 )
	pt3dadd( 94.78, 59.8, -86.45, 0.29 )
	pt3dadd( 95.23, 61.68, -86.45, 0.29 )
	pt3dadd( 94.47, 62.85, -86.45, 0.29 )
	pt3dadd( 94.02, 64.26, -86.45, 0.29 )
	pt3dadd( 93.81, 65.1, -86.51, 0.29 )
	pt3dadd( 93.9, 66.19, -86.51, 0.29 )
	pt3dadd( 93.14, 67.36, -87.86, 0.29 )
	pt3dadd( 92.88, 67.65, -85.48, 0.29 )
	pt3dadd( 92.69, 68.77, -85.1, 0.29 )
	pt3dadd( 92.26, 70.45, -86.67, 0.29 )
    }
}

proc shape3d_basal1_25() {
    dend[ 45 ] { pt3dclear()
	pt3dadd( 106.14, 41.64, -54.81, 0.57 )
	pt3dadd( 106.39, 43.83, -56.38, 0.57 )
	pt3dadd( 106.93, 46.03, -56.86, 0.57 )
	pt3dadd( 106.9, 47.67, -56.92, 0.57 )
	pt3dadd( 108.3, 49.33, -56.92, 0.57 )
	pt3dadd( 110, 51, -57.13, 0.57 )
	pt3dadd( 111.39, 53.22, -57.13, 0.57 )
	pt3dadd( 111.95, 54.32, -57.19, 0.57 )
	pt3dadd( 112.51, 55.15, -57.19, 0.57 )
	pt3dadd( 113.31, 55.65, -57.19, 0.29 )
	pt3dadd( 114.52, 56.37, -59.45, 0.29 )
	pt3dadd( 114.62, 57.46, -62.53, 0.29 )
	pt3dadd( 115.24, 57.96, -62.59, 0.29 )
	pt3dadd( 116.12, 58.15, -62.59, 0.29 )
	pt3dadd( 117.05, 58.9, -62.59, 0.29 )
	pt3dadd( 117.45, 60.23, -64.1, 0.29 )
	pt3dadd( 118.36, 60.7, -65.18, 0.29 )
	pt3dadd( 119.24, 60.9, -65.72, 0.29 )
	pt3dadd( 119.86, 61.39, -66.2, 0.29 )
	pt3dadd( 120.48, 61.89, -67.34, 0.29 )
	pt3dadd( 121.41, 62.63, -67.72, 0.29 )
	pt3dadd( 123.17, 63.03, -69.55, 0.29 )
	pt3dadd( 123.86, 64.34, -71.06, 0.29 )
	pt3dadd( 125.12, 65.6, -71.06, 0.29 )
	pt3dadd( 125.79, 66.64, -71.12, 0.29 )
	pt3dadd( 125.67, 68.57, -71.77, 0.29 )
	pt3dadd( 125.81, 70.21, -71.82, 0.29 )
	pt3dadd( 126.72, 70.68, -72.25, 0.29 )
	pt3dadd( 128.55, 71.89, -72.58, 0.29 )
	pt3dadd( 129.43, 72.09, -73.6, 0.29 )
	pt3dadd( 131.87, 72.4, -75.71, 0.29 )
	pt3dadd( 133.04, 72.57, -76.63, 0.29 )
	pt3dadd( 134.59, 73.81, -76.73, 0.29 )
	pt3dadd( 135.83, 74.8, -77.81, 0.29 )
	pt3dadd( 136.45, 75.29, -77.81, 0.29 )
	pt3dadd( 137.66, 76.01, -77.87, 0.29 )
	pt3dadd( 138.3, 76.78, -78.79, 0.29 )
	pt3dadd( 139.88, 78.29, -79.16, 0.29 )
	pt3dadd( 140.76, 78.48, -80.19, 0.29 )
	pt3dadd( 143.14, 79.37, -80.19, 0.29 )
	pt3dadd( 144.64, 80.07, -80.19, 0.29 )
	pt3dadd( 146.09, 80.21, -80.19, 0.29 )
	pt3dadd( 148.16, 80.86, -80.19, 0.29 )
	pt3dadd( 149.93, 81.25, -80.3, 0.29 )
	pt3dadd( 151.4, 81.67, -80.41, 0.29 )
	pt3dadd( 152.9, 82.36, -80.95, 0.29 )
	pt3dadd( 154.35, 82.51, -80.95, 0.29 )
	pt3dadd( 156.64, 82.31, -81.22, 0.29 )
	pt3dadd( 159.29, 81.9, -81.97, 0.29 )
	pt3dadd( 161.29, 81.72, -81.97, 0.29 )
	pt3dadd( 162.2, 82.19, -81.97, 0.29 )
    }
}

proc shape3d_apical_1() {
    dend[ 46 ] { pt3dclear()
	//	pt3dstyle(1, -12.073, -3.4287, -7.03175)
	pt3dadd( -18.9, 2.47, -7.18, 2.29 )
	pt3dadd( -20.33, 3.56, -7.18, 2.29 )
	pt3dadd( -21.48, 4.65, -7.18, 2.29 )
    }
}

proc shape3d_apical_2() {
    dend[ 47 ] { pt3dclear()
	pt3dadd( -21.48, 4.65, -7.18, 2.29 )
	pt3dadd( -23.2, 7.39, -7.18, 2.29 )
	pt3dadd( -23.49, 9.3, -7.78, 2.29 )
	pt3dadd( -25.5, 10.94, -9.34, 2.29 )
	pt3dadd( -26.07, 12.04, -9.34, 2.29 )
    }
}

proc shape3d_apical_3() {
    dend[ 48 ] { pt3dclear()
	pt3dadd( -21.48, 4.65, -7.18, 1.43 )
	pt3dadd( -22.32, 3.7, -5.29, 1.43 )
	pt3dadd( -24.04, 3.15, -2.7, 1.43 )
	pt3dadd( -25.48, 2.88, 0.65, 1.43 )
	pt3dadd( -26.91, 2.61, 0.86, 1.43 )
	pt3dadd( -28.92, 2.06, 0.86, 1.43 )
	pt3dadd( -29.78, 1.51, 0.92, 1.43 )
	pt3dadd( -30.35, 0.42, 0.92, 1.43 )
	pt3dadd( -31.22, -0.4, 0.92, 1.43 )
    }
}

proc shape3d_apical_4() {
    dend[ 49 ] { pt3dclear()
	pt3dadd( -26.07, 12.04, -9.34, 2.29 )
	pt3dadd( -27.79, 13.68, -9.34, 2.29 )
	pt3dadd( -28.37, 14.77, -9.34, 2.29 )
	pt3dadd( -30.09, 16.69, -9.34, 2.29 )
    }
}

proc shape3d_apical_5() {
    dend[ 50 ] { pt3dclear()
	pt3dadd( -26.07, 12.04, -9.34, 1.43 )
	pt3dadd( -26.54, 13.95, -10.1, 1.43 )
	pt3dadd( -27.12, 15.86, -10.91, 1.43 )
	pt3dadd( -27.98, 18.05, -11.34, 1.43 )
    }
}

proc shape3d_apical_6() {
    dend[ 51 ] { pt3dclear()
	pt3dadd( -31.22, -0.4, 0.92, 1.15 )
	pt3dadd( -32.36, -0.13, 2.97, 1.15 )
	pt3dadd( -33.51, -0.13, 4.91, 1.15 )
	pt3dadd( -34.66, -0.13, 7.18, 1.15 )
	pt3dadd( -37.24, -0.13, 7.61, 1.15 )
	pt3dadd( -38.39, -0.4, 7.67, 1.15 )
	pt3dadd( -39.82, -0.95, 7.67, 1.15 )
	pt3dadd( -41.54, -1.5, 8.32, 1.15 )
	pt3dadd( -42.69, -1.77, 9.45, 1.15 )
	pt3dadd( -44.12, -2.04, 10.48, 1.15 )
	pt3dadd( -45.84, -2.04, 10.85, 1.15 )
	pt3dadd( -46.42, -3.68, 12.58, 1.15 )
	pt3dadd( -48.14, -4.23, 13.34, 1.15 )
	pt3dadd( -50.15, -3.68, 14.9, 1.15 )
	pt3dadd( -51.58, -3.96, 18.41, 1.15 )
	pt3dadd( -52.73, -3.68, 22.95, 1.15 )
	pt3dadd( -54.45, -2.59, 25.92, 1.15 )
	pt3dadd( -55.31, -2.04, 29.16, 1.15 )
	pt3dadd( -56.46, -2.04, 29.21, 1.15 )
    }
}

proc shape3d_apical_7() {
    dend[ 52 ] { pt3dclear()
	pt3dadd( -31.22, -0.4, 0.92, 1.15 )
	pt3dadd( -31.5, -2.04, 2.75, 1.15 )
	pt3dadd( -31.79, -4.23, 4.27, 1.15 )
	pt3dadd( -32.65, -5.6, 4.32, 1.15 )
	pt3dadd( -32.94, -7.51, 5.4, 1.15 )
	pt3dadd( -32.08, -9.15, 5.45, 1.15 )
	pt3dadd( -31.5, -10.52, 5.45, 1.15 )
	pt3dadd( -32.36, -11.61, 6.75, 1.15 )
	pt3dadd( -32.94, -13.53, 7.13, 1.15 )
	pt3dadd( -33.22, -15.72, 7.67, 1.15 )
	pt3dadd( -34.08, -16.81, 7.94, 1.15 )
	pt3dadd( -34.08, -18.18, 7.94, 1.15 )
	pt3dadd( -34.66, -19.82, 7.94, 1.15 )
	pt3dadd( -33.8, -22.28, 7.94, 1.15 )
	pt3dadd( -33.8, -24.19, 7.94, 1.15 )
	pt3dadd( -32.36, -27.2, 8.8, 1.15 )
	pt3dadd( -31.79, -28.02, 9.67, 1.15 )
    }
}

proc shape3d_apical_8() {
    dend[ 53 ] { pt3dclear()
	pt3dadd( -30.09, 16.69, -9.34, 2.29 )
	pt3dadd( -31.52, 19.69, -9.34, 2.29 )
	pt3dadd( -32.96, 21.33, -9.34, 2.29 )
	pt3dadd( -34.39, 22.98, -9.34, 2.01 )
	pt3dadd( -34.96, 24.89, -10.96, 2.01 )
	pt3dadd( -35.54, 26.26, -9.13, 2.01 )
	pt3dadd( -36.11, 27.62, -9.4, 2.01 )
    }
}

proc shape3d_apical_9() {
    dend[ 54 ] { pt3dclear()
	pt3dadd( -30.09, 16.69, -9.34, 1.43 )
	pt3dadd( -31.87, 15.8, -9.34, 1.43 )
	pt3dadd( -34.16, 15.8, -9.34, 1.43 )
	pt3dadd( -35.88, 16.62, -10.26, 1.43 )
	pt3dadd( -38.18, 16.08, -8.91, 1.43 )
	pt3dadd( -39.9, 15.25, -8.91, 1.43 )
	pt3dadd( -41.62, 15.25, -8.91, 1.43 )
	pt3dadd( -41.91, 14.71, -8.91, 1.43 )
    }
}

proc shape3d_apical_10() {
    dend[ 55 ] { pt3dclear()
	pt3dadd( -27.98, 18.05, -11.34, 1.43 )
	pt3dadd( -29.41, 18.32, -10.91, 1.43 )
    }
}

proc shape3d_apical_11() {
    dend[ 56 ] { pt3dclear()
	pt3dadd( -27.98, 18.05, -11.34, 1.15 )
	pt3dadd( -28.26, 21.33, -13.66, 1.15 )
	pt3dadd( -28.84, 22.97, -13.66, 1.15 )
	pt3dadd( -28.84, 24.07, -15.44, 1.15 )
	pt3dadd( -27.98, 25.43, -19.01, 1.15 )
	pt3dadd( -27.12, 28.17, -19.76, 1.15 )
	pt3dadd( -27.4, 30.63, -19.76, 1.15 )
	pt3dadd( -27.4, 32.54, -19.71, 1.15 )
	pt3dadd( -25.54, 31.93, -19.71, 0.86 )
	pt3dadd( -25, 33.85, -19.71, 1.15 )
	pt3dadd( -25.03, 35.49, -19.71, 1.15 )
	pt3dadd( -24.22, 38.51, -22.09, 1.15 )
	pt3dadd( -23.69, 40.98, -21.28, 1.15 )
	pt3dadd( -22.85, 42.09, -21.28, 1.15 )
	pt3dadd( -21.74, 44.03, -21.28, 1.15 )
	pt3dadd( -20.34, 46.24, -21.22, 1.15 )
	pt3dadd( -18.65, 48.18, -21.22, 1.15 )
	pt3dadd( -16.97, 50.4, -21.22, 1.15 )
	pt3dadd( -16.43, 52.05, -21.22, 1.15 )
	pt3dadd( -15.6, 53.98, -21.22, 1.15 )
    }
}

proc shape3d_apical_12() {
    dend[ 57 ] { pt3dclear()
	pt3dadd( -31.79, -28.02, 9.67, 1.15 )
	pt3dadd( -32.94, -28.57, 9.67, 1.15 )
	pt3dadd( -33.8, -29.66, 9.67, 1.15 )
	pt3dadd( -35.23, -31.58, 10.53, 1.15 )
	pt3dadd( -36.09, -33.22, 10.58, 1.15 )
	pt3dadd( -36.38, -34.31, 9.88, 1.15 )
	pt3dadd( -35.8, -36.23, 9.83, 1.15 )
	pt3dadd( -35.52, -38.14, 9.83, 1.15 )
	pt3dadd( -36.09, -40.05, 9.83, 1.15 )
	pt3dadd( -37.24, -41.69, 9.83, 1.15 )
	pt3dadd( -38.67, -43.06, 9.83, 1.15 )
	pt3dadd( -39.53, -43.88, 9.83, 1.15 )
	pt3dadd( -40.39, -44.98, 9.83, 1.15 )
	pt3dadd( -41.26, -46.62, 9.83, 1.15 )
	pt3dadd( -41.83, -47.98, 9.83, 1.15 )
	pt3dadd( -40.97, -49.9, 9.99, 1.15 )
	pt3dadd( -40.97, -51.81, 11.29, 1.15 )
	pt3dadd( -40.97, -53.18, 11.34, 1.15 )
	pt3dadd( -40.97, -54.55, 12.31, 1.15 )
	pt3dadd( -40.97, -55.64, 12.26, 1.15 )
	pt3dadd( -41.54, -57.01, 10.85, 1.15 )
	pt3dadd( -41.76, -57.49, 11.12, 1.15 )
	pt3dadd( -43.76, -59.13, 11.29, 1.15 )
	pt3dadd( -44.62, -60.22, 12.74, 1.15 )
	pt3dadd( -46.06, -61.04, 12.47, 1.15 )
	pt3dadd( -46.92, -61.59, 14.09, 1.15 )
	pt3dadd( -47.78, -62.68, 14.96, 1.15 )
	pt3dadd( -48.35, -64.6, 16.42, 1.15 )
	pt3dadd( -48.93, -64.87, 17.39, 1.15 )
	pt3dadd( -50.93, -65.14, 17.39, 1.15 )
	pt3dadd( -52.94, -65.96, 17.39, 1.15 )
	pt3dadd( -54.95, -66.51, 17.39, 1.15 )
	pt3dadd( -56.1, -67.61, 17.39, 1.15 )
	pt3dadd( -57.53, -68.15, 17.39, 1.15 )
	pt3dadd( -57.82, -69.52, 17.39, 1.15 )
	pt3dadd( -59.25, -70.34, 17.39, 1.15 )
	pt3dadd( -59.83, -71.16, 18.68, 1.15 )
	pt3dadd( -60.4, -72.25, 19.76, 1.15 )
	pt3dadd( -61.26, -73.35, 18.79, 1.15 )
	pt3dadd( -62.12, -74.44, 18.79, 1.15 )
	pt3dadd( -64.13, -75.26, 20.09, 1.15 )
	pt3dadd( -64.99, -77.18, 22.19, 1.15 )
	pt3dadd( -64.99, -78.27, 25.54, 1.15 )
	pt3dadd( -67.29, -78.82, 28.89, 1.15 )
	pt3dadd( -68.72, -79.09, 32.13, 1.15 )
	pt3dadd( -68.43, -78.27, 32.13, 1.15 )
	pt3dadd( -69.29, -76.63, 35.37, 1.15 )
    }
}

proc shape3d_apical_13() {
    dend[ 58 ] { pt3dclear()
	pt3dadd( -31.79, -28.02, 9.67, 1.15 )
	pt3dadd( -30.85, -29.32, 9.5, 1.15 )
	pt3dadd( -30.28, -30.42, 10.48, 1.15 )
	pt3dadd( -29.42, -31.78, 10.96, 1.15 )
	pt3dadd( -29.13, -33.42, 11.45, 1.15 )
	pt3dadd( -28.85, -35.34, 11.5, 1.15 )
	pt3dadd( -28.85, -37.53, 12.2, 1.15 )
	pt3dadd( -29.42, -39.17, 12.85, 1.15 )
	pt3dadd( -30.28, -40.81, 13.82, 1.15 )
	pt3dadd( -31.43, -42.45, 13.82, 1.15 )
	pt3dadd( -32.29, -43.81, 13.82, 1.15 )
	pt3dadd( -32.29, -45.73, 14.31, 1.15 )
	pt3dadd( -32.58, -47.1, 15.12, 1.15 )
	pt3dadd( -32.58, -49.28, 16.09, 1.15 )
	pt3dadd( -31.72, -51.2, 16.15, 1.15 )
	pt3dadd( -32, -52.84, 16.15, 1.15 )
	pt3dadd( -31.43, -53.93, 16.15, 1.15 )
	pt3dadd( -31.43, -55.3, 17.17, 1.15 )
	pt3dadd( -31.72, -57.76, 18.25, 1.15 )
	pt3dadd( -30.85, -59.67, 19.39, 1.15 )
	pt3dadd( -30.28, -61.86, 21.17, 1.15 )
	pt3dadd( -28.85, -63.23, 22.14, 1.15 )
	pt3dadd( -27.41, -64.05, 22.14, 1.15 )
	pt3dadd( -25.4, -65.69, 23, 1.15 )
	pt3dadd( -25.12, -67.33, 23.81, 1.15 )
	pt3dadd( -24.26, -68.43, 25.54, 1.15 )
	pt3dadd( -23.4, -69.79, 26.78, 1.15 )
	pt3dadd( -22.54, -71.71, 27.97, 1.15 )
	pt3dadd( -21.96, -73.35, 29.21, 1.15 )
	pt3dadd( -22.25, -76.36, 29.21, 1.15 )
	pt3dadd( -21.1, -78.54, 30.24, 1.15 )
	pt3dadd( -20.53, -80.46, 30.24, 1.15 )
	pt3dadd( -20.53, -82.65, 30.24, 1.15 )
	pt3dadd( -19.95, -85.11, 31.05, 1.15 )
	pt3dadd( -19.67, -87.84, 31.59, 1.15 )
	pt3dadd( -18.23, -87.84, 31, 1.15 )
	pt3dadd( -17.09, -88.39, 31.05, 1.15 )
	pt3dadd( -15.53, -89.81, 30.29, 1.15 )
	pt3dadd( -13.24, -91.72, 30.29, 1.15 )
    }
}

proc shape3d_apical_14() {
    dend[ 59 ] { pt3dclear()
	pt3dadd( -36.11, 27.62, -9.4, 1.72 )
	pt3dadd( -38.69, 29.54, -10.31, 1.72 )
	pt3dadd( -40.41, 31.73, -10.37, 1.72 )
	pt3dadd( -42.14, 33.91, -10.91, 1.72 )
	pt3dadd( -43, 35.55, -10.96, 1.72 )
	pt3dadd( -43.86, 37.74, -11.88, 1.72 )
	pt3dadd( -45.29, 39.93, -13.18, 1.72 )
	pt3dadd( -47.01, 41.84, -13.23, 1.72 )
	pt3dadd( -48.45, 43.48, -13.23, 1.72 )
	pt3dadd( -49.59, 44.3, -13.28, 1.72 )
	pt3dadd( -51.03, 46.22, -13.34, 1.72 )
	pt3dadd( -50.74, 48.13, -13.34, 1.72 )
	pt3dadd( -51.6, 49.5, -13.34, 1.72 )
	pt3dadd( -52.75, 50.59, -13.34, 1.72 )
	pt3dadd( -54.46, 51.9, -13.72, 1.72 )
	pt3dadd( -55.9, 54.91, -13.72, 1.72 )
	pt3dadd( -57.33, 56.55, -13.82, 1.72 )
	pt3dadd( -58.48, 58.74, -13.82, 1.72 )
	pt3dadd( -59.05, 60.1, -13.82, 1.72 )
	pt3dadd( -60.77, 61.47, -13.82, 1.72 )
	pt3dadd( -62.21, 63.11, -13.82, 1.72 )
	pt3dadd( -64.22, 65.03, -13.82, 1.72 )
	pt3dadd( -65.08, 67.76, -13.82, 1.72 )
	pt3dadd( -66.8, 69.13, -13.82, 1.72 )
	pt3dadd( -67.66, 70.77, -13.93, 1.72 )
	pt3dadd( -69.09, 72.14, -13.93, 1.72 )
	pt3dadd( -69.95, 74.05, -14.47, 1.72 )
	pt3dadd( -71.39, 75.42, -14.47, 1.72 )
	pt3dadd( -73.68, 76.79, -14.53, 1.72 )
	pt3dadd( -74.26, 79.25, -14.53, 1.72 )
	pt3dadd( -75.98, 82.53, -15.34, 1.72 )
	pt3dadd( -77.13, 84.17, -15.61, 1.72 )
	pt3dadd( -77.99, 86.36, -15.34, 1.72 )
	pt3dadd( -79.13, 87.45, -16.69, 1.72 )
	pt3dadd( -80.85, 89.36, -16.2, 1.72 )
	pt3dadd( -82.58, 91.83, -16.2, 1.72 )
	pt3dadd( -83.15, 93.47, -16.2, 1.72 )
	pt3dadd( -84.01, 94.56, -16.2, 1.72 )
	pt3dadd( -84.3, 95.93, -16.31, 1.72 )
	pt3dadd( -85.44, 97.29, -15.66, 1.72 )
	pt3dadd( -86.59, 98.7, -16.2, 1.72 )
    }
}

proc shape3d_apical_15() {
    dend[ 60 ] { pt3dclear()
	pt3dadd( -36.11, 27.62, -9.4, 1.15 )
	pt3dadd( -35.88, 28.65, -6.59, 1.15 )
	pt3dadd( -36.46, 30.29, -4.27, 1.15 )
	pt3dadd( -36.74, 31.94, -1.13, 1.15 )
	pt3dadd( -36.17, 33.03, 0.59, 1.15 )
	pt3dadd( -37.03, 33.58, 0.59, 1.15 )
	pt3dadd( -36.17, 34.12, 3.67, 1.15 )
	pt3dadd( -35.59, 34.94, 7.4, 1.15 )
	pt3dadd( -35.31, 35.49, 12.04, 1.15 )
	pt3dadd( -33.87, 35.76, 14.74, 1.15 )
	pt3dadd( -32.73, 36.86, 15.71, 1.15 )
	pt3dadd( -31, 36.86, 17.82, 1.15 )
	pt3dadd( -28.71, 36.86, 19.39, 1.15 )
    }
}

proc shape3d_apical_16() {
    dend[ 61 ] { pt3dclear()
	pt3dadd( -41.91, 14.71, -8.91, 1.15 )
	pt3dadd( -43.34, 15.25, -8.64, 1.15 )
	pt3dadd( -44.77, 14.98, -6.21, 1.15 )
	pt3dadd( -45.92, 14.43, -5.51, 1.15 )
	pt3dadd( -48.79, 13.61, -4.7, 1.15 )
	pt3dadd( -50.05, 12.19, -3.29, 1.15 )
	pt3dadd( -51.66, 12.52, -2.16, 1.15 )
	pt3dadd( -53.67, 12.79, -1.35, 1.15 )
	pt3dadd( -55.39, 11.43, -0.7, 1.15 )
	pt3dadd( -57.11, 11.15, 1.08, 1.15 )
	pt3dadd( -58.83, 11.7, 0.11, 1.15 )
	pt3dadd( -60.55, 11.15, 5.78, 1.15 )
	pt3dadd( -62.27, 11.15, 6.21, 1.15 )
	pt3dadd( -63.42, 11.7, 7.24, 1.15 )
	pt3dadd( -65.14, 10.88, 7.99, 1.15 )
	pt3dadd( -65.72, 9.79, 9.45, 1.15 )
	pt3dadd( -66.86, 8.42, 9.67, 1.15 )
	pt3dadd( -68.3, 8.69, 10.75, 1.15 )
	pt3dadd( -69.44, 8.69, 11.56, 1.15 )
	pt3dadd( -70.59, 8.15, 11.61, 1.15 )
	pt3dadd( -71.74, 8.42, 11.61, 1.15 )
    }
}

proc shape3d_apical_17() {
    dend[ 62 ] { pt3dclear()
	pt3dadd( -41.91, 14.71, -8.91, 1.15 )
	pt3dadd( -43.2, 14.01, -11.99, 1.15 )
	pt3dadd( -44.06, 14.56, -13.07, 1.15 )
	pt3dadd( -46.64, 13.19, -11.18, 1.15 )
	pt3dadd( -47.76, 13.39, -11.18, 1.15 )
    }
}

proc shape3d_apical_18() {
    dend[ 63 ] { pt3dclear()
	pt3dadd( -15.6, 53.98, -21.22, 1.15 )
	pt3dadd( -16.2, 55.34, -21.22, 1.15 )
	pt3dadd( -16.5, 56.43, -21.22, 1.15 )
	pt3dadd( -17.44, 57.53, -21.65, 1.15 )
	pt3dadd( -17.44, 59.45, -21.76, 1.15 )
	pt3dadd( -18.3, 60.81, -20.09, 1.15 )
	pt3dadd( -18.3, 62.18, -20.09, 1.15 )
	pt3dadd( -18.87, 63.82, -19.82, 1.15 )
	pt3dadd( -18.87, 65.74, -18.36, 1.15 )
	pt3dadd( -19.73, 67.1, -17.01, 1.15 )
	pt3dadd( -20.31, 69.02, -16.96, 1.15 )
	pt3dadd( -22.03, 70.11, -16.96, 1.15 )
	pt3dadd( -22.89, 71.21, -15.61, 1.15 )
	pt3dadd( -23.46, 72.03, -14.36, 1.15 )
	pt3dadd( -24.04, 73.67, -14.36, 1.15 )
	pt3dadd( -24.04, 75.31, -13.61, 1.15 )
	pt3dadd( -24.61, 76.67, -12.64, 1.15 )
	pt3dadd( -25.18, 78.31, -11.61, 1.15 )
	pt3dadd( -25.76, 80.23, -11.45, 1.15 )
	pt3dadd( -26.9, 80.78, -11.07, 1.15 )
	pt3dadd( -28.62, 82.14, -10.21, 1.15 )
	pt3dadd( -30.63, 82.96, -8.59, 1.15 )
	pt3dadd( -31.78, 83.78, -8.42, 1.15 )
	pt3dadd( -32.07, 85.15, -7.02, 1.15 )
	pt3dadd( -32.35, 87.07, -5.02, 1.15 )
	pt3dadd( -33.21, 88.71, -4.37, 1.15 )
	pt3dadd( -33.21, 91.17, -2.97, 1.15 )
	pt3dadd( -33.79, 92.53, -2.92, 0.86 )
	pt3dadd( -34.65, 93.63, -2.16, 0.86 )
	pt3dadd( -35.8, 95, -1.4, 0.86 )
	pt3dadd( -36.08, 96.91, -0.81, 0.86 )
	pt3dadd( -36.94, 97.73, -0.81, 0.86 )
	pt3dadd( -37.8, 99.1, -0.16, 0.86 )
	pt3dadd( -38.38, 100.46, 0.81, 0.86 )
	pt3dadd( -40.1, 102.38, 1.62, 0.86 )
	pt3dadd( -40.1, 104.57, 1.62, 0.86 )
	pt3dadd( -40.96, 105.11, 2.05, 0.86 )
	pt3dadd( -41.53, 106.21, 2.59, 0.86 )
	pt3dadd( -42.97, 107.57, 2.59, 0.86 )
	pt3dadd( -43.54, 109.76, 2.59, 0.86 )
	pt3dadd( -44.22, 111.3, 2.86, 0.86 )
	pt3dadd( -44.22, 113.22, 2.86, 0.86 )
	pt3dadd( -45.36, 114.31, 3.83, 0.86 )
	pt3dadd( -46.51, 117.04, 4.86, 0.86 )
	pt3dadd( -47.66, 118.41, 6.26, 0.86 )
	pt3dadd( -48.81, 119.23, 6.26, 0.86 )
	pt3dadd( -50.53, 121.15, 6.26, 0.86 )
	pt3dadd( -50.81, 122.51, 6.26, 0.86 )
	pt3dadd( -51.67, 123.61, 7.02, 0.86 )
	pt3dadd( -52.82, 123.88, 8.42, 0.86 )
	pt3dadd( -53.68, 124.43, 8.42, 0.86 )
	pt3dadd( -54.54, 126.34, 8.42, 0.86 )
	pt3dadd( -55.4, 127.71, 8.75, 0.86 )
	pt3dadd( -57.12, 129.35, 8.8, 0.86 )
	pt3dadd( -58.27, 129.35, 8.8, 0.86 )
	pt3dadd( -58.56, 130.99, 8.8, 0.86 )
	pt3dadd( -59.42, 132.08, 8.8, 0.86 )
	pt3dadd( -60.85, 132.63, 9.29, 0.86 )
	pt3dadd( -62, 133.73, 9.29, 0.86 )
	pt3dadd( -63.15, 135.91, 9.83, 0.86 )
	pt3dadd( -64.58, 137.55, 9.88, 0.86 )
	pt3dadd( -65.16, 138.65, 9.88, 0.86 )
	pt3dadd( -65.16, 140.56, 9.88, 0.86 )
	pt3dadd( -66.88, 142.48, 10.53, 0.86 )
	pt3dadd( -67.74, 144.12, 10.26, 0.86 )
	pt3dadd( -68.6, 145.21, 10.31, 0.86 )
	pt3dadd( -70.03, 146.58, 9.29, 0.86 )
	pt3dadd( -71.18, 147.94, 7.83, 0.86 )
	pt3dadd( -72.9, 148.77, 7.83, 0.86 )
	pt3dadd( -74.05, 150.13, 6.75, 0.86 )
	pt3dadd( -75.77, 150.13, 6.75, 0.86 )
	pt3dadd( -76.92, 150.41, 5.99, 0.86 )
	pt3dadd( -78.93, 151.5, 5.99, 0.86 )
	pt3dadd( -80.07, 152.59, 5.18, 0.86 )
	pt3dadd( -80.93, 153.96, 5.18, 0.86 )
	pt3dadd( -82.08, 155.05, 5.18, 0.86 )
	pt3dadd( -82.37, 156.7, 5.18, 0.86 )
	pt3dadd( -83.39, 159.2, 5.99, 0.86 )
	pt3dadd( -83.96, 161.66, 5.99, 0.86 )
	pt3dadd( -85.4, 163.84, 5.99, 0.86 )
	pt3dadd( -85.68, 165.49, 6.32, 0.86 )
	pt3dadd( -86.26, 167.95, 7.4, 0.86 )
	pt3dadd( -86.55, 169.59, 8.1, 0.86 )
	pt3dadd( -86.55, 171.5, 9.23, 0.86 )
	pt3dadd( -87.12, 173.69, 9.23, 0.86 )
	pt3dadd( -87.98, 175.06, 9.23, 0.86 )
	pt3dadd( -88.55, 176.7, 9.23, 0.86 )
	pt3dadd( -89.41, 178.06, 9.99, 0.86 )
	pt3dadd( -90.56, 179.16, 9.67, 0.86 )
	pt3dadd( -92, 179.98, 8.53, 0.86 )
	pt3dadd( -92.86, 181.07, 8.48, 0.86 )
	pt3dadd( -94.58, 182.99, 8.05, 0.86 )
	pt3dadd( -96.59, 183.81, 6.97, 0.86 )
	pt3dadd( -98.31, 184.63, 6.1, 0.86 )
	pt3dadd( -100.03, 185.99, 6.1, 0.86 )
	pt3dadd( -100.03, 188.46, 6.1, 0.86 )
	pt3dadd( -99.74, 190.64, 5.4, 0.86 )
	pt3dadd( -98.88, 192.28, 4.75, 0.86 )
	pt3dadd( -98.31, 193.92, 4.75, 0.86 )
	pt3dadd( -97.73, 195.02, 3.94, 0.86 )
	pt3dadd( -97.45, 196.66, 5.18, 0.86 )
	pt3dadd( -98.31, 199.12, 4.7, 0.86 )
	pt3dadd( -99.17, 201.03, 3.73, 0.86 )
	pt3dadd( -99.17, 202.13, 3.73, 0.86 )
	pt3dadd( -98.88, 203.22, 2.38, 0.86 )
	pt3dadd( -98.84, 204.88, 2.75, 0.86 )
	pt3dadd( -101.42, 207.61, 0.97, 0.86 )
	pt3dadd( -102.28, 208.98, -0.05, 0.86 )
	pt3dadd( -103.43, 210.07, -1.19, 0.86 )
	pt3dadd( -104.58, 210.89, -1.19, 0.86 )
    }
}

proc shape3d_apical_19() {
    dend[ 64 ] { pt3dclear()
	pt3dadd( -15.6, 53.98, -21.22, 0.86 )
	pt3dadd( -13.9, 55.1, -21.22, 0.86 )
	pt3dadd( -11.9, 55.96, -21.22, 0.86 )
	pt3dadd( -9.92, 57.36, -20.57, 0.86 )
	pt3dadd( -9.66, 58.73, -20.09, 0.86 )
	pt3dadd( -8.53, 59.85, -20.79, 0.86 )
	pt3dadd( -7.39, 60.14, -20.3, 0.86 )
    }
}

proc shape3d_apical_20() {
    dend[ 65 ] { pt3dclear()
	pt3dadd( -86.59, 98.7, -16.2, 1.72 )
	pt3dadd( -88.02, 100.89, -16.15, 1.72 )
	pt3dadd( -88.88, 104.44, -15.61, 1.72 )
	pt3dadd( -90.03, 106.09, -15.61, 1.72 )
	pt3dadd( -91.18, 107.73, -14.74, 1.72 )
	pt3dadd( -92.04, 109.37, -15.44, 1.72 )
	pt3dadd( -93.47, 110.19, -15.44, 1.72 )
	pt3dadd( -95.77, 111.83, -15.44, 1.72 )
	pt3dadd( -96.63, 113.19, -16.2, 1.72 )
	pt3dadd( -97.49, 116.48, -16.31, 1.72 )
	pt3dadd( -99.21, 119.21, -16.31, 1.72 )
	pt3dadd( -100.65, 122.22, -15.44, 1.72 )
	pt3dadd( -100.93, 123.86, -15.44, 1.72 )
	pt3dadd( -101.51, 126.32, -15.44, 1.72 )
	pt3dadd( -102.94, 127.96, -14.69, 1.72 )
	pt3dadd( -104.95, 129.33, -15.23, 1.72 )
	pt3dadd( -106.1, 130.15, -15.23, 1.72 )
	pt3dadd( -106.96, 131.79, -15.23, 1.72 )
	pt3dadd( -107.82, 134.8, -15.5, 1.72 )
	pt3dadd( -108.39, 136.99, -15.55, 1.72 )
	pt3dadd( -109.25, 138.35, -15.55, 1.72 )
	pt3dadd( -110.11, 140.27, -15.28, 1.72 )
	pt3dadd( -111.26, 142.45, -15.28, 1.72 )
	pt3dadd( -112.69, 144.37, -15.28, 1.72 )
	pt3dadd( -113.5, 147.54, -15.39, 1.72 )
	pt3dadd( -115.51, 151.1, -15.39, 1.72 )
	pt3dadd( -116.66, 153.56, -15.01, 1.72 )
	pt3dadd( -118.38, 157.39, -15.71, 1.72 )
	pt3dadd( -119.81, 161.49, -16.25, 1.72 )
	pt3dadd( -120.67, 164.77, -14.15, 1.72 )
	pt3dadd( -121.82, 167.51, -14.09, 1.72 )
	pt3dadd( -123.26, 170.24, -13.45, 1.72 )
	pt3dadd( -124.12, 173.79, -12.64, 1.72 )
	pt3dadd( -126.7, 175.71, -11.45, 1.72 )
	pt3dadd( -127.56, 178.44, -12.69, 1.72 )
	pt3dadd( -129.85, 180.9, -13.45, 1.72 )
	pt3dadd( -131, 183.37, -13.45, 1.72 )
	pt3dadd( -131.58, 186.1, -13.18, 1.72 )
	pt3dadd( -133.01, 187.74, -12.2, 1.72 )
	pt3dadd( -133.87, 190.2, -12.2, 1.72 )
	pt3dadd( -134.16, 191.57, -12.2, 1.72 )
	pt3dadd( -135.39, 193.82, -12.69, 1.72 )
	pt3dadd( -137.11, 196.83, -12.69, 1.72 )
	pt3dadd( -138.83, 198.75, -12.96, 1.72 )
	pt3dadd( -139.41, 201.21, -11.39, 1.72 )
	pt3dadd( -140.27, 204.21, -11.39, 1.72 )
	pt3dadd( -141.99, 206.68, -11.39, 1.72 )
	pt3dadd( -143.42, 207.5, -10.91, 1.72 )
	pt3dadd( -144, 209.14, -10.91, 1.72 )
	pt3dadd( -144, 211.32, -10.21, 1.72 )
	pt3dadd( -144.57, 213.79, -11.45, 1.72 )
	pt3dadd( -146.29, 216.79, -11.45, 1.72 )
	pt3dadd( -147.44, 219.25, -11.77, 1.72 )
	pt3dadd( -148.3, 220.9, -11.61, 1.72 )
	pt3dadd( -148.87, 223.36, -11.66, 1.72 )
	pt3dadd( -150.88, 225.82, -12.91, 1.72 )
	pt3dadd( -152.32, 228.28, -12.47, 1.72 )
	pt3dadd( -153.18, 229.37, -11.39, 1.72 )
	pt3dadd( -153.18, 231.56, -11.39, 1.72 )
	pt3dadd( -154.04, 233.75, -11.45, 1.72 )
	pt3dadd( -154.32, 234.84, -11.45, 1.72 )
    }
}

proc shape3d_apical_21() {
    dend[ 66 ] { pt3dclear()
	pt3dadd( -86.59, 98.7, -16.2, 1.72 )
	pt3dadd( -87.04, 98.21, -17.98, 1.72 )
	pt3dadd( -88.76, 97.94, -21.49, 1.72 )
	pt3dadd( -89.62, 97.94, -24.73, 1.72 )
	pt3dadd( -88.89, 96.78, -24.73, 0.57 )
	pt3dadd( -89.45, 95.95, -24.73, 0.57 )
	pt3dadd( -89.13, 94.31, -24.73, 0.57 )
	pt3dadd( -87.96, 92.69, -24.73, 0.57 )
	pt3dadd( -87.38, 92.7, -24.73, 0.57 )
	pt3dadd( -85.64, 91.64, -24.79, 0.57 )
	pt3dadd( -85.64, 91.64, -26.03, 0.57 )
	pt3dadd( -85.06, 90.83, -26.89, 0.57 )
    }
}

proc shape3d_apical_22() {
    dend[ 67 ] { pt3dclear()
	pt3dadd( -71.74, 8.42, 11.61, 1.15 )
	pt3dadd( -72.89, 7.87, 11.99, 1.15 )
	pt3dadd( -74.32, 7.32, 14.74, 1.15 )
	pt3dadd( -75.76, 6.5, 18.68, 1.15 )
	pt3dadd( -76.04, 5.96, 18.25, 1.15 )
	pt3dadd( -77.19, 4.86, 16.85, 1.15 )
	pt3dadd( -78.05, 5.96, 20.84, 1.15 )
	pt3dadd( -78.91, 6.5, 21.11, 1.15 )
	pt3dadd( -80.06, 7.05, 21.11, 1.15 )
	pt3dadd( -80.92, 8.69, 22.57, 1.15 )
	pt3dadd( -81.49, 10.06, 24.46, 1.15 )
	pt3dadd( -82.64, 10.61, 26.62, 1.15 )
	pt3dadd( -84.65, 10.88, 25.43, 1.15 )
    }
}

proc shape3d_apical_23() {
    dend[ 68 ] { pt3dclear()
	pt3dadd( -71.74, 8.42, 11.61, 1.15 )
	pt3dadd( -71.45, 6.78, 11.66, 1.15 )
	pt3dadd( -72.31, 4.86, 13.82, 1.15 )
	pt3dadd( -71.45, 2.68, 15.93, 1.15 )
	pt3dadd( -71.17, 1.04, 15.93, 1.15 )
	pt3dadd( -71.17, -0.61, 15.93, 1.15 )
	pt3dadd( -71.74, -2.25, 15.93, 1.15 )
	pt3dadd( -72.03, -3.89, 15.93, 1.15 )
	pt3dadd( -72.92, -5.13, 17.6, 1.15 )
	pt3dadd( -73.2, -7.05, 17.6, 1.15 )
	pt3dadd( -73.49, -8.69, 18.79, 1.15 )
	pt3dadd( -73.78, -10.6, 18.79, 1.15 )
	pt3dadd( -73.78, -12.24, 20.68, 1.15 )
	pt3dadd( -74.35, -14.16, 21.82, 1.15 )
	pt3dadd( -74.64, -15.52, 21.82, 1.15 )
	pt3dadd( -75.21, -16.62, 22.25, 1.15 )
	pt3dadd( -75.21, -18.53, 22.25, 1.15 )
	pt3dadd( -74.64, -19.9, 22.25, 1.15 )
	pt3dadd( -74.06, -21.27, 22.25, 1.15 )
	pt3dadd( -74.06, -24.55, 22.57, 1.15 )
	pt3dadd( -74.92, -26.19, 22.57, 1.15 )
	pt3dadd( -75.21, -27.83, 22.57, 1.15 )
	pt3dadd( -74.64, -30.02, 23.81, 1.15 )
	pt3dadd( -74.64, -31.93, 23.92, 1.15 )
	pt3dadd( -75.21, -33.57, 25.06, 1.15 )
	pt3dadd( -75.78, -36.03, 26.35, 1.15 )
	pt3dadd( -75.84, -37.85, 26.08, 1.15 )
	pt3dadd( -75.56, -39.77, 27.86, 1.15 )
	pt3dadd( -74.98, -41.68, 29.48, 1.15 )
	pt3dadd( -74.12, -43.6, 30.29, 1.15 )
	pt3dadd( -74.12, -45.24, 30.35, 1.15 )
    }
}

proc shape3d_apical_24() {
    dend[ 69 ] { pt3dclear()
	pt3dadd( -47.76, 13.39, -11.18, 1.15 )
	pt3dadd( -48.08, 13.47, -15.5, 1.15 )
	pt3dadd( -51.23, 13.19, -15.5, 1.15 )
	pt3dadd( -52.38, 12.1, -15.5, 1.15 )
	pt3dadd( -54.96, 11.55, -15.77, 1.15 )
	pt3dadd( -57.26, 11.83, -14.04, 1.15 )
	pt3dadd( -59.27, 12.1, -13.99, 1.15 )
	pt3dadd( -61.56, 12.1, -13.99, 1.15 )
	pt3dadd( -64.43, 12.65, -13.66, 1.15 )
	pt3dadd( -66.44, 12.92, -11.34, 1.15 )
	pt3dadd( -69.59, 12.92, -10.04, 1.15 )
	pt3dadd( -71.89, 12.1, -8.37, 1.15 )
	pt3dadd( -74.76, 11.01, -7.07, 1.15 )
	pt3dadd( -76.19, 10.46, -6.86, 1.15 )
	pt3dadd( -79.63, 10.46, -5.99, 1.15 )
	pt3dadd( -81.07, 10.19, -5.99, 1.15 )
	pt3dadd( -83.08, 9.91, -5.89, 1.15 )
	pt3dadd( -85.37, 10.19, -6.64, 1.15 )
	pt3dadd( -88.24, 11.28, -6.64, 1.15 )
	pt3dadd( -89.1, 11.28, -6.16, 1.15 )
	pt3dadd( -91.4, 12.1, -6.05, 1.15 )
	pt3dadd( -92.54, 12.1, -3.73, 1.15 )
	pt3dadd( -94.84, 12.92, -3.62, 1.15 )
	pt3dadd( -95.99, 15.11, -2.7, 1.15 )
	pt3dadd( -96.85, 15.65, -2, 1.15 )
	pt3dadd( -99.43, 16.2, -1.94, 1.15 )
	pt3dadd( -100.86, 16.75, -1.94, 1.15 )
	pt3dadd( -101.44, 17.57, -1.94, 1.15 )
	pt3dadd( -102.3, 18.94, -1.94, 1.15 )
    }
}

proc shape3d_apical_25() {
    dend[ 70 ] { pt3dclear()
	pt3dadd( -47.76, 13.39, -11.18, 1.15 )
	pt3dadd( -47.16, 11.76, -13.72, 1.15 )
	pt3dadd( -48.3, 11.46, -19.71, 1.15 )
	pt3dadd( -48.59, 11.46, -21.98, 1.15 )
    }
}

proc shape3d_apical_26() {
    dend[ 71 ] { pt3dclear()
	pt3dadd( -7.39, 60.14, -20.3, 0.86 )
	pt3dadd( -4.24, 60.74, -20.3, 0.86 )
	pt3dadd( -2.53, 61.32, -20.3, 0.86 )
	pt3dadd( -1.1, 61.62, -20.3, 0.86 )
	pt3dadd( 0.04, 61.91, -20.3, 0.86 )
	pt3dadd( 1.76, 61.94, -20.3, 0.86 )
	pt3dadd( 2.9, 62.23, -20.3, 0.86 )
	pt3dadd( 4.32, 63.08, -20.3, 0.86 )
	pt3dadd( 5.74, 63.93, -20.3, 0.86 )
	pt3dadd( 6.94, 64.85, -19.22, 0.86 )
	pt3dadd( 8.93, 65.7, -20.52, 0.86 )
	pt3dadd( 10.35, 66.82, -20.52, 0.86 )
	pt3dadd( 11.76, 68.21, -21.17, 0.86 )
	pt3dadd( 12.89, 69.05, -21.17, 0.86 )
	pt3dadd( 13.74, 69.62, -21.17, 0.57 )
	pt3dadd( 15.45, 70.19, -23.17, 0.57 )
	pt3dadd( 17.45, 70.5, -23.27, 0.57 )
	pt3dadd( 18.88, 71.07, -23.27, 0.57 )
	pt3dadd( 19.73, 71.63, -23.27, 0.57 )
	pt3dadd( 21.42, 73.58, -23.87, 0.57 )
	pt3dadd( 22.82, 75.24, -23.87, 0.57 )
	pt3dadd( 24.79, 77.47, -24.84, 0.57 )
	pt3dadd( 25.06, 78.56, -24.84, 0.57 )
	pt3dadd( 25.6, 80.49, -24.84, 0.57 )
	pt3dadd( 26.15, 81.87, -27.92, 0.57 )
	pt3dadd( 27.29, 82.16, -27.92, 0.57 )
	pt3dadd( 29.57, 83.29, -30.13, 0.57 )
	pt3dadd( 30.71, 83.59, -33.16, 0.57 )
	pt3dadd( 31.84, 84.7, -33.32, 0.57 )
	pt3dadd( 33.07, 86.35, -34.99, 0.57 )
	pt3dadd( 34.18, 88.01, -36.83, 0.57 )
	pt3dadd( 34.72, 90.21, -36.83, 0.57 )
	pt3dadd( 35.84, 91.6, -39.1, 0.57 )
	pt3dadd( 36.71, 91.34, -39.96, 0.57 )
	pt3dadd( 38.13, 92.19, -41.85, 0.57 )
	pt3dadd( 39.28, 91.93, -43.52, 0.57 )
	pt3dadd( 39.55, 93.03, -45.95, 0.57 )
	pt3dadd( 39.82, 94.13, -49.19, 0.57 )
	pt3dadd( 40.93, 95.79, -49.3, 0.57 )
	pt3dadd( 40.35, 96.6, -52.81, 0.57 )
	pt3dadd( 39.18, 97.67, -55.08, 0.57 )
	pt3dadd( 39.45, 98.77, -56.65, 0.57 )
	pt3dadd( 40.58, 99.89, -56.97, 0.57 )
	pt3dadd( 41.14, 100.72, -58.91, 0.57 )
	pt3dadd( 41.4, 101.81, -61.13, 0.57 )
	pt3dadd( 41.96, 102.64, -63.29, 0.57 )
	pt3dadd( 41.95, 103.47, -64.75, 0.57 )
	pt3dadd( 41.94, 104.01, -66.26, 0.57 )
	pt3dadd( 41.92, 105.38, -66.58, 0.57 )
	pt3dadd( 41.61, 106.47, -67.39, 0.57 )
	pt3dadd( 41.31, 107.28, -67.5, 0.57 )
	pt3dadd( 42.58, 106.98, -67.5, 0.57 )
	pt3dadd( 43.24, 108.02, -69.82, 0.57 )
	pt3dadd( 43.96, 109.6, -69.82, 0.57 )
	pt3dadd( 44.41, 111.48, -69.82, 0.57 )
	pt3dadd( 44.48, 112.3, -69.82, 0.57 )
	pt3dadd( 45.72, 113.29, -70.25, 0.57 )
	pt3dadd( 46.98, 114.55, -71.17, 0.57 )
	pt3dadd( 47.91, 115.3, -71.93, 0.57 )
	pt3dadd( 49.7, 115.96, -72.31, 0.57 )
	pt3dadd( 51.25, 117.2, -72.31, 0.57 )
	pt3dadd( 52.39, 117.1, -72.31, 0.29 )
	pt3dadd( 54.22, 118.31, -75.28, 0.29 )
	pt3dadd( 54.42, 119.9, -75.28, 0.29 )
	pt3dadd( 54.59, 121.8, -77.33, 0.29 )
	pt3dadd( 55.59, 123.36, -77.44, 0.29 )
	pt3dadd( 56.23, 124.13, -79.38, 0.29 )
	pt3dadd( 57.83, 125.91, -79.43, 0.29 )
	pt3dadd( 57.4, 127.6, -81.65, 0.29 )
	pt3dadd( 57.73, 128.12, -81.65, 0.29 )
	pt3dadd( 58.38, 128.88, -81.65, 0.29 )
	pt3dadd( 59.4, 130.72, -81.65, 0.29 )
	pt3dadd( 60.35, 131.73, -84.62, 0.29 )
	pt3dadd( 61.04, 133.04, -84.73, 0.29 )
	pt3dadd( 61.16, 134.4, -86.29, 0.29 )
	pt3dadd( 61.26, 135.49, -86.83, 0.29 )
	pt3dadd( 61.33, 136.31, -88.02, 0.29 )
	pt3dadd( 61.21, 138.24, -88.02, 0.29 )
	pt3dadd( 60.69, 138.84, -88.02, 0.29 )
	pt3dadd( 60.21, 139.98, -89.96, 0.29 )
	pt3dadd( 60.28, 140.8, -89.96, 0.29 )
	pt3dadd( 60.66, 141.86, -91.64, 0.29 )
	pt3dadd( 60.76, 142.95, -91.64, 0.29 )
	pt3dadd( 60.26, 143.82, -91.64, 0.29 )
	pt3dadd( 60.4, 145.45, -93.2, 0.29 )
	pt3dadd( 60.54, 147.09, -94.12, 0.29 )
	pt3dadd( 60.64, 148.18, -94.12, 0.29 )
	pt3dadd( 60.74, 149.27, -94.93, 0.29 )
	pt3dadd( 60.28, 150.68, -95.04, 0.29 )
	pt3dadd( 59.74, 151, -95.04, 0.29 )
	pt3dadd( 58.93, 151.62, -97.2, 0.29 )
	pt3dadd( 58.43, 152.49, -98.6, 0.29 )
	pt3dadd( 57.69, 153.92, -98.6, 0.29 )
	pt3dadd( 56.9, 154.82, -100.12, 0.29 )
	pt3dadd( 56.69, 155.66, -100.17, 0.29 )
	pt3dadd( 56.54, 157.32, -100.01, 0.29 )
	pt3dadd( 56.07, 158.46, -101.36, 0.29 )
	pt3dadd( 55.64, 160.14, -101.25, 0.29 )
	pt3dadd( 55.16, 161.28, -101.25, 0.29 )
	pt3dadd( 54.64, 161.88, -101.25, 0.29 )
	pt3dadd( 54.71, 162.69, -101.25, 0.29 )
	pt3dadd( 55.14, 164.3, -102.38, 0.29 )
	pt3dadd( 54.88, 164.6, -102.38, 0.29 )
	pt3dadd( 54.4, 165.74, -103.73, 0.29 )
	pt3dadd( 55.01, 166.78, -104.49, 0.29 )
	pt3dadd( 55.13, 168.14, -104.54, 0.29 )
	pt3dadd( 55.61, 170.29, -106.11, 0.29 )
	pt3dadd( 55.42, 171.41, -107.57, 0.29 )
	pt3dadd( 56.06, 172.18, -108.49, 0.29 )
	pt3dadd( 56.7, 172.94, -110.92, 0.29 )
	pt3dadd( 56.42, 172.97, -113.78, 0.29 )
	pt3dadd( 57.54, 172.6, -115.67, 0.29 )
	pt3dadd( 58.59, 173.28, -115.67, 0.29 )
	pt3dadd( 59.41, 174.43, -117.67, 0.29 )
	pt3dadd( 60.76, 174.9, -119.23, 0.29 )
	pt3dadd( 61.48, 174.56, -119.39, 0.29 )
	pt3dadd( 61.66, 174.05, -120.96, 0.29 )
	pt3dadd( 62.66, 174.68, -123.55, 0.29 )
	pt3dadd( 63.56, 175.57, -125.39, 0.29 )
	pt3dadd( 64.2, 176.37, -126.36, 0.29 )
	pt3dadd( 64.21, 178.11, -128.52, 0.29 )
	pt3dadd( 64.93, 178.64, -131, 0.29 )
	pt3dadd( 65.66, 179.18, -132.19, 0.29 )
	pt3dadd( 66.39, 180.59, -134.24, 0.29 )
	pt3dadd( 66.76, 183.03, -134.24, 0.29 )
	pt3dadd( 67.3, 184.09, -135.11, 0.29 )
	pt3dadd( 68.22, 185.85, -135.92, 0.29 )
	pt3dadd( 68.76, 186.9, -136.94, 0.29 )
	pt3dadd( 69.4, 187.7, -138.13, 0.29 )
	pt3dadd( 70.03, 188.5, -138.13, 0.29 )
	pt3dadd( 71.21, 189.48, -138.89, 0.29 )
	pt3dadd( 72.12, 190.37, -140.72, 0.29 )
	pt3dadd( 72.04, 192.37, -141.64, 0.29 )
	pt3dadd( 71.95, 193.5, -141.26, 0.29 )
	pt3dadd( 72.14, 195.59, -142.61, 0.29 )
    }
}

proc shape3d_apical_27() {
    dend[ 72 ] { pt3dclear()
	pt3dadd( -7.39, 60.14, -20.3, 0.57 )
	pt3dadd( -7.54, 62.4, -21.06, 0.57 )
	pt3dadd( -6.72, 64.6, -21.01, 0.57 )
	pt3dadd( -5.31, 65.99, -21.06, 0.57 )
	pt3dadd( -4.47, 67.37, -23.17, 0.57 )
	pt3dadd( -3.64, 68.76, -23.22, 0.57 )
	pt3dadd( -3.08, 69.59, -25, 0.57 )
	pt3dadd( -2.54, 71.51, -25, 0.57 )
	pt3dadd( -1.71, 73.44, -27.16, 0.57 )
	pt3dadd( -1.15, 74.27, -28.73, 0.57 )
	pt3dadd( -0.88, 75.09, -30.4, 0.57 )
	pt3dadd( -1.19, 76.73, -32.24, 0.57 )
	pt3dadd( -1.79, 77.81, -32.35, 0.57 )
	pt3dadd( -1.8, 78.63, -33.7, 0.57 )
	pt3dadd( -2.1, 79.45, -35.53, 0.57 )
	pt3dadd( -2.12, 80.27, -36.77, 0.57 )
	pt3dadd( -2.14, 81.36, -38.12, 0.57 )
	pt3dadd( -2.15, 81.91, -39.53, 0.57 )
	pt3dadd( -2.16, 82.46, -41.2, 0.57 )
	pt3dadd( -3.31, 82.71, -45.09, 0.57 )
	pt3dadd( -3.3, 82.44, -46.22, 0.57 )
	pt3dadd( -3.87, 81.88, -47.41, 0.57 )
	pt3dadd( -3.85, 81.06, -48.6, 0.57 )
	pt3dadd( -4.13, 80.78, -49.57, 0.57 )
	pt3dadd( -4.42, 80.5, -51.3, 0.57 )
	pt3dadd( -5.26, 79.67, -52.7, 0.57 )
	pt3dadd( -5.55, 79.66, -54.22, 0.57 )
	pt3dadd( -5.56, 80.48, -56, 0.57 )
	pt3dadd( -5.58, 81.58, -56, 0.57 )
	pt3dadd( -6.74, 82.38, -55.78, 0.57 )
	pt3dadd( -7.33, 83.19, -55.78, 0.57 )
	pt3dadd( -8.78, 83.71, -55.78, 0.57 )
	pt3dadd( -10.5, 83.95, -56.38, 0.57 )
	pt3dadd( -10.52, 84.77, -57.67, 0.57 )
	pt3dadd( -9.95, 85.33, -58.81, 0.57 )
	pt3dadd( -10.85, 87.23, -58.81, 0.57 )
	pt3dadd( -10.87, 88.59, -59.94, 0.57 )
	pt3dadd( -10.9, 90.24, -59.94, 0.57 )
	pt3dadd( -11.2, 91.05, -61.4, 0.57 )
	pt3dadd( -12.07, 91.58, -63.45, 0.57 )
	pt3dadd( -12.09, 92.68, -64.31, 0.57 )
	pt3dadd( -12.1, 93.22, -64.53, 0.57 )
	pt3dadd( -11.54, 94.05, -64.8, 0.57 )
	pt3dadd( -10.98, 94.88, -66.53, 0.57 )
	pt3dadd( -10.42, 95.99, -67.72, 0.57 )
	pt3dadd( -9.28, 96.28, -69.39, 0.57 )
	pt3dadd( -8.13, 96.3, -69.39, 1.15 )
	pt3dadd( -7.18, 97.32, -72.41, 1.15 )
	pt3dadd( -7.04, 98.95, -72.47, 0.86 )
	pt3dadd( -7.75, 100.66, -72.79, 0.86 )
	pt3dadd( -7.94, 101.78, -72.79, 0.86 )
	pt3dadd( -8.39, 103.19, -72.79, 0.86 )
	pt3dadd( -9.16, 104.35, -72.79, 0.86 )
	pt3dadd( -9.7, 104.67, -72.79, 0.86 )
	pt3dadd( -10.29, 105.11, -73.01, 0.86 )
	pt3dadd( -11.67, 105.78, -74.2, 0.86 )
	pt3dadd( -11.83, 107.17, -71.77, 0.86 )
	pt3dadd( -12.62, 108.06, -69.01, 0.86 )
	pt3dadd( -12.5, 109.42, -72.36, 0.86 )
    }
}

proc shape3d_apical_28() {
    dend[ 73 ] { pt3dclear()
	pt3dadd( -154.32, 234.84, -11.45, 1.72 )
	pt3dadd( -155.76, 235.39, -11.61, 1.72 )
	pt3dadd( -157.77, 237.03, -11.61, 1.72 )
	pt3dadd( -158.91, 237.85, -10.8, 1.72 )
	pt3dadd( -158.91, 239.49, -10.8, 1.72 )
	pt3dadd( -159.23, 240.9, -10.64, 1.72 )
	pt3dadd( -161.52, 243.91, -11.02, 1.72 )
	pt3dadd( -164.39, 245.83, -12.26, 1.72 )
	pt3dadd( -165.83, 248.29, -12.91, 1.72 )
	pt3dadd( -166.98, 250.75, -13.23, 1.72 )
	pt3dadd( -169.84, 252.94, -13.28, 1.72 )
	pt3dadd( -171.57, 255.67, -13.28, 1.72 )
	pt3dadd( -173, 257.31, -13.77, 1.72 )
	pt3dadd( -173.57, 259.22, -13.77, 1.72 )
	pt3dadd( -175.58, 261.14, -13.77, 1.72 )
	pt3dadd( -177.88, 262.51, -13.77, 1.72 )
	pt3dadd( -177.88, 264.42, -13.77, 1.72 )
	pt3dadd( -179.88, 266.33, -13.77, 1.72 )
	pt3dadd( -180.74, 267.43, -14.04, 1.72 )
	pt3dadd( -182.18, 269.07, -14.04, 1.72 )
	pt3dadd( -183.61, 271.53, -14.04, 1.72 )
	pt3dadd( -184.55, 273.29, -14.04, 1.72 )
	pt3dadd( -185.44, 274.64, -13.28, 2.01 )
	pt3dadd( -186.62, 276.8, -13.28, 2.01 )
	pt3dadd( -187.8, 278.43, -12.64, 2.01 )
	pt3dadd( -188.97, 280.05, -12.58, 2.01 )
	pt3dadd( -190.15, 281.39, -12.64, 2.01 )
	pt3dadd( -191.59, 282.19, -12.91, 2.01 )
	pt3dadd( -192.79, 284.9, -12.91, 2.01 )
	pt3dadd( -194.84, 287.05, -12.91, 2.01 )
	pt3dadd( -195.72, 288.41, -13.01, 2.01 )
	pt3dadd( -197.48, 290.56, -13.07, 2.01 )
	pt3dadd( -198.08, 292.19, -13.72, 2.01 )
	pt3dadd( -198.69, 294.1, -13.77, 2.01 )
	pt3dadd( -199.56, 294.63, -13.77, 2.01 )
	pt3dadd( -201, 295.15, -13.77, 2.01 )
	pt3dadd( -201.9, 297.6, -14.26, 2.01 )
	pt3dadd( -203.65, 298.93, -14.26, 2.01 )
	pt3dadd( -204.84, 301.37, -14.26, 2.01 )
	pt3dadd( -206.88, 303.25, -14.26, 2.01 )
	pt3dadd( -207.48, 304.88, -14.26, 2.01 )
	pt3dadd( -208.09, 306.79, -14.26, 2.01 )
	pt3dadd( -209.25, 307.31, -14.26, 1.72 )
	pt3dadd( -210.69, 307.56, -14.26, 1.72 )
	pt3dadd( -211.86, 308.91, -14.26, 1.72 )
	pt3dadd( -212.47, 311.09, -15.01, 1.72 )
	pt3dadd( -213.37, 313.53, -15.39, 1.72 )
	pt3dadd( -215.12, 314.87, -15.39, 1.72 )
	pt3dadd( -215.71, 315.95, -15.39, 1.72 )
	pt3dadd( -215.72, 316.77, -15.39, 1.72 )
	pt3dadd( -216.31, 317.31, -15.39, 1.72 )
	pt3dadd( -217.76, 318.11, -15.39, 1.72 )
	pt3dadd( -217.57, 318.97, -15.88, 1.72 )
	pt3dadd( -220.19, 321.39, -15.88, 1.72 )
	pt3dadd( -221.37, 323.01, -15.88, 1.72 )
	pt3dadd( -222.83, 324.62, -15.39, 1.72 )
	pt3dadd( -224.59, 326.78, -15.39, 1.72 )
	pt3dadd( -227.49, 328.64, -15.77, 1.72 )
	pt3dadd( -227.53, 330.56, -14.74, 1.72 )
	pt3dadd( -228.4, 331.09, -15.12, 1.72 )
	pt3dadd( -229.28, 332.44, -15.12, 1.72 )
	pt3dadd( -229.57, 332.71, -15.12, 1.72 )
    }
}

proc shape3d_apical_29() {
    dend[ 74 ] { pt3dclear()
	pt3dadd( -154.32, 234.84, -11.45, 1.72 )
	pt3dadd( -154.35, 237.62, -14.09, 1.72 )
	pt3dadd( -156.94, 242, -14.2, 1.72 )
	pt3dadd( -158.94, 246.1, -14.31, 1.72 )
	pt3dadd( -160.66, 249.93, -14.47, 1.72 )
	pt3dadd( -162.39, 252.39, -14.58, 1.72 )
	pt3dadd( -163.82, 255.12, -14.58, 1.72 )
	pt3dadd( -166.11, 258.95, -14.63, 1.72 )
	pt3dadd( -168.7, 262.51, -14.9, 1.72 )
	pt3dadd( -168.98, 264.97, -15.66, 1.72 )
	pt3dadd( -170.42, 267.7, -15.66, 1.72 )
	pt3dadd( -171.85, 269.62, -15.66, 1.72 )
	pt3dadd( -173.29, 271.8, -16.04, 1.72 )
	pt3dadd( -172.94, 272.91, -16.04, 1.43 )
	pt3dadd( -174.71, 276.16, -16.04, 1.43 )
	pt3dadd( -175.04, 278.62, -16.04, 1.43 )
	pt3dadd( -177.09, 280.77, -16.04, 1.43 )
	pt3dadd( -177.42, 283.5, -17.17, 1.43 )
	pt3dadd( -177.47, 285.96, -17.23, 1.43 )
	pt3dadd( -178.09, 288.68, -17.23, 1.43 )
	pt3dadd( -178.99, 290.86, -17.93, 1.43 )
	pt3dadd( -181.33, 293.55, -18.58, 1.43 )
	pt3dadd( -182.53, 296.54, -18.74, 1.43 )
	pt3dadd( -183.42, 298.44, -19.49, 1.43 )
	pt3dadd( -185.18, 300.59, -19.49, 1.43 )
	pt3dadd( -185.79, 302.5, -21.11, 1.43 )
	pt3dadd( -186.41, 305.22, -22.41, 1.43 )
	pt3dadd( -187.86, 306.29, -22.46, 1.43 )
	pt3dadd( -189.03, 307.64, -22.46, 1.43 )
	pt3dadd( -190.22, 309.53, -22.46, 1.43 )
	pt3dadd( -190.23, 310.62, -22.46, 1.43 )
	pt3dadd( -189.98, 312.27, -24.25, 1.43 )
	pt3dadd( -190.29, 313.91, -24.3, 1.43 )
	pt3dadd( -190.58, 315.83, -25.43, 1.43 )
	pt3dadd( -191.19, 317.74, -25.43, 1.43 )
	pt3dadd( -191.52, 320.47, -25.43, 1.43 )
    }
}

proc shape3d_apical_30() {
    dend[ 75 ] { pt3dclear()
	pt3dadd( -85.06, 90.83, -26.89, 0.57 )
	pt3dadd( -85.89, 89.17, -29.48, 0.57 )
	pt3dadd( -86.45, 88.34, -31.37, 0.57 )
	pt3dadd( -86.72, 87.79, -33.97, 0.57 )
	pt3dadd( -86.72, 87.79, -36.99, 0.57 )
	pt3dadd( -87.29, 87.23, -38.66, 0.57 )
	pt3dadd( -87.86, 86.95, -40.77, 0.57 )
	pt3dadd( -89.01, 87.48, -42.17, 0.57 )
	pt3dadd( -89.03, 88.57, -45.52, 0.57 )
	pt3dadd( -89.04, 89.12, -47.25, 0.57 )
	pt3dadd( -89.05, 89.39, -49.25, 0.57 )
	pt3dadd( -90.48, 89.36, -50.49, 0.57 )
	pt3dadd( -91.34, 89.35, -51.14, 0.57 )
	pt3dadd( -92.47, 88.51, -52.22, 0.57 )
	pt3dadd( -95.06, 88.46, -53.84, 0.57 )
	pt3dadd( -95.9, 87.36, -55.78, 0.57 )
	pt3dadd( -96.75, 87.07, -56.16, 0.57 )
	pt3dadd( -98.75, 86.49, -56.75, 0.57 )
	pt3dadd( -100.19, 86.46, -58, 0.57 )
	pt3dadd( -101.34, 86.99, -58, 0.57 )
	pt3dadd( -102.49, 86.97, -59.02, 0.57 )
	pt3dadd( -104.2, 86.39, -59.51, 0.57 )
	pt3dadd( -105.06, 86.1, -59.83, 0.57 )
	pt3dadd( -107.06, 85.79, -60.86, 0.57 )
	pt3dadd( -107.92, 86.05, -62.32, 0.57 )
	pt3dadd( -108.79, 86.04, -62.53, 0.57 )
	pt3dadd( -110.79, 86, -64.1, 0.57 )
	pt3dadd( -111.66, 86.26, -64.1, 0.57 )
	pt3dadd( -113.38, 86.23, -65.23, 0.57 )
	pt3dadd( -114.23, 85.67, -65.23, 0.57 )
	pt3dadd( -115.08, 84.83, -65.23, 0.57 )
	pt3dadd( -116.2, 83.45, -65.23, 0.57 )
	pt3dadd( -117.62, 82.87, -65.23, 0.57 )
	pt3dadd( -117.9, 82.32, -65.23, 0.57 )
	pt3dadd( -119.32, 81.2, -65.45, 0.57 )
	pt3dadd( -121.6, 80.62, -66.42, 0.57 )
	pt3dadd( -122.18, 80.88, -64.15, 0.57 )
	pt3dadd( -124.49, 81.93, -62.96, 0.57 )
	pt3dadd( -126.8, 82.44, -62.96, 0.57 )
	pt3dadd( -127.66, 82.43, -62.96, 0.57 )
	pt3dadd( -129.67, 82.66, -61.99, 0.57 )
	pt3dadd( -130.58, 82.93, -61.67, 0.29 )
	pt3dadd( -132.01, 82.63, -60.97, 0.29 )
	pt3dadd( -133.43, 81.79, -61.61, 0.29 )
	pt3dadd( -134.29, 81.5, -63.29, 0.29 )
	pt3dadd( -136, 81.19, -64.85, 0.29 )
	pt3dadd( -138, 80.61, -65.61, 0.29 )
	pt3dadd( -140.3, 80.57, -66.53, 0.29 )
	pt3dadd( -141.75, 81.91, -68.15, 0.29 )
	pt3dadd( -142.63, 82.72, -68.15, 0.29 )
	pt3dadd( -144.94, 83.77, -69.12, 0.29 )
	pt3dadd( -146.65, 83.2, -71.23, 0.29 )
	pt3dadd( -148.36, 82.62, -71.55, 0.29 )
	pt3dadd( -148.91, 81.24, -72.14, 0.29 )
	pt3dadd( -151.21, 81.2, -72.79, 0.29 )
	pt3dadd( -150.91, 81.07, -72.47, 0.57 )
	pt3dadd( -150.91, 81.07, -72.52, 0.57 )
	pt3dadd( -151.22, 80.82, -73.66, 0.57 )
	pt3dadd( -151.51, 80.85, -75.28, 0.57 )
	pt3dadd( -151.87, 80.06, -78.14, 0.57 )
	pt3dadd( -151.34, 79.46, -80.95, 0.57 )
	pt3dadd( -151.96, 78.97, -82.57, 0.57 )
	pt3dadd( -152.84, 78.77, -84.46, 0.57 )
	pt3dadd( -154.34, 78.08, -85.7, 0.57 )
	pt3dadd( -155.3, 77.06, -88.29, 0.57 )
	pt3dadd( -156.44, 77.16, -88.61, 0.57 )
	pt3dadd( -157.06, 76.67, -89.59, 0.57 )
	pt3dadd( -159.06, 76.84, -89.59, 0.57 )
	pt3dadd( -160.54, 76.42, -89.96, 0.57 )
	pt3dadd( -161.75, 75.71, -90.23, 0.57 )
	pt3dadd( -163.75, 75.88, -90.72, 0.57 )
	pt3dadd( -164.51, 77.05, -91.69, 0.57 )
	pt3dadd( -165.04, 77.64, -92.83, 0.57 )
	pt3dadd( -165.82, 78.53, -93.91, 0.57 )
	pt3dadd( -166.35, 79.13, -94.88, 0.57 )
	pt3dadd( -165.85, 78.26, -98.77, 0.57 )
	pt3dadd( -166.44, 78.04, -100.93, 0.57 )
	pt3dadd( -166.23, 77.2, -104.06, 0.57 )
	pt3dadd( -165.44, 76.3, -104.71, 0.57 )
	pt3dadd( -164.66, 75.41, -107.24, 0.57 )
	pt3dadd( -163.8, 75.34, -110.86, 0.57 )
    }
}

proc shape3d_apical_31() {
    dend[ 76 ] { pt3dclear()
	pt3dadd( -85.06, 90.83, -26.89, 0.29 )
	pt3dadd( -84.99, 92.17, -29.27, 0.29 )
	pt3dadd( -85.58, 92.98, -32.89, 0.29 )
	pt3dadd( -85.6, 94.07, -32.89, 0.29 )
	pt3dadd( -85.62, 95.44, -32.89, 0.29 )
	pt3dadd( -85.64, 96.81, -32.94, 0.29 )
	pt3dadd( -86.24, 98.16, -33.8, 0.29 )
	pt3dadd( -85.4, 99.27, -33.86, 0.29 )
	pt3dadd( -85.13, 100.37, -35.37, 0.29 )
	pt3dadd( -84.85, 100.65, -36.83, 0.29 )
	pt3dadd( -84.31, 102.85, -36.83, 0.29 )
	pt3dadd( -84.04, 103.67, -38.72, 0.29 )
	pt3dadd( -84.06, 104.49, -39.58, 0.29 )
	pt3dadd( -84.37, 106.13, -39.58, 0.29 )
	pt3dadd( -84.39, 107.22, -40.18, 0.29 )
	pt3dadd( -84.42, 108.86, -40.18, 0.29 )
	pt3dadd( -84.16, 110.23, -40.66, 0.29 )
	pt3dadd( -84.18, 111.33, -41.8, 0.29 )
	pt3dadd( -84.2, 112.69, -41.8, 0.29 )
	pt3dadd( -83.92, 112.97, -42.17, 0.29 )
	pt3dadd( -83.36, 114.08, -42.28, 0.29 )
	pt3dadd( -82.82, 115.73, -43.74, 0.29 )
	pt3dadd( -82.83, 116.55, -45.68, 0.29 )
	pt3dadd( -82.86, 117.91, -45.68, 0.29 )
	pt3dadd( -83.74, 118.99, -46.44, 0.29 )
	pt3dadd( -83.75, 119.81, -48.49, 0.29 )
	pt3dadd( -83.46, 119.82, -50.17, 0.29 )
	pt3dadd( -83.2, 120.92, -50.44, 0.29 )
	pt3dadd( -83.22, 122.28, -50.49, 0.29 )
	pt3dadd( -82.95, 123.11, -50.65, 0.29 )
	pt3dadd( -82.41, 125.03, -52.54, 0.29 )
	pt3dadd( -81.85, 125.86, -53.89, 0.29 )
	pt3dadd( -82.16, 127.22, -56.48, 0.29 )
	pt3dadd( -82.17, 128.04, -57.62, 0.29 )
	pt3dadd( -82.75, 128.31, -58.86, 0.29 )
	pt3dadd( -83.05, 128.85, -60.05, 0.29 )
	pt3dadd( -81.91, 129.69, -61.67, 0.29 )
	pt3dadd( -81.65, 130.79, -63.77, 0.29 )
	pt3dadd( -81.08, 131.35, -63.83, 0.29 )
	pt3dadd( -80.23, 131.91, -65.02, 0.29 )
	pt3dadd( -79.95, 132.46, -67.12, 0.29 )
	pt3dadd( -79.1, 132.75, -68.63, 0.29 )
	pt3dadd( -78.82, 133.03, -72.25, 0.29 )
	pt3dadd( -77.09, 132.78, -72.74, 0.29 )
	pt3dadd( -76.38, 133.45, -72.79, 0.86 )
	pt3dadd( -76.34, 134, -75.55, 0.86 )
	pt3dadd( -76.26, 134.81, -75.6, 0.86 )
	pt3dadd( -76.76, 135.68, -77.11, 0.86 )
	pt3dadd( -77, 136.25, -77.98, 0.86 )
	pt3dadd( -76.62, 137.32, -77.98, 0.86 )
	pt3dadd( -75.33, 138.85, -78.89, 0.86 )
	pt3dadd( -75, 139.37, -79.33, 0.86 )
	pt3dadd( -74.12, 139.57, -79.92, 0.86 )
	pt3dadd( -74, 140.93, -80.89, 0.86 )
	pt3dadd( -73.69, 141.18, -83.97, 0.86 )
	pt3dadd( -73.07, 141.67, -85.27, 0.86 )
	pt3dadd( -73.07, 141.67, -86.62, 0.86 )
	pt3dadd( -72.98, 142.76, -87.1, 0.86 )
	pt3dadd( -73.22, 143.33, -88.02, 0.86 )
	pt3dadd( -73.17, 143.88, -89.1, 0.86 )
	pt3dadd( -73.12, 144.42, -89.42, 0.86 )
	pt3dadd( -73.33, 145.26, -90.07, 0.86 )
	pt3dadd( -73.83, 146.13, -91.04, 0.86 )
	pt3dadd( -74.05, 146.97, -92.02, 0.86 )
	pt3dadd( -75.14, 147.62, -93.31, 0.86 )
	pt3dadd( -76.55, 148.01, -94.93, 0.86 )
	pt3dadd( -77.07, 148.61, -96.39, 0.86 )
	pt3dadd( -77.91, 148.96, -97.36, 0.86 )
	pt3dadd( -80.14, 149.7, -97.85, 0.86 )
	pt3dadd( -79.55, 149.92, -97.85, 0.57 )
	pt3dadd( -80.98, 150.05, -97.85, 0.57 )
	pt3dadd( -81.76, 150.94, -99.04, 0.57 )
	pt3dadd( -83.45, 151.36, -99.68, 0.57 )
	pt3dadd( -83.98, 151.96, -100.55, 0.57 )
	pt3dadd( -84.53, 152.28, -102.01, 0.57 )
	pt3dadd( -84.45, 153.1, -102.01, 0.57 )
	pt3dadd( -85.6, 153.2, -102.01, 0.57 )
	pt3dadd( -87.24, 154.17, -103.03, 0.57 )
	pt3dadd( -88.38, 154.27, -103.09, 0.57 )
	pt3dadd( -89.53, 154.37, -103.9, 0.57 )
	pt3dadd( -89.74, 155.21, -104.6, 0.57 )
	pt3dadd( -90.81, 156.13, -104.6, 0.57 )
	pt3dadd( -91.6, 157.02, -105.95, 0.57 )
	pt3dadd( -93.03, 157.14, -106.49, 0.57 )
	pt3dadd( -94.74, 157.29, -107.62, 0.57 )
	pt3dadd( -95.03, 157.32, -107.62, 0.57 )
	pt3dadd( -95.58, 157.64, -109.03, 0.57 )
	pt3dadd( -96.03, 159.05, -109.03, 0.57 )
	pt3dadd( -96.84, 160.56, -109.67, 0.57 )
	pt3dadd( -97.61, 161.73, -110.75, 0.57 )
	pt3dadd( -98.94, 162.94, -110.75, 0.57 )
	pt3dadd( -99.99, 164.13, -110.75, 0.57 )
	pt3dadd( -100.99, 165.87, -110.75, 0.57 )
	pt3dadd( -101.68, 167.85, -110.75, 0.57 )
	pt3dadd( -101.87, 168.96, -111.78, 0.57 )
	pt3dadd( -102.01, 170.62, -111.83, 0.57 )
	pt3dadd( -102.77, 171.79, -111.83, 0.57 )
	pt3dadd( -103.3, 172.38, -112.86, 0.57 )
	pt3dadd( -104.04, 173.82, -112.54, 0.57 )
	pt3dadd( -104.27, 174.39, -114.1, 0.57 )
	pt3dadd( -105.56, 176.15, -114.1, 0.57 )
	pt3dadd( -106.01, 177.56, -114.75, 0.57 )
	pt3dadd( -107.04, 179.02, -114.8, 0.57 )
	pt3dadd( -107.49, 180.43, -115.34, 0.57 )
	pt3dadd( -107.94, 181.85, -115.72, 0.57 )
	pt3dadd( -108.73, 182.74, -115.67, 0.57 )
	pt3dadd( -109.73, 184.47, -115.83, 0.57 )
	pt3dadd( -110.18, 185.89, -116.32, 0.57 )
	pt3dadd( -111.16, 187.89, -116.26, 0.57 )
	pt3dadd( -111.66, 188.76, -116.21, 0.57 )
	pt3dadd( -112.16, 189.63, -116.26, 0.57 )
	pt3dadd( -113.08, 192.18, -116.75, 0.57 )
	pt3dadd( -113.87, 193.07, -117.94, 0.57 )
	pt3dadd( -114.39, 193.67, -118.37, 0.57 )
	pt3dadd( -115.23, 194.01, -118.85, 0.57 )
	pt3dadd( -116.89, 194.71, -118.8, 0.57 )
	pt3dadd( -117.35, 196.12, -118.8, 0.57 )
	pt3dadd( -118.42, 197.04, -119.56, 0.57 )
	pt3dadd( -119.78, 197.98, -119.56, 0.57 )
    }
}

proc shape3d_apical_32() {
    dend[ 77 ] { pt3dclear()
	pt3dadd( -102.3, 18.94, -1.94, 1.15 )
	pt3dadd( -102.92, 20.03, -0.27, 1.15 )
	pt3dadd( -104.92, 21.67, 3.29, 1.15 )
	pt3dadd( -106.07, 23.31, 3.51, 1.15 )
	pt3dadd( -107.22, 24.13, 5.08, 1.15 )
	pt3dadd( -108.08, 24.13, 5.08, 1.15 )
	pt3dadd( -108.94, 25.5, 5.08, 1.15 )
	pt3dadd( -109.51, 27.41, 5.62, 1.15 )
	pt3dadd( -109.51, 28.5, 6.1, 1.15 )
	pt3dadd( -110.09, 30.15, 7.34, 1.15 )
	pt3dadd( -112.1, 31.24, 7.45, 1.15 )
	pt3dadd( -112.96, 32.88, 9.34, 1.15 )
	pt3dadd( -113.53, 33.97, 11.56, 1.15 )
	pt3dadd( -114.39, 35.07, 11.56, 0.86 )
	pt3dadd( -116.11, 35.34, 11.93, 0.86 )
	pt3dadd( -118.12, 36.16, 13.28, 0.86 )
	pt3dadd( -119.27, 37.26, 14.96, 0.86 )
	pt3dadd( -120.99, 38.35, 15.01, 0.86 )
	pt3dadd( -122.42, 38.9, 15.01, 0.86 )
	pt3dadd( -123.57, 40.54, 16.04, 0.86 )
	pt3dadd( -124.14, 41.08, 16.52, 0.86 )
	pt3dadd( -125, 41.36, 18.31, 0.86 )
	pt3dadd( -127.3, 41.63, 18.36, 0.86 )
	pt3dadd( -128.45, 41.9, 18.79, 0.86 )
    }
}

proc shape3d_apical_33() {
    dend[ 78 ] { pt3dclear()
	pt3dadd( -102.3, 18.94, -1.94, 0.86 )
	pt3dadd( -103.2, 18.93, -2.38, 0.86 )
	pt3dadd( -104.64, 18.39, -3.94, 0.86 )
	pt3dadd( -107.22, 19.75, -5.45, 0.86 )
	pt3dadd( -109.8, 19.75, -5.45, 0.86 )
	pt3dadd( -111.52, 19.21, -5.51, 0.86 )
	pt3dadd( -112.96, 20.3, -5.51, 0.86 )
	pt3dadd( -114.39, 21.94, -6.7, 0.86 )
	pt3dadd( -116.69, 22.22, -6.7, 0.86 )
	pt3dadd( -118.12, 22.49, -7.88, 0.86 )
	pt3dadd( -120.13, 23.31, -8.64, 0.86 )
	pt3dadd( -122.14, 24.13, -9.02, 0.86 )
	pt3dadd( -123.57, 24.68, -9.02, 0.86 )
	pt3dadd( -125.58, 24.68, -9.56, 0.86 )
	pt3dadd( -127.59, 24.68, -10.26, 0.86 )
	pt3dadd( -129.31, 25.22, -10.31, 0.86 )
	pt3dadd( -131.03, 25.77, -10.31, 0.86 )
	pt3dadd( -131.89, 26.04, -10.1, 0.86 )
	pt3dadd( -135.04, 26.86, -10.1, 0.86 )
	pt3dadd( -137.34, 26.86, -10.48, 0.86 )
	pt3dadd( -138.2, 28.5, -10.91, 0.86 )
	pt3dadd( -139.92, 29.6, -13.12, 0.86 )
	pt3dadd( -141.93, 30.69, -14.96, 0.86 )
	pt3dadd( -143.08, 31.51, -16.74, 0.86 )
	pt3dadd( -145.08, 32.61, -16.74, 0.86 )
	pt3dadd( -146.52, 32.61, -18.09, 0.86 )
	pt3dadd( -147.67, 32.61, -18.31, 0.86 )
	pt3dadd( -148.81, 32.88, -19.93, 0.86 )
	pt3dadd( -149.37, 32.65, -22.68, 0.29 )
	pt3dadd( -149.65, 32.64, -24.14, 0.29 )
	pt3dadd( -150.23, 32.63, -26.35, 0.29 )
	pt3dadd( -150.51, 32.35, -27.49, 0.29 )
	pt3dadd( -151.37, 32.34, -29.21, 0.29 )
	pt3dadd( -152.52, 32.32, -31, 0.29 )
	pt3dadd( -154.24, 32.29, -34.24, 0.29 )
	pt3dadd( -155.97, 33.08, -37.26, 0.29 )
	pt3dadd( -156.27, 33.35, -40.5, 0.29 )
	pt3dadd( -158, 33.86, -44.6, 0.29 )
	pt3dadd( -158.88, 35.22, -46.22, 0.29 )
	pt3dadd( -159.47, 36.03, -48.11, 0.29 )
	pt3dadd( -159.49, 37.39, -49.63, 0.29 )
	pt3dadd( -159.51, 38.49, -50.6, 0.29 )
	pt3dadd( -159.82, 39.58, -51.46, 0.29 )
	pt3dadd( -160.98, 40.38, -52.16, 0.29 )
	pt3dadd( -162.42, 40.9, -53.08, 0.29 )
	pt3dadd( -163.58, 41.42, -53.35, 0.29 )
	pt3dadd( -164.16, 41.69, -55.3, 0.29 )
	pt3dadd( -165.6, 42.21, -55.46, 0.29 )
	pt3dadd( -167.05, 43.01, -57.46, 0.29 )
	pt3dadd( -167.63, 43.54, -59.45, 0.29 )
	pt3dadd( -168.22, 44.08, -61.45, 0.29 )
	pt3dadd( -169.09, 44.61, -63.94, 0.29 )
	pt3dadd( -170.32, 45.2, -62.59, 0.29 )
	pt3dadd( -170.87, 44.1, -60.53, 0.29 )
	pt3dadd( -171.44, 43.54, -60.1, 0.29 )
	pt3dadd( -171.7, 42.44, -63.34, 0.29 )
	pt3dadd( -172.26, 41.61, -64.85, 0.29 )
	pt3dadd( -172.82, 40.78, -66.26, 0.29 )
	pt3dadd( -173.09, 39.96, -67.01, 0.29 )
	pt3dadd( -174.21, 38.3, -67.01, 0.29 )
	pt3dadd( -174.75, 36.37, -67.01, 0.29 )
	pt3dadd( -176.75, 35.79, -68.58, 0.29 )
	pt3dadd( -178.74, 34.39, -65.83, 0.29 )
    }
}

proc shape3d_apical_34() {
    dend[ 79 ] { pt3dclear()
	pt3dadd( -48.59, 11.46, -21.98, 1.15 )
	pt3dadd( -48.06, 13.93, -21.98, 1.15 )
	pt3dadd( -47.79, 14.75, -24.19, 1.15 )
	pt3dadd( -47.81, 16.12, -25.43, 1.15 )
	pt3dadd( -48.41, 17.48, -26.57, 1.15 )
	pt3dadd( -48.14, 18.3, -29.21, 1.15 )
	pt3dadd( -48.15, 19.12, -30.35, 1.15 )
	pt3dadd( -48.16, 19.67, -31.81, 1.15 )
	pt3dadd( -48.17, 20.22, -34.4, 1.15 )
	pt3dadd( -48.76, 21.03, -36.45, 1.15 )
	pt3dadd( -48.78, 22.12, -38.39, 1.15 )
	pt3dadd( -49.08, 23.21, -39.2, 1.15 )
	pt3dadd( -49.09, 23.76, -41.09, 1.15 )
	pt3dadd( -47.68, 24.88, -42.66, 1.15 )
	pt3dadd( -47.71, 26.52, -45.41, 1.15 )
	pt3dadd( -47.44, 27.61, -48.22, 1.15 )
	pt3dadd( -47.47, 29.26, -48.22, 1.15 )
	pt3dadd( -47.49, 30.35, -50.49, 1.15 )
	pt3dadd( -46.94, 32, -53.14, 1.15 )
	pt3dadd( -47.25, 33.36, -54.27, 1.15 )
	pt3dadd( -48.13, 34.17, -56.92, 1.15 )
	pt3dadd( -48.42, 34.71, -58.48, 1.15 )
	pt3dadd( -48.44, 35.53, -59.72, 1.15 )
	pt3dadd( -48.48, 37.99, -59.89, 1.15 )
	pt3dadd( -48.21, 38.81, -62.26, 1.15 )
	pt3dadd( -48.24, 40.46, -63.61, 1.15 )
	pt3dadd( -48.28, 42.64, -63.29, 1.15 )
	pt3dadd( -48.57, 43.18, -63.29, 1.15 )
	pt3dadd( -48.62, 45.92, -63.29, 1.15 )
	pt3dadd( -48.16, 46.66, -63.29, 0.29 )
	pt3dadd( -48.12, 47.21, -63.4, 0.86 )
	pt3dadd( -47.97, 48.84, -65.29, 0.86 )
	pt3dadd( -47.83, 50.48, -66.58, 0.86 )
	pt3dadd( -48.78, 52.75, -66.15, 0.86 )
	pt3dadd( -48.95, 54.14, -67.12, 0.57 )
	pt3dadd( -49.64, 56.12, -68.36, 0.57 )
	pt3dadd( -49.5, 57.76, -69.5, 0.57 )
	pt3dadd( -49.4, 58.85, -70.85, 0.57 )
	pt3dadd( -49.54, 60.51, -70.96, 0.57 )
	pt3dadd( -49.45, 61.6, -70.96, 0.57 )
	pt3dadd( -49.02, 63.21, -73.39, 0.57 )
	pt3dadd( -48.35, 64.25, -73.39, 0.57 )
	pt3dadd( -47.9, 66.13, -75.38, 0.57 )
	pt3dadd( -48.4, 67, -75.87, 0.57 )
	pt3dadd( -48.28, 68.36, -77, 0.57 )
	pt3dadd( -48.14, 69.99, -78.57, 0.57 )
	pt3dadd( -47.84, 70.7, -78.52, 0.57 )
	pt3dadd( -47.65, 72.88, -80.41, 0.57 )
	pt3dadd( -47.48, 74.79, -81.81, 0.57 )
	pt3dadd( -47.08, 76.13, -83.75, 0.57 )
	pt3dadd( -46.7, 77.19, -85.1, 0.57 )
	pt3dadd( -46.84, 78.85, -86.29, 0.57 )
	pt3dadd( -47.27, 80.53, -87.48, 0.29 )
	pt3dadd( -46.84, 82.14, -88.72, 0.29 )
	pt3dadd( -47.27, 83.83, -89.96, 0.29 )
	pt3dadd( -46.86, 85.17, -91.64, 0.29 )
	pt3dadd( -46.7, 87.07, -93.15, 0.29 )
	pt3dadd( -46.86, 88.46, -94.72, 0.29 )
	pt3dadd( -48.2, 89.67, -95.9, 0.29 )
	pt3dadd( -49.84, 90.64, -97.04, 0.29 )
	pt3dadd( -50.6, 91.81, -97.9, 0.29 )
	pt3dadd( -51.39, 92.7, -98.28, 0.29 )
	pt3dadd( -52.22, 93.05, -99.52, 0.29 )
	pt3dadd( -53.87, 94.01, -100.76, 0.29 )
	pt3dadd( -54.08, 94.85, -103.36, 0.29 )
	pt3dadd( -54.22, 96.51, -103.36, 0.29 )
	pt3dadd( -54.7, 97.65, -104.71, 0.29 )
	pt3dadd( -55.17, 98.79, -106.27, 0.29 )
	pt3dadd( -56.2, 100.26, -107.03, 0.29 )
	pt3dadd( -56.2, 100.26, -108.32, 0.29 )
	pt3dadd( -56.94, 101.69, -107.3, 0.29 )
	pt3dadd( -58.25, 103.18, -107.95, 0.29 )
	pt3dadd( -59.25, 104.91, -108.32, 0.29 )
	pt3dadd( -59.92, 104.71, -108.32, 0.29 )
	pt3dadd( -61.53, 106.76, -108.32, 0.29 )
	pt3dadd( -62.61, 107.26, -108.32, 0.29 )
	pt3dadd( -63.51, 108.1, -108.32, 0.29 )
	pt3dadd( -63.78, 108.88, -108.43, 0.29 )
	pt3dadd( -64.04, 109.66, -108.43, 0.29 )
	pt3dadd( -64.04, 110.52, -108.43, 0.29 )
	pt3dadd( -64.49, 111.82, -110.81, 0.29 )
    }
}

proc shape3d_apical_35() {
    dend[ 80 ] { pt3dclear()
	pt3dadd( -48.59, 11.46, -21.98, 1.15 )
	pt3dadd( -50, 10.07, -23.27, 1.15 )
	pt3dadd( -50.56, 9.24, -27.11, 1.15 )
	pt3dadd( -51.7, 8.94, -28.51, 1.15 )
	pt3dadd( -50.53, 7.6, -30.94, 1.15 )
	pt3dadd( -49.66, 6.79, -30.94, 1.15 )
	pt3dadd( -49.06, 5.16, -30.94, 1.15 )
	pt3dadd( -48.45, 3.53, -30.94, 1.15 )
	pt3dadd( -46.45, 3.84, -33.1, 1.15 )
	pt3dadd( -45.58, 3.31, -35.15, 1.15 )
	pt3dadd( -45.29, 3.31, -37.21, 1.15 )
	pt3dadd( -44.71, 2.77, -39.15, 1.15 )
	pt3dadd( -44.67, 0.59, -41.26, 1.15 )
	pt3dadd( -45.81, 0.02, -43.04, 1.15 )
	pt3dadd( -45.22, -0.79, -45.2, 1.15 )
	pt3dadd( -44.91, -2.15, -47.57, 1.15 )
	pt3dadd( -45.47, -2.98, -49.68, 1.15 )
	pt3dadd( -45.45, -4.35, -52.92, 1.15 )
	pt3dadd( -45.42, -5.72, -56.86, 1.15 )
	pt3dadd( -45.39, -7.36, -57.02, 1.15 )
	pt3dadd( -46.51, -9.02, -58.7, 1.15 )
	pt3dadd( -47.35, -10.13, -59.62, 1.15 )
	pt3dadd( -48.48, -11.24, -59.62, 1.15 )
	pt3dadd( -49.61, -12.35, -59.56, 1.15 )
	pt3dadd( -49.5, -13.85, -59.56, 0.86 )
	pt3dadd( -49.86, -14.64, -61.02, 0.86 )
	pt3dadd( -50.52, -15.68, -61.83, 0.86 )
	pt3dadd( -50.64, -17.04, -63.23, 0.86 )
	pt3dadd( -51.05, -18.38, -63.23, 0.86 )
	pt3dadd( -51.64, -18.6, -64.58, 0.86 )
	pt3dadd( -52, -19.39, -66.1, 0.86 )
	pt3dadd( -52.33, -19.91, -66.26, 0.86 )
	pt3dadd( -52.95, -20.41, -66.96, 0.86 )
	pt3dadd( -53.33, -21.47, -66.96, 0.86 )
	pt3dadd( -54, -22.51, -67.18, 0.86 )
	pt3dadd( -54.64, -23.28, -68.58, 0.86 )
	pt3dadd( -55, -24.07, -69.23, 0.86 )
	pt3dadd( -55.05, -24.62, -70.69, 0.86 )
	pt3dadd( -54.55, -25.48, -71.33, 0.86 )
	pt3dadd( -54.07, -26.62, -72.36, 0.86 )
	pt3dadd( -53.6, -27.76, -73.44, 0.86 )
	pt3dadd( -52.86, -29.2, -73.49, 0.86 )
	pt3dadd( -52.93, -30.02, -73.98, 0.57 )
	pt3dadd( -52.48, -31.43, -74.95, 0.57 )
	pt3dadd( -52.57, -32.52, -74.74, 0.57 )
	pt3dadd( -52.71, -34.15, -74.74, 0.57 )
	pt3dadd( -52.52, -35.27, -75.28, 0.57 )
	pt3dadd( -51.57, -37.55, -76.41, 0.57 )
	pt3dadd( -51.69, -38.91, -78.84, 0.57 )
	pt3dadd( -51.52, -40.3, -80.35, 0.57 )
	pt3dadd( -51.12, -42.25, -80.35, 0.57 )
	pt3dadd( -51.26, -43.89, -81.38, 0.57 )
	pt3dadd( -51.1, -45.28, -81.59, 0.57 )
	pt3dadd( -49.91, -48.12, -81.59, 0.57 )
	pt3dadd( -50.26, -48.92, -81.59, 0.57 )
	pt3dadd( -49.52, -50.35, -82.67, 0.57 )
	pt3dadd( -49.64, -51.72, -83.43, 0.57 )
	pt3dadd( -49.76, -53.08, -84.51, 0.57 )
	pt3dadd( -49.86, -54.17, -84.56, 0.57 )
	pt3dadd( -49.69, -55.55, -85.7, 0.57 )
	pt3dadd( -48.69, -57.29, -86.29, 0.57 )
	pt3dadd( -47.93, -58.45, -86.78, 0.57 )
	pt3dadd( -47.43, -59.32, -87.64, 0.57 )
	pt3dadd( -47.31, -61.25, -87.97, 0.57 )
	pt3dadd( -47.76, -63.13, -90.02, 0.57 )
	pt3dadd( -47.91, -64.77, -91.37, 0.57 )
	pt3dadd( -47.98, -65.59, -92.34, 0.57 )
	pt3dadd( -48.69, -67.17, -93.37, 0.57 )
	pt3dadd( -49.34, -67.94, -94.88, 0.57 )
	pt3dadd( -50.6, -69.2, -96.07, 0.57 )
	pt3dadd( -51.81, -69.92, -97.47, 0.57 )
	pt3dadd( -52.48, -70.96, -99.09, 0.57 )
	pt3dadd( -53.38, -71.43, -101.09, 0.57 )
	pt3dadd( -54.53, -71.33, -103.73, 0.57 )
	pt3dadd( -55.53, -72.89, -104.49, 0.57 )
	pt3dadd( -55.91, -73.95, -105.79, 0.57 )
	pt3dadd( -57.18, -75.34, -105.79, 0.29 )
	pt3dadd( -56.82, -75.5, -105.79, 0.29 )
	pt3dadd( -57.64, -75.78, -105.79, 0.29 )
	pt3dadd( -57.73, -76.39, -105.79, 0.29 )
	pt3dadd( -57.82, -77, -109.73, 0.29 )
	pt3dadd( -58.46, -77.8, -111.73, 0.29 )
	pt3dadd( -59.72, -78.53, -113.51, 0.29 )
	pt3dadd( -60.27, -78.71, -113.51, 0.29 )
	pt3dadd( -61.26, -79.34, -113.51, 0.29 )
	pt3dadd( -61.54, -80.31, -115.02, 0.29 )
	pt3dadd( -61, -80.99, -116.26, 0.29 )
	pt3dadd( -60.91, -82.12, -118.37, 0.29 )
	pt3dadd( -61, -81.86, -120.74, 0.29 )
	pt3dadd( -60.91, -82.12, -123.01, 0.29 )
	pt3dadd( -59.83, -82.61, -124.69, 0.29 )
	pt3dadd( -59.93, -83.22, -126.31, 0.29 )
	pt3dadd( -60.02, -84.7, -127.12, 0.29 )
	pt3dadd( -59.49, -85.38, -128.9, 0.29 )
	pt3dadd( -58.31, -85.27, -129.82, 0.29 )
	pt3dadd( -57.77, -85.95, -129.82, 0.29 )
	pt3dadd( -56.7, -87.32, -129.82, 0.29 )
	pt3dadd( -55.98, -87.65, -131.65, 0.29 )
	pt3dadd( -54.72, -88.66, -132.68, 0.29 )
	pt3dadd( -54.48, -87.95, -132.89, 0.29 )
	pt3dadd( -53.94, -87.76, -133, 0.29 )
	pt3dadd( -52.49, -87.55, -133.43, 0.29 )
	pt3dadd( -51.13, -87.09, -134.89, 0.29 )
	pt3dadd( -50.32, -86.81, -136.08, 0.29 )
	pt3dadd( -49.78, -86.62, -138.73, 0.29 )
	pt3dadd( -49.86, -85.49, -138.73, 0.29 )
	pt3dadd( -49.13, -84.08, -138.73, 0.29 )
	pt3dadd( -48.14, -83.45, -138.73, 0.29 )
	pt3dadd( -46.96, -83.34, -138.73, 0.29 )
	pt3dadd( -46.42, -83.15, -139.54, 0.29 )
	pt3dadd( -44.71, -82.85, -140.35, 0.29 )
	pt3dadd( -43.35, -82.38, -140.35, 0.29 )
	pt3dadd( -42.26, -82.01, -140.83, 0.29 )
	pt3dadd( -40.37, -82.22, -140.89, 0.29 )
	pt3dadd( -39.93, -83.52, -141.43, 0.29 )
	pt3dadd( -39.93, -83.52, -139.64, 0.29 )
	pt3dadd( -38.58, -84.79, -139.64, 0.29 )
	pt3dadd( -37.5, -85.28, -139.64, 0.29 )
	pt3dadd( -36.69, -85.87, -139.64, 0.29 )
	pt3dadd( -36.15, -86.55, -139.64, 0.29 )
	pt3dadd( -35.79, -86.72, -139.21, 0.29 )
	pt3dadd( -34.98, -87.31, -140.45, 0.29 )
	pt3dadd( -34.35, -88.25, -141.37, 0.29 )
	pt3dadd( -33.54, -88.84, -142.02, 0.29 )
	pt3dadd( -32.83, -90.91, -142.02, 0.29 )
	pt3dadd( -32.56, -91.68, -143.26, 0.29 )
	pt3dadd( -32.3, -92.46, -144.5, 0.29 )
	pt3dadd( -32.57, -93.42, -144.99, 0.29 )
	pt3dadd( -32.4, -94.81, -144.99, 0.29 )
	pt3dadd( -33.94, -96.49, -146.02, 0.29 )
	pt3dadd( -34.3, -97.2, -143.69, 0.29 )
	pt3dadd( -34.4, -98.68, -142.78, 0.29 )
	pt3dadd( -34.59, -99.9, -142.56, 0.29 )
	pt3dadd( -35.32, -101.31, -142.29, 0.29 )
	pt3dadd( -35.32, -102.18, -141.75, 0.29 )
	pt3dadd( -35.69, -103.75, -141.59, 0.29 )
	pt3dadd( -35.6, -104.88, -141.59, 0.29 )
	pt3dadd( -35.7, -105.49, -141.64, 0.29 )
    }
}

proc shape3d_apical_36() {
    dend[ 81 ] { pt3dclear()
	pt3dadd( -229.57, 332.71, -15.12, 1.72 )
	pt3dadd( -231.31, 333.77, -15.44, 1.72 )
	pt3dadd( -232.49, 335.39, -17.87, 1.72 )
	pt3dadd( -233.96, 337.56, -18.68, 1.72 )
	pt3dadd( -234.27, 339.19, -19.6, 1.72 )
	pt3dadd( -235.74, 340.81, -20.52, 1.72 )
	pt3dadd( -237.19, 341.87, -21.11, 1.72 )
	pt3dadd( -238.36, 343.22, -22.3, 1.72 )
	pt3dadd( -238.65, 343.22, -20.74, 1.72 )
    }
}

proc shape3d_apical_37() {
    dend[ 82 ] { pt3dclear()
	pt3dadd( -229.57, 332.71, -15.12, 1.15 )
	pt3dadd( -229.56, 334.58, -13.93, 1.15 )
	pt3dadd( -229.87, 336.22, -11.61, 1.15 )
	pt3dadd( -231.03, 337.02, -9.94, 1.15 )
	pt3dadd( -231.9, 337.55, -7.56, 1.15 )
	pt3dadd( -234.5, 338.6, -5.18, 1.15 )
	pt3dadd( -234.55, 341.06, -3.62, 1.15 )
	pt3dadd( -235.72, 342.41, -3.35, 1.15 )
	pt3dadd( -236.35, 345.95, -2.92, 1.15 )
	pt3dadd( -237.58, 351.38, -2.92, 1.43 )
	pt3dadd( -239.34, 355.21, -2.92, 1.43 )
	pt3dadd( -239.93, 357.41, -2.11, 1.43 )
	pt3dadd( -240.79, 358.23, -2.11, 1.43 )
	pt3dadd( -242.8, 358.23, -2.11, 1.43 )
	pt3dadd( -243.94, 359.32, -1.24, 1.43 )
	pt3dadd( -245.38, 360.97, -1.19, 1.43 )
	pt3dadd( -246.53, 362.06, -1.19, 1.43 )
	pt3dadd( -247.96, 363.15, -0.81, 1.43 )
	pt3dadd( -249.11, 365.61, 0.11, 1.43 )
	pt3dadd( -250.26, 366.71, 0.7, 1.43 )
	pt3dadd( -251.4, 367.25, 1.03, 1.43 )
	pt3dadd( -252.26, 367.8, 2.05, 1.43 )
	pt3dadd( -253.41, 368.35, 2.43, 1.43 )
	pt3dadd( -254.56, 368.9, 3.19, 1.43 )
	pt3dadd( -255.5, 370.68, 2.7, 1.43 )
	pt3dadd( -257.51, 372.59, 3.83, 1.43 )
	pt3dadd( -258.95, 373.69, 4.21, 1.43 )
	pt3dadd( -260.38, 374.23, 4.21, 1.43 )
    }
}

proc shape3d_apical_38() {
    dend[ 83 ] { pt3dclear()
	pt3dadd( -191.52, 320.47, -25.43, 1.15 )
	pt3dadd( -190.7, 322.67, -27.43, 1.15 )
	pt3dadd( -190.74, 324.86, -28.08, 1.15 )
	pt3dadd( -191.07, 327.31, -28.08, 1.15 )
	pt3dadd( -190.54, 329.78, -28.08, 1.15 )
	pt3dadd( -190.56, 331.15, -28.13, 1.15 )
	pt3dadd( -190.31, 332.8, -29.21, 1.15 )
	pt3dadd( -190.05, 334.71, -29.21, 1.15 )
	pt3dadd( -189.81, 337.18, -29.21, 1.15 )
	pt3dadd( -189.84, 339.09, -29.21, 1.15 )
	pt3dadd( -189.31, 341.29, -29.21, 1.15 )
	pt3dadd( -188.74, 341.85, -29.75, 1.15 )
	pt3dadd( -187.91, 343.78, -30.13, 1.15 )
	pt3dadd( -187.36, 344.88, -31.1, 1.15 )
	pt3dadd( -187.41, 347.89, -31.16, 1.15 )
	pt3dadd( -188, 348.7, -31.16, 1.15 )
	pt3dadd( -188.02, 350.07, -32.08, 1.15 )
	pt3dadd( -188.05, 351.43, -32.08, 1.15 )
	pt3dadd( -187.47, 351.44, -32.08, 1.15 )
	pt3dadd( -187.2, 351.99, -32.08, 1.15 )
	pt3dadd( -186.64, 352.83, -32.08, 1.15 )
	pt3dadd( -186.94, 353.91, -32.08, 1.15 )
	pt3dadd( -187.55, 355.54, -32.89, 1.15 )
	pt3dadd( -187.87, 357.73, -32.94, 1.15 )
	pt3dadd( -188.18, 358.82, -32.94, 1.15 )
	pt3dadd( -189.06, 359.89, -32.94, 1.15 )
	pt3dadd( -189.07, 360.71, -32.94, 1.15 )
	pt3dadd( -188.83, 361.58, -32.08, 1.15 )
	pt3dadd( -188.88, 364.04, -32.13, 1.15 )
	pt3dadd( -188.62, 365.96, -32.13, 1.15 )
	pt3dadd( -188.65, 367.32, -32.13, 1.15 )
	pt3dadd( -188.68, 369.24, -32.13, 1.15 )
	pt3dadd( -189.27, 370.32, -32.13, 1.15 )
	pt3dadd( -189.59, 372.23, -31.81, 1.15 )
	pt3dadd( -190.19, 373.31, -31.75, 1.15 )
	pt3dadd( -190.52, 375.77, -31.75, 1.15 )
	pt3dadd( -190.53, 376.59, -31.75, 1.15 )
	pt3dadd( -190.84, 377.95, -30.94, 1.15 )
	pt3dadd( -191.15, 379.04, -30.94, 1.15 )
	pt3dadd( -191.46, 380.4, -30.94, 1.15 )
	pt3dadd( -191.48, 381.5, -30.94, 1.15 )
	pt3dadd( -191.22, 383.42, -30.08, 1.15 )
	pt3dadd( -191.25, 385.06, -30.08, 1.15 )
	pt3dadd( -191.29, 386.97, -29.21, 1.15 )
	pt3dadd( -191.03, 388.89, -29.21, 1.15 )
	pt3dadd( -191.05, 389.98, -29.21, 1.15 )
	pt3dadd( -191.08, 391.9, -29.21, 1.15 )
    }
}

proc shape3d_apical_39() {
    dend[ 84 ] { pt3dclear()
	pt3dadd( -191.52, 320.47, -25.43, 1.72 )
	pt3dadd( -193.61, 321.74, -29.27, 1.72 )
	pt3dadd( -195.08, 323.9, -32.08, 1.72 )
	pt3dadd( -195.41, 326.63, -33.16, 1.72 )
	pt3dadd( -197.17, 328.51, -33.16, 1.72 )
	pt3dadd( -198.05, 329.59, -34.07, 1.72 )
	pt3dadd( -199.8, 331.2, -34.07, 1.72 )
	pt3dadd( -201.54, 332.54, -34.07, 1.72 )
	pt3dadd( -201.86, 334.17, -35.86, 1.72 )
	pt3dadd( -203.31, 335.24, -36.34, 1.72 )
	pt3dadd( -203.66, 335.56, -36.34, 1.72 )
    }
}

proc shape3d_apical_40() {
    dend[ 85 ] { pt3dclear()
	pt3dadd( -238.65, 343.22, -20.74, 1.72 )
	pt3dadd( -239.55, 345.66, -18.09, 1.72 )
	pt3dadd( -240.14, 346.47, -18.09, 1.72 )
	pt3dadd( -240.73, 347.28, -17.17, 1.72 )
	pt3dadd( -242.19, 348.62, -17.06, 1.72 )
	pt3dadd( -243.92, 349.42, -16.74, 1.43 )
	pt3dadd( -244.8, 350.49, -14.8, 1.43 )
	pt3dadd( -245.1, 351.04, -17.17, 1.43 )
	pt3dadd( -247.13, 352.37, -18.95, 1.43 )
	pt3dadd( -248.58, 353.16, -20.63, 1.43 )
	pt3dadd( -249.74, 354.24, -21.82, 1.43 )
	pt3dadd( -249.76, 355.33, -23.27, 1.43 )
	pt3dadd( -249.79, 356.7, -24.52, 1.43 )
	pt3dadd( -251.79, 356.66, -25.49, 1.43 )
	pt3dadd( -253.53, 357.73, -25.49, 1.43 )
	pt3dadd( -255.28, 359.34, -25.49, 1.43 )
	pt3dadd( -257.59, 360.12, -27.65, 1.43 )
	pt3dadd( -258.19, 361.47, -27.76, 1.43 )
	pt3dadd( -259.36, 362.55, -27.76, 1.43 )
    }
}

proc shape3d_apical_41() {
    dend[ 86 ] { pt3dclear()
	pt3dadd( -238.65, 343.22, -20.74, 1.43 )
	pt3dadd( -238.59, 345.86, -22.14, 1.43 )
	pt3dadd( -239.76, 347.21, -25.38, 1.43 )
	pt3dadd( -240.93, 348.55, -27.11, 1.43 )
	pt3dadd( -242.1, 349.9, -29.48, 1.43 )
	pt3dadd( -243.28, 351.79, -29.75, 1.43 )
	pt3dadd( -243.6, 353.7, -31.1, 1.43 )
	pt3dadd( -244.21, 355.88, -33.1, 1.43 )
	pt3dadd( -242.8, 357.27, -34.29, 1.43 )
	pt3dadd( -243.12, 359.18, -34.45, 1.43 )
    }
}

proc shape3d_apical_42() {
    dend[ 87 ] { pt3dclear()
	pt3dadd( -260.38, 374.23, 4.21, 1.15 )
	pt3dadd( -262.68, 373.69, 4.27, 1.15 )
	pt3dadd( -264.68, 374.23, 2.97, 1.15 )
	pt3dadd( -266.41, 373.69, 2.97, 1.15 )
	pt3dadd( -267.27, 372.32, 2.97, 1.15 )
	pt3dadd( -269.27, 372.59, 2.21, 1.15 )
	pt3dadd( -271.28, 373.14, 2.86, 1.15 )
	pt3dadd( -272.72, 373.69, 2.59, 1.15 )
	pt3dadd( -273.86, 373.96, 2.11, 1.15 )
	pt3dadd( -275.59, 372.32, 2.05, 1.15 )
	pt3dadd( -276.45, 371.77, 1.46, 1.15 )
	pt3dadd( -279.31, 372.87, 1.78, 1.15 )
	pt3dadd( -280.75, 372.05, 1.84, 1.15 )
	pt3dadd( -282.18, 371.22, 1.57, 1.15 )
	pt3dadd( -283.62, 370.68, 0.65, 1.15 )
	pt3dadd( -285.05, 370.13, 0.59, 1.15 )
	pt3dadd( -286.77, 369.31, -0.05, 1.15 )
	pt3dadd( -288.21, 368.76, -0.11, 1.15 )
	pt3dadd( -289.64, 368.22, -0.97, 1.15 )
	pt3dadd( -292.8, 367.67, -0.97, 1.15 )
	pt3dadd( -295.38, 367.67, -0.97, 1.15 )
	pt3dadd( -297.39, 368.76, -1.03, 1.15 )
	pt3dadd( -299.68, 370.13, -1.3, 1.15 )
	pt3dadd( -301.12, 370.4, -1.3, 1.15 )
	pt3dadd( -301.98, 370.95, -2.43, 1.15 )
	pt3dadd( -302.55, 372.32, -2.54, 1.15 )
	pt3dadd( -304.56, 373.41, -2.54, 1.15 )
	pt3dadd( -306.28, 375.33, -3.4, 1.15 )
	pt3dadd( -306.85, 376.97, -3.4, 1.15 )
	pt3dadd( -307.71, 377.79, -4.43, 1.15 )
	pt3dadd( -309.15, 378.61, -5.45, 1.15 )
	pt3dadd( -310.87, 379.43, -5.45, 1.15 )
	pt3dadd( -311.73, 380.8, -5.51, 1.15 )
	pt3dadd( -311.73, 382.71, -7.67, 1.15 )
	pt3dadd( -311.73, 383.8, -9.13, 1.15 )
	pt3dadd( -313.45, 384.9, -10.69, 1.15 )
	pt3dadd( -314.31, 386.26, -10.69, 1.15 )
	pt3dadd( -315.46, 387.09, -11.29, 1.15 )
	pt3dadd( -317.45, 387.86, -11.12, 1.15 )
	pt3dadd( -319.46, 389.5, -12.47, 1.15 )
	pt3dadd( -322.62, 391.41, -11.88, 1.15 )
	pt3dadd( -324.91, 391.69, -13.34, 1.15 )
	pt3dadd( -326.92, 393.87, -14.36, 1.15 )
	pt3dadd( -328.35, 394.42, -14.36, 1.15 )
	pt3dadd( -329.5, 395.51, -15.01, 1.15 )
	pt3dadd( -330.65, 396.88, -15.01, 1.15 )
	pt3dadd( -331.8, 396.61, -15.01, 1.15 )
	pt3dadd( -333.8, 397.7, -16.15, 1.15 )
	pt3dadd( -335.81, 399.07, -15.23, 1.15 )
	pt3dadd( -336.39, 399.89, -15.07, 1.15 )
	pt3dadd( -337.25, 400.71, -17.06, 1.15 )
	pt3dadd( -338.39, 402.08, -18.9, 1.15 )
	pt3dadd( -339.25, 404.26, -18.9, 1.15 )
	pt3dadd( -340.11, 405.63, -20.14, 1.15 )
	pt3dadd( -340.4, 407.27, -20.41, 1.15 )
	pt3dadd( -341.26, 408.09, -20.79, 1.15 )
	pt3dadd( -342.7, 408.37, -21.6, 1.15 )
	pt3dadd( -344.42, 409.73, -20.84, 1.15 )
	pt3dadd( -344.99, 410.28, -22.36, 1.15 )
	pt3dadd( -345.57, 411.37, -23.22, 1.15 )
	pt3dadd( -347.86, 411.92, -23.22, 1.15 )
    }
}

proc shape3d_apical_43() {
    dend[ 88 ] { pt3dclear()
	pt3dadd( -260.38, 374.23, 4.21, 1.15 )
	pt3dadd( -261.8, 376.35, 5.08, 1.15 )
	pt3dadd( -263.24, 377.99, 5.08, 1.15 )
	pt3dadd( -264.1, 379.09, 5.4, 1.15 )
	pt3dadd( -264.96, 379.63, 6.86, 1.15 )
	pt3dadd( -265.82, 380.73, 6.86, 1.15 )
	pt3dadd( -266.68, 381.82, 7.72, 1.15 )
	pt3dadd( -267.83, 383.46, 7.78, 1.15 )
	pt3dadd( -269.55, 384.55, 8.21, 1.15 )
	pt3dadd( -270.98, 385.65, 8.75, 1.15 )
	pt3dadd( -272.13, 386.74, 9.29, 1.15 )
	pt3dadd( -273.28, 388.11, 9.61, 1.15 )
	pt3dadd( -273.57, 389.2, 10.15, 1.15 )
	pt3dadd( -273.57, 390.57, 11.07, 1.15 )
	pt3dadd( -273.85, 392.49, 11.29, 1.15 )
	pt3dadd( -274.43, 393.85, 11.34, 1.15 )
	pt3dadd( -275.29, 395.49, 12.47, 1.15 )
	pt3dadd( -276.43, 396.59, 11.93, 1.15 )
	pt3dadd( -276.15, 397.68, 12.1, 1.15 )
	pt3dadd( -276.43, 399.87, 12.1, 1.15 )
	pt3dadd( -276.43, 400.69, 13.39, 1.15 )
	pt3dadd( -276.43, 402.33, 12.91, 1.15 )
	pt3dadd( -277.01, 403.97, 11.66, 1.15 )
	pt3dadd( -277.87, 405.34, 10.42, 1.15 )
	pt3dadd( -277.87, 407.53, 9.13, 1.15 )
	pt3dadd( -278.73, 408.07, 7.45, 1.15 )
    }
}

proc shape3d_apical_44() {
    dend[ 89 ] { pt3dclear()
	pt3dadd( -191.08, 391.9, -29.21, 1.15 )
	pt3dadd( -190.55, 394.09, -29.38, 1.15 )
	pt3dadd( -190.57, 395.46, -29.75, 1.15 )
	pt3dadd( -190.6, 396.83, -29.75, 1.15 )
	pt3dadd( -191.2, 398.46, -29.75, 1.15 )
	pt3dadd( -191.22, 399.83, -29.75, 1.15 )
	pt3dadd( -190.68, 401.48, -29.75, 1.15 )
	pt3dadd( -190.43, 403.67, -29.75, 1.15 )
	pt3dadd( -189.85, 403.41, -30.56, 1.15 )
	pt3dadd( -189.29, 404.24, -30.56, 1.15 )
	pt3dadd( -188.16, 405.08, -30.56, 1.15 )
	pt3dadd( -187.61, 406.45, -30.56, 1.15 )
	pt3dadd( -187.07, 408.38, -31.75, 1.15 )
	pt3dadd( -186.67, 409.4, -32.08, 1.15 )
	pt3dadd( -186.71, 411.58, -32.89, 1.15 )
	pt3dadd( -186.74, 413.77, -32.89, 1.15 )
	pt3dadd( -186.48, 414.87, -32.89, 1.15 )
	pt3dadd( -186.8, 417.05, -32.89, 1.15 )
	pt3dadd( -187.11, 418.14, -33.86, 1.15 )
	pt3dadd( -187.14, 419.78, -33.86, 1.15 )
	pt3dadd( -186.87, 420.88, -34.45, 1.15 )
	pt3dadd( -186.6, 421.71, -34.88, 1.15 )
	pt3dadd( -186.61, 422.53, -35.96, 1.15 )
	pt3dadd( -186.06, 424.18, -36.94, 1.15 )
	pt3dadd( -186.38, 425.54, -38.66, 1.15 )
	pt3dadd( -186.96, 426.08, -40.23, 1.15 )
	pt3dadd( -187.26, 426.89, -41.53, 1.15 )
	pt3dadd( -187.56, 427.71, -41.58, 1.15 )
	pt3dadd( -187.29, 428.8, -42.12, 1.15 )
	pt3dadd( -186.74, 430.18, -42.12, 1.15 )
	pt3dadd( -186.19, 431.29, -42.12, 1.15 )
	pt3dadd( -186.2, 431.83, -42.12, 1.15 )
	pt3dadd( -184.78, 432.68, -42.12, 1.15 )
	pt3dadd( -183.64, 433.24, -42.12, 1.15 )
	pt3dadd( -182.51, 434.08, -42.12, 1.15 )
	pt3dadd( -182.24, 434.91, -43.47, 1.15 )
	pt3dadd( -181.41, 436.84, -43.04, 1.15 )
	pt3dadd( -181.14, 437.94, -43.04, 1.15 )
    }
}

proc shape3d_apical_45() {
    dend[ 90 ] { pt3dclear()
	pt3dadd( -191.08, 391.9, -29.21, 1.15 )
	pt3dadd( -191.74, 394.13, -29.11, 1.15 )
	pt3dadd( -192.35, 396.3, -29.11, 1.15 )
	pt3dadd( -192.64, 396.85, -29.11, 1.15 )
	pt3dadd( -192.67, 398.21, -29.11, 1.15 )
	pt3dadd( -191.55, 400.15, -28.4, 1.15 )
	pt3dadd( -190.42, 400.71, -28.57, 1.15 )
	pt3dadd( -189.29, 402.1, -28.57, 1.15 )
	pt3dadd( -188.46, 403.76, -28.57, 1.15 )
	pt3dadd( -188.21, 405.68, -28.57, 1.15 )
	pt3dadd( -188.24, 407.32, -28.57, 1.15 )
	pt3dadd( -188.25, 408.14, -28.57, 1.15 )
	pt3dadd( -185.99, 410.09, -27.92, 1.15 )
	pt3dadd( -185.17, 412.57, -26.14, 1.15 )
	pt3dadd( -184.64, 415.04, -25.97, 1.15 )
	pt3dadd( -184.68, 417.22, -24.68, 1.15 )
	pt3dadd( -183.84, 418.61, -24.68, 1.15 )
	pt3dadd( -183.59, 420.8, -24.68, 1.15 )
	pt3dadd( -182.2, 423.01, -24.68, 1.15 )
	pt3dadd( -181.66, 424.93, -24.68, 1.15 )
	pt3dadd( -180.54, 426.32, -24.68, 1.15 )
	pt3dadd( -179.14, 428.81, -24.68, 1.15 )
	pt3dadd( -178.91, 431.82, -24.68, 1.15 )
	pt3dadd( -178.09, 434.02, -23.76, 1.15 )
	pt3dadd( -178.4, 435.38, -23.76, 1.15 )
	pt3dadd( -178.43, 437.02, -23.76, 1.15 )
	pt3dadd( -178.45, 438.39, -23.76, 1.15 )
	pt3dadd( -178.47, 439.49, -23.76, 1.15 )
	pt3dadd( -177.93, 440.93, -24.25, 1.15 )
	pt3dadd( -177.97, 443.39, -24.25, 1.15 )
	pt3dadd( -177.45, 446.13, -24.25, 1.15 )
	pt3dadd( -176.03, 446.98, -24.25, 1.15 )
	pt3dadd( -175.48, 448.36, -24.14, 1.15 )
	pt3dadd( -174.93, 449.73, -23.98, 1.15 )
	pt3dadd( -174.39, 451.93, -23.98, 1.15 )
	pt3dadd( -174.42, 453.57, -23.54, 1.15 )
	pt3dadd( -174.46, 455.76, -24.25, 1.15 )
	pt3dadd( -175.36, 457.93, -24.52, 1.15 )
	pt3dadd( -175.39, 459.57, -24.62, 1.15 )
	pt3dadd( -175.69, 460.66, -27, 1.15 )
	pt3dadd( -176.01, 462.57, -27.7, 1.15 )
	pt3dadd( -175.45, 463.12, -27.92, 1.15 )
	pt3dadd( -175.19, 465.04, -29.05, 1.15 )
	pt3dadd( -175.22, 466.41, -29.81, 1.15 )
	pt3dadd( -175.55, 469.14, -31.75, 1.15 )
	pt3dadd( -175.3, 471.33, -32.94, 1.15 )
	pt3dadd( -175.91, 473.24, -31.64, 1.15 )
	pt3dadd( -177.95, 475.11, -31.64, 1.15 )
	pt3dadd( -178.54, 475.93, -32.45, 1.15 )
	pt3dadd( -178.85, 477.29, -31.27, 1.15 )
	pt3dadd( -180.31, 478.63, -30.89, 1.15 )
	pt3dadd( -182.34, 479.96, -30.83, 1.15 )
	pt3dadd( -183.51, 481.31, -30.83, 1.15 )
	pt3dadd( -184.12, 483.49, -29.75, 1.15 )
	pt3dadd( -185.01, 484.84, -30.19, 1.15 )
	pt3dadd( -185.03, 485.93, -30.24, 1.15 )
	pt3dadd( -185.5, 488.5, -30.67, 1.15 )
	pt3dadd( -186.1, 490.4, -29.65, 1.15 )
	pt3dadd( -187.84, 491.47, -32.72, 1.15 )
	pt3dadd( -189.06, 495.55, -33.75, 1.15 )
	pt3dadd( -189.65, 496.63, -34.18, 1.15 )
	pt3dadd( -190.25, 497.71, -35.05, 1.15 )
	pt3dadd( -192.59, 500.41, -35.96, 1.15 )
	pt3dadd( -193.48, 502.31, -37.42, 1.15 )
	pt3dadd( -194.37, 503.93, -38.83, 1.15 )
	pt3dadd( -194.97, 505.29, -40.01, 1.15 )
	pt3dadd( -195.86, 506.91, -40.93, 1.15 )
	pt3dadd( -196.74, 508.27, -41.15, 1.15 )
	pt3dadd( -197.35, 510.44, -41.9, 1.15 )
	pt3dadd( -198.23, 511.52, -42.77, 1.15 )
	pt3dadd( -198.26, 513.16, -43.79, 1.15 )
	pt3dadd( -198.87, 514.79, -44.01, 1.15 )
	pt3dadd( -200.03, 515.87, -45.2, 1.15 )
	pt3dadd( -200.62, 516.95, -47.84, 1.15 )
	pt3dadd( -201.51, 518.58, -49.3, 1.15 )
	pt3dadd( -202.4, 520.2, -48.92, 1.15 )
	pt3dadd( -202.44, 522.39, -51.19, 1.15 )
	pt3dadd( -203.64, 525.1, -51.52, 1.15 )
    }
}

proc shape3d_apical_46() {
    dend[ 91 ] { pt3dclear()
	pt3dadd( -203.66, 335.56, -36.34, 1.72 )
	pt3dadd( -203.9, 336.32, -39.37, 1.72 )
	pt3dadd( -203.93, 337.96, -41.09, 1.72 )
	pt3dadd( -204.83, 340.14, -42.61, 1.72 )
	pt3dadd( -205.14, 341.23, -44.39, 1.72 )
	pt3dadd( -205.16, 342.32, -46.12, 1.72 )
	pt3dadd( -205.17, 343.14, -47.63, 1.72 )
	pt3dadd( -205.19, 344.51, -47.84, 1.72 )
	pt3dadd( -206.09, 346.41, -48.65, 1.72 )
	pt3dadd( -206.96, 346.94, -49.25, 1.72 )
	pt3dadd( -207.86, 349.11, -50.17, 1.72 )
	pt3dadd( -207.31, 350.49, -52.7, 1.72 )
	pt3dadd( -206.76, 351.86, -54.32, 1.72 )
	pt3dadd( -205.94, 354.34, -56.43, 1.72 )
	pt3dadd( -205.96, 355.43, -58.75, 1.72 )
	pt3dadd( -205.71, 357.9, -60.43, 1.72 )
	pt3dadd( -206.6, 359.25, -60.7, 1.72 )
	pt3dadd( -206.35, 361.44, -61.94, 1.72 )
	pt3dadd( -206.42, 362.6, -61.94, 1.15 )
	pt3dadd( -206.27, 364.24, -63.72, 1.15 )
	pt3dadd( -205.51, 366.37, -65.29, 1.15 )
	pt3dadd( -205.37, 368, -66.1, 1.15 )
	pt3dadd( -204.96, 369.34, -67.34, 1.15 )
	pt3dadd( -204.54, 370.95, -68.09, 1.15 )
	pt3dadd( -204.18, 371.74, -69.82, 1.15 )
	pt3dadd( -203.75, 373.35, -69.93, 1.15 )
	pt3dadd( -203.61, 374.98, -70.58, 1.15 )
	pt3dadd( -203.75, 376.64, -70.69, 1.15 )
	pt3dadd( -203.68, 377.46, -72.2, 1.15 )
	pt3dadd( -203.84, 378.85, -72.79, 1.15 )
	pt3dadd( -203.72, 380.21, -74.14, 1.15 )
	pt3dadd( -203.89, 381.6, -75.17, 1.15 )
	pt3dadd( -203.82, 382.41, -75.71, 1.15 )
    }
}

proc shape3d_apical_47() {
    dend[ 92 ] { pt3dclear()
	pt3dadd( -203.66, 335.56, -36.34, 1.15 )
	pt3dadd( -203.7, 337.74, -27.81, 1.15 )
	pt3dadd( -203.74, 339.93, -27.81, 1.15 )
	pt3dadd( -204.91, 341.28, -27.81, 1.15 )
	pt3dadd( -205.81, 343.45, -27.81, 1.15 )
	pt3dadd( -206.99, 345.62, -27.81, 1.15 )
	pt3dadd( -207.02, 347.26, -27.81, 1.15 )
	pt3dadd( -206.78, 350.27, -27.65, 1.15 )
	pt3dadd( -207.11, 352.73, -26.89, 1.15 )
	pt3dadd( -208.3, 354.89, -26.08, 1.15 )
	pt3dadd( -208.63, 357.35, -25.49, 1.15 )
	pt3dadd( -209.23, 358.98, -23.22, 1.15 )
	pt3dadd( -209.55, 360.62, -22.79, 1.15 )
	pt3dadd( -209.88, 363.07, -22.79, 1.15 )
	pt3dadd( -209.91, 364.99, -22.79, 1.15 )
	pt3dadd( -210.23, 366.62, -21.38, 1.15 )
	pt3dadd( -211.12, 368.52, -21.38, 1.15 )
	pt3dadd( -211.71, 369.6, -19.44, 1.15 )
	pt3dadd( -212.31, 370.96, -18.25, 1.15 )
	pt3dadd( -212.37, 374.24, -18.2, 1.15 )
	pt3dadd( -213.27, 376.69, -18.2, 1.15 )
	pt3dadd( -213.59, 378.6, -17.39, 1.15 )
	pt3dadd( -214.77, 380.49, -17.33, 1.15 )
	pt3dadd( -215.94, 381.84, -17.33, 1.15 )
	pt3dadd( -216.55, 383.74, -17.33, 1.15 )
	pt3dadd( -218.02, 385.9, -17.06, 1.15 )
	pt3dadd( -218.9, 386.98, -16.9, 1.15 )
	pt3dadd( -219.78, 388.06, -17.17, 1.15 )
	pt3dadd( -221.51, 388.3, -17.12, 1.15 )
	pt3dadd( -223.54, 389.64, -17.12, 1.15 )
	pt3dadd( -223.85, 391.27, -17.06, 1.15 )
	pt3dadd( -224.73, 392.08, -17.06, 1.15 )
	pt3dadd( -225.9, 393.42, -17.06, 1.15 )
	pt3dadd( -227.32, 395.31, -17.01, 1.15 )
	pt3dadd( -227.35, 396.95, -17.01, 1.15 )
	pt3dadd( -227.66, 398.31, -17.01, 1.15 )
	pt3dadd( -229.11, 399.1, -16.96, 1.15 )
	pt3dadd( -231.14, 400.44, -16.85, 1.15 )
	pt3dadd( -232.01, 400.69, -16.31, 1.15 )
	pt3dadd( -232.9, 402.32, -16.04, 1.15 )
	pt3dadd( -233.79, 404.22, -16.04, 1.15 )
	pt3dadd( -235.25, 405.56, -16.31, 1.15 )
	pt3dadd( -235.85, 406.92, -16.31, 1.15 )
	pt3dadd( -236.43, 407.73, -16.31, 1.15 )
	pt3dadd( -237.03, 409.08, -16.31, 1.15 )
	pt3dadd( -237.91, 410.16, -16.31, 1.15 )
	pt3dadd( -238.23, 411.8, -16.31, 1.15 )
	pt3dadd( -238.54, 413.16, -16.09, 1.15 )
	pt3dadd( -239.7, 414.23, -16.15, 1.15 )
	pt3dadd( -240.01, 415.6, -16.79, 1.15 )
	pt3dadd( -240.06, 418.06, -17.33, 1.15 )
	pt3dadd( -240.09, 419.97, -17.33, 1.15 )
	pt3dadd( -240.11, 421.34, -17.39, 1.15 )
	pt3dadd( -240.13, 422.43, -17.33, 1.15 )
	pt3dadd( -241.02, 423.78, -17.33, 1.15 )
	pt3dadd( -241.62, 425.41, -17.33, 1.15 )
	pt3dadd( -241.64, 426.78, -17.33, 1.15 )
	pt3dadd( -241.66, 427.6, -17.33, 1.15 )
	pt3dadd( -241.4, 428.97, -16.74, 1.15 )
	pt3dadd( -241.41, 429.79, -15.39, 1.15 )
	pt3dadd( -242.58, 430.87, -15.66, 1.15 )
	pt3dadd( -242.6, 431.96, -15.66, 1.15 )
	pt3dadd( -242.61, 433.05, -15.5, 1.15 )
	pt3dadd( -242.65, 435.24, -14.26, 1.15 )
	pt3dadd( -242.69, 437.16, -13.66, 1.15 )
	pt3dadd( -242.71, 438.25, -13.5, 1.15 )
	pt3dadd( -243.58, 439.33, -12.2, 1.15 )
	pt3dadd( -244.46, 440.13, -12.2, 1.15 )
	pt3dadd( -245.68, 443.56, -12.8, 1.15 )
	pt3dadd( -246.86, 445.18, -12.42, 1.15 )
	pt3dadd( -248.86, 444.87, -13.01, 1.15 )
	pt3dadd( -249.41, 443.5, -13.28, 1.15 )
	pt3dadd( -250.83, 442.38, -15.77, 1.15 )
	pt3dadd( -251.09, 441, -19.33, 1.15 )
	pt3dadd( -250.81, 441.56, -21.06, 1.15 )
	pt3dadd( -250.27, 443.48, -21.71, 1.15 )
	pt3dadd( -249.71, 444.04, -23.38, 1.15 )
	pt3dadd( -249.44, 445.14, -24.62, 1.15 )
	pt3dadd( -249.46, 446.23, -24.62, 1.15 )
	pt3dadd( -249.76, 447.32, -26.24, 1.15 )
	pt3dadd( -250.08, 448.95, -27, 1.15 )
	pt3dadd( -249.81, 450.05, -27, 1.15 )
	pt3dadd( -249.85, 452.24, -28.3, 1.15 )
	pt3dadd( -251.32, 454.4, -28.84, 1.15 )
	pt3dadd( -251.36, 456.32, -29.11, 1.15 )
	pt3dadd( -251.11, 458.51, -30.4, 1.15 )
	pt3dadd( -251.13, 459.88, -32.62, 1.15 )
	pt3dadd( -252.01, 460.68, -33.75, 1.15 )
	pt3dadd( -252.89, 462.31, -33.75, 1.15 )
	pt3dadd( -252.93, 464.22, -34.94, 1.15 )
	pt3dadd( -252.67, 465.87, -34.94, 1.15 )
	pt3dadd( -252.39, 466.42, -36.13, 1.15 )
	pt3dadd( -252.42, 467.78, -38.12, 1.15 )
	pt3dadd( -252.44, 468.88, -39.69, 1.15 )
	pt3dadd( -253.6, 469.68, -41.26, 1.15 )
	pt3dadd( -253.62, 471.04, -41.31, 1.15 )
	pt3dadd( -254.21, 471.86, -41.31, 1.15 )
	pt3dadd( -256.24, 472.91, -42.44, 1.15 )
	pt3dadd( -257.41, 474.26, -42.44, 1.15 )
	pt3dadd( -258.27, 474.52, -42.55, 1.15 )
	pt3dadd( -259.71, 474.49, -43.36, 1.15 )
	pt3dadd( -260.6, 476.12, -43.74, 1.15 )
	pt3dadd( -261.47, 477.2, -43.9, 1.15 )
	pt3dadd( -262.63, 477.45, -44.6, 1.15 )
	pt3dadd( -264.65, 478.24, -44.6, 1.15 )
	pt3dadd( -264.94, 478.23, -44.17, 1.15 )
	pt3dadd( -266.38, 478.75, -43.36, 1.15 )
	pt3dadd( -268.12, 479.82, -47.41, 1.15 )
	pt3dadd( -268.42, 480.36, -48.65, 1.15 )
    }
}

proc shape3d_apical_48() {
    dend[ 93 ] { pt3dclear()
	pt3dadd( -259.36, 362.55, -27.76, 1.43 )
	pt3dadd( -261.96, 363.6, -27.97, 1.43 )
	pt3dadd( -263.98, 364.38, -27.97, 1.43 )
	pt3dadd( -265.68, 364.79, -28.13, 1.43 )
	pt3dadd( -267.12, 364.77, -28.03, 1.43 )
	pt3dadd( -268, 366.12, -29.11, 1.43 )
	pt3dadd( -269.47, 368.28, -29.11, 1.43 )
	pt3dadd( -271.2, 368.25, -29.11, 1.43 )
	pt3dadd( -273.49, 368.21, -29.11, 1.43 )
	pt3dadd( -274.66, 369.28, -29.11, 1.43 )
	pt3dadd( -276.69, 370.89, -29.11, 1.43 )
	pt3dadd( -277.84, 371.14, -29.11, 1.43 )
	pt3dadd( -279.87, 372.2, -29.48, 1.43 )
	pt3dadd( -281.31, 372.45, -28.3, 1.43 )
	pt3dadd( -282.46, 372.7, -28.3, 1.43 )
	pt3dadd( -283.62, 373.5, -28.3, 1.43 )
	pt3dadd( -285.08, 374.57, -28.3, 1.43 )
	pt3dadd( -286.51, 374.55, -28.3, 1.43 )
	pt3dadd( -287.66, 374.53, -28.3, 1.43 )
	pt3dadd( -289.4, 375.86, -28.35, 1.43 )
	pt3dadd( -291.43, 377.2, -27.54, 1.43 )
	pt3dadd( -292.31, 378, -26.73, 1.43 )
	pt3dadd( -294.63, 379.33, -26.84, 1.43 )
	pt3dadd( -296.95, 380.65, -26.35, 1.43 )
	pt3dadd( -298.11, 381.73, -25.43, 1.43 )
	pt3dadd( -298.97, 381.71, -25.43, 1.43 )
	pt3dadd( -301, 382.5, -24.89, 1.43 )
	pt3dadd( -303.34, 385.19, -24.68, 1.43 )
	pt3dadd( -303.92, 385.46, -24.68, 1.43 )
	pt3dadd( -305.93, 385.69, -24.68, 1.43 )
	pt3dadd( -307.38, 386.49, -24.52, 1.43 )
	pt3dadd( -307.98, 388.12, -24.52, 1.43 )
	pt3dadd( -308.86, 389.2, -24.52, 1.43 )
	pt3dadd( -310.02, 390, -24.52, 1.43 )
	pt3dadd( -311.46, 390.52, -23.92, 1.43 )
	pt3dadd( -312.36, 392.69, -23.92, 1.43 )
	pt3dadd( -313.82, 393.76, -24.08, 1.43 )
	pt3dadd( -314.69, 394.57, -24.14, 1.43 )
	pt3dadd( -315.85, 395.37, -24.14, 1.43 )
	pt3dadd( -317.59, 396.16, -24.14, 1.43 )
	pt3dadd( -318.45, 396.14, -23.65, 1.43 )
	pt3dadd( -319.6, 396.12, -26.14, 1.43 )
	pt3dadd( -321.33, 396.91, -26.57, 1.43 )
	pt3dadd( -323.91, 396.87, -26.62, 1.43 )
	pt3dadd( -325.35, 396.84, -26.62, 1.43 )
	pt3dadd( -327.65, 398.23, -27.86, 1.43 )
	pt3dadd( -331.41, 399.81, -27.86, 1.43 )
	pt3dadd( -332.55, 399.52, -27.86, 1.43 )
	pt3dadd( -335.72, 400.01, -29.32, 1.43 )
	pt3dadd( -339.17, 400.77, -27.05, 1.43 )
	pt3dadd( -340.88, 400.19, -27.27, 1.43 )
	pt3dadd( -343.17, 399.88, -27.22, 1.43 )
	pt3dadd( -344.61, 399.85, -27.22, 1.43 )
	pt3dadd( -347.48, 400.35, -27.22, 1.43 )
    }
}

proc shape3d_apical_49() {
    dend[ 94 ] { pt3dclear()
	pt3dadd( -259.36, 362.55, -27.76, 1.43 )
	pt3dadd( -258.7, 364.11, -30.62, 1.43 )
	pt3dadd( -259.02, 365.74, -33.05, 1.43 )
	pt3dadd( -259.66, 369.56, -34.45, 1.43 )
	pt3dadd( -259.4, 371.48, -36.18, 1.43 )
	pt3dadd( -260.01, 373.38, -36.5, 1.43 )
	pt3dadd( -260.33, 375.02, -37.1, 1.43 )
	pt3dadd( -260.35, 376.38, -38.83, 1.43 )
	pt3dadd( -260.38, 378.3, -38.83, 1.43 )
	pt3dadd( -260.69, 379.39, -39.96, 1.43 )
	pt3dadd( -260.71, 380.48, -41.04, 1.43 )
	pt3dadd( -261.3, 381.56, -41.15, 1.43 )
	pt3dadd( -261.9, 382.92, -42.28, 1.43 )
	pt3dadd( -261.93, 384.84, -42.28, 1.43 )
	pt3dadd( -262.53, 386.19, -42.28, 1.43 )
	pt3dadd( -263.12, 387, -43.04, 1.43 )
	pt3dadd( -263.13, 387.55, -43.04, 1.43 )
	pt3dadd( -262.87, 389.2, -44.17, 1.43 )
	pt3dadd( -262.61, 390.84, -43.96, 1.43 )
	pt3dadd( -262.63, 391.93, -44.87, 1.43 )
	pt3dadd( -262.94, 393.3, -46.01, 1.43 )
	pt3dadd( -262.4, 395.22, -47.14, 1.43 )
	pt3dadd( -262.43, 396.86, -48.38, 1.43 )
	pt3dadd( -262.18, 398.78, -48.49, 1.43 )
	pt3dadd( -262.44, 399.96, -48.49, 1.15 )
	pt3dadd( -262.89, 401.37, -48.49, 1.15 )
	pt3dadd( -262.8, 402.46, -48.49, 1.15 )
	pt3dadd( -262.99, 403.58, -48.49, 1.15 )
	pt3dadd( -261.77, 404.29, -48.49, 1.15 )
	pt3dadd( -261.65, 405.66, -49.09, 1.15 )
	pt3dadd( -261.51, 407.29, -50.22, 1.15 )
	pt3dadd( -261.03, 409.44, -50.98, 1.15 )
	pt3dadd( -260.6, 411.05, -51.95, 1.15 )
	pt3dadd( -259.63, 412.34, -51.95, 1.15 )
	pt3dadd( -259.49, 413.98, -53.03, 1.15 )
	pt3dadd( -259.15, 414.49, -54.11, 1.15 )
	pt3dadd( -259.06, 415.58, -53.46, 1.15 )
	pt3dadd( -258.98, 416.4, -54.05, 1.15 )
	pt3dadd( -259.13, 418.06, -54.05, 1.15 )
	pt3dadd( -259.37, 418.63, -54.32, 1.15 )
	pt3dadd( -258.67, 419.41, -54.27, 1.15 )
	pt3dadd( -259.38, 421.12, -57.19, 1.15 )
	pt3dadd( -259.29, 422.21, -58.32, 1.15 )
	pt3dadd( -259.38, 424.41, -58.32, 1.15 )
	pt3dadd( -259.88, 425.28, -58.32, 1.15 )
	pt3dadd( -260.33, 426.69, -59.78, 1.15 )
	pt3dadd( -260.76, 428.37, -60.75, 1.15 )
	pt3dadd( -261.24, 429.51, -61.18, 1.15 )
	pt3dadd( -262.05, 430.13, -61.51, 1.15 )
	pt3dadd( -262.98, 432.69, -61.83, 1.15 )
	pt3dadd( -263.14, 434.07, -63.07, 1.15 )
	pt3dadd( -263.41, 434.37, -64.85, 1.15 )
	pt3dadd( -264.12, 436.08, -64.96, 1.15 )
	pt3dadd( -264.03, 437.17, -65.99, 1.15 )
	pt3dadd( -264.74, 438.88, -65.99, 1.15 )
	pt3dadd( -264.1, 439.65, -67.23, 1.15 )
	pt3dadd( -264, 440.74, -67.72, 1.15 )
	pt3dadd( -263.86, 442.37, -68.58, 1.15 )
	pt3dadd( -264.02, 443.76, -70.15, 1.15 )
	pt3dadd( -265.33, 445.24, -70.42, 1.15 )
	pt3dadd( -265.26, 446.06, -71.17, 1.15 )
	pt3dadd( -265.17, 447.15, -71.17, 1.15 )
	pt3dadd( -265, 449.06, -71.17, 1.15 )
	pt3dadd( -264.91, 450.15, -71.5, 1.15 )
	pt3dadd( -264.45, 452.03, -71.5, 1.15 )
	pt3dadd( -263.71, 453.89, -72.58, 1.15 )
	pt3dadd( -263.07, 454.65, -72.58, 1.15 )
	pt3dadd( -260.88, 456.66, -73.33, 1.15 )
	pt3dadd( -259.88, 458.22, -73.87, 1.15 )
	pt3dadd( -259.19, 459.53, -73.87, 1.15 )
	pt3dadd( -258.83, 460.32, -74.57, 1.15 )
	pt3dadd( -257.52, 462.13, -76.73, 1.15 )
	pt3dadd( -257.19, 462.65, -77.17, 1.15 )
	pt3dadd( -257.95, 463.81, -77.22, 1.15 )
	pt3dadd( -258.45, 464.68, -78.89, 1.15 )
	pt3dadd( -258.38, 465.5, -79.43, 1.15 )
	pt3dadd( -257.72, 465.75, -80.73, 1.15 )
	pt3dadd( -257.58, 467.39, -81.86, 1.15 )
	pt3dadd( -257.44, 469.02, -82.57, 1.15 )
	pt3dadd( -257.61, 470.41, -85.64, 1.15 )
	pt3dadd( -257.82, 471.25, -88.34, 1.15 )
	pt3dadd( -257.75, 472.07, -90.72, 1.15 )
	pt3dadd( -257.68, 472.89, -90.56, 1.15 )
    }
}

proc shape3d_apical_50() {
    dend[ 95 ] { pt3dclear()
	pt3dadd( -243.12, 359.18, -34.45, 1.15 )
	pt3dadd( -244.59, 360.8, -34.88, 1.15 )
	pt3dadd( -246.08, 364.33, -36.29, 1.15 )
	pt3dadd( -246.68, 365.96, -38.5, 1.15 )
	pt3dadd( -247.59, 368.68, -40.23, 1.15 )
	pt3dadd( -248.79, 371.39, -42.01, 1.15 )
	pt3dadd( -249.69, 373.84, -43.63, 1.15 )
	pt3dadd( -251.45, 375.72, -45.58, 1.15 )
	pt3dadd( -252.92, 378.16, -46.39, 1.15 )
	pt3dadd( -254.39, 379.77, -46.98, 1.15 )
	pt3dadd( -255.55, 380.84, -47.2, 1.15 )
	pt3dadd( -256.14, 381.93, -47.95, 1.15 )
	pt3dadd( -257.02, 382.73, -47.95, 1.15 )
	pt3dadd( -257.32, 383.82, -47.95, 1.15 )
	pt3dadd( -257.84, 384.74, -47.95, 1.15 )
	pt3dadd( -258.24, 386.69, -47.9, 1.15 )
	pt3dadd( -258.46, 387.53, -48.49, 1.15 )
	pt3dadd( -258.96, 388.4, -48.92, 1.15 )
	pt3dadd( -260.55, 389.91, -49.68, 1.15 )
	pt3dadd( -261, 391.33, -50.92, 1.15 )
	pt3dadd( -261.48, 392.47, -52.16, 1.15 )
	pt3dadd( -261.96, 393.61, -53.46, 1.15 )
	pt3dadd( -262.46, 394.47, -53.84, 1.15 )
	pt3dadd( -263.53, 395.39, -54.76, 1.15 )
	pt3dadd( -264, 396.53, -54.92, 1.15 )
	pt3dadd( -264.77, 397.69, -54.92, 1.15 )
	pt3dadd( -264.69, 398.51, -56.27, 1.15 )
	pt3dadd( -265.41, 400.22, -56.27, 1.15 )
	pt3dadd( -265.62, 401.06, -57.46, 1.15 )
	pt3dadd( -266.12, 401.93, -57.67, 1.15 )
	pt3dadd( -266.6, 403.07, -58.43, 1.15 )
	pt3dadd( -266.79, 404.18, -59.13, 1.15 )
	pt3dadd( -267.55, 405.35, -59.13, 1.15 )
	pt3dadd( -267.48, 406.17, -59.18, 1.15 )
	pt3dadd( -268.22, 407.6, -59.18, 1.15 )
	pt3dadd( -270.34, 409.71, -59.18, 1.15 )
	pt3dadd( -271.93, 411.22, -59.78, 1.15 )
	pt3dadd( -272.34, 413.18, -59.94, 1.15 )
	pt3dadd( -273.48, 413.28, -61.07, 1.15 )
	pt3dadd( -274.89, 413.68, -62.37, 1.15 )
	pt3dadd( -275.69, 414.3, -62.37, 1.15 )
	pt3dadd( -275.89, 415.41, -62.37, 1.15 )
	pt3dadd( -276.34, 416.82, -62.53, 1.15 )
	pt3dadd( -276.84, 417.69, -62.59, 1.15 )
	pt3dadd( -277.6, 418.86, -63.18, 1.15 )
	pt3dadd( -278.93, 420.07, -63.18, 1.15 )
	pt3dadd( -279.67, 421.51, -64.26, 1.15 )
	pt3dadd( -280.43, 422.67, -64.37, 1.15 )
	pt3dadd( -281.17, 424.11, -64.37, 1.15 )
	pt3dadd( -281.08, 425.2, -65.12, 1.15 )
	pt3dadd( -280.77, 425.45, -65.12, 1.15 )
	pt3dadd( -280.67, 426.54, -66.37, 1.15 )
	pt3dadd( -281.43, 427.7, -66.37, 1.15 )
	pt3dadd( -281.29, 429.34, -66.37, 1.15 )
	pt3dadd( -281.46, 430.72, -66.37, 1.15 )
	pt3dadd( -281.93, 431.86, -66.96, 1.15 )
	pt3dadd( -281.79, 433.5, -67.12, 1.15 )
	pt3dadd( -280.86, 434.24, -67.12, 1.15 )
	pt3dadd( -280.46, 435.58, -67.12, 1.15 )
	pt3dadd( -280.34, 436.94, -68.2, 1.15 )
	pt3dadd( -280.81, 438.08, -68.26, 1.15 )
	pt3dadd( -281.55, 439.51, -69.12, 1.15 )
	pt3dadd( -281.48, 440.33, -69.12, 1.15 )
	pt3dadd( -281.36, 441.69, -69.12, 1.15 )
	pt3dadd( -281.27, 442.78, -70.15, 1.15 )
	pt3dadd( -280.86, 444.12, -70.15, 1.15 )
	pt3dadd( -280.77, 445.21, -70.15, 1.15 )
	pt3dadd( -279.55, 445.93, -70.15, 1.15 )
	pt3dadd( -279.19, 446.72, -70.15, 1.15 )
	pt3dadd( -278.86, 447.24, -70.9, 1.15 )
	pt3dadd( -279.44, 447.58, -70.58, 1.15 )
	pt3dadd( -279.34, 448.67, -71.77, 1.15 )
	pt3dadd( -279.25, 449.76, -72.95, 1.15 )
	pt3dadd( -279.11, 451.39, -73.01, 1.15 )
	pt3dadd( -278.18, 452.13, -73.39, 1.15 )
	pt3dadd( -278.11, 452.95, -74.74, 1.15 )
	pt3dadd( -277.96, 454.59, -75.22, 1.15 )
	pt3dadd( -278.77, 455.21, -76.63, 1.15 )
	pt3dadd( -279.2, 456.89, -77.87, 1.15 )
	pt3dadd( -279.68, 458.03, -78.68, 1.15 )
	pt3dadd( -279.58, 459.12, -78.79, 1.15 )
	pt3dadd( -279.49, 460.21, -79.76, 1.15 )
	pt3dadd( -279.32, 462.12, -80.41, 1.15 )
	pt3dadd( -279.49, 463.5, -81.32, 1.15 )
	pt3dadd( -279.15, 464.02, -82.35, 1.15 )
	pt3dadd( -278.2, 465.04, -82.78, 1.15 )
	pt3dadd( -277.82, 466.1, -83.21, 1.15 )
	pt3dadd( -277.41, 467.44, -84.02, 1.15 )
    }
}

proc shape3d_apical_51() {
    dend[ 96 ] { pt3dclear()
	pt3dadd( -243.12, 359.18, -34.45, 1.15 )
	pt3dadd( -242.32, 362.48, -38.02, 1.15 )
	pt3dadd( -242.37, 365.21, -38.39, 1.15 )
	pt3dadd( -241.83, 367.14, -42.82, 1.15 )
	pt3dadd( -242.72, 368.76, -46.87, 1.15 )
	pt3dadd( -242.75, 370.4, -49.73, 1.15 )
	pt3dadd( -242.58, 371.29, -49.73, 0.86 )
	pt3dadd( -241.63, 372.3, -52.06, 0.86 )
	pt3dadd( -240.96, 373.34, -53.73, 0.86 )
	pt3dadd( -240.6, 374.14, -55.24, 0.86 )
	pt3dadd( -239.67, 374.88, -57.02, 0.86 )
	pt3dadd( -239.55, 376.24, -57.29, 0.86 )
	pt3dadd( -239.13, 377.85, -57.29, 0.86 )
	pt3dadd( -238.7, 379.46, -59.18, 0.86 )
	pt3dadd( -238.36, 379.98, -60.64, 0.86 )
	pt3dadd( -237.67, 381.29, -62.53, 0.86 )
	pt3dadd( -237.29, 382.36, -64.1, 0.86 )
	pt3dadd( -236.62, 383.4, -64.75, 0.86 )
	pt3dadd( -236.2, 385.01, -66.15, 0.86 )
	pt3dadd( -236, 387.18, -67.77, 0.86 )
	pt3dadd( -236.22, 388.03, -69.01, 0.86 )
	pt3dadd( -236.7, 389.17, -70.85, 0.86 )
	pt3dadd( -236.6, 390.26, -71.77, 0.86 )
	pt3dadd( -236.46, 391.89, -71.77, 0.86 )
	pt3dadd( -236.98, 392.49, -73.39, 0.86 )
	pt3dadd( -237, 395.51, -74.47, 0.86 )
	pt3dadd( -236.03, 396.79, -74.47, 0.86 )
	pt3dadd( -235.91, 398.16, -76.03, 0.86 )
	pt3dadd( -235.79, 399.52, -77.11, 0.86 )
	pt3dadd( -235.72, 400.34, -78.57, 0.86 )
	pt3dadd( -235.6, 401.7, -78.73, 0.86 )
    }
}

proc shape3d_apical_52() {
    dend[ 97 ] { pt3dclear()
	pt3dadd( -181.14, 437.94, -43.04, 1.15 )
	pt3dadd( -179.74, 439.6, -44.23, 1.15 )
	pt3dadd( -178.89, 440.71, -45.9, 1.15 )
	pt3dadd( -178.64, 442.36, -47.09, 1.15 )
	pt3dadd( -178.67, 444.54, -47.3, 1.15 )
	pt3dadd( -177.86, 447.29, -48.11, 1.15 )
	pt3dadd( -177.33, 449.49, -50.38, 1.15 )
	pt3dadd( -177.64, 450.85, -50.87, 1.15 )
	pt3dadd( -177.37, 451.95, -52.22, 1.15 )
	pt3dadd( -176.82, 453.6, -52.49, 1.15 )
	pt3dadd( -176.85, 454.97, -53.51, 1.15 )
	pt3dadd( -176.59, 456.8, -52.16, 1.15 )
	pt3dadd( -176.34, 458.72, -53.19, 1.15 )
    }
}

proc shape3d_apical_53() {
    dend[ 98 ] { pt3dclear()
	pt3dadd( -181.14, 437.94, -43.04, 1.15 )
	pt3dadd( -181.16, 439.75, -42.44, 1.15 )
	pt3dadd( -180.63, 442.22, -40.39, 1.15 )
	pt3dadd( -181.52, 443.84, -40.34, 1.15 )
	pt3dadd( -181.82, 444.66, -37.85, 1.15 )
	pt3dadd( -183.53, 444.35, -37.8, 1.15 )
	pt3dadd( -184.98, 445.15, -37.8, 1.15 )
	pt3dadd( -186.44, 446.49, -36.07, 1.15 )
	pt3dadd( -186.74, 447.31, -36.07, 1.15 )
	pt3dadd( -187.04, 448.12, -35.91, 1.15 )
	pt3dadd( -187.06, 448.94, -35.91, 1.15 )
	pt3dadd( -187.1, 451.68, -35.05, 1.15 )
	pt3dadd( -187.12, 452.5, -34.18, 1.15 )
	pt3dadd( -187.43, 453.86, -32.67, 1.15 )
	pt3dadd( -187.73, 454.67, -32.51, 1.15 )
	pt3dadd( -187.75, 455.77, -31.43, 1.15 )
	pt3dadd( -188.07, 457.95, -31.43, 1.15 )
	pt3dadd( -188.95, 459.03, -30.24, 1.15 )
	pt3dadd( -191.27, 460.08, -28.94, 1.15 )
	pt3dadd( -192.43, 460.88, -27.65, 1.15 )
	pt3dadd( -193.31, 462.23, -26.73, 1.15 )
	pt3dadd( -194.19, 463.31, -26.73, 1.15 )
	pt3dadd( -195.64, 464.11, -26.73, 1.15 )
	pt3dadd( -196.81, 465.18, -26.08, 1.15 )
	pt3dadd( -197.7, 467.08, -26.03, 1.15 )
	pt3dadd( -199.19, 470.06, -26.03, 1.15 )
	pt3dadd( -200.36, 471.68, -24.89, 1.15 )
	pt3dadd( -200.66, 472.5, -23.6, 1.15 )
	pt3dadd( -201.27, 474.13, -23.6, 1.15 )
	pt3dadd( -204.18, 476.54, -23.6, 1.15 )
	pt3dadd( -204.26, 478.42, -23.6, 0.29 )
	pt3dadd( -205.12, 479.52, -23.38, 0.29 )
	pt3dadd( -205.99, 480.34, -23.33, 0.29 )
	pt3dadd( -205.99, 481.43, -23.33, 0.29 )
	pt3dadd( -206.27, 482.25, -22.73, 0.29 )
	pt3dadd( -206.85, 484.44, -22.73, 0.29 )
	pt3dadd( -207.42, 485.53, -22.73, 0.29 )
	pt3dadd( -208.28, 486.35, -22.73, 0.29 )
	pt3dadd( -209.14, 487.45, -22.73, 0.29 )
	pt3dadd( -209.14, 488.54, -22.84, 0.29 )
	pt3dadd( -209.14, 489.63, -22.84, 0.29 )
	pt3dadd( -209.14, 490.73, -22.63, 0.29 )
	pt3dadd( -209.43, 491.55, -22.79, 0.29 )
	pt3dadd( -209.71, 493.19, -22.84, 0.29 )
	pt3dadd( -210.29, 494.01, -22.84, 0.29 )
	pt3dadd( -210.58, 494.28, -22.84, 0.29 )
	pt3dadd( -211.15, 494.83, -22.84, 0.29 )
	pt3dadd( -211.44, 495.65, -22.84, 0.29 )
	pt3dadd( -210.86, 497.02, -22.09, 0.29 )
	pt3dadd( -210.86, 498.39, -22.09, 0.29 )
	pt3dadd( -210.58, 499.48, -22.09, 0.29 )
	pt3dadd( -211.15, 500.57, -22.09, 0.29 )
	pt3dadd( -211.72, 501.94, -22.09, 0.29 )
	pt3dadd( -211.72, 503.31, -22.3, 0.29 )
	pt3dadd( -211.72, 504.13, -22.3, 0.29 )
	pt3dadd( -211.9, 505.23, -22.57, 0.29 )
	pt3dadd( -211.32, 506.88, -22.9, 0.29 )
	pt3dadd( -211.04, 507.7, -22.9, 0.29 )
	pt3dadd( -211.04, 509.34, -22.03, 0.29 )
	pt3dadd( -211.61, 510.98, -22.03, 0.29 )
	pt3dadd( -211.61, 512.34, -22.3, 0.29 )
	pt3dadd( -211.9, 513.71, -22.36, 0.29 )
	pt3dadd( -211.61, 514.81, -22.36, 0.29 )
	pt3dadd( -211.61, 516.45, -22.52, 0.29 )
	pt3dadd( -211.9, 517.27, -22.09, 0.29 )
	pt3dadd( -211.9, 518.36, -22.09, 0.29 )
	pt3dadd( -211.9, 519.18, -22.09, 0.29 )
	pt3dadd( -212.18, 520.55, -22.09, 0.29 )
	pt3dadd( -212.18, 521.64, -22.09, 0.29 )
	pt3dadd( -212.18, 522.74, -22.09, 0.29 )
	pt3dadd( -212.18, 523.28, -22.09, 0.29 )
	pt3dadd( -211.61, 525.2, -21.38, 0.29 )
	pt3dadd( -211.04, 526.29, -21.38, 0.29 )
	pt3dadd( -209.89, 527.38, -21.38, 0.29 )
	pt3dadd( -209.32, 529.03, -21.49, 0.29 )
	pt3dadd( -209.6, 530.67, -22.63, 0.29 )
	pt3dadd( -209.6, 532.03, -22.68, 0.29 )
	pt3dadd( -209.32, 533.95, -22.68, 0.29 )
	pt3dadd( -210.18, 534.49, -22.95, 0.29 )
	pt3dadd( -210.46, 535.59, -22.95, 0.29 )
	pt3dadd( -209.89, 536.41, -22.95, 0.29 )
	pt3dadd( -209.03, 537.5, -22.95, 0.29 )
	pt3dadd( -209.03, 538.87, -23.17, 0.29 )
	pt3dadd( -208.17, 540.24, -22.09, 0.29 )
	pt3dadd( -207.88, 541.33, -22.03, 0.29 )
	pt3dadd( -207.88, 542.7, -22.03, 0.29 )
    }
}

proc shape3d_apical_54() {
    dend[ 99 ] { pt3dclear()
	pt3dadd( -203.82, 382.41, -75.71, 1.15 )
	pt3dadd( -202.01, 383.35, -75.76, 1.15 )
	pt3dadd( -202.18, 384.74, -77.6, 1.15 )
	pt3dadd( -202.03, 386.38, -77.65, 1.15 )
	pt3dadd( -201.03, 387.94, -78.84, 1.15 )
	pt3dadd( -199.99, 390.04, -78.89, 1.15 )
	pt3dadd( -200.18, 391.15, -80.41, 1.15 )
	pt3dadd( -199.51, 392.19, -80.41, 1.15 )
	pt3dadd( -198.84, 393.23, -81.43, 1.15 )
	pt3dadd( -198.75, 394.32, -82.4, 1.15 )
	pt3dadd( -198.65, 395.41, -82.84, 1.15 )
	pt3dadd( -198.2, 397.29, -83.43, 1.15 )
	pt3dadd( -198.39, 398.41, -85.7, 1.15 )
	pt3dadd( -198.58, 399.52, -86.89, 1.15 )
	pt3dadd( -197.89, 400.84, -87.37, 1.15 )
	pt3dadd( -197.77, 402.2, -87.43, 1.15 )
	pt3dadd( -197.01, 404.33, -87.43, 1.15 )
	pt3dadd( -196.36, 405.09, -89.26, 1.15 )
	pt3dadd( -195.98, 406.16, -90.18, 1.15 )
	pt3dadd( -195.91, 406.98, -90.18, 1.15 )
	pt3dadd( -195.84, 407.79, -91.26, 1.15 )
	pt3dadd( -195.77, 408.61, -91.26, 1.15 )
	pt3dadd( -195.36, 409.95, -92.02, 1.15 )
	pt3dadd( -194.74, 410.44, -92.77, 1.15 )
	pt3dadd( -194.32, 412.05, -92.99, 0.86 )
	pt3dadd( -193.58, 413.91, -92.99, 0.86 )
	pt3dadd( -193.43, 415.54, -93.53, 0.86 )
	pt3dadd( -193.08, 416.34, -94.39, 0.86 )
	pt3dadd( -193.05, 416.61, -95.85, 0.86 )
	pt3dadd( -192.43, 417.1, -95.85, 0.86 )
	pt3dadd( -192.32, 418.47, -96.01, 0.86 )
	pt3dadd( -192.12, 420.64, -96.44, 0.86 )
	pt3dadd( -190.51, 422.7, -97.9, 0.86 )
	pt3dadd( -190.15, 423.49, -99.47, 0.86 )
	pt3dadd( -188.46, 426.36, -99.47, 0.86 )
	pt3dadd( -188.34, 427.72, -100.44, 0.86 )
	pt3dadd( -187.88, 429.61, -101.79, 0.86 )
	pt3dadd( -187.77, 430.97, -102.98, 0.86 )
	pt3dadd( -187.12, 431.74, -103.14, 0.86 )
	pt3dadd( -186.79, 432.26, -103.19, 0.86 )
	pt3dadd( -186.12, 433.3, -103.79, 0.86 )
	pt3dadd( -184.86, 434.56, -104.22, 0.86 )
	pt3dadd( -183.91, 435.57, -105.19, 0.86 )
	pt3dadd( -183.26, 436.34, -106.27, 0.86 )
	pt3dadd( -183.61, 438.33, -108.49, 0.86 )
	pt3dadd( -181.72, 440.09, -108.92, 0.86 )
	pt3dadd( -180.04, 439.84, -108.92, 0.29 )
	pt3dadd( -180.04, 440.71, -111.4, 0.29 )
	pt3dadd( -179.31, 442.12, -111.51, 0.29 )
	pt3dadd( -178.67, 442.92, -114.48, 0.29 )
	pt3dadd( -177.67, 444.42, -114.53, 0.29 )
	pt3dadd( -177.31, 445.12, -115.72, 0.29 )
	pt3dadd( -177.48, 447.38, -116.75, 0.29 )
	pt3dadd( -178.47, 448.48, -116.26, 0.29 )
    }
}

proc shape3d_apical_55() {
    dend[ 100 ] { pt3dclear()
	pt3dadd( -203.82, 382.41, -75.71, 1.15 )
	pt3dadd( -204.01, 383.53, -77.22, 1.15 )
	pt3dadd( -203.34, 384.57, -79.22, 1.15 )
	pt3dadd( -203.01, 385.09, -81.7, 1.15 )
	pt3dadd( -202.91, 386.18, -82.78, 1.15 )
	pt3dadd( -202.84, 387, -83.16, 1.15 )
	pt3dadd( -202.44, 388.33, -83.92, 1.15 )
	pt3dadd( -203.87, 388.46, -85.59, 1.15 )
	pt3dadd( -203.8, 389.28, -87.43, 1.15 )
	pt3dadd( -204.01, 390.12, -88.72, 1.15 )
	pt3dadd( -204.27, 390.41, -91.85, 1.15 )
	pt3dadd( -204.7, 392.1, -91.91, 1.15 )
	pt3dadd( -204.68, 392.37, -93.69, 1.15 )
	pt3dadd( -205.18, 393.24, -95.36, 1.15 )
	pt3dadd( -205.13, 393.78, -97.36, 1.15 )
	pt3dadd( -205.06, 394.6, -99.09, 1.15 )
	pt3dadd( -205.01, 395.15, -100.22, 1.15 )
	pt3dadd( -204.96, 395.69, -102.17, 1.15 )
	pt3dadd( -204.82, 397.33, -103.41, 1.15 )
	pt3dadd( -205.82, 399.06, -104.76, 1.15 )
	pt3dadd( -206.06, 399.63, -106.76, 1.15 )
	pt3dadd( -205.96, 400.72, -108.05, 1.15 )
	pt3dadd( -205.27, 402.03, -109.73, 1.15 )
	pt3dadd( -203.6, 402.52, -109.73, 0.29 )
	pt3dadd( -203.32, 403.48, -111.24, 0.29 )
	pt3dadd( -202.78, 404.54, -113.94, 0.29 )
	pt3dadd( -202.68, 406.02, -114.32, 0.29 )
	pt3dadd( -202.95, 406.79, -116.64, 0.29 )
	pt3dadd( -203.12, 407.31, -118.91, 0.29 )
	pt3dadd( -202.49, 408.11, -120.26, 0.29 )
	pt3dadd( -202.75, 408.88, -122.09, 0.29 )
	pt3dadd( -202.93, 409.4, -123.23, 0.29 )
	pt3dadd( -203.38, 409.83, -125.39, 0.29 )
	pt3dadd( -203.65, 410.6, -126.79, 0.29 )
	pt3dadd( -203.64, 411.47, -128.84, 0.29 )
	pt3dadd( -203.46, 411.82, -131.22, 0.29 )
	pt3dadd( -203.01, 413.14, -131.98, 0.29 )
	pt3dadd( -202.46, 414.19, -135.27, 0.29 )
	pt3dadd( -201.28, 415.18, -136.19, 0.29 )
	pt3dadd( -200.64, 415.97, -138.46, 0.29 )
	pt3dadd( -200.73, 417.1, -140.51, 0.29 )
	pt3dadd( -200.28, 417.55, -142.07, 0.29 )
	pt3dadd( -199.46, 418.7, -144.4, 0.29 )
	pt3dadd( -199.27, 419.92, -148.07, 0.29 )
	pt3dadd( -199.63, 420.08, -150.98, 0.29 )
	pt3dadd( -200.72, 419.71, -154.6, 0.29 )
	pt3dadd( -202.53, 421.16, -154.6, 0.29 )
	pt3dadd( -202.96, 421.63, -156.11, 0.29 )
	pt3dadd( -203.9, 422.84, -156.98, 0.29 )
	pt3dadd( -204.84, 424.06, -158.33, 0.29 )
	pt3dadd( -205.79, 424.36, -159.95, 0.29 )
	pt3dadd( -206.58, 424.12, -162.97, 0.29 )
	pt3dadd( -207.43, 425.96, -164.32, 0.29 )
	pt3dadd( -206.98, 427.3, -166.32, 0.29 )
	pt3dadd( -206.44, 428.36, -167.51, 0.29 )
	pt3dadd( -207.74, 428.87, -169.56, 0.29 )
	pt3dadd( -207.89, 431.22, -169.61, 0.29 )
	pt3dadd( -207.62, 432.21, -171.13, 0.29 )
	pt3dadd( -207.6, 434.01, -171.4, 0.29 )
	pt3dadd( -208.02, 435.38, -172.85, 0.29 )
	pt3dadd( -207.84, 435.74, -174.64, 0.29 )
	pt3dadd( -208.26, 437.11, -175.34, 0.29 )
	pt3dadd( -209.13, 437.14, -176.96, 0.29 )
	pt3dadd( -210.16, 437.73, -177.66, 0.29 )
	pt3dadd( -210.68, 438.47, -178.74, 0.29 )
	pt3dadd( -211.46, 438.23, -179.87, 0.29 )
	pt3dadd( -212.57, 439.99, -180.47, 0.29 )
	pt3dadd( -213.44, 440.02, -181.44, 0.29 )
	pt3dadd( -214.21, 440.69, -182.14, 0.29 )
	pt3dadd( -215.15, 442.8, -183.6, 0.29 )
	pt3dadd( -215.31, 443.35, -185.22, 0.29 )
	pt3dadd( -215.73, 444.72, -187.43, 0.29 )
	pt3dadd( -216.07, 445.82, -188.57, 0.29 )
	pt3dadd( -216.56, 448.37, -189.59, 0.29 )
	pt3dadd( -217.26, 447.85, -190.89, 0.29 )
	pt3dadd( -217.68, 449.23, -191.59, 0.29 )
	pt3dadd( -218.2, 449.97, -193.32, 0.29 )
	pt3dadd( -218.44, 451.7, -195.05, 0.29 )
	pt3dadd( -218.27, 451.15, -195.32, 0.29 )
	pt3dadd( -218.79, 450.99, -197.37, 0.29 )
    }
}

proc shape3d_apical_56() {
    dend[ 101 ] { pt3dclear()
	pt3dadd( -235.6, 401.7, -78.73, 0.86 )
	pt3dadd( -234.79, 403.72, -79.33, 0.86 )
	pt3dadd( -234.1, 405.03, -81.43, 0.86 )
	pt3dadd( -233.43, 406.07, -81.49, 0.86 )
	pt3dadd( -231.95, 406.49, -82.94, 0.86 )
	pt3dadd( -230.5, 406.63, -83.27, 0.86 )
	pt3dadd( -229.53, 407.92, -84.62, 0.86 )
	pt3dadd( -229.43, 409.01, -85.91, 0.86 )
	pt3dadd( -228.81, 409.51, -86.99, 0.86 )
	pt3dadd( -227.91, 409.98, -88.56, 0.86 )
	pt3dadd( -227.05, 409.9, -88.83, 0.86 )
	pt3dadd( -226.69, 410.69, -89.96, 0.86 )
	pt3dadd( -225.81, 410.89, -90.99, 0.86 )
	pt3dadd( -225.45, 411.68, -92.88, 0.86 )
	pt3dadd( -225.07, 412.75, -94.34, 0.86 )
	pt3dadd( -225, 413.56, -95.53, 0.86 )
	pt3dadd( -224.91, 414.65, -95.58, 0.86 )
	pt3dadd( -223.87, 414.07, -95.58, 0.29 )
	pt3dadd( -223.5, 414.78, -96.61, 0.29 )
	pt3dadd( -222.32, 415.76, -97.9, 0.29 )
	pt3dadd( -221.6, 416.3, -98.77, 0.29 )
	pt3dadd( -220.78, 417.45, -100.12, 0.29 )
	pt3dadd( -220.33, 417.9, -101.52, 0.29 )
	pt3dadd( -219.79, 418.08, -101.74, 0.29 )
	pt3dadd( -218.88, 418.97, -101.74, 0.29 )
	pt3dadd( -217.07, 419.88, -102.22, 0.29 )
	pt3dadd( -216.43, 420.68, -102.6, 0.29 )
	pt3dadd( -214.89, 421.5, -102.6, 0.29 )
	pt3dadd( -214.26, 422.3, -103.68, 0.29 )
	pt3dadd( -212.36, 422.95, -104.92, 0.29 )
	pt3dadd( -210.46, 423.61, -106.22, 0.29 )
	pt3dadd( -208.48, 423.13, -106.92, 0.29 )
	pt3dadd( -206.85, 423.69, -107.73, 0.29 )
	pt3dadd( -205.22, 424.25, -108.86, 0.29 )
	pt3dadd( -203.68, 425.94, -109.62, 0.29 )
	pt3dadd( -202.05, 427.37, -109.62, 0.29 )
	pt3dadd( -201.59, 428.68, -111.51, 0.29 )
	pt3dadd( -200.96, 429.48, -111.56, 0.29 )
	pt3dadd( -200.05, 430.37, -111.56, 0.29 )
	pt3dadd( -199.5, 432.3, -111.56, 0.29 )
	pt3dadd( -199.13, 433, -111.67, 0.29 )
	pt3dadd( -197.6, 432.95, -112.05, 0.29 )
	pt3dadd( -196.87, 434.36, -112.91, 0.29 )
	pt3dadd( -196.78, 435.05, -113.13, 0.29 )
	pt3dadd( -196.51, 436.01, -114.48, 0.29 )
	pt3dadd( -195.33, 437, -114.48, 0.29 )
	pt3dadd( -194.96, 437.7, -115.34, 0.29 )
	pt3dadd( -194.15, 438.85, -116.05, 0.29 )
	pt3dadd( -193.87, 439.81, -116.32, 0.29 )
	pt3dadd( -192.96, 440.7, -116.8, 0.29 )
	pt3dadd( -192.51, 442.02, -117.29, 0.29 )
	pt3dadd( -191.51, 442.65, -118.1, 0.29 )
	pt3dadd( -191.51, 443.52, -118.8, 0.29 )
	pt3dadd( -190.6, 444.41, -118.8, 0.29 )
	pt3dadd( -190.14, 445.72, -119.18, 0.29 )
	pt3dadd( -188.6, 446.54, -120.69, 0.29 )
	pt3dadd( -188.42, 446.89, -122.36, 0.29 )
	pt3dadd( -187.43, 447.53, -123.66, 0.29 )
	pt3dadd( -186.34, 447.9, -123.71, 0.29 )
	pt3dadd( -185.07, 448.62, -125.71, 0.29 )
	pt3dadd( -184.35, 449.16, -127.33, 0.29 )
	pt3dadd( -184.07, 450.13, -127.82, 0.29 )
	pt3dadd( -183.26, 450.41, -128.52, 0.29 )
	pt3dadd( -182.54, 450.95, -128.52, 0.29 )
	pt3dadd( -181.9, 451.74, -129.22, 0.29 )
	pt3dadd( -180.9, 452.37, -129.28, 0.29 )
	pt3dadd( -180.53, 453.95, -129.28, 0.29 )
	pt3dadd( -180.44, 454.56, -130.03, 0.29 )
	pt3dadd( -179.72, 455.1, -130.95, 0.29 )
	pt3dadd( -179.53, 455.45, -131.81, 0.29 )
	pt3dadd( -179.44, 456.06, -132.73, 0.29 )
	pt3dadd( -178.9, 456.25, -132.84, 0.29 )
	pt3dadd( -177, 456.9, -132.84, 0.29 )
	pt3dadd( -176.42, 456.95, -134.78, 0.29 )
    }
}

proc shape3d_apical_57() {
    dend[ 102 ] { pt3dclear()
	pt3dadd( -235.6, 401.7, -78.73, 0.86 )
	pt3dadd( -236.67, 402.61, -80.51, 0.86 )
	pt3dadd( -237.36, 404.6, -81.11, 0.86 )
	pt3dadd( -238.12, 405.76, -81.86, 0.86 )
	pt3dadd( -238.31, 406.88, -83.05, 0.86 )
	pt3dadd( -238.17, 408.51, -83.65, 0.86 )
	pt3dadd( -237.72, 410.39, -84.13, 0.86 )
	pt3dadd( -237.88, 411.78, -85.1, 0.86 )
	pt3dadd( -237.29, 411.35, -84.35, 0.86 )
	pt3dadd( -237.12, 413.25, -85.75, 0.86 )
	pt3dadd( -237.29, 414.64, -86.4, 0.86 )
	pt3dadd( -237.53, 415.21, -86.72, 0.86 )
	pt3dadd( -238.27, 416.65, -87.1, 0.86 )
	pt3dadd( -238.69, 418.33, -87.97, 0.86 )
	pt3dadd( -238.62, 419.15, -87.97, 0.86 )
	pt3dadd( -238.5, 420.51, -88.4, 0.86 )
	pt3dadd( -239.03, 421.1, -88.99, 0.86 )
	pt3dadd( -239.53, 421.97, -89.48, 0.86 )
	pt3dadd( -239.34, 424.15, -89.37, 0.86 )
	pt3dadd( -239.84, 425.02, -89.37, 0.86 )
	pt3dadd( -240.31, 426.16, -89.69, 0.86 )
	pt3dadd( -240.55, 426.73, -89.69, 0.86 )
	pt3dadd( -240.69, 428.39, -90.67, 0.86 )
	pt3dadd( -240.53, 430.29, -91.58, 0.86 )
	pt3dadd( -241.29, 431.46, -91.42, 0.86 )
	pt3dadd( -242.31, 432.92, -91.48, 0.86 )
	pt3dadd( -242.82, 433, -91.48, 0.29 )
	pt3dadd( -243.54, 433.33, -92.72, 0.29 )
	pt3dadd( -244.44, 434.18, -93.37, 0.29 )
	pt3dadd( -244.71, 434.95, -94.01, 0.29 )
	pt3dadd( -244.97, 435.73, -94.45, 0.29 )
	pt3dadd( -245.24, 436.5, -94.45, 0.29 )
	pt3dadd( -245.24, 437.37, -95.58, 0.29 )
	pt3dadd( -245.59, 438.41, -96.98, 0.29 )
	pt3dadd( -245.95, 439.44, -97.63, 0.29 )
	pt3dadd( -246.22, 440.22, -97.63, 0.29 )
	pt3dadd( -246.48, 440.99, -97.63, 0.29 )
	pt3dadd( -246.48, 441.86, -98.33, 0.29 )
	pt3dadd( -246.12, 442.56, -98.93, 0.29 )
	pt3dadd( -245.84, 442.66, -99.25, 0.29 )
	pt3dadd( -245.03, 443.81, -99.9, 0.29 )
	pt3dadd( -245.11, 444.93, -100.82, 0.29 )
	pt3dadd( -246.01, 444.91, -101.74, 0.29 )
	pt3dadd( -246.19, 445.43, -102.49, 0.29 )
	pt3dadd( -245.47, 445.97, -103.63, 0.29 )
	pt3dadd( -245.19, 446.93, -103.68, 0.29 )
	pt3dadd( -245.1, 447.54, -104.81, 0.29 )
	pt3dadd( -245.01, 448.15, -105.73, 0.29 )
	pt3dadd( -244.91, 448.76, -106.76, 0.29 )
	pt3dadd( -243.82, 450.01, -106.81, 0.29 )
	pt3dadd( -244.45, 450.95, -106.81, 0.29 )
	pt3dadd( -244.72, 451.72, -108, 0.29 )
	pt3dadd( -245.25, 453.27, -108, 0.29 )
	pt3dadd( -244.26, 453.91, -108, 0.29 )
	pt3dadd( -243.89, 454.61, -108.59, 0.29 )
	pt3dadd( -243.53, 455.31, -108.59, 0.29 )
	pt3dadd( -242.62, 456.2, -108.59, 0.29 )
	pt3dadd( -242.89, 456.98, -109.73, 0.29 )
	pt3dadd( -243.07, 457.5, -109.73, 0.29 )
	pt3dadd( -243.24, 458.01, -110.21, 0.29 )
	pt3dadd( -242.97, 458.98, -110.32, 0.29 )
	pt3dadd( -243.14, 460.36, -111.35, 0.29 )
	pt3dadd( -243.14, 461.23, -111.35, 0.29 )
	pt3dadd( -243.04, 461.84, -111.89, 0.29 )
	pt3dadd( -242.95, 462.45, -112, 0.29 )
	pt3dadd( -242.13, 463.6, -112.37, 0.29 )
	pt3dadd( -242.13, 464.47, -112.54, 0.29 )
	pt3dadd( -242.13, 465.34, -113.13, 0.29 )
	pt3dadd( -241.67, 465.79, -113.51, 0.29 )
	pt3dadd( -241.4, 466.75, -115.07, 0.29 )
	pt3dadd( -241.93, 467.43, -117.5, 0.29 )
	pt3dadd( -241.84, 468.04, -119.45, 0.29 )
	pt3dadd( -242.83, 469.15, -123.55, 0.29 )
	pt3dadd( -243.1, 469.05, -126.79, 0.29 )
	pt3dadd( -243.37, 469.83, -127.12, 0.29 )
	pt3dadd( -243.09, 470.79, -129.49, 0.29 )
    }
}

proc shape3d_apical_58() {
    dend[ 103 ] { pt3dclear()
	pt3dadd( -176.34, 458.72, -53.19, 1.15 )
	pt3dadd( -175.23, 460.93, -56.43, 1.15 )
	pt3dadd( -174.68, 462.3, -57.94, 1.15 )
	pt3dadd( -172.97, 463.15, -59.24, 1.15 )
	pt3dadd( -171.85, 464.54, -59.78, 1.15 )
	pt3dadd( -171.01, 465.65, -60.64, 1.15 )
	pt3dadd( -169.31, 467.05, -60.64, 1.15 )
	pt3dadd( -168.19, 468.43, -61.72, 1.15 )
	pt3dadd( -167.64, 469.81, -62.53, 1.15 )
	pt3dadd( -166.8, 470.92, -63.34, 1.15 )
	pt3dadd( -166.24, 471.75, -64.64, 1.15 )
	pt3dadd( -165.68, 472.85, -64.85, 1.15 )
	pt3dadd( -164.55, 473.69, -65.61, 1.15 )
	pt3dadd( -161.99, 474.83, -66.2, 1.15 )
	pt3dadd( -160.86, 475.95, -66.47, 1.15 )
	pt3dadd( -160.3, 476.78, -67.88, 1.15 )
	pt3dadd( -159.18, 478.16, -68.9, 1.15 )
	pt3dadd( -158.34, 479.55, -69.88, 1.15 )
	pt3dadd( -156.94, 481.49, -70.58, 1.15 )
	pt3dadd( -156.1, 482.59, -71.5, 1.15 )
	pt3dadd( -155.54, 483.7, -71.5, 1.15 )
	pt3dadd( -154.14, 485.36, -72.2, 1.15 )
	pt3dadd( -153.57, 485.65, -72.85, 1.15 )
	pt3dadd( -153.01, 486.48, -73.98, 1.15 )
	pt3dadd( -151.31, 487.6, -74.3, 1.15 )
	pt3dadd( -151.05, 489.25, -75.06, 1.15 )
	pt3dadd( -150.95, 489.79, -74.9, 1.15 )
	pt3dadd( -149.27, 492, -76.25, 1.15 )
	pt3dadd( -148.16, 494.21, -76.19, 1.15 )
	pt3dadd( -147.04, 495.6, -74.2, 1.15 )
	pt3dadd( -146.2, 497.25, -73.22, 1.15 )
	pt3dadd( -146.24, 499.44, -74.3, 1.15 )
	pt3dadd( -145.15, 502.47, -75.71, 1.15 )
	pt3dadd( -145.18, 504.11, -78.14, 1.15 )
	pt3dadd( -145.49, 505.47, -78.03, 1.15 )
	pt3dadd( -146.08, 506.83, -78.03, 1.15 )
    }
}

proc shape3d_apical_59() {
    dend[ 104 ] { pt3dclear()
	pt3dadd( -176.34, 458.72, -53.19, 1.15 )
	pt3dadd( -177.12, 460.07, -54.32, 1.15 )
	pt3dadd( -178.3, 461.96, -55.73, 1.15 )
	pt3dadd( -179.75, 463.3, -56.81, 1.15 )
	pt3dadd( -180.06, 464.66, -57.62, 1.15 )
	pt3dadd( -180.67, 466.57, -58.1, 1.15 )
	pt3dadd( -180.71, 468.76, -59.4, 1.15 )
	pt3dadd( -180.76, 471.76, -61.45, 1.15 )
	pt3dadd( -180.49, 472.59, -61.72, 1.15 )
	pt3dadd( -180.22, 473.69, -62.64, 1.15 )
	pt3dadd( -179.37, 474.25, -63.94, 1.15 )
	pt3dadd( -178.53, 475.63, -64.69, 1.15 )
	pt3dadd( -177.69, 476.74, -65.34, 1.15 )
	pt3dadd( -176.82, 475.93, -70.36, 1.15 )
	pt3dadd( -175.08, 475.14, -71.01, 1.15 )
	pt3dadd( -174.29, 476.45, -71.98, 1.15 )
	pt3dadd( -174.15, 478.09, -73.6, 1.15 )
	pt3dadd( -174.08, 478.91, -74.36, 1.15 )
	pt3dadd( -173.46, 479.4, -75.11, 1.15 )
	pt3dadd( -171.96, 480.09, -77.44, 1.15 )
	pt3dadd( -171.94, 480.37, -77.65, 1.15 )
	pt3dadd( -171.84, 481.46, -78.41, 1.15 )
	pt3dadd( -172.03, 482.57, -79.49, 1.15 )
	pt3dadd( -171.13, 483.04, -80.35, 1.15 )
	pt3dadd( -169.89, 484.03, -81.76, 1.15 )
	pt3dadd( -168.7, 484.47, -83.05, 1.15 )
	pt3dadd( -166.98, 484.32, -83.11, 1.15 )
	pt3dadd( -166.62, 485.12, -84.73, 1.15 )
	pt3dadd( -164.81, 486.06, -84.73, 1.15 )
	pt3dadd( -163.86, 487.07, -85.21, 1.15 )
	pt3dadd( -163.55, 487.32, -85.75, 1.15 )
	pt3dadd( -163.2, 488.11, -87.53, 1.15 )
	pt3dadd( -162.6, 488.33, -89.1, 1.15 )
	pt3dadd( -162.22, 489.4, -91.96, 1.15 )
	pt3dadd( -162.15, 490.22, -93.04, 1.15 )
	pt3dadd( -163.2, 491.4, -93.64, 1.15 )
	pt3dadd( -163.15, 491.95, -94.01, 1.15 )
	pt3dadd( -162.29, 491.87, -95.2, 1.15 )
	pt3dadd( -161.96, 492.39, -99.04, 1.15 )
	pt3dadd( -161.58, 493.46, -101.57, 1.15 )
	pt3dadd( -160.38, 493.9, -103.79, 1.15 )
	pt3dadd( -160.29, 494.99, -106.38, 1.15 )
	pt3dadd( -159.29, 496.55, -107.41, 1.15 )
	pt3dadd( -159.19, 497.64, -108, 1.15 )
	pt3dadd( -159.98, 498.54, -110, 1.15 )
	pt3dadd( -160.17, 499.65, -111.78, 1.15 )
	pt3dadd( -160.12, 500.19, -112.81, 1.15 )
	pt3dadd( -160.03, 501.28, -113.62, 1.15 )
	pt3dadd( -159.86, 503.19, -113.99, 1.15 )
	pt3dadd( -159.81, 503.74, -115.29, 1.15 )
	pt3dadd( -159.1, 505.32, -115.72, 1.15 )
	pt3dadd( -158.72, 506.39, -116.69, 1.15 )
	pt3dadd( -158.29, 507.99, -116.75, 1.15 )
    }
}

proc shape3d_apical_60() {
    dend[ 105 ] { pt3dclear()
	pt3dadd( -178.47, 448.48, -116.26, 0.29 )
	pt3dadd( -176.75, 448.78, -114.48, 0.29 )
	pt3dadd( -176.2, 449.84, -114.48, 0.29 )
	pt3dadd( -175.47, 451.25, -114.48, 0.29 )
	pt3dadd( -175.47, 452.12, -114.48, 0.29 )
	pt3dadd( -174.3, 452.23, -114.48, 0.29 )
	pt3dadd( -173.21, 452.61, -114.86, 0.29 )
	pt3dadd( -173.02, 454.7, -115.78, 0.29 )
	pt3dadd( -172.57, 455.14, -115.78, 0.29 )
	pt3dadd( -172.2, 455.85, -115.78, 0.29 )
	pt3dadd( -171.75, 456.29, -116.37, 0.29 )
	pt3dadd( -171.02, 456.83, -116.53, 0.29 )
	pt3dadd( -169.94, 457.2, -116.53, 0.29 )
	pt3dadd( -169.49, 457.65, -116.53, 0.29 )
	pt3dadd( -169.3, 458, -116.53, 0.29 )
	pt3dadd( -168.49, 458.28, -115.61, 0.29 )
	pt3dadd( -168.49, 458.28, -116.75, 0.29 )
	pt3dadd( -167.95, 458.47, -118.31, 0.29 )
	pt3dadd( -165.6, 459.57, -118.48, 0.29 )
	pt3dadd( -165.5, 460.18, -118.96, 0.29 )
	pt3dadd( -164.87, 460.97, -119.61, 0.29 )
	pt3dadd( -164.77, 462.45, -121.61, 0.29 )
	pt3dadd( -165.04, 463.23, -122.9, 0.29 )
	pt3dadd( -165.85, 463.82, -122.9, 0.29 )
	pt3dadd( -165.85, 463.82, -122.9, 0.29 )
	pt3dadd( -166.3, 464.24, -122.9, 0.29 )
	pt3dadd( -166.92, 466.05, -123.12, 0.29 )
	pt3dadd( -166.91, 467.79, -124.63, 0.29 )
	pt3dadd( -166.63, 468.75, -126.31, 0.29 )
	pt3dadd( -166.54, 469.36, -127.17, 0.29 )
	pt3dadd( -166.44, 470.84, -128.2, 0.29 )
	pt3dadd( -166.71, 471.62, -129.65, 0.29 )
	pt3dadd( -166.71, 472.49, -131.06, 0.29 )
	pt3dadd( -166.16, 474.41, -131.17, 0.29 )
	pt3dadd( -165.79, 475.12, -132.08, 0.29 )
	pt3dadd( -165.43, 475.82, -130.84, 0.29 )
	pt3dadd( -165.6, 477.21, -130.3, 0.29 )
	pt3dadd( -165.42, 477.56, -129.11, 0.29 )
	pt3dadd( -165.95, 479.11, -129.11, 0.29 )
	pt3dadd( -166.22, 479.88, -129.17, 0.29 )
	pt3dadd( -166.4, 480.4, -129.17, 0.29 )
	pt3dadd( -165.76, 482.07, -129.17, 0.29 )
	pt3dadd( -165.39, 483.64, -130.46, 0.29 )
	pt3dadd( -165.39, 484.51, -129.6, 0.29 )
	pt3dadd( -165.02, 485.21, -128.68, 0.29 )
	pt3dadd( -165.28, 486.86, -129.44, 0.29 )
	pt3dadd( -165.64, 487.89, -129.44, 0.29 )
    }
}

proc shape3d_apical_61() {
    dend[ 106 ] { pt3dclear()
	pt3dadd( -178.47, 448.48, -116.26, 0.29 )
	pt3dadd( -178.64, 449.87, -116.96, 0.29 )
	pt3dadd( -179.27, 450.81, -118.31, 0.29 )
	pt3dadd( -180.25, 451.92, -119.39, 0.29 )
	pt3dadd( -179.8, 453.23, -120.85, 0.29 )
	pt3dadd( -180.24, 454.52, -121.72, 0.29 )
	pt3dadd( -180.33, 455.65, -122.8, 0.29 )
	pt3dadd( -180.41, 456.78, -124.52, 0.29 )
	pt3dadd( -181.21, 459.11, -125.66, 0.29 )
	pt3dadd( -181.66, 460.4, -126.52, 0.29 )
	pt3dadd( -180.93, 460.94, -128.41, 0.29 )
	pt3dadd( -181.29, 461.97, -129.82, 0.29 )
	pt3dadd( -180.92, 463.54, -132.3, 0.29 )
	pt3dadd( -181.28, 464.58, -132.52, 0.29 )
	pt3dadd( -181, 465.54, -133.54, 0.29 )
	pt3dadd( -180.54, 466.85, -135.11, 0.29 )
	pt3dadd( -180.45, 467.47, -136.57, 0.29 )
	pt3dadd( -180.27, 467.82, -138.02, 0.29 )
	pt3dadd( -179.36, 468.71, -139.75, 0.29 )
	pt3dadd( -178.82, 469.76, -140.78, 0.29 )
	pt3dadd( -178.18, 471.43, -141.1, 0.29 )
	pt3dadd( -177.53, 473.97, -141.75, 0.29 )
	pt3dadd( -176.8, 475.37, -142.4, 0.29 )
	pt3dadd( -177.16, 475.54, -143.37, 0.29 )
	pt3dadd( -176.35, 476.69, -144.13, 0.29 )
	pt3dadd( -175.62, 477.23, -145.1, 0.29 )
	pt3dadd( -174.44, 478.21, -145.96, 0.29 )
	pt3dadd( -174.44, 479.08, -146.83, 0.29 )
    }
}

proc shape3d_basal1() {
    shape3d_basal1_1()
    shape3d_basal1_2()
    shape3d_basal1_3()
    shape3d_basal1_4()
    shape3d_basal1_5()
    shape3d_basal1_6()
    shape3d_basal1_7()
    shape3d_basal1_8()
    shape3d_basal1_9()
    shape3d_basal1_10()
    shape3d_basal1_11()
    shape3d_basal1_12()
    shape3d_basal1_13()
    shape3d_basal1_14()
    shape3d_basal1_15()
    shape3d_basal1_16()
    shape3d_basal1_17()
    shape3d_basal1_18()
    shape3d_basal1_19()
    shape3d_basal1_20()
    shape3d_basal1_21()
    shape3d_basal1_22()
    shape3d_basal1_23()
    shape3d_basal1_24()
    shape3d_basal1_25()
}

proc shape3d_basal2() {
    shape3d_basal2_1()
    shape3d_basal2_2()
    shape3d_basal2_3()
    shape3d_basal2_4()
    shape3d_basal2_5()
    shape3d_basal2_6()
    shape3d_basal2_7()
    shape3d_basal2_8()
    shape3d_basal2_9()
    shape3d_basal2_10()
    shape3d_basal2_11()
    shape3d_basal2_12()
    shape3d_basal2_13()
}

proc shape3d_basal3() {
    shape3d_basal3_1()
    shape3d_basal3_2()
    shape3d_basal3_3()
}

proc shape3d_basal4() {
    shape3d_basal4_1()
    shape3d_basal4_2()
    shape3d_basal4_3()
    shape3d_basal4_4()
    shape3d_basal4_5()
}

proc shape3d_apical() {
    shape3d_apical_1()
    shape3d_apical_2()
    shape3d_apical_3()
    shape3d_apical_4()
    shape3d_apical_5()
    shape3d_apical_6()
    shape3d_apical_7()
    shape3d_apical_8()
    shape3d_apical_9()
    shape3d_apical_10()
    shape3d_apical_11()
    shape3d_apical_12()
    shape3d_apical_13()
    shape3d_apical_14()
    shape3d_apical_15()
    shape3d_apical_16()
    shape3d_apical_17()
    shape3d_apical_18()
    shape3d_apical_19()
    shape3d_apical_20()
    shape3d_apical_21()
    shape3d_apical_22()
    shape3d_apical_23()
    shape3d_apical_24()
    shape3d_apical_25()
    shape3d_apical_26()
    shape3d_apical_27()
    shape3d_apical_28()
    shape3d_apical_29()
    shape3d_apical_30()
    shape3d_apical_31()
    shape3d_apical_32()
    shape3d_apical_33()
    shape3d_apical_34()
    shape3d_apical_35()
    shape3d_apical_36()
    shape3d_apical_37()
    shape3d_apical_38()
    shape3d_apical_39()
    shape3d_apical_40()
    shape3d_apical_41()
    shape3d_apical_42()
    shape3d_apical_43()
    shape3d_apical_44()
    shape3d_apical_45()
    shape3d_apical_46()
    shape3d_apical_47()
    shape3d_apical_48()
    shape3d_apical_49()
    shape3d_apical_50()
    shape3d_apical_51()
    shape3d_apical_52()
    shape3d_apical_53()
    shape3d_apical_54()
    shape3d_apical_55()
    shape3d_apical_56()
    shape3d_apical_57()
    shape3d_apical_58()
    shape3d_apical_59()
    shape3d_apical_60()
    shape3d_apical_61()
}

proc basic_shape() {
    shape3d_soma()
    shape3d_basal1()
    shape3d_basal2()
    shape3d_basal3()
    shape3d_basal4()
    shape3d_apical()
}

objref all
proc subset_all() { local i
    objref all
    all = new SectionList()
    soma all.append()
    for i = 0, 45 dend[ i ] all.append()
    for i = 46, 106 dend[ i ] all.append()
    for i = 0, 2 spNeck[ i ] all.append()
    for i = 0, 2 spHead[ i ] all.append()
}

objref dendall
proc subset_dendall() { local i
    objref dendall
    dendall = new SectionList()
    for i = 0, 45 dend[ i ] dendall.append()
    for i = 46, 106 dend[ i ] dendall.append()
}

objref basalall
proc subset_basalall() { local i
    objref basalall
    basalall = new SectionList()
    for i = 0, 45 dend[ i ] basalall.append()
}

objref apicalall
proc subset_apicalall() { local i
    objref apicalall
    apicalall = new SectionList()
    for i = 46, 106 dend[ i ] apicalall.append()
}

objref spineall
proc subset_spineall() { local i
    objref apineall
    spineall = new SectionList()
    for i = 0, 2 spNeck[ i ] spineall.append()
    for i = 0, 2 spHead[ i ] spineall.append()
}

objref basal1
proc subset_basal1() {
    objref basal1
    basal1 = new SectionList()
    dend[ 3 ] basal1.append()
    dend[ 10 ] basal1.append()
    dend[ 11 ] basal1.append()
    dend[ 18 ] basal1.append()
    dend[ 19 ] basal1.append()
    dend[ 20 ] basal1.append()
    dend[ 21 ] basal1.append()
    dend[ 26 ] basal1.append()
    dend[ 27 ] basal1.append()
    dend[ 28 ] basal1.append()
    dend[ 29 ] basal1.append()
    dend[ 30 ] basal1.append()
    dend[ 31 ] basal1.append()
    dend[ 34 ] basal1.append()
    dend[ 35 ] basal1.append()
    dend[ 36 ] basal1.append()
    dend[ 37 ] basal1.append()
    dend[ 38 ] basal1.append()
    dend[ 39 ] basal1.append()
    dend[ 40 ] basal1.append()
    dend[ 41 ] basal1.append()
    dend[ 42 ] basal1.append()
    dend[ 43 ] basal1.append()
    dend[ 44 ] basal1.append()
    dend[ 45 ] basal1.append()
}

objref basal2
proc subset_basal2() {
    objref basal2
    basal2 = new SectionList()
    dend[ 2 ] basal2.append()
    dend[ 8 ] basal2.append()
    dend[ 9 ] basal2.append()
    dend[ 14 ] basal2.append()
    dend[ 15 ] basal2.append()
    dend[ 16 ] basal2.append()
    dend[ 17 ] basal2.append()
    dend[ 22 ] basal2.append()
    dend[ 23 ] basal2.append()
    dend[ 24 ] basal2.append()
    dend[ 25 ] basal2.append()
    dend[ 32 ] basal2.append()
    dend[ 33 ] basal2.append()
}

objref basal3
proc subset_basal3() {
    objref basal3
    basal3 = new SectionList()
    dend[ 1 ] basal3.append()
    dend[ 6 ] basal3.append()
    dend[ 7 ] basal3.append()
}

objref basal4
proc subset_basal4() {
    objref basal4
    basal4 = new SectionList()
    dend[ 0 ] basal4.append()
    dend[ 4 ] basal4.append()
    dend[ 5 ] basal4.append()
    dend[ 12 ] basal4.append()
    dend[ 13 ] basal4.append()
}

proc subsets() {
    subset_all()
    subset_dendall()
    subset_basalall()
    subset_apicalall()
    subset_spineall()
    subset_basal1()
    subset_basal2()
    subset_basal3()
    subset_basal4()
}

proc geomL() {
}


proc geom() {
    // soma
    soma.diam( 0 : 0.04 ) = 3.315386533 : 4.03809999
    soma.diam( 0.04 : 0.08 ) = 4.03809999 : 4.941811248
    soma.diam( 0.08 : 0.12 ) = 4.941811248 : 5.323307363
    soma.diam( 0.12 : 0.16 ) = 5.323307363 : 5.692882578
    soma.diam( 0.16 : 0.2 ) = 5.692882578 : 6.594476073
    soma.diam( 0.2 : 0.24 ) = 6.594476073 : 7.144671991
    soma.diam( 0.24 : 0.28 ) = 7.144671991 : 8.125897045
    soma.diam( 0.28 : 0.32 ) = 8.125897045 : 9.213504381
    soma.diam( 0.32 : 0.36 ) = 9.213504381 : 10.69305825
    soma.diam( 0.36 : 0.4 ) = 10.69305825 : 12.38079301
    soma.diam( 0.4 : 0.44 ) = 12.38079301 : 13.42794914
    soma.diam( 0.44 : 0.48 ) = 13.42794914 : 14.8890048
    soma.diam( 0.48 : 0.52 ) = 14.8890048 : 14.34133965
    soma.diam( 0.52 : 0.56 ) = 14.34133965 : 14.13395692
    soma.diam( 0.56 : 0.6 ) = 14.13395692 : 12.45379977
    soma.diam( 0.6 : 0.64 ) = 12.45379977 : 11.07802877
    soma.diam( 0.64 : 0.68 ) = 11.07802877 : 10.41078845
    soma.diam( 0.68 : 0.72 ) = 10.41078845 : 9.59772549
    soma.diam( 0.72 : 0.76 ) = 9.59772549 : 8.877346954
    soma.diam( 0.76 : 0.8 ) = 8.877346954 : 7.626733071
    soma.diam( 0.8 : 0.84 ) = 7.626733071 : 6.400198068
    soma.diam( 0.84 : 0.88 ) = 6.400198068 : 5.672538387
    soma.diam( 0.88 : 0.92 ) = 5.672538387 : 4.569684869
    soma.diam( 0.92 : 0.96 ) = 4.569684869 : 3.603860056
    soma.diam( 0.96 : 1 ) = 3.603860056 : 1.62532434
    // basal1
    dend[ 3 ].diam( 0 : 1 ) = 1.461152767 : 1.461152767
    dend[ 10 ].diam( 0 : 0.740101214 ) = 0.798406497 : 0.786669048
    dend[ 10 ].diam( 0.740101214 : 1 ) = 0.786669048 : 0.653811717
    dend[ 11 ].diam( 0 : 1 ) = 0.904648731 : 0.741852815
    dend[ 18 ].diam( 0 : 1 ) = 0.630646524 : 0.629739578
    dend[ 19 ].diam( 0 : 1 ) = 0.310645274 : 0.258352015
    dend[ 20 ].diam( 0 : 1 ) = 0.432352227 : 0.362931522
    dend[ 21 ].diam( 0 : 1 ) = 0.539061876 : 0.526324599
    dend[ 26 ].diam( 0 : 0.164705759 ) = 0.415520533 : 0.369738422
    dend[ 26 ].diam( 0.164705759 : 1 ) = 0.369738422 : 0.258352015
    dend[ 27 ].diam( 0 : 1 ) = 0.579153181 : 0.55655185
    dend[ 28 ].diam( 0 : 0.199756287 ) = 0.275116426 : 0.304891715
    dend[ 28 ].diam( 0.199756287 : 0.725746891 ) = 0.304891715 : 0.289561631
    dend[ 28 ].diam( 0.725746891 : 1 ) = 0.289561631 : 0.258352015
    dend[ 29 ].diam( 0 : 1 ) = 0.341087121 : 0.258352015
    dend[ 30 ].diam( 0 : 1 ) = 0.396941963 : 0.390938165
    dend[ 31 ].diam( 0 : 1 ) = 0.431509472 : 0.421301781
    dend[ 34 ].diam( 0 : 1 ) = 0.386649331 : 0.495746564
    dend[ 35 ].diam( 0 : 0.118736743 ) = 0.386995599 : 0.333532545
    dend[ 35 ].diam( 0.118736743 : 0.372782756 ) = 0.333532545 : 0.350814715
    dend[ 35 ].diam( 0.372782756 : 1 ) = 0.350814715 : 0.258352015
    dend[ 36 ].diam( 0 : 1 ) = 0.315809245 : 0.258352015
    dend[ 37 ].diam( 0 : 1 ) = 0.346183381 : 0.258352015
    dend[ 38 ].diam( 0 : 1 ) = 0.379977394 : 0.258352015
    dend[ 39 ].diam( 0 : 1 ) = 0.316003376 : 0.258352015
    dend[ 40 ].diam( 0 : 0.43096424 ) = 0.407436804 : 0.37759901
    dend[ 40 ].diam( 0.43096424 : 0.800376258 ) = 0.37759901 : 0.342918535
    dend[ 40 ].diam( 0.800376258 : 1 ) = 0.342918535 : 0.360565086
    dend[ 41 ].diam( 0 : 1 ) = 0.34919094 : 0.258352015
    dend[ 42 ].diam( 0 : 1 ) = 0.262752445 : 0.258352015
    dend[ 43 ].diam( 0 : 1 ) = 0.357371091 : 0.347575976
    dend[ 44 ].diam( 0 : 1 ) = 0.300138182 : 0.258352015
    dend[ 45 ].diam( 0 : 1 ) = 0.312204891 : 0.258352015
    // basal2
    dend[ 2 ].diam( 0 : 1 ) = 0.886697902 : 0.886697902
    dend[ 8 ].diam( 0 : 1 ) = 0.59345118 : 0.521106957
    dend[ 9 ].diam( 0 : 0.795422553 ) = 0.485915427 : 0.509862017
    dend[ 9 ].diam( 0.795422553 : 1 ) = 0.509862017 : 0.515800379
    dend[ 14 ].diam( 0 : 1 ) = 0.514323871 : 0.473525675
    dend[ 15 ].diam( 0 : 1 ) = 0.458084291 : 0.258352015
    dend[ 16 ].diam( 0 : 0.51010761 ) = 0.439892162 : 0.38781909
    dend[ 16 ].diam( 0.51010761 : 1 ) = 0.38781909 : 0.436894404
    dend[ 17 ].diam( 0 : 0.036693302 ) = 0.373216668 : 0.357765707
    dend[ 17 ].diam( 0.036693302 : 1 ) = 0.357765707 : 0.258352015
    dend[ 22 ].diam( 0 : 1 ) = 0.3365954 : 0.258352015
    dend[ 23 ].diam( 0 : 0.786330491 ) = 0.431538804 : 0.436716948
    dend[ 23 ].diam( 0.786330491 : 1 ) = 0.436716948 : 0.398709545
    dend[ 24 ].diam( 0 : 0.255328056 ) = 0.3814971 : 0.435792215
    dend[ 24 ].diam( 0.255328056 : 1 ) = 0.435792215 : 0.258352015
    dend[ 25 ].diam( 0 : 1 ) = 0.299572986 : 0.258352015
    dend[ 32 ].diam( 0 : 0.258797623 ) = 0.475213321 : 0.400102745
    dend[ 32 ].diam( 0.258797623 : 1 ) = 0.400102745 : 0.258352015
    dend[ 33 ].diam( 0 : 0.252202921 ) = 0.294226294 : 0.289673324
    dend[ 33 ].diam( 0.252202921 : 1 ) = 0.289673324 : 0.258352015
    // basal3
    dend[ 1 ].diam( 0 : 1 ) = 0.381005091 : 0.361055514
    dend[ 6 ].diam( 0 : 1 ) = 0.287849105 : 0.258352015
    dend[ 7 ].diam( 0 : 1 ) = 0.338008492 : 0.258352015
    // basal4
    dend[ 0 ].diam( 0 : 1 ) = 0.420434805 : 0.415998187
    dend[ 4 ].diam( 0 : 1 ) = 0.323267257 : 0.258352015
    dend[ 5 ].diam( 0 : 1 ) = 0.367829492 : 0.350126086
    dend[ 12 ].diam( 0 : 1 ) = 0.279782044 : 0.258352015
    dend[ 13 ].diam( 0 : 1 ) = 0.333250728 : 0.258352015
    // apical
    dend[ 46 ].diam( 0 : 1 ) = 1.333013487 : 1.332572304
    dend[ 47 ].diam( 0 : 1 ) = 1.232638072 : 1.296886944
    dend[ 48 ].diam( 0 : 1 ) = 0.864669081 : 0.389452134
    dend[ 49 ].diam( 0 : 1 ) = 1.208653075 : 1.207762609
    dend[ 50 ].diam( 0 : 1 ) = 0.603294795 : 0.534327254
    dend[ 51 ].diam( 0 : 1 ) = 0.285973239 : 0.258352015
    dend[ 52 ].diam( 0 : 1 ) = 0.369645824 : 0.354104248
    dend[ 53 ].diam( 0 : 1 ) = 0.968611112 : 1.121812961
    dend[ 54 ].diam( 0 : 1 ) = 0.59505073 : 0.587610251
    dend[ 55 ].diam( 0 : 1 ) = 0.25937105 : 0.258352015
    dend[ 56 ].diam( 0 : 0.437263949 ) = 0.533833341 : 0.516346603
    dend[ 56 ].diam( 0.437263949 : 1 ) = 0.516346603 : 0.51838894
    dend[ 57 ].diam( 0 : 1 ) = 0.312535335 : 0.258352015
    dend[ 58 ].diam( 0 : 1 ) = 0.307338977 : 0.258352015
    dend[ 59 ].diam( 0 : 0.564468341 ) = 0.994455793 : 0.886777468
    dend[ 59 ].diam( 0.564468341 : 1 ) = 0.886777468 : 1.061499001
    dend[ 60 ].diam( 0 : 1 ) = 0.421218712 : 0.258352015
    dend[ 61 ].diam( 0 : 1 ) = 0.336218596 : 0.31314706
    dend[ 62 ].diam( 0 : 1 ) = 0.546798524 : 0.543765177
    dend[ 63 ].diam( 0 : 1 ) = 0.374482359 : 0.258352015
    dend[ 64 ].diam( 0 : 0.641927146 ) = 0.441854975 : 0.382593789
    dend[ 64 ].diam( 0.641927146 : 1 ) = 0.382593789 : 0.437422235
    dend[ 65 ].diam( 0 : 0.783763133 ) = 0.999600084 : 0.769203755
    dend[ 65 ].diam( 0.783763133 : 1 ) = 0.769203755 : 0.832759879
    dend[ 66 ].diam( 0 : 1 ) = 0.440823734 : 0.43270995
    dend[ 67 ].diam( 0 : 1 ) = 0.276419295 : 0.258352015
    dend[ 68 ].diam( 0 : 0.472893079 ) = 0.297320059 : 0.4402815
    dend[ 68 ].diam( 0.472893079 : 1 ) = 0.4402815 : 0.258352015
    dend[ 69 ].diam( 0 : 1 ) = 0.391600474 : 0.360212171
    dend[ 70 ].diam( 0 : 1 ) = 0.457247635 : 0.452865835
    dend[ 71 ].diam( 0 : 0.04331848 ) = 0.383738513 : 0.349169107
    dend[ 71 ].diam( 0.04331848 : 0.088664607 ) = 0.349169107 : 0.286411024
    dend[ 71 ].diam( 0.088664607 : 0.285821681 ) = 0.286411024 : 0.359847076
    dend[ 71 ].diam( 0.285821681 : 1 ) = 0.359847076 : 0.258352015
    dend[ 72 ].diam( 0 : 0.214644181 ) = 0.353554075 : 0.251568457
    dend[ 72 ].diam( 0.214644181 : 1 ) = 0.251568457 : 0.258352015
    dend[ 73 ].diam( 0 : 0.308418671 ) = 0.676632203 : 0.617250221
    dend[ 73 ].diam( 0.308418671 : 0.499483808 ) = 0.617250221 : 0.790333556
    dend[ 73 ].diam( 0.499483808 : 0.881614082 ) = 0.790333556 : 0.613595534
    dend[ 73 ].diam( 0.881614082 : 1 ) = 0.613595534 : 0.577217507
    dend[ 74 ].diam( 0 : 0.4039221 ) = 0.743244358 : 0.595052869
    dend[ 74 ].diam( 0.4039221 : 0.654151541 ) = 0.595052869 : 0.571419054
    dend[ 74 ].diam( 0.654151541 : 1 ) = 0.571419054 : 0.695872448
    dend[ 75 ].diam( 0 : 1 ) = 0.347901931 : 0.258352015
    dend[ 76 ].diam( 0 : 1 ) = 0.364620228 : 0.258352015
    dend[ 77 ].diam( 0 : 1 ) = 0.287844789 : 0.258352015
    dend[ 78 ].diam( 0 : 1 ) = 0.337111182 : 0.258352015
    dend[ 79 ].diam( 0 : 1 ) = 0.348568902 : 0.258352015
    dend[ 80 ].diam( 0 : 1 ) = 0.387727931 : 0.258352015
    dend[ 81 ].diam( 0 : 1 ) = 0.547939343 : 0.478394177
    dend[ 82 ].diam( 0 : 0.545593197 ) = 0.393750978 : 0.502696402
    dend[ 82 ].diam( 0.545593197 : 1 ) = 0.502696402 : 0.468222971
    dend[ 83 ].diam( 0 : 0.199313407 ) = 0.561708464 : 0.380631915
    dend[ 83 ].diam( 0.199313407 : 0.844471501 ) = 0.380631915 : 0.38665555
    dend[ 83 ].diam( 0.844471501 : 1 ) = 0.38665555 : 0.387541985
    dend[ 84 ].diam( 0 : 0.619397798 ) = 0.48150598 : 0.448199534
    dend[ 84 ].diam( 0.619397798 : 1 ) = 0.448199534 : 0.540262139
    dend[ 85 ].diam( 0 : 1 ) = 0.389177958 : 0.393303324
    dend[ 86 ].diam( 0 : 1 ) = 0.438935145 : 0.464589546
    dend[ 87 ].diam( 0 : 0.173854475 ) = 0.339034285 : 0.265120604
    dend[ 87 ].diam( 0.173854475 : 0.58277068 ) = 0.265120604 : 0.179273848
    dend[ 87 ].diam( 0.58277068 : 1 ) = 0.179273848 : 0.246476601
    dend[ 88 ].diam( 0 : 0.46190524 ) = 0.359834437 : 0.247737696
    dend[ 88 ].diam( 0.46190524 : 1 ) = 0.247737696 : 0.222835888
    dend[ 89 ].diam( 0 : 1 ) = 0.234550649 : 0.424572554
    dend[ 90 ].diam( 0 : 0.232380832 ) = 0.285528316 : 0.325590284
    dend[ 90 ].diam( 0.232380832 : 0.538576324 ) = 0.325590284 : 0.209110002
    dend[ 90 ].diam( 0.538576324 : 1 ) = 0.209110002 : 0.258352015
    dend[ 91 ].diam( 0 : 1 ) = 0.466581812 : 0.441104025
    dend[ 92 ].diam( 0 : 0.189844918 ) = 0.37540692 : 0.268924029
    dend[ 92 ].diam( 0.189844918 : 0.424173086 ) = 0.268924029 : 0.255492554
    dend[ 92 ].diam( 0.424173086 : 0.658501253 ) = 0.255492554 : 0.150814957
    dend[ 92 ].diam( 0.658501253 : 1 ) = 0.150814957 : 0.258352015
    dend[ 93 ].diam( 0 : 1 ) = 0.322236385 : 0.258352015
    dend[ 94 ].diam( 0 : 1 ) = 0.34292416 : 0.258352015
    dend[ 95 ].diam( 0 : 1 ) = 0.340946837 : 0.258352015
    dend[ 96 ].diam( 0 : 1 ) = 0.407853484 : 0.377781163
    dend[ 97 ].diam( 0 : 1 ) = 0.367457796 : 0.354812761
    dend[ 98 ].diam( 0 : 1 ) = 0.334637692 : 0.258352015
    dend[ 99 ].diam( 0 : 1 ) = 0.371860487 : 0.324427481
    dend[ 100 ].diam( 0 : 1 ) = 0.35076816 : 0.258352015
    dend[ 101 ].diam( 0 : 1 ) = 0.326075927 : 0.258352015
    dend[ 102 ].diam( 0 : 1 ) = 0.321152394 : 0.258352015
    dend[ 103 ].diam( 0 : 1 ) = 0.302316162 : 0.258352015
    dend[ 104 ].diam( 0 : 1 ) = 0.318186733 : 0.258352015
    dend[ 105 ].diam( 0 : 1 ) = 0.297467638 : 0.258352015
    dend[ 106 ].diam( 0 : 1 ) = 0.288984356 : 0.258352015
}

proc geom_nseg() {
    soma area( 0.5 ) // make sure diam reflects 3d points
    //    forsec all { nseg = int((L/(0.1*lambda_f(100))+.9)/2)*2 + 1  }
    forsec dendall { nseg = int( ( L / 1 + .9 ) / 2 ) * 2 + 1  }
    soma { nseg = ( int( ( L / 1 + .9 ) / 2 ) * 2 + 1 ) * 10 }
    forsec spineall { nseg = 3 }
}

proc biophys() {
    forsec all {
	Ra = Ra_default
	insert pas
	e_pas = e_pas_default
    }
    biophys1()
    biophys2()
}

proc biophys1() {
    // soma
    soma.g_pas( 0 : 0.04 ) = g_pas_default * 1.113714688 : g_pas_default * 1.103573071
    soma.g_pas( 0.04 : 0.08 ) = g_pas_default * 1.103573071 : g_pas_default * 1.088555755
    soma.g_pas( 0.08 : 0.12 ) = g_pas_default * 1.088555755 : g_pas_default * 1.082298757
    soma.g_pas( 0.12 : 0.16 ) = g_pas_default * 1.082298757 : g_pas_default * 1.101499051
    soma.g_pas( 0.16 : 0.2 ) = g_pas_default * 1.101499051 : g_pas_default * 1.197075414
    soma.g_pas( 0.2 : 0.24 ) = g_pas_default * 1.197075414 : g_pas_default * 1.14944326
    soma.g_pas( 0.24 : 0.28 ) = g_pas_default * 1.14944326 : g_pas_default * 1.132078792
    soma.g_pas( 0.28 : 0.32 ) = g_pas_default * 1.132078792 : g_pas_default * 1.205731779
    soma.g_pas( 0.32 : 0.36 ) = g_pas_default * 1.205731779 : g_pas_default * 1.20262315
    soma.g_pas( 0.36 : 0.4 ) = g_pas_default * 1.20262315 : g_pas_default * 1.270072795
    soma.g_pas( 0.4 : 0.44 ) = g_pas_default * 1.270072795 : g_pas_default * 1.299035436
    soma.g_pas( 0.44 : 0.48 ) = g_pas_default * 1.299035436 : g_pas_default * 1.383211968
    soma.g_pas( 0.48 : 0.52 ) = g_pas_default * 1.383211968 : g_pas_default * 1.422716719
    soma.g_pas( 0.52 : 0.56 ) = g_pas_default * 1.422716719 : g_pas_default * 1.497641995
    soma.g_pas( 0.56 : 0.6 ) = g_pas_default * 1.497641995 : g_pas_default * 1.336749214
    soma.g_pas( 0.6 : 0.64 ) = g_pas_default * 1.336749214 : g_pas_default * 1.218297899
    soma.g_pas( 0.64 : 0.68 ) = g_pas_default * 1.218297899 : g_pas_default * 1.146562605
    soma.g_pas( 0.68 : 0.72 ) = g_pas_default * 1.146562605 : g_pas_default * 1.154146787
    soma.g_pas( 0.72 : 0.76 ) = g_pas_default * 1.154146787 : g_pas_default * 1.143819817
    soma.g_pas( 0.76 : 0.8 ) = g_pas_default * 1.143819817 : g_pas_default * 1.156089215
    soma.g_pas( 0.8 : 0.84 ) = g_pas_default * 1.156089215 : g_pas_default * 1.084209496
    soma.g_pas( 0.84 : 0.88 ) = g_pas_default * 1.084209496 : g_pas_default * 1.043723899
    soma.g_pas( 0.88 : 0.92 ) = g_pas_default * 1.043723899 : g_pas_default * 1.065749915
    soma.g_pas( 0.92 : 0.96 ) = g_pas_default * 1.065749915 : g_pas_default * 1.059896493
    soma.g_pas( 0.96 : 1 ) = g_pas_default * 1.059896493 : g_pas_default * 1.116310331
    soma.cm( 0 : 0.04 ) = cm_default * 1.113714688 : cm_default * 1.103573071
    soma.cm( 0.04 : 0.08 ) = cm_default * 1.103573071 : cm_default * 1.088555755
    soma.cm( 0.08 : 0.12 ) = cm_default * 1.088555755 : cm_default * 1.082298757
    soma.cm( 0.12 : 0.16 ) = cm_default * 1.082298757 : cm_default * 1.101499051
    soma.cm( 0.16 : 0.2 ) = cm_default * 1.101499051 : cm_default * 1.197075414
    soma.cm( 0.2 : 0.24 ) = cm_default * 1.197075414 : cm_default * 1.14944326
    soma.cm( 0.24 : 0.28 ) = cm_default * 1.14944326 : cm_default * 1.132078792
    soma.cm( 0.28 : 0.32 ) = cm_default * 1.132078792 : cm_default * 1.205731779
    soma.cm( 0.32 : 0.36 ) = cm_default * 1.205731779 : cm_default * 1.20262315
    soma.cm( 0.36 : 0.4 ) = cm_default * 1.20262315 : cm_default * 1.270072795
    soma.cm( 0.4 : 0.44 ) = cm_default * 1.270072795 : cm_default * 1.299035436
    soma.cm( 0.44 : 0.48 ) = cm_default * 1.299035436 : cm_default * 1.383211968
    soma.cm( 0.48 : 0.52 ) = cm_default * 1.383211968 : cm_default * 1.422716719
    soma.cm( 0.52 : 0.56 ) = cm_default * 1.422716719 : cm_default * 1.497641995
    soma.cm( 0.56 : 0.6 ) = cm_default * 1.497641995 : cm_default * 1.336749214
    soma.cm( 0.6 : 0.64 ) = cm_default * 1.336749214 : cm_default * 1.218297899
    soma.cm( 0.64 : 0.68 ) = cm_default * 1.218297899 : cm_default * 1.146562605
    soma.cm( 0.68 : 0.72 ) = cm_default * 1.146562605 : cm_default * 1.154146787
    soma.cm( 0.72 : 0.76 ) = cm_default * 1.154146787 : cm_default * 1.143819817
    soma.cm( 0.76 : 0.8 ) = cm_default * 1.143819817 : cm_default * 1.156089215
    soma.cm( 0.8 : 0.84 ) = cm_default * 1.156089215 : cm_default * 1.084209496
    soma.cm( 0.84 : 0.88 ) = cm_default * 1.084209496 : cm_default * 1.043723899
    soma.cm( 0.88 : 0.92 ) = cm_default * 1.043723899 : cm_default * 1.065749915
    soma.cm( 0.92 : 0.96 ) = cm_default * 1.065749915 : cm_default * 1.059896493
    soma.cm( 0.96 : 1 ) = cm_default * 1.059896493 : cm_default * 1.116310331
    // basal1
    dend[ 3 ].g_pas( 0 : 1 ) = g_pas_default * 1.316048714 : g_pas_default * 1.316048714
    dend[ 10 ].g_pas( 0 : 0.740101214 ) = g_pas_default * 1.693479336 : g_pas_default * 1.11110585
    dend[ 10 ].g_pas( 0.740101214 : 1 ) = g_pas_default * 1.11110585 : g_pas_default * 1.282484154
    dend[ 11 ].g_pas( 0 : 1 ) = g_pas_default * 1.498794277 : g_pas_default * 1.13492956
    dend[ 18 ].g_pas( 0 : 1 ) = g_pas_default * 1.274901441 : g_pas_default * 1.274633408
    dend[ 19 ].g_pas( 0 : 1 ) = g_pas_default * 1.464213617 : g_pas_default * 1.627082477
    dend[ 20 ].g_pas( 0 : 1 ) = g_pas_default * 1.29448413 : g_pas_default * 1.705259588
    dend[ 21 ].g_pas( 0 : 1 ) = g_pas_default * 1.261140145 : g_pas_default * 1.261773425
    dend[ 26 ].g_pas( 0 : 0.164705759 ) = g_pas_default * 1.100615996 : g_pas_default * 1.138203324
    dend[ 26 ].g_pas( 0.164705759 : 1 ) = g_pas_default * 1.138203324 : g_pas_default * 1.627082477
    dend[ 27 ].g_pas( 0 : 1 ) = g_pas_default * 1.103721032 : g_pas_default * 1.261418909
    dend[ 28 ].g_pas( 0 : 0.199756287 ) = g_pas_default * 1.136160762 : g_pas_default * 1.146283595
    dend[ 28 ].g_pas( 0.199756287 : 0.725746891 ) = g_pas_default * 1.146283595 : g_pas_default * 1.238566212
    dend[ 28 ].g_pas( 0.725746891 : 1 ) = g_pas_default * 1.238566212 : g_pas_default * 1.627082477
    dend[ 29 ].g_pas( 0 : 1 ) = g_pas_default * 1.133383697 : g_pas_default * 1.627082477
    dend[ 30 ].g_pas( 0 : 1 ) = g_pas_default * 1.324206783 : g_pas_default * 1.330517356
    dend[ 31 ].g_pas( 0 : 1 ) = g_pas_default * 1.295056595 : g_pas_default * 1.302482689
    dend[ 34 ].g_pas( 0 : 1 ) = g_pas_default * 1.570069422 : g_pas_default * 1.164675534
    dend[ 35 ].g_pas( 0 : 0.118736743 ) = g_pas_default * 1.506986613 : g_pas_default * 1.454235204
    dend[ 35 ].g_pas( 0.118736743 : 0.372782756 ) = g_pas_default * 1.454235204 : g_pas_default * 1.419140099
    dend[ 35 ].g_pas( 0.372782756 : 1 ) = g_pas_default * 1.419140099 : g_pas_default * 1.627082477
    dend[ 36 ].g_pas( 0 : 1 ) = g_pas_default * 1.452145491 : g_pas_default * 1.627082477
    dend[ 37 ].g_pas( 0 : 1 ) = g_pas_default * 1.392063009 : g_pas_default * 1.627082477
    dend[ 38 ].g_pas( 0 : 1 ) = g_pas_default * 1.343119802 : g_pas_default * 1.627082477
    dend[ 39 ].g_pas( 0 : 1 ) = g_pas_default * 1.451703316 : g_pas_default * 1.627082477
    dend[ 40 ].g_pas( 0 : 0.43096424 ) = g_pas_default * 1.220153457 : g_pas_default * 1.406902195
    dend[ 40 ].g_pas( 0.43096424 : 0.800376258 ) = g_pas_default * 1.406902195 : g_pas_default * 1.54246896
    dend[ 40 ].g_pas( 0.800376258 : 1 ) = g_pas_default * 1.54246896 : g_pas_default * 1.369215338
    dend[ 41 ].g_pas( 0 : 1 ) = g_pas_default * 1.19873946 : g_pas_default * 1.627082477
    dend[ 42 ].g_pas( 0 : 1 ) = g_pas_default * 1.609949344 : g_pas_default * 1.627082477
    dend[ 43 ].g_pas( 0 : 1 ) = g_pas_default * 1.37401476 : g_pas_default * 1.389707642
    dend[ 44 ].g_pas( 0 : 1 ) = g_pas_default * 1.490686551 : g_pas_default * 1.627082477
    dend[ 45 ].g_pas( 0 : 1 ) = g_pas_default * 1.460505863 : g_pas_default * 1.627082477
    dend[ 3 ].cm( 0 : 1 ) = cm_default * 1.316048714 : cm_default * 1.316048714
    dend[ 10 ].cm( 0 : 0.740101214 ) = cm_default * 1.693479336 : cm_default * 1.11110585
    dend[ 10 ].cm( 0.740101214 : 1 ) = cm_default * 1.11110585 : cm_default * 1.282484154
    dend[ 11 ].cm( 0 : 1 ) = cm_default * 1.498794277 : cm_default * 1.13492956
    dend[ 18 ].cm( 0 : 1 ) = cm_default * 1.274901441 : cm_default * 1.274633408
    dend[ 19 ].cm( 0 : 1 ) = cm_default * 1.464213617 : cm_default * 1.627082477
    dend[ 20 ].cm( 0 : 1 ) = cm_default * 1.29448413 : cm_default * 1.705259588
    dend[ 21 ].cm( 0 : 1 ) = cm_default * 1.261140145 : cm_default * 1.261773425
    dend[ 26 ].cm( 0 : 0.164705759 ) = cm_default * 1.100615996 : cm_default * 1.138203324
    dend[ 26 ].cm( 0.164705759 : 1 ) = cm_default * 1.138203324 : cm_default * 1.627082477
    dend[ 27 ].cm( 0 : 1 ) = cm_default * 1.103721032 : cm_default * 1.261418909
    dend[ 28 ].cm( 0 : 0.199756287 ) = cm_default * 1.136160762 : cm_default * 1.146283595
    dend[ 28 ].cm( 0.199756287 : 0.725746891 ) = cm_default * 1.146283595 : cm_default * 1.238566212
    dend[ 28 ].cm( 0.725746891 : 1 ) = cm_default * 1.238566212 : cm_default * 1.627082477
    dend[ 29 ].cm( 0 : 1 ) = cm_default * 1.133383697 : cm_default * 1.627082477
    dend[ 30 ].cm( 0 : 1 ) = cm_default * 1.324206783 : cm_default * 1.330517356
    dend[ 31 ].cm( 0 : 1 ) = cm_default * 1.295056595 : cm_default * 1.302482689
    dend[ 34 ].cm( 0 : 1 ) = cm_default * 1.570069422 : cm_default * 1.164675534
    dend[ 35 ].cm( 0 : 0.118736743 ) = cm_default * 1.506986613 : cm_default * 1.454235204
    dend[ 35 ].cm( 0.118736743 : 0.372782756 ) = cm_default * 1.454235204 : cm_default * 1.419140099
    dend[ 35 ].cm( 0.372782756 : 1 ) = cm_default * 1.419140099 : cm_default * 1.627082477
    dend[ 36 ].cm( 0 : 1 ) = cm_default * 1.452145491 : cm_default * 1.627082477
    dend[ 37 ].cm( 0 : 1 ) = cm_default * 1.392063009 : cm_default * 1.627082477
    dend[ 38 ].cm( 0 : 1 ) = cm_default * 1.343119802 : cm_default * 1.627082477
    dend[ 39 ].cm( 0 : 1 ) = cm_default * 1.451703316 : cm_default * 1.627082477
    dend[ 40 ].cm( 0 : 0.43096424 ) = cm_default * 1.220153457 : cm_default * 1.406902195
    dend[ 40 ].cm( 0.43096424 : 0.800376258 ) = cm_default * 1.406902195 : cm_default * 1.54246896
    dend[ 40 ].cm( 0.800376258 : 1 ) = cm_default * 1.54246896 : cm_default * 1.369215338
    dend[ 41 ].cm( 0 : 1 ) = cm_default * 1.19873946 : cm_default * 1.627082477
    dend[ 42 ].cm( 0 : 1 ) = cm_default * 1.609949344 : cm_default * 1.627082477
    dend[ 43 ].cm( 0 : 1 ) = cm_default * 1.37401476 : cm_default * 1.389707642
    dend[ 44 ].cm( 0 : 1 ) = cm_default * 1.490686551 : cm_default * 1.627082477
    dend[ 45 ].cm( 0 : 1 ) = cm_default * 1.460505863 : cm_default * 1.627082477
    // basal2
    dend[ 2 ].g_pas( 0 : 1 ) = g_pas_default * 1.700468779 : g_pas_default * 1.700468779
    dend[ 8 ].g_pas( 0 : 1 ) = g_pas_default * 1.134227133 : g_pas_default * 1.26225017
    dend[ 9 ].g_pas( 0 : 0.795422553 ) = g_pas_default * 1.441166944 : g_pas_default * 1.198596651
    dend[ 9 ].g_pas( 0.795422553 : 1 ) = g_pas_default * 1.198596651 : g_pas_default * 1.262870441
    dend[ 14 ].g_pas( 0 : 1 ) = g_pas_default * 1.062993039 : g_pas_default * 1.273232402
    dend[ 15 ].g_pas( 0 : 1 ) = g_pas_default * 1.265712579 : g_pas_default * 1.627082477
    dend[ 16 ].g_pas( 0 : 0.51010761 ) = g_pas_default * 1.289626568 : g_pas_default * 1.088928091
    dend[ 16 ].g_pas( 0.51010761 : 1 ) = g_pas_default * 1.088928091 : g_pas_default * 1.291501651
    dend[ 17 ].g_pas( 0 : 0.036693302 ) = g_pas_default * 1.351634355 : g_pas_default * 1.377733287
    dend[ 17 ].g_pas( 0.036693302 : 1 ) = g_pas_default * 1.377733287 : g_pas_default * 1.627082477
    dend[ 22 ].g_pas( 0 : 1 ) = g_pas_default * 1.508011779 : g_pas_default * 1.627082477
    dend[ 23 ].g_pas( 0 : 0.786330491 ) = g_pas_default * 1.225675698 : g_pas_default * 1.123792189
    dend[ 23 ].g_pas( 0.786330491 : 1 ) = g_pas_default * 1.123792189 : g_pas_default * 1.322425033
    dend[ 24 ].g_pas( 0 : 0.255328056 ) = g_pas_default * 1.55282338 : g_pas_default * 1.06860539
    dend[ 24 ].g_pas( 0.255328056 : 1 ) = g_pas_default * 1.06860539 : g_pas_default * 1.627082477
    dend[ 25 ].g_pas( 0 : 1 ) = g_pas_default * 1.286926605 : g_pas_default * 1.627082477
    dend[ 32 ].g_pas( 0 : 0.258797623 ) = g_pas_default * 1.706537927 : g_pas_default * 1.342206761
    dend[ 32 ].g_pas( 0.258797623 : 1 ) = g_pas_default * 1.342206761 : g_pas_default * 1.627082477
    dend[ 33 ].g_pas( 0 : 0.252202921 ) = g_pas_default * 1.848252316 : g_pas_default * 1.177470439
    dend[ 33 ].g_pas( 0.252202921 : 1 ) = g_pas_default * 1.177470439 : g_pas_default * 1.627082477
    dend[ 2 ].cm( 0 : 1 ) = cm_default * 1.700468779 : cm_default * 1.700468779
    dend[ 8 ].cm( 0 : 1 ) = cm_default * 1.134227133 : cm_default * 1.26225017
    dend[ 9 ].cm( 0 : 0.795422553 ) = cm_default * 1.441166944 : cm_default * 1.198596651
    dend[ 9 ].cm( 0.795422553 : 1 ) = cm_default * 1.198596651 : cm_default * 1.262870441
    dend[ 14 ].cm( 0 : 1 ) = cm_default * 1.062993039 : cm_default * 1.273232402
    dend[ 15 ].cm( 0 : 1 ) = cm_default * 1.265712579 : cm_default * 1.627082477
    dend[ 16 ].cm( 0 : 0.51010761 ) = cm_default * 1.289626568 : cm_default * 1.088928091
    dend[ 16 ].cm( 0.51010761 : 1 ) = cm_default * 1.088928091 : cm_default * 1.291501651
    dend[ 17 ].cm( 0 : 0.036693302 ) = cm_default * 1.351634355 : cm_default * 1.377733287
    dend[ 17 ].cm( 0.036693302 : 1 ) = cm_default * 1.377733287 : cm_default * 1.627082477
    dend[ 22 ].cm( 0 : 1 ) = cm_default * 1.508011779 : cm_default * 1.627082477
    dend[ 23 ].cm( 0 : 0.786330491 ) = cm_default * 1.225675698 : cm_default * 1.123792189
    dend[ 23 ].cm( 0.786330491 : 1 ) = cm_default * 1.123792189 : cm_default * 1.322425033
    dend[ 24 ].cm( 0 : 0.255328056 ) = cm_default * 1.55282338 : cm_default * 1.06860539
    dend[ 24 ].cm( 0.255328056 : 1 ) = cm_default * 1.06860539 : cm_default * 1.627082477
    dend[ 25 ].cm( 0 : 1 ) = cm_default * 1.286926605 : cm_default * 1.627082477
    dend[ 32 ].cm( 0 : 0.258797623 ) = cm_default * 1.706537927 : cm_default * 1.342206761
    dend[ 32 ].cm( 0.258797623 : 1 ) = cm_default * 1.342206761 : cm_default * 1.627082477
    dend[ 33 ].cm( 0 : 0.252202921 ) = cm_default * 1.848252316 : cm_default * 1.177470439
    dend[ 33 ].cm( 0.252202921 : 1 ) = cm_default * 1.177470439 : cm_default * 1.627082477
    // basal3
    dend[ 1 ].g_pas( 0 : 1 ) = g_pas_default * 1.341876317 : g_pas_default * 1.368491722
    dend[ 6 ].g_pas( 0 : 1 ) = g_pas_default * 1.525229487 : g_pas_default * 1.627082477
    dend[ 7 ].g_pas( 0 : 1 ) = g_pas_default * 1.406549205 : g_pas_default * 1.627082477
    dend[ 1 ].cm( 0 : 1 ) = cm_default * 1.341876317 : cm_default * 1.368491722
    dend[ 6 ].cm( 0 : 1 ) = cm_default * 1.525229487 : cm_default * 1.627082477
    dend[ 7 ].cm( 0 : 1 ) = cm_default * 1.406549205 : cm_default * 1.627082477
    // basal4
    dend[ 0 ].g_pas( 0 : 1 ) = g_pas_default * 1.3031565 : g_pas_default * 1.306714152
    dend[ 4 ].g_pas( 0 : 1 ) = g_pas_default * 1.435734301 : g_pas_default * 1.627082477
    dend[ 5 ].g_pas( 0 : 1 ) = g_pas_default * 1.358849344 : g_pas_default * 1.385476369
    dend[ 12 ].g_pas( 0 : 1 ) = g_pas_default * 1.550235066 : g_pas_default * 1.627082477
    dend[ 13 ].g_pas( 0 : 1 ) = g_pas_default * 1.415521346 : g_pas_default * 1.627082477
    dend[ 0 ].cm( 0 : 1 ) = cm_default * 1.3031565 : cm_default * 1.306714152
    dend[ 4 ].cm( 0 : 1 ) = cm_default * 1.435734301 : cm_default * 1.627082477
    dend[ 5 ].cm( 0 : 1 ) = cm_default * 1.358849344 : cm_default * 1.385476369
    dend[ 12 ].cm( 0 : 1 ) = cm_default * 1.550235066 : cm_default * 1.627082477
    dend[ 13 ].cm( 0 : 1 ) = cm_default * 1.415521346 : cm_default * 1.627082477
}

proc biophys2() {
    // apical
    dend[ 46 ].g_pas( 0 : 1 ) = g_pas_default * 1.802503313 : g_pas_default * 1.802077091
    dend[ 47 ].g_pas( 0 : 1 ) = g_pas_default * 1.42016157 : g_pas_default * 1.767793792
    dend[ 48 ].g_pas( 0 : 1 ) = g_pas_default * 1.025161124 : g_pas_default * 1.332142486
    dend[ 49 ].g_pas( 0 : 1 ) = g_pas_default * 1.684821992 : g_pas_default * 1.683999009
    dend[ 50 ].g_pas( 0 : 1 ) = g_pas_default * 1.478429305 : g_pas_default * 1.261289821
    dend[ 51 ].g_pas( 0 : 1 ) = g_pas_default * 1.530871174 : g_pas_default * 1.627082477
    dend[ 52 ].g_pas( 0 : 1 ) = g_pas_default * 1.356372912 : g_pas_default * 1.379082306
    dend[ 53 ].g_pas( 0 : 1 ) = g_pas_default * 1.129673296 : g_pas_default * 1.051715719
    dend[ 54 ].g_pas( 0 : 1 ) = g_pas_default * 1.190235727 : g_pas_default * 1.264847537
    dend[ 55 ].g_pas( 0 : 1 ) = g_pas_default * 1.623047722 : g_pas_default * 1.627082477
    dend[ 56 ].g_pas( 0 : 0.437263949 ) = g_pas_default * 1.261311195 : g_pas_default * 1.203671566
    dend[ 56 ].g_pas( 0.437263949 : 1 ) = g_pas_default * 1.203671566 : g_pas_default * 1.262550552
    dend[ 57 ].g_pas( 0 : 1 ) = g_pas_default * 1.459727351 : g_pas_default * 1.627082477
    dend[ 58 ].g_pas( 0 : 1 ) = g_pas_default * 1.472258962 : g_pas_default * 1.627082477
    dend[ 59 ].g_pas( 0 : 0.564468341 ) = g_pas_default * 1.180986976 : g_pas_default * 1.213156535
    dend[ 59 ].g_pas( 0.564468341 : 1 ) = g_pas_default * 1.213156535 : g_pas_default * 1.553584119
    dend[ 60 ].g_pas( 0 : 1 ) = g_pas_default * 1.245089531 : g_pas_default * 1.627082477
    dend[ 61 ].g_pas( 0 : 1 ) = g_pas_default * 1.409876462 : g_pas_default * 1.458292621
    dend[ 62 ].g_pas( 0 : 1 ) = g_pas_default * 1.261105689 : g_pas_default * 1.261088668
    dend[ 63 ].g_pas( 0 : 1 ) = g_pas_default * 1.349995406 : g_pas_default * 1.627082477
    dend[ 64 ].g_pas( 0 : 0.641927146 ) = g_pas_default * 1.288438165 : g_pas_default * 1.131079213
    dend[ 64 ].g_pas( 0.641927146 : 1 ) = g_pas_default * 1.131079213 : g_pas_default * 1.291166177
    dend[ 65 ].g_pas( 0 : 0.783763133 ) = g_pas_default * 1.501840969 : g_pas_default * 1.213685008
    dend[ 65 ].g_pas( 0.783763133 : 1 ) = g_pas_default * 1.213685008 : g_pas_default * 1.20007997
    dend[ 66 ].g_pas( 0 : 1 ) = g_pas_default * 1.289058694 : g_pas_default * 1.294242961
    dend[ 67 ].g_pas( 0 : 1 ) = g_pas_default * 1.561250815 : g_pas_default * 1.627082477
    dend[ 68 ].g_pas( 0 : 0.472893079 ) = g_pas_default * 1.498251525 : g_pas_default * 1.667097885
    dend[ 68 ].g_pas( 0.472893079 : 1 ) = g_pas_default * 1.667097885 : g_pas_default * 1.627082477
    dend[ 69 ].g_pas( 0 : 1 ) = g_pas_default * 1.329801238 : g_pas_default * 1.369738233
    dend[ 70 ].g_pas( 0 : 1 ) = g_pas_default * 1.280149527 : g_pas_default * 1.282328173
    dend[ 71 ].g_pas( 0 : 0.04331848 ) = g_pas_default * 1.07873369 : g_pas_default * 1.09126274
    dend[ 71 ].g_pas( 0.04331848 : 0.088664607 ) = g_pas_default * 1.09126274 : g_pas_default * 1.662595064
    dend[ 71 ].g_pas( 0.088664607 : 0.285821681 ) = g_pas_default * 1.662595064 : g_pas_default * 1.194603888
    dend[ 71 ].g_pas( 0.285821681 : 1 ) = g_pas_default * 1.194603888 : g_pas_default * 1.627082477
    dend[ 72 ].g_pas( 0 : 0.214644181 ) = g_pas_default * 1.374433734 : g_pas_default * 1.096019138
    dend[ 72 ].g_pas( 0.214644181 : 1 ) = g_pas_default * 1.096019138 : g_pas_default * 1.627082477
    dend[ 73 ].g_pas( 0 : 0.308418671 ) = g_pas_default * 1.291244175 : g_pas_default * 1.172942503
    dend[ 73 ].g_pas( 0.308418671 : 0.499483808 ) = g_pas_default * 1.172942503 : g_pas_default * 1.257840564
    dend[ 73 ].g_pas( 0.499483808 : 0.881614082 ) = g_pas_default * 1.257840564 : g_pas_default * 1.141379577
    dend[ 73 ].g_pas( 0.881614082 : 1 ) = g_pas_default * 1.141379577 : g_pas_default * 1.347680534
    dend[ 74 ].g_pas( 0 : 0.4039221 ) = g_pas_default * 1.323028676 : g_pas_default * 1.26799112
    dend[ 74 ].g_pas( 0.4039221 : 0.654151541 ) = g_pas_default * 1.26799112 : g_pas_default * 1.263721642
    dend[ 74 ].g_pas( 0.654151541 : 1 ) = g_pas_default * 1.263721642 : g_pas_default * 1.137599221
    dend[ 75 ].g_pas( 0 : 1 ) = g_pas_default * 1.389160928 : g_pas_default * 1.627082477
    dend[ 76 ].g_pas( 0 : 1 ) = g_pas_default * 1.363336521 : g_pas_default * 1.627082477
    dend[ 77 ].g_pas( 0 : 1 ) = g_pas_default * 1.52524235 : g_pas_default * 1.627082477
    dend[ 78 ].g_pas( 0 : 1 ) = g_pas_default * 1.408210054 : g_pas_default * 1.627082477
    dend[ 79 ].g_pas( 0 : 1 ) = g_pas_default * 1.388047626 : g_pas_default * 1.627082477
    dend[ 80 ].g_pas( 0 : 1 ) = g_pas_default * 1.334060242 : g_pas_default * 1.627082477
    dend[ 81 ].g_pas( 0 : 1 ) = g_pas_default * 1.256307201 : g_pas_default * 1.221961548
    dend[ 82 ].g_pas( 0 : 0.545593197 ) = g_pas_default * 1.221579363 : g_pas_default * 1.175228521
    dend[ 82 ].g_pas( 0.545593197 : 1 ) = g_pas_default * 1.175228521 : g_pas_default * 1.184255911
    dend[ 83 ].g_pas( 0 : 0.199313407 ) = g_pas_default * 1.124659094 : g_pas_default * 1.238402622
    dend[ 83 ].g_pas( 0.199313407 : 0.844471501 ) = g_pas_default * 1.238402622 : g_pas_default * 1.153843398
    dend[ 83 ].g_pas( 0.844471501 : 1 ) = g_pas_default * 1.153843398 : g_pas_default * 1.129750365
    dend[ 84 ].g_pas( 0 : 0.619397798 ) = g_pas_default * 1.133347612 : g_pas_default * 1.232475569
    dend[ 84 ].g_pas( 0.619397798 : 1 ) = g_pas_default * 1.232475569 : g_pas_default * 1.261117902
    dend[ 85 ].g_pas( 0 : 1 ) = g_pas_default * 1.247065144 : g_pas_default * 1.327982982
    dend[ 86 ].g_pas( 0 : 1 ) = g_pas_default * 1.167666459 : g_pas_default * 1.27680598
    dend[ 87 ].g_pas( 0 : 0.173854475 ) = g_pas_default * 1.134157693 : g_pas_default * 1.17661051
    dend[ 87 ].g_pas( 0.173854475 : 0.58277068 ) = g_pas_default * 1.17661051 : g_pas_default * 1.276621273
    dend[ 87 ].g_pas( 0.58277068 : 1 ) = g_pas_default * 1.276621273 : g_pas_default * 1.367635579
    dend[ 88 ].g_pas( 0 : 0.46190524 ) = g_pas_default * 1.191557484 : g_pas_default * 1.193641055
    dend[ 88 ].g_pas( 0.46190524 : 1 ) = g_pas_default * 1.193641055 : g_pas_default * 1.352741989
    dend[ 89 ].g_pas( 0 : 1 ) = g_pas_default * 1.371381864 : g_pas_default * 1.300002378
    dend[ 90 ].g_pas( 0 : 0.232380832 ) = g_pas_default * 1.225834175 : g_pas_default * 1.043366084
    dend[ 90 ].g_pas( 0.232380832 : 0.538576324 ) = g_pas_default * 1.043366084 : g_pas_default * 1.348129348
    dend[ 90 ].g_pas( 0.538576324 : 1 ) = g_pas_default * 1.348129348 : g_pas_default * 1.627082477
    dend[ 91 ].g_pas( 0 : 1 ) = g_pas_default * 1.275963042 : g_pas_default * 1.288889194
    dend[ 92 ].g_pas( 0 : 0.189844918 ) = g_pas_default * 1.348811427 : g_pas_default * 1.117120524
    dend[ 92 ].g_pas( 0.189844918 : 0.424173086 ) = g_pas_default * 1.117120524 : g_pas_default * 1.208085387
    dend[ 92 ].g_pas( 0.424173086 : 0.658501253 ) = g_pas_default * 1.208085387 : g_pas_default * 1.473478761
    dend[ 92 ].g_pas( 0.658501253 : 1 ) = g_pas_default * 1.473478761 : g_pas_default * 1.627082477
    dend[ 93 ].g_pas( 0 : 1 ) = g_pas_default * 1.437933633 : g_pas_default * 1.627082477
    dend[ 94 ].g_pas( 0 : 1 ) = g_pas_default * 1.39770152 : g_pas_default * 1.627082477
    dend[ 95 ].g_pas( 0 : 1 ) = g_pas_default * 1.401210069 : g_pas_default * 1.627082477
    dend[ 96 ].g_pas( 0 : 1 ) = g_pas_default * 1.313737965 : g_pas_default * 1.345821587
    dend[ 97 ].g_pas( 0 : 1 ) = g_pas_default * 1.359361708 : g_pas_default * 1.37796941
    dend[ 98 ].g_pas( 0 : 1 ) = g_pas_default * 1.412863283 : g_pas_default * 1.627082477
    dend[ 99 ].g_pas( 0 : 1 ) = g_pas_default * 1.353413944 : g_pas_default * 1.433284802
    dend[ 100 ].g_pas( 0 : 1 ) = g_pas_default * 1.384427475 : g_pas_default * 1.627082477
    dend[ 101 ].g_pas( 0 : 1 ) = g_pas_default * 1.429850988 : g_pas_default * 1.627082477
    dend[ 102 ].g_pas( 0 : 1 ) = g_pas_default * 1.440269797 : g_pas_default * 1.627082477
    dend[ 103 ].g_pas( 0 : 1 ) = g_pas_default * 1.484978322 : g_pas_default * 1.627082477
    dend[ 104 ].g_pas( 0 : 1 ) = g_pas_default * 1.446786343 : g_pas_default * 1.627082477
    dend[ 105 ].g_pas( 0 : 1 ) = g_pas_default * 1.497850271 : g_pas_default * 1.627082477
    dend[ 106 ].g_pas( 0 : 1 ) = g_pas_default * 1.521864495 : g_pas_default * 1.627082477
    dend[ 46 ].cm( 0 : 1 ) = cm_default * 1.802503313 : cm_default * 1.802077091
    dend[ 47 ].cm( 0 : 1 ) = cm_default * 1.42016157 : cm_default * 1.767793792
    dend[ 48 ].cm( 0 : 1 ) = cm_default * 1.025161124 : cm_default * 1.332142486
    dend[ 49 ].cm( 0 : 1 ) = cm_default * 1.684821992 : cm_default * 1.683999009
    dend[ 50 ].cm( 0 : 1 ) = cm_default * 1.478429305 : cm_default * 1.261289821
    dend[ 51 ].cm( 0 : 1 ) = cm_default * 1.530871174 : cm_default * 1.627082477
    dend[ 52 ].cm( 0 : 1 ) = cm_default * 1.356372912 : cm_default * 1.379082306
    dend[ 53 ].cm( 0 : 1 ) = cm_default * 1.129673296 : cm_default * 1.051715719
    dend[ 54 ].cm( 0 : 1 ) = cm_default * 1.190235727 : cm_default * 1.264847537
    dend[ 55 ].cm( 0 : 1 ) = cm_default * 1.623047722 : cm_default * 1.627082477
    dend[ 56 ].cm( 0 : 0.437263949 ) = cm_default * 1.261311195 : cm_default * 1.203671566
    dend[ 56 ].cm( 0.437263949 : 1 ) = cm_default * 1.203671566 : cm_default * 1.262550552
    dend[ 57 ].cm( 0 : 1 ) = cm_default * 1.459727351 : cm_default * 1.627082477
    dend[ 58 ].cm( 0 : 1 ) = cm_default * 1.472258962 : cm_default * 1.627082477
    dend[ 59 ].cm( 0 : 0.564468341 ) = cm_default * 1.180986976 : cm_default * 1.213156535
    dend[ 59 ].cm( 0.564468341 : 1 ) = cm_default * 1.213156535 : cm_default * 1.553584119
    dend[ 60 ].cm( 0 : 1 ) = cm_default * 1.245089531 : cm_default * 1.627082477
    dend[ 61 ].cm( 0 : 1 ) = cm_default * 1.409876462 : cm_default * 1.458292621
    dend[ 62 ].cm( 0 : 1 ) = cm_default * 1.261105689 : cm_default * 1.261088668
    dend[ 63 ].cm( 0 : 1 ) = cm_default * 1.349995406 : cm_default * 1.627082477
    dend[ 64 ].cm( 0 : 0.641927146 ) = cm_default * 1.288438165 : cm_default * 1.131079213
    dend[ 64 ].cm( 0.641927146 : 1 ) = cm_default * 1.131079213 : cm_default * 1.291166177
    dend[ 65 ].cm( 0 : 0.783763133 ) = cm_default * 1.501840969 : cm_default * 1.213685008
    dend[ 65 ].cm( 0.783763133 : 1 ) = cm_default * 1.213685008 : cm_default * 1.20007997
    dend[ 66 ].cm( 0 : 1 ) = cm_default * 1.289058694 : cm_default * 1.294242961
    dend[ 67 ].cm( 0 : 1 ) = cm_default * 1.561250815 : cm_default * 1.627082477
    dend[ 68 ].cm( 0 : 0.472893079 ) = cm_default * 1.498251525 : cm_default * 1.667097885
    dend[ 68 ].cm( 0.472893079 : 1 ) = cm_default * 1.667097885 : cm_default * 1.627082477
    dend[ 69 ].cm( 0 : 1 ) = cm_default * 1.329801238 : cm_default * 1.369738233
    dend[ 70 ].cm( 0 : 1 ) = cm_default * 1.280149527 : cm_default * 1.282328173
    dend[ 71 ].cm( 0 : 0.04331848 ) = cm_default * 1.07873369 : cm_default * 1.09126274
    dend[ 71 ].cm( 0.04331848 : 0.088664607 ) = cm_default * 1.09126274 : cm_default * 1.662595064
    dend[ 71 ].cm( 0.088664607 : 0.285821681 ) = cm_default * 1.662595064 : cm_default * 1.194603888
    dend[ 71 ].cm( 0.285821681 : 1 ) = cm_default * 1.194603888 : cm_default * 1.627082477
    dend[ 72 ].cm( 0 : 0.214644181 ) = cm_default * 1.374433734 : cm_default * 1.096019138
    dend[ 72 ].cm( 0.214644181 : 1 ) = cm_default * 1.096019138 : cm_default * 1.627082477
    dend[ 73 ].cm( 0 : 0.308418671 ) = cm_default * 1.291244175 : cm_default * 1.172942503
    dend[ 73 ].cm( 0.308418671 : 0.499483808 ) = cm_default * 1.172942503 : cm_default * 1.257840564
    dend[ 73 ].cm( 0.499483808 : 0.881614082 ) = cm_default * 1.257840564 : cm_default * 1.141379577
    dend[ 73 ].cm( 0.881614082 : 1 ) = cm_default * 1.141379577 : cm_default * 1.347680534
    dend[ 74 ].cm( 0 : 0.4039221 ) = cm_default * 1.323028676 : cm_default * 1.26799112
    dend[ 74 ].cm( 0.4039221 : 0.654151541 ) = cm_default * 1.26799112 : cm_default * 1.263721642
    dend[ 74 ].cm( 0.654151541 : 1 ) = cm_default * 1.263721642 : cm_default * 1.137599221
    dend[ 75 ].cm( 0 : 1 ) = cm_default * 1.389160928 : cm_default * 1.627082477
    dend[ 76 ].cm( 0 : 1 ) = cm_default * 1.363336521 : cm_default * 1.627082477
    dend[ 77 ].cm( 0 : 1 ) = cm_default * 1.52524235 : cm_default * 1.627082477
    dend[ 78 ].cm( 0 : 1 ) = cm_default * 1.408210054 : cm_default * 1.627082477
    dend[ 79 ].cm( 0 : 1 ) = cm_default * 1.388047626 : cm_default * 1.627082477
    dend[ 80 ].cm( 0 : 1 ) = cm_default * 1.334060242 : cm_default * 1.627082477
    dend[ 81 ].cm( 0 : 1 ) = cm_default * 1.256307201 : cm_default * 1.221961548
    dend[ 82 ].cm( 0 : 0.545593197 ) = cm_default * 1.221579363 : cm_default * 1.175228521
    dend[ 82 ].cm( 0.545593197 : 1 ) = cm_default * 1.175228521 : cm_default * 1.184255911
    dend[ 83 ].cm( 0 : 0.199313407 ) = cm_default * 1.124659094 : cm_default * 1.238402622
    dend[ 83 ].cm( 0.199313407 : 0.844471501 ) = cm_default * 1.238402622 : cm_default * 1.153843398
    dend[ 83 ].cm( 0.844471501 : 1 ) = cm_default * 1.153843398 : cm_default * 1.129750365
    dend[ 84 ].cm( 0 : 0.619397798 ) = cm_default * 1.133347612 : cm_default * 1.232475569
    dend[ 84 ].cm( 0.619397798 : 1 ) = cm_default * 1.232475569 : cm_default * 1.261117902
    dend[ 85 ].cm( 0 : 1 ) = cm_default * 1.247065144 : cm_default * 1.327982982
    dend[ 86 ].cm( 0 : 1 ) = cm_default * 1.167666459 : cm_default * 1.27680598
    dend[ 87 ].cm( 0 : 0.173854475 ) = cm_default * 1.134157693 : cm_default * 1.17661051
    dend[ 87 ].cm( 0.173854475 : 0.58277068 ) = cm_default * 1.17661051 : cm_default * 1.276621273
    dend[ 87 ].cm( 0.58277068 : 1 ) = cm_default * 1.276621273 : cm_default * 1.367635579
    dend[ 88 ].cm( 0 : 0.46190524 ) = cm_default * 1.191557484 : cm_default * 1.193641055
    dend[ 88 ].cm( 0.46190524 : 1 ) = cm_default * 1.193641055 : cm_default * 1.352741989
    dend[ 89 ].cm( 0 : 1 ) = cm_default * 1.371381864 : cm_default * 1.300002378
    dend[ 90 ].cm( 0 : 0.232380832 ) = cm_default * 1.225834175 : cm_default * 1.043366084
    dend[ 90 ].cm( 0.232380832 : 0.538576324 ) = cm_default * 1.043366084 : cm_default * 1.348129348
    dend[ 90 ].cm( 0.538576324 : 1 ) = cm_default * 1.348129348 : cm_default * 1.627082477
    dend[ 91 ].cm( 0 : 1 ) = cm_default * 1.275963042 : cm_default * 1.288889194
    dend[ 92 ].cm( 0 : 0.189844918 ) = cm_default * 1.348811427 : cm_default * 1.117120524
    dend[ 92 ].cm( 0.189844918 : 0.424173086 ) = cm_default * 1.117120524 : cm_default * 1.208085387
    dend[ 92 ].cm( 0.424173086 : 0.658501253 ) = cm_default * 1.208085387 : cm_default * 1.473478761
    dend[ 92 ].cm( 0.658501253 : 1 ) = cm_default * 1.473478761 : cm_default * 1.627082477
    dend[ 93 ].cm( 0 : 1 ) = cm_default * 1.437933633 : cm_default * 1.627082477
    dend[ 94 ].cm( 0 : 1 ) = cm_default * 1.39770152 : cm_default * 1.627082477
    dend[ 95 ].cm( 0 : 1 ) = cm_default * 1.401210069 : cm_default * 1.627082477
    dend[ 96 ].cm( 0 : 1 ) = cm_default * 1.313737965 : cm_default * 1.345821587
    dend[ 97 ].cm( 0 : 1 ) = cm_default * 1.359361708 : cm_default * 1.37796941
    dend[ 98 ].cm( 0 : 1 ) = cm_default * 1.412863283 : cm_default * 1.627082477
    dend[ 99 ].cm( 0 : 1 ) = cm_default * 1.353413944 : cm_default * 1.433284802
    dend[ 100 ].cm( 0 : 1 ) = cm_default * 1.384427475 : cm_default * 1.627082477
    dend[ 101 ].cm( 0 : 1 ) = cm_default * 1.429850988 : cm_default * 1.627082477
    dend[ 102 ].cm( 0 : 1 ) = cm_default * 1.440269797 : cm_default * 1.627082477
    dend[ 103 ].cm( 0 : 1 ) = cm_default * 1.484978322 : cm_default * 1.627082477
    dend[ 104 ].cm( 0 : 1 ) = cm_default * 1.446786343 : cm_default * 1.627082477
    dend[ 105 ].cm( 0 : 1 ) = cm_default * 1.497850271 : cm_default * 1.627082477
    dend[ 106 ].cm( 0 : 1 ) = cm_default * 1.521864495 : cm_default * 1.627082477
    // spine
    spNeck[ 0 ].g_pas = g_pas_default
    spNeck[ 1 ].g_pas = g_pas_default
    spNeck[ 2 ].g_pas = g_pas_default
    spNeck[ 0 ].cm = cm_default
    spNeck[ 1 ].cm = cm_default
    spNeck[ 2 ].cm = cm_default
    spHead[ 0 ].g_pas = g_pas_default * 1.8572
    spHead[ 1 ].g_pas = g_pas_default * 1.6045
    spHead[ 2 ].g_pas = g_pas_default * 0.6742
    spHead[ 0 ].cm = cm_default * 1.8572
    spHead[ 1 ].cm = cm_default * 1.6045
    spHead[ 2 ].cm = cm_default * 0.6742
}

proc setall() {
    //    e_pas_default = -65
    forsec all {
	Ra = $1
	e_pas = $5
    }
    forsec spineall {
	Ra = $2
    }
    setall1( $3, $4 )
    setall2( $3, $4 )
}

proc setall1() {
    // soma
    soma.g_pas( 0 : 0.04 ) = $2 * 1.113714688 : $2 * 1.103573071
    soma.g_pas( 0.04 : 0.08 ) = $2 * 1.103573071 : $2 * 1.088555755
    soma.g_pas( 0.08 : 0.12 ) = $2 * 1.088555755 : $2 * 1.082298757
    soma.g_pas( 0.12 : 0.16 ) = $2 * 1.082298757 : $2 * 1.101499051
    soma.g_pas( 0.16 : 0.2 ) = $2 * 1.101499051 : $2 * 1.197075414
    soma.g_pas( 0.2 : 0.24 ) = $2 * 1.197075414 : $2 * 1.14944326
    soma.g_pas( 0.24 : 0.28 ) = $2 * 1.14944326 : $2 * 1.132078792
    soma.g_pas( 0.28 : 0.32 ) = $2 * 1.132078792 : $2 * 1.205731779
    soma.g_pas( 0.32 : 0.36 ) = $2 * 1.205731779 : $2 * 1.20262315
    soma.g_pas( 0.36 : 0.4 ) = $2 * 1.20262315 : $2 * 1.270072795
    soma.g_pas( 0.4 : 0.44 ) = $2 * 1.270072795 : $2 * 1.299035436
    soma.g_pas( 0.44 : 0.48 ) = $2 * 1.299035436 : $2 * 1.383211968
    soma.g_pas( 0.48 : 0.52 ) = $2 * 1.383211968 : $2 * 1.422716719
    soma.g_pas( 0.52 : 0.56 ) = $2 * 1.422716719 : $2 * 1.497641995
    soma.g_pas( 0.56 : 0.6 ) = $2 * 1.497641995 : $2 * 1.336749214
    soma.g_pas( 0.6 : 0.64 ) = $2 * 1.336749214 : $2 * 1.218297899
    soma.g_pas( 0.64 : 0.68 ) = $2 * 1.218297899 : $2 * 1.146562605
    soma.g_pas( 0.68 : 0.72 ) = $2 * 1.146562605 : $2 * 1.154146787
    soma.g_pas( 0.72 : 0.76 ) = $2 * 1.154146787 : $2 * 1.143819817
    soma.g_pas( 0.76 : 0.8 ) = $2 * 1.143819817 : $2 * 1.156089215
    soma.g_pas( 0.8 : 0.84 ) = $2 * 1.156089215 : $2 * 1.084209496
    soma.g_pas( 0.84 : 0.88 ) = $2 * 1.084209496 : $2 * 1.043723899
    soma.g_pas( 0.88 : 0.92 ) = $2 * 1.043723899 : $2 * 1.065749915
    soma.g_pas( 0.92 : 0.96 ) = $2 * 1.065749915 : $2 * 1.059896493
    soma.g_pas( 0.96 : 1 ) = $2 * 1.059896493 : $2 * 1.116310331
    soma.cm( 0 : 0.04 ) = $1 * 1.113714688 : $1 * 1.103573071
    soma.cm( 0.04 : 0.08 ) = $1 * 1.103573071 : $1 * 1.088555755
    soma.cm( 0.08 : 0.12 ) = $1 * 1.088555755 : $1 * 1.082298757
    soma.cm( 0.12 : 0.16 ) = $1 * 1.082298757 : $1 * 1.101499051
    soma.cm( 0.16 : 0.2 ) = $1 * 1.101499051 : $1 * 1.197075414
    soma.cm( 0.2 : 0.24 ) = $1 * 1.197075414 : $1 * 1.14944326
    soma.cm( 0.24 : 0.28 ) = $1 * 1.14944326 : $1 * 1.132078792
    soma.cm( 0.28 : 0.32 ) = $1 * 1.132078792 : $1 * 1.205731779
    soma.cm( 0.32 : 0.36 ) = $1 * 1.205731779 : $1 * 1.20262315
    soma.cm( 0.36 : 0.4 ) = $1 * 1.20262315 : $1 * 1.270072795
    soma.cm( 0.4 : 0.44 ) = $1 * 1.270072795 : $1 * 1.299035436
    soma.cm( 0.44 : 0.48 ) = $1 * 1.299035436 : $1 * 1.383211968
    soma.cm( 0.48 : 0.52 ) = $1 * 1.383211968 : $1 * 1.422716719
    soma.cm( 0.52 : 0.56 ) = $1 * 1.422716719 : $1 * 1.497641995
    soma.cm( 0.56 : 0.6 ) = $1 * 1.497641995 : $1 * 1.336749214
    soma.cm( 0.6 : 0.64 ) = $1 * 1.336749214 : $1 * 1.218297899
    soma.cm( 0.64 : 0.68 ) = $1 * 1.218297899 : $1 * 1.146562605
    soma.cm( 0.68 : 0.72 ) = $1 * 1.146562605 : $1 * 1.154146787
    soma.cm( 0.72 : 0.76 ) = $1 * 1.154146787 : $1 * 1.143819817
    soma.cm( 0.76 : 0.8 ) = $1 * 1.143819817 : $1 * 1.156089215
    soma.cm( 0.8 : 0.84 ) = $1 * 1.156089215 : $1 * 1.084209496
    soma.cm( 0.84 : 0.88 ) = $1 * 1.084209496 : $1 * 1.043723899
    soma.cm( 0.88 : 0.92 ) = $1 * 1.043723899 : $1 * 1.065749915
    soma.cm( 0.92 : 0.96 ) = $1 * 1.065749915 : $1 * 1.059896493
    soma.cm( 0.96 : 1 ) = $1 * 1.059896493 : $1 * 1.116310331
    // basal1
    dend[ 3 ].g_pas( 0 : 1 ) = $2 * 1.316048714 : $2 * 1.316048714
    dend[ 10 ].g_pas( 0 : 0.740101214 ) = $2 * 1.693479336 : $2 * 1.11110585
    dend[ 10 ].g_pas( 0.740101214 : 1 ) = $2 * 1.11110585 : $2 * 1.282484154
    dend[ 11 ].g_pas( 0 : 1 ) = $2 * 1.498794277 : $2 * 1.13492956
    dend[ 18 ].g_pas( 0 : 1 ) = $2 * 1.274901441 : $2 * 1.274633408
    dend[ 19 ].g_pas( 0 : 1 ) = $2 * 1.464213617 : $2 * 1.627082477
    dend[ 20 ].g_pas( 0 : 1 ) = $2 * 1.29448413 : $2 * 1.705259588
    dend[ 21 ].g_pas( 0 : 1 ) = $2 * 1.261140145 : $2 * 1.261773425
    dend[ 26 ].g_pas( 0 : 0.164705759 ) = $2 * 1.100615996 : $2 * 1.138203324
    dend[ 26 ].g_pas( 0.164705759 : 1 ) = $2 * 1.138203324 : $2 * 1.627082477
    dend[ 27 ].g_pas( 0 : 1 ) = $2 * 1.103721032 : $2 * 1.261418909
    dend[ 28 ].g_pas( 0 : 0.199756287 ) = $2 * 1.136160762 : $2 * 1.146283595
    dend[ 28 ].g_pas( 0.199756287 : 0.725746891 ) = $2 * 1.146283595 : $2 * 1.238566212
    dend[ 28 ].g_pas( 0.725746891 : 1 ) = $2 * 1.238566212 : $2 * 1.627082477
    dend[ 29 ].g_pas( 0 : 1 ) = $2 * 1.133383697 : $2 * 1.627082477
    dend[ 30 ].g_pas( 0 : 1 ) = $2 * 1.324206783 : $2 * 1.330517356
    dend[ 31 ].g_pas( 0 : 1 ) = $2 * 1.295056595 : $2 * 1.302482689
    dend[ 34 ].g_pas( 0 : 1 ) = $2 * 1.570069422 : $2 * 1.164675534
    dend[ 35 ].g_pas( 0 : 0.118736743 ) = $2 * 1.506986613 : $2 * 1.454235204
    dend[ 35 ].g_pas( 0.118736743 : 0.372782756 ) = $2 * 1.454235204 : $2 * 1.419140099
    dend[ 35 ].g_pas( 0.372782756 : 1 ) = $2 * 1.419140099 : $2 * 1.627082477
    dend[ 36 ].g_pas( 0 : 1 ) = $2 * 1.452145491 : $2 * 1.627082477
    dend[ 37 ].g_pas( 0 : 1 ) = $2 * 1.392063009 : $2 * 1.627082477
    dend[ 38 ].g_pas( 0 : 1 ) = $2 * 1.343119802 : $2 * 1.627082477
    dend[ 39 ].g_pas( 0 : 1 ) = $2 * 1.451703316 : $2 * 1.627082477
    dend[ 40 ].g_pas( 0 : 0.43096424 ) = $2 * 1.220153457 : $2 * 1.406902195
    dend[ 40 ].g_pas( 0.43096424 : 0.800376258 ) = $2 * 1.406902195 : $2 * 1.54246896
    dend[ 40 ].g_pas( 0.800376258 : 1 ) = $2 * 1.54246896 : $2 * 1.369215338
    dend[ 41 ].g_pas( 0 : 1 ) = $2 * 1.19873946 : $2 * 1.627082477
    dend[ 42 ].g_pas( 0 : 1 ) = $2 * 1.609949344 : $2 * 1.627082477
    dend[ 43 ].g_pas( 0 : 1 ) = $2 * 1.37401476 : $2 * 1.389707642
    dend[ 44 ].g_pas( 0 : 1 ) = $2 * 1.490686551 : $2 * 1.627082477
    dend[ 45 ].g_pas( 0 : 1 ) = $2 * 1.460505863 : $2 * 1.627082477
    dend[ 3 ].cm( 0 : 1 ) = $1 * 1.316048714 : $1 * 1.316048714
    dend[ 10 ].cm( 0 : 0.740101214 ) = $1 * 1.693479336 : $1 * 1.11110585
    dend[ 10 ].cm( 0.740101214 : 1 ) = $1 * 1.11110585 : $1 * 1.282484154
    dend[ 11 ].cm( 0 : 1 ) = $1 * 1.498794277 : $1 * 1.13492956
    dend[ 18 ].cm( 0 : 1 ) = $1 * 1.274901441 : $1 * 1.274633408
    dend[ 19 ].cm( 0 : 1 ) = $1 * 1.464213617 : $1 * 1.627082477
    dend[ 20 ].cm( 0 : 1 ) = $1 * 1.29448413 : $1 * 1.705259588
    dend[ 21 ].cm( 0 : 1 ) = $1 * 1.261140145 : $1 * 1.261773425
    dend[ 26 ].cm( 0 : 0.164705759 ) = $1 * 1.100615996 : $1 * 1.138203324
    dend[ 26 ].cm( 0.164705759 : 1 ) = $1 * 1.138203324 : $1 * 1.627082477
    dend[ 27 ].cm( 0 : 1 ) = $1 * 1.103721032 : $1 * 1.261418909
    dend[ 28 ].cm( 0 : 0.199756287 ) = $1 * 1.136160762 : $1 * 1.146283595
    dend[ 28 ].cm( 0.199756287 : 0.725746891 ) = $1 * 1.146283595 : $1 * 1.238566212
    dend[ 28 ].cm( 0.725746891 : 1 ) = $1 * 1.238566212 : $1 * 1.627082477
    dend[ 29 ].cm( 0 : 1 ) = $1 * 1.133383697 : $1 * 1.627082477
    dend[ 30 ].cm( 0 : 1 ) = $1 * 1.324206783 : $1 * 1.330517356
    dend[ 31 ].cm( 0 : 1 ) = $1 * 1.295056595 : $1 * 1.302482689
    dend[ 34 ].cm( 0 : 1 ) = $1 * 1.570069422 : $1 * 1.164675534
    dend[ 35 ].cm( 0 : 0.118736743 ) = $1 * 1.506986613 : $1 * 1.454235204
    dend[ 35 ].cm( 0.118736743 : 0.372782756 ) = $1 * 1.454235204 : $1 * 1.419140099
    dend[ 35 ].cm( 0.372782756 : 1 ) = $1 * 1.419140099 : $1 * 1.627082477
    dend[ 36 ].cm( 0 : 1 ) = $1 * 1.452145491 : $1 * 1.627082477
    dend[ 37 ].cm( 0 : 1 ) = $1 * 1.392063009 : $1 * 1.627082477
    dend[ 38 ].cm( 0 : 1 ) = $1 * 1.343119802 : $1 * 1.627082477
    dend[ 39 ].cm( 0 : 1 ) = $1 * 1.451703316 : $1 * 1.627082477
    dend[ 40 ].cm( 0 : 0.43096424 ) = $1 * 1.220153457 : $1 * 1.406902195
    dend[ 40 ].cm( 0.43096424 : 0.800376258 ) = $1 * 1.406902195 : $1 * 1.54246896
    dend[ 40 ].cm( 0.800376258 : 1 ) = $1 * 1.54246896 : $1 * 1.369215338
    dend[ 41 ].cm( 0 : 1 ) = $1 * 1.19873946 : $1 * 1.627082477
    dend[ 42 ].cm( 0 : 1 ) = $1 * 1.609949344 : $1 * 1.627082477
    dend[ 43 ].cm( 0 : 1 ) = $1 * 1.37401476 : $1 * 1.389707642
    dend[ 44 ].cm( 0 : 1 ) = $1 * 1.490686551 : $1 * 1.627082477
    dend[ 45 ].cm( 0 : 1 ) = $1 * 1.460505863 : $1 * 1.627082477
    // basal2
    dend[ 2 ].g_pas( 0 : 1 ) = $2 * 1.700468779 : $2 * 1.700468779
    dend[ 8 ].g_pas( 0 : 1 ) = $2 * 1.134227133 : $2 * 1.26225017
    dend[ 9 ].g_pas( 0 : 0.795422553 ) = $2 * 1.441166944 : $2 * 1.198596651
    dend[ 9 ].g_pas( 0.795422553 : 1 ) = $2 * 1.198596651 : $2 * 1.262870441
    dend[ 14 ].g_pas( 0 : 1 ) = $2 * 1.062993039 : $2 * 1.273232402
    dend[ 15 ].g_pas( 0 : 1 ) = $2 * 1.265712579 : $2 * 1.627082477
    dend[ 16 ].g_pas( 0 : 0.51010761 ) = $2 * 1.289626568 : $2 * 1.088928091
    dend[ 16 ].g_pas( 0.51010761 : 1 ) = $2 * 1.088928091 : $2 * 1.291501651
    dend[ 17 ].g_pas( 0 : 0.036693302 ) = $2 * 1.351634355 : $2 * 1.377733287
    dend[ 17 ].g_pas( 0.036693302 : 1 ) = $2 * 1.377733287 : $2 * 1.627082477
    dend[ 22 ].g_pas( 0 : 1 ) = $2 * 1.508011779 : $2 * 1.627082477
    dend[ 23 ].g_pas( 0 : 0.786330491 ) = $2 * 1.225675698 : $2 * 1.123792189
    dend[ 23 ].g_pas( 0.786330491 : 1 ) = $2 * 1.123792189 : $2 * 1.322425033
    dend[ 24 ].g_pas( 0 : 0.255328056 ) = $2 * 1.55282338 : $2 * 1.06860539
    dend[ 24 ].g_pas( 0.255328056 : 1 ) = $2 * 1.06860539 : $2 * 1.627082477
    dend[ 25 ].g_pas( 0 : 1 ) = $2 * 1.286926605 : $2 * 1.627082477
    dend[ 32 ].g_pas( 0 : 0.258797623 ) = $2 * 1.706537927 : $2 * 1.342206761
    dend[ 32 ].g_pas( 0.258797623 : 1 ) = $2 * 1.342206761 : $2 * 1.627082477
    dend[ 33 ].g_pas( 0 : 0.252202921 ) = $2 * 1.848252316 : $2 * 1.177470439
    dend[ 33 ].g_pas( 0.252202921 : 1 ) = $2 * 1.177470439 : $2 * 1.627082477
    dend[ 2 ].cm( 0 : 1 ) = $1 * 1.700468779 : $1 * 1.700468779
    dend[ 8 ].cm( 0 : 1 ) = $1 * 1.134227133 : $1 * 1.26225017
    dend[ 9 ].cm( 0 : 0.795422553 ) = $1 * 1.441166944 : $1 * 1.198596651
    dend[ 9 ].cm( 0.795422553 : 1 ) = $1 * 1.198596651 : $1 * 1.262870441
    dend[ 14 ].cm( 0 : 1 ) = $1 * 1.062993039 : $1 * 1.273232402
    dend[ 15 ].cm( 0 : 1 ) = $1 * 1.265712579 : $1 * 1.627082477
    dend[ 16 ].cm( 0 : 0.51010761 ) = $1 * 1.289626568 : $1 * 1.088928091
    dend[ 16 ].cm( 0.51010761 : 1 ) = $1 * 1.088928091 : $1 * 1.291501651
    dend[ 17 ].cm( 0 : 0.036693302 ) = $1 * 1.351634355 : $1 * 1.377733287
    dend[ 17 ].cm( 0.036693302 : 1 ) = $1 * 1.377733287 : $1 * 1.627082477
    dend[ 22 ].cm( 0 : 1 ) = $1 * 1.508011779 : $1 * 1.627082477
    dend[ 23 ].cm( 0 : 0.786330491 ) = $1 * 1.225675698 : $1 * 1.123792189
    dend[ 23 ].cm( 0.786330491 : 1 ) = $1 * 1.123792189 : $1 * 1.322425033
    dend[ 24 ].cm( 0 : 0.255328056 ) = $1 * 1.55282338 : $1 * 1.06860539
    dend[ 24 ].cm( 0.255328056 : 1 ) = $1 * 1.06860539 : $1 * 1.627082477
    dend[ 25 ].cm( 0 : 1 ) = $1 * 1.286926605 : $1 * 1.627082477
    dend[ 32 ].cm( 0 : 0.258797623 ) = $1 * 1.706537927 : $1 * 1.342206761
    dend[ 32 ].cm( 0.258797623 : 1 ) = $1 * 1.342206761 : $1 * 1.627082477
    dend[ 33 ].cm( 0 : 0.252202921 ) = $1 * 1.848252316 : $1 * 1.177470439
    dend[ 33 ].cm( 0.252202921 : 1 ) = $1 * 1.177470439 : $1 * 1.627082477
    // basal3
    dend[ 1 ].g_pas( 0 : 1 ) = $2 * 1.341876317 : $2 * 1.368491722
    dend[ 6 ].g_pas( 0 : 1 ) = $2 * 1.525229487 : $2 * 1.627082477
    dend[ 7 ].g_pas( 0 : 1 ) = $2 * 1.406549205 : $2 * 1.627082477
    dend[ 1 ].cm( 0 : 1 ) = $1 * 1.341876317 : $1 * 1.368491722
    dend[ 6 ].cm( 0 : 1 ) = $1 * 1.525229487 : $1 * 1.627082477
    dend[ 7 ].cm( 0 : 1 ) = $1 * 1.406549205 : $1 * 1.627082477
    // basal4
    dend[ 0 ].g_pas( 0 : 1 ) = $2 * 1.3031565 : $2 * 1.306714152
    dend[ 4 ].g_pas( 0 : 1 ) = $2 * 1.435734301 : $2 * 1.627082477
    dend[ 5 ].g_pas( 0 : 1 ) = $2 * 1.358849344 : $2 * 1.385476369
    dend[ 12 ].g_pas( 0 : 1 ) = $2 * 1.550235066 : $2 * 1.627082477
    dend[ 13 ].g_pas( 0 : 1 ) = $2 * 1.415521346 : $2 * 1.627082477
    dend[ 0 ].cm( 0 : 1 ) = $1 * 1.3031565 : $1 * 1.306714152
    dend[ 4 ].cm( 0 : 1 ) = $1 * 1.435734301 : $1 * 1.627082477
    dend[ 5 ].cm( 0 : 1 ) = $1 * 1.358849344 : $1 * 1.385476369
    dend[ 12 ].cm( 0 : 1 ) = $1 * 1.550235066 : $1 * 1.627082477
    dend[ 13 ].cm( 0 : 1 ) = $1 * 1.415521346 : $1 * 1.627082477
}

proc setall2() {
    // apical
    dend[ 46 ].g_pas( 0 : 1 ) = $2 * 1.802503313 : $2 * 1.802077091
    dend[ 47 ].g_pas( 0 : 1 ) = $2 * 1.42016157 : $2 * 1.767793792
    dend[ 48 ].g_pas( 0 : 1 ) = $2 * 1.025161124 : $2 * 1.332142486
    dend[ 49 ].g_pas( 0 : 1 ) = $2 * 1.684821992 : $2 * 1.683999009
    dend[ 50 ].g_pas( 0 : 1 ) = $2 * 1.478429305 : $2 * 1.261289821
    dend[ 51 ].g_pas( 0 : 1 ) = $2 * 1.530871174 : $2 * 1.627082477
    dend[ 52 ].g_pas( 0 : 1 ) = $2 * 1.356372912 : $2 * 1.379082306
    dend[ 53 ].g_pas( 0 : 1 ) = $2 * 1.129673296 : $2 * 1.051715719
    dend[ 54 ].g_pas( 0 : 1 ) = $2 * 1.190235727 : $2 * 1.264847537
    dend[ 55 ].g_pas( 0 : 1 ) = $2 * 1.623047722 : $2 * 1.627082477
    dend[ 56 ].g_pas( 0 : 0.437263949 ) = $2 * 1.261311195 : $2 * 1.203671566
    dend[ 56 ].g_pas( 0.437263949 : 1 ) = $2 * 1.203671566 : $2 * 1.262550552
    dend[ 57 ].g_pas( 0 : 1 ) = $2 * 1.459727351 : $2 * 1.627082477
    dend[ 58 ].g_pas( 0 : 1 ) = $2 * 1.472258962 : $2 * 1.627082477
    dend[ 59 ].g_pas( 0 : 0.564468341 ) = $2 * 1.180986976 : $2 * 1.213156535
    dend[ 59 ].g_pas( 0.564468341 : 1 ) = $2 * 1.213156535 : $2 * 1.553584119
    dend[ 60 ].g_pas( 0 : 1 ) = $2 * 1.245089531 : $2 * 1.627082477
    dend[ 61 ].g_pas( 0 : 1 ) = $2 * 1.409876462 : $2 * 1.458292621
    dend[ 62 ].g_pas( 0 : 1 ) = $2 * 1.261105689 : $2 * 1.261088668
    dend[ 63 ].g_pas( 0 : 1 ) = $2 * 1.349995406 : $2 * 1.627082477
    dend[ 64 ].g_pas( 0 : 0.641927146 ) = $2 * 1.288438165 : $2 * 1.131079213
    dend[ 64 ].g_pas( 0.641927146 : 1 ) = $2 * 1.131079213 : $2 * 1.291166177
    dend[ 65 ].g_pas( 0 : 0.783763133 ) = $2 * 1.501840969 : $2 * 1.213685008
    dend[ 65 ].g_pas( 0.783763133 : 1 ) = $2 * 1.213685008 : $2 * 1.20007997
    dend[ 66 ].g_pas( 0 : 1 ) = $2 * 1.289058694 : $2 * 1.294242961
    dend[ 67 ].g_pas( 0 : 1 ) = $2 * 1.561250815 : $2 * 1.627082477
    dend[ 68 ].g_pas( 0 : 0.472893079 ) = $2 * 1.498251525 : $2 * 1.667097885
    dend[ 68 ].g_pas( 0.472893079 : 1 ) = $2 * 1.667097885 : $2 * 1.627082477
    dend[ 69 ].g_pas( 0 : 1 ) = $2 * 1.329801238 : $2 * 1.369738233
    dend[ 70 ].g_pas( 0 : 1 ) = $2 * 1.280149527 : $2 * 1.282328173
    dend[ 71 ].g_pas( 0 : 0.04331848 ) = $2 * 1.07873369 : $2 * 1.09126274
    dend[ 71 ].g_pas( 0.04331848 : 0.088664607 ) = $2 * 1.09126274 : $2 * 1.662595064
    dend[ 71 ].g_pas( 0.088664607 : 0.285821681 ) = $2 * 1.662595064 : $2 * 1.194603888
    dend[ 71 ].g_pas( 0.285821681 : 1 ) = $2 * 1.194603888 : $2 * 1.627082477
    dend[ 72 ].g_pas( 0 : 0.214644181 ) = $2 * 1.374433734 : $2 * 1.096019138
    dend[ 72 ].g_pas( 0.214644181 : 1 ) = $2 * 1.096019138 : $2 * 1.627082477
    dend[ 73 ].g_pas( 0 : 0.308418671 ) = $2 * 1.291244175 : $2 * 1.172942503
    dend[ 73 ].g_pas( 0.308418671 : 0.499483808 ) = $2 * 1.172942503 : $2 * 1.257840564
    dend[ 73 ].g_pas( 0.499483808 : 0.881614082 ) = $2 * 1.257840564 : $2 * 1.141379577
    dend[ 73 ].g_pas( 0.881614082 : 1 ) = $2 * 1.141379577 : $2 * 1.347680534
    dend[ 74 ].g_pas( 0 : 0.4039221 ) = $2 * 1.323028676 : $2 * 1.26799112
    dend[ 74 ].g_pas( 0.4039221 : 0.654151541 ) = $2 * 1.26799112 : $2 * 1.263721642
    dend[ 74 ].g_pas( 0.654151541 : 1 ) = $2 * 1.263721642 : $2 * 1.137599221
    dend[ 75 ].g_pas( 0 : 1 ) = $2 * 1.389160928 : $2 * 1.627082477
    dend[ 76 ].g_pas( 0 : 1 ) = $2 * 1.363336521 : $2 * 1.627082477
    dend[ 77 ].g_pas( 0 : 1 ) = $2 * 1.52524235 : $2 * 1.627082477
    dend[ 78 ].g_pas( 0 : 1 ) = $2 * 1.408210054 : $2 * 1.627082477
    dend[ 79 ].g_pas( 0 : 1 ) = $2 * 1.388047626 : $2 * 1.627082477
    dend[ 80 ].g_pas( 0 : 1 ) = $2 * 1.334060242 : $2 * 1.627082477
    dend[ 81 ].g_pas( 0 : 1 ) = $2 * 1.256307201 : $2 * 1.221961548
    dend[ 82 ].g_pas( 0 : 0.545593197 ) = $2 * 1.221579363 : $2 * 1.175228521
    dend[ 82 ].g_pas( 0.545593197 : 1 ) = $2 * 1.175228521 : $2 * 1.184255911
    dend[ 83 ].g_pas( 0 : 0.199313407 ) = $2 * 1.124659094 : $2 * 1.238402622
    dend[ 83 ].g_pas( 0.199313407 : 0.844471501 ) = $2 * 1.238402622 : $2 * 1.153843398
    dend[ 83 ].g_pas( 0.844471501 : 1 ) = $2 * 1.153843398 : $2 * 1.129750365
    dend[ 84 ].g_pas( 0 : 0.619397798 ) = $2 * 1.133347612 : $2 * 1.232475569
    dend[ 84 ].g_pas( 0.619397798 : 1 ) = $2 * 1.232475569 : $2 * 1.261117902
    dend[ 85 ].g_pas( 0 : 1 ) = $2 * 1.247065144 : $2 * 1.327982982
    dend[ 86 ].g_pas( 0 : 1 ) = $2 * 1.167666459 : $2 * 1.27680598
    dend[ 87 ].g_pas( 0 : 0.173854475 ) = $2 * 1.134157693 : $2 * 1.17661051
    dend[ 87 ].g_pas( 0.173854475 : 0.58277068 ) = $2 * 1.17661051 : $2 * 1.276621273
    dend[ 87 ].g_pas( 0.58277068 : 1 ) = $2 * 1.276621273 : $2 * 1.367635579
    dend[ 88 ].g_pas( 0 : 0.46190524 ) = $2 * 1.191557484 : $2 * 1.193641055
    dend[ 88 ].g_pas( 0.46190524 : 1 ) = $2 * 1.193641055 : $2 * 1.352741989
    dend[ 89 ].g_pas( 0 : 1 ) = $2 * 1.371381864 : $2 * 1.300002378
    dend[ 90 ].g_pas( 0 : 0.232380832 ) = $2 * 1.225834175 : $2 * 1.043366084
    dend[ 90 ].g_pas( 0.232380832 : 0.538576324 ) = $2 * 1.043366084 : $2 * 1.348129348
    dend[ 90 ].g_pas( 0.538576324 : 1 ) = $2 * 1.348129348 : $2 * 1.627082477
    dend[ 91 ].g_pas( 0 : 1 ) = $2 * 1.275963042 : $2 * 1.288889194
    dend[ 92 ].g_pas( 0 : 0.189844918 ) = $2 * 1.348811427 : $2 * 1.117120524
    dend[ 92 ].g_pas( 0.189844918 : 0.424173086 ) = $2 * 1.117120524 : $2 * 1.208085387
    dend[ 92 ].g_pas( 0.424173086 : 0.658501253 ) = $2 * 1.208085387 : $2 * 1.473478761
    dend[ 92 ].g_pas( 0.658501253 : 1 ) = $2 * 1.473478761 : $2 * 1.627082477
    dend[ 93 ].g_pas( 0 : 1 ) = $2 * 1.437933633 : $2 * 1.627082477
    dend[ 94 ].g_pas( 0 : 1 ) = $2 * 1.39770152 : $2 * 1.627082477
    dend[ 95 ].g_pas( 0 : 1 ) = $2 * 1.401210069 : $2 * 1.627082477
    dend[ 96 ].g_pas( 0 : 1 ) = $2 * 1.313737965 : $2 * 1.345821587
    dend[ 97 ].g_pas( 0 : 1 ) = $2 * 1.359361708 : $2 * 1.37796941
    dend[ 98 ].g_pas( 0 : 1 ) = $2 * 1.412863283 : $2 * 1.627082477
    dend[ 99 ].g_pas( 0 : 1 ) = $2 * 1.353413944 : $2 * 1.433284802
    dend[ 100 ].g_pas( 0 : 1 ) = $2 * 1.384427475 : $2 * 1.627082477
    dend[ 101 ].g_pas( 0 : 1 ) = $2 * 1.429850988 : $2 * 1.627082477
    dend[ 102 ].g_pas( 0 : 1 ) = $2 * 1.440269797 : $2 * 1.627082477
    dend[ 103 ].g_pas( 0 : 1 ) = $2 * 1.484978322 : $2 * 1.627082477
    dend[ 104 ].g_pas( 0 : 1 ) = $2 * 1.446786343 : $2 * 1.627082477
    dend[ 105 ].g_pas( 0 : 1 ) = $2 * 1.497850271 : $2 * 1.627082477
    dend[ 106 ].g_pas( 0 : 1 ) = $2 * 1.521864495 : $2 * 1.627082477
    dend[ 46 ].cm( 0 : 1 ) = $1 * 1.802503313 : $1 * 1.802077091
    dend[ 47 ].cm( 0 : 1 ) = $1 * 1.42016157 : $1 * 1.767793792
    dend[ 48 ].cm( 0 : 1 ) = $1 * 1.025161124 : $1 * 1.332142486
    dend[ 49 ].cm( 0 : 1 ) = $1 * 1.684821992 : $1 * 1.683999009
    dend[ 50 ].cm( 0 : 1 ) = $1 * 1.478429305 : $1 * 1.261289821
    dend[ 51 ].cm( 0 : 1 ) = $1 * 1.530871174 : $1 * 1.627082477
    dend[ 52 ].cm( 0 : 1 ) = $1 * 1.356372912 : $1 * 1.379082306
    dend[ 53 ].cm( 0 : 1 ) = $1 * 1.129673296 : $1 * 1.051715719
    dend[ 54 ].cm( 0 : 1 ) = $1 * 1.190235727 : $1 * 1.264847537
    dend[ 55 ].cm( 0 : 1 ) = $1 * 1.623047722 : $1 * 1.627082477
    dend[ 56 ].cm( 0 : 0.437263949 ) = $1 * 1.261311195 : $1 * 1.203671566
    dend[ 56 ].cm( 0.437263949 : 1 ) = $1 * 1.203671566 : $1 * 1.262550552
    dend[ 57 ].cm( 0 : 1 ) = $1 * 1.459727351 : $1 * 1.627082477
    dend[ 58 ].cm( 0 : 1 ) = $1 * 1.472258962 : $1 * 1.627082477
    dend[ 59 ].cm( 0 : 0.564468341 ) = $1 * 1.180986976 : $1 * 1.213156535
    dend[ 59 ].cm( 0.564468341 : 1 ) = $1 * 1.213156535 : $1 * 1.553584119
    dend[ 60 ].cm( 0 : 1 ) = $1 * 1.245089531 : $1 * 1.627082477
    dend[ 61 ].cm( 0 : 1 ) = $1 * 1.409876462 : $1 * 1.458292621
    dend[ 62 ].cm( 0 : 1 ) = $1 * 1.261105689 : $1 * 1.261088668
    dend[ 63 ].cm( 0 : 1 ) = $1 * 1.349995406 : $1 * 1.627082477
    dend[ 64 ].cm( 0 : 0.641927146 ) = $1 * 1.288438165 : $1 * 1.131079213
    dend[ 64 ].cm( 0.641927146 : 1 ) = $1 * 1.131079213 : $1 * 1.291166177
    dend[ 65 ].cm( 0 : 0.783763133 ) = $1 * 1.501840969 : $1 * 1.213685008
    dend[ 65 ].cm( 0.783763133 : 1 ) = $1 * 1.213685008 : $1 * 1.20007997
    dend[ 66 ].cm( 0 : 1 ) = $1 * 1.289058694 : $1 * 1.294242961
    dend[ 67 ].cm( 0 : 1 ) = $1 * 1.561250815 : $1 * 1.627082477
    dend[ 68 ].cm( 0 : 0.472893079 ) = $1 * 1.498251525 : $1 * 1.667097885
    dend[ 68 ].cm( 0.472893079 : 1 ) = $1 * 1.667097885 : $1 * 1.627082477
    dend[ 69 ].cm( 0 : 1 ) = $1 * 1.329801238 : $1 * 1.369738233
    dend[ 70 ].cm( 0 : 1 ) = $1 * 1.280149527 : $1 * 1.282328173
    dend[ 71 ].cm( 0 : 0.04331848 ) = $1 * 1.07873369 : $1 * 1.09126274
    dend[ 71 ].cm( 0.04331848 : 0.088664607 ) = $1 * 1.09126274 : $1 * 1.662595064
    dend[ 71 ].cm( 0.088664607 : 0.285821681 ) = $1 * 1.662595064 : $1 * 1.194603888
    dend[ 71 ].cm( 0.285821681 : 1 ) = $1 * 1.194603888 : $1 * 1.627082477
    dend[ 72 ].cm( 0 : 0.214644181 ) = $1 * 1.374433734 : $1 * 1.096019138
    dend[ 72 ].cm( 0.214644181 : 1 ) = $1 * 1.096019138 : $1 * 1.627082477
    dend[ 73 ].cm( 0 : 0.308418671 ) = $1 * 1.291244175 : $1 * 1.172942503
    dend[ 73 ].cm( 0.308418671 : 0.499483808 ) = $1 * 1.172942503 : $1 * 1.257840564
    dend[ 73 ].cm( 0.499483808 : 0.881614082 ) = $1 * 1.257840564 : $1 * 1.141379577
    dend[ 73 ].cm( 0.881614082 : 1 ) = $1 * 1.141379577 : $1 * 1.347680534
    dend[ 74 ].cm( 0 : 0.4039221 ) = $1 * 1.323028676 : $1 * 1.26799112
    dend[ 74 ].cm( 0.4039221 : 0.654151541 ) = $1 * 1.26799112 : $1 * 1.263721642
    dend[ 74 ].cm( 0.654151541 : 1 ) = $1 * 1.263721642 : $1 * 1.137599221
    dend[ 75 ].cm( 0 : 1 ) = $1 * 1.389160928 : $1 * 1.627082477
    dend[ 76 ].cm( 0 : 1 ) = $1 * 1.363336521 : $1 * 1.627082477
    dend[ 77 ].cm( 0 : 1 ) = $1 * 1.52524235 : $1 * 1.627082477
    dend[ 78 ].cm( 0 : 1 ) = $1 * 1.408210054 : $1 * 1.627082477
    dend[ 79 ].cm( 0 : 1 ) = $1 * 1.388047626 : $1 * 1.627082477
    dend[ 80 ].cm( 0 : 1 ) = $1 * 1.334060242 : $1 * 1.627082477
    dend[ 81 ].cm( 0 : 1 ) = $1 * 1.256307201 : $1 * 1.221961548
    dend[ 82 ].cm( 0 : 0.545593197 ) = $1 * 1.221579363 : $1 * 1.175228521
    dend[ 82 ].cm( 0.545593197 : 1 ) = $1 * 1.175228521 : $1 * 1.184255911
    dend[ 83 ].cm( 0 : 0.199313407 ) = $1 * 1.124659094 : $1 * 1.238402622
    dend[ 83 ].cm( 0.199313407 : 0.844471501 ) = $1 * 1.238402622 : $1 * 1.153843398
    dend[ 83 ].cm( 0.844471501 : 1 ) = $1 * 1.153843398 : $1 * 1.129750365
    dend[ 84 ].cm( 0 : 0.619397798 ) = $1 * 1.133347612 : $1 * 1.232475569
    dend[ 84 ].cm( 0.619397798 : 1 ) = $1 * 1.232475569 : $1 * 1.261117902
    dend[ 85 ].cm( 0 : 1 ) = $1 * 1.247065144 : $1 * 1.327982982
    dend[ 86 ].cm( 0 : 1 ) = $1 * 1.167666459 : $1 * 1.27680598
    dend[ 87 ].cm( 0 : 0.173854475 ) = $1 * 1.134157693 : $1 * 1.17661051
    dend[ 87 ].cm( 0.173854475 : 0.58277068 ) = $1 * 1.17661051 : $1 * 1.276621273
    dend[ 87 ].cm( 0.58277068 : 1 ) = $1 * 1.276621273 : $1 * 1.367635579
    dend[ 88 ].cm( 0 : 0.46190524 ) = $1 * 1.191557484 : $1 * 1.193641055
    dend[ 88 ].cm( 0.46190524 : 1 ) = $1 * 1.193641055 : $1 * 1.352741989
    dend[ 89 ].cm( 0 : 1 ) = $1 * 1.371381864 : $1 * 1.300002378
    dend[ 90 ].cm( 0 : 0.232380832 ) = $1 * 1.225834175 : $1 * 1.043366084
    dend[ 90 ].cm( 0.232380832 : 0.538576324 ) = $1 * 1.043366084 : $1 * 1.348129348
    dend[ 90 ].cm( 0.538576324 : 1 ) = $1 * 1.348129348 : $1 * 1.627082477
    dend[ 91 ].cm( 0 : 1 ) = $1 * 1.275963042 : $1 * 1.288889194
    dend[ 92 ].cm( 0 : 0.189844918 ) = $1 * 1.348811427 : $1 * 1.117120524
    dend[ 92 ].cm( 0.189844918 : 0.424173086 ) = $1 * 1.117120524 : $1 * 1.208085387
    dend[ 92 ].cm( 0.424173086 : 0.658501253 ) = $1 * 1.208085387 : $1 * 1.473478761
    dend[ 92 ].cm( 0.658501253 : 1 ) = $1 * 1.473478761 : $1 * 1.627082477
    dend[ 93 ].cm( 0 : 1 ) = $1 * 1.437933633 : $1 * 1.627082477
    dend[ 94 ].cm( 0 : 1 ) = $1 * 1.39770152 : $1 * 1.627082477
    dend[ 95 ].cm( 0 : 1 ) = $1 * 1.401210069 : $1 * 1.627082477
    dend[ 96 ].cm( 0 : 1 ) = $1 * 1.313737965 : $1 * 1.345821587
    dend[ 97 ].cm( 0 : 1 ) = $1 * 1.359361708 : $1 * 1.37796941
    dend[ 98 ].cm( 0 : 1 ) = $1 * 1.412863283 : $1 * 1.627082477
    dend[ 99 ].cm( 0 : 1 ) = $1 * 1.353413944 : $1 * 1.433284802
    dend[ 100 ].cm( 0 : 1 ) = $1 * 1.384427475 : $1 * 1.627082477
    dend[ 101 ].cm( 0 : 1 ) = $1 * 1.429850988 : $1 * 1.627082477
    dend[ 102 ].cm( 0 : 1 ) = $1 * 1.440269797 : $1 * 1.627082477
    dend[ 103 ].cm( 0 : 1 ) = $1 * 1.484978322 : $1 * 1.627082477
    dend[ 104 ].cm( 0 : 1 ) = $1 * 1.446786343 : $1 * 1.627082477
    dend[ 105 ].cm( 0 : 1 ) = $1 * 1.497850271 : $1 * 1.627082477
    dend[ 106 ].cm( 0 : 1 ) = $1 * 1.521864495 : $1 * 1.627082477
    spNeck[ 0 ].g_pas = $2
    spNeck[ 1 ].g_pas = $2
    spNeck[ 2 ].g_pas = $2
    spNeck[ 0 ].cm = $1
    spNeck[ 1 ].cm = $1
    spNeck[ 2 ].cm = $1
    spHead[ 0 ].g_pas = $2 * 1.8572
    spHead[ 1 ].g_pas = $2 * 1.6045
    spHead[ 2 ].g_pas = $2 * 0.6742
    spHead[ 0 ].cm = $1 * 1.8572
    spHead[ 1 ].cm = $1 * 1.6045
    spHead[ 2 ].cm = $1 * 0.6742
}

access soma

celldef()
setall( Ra_default, Ra_spine_default, cm_default, g_pas_default, e_pas_default )

// temperature
celsius = 37

// objref stim
// soma stim = new KineticSynapse( 0.7 )
// spHead[ 0 ] stim = new KineticSynapse( 1.0 )
// stim.onset = 10
// stim.duration = 2.6
// stim.tau1 = 0.45
// stim.tau2 = 13.1
// stim.e = -52.5
// gmax = 0.1101
// stim.gmax = gmax * 0.001

Loading data, please wait...