{$loadlib pumbaa.dll}

const
  RESIZE = 0; // RED = TPA before, WHITE = TPA after.

procedure TPADeflate(var TPA: TPointArray; times: Integer);
var
  i: Integer;
  t: TPointArray;
begin
  if (Length(TPA) > 0) then
  for i := 0 to (times - 1) do
  begin
    t := CopyTPA(TPA);
    pp_TPAEdge(t);
    pp_FilterItems(TPA, t);
  end;
end;

procedure TPAInflate(var TPA: TPointArray; times: Integer);
var
  i: Integer;
  t: TPointArray;
begin
  if (Length(TPA) > 0) then
  for i := 0 to (times - 1) do
  begin
    t := CopyTPA(TPA);
    pp_TPAOutline(t);
    pp_Append(TPA, t);
  end;
end;

var
  TPA, p, t: TPointArray;
  bmp, bmp2, i: Integer;

begin
  bmp := CreateBitmap(500, 500);
  bmp2 := BitmapFromString(150, 174, 'meJzt1UGO01AQRdGNMGT/O2MNDQiEULqT2P+Vfau+7tUbZhDViZ2PDzMzMzMzs5F9//bj1+hvYb/7Y/F5Bz9/51e1zz3jewB6+wGjeit4kNiockERwUr4FARDBBUvrErwFIqPbWGgoIgl3S/oH2hthYIHOcL/UHuog6CISbWCRyzCl7B9TsHpNRHUcbmbX6QKltdKUMS17kQseRXbQ90ERTxbueALAgUvqpugiAvdg6jgdXUTFHGhboIinu2Gx7Dql2DPaigo4tkaCop4qksfw9rfgz2rp6COp7oI8YpfhT2rraCUx2suKOKRau9cLijlkUYI6vi6qtteLajjiwYJ6vis/KR3Ckr5ZRMFRfw/ikDKqnACHcPw44uYhJ9dxOXwa4u4HH5kKZPww4q4HH5PfLTAYvjdGo42ORp+qM6jcf6G32H6BNps8u0xBfeYgtOn4B5TcIMpuMEUnD4FN5iCG0y+Dabg9Cm4wRScPgU3mILT52M4fQpOn4LTp+D0KTh9BwVFbDsFp++4oIg9p+DoneJTsOHOCorYagt8CrbamqCITbbMJ2KTKTh6IZ+I+BQcvRI+EafbKbgBn4gKOtZOxA3sRNzATsHpdiJuYCfiBnb/wk8xbrTYF+E3GTTa6mn4ZfqPJnoffqK2o2VOhN+q1WiNxfC7NRntEIVfT7g8/JLy5eH3VDAPP6mCefhVdczDT6pjHn5PEfPwe4pYEn5SEUvCrypiSfhhRSwJv62IJeHnVbAk/MgiVoWfWsFLwyFELAm3ELEqXETBPBxFxDwcRcQ8HEXBknAaEUvCdRTMw4FErApnUjAPlxIxD5dSMA/HEjEMlxIxDGdSMA+XEjEMZxIxDDdSMA9nEjEMN1IwDDcSMQwHUjAPNxIxDAdSMAwHUjAMB1IwDzdSMAw3UjAMN1IwD2dSMAxnUjAPl1IwDJdSMA/HUrAqXE3BPBxOvqrk2yD59ki+PRJuj7TbI/m2STgzMzMzMzMzMzMzvJ93rRy3');
  FindColorsBitmap(bmp2, TPA, 2366701);
  offsetTPA(TPA, Point(150, 150));
  p := CopyTPA(TPA);
  if (RESIZE = 0) then
    DrawTPABitmap(bmp, TPA, 255)
  else
    if (RESIZE < 1) then
    begin
      TPADeflate(TPA, Abs(RESIZE));
      DrawTPABitmap(bmp, p, 255);
      DrawTPABitmap(bmp, TPA, 16777215);
    end else
    begin
      TPAInflate(TPA, RESIZE);
      DrawTPABitmap(bmp, TPA, 16777215);
      DrawTPABitmap(bmp, p, 255);
    end;
  DisplayDebugImgWindow(500, 500);
  DrawBitmapDebugImg(bmp);
end.