
DIRECTORY
Imager USING [Context, Color],
Cubic USING [Bezier],
Complex USING [VEC],
FitBasic USING [Handle, SampleHandle],
IO USING [STREAM];

FitIO: CEDAR DEFINITIONS = {

Handle: TYPE = FitBasic.Handle;
Context: TYPE = REF ContextRec;
ContextRec: TYPE = RECORD[
imager: Imager.Context,
magnify: REAL,
position: Complex.VEC,
feedback: Feedback,
logActions: BOOLEAN м TRUE,
log: IO.STREAM
];

Feedback: TYPE = REF FeedbackRec;
FeedbackRec: TYPE=RECORD [
color: Imager.Color,
sampleSize: REAL м 1,
jointSize: REAL м 2,
nodeLength: REAL м 2,
nodeLineWidth: REAL м 0,
lineWidth: REAL м 0	--for DrawSamples and DrawContour
];

TTY: PROC[ctx: Context] RETURNS[IO.STREAM] = INLINE {RETURN[ctx.log]};

SetFeedback: PROC[ctx: Context, feedback: Feedback];
DrawSamples: PROC [ctx: Context, handle: Handle, all: BOOLEAN м FALSE, fill: BOOLEAN м FALSE];
MarkSamples: PROC [ctx: Context, handle: Handle, all: BOOLEAN м FALSE];
MarkNodes: PROC [ctx: Context, handle: Handle, all: BOOLEAN м FALSE];
MarkJoints: PROC [ctx: Context, handle: Handle, all: BOOLEAN м FALSE];	--joints between the cubic pieces
DrawContour: PROC [ctx: Context, handle: Handle, all: BOOLEAN м FALSE, fill: BOOLEAN м FALSE];
MarkNode: PROC[ctx: Context, s: FitBasic.SampleHandle];  
MarkSample: PROC[ctx: Context, s: FitBasic.SampleHandle];
MarkJoint: PROC[ctx: Context, pt: Complex.VEC];
DrawCubic: PROC[ctx: Context, cubic: Cubic.Bezier];
NoLog: SIGNAL;
StartLog: PROC [ctx: Context, stream: IO.STREAM м NIL];
StopLog: PROC[ctx: Context, close: BOOLEAN м TRUE];

MagnifyData: PROC[ctx: Context, scale: REAL] = INLINE {ctx.magnify м scale};
PositionData: PROC[ctx: Context, trans: Complex.VEC] = INLINE {ctx.position м trans};
MagnifyPoint: PROC [ctx: Context, p: Complex.VEC] RETURNS[Complex.VEC];  --magnify and position
UnMagnifyPoint: PROC [ctx: Context, p: Complex.VEC] RETURNS[Complex.VEC];  --undo magnify and position
}.
     
FitIO.mesa
Copyright ╙ 1985, 1992 by Xerox Corporation.  All rights reserved.
Maureen Stone November 29, 1984 10:59:45 am PST
Doug Wyatt, September 5, 1985 1:56:13 pm PDT

Marks:
For samples and joints the mark is a dot
For nodes the mark is a line normal to the tangent direction or an X if the tangent is (0,0)
For sizes, 0 is as small as possible for current device
Samples, Nodes and Contours:
Samples are the list of input datapoints.  Contours are the computed curves.
The handle contains a list of Sample, Contour pairs.  The all flag controls whether you want to apply the procedure to the current pair or all the pairs.
Some samples are also marked as nodes, or potential knots for the spline fitting calculations
Logs:
Data is stored by logging the actions used to draw it.
Format is suitable for driving JaM interface and includes the semantics of marks, not their feedback. SetFeedBack command is recorded.  Magnify and Position apply to logs
 
Procedures may automatically log actions
treat samples as vertices of a polygon or a broken line
procedures used by MarkSamples and MarkNodes
procedure used by MarkJoints and DrawContour
IF stream=NIL uses previous stream.  Otherwise, closes previous stream (if any) and sets current output stream to stream.  If there is no previous stream SIGNALS NoLog  
IF close=FALSE just disables logging.
Views of the data:
It may be interesting to view the data at a different size or position.  However, transforming the Imager Context would affect the mark and linewidth sizes.  For many cases the right thing to do is actually modify the data using the procedures in FitState.  These are the procedures for when it is inconvenient to change the data.
scales the view of the data but not the marks, linewidth or distance from data to the origin
This is an absolute number with respect to the data.  Reset the magnify by MagnifyData[1];
Positions the data with respect to the origin of the context.
This is an absolute with respect to the Imager client coordinates.
Reset by PositionData[0,0];
Э╩д  ХNewlineDelimiter
Ц(cedarcode) styleЩ codeЪЬ
Щ
KЪЬ	╧eЬ6ЩBKЪЬ/Щ/KЩ,ЧKШ Ъ╧k	Ш	KЪЬЮЬШKЪЬЮЬ
ШKЪЬЮЬЮЬШKЪЬ	ЮЬШ&KЪЮЬЮЬЮЬШЧKШ KЪ╨blЬЮЬШKШ KЪЬЮЬШKЪЬ	Ю
ЬШЪЬЮЬЮЬШKЪЬШKЪЬ	ЮЬШKЪЬЮЬШKШKЪЬЮЬЮЬШKЪЬЮЬЮШKЪЬШKШ ЧKЪЬ
ЮЬЮЬШ!ЪЬЮЬЮЬШKШKЪЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬЮЬЮ╧c!Ш5KШKШ ЧKЪ╨bkЬЮЬЮЬЮЬЮЬЮЬЮЬШFKШ KЩ ЩKЩ(KЩ\KЪа7Щ7ЧЩKЩLKЩЩKЩ]ЧЩKЩ6KЩкKЩЧKЪЬ(Щ(KЪ╧nЬЮЬ#Ш4ЪвЬЮЬ%ЮЬЮЬЮЬЮЬШ^KЪа7Щ7ЧKЪвЬЮЬ%ЮЬЮЬШGKЪв	ЬЮЬ%ЮЬЮЬШEKЪ	в
ЬЮЬ%ЮЬЮЬа!ШhKЪвЬЮЬ%ЮЬЮЬЮЬЮЬШ^KЪЬ,Щ,KЪвЬЮЬ+Ш9KЪв
ЬЮЬ)Ш9KЪЬ,Щ,KЪв	ЬЮЬЮЬвШ/KЪв	ЬЮЬ$Ш3KЪЬЮЬШЪ
вЬЮЬЮЬЮЬЮЬШ7KЪЮЬЮЬЬЩйЧЪвЬЮЬЮЬЮЬШ3KЩ%ЧKШ ЩKЩ╩ЧЪвЬЮЬЮЬЮЬШLKЪа\Щ\KЩZЧЪвЬЮЬЮЬЮЬШUKЪа=Щ=KЩBKЩЧKЪвЬЮЬЮЬЮЬ	ЮЬаШ_KЪвЬЮЬЮЬЮЬ	ЮЬаШfKЪЮШЧ ЕЧ    d  
  