Changeset 236 for trunk/UGeometry.pas

Timestamp:

Sep 20, 2018, 3:33:04 PM (6 years ago)

Author:

chronos

Message:

• Added: Mouse focused and selected cells are now working.

File:

• trunk/UGeometry.pas (modified) (4 diffs)

trunk/UGeometry.pas

@@ -25 +25 @@
     class operator Multiply(const A, B: TGPoint<T>): TGPoint<T>;
     //class operator Divide(const A, B: TGPoint<T>): TGPoint<T>;
+    //class operator Modulus(A: TGPoint<T>; B: TGPoint<T>): TGPoint<T>;
     function Min(const A, B: TGPoint<T>): TGPoint<T>;
     function Max(const A, B: TGPoint<T>): TGPoint<T>;
@@ -120 +121 @@
   TPolygonF = TGPolygon<TPointF>;
 
+function TypedMod(Numerator, Denominator: Integer): Integer; overload;
+function TypedMod(Numerator, Denominator: Single): Single; overload;
 function TypedDivide(Divident, Divisor: Integer): Integer; overload;
 function TypedDivide(Divident, Divisor: Single): Single; overload;
@@ -126 +129 @@
 function StdPointToPoint(Value: Classes.TPoint): TPoint;
 function PointToStdPoint(Value: TPoint): Classes.TPoint;
+function ModNeg(A, B: Integer): Integer;
 
 
 implementation
+
+function ModNeg(A, B: Integer): Integer;
+begin
+  if A < 0 then A := A + Ceil(-A / B) * B;
+  Result := A mod B;
+end;
+
+function TypedMod(Numerator, Denominator: Integer): Integer; overload;
+begin
+  Result := Numerator mod Denominator;
+end;
+
+function TypedMod(Numerator, Denominator: Single): Single; overload;
+begin
+  //Result := FMod(Numerator, Denominator);
+end;
 
 function TypedDivide(Divident, Divisor: Integer): Integer;
@@ -443 +463 @@
   Result.Y := TypedDivide(A.Y, B.Y);
 end;
+
+class operator TGPoint<T>.Modulus(A: TGPoint<T>; B: TGPoint<T>): TGPoint<T>;
+begin
+  Result.X := TypedMod(A.X, B.X);
+  Result.Y := TypedMod(A.Y, B.Y);
+end;
 }