gl: optimize repeatable textures

[d2df-sdl.git] / src / game / renders / opengl / r_console.pas

diff --git a/src/game/renders/opengl/r_console.pas b/src/game/renders/opengl/r_console.pas
index 60b14c1f6b12c38b485691b6dc483d51a4e646d3..5c2f51999d266304d91e2b9ef120d152d6cf3636 100644 (file)
--- a/src/game/renders/opengl/r_console.pas
+++ b/src/game/renders/opengl/r_console.pas
@@ -29,8 +29,8 @@ interface
 implementation
 
   uses
-    Math, utils, conbuf,
-    g_game, g_options, g_console,
+    Math, SysUtils, utils, conbuf,
+    g_game, g_options, g_console, g_language,
     r_draw, r_textures, r_fonts, r_common
   ;
 
@@ -56,12 +56,13 @@ implementation
 
   procedure r_Console_Load;
   begin
-    Background := r_Textures_LoadFromFile(GameWad + ':TEXTURES/CONSOLE');
+    r_Common_SetLoading(_lc[I_LOAD_CONSOLE], 1);
+    Background := r_Textures_LoadFromFile(GameWad + ':TEXTURES/CONSOLE', [TGLHints.txNoRepeat]);
   end;
 
   procedure r_Console_Free;
   begin
-    Background.Free;
+    r_Common_FreeAndNil(Background);
   end;
 
   procedure r_Console_Update;