index 44ee5b61da1bdf57a5eb97d9c57113eb57f733f0..76adb8ed193901f5252b8083e80ae280c89da652 100644 (file)
{$ENDIF}
SysUtils, Classes, Math,
g_basic,
+ 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,
FPS, FPSCounter, FPSTime: LongWord;
TakeScreenShot: Boolean;
+ DebugSound: Boolean;
procedure r_Render_LoadTextures;
begin
{$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;
InitImage(img);
if NewImage(gWinSizeX, gWinSizeY, TImageFormat.ifA8R8G8B8, img) then
begin
- {$IFDEF ENDIAN_LITTLE}
- typ := GL_UNSIGNED_INT_8_8_8_8_REV;
- {$ELSE}
- typ := GL_UNSIGNED_INT_8_8_8_8;
- {$ENDIF}
- glReadPixels(0, 0, gWinSizeX, gWinSizeY, GL_BGRA, typ, img.bits);
+ glReadPixels(0, 0, gWinSizeX, gWinSizeY, GL_RGBA, GL_UNSIGNED_BYTE, img.bits);
if glGetError() = GL_NO_ERROR then
begin
- if FlipImage(img) then
+ if FlipImage(img) and SwapChannels(img, ChannelRed, ChannelBlue) then
begin
ok := SaveImageToFile(fname, img);
end;
end;
procedure r_Render_Draw;
- var p1, p2: TPlayer; time: LongWord; pw, ph: Integer;
+ var p1, p2: TPlayer; time: LongWord; pw, ph, i, j: Integer;
begin
if gExit = EXIT_QUIT then
exit;
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
end;
{$ENDIF}
+begin
+ conRegVar('d_sounds', @DebugSound, '', '');
+ DebugSound := false;
end.