 
 (defrecord screen-properties [x y z width height zoom])  
 
-(def screen-state (atom nil))
-
 (defn snap-image []
   (. mmc snapImage)
   (. mmc getTaggedImage))

        (.dispose window)
        (.setUndecorated window true)
        (.setFullScreenWindow device window)
        (.show window)
        )
      (let [window (.getFullScreenWindow device)]
        (.setFullScreenWindow device nil)
        (when window

(defn get-image-dimensions [^TaggedImage tagged-image]
  [(MDUtils/getWidth (.tags tagged-image))
   (MDUtils/getHeight (.tags tagged-image))])

(defn enable-anti-aliasing
  ([^Graphics g]
