Сглаживание

[Kn793]

Здравтсвуйте!
В последнее время решил заняться графикой, написал простенькую игрушку, где вся отрисовка идет с помощью стандартных примитивов, тоесть без текстур.
Теперь хотелось бы добавить туда сглаживание. Попробовал просто для каждого пикселя находить среднее арифметическое из него самого и соседних 4рех клеток:

var
  B1: Tbitmap; // исходное
  B2: Tbitmap; //сглаженное
begin
  for i := 1 to B1.Width - 1 do for j :=1 to B1.Height - 1 do begin
    color:= trunc((B1.Canvas.Pixels[i,j] + B1.Canvas.Pixels[i-1,j] + B1.Canvas.Pixels[i+1,j] + B1.Canvas.Pixels[i,j+1] + B1.Canvas.Pixels[i,j-1]) / 5);
    B2.Canvas.Pixels[i,j] := color;
  end;
end;

результат тот что нужен, но вот время обработки ну оооочень долгое.
Скажите, это вообще реально сделать самописным решением, или же такие вещи делаются только на аппаратном уровне?

[san72]

учи DirectX не парь мозг себе

[BOBAH13]

Если уже так захотели, то
1. Проблема в этом Canvas.Pixels[]
2. Делаите указатель типа PByte (или ^TRGBTriple - если у вас 24битный рисунок)
3. TBitmap.ScanLine даст указатель на строку.
4. Дальше зная указатель на строку делаем что надо с состовляющими (смотреть п.2)