グレイスケールカラーのサンプルコード(画像フィルター)
画像をグレイスケールカラーに変換するサンプルです。ソースコードはDelphi5で作成しましたがその他の言語でも流用できるかと思います。
画像処理の結果
グレイスケールカラーの処理を行うと下図のようになります。


ソースコード
[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.
[グレイスケールカラーの関数]
//------------------------------------------------------------------------------ // ■関数名 EffectGrayScaleColor // ■用途 グレイスケールカラー // ■引数 // hBMP ...処理対象ビットマップのハンドル // ■戻り値 // ビットマップのハンドル // ----------------------------------------------------------------------------- function EffectGrayScaleColor(hBMP :HBitmap):HBitmap; var Row,Col : Integer; SrcRow,DestRow : pRGBArray; RGBColor : BYTE; SrcBitmap,DestBitmap : TBitmap; begin SrcBitmap :=TBitmap.Create; DestBitmap :=TBitmap.Create; SrcBitmap.handle :=hBMP; Set24bit(SrcBitmap,DestBitmap); try for Row:=0 to SrcBitmap.Height-1 do begin SrcRow:=SrcBitmap.ScanLine[Row]; DestRow:=DestBitmap.ScanLine[Row]; for Col:=0 to SrcBitmap.Width-1 do begin //NTSC系加重平均法を用いてグレースケール化 RGBColor:=Set255( (Round(SrcRow[Col].rgbtRed *0.289+ SrcRow[Col].rgbtGreen *0.586+ SrcRow[Col].rgbtBlue *0.114 ))); //単純グレースケール化 //RGBColor:=Set255( // (SrcRow[Col].rgbtRed + // SrcRow[Col].rgbtGreen + // SrcRow[Col].rgbtBlue ) div 3); DestRow[Col].rgbtBlue :=RGBColor; DestRow[Col].rgbtGreen:=RGBColor; DestRow[Col].rgbtRed :=RGBColor; end; end; Result :=DestBitmap.ReleaseHandle; except Result :=SrcBitmap.ReleaseHandle; end; SrcBitmap.Free ; DestBitmap.Free; end;
[関数の呼び出し]
procedure TForm1.Button1Click(Sender: TObject); begin Image1.Picture.bitmap.Handle:= 関数名(Image1.Picture.Bitmap.ReleaseHandle); end;
スポンサーリンク
関連記事
公開日:2015年02月18日 最終更新日:2015年02月19日
記事NO:00223