mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-23 01:18:50 +02:00
59 lines
2.5 KiB
Modula-2
59 lines
2.5 KiB
Modula-2
# This is the definition file for all GL 1.2 stuff
|
|
|
|
%COPY_INTERFACE
|
|
|
|
const
|
|
// GL 1.2 texturing
|
|
GL_PACK_SKIP_IMAGES = $806B;
|
|
GL_PACK_IMAGE_HEIGHT = $806C;
|
|
GL_UNPACK_SKIP_IMAGES = $806D;
|
|
GL_UNPACK_IMAGE_HEIGHT = $806E;
|
|
GL_TEXTURE_3D = $806F;
|
|
GL_PROXY_TEXTURE_3D = $8070;
|
|
GL_TEXTURE_DEPTH = $8071;
|
|
GL_TEXTURE_WRAP_R = $8072;
|
|
GL_MAX_3D_TEXTURE_SIZE = $8073;
|
|
GL_TEXTURE_BINDING_3D = $806A;
|
|
|
|
const
|
|
GL_RESCALE_NORMAL = $803A;
|
|
GL_CLAMP_TO_EDGE = $812F;
|
|
GL_MAX_ELEMENTS_VERTICES = $F0E8;
|
|
GL_MAX_ELEMENTS_INDICES = $F0E9;
|
|
GL_BGR = $80E0;
|
|
GL_BGRA = $80E1;
|
|
GL_UNSIGNED_BYTE_3_3_2 = $8032;
|
|
GL_UNSIGNED_BYTE_2_3_3_REV = $8362;
|
|
GL_UNSIGNED_SHORT_5_6_5 = $8363;
|
|
GL_UNSIGNED_SHORT_5_6_5_REV = $8364;
|
|
GL_UNSIGNED_SHORT_4_4_4_4 = $8033;
|
|
GL_UNSIGNED_SHORT_4_4_4_4_REV = $8365;
|
|
GL_UNSIGNED_SHORT_5_5_5_1 = $8034;
|
|
GL_UNSIGNED_SHORT_1_5_5_5_REV = $8366;
|
|
GL_UNSIGNED_INT_8_8_8_8 = $8035;
|
|
GL_UNSIGNED_INT_8_8_8_8_REV = $8367;
|
|
GL_UNSIGNED_INT_10_10_10_2 = $8036;
|
|
GL_UNSIGNED_INT_2_10_10_10_REV = $8368;
|
|
GL_LIGHT_MODEL_COLOR_CONTROL = $81F8;
|
|
GL_SINGLE_COLOR = $81F9;
|
|
GL_SEPARATE_SPECULAR_COLOR = $81FA;
|
|
GL_TEXTURE_MIN_LOD = $813A;
|
|
GL_TEXTURE_MAX_LOD = $813B;
|
|
GL_TEXTURE_BASE_LEVEL = $813C;
|
|
GL_TEXTURE_MAX_LEVEL = $813D;
|
|
|
|
%END
|
|
|
|
|
|
#=====================================================================
|
|
# Procedures and functions
|
|
#=====================================================================
|
|
|
|
%PROCS
|
|
glDrawRangeElements: procedure(mode: GLenum; AStart, AEnd: LongWord; count: LongInt; AType: GLenum; var indices);
|
|
glTexImage3D: procedure(target: GLenum; level: LongInt; internalFormat: GLenum; width, height, depth, border: LongInt; format, AType: GLEnum; var pixels);
|
|
glTexSubImage3D: procedure(target: GLenum; level: LongInt; xoffset, yoffset, zoffset, width, height, depth: LongInt; format, AType: GLEnum; var pixels);
|
|
glCopyTexSubImage3D: procedure(target: GLenum; level: LongInt; xoffset, yoffset, zoffset, x, y, width, height: LongInt);
|
|
%END
|
|
|