Complete BigTask

port-source/kam_remake/src/render/KM_Render.pas

@@ -5,7 +5,7 @@ uses
   {$IFDEF WDC} Windows, {$ENDIF}
   {$IFDEF Unix} LCLIntf, LCLType, OpenGLContext, {$ENDIF}
   dglOpenGL,
-  KM_RenderQuery, KM_RenderTypes, KM_CommonTypes;
+  KM_RenderTypes, KM_CommonTypes;
 
 
 const
@@ -25,9 +25,7 @@ type
     fFBO: Cardinal;
     fRenderBuf: Cardinal;
 
-    fOpenGL_Vendor, fOpenGL_Renderer, fOpenGL_Version: UnicodeString;
     fScreenX, fScreenY: Word;
-    fQuery: TKMRenderQuery;
 
     procedure InitFBO;
     procedure SaveBufferToFile(aUseFBOBuffer: Boolean; var aWidth, aHeight: Integer; var aPixelData: TKMCardinalArray);
@@ -53,8 +51,6 @@ type
     class property MaxViewportDim: Cardinal read GetMaxViewportDim;
 
     property MaxFBOSize: Cardinal read GetMaxFBOSize;
-    property RendererVersion: UnicodeString read fOpenGL_Version;
-    function IsOldGLVersion: Boolean;
     procedure Resize(aWidth, aHeight: Integer);
 
     procedure ReadRenderedToScreenPixels(var aWidth, aHeight: Integer; var aPixelData: TKMCardinalArray);
@@ -62,7 +58,6 @@ type
 
     property ScreenX: Word read fScreenX;
     property ScreenY: Word read fScreenY;
-    property Query: TKMRenderQuery read fQuery;
 
     procedure BeginFrame;
     procedure RenderBrightness(aValue: Byte);
@@ -95,8 +90,6 @@ begin
   fFBOInited := False;
   if not fBlind then
   begin
-    fQuery := TKMRenderQuery.Create;
-
     fMaxViewportDim := GetMaxViewportDim;
     gLog.AddTime('GL_MAX_VIEWPORT_DIM = ' + IntToStr(fMaxViewportDim));
 
@@ -115,9 +108,6 @@ begin
     //glEnable(GL_CULL_FACE);
     //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;
   Resize(aScreenX, aScreenY);
@@ -129,8 +119,6 @@ destructor TKMRender.Destroy;
 begin
   if not fBlind then
   begin
-    fQuery.Free;
-
     if fFBOInited then
     begin
       glDeleteFramebuffers(1,@fFBO);
@@ -271,13 +259,6 @@ begin
 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);
 begin
   SaveBufferToFile(False, aWidth, aHeight, aPixelData);