 (defn collect-snap-image [event out-queue]
   (let [image
          {:pix (core getImage)
-          :tags {"ElapsedTime-ms" (@state :last-image-time)}}]
+          :tags nil}]
     (do (log "collect-snap-image: "
                (select-keys event [:position-index :frame-index
                                    :slice-index :channel-index]))
       (when out-queue
           (.put out-queue
-                (make-TaggedImage (annotate-image image event @state)))))
+                (make-TaggedImage (annotate-image image event @state (elapsed-time @state))))))
     image))
 
 (defn return-config []

       "ZPositionUm" (get-in state [:last-stage-positions (state :default-z-drive)])
      })))
   
(defn annotate-image [img event state]
  {:pix (:pix img)
   :tags 
   (merge
     (generate-metadata event state)
     (:tags img)
     {"ElapsedTime-ms" (burst-time (:tags img) state)}
     )}) ;; include any existing metadata

(defn make-TaggedImage [annotated-img]

  (binding [state (atom (create-basic-state))]
    (let [event (create-basic-event)]
      (core snapImage)
      (annotate-image (collect-snap-image event nil) event @state nil))))
    
(defn show-image [display tagged-img focus]
  (let [myTaggedImage (make-TaggedImage tagged-img)
