DIRECTORYCurve USING [StartSamples, defaultHandle, AddSample],ConvertUnsafe USING [ToRope],JaMFnsDefs,IO,FileIO USING [OpenFailed, Open],Rope USING [ROPE, Equal, Length];ReadContourImpl: PROGRAMIMPORTS JaMFnsDefs, Rope, Curve, FileIO, IO, ConvertUnsafeEXPORTS = BEGINstream: IO.Handle;Done: SIGNAL = CODE;ROPE: TYPE = Rope.ROPE;contourNumber: INTEGER _ 0;OpenInputFile: PROC = {ENABLE FileIO.OpenFailed => TRUSTED{JaMFnsDefs.JaMExec["(open failed\n) .print"]; CONTINUE};ls: LONG STRING _ [80];rope: ROPE;JaMFnsDefs.PopString[ls];rope _ ConvertUnsafe.ToRope[ls];IF stream # NIL THEN stream.Close[];stream _ NIL;IF rope.Length[] > 0 THEN stream _ FileIO.Open[rope, read];FindNextContour[];	--reads past any junk at the frontcontourNumber _ 0;};CloseInputFile: PROC = {IF stream # NIL THEN stream.Close[];stream _ NIL;};JFindContour: PROCEDURE = {ENABLE IO.EndOfStream =>{JaMFnsDefs.JaMExec["(not found \n) .print"]; CONTINUE};cn: INTEGER _ JaMFnsDefs.PopInteger[];FindContour[cn];};FindContour: PUBLIC PROCEDURE [cn: NAT] = {count: NAT _ 0;IO.SetIndex[stream,0];FindNextContour[];	--reads past any junk at the frontcontourNumber _ 0;UNTIL count=cn DOFindNextContour[];count _ count+1;ENDLOOP;};FindNextContour: PUBLIC PROC = {rope: ROPE;UNTIL Rope.Equal[rope,"beginoutline",FALSE] DOrope _ IO.GetToken[stream];contourNumber _ contourNumber+1;ENDLOOP;};JInputSamples: PROC = {JaMFnsDefs.PushBoolean[InputSamples[]];};InputSamples: PUBLIC PROCEDURE RETURNS[endOfFile: BOOLEAN] = {x,y: REAL;nSamples: INTEGER;endOfFile _ FALSE;DO[x,y] _ GetFirst[! Done, IO.EndOfStream => ERROR];Curve.StartSamples[Curve.defaultHandle, x,y];nSamples _ 1;DO[x,y] _ GetNext[! Done => EXIT; IO.EndOfStream => {endOfFile _ TRUE; EXIT}];Curve.AddSample[Curve.defaultHandle, x, y];nSamples _ nSamples+1;ENDLOOP;contourNumber _ contourNumber+1;IF nSamples>6 OR endOfFile THEN EXIT;ENDLOOP;};GetFirst: PROC RETURNS[x,y: REAL] = {r: ROPE;x _ IO.GetReal[stream ! IO.SyntaxError => SIGNAL Done];y _ IO.GetReal[stream];r _ IO.GetToken[stream];IF ~Rope.Equal[r,"setcp",FALSE] THEN ERROR;};GetNext: PROC RETURNS[x,y: REAL] = {r: ROPE;x _ IO.GetReal[stream ! IO.SyntaxError => SIGNAL Done];y _ IO.GetReal[stream];r _ IO.GetToken[stream];IF ~Rope.Equal[r,"drawto",FALSE] THEN ERROR;};JaMFnsDefs.Register[".openInput"L,OpenInputFile];	--open the input file (will close current file)JaMFnsDefs.Register[".closeInput"L,CloseInputFile];	--close the input fileJaMFnsDefs.Register[".findContour"L,JFindContour];	--contour number .findContourJaMFnsDefs.Register[".inputSamples"L,JInputSamples];	--inputs current contour. returns endOfFileEND.   N  ReadContourImpl.mesaWritten by: Maureen Stone November 9, 1983 4:56 pmЭ╩  Ш JШ JЪЬЩJЪЬ2Щ2Ъ╧k	Ш	JЪЬЭЬ*Ш5JЪЬЭЬ
ШJШJЪЭЬШJЪЬЭЬШ JЪЬЭЬЭЬШ!ЧJШ JЪЬЭШJЪЭЬ3Ш:JЪЭЬЭШJЪЬЭЬШJЪЬЭЬЭЬШJЪЭЬЭЬЭЬШJЪЬЭЬШJШ Ъ╧nЬЭЬШЪЭЬЭЬШ$JЪЬ.ЭЬШ8ЧJЪЬЭЬЭЬШJЪЬЭЬШJЪЬШJШ JЪЭЬ
ЭЬЭЬШ$JЪЬ	ЭЬШJЪЭЬЭЬ"Ш;JЪЬ╧c"Ш5JШJШJШ ЧЪЮЬЭЬШJЪЭЬ
ЭЬЭЬШ$JЪЬ	ЭЬШJШJШ ЧЪЮЬЭ	ЬШJЪЭЬ@ЭЬШPJЪЬЭЬШ&JШJЪЬШJШ ЧЪЮЬЭЬЭЬШ+JЪЬЭЬШJЪЭЬШJЪЬЯ"Ш5JШЪЭЬ	ЭШJЪЬШJШJЪЭЬШЧJЪЬШЧЪЮЬЭЬШ JЪЬЭЬШЪЭЬ ЭЬЭШ.JЪЬЭЬШJШ JЪЭШЧJЪЬШЧЪЮЬЭЬШJШ'JЪЬШЧЪ
ЮЬЭЬЭ	ЬЭЬЭЬШ>JЪЬЭЬШ
JЪЬ
ЭЬШJЪЬЭЬШЪЭШJЪЬ+ЭЬШ2JЪЬ-Ш-JШЪЭШJЪ	ЬЭЬЭЬЭЬЭЬШLJЪЬ+Ш+JШJЪЭЬШЧJШ JЪЭЬЭЬЭЬЭЬШ%JЪЭЬШЧJЪЬШЧЪЮЬЭЬЭЬЭЬШ%JЪЬЭЬШJЪЬЭЬЭЬЭЬШ7JЪЬЭЬШJЪЬЭЬШJЪЭЬЭЬЭЬЭЬШ+JШЧЪЮЬЭЬЭЬЭЬШ$JЪЬЭЬШJЪЬЭЬЭЬЭЬШ7JЪЬЭЬШJЪЬЭЬШJЪЭЬЭЬЭЬЭЬШ,JШЧJШ JЪЬ2Я/ШaJЪЬ4ЯШJJЪЬ3Я╨ci╧iШPJЪЬ5Я+Ш`JШ JЪЭЬШJШ JШ Ч ЕЧ    
М  °  