external fv : t -> [< `position
                   |  `velocity
                   |  `direction ] -> float array -> unit = "al_source_fv"