Function CreateSubdividedPlane(XDivs, ZDivs, UScale# = 1.0, VScale# = 1.0, Parent = 0)

    EN = LoadMesh("media\water32.3ds");CreateMesh(Parent)
    Surf = CreateSurface(EN)

    For x = 0 To XDivs - 1
        For z = 0 To ZDivs - 1
            XPos# = Float#(x) / Float#(XDivs - 1)
            ZPos# = Float#(z) / Float#(ZDivs - 1)
            V = AddVertex(Surf, XPos#, 0.0, ZPos#, XPos# * UScale#, ZPos# * VScale#)
            VertexNormal(Surf, V, 0.0, 1.0, 0.0)
            If x > 0 And z > 0
                v1 = ((x - 1) * ZDivs) + (z - 1)
                v2 = ((x - 1)* ZDivs) + z
                v3 = (x * ZDivs) + (z - 1)
                v4 = (x * ZDivs) + z
                AddTriangle(Surf, v1, v2, v4)
                AddTriangle(Surf, v1, v4, v3)
            EndIf
        Next
    Next
    PositionMesh(EN, -0.5, 0.0, -0.5)
    Return EN

End Function