ClearTPAFromTPAWrap() vs. pp_TPAFilterPoints()

{$loadlib pumbaa.dll}

var
  TPA, filter, output: TPointArray;
  t: Integer;

begin
  TPA := TPAFromBox(IntToBoX(0, 0, 1000, 1000));
  filter := TPAFromBox(IntToBox(300, 300, 700, 700));
  t := GetSystemTime;
  ClearTPAFromTPAWrap(TPA, filter, output);
  WriteLn('ClearTPAFromTPAWrap: ' + IntToStr(GetSystemTime - t) + ' ms. [' + IntToStr(Length(output)) + ']');
  SetLength(output, 0);
  t := GetSystemTime;
  pp_TPAFilterPoints(TPA, filter);
  WriteLn('pp_TPAFilterPoints: ' + IntToStr(GetSystemTime - t) + ' ms. [' + IntToStr(Length(TPA)) + ']');
end.