711(2): 名前は開発中のものです。 [] 2006/01/03(火) 20:00:41 ID:yxS2cKCH(1) AAS
Delphi6 とunDelphi XでSTGをつくっています。

敵を倒したときに
レンズフレアっぽい爆発やパーティクルを散らしたり
したいんですが、どういう方法をとればいいでしょうか。

TDirectDrawSurfaceって
矩形描画関係のメソッドはいろいろあるんですが
(DrawAdd,DrawAlpha,FillRectAdd,FillRectAlphaなど）
楕円や線を描画するメソッドは用意されていないようです。

Canvasにはellipseやmoveto&linetoがありますが、
半透明合成や加算合成はできませんし。

何かよい方法がありましたら教えていただけるとうれしいです。

712(1): な [sage] 2006/01/03(火) 21:42:35 ID:E1OTiKsy(1) AAS
DelphiXのチュートリアルにも書いてありますが、サーフェイスの画素データに
直接アクセスして描画してみたらどうでしょう。
外してたらごめん。

procedureTForm1.Button1Click(Sender:TObject);
var
　ddsd:DDSURFACEDESC;

　function DDScanLine(y:Integer):Pointer;
　begin
　　{TBitmap.ScanLine と同じ働きをします}
　　Result :=Pointer(Integer(ddsd.lpSurface)+y*ddsd.lPitch);
　end;
var
　y:Integer;
begin
　ddsd.dwSize :=SizeOf(ddsd);
　ifDXDraw1.Surface.Lock(ddsd)then
　begin
　　{ddsd.dwWidth サーフェースの幅}
　　{ddsd.dwheigh サーフェースの高さ}
　　{ddsd.lpSurface ピクセルデータ(0,0)へのポインタ}
　　{ddsd.lPitch 下の行のスキャンラインへのオフセット}
　　{Abs(ddsd.lPitch)１ラインで使用しているバイト数}
　　try
　　　for y:=0 to ddsd.dwHeight-1 do
　　　　FillChar(DDScanLine(y)^,Abs(ddsd.lPitch),Y);
　　finally
　　　DXDraw1.Surface.UnLock;{これが必須}
　end;
end;