Алгоритмы вывода графики

[BOBAH13]

Предлагаю к обсуждению алгоритмы ( мат. формулы если угодно ) смешивания цветов, т.е. наложение друг на друга....

Меня интерисует метод наложения двух цветов из 4х состовляющих... т.е. надо расчитать альфа канал а потом получить r,g,b.

Вот кусок кода моего, но когда pD^.a > 0 то получаю точно не то что надо )) pD это dest а pS source. оба они указывают на argb но не в этом суть...помогите, или ткните носом на литературу с описанными алгоритмами, облазил уже уйму сайтов.

a := (pD^.a + (255 - pD^.a) * pS^.a) div 255;
if (a = 0) then a := 1;
t := ((255 - pS^.a) * pD^.a) div 255;

pD^.r := (t * pD^.r + pS^.r * pS^.a) div a;
pD^.g := (t * pD^.g + pS^.g * pS^.a) div a;
pD^.b := (t * pD^.b + pS^.b * pS^.a) div a;
pD^.a := a;

для моей проги очень важна скорость, потом может попробую на асм переписать

[mutabor]

Я так делал, функция моя (велосипед собств. изобретения =) Работает нормально по качеству, по скорости конечно она врядли быстрая.
Я думаю тут все предельно ясно, и в принципе ничего хитрого нет, разве что оптимизировать как нибудь, чтобы процессору легче считать было. Я имею ввиду не Асм, а от человеческой математики отойти в пользу всяких сдигов, побитовых операций и т.п. Асм конечно тоже не помешает.

procedure Blend(buffer: TBitmap; value: byte; trans: TColor);
var
  i,j: integer;
  ar,ag,ab,fr,fg,fb,rr,rg,rb: byte;
begin
for i:=0 to h-1 do
  for j:=0 to w-1 do
    begin
    if amap[j,i] = trans then
      buffer.Canvas.Pixels[j,i]:=fmap[j,i]
    else
      begin
      ar:=GetRValue(amap[j,i]);
      ag:=GetGValue(amap[j,i]);
      ab:=GetBValue(amap[j,i]);

      fr:=GetRValue(fmap[j,i]);
      fg:=GetGValue(fmap[j,i]);
      fb:=GetBValue(fmap[j,i]);

      rr:=Round(fr+((ar-fr)/255)*value);
      rg:=Round(fg+((ag-fg)/255)*value);
      rb:=Round(fb+((ab-fb)/255)*value);

      buffer.Canvas.Pixels[j,i]:=RGB(rr,rg,rb);
      end;
    end;
end;

Вся суть в этих строках

rr:=Round(fr+((ar-fr)/255)*value);
rg:=Round(fg+((ag-fg)/255)*value);
rb:=Round(fb+((ab-fb)/255)*value);

вижу у тебя почти то же самое. Что еще раз подтверждает что все очевидно, и хитрого ничего нет. У меня вроде результат нормальный выходит.

PS Спроси в Обсуждении игр у Beermonza, он этим вплотную занимался.

[Lokos]

попробовал сделать что то подобное но изображение не выводится(
чему равно свойство value? прочел статью о построении Alpha наложения но там формула совсем другая

[alexBlack]

По цветовым моделям интересен вот этот документ. Про смешение цветов раздел 6.1:
в общем случае смешиваем p процентов первого цвета и (100-p) второго цвета:

 
procedure MixRGB(R1, G1, B1, R2, G2, B2:byte; P:Single; var R, G, B:byte);
begin
   R := trunc(R1 * P + (R2) * (1-p));
   G := trunc(G1 * P + (G2) * (1-p));
   B := trunc(B1 * P + (B2) * (1-p));
end;

здесь P in [0..1]