(* Copyright (C) 1992, Digital Equipment Corporation                         *)
(* All rights reserved.                                                      *)
(* See the file COPYRIGHT for a full description.                            *)
(*                                                                           *)
(* Last modified on Mon Feb 24 13:57:19 PST 1992 by muller  *)
(*      modified on Fri Sep  6 17:25:31 PDT 1991 by gnelson *)
<*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;
  
END PaintExt.