1 (* Copyright (C) Doom 2D: Forever Developers
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.
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.
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/>.
15 {$INCLUDE ../shared/a_modes.inc}
23 function SDLMain (): Integer;
24 procedure ResetTimer ();
25 procedure ProcessLoading (forceUpdate
: Boolean=false);
28 gwin_dump_extensions
: Boolean = false;
29 gwin_has_stencil
: Boolean = false;
30 gwin_k8_enable_light_experiments
: Boolean = false;
31 g_dbg_aimline_on
: Boolean = false;
32 g_dbg_input
: Boolean = False;
37 {$IFDEF WINDOWS}Windows
,{$ENDIF}
38 {$IFDEF ENABLE_HOLMES}
39 g_holmes
, sdlcarcass
, fui_ctls
,
41 {$INCLUDE ../nogl/noGLuses.inc}
42 SysUtils
, Classes
, MAPDEF
, Math
,
43 e_graphics
, e_log
, e_texture
, g_main
,
44 g_console
, e_input
, g_options
, g_game
,
45 g_basic
, g_textures
, e_sound
, g_sound
, g_menu
, ENet
, g_net
,
46 g_map
, g_gfx
, g_monsters
, xprofiler
,
47 g_touch
, g_gui
, g_system
, g_netmaster
;
51 ProgressUpdateMSecs
= 35; //1;//100;
54 Time
, Time_Delta
, Time_Old
: Int64;
57 wNeedTimeReset
: Boolean = false;
58 wMinimized
: Boolean = false;
59 wLoadingQuit
: Boolean = false;
61 procedure ResetTimer ();
63 wNeedTimeReset
:= true;
68 prevLoadingUpdateTime
: UInt64 = 0;
71 procedure ProcessLoading (forceUpdate
: Boolean=false);
77 if sys_HandleInput() = True then
81 if not wMinimized
then
83 if not forceUpdate
then
85 stt
:= getTimeMilli();
86 forceUpdate
:= (stt
< prevLoadingUpdateTime
) or (stt
-prevLoadingUpdateTime
>= ProgressUpdateMSecs
);
91 e_SetRendertarget(True);
92 e_SetViewPort(0, 0, gScreenWidth
, gScreenHeight
);
94 DrawMenuBackground('INTER');
95 e_DarkenQuadWH(0, 0, gScreenWidth
, gScreenHeight
, 150);
99 e_SetRendertarget(False);
100 e_SetViewPort(0, 0, gWinSizeX
, gWinSizeY
);
101 e_BlitFramebuffer(gWinSizeX
, gWinSizeY
);
104 prevLoadingUpdateTime
:= getTimeMilli();
111 if NetMode
= NET_SERVER
then
117 if (NetMode
= NET_CLIENT
) and (NetState
<> NET_STATE_AUTH
) then g_Net_Client_UpdateWhileLoading();
122 function ProcessMessage (): Boolean;
126 result
:= sys_HandleInput();
128 Time
:= sys_GetTicks();
129 Time_Delta
:= Time
-Time_Old
;
133 if wNeedTimeReset
then
137 wNeedTimeReset
:= false;
140 g_Map_ProfilersBegin();
141 g_Mons_ProfilersBegin();
143 t
:= Time_Delta
div 28;
149 if (NetMode
= NET_SERVER
) then g_Net_Host_Update()
150 else if (NetMode
= NET_CLIENT
) then g_Net_Client_Update();
155 if NetMode
= NET_SERVER
then g_Net_Flush();
157 g_Map_ProfilersEnd();
158 g_Mons_ProfilersEnd();
166 if (gExit
= EXIT_QUIT
) then
172 // Âðåìÿ ïðåäûäóùåãî îáíîâëåíèÿ
174 Time_Old
:= Time
- (Time_Delta
mod 28);
176 // don't wait if VSync is on, GL already probably waits enough
178 flag
:= (Time
- Frame
>= gFrameTime
) or gVSync
;
182 if (not wMinimized
) then
184 if gPause
or not gLerpActors
then
187 gLerpFactor
:= nmin(1.0, (Time
- Time_Old
) / 28.0);
199 function GLExtensionList (): SSArray
;
205 s
:= glGetString(GL_EXTENSIONS
);
211 while (s
[i
] <> #0) and (s
[i
] = ' ') do Inc(i
);
212 while (s
[i
] <> #0) do
214 while (s
[i
] <> #0) and (s
[i
] <> ' ') do Inc(i
);
215 SetLength(result
, num
+1);
216 result
[num
] := Copy(s
, j
+1, i
-j
);
217 while (s
[i
] <> #0) and (s
[i
] = ' ') do Inc(i
);
224 function GLExtensionSupported (ext
: AnsiString): Boolean;
230 exts
:= GLExtensionList();
233 //writeln('<', e, '> : [', ext, '] = ', strEquCI1251(e, ext));
234 if (strEquCI1251(e
, ext
)) then begin result
:= true; exit
; end;
238 procedure PrintGLSupportedExtensions
;
240 e_LogWritefln('GL Vendor: %s', [glGetString(GL_VENDOR
)]);
241 e_LogWritefln('GL Renderer: %s', [glGetString(GL_RENDERER
)]);
242 e_LogWritefln('GL Version: %s', [glGetString(GL_VERSION
)]);
243 e_LogWritefln('GL Shaders: %s', [glGetString(GL_SHADING_LANGUAGE_VERSION
)]);
244 e_LogWritefln('GL Extensions: %s', [glGetString(GL_EXTENSIONS
)]);
247 function SDLMain (): Integer;
252 {$IFDEF ENABLE_HOLMES}
258 e_NoGraphics
:= true;
262 while (idx
<= ParamCount
) do
264 arg
:= ParamStr(idx
);
266 if arg
= '--opengl-dump-exts' then gwin_dump_extensions
:= true;
267 //if arg = '--twinkletwinkle' then gwin_k8_enable_light_experiments := true;
268 if arg
= '--jah' then g_profile_history_size
:= 100;
269 if arg
= '--no-particles' then gpart_dbg_enabled
:= false;
270 if arg
= '--no-los' then gmon_dbg_los_enabled
:= false;
272 if arg
= '--profile-render' then g_profile_frame_draw
:= true;
273 if arg
= '--profile-coldet' then g_profile_collision
:= true;
274 if arg
= '--profile-los' then g_profile_los
:= true;
276 if arg
= '--no-part-phys' then gpart_dbg_phys_enabled
:= false;
277 if arg
= '--no-part-physics' then gpart_dbg_phys_enabled
:= false;
278 if arg
= '--no-particles-phys' then gpart_dbg_phys_enabled
:= false;
279 if arg
= '--no-particles-physics' then gpart_dbg_phys_enabled
:= false;
280 if arg
= '--no-particle-phys' then gpart_dbg_phys_enabled
:= false;
281 if arg
= '--no-particle-physics' then gpart_dbg_phys_enabled
:= false;
283 if arg
= '--debug-input' then g_dbg_input
:= True;
285 {.$IF DEFINED(D2F_DEBUG)}
286 if arg
= '--aimline' then g_dbg_aimline_on
:= true;
289 {$IFDEF ENABLE_HOLMES}
290 if arg
= '--holmes' then begin g_holmes_enabled
:= true; g_Game_SetDebugMode(); end;
292 if (arg
= '--holmes-ui-scale') or (arg
= '-holmes-ui-scale') then
294 if (idx
<= ParamCount
) then
296 if not conParseFloat(fuiRenderScale
, ParamStr(idx
)) then fuiRenderScale
:= 1.0;
301 if (arg
= '--holmes-font') or (arg
= '-holmes-font') then
303 if (idx
<= ParamCount
) then
306 val(ParamStr(idx
), itmp
, valres
);
308 if (valres
= 0) and (not g_holmes_imfunctional
) then
311 8: uiContext
.font
:= 'win8';
312 14: uiContext
.font
:= 'win14';
313 16: uiContext
.font
:= 'win16';
326 if (arg
= '--game-scale') or (arg
= '-game-scale') then
328 if (idx
<= ParamCount
) then
330 if not conParseFloat(g_dbg_scale
, ParamStr(idx
)) then g_dbg_scale
:= 1.0;
335 if (arg
= '--write-mapdef') or (arg
= '-write-mapdef') then
337 mdfo
:= createDiskFile('mapdef.txt');
338 mdfo
.WriteBuffer(defaultMapDef
[1], Length(defaultMapDef
));
343 if (arg
= '--pixel-scale') or (arg
= '-pixel-scale') then
345 if (idx
<= ParamCount
) then
347 if not conParseFloat(r_pixel_scale
, ParamStr(idx
)) then r_pixel_scale
:= 1.0;
353 {$IFNDEF USE_SYSSTUB}
354 PrintGLSupportedExtensions
;
355 glLegacyNPOT
:= not (GLExtensionSupported('GL_ARB_texture_non_power_of_two') or GLExtensionSupported('GL_OES_texture_npot'));
357 glLegacyNPOT
:= False;
358 glRenderToFBO
:= False;
360 if glNPOTOverride
and glLegacyNPOT
then
362 glLegacyNPOT
:= true;
363 e_logWriteln('NPOT texture emulation: FORCED');
367 if (glLegacyNPOT
) then e_logWriteln('NPOT texture emulation: enabled')
368 else e_logWriteln('NPOT texture emulation: disabled');
370 gwin_dump_extensions
:= false;
373 Time_Old
:= sys_GetTicks();
375 g_Net_InitLowLevel();
378 if (ParamCount
> 0) then g_Game_Process_Params();
382 if (not gGameOn
) and gAskLanguage
then g_Menu_AskLanguage();
385 e_WriteLog('Entering the main loop', TMsgType
.Notify
);
388 while not ProcessMessage() do begin end;
390 g_Net_Slist_ShutdownAll();
394 g_Net_DeinitLowLevel();
400 conRegVar('d_input', @g_dbg_input
, '', '')