(* Copyright (C) 1992, Digital Equipment Corporation                         *)
(* All rights reserved.                                                      *)
(* See the file COPYRIGHT for a full description.                            *)
(*                                                                           *)
(* by Steve Glassman and Stephen Harrison                                    *)
(* Last modified on Wed Jun  3 00:06:20 1992 by steveg   *)

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.