Module Pitch_effect

type t =
  1. | Vibrato of {
    1. rate : float;
    2. depth : float;
    }
  2. | Jump of {
    1. semitones : float;
    2. at : float;
    }
  3. | Arpeggio of {
    1. semitones : float list;
    2. step : float;
    }
val factor : t -> float -> float