<> <> <> <<>> <> <<>> DIRECTORY Rope USING [ROPE], ImagerColor USING [RGB, Color], AIS USING [Raster, FRef, WRef], PrintColorXForms USING [TRCTable, MatrixTables], CalibratedColor USING [RGBCalibration, SampledCalibration, XYZ], SampleCache USING [RefCache, Sample], ColorPlotGamuts USING [State, Projection]; ImageGamuts: CEDAR DEFINITIONS ~ BEGIN State: TYPE ~ ColorPlotGamuts.State; Projection: TYPE ~ ColorPlotGamuts.Projection; RGBCalibration: TYPE = CalibratedColor.RGBCalibration; SampledCalibration: TYPE = CalibratedColor.SampledCalibration; RefCache: TYPE = SampleCache.RefCache; Sample: TYPE = SampleCache.Sample; XYZ: TYPE = CalibratedColor.XYZ; ROPE: TYPE = Rope.ROPE; RGB: TYPE = ImagerColor.RGB; <> AISColors: TYPE = {r,g,b, clipped}; AISFile: TYPE = RECORD[name: ROPE _ NIL, fRef: AIS.FRef _ NIL, wRef: AIS.WRef _ NIL, raster: AIS.Raster _ NIL]; AISFiles: TYPE = ARRAY AISColors OF AISFile; CreateInputData: PROC [fileStem: ROPE, rgbCal: RGBCalibration] RETURNS [inputData: RefCache]; OpenFiles: PROC [fileStem: ROPE] RETURNS [aisFiles: AISFiles]; CloseFiles: PROC [aisFiles: AISFiles]; CreateFiles: PROC [fileStem: ROPE, raster: AIS.Raster] RETURNS [aisFiles: AISFiles]; FindFile: PROC [stem, key, default: ROPE] RETURNS [ROPE]; <<>> <> MapProc: TYPE = PROC[rgbBytes: Sample, rgb: ImagerColor.RGB, data: REF] RETURNS[XYZ]; ColorProc: TYPE =PROC[sample: Sample] RETURNS[RGB]; PlotInputData: PROC [state: State, inputData: RefCache, mapData: REF, mapProc: MapProc _ NIL, imageColorProc: ColorProc _ NIL]; <> PlotInfo: TYPE = RECORD[aisRoot, ipRoot, note: ROPE, res: NAT, rgbCal: RGBCalibration, sampledCal: SampledCalibration, labelColor: ImagerColor.Color, bleedBackground: BOOLEAN _ TRUE, inputData: RefCache _ NIL]; MapInfo: TYPE = RECORD[mapProc: MapProc, mapData: REF, rgbState: BOOLEAN _ TRUE]; --default color proc makes rainbows on image GetCalibrations: PROC[rgbAtom, sampledAtom: ATOM] RETURNS[rgbCal: RGBCalibration, sampledCal: SampledCalibration]; MakeChromaPlot: PROC [pi: PlotInfo, xAxis, yAxis: Projection, mapInfo: MapInfo]; MakeLStarPlot: PROC [pi: PlotInfo, xAxis: Projection, mapInfo: MapInfo]; Make3LABViews: PROC [pi: PlotInfo, mapInfo: MapInfo]; <> PrinterMapData: TYPE = REF PrinterMapDataRec; PrinterMapDataRec: TYPE = RECORD [tables: PrintColorXForms.MatrixTables, sampledCal: SampledCalibration]; -- used to see printed values MatrixMapData: TYPE = REF MatrixMapDataRec; MatrixMapDataRec: TYPE = RECORD [tables: PrintColorXForms.MatrixTables, rgbCal: RGBCalibration]; -- used to see mapped values RGBMap: PUBLIC MapProc; --data is an RGBCal MatrixMap: MapProc; PrinterMap: MapProc; GetMonitorMapInfo: PROC[rgbCal: RGBCalibration] RETURNS[MapInfo]; GetMappedMapInfo: PROC[tables: PrintColorXForms.MatrixTables, rgbCal: RGBCalibration] RETURNS[MapInfo]; GetPrinterMapInfo: PROC[tables: PrintColorXForms.MatrixTables, sampledCal: SampledCalibration] RETURNS[MapInfo]; <