Mercurial > vba-clojure

comparison clojure/com/aurellem/run/final_cut.clj @ 601:bc2858781507

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
also write moves to vbm file.
author Robert McIntyre <rlm@mit.edu>
date Sun, 02 Sep 2012 09:24:15 -0500
parents 31128a10ee28
children c8cda378e1a0
comparison
equal deleted inserted replaced
600:31128a10ee28 601:bc2858781507
19 (defn render-files! 19 (defn render-files!
20 ([^File target-dir 20 ([^File target-dir
21 moves-render-fn 21 moves-render-fn
22 render-ram-map? 22 render-ram-map?
23 initial-state 23 initial-state
24 moves 24 moves]
25 25 (write-moves! moves (File. target-dir "rlm-yellow-hack.vbm"))
26 ]
27 (let [ram-map-dir (File. target-dir "ram-map") 26 (let [ram-map-dir (File. target-dir "ram-map")
28 frames-dir (File. target-dir "frames") 27 frames-dir (File. target-dir "frames")
29 moves-dir (File. target-dir "moves") 28 moves-dir (File. target-dir "moves")
30 audio-file (File. target-dir "audio.wav") 29 audio-file (File. target-dir "audio.wav")
31 _ (.mkdir target-dir) 30 _ (.mkdir target-dir)
32 _ (.mkdir ram-map-dir) 31 _ (if render-ram-map? (.mkdir ram-map-dir))
33 _ (.mkdir frames-dir) 32 _ (.mkdir frames-dir)
34 _ (.mkdir moves-dir) 33 _ (.mkdir moves-dir)
35 wave-writer (WaveWriter. audio-file) 34 wave-writer (WaveWriter. audio-file)
36 moves (vec moves) 35 moves (vec moves)
37 desired-fps 60 36 desired-fps 60