summaryrefslogtreecommitdiffstats
path: root/Bindings/GLPng.hs
diff options
context:
space:
mode:
authorMatthias Schiffer <matthias@gamezock.de>2010-02-25 04:49:30 +0100
committerMatthias Schiffer <matthias@gamezock.de>2010-02-25 04:49:30 +0100
commit9ca9555fede912e5a3c9cebaa2050bb2c7cc7b1c (patch)
treedb35235d4d497aa694bcadddedcbcee7e01a5c55 /Bindings/GLPng.hs
parentb4f295da9183d442b87396f07284b7624b90892e (diff)
downloadhtanks-9ca9555fede912e5a3c9cebaa2050bb2c7cc7b1c.tar
htanks-9ca9555fede912e5a3c9cebaa2050bb2c7cc7b1c.zip
Renamed some files and added Makefile
Diffstat (limited to 'Bindings/GLPng.hs')
-rw-r--r--Bindings/GLPng.hs58
1 files changed, 29 insertions, 29 deletions
diff --git a/Bindings/GLPng.hs b/Bindings/GLPng.hs
index 6be3b82..3a6baab 100644
--- a/Bindings/GLPng.hs
+++ b/Bindings/GLPng.hs
@@ -1,8 +1,8 @@
{-# INCLUDE <GL/gl.h> #-}
{-# INCLUDE <GL/glpng.h> #-}
-{-# LINE 1 "GLPng.chs" #-}
+{-# LINE 1 "Bindings/GLPng.hsc" #-}
{-# LANGUAGE ForeignFunctionInterface, DeriveDataTypeable #-}
-{-# LINE 2 "GLPng.chs" #-}
+{-# LINE 2 "Bindings/GLPng.hsc" #-}
module Bindings.GLPng ( PngInfo(..)
, Mipmap(..)
@@ -22,9 +22,9 @@ import Graphics.Rendering.OpenGL.GL.Texturing.Parameters (Repetition(..), Clampi
-{-# LINE 21 "GLPng.chs" #-}
+{-# LINE 21 "Bindings/GLPng.hsc" #-}
-{-# LINE 22 "GLPng.chs" #-}
+{-# LINE 22 "Bindings/GLPng.hsc" #-}
data PngInfo = PngInfo
@@ -36,45 +36,45 @@ data PngInfo = PngInfo
instance Storable PngInfo where
sizeOf _ = ((16))
-{-# LINE 33 "GLPng.chs" #-}
+{-# LINE 33 "Bindings/GLPng.hsc" #-}
alignment _ = alignment (undefined :: CUInt)
peek pi = do
w <- ((\hsc_ptr -> peekByteOff hsc_ptr 0)) pi
-{-# LINE 37 "GLPng.chs" #-}
+{-# LINE 37 "Bindings/GLPng.hsc" #-}
h <- ((\hsc_ptr -> peekByteOff hsc_ptr 4)) pi
-{-# LINE 38 "GLPng.chs" #-}
+{-# LINE 38 "Bindings/GLPng.hsc" #-}
d <- ((\hsc_ptr -> peekByteOff hsc_ptr 8)) pi
-{-# LINE 39 "GLPng.chs" #-}
+{-# LINE 39 "Bindings/GLPng.hsc" #-}
a <- ((\hsc_ptr -> peekByteOff hsc_ptr 12)) pi
-{-# LINE 40 "GLPng.chs" #-}
+{-# LINE 40 "Bindings/GLPng.hsc" #-}
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" #-}
+{-# LINE 45 "Bindings/GLPng.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 4)) pi h
-{-# LINE 46 "GLPng.chs" #-}
+{-# LINE 46 "Bindings/GLPng.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 8)) pi d
-{-# LINE 47 "GLPng.chs" #-}
+{-# LINE 47 "Bindings/GLPng.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 12)) pi a
-{-# LINE 48 "GLPng.chs" #-}
+{-# LINE 48 "Bindings/GLPng.hsc" #-}
png_NoMipmap :: CInt
png_NoMipmap = (0)
-{-# LINE 54 "GLPng.chs" #-}
+{-# LINE 54 "Bindings/GLPng.hsc" #-}
png_BuildMipmap :: CInt
png_BuildMipmap = (-1)
-{-# LINE 57 "GLPng.chs" #-}
+{-# LINE 57 "Bindings/GLPng.hsc" #-}
png_SimpleMipmap :: CInt
png_SimpleMipmap = (-2)
-{-# LINE 60 "GLPng.chs" #-}
+{-# LINE 60 "Bindings/GLPng.hsc" #-}
data Mipmap = NoMipmap | BuildMipmap | SimpleMipmap
@@ -89,11 +89,11 @@ marshalMipmap m
png_Alpha :: CInt
png_Alpha = (-2)
-{-# LINE 74 "GLPng.chs" #-}
+{-# LINE 74 "Bindings/GLPng.hsc" #-}
png_Solid :: CInt
png_Solid = (-1)
-{-# LINE 77 "GLPng.chs" #-}
+{-# LINE 77 "Bindings/GLPng.hsc" #-}
data Trans = Alpha | Solid
deriving (Eq, Show)
@@ -110,27 +110,27 @@ magToMin magFilter = (magFilter, Nothing)
gl_NEAREST :: CInt
gl_NEAREST = (9728)
-{-# LINE 93 "GLPng.chs" #-}
+{-# LINE 93 "Bindings/GLPng.hsc" #-}
gl_LINEAR :: CInt
gl_LINEAR = (9729)
-{-# LINE 96 "GLPng.chs" #-}
+{-# LINE 96 "Bindings/GLPng.hsc" #-}
gl_NEAREST_MIPMAP_NEAREST :: CInt
gl_NEAREST_MIPMAP_NEAREST = (9984)
-{-# LINE 99 "GLPng.chs" #-}
+{-# LINE 99 "Bindings/GLPng.hsc" #-}
gl_LINEAR_MIPMAP_NEAREST :: CInt
gl_LINEAR_MIPMAP_NEAREST = (9985)
-{-# LINE 102 "GLPng.chs" #-}
+{-# LINE 102 "Bindings/GLPng.hsc" #-}
gl_NEAREST_MIPMAP_LINEAR :: CInt
gl_NEAREST_MIPMAP_LINEAR = (9986)
-{-# LINE 105 "GLPng.chs" #-}
+{-# LINE 105 "Bindings/GLPng.hsc" #-}
gl_LINEAR_MIPMAP_LINEAR :: CInt
gl_LINEAR_MIPMAP_LINEAR = (9987)
-{-# LINE 108 "GLPng.chs" #-}
+{-# LINE 108 "Bindings/GLPng.hsc" #-}
marshalMinificationFilter :: MinificationFilter -> CInt
@@ -148,23 +148,23 @@ marshalMagnificationFilter = marshalMinificationFilter . magToMin
gl_CLAMP :: CInt
gl_CLAMP = (10496)
-{-# LINE 125 "GLPng.chs" #-}
+{-# LINE 125 "Bindings/GLPng.hsc" #-}
gl_REPEAT :: CInt
gl_REPEAT = (10497)
-{-# LINE 128 "GLPng.chs" #-}
+{-# LINE 128 "Bindings/GLPng.hsc" #-}
gl_CLAMP_TO_EDGE :: CInt
gl_CLAMP_TO_EDGE = (33071)
-{-# LINE 131 "GLPng.chs" #-}
+{-# LINE 131 "Bindings/GLPng.hsc" #-}
gl_CLAMP_TO_BORDER :: CInt
gl_CLAMP_TO_BORDER = (33069)
-{-# LINE 134 "GLPng.chs" #-}
+{-# LINE 134 "Bindings/GLPng.hsc" #-}
gl_MIRRORED_REPEAT :: CInt
gl_MIRRORED_REPEAT = (33648)
-{-# LINE 137 "GLPng.chs" #-}
+{-# LINE 137 "Bindings/GLPng.hsc" #-}
marshalTextureWrapMode :: (Repetition, Clamping) -> CInt