DIRECTORYNodeStyle USING [Ref],TAPen,TAPrivate,TAStyle;TAPenImpl: CEDAR PROGRAMIMPORTS TAPrivate, TAStyleEXPORTS TAPen = {OPEN TAPen;EstablishPen: PUBLIC PROCEDURE[nodeStyle: NodeStyle.Ref] = {SELECT TAStyle.GetPenStyle[nodeStyle] FROMRound => {TAPrivate.PushReal[TAStyle.GetLineWeight[nodeStyle]];TAPrivate.RoundPen[]};Square => {TAPrivate.PushReal[TAStyle.GetLineWeight[nodeStyle]];TAPrivate.PushReal[TAStyle.GetLineWeight[nodeStyle]];TAPrivate.PushReal[TAStyle.GetPenSlant[nodeStyle]];TAPrivate.RectangularPen[]};Rectangular => {lineWeight: REAL _ TAStyle.GetLineWeight[nodeStyle];penWidth: REAL _ TAStyle.GetPenWidth[nodeStyle];penHeight: REAL _ TAStyle.GetPenHeight[nodeStyle];a: REAL _ penWidth/MAX[penWidth, penHeight]*lineWeight;b: REAL _ penHeight/MAX[penWidth, penHeight]*lineWeight;TAPrivate.PushReal[a];TAPrivate.PushReal[b];TAPrivate.PushReal[TAStyle.GetPenSlant[nodeStyle]];TAPrivate.RectangularPen[]};Italic => {TAPrivate.PushReal[TAStyle.GetLineWeight[nodeStyle]];TAPrivate.PushReal[TAStyle.GetPenSlant[nodeStyle]];TAPrivate.ItalicPen[]};Elliptical => {lineWeight: REAL _ TAStyle.GetLineWeight[nodeStyle];penWidth: REAL _ TAStyle.GetPenWidth[nodeStyle];penHeight: REAL _ TAStyle.GetPenHeight[nodeStyle];a: REAL _ penWidth/MAX[penWidth, penHeight]*lineWeight;b: REAL _ penHeight/MAX[penWidth, penHeight]*lineWeight;TAPrivate.PushReal[a];TAPrivate.PushReal[b];TAPrivate.PushReal[TAStyle.GetPenSlant[nodeStyle]];TAPrivate.EllipticalPen[]};ENDCASE => ERROR;};}.    ¢  TAPenImpl.mesaCopyright c 1985 by Xerox Corporation.  All rights reserved.Rick Beach, June 27, 1982 12:29 pmRick Beach, February 9, 1985 9:24:33 pm PST Êƒ  ˜ šœ™Jšœ
Ïmœ1™<Jšœ"™"Jšœ+™+—J˜ šÏk	˜	Jšœ
žœ˜J˜J˜
J˜J˜ —šœž˜Jšžœ˜Jšžœ
˜Jšžœ˜J˜ —šÏnœžœž	œ˜<šžœ ž˜*˜
J˜5J˜—˜J˜5J˜5J˜3J˜—˜Jšœžœ$˜4Jšœ
žœ"˜0Jšœžœ#˜2Jšœžœžœ!˜7Jšœžœžœ!˜8J˜J˜J˜3J˜—˜J˜5J˜3J˜—˜Jšœžœ$˜4Jšœ
žœ"˜0Jšœžœ#˜2Jšœžœžœ!˜7Jšœžœžœ!˜8J˜J˜J˜3J˜—Jšžœžœ˜—J˜J˜ —J˜J˜ — …—    ö    