
DIRECTORY ImagerBox, Vector2, ViewerClasses;

PiecewiseLinearGraph: CEDAR DEFINITIONS ~ {

VEC: TYPE ~ Vector2.VEC;
Box: TYPE ~ ImagerBox.Box;
Viewer: TYPE ~ ViewerClasses.Viewer;

Function: TYPE ~ RECORD [data: REF ANY, class: FunctionClass];

FunctionClass: TYPE ~ REF FunctionClassPrivate;
FunctionClassPrivate: TYPE ~ RECORD [
Mutable: PROC [Function] RETURNS [BOOL],
Bounds: PROC [Function] RETURNS [Box],
Scan: PROC [
fn: Function,
xmin, xmax: REAL,
exact: BOOL, --FALSE => only accurate enough for drawing
Consume: PROC [VEC] RETURNS [BOOL] --return TRUE to stop the Scan
] RETURNS [stopped: BOOL, at: VEC],
Eval: PROC [fn: Function, x: REAL] RETURNS [REAL]
];

View: PROC [fn: Function, viewerInit: ViewerClasses.ViewerRec, paint: BOOL ¬ TRUE] RETURNS [Viewer];

plgMenu: READONLY ViewerClasses.Menu;

Interpolate: PROC [fn: Function, x: REAL] RETURNS [REAL];

}.
     
PiecewiseLinearGraph.mesa
Copyright Ó 1991, 1992 by Xerox Corporation.  All rights reserved.
Spreitze, January 25, 1991 11:59 am PST
Enumerates, in order of increasing x, the joints in and bracketing the given interval.
A generic implementation of Eval.
 ÊÖ  –(cedarcode) style•NewlineDelimiter
™ codešœ™Kšœ
Ïeœ7™BK™'—K˜ KšÏk	œ#˜,K˜ KšÏnœžœžœ˜+K˜ Kšžœžœžœ˜Kšœžœ˜Kšœžœ˜$K˜ Kš	œ
žœžœžœžœ˜>K˜ Kšœžœžœ˜/šœžœžœ˜%KšŸœžœžœžœ˜(KšŸœžœžœ˜&šŸœžœ˜Kšœ˜Kšœžœ˜KšœžœÏc+˜8KšŸœžœžœžœžœ ˜AKšœžœžœžœ˜#K™V—Kš
Ÿœžœžœžœžœ˜1K˜—K˜ Kš
Ÿœžœ<žœžœžœ
˜dK˜ Kšœ	žœ˜%K˜ š
Ÿœžœžœžœžœ˜9K™!—K˜ K˜— …—    j  F  