<> <> <> <> <> <> <<--------------------------------------------------------------------------------->> <<--------------------------------------------------------------------------------->> 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]]]; <> <> <> ControllerError: SIGNAL; END.