Mercurial > vba-clojure

comparison clojure/com/aurellem/run/final_cut.clj @ 549:6ce1d5fd4911

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update choreo files.
author Robert McIntyre <rlm@mit.edu>
date Thu, 23 Aug 2012 19:58:14 -0400
parents b3b7a06686c4
children 4503899241e6
comparison
equal deleted inserted replaced
548:15cc0c944ccd 549:6ce1d5fd4911
153 (partial apply composite-frames-command) 153 (partial apply composite-frames-command)
154 (fn [a b c d] (println d) [a b c d])) 154 (fn [a b c d] (println d) [a b c d]))
155 move-images screenshots ram-maps targets)))) 155 move-images screenshots ram-maps targets))))
156 156
157 157
158 ;; (defn final-cut! [^File render-dir]
159 ;; (let [movie (File. render-dir "final.ogg")
160 ;; final-audio (File. render-dir "final.wav")
161 ;; final (File. render-dir "final")]
162 ;; (.delete movie)
163 ;; (.delete final-audio)
164 ;; (clojure.java.shell/sh
165 ;; "sox" (.getCanonicalPath (File. render-dir "audio.wav"))
166 ;; (.getCanonicalPath final-audio))
167 ;; (clojure.java.shell/sh
168 ;; "ffmpeg" "-r" "60" ;; maybe 59.7 ???!
169 ;; "-i" (str (.getCanonicalPath final) "/" "%07d.bmp")
170 ;; "-i" (.getCanonicalPath final-audio)
171 ;; "-b:a" "128k"
172 ;; "-b:v" "9000k"
173 ;; "-c:a" "libvorbis"
174 ;; "-f" "webm"
175 ;; "-g" "200"
176 ;; (.getCanonicalPath movie)) nil))
177
158 (defn final-cut! [^File render-dir] 178 (defn final-cut! [^File render-dir]
159 (let [movie (File. render-dir "final.ogg") 179 (let [movie (File. render-dir "final.ogg")
160 final-audio (File. render-dir "final.wav") 180 final-audio (File. render-dir "final.wav")
161 final (File. render-dir "final")] 181 final (File. render-dir "final")]
162 (.delete movie) 182 (.delete movie)
163 (.delete final-audio) 183 (.delete final-audio)
164 (clojure.java.shell/sh 184 (clojure.java.shell/sh
165 "sox" (.getCanonicalPath (File. render-dir "audio.wav")) 185 "sox" (.getCanonicalPath (File. render-dir "audio.wav"))
166 (.getCanonicalPath final-audio)) 186 (.getCanonicalPath final-audio))
167 (clojure.java.shell/sh 187 (clojure.java.shell/sh
168 "ffmpeg" "-r" "60" ;; maybe 59.7 ???! 188 "ffmpeg"
189 "-framerate" "60"
169 "-i" (str (.getCanonicalPath final) "/" "%07d.bmp") 190 "-i" (str (.getCanonicalPath final) "/" "%07d.bmp")
170 "-i" (.getCanonicalPath final-audio) 191 "-i" (.getCanonicalPath final-audio)
171 "-b:a" "128k" 192 "-b:a" "128k"
172 "-b:v" "9000k" 193 "-b:v" "9000k"
173 "-c:a" "libvorbis" 194 "-c:a" "libvorbis"
174 "-f" "webm" 195 "-c:v" "libtheora"
175 "-g" "200" 196 "-r" "60"
176 (.getCanonicalPath movie)) nil)) 197 (.getCanonicalPath movie)) nil))
177 198
178 199
179 (comment 200 (comment
180 201
181 ;; step 1 202 ;; step 1
182 203