Figure 14.
COORDINATES package specification.
<![CDATA[
---------------------------------------------------------
-- This is an improved version of the POOR_COORDINATES
-- package given in Figure 1.
with DIM_INT_32, TRIG;
package COORDINATES is
type Feet is new DIM_INT_32.Units;
type Rectangular_points is
record
NORTH : Feet;
EAST : Feet;
end record;
type Polar_points is
record
R : Feet;
THETA : TRIG.Deg;
end record;
function Transform(RP : Rectangular_points)
return Polar_points;
function Transform(PP : Polar_points)
return Rectangular_points;
end COORDINATES;
]]>