Antialiasing ARGB

[BOBAH13]

Приветствую.
Ну сразу к делу, известно что антиалиасинг это среднее арифметическое пикселей вокруг текущего. Да, вроде все легко. Но если есть состовляющия A (alpha channel). То как быть ? Причем, если (в моем случае) то на чем рисуем, это область залитая 0x0 на пиксель, значит и alpha будет 0. Дело в том, что я накладываю изображение, все нормально, но по краям я делаю наклон (сжимаю построчно) и там образуются "зубчики". Вот их мне как то надо сгладить. Если даже крутится вокруг средней арифметической по альфу каналу, то тогда все тянется так же и к местам целевого изображения, т.е. в середине рисунка оказывается прозрачность совсем не та. Ну или, сначала рисую, а потом пробегаюсь и смешиваю, но тогда выходит что, цвет например фон (т.е. ARGB == 0) тогда получится надо делать прозрачнее, но в тоже время, это цвет черный, т.е. затемняется часть.
Как обычно надеюсь на отклик

[mihali4]

Ну, если зубчики, то можно сказать и области, т.е. RECT, да?
Может, такой вариант можно использовать:

Автор: http://www.swissdelphicenter.ch 
{The parameter "percent" needs an integer between 0 and 100
(include zero and 100). If "Percent" is 0, there will be no effect.
If it's 100 there will be the strongest effect.}

procedure Antialising(C: TCanvas; Rect: TRect; Percent: Integer);
var
  l, p: Integer;
  R, G, B: Integer;
  R1, R2, G1, G2, B1, B2: Byte;
begin
  with c do
  begin
    Brush.Style := bsclear;
    lineto(200, 100);
    moveto(50, 150);
    Ellipse(50, 150, 200, 30);
    for l := Rect.Top to Rect.Bottom do
    begin
      for p := Rect.Left to Rect.Right do
      begin
        R1 := GetRValue(Pixels[p, l]);
        G1 := GetGValue(Pixels[p, l]);
        B1 := GetBValue(Pixels[p, l]);

        //Pixel links
        //Pixel left
        R2 := GetRValue(Pixels[p - 1, l]);
        G2 := GetGValue(Pixels[p - 1, l]);
        B2 := GetBValue(Pixels[p - 1, l]);

        if (R1 <> R2) or (G1 <> G2) or (B1 <> B2) then
        begin
          R := Round(R1 + (R2 - R1) * 50 / (Percent + 50));
          G := Round(G1 + (G2 - G1) * 50 / (Percent + 50));
          B := Round(B1 + (B2 - B1) * 50 / (Percent + 50));
          Pixels[p - 1, l] := RGB(R, G, B);
        end;

        //Pixel rechts
        //Pixel right
        R2 := GetRValue(Pixels[p + 1, l]);
        G2 := GetGValue(Pixels[p + 1, l]);
        B2 := GetBValue(Pixels[p + 1, l]);

        if (R1 <> R2) or (G1 <> G2) or (B1 <> B2) then
        begin
          R := Round(R1 + (R2 - R1) * 50 / (Percent + 50));
          G := Round(G1 + (G2 - G1) * 50 / (Percent + 50));
          B := Round(B1 + (B2 - B1) * 50 / (Percent + 50));
          Pixels[p + 1, l] := RGB(R, G, B);
        end;

        //Pixel oben
        //Pixel up
        R2 := GetRValue(Pixels[p, l - 1]);
        G2 := GetGValue(Pixels[p, l - 1]);
        B2 := GetBValue(Pixels[p, l - 1]);

        if (R1 <> R2) or (G1 <> G2) or (B1 <> B2) then
        begin
          R := Round(R1 + (R2 - R1) * 50 / (Percent + 50));
          G := Round(G1 + (G2 - G1) * 50 / (Percent + 50));
          B := Round(B1 + (B2 - B1) * 50 / (Percent + 50));
          Pixels[p, l - 1] := RGB(R, G, B);
        end;

        //Pixel unten
        //Pixel down
        R2 := GetRValue(Pixels[p, l + 1]);
        G2 := GetGValue(Pixels[p, l + 1]);
        B2 := GetBValue(Pixels[p, l + 1]);

        if (R1 <> R2) or (G1 <> G2) or (B1 <> B2) then
        begin
          R := Round(R1 + (R2 - R1) * 50 / (Percent + 50));
          G := Round(G1 + (G2 - G1) * 50 / (Percent + 50));
          B := Round(B1 + (B2 - B1) * 50 / (Percent + 50));
          Pixels[p, l + 1] := RGB(R, G, B);
        end;
      end;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Antialising(Image1.Canvas, Image1.Canvas.ClipRect, 100);
end;

Я не спец в области графики, так что могу и ошибиться по поводу применимости этой процедуры

[BOBAH13]

mihali4 спасибо за отклик, но может быть и подошел бы вариантик, просто кулючевое слово ARGB меня в основном в тупик ставит альфа состовляющая.

[mutabor]

мм.. А зачем альфу алиасить? А если оставлять как есть?

[BOBAH13]

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

мм.. А зачем альфу алиасить? А если оставлять как есть?

не было бы зачем не спрашивал у меня окно layered. Думаю ясно.

[DomiNick]

мм.. А зачем альфу алиасить? А если оставлять как есть?

Я тоже думаю, что альфу не надо трогать вовсе... Можно как-нибудь по нагляднее, что там с картинкой получается? Скриншот какой-нибудь...

но по краям я делаю наклон (сжимаю построчно) и там образуются "зубчики".

Хм... А возможно ли, что как-то не так происходит само "сжимание"?


А вообще вопрос хороший... Надо будет поэкспериментировать... Вы на Делфи делаете, через ScanLine?

[BOBAH13]

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

Я тоже думаю, что альфу не надо трогать вовсе... Можно как-нибудь по нагляднее, что там с картинкой получается? Скриншот какой-нибудь...

Хм... А возможно ли, что как-то не так происходит само "сжимание"?


А вообще вопрос хороший... Надо будет поэкспериментировать... Вы на Делфи делаете, через ScanLine?

Видимо одного раза не хватило Я знаю что делаю. У меня окно прозрачное - Layered. Т.е... сделать антиалиасинг возможно только через Alpha канал. Т.к. если альфа будет 255, то как вы интересно получите то что под окном ? Т.е. уже видно что это ерунда.
Сжатие происходит все верно, расчет каждой строки математика - линейно уменьшается смешение с краев.

Edit:

Чтот я совсем запутался.....
Зачем получать то, что под окном? Layered-окно само ж рисуется как надо...
Или вы хотите что-то вроде Blur (матового стекла), как в Висте и семёрке?

Это я написал исходя из того, что Вы намекаите чтобы не использовать альфа канал... тогда надо получать то что под окном. А я говорю, что надо как то качественно проводить антиалиасинг. (Блюр эффект, нет, это тут вообще причем ?)

[DomiNick]

Т.к. если альфа будет 255, то как вы интересно получите то что под окном ?

Чтот я совсем запутался.....
Зачем получать то, что под окном? Layered-окно само ж рисуется как надо...
Или вы хотите что-то вроде Blur (матового стекла), как в Висте и семёрке?

[DomiNick]

Кнопки "Правка" снова нету... И куда она постоянно ретируется?

Это я написал исходя из того, что Вы намекаите чтобы не использовать альфа канал...

Я имел ввиду просто не трогать его при сглаживании... "Антиалиасить" только по R, G и B...

Если эта тема в продолжение той, то на тамошнем скриншоте всё вроде нормально выглядит... (программа кстати заинтриговала, было б интересно взглянуть, если это не секретные разработки разумеется )


Было б гораздо понятнее с примером "неправильной" картинки.....


Edit:

При определенном угле (на скриншоте 30 градусов) все нормально, т.е. нет зубцов и т.п... при других углах, возможны прямо таки скачки (резкие перепады). Если антиалиасить только RGB то всеравно будут видны скачки, ведь так. Так что...

Если это настолько секретная разработка, что даже скриншот краешка изображения с "зубчиками" нельзя увидеть, то как я смогу помочь?
Как мне попытаться убрать эффект "скачков", которых я в глаза не видел?

Дайте какую-нибудь полупрозрачную картинку-пример (не обязательно из проекта), где присутствует вышеозначенный эффект, тогда будем пытаться.....

[BOBAH13]

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

Кнопки "Правка" снова нету... И куда она постоянно ретируется?


Я имел ввиду просто не трогать его при сглаживании... "Антиалиасить" только по R, G и B...

Если эта тема в продолжение той, то на тамошнем скриншоте всё вроде нормально выглядит... (программа кстати заинтриговала, было б интересно взглянуть, если это не секретные разработки разумеется )


Было б гораздо понятнее с примером "неправильной" картинки.....

При определенном угле (на скриншоте 30 градусов) все нормально, т.е. нет зубцов и т.п... при других углах, возможны прямо таки скачки (резкие перепады). Если антиалиасить только RGB то всеравно будут видны скачки, ведь так. Так что...