Mercurial > vba-clojure

changeset 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
files clojure/com/aurellem/run/adv_choreo.clj clojure/com/aurellem/run/bootstrap_1.clj
diffstat 2 files changed, 9 insertions(+), 3 deletions(-) [+]
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!

     2.1 --- a/clojure/com/aurellem/run/bootstrap_1.clj	Sun Sep 02 09:28:08 2012 -0500
     2.2 +++ b/clojure/com/aurellem/run/bootstrap_1.clj	Sun Sep 02 09:33:40 2012 -0500
     2.3 @@ -812,8 +812,8 @@
     2.4  (defn launch-main-bootstrap-program
     2.5    ([] (launch-main-bootstrap-program
     2.6         ;;(control-checkpoint)
     2.7 -       ;;(launch-bootstrap-program)
     2.8 -       (item-writer-test-script)
     2.9 +       (launch-bootstrap-program)
    2.10 +       ;;(item-writer-test-script)
    2.11         ))
    2.12    ([script]
    2.13       (->> script