DIRECTORYCommander USING [CommandProc, Register],CStitching,CSMonitor,IO USING [Error, GetInt, int, PutF, PutF1, PutFR, Reset, rope, STREAM],Process USING [Detach],Rope USING [ROPE],ViewerIO USING [CreateViewerStreams];CSTest: CEDAR MONITORIMPORTS Commander, CStitching, CSMonitor, IO, Process, ViewerIO = BEGINROPE: TYPE = Rope.ROPE;windowCount: INT _ 0;	-- a count of the number of test windows created.counter: INT _ 0;	-- general purpose;MakeTestWindow: ENTRY Commander.CommandProc = BEGINtitle: ROPE;windowCount _ windowCount+1;title _ IO.PutFR ["CS maintenance test window # %g", IO.int[windowCount]];TRUSTED {Process.Detach[FORK Test [title]];}END;Test: PROC [title: ROPE] = BEGINnr, value: REF INT;r, s: CStitching.Rect;plane: CStitching.Tesselation = CStitching.NewTesselation [];t: CStitching.Tile;in, out: IO.STREAM;[in: in, out: out] _ ViewerIO.CreateViewerStreams [title];[] _ CSMonitor.Monitor [plane, title, NIL];DO		-- Read a parameter list, terminated by a CR:ENABLE IO.Error =>IF ec = SyntaxError THEN { IO.Reset [in];out.PutF ["\nIncorrect input.  Please retype.\n\n"];LOOP}ELSE EXIT;IO.PutF [stream: out,format: "%lLower left and upper right coord. of rect. (terminate with CR): %l",v1: IO.rope["e"], v2: IO.rope["E"]];r.x1 _ IO.GetInt [in];  r.y1 _ IO.GetInt [in];r.x2 _ IO.GetInt [in];  r.y2 _ IO.GetInt [in];counter _ SUCC [counter];nr _ NEW [INT];  nr^ _ counter;CStitching.ChangeRect [plane, r, nr];IO.PutF1 [out, " Rectangle %g inserted.\n", IO.int[nr^]];t _ CStitching.FindTile [plane, [r.x2-r.x1, r.y2-r.y1]];value _ NARROW [t.value, REF INT];s _ CStitching.Area [t];IO.PutF [stream: out,format: "\nRectangle %g found in plane: %g, %g; %g, %g.\n\n",v1: IF value = NIL THEN IO.rope ["NIL"] ELSE IO.int [value^],v2: IO.int [s.x1],v3: IO.int [s.y1],v4: IO.int [s.x2],v5: IO.int [s.y2]];ENDLOOP;END;	-- TestCommander.Register [key: "Test", proc: MakeTestWindow, doc: "A simple CS test program"];END.    خ  File: CSTest.mesaLast Edited by: Beretta, June 17, 1985 5:26:35 pm PDTgbb March 25, 1986 2:06:40 pm PSTPuts up a test window.Creates typescript window separate from CommandTool with given title. ‌تڈ  ک J–"Cedar" styleڑœ™™5Icode™!—unitڑدk	ک	Kڑœ
‌œک(KڑœکKک
Kڑ‌œ‌œ7‌œکGKڑœ‌œ
کKڑœ‌œ‌œکKڑœ	‌œک%—ڑذlnœ‌œ‌کKڑ‌œ#‌œکB—Lڑ‌کKڑ‌œ‌œ‌œکKڑœ‌œدc1کGKڑœ	‌œںک%ڑدnœ‌œ‌ک3Kڑœ
ںœ™Kڑœ‌œکKڑœکKڑœ‌œ+‌œکJKڑ‌œ‌œک,Kڑ‌œک—ڑ œ‌œ	‌œ‌ک KڑœE™EKڑœ‌œ‌œکKڑœکKڑœ=ک=KڑœکKڑœ	‌œ‌œکLڑœ:ک:Kڑœ&‌œک+ڑ‌œں*ذckںک1ڑ‌œ‌œ	کڑ‌œ‌œکKڑ‌œکKڑœ4ک4Kڑ‌œک—Kڑ‌œ‌œک
—Kڑ‌œh‌œ‌œکٹKڑœ‌œ‌œک.Kڑœ‌œ‌œک.Kڑœ
‌œکKڑœ‌œ‌œکKڑœ%ک%Kڑ‌œ*‌œک9K•StartOfExpansion¯[stream: STREAM, format: ROPE _ NIL, v1: IO.Value _ [null[]], v2: IO.Value _ [null[]], v3: IO.Value _ [null[]], v4: IO.Value _ [null[]], v5: IO.Value _ [null[]]]ڑœ8ک8Kڑœ‌œ‌œ‌œک"KڑœکKڑ‌œV‌œ	‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œکقKڑ‌œک—Kڑ‌œںک—Icode2ڑœXکXMڑ‌œکJک — …—    ہ    