hedgewars/uConsole.pas
changeset 841 0700e3d3474d
parent 787 5064d72fa0e2
child 866 ac6f6c95c23f
equal deleted inserted replaced
840:3c0028245ff3 841:0700e3d3474d
   145 glEnable(GL_TEXTURE_2D);
   145 glEnable(GL_TEXTURE_2D);
   146 glEnable(GL_BLEND);
   146 glEnable(GL_BLEND);
   147 
   147 
   148 for y:= 0 to cConsoleHeight div 256 + 1 do
   148 for y:= 0 to cConsoleHeight div 256 + 1 do
   149     for x:= 0 to cScreenWidth div 256 + 1 do
   149     for x:= 0 to cScreenWidth div 256 + 1 do
   150         DrawSprite(sprConsoleBG, x * 256, cConsoleHeight - 256 - y * 256, 0, Surface);
   150         DrawSprite(sprConsoleBG, x * 256, cConsoleHeight - 256 - y * 256, 0);
   151 
   151 
   152 for y:= 0 to cConsoleHeight div Fontz[fnt16].Height do
   152 for y:= 0 to cConsoleHeight div Fontz[fnt16].Height do
   153     DrawLine(ConsoleLines[(CurrLine - 1 - y + cLinesCount) mod cLinesCount], 4, cConsoleHeight - (y + 2) * (Fontz[fnt16].Height + 2));
   153     DrawLine(ConsoleLines[(CurrLine - 1 - y + cLinesCount) mod cLinesCount], 4, cConsoleHeight - (y + 2) * (Fontz[fnt16].Height + 2));
   154 
   154 
   155 DrawLine(InputStr, 4, cConsoleHeight - Fontz[fnt16].Height - 2);
   155 DrawLine(InputStr, 4, cConsoleHeight - Fontz[fnt16].Height - 2);