Смешать два изображения

Delphi , Графика и Игры , Изображения

Автор: Вадим Исаенко
WEB-сайт: http://v-isa.narod.ru

Модуль MyGraph.pas включает в себя только одну процедуру, позволяющую смешать 2 изображения. Такая функция может быть полезна для получения различных эффектов, а также для нанесения на изображение "водяных знаков".

unit MyGraph;

interface

uses Graphics;

procedure MixBMP(BM1, BM2: TBitMap; var BM: TBitMap);

implementation

procedure MixBMP(BM1, BM2: TBitMap; var BM: TBitMap);
var
  I, J: Integer;
  MinW, MinH: Integer;
begin
  BM := TBitMap.Create;
  if BM1.Width < BM2.Width then
    MinW := BM1.Width
  else
    MinW := BM2.Width;
  if BM1.Height < BM2.Height then
    MinH := BM1.Height
  else
    MinH := BM2.Height;
  BM.Width := MinW;
  BM.Height := MinH;
  for I := 0 to MinW do
    for J := 0 to MinH do
      if (Odd(I) and Odd(J)) or ((not (Odd(I))) and (not (Odd(J)))) then
        BM.Canvas.Pixels[I, J] := BM1.Canvas.Pixels[I, J]
      else
        BM.Canvas.Pixels[I, J] := BM2.Canvas.Pixels[I, J];
end;

begin
end.

В статье описывается процедура MyGraph.pas для смешивания двух битмап-изображений с помощью алгоритма смешивания пикселей на основе свойств их четности.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Изображения ::