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