TARenderImpl.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Rick Beach, July 2, 1982 11:45 am
Michael Plass, July 20, 1982 1:45 pm
Maureen Stone November 22, 1982 2:54 pm
Rick Beach, February 9, 1985 9:24:20 pm PST
DIRECTORY
NodeStyle USING [ApplyAll, Create, GetAreaBrightness, GetAreaHue, GetAreaSaturation, GetOutlineBrightness, GetOutlineHue, GetOutlineSaturation, GetPathType, OfStyle, Ref],
Rope,
TACaption USING [DisplayText],
TAPen USING [EstablishPen],
TAPrivate,
TAProperties USING [AnArtworkNode, AnArtworkFileName, AnArtworkImage, AnArtworkPath],
TARender,
TAShadow USING [EstablishShadow],
TAStyle,
TEditInput USING [FreeTree],
TextEdit USING [GetRope],
TextNode USING [Forward, NarrowToTextNode, Ref],
TSOutput USING [Handle];
TARenderImpl:
CEDAR PROGRAM
IMPORTS NodeStyle, TACaption, TAPen, TAPrivate, TAProperties, TAShadow, TAStyle, TEditInput, TextEdit, TextNode
EXPORTS TARender = {
ROPE: TYPE = Rope.ROPE;
NotATiogaArtworkDocument: PUBLIC SIGNAL[fileName: ROPE] = CODE;
NotATiogaArtworkNode: PUBLIC SIGNAL = CODE;
DocumentNotFound: PUBLIC SIGNAL[fileName: ROPE] = CODE;
RenderDocument:
PUBLIC
PROCEDURE [handle: TSOutput.Handle, fileName:
ROPE, paint:
BOOLEAN ←
TRUE] = {
tiogaRoot: TextNode.Ref;
nodeStyle: NodeStyle.Ref ← NodeStyle.Create[];
fromFile: BOOLEAN;
fileName ← TAPrivate.FixFileName[fileName, ".Artwork"];
[tiogaRoot, fromFile] ← TAPrivate.GetDocument[fileName !
TAPrivate.FileNotFound => GOTO BadFile];
RenderBranch[handle, tiogaRoot, nodeStyle, screen, paint !
NotATiogaArtworkNode => GOTO NotArtwork];
IF fromFile THEN TEditInput.FreeTree[tiogaRoot];
EXITS
BadFile => SIGNAL DocumentNotFound[fileName];
NotArtwork => SIGNAL NotATiogaArtworkDocument[fileName];
};
RenderBranch:
PUBLIC
PROCEDURE [handle: TSOutput.Handle, node: TextNode.Ref, nodeStyle: NodeStyle.Ref, kind: NodeStyle.OfStyle, paint:
BOOLEAN ←
TRUE] = {
level, levelDelta: INTEGER ← 0;
AnyArtworkProperty:
PROCEDURE[node: TextNode.Ref]
RETURNS[
BOOLEAN] =
INLINE {
RETURN[TAProperties.AnArtworkNode[node]
OR
TAProperties.AnArtworkFileName[node] OR
TAProperties.AnArtworkImage[node]];
};
IF ~AnyArtworkProperty[node] THEN SIGNAL NotATiogaArtworkNode;
WHILE node#
NIL
DO
-- note EXIT at end of loop when finished this branch
TAPrivate.PushDC[];
IF TAProperties.AnArtworkNode[node]
THEN
RenderNode[handle, node, nodeStyle, kind, paint]
ELSE
IF TAProperties.AnArtworkFileName[node]
THEN {
fileName: ROPE ← TextEdit.GetRope[TextNode.NarrowToTextNode[node]];
RenderDocument[handle, TAPrivate.FixFileName[fileName, ".Artwork"], paint] }
ELSE
TACaption.DisplayText[handle, node, nodeStyle, kind, paint];
[node, levelDelta] ← TextNode.Forward[node];
level ← level+levelDelta;
WHILE levelDelta<=0
DO
-- pop enough levels of display context
TAPrivate.PopDC[];
levelDelta ← levelDelta+1;
ENDLOOP;
IF level<=0 THEN EXIT
ENDLOOP;
};
RenderNode:
PUBLIC
PROCEDURE [handle: TSOutput.Handle, node: TextNode.Ref, nodeStyle: NodeStyle.Ref, kind: NodeStyle.OfStyle, paint:
BOOLEAN ←
TRUE] = {
NodeStyle.ApplyAll[nodeStyle, node, kind];
IF TAProperties.AnArtworkPath[node]
THEN {
-- interpret the pathType style
IF TAStyle.GetShadowType[nodeStyle]#None
THEN
TAShadow.EstablishShadow[node, nodeStyle];
SELECT NodeStyle.GetPathType[nodeStyle]
FROM
Filled, FilledAndOutlined => {
h: REAL ← NodeStyle.GetAreaHue[nodeStyle];
s: REAL ← NodeStyle.GetAreaSaturation[nodeStyle];
v: REAL ← NodeStyle.GetAreaBrightness[nodeStyle];
TAPrivate.SetHSV[h,s,v];
TAPrivate.ExecuteNode[node];
TAPrivate.DrawArea[];
};
ENDCASE;
SELECT NodeStyle.GetPathType[nodeStyle]
FROM
Outlined, FilledAndOutlined => {
h: REAL ← NodeStyle.GetOutlineHue[nodeStyle];
s: REAL ← NodeStyle.GetOutlineSaturation[nodeStyle];
v: REAL ← NodeStyle.GetOutlineBrightness[nodeStyle];
TAPrivate.SetHSV[h,s,v];
TAPrivate.ExecuteNode[node];
TAPen.EstablishPen[nodeStyle];
TAPrivate.OutlinePath[];
};
ENDCASE;
}
ELSE
IF TAProperties.AnArtworkImage[node]
THEN {
-- interpret the AIS file name
fileName: ROPE ← TextEdit.GetRope[TextNode.NarrowToTextNode[node]];
TAPrivate.PushReal[0];
TAPrivate.PushReal[0];
TAPrivate.SetCP[];
TAPrivate.DrawImage[fileName];
}
ELSE
TAPrivate.ExecuteNode[node];
};
}.