Using the Kinect 360 in agk full body tracking

Author

Message

Anthony Brian Cox

7

Years of Service

User Offline

Joined: 29th Dec 2016

Location:

Posted: 28th May 2022 20:13 Edited at: 28th May 2022 21:52

Link

hers the agk code
download zip
first run the kinect exe in the folder add and exception to the firewall
run the project included in the zip and add exception to fire wall as the app usis network to transfer the data from kinect to agk via a socket
you must have the xbox 360 kinect installad with kinect sdk vesion 1.0 from micro soft it free and running on pc properly for this work enjoy

// Project: fata grab 
// Created: 2020-02-05

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "kenect basketball" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// 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 )

global string$
global dosock
global scale

string$=GetDeviceIP()
dosock= ConnectSocket( string$, 27015, 500 )
scale=10

// since version 2.0.22 we can use nicer default fonts
SetPrintSize(75)
SetPrintColor(100,0,0,200)

Create3DPhysicsWorld(10)

CreateObjectPlane(1,12*scale,15*scale)
RotateObjectLocalX(1,90)
FixObjectPivot(1)

MoveObjectLocalY(1,-1*scale)
Create3DPhysicsKinematicBody(1)
LoadImage(1,"court.jpg")
SetObjectImage(1,1,0)

net=LoadObject("net1.fbx")
SetObjectScale(net,0.3,0.3,0.3)
MoveObjectLocalY(net,-1*scale)
MoveObjectLocalz(net,-5*scale)
loadimage(2,"net.jpg")
SetObjectImage(net,2,0)
RotateObjectLocalY(net,180)
dim points[20]
for t=20  to 1 step-1
	points[t]=CreateObjectSphere(0.1*scale,32,32)
	SetObjectColor(points[t],255,0,0,255)
	Create3DPhysicsKinematicBody(points[t])
	setObject3DPhysicsRestitution( points[t],2)
	SetObjectCollisionMode(points[t],0)
	next
	
	global	  thehead_x as float 
	global	  thehead_y as float 
	global    thehead_z as float

global	  thespine_x as float 
	global	  thespine_y as float 
	global	  thespine_z as float

global	  shouldercenter_x as float 
	global	  shouldercenter_y as float 
	global	  shouldercenter_z as float

global	  shoulderleft_x as float 
	global	  shoulderleft_y as float 
	global	  shoulderleft_z as float

global	  shoulderright_x as float 
	global	  shoulderright_y as float 
	global	  shoulderright_z as float

global	  leftelbow_x as float 
	global	  leftelbow_y as float 
	global	  leftelbow_z as float

global	  rightelbow_x as float 
	global	  rightelbow_y as float 
	global	  rightelbow_z as float

global	  leftwrist_x as float 
	global	  leftwrist_y as float 
	global	  leftwrist_z as float

global	  rightwrist_x as float 
	global	  rightwrist_y as float 
	global	  rightwrist_z as float

global	  lh_x as float 
	global	  lh_y as float 
	global	  lh_z as float

global	  rh_x as float 
	global	  rh_y as float 
	global	  rh_z as float

global	  hipcentre_x as float 
	global	  hipcentre_y as float 
	global	  hipcentre_z as float

global	  hipleft_x as float 
	global	  hipleft_y as float 
	global	  hipleft_z as float 
		  
	global	  hipright_x as float 
	global	  hipright_y as float 
	global	  hipright_z as float

global	  leftknee_x as float 
	global	  leftknee_y as float 
	global	  leftknee_z as float

global	  rightknee_x as float 
	global	  rightknee_y as float 
	global	  rightknee_z as float

global	  leftankel_x as float 
	global	  leftankel_y as float 
	global	  leftankel_z as float

global	  rightankel_x as float 
	global	  rightankel_y as float 
	global	  rightankel_z as float 
		
	global	  leftfoot_x as float 
	global	  leftfoot_y as float 
	global	  leftfoot_z as float

global	  rightfoot_x as float 
	global	  rightfoot_y as float 
	global	  rightfoot_z as float

SetCameraRotation(1,0,1,0)
SetCameraPosition(1,0,0,5*scale)
RotateCameraLocalY(1,180)

//CreateRenderImage(100,1024,768,0,0)
//CreateSprite(1,100)

SetClearColor(0,100,200)
//setspriteflip(1,1,0)

pl=CreateObjectCylinder(0.1,6,32)
MoveObjectLocalY(pl,-1*scale)
MoveObjectLocalz(pl,2*scale)

piv=CreateObjectSphere(0.1,32,32)
MoveObjectLocalZ(piv,1)
MoveObjectLocalY(piv,1)

ball=CreateObjectSphere(4,32,32)
MoveObjectLocalz(ball,-4*scale)
Create3DPhysicsDynamicBody(ball)
SetObjectShapeSphere(ball)
LoadImage(10,"ball.jpg")
SetObjectImage(ball,10,0)

do
	
	
		print(string$)
		
		x1#=GetObjectWorldX( points[19] )
		y1#=GetObjectWorldy( points[19] )
		z1#=GetObjectWorldz( points[19] )
		
		hit1=ObjectRayCast(0,x1#,y1#-1,z1#,x1#,y1#+1,z1#)
		print(hit1)
		
		if hit1=pl and tim<10 then inc tim,1
		
		if tim=10
			if f=0
				bx#=getobjectx(ball)
				by#=getobjecty(ball)
				bz#=getobjectz(ball)
				f=1
				endif
		Delete3DPhysicsBody(ball)
		SetObjectPosition(ball,bx#,by#+1,bz#)
		
			
			Create3DPhysicsDynamicBody(ball)
			SetObjectShapeSphere(ball)
			SetObject3DPhysicsRestitution( ball, 2) 
			
			tim=11
			endif
			
		
		
		if tim>10
			inc tim,1
			if tim=80
				tim=-80
		x#=getobjectx(piv)
		y#=getobjecty(piv)
		z#=getobjectz(piv)
		vec=CreateVector3(x#,y#,z#)
		SetObject3DPhysicsLinearVelocity(ball,vec,random(80,90))
				endif
				endif

kenect()
	
 //  SetRenderToImage(100,0)
   
   		//clearscreen()
  	 	//UPDATE3D(1)
   		//render3d()
   
 //  SetRenderToScreen()
   
  		 
  		 
  		 
  		 Step3DPhysicsWorld()
 		// SetSpriteImage(1,100)
    		 Sync()
    
loop

function kenect()
if GetSocketConnected(dosock)
a#= getSocketFloat(dosock)
	
a1#= getSocketFloat(dosock)	
		  thehead_x =getSocketFloat(dosock)*scale
		  thehead_y  =getSocketFloat(dosock)*scale
		  thehead_z  =getSocketFloat(dosock)*scale
		  
a2#= getSocketFloat(dosock)	
		  thespine_x  =getSocketFloat(dosock)*scale
		  thespine_y  =getSocketFloat(dosock)*scale
		  thespine_z  =getSocketFloat(dosock)*scale
		  
a3#= getSocketFloat(dosock)	
		  shouldercenter_x  =getSocketFloat(dosock)*scale
		  shouldercenter_y  =getSocketFloat(dosock)*scale
		  shouldercenter_z  =getSocketFloat(dosock)*scale

a4#= getSocketFloat(dosock)	
		  shoulderleft_x  =getSocketFloat(dosock)*scale
		  shoulderleft_y  =getSocketFloat(dosock)*scale
		  shoulderleft_z  =getSocketFloat(dosock)*scale
		  
a5#= getSocketFloat(dosock)	
		  shoulderright_x  =getSocketFloat(dosock)*scale
		  shoulderright_y  =getSocketFloat(dosock)*scale
		  shoulderright_z  =getSocketFloat(dosock)*scale
		  
a6#= getSocketFloat(dosock)	
		  leftelbow_x  =getSocketFloat(dosock)*scale
		  leftelbow_y  =getSocketFloat(dosock)*scale
		  leftelbow_z =getSocketFloat(dosock)*scale
		  
a7#= getSocketFloat(dosock)	
		  rightelbow_x  =getSocketFloat(dosock)*scale
		  rightelbow_y  =getSocketFloat(dosock)*scale
		  rightelbow_z  =getSocketFloat(dosock)*scale
		  
a8#= getSocketFloat(dosock)	
		  leftwrist_x  =getSocketFloat(dosock)*scale
		  leftwrist_y  =getSocketFloat(dosock)*scale
		  leftwrist_z  =getSocketFloat(dosock)*scale
		  
a9#= getSocketFloat(dosock)	
		  rightwrist_x  =getSocketFloat(dosock)*scale
		  rightwrist_y  =getSocketFloat(dosock)*scale
		  rightwrist_z  =getSocketFloat(dosock)*scale
		  
a10#= getSocketFloat(dosock)	
		  lh_x  =getSocketFloat(dosock)*scale
		  lh_y  =getSocketFloat(dosock)*scale
		  lh_z  =getSocketFloat(dosock)*scale

a11#= getSocketFloat(dosock)	
		  rh_x  =getSocketFloat(dosock)*scale
		  rh_y  =getSocketFloat(dosock)*scale
		  rh_z  =getSocketFloat(dosock)*scale
		  
a12#= getSocketFloat(dosock)	
		  hipcentre_x  =getSocketFloat(dosock)*scale
		  hipcentre_y  =getSocketFloat(dosock)*scale
		  hipcentre_z  =getSocketFloat(dosock)*scale
		  
a13#= getSocketFloat(dosock)	
		  hipleft_x  =getSocketFloat(dosock)*scale
		  hipleft_y  =getSocketFloat(dosock)*scale
		  hipleft_z  =getSocketFloat(dosock)*scale
		  
a14#= getSocketFloat(dosock)		  
		  hipright_x  =getSocketFloat(dosock)*scale
		  hipright_y  =getSocketFloat(dosock)*scale
		  hipright_z  =getSocketFloat(dosock)*scale

a15#= getSocketFloat(dosock)	
		  leftknee_x  =getSocketFloat(dosock)*scale
		  leftknee_y  =getSocketFloat(dosock)*scale
		  leftknee_z  =getSocketFloat(dosock)*scale
		  
a16#= getSocketFloat(dosock)	
		  rightknee_x  =getSocketFloat(dosock)*scale
		  rightknee_y  =getSocketFloat(dosock)*scale
		  rightknee_z =getSocketFloat(dosock)*scale

a17#= getSocketFloat(dosock)	
		  leftankel_x  =getSocketFloat(dosock)*scale
		  leftankel_y  =getSocketFloat(dosock)*scale
		  leftankel_z  =getSocketFloat(dosock)*scale
		  
a18#= getSocketFloat(dosock)	
		  rightankel_x  =getSocketFloat(dosock)*scale
		  rightankel_y  =getSocketFloat(dosock)*scale
		  rightankel_z  =getSocketFloat(dosock)*scale
		  
a19#= getSocketFloat(dosock)		
		  leftfoot_x  =getSocketFloat(dosock)*scale
		  leftfoot_y  =getSocketFloat(dosock)*scale
		  leftfoot_z  =getSocketFloat(dosock)*scale

a20#= getSocketFloat(dosock)
		  rightfoot_x  =getSocketFloat(dosock)*scale
		  rightfoot_y  =getSocketFloat(dosock)*scale
		  rightfoot_z  =getSocketFloat(dosock)*scale

endif
if a#=123456789.0
//	setcameraposition(1,thehead_x,thehead_y,thehead_z)
 //  MoveCameraLocalZ(1,5)
  
  
  
IF a1#>0 then SetObjectPosition(points[1],thehead_x,thehead_y,thehead_z)
IF a2#>0 then SetObjectPosition(points[2],thespine_x,thespine_y,thespine_z)	
IF a3#>0 then SetObjectPosition(points[3],shouldercenter_x,shouldercenter_y,shouldercenter_z)
IF a4#>0 then SetObjectPosition(points[4],shoulderleft_x,shoulderleft_y,shoulderleft_z)
IF a5#>0 then SetObjectPosition(points[5],shoulderright_x,shoulderright_y,shoulderright_z)
IF a6#>0 then SetObjectPosition(points[6],leftelbow_x,leftelbow_y,leftelbow_z)
IF a7#>0 then SetObjectPosition(points[7],rightelbow_x,rightelbow_y,rightelbow_z)
IF a8#>0 then SetObjectPosition(points[8],leftwrist_x,leftwrist_y,leftwrist_z)
IF a9#>0 then SetObjectPosition(points[9],rightwrist_x,rightwrist_y,rightwrist_z)
IF a10#>0 then SetObjectPosition(points[10],lh_x,lh_y,lh_z)
IF a11#>0 then SetObjectPosition(points[11],rh_x,rh_y,rh_z)
IF a12#>0 then SetObjectPosition(points[12],hipcentre_x,hipcentre_y,hipcentre_z)
IF a13#>0 then SetObjectPosition(points[13],hipleft_x,hipleft_y,hipleft_z)	
IF a14#>0 then SetObjectPosition(points[14],hipright_x,hipright_y,hipright_z)	
IF a15#>0 then SetObjectPosition(points[15],leftknee_x,leftknee_y,leftknee_z)
IF a16#>0 then SetObjectPosition(points[16],rightknee_x,rightknee_y,rightknee_z)
IF a17#>0 then SetObjectPosition(points[17],leftankel_x,leftankel_y,leftankel_z)
IF a18#>0 then SetObjectPosition(points[18],rightankel_x,rightankel_y,rightankel_z)
IF a19#>0 then SetObjectPosition(points[19],leftfoot_x,leftfoot_y,leftfoot_z)
IF a20#>0 then SetObjectPosition(points[20],rightfoot_x,rightfoot_y,rightfoot_z)
endif
endfunction

+ Code Snippet

// Project: fata grab 
// Created: 2020-02-05

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "kenect basketball" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// 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 ) 

global string$
global dosock
global scale

string$=GetDeviceIP()
dosock= ConnectSocket( string$, 27015, 500 )
scale=10




	
	
// since version 2.0.22 we can use nicer default fonts
SetPrintSize(75)
SetPrintColor(100,0,0,200)


Create3DPhysicsWorld(10)




CreateObjectPlane(1,12*scale,15*scale)
RotateObjectLocalX(1,90)
FixObjectPivot(1)


MoveObjectLocalY(1,-1*scale)
Create3DPhysicsKinematicBody(1)
LoadImage(1,"court.jpg")
SetObjectImage(1,1,0)

net=LoadObject("net1.fbx")
SetObjectScale(net,0.3,0.3,0.3)
MoveObjectLocalY(net,-1*scale)
MoveObjectLocalz(net,-5*scale)
loadimage(2,"net.jpg")
SetObjectImage(net,2,0)
RotateObjectLocalY(net,180)
dim points[20]
for t=20  to 1 step-1
	points[t]=CreateObjectSphere(0.1*scale,32,32)
	SetObjectColor(points[t],255,0,0,255)
	Create3DPhysicsKinematicBody(points[t])
	setObject3DPhysicsRestitution( points[t],2)
	SetObjectCollisionMode(points[t],0)
	next
	
	global	  thehead_x as float 
	global	  thehead_y as float 
	global    thehead_z as float 

	global	  thespine_x as float 
	global	  thespine_y as float 
	global	  thespine_z as float 

	global	  shouldercenter_x as float 
	global	  shouldercenter_y as float 
	global	  shouldercenter_z as float 

	global	  shoulderleft_x as float 
	global	  shoulderleft_y as float 
	global	  shoulderleft_z as float 

	global	  shoulderright_x as float 
	global	  shoulderright_y as float 
	global	  shoulderright_z as float 

	global	  leftelbow_x as float 
	global	  leftelbow_y as float 
	global	  leftelbow_z as float 

	global	  rightelbow_x as float 
	global	  rightelbow_y as float 
	global	  rightelbow_z as float 

	global	  leftwrist_x as float 
	global	  leftwrist_y as float 
	global	  leftwrist_z as float 

	global	  rightwrist_x as float 
	global	  rightwrist_y as float 
	global	  rightwrist_z as float 

	global	  lh_x as float 
	global	  lh_y as float 
	global	  lh_z as float 

	global	  rh_x as float 
	global	  rh_y as float 
	global	  rh_z as float 

	global	  hipcentre_x as float 
	global	  hipcentre_y as float 
	global	  hipcentre_z as float 

	global	  hipleft_x as float 
	global	  hipleft_y as float 
	global	  hipleft_z as float 
		  
	global	  hipright_x as float 
	global	  hipright_y as float 
	global	  hipright_z as float 

	global	  leftknee_x as float 
	global	  leftknee_y as float 
	global	  leftknee_z as float 

	global	  rightknee_x as float 
	global	  rightknee_y as float 
	global	  rightknee_z as float 

	global	  leftankel_x as float 
	global	  leftankel_y as float 
	global	  leftankel_z as float 

	global	  rightankel_x as float 
	global	  rightankel_y as float 
	global	  rightankel_z as float 
		
	global	  leftfoot_x as float 
	global	  leftfoot_y as float 
	global	  leftfoot_z as float 

	global	  rightfoot_x as float 
	global	  rightfoot_y as float 
	global	  rightfoot_z as float 













	
SetCameraRotation(1,0,1,0)
SetCameraPosition(1,0,0,5*scale)
RotateCameraLocalY(1,180)



//CreateRenderImage(100,1024,768,0,0)
//CreateSprite(1,100)

SetClearColor(0,100,200)
//setspriteflip(1,1,0)

pl=CreateObjectCylinder(0.1,6,32)
MoveObjectLocalY(pl,-1*scale)
MoveObjectLocalz(pl,2*scale)


piv=CreateObjectSphere(0.1,32,32)
MoveObjectLocalZ(piv,1)
MoveObjectLocalY(piv,1)

ball=CreateObjectSphere(4,32,32)
MoveObjectLocalz(ball,-4*scale)
Create3DPhysicsDynamicBody(ball)
SetObjectShapeSphere(ball)
LoadImage(10,"ball.jpg")
SetObjectImage(ball,10,0)

 
do
	
	
		print(string$)
		
		x1#=GetObjectWorldX( points[19] )
		y1#=GetObjectWorldy( points[19] )
		z1#=GetObjectWorldz( points[19] )
		
		hit1=ObjectRayCast(0,x1#,y1#-1,z1#,x1#,y1#+1,z1#)
		print(hit1)
		
		if hit1=pl and tim<10 then inc tim,1
		
		if tim=10
			if f=0
				bx#=getobjectx(ball)
				by#=getobjecty(ball)
				bz#=getobjectz(ball)
				f=1
				endif
		Delete3DPhysicsBody(ball)
		SetObjectPosition(ball,bx#,by#+1,bz#)
		
			
			Create3DPhysicsDynamicBody(ball)
			SetObjectShapeSphere(ball)
			SetObject3DPhysicsRestitution( ball, 2) 
			
			tim=11
			endif
			
		
		
		if tim>10
			inc tim,1
			if tim=80
				tim=-80
		x#=getobjectx(piv)
		y#=getobjecty(piv)
		z#=getobjectz(piv)
		vec=CreateVector3(x#,y#,z#)
		SetObject3DPhysicsLinearVelocity(ball,vec,random(80,90))
				endif
				endif
			
		
		
			
			
			

   kenect()
	
 //  SetRenderToImage(100,0)
   
   		//clearscreen()
  	 	//UPDATE3D(1)
   		//render3d()
   
 //  SetRenderToScreen()
   
  		 
  		 
  		 
  		 Step3DPhysicsWorld()
 		// SetSpriteImage(1,100)
    		 Sync()
    
loop

function kenect()
if GetSocketConnected(dosock)
a#= getSocketFloat(dosock)
	
a1#= getSocketFloat(dosock)	
		  thehead_x =getSocketFloat(dosock)*scale
		  thehead_y  =getSocketFloat(dosock)*scale
		  thehead_z  =getSocketFloat(dosock)*scale
		  
a2#= getSocketFloat(dosock)	
		  thespine_x  =getSocketFloat(dosock)*scale
		  thespine_y  =getSocketFloat(dosock)*scale
		  thespine_z  =getSocketFloat(dosock)*scale
		  
a3#= getSocketFloat(dosock)	
		  shouldercenter_x  =getSocketFloat(dosock)*scale
		  shouldercenter_y  =getSocketFloat(dosock)*scale
		  shouldercenter_z  =getSocketFloat(dosock)*scale

a4#= getSocketFloat(dosock)	
		  shoulderleft_x  =getSocketFloat(dosock)*scale
		  shoulderleft_y  =getSocketFloat(dosock)*scale
		  shoulderleft_z  =getSocketFloat(dosock)*scale
		  
a5#= getSocketFloat(dosock)	
		  shoulderright_x  =getSocketFloat(dosock)*scale
		  shoulderright_y  =getSocketFloat(dosock)*scale
		  shoulderright_z  =getSocketFloat(dosock)*scale
		  
a6#= getSocketFloat(dosock)	
		  leftelbow_x  =getSocketFloat(dosock)*scale
		  leftelbow_y  =getSocketFloat(dosock)*scale
		  leftelbow_z =getSocketFloat(dosock)*scale
		  
a7#= getSocketFloat(dosock)	
		  rightelbow_x  =getSocketFloat(dosock)*scale
		  rightelbow_y  =getSocketFloat(dosock)*scale
		  rightelbow_z  =getSocketFloat(dosock)*scale
		  
a8#= getSocketFloat(dosock)	
		  leftwrist_x  =getSocketFloat(dosock)*scale
		  leftwrist_y  =getSocketFloat(dosock)*scale
		  leftwrist_z  =getSocketFloat(dosock)*scale
		  
a9#= getSocketFloat(dosock)	
		  rightwrist_x  =getSocketFloat(dosock)*scale
		  rightwrist_y  =getSocketFloat(dosock)*scale
		  rightwrist_z  =getSocketFloat(dosock)*scale
		  
a10#= getSocketFloat(dosock)	
		  lh_x  =getSocketFloat(dosock)*scale
		  lh_y  =getSocketFloat(dosock)*scale
		  lh_z  =getSocketFloat(dosock)*scale

a11#= getSocketFloat(dosock)	
		  rh_x  =getSocketFloat(dosock)*scale
		  rh_y  =getSocketFloat(dosock)*scale
		  rh_z  =getSocketFloat(dosock)*scale
		  
a12#= getSocketFloat(dosock)	
		  hipcentre_x  =getSocketFloat(dosock)*scale
		  hipcentre_y  =getSocketFloat(dosock)*scale
		  hipcentre_z  =getSocketFloat(dosock)*scale
		  
a13#= getSocketFloat(dosock)	
		  hipleft_x  =getSocketFloat(dosock)*scale
		  hipleft_y  =getSocketFloat(dosock)*scale
		  hipleft_z  =getSocketFloat(dosock)*scale
		  
a14#= getSocketFloat(dosock)		  
		  hipright_x  =getSocketFloat(dosock)*scale
		  hipright_y  =getSocketFloat(dosock)*scale
		  hipright_z  =getSocketFloat(dosock)*scale

a15#= getSocketFloat(dosock)	
		  leftknee_x  =getSocketFloat(dosock)*scale
		  leftknee_y  =getSocketFloat(dosock)*scale
		  leftknee_z  =getSocketFloat(dosock)*scale
		  
a16#= getSocketFloat(dosock)	
		  rightknee_x  =getSocketFloat(dosock)*scale
		  rightknee_y  =getSocketFloat(dosock)*scale
		  rightknee_z =getSocketFloat(dosock)*scale

a17#= getSocketFloat(dosock)	
		  leftankel_x  =getSocketFloat(dosock)*scale
		  leftankel_y  =getSocketFloat(dosock)*scale
		  leftankel_z  =getSocketFloat(dosock)*scale
		  
a18#= getSocketFloat(dosock)	
		  rightankel_x  =getSocketFloat(dosock)*scale
		  rightankel_y  =getSocketFloat(dosock)*scale
		  rightankel_z  =getSocketFloat(dosock)*scale
		  
a19#= getSocketFloat(dosock)		
		  leftfoot_x  =getSocketFloat(dosock)*scale
		  leftfoot_y  =getSocketFloat(dosock)*scale
		  leftfoot_z  =getSocketFloat(dosock)*scale

a20#= getSocketFloat(dosock)
		  rightfoot_x  =getSocketFloat(dosock)*scale
		  rightfoot_y  =getSocketFloat(dosock)*scale
		  rightfoot_z  =getSocketFloat(dosock)*scale








endif
if a#=123456789.0
//	setcameraposition(1,thehead_x,thehead_y,thehead_z)
 //  MoveCameraLocalZ(1,5)
  
  
  
IF a1#>0 then SetObjectPosition(points[1],thehead_x,thehead_y,thehead_z)
IF a2#>0 then SetObjectPosition(points[2],thespine_x,thespine_y,thespine_z)	
IF a3#>0 then SetObjectPosition(points[3],shouldercenter_x,shouldercenter_y,shouldercenter_z)
IF a4#>0 then SetObjectPosition(points[4],shoulderleft_x,shoulderleft_y,shoulderleft_z)
IF a5#>0 then SetObjectPosition(points[5],shoulderright_x,shoulderright_y,shoulderright_z)
IF a6#>0 then SetObjectPosition(points[6],leftelbow_x,leftelbow_y,leftelbow_z)
IF a7#>0 then SetObjectPosition(points[7],rightelbow_x,rightelbow_y,rightelbow_z)
IF a8#>0 then SetObjectPosition(points[8],leftwrist_x,leftwrist_y,leftwrist_z)
IF a9#>0 then SetObjectPosition(points[9],rightwrist_x,rightwrist_y,rightwrist_z)
IF a10#>0 then SetObjectPosition(points[10],lh_x,lh_y,lh_z)
IF a11#>0 then SetObjectPosition(points[11],rh_x,rh_y,rh_z)
IF a12#>0 then SetObjectPosition(points[12],hipcentre_x,hipcentre_y,hipcentre_z)
IF a13#>0 then SetObjectPosition(points[13],hipleft_x,hipleft_y,hipleft_z)	
IF a14#>0 then SetObjectPosition(points[14],hipright_x,hipright_y,hipright_z)	
IF a15#>0 then SetObjectPosition(points[15],leftknee_x,leftknee_y,leftknee_z)
IF a16#>0 then SetObjectPosition(points[16],rightknee_x,rightknee_y,rightknee_z)
IF a17#>0 then SetObjectPosition(points[17],leftankel_x,leftankel_y,leftankel_z)
IF a18#>0 then SetObjectPosition(points[18],rightankel_x,rightankel_y,rightankel_z)
IF a19#>0 then SetObjectPosition(points[19],leftfoot_x,leftfoot_y,leftfoot_z)
IF a20#>0 then SetObjectPosition(points[20],rightfoot_x,rightfoot_y,rightfoot_z)
endif
endfunction

ps can some one tell how to get the video working please

Attachments

Login to view attachments

Back to top

Profile PM

Virtual Nomad

Moderator

18

Years of Service

User Offline

Joined: 14th Dec 2005

Location: SF Bay Area, USA

Posted: 28th May 2022 21:59

Link

looks good but i don't think you sank a single shot or even hit the backboard?

regardless, congrats on getting things working

meanwhile, i fixed your vid which just needs the video ID, not the full youtube URL. edit your first post to see the change.

otherwise, what became of this? https://www.youtube.com/watch?v=8wGkRe9cisE

thanks for sharing!

AGK Resource Directory
Made with AppGameKit on Itch.io
TGC @ GitHub
Some Snippets

Back to top

Profile PM Website

Raven

19

Years of Service

User Offline

Joined: 23rd Mar 2005

Location: Hertfordshire, England

Posted: 28th May 2022 22:02

Link

If you're Plug-In Requires the Kinect SDK to work., then I have some questions with how you've implemented it.
For Future Reference:

Microsoft Kinect SDK v1.2 - v1.8 provides support for Microsoft Kinect 1.x
Kinect v1.0 is Kinect for Xbox 360
Kinect v1.1 is Kinect for Windows
Kinect v1.2 is an improved Kinect for Windows., which has some enhanced features and support

Now as a note., all three of these will work on Xbox 360, Xbox 360 S and Windows (7 and 8 with Kinect Driver, Windows 10 and 11 have Basic Drivers., but you'll want the Kinect Drivers for full Functionality Support)
This said the "Enhanced Features" of Kinect v1.2 are *NOT* Supported on Xbox 360, it will behave as if it's a v1.1 instead.

Microsoft Kinect SDK v1.9 - v2.0 provides support for Microsoft Kinect 2.x
Kinect v2.0 is Kinect for Xbox One (which shipped with it)
Kinect v2.1 is Kinect for Windows 10

As an important note., which these technically are identical; Kinect v2.1 has a USB Connector., while Kinect v2.0 has a "Kinect Connector" which is ONLY found on the Xbox One and was removed from Xbox One S and X.
There is an adapter as I recall., but they are quite Rare.

Microsoft Azure Kinect Sensor SDK., which only supports the Azure Kinect DK (v1/v2/v3)., but this also can be supported via Azure Cognitive Services, part of the Windows 10 SDK provided you add the Azure Package.

•

As a keynote Kinect SDK v1.0 and v1.1 were ONLY available via the Xbox Developer Kit., and as I recall didn't work properly when trying to support Kinect on Windows.
Further note: Microsoft only have v1.8 (for Kinect v1.x) and v2.0 (for Kinect v2.x) as seeded links., i.e. these will show up in Search Results.
You can still acquire v1.5 - v2.0 via the Microsoft Download Site, provided you specifically search for them.

Now the Software Development Kit is broken into 2 Components.
Kinect SDK and Kinect Toolkit.

Now on Windows 7 and 8 you will need the Drivers in the Kinect SDK or available on the Kinect for Windows Disc., where-as Windows 10 these aren't needed.
The Kinect SDK also has the Drivers as a Re-Distributable Package which you're supposed to include in your Installer Packages.

The Toolkit is very useful for Kinect Developers as it has a collection of Example Projects and Runtimes, as well as Debug Tools.
One of the more useful (at least that I've found) is the 3D Scanner Example., which allows you to use the Kinect as a Handheld Scanner to convert Real-Life Objects into 3D Objects; that you can then clean-up in Blender (for example) and use in Development.
For those less familiar., the Kinect has an accelerometer within it; so it can sense the Direction and Angle... this was never really used by Kinect Games; but it is useful; especially with the Tracking, as another useful feature is Object Tracking along with control over the Pitch Motor.

Now it should be noted Kinect for Windows is a much more capable Devices than those who remember it from the Xbox 360 will realise.
A lot had to be sacrificed when developing Kinect Applications on the Xbox 360... especially if you wanted to take advantage of multiple components such-as Depth, Colour, Audio Ranging, etc. as it meant using reduced / compressed inputs.
Lower Resolution, Lower Framerate, Lower Bitrate, etc.
As there was only so much you could spare in terms of processing power., and the PowerPC wasn't a particularly good multi-threading processor... no RISC SoC Processor is., it's why Mobile Environments don't work like Desktop Windows / MacOS / Linux; and the versions that are released are specially redeveloped around the limitations of said Processors; and Kinect., yeah that is a perfect example of a Multi-Threaded Device; as it's an array of Sensory Data that HAS to be processed before it's useful.
Modern Mobile Devices get around this limitation in their ARM Processors being RISC-based by the SoC (System on Chip) having specialised additional Components for processing the various Sensor Data you have on your Mobile Device today., as if things like the GPS, Gyroscope, Accelerometer, Touch Sensors, Light Sensors, etc. were all processed by the ARM Processor itself; you'd not really have much left for your Apps to use.

The Kinect was originally (and the R&D Version did) intended to have an on-board SoC capable of handling said Data., but to have included that in the Retail version would've increased the Production costs; pushing the Retail price from £180 (which most could afford on a "Gimmic" peripheral) up to £250., which was the cost of another Xbox for most. That then enters "Wealthy Only" Territory, much like VR is today.
I mean to put it into perspective here:
Kinect for Xbox 360 sold 28 million Units., which as it did this when there were only ~55 million Unit Sales for Xbox 360 at the time; that's an extraordinary attachment rate.
Compare this to VR., which has a *MUCH* Larger Market of ~420 million Capable PCs / Consoles... and only reached ~15 million total units sold in the past 6 years.
Yeah, you might start to realise why Microsoft decided to package Kinect with their Next Gen Console.

Now strictly speaking Microsoft haven't actually abandoned Kinect... Azure Kinect DK has been available since they retired Kinect v2 for Xbox One/Windows (2017) and has seen 3 Iterative Releases.
I'd like to see a cost reduced "Consumer" version., but given how Microsoft was burned before... I'm not going to hold my breath.

•

With this all said... I wouldn't have thought that a Kinect extension for AppGameKit was something anyone would've cared about.
I'll be keeping an eye on this to see reactions.

Back to top

Profile PM Email Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 28th May 2022 23:05

Link

Brilliant work Anthony.

Back to top

Profile PM

jd_zoo

5

Years of Service

User Offline

Joined: 12th May 2018

Location: Nova Scotia

Posted: 29th May 2022 14:54

Link

I really wish I had bought a Kinect back in the day to be able to play with this! Just checked Amazon and $200 for a PC Kinect + $40 for adapter so I will need to check out the local used bins.

Could multiple webcams replicate something like this I wonder...

Check out Automation on Steam now
https://store.steampowered.com/app/1698690/Automation/

Back to top

Profile PM Email Website

Raven

19

Years of Service

User Offline

Joined: 23rd Mar 2005

Location: Hertfordshire, England

Posted: 31st May 2022 10:09 Edited at: 31st May 2022 17:06

Link

You can get them off of eBay for like £30 - 60., and I guarantee most are going to be "Like New"
It was one of those peripherals everyone had but almost no one actually used beyond trying it out with the Kinect Adventures / Sports or Dance Revolution.

Back to top

Profile PM Email Website

Anthony Brian Cox

7

Years of Service

User Offline

Joined: 29th Dec 2016

Location:

Posted: 1st Jun 2022 19:48 Edited at: 1st Jun 2022 19:49

Link

a little box app

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "fkenect game boxingl" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// 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 )

global string$
global dosock
global scale

RunApp("C:\Users\dad\Documents\AGK Projects\kenect kick ball\foot ball game\Kinect.exe","")
t=0
repeat 
	
	t=t+1
	print(t)
	sync()
	until t=100

string$=GetDeviceIP()
dosock= ConnectSocket( string$, 27015, 500 )
scale=10

// since version 2.0.22 we can use nicer default fonts
SetPrintSize(75)
SetPrintColor(100,0,0,200)

Create3DPhysicsWorld(10)

CreateObjectPlane(1,7*scale,7*scale)
RotateObjectLocalX(1,90)
FixObjectPivot(1)

MoveObjectLocalY(1,-1*scale)
Create3DPhysicsKinematicBody(1)
SetObjectColor(1,0,0,200,200)

CreateObjectBox(2,3,30,3)
SetObjectPosition(2,-3.5*scale,-1*scale,-3.5*scale)

CreateObjectBox(3,3,30,3)
SetObjectPosition(3,3.5*scale,-1*scale,-3.5*scale)

CreateObjectBox(4,7*scale,2,2)
SetObjectPosition(4,0,-0.5*scale,-3.5*scale)

CreateObjectBox(6,7*scale,2,2)
SetObjectPosition(6,0,-0.1*scale,-3.5*scale)

CreateObjectBox(7,7*scale,2,2)
SetObjectPosition(7,0,3,-3.5*scale)

CreateObjectBox(8,2,2,7*scale)
SetObjectPosition(8,3.5*scale,-0.5*scale,0)

CreateObjectBox(9,2,2,7*scale)
SetObjectPosition(9,3.5*scale,-0.1*scale,0)

CreateObjectBox(10,2,2,7*scale)
SetObjectPosition(10,3.5*scale,3,0)

CreateObjectBox(11,2,2,7*scale)
SetObjectPosition(11,-3.5*scale,-0.5*scale,0)

CreateObjectBox(12,2,2,7*scale)
SetObjectPosition(12,-3.5*scale,-0.1*scale,0)

CreateObjectBox(13,2,2,7*scale)
SetObjectPosition(13,-3.5*scale,3,0)

dim points[20]
for t=20  to 1 step-1
	points[t]=CreateObjectSphere(0.1*scale,32,32)
	SetObjectColor(points[t],255,0,0,255)
	Create3DPhysicsKinematicBody(points[t])
	setObject3DPhysicsRestitution( points[t],2)
	SetObjectCollisionMode(points[t],0)
	next
	
	global	  thehead_x as float 
	global	  thehead_y as float 
	global    thehead_z as float