44 lines
1.0 KiB
VB.net
44 lines
1.0 KiB
VB.net
Imports GameDevCommon.Rendering
|
|
Imports GameDevCommon.Rendering.Composers
|
|
Imports GameDevCommon.Rendering.Texture
|
|
|
|
Namespace Screens.MainMenu.Scene
|
|
|
|
Public Class Ground
|
|
|
|
Inherits MainMenuEntity
|
|
|
|
Public Sub New()
|
|
MyBase.New(New Vector3(0, -13, 0))
|
|
End Sub
|
|
|
|
Public Overrides Sub LoadContent()
|
|
Texture = TextureManager.LoadDirect("GUI\MainMenu\ground.png")
|
|
|
|
MyBase.LoadContent()
|
|
End Sub
|
|
|
|
Public Overrides Sub Update()
|
|
Position.X += 0.2F
|
|
If Position.X >= 32.0F Then
|
|
Position.X = 0F
|
|
End If
|
|
|
|
Position.Y = -50
|
|
|
|
CreateWorld()
|
|
MyBase.Update()
|
|
End Sub
|
|
|
|
Protected Overrides Sub CreateGeometry()
|
|
|
|
Dim vertices = RectangleComposer.Create(320, 96, New TextureRectangle(0, 0, 10, 1))
|
|
VertexTransformer.Rotate(vertices, New Vector3(MathHelper.PiOver2, 0, 0))
|
|
Geometry.AddVertices(vertices)
|
|
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
End Namespace
|