Problem moving object with mouse

Author

Message

Jediam

12

Years of Service

User Offline

Joined: 14th Apr 2012

Location:

Posted: 26th Apr 2012 03:59

Link

Hello,

I'm having difficulty implementing some existing code from the help menu commands. I'm trying to use the code from the Pick Screen() command to move an object with a mouse. Here's a code snippet (which is essentially the same as the code in the help section)

+ Code Snippet

Function MouseControls()
    Set Cursor 0,100
    MousePosX = Mousex()
    MousePosY = Mousey()
    Print "Mouse Position X: ",MousePosX," Mouse Position Y: ",MousePosY
    If MouseClick() = 0 Then Pickmode = 0
    If Mouseclick() = 1
    If Pick object(MousePosX,MousePosY,5,5) > 0 
    If Pickmode = 0
    d# = Get Pick Distance() 
    x# = Get Pick Vector X()
    y# = Get Pick Vector Y()
    z# = Get Pick Vector Z()
    Print "Object position is: x ",x#," y ",y#," z ",z#
    Inc Pickmode,1
    EndIf
    Endif
    If Pickmode = 1
    x2# = Get Pick Vector X() 
    y2# = Get Pick Vector Y() 
    z2# = Get Pick Vector Z() 
    Pick screen MousePosX,MousePosY,d#
    dx# = x# - x2#
    dy# = y# - y2#
    dz# = z# - z2#
    print dx#," ",dy#," ",dz#
    Endif
    Position Object 5,-dx#,-dy#,-dz#
    EndIf
    print x#," ",y#," ",z#
    print "CLICK AND HOLD OBJECT TO DRAG" 
ENDFUNCTION

I have the MouseControls() function within a Do..Loop. The only thing that seems to work is the updating of x#,y#,z#. The variables dx#,dy#,dz# don't update. I'm not sure why this is because when I run the code that comes from the help menu (which includes different objects), the cube that comes with it moves fine. If you need any additional information, just ask. Any help is appreciated. Thank you.

Back to top

Profile PM

Jediam

12

Years of Service

User Offline

Joined: 14th Apr 2012

Location:

Posted: 26th Apr 2012 18:18

Link

Update,

dx#,dy#,dz# aren't updating because x2#,y2#,z2# have the same initial value of x#,y#,z#(Which is 0). Pick screen MousePosX,MousePosY,d# updates both x#,y#,z# and x2#,y2#,z2# with the same value, but because they are the same, they are cancelling each other out and the object isn't moving, i.e. returning to 0. I'm going to try setting the second set of Get Pick Vectors() to x2# = Get Pick Vector X() + x#\x#. So if say x# = 1 the result would be 0 + 1\1 = 1. I'll let you know the result. Please let me know if you have any better ideas. Thank You

Back to top

Profile PM

Jediam

12

Years of Service

User Offline

Joined: 14th Apr 2012

Location:

Posted: 26th Apr 2012 18:49

Link

Hello Again,

After having tried the values in the above post, I wound up with the expected result. The object was shifting slightly but would still return to the same initial position (0,0,0) when I would let go of the mouse. So I changed the code to the following:

Function MouseControls()
    Set Cursor 0,100
    MousePosX = Mousex()
    MousePosY = Mousey()
    Print "Mouse Position X: ",MousePosX," Mouse Position Y: ",MousePosY
    If MouseClick() = 0 Then Pickmode = 0
    If Mouseclick() = 1
    If Pick object(MousePosX,MousePosY,5,5) > 0 
    If Pickmode = 0
    d# = Get Pick Distance() 
    x# = Get Pick Vector X()
    y# = Get Pick Vector Y()
    z# = Get Pick Vector Z()
    Print "Object position is: x ",x#," y ",y#," z ",z#
    Inc Pickmode,1
    EndIf
    Endif
    If Pickmode = 1 
    x2# = Get Pick Vector X() + x#/10  
    y2# = Get Pick Vector Y() + y#/10
    z2# = Get Pick Vector Z() + z#/10
    Pick screen MousePosX,MousePosY,d#
    dx# = x# - x2#
    dy# = y# - y2#
    dz# = z# - z2#
    print dx#," ",dy#," ",dz#
    Endif
    Position Object 5,-dx#,-dy#,-dz#
    EndIf
    newobjx# = Object Position X(5) - dx#
    newobjy# = Object Position Y(5) - dy#
    newobjz# = Object Position z(5) - dz#
    Position Object 5,newobjx#,newobjy#,newobjz#
    print x#," ",y#," ",z#
    print "CLICK AND HOLD OBJECT TO DRAG" 
ENDFUNCTION

+ Code Snippet

Function MouseControls()
    Set Cursor 0,100
    MousePosX = Mousex()
    MousePosY = Mousey()
    Print "Mouse Position X: ",MousePosX," Mouse Position Y: ",MousePosY
    If MouseClick() = 0 Then Pickmode = 0
    If Mouseclick() = 1
    If Pick object(MousePosX,MousePosY,5,5) > 0 
    If Pickmode = 0
    d# = Get Pick Distance() 
    x# = Get Pick Vector X()
    y# = Get Pick Vector Y()
    z# = Get Pick Vector Z()
    Print "Object position is: x ",x#," y ",y#," z ",z#
    Inc Pickmode,1
    EndIf
    Endif
    If Pickmode = 1 
    x2# = Get Pick Vector X() + x#/10  
    y2# = Get Pick Vector Y() + y#/10
    z2# = Get Pick Vector Z() + z#/10
    Pick screen MousePosX,MousePosY,d#
    dx# = x# - x2#
    dy# = y# - y2#
    dz# = z# - z2#
    print dx#," ",dy#," ",dz#
    Endif
    Position Object 5,-dx#,-dy#,-dz#
    EndIf
    newobjx# = Object Position X(5) - dx#
    newobjy# = Object Position Y(5) - dy#
    newobjz# = Object Position z(5) - dz#
    Position Object 5,newobjx#,newobjy#,newobjz#
    print x#," ",y#," ",z#
    print "CLICK AND HOLD OBJECT TO DRAG" 
ENDFUNCTION

Now the object moves more acceptably, however it tends to return to 0,0,0 when I let go of the mouse button then reclick the object again. In the last few lines of code I'm trying to "reset" the objects position to a new value so it doesn't keep going to 0,0,0. Not successful yet. Please post any solutions you may have. Thank You.

Back to top

Profile PM

29 games

18

Years of Service

User Offline

Joined: 23rd Nov 2005

Location: not entirely sure

Posted: 2nd May 2012 00:17

Link

I had a look at the example code in the DBP help files and it's a bit rubbish.

I don't know if this is what you're looking for:

sync on
sync rate 60
autocam off
set window off

`make a board (a white plain)
make object plain 1, 1000,1000
rotate object 1, -90,0,0

`make and position a green cube
make object cube 2, 20
color object 2, rgb(0,255,0)
position object 2,0,10,0

`set initial values
grab = 0

`main loop
do

`get the mouse position
	mx = mousex()
	my = mousey()

if lmb = 0
		`if the left hand mouse button has been released then 
				
		if mouseclick() = 1
			`if the left mouse button is pressed
		
			`lmb is a flag that means the left mouse button needs to be released before any further action to
			`place the cube can be made by the user.
			lmb = 1
			
			if grab = 0
				`if the green cube has not been selected
			
				if pick object(mx,my,1,2) = 2
					`if the cursor is on the cube (object 2)
					
					`set the variable grab to 1 to show that the cube has been selected.
					grab = 1
					
					`colour the cube red as a visual cue that it has been selected
					color object 2, rgb(255,0,0)
					
				endif
			
			else
				`if the object has been selected
			
				if pick object(mx,my,1,2) = 1
					`if the cursor is in the white area
					
					`release the object
					grab = 0
					
					`calculate the new 3D position of the cube
					xpos# = get pick vector x() + camera position x()	
					ypos# = 10
					zpos# = get pick vector z() + camera position z()
					
					`position the cube at the new coordinates
					position object 2, xpos#, ypos#, zpos#
					
					`color the cube green to indicate it is no longer grabbed
					color object 2, rgb(0,255,0)
				
				endif
		
			endif
			
		endif
		
	endif

`you have to realese the left hand mouse button in order to be able to execute the next grab / place action
	if mouseclick() = 0 then lmb = 0

`position and point the camera
	position camera 0, 700, -1000
	point camera 0,0,0

`print stuff
	set cursor 0,0
	print "left click the cursor on the green cube"
	print "then left click in the white area to place the cube"
	
	sync

loop

+ Code Snippet

sync on
sync rate 60
autocam off
set window off

`make a board (a white plain)
make object plain 1, 1000,1000
rotate object 1, -90,0,0

`make and position a green cube
make object cube 2, 20
color object 2, rgb(0,255,0)
position object 2,0,10,0


`set initial values
grab = 0

`main loop
do

	`get the mouse position
	mx = mousex()
	my = mousey()

	
	if lmb = 0
		`if the left hand mouse button has been released then 
				
		if mouseclick() = 1
			`if the left mouse button is pressed
		
			`lmb is a flag that means the left mouse button needs to be released before any further action to
			`place the cube can be made by the user.
			lmb = 1
			
			if grab = 0
				`if the green cube has not been selected
			
				if pick object(mx,my,1,2) = 2
					`if the cursor is on the cube (object 2)
					
					`set the variable grab to 1 to show that the cube has been selected.
					grab = 1
					
					`colour the cube red as a visual cue that it has been selected
					color object 2, rgb(255,0,0)
					
				endif
			
			else
				`if the object has been selected
			
				if pick object(mx,my,1,2) = 1
					`if the cursor is in the white area
					
					`release the object
					grab = 0
					
					`calculate the new 3D position of the cube
					xpos# = get pick vector x() + camera position x()	
					ypos# = 10
					zpos# = get pick vector z() + camera position z()
					
					`position the cube at the new coordinates
					position object 2, xpos#, ypos#, zpos#
					
					`color the cube green to indicate it is no longer grabbed
					color object 2, rgb(0,255,0)
				
				endif
		
			endif
			
		endif
		
	endif

	
	`you have to realese the left hand mouse button in order to be able to execute the next grab / place action
	if mouseclick() = 0 then lmb = 0	

	
	`position and point the camera
	position camera 0, 700, -1000
	point camera 0,0,0

	
	`print stuff
	set cursor 0,0
	print "left click the cursor on the green cube"
	print "then left click in the white area to place the cube"
	
	sync

loop

but I hope it gives you some ideas.

Back to top

Profile PM Email

Jediam

12

Years of Service

User Offline

Joined: 14th Apr 2012

Location:

Posted: 2nd May 2012 13:58

Link

Hello 29 games,

Thanks for taking the time writing your code sample. It does the trick and is worth examining closer for future modification. I had more in mind the object moving along with the cursor while the mouse button is held down. There is an example in the sample section of the help menu which achieves this. The only problem with it however, is that the cursor veers off center from where the object is picked from when the mouse is moved. I don't know if the sensitivity of the mousemovex/y() commands can be modified so this doesn't happen, but that is why I am seeking an alternative. I like how in your code sample, the cube object jumps instantaneously to the desired positon. I can picture it being used for snapping objects together along their edges/vertices. Thanks again for your interest.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Problem moving object with mouse