Rotating Camera and Retaining Old Values

Author

Message

Rims Flames

12

Years of Service

User Offline

Joined: 5th Apr 2014

Location:

Posted: 15th Aug 2014 16:58

Link

Hello Community,

I have this basic code for rotating the camera when i press right mouse button, but when i want to click to rotate the camera it goes instantly where i am pressing on the screen. I want for the camera to move just when i am moving the mouse after clicking the right mouse button. Instead the camera moves instantly where the pointer is.

Thank You!

+ Code Snippet

r#=wrapvalue(r#+mousemovex()/5)
   cam#=wrapvalue(cam#+mousemovey()/5)
   if cam#<=290 and cam#>180 then cam#=290
   if cam#>=70 and cam#<180 then cam#=70
   rotate camera 0, cam#, r#, 0
   position mouse desktop width()/2, desktop height()/2
   hide mouse

Rims Flames

Back to top

Profile PM Email

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

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

Posted: 15th Aug 2014 17:22

Link

+ Code Snippet

   rem you can only call the mousemove commands once every loop, so it's a good idea to store them in variables if you need their values multiple times
   mouseMoveX = mousemvoex()
   mouseMoveY = mousemovey()

   rem rotate camera when right mouse button is clicked
   if mouseclick() || 0x02
      r#=wrapvalue(r#+mouseMoveX*0.2)
      cam#=wrapvalue(cam#+mouseMoveY*0.2)
      if cam#<=290 and cam#>180 then cam#=290
      if cam#>=70 and cam#<180 then cam#=70
   endif

   rotate camera 0, cam#, r#, 0
   position mouse desktop width()/2, desktop height()/2
   hide mouse

hands are ruined by repetitive stroking... - Mr. V, 2014

Back to top

Profile PM Email Website

Rims Flames

12

Years of Service

User Offline

Joined: 5th Apr 2014

Location:

Posted: 15th Aug 2014 17:39

Link

Hey TheComet,

I didn't meant this. I meant that when i press right click, and move the mouse i want to move the camera from its old position to the new position. I don't want when clicking on a part of the screen for the camera to instantly rotate to that part.

Rims Flames

Back to top

Profile PM Email

JackDawson

14

Years of Service

User Offline

Joined: 12th Jul 2011

Location:

Posted: 15th Aug 2014 17:57 Edited at: 15th Aug 2014 18:00

Link

Rims Flames, I think I understand what you're wanting. Its known as STATES. You have to design a state or what some call it, a conditional system. ( Think of a STATE or FLAG as a Boolean [ True|False].)

Example : If the loop detects the right mouse button is in the down position, then it would set the flag or STATE to a one. If not it would set it to a zero.

Then in the camera code, IF it detects that you have a 1, THEN it would be ready for X and Y input from the mouse, otherwise, X and Y from the mouse wouldn't do anything if that flag or state is not set as a 1.

However, once that DOWN flag is a 1, then you would use the X and Y mouse movements ALSO as a state. ( If mouse moves X, then set it as a flag or state as 1 ) then from there it can know if it needs to move the mouse or not.

This solves several problems. It also allows you more control over what the mouse does to your camera.

Back to top

Profile PM

Derek Darkly

14

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 15th Aug 2014 20:59 Edited at: 15th Aug 2014 21:13

Link

Something like this?

+ Code Snippet

gosub Setup

do
if mouseclick()=2
Xamt=CenX-mousex():Yamt=CenY-mousey()
if Xamt>0 then Xinc#=Speed#
if Xamt<0 then Xinc#=-Speed#
if Yamt>0 then Yinc#=-Speed#
if Yamt<0 then Yinc#=Speed#
Xcount=abs(Xamt)
Ycount=abs(Yamt)
ENDIF

if Xcount>0 then turn camera left Xinc#:dec Xcount
if Ycount>0 then pitch camera down Yinc#:dec Ycount
sync
LOOP

Setup:
color backdrop 0
autocam off:set point light 0,0,0,0
for s=1 to 100
make object sphere s,1+rnd(5)
position object s,rnd(100)-rnd(100), rnd(100)-rnd(100),rnd(100)-rnd(100)
color object s,rgb(rnd(255),rnd(255),rnd(255))
NEXT
CenX=screen width()/2
CenY=screen height()/2
Speed#=.15
sync on:sync rate 200
return

666GO†O666

Back to top

Profile PM

Rims Flames

12

Years of Service

User Offline

Joined: 5th Apr 2014

Location:

Posted: 15th Aug 2014 21:40

Link

No not really. Look, if my camera is looking at a corner and i am placing my cursor on the other corner, the camera will point instantly to that corner. I want to drag the camera to rotate it to that respective corner. I have an example on how unreal engine has its camera rotation. Really I don't know how to explain it more detailed

https://www.youtube.com/watch?v=I8WBF4AyAX4

A BIG Thank You!

Rims Flames

Back to top

Profile PM Email

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

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

Posted: 15th Aug 2014 22:56

Link

You want to click and drag the mouse to rotate? That's what my first snippet does.

hands are ruined by repetitive stroking... - Mr. V, 2014

Back to top

Profile PM Email Website

Rims Flames

12

Years of Service

User Offline

Joined: 5th Apr 2014

Location:

Posted: 15th Aug 2014 22:58

Link

I will put up a video with my problem tomorrow and i will show what i meant

Rims Flames

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 16th Aug 2014 01:26

Link

Hi there
@Rims Flames
What I can see in the video at the direcction you pointed out , the camera moves free like flying, but you rotate it only when you right-click. Most programs do it like that instead of rotating camera by pressing left/right cursor. Something like this:

+ Code Snippet

autocam off
sync on
make object box 1,100,1,100:color object 1,rgb(0,100,0)
for i = 2 to 30
  make object box i,2+rnd(5),2+rnd(5),2+rnd(5)
  position object i,-40+rnd(80),object size y(i)/2,-40+rnd(80)
  color object i,rgb(rnd(255),rnd(255),rnd(255))
next i

hide mouse
position camera 20,20,-20
point camera 0,0,0
do
control camera using arrowkeys 0,0.1,0.1
if mouseclick()=2
   a#=wrapvalue(a#-mousemovex()/2)
   cam#=wrapvalue(cam#-mousemovey()/2)
   set cursor mousex()*2,mousey()*2:print "+"
   else
   rem RESET MOUSE
   mousemovex()=0
   mousemovey()=0
endif
rotate camera cam#,a#,0

sync
loop

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

Derek Darkly

14

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 16th Aug 2014 04:28

Link

So you also wanted the camera to move its position?

(I used your code and changed it, Chafari.)

+ Code Snippet

autocam off
sync on:sync rate 25
make object box 1,100,1,100:color object 1,rgb(0,100,0)
for i = 2 to 30
  make object box i,2+rnd(5),2+rnd(5),2+rnd(5)
  position object i,-40+rnd(80),object size y(i)/2,-40+rnd(80)
  color object i,rgb(rnd(255),rnd(255),rnd(255))
next i

hide mouse
position camera 20,20,-20
point camera 0,0,0
do
if mouseclick()=2
   a#=wrapvalue(a#+mousemovex()/2)
   cam#=wrapvalue(cam#+mousemovey()/2)
 move camera .5
   else
   rem RESET MOUSE
   mousemovex()=0
   mousemovey()=0
endif
rotate camera cam#,a#,0
circle mousex(),mousey(),1:circle mousex(),mousey(),3
sync
loop

666GO†O666

Back to top

Profile PM

Rims Flames

12

Years of Service

User Offline

Joined: 5th Apr 2014

Location:

Posted: 16th Aug 2014 11:17

Link

Thank You Chafari this is exactly what i was looking for!

Rims Flames

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Rotating Camera and Retaining Old Values