<<>> install interpresstotape run producetapesimpl pinstall interpress install CalibratedColor run -a ColorPlotGamutsImpl pinstall userprofileops pinstall AIS install SampleCache run SampleRefCacheImpl run PrintColorXFormsImpl run TRCDataImpl run ImageGamutsImpl interpreter &sampledCal _ CreateCalibration.CreateSampled[CreateCalibration.GetSampledFiles[$Cromalin], $Cromalin] &rgbCal _ CreateCalibration.CreateRGB[CreateCalibration.GetRGBDataValues[$Conrac]] --&rgbtolstar _ PrintColorTransformations.RGBToLStar[] &rgbtolstar _ TRCDataImpl.RGBToLStarTRCTable[$Ideal] &rgbtolstar _ TRCDataImpl.RGBToLStarTRCTable[$FranksConrac] &rgbtolstar _ TRCDataImpl.RGBToLStarTRCTable[$FranksOldConrac] &aisRoot _ "///Users/tow.pa/images/ZebraBurlTeapot400x300" &tables _ ImageGamuts.SaturationMatrix[&rgbtolstar, 0.05, 1.7] &tables _ ImageGamuts.SaturationMatrix[&rgbtolstar, 0.10, 1.7] &tables _ ImageGamuts.SaturationMatrix[&rgbtolstar, 0.15, 1.7] &tables _ ImageGamuts.SaturationMatrix[&rgbtolstar, 0.20, 1.7] &tables _ ImageGamuts.SaturationMatrix[&rgbtolstar, 0.05, 1.7] ImageGamuts.AdjustWithMatrix[fileStem: &aisRoot, adjusted: "///Users/tow.pa/Chromalins/FranksOldConracTRC/Sat05/Teapot", matrixTables:&tables] &tables _ ImageGamuts.SaturationMatrix[&rgbtolstar, 0.10, 1.7] ImageGamuts.AdjustWithMatrix[fileStem: &aisRoot, adjusted: "///Users/tow.pa/Chromalins/FranksOldConracTRC/Sat10/Teapot", matrixTables:&tables] &tables _ ImageGamuts.SaturationMatrix[&rgbtolstar, 0.15, 1.7] ImageGamuts.AdjustWithMatrix[fileStem: &aisRoot, adjusted: "///Users/tow.pa/Chromalins/FranksOldConracTRC/Sat15/Teapot", matrixTables:&tables] &tables _ ImageGamuts.SaturationMatrix[&rgbtolstar, 0.20, 1.7] ImageGamuts.AdjustWithMatrix[fileStem: &aisRoot, adjusted: "///Users/tow.pa/Chromalins/FranksOldConracTRC/Sat20/Teapot", matrixTables:&tables] <<4 up>> &ipName _ "///Users/tow.pa/Chromalins/Tpot4upOldConracTRC.ip" ProduceTapesImpl.IPFromFourAIS[ipName: &ipName, aisSpecs:[["///Users/tow.pa/Chromalins/FranksOldConracTRC/Sat05/Teapot", "Franks Old Conrac TRC, Saturation 0.5"], ["///Users/tow.pa/Chromalins/FranksOldConracTRC/Sat10/Teapot", "Franks Old Conrac TRC, Saturation 1.0"], ["///Users/tow.pa/Chromalins/FranksOldConracTRC/Sat15/Teapot", "Franks Old Conrac TRC, Saturation 1.5"], ["///Users/tow.pa/Chromalins/FranksOldConracTRC/Sat20/Teapot", "Franks Old Conrac TRC, Saturation 2.0"]], aisEndings: ProduceTapesImpl.redGrnBlu, onSide: FALSE, xPitch: 2.5, yPitch: 2, aisWidth: 2.5, xOffset: 0, yOffset: 0]; --&Scene4up _ ProduceTapesImpl.MakeTapeSpec[name: &ipName, fDim:2.5, sDim: 2, surfaceUnitsPerPixel: 2, colorCorrection: PrintColorTransformations.SWOPWithGCLinearLStar[]] &Scene4up _ ProduceTapesImpl.MakeIPSpec[name: &ipName, fOrg: 0, sOrg: 0, fDim: 0, sDim: 0, surfaceUnitsPerPixel: 2, colorCorrection: PrintColorTransformations.SWOPWithGCLinearLStar[], ppi: 300, achromatic: FALSE] &Scene4up.nBands _ 2 InterpressToTapeImpl.Preview[files: LIST[&Scene4up], wd: "///Users/tow.pa/Chromalins/FranksOldConracTRC/Preview/", reduceResolution: 0.1] --InterpressToTapeImpl.InterpressToCrosfield[files: LIST[&Scene4up], drive: 0, tapeName: "Scene4up", tapeNumber: 104] &tapeSpec _ InterpressToTape.DefaultTapeSpec[name: "Zebra Burl teapot", tapeNumber: 104] InterpressToTapeImpl.WriteTape[files: LIST[&Scene4up], format: crosfield, tapeSpec: &tapeSpec]