module Sound.SC3.UGen.Record.SwitchDelay where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data SwitchDelay = SwitchDelay {
input :: S.UGen,
drylevel :: S.UGen,
wetlevel :: S.UGen,
delaytime :: S.UGen,
delayfactor :: S.UGen,
maxdelaytime :: S.UGen
} deriving (Show)
switchDelay :: SwitchDelay
switchDelay = SwitchDelay {
input = 0.0,
drylevel = 1.0,
wetlevel = 1.0,
delaytime = 1.0,
delayfactor = 0.7,
maxdelaytime = 20.0
}
mkSwitchDelay :: SwitchDelay -> S.UGen
mkSwitchDelay (SwitchDelay a' b' c' d' e' f') = S.mkOsc S.AR "SwitchDelay" [a',b',c',d',e',f'] 1
instance Make SwitchDelay where
ugen = mkSwitchDelay