{-# LANGUAGE CPP, ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Ext.SGIX.FlushRaster (
gl_SGIX_flush_raster
, glFlushRasterSGIX
) 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_flush_raster :: Bool
gl_SGIX_flush_raster = member "GL_SGIX_flush_raster" extensions
{-# NOINLINE gl_SGIX_flush_raster #-}
glFlushRasterSGIX :: MonadIO m => m ()
glFlushRasterSGIX = ffiIOV glFlushRasterSGIXFunPtr
glFlushRasterSGIXFunPtr :: FunPtr (IO ())
glFlushRasterSGIXFunPtr = unsafePerformIO (getProcAddress "glFlushRasterSGIX")
{-# NOINLINE glFlushRasterSGIXFunPtr #-}