From 3c98f936af7754e9deb4912e54ec12a3df9b5938 Mon Sep 17 00:00:00 2001
From: equa <equaa@protonmail.com>
Date: Thu, 22 Apr 2021 13:42:54 -0500
Subject: bad scaling

---
 lib/font.fnl       |  6 ++++--
 lib/player.fnl     |  1 -
 lib/transition.fnl | 21 +++++++++++++--------
 3 files changed, 17 insertions(+), 11 deletions(-)

diff --git a/lib/font.fnl b/lib/font.fnl
index 73a18b8..d7b9db8 100644
--- a/lib/font.fnl
+++ b/lib/font.fnl
@@ -1,2 +1,4 @@
-{:small (love.graphics.newFont "font/Montserrat-SemiBold.ttf" 12)
- :big (love.graphics.newFont "font/Montserrat-SemiBold.ttf" 48)}
+{12 (love.graphics.newFont "font/Montserrat-SemiBold.ttf" 12)
+ 24 (love.graphics.newFont "font/Montserrat-SemiBold.ttf" 24)
+ 48 (love.graphics.newFont "font/Montserrat-SemiBold.ttf" 48)
+ 96 (love.graphics.newFont "font/Montserrat-SemiBold.ttf" 96)}
diff --git a/lib/player.fnl b/lib/player.fnl
index 5fca05a..1b10b51 100644
--- a/lib/player.fnl
+++ b/lib/player.fnl
@@ -46,7 +46,6 @@
   (love.graphics.polygon :fill -0.6 -0.4 0.6 0 -0.6 0.4))
 
 (fn collide [self game id x y]
-  (print "ow!")
   (tset game.entities id nil)
   (tset game.grid x y (cell.init cells.boom)))
 
diff --git a/lib/transition.fnl b/lib/transition.fnl
index 376f123..096de9e 100644
--- a/lib/transition.fnl
+++ b/lib/transition.fnl
@@ -7,22 +7,27 @@
   (state.draw self.present-state)
   ;; TODO: translation
   (love.graphics.reset)
+  (love.graphics.translate (/ width 2) (/ height 2))
+  ;; TODO: this scaling is pretty limited and should probably get bigger!
+  (local scale (if (> height 600)
+                   2
+                   1))
   (love.graphics.setColor 0.8 0.8 0.8 (/ (math.max 0 (- self.age 30)) 10))
-  (love.graphics.setFont font.big)
+  (love.graphics.setFont (. font (* 48 scale)))
   (love.graphics.printf (string.format
                           (. translation.text self.type 1)
                           (and self.level (translation.text.number self.level)))
-                        (- (/ width 2) 500)
-                        (- (/ height 2) 64)
-                        1000
+                        (* scale -500)
+                        (* scale -64)
+                        (* scale 1000)
                         :center)
-  (love.graphics.setFont font.small)
+  (love.graphics.setFont (. font (* 12 scale)))
   (love.graphics.printf (string.format
                           (. translation.text self.type 2)
                           (and self.level (translation.text.number self.level)))
-                        (- (/ width 2) 500)
-                        (+ (/ height 2))
-                        1000
+                        (* scale -500)
+                        0
+                        (* scale 1000)
                         :center))
 
 (fn update [self]
-- 
cgit 1.3.0-6-gf8a5