Findbitmaptol across different resolutions

[DuByD]

Hello all, I am new to Scar and these forums. I am trying to automate something using the findbitmap feature and I have no problems getting it to work for the most part. My problem comes in when the window size is changed and everything in that window is scaled up or down or if being run on a different system with a different resolution setup. I have heard of posts mentioning a way around this and would like to investigate it further before trying to go a colors route instead of the bitmap route. For my test, I captured a bitmap from the active client abd created the img as bmp1. Ran the program and it finds it without issue. I them changed the size of the window (which scales contents) and am no longet able to find the bitmap. My next thought was basing all of my images from a set client width and scaling from there. so I tried using the bitmap resize feature with no results on that either... Here was my testing script. The idea was scaling the images but it could not be precise as the resize function doesn't take a double. I'm sure there is a better way... Need to adjust basewith to the width of the client when image was taken. I guess the same test could be accomplished using a picture viewer and zooming the pic in and out...

 

program new;

 

//{.include OpenClose.scar}

var BMP : TSCARBitmap;

var x, y, w, h, a, b : integer;

var basewidth, currentwidth : integer;

Var ratio : double;

 

 

begin

GetClient.Activate;

 

//image taken from client at this width

basewidth := 900;

 

//Current width of client

GetBoxSize(GetClient.ImageArea, w, h);

currentwidth := w;

ratio := currentwidth/basewidth;

writeln(ratio);

 

 

// insert image string here....

BMP := TSCARBitmap.Create('something');

a := BMP.Width;

b := BMP.Height;

a := Trunc(a*ratio);

b := Trunc(b*ratio);

BMP.Resize(a,b);

 

if(FindBitmapTol(x, y, BMP, 0, 0, w - 1, h - 1,100))then

begin

 

writeLn('found bitmap at ' + intToStr(x) + ',' + intToStr(y));

 

end

else

writeLn('missing bitmap');

end.

Edited July 15, 2013 by DuByD

[slacky]

First of, FindBitmapTol is really sensitive to object differences (to sensitive if you ask me). Rescaling with the algorithm that SCAR provides will not really work with FindBitmap*. In SCAR images are rescaled with a Nearest neighbor algorithm. When downscaling, it will simply discard much data, when upscaling you literally upscale EACH pixel, or it's neighbor pixel - there is not anti-aliasing filter.

 

So in other words you would need to create a new FindBitmap, or implement a better down-sampling algorithm (supersampling).

Edited July 15, 2013 by slacky

[DuByD]

Would there be a better way to handle looking for an image that may be one inch in one situation and say a half inch in another? Wanting to get a script to work with a game across multiple computers and window sizes... It works if I do not change the window size or anything but if I open up multiple instances of the game, in order to see them all on my screen, i shrink the window size. This is not a precise method or to a set size. Everything inside the window gets scaled up or down depending on how large or small you make it. I find myself having to recreate the images every time I change the windows borders. Was hoping there was an easy solution out there

[slacky]

You cant measure anything on the monitor in inches as we might (and probably) have different resolution, measure in pixels. As for your question:

DuByD said: "Would there be a better way to handle looking for an image ..."

- I am afraid not.

Edited July 16, 2013 by slacky

[FHannes]

So in other words you would need to create a new FindBitmap, or implement a better down-sampling algorithm (supersampling).

 

The 3.39 beta allows resizing with super sampling.

[slacky]

That is awesome Freddy! What algorithm did you go with?

 

You should write it down in http://forums.scar-divi.com/announcements/2278-scar-divi-3-39-beta.html ! =)

 

@DuByD : There you might just have your answer. Download the latest beta, create the bitmap at the maximum size you might use.

Edited July 16, 2013 by slacky

[FHannes]

That is awesome Freddy! What algorithm did you go with?

 

You should write it down in http://forums.scar-divi.com/announcements/2278-scar-divi-3-39-beta.html ! =)

 

@DuByD : There you might just have your answer. Download the latest beta, create the bitmap at the maximum size you might use.

 

Actually, now that I think about it, it was added in 3.38, not 3.39. As TSCARBitmap.ResizeEx, where you can set Antialiased to true to activate supersampling.

[DuByD]

This is great news but my logic must be flawed... I am just trying this out with android running in vbox at the moment... I am looking for the lock on the screen to grab and slide. I made my vbox windows client area 1020px wide. I then grabbed a bitmap of the lock picture as seen in the code. Even without resizing this window I cannot find the image. Cant find it if I do resize it... Am i missing something? Here is the code:

 

program new;

 

var BMP1 : TSCARBitmap;

var x, y, w, h, a, b : integer;

var basewidth, currentwidth : integer;

Var ratio : double;

 

begin

 

BMP1 := TSCARBitmap.Create('deNqtmflzFNe1x/Mn9d49m2afHq0eaXofLSOwC' +

'X7xS2wcPwzOK+LY5cQWMdgYRBIZEIsrbAV2khfHC3jHa+yHl0rZzyaEYAmEhVg' +

'kBM4P73tuL5rRYkE5Vd+a6h519/3MOd97zr0t7gfpH8heinM0CAeSl8SB4GiKk' +

'9LcjOK14JTHn5yE7GQ4O8MZGcnKaG5Orem8k+WcAueUOUfn6DgvOCXZKUM8vrS' +

'KvJlXbV3zypDqlWWPvhfZBTI7Fdwyu71JEQ9gIIyuOprmpVQvLdspzgabpjnJg' +

'MckHtXNKbXSAp4MkBqfjNFVp6wxyc4iQy8qn0d2NJFR8U5MrbVotbTkJAVTU2x' +

'N9RCrdMBjZyQ7g2M+ALhlHsRHWoIE4ULQRCcGGNVLCk4s5ElrvRnJTfJWTLVTm' +

'pfWahnZxXAZyckoDvFwgb6Lh4Zwygp43CBfkOLNHdPobhM/IVE6NAREdlOCE+e' +

'cmOSlFS9DdnKTqkswwJM9AgCM5mRlJ7eAp8BgivN4EA3FJf9ovWWtxg5q7DgUk' +

'ObxaE5Mc+Pg0Tz8fBgmztkp2U7Dz8CIBEKeeLKaU5Rp3Eae4Gm+5ufLC4ZWaxQ' +

'r4Ck1RlVr4sHFksf+1DCohCDYLZyhyVZqHg9oNQpOiZmhkUcPfUiJUBbwqA08f' +

'JhEMlUzj8wum8ejIk12GkhymKYGniyD0RmPzlLT5BmeGVVlhuEbkJTvwYMgqA5' +

'FSZkHA9VyFPlgspQYhh+iLDvW2egl0clDPF3QNJDPg2OJ2TgyUsQD58Db5B+EB' +

'Wb2UpDitqgOGRtSaFplNTelsemm1rKyR86BJKcgODkIs553s4KXFzydd0ucnUd' +

'BENwc5dEuQoKrK7UmHl+Rt/HXoCraKKEkDAcewY1jpotOQmH+gURY2strRkzzW' +

'qL5xVHlwXEhO3BbeZXd+h92x0+8nvvqEA70O8387d2ZFbfJtQJnZQSLyrjWwIO' +

'hqUS7gbd9awV5NMucUeZNFIeEypBImOngsTVMMdG3EFGlIx6ESHXz+h2Vu391/' +

'46jzxx777WTX3z85ZmvoI+/+ASn+PKeR9flVlVEm5qF6jTxkFxmcrvMG+S3OR6' +

'bxNv4UgvmOxuUd9KcQzCY4DTF8FmjT78Gpgfb1vz6gYMvPffxl5+dHj9zfmpia' +

'nrqyrUrEA5wevrcmU++/OzAi8+tGdqQHewmGHduykOSS34WbIqGxKqB6jT0NXJ' +

'7DO0pqD8uGmhSdBiMP8FdxgMz1wrxgeKDw4+89M4r/7wwNntjdvbb2dl/zc7cm' +

'PF5cIBT+vLG7NmJsZfeee0X2ze2rOiK1VqJxw0kIghWWUIcrKAcib7t2V8VG6h' +

'xPw4ws0QwCarJEY/lI+Xyd3Steviudz95b+rKFEacmZ0Znxz/9NRnb5585+V3X' +

'oPePPn2J6c+G5scw59wAS5779MPfvjwmvyqnmhiQqJJmZItSpniBDBR+QKnYMU' +

'pAk4GJBAx1NDBSYRkwEKZWC3X+8DKYx8cm7g0MXt9dvra9PlLE8+f+Mt/Dz9k/' +

'LReWmVB1Z8OPLDtF38+8fy5qfO4AJfh4uMfHO//2Z1xhIgKFwlhQaYgForGtk6' +

'lABYSzDgrvKg86aBb1TKii9yxTNmk1h8ZDz698eL0xZlr9Nv/7+xXw4d32veuT' +

'NUram97zGsTvTa5tz1er1TWrNh2aMcX//ySYnhtBrf8csfjnT9yWS3Nal4Jfo6' +

'QaIJHPE74vd0iOBlICaxCCcKp6J8yC6188K4Dx57zvXFm/MzBF4523TOY7Eftz' +

'SluwTck5xY4Lyf3610/rh94/igu8z12+PgfVmy4R7KKLPIl6vU25YtkBx6WWWH' +

'3eQSnhbOSnI2SmPFro2QlebtFdLNkY8az/smfv/+3D8mu/5p948O379/8MGcVA' +

'KxQ0S6qzKKCUxS9nICyYBTu3/zQ6x+e8K9//28frXviIckqaE5eQ3lk40rMP5H' +

'JSSEPSjFvxTkr5fcsqo10mmQ8RQ2fbvbRpx8/c+7MtW+vYRLt/dOh7rvrnJnl7' +

'azkFhX2ewWTWRTV281iTdt9z+Ce/zmEi3ELbnxsx2bNLfh+xqDws3+9wrqbwuo' +

'STTTGA8+AgTdi6OlkY0JCaY2LdoL6BQpsv75p3/CFqQt4+KXpS0/t256pd3K2r' +

'ti6aOuC38Sd6AeWwJMZqGzZO4KLcQtu3PzMiDbQSbUonGV+PeQMnTN1eDjwNuM' +

'RrQSc7PPIzEhoqTA5vmc+zybrpSd/P3zhMvFcuHLh8d1PJvt0zsjyRhaukFi/V' +

'sNRFOIstdS7fr1nKy6mWy5f2LJ/JFnvjGAaeAqckac2YYQOp5YRF7DGYDySTV7' +

'CKb4UTZ8nk6oXt+wf9h8+cXli4+gTid4igkB7DbuAOKNooKoo7Gf6xkj1dw6NP' +

'oWL/Z/w1P6R1EDAgzThYhFhIRioyDXAMMXIz2igVkpgB+w0Jpi0x8FWIjVY3rJ' +

'/ezNPiTNzgokmwnj8OJslwaTnS5ae7Osc2jWfB+1MtoqCWeL8TFFkFsIwHiOGf' +

'PG0u0n5p/QNAuVm0aBTg51b9v+uiacPExwzJafaNDrzDJRjQYOf9URvc3wOjKT' +

'qxMPTNQWeJYhvThMXfUMLQrR1au5YyfunWCUyny/Ok+qDYah3s7AHuQvFeJCv3' +

'YvyoD7rSGgkyQ46u2T79sPCIw4xF6UoRMFpC2Wqv5Tq1/O3d2470MCz76n0yo5' +

'UfzlV74BLMXSit71Z5dzKzsf3zvEMH9qZv70HvyI50BGrtTUaG3ailY/pVzBab' +

'wT+gcwEE8yTFKyWgQd+uG3/b0YO7xo5suutkycuX7uMh+Pz9f898bujo9sPjWw' +

'/vHP74V2kg43auf3gyI4jo2989FZ0y1sfvztyZA8ete3ArhUb1ijoL+bcFBDZs' +

'pCzo1ViXPBXwhSWhMA2xcjUI08/dvabs5dnLk9encQz/WILTV+fxlLnmyvffId' +

'wwdXZq9EtuJ0eMnP562/O/3LXVrWvkzOiEhpuV8P1Ki0wMMFhG6TMTCiMLVEvD' +

'u3e5Ac8euwi+jZYBc0/XkxBuvdsTQwQD5qX2rh3NgNXU1u3qR7STEe+bonnOtP' +

'C4+/mofIeJEhk28NGHnpfQTyY6SnBbJHZ9jx50/GZuT6DREA4uNn4gIdFRmBmF' +

'ph5xNBIMvGg0uZFKyvb6J7owvlUvXVo9xPL8pwa/8fx994YfXY/dOzd1099ffp' +

'meDAr/Z2jaIVhsWm9SrnDfsfNkdA3vQKJrbpbBjs3hgVk0YfPfDtz7uL5Qy//8' +

'a5H1ufqPdB/Przu0At/GJ88Hyykl+ZJhb0MADxD4iMeo+ltQ6T8YOempXiYb7G' +

'Af+HtV1duuC+qh+gFqzbc+5c3XkHuFvX2Qh4tfJmmNqzHbpnnBvn24vTU5meGe' +

'+6uS7QPpY0SFj89dw9s2rd18sokGfvGTfFg+aqwLQ8W9iJbN0YMqKtJpmV42Dx' +

'ChRk+uMO6d6X/rgNLJoBVafE8Mnn14qJzLeDZvRXd1q+HAJDYXlVkiYOdUB4jn' +

'lRvOQPn9DGeFZ2b9iwdnxuzV2avvPTuKz/+1fpkf4fo5FXsrHvbVj+y9sX3j1P' +

'xvLF0fEa3ottSPWS7Y54h+Ssx2rFa4ZurWjlZIxg0JhznV3Zu2ruMn8cujY0c3' +

'evct0pxSlB1zeDw4R34chk/hzwKligGm19WU5cPeJyGt2pOOV9fOl/hw6GxibG' +

'dR/f5JfTpI3u+nhjzv78pHraKmyOxArAoPv47EKwiBDOXHNA37t68bP1Bq/r9C' +

'4eVvpJSKz3z/EGcLl9/Rsk/Sri6EMNlc9BSrabNPvZrio1lWybRVxwaXb4+o0s' +

'eePmINkD3Agyny/Ps3hqtXYP3wHYDj4kvi9hDaR57MeIVUKtF8PQWh3Ytz4NZd' +

'vDYs+CJ95UPvHgEu9Gbqc9N9SeMD3mbpc9ftNPmml6jFWmDbGRSvaWhXcvnC1X' +

'x2Vf/nLmjq3hH13Ov/Amnt8wTmlnG5DKaeegCXbNJqYGOod1bbobn9Q/fWjO0H' +

'nrtr2/+W3iwTRCxADNzWqA88fS3Do0u308xtccnz330+UlofHJ8qZm+CA/qHqx' +

'iLcLjdx94RkIPMpCsLONpuxmeW9J8HqOZB8tX00ea2x2IIQ8W3o+ObqE3Odenr' +

'16/imr8PYWH4FHnpiYeQ78YaIoPH/LgVDPaOKuJRzWy9E+rvvKG3wx9/o+/n53' +

'4+u/nTn81fup7Cg9Btfz8zOmf//YJra9h74wlNOsUyJdmtmv2bc27p4zg81jlw' +

'oqKcW9vbe2K2tpV3trVt6z7V3vr2AE+16+urVvdu/ZO479WF1bbcx3BAUCHalH' +

'vUK0OwGh2F89sw5QXq1muJ4n6rBglzSxpdjHu6AmnLeG0Q3GnXXXalWap7E+JB' +

'X/S3PaYSwexGtuU1eh2zYNaicRmclp9JMqU2apZHardJVGOiEcxclI1Ax6xCp6' +

'CRipqhk7GMyiqkoENZpFtjctBgw5DrbLPxv2v4LdL9urSzws9x15wTEgddAD/G' +

'K0KUsZ4BELKgo03srJRVI0c+z6LQKmIlaHLhs5VSxwCWM3TAQMQjLnZqoQA80Q' +

'86FZBUhiGFUyuEInJbPV/lM/DVJToBQhbfNJEQ8Si4wIgOUSvwtSdW+y9xOJiQ' +

'9Cnv8bQGmU18NidktXBG60yC47KZrpkZGnQ7gxfpXLUwJMP4wPlSP5wPQWukue' +

'6y1wVx0zL8UgsjD6PZATv7uhdokM8dH21hetOit1psUrzXSQLZUDFB0WyoFJwS' +

'sLcEKW59zbdea6SI4yFPP5plQoLJIQ8IsuyzxPlly1f2wSzLeRJCN1poSEmPJv' +

'4oplXmZ8ZT5G9RJrzcxAfaNFMAaY74JHMwOFL8QhmMDtof8pGZ/linqlScORqR' +

'jMLQVUnFTD7eOJBsgoUjaUNM+9Fk9+YGhkaj/2LVVau/Rnqm0e1S9RMfZ5KRu4' +

'paqYeVAm6WEegVJrvOtet0w9fGkYJisPSPGbZ/6WqNfdiCjwq3dgK8wjdyE5O6' +

'EkJPUm+muYqcb4nLRk5hV4S4rMUlKBqmQdJpUAKPDw/X3wIw0f5ihYSUb5Q+uz' +

'OaIqpbCEtsMtwL0b3Dcz1pEiwU0UDm8j8zOYX4lYKeGiUIqnChqPjPCFV9cDAP' +

'WWxyvJVDfwshHNKCsumbKAUt1MBNNsglbV1+Fk22xWjneuOBySBkuARGQ9rZ6j' +

'VMHlerupIIt9T5Hp8HkgPkFCRethxhSlyV4gUTHBzQfEhqvbg1OzUzIpi3IbRF' +

'xEFClUoq1Z1tZoVjTxhVDINynKVEgMosmM9gJnHw04lH8ZegNQkZBA8Xf8PVHe' +

'EJA==');

 

GetClient.Activate;

basewidth := 1020;

GetBoxSize(GetClient.ImageArea, w, h);

currentwidth := w;

ratio := currentwidth/basewidth;

writeln(ratio);

a := BMP1.Width;

b := BMP1.Height;

a := Trunc(a*ratio);

b := Trunc(b*ratio);

BMP1.ResizeEx(a,b,True);

BMP1.Resize(a,b);

 

if(FindBitmapTol(x, y, BMP1, 0, 0, w - 1, h - 1,100))then

begin

writeLn('found bitmap at ' + intToStr(x) + ',' + intToStr(y));

end

else

writeLn('missing bitmap');DebugBitMap(BMP1);

Debugbitmap(BMP1);

end.

[slacky]

Put your code in the

-containers. 
 
Your math is fine, but:
 
[font=Courier New]>>> BMP1.ResizeEx(a,b,True);[/font]
[font=Courier New]>>> BMP1.Resize(a,b);[/font]
You only need:
[font=Courier New]>>> BMP1.ResizeEx(a,b,True);[/font]'
 
But, that is not the problem. After some rough testing with scaling and searching, I see that SCARs "FindBitmapTol" is just way to sensitive. You might be more lucky if you crop the image down a little (less to work with when resizing, and searching often results in better result). I tested with your image, loaded the original in to an imageviewer. I then loaded it in to scar, croped it down (to image shown below), and searched: I found it some times when resizing, while other times, not that lucky. Also: You might have better luck with [color=#800000][font=Courier New]Round()[/font][/color] then with [color=#800000][font=Courier New]Trunc()[/font][/color] in this case. You could try to check trough both possibilities [color=#800000][font=Courier New]Ceil()[/font][/color] (round up) and [color=#800000][font=Courier New]Floor()[/font][/color]/[color=#800000][font=Courier New]Trunc()[/font][/color] (round down), that might just be what you need - But as I said: Bitmap-searching in SCAR is SUPER-sensitive.
 
 
And when images get that big.. Load am from your computer..
[font=Courier New]>>> Bmp1 := TSCARBitmap.Create('');
>>> BMP1.LoadFromPng('some_img.png')[/font]

Edited July 16, 2013 by slacky