DIRECTORY
Convert USING [RealFromLiteral],
Imager USING [Box, DoSave, MaskBox, SetColor, Trans],
NodeProps USING [],
NodeStyle USING [GetColor, GetReal, GetLineFormatting, Ref],
Real USING [Round],
Rope USING [Fetch, ROPE, Run, Size],
RuntimeError USING [UNCAUGHT],
Scaled USING [Float, Floor, FromReal],
TEditFormat USING [ArtworkClass, ArtworkClassRep, BoundingBoxProc, CharPositionProc, FormatProc, PaintProc, RegisterArtwork, ResolveProc],
TextEditBogus USING [GetRope],
TextEdit USING [RefTextNode, Size];


ArtworkRuleImpl: CEDAR PROGRAM
IMPORTS Convert, Imager, NodeStyle, Real, Rope, RuntimeError, Scaled, TEditFormat, TextEditBogus, TextEdit
~ BEGIN

ROPE: TYPE ~ Rope.ROPE;

debug: BOOLEAN ¬ FALSE;

Format: TEditFormat.FormatProc ~ {
inner: PROC ~ {
extraIndent: REAL ¬ nodeStyle.GetReal[$firstIndent];
leftIndent: REAL ¬ nodeStyle.GetReal[$leftIndent] + extraIndent;
rightIndent: REAL ¬ nodeStyle.GetReal[$rightIndent];
lineLength: REAL ~ nodeStyle.GetReal[$lineLength];
trimmedLineWidth: REAL ~ 
(IF lineLength > 0.0 AND lineLength < Scaled.Float[lineWidth] THEN lineLength ELSE Scaled.Float[lineWidth]) - leftIndent - rightIndent;
ruleThickness: REAL ¬ 0.0;
ruleLength: REAL ¬ 0.0;
[ruleThickness, ruleLength] ¬ GetRule[node, nodeStyle ! RuntimeError.UNCAUGHT => {<<ViewerOps.BlinkDisplay[];>> CONTINUE}];
IF ruleLength = 0 THEN ruleLength ¬ trimmedLineWidth;
lineInfo.xmin ¬ 0;
lineInfo.ymin ¬ 0;
lineInfo.xmax ¬ Ceiling[ruleLength];
lineInfo.ymax ¬ Ceiling[ruleThickness];
SELECT nodeStyle.GetLineFormatting[] FROM
FlushLeft, Justified => {lineInfo.xOffset ¬ Scaled.FromReal[leftIndent]};
FlushRight => {lineInfo.xOffset ¬ Scaled.FromReal[MAX[Scaled.Float[lineWidth]-leftIndent-ruleLength, 0]]};
Centered => {lineInfo.xOffset ¬ Scaled.FromReal[leftIndent+(trimmedLineWidth-ruleLength)/2]};
ENDCASE => ERROR;
};
lineInfo.startPos ¬ [node, 0];
lineInfo.nextPos ¬ [node, TextEdit.Size[node]];
lineInfo.nChars ¬ TextEdit.Size[node];
IF lineInfo.formatInfo.length = 0 THEN {
lineInfo.formatInfo[lineInfo.formatInfo.length].color ¬ NodeStyle.GetColor[nodeStyle, text];
lineInfo.formatInfo.length ¬ lineInfo.formatInfo.length + 1;
};
inner[ ! RuntimeError.UNCAUGHT => {IF NOT debug THEN {<<ViewerOps.BlinkDisplay[];>> CONTINUE}}];
};

Resolve: TEditFormat.ResolveProc ~ {
loc ¬ lineInfo.startPos;
xmin ¬ lineInfo.xmin+Scaled.Floor[lineInfo.xOffset];
width ¬ lineInfo.xmax;
rightOfLine ¬ FALSE;
};

CharPosition: TEditFormat.CharPositionProc ~ {
x ¬ lineInfo.xmin+Scaled.Floor[lineInfo.xOffset];
width ¬ lineInfo.xmax;
};

BoundingBox: TEditFormat.BoundingBoxProc ~ {
RETURN [[lineInfo.xmin, lineInfo.ymin, lineInfo.xmax, lineInfo.ymax]]
};

Paint: TEditFormat.PaintProc ~ {
inner: PROC ~ {
IF lineInfo.formatInfo.length > 0 AND lineInfo.formatInfo[0].color # NIL THEN {
Imager.SetColor[context, lineInfo.formatInfo[0].color];
};
Imager.Trans[context];
Imager.MaskBox[context, box];
};
box: Imager.Box ~ BoundingBox[lineInfo, lineInfo.startPos.where, lineInfo.nChars];
Imager.DoSave[context, inner];
};

pointsPerMeter: REAL ¬ 72/0.0254;

GetRule: PROC [node: TextEdit.RefTextNode, nodeStyle: NodeStyle.Ref] RETURNS [thickness, length: REAL ¬ 0.0] ~ {
rope: ROPE ~ TextEditBogus.GetRope[node];
size: INT ~ Rope.Size[rope];
IF size # 0 THEN {
i: INT ¬ -1;
Getc: PROC RETURNS [CHAR] ~ {i¬i+1; RETURN [IF i<size THEN rope.Fetch[i] ELSE ' ]};
c: CHAR ¬ Getc[];
startTok: INT ¬ 0;
sizeTok: INT ¬ 0;
GetTok: PROC ~ {
startTok ¬ i;
UNTIL c = '  DO c ¬ Getc[] ENDLOOP;
sizeTok ¬ i-startTok;
WHILE c = '  AND i<size DO c ¬ Getc[] ENDLOOP;
};
GetReal: PROC RETURNS [r: REAL] ~ {
r ¬ 1.0;
IF c = '- THEN {r ¬ -r; c ¬ Getc[]};
GetTok[];
r ¬ r*Convert.RealFromLiteral[rope, startTok];
GetTok[];
SELECT TRUE FROM
Match["mm"] => r ¬ r*0.001;
Match["cm"] => r ¬ r*0.01;
Match["in"] => r ¬ r*0.0254;
Match["pt"] => r ¬ r*0.0254/72.27;
Match["pc"] => r ¬ r*12*0.0254/72.27;
Match["bp"] => r ¬ r*0.0254/72;
ENDCASE => ERROR;
r ¬ r*pointsPerMeter;
};
Match: PROC [key: ROPE] RETURNS [BOOL] ~ {
k: INT ~ Rope.Size[key];
RETURN [sizeTok = k AND Rope.Run[rope, startTok, key, 0, FALSE] = k]
};
WHILE c = '  AND i<size DO c ¬ Getc[] ENDLOOP;
UNTIL i>=size DO
GetTok[];
SELECT rope.Fetch[startTok] FROM
'- => thickness ¬ 0.4;
' => thickness ¬ 0.4;
'= => thickness ¬ 1.0;
'~ => thickness ¬ 0.8*nodeStyle.GetReal[$fontSize];
'# => thickness ¬ 0.8*nodeStyle.GetReal[$fontSize];
ENDCASE => {
SELECT TRUE FROM
Match["thickness:"] => thickness ¬ GetReal[];
Match["length:"] => length ¬ GetReal[];
ENDCASE => ERROR;
};
ENDLOOP;
}
ELSE {
thickness ¬ 1.0;
length ¬ nodeStyle.GetReal[$lineLength];
};
};

Floor: PROC [r: REAL] RETURNS [i: INT] ~ {
i ¬ Real.Round[r];
IF i > r THEN i ¬ i-1;
};

Ceiling: PROC [r: REAL] RETURNS [i: INT] ~ {
i ¬ Real.Round[r];
IF i < r THEN i ¬ i+1;
};

class: TEditFormat.ArtworkClass ~ NEW[TEditFormat.ArtworkClassRep ¬ [
name: $Rule,
format: Format,
paint: Paint,
resolve: Resolve,
charPosition: CharPosition,
boundingBox: BoundingBox
]];

TEditFormat.RegisterArtwork[class];

END.
  ْ  
ArtworkRuleImpl.mesa
Copyright س 1986, 1987, 1989, 1990, 1992 by Xerox Corporation.  All rights reserved.
Rick Beach, March 11, 1986 10:28:50 am PST
Michael Plass, March 24, 1992 12:25 pm PST
Doug Wyatt, October 10, 1990 10:47 am PDT

we should be the only client for this format entry
returns the length and thickness of the typographic rule defined by the content of the node
Invariant: c = (IF i<size THEN rope.Fetch[i] ELSE ' )
IF TEditFormat.ArtworkEnabled[] THEN ViewerOps.PaintEverything[];
 ‌ت‹  •NewlineDelimiter
–(cedarcode) style™ codeڑœ™Kڑœ
دeœI™TK™*K™*K™)K™ —ڑدk	ک	Kڑœ‍œک Kڑœ‍œ)ک5Kڑœ
‍œکKڑœ
‍œ-ک<Kڑœ‍œ	کKڑœ‍œ	‍œک$Kڑœ‍œ‍œکKڑœ‍œک&Kڑœ‍œyکٹKڑœ‍œ
œکKڑœ	‍œک#—Kک Kک Kڑذlnœ‍کKڑ‍œcکjڑœ‍کKک Kڑ‍œ‍œ‍œکKک Kڑœ‍œ‍œکKک ڑدnœک"ڑœ‍œکKڑœ‍œ#ک4Kڑœ‍œ0ک@Kڑœ‍œ#ک4Kڑœ‍œ"ک2ڑœ‍œکKڑ
‍œ‍œ&‍œ‍œ&‍œک‡—Kڑœ‍œکKڑœ‍œکKڑœE‍œدyœ‍	œک{Kڑ‍œ‍œک5KکKکKک$Kک'ڑ‍œ‍ک)KکIKڑœ2‍œ5کjKک]Kڑ‍œ‍œک—Kڑœک—KکKک/Kک&ڑ‍œ‍œک(Kڑœ2™2Kک\Kک<Kڑœک—Kڑœ‍œ‍œ‍œ‍œ،œ‍œک`KکKک —ڑ œک$KکKک4KکKڑœ‍œکKڑœکKک —ڑ œ"ک.Kک1KکKڑœکKک —ڑ œ!ک,Kڑ‍œ?کEKڑœکKک —ڑ œک ڑ œ‍œکڑ‍œ ‍œ ‍œ‍œکOKڑœ7ک7Kڑœک—KکKکKک—KڑœRکRKکKکKک —Kڑœ‍œک!Kک ڑ œ‍œ8‍œ‍œکpKڑœ[™[Kڑœ‍œک)Kڑœ‍œکڑ‍œ
‍œکKڑœ‍œکKڑ œ‍œ‍œ‍œ‍œ‍œ‍œ‍œکSڑœ‍œ
کKڑœ‍œ‍œ‍œ™5—Kڑœ
‍œکKڑœ	‍œکڑ œ‍œکKکKڑ‍œ‍œ‍œک#KکKڑ‍œ‍œ‍œ‍œک.Kڑœک—ڑ œ‍œ‍œ‍œک#KکKڑ‍œ‍œک$Kڑœ	ک	Kک.Kڑœ	ک	ڑ‍œ‍œ‍کKکKکKکKک"Kک%KکKڑ‍œ‍œک—KکKک—ڑ
 œ‍œ‍œ‍œ‍œک*K•StartOfExpansionO[s1: ROPE, pos1: INT _ 0, s2: ROPE, pos2: INT _ 0, case: BOOL _ TRUE]ڑœ‍œکKڑ‍œ‍œ"‍œکDKڑœک—Kڑ‍œ‍œ‍œ‍œک.ڑ‍œ	‍کKک	ڑ‍œ‍ک KکKکKکKک3Kک3ڑ‍œکڑ‍œ‍œ‍کKک-Kک'Kڑ‍œ‍œک—Kڑœک——Kڑ‍œک—Kڑœک—ڑ‍œکKکKک(Kڑœک—KڑœکKک —ڑ
 œ‍œ‍œ‍œ‍œک*KکKڑ‍œ‍œ	کKڑœکKک —ڑ
 œ‍œ‍œ‍œ‍œک,KکKڑ‍œ‍œ	کKڑœکKک —ڑœ"‍œ کEKڑœکKکKڑœکKڑœکKڑœکKڑœکKڑœکKک —Kڑœ#ک#Kڑ‍œ‍œ™A—Kک Kڑ‍œک— …—    ~    