DIRECTORY ImagerBasic USING [Context, SourceRecord, RGBValue, AISFile, DeviceProcs], Imager; ImagerSourceImpl: CEDAR PROGRAM IMPORTS EXPORTS Imager = BEGIN OPEN ImagerBasic; SetSource: PUBLIC PROC [context: Context, source: SourceRecord] = { context.currentSource _ source; }; GetSource: PUBLIC PROC [context: Context] RETURNS [SourceRecord] = { RETURN [ context.currentSource]; }; SourceFromColor: PUBLIC PROC [context: Context, color: RGBValue] RETURNS [SourceRecord] = { source: SourceRecord; source.type _ constant; source.color _ color; source.pxlValue _ context.deviceProcs.RGBtoPixel[color]; source.samples _ NIL; RETURN [ source ]; }; SourceFromImage: PUBLIC PROC [context: Context] RETURNS [SourceRecord] = { source: SourceRecord; source.type _ pixelarray; source.samples _ NIL; -- to be continued... RETURN [ source ]; }; SourceFromAIS: PUBLIC PROC [file: AISFile] RETURNS [SourceRecord] = { source: SourceRecord; source.type _ sampled; source.samples _ NIL; -- to be continued... RETURN [ source ]; }; END. ŒImagerSourceImpl.mesa Last Edited by: Crow, May 31, 1983 3:17 pm Client-called Procedures Unpublicized Procedures Internal Procedures Κˆ˜headšœ™J™*unitšΟk œ˜ JšœK˜KJšœ˜——šœ ˜Jšœ˜Jšœ˜Jšœœœ ˜—™šΟn œ œ-˜CJšœ˜Jšœ˜—šž œ œœ˜DJšœ˜ Jšœ˜—šžœ œ%œ˜[Jšœ˜Jšœ˜Jšœ˜Jšœ8˜8Jšœœ˜Jšœ ˜Jšœ˜—šžœœœœ˜JJšœ˜Jšœ˜JšœœΟc˜-Jšœ ˜Jšœ˜—šž œ œœ˜EJšœ˜Jšœ˜JšœœŸ˜-Jšœ ˜J˜——K™K™Jšœ˜—…—