Mercurial > vba-clojure

comparison clojure/com/aurellem/run/final_cut.clj @ 533:60da469773e5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
minor fix to create render dir if it does not already exist.
author Robert McIntyre <rlm@mit.edu>
date Mon, 25 Jun 2012 11:58:36 -0500
parents a3bdff5554ad
children 3f2072b8e457
comparison
equal deleted inserted replaced
532:a3bdff5554ad 533:60da469773e5
18 (defn render-files! 18 (defn render-files!
19 ([^File target-dir initial-state moves] 19 ([^File target-dir initial-state moves]
20 (let [ram-map-dir (File. target-dir "ram-map") 20 (let [ram-map-dir (File. target-dir "ram-map")
21 frames-dir (File. target-dir "frames") 21 frames-dir (File. target-dir "frames")
22 audio-file (File. target-dir "audio.wav") 22 audio-file (File. target-dir "audio.wav")
23 _ (.mkdirs ram-map-dir) 23 _ (.mkdir target-dir)
24 _ (.mkdirs frames-dir) 24 _ (.mkdir ram-map-dir)
25 _ (.mkdir frames-dir)
25 wave-writer (WaveWriter. audio-file) 26 wave-writer (WaveWriter. audio-file)
26 moves (vec moves)] 27 moves (vec moves)]
27 (set-state! initial-state) 28 (set-state! initial-state)
28 (dorun 29 (dorun
29 (map 30 (map