module Data.Bitmap.OpenGL.CubeMap
(
CubeMapFace(..)
)
where
import Data.Bitmap.IO
import Data.Bitmap.OpenGL
import Graphics.Rendering.OpenGL
data CubeMapFace
= CubeFront
| CubeBack
| CubeTop
| CubeDown
| CubeLeft
| CubeRight
deriving (Eq,Ord,Show)
#if OPENGL_VERSION >= 29
target :: CubeMapFace -> TextureTargetCubeMapFace
#else
target :: CubeMapFace -> CubeMapTarget
#endif
target face = case face of
CubeRight -> TextureCubeMapPositiveX
CubeLeft -> TextureCubeMapNegativeX
CubeTop -> TextureCubeMapPositiveY
CubeDown -> TextureCubeMapNegativeY
CubeFront -> TextureCubeMapPositiveZ
CubeBack -> TextureCubeMapNegativeZ