Разработка findcolor, findimage, Pure lua Опции

[DarkMaster]

Собственно обсуждение багов, фич, функционала, тесты и прочее.

Сообщение отредактировал DarkMaster - 27.3.2021, 13:38

[DarkMaster]

Sutra, я тут в итоге все-таки наткнулся на один ужас в загашниках... Сразу предупреждаю - это делалось, когда у нас был убогий crystal lua, не было luajit и все работало через Ж из-за этого crystal. Писалось чисто ради теста и экспериментов с графикой и пониманием bmp.
Короче скринилка есть, она работает, но нужно зажмуриться, скопировать код и никогда в него не смотреть. Она еще и дикий тормоз, но вроде шуршит.

зажмурься

Код

local ffi           = require[[ffi]]
local clr           = require[[lua_system\color]]

local function full_trash(path, a, w, h, l)

local binary = {}
function binary.writeInt(file, x)
    local b4=x%256  x=(x-x%256)/256
    local b3=x%256  x=(x-x%256)/256
    local b2=x%256  x=(x-x%256)/256
    local b1=x%256  x=(x-x%256)/256
    return file:write(string.char(b4,b3,b2,b1))

end

local f = io.open(path, 'wb')
f:write([[BM]])
binary.writeInt(f, h*w*3+54)
f:write(string.char(0))
f:write(string.char(0))
f:write(string.char(0))
f:write(string.char(0))
f:write(string.char(0x36))
f:write(string.char(0))
f:write(string.char(0))
f:write(string.char(0))
f:write(string.char(0x28))
f:write(string.char(0))
f:write(string.char(0))
f:write(string.char(0))
binary.writeInt(f, w)
binary.writeInt(f, h)
f:write(string.char(0x1))
f:write(string.char(0))
f:write(string.char(0x18))
f:write(string.char(0))
f:write(string.char(0))
f:write(string.char(0))
f:write(string.char(0))
f:write(string.char(0))
binary.writeInt(f, w*h*3)
for i = 1, 16 do
    f:write(string.char(0))
end


--for i = a, a+l*w, l do
--for i = a, a+l*w, l do
log(a,l,h)
local i = a+l*h-l
log()
log(i,a)
while i >= a do
    for j = i, i+l-1, 3 do
        f:write(string.char(ffi.cast("unsigned char*", j)[0],
                            ffi.cast("unsigned char*", j)[1],
                            ffi.cast("unsigned char*", j)[2]   ))
    end
    i = i - l
end

f:close()
end

showwindow()
wait(100)

local a, w, h, l = clr.getimage(0,0,1919,1079,0)
full_trash([[image\my_pic.bmp]], a, w, h, l)