tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-27 07:44:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Improved fog colors

Browse Source
This commit is contained in:
JappaWakka 2022-01-07 12:29:11 +01:00
parent 1a1c8f209f
commit fccb4ef5b5
1 changed files with 21 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
P3D/World/World.vb
View File

@ -562,19 +562,19 @@ endsub:
Case World.Weathers.Clear, Weathers.Sunny Case World.Weathers.Clear, Weathers.Sunny
v = New Vector3(1) v = New Vector3(1)
Case World.Weathers.Rain, Weathers.Thunderstorm Case World.Weathers.Rain, Weathers.Thunderstorm
v = New Vector3(0.4, 0.4, 0.7) v = New Vector3(0.7)
Case World.Weathers.Snow Case World.Weathers.Snow
v = New Vector3(0.8) v = New Vector3(0.8)
Case World.Weathers.Underwater Case World.Weathers.Underwater
v = New Vector3(0.1, 0.3, 0.9) v = New Vector3(0.1, 0.3, 0.9)
Case World.Weathers.Fog Case World.Weathers.Fog
v = New Vector3(0.7, 0.7, 0.8) v = New Vector3(0.7)
Case World.Weathers.Sandstorm Case World.Weathers.Sandstorm
v = New Vector3(0.8, 0.5, 0.2) v = New Vector3(0.8, 0.5, 0.2)
Case Weathers.Ash Case World.Weathers.Ash
v = New Vector3(0.5, 0.5, 0.5) v = New Vector3(0.5)
Case Weathers.Blizzard Case World.Weathers.Blizzard
v = New Vector3(0.6, 0.6, 0.6) v = New Vector3(0.6)
End Select End Select
Dim colorV As Vector3 = defaultColor.ToVector3 * Screen.SkyDome.GetWeatherColorMultiplier(v) Dim colorV As Vector3 = defaultColor.ToVector3 * Screen.SkyDome.GetWeatherColorMultiplier(v)
@ -585,15 +585,22 @@ endsub:
Select Case Me.EnvironmentType Select Case Me.EnvironmentType
Case EnvironmentTypes.Outside Case EnvironmentTypes.Outside
Dim _fogColor As Color Dim _fogColor As Color
Dim v As Single = 1.0F
Dim nightFog As Integer = 64
Dim dayFog As Integer = 168
Select Case CurrentMapWeather
Case World.Weathers.Clear, Weathers.Sunny
v = 1.0F
Case World.Weathers.Rain, Weathers.Thunderstorm, World.Weathers.Fog
v = 0.7F
Case World.Weathers.Snow
v = 0.8F
End Select
Select Case Screen.Level.DayTime Select Case Screen.Level.DayTime
Case 1 Case 1, 3
_fogColor = New Color(168, 168, 168) _fogColor = New Color(CInt(v * dayFog), CInt(v * dayFog), CInt(v * dayFog))
Case 2 Case 2, 4
_fogColor = New Color(64, 64, 64) _fogColor = New Color(CInt(v * nightFog), CInt(v * nightFog), CInt(v * nightFog))
Case 3
_fogColor = New Color(168, 168, 168)
Case 4
_fogColor = New Color(64, 64, 64)
End Select End Select
Core.BackgroundColor = GetWeatherBackgroundColor(SkyDome.GetDaytimeColor(False)) Core.BackgroundColor = GetWeatherBackgroundColor(SkyDome.GetDaytimeColor(False))
Screen.Effect.FogColor = _fogColor.ToVector3() Screen.Effect.FogColor = _fogColor.ToVector3()