decouple repainting from blitting the FBO; draw touch overlay after FBO

[d2df-sdl.git] / src / game / g_game.pas

diff --git a/src/game/g_game.pas b/src/game/g_game.pas
index 0231bc8c5858249a2d24586d2772aacd879cb359..e3d9b7bb2bed0c13288230a0e9be989c17656068 100644 (file)
--- a/src/game/g_game.pas
+++ b/src/game/g_game.pas
@@ -3838,6 +3838,9 @@ begin
     FPSTime := Time;
   end;
 
+  e_SetRendertarget(True);
+  e_SetViewPort(0, 0, gScreenWidth, gScreenHeight);
+
   if gGameOn or (gState = STATE_FOLD) then
   begin
     if (gPlayer1 <> nil) and (gPlayer2 <> nil) then
@@ -4168,10 +4171,20 @@ begin
 
   if gGameOn then drawProfilers();
 
+  // TODO: draw this after the FBO and remap mouse click coordinates
+
 {$IFDEF ENABLE_HOLMES}
   g_Holmes_DrawUI();
 {$ENDIF}
 
+  // blit framebuffer to screen
+
+  e_SetRendertarget(False);
+  e_SetViewPort(0, 0, gWinSizeX, gWinSizeY);
+  e_BlitFramebuffer(gWinSizeX, gWinSizeY);
+
+  // draw the overlay stuff on top of it
+
   g_Touch_Draw;
 end;
 
@@ -7224,7 +7237,6 @@ end;
 procedure SystemCommands(P: SSArray);
 var
   cmd: string;
-  a: Integer;
 begin
   cmd := LowerCase(P[0]);
   case cmd of