mobile prep

desktop/src-common/advent/utils.clj

@@ -56,7 +56,7 @@
     (pixmap! resized :draw-pixmap base-cursor (* index 18) 0 16 16
              0 0 target-width target-height)
     
-    resized ))
+    (graphics! :new-cursor resized 0 0)))
 
 (defn get-texture [path]
   (let [atlas-name (str/replace path #".png" "")
@@ -153,7 +153,7 @@
 
 (defn get-font [filename]
   (let [font (-> (bitmap-font filename)
-                 (doto  (bitmap-font! :set-scale 0.5 0.5))) 
+                 #_(doto  (bitmap-font! :set-scale 0.5 0.5))) 
         tr (bitmap-font! font :get-region)
         tx (.getTexture tr)]
     (call! ^Texture tx :set-filter Texture$TextureFilter/Linear Texture$TextureFilter/Linear)
@@ -483,7 +483,7 @@
   (do
     (log/info "Making windowed 1280x960 decorated window")
     (System/setProperty "org.lwjgl.opengl.Window.undecorated", "false")
-    (.setDisplayMode Gdx/graphics 1280 960 false)))
+    (.setWindowedMode Gdx/graphics 1280 960)))
 
 (defn is-fullscreen?-normal []
   (.isFullscreen Gdx/graphics))