lib/opengl-ati_vertex_array_object.lisp

   1
   2 (in-package #:gl)
   3
   4 ;;;; ATI_vertex_array_object
   5
   6 (defconstant +static-ati+ #x8760)
   7 (defconstant +dynamic-ati+ #x8761)
   8 (defconstant +preserve-ati+ #x8762)
   9 (defconstant +discard-ati+ #x8763)
  10 (defconstant +object-buffer-size-ati+ #x8764)
  11 (defconstant +object-buffer-usage-ati+ #x8765)
  12 (defconstant +array-object-buffer-ati+ #x8766)
  13 (defconstant +array-object-offset-ati+ #x8767)
  14 (defglextfun
  15  (("GetVariantArrayObjectivATI" get-variant-array-object-iv-ati) :args
  16   ((:name |id| :type |UInt32| :direction :in)
  17    (:name |pname| :type |ArrayObjectPNameATI| :direction :in)
  18    (:name |params| :type |Int32| :direction :out :array t :size #x1))
  19   :return ("void") :category ("ATI_vertex_array_object") :dlflags
  20   ("notlistable") :version ("1.2") :extension nil :glxsingle ("?") :glxflags
  21   ("ignore") :glsflags ("ignore" "get") :offset ("?")))
  22 (defglextfun
  23  (("GetVariantArrayObjectfvATI" get-variant-array-object-fv-ati) :args
  24   ((:name |id| :type |UInt32| :direction :in)
  25    (:name |pname| :type |ArrayObjectPNameATI| :direction :in)
  26    (:name |params| :type |Float32| :direction :out :array t :size #x1))
  27   :return ("void") :category ("ATI_vertex_array_object") :dlflags
  28   ("notlistable") :version ("1.2") :extension nil :glxsingle ("?") :glxflags
  29   ("ignore") :glsflags ("ignore" "get") :offset ("?")))
  30 (defglextfun
  31  (("VariantArrayObjectATI" variant-array-object-ati) :args
  32   ((:name |id| :type |UInt32| :direction :in)
  33    (:name |type| :type |ScalarType| :direction :in)
  34    (:name |stride| :type |SizeI| :direction :in)
  35    (:name |buffer| :type |UInt32| :direction :in)
  36    (:name |offset| :type |UInt32| :direction :in))
  37   :return ("void") :category ("ATI_vertex_array_object") :version ("1.2")
  38   :extension nil :glxropcode ("?") :glxflags ("ignore") :glsflags ("ignore")
  39   :offset ("?")))
  40 (defglextfun
  41  (("GetArrayObjectivATI" get-array-object-iv-ati) :args
  42   ((:name |array| :type |EnableCap| :direction :in)
  43    (:name |pname| :type |ArrayObjectPNameATI| :direction :in)
  44    (:name |params| :type |Int32| :direction :out :array t :size #x1))
  45   :return ("void") :category ("ATI_vertex_array_object") :dlflags
  46   ("notlistable") :version ("1.2") :extension nil :glxsingle ("?") :glxflags
  47   ("ignore") :glsflags ("ignore" "get") :offset ("?")))
  48 (defglextfun
  49  (("GetArrayObjectfvATI" get-array-object-fv-ati) :args
  50   ((:name |array| :type |EnableCap| :direction :in)
  51    (:name |pname| :type |ArrayObjectPNameATI| :direction :in)
  52    (:name |params| :type |Float32| :direction :out :array t :size #x1))
  53   :return ("void") :category ("ATI_vertex_array_object") :dlflags
  54   ("notlistable") :version ("1.2") :extension nil :glxsingle ("?") :glxflags
  55   ("ignore") :glsflags ("ignore" "get") :offset ("?")))
  56 (defglextfun
  57  (("ArrayObjectATI" array-object-ati) :args
  58   ((:name |array| :type |EnableCap| :direction :in)
  59    (:name |size| :type |Int32| :direction :in)
  60    (:name |type| :type |ScalarType| :direction :in)
  61    (:name |stride| :type |SizeI| :direction :in)
  62    (:name |buffer| :type |UInt32| :direction :in)
  63    (:name |offset| :type |UInt32| :direction :in))
  64   :return ("void") :category ("ATI_vertex_array_object") :version ("1.2")
  65   :extension nil :glxropcode ("?") :glxflags ("ignore") :glsflags ("ignore")
  66   :offset ("?")))
  67 (defglextfun
  68  (("FreeObjectBufferATI" free-object-buffer-ati) :args
  69   ((:name |buffer| :type |UInt32| :direction :in)) :return ("void") :category
  70   ("ATI_vertex_array_object") :version ("1.2") :extension nil :glxropcode ("?")
  71   :glxflags ("ignore") :glsflags ("ignore") :offset ("?")))
  72 (defglextfun
  73  (("GetObjectBufferivATI" get-object-buffer-iv-ati) :args
  74   ((:name |buffer| :type |UInt32| :direction :in)
  75    (:name |pname| :type |ArrayObjectPNameATI| :direction :in)
  76    (:name |params| :type |Int32| :direction :out :array t :size #x1))
  77   :return ("void") :category ("ATI_vertex_array_object") :dlflags
  78   ("notlistable") :version ("1.2") :extension nil :glxsingle ("?") :glxflags
  79   ("ignore") :glsflags ("ignore" "get") :offset ("?")))
  80 (defglextfun
  81  (("GetObjectBufferfvATI" get-object-buffer-fv-ati) :args
  82   ((:name |buffer| :type |UInt32| :direction :in)
  83    (:name |pname| :type |ArrayObjectPNameATI| :direction :in)
  84    (:name |params| :type |Float32| :direction :out :array t :size #x1))
  85   :return ("void") :category ("ATI_vertex_array_object") :dlflags
  86   ("notlistable") :version ("1.2") :extension nil :glxsingle ("?") :glxflags
  87   ("ignore") :glsflags ("ignore" "get") :offset ("?")))
  88 (defglextfun
  89  (("UpdateObjectBufferATI" update-object-buffer-ati) :args
  90   ((:name |buffer| :type |UInt32| :direction :in)
  91    (:name |offset| :type |UInt32| :direction :in)
  92    (:name |size| :type |SizeI| :direction :in)
  93    (:name |pointer| :type |ConstVoid| :direction :in :array t :size size)
  94    (:name |preserve| :type |PreserveModeATI| :direction :in))
  95   :return ("void") :category ("ATI_vertex_array_object") :version ("1.2")
  96   :extension nil :glxropcode ("?") :glxflags ("ignore") :glsflags ("ignore")
  97   :offset ("?")))
  98 (defglextfun
  99  (("IsObjectBufferATI" is-object-buffer-ati) :args
 100   ((:name |buffer| :type |UInt32| :direction :in)) :return ("Boolean")
 101   :category ("ATI_vertex_array_object") :version ("1.2") :extension nil
 102   :glxropcode ("?") :glxflags ("ignore") :glsflags ("ignore" "get") :offset
 103   ("?")))
 104 (defglextfun
 105  (("NewObjectBufferATI" new-object-buffer-ati) :args
 106   ((:name |size| :type |SizeI| :direction :in)
 107    (:name |pointer| :type |ConstVoid| :direction :in :array t :size size)
 108    (:name |usage| :type |ArrayObjectUsageATI| :direction :in))
 109   :return ("UInt32") :category ("ATI_vertex_array_object") :version ("1.2")
 110   :extension nil :glxropcode ("?") :glxflags ("ignore") :glsflags ("ignore")
 111   :offset ("?")))