Tracing black and white pictures from paint into sketch star

hellomot0123 · **Thanked:** 0 time(s) **Posted:** Wed Sep 15, 2010 2:05 pm

Uhm yea, pretty much exactly what it says on the tin.
This picture should explain a lot on how to use it

Uploaded with ImageShack.us

As you can see, it requires that paint is visible at all times as well as the sketch star window.
Also the brush has to be selected, with the black colour and the size set to SMALLEST i.e 1 pixel!

At the moment is does run quite slow, but eh

its fine for small images of 60x60 pixels etc.

Here is a lil example, this one took around 10 mins. it was 175 x 175

Uploaded with ImageShack.us

Uh, and yes i realise that it isnt black, but when the picture is coloured pixel by pixel, it turns gray for some reason :O

And finally, the code

Main:

Code:

 begin
     Window.Request user text input("What is the X co-ord of your paint window?", "x")
     Window.Request user text input("What is the Y co-ord of your paint window?", "y")
     Window.Request user text input("What is the X co-ord of your sketch star window?", "x1")
     Window.Request user text input("What is the X co-ord of your sketch star window?", "y1")
     Window.Request user text input("How many pixels is the image in X-axis?", "pixelX")
     Window.Request user text input("How many pixels is the image in Y-axis?", "pixelY")
     Macro.Execute new passing up to 10 arguments("Trace", "sketch star", "no", "x", "{x}", "y", "{y}", "x1", "{x1}", "y1", "{y1}", "pixelX", "{pixelX}", "pixelY", "{pixelY}", "", "", "", "", "", "", "", "")
 end
 

sketch star:

Code:

 begin loop("{pixelY}")
     Variable.Evaluate (Math)("{x}", "X")
     Variable.Evaluate (Math)("{x1}", "X1")
     begin loop("{pixelX}")
          Macro.Do nothing()
          if  Color.At coordinate is (RGB)("0", "0", "0", "{X}", "{y}")
               begin
                    Mouse.Click at coordinate("{X1}", "{y1}", "left")
               end
          Variable.Add (Math)("X", "1")
          Variable.Add (Math)("X1", "1")
     end
     Variable.Add (Math)("y", "1")
     Variable.Add (Math)("y1", "1")
 end
 

Gigus · **Thanked:** 0 time(s) **Posted:** Wed Sep 15, 2010 4:33 pm

Pretty fun little macro you got there

Try adding Color.Freeze screen dump cache, since the image is not going to change while drawing.

That will make the macro about a 100 times faster or more, im guessing.

Try the following code:

Code:

 begin
     Color.Freeze screen dump cache()
     begin loop("{pixelY}")
          Variable.Copy("x", "X")
          Variable.Copy("x1", "X1")
          begin loop("{pixelX}")
               Macro.Do nothing()
               if  Color.At coordinate is (RGB)("0", "0", "0", "{X}", "{y}")
                    begin
                         Mouse.Click at coordinate("{X1}", "{y1}", "left")
                    end
               Variable.Increment (Math)("X")
               Variable.Increment (Math)("X1")
          end
          Variable.Increment (Math)("y")
          Variable.Increment (Math)("y1")
     end
 end

I'm guessing that will turn your 10 minutes into a few seconds

Never the less though, very nice work, an interesting macro!

hellomot0123 · **Thanked:** 0 time(s) **Posted:** Wed Sep 15, 2010 5:55 pm

Thanks for the minor fixes, but unfortunately the speed is still the same.

I have noticed that it can check pixels for colours very quickly, but its the process of clicking the mouse in the specific position that is the bottleneck in this case - the sections where no black is present it manages to finish almost instantaneously, but when it reaches black, the process of clicking means a full black row can take up to 30 -40 seconds.

Gigus · **Thanked:** 0 time(s) **Posted:** Wed Sep 15, 2010 6:18 pm

Thats a long time... hmm, I think ill make it a setting how long to delay the mouse clicks for the next version of Blue Eye, so you can specify how fast to click yourself.

The reason it has the delay is currently has, is because otherwise a lot of mouse clicks would be dropped in slow applications or flash games etc.

In the next version I'm also introducing window messages for mouse and keyboard, meaning you can send a mouse click to a specific window, without actually moving or clicking the mouse, this will also be a lot faster according to my tests so far.

hellomot0123 · **Thanked:** 0 time(s) **Posted:** Wed Sep 15, 2010 9:12 pm

Wow, that sounds great, any clue as to when this new version will be available?

Gigus · **Thanked:** 0 time(s) **Posted:** Thu Sep 16, 2010 4:05 am

I'm planning to release the next version (2.1) in about one month, I'm hoping for a bit sooner though, mainly I'm still waiting for a certificate to sign the virtual drivers, which I also want to include in the next version to bypass any anti-bot techniques.

Gigus · **Thanked:** 0 time(s) **Posted:** Fri Oct 22, 2010 8:51 am

Did you try the new settings in version 2.1 to improve the performance of this macro?

BakT · **Thanked:** 0 time(s) **Posted:** Fri Oct 22, 2010 5:46 pm

mouse click delay 5ms

it sure is a neat macro

i like it

Gigus · **Thanked:** 0 time(s) **Posted:** Fri Oct 22, 2010 6:19 pm

hellomot0123 · **Thanked:** 0 time(s) **Posted:** Sat Oct 23, 2010 2:11 pm

Gigus wrote:

Did you try the new settings in version 2.1 to improve the performance of this macro?

Unfortunately I have not, I've been really busy with coursework atm, which means no time for Blue-Eye

.
Anyway, this would be a good time to ask how the 'send keys' or 'send mouse up' etc. functions actually work, I just can't seem to make sense of the argument descriptions that you provided. An example would be nice

.

BakT wrote:

mouse click delay 5ms

it sure is a neat macro

i like it

I'm Glad you like it, I made it because I wanted to draw as well as some of the other people there, but alas, even with this macro, the drawings they make are too good

Blue Eye Macro

Tracing black and white pictures from paint into sketch star