-- This file was automatically generated. {-# LANGUAGE ScopedTypeVariables, PatternSynonyms #-} module Graphics.GL.Raw.Extension.EXT.FogCoord ( -- * Extension Support gl_EXT_fog_coord -- * GL_EXT_fog_coord , glFogCoordPointerEXT , glFogCoorddEXT , glFogCoorddvEXT , glFogCoordfEXT , glFogCoordfvEXT , pattern GL_CURRENT_FOG_COORDINATE_EXT , pattern GL_FOG_COORDINATE_ARRAY_EXT , pattern GL_FOG_COORDINATE_ARRAY_POINTER_EXT , pattern GL_FOG_COORDINATE_ARRAY_STRIDE_EXT , pattern GL_FOG_COORDINATE_ARRAY_TYPE_EXT , pattern GL_FOG_COORDINATE_EXT , pattern GL_FOG_COORDINATE_SOURCE_EXT , pattern GL_FRAGMENT_DEPTH_EXT ) where import Control.Monad.IO.Class import Data.Set import Foreign.Ptr import Graphics.GL.Raw.Internal.FFI import Graphics.GL.Raw.Internal.Proc import Graphics.GL.Raw.Internal.Shared import Graphics.GL.Raw.Types import System.IO.Unsafe -- | Checks that the extension is available. gl_EXT_fog_coord :: Bool gl_EXT_fog_coord = member "GL_EXT_fog_coord" extensions {-# NOINLINE gl_EXT_fog_coord #-} -- | Usage: @'glFogCoordPointerEXT' type stride pointer@ -- -- The parameter @type@ is a @FogPointerTypeEXT@, one of: 'Graphics.GL.Raw.Internal.Shared.GL_FLOAT', 'Graphics.GL.Raw.Internal.Shared.GL_DOUBLE'. -- -- The length of @pointer@ should be @COMPSIZE(type,stride)@. -- -- This command is an alias for 'Graphics.GL.Raw.Internal.Shared.glFogCoordPointer'. glFogCoordPointerEXT :: MonadIO m => GLenum -> GLsizei -> Ptr () -> m () glFogCoordPointerEXT = ffienumsizeiPtrVIOV glFogCoordPointerEXTFunPtr glFogCoordPointerEXTFunPtr :: FunPtr (GLenum -> GLsizei -> Ptr () -> IO ()) glFogCoordPointerEXTFunPtr = unsafePerformIO (getProcAddress "glFogCoordPointerEXT") {-# NOINLINE glFogCoordPointerEXTFunPtr #-} -- | Usage: @'glFogCoorddEXT' coord@ -- -- The parameter @coord@ is a @CoordD@. -- -- This command is an alias for 'Graphics.GL.Raw.Internal.Shared.glFogCoordd'. -- -- The vector equivalent of this command is 'Graphics.GL.Raw.Extension.EXT.FogCoord.glFogCoorddvEXT'. glFogCoorddEXT :: MonadIO m => GLdouble -> m () glFogCoorddEXT = ffidoubleIOV glFogCoorddEXTFunPtr glFogCoorddEXTFunPtr :: FunPtr (GLdouble -> IO ()) glFogCoorddEXTFunPtr = unsafePerformIO (getProcAddress "glFogCoorddEXT") {-# NOINLINE glFogCoorddEXTFunPtr #-} -- | Usage: @'glFogCoorddvEXT' coord@ -- -- The parameter @coord@ is a @CoordD@. -- -- The length of @coord@ should be @1@. -- -- This command is an alias for 'Graphics.GL.Raw.Internal.Shared.glFogCoorddv'. glFogCoorddvEXT :: MonadIO m => Ptr GLdouble -> m () glFogCoorddvEXT = ffiPtrdoubleIOV glFogCoorddvEXTFunPtr glFogCoorddvEXTFunPtr :: FunPtr (Ptr GLdouble -> IO ()) glFogCoorddvEXTFunPtr = unsafePerformIO (getProcAddress "glFogCoorddvEXT") {-# NOINLINE glFogCoorddvEXTFunPtr #-} -- | Usage: @'glFogCoordfEXT' coord@ -- -- The parameter @coord@ is a @CoordF@. -- -- This command is an alias for 'Graphics.GL.Raw.Internal.Shared.glFogCoordf'. -- -- The vector equivalent of this command is 'Graphics.GL.Raw.Extension.EXT.FogCoord.glFogCoordfvEXT'. glFogCoordfEXT :: MonadIO m => GLfloat -> m () glFogCoordfEXT = ffifloatIOV glFogCoordfEXTFunPtr glFogCoordfEXTFunPtr :: FunPtr (GLfloat -> IO ()) glFogCoordfEXTFunPtr = unsafePerformIO (getProcAddress "glFogCoordfEXT") {-# NOINLINE glFogCoordfEXTFunPtr #-} -- | Usage: @'glFogCoordfvEXT' coord@ -- -- The parameter @coord@ is a @CoordF@. -- -- The length of @coord@ should be @1@. -- -- This command is an alias for 'Graphics.GL.Raw.Internal.Shared.glFogCoordfv'. glFogCoordfvEXT :: MonadIO m => Ptr GLfloat -> m () glFogCoordfvEXT = ffiPtrfloatIOV glFogCoordfvEXTFunPtr glFogCoordfvEXTFunPtr :: FunPtr (Ptr GLfloat -> IO ()) glFogCoordfvEXTFunPtr = unsafePerformIO (getProcAddress "glFogCoordfvEXT") {-# NOINLINE glFogCoordfvEXTFunPtr #-} pattern GL_CURRENT_FOG_COORDINATE_EXT = 0x8453 pattern GL_FOG_COORDINATE_ARRAY_EXT = 0x8457 pattern GL_FOG_COORDINATE_ARRAY_POINTER_EXT = 0x8456 pattern GL_FOG_COORDINATE_ARRAY_STRIDE_EXT = 0x8455 pattern GL_FOG_COORDINATE_ARRAY_TYPE_EXT = 0x8454 pattern GL_FOG_COORDINATE_EXT = 0x8451 pattern GL_FOG_COORDINATE_SOURCE_EXT = 0x8450