ImagerStandardDevices.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Doug Wyatt, May 21, 1985 0:39:26 am PDT
DIRECTORY
ImagerDevice USING [Device],
ImagerPixelMap USING [PixelMap],
Terminal USING [Virtual];
ImagerStandardDevices: CEDAR DEFINITIONS
~ BEGIN
Device: TYPE ~ ImagerDevice.Device;
NewBitmapDevice:
PROC [frame: ImagerPixelMap.PixelMap, pixelsPerInch:
REAL ← 72]
RETURNS [Device];
NewGrayDevice:
PROC [terminal: Terminal.Virtual]
RETURNS [Device];
NewColor24Device:
PROC [terminal: Terminal.Virtual]
RETURNS [Device];
END.