module Sound.SC3.UGen.Record.SMS where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data SMS = SMS {
input :: S.UGen,
maxpeaks :: S.UGen,
currentpeaks :: S.UGen,
tolerance :: S.UGen,
noisefloor :: S.UGen,
freqmult :: S.UGen,
freqadd :: S.UGen,
formantpreserve :: S.UGen,
useifft :: S.UGen,
ampmult :: S.UGen,
graphicsbufnum :: S.UGen
} deriving (Show)
sms :: SMS
sms = SMS {
input = 0.0,
maxpeaks = 80.0,
currentpeaks = 80.0,
tolerance = 4.0,
noisefloor = 0.2,
freqmult = 1.0,
freqadd = 0.0,
formantpreserve = 0.0,
useifft = 0.0,
ampmult = 1.0,
graphicsbufnum = 0.0
}
mkSMS :: SMS -> S.UGen
mkSMS (SMS a' b' c' d' e' f' g' h' i' j' k') = S.mkOsc S.AR "SMS" [a',b',c',d',e',f',g',h',i',j',k'] 2
instance Make SMS where
ugen = mkSMS