3D Aiming path - GameCreators Forum

Author

Message

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 28th Oct 2018 04:41 Edited at: 28th Oct 2018 04:45

Link

I am trying to show the projected path a ball in flight will take.
I currently do this by creating an invisible ball, applying linear velocity and tracking it until it passes a certain point.
My problem is it takes too much time. Not the processing but waiting for the number of frames to draw the path.
It look slows and laggy.
Anyone have any ideas on how to do this faster/better?

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

SetClearColor(0x80, 0x80, 0x80)

#option_explicit

#constant TRUE		1
#constant FALSE		0

type	color
	r			as float
	g			as float
	b			as float
endtype

type point
	x 			as float
	y 			as float
	z 			as float
endtype

type aim
	newpath as integer[]
	oldpath as integer[]
	mode    as integer
	start   as integer
	plane   as integer
	target	as integer
	ball	as integer
	dir		as point
	last	as point
endtype

create3DPhysicsWorld()
Set3DPhysicsGravity( 0, -3, 0 )

aim as aim

aim.ball = CreateObjectSphere(1.5, 8, 8)
SetObjectColor(aim.ball, 0xff, 0,  0, 0xff)
SetObjectVisible(aim.ball, 0)

aim.plane = CreateObjectPlane(15, 15)
SetObjectPosition(aim.plane, 0, 0, 10)

aim.target = CreateObjectPlane(1, 1)
SetObjectPosition(aim.target, 0, 0, 0)
SetObjectColor(aim.target, 0xff, 0,  0, 0xff)

aim.start = CreateObjectBox(1, 1, 1)
SetObjectColor(aim.start, 0, 0xff, 0, 0xff)
SetObjectPosition(aim.start, 0, 0, -10)

SetCameraPosition(1, 0, 5, GetCameraZ(1))
SetCameraLookAt(1, 0,  0, 0, 0)

#constant AIM_MODE_FIRE		0
#constant AIM_MODE_TRACK	1

do
	AimPath(aim)
    Print( str(ScreenFPS()) + " " + str(aim.newpath.length))
    Step3DPhysicsWorld()
    Sync()
loop

function	AimPath(aim ref as aim)
	world	as point
	depth	as float
	current	as point
	i		as integer
	cam		as point
	plane	as point
	z		as float
	
	
	cam.x = GetCameraX(1)
	cam.y = GetCameraY(1)
	cam.z = GetCameraZ(1)	
	
	plane.x = GetObjectX(aim.plane)	
	plane.y = GetObjectY(aim.plane)	
	plane.z = GetObjectZ(aim.plane)			
	
	depth = Distance(plane, cam)
	
	world.x = Get3DVectorXFromScreen( GetPointerX(), GetPointerY() ) * Depth + cam.x
	world.y = Get3DVectorYFromScreen( GetPointerX(), GetPointerY() ) * Depth + cam.y
	world.z = Get3DVectorZFromScreen( GetPointerX(), GetPointerY() ) * Depth + cam.z
	
	SetObjectPosition(aim.target, world.x, world.y, GetObjectZ(aim.plane) - 0.1)
	
	SetObjectLookAt(aim.start, world.x, world.y, GetObjectZ(aim.plane) - 0.1, 0)	
		
		
	select aim.mode
		case AIM_MODE_FIRE
			aim.dir = GetObjectDirectionVector(aim.start, 1)					
			SetObjectPosition(aim.ball, GetObjectX(aim.start), GetObjectY(aim.start), GetObjectZ(aim.start))
			Create3DPhysicsDynamicBody(aim.ball)
			SetObjectShapeSphere(aim.ball)
			SetObject3DPhysicsLinearVelocity(aim.ball, aim.dir.x, aim.dir.y, aim.dir.z, 100)	
			aim.mode = AIM_MODE_TRACK
			aim.last.x = GetObjectX(aim.start)
			aim.last.y = GetObjectY(aim.start)
			aim.last.z = GetObjectZ(aim.start)
		endcase
		case AIM_MODE_TRACK
			current.x = GetObjectX(aim.ball)   
			current.y = GetObjectY(aim.ball)   
			current.z = GetObjectZ(aim.ball)   				
			aim.newpath.insert(Draw3DLine(aim.last, current, 0))
			aim.last = current	
			z = GetObjectZ(aim.plane)
			if current.z >= z or aim.newpath.length > 100		
				for i=0 to aim.oldpath.length
					DeleteObject(aim.oldpath[i])
				next
				for i=0 to aim.newpath.length
					SetObjectVisible(aim.newpath[i], 1)
				next				
				aim.oldpath = aim.newpath
				aim.newpath.length = -1
				Delete3DPhysicsBody(aim.ball)
				aim.mode = AIM_MODE_FIRE
			endif
		endcase
	endselect
				
endfunction

function	Draw3DLine(fp as point, tp as point, vis as integer)
	o			as integer
	dist 		as float
	angley		as float
	
	o = CreateObjectPlane(.5,.5)
	RotateObjectLocalX(o, 90)
	SetObjectPosition(o, 0, 0, .25)
	FixObjectPivot(o)
	SetObjectPosition(o, fp.x, fp.y, fp.z)
	setobjectcolor(o, 0, 0xff, 0, 0xff)
	dist = sqrt((fp.x - tp.x)^2 + (fp.y - tp.y)^2 + (fp.z - tp.z)^2 )				
	SetObjectScale(o, 1, 1, dist * 2)
	SetObjectLookAt(o, tp.x, tp.y, tp.z, 0)
	SetObjectVisible(o, vis)
endfunction o

function	Distance(fp as point, tp as point)
	dist 		as float
	dist = sqrt((fp.x - tp.x)^2 + (fp.y - tp.y)^2 + (fp.z - tp.z)^2 )				
endfunction dist

Function GetObjectDirectionVector( objID as integer, direction as integer )
	vector	as point
	tempObj as integer
	
    tempObj = CreateObjectBox( 1.0, 1.0, 1.0 )
    
    SetObjectPosition( tempObj, GetObjectWorldX( objID ), GetObjectWorldY( objID ), GetObjectWorldZ( objID ) )
    SetObjectRotation( tempObj, GetobjectWorldAngleX( objID ), GetobjectWorldAngleY(objID), GetobjectWorldAngleZ( objID ) )
    
    select direction
        case 1 :
            MoveObjectLocalZ( tempObj, 1.0 )
        endcase
        case 2 :
            MoveObjectLocalZ( tempObj, -1.0 )
        endcase
        case 3 :
            MoveObjectLocalY( tempObj, 1.0 )
        endcase
        case 4 :
            MoveObjectLocalY( tempObj, -1.0 )
        endcase
        case 5 :
            MoveObjectLocalX( tempObj, 1.0 )
        endcase 
        case 6 :
            MoveObjectLocalX( tempObj, -1.0 )
        endcase 
    endselect
    
    vector.x = GetObjectWorldX( tempObj ) - GetObjectWorldX( objID )
    vector.y = GetObjectWorldY( tempObj ) - GetObjectWorldY( objID )
    vector.z = GetObjectWorldZ( tempObj ) - GetObjectWorldZ( objID )
    
    DeleteObject(tempObj)
    
EndFunction vector

+ Code Snippet


// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

SetClearColor(0x80, 0x80, 0x80)

#option_explicit

#constant TRUE		1
#constant FALSE		0


type	color
	r			as float
	g			as float
	b			as float
endtype

type point
	x 			as float
	y 			as float
	z 			as float
endtype


type aim
	newpath as integer[]
	oldpath as integer[]
	mode    as integer
	start   as integer
	plane   as integer
	target	as integer
	ball	as integer
	dir		as point
	last	as point
endtype

create3DPhysicsWorld()
Set3DPhysicsGravity( 0, -3, 0 ) 

aim as aim

aim.ball = CreateObjectSphere(1.5, 8, 8)
SetObjectColor(aim.ball, 0xff, 0,  0, 0xff)
SetObjectVisible(aim.ball, 0)

aim.plane = CreateObjectPlane(15, 15)
SetObjectPosition(aim.plane, 0, 0, 10)

aim.target = CreateObjectPlane(1, 1)
SetObjectPosition(aim.target, 0, 0, 0)
SetObjectColor(aim.target, 0xff, 0,  0, 0xff)

aim.start = CreateObjectBox(1, 1, 1)
SetObjectColor(aim.start, 0, 0xff, 0, 0xff)
SetObjectPosition(aim.start, 0, 0, -10)

SetCameraPosition(1, 0, 5, GetCameraZ(1))
SetCameraLookAt(1, 0,  0, 0, 0)

#constant AIM_MODE_FIRE		0
#constant AIM_MODE_TRACK	1

do
	AimPath(aim)
    Print( str(ScreenFPS()) + " " + str(aim.newpath.length))
    Step3DPhysicsWorld()
    Sync()
loop



function	AimPath(aim ref as aim)
	world	as point
	depth	as float
	current	as point
	i		as integer
	cam		as point
	plane	as point
	z		as float
	
	
	cam.x = GetCameraX(1)
	cam.y = GetCameraY(1)
	cam.z = GetCameraZ(1)	
	
	plane.x = GetObjectX(aim.plane)	
	plane.y = GetObjectY(aim.plane)	
	plane.z = GetObjectZ(aim.plane)			
	
	depth = Distance(plane, cam)
	
	world.x = Get3DVectorXFromScreen( GetPointerX(), GetPointerY() ) * Depth + cam.x
	world.y = Get3DVectorYFromScreen( GetPointerX(), GetPointerY() ) * Depth + cam.y
	world.z = Get3DVectorZFromScreen( GetPointerX(), GetPointerY() ) * Depth + cam.z
	
	SetObjectPosition(aim.target, world.x, world.y, GetObjectZ(aim.plane) - 0.1)
	
	SetObjectLookAt(aim.start, world.x, world.y, GetObjectZ(aim.plane) - 0.1, 0)	
		
		
	select aim.mode
		case AIM_MODE_FIRE
			aim.dir = GetObjectDirectionVector(aim.start, 1)					
			SetObjectPosition(aim.ball, GetObjectX(aim.start), GetObjectY(aim.start), GetObjectZ(aim.start))
			Create3DPhysicsDynamicBody(aim.ball)
			SetObjectShapeSphere(aim.ball)
			SetObject3DPhysicsLinearVelocity(aim.ball, aim.dir.x, aim.dir.y, aim.dir.z, 100)	
			aim.mode = AIM_MODE_TRACK
			aim.last.x = GetObjectX(aim.start)
			aim.last.y = GetObjectY(aim.start)
			aim.last.z = GetObjectZ(aim.start)
		endcase
		case AIM_MODE_TRACK
			current.x = GetObjectX(aim.ball)   
			current.y = GetObjectY(aim.ball)   
			current.z = GetObjectZ(aim.ball)   				
			aim.newpath.insert(Draw3DLine(aim.last, current, 0))
			aim.last = current	
			z = GetObjectZ(aim.plane)
			if current.z >= z or aim.newpath.length > 100		
				for i=0 to aim.oldpath.length
					DeleteObject(aim.oldpath[i])
				next
				for i=0 to aim.newpath.length
					SetObjectVisible(aim.newpath[i], 1)
				next				
				aim.oldpath = aim.newpath
				aim.newpath.length = -1
				Delete3DPhysicsBody(aim.ball)
				aim.mode = AIM_MODE_FIRE
			endif
		endcase
	endselect
				
endfunction

function	Draw3DLine(fp as point, tp as point, vis as integer)
	o			as integer
	dist 		as float
	angley		as float
	
	o = CreateObjectPlane(.5,.5)
	RotateObjectLocalX(o, 90)
	SetObjectPosition(o, 0, 0, .25)
	FixObjectPivot(o)
	SetObjectPosition(o, fp.x, fp.y, fp.z)
	setobjectcolor(o, 0, 0xff, 0, 0xff)
	dist = sqrt((fp.x - tp.x)^2 + (fp.y - tp.y)^2 + (fp.z - tp.z)^2 )				
	SetObjectScale(o, 1, 1, dist * 2)
	SetObjectLookAt(o, tp.x, tp.y, tp.z, 0)
	SetObjectVisible(o, vis)
endfunction o

function	Distance(fp as point, tp as point)
	dist 		as float
	dist = sqrt((fp.x - tp.x)^2 + (fp.y - tp.y)^2 + (fp.z - tp.z)^2 )				
endfunction dist


Function GetObjectDirectionVector( objID as integer, direction as integer )
	vector	as point
	tempObj as integer
	
    tempObj = CreateObjectBox( 1.0, 1.0, 1.0 )
    
    SetObjectPosition( tempObj, GetObjectWorldX( objID ), GetObjectWorldY( objID ), GetObjectWorldZ( objID ) )
    SetObjectRotation( tempObj, GetobjectWorldAngleX( objID ), GetobjectWorldAngleY(objID), GetobjectWorldAngleZ( objID ) )
    
    select direction
        case 1 :
            MoveObjectLocalZ( tempObj, 1.0 )
        endcase
        case 2 :
            MoveObjectLocalZ( tempObj, -1.0 )
        endcase
        case 3 :
            MoveObjectLocalY( tempObj, 1.0 )
        endcase
        case 4 :
            MoveObjectLocalY( tempObj, -1.0 )
        endcase
        case 5 :
            MoveObjectLocalX( tempObj, 1.0 )
        endcase 
        case 6 :
            MoveObjectLocalX( tempObj, -1.0 )
        endcase 
    endselect
    
    vector.x = GetObjectWorldX( tempObj ) - GetObjectWorldX( objID )
    vector.y = GetObjectWorldY( tempObj ) - GetObjectWorldY( objID )
    vector.z = GetObjectWorldZ( tempObj ) - GetObjectWorldZ( objID )
    
    DeleteObject(tempObj)
    
EndFunction vector

Back to top

Profile PM

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 28th Oct 2018 07:24

Link

Trying to fudge it.
The key variables here are aim.speed aim.friction and aim.gravity.
It could be anything but i think my crude gravity calculation is not correct.

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

SetClearColor(0x80, 0x80, 0x80)

#option_explicit

#constant TRUE		1
#constant FALSE		0

type	color
	r			as float
	g			as float
	b			as float
endtype

type point
	x 			as float
	y 			as float
	z 			as float
endtype

type aim
	newpath 	as integer[]
	oldpath 	as integer[]
	dpath		as integer[]
	mode    	as integer
	start   	as integer
	plane   	as integer
	target		as integer
	ball		as integer
	dir			as point
	last		as point
	cursor		as point
	friction	as float
	steps		as integer
	speed		as float
endtype

global	gravity as integer = -3

create3DPhysicsWorld()
Set3DPhysicsGravity( 0, gravity, 0 )

aim as aim

aim.ball = CreateObjectSphere(1.5, 8, 8)
SetObjectColor(aim.ball, 0xff, 0,  0, 0xff)
SetObjectVisible(aim.ball, 0)

aim.plane = CreateObjectPlane(15, 15)
SetObjectPosition(aim.plane, 0, 0, 30)

aim.target = CreateObjectPlane(1, 1)
SetObjectPosition(aim.target, 0, 0, 0)
SetObjectColor(aim.target, 0xff, 0,  0, 0xff)

aim.start = CreateObjectBox(1, 1, 1)
SetObjectColor(aim.start, 0, 0xff, 0, 0xff)
SetObjectPosition(aim.start, 0, 0, -10)

SetCameraPosition(1, 0, 5, GetCameraZ(1))
SetCameraLookAt(1, 0,  0, 0, 0)

#constant AIM_MODE_FIRE		0
#constant AIM_MODE_TRACK	1

do
	
	aim.speed = 8
	AimPath(aim)
    Print( str(ScreenFPS()) + " " + str(aim.steps + 1))
    Step3DPhysicsWorld()
    Sync()
loop

function	AimPath(aim ref as aim)
	world	as point
	depth	as float
	current	as point
	last	as point
	i		as integer
	cam		as point
	plane	as point
	z		as float
	
	
	cam.x = GetCameraX(1)
	cam.y = GetCameraY(1)
	cam.z = GetCameraZ(1)	
	
	plane.x = GetObjectX(aim.plane)	
	plane.y = GetObjectY(aim.plane)	
	plane.z = GetObjectZ(aim.plane)			
	
	depth = Distance(plane, cam)
	
	world.x = Get3DVectorXFromScreen( GetPointerX(), GetPointerY() ) * Depth + cam.x
	world.y = Get3DVectorYFromScreen( GetPointerX(), GetPointerY() ) * Depth + cam.y
	world.z = Get3DVectorZFromScreen( GetPointerX(), GetPointerY() ) * Depth + cam.z	
	
	SetObjectPosition(aim.target, world.x, world.y, GetObjectZ(aim.plane) - 0.1)
	
	
	SetObjectLookAt(aim.start, world.x, world.y, GetObjectZ(aim.plane) - 0.1, 0)	
		
	if aim.friction = 0
		Delete3DPhysicsBody(aim.ball)						
		aim.dir = GetObjectDirectionVector(aim.start, 1, 1)					
		SetObjectPosition(aim.ball, GetObjectX(aim.start), GetObjectY(aim.start), GetObjectZ(aim.start))
		Create3DPhysicsDynamicBody(aim.ball)
		SetObjectShapeSphere(aim.ball)
		aim.friction = GetObject3DPhysicsFriction( aim.ball ) * 1.7
	endif
		
	for i=0 to aim.dpath.length
		DeleteObject(aim.dpath[i])
	next
	
	aim.dpath.length = -1
	
	last.x = GetObjectX(aim.start)
	last.y = GetObjectY(aim.start)
	last.z = GetObjectZ(aim.start)	
	aim.dir = GetObjectDirectionVector(aim.start, 1, aim.speed)			
	
	for i=0 to 12
		aim.dir.x = aim.dir.x * aim.friction
		aim.dir.y = aim.dir.y * aim.friction
		aim.dir.z = aim.dir.z * aim.friction
		inc aim.dir.y, gravity * .08		
		current.x = last.x + aim.dir.x
		current.y = last.y + aim.dir.y
		current.z = last.z + aim.dir.z
		aim.dpath.insert(Draw3DLine(last, current, 1, 0xff, 0, 0))
		last = current
	next
	
	select aim.mode
		case AIM_MODE_FIRE
			Delete3DPhysicsBody(aim.ball)						
			aim.dir = GetObjectDirectionVector(aim.start, 1, 1)					
			SetObjectPosition(aim.ball, GetObjectX(aim.start), GetObjectY(aim.start), GetObjectZ(aim.start))
			Create3DPhysicsDynamicBody(aim.ball)
			SetObjectShapeSphere(aim.ball)
			SetObject3DPhysicsLinearVelocity(aim.ball, aim.dir.x, aim.dir.y, aim.dir.z, 100)	
			aim.mode = AIM_MODE_TRACK
			aim.last.x = GetObjectX(aim.start)
			aim.last.y = GetObjectY(aim.start)
			aim.last.z = GetObjectZ(aim.start)
		endcase
		case AIM_MODE_TRACK
			current.x = GetObjectX(aim.ball)   
			current.y = GetObjectY(aim.ball)   
			current.z = GetObjectZ(aim.ball)   				
			aim.newpath.insert(Draw3DLine(aim.last, current, 0, 0, 0xff, 0))
			aim.last = current	
			z = GetObjectZ(aim.plane)
			if current.z >= z
				for i=0 to aim.oldpath.length
					DeleteObject(aim.oldpath[i])
				next
				for i=0 to aim.newpath.length
					SetObjectVisible(aim.newpath[i], 1)
				next				
				aim.oldpath = aim.newpath
				aim.newpath.length = -1
				aim.mode = AIM_MODE_FIRE
				aim.steps = aim.oldpath.length
			endif
		endcase
	endselect
				
endfunction

function	Draw3DLine(fp as point, tp as point, vis as integer, r as integer, g as integer, b as integer )
	o			as integer
	dist 		as float
	angley		as float
	
	o = CreateObjectPlane(.5,.5)
	RotateObjectLocalX(o, 90)
	SetObjectPosition(o, 0, 0, .25)
	FixObjectPivot(o)
	SetObjectPosition(o, fp.x, fp.y, fp.z)
	setobjectcolor(o, r, g, b, 0xff)
	dist = sqrt((fp.x - tp.x)^2 + (fp.y - tp.y)^2 + (fp.z - tp.z)^2 )				
	SetObjectScale(o, 1, 1, dist * 2)
	SetObjectLookAt(o, tp.x, tp.y, tp.z, 0)
	SetObjectVisible(o, vis)
endfunction o

function	Distance(fp as point, tp as point)
	dist 		as float
	dist = sqrt((fp.x - tp.x)^2 + (fp.y - tp.y)^2 + (fp.z - tp.z)^2 )				
endfunction dist

Function GetObjectDirectionVector( objID as integer, direction as integer, speed as float)
	vector	as point
	tempObj as integer
	
    tempObj = CreateObjectBox( 1.0, 1.0, 1.0 )
    
    SetObjectPosition( tempObj, GetObjectWorldX( objID ), GetObjectWorldY( objID ), GetObjectWorldZ( objID ) )
    SetObjectRotation( tempObj, GetobjectWorldAngleX( objID ), GetobjectWorldAngleY(objID), GetobjectWorldAngleZ( objID ) )
    
    select direction
        case 1 :
            MoveObjectLocalZ( tempObj, speed )
        endcase
        case 2 :
            MoveObjectLocalZ( tempObj, -speed)
        endcase
        case 3 :
            MoveObjectLocalY( tempObj, speed )
        endcase
        case 4 :
            MoveObjectLocalY( tempObj, -speed )
        endcase
        case 5 :
            MoveObjectLocalX( tempObj, speed )
        endcase 
        case 6 :
            MoveObjectLocalX( tempObj, -speed )
        endcase 
    endselect
    
    vector.x = GetObjectWorldX( tempObj ) - GetObjectWorldX( objID )
    vector.y = GetObjectWorldY( tempObj ) - GetObjectWorldY( objID )
    vector.z = GetObjectWorldZ( tempObj ) - GetObjectWorldZ( objID )
    
    DeleteObject(tempObj)
    
EndFunction vector

+ Code Snippet


// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

SetClearColor(0x80, 0x80, 0x80)

#option_explicit

#constant TRUE		1
#constant FALSE		0


type	color
	r			as float
	g			as float
	b			as float
endtype

type point
	x 			as float
	y 			as float
	z 			as float
endtype


type aim
	newpath 	as integer[]
	oldpath 	as integer[]
	dpath		as integer[]
	mode    	as integer
	start   	as integer
	plane   	as integer
	target		as integer
	ball		as integer
	dir			as point
	last		as point
	cursor		as point
	friction	as float
	steps		as integer
	speed		as float
endtype

global	gravity as integer = -3

create3DPhysicsWorld()
Set3DPhysicsGravity( 0, gravity, 0 ) 


aim as aim

aim.ball = CreateObjectSphere(1.5, 8, 8)
SetObjectColor(aim.ball, 0xff, 0,  0, 0xff)
SetObjectVisible(aim.ball, 0)

aim.plane = CreateObjectPlane(15, 15)
SetObjectPosition(aim.plane, 0, 0, 30)

aim.target = CreateObjectPlane(1, 1)
SetObjectPosition(aim.target, 0, 0, 0)
SetObjectColor(aim.target, 0xff, 0,  0, 0xff)

aim.start = CreateObjectBox(1, 1, 1)
SetObjectColor(aim.start, 0, 0xff, 0, 0xff)
SetObjectPosition(aim.start, 0, 0, -10)

SetCameraPosition(1, 0, 5, GetCameraZ(1))
SetCameraLookAt(1, 0,  0, 0, 0)

#constant AIM_MODE_FIRE		0
#constant AIM_MODE_TRACK	1

do
	
	aim.speed = 8
	AimPath(aim)
    Print( str(ScreenFPS()) + " " + str(aim.steps + 1))
    Step3DPhysicsWorld()
    Sync()
loop



function	AimPath(aim ref as aim)
	world	as point
	depth	as float
	current	as point
	last	as point
	i		as integer
	cam		as point
	plane	as point
	z		as float
	
	
	cam.x = GetCameraX(1)
	cam.y = GetCameraY(1)
	cam.z = GetCameraZ(1)	
	
	plane.x = GetObjectX(aim.plane)	
	plane.y = GetObjectY(aim.plane)	
	plane.z = GetObjectZ(aim.plane)			
	
	depth = Distance(plane, cam)
	
	world.x = Get3DVectorXFromScreen( GetPointerX(), GetPointerY() ) * Depth + cam.x
	world.y = Get3DVectorYFromScreen( GetPointerX(), GetPointerY() ) * Depth + cam.y
	world.z = Get3DVectorZFromScreen( GetPointerX(), GetPointerY() ) * Depth + cam.z	
	
	SetObjectPosition(aim.target, world.x, world.y, GetObjectZ(aim.plane) - 0.1)
	
	
	SetObjectLookAt(aim.start, world.x, world.y, GetObjectZ(aim.plane) - 0.1, 0)	
		
	if aim.friction = 0
		Delete3DPhysicsBody(aim.ball)						
		aim.dir = GetObjectDirectionVector(aim.start, 1, 1)					
		SetObjectPosition(aim.ball, GetObjectX(aim.start), GetObjectY(aim.start), GetObjectZ(aim.start))
		Create3DPhysicsDynamicBody(aim.ball)
		SetObjectShapeSphere(aim.ball)
		aim.friction = GetObject3DPhysicsFriction( aim.ball ) * 1.7
	endif
		
	for i=0 to aim.dpath.length
		DeleteObject(aim.dpath[i])
	next
	
	aim.dpath.length = -1
	
	last.x = GetObjectX(aim.start)
	last.y = GetObjectY(aim.start)
	last.z = GetObjectZ(aim.start)	
	aim.dir = GetObjectDirectionVector(aim.start, 1, aim.speed)			
	
	for i=0 to 12
		aim.dir.x = aim.dir.x * aim.friction
		aim.dir.y = aim.dir.y * aim.friction
		aim.dir.z = aim.dir.z * aim.friction
		inc aim.dir.y, gravity * .08		
		current.x = last.x + aim.dir.x
		current.y = last.y + aim.dir.y
		current.z = last.z + aim.dir.z
		aim.dpath.insert(Draw3DLine(last, current, 1, 0xff, 0, 0))
		last = current
	next
	
	select aim.mode
		case AIM_MODE_FIRE
			Delete3DPhysicsBody(aim.ball)						
			aim.dir = GetObjectDirectionVector(aim.start, 1, 1)					
			SetObjectPosition(aim.ball, GetObjectX(aim.start), GetObjectY(aim.start), GetObjectZ(aim.start))
			Create3DPhysicsDynamicBody(aim.ball)
			SetObjectShapeSphere(aim.ball)
			SetObject3DPhysicsLinearVelocity(aim.ball, aim.dir.x, aim.dir.y, aim.dir.z, 100)	
			aim.mode = AIM_MODE_TRACK
			aim.last.x = GetObjectX(aim.start)
			aim.last.y = GetObjectY(aim.start)
			aim.last.z = GetObjectZ(aim.start)
		endcase
		case AIM_MODE_TRACK
			current.x = GetObjectX(aim.ball)   
			current.y = GetObjectY(aim.ball)   
			current.z = GetObjectZ(aim.ball)   				
			aim.newpath.insert(Draw3DLine(aim.last, current, 0, 0, 0xff, 0))
			aim.last = current	
			z = GetObjectZ(aim.plane)
			if current.z >= z
				for i=0 to aim.oldpath.length
					DeleteObject(aim.oldpath[i])
				next
				for i=0 to aim.newpath.length
					SetObjectVisible(aim.newpath[i], 1)
				next				
				aim.oldpath = aim.newpath
				aim.newpath.length = -1
				aim.mode = AIM_MODE_FIRE
				aim.steps = aim.oldpath.length
			endif
		endcase
	endselect
				
endfunction

function	Draw3DLine(fp as point, tp as point, vis as integer, r as integer, g as integer, b as integer )
	o			as integer
	dist 		as float
	angley		as float
	
	o = CreateObjectPlane(.5,.5)
	RotateObjectLocalX(o, 90)
	SetObjectPosition(o, 0, 0, .25)
	FixObjectPivot(o)
	SetObjectPosition(o, fp.x, fp.y, fp.z)
	setobjectcolor(o, r, g, b, 0xff)
	dist = sqrt((fp.x - tp.x)^2 + (fp.y - tp.y)^2 + (fp.z - tp.z)^2 )				
	SetObjectScale(o, 1, 1, dist * 2)
	SetObjectLookAt(o, tp.x, tp.y, tp.z, 0)
	SetObjectVisible(o, vis)
endfunction o

function	Distance(fp as point, tp as point)
	dist 		as float
	dist = sqrt((fp.x - tp.x)^2 + (fp.y - tp.y)^2 + (fp.z - tp.z)^2 )				
endfunction dist


Function GetObjectDirectionVector( objID as integer, direction as integer, speed as float)
	vector	as point
	tempObj as integer
	
    tempObj = CreateObjectBox( 1.0, 1.0, 1.0 )
    
    SetObjectPosition( tempObj, GetObjectWorldX( objID ), GetObjectWorldY( objID ), GetObjectWorldZ( objID ) )
    SetObjectRotation( tempObj, GetobjectWorldAngleX( objID ), GetobjectWorldAngleY(objID), GetobjectWorldAngleZ( objID ) )
    
    select direction
        case 1 :
            MoveObjectLocalZ( tempObj, speed )
        endcase
        case 2 :
            MoveObjectLocalZ( tempObj, -speed)
        endcase
        case 3 :
            MoveObjectLocalY( tempObj, speed )
        endcase
        case 4 :
            MoveObjectLocalY( tempObj, -speed )
        endcase
        case 5 :
            MoveObjectLocalX( tempObj, speed )
        endcase 
        case 6 :
            MoveObjectLocalX( tempObj, -speed )
        endcase 
    endselect
    
    vector.x = GetObjectWorldX( tempObj ) - GetObjectWorldX( objID )
    vector.y = GetObjectWorldY( tempObj ) - GetObjectWorldY( objID )
    vector.z = GetObjectWorldZ( tempObj ) - GetObjectWorldZ( objID )
    
    DeleteObject(tempObj)
    
EndFunction vector

Back to top

Profile PM

Golelorn

8

Years of Service

User Offline

Joined: 20th Nov 2016

Location:

Posted: 28th Oct 2018 12:10

Link

I found these to be useful.

https://www.leadwerks.com/community/topic/13468-parabolic-arc-throwing-a-grenade/

Finding the vertex of a parabola:

https://www.varsitytutors.com/hotmath/hotmath_help/topics/vertex-of-a-parabola

Unity tutorial with code:
https://www.youtube.com/watch?v=ddakS7BgHRI

Back to top

Profile PM

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 28th Oct 2018 19:17 Edited at: 28th Oct 2018 20:21

Link

Thanks for that info Golelorn. Very interesting stuff

For my purposes it's working. I changed the gravity and it seems to give me a consistent result. I'm sure the longer the path the less accurate it will be (It is already not very accurate but good enough for a game i think)

These are the calculations;
1. Speed / 31.5 (From the SetObject3DPhysicsLinearVelocity() function)
2. Friction * 1.99 (From the GetObject3DPhysicsFriction() function)
3. Gravity * .035 (From the Set3DPhysicsGravity() function, Default is -10)

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

SetClearColor(0x80, 0x80, 0x80)

#option_explicit

#constant TRUE		1
#constant FALSE		0

type	color
	r			as float
	g			as float
	b			as float
endtype

type point
	x 			as float
	y 			as float
	z 			as float
endtype

type aim
	newpath 	as integer[]
	oldpath 	as integer[]
	dpath		as integer[]
	mode    	as integer
	start   	as integer
	plane   	as integer
	target		as integer
	ball		as integer
	dir			as point
	last		as point
	cursor		as point
	friction	as float
	steps		as integer
	speed		as float
endtype

global	gravity as integer = -5

create3DPhysicsWorld()
Set3DPhysicsGravity( 0, gravity, 0 )

aim as aim

aim.ball = CreateObjectSphere(1.5, 8, 8)
SetObjectColor(aim.ball, 0xff, 0,  0, 0xff)
SetObjectVisible(aim.ball, 0)

aim.plane = CreateObjectPlane(15, 15)
SetObjectPosition(aim.plane, 0, 0, 30)

aim.target = CreateObjectPlane(1, 1)
SetObjectPosition(aim.target, 0, 0, 0)
SetObjectColor(aim.target, 0xff, 0,  0, 0xff)

aim.start = CreateObjectBox(1, 1, 1)
SetObjectColor(aim.start, 0, 0xff, 0, 0xff)
SetObjectPosition(aim.start, 0, 0, -10)

SetCameraPosition(1, 0, 5, GetCameraZ(1))
SetCameraLookAt(1, 0,  0, 0, 0)

#constant AIM_MODE_FIRE		0
#constant AIM_MODE_TRACK	1

do
	
	aim.speed = 100
	AimPath(aim)
    Print( str(ScreenFPS()) + " " + str(aim.steps + 1))
    Step3DPhysicsWorld()
    Sync()
loop

function	AimPath(aim ref as aim)
	world	as point
	depth	as float
	current	as point
	last	as point
	i		as integer
	cam		as point
	plane	as point
	z		as float
	o		as integer
	n		as integer
	
	
	cam.x = GetCameraX(1)
	cam.y = GetCameraY(1)
	cam.z = GetCameraZ(1)	
	
	plane.x = GetObjectX(aim.plane)	
	plane.y = GetObjectY(aim.plane)	
	plane.z = GetObjectZ(aim.plane)			
	
	depth = Distance(plane, cam)
	
	world.x = Get3DVectorXFromScreen( GetPointerX(), GetPointerY() ) * Depth + cam.x
	world.y = Get3DVectorYFromScreen( GetPointerX(), GetPointerY() ) * Depth + cam.y
	world.z = Get3DVectorZFromScreen( GetPointerX(), GetPointerY() ) * Depth + cam.z	
	
	SetObjectPosition(aim.target, world.x, world.y, GetObjectZ(aim.plane) - 0.1)
	
	
	SetObjectLookAt(aim.start, world.x, world.y, GetObjectZ(aim.plane) - 0.1, 0)	
		
	if aim.friction = 0
		Delete3DPhysicsBody(aim.ball)						
		aim.dir = GetObjectDirectionVector(aim.start, 1, 1)					
		SetObjectPosition(aim.ball, GetObjectX(aim.start), GetObjectY(aim.start), GetObjectZ(aim.start))
		Create3DPhysicsDynamicBody(aim.ball)
		SetObjectShapeSphere(aim.ball)
		aim.friction = GetObject3DPhysicsFriction( aim.ball ) * 1.98
	endif
		
	for i=0 to aim.dpath.length
		DeleteObject(aim.dpath[i])
	next
	
	aim.dpath.length = -1
	
	last.x = GetObjectX(aim.start)
	last.y = GetObjectY(aim.start)
	last.z = GetObjectZ(aim.start)	
	aim.dir = GetObjectDirectionVector(aim.start, 1, aim.speed / 31.5)			
	
	for i=0 to 12
		aim.dir.x = aim.dir.x * aim.friction
		aim.dir.y = aim.dir.y * aim.friction
		aim.dir.z = aim.dir.z * aim.friction
		inc aim.dir.y, gravity * .035		
		current.x = last.x + aim.dir.x
		current.y = last.y + aim.dir.y
		current.z = last.z + aim.dir.z
		DrawEllipse(last.z * 10 + 200, last.y * -10 + 100, 3, 3, 0x0000ff, 0x0000ff, 1)			
		DrawLine(last.z * 10 + 200, last.y * -10 + 100, current.z * 10 + 200, current.y * -10 + 100, 0x0000ff, 0x0000ff)	
		aim.dpath.insert(Draw3DLine(last, current, 1, 0xff, 0, 0))
		last = current

next
	
	select aim.mode
		case AIM_MODE_FIRE
			Delete3DPhysicsBody(aim.ball)						
			aim.dir = GetObjectDirectionVector(aim.start, 1, 1)					
			SetObjectPosition(aim.ball, GetObjectX(aim.start), GetObjectY(aim.start), GetObjectZ(aim.start))
			Create3DPhysicsDynamicBody(aim.ball)
			SetObjectShapeSphere(aim.ball)
			SetObject3DPhysicsLinearVelocity(aim.ball, aim.dir.x, aim.dir.y, aim.dir.z, 100)	
			aim.mode = AIM_MODE_TRACK
			aim.last.x = GetObjectX(aim.start)
			aim.last.y = GetObjectY(aim.start)
			aim.last.z = GetObjectZ(aim.start)
		endcase
		case AIM_MODE_TRACK
			current.x = GetObjectX(aim.ball)   
			current.y = GetObjectY(aim.ball)   
			current.z = GetObjectZ(aim.ball)   				
			aim.newpath.insert(Draw3DLine(aim.last, current, 0, 0, 0xff, 0))

aim.last = current	
			z = GetObjectZ(aim.plane)
			if aim.newpath.length > 11
				for i=0 to aim.oldpath.length
					DeleteObject(aim.oldpath[i])
				next
				for i=0 to aim.newpath.length
					SetObjectVisible(aim.newpath[i], 1)
				next			
				aim.oldpath = aim.newpath
				aim.newpath.length = -1
				aim.mode = AIM_MODE_FIRE
				aim.steps = aim.oldpath.length
			endif
		endcase
	endselect
	
	for i=0 to aim.oldpath.length - 1
		o = aim.oldpath[i]
		n = aim.oldpath[i + 1]					
		DrawEllipse(GetObjectZ(o) * 10 + 200, GetObjectY(o) * -10 + 100, 3, 3, 0x00ff00, 0x00ff00, 1)	
		DrawLine(GetObjectZ(o) * 10 + 200, GetObjectY(o) * -10 + 100, GetObjectZ(n) * 10 + 200, GetObjectY(n) * -10 + 100, 0x00ff00, 0x00ff00)			
	next		
				
endfunction

function	Draw3DLine(fp as point, tp as point, vis as integer, r as integer, g as integer, b as integer )
	o			as integer
	dist 		as float
	angley		as float
	
	o = CreateObjectPlane(.5,.5)
	RotateObjectLocalX(o, 90)
	SetObjectPosition(o, 0, 0, .25)
	FixObjectPivot(o)
	SetObjectPosition(o, fp.x, fp.y, fp.z)
	setobjectcolor(o, r, g, b, 0xff)
	dist = sqrt((fp.x - tp.x)^2 + (fp.y - tp.y)^2 + (fp.z - tp.z)^2 )				
	SetObjectScale(o, 1, 1, dist * 2)
	SetObjectLookAt(o, tp.x, tp.y, tp.z, 0)
	SetObjectVisible(o, vis)
endfunction o

function	Distance(fp as point, tp as point)
	dist 		as float
	dist = sqrt((fp.x - tp.x)^2 + (fp.y - tp.y)^2 + (fp.z - tp.z)^2 )				
endfunction dist

Function GetObjectDirectionVector( objID as integer, direction as integer, speed as float)
	vector	as point
	tempObj as integer
	
    tempObj = CreateObjectBox( 1.0, 1.0, 1.0 )
    
    SetObjectPosition( tempObj, GetObjectWorldX( objID ), GetObjectWorldY( objID ), GetObjectWorldZ( objID ) )
    SetObjectRotation( tempObj, GetobjectWorldAngleX( objID ), GetobjectWorldAngleY(objID), GetobjectWorldAngleZ( objID ) )
    
    select direction
        case 1 :
            MoveObjectLocalZ( tempObj, speed )
        endcase
        case 2 :
            MoveObjectLocalZ( tempObj, -speed)
        endcase
        case 3 :
            MoveObjectLocalY( tempObj, speed )
        endcase
        case 4 :
            MoveObjectLocalY( tempObj, -speed )
        endcase
        case 5 :
            MoveObjectLocalX( tempObj, speed )
        endcase 
        case 6 :
            MoveObjectLocalX( tempObj, -speed )
        endcase 
    endselect
    
    vector.x = GetObjectWorldX( tempObj ) - GetObjectWorldX( objID )
    vector.y = GetObjectWorldY( tempObj ) - GetObjectWorldY( objID )
    vector.z = GetObjectWorldZ( tempObj ) - GetObjectWorldZ( objID )
    
    DeleteObject(tempObj)
    
EndFunction vector

+ Code Snippet

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

SetClearColor(0x80, 0x80, 0x80)

#option_explicit

#constant TRUE		1
#constant FALSE		0


type	color
	r			as float
	g			as float
	b			as float
endtype

type point
	x 			as float
	y 			as float
	z 			as float
endtype


type aim
	newpath 	as integer[]
	oldpath 	as integer[]
	dpath		as integer[]
	mode    	as integer
	start   	as integer
	plane   	as integer
	target		as integer
	ball		as integer
	dir			as point
	last		as point
	cursor		as point
	friction	as float
	steps		as integer
	speed		as float
endtype

global	gravity as integer = -5

create3DPhysicsWorld()
Set3DPhysicsGravity( 0, gravity, 0 ) 


aim as aim

aim.ball = CreateObjectSphere(1.5, 8, 8)
SetObjectColor(aim.ball, 0xff, 0,  0, 0xff)
SetObjectVisible(aim.ball, 0)

aim.plane = CreateObjectPlane(15, 15)
SetObjectPosition(aim.plane, 0, 0, 30)

aim.target = CreateObjectPlane(1, 1)
SetObjectPosition(aim.target, 0, 0, 0)
SetObjectColor(aim.target, 0xff, 0,  0, 0xff)

aim.start = CreateObjectBox(1, 1, 1)
SetObjectColor(aim.start, 0, 0xff, 0, 0xff)
SetObjectPosition(aim.start, 0, 0, -10)

SetCameraPosition(1, 0, 5, GetCameraZ(1))
SetCameraLookAt(1, 0,  0, 0, 0)

#constant AIM_MODE_FIRE		0
#constant AIM_MODE_TRACK	1

do
	
	aim.speed = 100
	AimPath(aim)
    Print( str(ScreenFPS()) + " " + str(aim.steps + 1))
    Step3DPhysicsWorld()
    Sync()
loop



function	AimPath(aim ref as aim)
	world	as point
	depth	as float
	current	as point
	last	as point
	i		as integer
	cam		as point
	plane	as point
	z		as float
	o		as integer
	n		as integer
	
	
	cam.x = GetCameraX(1)
	cam.y = GetCameraY(1)
	cam.z = GetCameraZ(1)	
	
	plane.x = GetObjectX(aim.plane)	
	plane.y = GetObjectY(aim.plane)	
	plane.z = GetObjectZ(aim.plane)			
	
	depth = Distance(plane, cam)
	
	world.x = Get3DVectorXFromScreen( GetPointerX(), GetPointerY() ) * Depth + cam.x
	world.y = Get3DVectorYFromScreen( GetPointerX(), GetPointerY() ) * Depth + cam.y
	world.z = Get3DVectorZFromScreen( GetPointerX(), GetPointerY() ) * Depth + cam.z	
	
	SetObjectPosition(aim.target, world.x, world.y, GetObjectZ(aim.plane) - 0.1)
	
	
	SetObjectLookAt(aim.start, world.x, world.y, GetObjectZ(aim.plane) - 0.1, 0)	
		
	if aim.friction = 0
		Delete3DPhysicsBody(aim.ball)						
		aim.dir = GetObjectDirectionVector(aim.start, 1, 1)					
		SetObjectPosition(aim.ball, GetObjectX(aim.start), GetObjectY(aim.start), GetObjectZ(aim.start))
		Create3DPhysicsDynamicBody(aim.ball)
		SetObjectShapeSphere(aim.ball)
		aim.friction = GetObject3DPhysicsFriction( aim.ball ) * 1.98
	endif
		
	for i=0 to aim.dpath.length
		DeleteObject(aim.dpath[i])
	next
	
	aim.dpath.length = -1
	
	last.x = GetObjectX(aim.start)
	last.y = GetObjectY(aim.start)
	last.z = GetObjectZ(aim.start)	
	aim.dir = GetObjectDirectionVector(aim.start, 1, aim.speed / 31.5)			
	
	for i=0 to 12
		aim.dir.x = aim.dir.x * aim.friction
		aim.dir.y = aim.dir.y * aim.friction
		aim.dir.z = aim.dir.z * aim.friction
		inc aim.dir.y, gravity * .035		
		current.x = last.x + aim.dir.x
		current.y = last.y + aim.dir.y
		current.z = last.z + aim.dir.z
		DrawEllipse(last.z * 10 + 200, last.y * -10 + 100, 3, 3, 0x0000ff, 0x0000ff, 1)			
		DrawLine(last.z * 10 + 200, last.y * -10 + 100, current.z * 10 + 200, current.y * -10 + 100, 0x0000ff, 0x0000ff)	
		aim.dpath.insert(Draw3DLine(last, current, 1, 0xff, 0, 0))
		last = current

	next
	
	select aim.mode
		case AIM_MODE_FIRE
			Delete3DPhysicsBody(aim.ball)						
			aim.dir = GetObjectDirectionVector(aim.start, 1, 1)					
			SetObjectPosition(aim.ball, GetObjectX(aim.start), GetObjectY(aim.start), GetObjectZ(aim.start))
			Create3DPhysicsDynamicBody(aim.ball)
			SetObjectShapeSphere(aim.ball)
			SetObject3DPhysicsLinearVelocity(aim.ball, aim.dir.x, aim.dir.y, aim.dir.z, 100)	
			aim.mode = AIM_MODE_TRACK
			aim.last.x = GetObjectX(aim.start)
			aim.last.y = GetObjectY(aim.start)
			aim.last.z = GetObjectZ(aim.start)
		endcase
		case AIM_MODE_TRACK
			current.x = GetObjectX(aim.ball)   
			current.y = GetObjectY(aim.ball)   
			current.z = GetObjectZ(aim.ball)   				
			aim.newpath.insert(Draw3DLine(aim.last, current, 0, 0, 0xff, 0))

			aim.last = current	
			z = GetObjectZ(aim.plane)
			if aim.newpath.length > 11
				for i=0 to aim.oldpath.length
					DeleteObject(aim.oldpath[i])
				next
				for i=0 to aim.newpath.length
					SetObjectVisible(aim.newpath[i], 1)
				next			
				aim.oldpath = aim.newpath
				aim.newpath.length = -1
				aim.mode = AIM_MODE_FIRE
				aim.steps = aim.oldpath.length
			endif
		endcase
	endselect
	
	for i=0 to aim.oldpath.length - 1
		o = aim.oldpath[i]
		n = aim.oldpath[i + 1]					
		DrawEllipse(GetObjectZ(o) * 10 + 200, GetObjectY(o) * -10 + 100, 3, 3, 0x00ff00, 0x00ff00, 1)	
		DrawLine(GetObjectZ(o) * 10 + 200, GetObjectY(o) * -10 + 100, GetObjectZ(n) * 10 + 200, GetObjectY(n) * -10 + 100, 0x00ff00, 0x00ff00)			
	next		
				
endfunction

function	Draw3DLine(fp as point, tp as point, vis as integer, r as integer, g as integer, b as integer )
	o			as integer
	dist 		as float
	angley		as float
	
	o = CreateObjectPlane(.5,.5)
	RotateObjectLocalX(o, 90)
	SetObjectPosition(o, 0, 0, .25)
	FixObjectPivot(o)
	SetObjectPosition(o, fp.x, fp.y, fp.z)
	setobjectcolor(o, r, g, b, 0xff)
	dist = sqrt((fp.x - tp.x)^2 + (fp.y - tp.y)^2 + (fp.z - tp.z)^2 )				
	SetObjectScale(o, 1, 1, dist * 2)
	SetObjectLookAt(o, tp.x, tp.y, tp.z, 0)
	SetObjectVisible(o, vis)
endfunction o

function	Distance(fp as point, tp as point)
	dist 		as float
	dist = sqrt((fp.x - tp.x)^2 + (fp.y - tp.y)^2 + (fp.z - tp.z)^2 )				
endfunction dist


Function GetObjectDirectionVector( objID as integer, direction as integer, speed as float)
	vector	as point
	tempObj as integer
	
    tempObj = CreateObjectBox( 1.0, 1.0, 1.0 )
    
    SetObjectPosition( tempObj, GetObjectWorldX( objID ), GetObjectWorldY( objID ), GetObjectWorldZ( objID ) )
    SetObjectRotation( tempObj, GetobjectWorldAngleX( objID ), GetobjectWorldAngleY(objID), GetobjectWorldAngleZ( objID ) )
    
    select direction
        case 1 :
            MoveObjectLocalZ( tempObj, speed )
        endcase
        case 2 :
            MoveObjectLocalZ( tempObj, -speed)
        endcase
        case 3 :
            MoveObjectLocalY( tempObj, speed )
        endcase
        case 4 :
            MoveObjectLocalY( tempObj, -speed )
        endcase
        case 5 :
            MoveObjectLocalX( tempObj, speed )
        endcase 
        case 6 :
            MoveObjectLocalX( tempObj, -speed )
        endcase 
    endselect
    
    vector.x = GetObjectWorldX( tempObj ) - GetObjectWorldX( objID )
    vector.y = GetObjectWorldY( tempObj ) - GetObjectWorldY( objID )
    vector.z = GetObjectWorldZ( tempObj ) - GetObjectWorldZ( objID )
    
    DeleteObject(tempObj)
    
EndFunction vector

Attachments

Login to view attachments

Back to top

Profile PM

smallg

Valued Member

18

Years of Service

User Offline

Joined: 8th Dec 2005

Location: steam

Posted: 29th Oct 2018 08:57

Link

Could you step the physics in a loop without sync until you reach the end of the path (either a max length or hitting the wall) while saving the position data?
Then draw the path based on the saved data and sync.
I'm not sure it would work with physics as it should require a fixed update rate to keep it consistent but might be worth a try... Would certainly be good for if you needed bounces and such.

life's one big game
spec= 4ghz, 16gb ram, AMD R9 2700 gpu

Back to top

Profile PM Email

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 29th Oct 2018 09:57 Edited at: 29th Oct 2018 09:57

Link

I tried that but the problem was the Step3DPhysicsWorld() function is time based so it is still slow because you have to wait for the time to elapse so the object can move (If that makes any sense)

Back to top

Profile PM

Sorry your browser is not supported!

AppGameKit Classic Chat / 3D Aiming path

Attachments