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

cache advanced moves.
author Robert McIntyre <rlm@mit.edu>
date Sun, 02 Sep 2012 09:33:40 -0500
parents 0e30fd920e6a
children c8cda378e1a0
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/adv_choreo.clj	Sun Sep 02 09:28:08 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/adv_choreo.clj	Sun Sep 02 09:33:40 2012 -0500
     1.3 @@ -398,12 +398,18 @@
     1.4         (fn [a b  d] (println d) [a b d]))
     1.5        move-images screenshots targets))))
     1.6  
     1.7 +(defn write-advanced-script!
     1.8 +  [] (write-script! (launch-bootstrap-program) "advanced"))
     1.9 +                    
    1.10 +(defn advanced-script []
    1.11 +  (read-script "advanced"))
    1.12 +
    1.13  (defn advanced-step-1! []
    1.14    (render-files!
    1.15     advanced-render-dir
    1.16     adv-write-move-image!
    1.17     false
    1.18 -   (root) (advanced-steps)))
    1.19 +   (root) (first (advanced-script))))
    1.20  
    1.21  (defn advanced-step-2! []
    1.22    (adv-generate-composite-frames!