<> <> <<>> DIRECTORY Rope, IO, AlgebraClasses, ImagerColor; Colors: CEDAR DEFINITIONS ~ BEGIN OPEN AC: AlgebraClasses; <> Color: TYPE = AC.Object; ColorData: TYPE = REF ColorDataRec; ColorDataRec: TYPE = RECORD [ name: Rope.ROPE, value: ImagerColor.ConstantColor ]; Colors: AC.Structure; <> IsColorStructure: PROC [structure: AC.Structure] RETURNS [BOOL]; <> Read: AC.ReadOp; FromRope: AC.FromRopeOp; ToRope: AC.ToRopeOp; Write: AC.WriteOp; END.