DIRECTORYCurve USING [StartSamples, defaultHandle, AddSample],JaM USING [ExecuteRope, PopInt, PopRope, PushRope,PushBool, State, Register],FitJaM USING [RegisterInit, InitProc],IO USING [STREAM, SetIndex, GetTokenRope, GetReal, EndOfStream, Close, Error],FS USING [Error, StreamOpen],Rope USING [ROPE, Equal, Length];ReadContourImpl: CEDAR PROGRAMIMPORTS JaM, Rope, Curve, FS, IO, FitJaMEXPORTS = BEGINstream: IO.STREAM;Done: SIGNAL = CODE;ROPE: TYPE = Rope.ROPE;State: TYPE = JaM.State;contourNumber: INTEGER _ 0;OpenInputFile: PROC[state: State] = {ENABLE FS.Error => IF error.group=user THEN {JaM.PushRope[state,error.explanation];JaM.ExecuteRope[state, ".print"]; CONTINUE};rope: ROPE _ JaM.PopRope[state];IF stream # NIL THEN IO.Close[stream];stream _ NIL;IF rope.Length[] > 0 THEN stream _ FS.StreamOpen[rope, $read];FindNextContour[];	--reads past any junk at the frontcontourNumber _ 0;};CloseInputFile: PROC[state: State] = {IF stream # NIL THEN IO.Close[stream];stream _ NIL;};JFindContour: PROCEDURE [state: State] = {ENABLE IO.EndOfStream =>{JaM.ExecuteRope[state, "(not found \n) .print"]; CONTINUE};cn: INTEGER _ JaM.PopInt[state];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.GetTokenRope[stream];contourNumber _ contourNumber+1;ENDLOOP;};JInputSamples: PROC[state: State] = {JaM.PushBool[state, 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.Error => IF ec=SyntaxError THEN SIGNAL Done];y _ IO.GetReal[stream];[r,] _ IO.GetTokenRope[stream];IF ~Rope.Equal[r,"setcp",FALSE] THEN ERROR;};GetNext: PROC RETURNS[x,y: REAL] = {r: ROPE;x _ IO.GetReal[stream ! IO.Error => IF ec=SyntaxError THEN SIGNAL Done];y _ IO.GetReal[stream];[r,] _ IO.GetTokenRope[stream];IF ~Rope.Equal[r,"drawto",FALSE] THEN ERROR;};ReadContourInit: FitJaM.InitProc = {OPEN JaM;	--to make the comments line upRegister[state,".openInput",OpenInputFile];	--open the input file (will close current file)Register[state,".closeInput",CloseInputFile];	--close the input fileRegister[state,".findContour",JFindContour];	--contour number .findContourRegister[state,".inputSamples",JInputSamples];	--inputs current contour. returns endOfFile};FitJaM.RegisterInit[$ReadContourInit,ReadContourInit];END.   R  ReadContourImpl.mesaWritten by: Maureen Stone May 15, 1984 5:13:50 pm PDT Э╩T  Ш JШ JЪЬЩJЪЬ5Щ5Ъ╧k	Ш	JЪЬЭЬ*Ш5JЪЬЭЬDШMJЪЬЭЬШ&JЪЭЬЭЬЭЬ>ШNJЪЬЭЬШJЪЬЭЬЭЬШ!ЧJШ JЪЬЭШJЪЭЬ!Ш(JЪЭЬЭШJЪЬЭЬЭЬШJЪЬЭЬЭЬШJЪЭЬЭЬЭЬШJЪЬЭЬШJЪЬЭЬШJШ Ъ╧nЬЭЬШ%ЪЭЬЭЬ
ЭЬЭЬШ-JШ&JЪЬ"ЭЬШ,ЧJЪЬЭЬШ JЪЭЬ
ЭЬЭЬШ&JЪЬ	ЭЬШJЪЭЬЭЬ%Ш>JЪЬ╧c"Ш5JШJШJШ ЧЪЮЬЭЬШ&JЪЭЬ
ЭЬЭЬШ&JЪЬ	ЭЬШJШJШ ЧЪЮЬЭ
ЬШ*JЪЭЬDЭЬШTJЪЬЭЬШ 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ЪЬЭЬЭЬ
ЭЬЭЬЭЬШHJЪЬЭЬШJЪЬЭЬШJЪЭЬЭЬЭЬЭЬШ+JШЧЪЮЬЭЬЭЬЭЬШ$JЪЬЭЬШJЪ	ЬЭЬЭЬ
ЭЬЭЬШHJЪЬЭЬШJЪЬЭЬШJЪЭЬЭЬЭЬЭЬШ,JШЧJШ ЪЬ$ЭЬЯШLJЪЬ,Я/Ш[JЪЬ.ЯШDJЪЬ-Я╨ci╧iШJJЪЬ/Я+ШZJШЧJЪЬ6Ш6JЪЭЬШJШ JШ Ч ЕЧ    Є  Ш  