Offset limb, rotate limb (or something related) Homeworld style camera jumping

Author

Message

Ben_UK78

15

Years of Service

User Offline

Joined: 10th Jul 2010

Location:

Posted: 10th Sep 2013 23:45

Link

Hi All,

I have a strange issue that I cannot quite identify.

I have created a camera in the style of Homeworld. It works using an object with 2 limbs. The object can move about. Limb 1 handles left/right rotation and Limb 2 (which is linked to Limb 1) handles the up/down rotation.
I have done this so I don't have to work out the maths and have a system easy for me to follow and use. If I am doing this in a silly way then feel free to tell me.

I have it set up so you click on the right mouse button to rotate around and use the mousez() wheel to move in and out of the model.

The strange behaviour I see is that as I zoom in and out using the mouse wheel very occasionally I see the object flicker on the screen (as if surviving for 1 frame update or so), but in an orientation that suggests that the camera has jumped directly above it...

Rem Created: Friday, September 06, 2013

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

sync on : sync rate 0 : backdrop off : autocam off
`if check display mode(1366, 768, 32)=1 then set display mode 1366, 768, 32
if check display mode(1024, 768, 32)=1 then set display mode 1024, 768, 32
set image colorkey 255,0,255
global g_root_directory$ as string : g_root_directory$ = get dir$()
`disable escapekey
`hide mouse
set window position 0,0

DEFINE_Constants()
DEFINE_Variables()

Setup_Game()
Load_Objects()

Main_Code()
end

function DEFINE_Constants()

#constant c_OBJNUM_TempMesh 12
  #constant c_OBJNUM_TempMesh2 13
  #constant c_CAMERA_ObjNum 13
  #constant c_CAMFREE_y_camera_rotation_speed 10

endfunction

function DEFINE_Variables()

dim fps_movement_correction#(0) as float

` INPUT VARIABLES
  `Mouse Variables
  global g_mousez_value as integer : g_mousez_value = mousez()
  dim g_mouseclick(4) as integer
  dim mouse_click(2) as integer

`RTS Camera
  global g_CAMFREE_mouse_oldx as integer
  global g_CAMFREE_mouse_oldy as integer
  global g_CAMERA_Offset as integer: g_CAMERA_Offset = 100
  global g_CAMFREE_limb_angle# as float : g_CAMFREE_limb_angle# = 60

endfunction

function Setup_Game()

`Create Temp Mesh
  make object cube 1, 20
  make mesh from object c_OBJNUM_TempMesh, 1
  delete object 1
  
  make object plain 1, 0.1, 0.1
  make mesh from object c_OBJNUM_TempMesh2, 1
  delete object 1

`Make Camera Object
  make object cube c_CAMERA_ObjNum, 20
  add limb c_CAMERA_ObjNum, 1, c_OBJNUM_TempMesh
  add limb c_CAMERA_ObjNum, 2, c_OBJNUM_TempMesh2
  offset limb c_CAMERA_ObjNum, 2, 0, g_CAMERA_Offset, 0
  link limb c_CAMERA_ObjNum, 1, 2
  rotate limb c_CAMERA_ObjNum, 1, 90, 0, 0

endfunction

function Load_Objects()

make object box 99, 100, 10, 50

position object 99, 0,0,0

endfunction

function Main_Code()

do
  
    ` Set the variable for regulating movement and game time against FPS per main program loop
    if screen fps() > 0
      fps_movement_correction#(0) = 100.0 / screen fps()
      if fps_movement_correction#(0) > 10
        fps_movement_correction#(0) = 1
      endif
    else
      fps_movement_correction#(0) = 1
    endif
  
    CAMERA_RTS_Engine()
    
    position camera limb position x(c_CAMERA_ObjNum, 2), limb position y(c_CAMERA_ObjNum, 2), limb position z(c_CAMERA_ObjNum, 2)
    point camera object position x(c_CAMERA_ObjNum), object position y(c_CAMERA_ObjNum), object position z(c_CAMERA_ObjNum)
 
    sync
  
  loop

endfunction

function CAMERA_RTS_Engine()

`Mouse Wheel Zoom
  if mousez() > g_mousez_value
    dec g_CAMERA_Offset, 20
    g_mousez_value = mousez()
    offset limb c_CAMERA_ObjNum, 2, o, g_CAMERA_Offset, 0 
  endif
  
  if mousez() < g_mousez_value
    inc g_CAMERA_Offset, 20
    g_mousez_value =  mousez()
    offset limb c_CAMERA_ObjNum, 2, 0, g_CAMERA_Offset, 0
  endif
  
  FREECAM_INPUT_Mouse_Button2()

endfunction

function FREECAM_INPUT_Mouse_Button2()

`1st click of the Number 2 mouse button
  if mouseclick() = 2 and mouse_click(2) = -1
    mouse_click(2) = 1
    g_CAMFREE_mouse_oldx = mousex()
    g_CAMFREE_mouse_oldy = mousey()
  endif
  if mouseclick() = 0 and mouse_click(2) <> -1
    mouse_click(2) = -1
  endif  
  
  `Follow on - holding down the Number 2 mouse button
  if mouse_click(2) = 1
  
    if mousey() > g_CAMFREE_mouse_oldy : `up
      if wrapvalue(limb angle x(c_CAMERA_ObjNum, 1)) < (170 - 3) 
        EZro_SetEuler limb angle x(c_CAMERA_ObjNum, 1), limb angle y(c_CAMERA_ObjNum, 1), limb angle z(c_CAMERA_ObjNum, 1)
        EZro_LX (3) : EZro_FindEuler
        rotate limb c_CAMERA_ObjNum, 1, EZro_GetEulerX(), EZro_GetEulerY(), EZro_GetEulerZ()
      endif
    endif
    
    if mousey() < g_CAMFREE_mouse_oldy : `down
      if wrapvalue(limb angle x(c_CAMERA_ObjNum, 1)) > 15 + 3 
        EZro_SetEuler limb angle x(c_CAMERA_ObjNum, 1), limb angle y(c_CAMERA_ObjNum, 1), limb angle z(c_CAMERA_ObjNum, 1)
        EZro_LX (0-3) : EZro_FindEuler
        rotate limb c_CAMERA_ObjNum, 1, EZro_GetEulerX(), EZro_GetEulerY(), EZro_GetEulerZ()
      endif
    endif
    
    if mousex() < g_CAMFREE_mouse_oldx: `left
      l_CAMObj_Limb_Y = object angle y(c_CAMERA_ObjNum) - 3
      rotate object c_CAMERA_ObjNum, object angle x(c_CAMERA_ObjNum), l_CAMObj_Limb_Y, object angle z(c_CAMERA_ObjNum)
    endif
    if mousex() > g_CAMFREE_mouse_oldx : `right
      l_CAMObj_Limb_Y = object angle y(c_CAMERA_ObjNum) + 3
      rotate object c_CAMERA_ObjNum, object angle x(c_CAMERA_ObjNum), l_CAMObj_Limb_Y, object angle z(c_CAMERA_ObjNum)
    endif
    
    g_CAMFREE_mouse_oldx = mousex()
    g_CAMFREE_mouse_oldy = mousey()
    
  endif

endfunction

+ Code Snippet

Rem Created: Friday, September 06, 2013

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

sync on : sync rate 0 : backdrop off : autocam off
`if check display mode(1366, 768, 32)=1 then set display mode 1366, 768, 32
if check display mode(1024, 768, 32)=1 then set display mode 1024, 768, 32
set image colorkey 255,0,255
global g_root_directory$ as string : g_root_directory$ = get dir$()
`disable escapekey
`hide mouse
set window position 0,0 


DEFINE_Constants()
DEFINE_Variables()

Setup_Game()
Load_Objects()

Main_Code()
end


function DEFINE_Constants()

  #constant c_OBJNUM_TempMesh 12
  #constant c_OBJNUM_TempMesh2 13
  #constant c_CAMERA_ObjNum 13
  #constant c_CAMFREE_y_camera_rotation_speed 10

endfunction

function DEFINE_Variables()

  dim fps_movement_correction#(0) as float

` INPUT VARIABLES
  `Mouse Variables
  global g_mousez_value as integer : g_mousez_value = mousez()
  dim g_mouseclick(4) as integer
  dim mouse_click(2) as integer

  `RTS Camera
  global g_CAMFREE_mouse_oldx as integer
  global g_CAMFREE_mouse_oldy as integer
  global g_CAMERA_Offset as integer: g_CAMERA_Offset = 100
  global g_CAMFREE_limb_angle# as float : g_CAMFREE_limb_angle# = 60

    
endfunction

function Setup_Game()

  `Create Temp Mesh
  make object cube 1, 20
  make mesh from object c_OBJNUM_TempMesh, 1
  delete object 1
  
  make object plain 1, 0.1, 0.1
  make mesh from object c_OBJNUM_TempMesh2, 1
  delete object 1

  `Make Camera Object
  make object cube c_CAMERA_ObjNum, 20
  add limb c_CAMERA_ObjNum, 1, c_OBJNUM_TempMesh
  add limb c_CAMERA_ObjNum, 2, c_OBJNUM_TempMesh2
  offset limb c_CAMERA_ObjNum, 2, 0, g_CAMERA_Offset, 0
  link limb c_CAMERA_ObjNum, 1, 2
  rotate limb c_CAMERA_ObjNum, 1, 90, 0, 0


endfunction

function Load_Objects()

  make object box 99, 100, 10, 50

  position object 99, 0,0,0
  

endfunction

function Main_Code()


  do
  
    ` Set the variable for regulating movement and game time against FPS per main program loop
    if screen fps() > 0
      fps_movement_correction#(0) = 100.0 / screen fps()
      if fps_movement_correction#(0) > 10
        fps_movement_correction#(0) = 1
      endif
    else
      fps_movement_correction#(0) = 1
    endif
  
    CAMERA_RTS_Engine()
    
    position camera limb position x(c_CAMERA_ObjNum, 2), limb position y(c_CAMERA_ObjNum, 2), limb position z(c_CAMERA_ObjNum, 2)
    point camera object position x(c_CAMERA_ObjNum), object position y(c_CAMERA_ObjNum), object position z(c_CAMERA_ObjNum)
 
    sync
  
  loop

endfunction

function CAMERA_RTS_Engine()

  `Mouse Wheel Zoom
  if mousez() > g_mousez_value
    dec g_CAMERA_Offset, 20
    g_mousez_value = mousez()
    offset limb c_CAMERA_ObjNum, 2, o, g_CAMERA_Offset, 0 
  endif
  
  if mousez() < g_mousez_value
    inc g_CAMERA_Offset, 20
    g_mousez_value =  mousez()
    offset limb c_CAMERA_ObjNum, 2, 0, g_CAMERA_Offset, 0
  endif
  
  FREECAM_INPUT_Mouse_Button2()

endfunction

function FREECAM_INPUT_Mouse_Button2()

  `1st click of the Number 2 mouse button
  if mouseclick() = 2 and mouse_click(2) = -1
    mouse_click(2) = 1
    g_CAMFREE_mouse_oldx = mousex()
    g_CAMFREE_mouse_oldy = mousey()
  endif
  if mouseclick() = 0 and mouse_click(2) <> -1
    mouse_click(2) = -1
  endif  
  
  `Follow on - holding down the Number 2 mouse button
  if mouse_click(2) = 1
  
    if mousey() > g_CAMFREE_mouse_oldy : `up
      if wrapvalue(limb angle x(c_CAMERA_ObjNum, 1)) < (170 - 3) 
        EZro_SetEuler limb angle x(c_CAMERA_ObjNum, 1), limb angle y(c_CAMERA_ObjNum, 1), limb angle z(c_CAMERA_ObjNum, 1)
        EZro_LX (3) : EZro_FindEuler
        rotate limb c_CAMERA_ObjNum, 1, EZro_GetEulerX(), EZro_GetEulerY(), EZro_GetEulerZ()
      endif
    endif
    
    if mousey() < g_CAMFREE_mouse_oldy : `down
      if wrapvalue(limb angle x(c_CAMERA_ObjNum, 1)) > 15 + 3 
        EZro_SetEuler limb angle x(c_CAMERA_ObjNum, 1), limb angle y(c_CAMERA_ObjNum, 1), limb angle z(c_CAMERA_ObjNum, 1)
        EZro_LX (0-3) : EZro_FindEuler
        rotate limb c_CAMERA_ObjNum, 1, EZro_GetEulerX(), EZro_GetEulerY(), EZro_GetEulerZ()
      endif
    endif
    
    if mousex() < g_CAMFREE_mouse_oldx: `left
      l_CAMObj_Limb_Y = object angle y(c_CAMERA_ObjNum) - 3
      rotate object c_CAMERA_ObjNum, object angle x(c_CAMERA_ObjNum), l_CAMObj_Limb_Y, object angle z(c_CAMERA_ObjNum)
    endif
    if mousex() > g_CAMFREE_mouse_oldx : `right
      l_CAMObj_Limb_Y = object angle y(c_CAMERA_ObjNum) + 3
      rotate object c_CAMERA_ObjNum, object angle x(c_CAMERA_ObjNum), l_CAMObj_Limb_Y, object angle z(c_CAMERA_ObjNum)
    endif
    
    g_CAMFREE_mouse_oldx = mousex()
    g_CAMFREE_mouse_oldy = mousey()
    
  endif

endfunction

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 11th Sep 2013 12:01

Link

Instead of defining all camera movements as integer...try as float

I'm not a grumpy grandpa

Back to top

Profile PM Email

Ben_UK78

15

Years of Service

User Offline

Joined: 10th Jul 2010

Location:

Posted: 11th Sep 2013 12:15 Edited at: 11th Sep 2013 14:48

Link

Hi,
Thanks for the reply.

Setting: (global g_CAMERA_Offset# as float) still produces the strange occasional flicker as you zoom in and out. I gave myself a little headslap for not setting it as a float (I did it because it is an offset, not an x,y,z position so I thought it would handle adding it to the models internal variables - or at least imagined that would work).

However, the problem has not gone away. I assume I am missing something simple...

Here is the code with the variable changed to a float incase I missed the change you were referring to.

Rem Project: Darkness
Rem Created: Friday, September 06, 2013

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

sync on : sync rate 0 : backdrop off : autocam off
`if check display mode(1366, 768, 32)=1 then set display mode 1366, 768, 32
if check display mode(1024, 768, 32)=1 then set display mode 1024, 768, 32
set image colorkey 255,0,255
global g_root_directory$ as string : g_root_directory$ = get dir$()
`disable escapekey
`hide mouse
set window position 0,0

DEFINE_Constants()
DEFINE_Variables()

Setup_Game()
Load_Objects()

Main_Code()
end

function DEFINE_Constants()

#constant c_OBJNUM_TempMesh 12
  #constant c_OBJNUM_TempMesh2 13
  #constant c_CAMERA_ObjNum 13
  #constant c_CAMFREE_y_camera_rotation_speed 10

endfunction

function DEFINE_Variables()

dim fps_movement_correction#(0) as float

` INPUT VARIABLES
  `Mouse Variables
  global g_mousez_value as integer : g_mousez_value = mousez()
  dim g_mouseclick(4) as integer
  dim mouse_click(2) as integer

`RTS Camera
  global g_CAMFREE_mouse_oldx as integer
  global g_CAMFREE_mouse_oldy as integer
  
  global g_CAMERA_Offset# as float: g_CAMERA_Offset# = 100.0
  global g_CAMFREE_limb_angle# as float : g_CAMFREE_limb_angle# = 60

endfunction

function Setup_Game()

`Create Temp Mesh
  make object cube 1, 20
  make mesh from object c_OBJNUM_TempMesh, 1
  delete object 1
  
  make object plain 1, 0.1, 0.1
  make mesh from object c_OBJNUM_TempMesh2, 1
  delete object 1

`Make Camera Object
  make object cube c_CAMERA_ObjNum, 20
  add limb c_CAMERA_ObjNum, 1, c_OBJNUM_TempMesh
  add limb c_CAMERA_ObjNum, 2, c_OBJNUM_TempMesh2
  offset limb c_CAMERA_ObjNum, 2, 0, g_CAMERA_Offset#, 0
  link limb c_CAMERA_ObjNum, 1, 2
  rotate limb c_CAMERA_ObjNum, 1, 90, 0, 0

endfunction

function Load_Objects()

make object box 99, 100, 10, 50

position object 99, 0,0,0

endfunction

function Main_Code()

do
  
    ` Set the variable for regulating movement and game time against FPS per main program loop
    if screen fps() > 0
      fps_movement_correction#(0) = 100.0 / screen fps()
      if fps_movement_correction#(0) > 10
        fps_movement_correction#(0) = 1
      endif
    else
      fps_movement_correction#(0) = 1
    endif
  
    CAMERA_RTS_Engine()
    
    position camera limb position x(c_CAMERA_ObjNum, 2), limb position y(c_CAMERA_ObjNum, 2), limb position z(c_CAMERA_ObjNum, 2)
    point camera object position x(c_CAMERA_ObjNum), object position y(c_CAMERA_ObjNum), object position z(c_CAMERA_ObjNum)
 
    sync
  
  loop

endfunction

function CAMERA_RTS_Engine()

`Mouse Wheel Zoom
  if mousez() > g_mousez_value
    dec g_CAMERA_Offset#, 20
    g_mousez_value = mousez()
    offset limb c_CAMERA_ObjNum, 2, 0, g_CAMERA_Offset#, 0 
  endif
  
  if mousez() < g_mousez_value
    inc g_CAMERA_Offset#, 20
    g_mousez_value =  mousez()
    offset limb c_CAMERA_ObjNum, 2, 0, g_CAMERA_Offset#, 0
  endif
  
  FREECAM_INPUT_Mouse_Button2()

endfunction

function FREECAM_INPUT_Mouse_Button2()

local l_CAMObj_Limb_Y# as float

`1st click of the Number 2 mouse button
  if mouseclick() = 2 and mouse_click(2) = -1
    mouse_click(2) = 1
    g_CAMFREE_mouse_oldx = mousex()
    g_CAMFREE_mouse_oldy = mousey()
  endif
  if mouseclick() = 0 and mouse_click(2) <> -1
    mouse_click(2) = -1
  endif  
  
  `Follow on - holding down the Number 2 mouse button
  if mouse_click(2) = 1
  
    if mousey() > g_CAMFREE_mouse_oldy : `up
      if wrapvalue(limb angle x(c_CAMERA_ObjNum, 1)) < (170 - 3) 
        EZro_SetEuler limb angle x(c_CAMERA_ObjNum, 1), limb angle y(c_CAMERA_ObjNum, 1), limb angle z(c_CAMERA_ObjNum, 1)
        EZro_LX (3) : EZro_FindEuler
        rotate limb c_CAMERA_ObjNum, 1, EZro_GetEulerX(), EZro_GetEulerY(), EZro_GetEulerZ()
      endif
    endif
    
    if mousey() < g_CAMFREE_mouse_oldy : `down
      if wrapvalue(limb angle x(c_CAMERA_ObjNum, 1)) > 15 + 3 
        EZro_SetEuler limb angle x(c_CAMERA_ObjNum, 1), limb angle y(c_CAMERA_ObjNum, 1), limb angle z(c_CAMERA_ObjNum, 1)
        EZro_LX (0-3) : EZro_FindEuler
        rotate limb c_CAMERA_ObjNum, 1, EZro_GetEulerX(), EZro_GetEulerY(), EZro_GetEulerZ()
      endif
    endif
    
    if mousex() < g_CAMFREE_mouse_oldx: `left
      l_CAMObj_Limb_Y# = object angle y(c_CAMERA_ObjNum) - 3
      rotate object c_CAMERA_ObjNum, object angle x(c_CAMERA_ObjNum), l_CAMObj_Limb_Y#, object angle z(c_CAMERA_ObjNum)
    endif
    if mousex() > g_CAMFREE_mouse_oldx : `right
      l_CAMObj_Limb_Y# = object angle y(c_CAMERA_ObjNum) + 3
      rotate object c_CAMERA_ObjNum, object angle x(c_CAMERA_ObjNum), l_CAMObj_Limb_Y#, object angle z(c_CAMERA_ObjNum)
    endif
    
    g_CAMFREE_mouse_oldx = mousex()
    g_CAMFREE_mouse_oldy = mousey()
    
  endif

endfunction

+ Code Snippet

Rem Project: Darkness
Rem Created: Friday, September 06, 2013

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

sync on : sync rate 0 : backdrop off : autocam off
`if check display mode(1366, 768, 32)=1 then set display mode 1366, 768, 32
if check display mode(1024, 768, 32)=1 then set display mode 1024, 768, 32
set image colorkey 255,0,255
global g_root_directory$ as string : g_root_directory$ = get dir$()
`disable escapekey
`hide mouse
set window position 0,0 


DEFINE_Constants()
DEFINE_Variables()

Setup_Game()
Load_Objects()

Main_Code()
end


function DEFINE_Constants()

  #constant c_OBJNUM_TempMesh 12
  #constant c_OBJNUM_TempMesh2 13
  #constant c_CAMERA_ObjNum 13
  #constant c_CAMFREE_y_camera_rotation_speed 10

endfunction

function DEFINE_Variables()

  dim fps_movement_correction#(0) as float

` INPUT VARIABLES
  `Mouse Variables
  global g_mousez_value as integer : g_mousez_value = mousez()
  dim g_mouseclick(4) as integer
  dim mouse_click(2) as integer

  `RTS Camera
  global g_CAMFREE_mouse_oldx as integer
  global g_CAMFREE_mouse_oldy as integer
  
  global g_CAMERA_Offset# as float: g_CAMERA_Offset# = 100.0
  global g_CAMFREE_limb_angle# as float : g_CAMFREE_limb_angle# = 60

    
endfunction

function Setup_Game()

  `Create Temp Mesh
  make object cube 1, 20
  make mesh from object c_OBJNUM_TempMesh, 1
  delete object 1
  
  make object plain 1, 0.1, 0.1
  make mesh from object c_OBJNUM_TempMesh2, 1
  delete object 1

  `Make Camera Object
  make object cube c_CAMERA_ObjNum, 20
  add limb c_CAMERA_ObjNum, 1, c_OBJNUM_TempMesh
  add limb c_CAMERA_ObjNum, 2, c_OBJNUM_TempMesh2
  offset limb c_CAMERA_ObjNum, 2, 0, g_CAMERA_Offset#, 0
  link limb c_CAMERA_ObjNum, 1, 2
  rotate limb c_CAMERA_ObjNum, 1, 90, 0, 0


endfunction

function Load_Objects()

  make object box 99, 100, 10, 50

  position object 99, 0,0,0
  

endfunction

function Main_Code()


  do
  
    ` Set the variable for regulating movement and game time against FPS per main program loop
    if screen fps() > 0
      fps_movement_correction#(0) = 100.0 / screen fps()
      if fps_movement_correction#(0) > 10
        fps_movement_correction#(0) = 1
      endif
    else
      fps_movement_correction#(0) = 1
    endif
  
    CAMERA_RTS_Engine()
    
    position camera limb position x(c_CAMERA_ObjNum, 2), limb position y(c_CAMERA_ObjNum, 2), limb position z(c_CAMERA_ObjNum, 2)
    point camera object position x(c_CAMERA_ObjNum), object position y(c_CAMERA_ObjNum), object position z(c_CAMERA_ObjNum)
 
    sync
  
  loop

endfunction

function CAMERA_RTS_Engine()

  `Mouse Wheel Zoom
  if mousez() > g_mousez_value
    dec g_CAMERA_Offset#, 20
    g_mousez_value = mousez()
    offset limb c_CAMERA_ObjNum, 2, 0, g_CAMERA_Offset#, 0 
  endif
  
  if mousez() < g_mousez_value
    inc g_CAMERA_Offset#, 20
    g_mousez_value =  mousez()
    offset limb c_CAMERA_ObjNum, 2, 0, g_CAMERA_Offset#, 0
  endif
  
  FREECAM_INPUT_Mouse_Button2()

endfunction

function FREECAM_INPUT_Mouse_Button2()

  local l_CAMObj_Limb_Y# as float

  `1st click of the Number 2 mouse button
  if mouseclick() = 2 and mouse_click(2) = -1
    mouse_click(2) = 1
    g_CAMFREE_mouse_oldx = mousex()
    g_CAMFREE_mouse_oldy = mousey()
  endif
  if mouseclick() = 0 and mouse_click(2) <> -1
    mouse_click(2) = -1
  endif  
  
  `Follow on - holding down the Number 2 mouse button
  if mouse_click(2) = 1
  
    if mousey() > g_CAMFREE_mouse_oldy : `up
      if wrapvalue(limb angle x(c_CAMERA_ObjNum, 1)) < (170 - 3) 
        EZro_SetEuler limb angle x(c_CAMERA_ObjNum, 1), limb angle y(c_CAMERA_ObjNum, 1), limb angle z(c_CAMERA_ObjNum, 1)
        EZro_LX (3) : EZro_FindEuler
        rotate limb c_CAMERA_ObjNum, 1, EZro_GetEulerX(), EZro_GetEulerY(), EZro_GetEulerZ()
      endif
    endif
    
    if mousey() < g_CAMFREE_mouse_oldy : `down
      if wrapvalue(limb angle x(c_CAMERA_ObjNum, 1)) > 15 + 3 
        EZro_SetEuler limb angle x(c_CAMERA_ObjNum, 1), limb angle y(c_CAMERA_ObjNum, 1), limb angle z(c_CAMERA_ObjNum, 1)
        EZro_LX (0-3) : EZro_FindEuler
        rotate limb c_CAMERA_ObjNum, 1, EZro_GetEulerX(), EZro_GetEulerY(), EZro_GetEulerZ()
      endif
    endif
    
    if mousex() < g_CAMFREE_mouse_oldx: `left
      l_CAMObj_Limb_Y# = object angle y(c_CAMERA_ObjNum) - 3
      rotate object c_CAMERA_ObjNum, object angle x(c_CAMERA_ObjNum), l_CAMObj_Limb_Y#, object angle z(c_CAMERA_ObjNum)
    endif
    if mousex() > g_CAMFREE_mouse_oldx : `right
      l_CAMObj_Limb_Y# = object angle y(c_CAMERA_ObjNum) + 3
      rotate object c_CAMERA_ObjNum, object angle x(c_CAMERA_ObjNum), l_CAMObj_Limb_Y#, object angle z(c_CAMERA_ObjNum)
    endif
    
    g_CAMFREE_mouse_oldx = mousex()
    g_CAMFREE_mouse_oldy = mousey()
    
  endif

endfunction

Back to top

Profile PM Email

Mobiius

Valued Member

23

Years of Service

User Offline

Joined: 27th Feb 2003

Location: The Cold North

Posted: 11th Sep 2013 13:57

Link

Try putting the freecam input function at the start of the camera_rts function, rather than at the end of it.

And you don't need to explicitly declare variables in functions as local. They already are.

Now Visit My Website

Back to top

Profile PM Email Website

Chris Tate

DBPro Master

17

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 11th Sep 2013 14:31 Edited at: 11th Sep 2013 14:31

Link

Quote: "And you don't need to explicitly declare variables in functions as local. They already are."

100% True, but I think it is a personal matter.

I declare locals explicit anyway for consistency, when your code piles up it becomes more likely for you to forget that a local is also a global.

I also do it so that they syntax highlight in Indigo. I even declare arrays as global, even though they are by default for consistency, the same way in VB.NET I declare properties as public, and in JavaScript i use the var keyword; even though they are so by default.

Something I do not do is local l_CAMObj_Limb_Y# as float because all variables suffixed with # are floats anyway, but again that is personal.

Back to top

Profile PM Email Website

Ben_UK78

15

Years of Service

User Offline

Joined: 10th Jul 2010

Location:

Posted: 11th Sep 2013 14:46 Edited at: 11th Sep 2013 14:48

Link

Hi All again.

I agree with regard to the local definitions. I use the personal naming l_, g_, and c_ (local, global, constant) when I name variables - that way I always know what type a variable is.

Anyway, sadly it cannot be the code for rotating the camera [function: FREECAM_INPUT_Mouse_Button2()] since commenting it out still produces the effect.

It seems whatever causes it does it just with:

+ Code Snippet

  `Mouse Wheel Zoom
  if mousez() > g_mousez_value
    dec g_CAMERA_Offset#, 20
    g_mousez_value = mousez()
    offset limb c_CAMERA_ObjNum, 2, 0, g_CAMERA_Offset#, 0 
  endif
  
  if mousez() < g_mousez_value
    inc g_CAMERA_Offset#, 20
    g_mousez_value =  mousez()
    offset limb c_CAMERA_ObjNum, 2, 0, g_CAMERA_Offset#, 0
  endif

Back to top

Profile PM Email

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 11th Sep 2013 14:59 Edited at: 11th Sep 2013 15:25

Link

The Math way to do this would be:

1: Store mouse inputs
2: Update camera angle
3: Work out the look vector based on our angle
4: Scale that look vector by our zoom amount
Edit: 5: Add scaled vector to your point position

You'd position the camera at (5) and just point it where that point is. Also it would use far less code.

Quote: "local definitions"

I just put _ in front of whatever is global and constant are in all caps. No need for the extra letters:

local
_global
CONSTANT

"Get in the Van!" - Van B

Back to top

Profile PM Email

Chris Tate

DBPro Master

17

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 11th Sep 2013 16:38

Link

Yeah everyone has their own way. I use underscore prefixes for 'precompiled' functions: _NEW Array() is the same as Array Insert At Bottom Array().

Back to top

Profile PM Email Website

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 11th Sep 2013 18:25 Edited at: 11th Sep 2013 18:38

Link

Here a quick example of what I'm talking about, I call it a dirty version cause I wrote it quick.

Press any key to change object focus
Use mouse to rotate and mouse wheel to zoom

// dirty version
sync on : sync rate 60
autocam off : color backdrop rgb(173,186,192)

for n = 1 to 100
    make object cube n,1
    position object n,rnd(100)-50,rnd(100)-50,rnd(100)-50
next

camZoom# = 4
newPosX# = object position x(1)
newPosY# = object position y(1)
newPosZ# = object position z(1)

do

// store input data
    _oldScancode = _scancode
    _scancode    =  scancode()
    
    // mouse smoothing
    pn# = 1.0 / 10.0 : po# = 1.0 - pn#
    _mouseVelocityX# = _mouseVelocityX# * po# + mousemovex() * pn#
    _mouseVelocityY# = _mouseVelocityY# * po# + mousemovey() * pn#
    _mouseVelocityZ# = _mouseVelocityZ# * po# + mousemovez() * pn#
    
    // input update
    // update camera zooming
    if _mouseVelocityZ# <> 0
        camZoom# = clamp((camZoom#-(_mouseVelocityZ#*.02)),4,100)
    endif
    
    // change camera position
    if _scancode <> 0 and _oldScancode = 0
        n = wrap( n+1, 1, 100 )
        newPosX# = object position x(n)
        newPosY# = object position y(n)
        newPosZ# = object position z(n)
        percent# = 0.0
    endif
    
    // check if position needs to be lerped (interlerped)
    if (newPosX# <> originX#) || (newPosX# <> originY#) || (newPosX# <> originZ#)
        inc percent#, 0.01
        originX# = (originX# + percent#*(newPosX# - originX#))
        originY# = (originY# + percent#*(newPosY# - originY#))
        originZ# = (originZ# + percent#*(newPosZ# - originZ#))
    endif
    
    // update camera rotation
    cameraAngX# = cameraAngX# - (_mouseVelocityY# * .24)
    cameraAngY# = wrapvalue(cameraAngY# + (_mouseVelocityX# *.24))
    cameraAngZ# = 0.0
    cameraAngX# = clamp(cameraAngX#,-89.9,89.9) // clamp it so it doesn't go over the top or bottom

// create a look vector based off are camera rotation (needs to be normailised)
    lookX# = sin(cameraAngZ#) * sin(cameraAngX#) + cos(cameraAngZ#) * sin(cameraAngY#) * cos(cameraAngX#)
    lookY# = -cos(cameraAngZ#) * sin(cameraAngX#) + sin(cameraAngZ#) * sin(cameraAngY#) * cos(cameraAngX#)
    lookZ# = cos(cameraAngY#) * cos(cameraAngX#)    
	
    // scale look vector by zoom amount and add (offset) to our camera position (origin)
    camPosX# = originX# + (lookX# * camZoom#)
    camPosY# = originY# + (lookY# * camZoom#)
    camPosZ# = originZ# + (lookZ# * camZoom#)
	
    // update camera
    position camera camPosX#, camPosY#, camPosZ#
    point camera originX#, originY#, originZ#
    
    // some text
    set cursor 0,0 : ink 0,0
    print "Press any key to change object focus"
    print "Use mouse to rotate and mouse wheel to zoom"

sync
loop

+ Code Snippet

// dirty version
sync on : sync rate 60
autocam off : color backdrop rgb(173,186,192)

for n = 1 to 100
    make object cube n,1
    position object n,rnd(100)-50,rnd(100)-50,rnd(100)-50
next

camZoom# = 4
newPosX# = object position x(1)
newPosY# = object position y(1)
newPosZ# = object position z(1)

do

    // store input data
    _oldScancode = _scancode
    _scancode    =  scancode()
    
    // mouse smoothing
    pn# = 1.0 / 10.0 : po# = 1.0 - pn#
    _mouseVelocityX# = _mouseVelocityX# * po# + mousemovex() * pn#
    _mouseVelocityY# = _mouseVelocityY# * po# + mousemovey() * pn#
    _mouseVelocityZ# = _mouseVelocityZ# * po# + mousemovez() * pn#
    
    // input update
    // update camera zooming
    if _mouseVelocityZ# <> 0
        camZoom# = clamp((camZoom#-(_mouseVelocityZ#*.02)),4,100)
    endif
    
    // change camera position
    if _scancode <> 0 and _oldScancode = 0
        n = wrap( n+1, 1, 100 )
        newPosX# = object position x(n)
        newPosY# = object position y(n)
        newPosZ# = object position z(n)
        percent# = 0.0
    endif
    
    // check if position needs to be lerped (interlerped)
    if (newPosX# <> originX#) || (newPosX# <> originY#) || (newPosX# <> originZ#)
        inc percent#, 0.01
        originX# = (originX# + percent#*(newPosX# - originX#))
        originY# = (originY# + percent#*(newPosY# - originY#))
        originZ# = (originZ# + percent#*(newPosZ# - originZ#))
    endif
    
    // update camera rotation
    cameraAngX# = cameraAngX# - (_mouseVelocityY# * .24)
    cameraAngY# = wrapvalue(cameraAngY# + (_mouseVelocityX# *.24))
    cameraAngZ# = 0.0
    cameraAngX# = clamp(cameraAngX#,-89.9,89.9) // clamp it so it doesn't go over the top or bottom

    // create a look vector based off are camera rotation (needs to be normailised)
    lookX# = sin(cameraAngZ#) * sin(cameraAngX#) + cos(cameraAngZ#) * sin(cameraAngY#) * cos(cameraAngX#)
    lookY# = -cos(cameraAngZ#) * sin(cameraAngX#) + sin(cameraAngZ#) * sin(cameraAngY#) * cos(cameraAngX#)
    lookZ# = cos(cameraAngY#) * cos(cameraAngX#)    
	
    // scale look vector by zoom amount and add (offset) to our camera position (origin)
    camPosX# = originX# + (lookX# * camZoom#)
    camPosY# = originY# + (lookY# * camZoom#)
    camPosZ# = originZ# + (lookZ# * camZoom#)
	
    // update camera
    position camera camPosX#, camPosY#, camPosZ#
    point camera originX#, originY#, originZ#
    
    // some text
    set cursor 0,0 : ink 0,0
    print "Press any key to change object focus"
    print "Use mouse to rotate and mouse wheel to zoom"

    sync
loop

There's also a cheap way of making Up, Right and Look(forward) Vectors using objects

+ Code Snippet

// look vector
oldX# = object position x(n)
oldY# = object position y(n)
oldZ# = object position z(n)
    move object n, 1
newX# = object position x(n)
newY# = object position y(n)
newZ# = object position z(n)

lookX# = newX# - oldX#
lookY# = newY# - oldY#
lookZ# = newZ# - oldZ#

// just change this
move object n, 1
// to...
move object up n, 1         // for up vector
move object right n, 1      // for right vector

"Get in the Van!" - Van B

Back to top

Profile PM Email

Ben_UK78

15

Years of Service

User Offline

Joined: 10th Jul 2010

Location:

Posted: 11th Sep 2013 18:45

Link

Brilliant. Thanks very much - works perfectly. I will adapt this instead.

Back to top

Profile PM Email

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 11th Sep 2013 23:39

Link

I would like to solve the initial problem but I don't have EZrotate so this is all I could offer. Might look it over just to see if I can work it out!

"Get in the Van!" - Van B

Back to top

Profile PM Email

Mage

Valued Member

19

Years of Service

User Offline

Joined: 3rd Feb 2007

Location:

Posted: 12th Sep 2013 05:08

Link

Quote: "I declare locals explicit anyway for consistency, when your code piles up it becomes more likely for you to forget that a local is also a global."

I agree, even though I don't always adhere to it, this is good form. In DBP I usually set the variables equal to 0 rather than using Local. I wouldn't zero an entire array though unless I had to, due to performance considerations.

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Offset limb, rotate limb (or something related) Homeworld style camera jumping