diff options
Diffstat (limited to 'sly/game.scm')
| -rw-r--r-- | sly/game.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/sly/game.scm b/sly/game.scm index 66f0893..f4fb948 100644 --- a/sly/game.scm +++ b/sly/game.scm @@ -106,7 +106,9 @@ instead of becoming completely unresponsive and possibly crashing." (define (draw dt alpha) "Render a frame." (let ((size (signal-ref window-size))) - (gl-viewport 0 0 (vx size) (vy size))) + (gl-viewport 0 0 + (inexact->exact (vx size)) + (inexact->exact (vy size)))) (gl-clear (clear-buffer-mask color-buffer depth-buffer)) (run-hook draw-hook dt alpha) (with-graphics gfx |