PolySimplify2D

procedure PolySimplify2D(

  Source: PsdPoint2DArray;

  Dest: PsdPoint2DArray;

  SourceCount: Integer;

  var DestCount: Integer;

  Closed: Boolean;

  const Tol: Double = 1E-4

);