ui/src/winvbt/WinScrnPaintOp.i3


Copyright (C) 1994, Digital Equipment Corp.
Digital Internal Use Only
                                                                           
       Created on Tue Jan 17 16:06:56 PST 1995 by najork                   

INTERFACE WinScrnPaintOp;

IMPORT Ctypes, ScrnPaintOp, WinScreenType;

TYPE
  Mode = {Copy, Opaq, Tran, Swap};

  (* If Modula-3 had variant records, this would be one. *)
  Op = RECORD
    mode: Mode;
    col : ScrnPaintOp.Pixel;
  END;

  OpRecord = RECORD
    bop : Op;
    fop : Op;
  (* The raster operations can be derived from "bop" and "fop".
     They are included into the record simply for caching purposes. *)
    brop: Ctypes.int;         (* binary raster operation *)
    trop: Ctypes.int;         (* ternary raster operation *)
  END;

PROCEDURE NewOracle(st: WinScreenType.T): ScrnPaintOp.Oracle;

END WinScrnPaintOp.