ImagerFontPrivate.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Doug Wyatt, November 11, 1985 4:09:14 pm PST
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.