<*PRAGMA LL*> INTERFACEJoinPaintOp ; IMPORT ScrnPaintOp, JoinScreen, Palette, PaintOp; TYPE Oracle <: ScrnPaintOp.Oracle; PROCEDURE New(st: JoinScreen.T): Oracle; PROCEDURE Apply (st: JoinScreen.T; cl: Palette.OpClosure; op: PaintOp.T): ScrnPaintOp.T; END JoinPaintOp.