                (:left mc))
            (- (* (:zoom mc) (-> c :bb .tl .y))
                (:top mc))
-            ))
-  (q/fill (:color state) 255 255))
+            )))
 
 (q/defsketch hi
   :title "hi"

          _ (Imgproc/drawContours mask card-contours -1 (Scalar. 0 0 0) -1)
          outside-color (Core/mean target mask)
          [outside-h outside-s outside-l] (scalar-to-hsl outside-color)
          fill (cond (and (close-enough inside-l edge-l 5)
                          (close-enough inside-h edge-h 5))
                     :filled
                     (and (close-enough inside-l outside-l 5)
                          (close-enough inside-h outside-h 30)
                          (close-enough inside-s outside-s 5)) :empty
                          :else :shaded)

          _ (let [m (-> (Core/mean target-gray) .val first (* 0.80))]

  (q/fill 255)
  (q/text (str (select-keys (:mat-converter state) [:left :top :zoom])) 15 15)
  (q/text (str (round (q/current-frame-rate)) "/" (q/target-frame-rate)) 15 45)
  (doseq [c (:card-props state)
          :let [mc (:mat-converter state)]]

