<> <> <> 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.