Added WallModel (ModelID=20) which is a flat vertical surface on an offset (like a wall)

P3D/P3D.vbproj

@@ -30775,6 +30775,7 @@
     <Compile Include="Resources\FontManager.vb" />
     <Compile Include="Resources\GameModeManager.vb" />
     <Compile Include="Resources\ModelManager.vb" />
+    <Compile Include="Resources\Models\2D\WallModel.vb" />
     <Compile Include="Resources\Models\2D\BillModel.vb" />
     <Compile Include="Resources\Models\2D\CrossModel.vb" />
     <Compile Include="Resources\Models\2D\DoubleFloorModel.vb" />

P3D/Resources/Models/2D/WallModel.vb

@@ -0,0 +1,20 @@
+Public Class WallModel
+
+    Inherits BaseModel
+
+    Public Sub New()
+        Me.ID = 20
+
+        Dim vertexData = New VertexPositionNormalTexture() {
+            New VertexPositionNormalTexture(New Vector3(-0.5, -0.5, 0.5), Vector3.Backward, New Vector2(0, 1)),
+            New VertexPositionNormalTexture(New Vector3(-0.5, 0.5, 0.5), Vector3.Backward, New Vector2(0, 0)),
+            New VertexPositionNormalTexture(New Vector3(0.5, 0.5, 0.5), Vector3.Backward, New Vector2(1, 0)),
+            New VertexPositionNormalTexture(New Vector3(0.5, 0.5, 0.5), Vector3.Backward, New Vector2(1, 0)),
+            New VertexPositionNormalTexture(New Vector3(0.5, -0.5, 0.5), Vector3.Backward, New Vector2(1, 1)),
+            New VertexPositionNormalTexture(New Vector3(-0.5, -0.5, 0.5), Vector3.Backward, New Vector2(0, 1))
+        }
+
+        Setup(vertexData)
+    End Sub
+
+End Class

P3D/Resources/Models/BaseModel.vb

@@ -100,6 +100,7 @@
     Public Shared DiagonalWallModel As DiagonalWallModel = New DiagonalWallModel()
     Public Shared HalfDiagonalWallModel As HalfDiagonalWallModel = New HalfDiagonalWallModel()
     Public Shared OutsideStepModel As OutsideStepModel = New OutsideStepModel()
+    Public Shared WallModel As WallModel = New WallModel()
 
     Public Shared Function getModelbyID(ByVal ID As Integer) As BaseModel
         Select Case ID
@@ -143,6 +144,8 @@
                 Return HalfDiagonalWallModel
             Case 19
                 Return OutsideStepModel
+            Case 20
+                Return WallModel
             Case Else
                 Return BlockModel
         End Select