-- SceneQueueImpl.mesa: Queue management routines for Scenes
-- last modified by Stolfi - August 12, 1983 8:17 pm
DIRECTORY
TIPTables USING [TIPScreenCoords],
Rope USING [ROPE],
TIPUser USING [InstantiateNewTIPTable, TIPTable],
ViewerOps USING
[RegisterViewerClass, CreateViewer, PaintViewer],
Menus USING
[Menu, MenuProc, CreateMenu, AppendMenuEntry, CreateEntry,
MenuEntry, MenuLine],
WindowManager USING [StartColorViewers],
Real USING [Float],
COGCart USING [Point, UnScalePoint, Box, ScaleFactors, BoxToBoxScale],
COGHomo USING [Point, FinPt, ScalePoint, ScaleSeg],
COGScene USING [Scene],
COGSceneImpl USING [SceneRec, ClickProc, ...];
COGSceneQueueImpl: CEDAR MONITOR
EXPORTS
COGScenePrivate
SHARES
COGScene, List =
BEGIN
OPEN COGScene;
ScheduleRepaint:
PUBLIC
PROC [sc: Scene, box: BoundingBox] =
BEGIN
sData: SceneData = NARROW[sc.data];
sData.repaintBox ← UnS.JoinBoxes[sData.repaintBox, box];
END;
END.