(bind-func print:[void,Joint*]*
(lambda (x)
(if (null? x)
(begin (printf "") void)
(let ((type (tref x 0))
(pos (tref x 1))
(state (tref x 2))
(track (cond ((= state TrackingState_NotTracked) "NotTracked")
((= state TrackingState_Inferred) "Inferred")
((= state TrackingState_Tracked) "Tracked")
(else "Err")))
(name (cond ((= type JointType_SpineBase) "SpineBase")
((= type JointType_SpineMid) "SpineMid")
((= type JointType_Neck) "Neck ")
((= type JointType_Head) "Head ")
((= type JointType_ShoulderLeft) "ShoulderL")
((= type JointType_ElbowLeft) "ElbowLeft")
((= type JointType_WristLeft) "WristLeft")
((= type JointType_HandLeft) "HandLeft")
((= type JointType_ShoulderRight) "ShoulderR")
((= type JointType_ElbowRight) "ElbowRight")
((= type JointType_WristRight) "WristRight")
((= type JointType_HandRight) "HandRight")
((= type JointType_HipLeft) "HipLeft ")
((= type JointType_KneeLeft) "KneeLeft")
((= type JointType_AnkleLeft) "AnkleLeft")
((= type JointType_FootLeft) "FootLeft")
((= type JointType_HipRight) "HipRight")
((= type JointType_KneeRight) "KneeRight")
((= type JointType_AnkleRight) "AnkleRight")
((= type JointType_FootRight) "FootRight")
((= type JointType_SpineShoulder) "SpineShoulder")
((= type JointType_HandTipLeft) "HandTipLeft")
((= type JointType_ThumbLeft) "ThumbLeft")
((= type JointType_HandTipRight) "HandTipRight")
((= type JointType_ThumbRight) "ThumbRight")
(else "Err"))))
(printout "<" (String name) "\t[" (tref pos 0) "," (tref pos 1) "," (tref pos 2) "]\t" (String track) ">")
void))))