module Vivid.UGens.Filters.Pitch (
freqShift
, pitchShift
, vibrato
) where
import Vivid.SynthDef
import Vivid.UGens.Args
import Vivid.SynthDef.FromUA
freqShift :: (Args '["in"] '["freq", "phase"] a) => a -> SDBody a Signal
freqShift = makeUGen
"FreqShift" AR
(Vs::Vs '["in", "freq", "phase"])
(freq_ (0::Float), phase_ (0::Float))
pitchShift :: (Args '["in", "ratio"] '["windowSize", "pitchDispersion", "timeDispersion"] a) => a -> SDBody a Signal
pitchShift = makeUGen
"PitchShift" AR
(Vs::Vs '["in", "windowSize", "ratio", "pitchDispersion", "timeDispersion"])
(windowSize_ (0.2::Float), pitchDispersion_ (0::Float), timeDispersion_ (0::Float))
vibrato :: (Args '[] '["freq", "rate", "depth", "delaySecs", "onset", "rateVariation", "depthVariation", "iphase"] a) => a -> SDBody a Signal
vibrato = makeUGen
"Vibrato" AR
(Vs::Vs '["freq", "rate", "depth", "delaySecs", "onset", "rateVariation", "depthVariation", "iphase"])
(freq_ (440::Float), rate_ (6::Float), depth_ (0.02::Float), delay_ (0::Float), onset_ (0::Float), rateVariation_ (0.04::Float), depthVariation_ (0.1::Float), iphase_ (0::Float))