module Graphics.GL.Low.ImageFormat where
import Graphics.GL
import Graphics.GL.Low.Classes
data Alpha = Alpha deriving Show
data Luminance = Luminance deriving Show
data LuminanceAlpha = Luminancealpha deriving Show
data RGB = RGB deriving Show
data RGBA = RGBA deriving Show
data Depth24 = Depth24 deriving Show
data Depth24Stencil8 = Depth24Stencil8 deriving Show
instance InternalFormat RGB where
internalFormat _ = GL_RGB8
instance InternalFormat RGBA where
internalFormat _ = GL_RGBA
instance InternalFormat Alpha where
internalFormat _ = GL_ALPHA
instance InternalFormat Luminance where
internalFormat _ = GL_LUMINANCE
instance InternalFormat LuminanceAlpha where
internalFormat _ = GL_LUMINANCE_ALPHA
instance InternalFormat Depth24 where
internalFormat _ = GL_DEPTH_COMPONENT24
instance InternalFormat Depth24Stencil8 where
internalFormat _ = GL_DEPTH24_STENCIL8
instance Attachable RGB where
attachPoint _ = GL_COLOR_ATTACHMENT0
instance Attachable RGBA where
attachPoint _ = GL_COLOR_ATTACHMENT0
instance Attachable Luminance where
attachPoint _ = GL_COLOR_ATTACHMENT0
instance Attachable LuminanceAlpha where
attachPoint _ = GL_COLOR_ATTACHMENT0
instance Attachable Alpha where
attachPoint _ = GL_COLOR_ATTACHMENT0
instance Attachable Depth24 where
attachPoint _ = GL_DEPTH_ATTACHMENT
instance Attachable Depth24Stencil8 where
attachPoint _ = GL_DEPTH_STENCIL_ATTACHMENT