Strange behavior with animated Tree

Blitz3D Forums/Blitz3D Programming/Strange behavior with animated Tree

RifRaf

(Posted 2012) [#1]

see this file for complete example code and b3d file.
http://www.empowergames.com/viewtree.zip

This tree I created with Tree[D] cannot be positioned or moved if its animating. Now most of my projects havent involved any animated media so this is new to me.

If I dont animate it, I can move it or position it wherever I want to, after calling Animate .. the positioning calls do not work on it.

Thanks in advance, this is not a pressing matter at the moment ive just been tinkering with the tree[D] tool and thought this was weird.

Last edited 2012

Matty

(Posted 2012) [#2]

Hi, I think this problem has come up before but as I'm on my phone I can't link to it. However the solution is to parent the tree to a pivot and move the pivot.

RifRaf

(Posted 2012) [#3]

Thanks Matty, I guess ill just do that.

Ross C

(Posted 2012) [#4]

Is it a boned animation?

Guy Fawkes

(Posted 2012) [#5]

Try this to see better:

Graphics3D 1024,764,0,2

AmbientLight 255, 255, 255

cam=CreateCamera()
Global tree=LoadAnimMesh("mypine1.b3d")
PositionEntity tree, 0,1,40
PositionEntity cam,0,10,-40
;PointEntity cam,tree

For i=1 To 500
	cc=CopyEntity(tree)
	PositionEntity cc,Rand(-500,500),1,Rand(-500,500)
    TurnEntity cc,0,Rand(0,180),0 
    ScaleEntity cc,1,Rnd(.65,1.5),1
Next

Animate cc,1,1

While Not KeyDown(1)
	If MouseDown(1) Then MoveEntity tree,0,0,-1
	
	If Not KeyDown(157) Or KeyDown(54)
		
		flyspeed# = 10.5
		turnspeed# = 11.0
		movespeed# = 10.5
		
	Else
		
		flyspeed# = 11.5
		turnspeed# = 12.0
		movespeed# = 11.5
		
	EndIf
	
	MoveEntity cam, 0, (KeyDown(44)-KeyDown(45))*flyspeed#, (KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))*movespeed#
	TurnEntity cam, 0, (KeyDown(30)-KeyDown(32) Or KeyDown(203)-KeyDown(205))*turnspeed#, 0

	UpdateWorld()
	RenderWorld()
	Flip
Wend

Keys: A/Z: Fly up/down,
W/A/S/D OR ArrowKeys: Turn left/right Move forward/backward

EDIT:

And try THIS for speed addition:

Graphics3D 1024,764,0,2

AmbientLight 255, 255, 255

cam=CreateCamera()
Global tree=LoadAnimMesh("mypine1.b3d")
PositionEntity tree, 0,1,40
PositionEntity cam,0,10,-40
ScaleEntity tree,Rnd(10,15),Rnd(10,15),Rnd(10,15)
;PointEntity cam,tree

For i=1 To 50
	cc=CopyEntity(tree)
	PositionEntity cc,Rand(-500,500),1,Rand(-500,500)
    TurnEntity cc,0,Rand(0,0.01),0 
    ScaleEntity cc,Rnd(10,15),Rnd(10,15),Rnd(10,15)
Next

;Animate cc,1,1

While Not KeyDown(1)
	If MouseDown(1) Then MoveEntity tree,0,0,-1
	
	If Not KeyDown(157) Or KeyDown(54)
		
		flyspeed# = 1.5
		turnspeed# = 1.0
		movespeed# = 1.5
		
	Else
		
		flyspeed# = 1.5
		turnspeed# = 2.0
		movespeed# = 1.5
		
	EndIf
	
	MoveEntity cam, 0, (KeyDown(44)-KeyDown(45))*flyspeed#, (KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))*movespeed#
	TurnEntity cam, 0, (KeyDown(30)-KeyDown(32) Or KeyDown(203)-KeyDown(205))*turnspeed#, 0

	UpdateWorld()
	RenderWorld()
	Flip
Wend

Last edited 2012

Ross C

(Posted 2012) [#6]

Guy Fawkes

(Posted 2012) [#7]

Lol, I don't like laggy things :3

Ross C

(Posted 2012) [#8]

Ok, updateworld seems to be causing the jump back. You will need to give each tree x,y,z variables and move the tree after the updateworld:

Press the 1 key to start/restart the animation.

Graphics3D 1024,764,0,2

SeedRnd MilliSecs()

cam=CreateCamera()
Global tree=LoadAnimMesh("mypine1.b3d")
PositionEntity cam,0,40,100
PointEntity cam,tree

For i=1 To 5
	cc=CopyEntity(tree)
	PositionEntity cc,Rand(-50,50),0,Rand(-50,50)
	;Animate cc,1,1
    TurnEntity cc,0,Rand(0,180),0 
    ScaleEntity cc,1,Rnd(.65,1.5),1
Next

HideEntity tree

Global cc_x#
Global cc_y#
Global cc_z#

While Not KeyDown(1)
	

	If KeyHit(2) Then
		Animate cc,1,1
	End If

	UpdateWorld()

	If MouseDown(1) Then
		cc_z = cc_z + 1
	End If

	PositionEntity cc,cc_x,cc_y,cc_z

	RenderWorld()
	Flip
Wend

There must be something in the .b3d animation that resets the position of the entity. It resets the rotation and scale as well, so you'll need to set everything like that as well.

Last edited 2012

Guy Fawkes

(Posted 2012) [#9]

I made it pretty :3 The only thing not pretty about it, is the mess up in the gravity for the camera... Sorry about that :3

Graphics3D 1024,764,0,2

Global type_player = 1
Global type_object = 2
Global type_land   = 3

Global cam=CreateCamera()
Global cam_start_y# = 24.0
PositionEntity cam,0,cam_start_y#,0
CameraRange cam,.1,25000
EntityType cam,type_player

Type tree
	Field tree
	Field xpos#
	Field ypos#
	Field zpos#
	Field pitch#
	Field yaw#
	Field roll#
End Type

Global t.tree = New tree

t\tree=LoadAnimMesh("mypine1.b3d")
EntityType t\tree, type_object

;Turn on the lights :P
AmbientLight 255, 255, 255

PositionEntity t\tree, 0,12,0
ScaleEntity t\tree,Rnd(10,15),Rnd(10,15),Rnd(10,15)

Global sky = CreateCube()
ScaleEntity sky, 10000, 10000, 10000
EntityColor sky, 102, 102, 255
FlipMesh sky

Global type_polygoncollision = 2

Global sliding_collision  = 2
Global stopping_collision = 3

;Player Collides with object
Collisions type_player, type_object, type_polygoncollision, type_slidingcollision

;Object Collides with another object
Collisions type_object, type_object, type_polygoncollision, type_stoppingcollision

;Player collides with landscape
Collisions type_player, type_land, type_polygoncollision, type_slidingcollision

;Create the terrain

;Global MyTerr = CreateTerrain(128)

;Apply Terrain Tex
;MyTerrTex = CreateImage(32, 32)

;SetBuffer ImageBuffer(MyTerrTex)

;GrabImage MyTerrTex, 0, 0

;SetBuffer BackBuffer()

;EntityTexture MyTerr, MyTerrTex

For i=1 To 50
	
	oldcc = cc
	cc=CopyEntity(t\tree)
	EntityType cc, type_object
	
	
	oldx# = x#
	x# = Rnd(-500,500)
	
	oldz# = z#
	z# = Rnd(-500,500)
	
	If cc = oldcc
	
	;If the distance between the LAST object, and the NEXT object, OR the NEXT object, and the LAST object is within a distance of 10.0 on the X or Z scale to each other then move them again
	If EntityDistance(cc,oldcc)<=10.0 Or EntityDistance(oldcc, cc)<=10.0
		
		x# = Rnd(1000,1500)
		z# = Rnd(1000,1500)
		
	EndIf
	
EndIf



If x#<>oldx# And z#<>oldz# Then PositionEntity cc,x#,cam_start_y#,z#



TurnEntity cc,0,Rand(0,0.1),0



ScaleEntity cc,Rnd(10,15),Rnd(10,15),Rnd(10,15)



Next



Global gravity# = -1



While Not KeyDown(1)
	
	
	
	camy# = EntityY#(cam, True)
	
	
	
	If camy# > 1.0
		
		
		
		gravityon = True
		
		
		
	Else
		
		
		
		gravityon = False
		
		
		
	EndIf
	
	
	
	If gravityon = True
		
		
		
		camgravity# =  gravity#
		
		
		
	EndIf
	
	
	If camy# < cam_start_y# Then camy# = cam_start_y#
		
	
	
	If MouseDown(1) Then MoveEntity tree,0,0,-1
	
	
	
	If Not KeyDown(157) Or KeyDown(54)
		
		flyspeed# = 1.5
		turnspeed# = 1.0
		movespeed# = 1.5
		
	Else
		
		flyspeed# = 1.5
		turnspeed# = 2.0
		movespeed# = 1.5
		
	EndIf
	
	
	
	PositionEntity cam, EntityX#(cam, True), camy#+camgravity#, EntityZ#(cam, True)
	
	
	
	MoveEntity cam, 0, 0, (KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))*movespeed#
	TurnEntity cam, 0, (KeyDown(30)-KeyDown(32) Or KeyDown(203)-KeyDown(205))*turnspeed#, 0
	
	
	
	UpdateWorld()
	RenderWorld()
	
	
	
	Flip
	
	
	
Wend

Last edited 2012

Guy Fawkes

(Posted 2012) [#10]

And here it is with an option to click on a tree, select it, move it with the Q key, and unselecting it by clicking it, or clicking on another object, or clicking somewhere in the background :3

Graphics3D 1024,764,0,2
SetBuffer BackBuffer()
SeedRnd MilliSecs()

Global type_player = 1
Global type_object = 2
Global type_land   = 3

Global cam=CreateCamera()
Global cam_start_y# = 24.0
PositionEntity cam,0,cam_start_y#*2,0
CameraRange cam,.1,99999999
EntityType cam,type_player

Type tree
	Field tree
	Field xpos#
	Field ypos#
	Field zpos#
	Field pitch#
	Field yaw#
	Field roll#
End Type

Global t.tree = New tree

t\tree=LoadAnimMesh("mypine1.b3d")
EntityType t\tree, type_object
EntityPickMode t\tree, 2, 1

;Turn on the lights :P
AmbientLight 255, 255, 255

PositionEntity t\tree, 0,12,0
ScaleEntity t\tree,Rnd(10,15),Rnd(10,15),Rnd(10,15)

Global sky = CreateCube()
ScaleEntity sky, 10000, 10000, 10000
EntityColor sky, 102, 102, 255
FlipMesh sky

Global type_polygoncollision = 2

Global sliding_collision  = 2
Global stopping_collision = 3

;Player Collides with object
Collisions type_player, type_object, type_polygoncollision, type_slidingcollision

;Object Collides with another object
Collisions type_object, type_object, type_polygoncollision, type_stoppingcollision

;Player collides with landscape
Collisions type_player, type_land, type_polygoncollision, type_slidingcollision

;Create the terrain

;Global MyTerr = CreateTerrain(128)

;Apply Terrain Tex
;MyTerrTex = CreateImage(32, 32)

;SetBuffer ImageBuffer(MyTerrTex)

;GrabImage MyTerrTex, 0, 0

;SetBuffer BackBuffer()

;EntityTexture MyTerr, MyTerrTex

Global oldtree

For i=1 To 50
	
	oldtree = t\tree
	t\tree=CopyEntity(t\tree)
	EntityType t\tree, type_object
	EntityPickMode t\tree, 2, 1
	
	oldx# = x#
	x# = Rnd(-500,500)
	
	oldz# = z#
	z# = Rnd(-500,500)
	
	If t\tree = oldtree
	
	;If the distance between the LAST object, and the NEXT object, OR the NEXT object, and the LAST object is within a distance of 10.0 on the X or Z scale to each other then move them again
		If EntityDistance(t\tree,oldtree)<=100.0 Or EntityDistance(oldtree, t\tree)<=100.0 Or x#+50<=z#+50 Or z#+50<=x#+50
		
			x# = Rnd(1000,2000)
			z# = Rnd(1000,2000)
		
		EndIf
	
EndIf



If x#<>oldx# And z#<>oldz# Then PositionEntity t\tree,x#,cam_start_y#,z#



TurnEntity t\tree,0,Rand(0,0.1),0



ScaleEntity t\tree,Rnd(10,15),Rnd(10,15),Rnd(10,15)



Next



Global gravity# = -1



While Not KeyDown(1)
	
	
	
	PositionEntity sky, EntityX#(cam, True), EntityY#(cam, True), EntityZ#(cam, True)
	
	
	
	camy# = EntityY#(cam, True)
	
	
	
	If camy# > cam_start_y#
		
		
		
		gravityon = True
		
		
		
	Else
		
		
		
		gravityon = False
		
		
		
	EndIf
	
	
	
	If gravityon = True
		
		
		
		camgravity# =  gravity#
		
		
		
	EndIf
	
	
	
	If camy# < cam_start_y#*2 Then camy# = cam_start_y#*2
	
	
	
	If Not KeyDown(42) Or KeyDown(54)
		
		flyspeed# = 1.0
		turnspeed# = 1.0
		movespeed# = 2.0
		
	Else
		
		flyspeed# = 2.0
		turnspeed# = 1.5
		movespeed# = 3.0
		
	EndIf
	
	
	
	PositionEntity cam, EntityX#(cam, True), camy#+camgravity#, EntityZ#(cam, True)
	
	
	
	MoveEntity cam, 0, 0, (KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))*movespeed#
	TurnEntity cam, 0, (KeyDown(30)-KeyDown(32) Or KeyDown(203)-KeyDown(205))*turnspeed#, 0
	
	
	
	
	;Camera Pick
	
	
	If MouseHit(1)
	
		
		
		oldpicked = picked
		picked = CameraPick(cam, MouseX(), MouseY())
		
		
		
	EndIf
	
	
	
	If picked<>0
		
		
		
		If KeyHit(16) Then TranslateEntity picked, 0, 0, 1
		
		
		
	EndIf
	
	
	
	If picked=oldpicked Then picked = 0
	
	
	
	If picked = 0 And oldpicked<>0 Then oldpicked = 0
	
	
	
	FlushKeys()
	FlushMouse()
	
	
	
	UpdateWorld()
	RenderWorld()
	
	
	
	Text GraphicsWidth()/2, GraphicsHeight()/2, "picked: "+picked, 1, 1
	Text GraphicsWidth()/2, GraphicsHeight()/2+20, "oldpicked: "+oldpicked, 1, 1
	
	
	
	Flip
	
	
	
Wend

Im sorry, I couldn't resist :3

Last edited 2012

Guy Fawkes

(Posted 2012) [#11]

Here's the last part of the code MINUS loading... For SOME reason, I can't get it to save EACH tree & it's coordinates + id to a file... Instead, it's saving the FIRST object's ID, and I can't get it to save all 51 trees IDs to the file ><

Maybe u guys can fix it and tell me why & how this save function isnt working right? ><

Graphics3D 1024,764,0,2
SetBuffer BackBuffer()
SeedRnd MilliSecs()

Global type_player = 1
Global type_object = 2
Global type_land   = 3

Type tree
	Field tree
	Field treefile$
	Field xpos#
	Field ypos#
	Field zpos#
	Field pitch#
	Field yaw#
	Field roll#
End Type

Global t.tree = New tree

Global totalobjcount = 0

t\treefile$ = "mypine1.b3d"

Global cam=CreateCamera()
Global cam_start_y# = 24.0
PositionEntity cam,0,cam_start_y#*2,0
CameraRange cam,.1,99999999
EntityType cam,type_player
EntityRadius cam, 1.0

t\tree=LoadAnimMesh(t\treefile$)
EntityType t\tree, type_object
EntityPickMode t\tree, 2, 1
EntityRadius t\tree, 1.0

totalobjcount = totalobjcount + 1

;Turn on the lights :P
AmbientLight 255, 255, 255

PositionEntity t\tree, 0,12,0
ScaleEntity t\tree,Rnd(10,15),Rnd(10,15),Rnd(10,15)

Global sky = CreateCube()
ScaleEntity sky, 10000, 10000, 10000
EntityColor sky, 102, 102, 255
FlipMesh sky

Global type_polygoncollision = 2

Global stopping_collision = 1
Global sliding_collision  = 2

;Player Collides with object
Collisions type_player, type_object, type_polygoncollision, type_stoppingcollision

;Object Collides with another object
Collisions type_object, type_object, type_polygoncollision, type_stoppingcollision

;Player collides with landscape
Collisions type_player, type_land, type_polygoncollision, type_stoppingcollision

;Create the terrain

;Global MyTerr = CreateTerrain(128)

;Apply Terrain Tex
;MyTerrTex = CreateImage(32, 32)

;SetBuffer ImageBuffer(MyTerrTex)

;GrabImage MyTerrTex, 0, 0

;SetBuffer BackBuffer()

;EntityTexture MyTerr, MyTerrTex

Global oldtree

Global maxtreecount% = 51

Dim trees(maxtreecount%)

Global copiedtree

For i=1 To 50
	
	oldtree = copiedtree
	copiedtree=CopyEntity(t\tree)
	trees(i%) = copiedtree
	totalobjcount = totalobjcount + 1
	EntityType copiedtree, type_object
	EntityPickMode copiedtree, 2, 1
	EntityRadius copiedtree, 1.0
	
	oldx# = x#
	x# = Rnd(-500,500)
	
	oldz# = z#
	z# = Rnd(-500,500)
	
	If copiedtree = oldtree
	
	;If the distance between the LAST object, and the NEXT object, OR the NEXT object, and the LAST object is within a distance of 10.0 on the X or Z scale to each other then move them again
		If x#+5<=z#+5 Or z#+5<=x#+5
		
			x# = Rnd(1000,2000)
			z# = Rnd(1000,2000)
		
		EndIf
	
EndIf



If x#<>oldx# And z#<>oldz# Then PositionEntity copiedtree,x#,cam_start_y#,z#



TurnEntity copiedtree,0,Rand(0,0.1),0



ScaleEntity copiedtree,Rnd(10,15),Rnd(10,15),Rnd(10,15)



Next



Global gravity# = -1



While Not KeyDown(1)
	
	
	
	PositionEntity sky, EntityX#(cam, True), EntityY#(cam, True), EntityZ#(cam, True)
	
	
	
	camy# = EntityY#(cam, True)
	
	
	
	If camy# > cam_start_y#
		
		
		
		gravityon = True
		
		
		
	Else
		
		
		
		gravityon = False
		
		
		
	EndIf
	
	
	
	If gravityon = True
		
		
		
		camgravity# =  gravity#
		
		
		
	EndIf
	
	
	
	If camy# < cam_start_y#*2 Then camy# = cam_start_y#*2
	
	
	
	If Not KeyDown(42) Or KeyDown(54)
		
		flyspeed# = 1.0
		turnspeed# = 1.0
		movespeed# = 2.0
		
	Else
		
		flyspeed# = 2.0
		turnspeed# = 1.5
		movespeed# = 3.0
		
	EndIf
	
	
	
	PositionEntity cam, EntityX#(cam, True), camy#+camgravity#, EntityZ#(cam, True)
	
	
	
	MoveEntity cam, 0, 0, (KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))*movespeed#
	TurnEntity cam, 0, (KeyDown(30)-KeyDown(32) Or KeyDown(203)-KeyDown(205))*turnspeed#, 0
	
	
	
	
	;Camera Pick
	
	
	If MouseHit(1)
	
		
		
		oldpicked = picked
		picked = CameraPick(cam, MouseX(), MouseY())
		
		
		
	EndIf
	
	
	
	If picked<>0
		
		
		
		If KeyDown(16) Then TranslateEntity picked, 0, 0, 1
		
		
		
	EndIf
	
	
	
	If KeyHit(57) Then Save("save.dat")
	
	
	
	If picked=oldpicked Then picked = 0
	
	
	
	If picked = 0 And oldpicked<>0 Then oldpicked = 0
	
	
	
	FlushKeys()
	FlushMouse()
	
	
	
	UpdateWorld()
	RenderWorld()
	
	
	
	Text GraphicsWidth()/2, GraphicsHeight()/2, "picked: "+picked, 1, 1
	Text GraphicsWidth()/2, GraphicsHeight()/2+20, "oldpicked: "+oldpicked, 1, 1
	Text GraphicsWidth()/2, GraphicsHeight()/2+40, "totalobjcount: "+totalobjcount, 1, 1
	
	
	
	Flip
	
	
	
Wend



Function Save(filename$)
	
	
	
	f=WriteFile(filename$)
	
	
		
			For i% = 1 To totalobjcount
				
				
				
				trees(i%) = copiedtree
					;treex# = EntityX#(t\tree, True)
					;treey# = EntityY#(t\tree, True)
					;treez# = EntityZ#(t\tree, True)
					;treepitch# = EntityPitch#(t\tree, True)
					;treeyaw#   = EntityYaw#  (t\tree, True)
					;treeroll#  = EntityRoll# (t\tree, True)
					;treefile$ = t\treefile$
						
					
					
				WriteLine(f, trees(i%))
					;WriteLine(f, treefile$)
					;WriteLine(f, treex#)
					;WriteLine(f, treey#)
					;WriteLine(f, treez#)
					;WriteLine(f, treepitch#)
					;WriteLine(f, treeyaw#)
					;WriteLine(f, treeroll#)
					
				
				
			Next
	
	
	
	CloseFile(f)


	
End Function

Ross C

(Posted 2012) [#12]

You can't hi-jack someones thread with code help for yourself, when your code you posted doesn't help the original person with their own code.

Guy Fawkes

(Posted 2012) [#13]

w/e

Yasha

(Posted 2012) [#14]

w/e

Can't you just go back to the racism, swearing and shouting?

Because even that was less annoying than rendering the help areas completely unusable for other people, you inconsiderate sod.

Guy Fawkes

(Posted 2012) [#15]

Captain Wicker (crazy hillbilly)

(Posted 2012) [#16]

Thundros = puki?

EDIT:
Very Strange how trees continue to create lag in games but after my own problem a while back, The other day I had rewritten my own game in darkbasic and imposters and solved my problem after a couple of weeks. I had noticed in the second code posted earlier by Thundros that the trees can cause serious lag in your program. I suggest using something like imposters (for blitz) that can render grouped meshes as 2d quads to improve game fps. :)
http://www.thegamecreators.com/?m=view_product&id=2293

Last edited 2012

Rob the Great

(Posted 2012) [#17]

Reading Yasha's post, I didn't understand what was going on. Then I read mac_n00bie's, and I was even more confused. I had to read over old topics to finally figure out what was going on.

Rez, when did your name become Thundros?! And an even better question, how did your online personality appear to change more than your name?

Guy Fawkes

(Posted 2012) [#18]

I just don't take it to heart anymore :) And I change my name because I like changing my name :) I hate being one person for so long :)