Rotation in 3 axes to match another object's orientation

Author

Message

Zinc Avenger

21

Years of Service

User Offline

Joined: 29th Jan 2003

Location:

Posted: 29th Jan 2003 16:43

Link

Hi all,

I have two objects, one currently represented by the variable POINTER, the other represented by the variable MOVER.

I can rotate POINTER in all 3 axes, to point it in any direction. At any time I press Return, and then MOVER will slowly turn to face in the same direction as POINTER. It is the delay part which stumps me, since simply using Set Object To Object Orientation MOVER, POINTER works fine but does it instantly rather than gradually.

Now, the problem is... it works once, then every rotation after that seems unpredictable.

I suspect that I am missing something basic.

Here is what I have so far:

+ Code Snippet

REM This part sets the direction I want MOVER to head in.
if ReturnKey() = 1
   NEW_X_HEADING# = Object Orientation X( POINTER )
   NEW_Y_HEADING# = Object Orientation Y( POINTER )
   NEW_Z_HEADING# = Object Orientation Z( POINTER )
endif

REM This part SHOULD rotate MOVER in all three axes to point the same way as POINTER.

X_TURN# = CurveAngle( NEW_X_HEADING#, Object Orientation X( MOVER ), 15 )
Y_TURN# = CurveAngle( NEW_Y_HEADING#, Object Orientation Y( MOVER ), 15 )
Z_TURN# = CurveAngle( NEW_Z_HEADING#, Object Orientation Z( MOVER ), 15 )

Turn Object Left MOVER, Y_TURN#
Pitch Object Up MOVER, X_TURN#
Roll Object Right MOVER, Z_TURN#

Any advice?

ZnA

Back to top

Profile PM

Fluffy Paul

21

Years of Service

User Offline

Joined: 16th Dec 2002

Location: United Kingdom

Posted: 29th Jan 2003 18:27

Link

Turn, roll and pitch are all flight sim commands. Have you tried using the Euler commands?
You know: "rotate object o, z#, y#, x#"
and all that (assuming object rotation is ZYX order and not XYZ).

Ending a sentence with a French word is so passé

Back to top

Profile PM Email

Stevo

22

Years of Service

User Offline

Joined: 4th Oct 2002

Location:

Posted: 31st Jan 2003 00:57

Link

Hi I'm not really sure what you are trying to do but this bit of code is something I was doing for keeping wheels on a car. Obviously the spheres would be replaced with wheels.
I made some with milkshape which also included rotation.

rem positioning other objects so they stay in the same place
rem relative to you
rem I've used Dark basic  example 4 for this

rem Make a simple scene for the camera to look at
make matrix 1,10000.0,10000.0,25,25
load bitmap "your texture.bmp",1
get image 1,0,0,64,64
delete bitmap 1
prepare matrix texture 1,1,2,2
randomize matrix 1,50.0
set matrix height 1,12,12,300.0
update matrix 1

rem Create blob character to follow

rem import your own 3d object here
make object cone 1,100.0
xrotate object 1,180
rem use cylinders, or import your own wheels
make object sphere 2,200.0
make object sphere 3,200.0
rem Set variables for character position
x#=2500
z#=2500

rem Activate manual sync
sync on

rem Begin loop
do

rem Control camera with arrow keys
if upkey()=1 then x#=newxvalue(x#,a#,10) : z#=newzvalue(z#,a#,10)
if downkey()=1 then x#=newxvalue(x#,a#,-10) : z#=newzvalue(z#,a#,-10)
if leftkey()=1 then a#=wrapvalue(a#-10.0)
if rightkey()=1 then a#=wrapvalue(a#+10.0)

rem Update character
y#=get ground height(1,x#,z#)+50.0
position object 1,x#,y#,z#
yrotate object 1,a#

rem Position camera to the back of the character
ca#=wrapvalue(a#)
cx#=newxvalue(x#,wrapvalue(ca#+180),300)
cz#=newzvalue(z#,wrapvalue(ca#+180),300)

rem notice the distances (600 here) and the angles 45 & 315
rem are the same for each wheel, other wise they will wobble!

rem wheel 1
w1x#=newxvalue(x#,wrapvalue(ca#+45),600)
w1z#=newzvalue(z#,wrapvalue(ca#+45),600)
rem wheel 2
w2x#=newxvalue(x#,wrapvalue(ca#+315),600)
w2z#=newzvalue(z#,wrapvalue(ca#+315),600)

rem camera
cy#=get ground height(1,cx#,cz#)+100.0
position camera cx#,cy#+30,cz#

rem position other object(s) in the same way as camera
rem wheel 1, 2
position object 2,w1x#,y#,w1z#
position object 3,w2x#,y#,w2z#
yrotate object 2, wrapvalue(ca#)
yrotate object 3, wrapvalue(ca#)
yrotate camera wrapvalue(ca#)

rem Syncronise
sync

rem End loop
loop

+ Code Snippet

rem positioning other objects so they stay in the same place
rem relative to you
rem I've used Dark basic  example 4 for this

rem Make a simple scene for the camera to look at
make matrix 1,10000.0,10000.0,25,25
load bitmap "your texture.bmp",1
get image 1,0,0,64,64
delete bitmap 1
prepare matrix texture 1,1,2,2
randomize matrix 1,50.0
set matrix height 1,12,12,300.0
update matrix 1

rem Create blob character to follow

rem import your own 3d object here
make object cone 1,100.0
xrotate object 1,180
rem use cylinders, or import your own wheels
make object sphere 2,200.0
make object sphere 3,200.0
rem Set variables for character position
x#=2500
z#=2500

rem Activate manual sync
sync on

rem Begin loop
do

rem Control camera with arrow keys
if upkey()=1 then x#=newxvalue(x#,a#,10) : z#=newzvalue(z#,a#,10)
if downkey()=1 then x#=newxvalue(x#,a#,-10) : z#=newzvalue(z#,a#,-10)
if leftkey()=1 then a#=wrapvalue(a#-10.0)
if rightkey()=1 then a#=wrapvalue(a#+10.0)

rem Update character
y#=get ground height(1,x#,z#)+50.0
position object 1,x#,y#,z#
yrotate object 1,a#

rem Position camera to the back of the character
ca#=wrapvalue(a#)
cx#=newxvalue(x#,wrapvalue(ca#+180),300)
cz#=newzvalue(z#,wrapvalue(ca#+180),300)

rem notice the distances (600 here) and the angles 45 & 315
rem are the same for each wheel, other wise they will wobble!

rem wheel 1
w1x#=newxvalue(x#,wrapvalue(ca#+45),600)
w1z#=newzvalue(z#,wrapvalue(ca#+45),600)
rem wheel 2
w2x#=newxvalue(x#,wrapvalue(ca#+315),600)
w2z#=newzvalue(z#,wrapvalue(ca#+315),600)

rem camera
cy#=get ground height(1,cx#,cz#)+100.0
position camera cx#,cy#+30,cz#

rem position other object(s) in the same way as camera
rem wheel 1, 2
position object 2,w1x#,y#,w1z#
position object 3,w2x#,y#,w2z#
yrotate object 2, wrapvalue(ca#)
yrotate object 3, wrapvalue(ca#)
yrotate camera wrapvalue(ca#)

rem Syncronise
sync

rem End loop
loop

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Rotation in 3 axes to match another object's orientation