Попиксельная обработка изображения

[shushlev]

Приветствую. Нужна подсказка по обработке изображения. Точнее. есть два файла бмп. и с ними производятся математические операции. у меня готова программка на маткаде.

там грузятся два изображения и можно производить попиксельные операции например:

fr1:=READBMP("1.bmp")
fr2:=READBMP("2.bmp")
ymax:=rows(fr1)
xmax:=cols(fr1)

A=fr1(y,x+1) + fr1(y,x) - fr2(y,x+1) - fr2(y,x)


вот.... и не подскажете в сторону чего кидать в дельфи чтобы воплотить такой же функционал. никогда изображения не обрабатывал в дельфи

Заранее спасибо )))

[evg_m]

смотри TBitmap, его свойства и методы.

[CahekG]

Тип TColor = -$7FFFFFFF-1..$7FFFFFFF
и каждый пиксел содержит RGB составляющие и работать надо с каждой из них по отдельности иначе эффект будет сомнительный.
Простой пример работы

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Math;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 fr1,fr2,fr3:tBitmap;
 A:tcolor;
 x,y,Red,Green,Blue:integer;
begin
 fr1:=TBitmap.Create();
 fr2:=TBitmap.Create();
 fr1.LoadFromFile('c:\1.bmp');
 fr2.LoadFromFile('c:\2.bmp');
 fr3:=TBitmap.Create();
 fr3.Width:=max(fr1.Width,fr2.Width);
 fr3.Height:=max(fr2.Height,fr2.Height);
 for x:=0 to max(fr1.Width,fr2.Width)-1 do
  for y:=0 to max(fr2.Height,fr2.Height)-1 do
    begin

     Red:=GetRValue(fr1.Canvas.Pixels[x,y])+GetRValue(fr1.Canvas.Pixels[x+1,y])-GetRValue(fr1.Canvas.Pixels[x,y]);
     Green:=GetGValue(fr1.Canvas.Pixels[x,y])+GetGValue(fr1.Canvas.Pixels[x+1,y])-GetGValue(fr1.Canvas.Pixels[x,y]);
     Blue:=GetBValue(fr1.Canvas.Pixels[x,y])+GetBValue(fr1.Canvas.Pixels[x+1,y])-GetBValue(fr1.Canvas.Pixels[x,y]);
     A:=RGB(Red div 2,Green div 2,Blue div 2);
     fr3.Canvas.Pixels[x,y]:=A;
   end;
// можо еще что нибуть подрисовать в выходном файле
   fr3.Canvas.TextOut(10,10,'Спецэффект №1');

   fr3.SaveToFile('c:\3.bmp');
end;

end.

[shushlev]

ага... спасибо за наводку... буду кидать :-)

[shushlev]

еще вопрос...

а если делать операции с рисунком без разделения на цвета как вы советовали, то это получится просто радота с якостным сигналом, как говорят у нас в ТВ...?

[shushlev]

Значит так-с... нужны дальнейшие советы.
То что было сверху - программа в маткаде по удалению гребенки в видеосигнале. ну учебный вариант когда берутся два кадра и маткад делает третий но без гребенки.

И вот я перевел на Delphi прогурамму... вроде все стройно... Но он постоянно выкидывает недовольство по поводу разных типов данных. а по кускам работает как то непонятно....

Вот.. у вас тут свежий взгляд... может зацепится где я ошибся... опыт то программирования небольшо.

Запихнул в архивчик программу в маткаде с двумя исходными бмпшками и одним файликом с результатом работы и исходник дельфи...

Буду благодарен за критику...

[shushlev]

И еще вдогонку... как преобразовать tBitmap в single или Double?

[DomiNick]

В архиве файлов не хватает... Причём самых нужных...

[shushlev]

А так лучше?
http://narod.ru/disk/8039205000/22-2.rar.html

смог загрузить сейчас почему то тока сюда

[DomiNick]

И еще вдогонку... как преобразовать tBitmap в single или Double?

Это как? TBitmap - грубо говоря, массив пикселей...

Вот он ругается на эти строки:

If (ABS(A-B)/2) < (th AND C) < th2 then
...
If A < (B AND C) < th2 then
...
If (ABS(A-B)/2) < (th AND C) < th2 then
...
If A < (B AND C) < th2 then

...не знаю что такое th и th2, но надо так писать:

If ((ABS(A-B)/2)<(th AND C)) and ((th AND C)<th2) then
...
If (A<(B AND C)) and ((B AND C)<th2) then
...
If ((ABS(A-B)/2)<(th AND C)) and ((th AND C)<th2) then
...
If (A<(B AND C)) and ((B AND C)<th2) then

Ещё я бы не не стал писать полные пути - тогда прога будет искать и сохранять в папке с собой...

fr1.LoadFromFile('133.bmp');
fr2.LoadFromFile('132.bmp');
...
fr3.SaveToFile('res.bmp');
fr4.SaveToFile('res1.bmp');
fr5.savetofile('res2.bmp');
fr6.savetofile('res3.bmp');

И последняя строка "y:=y shl 1;" ничего не делает...