CreateTree() Problems

Blitz3D Forums/Blitz3D Programming/CreateTree() Problems

I'm trying to make a simple tree function that will make a tree shape like and X. Here is the code. I don't think it works.
Function CreateTree(file$,width#,Height)

tree = CreateMesh()

surf1 = CreateSurface(tree)
surf2 = CreateSurface(tree)

v0 = AddVertex(surf1,-1.0,-1.0,0)
v1 = AddVertex(surf1,1.0,-1.0,0)
v2 = AddVertex(surf1,1.0,1.0,0)
v3 = AddVertex(surf1,-1.0,1.0,0)

tri0 = AddTriangle(surf1,v0,v1,v2)
tri1 = AddTriangle(surf1,v0,v2,v3)

v4 = AddVertex(surf2,-1.0,-1.0,0)
v5 = AddVertex(surf2,1.0,-1.0,0)
v6 = AddVertex(surf2,1.0,1.0,0)
v7 = AddVertex(surf2,-1.0,1.0,0)

tri2 = AddTriangle(surf2,v0,v1,v2)
tri3 = AddTriangle(surf2,v0,v2,v3)

tex = LoadTexture(file$)

EntityTexture tree,tex

FreeTexture tex

Return tree

End Function