ImagerDeviceImpl.mesa
Last Edited by: Crow, June 18, 1983 10:39 am
DIRECTORY
ImagerBasic USING [ImagingDevice, DeviceProcs],
Imager  USING [Context];
ImagerDeviceImpl: CEDAR PROGRAM
IMPORTS
EXPORTS Imager
= BEGIN OPEN ImagerBasic;
Client-called Procedures
RegisterDevice: PUBLIC PROC [name: ImagingDevice, procs: DeviceProcs] = {
-- Atom.PutProp[imagingDevice, deviceClassProp, NEW[DeviceClassRec ← [initializationProcedure, deviceParameters, procs]]];
};
EnumerateRegisteredDevices: PUBLIC PROC [] RETURNS [LIST OF ImagingDevice] = {
RETURN [ NIL ];
};
SetDevice: PUBLIC PROC [context: Context, device: ImagingDevice] = {};
This affects only the device transforms, clipping, etc.
GetDevice: PUBLIC PROC [context: Context] RETURNS [ImagingDevice] = {
RETURN [ context.device ];
};
Unpublicized Procedures
Internal Procedures
END.