<> <> <> <> <<>> DIRECTORY Atom USING [PropList], Imager USING [Context, ClassRep], ImagerCache USING [Ref], ImagerDevice USING [Device, DeviceBox], ImagerPixelMap USING [PixelMap], Terminal USING [Virtual]; ImagerRaster: CEDAR DEFINITIONS ~ BEGIN Context: TYPE ~ Imager.Context; Device: TYPE ~ ImagerDevice.Device; DeviceBox: TYPE ~ ImagerDevice.DeviceBox; <> Create: PROC [device: Device, pixelUnits: BOOL _ FALSE, fontCache: ImagerCache.Ref _ NIL, rastWeight: REAL _ 1.0, fontTuner: FontTuner _ NIL, class: REF Imager.ClassRep _ NIL ] RETURNS [Context]; <> <> <> NewBitmapDevice: PROC [frame: ImagerPixelMap.PixelMap, pixelsPerInch: REAL _ 72] RETURNS [Device]; NewGrayDevice: PROC [terminal: Terminal.Virtual] RETURNS [Device]; NewColorMapDevice: PROC [terminal: Terminal.Virtual, bpp: NAT _ 8] RETURNS [Device]; NewColor24Device: PROC [terminal: Terminal.Virtual] RETURNS [Device]; <> AmbushDevice: PROC [ambusher: Ambusher] RETURNS [Device]; <> Ambusher: TYPE ~ REF AmbusherRep; AmbusherRep: TYPE ~ RECORD [ maskProc: PROC [self: Ambusher, box: DeviceBox, action: PROC], <> device: Device, data: REF ]; <> FontTuner: TYPE ~ REF FontTunerRep; FontTunerRep: TYPE ~ RECORD [ proc: FontTunerProc, data: REF, propList: Atom.PropList ]; FontTunerProc: TYPE ~ PROC [self: FontTuner, charProc: PROC[Context], context: Context]; <> <<>> <> CreateClass: PROC [type: ATOM] RETURNS [REF Imager.ClassRep]; <> END.