not sure why I didn't think of this sooner.

2016-02-24 13:34:53 -08:00
parent 9b9b45a70c
commit 8a0e53a825
6 changed files with 61 additions and 26 deletions
--- a/desktop/src-common/advent/utils.clj
+++ b/desktop/src-common/advent/utils.clj
@@ -150,7 +150,8 @@
              edn/read-string)))

 (defn get-font [filename]
-  (let [font (bitmap-font filename) 
+  (let [font (-> (bitmap-font filename)
+                 (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)