NodeStyleFont.mesa
Copyright Ó 1985, 1986, 1991 by Xerox Corporation. All rights reserved.
Michael Plass, May 22, 1985 9:14:20 am PDT
Doug Wyatt, February 26, 1992 3:52 pm PST
DIRECTORY
ImagerFont USING [Font],
NodeStyle USING [FontAlphabets, FontFace],
Rope USING [ROPE];
NodeStyleFont: CEDAR DEFINITIONS ~ BEGIN
FontNameFromStyleParams:
PROC [prefix:
ATOM, family:
ATOM, face: NodeStyle.FontFace, size:
REAL, alphabets: NodeStyle.FontAlphabets]
RETURNS [name: Rope.
ROPE, scale:
REAL];
The prefix is used to determine how to build the rest of the name; no attempt is made to do any substitution.
FontFromStyleParams:
PROC [prefix:
ATOM, family:
ATOM, face: NodeStyle.FontFace, size:
REAL, alphabets: NodeStyle.FontAlphabets]
RETURNS [ImagerFont.Font];
Does any necessary font substitution
END.