program New;
{$L SCARExt.dll}

const 
  ClusterTPADist = 42; //Keep it little lower then DIST (usually)
  DIST = 44;
  ESTIMATE = 5;
  
  EXSPEED = 110; //Speed of example vis... Higher = slower


function GetBitmapColorTPA(bmp: TSCARBitmap; color: Integer): TPointArray;
var
  client: TSCARClient;
begin
  client := SetClient(TSCARBitmapClient.Create(bmp));
  FindColorTolEx(Result, 0, 0, 0, (bmp.Width - 1), (bmp.Height - 1), 10);
  SetClient(client).Free;
end; 

function Test(var bmp:TSCARBitmap):TPointArray;
begin
    bmp := TSCARBitmap.Create('deNrt3UGSZEexhtE02CT7H7GLZoBZW1l1d' +
      'SrzZtwI/93PGfGEgK64Hh6f9IT477//869fAAAAAAAAAAAAAAAAAAD08riBUwU' +
      'AAN0O0H6XOlIAdDtA8S1qnQKg2+HsPXImzZbM437uFwC6HU7doCEnE/fvXDDaL' +
      'VUAdDvodt0eEe2WKgC6fUjkUPP6GGndbmAA0O25H8I5ZP2BjGui23U7ALp9ZqM' +
      '6Pd3uC+p2exXQn45It0fkjQP8fQj1j8I10e26HUC363bd7kx0u27X7fYqoNvR7' +
      'ZXbxhnqdt2u2+1VQLej2yPCZvIxfv3Zi5+Da6LbdTuAbtftut2x6HbdrtvtVUC' +
      '3o9vrV83Yk9Ttul2326tUG29ngm7X7aJduv/jT135EFwT3a7baVkFr/920O26X' +
      'dKM7fY/f+SWf8rdbmmwZHQ7A98mo4hu1+0WoyWp27E8zQz+hBJWqKWn23OjfdS' +
      'SfDI89UfL7bA8dTtz3iYDSftuLzvk3hfdXmT83vr9DRK6HXQ7ul23e18KjkGzU' +
      '/18VAwbuh1OvU0GEt2u2y3GCXty+YQYOXQ77H+ezCSNu73y/2i79yXoD9zanK0' +
      '/345ut1fR7Vihul236/auAW/GGNvtThvdjm7X7bo9KNp7r8rnw2OuGJ7ujhrdj' +
      'm7X7dHdnvILXv7v33tbxv392/H0iHamdbuxpHG3f/2PLjjqul2363Yom+6Ol4L' +
      'pbjLR7bq9Zbd7zT98O7wOjK13R4puR7frdt3ufQx6PnwdgFLpbi2j23W7bke3A' +
      'xRPdzsZ3a7bdTu6HfjbkncUx4/dtyiSZ7p9/x+6Vjt23W4RlU13nwZEiy1d4RM' +
      '4jWpVptu3bZtqJ6/bbSTdDuh2iOsx3b5/vRz/BLrdi6DbgfoPumNBtHe6F+l/j' +
      '+6DfyWPbrcxyqY7oGEsakR7v4w5/kN98h9x9r82q9stDd0O1H/NHQ6Kvc3tqPA' +
      'TXftPOXvaut1bAHvuo1NCt8N9DabbN0T48XPW7d4C0O14yiE9wFz2u9Pd309Gt' +
      '4Nux8zY4Zj/aXeh1M/yyn9ckePV7Xb+L/+bGuh2wp8eR4puz7oL1X6Q5/+Jlox' +
      'uL3uSRgvdjm5HxCb+vLpdt+v2gSdputDt6HYPk27X7bpdt1uPESdpwNDt2OF+K' +
      'N2eFe1Bw6Pb7Xzrce1JmjF0O3a4H0q363bd7gmzHiNO0pgBxde4h8kk6Hbdfmu' +
      '0S3frMegkTRqg2z1Muj0l2lPmp3i3v/JbsB7dHcD+UWW6Xbfr9oPd/v//88ffi' +
      'PUYcZLmDdDtHibdrtvbd/sr/xjrsf5JGjlAt3uYdLtub9ztT/7yGCFkPcadpKk' +
      'DdLuHSbfr9k7d/o9lLt2tx9yTNHhAqTXuYTIJul23f97tr/x9IFWQ9Zh4kmYP0' +
      'O0eJt2u29t0+4t/H0gJZD0Wv/jNHhQnxp/D4CjscD+Ubtftw7t9+e8JdaLdH+9' +
      '4gptdIgcicf1Qul2363bdTu9ujxtgB4Vu73oZdbt5SDlGL061boc53Z51s5wS1' +
      'bp97BXW7ZaGbtftrgD2myjV7eh23a7bvWu6XbeDbu+9JXT72Euk2yWuH0q3t7n' +
      '4uh3E54T/FoxuH3uDdLunXLfr9h4Xv81H91phvw2vUyeDbq8/nP7kgG6fcIyeG' +
      '1cA+00D6HZ0u27X7d61sd3e6aN7rbDfhjeqM0G35/4X96btZ7fSn0rqPTOuAPa' +
      'bdNft6Hbdrtu9azP/6k3dDuKzfQzodjdIt9f/TObWu6bbm70y3k3sN+mu27k8A' +
      '7pdt6PbQ3/2lh/dvcB+G54EzgHdnvhfSDG33rXeu3fm++LdxH6T7rqdD7++bgf' +
      'dnnIIvT+6e4H9ptsdgltT6mO5oaDb6/8ZBt1efP7tEN2u26XR8Pui20G3FzyTO' +
      'R/d/Fvjvq+/vt05uCylvppLCrrdR9ft5tz31QO6Hd1uONHt6Hbdjm5PnCKn4bL' +
      'odsMJ6Hbdjm6vP0IOxH3x17cbTkC363Z0e/35cSZuTbXv5cIC1rJut8Z9Xw2g2' +
      '0sdcsrXH3idLVVAt+t2Bna7oxt7p1KOotovzLUFxIxut8Z9X6+/bi9+pLpdtwN' +
      'ixmqyxn1fT79ut2re/WXrdgDd7jGlfbc7uoF3KvdkSn0g9xcQM7rdGvd9Pfq6P' +
      'eUkdbsrDIgZ3W6N+75efN2u23W7hQ/odt3O8G53dDPvVPr56HYLH9Dtuh1vvXP' +
      'T7brdXQbQ7bqdOgMjOHV7s79URrcD6HbdTrOBEZzuVL9unzmTFj6g23U7jQfG1' +
      'XCn7jjJ479+3Q6g23U7nQbG1XCndLtuB9Dtup3iA+NquFM3HWaFX7xuB9Dtuh1' +
      '3R7c3vlPRx1Lk0+h2QHtYTbDq7uhMaXTTkbp6uh2w/awmWHV3NJI0uuNgXTrdD' +
      'th+VhMsvDsaSRqtPWF3TbcD6HZYfnc0kjRCt9N+6pwGuh3S745GkkbodqaNnMN' +
      'Bty/c1T4xe6bRgYBux7w5LnS7bqf49XEUoNsxb4YE3a7bAdDtFBwDM4Nu1+0A6' +
      'HY6Rbv5Qbe7GgBeLt1lBmQ8Jl+3mwcHCGg2j4sZMFrodt0edLbOB9BstqIZMGb' +
      'odt2ecqrOCtBs9qEZMGnodt0ecaRODNBslqEZMGnodt0esfecG6DZfAUzYNLQ7' +
      'bpdtwOAbvfgottZsvScHgC6Xa6j23W7bgeAOd3ug6Lb3QXdDoAnTKuj29HtACD' +
      'dPZ3odnQ7AHguQbfzy99PBgCWvpWOC92ObgeAgs+lw0G3UzbdnRgAw99KB4Jup' +
      '366OysAAN2OSQAAQK1xbR6cCQCAbgcAgE86VrfrdgAAIiJWt+t2AAAiCla363Y' +
      'AAHS7bgcAgCX5qtvNBgAAEfmq2wEAoH676nYAbt2073KkgHU6cEN6HQB0O4Bu1' +
      '+0A6HaAnbtUtwOg2wGCtmWz/el1ANDtABOiPX2Leh0AdDvAnGjPXaReBwDdDqD' +
      'bdTsAnptVB2iWwJ7U7V4HAN0ecXrGCaxKf3271wFAt0ecnokCq1K3ex0AdHvE6' +
      'aX8mg0/FEz3xudjhAB0e8HTS/kFm16OMG+6Hci9zs5Ht/c7vYhfrelFt5caud7' +
      '30YMLLZeb09Pt/oB0zy/V9KLbdbtuBxFog+l2p1fkNBp/LAGs2ztNnX0IWGXo9' +
      'sl/+Dm8E9DtHjvdDux/Op2zbs+dZ8+obsfg+TMeHlyY9mg6c90eOtU1fxAfC91' +
      'eZ+p0O9DvxXTyut2jfPZ62kLodsei28Hiku66vfdst7meFhEzt4ST0e1ga6l33' +
      'e5dzrqh1hG63cnodsOAaDfVur39kDe4njYSA7eEw9Ht+5ePSqHZE+m76HZP8/7' +
      'raSmh2x2Od9OV8XXKfilPgAnX7WVPaeylE8C6veWweZhMgqnQ7b3fR4Oq2+NGP' +
      'fpu2kvodufj0TQVPpDH0Tzrdt3uBdHtun14CXibTIKR0O29X0azqtuDBt4Lott' +
      '1u7XgRTMJpsI3mvwsGlfmdLu7ptt1u25HE+Ib6XZcedGu27GrTw2bPWwMDIZvN' +
      'ORNNLEUH/sed9N+xqK+PI3WrAfCxfGNvImmmvpjbzXZUeh2a9YD4eL4Rh5Eg03' +
      'xye90Se1nbOlrA2nHeiBcHN/Ig2iwKT75ze6p/Ywtrds9EC6Ob6TbDbYbd/aLx' +
      '82kbseWTtlgNrwmdHF8I6+h2W524279/ffPf8sLaz9jRet2Teji+Ea6vcdsu9T' +
      'R3b7wQ3cdOfsZ+fHuWAoqTeji+EZeQ92u2/25tf1TZz8jP96aTDWlCV0c38hrq' +
      'Nt1e9lu7z149jPyQ7drQhfHNxr19Dceb5d6eLe3Hz/7Gfnx+nBKKU3o4vhGnkL' +
      'drttrdnv7xWU/Y1O9Pp86ShO6OL6Rp1C36/aa3Z61u+xnbCrQhL6RbtftLvXAb' +
      'o9bX/YzNhVoQt9It+t2l3pCt3/91okbzH7GpgJN6Bvpdt3uUg/p9uglZj9jU4E' +
      'm9I10u253qXV7/T1mP2NTgSb0jXS7bnepdXv9bWY/Y1NBxM5x+Lpdt+t23T58o' +
      'dnP2FTgffeB0j+TR8G91u3td5r9jE0F3ncfSLd7FNxr3Y5NhQLB5nFldLvXULf' +
      'rdt2Obreiof3+cc66Xbfr9mY3zpqyn7GiodMWcrC6fc6DOHlsXFjsZ2xpwLug2' +
      '70Iuh3sZ2wqwLug23W71xB0u24H0O1D3sThY+PCYj9jUQPeBd3uOdDtYD9jU+H' +
      'j4l2oOf/eAt0O9jM2Fe/eOMeFbvcs6nZ7EnS7bifoojlAdLuXsfhmcAhgO2FTu' +
      'WW+OLrd41h/JzgHsJqwqdwv3x3d7nHU7bYi6HbdTtzlcrDodu+jsbESsZ/R7UT' +
      'cLMeLbp/8RBob+xD7Gd1O0LVyyOj2ma+ksbEMsZ/R7cRdK+eMbp/2UBobmxD7G' +
      'd1O4p1y1DDqrXRENiEIYN1O7oVy4NGD4Vhc8E433eGAbsemcqGMQYN5uPDP4o5' +
      'njYfXEHQ7NpULZQxyJ+GO35k5N92ZWIOg23U7nW6TY685Cdv+VbS88k7DDgTdr' +
      'tvR7dSMdunu4qffaK8h6HZsKrfJJAyJduk+eQNYgHYg6Hbdjm4nKNql+6htYAH' +
      'agaDbdTu6ndxol+5YgP7bu0gyI2RI0O3odtDtuh3djk2FSRDt0h0L0A4UXZLMC' +
      'KHW7GRjoNvB9tPt6HYMieTQ7ZSadt8X20+3I8mMkCHZNldeLg+Wbpfu2H7WoOi' +
      'SZEbIkOj24WtZJ+h2UKROCd2OIdHt9a+VTtDtoEidErodQ6Lbi18rkaDbQZHqd' +
      'nQ7hmRVbEh375Ru1+1Yevah6JJkRsiQ6PaZ+1ke6HZQpLod3Y4h0e3F75c2mNP' +
      'tPjeKVLcjyYyQIdHtoYvaSY5Kd18cRarbkWRGyJDsDBjtseSiOUDdDopUtyPJQ' +
      'LdXXtpObGa6+/Todt2ObgfdXn97OxzdbgzQ7bod3Q66HYqnu1uDbtft6HY40i1' +
      'GGuku2gHdrtuh2jp6/beDdO8d7e4+6HbdDomvs9lGug+MdhcfdLtuh1L759Z/C' +
      'XT9g9nGf1TrXQPdrtshsUmGhAq8+weqjXe+dw10u26HyhFS4d8Qgh7raWViDED' +
      'i6nbYv3N0O6DbQbdjuTGh3o26B8syHPiVnQ8uCLodzu6fW/8l6HZ0O+h2dDssX' +
      'ESf/z54sCzD9p/YKeGOoNuhbL2banS7T+ybgm7X7VBtI734G/FgWYZjv6+zwjV' +
      'Bt0PNdDfS6Hbf12cF3a7boXi3m2d0u4/ry4Ju1+2g29Ht6HbQ7ej2/QN8/Fdip' +
      'eh2dDt7UsS54bKg27NGt0g8e0ruS3dHim73ZX1c0O26vUfXvfvPbrhEFsuq7+s' +
      'w0e0+q+8Lul23d432/b3nKdHt6HZ0+5HiMj/uC7o9Pdo3J59dqtvR7ZzqEN2O+' +
      '4JuT4/2bdVnl976rZ0kut031e0mHN2u23W7bq+/mpwDut03bfOVPffoduZc5As' +
      '/191HYZ3qdnQ7xwtEt+PWoNsbdPvd6W6d6nZ0OxUKRLfj1qDbdbtu1+3odurnh' +
      '27HxUG36/YP744NA7od3a7b0e3odt0OHix3UHukfGvPPbod3X6k2y1V0O0oWD8' +
      '1uh0XeVWBn/2T7ZYq6HZ2hoduJ6tSdDu9L/KjzN+/3bcA3Y5u1+18+766HRe5W' +
      'rf7HKDbqVkdup2zffI4+j8cg27PTfcKf7LdXhUetoFuR7fr9vbTe+F30+0Muci' +
      'v/ICPc3/bdntVeNgGup2Dd0e3s+c7Lv+ddbtun5nupf4CMytOe9gGuh3drtu7z' +
      'vO1f1a3M+0i//iT2mPodt2ualwc3c7+P4v4418wo9txkZ8MsB2CbtftdoKLo9s' +
      '5VSB3fyCJq9sB3a7baXZrdDsbvubnv49ux0UG3a7bLUPdrttxlfBSg7VpG+h26' +
      'l8Z3Y7bhJcarE3bQLej23U7HiBcZLA2bQPd7r70m38XHN2OiwzWpm63DN0X3Y4' +
      'LhW4HdLtuR7frdlwoWm4qywRr0zbQ7Ry/MhPOwXS5Tej2VRPlfmFt6nbdDrod3' +
      'U7Bi2yfYG3aBroddDseIHQ7WJu6XdVgdZhwU4RuXz5L7hfWpm7X7aDb0e3odrA' +
      '2dbuquXY4LrJuxxQx9qW2YbA2bQPdrtvR7XiAaNPtlgzWpm7X7bod0O2cWsgeC' +
      '6xN20C363bAA4RuB2tTt+t23Q5IXN3usQDdrtt1O4y6IB4gdHvxx8K3RrfrdmN' +
      'pdWBvuwK4CLpdlRl7E2Lh6HbQ7eAZ1e0eX92u210Q3Q66HbbVi9xSZbrdhOh23' +
      'Q66HXS7bscg6Xbd7mRAt4NuV2WYEHQ76HaYEDByS5XpdhOCbgfdDh4L3Y5BMiH' +
      'G0mAAoNtVGSYEAJiQMXJLlel2EwIA6Hbd3mOWdLsJAQDOlozcUmUvfiDdbkIAg' +
      'FMlI7dU2VtfR7ebEABgQ8zILVWm200IAKDbdXubKsv6AU0IAHEPkNPj+TjJLVW' +
      '25LsYJIsaQGJ5FNDtuj33/A2SFQ1ISifsnFkyWrpdld19+AbJfgZ0u+Ntds6GY' +
      'f+AzUlHVabbTQjg3bevgh4d3c7YdFRlut2EAJ5X+0q3L4x284Bub3b+Bsk7COh' +
      '2x6vbMfmqrPgnMEjeQUC3O17djslXZbpdtwPodt1+JNr//MeYfN2e+xUMkncQ0' +
      'O2OV7dj8lWZbtftALpdt+t25Ja/TsZfJ2NCAM+rfaXbn3e7dDf5ul2363YA3a7' +
      'b60e7bjf5ur3T+Rsk7yCg2x2vbsfkq7KIwzdI3kFAtzve9KP+2y/MeJh83a7bd' +
      'TsAur3OT/Hhv4MhMfmqTLfrdqh/NRw7blbW61n53xBvijfrvvM3SKoGO9ax42b' +
      'F/b0dSv374E3xZq39LgZJ1VjRdqxux81qc2s+/zW4+yZft9f8NAbJhHw9dnvMj' +
      'tXtuFwNbs3lX0nKxbegdPuEKkv5G1WZEDsQ3Q6J96vaD3Xr71/hYxld3a7bDdL' +
      'A/49M1tK2Y004VLtlxdd7y2i3pnR742FI+dFMiG5HtwM70z032m0q3d54EiJ+L' +
      'hOi29HtgG5/awf60LrdGBikIX/HocQ/6+JqmHBgYZDXv+/2lW43AwbJhOh2V8M' +
      'OBN3e4P8X73Prdp/VIOl2dHviz2tg4G8r/fXfGLf9fHHdjkFqPCFx29vV0O22N' +
      '3y+4YOWv7svt3x9g2RCdLurodthWrd//S3P/9novefT63YMkm5Ht+t2CN3wP96' +
      'Lb79Rt3tTdDu6vfIhX/4d0O26HVK6/fmNeFT9WwHbAHLLdzdIkyfkwi/bXdDtu' +
      'h1yo/3F6/D7d6tzdySc3PLRDdLACVn1q3UvdLtuh7iNcfe/pPi6Mwa6HYNUf0L' +
      'u/hW6I7pdt0P9jbHtX1V53ZkE3Y5Bqj8he7rduOp23Q5U3nXOU7djkPx1Muh23' +
      'Q5ELDqnqtsxSP57qaDbgYgAcLa6HYP08PeBBN0O6HanrcoMkgnZctov/kbQ7YB' +
      'ud9qqDN2u2wHASy23fGuDZEJ0OwCg29HtndLd2AOA3NLt6HbdDgDILVVmkEyIb' +
      'gcAdDsGqeuE/P5BzDwAyC3djm7X7QCA3FJlBsmE6HYgbj87VZBb9olBMiEXjt3' +
      '4AbodXGfdjm7X7WAjRd81RwGWmypDt1c4drMHm3eRM6lzCN59rDjdjm4HLKI2a' +
      '6Trj2+xY8vpdnQ7YAt12iS6HSw6VYZuB3S7btftILdC98nYV8OEANNWkG7X7SC' +
      '30ru95X+Wbge8ZaHLpOUPbrdj1+l23a7bAW+ZbtftYNfpdt1uQgDdrtt1O+h23' +
      'W6QdDt4yyyT3t1uw2PX6XbdrtsBb5luL/6D+68MM7wfnKpu1+2Abtftut3TiW7' +
      'X7brdhAC6Xbfrdt2uMM2Mbrd8dDssvLO6Xbfrdk8nul2363YTAnWu6uXfQf/o9' +
      'kf5/31Dc4tud6q6XbdDerHf9/vrdt1e5Mfxx5vodqeq23U7REd7gz2j23W7bke' +
      '3O1XdrttBtEenu2Wi23U7ut2p6nbdDpOjPSXdLRPdrtvR7U5Vt+t2GB7tEelum' +
      'eh23Y5ud6q6XbeDaK+f7paJbtft6Hanqtt1O+h23a7bdbunE92u23W7pxaC9kP' +
      'Z62OZ6Hbdjm53qrpdt4Nu1+26PajbH/53B9DtTlW363YGN3Biqul2y6Rftzdb8' +
      'jJYYZoZ3W6QdDsbBntgtFdOd8tEt+t2dLtT1e26HdEeN0i63TLR7bod3e5Udbt' +
      'uR7TXnyXdbpPodt2Obnequl23o9t1uwQSh5V/nH57Bv2g23W7bocl86zbZ26h4' +
      'XFY84fqvWrQD7pdt+t20O09un3zItLtul2D6XYzo9t1uwd34eEr8D3DrNtHtZA' +
      '41O0aTLebGd2u23W7btftxffDY/Bf1D1qpCNOo8EHksEK08zodoOk23W7btft6' +
      'Hbdjm53qrpdt+t2kaPb0e26XYPpdjOj23W7btftur3mijBRul23azDdbmZ0u27' +
      'X7bpdt+t2dPvlH82nQbc7Vd2u23W7zokep4W/POOk2+0WDYaZ0e26Xbfrdt1ef' +
      'FGYJXFot3g60e26Xbfrdt2e/p5G/Cyi3TDborod3e5UdTu6ffJ7mvXj2DOGWbf' +
      'rdkw+p+6gA0e3H7zOiT/RhtRHt6PbdTuAbne2q36iy78D4tB46HbdDqAtI0649' +
      '9j43OJQveh2TD6g2wHdjm7X7YDNb8MAul23o9sB3Q6IQ7tFt+t2AN0O6HafBt0' +
      'O6HbAilAvuh2TD+h2QLej23U7gG4HdLtPg24HdDsgDtWLbsfkA7od0O3odt0O2' +
      'Pw2DKDbfRp0OwAgDtWLbsfQAgC63adBtwMA4lC96HZMPgCg29Htuh0AQLf7NOh' +
      '2AEAcqhfdjskHAHQ7AACg25//+GYAAADdHvHjGwMAYGa2+atVdbtuBwDQ7bpdt' +
      '6/62b/9AwAA3a7bdbtuBwDQ7bpdt+t2AEC26XYD0Ozcvv06pTsAoNt1+6qjNq6' +
      '6HQCeR4XD0e26fXkobv6Xo9sBlEObuO3d7R5l3a7beX6YThhAt+v2Oj+du6bbd' +
      'btpf/Jx/T8ZgTqbSjnodt2ObtftWv2mfxXA2kdZOeh23Y5u1+1aXcMDES+yctD' +
      'tuh3drtuHDLZuB2SYctDtul2363bdnjXhWh3o9OwqB93e9UdTPrpdt/P842p1I' +
      'O7NVQ66XbfbIej29mPvhAHdrtt1u27X7bpdt8elu+MFdLtu1+26Xbe71LpdtwM' +
      'sf3aVw+Rub3w7nv8WR4Ru1+2OF8h6eZWDbu9d7Opdt+t2fjxSZwtDXhbdrhx0e' +
      '1axq3fdrtvR7aDbGxyO76vbmz3HQki363Z0O3hZiqSa/16qYeDJUF37Z21XdLt' +
      'FAeh23a7bOfso+1i6XbdjIYBu1+26nbILRPnodt2OUwXd3ulwfF/drtttV3Q7g' +
      'G6vc2i+r27X7ej2/d1uyQBeFqn21rn5vrpdt6PbXWqg/WL3ssRt9YhfsCeePTP' +
      'mHHS7Sw2M2upelritXv9X64lHt7t9LjWAbrfVlYNhwDfS7S41MHOle1lsdeVgG' +
      'HS726fbASJWupfFVlcOhkG3u326HSBuget2lIPvWHzGHIJud6kB23vDfrPVzZ4' +
      'nHtw+lxpAt9vqysEw4PbhUgO6HXQ7uH0uNUCFBe7oUA6+I26fbgfQ7Rg8Tzy4f' +
      'S41wIc73KGhHFwE3D7dDqDbMXWeeHD7XGoA3Y5y8MTj9uFS4y67a0M+uqNDOfi' +
      'OuH26Hdxld023A+Ct1xKg21nyxR0ggLdet4O77K7pdgC89VqCm26Bu+yu6XYAv' +
      'PVagpT5d5fdtQkf3dH5MwYweT1663U7brS77K6VHQMnU/lLOQ3wyuv2IS1h7d8' +
      '09u6yu9Zmth1L/c/kTEC36/b2LWHt3z3w7rK7lj7kDkS3M22TO0bdrtttfmNcf' +
      'FrcNXS7bsdzZpx0u263+c1w/YFx1/hzGBxF0MpyMuh23a7bdbstp9vdNdDt6HY' +
      'nqdt1u81vhnW7VwaWXFWHg42q23W7brfo/PXt7hpoCXS7k9Ttut00Dh9md9krA' +
      '6suqVMyJDaqUtLtut09bT8k7ho0W0pOz8CYHKWk23W7jafb3TXIuoxO1fCYFqV' +
      'E10vtZPx1Mrodmt1EZ2t+jIpuR7dbdP57qU4PIq6hEzZC5kS30/JSO5Bp8anbQ' +
      'bdjhMyJbifxRjsT3a7bodlNdLzmx5zodnS7Lafbdfuq07amcEfQ7bod3NzKyWo' +
      '+XUaTwNrt5PQMjMnR7eh2Z+gM0e3U3D9OyZDodt2O5sTriW5HS6DbnaQjouxdd' +
      'm5uNLodmwfdDuj2fqfqTNDtHBkeJ4NuBxfZ6b1+tk4D3Y5uR7cDuh10O/zy/+l' +
      'Dt4OL7P6Cbke3o9uB5FvsDEG3o9u59rF0O6DbQbdjhMyMbtftoNvdYtDt1J8i5' +
      '1A/2nd+Ji8+iHa3GHQ7oNsB3Q4uprsGul23gzaQ7qDbAd3uuQfdDgD8GO1//mP' +
      'dDuh2ANDtnnsQ7e4yAOh2QLcDgG7X7aDbdTsAHIn2nenurQfp7iIDgG4HAADdr' +
      'tsBAEC363YAAPjHRN+QxLodAAB0OwAA6HbdDgAAZ6N9T7rrdgAA0O0AAKDbdTs' +
      'AAOh23Q4AAC9m+a1hrNsBgCP9ADvpdt0OePoLPi7g8oJu98QAnn7dDu4pul23A' +
      '55+DAYuL1Rbra//O9y3xj0xgKdft4PLi9W6cOatCFj71jgKT79uB5cXqxWIeGg' +
      'ciKff47Lhg5pzlxesVqwv86ko3B2PS9ZHNPMuL1it2FoG9fLHcjgukTu7+fOZf' +
      'JcXrFbsKxN77XsZaVfJVd387Qy/ywtWK5aVob32vQy22+Sebv5w5t/lBasVm2r' +
      'O3Do6X9Djkv7V3AKXF6xWrKnec+sAfUePS49P5ha4vGC1Ykf1Hl2n51p5XNp8L' +
      'xfB5QXPN3aUbnd6vqMbGvGx3AWXFzzf2FGNR9fR+YgeF92Oywv2DLrdR3HlXSs' +
      '3dOeXch1cXrBksKN6j65z8/k8LrodlxcsGXS77+K+u1ZuqG7H5cVqxY4yuorCt' +
      'aL+vFlN7x6UywtWK3aU0dXtvp3HRbdHDLPLC1YrdpTRPfVpcg/Ht3NDdbtud3l' +
      'Byup2o6soIs7H53ND3bL9R+RNBKsVO8ronvoouX+y/THybwnuhup23e7ygm7X7' +
      'UZ37BfR7a6Vbne/Xj8fbyJYrdhRRtfpvR7tldPdO6LbdbslDDYMdpRun3x6P/4' +
      '6JwehG1r/S3XdRd5EsFqxo3S709PtHhfdrttdXtDt6HYfJffcnvxSq/0U3hHdH' +
      'r2XJteCe4rVih1ldD2s90V7wXT3jgRNo6Vkvbi8WK3YUUb3+Ldr9sPqdjdUt1c' +
      '7EG8iWK3YUUb38883Ktqrpbt3JGsmbSTd7vJitWJHGd1TX3BgtJdKd+9I3FhaR' +
      '5fPwZsIVit2lNG9/BH7/XS63Q2N+2q63ZsIVit2lNF9/h0nR3uddPeOhN5Q0W7' +
      '3uqdYrdhRRpc90V4k3b0juTd08hayewF0uypAt/OI+l8KEO3WL4BuVwXsae+z8' +
      'yDRG9zQacvHBgbQ7aqAU9V9cCQk+pC/6ttDYAMDCAyvhrHU7bqduIl1kgACw5N' +
      'hJrOmQqK7oTNvnMMEEBieDFwrNxR/pAxgY6sCAE+APQwg3XU7wJzl72ABdLuXA' +
      'kC3A9jeuh3A2reQAaS7BwJAtwMwNt19NYCC294hAwh4jwKAbgegcsb7EABBK91' +
      'RAwCAbgcAANEu3QEAQLcDAAAVol26AwCAbgcAANEu3QEAQLcDAAB1ol26AwCAb' +
      'gcAANEu3QEAQLfDt1l1CACAaJfu6HasJgsKAI+jZ5HPo92cWE0WFPS71w4HvIz' +
      'odmwn2wmCrrPjAi8juh3byXaClIvs6KD+s+i28jza//zHWFBWE7S8xQ7w89N2L' +
      'C6UxxHdjm4H9lxhJ7nknB2UO+VxRLej24G7L68jXXLUjsvl8jKyP9qlu+1kO4F' +
      'ud8gOE9DtPdLU4TjV1w/ThqH+zXWwC8/Z6QG6Xbfrdt2OXe0C1j9nB4i7U1+na' +
      'G+T7j63btfteBAF5/5zdoy4Prr9vtO741+u210u3e4F3zCBTswd1O0gLXpc0rt' +
      '/YcW3k9dNt+t23e64nOeRc3bHcYN0e6m0rr+XPG26XbfrdsflPHU76PagG7r8V' +
      '5iylDxtul2363bH5Tx1O+j2uBu66hcZtI48bbod3e6sHKluB92eeEM//3Vm7SL' +
      'vmm5HtzsrR6rbo18N29KQTJ6ry7/axOvjc+t2dLuzcqQmU7ej26Pn6t1fcOjF8' +
      'bl1O+rIWTnS/aftZAyk66PbT6V77q3xuXU7ut1ZOdLNB+5YDKS7o9t1u27X7Vj' +
      'vut1N1O26HUOi23W7bneJ0O1uq5v44Zk7EwPp4uj2g9Eene4+t25HtzsrR7rt2' +
      'B2IgXRrdLtu1+26Hetdt7uJlQ/fURhIdPv+bn/3t+t2l8upots7XViT+dYncAJ' +
      'mEt1+JNp//xR/+3FC/xp+n1u3o9sdl/MEdHubbr/2W3S7y1XqVMUJXkPLDZAWj' +
      'bv9yS/+2z+l2z1tnT6348JCcy8A3Z4V7ct/f92Obi975fEguheAbo/r9rd+zV/' +
      '/0nfz43XT7XHRbmK9iS4FoNtDu/3arzb0b5vjgbMudLuJ9Sy6EYBuj1t6H/5SE' +
      '/9Kfm+cdTH5b7b84z/Gs2inAbod3Y5uLxjt0t1ms9AA0O3odt1O9H5zkgDodnR' +
      '7nWiX7mbeHgNAt6PbdTtxW87RAQC6vWa0S3fDr9gBAOkSEe3SffItcDgAgG7X7' +
      'QAAoNudAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADc5H/SS2is');
  
  Result := GetBitmapColorTPA(bmp, 0); 
end;

var
 TPA,TPA2:TPointArray;
 ATPA:T2DPointArray;
 i,j:Integer;
 c,ic:Single;
 bmp: TSCARBitmap;
begin
  TPA := Test(bmp); //XT_RandomCenterTPA(200, 5,5,200,200);
  bmp.SetSize(1100,800); 
  bmp.Clear(16777215);
  bmp.SetPixels(TPA, 0);
  DebugBitmap(bmp);
  
  ATPA := XT_ClusterTPA(TPA,ClusterTPADist,True);
  for i:=0 to High(ATPA) do 
  begin
    SetLength(TPA2, 0);
    TPA2 := XT_TPAExtractShape(ATPA[i],DIST,ESTIMATE);
    bmp.SetPixels(TPA2, 7123337);
    DebugBitmap(bmp);
  end; 
  DebugBitmap(bmp);

  Wait(2000);
  for i:=0 to High(ATPA) do
  begin 
    SetLength(TPA2, 0);
    TPA2 := XT_FloodFillPolygon(XT_TPAExtractShape(ATPA[i],DIST,ESTIMATE), True);
    c := 0;
    ic := 255 / EXSPEED;
    for j:=0 to EXSPEED do begin
      bmp.SetPixels(TPA2, RGBToColor(Floor(c), 64, 255-Floor(c)));
      c := c+ic;
      DebugBitmap(bmp); 
    end;
  end;

  bmp.Free;
end.