DIRECTORY ImagerBasic USING [ImagingDevice, DeviceProcs], Imager USING [Context]; ImagerDeviceImpl: CEDAR PROGRAM IMPORTS EXPORTS Imager = BEGIN OPEN ImagerBasic; 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] = {}; GetDevice: PUBLIC PROC [context: Context] RETURNS [ImagingDevice] = { RETURN [ context.device ]; }; END. ΖImagerDeviceImpl.mesa Last Edited by: Crow, June 18, 1983 10:39 am Client-called Procedures This affects only the device transforms, clipping, etc. Unpublicized Procedures Internal Procedures Κ˜headšœ™J™,unitšΟk ˜ Jšœ œ˜/Jšœœ ˜——šœ ˜Jšœ˜Jšœ˜J˜Jšœœœ ˜—™šΟnœ œ.˜IJšœ0œG˜zJšœ˜—š žœ œœœœ˜NJšœœ˜Jšœ˜—šž œ œ0˜FJ™7—šž œ œœ˜EJšœ˜Jšœ˜——K™K™Jšœ˜—…—‚X