-- This file was automatically generated.
{-# LANGUAGE CPP, ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Ext.APPLE.CopyTextureLevels (
  -- * Extension Support
    gl_APPLE_copy_texture_levels

  -- * 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

-- | Checks that the <https://www.khronos.org/registry/gles/extensions/APPLE/APPLE_copy_texture_levels.txt GL_APPLE_copy_texture_levels> extension is available.

gl_APPLE_copy_texture_levels :: Bool
gl_APPLE_copy_texture_levels :: Bool
gl_APPLE_copy_texture_levels = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_copy_texture_levels" Set String
extensions
{-# NOINLINE gl_APPLE_copy_texture_levels #-}

-- | Usage: @'glCopyTextureLevelsAPPLE' destinationTexture sourceTexture sourceBaseLevel sourceLevelCount@


glCopyTextureLevelsAPPLE :: MonadIO m => GLuint -> GLuint -> GLint -> GLsizei -> m ()
glCopyTextureLevelsAPPLE :: forall (m :: * -> *).
MonadIO m =>
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 (String -> IO (FunPtr (GLuint -> GLuint -> GLint -> GLint -> IO ()))
forall a. String -> IO (FunPtr a)
getProcAddress String
"glCopyTextureLevelsAPPLE")

{-# NOINLINE glCopyTextureLevelsAPPLEFunPtr #-}