From c9c97dd8bcb0b6365b7180d5e5c946eb179c057e Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 26 Jan 2014 16:21:48 -0500
Subject: Move OpenGL viewport settings to game module.

* 2d/window.scm (open-window): Remove viewport config.

* 2d/game.scm (draw): Add viewport config.
---
 2d/game.scm | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to '2d/game.scm')

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))
-- 
cgit v1.2.3