lib/opengl-ext_vertex_array.lisp

   1
   2 (in-package #:gl)
   3
   4 ;;;; EXT_vertex_array
   5
   6 (defconstant +vertex-array-ext+ #x8074)
   7 (defconstant +normal-array-ext+ #x8075)
   8 (defconstant +color-array-ext+ #x8076)
   9 (defconstant +index-array-ext+ #x8077)
  10 (defconstant +texture-coord-array-ext+ #x8078)
  11 (defconstant +edge-flag-array-ext+ #x8079)
  12 (defconstant +vertex-array-size-ext+ #x807A)
  13 (defconstant +vertex-array-type-ext+ #x807B)
  14 (defconstant +vertex-array-stride-ext+ #x807C)
  15 (defconstant +normal-array-type-ext+ #x807E)
  16 (defconstant +normal-array-stride-ext+ #x807F)
  17 (defconstant +color-array-size-ext+ #x8081)
  18 (defconstant +color-array-type-ext+ #x8082)
  19 (defconstant +color-array-stride-ext+ #x8083)
  20 (defconstant +index-array-type-ext+ #x8085)
  21 (defconstant +index-array-stride-ext+ #x8086)
  22 (defconstant +texture-coord-array-size-ext+ #x8088)
  23 (defconstant +texture-coord-array-type-ext+ #x8089)
  24 (defconstant +texture-coord-array-stride-ext+ #x808A)
  25 (defconstant +edge-flag-array-stride-ext+ #x808C)
  26 (defconstant +vertex-array-pointer-ext+ #x808E)
  27 (defconstant +normal-array-pointer-ext+ #x808F)
  28 (defconstant +color-array-pointer-ext+ #x8090)
  29 (defconstant +index-array-pointer-ext+ #x8091)
  30 (defconstant +texture-coord-array-pointer-ext+ #x8092)
  31 (defconstant +edge-flag-array-pointer-ext+ #x8093)
  32 (defconstant +vertex-array-ext+ #x8074)
  33 (defconstant +normal-array-ext+ #x8075)
  34 (defconstant +color-array-ext+ #x8076)
  35 (defconstant +index-array-ext+ #x8077)
  36 (defconstant +texture-coord-array-ext+ #x8078)
  37 (defconstant +edge-flag-array-ext+ #x8079)
  38 (defconstant +vertex-array-size-ext+ #x807A)
  39 (defconstant +vertex-array-type-ext+ #x807B)
  40 (defconstant +vertex-array-stride-ext+ #x807C)
  41 (defconstant +normal-array-type-ext+ #x807E)
  42 (defconstant +normal-array-stride-ext+ #x807F)
  43 (defconstant +color-array-size-ext+ #x8081)
  44 (defconstant +color-array-type-ext+ #x8082)
  45 (defconstant +color-array-stride-ext+ #x8083)
  46 (defconstant +index-array-type-ext+ #x8085)
  47 (defconstant +index-array-stride-ext+ #x8086)
  48 (defconstant +texture-coord-array-size-ext+ #x8088)
  49 (defconstant +texture-coord-array-type-ext+ #x8089)
  50 (defconstant +texture-coord-array-stride-ext+ #x808A)
  51 (defconstant +edge-flag-array-stride-ext+ #x808C)
  52 (defconstant +vertex-array-pointer-ext+ #x808E)
  53 (defconstant +normal-array-pointer-ext+ #x808F)
  54 (defconstant +color-array-pointer-ext+ #x8090)
  55 (defconstant +index-array-pointer-ext+ #x8091)
  56 (defconstant +texture-coord-array-pointer-ext+ #x8092)
  57 (defconstant +edge-flag-array-pointer-ext+ #x8093)
  58 (defglextfun
  59  (("VertexPointerEXT" vertex-pointer-ext) :args
  60   ((:name |size| :type |Int32| :direction :in)
  61    (:name |type| :type |VertexPointerType| :direction :in)
  62    (:name |stride| :type |SizeI| :direction :in)
  63    (:name |count| :type |SizeI| :direction :in)
  64    (:name |pointer| :type |Void| :direction :in :array t :size
  65     (|size| |type| |stride| |count|) :retained t))
  66   :return ("void") :category ("EXT_vertex_array") :dlflags ("notlistable")
  67   :glxflags ("client-handcode" "server-handcode" "EXT") :version ("1.0")
  68   :extension nil :glsflags ("client") :glsopcode ("0x0146") :offset ("453")))
  69 (defglextfun
  70  (("TexCoordPointerEXT" tex-coord-pointer-ext) :args
  71   ((:name |size| :type |Int32| :direction :in)
  72    (:name |type| :type |TexCoordPointerType| :direction :in)
  73    (:name |stride| :type |SizeI| :direction :in)
  74    (:name |count| :type |SizeI| :direction :in)
  75    (:name |pointer| :type |Void| :direction :in :array t :size
  76     (|size| |type| |stride| |count|) :retained t))
  77   :return ("void") :category ("EXT_vertex_array") :dlflags ("notlistable")
  78   :glxflags ("client-handcode" "server-handcode" "EXT") :version ("1.0")
  79   :extension nil :glsflags ("client") :glsopcode ("0x0145") :offset ("452")))
  80 (defglextfun
  81  (("NormalPointerEXT" normal-pointer-ext) :args
  82   ((:name |type| :type |NormalPointerType| :direction :in)
  83    (:name |stride| :type |SizeI| :direction :in)
  84    (:name |count| :type |SizeI| :direction :in)
  85    (:name |pointer| :type |Void| :direction :in :array t :size
  86     (|type| |stride| |count|) :retained t))
  87   :return ("void") :category ("EXT_vertex_array") :dlflags ("notlistable")
  88   :glxflags ("client-handcode" "server-handcode" "EXT") :version ("1.0")
  89   :extension nil :glsflags ("client") :glsopcode ("0x0144") :offset ("451")))
  90 (defglextfun
  91  (("IndexPointerEXT" index-pointer-ext) :args
  92   ((:name |type| :type |IndexPointerType| :direction :in)
  93    (:name |stride| :type |SizeI| :direction :in)
  94    (:name |count| :type |SizeI| :direction :in)
  95    (:name |pointer| :type |Void| :direction :in :array t :size
  96     (|type| |stride| |count|) :retained t))
  97   :return ("void") :category ("EXT_vertex_array") :dlflags ("notlistable")
  98   :glxflags ("client-handcode" "server-handcode" "EXT") :version ("1.0")
  99   :extension nil :glsflags ("client") :glsopcode ("0x0143") :offset ("450")))
 100 (defglextfun
 101  (("GetPointervEXT" get-pointerv-ext) :args
 102   ((:name |pname| :type |GetPointervPName| :direction :in)
 103    (:name |params| :type |VoidPointer| :direction :out :array t :size #x1))
 104   :return ("void") :category ("EXT_vertex_array") :dlflags ("notlistable")
 105   :glxflags ("client-handcode" "server-handcode" "EXT") :version ("1.0")
 106   :extension nil :alias ("GetPointerv") :glsalias ("GetPointerv")))
 107 (defglextfun
 108  (("EdgeFlagPointerEXT" edge-flag-pointer-ext) :args
 109   ((:name |stride| :type |SizeI| :direction :in)
 110    (:name |count| :type |SizeI| :direction :in)
 111    (:name |pointer| :type |Boolean| :direction :in :array t :size
 112     (|stride| |count|) :retained t))
 113   :return ("void") :category ("EXT_vertex_array") :dlflags ("notlistable")
 114   :glxflags ("client-handcode" "server-handcode" "EXT") :version ("1.0")
 115   :extension nil :glsflags ("client") :glsopcode ("0x0141") :offset ("449")))
 116 (defglextfun
 117  (("DrawArraysEXT" draw-arrays-ext) :args
 118   ((:name |mode| :type |BeginMode| :direction :in)
 119    (:name |first| :type |Int32| :direction :in)
 120    (:name |count| :type |SizeI| :direction :in))
 121   :return ("void") :category ("EXT_vertex_array") :dlflags ("handcode")
 122   :glxflags ("client-handcode" "server-handcode" "EXT") :version ("1.0")
 123   :glxropcode ("4116") :extension nil :alias ("DrawArrays") :glsopcode
 124   ("0x0140")))
 125 (defglextfun
 126  (("ColorPointerEXT" color-pointer-ext) :args
 127   ((:name |size| :type |Int32| :direction :in)
 128    (:name |type| :type |ColorPointerType| :direction :in)
 129    (:name |stride| :type |SizeI| :direction :in)
 130    (:name |count| :type |SizeI| :direction :in)
 131    (:name |pointer| :type |Void| :direction :in :array t :size
 132     (|size| |type| |stride| |count|) :retained t))
 133   :return ("void") :category ("EXT_vertex_array") :dlflags ("notlistable")
 134   :glxflags ("client-handcode" "server-handcode" "EXT") :version ("1.0")
 135   :extension nil :glsflags ("client") :glsopcode ("0x013F") :offset ("448")))
 136 (defglextfun
 137  (("ArrayElementEXT" array-element-ext) :args
 138   ((:name |i| :type |Int32| :direction :in)) :return ("void") :category
 139   ("EXT_vertex_array") :dlflags ("handcode") :glxflags
 140   ("client-handcode" "server-handcode" "EXT") :version ("1.0") :extension nil
 141   :alias ("ArrayElement") :glsalias ("ArrayElement")))