       (= min-t qnow) (do #_(println "clean border")
                        (assoc scene :now now
                                     :objects (follow-transitions has transitions)))
-      :else (do (println "messy border overflow" (- now min-t))
+      :else (do #_(println "messy border overflow" (- now min-t))
                 (update-scene (assoc scene :now min-t
                                            :objects (follow-transitions has transitions))
                               now

                          :then          0
                          :playing       false
                          :pause-on-play false
                          :objects       obj-dict}))
(defn reset-scene-a! []
  (swap! scene-a (fn [_]
                   (make-scene-a 8))))

                     transitions))))

(defn enter-state [has ha state now]
  #_(println "enter state" (keys has) (:id ha) state now)
  (let [now (floor-time now time-unit)
        _ (assert (>= now (:entry-time ha)) "Time must be monotonic")
        ; set the current state to this state
