Drezil/pioneers
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

viewport scales with window now

Browse Source
This commit is contained in:
Stefan Dresselhaus
2014-01-05 21:26:47 +01:00
parent 61ed20c865
commit 22fe07e0f3
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/Main.hs
View File

@@ -414,6 +414,7 @@ adjustWindow = do
far = 100 --far plane far = 100 --far plane
ratio = fromIntegral fbWidth / fromIntegral fbHeight ratio = fromIntegral fbWidth / fromIntegral fbHeight
frust = createFrustum fov near far ratio frust = createFrustum fov near far ratio
liftIO $ glViewport 0 0 (fromIntegral fbWidth) (fromIntegral fbHeight)
put $ state { put $ state {
stateFrustum = frust stateFrustum = frust
} }