+
−(*
+
− * Hedgewars, a free turn based strategy game
+
− * Copyright (c) 2011 Richard Deurwaarder <xeli@xelification.com>
+
− *
+
− * This program is free software; you can redistribute it and/or modify
+
− * it under the terms of the GNU General Public License as published by
+
− * the Free Software Foundation; version 2 of the License
+
− *
+
− * This program is distributed in the hope that it will be useful,
+
− * but WITHOUT ANY WARRANTY; without even the implied warranty of
+
− * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+
− * GNU General Public License for more details.
+
− *
+
− * You should have received a copy of the GNU General Public License
+
− * along with this program; if not, write to the Free Software
+
− * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+
− *)
+
−
+
−{$mode objfpc}
+
−unit gles11;
+
−interface
+
−
+
−{
+
−  Automatically converted by H2Pas 1.0.0 from gl.hh
+
−  The following command line parameters were used:
+
−    -P
+
−    -l
+
−    GLESv1_CM
+
−    -o
+
−    gles11.pp
+
−    -D
+
−    gl.hh
+
−}
+
−
+
−  procedure init;
+
−
+
−  const
+
−    External_library='GLESv1_CM'; {Setup as you need}
+
−
+
−  Type
+
− 
+
−//     khronos_int32_t = int32_t;
+
−//     khronos_uint32_t = uint32_t;
+
−//     khronos_int64_t = int64_t;
+
−//     khronos_uint64_t = uint64_t;
+
−
+
−  khronos_int32_t = longint;
+
−  khronos_uint32_t = longword;
+
−  khronos_int64_t = Int64;
+
−  khronos_uint64_t = QWord;
+
−  khronos_int8_t = char;
+
−  khronos_uint8_t = byte;
+
−  khronos_int16_t = smallint;
+
−  khronos_uint16_t = word;
+
−  khronos_intptr_t = longint;
+
−  khronos_uintptr_t = dword;
+
−  khronos_ssize_t = longint;
+
−  khronos_usize_t = dword;
+
−  khronos_float_t = single;
+
−
+
−  GLvoid = pointer;
+
−  GLenum = dword;
+
−  GLboolean = byte;
+
−  GLbitfield = dword;
+
−  GLshort = smallint;
+
−  GLint = longint;
+
−  GLsizei = longint;
+
−  GLushort = word;
+
−  GLuint = dword;
+
−
+
−  GLbyte = khronos_int8_t;
+
−  GLubyte = khronos_uint8_t;
+
−  GLfloat = khronos_float_t;
+
−  GLclampf = khronos_float_t;
+
−  GLfixed = khronos_int32_t;
+
−  GLclampx = khronos_int32_t;
+
−  GLintptr = khronos_intptr_t;
+
−  GLsizeiptr = khronos_ssize_t;
+
−
+
−  PGLboolean  = ^GLboolean;
+
−  PGLfixed  = ^GLfixed;
+
−  PGLfloat  = ^GLfloat;
+
−  PGLint  = ^GLint;
+
−  PGLuint  = ^GLuint;
+
−  PGLvoid  = ^GLvoid;
+
−  PGLubyte = ^GLubyte;
+
−{$IFDEF FPC}
+
−{$PACKRECORDS C}
+
−{$ENDIF}
+
−
+
−  const
+
−//    GL_API = KHRONOS_APICALL;     
+
−{$define KHRONOS_APIENTRY}  
+
−     GL_DIRECT_TEXTURE_2D_QUALCOMM = $7E80;     
+
−
+
−  {*********************************************************** }
+
−  { OpenGL ES core versions  }
+
−
+
−  const
+
−     GL_VERSION_ES_CM_1_0 = 1;     
+
−     GL_VERSION_ES_CL_1_0 = 1;     
+
−     GL_VERSION_ES_CM_1_1 = 1;     
+
−     GL_VERSION_ES_CL_1_1 = 1;     
+
−  { ClearBufferMask  }
+
−     GL_DEPTH_BUFFER_BIT = $00000100;     
+
−     GL_STENCIL_BUFFER_BIT = $00000400;     
+
−     GL_COLOR_BUFFER_BIT = $00004000;     
+
−  { Boolean  }
+
−     GL_FALSE = 0;     
+
−     GL_TRUE = 1;     
+
−  { BeginMode  }
+
−     GL_POINTS = $0000;     
+
−     GL_LINES = $0001;     
+
−     GL_LINE_LOOP = $0002;     
+
−     GL_LINE_STRIP = $0003;     
+
−     GL_TRIANGLES = $0004;     
+
−     GL_TRIANGLE_STRIP = $0005;     
+
−     GL_TRIANGLE_FAN = $0006;     
+
−  { AlphaFunction  }
+
−     GL_NEVER = $0200;     
+
−     GL_LESS = $0201;     
+
−     GL_EQUAL = $0202;     
+
−     GL_LEQUAL = $0203;     
+
−     GL_GREATER = $0204;     
+
−     GL_NOTEQUAL = $0205;     
+
−     GL_GEQUAL = $0206;     
+
−     GL_ALWAYS = $0207;     
+
−  { BlendingFactorDest  }
+
−     GL_ZERO = 0;     
+
−     GL_ONE = 1;     
+
−     GL_SRC_COLOR = $0300;     
+
−     GL_ONE_MINUS_SRC_COLOR = $0301;     
+
−     GL_SRC_ALPHA = $0302;     
+
−     GL_ONE_MINUS_SRC_ALPHA = $0303;     
+
−     GL_DST_ALPHA = $0304;     
+
−     GL_ONE_MINUS_DST_ALPHA = $0305;     
+
−  { BlendingFactorSrc  }
+
−  {      GL_ZERO  }
+
−  {      GL_ONE  }
+
−     GL_DST_COLOR = $0306;     
+
−     GL_ONE_MINUS_DST_COLOR = $0307;     
+
−     GL_SRC_ALPHA_SATURATE = $0308;     
+
−  {      GL_SRC_ALPHA  }
+
−  {      GL_ONE_MINUS_SRC_ALPHA  }
+
−  {      GL_DST_ALPHA  }
+
−  {      GL_ONE_MINUS_DST_ALPHA  }
+
−  { ClipPlaneName  }
+
−     GL_CLIP_PLANE0 = $3000;     
+
−     GL_CLIP_PLANE1 = $3001;     
+
−     GL_CLIP_PLANE2 = $3002;     
+
−     GL_CLIP_PLANE3 = $3003;     
+
−     GL_CLIP_PLANE4 = $3004;     
+
−     GL_CLIP_PLANE5 = $3005;     
+
−  { ColorMaterialFace  }
+
−  {      GL_FRONT_AND_BACK  }
+
−  { ColorMaterialParameter  }
+
−  {      GL_AMBIENT_AND_DIFFUSE  }
+
−  { ColorPointerType  }
+
−  {      GL_UNSIGNED_BYTE  }
+
−  {      GL_FLOAT  }
+
−  {      GL_FIXED  }
+
−  { CullFaceMode  }
+
−     GL_FRONT = $0404;     
+
−     GL_BACK = $0405;     
+
−     GL_FRONT_AND_BACK = $0408;     
+
−  { DepthFunction  }
+
−  {      GL_NEVER  }
+
−  {      GL_LESS  }
+
−  {      GL_EQUAL  }
+
−  {      GL_LEQUAL  }
+
−  {      GL_GREATER  }
+
−  {      GL_NOTEQUAL  }
+
−  {      GL_GEQUAL  }
+
−  {      GL_ALWAYS  }
+
−  { EnableCap  }
+
−     GL_FOG = $0B60;     
+
−     GL_LIGHTING = $0B50;     
+
−     GL_TEXTURE_2D = $0DE1;     
+
−     GL_CULL_FACE = $0B44;     
+
−     GL_ALPHA_TEST = $0BC0;     
+
−     GL_BLEND = $0BE2;     
+
−     GL_COLOR_LOGIC_OP = $0BF2;     
+
−     GL_DITHER = $0BD0;     
+
−     GL_STENCIL_TEST = $0B90;     
+
−     GL_DEPTH_TEST = $0B71;     
+
−  {      GL_LIGHT0  }
+
−  {      GL_LIGHT1  }
+
−  {      GL_LIGHT2  }
+
−  {      GL_LIGHT3  }
+
−  {      GL_LIGHT4  }
+
−  {      GL_LIGHT5  }
+
−  {      GL_LIGHT6  }
+
−  {      GL_LIGHT7  }
+
−     GL_POINT_SMOOTH = $0B10;     
+
−     GL_LINE_SMOOTH = $0B20;     
+
−     GL_SCISSOR_TEST = $0C11;     
+
−     GL_COLOR_MATERIAL = $0B57;     
+
−     GL_NORMALIZE = $0BA1;     
+
−     GL_RESCALE_NORMAL = $803A;     
+
−     GL_POLYGON_OFFSET_FILL = $8037;     
+
−     GL_VERTEX_ARRAY = $8074;     
+
−     GL_NORMAL_ARRAY = $8075;     
+
−     GL_COLOR_ARRAY = $8076;     
+
−     GL_TEXTURE_COORD_ARRAY = $8078;     
+
−     GL_MULTISAMPLE = $809D;     
+
−     GL_SAMPLE_ALPHA_TO_COVERAGE = $809E;     
+
−     GL_SAMPLE_ALPHA_TO_ONE = $809F;     
+
−     GL_SAMPLE_COVERAGE = $80A0;     
+
−  { ErrorCode  }
+
−     GL_NO_ERROR = 0;     
+
−     GL_INVALID_ENUM = $0500;     
+
−     GL_INVALID_VALUE = $0501;     
+
−     GL_INVALID_OPERATION = $0502;     
+
−     GL_STACK_OVERFLOW = $0503;     
+
−     GL_STACK_UNDERFLOW = $0504;     
+
−     GL_OUT_OF_MEMORY = $0505;     
+
−  { FogMode  }
+
−  {      GL_LINEAR  }
+
−     GL_EXP = $0800;     
+
−     GL_EXP2 = $0801;     
+
−  { FogParameter  }
+
−     GL_FOG_DENSITY = $0B62;     
+
−     GL_FOG_START = $0B63;     
+
−     GL_FOG_END = $0B64;     
+
−     GL_FOG_MODE = $0B65;     
+
−     GL_FOG_COLOR = $0B66;     
+
−  { FrontFaceDirection  }
+
−     GL_CW = $0900;     
+
−     GL_CCW = $0901;     
+
−  { GetPName  }
+
−     GL_CURRENT_COLOR = $0B00;     
+
−     GL_CURRENT_NORMAL = $0B02;     
+
−     GL_CURRENT_TEXTURE_COORDS = $0B03;     
+
−     GL_POINT_SIZE = $0B11;     
+
−     GL_POINT_SIZE_MIN = $8126;     
+
−     GL_POINT_SIZE_MAX = $8127;     
+
−     GL_POINT_FADE_THRESHOLD_SIZE = $8128;     
+
−     GL_POINT_DISTANCE_ATTENUATION = $8129;     
+
−     GL_SMOOTH_POINT_SIZE_RANGE = $0B12;     
+
−     GL_LINE_WIDTH = $0B21;     
+
−     GL_SMOOTH_LINE_WIDTH_RANGE = $0B22;     
+
−     GL_ALIASED_POINT_SIZE_RANGE = $846D;     
+
−     GL_ALIASED_LINE_WIDTH_RANGE = $846E;     
+
−     GL_CULL_FACE_MODE = $0B45;     
+
−     GL_FRONT_FACE = $0B46;     
+
−     GL_SHADE_MODEL = $0B54;     
+
−     GL_DEPTH_RANGE = $0B70;     
+
−     GL_DEPTH_WRITEMASK = $0B72;     
+
−     GL_DEPTH_CLEAR_VALUE = $0B73;     
+
−     GL_DEPTH_FUNC = $0B74;     
+
−     GL_STENCIL_CLEAR_VALUE = $0B91;     
+
−     GL_STENCIL_FUNC = $0B92;     
+
−     GL_STENCIL_VALUE_MASK = $0B93;     
+
−     GL_STENCIL_FAIL = $0B94;     
+
−     GL_STENCIL_PASS_DEPTH_FAIL = $0B95;     
+
−     GL_STENCIL_PASS_DEPTH_PASS = $0B96;     
+
−     GL_STENCIL_REF = $0B97;     
+
−     GL_STENCIL_WRITEMASK = $0B98;     
+
−     GL_MATRIX_MODE = $0BA0;     
+
−     GL_VIEWPORT = $0BA2;     
+
−     GL_MODELVIEW_STACK_DEPTH = $0BA3;     
+
−     GL_PROJECTION_STACK_DEPTH = $0BA4;     
+
−     GL_TEXTURE_STACK_DEPTH = $0BA5;     
+
−     GL_MODELVIEW_MATRIX = $0BA6;     
+
−     GL_PROJECTION_MATRIX = $0BA7;     
+
−     GL_TEXTURE_MATRIX = $0BA8;     
+
−     GL_ALPHA_TEST_FUNC = $0BC1;     
+
−     GL_ALPHA_TEST_REF = $0BC2;     
+
−     GL_BLEND_DST = $0BE0;     
+
−     GL_BLEND_SRC = $0BE1;     
+
−     GL_LOGIC_OP_MODE = $0BF0;     
+
−     GL_SCISSOR_BOX = $0C10;     
+
−//     GL_SCISSOR_TEST = $0C11;     
+
−     GL_COLOR_CLEAR_VALUE = $0C22;     
+
−     GL_COLOR_WRITEMASK = $0C23;     
+
−     GL_UNPACK_ALIGNMENT = $0CF5;     
+
−     GL_PACK_ALIGNMENT = $0D05;     
+
−     GL_MAX_LIGHTS = $0D31;     
+
−     GL_MAX_CLIP_PLANES = $0D32;     
+
−     GL_MAX_TEXTURE_SIZE = $0D33;     
+
−     GL_MAX_MODELVIEW_STACK_DEPTH = $0D36;     
+
−     GL_MAX_PROJECTION_STACK_DEPTH = $0D38;     
+
−     GL_MAX_TEXTURE_STACK_DEPTH = $0D39;     
+
−     GL_MAX_VIEWPORT_DIMS = $0D3A;     
+
−     GL_MAX_TEXTURE_UNITS = $84E2;     
+
−     GL_SUBPIXEL_BITS = $0D50;     
+
−     GL_RED_BITS = $0D52;     
+
−     GL_GREEN_BITS = $0D53;     
+
−     GL_BLUE_BITS = $0D54;     
+
−     GL_ALPHA_BITS = $0D55;     
+
−     GL_DEPTH_BITS = $0D56;     
+
−     GL_STENCIL_BITS = $0D57;     
+
−     GL_POLYGON_OFFSET_UNITS = $2A00;     
+
−//     GL_POLYGON_OFFSET_FILL = $8037;     
+
−     GL_POLYGON_OFFSET_FACTOR = $8038;     
+
−     GL_TEXTURE_BINDING_2D = $8069;     
+
−     GL_VERTEX_ARRAY_SIZE = $807A;     
+
−     GL_VERTEX_ARRAY_TYPE = $807B;     
+
−     GL_VERTEX_ARRAY_STRIDE = $807C;     
+
−     GL_NORMAL_ARRAY_TYPE = $807E;     
+
−     GL_NORMAL_ARRAY_STRIDE = $807F;     
+
−     GL_COLOR_ARRAY_SIZE = $8081;     
+
−     GL_COLOR_ARRAY_TYPE = $8082;     
+
−     GL_COLOR_ARRAY_STRIDE = $8083;     
+
−     GL_TEXTURE_COORD_ARRAY_SIZE = $8088;     
+
−     GL_TEXTURE_COORD_ARRAY_TYPE = $8089;     
+
−     GL_TEXTURE_COORD_ARRAY_STRIDE = $808A;     
+
−     GL_VERTEX_ARRAY_POINTER = $808E;     
+
−     GL_NORMAL_ARRAY_POINTER = $808F;     
+
−     GL_COLOR_ARRAY_POINTER = $8090;     
+
−     GL_TEXTURE_COORD_ARRAY_POINTER = $8092;     
+
−     GL_SAMPLE_BUFFERS = $80A8;     
+
−     GL_SAMPLES = $80A9;     
+
−     GL_SAMPLE_COVERAGE_VALUE = $80AA;     
+
−     GL_SAMPLE_COVERAGE_INVERT = $80AB;     
+
−  { GetTextureParameter  }
+
−  {      GL_TEXTURE_MAG_FILTER  }
+
−  {      GL_TEXTURE_MIN_FILTER  }
+
−  {      GL_TEXTURE_WRAP_S  }
+
−  {      GL_TEXTURE_WRAP_T  }
+
−     GL_NUM_COMPRESSED_TEXTURE_FORMATS = $86A2;     
+
−     GL_COMPRESSED_TEXTURE_FORMATS = $86A3;     
+
−  { HintMode  }
+
−     GL_DONT_CARE = $1100;     
+
−     GL_FASTEST = $1101;     
+
−     GL_NICEST = $1102;     
+
−  { HintTarget  }
+
−     GL_PERSPECTIVE_CORRECTION_HINT = $0C50;     
+
−     GL_POINT_SMOOTH_HINT = $0C51;     
+
−     GL_LINE_SMOOTH_HINT = $0C52;     
+
−     GL_FOG_HINT = $0C54;     
+
−     GL_GENERATE_MIPMAP_HINT = $8192;     
+
−  { LightModelParameter  }
+
−     GL_LIGHT_MODEL_AMBIENT = $0B53;     
+
−     GL_LIGHT_MODEL_TWO_SIDE = $0B52;     
+
−  { LightParameter  }
+
−     GL_AMBIENT = $1200;     
+
−     GL_DIFFUSE = $1201;     
+
−     GL_SPECULAR = $1202;     
+
−     GL_POSITION = $1203;     
+
−     GL_SPOT_DIRECTION = $1204;     
+
−     GL_SPOT_EXPONENT = $1205;     
+
−     GL_SPOT_CUTOFF = $1206;     
+
−     GL_CONSTANT_ATTENUATION = $1207;     
+
−     GL_LINEAR_ATTENUATION = $1208;     
+
−     GL_QUADRATIC_ATTENUATION = $1209;     
+
−  { DataType  }
+
−     GL_BYTE = $1400;     
+
−     GL_UNSIGNED_BYTE = $1401;     
+
−     GL_SHORT = $1402;     
+
−     GL_UNSIGNED_SHORT = $1403;     
+
−     GL_FLOAT = $1406;     
+
−     GL_FIXED = $140C;     
+
−  { LogicOp  }
+
−     GL_CLEAR = $1500;     
+
−     GL_AND = $1501;     
+
−     GL_AND_REVERSE = $1502;     
+
−     GL_COPY = $1503;     
+
−     GL_AND_INVERTED = $1504;     
+
−     GL_NOOP = $1505;     
+
−     GL_XOR = $1506;     
+
−     GL_OR = $1507;     
+
−     GL_NOR = $1508;     
+
−     GL_EQUIV = $1509;     
+
−     GL_INVERT = $150A;     
+
−     GL_OR_REVERSE = $150B;     
+
−     GL_COPY_INVERTED = $150C;     
+
−     GL_OR_INVERTED = $150D;     
+
−     GL_NAND = $150E;     
+
−     GL_SET = $150F;     
+
−  { MaterialFace  }
+
−  {      GL_FRONT_AND_BACK  }
+
−  { MaterialParameter  }
+
−     GL_EMISSION = $1600;     
+
−     GL_SHININESS = $1601;     
+
−     GL_AMBIENT_AND_DIFFUSE = $1602;     
+
−  {      GL_AMBIENT  }
+
−  {      GL_DIFFUSE  }
+
−  {      GL_SPECULAR  }
+
−  { MatrixMode  }
+
−     GL_MODELVIEW = $1700;     
+
−     GL_PROJECTION = $1701;     
+
−     GL_TEXTURE = $1702;     
+
−  { NormalPointerType  }
+
−  {      GL_BYTE  }
+
−  {      GL_SHORT  }
+
−  {      GL_FLOAT  }
+
−  {      GL_FIXED  }
+
−  { PixelFormat  }
+
−     GL_ALPHA = $1906;     
+
−     GL_RGB = $1907;     
+
−     GL_RGBA = $1908;     
+
−     GL_LUMINANCE = $1909;     
+
−     GL_LUMINANCE_ALPHA = $190A;     
+
−  { PixelStoreParameter  }
+
−//     GL_UNPACK_ALIGNMENT = $0CF5;     
+
−//     GL_PACK_ALIGNMENT = $0D05;     
+
−  { PixelType  }
+
−  {      GL_UNSIGNED_BYTE  }
+
−     GL_UNSIGNED_SHORT_4_4_4_4 = $8033;     
+
−     GL_UNSIGNED_SHORT_5_5_5_1 = $8034;     
+
−     GL_UNSIGNED_SHORT_5_6_5 = $8363;     
+
−  { ShadingModel  }
+
−     GL_FLAT = $1D00;     
+
−     GL_SMOOTH = $1D01;     
+
−  { StencilFunction  }
+
−  {      GL_NEVER  }
+
−  {      GL_LESS  }
+
−  {      GL_EQUAL  }
+
−  {      GL_LEQUAL  }
+
−  {      GL_GREATER  }
+
−  {      GL_NOTEQUAL  }
+
−  {      GL_GEQUAL  }
+
−  {      GL_ALWAYS  }
+
−  { StencilOp  }
+
−  {      GL_ZERO  }
+
−     GL_KEEP = $1E00;     
+
−     GL_REPLACE = $1E01;     
+
−     GL_INCR = $1E02;     
+
−     GL_DECR = $1E03;     
+
−  {      GL_INVERT  }
+
−  { StringName  }
+
−     GL_VENDOR = $1F00;     
+
−     GL_RENDERER = $1F01;     
+
−     GL_VERSION = $1F02;     
+
−     GL_EXTENSIONS = $1F03;     
+
−  { TexCoordPointerType  }
+
−  {      GL_SHORT  }
+
−  {      GL_FLOAT  }
+
−  {      GL_FIXED  }
+
−  {      GL_BYTE  }
+
−  { TextureEnvMode  }
+
−     GL_MODULATE = $2100;     
+
−     GL_DECAL = $2101;     
+
−  {      GL_BLEND  }
+
−     GL_ADD = $0104;     
+
−  {      GL_REPLACE  }
+
−  { TextureEnvParameter  }
+
−     GL_TEXTURE_ENV_MODE = $2200;     
+
−     GL_TEXTURE_ENV_COLOR = $2201;     
+
−  { TextureEnvTarget  }
+
−     GL_TEXTURE_ENV = $2300;     
+
−  { TextureMagFilter  }
+
−     GL_NEAREST = $2600;     
+
−     GL_LINEAR = $2601;     
+
−  { TextureMinFilter  }
+
−  {      GL_NEAREST  }
+
−  {      GL_LINEAR  }
+
−     GL_NEAREST_MIPMAP_NEAREST = $2700;     
+
−     GL_LINEAR_MIPMAP_NEAREST = $2701;     
+
−     GL_NEAREST_MIPMAP_LINEAR = $2702;     
+
−     GL_LINEAR_MIPMAP_LINEAR = $2703;     
+
−  { TextureParameterName  }
+
−     GL_TEXTURE_MAG_FILTER = $2800;     
+
−     GL_TEXTURE_MIN_FILTER = $2801;     
+
−     GL_TEXTURE_WRAP_S = $2802;     
+
−     GL_TEXTURE_WRAP_T = $2803;     
+
−     GL_GENERATE_MIPMAP = $8191;     
+
−  { TextureTarget  }
+
−  {      GL_TEXTURE_2D  }
+
−  { TextureUnit  }
+
−     GL_TEXTURE0 = $84C0;     
+
−     GL_TEXTURE1 = $84C1;     
+
−     GL_TEXTURE2 = $84C2;     
+
−     GL_TEXTURE3 = $84C3;     
+
−     GL_TEXTURE4 = $84C4;     
+
−     GL_TEXTURE5 = $84C5;     
+
−     GL_TEXTURE6 = $84C6;     
+
−     GL_TEXTURE7 = $84C7;     
+
−     GL_TEXTURE8 = $84C8;     
+
−     GL_TEXTURE9 = $84C9;     
+
−     GL_TEXTURE10 = $84CA;     
+
−     GL_TEXTURE11 = $84CB;     
+
−     GL_TEXTURE12 = $84CC;     
+
−     GL_TEXTURE13 = $84CD;     
+
−     GL_TEXTURE14 = $84CE;     
+
−     GL_TEXTURE15 = $84CF;     
+
−     GL_TEXTURE16 = $84D0;     
+
−     GL_TEXTURE17 = $84D1;     
+
−     GL_TEXTURE18 = $84D2;     
+
−     GL_TEXTURE19 = $84D3;     
+
−     GL_TEXTURE20 = $84D4;     
+
−     GL_TEXTURE21 = $84D5;     
+
−     GL_TEXTURE22 = $84D6;     
+
−     GL_TEXTURE23 = $84D7;     
+
−     GL_TEXTURE24 = $84D8;     
+
−     GL_TEXTURE25 = $84D9;     
+
−     GL_TEXTURE26 = $84DA;     
+
−     GL_TEXTURE27 = $84DB;     
+
−     GL_TEXTURE28 = $84DC;     
+
−     GL_TEXTURE29 = $84DD;     
+
−     GL_TEXTURE30 = $84DE;     
+
−     GL_TEXTURE31 = $84DF;     
+
−     GL_ACTIVE_TEXTURE = $84E0;     
+
−     GL_CLIENT_ACTIVE_TEXTURE = $84E1;     
+
−  { TextureWrapMode  }
+
−     GL_REPEAT = $2901;     
+
−     GL_CLAMP_TO_EDGE = $812F;     
+
−  { VertexPointerType  }
+
−  {      GL_SHORT  }
+
−  {      GL_FLOAT  }
+
−  {      GL_FIXED  }
+
−  {      GL_BYTE  }
+
−  { LightName  }
+
−     GL_LIGHT0 = $4000;     
+
−     GL_LIGHT1 = $4001;     
+
−     GL_LIGHT2 = $4002;     
+
−     GL_LIGHT3 = $4003;     
+
−     GL_LIGHT4 = $4004;     
+
−     GL_LIGHT5 = $4005;     
+
−     GL_LIGHT6 = $4006;     
+
−     GL_LIGHT7 = $4007;     
+
−  { Buffer Objects  }
+
−     GL_ARRAY_BUFFER = $8892;     
+
−     GL_ELEMENT_ARRAY_BUFFER = $8893;     
+
−     GL_ARRAY_BUFFER_BINDING = $8894;     
+
−     GL_ELEMENT_ARRAY_BUFFER_BINDING = $8895;     
+
−     GL_VERTEX_ARRAY_BUFFER_BINDING = $8896;     
+
−     GL_NORMAL_ARRAY_BUFFER_BINDING = $8897;     
+
−     GL_COLOR_ARRAY_BUFFER_BINDING = $8898;     
+
−     GL_TEXTURE_COORD_ARRAY_BUFFER_BINDING = $889A;     
+
−     GL_STATIC_DRAW = $88E4;     
+
−     GL_DYNAMIC_DRAW = $88E8;     
+
−     GL_BUFFER_SIZE = $8764;     
+
−     GL_BUFFER_USAGE = $8765;     
+
−  { Texture combine + dot3  }
+
−     GL_SUBTRACT = $84E7;     
+
−     GL_COMBINE = $8570;     
+
−     GL_COMBINE_RGB = $8571;     
+
−     GL_COMBINE_ALPHA = $8572;     
+
−     GL_RGB_SCALE = $8573;     
+
−     GL_ADD_SIGNED = $8574;     
+
−     GL_INTERPOLATE = $8575;     
+
−     GL_CONSTANT = $8576;     
+
−     GL_PRIMARY_COLOR = $8577;     
+
−     GL_PREVIOUS = $8578;     
+
−     GL_OPERAND0_RGB = $8590;     
+
−     GL_OPERAND1_RGB = $8591;     
+
−     GL_OPERAND2_RGB = $8592;     
+
−     GL_OPERAND0_ALPHA = $8598;     
+
−     GL_OPERAND1_ALPHA = $8599;     
+
−     GL_OPERAND2_ALPHA = $859A;     
+
−     GL_ALPHA_SCALE = $0D1C;     
+
−     GL_SRC0_RGB = $8580;     
+
−     GL_SRC1_RGB = $8581;     
+
−     GL_SRC2_RGB = $8582;     
+
−     GL_SRC0_ALPHA = $8588;     
+
−     GL_SRC1_ALPHA = $8589;     
+
−     GL_SRC2_ALPHA = $858A;     
+
−     GL_DOT3_RGB = $86AE;     
+
−     GL_DOT3_RGBA = $86AF;     
+
−  {------------------------------------------------------------------------*
+
−   * required OES extension tokens
+
−   *------------------------------------------------------------------------ }
+
−  { OES_read_format  }
+
−     GL_IMPLEMENTATION_COLOR_READ_TYPE_OES = $8B9A;     
+
−     GL_IMPLEMENTATION_COLOR_READ_FORMAT_OES = $8B9B;     
+
−  { GL_OES_compressed_paletted_texture  }
+
−     GL_PALETTE4_RGB8_OES = $8B90;     
+
−     GL_PALETTE4_RGBA8_OES = $8B91;     
+
−     GL_PALETTE4_R5_G6_B5_OES = $8B92;     
+
−     GL_PALETTE4_RGBA4_OES = $8B93;     
+
−     GL_PALETTE4_RGB5_A1_OES = $8B94;     
+
−     GL_PALETTE8_RGB8_OES = $8B95;     
+
−     GL_PALETTE8_RGBA8_OES = $8B96;     
+
−     GL_PALETTE8_R5_G6_B5_OES = $8B97;     
+
−     GL_PALETTE8_RGBA4_OES = $8B98;     
+
−     GL_PALETTE8_RGB5_A1_OES = $8B99;     
+
−  { OES_point_size_array  }
+
−     GL_POINT_SIZE_ARRAY_OES = $8B9C;     
+
−     GL_POINT_SIZE_ARRAY_TYPE_OES = $898A;     
+
−     GL_POINT_SIZE_ARRAY_STRIDE_OES = $898B;     
+
−     GL_POINT_SIZE_ARRAY_POINTER_OES = $898C;     
+
−     GL_POINT_SIZE_ARRAY_BUFFER_BINDING_OES = $8B9F;     
+
−  { GL_OES_point_sprite  }
+
−     GL_POINT_SPRITE_OES = $8861;     
+
−     GL_COORD_REPLACE_OES = $8862;     
+
−  {*********************************************************** }
+
−  { Available only in Common profile  }
+
−
+
−  var
+
−    glAlphaFunc : procedure(func:GLenum; ref:GLclampf);cdecl;
+
−    glClearColor : procedure(red:GLclampf; green:GLclampf; blue:GLclampf; alpha:GLclampf);cdecl;
+
−    glClearDepthf : procedure(depth:GLclampf);cdecl;
+
−(* Const before type ignored *)
+
−    glClipPlanef : procedure(plane:GLenum; equation:pGLfloat);cdecl;
+
−    glColor4f : procedure(red:GLfloat; green:GLfloat; blue:GLfloat; alpha:GLfloat);cdecl;
+
−    glDepthRangef : procedure(zNear:GLclampf; zFar:GLclampf);cdecl;
+
−    glFogf : procedure(pname:GLenum; param:GLfloat);cdecl;
+
−(* Const before type ignored *)
+
−    glFogfv : procedure(pname:GLenum; params:pGLfloat);cdecl;
+
−    glFrustumf : procedure(left:GLfloat; right:GLfloat; bottom:GLfloat; top:GLfloat; zNear:GLfloat; 
+
−      zFar:GLfloat);cdecl;
+
−    glGetClipPlanef : procedure(pname:GLenum; eqn:array of GLfloat);cdecl;
+
−    glGetFloatv : procedure(pname:GLenum; params:pGLfloat);cdecl;
+
−    glGetLightfv : procedure(light:GLenum; pname:GLenum; params:pGLfloat);cdecl;
+
−    glGetMaterialfv : procedure(face:GLenum; pname:GLenum; params:pGLfloat);cdecl;
+
−    glGetTexEnvfv : procedure(env:GLenum; pname:GLenum; params:pGLfloat);cdecl;
+
−    glGetTexParameterfv : procedure(target:GLenum; pname:GLenum; params:pGLfloat);cdecl;
+
−    glLightModelf : procedure(pname:GLenum; param:GLfloat);cdecl;
+
−(* Const before type ignored *)
+
−    glLightModelfv : procedure(pname:GLenum; params:pGLfloat);cdecl;
+
−    glLightf : procedure(light:GLenum; pname:GLenum; param:GLfloat);cdecl;
+
−(* Const before type ignored *)
+
−    glLightfv : procedure(light:GLenum; pname:GLenum; params:pGLfloat);cdecl;
+
−    glLineWidth : procedure(width:GLfloat);cdecl;
+
−(* Const before type ignored *)
+
−    glLoadMatrixf : procedure(m:pGLfloat);cdecl;
+
−    glMaterialf : procedure(face:GLenum; pname:GLenum; param:GLfloat);cdecl;
+
−(* Const before type ignored *)
+
−    glMaterialfv : procedure(face:GLenum; pname:GLenum; params:pGLfloat);cdecl;
+
−(* Const before type ignored *)
+
−    glMultMatrixf : procedure(m:pGLfloat);cdecl;
+
−    glMultiTexCoord4f : procedure(target:GLenum; s:GLfloat; t:GLfloat; r:GLfloat; q:GLfloat);cdecl;
+
−    glNormal3f : procedure(nx:GLfloat; ny:GLfloat; nz:GLfloat);cdecl;
+
−    glOrthof : procedure(left:GLfloat; right:GLfloat; bottom:GLfloat; top:GLfloat; zNear:GLfloat; 
+
−      zFar:GLfloat);cdecl;
+
−    glPointParameterf : procedure(pname:GLenum; param:GLfloat);cdecl;
+
−(* Const before type ignored *)
+
−    glPointParameterfv : procedure(pname:GLenum; params:pGLfloat);cdecl;
+
−    glPointSize : procedure(size:GLfloat);cdecl;
+
−    glPolygonOffset : procedure(factor:GLfloat; units:GLfloat);cdecl;
+
−    glRotatef : procedure(angle:GLfloat; x:GLfloat; y:GLfloat; z:GLfloat);cdecl;
+
−    glScalef : procedure(x:GLfloat; y:GLfloat; z:GLfloat);cdecl;
+
−    glTexEnvf : procedure(target:GLenum; pname:GLenum; param:GLfloat);cdecl;
+
−(* Const before type ignored *)
+
−    glTexEnvfv : procedure(target:GLenum; pname:GLenum; params:pGLfloat);cdecl;
+
−    glTexParameterf : procedure(target:GLenum; pname:GLenum; param:GLfloat);cdecl;
+
−(* Const before type ignored *)
+
−    glTexParameterfv : procedure(target:GLenum; pname:GLenum; params:pGLfloat);cdecl;
+
−    glTranslatef : procedure(x:GLfloat; y:GLfloat; z:GLfloat);cdecl;
+
−  { Available in both Common and Common-Lite profiles  }
+
−    glActiveTexture : procedure(texture:GLenum);cdecl;
+
−    glAlphaFuncx : procedure(func:GLenum; ref:GLclampx);cdecl;
+
−    glBindBuffer : procedure(target:GLenum; buffer:GLuint);cdecl;
+
−    glBindTexture : procedure(target:GLenum; texture:GLuint);cdecl;
+
−    glBlendFunc : procedure(sfactor:GLenum; dfactor:GLenum);cdecl;
+
−(* Const before type ignored *)
+
−    glBufferData : procedure(target:GLenum; size:GLsizeiptr; data:pGLvoid; usage:GLenum);cdecl;
+
−(* Const before type ignored *)
+
−    glBufferSubData : procedure(target:GLenum; offset:GLintptr; size:GLsizeiptr; data:pGLvoid);cdecl;
+
−    glClear : procedure(mask:GLbitfield);cdecl;
+
−    glClearColorx : procedure(red:GLclampx; green:GLclampx; blue:GLclampx; alpha:GLclampx);cdecl;
+
−    glClearDepthx : procedure(depth:GLclampx);cdecl;
+
−    glClearStencil : procedure(s:GLint);cdecl;
+
−    glClientActiveTexture : procedure(texture:GLenum);cdecl;
+
−(* Const before type ignored *)
+
−    glClipPlanex : procedure(plane:GLenum; equation:pGLfixed);cdecl;
+
−    glColor4ub : procedure(red:GLubyte; green:GLubyte; blue:GLubyte; alpha:GLubyte);cdecl;
+
−    glColor4x : procedure(red:GLfixed; green:GLfixed; blue:GLfixed; alpha:GLfixed);cdecl;
+
−    glColorMask : procedure(red:GLboolean; green:GLboolean; blue:GLboolean; alpha:GLboolean);cdecl;
+
−(* Const before type ignored *)
+
−    glColorPointer : procedure(size:GLint; _type:GLenum; stride:GLsizei; pointer:pGLvoid);cdecl;
+
−(* Const before type ignored *)
+
−    glCompressedTexImage2D : procedure(target:GLenum; level:GLint; internalformat:GLenum; width:GLsizei; height:GLsizei; 
+
−      border:GLint; imageSize:GLsizei; data:pGLvoid);cdecl;
+
−(* Const before type ignored *)
+
−    glCompressedTexSubImage2D : procedure(target:GLenum; level:GLint; xoffset:GLint; yoffset:GLint; width:GLsizei; 
+
−      height:GLsizei; format:GLenum; imageSize:GLsizei; data:pGLvoid);cdecl;
+
−    glCopyTexImage2D : procedure(target:GLenum; level:GLint; internalformat:GLenum; x:GLint; y:GLint; 
+
−      width:GLsizei; height:GLsizei; border:GLint);cdecl;
+
−    glCopyTexSubImage2D : procedure(target:GLenum; level:GLint; xoffset:GLint; yoffset:GLint; x:GLint; 
+
−      y:GLint; width:GLsizei; height:GLsizei);cdecl;
+
−    glCullFace : procedure(mode:GLenum);cdecl;
+
−(* Const before type ignored *)
+
−    glDeleteBuffers : procedure(n:GLsizei; buffers:pGLuint);cdecl;
+
−(* Const before type ignored *)
+
−    glDeleteTextures : procedure(n:GLsizei; textures:pGLuint);cdecl;
+
−    glDepthFunc : procedure(func:GLenum);cdecl;
+
−    glDepthMask : procedure(flag:GLboolean);cdecl;
+
−    glDepthRangex : procedure(zNear:GLclampx; zFar:GLclampx);cdecl;
+
−    glDisable : procedure(cap:GLenum);cdecl;
+
−    glDisableClientState : procedure(arry:GLenum);cdecl;
+
−    glDrawArrays : procedure(mode:GLenum; first:GLint; count:GLsizei);cdecl;
+
−(* Const before type ignored *)
+
−    glDrawElements : procedure(mode:GLenum; count:GLsizei; _type:GLenum; indices:pGLvoid);cdecl;
+
−    glEnable : procedure(cap:GLenum);cdecl;
+
−    glEnableClientState : procedure(arry:GLenum);cdecl;
+
−    glFinish : procedure;cdecl;
+
−    glFlush : procedure;cdecl;
+
−    glFogx : procedure(pname:GLenum; param:GLfixed);cdecl;
+
−(* Const before type ignored *)
+
−    glFogxv : procedure(pname:GLenum; params:pGLfixed);cdecl;
+
−    glFrontFace : procedure(mode:GLenum);cdecl;
+
−    glFrustumx : procedure(left:GLfixed; right:GLfixed; bottom:GLfixed; top:GLfixed; zNear:GLfixed; 
+
−      zFar:GLfixed);cdecl;
+
−    glGetBooleanv : procedure(pname:GLenum; params:pGLboolean);cdecl;
+
−    glGetBufferParameteriv : procedure(target:GLenum; pname:GLenum; params:pGLint);cdecl;
+
−    glGetClipPlanex : procedure(pname:GLenum; eqn:array of GLfixed);cdecl;
+
−    glGenBuffers : procedure(n:GLsizei; buffers:pGLuint);cdecl;
+
−    glGenTextures : procedure(n:GLsizei; textures:pGLuint);cdecl;
+
−    glGetError : function:GLenum;cdecl;
+
−    glGetFixedv : procedure(pname:GLenum; params:pGLfixed);cdecl;
+
−    glGetIntegerv : procedure(pname:GLenum; params:pGLint);cdecl;
+
−    glGetLightxv : procedure(light:GLenum; pname:GLenum; params:pGLfixed);cdecl;
+
−    glGetMaterialxv : procedure(face:GLenum; pname:GLenum; params:pGLfixed);cdecl;
+
−    glGetPointerv : procedure(pname:GLenum; params:Ppointer);cdecl;
+
−(* Const before type ignored *)
+
−    glGetString : function(name:GLenum):PGLubyte;cdecl;
+
−    glGetTexEnviv : procedure(env:GLenum; pname:GLenum; params:pGLint);cdecl;
+
−    glGetTexEnvxv : procedure(env:GLenum; pname:GLenum; params:pGLfixed);cdecl;
+
−    glGetTexParameteriv : procedure(target:GLenum; pname:GLenum; params:pGLint);cdecl;
+
−    glGetTexParameterxv : procedure(target:GLenum; pname:GLenum; params:pGLfixed);cdecl;
+
−    glHint : procedure(target:GLenum; mode:GLenum);cdecl;
+
−    glIsBuffer : function(buffer:GLuint):GLboolean;cdecl;
+
−    glIsEnabled : function(cap:GLenum):GLboolean;cdecl;
+
−    glIsTexture : function(texture:GLuint):GLboolean;cdecl;
+
−    glLightModelx : procedure(pname:GLenum; param:GLfixed);cdecl;
+
−(* Const before type ignored *)
+
−    glLightModelxv : procedure(pname:GLenum; params:pGLfixed);cdecl;
+
−    glLightx : procedure(light:GLenum; pname:GLenum; param:GLfixed);cdecl;
+
−(* Const before type ignored *)
+
−    glLightxv : procedure(light:GLenum; pname:GLenum; params:pGLfixed);cdecl;
+
−    glLineWidthx : procedure(width:GLfixed);cdecl;
+
−    glLoadIdentity : procedure;cdecl;
+
−(* Const before type ignored *)
+
−    glLoadMatrixx : procedure(m:pGLfixed);cdecl;
+
−    glLogicOp : procedure(opcode:GLenum);cdecl;
+
−    glMaterialx : procedure(face:GLenum; pname:GLenum; param:GLfixed);cdecl;
+
−(* Const before type ignored *)
+
−    glMaterialxv : procedure(face:GLenum; pname:GLenum; params:pGLfixed);cdecl;
+
−    glMatrixMode : procedure(mode:GLenum);cdecl;
+
−(* Const before type ignored *)
+
−    glMultMatrixx : procedure(m:pGLfixed);cdecl;
+
−    glMultiTexCoord4x : procedure(target:GLenum; s:GLfixed; t:GLfixed; r:GLfixed; q:GLfixed);cdecl;
+
−    glNormal3x : procedure(nx:GLfixed; ny:GLfixed; nz:GLfixed);cdecl;
+
−(* Const before type ignored *)
+
−    glNormalPointer : procedure(_type:GLenum; stride:GLsizei; pointer:pGLvoid);cdecl;
+
−    glOrthox : procedure(left:GLfixed; right:GLfixed; bottom:GLfixed; top:GLfixed; zNear:GLfixed; 
+
−      zFar:GLfixed);cdecl;
+
−    glPixelStorei : procedure(pname:GLenum; param:GLint);cdecl;
+
−    glPointParameterx : procedure(pname:GLenum; param:GLfixed);cdecl;
+
−(* Const before type ignored *)
+
−    glPointParameterxv : procedure(pname:GLenum; params:pGLfixed);cdecl;
+
−    glPointSizex : procedure(size:GLfixed);cdecl;
+
−    glPolygonOffsetx : procedure(factor:GLfixed; units:GLfixed);cdecl;
+
−    glPopMatrix : procedure;cdecl;
+
−    glPushMatrix : procedure;cdecl;
+
−    glReadPixels : procedure(x:GLint; y:GLint; width:GLsizei; height:GLsizei; format:GLenum; 
+
−      _type:GLenum; pixels:pGLvoid);cdecl;
+
−    glRotatex : procedure(angle:GLfixed; x:GLfixed; y:GLfixed; z:GLfixed);cdecl;
+
−    glSampleCoverage : procedure(value:GLclampf; invert:GLboolean);cdecl;
+
−    glSampleCoveragex : procedure(value:GLclampx; invert:GLboolean);cdecl;
+
−    glScalex : procedure(x:GLfixed; y:GLfixed; z:GLfixed);cdecl;
+
−    glScissor : procedure(x:GLint; y:GLint; width:GLsizei; height:GLsizei);cdecl;
+
−    glShadeModel : procedure(mode:GLenum);cdecl;
+
−    glStencilFunc : procedure(func:GLenum; ref:GLint; mask:GLuint);cdecl;
+
−    glStencilMask : procedure(mask:GLuint);cdecl;
+
−    glStencilOp : procedure(fail:GLenum; zfail:GLenum; zpass:GLenum);cdecl;
+
−(* Const before type ignored *)
+
−    glTexCoordPointer : procedure(size:GLint; _type:GLenum; stride:GLsizei; pointer:pGLvoid);cdecl;
+
−    glTexEnvi : procedure(target:GLenum; pname:GLenum; param:GLint);cdecl;
+
−    glTexEnvx : procedure(target:GLenum; pname:GLenum; param:GLfixed);cdecl;
+
−(* Const before type ignored *)
+
−    glTexEnviv : procedure(target:GLenum; pname:GLenum; params:pGLint);cdecl;
+
−(* Const before type ignored *)
+
−    glTexEnvxv : procedure(target:GLenum; pname:GLenum; params:pGLfixed);cdecl;
+
−(* Const before type ignored *)
+
−    glTexImage2D : procedure(target:GLenum; level:GLint; internalformat:GLint; width:GLsizei; height:GLsizei; 
+
−      border:GLint; format:GLenum; _type:GLenum; pixels:pGLvoid);cdecl;
+
−    glTexParameteri : procedure(target:GLenum; pname:GLenum; param:GLint);cdecl;
+
−    glTexParameterx : procedure(target:GLenum; pname:GLenum; param:GLfixed);cdecl;
+
−(* Const before type ignored *)
+
−    glTexParameteriv : procedure(target:GLenum; pname:GLenum; params:pGLint);cdecl;
+
−(* Const before type ignored *)
+
−    glTexParameterxv : procedure(target:GLenum; pname:GLenum; params:pGLfixed);cdecl;
+
−(* Const before type ignored *)
+
−    glTexSubImage2D : procedure(target:GLenum; level:GLint; xoffset:GLint; yoffset:GLint; width:GLsizei; 
+
−      height:GLsizei; format:GLenum; _type:GLenum; pixels:pGLvoid);cdecl;
+
−    glTranslatex : procedure(x:GLfixed; y:GLfixed; z:GLfixed);cdecl;
+
−(* Const before type ignored *)
+
−    glVertexPointer : procedure(size:GLint; _type:GLenum; stride:GLsizei; pointer:pGLvoid);cdecl;
+
−    glViewport : procedure(x:GLint; y:GLint; width:GLsizei; height:GLsizei);cdecl;
+
−  {------------------------------------------------------------------------*
+
−   * Required OES extension functions
+
−   *------------------------------------------------------------------------ }
+
−  { GL_OES_read_format  }
+
−
+
−  const
+
−     GL_OES_read_format = 1;     
+
−  { GL_OES_compressed_paletted_texture  }
+
−     GL_OES_compressed_paletted_texture = 1;     
+
−  { GL_OES_point_size_array  }
+
−     GL_OES_point_size_array = 1;     
+
−(* Const before type ignored *)
+
−
+
−  var
+
−    glPointSizePointerOES : procedure(_type:GLenum; stride:GLsizei; pointer:pGLvoid);cdecl;
+
−  { GL_OES_point_sprite  }
+
−
+
−  const
+
−     GL_OES_point_sprite = 1;     
+
−
+
−implementation
+
−
+
−  uses
+
−    SysUtils, dynlibs;
+
−
+
−  var
+
−    hlib : tlibhandle;
+
−
+
−
+
−  procedure Freegles11;
+
−    begin
+
−//      FreeLibrary(hlib);
+
−      glAlphaFunc:=nil;
+
−      glClearColor:=nil;
+
−      glClearDepthf:=nil;
+
−      glClipPlanef:=nil;
+
−      glColor4f:=nil;
+
−      glDepthRangef:=nil;
+
−      glFogf:=nil;
+
−      glFogfv:=nil;
+
−      glFrustumf:=nil;
+
−      glGetClipPlanef:=nil;
+
−      glGetFloatv:=nil;
+
−      glGetLightfv:=nil;
+
−      glGetMaterialfv:=nil;
+
−      glGetTexEnvfv:=nil;
+
−      glGetTexParameterfv:=nil;
+
−      glLightModelf:=nil;
+
−      glLightModelfv:=nil;
+
−      glLightf:=nil;
+
−      glLightfv:=nil;
+
−      glLineWidth:=nil;
+
−      glLoadMatrixf:=nil;
+
−      glMaterialf:=nil;
+
−      glMaterialfv:=nil;
+
−      glMultMatrixf:=nil;
+
−      glMultiTexCoord4f:=nil;
+
−      glNormal3f:=nil;
+
−      glOrthof:=nil;
+
−      glPointParameterf:=nil;
+
−      glPointParameterfv:=nil;
+
−      glPointSize:=nil;
+
−      glPolygonOffset:=nil;
+
−      glRotatef:=nil;
+
−      glScalef:=nil;
+
−      glTexEnvf:=nil;
+
−      glTexEnvfv:=nil;
+
−      glTexParameterf:=nil;
+
−      glTexParameterfv:=nil;
+
−      glTranslatef:=nil;
+
−      glActiveTexture:=nil;
+
−      glAlphaFuncx:=nil;
+
−      glBindBuffer:=nil;
+
−      glBindTexture:=nil;
+
−      glBlendFunc:=nil;
+
−      glBufferData:=nil;
+
−      glBufferSubData:=nil;
+
−      glClear:=nil;
+
−      glClearColorx:=nil;
+
−      glClearDepthx:=nil;
+
−      glClearStencil:=nil;
+
−      glClientActiveTexture:=nil;
+
−      glClipPlanex:=nil;
+
−      glColor4ub:=nil;
+
−      glColor4x:=nil;
+
−      glColorMask:=nil;
+
−      glColorPointer:=nil;
+
−      glCompressedTexImage2D:=nil;
+
−      glCompressedTexSubImage2D:=nil;
+
−      glCopyTexImage2D:=nil;
+
−      glCopyTexSubImage2D:=nil;
+
−      glCullFace:=nil;
+
−      glDeleteBuffers:=nil;
+
−      glDeleteTextures:=nil;
+
−      glDepthFunc:=nil;
+
−      glDepthMask:=nil;
+
−      glDepthRangex:=nil;
+
−      glDisable:=nil;
+
−      glDisableClientState:=nil;
+
−      glDrawArrays:=nil;
+
−      glDrawElements:=nil;
+
−      glEnable:=nil;
+
−      glEnableClientState:=nil;
+
−      glFinish:=nil;
+
−      glFlush:=nil;
+
−      glFogx:=nil;
+
−      glFogxv:=nil;
+
−      glFrontFace:=nil;
+
−      glFrustumx:=nil;
+
−      glGetBooleanv:=nil;
+
−      glGetBufferParameteriv:=nil;
+
−      glGetClipPlanex:=nil;
+
−      glGenBuffers:=nil;
+
−      glGenTextures:=nil;
+
−      glGetError:=nil;
+
−      glGetFixedv:=nil;
+
−      glGetIntegerv:=nil;
+
−      glGetLightxv:=nil;
+
−      glGetMaterialxv:=nil;
+
−      glGetPointerv:=nil;
+
−      glGetString:=nil;
+
−      glGetTexEnviv:=nil;
+
−      glGetTexEnvxv:=nil;
+
−      glGetTexParameteriv:=nil;
+
−      glGetTexParameterxv:=nil;
+
−      glHint:=nil;
+
−      glIsBuffer:=nil;
+
−      glIsEnabled:=nil;
+
−      glIsTexture:=nil;
+
−      glLightModelx:=nil;
+
−      glLightModelxv:=nil;
+
−      glLightx:=nil;
+
−      glLightxv:=nil;
+
−      glLineWidthx:=nil;
+
−      glLoadIdentity:=nil;
+
−      glLoadMatrixx:=nil;
+
−      glLogicOp:=nil;
+
−      glMaterialx:=nil;
+
−      glMaterialxv:=nil;
+
−      glMatrixMode:=nil;
+
−      glMultMatrixx:=nil;
+
−      glMultiTexCoord4x:=nil;
+
−      glNormal3x:=nil;
+
−      glNormalPointer:=nil;
+
−      glOrthox:=nil;
+
−      glPixelStorei:=nil;
+
−      glPointParameterx:=nil;
+
−      glPointParameterxv:=nil;
+
−      glPointSizex:=nil;
+
−      glPolygonOffsetx:=nil;
+
−      glPopMatrix:=nil;
+
−      glPushMatrix:=nil;
+
−      glReadPixels:=nil;
+
−      glRotatex:=nil;
+
−      glSampleCoverage:=nil;
+
−      glSampleCoveragex:=nil;
+
−      glScalex:=nil;
+
−      glScissor:=nil;
+
−      glShadeModel:=nil;
+
−      glStencilFunc:=nil;
+
−      glStencilMask:=nil;
+
−      glStencilOp:=nil;
+
−      glTexCoordPointer:=nil;
+
−      glTexEnvi:=nil;
+
−      glTexEnvx:=nil;
+
−      glTexEnviv:=nil;
+
−      glTexEnvxv:=nil;
+
−      glTexImage2D:=nil;
+
−      glTexParameteri:=nil;
+
−      glTexParameterx:=nil;
+
−      glTexParameteriv:=nil;
+
−      glTexParameterxv:=nil;
+
−      glTexSubImage2D:=nil;
+
−      glTranslatex:=nil;
+
−      glVertexPointer:=nil;
+
−      glViewport:=nil;
+
−      glPointSizePointerOES:=nil;
+
−    end;
+
−
+
−
+
−  procedure Loadgles11(lib : pchar);
+
−    begin
+
−      Freegles11;
+
−      hlib:=LoadLibrary(lib);
+
−      if hlib=0 then
+
−	begin
+
−         raise Exception.Create(format('Could not load library: %s',[lib]));
+
−	end;
+
−      pointer(glAlphaFunc):=GetProcAddress(hlib,'glAlphaFunc');
+
−      pointer(glClearColor):=GetProcAddress(hlib,'glClearColor');
+
−      pointer(glClearDepthf):=GetProcAddress(hlib,'glClearDepthf');
+
−      pointer(glClipPlanef):=GetProcAddress(hlib,'glClipPlanef');
+
−      pointer(glColor4f):=GetProcAddress(hlib,'glColor4f');
+
−      pointer(glDepthRangef):=GetProcAddress(hlib,'glDepthRangef');
+
−      pointer(glFogf):=GetProcAddress(hlib,'glFogf');
+
−      pointer(glFogfv):=GetProcAddress(hlib,'glFogfv');
+
−      pointer(glFrustumf):=GetProcAddress(hlib,'glFrustumf');
+
−      pointer(glGetClipPlanef):=GetProcAddress(hlib,'glGetClipPlanef');
+
−      pointer(glGetFloatv):=GetProcAddress(hlib,'glGetFloatv');
+
−      pointer(glGetLightfv):=GetProcAddress(hlib,'glGetLightfv');
+
−      pointer(glGetMaterialfv):=GetProcAddress(hlib,'glGetMaterialfv');
+
−      pointer(glGetTexEnvfv):=GetProcAddress(hlib,'glGetTexEnvfv');
+
−      pointer(glGetTexParameterfv):=GetProcAddress(hlib,'glGetTexParameterfv');
+
−      pointer(glLightModelf):=GetProcAddress(hlib,'glLightModelf');
+
−      pointer(glLightModelfv):=GetProcAddress(hlib,'glLightModelfv');
+
−      pointer(glLightf):=GetProcAddress(hlib,'glLightf');
+
−      pointer(glLightfv):=GetProcAddress(hlib,'glLightfv');
+
−      pointer(glLineWidth):=GetProcAddress(hlib,'glLineWidth');
+
−      pointer(glLoadMatrixf):=GetProcAddress(hlib,'glLoadMatrixf');
+
−      pointer(glMaterialf):=GetProcAddress(hlib,'glMaterialf');
+
−      pointer(glMaterialfv):=GetProcAddress(hlib,'glMaterialfv');
+
−      pointer(glMultMatrixf):=GetProcAddress(hlib,'glMultMatrixf');
+
−      pointer(glMultiTexCoord4f):=GetProcAddress(hlib,'glMultiTexCoord4f');
+
−      pointer(glNormal3f):=GetProcAddress(hlib,'glNormal3f');
+
−      pointer(glOrthof):=GetProcAddress(hlib,'glOrthof');
+
−      pointer(glPointParameterf):=GetProcAddress(hlib,'glPointParameterf');
+
−      pointer(glPointParameterfv):=GetProcAddress(hlib,'glPointParameterfv');
+
−      pointer(glPointSize):=GetProcAddress(hlib,'glPointSize');
+
−      pointer(glPolygonOffset):=GetProcAddress(hlib,'glPolygonOffset');
+
−      pointer(glRotatef):=GetProcAddress(hlib,'glRotatef');
+
−      pointer(glScalef):=GetProcAddress(hlib,'glScalef');
+
−      pointer(glTexEnvf):=GetProcAddress(hlib,'glTexEnvf');
+
−      pointer(glTexEnvfv):=GetProcAddress(hlib,'glTexEnvfv');
+
−      pointer(glTexParameterf):=GetProcAddress(hlib,'glTexParameterf');
+
−      pointer(glTexParameterfv):=GetProcAddress(hlib,'glTexParameterfv');
+
−      pointer(glTranslatef):=GetProcAddress(hlib,'glTranslatef');
+
−      pointer(glActiveTexture):=GetProcAddress(hlib,'glActiveTexture');
+
−      pointer(glAlphaFuncx):=GetProcAddress(hlib,'glAlphaFuncx');
+
−      pointer(glBindBuffer):=GetProcAddress(hlib,'glBindBuffer');
+
−      pointer(glBindTexture):=GetProcAddress(hlib,'glBindTexture');
+
−      pointer(glBlendFunc):=GetProcAddress(hlib,'glBlendFunc');
+
−      pointer(glBufferData):=GetProcAddress(hlib,'glBufferData');
+
−      pointer(glBufferSubData):=GetProcAddress(hlib,'glBufferSubData');
+
−      pointer(glClear):=GetProcAddress(hlib,'glClear');
+
−      pointer(glClearColorx):=GetProcAddress(hlib,'glClearColorx');
+
−      pointer(glClearDepthx):=GetProcAddress(hlib,'glClearDepthx');
+
−      pointer(glClearStencil):=GetProcAddress(hlib,'glClearStencil');
+
−      pointer(glClientActiveTexture):=GetProcAddress(hlib,'glClientActiveTexture');
+
−      pointer(glClipPlanex):=GetProcAddress(hlib,'glClipPlanex');
+
−      pointer(glColor4ub):=GetProcAddress(hlib,'glColor4ub');
+
−      pointer(glColor4x):=GetProcAddress(hlib,'glColor4x');
+
−      pointer(glColorMask):=GetProcAddress(hlib,'glColorMask');
+
−      pointer(glColorPointer):=GetProcAddress(hlib,'glColorPointer');
+
−      pointer(glCompressedTexImage2D):=GetProcAddress(hlib,'glCompressedTexImage2D');
+
−      pointer(glCompressedTexSubImage2D):=GetProcAddress(hlib,'glCompressedTexSubImage2D');
+
−      pointer(glCopyTexImage2D):=GetProcAddress(hlib,'glCopyTexImage2D');
+
−      pointer(glCopyTexSubImage2D):=GetProcAddress(hlib,'glCopyTexSubImage2D');
+
−      pointer(glCullFace):=GetProcAddress(hlib,'glCullFace');
+
−      pointer(glDeleteBuffers):=GetProcAddress(hlib,'glDeleteBuffers');
+
−      pointer(glDeleteTextures):=GetProcAddress(hlib,'glDeleteTextures');
+
−      pointer(glDepthFunc):=GetProcAddress(hlib,'glDepthFunc');
+
−      pointer(glDepthMask):=GetProcAddress(hlib,'glDepthMask');
+
−      pointer(glDepthRangex):=GetProcAddress(hlib,'glDepthRangex');
+
−      pointer(glDisable):=GetProcAddress(hlib,'glDisable');
+
−      pointer(glDisableClientState):=GetProcAddress(hlib,'glDisableClientState');
+
−      pointer(glDrawArrays):=GetProcAddress(hlib,'glDrawArrays');
+
−      pointer(glDrawElements):=GetProcAddress(hlib,'glDrawElements');
+
−      pointer(glEnable):=GetProcAddress(hlib,'glEnable');
+
−      pointer(glEnableClientState):=GetProcAddress(hlib,'glEnableClientState');
+
−      pointer(glFinish):=GetProcAddress(hlib,'glFinish');
+
−      pointer(glFlush):=GetProcAddress(hlib,'glFlush');
+
−      pointer(glFogx):=GetProcAddress(hlib,'glFogx');
+
−      pointer(glFogxv):=GetProcAddress(hlib,'glFogxv');
+
−      pointer(glFrontFace):=GetProcAddress(hlib,'glFrontFace');
+
−      pointer(glFrustumx):=GetProcAddress(hlib,'glFrustumx');
+
−      pointer(glGetBooleanv):=GetProcAddress(hlib,'glGetBooleanv');
+
−      pointer(glGetBufferParameteriv):=GetProcAddress(hlib,'glGetBufferParameteriv');
+
−      pointer(glGetClipPlanex):=GetProcAddress(hlib,'glGetClipPlanex');
+
−      pointer(glGenBuffers):=GetProcAddress(hlib,'glGenBuffers');
+
−      pointer(glGenTextures):=GetProcAddress(hlib,'glGenTextures');
+
−      pointer(glGetError):=GetProcAddress(hlib,'glGetError');
+
−      pointer(glGetFixedv):=GetProcAddress(hlib,'glGetFixedv');
+
−      pointer(glGetIntegerv):=GetProcAddress(hlib,'glGetIntegerv');
+
−      pointer(glGetLightxv):=GetProcAddress(hlib,'glGetLightxv');
+
−      pointer(glGetMaterialxv):=GetProcAddress(hlib,'glGetMaterialxv');
+
−      pointer(glGetPointerv):=GetProcAddress(hlib,'glGetPointerv');
+
−      pointer(glGetString):=GetProcAddress(hlib,'glGetString');
+
−      pointer(glGetTexEnviv):=GetProcAddress(hlib,'glGetTexEnviv');
+
−      pointer(glGetTexEnvxv):=GetProcAddress(hlib,'glGetTexEnvxv');
+
−      pointer(glGetTexParameteriv):=GetProcAddress(hlib,'glGetTexParameteriv');
+
−      pointer(glGetTexParameterxv):=GetProcAddress(hlib,'glGetTexParameterxv');
+
−      pointer(glHint):=GetProcAddress(hlib,'glHint');
+
−      pointer(glIsBuffer):=GetProcAddress(hlib,'glIsBuffer');
+
−      pointer(glIsEnabled):=GetProcAddress(hlib,'glIsEnabled');
+
−      pointer(glIsTexture):=GetProcAddress(hlib,'glIsTexture');
+
−      pointer(glLightModelx):=GetProcAddress(hlib,'glLightModelx');
+
−      pointer(glLightModelxv):=GetProcAddress(hlib,'glLightModelxv');
+
−      pointer(glLightx):=GetProcAddress(hlib,'glLightx');
+
−      pointer(glLightxv):=GetProcAddress(hlib,'glLightxv');
+
−      pointer(glLineWidthx):=GetProcAddress(hlib,'glLineWidthx');
+
−      pointer(glLoadIdentity):=GetProcAddress(hlib,'glLoadIdentity');
+
−      pointer(glLoadMatrixx):=GetProcAddress(hlib,'glLoadMatrixx');
+
−      pointer(glLogicOp):=GetProcAddress(hlib,'glLogicOp');
+
−      pointer(glMaterialx):=GetProcAddress(hlib,'glMaterialx');
+
−      pointer(glMaterialxv):=GetProcAddress(hlib,'glMaterialxv');
+
−      pointer(glMatrixMode):=GetProcAddress(hlib,'glMatrixMode');
+
−      pointer(glMultMatrixx):=GetProcAddress(hlib,'glMultMatrixx');
+
−      pointer(glMultiTexCoord4x):=GetProcAddress(hlib,'glMultiTexCoord4x');
+
−      pointer(glNormal3x):=GetProcAddress(hlib,'glNormal3x');
+
−      pointer(glNormalPointer):=GetProcAddress(hlib,'glNormalPointer');
+
−      pointer(glOrthox):=GetProcAddress(hlib,'glOrthox');
+
−      pointer(glPixelStorei):=GetProcAddress(hlib,'glPixelStorei');
+
−      pointer(glPointParameterx):=GetProcAddress(hlib,'glPointParameterx');
+
−      pointer(glPointParameterxv):=GetProcAddress(hlib,'glPointParameterxv');
+
−      pointer(glPointSizex):=GetProcAddress(hlib,'glPointSizex');
+
−      pointer(glPolygonOffsetx):=GetProcAddress(hlib,'glPolygonOffsetx');
+
−      pointer(glPopMatrix):=GetProcAddress(hlib,'glPopMatrix');
+
−      pointer(glPushMatrix):=GetProcAddress(hlib,'glPushMatrix');
+
−      pointer(glReadPixels):=GetProcAddress(hlib,'glReadPixels');
+
−      pointer(glRotatex):=GetProcAddress(hlib,'glRotatex');
+
−      pointer(glSampleCoverage):=GetProcAddress(hlib,'glSampleCoverage');
+
−      pointer(glSampleCoveragex):=GetProcAddress(hlib,'glSampleCoveragex');
+
−      pointer(glScalex):=GetProcAddress(hlib,'glScalex');
+
−      pointer(glScissor):=GetProcAddress(hlib,'glScissor');
+
−      pointer(glShadeModel):=GetProcAddress(hlib,'glShadeModel');
+
−      pointer(glStencilFunc):=GetProcAddress(hlib,'glStencilFunc');
+
−      pointer(glStencilMask):=GetProcAddress(hlib,'glStencilMask');
+
−      pointer(glStencilOp):=GetProcAddress(hlib,'glStencilOp');
+
−      pointer(glTexCoordPointer):=GetProcAddress(hlib,'glTexCoordPointer');
+
−      pointer(glTexEnvi):=GetProcAddress(hlib,'glTexEnvi');
+
−      pointer(glTexEnvx):=GetProcAddress(hlib,'glTexEnvx');
+
−      pointer(glTexEnviv):=GetProcAddress(hlib,'glTexEnviv');
+
−      pointer(glTexEnvxv):=GetProcAddress(hlib,'glTexEnvxv');
+
−      pointer(glTexImage2D):=GetProcAddress(hlib,'glTexImage2D');
+
−      pointer(glTexParameteri):=GetProcAddress(hlib,'glTexParameteri');
+
−      pointer(glTexParameterx):=GetProcAddress(hlib,'glTexParameterx');
+
−      pointer(glTexParameteriv):=GetProcAddress(hlib,'glTexParameteriv');
+
−      pointer(glTexParameterxv):=GetProcAddress(hlib,'glTexParameterxv');
+
−      pointer(glTexSubImage2D):=GetProcAddress(hlib,'glTexSubImage2D');
+
−      pointer(glTranslatex):=GetProcAddress(hlib,'glTranslatex');
+
−      pointer(glVertexPointer):=GetProcAddress(hlib,'glVertexPointer');
+
−      pointer(glViewport):=GetProcAddress(hlib,'glViewport');
+
−      pointer(glPointSizePointerOES):=GetProcAddress(hlib,'glPointSizePointerOES');
+
−    end;
+
−
+
−procedure init;
+
−begin
+
−    Loadgles11('libGLESv1_CM.so');
+
−end;
+
−
+
−
+
−initialization
+
−  Loadgles11('gles11');
+
−finalization
+
−  Freegles11;
+
−
+
−end.