<> <> <> <> <<>> DIRECTORY SVDrawMonitor; SVDrawMonitorImpl: MONITOR EXPORTS SVDrawMonitor = BEGIN OKToDrawScene: CONDITION; SceneFree: BOOL _ TRUE; PrepareToDrawScene: PUBLIC ENTRY PROC [] = { WHILE NOT SceneFree DO WAIT OKToDrawScene; ENDLOOP; SceneFree _ FALSE; }; DoneDrawingScene: PUBLIC ENTRY PROC [] = { SceneFree _ TRUE; NOTIFY OKToDrawScene; }; END.