Private Const ZMIN As Single = -10
    Private Const ZMAX As Single = 10
    Private Const XMIN As Single = -10
    Private Const XMAX As Single = 10
    Private Const NUM_TRIANGLE_STRIPS As Integer = (ZMAX - ZMIN)
    Private Const NUM_TRIANGLES_PER_STRIP As Integer = 2 * (XMAX - XMIN)
    Private Const NUM_POINTS_PER_STRIP As Integer = NUM_TRIANGLES_PER_STRIP + 2
    Private Const NUM_POINTS As Integer = NUM_TRIANGLE_STRIPS * NUM_POINTS_PER_STRIP
    Private Vb As VertexBuffer = Nothing
    Private Tex As Texture
    Private Mat1 As Matrix
    Private Mat2 As Matrix
    Private S_Color_Min As Integer = Color.FromArgb(255, 10, 20).ToArgb() 'Color.FromArgb(10, 10, 20).ToArgb()
    Private S_Color_Mid As Integer = Color.FromArgb(10, 255, 20).ToArgb() 'Color.FromArgb(15, 15, 40).ToArgb()
    Private S_Color_Max As Integer = Color.FromArgb(10, 10, 255).ToArgb() 'Color.FromArgb(20, 20, 60).ToArgb()
    Private x, z As Integer
    Private Sub MakeTriangle(ByVal vertices() As CustomVertex.PositionNormalTextured, ByRef i As Integer, ByVal x0 As Single, ByVal y0 As Single, ByVal z0 As Single, ByVal x1 As Single, ByVal y1 As Single, ByVal z1 As Single, ByVal x2 As Single, ByVal y2 As Single, ByVal z2 As Single)

        vertices(i).X = x0
        vertices(i).Y = y0
        vertices(i).Z = z0
       
        i += 1

        vertices(i).X = x1
        vertices(i).Y = y1
        vertices(i).Z = z1
       
        i += 1

        vertices(i).X = x2
        vertices(i).Y = y2
        vertices(i).Z = z2
       
        i += 1
    End Sub


    Private Sub MakePoint(ByVal vertices() As CustomVertex.PositionNormalTextured, ByRef i As Integer, ByVal x0 As Single, ByVal y0 As Single, ByVal z0 As Single, ByVal tu As Single, ByVal tv As Single)

        vertices(i).X = x0
        vertices(i).Y = y0
        vertices(i).Z = z0
        vertices(i).Tu = tu
        vertices(i).Tv = tv

        i += 1
    End Sub
    Public Sub New(ByVal Device As Device)
        Tex = TextureLoader.FromFile(Device, MediaUtilities.FindFile("W.jpg"))
        Me.Device = Device
        Vb = New VertexBuffer(GetType(CustomVertex.PositionNormalTextured), NUM_POINTS, Device, 0, CustomVertex.PositionNormalTextured.Format, Pool.Default)

        
        Dim vertices As CustomVertex.PositionNormalTextured() = CType(Vb.Lock(0, 0), CustomVertex.PositionNormalTextured())
        Dim i As Integer = 0
        For z As Integer = ZMIN To ZMAX - 1
            For x As Integer = XMIN To XMAX
                MakePoint(vertices, i, x, F(x, z), z, x / NUM_POINTS, z / NUM_POINTS)
                MakePoint(vertices, i, x, F(x, z + 1), z + 1, (x + 1) / NUM_POINTS, (z + 1) / NUM_POINTS)
            Next x
        Next z

        Vb.Unlock()
        With Mat1
            .M11 = 1.0 : .M12 = 0.0 : .M13 = 0.0 : .M14 = 0.0
            .M21 = 0.0 : .M22 = 1.0 : .M23 = 0.0 : .M24 = 0.0
            .M31 = 0.0 : .M32 = 0.0 : .M33 = 1.0 : .M34 = 0.0
            .M41 = 0.0 : .M42 = 0.0 : .M43 = 0.0 : .M44 = 1.0
        End With
        Mat2 = Mat1
    End Sub
       Public Sub Render()

        'Me.Device.RenderState.ZBufferEnable = True
        Device.RenderState.CullMode = Cull.CounterClockwise
        Me.Device.RenderState.Lighting = False
        Device.Transform.World = Mat1

        Device.SetTexture(0, Tex)
        Device.SetStreamSource(0, Vb, 0)
        Device.VertexFormat = CustomVertex.PositionNormalTextured.Format
        Dim index As Integer = 0
        For i As Integer = 1 To NUM_TRIANGLE_STRIPS
            Device.DrawPrimitives(PrimitiveType.TriangleStrip, index, NUM_TRIANGLES_PER_STRIP)
            index += NUM_POINTS_PER_STRIP
        Next i

    End Sub