if you wanted a cube with a surface per side...
Function createcube6()
m = CreateMesh()
s = CreateSurface(m)
;bottom face
v0 = AddVertex(s,-1,+1,+1,0,1)
v1 = AddVertex(s,+1,+1,+1,0,0)
v2 = AddVertex(s,+1,+1,-1,1,0)
v3 = AddVertex(s,-1,+1,-1,1,1)
AddTriangle s,v0,v1,v2
AddTriangle s,v0,v2,v3
s1 = CreateSurface(m)
;top face
v0 = AddVertex(s1,-1,-1,-1,1,0)
v1 = AddVertex(s1,+1,-1,-1,1,1)
v2 = AddVertex(s1,+1,-1,+1,0,1)
v3 = AddVertex(s1,-1,-1,+1,0,0)
AddTriangle s1,v0,v1,v2
AddTriangle s1,v0,v2,v3
s2 = CreateSurface(m)
;left face
v0 = AddVertex(s2,-1,+1,+1,0,0)
v1 = AddVertex(s2,-1,+1,-1,1,0)
v2 = AddVertex(s2,-1,-1,-1,1,1)
v3 = AddVertex(s2,-1,-1,+1,0,1)
AddTriangle s2,v0,v1,v2
AddTriangle s2,v0,v2,v3
s3 = CreateSurface(m)
;right face
v0 = AddVertex(s3,+1,+1,-1,0,0)
v1 = AddVertex(s3,+1,+1,+1,1,0)
v2 = AddVertex(s3,+1,-1,+1,1,1)
v3 = AddVertex(s3,+1,-1,-1,0,1)
AddTriangle s3,v0,v1,v2
AddTriangle s3,v0,v2,v3
s4 = CreateSurface(m)
; front face
v0 = AddVertex(s4,-1,+1,-1,0,0)
v1 = AddVertex(s4,+1,+1,-1,1,0)
v2 = AddVertex(s4,+1,-1,-1,1,1)
v3 = AddVertex(s4,-1,-1,-1,0,1)
AddTriangle s4,v0,v1,v2
AddTriangle s4,v0,v2,v3
s5 = CreateSurface(m)
;back face
v0 = AddVertex(s5,+1,+1,+1,0,0)
v1 = AddVertex(s5,-1,+1,+1,1,0)
v2 = AddVertex(s5,-1,-1,+1,1,1)
v3 = AddVertex(s5,+1,-1,+1,0,1)
AddTriangle s5,v0,v1,v2
AddTriangle s5,v0,v2,v3
UpdateNormals m
Return m
End Function