Copyright (C) 1994, Digital Equipment Corp.
Digital Internal Use Only
Created on Tue Jan 17 16:06:56 PST 1995 by najork
INTERFACEWinScrnPaintOp ; IMPORT Ctypes, ScrnPaintOp, WinDef, 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. *) rop2 : Ctypes.int; (* binary raster operation *) brop3: WinDef.DWORD; (* foreground ternary raster operation *) frop3: WinDef.DWORD; (* background ternary raster operation *) END; PROCEDURE NewOracle(st: WinScreenType.T): ScrnPaintOp.Oracle; END WinScrnPaintOp.