pinstall interpress
install CalibratedColor
run -a ColorPlotGamutsImpl
pinstall userprofileops
pinstall AIS
run SampleRefCacheImpl
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: "///7.0/colordata/MeyerFig4.ip", label: TRUE, note: "Meyer Figure 4", 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]