<*PRAGMA LL*>

INTERFACE PaintExt;

IMPORT PaintPrivate, Word, Point, VBT;

TYPE
  PathRec = RECORD
              curveCount: CARDINAL;
              (* data: ARRAY OF Word.T *)
            END;
  PathPtr = UNTRACED REF PathRec;

  FillRec = RECORD
              ext  : PaintPrivate.ExtensionRec;
              delta: Point.T;
              wind : BITS Word.Size FOR VBT.WindingCondition;
              path : PathRec
            END;
  FillPtr = UNTRACED REF FillRec;

CONST FillCommand = 0;

TYPE
  StrokeRec = RECORD
                ext  : PaintPrivate.ExtensionRec;
                delta: Point.T;
                width: CARDINAL;
                end  : BITS Word.Size FOR VBT.EndStyle;
                join : BITS Word.Size FOR VBT.JoinStyle;
                path : PathRec
              END;
  StrokePtr = UNTRACED REF StrokeRec;

CONST StrokeCommand = 1;

TYPE
  LineRec = RECORD
              ext  : PaintPrivate.ExtensionRec;
              delta: Point.T;
              width: CARDINAL;
              end  : BITS Word.Size FOR VBT.EndStyle;
              join : BITS Word.Size FOR VBT.JoinStyle;
              p, q : Point.T;
            END;
  LinePtr = UNTRACED REF LineRec;

CONST LineCommand = 2;

TYPE
  PictureRec =
    RECORD
      ext       : PaintPrivate.ExtensionRec;
      picture   : ADDRESS;
      completion: ADDRESS;
      (* /picture/ and /completion/ are really an Picture.T and
         PictureRep.Completion, respectively, but we don't want to put
         traced storage in an untraced structure (and so lose the safety of
         the interface).  Consequently, the creator of this record must
         hang on to the picture and completion objects to stop them being
         moved by the collector.

         trust us... *)
    END;
  PicturePtr = UNTRACED REF PictureRec;

CONST PictureCommand = 3;

END PaintExt.