-- TAStyle.mesa -- written by Beach, June 27, 1982 12:36 pm -- modified by Beach, November 26, 1982 12:50 pm DIRECTORY NodeStyle USING [PathType, Ref]; TAStyle: DEFINITIONS = { PenStyle: TYPE = {Round, Square, Rectangular, Italic, Elliptical}; ShadowType: TYPE = {Drop, Offset, None}; ShadowDirection: TYPE = {UpLeft, UpRight, DownLeft, DownRight}; CaptionFormatting: TYPE = {FlushLeft, FlushRight, Centered}; CaptionAlignment: TYPE = {FlushTop, FlushBottom, Baseline, Centered}; GetLineWeight: PUBLIC PROCEDURE[s: NodeStyle.Ref] RETURNS[REAL]; -- return the width of the line in points GetPenStyle: PROCEDURE[s: NodeStyle.Ref] RETURNS[PenStyle]; -- determine the pen style from the style applicable to this node GetPenSlant: PROCEDURE[s: NodeStyle.Ref] RETURNS[REAL]; -- determine the rotation in degrees from vertical; positive is clockwise GetPenWidth: PROCEDURE[s: NodeStyle.Ref] RETURNS[REAL]; -- return the width of the pen in points GetPenHeight: PROCEDURE[s: NodeStyle.Ref] RETURNS[REAL]; -- return the height of the pen in points GetShadowType: PROCEDURE[s: NodeStyle.Ref] RETURNS[ShadowType]; -- return the type of shadow to apply GetShadowDirection: PROCEDURE[s: NodeStyle.Ref] RETURNS[ShadowDirection]; -- return the direction of the shadow from the original path GetShadowAngle: PROCEDURE[s: NodeStyle.Ref] RETURNS[REAL]; -- return the angle of the shadow from the original path GetShadowWeight: PROCEDURE[s: NodeStyle.Ref] RETURNS[REAL]; -- return the weight of the shadow outline GetShadowOffsetAmount: PROCEDURE[s: NodeStyle.Ref] RETURNS[REAL]; -- return the distance the shadow is offset from the original path GetShadowPathType: PROCEDURE[s: NodeStyle.Ref] RETURNS[NodeStyle.PathType]; -- return the kind of path to use to draw the shadow GetShadowAreaHue: PROCEDURE[s: NodeStyle.Ref] RETURNS[REAL]; -- return the hue[0-255] of the shadow area GetShadowAreaSaturation: PROCEDURE[s: NodeStyle.Ref] RETURNS[REAL]; -- return the saturation[0-255] of the shadow area GetShadowAreaBrightness: PROCEDURE[s: NodeStyle.Ref] RETURNS[REAL]; -- return the brightness[0-255] of the shadow area GetShadowOutlineHue: PROCEDURE[s: NodeStyle.Ref] RETURNS[REAL]; -- return the hue[0-255] of the shadow outline GetShadowOutlineSaturation: PROCEDURE[s: NodeStyle.Ref] RETURNS[REAL]; -- return the saturation[0-255] of the shadow outline GetShadowOutlineBrightness: PROCEDURE[s: NodeStyle.Ref] RETURNS[REAL]; -- return the brightness[0-255] of the shadow outline GetCaptionFormatting: PROCEDURE[s: NodeStyle.Ref] RETURNS[CaptionFormatting]; -- return the horizontal justification for the text caption GetCaptionAlignment: PROCEDURE[s: NodeStyle.Ref] RETURNS[CaptionAlignment]; -- return the vertical justification for the text caption }. Rick Beach, November 26, 1982, add caption styles Ę>˜JšĪc%œœœĪk œ žœœž œá˜—…—  V