lib/opengl-ext_light_texture.lisp

   1
   2 (in-package #:gl)
   3
   4 ;;;; EXT_light_texture
   5
   6 (defconstant +fragment-material-ext+ #x8349)
   7 (defconstant +fragment-normal-ext+ #x834A)
   8 (defconstant +fragment-color-ext+ #x834C)
   9 (defconstant +attenuation-ext+ #x834D)
  10 (defconstant +shadow-attenuation-ext+ #x834E)
  11 (defconstant +texture-application-mode-ext+ #x834F)
  12 (defconstant +texture-light-ext+ #x8350)
  13 (defconstant +texture-material-face-ext+ #x8351)
  14 (defconstant +texture-material-parameter-ext+ #x8352)
  15 (defconstant +fragment-depth-ext+ #x8452)
  16 (defglextfun
  17  (("TextureMaterialEXT" texture-material-ext) :args
  18   ((:name |face| :type |MaterialFace| :direction :in)
  19    (:name |mode| :type |MaterialParameter| :direction :in))
  20   :return ("void") :category ("EXT_light_texture") :version ("1.1") :glxropcode
  21   ("?") :glsflags ("ignore") :offset ("?")))
  22 (defglextfun
  23  (("TextureLightEXT" texture-light-ext) :args
  24   ((:name |pname| :type |LightTexturePNameEXT| :direction :in)) :return
  25   ("void") :category ("EXT_light_texture") :version ("1.1") :glxropcode ("?")
  26   :glsflags ("ignore") :offset ("?")))
  27 (defglextfun
  28  (("ApplyTextureEXT" apply-texture-ext) :args
  29   ((:name |mode| :type |LightTextureModeEXT| :direction :in)) :return ("void")
  30   :category ("EXT_light_texture") :version ("1.1") :glxropcode ("?") :glsflags
  31   ("ignore") :offset ("?")))