Drawing Tool

[Rewl]

Introduction

I created this Drawing Tool out of curiosity of learning mouse movements and position lines etc. I think it will be use to someone that doesn't want to spend 10 minutes of their own time to make their own haha. This is my second day ever knowing about Auto-It so I think for only 2 days of experience it's not that bad.

Launches

-v1.0 -- Release

-v1.1 -- Made it so you don't have to press "Enter" to drag, It automaticly draws when you move with the arrow keys

What it does

Have you ever wanted to get that precise drawing on your photoshop, gimp or ever paint? Well what you do is run the script and use the arrow keys to be able to move around or draw a straight line without taking too much time! Press Enter to draw

Bugs

-If you hold down an arrow key and let go, the script will keep on going untill the amount of press's is complete

Source

expandcollapse popup

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 Author:         Rewl

 Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
#include <IE.au3>
HotKeySet("{LEFT}" , "left")
HotKeySet("{RIGHT}" , "right")
HotKeySet("{DOWN}" , "down")
HotKeySet("{UP}" , "up")
HotKeySet("{ESC}" , "close")


While 1 = 1
    Sleep(1000)
WEnd

Func down()
    $pos = MouseGetPos()
    MouseClick("left" ,$pos[0] , $pos[1] + 1 , 1)
EndFunc

Func right()
    $pos = MouseGetPos()
    MouseClick("left" , $pos[0] + 1 , $pos[1] , 1)
EndFunc
Func left()
    $pos = MouseGetPos()
    MouseClick("left" , $pos[0] - 1 , $pos[1] , 1)
EndFunc

Func up()
    $pos = MouseGetPos()
    MouseClick("left" , $pos[0] , $pos[1] - 1 , 1)
EndFunc

Func close()
    $iE = _IECreate()
    $msg = MsgBox(4 , "Rewl Draw Tool v1.1" , "Thank you for using Rewl's Draw Tool. Visit Auto-It Thread?")
    If $msg = 6 Then
    _IENavigate( $iE , "http://www.autoitscript.com/forum/topic/122139-drawing-tool/#entry847803" )
    Exit
    EndIf
If $msg = 7 Then
Exit
EndIf
EndFunc

Drawer.au3

Edited November 17, 2010 by Rewl

[Skrip]

Erm..What does it draw?

[Rewl]

Erm..What does it draw?

Run the script and go to paint or photoshop etc with a pencil tool than press enter adn use arrow keys to move around, just a small drawing tool.

[JoHanatCent]

Run the script and go to paint or photoshop etc with a pencil tool than press enter adn use arrow keys to move around, just a small drawing tool.

Not working!

Maybe need a left mouse button or something?

[BrewManNH]

You can change all of your MouseMove( to MouseClick("Left", using search and replace, and it will draw as you move the mouse with the arrow keys.

[Rewl]

Johanatcent - I don't see how your getting an error? What are you doing to recieve it?

Edited November 16, 2010 by Rewl

[BrewManNH]

The script, as written, doesn't draw anything. If you hit ENTER, all you get is a single dot on the screen. You need to change all of the MouseMove to MouseClicks as I described above to get it to draw anything.

Edited November 16, 2010 by BrewManNH

[Rewl]

It's suppose to do the dots. In later versions I'll probably add it to draw

[enaiman]

It is not my intention to cut your enhousiasm or to discourage you to post examples but ...

What your script is doing: it presses the left mouse click when you press "Enter" ... guess I'll stick to mouse click

I'm afraid you'll really need to improve your example

[Rewl]

It is not my intention to cut your enhousiasm or to discourage you to post examples but ...

What your script is doing: it presses the left mouse click when you press "Enter" ... guess I'll stick to mouse click

I'm afraid you'll really need to improve your example

I'm going to, i made this yetserday and this is my 3rd day knowing about auto-it so i think it's "ok" for only 2 days of experience about 2 hours a day. The next release is going to draw when ever you press something so no more enter button

[Rewl]

Sorry for double post :s

v1.1 released Read releases to know what I fixed and if you want to help, look at bugs!

[JoHanatCent]

By replacing your while loop with this you get an interesting twist to the drawing experience:

$i = 0
While 1 = 1
    MouseUp("left")
    Sleep(100)
    MouseDown("left")
    $i = $i + 1
    $s = Round(Sin($i / 5) * 5)
    $c = Round(Cos($i / 5) * 5)
    $m = MouseGetPos()
    MouseMove($m[0] - $s, $m[1] + $c, 0)
    $pos = MouseGetPos()
WEnd

[Rewl]

By replacing your while loop with this you get an interesting twist to the drawing experience:

$i = 0
While 1 = 1
    MouseUp("left")
    Sleep(100)
    MouseDown("left")
    $i = $i + 1
    $s = Round(Sin($i / 5) * 5)
    $c = Round(Cos($i / 5) * 5)
    $m = MouseGetPos()
    MouseMove($m[0] - $s, $m[1] + $c, 0)
    $pos = MouseGetPos()
WEnd

I'll look in the help file what Round(sin) and (cos) does in a little and if i like it i'll keep it thanks man

Edit: haha makes a circle thats cool, too bad I don't understand the Round statements

Edited November 17, 2010 by Rewl

[1RV34]

Your script + JoHanatCent edit + my mod =

Edited November 20, 2010 by 1RV34

[Aldunson]

I'll look in the help file what Round(sin) and (cos) does in a little and if i like it i'll keep it thanks man

Edit: haha makes a circle thats cool, too bad I don't understand the Round statements

Straight out of the Autoit Help

Round - Returns a number rounded to a specified number of decimal places. - Round($value, "decimal places")

Sin - Calculates the sine of a number. (Trig) - Cos("value in radians")

Cos - Calculates the cosine of a number. (Trig) - Sin("value in radians")