lib/opengl-arb_matrix_palette.lisp

   1
   2 (in-package #:gl)
   3
   4 ;;;; ARB_matrix_palette
   5
   6 (defconstant +matrix-palette-arb+ #x8840)
   7 (defconstant +max-matrix-palette-stack-depth-arb+ #x8841)
   8 (defconstant +max-palette-matrices-arb+ #x8842)
   9 (defconstant +current-palette-matrix-arb+ #x8843)
  10 (defconstant +matrix-index-array-arb+ #x8844)
  11 (defconstant +current-matrix-index-arb+ #x8845)
  12 (defconstant +matrix-index-array-size-arb+ #x8846)
  13 (defconstant +matrix-index-array-type-arb+ #x8847)
  14 (defconstant +matrix-index-array-stride-arb+ #x8848)
  15 (defconstant +matrix-index-array-pointer-arb+ #x8849)
  16 (defglextfun
  17  (("MatrixIndexPointerARB" matrix-index-pointer-arb) :args
  18   ((:name |size| :type |Int32| :direction :in)
  19    (:name |type| :type |MatrixIndexPointerTypeARB| :direction :in)
  20    (:name |stride| :type |SizeI| :direction :in)
  21    (:name |pointer| :type |Void| :direction :in :array t :size
  22     (|type| |stride|) :retained t))
  23   :return ("void") :category ("ARB_matrix_palette") :version ("1.1") :extension
  24   nil :dlflags ("notlistable") :glxflags ("ignore") :glsflags ("client")
  25   :glsopcode ("0x0214") :offset ("?")))
  26 (defglextfun
  27  (("MatrixIndexuivARB" matrix-index-uiv-arb) :args
  28   ((:name |size| :type |Int32| :direction :in)
  29    (:name |indices| :type |UInt32| :direction :in :array t :size size))
  30   :return ("void") :category ("ARB_matrix_palette") :version ("1.1") :extension
  31   nil :glxropcode ("4328") :glxflags ("ignore") :glsopcode ("0x0213") :offset
  32   ("?")))
  33 (defglextfun
  34  (("MatrixIndexusvARB" matrix-index-usv-arb) :args
  35   ((:name |size| :type |Int32| :direction :in)
  36    (:name |indices| :type |UInt16| :direction :in :array t :size size))
  37   :return ("void") :category ("ARB_matrix_palette") :version ("1.1") :extension
  38   nil :glxropcode ("4327") :glxflags ("ignore") :glsopcode ("0x0212") :offset
  39   ("?")))
  40 (defglextfun
  41  (("MatrixIndexubvARB" matrix-index-ubv-arb) :args
  42   ((:name |size| :type |Int32| :direction :in)
  43    (:name |indices| :type |UInt8| :direction :in :array t :size size))
  44   :return ("void") :category ("ARB_matrix_palette") :version ("1.1") :extension
  45   nil :glxropcode ("4326") :glxflags ("ignore") :glsopcode ("0x0211") :offset
  46   ("?")))
  47 (defglextfun
  48  (("CurrentPaletteMatrixARB" current-palette-matrix-arb) :args
  49   ((:name |index| :type |Int32| :direction :in)) :return ("void") :category
  50   ("ARB_matrix_palette") :version ("1.1") :extension nil :glxropcode ("4329")
  51   :glxflags ("ignore") :glsopcode ("0x0210") :offset ("?")))