 |  | outlines |  |
 |  | outlines.ads |  |
 | outlines.adb |
|  | glyphs | |
| | curves | |
| glyphs | ||
| nocurves | ||
| outlines | ||
| stairs | ||
| transforms |
| | fonts | |
|  | eps/ | |
| glyphs/ | ||
| lines/ | ||
| loaders/ | ||
| raster/ | ||
| svg/ |
| | ada | |
| | bin/ | |
| engine/ | ||
| fonts/ | ||
| internal/ | ||
| text/ | ||
| util/ |
|  | Home | |
|  | Showcase | |
 | Snapshots | ||
 | Ada Source | ||
 | PHP Source | ||
 | Fonts |
|  | Sourceforge | |
|  | Summary | |
 | Downloads | ||
 | Browse CVS | ||
 | Donate | ||
 | Activity |
Hosted by
-- $Date: 2004/01/25 09:24:23 $
-- $Revision: 1.15 $
-- $Author: jcrocholl $
with Straights; use Straights;
with Cubics; use Cubics;
package body Outlines is
----------------------------
-- Step-by-step construction
----------------------------
-- Add a straight line to an outline.
procedure Add_Straight
(This : access Outline; -- Add to this outline.
To : in Vector) -- End point of straight line.
is
L : Line_Access := Create(To);
begin
Push(This, L);
end Add_Straight;
-- Add a cubic bezier curve to an outline.
procedure Add_Cubic
(This : access Outline; -- Add to this outline.
Control_A : in Vector; -- Control point A of bezier curve.
Control_B : in Vector; -- Control point B of bezier curve.
To : in Vector) -- End point of bezier curve.
is
L : Line_Access := Create(To, Control_A, Control_B);
begin
Push(This, L);
end Add_Cubic;
end Outlines;