Added extra test platform.
[cl-glfw.git] / lib / opengl-ext_texture3d.lisp
blob828335ebd11dcb64253151f5193e6fc3e920a21e
2 (in-package #:gl)
4 ;;;; EXT_texture3D
6 (defconstant +pack-skip-images+ #x806B)
7 (defconstant +pack-image-height+ #x806C)
8 (defconstant +unpack-skip-images+ #x806D)
9 (defconstant +unpack-image-height+ #x806E)
10 (defconstant +texture-3d+ #x806F)
11 (defconstant +proxy-texture-3d+ #x8070)
12 (defconstant +texture-depth+ #x8071)
13 (defconstant +texture-wrap-r+ #x8072)
14 (defconstant +max-3d-texture-size+ #x8073)
15 (defglextfun
16 (("TexSubImage3DEXT" tex-sub-image-3d-ext) :args
17 ((:name |target| :type |TextureTarget| :direction :in)
18 (:name |level| :type |CheckedInt32| :direction :in)
19 (:name |xoffset| :type |CheckedInt32| :direction :in)
20 (:name |yoffset| :type |CheckedInt32| :direction :in)
21 (:name |zoffset| :type |CheckedInt32| :direction :in)
22 (:name |width| :type |SizeI| :direction :in)
23 (:name |height| :type |SizeI| :direction :in)
24 (:name |depth| :type |SizeI| :direction :in)
25 (:name |format| :type |PixelFormat| :direction :in)
26 (:name |type| :type |PixelType| :direction :in)
27 (:name |pixels| :type |Void| :direction :in :array t :size
28 (|format| |type| |width| |height| |depth|)))
29 :return ("void") :category ("EXT_texture3D") :dlflags ("handcode") :glxflags
30 ("client-handcode" "server-handcode" "EXT") :version ("1.0") :glxropcode
31 ("4115") :extension nil :alias ("TexSubImage3D") :glsalias ("TexSubImage3D")))
32 (defglextfun
33 (("TexImage3DEXT" tex-image-3d-ext) :args
34 ((:name |target| :type |TextureTarget| :direction :in)
35 (:name |level| :type |CheckedInt32| :direction :in)
36 (:name |internalformat| :type |PixelInternalFormat| :direction :in)
37 (:name |width| :type |SizeI| :direction :in)
38 (:name |height| :type |SizeI| :direction :in)
39 (:name |depth| :type |SizeI| :direction :in)
40 (:name |border| :type |CheckedInt32| :direction :in)
41 (:name |format| :type |PixelFormat| :direction :in)
42 (:name |type| :type |PixelType| :direction :in)
43 (:name |pixels| :type |Void| :direction :in :array t :size
44 (|format| |type| |width| |height| |depth|)))
45 :return ("void") :category ("EXT_texture3D") :dlflags ("handcode") :glxflags
46 ("client-handcode" "server-handcode" "EXT") :version ("1.0") :glxropcode
47 ("4114") :extension nil :alias ("TexImage3D") :glsalias ("TexImage3D")))