Модератор: Модераторы
IvoX писал(а):Смотрится просто отлично для 2017 года.
Но сайт не работает уже,и в комментах говорят что код данного чуда был украден у разработчиков Окулуса.
Infinite Office
Окно "слежение за объектами"...
'Отделение фона'- пробная версия(за то с прозрачностью ).
Кнопка "Получить фон" - задать фон
Галка "Отделить фон" - включить режим отделения фона
Движок "Приближение" - близость цвета пикселя к фону
Движок "Прозрачность" - прозрачность показа образца фона
(Примечание ! Перед сменой фона нужно отключать галку "Отделить фон" )
Окно "Цифровые эффекты" дополнение
Раздел "Software"
'Отделение фона'
Настройки ('Кадров до захвата') - задержка до захвата
('Кадров после захвата') - задержка до рабочего режима
('Фон из файла')- загрузка фона из файла (не проверял!)
('Имя Файла' ) - Имя Файла с фоном
('Приближение') - близость цвета пикселя к фону
Раздел "OpenCV"
'cvPyrMeanShiftFilter' - очень ресурсоемкий метод "сегментации"
(Соседние близкие по цвету пиксели сливаются, а цвет усредняется
- выходит что-то вроде цветной бинаризации )
Настройки
'SP'(предположительно порог срабатывания),
'SR'(предположительно радиус срабатывания),
'Max_level'(предположительно глубина обработки)
Truba_DS_0_0059_14_3_2M0_bin.7z 
Truba_DS_0_0059_14_3_2M0_SRC.7z Код: Выделить всё
Procedure FastCompAndCutBW(C:Byte;Var Bitmap,B: TBitmap);
// Сравнение двух кадров с вырезанием (ЧБ вариант)
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);
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
PRGB^.R:=0;
PRGB^.G:=0;
PRGB^.B:=0;
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;
IvoX писал(а):А я тут смотрел скорости доступа к пикселям различными методами,сравнивал сканлайн и SetDiBits(на запись)...
Получились интересные результаты.
У сканлайна 92 такта на пиксель,это с учётом создания изображения Bitmap в памяти ~ 3.7 наносекунд /пиксель
А у SetDiBits 10 тактов на байт, и в среднем 42 такта на пиксель при 32-битной цветности. Но только при полном помещении картинки в кеш процессора + размер инструкций.
В моём случае при кеше 64к размер картинки до 117х129 х32Bpp=60372 байта.Рисовал кстати сразу на экране примерно 35000 FPS получалось
при 509х240 х32Bpp 14000 FPS.
Средствами GDI 3700-4200 FPS тот же размер.
И получается для обработки изображения выгоднее вычитывать его в массив,либо работать напрямую с его памятью через свои функции.
Тогда неизбежно будут потери времени при конвертации в формат OpenCV ,у них если не ошибаюсь это массив Double.Или писать своё которое не факт что будет быстрее
Alex2013 писал(а):"плывет" яркость ВСЕЙ картинки
Alex2013 писал(а):'cvPyrMeanShiftFilter' - очень ресурсоемкий метод "сегментации"
Alex2013 писал(а):По хорошему "конвертации в формат OpenCV" вообще не нужна!
Alex2013 писал(а):(см тему Серия проектов "Дополнение к реальности ")
Alex2013 писал(а):ИМХО реально намерять 3.7 наносекунды можно только "статистическим способом"
и не прыгают как все остальные таймеры(очень надеюсь) по моим замерам небыло пропуска таймера ни разу за 3 часа
) 
Alex2013 писал(а): идеальная сегментация получается "автоматом" при составлении "карты глубины"
IvoX писал(а):я так и не смотрел его...
Т.Е. подключаем библтотеку и она сама всё может? и получать изображения с камер,экрана файлов?
Тогда получается она преобразование в свой формат один фиг делает внутри себя.
Код: Выделить всё
Move(b.RawImage.Data^,Frame.ImageData^, Frame.ImageSize);Alex2013 писал(а):То есть "бинарные данные" почти всегда теже самые меняется только "обвязка"
(Сходу в код не вник. )IvoX писал(а):Я пока ещё только с 2D пробую... может потом,дойду и до 3D, чувствую для меня оно будет непросто...
IvoX писал(а):https://drive.google.com/file/d/1JxZKF4 ... sp=sharing
https://habr.com/ru/post/373707/ 
Alex2013 писал(а):Что я делаю для преобразования ТBitmap(класс "картинка" в LCL) в IplImage (класс "картинка" в OpenCV )?
Тупо копирую данные через Move !
Код: Выделить всё
procedure MoveMMX(Src, Dest: Pointer; Size: UInt64); stdcall;
asm
mov rsi, Src
mov rdi, Dest
mov rdx, Size
// Получаем количество 64х-байтных блоков:
mov rax, rdx
shr rax, 6 // Делим на 64
test rax, rax
jz @Block_64_Skip
mov rcx, rax
@Block_64:
// Чтение:
mov rbx, rsi
movq mm0, qword [rbx]
movq mm1, qword [rbx + 8]
movq mm2, qword [rbx + 16]
movq mm3, qword [rbx + 24]
movq mm4, qword [rbx + 32]
movq mm5, qword [rbx + 40]
movq mm6, qword [rbx + 48]
movq mm7, qword [rbx + 56]
......