index a35aaeff85842493e4df5fe2b7aafda01b8e7cfb..9b7100f4ea05ff642754341043a7cf188f0d8a8d 100644 (file)
interface
procedure r_Window_DrawLoading (forceUpdate: Boolean);
interface
procedure r_Window_DrawLoading (forceUpdate: Boolean);
- procedure r_Window_Initialize;
implementation
implementation
end;
end;
end;
end;
- function GLExtensionList (): SSArray;
- 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 strEquCI1251(e, ext) then
- begin
- result := true;
- exit
- end
- end
- end;
-
- procedure PrintGLSupportedExtensions;
- begin
- e_LogWritefln('GL Vendor: %s', [glGetString(GL_VENDOR)]);
- e_LogWritefln('GL Renderer: %s', [glGetString(GL_RENDERER)]);
- e_LogWritefln('GL Version: %s', [glGetString(GL_VERSION)]);
- e_LogWritefln('GL Shaders: %s', [glGetString(GL_SHADING_LANGUAGE_VERSION)]);
- e_LogWritefln('GL Extensions: %s', [glGetString(GL_EXTENSIONS)]);
- end;
-
- procedure r_Window_Initialize;
- begin
-{$IFNDEF USE_SYSSTUB}
- PrintGLSupportedExtensions;
- glLegacyNPOT := not (GLExtensionSupported('GL_ARB_texture_non_power_of_two') or GLExtensionSupported('GL_OES_texture_npot'));
-{$ELSE}
- glLegacyNPOT := False;
- glRenderToFBO := False;
-{$ENDIF}
- if glNPOTOverride and glLegacyNPOT then
- begin
- glLegacyNPOT := true;
- e_logWriteln('NPOT texture emulation: FORCED')
- end
- else
- begin
- if glLegacyNPOT then
- e_logWriteln('NPOT texture emulation: enabled')
- else
- e_logWriteln('NPOT texture emulation: disabled')
- end
- end;
-
end.
end.