summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--bytepusher.scm10
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))