 (defn compute-time-from-core [tags]
   (when (@state :burst-init-time)
     (when-let [t (tags "ElapsedTime-ms")]
+      (log "ElapsedTime-ms" t)
       (+ (Double/parseDouble t)
          (@state :burst-init-time)))))
 

        (set-stage-position z-drive z)))
    #(do (wait-for-pending-devices)
         (expose event)
         (collect event out-queue))))

(defn execute [event-fns]
  (doseq [event-fn event-fns :while (not (:stop @state))]

        tags (if (and t (pos? t))
               (assoc tags "ElapsedTime-ms" t)
               (dissoc tags "ElapsedTime-ms"))]
    (log "compute-time t")
    {:pix pix :tags (dissoc tags "StartTime-ms")}))

(defn collect-burst-images [event out-queue]
