Changeset 521 for GraphicTest/Packages/bgrabitmap/bgrascene3d.pas

Timestamp:

Apr 17, 2019, 12:58:41 AM (5 years ago)

Author:

chronos

Message:

• Modified: Propagate project build mode options to used packages.
• Added: Check memory leaks using heaptrc.
• Modified: Update BGRABitmap package.

Location:

GraphicTest

Files:

• . (modified) (1 prop)
• Packages/bgrabitmap/bgrascene3d.pas (modified) (4 diffs)

GraphicTest

@@ -8 +8 @@
 GraphicTest.lps
 GraphicTest.dbg
+heaptrclog.trc

@@ -8 +8 @@
 GraphicTest.lps
 GraphicTest.dbg
+heaptrclog.trc

GraphicTest/Packages/bgrabitmap/bgrascene3d.pas

@@ -152 +152 @@
     FetchThrowsException: boolean;
 
-    constructor Create;
-    constructor Create(ASurface: TBGRACustomBitmap);
+    constructor Create; overload;
+    constructor Create(ASurface: TBGRACustomBitmap); overload;
     destructor Destroy; override;
     procedure Clear; virtual;
@@ -169 +169 @@
     procedure LookUp(angleDeg: single);
     procedure LookDown(angleDeg: single);
-    procedure Render; virtual;
-    procedure Render(ARenderer: TCustomRenderer3D);
+    procedure Render;  overload; virtual;
+    procedure Render(ARenderer: TCustomRenderer3D); overload;
     function CreateObject: IBGRAObject3D; overload;
     function CreateObject(ATexture: IBGRAScanner): IBGRAObject3D; overload;
@@ -179 +179 @@
     function CreateHalfSphere(ARadius: Single; AColor: TBGRAPixel; AHorizPrecision: integer = 6; AVerticalPrecision : integer = 6): IBGRAObject3D; overload;
     procedure RemoveObject(AObject: IBGRAObject3D);
-    function AddDirectionalLight(ADirection: TPoint3D; ALightness: single = 1; AMinIntensity : single = 0): IBGRADirectionalLight3D;
-    function AddDirectionalLight(ADirection: TPoint3D; AColor: TBGRAPixel; AMinIntensity: single = 0): IBGRADirectionalLight3D;
-    function AddPointLight(AVertex: IBGRAVertex3D; AOptimalDistance: single; ALightness: single = 1; AMinIntensity : single = 0): IBGRAPointLight3D;
-    function AddPointLight(AVertex: IBGRAVertex3D; AOptimalDistance: single; AColor: TBGRAPixel; AMinIntensity: single = 0): IBGRAPointLight3D;
+    function AddDirectionalLight(ADirection: TPoint3D; ALightness: single = 1; AMinIntensity : single = 0): IBGRADirectionalLight3D; overload;
+    function AddDirectionalLight(ADirection: TPoint3D; AColor: TBGRAPixel; AMinIntensity: single = 0): IBGRADirectionalLight3D; overload;
+    function AddPointLight(AVertex: IBGRAVertex3D; AOptimalDistance: single; ALightness: single = 1; AMinIntensity : single = 0): IBGRAPointLight3D; overload;
+    function AddPointLight(AVertex: IBGRAVertex3D; AOptimalDistance: single; AColor: TBGRAPixel; AMinIntensity: single = 0): IBGRAPointLight3D; overload;
     procedure RemoveLight(ALight: IBGRALight3D);
     procedure SetZoom(value: Single); overload;
     procedure SetZoom(value: TPointF); overload;
-    function CreateMaterial: IBGRAMaterial3D;
-    function CreateMaterial(ASpecularIndex: integer): IBGRAMaterial3D;
+    function CreateMaterial: IBGRAMaterial3D; overload;
+    function CreateMaterial(ASpecularIndex: integer): IBGRAMaterial3D; overload;
     function GetMaterialByName(AName: string): IBGRAMaterial3D;
     procedure UpdateMaterials; virtual;
@@ -949 +949 @@
 
   function GetSingle: single;
-  var code: integer;
-  begin
-    val(GetNextToken,result,code);
+  var {%H-}code: integer;
+  begin
+    val(GetNextToken,result,{%H-}code);
   end;
 
   function GetColorF: TColorF;
   var r,g,b: single;
-    code: integer;
-  begin
-    val(GetNextToken,r,code);
-    val(GetNextToken,g,code);
-    val(GetNextToken,b,code);
+    {%H-}code: integer;
+  begin
+    val(GetNextToken,r,{%H-}code);
+    val(GetNextToken,g,{%H-}code);
+    val(GetNextToken,b,{%H-}code);
     result := ColorF(r,g,b,1);
   end;

@@ -8 +8 @@
 GraphicTest.lps
 GraphicTest.dbg
+heaptrclog.trc