lib/opengl-ext_gpu_shader4.lisp

   1
   2 (in-package #:gl)
   3
   4 ;;;; EXT_gpu_shader4
   5
   6 (defconstant +sampler-1d-array-ext+ #x8DC0)
   7 (defconstant +sampler-2d-array-ext+ #x8DC1)
   8 (defconstant +sampler-buffer-ext+ #x8DC2)
   9 (defconstant +sampler-1d-array-shadow-ext+ #x8DC3)
  10 (defconstant +sampler-2d-array-shadow-ext+ #x8DC4)
  11 (defconstant +sampler-cube-shadow-ext+ #x8DC5)
  12 (defconstant +unsigned-int-vec2-ext+ #x8DC6)
  13 (defconstant +unsigned-int-vec3-ext+ #x8DC7)
  14 (defconstant +unsigned-int-vec4-ext+ #x8DC8)
  15 (defconstant +int-sampler-1d-ext+ #x8DC9)
  16 (defconstant +int-sampler-2d-ext+ #x8DCA)
  17 (defconstant +int-sampler-3d-ext+ #x8DCB)
  18 (defconstant +int-sampler-cube-ext+ #x8DCC)
  19 (defconstant +int-sampler-2d-rect-ext+ #x8DCD)
  20 (defconstant +int-sampler-1d-array-ext+ #x8DCE)
  21 (defconstant +int-sampler-2d-array-ext+ #x8DCF)
  22 (defconstant +int-sampler-buffer-ext+ #x8DD0)
  23 (defconstant +unsigned-int-sampler-1d-ext+ #x8DD1)
  24 (defconstant +unsigned-int-sampler-2d-ext+ #x8DD2)
  25 (defconstant +unsigned-int-sampler-3d-ext+ #x8DD3)
  26 (defconstant +unsigned-int-sampler-cube-ext+ #x8DD4)
  27 (defconstant +unsigned-int-sampler-2d-rect-ext+ #x8DD5)
  28 (defconstant +unsigned-int-sampler-1d-array-ext+ #x8DD6)
  29 (defconstant +unsigned-int-sampler-2d-array-ext+ #x8DD7)
  30 (defconstant +unsigned-int-sampler-buffer-ext+ #x8DD8)
  31 (defglextfun
  32  (("Uniform4uivEXT" uniform-4uiv-ext) :args
  33   ((:name |location| :type |Int32| :direction :in)
  34    (:name |count| :type |SizeI| :direction :in)
  35    (:name |value| :type |UInt32| :direction :in :array t :size count*4))
  36   :return ("void") :category ("EXT_gpu_shader4") :version ("2.0") :extension
  37   ("soft" "WINSOFT") :glfflags ("ignore") :glsflags ("ignore") :glxflags
  38   ("ignore")))
  39 (defglextfun
  40  (("Uniform3uivEXT" uniform-3uiv-ext) :args
  41   ((:name |location| :type |Int32| :direction :in)
  42    (:name |count| :type |SizeI| :direction :in)
  43    (:name |value| :type |UInt32| :direction :in :array t :size count*3))
  44   :return ("void") :category ("EXT_gpu_shader4") :version ("2.0") :extension
  45   ("soft" "WINSOFT") :glfflags ("ignore") :glsflags ("ignore") :glxflags
  46   ("ignore")))
  47 (defglextfun
  48  (("Uniform2uivEXT" uniform-2uiv-ext) :args
  49   ((:name |location| :type |Int32| :direction :in)
  50    (:name |count| :type |SizeI| :direction :in)
  51    (:name |value| :type |UInt32| :direction :in :array t :size count*2))
  52   :return ("void") :category ("EXT_gpu_shader4") :version ("2.0") :extension
  53   ("soft" "WINSOFT") :glfflags ("ignore") :glsflags ("ignore") :glxflags
  54   ("ignore")))
  55 (defglextfun
  56  (("Uniform1uivEXT" uniform-1uiv-ext) :args
  57   ((:name |location| :type |Int32| :direction :in)
  58    (:name |count| :type |SizeI| :direction :in)
  59    (:name |value| :type |UInt32| :direction :in :array t :size count))
  60   :return ("void") :category ("EXT_gpu_shader4") :version ("2.0") :extension
  61   ("soft" "WINSOFT") :glfflags ("ignore") :glsflags ("ignore") :glxflags
  62   ("ignore")))
  63 (defglextfun
  64  (("Uniform4uiEXT" uniform-4ui-ext) :args
  65   ((:name |location| :type |Int32| :direction :in)
  66    (:name |v0| :type |UInt32| :direction :in)
  67    (:name |v1| :type |UInt32| :direction :in)
  68    (:name |v2| :type |UInt32| :direction :in)
  69    (:name |v3| :type |UInt32| :direction :in))
  70   :return ("void") :category ("EXT_gpu_shader4") :version ("2.0") :extension
  71   ("soft" "WINSOFT") :glfflags ("ignore") :glsflags ("ignore") :glxflags
  72   ("ignore")))
  73 (defglextfun
  74  (("Uniform3uiEXT" uniform-3ui-ext) :args
  75   ((:name |location| :type |Int32| :direction :in)
  76    (:name |v0| :type |UInt32| :direction :in)
  77    (:name |v1| :type |UInt32| :direction :in)
  78    (:name |v2| :type |UInt32| :direction :in))
  79   :return ("void") :category ("EXT_gpu_shader4") :version ("2.0") :extension
  80   ("soft" "WINSOFT") :glfflags ("ignore") :glsflags ("ignore") :glxflags
  81   ("ignore")))
  82 (defglextfun
  83  (("Uniform2uiEXT" uniform-2ui-ext) :args
  84   ((:name |location| :type |Int32| :direction :in)
  85    (:name |v0| :type |UInt32| :direction :in)
  86    (:name |v1| :type |UInt32| :direction :in))
  87   :return ("void") :category ("EXT_gpu_shader4") :version ("2.0") :extension
  88   ("soft" "WINSOFT") :glfflags ("ignore") :glsflags ("ignore") :glxflags
  89   ("ignore")))
  90 (defglextfun
  91  (("Uniform1uiEXT" uniform-1ui-ext) :args
  92   ((:name |location| :type |Int32| :direction :in)
  93    (:name |v0| :type |UInt32| :direction :in))
  94   :return ("void") :category ("EXT_gpu_shader4") :version ("2.0") :extension
  95   ("soft" "WINSOFT") :glfflags ("ignore") :glsflags ("ignore") :glxflags
  96   ("ignore")))
  97 (defglextfun
  98  (("GetFragDataLocationEXT" get-frag-data-location-ext) :args
  99   ((:name |program| :type |UInt32| :direction :in)
 100    (:name |name| :type |Char| :direction :in :array t :size (|name|)))
 101   :return ("Int32") :category ("EXT_gpu_shader4") :dlflags ("notlistable")
 102   :version ("2.0") :extension ("soft" "WINSOFT") :glfflags ("ignore") :glsflags
 103   ("ignore") :glxflags ("ignore")))
 104 (defglextfun
 105  (("BindFragDataLocationEXT" bind-frag-data-location-ext) :args
 106   ((:name |program| :type |UInt32| :direction :in)
 107    (:name |color| :type |UInt32| :direction :in)
 108    (:name |name| :type |Char| :direction :in :array t :size (|name|)))
 109   :return ("void") :category ("EXT_gpu_shader4") :dlflags ("notlistable")
 110   :version ("2.0") :extension ("soft" "WINSOFT") :glfflags ("ignore") :glsflags
 111   ("ignore") :glxflags ("ignore")))
 112 (defglextfun
 113  (("GetUniformuivEXT" get-uniform-uiv-ext) :args
 114   ((:name |program| :type |UInt32| :direction :in)
 115    (:name |location| :type |Int32| :direction :in)
 116    (:name |params| :type |UInt32| :direction :out :array t :size
 117     (|program| |location|)))
 118   :return ("void") :category ("EXT_gpu_shader4") :dlflags ("notlistable")
 119   :version ("2.0") :extension ("soft" "WINSOFT") :glfflags ("ignore") :glsflags
 120   ("ignore") :glxflags ("ignore")))