/*----------------------------------------------------------------
%W%  %G%
ctty238d.asc  translated Tue Dec 17 10:28:22 1996 by ntscable 2.0
source file syntax: Eutectic
output file syntax: CABLE
soma: diameter = 12.0113 um  length = 26.1734 um  area = 987.649 um2
      10 three-D points; 13 outline points numbered 1-13
      outline diameter = 19.4011 um
3 primary neurites
34 branches totaling 1341.7 um in length, 2146.68 um2 in area
322 tree points translated to 76 segments (1 requested)
Neurites divided into segments of equal dx between adjacent digitized
branch points.
Segment length constrained to be < 10 um.
No. points    335
No. trees       4
Text  T11238DO, HRP and DAB, 2/9/89                                                                                           

----------------------------------------------------------------*/
					/* create sections */
create    soma,\
          dend1[1],\
          dend2[26],\
          dend3[1]



/*----------------------------------------------------------------*/
proc geometry() { local i, j

						/* soma geometry */
    soma {
        nseg = 1
        pt3dclear()
        for j = 1, fscan() {
            pt3dadd(fscan(),fscan(),fscan(),fscan())
        }
    }

					/* connect primary neurites */
    soma connect dend1[0] (0), 0.5
    soma connect dend2[0] (0), 0.5
    soma connect dend3[0] (0), 0.5


					/* neurite geometry*/
    for i = 0,0 {
        dend1[i] {
            nseg = fscan()
            pt3dclear()
            for j = 1, fscan() {
                pt3dadd(fscan(),fscan(),fscan(),fscan())
            }
        }
    }

    for i = 0,25 {
        dend2[i] {
            nseg = fscan()
            pt3dclear()
            for j = 1, fscan() {
                pt3dadd(fscan(),fscan(),fscan(),fscan())
            }
        }
    }

    for i = 0,0 {
        dend3[i] {
            nseg = fscan()
            pt3dclear()
            for j = 1, fscan() {
                pt3dadd(fscan(),fscan(),fscan(),fscan())
            }
        }
    }



					/* branching topology*/
    for i = 1,0 {
        dend1[fscan()] connect dend1[i] (0), fscan()
    }

    for i = 1,25 {
        dend2[fscan()] connect dend2[i] (0), fscan()
    }

    for i = 1,0 {
        dend3[fscan()] connect dend3[i] (0), fscan()
    }

}

geometry()


SOMA COORDINATES AND DIAMETERS:

    10
     -15       -1        3        0
   -11.5    -1.35    1.525   6.5949
     -10   -1.125    0.875   8.6963
    -8.5 -0.88636  0.61364   10.596
    -4.5    -0.25     0.25    15.89
    -0.5      0.5     -0.5   21.024
     3.5     0.25     -0.7   17.556
     4.5  0.54545 -0.88636   15.956
       7  0.15909  -1.2273   9.6972
       9     -2.5     -1.5        0


NEURITE COORDINATES AND DIAMETERS:

    1 2
   -13.5     -1.5        2        6
     -16     -0.5        2      5.4

    2 3
     8.5        4       -1      4.7
      13        5      1.5      3.1
    16.5       10      6.5        4

    1 3
    16.5       10      6.5        4
    20.5       15      7.5      3.4
    22.5       16      7.5      3.4

    1 3
    22.5       16      7.5      3.4
      27     17.5      7.5        2
      30       19        7      2.5

    1 3
      30       19        7      2.5
    34.5     20.5      7.5      1.7
      37     21.5      7.5      1.7

    3 5
      37     21.5      7.5      1.7
      45     22.5      7.5      1.7
      49     22.5      7.5      1.7
    55.5       25        7      1.7
      60       26        7      1.7

    6 12
      60       26        7      1.7
      63       26        9      0.4
      70     26.5      9.5      0.4
      73     26.5     10.5      0.4
      78     27.5       11      0.4
    83.5     29.5     11.5      0.4
    87.5       32     11.5      0.1
      91       34     10.5      0.1
      97       36     10.5      0.1
   102.5     37.5     10.5      0.1
   109.5       38     10.5      0.1
   113.5       37     10.5      0.1

    2 3
      60       26        7      1.7
    66.5       27      6.5      0.6
      73     27.5        6      0.6

    7 14
      73     27.5        6      0.6
    76.5       26        8      0.5
    79.5     23.5        8      0.5
    82.5     22.5        8      0.5
      88     24.5      8.5      0.2
    93.5       27        8      0.2
    98.5     29.5      7.5      0.2
   103.5     32.5      7.5      0.2
   108.5     34.5      7.5      0.2
   114.5     34.5      7.5      0.2
     118     34.5      7.5      0.2
     124     33.5      7.5      0.2
     131     34.5      7.5      0.2
     131     34.5      7.5      0.2

    8 16
      73     27.5        6      0.6
    77.5     28.5        7      0.3
    80.5     28.5        6      0.3
    83.5       27        6      0.3
      85       27        6      0.3
      88     24.5        6      0.3
    96.5     23.5      6.5      0.3
   101.5     23.5      6.5      0.3
     107     22.5      6.5      0.3
     113       23      7.5      0.3
   115.5       23        7      0.3
     121       23      6.5      0.3
     129       24      6.5      0.1
   135.5     25.5      6.5      0.1
     141     28.5      6.5      0.1
   145.5       30      6.5      0.1

    3 6
      37     21.5      7.5      1.7
      38     24.5        8      0.6
      41       28      7.5      0.6
    45.5       32      7.5      0.6
    51.5       36        7      0.6
    55.5     38.5        6      0.6

    3 8
    55.5     38.5        6      0.6
    60.5       40        6      0.4
      64     41.5      6.5      0.4
      68       43        7      0.4
    70.5     43.5      5.5      0.4
    76.5     47.5        6      0.4
      80       50        6      0.1
      80       50        6      0.1

    2 5
      80       50        6      0.1
      82     53.5      6.5      0.1
      82     57.5        8      0.1
      82       60      7.5      0.1
      82       63      7.5      0.1

    2 4
      80       50        6      0.1
    81.5       51      7.5      0.1
      85     52.5      7.5      0.1
      90     54.5      7.5      0.1

    3 8
    55.5     38.5        6      0.6
      56     40.5      5.5      0.5
    55.5     43.5      6.5      0.5
      55     44.5        8      0.5
    56.5     46.5      7.5      0.5
      60       48      7.5      0.5
    62.5       50      7.5      0.3
    65.5     52.5      7.5      0.1

    3 9
      30       19        7      2.5
    30.5     21.5        7      0.8
    29.5     23.5      6.5      0.8
      31     25.5        7      0.8
    29.5     27.5      6.5      0.8
    30.5       30      7.5      0.8
    30.5     34.5      7.5      0.8
    34.5     36.5      7.5      0.8
    34.5     36.5      7.5      0.5

    2 4
    34.5     36.5      7.5      0.5
      36       35      7.5      0.1
      40       35        8      0.1
    43.5       37      8.5      0.1

    2 4
    34.5     36.5      7.5      0.5
      37     38.5        9      0.1
      40       41        9      0.1
      40     44.5        9      0.1

    1 4
    22.5       16      7.5      3.4
      22     18.5        6      0.9
      20     19.5      6.5      0.9
    20.5       21      6.5      0.9

    1 2
    20.5       21      6.5      0.9
    19.5       22      6.5      0.9

    1 4
    19.5       22      6.5      0.9
      20       24      6.5      0.1
      18       27      7.5      0.1
      18       27      7.5      0.1

    2 6
    19.5       22      6.5      0.9
      18     20.5        7      0.1
    15.5     20.5        7      0.1
      13     22.5      7.5      0.1
      11       20      7.5      0.1
      11       20      7.5      0.1

    5 10
    20.5       21      6.5      0.9
    23.5     21.5        6      0.1
    25.5     23.5        5      0.1
    29.5       23      4.5      0.1
    33.5       26      4.5      0.1
    38.5     26.5      3.5      0.1
      44       27        5      0.1
      51     27.5        6      0.1
    58.5     29.5      6.5      0.1
    63.5     30.5        6      0.1

    1 3
    63.5     30.5        6      0.1
    68.5       31      6.5      0.1
    68.5       31      6.5      0.1

    5 8
    63.5     30.5        6      0.1
      66       34      6.5      0.1
    72.5     36.5        6      0.1
      79     37.5        6      0.1
    83.5     38.5      6.5      0.1
    90.5     39.5        8      0.1
    97.5     41.5        8      0.1
     104     43.5        8      0.1

    1 3
    16.5       10      6.5        4
      20      8.5      7.5      1.5
      21      8.5      8.5      1.5

    1 3
      21      8.5      8.5      1.5
    20.5        5        8      1.5
      23        4        8      1.5

    5 11
       4      1.5     -0.5      0.1
       5     -1.5      3.5      0.1
       7     -5.5      4.5      0.1
    10.5     -6.5      4.5      0.1
    10.5     -8.5        6      0.1
    13.5       -8        6      0.1
    13.5    -13.5      6.5      0.1
      10    -17.5      6.5      0.1
     3.5      -21        6      0.1
    -1.5    -22.5      5.5      0.1
    -1.5    -22.5      5.5      0.1


CONNECTIONS:

        0    1
        1    1
        2    1
        3    1
        4    1
        4    1
        6    1
        6    1
        3    1
        9    1
       10    1
       10    1
        9    1
        2    1
       14    1
       14    1
        1    1
       17    1
       18    1
       18    1
       17    1
       21    1
       21    1
        0    1
       24    1



/*----------------------------------------------------------------*/
proc geometry() { 

	/* NULL geometry procedure: keeps the user from
	calling the geometry procedure in isolation. */

    printf("\nYou must re-read the entire geometry\n")
    printf("file to execute geometry().\n\n")
}