画像の合成(AND)のサンプルコード
画像に「合成(AND)」の処理をするサンプルです。ソースコードは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.
[合成(AND)の関数]
//----------------------------------------------------------------------------- //■関数 EffectBlend_AND //■用途 画像の合成(AND結合) //■引数 hBMP1,hBMP2 ...転送元のビットマップのハンドル //■戻り値 // 新しいビットマップのハンドル //※合成する画像は2枚とも同一サイズを使用する //----------------------------------------------------------------------------- function EffectBlend_AND(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 := Set255(SrcRow1[Col].rgbtRed AND SrcRow2[Col].rgbtRed); DestRow[Col].rgbtGreen := Set255(SrcRow1[Col].rgbtGreen AND SrcRow2[Col].rgbtGreen); DestRow[Col].rgbtBlue := Set255(SrcRow1[Col].rgbtBlue AND 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_AND(Image1.Picture.Bitmap.ReleaseHandle, Image2.Picture.Bitmap.ReleaseHandle ); end;
スポンサーリンク
関連記事
公開日:2015年02月24日
記事NO:00290