index 1a35098c0216ed5f3575dc7cc90bf15b4f3bc29f..cfc2a0d61464b50af5e7b0e67e07986cce8a9539 100644 (file)
procedure r_Render_FreeTextures;
procedure r_Render_Update;
+ procedure r_Render_Draw;
procedure r_Render_Resize (w, h: Integer);
procedure r_Render_Apply;
function r_Render_GetGibRect (m, id: Integer): TRectWH;
procedure r_Render_QueueEffect (AnimType, X, Y: Integer);
+{$IFDEF ENABLE_TOUCH}
+ // touch screen button location and size
+ procedure r_Render_GetKeyRect (key: Integer; out x, y, w, h: Integer; out founded: Boolean);
+{$ENDIF}
+
procedure r_Render_DrawLoading (force: Boolean); // !!! remove it
implementation
uses
{$INCLUDE ../../nogl/noGLuses.inc}
+ {$IFDEF ENABLE_TOUCH}
+ r_touch,
+ {$ENDIF}
SysUtils, Classes, Math,
e_log, g_system, utils,
g_game, g_options, g_console,
r_Console_Update;
end;
+ procedure r_Render_Draw;
+ begin
+ r_Game_Draw;
+ {$IFDEF ENABLE_TOUCH}
+ r_Touch_Draw;
+ {$ENDIF}
+ end;
+
procedure r_Render_Resize (w, h: Integer);
begin
LoadGL;
r_GFX_OnceAnim(AnimType, X, Y)
end;
+{$IFDEF ENABLE_TOUCH}
+ procedure r_Render_GetKeyRect (key: Integer; out x, y, w, h: Integer; out founded: Boolean);
+ begin
+ r_Touch_GetKeyRect (key, x, y, w, h, founded)
+ end;
+{$ENDIF}
+
procedure r_Render_DrawLoading (force: Boolean);
begin
r_Window_DrawLoading(force)