DIRECTORY Imager USING [Context], ImagerFont USING [BYTE, Extents, Font, XChar], ImagerTransformation USING [Transformation], ImagerTypeface USING [Typeface]; ImagerFontPrivate: CEDAR DEFINITIONS ~ BEGIN OPEN ImagerFont; Transformation: TYPE ~ ImagerTransformation.Transformation; Typeface: TYPE ~ ImagerTypeface.Typeface; FontImpl: TYPE ~ REF FontImplRep; FontImplRep: TYPE ~ RECORD [ typeface: Typeface, fontBoundingBox: Extents _ [0, 0, 0, 0], escapementX: EscapementTable _ NIL, -- for character set 0 escapementY: EscapementTable _ NIL -- for character set 0 ]; EscapementTable: TYPE ~ REF EscapementTableRep; EscapementTableRep: TYPE ~ ARRAY BYTE OF REAL; FontAtom: TYPE ~ REF FontAtomRep; FontAtomRep: TYPE ~ RECORD [typeface: Typeface, m: Transformation]; MakeFontAtom: PROC [typeface: Typeface, m: Transformation] RETURNS [FontAtom]; MaskChar: PROC[font: Font, char: XChar, context: Imager.Context]; END. ˆImagerFontPrivate.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Doug Wyatt, November 11, 1985 4:09:14 pm PST Κw˜codešœ™Kšœ Οmœ1™