ui/src/split/TwoTone.i3


Copyright (C) 1994, Digital Equipment Corp.
<*PRAGMA LL*>

INTERFACE TwoTone;
IMPORT PaintOp, Point, Pixmap, Rect, VBT;

TYPE
  T = RECORD
        op : PaintOp.T;
        txt: Pixmap.T;
      END;

PROCEDURE New (op: PaintOp.T; bwtxt: Pixmap.T): T;
  (* Result:
       ".op" is "PaintOp.BgFg" on a black and white display, "op" otherwise.
       ".txt" is "bwtxt" on a black and white display, "Pixmap.Solid" otherwise
   *)

PROCEDURE Paint (         v    : VBT.Leaf;
                 READONLY clip : Rect.T;
                 READONLY tone : T;
                 READONLY delta             := Point.Origin); <* LL.sup < v *>
Paint the rectangle clip with the texture tone.txt+delta using the operation tone.op.

END TwoTone.