<> <> DIRECTORY Core; StructureColor: CEDAR DEFINITIONS = { ColorerProp: READONLY ATOM; Colorer: TYPE = REF ColorerPrivate; ColorerPrivate: TYPE = RECORD [ CellTypeColor: PROC [ct: Core.CellType] RETURNS [Color], ColorPorts: PROC [ct: Core.CellType, SetColor: PROC [Core.Wire, Color]] <> ]; Color: TYPE = CARD; }.