module Sound.SC3.UGen.Record.LocalIn where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data LocalIn = LocalIn { rate :: S.Rate, numChannels :: S.UGen, default_ :: S.UGen } deriving (Show) localIn :: LocalIn localIn = LocalIn { rate = S.AR, numChannels = 1.0, default_ = 0.0 } mkLocalIn :: LocalIn -> S.UGen mkLocalIn (LocalIn r a' b') = S.mkOsc r "LocalIn" [a',b'] 1 instance Make LocalIn where ugen = mkLocalIn