Quick (hopefully!) question about Texturing Cubes

Blitz3D Forums/Blitz3D Beginners Area/Quick (hopefully!) question about Texturing Cubes

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