Обьединение 2х PNG в 3й

[Horsee]

Всем привет.
Возникла у меня проблема при обьеденении 2 TPNGObject's в 3й.
Я попробовал 3й присвоить из 1го, и на него нанести 2й.

Но прозрачность 2го не учитывается:


Подскажите способ обьединения alpha каналов, заранее спасибо!

Вот код:

[antonn]

перевести в tbitmap и сливать уже их, попиксельно.
"примерный пример" - http://forum.sources.ru/index.php?sh...post&p=2888880 , только в нем накладывается изображение с альфой еще и с процентом прозрачности, вам нужно просто 100% выставлять. альфа пересчитывается

[Horsee]

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

перевести в tbitmap и сливать уже их, попиксельно.
"примерный пример"...

Спасибо за пример, но в нем вообще не используется PNG
Я попытался найти переводы в BMP и обратно, результат не лучше:

код во вложении.

Подскажите просто как можно обратится к альфа каналу у PNGObject, а уж перебрать их я думаю не сложно!!!

[ZuBy]

перевод png в bmp

var
  png: tpngimage;
  bmp: tbitmap;
begin
  png := tpngimage.create;
  bmp := tbitmap.create;

  png.loadfromfile('1.png');
  bmp.assign(png);

  if bmp.pixelformat <> pf32bit then
    bmp.pixelformat := pf32bit;

  // тут делаем склейку

  freeandnil(png);
  freeandnil(bmp);
end;

[Horsee]

Непонял сути алгоритма

1. PNG загружается из файла.
2. BMP копируется из PNG.
3. и потом эти 2 изображения склеиваются.

Поправьте меня если я не прав.

[ZuBy]

var
  png: tpngimage;
  result: tbitmap;
begin
  png := tpngimage.create;
  result := tbitmap.create;

  png.loadfromfile('1.png');

  result.pixelformat := pf32bit;
  result.width := png.width;
  result.height := png.height;

  result.canvas.draw(0,0, png);

  png.loadfromfile('2.png');

  result.canvas.draw(0, 0, png)

  // выводим куда нить Result, например в TImage
  Image1.picture.assign(result);

  freeandnil(png);
  freeandnil(result);
end;

[antonn]

ZuBy, неверно, альфа потеряется

Horsee, png загружается в tbitmap, два tbitmap блитятся друг на друга, результирующий tbitmap сохраняется в файл png. Пример блита с пересчетом альфы я выше дал, пример конвертации png->bmp/bmp->png есть тут http://desksoft.ru/index.php?downloa...chments&id=254

[JTG]

Примерно так:

procedure BlendPNG(Layer1, Layer2: TPNGObject; var blendedPNG: TPNGObject; Threshold: byte);
var
  x, y: Integer;
  SL1, SL2, SLBlended: pRGBLine;
  aSL1, aSL2, aSLBlended: PByteArray;
begin
  blendedPNG.Assign(Layer1);
  for y:=0 to Layer1.Height-1 do
  begin
    SL1 := Layer1.Scanline[y];
    SL2 := Layer2.Scanline[y];
    aSL1 := Layer1.AlphaScanline[y];
    aSL2 := Layer2.AlphaScanline[y];
    SLBlended := blendedPNG.Scanline[y];
    aSLBlended := blendedPNG.AlphaScanline[y];
    for x := 0 to Layer1.Width-1 do
    begin
      aSLBlended[x]  := ((aSL1[x] * (255 - threshold) + (aSL2[x] * threshold)) shr 8);
      SLBlended[x].rgbtRed   := ((SL1[x].rgbtRed   * (255 - threshold) + (SL2[x].rgbtRed   * threshold)) shr 8);
      SLBlended[x].rgbtGreen := ((SL1[x].rgbtGreen * (255 - threshold) + (SL2[x].rgbtGreen * threshold)) shr 8);
      SLBlended[x].rgbtBlue  := ((SL1[x].rgbtBlue  * (255 - threshold) + (SL2[x].rgbtBlue  * threshold)) shr 8);
    end;
  end;
end;

Function SplicingPNG(PNG1, PNG2 : TPNGObject) : TPNGObject;
Begin
Result := TPNGObject.Create;
...

Плохой стиль, приводящий к ошибкам. Если функции нужно вернуть объект, пусть просит создать его перед вызовом.

[Horsee]

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

Такой эффект можно получить если нанести через canvad.draw на форму 2е PNG, на одни координаты.
Но это банальный способ, хотелось бы все в оперативке сделать.

[JTG]

Тогда так

procedure OverlapPNG(Layer1, Layer2: TPNGObject; var blendedPNG: TPNGObject);
var
  x, y: Integer;
  SL1, SL2, SLBlended: pRGBLine;
  aSL1, aSL2, aSLBlended: PByteArray;
  blendCoeff: single;
begin
  blendedPNG.Assign(Layer1);
  for y := 0 to Layer1.Height-1 do
  begin
    SL1 := Layer1.Scanline[y];
    SL2 := Layer2.Scanline[y];
    aSL1 := Layer1.AlphaScanline[y];
    aSL2 := Layer2.AlphaScanline[y];
    SLBlended := blendedPNG.Scanline[y];
    aSLBlended := blendedPNG.AlphaScanline[y];
    for x := 0 to Layer1.Width-1 do
    begin
      blendCoeff:=aSL1[x] * 100/255/100;
      aSLBlended[x] := round(aSL2[x] + (aSL1[x]-aSL2[x]) * blendCoeff);
      SLBlended[x].rgbtRed   := round(SL2[x].rgbtRed + (SL1[x].rgbtRed-SL2[x].rgbtRed) * blendCoeff);
      SLBlended[x].rgbtGreen := round(SL2[x].rgbtGreen + (SL1[x].rgbtGreen-SL2[x].rgbtGreen) * blendCoeff);
      SLBlended[x].rgbtBlue  := round(SL2[x].rgbtBlue + (SL1[x].rgbtBlue-SL2[x].rgbtBlue) * blendCoeff);
    end;
  end;
end;

Не знаю правда насколько быстро работает и не вылезает ли где значение R/G/B/A за пределы 0..255