Mercurial > vba-clojure

comparison clojure/com/aurellem/run/adv_choreo.clj @ 605:54644b08da1a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
rendered final video.
author Robert McIntyre <rlm@mit.edu>
date Sun, 02 Sep 2012 14:28:53 -0500
parents c8cda378e1a0
children
comparison
equal deleted inserted replaced
604:c8cda378e1a0 605:54644b08da1a
352 (let [buttons (set move) 352 (let [buttons (set move)
353 key-positions 353 key-positions
354 {:l [23 23] 354 {:l [23 23]
355 :u [33 11] 355 :u [33 11]
356 :r [46 23] 356 :r [46 23]
357 :d [33 26] 357 :d [33 36]
358 358
359 :start [65 24] 359 :start [65 24]
360 :select [80 24] 360 :select [80 24]
361 361
362 :b [100 25] 362 :b [100 25]
363 :a [121 25]}] 363 :a [121 25]}]
364 (apply 364 (let [command
365 clojure.java.shell/sh 365 (flatten
366 (flatten 366 ["convert"
367 ["convert" 367 (.getCanonicalPath gb-button-bar)
368 (.getCanonicalPath gb-button-bar) 368 (map
369 (map 369 (fn [key]
370 (fn [key] 370 (let [[x y] (key-positions key)]
371 (let [[x y] (key-positions key)] 371 [(.getCanonicalPath gb-button-mark)
372 (.getCanonicalPath gb-button-mark) 372 "-geometry" (str "+" x "+" y) "-composite"]))
373 "-geometry" (str "+" x "+" y) "-composite")) 373 move)
374 buttons) 374 (.getCanonicalPath target-file)])]
375 (.getCanonicalPath target-file)])))) 375 (apply clojure.java.shell/sh command))))
376 376
377 (defn adv-composite-frames-command 377 (defn adv-composite-frames-command
378 [move-image screenshot target] 378 [move-image screenshot target]
379 ["convert" 379 ["convert"
380 screenshot 380 screenshot