How to delete 3d objects with left mouse click?

Author

Message

Mark Garrett

Reviewed AGK on Steam

18

Years of Service

User Offline

Joined: 10th Jul 2005

Location: California, US

Posted: 25th Feb 2018 21:11 Edited at: 25th Feb 2018 21:35

Link

Here I generate 200 different cubes, and I would like to delete any one that I click on... by moving my mouse arrow to each one, one by one, and clicking the left mouse button.
But I don't know what input command I should use. Any body have an idea how I could do it?

I know that 'GetSpriteHit(x,y) that works with sprites, ....... but is there a 'GetObjectHit(x,y) ' equivalent that works with objects?

// Project: Dr Destructo 1 
// Created: 2018-02-25

// show all errors
SetErrorMode(2)

SetClearColor(3,182,182)
// set window properties
SetWindowTitle( "Dr Destructo 1 " )
SetWindowSize( 1024, 768, 0 )
  
// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )
SetScissor(0,0,0,0)
 `____________________________ 
Create3DPhysicsWorld()
` default gravity is      0, - 10,  0
Set3DPhysicsGravity( 0, -.7 , 0)
`SetCameraPosition( cameraID, x, y, z )  
SetCameraPosition( 1, 0,0,-180 )
`SetCameraLookAt( cameraID, x, y, z, roll )
SetCameraLookAt( 1, 0,0,0, 0 )

`_________________Create floor using box shape
CreateObjectBox( 2, 500, 500,.001)
SetObjectColor( 2, 255, 255, 0, 255 )
RotateObjectLocalX( 2, 90 )
 
SetObjectPosition(2,0,-30,0)
Create3DPhysicsStaticBody( 2)

for obj = 3 to 200 
`___________________Create box
CreateObjectBox( obj,10,10,10)
`RotateObjectglobalY( obj, 66 )
SetObjectPosition( obj,5.1,30,0 )
Create3DPhysicsDynamicBody( obj)
SetObjectShapeBox(obj)

state = Random2(1,3)
select state
case 1	
SetObjectColor( obj, 0, 255, 0, 255 )
endcase
case 2
SetObjectColor( obj, 255, 0,255, 255 )
endcase
case 3
SetObjectColor( obj, 255, 255, 0, 0 )
endcase
endselect

next obj
  
do
   
      
    Print( ScreenFPS() )
  
    Step3DPhysicsWorld()
    Sync()
loop

+ Code Snippet

// Project: Dr Destructo 1 
// Created: 2018-02-25

// show all errors
SetErrorMode(2)

SetClearColor(3,182,182)
// set window properties
SetWindowTitle( "Dr Destructo 1 " )
SetWindowSize( 1024, 768, 0 )
  
// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )
SetScissor(0,0,0,0)
 `____________________________ 
Create3DPhysicsWorld()
` default gravity is      0, - 10,  0
Set3DPhysicsGravity( 0, -.7 , 0)
`SetCameraPosition( cameraID, x, y, z )  
SetCameraPosition( 1, 0,0,-180 )
`SetCameraLookAt( cameraID, x, y, z, roll )
SetCameraLookAt( 1, 0,0,0, 0 )


  `_________________Create floor using box shape
CreateObjectBox( 2, 500, 500,.001)
SetObjectColor( 2, 255, 255, 0, 255 )
RotateObjectLocalX( 2, 90 )
 
SetObjectPosition(2,0,-30,0)
Create3DPhysicsStaticBody( 2)
  


 for obj = 3 to 200 
`___________________Create box
CreateObjectBox( obj,10,10,10)
`RotateObjectglobalY( obj, 66 )
SetObjectPosition( obj,5.1,30,0 )
Create3DPhysicsDynamicBody( obj)
SetObjectShapeBox(obj)

 

state = Random2(1,3)
select state
case 1	
SetObjectColor( obj, 0, 255, 0, 255 )
endcase
case 2
SetObjectColor( obj, 255, 0,255, 255 )
endcase
case 3
SetObjectColor( obj, 255, 255, 0, 0 )
endcase
endselect




next obj
  
do
   
      
    Print( ScreenFPS() )
  
    Step3DPhysicsWorld()
    Sync()
loop

Back to top

Profile PM Email

PSY

Developer

7

Years of Service

User Offline

Joined: 3rd Jul 2016

Location: Laniakea Supercluster

Posted: 25th Feb 2018 23:02 Edited at: 25th Feb 2018 23:08

Link

You need these:
https://www.appgamekit.com/documentation/Reference/3D/Get3DVectorXFromScreen.htm

Insert this code at the beginning of your do-loop ( this is the example code from the online help, slightly modified to meet your needs )

if GetRawMouseLeftReleased ()
// get the position of the pointer (mouse)
pointer_x = GetPointerX()
pointer_y = GetPointerY()

// get the x, y and z unit vectors based on the pointer position
unit_x# = Get3DVectorXFromScreen(pointer_x,pointer_y)
unit_y# = Get3DVectorYFromScreen(pointer_x,pointer_y)
unit_z# = Get3DVectorZFromScreen(pointer_x,pointer_y)

// calculate the start of the ray cast, which is the unit vector + the camera position
start_x# = unit_x# + 0
start_y# = unit_y# + 0
start_z# = unit_z# - 180

// calculate the end of the vector, which is the unit vector multiplied by the length of the ray cast and then add the camera position to it
end_x# = 500*unit_x# + 0
end_y# = 500*unit_y# + 0
end_z# = 500*unit_z# - 180

// determine which object has been hit
object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)

// if an object has been hit then destroy it
if object_hit <> 0
DeleteObject ( object_hit )
endif
endif

PSY LABS Games
Coders don't die, they just gosub without return

Back to top

Profile PM Website

Mark Garrett

Reviewed AGK on Steam

18

Years of Service

User Offline

Joined: 10th Jul 2005

Location: California, US

Posted: 26th Feb 2018 19:12

Link

Wow, thanks, that's quite a answer, and I'm glad I didn't try to figure it out on my own. I really appreciate it.

Back to top

Profile PM Email

PSY

Developer

7

Years of Service

User Offline

Joined: 3rd Jul 2016

Location: Laniakea Supercluster

Posted: 27th Feb 2018 13:50

Link

You're welcome

PSY LABS Games
Coders don't die, they just gosub without return

Back to top

Profile PM Website

Blendman

10

Years of Service

User Offline

Joined: 17th Feb 2014

Location: Arkeos

Posted: 27th Feb 2018 15:20

Link

Hi
It seems it doesnt always work with an ortho camera (fov =0)?

AGK2 tier1 - http://www.dracaena-studio.com

Back to top

Profile PM Website

PHeMoX

6

Years of Service

User Offline

Joined: 9th Jan 2018

Location:

Posted: 28th Feb 2018 18:00 Edited at: 28th Feb 2018 18:03

Link

Probably because the code above does not update the camera location, but assumes a camera that stays in one place only. I would also add ScreenToWorldX to the pointer part of the code. Try this instead:

pointer_x = ScreenToWorldX (GetPointerX ( ))  // it's also important to have the screen position of the pointer actually correctly, so use ScreenToWorldX and Y !
       pointer_y = ScreenToWorldY ( GetPointerY ( ))

// get the x, y and z unit vectors based on the pointer position
        unit_x# = Get3DVectorXFromScreen(pointer_x,pointer_y)
        unit_y# = Get3DVectorYFromScreen(pointer_x,pointer_y)
        unit_z# = Get3DVectorZFromScreen(pointer_x,pointer_y)

// calculate the start of the ray cast, which is the unit vector + the camera position
        start_x# = unit_x# + GetCameraX(1) 
        start_y# = unit_y# + GetCameraY(1) 
        start_z# = unit_z# +  GetCameraZ(1)

// calculate the end of the vector, which is the unit vector multiplied by the length of the ray cast and then add the camera position to it
        end_x# = 800*unit_x# + GetCameraX(1) 
        end_y# = 800*unit_y# + GetCameraY(1)  
        end_z# = 800*unit_z# +  GetCameraZ(1) 
       // then check the object raycast :
       object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)

+ Code Snippet

       pointer_x = ScreenToWorldX (GetPointerX ( ))  // it's also important to have the screen position of the pointer actually correctly, so use ScreenToWorldX and Y !
       pointer_y = ScreenToWorldY ( GetPointerY ( ))

        // get the x, y and z unit vectors based on the pointer position
        unit_x# = Get3DVectorXFromScreen(pointer_x,pointer_y)
        unit_y# = Get3DVectorYFromScreen(pointer_x,pointer_y)
        unit_z# = Get3DVectorZFromScreen(pointer_x,pointer_y)

        // calculate the start of the ray cast, which is the unit vector + the camera position
        start_x# = unit_x# + GetCameraX(1) 
        start_y# = unit_y# + GetCameraY(1) 
        start_z# = unit_z# +  GetCameraZ(1) 

        // calculate the end of the vector, which is the unit vector multiplied by the length of the ray cast and then add the camera position to it
        end_x# = 800*unit_x# + GetCameraX(1) 
        end_y# = 800*unit_y# + GetCameraY(1)  
        end_z# = 800*unit_z# +  GetCameraZ(1) 
       // then check the object raycast :
       object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)

Back to top

Profile PM

PartTimeCoder

AGK Tool Maker

9

Years of Service

User Offline

Joined: 9th Mar 2015

Location: London UK

Posted: 1st Mar 2018 12:24 Edited at: 1st Mar 2018 12:33

Link

Quote: "Hi
It seems it doesnt always work with an ortho camera (fov =0)?"

You need to take into account the distance of the camera from the origin point

+ Code Snippet

Function Distance3D(x1, y1, z1, x2, y2, z2)
	result as integer
	part1 = Pow((x2 - x1), 2)
	part2 = Pow((y2 - y1), 2)
	part3 = Pow((z2 - z1), 2)
	underRadical = part1 + part2 + part3
	result = Sqrt(underRadical)
EndFunction result

Function Object_RayCast(object_id, mouse_x, mouse_y)
	
	unit_x# = Get3DVectorXFromScreen(mouse_x, mouse_y)
	unit_y# = Get3DVectorYFromScreen(mouse_x, mouse_y)
	unit_z# = Get3DVectorZFromScreen(mouse_x, mouse_y)
	
	cam_x# = GetCameraX(1)
	cam_y# = GetCameraY(1)
	cam_z# = GetCameraZ(1)  
	
	dist=Distance3D(cam_x#, cam_y#, cam_z#, 0, 0, 0)*2
	
	start_x# = unit_x# + cam_x#
	start_y# = unit_y# + cam_y#
	start_z# = unit_z# + cam_z#
	
	end_x# = dist*unit_x# + cam_x#
	end_y# = dist*unit_y# + cam_y#
	end_z# = dist*unit_z# + cam_z#

	hit_object_id = ObjectRayCast(object_id, start_x#, start_y#, start_z#, end_x#, end_y#, end_z#)

EndFunction hit_object_id

Here is a working example using both ortho and freeflight camera

#Constant KEY_A GetRawKeyState(65)
#Constant KEY_D GetRawKeyState(68)
#Constant KEY_S GetRawKeyState(83)
#Constant KEY_W  GetRawKeyState(87)
#Constant KEY_R  GetRawKeyPressed(82)
#Constant KEY_SHIFT GetRawKeyState(16)

// create some spheres and position them randomly
for i = 1 to 100
	CreateObjectSphere(i,20,16,16)
	SetObjectPosition(i, random(0,500), random(0,500), random(0,500))
	SetObjectColor(i,0,255,0,255)
next i

// position the camera and have it look at the centre of the "map"
SetCameraPosition(1,0,500,0)
SetCameraLookAt(1,0,0,0,0)

do
	
	// toggle freeflight
	if KEY_R 
		if g_View.free_flight
			g_View.free_flight=0
			// reset camera position
			SetCameraPosition(1,100,200,-100)
			SetCameraLookAt(1,100,0,100,0)
		else
			g_View.free_flight=1
		endif
	endif
	
	// handle view movement
	if g_View.free_flight
		View_HandleFreeFlightMovement()
	else	
		View_HandleFixedMovement()
	endif
	
	// get the position of the pointer (mouse)
	pointer_x = GetPointerX()
	pointer_y = GetPointerY()

// determine which object has been hit
	object_hit = Object_RayCast(0, pointer_x, pointer_y)

// if an object has been hit then turn it red
	if object_hit <> 0
		
		// select object
		if GetRawMouseLeftPressed()
			// turn all the objects green
			for i = 1 to 100
				if GetObjectExists(i)
					SetObjectColor(i,0,255,0,255)
				endif
			next i
			// turn selected object red
			SetObjectColor(object_hit,255,0,0,255)
		endif
		
		// delete object
		if GetRawMouseRightPressed()
			DeleteObject(object_hit)
		endif
	endif

Print( "Click & Drag to rotate camera" )
	Print( "WSAD: Move Camera XZ" )
	Print( "Mouse Wheel: Move Camera Y" )
    Print( "LMB: Select object" )
    Print( "RMB: Delete object" )
	Print( "R: Free Flight ("+Str(g_View.free_flight)+")" )

Sync()
loop

// View helper functions
Type t_View
	drag_start_x as float
	drag_start_y as float
	drag_ang_x as float
	drag_ang_y as float
	free_flight
EndType
Global g_View as t_View
Function View_HandleFreeFlightMovement()
	
	if KEY_A then MoveCameraLocalX(1, -10)
	if KEY_D then MoveCameraLocalX(1, 10)
	if KEY_S then MoveCameraLocalZ(1, -10)
	if KEY_W then MoveCameraLocalZ(1, 10)

if GetRawMouseWheelDelta()>0 then MoveCameraLocalY(1, 10)
	if GetRawMouseWheelDelta()<0 then MoveCameraLocalY(1, -10)
	
	if ( GetPointerPressed())
		g_View.drag_start_x = GetPointerX()
		g_View.drag_start_y = GetPointerY()
		g_View.drag_ang_x = GetCameraAngleX(1)
		g_View.drag_ang_y = GetCameraAngleY(1)	
	endif
	
	diff_x as float
	diff_y as float
	new_x as float 
	
	if ( GetPointerState() = 1 )
		diff_x = (GetPointerX() - g_View.drag_start_x)/12.0
		diff_y = (GetPointerY() - g_View.drag_start_y)/12.0
		new_x = g_View.drag_ang_x + diff_y
		if ( new_x > 89 ) then new_x = 89
		if ( new_x < -89 ) then new_x = -89
		SetCameraRotation( 1, new_x, g_View.drag_ang_y + diff_x, 0 )
	endif

EndFunction
Function View_HandleFixedMovement()
	
	if KEY_A then MoveCameraLocalX(1, -10)
	if KEY_D then MoveCameraLocalX(1, 10)
	if KEY_S then MoveCameraLocalY(1, -10)
	if KEY_W then MoveCameraLocalY(1, 10)
	
	mouse_speed=100
	if KEY_SHIFT
		mouse_speed=60
	endif
    if GetRawMouseWheelDelta()>0 then MoveCameraLocalZ(1, mouse_speed )
	if GetRawMouseWheelDelta()<0 then MoveCameraLocalZ(1, -mouse_speed )
	
EndFunction

Function Distance3D(x1, y1, z1, x2, y2, z2)
	result as integer
	part1 = Pow((x2 - x1), 2)
	part2 = Pow((y2 - y1), 2)
	part3 = Pow((z2 - z1), 2)
	underRadical = part1 + part2 + part3
	result = Sqrt(underRadical)
EndFunction result
Function Object_RayCast(object_id, mouse_x, mouse_y)
	
	unit_x# = Get3DVectorXFromScreen(mouse_x, mouse_y)
	unit_y# = Get3DVectorYFromScreen(mouse_x, mouse_y)
	unit_z# = Get3DVectorZFromScreen(mouse_x, mouse_y)
	
	cam_x# = GetCameraX(1)
	cam_y# = GetCameraY(1)
	cam_z# = GetCameraZ(1)  
	
	dist=Distance3D(cam_x#, cam_y#, cam_z#, 0, 0, 0)*2
	
	start_x# = unit_x# + cam_x#
	start_y# = unit_y# + cam_y#
	start_z# = unit_z# + cam_z#
	
	end_x# = dist*unit_x# + cam_x#
	end_y# = dist*unit_y# + cam_y#
	end_z# = dist*unit_z# + cam_z#

hit_object_id = ObjectRayCast(object_id, start_x#, start_y#, start_z#, end_x#, end_y#, end_z#)

EndFunction hit_object_id

+ Code Snippet

#Constant KEY_A GetRawKeyState(65)
#Constant KEY_D GetRawKeyState(68)
#Constant KEY_S GetRawKeyState(83)
#Constant KEY_W  GetRawKeyState(87)
#Constant KEY_R  GetRawKeyPressed(82)
#Constant KEY_SHIFT GetRawKeyState(16)

// create some spheres and position them randomly
for i = 1 to 100
	CreateObjectSphere(i,20,16,16)
	SetObjectPosition(i, random(0,500), random(0,500), random(0,500))
	SetObjectColor(i,0,255,0,255)
next i

// position the camera and have it look at the centre of the "map"
SetCameraPosition(1,0,500,0)
SetCameraLookAt(1,0,0,0,0)

do
	
	// toggle freeflight
	if KEY_R 
		if g_View.free_flight
			g_View.free_flight=0
			// reset camera position
			SetCameraPosition(1,100,200,-100)
			SetCameraLookAt(1,100,0,100,0)
		else
			g_View.free_flight=1
		endif
	endif
	
	// handle view movement
	if g_View.free_flight
		View_HandleFreeFlightMovement()
	else	
		View_HandleFixedMovement()
	endif
	
	// get the position of the pointer (mouse)
	pointer_x = GetPointerX()
	pointer_y = GetPointerY()

	// determine which object has been hit
	object_hit = Object_RayCast(0, pointer_x, pointer_y)

	// if an object has been hit then turn it red
	if object_hit <> 0
		
		// select object
		if GetRawMouseLeftPressed()
			// turn all the objects green
			for i = 1 to 100
				if GetObjectExists(i)
					SetObjectColor(i,0,255,0,255)
				endif
			next i
			// turn selected object red
			SetObjectColor(object_hit,255,0,0,255)
		endif
		
		// delete object
		if GetRawMouseRightPressed()
			DeleteObject(object_hit)
		endif
	endif

	Print( "Click & Drag to rotate camera" )
	Print( "WSAD: Move Camera XZ" )
	Print( "Mouse Wheel: Move Camera Y" )
    Print( "LMB: Select object" )
    Print( "RMB: Delete object" )
	Print( "R: Free Flight ("+Str(g_View.free_flight)+")" )

	
    Sync()
loop

// View helper functions
Type t_View
	drag_start_x as float
	drag_start_y as float
	drag_ang_x as float
	drag_ang_y as float
	free_flight
EndType
Global g_View as t_View
Function View_HandleFreeFlightMovement()
	
	if KEY_A then MoveCameraLocalX(1, -10)
	if KEY_D then MoveCameraLocalX(1, 10)
	if KEY_S then MoveCameraLocalZ(1, -10)
	if KEY_W then MoveCameraLocalZ(1, 10)

    if GetRawMouseWheelDelta()>0 then MoveCameraLocalY(1, 10)
	if GetRawMouseWheelDelta()<0 then MoveCameraLocalY(1, -10)
	
	if ( GetPointerPressed())
		g_View.drag_start_x = GetPointerX()
		g_View.drag_start_y = GetPointerY()
		g_View.drag_ang_x = GetCameraAngleX(1)
		g_View.drag_ang_y = GetCameraAngleY(1)	
	endif
	
	diff_x as float
	diff_y as float
	new_x as float 
	
	if ( GetPointerState() = 1 )
		diff_x = (GetPointerX() - g_View.drag_start_x)/12.0
		diff_y = (GetPointerY() - g_View.drag_start_y)/12.0
		new_x = g_View.drag_ang_x + diff_y
		if ( new_x > 89 ) then new_x = 89
		if ( new_x < -89 ) then new_x = -89
		SetCameraRotation( 1, new_x, g_View.drag_ang_y + diff_x, 0 )
	endif

EndFunction
Function View_HandleFixedMovement()
	
	if KEY_A then MoveCameraLocalX(1, -10)
	if KEY_D then MoveCameraLocalX(1, 10)
	if KEY_S then MoveCameraLocalY(1, -10)
	if KEY_W then MoveCameraLocalY(1, 10)
	
	mouse_speed=100
	if KEY_SHIFT
		mouse_speed=60
	endif
    if GetRawMouseWheelDelta()>0 then MoveCameraLocalZ(1, mouse_speed )
	if GetRawMouseWheelDelta()<0 then MoveCameraLocalZ(1, -mouse_speed )
	
EndFunction


Function Distance3D(x1, y1, z1, x2, y2, z2)
	result as integer
	part1 = Pow((x2 - x1), 2)
	part2 = Pow((y2 - y1), 2)
	part3 = Pow((z2 - z1), 2)
	underRadical = part1 + part2 + part3
	result = Sqrt(underRadical)
EndFunction result
Function Object_RayCast(object_id, mouse_x, mouse_y)
	
	unit_x# = Get3DVectorXFromScreen(mouse_x, mouse_y)
	unit_y# = Get3DVectorYFromScreen(mouse_x, mouse_y)
	unit_z# = Get3DVectorZFromScreen(mouse_x, mouse_y)
	
	cam_x# = GetCameraX(1)
	cam_y# = GetCameraY(1)
	cam_z# = GetCameraZ(1)  
	
	dist=Distance3D(cam_x#, cam_y#, cam_z#, 0, 0, 0)*2
	
	start_x# = unit_x# + cam_x#
	start_y# = unit_y# + cam_y#
	start_z# = unit_z# + cam_z#
	
	end_x# = dist*unit_x# + cam_x#
	end_y# = dist*unit_y# + cam_y#
	end_z# = dist*unit_z# + cam_z#

	hit_object_id = ObjectRayCast(object_id, start_x#, start_y#, start_z#, end_x#, end_y#, end_z#)

EndFunction hit_object_id

Quote: "I know that 'GetSpriteHit(x,y) that works with sprites, ....... but is there a 'GetObjectHit(x,y) ' equivalent that works with objects?"

A little reshuffle of the first 2 functions I posted here gives exactly that

+ Code Snippet

Function GetObjectHit(mouse_x, mouse_y)
	
	unit_x# = Get3DVectorXFromScreen(mouse_x, mouse_y)
	unit_y# = Get3DVectorYFromScreen(mouse_x, mouse_y)
	unit_z# = Get3DVectorZFromScreen(mouse_x, mouse_y)
	
	cam_x# = GetCameraX(1)
	cam_y# = GetCameraY(1)
	cam_z# = GetCameraZ(1)  
	
	part1 = Pow((0 - cam_x#), 2)
	part2 = Pow((0 - cam_y#), 2)
	part3 = Pow((0 - cam_z#), 2)
	underRadical = part1 + part2 + part3
	dist=Sqrt(underRadical)*2
	
	start_x# = unit_x# + cam_x#
	start_y# = unit_y# + cam_y#
	start_z# = unit_z# + cam_z#
	
	end_x# = dist*unit_x# + cam_x#
	end_y# = dist*unit_y# + cam_y#
	end_z# = dist*unit_z# + cam_z#

	hit_object_id = ObjectRayCast(0, start_x#, start_y#, start_z#, end_x#, end_y#, end_z#)

EndFunction hit_object_id

Back to top

Profile PM

Blendman

10

Years of Service

User Offline

Joined: 17th Feb 2014

Location: Arkeos

Posted: 2nd Mar 2018 09:30 Edited at: 2nd Mar 2018 09:37

Link

Hi thank you for your help, but that doesn't work ^^

@Partimecoder : you're example doesn't work because the camera isn't in ortho mode (need : SetCameraFov(1,0))

Here is a test code adapted from your example (ortho mode), but it doesn't work :

#Constant KEY_A GetRawKeyState(65)
#Constant KEY_D GetRawKeyState(68)
#Constant KEY_S GetRawKeyState(83)
#Constant KEY_W  GetRawKeyState(87)

#Constant KEY_R  GetRawKeyPressed(82)
#Constant KEY_SHIFT GetRawKeyState(16)
    
#CONSTANT KEY_LEFT  GetRawKeyState(37)    
#CONSTANT KEY_UP  GetRawKeyState(38)
#CONSTANT KEY_RIGHT  GetRawKeyState(39)
#CONSTANT KEY_DOWN  GetRawKeyState(40)

// create some spheres and position them randomly
for i = 1 to 100
    CreateObjectBox(i,10,10,10)
    SetObjectPosition(i, random(0,500)-random(0,500), random(0,500)-random(0,500), random(0,500)-random(0,500))
    SetObjectColor(i,0,255,0,255)
next i
 
// position the camera and have it look at the centre of the "map"
SetCameraFOV(1,0)
SetCamerarange(1,1,10000)
SetCameraRotation(1,90,180,0)
SetCAmeraPosition(1,0,200,0)
SetCameraOrthoWidth(1,500)
 
 Global ortho = 500
 
do
     
    // toggle freeflight
    if KEY_R 
        if g_View.free_flight
            g_View.free_flight=0
            // reset camera position
            
            SetCameraRotation(1,90,180,0)
			SetCAmeraPosition(1,0,200,0)
			SetCameraOrthoWidth(1,500)

else
            g_View.free_flight=1
        endif
    endif
     
    // handle view movement
    if g_View.free_flight
        View_HandleFreeFlightMovement()
    else    
        View_HandleFixedMovement()
    endif
     
    // get the position of the pointer (mouse)
    //pointer_x = GetPointerX()
    //pointer_y = GetPointerY()
	
	
	// it's also important to have the screen position of the pointer actually correctly, so use ScreenToWorldX and Y !
	pointer_x = ScreenToWorldX (GetPointerX ( )) 
	pointer_y = ScreenToWorldY ( GetPointerY ( ))
 
 
    // determine which object has been hit
    object_hit = Object_RayCast(0, pointer_x, pointer_y)
 
    // if an object has been hit then turn it red
    if object_hit <> 0
         
        // select object
        if GetRawMouseLeftPressed()
            // turn all the objects green
            for i = 1 to 100
                if GetObjectExists(i)
                    SetObjectColor(i,0,255,0,255)
                endif
            next i
            // turn selected object red
            SetObjectColor(object_hit,255,0,0,255)
        endif
         
        // delete object
        if GetRawMouseRightPressed()
            DeleteObject(object_hit)
        endif
    endif
 
    Print( "Click & Drag to rotate camera" )
    Print( "arrow: Move Camera XZ" )
    Print( "Mouse Wheel: Move Camera Y" )
    Print( "LMB: Select object" )
    Print( "RMB: Delete object" )
    Print( "R: Free Flight ("+Str(g_View.free_flight)+")" )
 
     
    Sync()
loop
 
// View helper functions
Type t_View
    drag_start_x as float
    drag_start_y as float
    drag_ang_x as float
    drag_ang_y as float
    free_flight
EndType
Global g_View as t_View

Function View_HandleFreeFlightMovement()
     
	View_HandleFixedMovement()

if ( GetPointerPressed())
        g_View.drag_start_x = GetPointerX()
        g_View.drag_start_y = GetPointerY()
        g_View.drag_ang_x = GetCameraAngleX(1)
        g_View.drag_ang_y = GetCameraAngleY(1)  
    endif
     
    diff_x as float
    diff_y as float
    new_x as float 
     
    if ( GetPointerState() = 1 )
        diff_x = (GetPointerX() - g_View.drag_start_x)/1.0
        diff_y = (GetPointerY() - g_View.drag_start_y)/1.0
        new_x = g_View.drag_ang_x + diff_y
        if ( new_x > 89 ) then new_x = 89
        if ( new_x < -89 ) then new_x = -89
        SetCameraRotation( 1, new_x, g_View.drag_ang_y + diff_x, 0 )
    endif
 
EndFunction
Function View_HandleFixedMovement()
     
    if KEY_LEFT then MoveCameraLocalX(1, -10)
    if KEY_RIGHT then MoveCameraLocalX(1, 10)
    if KEY_DOWN then MoveCameraLocalY(1, -10)
    if KEY_UP then MoveCameraLocalY(1, 10)
     
    mouse_speed=10
    if KEY_SHIFT
        mouse_speed=6
    endif
   
    if GetRawMouseWheelDelta()>0 
		 ortho =  ortho  + mouse_speed
		SetCameraOrthoWidth(1, ortho )
	endif
    if GetRawMouseWheelDelta()<0 
		 ortho =  ortho  - mouse_speed
		SetCameraOrthoWidth(1, ortho)
	endif
     
EndFunction
 
 
Function Distance3D(x1, y1, z1, x2, y2, z2)
    result as integer
    part1 = Pow((x2 - x1), 2)
    part2 = Pow((y2 - y1), 2)
    part3 = Pow((z2 - z1), 2)
    underRadical = part1 + part2 + part3
    result = Sqrt(underRadical)
EndFunction result

Function Object_RayCast(object_id, mouse_x, mouse_y)
     
    unit_x# = Get3DVectorXFromScreen(mouse_x, mouse_y)
    unit_y# = Get3DVectorYFromScreen(mouse_x, mouse_y)
    unit_z# = Get3DVectorZFromScreen(mouse_x, mouse_y)
     
    cam_x# = GetCameraX(1)
    cam_y# = GetCameraY(1)
    cam_z# = GetCameraZ(1)  
     
    dist = Distance3D(cam_x#, cam_y#, cam_z#, 0, 0, 0)*2
     
    start_x# = unit_x# + cam_x#
    start_y# = unit_y# + cam_y#
    start_z# = unit_z# + cam_z#
     
    end_x# = dist*unit_x# + cam_x#
    end_y# = dist*unit_y# + cam_y#
    end_z# = dist*unit_z# + cam_z#
 
    hit_object_id = ObjectRayCast(object_id, start_x#, start_y#, start_z#, end_x#, end_y#, end_z#)
 
EndFunction hit_object_id

+ Code Snippet



#Constant KEY_A GetRawKeyState(65)
#Constant KEY_D GetRawKeyState(68)
#Constant KEY_S GetRawKeyState(83)
#Constant KEY_W  GetRawKeyState(87)

#Constant KEY_R  GetRawKeyPressed(82)
#Constant KEY_SHIFT GetRawKeyState(16)
    
#CONSTANT KEY_LEFT  GetRawKeyState(37)    
#CONSTANT KEY_UP  GetRawKeyState(38)
#CONSTANT KEY_RIGHT  GetRawKeyState(39)
#CONSTANT KEY_DOWN  GetRawKeyState(40)

 
 
 
// create some spheres and position them randomly
for i = 1 to 100
    CreateObjectBox(i,10,10,10)
    SetObjectPosition(i, random(0,500)-random(0,500), random(0,500)-random(0,500), random(0,500)-random(0,500))
    SetObjectColor(i,0,255,0,255)
next i
 
// position the camera and have it look at the centre of the "map"
SetCameraFOV(1,0)
SetCamerarange(1,1,10000)
SetCameraRotation(1,90,180,0)
SetCAmeraPosition(1,0,200,0)
SetCameraOrthoWidth(1,500)
 
 Global ortho = 500
 
do
     
    // toggle freeflight
    if KEY_R 
        if g_View.free_flight
            g_View.free_flight=0
            // reset camera position
            
            SetCameraRotation(1,90,180,0)
			SetCAmeraPosition(1,0,200,0)
			SetCameraOrthoWidth(1,500)

        else
            g_View.free_flight=1
        endif
    endif
     
    // handle view movement
    if g_View.free_flight
        View_HandleFreeFlightMovement()
    else    
        View_HandleFixedMovement()
    endif
     
    // get the position of the pointer (mouse)
    //pointer_x = GetPointerX()
    //pointer_y = GetPointerY()
	
	
	// it's also important to have the screen position of the pointer actually correctly, so use ScreenToWorldX and Y !
	pointer_x = ScreenToWorldX (GetPointerX ( )) 
	pointer_y = ScreenToWorldY ( GetPointerY ( ))
 
 
    // determine which object has been hit
    object_hit = Object_RayCast(0, pointer_x, pointer_y)
 
    // if an object has been hit then turn it red
    if object_hit <> 0
         
        // select object
        if GetRawMouseLeftPressed()
            // turn all the objects green
            for i = 1 to 100
                if GetObjectExists(i)
                    SetObjectColor(i,0,255,0,255)
                endif
            next i
            // turn selected object red
            SetObjectColor(object_hit,255,0,0,255)
        endif
         
        // delete object
        if GetRawMouseRightPressed()
            DeleteObject(object_hit)
        endif
    endif
 
    Print( "Click & Drag to rotate camera" )
    Print( "arrow: Move Camera XZ" )
    Print( "Mouse Wheel: Move Camera Y" )
    Print( "LMB: Select object" )
    Print( "RMB: Delete object" )
    Print( "R: Free Flight ("+Str(g_View.free_flight)+")" )
 
     
    Sync()
loop
 
// View helper functions
Type t_View
    drag_start_x as float
    drag_start_y as float
    drag_ang_x as float
    drag_ang_y as float
    free_flight
EndType
Global g_View as t_View


Function View_HandleFreeFlightMovement()
     
	View_HandleFixedMovement()   

  
    if ( GetPointerPressed())
        g_View.drag_start_x = GetPointerX()
        g_View.drag_start_y = GetPointerY()
        g_View.drag_ang_x = GetCameraAngleX(1)
        g_View.drag_ang_y = GetCameraAngleY(1)  
    endif
     
    diff_x as float
    diff_y as float
    new_x as float 
     
    if ( GetPointerState() = 1 )
        diff_x = (GetPointerX() - g_View.drag_start_x)/1.0
        diff_y = (GetPointerY() - g_View.drag_start_y)/1.0
        new_x = g_View.drag_ang_x + diff_y
        if ( new_x > 89 ) then new_x = 89
        if ( new_x < -89 ) then new_x = -89
        SetCameraRotation( 1, new_x, g_View.drag_ang_y + diff_x, 0 )
    endif
 
EndFunction
Function View_HandleFixedMovement()
     
    if KEY_LEFT then MoveCameraLocalX(1, -10)
    if KEY_RIGHT then MoveCameraLocalX(1, 10)
    if KEY_DOWN then MoveCameraLocalY(1, -10)
    if KEY_UP then MoveCameraLocalY(1, 10)
     
    mouse_speed=10
    if KEY_SHIFT
        mouse_speed=6
    endif
   
    if GetRawMouseWheelDelta()>0 
		 ortho =  ortho  + mouse_speed
		SetCameraOrthoWidth(1, ortho )
	endif
    if GetRawMouseWheelDelta()<0 
		 ortho =  ortho  - mouse_speed
		SetCameraOrthoWidth(1, ortho)
	endif
     
EndFunction
 
 
Function Distance3D(x1, y1, z1, x2, y2, z2)
    result as integer
    part1 = Pow((x2 - x1), 2)
    part2 = Pow((y2 - y1), 2)
    part3 = Pow((z2 - z1), 2)
    underRadical = part1 + part2 + part3
    result = Sqrt(underRadical)
EndFunction result

Function Object_RayCast(object_id, mouse_x, mouse_y)
     
    unit_x# = Get3DVectorXFromScreen(mouse_x, mouse_y)
    unit_y# = Get3DVectorYFromScreen(mouse_x, mouse_y)
    unit_z# = Get3DVectorZFromScreen(mouse_x, mouse_y)
     
    cam_x# = GetCameraX(1)
    cam_y# = GetCameraY(1)
    cam_z# = GetCameraZ(1)  
     
    dist = Distance3D(cam_x#, cam_y#, cam_z#, 0, 0, 0)*2
     
    start_x# = unit_x# + cam_x#
    start_y# = unit_y# + cam_y#
    start_z# = unit_z# + cam_z#
     
    end_x# = dist*unit_x# + cam_x#
    end_y# = dist*unit_y# + cam_y#
    end_z# = dist*unit_z# + cam_z#
 
    hit_object_id = ObjectRayCast(object_id, start_x#, start_y#, start_z#, end_x#, end_y#, end_z#)
 
EndFunction hit_object_id

@phemox : even with ScreenToWorldX /y it odesn't work in ortho mode .

AGK2 tier1 - http://www.dracaena-studio.com

Back to top

Profile PM Website

PartTimeCoder

AGK Tool Maker

9

Years of Service

User Offline

Joined: 9th Mar 2015

Location: London UK

Posted: 2nd Mar 2018 11:42

Link

@Blendman, I had a play with the camera in ortho mode and can not get any results at all, sorry but its got me beat.

This 3D camera stuff is a real pain and has me beat

Back to top

Profile PM

PHeMoX

6

Years of Service

User Offline

Joined: 9th Jan 2018

Location:

Posted: 2nd Mar 2018 22:23

Link

Quote: "
@phemox : even with ScreenToWorldX /y it odesn't work in ortho mode ."

Yeah, it works till SetCameraFOV(1,1) , but setting it to 0 seems to render the camera calculation for depth completely useless somehow. I wonder how we can calculate the correct depth.

Back to top

Profile PM

Bengismo

6

Years of Service

User Offline

Joined: 20th Nov 2017

Location: Yorkshire, England

Posted: 3rd Mar 2018 16:51

Link

I fixed the code for orthographic mode

//#Constant KEY_A GetRawKeyState(65)
#Constant KEY_D GetRawKeyState(68)
#Constant KEY_S GetRawKeyState(83)
#Constant KEY_W  GetRawKeyState(87)
 
#Constant KEY_R  GetRawKeyPressed(82)
#Constant KEY_SHIFT GetRawKeyState(16)
     
#CONSTANT KEY_LEFT  GetRawKeyState(37)    
#CONSTANT KEY_UP  GetRawKeyState(38)
#CONSTANT KEY_RIGHT  GetRawKeyState(39)
#CONSTANT KEY_DOWN  GetRawKeyState(40)
 
 
  
// create some spheres and position them randomly
for i = 1 to 100
    CreateObjectBox(i,10,10,10)
    SetObjectPosition(i, -100+random(0,200), -100+random(0,200), -100+ random(0,200))
    SetObjectColor(i,0,255,0,255)
next i
  
// position the camera and have it look at the centre of the "map"
SetCameraFOV(1,0)
SetCamerarange(1,1,1000)
SetCameraPosition(1,0,0,-150)
SetCameraLookAt(1,0,0,0,0)
//SetCameraRotation(1,0,180,0)

SetCameraOrthoWidth(1,100)
  
Global ortho = 500
  
do
      
    // toggle freeflight
    if KEY_R 
        if g_View.free_flight
            g_View.free_flight=0
            // reset camera position 
			SetCameraPosition(1,0,0,-150)
			SetCameraLookAt(1,0,0,0,0)
 
        else
            g_View.free_flight=1
        endif
    endif
      
    // handle view movement
    if g_View.free_flight
        View_HandleFreeFlightMovement()
    else    
        View_HandleFixedMovement()
    endif
         
     
    // it's also important to have the screen position of the pointer actually correctly, so use ScreenToWorldX and Y !
    pointer_x = ScreenToWorldX (GetPointerX ( )) 
    pointer_y = ScreenToWorldY ( GetPointerY ( ))
  
  
    // determine which object has been hit
    object_hit = Object_RayCastOrtho(0, pointer_x, pointer_y)
  
    // if an object has been hit then turn it red
    if object_hit <> 0
          
        // select object
        if GetRawMouseLeftPressed()
            // turn all the objects green
            for i = 1 to 100
                if GetObjectExists(i)
                    SetObjectColor(i,0,255,0,255)
                endif
            next i
            // turn selected object red
            SetObjectColor(object_hit,255,0,0,255)
        endif
          
        // delete object
        if GetRawMouseRightPressed()
            //DeleteObject(object_hit)
            SetObjectColor(object_hit,255,0,0,255)
        endif
    endif
  
    Print( "Click & Drag to rotate camera" )
    Print( "arrow: Move Camera XZ" )
    Print( "Mouse Wheel: Move Camera Y" )
    Print( "LMB: Select object" )
    Print( "RMB: Delete object" )
    Print( "R: Free Flight ("+Str(g_View.free_flight)+")" )
      
    Sync()
loop
  
// View helper functions
Type t_View
    drag_start_x as float
    drag_start_y as float
    drag_ang_x as float
    drag_ang_y as float
    free_flight
EndType
Global g_View as t_View
 
 
Function View_HandleFreeFlightMovement()
      
    View_HandleFixedMovement()   
 
   
    if ( GetPointerPressed())
        g_View.drag_start_x = GetPointerX()
        g_View.drag_start_y = GetPointerY()
        g_View.drag_ang_x = GetCameraAngleX(1)
        g_View.drag_ang_y = GetCameraAngleY(1)  
    endif
      
    diff_x as float
    diff_y as float
    new_x as float 
      
    if ( GetPointerState() = 1 )
        diff_x = (GetPointerX() - g_View.drag_start_x)/1.0
        diff_y = (GetPointerY() - g_View.drag_start_y)/1.0
        new_x = g_View.drag_ang_x + diff_y
        if ( new_x > 89 ) then new_x = 89
        if ( new_x < -89 ) then new_x = -89
        SetCameraRotation( 1, new_x, g_View.drag_ang_y + diff_x, 0 )
    endif
  
EndFunction

Function View_HandleFixedMovement()
      
    if KEY_LEFT then MoveCameraLocalX(1, -10)
    if KEY_RIGHT then MoveCameraLocalX(1, 10)
    if KEY_DOWN then MoveCameraLocalY(1, -10)
    if KEY_UP then MoveCameraLocalY(1, 10)
      
    mouse_speed=10
    if KEY_SHIFT
        mouse_speed=6
    endif
    
    if GetRawMouseWheelDelta()>0 
         ortho =  ortho  + mouse_speed
        SetCameraOrthoWidth(1, ortho )
    endif
    if GetRawMouseWheelDelta()<0 
         ortho =  ortho  - mouse_speed
        SetCameraOrthoWidth(1, ortho)
    endif
      
EndFunction
  
  
Function Distance3D(x1, y1, z1, x2, y2, z2)
    result as integer
    part1 = Pow((x2 - x1), 2)
    part2 = Pow((y2 - y1), 2)
    part3 = Pow((z2 - z1), 2)
    underRadical = part1 + part2 + part3
    result = Sqrt(underRadical)
EndFunction result

Function Object_RayCast(object_id, mouse_x, mouse_y)
    
    dist = 1000
     
    unit_x# = Get3DVectorXFromScreen(mouse_x, mouse_y)
    unit_y# = Get3DVectorYFromScreen(mouse_x, mouse_y)
    unit_z# = Get3DVectorZFromScreen(mouse_x, mouse_y)
	
    cam_x# = GetCameraX(1)
    cam_y# = GetCameraY(1)
    cam_z# = GetCameraZ(1)

start_x# = cam_x#
    start_y# = cam_y#
    start_z# = cam_z#
      
    end_x# = dist*unit_x# + start_x#
    end_y# = dist*unit_y# + start_y#
    end_z# = dist*unit_z# + start_z#
  
    hit_object_id = ObjectRayCast(object_id, start_x#, start_y#, start_z#, end_x#, end_y#, end_z#)

EndFunction hit_object_id

Function Object_RayCastOrtho(object_id, mouse_x, mouse_y)
      
    unit_x# = Get3DVectorXFromScreen(mouse_x, mouse_y)
    unit_y# = Get3DVectorYFromScreen(mouse_x, mouse_y)
    unit_z# = Get3DVectorZFromScreen(mouse_x, mouse_y)
   
	
	// get the cameras position
    cam_x# = GetCameraX(1)
    cam_y# = GetCameraY(1)
    cam_z# = GetCameraZ(1)

// get the camera unit vector (this is 1000 long)
	MoveCameraLocalZ(1,1000.0)
    cam_dx# = GetCameraX(1) - cam_x#
    cam_dy# = GetCameraY(1) - cam_y#
    cam_dz# = GetCameraZ(1) - cam_z#
	MoveCameraLocalZ(1,-1000.0)
     
     // Create the Ray vector start and end positions
    start_x# = cam_x# + unit_x#
    start_y# = cam_y# + unit_y#
    start_z# = cam_z# + unit_z#
      
    end_x# = start_x# + cam_dx#
    end_y# = start_y# + cam_dy#
    end_z# = start_z# + cam_dz#
  
    hit_object_id = ObjectRayCast(object_id, start_x#, start_y#, start_z#, end_x#, end_y#, end_z#)
  
EndFunction hit_object_id

+ Code Snippet

//#Constant KEY_A GetRawKeyState(65)
#Constant KEY_D GetRawKeyState(68)
#Constant KEY_S GetRawKeyState(83)
#Constant KEY_W  GetRawKeyState(87)
 
#Constant KEY_R  GetRawKeyPressed(82)
#Constant KEY_SHIFT GetRawKeyState(16)
     
#CONSTANT KEY_LEFT  GetRawKeyState(37)    
#CONSTANT KEY_UP  GetRawKeyState(38)
#CONSTANT KEY_RIGHT  GetRawKeyState(39)
#CONSTANT KEY_DOWN  GetRawKeyState(40)
 
 
  
// create some spheres and position them randomly
for i = 1 to 100
    CreateObjectBox(i,10,10,10)
    SetObjectPosition(i, -100+random(0,200), -100+random(0,200), -100+ random(0,200))
    SetObjectColor(i,0,255,0,255)
next i
  
// position the camera and have it look at the centre of the "map"
SetCameraFOV(1,0)
SetCamerarange(1,1,1000)
SetCameraPosition(1,0,0,-150)
SetCameraLookAt(1,0,0,0,0)
//SetCameraRotation(1,0,180,0)

SetCameraOrthoWidth(1,100)
  
Global ortho = 500
  
do
      
    // toggle freeflight
    if KEY_R 
        if g_View.free_flight
            g_View.free_flight=0
            // reset camera position 
			SetCameraPosition(1,0,0,-150)
			SetCameraLookAt(1,0,0,0,0)
 
        else
            g_View.free_flight=1
        endif
    endif
      
    // handle view movement
    if g_View.free_flight
        View_HandleFreeFlightMovement()
    else    
        View_HandleFixedMovement()
    endif
         
     
    // it's also important to have the screen position of the pointer actually correctly, so use ScreenToWorldX and Y !
    pointer_x = ScreenToWorldX (GetPointerX ( )) 
    pointer_y = ScreenToWorldY ( GetPointerY ( ))
  
  
    // determine which object has been hit
    object_hit = Object_RayCastOrtho(0, pointer_x, pointer_y)
  
    // if an object has been hit then turn it red
    if object_hit <> 0
          
        // select object
        if GetRawMouseLeftPressed()
            // turn all the objects green
            for i = 1 to 100
                if GetObjectExists(i)
                    SetObjectColor(i,0,255,0,255)
                endif
            next i
            // turn selected object red
            SetObjectColor(object_hit,255,0,0,255)
        endif
          
        // delete object
        if GetRawMouseRightPressed()
            //DeleteObject(object_hit)
            SetObjectColor(object_hit,255,0,0,255)
        endif
    endif
  
    Print( "Click & Drag to rotate camera" )
    Print( "arrow: Move Camera XZ" )
    Print( "Mouse Wheel: Move Camera Y" )
    Print( "LMB: Select object" )
    Print( "RMB: Delete object" )
    Print( "R: Free Flight ("+Str(g_View.free_flight)+")" )
      
    Sync()
loop
  
// View helper functions
Type t_View
    drag_start_x as float
    drag_start_y as float
    drag_ang_x as float
    drag_ang_y as float
    free_flight
EndType
Global g_View as t_View
 
 
Function View_HandleFreeFlightMovement()
      
    View_HandleFixedMovement()   
 
   
    if ( GetPointerPressed())
        g_View.drag_start_x = GetPointerX()
        g_View.drag_start_y = GetPointerY()
        g_View.drag_ang_x = GetCameraAngleX(1)
        g_View.drag_ang_y = GetCameraAngleY(1)  
    endif
      
    diff_x as float
    diff_y as float
    new_x as float 
      
    if ( GetPointerState() = 1 )
        diff_x = (GetPointerX() - g_View.drag_start_x)/1.0
        diff_y = (GetPointerY() - g_View.drag_start_y)/1.0
        new_x = g_View.drag_ang_x + diff_y
        if ( new_x > 89 ) then new_x = 89
        if ( new_x < -89 ) then new_x = -89
        SetCameraRotation( 1, new_x, g_View.drag_ang_y + diff_x, 0 )
    endif
  
EndFunction


Function View_HandleFixedMovement()
      
    if KEY_LEFT then MoveCameraLocalX(1, -10)
    if KEY_RIGHT then MoveCameraLocalX(1, 10)
    if KEY_DOWN then MoveCameraLocalY(1, -10)
    if KEY_UP then MoveCameraLocalY(1, 10)
      
    mouse_speed=10
    if KEY_SHIFT
        mouse_speed=6
    endif
    
    if GetRawMouseWheelDelta()>0 
         ortho =  ortho  + mouse_speed
        SetCameraOrthoWidth(1, ortho )
    endif
    if GetRawMouseWheelDelta()<0 
         ortho =  ortho  - mouse_speed
        SetCameraOrthoWidth(1, ortho)
    endif
      
EndFunction
  
  
Function Distance3D(x1, y1, z1, x2, y2, z2)
    result as integer
    part1 = Pow((x2 - x1), 2)
    part2 = Pow((y2 - y1), 2)
    part3 = Pow((z2 - z1), 2)
    underRadical = part1 + part2 + part3
    result = Sqrt(underRadical)
EndFunction result



Function Object_RayCast(object_id, mouse_x, mouse_y)
    
    dist = 1000
     
    unit_x# = Get3DVectorXFromScreen(mouse_x, mouse_y)
    unit_y# = Get3DVectorYFromScreen(mouse_x, mouse_y)
    unit_z# = Get3DVectorZFromScreen(mouse_x, mouse_y)
	
    cam_x# = GetCameraX(1)
    cam_y# = GetCameraY(1)
    cam_z# = GetCameraZ(1)  

    start_x# = cam_x#
    start_y# = cam_y#
    start_z# = cam_z#
      
    end_x# = dist*unit_x# + start_x#
    end_y# = dist*unit_y# + start_y#
    end_z# = dist*unit_z# + start_z#
  
    hit_object_id = ObjectRayCast(object_id, start_x#, start_y#, start_z#, end_x#, end_y#, end_z#)

EndFunction hit_object_id


Function Object_RayCastOrtho(object_id, mouse_x, mouse_y)
      
    unit_x# = Get3DVectorXFromScreen(mouse_x, mouse_y)
    unit_y# = Get3DVectorYFromScreen(mouse_x, mouse_y)
    unit_z# = Get3DVectorZFromScreen(mouse_x, mouse_y)
   
	
	// get the cameras position
    cam_x# = GetCameraX(1)
    cam_y# = GetCameraY(1)
    cam_z# = GetCameraZ(1)  
    

	// get the camera unit vector (this is 1000 long)
	MoveCameraLocalZ(1,1000.0)
    cam_dx# = GetCameraX(1) - cam_x#
    cam_dy# = GetCameraY(1) - cam_y#
    cam_dz# = GetCameraZ(1) - cam_z#
	MoveCameraLocalZ(1,-1000.0)
     
     // Create the Ray vector start and end positions
    start_x# = cam_x# + unit_x#
    start_y# = cam_y# + unit_y#
    start_z# = cam_z# + unit_z#
      
    end_x# = start_x# + cam_dx#
    end_y# = start_y# + cam_dy#
    end_z# = start_z# + cam_dz#
  
    hit_object_id = ObjectRayCast(object_id, start_x#, start_y#, start_z#, end_x#, end_y#, end_z#)
  
EndFunction hit_object_id

Also the original code wasnt right either even in projection mode so needed fixing.

Back to top

Profile PM

Blendman

10

Years of Service

User Offline

Joined: 17th Feb 2014

Location: Arkeos

Posted: 5th Mar 2018 12:03

Link

@Bengismo : Thanks a lot, it works fine !

AGK2 tier1 - http://www.dracaena-studio.com

Back to top

Profile PM Website

PHeMoX

6

Years of Service

User Offline

Joined: 9th Jan 2018

Location:

Posted: 7th Mar 2018 21:15

Link

Neat trick setting the CameraZ like that for the vector Bengismo. Now it does give the correct depth.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers AppGameKit Corner / How to delete 3d objects with left mouse click?