Added extra test platform.
[cl-glfw.git] / lib / opengl-sgix_fragment_lighting.lisp
blobf23774ec35ad5ed00325928aebc11def0b1adf09
2 (in-package #:gl)
4 ;;;; SGIX_fragment_lighting
6 (defconstant +current-raster-normal-sgix+ #x8406)
7 (defconstant +current-raster-normal-sgix+ #x8406)
8 (defglextfun
9 (("LightEnviSGIX" light-env-i-sgix) :args
10 ((:name |pname| :type |LightEnvParameterSGIX| :direction :in)
11 (:name |param| :type |CheckedInt32| :direction :in))
12 :return ("void") :category ("SGIX_fragment_lighting") :glxflags ("ignore")
13 :version ("1.0") :extension nil :glsflags ("gl-enum") :glsopcode ("0x01AF")
14 :offset ("493")))
15 (defglextfun
16 (("GetFragmentMaterialivSGIX" get-fragment-material-iv-sgix) :args
17 ((:name |face| :type |MaterialFace| :direction :in)
18 (:name |pname| :type |MaterialParameter| :direction :in)
19 (:name |params| :type |Int32| :direction :out :array t :size (|pname|)))
20 :return ("void") :category ("SGIX_fragment_lighting") :dlflags
21 ("notlistable") :glxflags ("ignore") :version ("1.0") :extension nil
22 :glsflags ("get") :glsopcode ("0x01AE") :offset ("492")))
23 (defglextfun
24 (("GetFragmentMaterialfvSGIX" get-fragment-material-fv-sgix) :args
25 ((:name |face| :type |MaterialFace| :direction :in)
26 (:name |pname| :type |MaterialParameter| :direction :in)
27 (:name |params| :type |Float32| :direction :out :array t :size (|pname|)))
28 :return ("void") :category ("SGIX_fragment_lighting") :dlflags
29 ("notlistable") :glxflags ("ignore") :version ("1.0") :extension nil
30 :glsflags ("get") :glsopcode ("0x01AD") :offset ("491")))
31 (defglextfun
32 (("GetFragmentLightivSGIX" get-fragment-light-iv-sgix) :args
33 ((:name |light| :type |FragmentLightNameSGIX| :direction :in)
34 (:name |pname| :type |FragmentLightParameterSGIX| :direction :in)
35 (:name |params| :type |Int32| :direction :out :array t :size (|pname|)))
36 :return ("void") :category ("SGIX_fragment_lighting") :dlflags
37 ("notlistable") :glxflags ("ignore") :version ("1.0") :extension nil
38 :glsflags ("get") :glsopcode ("0x01AC") :offset ("490")))
39 (defglextfun
40 (("GetFragmentLightfvSGIX" get-fragment-light-fv-sgix) :args
41 ((:name |light| :type |FragmentLightNameSGIX| :direction :in)
42 (:name |pname| :type |FragmentLightParameterSGIX| :direction :in)
43 (:name |params| :type |Float32| :direction :out :array t :size (|pname|)))
44 :return ("void") :category ("SGIX_fragment_lighting") :dlflags
45 ("notlistable") :glxflags ("ignore") :version ("1.0") :extension nil
46 :glsflags ("get") :glsopcode ("0x01AB") :offset ("489")))
47 (defglextfun
48 (("FragmentMaterialivSGIX" fragment-material-iv-sgix) :args
49 ((:name |face| :type |MaterialFace| :direction :in)
50 (:name |pname| :type |MaterialParameter| :direction :in)
51 (:name |params| :type |CheckedInt32| :direction :in :array t :size
52 (|pname|)))
53 :return ("void") :category ("SGIX_fragment_lighting") :glxflags ("ignore")
54 :version ("1.0") :extension nil :glsopcode ("0x01AA") :offset ("488")))
55 (defglextfun
56 (("FragmentMaterialiSGIX" fragment-material-i-sgix) :args
57 ((:name |face| :type |MaterialFace| :direction :in)
58 (:name |pname| :type |MaterialParameter| :direction :in)
59 (:name |param| :type |CheckedInt32| :direction :in))
60 :return ("void") :category ("SGIX_fragment_lighting") :glxflags ("ignore")
61 :version ("1.0") :extension nil :glsopcode ("0x01A9") :offset ("487")))
62 (defglextfun
63 (("FragmentMaterialfvSGIX" fragment-material-fv-sgix) :args
64 ((:name |face| :type |MaterialFace| :direction :in)
65 (:name |pname| :type |MaterialParameter| :direction :in)
66 (:name |params| :type |CheckedFloat32| :direction :in :array t :size
67 (|pname|)))
68 :return ("void") :category ("SGIX_fragment_lighting") :glxflags ("ignore")
69 :version ("1.0") :extension nil :glsopcode ("0x01A8") :offset ("486")))
70 (defglextfun
71 (("FragmentMaterialfSGIX" fragment-material-f-sgix) :args
72 ((:name |face| :type |MaterialFace| :direction :in)
73 (:name |pname| :type |MaterialParameter| :direction :in)
74 (:name |param| :type |CheckedFloat32| :direction :in))
75 :return ("void") :category ("SGIX_fragment_lighting") :glxflags ("ignore")
76 :version ("1.0") :extension nil :glsopcode ("0x01A7") :offset ("485")))
77 (defglextfun
78 (("FragmentLightModelivSGIX" fragment-light-model-iv-sgix) :args
79 ((:name |pname| :type |FragmentLightModelParameterSGIX| :direction :in)
80 (:name |params| :type |CheckedInt32| :direction :in :array t :size
81 (|pname|)))
82 :return ("void") :category ("SGIX_fragment_lighting") :glxflags ("ignore")
83 :version ("1.0") :extension nil :glsflags ("gl-enum") :glsopcode ("0x01A6")
84 :offset ("484")))
85 (defglextfun
86 (("FragmentLightModeliSGIX" fragment-light-model-i-sgix) :args
87 ((:name |pname| :type |FragmentLightModelParameterSGIX| :direction :in)
88 (:name |param| :type |CheckedInt32| :direction :in))
89 :return ("void") :category ("SGIX_fragment_lighting") :glxflags ("ignore")
90 :version ("1.0") :extension nil :glsflags ("gl-enum") :glsopcode ("0x01A5")
91 :offset ("483")))
92 (defglextfun
93 (("FragmentLightModelfvSGIX" fragment-light-model-fv-sgix) :args
94 ((:name |pname| :type |FragmentLightModelParameterSGIX| :direction :in)
95 (:name |params| :type |CheckedFloat32| :direction :in :array t :size
96 (|pname|)))
97 :return ("void") :category ("SGIX_fragment_lighting") :glxflags ("ignore")
98 :version ("1.0") :extension nil :glsflags ("gl-enum") :glsopcode ("0x01A4")
99 :offset ("482")))
100 (defglextfun
101 (("FragmentLightModelfSGIX" fragment-light-model-f-sgix) :args
102 ((:name |pname| :type |FragmentLightModelParameterSGIX| :direction :in)
103 (:name |param| :type |CheckedFloat32| :direction :in))
104 :return ("void") :category ("SGIX_fragment_lighting") :glxflags ("ignore")
105 :version ("1.0") :extension nil :glsflags ("gl-enum") :glsopcode ("0x01A3")
106 :offset ("481")))
107 (defglextfun
108 (("FragmentLightivSGIX" fragment-light-iv-sgix) :args
109 ((:name |light| :type |FragmentLightNameSGIX| :direction :in)
110 (:name |pname| :type |FragmentLightParameterSGIX| :direction :in)
111 (:name |params| :type |CheckedInt32| :direction :in :array t :size
112 (|pname|)))
113 :return ("void") :category ("SGIX_fragment_lighting") :glxflags ("ignore")
114 :version ("1.0") :extension nil :glsopcode ("0x01A2") :offset ("480")))
115 (defglextfun
116 (("FragmentLightiSGIX" fragment-light-i-sgix) :args
117 ((:name |light| :type |FragmentLightNameSGIX| :direction :in)
118 (:name |pname| :type |FragmentLightParameterSGIX| :direction :in)
119 (:name |param| :type |CheckedInt32| :direction :in))
120 :return ("void") :category ("SGIX_fragment_lighting") :glxflags ("ignore")
121 :version ("1.0") :extension nil :glsopcode ("0x01A1") :offset ("479")))
122 (defglextfun
123 (("FragmentLightfvSGIX" fragment-light-fv-sgix) :args
124 ((:name |light| :type |FragmentLightNameSGIX| :direction :in)
125 (:name |pname| :type |FragmentLightParameterSGIX| :direction :in)
126 (:name |params| :type |CheckedFloat32| :direction :in :array t :size
127 (|pname|)))
128 :return ("void") :category ("SGIX_fragment_lighting") :glxflags ("ignore")
129 :version ("1.0") :extension nil :glsopcode ("0x01A0") :offset ("478")))
130 (defglextfun
131 (("FragmentLightfSGIX" fragment-light-f-sgix) :args
132 ((:name |light| :type |FragmentLightNameSGIX| :direction :in)
133 (:name |pname| :type |FragmentLightParameterSGIX| :direction :in)
134 (:name |param| :type |CheckedFloat32| :direction :in))
135 :return ("void") :category ("SGIX_fragment_lighting") :glxflags ("ignore")
136 :version ("1.0") :extension nil :glsopcode ("0x019F") :offset ("477")))
137 (defglextfun
138 (("FragmentColorMaterialSGIX" fragment-color-material-sgix) :args
139 ((:name |face| :type |MaterialFace| :direction :in)
140 (:name |mode| :type |MaterialParameter| :direction :in))
141 :return ("void") :category ("SGIX_fragment_lighting") :glxflags ("ignore")
142 :version ("1.0") :extension nil :glsopcode ("0x019E") :offset ("476")))