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

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

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

   -- Approximate every cubic bezier curve by possibly multiple
   -- straight lines. Input parameter Tolerance specifies the maximum
   -- acceptable error between the original cubic bezier curve and the
   -- approximation.
   procedure Make_Straight
     (This      : access Glyph-- Straighten this glyph.
      Tolerance : in Real);     -- Maximum distance to the straight lines.

end Nocurves;