   (let [size [(.-innerWidth js/window) (.-innerHeight js/window)]]
     (doseq [c @*resize-chans*] (put! c size))))
 
-(defn install-resize-handler
+(defn install-resize-handler!
   "install the resize callback to resize the main canvas renderer"
   []
   (.addEventListener js/window "resize" resize-event-chan-handler))

   #(.msRequestAnimationFrame js/window %)

   :else
   #(.setTimeout js/window % (/ 1000 *target-fps*))))

;; build the actual function
(def

;;
;; Animation handler
;;
(def fallback-fps 60)

(defn make-request-animation-frame
  "compose a function that is the r-a-f func. returns a function. This returned function takes a callback and ensures
  its called next frame"
