Stuck again with New Value for Orbit

Author

Message

MatriX

20

Years of Service

User Offline

Joined: 19th Oct 2003

Location: Deer Park, New York

Posted: 4th Jan 2009 00:17 Edited at: 4th Jan 2009 00:18

Link

Trying to build some 360 x 360 degree orbit code for my personal library here. I'm having no trouble getting the Y axis orbit rotation correct. The Z on the other hand is killing me. I don't know if it's just not possible or if I'm missing the something. I know I should probably using SIN, COS, TAN but I'm just not good in math and I prefer to use these commands as they are more "beginner" intended. The new value command seems to do what I want but I just cant get it right. Thanks if you can help!

Left / Right arrow keys Orbit around Y axis.
Up / Down arrow keys should orbit around Z Axis.

Rem Project: Orbit Experimentation
Rem Created: 1/3/09 3:29:22 PM

Rem ***** Main Source File *****

Set Display mode 1024,768,32

MAKE CAMERA 1
SET CAMERA VIEW 1,599,0,1024,300
COLOR BACKDROP 1,rgb(0,0,0)
SET CAMERA RANGE 1,10,20000

SYNC ON

Make Matrix 1,400,400,20,20
position matrix 1,-200,0,-200

make object cube 1, 10
position object 1,0,-10,20

Make Object Cube 2,5
color object 2,rgb(255,0,0)

position camera 0,0,30,-50
Position Camera 1,0,100,0

Point_Camera(0,1)
Point_Camera(1,1)

YAngle# = OBJECT ANGLE Y(1)
ZAngle# = OBJECT ANGLE Z(1)

Do
If LeftKey()
   Yangle# = wrapvalue(Yangle# - .1)
   SXVal# = NEWXVALUE(Object position X (1), YAngle#,32)
   SZVal# = NEWZVALUE(Object position Z (1), YAngle#,32)
   Position Object 2, SXVal#,SYVal#,SZVal#
Endif

If RightKey()
   Yangle# = wrapvalue(Yangle# + .1)
   SXVal# = NEWXVALUE(Object position X (1), YAngle#,32)
   SZVal# = NEWZVALUE(Object position Z (1), YAngle#,32)
   Position Object 2, SXVal#,SYVal#,SZVal#
Endif

If UpKey() `NOTE UPKEY CODE NOT CORRECT
   ZAngle# = wrapvalue(ZAngle# + .1)
   SXVal# = NEWXVALUE(Object position X (1), ZAngle#,32)
   SYVal# = NEWYVALUE(Object position Y (1), ZAngle#,32)
Position Object 2, SXVal#,SYVal#,SZVal#

Endif

If DownKey() `NOTE DOWNKEY CODE NOT CORRECT
   ZAngle# = wrapvalue(ZAngle# - .1)
   SXVal# = NEWXVALUE(Object position X (1), ZAngle#,32)
   SYVal# = NEWYVALUE(Object position Y (1), ZAngle#,32)
Position Object 2, SXVal#,SYVal#,SZVal#
endif

Point_Object(2,1)

sync
loop

Function Point_Camera(Camera,Object_Number)

Point Camera Camera, Object Position X(Object_Number),Object Position Y(Object_Number),Object Position Z(Object_Number)

Endfunction

Function Point_Object(Object_Number_1,Object_Number_2)

Point Object Object_Number_1, Object Position X(Object_Number_2),Object Position Y(Object_Number_2),Object Position Z(Object_Number_2)

Endfunction

+ Code Snippet

Rem Project: Orbit Experimentation
Rem Created: 1/3/09 3:29:22 PM

Rem ***** Main Source File *****


Set Display mode 1024,768,32

MAKE CAMERA 1
SET CAMERA VIEW 1,599,0,1024,300
COLOR BACKDROP 1,rgb(0,0,0)
SET CAMERA RANGE 1,10,20000

SYNC ON

Make Matrix 1,400,400,20,20
position matrix 1,-200,0,-200

make object cube 1, 10
position object 1,0,-10,20

Make Object Cube 2,5
color object 2,rgb(255,0,0)

position camera 0,0,30,-50
Position Camera 1,0,100,0

Point_Camera(0,1)
Point_Camera(1,1)

YAngle# = OBJECT ANGLE Y(1)
ZAngle# = OBJECT ANGLE Z(1)


Do
If LeftKey()
   Yangle# = wrapvalue(Yangle# - .1)
   SXVal# = NEWXVALUE(Object position X (1), YAngle#,32)
   SZVal# = NEWZVALUE(Object position Z (1), YAngle#,32)
   Position Object 2, SXVal#,SYVal#,SZVal#
Endif

If RightKey()
   Yangle# = wrapvalue(Yangle# + .1)
   SXVal# = NEWXVALUE(Object position X (1), YAngle#,32)
   SZVal# = NEWZVALUE(Object position Z (1), YAngle#,32)
   Position Object 2, SXVal#,SYVal#,SZVal#
Endif


If UpKey() `NOTE UPKEY CODE NOT CORRECT
   ZAngle# = wrapvalue(ZAngle# + .1)
   SXVal# = NEWXVALUE(Object position X (1), ZAngle#,32)
   SYVal# = NEWYVALUE(Object position Y (1), ZAngle#,32)
Position Object 2, SXVal#,SYVal#,SZVal#

Endif

If DownKey() `NOTE DOWNKEY CODE NOT CORRECT
   ZAngle# = wrapvalue(ZAngle# - .1)
   SXVal# = NEWXVALUE(Object position X (1), ZAngle#,32)
   SYVal# = NEWYVALUE(Object position Y (1), ZAngle#,32)
Position Object 2, SXVal#,SYVal#,SZVal#
endif

Point_Object(2,1)

sync
loop




Function Point_Camera(Camera,Object_Number)

Point Camera Camera, Object Position X(Object_Number),Object Position Y(Object_Number),Object Position Z(Object_Number)

Endfunction

Function Point_Object(Object_Number_1,Object_Number_2)

Point Object Object_Number_1, Object Position X(Object_Number_2),Object Position Y(Object_Number_2),Object Position Z(Object_Number_2)

Endfunction

Wannabe Game Designer. Wannabe Programmer. Expert Dreamer.
Long Island Amateur Game Development Group http://www.meetup.com/LIAGDG/

Back to top

Profile PM Email Website

BMacZero

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 4th Jan 2009 00:30 Edited at: 4th Jan 2009 00:30

Link

Angles give me a headache, too. There's a cheap trick I use for pan stuff like this:

Each loop, do this:
1.) Position the object you want to rotate at the location it will be rotating around.
2.) Rotate in the direction you want it to pan (for example, if you wanted it to orbit in the position x-angle direction, you would rotate it a little on the x)
3.) Use the command MOVE OBJECT to move it the distance away from the center of rotation you want it to be, multiplied by -1. (Moving it back away from the planet).

Also, zrotating the object I think just spins it. You may want to only rotate it on the X and Y (not sure about this).

Back to top

Profile PM Email Website

MatriX

20

Years of Service

User Offline

Joined: 19th Oct 2003

Location: Deer Park, New York

Posted: 4th Jan 2009 04:42

Link

Hmm I may have to resort to that but I was really hoping to be able to do it with Newvalue.

Just thinking outloud here:...

(included a diagram)

If it can't be done I'd like to hear an explanation if possible..thanks.

Wannabe Game Designer. Wannabe Programmer. Expert Dreamer.
Long Island Amateur Game Development Group http://www.meetup.com/LIAGDG/

Attachments

Login to view attachments

Back to top

Profile PM Email Website

MatriX

20

Years of Service

User Offline

Joined: 19th Oct 2003

Location: Deer Park, New York

Posted: 4th Jan 2009 19:38

Link

How do I get the attachment above to view as part of the message? I only can see it via download or view

Wannabe Game Designer. Wannabe Programmer. Expert Dreamer.
Long Island Amateur Game Development Group http://www.meetup.com/LIAGDG/

Back to top

Profile PM Email Website

Virtual Nomad

Moderator

18

Years of Service

User Offline

Joined: 14th Dec 2005

Location: SF Bay Area, USA

Posted: 4th Jan 2009 20:12 Edited at: 4th Jan 2009 20:29

Link

you use the image button (above the smilies in the post/edit area). it will insert the bb code into your message and where it says null you should cut and paste the shortcut/url to the view button for that post (right click view and 'copy shortcut' on ie).

hope that makes sense

also, while you can upload the image/attachment when you first post your message, it won't have a URL address until you submit the post, which means:
1) you'll need to make your initial post and upload the image, then
2) grab the address from the 'view' button, then
3) edit your post and insert the image into the body of the message as mentioned above.

you can also just use the bbcode [ img] http://www.url here.com [/ img] (without the spaces).

Virtual Nomad @ California, USA
AMD Phenom™ X4 9750 Quad-Core @ 2.4 GHz . 8 GB PC2-6400 RAM
ATI Radeon HD 3650 @ 512 MB . Vista Home Premium 64 Bit

Back to top

Profile PM Website

MatriX

20

Years of Service

User Offline

Joined: 19th Oct 2003

Location: Deer Park, New York

Posted: 4th Jan 2009 23:39 Edited at: 6th Jan 2009 02:15

Link

Ahhh thanks alot. LOL i missed the image button. I feel silly now.

Wannabe Game Designer. Wannabe Programmer. Expert Dreamer.
Long Island Amateur Game Development Group http://www.meetup.com/LIAGDG/

Back to top

Profile PM Email Website

MatriX

20

Years of Service

User Offline

Joined: 19th Oct 2003

Location: Deer Park, New York

Posted: 6th Jan 2009 02:14 Edited at: 6th Jan 2009 02:15

Link

This is interesting although I wish it orbited over and under the cube as well. At least it sort of accomplishes the task.

Rem Project: Orbit Experimentation
Rem Created: 1/3/09 3:29:22 PM

Rem ***** Main Source File *****

Set Display mode 1024,768,32

MAKE CAMERA 1
SET CAMERA VIEW 1,599,0,1024,300
COLOR BACKDROP 1,rgb(0,0,0)
SET CAMERA RANGE 1,10,20000

SYNC ON

Make Matrix 1,400,400,20,20
position matrix 1,-200,0,-200

make object cube 1, 10
position object 1,0,-10,20

Make Object Cube 2,5
color object 2,rgb(255,0,0)

position camera 0,0,30,-50
Position Camera 1,0,100,0

Point_Camera(0,1)
Point_Camera(1,1)

YAngle# = OBJECT ANGLE Y(1)
ZAngle# = OBJECT ANGLE Z(1)

Do
If LeftKey()
   Yangle# = wrapvalue(Yangle# - .1)
   SXVal# = NEWXVALUE(Object position X (1), YAngle#,32)
   SZVal# = NEWZVALUE(Object position Z (1), YAngle#,32)
Endif

If RightKey()
   Yangle# = wrapvalue(Yangle# + .1)
   SXVal# = NEWXVALUE(Object position X (1), YAngle#,32)
   SZVal# = NEWZVALUE(Object position Z (1), YAngle#,32)
Endif

If UpKey() `NOTE UPKEY CODE NOT CORRECT
   ZAngle# = wrapvalue(ZAngle# - .1)
`   SXVal# = NEWXVALUE(Object position X (1), ZAngle#,32)
   SYVal# = NEWYVALUE(Object position Y (1), ZAngle#,32)
Endif

If DownKey() `NOTE DOWNKEY CODE NOT CORRECT
   ZAngle# = wrapvalue(ZAngle# + .1)
`   SXVal# = NEWXVALUE(Object position X (1), ZAngle#,32)
   SYVal# = NEWYVALUE(Object position Y (1), ZAngle#,32)
   Endif

Position Object 2, SXVal#,SYVal#,SZVal#

Point_Object(2,1)

sync
loop

Function Point_Camera(Camera,Object_Number)

Point Camera Camera, Object Position X(Object_Number),Object Position Y(Object_Number),Object Position Z(Object_Number)

Endfunction

Function Point_Object(Object_Number_1,Object_Number_2)

Point Object Object_Number_1, Object Position X(Object_Number_2),Object Position Y(Object_Number_2),Object Position Z(Object_Number_2)

Endfunction

+ Code Snippet

Rem Project: Orbit Experimentation
Rem Created: 1/3/09 3:29:22 PM

Rem ***** Main Source File *****

Set Display mode 1024,768,32

MAKE CAMERA 1
SET CAMERA VIEW 1,599,0,1024,300
COLOR BACKDROP 1,rgb(0,0,0)
SET CAMERA RANGE 1,10,20000

SYNC ON

Make Matrix 1,400,400,20,20
position matrix 1,-200,0,-200

make object cube 1, 10
position object 1,0,-10,20

Make Object Cube 2,5
color object 2,rgb(255,0,0)

position camera 0,0,30,-50
Position Camera 1,0,100,0

Point_Camera(0,1)
Point_Camera(1,1)

YAngle# = OBJECT ANGLE Y(1)
ZAngle# = OBJECT ANGLE Z(1)

Do
If LeftKey()
   Yangle# = wrapvalue(Yangle# - .1)
   SXVal# = NEWXVALUE(Object position X (1), YAngle#,32)
   SZVal# = NEWZVALUE(Object position Z (1), YAngle#,32)
Endif

If RightKey()
   Yangle# = wrapvalue(Yangle# + .1)
   SXVal# = NEWXVALUE(Object position X (1), YAngle#,32)
   SZVal# = NEWZVALUE(Object position Z (1), YAngle#,32)
Endif

If UpKey() `NOTE UPKEY CODE NOT CORRECT
   ZAngle# = wrapvalue(ZAngle# - .1)
`   SXVal# = NEWXVALUE(Object position X (1), ZAngle#,32)
   SYVal# = NEWYVALUE(Object position Y (1), ZAngle#,32)
Endif

If DownKey() `NOTE DOWNKEY CODE NOT CORRECT
   ZAngle# = wrapvalue(ZAngle# + .1)
`   SXVal# = NEWXVALUE(Object position X (1), ZAngle#,32)
   SYVal# = NEWYVALUE(Object position Y (1), ZAngle#,32)
   Endif

Position Object 2, SXVal#,SYVal#,SZVal#

Point_Object(2,1)

sync
loop




Function Point_Camera(Camera,Object_Number)

Point Camera Camera, Object Position X(Object_Number),Object Position Y(Object_Number),Object Position Z(Object_Number)

Endfunction

Function Point_Object(Object_Number_1,Object_Number_2)

Point Object Object_Number_1, Object Position X(Object_Number_2),Object Position Y(Object_Number_2),Object Position Z(Object_Number_2)

Endfunction

Wannabe Game Designer. Wannabe Programmer. Expert Dreamer.
Long Island Amateur Game Development Group http://www.meetup.com/LIAGDG/

Back to top

Profile PM Email Website

MatriX

20

Years of Service

User Offline

Joined: 19th Oct 2003

Location: Deer Park, New York

Posted: 6th Jan 2009 03:48

Link

Well I found what looks to be the solution.

Many thanks to Rye in this post:

http://forum.thegamecreators.com/?m=forum_view&t=45887&b=1

I changed his camera orbit code and made it work with my objects instead. (Sorry for the lack of comments. If you look at the original post he commented very well.)

Rem Project: Orbit Experimentation 2
Rem Created: 1/5/09 8:29:46 PM

Rem ***** Main Source File *****

Set Display mode 1024,768,32

MAKE CAMERA 1
SET CAMERA VIEW 1,599,0,1024,300
COLOR BACKDROP 1,rgb(0,0,0)
SET CAMERA RANGE 1,10,20000

SYNC ON

Make Matrix 1,400,400,20,20
position matrix 1,-200,0,-200

make object cube 1, 10
position object 1,0,-10,20

Make Object Cube 2,5
color object 2,rgb(255,0,0)

position camera 0,0,30,-50
Position Camera 1,0,100,0

Point_Camera(0,1)
Point_Camera(1,1)

Do

cax#=object angle x(1)
cay#=object angle y(1)

cx#=object position x(1)
cy#=object position y(1)
cz#=object position z(1)

if leftkey()=1
cay#=wrapvalue(cay#-.5)
endif

if rightkey()=1
cay#=wrapvalue(cay#+.5)
endif

if upkey()=1
cax#=wrapvalue(cax#-.5)
endif

if downkey()=1
cax#=wrapvalue(cax#+.5)
endif

yrotate object 1,cay#
xrotate object 1,cax#

dist#=25*cos(cax#)

oy#=newyvalue(cy#,cax#,25)

ox#=newxvalue(cx#,cay#,dist#)
oz#=newzvalue(cz#,cay#,dist#)

position object 2,ox#,oy#,oz#

Point_Object(2,1)

sync
loop

Function Point_Camera(Camera,Object_Number)

Point Camera Camera, Object Position X(Object_Number),Object Position Y(Object_Number),Object Position Z(Object_Number)

Endfunction

Function Point_Object(Object_Number_1,Object_Number_2)

Point Object Object_Number_1, Object Position X(Object_Number_2),Object Position Y(Object_Number_2),Object Position Z(Object_Number_2)

Endfunction

+ Code Snippet

Rem Project: Orbit Experimentation 2
Rem Created: 1/5/09 8:29:46 PM

Rem ***** Main Source File *****

Set Display mode 1024,768,32

MAKE CAMERA 1
SET CAMERA VIEW 1,599,0,1024,300
COLOR BACKDROP 1,rgb(0,0,0)
SET CAMERA RANGE 1,10,20000

SYNC ON

Make Matrix 1,400,400,20,20
position matrix 1,-200,0,-200

make object cube 1, 10
position object 1,0,-10,20

Make Object Cube 2,5
color object 2,rgb(255,0,0)

position camera 0,0,30,-50
Position Camera 1,0,100,0

Point_Camera(0,1)
Point_Camera(1,1)

Do

cax#=object angle x(1)
cay#=object angle y(1)

cx#=object position x(1)
cy#=object position y(1)
cz#=object position z(1)

if leftkey()=1
cay#=wrapvalue(cay#-.5)
endif

if rightkey()=1
cay#=wrapvalue(cay#+.5)
endif

if upkey()=1
cax#=wrapvalue(cax#-.5)
endif

if downkey()=1
cax#=wrapvalue(cax#+.5)
endif

yrotate object 1,cay#
xrotate object 1,cax#

dist#=25*cos(cax#)

oy#=newyvalue(cy#,cax#,25)

ox#=newxvalue(cx#,cay#,dist#)
oz#=newzvalue(cz#,cay#,dist#)

position object 2,ox#,oy#,oz#

Point_Object(2,1)

sync
loop


Function Point_Camera(Camera,Object_Number)

Point Camera Camera, Object Position X(Object_Number),Object Position Y(Object_Number),Object Position Z(Object_Number)

Endfunction

Function Point_Object(Object_Number_1,Object_Number_2)

Point Object Object_Number_1, Object Position X(Object_Number_2),Object Position Y(Object_Number_2),Object Position Z(Object_Number_2)

Endfunction

Solved but I'm not sure why yet. I have to investigate and definitley brush up on my trigonometry.

Wannabe Game Designer. Wannabe Programmer. Expert Dreamer.
Long Island Amateur Game Development Group http://www.meetup.com/LIAGDG/

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Stuck again with New Value for Orbit

Attachments