Changeset 521 for GraphicTest/Packages/bgrabitmap/bgrascenetypes.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/bgrascenetypes.pas (modified) (3 diffs)

GraphicTest

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

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

GraphicTest/Packages/bgrabitmap/bgrascenetypes.pas

@@ -253 +253 @@
   IBGRAPart3D = interface
     procedure Clear(ARecursive: boolean);
-    function Add(x,y,z: single): IBGRAVertex3D;
-    function Add(pt: TPoint3D): IBGRAVertex3D;
-    function Add(pt: TPoint3D; normal: TPoint3D): IBGRAVertex3D;
-    function Add(pt: TPoint3D_128): IBGRAVertex3D;
-    function Add(pt: TPoint3D_128; normal: TPoint3D_128): IBGRAVertex3D;
-    function AddNormal(x,y,z: single): IBGRANormal3D;
-    function AddNormal(pt: TPoint3D): IBGRANormal3D;
-    function AddNormal(pt: TPoint3D_128): IBGRANormal3D;
-    function Add(const coords: array of single): arrayOfIBGRAVertex3D;
-    function Add(const pts: array of TPoint3D): arrayOfIBGRAVertex3D;
-    function Add(const pts_128: array of TPoint3D_128): arrayOfIBGRAVertex3D;
-    procedure Add(const pts: array of IBGRAVertex3D);
-    procedure Add(AVertex: IBGRAVertex3D);
+    function Add(x,y,z: single): IBGRAVertex3D; overload;
+    function Add(pt: TPoint3D): IBGRAVertex3D; overload;
+    function Add(pt: TPoint3D; normal: TPoint3D): IBGRAVertex3D; overload;
+    function Add(pt: TPoint3D_128): IBGRAVertex3D; overload;
+    function Add(pt: TPoint3D_128; normal: TPoint3D_128): IBGRAVertex3D; overload;
+    function AddNormal(x,y,z: single): IBGRANormal3D; overload;
+    function AddNormal(pt: TPoint3D): IBGRANormal3D; overload;
+    function AddNormal(pt: TPoint3D_128): IBGRANormal3D; overload;
+    function Add(const coords: array of single): arrayOfIBGRAVertex3D; overload;
+    function Add(const pts: array of TPoint3D): arrayOfIBGRAVertex3D; overload;
+    function Add(const pts_128: array of TPoint3D_128): arrayOfIBGRAVertex3D; overload;
+    procedure Add(const pts: array of IBGRAVertex3D); overload;
+    procedure Add(AVertex: IBGRAVertex3D); overload;
     function GetTotalNormalCount: integer;
     function IndexOf(AVertex: IBGRAVertex3D): integer;
@@ -282 +282 @@
     function GetContainer: IBGRAPart3D;
     procedure ResetTransform;
-    procedure Scale(size: single; Before: boolean = true);
-    procedure Scale(x,y,z: single; Before: boolean = true);
-    procedure Scale(size: TPoint3D; Before: boolean = true);
+    procedure Scale(size: single; Before: boolean = true); overload;
+    procedure Scale(x,y,z: single; Before: boolean = true); overload;
+    procedure Scale(size: TPoint3D; Before: boolean = true); overload;
     procedure SetMatrix(const AValue: TMatrix3D);
     procedure SetNormal(AIndex: Integer; AValue: IBGRANormal3D);
     procedure SetVertex(AIndex: Integer; AValue: IBGRAVertex3D);
-    procedure Translate(x,y,z: single; Before: boolean = true);
-    procedure Translate(ofs: TPoint3D; Before: boolean = true);
+    procedure Translate(x,y,z: single; Before: boolean = true); overload;
+    procedure Translate(ofs: TPoint3D; Before: boolean = true); overload;
     procedure RotateXDeg(angle: single; Before: boolean = true);
     procedure RotateYDeg(angle: single; Before: boolean = true);
@@ -418 +418 @@
     procedure ForEachFace(ACallback: TFace3DCallback);
     function AddFaceReversed(const AVertices: array of IBGRAVertex3D): IBGRAFace3D;
-    function AddFace(const AVertices: array of IBGRAVertex3D): IBGRAFace3D;
-    function AddFace(const AVertices: array of IBGRAVertex3D; ABiface: boolean): IBGRAFace3D;
-    function AddFace(const AVertices: array of IBGRAVertex3D; ATexture: IBGRAScanner): IBGRAFace3D;
-    function AddFace(const AVertices: array of IBGRAVertex3D; AColor: TBGRAPixel): IBGRAFace3D;
-    function AddFace(const AVertices: array of IBGRAVertex3D; AColors: array of TBGRAPixel): IBGRAFace3D;
+    function AddFace(const AVertices: array of IBGRAVertex3D): IBGRAFace3D; overload;
+    function AddFace(const AVertices: array of IBGRAVertex3D; ABiface: boolean): IBGRAFace3D; overload;
+    function AddFace(const AVertices: array of IBGRAVertex3D; ATexture: IBGRAScanner): IBGRAFace3D; overload;
+    function AddFace(const AVertices: array of IBGRAVertex3D; AColor: TBGRAPixel): IBGRAFace3D; overload;
+    function AddFace(const AVertices: array of IBGRAVertex3D; AColors: array of TBGRAPixel): IBGRAFace3D; overload;
     procedure Update;
     procedure SetBiface(AValue : boolean);

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