lowlevelunit.pas: Skalarprodukte neu

1 files changed, 20 insertions, 0 deletions

diff --git a/lowlevelunit.pas b/lowlevelunit.pas
index 5c2db13..3477bf8 100644
--- a/lowlevelunit.pas
+++ b/lowlevelunit.pas
@@ -84,6 +84,8 @@ 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: tIntPoint): int64; inline;
+operator * (x1,x2: tInt64Point): int64; inline;
 operator * (x1,x2: tExtPoint): extended; inline;
 operator * (x1,x2: tExt3dPoint): extended; inline;
 
@@ -366,6 +368,24 @@ begin
     result[c]:=a*x[c];
 end;
 
+operator * (x1,x2: tIntPoint): int64;
+var
+  c: char;
+begin
+  result:=0;
+  for c:='x' to 'y' do
+    result:=result + x1[c]*x2[c];
+end;
+
+operator * (x1,x2: tInt64Point): int64;
+var
+  c: char;
+begin
+  result:=0;
+  for c:='x' to 'y' do
+    result:=result + x1[c]*x2[c];
+end;
+
 operator * (a: extended; x: tExtPoint): tExtPoint;
 var
   c: char;