GLFW-b-demo 0.0.3 → 0.1

raw patch · 2 files changed

+6/−3 lines, 2 filesdep +GLURaw

Dependencies added: GLURaw

Files

GLFW-b-demo.cabal +2/−1
src/Main.hs +4/−2

GLFW-b-demo.cabal view

@@ -1,5 +1,5 @@ name:         GLFW-b-demo-version:      0.0.3+version:      0.1  category:     Graphics @@ -36,6 +36,7 @@   build-depends:     GLFW-b == 0.*,     OpenGL == 2.4.*,+    GLURaw == 1.1.*,     base   == 4.*    ghc-options: -Wall -O2

src/Main.hs view

@@ -2,7 +2,8 @@  import Control.Monad (liftM, unless, when) -import qualified Graphics.Rendering.OpenGL as GL+import qualified Graphics.Rendering.GLU.Raw as GLU+import qualified Graphics.Rendering.OpenGL  as GL  import qualified Graphics.UI.GLFW as GLFW @@ -40,8 +41,9 @@     GL.light    (GL.Light 0) GL.$= GL.Enabled  windowSizeCallback :: Int -> Int -> IO ()-windowSizeCallback w h =+windowSizeCallback w h = do     GL.viewport GL.$= (GL.Position 0 0, GL.Size (fromIntegral w) (fromIntegral h))+    GLU.gluPerspective 45 (fromIntegral w / fromIntegral h) 0.1 100  start :: IO () start =