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]