project_files/Android-build/gles11.pp
branchhedgeroid
changeset 5301 690e88ef6ee7
parent 5291 1f495f049fad
child 5344 893e49c53c41
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/project_files/Android-build/gles11.pp	Wed Jun 22 23:56:08 2011 +0200
@@ -0,0 +1,1107 @@
+
+{$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, uConsole;
+
+  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;
+      WriteToConsole('loading lib');
+      hlib:=LoadLibrary(lib);
+      if hlib=0 then
+	begin
+         WriteToConsole('crash');
+         raise Exception.Create(format('Could not load library: %s',[lib]));
+	end;
+      WriteToConsole('succeeded');
+      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
+  WriteToConsole('init');
+    Loadgles11('libGLESv1_CM.so');
+end;
+
+
+initialization
+  Loadgles11('gles11');
+finalization
+  Freegles11;
+
+end.