lib/opengl-arb_texture_compression.lisp

   1
   2 (in-package #:gl)
   3
   4 ;;;; ARB_texture_compression
   5
   6 (defconstant +compressed-alpha-arb+ #x84E9)
   7 (defconstant +compressed-luminance-arb+ #x84EA)
   8 (defconstant +compressed-luminance-alpha-arb+ #x84EB)
   9 (defconstant +compressed-intensity-arb+ #x84EC)
  10 (defconstant +compressed-rgb-arb+ #x84ED)
  11 (defconstant +compressed-rgba-arb+ #x84EE)
  12 (defconstant +texture-compression-hint-arb+ #x84EF)
  13 (defconstant +texture-compressed-image-size-arb+ #x86A0)
  14 (defconstant +texture-compressed-arb+ #x86A1)
  15 (defconstant +num-compressed-texture-formats-arb+ #x86A2)
  16 (defconstant +compressed-texture-formats-arb+ #x86A3)
  17 (defglextfun
  18  (("GetCompressedTexImageARB" get-compressed-tex-image-arb) :args
  19   ((:name |target| :type |TextureTarget| :direction :in)
  20    (:name |level| :type |CheckedInt32| :direction :in)
  21    (:name |img| :type |CompressedTextureARB| :direction :out :array t :size
  22     (|target| |level|)))
  23   :return ("void") :category ("ARB_texture_compression") :dlflags
  24   ("notlistable") :glxflags ("ARB" "client-handcode" "server-handcode")
  25   :version ("1.2") :glxsingle ("160") :alias ("GetCompressedTexImage")
  26   :glsalias ("GetCompressedTexImage") :wglflags
  27   ("client-handcode" "server-handcode")))
  28 (defglextfun
  29  (("CompressedTexSubImage1DARB" compressed-tex-sub-image-1d-arb) :args
  30   ((:name |target| :type |TextureTarget| :direction :in)
  31    (:name |level| :type |CheckedInt32| :direction :in)
  32    (:name |xoffset| :type |CheckedInt32| :direction :in)
  33    (:name |width| :type |SizeI| :direction :in)
  34    (:name |format| :type |PixelFormat| :direction :in)
  35    (:name |imageSize| :type |SizeI| :direction :in)
  36    (:name |data| :type |CompressedTextureARB| :direction :in :array t :size
  37     imagesize))
  38   :return ("void") :category ("ARB_texture_compression") :dlflags ("handcode")
  39   :glxflags ("ARB" "client-handcode" "server-handcode") :version ("1.2")
  40   :glxropcode ("217") :alias ("CompressedTexSubImage1D") :glsalias
  41   ("CompressedTexSubImage1D") :wglflags ("client-handcode" "server-handcode")))
  42 (defglextfun
  43  (("CompressedTexSubImage2DARB" compressed-tex-sub-image-2d-arb) :args
  44   ((:name |target| :type |TextureTarget| :direction :in)
  45    (:name |level| :type |CheckedInt32| :direction :in)
  46    (:name |xoffset| :type |CheckedInt32| :direction :in)
  47    (:name |yoffset| :type |CheckedInt32| :direction :in)
  48    (:name |width| :type |SizeI| :direction :in)
  49    (:name |height| :type |SizeI| :direction :in)
  50    (:name |format| :type |PixelFormat| :direction :in)
  51    (:name |imageSize| :type |SizeI| :direction :in)
  52    (:name |data| :type |CompressedTextureARB| :direction :in :array t :size
  53     imagesize))
  54   :return ("void") :category ("ARB_texture_compression") :dlflags ("handcode")
  55   :glxflags ("ARB" "client-handcode" "server-handcode") :version ("1.2")
  56   :glxropcode ("218") :alias ("CompressedTexSubImage2D") :glsalias
  57   ("CompressedTexSubImage2D") :wglflags ("client-handcode" "server-handcode")))
  58 (defglextfun
  59  (("CompressedTexSubImage3DARB" compressed-tex-sub-image-3d-arb) :args
  60   ((:name |target| :type |TextureTarget| :direction :in)
  61    (:name |level| :type |CheckedInt32| :direction :in)
  62    (:name |xoffset| :type |CheckedInt32| :direction :in)
  63    (:name |yoffset| :type |CheckedInt32| :direction :in)
  64    (:name |zoffset| :type |CheckedInt32| :direction :in)
  65    (:name |width| :type |SizeI| :direction :in)
  66    (:name |height| :type |SizeI| :direction :in)
  67    (:name |depth| :type |SizeI| :direction :in)
  68    (:name |format| :type |PixelFormat| :direction :in)
  69    (:name |imageSize| :type |SizeI| :direction :in)
  70    (:name |data| :type |CompressedTextureARB| :direction :in :array t :size
  71     imagesize))
  72   :return ("void") :category ("ARB_texture_compression") :dlflags ("handcode")
  73   :glxflags ("ARB" "client-handcode" "server-handcode") :version ("1.2")
  74   :glxropcode ("219") :alias ("CompressedTexSubImage3D") :glsalias
  75   ("CompressedTexSubImage3D") :wglflags ("client-handcode" "server-handcode")))
  76 (defglextfun
  77  (("CompressedTexImage1DARB" compressed-tex-image-1d-arb) :args
  78   ((:name |target| :type |TextureTarget| :direction :in)
  79    (:name |level| :type |CheckedInt32| :direction :in)
  80    (:name |internalformat| :type |PixelInternalFormat| :direction :in)
  81    (:name |width| :type |SizeI| :direction :in)
  82    (:name |border| :type |CheckedInt32| :direction :in)
  83    (:name |imageSize| :type |SizeI| :direction :in)
  84    (:name |data| :type |CompressedTextureARB| :direction :in :array t :size
  85     imagesize))
  86   :return ("void") :category ("ARB_texture_compression") :dlflags ("handcode")
  87   :glxflags ("ARB" "client-handcode" "server-handcode") :version ("1.2")
  88   :glxropcode ("214") :alias ("CompressedTexImage1D") :glsalias
  89   ("CompressedTexImage1D") :wglflags ("client-handcode" "server-handcode")))
  90 (defglextfun
  91  (("CompressedTexImage2DARB" compressed-tex-image-2d-arb) :args
  92   ((:name |target| :type |TextureTarget| :direction :in)
  93    (:name |level| :type |CheckedInt32| :direction :in)
  94    (:name |internalformat| :type |PixelInternalFormat| :direction :in)
  95    (:name |width| :type |SizeI| :direction :in)
  96    (:name |height| :type |SizeI| :direction :in)
  97    (:name |border| :type |CheckedInt32| :direction :in)
  98    (:name |imageSize| :type |SizeI| :direction :in)
  99    (:name |data| :type |CompressedTextureARB| :direction :in :array t :size
 100     imagesize))
 101   :return ("void") :category ("ARB_texture_compression") :dlflags ("handcode")
 102   :glxflags ("ARB" "client-handcode" "server-handcode") :version ("1.2")
 103   :glxropcode ("215") :alias ("CompressedTexImage2D") :glsalias
 104   ("CompressedTexImage2D") :wglflags ("client-handcode" "server-handcode")))
 105 (defglextfun
 106  (("CompressedTexImage3DARB" compressed-tex-image-3d-arb) :args
 107   ((:name |target| :type |TextureTarget| :direction :in)
 108    (:name |level| :type |CheckedInt32| :direction :in)
 109    (:name |internalformat| :type |PixelInternalFormat| :direction :in)
 110    (:name |width| :type |SizeI| :direction :in)
 111    (:name |height| :type |SizeI| :direction :in)
 112    (:name |depth| :type |SizeI| :direction :in)
 113    (:name |border| :type |CheckedInt32| :direction :in)
 114    (:name |imageSize| :type |SizeI| :direction :in)
 115    (:name |data| :type |CompressedTextureARB| :direction :in :array t :size
 116     imagesize))
 117   :return ("void") :category ("ARB_texture_compression") :dlflags ("handcode")
 118   :glxflags ("ARB" "client-handcode" "server-handcode") :version ("1.2")
 119   :glxropcode ("216") :alias ("CompressedTexImage3D") :glsalias
 120   ("CompressedTexImage3D") :wglflags ("client-handcode" "server-handcode")))