ScanLineで色（RGB)を取得してその色を加工塗布 (ID:40499)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 （D6パーソナル） 先日画像回転の高速化でScanLineを教えていただき高速化に成功しました。 どうせなら回転時にピクセル毎の色を加工して一度で色の加工処理をして一層の高速化をしたいと思います。現在のソースの要点は下記のようにしていますが pDests[iy][ix] := pSources[my][mx]; のところで色を取得して、例えば(一定以上の明るさであれば星と判定みたいに選別するとして） if R+G+B>50 then begin R1:=255; G1:=255; B1:=255; //適当なRGBを指定したい end; このR1,G1,B1を回転後のピクセルに塗る、という処理をしたいのですがScanLineは初めてでやりかたがわかりません。よろしくお願いします。 var Dest: TBitmap; pSources, pDests: array of PRGBArray; soWidth, soHeight, deWidth, deHeight: Integer; (その他は省略） Begin （幅、高、中心座標などの計算と設定） //** 回転後画像の設定 Dest := TBitmap.Create; deWidth := sowidth; deHeight := soheight; try Dest.PixelFormat := pf24bit; dest.Width:=sowidth; dest.Height:=soheight; with Dest.Canvas do //白く塗る begin Brush.Color := clWhite; FillRect(Rect(0, 0, soWidth, soHeight)); end; //** ScanLineキャッシュの作成 //== 元画像 SetLength(pSources, soHeight); for I := 0 to soHeight - 1 do pSources[I] := Source.ScanLine[I]; //== 回転後の画像 SetLength(pDests, deHeight); for I := 0 to deHeight - 1 do pDests[I] := Dest.ScanLine[I]; //## 画像の回転 for iy := 0 to soHeight - 1 do begin dy:=iy-cy; //cy=高さ/２ for ix := 0 to soWidth - 1 do begin dx:=ix-cx; //cx=幅/２ mx := Trunc(CosRad * dx - SinRad * dy + 0.5+cx); my := Trunc(SinRad * dx + CosRad * dy + 0.5+cy); if (mx<sowidth) and (mx>0) and (my<soheight) and (my>0) then begin pDests[iy][ix] := pSources[my][mx]; end; end; //ix end; //iy finally Source.Free; end;