Mercurial > vba-clojure

comparison clojure/com/aurellem/run/final_cut.clj @ 543:6c379ee3d46e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
created video, but there are problems with it synching.
author Robert McIntyre <rlm@mit.edu>
date Mon, 25 Jun 2012 19:46:48 -0500
parents 614eddc5b38c
children 86d23b6d433f
comparison
equal deleted inserted replaced
542:614eddc5b38c 543:6c379ee3d46e
97 (defn final-cut! [^File render-dir] 97 (defn final-cut! [^File render-dir]
98 (let [movie (File. render-dir "final.ogg") 98 (let [movie (File. render-dir "final.ogg")
99 final (File. render-dir "final")] 99 final (File. render-dir "final")]
100 (.delete movie) 100 (.delete movie)
101 (clojure.java.shell/sh 101 (clojure.java.shell/sh
102 "ffmpeg" "-r" "60" 102 "ffmpeg" "-r" "60" ;; maybe 59.7 ???!
103 "-i" (str (.getCanonicalPath final) "/" "%07d.bmp") 103 "-i" (str (.getCanonicalPath final) "/" "%07d.bmp")
104 "-i" (.getCanonicalPath (File. render-dir "audio.wav")) 104 "-i" (.getCanonicalPath (File. render-dir "audio.wav"))
105 "-b:a" "128k" 105 "-b:a" "128k"
106 "-b:v" "9000k" 106 "-b:v" "9000k"
107 "-c:a" "libvorbis" 107 "-c:a" "libvorbis"