<> <> <> <<>> 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]; <> <<>> InstallGammaTable: PROC [ref: REF Gamma]; <> <<>> GammaCorrect: PROC [in: Color] RETURNS [out: Color] ~ INLINE { RETURN [gamma[in]] }; << >> END.