                                            (:state opt)))
                             succ (roll/follow-transition ha-defs cur trans time)
                             _ (soft-assert (= (get-in succ [:objects (:id opt) :state])
-                                         (:target opt))
-                                      (str "not="
-                                           (get-in succ [:objects (:id opt) :state])
-                                           (:target opt)))
+                                              (:target opt))
+                                           (str "not="
+                                                (get-in succ [:objects (:id opt) :state])
+                                                (:target opt)))
                             [rolled seen] (roll/inert-playout ha-defs succ explore-roll-limit seen)]
                         ;(println "steps" (count rolled))
                         [(conj ps (concat (conj next-path cur succ) rolled))

                                     cfg (current-config wld)
                                     has (:objects cfg)
                                     polys (apply concat (vals (:seen-polys wld)))]
                                 (sab/html [:div {:style    {:backgroundColor "blue"
                                                             :width           container-w
                                                             :height          container-h
                                                             :position        "relative"
                                                             :overflow        "scroll"}
                                                  :onScroll (fn [scroll-evt]
                                                              (let [n (.-target scroll-evt)]
                                                                (update-world! world
                                                                               (fn [w]
                                                                                 (assoc w :scroll-x (.-scrollLeft n)
                                                                                          :scroll-y (- (:height w) (.-scrollTop n)))))))}
                                            [:svg {:width   (* world-w x-scale)
                                                   :height  (* world-h y-scale)
                                                   :style   {:position "absolute"}
                                                   :viewBox (str "0 0 " world-w " " world-h)}
                                             (seen-viz/seen-viz world-h polys)
                                             [:g {}

  (.requestAnimationFrame js/window tick-frame)
  (reset-world! default-world-desc))

(defn button-bar [world]
  (let [wld @world
        ha-defs (:ha-defs wld)]
