install interpresstotape

run ProduceTapesImpl

← &cc ← PrintColorTransformations.LuminanceToDotArea[255,255];

← &cmyk ← ProduceTapesImpl.MakeIPSpec[name: "///7.0/coloroffset/cmyk.ip", fOrg: 0, sOrg:0, fDim: 0, sDim:0, surfaceUnitsPerPixel: 3, colorCorrection: &cc, ppi: 300, colorType: rgbInterleaved] --ignores colorType

← InterpressToTape.WriteAIS[files: LIST[&cmyk],format: crosfield, wd: "///temp/", reduceResolution: 0.25]

← &cmyk ← ProduceTapesImpl.MakeIPSpec[name: "///7.0/coloroffset/cmyk.ip", fOrg: 0, sOrg:0, fDim: 0, sDim:0, surfaceUnitsPerPixel: 3, colorCorrection: NIL, ppi: 300, colorType: rgbInterleaved] --ignores colorType

← &cmyktest ← ProduceTapesImpl.MakeIPSpec[name: "///7.0/coloroffset/cmyktest.ip", fOrg: 0, sOrg:0, fDim: 0, sDim:0, surfaceUnitsPerPixel: 3, colorCorrection: NIL, ppi: 300, colorType: rgbInterleaved] --ignores colorType

← &tapeSpec ← InterpressToTape.DefaultTapeSpec[name: "Test", tapeNumber: 102]

← InterpressToTape.InitCrosfieldTape[files: LIST[&cmyk, &cmyktest], tapeSpec: &tapeSpec, rewindOnClose: FALSE]

← InterpressToTape.AddToCrosfieldTape[tapeSpec: &tapeSpec, fileNumber: 1, file: &cmyk, inPosition: TRUE, rewindOnClose: FALSE]

← InterpressToTape.AddToCrosfieldTape[tapeSpec: &tapeSpec, fileNumber: 2, file: &cmyktest, inPosition: TRUE, rewindOnClose: TRUE]

← InterpressToTape.InitCrosfieldTape[files: LIST[&cmyk, &cmyktest], tapeSpec: &tapeSpec, rewindOnClose: TRUE]

← InterpressToTape.AddToCrosfieldTape[tapeSpec: &tapeSpec, fileNumber: 1, file: &cmyk, inPosition: FALSE, rewindOnClose: TRUE]

← InterpressToTape.AddToCrosfieldTape[tapeSpec: &tapeSpec, fileNumber: 2, file: &cmyktest, inPosition: FALSE, rewindOnClose: TRUE]

← InterpressToTape.WriteTape[files: LIST[&cmyk, &cmyktest], format: crosfield, tapeSpec: &tapeSpec];

← &tapeSpec ← InterpressToTape.DefaultTapeSpec[name: "Test", tapeNumber: 102]

← &cmyk ← ProduceTapesImpl.MakeIPSpec[name: "///7.0/coloroffset/cmyk.ip", fOrg: 0, sOrg:0, fDim: 0, sDim:0, surfaceUnitsPerPixel: 1, colorCorrection: NIL, ppi: 254, colorType: rgbInterleaved]

← InterpressToTape.WriteTape[files: LIST[&cmyk], format: optronics, tapeSpec: &tapeSpec];

← &cmyk ← NEW[InterpressToTape.IPSpecRep ← [name: "///7.0/coloroffset/cmyk.ip", page: 1, pixelsPerInch: 300, fOrg: 0, sOrg: 0, fDim: 1, sDim: 0.25, surfaceUnitsPerPixel: 1, colorCorrection: PrintColorTransformations.SWOPLinearDotArea[], colorType: rgbInterleaved]]

← &cmykTest ← NEW[InterpressToTape.IPSpecRep ← [name: "///7.0/coloroffset/cmykTest.ip", page: 1, pixelsPerInch: 300, fOrg: 0, sOrg: 0, fDim: 2, sDim: 0.75, surfaceUnitsPerPixel: 1, colorCorrection: PrintColorTransformations.SWOPLinearDotArea[], colorType: rgbInterleaved]]

← &testWedges ← NEW[InterpressToTape.IPSpecRep ← [name: "///7.0/convertToRaster/testWedges.ip", page: 1, pixelsPerInch: 300, fOrg: 0.4, sOrg: 2.23, fDim: 7, sDim: 3.4, surfaceUnitsPerPixel: 1, colorCorrection: PrintColorTransformations.SWOPLinearDotArea[], colorType: rgbInterleaved]]

← &cmyk ← NEW[InterpressToTape.IPSpecRep ← [name: "///7.0/coloroffset/cmyk.ip", page: 1, pixelsPerInch: 254, fOrg: 0, sOrg: 0, fDim: 1, sDim: 0.25, surfaceUnitsPerPixel: 1, colorCorrection: PrintColorTransformations.SWOPLinearDotArea[], colorType: rgbInterleaved]]

← &rgbTest ← NEW[InterpressToTape.IPSpecRep ← [name: "///7.0/interpresstotape/RGBTest.ip", page: 1, pixelsPerInch: 254, fOrg: 0, sOrg: 0, fDim: 2.5, sDim: 1.5, surfaceUnitsPerPixel: 1, colorCorrection: NIL, colorType: rgbInterleaved]]

← InterpressToTape.Preview[files: LIST[&cmykTest], wd: "///7.0/test/preview/", reduceResolution: 0.25]

pvredgrnblu []<>7.0>test>rgbTest

← InterpressToTape.WriteAIS[files: LIST[&cmyk], format: crosfield, wd: "///7.0/test/", reduceResolution: 0.25]

← InterpressToTape.WriteAIS[files: LIST[&rgbTest], format: optronics, wd: "///7.0/test/", reduceResolution: 0.25]

← InterpressToTape.DefaultIPSize["///7.0/convertToRaster/testWedges.ip", 1, 0.001]

← &tapeSpec ← InterpressToTape.DefaultTapeSpec[name: "rgbTest, cmyk", tapeNumber: 1]

← InterpressToTape.WriteTape[files: LIST[&rgbTest, &cmyk], format: optronics, tapeSpec: &tapeSpec];

← InterpressToTape.WriteTape[files: LIST[&cmyk, &cmykTest], format: crosfield, tapeSpec: &tapeSpec];

← &tape ← UnixTapeOps.OpenDrive[serverName: "Chroma", driveNumber: 0, density: GCR6250, rewind: TRUE, closeOnError: TRUE];

← CrosfieldTape.ReadTapeIdentity[&tape];

← CrosfieldTape.ReadMasterDirectory[&tape];

← CrosfieldTape.ReadFile[&tape, 1];

← CrosfieldTape.ReadFile[&tape, 2];

← CrosfieldTape.ReadFile[&tape, 3];

← CrosfieldTape.FileTo4AIS[&tape, 1, "///7.0/test/tape/cmyk", CrosfieldTape.CrosfieldToByte, 4];

← CrosfieldTape.FileTo4AIS[&tape, 2, "///7.0/test/tape/cmykTest", CrosfieldTape.CrosfieldToByte, 4];

← UnixTapeOps.CloseDrive[&tape]

← OptronicsTape.FileToAIS[&tape, 2, rgbInterleaved, "///7.0/test/tape/optronicsCMYK", TRUE, 4]

run OptronicsTapeImpl

run CrosfieldTapeImpl

run -a InterpressToTapeImpl

Read scanned optronics tape

← &tape ← UnixTapeOps.OpenDrive[serverName: "Chroma", driveNumber: 0, density: GCR6250, rewind: TRUE, closeOnError: TRUE];

← OptronicsTape.FileToAIS[&tape, 1, rgb, "///7.0/test/tape/birds", 4]

← UnixTapeOps.CloseDrive[&tape]