Вверх ↑
Ответов: 879
Рейтинг: 101
#1: 2020-12-06 02:19:56 ЛС | профиль | цитата
egorhay писал(а):
искать одинаковые или похожие

уменьшить картинки и сравнить пиксели

Add(MainForm,8142241,14,35)
{
Width=380
Height=530
Position=1
}
Add(PictureStream,4803235,203,126)
{
Quality=100
link(onLoad,13679707:doEvent1,[])
}
Add(Image,11657672,329,140)
{
Width=372
Height=240
Align=2
Color=-16777214
Point(ImageWidth)
Point(ImageHeight)
Point(onDblClick)
link(onDblClick,9638132:In,[])
}
Add(Button,11114927,196,294)
{
Top=240
Width=372
Height=23
Align=5
Caption="Сравнить"
link(onClick,12814283:doFor,[])
}
Add(Resize,10848969,413,126)
{
Width=64
Height=64
Point(Result)
}
Add(PictureStream,7497054,203,175)
{
Quality=100
link(onLoad,5204651:doEvent1,[])
}
Add(Image,5980302,329,196)
{
Top=263
Width=372
Height=240
Align=4
Color=-16777214
Point(ImageWidth)
Point(ImageHeight)
Point(onDblClick)
link(onDblClick,14205478:In,[])
}
Add(Resize,886734,469,175)
{
Width=64
Height=64
Point(Result)
}
Add(Hub,13679707,287,126)
{
link(onEvent1,10848969:doResize,[])
link(onEvent2,11657672:doLoad,[(315,139)(315,146)])
}
Add(Hub,5204651,287,175)
{
link(onEvent1,886734:doResize,[])
link(onEvent2,5980302:doLoad,[(311,188)(311,202)])
}
Add(Img_GetPoint,10325481,413,294)
{
link(onGetPixel,8655168:doGetPixel,[])
link(Bitmap,10848969:Result,[])
link(X,7757729:Var2,[])
link(Y,14812421:Var2,[])
}
Add(Img_GetPoint,8655168,469,294)
{
link(onGetPixel,6898522:doCompare,[(532,300)(532,360)(450,360)(450,398)])
link(Bitmap,886734:Result,[])
link(X,7757729:Var3,[(482,271)])
link(Y,14812421:Var3,[(489,264)])
}
Add(If_else,6898522,462,392)
{
link(onTrue,2778678:doNext,[])
link(onFalse,12590484:doNext,[(530,405)(530,447)])
link(Op1,10325481:Color,[(468,349)(419,349)])
link(Op2,8655168:Color,[])
}
Add(For,12814283,259,294)
{
End=64
link(onEvent,13723556:doFor,[])
link(onStop,7526099:In,[(307,307)(307,391)])
}
Add(For,13723556,329,294)
{
End=64
link(onEvent,10325481:doGetPixel,[])
}
Add(LineBreak,15216914,259,350)
{
Caption="x"
Type=1
link(Data,12814283:Position,[])
Primary=[9336724,161,-133]
}
Add(LineBreak,3868424,329,350)
{
Caption="y"
Type=1
link(Data,13723556:Position,[])
Primary=[10683834,98,-119]
}
Add(GetDataEx,7757729,420,266)
{
link(Data,9336724:Var,[])
}
Add(GetDataEx,14812421,427,259)
{
link(Data,10683834:Var,[])
}
Add(LineBreak,13909030,21,175)
{
link(Out,8829201:doNext,[])
Primary=[14205478,350,28]
}
Add(CounterEx,5012094,77,126)
{
Max=4
link(onNext,12850126:doString,[])
}
Add(FormatStr,12850126,126,126)
{
DataCount=1
Mask="C:\Windows\Web\Wallpaper\Theme1\img%1.jpg"
link(onFString,4803235:doLoad,[])
}
Add(LineBreak,14308180,14,126)
{
link(Out,5012094:doNext,[])
Primary=[9638132,357,21]
}
Add(FormatStr,324091,126,175)
{
DataCount=1
Mask="C:\Windows\Web\Wallpaper\Theme1\img%1.jpg"
link(onFString,7497054:doLoad,[])
}
Add(CounterEx,8829201,77,175)
{
Max=4
link(onNext,324091:doString,[])
}
Add(CounterEx,2778678,567,392)
{
Point(doReset)
}
Add(CounterEx,12590484,588,441)
{
Point(doReset)
}
Add(FormatStr,3785017,567,511)
{
Mask="%1 совпадений \ %2 не совпадений"
link(onFString,8681833:doMessage,[])
link(Str1,2778678:Count,[])
link(Str2,12590484:Count,[(580,492)(594,492)])
}
Add(LineBreak,2977322,434,511)
{
link(Out,14388097:doEvent1,[])
Primary=[7526099,-105,-126]
}
Add(Hub,14388097,490,511)
{
OutCount=3
link(onEvent1,3785017:doString,[])
link(onEvent2,2778678:doReset,[(536,524)(536,405)])
link(onEvent3,12590484:doReset,[(541,531)(541,454)])
}
Add(Message,8681833,623,511)
{
Caption="Результат"
}


для чувствительности можно увеличить размер, у меня стоит 64х64
двойным кликом загружает картинку из C:\Windows\Web\Wallpaper\Theme1
карма: 1

0