Formatting of a comment of old code.
[cl-glfw.git] / lib / opengl-ext_subtexture.lisp
blobd045920c02bd0168dd012dd72dd134f92596565e
2 (in-package #:gl)
4 ;;;; EXT_subtexture
6 (defglextfun
7 (("TexSubImage2DEXT" tex-sub-image-2d-ext) :args
8 ((:name |target| :type |TextureTarget| :direction :in)
9 (:name |level| :type |CheckedInt32| :direction :in)
10 (:name |xoffset| :type |CheckedInt32| :direction :in)
11 (:name |yoffset| :type |CheckedInt32| :direction :in)
12 (:name |width| :type |SizeI| :direction :in)
13 (:name |height| :type |SizeI| :direction :in)
14 (:name |format| :type |PixelFormat| :direction :in)
15 (:name |type| :type |PixelType| :direction :in)
16 (:name |pixels| :type |Void| :direction :in :array t :size
17 (|format| |type| |width| |height|)))
18 :return ("void") :category ("EXT_subtexture") :dlflags ("handcode") :glxflags
19 ("client-handcode" "server-handcode" "EXT") :version ("1.0") :glxropcode
20 ("4100") :extension nil :alias ("TexSubImage2D") :glsalias ("TexSubImage2D")))
21 (defglextfun
22 (("TexSubImage1DEXT" tex-sub-image-1d-ext) :args
23 ((:name |target| :type |TextureTarget| :direction :in)
24 (:name |level| :type |CheckedInt32| :direction :in)
25 (:name |xoffset| :type |CheckedInt32| :direction :in)
26 (:name |width| :type |SizeI| :direction :in)
27 (:name |format| :type |PixelFormat| :direction :in)
28 (:name |type| :type |PixelType| :direction :in)
29 (:name |pixels| :type |Void| :direction :in :array t :size
30 (|format| |type| |width|)))
31 :return ("void") :category ("EXT_subtexture") :dlflags ("handcode") :glxflags
32 ("client-handcode" "server-handcode" "EXT") :version ("1.0") :glxropcode
33 ("4099") :extension nil :alias ("TexSubImage1D") :glsalias ("TexSubImage1D")))