tidal 0.4.35 → 0.4.36

raw patch · 3 files changed

+7/−6 lines, 3 filesdep ~basedep ~hosc

Dependency ranges changed: base, hosc

Files

• Sound/Tidal/Dirt.hs +6/−0
• Sound/Tidal/Strategies.hs +0/−5
• tidal.cabal +1/−1

@@ -13,6 +13,7 @@ import Data.Bits import Data.Maybe import Data.Fixed+import Data.Ratio import System.Process  import Sound.Tidal.Stream@@ -193,6 +194,11 @@  xfade :: Time -> [OscPattern] -> OscPattern xfade = xfadeIn 2++stut :: Integer -> Double -> Rational -> OscPattern -> OscPattern+stut steps feedback time p = stack (p:(map (\x -> (((x%steps)*time) ~> (p |+| gain (pure $ scale (fromIntegral x))))) [1..(steps-1)])) +  where scale x +          = ((+feedback) . (*(1-feedback)) . (/(fromIntegral steps)) . ((fromIntegral steps)-)) x  anticipateIn :: Time -> Time -> [OscPattern] -> OscPattern anticipateIn _ _ [] = silence

@@ -96,11 +96,6 @@  inside n f p = density n $ f (slow n p) -stut :: Integer -> Double -> Rational -> OscPattern -> OscPattern-stut steps feedback time p = stack (p:(map (\x -> (((x%steps)*time) ~> (p |+| gain (pure $ scale (fromIntegral x))))) [1..(steps-1)])) -  where scale x -          = ((+feedback) . (*(1-feedback)) . (/(fromIntegral steps)) . ((fromIntegral steps)-)) x- scale :: (Functor f, Num b) => b -> b -> f b -> f b scale from to p = ((+ from) . (* (to-from))) <$> p 

@@ -1,5 +1,5 @@ name:                tidal-version:         0.4.35+version:         0.4.36 synopsis:            Pattern language for improvised music -- description:          homepage:            http://tidal.lurk.org/