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]]
Must set the color of each atom of the public wire.
];
Color: TYPE = CARD;
}.