Public Sub InitVertices()
triangleStrip(0) = New CustomVertex.TransformedColored(-5, 0, 0, 1, Color.Blue.ToArgb())
triangleStrip(1) = New CustomVertex.TransformedColored(5, 0, 0, 1, Color.Blue.ToArgb())
triangleStrip(2) = New CustomVertex.TransformedColored(-5, 5, 0, 1, Color.Blue.ToArgb())
triangleStrip(3) = New CustomVertex.TransformedColored(5, 5, 0, 1, Color.Blue.ToArgb())
triangleStrip(4) = New CustomVertex.TransformedColored(-3, 9, 0, 1, Color.Blue.ToArgb())
triangleStrip(5) = New CustomVertex.TransformedColored(7, 9, 0, 1, Color.Blue.ToArgb())
End Sub
Public Sub RedrawGraphics()
device.RenderState.Lighting = False
device.Clear(ClearFlags.Target, Color.Black, 1.0, 0)
device.BeginScene()
device.VertexFormat = CustomVertex.PositionColored.Format
device.Transform.View = Matrix.LookAtLH(New Vector3(0, -5, 20), New Vector3(0, 0, 0), New Vector3(0, 0, 1))
device.Transform.Projection = Matrix.PerspectiveFovLH(CSng(Math.PI) / 4, 1, 1.0F, 20)
device.DrawUserPrimitives(PrimitiveType.TriangleStrip, 4, triangleStrip)
device.EndScene()
device.Present()
End Sub
