
DIRECTORY
Prop USING [Get, Put],
RealInline USING [IsValid, MCFix],
ImagerDevice USING [Device],
ImagerColorPrivate USING [ColorPoint],
ImagerDeviceColor;

ImagerDeviceColorImpl: CEDAR PROGRAM
IMPORTS Prop, RealInline
EXPORTS ImagerDeviceColor
~ BEGIN

LookupTable: TYPE = REF LookupTableRep;
LookupTableRep: TYPE = ImagerDeviceColor.LookupTableRep;

ColorLookupTableType: TYPE = ImagerDeviceColor.ColorLookupTableType;

DeviceColorControl: TYPE = REF DeviceColorControlRep;
DeviceColorControlRep: TYPE = ImagerDeviceColor.DeviceColorControlRep;

GetDeviceColorControl: PUBLIC PROC [device: ImagerDevice.Device] RETURNS [DeviceColorControl] = {
key: ATOM = $DeviceColorControl;
WITH Prop.Get[device.parm.propList, key] SELECT FROM
control: DeviceColorControl => RETURN [control];
ENDCASE => {
control: DeviceColorControl = NEW[DeviceColorControlRep м [stamp: 0, table: ALL[NIL], setLookupTable: DefaultSetLookupTable]];
device.parm.propList м Prop.Put[device.parm.propList, key, control];
RETURN [control];
};
};

DefaultSetLookupTable: PUBLIC PROC [control: DeviceColorControl, which: ColorLookupTableType, table: LookupTable] = {
ident: BOOL м TRUE;
IF table # NIL AND table.size = 0 THEN table м NIL; -- don't store empty tables.
control.table[which] м table;
FOR i: ColorLookupTableType IN [redTransfer..grayTransfer] DO
IF control.table[i] # NIL THEN {ident м FALSE; EXIT};
ENDLOOP;
control.allIdentity м ident;
control.stamp м control.stamp + 1;
};

LookupReal: PUBLIC PROC [table: LookupTable, real: REAL] RETURNS [REAL] = {
IF table = NIL THEN RETURN [real] ELSE {
limit: INT = table.size-1;
IF real <= 0.0 THEN RETURN [table[0]] ELSE 
IF real >= 1.0 THEN RETURN [table[limit]] ELSE
IF NOT RealInline.IsValid[real] THEN RETURN [real] ELSE {
s: REAL = limit*real;
k: INT = RealInline.MCFix[s]; -- as good as Floor, since s > 0.0
d: REAL = s-REAL[k];
v: REAL = table[k];
RETURN [IF d <= 0.0 OR k >= limit THEN v ELSE v + d * (table[k+1]-v)]
};
};
};

LookupFlipped: PUBLIC PROC [table: LookupTable, real: REAL] RETURNS [REAL] = {
IF table = NIL THEN RETURN [real] ELSE {
limit: INT = table.size-1;
real м 1.0-real;
IF real <= 0.0 THEN RETURN [1.0-table[0]] ELSE 
IF real >= 1.0 THEN RETURN [1.0-table[limit]] ELSE
IF NOT RealInline.IsValid[real] THEN RETURN [real] ELSE {
s: REAL = limit*real;
k: INT = RealInline.MCFix[s]; -- as good as Floor, since s > 0.0
d: REAL = s-REAL[k];
v: REAL = table[k];
RETURN [1.0-(IF d <= 0.0 OR k >= limit THEN v ELSE v + d * (table[k+1]-v))]
};
};
};

ColorPoint: TYPE = ImagerColorPrivate.ColorPoint;
CMYKFromCMYK: PUBLIC PROC [control: DeviceColorControl, c, m, y, k: REAL, maxOut: REAL, out: ColorPoint] = {
oog: BOOL м FALSE;
CS: PROC [r: REAL] RETURNS [REAL] = INLINE {
r м r * maxOut;
IF r < 0.0 THEN {oog м TRUE; r м 0.0}
ELSE IF r > maxOut THEN {oog м TRUE; r м maxOut};
RETURN [r]
};
out[0] м CS[LookupFlipped[control.table[$redTransfer],   c]];
out[1] м CS[LookupFlipped[control.table[$greenTransfer], m]];
out[2] м CS[LookupFlipped[control.table[$blueTransfer],  y]];
out[3] м CS[LookupFlipped[control.table[$grayTransfer],  k]];
out.outOfGamut м oog;
};

CMYKFromCMY: PUBLIC PROC [control: DeviceColorControl, c, m, y: REAL, maxOut: REAL, out: ColorPoint] = {
oog: BOOL м FALSE;
CS: PROC [r: REAL] RETURNS [REAL] = INLINE {
r м r * maxOut;
IF r < 0.0 THEN {oog м TRUE; r м 0.0}
ELSE IF r > maxOut THEN {oog м TRUE; r м maxOut};
RETURN [r]
};
bg: LookupTable = control.table[$blackGeneration];
ucr: LookupTable = control.table[$undercolorRemoval];
min: REAL = MIN[c, m, y];
k: REAL м IF bg = NIL THEN 0.0 ELSE LookupReal[bg, min];
IF ucr # NIL THEN {
u: REAL = LookupReal[ucr, min];
c м c - u;
m м m - u;
k м k - u;
};
out[0] м CS[LookupFlipped[control.table[$redTransfer],   c]];
out[1] м CS[LookupFlipped[control.table[$greenTransfer], m]];
out[2] м CS[LookupFlipped[control.table[$blueTransfer],  y]];
out[3] м CS[LookupFlipped[control.table[$grayTransfer],  k]];
out.outOfGamut м oog;
};

CMYKFromRGB: PUBLIC PROC [control: DeviceColorControl, r, g, b: REAL, maxOut: REAL, out: ColorPoint] = {
CMYKFromCMY[control, 1.0-r, 1.0-g, 1.0-b, maxOut, out];
};

RGBFromRGB: PUBLIC PROC [control: DeviceColorControl, r, g, b: REAL, maxOut: REAL, out: ColorPoint] = {
oog: BOOL м FALSE;
CS: PROC [r: REAL] RETURNS [REAL] = INLINE {
r м r * maxOut;
IF r < 0.0 THEN {oog м TRUE; r м 0.0}
ELSE IF r > maxOut THEN {oog м TRUE; r м maxOut};
RETURN [r]
};
out[0] м CS[LookupReal[control.table[$redTransfer],   r]];
out[1] м CS[LookupReal[control.table[$greenTransfer], g]];
out[2] м CS[LookupReal[control.table[$blueTransfer],  b]];
out.outOfGamut м oog;
};

RGBFromCMYK: PUBLIC PROC [control: DeviceColorControl, c, m, y, k: REAL, maxOut: REAL, out: ColorPoint] = {
RGBFromRGB[control, 1.0-(c+k), 1.0-(m+k), 1.0-(y+k), maxOut, out];
};

YFromY: PUBLIC PROC [control: DeviceColorControl, Y: REAL, maxOut: REAL, out: ColorPoint] = {
g: BOOL м FALSE;
CS: PROC [r: REAL] RETURNS [REAL] = INLINE {
r м r * maxOut;
IF r < 0.0 THEN {g м TRUE; r м 0.0}
ELSE IF r > maxOut THEN {g м TRUE; r м maxOut};
RETURN [r]
};
out[0] м CS[LookupReal[control.table[$grayTransfer], Y]];
out.outOfGamut м g;
};

KFromY: PUBLIC PROC [control: DeviceColorControl, Y: REAL, maxOut: REAL, out: ColorPoint] = {
g: BOOL м FALSE;
CS: PROC [r: REAL] RETURNS [REAL] = INLINE {
r м r * maxOut;
IF r < 0.0 THEN {g м TRUE; r м 0.0}
ELSE IF r > maxOut THEN {g м TRUE; r м maxOut};
RETURN [r]
};
out[0] м CS[1.0-LookupReal[control.table[$grayTransfer], Y]];
out.outOfGamut м g;
};

CMYKFromY: PUBLIC PROC [control: DeviceColorControl, Y: REAL, maxOut: REAL, out: ColorPoint] = {
g: BOOL м FALSE;
CS: PROC [r: REAL] RETURNS [REAL] = INLINE {
r м r * maxOut;
IF r < 0.0 THEN {g м TRUE; r м 0.0}
ELSE IF r > maxOut THEN {g м TRUE; r м maxOut};
RETURN [r]
};
out[0] м out[1] м out[2] м 0.0;
out[3] м CS[1.0-LookupReal[control.table[$grayTransfer], Y]];
out.outOfGamut м g;
};

END.
   ║  
ImagerDeviceColorImpl.mesa
Copyright ╙ 1993 by Xerox Corporation.  All rights reserved.
Michael Plass, October 26, 1993 2:13 pm PDT
NOTE: control.private is not used at present.
 Э╩;  ХNewlineDelimiter
Щ codeЩKЪЬ
╧eЬ1Щ<KЩ+ЧKШ Ъ╧k	Ш	KЪЬЮЬШKЪЬЮЬШ"KЪЬЮЬ
ШKЪЬЮЬШ&KШKШ ЧKЪ╧nЬЮЬЮШ$KЪЮЬШKЪЮЬШЪЬЮШKШ KЪЬЮЬЮЬШ'ЪЬЮЬ$Ш8KШ ЧKЪЬЮЬ*ШDKШ KЪЬЮЬЮЬШ5KЪЬЮЬ+ШFKШ ЪЯЬЮЬЮЬЮЬШaJЪЬЮЬШ ЪЮЬ%ЮЬЮШ4KЪЬЮЬШ0ЪЮЬШKЪЬЮЬ+ЮЬЮЬ+Ш~KЩ-KШDKЪЮЬШKШЧЧKЪЬШKШ ЧЪЯЬЮЬЮЬSШuJЪЬЮЬЮЬШJЪЮЬ	ЮЬЮЬЮЬ	ЮЬ╧cШPKШЪЮЬЮЬЮШ=KЪ
ЮЬЮЬЮЬ
ЮЬЮЬШ5KЪЮЬШЧKШKШ"KШKШ ЧЪЯ
ЬЮЬЮЬЮЬЮЬЮЬШKЪ
ЮЬ	ЮЬЮЬЮЬЮЬШ(KЪЬЮЬШKЪЮЬЮЬЮЬЮЬШ+KЪЮЬЮЬЮЬЮШ.Ъ
ЮЬЮЬЮЬЮЬЮЬШ9JЪЬЮЬШJЪЬЮЬа"Ш@JЪЬЮЬЮЬШJЪЬЮЬШKЪ
ЮЬЮЬ
ЮЬЮЬЮЬШEKЪЬШЧKЪЬШЧKШKШ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬШNЪ
ЮЬ	ЮЬЮЬЮЬЮЬШ(KЪЬЮЬШKШKЪЮЬЮЬЮЬЮЬШ/KЪЮЬЮЬЮЬЮШ2Ъ
ЮЬЮЬЮЬЮЬЮЬШ9JЪЬЮЬШJЪЬЮЬа"Ш@JЪЬЮЬЮЬШJЪЬЮЬШKЪ
ЮЬЮЬ
ЮЬЮЬЮЬШKKЪЬШЧKЪЬШЧKШKШ ЧKЪЬЮЬ!Ш1Ъ
ЯЬЮЬЮЬ+ЮЬ
ЮЬШlKЪЬЮЬЮЬШЪЮЬЮЬЮЬЮЬЮЬЮЬШ,KШKЪЮЬ	ЮЬЮЬ
Ш%KЪЮЬЮЬЮЬЮЬШ1KЪЮЬШ
KШЧKЪЬ	ЮЬ2Ш=KЪЬ	ЮЬ2Ш=KЪЬ	ЮЬ2Ш=KЪЬ	ЮЬ2Ш=KШKШKШ ЧЪ
ЯЬЮЬЮЬ(ЮЬ
ЮЬШhKЪЬЮЬЮЬШЪЮЬЮЬЮЬЮЬЮЬЮЬШ,KШKЪЮЬ	ЮЬЮЬ
Ш%KЪЮЬЮЬЮЬЮЬШ1KЪЮЬШ
KШЧKШ2KШ5KЪЬЮЬЮЬ
ШKЪЬЮЬЮЬЮЬЮЬЮЬШ8ЪЮЬЮЬЮЬШJЪЬЮЬШJШ
JШ
JШ
KЪЬШЧKЪЬ	ЮЬ2Ш=KЪЬ	ЮЬ2Ш=KЪЬ	ЮЬ2Ш=KЪЬ	ЮЬ2Ш=KШKШKШ ЧЪ
ЯЬЮЬЮЬ(ЮЬ
ЮЬШhKШ7KЪЬШKШ ЧЪ
Я
ЬЮЬЮЬ(ЮЬ
ЮЬШgKЪЬЮЬЮЬШЪЮЬЮЬЮЬЮЬЮЬЮЬШ,KШKЪЮЬ	ЮЬЮЬ
Ш%KЪЮЬЮЬЮЬЮЬШ1KЪЮЬШ
KШЧKЪЬ	ЮЬ/Ш:KЪЬ	ЮЬ/Ш:KЪЬ	ЮЬ/Ш:KШKШKШ ЧЪ
ЯЬЮЬЮЬ+ЮЬ
ЮЬШkKШBKШKШ ЧЪЯЬЮЬЮЬЯЬЮЬ
ЮЬШ]KЪЬЮЬЮЬШЪЮЬЮЬЮЬЮЬЮЬЮЬШ,KШKЪЮЬ	ЮЬЮЬ
Ш#KЪЮЬЮЬЮЬЮЬШ/KЪЮЬШ
KШЧKЪЬ	ЮЬ.Ш9KШKШKШ ЧЪЯЬЮЬЮЬЯЬЮЬ
ЮЬШ]KЪЬЮЬЮЬШЪЮЬЮЬЮЬЮЬЮЬЮЬШ,KШKЪЮЬ	ЮЬЮЬ
Ш#KЪЮЬЮЬЮЬЮЬШ/KЪЮЬШ
KШЧKЪЬ	ЮЬ2Ш=KШKШKШ ЧЪЯ	ЬЮЬЮЬЯЬЮЬ
ЮЬШ`KЪЬЮЬЮЬШЪЮЬЮЬЮЬЮЬЮЬЮЬШ,KШKЪЮЬ	ЮЬЮЬ
Ш#KЪЮЬЮЬЮЬЮЬШ/KЪЮЬШ
KШЧKШKЪЬ	ЮЬ2Ш=KШKШЧЧKШ KЪЮЬШЧ ЕЧ    ·  я  