external dJointGetHingeAnchor : dJointID -> dVector3 = "ocamlode_dJointGetHingeAnchor"