Figure 1.
POOR_COORDINATES package specification.
<![CDATA[
package POOR_COORDINATES is
type Rectangular_points is
record
NORTH : integer; -- feet;
EAST : integer; -- feet;
end record;
type Polar_points is
record
R : integer; -- feet;
THETA : float; -- degrees;
end record;
function Transform(RP : Rectangular_points)
return Polar_points;
function Transform(PP : Polar_points)
return Rectangular_points;
end POOR_COORDINATES;
]]>