Changeset 25484 in project
- Timestamp:
- 11/08/11 08:38:42 (9 years ago)
- Location:
- release/4/neurolucida/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/neurolucida/trunk/neurolucida.scm
r24852 r25484 223 223 (parents (cons parent-index indices))) 224 224 225 (fo r-each (lambda (pt n par)225 (fold (lambda (pt i par n) 226 226 (let ((data (cdr pt))) 227 (let ((T 3) ;; dendrite227 (let ((T (if (fx> n 0) 3 (if (null? subtrees) 6 5))) ;; dendrite, or end point/bifurcation point 228 228 (x (get 'x data)) 229 229 (y (get 'y data)) … … 233 233 ) 234 234 (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) 236 237 ))) 237 points indices parents) 238 (fx- npoints 1) 239 points indices parents) 238 240 239 241 (let ((parent-index1 (+ npoints (offset)))) -
release/4/neurolucida/trunk/neurolucida.setup
r24852 r25484 9 9 10 10 ; Assoc list with properties for the program: 11 '((version 1. 2))11 '((version 1.3)) 12 12 ) 13 13
Note: See TracChangeset
for help on using the changeset viewer.