OGL 0.0.0 → 0.0.1

raw patch · 4 files changed

+13/−7 lines, 4 files

Files

• Graphics/Rendering/OGL/GL/CoordTrans.hs +5/−4
• Graphics/Rendering/OGL/GL/FlushFinish.hs +6/−1
• Graphics/Rendering/OGL/Monad.hs +1/−1
• OGL.cabal +1/−1

@@ -1,3 +1,4 @@+ -------------------------------------------------------------------------------- -- | -- Module      :  Graphics.Rendering.OGL.GL.CoordTrans@@ -237,7 +238,7 @@  -------------------------------------------------------------------------------- -class Storable c => MatrixComponent c where+class (Num c, Storable c) => MatrixComponent c where    getMatrix :: GetPName -> Ptr c -> GL ()    loadMatrix :: Ptr c -> GL ()    loadTransposeMatrix :: Ptr c -> GL ()@@ -301,10 +302,10 @@    -- | Call the action with the given matrix. /Note:/ The action is /not/    -- allowed to modify the matrix elements!    withMatrix ::-      MatrixComponent c => m c -> (MatrixOrder -> Ptr c -> GL a) -> GL a+      MatrixComponent c =>  m c -> (MatrixOrder -> Ptr c -> GL a) -> GL a -   newMatrix :: MatrixComponent c => MatrixOrder -> [c] -> GL (m c)-   getMatrixComponents :: MatrixComponent c => MatrixOrder -> m c -> GL [c]+   newMatrix :: MatrixComponent c =>  MatrixOrder -> [c] -> GL (m c)+   getMatrixComponents :: MatrixComponent c =>  MatrixOrder -> m c -> GL [c]     withNewMatrix order act = liftIO $        allocaArray 16 $ \p -> do

@@ -17,7 +17,12 @@    flush, finish       ) where -import Graphics.Rendering.OGL.Monad+import Graphics.Rendering.OGL.Monad hiding (GL)+import Control.Monad+import Control.Monad.Trans++newtype GL a = GL (IO a) deriving (Functor, Monad, MonadIO)+ --------------------------------------------------------------------------------  -- | Different GL implementations buffer commands in several different

@@ -17,7 +17,7 @@ -- - 'PrimitiveGL' a primitive command sent during begin\/end context.
 -- 
 
-module Graphics.Rendering.OGL.Monad (liftIO, runGL, runGLA, GL, runPrimitive, PrimitiveGL, MonadGL) where 
+module Graphics.Rendering.OGL.Monad (liftIO, runGL, runGLA, GL(..), runPrimitive, PrimitiveGL(..), MonadGL) where 
 
 import Control.Monad
 import Control.Applicative

@@ -1,5 +1,5 @@ name:		OGL
-version:	0.0.0
+version:	0.0.1
 license:	BSD3
 license-file:	LICENSE
 maintainer:	Neal Alexander <relapse.dev@gmx.com>