lib/opengl-ibm_vertex_array_lists.lisp

   1
   2 (in-package #:gl)
   3
   4 ;;;; IBM_vertex_array_lists
   5
   6 (defconstant +vertex-array-list-ibm+ #x1929E)
   7 (defconstant +normal-array-list-ibm+ #x1929F)
   8 (defconstant +color-array-list-ibm+ #x192A0)
   9 (defconstant +index-array-list-ibm+ #x192A1)
  10 (defconstant +texture-coord-array-list-ibm+ #x192A2)
  11 (defconstant +edge-flag-array-list-ibm+ #x192A3)
  12 (defconstant +fog-coordinate-array-list-ibm+ #x192A4)
  13 (defconstant +secondary-color-array-list-ibm+ #x192A5)
  14 (defconstant +vertex-array-list-stride-ibm+ #x192A8)
  15 (defconstant +normal-array-list-stride-ibm+ #x192A9)
  16 (defconstant +color-array-list-stride-ibm+ #x192AA)
  17 (defconstant +index-array-list-stride-ibm+ #x192AB)
  18 (defconstant +texture-coord-array-list-stride-ibm+ #x192AC)
  19 (defconstant +edge-flag-array-list-stride-ibm+ #x192AD)
  20 (defconstant +fog-coordinate-array-list-stride-ibm+ #x192AE)
  21 (defconstant +secondary-color-array-list-stride-ibm+ #x192AF)
  22 (defglextfun
  23  (("VertexPointerListIBM" vertex-pointer-list-ibm) :args
  24   ((:name |size| :type |Int32| :direction :in)
  25    (:name |type| :type |VertexPointerType| :direction :in)
  26    (:name |stride| :type |Int32| :direction :in)
  27    (:name |pointer| :type |VoidPointer| :direction :in :array t :size
  28     (|size| |type| |stride|) :retained t)
  29    (:name |ptrstride| :type |Int32| :direction :in))
  30   :return ("void") :category ("IBM_vertex_array_lists") :version ("1.1")
  31   :glxropcode ("?") :glsflags ("ignore") :offset ("?")))
  32 (defglextfun
  33  (("TexCoordPointerListIBM" tex-coord-pointer-list-ibm) :args
  34   ((:name |size| :type |Int32| :direction :in)
  35    (:name |type| :type |TexCoordPointerType| :direction :in)
  36    (:name |stride| :type |Int32| :direction :in)
  37    (:name |pointer| :type |VoidPointer| :direction :in :array t :size
  38     (|size| |type| |stride|) :retained t)
  39    (:name |ptrstride| :type |Int32| :direction :in))
  40   :return ("void") :category ("IBM_vertex_array_lists") :version ("1.1")
  41   :glxropcode ("?") :glsflags ("ignore") :offset ("?")))
  42 (defglextfun
  43  (("NormalPointerListIBM" normal-pointer-list-ibm) :args
  44   ((:name |type| :type |NormalPointerType| :direction :in)
  45    (:name |stride| :type |Int32| :direction :in)
  46    (:name |pointer| :type |VoidPointer| :direction :in :array t :size
  47     (|type| |stride|) :retained t)
  48    (:name |ptrstride| :type |Int32| :direction :in))
  49   :return ("void") :category ("IBM_vertex_array_lists") :version ("1.1")
  50   :glxropcode ("?") :glsflags ("ignore") :offset ("?")))
  51 (defglextfun
  52  (("IndexPointerListIBM" index-pointer-list-ibm) :args
  53   ((:name |type| :type |IndexPointerType| :direction :in)
  54    (:name |stride| :type |Int32| :direction :in)
  55    (:name |pointer| :type |VoidPointer| :direction :in :array t :size
  56     (|type| |stride|) :retained t)
  57    (:name |ptrstride| :type |Int32| :direction :in))
  58   :return ("void") :category ("IBM_vertex_array_lists") :version ("1.1")
  59   :glxropcode ("?") :glsflags ("ignore") :offset ("?")))
  60 (defglextfun
  61  (("FogCoordPointerListIBM" fog-coord-pointer-list-ibm) :args
  62   ((:name |type| :type |FogPointerTypeIBM| :direction :in)
  63    (:name |stride| :type |Int32| :direction :in)
  64    (:name |pointer| :type |VoidPointer| :direction :in :array t :size
  65     (|type| |stride|) :retained t)
  66    (:name |ptrstride| :type |Int32| :direction :in))
  67   :return ("void") :category ("IBM_vertex_array_lists") :version ("1.1")
  68   :glxropcode ("?") :glsflags ("ignore") :offset ("?")))
  69 (defglextfun
  70  (("EdgeFlagPointerListIBM" edge-flag-pointer-list-ibm) :args
  71   ((:name |stride| :type |Int32| :direction :in)
  72    (:name |pointer| :type |BooleanPointer| :direction :in :array t :size
  73     (|stride|) :retained t)
  74    (:name |ptrstride| :type |Int32| :direction :in))
  75   :return ("void") :category ("IBM_vertex_array_lists") :version ("1.1")
  76   :glxropcode ("?") :glsflags ("ignore") :offset ("?")))
  77 (defglextfun
  78  (("SecondaryColorPointerListIBM" secondary-color-pointer-list-ibm) :args
  79   ((:name |size| :type |Int32| :direction :in)
  80    (:name |type| :type |SecondaryColorPointerTypeIBM| :direction :in)
  81    (:name |stride| :type |Int32| :direction :in)
  82    (:name |pointer| :type |VoidPointer| :direction :in :array t :size
  83     (|size| |type| |stride|) :retained t)
  84    (:name |ptrstride| :type |Int32| :direction :in))
  85   :return ("void") :category ("IBM_vertex_array_lists") :version ("1.1")
  86   :glxropcode ("?") :glsflags ("ignore") :offset ("?")))
  87 (defglextfun
  88  (("ColorPointerListIBM" color-pointer-list-ibm) :args
  89   ((:name |size| :type |Int32| :direction :in)
  90    (:name |type| :type |ColorPointerType| :direction :in)
  91    (:name |stride| :type |Int32| :direction :in)
  92    (:name |pointer| :type |VoidPointer| :direction :in :array t :size
  93     (|size| |type| |stride|) :retained t)
  94    (:name |ptrstride| :type |Int32| :direction :in))
  95   :return ("void") :category ("IBM_vertex_array_lists") :version ("1.1")
  96   :glxropcode ("?") :glsflags ("ignore") :offset ("?")))