 (ns videotest.falling.fall-core
   (:require
+   [clojure.math.numeric-tower :as math]
    [quil.applet :as qa :refer [applet-close]]
    [quil.core :as q]
    [quil.middleware :as m]

      (update-rgba)
      (update-color-record)
      (overlay-triangles)
      (update-drawn-p-image)))

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

(def ALPHA-STILL 255.0)

;; 32 works
(def NUM-COL-BINS 32.0)
(def DISPLAY-BIN-SIZE (/ DISPLAY-WIDTH NUM-COL-BINS))
(def NUM-ROW-BINS (/ DISPLAY-HEIGHT DISPLAY-BIN-SIZE))

