     image-tags
     ["Width" "Height" "PixelType"]))  
 
+(defn initialize-display-ranges [window]  
+  (do (.setChannelDisplayRange window 0 0 256)
+      (.setChannelDisplayRange window 1 0 256)
+      (.setChannelDisplayRange window 2 0 256)))
+
 (defn create-image-window [first-image]
   (let [summary {:interval-ms 0.0, :custom-intervals-ms [] :use-autofocus false, :autofocus-skip 0,
                  :relative-slices true, :keep-shutter-open-slices false, :comment "",

		cache (doto (MMImageCache. (TaggedImageStorageRam. summary-metadata))
						(.setSummaryMetadata summary-metadata))]
		(doto (VirtualAcquisitionDisplay. cache nil)
                           (.promptToSave false))))

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

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

