TPAFloodFillEx

// BLACK [0] pixels is the TPA we use flood fill for.
// NOTE: If you use start point to point that TPA contains (which is inside AREA!), it will floodfill
// the outline pixels (TPA points) inside the area, else it will do the opposite.
// ..that is, filling the white pixels (non-TPA points) inside the area.

const
  FLOODFILL_8WAY = False; // Change to see the effect. :) However, this works with Example ID 2 only!
  FLOODFILL_COLOR = 65535; // ..with this color.
  DISPLAY_DELAY = 1000; // Minimum delay that it waits before it shows the result.
  AREA_X1 = 50;
  AREA_Y1 = 50;
  AREA_X2 = 340;
  AREA_Y2 = 250;
  DEBUG_AREA = True; // Display the area where we used flood filling in.
  DEBUG_AREA_COLOR = 255;
  START_POINT_X = 150; // NOTE:
  START_POINT_Y = 200; // COORDINATES MUST BE INSIDE AREA! Else it wont detect anything, obviously.
  DEBUG_START_POINT = True;
  DEBUG_START_POINT_COLOR = 32768;
  DEBUG_START_POINT_SIZE = 2; //
  EXAMPLE = 2; // 1 or 2.

type
  TFloodFill = (ff4Way, ff8Way);

procedure __TPAFloodFillEx(var store, check: array of TBoolArray; X, Y, W, H: Integer; method: TFloodFill; skip: Boolean);
begin
  if ((X > -1) and (Y > -1) and (X < W) and (Y < H)) then
    if (check[X][Y] = skip) then
    begin
      check[X][Y] := not skip;
      if not store[X][Y] then
      begin
        store[X][Y] := True;
        __TPAFloodFillEx(store, check, (X - 1), Y, W, H, method, skip);
        __TPAFloodFillEx(store, check, (X + 1), Y, W, H, method, skip);
        __TPAFloodFillEx(store, check, X, (Y - 1), W, H, method, skip);
        __TPAFloodFillEx(store, check, X, (Y + 1), W, H, method, skip);
        if (method = ff8Way) then
        begin
          __TPAFloodFillEx(store, check, (X - 1), (Y - 1), W, H, method, skip);
          __TPAFloodFillEx(store, check, (X + 1), (Y + 1), W, H, method, skip);
          __TPAFloodFillEx(store, check, (X + 1), (Y - 1), W, H, method, skip);
          __TPAFloodFillEx(store, check, (X - 1), (Y + 1), W, H, method, skip);
        end;
      end;
    end;
end;

{==============================================================================]
  Explanation: !
[==============================================================================}
function TPAFloodFillEx(TPA: TPointArray; start: TPoint; method: TFloodFill; area: TBox): TPointArray;
var
  i, l, r, X, Y, W, H: Integer;
  store, check: array of TBoolArray;
  overlap, skip: Boolean;
begin
  l := Length(TPA);
  if (l > 0) then
  begin
    if (area.X1 > area.X2) then
      Swap(area.X1, area.X2);
    if (area.Y1 > area.Y2) then
      Swap(area.Y1, area.Y2);
    if ((start.X >= area.X1) and (start.Y >= area.Y1) and (start.X <= area.X2) and (start.Y <= area.Y2)) then
    begin
      W := ((area.X2 - area.X1) + 1);
      H := ((area.Y2 - area.Y1) + 1);
      SetLength(store, W);
      SetLength(check, W);
      for i := 0 to (W - 1) do
      begin
        SetLength(check[i], H);
        SetLength(store[i], H);
      end;
      for i := 0 to (l - 1) do
      begin
        if not overlap then
          overlap := ((start.X = TPA[i].X) and (start.Y = TPA[i].Y));
        if (((TPA[i].X - area.X1) > -1) and ((TPA[i].Y - area.Y1) > -1) and ((TPA[i].Y - area.Y1) < H) and ((TPA[i].X - area.X1) < W)) then
          check[(TPA[i].X - area.X1)][(TPA[i].Y - area.Y1)] := True;
      end;
      skip := not overlap;
      __TPAFloodFillEx(store, check, (start.X - area.X1), (start.Y - area.Y1), W, H, method, not skip);
      SetLength(check, 0);
      SetLength(Result, (W * H));
      for Y := 0 to (H - 1) do
        for X := 0 to (W - 1) do
          if store[X][Y] then
          begin
            Result[r] := Point((X + area.X1), (Y + area.Y1));
            Inc(r);
          end;
      SetLength(store, 0);
    end;
  end;
  SetLength(Result, r);
end;

//******* DIRTY EXAMPLE BELLOW: *******//
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;

function GetBitmapColorTPA(bmp: Integer; color: Integer): TPointArray;
var
  w, h, x, y, r: Integer;
begin
  try
    GetBitmapSize(bmp, w, h);
  except
  end;
  if ((w > 0) and (h > 0)) then
  begin
    SetLength(Result, (w * h));
    for y := 0 to (h - 1) do
      for x := 0 to (w - 1) do
        if (FastGetPixel(bmp, x, y) = color) then
        begin
          Result[r] := Point(x, y);
          Inc(r);
        end;
  end;
  SetLength(Result, r);
end;

var
  bmp: Integer;

procedure Example1;
begin
  bmp := BitmapFromString(490, 361, 'meJzt21mSKzkOBdHc/6ajPmSm' +
        '0ouRwQG4APz8dlcKBD1ZyjbrbQMAAAAAAAAAAAAAAAAAAAAAAAAAA' +
        'AAAAAAAAAAAAAAAqPsD1qNq5GNcNZHDC1UjH7Oqrzp3HAAVGGdG1T' +
        'Dgnpn7AKiA1xv5uGfmPgAq4PVGPu6ZuQ+ACni9kY97Zu4DoAJeb+T' +
        'jnpn7AKiA1xv5uGfmPgAq4PVGPu6ZuQ+ACni9kY97Zu4DoAJeb+Tj' +
        'npn7AKiA1xv5uGfmPgAq4PVGPu6ZuQ+ACni9kY97Zu4DoAJeb+Tjn' +
        'pn7AKiA1xv5uGfmPgAq4PVGPu6ZuQ+ACni9kY97Zu4DoAJeb+Tjnp' +
        'n7AKiA1xv5uGfmPgAq4PVGPu6ZuQ+ACni9kY97Zu4DoAJeb+Tjnpn' +
        '7AKiA1xv5uGfmPgAq4PVGPu6ZuQ+ACni9kY97Zu4DoAJeb+Tjnpn7' +
        'AKiA1xv5uGfmPgAq4PVGPu6ZuQ+ACni9kY97Zu4DoAJeb+Tjnpn7A' +
        'KiA1xv5uGfmPgAq4PVGPu6ZuQ+ACni9kY97Zu4DpPRnxfugrXi9E6' +
        'DqHfdp3QeIzizpdt4rOWE8mOweovCL95L3Sk64D+Y+QDjr4lz3k90' +
        'ZT6Jz8CjWtbfuJ7tzn8R9AH3KaSnPdpwz68dFpFyO8mzHOV0+WmQA' +
        'TfrlXNGcPPfHRaHZRgvNyd0X5T6AFKk2ZlE4VLVfKykKAUyncCj31' +
        'bkP4E4hAzNehzVeY7Jb60DV+aoWHMBRkbavWB7feKVFbvAUVWetWn' +
        'AAe5XbvrJ6J7zeq1H1UbKqBQewRN6PFq2I13sdqn6Uo2rBAQyQd4e' +
        '5S+P1no6qO4SuWnCApSh80KwF8npPRNWDglYtOMAi5D3X4D55vaeg' +
        '6rliVS04wHQUvk73bnm9B1H1OlGqFhxgIgq30bFnXu9uVG1Dv2rBA' +
        'WahcGOvFs7r3YeqjSlXLTjAOAp31Lh8Xu+3qNqRZtWCA4ygcBGPF8' +
        'Hr3Y6qRahVfeQ+QDcKV3NzI7zejahajU7VR+4DdODLiayrq+H1fkT' +
        'VskSqvhrMcYC3KFzf8Y54ve9RtT73qq9GchzgFSKP4vh1hdf7ClVH' +
        '4Vv11TyOA7QT2Rja8Xo/oupweL1f0VkX3nK5uxCdUHVcInenX47Cl' +
        'jDI+BL1a6HqBNwvUbwf9/1gFsurFA+GqtPwvUrlhIg8GbMLVW6Gqp' +
        'NxvFDZiog8JZtrlc2GqlPyulbNkIg8MYPL1SyHqhNzuVzBlog8vdV' +
        'XLBgPVadnf8VqORF5EUsvWq0fqi7C+KKliiLyUtZdt1RCVF2K5XVL' +
        'RUXk1ZR6vb0HgZGCrzeR17Ti3nVCouqabO5dJC3+uixrxdWLhETVZ' +
        'dlcvUJaRF7c9AAUWqLq4gwCUKiLyJH49fYdA47Sv958RcE2OwP3nK' +
        'gaW4H/XwOR4yPl6+04AxQkfr2JHL9m9UDV0LGuB8fM+OsSO7OSoGr' +
        'oWJeEQucunw5NaV5vl0+HJl5vVMDrjXySvd5EjivjbVA11Kxog86h' +
        'htcb+aR5vf9+GH809I3nQdVQsyIP386NPxdRhH69jT8XUfB6owJeb' +
        '+TD640KeL2RT4LXm8ivsJZfI51QtQ7W8mtuJ3Qu4u+H9ywSeL0ToO' +
        'odXu9k/g68J5LA6x0aVZ/i9c7kGDmb+eD1jouqr/B6p7Frm8384vU' +
        'Oiqpv8HoncPq1hM384vUOh6of8XpHdxr5xmb+xesdC1W34PUO7bTw' +
        '3X/kMpgaXu9AqLrRitfbxZT5A3k8ftnNnBrZhlHBZ6bvQdzj8ctu5' +
        'tT0bRhlfTBr/hBazl5zM1cGt2EU8cHcJYhrOXvNzVyJvo3o83do/O' +
        '0uuJkbsbYRa9opqLpD9G1En/+VV1/MSm3mUaxtxJp2EFV3i76N6PO' +
        '3exX5VmkzLWJtI9a0I6h6RPRtRJ+/0avCd//I0sGiiLWNWNN2o+pB' +
        '0bcRff5Hb7+cHP/BdbMFEmsbsabtQNVTRN9G9Pnv9RW++2dXDBZOr' +
        'G3EmvYtqp4lwTYSHOGo+8vJ8SdMny2ciKuIOPMjqp4oxypynOLXeO' +
        'RbxrV0i7iKiDPfo+q5cqwixym+xgv//TmzpgotYiERZ75B1dPZF7L' +
        'i42aF4W7Kl5PdT5syWGgGeVD1DapewT6Pv4PpP3nWD7S3IvLQC5nF' +
        '5umm6lNUvYj9Ko6dzxog+rVO/92PvpCJ7F9vqv6g6nUcX+/tovlZP' +
        'zyQ6b/yux876wcGZbAHqj6i6qW89nD80FnBR7zZRZFvMbexgs0eqP' +
        'oXVa/m+3qffu5g8IuCWWfpwLFWsYhZElT9RdWrOSbR8rndwUe53O7' +
        'f5Y6PWPHDozBbAlVvVG3Fdwkd3bZXoX+/BpFvEfawmvEGqJqqDbhv' +
        'oGOA9uANEhphNp7yEgzYZ0DVVL2aQgYjA7QE737AUy2/pCs+bvUHa' +
        'bI/PlVT9Woixx+c4bT27w+0zKmR/UhqG7DkFQBVm32izcdJ0Qlg1h' +
        'hXwQue1HgYkePbc7x6qjb7XLNPFKFz9duCW9Ds3HESheO7cDw4VZt' +
        '9tOWHKlA7+KJhdGoX+XT7j3bkfmqqtvl0+492JHjq1SM5Bu/+K7ZJ' +
        '3vhq7jvfqNpqBpdPd+G+81NmIxkHrxD5Vq9zhZ1vVL2Y+wDGFHZ+x' +
        'XKqq9rnDqCzbZExbOisfaPqlUTGsKGz9lMusy0Kft3vzuA83oMsJ7' +
        'X2japX0plkNam1n/Idb2LwapFv3rs1o7b2zXvzVJ2A2tqvKEw4GLz' +
        'mqgVHmk5z8xtVLyM40nSamz8lNefb4Dt+KcxoTjWR7OY3seVTdSCy' +
        'mz8lOOpN7b9zKke+SS52IuXNb5LLp2p9ypu/IjvtffDiexYfr1uI5' +
        'W9UvYb4eN1CLP+U/szhIt8ibLVDiM1/6M9J1SJCbP5KoMmjRL6F2m' +
        'qLQJv/iDiq/sAhhmwXaPM3Qg+vKXoSv4JGHmvaEMI1cCNo1UcJjqA' +
        'mx0r/DrwneiHizOJyrDR01Uc5TiElwUqjFx53clkJVhq96lOZzqIg' +
        'dB5pvpyEHl5Q6B7SVH2U70S+gu4zWeE5TqEj6D6TVX2U9Vxewu0zZ' +
        'eGZzqIg3D5TVn0q9+mMBarlWHiIsRslO46vQHnkrvqowhnNhFhmhc' +
        'KznstFiGVWqPqozkkNiC+zTuG5T2dMfJl1qj5V7bzraMZzmrfakNN' +
        'VOKMNzWBqVn1U9uDTqW2ycuGlDruU2iYrV31U/PgTiWySvDeZu0hA' +
        'ZJNUfYU9TOFb1FXeZW+28tknompxLGQK+zXetM1tsocpqFocm5nCZ' +
        'o33bXOPX2xjCqrWx37GrcuMtvuwmXFUrY91jZu4w5awua9HbGkcVe' +
        'tjb+P6dtieNHf0FhsbR9UhsMNBHcUS9moscBBVh8BWBxG2IFY6iKp' +
        'DYMmDSFoQex5E1VGw+RFsTxP3MoLtRcG/OkewOk1UPYLVRUHnI1id' +
        'JqoeweoC4bK6sTpZXE03VhcIX1S6sTdZVN2NvQVC593Ymyyq7sbeY' +
        'uG++vBEKONq+lB1LNxXN1Yni6vpxuoC4bJG/P3wngX/41JGUHUgXN' +
        'MgUhfEjQyi6hC4pnF8XVHDdYyjan1c0CxsUgd3MQubFMftzELqOri' +
        'IWahaGbczEX9viuAWJqJqWdzLdKzUHVcwHSvVxKVMx9cVdyx/OqoW' +
        'xI0swmIdsfxFWKwUrmMdduuFza/DbqVwF+vw96YXdr4OVevgIlZjw' +
        '/bY+WpsWAG3YICvK8bYtgGqVsD+bZC6JVZtg6odsXxLbNsGe7bEtl' +
        '2wdnv8vbka67VH1cbYtiOWvwiLdcTyzbBnX3xdWYF9+qJqA6xXBKl' +
        'PxCZFUPU67FYK1zEFa5TCdazAVgXx9+YgtieIqqdjmbJIvRt7k0XV' +
        's7BGcXxd6cC6xFH1OBYYBTfVjl1FwU11Y3WxcF8t2FIs3FcflhYOf' +
        '28+YjnhUPVb7CouUr/CWuKi6kYsKjq+rhyxkOio+hH7SYOr/GIVaX' +
        'CVN9hMJqT+wRIyoepT7CQf/t6sfPasqHqHbSRW9nLLHrwCLveDPaR' +
        'X8OtKtfMWVLDqo9DHDz28sVKphz5p6OGNlap6J/TB+ZfvW0XWFfqM' +
        'VP1WzXVFP/Xfv7zHiSH9xqKfjqo7VNtYgsP+HXhPFEbWjSU4F1V3q' +
        '7OxBMc8dh79RJZSLi3Bcah6RIWl5Tjd7zVVuLUVMi0tx0Goelzipa' +
        'U52vEg1N4i5Ve7NGeh6j4pq97JdLTTs+S+vhHHvNNsKf1Zkt3XRIm' +
        'rPsp0tKubSn+Jr1TIO9OJqLpFhap3kh3w5sqKXOiVq7ZTbiPZuaj6' +
        'Sqmqd5Kd9PHuSl3uR8G2k52Rqo8KVr2T78gtJypy12XzzndSqv4qW' +
        '/VRvoM33mbieyfvfOelaqreSXn89mvN1MBV2wmO9lbKU1N18ap3su' +
        '7h1bmi90DbO1k3QNVBz7JC4oW8PVrEPMj7VOI9UDW+Eq+l49KjpEL' +
        'e9xJvg6rxkXs5fbcvmw1tN8q9FqrGlvqvy4/uA0pVRN6vpN8PVaPC' +
        'ukbO6F4UeXeosCWqRoWlDbZhX9dV2+lvapYKu6Lq4oqsbjwSm9Joe' +
        '4oiS6PqyoqsceIxF7VH3hMV2R5VV1ZnmXNPOrFDl7xzXzpVD/40qg' +
        '6hznmn9zPS5FXbS+/C/rfJS+Kj7VB1nap36px0W/N9rCMYy9hufps' +
        'SX33iox1RdZGqd0oddlt23lfZGGT22HbuzhMf7RRVV6h6p85Jv9Yd' +
        'ubEcmwEeq07cedZz3aDqV9PmUOSYv5Zebks8cwd41fa6MaRkPdcNq' +
        'l4xhrIix9xZfb+PqQ9+emPY9x/R+F+LKOWhHlF1y5BpFDnmkcHB7y' +
        'vq+PTxsK9+4Ksx9GU91yOq3srcfpFjnrI5+1V+7Z8+ve3H2aJLeah' +
        'GVJ216qMKZ7xidsWnOd1/9Lq2Tz9l8OeoSXmoRlSdteqdCme8MrGW' +
        'vo87zd6g7dOpJv5Md/lO1I6qt6RV71Q44w3747eXvC7s03kW/XwXK' +
        'Q/VjqorBNC9c3EdG1i35JsPnXiQ8WEMPsvGzJKUdGxg3ZJvPnTiQc' +
        'aHMfgsLzPbEvN2A0v3fPO53ZNPH8Pyc5dalZSAtxtYuuebz+2efPo' +
        'Ylp9rb1E/jkJ0vmk05j7AIlRN1SGuFTuv7q7yRSv8oqERVTei6uja' +
        'r6/yRVc+e0RU3aLy2dOg83t8RYmIqu9RdRotl1j2rssePDqqvlH24' +
        'Pm0XGXZ6y578Oio+kbZg6dE56dqnjoNqj5V89S53V9ozRuveepMqP' +
        'qo5qlzu7nTmtdd89TJUPVOzVNXcHWzNW+85qnzoepfNU9dBJ1//P3' +
        'wngWjqPqDqnM7vdyCN17wyIlR9UfBI1dzvOJql85XlHyomqqLoPNS' +
        '5y2Cqkudt7Lfiy5173xFSYyqi5y3uN+7LnXvpQ5bDVV7DwIjfwfeE' +
        '1koddiCqBrpETnyoWrkVrPwj4JHLoKqSx25JiKvduoKqLraqaupXP' +
        'hH2YMnRtVlD14EhW98RUmHqjeqTo3Cv9hAGlT9xQayIvIvlpAGVX+' +
        'xhJQofIc9JEDVO+whGQo/xTZCo+pTbCMTCj/FQkKj6lMsJA2+nNxg' +
        'J0FR9Q12kgCF32MzEVH1PTYTHYW3YDmxUHULlhMakbdgP7FQdQv2E' +
        'xeFt2NFUVB1O1YUEYW/wqJCoOpXWFQ4FN6BXYmj6g7sKhYi78O6lF' +
        'F1H9YVBYV3Y2myqLobSwuBwsexOjVUPY7ViaPwKdihFKqegh3K4sv' +
        'JXKxRAVXPxRrVUPgi7NMRVS/CPkVQ+FIs1gVVL8ViFRC5AXZrjKoN' +
        'sFsFpL4au7VH1auxWxHH1LmRudiqPapeja3qOK2dq5mCfXqh6nXYp' +
        'xpqX4RlOqLqRVimJmqfjjW6o+rpWKMsap+IHYqg6onYobjT2rmsDq' +
        'xOB1XPwur0Ufs49qaGqsext0CofQQb00TVI9hYLHxp6cauZFF1N3Y' +
        'VDrV3YFHiqLoDi4qL2l9hRSFQ9SusKDRqb8R+AqHqRuwngdPaudAd' +
        '1hILVbdgLTlQ+z12EhFV32MnyVD7FRYSF1VfYSH58KXlFHsIjapPs' +
        'YeUqH2HJSRA1TssITdq/yp+/Eyo+qv48Ssg9Y0vKulQ9UbVZZB65b' +
        'NnRdWVz14NqZc9e2JUXfbs1VS+6+K/5olVvlaqrqP4RRc/flbFr7X' +
        '48esoftF8UUmp+J1SdRHcMhvIhztlAxXwr2k2kA93ygaK4JZJPR8u' +
        'lKor4Io3lpAOF7qxhAK44o0vKulwmxtVF8D9frCHTLjND/aQm++/o' +
        'P8u+E5i/+mYS6clnUnsPx0GvO73KvJ7BvOs+wiYoerdPOs+Ao5idb' +
        '60f1JPg6qPI035aZDicrn3H+rV//RfHHih6tPPnXFKCLG/2e5PnNj' +
        '/1afTeQ5UPWU2iHu8+hAfN/dXgNSjo2qqLsLsZu0rovOyqJqqK7C5' +
        'WamE6Dw9qqbqCgxuNlA/IYbEI6r+FWJIdLDsfN1HAL+oGhWs/gpB5' +
        'LBH1ShiXYqB/rpEMlSNChalSORwRNWoYEWNRA5fVI0KpgdJ5HBH1a' +
        'hgbpNEDgVUjSImlknkEEHVqGBWnEQOHVSNCqb0yV+XkELVqGC8TyK' +
        'HGqpGBYOJEjkEUTWK6A6VyCGLqlHBeOcrpgJGUDUq6MuVyKGMqlFB' +
        'R7FEDnFUjQreRsv/MAh9VI0i2rslckRB1aigMV0iRyBUjQpa6iVyx' +
        'ELVqOBV52ZTASOoGhU8NkzkCIeqUcRNyfx1iaCoGhVclUzkiIuqUc' +
        'FpzESO0KgaFRx7JnJER9WoYJc0kSMBqkYRv2ETOXKgalTwd+A9ETC' +
        'KqlEBnSMfqkYFRI58qBoVEDnyoWoUQeTIh6oBAAAAAAAAAAAAAB3+' +
        'A9qZhKc=');
end;

procedure Example2;
begin
 bmp := BitmapFromString(490, 361, 'meJzt3dtyorkOgNG8/0tnVw2z' +
        'KQYSIvz7INlr3TexP4E6B9L9/Q0AAAAAAAAAAAAAAAAAAAAAAADzf' +
        'AEks3ov1iAUkIqlFCQUkIqlFCQUkIqlFCQUkIqlFCQUkIqlFCQUkI' +
        'qlFCQUkIqlFCQUkIqlFCQUkIqlFCRUA9FgHK+vIKE+dSumGwzixRU' +
        'k1KdsbxjKiytIqI885pIORvDKChIq7rWVetCdl1WQUEG/hRIQ+vKa' +
        'ChIqyPaGObymgoSKeF9JQ+jICypIqD9FEskIvXg1BQn1XrCPjNCLV' +
        '1OQUO/F+ygJXXgpBQn1xqdxxITrvI6ChPpNQxkx4TqvoyChftScRU' +
        '+4yIsoSKgfXckiKVzhFRQk1KvrTVSFZl4+QUI96RJkQtUv0hv9HNi' +
        'VdEFCPekVZHRYg0vOgJpJFyTUo741hrY1uOQMqJl0QULddU9he5/M' +
        'gJpJFyTUzaAO4/IaXHIG1Ey6IKFuyq1Zg0vOgJpJFyTUd82fMBpcc' +
        'gbUTLogoSYUsL0PZEDNpAs6PNS069f6kSjXGVAz6YIODzXz+oXejs' +
        'h1BtRMuqCTQ02+u+19FANqJl3QsaGWXLzjBz12cFUYUDPpgo4Nter' +
        'iVX4Tn4sMqJl0QWeGWnvrLh/9zMEVYkDNpAs6MNTyK9veJzCgZtIF' +
        'nRYqyX2vHyPJRfiNATWTLui0UHnue/EkeS7CjwyomXRBR4VKdVnbe' +
        '28G1Ey6oHNCJbzplSMlvA6PDKiZdEGHhEp7zeaDpb0RNwbUTLqgQ0' +
        'KlvabtvSsDaiZd0Amhkt+x7XjJL4UBNZMuaPtQJS7YcMgS9zqZATW' +
        'TLmjvUIVu9+lRC13tTAbUTLqgvUMVup3tvRkDaiZd0PV3HWfWq9Ic' +
        'q2v9YXWeYhRrJl3Q9VBSLzEzuxE3EK2ZdEG2d1G2d3KiNZMuqEsot' +
        'eeb1txw2+jWTLqgXqEEn2xOcGNtJl0z6YJs76Js7+SkayZdUMdQms' +
        '80obaBXqFeM+mCbO+ibO/k1GsmXVDfULJPMzq1UV4kYDPpgrqHUn6' +
        'OoZ0N8ToNm0kXZHsXZXsnp2Ez6YJGhBJ/gnGRja8LGZtJFzQolP6j' +
        'GVxySjaTLsgSKMrgklOymXRBvgAvyre8khOzmXRBfvhVlB83J6dnM' +
        '+mCbO+ibO/k9GwmXZBf+ijKr1klJ2kz6YJs76Js7+QkbSZdkH8uoy' +
        'j/QE1yqjaTLsg/NFqUf9o3OWGbSRdkexdleycnbDPpgvwHW0X5L+2' +
        'S07aZdEH+c9ui/HfSycnbTLog27so2zs5eZtJFzQ5lLn0crGkQYym' +
        'cDPpgmzvomzv5BRuJl3Q/FBG08WVjEYwgcjNpAtaEsp0rmtuKP4cv' +
        'jhqdvLdP2J7F2V7J3f9i6NjJ3XsxT+1KpQBXdQWUPZpuvz1eua8zr' +
        'x1g4WhzOiKhnqCz2R7Nzvz1g1s76Js7+R6fXF04NQOvHKbtaGMqdm' +
        'n6aSerONfr6fN7rT7NlseavkBivqom8jz9f3r9agJHnXZK5aHWn6A' +
        'omzv5GzvZkdd9ooMoTKcoZx4NHmX6P7X6zlzPOemF2UIleEM5djey' +
        'Y0Y0CGjPOSa1yUJleQYhQSLCbvKoAGdMNAT7thFnlB5TlKCr7WTGz' +
        'SgE2Z6wh27yBMqz0lKsL2TGzeg7ce6/QV7SRUq1WGS+7OVmGsNHdD' +
        'ew937dh3lCZXnJCX43Du50e8A3Hi4G1+trzyh8pykBNs7uTfxe81l' +
        '1/nueq/ukoRKcoxCvOckOdu72a736i5DqAxnKOfim4S/rul6lT39V' +
        'qlvvS1nseWlRsgQKsMZyvloe3dfv1b6n377S3POByptvxsNsjzU8g' +
        'MU9f4L86elOieyZf7otcC4JpvV3uw64ywPtfwART11e782l0Q+fJO' +
        '/Dmjax6pus+uMszaUMTW7f1IdXI/LB33aGp+5vSc8/kw73WWohaHM' +
        'qFnbMswQ/Jw1/njHad+5mvBRJtjmIqPZ3oVc/FZ2quDbr/H71Wbec' +
        'Y+ee9xiglWhDOgjr4uuLWDC7Lvu8Jk/L376oNXtcYsJVv08a/4HrW' +
        'jEDyJzxt/vU/El23vJR+xugyvMYXvn9Ocq22x7322zwxdepHrA6ue' +
        'fxucG2Ux4D0n+EWyww5e/yWfhR7+o9OFn8n25PD5aWRdLlhhE3R2+' +
        '/ORFu92UPvxMtncGDS/2E7b3zfJN+KlV3/H+8RgV1T35ZN7OtFbza' +
        'roes9Y4Cu3wJNs7yRkaFD32fLb3Qmu/d11xHPnPfD9hkqMmOcZHKp' +
        '55iWmhTOTR9c8ku/SsOJTMn4Q/HizPIfOcJKjcgVeZE8o4HqVavEV' +
        'Hk/DYT0fKc8I8Jwkqd+BVbO+ZOn7emO1x5sv2SXja7f2d7DB/qnXa' +
        'hSaEMoubvh06PlrpASU5/OsxkhzsLtt53ih01LVGhzKIm+4d0v5dM' +
        'N/yw/94gOWnepXwSD+qcs7lbO8JRkSwvR8tPP9vHzph0oRH+lGVcy' +
        '43NJQpjPvebPJP5udb8m3wNx8xZ8+cp3pS4pAZ2N7j1Gq7x7Am36L' +
        'c9v5OfLC7/CdMYlyow0dQ8VtSe4wsya8wZI6Z+Wzf6Y+XR5Wv62up' +
        '+06ePQaXoX/mkpnP9p3+eHlYAt2Vfgv9NoNb/m2r5CUzHy/z2VLxB' +
        'XhfSb5sz/nIk61NlD9j2hOmPVg2fvjV0cy7L//csoSFn5yUaJjzkD' +
        'lPlZDt3Uuedzskf/DJVr0xvkrDhOdMeKSc/NJHF6neaVzi8WfqdZe' +
        'PHqdKwITnTHiknPxzGdctuXiGt1UUcv0unz5CoXrZjprtPGnZ3het' +
        'urXt/amL19l4e38nO22qw2S25IvKbST85zUqfpRpmq/T8AfLpctz4' +
        'DwnSc72brb2yrZ3m2l7uFy6PAfOc5LkuoQ6s/YJ23vmB5pj2jdAKn' +
        'ZLcuYkx8hv/k9z9rD81tu8t3y+OW8dKRotw7EznKEE27tBhivb3ld' +
        'M+I2butGWn3z5Aaq4/oP4zHpVerryiIf9PjLmQn/e6OKV6xZbfvLl' +
        'B6hi71Ajbjeo2KcPu/fgJngf8Hre0gNae/jS6WbaO1T3243LZXvP9' +
        '1vDLm2rD2jh+aunm2b7UB0vmGd1t/0RXv2Y0fa+WXWFDdLNcUKoXn' +
        'dM8j2TK3+KJ68Zkz9bJltyiz3STXBIqLTfxmx+2EMGN8FjyRJfqc1' +
        'ke2d2SCjbm9/cS/ZNus2A5l9km3SjnRPqyk2zre6Lf5Ynt5i2928m' +
        '32WndEMdFSrVd5iPfTtxToXenrTEzOtslm6c00LleXeH7Z3HiF9H2' +
        'mxAtndCp4VK8rbqtN+HP5DvewdNu9F+6QY5MNRHV07725oHDm6EQW' +
        '846f5oScy51JbpRjgzVPDWaT/x7vUgPGX0jsE/TbjXrum6OzZU5OJ' +
        'pP/Hu+DgnG/erOn0fKhXbO49jQy3Z3pZDHuN+R777Q2Uz+mobp+vr' +
        '5FDv7555dXd/tNO8qeeLo4iht9s7XUeHh5rwKh70gIcP7iLb+7pxF' +
        '9w+XS+Hh/rt+slX94gHPMef6fxYOSjzj/VPINTo7392f7Rxj3mCaT' +
        '/vOGFAtvdaQn0Pfu9B90cb95jbm/lO0UMG5Lm9kFA35X5r44v0Rsw' +
        '9oe43PSfdRULdfI3Z3vLm8dEsDO4jfXOJHyTU3T1Fryba5vHpLMzu' +
        'I7b3EkI96vsFr7ZJtA3C+D7ihTOfUE984r2Z5kGY4Ke8diYT6kmXI' +
        'KrmYXvP5OUzk1BPunzzRNUkrgzCEBvY3jMJ9eQWxKt+AxcHYY5tfP' +
        'IzjVCPrr/tRM8kfBK4kL835xDq0cV3fYuZhB+fLeer1wmEevRUw5u' +
        'Ei7K9l7O9JxDq0WuNeB8lk/DG4yR8+3E0oR41b28Zk/BLf6n4Pamh' +
        'hLr7LUUkkYwZjJiCyV7k50fjCHX3JsX7ShomYXvn5OdHgwh117aiB' +
        'Uxi0CDM9zrbexCh7mzvusZNwXy78M/zjiDU3Z8prrwjhXGGTsGIe/' +
        'H2re6Euvv0p5PSZTB6CqbckXdw9SXU3UdPLd2SsL0Lsb37EurO9i5' +
        'nwhQMui/vv+1IqDvfl6tlzhTMuruGHzDxI6HupChk2rA8K0bwCxRd' +
        'CHUnRSG2d2m2dxdC3UlRxcxJeVYM0vyrzdwJdSdFCV9s5LcRT35SF' +
        'SXUnRS88qyYT/Mgoe6k4JVnxXyaBwl1JwWvPCvm0zxIqDspeOVZMZ' +
        '/mQUI9UoNHng9LyB4k1CM1eOT5sITsQUI9UoNHng9LyB4k1CM1eOT' +
        '5sITsQUI9UoNHng9LyB4k1BNBuPFMWEX5IKGeCMKNZ8IqygcJ9UQQ' +
        'bjwTVlE+SKgngnDjmbCK8kFCPRGEG8+EVZQPEuqVJngOLCR+kFCvN' +
        'MFzYCHxg4R6pQmeAwuJHyTUj2Q5memvpX+QUD+S5WSmv5b+QUL9SJ' +
        'aTmf5a+gcJ9RtlzmTuyxlBkFC/UeZM5r6cEQQJ9YY4pzHxDEwhSKg' +
        '3xDmNiWdgCkFCvSHOaUw8A1MIEuo9fc5h1kkYRJBQ7+lzDrNOwiCC' +
        'hPqTRCcw5TzMIkioP0l0AlPOwyyChIpQaW/mm4pxBAkVJNSuTDYbE' +
        'wkSKkioXZlsNiYSJFScVvsx04QMJUioOK32Y6YJGUqQUB+RayemmZ' +
        'O5BAn1KcX2YI5pGU2QUJ9SbA/mmJbRBAnVQLTqTDAz0wkSqo1udZl' +
        'dcgYUJFQz6SoytfzMKEioZtJVZGr5mVGQUFeoV4t5lWBMQUJdJGAV' +
        'JlWFSQUJdZ2G+ZlRIYYVJFQXMmZmOrWYV5BQvSiZk7mUY2RBQnUkZ' +
        'jYmUpGpBQnVl555mEVRBhckVHeSZmAKdZldkFAjqLqW/qUZX5BQgw' +
        'i7ivLVmWCQUONoO5/mGzDEIKGGkncmtfdgjkFCjfb1j9Wn2JzIOzH' +
        'KIKHm0HkcbTdjoEFCTSP1CKrux0yDhJrJF/gdibkrYw0Saj7Nr9Nw' +
        'Y4YbJNQSPm9sJt32zDdIqIXE/5RiJzDlIKHW8plkkFDnMOggoTKwm' +
        't4Q5zTGHSRUHtbUE0HOZOhBQmVjZX2LcDajDxIqp2PX17EX584TIE' +
        'iozL7+b/VBhjvnpvzJ0yBIqBI23mwbX402ng9BQhWy0yeoO92Fvjw' +
        'rgoSqqO7qq3typvH0CBKqtCrLsMo5ycDzJEioPXw9WH2WfyU8EiV4' +
        'wgQJtZ+v/9r+47IZT54gobb39ZOEjwk3nktBQp3px/Ubt/r47MwTL' +
        'EgoIBVLKUgoIBVLKUgoIBVLKUgoIBVLKUgoIBVLKUgoIBVLKUgoIB' +
        'VLKUgoIBVLKUgoIBVLKUgoIBVLKUgoIBVLKUgoIBVLKUgoIBVLKUg' +
        'oIBVLKUgoIBVLKUgoIBVLKUgoIBVLKUgoIBVLKUgoIBVLKUgoIBVL' +
        'KUgoIBVLKUgoIBVLKUgoIBVLKUgoIBVLKUgoIBVLKUgoIBVLKUgoI' +
        'BVLKUgoIBVLKUgoIBVLKUgoIBVLKUgoIBVLKUgoIBVLKUgoIBVLKU' +
        'goIBVLKUgoIBVLKUgoIBVLKUgoIBVLKUgoIBVLKUgoIBVLKegLIJn' +
        'VexEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
        'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
        'IBK/gdQF2fi');
end;

function Bitmap(ID: Integer): Boolean;
begin
  Result := ((ID = 1) or (ID = 2));
  if Result then
  case ID of
    1: Example1;
    2: Example2;
  end;
end;

procedure Setup;
var
  shape, TPA: TPointArray;
  w, h, t, x, y: Integer;
  start: TPoint;
  area: TBox;
begin
  if not Bitmap(EXAMPLE) then
  begin
    WriteLn('Invalid example... TERMINATING!');
    TerminateScript;
  end;
  GetBitmapSize(bmp, w, h);
  DisplayDebugImgWindow(w, h);
  start := Point(START_POINT_X, START_POINT_Y);
  area := IntToBox(AREA_X1, AREA_Y1, AREA_X2, AREA_Y2);
  if (area.X1 < 0) then
    area.X1 := 0;
  if (area.Y1 < 0) then
    area.Y1 := 0;
  if (area.X2 > (w - 1)) then
    area.X2 := (w - 1);
  if (area.Y2 > (h - 1)) then
    area.Y2 := (h - 1);
  if DEBUG_AREA then
  begin
    for x := area.X1 to area.X2 do
      FastSetPixel(bmp, x, area.Y1, 255);
    for x := area.X1 to area.X2 do
      FastSetPixel(bmp, x, area.Y2, 255);
    for y := area.Y1 to area.Y2 do
      FastSetPixel(bmp, area.X1, y, 255);
    for y := area.Y1 to area.Y2 do
      FastSetPixel(bmp, area.X2, y, 255);
  end;
  if DEBUG_START_POINT then
    if (DEBUG_START_POINT_SIZE > 1) then
      SetPixels(bmp, TPAFromBox(IntToBox((START_POINT_X - DEBUG_START_POINT_SIZE), (START_POINT_Y - DEBUG_START_POINT_SIZE), (START_POINT_X + DEBUG_START_POINT_SIZE), (START_POINT_Y + DEBUG_START_POINT_SIZE))), DEBUG_START_POINT_COLOR);
  DrawBitmapDebugImg(bmp);
  FreeBitmap(bmp);
  Bitmap(EXAMPLE);
  TPA := GetBitmapColorTPA(bmp, 0);
  t := GetSystemTime;
  if FLOODFILL_8WAY then
    shape := TPAFloodFillEx(TPA, start, ff8Way, area)
  else
    shape := TPAFloodFillEx(TPA, start, ff4Way, area);
  WriteLn('TPAFloodFill() finished in ' + IntToStr(GetSystemTime - t) + ' ms.');
  while ((GetSystemTime - t) < DISPLAY_DELAY) do
    Wait(1);
  SetPixels(bmp, shape, FLOODFILL_COLOR);
  if DEBUG_AREA then
  begin
    for x := area.X1 to area.X2 do
      FastSetPixel(bmp, x, area.Y1, 255);
    for x := area.X1 to area.X2 do
      FastSetPixel(bmp, x, area.Y2, 255);
    for y := area.Y1 to area.Y2 do
      FastSetPixel(bmp, area.X1, y, 255);
    for y := area.Y1 to area.Y2 do
      FastSetPixel(bmp, area.X2, y, 255);
  end;
  if DEBUG_START_POINT then
    if (DEBUG_START_POINT_SIZE > 1) then
      SetPixels(bmp, TPAFromBox(IntToBox((START_POINT_X - DEBUG_START_POINT_SIZE), (START_POINT_Y - DEBUG_START_POINT_SIZE), (START_POINT_X + DEBUG_START_POINT_SIZE), (START_POINT_Y + DEBUG_START_POINT_SIZE))), DEBUG_START_POINT_COLOR);
  DrawBitmapDebugImg(bmp);
  FreeBitmap(bmp);
  SetLength(TPA, 0);
end;

begin
  ClearDebug;
  Setup;
end.