olegy123 писал(а):Почему Wine?
Ууу... вы действительно хотите это знать ? "Зловеще усмехаюсь" ... Блин ... да просто потому, что в интернет хожу через линукс ...
...и иногда перезагружаться лень ...
Вот так гораздо познавательней будет !
Alex2013 писал(а):+ Может кому пригодится эти две процедуры
Первая FastBW "Быстрое обесцвечивание"
и вторая FastBWComp "Оригинальное сравнение " двух кадров для датчика движения .
( лучше пока не придумал )
Тогда уж лучше DX - есть фильтры. Сложнее под Linux - но там есть OpenCV.
Вообще я делал так:
Linux, Lazarus, OpenGL,OpenCV, FFMpeg
Картинку обесцвечивать можно шейдерах.
А чем в OpenCV лучше ? Смотрел в код все тоже самое только на сях...
С OpenGL классно но "из пушки по воробьям"...
Кстати ! Вот еще одна жертва "инженерного анализа" и доморощенной оптимизации ...
"Горизонтальное зеркало "
"Флипнуть до космопорта" не желаете ?
- Код: Выделить всё
procedure FlipVert(var Src: TBitmap);
Type
A=Array [0..1] of byte;
var
dest:TBitmap;
X3,X2,w,h,x,y:integer;
pd,ps:^A;
begin
w:=Src.width;
h:=Src.height;
dest:=TBitmap.Create;dest.SetSize(w,h);
// dest.pixelformat:=pf24bit;
// Src.pixelformat:=pf24bit;
for y:=0 to h-1 do begin
dest.BeginUpdate(False);
pd:=dest.scanline[y];
ps:=Src.scanline[y];
X2:=0; X3:=(w-1)*3;
for x:=0 to w-1 do begin
move (ps^[X3],pd^[x2],3);
Inc(X2,3); dec(X3,3);
end;
dest.EndUpdate(False);
end;
Src.assign(dest);
dest.free;
end;