Changeset 30670 in project


Ignore:
Timestamp:
04/09/14 08:03:50 (7 years ago)
Author:
Ivan Raikov
Message:

picnic: bug fixes in write-sections and added some plotting scripts

Location:
release/4/picnic/trunk
Files:
7 added
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/picnic/trunk/picnic-utils.scm

    r30669 r30670  
    3737        (import
    3838                (only srfi-1
    39                       fold filter-map filter every zip list-tabulate delete-duplicates partition
     39                      fold fold-right filter-map filter every zip list-tabulate delete-duplicates partition
    4040                      first second third take)
    4141                (only srfi-4
     
    147147          (call-with-output-file (sprintf "~A.~A.section.dat" forest-name section-name)
    148148            (lambda (out)
    149               (for-each
    150                  (lambda (section)
    151                    (for-each
    152                     (lambda (c)
    153                       (for-each
    154                        (lambda (gd)
    155                          (let ((p (genpoint-coords gd)))
    156                            (fprintf out "~A ~A ~A "
    157                                     (coord 0 p)
    158                                     (coord 1 p)
    159                                     (coord 2 p))))
    160                        (cdr c))
    161                       (fprintf out "~%"))
    162                     (cdr section)))
    163                  sections))))
     149              (fold-right
     150               (lambda (section i)
     151                 (fprintf out "~A " i)
     152                 (for-each
     153                  (lambda (neurites)
     154                    (for-each
     155                     (lambda (gd)
     156                       (let ((p (genpoint-coords gd)))
     157                         (fprintf out "~A ~A ~A "
     158                                  (coord 0 p)
     159                                  (coord 1 p)
     160                                  (coord 2 p))))
     161                     (cdr neurites)))
     162                    (cdr section))
     163                  (fprintf out "~%")
     164                  (+ i 1))
     165               1
     166               sections))))
    164167
    165168
Note: See TracChangeset for help on using the changeset viewer.