1.1 --- a/clojure/com/aurellem/run/adv_choreo.clj	Sun Sep 02 10:34:14 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/adv_choreo.clj	Sun Sep 02 14:28:53 2012 -0500
     1.3 @@ -354,25 +354,25 @@
     1.4          {:l [23 23]
     1.5           :u [33 11]
     1.6           :r [46 23]
     1.7 -         :d [33 26]
     1.8 +         :d [33 36]
     1.9           
    1.10           :start  [65 24]
    1.11           :select [80 24]
    1.12  
    1.13           :b  [100 25]
    1.14           :a  [121 25]}]
    1.15 -    (apply
    1.16 -     clojure.java.shell/sh
    1.17 -     (flatten 
    1.18 -      ["convert"
    1.19 -       (.getCanonicalPath gb-button-bar)
    1.20 -       (map
    1.21 -        (fn [key]
    1.22 -          (let [[x y] (key-positions key)]
    1.23 -            (.getCanonicalPath gb-button-mark)
    1.24 -            "-geometry" (str "+" x "+" y) "-composite"))
    1.25 -        buttons)        
    1.26 -       (.getCanonicalPath target-file)]))))
    1.27 +    (let [command
    1.28 +          (flatten 
    1.29 +           ["convert"
    1.30 +            (.getCanonicalPath gb-button-bar)
    1.31 +            (map
    1.32 +             (fn [key]
    1.33 +               (let [[x y] (key-positions key)]
    1.34 +                 [(.getCanonicalPath gb-button-mark)
    1.35 +                  "-geometry" (str "+" x "+" y) "-composite"]))
    1.36 +             move)
    1.37 +            (.getCanonicalPath target-file)])]
    1.38 +      (apply  clojure.java.shell/sh command))))
    1.39  
    1.40  (defn adv-composite-frames-command
    1.41    [move-image screenshot target]