lib/opengl-ext_texture_object.lisp

   1
   2 (in-package #:gl)
   3
   4 ;;;; EXT_texture_object
   5
   6 (defconstant +texture-priority-ext+ #x8066)
   7 (defconstant +texture-resident-ext+ #x8067)
   8 (defconstant +texture-1d-binding-ext+ #x8068)
   9 (defconstant +texture-2d-binding-ext+ #x8069)
  10 (defconstant +texture-priority-ext+ #x8066)
  11 (defconstant +texture-resident-ext+ #x8067)
  12 (defconstant +texture-1d-binding-ext+ #x8068)
  13 (defconstant +texture-2d-binding-ext+ #x8069)
  14 (defglextfun
  15  (("PrioritizeTexturesEXT" prioritize-textures-ext) :args
  16   ((:name |n| :type |SizeI| :direction :in)
  17    (:name |textures| :type |Texture| :direction :in :array t :size n)
  18    (:name |priorities| :type |ClampedFloat32| :direction :in :array t :size n))
  19   :return ("void") :category ("EXT_texture_object") :glxflags ("EXT") :version
  20   ("1.0") :glxropcode ("4118") :extension nil :alias ("PrioritizeTextures")
  21   :glsalias ("PrioritizeTextures")))
  22 (defglextfun
  23  (("IsTextureEXT" is-texture-ext) :args
  24   ((:name |texture| :type |Texture| :direction :in)) :return ("Boolean")
  25   :category ("EXT_texture_object") :dlflags ("notlistable") :version ("1.0")
  26   :glxflags ("EXT") :glxvendorpriv ("14") :extension nil :glsflags ("get")
  27   :glsopcode ("0x014B") :offset ("441")))
  28 (defglextfun
  29  (("GenTexturesEXT" gen-textures-ext) :args
  30   ((:name |n| :type |SizeI| :direction :in)
  31    (:name |textures| :type |Texture| :direction :out :array t :size n))
  32   :return ("void") :category ("EXT_texture_object") :dlflags ("notlistable")
  33   :version ("1.0") :glxflags ("EXT") :glxvendorpriv ("13") :extension nil
  34   :glsopcode ("0x014A") :offset ("440")))
  35 (defglextfun
  36  (("DeleteTexturesEXT" delete-textures-ext) :args
  37   ((:name |n| :type |SizeI| :direction :in)
  38    (:name |textures| :type |Texture| :direction :in :array t :size n))
  39   :return ("void") :category ("EXT_texture_object") :dlflags ("notlistable")
  40   :version ("1.0") :glxflags ("EXT") :glxvendorpriv ("12") :extension nil
  41   :glsopcode ("0x0149") :offset ("561")))
  42 (defglextfun
  43  (("BindTextureEXT" bind-texture-ext) :args
  44   ((:name |target| :type |TextureTarget| :direction :in)
  45    (:name |texture| :type |Texture| :direction :in))
  46   :return ("void") :category ("EXT_texture_object") :version ("1.0") :glxflags
  47   ("EXT") :glxropcode ("4117") :extension nil :alias ("BindTexture") :glsalias
  48   ("BindTexture")))
  49 (defglextfun
  50  (("AreTexturesResidentEXT" are-textures-resident-ext) :args
  51   ((:name |n| :type |SizeI| :direction :in)
  52    (:name |textures| :type |Texture| :direction :in :array t :size n)
  53    (:name |residences| :type |Boolean| :direction :out :array t :size n))
  54   :return ("Boolean") :category ("EXT_texture_object") :glxflags ("EXT")
  55   :glxvendorpriv ("11") :dlflags ("notlistable") :version ("1.0") :extension
  56   nil :glsflags ("get") :glsopcode ("0x0147") :offset ("439")))