Gammas.mesa
Copyright © 1985, Xerox Corporation. All rights reserved.
Last edited by Eric Nickell, February 7, 1985 3:03:57 pm PST
DIRECTORY
AdjustColor USING [Color, Gamma]
;
Gammas: CEDAR DEFINITIONS = BEGIN
Color: TYPE ~ AdjustColor.Color;
Gamma: TYPE ~ AdjustColor.Gamma;
gamma: READONLY REF READONLY Gamma;
BuildGammaTable: PROC [gammaValue: REAL ← 2.2] RETURNS [ref: REF Gamma];
Constructs gamma tables as exponential of gammaValue.
InstallGammaTable: PROC [ref: REF Gamma];
Places the gamma table as the public one.
GammaCorrect: PROC [in: Color] RETURNS [out: Color] ~ INLINE {
RETURN [gamma[in]]
};
END.