diff options
Diffstat (limited to 'Bindings/GLPng.hs')
| -rw-r--r-- | Bindings/GLPng.hs | 189 |
1 files changed, 189 insertions, 0 deletions
diff --git a/Bindings/GLPng.hs b/Bindings/GLPng.hs new file mode 100644 index 0000000..6be3b82 --- /dev/null +++ b/Bindings/GLPng.hs @@ -0,0 +1,189 @@ +{-# INCLUDE <GL/gl.h> #-} +{-# INCLUDE <GL/glpng.h> #-} +{-# LINE 1 "GLPng.chs" #-} +{-# LANGUAGE ForeignFunctionInterface, DeriveDataTypeable #-} +{-# LINE 2 "GLPng.chs" #-} + +module Bindings.GLPng ( PngInfo(..) + , Mipmap(..) + , Trans (..) + , pngBind + ) where + +import Data.Generics + +import Foreign.C.String (CString, withCString) +import Foreign.C.Types +import Foreign.Marshal.Alloc (alloca) +import Foreign.Ptr +import Foreign.Storable + +import Graphics.Rendering.OpenGL.GL.Texturing.Parameters (Repetition(..), Clamping(..), TextureFilter(..), MinificationFilter, MagnificationFilter) + + + +{-# LINE 21 "GLPng.chs" #-} + +{-# LINE 22 "GLPng.chs" #-} + + +data PngInfo = PngInfo + { pngWidth :: !CUInt + , pngHeight :: !CUInt + , pngDepth :: !CUInt + , pngAlpha :: !CUInt + } deriving (Eq, Ord, Show, Typeable) + +instance Storable PngInfo where + sizeOf _ = ((16)) +{-# LINE 33 "GLPng.chs" #-} + alignment _ = alignment (undefined :: CUInt) + + peek pi = do + w <- ((\hsc_ptr -> peekByteOff hsc_ptr 0)) pi +{-# LINE 37 "GLPng.chs" #-} + h <- ((\hsc_ptr -> peekByteOff hsc_ptr 4)) pi +{-# LINE 38 "GLPng.chs" #-} + d <- ((\hsc_ptr -> peekByteOff hsc_ptr 8)) pi +{-# LINE 39 "GLPng.chs" #-} + a <- ((\hsc_ptr -> peekByteOff hsc_ptr 12)) pi +{-# LINE 40 "GLPng.chs" #-} + + return (PngInfo w h d a) + + poke pi (PngInfo w h d a) = do + ((\hsc_ptr -> pokeByteOff hsc_ptr 0)) pi w +{-# LINE 45 "GLPng.chs" #-} + ((\hsc_ptr -> pokeByteOff hsc_ptr 4)) pi h +{-# LINE 46 "GLPng.chs" #-} + ((\hsc_ptr -> pokeByteOff hsc_ptr 8)) pi d +{-# LINE 47 "GLPng.chs" #-} + ((\hsc_ptr -> pokeByteOff hsc_ptr 12)) pi a +{-# LINE 48 "GLPng.chs" #-} + + + + +png_NoMipmap :: CInt +png_NoMipmap = (0) +{-# LINE 54 "GLPng.chs" #-} + +png_BuildMipmap :: CInt +png_BuildMipmap = (-1) +{-# LINE 57 "GLPng.chs" #-} + +png_SimpleMipmap :: CInt +png_SimpleMipmap = (-2) +{-# LINE 60 "GLPng.chs" #-} + + +data Mipmap = NoMipmap | BuildMipmap | SimpleMipmap + deriving (Eq, Show) + +marshalMipmap :: Mipmap -> CInt +marshalMipmap m + | m == NoMipmap = png_NoMipmap + | m == BuildMipmap = png_BuildMipmap + | m == SimpleMipmap = png_SimpleMipmap + + +png_Alpha :: CInt +png_Alpha = (-2) +{-# LINE 74 "GLPng.chs" #-} + +png_Solid :: CInt +png_Solid = (-1) +{-# LINE 77 "GLPng.chs" #-} + +data Trans = Alpha | Solid + deriving (Eq, Show) + +marshalTrans :: Trans -> CInt +marshalTrans t + | t == Alpha = png_Alpha + | t == Solid = png_Solid + + +magToMin :: MagnificationFilter -> MinificationFilter +magToMin magFilter = (magFilter, Nothing) + + +gl_NEAREST :: CInt +gl_NEAREST = (9728) +{-# LINE 93 "GLPng.chs" #-} + +gl_LINEAR :: CInt +gl_LINEAR = (9729) +{-# LINE 96 "GLPng.chs" #-} + +gl_NEAREST_MIPMAP_NEAREST :: CInt +gl_NEAREST_MIPMAP_NEAREST = (9984) +{-# LINE 99 "GLPng.chs" #-} + +gl_LINEAR_MIPMAP_NEAREST :: CInt +gl_LINEAR_MIPMAP_NEAREST = (9985) +{-# LINE 102 "GLPng.chs" #-} + +gl_NEAREST_MIPMAP_LINEAR :: CInt +gl_NEAREST_MIPMAP_LINEAR = (9986) +{-# LINE 105 "GLPng.chs" #-} + +gl_LINEAR_MIPMAP_LINEAR :: CInt +gl_LINEAR_MIPMAP_LINEAR = (9987) +{-# LINE 108 "GLPng.chs" #-} + + +marshalMinificationFilter :: MinificationFilter -> CInt +marshalMinificationFilter x = fromIntegral $ case x of + (Nearest, Nothing ) -> gl_NEAREST + (Linear', Nothing ) -> gl_LINEAR + (Nearest, Just Nearest) -> gl_NEAREST_MIPMAP_NEAREST + (Linear', Just Nearest) -> gl_LINEAR_MIPMAP_NEAREST + (Nearest, Just Linear') -> gl_NEAREST_MIPMAP_LINEAR + (Linear', Just Linear') -> gl_LINEAR_MIPMAP_LINEAR + +marshalMagnificationFilter :: MagnificationFilter -> CInt +marshalMagnificationFilter = marshalMinificationFilter . magToMin + + +gl_CLAMP :: CInt +gl_CLAMP = (10496) +{-# LINE 125 "GLPng.chs" #-} + +gl_REPEAT :: CInt +gl_REPEAT = (10497) +{-# LINE 128 "GLPng.chs" #-} + +gl_CLAMP_TO_EDGE :: CInt +gl_CLAMP_TO_EDGE = (33071) +{-# LINE 131 "GLPng.chs" #-} + +gl_CLAMP_TO_BORDER :: CInt +gl_CLAMP_TO_BORDER = (33069) +{-# LINE 134 "GLPng.chs" #-} + +gl_MIRRORED_REPEAT :: CInt +gl_MIRRORED_REPEAT = (33648) +{-# LINE 137 "GLPng.chs" #-} + + +marshalTextureWrapMode :: (Repetition, Clamping) -> CInt +marshalTextureWrapMode x = fromIntegral $ case x of + (Repeated, Clamp) -> gl_CLAMP + (Repeated, Repeat) -> gl_REPEAT + (Repeated, ClampToEdge) -> gl_CLAMP_TO_EDGE + (Repeated, ClampToBorder) -> gl_CLAMP_TO_BORDER + (Mirrored, Repeat) -> gl_MIRRORED_REPEAT + _ -> error ("marshalTextureWrapMode: illegal value " ++ show x) + +foreign import ccall unsafe "GL/glpng.h pngBind" + rawPngBind :: CString -> CInt -> CInt -> Ptr PngInfo -> CInt -> CInt -> CInt -> IO CUInt + + +pngBind :: String -> Mipmap -> Trans -> (Repetition, Clamping) -> MinificationFilter -> MagnificationFilter -> IO (CUInt, PngInfo) +pngBind name mipmap trans wrapst minfilter magfilter = alloca $ \infop -> withCString name $ \cname -> do + ret <- rawPngBind cname (marshalMipmap mipmap) (marshalTrans trans) infop (marshalTextureWrapMode wrapst) + (marshalMinificationFilter minfilter) (marshalMagnificationFilter magfilter) + info <- peek infop + return (ret, info) +
\ No newline at end of file |