DIRECTORY Rope, ImagerColor; GGColorOps: CEDAR DEFINITIONS ~ BEGIN ColorType: TYPE = {constantOp, constantSpecial, sampled, sampledBlack}; OperatorType: TYPE = {grayLinear, grayDensity, grayVisual, map, buildMap, rgbLinear, colorMap, cmyk, yesLinear, xeroxRgbLinear, cielab, highlightLinear, process, highlight, other}; ColorOperator: TYPE = ImagerColor.ColorOperator; ROPE: TYPE = Rope.ROPE; CMYK: TYPE = ImagerColor.CMYK; GetColorType: PROC [color: ImagerColor.Color] RETURNS [type: ColorType, op: ColorOperator]; GetOperatorType: PROC [op: ColorOperator] RETURNS [OperatorType]; CMYKFromColor: PROC [color: ImagerColor.OpConstantColor] RETURNS [cmyk: CMYK]; ExtractCMYK: PROC [color: ImagerColor.ConstantColor] RETURNS [c,m,y,k: REAL]; ExtractIntensity: PROC [color: ImagerColor.ConstantColor] RETURNS [intensity: REAL]; END. f GGColorOps.mesa Copyright Σ 1991, 1992 by Xerox Corporation. All rights reserved. Implemented in GGParseImpl.mesa. Color operations that haven't become part of the Imager world yet. Bier, October 18, 1991 4:09 pm PDT Doug Wyatt, April 9, 1992 3:27 pm PDT Only works for the CMYK color model so check the type first Returns intensity, IN [0.0..1.0]. ΚV–(cedarcode) style•NewlineDelimiter ™code™Kšœ Οeœ7™BK™ K™BK™"K™%K˜—šΟk ˜ K˜—K˜KšΟn œžœž ˜šœž˜K˜Kšœ žœ8˜GKšœžœ’˜΄Kšœžœ˜0Kšžœžœžœ˜Kšžœžœžœ˜K˜—KšŸ œžœžœ&˜[KšŸœžœžœ˜AšŸ œžœ&žœžœ˜NKšœžœ$™;—KšŸ œžœ$žœ žœ˜MšŸœžœ$žœ žœ˜TK™!K˜—Kšžœ˜—…—Bώ