X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fopengl%2Fr_render.pas;h=869b27ff25f9b645d5e5c0a43e506c9aa2ea2dca;hb=57eea56cadbee2ab1e505f50144d1e1671deaa30;hp=cfc2a0d61464b50af5e7b0e67e07986cce8a9539;hpb=83221a8d1b958465bd68e3c79575f4a94c8ffa42;p=d2df-sdl.git diff --git a/src/game/opengl/r_render.pas b/src/game/opengl/r_render.pas index cfc2a0d..869b27f 100644 --- a/src/game/opengl/r_render.pas +++ b/src/game/opengl/r_render.pas @@ -36,13 +36,18 @@ interface function r_Render_WriteScreenShot (filename: String): Boolean; - function r_Render_GetGibRect (m, id: Integer): TRectWH; - procedure r_Render_QueueEffect (AnimType, X, Y: Integer); + {$IFDEF ENABLE_GIBS} + function r_Render_GetGibRect (m, id: Integer): TRectWH; + {$ENDIF} -{$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} + {$IFDEF ENABLE_GFX} + procedure r_Render_QueueEffect (AnimType, X, Y: Integer); + {$ENDIF} + + {$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 @@ -53,34 +58,132 @@ implementation {$IFDEF ENABLE_TOUCH} r_touch, {$ENDIF} + {$IFDEF ENABLE_GFX} + r_gfx, + {$ENDIF} + {$IFDEF ENABLE_SYSTEM} + g_system, + {$ENDIF} + {$IFDEF ENABLE_MENU} + r_gui, + {$ENDIF} SysUtils, Classes, Math, - e_log, g_system, utils, + e_log, utils, g_game, g_options, g_console, r_window, r_graphics, r_console, r_playermodel, r_textures, r_animations, - r_weapons, r_items, r_gfx, r_monsters, r_map, r_player, r_game + r_weapons, r_items, r_monsters, r_map, r_player, r_game ; var LoadedGL: Boolean = false; + function GLExtensionList (): SSArray; + var s: PChar; i, j, num: GLint; + begin + result := nil; + s := glGetString(GL_EXTENSIONS); + if s <> nil then + begin + num := 0; + i := 0; + j := 0; + while (s[i] <> #0) and (s[i] = ' ') do Inc(i); + while (s[i] <> #0) do + begin + while (s[i] <> #0) and (s[i] <> ' ') do Inc(i); + SetLength(result, num+1); + result[num] := Copy(s, j+1, i-j); + while (s[i] <> #0) and (s[i] = ' ') do Inc(i); + j := i; + Inc(num) + end + end + end; + + function GLExtensionSupported (ext: AnsiString): Boolean; + var e: AnsiString; + begin + {$IFDEF NOGL_INIT} + Result := nogl_ExtensionSupported(ext); + {$ELSE} + result := false; + for e in GLExtensionList() do + begin + if strEquCI1251(e, ext) then + begin + result := true; + exit + end + end + {$ENDIF} + end; + + function HaveNPOTSupport (): Boolean; + begin + Result := GLExtensionSupported('GL_ARB_texture_non_power_of_two') or + GLExtensionSupported('GL_OES_texture_npot') + end; + + function HaveFBOSupport (): Boolean; + begin + Result := GLExtensionSupported('GL_ARB_framebuffer_object') or + GLExtensionSupported('GL_OES_framebuffer_object') + end; + + procedure PrintGLSupportedExtensions; + begin + 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)]); + end; + + procedure r_Window_Initialize; + begin +{$IFNDEF USE_SYSSTUB} + PrintGLSupportedExtensions; + glLegacyNPOT := not HaveNPOTSupport(); +{$ELSE} + glLegacyNPOT := False; + glRenderToFBO := False; +{$ENDIF} + if glNPOTOverride and glLegacyNPOT then + begin + glLegacyNPOT := true; + e_logWriteln('NPOT texture emulation: FORCED') + end + else + begin + if glLegacyNPOT then + e_logWriteln('NPOT texture emulation: enabled') + else + e_logWriteln('NPOT texture emulation: disabled') + end + end; + procedure LoadGL; + var fboload: Boolean; begin if LoadedGL = false then begin {$IFDEF NOGL_INIT} nogl_Init; - if glRenderToFBO and (not nogl_ExtensionSupported('GL_OES_framebuffer_object')) then - begin - e_LogWriteln('GL: framebuffer objects not supported; disabling FBO rendering'); - glRenderToFBO := false - end; - {$ELSE} - if glRenderToFBO and (not Load_GL_ARB_framebuffer_object) then + {$ENDIF} + if glRenderToFBO then + begin + fboload := True; + {$IFDEF NOGL_INIT} + fboload := True; // !!! but if not? + {$ELSE} + fboload := Load_GL_ARB_framebuffer_object(); + {$ENDIF} + if (fboload = False) or (HaveFBOSupport() = False) or (HaveNPOTSupport() = False) then begin e_LogWriteln('GL: framebuffer objects not supported; disabling FBO rendering'); glRenderToFBO := false end; - {$ENDIF} + end; LoadedGL := true end end; @@ -117,12 +220,22 @@ implementation r_Monsters_Load; r_Weapon_Load; r_Items_Load; - r_GFX_Load; + {$IFDEF ENABLE_GFX} + r_GFX_Load; + {$ENDIF} + {$IFDEF ENABLE_MENU} + r_GUI_Load; + {$ENDIF} end; procedure r_Render_Free; begin - r_GFX_Free; + {$IFDEF ENABLE_MENU} + r_GUI_Free; + {$ENDIF} + {$IFDEF ENABLE_GFX} + r_GFX_Free; + {$ENDIF} r_Items_Free; r_Weapon_Free; r_Monsters_Free; @@ -136,8 +249,10 @@ implementation procedure r_Render_Initialize; begin - if sys_SetDisplayMode(gRC_Width, gRC_Height, gBPP, gRC_FullScreen, gRC_Maximized) = False then - raise Exception.Create('Failed to set videomode on startup.'); + {$IFDEF ENABLE_SYSTEM} + if sys_SetDisplayMode(gRC_Width, gRC_Height, gBPP, gRC_FullScreen, gRC_Maximized) = False then + raise Exception.Create('Failed to set videomode on startup.'); + {$ENDIF} LoadGL; r_Window_Initialize; r_Console_Init; @@ -155,7 +270,9 @@ implementation procedure r_Render_Update; begin - r_GFX_Update; + {$IFDEF ENABLE_GFX} + r_GFX_Update; + {$ENDIF} r_Map_Update; r_PlayerModel_Update; r_Console_Update; @@ -198,11 +315,13 @@ implementation procedure r_Render_Apply; begin - if sys_SetDisplayMode(Max(1, gRC_Width), Max(1, gRC_Height), Max(1, gBPP), gRC_FullScreen, gRC_Maximized) then - e_LogWriteln('resolution changed') - else - e_LogWriteln('resolution not changed'); - sys_EnableVSync(gVSync) + {$IFDEF ENABLE_SYSTEM} + if sys_SetDisplayMode(Max(1, gRC_Width), Max(1, gRC_Height), Max(1, gBPP), gRC_FullScreen, gRC_Maximized) then + e_LogWriteln('resolution changed') + else + e_LogWriteln('resolution not changed'); + sys_EnableVSync(gVSync) + {$ENDIF} end; function r_Render_WriteScreenShot (filename: String): Boolean; @@ -222,15 +341,19 @@ implementation end end; +{$IFDEF ENABLE_GIBS} function r_Render_GetGibRect (m, id: Integer): TRectWH; begin Result := r_PlayerModel_GetGibRect(m, id) end; +{$ENDIF} +{$IFDEF ENABLE_GFX} procedure r_Render_QueueEffect (AnimType, X, Y: Integer); begin r_GFX_OnceAnim(AnimType, X, Y) end; +{$ENDIF} {$IFDEF ENABLE_TOUCH} procedure r_Render_GetKeyRect (key: Integer; out x, y, w, h: Integer; out founded: Boolean);