summaryrefslogtreecommitdiff
path: root/lowlevelunit.pas
diff options
context:
space:
mode:
Diffstat (limited to 'lowlevelunit.pas')
-rw-r--r--lowlevelunit.pas9
1 files changed, 9 insertions, 0 deletions
diff --git a/lowlevelunit.pas b/lowlevelunit.pas
index 59bad32..37a6267 100644
--- a/lowlevelunit.pas
+++ b/lowlevelunit.pas
@@ -88,6 +88,7 @@ operator * (x1,x2: tIntPoint): int64; inline;
operator * (x1,x2: tInt64Point): int64; inline;
operator * (x1,x2: tExtPoint): extended; inline;
operator * (x1,x2: tExt3dPoint): extended; inline;
+operator * (m: t2x2Extended; x: tExtPoint): tExtPoint; inline;
function round(x: tExtPoint): tInt64Point; overload;
function symmetrischModulo(x,m: tInt64Point): tInt64Point; overload;
@@ -415,6 +416,14 @@ begin
result:=x1['x']*x2['x'] + x1['y']*x2['y'];
end;
+operator * (m: t2x2Extended; x: tExtPoint): tExtPoint;
+begin
+ result:=extPoint(
+ m['x']['x'] * x['x'] + m['x']['y'] * x['y'],
+ m['y']['x'] * x['x'] + m['y']['y'] * x['y']
+ );
+end;
+
// allgemeine Funktionen *******************************************************
function round(x: tExtPoint): tInt64Point;