diff options
author | David Thompson <dthompson2@worcester.edu> | 2014-01-26 16:21:48 -0500 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2014-01-26 16:21:48 -0500 |
commit | c9c97dd8bcb0b6365b7180d5e5c946eb179c057e (patch) | |
tree | 2ea441e74e7615bf5314c010f9a3e5f5e5303ecc /2d/game.scm | |
parent | 446750df6a786a8fcce7309e2f9b145e53e24e4f (diff) |
Move OpenGL viewport settings to game module.
* 2d/window.scm (open-window): Remove viewport config.
* 2d/game.scm (draw): Add viewport config.
Diffstat (limited to '2d/game.scm')
-rw-r--r-- | 2d/game.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/2d/game.scm b/2d/game.scm index 847defa..e8bcfaa 100644 --- a/2d/game.scm +++ b/2d/game.scm @@ -31,6 +31,7 @@ #:use-module (2d game) #:use-module (2d signals) #:use-module (2d vector2) + #:use-module (2d window) #:export (ticks-per-second tick-interval paused-agenda @@ -69,6 +70,12 @@ (define (draw dt alpha) "Render a frame." + (let ((width (signal-ref window-width)) + (height (signal-ref window-height))) + (gl-viewport 0 0 width height) + (set-gl-matrix-mode (matrix-mode projection)) + (gl-load-identity) + (gl-ortho 0 width height 0 -1 1)) (set-gl-matrix-mode (matrix-mode modelview)) (gl-load-identity) (gl-clear (clear-buffer-mask color-buffer depth-buffer)) |