Hosted by
 |
with Straights; use Straights;
with Cubics; use Cubics;
package body Outlines is
procedure Add_Straight
(This : in out Outline;
To : in Vector)
is
L : Line := Create(To);
begin
Push(This, L);
end Add_Straight;
procedure Add_Cubic
(This : in out Outline;
Control_A : in Vector;
Control_B : in Vector;
To : in Vector)
is
L : Line := Create(To, Control_A, Control_B);
begin
Push(This, L);
end Add_Cubic;
function Read
(From : in Parser)
return Outline
is
begin
return Empty_List;
end Read;
procedure Straighten
(This : in out Outline;
Tolerance : in Real)
is
begin
null;
end Straighten;
end Outlines;
|