<> <> <> DIRECTORY InterpressToPD, ImagerPD; Test: CEDAR PROGRAM IMPORTS InterpressToPD EXPORTS ~ BEGIN FullUCR: ImagerPD.CorrectionProc = { <> <> c: CARDINAL _ 255-r; m: CARDINAL _ 255-g; y: CARDINAL _ 255-b; gc: CARDINAL _ MIN[c,m,y]; RETURN[ SELECT toner FROM cyan => c-gc, magenta => m-gc, yellow => y-gc, ENDCASE => gc]; }; InterpressToPD.RegisterCorrectionProc[$Color400, FullUCR, NIL]; END.