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. BCompiler 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 --------------------------------------------------------------------------------- --------------------------------------------------------------------------------- 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) Ęb˜J˜Jšœ™Jšœ/™/Jšœ™Jšœ!™!Jšœ-™-Jšœ/™/J˜J˜JšœQ™QJšœQ™QJšœĎkœ˜$J˜Jšœ˜J˜šœœœ&œ˜KJšœœ œ˜4—J˜šœœœ&œ˜MJšœ&œ˜+Jšœ œ˜—J˜JšĎnœ œ˜6J˜Jšžœ œ˜4J˜Jšžœ œœ˜=J˜Jšžœ œœ˜?J˜Jšžœ œ˜J˜šžœ œ œ*˜RJ™#J™KJ™>—J˜Jšœœ˜J˜Jšœ˜J˜J˜J˜J˜—…—Ęn