comparison org/movement.org @ 460:763d13f77e03

merge in laptop changes.
author Robert McIntyre <rlm@mit.edu>
date Thu, 27 Mar 2014 17:57:01 -0400
parents 5205535237fb
children
comparison
equal deleted inserted replaced
459:a86555b02916 460:763d13f77e03
281 (defn combine-images [] 281 (defn combine-images []
282 (let [main-view (pics "main-view") 282 (let [main-view (pics "main-view")
283 muscles (pics "muscles/0") 283 muscles (pics "muscles/0")
284 targets (map 284 targets (map
285 #(File. (str base "out/" (format "%07d.png" %))) 285 #(File. (str base "out/" (format "%07d.png" %)))
286 (range 0 (count main-view)))] 286 (range (count main-view)))]
287 (dorun 287 (dorun
288 (pmap 288 (pmap
289 (comp 289 (comp
290 (fn [[ main-view muscles target]] 290 (fn [[ main-view muscles target]]
291 (println target) 291 (println target)