Changeset 234 for trunk/UGeometry.pas

Timestamp:

Sep 19, 2018, 5:28:58 PM (6 years ago)

Author:

chronos

Message:

• Added: Unfinished implementation of cyclic map drawing.

File:

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

trunk/UGeometry.pas

@@ -53 +53 @@
     procedure SetEmpty;
     procedure Normalize;
+    procedure Move(P: T);
     class operator Equal(const A, B: TGRect<T>): Boolean;
     constructor Create(const P1, P2: T);
@@ -521 +522 @@
 end;
 
+procedure TGRect<T>.Move(P: T);
+begin
+  P1 := P1 + P;
+  P2 := P2 + P;
+end;
+
 constructor TGRect<T>.Create(const P1, P2: T);
 begin