-- Histogram.mesa

-- Interface to construct and present histograms

-- M. D. Schroeder, January 5, 1983 3:44 pm

DIRECTORY
  IO USING [ STREAM ],
  Rope USING [ ROPE ];

Histogram: CEDAR DEFINITIONS = BEGIN

Gram: TYPE = REF GramObject;
GramObject: TYPE;

NewGram: PROCEDURE [ first, last: CARDINAL ] RETURNS [ Gram ];

TooBig: ERROR;

DataPoint: PROCEDURE [ g: Gram, index: INT ];

Print: PROCEDURE [ g: Gram, s: IO.STREAM, title: Rope.ROPE ];

END...