Scale up

1 files changed, 9 insertions, 4 deletions

diff --git a/engine/shell.scm b/engine/shell.scm
index 12f6699..d0dd3c7 100644
--- a/engine/shell.scm
+++ b/engine/shell.scm
@@ -45,8 +45,9 @@
   (load-tile-font "assets/fonts/bubblemad_8x8.png" 8 8
                   " !\"©_%❤'()*+,-./0123456789:←<=>?@abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"))
 
-(define %height 240)
-(define %width 320)
+(define %scale-factor 2)
+(define %height (* %scale-factor 240))
+(define %width (* %scale-factor 320))
 
 (define-class <shell> (<node>)
   (debug? #:allocation #:virtual
@@ -67,9 +68,13 @@
                                              #:min-filter 'nearest
                                              #:mag-filter 'nearest))
   (fb-region #:getter fb-region
-             #:init-form (make-rect 0.0 0.0 (* 2 %width) (* 2 %height)))
+             #:init-form (make-rect 0.0 0.0
+                                    (* %scale-factor %width)
+                                    (* %scale-factor %height)))
   (projection #:getter projection
-              #:init-form (orthographic-projection 0 %width %height 0 0 1))
+              #:init-form (orthographic-projection 0
+                                                   (/ %width %scale-factor)
+                                                   (/ %height %scale-factor) 0 0 1))
   (frame-start-time #:accessor frame-start-time)
   (avg-frame-time #:accessor avg-frame-time #:init-value 0.0)
   (eval-prompt #:accessor eval-prompt