{-# LANGUAGE CPP, ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Ext.SGIX.TagSampleBuffer (
gl_SGIX_tag_sample_buffer
, glTagSampleBufferSGIX
) where
import Control.Monad.IO.Class
import Data.Set
import Foreign.Ptr
import Graphics.GL.Internal.FFI
import Graphics.GL.Internal.Proc
import System.IO.Unsafe
gl_SGIX_tag_sample_buffer :: Bool
gl_SGIX_tag_sample_buffer = member "GL_SGIX_tag_sample_buffer" extensions
{-# NOINLINE gl_SGIX_tag_sample_buffer #-}
glTagSampleBufferSGIX :: MonadIO m => m ()
glTagSampleBufferSGIX = ffiIOV glTagSampleBufferSGIXFunPtr
glTagSampleBufferSGIXFunPtr :: FunPtr (IO ())
glTagSampleBufferSGIXFunPtr = unsafePerformIO (getProcAddress "glTagSampleBufferSGIX")
{-# NOINLINE glTagSampleBufferSGIXFunPtr #-}