955c236768283309a6aa56f63a3366509acad395
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
;
46 GL_DEPTH_TEST
= $0B71;
47 GL_SCISSOR_TEST
= $0C11;
49 GL_PROJECTION
= $1701;
52 GL_ONE_MINUS_SRC_ALPHA
= $0303;
54 GL_TEXTURE_2D
= $0DE1;
61 GL_ONE_MINUS_DST_COLOR
= $0307;
63 GL_COLOR_BUFFER_BIT
= $00004000;
65 GL_UNSIGNED_BYTE
= $1401;
66 GL_ALPHA_TEST
= $0BC0;
68 GL_TEXTURE_WRAP_S
= $2802;
69 GL_TEXTURE_WRAP_T
= $2803;
71 GL_TEXTURE_MIN_FILTER
= $2801;
72 GL_TEXTURE_MAG_FILTER
= $2800;
74 GL_POINT_SMOOTH
= $0B10;
75 GL_STENCIL_TEST
= $0B90;
76 GL_SCISSOR_BOX
= $0C10;
80 GL_STENCIL_BUFFER_BIT
= $00000400;
85 GL_EXTENSIONS
= $1F03;
86 GL_TEXTURE_ENV
= $2300;
87 GL_TEXTURE_ENV_MODE
= $2200;
91 // GL_CULL_FACE = $0B44;
93 // GL_VERTEX_ARRAY = $8074;
94 // GL_NORMAL_ARRAY = $8075;
95 // GL_COLOR_ARRAY = $8076;
96 // GL_TEXTURE_COORD_ARRAY = $8078;
97 // GL_NOTEQUAL = $0205;
98 // GL_LINE_SMOOTH = $0B20;
99 // GL_POLYGON_SMOOTH = $0B41;
100 // GL_LIGHTING = $0B50;
101 // GL_DITHER = $0BD0;
102 // GL_MODELVIEW_MATRIX = $0BA6;
103 // GL_MATRIX_MODE = $0BA0;
104 // GL_TEXTURE_BINDING_2D = $8069;
105 // GL_TEXTURE = $1702;
107 // GL_ALL_ATTRIB_BITS = $000FFFFF;
109 procedure glEnable(cap
: GLenum
);
110 procedure glDisable(cap
: GLenum
);
111 function glIsEnabled(cap
: GLenum
): GLboolean
;
112 function glGetString(name
: GLenum
): PChar;
113 procedure glClearColor(red
, green
, blue
, alpha
: GLclampf
);
114 procedure glClear(mask
: GLbitfield
);
115 procedure glAlphaFunc(func
: GLenum
; ref
: GLclampf
);
116 procedure glBlendFunc(sfactor
, dfactor
: GLenum
);
117 procedure glPointSize(size
: GLfloat
);
118 procedure glLineWidth(width
: GLfloat
);
119 procedure glGetIntegerv(pname
: GLenum
; params
: PGLint
);
123 procedure glBegin(mode
: GLenum
);
125 procedure glTexCoord2f(s
, t
: GLfloat
);
126 procedure glVertex2i(x
, y
: GLint
);
127 procedure glColor4ub(red
, green
, blue
, alpha
: GLubyte
);
128 procedure glColor3ub(red
, green
, blue
: GLubyte
);
129 procedure glVertex2f(x
, y
: GLfloat
);
130 procedure glTexCoord2i(s
, t
: GLint
);
131 procedure glColor4f(red
, green
, blue
, alpha
: GLfloat
);
133 procedure glReadPixels(x
, y
: GLint
; width
, height
: GLsizei
; format
, atype
: GLenum
; pixels
: Pointer);
135 procedure glLoadIdentity
;
136 procedure glScissor(x
, y
: GLint
; width
, height
: GLsizei
);
137 procedure glViewport(x
, y
: GLint
; width
, height
: GLsizei
);
138 procedure glMatrixMode(mode
: GLenum
);
139 procedure glLoadMatrixd(const m
: PGLdouble
);
140 procedure glPushMatrix
;
141 procedure glTranslatef(x
, y
, z
: GLfloat
);
142 procedure glRotatef(angle
, x
, y
, z
: GLfloat
);
143 procedure glScalef(x
, y
, z
: GLfloat
);
144 procedure glPopMatrix
;
146 procedure glStencilMask(mask
: GLuint
);
147 procedure glStencilFunc(func
: GLenum
; ref
: GLint
; mask
: GLuint
);
148 procedure glStencilOp(fail
, zfail
, zpass
: GLenum
);
149 procedure glColorMask(red
, green
, blue
, alpha
: GLboolean
);
151 procedure glBindTexture(target
: GLenum
; texture
: GLuint
);
152 procedure glGenTextures(n
: GLsizei
; textures
: PGLuint
);
153 procedure glTexEnvi(target
: GLenum
; pname
: GLenum
; param
: GLint
);
154 procedure glTexParameterf(target
: GLenum
; pname
: GLenum
; param
: GLfloat
);
155 procedure glTexParameteri(target
: GLenum
; pname
: GLenum
; param
: GLint
);
156 procedure glTexImage2D(target
: GLenum
; level
, internalformat
: GLint
; width
, height
: GLsizei
; border
: GLint
; format
, atype
: GLenum
; const pixels
: Pointer);
157 procedure glTexSubImage2D(target
: GLenum
; level
, xoffset
, yoffset
: GLint
; width
, height
: GLsizei
; format
, atype
: GLenum
; const pixels
: Pointer);
158 procedure glDeleteTextures(n
: GLsizei
; const textures
: PGLuint
);
160 // procedure glVertexPointer(size: GLint; atype: GLenum; stride: GLsizei; const pointer: Pointer);
161 // procedure glEnableClientState(aarray: GLenum);
162 // procedure glDisableClientState(aarray: GLenum);
163 // procedure glDrawArrays(mode: GLenum; first: GLint; count: GLsizei);
164 // procedure glGetFloatv(pname: GLenum; params: PGLfloat);
165 // procedure glPushAttrib(mask: GLbitfield);
166 // procedure glOrtho(left, right, bottom, top, zNear, zFar: GLdouble);
167 // procedure glPopAttrib;
168 // procedure glColorPointer(size: GLint; atype: GLenum; stride: GLsizei; const pointer: Pointer);
173 {$IF DEFINED(USE_GLES1)}
175 {$ELSEIF DEFINED(USE_GLALSW)}
177 {$ELSEIF DEFINED(USE_GLSTUB)}
180 {$ERROR use one of gl wrapper: USE_GLES1 USE_GLALSW USE_GLSTUB}}