<> <> 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.