Author Topic: Движение мыши по спирали  (Read 2635 times)

0 Members and 1 Guest are viewing this topic.

Fugger

  • Освоившийся
  • **
  • Posts: 20
    • View Profile
Движение мыши по спирали
« on: August 23, 2017, 04:34:22 AM »
Доброго времени суток. Нужно, чтобы мышь двигалась по спирали, очевидно же. Если возьмётесь за это, то сделайте это пожалуйста  с настройкой скорости, радиуса и центра
« Last Edit: August 23, 2017, 04:39:42 AM by Fugger »

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Движение мыши по спирали
« Reply #1 on: August 23, 2017, 08:51:05 AM »
Вот "взялись", а настройки скорости нет.  :D

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



Вот равномерная спираль:
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
« Last Edit: August 23, 2017, 09:25:48 AM by Vint »


Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Движение мыши по спирали
« Reply #2 on: August 23, 2017, 08:59:14 AM »
Да погодите вы, я просто скинул уже готовое. Вот еще вариант
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

« Last Edit: August 23, 2017, 09:01:51 AM by Oraven »

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Движение мыши по спирали
« Reply #3 on: August 23, 2017, 09:35:03 AM »
 ;D Только всё равно "очевидное" применение не очевидно.
Кроме как, нащупывание чего-нибудь курсором... Или колдовство
« Last Edit: August 23, 2017, 09:37:30 AM by Vint »


Fugger

  • Освоившийся
  • **
  • Posts: 20
    • View Profile
Re: Движение мыши по спирали
« Reply #4 on: August 23, 2017, 12:56:57 PM »
Чтож, спасибо. Я кстати уже нашёл на сайте похожее(цветок), но задолбался до нужного размера и в нужном месте настраивать, там одна переменная зависит от другой..бррр..
« Last Edit: August 23, 2017, 12:58:34 PM by Fugger »