Moveobject - GameCreators Forum

Author

Message

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 3rd Apr 2013 01:12 Edited at: 3rd Apr 2013 01:27

Link

Does anyone know why if you move object at high speed it start to flicker?That's what you see if you follow it with a camera.I want to avoid that if possible.It happens to get worse when the object goes further from 0,0,0 position.

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

Back to top

Profile PM

pcRaider

17

Years of Service

User Offline

Joined: 30th May 2007

Location:

Posted: 3rd Apr 2013 08:00

Link

LOOP OBJECT ?

try the sample code which I attached.

windowsXp

Attachments

Login to view attachments

Back to top

Profile PM

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 3rd Apr 2013 14:53 Edited at: 3rd Apr 2013 17:26

Link

It's move object.You show me good example of something irrelevant.How to explain myself more clear.Make object set camera to follow it move it with move object command using high value 1000 or 10000 get your popcorn and watch.It flicker.I think it's camera issue.

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

Back to top

Profile PM

Mobiius

Valued Member

22

Years of Service

User Offline

Joined: 27th Feb 2003

Location: The Cold North

Posted: 3rd Apr 2013 19:57

Link

It'll be caused by floating point inaccuracies at large position values. I'd strongly suggest you not move objects by such high values. Scale your objects down and move them by a much smaller amount.

I live for video games! (And beers, and football, and cars!)
See what I live for here: [url]http:\\www.TeamDefiant.co.uk[/url]

Back to top

Profile PM Email Website

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 3rd Apr 2013 21:04 Edited at: 3rd Apr 2013 21:08

Link

As it seems it's not the speed that cause this.I scalled down the object to original size.1000 times smaller than before, make it move with speed of 10 after it travels arround 10000 units of distance it begin to flicker again.I try to make sci fi game where you travel in space.Traveling in space need space, so this is impossible limitation.Not only that it flicker but the camera clip my object although it's not even close to it.How to make more accurate camera?

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

Back to top

Profile PM

Ortu

DBPro Master

17

Years of Service

User Offline

Joined: 21st Nov 2007

Location: Austin, TX

Posted: 3rd Apr 2013 21:36

Link

you can adjust the camera's range to suit your scale, this can help, but ultimately you can only go so far from the camera before you get clipping and z fighting issues

Back to top

Profile PM Email Website

Chris Tate

DBPro Master

16

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 3rd Apr 2013 23:51

Link

Just a little theory to back up the above comments; you have 7 digits of precision; floats are single precision; here are examples of single precision numbers:

100.1275
129999.2
23.32123
299922.1

When you exceed the maximum range the system can understand as Mobiius said you will get inaccurate results. As stated, keep it small.

If your comfortable with taking on a challenge, wrap the coordinates; a bit like what mario does in some of the old single screen platform levels, when he goes passed the screen, he ends up on the opposite side; only you do it in 3D and put everything the player sees on the other side also. If uncertain what wrapping means, let us know.

But that's a bit advanced; keeping it small is easier.

Back to top

Profile PM Email Website

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 4th Apr 2013 14:58

Link

Keeping it small might not be sufficient enough, tell me more about wraping please.

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

Back to top

Profile PM

Chris Tate

DBPro Master

16

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 4th Apr 2013 19:06 Edited at: 4th Apr 2013 19:16

Link

In a nutshell, IF position = 10000, the position must be put back to 0; IF the position = 10010, the position must be put back to 10; 10000 - 10000 = 0, 10010 - 10000 is 10 respectively.

In programming terms, it is best to install Matrix1 utilities and run the following command on all moving objects, and if you wanted dynamic content, all objects:

+ Code Snippet

Position# = Wrap( Position#, MapEastEdge#, MapWestEdge# )

And in a practical scenario:

+ Code Snippet

Type MapType
East#
West#
North#
South#
Top#
Bottom#
EndType

Global Map as MapType
Map.East# = 10000
Map.West# = -10000
Map.North# = 10000
Map.South# = -10000
Map.Top# = 10000
Map.Bottom# = -10000

` Build your objects

Do
  For o = 1 to ObjectCount
    x# = Wrap( Object Position X(o), Map.West#, Map.East# )
    y# = Wrap( Object Position Y(o), Map.Bottom#, Map.Top# )
    z# = Wrap( Object Position Z(o), Map.South#, Map.North# )
    Position Object o, x#, y#, z#
  Next o
Loop

Now no object will ever go beyond your map edge and will be wrapped into place.

The code above was noob style, if you felt up for it you could do it Chris Tate style, in my world most things are never limited to one instance, and all objects belong to some kind of group:

` Map Wrapping
` Chris Tate
` BinaryModular.com | SportsFiction.net

` Common shortcuts
#CONSTANT _NEW Array Insert At Bottom
#CONSTANT __N Array Count

Sync On : Sync Rate 0

Type MapType
  East#
  West#
  North#
  South#
  Top#
  Bottom#
  Name$
EndType

Global Dim Map(1) as MapType
Global DefaultMap as MapType
  DefaultMap.East# = 100
  DefaultMap.West# = -100
  DefaultMap.North# = 100
  DefaultMap.South# = -100
  DefaultMap.Top# = 100
  DefaultMap.Bottom# = -100
  DefaultMap.Name$ = "Untitled map"

Global CurrentMap

CurrentMap = AddMap("MyMapName")

Global EntityGroup = 1

` Build your objects
For i = 10 to 20
  Make Object Cube i, 10
  Place Object In Group i, EntityGroup
Next i

Make Matrix 1, 200, 200, 5, 5
Position Matrix 1, -100, 0, -100
Position Camera -30, 3, -10
Point Camera 0, 0, 0

Do
  Text 0, 0, Str$(Screen FPS())
  Move Object 10, -5
  UpdateObjectGroup( EntityGroup, CurrentMap )
  UpdateCamera( Current Camera(), CurrentMap)
  Nice Sleep 5
  Sync
Loop

Function AddMap(sName$)
  _New Map()
  Map() = DefaultMap
  Map().Name$ = sName$
  m = __n (Map())	` Must be a space between the parenthesis and a constant
EndFunction m

Function UpdateObjectGroup( iGroup, iMapID )
  o = First Object In Group( iGroup)
  While o > 0
    x# = Wrap( Object Position X(o), Map(iMapID).West#, Map(iMapID).East# )
    y# = Wrap( Object Position Y(o), Map(iMapID).Bottom#, Map(iMapID).Top# )
    z# = Wrap( Object Position Z(o), Map(iMapID).South#, Map(iMapID).North# )	
    Position Object o, x#, y#, z#
    o = Next Object In Group( iGroup )
  Endwhile
Endfunction

Function UpdateCamera(iCam, iMapID)
  Control Camera Using Arrowkeys iCam, 1, 1
  x# = Wrap( Camera Position X(o), Map(iMapID).West#, Map(iMapID).East# )
  y# = Wrap( Camera Position Y(o), Map(iMapID).Bottom#, Map(iMapID).Top# )
  z# = Wrap( Camera Position Z(o), Map(iMapID).South#, Map(iMapID).North# )	
  Position Camera o, x#, y#, z#	
Endfunction

+ Code Snippet

` Map Wrapping
` Chris Tate
` BinaryModular.com | SportsFiction.net


` Common shortcuts
#CONSTANT _NEW Array Insert At Bottom
#CONSTANT __N Array Count

Sync On : Sync Rate 0

Type MapType
  East#
  West#
  North#
  South#
  Top#
  Bottom#
  Name$
EndType

Global Dim Map(1) as MapType
Global DefaultMap as MapType
  DefaultMap.East# = 100
  DefaultMap.West# = -100
  DefaultMap.North# = 100
  DefaultMap.South# = -100
  DefaultMap.Top# = 100
  DefaultMap.Bottom# = -100
  DefaultMap.Name$ = "Untitled map"

Global CurrentMap

CurrentMap = AddMap("MyMapName")

Global EntityGroup = 1

` Build your objects
For i = 10 to 20
  Make Object Cube i, 10
  Place Object In Group i, EntityGroup
Next i 

Make Matrix 1, 200, 200, 5, 5
Position Matrix 1, -100, 0, -100
Position Camera -30, 3, -10
Point Camera 0, 0, 0

Do
  Text 0, 0, Str$(Screen FPS())
  Move Object 10, -5
  UpdateObjectGroup( EntityGroup, CurrentMap )
  UpdateCamera( Current Camera(), CurrentMap)
  Nice Sleep 5
  Sync
Loop

Function AddMap(sName$)
  _New Map()
  Map() = DefaultMap
  Map().Name$ = sName$
  m = __n (Map())	` Must be a space between the parenthesis and a constant
EndFunction m

Function UpdateObjectGroup( iGroup, iMapID )
  o = First Object In Group( iGroup)
  While o > 0
    x# = Wrap( Object Position X(o), Map(iMapID).West#, Map(iMapID).East# )
    y# = Wrap( Object Position Y(o), Map(iMapID).Bottom#, Map(iMapID).Top# )
    z# = Wrap( Object Position Z(o), Map(iMapID).South#, Map(iMapID).North# )	
    Position Object o, x#, y#, z#
    o = Next Object In Group( iGroup )
  Endwhile
Endfunction

Function UpdateCamera(iCam, iMapID)
  Control Camera Using Arrowkeys iCam, 1, 1
  x# = Wrap( Camera Position X(o), Map(iMapID).West#, Map(iMapID).East# )
  y# = Wrap( Camera Position Y(o), Map(iMapID).Bottom#, Map(iMapID).Top# )
  z# = Wrap( Camera Position Z(o), Map(iMapID).South#, Map(iMapID).North# )	
  Position Camera o, x#, y#, z#	
Endfunction

Test the above code and move the camera, see what happens to you when you get to the edge of the map.

And if you are anal about performance like me; put objects that have actually moved in a given group and update those ones, then remove them from that group back into the original group; no need to update objects that don't need updating..

The principle is to keep the map size small enough to leave two or tree decimal points, for precise movement within the 7 digits you have to play with. The world might need to be a bit smaller if using Physics simulators.

Back to top

Profile PM Email Website

Mobiius

Valued Member

22

Years of Service

User Offline

Joined: 27th Feb 2003

Location: The Cold North

Posted: 4th Apr 2013 20:37

Link

Or you could split your interpretation of space into sectors, and have each sector stand alone, so when you move from one sector to another, you reset the players position to one edge of the new sector. Like cells.

I live for video games! (And beers, and football, and cars!)
See what I live for here: [url]http:\\www.TeamDefiant.co.uk[/url]

Back to top

Profile PM Email Website

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 4th Apr 2013 23:56

Link

I thought about a way to shift all other objects positions in space in such a way as if i move the ship.Because i want to use some of the objects as landmarks and they should be marked no matter if they are actually visible or not 100 units away or 10000000.

Now if the player click on the sprite representing the object in space it turn the ship toward this object and move to it.You might say it's like wire travel, there is no free roam to distant objects.

I believe if dummy object is created to desired destination and pointed to ship and moved with the speed of the ship and every landmark object retain it's position relative to dummy object it will look like if the ship is moving.

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

Back to top

Profile PM

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 9th Apr 2013 20:53

Link

Here it is a demo.I solve the problem the way i described in the previous post.It looks like if the sphere is moving and the camera is folowing but actually everything else is moving.It doesn't look very elegant with small objects, because it make objects tremble a bit,but since i'm gonna use it for planets and this kind of stuff it's ok.

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

Chris Tate

DBPro Master

16

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 10th Apr 2013 02:26

Link

If it looks good it is good.

I'm not sure why you didn't keep it simple and put things where they need to go with double floats and wrap the result like I demonstrated; but if this works and runs then you've cracked it either way.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Moveobject

Attachments