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]