multi cubes

Blitz3D Forums/Blitz3D Beginners Area/multi cubes

ssdw	(Posted 2011) [#1]

as shown below, there wil be create several cubes.
these all have the same name! I want them all to move separately (for explane: one goes forward and the other backwards). How can I do that?
The number should easily be adapted.

thank you

Graphics3D 640,480,0,2
SetBuffer BackBuffer()

	;cam
	cam = CreateCamera()
	PositionEntity cam,0,0,-10
	
	;light
	light = CreateLight
	
	;create cube
	Repeat
		cube = CreateCube()
		PositionEntity cube,-7+(a*3),0,0
		a = a + 1
	Until a > 5 

;loop
Repeat

	;vieuw
	RenderWorld()
	UpdateWorld()
	Flip

Until KeyHit(1)

Charrua

(Posted 2011) [#2]

hi
there is more than one way of doing it, basically you have to Remember the handle for each Cube.

Graphics3D 640,480,0,2
SetBuffer BackBuffer()

Local Cubes[5]	;define an Array to hold the Cube's handles

	;cam
	cam = CreateCamera()
	PositionEntity cam,0,0,-10
	
	;light
	light = CreateLight
	
	;create cube
	Repeat
		Cubes[a] = CreateCube()
		PositionEntity Cubes[a],-7+(a*3),0,0
		a = a + 1
	Until a > 5 

;loop
Repeat

	For i=0 To 5
		TurnEntity cubes[i],Rand(-1,1),Rand(-2,0),Rand(-1,1)
		MoveEntity Cubes[i],0,0,.1
	Next

	;vieuw
	RenderWorld()
	UpdateWorld()
	Flip

Until KeyHit(1)

or you can use Types

Graphics3D 640,480,0,2
SetBuffer BackBuffer()

Type tCube
	Field Entity
End Type

Local Cube.tCube


	;cam
	cam = CreateCamera()
	PositionEntity cam,0,0,-10
	
	;light
	light = CreateLight
	
	;create cube
	Repeat
		Cube = New tCube
		Cube\Entity = CreateCube()
		PositionEntity Cube\Entity,-7+(a*3),0,0
		a = a + 1
	Until a > 5 

;loop
Repeat

	For Cube = Each tCube
		TurnEntity Cube\Entity,Rand(-1,1),Rand(-2,0),Rand(-1,1)
		MoveEntity Cube\Entity,0,0,.1
	Next

	;vieuw
	RenderWorld()
	UpdateWorld()
	Flip

Until KeyHit(1)

juan

ssdw	(Posted 2011) [#3]

both work well!
I think I will use the first one because it's easer (and i'm a noob).

thank you Charrua, you have help me a lot!