mg/src/MGPaintOp.i3


 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.