{-# LANGUAGE CPP, ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Ext.APPLE.CopyTextureLevels (
gl_APPLE_copy_texture_levels
, glCopyTextureLevelsAPPLE
) 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.Types
import System.IO.Unsafe
gl_APPLE_copy_texture_levels :: Bool
gl_APPLE_copy_texture_levels :: Bool
gl_APPLE_copy_texture_levels = [Char] -> Set [Char] -> Bool
forall a. Ord a => a -> Set a -> Bool
member "GL_APPLE_copy_texture_levels" Set [Char]
extensions
{-# NOINLINE gl_APPLE_copy_texture_levels #-}
glCopyTextureLevelsAPPLE :: MonadIO m => GLuint -> GLuint -> GLint -> GLsizei -> m ()
glCopyTextureLevelsAPPLE :: GLuint -> GLuint -> GLint -> GLint -> m ()
glCopyTextureLevelsAPPLE = FunPtr (GLuint -> GLuint -> GLint -> GLint -> IO ())
-> GLuint -> GLuint -> GLint -> GLint -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLuint -> GLuint -> GLint -> GLint -> IO ())
-> GLuint -> GLuint -> GLint -> GLint -> m ()
ffiuintuintintsizeiIOV FunPtr (GLuint -> GLuint -> GLint -> GLint -> IO ())
glCopyTextureLevelsAPPLEFunPtr
glCopyTextureLevelsAPPLEFunPtr :: FunPtr (GLuint -> GLuint -> GLint -> GLsizei -> IO ())
glCopyTextureLevelsAPPLEFunPtr :: FunPtr (GLuint -> GLuint -> GLint -> GLint -> IO ())
glCopyTextureLevelsAPPLEFunPtr = IO (FunPtr (GLuint -> GLuint -> GLint -> GLint -> IO ()))
-> FunPtr (GLuint -> GLuint -> GLint -> GLint -> IO ())
forall a. IO a -> a
unsafePerformIO ([Char] -> IO (FunPtr (GLuint -> GLuint -> GLint -> GLint -> IO ()))
forall a. [Char] -> IO (FunPtr a)
getProcAddress "glCopyTextureLevelsAPPLE")
{-# NOINLINE glCopyTextureLevelsAPPLEFunPtr #-}