comparison clojure/com/aurellem/run/adv_choreo.clj @ 600:31128a10ee28

use png to save memory.
author Robert McIntyre <rlm@mit.edu>
date Sun, 02 Sep 2012 09:20:09 -0500
parents 4503899241e6
children 0e30fd920e6a
comparison
equal deleted inserted replaced
599:4503899241e6 600:31128a10ee28
386 (let [final-frames (File. rendered-dir "final") 386 (let [final-frames (File. rendered-dir "final")
387 _ (.mkdir final-frames) 387 _ (.mkdir final-frames)
388 move-images (file-names (File. rendered-dir "moves")) 388 move-images (file-names (File. rendered-dir "moves"))
389 screenshots (file-names (File. rendered-dir "frames")) 389 screenshots (file-names (File. rendered-dir "frames"))
390 targets (map #(.getCanonicalPath 390 targets (map #(.getCanonicalPath
391 (File. final-frames (format "%07d.bmp" %))) 391 (File. final-frames (format "%07d.png" %)))
392 (range (count screenshots)))] 392 (range (count screenshots)))]
393 (dorun 393 (dorun
394 (map 394 (map
395 (comp 395 (comp
396 (partial apply clojure.java.shell/sh) 396 (partial apply clojure.java.shell/sh)