TextureRange.hs

-- This file was automatically generated.
{-# LANGUAGE ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Raw.Extension.APPLE.TextureRange (
  -- * Extension Support
    gl_APPLE_texture_range

  -- * GL_APPLE_texture_range
  , glGetTexParameterPointervAPPLE
  , glTextureRangeAPPLE
  , pattern GL_STORAGE_CACHED_APPLE
  , pattern GL_STORAGE_PRIVATE_APPLE
  , pattern GL_STORAGE_SHARED_APPLE
  , pattern GL_TEXTURE_RANGE_LENGTH_APPLE
  , pattern GL_TEXTURE_RANGE_POINTER_APPLE
  , pattern GL_TEXTURE_STORAGE_HINT_APPLE
) 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

gl_APPLE_texture_range :: Bool
gl_APPLE_texture_range = member "GL_APPLE_texture_range" extensions

glGetTexParameterPointervAPPLE :: MonadIO m => GLenum -> GLenum -> Ptr () -> m ()
glGetTexParameterPointervAPPLE = ffienumenumPtrVIOV glGetTexParameterPointervAPPLEFunPtr

glGetTexParameterPointervAPPLEFunPtr :: FunPtr (GLenum -> GLenum -> Ptr () -> IO ())
glGetTexParameterPointervAPPLEFunPtr = unsafePerformIO (getProcAddress "glGetTexParameterPointervAPPLE")

{-# NOINLINE glGetTexParameterPointervAPPLEFunPtr #-}

glTextureRangeAPPLE :: MonadIO m => GLenum -> GLsizei -> Ptr () -> m ()
glTextureRangeAPPLE = ffienumsizeiPtrVIOV glTextureRangeAPPLEFunPtr

glTextureRangeAPPLEFunPtr :: FunPtr (GLenum -> GLsizei -> Ptr () -> IO ())
glTextureRangeAPPLEFunPtr = unsafePerformIO (getProcAddress "glTextureRangeAPPLE")

{-# NOINLINE glTextureRangeAPPLEFunPtr #-}

pattern GL_STORAGE_PRIVATE_APPLE = 0x85BD

pattern GL_TEXTURE_RANGE_LENGTH_APPLE = 0x85B7

pattern GL_TEXTURE_RANGE_POINTER_APPLE = 0x85B8

pattern GL_TEXTURE_STORAGE_HINT_APPLE = 0x85BC