lib/opengl-ext_bindable_uniform.lisp

   1
   2 (in-package #:gl)
   3
   4 ;;;; EXT_bindable_uniform
   5
   6 (defconstant +max-vertex-bindable-uniforms-ext+ #x8DE2)
   7 (defconstant +max-fragment-bindable-uniforms-ext+ #x8DE3)
   8 (defconstant +max-geometry-bindable-uniforms-ext+ #x8DE4)
   9 (defconstant +max-bindable-uniform-size-ext+ #x8DED)
  10 (defconstant +uniform-buffer-ext+ #x8DEE)
  11 (defconstant +uniform-buffer-binding-ext+ #x8DEF)
  12 (defglextfun
  13  (("GetUniformOffsetEXT" get-uniform-offset-ext) :args
  14   ((:name |program| :type |UInt32| :direction :in)
  15    (:name |location| :type |Int32| :direction :in))
  16   :return ("BufferOffset") :category ("EXT_bindable_uniform") :dlflags
  17   ("notlistable") :version ("2.0") :extension ("soft" "WINSOFT") :glfflags
  18   ("ignore") :glsflags ("ignore") :glxflags ("ignore")))
  19 (defglextfun
  20  (("GetUniformBufferSizeEXT" get-uniform-buffer-size-ext) :args
  21   ((:name |program| :type |UInt32| :direction :in)
  22    (:name |location| :type |Int32| :direction :in))
  23   :return ("Int32") :category ("EXT_bindable_uniform") :dlflags ("notlistable")
  24   :version ("2.0") :extension ("soft" "WINSOFT") :glfflags ("ignore") :glsflags
  25   ("ignore") :glxflags ("ignore")))
  26 (defglextfun
  27  (("UniformBufferEXT" uniform-buffer-ext) :args
  28   ((:name |program| :type |UInt32| :direction :in)
  29    (:name |location| :type |Int32| :direction :in)
  30    (:name |buffer| :type |UInt32| :direction :in))
  31   :return ("void") :category ("EXT_bindable_uniform") :version ("2.0")
  32   :extension ("soft" "WINSOFT") :glxflags ("ignore") :glfflags ("ignore")
  33   :glsflags ("ignore")))