ImagerFontPrivate.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Doug Wyatt, May 22, 1985 5:11:59 pm PDT
Michael Plass, August 19, 1986 5:08:38 pm PDT
DIRECTORY
II USING [Context],
IIFont USING [BYTE, Extents, Font, XChar],
IITransformation USING [Transformation],
IITypeface USING [Typeface];
IIFontPrivate: CEDAR DEFINITIONS
~ BEGIN OPEN IIFont;
Transformation: TYPE ~ IITransformation.Transformation;
Typeface: TYPE ~ IITypeface.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: II.Context];
END.