1 {$INCLUDE ../shared/a_modes.inc}
9 GLenum
= cuint
; PGLenum
= ^GLenum
;
10 GLboolean
= cuchar
; PGLboolean
= ^GLboolean
;
11 GLbitfield
= cuint
; PGLbitfield
= ^GLbitfield
;
12 GLbyte
= cschar
; PGLbyte
= ^GLbyte
;
13 GLshort
= cshort
; PGLshort
= ^GLshort
;
14 GLint
= cint
; PGLint
= ^GLint
;
15 GLsizei
= cint
; PGLsizei
= ^GLsizei
;
16 GLubyte
= cuchar
; PGLubyte
= ^GLubyte
;
17 GLushort
= cushort
; PGLushort
= ^GLushort
;
18 GLuint
= cuint
; PGLuint
= ^GLuint
;
19 GLfloat
= cfloat
; PGLfloat
= ^GLfloat
;
20 GLclampf
= cfloat
; PGLclampf
= ^GLclampf
;
21 GLdouble
= cdouble
; PGLdouble
= ^GLdouble
;
22 GLclampd
= cdouble
; PGLclampd
= ^GLclampd
;
23 { GLvoid = void; } PGLvoid
= Pointer; PPGLvoid
= ^PGLvoid
;
24 GLfixed
= cint
; PGLfixed
= ^Integer;
25 GLclampx
= cint
; PGLclampx
= ^Integer;
28 TGLboolean
= GLboolean
;
29 TGLbitfield
= GLbitfield
;
47 GL_DEPTH_TEST
= $0B71;
48 GL_SCISSOR_TEST
= $0C11;
50 GL_PROJECTION
= $1701;
53 GL_ONE_MINUS_SRC_ALPHA
= $0303;
55 GL_TEXTURE_2D
= $0DE1;
63 GL_ONE_MINUS_DST_COLOR
= $0307;
65 GL_COLOR_BUFFER_BIT
= $00004000;
67 GL_UNSIGNED_BYTE
= $1401;
68 GL_ALPHA_TEST
= $0BC0;
70 GL_TEXTURE_WRAP_S
= $2802;
71 GL_TEXTURE_WRAP_T
= $2803;
73 GL_CLAMP_TO_EDGE
= $812F;
74 GL_TEXTURE_MIN_FILTER
= $2801;
75 GL_TEXTURE_MAG_FILTER
= $2800;
77 GL_POINT_SMOOTH
= $0B10;
78 GL_STENCIL_TEST
= $0B90;
79 GL_SCISSOR_BOX
= $0C10;
83 GL_STENCIL_BUFFER_BIT
= $00000400;
88 GL_TEXTURE_ENV
= $2300;
89 GL_TEXTURE_ENV_MODE
= $2200;
92 GL_INVALID_FRAMEBUFFER_OPERATION
= $0506;
93 GL_FRAMEBUFFER_DEFAULT
= $8218;
94 GL_FRAMEBUFFER_UNDEFINED
= $8219;
95 GL_DEPTH_STENCIL_ATTACHMENT
= $821A;
96 GL_MAX_RENDERBUFFER_SIZE
= $84E8;
97 GL_DEPTH_STENCIL
= $84F9;
98 GL_DEPTH_COMPONENT16
= $81A5;
99 GL_DEPTH24_STENCIL8
= $88F0;
100 GL_FRAMEBUFFER_BINDING
= $8CA6;
101 GL_DRAW_FRAMEBUFFER_BINDING
= GL_FRAMEBUFFER_BINDING
;
102 GL_RENDERBUFFER_BINDING
= $8CA7;
103 GL_READ_FRAMEBUFFER
= $8CA8;
104 GL_DRAW_FRAMEBUFFER
= $8CA9;
105 GL_READ_FRAMEBUFFER_BINDING
= $8CAA;
106 GL_RENDERBUFFER_SAMPLES
= $8CAB;
107 GL_FRAMEBUFFER_COMPLETE
= $8CD5;
108 GL_FRAMEBUFFER_INCOMPLETE_ATTACHMENT
= $8CD6;
109 GL_FRAMEBUFFER_INCOMPLETE_MISSING_ATTACHMENT
= $8CD7;
110 GL_FRAMEBUFFER_INCOMPLETE_DRAW_BUFFER
= $8CDB;
111 GL_FRAMEBUFFER_INCOMPLETE_READ_BUFFER
= $8CDC;
112 GL_FRAMEBUFFER_INCOMPLETE_MULTISAMPLE
= $8D56;
113 GL_FRAMEBUFFER_UNSUPPORTED
= $8CDD;
114 GL_MAX_COLOR_ATTACHMENTS
= $8CDF;
115 GL_COLOR_ATTACHMENT0
= $8CE0;
116 GL_DEPTH_ATTACHMENT
= $8D00;
117 GL_STENCIL_ATTACHMENT
= $8D20;
118 GL_FRAMEBUFFER
= $8D40;
119 GL_RENDERBUFFER
= $8D41;
120 GL_STENCIL_INDEX1
= $8D46;
121 GL_STENCIL_INDEX4
= $8D47;
122 GL_STENCIL_INDEX8
= $8D48;
123 GL_MAX_SAMPLES
= $8D57;
128 GL_EXTENSIONS
= $1F03;
129 GL_SHADING_LANGUAGE_VERSION
= $8B8C;
130 GL_MAX_TEXTURE_SIZE
= $0D33;
133 // GL_CULL_FACE = $0B44;
135 // GL_VERTEX_ARRAY = $8074;
136 // GL_NORMAL_ARRAY = $8075;
137 // GL_COLOR_ARRAY = $8076;
138 // GL_TEXTURE_COORD_ARRAY = $8078;
139 // GL_NOTEQUAL = $0205;
140 // GL_LINE_SMOOTH = $0B20;
141 // GL_POLYGON_SMOOTH = $0B41;
142 // GL_LIGHTING = $0B50;
143 // GL_DITHER = $0BD0;
144 // GL_MODELVIEW_MATRIX = $0BA6;
145 // GL_MATRIX_MODE = $0BA0;
146 // GL_TEXTURE_BINDING_2D = $8069;
147 // GL_TEXTURE = $1702;
149 // GL_ALL_ATTRIB_BITS = $000FFFFF;
151 procedure glEnable(cap
: GLenum
);
152 procedure glDisable(cap
: GLenum
);
153 function glIsEnabled(cap
: GLenum
): GLboolean
;
154 function glGetString(name
: GLenum
): PChar;
155 function glGetError
: GLenum
;
156 procedure glClearColor(red
, green
, blue
, alpha
: GLclampf
);
157 procedure glClear(mask
: GLbitfield
);
158 procedure glAlphaFunc(func
: GLenum
; ref
: GLclampf
);
159 procedure glBlendFunc(sfactor
, dfactor
: GLenum
);
160 procedure glPointSize(size
: GLfloat
);
161 procedure glLineWidth(width
: GLfloat
);
162 procedure glGetIntegerv(pname
: GLenum
; params
: PGLint
);
166 procedure glBegin(mode
: GLenum
);
168 procedure glTexCoord2f(s
, t
: GLfloat
);
169 procedure glVertex2i(x
, y
: GLint
);
170 procedure glColor4ub(red
, green
, blue
, alpha
: GLubyte
);
171 procedure glColor3ub(red
, green
, blue
: GLubyte
);
172 procedure glVertex2f(x
, y
: GLfloat
);
173 procedure glTexCoord2i(s
, t
: GLint
);
174 procedure glColor4f(red
, green
, blue
, alpha
: GLfloat
);
176 procedure glReadPixels(x
, y
: GLint
; width
, height
: GLsizei
; format
, atype
: GLenum
; pixels
: Pointer);
178 procedure glOrtho (left
, right
, bottom
, top
, near, far: GLdouble
);
179 procedure glLoadIdentity
;
180 procedure glScissor(x
, y
: GLint
; width
, height
: GLsizei
);
181 procedure glViewport(x
, y
: GLint
; width
, height
: GLsizei
);
182 procedure glMatrixMode(mode
: GLenum
);
183 procedure glLoadMatrixd(const m
: PGLdouble
);
184 procedure glPushMatrix
;
185 procedure glTranslatef(x
, y
, z
: GLfloat
);
186 procedure glRotatef(angle
, x
, y
, z
: GLfloat
);
187 procedure glScalef(x
, y
, z
: GLfloat
);
188 procedure glPopMatrix
;
190 procedure glStencilMask(mask
: GLuint
);
191 procedure glStencilFunc(func
: GLenum
; ref
: GLint
; mask
: GLuint
);
192 procedure glStencilOp(fail
, zfail
, zpass
: GLenum
);
193 procedure glColorMask(red
, green
, blue
, alpha
: GLboolean
);
195 procedure glBindTexture(target
: GLenum
; texture
: GLuint
);
196 procedure glGenTextures(n
: GLsizei
; textures
: PGLuint
);
197 procedure glTexEnvi(target
: GLenum
; pname
: GLenum
; param
: GLint
);
198 procedure glTexParameterf(target
: GLenum
; pname
: GLenum
; param
: GLfloat
);
199 procedure glTexParameteri(target
: GLenum
; pname
: GLenum
; param
: GLint
);
200 procedure glTexImage2D(target
: GLenum
; level
, internalformat
: GLint
; width
, height
: GLsizei
; border
: GLint
; format
, atype
: GLenum
; const pixels
: Pointer);
201 procedure glTexSubImage2D(target
: GLenum
; level
, xoffset
, yoffset
: GLint
; width
, height
: GLsizei
; format
, atype
: GLenum
; const pixels
: Pointer);
202 procedure glDeleteTextures(n
: GLsizei
; const textures
: PGLuint
);
204 procedure glGenFramebuffers(n
: GLsizei
; framebuffers
: PGLuint
);
205 procedure glBindFramebuffer(target
: GLenum
; framebuffer
: GLuint
);
206 procedure glFramebufferTexture2D(target
, attachment
, textarget
: GLenum
; texture
: GLuint
; level
: GLint
);
207 procedure glFramebufferRenderbuffer(target
, attachment
, rbotarget
: GLenum
; rbo
: GLuint
);
208 function glCheckFramebufferStatus(framebuffer
: GLuint
): GLenum
;
209 procedure glDeleteFramebuffers(n
: GLsizei
; const framebuffers
: PGLuint
);
211 procedure glGenRenderbuffers(n
: GLsizei
; renderbuffers
: PGLuint
);
212 procedure glBindRenderbuffer(target
: GLenum
; renderbuffer
: GLuint
);
213 procedure glRenderbufferStorage(target
, internalformat
: GLenum
; w
, h
: GLsizei
);
214 procedure glDeleteRenderbuffers(n
: GLsizei
; const renderbuffers
: PGLuint
);
216 // procedure glVertexPointer(size: GLint; atype: GLenum; stride: GLsizei; const pointer: Pointer);
217 // procedure glEnableClientState(aarray: GLenum);
218 // procedure glDisableClientState(aarray: GLenum);
219 // procedure glDrawArrays(mode: GLenum; first: GLint; count: GLsizei);
220 // procedure glGetFloatv(pname: GLenum; params: PGLfloat);
221 // procedure glPushAttrib(mask: GLbitfield);
222 // procedure glOrtho(left, right, bottom, top, zNear, zFar: GLdouble);
223 // procedure glPopAttrib;
224 // procedure glColorPointer(size: GLint; atype: GLenum; stride: GLsizei; const pointer: Pointer);
228 function nogl_ExtensionSupported(ext
: string): Boolean;