-- | (Undocumented class) module Sound.SC3.UGen.Record.Breakcore where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Breakcore = Breakcore { bufnum :: S.UGen, capturein :: S.UGen, capturetrigger :: S.UGen, duration :: S.UGen, ampdropout :: S.UGen } deriving (Show) breakcore :: Breakcore breakcore = Breakcore { bufnum = 0.0, capturein = 0.0, capturetrigger = 0.0, duration = 0.1, ampdropout = 0.0 } mkBreakcore :: Breakcore -> S.UGen mkBreakcore (Breakcore a' b' c' d' e') = S.mkOsc S.AR "Breakcore" [a',b',c',d',e'] 1 instance Make Breakcore where ugen = mkBreakcore