Yurttas/PL/IL/Ada-95/OO/GEO/geometry-points.adb

 1package body Geometry.Points is
 2
 3  function Area(P : Point) return Float is
 4  begin
 5    return 0.0;
 6  end Area;
 7
 8  function MI(P : Point) return Float is
 9  begin
10    return 0.0;
11  end MI;
12
13  function Name(P : Point) return String_8 is
14  begin
15    return "Point   ";
16  end Name;
17
18end Geometry.Points;