Ignore:
Timestamp:
11/08/11 08:38:42 (9 years ago)
Author:
Ivan Raikov
Message:

neurolucida: fix in swc output to print correct types for forks and end points

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/neurolucida/trunk/neurolucida.scm

    r24852 r25484  
    223223                  (parents (cons parent-index indices)))
    224224             
    225              (for-each (lambda (pt n par)
     225             (fold (lambda (pt i par n)
    226226                         (let ((data (cdr pt)))
    227                            (let ((T    3) ;; dendrite
     227                           (let ((T    (if (fx> n 0) 3 (if (null? subtrees) 6 5))) ;; dendrite, or end point/bifurcation point
    228228                                 (x  (get 'x data))
    229229                                 (y  (get 'y data))
     
    233233                                 )
    234234                             (printf "~A ~A ~A ~A ~A ~A ~A~%"
    235                                      n T x y z R P)
     235                                     i T x y z R P)
     236                             (fx- n 1)
    236237                             )))
    237                        points indices parents)
     238                   (fx- npoints 1)
     239                   points indices parents)
    238240             
    239241             (let ((parent-index1 (+ npoints (offset))))
Note: See TracChangeset for help on using the changeset viewer.