dima/kam-mobile
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Complete BigTask
Sync changed files to Google Drive / sync (push) Successful in 54s
Details

Browse Source
This commit is contained in:
admin_d committed 2026-10-06 12:49:37 +05:00
1 parent b8e2d0007d
commit 9a59f1fe52
1 file changed
+1 -20
Download Patch File Download Diff File Expand all files Collapse all files
port-source/kam_remake/src/render/KM_Render.pas
+1 -20
View File
@@ -5,7 +5,7 @@ uses
{$IFDEF WDC} Windows, {$ENDIF} {$IFDEF WDC} Windows, {$ENDIF}
{$IFDEF Unix} LCLIntf, LCLType, OpenGLContext, {$ENDIF} {$IFDEF Unix} LCLIntf, LCLType, OpenGLContext, {$ENDIF}
dglOpenGL, dglOpenGL,
KM_RenderQuery, KM_RenderTypes, KM_CommonTypes; KM_RenderTypes, KM_CommonTypes;
const const
@@ -25,9 +25,7 @@ type
fFBO: Cardinal; fFBO: Cardinal;
fRenderBuf: Cardinal; fRenderBuf: Cardinal;
fOpenGL_Vendor, fOpenGL_Renderer, fOpenGL_Version: UnicodeString;
fScreenX, fScreenY: Word; fScreenX, fScreenY: Word;
fQuery: TKMRenderQuery;
procedure InitFBO; procedure InitFBO;
procedure SaveBufferToFile(aUseFBOBuffer: Boolean; var aWidth, aHeight: Integer; var aPixelData: TKMCardinalArray); procedure SaveBufferToFile(aUseFBOBuffer: Boolean; var aWidth, aHeight: Integer; var aPixelData: TKMCardinalArray);
@@ -53,8 +51,6 @@ type
class property MaxViewportDim: Cardinal read GetMaxViewportDim; class property MaxViewportDim: Cardinal read GetMaxViewportDim;
property MaxFBOSize: Cardinal read GetMaxFBOSize; property MaxFBOSize: Cardinal read GetMaxFBOSize;
property RendererVersion: UnicodeString read fOpenGL_Version;
function IsOldGLVersion: Boolean;
procedure Resize(aWidth, aHeight: Integer); procedure Resize(aWidth, aHeight: Integer);
procedure ReadRenderedToScreenPixels(var aWidth, aHeight: Integer; var aPixelData: TKMCardinalArray); procedure ReadRenderedToScreenPixels(var aWidth, aHeight: Integer; var aPixelData: TKMCardinalArray);
@@ -62,7 +58,6 @@ type
property ScreenX: Word read fScreenX; property ScreenX: Word read fScreenX;
property ScreenY: Word read fScreenY; property ScreenY: Word read fScreenY;
property Query: TKMRenderQuery read fQuery;
procedure BeginFrame; procedure BeginFrame;
procedure RenderBrightness(aValue: Byte); procedure RenderBrightness(aValue: Byte);
@@ -95,8 +90,6 @@ begin
fFBOInited := False; fFBOInited := False;
if not fBlind then if not fBlind then
begin begin
fQuery := TKMRenderQuery.Create;
fMaxViewportDim := GetMaxViewportDim; fMaxViewportDim := GetMaxViewportDim;
gLog.AddTime('GL_MAX_VIEWPORT_DIM = ' + IntToStr(fMaxViewportDim)); gLog.AddTime('GL_MAX_VIEWPORT_DIM = ' + IntToStr(fMaxViewportDim));
@@ -115,9 +108,6 @@ begin
//glEnable(GL_CULL_FACE); //glEnable(GL_CULL_FACE);
//glCullFace(GL_FRONT); //glCullFace(GL_FRONT);
fOpenGL_Vendor := UnicodeString(glGetString(GL_VENDOR)); gLog.AddNoTime('OpenGL Vendor: ' + fOpenGL_Vendor);
fOpenGL_Renderer := UnicodeString(glGetString(GL_RENDERER)); gLog.AddNoTime('OpenGL Renderer: ' + fOpenGL_Renderer);
fOpenGL_Version := UnicodeString(glGetString(GL_VERSION)); gLog.AddNoTime('OpenGL Version: ' + fOpenGL_Version);
end; end;
Resize(aScreenX, aScreenY); Resize(aScreenX, aScreenY);
@@ -129,8 +119,6 @@ destructor TKMRender.Destroy;
begin begin
if not fBlind then if not fBlind then
begin begin
fQuery.Free;
if fFBOInited then if fFBOInited then
begin begin
glDeleteFramebuffers(1,@fFBO); glDeleteFramebuffers(1,@fFBO);
@@ -271,13 +259,6 @@ begin
end; end;
//1.4 is considered to be our minimal requirement
function TKMRender.IsOldGLVersion: Boolean;
begin
Result := not fBlind and not GL_VERSION_1_4;
end;
procedure TKMRender.ReadRenderedToScreenPixels(var aWidth, aHeight: Integer; var aPixelData: TKMCardinalArray); procedure TKMRender.ReadRenderedToScreenPixels(var aWidth, aHeight: Integer; var aPixelData: TKMCardinalArray);
begin begin
SaveBufferToFile(False, aWidth, aHeight, aPixelData); SaveBufferToFile(False, aWidth, aHeight, aPixelData);