updates on leaving inventory screen.

2016-08-03 08:47:15 -07:00
parent b4a66dafc0
commit 6ffe5d2caf
2 changed files with 39 additions and 27 deletions
--- a/desktop/src-common/advent/utils.clj
+++ b/desktop/src-common/advent/utils.clj
@@ -46,7 +46,7 @@
     (or factor 1.0)))

 (defn cursor [filename which]
-  (let [scale 2
+  (let [scale 4
        base-cursor (pixmap filename)
        target-width (* 16 scale)
        target-height (* 16 scale)
@@ -56,7 +56,7 @@
    (pixmap! resized :draw-pixmap base-cursor (* index 18) 0 16 16
             0 0 target-width target-height)
    
-    (graphics! :new-cursor resized 0 0)))
+    (graphics! :new-cursor resized 0 0 )))

 (defn get-texture [path]
  (let [atlas-name (str/replace path #".png" "")