Parameterize scale

1 files changed, 6 insertions, 4 deletions

diff --git a/bytepusher.scm b/bytepusher.scm
index 8474999..b8e0bc3 100644
--- a/bytepusher.scm
+++ b/bytepusher.scm
@@ -12,6 +12,7 @@
 
 (define width  256)
 (define height 256)
+(define scale 2)
 
 (define keys (make-bitvector 16 #f))
 
@@ -100,7 +101,7 @@
   (sdl-init)
   (call-with-window
     (make-window #:title "BytePusher"
-                 #:size (list (* 4 width) (* 4 height)))
+                 #:size (list (* scale width) (* scale height)))
     (lambda (w)
       (call-with-renderer
         (make-renderer w)
@@ -164,7 +165,7 @@
 
 (define (loop! renderer)
   (define texture (make-display-texture renderer))
-  (set-renderer-scale! renderer 4 4)
+  (set-renderer-scale! renderer scale scale)
   (let loop ()
     (let ((t0 (sdl-ticks)))
       (loop-frame!)
@@ -184,8 +185,9 @@
 (define (main)
   (load-program! "tests/palette.bp")
   (sdl-init)
-  (call-with-window (make-window #:title "BytePusher"
-                                 #:size (list (* 4 width) (* 4 height)))
+  (call-with-window
+    (make-window #:title "BytePusher"
+                 #:size (list (* scale width) (* scale height)))
     (lambda (w)
       (call-with-renderer (make-renderer w) loop!)))
   (sdl-quit))