Changeset 151 for trunk/UGame.pas

Timestamp:

Nov 14, 2017, 11:11:57 PM (6 years ago)

Author:

chronos

Message:

• Added: Map can have rounded shape.

File:

• trunk/UGame.pas (modified) (3 diffs)

trunk/UGame.pas

@@ -150 +150 @@
   end;
 
-  TMapShape = (msRectangle, msImage);
+  TMapShape = (msRectangle, msImage, msRounded);
 
   { TMapArea }
@@ -1269 +1269 @@
   Color: TColor;
   Pos: TPoint;
+  Center: TPoint;
 begin
   case Shape of
@@ -1281 +1282 @@
       Result := Color <> clWhite;
     end;
+    msRounded: begin
+      Rect := GetPixelRect;
+      Center := Point(Rect.Left + Rect.Width div 2, Rect.Top + Rect.Height div 2);
+      Result := Sqr(Coord.X - Center.X) / Sqr(Rect.Width div 2) +
+        Sqr(Coord.Y - Center.Y) / Sqr(Rect.Height div 2) > 1;
+    end
     else Result := False;
   end;