{$loadlib tpaconvexhull.dll}
{$loadlib pumbaa.dll}

const
  RESIZE = 10;

{==============================================================================]
  Explanation: Sets points from TPA that are inside bmp as color.
[==============================================================================}
procedure SetPixels(bmp: Integer; TPA: TPointArray; color: Integer);
var
  a, z, w, h: Integer;
begin
  z := High(TPA);
  if (z > -1) then
  begin
    GetBitmapSize(bmp, w, h);
    for a := 0 to z do
      if ((TPA[a].X >= 0) and (TPA[a].Y >= 0) and (TPA[a].X < w) and (TPA[a].Y < h)) then
        FastSetPixel(bmp, TPA[a].X, TPA[a].Y, color);
  end;
end;

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

begin
  bmp := CreateBitmap(300, 300);

  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(50, 50));
  p := CopyTPA(TPA);
  for i := 0 to RESIZE do
  begin
    t := CopyTPA(TPA);
    pp_TPAOutline(t);
    pp_Append(TPA, t);
  end;
  SetPixels(bmp, TPA, 16777215);
  SetPixels(bmp, p, 255);
  DisplayDebugImgWindow(500, 500);
  DrawBitmapDebugImg(bmp);

  DisplayDebugImgWindow(300, 300);
  DrawBitmapDebugImg(bmp);
end.