lib/opengl-ext_paletted_texture.lisp

   1
   2 (in-package #:gl)
   3
   4 ;;;; EXT_paletted_texture
   5
   6 (defconstant +color-index1-ext+ #x80E2)
   7 (defconstant +color-index2-ext+ #x80E3)
   8 (defconstant +color-index4-ext+ #x80E4)
   9 (defconstant +color-index8-ext+ #x80E5)
  10 (defconstant +color-index12-ext+ #x80E6)
  11 (defconstant +color-index16-ext+ #x80E7)
  12 (defconstant +texture-index-size-ext+ #x80ED)
  13 (defglextfun
  14  (("GetColorTableParameterfvEXT" get-color-table-parameter-fv-ext) :args
  15   ((:name |target| :type |ColorTableTarget| :direction :in)
  16    (:name |pname| :type |GetColorTableParameterPName| :direction :in)
  17    (:name |params| :type |Float32| :direction :out :array t :size (|pname|)))
  18   :return ("void") :category ("EXT_paletted_texture") :version ("1.1") :offset
  19   ("552") :glsalias ("GetColorTableParameterfv")))
  20 (defglextfun
  21  (("GetColorTableParameterivEXT" get-color-table-parameter-iv-ext) :args
  22   ((:name |target| :type |ColorTableTarget| :direction :in)
  23    (:name |pname| :type |GetColorTableParameterPName| :direction :in)
  24    (:name |params| :type |Int32| :direction :out :array t :size (|pname|)))
  25   :return ("void") :category ("EXT_paletted_texture") :version ("1.1") :offset
  26   ("551") :glsalias ("GetColorTableParameteriv")))
  27 (defglextfun
  28  (("GetColorTableEXT" get-color-table-ext) :args
  29   ((:name |target| :type |ColorTableTarget| :direction :in)
  30    (:name |format| :type |PixelFormat| :direction :in)
  31    (:name |type| :type |PixelType| :direction :in)
  32    (:name |data| :type |Void| :direction :out :array t :size
  33     (|target| |format| |type|)))
  34   :return ("void") :category ("EXT_paletted_texture") :version ("1.1") :offset
  35   ("550") :glsalias ("GetColorTable")))
  36 (defglextfun
  37  (("ColorTableEXT" color-table-ext) :args
  38   ((:name |target| :type |ColorTableTarget| :direction :in)
  39    (:name |internalFormat| :type |PixelInternalFormat| :direction :in)
  40    (:name |width| :type |SizeI| :direction :in)
  41    (:name |format| :type |PixelFormat| :direction :in)
  42    (:name |type| :type |PixelType| :direction :in)
  43    (:name |table| :type |Void| :direction :in :array t :size
  44     (|format| |type| |width|)))
  45   :return ("void") :category ("EXT_paletted_texture") :version ("1.1") :alias
  46   ("ColorTable") :glsalias ("ColorTable")))