Added variant of evalSupply taking Int as random seed

8c6794b6 · May 23, 2014 · c22b143 · c22b143
1 parent f1f0920
commit c22b143
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/hsc3-supply/src/lib/Sound/SC3/Supply.hs b/hsc3-supply/src/lib/Sound/SC3/Supply.hs
@@ -24,6 +24,7 @@ module Sound.SC3.Supply
   , runSupply
   , runSupplyIO
   , evalSupply
+  , supply
 
   -- * Lifting functions
   , liftS2
@@ -231,6 +232,10 @@ runSupplyIO = getStdRandom . runSupply
 evalSupply :: Supply -> StdGen -> UGen
 evalSupply d g = evalState (unDemand d) g
 
+-- | Evaluate demand ugen with given seed.
+supply :: Int -> Supply -> UGen
+supply i s = evalState (unDemand s) (mkStdGen i)
+
 liftS2 :: (Int -> a -> b -> c)
        -> Demand a -> Demand b -> Demand c
 liftS2 f a b = f <$> seed <*> a <*> b