module Sound.SC3.UGen.Record.PV_Whiten where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data PV_Whiten = PV_Whiten {
chain :: S.UGen,
trackbufnum :: S.UGen,
relaxtime :: S.UGen,
floor_ :: S.UGen,
smear :: S.UGen,
bindownsample :: S.UGen
} deriving (Show)
pv_Whiten :: PV_Whiten
pv_Whiten = PV_Whiten {
chain = 0.0,
trackbufnum = 0.0,
relaxtime = 2.0,
floor_ = 0.1,
smear = 0.0,
bindownsample = 0.0
}
mkPV_Whiten :: PV_Whiten -> S.UGen
mkPV_Whiten (PV_Whiten a' b' c' d' e' f') = S.mkOsc S.KR "PV_Whiten" [a',b',c',d',e',f'] 1
instance Make PV_Whiten where
ugen = mkPV_Whiten