画像の合成(明るい画素優先)のサンプルコード
画像に「合成(明るい画素優先)」の処理をするサンプルです。ソースコードはDelphi5で作成しましたがその他の言語でも流用できるかと思います。
画像処理の結果
合成をする元の2枚のイメージです。


画像の合成結果です。(2枚のイメージを1枚にする)

ソースコード
[EffectBass.pas - 汎用モジュール]
//Bass Unit unit EffectBass; interface uses Windows,SysUtils, Classes, Graphics; type //24bitアクセス用ポインタ pRGBarray = ^TRGBarray; TRGBarray = array[0..0] of TRGBTriple; //None リテラル type //24bitアクセス用ダブルポインタ PPBits = ^TPBits; TPBits = array[0..0] of pRGBarray; //None リテラル //汎用プロシージャ procedure Set24bit(Src,Dest :TBitmap); function Set255(Value : integer) : BYTE; implementation ///////// procedure Set24bit(Src,Dest :Tbitmap); begin Src.PixelFormat :=pf24bit; Dest.PixelFormat:=pf24bit; Dest.Width:=Src.Width; Dest.Height:=Src.Height; end; ///////// function Set255(Value:Integer):Byte; begin if Value>=255 then Result:=255 else if Value<=0 then Result:=0 else Result:=Value; end; end.
[合成(明るい画素優先)の関数]
//----------------------------------------------------------------------------- //■関数 EffectBlend_Bright //■用途 画像の合成(明るい画素優先) //■引数 hBMP1,hBMP2 ...転送元のビットマップのハンドル //■戻り値 // 新しいビットマップのハンドル //※合成する画像は2枚とも同一サイズを使用する //----------------------------------------------------------------------------- function EffectBlend_Bright(hBMP1,hBMP2:HBitmap):HBitmap; var SrcBitmap1,SrcBitmap2,DestBitmap : TBitmap; Row, Col : Integer; SrcRow1,SrcRow2,DestRow : pRGBArray; begin SrcBitmap1 := TBitmap.Create; SrcBitmap2 := TBitmap.Create; DestBitmap := TBitmap.Create; SrcBitmap1.Handle := hBMP1; SrcBitmap2.Handle := hBMP2; Set24bit(SrcBitmap1,DestBitmap); Set24bit(SrcBitmap1,SrcBitmap2); try for Row := 0 to SrcBitmap1.Height - 1 do begin SrcRow1 := SrcBitmap1.Scanline[Row]; SrcRow2 := SrcBitmap2.Scanline[Row]; DestRow := DestBitmap.Scanline[Row]; for Col := 0 to SrcBitmap1.Width - 1 do begin DestRow[Col].rgbtRed := Max(SrcRow1[Col].rgbtRed,SrcRow2[Col].rgbtRed); DestRow[Col].rgbtGreen := Max(SrcRow1[Col].rgbtGreen,SrcRow2[Col].rgbtGreen); DestRow[Col].rgbtBlue := Max(SrcRow1[Col].rgbtBlue,SrcRow2[Col].rgbtBlue); end; end; Result:=DestBitmap.ReleaseHandle; except Result:=SrcBitmap1.ReleaseHandle; end; SrcBitmap1.free; SrcBitmap2.free; DestBitmap.free; end;
[関数の呼び出し]
procedure TForm1.Button1Click(Sender: TObject); begin Image1.Picture.Bitmap.Handle := EffectBlend_Bright(Image1.Picture.Bitmap.ReleaseHandle, Image2.Picture.Bitmap.ReleaseHandle ); end;
スポンサーリンク
関連記事
前の記事: | 画像の合成(減算)のサンプルコード |
次の記事: | 画像の合成(暗い画素優先)のサンプルコード |
公開日:2015年02月24日
記事NO:00286
この記事を書いた人
![]() | 💻 ITスキル・経験 サーバー構築からWebアプリケーション開発。IoTをはじめとする電子工作、ロボット、人工知能やスマホ/OSアプリまで分野問わず経験。 画像処理/音声処理/アニメーション、3Dゲーム、会計ソフト、PDF作成/編集、逆アセンブラ、EXE/DLLファイルの書き換えなどのアプリを公開。詳しくは自己紹介へ |
プチモンテ代表、アーティスト名:プチモンテ | |
🎵 音楽制作 BGMは楽器(音源)さえあれば、何でも制作可能。歌モノは主にロック、バラード、ポップスを制作。歌詞は叙情詩、叙情的な楽曲が多い。楽曲制作は2023年12月中旬 ~ |
オリジナル曲を始めました✨
YouTubeで各楽曲を公開しています🌈
https://www.youtube.com/@petitmonte