<<>> 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/IDealTRC/Sat05/Teapot", matrixTables:&tables] &tables _ ImageGamuts.SaturationMatrix[&rgbtolstar, 0.10, 1.7] ImageGamuts.AdjustWithMatrix[fileStem: &aisRoot, adjusted: "///Users/tow.pa/Chromalins/IDealTRC/Sat10/Teapot", matrixTables:&tables] &tables _ ImageGamuts.SaturationMatrix[&rgbtolstar, 0.15, 1.7] ImageGamuts.AdjustWithMatrix[fileStem: &aisRoot, adjusted: "///Users/tow.pa/Chromalins/IDealTRC/Sat15/Teapot", matrixTables:&tables] &tables _ ImageGamuts.SaturationMatrix[&rgbtolstar, 0.20, 1.7] ImageGamuts.AdjustWithMatrix[fileStem: &aisRoot, adjusted: "///Users/tow.pa/Chromalins/IDealTRC/Sat20/Teapot", matrixTables:&tables] <<4 up>> &ipName _ "///Users/tow.pa/Chromalins/Teapot4up.ip" ProduceTapesImpl.IPFromFourAIS[ipName: &ipName, aisSpecs:[["///Users/tow.pa/Chromalins/IDealTRC/Sat05/Teapot", "Ideal TRC, Saturation 0.5"], ["///Users/tow.pa/Chromalins/IDealTRC/Sat10/Teapot", "Ideal TRC, Saturation 1.0"], ["///Users/tow.pa/Chromalins/IDealTRC/Sat15/Teapot", "Ideal TRC, Saturation 1.5"], ["///Users/tow.pa/Chromalins/IDealTRC/Sat20/Teapot", "Ideal TRC, Saturation 2.0"]], aisEndings: ProduceTapesImpl.redGrnBlu, onSide: FALSE, xPitch: 7, yPitch: 6, aisWidth: 5, xOffset: 0.25, yOffset: 0.25]; --&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/IDealTRC/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]