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