lib/opengl-sun_triangle_list.lisp

   1
   2 (in-package #:gl)
   3
   4 ;;;; SUN_triangle_list
   5
   6 (defconstant +restart-sun+ #x1)
   7 (defconstant +replace-middle-sun+ #x2)
   8 (defconstant +replace-oldest-sun+ #x3)
   9 (defconstant +triangle-list-sun+ #x81D7)
  10 (defconstant +replacement-code-sun+ #x81D8)
  11 (defconstant +replacement-code-array-sun+ #x85C0)
  12 (defconstant +replacement-code-array-type-sun+ #x85C1)
  13 (defconstant +replacement-code-array-stride-sun+ #x85C2)
  14 (defconstant +replacement-code-array-pointer-sun+ #x85C3)
  15 (defconstant +r1ui-v3f-sun+ #x85C4)
  16 (defconstant +r1ui-c4ub-v3f-sun+ #x85C5)
  17 (defconstant +r1ui-c3f-v3f-sun+ #x85C6)
  18 (defconstant +r1ui-n3f-v3f-sun+ #x85C7)
  19 (defconstant +r1ui-c4f-n3f-v3f-sun+ #x85C8)
  20 (defconstant +r1ui-t2f-v3f-sun+ #x85C9)
  21 (defconstant +r1ui-t2f-n3f-v3f-sun+ #x85CA)
  22 (defconstant +r1ui-t2f-c4f-n3f-v3f-sun+ #x85CB)
  23 (defglextfun
  24  (("ReplacementCodePointerSUN" replacement-code-pointer-sun) :args
  25   ((:name |type| :type |ReplacementCodeTypeSUN| :direction :in)
  26    (:name |stride| :type |SizeI| :direction :in)
  27    (:name |pointer| :type |VoidPointer| :direction :in :array t :size
  28     (|type| |stride|) :retained t))
  29   :return ("void") :category ("SUN_triangle_list") :version ("1.1") :glxropcode
  30   ("?") :glsflags ("ignore") :offset ("?")))
  31 (defglextfun
  32  (("ReplacementCodeubvSUN" replacement-code-ubv-sun) :args
  33   ((:name |code| :type |UInt8| :direction :in :array t)) :return ("void")
  34   :category ("SUN_triangle_list") :version ("1.1") :glxropcode ("?") :glsflags
  35   ("ignore") :offset ("?")))
  36 (defglextfun
  37  (("ReplacementCodeusvSUN" replacement-code-usv-sun) :args
  38   ((:name |code| :type |UInt16| :direction :in :array t)) :return ("void")
  39   :category ("SUN_triangle_list") :version ("1.1") :glxropcode ("?") :glsflags
  40   ("ignore") :offset ("?")))
  41 (defglextfun
  42  (("ReplacementCodeuivSUN" replacement-code-uiv-sun) :args
  43   ((:name |code| :type |UInt32| :direction :in :array t)) :return ("void")
  44   :category ("SUN_triangle_list") :version ("1.1") :glxropcode ("?") :glsflags
  45   ("ignore") :offset ("?")))
  46 (defglextfun
  47  (("ReplacementCodeubSUN" replacement-code-ub-sun) :args
  48   ((:name |code| :type |UInt8| :direction :in)) :return ("void") :category
  49   ("SUN_triangle_list") :version ("1.1") :glxropcode ("?") :glsflags ("ignore")
  50   :offset ("?")))
  51 (defglextfun
  52  (("ReplacementCodeusSUN" replacement-code-us-sun) :args
  53   ((:name |code| :type |UInt16| :direction :in)) :return ("void") :category
  54   ("SUN_triangle_list") :version ("1.1") :glxropcode ("?") :glsflags ("ignore")
  55   :offset ("?")))
  56 (defglextfun
  57  (("ReplacementCodeuiSUN" replacement-code-ui-sun) :args
  58   ((:name |code| :type |UInt32| :direction :in)) :return ("void") :category
  59   ("SUN_triangle_list") :version ("1.1") :glxropcode ("?") :glsflags ("ignore")
  60   :offset ("?")))