Медианная фильтрация изображения

[Don Karleone]

Уважаемые форумчане, ответьте мне пожайлуста, правильно ли я понял смысл медианной фильтрации:
1) есть маска размером 3х3; (к примеру), которая двигается по исходному изображению;
2) пикселы изображения, которые попадают в эту маску записываются в вектор, количество элементов которого соответственно Sqr(3) (тобишь 9):
3) вектор сортируется (например по возрастанию), после чего средний элемент этого вектора присваивается пикселю в центре маски;


вот мой код:

procedure TForm1.Button2Click(Sender: TObject);
var
  Index, i, j, s, k, z: Integer;
  n: Byte;
  Dx: Integer;
begin
  Dx:=CN div 2;
  for i:=0 to BitMap.Width - 1 - CN do   //движение маски по горизонтали
    for j:=0 to BitMap.Height - 1 - CN do  //движение маски по вертикали
      begin
        //заносим значения пикселей в вектор MyMas
        Index:=1;
        for k:=i to i + (CN - 1) do
          for s:=j to j + (CN - 1) do
            begin
              MyMas[Index]:=BitMap.Canvas.Pixels[k,s];
              Inc(Index);
            end;
          n:=Sort(MyMas);  //сортируем вектор с возвратом значения среднего элемента
          BitMap.Canvas.Pixels[i+Dx, j+Dx]:=n;
      end;

  Image2.Canvas.CopyRect(Rect(0, 0, BitMap.Width, BitMap.Height), BitMap.Canvas,
                         Rect(0, 0, BitMap.Width, BitMap.Height));
end;

вот проект:

[Don Karleone]

неужели никто такого не делал??????

[antares90]

Приветствую! Скажите, а почему изображение после фильтрации "краснеет"?

[BDA]

Вот, кое-что исправил
Ошибка в том, что цвет занимает 4 байта (если изображение 32-битное), а не 1.

[antares90]

Сообщение от BDA

Вот, кое-что исправил
Ошибка в том, что цвет занимает 4 байта (если изображение 32-битное), а не 1.

Благодарю!