Making OffsetMap bug look better

This commit is contained in:
Aragas 2016-12-08 19:18:54 +03:00
parent 8c85cc8c37
commit 9c17d8e5a4

View File

@ -887,6 +887,9 @@ Public Class Level
''' Renders offset map entities. ''' Renders offset map entities.
''' </summary> ''' </summary>
Private Sub RenderOffsetMap() Private Sub RenderOffsetMap()
Dim state = GraphicsDevice.DepthStencilState
GraphicsDevice.DepthStencilState = DepthStencilState.DepthRead
'Render floors: 'Render floors:
For i = 0 To Me.OffsetmapFloors.Count - 1 For i = 0 To Me.OffsetmapFloors.Count - 1
If i <= Me.OffsetmapFloors.Count - 1 Then If i <= Me.OffsetmapFloors.Count - 1 Then
@ -906,6 +909,8 @@ Public Class Level
End If End If
End If End If
Next Next
GraphicsDevice.DepthStencilState = state
End Sub End Sub
''' <summary> ''' <summary>