lowlevelunit.pas: Skalarprodukt neu

1 files changed, 34 insertions, 22 deletions

diff --git a/lowlevelunit.pas b/lowlevelunit.pas
index 4712908..7d253be 100644
--- a/lowlevelunit.pas
+++ b/lowlevelunit.pas
@@ -61,28 +61,30 @@ type
   tKantenFilterTyp = (kfTiefpass,kfHochpass);
   tRegexTyp = (rtKein,rtFpc,rtShell);
 
-operator = (x1,x2: t2x2Extended): boolean;
-operator = (x1,x2: t2x2Int64): boolean;
-operator = (x1,x2: tInt64Point): boolean;
-operator = (x1,x2: tIntPoint): boolean;
-operator = (x1,x2: tExtPoint): boolean;
-operator + (x1,x2: t2x2Extended): t2x2Extended;
-operator + (x1,x2: tInt64Point): tInt64Point;
-operator + (x1,x2: tIntPoint): tIntPoint;
-operator + (x1,x2: tExtPoint): tExtPoint;
-operator + (x1,x2: tExt3dPoint): tExt3dPoint;
-operator - (x1,x2: t2x2Extended): t2x2Extended;
-operator - (x1,x2: tInt64Point): tInt64Point;
-operator - (x1,x2: tIntPoint): tIntPoint;
-operator - (x1,x2: tExtPoint): tExtPoint;
-operator - (x1,x2: tExt3dPoint): tExt3dPoint;
-operator * (a: extended; x: t2x2Extended): t2x2Extended;
-operator * (a: int64; x: tInt64Point): tInt64Point;
-operator * (a: extended; x: tInt64Point): tExtPoint;
-operator * (a: longint; x: tIntPoint): tIntPoint;
-operator * (a: extended; x: tIntPoint): tExtPoint;
-operator * (a: extended; x: tExtPoint): tExtPoint;
-operator * (a: extended; x: tExt3dPoint): tExt3dPoint;
+operator = (x1,x2: t2x2Extended): boolean; inline;
+operator = (x1,x2: t2x2Int64): boolean; inline;
+operator = (x1,x2: tInt64Point): boolean; inline;
+operator = (x1,x2: tIntPoint): boolean; inline;
+operator = (x1,x2: tExtPoint): boolean; inline;
+operator + (x1,x2: tExt3dPoint): tExt3dPoint; inline;
+operator + (x1,x2: t2x2Extended): t2x2Extended; inline;
+operator + (x1,x2: tInt64Point): tInt64Point; inline;
+operator + (x1,x2: tIntPoint): tIntPoint; inline;
+operator + (x1,x2: tExtPoint): tExtPoint; inline;
+operator - (x1,x2: t2x2Extended): t2x2Extended; inline;
+operator - (x1,x2: tInt64Point): tInt64Point; inline;
+operator - (x1,x2: tIntPoint): tIntPoint; inline;
+operator - (x1,x2: tExtPoint): tExtPoint; inline;
+operator - (x1,x2: tExt3dPoint): tExt3dPoint; inline;
+operator * (a: extended; x: t2x2Extended): t2x2Extended; inline;
+operator * (a: int64; x: tInt64Point): tInt64Point; inline;
+operator * (a: extended; x: tInt64Point): tExtPoint; inline;
+operator * (a: longint; x: tIntPoint): tIntPoint; inline;
+operator * (a: extended; x: tIntPoint): tExtPoint; inline;
+operator * (a: extended; x: tExtPoint): tExtPoint; inline;
+operator * (a: extended; x: tExt3dPoint): tExt3dPoint; inline;
+operator * (x1,x2: tExtPoint): extended; inline;
+operator * (x1,x2: tExt3dPoint): extended; inline;
 
 function round(x: tExtPoint): tInt64Point; overload;
 function symmetrischModulo(x,m: tInt64Point): tInt64Point; overload;
@@ -373,6 +375,16 @@ begin
     result[c]:=a*x[c];
 end;
 
+operator * (x1,x2: tExtPoint): extended;
+begin
+  result:=x1['x']*x2['x'] + x1['y']*x2['y'];
+end;
+
+operator * (x1,x2: tExt3dPoint): extended;
+begin
+  result:=x1['x']*x2['x'] + x1['y']*x2['y'];
+end;
+
 // allgemeine Funktionen *******************************************************
 
 function round(x: tExtPoint): tInt64Point;