DIRECTORY Rope USING [ROPE], UnixTapeOps USING [Density], PrintColor USING [ColorCorrection]; InterpressToTape: CEDAR DEFINITIONS ~ BEGIN ROPE: TYPE ~ Rope.ROPE; ColorCorrection: TYPE ~ PrintColor.ColorCorrection; IPSpec: TYPE = REF IPSpecRep; inchesPerMM: REAL = 0.3937008; mmPerInch: REAL = 25.4; IPSpecRep: TYPE = RECORD[ name: ROPE, --name of the Interpress file page: NAT, pixelsPerInch: NAT, --suggested values: 300 for Crosfield, 254 for Optronics fOrg: REAL, sOrg: REAL, -- fast origin (raster) and slow origin, in inches fDim: REAL, sDim: REAL, -- fastDimension (raster) and slowDimension, in inches surfaceUnitsPerPixel: NAT _ 5, -- controls averaging for ImagerSmooth; 1 for no smoothing colorCorrection: ColorCorrection _ NIL, --default this or see PrintColorTransformations achromatic: BOOLEAN _ FALSE ]; TapeSpec: TYPE = REF TapeSpecRep; TapeSpecRep: TYPE = RECORD [ note: ROPE, --ID field. Crosfield limits it to 20 characters, Optronics to 512 tapeNumber: NAT, --another form of ID serverName: ROPE, --make it "Palain" drive: NAT _ 0, --should always be 0 for Palain density: UnixTapeOps.Density _ GCR6250, tapeSize: NAT _ 2400 ]; Format: TYPE = {crosfield, optronics}; Sizes: TYPE = RECORD[name: ROPE, size: REAL]; --size is in feet of tape DefaultTapeSpec: PROC [name: ROPE, tapeNumber: NAT] RETURNS[TapeSpec]; DefaultIPSize: PROC [name: ROPE, page: NAT _ 1, tol: REAL _ 0.02] RETURNS [fOrg, sOrg, fDim, sDim: REAL]; SizeFromIPSpecs: PROC[files: LIST OF IPSpec, format: Format, tapeSpec: TapeSpec] RETURNS[sizes: LIST OF Sizes, total: REAL]; WriteTape: PROC [files: LIST OF IPSpec, format: Format, tapeSpec: TapeSpec]; InitCrosfieldTape: PROC [files: LIST OF IPSpec, tapeSpec: TapeSpec, rewindOnClose: BOOLEAN]; AddToCrosfieldTape: PROC[tapeSpec: TapeSpec, fileNumber: NAT, file: IPSpec, inPosition, rewindOnClose: BOOLEAN]; WillNotFit: SIGNAL; Preview: PROC [files: LIST OF IPSpec, wd: ROPE _ NIL, reduceResolution: REAL _ 0.25]; WriteAIS: PROC [files: LIST OF IPSpec, format: Format, wd: ROPE _ NIL, reduceResolution: REAL _ 0.25]; END. jInterpressToTape.mesa Copyright Ó 1987 by Xerox Corporation. All rights reserved. Maureen Stone, July 6, 1989 7:06:00 pm PDT Doug Wyatt, April 12, 1988 6:38:06 pm PDT Writes an Interpress master onto in raster form on a tape. Formats supported are Crosfield (for making color separations at Kedie Orent) and the Optronics (for making high resolution color film images). Common Types and Utilities The resulting raster will be fDim*pixelsPerInch by sDim*pixelsPerInch Important note on resolution: The Crosfield and Optronics formats only accept a small number of resolutions (see CrosfieldTape and OptronicsTape for more details). Uses UnixTapeOps which currently are only effective on the single drive (drive 0) on Palain. You must have valid credentials on Palain to use this package. Convenience procedure Renders the IP file through ImagerMaskCapture and returns the size to within a tolerance specified in inches. The bigger the tolerance the faster this will run. The returned box is guaranteed to be big enough. It's good to leave a little extra space around these images. Tells you whether the IP files listed will fit on the specified tape. Converters Writes the files specified on the tape in specified format format. List cannot be longer than 80, a generous limit given the typical file size. For building up Crosfield Tapes a file at a time Must include correct FileSpecs for every file that may appear on the tape. File numbers start at 1. Files must be added in the order specified in the master directory. tapeSpec should match the one used in the call to InitCrosfieldTape. If inPosition, assumes the tape is in the correct position for the new file. If rewindOnClose, will rewind before closing the tape Use SizeFromIPSpecs to determine how to prune the files list. As generating tapes and getting them processed takes a long time, it is important to be sure the correct bits are being written. Preview is used for checking position and windowing only. WriteAIS allows the more experience user to examine the CMYK or RGB density bytes produced by the different formats. For both routines, the the AIS files names will be generated by concatinating the nameSuffix with the root of the file name in the IPSpec. Typical use is to put all the AIS files in the same working directory. It is inconvenient to examine AIS files at the high resolutions used by the tape formats. reduceResolution reduces the resolution in the IPSpec by the indicated fraction. This routine previews the IPSpec to be sure it is accurately windowed by making three RGB intensity files. The colorCorrection field of the IPSpec is ignored. Uses exactly the same code for rasterization as WriteTape but puts the bytes in 3 or 4 AIS files. This is CMYK negative files for Crosfield format, and RGB density files (will look negative) for Optronics. Use Preview to produce files easily viewed for proofing. Ê±˜code•Mark outsideHeaderšœ™Kšœ<™šœ œœ˜Kšœœ C˜OKšœœ ˜%Kšœœ ˜$Kšœœ ˜/Kšœ'˜'Kšœ œ˜K˜—Kšœœ˜&Kš œœœœœ ˜HK˜š Ïnœœœœœ˜FK™—š¡ œœœœœ œœ˜iKšœ‘™‘—š¡œœœœ-œœœœ˜|K™E——™ K™Kšœ‘™‘Kš¡ œœ œœ-˜LK™K™0Kš ¡œœ œœ,œ˜\K™JKš¡œœ!œ+œ˜pK™]Kšœ2¡œ™DKšœL™LKšœ5™5K˜š¡ œœ˜Kšœ¡œ*™=—K˜Kšœ‚Ÿœ4ŸœÁ™†K™KšœY™YKšœP™PK™š¡œœ œœ œœœ ˜UKšœ¡™¡—š¡œœ œœœœœ ˜fKšœˆ™ˆ——Kšœ˜—…—-