pinstall interpress
install CalibratedColor
run -a ColorPlotGamutsImpl

pinstall userprofileops
pinstall AIS
install SampleCache
run SampleRefCacheImpl
run PrintColorXFormsImpl
run TRCDataImpl
run ImageGamutsImpl

interpreter

&sgf[ColorPlotGamutsImpl];
&rgbCal _ CreateCalibration.CreateRGB[CreateCalibration.GetRGBDataValues[$Cornell]]
&rgbGetColor _ ColorPlotGamutsImpl.RGBRainbow

&fig1a _ ImageGamutsImpl.CreateInputData["///7.0/smallMeyer/MeyerFig1a",&rgbCal];
&fig1b _ ImageGamutsImpl.CreateInputData["///7.0/smallMeyer/MeyerFig1b",&rgbCal];
&fig2 _ ImageGamutsImpl.CreateInputData["///7.0/smallMeyer/MeyerFig2",&rgbCal];
&fig3 _ ImageGamutsImpl.CreateInputData["///7.0/smallMeyer/MeyerFig3",&rgbCal];
&fig4 _ ImageGamutsImpl.CreateInputData["///7.0/smallMeyer/MeyerFig4",&rgbCal];
ColorPlotGamutsImpl.RGBSampleAndPlot[state: &rgbState, cal: &rgbCal, sample: 16, sampleProc: HueCircle];
ImageGamutsImpl.PlotInputData[&rgbState, &fig4];
StatesToInterpress[states: LIST [&rgbState], ipName: "///Users/Tow.pa/IP/Rainbow.ip", label: TRUE, note: "Rainbow over Spar", 
labelColor: NIL]

backgroundR _ backgroundG _ backgroundB _ 0;

&cal _ CreateCalibration.CreateSampled[CreateCalibration.GetSampledFiles[$Cromalin], $Cromalin]
&getColor _ SampledRainbow;
&sampled _ StateFromCalibration[cal: &cal, xAxis: x, yAxis: y, res: 128, getColor: &getColor, getColorData: &cal]
&sampled _ StateFromCalibration[cal: &cal, xAxis: aStar, yAxis: bStar, res: 128, getColor: &getColor, getColorData: &cal]
&sampled _ StateFromCalibration[cal: &cal, xAxis: aStar, yAxis: lStar, res: 128, getColor: &getColor, getColorData: &cal]
&sampled _ StateFromCalibration[cal: &cal, xAxis: bStar, yAxis: lStar, res: 128, getColor: &getColor, getColorData: &cal]
&sampled _ StateFromCalibration[cal: &cal, xAxis: hueAngle, yAxis: lStar, res: 128, getColor: &getColor, getColorData: &cal]
SampleAndPlot[state: &sampled, cal: &cal, sample: 16, sampleProc: GrayAxis];
SampleAndPlot[state: &sampled, cal: &cal, sample: 16, sampleProc: HueCircle];
SampleAndPlot[state: &sampled, cal: &cal, sample: 16, sampleProc: ColorsToWhite];
SampleAndPlot[state: &sampled, cal: &cal, sample: 16, sampleProc: ColorsToBlack];
SampleAndPlot[state: &sampled, cal: &cal, sample: 16, sampleProc: GamutSurface];
SampleAndPlot[state: &sampled, cal: &cal, sample: 8, sampleProc: WholeGamut];

StatesToInterpress[states: LIST [&sampled], ipName: "///7.0/colordata/CromalinGamut.ip", label: TRUE, note: "Cromalin gamut, April 
27, 1988", labelColor: NIL]

&rgbCal _ CreateCalibration.CreateRGB[CreateCalibration.GetRGBDataValues[$Cornell]]
&rgbCal _ CreateCalibration.CreateRGB[CreateCalibration.GetRGBDataValues[$Waterloo]]
&rgbCal _ CreateCalibration.CreateRGB[CreateCalibration.GetRGBDataValues[$Conrac]]
&rgbGetColor _ RGBRainbow
&rgbState _ StateFromRGBCalibration[cal: &rgbCal, xAxis: x, yAxis: y, res: 128, getColor: &rgbGetColor, getColorData: &rgbCal]
&rgbState _ StateFromRGBCalibration[cal: &rgbCal, xAxis: aStar, yAxis: bStar, res: 128, getColor: &rgbGetColor, getColorData: 
&rgbCal]
&rgbState _ StateFromRGBCalibration[cal: &rgbCal, xAxis: aStar, yAxis: lStar, res: 128, getColor: &rgbGetColor, getColorData: 
&rgbCal]
&rgbState _ StateFromRGBCalibration[cal: &rgbCal, xAxis: bStar, yAxis: lStar, res: 128, getColor: &rgbGetColor, getColorData: 
&rgbCal]
&rgbState _ StateFromRGBCalibration[cal: &rgbCal, xAxis: hueAngle, yAxis: lStar, res: 128, getColor: &rgbGetColor, getColorData: 
&rgbCal]
RGBSampleAndPlot[state: &rgbState, cal: &rgbCal, sample: 16, sampleProc: GrayAxis];
RGBSampleAndPlot[state: &rgbState, cal: &rgbCal, sample: 16, sampleProc: HueCircle];
RGBSampleAndPlot[state: &rgbState, cal: &rgbCal, sample: 16, sampleProc: ColorsToWhite];
RGBSampleAndPlot[state: &rgbState, cal: &rgbCal, sample: 16, sampleProc: ColorsToBlack];
RGBSampleAndPlot[state: &rgbState, cal: &rgbCal, sample: 16, sampleProc: GamutSurface];
RGBSampleAndPlot[state: &rgbState, cal: &rgbCal, sample: 8, sampleProc: WholeGamut];

StatesToInterpress[states: LIST [&rgbState], ipName: "///7.0/colordata/CornellGamut.ip", label: TRUE, note: "Cornell gamut, April 
27, 1988", labelColor: NIL]

StatesToInterpress[states: LIST [&rgbState, &sampled],  ipName: "///7.0/colordata/Overlaid.ip", label: TRUE, note: "Cornell on 
Cromalin", labelColor: Imager.black]