Сравнение изображения с ФРАГМЕНТОМ другого изображения

[egorka2134]

Добрый день! Выручите пожалуйста!
Задача:
Есть изображение 1 и изображение 2. Изображение 1 больше чем изображение 2. Как проверить есть ли на изображении 1 фрагменты, которые схожи с изображением 2 больше чем на 50%.
Помогите пожалуйста, заранее огромнейшее спасибо

[zumm]

Имеется ввиду, что 50% пикселей IMG2 должный находится на IMG1 в той же последовательности?

[egorka2134]

Хм... Просто происходит сравнивание фрагмента и изображения и определяется процент совпадений,
для этого использую код сравнения двух изображений:
for i:=1 to canvas1.width do
for j:=1 to canvas1.height do
if canvas1.pixels[i,j] = canvas2.pixels[i,j] then inc(n);
showmessage ('количество сходных пикселей = '+inttostr(n));
Допустим на изображении 1 изображен алфавит, а на изображении 2 - лишь буква А, причем может быть немного деформирована(тоесть не того же шрифта, что на рисунке 1).
Но как найти этот фрагмент?

[egorka2134]

Есть такая идея:
Допустим изображение 1 10*10 пикселей, а изображение 2 4*4 пикселя.
Мы берем часть изображения 1 (начиная с верхнего левого угла) размером 4*4 пикселя, и сравниваем с изображением 2, определяем процент схожести, далее отступаем вправо на 1 пиксель и повторяем процедуру. и так весь рисунок 1.
Но как реализовать?

[Аватар]

Если просто в лоб, то сколько возможных комбинаций размещения изображения2 на изображении1? Правильно = (ширина1-ширина2+1)*(высота1-высота2+1). От этого и плясать при организации циклов по канве - цикл в цикле по возможным способам размещения и внутри циклы по канве

[Kix.IV]

Если бы надо было 100% совпадение, то можно было бы воспользоваться простым поиском (типа pos).
А так, даже не знаю. Нейросети наверное надо использовать. Либо тупой перебор, но это очень ресурсоёмкая задача.

[zumm]

Самый топорный способ:

var
	SimilarAreas: array of TRect;
	
...

SetLength(SimilarAreas, 0);

LengthSimilarAreas := 0;
LimitPixels := canvas2.width * canvas1.height div 2;

for xOffset := 1 to canvas1.width - canvas2.width do
begin
	for yOffset := 1 to canvas1.height - canvas2.height do
	begin
		SamePixels := 0;
		
		for x := xOffset to canvas1.width do
		begin
			for y := yOffset to canvas1.height do
			begin
				if canvas1.pixels[x,y] = canvas2.pixels[x,y] then 
				begin
					Inc(SamePixels);
				end;
			end;
		end;
		
		if SamePixels >= LimitPixels then
		begin
			Inc(LengthSimilarAreas);
			SetLength(SimilarAreas, LengthSimilarAreas);
			
			with SimilarAreas[LengthSimilarAreas - 1] do
			begin
				Top := xOffset;
				Left := yOffset;
				Bottom := xOffset + canvas2.height;
				Right := yOffset + canvas2.width; 
			end;
		end;
	end;
end;

PS: Фигасе таб расперло О_о

[Человек_Борща]

Как вариант:
Исходное изображение(что ищем), получаете его квадрат, внутри этого квадрата так же содержимое делите на квадраты по 3-5 пикселей.
У цели(Где ищем), накладываем квадрат исходного изображения, разбиваем на такие же группы и начинаем сравнивать, считаем % совпадения для каждого мини-квадрата. Далее анализируете в какой части квадрата временного изображения больше всего совпадений и расстояние меду ними минимально.
Если такие есть, то сдвигаете большой квадрат в ту сторону, и снова анализируете.

Таким образом скорость обработки в целом возрастет, равно как и результат найти или 100% совпадение.

[egorka2134]

Bcem cnacubo