module Sound.SC3.UGen.Record.StereoConvolution2L where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data StereoConvolution2L = StereoConvolution2L {
input :: S.UGen,
kernelL :: S.UGen,
kernelR :: S.UGen,
trigger :: S.UGen,
framesize :: S.UGen,
crossfade :: S.UGen
} deriving (Show)
stereoConvolution2L :: StereoConvolution2L
stereoConvolution2L = StereoConvolution2L {
input = 0.0,
kernelL = 0.0,
kernelR = 0.0,
trigger = 0.0,
framesize = 2048.0,
crossfade = 1.0
}
mkStereoConvolution2L :: StereoConvolution2L -> S.UGen
mkStereoConvolution2L (StereoConvolution2L a' b' c' d' e' f') = S.mkOsc S.AR "StereoConvolution2L" [a',b',c',d',e',f'] 2
instance Make StereoConvolution2L where
ugen = mkStereoConvolution2L