                                               (if (time-for-control-tick?)
                                                 (get-new-robot-velocity sensed-color)
                                                 robot-velocity )
-                                              tick-time ))  ) ) ) )
+                                              tick-time ))
+         (enable-start-test-buttons) ) ) ) )
 

(defn get-new-robot-velocity [sensed-color]
  (cond (= sensed-color "white") {:trans 50 :rot  0}
        :else                    {:trans  0 :rot 10} ) )

(let [stop-simulation? (atom false)]
  (defn stop-simulation! []


(defn init-ui []
  (let [stop-button (node [:button "Stop simulation"])]
    (set-attr! stop-button :disabled)
    (listen! stop-button :click stop-simulation!)
    (append! (sel1 :#stop-button-div) stop-button) )
  (add-test "Test 1" {:x 275 :y 450 :theta 0})
