TAStyleImpl.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
written by Beach, July 3, 1982 4:54 pm
modified by Beach, November 26, 1982 12:58 pm
modified by Beach, February 9, 1985 9:44:34 pm PST
DIRECTORY
JaMBasic USING [Object],
JaMInternal USING [Frame],
JaMOps USING [AGet, defaultFrame, Execute, MakeString, PopArray, PopReal, Push, StringToName],
NameSymbolTable USING [MakeName, Name],
NodeStyle USING [GetStyleName, GetReal, OfStyle, PathType, Ref],
NodeStyleExtra USING [GetFrame, GetStyleParam, NameToObject],
TAStyle;
TAStyleImpl:
CEDAR
PROGRAM
IMPORTS JaMOps, NameSymbolTable, NodeStyle, NodeStyleExtra
EXPORTS TAStyle = TRUSTED {
Name: TYPE = NameSymbolTable.Name;
penStyle: Name = NameSymbolTable.MakeName["penStyle"];
penSlant: Name = NameSymbolTable.MakeName["penSlant"];
penWidth: Name = NameSymbolTable.MakeName["penWidth"];
penHeight: Name = NameSymbolTable.MakeName["penHeight"];
shadowType: Name = NameSymbolTable.MakeName["shadowType"];
shadowDirection: Name = NameSymbolTable.MakeName["shadowDirection"];
shadowWeight: Name = NameSymbolTable.MakeName["shadowWeight"];
shadowAngle: Name = NameSymbolTable.MakeName["shadowAngle"];
shadowOffsetAmount: Name = NameSymbolTable.MakeName["shadowOffsetAmount"];
shadowPathType: Name = NameSymbolTable.MakeName["shadowPathType"];
shadowAreaHue: Name = NameSymbolTable.MakeName["shadowAreaHue"];
shadowAreaSaturation: Name = NameSymbolTable.MakeName["shadowAreaSaturation"];
shadowAreaBrightness: Name = NameSymbolTable.MakeName["shadowAreaBrightness"];
shadowOutlineHue: Name = NameSymbolTable.MakeName["shadowOutlineHue"];
shadowOutlineSaturation: Name = NameSymbolTable.MakeName["shadowOutlineSaturation"];
shadowOutlineBrightness: Name = NameSymbolTable.MakeName["shadowOutlineBrightness"];
captionFormatting: Name = NameSymbolTable.MakeName["captionFormatting"];
captionAlignment: Name = NameSymbolTable.MakeName["captionAlignment"];
filled: Name = NameSymbolTable.MakeName["filled"];
outlined: Name = NameSymbolTable.MakeName["outlined"];
filledAndOutlined: Name = NameSymbolTable.MakeName["filled+outlined"];
round: Name = NameSymbolTable.MakeName["round"];
square: Name = NameSymbolTable.MakeName["square"];
rectangular: Name = NameSymbolTable.MakeName["rectangular"];
italic: Name = NameSymbolTable.MakeName["italic"];
elliptical: Name = NameSymbolTable.MakeName["elliptical"];
drop: Name = NameSymbolTable.MakeName["drop"];
offset: Name = NameSymbolTable.MakeName["offset"];
none: Name = NameSymbolTable.MakeName["none"];
upLeft: Name = NameSymbolTable.MakeName["upLeft"];
upRight: Name = NameSymbolTable.MakeName["upRight"];
downLeft: Name = NameSymbolTable.MakeName["downLeft"];
downRight: Name = NameSymbolTable.MakeName["downRight"];
flushLeft: Name = NameSymbolTable.MakeName["flushLeft"];
flushRight: Name = NameSymbolTable.MakeName["flushRight"];
centered: Name = NameSymbolTable.MakeName["centered"];
flushTop: Name = NameSymbolTable.MakeName["flushTop"];
flushBottom: Name = NameSymbolTable.MakeName["flushBottom"];
baseline: Name = NameSymbolTable.MakeName["baseline"];
KludgeGetStyleParam:
PROCEDURE[s: NodeStyle.Ref, name: Name, styleName: Name, kind: NodeStyle.OfStyle]
RETURNS [obj: JaMBasic.Object] =
TRUSTED {
key: JaMBasic.Object;
paramObject: array JaMBasic.Object;
frame: JaMInternal.Frame ← NodeStyleExtra.GetFrame[s, styleName, kind];
JaMOps.Push[frame.opstk, NodeStyleExtra.NameToObject[name]];
JaMOps.Execute[frame, load];
paramObject ← JaMOps.PopArray[frame.opstk];
key ← JaMOps.AGet[paramObject, 0];
WITH x:key
SELECT
FROM
name => obj ← NodeStyleExtra.GetStyleParam[s, LOOPHOLE[x.id.index], styleName, kind];
ENDCASE => ERROR;
};
load: JaMBasic.Object = JaMOps.MakeString[".load", X];
ObjectNotAName: SIGNAL = CODE;
ObjectToName:
PROCEDURE[obj: JaMBasic.Object]
RETURNS[name: Name] =
TRUSTED {
WITH x:obj
SELECT
FROM
name => RETURN [LOOPHOLE[x.id]];
string => {
nameObj: name JaMBasic.Object ← JaMOps.StringToName[x];
RETURN[LOOPHOLE[nameObj.id]]};
ENDCASE => SIGNAL ObjectNotAName;
};
GetLineWeight:
PUBLIC
PROCEDURE[s: NodeStyle.Ref]
RETURNS[
REAL] =
TRUSTED {
RETURN[NodeStyle.GetReal[s,lineWeight]]};
GetPenStyle:
PUBLIC
PROCEDURE[s: NodeStyle.Ref]
RETURNS[TAStyle.PenStyle] =
TRUSTED {
determine the pen style from the style applicable to this node
penStyleName: Name ← ObjectToName[NodeStyleExtra.GetStyleParam[s, penStyle, NodeStyle.GetStyleName[s], screen]];
RETURN[
SELECT penStyleName
FROM
round => Round,
square => Square,
rectangular => Rectangular,
italic => Italic,
elliptical => Elliptical,
ENDCASE => ERROR]};
GetPenSlant:
PUBLIC
PROCEDURE[s: NodeStyle.Ref]
RETURNS[
REAL] =
TRUSTED {
determine the rotation in degrees from vertical; positive is clockwise
frame: JaMInternal.Frame ← JaMOps.defaultFrame;
JaMOps.Push[frame.opstk, NodeStyleExtra.GetStyleParam[s, penSlant, NodeStyle.GetStyleName[s], screen]];
RETURN[JaMOps.PopReal[frame.opstk]]};
GetPenWidth:
PUBLIC
PROCEDURE[s: NodeStyle.Ref]
RETURNS[
REAL] =
TRUSTED {
return the width of the pen in points
frame: JaMInternal.Frame ← JaMOps.defaultFrame;
JaMOps.Push[frame.opstk, NodeStyleExtra.GetStyleParam[s, penWidth, NodeStyle.GetStyleName[s], screen]];
RETURN[JaMOps.PopReal[frame.opstk]]};
GetPenHeight:
PUBLIC
PROCEDURE[s: NodeStyle.Ref]
RETURNS[
REAL] =
TRUSTED {
return the height of the pen in points
frame: JaMInternal.Frame ← JaMOps.defaultFrame;
JaMOps.Push[frame.opstk, NodeStyleExtra.GetStyleParam[s, penHeight, NodeStyle.GetStyleName[s], screen]];
RETURN[JaMOps.PopReal[frame.opstk]]};
GetShadowType:
PUBLIC
PROCEDURE[s: NodeStyle.Ref]
RETURNS[TAStyle.ShadowType] =
TRUSTED {
return the type of shadow to apply
shadowTypeName: Name ← ObjectToName[NodeStyleExtra.GetStyleParam[s, shadowType, NodeStyle.GetStyleName[s], screen]];
RETURN[
SELECT shadowTypeName
FROM
drop => Drop,
offset => Offset,
none => None,
ENDCASE => ERROR]};
GetShadowDirection:
PUBLIC
PROCEDURE[s: NodeStyle.Ref]
RETURNS[TAStyle.ShadowDirection] =
TRUSTED {
return the direction of the shadow from the original path
shadowDirectionName: Name ← ObjectToName[NodeStyleExtra.GetStyleParam[s, shadowDirection, NodeStyle.GetStyleName[s], screen]];
RETURN[
SELECT shadowDirectionName
FROM
upLeft => UpLeft,
upRight => UpRight,
downLeft => DownLeft,
downRight => DownRight,
ENDCASE => ERROR]};
GetShadowAngle:
PUBLIC
PROCEDURE[s: NodeStyle.Ref]
RETURNS[
REAL] =
TRUSTED {
return the angle of the shadow from the original path
frame: JaMInternal.Frame ← JaMOps.defaultFrame;
JaMOps.Push[frame.opstk, NodeStyleExtra.GetStyleParam[s, shadowAngle, NodeStyle.GetStyleName[s], screen]];
RETURN[JaMOps.PopReal[frame.opstk]]};
GetShadowWeight:
PUBLIC
PROCEDURE[s: NodeStyle.Ref]
RETURNS[
REAL] =
TRUSTED {
return the weight of the shadow outline
frame: JaMInternal.Frame ← JaMOps.defaultFrame;
JaMOps.Push[frame.opstk, NodeStyleExtra.GetStyleParam[s, shadowWeight, NodeStyle.GetStyleName[s], screen]];
RETURN[JaMOps.PopReal[frame.opstk]]};
GetShadowOffsetAmount:
PUBLIC
PROCEDURE[s: NodeStyle.Ref]
RETURNS[
REAL] =
TRUSTED {
return the distance the shadow is offset from the original path
frame: JaMInternal.Frame ← JaMOps.defaultFrame;
JaMOps.Push[frame.opstk, NodeStyleExtra.GetStyleParam[s, shadowOffsetAmount, NodeStyle.GetStyleName[s], screen]];
RETURN[JaMOps.PopReal[frame.opstk]]};
GetShadowPathType:
PUBLIC
PROCEDURE[s: NodeStyle.Ref]
RETURNS[NodeStyle.PathType] =
TRUSTED {
return the kind of path to use to draw the shadow
shadowPathTypeName: Name ← ObjectToName[NodeStyleExtra.GetStyleParam[s, shadowPathType, NodeStyle.GetStyleName[s], screen]];
RETURN[
SELECT shadowPathTypeName
FROM
filled => Filled,
outlined => Outlined,
filledAndOutlined => FilledAndOutlined,
ENDCASE => ERROR]};
GetShadowAreaHue:
PUBLIC
PROCEDURE[s: NodeStyle.Ref]
RETURNS[
REAL] =
TRUSTED {
return the hue[0-255] of the shadow area
frame: JaMInternal.Frame ← JaMOps.defaultFrame;
JaMOps.Push[frame.opstk, NodeStyleExtra.GetStyleParam[s, shadowAreaHue, NodeStyle.GetStyleName[s], screen]];
RETURN[JaMOps.PopReal[frame.opstk]]};
GetShadowAreaSaturation:
PUBLIC
PROCEDURE[s: NodeStyle.Ref]
RETURNS[
REAL] =
TRUSTED {
return the saturation[0-255] of the shadow area
frame: JaMInternal.Frame ← JaMOps.defaultFrame;
JaMOps.Push[frame.opstk, NodeStyleExtra.GetStyleParam[s, shadowAreaSaturation, NodeStyle.GetStyleName[s], screen]];
RETURN[JaMOps.PopReal[frame.opstk]]};
GetShadowAreaBrightness:
PUBLIC
PROCEDURE[s: NodeStyle.Ref]
RETURNS[
REAL] =
TRUSTED {
return the brightness[0-255] of the shadow area
frame: JaMInternal.Frame ← JaMOps.defaultFrame;
JaMOps.Push[frame.opstk, NodeStyleExtra.GetStyleParam[s, shadowAreaBrightness, NodeStyle.GetStyleName[s], screen]];
RETURN[JaMOps.PopReal[frame.opstk]]};
GetShadowOutlineHue:
PUBLIC
PROCEDURE[s: NodeStyle.Ref]
RETURNS[
REAL] =
TRUSTED {
return the hue[0-255] of the shadow outline
frame: JaMInternal.Frame ← JaMOps.defaultFrame;
JaMOps.Push[frame.opstk, NodeStyleExtra.GetStyleParam[s, shadowOutlineHue, NodeStyle.GetStyleName[s], screen]];
RETURN[JaMOps.PopReal[frame.opstk]]};
GetShadowOutlineSaturation:
PUBLIC
PROCEDURE[s: NodeStyle.Ref]
RETURNS[
REAL] =
TRUSTED {
return the saturation[0-255] of the shadow outline
frame: JaMInternal.Frame ← JaMOps.defaultFrame;
JaMOps.Push[frame.opstk, NodeStyleExtra.GetStyleParam[s, shadowOutlineSaturation, NodeStyle.GetStyleName[s], screen]];
RETURN[JaMOps.PopReal[frame.opstk]]};
GetShadowOutlineBrightness:
PUBLIC
PROCEDURE[s: NodeStyle.Ref]
RETURNS[
REAL] =
TRUSTED {
return the brightness[0-255] of the shadow outline
frame: JaMInternal.Frame ← JaMOps.defaultFrame;
JaMOps.Push[frame.opstk, NodeStyleExtra.GetStyleParam[s, shadowOutlineBrightness, NodeStyle.GetStyleName[s], screen]];
RETURN[JaMOps.PopReal[frame.opstk]]};
GetCaptionFormatting:
PUBLIC
PROCEDURE[s: NodeStyle.Ref]
RETURNS[TAStyle.CaptionFormatting] =
TRUSTED {
determine the horizontal justification for the text caption in this node
captionFormattingName: Name ← ObjectToName[NodeStyleExtra.GetStyleParam[s, captionFormatting, NodeStyle.GetStyleName[s], screen]];
RETURN[
SELECT captionFormattingName
FROM
flushLeft => FlushLeft,
flushRight => FlushRight,
centered => Centered,
ENDCASE => ERROR]};
GetCaptionAlignment:
PUBLIC
PROCEDURE[s: NodeStyle.Ref]
RETURNS[TAStyle.CaptionAlignment] =
TRUSTED {
determine the vertical justification for the text caption in this node
captionAlignmentName: Name ← ObjectToName[NodeStyleExtra.GetStyleParam[s, captionAlignment, NodeStyle.GetStyleName[s], screen]];
RETURN[
SELECT captionAlignmentName
FROM
flushTop => FlushTop,
flushBottom => FlushBottom,
baseline => Baseline,
centered => Centered,
ENDCASE => ERROR]};
}.
Rick Beach, November 26, 1982, add caption styles