From 22fe07e0f37414c3b103c4c20353bbe594518faa Mon Sep 17 00:00:00 2001
From: Stefan Dresselhaus <sdressel@techfak.uni-bielefeld.de>
Date: Sun, 5 Jan 2014 21:26:47 +0100
Subject: [PATCH] viewport scales with window now

---
 src/Main.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Main.hs b/src/Main.hs
index 3a6d463..f4150f5 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -414,6 +414,7 @@ adjustWindow = do
         far           = 100 --far plane
         ratio         = fromIntegral fbWidth / fromIntegral fbHeight
         frust         = createFrustum fov near far ratio
+    liftIO $ glViewport 0 0 (fromIntegral fbWidth) (fromIntegral fbHeight)
     put $ state {
         stateFrustum = frust
     }