Ускорение работы color, color требует отдельный кадр, можно ли ускорить? Опции

[KudesniK]

Было замечено, что каждый вызов функции color требует отдельный кадр, рассмотрим пример (отключено слежение, задержка 0ms):

Код

set #counter 0
set timer
while 1
    if timer > 1000
        hint #counter
        set timer
        set #counter 0
    end_if

    set #counter #counter + 1
    set #color color (53, 144)
end_while
end_script

в окнах, где используется vsync количество вызовов color будет ограничено частотой экрана, в моем случае 60, в остальных окнах количество вызовов color может доходить до нескольких тысяч.

Таким образом при необходимости анализа шести разных пикселей на цвет, мы получаем падение производительности скрипта до десяти проверок в секунду, при необходимости контролировать десять пикселей, уже шесть операций в секунду.

Например, заменив одну операцию color на (как пример):

Код

if 255, 380 16777215 and 200, 300 15588051 and 12, 27 5621216 and 33, 33 13743257
    send {f1}
end_if

мы получаем падение производительности в четыре раза (четыре вызова color), т.е. до 15 проверок в секунду, пример выше использован для демонстрации. Соответственно при пяти таких блоках производительность уже будет около трех проверок в секунду.

Альтернативный вариант сделать один снимок экрана и в нем искать нужные цвета в нужных пикселях, но я не нашел как взять цвет пикселя в результате работы GetImage.

Может кто сталкивался, подскажите как решали, или как взять цвет пикселя после фотографии экрана.

[cirus]

Само снятие(без проверки цвета) области 200х100 будет медленней 4х вызовов color(и снятие и проверка).

Нет. Если область небольшая, то быстрее.

readmem очень медленная операция

Быстрее, чем получение цвета.

Код

set linedelay 0
log clear
log mode compact
set %arr GetImage (0 0 1920 1080)  // получаем скрин

set #handle workwindow     // запоминаем текущее рабочее окно
set workwindow windowhandle  // рабочее окно пилот
call getcolor %arr 867, 362      // передаём массив и координаты X и Y
log $getcolor   // цвет

call getcolor %arr 863, 371      // передаём массив и координаты X и Y
log $getcolor   // цвет

set workwindow #handle   // возвращаем рабочее окно
end_script

proc getcolor %a #x #y
    set #z1 %a [1 1] + %a [1 4] * #y + #x * 3
    set #z2 %a [1 1] + %a [1 4] * #y + #x * 3 + 1
    set #z3 %a [1 1] + %a [1 4] * #y + #x * 3 + 2
    readmem #b #z1 b
    readmem #g #z2 b
    readmem #r #z3 b
    set #color #r + #g * 256 + #b * 65536
    set $result #color
end_proc

Если скрин делать не от координат 0 0, то от передаваемых координат надо отнимать начальные x y.