ab.com コミュニティ

どうも、こんばんは。
ABDX（4.24）で3Dプログラムを作っているのですが、フォグ（遠くに行くほど霧がかったようになる）がうまくいかず、困っています。

Dim StartR=300 As Single
Dim EndR=1000 As Single
'フォグの設定
dx_lpD3DDEV -> SetRenderState(D3DRS_FOGENABLE,TRUE)
dx_lpD3DDEV -> SetRenderState(D3DRS_FOGCOLOR,D3DCOLOR_ARGB(0,255,255,255))
dx_lpD3DDEV -> SetRenderState(D3DRS_FOGSTART,StartR As Dword)
dx_lpD3DDEV -> SetRenderState(D3DRS_FOGEND,EndR As Dword)
dx_lpD3DDEV -> SetRenderState(D3DRS_FOGVERTEXMODE,D3DFOG_LINEAR)

初期化部分に上記のような記述をしているのですが、実際実行させると、2Dスプライト及びメッシュが全て、フォグに設定した色に染まってしまいます。
グラボ依存の機能のようなので、頂点フォグ、ピクセルフォグ、また指数フォグも試して見たのですが、どれもほぼ同じ状況になってしまいます。
どなたか知識をお貸しください。

自分はABでDirectXを使っていないのでよくはわかりませんが、
HSPでDirectXを使用しているのでそこの知識からちこっと

グラフィックボードのバージョンが古いとフォグは単なる邪魔ものになってしまいます。(半透明ではなく「完全な不透明」)
多分。

ちなみに、
半透明のものにはフォグはかかりません。はい。

返信ありがとうございます。
人が作ったゲーム（DirectX9）などをプレイする限りフォグ効果は行われているようなので、恐らく自分のPCでは一応使えると思います。（根拠は無いけど（ぁ

それと、一つ気になったのですが、フォグというものは半透明とかではなく、距離に応じてあらかじめ設定しておいた色に、その物体の色を近づけていくものではないのでしょうか？

あれから、いろいろ試行錯誤してみてるのですが、状況は変わらず、まったくの手詰まりですorz

遠くのものをいつまでも表示しておくのはもったいないので、それを一定の距離から描画しないようにする前の誤魔化しに使おうと思っているのですが。。。

> それと、一つ気になったのですが、フォグというものは半透明とかではなく、距離に応じてあらかじめ設定しておいた色に、その物体の色を近づけていくものではないのでしょうか？
そうです。だからかなり処理が重いのかも(爆

> あれから、いろいろ試行錯誤してみてるのですが、状況は変わらず、まったくの手詰まりですorz
自分がお役に立てなくてすいません。

ああ、もしかしたら私の文章の書き方がまずかったかもしれません。
「2Dスプライト及びメッシュが全て、フォグに設定した色に染まってしまう」というのは、距離に関係なく映っているもの全てが、設定した色に塗りつぶされてしまうということなんです。

最初にかいたソースだとフォグ色が[0,255,255,255]（アルファ値は無視される）なので、映っているものが距離に関係なく全て真っ白になってしまっています。

> どうも、こんばんは。
> ABDX（4.24）で3Dプログラムを作っているのですが、フォグ（遠くに行くほど霧がかったようになる）がうまくいかず、困っています。
>
>
コード: 全て選択
Dim StartR=300 As Single
> Dim EndR=1000 As Single
> 'フォグの設定
> dx_lpD3DDEV -> SetRenderState(D3DRS_FOGENABLE,TRUE)
> dx_lpD3DDEV -> SetRenderState(D3DRS_FOGCOLOR,D3DCOLOR_ARGB(0,255,255,255))
> dx_lpD3DDEV -> SetRenderState(D3DRS_FOGSTART,StartR As Dword)
> dx_lpD3DDEV -> SetRenderState(D3DRS_FOGEND,EndR As Dword)
> dx_lpD3DDEV -> SetRenderState(D3DRS_FOGVERTEXMODE,D3DFOG_LINEAR)
>
> 初期化部分に上記のような記述をしているのですが、実際実行させると、2Dスプライト及びメッシュが全て、フォグに設定した色に染まってしまいます。
> グラボ依存の機能のようなので、頂点フォグ、ピクセルフォグ、また指数フォグも試して見たのですが、どれもほぼ同じ状況になってしまいます。
> どなたか知識をお貸しください。

コード: 全て選択

dx_lpD3DDEV -> SetRenderState(D3DRS_FOGSTART,VarPtr(StartR))
dx_lpD3DDEV -> SetRenderState(D3DRS_FOGEND,VarPtr(EndR) )

としてみてはどうですか？
試してませんけど。。。

NoWestさん返信ありがとうございます。試してみましたが、やはり距離とは関係なく真っ白になってしまいます。
SetRenderStateメソッドの第二パラメータはDWord型でしか受け取ってくれないらしく、浮動小数点のアドレスをDＷｏｒｄポインタにキャストしてやる必要があるそうなのですが、どうもそこでうまく行っていない気がします。

英語版のＤｉｒｅｃｔＸヘルプしか持っていないのであってるかどうかわかりませんが、
「頂点フォグはＤｉｒｅｃｔ３Ｄのライティングおよびトランスフォームエンジンによって計算される。」と書かれています。
ちゃんとライティングされているかどうか、メッシュのＦＶＦにD3DFVF_NORMALが含まれているかどうか調べてみてはどうでしょうか？
ピクセルフォグというものもあるみたいですよ。

すみません。ピクセルフォグはもう試されたんですね。

小千谷太郎さんありがとうございます。
調べてみたんですが、ライティングはちゃんとされていますし、メッシュ及びデバイスのFVFにD3DFVF_NORMALフラグは設定されていました。

しかし、相変わらず状況は変わらず手詰まり状態ですorz

> NoWestさん返信ありがとうございます。試してみましたが、やはり距離とは関係なく真っ白になってしまいます。
> SetRenderStateメソッドの第二パラメータはDWord型でしか受け取ってくれないらしく、浮動小数点のアドレスをDＷｏｒｄポインタにキャストしてやる必要があるそうなのですが、どうもそこでうまく行っていない気がします。

先ほどネットを流離いつつ、フォグを調べてきました。

どうやら単純にキャストするだけではうまくいかないみたいですね。

C言語でいうところの*((DOWRD*)&StartR)は実際には
Single->*Single>>*DWord->DWord
ここで>>はキャスト、->はポインタ・アドレス操作です。

無理にABに置き換えようとすれば、
(VarPtr(StartR) As *DWord)[0]
ですが、こいつは現在のABではできません。

いろいろ思案しましたが、スマートな方法が思いつかないので
下の関数を使ってみてください。

コード: 全て選択

Function SingleToDWord(Data As Single) As DWord
	memcpy(VarPtr(SingleToDWord),VarPtr(Data),SizeOf(DWord))
End Function

コード: 全て選択

dx_lpD3DDEV -> SetRenderState(D3DRS_FOGSTART,SingleToDWord(StartR))
dx_lpD3DDEV -> SetRenderState(D3DRS_FOGEND,SingleToDWord(EndR) )

> (VarPtr(StartR) As *DWord)[0]
GetDWord(VarPtr(StartR) As *DWord)でどうでしょう？

＃DirectXはわからないのでこういうことだけ

> > (VarPtr(StartR) As *DWord)[0]
> GetDWord(VarPtr(StartR) As *DWord)でどうでしょう？
>
> ＃DirectXはわからないのでこういうことだけ

おぉ！

GetDWordってなものも在りましたね。すっかり忘れていました。（笑

おお！その方法で見事できました！！
皆さん本当にありがとうございましたm(_ _)m

ab.com コミュニティ

フォグ

フォグ

Re: フォグ

Re: フォグ