GriffinToTAPrivate.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Beach, June 27, 1982 11:19 am
DIRECTORY
GriffinToTA,
PairList USING [EqualProc],
Real USING [RoundI],
Rope USING [ROPE],
TextNode USING [RefTextNode];
GriffinToTAPrivate:
CEDAR DEFINITIONS
IMPORTS Real = {
ROPE: TYPE = Rope.ROPE;
FindColor: PROCEDURE[h, s, b: REAL] RETURNS[GriffinToTA.ColorRef];
FindPathStyle: PROCEDURE[areaColor, outlineColor: GriffinToTA.ColorRef, pathType: ROPE, lineWeight: REAL] RETURNS[GriffinToTA.PathStyleRef];
FindCaptionStyle: PROCEDURE[family: ROPE, size: REAL, face: ROPE, charRotation: ROPE, lineFormatting: ROPE] RETURNS[GriffinToTA.CaptionStyleRef];
ScalePressToScreenCoord:
PROCEDURE[a:
REAL]
RETURNS[
INTEGER] =
INLINE {
RETURN[Real.RoundI[a*0.03125]]};
EqualCardinals: PairList.EqualProc;
InsertNodeAfterChildrenOf: PROC [node: TextNode.RefTextNode, newnode: TextNode.RefTextNode ← NIL] RETURNS[TextNode.RefTextNode];
InitColors: PROCEDURE RETURNS[GriffinToTA.ColorRef];
}.