damien2008
Осваивающий
- Сообщения
- 178
- Репутация
- 34
AutoIt: 3.3.8.1
Версия: 1.0
Лицензия:
Категория: Математика, Функции
Описание:
ээээ не знаю, даже как сказать...
в общем в продолжение темы о вечном :-[ написал небольшой скрипт, для..
в общем он рисует сердце :laugh:
не обязательно дарить к 8 марта, как показывает практика)
может кому тоже пригодится :D
P.S. это только небольшой пример. в перспективе - UDF (я так, думаю)
Рисует с помощью кривых Безье, если кому интересно)
Код/Пример:
Источник: autoit-script.ru
Автор(ы): damien2008
Версия: 1.0
Лицензия:
Категория: Математика, Функции
Описание:
ээээ не знаю, даже как сказать...
в общем в продолжение темы о вечном :-[ написал небольшой скрипт, для..
в общем он рисует сердце :laugh:
не обязательно дарить к 8 марта, как показывает практика)
может кому тоже пригодится :D
P.S. это только небольшой пример. в перспективе - UDF (я так, думаю)
Рисует с помощью кривых Безье, если кому интересно)
Код/Пример:
Код:
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.8.1
Author: damien2008
Adress: http://vk.com/id12828277
Script Function:
draw heart)
#ce ----------------------------------------------------------------------------
HotKeySet("{Esc}", "ex")
Sleep(5000)
If WinExists("[Class:MSPaintApp]") Then
$1 = WinGetHandle("[Class:MSPaintApp]")
WinActivate($1)
WinSetState($1, "", @SW_MAXIMIZE)
MouseMove(350, 350, 0)
_draw()
Else
Run("mspaint")
WinWait("[Class:MSPaintApp]")
$1 = WinGetHandle("[Class:MSPaintApp]")
WinActivate($1)
WinSetState($1, "", @SW_MAXIMIZE)
MouseMove(350, 350, 0)
_draw()
EndIf
;$pi = 3.14 ; or $pi = 4 * atan(1)
Func _draw()
$pos = MouseGetPos()
$x1 = $pos[0]
$x2 = $pos[0]-162
$x3 = $pos[0]-283
$x4 = $pos[0]+8
$y1 = $pos[1]
$y2 = $pos[1]-114
$y3 = $pos[1]+145
$y4 = $pos[1]+297
$iDelay = 900 / 360
for $t=0 to 1 step 0.01
MouseMove(((1-$t)^3)*$x1 + 3*((1-$t)^2)*$t*$x2 + 3*(1-$t)*($t^2)*$x3 + ($t^3)*$x4, ((1-$t)^3)*$y1 + 3*((1-$t)^2)*$t*$y2 + 3*(1-$t)*($t^2)*$y3 + ($t^3)*$y4, 0)
MouseDown("Left")
Sleep($iDelay)
Next
MouseUp("Left")
$x1 = $pos[0]
$x2 = $pos[0]+162
$x3 = $pos[0]+283
$x4 = $pos[0]-8
$y1 = $pos[1]
$y2 = $pos[1]-114
$y3 = $pos[1]+145
$y4 = $pos[1]+297
$iDelay = 900 / 360
for $t=0 to 1 step 0.01
MouseMove(((1-$t)^3)*$x1 + 3*((1-$t)^2)*$t*$x2 + 3*(1-$t)*($t^2)*$x3 + ($t^3)*$x4, ((1-$t)^3)*$y1 + 3*((1-$t)^2)*$t*$y2 + 3*(1-$t)*($t^2)*$y3 + ($t^3)*$y4, 0)
MouseDown("Left")
Sleep($iDelay)
Next
MouseUp("Left")
EndFunc
Func ex()
Exit
EndFunc
Exit
Источник: autoit-script.ru
Автор(ы): damien2008