X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_window.pas;h=f5249cc0e810e168e58409423eae45e306f9dc58;hb=df5fff669125c1fbd1324ce02a0afe28612f1ddc;hp=651675a2572865cb3fc2feeaeb657f963a9efbb5;hpb=8d318aca88d4253961e698b0cd05399989efe252;p=d2df-sdl.git diff --git a/src/game/g_window.pas b/src/game/g_window.pas index 651675a..f5249cc 100644 --- a/src/game/g_window.pas +++ b/src/game/g_window.pas @@ -13,7 +13,7 @@ * You should have received a copy of the GNU General Public License * along with this program. If not, see . *) -{$MODE DELPHI} +{$INCLUDE ../shared/a_modes.inc} unit g_window; interface @@ -36,13 +36,20 @@ function GetDisplayModes(dBPP: DWORD; var SelRes: DWORD): SArray; function g_Window_SetDisplay(PreserveGL: Boolean = False): Boolean; function g_Window_SetSize(W, H: Word; FScreen: Boolean): Boolean; +var + gwin_dump_extensions: Boolean = false; + gwin_has_stencil: Boolean = false; + gwin_k8_enable_light_experiments: Boolean = false; + + implementation uses {$IFDEF WINDOWS}Windows,{$ENDIF} SDL2, GL, GLExt, e_graphics, e_log, g_main, g_console, SysUtils, e_input, g_options, g_game, - g_basic, g_textures, e_sound, g_sound, g_menu, ENet, g_net; + g_basic, g_textures, e_sound, g_sound, g_menu, ENet, g_net, + g_map, g_gfx, g_monsters, g_holmes; var h_Wnd: PSDL_Window; @@ -63,6 +70,10 @@ var ticksOverflow: Int64 = -1; lastTicks: Uint32 = 0; // to detect overflow {$ENDIF} + curMsButState: Word = 0; + curKbState: Word = 0; + curMsX: Integer = 0; + curMsY: Integer = 0; const // TODO: move this to a separate file @@ -185,6 +196,7 @@ begin g_Game_SetupScreenSize(); g_Menu_Reset(); g_Game_ClearLoading(); + g_Holmes_VidModeChanged(); end; function g_Window_SetSize(W, H: Word; FScreen: Boolean): Boolean; @@ -236,6 +248,8 @@ begin SDL_WINDOWEVENT_MINIMIZED: begin + curMsButState := 0; + curKbState := 0; if not wMinimized then begin e_ResizeWindow(0, 0); @@ -252,6 +266,8 @@ begin SDL_WINDOWEVENT_RESIZED: begin + curMsButState := 0; + curKbState := 0; gScreenWidth := ev.data1; gScreenHeight := ev.data2; ChangeWindowSize(); @@ -268,6 +284,8 @@ begin SDL_WINDOWEVENT_MAXIMIZED: begin + curMsButState := 0; + curKbState := 0; if wMinimized then begin e_ResizeWindow(gScreenWidth, gScreenHeight); @@ -287,6 +305,8 @@ begin SDL_WINDOWEVENT_RESTORED: begin + curMsButState := 0; + curKbState := 0; if wMinimized then begin e_ResizeWindow(gScreenWidth, gScreenHeight); @@ -304,14 +324,20 @@ begin SDL_WINDOWEVENT_FOCUS_GAINED: begin + curMsButState := 0; + curKbState := 0; wActivate := True; //e_WriteLog('window gained focus!', MSG_NOTIFY); + g_Holmes_WindowFocused(); end; SDL_WINDOWEVENT_FOCUS_LOST: begin + curMsButState := 0; + curKbState := 0; wDeactivate := True; //e_WriteLog('window lost focus!', MSG_NOTIFY); + g_Holmes_WindowBlured(); end; end; @@ -367,41 +393,125 @@ var key, keychr: Word; uc: UnicodeChar; //joy: Integer; + msev: THMouseEvent; + kbev: THKeyEvent; + + function buildBut (b: Byte): Word; + begin + result := 0; + case b of + SDL_BUTTON_LEFT: result := result or THMouseEvent.Left; + SDL_BUTTON_MIDDLE: result := result or THMouseEvent.Middle; + SDL_BUTTON_RIGHT: result := result or THMouseEvent.Right; + end; + end; + + procedure updateKBState (); + var + kbstate: PUint8; + begin + curKbState := 0; + kbstate := SDL_GetKeyboardState(nil); + if (kbstate[SDL_SCANCODE_LCTRL] <> 0) or (kbstate[SDL_SCANCODE_RCTRL] <> 0) then curKbState := curKbState or THKeyEvent.ModCtrl; + if (kbstate[SDL_SCANCODE_LALT] <> 0) or (kbstate[SDL_SCANCODE_RALT] <> 0) then curKbState := curKbState or THKeyEvent.ModAlt; + if (kbstate[SDL_SCANCODE_LSHIFT] <> 0) or (kbstate[SDL_SCANCODE_RSHIFT] <> 0) then curKbState := curKbState or THKeyEvent.ModShift; + end; + begin Result := False; + updateKBState(); + case ev.type_ of SDL_WINDOWEVENT: Result := WindowEventHandler(ev.window); SDL_QUITEV: - begin - if gExit <> EXIT_QUIT then begin - if not wLoadingProgress then + if gExit <> EXIT_QUIT then begin - g_Game_Free(); - g_Game_Quit(); - end - else - wLoadingQuit := True; + if not wLoadingProgress then + begin + g_Game_Free(); + g_Game_Quit(); + end + else + wLoadingQuit := True; + end; + Result := True; end; - Result := True; - end; - SDL_KEYDOWN: - begin - key := ev.key.keysym.scancode; - KeyPress(key); - end; + SDL_KEYDOWN, + SDL_KEYUP: + begin + key := ev.key.keysym.scancode; + if (g_holmes_enabled) then + begin + if (ev.type_ = SDL_KEYDOWN) then kbev.kind := THKeyEvent.Press else kbev.kind := THKeyEvent.Release; + kbev.scan := ev.key.keysym.scancode; + kbev.sym := ev.key.keysym.sym; + kbev.bstate := curMsButState; + kbev.kstate := curKbState; + if g_Holmes_keyEvent(kbev) then exit; + end; + if (ev.type_ = SDL_KEYDOWN) then KeyPress(key); + end; + + SDL_MOUSEBUTTONDOWN, SDL_MOUSEBUTTONUP: + begin + msev.dx := ev.button.x-curMsX; + msev.dy := ev.button.y-curMsY; + curMsX := ev.button.x; + curMsY := ev.button.y; + if (ev.type_ = SDL_MOUSEBUTTONDOWN) then msev.kind := THMouseEvent.Press else msev.kind := THMouseEvent.Release; + msev.but := buildBut(ev.button.button); + msev.x := curMsX; + msev.y := curMsY; + if (msev.but <> 0) then + begin + // ev.button.clicks: Byte + curMsButState := curMsButState or msev.but; + msev.bstate := curMsButState; + msev.kstate := curKbState; + if (g_holmes_enabled) then g_Holmes_mouseEvent(msev); + end; + end; + SDL_MOUSEWHEEL: + begin + if (ev.wheel.y <> 0) then + begin + msev.dx := 0; + msev.dy := ev.wheel.y; + msev.kind := THMouseEvent.Press; + if (ev.wheel.y < 0) then msev.but := THMouseEvent.WheelUp else msev.but := THMouseEvent.WheelDown; + msev.x := curMsX; + msev.y := curMsY; + msev.bstate := curMsButState; + msev.kstate := curKbState; + if (g_holmes_enabled) then g_Holmes_mouseEvent(msev); + end; + end; + SDL_MOUSEMOTION: + begin + msev.dx := ev.button.x-curMsX; + msev.dy := ev.button.y-curMsY; + curMsX := ev.button.x; + curMsY := ev.button.y; + msev.kind := THMouseEvent.Motion; + msev.but := 0; + msev.x := curMsX; + msev.y := curMsY; + msev.bstate := curMsButState; + msev.kstate := curKbState; + if (g_holmes_enabled) then g_Holmes_mouseEvent(msev); + end; SDL_TEXTINPUT: - begin - Utf8ToUnicode(@uc, PChar(ev.text.text), 1); - keychr := Word(uc); - if (keychr > 127) then - keychr := WCharToCP1251(keychr); - CharPress(Chr(keychr)); - end; + begin + Utf8ToUnicode(@uc, PChar(ev.text.text), 1); + keychr := Word(uc); + if (keychr > 127) then keychr := WCharToCP1251(keychr); + CharPress(Chr(keychr)); + end; // other key presses and joysticks are handled in e_input end; @@ -572,6 +682,9 @@ begin wNeedTimeReset := False; end; + g_Map_ProfilersBegin(); + g_Mons_ProfilersBegin(); + t := Time_Delta div 28{(27777 div 1000)}; if t > 0 then begin @@ -589,6 +702,9 @@ begin else if NetMode = NET_CLIENT then g_Net_Client_Update(); end; + g_Map_ProfilersEnd(); + g_Mons_ProfilersEnd(); + if wLoadingQuit then begin g_Game_Free(); @@ -637,15 +753,95 @@ begin SDL_GL_SetAttribute(SDL_GL_BLUE_SIZE, 8); SDL_GL_SetAttribute(SDL_GL_DEPTH_SIZE, 16); SDL_GL_SetAttribute(SDL_GL_DOUBLEBUFFER, 1); + if gwin_k8_enable_light_experiments then + begin + SDL_GL_SetAttribute(SDL_GL_STENCIL_SIZE, 1); // lights; it is enough to have 1-bit stencil buffer for lighting + end; SDL_GL_SetSwapInterval(v); end; +function glHasExtension (name: AnsiString): Boolean; +var + exts: PChar; + i: Integer; + found: Boolean; + extName: ShortString; +begin + result := false; + if length(name) = 0 then exit; + exts := glGetString(GL_EXTENSIONS); + if exts = nil then exit; + while (exts[0] <> #0) and (exts[0] = ' ') do Inc(exts); + while exts[0] <> #0 do + begin + if gwin_dump_extensions then + begin + i := 0; + while (exts[i] <> #0) and (exts[i] <> ' ') do Inc(i); + if i > 255 then + begin + e_WriteLog('FUUUUUUUUUUUUU', MSG_WARNING); + end + else + begin + Move(exts^, extName[1], i); + extName[0] := Char(i); + e_WriteLog(Format('EXT: %s', [extName]), MSG_NOTIFY); + end; + end; + found := true; + for i := 0 to length(name)-1 do + begin + if exts[i] = #0 then begin found := false; break; end; + if exts[i] <> name[i+1] then begin found := false; break; end; + end; + if found and ((exts[length(name)] = #0) or (exts[length(name)] = ' ')) then begin result := true; exit; end; + while (exts[0] <> #0) and (exts[0] <> ' ') do Inc(exts); + while (exts[0] <> #0) and (exts[0] = ' ') do Inc(exts); + end; +end; + function SDLMain(): Integer; +var + idx: Integer; + ltmp: Integer; begin {$IFDEF HEADLESS} e_NoGraphics := True; {$ENDIF} + for idx := 1 to ParamCount do + begin + if ParamStr(idx) = '--opengl-dump-exts' then gwin_dump_extensions := true; + if ParamStr(idx) = '--twinkletwinkle' then gwin_k8_enable_light_experiments := true; + if ParamStr(idx) = '--jah' then g_profile_history_size := 100; + //if ParamStr(idx) = '--tree-draw' then gdbg_map_use_tree_draw := true; + //if ParamStr(idx) = '--grid-draw' then gdbg_map_use_tree_draw := false; + //if ParamStr(idx) = '--tree-coldet' then gdbg_map_use_tree_coldet := true; + //if ParamStr(idx) = '--grid-coldet' then gdbg_map_use_tree_coldet := false; + if ParamStr(idx) = '--no-particles' then gpart_dbg_enabled := false; + if ParamStr(idx) = '--no-los' then gmon_dbg_los_enabled := false; + + if ParamStr(idx) = '--profile-render' then g_profile_frame_draw := true; + if ParamStr(idx) = '--profile-coldet' then g_profile_collision := true; + if ParamStr(idx) = '--profile-los' then g_profile_los := true; + + if ParamStr(idx) = '--no-part-phys' then gpart_dbg_phys_enabled := false; + if ParamStr(idx) = '--no-part-physics' then gpart_dbg_phys_enabled := false; + if ParamStr(idx) = '--no-particles-phys' then gpart_dbg_phys_enabled := false; + if ParamStr(idx) = '--no-particles-physics' then gpart_dbg_phys_enabled := false; + if ParamStr(idx) = '--no-particle-phys' then gpart_dbg_phys_enabled := false; + if ParamStr(idx) = '--no-particle-physics' then gpart_dbg_phys_enabled := false; + + if ParamStr(idx) = '--holmes' then begin g_holmes_enabled := true; g_Game_SetDebugMode(); end; + end; + + //if gdbg_map_use_tree_draw then e_WriteLog('using TREE renderer', MSG_NOTIFY); + //if not gdbg_map_use_tree_draw then e_WriteLog('using GRID renderer', MSG_NOTIFY); + + //if gdbg_map_use_tree_coldet then e_WriteLog('using TREE coldet', MSG_NOTIFY); + //if not gdbg_map_use_tree_coldet then e_WriteLog('using GRID coldet', MSG_NOTIFY); + e_WriteLog('Initializing OpenGL', MSG_NOTIFY); InitOpenGL(gVSync); @@ -658,6 +854,29 @@ begin {EnumDisplayModes();} + if gwin_k8_enable_light_experiments then + begin + SDL_GL_GetAttribute(SDL_GL_STENCIL_SIZE, @ltmp); + e_WriteLog(Format('stencil buffer size: %d', [ltmp]), MSG_WARNING); + gwin_has_stencil := (ltmp > 0); + end + else + begin + gwin_has_stencil := false; + end; + + if not glHasExtension('GL_ARB_texture_non_power_of_two') then + begin + e_WriteLog('Driver DID''T advertised NPOT textures support', MSG_WARNING); + glLegacyNPOT := true; + end + else + begin + e_WriteLog('Driver advertised NPOT textures support', MSG_NOTIFY); + glLegacyNPOT := false; + end; + gwin_dump_extensions := false; + Init(); Time_Old := GetTimer();