[Математика] отобразить функцию в графическом редакторе

#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

HotKeySet('{ESC}', '_Quit')
HotKeySet('!{F1}', '_k1')
HotKeySet('!{F2}', '_k2')
HotKeySet('!{F3}', '_k3')
HotKeySet('!{F5}', '_k5')
HotKeySet('!{F12}', '_k12')
Global $Tr = 1

Func _Quit()
    Exit
EndFunc

While 1
    Sleep(1000)
WEnd

Func _k5()
    $MP2 = MouseGetPos()
	; BlockInput(1)
	$R=60
	$R1=$R
	$v=1
	$z=1
	MouseMove($MP2[0]+$R1, $MP2[1]+$R*2, 0)
	MouseDown("left")
	For $i = 0 to 420
		$v+=1
		$x=$R*Cos($v/3.14159265358979 / 4)+$R1
		$y=$R*Sin($v/3.14159265358979 / 4)+$R1
		$z+=1
		If $z = 10 Then
			$z = 0
			$R-=1
		EndIf
		MouseMove($MP2[0], $MP2[1], 0)
		If $Tr = 1 Then Sleep(10)
		MouseMove($MP2[0]+$x, $MP2[1]+$y, 0)
	Next
	MouseUp("left")
	MouseMove($MP2[0], $MP2[1], 0)
	; BlockInput(0)
EndFunc

Func _k3()
Sleep(10)
    $MP2 = MouseGetPos()
	$R=60
	$R1=$R
	$v=270
	$z=1
	MouseMove($MP2[0]+$R*Cos($v/3.14159265358979 / 4)+$R1, $MP2[1]+$R*Sin($v/3.14159265358979 / 4)+$R1, 0)
	MouseDown("left")
	For $i = 0 to 630
		$z+=1
		If $z = 10 Then
			$z = 0
			$R-=1
		EndIf
		$x=$R*Cos($v/3.14159265358979 / 4)+$R1
		$y=$R*Sin($v/3.14159265358979 / 4)+$R1
		If $Tr = 1 Then Sleep(10)
		MouseMove($MP2[0]+$x, $MP2[1]+$y, 0)
		$v+=1
	Next
	MouseUp("left")
	MouseMove($MP2[0], $MP2[1], 0)
EndFunc

Func _k2()
    $MP2 = MouseGetPos()
	$w=200
	$h=100
	MouseDown("left")
	For $i = 0 to $h
		MouseMove($MP2[0]+$i, $MP2[1], 0)
		If $Tr = 1 Then Sleep(10)
		MouseMove($MP2[0], $MP2[1]+$i, 0)
	Next
	MouseMove($MP2[0], $MP2[1], 0)
	MouseUp("left")
EndFunc

Func _k1()
    $MP2 = MouseGetPos()
	$w=200
	$h=100
	For $i = 0 to $h
		MouseDown("left")
		MouseMove($MP2[0]+$i*2, $MP2[1]-$w, 0)
		MouseUp("left")
		MouseMove($MP2[0], $MP2[1], 0)
	Next
EndFunc

Func _k12()
	$Tr = Number(Not $Tr)
EndFunc