module Graphics.GL.Ext.APPLE.TextureRange (
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.Internal.FFI
import Graphics.GL.Internal.Proc
import Graphics.GL.Internal.Shared
import Graphics.GL.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 (Ptr ()) -> m ()
glGetTexParameterPointervAPPLE = ffienumenumPtrPtrVIOV glGetTexParameterPointervAPPLEFunPtr
glGetTexParameterPointervAPPLEFunPtr :: FunPtr (GLenum -> GLenum -> Ptr (Ptr ()) -> IO ())
glGetTexParameterPointervAPPLEFunPtr = unsafePerformIO (getProcAddress "glGetTexParameterPointervAPPLE")
glTextureRangeAPPLE :: MonadIO m => GLenum -> GLsizei -> Ptr () -> m ()
glTextureRangeAPPLE = ffienumsizeiPtrVIOV glTextureRangeAPPLEFunPtr
glTextureRangeAPPLEFunPtr :: FunPtr (GLenum -> GLsizei -> Ptr () -> IO ())
glTextureRangeAPPLEFunPtr = unsafePerformIO (getProcAddress "glTextureRangeAPPLE")
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