X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Frenders%2Fopengl%2Fr_render.pas;h=76adb8ed193901f5252b8083e80ae280c89da652;hb=d9a5bbeb1c2790fac76ed87f2212f2e68a0bd5c3;hp=4c1f097115acbf4a563cff0920db1970a0fc6225;hpb=6dd60afe238e2d7e403568cc286e8f1152b138a0;p=d2df-sdl.git diff --git a/src/game/renders/opengl/r_render.pas b/src/game/renders/opengl/r_render.pas index 4c1f097..76adb8e 100644 --- a/src/game/renders/opengl/r_render.pas +++ b/src/game/renders/opengl/r_render.pas @@ -39,13 +39,14 @@ interface procedure r_Render_LoadTextures; procedure r_Render_FreeTextures; + procedure r_Render_Reset; procedure r_Render_Update; procedure r_Render_Draw; procedure r_Render_Resize (w, h: Integer); procedure r_Render_Apply; - function r_Render_WriteScreenShot (filename: String): Boolean; + procedure r_Render_RequestScreenShot; {$IFDEF ENABLE_GIBS} function r_Render_GetGibRect (m, id: Integer): TRectWH; @@ -73,23 +74,33 @@ interface procedure r_Render_StepLoading (incval: Integer); procedure r_Render_DrawLoading (force: Boolean); + {$IFDEF ENABLE_HOLMES} + function pmsCurMapX (): Integer; + function pmsCurMapY (): Integer; + function r_Render_HolmesViewIsSet (): Boolean; + {$ENDIF} + implementation uses - {$IFDEF USE_GLES1} - GLES11, - {$ELSE} - GL, GLEXT, - {$ENDIF} + {$I ../../../nogl/noGLuses.inc} + Imaging, ImagingTypes, ImagingUtility, (* for screenshots *) {$IFDEF ENABLE_MENU} r_gui, {$ENDIF} {$IFDEF ENABLE_SYSTEM} g_system, {$ENDIF} + {$IFDEF ENABLE_TOUCH} + r_touch, + {$ENDIF} + {$IFDEF ENABLE_HOLMES} + r_holmes, + {$ENDIF} SysUtils, Classes, Math, g_basic, - e_log, utils, wadreader, mapdef, + e_sound, // DebugSound + e_log, e_res, utils, wadreader, mapdef, g_game, g_map, g_panel, g_options, g_console, g_player, g_weapons, g_language, g_triggers, g_monsters, g_net, g_netmaster, r_draw, r_textures, r_fonts, r_common, r_console, r_map, r_loadscreen @@ -107,6 +118,8 @@ implementation hudbflag, hudbflags, hudbflagd: TGLTexture; FPS, FPSCounter, FPSTime: LongWord; + TakeScreenShot: Boolean; + DebugSound: Boolean; procedure r_Render_LoadTextures; begin @@ -127,24 +140,24 @@ implementation r_LoadScreen_Load; r_Common_Load; r_Common_SetLoading('HUD Textures', 5 + (WP_LAST + 1) + 11); - hud := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/HUD'); - hudbg := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/HUDBG'); - hudhp[false] := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/MED2'); - hudhp[true] := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/BMED'); - hudap := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/ARMORHUD'); + hud := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/HUD', [TGLHints.txNoRepeat]); + hudbg := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/HUDBG', []); + hudhp[false] := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/MED2', [TGLHints.txNoRepeat]); + hudhp[true] := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/BMED', [TGLHints.txNoRepeat]); + hudap := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/ARMORHUD', [TGLHints.txNoRepeat]); for i := 0 to WP_LAST do - hudwp[i] := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/' + WeapName[i]); - hudkey[0] := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/KEYR'); - hudkey[1] := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/KEYG'); - hudkey[2] := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/KEYB'); - hudair := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/AIRBAR'); - hudjet := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/JETBAR'); - hudrflag := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/FLAGHUD_R_BASE'); - hudrflags := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/FLAGHUD_R_STOLEN'); - hudrflagd := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/FLAGHUD_R_DROP'); - hudbflag := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/FLAGHUD_B_BASE'); - hudbflags := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/FLAGHUD_B_STOLEN'); - hudbflagd := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/FLAGHUD_B_DROP'); + hudwp[i] := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/' + WeapName[i], [TGLHints.txNoRepeat]); + hudkey[0] := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/KEYR', [TGLHints.txNoRepeat]); + hudkey[1] := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/KEYG', [TGLHints.txNoRepeat]); + hudkey[2] := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/KEYB', [TGLHints.txNoRepeat]); + hudair := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/AIRBAR', [TGLHints.txNoRepeat]); + hudjet := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/JETBAR', [TGLHints.txNoRepeat]); + hudrflag := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/FLAGHUD_R_BASE', [TGLHints.txNoRepeat]); + hudrflags := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/FLAGHUD_R_STOLEN', [TGLHints.txNoRepeat]); + hudrflagd := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/FLAGHUD_R_DROP', [TGLHints.txNoRepeat]); + hudbflag := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/FLAGHUD_B_BASE', [TGLHints.txNoRepeat]); + hudbflags := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/FLAGHUD_B_STOLEN', [TGLHints.txNoRepeat]); + hudbflagd := r_Common_LoadTextureFromFile(GameWAD + ':TEXTURES/FLAGHUD_B_DROP', [TGLHints.txNoRepeat]); r_Console_Load; r_Map_Load; {$IFDEF ENABLE_MENU} @@ -193,11 +206,28 @@ implementation info.maximized := gRC_Maximized; info.major := 1; info.minor := 1; - info.profile := TGLProfile.Compat; + {$IFDEF USE_GLES1} + info.profile := TGLProfile.Common; + {$ELSE} + info.profile := TGLProfile.Compat; + {$ENDIF} result := info; end; {$ENDIF} + procedure r_Render_LogGLInfo; + var size: GLint; + begin + size := 0; + glGetIntegerv(GL_MAX_TEXTURE_SIZE, @size); + 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)]); + e_LogWritefln('GL Texture: %s', [size]); + end; + procedure r_Render_Initialize; begin {$IFDEF ENABLE_SYSTEM} @@ -205,6 +235,10 @@ implementation raise Exception.Create('Failed to set videomode on startup.'); sys_EnableVSync(gVSync); {$ENDIF} + {$IFDEF NOGL_INIT} + nogl_Init; + {$ENDIF} + r_Render_LogGLInfo; r_LoadScreen_Initialize; r_Textures_Initialize; r_Console_Initialize; @@ -217,6 +251,14 @@ implementation r_Console_Finalize; r_Textures_Finalize; r_LoadScreen_Finalize; + {$IFDEF NOGL_INIT} + nogl_Quit; + {$ENDIF} + end; + + procedure r_Render_Reset; + begin + r_Map_Reset; end; procedure r_Render_Update; @@ -277,12 +319,14 @@ implementation end; procedure r_Render_DrawHUDArea (x, y, w, h: Integer; p: TPlayer); - var s: AnsiString; + var s: AnsiString; oldy: Integer; begin r_Common_DrawTexture(hudbg, x, y, w, h, TBasePoint.BP_LEFTUP); if p <> nil then begin + oldy := y; + if h < 239 then y := y - 32; (* hack: hide nickname on 640x400 *) r_Render_DrawHUD(x + w - 196 + 2, y, p); if p.Spectator then begin @@ -292,6 +336,7 @@ implementation if p.NoRespawn then r_Common_DrawText(_lc[I_PLAYER_SPECT1S], x + 4, y + 290, 255, 255, 255, 255, stdfont, TBasePoint.BP_LEFTUP); end; + y := oldy; end; if gShowPing and g_Game_IsClient then @@ -308,7 +353,7 @@ implementation if gShowScore and (gGameSettings.GameMode in [GM_TDM, GM_CTF]) then begin - (* RED TEAM GOALS *) + (* RED TEAM SCORE *) fw := 0; if gGameSettings.GameMode = GM_CTF then begin @@ -325,7 +370,7 @@ implementation end; r_Common_DrawText(IntToStr(gTeamStat[TEAM_RED].Score), x + w - 16 - fw, y + 240 - 72 - 4, TEAMCOLOR[TEAM_RED].R, TEAMCOLOR[TEAM_RED].G, TEAMCOLOR[TEAM_RED].B, 255, menufont, TBasePoint.BP_RIGHTUP); - (* BLUE TEAM GOALS *) + (* BLUE TEAM SCORE *) fw := 0; if gGameSettings.GameMode = GM_CTF then begin @@ -383,7 +428,7 @@ implementation end; procedure r_Render_DrawView (x, y, w, h: Integer; p: TPlayer); - var l, t, r, b, xx, yy: Integer; + var l, t, r, b, xx, yy, cx, cy: Integer; begin r_Draw_GetRect(l, t, r, b); r_Draw_SetRect(x, y, x + w, y + h); @@ -391,25 +436,32 @@ implementation r_Common_GetCameraPos(p, true, xx, yy); if p <> nil then begin - r_Map_Draw(x, y, w, h, xx, yy, p); + r_Map_Draw(x, y, w, h, xx, yy, p, cx, cy); + {$IFDEF ENABLE_HOLMES} + if p = gPlayer1 then + begin + r_Holmes_plrViewPos(cx, cy); + r_Holmes_plrViewSize(h, w); + end; + {$ENDIF} r_Render_DrawStatsView(x, y, w, h, p); if p.Spectator and p.NoRespawn then r_Common_DrawText(_lc[I_PLAYER_SPECT4], x div 2 + w div 2, y div 2 + h div 2, 255, 255, 255, 255, stdfont, TBasePoint.BP_CENTER); end else begin - r_Map_Draw(x, y, w, h, xx, yy, nil); + r_Map_Draw(x, y, w, h, xx, yy, nil, cx, cy); end; r_Draw_SetRect(l, t, r, b); end; procedure r_Render_DrawMapView (x, y, w, h, camx, camy: Integer); - var l, t, r, b: Integer; + var l, t, r, b, cx, cy: Integer; begin r_Draw_GetRect(l, t, r, b); r_Draw_SetRect(x, y, x + w, y + h); - r_Map_Draw(x, y, w, h, camx, camy, nil); + r_Map_Draw(x, y, w, h, camx, camy, nil, cx, cy); r_Draw_SetRect(l, t, r, b); end; @@ -435,33 +487,33 @@ implementation r_Draw_GetTextSize('W', stdfont, cw, ch); motdh := gScreenHeight - 49 - ch * b_Text_LineCount(slMOTD); - r_Draw_FillRect(16, 64, gScreenWidth - 16, motdh, 64, 64, 64, 145); - r_Draw_Rect(16, 64, gScreenWidth - 16, motdh, 255, 127, 0, 255); + (* window background *) + r_Draw_Rect(16, 64, gScreenWidth - 16, motdh + 1, 255, 127, 0, 255); + r_Draw_FillRect(16 + 1, 64 + 1, gScreenWidth - 16 - 1, motdh, 64, 64, 64, 145); r_Common_DrawText(_lc[I_NET_SLIST_HELP], gScreenWidth div 2, gScreenHeight - 8, 255, 255, 255, 255, stdfont, TBasePoint.BP_DOWN); if slMOTD <> '' then begin - r_Draw_FillRect(16, motdh, gScreenWidth - 16, gScreenHeight - 44, 64, 64, 64, 110); r_Draw_Rect(16, motdh, gScreenWidth - 16, gScreenHeight - 44, 255, 127, 0, 255); + r_Draw_FillRect(16 + 1, motdh + 1, gScreenWidth - 16 - 1, gScreenHeight - 44 - 1, 64, 64, 64, 145); r_Common_DrawFormatText(slMOTD, 20, motdh + 3, 255, stdfont, TBasePoint.BP_LEFTUP); end; if not slReadUrgent and (slUrgent <> '') then begin - r_Draw_FillRect(17, 65, gScreenWidth - 17, motdh - 1, 64, 64, 64, 127); - r_Draw_FillRect(scrx - 256, scry - 60, scrx + 256, scry + 60, 64, 64, 64, 127); - r_Draw_Rect(scrx - 256, scry - 60, scrx + 256, scry + 60, 255, 127, 0, 255); - r_Draw_FillRect(scrx - 256, scry - 40, scrx + 256, scry - 40, 255, 127, 0, 255); + r_Draw_Rect(scrx - 256, scry - 60, scrx + 256, scry + 60 + 1, 255, 127, 0, 255); + r_Draw_FillRect(scrx - 256 + 1, scry - 60 + 1, scrx + 256 - 1, scry + 60, 64, 64, 64, 127); + r_Draw_FillRect(scrx - 256, scry - 40, scrx + 256, scry - 40 + 1, 255, 127, 0, 255); + r_Draw_FillRect(scrx - 256, scry + 40, scrx + 256, scry + 40 + 1, 255, 127, 0, 255); r_Common_DrawText(_lc[I_NET_SLIST_URGENT], scrx, scry - 58, 255, 255, 255, 255, stdfont, TBasePoint.BP_UP); - r_Common_DrawFormatText(slUrgent, scrx - 253, scry - 38, 255, stdfont, TBasePoint.BP_LEFTUP); r_Common_DrawText(_lc[I_NET_SLIST_URGENT_CONT], scrx, scry + 41, 255, 255, 255, 255, stdfont, TBasePoint.BP_UP); - r_Draw_FillRect(scrx - 256, scry + 40, scrx + 256, scry + 40, 255, 127, 0, 255); + r_Common_DrawFormatText(slUrgent, scrx - 253, scry - 38, 255, stdfont, TBasePoint.BP_LEFTUP); end else if SL = nil then begin - r_Draw_FillRect(17, 65, gScreenWidth - 17, motdh - 1, 64, 64, 64, 127); - r_Draw_Rect(scrx - 192, scry - 10, scrx + 192, scry + 11, 255, 127, 0, 255); + r_Draw_Rect(scrx - 192, scry - 10, scrx + 192, scry + 10, 255, 127, 0, 255); + r_Draw_FillRect(scrx - 192 + 1, scry - 10 + 1, scrx + 192 - 1, scry + 10 - 1, 64, 64, 64, 145); r_Common_DrawText(slWaitStr, scrx, scry, 255, 255, 255, 255, stdfont, TBasePoint.BP_CENTER); end else @@ -479,17 +531,20 @@ implementation mw := gScreenWidth - 188; mx := 16 + mw; - r_Draw_FillRect(16 + 1, sy, gScreenWidth - 16 - 1, sy + 40, 64, 64, 64, 255); - r_Draw_FillRect(16 + 1, sy, gScreenWidth - 16 - 1, sy, 205, 205, 205, 255); - r_Draw_FillRect(16 + 1, sy + 41, gScreenWidth - 16 - 1, sy + 41, 255, 255, 255, 255); + (* current selection *) + r_Draw_FillRect(16 + 1, sy + 1, gScreenWidth - 16 - 1, sy + 1 + 40, 64, 64, 64, 255); + r_Draw_FillRect(16 + 1, sy, gScreenWidth - 16 - 1, sy + 1, 255, 255, 255, 255); + r_Draw_FillRect(16 + 1, sy + 1 + 40, gScreenWidth - 16 - 1, sy + 1 + 40 + 1, 255, 255, 255, 255); - r_Draw_FillRect(16, 85, gScreenWidth - 16, 85, 255, 127, 0, 255); - r_Draw_FillRect(16, motdh - 20, gScreenWidth - 16, motdh - 20, 255, 127, 0, 255); + (* line separators for name/ping/mode.. & address/pasword *) + r_Draw_FillRect(16, 85, gScreenWidth - 16, 85 + 1, 255, 127, 0, 255); + r_Draw_FillRect(16, motdh - 20, gScreenWidth - 16, motdh - 20 + 1, 255, 127, 0, 255); - r_Draw_FillRect(mx - 70, 64, mx - 70, motdh, 255, 127, 0, 255); - r_Draw_FillRect(mx, 64, mx, motdh - 20, 255, 127, 0, 255); - r_Draw_FillRect(mx + 52, 64, mx + 52, motdh - 20, 255, 127, 0, 255); - r_Draw_FillRect(mx + 104, 64, mx + 104, motdh - 20, 255, 127, 0, 255); + (* column separators for name/ping/mode/players/version *) + r_Draw_FillRect(mx - 70, 64 + 1, mx - 70 + 1, motdh, 255, 127, 0, 255); + r_Draw_FillRect(mx, 64 + 1, mx + 1, motdh - 20, 255, 127, 0, 255); + r_Draw_FillRect(mx + 52, 64 + 1, mx + 52 + 1, motdh - 20, 255, 127, 0, 255); + r_Draw_FillRect(mx + 104, 64 + 1, mx + 104 + 1, motdh - 20, 255, 127, 0, 255); r_Common_DrawText('NAME/MAP', 18, 68, 255, 127, 0, 255, stdfont, TBasePoint.BP_LEFTUP); r_Common_DrawText('PING', mx - 68, 68, 255, 127, 0, 255, stdfont, TBasePoint.BP_LEFTUP); @@ -535,7 +590,7 @@ implementation w3 := cw * 8; (* frags width *) w2 := cw * 12; (* ping/loss width *) w1 := w - w2 - w3 - w4; (* name width *) - tw := w1 - cw * 2 - w2; (* team goals *) + tw := w1 - cw * 2 - w2; (* team score *) if cs.PlayerStat = nil then players := 0 else players := Length(cs.PlayerStat); yy := y; if cs.GameMode in [GM_TDM, GM_CTF] then @@ -563,7 +618,7 @@ implementation INC(yy, ch); INC(yy, ch div 4); - r_Draw_FillRect(x, yy, x + w - 1, yy, r, g, b, 255); + r_Draw_FillRect(x, yy, x + w, yy + 1, r, g, b, 255); INC(yy, ch div 4); for i := 0 to players - 1 do @@ -617,7 +672,7 @@ implementation end; // Player color - r_Draw_Rect(x, yy, x + 16 - 1, yy + 16 - 1, 192, 192, 192, 255); + r_Draw_Rect(x, yy, x + 16, yy + 16, 192, 192, 192, 255); r_Draw_FillRect(x + 1, yy + 1, x + 16 - 1, yy + 16 - 1, cs.PlayerStat[i].Color.R, cs.PlayerStat[i].Color.G, cs.PlayerStat[i].Color.B, 255); // Player name if gShowPIDs then s := Format('[%5d] %s', [cs.PlayerStat[i].UID, cs.PlayerStat[i].Name]) else s := cs.PlayerStat[i].Name; @@ -646,8 +701,8 @@ implementation begin xoff := 0; yoff := 8; r_Draw_GetTextSize('W', stdfont, cw, ch); - r_Draw_FillRect(x, y, x + w - 1, y + h - 1, 64, 64, 64, 224); - r_Draw_Rect(x, y, x + w - 1, y + h - 1, 255, 127, 0, 255); + r_Draw_Rect(x, y, x + w, y + h, 255, 127, 0, 255); + r_Draw_FillRect(x + 1, y + 1, x + w - 1, y + h - 1, 64, 64, 64, 224); (* LINE 1 *) @@ -946,8 +1001,8 @@ implementation begin x0 := x + xx div scale; y0 := y + yy div scale; - x1 := x + (xx + ww - 1) div scale; - y1 := y + (yy + hh - 1) div scale; + x1 := x + (xx + ww) div scale; + y1 := y + (yy + hh) div scale; r_Draw_FillRect(x0, y0, x1, y1, r, g, b, alpha); end; @@ -1014,7 +1069,7 @@ implementation end; begin - r_Draw_FillRect(x, y, (x + gMapInfo.Width - 1) div scale, (y + gMapInfo.Height - 1) div scale, 0, 0, 0, alpha); + r_Draw_FillRect(x, y, (x + gMapInfo.Width) div scale, (y + gMapInfo.Height) div scale, 0, 0, 0, alpha); DrawPanels(gSteps); DrawPanels(gLifts); DrawPanels(gWater); @@ -1025,12 +1080,73 @@ implementation DrawPlayers; end; + function GetScreenShotName (AsStats: Boolean): AnsiString; + var dir, date: AnsiString; + begin + result := ''; + dir := e_GetWriteableDir(ScreenshotDirs); + if dir <> '' then + begin + if AsStats then + begin + dir := e_CatPath(dir, 'stats'); (* TODO: use e_GetWriteableDir *) + result := e_CatPath(dir, StatFilename + '.png'); + end + else + begin + DateTimeToString(date, 'yyyy-mm-dd-hh-nn-ss', Now()); + result := e_CatPath(dir, 'screenshot-' + date + '.png'); + end; + end; + end; + + procedure SaveScreenShot (AsStats: Boolean); + var img: TImageData; typ: GLenum; ok: Boolean; fname: AnsiString; + begin + ok := false; + fname := GetScreenShotName(AsStats); + if fname <> '' then + begin + if (gWinSizeX > 0) and (gWinSizeY > 0) then + begin + Imaging.SetOption(ImagingPNGPreFilter, 5); + Imaging.SetOption(ImagingPNGCompressLevel, 5); + InitImage(img); + if NewImage(gWinSizeX, gWinSizeY, TImageFormat.ifA8R8G8B8, img) then + begin + glReadPixels(0, 0, gWinSizeX, gWinSizeY, GL_RGBA, GL_UNSIGNED_BYTE, img.bits); + if glGetError() = GL_NO_ERROR then + begin + if FlipImage(img) and SwapChannels(img, ChannelRed, ChannelBlue) then + begin + ok := SaveImageToFile(fname, img); + end; + end; + end; + FreeImage(img); + end; + end; + if ok then + g_Console_Add(Format(_lc[I_CONSOLE_SCREENSHOT], [fname])) + else + g_Console_Add(Format(_lc[I_CONSOLE_ERROR_WRITE], [fname])); + end; + procedure r_Render_Draw; - var p1, p2: TPlayer; time: LongWord; + var p1, p2: TPlayer; time: LongWord; pw, ph, i, j: Integer; begin if gExit = EXIT_QUIT then exit; + {$IFDEF ENABLE_SYSTEM} + (* hack: if r_pixel_scale changed, reset menu and other things *) + pw := Round(gWinSizeX / r_pixel_scale); + ph := Round(gWinSizeY / r_pixel_scale); + if (pw <> gScreenWidth) or (ph <> gScreenHeight) then + if assigned(sys_ScreenResize) then + sys_ScreenResize(gWinSizeX, gWinSizeY); + {$ENDIF} + INC(FPSCounter); time := GetTickCount64(); if time - FPSTime >= 1000 then @@ -1040,10 +1156,10 @@ implementation FPSTime := time; end; - r_Draw_Setup(gScreenWidth, gScreenHeight); + r_Draw_Setup(gWinSizeX, gWinSizeY, gScreenWidth, gScreenHeight); glClearColor(0.0, 0.0, 0.0, 0.0); - glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); + glClear(GL_COLOR_BUFFER_BIT); p1 := nil; p2 := nil; @@ -1107,7 +1223,9 @@ implementation if gShowMap then r_Render_DrawMiniMap(0, 0, 160); - // TODO draw holmes inspector + {$IFDEF ENABLE_HOLMES} + r_Holmes_Draw; + {$ENDIF} if MessageText <> '' then r_Common_DrawFormatText(MessageText, (gScreenWidth - 196) div 2, gScreenHeight div 2, 255, menufont, TBasePoint.BP_CENTER); @@ -1121,7 +1239,7 @@ implementation if gPauseMain and gGameOn {$IFDEF ENABLE_MENU}and (g_ActiveWindow = nil){$ENDIF} then begin - r_Draw_FillRect(0, 0, gScreenWidth - 1, gScreenHeight - 1, 0, 0, 0, 105); + r_Draw_FillRect(0, 0, gScreenWidth, gScreenHeight, 0, 0, 0, 105); r_Common_DrawText(_lc[I_MENU_PAUSE], gScreenWidth div 2, gScreenHeight div 2, 255, 255, 255, 255, menufont, TBasePoint.BP_CENTER); end; @@ -1130,11 +1248,18 @@ implementation // TODO F key handle case gState of STATE_NONE: (* do nothing *) ; - STATE_MENU: r_Common_DrawBackground(GameWad + ':TEXTURES/TITLE'); + STATE_MENU: + begin + r_Common_DrawBackground(GameWad + ':TEXTURES/TITLE'); + {$IFDEF ENABLE_MENU} + if g_ActiveWindow <> nil then + r_Draw_FillRect(0, 0, gScreenWidth, gScreenHeight, 0, 0, 0, 105); + {$ENDIF} + end; STATE_FOLD: begin if EndingGameCounter > 0 then - r_Draw_FillRect(0, 0, gScreenWidth - 1, gScreenHeight - 1, 0, 0, 0, MIN(MAX(255 - EndingGameCounter, 0), 255)); + r_Draw_FillRect(0, 0, gScreenWidth, gScreenHeight, 0, 0, 0, MIN(MAX(255 - EndingGameCounter, 0), 255)); end; STATE_INTERCUSTOM: begin @@ -1150,14 +1275,14 @@ implementation {$IFDEF ENABLE_MENU} if g_ActiveWindow <> nil then - r_Draw_FillRect(0, 0, gScreenWidth - 1, gScreenHeight - 1, 0, 0, 0, 105); + r_Draw_FillRect(0, 0, gScreenWidth, gScreenHeight, 0, 0, 0, 105); {$ENDIF} end; STATE_INTERSINGLE, STATE_INTERTEXT, STATE_INTERPIC: begin if EndingGameCounter > 0 then begin - r_Draw_FillRect(0, 0, gScreenWidth - 1, gScreenHeight - 1, 0, 0, 0, MIN(MAX(255 - EndingGameCounter, 0), 255)); + r_Draw_FillRect(0, 0, gScreenWidth, gScreenHeight, 0, 0, 0, MIN(MAX(255 - EndingGameCounter, 0), 255)); end else begin @@ -1165,7 +1290,7 @@ implementation r_Render_DrawSingleStats; {$IFDEF ENABLE_MENU} if g_ActiveWindow <> nil then - r_Draw_FillRect(0, 0, gScreenWidth - 1, gScreenHeight - 1, 0, 0, 0, 105); + r_Draw_FillRect(0, 0, gScreenWidth, gScreenHeight, 0, 0, 0, 105); {$ENDIF} end; end; @@ -1177,13 +1302,13 @@ implementation r_Common_DrawBackground(GameWad + ':TEXTURES/' + _lc[I_TEXTURE_ENDPIC]); {$IFDEF ENABLE_MENU} if g_ActiveWindow <> nil then - r_Draw_FillRect(0, 0, gScreenWidth - 1, gScreenHeight - 1, 0, 0, 0, 105); + r_Draw_FillRect(0, 0, gScreenWidth, gScreenHeight, 0, 0, 0, 105); {$ENDIF} end; STATE_SLIST: begin r_Common_DrawBackground(GameWad + ':TEXTURES/TITLE'); - r_Draw_FillRect(0, 0, gScreenWidth - 1, gScreenHeight - 1, 0, 0, 0, 105); + r_Draw_FillRect(0, 0, gScreenWidth, gScreenHeight, 0, 0, 0, 105); r_Render_DrawServerList(slCurrent, slTable); end; end; @@ -1193,14 +1318,19 @@ implementation if g_ActiveWindow <> nil then begin if gGameOn then - r_Draw_FillRect(0, 0, gScreenWidth - 1, gScreenHeight - 1, 0, 0, 0, 105); + r_Draw_FillRect(0, 0, gScreenWidth, gScreenHeight, 0, 0, 0, 105); r_GUI_Draw_Window(g_ActiveWindow); end; {$ENDIF} r_Console_Draw(false); - // TODO g_debug_Sounds + if DebugSound and gGameOn then + begin + for i := 0 to High(e_SoundsArray) do + for j := 0 to e_SoundsArray[i].nRefs do + r_Draw_FillRect(i + 100, j + 100, i + 100 + 1, j + 100 + 1, 255, 0, 0, 255); + end; if gShowFPS then begin @@ -1215,9 +1345,27 @@ implementation // TODO draw profilers - // TODO draw holmes interface + {$IFDEF ENABLE_HOLMES} + r_Holmes_DrawUI; + {$ENDIF} - // TODO draw touch screen controls + {$IFDEF ENABLE_TOUCH} + glScalef(1 / r_pixel_scale, 1 / r_pixel_scale, 0); + r_Touch_Draw; + {$ENDIF} + + if TakeScreenShot then + begin + SaveScreenShot(false); + TakeScreenShot := false; + end; + + (* take stats screenshot immediately after the first frame of the stats showing *) + if gScreenshotStats and (StatShotDone = false) and (Length(CustomStat.PlayerStat) > 1) then + begin + SaveScreenShot(true); + StatShotDone := true; + end; sys_Repaint; end; @@ -1228,8 +1376,8 @@ implementation gWinSizeY := h; gRC_Width := w; gRC_Height := h; - gScreenWidth := w; - gScreenHeight := h; + gScreenWidth := Round(w / r_pixel_scale); + gScreenHeight := Round(h / r_pixel_scale); end; procedure r_Render_Apply; @@ -1239,14 +1387,16 @@ implementation e_LogWriteln('resolution changed') else e_LogWriteln('resolution not changed'); - sys_EnableVSync(gVSync) + sys_EnableVSync(gVSync); + {$ENDIF} + {$IFDEF NOGL_INIT} + nogl_Init; {$ENDIF} end; - function r_Render_WriteScreenShot (filename: String): Boolean; + procedure r_Render_RequestScreenShot; begin - // TODO write screenshot file - Result := False; + TakeScreenShot := true; end; {$IFDEF ENABLE_GIBS} @@ -1266,8 +1416,7 @@ implementation {$IFDEF ENABLE_TOUCH} procedure r_Render_GetKeyRect (key: Integer; out x, y, w, h: Integer; out founded: Boolean); begin - // TODO implement touchscreen - founded := False; + r_Touch_GetKeyRect(key, x, y, w, h, founded) end; {$ENDIF} @@ -1318,4 +1467,24 @@ implementation r_Common_DrawLoading(force); end; +{$IFDEF ENABLE_HOLMES} + function pmsCurMapX (): Integer; + begin + result := r_holmes.pmsCurMapX(); + end; + + function pmsCurMapY (): Integer; + begin + result := r_holmes.pmsCurMapY(); + end; + + function r_Render_HolmesViewIsSet (): Boolean; + begin + result := vpSet; + end; +{$ENDIF} + +begin + conRegVar('d_sounds', @DebugSound, '', ''); + DebugSound := false; end.