From 3a972b83a2444ed756a1c0901418ec6de2616bb8 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Fri, 3 Jul 2020 11:29:26 +0200 Subject: lowlevelunit.pas: Skalarprodukte neu --- lowlevelunit.pas | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) 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; -- cgit v1.2.3-54-g00ecf