<<>> <> <> <> <<>> <> DIRECTORY CtBasic, Imager, ImagerColor, ImagerPixelArray, ImagerSample, InterpressInterpreter, IO, Rope; <<>> CtFile: CEDAR DEFINITIONS ~ BEGIN RealPair: TYPE ~ CtBasic.RealPair; SampleMap: TYPE ~ CtBasic.SampleMap; SampleMaps: TYPE ~ CtBasic.SampleMaps; PixelArray: TYPE ~ CtBasic.PixelArray; Box: TYPE ~ Imager.Box; Context: TYPE ~ Imager.Context; STREAM: TYPE ~ IO.STREAM; ROPE: TYPE ~ Rope.ROPE; FileType: TYPE = {bad, ip, bw, color}; FileInfo: TYPE ~ RECORD [type: FileType, names: ARRAY [0..3) OF ROPE ¬ ALL[NIL]]; Error: ERROR [reason: ROPE]; <> WriteMapsToAIS: PROC [maps: SampleMaps, name: ROPE, stream: STREAM ¬ NIL]; <> <> <<>> SaveSampleMapToFile: PROC [source: SampleMap, aisFileName: ROPE, comment: ROPE ¬ NIL]; <> <> ReadFile: PROC [ baseName: ROPE, aisX, aisY: CARDINAL ¬ 0, aisW, aisH: CARDINAL ¬ LAST[CARDINAL], maps: SampleMaps ¬ NIL] RETURNS [SampleMaps]; <> <> <<>> Read8BitFile: PROC [ name: ROPE, aisX, aisY: CARDINAL ¬ 0, aisW, aisH: CARDINAL ¬ LAST[CARDINAL], maps: SampleMaps ¬ NIL] RETURNS [SampleMaps]; <> <> Read24BitFile: PROC [ rName, gName, bName: ROPE, aisX, aisY: CARDINAL ¬ 0, aisW, aisH: CARDINAL ¬ LAST[CARDINAL], maps: SampleMaps ¬ NIL] RETURNS [SampleMaps]; <> <> <<>> ReadPixelArray: PROC [aisFileName: ROPE] RETURNS [PixelArray]; <> <> ReadDumpFile: PROC [ fileName: ROPE, maps: SampleMaps ¬ NIL, ascii: BOOL ¬ FALSE, nChannels: NAT ¬ 0, width, height: NAT ¬ 0, contiguous: BOOL ¬ TRUE] RETURNS [SampleMaps]; <> <> <> <<3 integers (the number of 8 bit channels, the width and height of the image).>> <> <<16 bit header information (if any) and 8 bit pixel values.>> <> <<(rrr...ggg...bbb...), depending on the contiguous argument.>> <> ViewFile: PROC [ maps: SampleMaps, baseName: ROPE, center, noPlace: BOOL ¬ FALSE, aisX, aisY: CARDINAL ¬ 0, aisW, aisH: CARDINAL ¬ LAST[CARDINAL]] RETURNS [error: ROPE]; <> < {Foo-red.ais, Foo-grn(or green).ais, Foo-blu(or blue).ais}>> < Foo.ais>> <> <> <> <> View8BitFile: PROC [ maps: SampleMaps, name: ROPE, center, noPlace: BOOL ¬ FALSE, aisX, aisY: CARDINAL ¬ 0, aisW, aisH: CARDINAL ¬ LAST[CARDINAL]] RETURNS [error: ROPE]; <> <> <> <> <> <<>> View24BitFile: PROC [ maps: SampleMaps, rName, gName, bName: ROPE, center, noPlace: BOOL ¬ FALSE, aisX, aisY: CARDINAL ¬ 0, aisW, aisH: CARDINAL ¬ LAST[CARDINAL]] RETURNS [error: ROPE]; <> <> <> <> <> Display: PROC [ context: Context, pa: ImagerPixelArray.PixelArray, op: ImagerColor.ColorOperator, center: BOOL ¬ TRUE]; <> <<>> ViewDitherFile: PROC [fileName: ROPE, context: Context, center, cmapInit: BOOL] RETURNS [error: ROPE]; <> <> <> ViewGrayFile: PROC [fileName: ROPE, context: Context, center, cmapInit: BOOL] RETURNS [error: ROPE]; <> <> <> ViewColorFiles: PROC [r, g, b: ROPE, center, cmapInit: BOOL ¬ TRUE] RETURNS [error: ROPE]; <> <> LogError: InterpressInterpreter.LogProc; <> <<>> OpenInterpress: PROC [name: ROPE] RETURNS [master: InterpressInterpreter.Master]; ViewIpFile: PROC [ name: ROPE, scale: RealPair ¬ [1.0, 1.0], shift: RealPair ¬ [0.0, 0.0], cmapInit: BOOL ¬ TRUE] RETURNS [error: ROPE]; <> <> <> GetColorAISNames: PROC [name: ROPE] RETURNS [ARRAY [0..3) OF ROPE]; <> <> <> <<[NIL, NIL, NIL] is returned if the appropriate files do not exits. >> <<>> Parse: PROC [fileName: ROPE] RETURNS [FileInfo]; <> <> <> END.