/src/cupcake-primitives.adb

 1--  The Cupcake GUI Toolkit
 2--  (c) Kristian Klomsten Skordal 2012 <kristian.skordal@gmail.com>
 3--  Report bugs and issues on <http://github.com/skordal/cupcake/issues>
 4--  vim:ts=3:sw=3:et:si:sta
 5
 6package body Cupcake.Primitives is
 7
 8   --  Adds two points together:
 9   function "+" (Left, Right : in Point) return Point is
10   begin
11      return ((Left.X + Right.X), (Left.Y + Right.Y));
12   end "+";
13
14   --  Subtracts two points:
15   function "-" (Left, Right : in Point) return Point is
16   begin
17      return ((Left.X - Right.X), (Left.Y - Right.Y));
18   end "-";
19
20   --  Compares two points for equality:
21   function "=" (Left, Right : in Point) return Boolean is
22   begin
23      return ((Left.X = Right.X) and (Left.Y = Right.Y));
24   end "=";
25
26   --  Compares two dimensions:
27   function "<" (Left, Right : in Dimension) return Boolean is
28   begin
29      return (Left.Width * Left.Height) < (Right.Width * Right.Height);
30   end "<";
31
32   --  Compares two dimensions:
33   function ">" (Left, Right : in Dimension) return Boolean is
34   begin
35      return (Left.Width * Left.Height) > (Right.Width * Right.Height);
36   end ">";
37
38   --  Compares two dimensions:
39   function "=" (Left, Right : in Dimension) return Boolean is
40   begin
41      return (Left.Width * Left.Height) = (Right.Width * Right.Height);
42   end "=";
43
44end Cupcake.Primitives;
45