Модератор: Модераторы
olegy123 » 24.04.2019 15:35:29
sts писал(а):могу посоветовать для StretchDraw (если винда) использовать GDI+ под старую винду или Direct2D, они, при возможности используют аппаратное ускорение.
Alex2013 » 24.04.2019 15:53:29
sts писал(а):забавно что алгоритм автора наименее ресурсоемкий ну и подслеповатый, любой другой будет на порядок дороже но и более правильный. могу посоветовать для StretchDraw (если винда) использовать GDI+ под старую винду или Direct2D, они, при возможности используют аппаратное ускорение.
Лекс Айрин писал(а):...
Alex2013 » 25.04.2019 05:10:02
sts писал(а):я про ТС
Nv_BETA003.zip sts » 25.04.2019 09:52:40
Alex2013 » 25.04.2019 17:13:18
sts писал(а):и? как это противоречит тому что я написал?
sts писал(а):наименее ресурсоемкий ну и подслеповатый, любой другой будет на порядок дороже
Лекс Айрин » 25.04.2019 17:20:12
Alex2013 » 25.04.2019 17:34:07
Лекс Айрин писал(а):Alex2013, а что за этой строчкой? Там же может быть целая телега текста, подцепленная куча левых модулей и макаронные переходы.
Не хочешь быть помощником "расхитительницы гробниц"? - ну так и быть я за него! 
function CompareByte(Const buf1,buf2;len:SizeInt):SizeInt; assembler; nostackframe;
{ win64: rcx buf, rdx buf, r8 len
linux: rdi buf, rsi buf, rdx len }
asm
{$ifndef win64}
mov %rdx, %r8
mov %rsi, %rdx
mov %rdi, %rcx
{$endif win64}
testq %r8,%r8
je .LCmpbyteZero
.balign 8
.LCmpbyteLoop:
movb (%rcx),%r9b
cmpb (%rdx),%r9b
leaq 1(%rcx),%rcx
leaq 1(%rdx),%rdx
jne .LCmpbyteExitFast
decq %r8
jne .LCmpbyteLoop
.LCmpbyteExitFast:
movzbq -1(%rdx),%r8 { Compare last position }
movzbq %r9b,%rax
subq %r8,%rax
ret
.LCmpbyteZero:
movq $0,%rax
ret
end; sts » 25.04.2019 17:57:02
Alex2013 писал(а):Это где он "наименее ресурсоемкий" ? (Возможно я оять что-то не понял ... но мой вариант (без проверок) одна строчка кода + быстрый доступ и не совсем тупое сравнение ( насколько я понял CompareBayte останавливает сравнение при первом же несоответствии )
Лекс Айрин » 25.04.2019 19:02:26
Alex2013 » 25.04.2019 20:25:24
sts писал(а):вариант с CompareByte вообще не имеет отношения к решаемой задаче, остановка при любом не соответствии не нужна
Morphological001.7z
FaceDetect002.7z
) sts » 26.04.2019 09:16:35
Alex2013 » 26.04.2019 17:27:00
решений "в лоб".... сделано очень примитивно и неоптимально. Function FastCompBW(C:Byte;Var R:TRect; Bitmap,B: TBitmap):bool;
// Сравнение двух кадров (ЧБ вариант)
Type
RGB1=Record R,G,B : byte; end;
Const
DT:Boolean=false;
var
MinX, MinY: Integer;
MaxX, MaxY: Integer;
X,Y: Integer;
PixelPtr,PixelPtr2: PInteger;
PixelRowPtr,PixelRowPtr2: PInteger;
BytePerPixel: Integer;
BW,BW2:Byte;
PRGB,PRGB2:^RGB1;
begin
try
Bitmap.BeginUpdate(False);
Result:=False;
//RawImage := Bitmap.RawImage;
PixelRowPtr := PInteger(Bitmap.RawImage.Data);
PixelRowPtr2 := PInteger(B.RawImage.Data);
BytePerPixel := Bitmap.RawImage.Description.BitsPerPixel div 8;
minX:= Bitmap.Width; MaxX:=0;
minY:= Bitmap.Height; MaxY:=0;
for Y := 0 to Bitmap.Height - 1 do begin
PixelPtr := PixelRowPtr;
PixelPtr2 := PixelRowPtr2;
for X := 0 to Bitmap.Width - 1 do begin
PRGB :=Pointer(PixelPtr);
PRGB2:=Pointer(PixelPtr2);
BW:=(PRGB^.R+PRGB^.G+PRGB^.B) div 3;
BW2:=(PRGB2^.R+PRGB2^.G+PRGB2^.B) div 3;
If ( Abs( bw - bw2 )> C ) then
begin
result:=True;
MaxX:=Max(X,MaxX); MaxY:=Max(MaxY,Y);
minX:=min(minX,X); minY:=min(minY,Y);
R:= rect(minX, minY, maxX,maxY);
end;
Inc(PByte(PixelPtr), BytePerPixel);
Inc(PByte(PixelPtr2), BytePerPixel);
end;
Inc(PByte(PixelRowPtr),Bitmap.RawImage.Description.BytesPerLine);
Inc(PByte(PixelRowPtr2),Bitmap.RawImage.Description.BytesPerLine);
end;
finally
Bitmap.EndUpdate(False);
end;
end;
но и задача совсем другая чем "просто пройти по коридору" 
то бишь сравнить два изображения на тождество .. Truba_DS_0_0059_14_2_5_Bin.7z "Запуск трансляции ." ->"Окно цифровые эффекты" -> фильтр 'Выделить движение' Чувствительность "меньше лучше "... экспериментально лучшие значение около 50... требуется веб камера или её эмулятор... yus » 10.07.2019 02:53:32
olegy123 » 10.07.2019 13:45:02
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1