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.