<> <> <<>> <> <> DIRECTORY ImagerSource: CEDAR DEFINITIONS = BEGIN <> <> Color: TYPE[2]; <<>> <> red, green, blue, magenta, cyan, yellow, black, white: Color; <> IntensityToColor: PROC [intensity: REAL] RETURNS [Color]; HSVToColor: PROC [h, s, v: REAL] RETURNS [Color]; RGBToColor: PROC [r, g, b: REAL] RETURNS [Color]; <> ColorToIntensity: PROC [color: Color] RETURNS [intensity: REAL]; ColorToHSV: PROC [color: Color] RETURNS [h, s, v: REAL]; ColorToRGB: PROC [color: Color] RETURNS [r, g, b: REAL]; Sampled Sources <> <> SampledSource: TYPE = ImagerBasic.SampledSource; SampleSequence: TYPE = ImagerBasic.SampleSequence; ColorModel: TYPE = ImagerBasic.ColorModel; ColorModelRec: TYPE = RECORD [colorModelProc: ColorModelProc, colorModelData: REF _ NIL]; ColorModelProc: TYPE = PROC [sample: LONG CARDINAL, colorModelData: REF] RETURNS [Color]; RegisterColorModel: PROC [colorModel: ColorModel, colorModelRec: ColorModelRec]; FindColorModel: PROC [colorModel: ColorModel] RETURNS [ColorModelRec]; <> <<$OneBitPerPixelGray>> <<$EightBitPerPixelGray>> <<$StandardColorMap>> <<$Identity -- no translation needed>> <<>> END.