     (q/translate WIDTH 0)
     (q/scale -1 1)
     (q/image p-image 0 0)
-    #_(draw-flow state)
     (q/pop-matrix)))
 
 (defn on-close

(defn update [state]
  (-> state
      (cv/update-frame)
      (cv/update-p-image)
      #_(cv/init-gray-mat)
      #_(cv/update-optical-flow)))

(defn draw [state]
  (let [{:keys [p-image]} state]

   [quil.middleware :as m]
   [videotest.basic-mover.cv :as cv])
  (:import
   [org.opencv.core CvType Mat]))


(def CAM-SIZE (cv/camera-frame-size))
