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

(def WIDTH 640)
(def HEIGHT 480)

(def MAX-CORNERS 800)
(def BLANK-MASK (Mat.))
(def WIN-SIZE-W 10)
(def WIN-SIZE (Size. WIN-SIZE-W WIN-SIZE-W))
(def NEG-ONE-SIZE (Size. -1 -1))
(def TERM-CRITERIA (TermCriteria. (+ TermCriteria/EPS TermCriteria/COUNT) 20 0.03))

(def RESET-FRAMES 100)
(def PT-D 10)

;; pixCnt1 is the number of bytes in the pixel buffer

;; 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)
