trouble creating meshes from scratch in B3d

Blitz3D Forums/Blitz3D Programming/trouble creating meshes from scratch in B3d

is this what you wanted it to do
Graphics3D 640,480

SetBuffer BackBuffer()


mesh = CreateMesh()

surf = CreateSurface(mesh)



;front

v00=AddVertex(surf,-3,-3,-3,  0,0);BL

v01=AddVertex(surf, 3,-3,-3,  1,0);BR

v02=AddVertex(surf,-3, 3,-3,  0,1);TL

v03=AddVertex(surf, 3, 3,-3,  1,1);TR


;leftside

v06=AddVertex(surf,-3,-3,-3,  0,0);BR

v07=AddVertex(surf,-3, 3,-3,  0,1);TR


v04=AddVertex(surf,-3,-3, 3,  1,0);BL

v05=AddVertex(surf,-3, 3, 3,  1,1);TL


;back

v08=AddVertex(surf,-3,-3, 3,  0,0);BR

v09=AddVertex(surf,-3, 3, 3,  0,1);TR


v10=AddVertex(surf, 3,-3, 3,  1,0);Bl

v11=AddVertex(surf, 3, 3, 3,  1,1);Tl






tri=AddTriangle(surf,v00,v02,v01);down

tri=AddTriangle(surf,v02,v03,v01);up


tri=AddTriangle(surf,v04,v05,v06)

tri=AddTriangle(surf,v05,v07,v06)


tri=AddTriangle(surf,v11,v09,v08)

tri=AddTriangle(surf,v10,v11,v08)



tex=LoadTexture("coolgrass2.bmp",1)

EntityTexture mesh,tex


cam = CreateCamera()

MoveEntity cam, 0,0,-10

l = CreateLight

UpdateNormals mesh


While Not KeyDown( 1 ) 

If KeyDown(19) Then TurnEntity mesh,0,1,0

RenderWorld 

;Text 0,0,TrisRendered()

Flip 

Wend 



End