external getfv : t -> [< `position
                      |  `velocity
                      |  `direction ] -> float array = "al_source_getfv"