external dJointGetUniversalAnchor : dJointID -> dVector3 = "ocamlode_dJointGetUniversalAnchor"