Mercurial > vba-clojure
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) |