# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1340576302 18000
# Node ID c6ad363e36f7609b0f6df668456048e857bd0702
# Parent  8d3177d19d5f243b7f08cad3c4e068a7173b31f8
trying to find out map problem.

diff -r 8d3177d19d5f -r c6ad363e36f7 clojure/com/aurellem/run/final_cut.clj
--- a/clojure/com/aurellem/run/final_cut.clj	Sun Jun 24 16:47:18 2012 -0500
+++ b/clojure/com/aurellem/run/final_cut.clj	Sun Jun 24 17:18:22 2012 -0500
@@ -49,5 +49,37 @@
      (render-files! render-dir initial-state moves))
   ([moves]
      (render-files! (root) moves)))
-                           
 
+(defn file-names [#^File dir]
+   (mapv #(.getCanonicalPath %) (next (sort (file-seq dir)))))
+
+(defn composite-frames-command
+  [screenshot ram-map target]
+  ["convert"
+   "-size" "318x276" "xc:white"
+   screenshot   "-geometry" "+10+10"  "-composite"
+   ram-map      "-geometry" "+180+10" "-composite"
+   target])
+
+(defn generate-composite-frames!
+  ([^File rendered-dir]
+     (let [final-frames (File. rendered-dir "final")
+           _ (.mkdir final-frames)
+           screenshots (file-names (File. rendered-dir "frames"))
+           ram-maps    (file-names (File. rendered-dir "ram-map"))
+           targets (map #(File. final-frames (format "%07d.png"))
+                        (range (count screenshots)))]
+       (dorun
+        (map
+         ;;         (comp ;;clojure.java.shell/sh
+         ;;          println
+         ;;          flatten
+         composite-frames-command
+         screenshots ram-maps targets))
+
+       ))
+  ([] (generate-composite-frames! render-dir)))
+  
+
+
+  
\ No newline at end of file