   :title "Video Test"
   :size [WIDTH HEIGHT]
   :setup setup
-  ;; something for on-close??? (.release camera)
   :update update
   :draw draw
   :on-close on-close

;; bArray is the temporary byte array buffer for OpenCV cv::Mat.
;; iArray is the temporary integer array buffer for PImage pixels.
(defn setup []
  #_(q/frame-rate 60)
  {:b-array (byte-array PIX-CNT1)
   :i-array (int-array PIX-CNT2)
   :frame-mat (Mat. WIDTH HEIGHT CvType/CV_8UC3)

(ns videotest.optical-flow-crit
  (:require
   [quil.core :as q]
   [quil.middleware :as m]
   [clojure.set :as cset])
  (:import
   [org.opencv.highgui Highgui VideoCapture]
   [org.opencv.core CvType Mat MatOfByte MatOfFloat MatOfPoint MatOfPoint2f Size TermCriteria]
