         width            (.-clientWidth node)
         height           (.-clientHeight node)
         driver           (make-driver gl)
-        starting-program 0
         programs         {:diffuse-flat               (gd/program driver program-diffuse-flat)
                           :diffuse-light              (gd/program driver program-diffuse-light)
                           :texture-flat               (gd/program driver program-texture-flat)

(def manual-step-frame-by-frame?
  (do
    true
    false
    ))

(defn animate-pure [draw-fn step-fn current-value]

                                                      (* (js/Math.cos (+ half-pi (:yaw camera))) delta-strafe elapsed)))))
        (assoc-in [:last-rendered] time-now)
        (assoc :now time-now))))

(defmulti control-event
  (fn [message args state] message))
