VPF::Изменить уровень прозрачности TPNGImage

RidDozZ

Дата 28.5.2010, 02:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 28.2.2009

Репутация: нет
Всего: нет

Есть TPngImage с загруженным в него изображением. Необходимо в нем же нарисовать это изображение с заданным уровнем альфы (полупрозрачности). Можно и через временный TPNGImage (да хотя бы через TBitmap).

С непрозрачными изображениями все просто: меняем это значение через AlphaScanline.

Код


procedure SetTransparent(alpha:byte);
var png:TPNGImage;
    x,y:integer;
    d:integer;
    DstAlpha:pByteArray;
begin
  png:=TPNGImage.CreateBlank(COLOR_RGB,8,10,10);
  png.LoadFromFile('somefile.png');

  for y:=0 to png.Height-1 do begin
    DstAlpha:=png.AlphaScanline[y];
    for x:=0 to png.Width-1 do begin
      if DstAlpha[x]<>0 then begin
        d:=DstAlpha[x]-alpha;
        if d<=0 then DstAlpha[x]:=0
          else DstAlpha[x]:=DstAlpha[x]-d;
      end;
    end;
  end;
// Ну и прорисовка его куда-нибудь через Canvas.Draw(...);
  png.Free;
end;

А с изображениями, имеющими альфа-канал, возникают проблемы. К примеру:

Исходное изображение: user posted image

Оно же, с полупрозрачностью 250: user posted image

Оно же, с полупрозрачностью ~20: user posted image

Делал вышеприведенной функцией.

Как можно заметить, изображение состоит из 2х слоев, значение полупрозрачности у которых прямо противоположное (при 255 - медведы видны, а лучи - нет; при меньшем значении лучи прорисовываются, а медведы наоборот - исчезают).

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

RidDozZ

Дата 28.5.2010, 12:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 28.2.2009

Репутация: нет
Всего: нет

В общем, помогли уже на другом форуме. Вот верный вариант, если кому понадобится:

Код


...
for y:=0 to png.Height-1 do begin
    DstAlpha:=png.AlphaScanline[y];
    for x:=0 to png.Width-1 do
      DstAlpha[x]:=DstAlpha[x]*alpha div 256;
  end;
...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »