call 0.1 → 0.1.0.1

raw patch · 3 files changed

+6/−12 lines, 3 filesdep ~call

Dependency ranges changed: call

Files

• call.cabal +2/−2
• src/Call/Internal/GLFW.hs +4/−2
• src/Call/Sight.hs +0/−8

@@ -1,5 +1,5 @@ name:                call
-version:             0.1
+version:             0.1.0.1
 synopsis:            The call game engine
 description:         Call is a minimalistic game engine that supports 2D/3D graphics and sounds.
 homepage:            https://github.com/fumieval/call
@@ -81,5 +81,5 @@     buildable: True
   else
     buildable: False
-  build-depends: base == 4.*, call <= 0.1, lens == 4.*
+  build-depends: base == 4.*, call <= 0.2, lens == 4.*
   default-language:    Haskell2010

@@ -85,8 +85,10 @@     FullScreen -> GLFW.getPrimaryMonitor
     _ -> return Nothing
 
-  -- GLFW.windowHint $ GLFW.WindowHint'OpenGLProfile GLFW.OpenGLProfile'Core
-  -- GLFW.windowHint $ GLFW.WindowHint'OpenGLForwardCompat True
+  GLFW.windowHint $ GLFW.WindowHint'ContextVersionMajor 3
+  GLFW.windowHint $ GLFW.WindowHint'ContextVersionMinor 2
+  GLFW.windowHint $ GLFW.WindowHint'OpenGLProfile GLFW.OpenGLProfile'Core
+  GLFW.windowHint $ GLFW.WindowHint'OpenGLForwardCompat True
   GLFW.windowHint $ GLFW.WindowHint'Resizable $ mode == Resizable
   win <- GLFW.createWindow ww wh title mon Nothing >>= maybe (fail "Failed to create a window") return
   GLFW.makeContextCurrent (Just win)

@@ -44,8 +44,6 @@ import qualified Graphics.Rendering.OpenGL.GL as GL
 import Data.Color
 import Call.Types
-import Control.Monad.Trans.Writer.Strict as Strict
-import Control.Monad.Trans.Writer.Lazy as Lazy
 
 class Affine a where
   type Vec a :: *
@@ -90,12 +88,6 @@   | SphericalMultiply Bitmap r
   | Diffuse RGBA r
   deriving Functor
-  {-
-  | Opacity r
-  | Light RGBA Float (V3 Float) (V4 Float)
-  | Specular RGB
-  | Ambient RGB
-  -}
 
 instance Affine Scene where
   type Vec Scene = V3 Float