DIRECTORY ImagerBasic USING [Context, ImagingDevice, DeviceProcs], Imager; 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, May 28, 1983 7:31 pm 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šœ˜—…—|L