Движение мыши по спирали

[Fugger]

Доброго времени суток. Нужно, чтобы мышь двигалась по спирали, очевидно же. Если возьмётесь за это, то сделайте это пожалуйста  с настройкой скорости, радиуса и центра

[Vint]

Вот "взялись", а настройки скорости нет. 

И это не спираль, а серия концентрических окружностей.



Вот равномерная спираль:

Code: (clickermann) [Select]

$cx = INT($_xmax/2)
$cy = INT($_ymax/2)
$r = 30  //шаг между витками
$pi = 3.1415926535

//LDOWN($cx, $cy)

FOR($f=0, $f < 3600, 3)
    $a = $r/565/2 * $pi * $f
    LOGWRITE ($f," / ", $a)
   
    $x = $cx + INT($a*COS($f))
    $y = $cy + INT($a*SIN($f))
   
    IF(($y > $_ymax) | ($y < 0))
        $f = 10000
    ELSE
        MOVE($x,$y)
        //WAITMS(10)
    END_IF
END_CYC
//LUP($_xmouse, $_ymouse)

HALT



Вот прямоугольная спираль:

Code: (clickermann) [Select]

$i = 2
$x = INT($_xmax/2)
$y = INT($_ymax/2)

$pp = INT($i/2)
LDOWN($x,$y)

FOR($l=$i, $l < 100, $i)
   MOVE($x+$l, $y-($l-$pp))
   WAITMS(100)
   MOVE($x+$l, $y+$l)
   WAITMS(50)
   
   MOVE($x-($l+$pp), $y+$l)
   WAITMS(50)
   MOVE($x-($l+$pp), $y-($l+$pp))
   WAITMS(50)   
END_CYC
LUP($_xmouse, $_ymouse)

HALT

[Oraven]

Да погодите вы, я просто скинул уже готовое. Вот еще вариант

Code: (clickermann) [Select]

$x0 = 786 // координата центра
$y0 = 624

$r = 10 // шаг точек круга
$r2 = 1 // Начальный радиус

MOVE($x0,$y0) // Это для теста демонстрации в Painte
LDOWN(-1,-1) // зажимаем левую кнопку, рисуем

WHILE($r2 < 200) // Предельный радиус
   FOR($a=0,$a<360+$r,$r)
      MOVE(ROUND($x0+$r2*cos($a),0),ROUND($y0+$r2*sin($a),0))
      WAITMS(5)
      $r2 = $r2+0.5 // шаг расширения круга
   END_CYC   
END_CYC

LUP(-1,-1) // отпускаем

HALT

[Vint]

  Только всё равно "очевидное" применение не очевидно.
Кроме как, нащупывание чего-нибудь курсором... Или колдовство

[Fugger]

Чтож, спасибо. Я кстати уже нашёл на сайте похожее(цветок), но задолбался до нужного размера и в нужном месте настраивать, там одна переменная зависит от другой..бррр..