GG Fog Problems with Dark Clouds

Author

Message

DigitalFury

15

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 25th May 2012 00:06 Edited at: 25th May 2012 00:39

Link

I have a technique for having the fog cover the sky using a sphere and using that. I can't use a sphere because I can't see the clouds then so I have to come up with someway of having the fog in the sky and being able to see the clouds. I've also tried texturing the sphere with the clouds image then applying the shader but that didn't work either.

Here is the code for GG Fog: (It's as expected)

+ Code Snippet

load effect "GG Misty Smoky Fog V3.fx", 1, 0
set effect technique 1, "fogDiffuse"
set effect constant vector 1, "fogColour", 2

`fogMaxHeight# = 200.0
fogMaxHeight# = 1000.0
fogMinHeight# = 0.0
`fogScale# = 0.004
fogScale# = 0.0034
fogIntensity# = 5
noiseMix# = 0.5
seaScrollX# = 0.0
seaScrollY# = 0.0
fogBaseScrollX# = 0.02
fogBaseScrollY# = -0.005
fogTotalScrollX# = 0.0
fogTotalScrollY# = 0.0
seaBaseScrollX# = 0.001
seaBaseScrollY# = 0.0015

set effect constant float 1, "fogMaxHeight", fogMaxHeight#
set effect constant float 1, "fogMinHeight", fogMinHeight#
set effect constant float 1, "fogScale", fogScale#
set effect constant float 1, "fogIntensity", fogIntensity#
`set vector4 1, fogTotalScrollX# + camAngleY#/90.0, fogTotalScrollY# + camAngleX#/90.0, 0.0, 0.0
`set effect constant vector 1, "fogNoiseScroll", 1
set effect constant float 1, "noiseMix", noiseMix#  

load image "average fog.png", 3 ` average fog lookup texture
load image "magic clouds.png", 4 ` fog noise texture

Code for sphere:

+ Code Snippet

Sphere = NextObject()
Make Object Sphere Sphere, 10000
Set Object Effect Sphere, 1
Texture Object Sphere, 1, 3
Texture Object Sphere, 2, 4

I've tried using Ghost Object On, texturing it black and setting the transparency on, and a few other things and I can't seem to get it to work.

Does anyone have any ideas?

DigitalFury

Get Out Alive (Zombie WIP): My latest zombie game I am working on.

Back to top

Profile PM Email

Pincho Paxton

23

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 25th May 2012 00:40 Edited at: 25th May 2012 00:41

Link

Have you tried 50% alpha transparency using a PNG that is 50% transparent? Texture your sphere with that. Then turn transparency on mode 2, then fade sphere object to about 7.

Back to top

Profile PM Email Website

DigitalFury

15

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 25th May 2012 01:09

Link

@Pincho Paxton - Tried several variations and it is always black. I don't see any of the fog.

Here is some test code so we can tweak it just right. It is untested: (Attached is the rest of the files you need)

Global ImageIndex
Global ObjectIndex

Sync On : Sync Rate 30

DC Set Cloudy 0.7

rem set sky brightness to 1
DC Set Brightness 1.0

DC Set Cloud Height 5000

rem set wind to 270 degrees (heading west)
DC Set Wind 10, 270

DC Set Rain 10, 10

rem init with texture number 1, and number of keyframes per day
CloudImage = NextImage()
DC Init CloudImage, 10

Time# = 17.0

rem the update command creates the cloud texture
DC Update Time#

rem show texture 1 as the backdrop
Texture Backdrop CloudImage

load effect "GG Misty Smoky Fog V3.fx", 1, 0
set effect technique 1, "fogDiffuse"
set effect constant vector 1, "fogColour", 2

`fogMaxHeight# = 200.0
fogMaxHeight# = 1000.0
fogMinHeight# = 0.0
`fogScale# = 0.004
fogScale# = 0.0034
fogIntensity# = 5
noiseMix# = 0.5
seaScrollX# = 0.0
seaScrollY# = 0.0
fogBaseScrollX# = 0.02
fogBaseScrollY# = -0.005
fogTotalScrollX# = 0.0
fogTotalScrollY# = 0.0
seaBaseScrollX# = 0.001
seaBaseScrollY# = 0.0015

set effect constant float 1, "fogMaxHeight", fogMaxHeight#
set effect constant float 1, "fogMinHeight", fogMinHeight#
set effect constant float 1, "fogScale", fogScale#
set effect constant float 1, "fogIntensity", fogIntensity#
`set vector4 1, fogTotalScrollX# + camAngleY#/90.0, fogTotalScrollY# + camAngleX#/90.0, 0.0, 0.0
`set effect constant vector 1, "fogNoiseScroll", 1
set effect constant float 1, "noiseMix", noiseMix#

load image "average fog.png", 3 ` average fog lookup texture
load image "magic clouds.png", 4 ` fog noise texture

Black = NextImage()
Load Image "Black.png", Black

Sphere = NextObject()
Make Object Sphere Sphere, 1000
Set Object Effect Sphere, FogShader
Texture Object Sphere, Black
Set Object Transparency Sphere, 2
Fade Object Sphere, 7
`Texture Object Sphere, 0, CloudImage
Texture Object Sphere, 1, AverageFog
Texture Object Sphere, 2, MagicClouds
Set Object Cull Sphere, 0

Do
    DC Update 0.0
    Sync
Loop

Function NextImage()
    Inc ImageIndex, 1
EndFunction

Function NextObject()
    Inc ObjectIndex, 1
EndFunction

+ Code Snippet

 Global ImageIndex
Global ObjectIndex

Sync On : Sync Rate 30

DC Set Cloudy 0.7

rem set sky brightness to 1
DC Set Brightness 1.0

DC Set Cloud Height 5000

rem set wind to 270 degrees (heading west)
DC Set Wind 10, 270

DC Set Rain 10, 10

rem init with texture number 1, and number of keyframes per day
CloudImage = NextImage()
DC Init CloudImage, 10

Time# = 17.0

rem the update command creates the cloud texture
DC Update Time#

rem show texture 1 as the backdrop
Texture Backdrop CloudImage

load effect "GG Misty Smoky Fog V3.fx", 1, 0
set effect technique 1, "fogDiffuse"
set effect constant vector 1, "fogColour", 2

`fogMaxHeight# = 200.0
fogMaxHeight# = 1000.0
fogMinHeight# = 0.0
`fogScale# = 0.004
fogScale# = 0.0034
fogIntensity# = 5
noiseMix# = 0.5
seaScrollX# = 0.0
seaScrollY# = 0.0
fogBaseScrollX# = 0.02
fogBaseScrollY# = -0.005
fogTotalScrollX# = 0.0
fogTotalScrollY# = 0.0
seaBaseScrollX# = 0.001
seaBaseScrollY# = 0.0015

set effect constant float 1, "fogMaxHeight", fogMaxHeight#
set effect constant float 1, "fogMinHeight", fogMinHeight#
set effect constant float 1, "fogScale", fogScale#
set effect constant float 1, "fogIntensity", fogIntensity#
`set vector4 1, fogTotalScrollX# + camAngleY#/90.0, fogTotalScrollY# + camAngleX#/90.0, 0.0, 0.0
`set effect constant vector 1, "fogNoiseScroll", 1
set effect constant float 1, "noiseMix", noiseMix#  

load image "average fog.png", 3 ` average fog lookup texture
load image "magic clouds.png", 4 ` fog noise texture

Black = NextImage()
Load Image "Black.png", Black

Sphere = NextObject()
Make Object Sphere Sphere, 1000
Set Object Effect Sphere, FogShader
Texture Object Sphere, Black
Set Object Transparency Sphere, 2
Fade Object Sphere, 7
`Texture Object Sphere, 0, CloudImage
Texture Object Sphere, 1, AverageFog
Texture Object Sphere, 2, MagicClouds
Set Object Cull Sphere, 0

Do
    DC Update 0.0
    Sync
Loop

Function NextImage()
    Inc ImageIndex, 1
EndFunction

Function NextObject()
    Inc ObjectIndex, 1
EndFunction

DigitalFury

Get Out Alive (Zombie WIP): My latest zombie game I am working on.

Back to top

Profile PM Email

Pincho Paxton

23

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 25th May 2012 01:51 Edited at: 25th May 2012 01:53

Link

I meant, don't use the GG fog, use the DBPro fog, then to get the swirls use a few transparent sphere. Although, I have tried it, and it looks very nice, but some objects are clipped by the sphere when they pass through them.

Back to top

Profile PM Email Website

DigitalFury

15

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 25th May 2012 01:58

Link

@Pincho Paxton - GG's Fog looks really good so I want to try and use it.

Why would I use DBP fog with spheres?

DigitalFury

Get Out Alive (Zombie WIP): My latest zombie game I am working on.

Back to top

Profile PM Email

Pincho Paxton

23

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 25th May 2012 02:01 Edited at: 25th May 2012 02:02

Link

Because GG fog doesn't scroll, and sphere do, unless GG fixed the scrolling issue.

Back to top

Profile PM Email Website

DigitalFury

15

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 25th May 2012 02:08

Link

@Pincho Paxton - I can use cumbers fog. It doesn't have scrolling. (I think, but it doesn't matter)

Here is the code for the fog:

Global fxVec : fxVec = NextVector()
NULL = Make Vector4(fxVec)

Load Effect "fogShader.fx", 1, 0

fxUpdAmbient(1, 0.5, 0.5, 0.5)
fxUpdDiffuse(1, 0.5, 0.5, 0.5)
fxUpdSpecular(1, 0.3, 0.3, 0.3)
fxUpdShininess(1, 80)
fxUpdFogNear(1, 1)
fxUpdFogFar(1, 500)
fxUpdAltitudeScale(1, 50)
fxUpdThinning(1, 50)
fxUpdFogColor(1, 0.5, 0.5, 0.5)

Function fxUpdLightPos(fx As Integer, x As Float, y As Float, z As Float)
    Set Vector4 fxVec, x, y, z, 0.0
    Set Effect Constant Vector fx, "LightPosition", fxVec
EndFunction

Function fxUpdAmbient(fx As Integer, x As Float, y As Float, z As Float)
    Set Vector4 fxVec, x, y, z, 1.0
    Set Effect Constant Vector fx, "ambient", fxVec
EndFunction

Function fxUpdDiffuse(fx As Integer, x As Float, y As Float, z As Float)
    Set Vector4 fxVec, x, y, z, 1.0
    Set Effect Constant Vector fx, "diffuse", fxVec
EndFunction

Function fxUpdSpecular(fx As Integer, x As Float, y As Float, z As Float)
    Set Vector4 fxVec, x, y, z, 1.0
    Set Effect Constant Vector fx, "specularColor", fxVec
EndFunction

Function fxUpdShininess(fx As Integer, r As Float)
    Set Effect Constant Float fx, "shinines", r
EndFunction

Function fxUpdFogNear(fx As Integer, r As Float)
    Set Effect Constant Float fx, "fogNear", r
EndFunction

Function fxUpdFogFar(fx As Integer, r As Float)
    Set Effect Constant Float fx, "fogFar", r
EndFunction

Function fxUpdAltitudeScale(fx As Integer, r As Float)
    Set Effect Constant Float fx, "fogAltitudeScale", r
EndFunction

Function fxUpdThinning(fx As Integer, r As Float)
    Set Effect Constant Float fx, "fogThinning", r
EndFunction

Function fxUpdFogColor(fx As Integer, x As Float, y As Float, z As Float)
    Set Vector4 fxVec, x, y, z, 1.0
    Set Effect Constant Vector fx, "fogColor", fxVec
EndFunction

+ Code Snippet

Global fxVec : fxVec = NextVector()
NULL = Make Vector4(fxVec)

Load Effect "fogShader.fx", 1, 0

fxUpdAmbient(1, 0.5, 0.5, 0.5)
fxUpdDiffuse(1, 0.5, 0.5, 0.5)
fxUpdSpecular(1, 0.3, 0.3, 0.3)
fxUpdShininess(1, 80)
fxUpdFogNear(1, 1)
fxUpdFogFar(1, 500)
fxUpdAltitudeScale(1, 50)
fxUpdThinning(1, 50)
fxUpdFogColor(1, 0.5, 0.5, 0.5)

Function fxUpdLightPos(fx As Integer, x As Float, y As Float, z As Float)
    Set Vector4 fxVec, x, y, z, 0.0
    Set Effect Constant Vector fx, "LightPosition", fxVec
EndFunction

Function fxUpdAmbient(fx As Integer, x As Float, y As Float, z As Float)
    Set Vector4 fxVec, x, y, z, 1.0
    Set Effect Constant Vector fx, "ambient", fxVec
EndFunction

Function fxUpdDiffuse(fx As Integer, x As Float, y As Float, z As Float)
    Set Vector4 fxVec, x, y, z, 1.0
    Set Effect Constant Vector fx, "diffuse", fxVec
EndFunction

Function fxUpdSpecular(fx As Integer, x As Float, y As Float, z As Float)
    Set Vector4 fxVec, x, y, z, 1.0
    Set Effect Constant Vector fx, "specularColor", fxVec
EndFunction

Function fxUpdShininess(fx As Integer, r As Float)
    Set Effect Constant Float fx, "shinines", r
EndFunction

Function fxUpdFogNear(fx As Integer, r As Float)
    Set Effect Constant Float fx, "fogNear", r
EndFunction

Function fxUpdFogFar(fx As Integer, r As Float)
    Set Effect Constant Float fx, "fogFar", r
EndFunction

Function fxUpdAltitudeScale(fx As Integer, r As Float)
    Set Effect Constant Float fx, "fogAltitudeScale", r
EndFunction

Function fxUpdThinning(fx As Integer, r As Float)
    Set Effect Constant Float fx, "fogThinning", r
EndFunction

Function fxUpdFogColor(fx As Integer, x As Float, y As Float, z As Float)
    Set Vector4 fxVec, x, y, z, 1.0
    Set Effect Constant Vector fx, "fogColor", fxVec
EndFunction

Attached is the fog shader.

Could that work instead?

DigitalFury

Get Out Alive (Zombie WIP): My latest zombie game I am working on.

Back to top

Profile PM Email

Pincho Paxton

23

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 25th May 2012 02:18

Link

Have you tried scaling your sphere with the clouds on -100,-100,-100?

Back to top

Profile PM Email Website

DigitalFury

15

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 25th May 2012 02:26 Edited at: 25th May 2012 03:22

Link

@Pincho Paxton - Tried inverting it and it didn't make much of a difference.

Any more suggestions or could you give me an example using DBP fog?

DigitalFury

Get Out Alive (Zombie WIP): My latest zombie game I am working on.

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / GG Fog Problems with Dark Clouds