Author Topic: Виртуальная привязка области  (Read 6281 times)

0 Members and 1 Guest are viewing this topic.

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Виртуальная привязка области
« Reply #30 on: October 06, 2018, 09:23:09 PM »
Вот пример рандомизации координат
Code: (clickermann) [Select]
GETSCREEN
SCANPICTURE($ARR_SCAN, 231,194, 1698,582, "Image.bmp", 0, 100)
$siz = ARRSIZE($ARR_SCAN)
IF($siz > 0)
   FOR($a=0,$a<$siz,2) // создание массива $ARR для рандомизации индексов
      ARRPUSH($ARR, $a)
   END_CYC
   $i = ARRSIZE($ARR)-1
   WHILE($i>0) // Рандомизация массива $ARR
      $j = RND(0,$i)
      IF($i ! $j)
         $tmp = $arr[$j]
         $ARR[$j] = $ARR[$i]
         $ARR[$i] = $tmp
      END_IF
      INC($i,-1)
   END_CYC
   FOR($ARR_NUM=0,$ARR_NUM<$siz/2)
      $X = $ARR_SCAN[$ARR[$ARR_NUM]]
      $Y = $ARR_SCAN[$ARR[$ARR_NUM]+1]
     
      LCLICK($X,$Y)
      WAITMS(100)
     
   END_CYC
   UNDEFINE($ARR_SCAN)
   UNDEFINE($ARR)
END_IF

KingDrakonov

  • Освоившийся
  • **
  • Posts: 39
    • View Profile
Re: Виртуальная привязка области
« Reply #31 on: October 06, 2018, 09:46:40 PM »
СПС завтра буду внедрять а в понедельник пробовать. с понедельника по пятницу эта война

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Виртуальная привязка области
« Reply #32 on: October 07, 2018, 09:31:09 PM »
снимок и корекция я упростил да и легче читается код

#define  G_SCR:GETSCREEN($var1,$var2,$var3,$var4)       // снимок экрана
#define  C_MOD:COLORMODE(6,$var1,$var2,$var3,$var4)     // цветокоррекция; 8-2 7-8 6-64 5-512 4-4,096 3-32,768 2-262,144 1-2,097,152 0-16,777,216
И ты правдо считал, что это не важно и можно часть кода не показывать?

Выходит гетскрин и колормод применяем к одной области, а ищем совсем в другой. Что же это за оптимизация такая.


KingDrakonov

  • Освоившийся
  • **
  • Posts: 39
    • View Profile
Re: Виртуальная привязка области
« Reply #33 on: October 08, 2018, 09:14:58 AM »
Умно придумал, я даже сам не понял в начале как это как работает
Code: (clickermann) [Select]
$X = $ARR_SCAN[$ARR[$ARR_NUM]]