Untitled

{$loadlib pumbaa.dll}

// 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
  CORNER_COLOR = 255; // ..with this color.
  DISPLAY_DELAY = 1000; // Minimum delay that it waits before it shows the result.
  EXAMPLE = 1; // 1 or 2.

{==============================================================================]
  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;

{==============================================================================]
  Explanation: Returns all the color points from bitmap as TPointArray.
               Result is based on Row-by-Row.
[==============================================================================}
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(574, 356, 'meJzt3eFy5CiyBlC//0vXjQ33' +
        'OHxdJQkBgkw459esY1qCJJPP5enufb0AAAAAAAAAANjO11Szdw9AP' +
        'hPjQ3IBUEFy8ZsPxUB8kovf/hyKn/QCAUkufis/FKEGzCK5+K3LoU' +
        'g0WN7V77+71vj2XhtJ9GqOPHooPqbBMuZGj+Tit1mHItQgF8lFHAE' +
        'PRahBQJJrurIfyg4yvRRzF3BL2DLC8hqnbO4vT/rqP6wkzgJ6kWjw' +
        'KMk1nZXEWcDTfEyDLiTXdFbyewF8m3sQEFzjjNT98ggTGudysBKAW' +
        '2Yl1+u//Gp5e4s4t7SVANziM9d0VgJwy5Tk6vXLk776DysBuEVyTW' +
        'cl0E73bkVyvX+9o5aVjBdnJXDL9P/6wGCS6/3rkgtykVy7kVzvX5d' +
        'ckEjF0JGd5Hr/uuSCRCTXhiTX+9clF2RRPXekJrnevy65IAvJtSfJ' +
        '9f51yQUpNI4eeY25nE/e3msjvV7dXpC7xZlYhD/irARKPHQvwTnJd' +
        'bKS8eKsBC51mT6oILlOVjJenJXAuY4DCHdJrpOVjBdnJXBOcjGR5D' +
        'pZyXhxVtKu7znuYPaJ3bDqvshiYl8dvXr8bRBnuOKspF3fc9zB7BO' +
        '7YdV9kcXEvjp69fjbIM5wxVlJu77nuIPZJ1Zq4a2RxcSmOnr1+Nsg' +
        'zmTFWUm7vue4g9knVmrhrZHFxKY6evX42yDOZMVZSbu+57iD2SdWZ' +
        'O3dkcXEjjp6dbeLoHhe4oxVnJW0c3FdyliiRycRClX3YRcDllRYhK' +
        '5FrRdnJe0qDmI36Uo0YBghqcbpqBiWODMVZyXt3FqX0pVowDBCUo3' +
        'TUTEscWYqzkraubUu5SrRsHmEjLoMyK1JiTNQcVbSzpV1KVGJBo8k' +
        'pNNxRgrHJM40xVlJO/fVpUQlGjySkE7HGSkckzjTFGcl7dxXl7KUq' +
        'O9IRt4pVBs/I3FGKc5K2rmsLmUpUd+RjLzTRmvvjnPjZyROs8VZSb' +
        'tNLqsWKUrUdx6Db7bF2rvj0vgBidNpcVbSbvmbql2KEvWdx+Cbrbb' +
        '8Brk0fkDitFmclbQzyJfil6jvMMbfb53lN0iJ8dMRp8firKSdKb4U' +
        'v0R9hzH+fussv8EnPNpaJYLvqPCN3XdRJ85K2j3dJwsIXqK+k1g9n' +
        'sEtv8GHzC3OE28fPxpxGizOStoZ4UvxS9R3GOPv965NtvmEuZV54u' +
        '3jpyNOd8VZSTvzeyl+ifoOY/z93rLPTp8wtyxPvH38dMRprTgraWd' +
        '4L6UoUd95DL7ZW442teRmu5tblifePn5A4rRWnJW0M7yXUpSo7zwG' +
        '32y58x2tt9/u5tbkibePH5A4fRVnJe1M7qUsJeo7kpF3WqhkR+vtu' +
        'q+5BVnjOOLsIs5K2hnbS1lK1COscuy0UMmO1tt1X3MLssZxxNlFnJ' +
        'W0M7aXEpWoR14l2GaJ8h2tt/eOzqvxdKetcRZxdvHESmbtzsxeSlS' +
        'iLjdJ/G1eurudxbbf0Xkp2gv19PMj6DiV7Z7YXfdnFr730X0tIFeJ' +
        'Yrb3YHd3tGQRujivQ3uVnn4+T5t1Rqb1UroSia2KHa1Xhy4kF+ckV' +
        '1jpSrRzcrVsZ7FSdCG5OCe5wspYIrFVt6PFCtJOcnFOcoWVsUSSq2' +
        '47ixWkneTinOQKK2mJxNbc56xBcnFOcoWVtERbJVffvaxUmUaSi3O' +
        'SK6y8Jdoktl6S6zGSi3OSK6y8JdokuZ7Yy0r1aXGZLO2q304Es87I' +
        'eF5KXaL22yO45/ayUpWqzd31njXPRXKFlbpEayfXo3tZqVDVJBfnJ' +
        'FdY2Uu0amy9nv9YtFKt6kguzkmusBYokdgK/pawJBfnZg3FzlNZaI' +
        'ESrZdcIzeyTNEqSC7OSa6w1ijRSrH1klyjNG72Y9eV13CrUiclucJ' +
        'ao0QrJdf4jSxTurvak6vlse//2kkUrqql/gPMWmSuKk2xTInW2Mis' +
        '0U53pXTRuM2jX1742Pd/bZOy/4i/X8kV1jIlSrGRy4XFSa6wNeyoP' +
        'bmO1L19h5r/Fn+/kiuslUqUfRdzs0NyTX/7DjX/Lf5+JVdYK5Uo+y' +
        '4k12CSa674+5VcYS1WotRbeM+OYduZ+OqJJNdc8fcrucJSolDiJNe' +
        'Y984lueaKv1/JFZYSRTM+RPaMrdfsm1Nyxd+v5ApLiQIaGSXbxtZr' +
        '9s0pueLvV3KFpUQBSa4xJNdc8fcrucJSopjGBMrOsfWafXNKrvj7l' +
        'VxhKVFYT8fK5rH1CvC3Lb2vZ0odZtltv+XO+4SXEgVWctfFfDh1dj' +
        'uC3fZbzmBeUqLIRiZXrydTbbdT2G2/5czmJSUK7omIEVsx7XYQu+2' +
        '3nPG8pETx9Q2a96c59yB2O4jd9lvOeF5SovieTq5e66TRbmex237L' +
        'mdBLSpRCr7gRW5Htdhy77becIb2kRFm0h47YCm63E9ltv+XM6SUly' +
        'uI9d+6el+QKbrcT2W2/5czpJSU6F6omLdEjtuLb7VB22285o3pJiX' +
        'KpCyCxlcJu57LbfsuZ1ktKlMt7Bl2eWsUvYYrdzmW3/ZYzrZeUKJ3' +
        '25BqzzhQ+xnqhJxbT/Zl/nj9sL4XrmfLe+CKcTnBKlFH5zRPkjgqr' +
        'uiBJk2vKe4/oxiNm9pISJVUSSWLrkuQa8N4jGvKIsb2kRElJri4k1' +
        '4D3HtGQR4ztJSXK6zyYxFYJyTXgvUf05BGTe0mJUjuKJ7FVSHINeO' +
        '8RbXnE8F5SotTeE+r7ECVXIck14L1HtOURw3tJibL7GF6OtZDkGvD' +
        'eIzrziPm9pERzdam52Kq2W3KFahLNeSTC6QSnRGuIdillsVVyRbPb' +
        'fssZ4UtKtAaxVUdyTbTbfsuZ4ktKtAyxVUFyTbTbfssZ5EtKtBJHe' +
        'Zfkmmi3/ZZzLV9SosU4x1sk10QT9xu81K7lS0rEziTXRJLriGv5kh' +
        'KxszHJ9XWg12LGO9pRnSnrH//SctPrE58SsbNhyVXyxUQD2GWpX//' +
        '9fS/tj6p4deRqu5YvKRE7k1x1JNejXMuXlIidSa46kutRruVLSsTO' +
        'JFcdyfUo1/IlJWJnkquO5HqUa/mSEvG0yH0lueoskFyzXl3CtXxJi' +
        'XhU/CtiwC+UXCcPkVzvXMuXlIjn/O6omN0luepIrke5li8pEe2+jt' +
        '36d6asfMAvlFwnD5Fc7+IMSFhKRC/lXRSn34YlV0lkRyhIIcn1KNf' +
        'yJSWiu5NeitZmY5Jr4jMfIrkedfStDkdmnxgr+NNI5/9zrlDDEqoy' +
        '57os9Wt2cs16+6XGa3xDs0+MFbw3lTYrkagyXZb6JbkOPH/Tr2b2i' +
        'ZHeZSPptCOJytJlqV+S68CMuz+32ScG+0o0gF2W+iW5DszMgJxmn9' +
        'iy1JZLiZqky1K/JBfEZkC4lKhJlkmuWQuA+CZOKIkk6hDJBcuTXJR' +
        'I1CGSC9ZmRiiUqD0kF6zNjHT33O9Q6qV6X30L9ZwuS/2SXBDS+1AY' +
        'k3bBayi5bj1kenLNWgOEJbmeELyGkuvWQyQXzHLrp0Z9f8S0oeC1k' +
        'ly3HiK5oE5730Z4wj6C10py3XqI5IKJWprf4NwSvFyS69ZDJBdMJL' +
        'mGCV6uTZKroynrv/wK7EByDRO8XDskVxcT9yu54Edd8xuZu4JXTHI' +
        'VklwQgeQaI3jFJFchyQVB3O1/81IheNEkVyHJBUFIrgGCF01yFZJc' +
        'EEf5CBiWOsHrJrkKhUquoy/CDnzmGiB40SRXIckFQUiuAYIXTXIVk' +
        'lwQgd9bOEbwikmuQpILIpBcYwSvWEty7aZv5W+VuvCL1c+fuDso19' +
        'KomvyW4OUKvjxex2fU6+y+/vsrGUUYr9h3wtrJFWqF4z4S1JpdIS4' +
        'cnVGvs/vzHI2xs+Dn3rK84Ft7+ekHa3n6u46TZDRHWwl+3LemIMs3' +
        '6n/WFnmpEMr5jJijTSQ94qd/IjHG79XmWjnMUjgpImxhqY/1ffHpt' +
        'hP8gyEEdHdSzNdish/lGsn18Z+BI9WTIsIWsMbxuflhN+2TLsKSWu' +
        'bIJBfspuOky69EFjupn9+bN3shwAjdh91HsPjWOx3JBVt5bthFWEC' +
        'rnsiq+wI+GjDvIiyC5Y9g7d0Bv42cdxE2i7IDK5lyoa0XYcH3Enx5' +
        'ALfMvdMWy69o1vsOAeA1O7l+1uCC7Ug9gbWFut9cuY1UD9hBzItOh' +
        'N2lXMA+gl93IgyAP7KEgggD4Fu6LJBfAJtLmgI+ggFsK/vlL8IAdr' +
        'PMnS/CADax3lUvwgDWtvANL8IAlrTDxS6/AFayz5XuIxjAGja8yUU' +
        'YwC1fn0Rbz1YmFh8gOPckAFnILABS8PMoAFIQWABkIbAASERmAQAA' +
        's6z6J2hW2gvAYnb4w56r7gtgE65oAFIQVQAn4lyPe97VfvwFcFece' +
        '3K3S3u3/QL04vIcyQcrgHau0DGkFUAvrtNH+YQF0JcbFTIyuexM/0' +
        'NGPsizM80PGX1PrvllTzofMvqZXCPMbvQ8JPV7eA0yW9HwkNSf4d1' +
        'hlnfYI5e0AeT1Pr8LT7TfjsIPnQB5fZzfxYban4XknX6AvD7+Rc3L' +
        '3PPLbITuNAYQwZ/fbeJq4oT2AEJxKXFJkwCQi+RiupP/WDPS7DIAk' +
        'MbsyPpndhkASGN2ZP0zuwwApDE7sv6ZXQYA0pgdWf/MLgMAacxKEM' +
        'kFQB3JBUAukguAXCQXALlILgBykVwA5CK5AMhFcgGQi+QCIBfJBUA' +
        'ukguAXCQXALlILjjy9Wb2ioD/kVzwx3tgiTAIRXLBj5LM0rcwneSC' +
        'b3djS+vCLJILXm3/F6uz1w7bkVxQHknCCyKQXGyuIomEF8wludhZd' +
        'QYJL5hIcmWnei1a0kdywSySKzvVq9YePcILppBcqSldiy5NKLxgPM' +
        'mVmtJV65U4kgvGk1x5qVuLjh0ovGAwyZWXulXrnjX6GUaSXEkpWov' +
        'u7aefmWXPfpNcSSlai6eTy+nwtM07TXJlpGItHuo9Lc0wFQ22WFtK' +
        'rnSUq5HkIq/G7lqmSyVXLmrVTnJFo1zl+tYqb+UlVy5q1U5yRaNcJ' +
        'R7qq6TtKrkS6V6oDSv/9ea5h3d88trU6sSYdkp3BJIrEYVq92jj6e' +
        'o6ahVBrlOQXFmoUheSKyC14i7JlYIS9SK5AlIr7pJc8alPR5IrILX' +
        'iLskVn/p0JLmi+S6UcsWR4iwkV3CK05fkikZyBRT/OCRXZCrTneSK' +
        'RnLFFPxEJFdkHSuj1N8kVzSSK6bgJyK5IutbGaV+Sa54JFdYkdtYc' +
        'oWlLE+QXNFIruBiHo3kiklNnvNQ72npOpIruJhHI7kCyliQRGuWXK' +
        'FIrvgCno7kiiZpNRKdo+QKRXKlEO2AJFc0SauR6BwlVyiSK4tQZyS' +
        '5Qklaip9lp1j/15uYz9yE5Moi1BlJLtrlSq7XA+2nn6tJrixCnZHk' +
        'ol325Gpftn6ulq55dhbnjCQXXaQ7x44d2D0H9/G7VuoWX5wzklx0k' +
        'e4ce8WN2Kr2p1yqR7n3uZtidhlole4cezWhZr7lslAqSYl+4dNkdh' +
        'nYUXsf6uS7ykukmJx4OpIKzS4Dm2ppRW1cp6RQism5pyOp0OwysKn' +
        'qbtTG1UoKpZicey6Mbpldht3tfAoVDamHW5TUSj0BzpV/Q+Vbry7O' +
        'K6aeACVKfzogtnqQXABdiK1hJBdAL2JrmKPqqSpAhQ0za/yOJBdAd' +
        '5tk1mtSWEguAKrNCov394otAC5NDAvJ9ZEiAJyYe0lKro8UAeDI9B' +
        'tScn2kCAAfRbgeJde7hX8jEECLIBej5HonuQA+CnIxSq53kgvgXZx' +
        'bUXK9k1wAf4S6EiXXO8kF8Fu0+1By/bH839YChBXz5om2npfkeiO5' +
        'gCMHfx9hq9nbyuenaO//sCcdBRDZ75v56J93I7mITE/SUdKPgX8+Z' +
        '/nY9VouuRbYAr85UHrJ20uS649033uUWGMXfHOUdJH6WjgKrLw7ar' +
        'Rkcn1bZiObc460y95Ff5Lr41e2IrkIzjnSLnsXSa4/JBfBOccx1Dm' +
        'yjzfzStf1Rx/jqdrs3ZTKuGbeOb4xTEpkuyVX38xKGgTpFsxvjm+A' +
        'nyKrdky7JdfrgfCavaEaeVeOg3vanworeEBHh7L2YW0eWz+yr39PT' +
        'u1RH8ur5tHsmVyvTuE1exMdrLGLrTiy55zUVtlD2Ta5Xs3hNXv5fS' +
        'yzkX04suec11bliUByfVtpLztwXg+5LKzKE4TYAl7FqWT2CUJsweZ' +
        'uDbUbgCDEFmyrYqjdAwQhtghFE45RXU8HQQSSiwh02mAtpXZMTCe5' +
        'mEuDjddYcOfFdJKrnDqwgC5tbBaYS3LdoiCk1rF1TQETSa4KCkKdw' +
        'nF7ju2wAE1SRzWoZqAaKSCSC2YxXOXUit8kF0Rgyj5SFj46SijJBV' +
        'OYOBXg0kk8Sa5ldD9K/TDGVqO31WZpdH6hSa5VvWdZ4SnrhClWnUH' +
        'XCxUub63u36sT30mo6YHp1jiIBbbARCU3klsLYso1la4ReinsJS0H' +
        'kUWe0LALI6/yptJ+kEKcOY2zEhZzq7X0IaQQZE6DLIP13G0trQjBh' +
        'RrSUIthDXVNpRUhrIDjGXBJAAQRNiPCLgyAiYKnQ/DlATBe8GgIvj' +
        'wABuuYC19vOj6516MASK1LIpzkVMcIE14AtGTB3Q9WXT6ICS+AzVX' +
        '8kcwun6GqnyO5AHY28rNSx+cLL4A9Xd7/j6ZV40uFF8Bujm7+pz9e' +
        'lbtcyfQVAjDS72s/Tlod+bjCsKsFoLuv/2/2cu5JvXgAKqx04a+0F' +
        'wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACY6/8ADx+DZA==');
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
  TPA: TPointArray;
  shape: T2DPointArray;
  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);
  DrawBitmapDebugImg(bmp);
  FreeBitmap(bmp);
  Bitmap(EXAMPLE);
  TPA := GetBitmapColorTPA(bmp, 0);
  t := GetSystemTime;
  shape := SplitTPA(TPA, 1);
  WriteLn('SplitTPA() finished in ' + IntToStr(GetSystemTime - t) + ' ms.');
  for x := 0 to High(shape) do
    SetPixels(bmp, shape[x], Random(16777215));
  DrawBitmapDebugImg(bmp);
  FreeBitmap(bmp);
  SetLength(TPA, 0);
end;

begin
  ClearDebug;
  Setup;
end.