module Sound.Tidal.Transition where
import Sound.Tidal.Stream
import Sound.Tidal.Pattern
import Sound.Tidal.Time
import Sound.Tidal.Params
import Sound.Tidal.Utils
import Control.Concurrent.MVar
import Control.Applicative
import Data.Monoid
transition :: (IO Time) -> MVar (ParamPattern, [ParamPattern]) -> (Time -> [ParamPattern] -> ParamPattern) -> ParamPattern -> IO ()
transition getNow mv f p =
do now <- getNow
ps <- takeMVar mv
let p' = f now (p:snd ps)
putMVar mv (p', (p:snd ps))
return ()
histpan' :: Double -> Int -> Time -> [ParamPattern] -> ParamPattern
histpan' _ _ _ [] = silence
histpan' _ 0 _ _ = silence
histpan' scalepan n _ ps = stack $ map (\(i,p) -> p # pan (atom $ ((fromIntegral i) / (fromIntegral n'))*scalepan)) (enumerate ps')
where ps' = take n ps
n' = length ps'
histpan :: Int -> Time -> [ParamPattern] -> ParamPattern
histpan = histpan' 1
histpan2 :: Int -> Time -> [ParamPattern] -> ParamPattern
histpan2 = histpan' 2
superwash :: (Pattern a -> Pattern a) -> (Pattern a -> Pattern a) -> Time -> Time -> Time -> [Pattern a] -> Pattern a
superwash _ _ _ _ _ [] = silence
superwash _ _ _ _ _ (p:[]) = p
superwash fout fin delay dur now (p:p':_) =
(playWhen (< (now + delay)) p') <>
(playWhen (between (now + delay) (now + delay + dur)) $ fout p') <>
(playWhen (>= (now + delay + dur)) $ fin p)
where
between lo hi x = (x >= lo) && (x < hi)
wash :: (Pattern a -> Pattern a) -> Time -> Time -> [Pattern a] -> Pattern a
wash _ _ _ [] = silence
wash _ _ _ (p:[]) = p
wash f t now (p:p':_) = overlay (playWhen (< (now + t)) $ f p') (playWhen (>= (now + t)) p)
wait :: Time -> Time -> [ParamPattern] -> ParamPattern
wait t _ [] = silence
wait t now (p:_) = playWhen (>= (nextSam (now+t1))) p
jumpIn' :: Int -> Time -> [ParamPattern] -> ParamPattern
jumpIn' n now = superwash id id ((nextSam now) now + (fromIntegral n)) 0 now
jumpIn :: Int -> Time -> [ParamPattern] -> ParamPattern
jumpIn n = superwash id id (fromIntegral n) 0
jump :: Time -> [ParamPattern] -> ParamPattern
jump = jumpIn 0
jumpMod :: Int -> Time -> [ParamPattern] -> ParamPattern
jumpMod n now = jumpIn ((n1) ((floor now) `mod` n)) now
mortal :: Time -> Time -> Time -> [ParamPattern] -> ParamPattern
mortal _ _ _ [] = silence
mortal lifespan release now (p:_) = overlay (playWhen (<(now+lifespan)) p) (playWhen (>= (now+lifespan)) (fadeOut' (now + lifespan) release p))