lowlevelunit.pas: Matrix * Vektor

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;