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