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.