-- GriffinToTAPrivate.mesa
-- Beach, June 27, 1982 11:19 am

DIRECTORY
 GriffinToTA,
 PairList USING [EqualProc],
 Real USING [RoundI],
 Rope USING [ROPE],
 TextNode USING [RefTextNode];

GriffinToTAPrivate: 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];
}.