1 (* Copyright (C) Doom 2D: Forever Developers
2 *
3 * This program is free software: you can redistribute it and/or modify
4 * it under the terms of the GNU General Public License as published by
5 * the Free Software Foundation, version 3 of the License ONLY.
6 *
7 * This program is distributed in the hope that it will be useful,
8 * but WITHOUT ANY WARRANTY; without even the implied warranty of
9 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
10 * GNU General Public License for more details.
11 *
12 * You should have received a copy of the GNU General Public License
13 * along with this program. If not, see <http://www.gnu.org/licenses/>.
14 *)
15 {$INCLUDE ../../shared/a_modes.inc}
18 interface
23 implementation
25 uses
26 {$INCLUDE ../nogl/noGLuses.inc}
31 xprofiler
32 ;
34 const
37 var
42 begin
44 begin
46 begin
48 forceUpdate := (stt < prevLoadingUpdateTime) or (stt-prevLoadingUpdateTime >= ProgressUpdateMSecs);
52 begin
65 sys_Repaint;
73 begin
77 begin
83 begin
90 end
91 end
96 begin
99 begin
101 begin
103 exit
104 end
105 end
109 begin
118 begin
119 {$IFNDEF USE_SYSSTUB}
120 PrintGLSupportedExtensions;
121 glLegacyNPOT := not (GLExtensionSupported('GL_ARB_texture_non_power_of_two') or GLExtensionSupported('GL_OES_texture_npot'));
122 {$ELSE}
125 {$ENDIF}
127 begin
130 end
131 else
132 begin
135 else
137 end