module Synthesizer.Generic.Noise where
import qualified Synthesizer.State.Noise as Noise
import qualified Synthesizer.Generic.Signal as SigG
import qualified Synthesizer.Generic.Signal2 as SigG2
import qualified Synthesizer.State.Signal as SigS
import qualified Algebra.Real as Real
import qualified Algebra.Ring as Ring
import System.Random (Random, RandomGen, randomR, mkStdGen, )
import qualified System.Random as Rnd
import qualified Prelude as P
import PreludeBase
import NumericPrelude
white ::
(Ring.C y, Random y, SigG.Write sig y) =>
SigG.LazySize -> sig y
white size =
SigG.fromState size $ Noise.white
whiteGen ::
(Ring.C y, Random y, RandomGen g, SigG.Write sig y) =>
SigG.LazySize -> g -> sig y
whiteGen size =
SigG.fromState size . Noise.whiteGen
whiteQuadraticBSplineGen ::
(Ring.C y, Random y, RandomGen g, SigG.Write sig y) =>
SigG.LazySize -> g -> sig y
whiteQuadraticBSplineGen size =
SigG.fromState size . Noise.whiteQuadraticBSplineGen
randomPeeks ::
(Real.C y, Random y, SigG2.Transform sig y Bool) =>
sig y
-> sig Bool
randomPeeks =
randomPeeksGen (mkStdGen 876)
randomPeeksGen ::
(Real.C y, Random y, RandomGen g, SigG2.Transform sig y Bool) =>
g
-> sig y
-> sig Bool
randomPeeksGen =
SigG2.zipWithState (<) . SigS.unfoldR (Just . randomR (0,1))