 
 (defn transition-interval [has ha transition]
   #_(println "Transition" (:id ha) "et" (:entry-time ha) (:target transition) (:guard transition))
-  (let [interval (constrain-times (merge-overlapping (guard-interval has ha (:guard transition))))]
+  (let [interval (merge-overlapping (guard-interval has ha (:guard transition)))]
     #_(println "interval:" interval)
     ; TODO: handle cases where transition is also guarded on states
     {:interval   interval

             (make-state
               :falling-right
               {:x speed :y (- fall-speed)}
               (bumping-transitions id :left :top :left walls others)
               (bumping-transitions id :left :falling-left walls others)
               (bumping-transitions id :top :right walls others))
             (make-state
               :falling-left
               {:x (- speed) :y (- fall-speed)}
               (bumping-transitions id :right :top :right walls others)
               (bumping-transitions id :right :falling-right walls others)
               (bumping-transitions id :top :left walls others)))))

(defn make-scene-a [x] (let [ids #{:ga :gb :gc :gd :ge}
                             walls #{[0 0 164 8]

             (ha-states @scene))
           scene-a)

(def show-transition-thresholds false)

(defn scene-widget [scene _owner]
  (let [scale 2
