 ;               INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES.
 
 (ns org.micromanager.sequence-generator
-  (:use [org.micromanager.mm :only [get-default-devices select-values-match?]]))
+  (:use [org.micromanager.mm :only [select-values-match?]]))
 
 (defstruct channel :name :exposure :z-offset :use-z-stack :skip-frames)
 

  (let [{:keys [slices keep-shutter-open-channels keep-shutter-open-slices
                use-autofocus autofocus-skip interval-ms relative-slices
                runnable-list]} settings]
    (-> (make-main-loops settings)
      (#(map (partial build-event settings) %))
      (process-skip-z-stack slices)
      (manage-shutter keep-shutter-open-channels keep-shutter-open-slices)
      (process-channel-skip-frames)
      (process-use-autofocus use-autofocus autofocus-skip)
      (process-wait-time interval-ms)
      (attach-runnables runnables)
      (make-bursts)
      (add-next-task-tags))))

; Testing:



(defn build-event [settings event]
  (assoc event
    :exposure (if (:channel event)
                (get-in event [:channel :exposure])
                (:default-exposure settings))
