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

Fixed backdrops not rendering and being stretched

Browse Source
This commit is contained in:
JappaWakka 2023-04-04 11:32:11 +02:00
parent b12ae2026d
commit 54215c80ea
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
P3D/Overworld/BackdropRenderer.vb
View File

@ -132,21 +132,21 @@
End If End If
Case BackdropTypes.Grass Case BackdropTypes.Grass
If Me._setTexture = False Then If Me._setTexture = False Then
Dim GrassSize As Integer = CInt(TextureManager.GetTexture("Backdrops\Grass").Height) Dim GrassSize As Size = New Size(CInt(TextureManager.GetTexture("Textures\Backdrops\Grass").Width / 4), CInt(TextureManager.GetTexture("Textures\Backdrops\Grass").Height))
Dim x As Integer = 0 Dim x As Integer = 0
Select Case World.CurrentSeason Select Case World.CurrentSeason
Case World.Seasons.Winter Case World.Seasons.Winter
x = 0 x = 0
Case World.Seasons.Spring Case World.Seasons.Spring
x = GrassSize x = GrassSize.Width
Case World.Seasons.Summer Case World.Seasons.Summer
x = GrassSize * 2 x = GrassSize.Width * 2
Case World.Seasons.Fall Case World.Seasons.Fall
x = GrassSize * 3 x = GrassSize.Width * 3
End Select End Select
_backdropTexture = TextureManager.GetTexture("Backdrops\Grass", New Rectangle(x, 0, GrassSize, GrassSize)) _backdropTexture = TextureManager.GetTexture("Backdrops\Grass", New Rectangle(x, 0, GrassSize.Width, GrassSize.Height))
Me._setTexture = True Me._setTexture = True
End If End If
End Select End Select
@ -164,7 +164,7 @@
_shader.Parameters("View").SetValue(Screen.Camera.View) _shader.Parameters("View").SetValue(Screen.Camera.View)
_shader.Parameters("Projection").SetValue(Screen.Camera.Projection) _shader.Parameters("Projection").SetValue(Screen.Camera.Projection)
_shader.Parameters("DiffuseColor").SetValue(GetDiffuseColor()) _shader.Parameters("DiffuseColor").SetValue(GetDiffuseColor())
_shader.Parameters("TexStretch").SetValue(New Vector2(Me._height, Me._width)) _shader.Parameters("TexStretch").SetValue(New Vector2(Me._width, Me._height))
_shader.Parameters("color").SetValue(_backdropTexture) _shader.Parameters("color").SetValue(_backdropTexture)
For Each pass As EffectPass In _shader.CurrentTechnique.Passes For Each pass As EffectPass In _shader.CurrentTechnique.Passes