(ns cortex.video.magick6
  (:import java.io.File)
  (:use clojure.java.shell))

(defn images [path]
  (sort (rest (file-seq (File. path)))))

(def base "/home/r/proj/cortex/render/proprio/")

(defn pics [file]
  (images (str base file)))

(defn combine-images []
  (let [main-view (pics "main-view")
        proprioception (pics "proprio/0")
        targets (map
                 #(File. (str base "out/" (format "%07d.png" %)))
                 (range (count main-view)))]
    (dorun
     (pmap
      (comp
       (fn [[ main-view proprioception target]]
         (println target)
         (sh "convert"
             main-view 
             proprioception "-geometry" "+20+20" "-composite"
             target))
       (fn [& args] (map #(.getCanonicalPath %) args)))
       main-view proprioception targets))))