lib/opengl-apple_fence.lisp

   1
   2 (in-package #:gl)
   3
   4 ;;;; APPLE_fence
   5
   6 (defconstant +draw-pixels-apple+ #x8A0A)
   7 (defconstant +fence-apple+ #x8A0B)
   8 (defglextfun
   9  (("FinishObjectAPPLE" finish-object-apple) :args
  10   ((:name |object| :type |ObjectTypeAPPLE| :direction :in)
  11    (:name |name| :type |Int32| :direction :in))
  12   :return ("void") :category ("APPLE_fence") :version ("1.2") :extension nil
  13   :glxropcode ("?") :glxflags ("ignore") :glsopcode ("?") :offset ("?")))
  14 (defglextfun
  15  (("TestObjectAPPLE" test-object-apple) :args
  16   ((:name |object| :type |ObjectTypeAPPLE| :direction :in)
  17    (:name |name| :type |UInt32| :direction :in))
  18   :return ("Boolean") :category ("APPLE_fence") :version ("1.2") :extension nil
  19   :glxropcode ("?") :glxflags ("ignore") :glsopcode ("?") :offset ("?")))
  20 (defglextfun
  21  (("FinishFenceAPPLE" finish-fence-apple) :args
  22   ((:name |fence| :type |FenceNV| :direction :in)) :return ("void") :category
  23   ("APPLE_fence") :version ("1.2") :extension nil :glxropcode ("?") :glxflags
  24   ("ignore") :glsopcode ("?") :offset ("?")))
  25 (defglextfun
  26  (("TestFenceAPPLE" test-fence-apple) :args
  27   ((:name |fence| :type |FenceNV| :direction :in)) :return ("Boolean")
  28   :category ("APPLE_fence") :version ("1.2") :extension nil :glxropcode ("?")
  29   :glxflags ("ignore") :glsopcode ("?") :offset ("?")))
  30 (defglextfun
  31  (("IsFenceAPPLE" is-fence-apple) :args
  32   ((:name |fence| :type |FenceNV| :direction :in)) :return ("Boolean")
  33   :category ("APPLE_fence") :version ("1.2") :extension nil :glxropcode ("?")
  34   :glxflags ("ignore") :glsopcode ("?") :offset ("?")))
  35 (defglextfun
  36  (("SetFenceAPPLE" set-fence-apple) :args
  37   ((:name |fence| :type |FenceNV| :direction :in)) :return ("void") :category
  38   ("APPLE_fence") :version ("1.2") :extension nil :glxropcode ("?") :glxflags
  39   ("ignore") :glsopcode ("?") :offset ("?")))
  40 (defglextfun
  41  (("DeleteFencesAPPLE" delete-fences-apple) :args
  42   ((:name |n| :type |SizeI| :direction :in)
  43    (:name |fences| :type |FenceNV| :direction :in :array t :size n))
  44   :return ("void") :category ("APPLE_fence") :version ("1.2") :extension nil
  45   :glxropcode ("?") :glxflags ("ignore") :glsopcode ("?") :offset ("?")))
  46 (defglextfun
  47  (("GenFencesAPPLE" gen-fences-apple) :args
  48   ((:name |n| :type |SizeI| :direction :in)
  49    (:name |fences| :type |FenceNV| :direction :out :array t :size n))
  50   :return ("void") :category ("APPLE_fence") :version ("1.2") :extension nil
  51   :glxropcode ("?") :glxflags ("ignore") :glsopcode ("?") :offset ("?")))