Help requested with object rotation/movement using a gravity object

Author

Message

Kayl669

21

Years of Service

User Offline

Joined: 4th Jul 2005

Location: United States

Posted: 19th Oct 2011 08:25

Link

I am having trouble with moving my gravity object. I have a sphere and a gravity object(box)which is pointed toward the spheres center. Is there a way to rotate and move the gravity object forward and backwards while moving toward spheres center?

Here is what I have so far:

// Spherical Collision Detection //////////////////////////////////

IF KEYSTATE(KEY_UP_ARROW) = 1 THEN MOVE OBJECT GravityBox, 0.5
IF KEYSTATE(KEY_DOWN_ARROW) = 1 THEN MOVE OBJECT GravityBox, -0.2

IF KEYSTATE(KEY_LEFT_ARROW) = 1 
    XROTATE OBJECT GravityBox, 0.5
    MOVE OBJECT GravityBox, 0.5
ENDIF

IF KEYSTATE(KEY_RIGHT_ARROW) = 1 
    XROTATE OBJECT GravityBox, -0.5
    MOVE OBJECT GravityBox, -0.5
ENDIF

// POSITION CAMERA EntityX(PLAYER), EntityY(PLAYER), EntityZ(PLAYER)
// ROTATE CAMERA EntityAngX(PLAYER), EntityAngY(PLAYER), EntityAngZ(PLAYER)

oldx# = OBJECT POSITION X(GravityBox)
oldy# = OBJECT POSITION Y(GravityBox)
oldz# = OBJECT POSITION Z(GravityBox)

POINT OBJECT GravityBox, 0.0, 0.0, 0.0
MOVE OBJECT GravityBox, 0.1

x# = OBJECT POSITION X(GravityBox)
y# = OBJECT POSITION Y(GravityBox)
z# = OBJECT POSITION Z(GravityBox)

coll = SC_sphereSlide( 0, oldx#, oldy#, oldz#, x#, y#, z#, 1, 0 )

IF coll > 0

newx# = SC_getCollisionSlideX()
    newy# = SC_getCollisionSlideY()
    newz# = SC_getCollisionSlideZ()
    POSITION OBJECT GravityBox, newx#, newy#, newz#
    
ENDIF

POSITION OBJECT PLAYER, EntityX(GravityBox), EntityY(GravityBox), EntityZ(GravityBox)

///////////////////////////////////////////////////////////////////

+ Code Snippet

// Spherical Collision Detection //////////////////////////////////

IF KEYSTATE(KEY_UP_ARROW) = 1 THEN MOVE OBJECT GravityBox, 0.5
IF KEYSTATE(KEY_DOWN_ARROW) = 1 THEN MOVE OBJECT GravityBox, -0.2

IF KEYSTATE(KEY_LEFT_ARROW) = 1 
    XROTATE OBJECT GravityBox, 0.5
    MOVE OBJECT GravityBox, 0.5
ENDIF

IF KEYSTATE(KEY_RIGHT_ARROW) = 1 
    XROTATE OBJECT GravityBox, -0.5
    MOVE OBJECT GravityBox, -0.5
ENDIF

// POSITION CAMERA EntityX(PLAYER), EntityY(PLAYER), EntityZ(PLAYER)
// ROTATE CAMERA EntityAngX(PLAYER), EntityAngY(PLAYER), EntityAngZ(PLAYER)

oldx# = OBJECT POSITION X(GravityBox)
oldy# = OBJECT POSITION Y(GravityBox)
oldz# = OBJECT POSITION Z(GravityBox)

POINT OBJECT GravityBox, 0.0, 0.0, 0.0
MOVE OBJECT GravityBox, 0.1

x# = OBJECT POSITION X(GravityBox)
y# = OBJECT POSITION Y(GravityBox)
z# = OBJECT POSITION Z(GravityBox)

coll = SC_sphereSlide( 0, oldx#, oldy#, oldz#, x#, y#, z#, 1, 0 )

IF coll > 0

    newx# = SC_getCollisionSlideX()
    newy# = SC_getCollisionSlideY()
    newz# = SC_getCollisionSlideZ()
    POSITION OBJECT GravityBox, newx#, newy#, newz#
    
ENDIF

POSITION OBJECT PLAYER, EntityX(GravityBox), EntityY(GravityBox), EntityZ(GravityBox)

///////////////////////////////////////////////////////////////////

I would like to use the DBPRO rotation commands if possible. But I am lost as to how to make the object move properly using them as the box keeps pointing toward sphere center.

Back to top

Profile PM

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 19th Oct 2011 12:17

Link

You could use rotation matrices.

+ Code Snippet

        / 1        0        0        \
Rx(a) = | 0        cos(a)   -sin(a)  |
        \ 0        sin(a)   cos(a)   /

        / cos(a)   0        -sin(a)  \
Ry(a) = | 0        1        0        |
        \ sin(a)   0        cos(a)   /

        / cos(a)   -sin(a)  0        \
Rz(a) = | sin(a)   cos(a)   0        |
        \ 0        0        1        /

Where:

+ Code Snippet

/x'\   / 1        0        0        \   /x\
|y'| = | 0        cos(a)   -sin(a)  | * |y|
\z'/   \ 0        sin(a)   cos(a)   /   \z/

/x'\   / cos(a)   0        -sin(a)  \   /x\
|y'| = | 0        1        0        | * |y|
\z'/   \ sin(a)   0        cos(a)   /   \z/

/x'\   / cos(a)   -sin(a)  0        \   /x\
|y'| = | sin(a)   cos(a)   0        | * |y|
\z'/   \ 0        0        1        /   \z/

Example for rotation on the x axis:

+ Code Snippet

remstart
        / 1        0        0        \
Rx(a) = | 0        cos(a)   -sin(a)  |
        \ 0        sin(a)   cos(a)   /
remend

rem set coordinates
x#=50
y#=10
z#=20

rem set angle to rotate
a#=30.5

rem rotate on x axis
nx# = (1*x#) + (0*y#)       + (0*z#)
ny# = (0*x#) + (cos(a#)*y#) - (sin(a#)*z#)
nz# = (0*x#) + (sin(a#)*y#) + (cos(a#)*z#)

rem replace old values with new values
x#=nx#
y#=ny#
z#=nz#

TheComet

Back to top

Profile PM Email Website

WLGfx

18

Years of Service

User Offline

Joined: 1st Nov 2007

Location: NW United Kingdom

Posted: 19th Oct 2011 15:33

Link

@TheComet - Them formulas were what I've been looking for, for quite some time. I think I googled the wrong info so I didn't get it. Thanks...

Mental arithmetic? Me? (That's for computers) I can't subtract a fart from a plate of beans!
Warning! May contain Nuts!

Back to top

Profile PM Email Website

Kayl669

21

Years of Service

User Offline

Joined: 4th Jul 2005

Location: United States

Posted: 19th Oct 2011 19:55

Link

I think I am doing something wrong. It is not working for me:

// Spherical Collision Detection //////////////////////////////////

// POSITION CAMERA EntityX(PLAYER), EntityY(PLAYER), EntityZ(PLAYER)
// ROTATE CAMERA EntityAngX(PLAYER), EntityAngY(PLAYER), EntityAngZ(PLAYER)

oldx# = OBJECT POSITION X(GravityBox)
oldy# = OBJECT POSITION Y(GravityBox)
oldz# = OBJECT POSITION Z(GravityBox)

IF KEYSTATE(KEY_UP_ARROW) = 1 THEN MOVE OBJECT GravityBox, 0.5
IF KEYSTATE(KEY_DOWN_ARROW) = 1 THEN MOVE OBJECT GravityBox, -0.2

// Rotation on the X Axis(Using Matrices)...

rem set coordinates
_x# = OBJECT POSITION X(GravityBox)
_y# = OBJECT POSITION Y(GravityBox)
_z# = OBJECT POSITION Z(GravityBox)

IF KEYSTATE(KEY_LEFT_ARROW) = 1 THEN INC WRAPVALUE(a#), 0.5
IF KEYSTATE(KEY_RIGHT_ARROW) = 1 THEN DEC WRAPVALUE(a#), 0.5

rem rotate on x axis
nx# = (1*x#) + (0*y#)       + (0*z#)
ny# = (0*x#) + (cos(a#)*y#) - (sin(a#)*z#)
nz# = (0*x#) + (sin(a#)*y#) + (cos(a#)*z#)

rem replace old values with new values
_x#=nx#
_y#=ny#
_z#=nz#

ROTATE OBJECT GravityBox, _x#, _y#, _z#
POINT OBJECT GravityBox, 0.0, 0.0, 0.0
MOVE OBJECT GravityBox, 0.1

x# = OBJECT POSITION X(GravityBox)
y# = OBJECT POSITION Y(GravityBox)
z# = OBJECT POSITION Z(GravityBox)

coll = SC_sphereSlide( 0, oldx#, oldy#, oldz#, x#, y#, z#, 1, 0 )

IF coll > 0

newx# = SC_getCollisionSlideX()
    newy# = SC_getCollisionSlideY()
    newz# = SC_getCollisionSlideZ()
    POSITION OBJECT GravityBox, newx#, newy#, newz#
    
ENDIF

POSITION OBJECT PLAYER, EntityX(GravityBox), EntityY(GravityBox), EntityZ(GravityBox)

///////////////////////////////////////////////////////////////////

+ Code Snippet

// Spherical Collision Detection //////////////////////////////////

// POSITION CAMERA EntityX(PLAYER), EntityY(PLAYER), EntityZ(PLAYER)
// ROTATE CAMERA EntityAngX(PLAYER), EntityAngY(PLAYER), EntityAngZ(PLAYER)

oldx# = OBJECT POSITION X(GravityBox)
oldy# = OBJECT POSITION Y(GravityBox)
oldz# = OBJECT POSITION Z(GravityBox)

IF KEYSTATE(KEY_UP_ARROW) = 1 THEN MOVE OBJECT GravityBox, 0.5
IF KEYSTATE(KEY_DOWN_ARROW) = 1 THEN MOVE OBJECT GravityBox, -0.2

// Rotation on the X Axis(Using Matrices)...

rem set coordinates
_x# = OBJECT POSITION X(GravityBox)
_y# = OBJECT POSITION Y(GravityBox)
_z# = OBJECT POSITION Z(GravityBox)

IF KEYSTATE(KEY_LEFT_ARROW) = 1 THEN INC WRAPVALUE(a#), 0.5
IF KEYSTATE(KEY_RIGHT_ARROW) = 1 THEN DEC WRAPVALUE(a#), 0.5

rem rotate on x axis
nx# = (1*x#) + (0*y#)       + (0*z#)
ny# = (0*x#) + (cos(a#)*y#) - (sin(a#)*z#)
nz# = (0*x#) + (sin(a#)*y#) + (cos(a#)*z#)

rem replace old values with new values
_x#=nx#
_y#=ny#
_z#=nz#

ROTATE OBJECT GravityBox, _x#, _y#, _z#
POINT OBJECT GravityBox, 0.0, 0.0, 0.0
MOVE OBJECT GravityBox, 0.1

x# = OBJECT POSITION X(GravityBox)
y# = OBJECT POSITION Y(GravityBox)
z# = OBJECT POSITION Z(GravityBox)

coll = SC_sphereSlide( 0, oldx#, oldy#, oldz#, x#, y#, z#, 1, 0 )

IF coll > 0

    newx# = SC_getCollisionSlideX()
    newy# = SC_getCollisionSlideY()
    newz# = SC_getCollisionSlideZ()
    POSITION OBJECT GravityBox, newx#, newy#, newz#
    
ENDIF

POSITION OBJECT PLAYER, EntityX(GravityBox), EntityY(GravityBox), EntityZ(GravityBox)

///////////////////////////////////////////////////////////////////

There must be a simpler way using DBP rotation/position controls. Well, at least the collision detection works

Back to top

Profile PM

Kayl669

21

Years of Service

User Offline

Joined: 4th Jul 2005

Location: United States

Posted: 19th Oct 2011 22:15

Link

Hey, I figured it out! Here is the code:

// Spherical Collision Detection //////////////////////////////////

oldx# = OBJECT POSITION X(GravityBox)
oldy# = OBJECT POSITION Y(GravityBox)
oldz# = OBJECT POSITION Z(GravityBox)

// MOVE THE PLAYER /////////////////////////////////////////////

IF KEYSTATE(KEY_UP_ARROW) = 1 
    MOVE OBJECT PLAYER, 0.1
    POSITION OBJECT GravityBox, EntityX(PLAYER), EntityY(PLAYER), EntityZ(PLAYER)
ENDIF

IF KEYSTATE(KEY_DOWN_ARROW) = 1 
    MOVE OBJECT PLAYER, -0.08
    POSITION OBJECT GravityBox, EntityX(PLAYER), EntityY(PLAYER), EntityZ(PLAYER)
ENDIF

IF KEYSTATE(KEY_LEFT_ARROW) = 1
    TURN OBJECT LEFT PLAYER, 0.5
ENDIF

IF KEYSTATE(KEY_RIGHT_ARROW) = 1
    TURN OBJECT RIGHT PLAYER, 0.5
ENDIF

////////////////////////////////////////////////////////////////

POINT OBJECT GravityBox, 0.0, 0.0, 0.0
MOVE OBJECT GravityBox, 0.1

x# = OBJECT POSITION X(GravityBox)
y# = OBJECT POSITION Y(GravityBox)
z# = OBJECT POSITION Z(GravityBox)

coll = SC_sphereSlide( 0, oldx#, oldy#, oldz#, x#, y#, z#, 1, 0 )

IF coll > 0

newx# = SC_getCollisionSlideX()
    newy# = SC_getCollisionSlideY()
    newz# = SC_getCollisionSlideZ()
    POSITION OBJECT GravityBox, newx#, newy#, newz#
    
ENDIF

POSITION OBJECT PLAYER, EntityX(GravityBox), EntityY(GravityBox), EntityZ(GravityBox)

POSITION CAMERA EntityX(PLAYER), EntityY(PLAYER), EntityZ(PLAYER)-3
ROTATE CAMERA EntityAngX(PLAYER), EntityAngY(PLAYER), EntityAngZ(PLAYER)

///////////////////////////////////////////////////////////////////

+ Code Snippet

// Spherical Collision Detection //////////////////////////////////

oldx# = OBJECT POSITION X(GravityBox)
oldy# = OBJECT POSITION Y(GravityBox)
oldz# = OBJECT POSITION Z(GravityBox)

// MOVE THE PLAYER /////////////////////////////////////////////

IF KEYSTATE(KEY_UP_ARROW) = 1 
    MOVE OBJECT PLAYER, 0.1
    POSITION OBJECT GravityBox, EntityX(PLAYER), EntityY(PLAYER), EntityZ(PLAYER)
ENDIF

IF KEYSTATE(KEY_DOWN_ARROW) = 1 
    MOVE OBJECT PLAYER, -0.08
    POSITION OBJECT GravityBox, EntityX(PLAYER), EntityY(PLAYER), EntityZ(PLAYER)
ENDIF

IF KEYSTATE(KEY_LEFT_ARROW) = 1
    TURN OBJECT LEFT PLAYER, 0.5
ENDIF

IF KEYSTATE(KEY_RIGHT_ARROW) = 1
    TURN OBJECT RIGHT PLAYER, 0.5
ENDIF

////////////////////////////////////////////////////////////////

POINT OBJECT GravityBox, 0.0, 0.0, 0.0
MOVE OBJECT GravityBox, 0.1

x# = OBJECT POSITION X(GravityBox)
y# = OBJECT POSITION Y(GravityBox)
z# = OBJECT POSITION Z(GravityBox)

coll = SC_sphereSlide( 0, oldx#, oldy#, oldz#, x#, y#, z#, 1, 0 )

IF coll > 0

    newx# = SC_getCollisionSlideX()
    newy# = SC_getCollisionSlideY()
    newz# = SC_getCollisionSlideZ()
    POSITION OBJECT GravityBox, newx#, newy#, newz#
    
ENDIF

POSITION OBJECT PLAYER, EntityX(GravityBox), EntityY(GravityBox), EntityZ(GravityBox)

POSITION CAMERA EntityX(PLAYER), EntityY(PLAYER), EntityZ(PLAYER)-3
ROTATE CAMERA EntityAngX(PLAYER), EntityAngY(PLAYER), EntityAngZ(PLAYER)

///////////////////////////////////////////////////////////////////

I just had to reposition the gravity object after moving the player forward or backward.

I really hope this helps everyone in the DBPRO community

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Help requested with object rotation/movement using a gravity object