Changeset 25484 in project


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

Location:
release/4/neurolucida/trunk
Files:
2 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))))
  • release/4/neurolucida/trunk/neurolucida.setup

    r24852 r25484  
    99
    1010  ; Assoc list with properties for the program:
    11   '((version 1.2))
     11  '((version 1.3))
    1212  )
    1313
Note: See TracChangeset for help on using the changeset viewer.