mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 11:39:40 +01:00
97 lines
4.4 KiB
Modula-2
97 lines
4.4 KiB
Modula-2
# This is the definition file for all GL 1.1 stuff
|
|
|
|
%COPY_INTERFACE
|
|
|
|
const
|
|
// GL 1.1 texturing
|
|
GL_PROXY_TEXTURE_1D = $8063;
|
|
GL_PROXY_TEXTURE_2D = $8064;
|
|
GL_TEXTURE_PRIORITY = $8066;
|
|
GL_TEXTURE_RESIDENT = $8067;
|
|
GL_TEXTURE_BINDING_1D = $8068;
|
|
GL_TEXTURE_BINDING_2D = $8069;
|
|
GL_TEXTURE_INTERNAL_FORMAT = $1003;
|
|
|
|
// Internal texture formats (GL 1.1)
|
|
GL_ALPHA4 = $803B;
|
|
GL_ALPHA8 = $803C;
|
|
GL_ALPHA12 = $803D;
|
|
GL_ALPHA16 = $803E;
|
|
GL_LUMINANCE4 = $803F;
|
|
GL_LUMINANCE8 = $8040;
|
|
GL_LUMINANCE12 = $8041;
|
|
GL_LUMINANCE16 = $8042;
|
|
GL_LUMINANCE4_ALPHA4 = $8043;
|
|
GL_LUMINANCE6_ALPHA2 = $8044;
|
|
GL_LUMINANCE8_ALPHA8 = $8045;
|
|
GL_LUMINANCE12_ALPHA4 = $8046;
|
|
GL_LUMINANCE12_ALPHA12 = $8047;
|
|
GL_LUMINANCE16_ALPHA16 = $8048;
|
|
GL_INTENSITY = $8049;
|
|
GL_INTENSITY4 = $804A;
|
|
GL_INTENSITY8 = $804B;
|
|
GL_INTENSITY12 = $804C;
|
|
GL_INTENSITY16 = $804D;
|
|
GL_R3_G3_B2 = $2A10;
|
|
GL_RGB4 = $804F;
|
|
GL_RGB5 = $8050;
|
|
GL_RGB8 = $8051;
|
|
GL_RGB10 = $8052;
|
|
GL_RGB12 = $8053;
|
|
GL_RGB16 = $8054;
|
|
GL_RGBA2 = $8055;
|
|
GL_RGBA4 = $8056;
|
|
GL_RGB5_A1 = $8057;
|
|
GL_RGBA8 = $8058;
|
|
GL_RGB10_A2 = $8059;
|
|
GL_RGBA12 = $805A;
|
|
GL_RGBA16 = $805B;
|
|
|
|
%END
|
|
|
|
|
|
#=====================================================================
|
|
# Procedures and functions
|
|
#=====================================================================
|
|
|
|
%PROCS
|
|
|
|
// Miscellaneous
|
|
glEnableClientState: procedure(cap: GLenum);
|
|
glDisableClientState: procedure(cap: GLenum);
|
|
glPushClientAttrib: procedure(mask: GLbitfield);
|
|
glPopClientAttrib: procedure;
|
|
|
|
// Drawing Functions
|
|
glIndexub: procedure(c: Byte);
|
|
glIndexubv: procedure(var c: Byte);
|
|
|
|
// Vertex Arrays
|
|
glVertexPointer: procedure(size: LongInt; AType: GLenum; stride: LongInt; var ptr);
|
|
glNormalPointer: procedure(AType: GLenum; stride: LongInt; var ptr);
|
|
glColorPointer: procedure(size: LongInt; AType: GLenum; stride: LongInt; var ptr);
|
|
glIndexPointer: procedure(AType: GLenum; stride: LongInt; var ptr);
|
|
glTexCoordPointer: procedure(size: LongInt; AType: GLenum; stride: LongInt; var ptr);
|
|
glEdgeFlagPointer: procedure(stride: LongInt; var ptr);
|
|
glGetPointerv: procedure(pname: GLenum; var params: Pointer);
|
|
glArrayElement: procedure(i: LongInt);
|
|
glDrawArrays: procedure(mode: GLenum; first, count: LongInt);
|
|
glDrawElements: procedure(mode: GLenum; count: Integer; AType: GLenum; var indices);
|
|
glInterleavedArrays: procedure(format: GLenum; stride: LongInt; var pointer);
|
|
|
|
// Texture Mapping
|
|
glGenTextures: procedure(n: LongInt; var textures: LongWord);
|
|
glDeleteTextures: procedure(n: LongInt; var textures: LongWord);
|
|
glBindTexture: procedure(target: GLenum; texture: LongWord);
|
|
glPrioritizeTextures: procedure(n: LongInt; var textures: LongWord; var priorities: GLclampf);
|
|
glAreTexturesResident: function(n: LongInt; var textures: LongWord; var residences: Boolean): Boolean;
|
|
glIsTexture: function(texture: LongWord): Boolean;
|
|
glTexSubImage1D: procedure(target: GLenum; level, xoffset, width: LongInt; format, AType: GLenum; var pixels);
|
|
glTexSubImage2D: procedure(target: GLenum; level, xoffset, yoffset, width, height: LongInt; format, AType: GLenum; var pixels);
|
|
glCopyTexImage1D: procedure(target: GLenum; level: LongInt; format: GLenum; x, y, width, border: LongInt);
|
|
glCopyTexImage2D: procedure(target: GLenum; level: LongInt; format: GLenum; x, y, width, height, border: LongInt);
|
|
glCopyTexSubImage1D: procedure(target: GLenum; level, xoffset, x, y, width: LongInt);
|
|
glCopyTexSubImage2D: procedure(target: GLenum; level, xoffset, yoffset, x, y, width, height: LongInt);
|
|
|
|
%END
|