DIRECTORY AISFileFormat, ImagerSample, Rope; AISIO: CEDAR DEFINITIONS ~ BEGIN ROPE: TYPE ~ Rope.ROPE; SampleMap: TYPE ~ ImagerSample.SampleMap; SampleBuffer: TYPE ~ ImagerSample.SampleBuffer; Photometry: TYPE ~ REF AISFileFormat.PhotometryPart; Placement: TYPE ~ REF AISFileFormat.PlacementPart; Raster: TYPE ~ REF AISFileFormat.RasterPart; UCACoding: TYPE ~ REF AISFileFormat.UCACoding; Info: TYPE ~ REF InfoRep; InfoRep: TYPE ~ RECORD [ rasterOffset: INT ¬ 0, raster: Raster ¬ NIL, uca: UCACoding ¬ NIL, placement: Placement ¬ NIL, photometry: Photometry ¬ NIL, comments: LIST OF ROPE ¬ NIL, error: ROPE ¬ NIL ]; Error: ERROR [reason: ROPE]; ReadInfo: PROC [name: ROPE] RETURNS [Info]; Read: PROC [name: ROPE, info: Info ¬ NIL] RETURNS [map: SampleMap ¬ NIL]; Write: PUBLIC PROC [ name: ROPE, map: SampleMap, placement: Placement ¬ NIL, photometry: Photometry ¬ NIL, comments: LIST OF ROPE ¬ NIL]; NewSampleMap: PROC [scanCount: CARDINAL, scanLength: CARDINAL, bitsPerPixel: [0..8] ¬ 8] RETURNS [map: SampleMap]; ReadSample: PROC [map: SampleMap, line, pixel: CARDINAL] RETURNS [value: CARDINAL]; WriteSample: PROC [map: SampleMap, value: CARDINAL, line, pixel: CARDINAL]; ReadLine: PROC [map: SampleMap, buffer: SampleBuffer, line: CARDINAL]; WriteLine: PROC [map: SampleMap, buffer: SampleBuffer, line: CARDINAL]; END. H AISIO.mesa Copyright Σ 1985, 1992 by Xerox Corporation. All rights reserved. Bloomenthal, December 29, 1990 5:19 pm PST Maureen Stone, March 28, 1991 3:40 pm PST Return a sample map from the named AIS file. If info # NIL, overwrite its contents with placement, photometry or comment, if in file. !Error Write the sample map to the named AIS file, including any optionally specified information. Convenience procs for converters Makes a SampleMap for a new AIS file Calls ImagerSample.Get Calls ImagerSample.Put Calls ImagerSample.GetSamples Calls ImagerSample.PutSamples ΚΗ–(cedarcode) style•NewlineDelimiter ™™ Jšœ Οeœ6™BJ™*J™)J™—IcodešΟk œ#˜,J™KšΠblœžœž ˜šœž˜K˜Kšžœžœžœ˜Kšœ žœ˜)Kšœ žœ˜/Kšœ žœžœ˜4Kšœ žœžœ˜2Kšœžœžœ˜-šœ žœžœ˜.K˜—Kšœžœžœ ˜šœžœžœ˜Kšœžœ˜Kšœ žœ žœ˜Kšœžœ˜Kšœžœ˜Kšœžœ˜Kšœ žœžœžœž˜Kšœ žœž˜K˜K˜—šΟnœžœ žœ˜K˜—š œžœžœžœ˜+K˜—š  œžœžœžœžœžœ˜IJ™,Jšœ ΟsœK™XJ™J™—š œžœžœ˜Kšœžœ˜ Kšœ˜Kšœžœ˜Kšœžœ˜Kš œ žœžœžœžœ˜J™[——headšΟl ™ K™š   œžœ žœžœžœ˜rK™$—š   œžœžœžœžœ˜SJ™—š  œžœžœžœ˜KJ™——˜š œžœ-žœ˜FJ™—š  œžœ-žœ˜GJ™——K˜Kšžœ˜—…—N ]