 
 (defn collect-image [event out-queue]
   (println event)
-  (.add out-queue (generate-tagged-image (. mmc getImage) event)))
+  (.add out-queue (generate-tagged-image (. mmc getImage) (assoc event "ElapsedTime-ms" (clock-ms)))))
   
 (defn run-event [event last-wake-time out-queue]
   (run-actions (create-presnap-actions event))

      :position-index       "PositionIndex"
      :slice-index          "Slice"
      :slice                "SlicePosition"
    )
    (assoc "PositionIndex" 0
           "Channel" (get-in event [:channel :name])
           "PixelType" "GRAY8"
           )))  

;; acq-engine
 

    (proxy [AcquisitionWrapperEngine] []
      (runPipeline [^SequenceSettings settings]
        (let [out-queue (LinkedBlockingQueue.)]
          (.start (LiveAcqDisplay. mmc out-queue settings (.channels settings) (.save settings) this)))))
    (.setCore mmc (.getAutofocusManager gui))
    (.setParentGUI gui)
