camera_move problem?

Blitz3D Forums/Blitz3D Beginners Area/camera_move problem?

Guy Fawkes (Posted 2012) [#1]

Hi all, can someone please make it so that my camera code when resetting the mouse back to the middle of the screen, WONT affect my pitch/yaw rotation of my camera AT all? i figure if i keep resetting the mouse back to the middle WITH it doing this, that camera rotating will become EXTREMELY fast, and i dont have to keep dragging my mouse back to the middle of the screen everytime i wanna turn in a circle... Here's the code: Global MaX, MaY Function camera_move() omax=max omay=may max = MouseX() may = MouseY() If PickedEntity()=0 MoveEntity camera, (KeyDown(32)-KeyDown(30) Or KeyDown(203)-KeyDown(205))*0.1, (KeyDown(44)-KeyDown(46))*0.1, (KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))*0.1 EndIf If MouseDown(1) Then If mouse_down_1 = 0 Then mouse_down_1 = 1 mouse_x_reset = MouseX() mouse_y_reset = MouseY() If mouse_x_reset > GraphicsWidth()+50 Or mouse_x_reset < GraphicsWidth()/2-50 Then mouse_down = 0 mouse_x_reset = GraphicsWidth()/2 EndIf If mouse_y_reset > GraphicsHeight()/2+50 Or mouse_y_reset < GraphicsHeight()/2-50 Then mouse_down = 0 mouse_y_reset = GraphicsHeight()/2 EndIf MoveMouse mouse_x_reset,mouse_y_reset End If mspdx# = max-omax mspdy# = may-omay spd# = 0.1 pitch# = EntityPitch(camera,True)+(mspdy#*spd#) yaw# = EntityYaw(camera,True)+(mspdx#*-spd#) roll# = 0 If yaw# > 359.0 Then yaw# = 0.0 If yaw# < -359.0 Then yaw# = 0.0 If pitch# > 85.0 Then pitch# = 85.0 If pitch# < -85.0 Then pitch# = -85.0 RotateEntity camera,pitch#,yaw#,roll# MoveMouse mouse_x_reset, mouse_y_reset Else mouse_down_1 = 0 End If End Function Any help is GREATLY appreciated! :) Thanks! :) Last edited 2012

Ross C (Posted 2012) [#2]

What was wrong with the mouse code I had in the orginal editor I posted? My code the mouse never moved from the spot it was at when rotating the camera.

Guy Fawkes (Posted 2012) [#3]

Well. it was jittery. I need a solid cam that works WITHOUT selecting objects when holding down the left mouse button. where the mouse ALWAYS stays hidden, and in the middle.

Yasha (Posted 2012) [#4]

1) Use MouseSpeedX and MouseSpeedY rather than rewriting the same functionality yourself. 2) Take note that they mouse speed commands work with the mouse's movement since the last time they were called. Clever positioning of the commands (possibly in more than one place, hint) can therefore be used to remove unwanted effects from the reset command.

Guy Fawkes (Posted 2012) [#5]

it was WAY worse with it unfortunately :/ Last edited 2012

Ross C (Posted 2012) [#6]

My code was solid though. All it takes is a slight tweak to the selection code. I have included my mouse code, which gives you additional functionality such as: Mouse just held Mouse clicked Mouse in Mouse out Mouse held Const graphics_width = 800 Const graphics_height = 600 Graphics3D 800,600 SetBuffer BackBuffer() ; Ross C mouse helper code ;mouse modes are: ; 0 = nothing ; 1 = in ; 2 = held ; 3 = out ; 4 = click ; 5 = just this loop being held in Const mouse_in = 1 Const mouse_held = 2 Const mouse_out = 3 Const mouse_click = 4 Const mouse_just_held = 5 ;left mouse button Global mouse_1_mode = 0 Global mouse_1_hold_time = 150 ; length of time for mouse to be considered held down Global mouse_1_hold_timer ;right mouse button Global mouse_2_mode = 0 Global mouse_2_hold_time = 150 ; length of time for mouse to be considered held down Global mouse_2_hold_timer ; middle mouse button Global mouse_3_mode = 0 Global mouse_3_hold_time = 5 ; length of time for mouse to be considered held down Global mouse_3_hold_timer ; END Type obj Field selected Field alpha# Field mesh Field red Field green Field blue End Type ; Create a floor and texture, to give reference Global ground = CreatePlane() PositionEntity ground,0,-1,0 Global ground_tex = CreateTexture(256,256,8) SetBuffer TextureBuffer(ground_tex) Color 0,0,0 Rect 0,0,256,256 Color 100,100,255 Rect 1,1,254,254 SetBuffer BackBuffer() EntityTexture ground,ground_tex Global camera = CreateCamera() Global object_count ; keeps track of the number of objects ; Variables for camera mouse moving. Global mouse_down_1 = 0 Global mouse_x_reset Global mouse_y_reset ; create some spheres For loop = 1 To 2 c.obj = New obj c\mesh = CreateSphere() size# = Rnd(1,3) ScaleMesh c\mesh,size,size,size c\red = Rand(0,255) c\green = Rand(0,255) c\blue = Rand(0,255) EntityColor c\mesh,c\red,c\green,c\blue object_count = object_count + 1 PositionEntity c\mesh,Rnd(-20,20),Rnd(0,0),Rnd(3,50) EntityPickMode c\mesh,2 Next While Not KeyHit(1) Cls process_mouse_hits() camera_move() check_control_keys() check_mouse() UpdateWorld RenderWorld Text 0,0," Basic Editor. Number of Objects:"+object_count Text 0,12,"ARROW KEYS,A & D to move selected objects/raise lower" Text 0,24,"HOLD LEFT CLICK to control camera. WASD/ARROW KEYS to move" Text 0,36,"CTRL A to select all" Text 0,48,"CTRL C to copy selected" Text 0,60,"Left click to select one object" Text 0,72,"SHIFT Left click to select multiple" Text 0,84,"CTRL left click to deselect an item" Flip Color 255,255,255 Wend Function camera_move() If MouseDown(1) Then If mouse_down_1 = 0 Then mouse_down_1 = 1 mouse_x_reset = MouseX() mouse_y_reset = MouseY() MoveMouse mouse_x_reset,mouse_y_reset End If If KeyDown(17) Or KeyDown(200) Then MoveEntity camera,0,0,0.1 End If If KeyDown(31) Or KeyDown(208) Then MoveEntity camera,0,0,-0.1 End If If KeyDown(30) Or KeyDown(203) Then MoveEntity camera,-0.1,0,0 End If If KeyDown(32) Or KeyDown(205) Then MoveEntity camera,0.1,0,0 End If RotateEntity camera,EntityPitch(camera,True)+(MouseYSpeed()*0.2),EntityYaw(camera,True)+(MouseXSpeed()*-0.2),0 MoveMouse mouse_x_reset, mouse_y_reset Else mouse_down_1 = 0 End If End Function Function check_control_keys() If KeyDown(29) Or KeyDown(157) ; IF either LEFT or RIGHT CTRL held down If KeyHit(46) Then ; IF C key pressed copy_selected() End If If KeyHit(30) Then ; IF A key pressed select_all() End If Else If KeyDown(200) Then move_selected(0,0,0.1) ; Move along +Z aixs End If If KeyDown(208) Then move_selected(0,0,-0.1) ; Move along -Z axis End If If KeyDown(203) Then move_selected(-0.1,0,0) ; Move along +X axis End If If KeyDown(205) Then move_selected(0.1,0,0) ; Move along -X axis End If If KeyDown(30) Then move_selected(0,0.1,0) ; Move along +Y axis End If If KeyDown(44) Then move_selected(0,-0.1,0) ; Move along +Y axis End If If KeyHit(211) Then delete_selected End If End If FlushKeys() End Function Function delete_selected() For c.obj = Each obj If c\selected = 1 Then FreeEntity c\mesh Delete c.obj object_count = object_count -1 End If Next End Function Function select_all() For c.obj = Each obj c\selected = 1 select_object(c.obj) Next End Function ; This function doesn't use a FOR/NEXT loop for cycle through the type objects. This is because I don't want to be creating new type objects and looping through the newly created ones. ; It also gives me the ability to deselected the copied entities and select the newly created ones. Function copy_selected() temp_count = object_count ; this is because the copy function will add to the object count. Since we don't want to loop through newly copied entities, this stops it reading the new entities. If temp_count > 0 Then temp_counter = 0 c.obj = First obj Repeat temp_counter = temp_counter + 1 If c\selected = 1 Then create_new_copy(c.obj,1,0,0,1) deselect_object(c.obj) End If If c.obj <> Last obj Then ; move forward to the next object, only if not current on the last object c = After c End If Until temp_counter = temp_count End If End Function ; creates a copy and positions it away from the original. Uses the originals width to space, mulitplied by the provided values Function create_new_copy(temp.obj,offset_x#,offset_y#,offset_z#,selected = 0) new_c.obj = New obj new_c\selected = 0 new_c\mesh = CopyEntity (temp\mesh) temp_x_offset = (MeshWidth(new_c\mesh) + (MeshWidth(new_c\mesh)*0.1)) * offset_x temp_y_offset = (MeshHeight(new_c\mesh) + (MeshHeight(new_c\mesh)*0.1)) * offset_y temp_z_offset = (MeshDepth(new_c\mesh) + (MeshDepth(new_c\mesh)*0.1)) * offset_z DebugLog(temp_y_offset) PositionEntity new_c\mesh,EntityX(new_c\mesh,True)+temp_x_offset, EntityY(new_c\mesh,True)+temp_y_offset, EntityZ(new_c\mesh,True)+temp_z_offset new_c\red = temp\red new_c\green = temp\green new_c\blue = temp\blue EntityColor new_c\mesh,new_c\red,new_c\green,new_c\blue If selected = 1 Then select_object(new_c.obj) End If object_count = object_count + 1 End Function Function move_selected(x#,y#,z#) For c.obj = Each obj If c\selected = 1 Then MoveEntity c\mesh,x,y,z End If Next End Function Function check_mouse() If mouse_1_mode = mouse_click Then CameraPick(camera,MouseX(),MouseY()) If KeyDown(29) Or KeyDown(157) Then ; IF LEFT or RIGHT CTRL key is held down (remove from selection) remove_entity(PickedEntity()) ElseIf KeyDown(42) Or KeyDown(54) Then add_to_selection(PickedEntity()) Else add_only_to_selection(PickedEntity()) End If End If End Function Function remove_entity(entity) For c.obj = Each obj If c\selected = 1 Then If c\mesh = entity Then deselect_object(c.obj) End If End If Next End Function Function add_to_selection(entity) For c.obj = Each obj If c\mesh = entity Then If c\selected = 1 Then Return Else select_object(c.obj) End If End If Next End Function Function add_only_to_selection(entity) remove_all_selections() For c.obj = Each obj If c\mesh = entity Then select_object(c.obj) End If Next End Function Function remove_all_selections() For c.obj = Each obj deselect_object(c.obj) Next End Function Function select_object(temp.obj) temp\alpha = 0.5 EntityAlpha temp\mesh,temp\alpha temp\selected = 1 End Function Function deselect_object(temp.obj) temp\alpha = 1 EntityAlpha temp\mesh,temp\alpha temp\selected = 0 End Function Function process_mouse_hits() If mouse_1_mode = mouse_just_held Then mouse_1_mode = mouse_held End If If mouse_2_mode = mouse_just_held Then mouse_2_mode = mouse_held End If If mouse_3_mode = mouse_just_held Then mouse_3_mode = mouse_held End If If MouseDown(1) Then If mouse_1_mode = 0 Then mouse_1_mode = mouse_in mouse_1_hold_timer = MilliSecs() ElseIf mouse_1_mode = mouse_in Then If MilliSecs() > mouse_1_hold_timer+mouse_1_hold_time Then mouse_1_mode = mouse_just_held End If End If Else If mouse_1_mode = mouse_click Or mouse_1_mode = mouse_out Then ; check for click first, as other may set click below mouse_1_mode = 0 ElseIf mouse_1_mode = mouse_in Then mouse_1_mode = mouse_click ElseIf mouse_1_mode = mouse_held Then mouse_1_mode = mouse_out End If End If If MouseDown(2) Then If mouse_2_mode = 0 Then mouse_2_mode = mouse_in mouse_2_hold_timer = MilliSecs() ElseIf mouse_2_mode = mouse_in Then If MilliSecs() > mouse_2_hold_timer+mouse_2_hold_time Then mouse_2_mode = mouse_just_held End If End If Else If mouse_2_mode = mouse_click Or mouse_2_mode = mouse_out Then ; check for click first, as other may set click below mouse_2_mode = 0 ElseIf mouse_2_mode = mouse_in Then mouse_2_mode = mouse_click ElseIf mouse_2_mode = mouse_held Then mouse_2_mode = mouse_out End If End If If MouseDown(3) Then If mouse_3_mode = 0 Then mouse_3_mode = mouse_in mouse_3_hold_timer = MilliSecs() ElseIf mouse_3_mode = mouse_in Then If MilliSecs() > mouse_3_hold_timer+mouse_3_hold_time Then mouse_3_mode = mouse_just_held End If End If Else If mouse_3_mode = mouse_click Or mouse_3_mode = mouse_out Then ; check for click first, as other may set click below mouse_3_mode = 0 ElseIf mouse_3_mode = mouse_in Then mouse_3_mode = mouse_click ElseIf mouse_3_mode = mouse_held Then mouse_3_mode = mouse_out End If End If End Function Why does the mouse need to stay in the middle? So, whenever the user moves the camera, the mouse jumps to the middle? That's odd. Anyway, I've made a very small tweak. And to hide the mouse use the hidepointer command, or if you have your own mouse, just don't draw it. Last edited 2012

Guy Fawkes (Posted 2012) [#7]

Well, because I dont want to keep having to drag drag drag the mouse to be able to look around in a complete circle

Guy Fawkes (Posted 2012) [#8]

I just tested it, and it's MUCH better now! Thank you, Ross! :) Btw, here's the PERFECTED version: Const graphics_width = 800 Const graphics_height = 600 Graphics3D graphics_width,graphics_height,0,2 SetBuffer BackBuffer() ; Ross C mouse helper code ;mouse modes are: ; 0 = nothing ; 1 = in ; 2 = held ; 3 = out ; 4 = click ; 5 = just this loop being held in Const mouse_in = 1 Const mouse_held = 2 Const mouse_out = 3 Const mouse_click = 4 Const mouse_just_held = 5 ;left mouse button Global mouse_1_mode = 0 Global mouse_1_hold_time = 150 ; length of time for mouse to be considered held down Global mouse_1_hold_timer ;right mouse button Global mouse_2_mode = 0 Global mouse_2_hold_time = 150 ; length of time for mouse to be considered held down Global mouse_2_hold_timer ; middle mouse button Global mouse_3_mode = 0 Global mouse_3_hold_time = 5 ; length of time for mouse to be considered held down Global mouse_3_hold_timer ; END Type obj Field selected Field alpha# Field mesh Field red Field green Field blue End Type ; Create a floor and texture, to give reference Global ground = CreatePlane() PositionEntity ground,0,-1,0 Global ground_tex = CreateTexture(256,256,8) SetBuffer TextureBuffer(ground_tex) Color 0,0,0 Rect 0,0,256,256 Color 100,100,255 Rect 1,1,254,254 SetBuffer BackBuffer() EntityTexture ground,ground_tex Global camera = CreateCamera() CameraRange camera,.1,50000 Global object_count ; keeps track of the number of objects ; Variables for camera mouse moving. Global mouse_down_1 = 0 Global mouse_x_reset Global mouse_y_reset ; create some spheres For loop = 1 To 2 c.obj = New obj c\mesh = CreateSphere() size# = Rnd(1,3) ScaleMesh c\mesh,size,size,size c\red = Rand(0,255) c\green = Rand(0,255) c\blue = Rand(0,255) EntityColor c\mesh,c\red,c\green,c\blue object_count = object_count + 1 PositionEntity c\mesh,Rnd(-20,20),Rnd(0,0),Rnd(3,50) EntityPickMode c\mesh,2 Next While Not KeyHit(1) Cls process_mouse_hits() camera_move() check_control_keys() check_mouse() UpdateWorld RenderWorld Text 0,0," Basic Editor. Number of Objects:"+object_count Text 0,12,"ARROW KEYS,A & D to move selected objects/raise lower" Text 0,24,"HOLD LEFT CLICK to control camera. WASD/ARROW KEYS to move" Text 0,36,"CTRL A to select all" Text 0,48,"CTRL C to copy selected" Text 0,60,"Left click to select one object" Text 0,72,"SHIFT Left click to select multiple" Text 0,84,"CTRL left click to deselect an item" Flip Color 255,255,255 Wend Function camera_move() If MouseDown(1) Then If mouse_down_1 = 0 Then mouse_down_1 = 1 mouse_x_reset = MouseX() mouse_y_reset = MouseY() MoveMouse mouse_x_reset,mouse_y_reset End If If KeyDown(17) Or KeyDown(200) Then MoveEntity camera,0,0,0.1 End If If KeyDown(31) Or KeyDown(208) Then MoveEntity camera,0,0,-0.1 End If If KeyDown(30) Or KeyDown(203) Then MoveEntity camera,-0.1,0,0 End If If KeyDown(32) Or KeyDown(205) Then MoveEntity camera,0.1,0,0 End If pitch# = EntityPitch#(camera,True)+(MouseYSpeed()*0.2) yaw# = EntityYaw#(camera,True)+(MouseXSpeed()*-0.2) If pitch# < -85.0 Then pitch# = -85.0 If pitch# > 85.0 Then pitch# = 85.0 If yaw# < -359.0 Then yaw# = 0.0 If yaw# > 359.0 Then yaw# = 0.0 RotateEntity camera,pitch#,yaw#,0 MoveMouse mouse_x_reset, mouse_y_reset Else mouse_down_1 = 0 End If End Function Function check_control_keys() If KeyDown(29) Or KeyDown(157) ; IF either LEFT or RIGHT CTRL held down If KeyHit(46) Then ; IF C key pressed copy_selected() End If If KeyHit(30) Then ; IF A key pressed select_all() End If Else If KeyDown(200) Then move_selected(0,0,0.1) ; Move along +Z aixs End If If KeyDown(208) Then move_selected(0,0,-0.1) ; Move along -Z axis End If If KeyDown(203) Then move_selected(-0.1,0,0) ; Move along +X axis End If If KeyDown(205) Then move_selected(0.1,0,0) ; Move along -X axis End If If KeyDown(30) Then move_selected(0,0.1,0) ; Move along +Y axis End If If KeyDown(44) Then move_selected(0,-0.1,0) ; Move along +Y axis End If If KeyHit(211) Then delete_selected End If End If FlushKeys() End Function Function delete_selected() For c.obj = Each obj If c\selected = 1 Then FreeEntity c\mesh Delete c.obj object_count = object_count -1 End If Next End Function Function select_all() For c.obj = Each obj c\selected = 1 select_object(c.obj) Next End Function ; This function doesn't use a FOR/NEXT loop for cycle through the type objects. This is because I don't want to be creating new type objects and looping through the newly created ones. ; It also gives me the ability to deselected the copied entities and select the newly created ones. Function copy_selected() temp_count = object_count ; this is because the copy function will add to the object count. Since we don't want to loop through newly copied entities, this stops it reading the new entities. If temp_count > 0 Then temp_counter = 0 c.obj = First obj Repeat temp_counter = temp_counter + 1 If c\selected = 1 Then create_new_copy(c.obj,1,0,0,1) deselect_object(c.obj) End If If c.obj <> Last obj Then ; move forward to the next object, only if not current on the last object c = After c End If Until temp_counter = temp_count End If End Function ; creates a copy and positions it away from the original. Uses the originals width to space, mulitplied by the provided values Function create_new_copy(temp.obj,offset_x#,offset_y#,offset_z#,selected = 0) new_c.obj = New obj new_c\selected = 0 new_c\mesh = CopyEntity (temp\mesh) temp_x_offset = (MeshWidth(new_c\mesh) + (MeshWidth(new_c\mesh)*0.1)) * offset_x temp_y_offset = (MeshHeight(new_c\mesh) + (MeshHeight(new_c\mesh)*0.1)) * offset_y temp_z_offset = (MeshDepth(new_c\mesh) + (MeshDepth(new_c\mesh)*0.1)) * offset_z DebugLog(temp_y_offset) PositionEntity new_c\mesh,EntityX(new_c\mesh,True)+temp_x_offset, EntityY(new_c\mesh,True)+temp_y_offset, EntityZ(new_c\mesh,True)+temp_z_offset new_c\red = temp\red new_c\green = temp\green new_c\blue = temp\blue EntityColor new_c\mesh,new_c\red,new_c\green,new_c\blue If selected = 1 Then select_object(new_c.obj) End If object_count = object_count + 1 End Function Function move_selected(x#,y#,z#) For c.obj = Each obj If c\selected = 1 Then MoveEntity c\mesh,x,y,z End If Next End Function Function check_mouse() If mouse_1_mode = mouse_click Then CameraPick(camera,MouseX(),MouseY()) If KeyDown(29) Or KeyDown(157) Then ; IF LEFT or RIGHT CTRL key is held down (remove from selection) remove_entity(PickedEntity()) ElseIf KeyDown(42) Or KeyDown(54) Then add_to_selection(PickedEntity()) Else add_only_to_selection(PickedEntity()) End If End If End Function Function remove_entity(entity) For c.obj = Each obj If c\selected = 1 Then If c\mesh = entity Then deselect_object(c.obj) End If End If Next End Function Function add_to_selection(entity) For c.obj = Each obj If c\mesh = entity Then If c\selected = 1 Then Return Else select_object(c.obj) End If End If Next End Function Function add_only_to_selection(entity) remove_all_selections() For c.obj = Each obj If c\mesh = entity Then select_object(c.obj) End If Next End Function Function remove_all_selections() For c.obj = Each obj deselect_object(c.obj) Next End Function Function select_object(temp.obj) temp\alpha = 0.5 EntityAlpha temp\mesh,temp\alpha temp\selected = 1 End Function Function deselect_object(temp.obj) temp\alpha = 1 EntityAlpha temp\mesh,temp\alpha temp\selected = 0 End Function Function process_mouse_hits() If mouse_1_mode = mouse_just_held Then mouse_1_mode = mouse_held End If If mouse_2_mode = mouse_just_held Then mouse_2_mode = mouse_held End If If mouse_3_mode = mouse_just_held Then mouse_3_mode = mouse_held End If If MouseDown(1) Then If mouse_1_mode = 0 Then mouse_1_mode = mouse_in mouse_1_hold_timer = MilliSecs() ElseIf mouse_1_mode = mouse_in Then If MilliSecs() > mouse_1_hold_timer+mouse_1_hold_time Then mouse_1_mode = mouse_just_held End If End If Else If mouse_1_mode = mouse_click Or mouse_1_mode = mouse_out Then ; check for click first, as other may set click below mouse_1_mode = 0 ElseIf mouse_1_mode = mouse_in Then mouse_1_mode = mouse_click ElseIf mouse_1_mode = mouse_held Then mouse_1_mode = mouse_out End If End If If MouseDown(2) Then If mouse_2_mode = 0 Then mouse_2_mode = mouse_in mouse_2_hold_timer = MilliSecs() ElseIf mouse_2_mode = mouse_in Then If MilliSecs() > mouse_2_hold_timer+mouse_2_hold_time Then mouse_2_mode = mouse_just_held End If End If Else If mouse_2_mode = mouse_click Or mouse_2_mode = mouse_out Then ; check for click first, as other may set click below mouse_2_mode = 0 ElseIf mouse_2_mode = mouse_in Then mouse_2_mode = mouse_click ElseIf mouse_2_mode = mouse_held Then mouse_2_mode = mouse_out End If End If If MouseDown(3) Then If mouse_3_mode = 0 Then mouse_3_mode = mouse_in mouse_3_hold_timer = MilliSecs() ElseIf mouse_3_mode = mouse_in Then If MilliSecs() > mouse_3_hold_timer+mouse_3_hold_time Then mouse_3_mode = mouse_just_held End If End If Else If mouse_3_mode = mouse_click Or mouse_3_mode = mouse_out Then ; check for click first, as other may set click below mouse_3_mode = 0 ElseIf mouse_3_mode = mouse_in Then mouse_3_mode = mouse_click ElseIf mouse_3_mode = mouse_held Then mouse_3_mode = mouse_out End If End If End Function It STOPS it from jittering after the pitch# reaches 85.0 or -85.0. It also adds a larger camera range, eliminating the nasty black area :)