Test.mesa
Stone, February 11, 1987 5:13:38 pm PST
Maureen Stone, February 27, 1987 4:37:53 pm PST
DIRECTORY
InterpressToPD,
ImagerPD;
Test: CEDAR PROGRAM
IMPORTS InterpressToPD
EXPORTS
~ BEGIN
FullUCR: ImagerPD.CorrectionProc = {
Take out all the gray and replace with black ink
NOTE: THIS IS NOT A GOOD ALGORITHM for Black Printing!
c: CARDINAL ← 255-r;
m: CARDINAL ← 255-g;
y: CARDINAL ← 255-b;
gc: CARDINALMIN[c,m,y];
RETURN[ SELECT toner FROM
cyan => c-gc, magenta => m-gc, yellow => y-gc, ENDCASE => gc];
};
InterpressToPD.RegisterCorrectionProc[$Color400, FullUCR, NIL];
END.