gistfile1.clj

(defn animate
  [_]
  (when @running
    (send-off *agent* animate)
    (doseq [agent-boid boids]
      (send-off agent-boid behave (remove (partial = @agent-boid) (map deref boids))))
    (.repaint canvas)
    (Thread/sleep animation-delay-ms)))

(defn start-animate []
  (swap! running (constantly true))
  (send-off animator animate))
  
(defn stop-animate []
  (swap! running (constantly false)))