Mercurial > vba-clojure

comparison clojure/com/aurellem/run/adv_choreo.clj @ 603:b3e5006e23f0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
cache advanced moves.
author Robert McIntyre <rlm@mit.edu>
date Sun, 02 Sep 2012 09:33:40 -0500
parents 0e30fd920e6a
children c8cda378e1a0
comparison
equal deleted inserted replaced
602:0e30fd920e6a 603:b3e5006e23f0
396 flatten 396 flatten
397 (partial apply adv-composite-frames-command) 397 (partial apply adv-composite-frames-command)
398 (fn [a b d] (println d) [a b d])) 398 (fn [a b d] (println d) [a b d]))
399 move-images screenshots targets)))) 399 move-images screenshots targets))))
400 400
401 (defn write-advanced-script!
402 [] (write-script! (launch-bootstrap-program) "advanced"))
403
404 (defn advanced-script []
405 (read-script "advanced"))
406
401 (defn advanced-step-1! [] 407 (defn advanced-step-1! []
402 (render-files! 408 (render-files!
403 advanced-render-dir 409 advanced-render-dir
404 adv-write-move-image! 410 adv-write-move-image!
405 false 411 false
406 (root) (advanced-steps))) 412 (root) (first (advanced-script))))
407 413
408 (defn advanced-step-2! [] 414 (defn advanced-step-2! []
409 (adv-generate-composite-frames! 415 (adv-generate-composite-frames!
410 advanced-render-dir)) 416 advanced-render-dir))
411 417