Changeset 27221 in project


Ignore:
Timestamp:
08/08/12 13:35:55 (9 years ago)
Author:
Ivan Raikov
Message:

neurolucida: corrections to properly nest branched structures in ng format

File:
1 edited

Legend:

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

    r27216 r27221  
    318318         )
    319319
    320     (print "inverse-node-depths = " inverse-node-depths)
    321     (print "node-depths = " node-depths)
    322320
    323321    (let recur ((node (car roots)) (ax '()))
     
    365363                              ax)))
    366364
    367                     (if next-node (recur next-node ax1) ax1)
     365                    (if next-node (recur next-node ax1) (reverse ax1))
    368366
    369367                    )
     
    380378                            (branch-order-Soma . ,(s32vector-ref node-depths node))
    381379                            (branch-order-Terminal . ,(s32vector-ref inverse-node-depths node))
    382                             (children . ,(fold recur '() (map cadr (out-edges node))))
     380                            (children . ,(map (lambda (x) (recur x '())) (map cadr (out-edges node))))
    383381                            )
    384382                   ax)
Note: See TracChangeset for help on using the changeset viewer.