DIRECTORY Real USING [RoundI], Rope USING [ROPE], UnifiedFonts; VFonts: CEDAR DEFINITIONS IMPORTS Real, UnifiedFonts = BEGIN Font: TYPE = UnifiedFonts.FONT; EstablishFont: PROC [family: Rope.ROPE, size: CARDINAL, bold, italic: BOOL _ FALSE, defaultOnFailure: BOOL _ TRUE] RETURNS [Font] ; FontAscent: PROC [font: Font] RETURNS [ascent: INTEGER] = INLINE {RETURN[Real.RoundI[UnifiedFonts.FontBoundingBox[font].ymax]]}; FontHeight: PROC [font: Font] RETURNS [height: INTEGER] = INLINE {RETURN[Real.RoundI[UnifiedFonts.FontBoundingBox[font].ymax-UnifiedFonts.FontBoundingBox[font].ymin]]}; CharWidth: PROC [char: CHAR, font: Font _ defaultFont] RETURNS [width: INTEGER] = INLINE {RETURN[Real.RoundI[UnifiedFonts.Width[font, char]]]}; RopeWidth: PROC [rope: Rope.ROPE, font: Font _ defaultFont] RETURNS [width: INTEGER] = INLINE{RETURN[UnifiedFonts.RoundedTextWidth[font, rope]]}; defaultFont: Font; END. –VFonts.mesa; Written by S. McGregor Last Edited by McGregor, July 21, 1983 10:54 am This interface is for syntactic sugaring of UnifiedFonts. Κ– "cedar" style˜JšΟc#™#Jš/™/J™šΟk ˜ Jšœžœ ˜Jšœžœžœ˜Jšœ ˜ J˜—Jšœžœž œžœž˜