Really big gameworlds, variable problems

Author

Message

jlahtinen

15

Years of Service

User Offline

Joined: 26th Oct 2009

Location: Finland

Posted: 10th Feb 2014 14:10

Link

If you make a game map sized 1.000.000x1.000.000 (db units) in DB.

Then add camera in the program. Up&down arrows forward/backward left/right arrows turn the camera, basic stuff.

The problem is float accuracy. When you move in angle and camera's x# and z# are big enough then x# or z# "stops" adding up.

Scaling won't help, because you need to divide moving speed also and the same float limit still exists.

How do you get around this? If anyone understood my example.

My AppGameKit project: http://forum.thegamecreators.com/?m=forum_view&t=206794&b=48

Back to top

Profile PM

Rudolpho

18

Years of Service

User Offline

Joined: 28th Dec 2005

Location: Sweden

Posted: 10th Feb 2014 15:06

Link

I suppose you could create a set of sectors for your world and keep separate variables for those, for example you have 10x10x10 sectors of a certain size. When moving far enough you reset your floating point coordinates and update the sector instead. Would be some work, but it should work if you really need that huge a world... but do you really?
It takes a lot to break the float limits

"Why do programmers get Halloween and Christmas mixed up?"

+ Code Snippet

Because Oct(31) = Dec(25)

Back to top

Profile PM Email Website

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 10th Feb 2014 16:20 Edited at: 10th Feb 2014 16:23

Link

Quote: "If you make a game map sized 1.000.000x1.000.000 (db units) in DB."

Really? Why so huge? How could you possibly populate that with other objects and still have a frame rate above 3? Have you moved through a terrain/matrix that is even 1/10 that size? It takes 'forever'.

Quote: "How do you get around this?"

Don't make something so huge in the first place. If you really need something that big, make it in chunks, so you can manage it.

Quote: "
It takes a lot to break the float limits

"

Agreed.

So many games to code.....so little time.

Back to top

Profile PM Email

jlahtinen

15

Years of Service

User Offline

Joined: 26th Oct 2009

Location: Finland

Posted: 10th Feb 2014 23:09

Link

Why? Well why code anything?

The maker of Evochron managed it and dealt the problem with DB even.

I hope someone in here knows how to get around this.

My AppGameKit project: http://forum.thegamecreators.com/?m=forum_view&t=206794&b=48

Back to top

Profile PM

Rudolpho

18

Years of Service

User Offline

Joined: 28th Dec 2005

Location: Sweden

Posted: 11th Feb 2014 01:12

Link

Quote: "The maker of Evochron managed it and dealt the problem with DB even."

Got any source on that?

Quote: "I hope someone in here knows how to get around this."

We just told you. You split up your world into segments / chunks / whatever-you-want-to-call-it that fit within the 32-bit floating point range. When you get to the end of it you move onto the next chunk and when this happens you reset your float coordinates so that you're at position (0, 0, 0) in chunk (1, 0, 0) which is the same as being at the absolute position (2 000 000 000, 0, 0) / what have you. You'll have to keep track of the chunks and move objects around to fit with where you currently are yourself though.

But don't make things ridoncelously large just because you think you have to. For example, have you considered just dividing the size of everything by 10 000 or something? If you need sizes in the billions chances are you don't need any discernable detail when moving corresponding to a single unit. Or maybe you do, hard to say without you telling us what you're doing

"Why do programmers get Halloween and Christmas mixed up?"

+ Code Snippet

Because Oct(31) = Dec(25)

Back to top

Profile PM Email Website

pcRaider

17

Years of Service

User Offline

Joined: 30th May 2007

Location:

Posted: 11th Feb 2014 05:17

Link

This is the map which TDK_man made.
The map divides it and is connected.
There are a lot of small maps in that.

windowsXp

Attachments

Login to view attachments

Back to top

Profile PM

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 11th Feb 2014 19:30 Edited at: 26th May 2014 19:49

Link

[ EDITED ]

So many games to code.....so little time.

Back to top

Profile PM Email

jlahtinen

15

Years of Service

User Offline

Joined: 26th Oct 2009

Location: Finland

Posted: 12th Feb 2014 11:16

Link

Yeah, Newcomers' board wasn't a right choice I see.

Quote: "For example, have you considered just dividing the size of everything by 10 000 or something?"

Like I wrote, dividing won't work if you want to keep moving speeds and distances the same. If you divide movement speed, you divide the interger limits also.

Quote: "This is the map which TDK_man made.
The map divides it and is connected.
There are a lot of small maps in that."

Thank you, I'll check this out.

Quote: "I will ask you again, Why so huge? Do you actually need a map that large? Have you actually created a map (that fits within float limits) and populated it with stationary objects, NPCs, player, whatever and need more? My feeling is that you have not, because my experience tells me that even with a high-end rig, DBP will bog down to a crawl by the time you are rendering a number of objects, and at the same time providing reasonably accurate collision, controlling a player and providing AI for the NPCs, not to mention moving/animating objects. "

I was just wondering on how to make something like Space engine or Evochron. Basically a galaxy with realistic distances and sizes.

Lots of objects? You can use procedural-programming, streaming, LOD-levels, viewdistances etc, that is not the problem.

Not to be rude, but I dont understand why you question my simple question? You dont have to post if you cant really help. Sorry, I'll ask in the DBPro section.

My AppGameKit project: http://forum.thegamecreators.com/?m=forum_view&t=206794&b=48

Back to top

Profile PM

revenant chaos

Valued Member

17

Years of Service

User Offline

Joined: 21st Mar 2007

Location: Robbinsdale, MN

Posted: 12th Feb 2014 13:16 Edited at: 12th Feb 2014 13:17

Link

For a space scene where it is unlikely that a ton of objects are in close proximity to your player, one solution could be to detect when your coordinates are approaching values which cannot be accurately stored. At that point, move your camera/player back to 0,0,0 and relocate all of the local scenery objects to positions which are relative to the camera.

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 12th Feb 2014 19:41

Link

You're going to have to break your world down into zones. I don't know of any game that would load such a large map at once. Think of a 2D tile map. You only draw the tiles that are visibly on screen and ignore the rest of the map until you've scrolled onto the next column of tiles. You'd essentially be doing the same thing in 3D.

http://zimnox.com

Back to top

Profile PM Email Website

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 14th Feb 2014 05:15

Link

I had very same problem with project of mine.Instead of moving my object around the space i move everything else in a manner that resembles traveling.It was sci-fi rpg and the travel was trough space, i'm not sure if this can help you or if it is even possible to do it with terrain but it works really well, so there is the code.

sync on: sync rate 60

type offset_positions
	x# as float
	y# as float
	z# as float
	x_larger as byte
	y_larger as byte
	z_larger as byte
endtype

dim offset(20,20) as offset_positions

for i = 11 to 18
	make object cube i,10
	position object i,rnd(80)-rnd(80),rnd(80)-rnd(80),rnd(80)-rnd(80)
next i

for i = 11 to 18
	for n = 11 to 18
		offset(i,n).x# = sqrt(((object position x(n) - object position x(i)))^2)
		offset(i,n).y# = sqrt(((object position y(n) - object position y(i)))^2)
		offset(i,n).z# = sqrt(((object position z(n) - object position z(i)))^2)
			
		if object position x(n) > object position x(i)
			offset(i,n).x_larger = 0
		else
			offset(i,n).x_larger = 1
		endif
			
		if object position y(n) > object position y(i)
			offset(i,n).y_larger = 0
		else
			offset(i,n).y_larger = 1
		endif
			
		if object position z(n) > object position z(i)
			offset(i,n).z_larger = 0
		else
			offset(i,n).z_larger = 1
		endif
			
	next n
next i
	
make object sphere 1,10,20,20
position object 1,0,0,0

`MAKE DUMMY OBJECT
make object sphere 100,0.1,20,20
position object 100,0,0,0

`CAMERA STUFF
ZOOM#=-1.100
SPEED# = 0.5
CameraControl(1,3,1,0,0.200,ZOOM#,0,0,0,SPEED#,1,1,0,0,-120,50,0,0)

do

if mouseclick()=1
	selected_object = pick object (mousex(),mousey(),2,22)
endif
	
if selected_object <> 0 then poi = selected_object

if poi <> 0
	Dist# = GetDistance#(object position x(1),object position y(1),object position z(1),object position x(poi),object position y(poi),object position z(poi))
	
	if Dist# > 10
	
		if move = 0
		position object 100,object position x(poi),object position y(poi),object position z(poi)
		point object 100,object position x(1),object position y(1),object position z(1)
		move = 1
		endif
		
		move object 100,1
		position object poi,object position x(100),object position y(100),object position z(100)
		
		for n = 11 to 18
			if offset(poi,n).x_larger = 1
				obj_pos_x# = object position x(poi) - offset(poi,n).x#
			else
				obj_pos_x# = object position x(poi) + offset(poi,n).x#
			endif
			if offset(poi,n).y_larger = 1
				obj_pos_y# = object position y(poi) - offset(poi,n).y#
			else
				obj_pos_y# = object position y(poi) + offset(poi,n).y#
			endif
			if offset(poi,n).z_larger = 1
				obj_pos_z# = object position z(poi) - offset(poi,n).z#
			else
				obj_pos_z# = object position z(poi) + offset(poi,n).z#
			endif
			
			position object n,obj_pos_x#,obj_pos_y#,obj_pos_z#	
		next n
			
	else
		move = 0
	endif
endif

if mouseclick() = 2
	INC ZOOM#,MOUSEMOVEZ()*.05
	CameraControl(1,3,1,0,0.200,ZOOM#,0,0,0,SPEED#,1,1,0,0,-120,50,0,0)
endif

CamY#=CamY#+MOUSEMOVEX()*SPEED#
CamX#=CamX#+MOUSEMOVEY()*SPEED#

INC ZOOM#,MOUSEMOVEZ()*.05
Zoom(1,3,1,0,0.200,ZOOM#,0,0,0,SPEED#,1,1,0,0,-120,50,0,0)

text 0,0,"last_: "+str$(last_poi)
text 0,20,"poi: "+str$(poi)
text 0,40,"Dist#: "+str$(Dist#)
text 0,60,"distz: "+str$(distz#)
text 0,80,"offset(12).x#: "+str$(offset(12,11).x#)
text 0,100,"offset(12).y#: "+str$(offset(12,11).y#)
text 0,120,"offset(12).z#: "+str$(offset(12,11).z#)
text 0,140,"offset(11).x#: "+str$(offset(11,12).x#)
text 0,160,"offset(11).y#: "+str$(offset(11,12).y#)
text 0,180,"offset(11).z#: "+str$(offset(11,12).z#)

text 0,200,"move: "+str$(move)
sync
loop

function points(poi)
	if poi <> 0
		angleX1# = object angle x(1)
 		angleY1# = object angle y(1)
  		angleZ1# = object angle z(1)
		point object 1, object position x(poi), object position y(poi), object position z(poi)
  		rotate object 1, curveangle(object angle x(1), angleX1#, 400.0), curveangle(object angle y(1), angleY1#, 400.0), angleZ1#
	endif
endfunction

FUNCTION CameraControl(Object, Dummy, Mesh, X#, Y#, Z#, XTilt#,YTilt#,ZTilt#, Speed#, DumX, DumY, ObjX, ObjY, MaxUp#, MaxDown#, MaxLeft#, MaxRight#)

IF OBJECT EXIST(Dummy)=0
	DIM CamX#(0)
	DIM CamY#(0)
	MAKE OBJECT TRIANGLE Dummy, 0,0,0,0,0,0,0,0,0
	MAKE MESH FROM OBJECT Mesh, Dummy
	ADD LIMB Dummy, 1, Mesh
	DELETE MESH Mesh
ENDIF

IF OBJECT EXIST(Dummy)=1
	OFFSET LIMB Dummy, 1, X#, Y#, Z#
	IF Speed#=0
		IF X#=0 AND Y#=0 AND Z#=0
			POSITION CAMERA OBJECT POSITION X(Object),OBJECT POSITION Y(Object),OBJECT POSITION Z(Object)
			POINT CAMERA OBJECT POSITION X(Object), OBJECT POSITION Y(Object), OBJECT POSITION Z(Object)
		ENDIF
	ENDIF

IF X#>0 OR Y#>0 OR Z#>0
		POSITION OBJECT Dummy, OBJECT POSITION X(Object),OBJECT POSITION Y(Object), OBJECT POSITION Z(Object)
		POSITION CAMERA LIMB POSITION X(Dummy, 1),LIMB POSITION Y(Dummy, 1),LIMB POSITION Z(Dummy, Object)
		POINT CAMERA OBJECT POSITION X(Object)+XTilt#, OBJECT POSITION Y(Object)+YTilt#, OBJECT POSITION Z(Object)+ZTilt#
	ENDIF

IF Speed#>0
		IF X#=0 AND Y#=0 AND Z#=0
			POSITION CAMERA OBJECT POSITION X(Object),OBJECT POSITION Y(Object),OBJECT POSITION Z(Object)
			XROTATE CAMERA CamX#(0)
			YROTATE CAMERA CamY#(0)
		ENDIF

CamY#(0)=CamY#(0)+MOUSEMOVEX()*Speed#
		CamX#(0)=CamX#(0)+MOUSEMOVEY()*Speed#

IF MaxUp#>0 OR MaxUp#<0
			`IF CamX#(0)<MaxUp# THEN CamX#(0)=MaxUp#
		ENDIF

IF MaxDown#>0 OR MaxDown#<0
			`IF CamX#(0)>MaxDown# THEN CamX#(0)=MaxDown#
		ENDIF

IF MaxLeft#>0 OR MaxLeft#<0
			IF CamY#(0)<MaxLeft# THEN CamY#(0)=MaxLeft#
		ENDIF

IF MaxRight#>0 OR MaxRight#<0
			IF CamY#>MaxRight# THEN CamY#=MaxRight#
		ENDIF

IF DumX=1
			XROTATE OBJECT Dummy,CamX#(0)
		ENDIF

IF DumY=1
			YROTATE OBJECT Dummy,CamY#(0)
		ENDIF

IF ObjX=1
			XROTATE OBJECT Object, CamX#(0)
		ENDIF

IF ObjY=1
			YROTATE OBJECT Object, CamY#(0)
		ENDIF

ENDIF

ENDFUNCTION CameraControl

`ZOOM
Function Zoom(Object, Dummy, Mesh, X#, Y#, Z#, XTilt#,YTilt#,ZTilt#, Speed#, DumX, DumY, ObjX, ObjY, MaxUp#, MaxDown#, MaxLeft#, MaxRight#)

IF OBJECT EXIST(Dummy)=0
	DIM CamX#(0)
	DIM CamY#(0)
	MAKE OBJECT TRIANGLE Dummy, 0,0,0,0,0,0,0,0,0
	MAKE MESH FROM OBJECT Mesh, Dummy
	ADD LIMB Dummy, 1, Mesh
	DELETE MESH Mesh
ENDIF

IF OBJECT EXIST(Dummy)=1
	OFFSET LIMB Dummy, 1, X#, Y#, Z#
	IF Speed#=0
		IF Z#=0
			POSITION CAMERA OBJECT POSITION X(Object),OBJECT POSITION Y(Object),OBJECT POSITION Z(Object)
			POINT CAMERA OBJECT POSITION X(Object), OBJECT POSITION Y(Object), OBJECT POSITION Z(Object)
		ENDIF
	ENDIF

POSITION OBJECT Dummy, OBJECT POSITION X(Object),OBJECT POSITION Y(Object), OBJECT POSITION Z(Object)
		POSITION CAMERA LIMB POSITION X(Dummy, 1),LIMB POSITION Y(Dummy, 1),LIMB POSITION Z(Dummy, Object)
		POINT CAMERA OBJECT POSITION X(Object)+XTilt#, OBJECT POSITION Y(Object)+YTilt#, OBJECT POSITION Z(Object)+ZTilt#

IF Speed#>0
		IF Z#=0
			POSITION CAMERA OBJECT POSITION X(Object),OBJECT POSITION Y(Object),OBJECT POSITION Z(Object)
			XROTATE CAMERA CamX#(0)
			YROTATE CAMERA CamY#(0)
		ENDIF

CamY#(0)=CamY#(0)+MOUSEMOVEX()*Speed#
		CamX#(0)=CamX#(0)+MOUSEMOVEY()*Speed#

IF MaxUp#>0 OR MaxUp#<0
			IF CamX#(0)<MaxUp# THEN CamX#(0)=MaxUp#
		ENDIF

IF MaxDown#>0 OR MaxDown#<0
			IF CamX#(0)>MaxDown# THEN CamX#(0)=MaxDown#
		ENDIF

IF MaxLeft#>0 OR MaxLeft#<0
			IF CamY#(0)<MaxLeft# THEN CamY#(0)=MaxLeft#
		ENDIF

IF MaxRight#>0 OR MaxRight#<0
			IF CamY#>MaxRight# THEN CamY#=MaxRight#
		ENDIF

IF DumX=1
			XROTATE OBJECT Dummy,CamX#(0)
		ENDIF

IF DumY=1
			YROTATE OBJECT Dummy,CamY#(0)
		ENDIF

IF ObjX=1
			XROTATE OBJECT Object, CamX#(0)
		ENDIF

IF ObjY=1
			YROTATE OBJECT Object, CamY#(0)
		ENDIF

ENDIF

ENDIF
endfunction Zoom

Function GetDistance#( X1#, Y1#, Z1#, X2#, Y2#, Z2# )
   Dist_X# = X1# - X2#
   Dist_Y# = Y1# - Y2#
   Dist_Z# = Z1# - Z2#
   Distance# = Sqrt(Dist_X# * Dist_X# + Dist_Y# * Dist_Y# + Dist_Z# * Dist_Z#)
EndFunction Distance#

+ Code Snippet

sync on: sync rate 60


type offset_positions
	x# as float
	y# as float
	z# as float
	x_larger as byte
	y_larger as byte
	z_larger as byte
endtype

dim offset(20,20) as offset_positions

for i = 11 to 18
	make object cube i,10
	position object i,rnd(80)-rnd(80),rnd(80)-rnd(80),rnd(80)-rnd(80)
next i

for i = 11 to 18
	for n = 11 to 18
		offset(i,n).x# = sqrt(((object position x(n) - object position x(i)))^2)
		offset(i,n).y# = sqrt(((object position y(n) - object position y(i)))^2)
		offset(i,n).z# = sqrt(((object position z(n) - object position z(i)))^2)
			
		if object position x(n) > object position x(i)
			offset(i,n).x_larger = 0
		else
			offset(i,n).x_larger = 1
		endif
			
		if object position y(n) > object position y(i)
			offset(i,n).y_larger = 0
		else
			offset(i,n).y_larger = 1
		endif
			
		if object position z(n) > object position z(i)
			offset(i,n).z_larger = 0
		else
			offset(i,n).z_larger = 1
		endif
			
	next n
next i
	
make object sphere 1,10,20,20
position object 1,0,0,0

`MAKE DUMMY OBJECT
make object sphere 100,0.1,20,20
position object 100,0,0,0

`CAMERA STUFF
ZOOM#=-1.100
SPEED# = 0.5
CameraControl(1,3,1,0,0.200,ZOOM#,0,0,0,SPEED#,1,1,0,0,-120,50,0,0)

do

if mouseclick()=1
	selected_object = pick object (mousex(),mousey(),2,22)
endif
	
if selected_object <> 0 then poi = selected_object

if poi <> 0
	Dist# = GetDistance#(object position x(1),object position y(1),object position z(1),object position x(poi),object position y(poi),object position z(poi))
	
	if Dist# > 10
	
		if move = 0
		position object 100,object position x(poi),object position y(poi),object position z(poi)
		point object 100,object position x(1),object position y(1),object position z(1)
		move = 1
		endif
		
		move object 100,1
		position object poi,object position x(100),object position y(100),object position z(100)
		
		for n = 11 to 18
			if offset(poi,n).x_larger = 1
				obj_pos_x# = object position x(poi) - offset(poi,n).x#
			else
				obj_pos_x# = object position x(poi) + offset(poi,n).x#
			endif
			if offset(poi,n).y_larger = 1
				obj_pos_y# = object position y(poi) - offset(poi,n).y#
			else
				obj_pos_y# = object position y(poi) + offset(poi,n).y#
			endif
			if offset(poi,n).z_larger = 1
				obj_pos_z# = object position z(poi) - offset(poi,n).z#
			else
				obj_pos_z# = object position z(poi) + offset(poi,n).z#
			endif
			
			position object n,obj_pos_x#,obj_pos_y#,obj_pos_z#	
		next n
			
	else
		move = 0
	endif
endif

if mouseclick() = 2
	INC ZOOM#,MOUSEMOVEZ()*.05
	CameraControl(1,3,1,0,0.200,ZOOM#,0,0,0,SPEED#,1,1,0,0,-120,50,0,0)
endif

CamY#=CamY#+MOUSEMOVEX()*SPEED#
CamX#=CamX#+MOUSEMOVEY()*SPEED#

INC ZOOM#,MOUSEMOVEZ()*.05
Zoom(1,3,1,0,0.200,ZOOM#,0,0,0,SPEED#,1,1,0,0,-120,50,0,0)

text 0,0,"last_: "+str$(last_poi)
text 0,20,"poi: "+str$(poi)
text 0,40,"Dist#: "+str$(Dist#)
text 0,60,"distz: "+str$(distz#)
text 0,80,"offset(12).x#: "+str$(offset(12,11).x#)
text 0,100,"offset(12).y#: "+str$(offset(12,11).y#)
text 0,120,"offset(12).z#: "+str$(offset(12,11).z#)
text 0,140,"offset(11).x#: "+str$(offset(11,12).x#)
text 0,160,"offset(11).y#: "+str$(offset(11,12).y#)
text 0,180,"offset(11).z#: "+str$(offset(11,12).z#)


text 0,200,"move: "+str$(move)
sync
loop

function points(poi)
	if poi <> 0
		angleX1# = object angle x(1)
 		angleY1# = object angle y(1)
  		angleZ1# = object angle z(1)
		point object 1, object position x(poi), object position y(poi), object position z(poi)
  		rotate object 1, curveangle(object angle x(1), angleX1#, 400.0), curveangle(object angle y(1), angleY1#, 400.0), angleZ1#
	endif
endfunction

FUNCTION CameraControl(Object, Dummy, Mesh, X#, Y#, Z#, XTilt#,YTilt#,ZTilt#, Speed#, DumX, DumY, ObjX, ObjY, MaxUp#, MaxDown#, MaxLeft#, MaxRight#)

IF OBJECT EXIST(Dummy)=0
	DIM CamX#(0)
	DIM CamY#(0)
	MAKE OBJECT TRIANGLE Dummy, 0,0,0,0,0,0,0,0,0
	MAKE MESH FROM OBJECT Mesh, Dummy
	ADD LIMB Dummy, 1, Mesh
	DELETE MESH Mesh
ENDIF

IF OBJECT EXIST(Dummy)=1
	OFFSET LIMB Dummy, 1, X#, Y#, Z#
	IF Speed#=0
		IF X#=0 AND Y#=0 AND Z#=0
			POSITION CAMERA OBJECT POSITION X(Object),OBJECT POSITION Y(Object),OBJECT POSITION Z(Object)
			POINT CAMERA OBJECT POSITION X(Object), OBJECT POSITION Y(Object), OBJECT POSITION Z(Object)
		ENDIF
	ENDIF

	IF X#>0 OR Y#>0 OR Z#>0
		POSITION OBJECT Dummy, OBJECT POSITION X(Object),OBJECT POSITION Y(Object), OBJECT POSITION Z(Object)
		POSITION CAMERA LIMB POSITION X(Dummy, 1),LIMB POSITION Y(Dummy, 1),LIMB POSITION Z(Dummy, Object)
		POINT CAMERA OBJECT POSITION X(Object)+XTilt#, OBJECT POSITION Y(Object)+YTilt#, OBJECT POSITION Z(Object)+ZTilt#
	ENDIF

	IF Speed#>0
		IF X#=0 AND Y#=0 AND Z#=0
			POSITION CAMERA OBJECT POSITION X(Object),OBJECT POSITION Y(Object),OBJECT POSITION Z(Object)
			XROTATE CAMERA CamX#(0)
			YROTATE CAMERA CamY#(0)
		ENDIF

		CamY#(0)=CamY#(0)+MOUSEMOVEX()*Speed#
		CamX#(0)=CamX#(0)+MOUSEMOVEY()*Speed#

		IF MaxUp#>0 OR MaxUp#<0
			`IF CamX#(0)<MaxUp# THEN CamX#(0)=MaxUp#
		ENDIF

		IF MaxDown#>0 OR MaxDown#<0
			`IF CamX#(0)>MaxDown# THEN CamX#(0)=MaxDown#
		ENDIF

		IF MaxLeft#>0 OR MaxLeft#<0
			IF CamY#(0)<MaxLeft# THEN CamY#(0)=MaxLeft#
		ENDIF

		IF MaxRight#>0 OR MaxRight#<0
			IF CamY#>MaxRight# THEN CamY#=MaxRight#
		ENDIF

		IF DumX=1
			XROTATE OBJECT Dummy,CamX#(0)
		ENDIF

		IF DumY=1
			YROTATE OBJECT Dummy,CamY#(0)
		ENDIF

		IF ObjX=1
			XROTATE OBJECT Object, CamX#(0)
		ENDIF

		IF ObjY=1
			YROTATE OBJECT Object, CamY#(0)
		ENDIF

	ENDIF

ENDIF

ENDFUNCTION CameraControl

`ZOOM
Function Zoom(Object, Dummy, Mesh, X#, Y#, Z#, XTilt#,YTilt#,ZTilt#, Speed#, DumX, DumY, ObjX, ObjY, MaxUp#, MaxDown#, MaxLeft#, MaxRight#)

IF OBJECT EXIST(Dummy)=0
	DIM CamX#(0)
	DIM CamY#(0)
	MAKE OBJECT TRIANGLE Dummy, 0,0,0,0,0,0,0,0,0
	MAKE MESH FROM OBJECT Mesh, Dummy
	ADD LIMB Dummy, 1, Mesh
	DELETE MESH Mesh
ENDIF

IF OBJECT EXIST(Dummy)=1
	OFFSET LIMB Dummy, 1, X#, Y#, Z#
	IF Speed#=0
		IF Z#=0
			POSITION CAMERA OBJECT POSITION X(Object),OBJECT POSITION Y(Object),OBJECT POSITION Z(Object)
			POINT CAMERA OBJECT POSITION X(Object), OBJECT POSITION Y(Object), OBJECT POSITION Z(Object)
		ENDIF
	ENDIF

		POSITION OBJECT Dummy, OBJECT POSITION X(Object),OBJECT POSITION Y(Object), OBJECT POSITION Z(Object)
		POSITION CAMERA LIMB POSITION X(Dummy, 1),LIMB POSITION Y(Dummy, 1),LIMB POSITION Z(Dummy, Object)
		POINT CAMERA OBJECT POSITION X(Object)+XTilt#, OBJECT POSITION Y(Object)+YTilt#, OBJECT POSITION Z(Object)+ZTilt#

	IF Speed#>0
		IF Z#=0
			POSITION CAMERA OBJECT POSITION X(Object),OBJECT POSITION Y(Object),OBJECT POSITION Z(Object)
			XROTATE CAMERA CamX#(0)
			YROTATE CAMERA CamY#(0)
		ENDIF

		CamY#(0)=CamY#(0)+MOUSEMOVEX()*Speed#
		CamX#(0)=CamX#(0)+MOUSEMOVEY()*Speed#

		IF MaxUp#>0 OR MaxUp#<0
			IF CamX#(0)<MaxUp# THEN CamX#(0)=MaxUp#
		ENDIF

		IF MaxDown#>0 OR MaxDown#<0
			IF CamX#(0)>MaxDown# THEN CamX#(0)=MaxDown#
		ENDIF

		IF MaxLeft#>0 OR MaxLeft#<0
			IF CamY#(0)<MaxLeft# THEN CamY#(0)=MaxLeft#
		ENDIF

		IF MaxRight#>0 OR MaxRight#<0
			IF CamY#>MaxRight# THEN CamY#=MaxRight#
		ENDIF

		IF DumX=1
			XROTATE OBJECT Dummy,CamX#(0)
		ENDIF

		IF DumY=1
			YROTATE OBJECT Dummy,CamY#(0)
		ENDIF

		IF ObjX=1
			XROTATE OBJECT Object, CamX#(0)
		ENDIF

		IF ObjY=1
			YROTATE OBJECT Object, CamY#(0)
		ENDIF

	ENDIF

ENDIF
endfunction Zoom

Function GetDistance#( X1#, Y1#, Z1#, X2#, Y2#, Z2# )
   Dist_X# = X1# - X2#
   Dist_Y# = Y1# - Y2#
   Dist_Z# = Z1# - Z2#
   Distance# = Sqrt(Dist_X# * Dist_X# + Dist_Y# * Dist_Y# + Dist_Z# * Dist_Z#)
EndFunction Distance#

Coding is My Kung Fu!
And My Kung Fu is better than Yours!

Back to top

Profile PM

jlahtinen

15

Years of Service

User Offline

Joined: 26th Oct 2009

Location: Finland

Posted: 14th Feb 2014 16:00

Link

Yeah, I thought to do that, but I used a node approach (I think this is more efficient with lots of objects).

Some interesting stuff about same problem with Dungeon siege:

http://scottbilas.com/files/2003/gdc_san_jose/continuous_world_paper.pdf

One solution would be to use multiple viewports with different scales depending on the distances, but that seemed like too much hassle for me.

My AppGameKit project: http://forum.thegamecreators.com/?m=forum_view&t=206794&b=48

Back to top

Profile PM

The Tall Man

11

Years of Service

User Offline

Joined: 16th Nov 2013

Location: Earth

Posted: 26th May 2014 10:51

Link

Here's a page on floating point numbers:
http://en.wikipedia.org/wiki/Single_precision

Based on that, 1Mx1M shouldn't be running into any problems.

However a work-around might be this. Instead of creating a map that's 1Mx1M, create one that's 1024x1024, with each of your units being 1/1024 of a DB unit. This gives you an effective range of 1048576, which is more than a million. 1024 is more friendly to floats than 1000.

If you need to scale it up to match what you're loading it, you could either scale it up with the Scale command (which dynamically applies a transformation), or you can scale everything else down with the same command.

Judging what we see is the greatest blinder and self-limiter in the universe.

What we perceive is never reality. It is only a story we tell ourselves based on our current perspective, which has far more to do with our beliefs about ourselves than with anything else.

Back to top

Profile PM

Chris Tate

DBPro Master

16

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 12th Jun 2014 16:49 Edited at: 12th Jun 2014 16:56

Link

RIGHT, Forgive me if any of these techniques have already been mentioned.

Firstly to establish my view of the matter and to better demonstrate what I am going to tell you below is as you probably already know; you have 9,999,999 maximal units either side of zero, -9,999,999 to 9,999,999 for your world. Far less if you introduce interpolated velocities, physics and whatnot. Knowing this will tell you that no open world game made in DBP ever uses that kind of extent, no matter what you see on your screen. And 9,999,999 units and 9.999999 units are as maximal as single floating point units can represent accurately (or is it 0.9999999?). The exception would be a game with no physics or interpolated velocities, which is not what you want.

Secondly, as indicated by the others; the obvious solution is to wrap your coordinates around; afterall; if you did not have to limit your coordinates then what would be the point of this thread.

Any player of the old Sonic the hedgehog games will well remember certain bottomless levels as the hedgehog runs or falls without ever reaching the bottom the level on 16bit hardware. This is a perfect example of wrapping coordinates, or in other words:

AllObjectPositions = WrapValue( AllObjectPositions , MinimumPosition, MaximumPosition )

Matrix1 gave you wrapping functions in its commandset, and double floats can provide you with storage of larger coordinates.

Thirdly, creative thinking on a day to day basis in the context of the scenario, gameflow or objective. A good map design for goals will make your maps seem larger than they are.

In a nutshell, just because something looks like it is moving, does not mean that it is moving. Just because something looks big, does not mean that it is big.

Think of the old ancient Windows space flight screensaver; is the camera really moving? Or is it the stars that are moving?

You may need to be experienced to understand what I am saying here, but you seem quite knowledgeable.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Really big gameworlds, variable problems

Attachments