cdv exeter
pushv ///7.0/interpresstotape
bringover /pixel/stone/top/newinterpresstotape
install interpresstotape
run producetapesimpl
pop

_ &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];


_ &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];





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

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

ΦColor Plates for the two images and their plots  (Plate VI-XI) 
Maureen Stone, February 13, 1989 11:28:41 pm PST
For Interpress Files
For the steel mill, set the width to the correct size.
For AIS files
4 up
Κμ˜
code™?K™0—J˜J˜
J˜J˜.J˜Jš
œ˜J˜J˜J™JšœΟnœ€
˜Κ
JšœœŽ
˜΄
Jšœœ‹
˜±
JšœœŒ
˜²
J˜Jšœœ"˜PJšœ
œ ˜EJšœœ˜?Kšœ	œ7˜SJ˜J™6J˜Jšœ œhΟbœž
œa˜”J˜J˜J˜J™
J˜J˜JšœœΤ
˜€Jš
œ ˜ JšœœΠ
˜ύ
Jš
œ!˜!K˜Kšœœ&˜TKšœ	œΟkœ9˜aJ˜J˜K˜6Kš
œ˜K˜Kš
œ˜J˜fJšœ	œœ˜SJ˜;K˜Jš
œ6˜6Jš
œΨ
˜Ψ
Jšœžœ
˜&Jš
œ˜J˜Jš
œ,˜,Jš
œβ
˜β
Jš
œ1˜1Jšœœ˜3Jš
œ'˜'Jš
œ7˜7Jš
œ˜J˜Jš
œ2˜2Jšœœ˜3Jš
œ'˜'Jš
œ7˜7Jš
œ˜Jš
œ1˜1Jšœœ˜3Jš
œ'˜'Jš
œ7˜7Jš
œ˜Jš
œ2˜2Jšœœ˜3Jš
œ'˜'Jš
œ7˜7Jš
œ˜J˜J˜Jš
œ1˜1JšžœT˜dJš
œ2˜2JšžœT˜dJš
œ2˜2JšžœT˜dJš
œ2˜2JšžœT˜dJ˜J˜Jš
œ(˜(Jš
œΨ
˜Ψ
Jš
œ!˜!Jšœžœ
˜&Jš
œ˜Jš
œ3˜3Jšœœ˜3Jš
œ$˜$Jš
œ1˜1Jš
œ˜JšžœO˜_J˜Jš
œ(˜(Jš
œυ
˜υ
Jš
œ!˜!Jš
œ2˜2Jšœœ˜3Jš
œ˜JšžœO˜_J˜Jš
œ(˜(Jš
œα
˜α
Jš
œ!˜!Jš
œ1˜1Jšœœ˜3Jš
œ˜JšžœO˜_J˜Jš
œ(˜(Jš
œα
˜α
Jš
œ!˜!Jš
œ2˜2Jšœœ˜3Jš
œ˜JšžœO˜_J˜™Jš
œ+˜+Jš
œΤ˜ΤJš
œͺ
˜ͺ
Jš
œ˜Jš
œu˜uJ˜Jš
œ*˜*Jš
œδ˜δJš
ϩ
˜©
Jš
œ˜Jš
œs˜sJ˜——…— ΰ%’