<> <> <> <> <> <> DIRECTORY CS USING [Tesselation], Rope USING [ROPE], ViewerClasses USING [Viewer]; CSM: CEDAR DEFINITIONS = BEGIN Monitor: PROC[plane: CS.Tesselation, name: Rope.ROPE _ NIL, paintDark: PaintPredicate _ NIL] RETURNS [viewer: ViewerClasses.Viewer]; PaintPredicate: TYPE = PROC[val: REF] RETURNS [BOOL]; Reset: PROC [ref: REF]; END.