   (let [myTaggedImage (make-TaggedImage tagged-img)
         cache (.getImageCache display)]
     (.putImage cache myTaggedImage)
-    (.showImage display myTaggedImage)
+    (.showImage display (. myTaggedImage tags) true false) 
     (when focus
       (.show display))))
 

                         (:relative-z event))
      nil)))

(defn make-multicamera-events [event]
  (let [num-camera-channels (core getNumberOfCameraChannels)]
    (for [camera-channel (range num-camera-channels)]
      (let [super-channel-index (+ camera-channel (* num-camera-channels (event :channel-index)))]
        (assoc event :channel-index super-channel-index
                     :camera-channel-index camera-channel)))))

(defn collect [event out-queue]
  (condp = (:task event)
                :snap (doseq [sub-event (make-multicamera-events event)]
                        (collect-snap-image sub-event out-queue))
                :burst (collect-burst-images event out-queue)))

(defn z-in-msp [msp z-drive]

                 :zReference 0.0, :frames (), :save false}
		summary-metadata (make-summary-metadata summary)
		cache (doto (MMImageCache. (TaggedImageStorageRam. summary-metadata))
						(.setSummaryMetadata summary-metadata))]
		(doto (VirtualAcquisitionDisplay. cache nil)
                           (.promptToSave false)
                           (initialize-display-ranges))))

(defn create-basic-event []
  {:position-index 0, :position nil,
