mg/src/MGPaintOp.i3


Copyright (C) 1994, Digital Equipment Corp.
 by Steve Glassman and Stephen Harrison                                    

INTERFACE MGPaintOp;
Allows the user to animate the color of a PaintOp.T

IMPORT
  PaintOp, VBT;

TYPE
  RGB = RECORD r, g, b: REAL END;

PROCEDURE New(rgb: RGB): PaintOp.T;
produce a new paint op whose color is initially rgb

PROCEDURE Set(st: VBT.ScreenType; op: PaintOp.T; rgb: RGB);
change the color of op (created by New) to rgb. If op was not created by New, then Set is a noop.

PROCEDURE Get(op: PaintOp.T): RGB;
return the current rgb value of op. If op was not created by New then the result of Get is undefined.

END MGPaintOp.