3D Rotaion (Edit this code, smart guy)

Author

Message

Armitage

22

Years of Service

User Offline

Joined: 18th Nov 2002

Location: Canada

Posted: 19th Nov 2002 00:03

Link

Hello. The snippet below is my attempt at 3D rotation.

The blue ball is the origin. The red ball rotates about the Z axis. This is fine.

What I'm missing is the ability to rotate the ball about the X axis at the same time. I'm not sure how to do this.

+ Code Snippet

autocam off
set window off
sync on
sync rate 0


backdrop on
color backdrop rgb(10,10,10)

position camera 0,0,-100
point camera 0,0,0

make object sphere 2, 5
color object 2, rgb(0,0,255)

make object sphere 1, 10
color object 1, rgb(255,0,0)

do

if rightkey()=1 then anz#=anz#+1.0
if leftkey()=1 then anz#=anz#-1.0

if upkey()=1 then anx#=anx#+1.0
if downkey()=1 then anx#=anx#-1.0


bally#= cos(anz#) *50
ballx#= sin(anz#) *50
ballz#= sin(anx#) *50

position object 1, ballx#,bally#,ballz#

sync
loop

Leftkey and rightkey rotate the ball about the Z axis. Upkey and downkey make the ball do silly things. That's what I want to change.

If someone could show me how to do this, I'd really appreciate it.

Back to top

Profile PM

The Darthster

22

Years of Service

User Offline

Joined: 25th Sep 2002

Location: United Kingdom

Posted: 19th Nov 2002 00:26

Link

You'll need to include this function, this will allow you to rotate an object around 3d coordinates based on the 3d polar coordinates of the start of the orbit.

+ Code Snippet

Function Polar_Object(object#,center_x#,center_y#,center_z#,horizontal_angle#,vertical_angle#,distance#)
   rem Perform polar calculations using sin and cosine
   new_x# = center_x# + distance#*cos(vertical_angle#)*sin(horizontal_angle#)
   new_y# = center_y# + distance#*sin(vertical_angle#)
   new_z# = center_z# + distance#*cos(vertical_angle#)*cos(horizontal_angle#)
   position object object#,new_x#,new_y#,new_z#
endfunction

This is TGWDNGHN's code, I lost my own function which did the same thing (I think)

Back to top

Profile PM Email Website

Armitage

22

Years of Service

User Offline

Joined: 18th Nov 2002

Location: Canada

Posted: 19th Nov 2002 01:15

Link

Thanks for that function! That was timely and completely effective. It seemed like you were swatting a fly (WHAP!) from any angle you choose.

For those interested in seeing this work, here's the same thing with the Polar_Object function implemented, and a wireframe sphere that proves that this works.

+ Code Snippet

autocam off
set window off
sync on
sync rate 0


backdrop on
color backdrop rgb(10,10,10)

position camera 0,0,-100
point camera 0,0,0

make object sphere 2, 5
color object 2, rgb(0,0,255)

make object sphere 1, 10
color object 1, rgb(255,0,0)

make object sphere 3, 100
color object 3, rgb(255,255,0)
set object 3, 0, 1, 0

do

if rightkey()=1 then anz#=anz#+1.0
if leftkey()=1 then anz#=anz#-1.0

if upkey()=1 then anx#=anx#+1.0
if downkey()=1 then anx#=anx#-1.0

Polar_Object(1.0, 0.0, 0.0, 0.0, anz#,anx#,50.0)

sync
loop

Function Polar_Object(object#,center_x#,center_y#,center_z#,horizontal_angle#,vertical_angle#,distance#)
   rem Perform polar calculations using sin and cosine
   new_x# = center_x# + distance#*cos(vertical_angle#)*sin(horizontal_angle#)
   new_y# = center_y# + distance#*sin(vertical_angle#)
   new_z# = center_z# + distance#*cos(vertical_angle#)*cos(horizontal_angle#)
   position object object#,new_x#,new_y#,new_z#
endfunction

Cheers!

I suppose this could help me with my little (atmospheric) space flight game. My little spaceship has some difficulty climbing (or falling) at angles greater than ~45 degrees. Soon, you'll be able to do a mayday nose-dive into Planet X.

ICQ: 92636554

Back to top

Profile PM

brittd

22

Years of Service

User Offline

Joined: 28th Oct 2002

Location:

Posted: 19th Nov 2002 05:05

Link

cool code, where were you guys a month ago.

Back to top

Profile PM

Armitage

22

Years of Service

User Offline

Joined: 18th Nov 2002

Location: Canada

Posted: 19th Nov 2002 06:19

Link

Well, this has spawned some more goodness. Using the Polar_Object function, I've perfected my MouseLook routines! RAWK! I've been waiting so damn long to make a descent Mouselook.

I've also added Mouse Smoothing, which is fun.

Check this out, for your #including pleasure:

FUNCTION MouseLook(Sensitivity#,WalkSpeed#,MouseSmoothing#)
` /me recommends:
` Sensitivity#=3.0
` WalkSpeed#=1.0 (to start)
` MouseSmoothing#=5.0 (Just to see the effect. 1.0 or less will turn in off)

HeadingX#=wrapvalue(HeadingX#+(mousemovex()/Sensitivity#))
HeadingZ#=wrapvalue(HeadingZ#+(mousemovey()/Sensitivity#))

`Forward
if KEYSTATE(17)=1
   PolarMouseLookAdvance(CAMERA POSITION X(),CAMERA POSITION Y(),CAMERA POSITION Z(),HeadingZ#,HeadingX#,WalkSpeed#)
endif

`Backward
if KEYSTATE(31)=1
   PolarMouseLookAdvance(CAMERA POSITION X(),CAMERA POSITION Y(),CAMERA POSITION Z(),HeadingZ#,HeadingX#,-1*(WalkSpeed#))
endif

`Strafe Left
if KEYSTATE(32)=1
   PolarMouseLookStrafe(CAMERA POSITION X(),CAMERA POSITION Y(),CAMERA POSITION Z(),HeadingZ#,HeadingX#+90,WalkSpeed#)
endif

`Strafe Right
if KEYSTATE(30)=1
   PolarMouseLookStrafe(CAMERA POSITION X(),CAMERA POSITION Y(),CAMERA POSITION Z(),HeadingZ#,HeadingX#-90,WalkSpeed#)
endif

`Rise
if  mouseclick()=2
   position camera CAMERA POSITION X(),CAMERA POSITION Y()+WalkSpeed#,CAMERA POSITION Z()
endif

`Fall
if KEYSTATE(57)=1
   position camera CAMERA POSITION X(),CAMERA POSITION Y()-WalkSpeed#,CAMERA POSITION Z()
endif

if MouseSmoothing#>=1

hz#=CURVEANGLE(headingz#,CAMERA ANGLE x(), MouseSmoothing#)
hx#=CURVEANGLE(headingx#,CAMERA ANGLE y(), MouseSmoothing#)

ROTATE CAMERA hz#, hx#, 0

else

ROTATE CAMERA headingz#, headingx#, 0

endif

ENDFUNCTION

Function PolarMouseLookAdvance(posx#,posy#,posz#,anX#,anZ#,speed#)
   rem Perform polar calculations using sin and cosine
   new_x# = posx# + speed#*cos(anx#)*sin(anz#)
   new_y# = posy# - speed#*sin(anx#)
   new_z# = posz# + speed#*cos(anx#)*cos(anz#)
   POSITION CAMERA new_x#,new_y#,new_z#
endfunction

Function PolarMouseLookStrafe(posx#,posy#,posz#,anX#,anZ#,speed#)
   new_x# = posx# + speed#*sin(anz#)
   new_y# = posy#
   new_z# = posz# + speed#*cos(anz#)
   POSITION CAMERA new_x#,new_y#,new_z#
endfunction

+ Code Snippet

FUNCTION MouseLook(Sensitivity#,WalkSpeed#,MouseSmoothing#)
` /me recommends:
` Sensitivity#=3.0
` WalkSpeed#=1.0 (to start)
` MouseSmoothing#=5.0 (Just to see the effect. 1.0 or less will turn in off)

HeadingX#=wrapvalue(HeadingX#+(mousemovex()/Sensitivity#))
HeadingZ#=wrapvalue(HeadingZ#+(mousemovey()/Sensitivity#))

`Forward
if KEYSTATE(17)=1
   PolarMouseLookAdvance(CAMERA POSITION X(),CAMERA POSITION Y(),CAMERA POSITION Z(),HeadingZ#,HeadingX#,WalkSpeed#)
endif

`Backward
if KEYSTATE(31)=1
   PolarMouseLookAdvance(CAMERA POSITION X(),CAMERA POSITION Y(),CAMERA POSITION Z(),HeadingZ#,HeadingX#,-1*(WalkSpeed#))
endif

`Strafe Left
if KEYSTATE(32)=1
   PolarMouseLookStrafe(CAMERA POSITION X(),CAMERA POSITION Y(),CAMERA POSITION Z(),HeadingZ#,HeadingX#+90,WalkSpeed#)
endif

`Strafe Right
if KEYSTATE(30)=1
   PolarMouseLookStrafe(CAMERA POSITION X(),CAMERA POSITION Y(),CAMERA POSITION Z(),HeadingZ#,HeadingX#-90,WalkSpeed#)
endif

`Rise
if  mouseclick()=2
   position camera CAMERA POSITION X(),CAMERA POSITION Y()+WalkSpeed#,CAMERA POSITION Z()
endif

`Fall
if KEYSTATE(57)=1
   position camera CAMERA POSITION X(),CAMERA POSITION Y()-WalkSpeed#,CAMERA POSITION Z()
endif

if MouseSmoothing#>=1

hz#=CURVEANGLE(headingz#,CAMERA ANGLE x(), MouseSmoothing#)
hx#=CURVEANGLE(headingx#,CAMERA ANGLE y(), MouseSmoothing#)

ROTATE CAMERA hz#, hx#, 0

else

ROTATE CAMERA headingz#, headingx#, 0

endif

ENDFUNCTION

Function PolarMouseLookAdvance(posx#,posy#,posz#,anX#,anZ#,speed#)
   rem Perform polar calculations using sin and cosine
   new_x# = posx# + speed#*cos(anx#)*sin(anz#)
   new_y# = posy# - speed#*sin(anx#)
   new_z# = posz# + speed#*cos(anx#)*cos(anz#)
   POSITION CAMERA new_x#,new_y#,new_z#
endfunction

Function PolarMouseLookStrafe(posx#,posy#,posz#,anX#,anZ#,speed#)
   new_x# = posx# + speed#*sin(anz#)
   new_y# = posy#
   new_z# = posz# + speed#*cos(anz#)
   POSITION CAMERA new_x#,new_y#,new_z#
endfunction

I'm sure this has been done before, but it has not come to my attention.

Cheers, again!

Now, for that space-buggie nose-dive...

ICQ: 92636554

Back to top

Profile PM

Armitage

22

Years of Service

User Offline

Joined: 18th Nov 2002

Location: Canada

Posted: 19th Nov 2002 06:25

Link

Oh, yeah... about that mouselook function:

Use WASD to advance and strafe (or whatever keys are in that position on your keyboard; I type Dvorak, so it's ",aoe", but this should work for all as it looks at scancodes). Use the right mouse button to move the camera up, the space bar to move the camera down. And use the mouse to look (duh!).

ICQ: 92636554

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / 3D Rotaion (Edit this code, smart guy)