Averagers.Mesa
Spreitzer, June 16, 1986 5:10:49 pm PDT
DIRECTORY Rope, ViewerClasses;
Averagers:
CEDAR
DEFINITIONS = {
ROPE: TYPE = Rope.ROPE;
Viewer: TYPE = ViewerClasses.Viewer;
Seconds: TYPE = INT;
Averager: TYPE = REF AveragerPrivate;
AveragerPrivate: TYPE;
Create:
PROC
[
viewerInfo: ViewerClasses.ViewerRec ← [],
name: ROPE,
nameWidth: INT,
halfLife: Seconds,
logMin, logMax: INT,
initialValue: REAL ← 0.0
]
RETURNS [Averager];
AddSample: PROC [a: Averager, amount: REAL];
AsViewer: PROC [Averager] RETURNS [Viewer];
}.