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]; }. zGriffinToTAPrivate.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Beach, June 27, 1982 11:19 am Ê_˜šœ™Jšœ Ïmœ1™žœžœ˜€J˜JšŸ œž œžœ˜4J˜J˜—…—~W