Hosted by
 |
with Lists;
with Parsers; use Parsers;
with Real_Numbers; use Real_Numbers;
with Real_Vectors; use Real_Vectors;
with Lines; use Lines;
package Outlines is
package Line_Lists is new Lists(Lines.Line);
use Line_Lists;
subtype Outline is Line_Lists.List;
Empty_Outline : constant Outline := Line_Lists.Empty_List;
procedure Add_Straight
(This : in out Outline;
To : in Vector);
procedure Add_Cubic
(This : in out Outline;
Control_A : in Vector;
Control_B : in Vector;
To : in Vector);
function Read
(From : in Parser)
return Outline;
procedure Straighten
(This : in out Outline;
Tolerance : in Real);
end Outlines;
|