 |  | intersections |  |
 |  | intersecti.ads |  |
 | intersecti.adb |
|  | raster | |
| | glyph_images | |
| intersec_heaps | ||
| intersections | ||
| read_pbm | ||
| render_glyphs | ||
| glyph2pgm.adb | ||
| pbm2glyph.adb |
| | 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/03 03:39:48 $
-- $Revision: 1.3 $
-- $Author: jcrocholl $
with Real_Strings; use Real_Strings;
package body Intersections is
-- Format an intersection as a string. For debugging heaps of
-- intersections.
function To_String
(Item : in Intersection) -- Format this intersection.
return String is -- The debugging info.
begin
if Item.White_To_Black
then return To_String(Item.X) & "WB";
else return To_String(Item.X) & "BW";
end if;
end To_String;
-- Compare two intersections by their X value.
function "<"
(A, B : in Intersection) -- Compare these intersections.
return Boolean is -- True if and only if A is left of B.
begin
return A.X < B.X;
end "<";
end Intersections;