Changeset 25484 in project

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:

• neurolucida.scm (modified) (2 diffs)
• neurolucida.setup (modified) (1 diff)

release/4/neurolucida/trunk/neurolucida.scm

@@ -223 +223 @@
                   (parents (cons parent-index indices)))
              
-             (for-each (lambda (pt n par)
+             (fold (lambda (pt i par n)
                          (let ((data (cdr pt)))
-                           (let ((T    3) ;; dendrite
+                           (let ((T    (if (fx> n 0) 3 (if (null? subtrees) 6 5))) ;; dendrite, or end point/bifurcation point
                                  (x  (get 'x data))
                                  (y  (get 'y data))
@@ -233 +233 @@
                                  )
                              (printf "~A ~A ~A ~A ~A ~A ~A~%" 
-                                     n T x y z R P)
+                                     i T x y z R P)
+                             (fx- n 1)
                              )))
-                       points indices parents)
+                   (fx- npoints 1)
+                   points indices parents)
              
              (let ((parent-index1 (+ npoints (offset))))

release/4/neurolucida/trunk/neurolucida.setup

@@ -9 +9 @@
 
   ; Assoc list with properties for the program:
-  '((version 1.2))
+  '((version 1.3))
   )