       "Width" (core getImageWidth)
       "z-step_um" (get-z-step-um (settings :slices))
      })))
-         
+
 (defn acquire-single [position-index]
   (core snapImage)
   (let [w (core getImageWidth)
         h (core getImageHeight)
         summary {:interval-ms 0.0, :use-autofocus false, :autofocus-skip 0,
                  :relative-slices true, :keep-shutter-open-slices false, :comment "",
-                 :prefix "Untitled", :root "/Users/arthur/AcquisitionData", 
+                 :prefix "Untitled", :root "/Users/arthur/AcquisitionData",
                  :time-first false, :positions (), :channels (), :slices-first true,
                  :slices nil, :numFrames 0, :keep-shutter-open-channels false,
                  :zReference 0.0, :frames (), :save false}

  (def eng acq-eng)
  (load-mm)
  (create-device-agents)
  (swap! (.state this) assoc :stop false :pause false) 
  (let [out-queue (GentleLinkedBlockingQueue.)
        settings (convert-settings acq-settings)
        acq-thread (Thread. #(run-acquisition this 
          settings out-queue))
        processors (ProcessorStack. out-queue (.getTaggedImageProcessors acq-eng)) 
        out-queue-2 (.begin processors)
        display (LiveAcqDisplay. mmc out-queue-2 (make-summary-metadata settings)
                  (:save settings) acq-eng)]
    (def outq out-queue)
    ;(.addImageProcessor acq-eng
      ;(proxy [TaggedImageAnalyzer] []
        ;(analyze [img] (log "pretending to analyze")))) 
    (when-not (:stop @(.state this))
      (.start acq-thread)
      (swap! (.state this) assoc :display display)

                :init-burst (collect-burst-image)
                :collect-burst (collect-burst-image))]
    (.put out-queue (annotate-image image event @state))))

(defn compute-z-position [event]
  (if-let [z-drive (:z-drive event)]
    (+ (or (get-in event [:channel :z-offset]) 0)
