Hosted by
-- $Date: 2003/12/26 10:14:01 $ -- $Revision: 1.1 $ -- $Author: jcrocholl $ with Glyphs; use Glyphs; package Straight is -- Load a glyph of this font. function Load_Glyph (Glyph_Name : in String) -- The name of the glyph. return Glyph; -- The newly created glyph. end Straight;