index c9a16c2dfbfd776b7f4f5526f8f18c08514964d1..b47556bdbedce1eaee8dee480f7660c24ec366ac 100644 (file)
*
* 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, either version 3 of the License, or
- * (at your option) any later version.
+ * the Free Software Foundation, version 3 of the License ONLY.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
Pixels: Pointer;
end;
+ ArrayOfAnsiString = array of AnsiString;
+
var
e_Textures: array of TTexture = nil;
e_TextureFonts: array of TTextureFont = nil;
//function e_getTextGLId (ID: DWORD): GLuint; begin result := e_Textures[ID].tx.id; end;
+function GLExtensionList(): ArrayOfAnsiString;
+ var s: PChar; i, j, num: GLint;
+begin
+ result := nil;
+ s := glGetString(GL_EXTENSIONS);
+ if s <> nil then
+ begin
+ num := 0;
+ i := 0;
+ j := 0;
+ while (s[i] <> #0) and (s[i] = ' ') do Inc(i);
+ while (s[i] <> #0) do
+ begin
+ while (s[i] <> #0) and (s[i] <> ' ') do Inc(i);
+ SetLength(Result, num + 1);
+ Result[num] := Copy(s, j + 1, i - j);
+ while (s[i] <> #0) and (s[i] = ' ') do Inc(i);
+ j := i;
+ Inc(num);
+ end;
+ end;
+end;
+
+function GLExtensionSupported(ext: AnsiString): Boolean;
+ var e: AnsiString;
+begin
+ result := false;
+ for e in GLExtensionList() do
+ begin
+ if CompareText(e, ext) = 0 then
+ begin
+ Result := True;
+ exit;
+ end;
+ end;
+end;
+
//------------------------------------------------------------------
// Èíèöèàëèçèðóåò OpenGL
//------------------------------------------------------------------
e_DummyTextures := True;
Exit;
end;
+ e_glLegacyNPOT := not (GLExtensionSupported('GL_ARB_texture_non_power_of_two') or GLExtensionSupported('GL_OES_texture_npot'));
e_Colors.R := 255;
e_Colors.G := 255;
e_Colors.B := 255;