-- $Date: 2004/01/21 04:28:32 $
-- $Revision: 1.4 $
-- $Author: jcrocholl $

with Real_Numbers; use Real_Numbers;
with Glyphs; use Glyphs;

-- Conversion from straight lines to bezier curves.
package Curves is

   -- Join straight lines into cubic bezier curves, if the distance
   -- between original and joined lines remains below tolerance.
   procedure Make_Cubic
     (This      : access Glyph-- Make curves in this glyph.
      Tolerance : in Real);     -- Maximum distance to the joined line.

end Curves;