 (defn screenshot
   "Take a screenshot. Currently captures the entire screen."
   [filename state]
-  (println [(:window-x state) (:window-y state) (:window-width state) (:window-height state)])
+  ;(println [(:window-x state) (:window-y state) (:window-width state) (:window-height state)])
   (let [img-type (second (re-find (re-matcher #"\.(\w+)$" filename)))
 				capture (.createScreenCapture (Robot.)
 							      ;(Rectangle. (.getScreenSize (Toolkit/getDefaultToolkit))));; captures entire screen

(defn mouse-move
  "Respond to a change in x,y position of the mouse."
  [[[dx dy] [x y]] state] 
  #_(println x y)
  state)
    
(defn mouse-up
  "Respond to a mouse button being released"
  [[x y] button state] 
  #_(println button) 
  state)
    
(defn mouse-click
  "Respond to a click?"
  [[x y] button state]
  #_(println button)
  state)

(defn mouse-down
  "Respond to a mouse button being pressed"
  [[x y] button state]
  #_(println button)
  state)



  [state]
  (app/title! "brevis")
  (app/vsync! true)
  ;(app/key-repeat! false)
  (enable :blend)
  (enable :depth-test)
  ;(clear-color [0 0 0 1])
