{-# LANGUAGE CPP, ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Ext.EXT.TextureCompressionS3tc (
gl_EXT_texture_compression_s3tc
, pattern GL_COMPRESSED_RGBA_S3TC_DXT1_EXT
, pattern GL_COMPRESSED_RGBA_S3TC_DXT3_EXT
, pattern GL_COMPRESSED_RGBA_S3TC_DXT5_EXT
, pattern GL_COMPRESSED_RGB_S3TC_DXT1_EXT
) where
import Data.Set
import Graphics.GL.Internal.Proc
import Graphics.GL.Internal.Shared
gl_EXT_texture_compression_s3tc :: Bool
gl_EXT_texture_compression_s3tc :: Bool
gl_EXT_texture_compression_s3tc = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_compression_s3tc" Set String
extensions
{-# NOINLINE gl_EXT_texture_compression_s3tc #-}
pattern GL_COMPRESSED_RGBA_S3TC_DXT3_EXT :: (Eq a, Num a) => a
pattern $mGL_COMPRESSED_RGBA_S3TC_DXT3_EXT :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_COMPRESSED_RGBA_S3TC_DXT3_EXT :: forall a. (Eq a, Num a) => a
GL_COMPRESSED_RGBA_S3TC_DXT3_EXT = 0x83F2
pattern GL_COMPRESSED_RGBA_S3TC_DXT5_EXT :: (Eq a, Num a) => a
pattern $mGL_COMPRESSED_RGBA_S3TC_DXT5_EXT :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_COMPRESSED_RGBA_S3TC_DXT5_EXT :: forall a. (Eq a, Num a) => a
GL_COMPRESSED_RGBA_S3TC_DXT5_EXT = 0x83F3