Synchronising floating cameras to a spaceship

Author

Message

spooky

23

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 28th Aug 2003 00:28

Link

Can someone please try out code and tell my how to sync the cameras position to an object. It is always one step out of sync because I think I read somewhere that when you tell an object to rotate it does not carried out until the 'sync' command. But then how to get camera moved at same time. I want my cameras to be as if they are stuck rock solid to the object and don't jiggle about.

P.S. This is the simplest code I could knock up to expalin my problem.

sync on : sync rate 0 : autocam off : randomize timer()

` create stars image
for f=1 to 50 : e=rnd(255) : dot rnd(255),rnd(255),rgb(e,e,e) : next f : get image 1,0,0,256,256

` create star sphere
make object sphere 9,20000,20,20 : texture object 9,1
scale object texture 9,8,8 : set object 9,1,0,0,0,0,0,0

` dodgy looking spaceship
make object box 1,20,6,50
make object cube 2,2 : glue object to limb 2,1,0 : position object 2,-5,0,-25 : color object 2,rgb(255,0,0)
make object cube 3,2 : glue object to limb 3,1,0 : position object 3,5,0,-25 : color object 3,rgb(255,0,0)
make object box 4,10,7,10 : turn object left 4,45 : glue object to limb 4,1,0 : position object 4,0,0,25

` camera objects
make object cube 10,1 : hide object 10 : glue object to limb 10,1,0 : position object 10,0,20,-80
make object cube 11,1 : hide object 11 : glue object to limb 11,1,0 : position object 11,-30,10,-70
make object cube 12,1 : hide object 12 : glue object to limb 12,1,0 : position object 12,30,10,-70

set camera range 1,20000

cam=1

do

if leftkey() then roll object left 1,1
   if rightkey() then roll object right 1,1
   if upkey() then pitch object down 1,1
   if downkey() then pitch object up 1,1
   if spacekey() then move object 1,5
   if inkey$()="1" then cam=1
   if inkey$()="2" then cam=2
   if inkey$()="3" then cam=3

position camera limb position x(cam+9,0),limb position y(cam+9,0),limb position z(cam+9,0)
   rotate camera object angle x(1),object angle y(1),object angle z(1)

set cursor 0,0
   print "Keys: Cursors, Space, 1, 2, 3"
   print
   print "Current Camera = ";cam
   print
   print "OBJ X ANG = ";object angle x(1)
   print "OBJ Y ANG = ";object angle y(1)
   print "OBJ Z ANG = ";object angle z(1)

print
   print "CAM X ANG = ";camera angle x()
   print "CAM Y ANG = ";camera angle y()
   print "CAM Z ANG = ";camera angle z()

sync
loop

+ Code Snippet

sync on : sync rate 0 : autocam off : randomize timer()

` create stars image
for f=1 to 50 : e=rnd(255) : dot rnd(255),rnd(255),rgb(e,e,e) : next f : get image 1,0,0,256,256

` create star sphere
make object sphere 9,20000,20,20 : texture object 9,1
scale object texture 9,8,8 : set object 9,1,0,0,0,0,0,0

` dodgy looking spaceship
make object box 1,20,6,50
make object cube 2,2 : glue object to limb 2,1,0 : position object 2,-5,0,-25 : color object 2,rgb(255,0,0)
make object cube 3,2 : glue object to limb 3,1,0 : position object 3,5,0,-25 : color object 3,rgb(255,0,0)
make object box 4,10,7,10 : turn object left 4,45 : glue object to limb 4,1,0 : position object 4,0,0,25

` camera objects
make object cube 10,1 : hide object 10 : glue object to limb 10,1,0 : position object 10,0,20,-80
make object cube 11,1 : hide object 11 : glue object to limb 11,1,0 : position object 11,-30,10,-70
make object cube 12,1 : hide object 12 : glue object to limb 12,1,0 : position object 12,30,10,-70

set camera range 1,20000

cam=1

do

   if leftkey() then roll object left 1,1
   if rightkey() then roll object right 1,1
   if upkey() then pitch object down 1,1
   if downkey() then pitch object up 1,1
   if spacekey() then move object 1,5
   if inkey$()="1" then cam=1
   if inkey$()="2" then cam=2
   if inkey$()="3" then cam=3

   position camera limb position x(cam+9,0),limb position y(cam+9,0),limb position z(cam+9,0)
   rotate camera object angle x(1),object angle y(1),object angle z(1)

   set cursor 0,0
   print "Keys: Cursors, Space, 1, 2, 3"
   print
   print "Current Camera = ";cam
   print
   print "OBJ X ANG = ";object angle x(1)
   print "OBJ Y ANG = ";object angle y(1)
   print "OBJ Z ANG = ";object angle z(1)

   print
   print "CAM X ANG = ";camera angle x()
   print "CAM Y ANG = ";camera angle y()
   print "CAM Z ANG = ";camera angle z()

   sync
loop

The programmer formerly known as sonic

Back to top

Profile PM Website

diseased

22

Years of Service

User Offline

Joined: 16th Aug 2003

Location:

Posted: 28th Aug 2003 08:31

Link

move the camera first, then move the ship in the same line.
use point camera instead of messing with all of those angles.

it took a little testing but i got it.. for some reason when u do something like this : if blah then move object: move camera it still causes jerkiness but if u do this..: if blah then move camera: move object then it sits still..
i posted the altered code too, except the camera is right behind the ship instead of a little above it, but u can probally fix that easy.

Back to top

Profile PM

spooky

23

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 28th Aug 2003 13:49

Link

Can't test as I'm at work but you have confirmed something to me. What I think I need to do is at beginning of loop, position and rotate camera at same position as spaceship. If I roll left, then roll object AND camera at same time. Then move camera using relative movements to desired position. Will try this later!

The programmer formerly known as sonic

Back to top

Profile PM Website

spooky

23

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 29th Aug 2003 03:28

Link

WAHAY - FINALLY GOT IT SUSSED AND HAVE PROVED ONCE AND FOR ALL THAT FREE-FLIGHT COMMANDS ARE FIXED!!!!!!!!!!!!!!!

This demo will allow you to fly a spaceship using all the free-flight commands and also demonstrates how to use different camera angles properly.

Enjoy....

sync on : sync rate 0 : autocam off : randomize timer()

` create stars image
for f=1 to 50 : e=rnd(255) : dot rnd(255),rnd(255),rgb(e,e,e) : next f : get image 1,0,0,256,256

` create spaceship images
cls rgb(192,192,192) : ink rgb(0,0,0),0
for f=1 to 100 : line rnd(255),rnd(255),rnd(256),rnd(256) : next f
get image 2,64,64,128,128
cls rgb(255,0,0) : get image 3,0,0,2,2

` create star sphere
make object sphere 9,20000,20,20 : texture object 9,1
scale object texture 9,8,8 : set object 9,1,0,0,0,0,0,0

` dodgy looking spaceship
make object box 1,20,6,50 : texture object 1,2
make object cube 2,2 : glue object to limb 2,1,0 : position object 2,-5,0,-25 : texture object 2,3
make object cube 3,2 : glue object to limb 3,1,0 : position object 3,5,0,-25 : texture object 3,3
make object box 4,10,7,10 : turn object left 4,45 : glue object to limb 4,1,0 : position object 4,0,0,25 : texture object 4,2

` framework
o=99 : s=3000 : c=5
for f=0 to c-1
   for g=0 to c-1
      inc o : make object box o,s,2,2 : position object o,s/2,g*s/(c-1),f*s/(c-1) : color object o,rgb(255,0,0)
      inc o : make object box o,2,s,2 : position object o,f*s/(c-1),s/2,g*s/(c-1) : color object o,rgb(0,255,0)
      inc o : make object box o,2,2,s : position object o,f*s/(c-1),g*s/(c-1),s/2 : color object o,rgb(0,0,255)
   next g
next f

set camera range 1,20000 : cam=1 : s#=0 : ink rgb(255,255,255),0

do

position camera object position x(1),object position y(1),object position z(1)

if keystate(203)=1 then roll camera left 1 : roll object left 1,1
   if keystate(205)=1 then roll camera right 1 : roll object right 1,1
   if keystate(200)=1 then pitch camera down 1 : pitch object down 1,1
   if keystate(208)=1 then pitch camera up 1 : pitch object up 1,1
   if keystate(12)=1 then s#=s#-0.1 : if s# < 0 then s#=0
   if keystate(13)=1 then s#=s#+0.1
   if keystate(23)=1 then turn camera left 1 : turn object left 1,1
   if keystate(25)=1 then turn camera right 1 : turn object right 1,1
   if keystate(2)=1 and cam <> 1 then cam=1
   if keystate(3)=1 and cam <> 2 then cam=2
   if keystate(4)=1 and cam <> 3 then cam=3
   if keystate(5)=1 and cam <> 4 then cam=4

move camera s# : move object 1,s#

select cam
      case 1 : pitch camera down 10 : move camera -100 : pitch camera up 10 : endcase
      case 2 : pitch camera down 10 : turn camera right 20 : move camera -70 : turn camera left 20 : pitch camera up 10 : endcase
      case 3 : pitch camera down 10 : turn camera left 20 : move camera -70 : turn camera right 20 : pitch camera up 10 : endcase
      case 4 : pitch camera down 90 : move camera -200 : endcase
   endselect

set cursor 0,0
   print "FREE FLIGHT DEMO - By Spooky" : print
   print "Up Arrow    = Pitch Down"
   print "Down Arrow  = Pitch Up"
   print
   print "Left Arrow  = Roll Left"
   print "Right Arrow = Roll Right"
   print
   print "I           = Turn Left"
   print "P           = Turn Right"
   print
   print "+           = Accelerate"
   print "-           = Decelerate"
   print
   print "1 2 3 4     = Select Camera"
   print
   print "Cur. Camera = ";cam
   print
   print "Cur. Key    = ";scancode()

position object 9,object position x(1),object position y(1),object position z(1)

sync

` reset any cameras NOT pointing forward
   if cam=4 then pitch camera up 90

loop

+ Code Snippet

sync on : sync rate 0 : autocam off : randomize timer()

` create stars image
for f=1 to 50 : e=rnd(255) : dot rnd(255),rnd(255),rgb(e,e,e) : next f : get image 1,0,0,256,256

` create spaceship images
cls rgb(192,192,192) : ink rgb(0,0,0),0
for f=1 to 100 : line rnd(255),rnd(255),rnd(256),rnd(256) : next f
get image 2,64,64,128,128
cls rgb(255,0,0) : get image 3,0,0,2,2

` create star sphere
make object sphere 9,20000,20,20 : texture object 9,1
scale object texture 9,8,8 : set object 9,1,0,0,0,0,0,0

` dodgy looking spaceship
make object box 1,20,6,50 : texture object 1,2
make object cube 2,2 : glue object to limb 2,1,0 : position object 2,-5,0,-25 : texture object 2,3
make object cube 3,2 : glue object to limb 3,1,0 : position object 3,5,0,-25 : texture object 3,3
make object box 4,10,7,10 : turn object left 4,45 : glue object to limb 4,1,0 : position object 4,0,0,25 : texture object 4,2

` framework
o=99 : s=3000 : c=5
for f=0 to c-1
   for g=0 to c-1
      inc o : make object box o,s,2,2 : position object o,s/2,g*s/(c-1),f*s/(c-1) : color object o,rgb(255,0,0)
      inc o : make object box o,2,s,2 : position object o,f*s/(c-1),s/2,g*s/(c-1) : color object o,rgb(0,255,0)
      inc o : make object box o,2,2,s : position object o,f*s/(c-1),g*s/(c-1),s/2 : color object o,rgb(0,0,255)
   next g
next f

set camera range 1,20000 : cam=1 : s#=0 : ink rgb(255,255,255),0

do

   position camera object position x(1),object position y(1),object position z(1)

   if keystate(203)=1 then roll camera left 1 : roll object left 1,1
   if keystate(205)=1 then roll camera right 1 : roll object right 1,1
   if keystate(200)=1 then pitch camera down 1 : pitch object down 1,1
   if keystate(208)=1 then pitch camera up 1 : pitch object up 1,1
   if keystate(12)=1 then s#=s#-0.1 : if s# < 0 then s#=0
   if keystate(13)=1 then s#=s#+0.1
   if keystate(23)=1 then turn camera left 1 : turn object left 1,1
   if keystate(25)=1 then turn camera right 1 : turn object right 1,1
   if keystate(2)=1 and cam <> 1 then cam=1
   if keystate(3)=1 and cam <> 2 then cam=2
   if keystate(4)=1 and cam <> 3 then cam=3
   if keystate(5)=1 and cam <> 4 then cam=4

   move camera s# : move object 1,s#

   select cam
      case 1 : pitch camera down 10 : move camera -100 : pitch camera up 10 : endcase
      case 2 : pitch camera down 10 : turn camera right 20 : move camera -70 : turn camera left 20 : pitch camera up 10 : endcase
      case 3 : pitch camera down 10 : turn camera left 20 : move camera -70 : turn camera right 20 : pitch camera up 10 : endcase
      case 4 : pitch camera down 90 : move camera -200 : endcase
   endselect

   set cursor 0,0
   print "FREE FLIGHT DEMO - By Spooky" : print
   print "Up Arrow    = Pitch Down"
   print "Down Arrow  = Pitch Up"
   print
   print "Left Arrow  = Roll Left"
   print "Right Arrow = Roll Right"
   print
   print "I           = Turn Left"
   print "P           = Turn Right"
   print
   print "+           = Accelerate"
   print "-           = Decelerate"
   print
   print "1 2 3 4     = Select Camera"
   print
   print "Cur. Camera = ";cam
   print
   print "Cur. Key    = ";scancode()

   position object 9,object position x(1),object position y(1),object position z(1)

   sync

   ` reset any cameras NOT pointing forward
   if cam=4 then pitch camera up 90

loop

The programmer formerly known as sonic

Back to top

Profile PM Website

Ian T

23

Years of Service

User Offline

Joined: 12th Sep 2002

Location: Around

Posted: 29th Aug 2003 06:24

Link

Were they ever unfixed? I thought the whole thing was people not understanding how 3d rotation worked. Huh. Well, that's one cool piece of code

--Mouse

Famous (Avatarless) Fighting Furball

Back to top

Profile PM

dark puppus

22

Years of Service

User Offline

Joined: 16th Aug 2003

Location:

Posted: 29th Aug 2003 12:10

Link

Very well. I ever thought a solution like this, but i was afraid that the camera do too work for positioning in x,y,z of the ship and then repositioning behind.

Then i never tried this solution. But now i see it working.

Thank you, very.

Back to top

Profile PM

dark puppus

22

Years of Service

User Offline

Joined: 16th Aug 2003

Location:

Posted: 29th Aug 2003 19:38

Link

oh, another question come to my head (my stupid head), with roll and pitch i can't return to a desired position of the ship.

Have you present rogue squadron ? the ship curve, but after you release the keys the ship reassume a horizontal position.
This problem seems not too easy, because the roll,pitch and turn rotation affects all angles of the ship.

More, the horizontal position mean : the ship have the line from a wing to another parallel to monitor width.

(i hope my english is not too bad)

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Synchronising floating cameras to a spaceship