DIRECTORY ImagerFont USING [Font], Rope USING [ROPE]; VFonts: CEDAR DEFINITIONS ~ BEGIN Font: TYPE ~ ImagerFont.Font; ROPE: TYPE ~ Rope.ROPE; defaultFont: Font; DefaultFont: PROC [font: Font _ NIL] RETURNS [Font] ~ INLINE { RETURN[IF font=NIL THEN defaultFont ELSE font] }; EstablishFont: PUBLIC PROC [family: ROPE, size: CARDINAL, bold: BOOL _ FALSE, italic: BOOL _ FALSE, defaultOnFailure: BOOL _ TRUE ] RETURNS [Font]; CharWidth: PROC [char: CHAR, font: Font _ NIL] RETURNS [NAT]; StringWidth: PROC [string: ROPE, font: Font _ NIL] RETURNS [NAT]; FontHeight: PROC [font: Font _ NIL] RETURNS [NAT]; FontAscent: PROC [font: Font _ NIL] RETURNS [NAT]; Error: ERROR [code: ErrorCode]; ErrorCode: TYPE ~ {illegalFormat, fontNotFound}; END. XVFonts.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Last Edited by McGregor, September 1, 1982 2:37 pm Last Edited by: Maxwell, January 3, 1983 12:12 pm Doug Wyatt, March 29, 1985 2:20:40 pm PST Build a (possibly) new font. The default font will be returned on any error condition unless defaultOnFailure is FALSE. ΚΨ– "Mesa" style˜codešΟc ™ Kšœ Οmœ1™