Color Plates for the two images and their plots (Plate VI-XI)
Maureen Stone, February 13, 1989 11:28:41 pm PST
cdv exeter
pushv ///7.0/interpresstotape
bringover /pixel/stone/top/newinterpresstotape
install interpresstotape
run producetapesimpl
pop
For Interpress Files
← &page1 ← ProduceTapesImpl.MakeIPSpec[name: "DeviceGamuts.ip", fOrg: 0, sOrg:0, fDim: 0, sDim:0, surfaceUnitsPerPixel: 3, colorCorrection: NIL, ppi: 300, colorType: rgbInterleaved] --ignores colorType
← &page2 ← ProduceTapesImpl.MakeIPSpec[name: "ImageGamuts.ip", fOrg: 0, sOrg:0, fDim: 0, sDim:0, surfaceUnitsPerPixel: 3, colorCorrection: NIL, ppi: 300, colorType: rgbInterleaved]
← &page3 ← ProduceTapesImpl.MakeIPSpec[name: "DaliFigs.ip", fOrg: 0, sOrg:0, fDim: 0, sDim:0, surfaceUnitsPerPixel: 3, colorCorrection: NIL, ppi: 300, colorType: rgbInterleaved]
← &page4 ← ProduceTapesImpl.MakeIPSpec[name: "SceneFigs.ip", fOrg: 0, sOrg:0, fDim: 0, sDim:0, surfaceUnitsPerPixel: 3, colorCorrection: NIL, ppi: 300, colorType: rgbInterleaved]
← &tapeSpec ← InterpressToTape.DefaultTapeSpec[name: "4 Pages", tapeNumber: 102]
← &list ← ProduceTapesImpl.MakeIPList[&page1, &page2, &page3, &page4]
← InterpressToTape.SizeFromIPSpecs[&list, crosfield, &tapeSpec]
← InterpressToTape.WriteTape[files: &list, format: crosfield, tapeSpec: &tapeSpec];
For the steel mill, set the width to the correct size.
← &steelmill ← ProduceTapesImpl.MakeIPSpecFromAIS[aisRoot: "///7.0/siggraph88/final/CornellSteelMill", ipDir: "///7.0/Exeter/final/", note: NIL, aisPPI: 150, outPPI: 300, width: 0, colorCorrection: PrintColorTransformations.SWOPWithGCLinearLStar[], colorType: rgbInterleaved];
For AIS files
← &dali ← ProduceTapesImpl.MakeIPSpecFromAIS[aisRoot: "///7.0/Exeter/1.2/DaliVases", ipDir: "///7.0/Exeter/final/", note: NIL, aisPPI: 0, outPPI: 300, width: 4, colorCorrection: PrintColorTransformations.SWOPWithGCLinearLStar[], colorType: rgbInterleaved];
← &dali.surfaceUnitsPerPixel ← 3
← &scene ← ProduceTapesImpl.MakeIPSpecFromAIS[aisRoot: "///7.0/Exeter/1.2/Scene", ipDir: "///7.0/Exeter/final/", note: NIL, aisPPI: 0, outPPI: 300, width: 5, colorCorrection: PrintColorTransformations.SWOPWithGCLinearLStar[], colorType: rgbInterleaved];
← &scene.surfaceUnitsPerPixel ← 3
← &tapeSpec ← InterpressToTape.DefaultTapeSpec[name: "dali, scene", tapeNumber: 104]
← InterpressToTape.WriteTape[files: LIST[&dali, &scene], format: crosfield, tapeSpec: &tapeSpec];
Pushv InterpressToTape; install Interpresstotape; pop;
install ImageGamuts
Interpreter
&sgf[ImageGamutsImpl];
&sampledCal ← CreateCalibration.CreateSampled[CreateCalibration.GetSampledFiles[$Cromalin], $Cromalin]
&rgbCal ← CreateCalibration.CreateRGB[CreateCalibration.GetRGBDataValues[$Cornell]]
&rgbtolstar ← PrintColorTransformation.RGBToLStar[&rgbCal];
&aisRoot ← "[pixel]<SIGGRAPH>waterlooimages>DaliVases"
&pi ← GetPlotInfo[aisRoot: &aisRoot, ipRoot: "///7.0/Exeter/Plots/DaliVasesMonitor", note: "Dali Vases, Monitor", res: 256, rgbCal: &rgbCal, sampledCal: &sampledCal, labelColor: Imager.black, bleedBackground: TRUE];
&mapInfo ← GetMonitorMapInfo[&rgbCal];
Make3LABViews[&pi, &mapInfo]
&aisRoot ← "///7.0/waterlooimages>DaliVases"
&pi ← GetPlotInfo[aisRoot: &aisRoot, ipRoot: "///7.0/Exeter/Plots/DaliVases1.2Printer", note: "Dali Vases, Printer (1.2)", res: 256, rgbCal: &rgbCal, sampledCal: &sampledCal, labelColor: Imager.black, bleedBackground: FALSE];
&tables ← SaturationMatrix[&rgbtolstar, 0.1, 1.7]
&mapInfo ← GetPrinterMapInfo[&tables, &sampledCal];
&pi.note ← "Dali Vases, Printer (1.2)"
&pi.ipRoot ← "///7.0/Exeter/Plots/DaliVases1.2Printer"
Make3LABViews[&pi, &mapInfo]
&tables ← SaturationMatrix[&rgbtolstar, 0.15, 1.7]
&mapInfo ← GetPrinterMapInfo[&tables, &sampledCal];
&pi.note ← "Dali Vases, Printer (1.3)"
&pi.ipRoot ← "///7.0/Exeter/Plots/DaliVases1.3Printer"
Make3LABViews[&pi, &mapInfo]
&tables ← SaturationMatrix[&rgbtolstar, 0.2, 1.7]
&mapInfo ← GetPrinterMapInfo[&tables, &sampledCal];
&pi.note ← "Dali Vases, Printer (1.4)"
&pi.ipRoot ← "///7.0/Exeter/Plots/DaliVases1.4Printer"
Make3LABViews[&pi, &mapInfo]
&tables ← SaturationMatrix[&rgbtolstar, 0.25, 1.7]
&mapInfo ← GetPrinterMapInfo[&tables, &sampledCal];
&pi.note ← "Dali Vases, Printer (1.5)"
&pi.ipRoot ← "///7.0/Exeter/Plots/DaliVases1.5Printer"
Make3LABViews[&pi, &mapInfo]
&tables ← SaturationMatrix[&rgbtolstar, 0.1, 1.7]
AdjustWithMatrix[fileStem: &aisRoot, adjusted: "[]<>7.0>exeter>1.2>DaliVases", matrixTables:&tables]
&tables ← SaturationMatrix[&rgbtolstar, 0.15, 1.7]
AdjustWithMatrix[fileStem: &aisRoot, adjusted: "[]<>7.0>exeter>1.3>DaliVases", matrixTables:&tables]
&tables ← SaturationMatrix[&rgbtolstar, 0.2, 1.7]
AdjustWithMatrix[fileStem: &aisRoot, adjusted: "[]<>7.0>exeter>1.4>DaliVases", matrixTables:&tables]
&tables ← SaturationMatrix[&rgbtolstar, 0.25, 1.7]
AdjustWithMatrix[fileStem: &aisRoot, adjusted: "[]<>7.0>exeter>1.5>DaliVases", matrixTables:&tables]
&aisRoot ← "///7.0/lamming/Scene640x480"
&pi ← GetPlotInfo[aisRoot: &aisRoot, ipRoot: "///7.0/Exeter/Plots/SceneMonitor", note: "Scene 640x480, Monitor", res: 256, rgbCal: &rgbCal, sampledCal: &sampledCal, labelColor: Imager.black, bleedBackground: FALSE];
&rgbtolstar ← ConracToLStarTRC[];
&mapInfo ← GetMonitorMapInfo[&rgbCal];
Make3LABViews[&pi, &mapInfo]
&pi.ipRoot ← "///7.0/Exeter/Plots/Scene1.4Printer"
&mapInfo ← GetPrinterMapInfo[&tables, &sampledCal];
&pi.note ← "Scene 640x480, Printer"
&tables ← SaturationMatrix[&rgbtolstar, 0.2, 1.7]
Make3LABViews[&pi, &mapInfo]
AdjustWithMatrix[fileStem: &aisRoot, adjusted: "///7.0/Exeter/1.4/Scene", matrixTables:&tables]
&aisRoot ← "///7.0/lamming/Scene640x480"
&pi ← GetPlotInfo[aisRoot: "///7.0/lamming/Scene640x480", ipRoot: "///7.0/Exeter/Plots/Scene1.3Printer", note: "Scene 640x480, Printer (1.3)", res: 256, rgbCal: &rgbCal, sampledCal: &sampledCal, labelColor: Imager.black, bleedBackground: TRUE];
&rgbtolstar ← ConracToLStarTRC[];
&tables ← SaturationMatrix[&rgbtolstar, 0.15, 1.7]
&mapInfo ← GetPrinterMapInfo[&tables, &sampledCal];
Make3LABViews[&pi, &mapInfo]
AdjustWithMatrix[fileStem: &aisRoot, adjusted: "///7.0/Exeter/1.3/Scene", matrixTables:&tables]
&aisRoot ← "///7.0/lamming/Scene640x480"
&pi ← GetPlotInfo[aisRoot: &aisRoot, ipRoot: "///7.0/Exeter/Plots/Scene1.2Printer", note: "Scene 640x480, Printer (1.2)", res: 256, rgbCal: &rgbCal, sampledCal: &sampledCal, labelColor: Imager.black, bleedBackground: FALSE];
&rgbtolstar ← ConracToLStarTRC[];
&tables ← SaturationMatrix[&rgbtolstar, 0.1, 1.7]
&mapInfo ← GetPrinterMapInfo[&tables, &sampledCal];
Make3LABViews[&pi, &mapInfo]
AdjustWithMatrix[fileStem: &aisRoot, adjusted: "///7.0/Exeter/1.2/Scene", matrixTables:&tables]
&aisRoot ← "///7.0/lamming/Scene640x480"
&pi ← GetPlotInfo[aisRoot: &aisRoot, ipRoot: "///7.0/Exeter/Plots/Scene1.2Printer", note: "Scene 640x480, Printer (1.2)", res: 256, rgbCal: &rgbCal, sampledCal: &sampledCal, labelColor: Imager.black, bleedBackground: FALSE];
&rgbtolstar ← ConracToLStarTRC[];
&tables ← SaturationMatrix[&rgbtolstar, 0.05, 1.7]
&mapInfo ← GetPrinterMapInfo[&tables, &sampledCal];
Make3LABViews[&pi, &mapInfo]
AdjustWithMatrix[fileStem: &aisRoot, adjusted: "///7.0/Exeter/1.1/Scene", matrixTables:&tables]
4 up
← &ipName ← "[]<>7.0>Exeter>IP>Scene4up.ip"
← ProduceTapesImpl.IPFromFourAIS[ipName: &ipName, aisSpecs: [["///7.0/Exeter/1.1/Scene", "SATURATION 1.1"], ["///7.0/Exeter/1.2/Scene", "SATURATION 1.2"], ["///7.0/Exeter/1.3/Scene", "SATURATION 1.3"], ["///7.0/Exeter/1.4/Scene", "SATURATION 1.4"]], aisEndings: ProduceTapesImpl.redGrnBlu, onSide: FALSE, xPitch: 5, yPitch: 4, aisWidth: 5];
← &Scene4up ← ProduceTapesImpl.MakeTapeSpec[name: &ipName, fDim: 10, sDim: 8, surfaceUnitsPerPixel: 2, colorCorrection: PrintColorTransformation.SWOPWithGCLinearLStar[]];
← &Scene4up.nBands ← 2
← InterpressToTapeImpl.InterpressToCrosfield[files: LIST[&Scene4up], drive: 0, tapeName: "Scene4up", tapeNumber: 104]
← &ipName ← "[]<>7.0>Exeter>IP>Dali4up.ip"
← ProduceTapesImpl.IPFromFourAIS[ipName: &ipName, aisSpecs: [["///7.0/Exeter/1.2/DaliVases", "SATURATION 1.2"], ["///7.0/Exeter/1.3/DaliVases", "SATURATION 1.3"], ["///7.0/Exeter/1.4/DaliVases", "SATURATION 1.4"], ["///7.0/Exeter/1.5/DaliVases", "SATURATION 1.5"]], aisEndings: ProduceTapesImpl.redGrnBlu, onSide: FALSE, xPitch: 5, yPitch: 4, aisWidth: 5];
← &Dali4up ← ProduceTapesImpl.MakeTapeSpec[name: &ipName, fDim: 10, sDim: 8, surfaceUnitsPerPixel: 2, colorCorrection: PrintColorTransformation.SWOPWithGCLinearLStar[]];
← &Dali4up.nBands ← 2
← InterpressToTapeImpl.InterpressToCrosfield[files: LIST[&Dali4up], drive: 1, tapeName: "Dali4up", tapeNumber: 104]