package body Geometry.Points is

  function Area(P: Point) return Float is
  begin
    return 0.0;
  end Area;

  function MI(P: Point) return Float is
  begin
    return 0.0;
  end MI;

  function Name(P: Point) return String is
    return "Point";
  end Name;
  
end Geometry.Points;
