Compiler ControllerDefs
Stone, for ExpungeStyles, May 2, 1981 12:30 PM
Dawson, June 5, 1979 8:51 AM
Tiberi, November 6, 1979 3:05 AM
interface module for griffin file controllers
Last Edited by: Stone, January 19, 1983 3:49 pm
---------------------------------------------------------------------------------
---------------------------------------------------------------------------------
ControllerDefs: CEDAR DEFINITIONS =
BEGIN
HardcopyController:
TYPE=
RECORD[hxcenter, hycenter, hwidth, hheight:
REAL,
pressxcenter, pressycenter: CARDINAL, hscale: REAL];
DisplayController:
TYPE=
RECORD[dxcenter, dycenter, dwidth, dheight:
CARDINAL,
dxscale, dyscale, dxorigin, dyorigin: REAL,
dgridsize: CARDINAL];
SetHardcopyController: PROCEDURE [HardcopyController];
SetDisplayController: PROCEDURE [DisplayController];
ReadDisplayController: PROCEDURE RETURNS [DisplayController];
ReadHardcopyController: PROCEDURE RETURNS [HardcopyController];
DefaultControllers: PROCEDURE;
ForAllControlPairs:
PROCEDURE [
PROCEDURE [h, s, v: [0 .. 255], grey: [0 .. 255]]];
Because the file format expects it.
Was originally intended to give the user control over the stipple patterns.
This procedure currently enumerates only one pair, ([0,0,0],0)
ControllerError: SIGNAL;
END.