module Sound.SC3.UGen.Record.Convolution2L where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data Convolution2L = Convolution2L {
input :: S.UGen,
kernel :: S.UGen,
trigger :: S.UGen,
framesize :: S.UGen,
crossfade :: S.UGen
} deriving (Show)
convolution2L :: Convolution2L
convolution2L = Convolution2L {
input = 0.0,
kernel = 0.0,
trigger = 0.0,
framesize = 2048.0,
crossfade = 1.0
}
mkConvolution2L :: Convolution2L -> S.UGen
mkConvolution2L (Convolution2L a' b' c' d' e') = S.mkOsc S.AR "Convolution2L" [a',b',c',d',e'] 1
instance Make Convolution2L where
ugen = mkConvolution2L