src/game/g_window.pas

   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, either version 3 of the License, or
   6  * (at your option) any later version.
   7  *
   8  * This program is distributed in the hope that it will be useful,
   9  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  10  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11  * GNU General Public License for more details.
  12  *
  13  * You should have received a copy of the GNU General Public License
  14  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  15  *)
  16 {$INCLUDE ../shared/a_modes.inc}
  17 unit g_window;
  18
  19 interface
  20
  21 uses
  22   wadreader;
  23
  24 function  SDLMain(): Integer;
  25 function  GetTimer(): Int64;
  26 procedure ResetTimer();
  27 function  CreateGLWindow(Title: PChar): Boolean;
  28 procedure KillGLWindow();
  29 procedure PushExitEvent();
  30 function  ProcessMessage(): Boolean;
  31 procedure ProcessLoading();
  32 procedure ReDrawWindow();
  33 procedure SwapBuffers();
  34 procedure Sleep(ms: LongWord);
  35 function  GetDisplayModes(dBPP: DWORD; var SelRes: DWORD): SArray;
  36 function  g_Window_SetDisplay(PreserveGL: Boolean = False): Boolean;
  37 function  g_Window_SetSize(W, H: Word; FScreen: Boolean): Boolean;
  38
  39 var
  40   gwin_dump_extensions: Boolean = false;
  41   gwin_has_stencil: Boolean = false;
  42   gwin_k8_enable_light_experiments: Boolean = false;
  43
  44
  45 implementation
  46
  47 uses
  48 {$IFDEF WINDOWS}Windows,{$ENDIF}
  49   SDL2, GL, GLExt, e_graphics, e_log, g_main,
  50   g_console, SysUtils, e_input, g_options, g_game,
  51   g_basic, g_textures, e_sound, g_sound, g_menu, ENet, g_net,
  52   g_map, g_gfx, g_monsters, g_holmes;
  53
  54 var
  55   h_Wnd: PSDL_Window;
  56   h_GL: TSDL_GLContext;
  57   wFlags: LongWord = 0;
  58   Time, Time_Delta, Time_Old: Int64;
  59   flag: Boolean;
  60   wTitle: PChar = nil;
  61   wNeedTimeReset: Boolean = False;
  62   //wWindowCreated: Boolean = False;
  63   //wCursorShown: Boolean = False;
  64   wMinimized: Boolean = False;
  65   //wNeedFree: Boolean = True;
  66   wLoadingProgress: Boolean = False;
  67   wLoadingQuit: Boolean = False;
  68   {wWinPause: Byte = 0;}
  69 {$IFNDEF WINDOWS}
  70   ticksOverflow: Int64 = -1;
  71   lastTicks: Uint32 = 0; // to detect overflow
  72 {$ENDIF}
  73   curMsButState: Word = 0;
  74   curKbState: Word = 0;
  75   curMsX: Integer = 0;
  76   curMsY: Integer = 0;
  77
  78 const
  79   // TODO: move this to a separate file
  80   CP1251: array [0..127] of Word = (
  81     $0402,$0403,$201A,$0453,$201E,$2026,$2020,$2021,$20AC,$2030,$0409,$2039,$040A,$040C,$040B,$040F,
  82     $0452,$2018,$2019,$201C,$201D,$2022,$2013,$2014,$003F,$2122,$0459,$203A,$045A,$045C,$045B,$045F,
  83     $00A0,$040E,$045E,$0408,$00A4,$0490,$00A6,$00A7,$0401,$00A9,$0404,$00AB,$00AC,$00AD,$00AE,$0407,
  84     $00B0,$00B1,$0406,$0456,$0491,$00B5,$00B6,$00B7,$0451,$2116,$0454,$00BB,$0458,$0405,$0455,$0457,
  85     $0410,$0411,$0412,$0413,$0414,$0415,$0416,$0417,$0418,$0419,$041A,$041B,$041C,$041D,$041E,$041F,
  86     $0420,$0421,$0422,$0423,$0424,$0425,$0426,$0427,$0428,$0429,$042A,$042B,$042C,$042D,$042E,$042F,
  87     $0430,$0431,$0432,$0433,$0434,$0435,$0436,$0437,$0438,$0439,$043A,$043B,$043C,$043D,$043E,$043F,
  88     $0440,$0441,$0442,$0443,$0444,$0445,$0446,$0447,$0448,$0449,$044A,$044B,$044C,$044D,$044E,$044F
  89   );
  90
  91 // TODO: make a transition table or something
  92 function WCharToCP1251(wc: Word): Word;
  93 var
  94   n: Word;
  95 begin
  96   Result := 0;
  97   for n := 0 to 127 do
  98     if CP1251[n] = wc then begin Result := n; break end;
  99   Result := Result + 128;
 100 end;
 101
 102 function g_Window_SetDisplay(PreserveGL: Boolean = False): Boolean;
 103 var
 104   mode, cmode: TSDL_DisplayMode;
 105 begin
 106 {$IFDEF HEADLESS}
 107   Result := True;
 108   Exit;
 109 {$ENDIF}
 110
 111   Result := False;
 112
 113   e_WriteLog('Setting display mode...', MSG_NOTIFY);
 114
 115   wFlags := SDL_WINDOW_OPENGL or SDL_WINDOW_RESIZABLE;
 116   if gFullscreen then wFlags := wFlags or SDL_WINDOW_FULLSCREEN;
 117   if gWinMaximized then wFlags := wFlags or SDL_WINDOW_MAXIMIZED;
 118
 119   if h_Wnd <> nil then
 120   begin
 121     SDL_DestroyWindow(h_Wnd);
 122     h_Wnd := nil;
 123   end;
 124
 125   if gFullscreen then
 126   begin
 127     mode.w := gScreenWidth;
 128     mode.h := gScreenHeight;
 129     mode.format := 0;
 130     mode.refresh_rate := 0;
 131     mode.driverdata := nil;
 132     if SDL_GetClosestDisplayMode(0, @mode, @cmode) = nil then
 133     begin
 134       gScreenWidth := 800;
 135       gScreenHeight := 600;
 136     end
 137     else
 138     begin
 139       gScreenWidth := cmode.w;
 140       gScreenHeight := cmode.h;
 141     end;
 142   end;
 143
 144   h_Wnd := SDL_CreateWindow(PChar(wTitle), gWinRealPosX, gWinRealPosY, gScreenWidth, gScreenHeight, wFlags);
 145   if h_Wnd = nil then Exit;
 146
 147   SDL_GL_MakeCurrent(h_Wnd, h_GL);
 148   SDL_ShowCursor(SDL_DISABLE);
 149
 150   Result := True;
 151 end;
 152
 153 procedure ReShowCursor();
 154 begin
 155   // TODO: what was this for?
 156 end;
 157
 158 function GetDisplayModes(dBPP: DWORD; var SelRes: DWORD): SArray;
 159 var
 160   mode: TSDL_DisplayMode;
 161   res, i, k, n, pw, ph: Integer;
 162 begin
 163   SetLength(Result, 0);
 164   {$IFDEF HEADLESS}Exit;{$ENDIF}
 165   k := 0; SelRes := 0;
 166   n := SDL_GetNumDisplayModes(0);
 167   pw := 0; ph := 0;
 168   for i := 0 to n do
 169   begin
 170     res := SDL_GetDisplayMode(0, i, @mode);
 171     if res < 0 then continue;
 172     if SDL_BITSPERPIXEL(mode.format) = gBPP then continue;
 173     if (mode.w = pw) and (mode.h = ph) then continue;
 174     if (mode.w = gScreenWidth) and (mode.h = gScreenHeight) then
 175       SelRes := k;
 176     Inc(k);
 177     SetLength(Result, k);
 178     Result[k-1] := IntToStr(mode.w) + 'x' + IntToStr(mode.h);
 179     pw := mode.w; ph := mode.h
 180   end;
 181
 182   e_WriteLog('SDL: Got ' + IntToStr(k) + ' resolutions.', MSG_NOTIFY);
 183 end;
 184
 185 procedure Sleep(ms: LongWord);
 186 begin
 187   SDL_Delay(ms);
 188 end;
 189
 190 procedure ChangeWindowSize();
 191 begin
 192   gWinSizeX := gScreenWidth;
 193   gWinSizeY := gScreenHeight;
 194   {$IFDEF HEADLESS}Exit;{$ENDIF}
 195   e_ResizeWindow(gScreenWidth, gScreenHeight);
 196   g_Game_SetupScreenSize();
 197   g_Menu_Reset();
 198   g_Game_ClearLoading();
 199   g_Holmes_VidModeChanged();
 200 end;
 201
 202 function g_Window_SetSize(W, H: Word; FScreen: Boolean): Boolean;
 203 var
 204   Preserve: Boolean;
 205 begin
 206   Result := False;
 207   {$IFDEF HEADLESS}Exit;{$ENDIF}
 208   Preserve := False;
 209
 210   if (gScreenWidth <> W) or (gScreenHeight <> H) then
 211   begin
 212     Result := True;
 213     gScreenWidth := W;
 214     gScreenHeight := H;
 215   end;
 216
 217   if gFullscreen <> FScreen then
 218   begin
 219     Result := True;
 220     gFullscreen := FScreen;
 221     Preserve := True;
 222   end;
 223
 224   if Result then
 225   begin
 226     g_Window_SetDisplay(Preserve);
 227     ChangeWindowSize();
 228   end;
 229 end;
 230
 231 function WindowEventHandler(ev: TSDL_WindowEvent): Boolean;
 232 var
 233   wActivate, wDeactivate: Boolean;
 234 begin
 235   Result := False;
 236   wActivate := False;
 237   wDeactivate := False;
 238
 239   case ev.event of
 240     SDL_WINDOWEVENT_MOVED:
 241     begin
 242       if not (gFullscreen or gWinMaximized) then
 243       begin
 244         gWinRealPosX := ev.data1;
 245         gWinRealPosY := ev.data2;
 246       end;
 247     end;
 248
 249     SDL_WINDOWEVENT_MINIMIZED:
 250     begin
 251       curMsButState := 0;
 252       curKbState := 0;
 253       if not wMinimized then
 254       begin
 255         e_ResizeWindow(0, 0);
 256         wMinimized := True;
 257
 258         if g_debug_WinMsgs then
 259         begin
 260           g_Console_Add('Now minimized');
 261           e_WriteLog('[DEBUG] WinMsgs: Now minimized', MSG_NOTIFY);
 262         end;
 263         wDeactivate := True;
 264       end;
 265     end;
 266
 267     SDL_WINDOWEVENT_RESIZED:
 268     begin
 269       curMsButState := 0;
 270       curKbState := 0;
 271       gScreenWidth := ev.data1;
 272       gScreenHeight := ev.data2;
 273       ChangeWindowSize();
 274       SwapBuffers();
 275       if g_debug_WinMsgs then
 276       begin
 277         g_Console_Add('Resized to ' + IntToStr(ev.data1) + 'x' + IntToStr(ev.data2));
 278         e_WriteLog('[DEBUG] WinMsgs: Resized to ' + IntToStr(ev.data1) + 'x' + IntToStr(ev.data2), MSG_NOTIFY);
 279       end;
 280     end;
 281
 282     SDL_WINDOWEVENT_EXPOSED:
 283       SwapBuffers();
 284
 285     SDL_WINDOWEVENT_MAXIMIZED:
 286     begin
 287       curMsButState := 0;
 288       curKbState := 0;
 289       if wMinimized then
 290       begin
 291         e_ResizeWindow(gScreenWidth, gScreenHeight);
 292         wMinimized := False;
 293         wActivate := True;
 294       end;
 295       if not gWinMaximized then
 296       begin
 297         gWinMaximized := True;
 298         if g_debug_WinMsgs then
 299         begin
 300           g_Console_Add('Now maximized');
 301           e_WriteLog('[DEBUG] WinMsgs: Now maximized', MSG_NOTIFY);
 302         end;
 303       end;
 304     end;
 305
 306     SDL_WINDOWEVENT_RESTORED:
 307     begin
 308       curMsButState := 0;
 309       curKbState := 0;
 310       if wMinimized then
 311       begin
 312         e_ResizeWindow(gScreenWidth, gScreenHeight);
 313         wMinimized := False;
 314         wActivate := True;
 315       end;
 316       if gWinMaximized then
 317         gWinMaximized := False;
 318       if g_debug_WinMsgs then
 319       begin
 320         g_Console_Add('Now restored');
 321         e_WriteLog('[DEBUG] WinMsgs: Now restored', MSG_NOTIFY);
 322       end;
 323     end;
 324
 325     SDL_WINDOWEVENT_FOCUS_GAINED:
 326     begin
 327       curMsButState := 0;
 328       curKbState := 0;
 329       wActivate := True;
 330       //e_WriteLog('window gained focus!', MSG_NOTIFY);
 331       g_Holmes_WindowFocused();
 332     end;
 333
 334     SDL_WINDOWEVENT_FOCUS_LOST:
 335     begin
 336       curMsButState := 0;
 337       curKbState := 0;
 338       wDeactivate := True;
 339       //e_WriteLog('window lost focus!', MSG_NOTIFY);
 340       g_Holmes_WindowBlured();
 341     end;
 342   end;
 343
 344   if wDeactivate then
 345   begin
 346     if gWinActive then
 347     begin
 348       e_WriteLog('deactivating window', MSG_NOTIFY);
 349       e_EnableInput := False;
 350       e_ClearInputBuffer();
 351
 352       if gMuteWhenInactive then
 353       begin
 354         //e_WriteLog('deactivating sounds', MSG_NOTIFY);
 355         e_MuteChannels(True);
 356       end;
 357
 358       if g_debug_WinMsgs then
 359       begin
 360         g_Console_Add('Now inactive');
 361         e_WriteLog('[DEBUG] WinMsgs: Now inactive', MSG_NOTIFY);
 362       end;
 363
 364       gWinActive := False;
 365     end;
 366   end
 367   else if wActivate then
 368   begin
 369     if not gWinActive then
 370     begin
 371       //e_WriteLog('activating window', MSG_NOTIFY);
 372       e_EnableInput := True;
 373
 374       if gMuteWhenInactive then
 375       begin
 376         //e_WriteLog('activating sounds', MSG_NOTIFY);
 377         e_MuteChannels(False);
 378       end;
 379
 380       if g_debug_WinMsgs then
 381       begin
 382         g_Console_Add('Now active');
 383         e_WriteLog('[DEBUG] WinMsgs: Now active', MSG_NOTIFY);
 384       end;
 385
 386       gWinActive := True;
 387     end;
 388   end;
 389 end;
 390
 391 function EventHandler(ev: TSDL_Event): Boolean;
 392 var
 393   key, keychr: Word;
 394   uc: UnicodeChar;
 395   //joy: Integer;
 396   msev: THMouseEvent;
 397   kbev: THKeyEvent;
 398
 399   function buildBut (b: Byte): Word;
 400   begin
 401     result := 0;
 402     case b of
 403       SDL_BUTTON_LEFT: result := result or THMouseEvent.Left;
 404       SDL_BUTTON_MIDDLE: result := result or THMouseEvent.Middle;
 405       SDL_BUTTON_RIGHT: result := result or THMouseEvent.Right;
 406     end;
 407   end;
 408
 409   procedure updateKBState ();
 410   var
 411     kbstate: PUint8;
 412   begin
 413     curKbState := 0;
 414     kbstate := SDL_GetKeyboardState(nil);
 415     if (kbstate[SDL_SCANCODE_LCTRL] <> 0) or (kbstate[SDL_SCANCODE_RCTRL] <> 0) then curKbState := curKbState or THKeyEvent.ModCtrl;
 416     if (kbstate[SDL_SCANCODE_LALT] <> 0) or (kbstate[SDL_SCANCODE_RALT] <> 0) then curKbState := curKbState or THKeyEvent.ModAlt;
 417     if (kbstate[SDL_SCANCODE_LSHIFT] <> 0) or (kbstate[SDL_SCANCODE_RSHIFT] <> 0) then curKbState := curKbState or THKeyEvent.ModShift;
 418   end;
 419
 420 begin
 421   Result := False;
 422   updateKBState();
 423
 424   case ev.type_ of
 425     SDL_WINDOWEVENT:
 426       Result := WindowEventHandler(ev.window);
 427
 428     SDL_QUITEV:
 429       begin
 430         if gExit <> EXIT_QUIT then
 431         begin
 432           if not wLoadingProgress then
 433           begin
 434             g_Game_Free();
 435             g_Game_Quit();
 436           end
 437           else
 438             wLoadingQuit := True;
 439         end;
 440         Result := True;
 441       end;
 442
 443     SDL_KEYDOWN,
 444     SDL_KEYUP:
 445       begin
 446         key := ev.key.keysym.scancode;
 447         if (g_holmes_enabled) then
 448         begin
 449           if (ev.type_ = SDL_KEYDOWN) then kbev.kind := THKeyEvent.Press else kbev.kind := THKeyEvent.Release;
 450           kbev.scan := ev.key.keysym.scancode;
 451           kbev.sym := ev.key.keysym.sym;
 452           kbev.bstate := curMsButState;
 453           kbev.kstate := curKbState;
 454           if g_Holmes_keyEvent(kbev) then exit;
 455         end;
 456         if (ev.type_ = SDL_KEYDOWN) then KeyPress(key);
 457       end;
 458
 459     SDL_MOUSEBUTTONDOWN, SDL_MOUSEBUTTONUP:
 460       begin
 461         msev.dx := ev.button.x-curMsX;
 462         msev.dy := ev.button.y-curMsY;
 463         curMsX := ev.button.x;
 464         curMsY := ev.button.y;
 465         if (ev.type_ = SDL_MOUSEBUTTONDOWN) then msev.kind := THMouseEvent.Press else msev.kind := THMouseEvent.Release;
 466         msev.but := buildBut(ev.button.button);
 467         msev.x := curMsX;
 468         msev.y := curMsY;
 469         if (msev.but <> 0) then
 470         begin
 471           // ev.button.clicks: Byte
 472           curMsButState := curMsButState or msev.but;
 473           msev.bstate := curMsButState;
 474           msev.kstate := curKbState;
 475           if (g_holmes_enabled) then g_Holmes_mouseEvent(msev);
 476         end;
 477       end;
 478     SDL_MOUSEWHEEL:
 479       begin
 480         if (ev.wheel.y <> 0) then
 481         begin
 482           msev.dx := 0;
 483           msev.dy := ev.wheel.y;
 484           msev.kind := THMouseEvent.Press;
 485           if (ev.wheel.y < 0) then msev.but := THMouseEvent.WheelUp else msev.but := THMouseEvent.WheelDown;
 486           msev.x := curMsX;
 487           msev.y := curMsY;
 488           msev.bstate := curMsButState;
 489           msev.kstate := curKbState;
 490           if (g_holmes_enabled) then g_Holmes_mouseEvent(msev);
 491         end;
 492       end;
 493     SDL_MOUSEMOTION:
 494       begin
 495         msev.dx := ev.button.x-curMsX;
 496         msev.dy := ev.button.y-curMsY;
 497         curMsX := ev.button.x;
 498         curMsY := ev.button.y;
 499         msev.kind := THMouseEvent.Motion;
 500         msev.but := 0;
 501         msev.x := curMsX;
 502         msev.y := curMsY;
 503         msev.bstate := curMsButState;
 504         msev.kstate := curKbState;
 505         if (g_holmes_enabled) then g_Holmes_mouseEvent(msev);
 506       end;
 507
 508     SDL_TEXTINPUT:
 509       begin
 510         Utf8ToUnicode(@uc, PChar(ev.text.text), 1);
 511         keychr := Word(uc);
 512         if (keychr > 127) then keychr := WCharToCP1251(keychr);
 513         CharPress(Chr(keychr));
 514       end;
 515
 516     // other key presses and joysticks are handled in e_input
 517   end;
 518 end;
 519
 520 procedure SwapBuffers();
 521 begin
 522   {$IFDEF HEADLESS}Exit;{$ENDIF}
 523   SDL_GL_SwapWindow(h_Wnd);
 524 end;
 525
 526 procedure KillGLWindow();
 527 begin
 528   if h_Wnd <> nil then SDL_DestroyWindow(h_Wnd);
 529   if h_GL <> nil then SDL_GL_DeleteContext(h_GL);
 530   h_Wnd := nil;
 531   h_GL := nil;
 532   //wWindowCreated := False;
 533 end;
 534
 535 function CreateGLWindow(Title: PChar): Boolean;
 536 //var
 537 //  flags: LongWord;
 538 begin
 539   Result := False;
 540
 541   gWinSizeX := gScreenWidth;
 542   gWinSizeY := gScreenHeight;
 543
 544   wTitle := Title;
 545   e_WriteLog('Creating window', MSG_NOTIFY);
 546
 547   if not g_Window_SetDisplay() then
 548   begin
 549     KillGLWindow();
 550     e_WriteLog('Window creation error (resolution not supported?)', MSG_FATALERROR);
 551     exit;
 552   end;
 553
 554 {$IFNDEF HEADLESS}
 555   h_Gl := SDL_GL_CreateContext(h_Wnd);
 556   if h_Gl = nil then Exit;
 557 {$ENDIF}
 558   //wWindowCreated := True;
 559
 560   e_ResizeWindow(gScreenWidth, gScreenHeight);
 561   e_InitGL();
 562
 563   Result := True;
 564 end;
 565
 566 {$IFDEF WINDOWS}
 567 // windoze sux; in headless mode `GetTickCount()` (and SDL) returns shit
 568 function GetTimer(): Int64;
 569 var
 570   F, C: Int64;
 571 begin
 572   QueryPerformanceFrequency(F);
 573   QueryPerformanceCounter(C);
 574   Result := Round(C/F*1000{000});
 575 end;
 576 {$ELSE}
 577 function GetTimer(): Int64;
 578 var
 579   t: Uint32;
 580   tt: Int64;
 581 begin
 582   t := SDL_GetTicks() {* 1000}; // TODO: do we really need microseconds here? k8: NOPE!
 583   if ticksOverflow = -1 then
 584   begin
 585     ticksOverflow := 0;
 586     lastTicks := t;
 587   end
 588   else
 589   begin
 590     if lastTicks > t then
 591     begin
 592       // overflow, increment overflow ;-)
 593       ticksOverflow := ticksOverflow+(Int64($ffffffff)+Int64(1));
 594       tt := (Int64($ffffffff)+Int64(1))+Int64(t);
 595       t := Uint32(tt-lastTicks);
 596     end;
 597   end;
 598   lastTicks := t;
 599   result := ticksOverflow+Int64(t);
 600 end;
 601 {$ENDIF}
 602
 603 procedure ResetTimer();
 604 begin
 605   wNeedTimeReset := True;
 606 end;
 607
 608 procedure PushExitEvent();
 609 var
 610   ev: TSDL_Event;
 611 begin
 612   ev.type_ := SDL_QUITEV;
 613   SDL_PushEvent(@ev);
 614 end;
 615
 616 procedure ProcessLoading();
 617 var
 618   ev: TSDL_Event;
 619   ID: DWORD;
 620 begin
 621   FillChar(ev, SizeOf(ev), 0);
 622   //wNeedFree := False;
 623   wLoadingProgress := True;
 624   while SDL_PollEvent(@ev) > 0 do
 625   begin
 626     if (ev.type_ = SDL_QUITEV) then
 627       break;
 628   end;
 629   //wNeedFree := True;
 630
 631   if (ev.type_ = SDL_QUITEV) or (gExit = EXIT_QUIT) then
 632   begin
 633     wLoadingProgress := False;
 634     exit;
 635   end;
 636
 637   if not wMinimized then
 638   begin
 639     if g_Texture_Get('INTER', ID) then
 640       e_DrawSize(ID, 0, 0, 0, False, False, gScreenWidth, gScreenHeight)
 641     else
 642       e_Clear(GL_COLOR_BUFFER_BIT, 0, 0, 0);
 643
 644     DrawLoadingStat();
 645     SwapBuffers();
 646
 647     ReShowCursor();
 648   end;
 649
 650   e_SoundUpdate();
 651
 652   if NetMode = NET_SERVER then
 653     g_Net_Host_Update
 654   else
 655     if (NetMode = NET_CLIENT) and (NetState <> NET_STATE_AUTH) then
 656       g_Net_Client_UpdateWhileLoading;
 657   wLoadingProgress := False;
 658 end;
 659
 660 function ProcessMessage(): Boolean;
 661 var
 662   i, t: Integer;
 663   ev: TSDL_Event;
 664 begin
 665   Result := False;
 666   FillChar(ev, SizeOf(ev), 0);
 667
 668   while SDL_PollEvent(@ev) > 0 do
 669   begin
 670     Result := EventHandler(ev);
 671     if ev.type_ = SDL_QUITEV then exit;
 672   end;
 673
 674   Time := GetTimer();
 675   Time_Delta := Time - Time_Old;
 676
 677   flag := False;
 678
 679   if wNeedTimeReset then
 680   begin
 681     Time_Delta := 28{(27777 div 1000)};
 682     wNeedTimeReset := False;
 683   end;
 684
 685   g_Map_ProfilersBegin();
 686   g_Mons_ProfilersBegin();
 687
 688   t := Time_Delta div 28{(27777 div 1000)};
 689   if t > 0 then
 690   begin
 691     flag := True;
 692     for i := 1 to t do
 693     begin
 694       if NetMode = NET_SERVER then g_Net_Host_Update()
 695       else if NetMode = NET_CLIENT then g_Net_Client_Update();
 696       Update();
 697     end;
 698   end
 699   else
 700   begin
 701     if NetMode = NET_SERVER then g_Net_Host_Update()
 702     else if NetMode = NET_CLIENT then g_Net_Client_Update();
 703   end;
 704
 705   g_Map_ProfilersEnd();
 706   g_Mons_ProfilersEnd();
 707
 708   if wLoadingQuit then
 709   begin
 710     g_Game_Free();
 711     g_Game_Quit();
 712   end;
 713
 714   if gExit = EXIT_QUIT then
 715   begin
 716     Result := True;
 717     Exit;
 718   end;
 719
 720 // Âðåìÿ ïðåäûäóùåãî îáíîâëåíèÿ:
 721   if flag then
 722   begin
 723     Time_Old := Time - (Time_Delta mod 28{(27777 div 1000)});
 724     if (not wMinimized) then
 725     begin
 726       Draw();
 727       SwapBuffers();
 728       ReShowCursor();
 729     end;
 730   end
 731   else
 732     Sleep(1);
 733
 734   e_SoundUpdate();
 735 end;
 736
 737 procedure ReDrawWindow;
 738 begin
 739   SwapBuffers();
 740   ReShowCursor();
 741 end;
 742
 743 procedure InitOpenGL(VSync: Boolean);
 744 var
 745   v: Byte;
 746 begin
 747   {$IFDEF HEADLESS}Exit;{$ENDIF}
 748   if VSync then v := 1 else v := 0;
 749   SDL_GL_SetAttribute(SDL_GL_CONTEXT_MAJOR_VERSION, 2);
 750   SDL_GL_SetAttribute(SDL_GL_CONTEXT_MINOR_VERSION, 1);
 751   SDL_GL_SetAttribute(SDL_GL_RED_SIZE, 8);
 752   SDL_GL_SetAttribute(SDL_GL_GREEN_SIZE, 8);
 753   SDL_GL_SetAttribute(SDL_GL_BLUE_SIZE, 8);
 754   SDL_GL_SetAttribute(SDL_GL_DEPTH_SIZE, 16);
 755   SDL_GL_SetAttribute(SDL_GL_DOUBLEBUFFER, 1);
 756   if gwin_k8_enable_light_experiments then
 757   begin
 758     SDL_GL_SetAttribute(SDL_GL_STENCIL_SIZE, 1); // lights; it is enough to have 1-bit stencil buffer for lighting
 759   end;
 760   SDL_GL_SetSwapInterval(v);
 761 end;
 762
 763 function glHasExtension (name: AnsiString): Boolean;
 764 var
 765   exts: PChar;
 766   i: Integer;
 767   found: Boolean;
 768   extName: ShortString;
 769 begin
 770   result := false;
 771   if length(name) = 0 then exit;
 772   exts := glGetString(GL_EXTENSIONS);
 773   if exts = nil then exit;
 774   while (exts[0] <> #0) and (exts[0] = ' ') do Inc(exts);
 775   while exts[0] <> #0 do
 776   begin
 777     if gwin_dump_extensions then
 778     begin
 779       i := 0;
 780       while (exts[i] <> #0) and (exts[i] <> ' ') do Inc(i);
 781       if i > 255 then
 782       begin
 783         e_WriteLog('FUUUUUUUUUUUUU', MSG_WARNING);
 784       end
 785       else
 786       begin
 787         Move(exts^, extName[1], i);
 788         extName[0] := Char(i);
 789         e_WriteLog(Format('EXT: %s', [extName]), MSG_NOTIFY);
 790       end;
 791     end;
 792     found := true;
 793     for i := 0 to length(name)-1 do
 794     begin
 795       if exts[i] = #0 then begin found := false; break; end;
 796       if exts[i] <> name[i+1] then begin found := false; break; end;
 797     end;
 798     if found and ((exts[length(name)] = #0) or (exts[length(name)] = ' ')) then begin result := true; exit; end;
 799     while (exts[0] <> #0) and (exts[0] <> ' ') do Inc(exts);
 800     while (exts[0] <> #0) and (exts[0] = ' ') do Inc(exts);
 801   end;
 802 end;
 803
 804 function SDLMain(): Integer;
 805 var
 806   idx: Integer;
 807   ltmp: Integer;
 808 begin
 809 {$IFDEF HEADLESS}
 810   e_NoGraphics := True;
 811 {$ENDIF}
 812
 813   for idx := 1 to ParamCount do
 814   begin
 815     if ParamStr(idx) = '--opengl-dump-exts' then gwin_dump_extensions := true;
 816     if ParamStr(idx) = '--twinkletwinkle' then gwin_k8_enable_light_experiments := true;
 817     if ParamStr(idx) = '--jah' then g_profile_history_size := 100;
 818     //if ParamStr(idx) = '--tree-draw' then gdbg_map_use_tree_draw := true;
 819     //if ParamStr(idx) = '--grid-draw' then gdbg_map_use_tree_draw := false;
 820     //if ParamStr(idx) = '--tree-coldet' then gdbg_map_use_tree_coldet := true;
 821     //if ParamStr(idx) = '--grid-coldet' then gdbg_map_use_tree_coldet := false;
 822     if ParamStr(idx) = '--no-particles' then gpart_dbg_enabled := false;
 823     if ParamStr(idx) = '--no-los' then gmon_dbg_los_enabled := false;
 824
 825     if ParamStr(idx) = '--profile-render' then g_profile_frame_draw := true;
 826     if ParamStr(idx) = '--profile-coldet' then g_profile_collision := true;
 827     if ParamStr(idx) = '--profile-los' then g_profile_los := true;
 828
 829     if ParamStr(idx) = '--no-part-phys' then gpart_dbg_phys_enabled := false;
 830     if ParamStr(idx) = '--no-part-physics' then gpart_dbg_phys_enabled := false;
 831     if ParamStr(idx) = '--no-particles-phys' then gpart_dbg_phys_enabled := false;
 832     if ParamStr(idx) = '--no-particles-physics' then gpart_dbg_phys_enabled := false;
 833     if ParamStr(idx) = '--no-particle-phys' then gpart_dbg_phys_enabled := false;
 834     if ParamStr(idx) = '--no-particle-physics' then gpart_dbg_phys_enabled := false;
 835
 836     if ParamStr(idx) = '--holmes' then begin g_holmes_enabled := true; g_Game_SetDebugMode(); end;
 837   end;
 838
 839   //if gdbg_map_use_tree_draw then e_WriteLog('using TREE renderer', MSG_NOTIFY);
 840   //if not gdbg_map_use_tree_draw then e_WriteLog('using GRID renderer', MSG_NOTIFY);
 841
 842   //if gdbg_map_use_tree_coldet then e_WriteLog('using TREE coldet', MSG_NOTIFY);
 843   //if not gdbg_map_use_tree_coldet then e_WriteLog('using GRID coldet', MSG_NOTIFY);
 844
 845   e_WriteLog('Initializing OpenGL', MSG_NOTIFY);
 846   InitOpenGL(gVSync);
 847
 848   e_WriteLog('Creating GL window', MSG_NOTIFY);
 849   if not CreateGLWindow(PChar(Format('Doom 2D: Forever %s', [GAME_VERSION]))) then
 850   begin
 851     Result := 0;
 852     exit;
 853   end;
 854
 855   {EnumDisplayModes();}
 856
 857   if gwin_k8_enable_light_experiments then
 858   begin
 859     SDL_GL_GetAttribute(SDL_GL_STENCIL_SIZE, @ltmp);
 860     e_WriteLog(Format('stencil buffer size: %d', [ltmp]), MSG_WARNING);
 861     gwin_has_stencil := (ltmp > 0);
 862   end
 863   else
 864   begin
 865     gwin_has_stencil := false;
 866   end;
 867
 868   if not glHasExtension('GL_ARB_texture_non_power_of_two') then
 869   begin
 870     e_WriteLog('Driver DID''T advertised NPOT textures support', MSG_WARNING);
 871     glLegacyNPOT := true;
 872   end
 873   else
 874   begin
 875     e_WriteLog('Driver advertised NPOT textures support', MSG_NOTIFY);
 876     glLegacyNPOT := false;
 877   end;
 878   gwin_dump_extensions := false;
 879
 880   Init();
 881   Time_Old := GetTimer();
 882
 883 // Êîìàíäíàÿ ñòðîêà:
 884   if ParamCount > 0 then
 885     g_Game_Process_Params();
 886
 887 // Çàïðîñ ÿçûêà:
 888   if (not gGameOn) and gAskLanguage then
 889     g_Menu_AskLanguage();
 890
 891   e_WriteLog('Entering the main loop', MSG_NOTIFY);
 892
 893   while not ProcessMessage() do
 894     { Main Loop } ;
 895
 896   Release();
 897   KillGLWindow();
 898
 899   Result := 0;
 900 end;
 901
 902 end.