ImagerFontPrivate.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Doug Wyatt, May 22, 1985 5:11:59 pm PDT
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],
widthX: WidthTable ← NIL, -- for character set 0
widthY: WidthTable ← NIL -- for character set 0
];
WidthTable: TYPE ~ REF WidthTableRep;
WidthTableRep: 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.