 
 
 (defn capture-move [{:keys [ctx vid-node canvas-node vid-w vid-h]} cells]
-  (.drawImage ctx vid-node (/ (- vid-w vid-h) 2) 0 vid-h vid-h 0 0 capture-size capture-size)
+  (.drawImage
+   ctx
+   vid-node
+   (/ (- vid-w vid-h) 2)
+   0
+   vid-h
+   vid-h
+   0
+   0
+   capture-size
+   capture-size)
   (let [img-data (.toDataURL canvas-node "image/jpeg" 1)
         img-el   (js/Image.)
         pc       (promise-chan)]

        result-gif
          (dom/div nil
            (dom/h1 nil "Your Cellf")
            (dom/a #js {:href result-gif :download "cellf.gif" :className "download"}
              (dom/img #js {:src result-gif}))
            (:gif-result strings)
            (dom/button #js {:onClick #(om/update! app :result-gif nil)} "✔ done"))

        winner?
          (dom/div nil

        (if-not (= idx :empty)
          (let [[x1 y1] (get-cell-xy idx grid-size)
                [x2 y2] (get-cell-xy pos grid-size)]
            (.drawImage
             playback-ctx
             img
             (* x1 s)
             (* y1 s)
             s
             s
             (* x2 s)
             (* y2 s)
             s
             s))))
      (.drawImage playback-ctx img 0 capture-size))))


