DEFINITION MODULE RasterOps;

IMPORT Polysys;

EXPORT QUALIFIED
   CopyRect, WipeRect, DrawRect, FillRect;

PROCEDURE CopyRect(FromXl, FromYb, FromXr, FromYt :INTEGER;
                   Cell                           :ARRAY OF Polysys.Polygon;
               VAR ToRect                         :ARRAY OF Polysys.Polygon);

PROCEDURE WipeRect(Xl, Yb, Xr, Yt :INTEGER;
                  On              :BITSET;
              VAR Cell            :ARRAY OF Polysys.Polygon);

PROCEDURE DrawRect(OldXl, OldYb,
                   NewXl, NewYb :INTEGER;
                   Rect         :ARRAY OF Polysys.Polygon;
               VAR Cell         :ARRAY OF Polysys.Polygon);

PROCEDURE FillRect(Xl, Yb, Xr, Yt :INTEGER;
                   Layer          :INTEGER;
               VAR Cell           :ARRAY OF Polysys.Polygon);

END RasterOps.
