module Sound.Tidal.Strategies where
import Data.Ratio
import Control.Applicative
import qualified Data.Map as Map
import Data.Maybe
import Sound.Tidal.Dirt
import Sound.Tidal.Pattern
import Sound.Tidal.Stream
import Sound.Tidal.Time
import Sound.Tidal.Utils
import qualified Sound.OSC.FD as OSC.FD
stutter n t p = stack $ map (\i -> (t * (fromIntegral i)) ~> p) [0 .. (n1)]
echo = stutter 2
triple = stutter 3
quad = stutter 4
double = echo
jux f p = stack [p |+| pan (pure 0), f $ p |+| pan (pure 1)]
juxcut f p = stack [p |+| pan (pure 0) |+| cut (pure (1)),
f $ p |+| pan (pure 1) |+| cut (pure (2))
]
jux4 f p = stack [p |+| pan (pure 0), f $ p |+| pan (pure 2)]
juxBy n f p = stack [p |+| pan (pure $ 0.5 (n/2)), f $ p |+| pan (pure $ 0.5 + (n/2))]
smash n xs p = slowcat $ map (\n -> slow n p') xs
where p' = striate n p
smash' n xs p = slowcat $ map (\n -> slow n p') xs
where p' = chop n p
samples :: Applicative f => f String -> f Int -> f String
samples p p' = pick <$> p <*> p'
spreadf ts p = spread ($)
spin :: Int -> OscPattern -> OscPattern
spin copies p =
stack $ map (\n -> let offset = toInteger n % toInteger copies in
offset <~ p
|+| pan (pure $ fromRational offset)
)
[0 .. (copies 1)]
sawwave4 = ((*4) <$> sawwave1)
sinewave4 = ((*4) <$> sinewave1)
rand4 = ((*4) <$> rand)
stackwith p ps | null ps = silence
| otherwise = stack $ map (\(i, p') -> p' |+| (((fromIntegral i) % l) <~ p)) (zip [0 ..] ps)
where l = fromIntegral $ length ps
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..(steps1)]))
where scale x
= ((+feedback) . (*(1feedback)) . (/(fromIntegral steps)) . ((fromIntegral steps))) x
scale :: (Functor f, Num b) => b -> b -> f b -> f b
scale from to p = ((+ from) . (* (tofrom))) <$> p
chop :: Int -> OscPattern -> OscPattern
chop n p = Pattern $ \queryA -> concatMap (f queryA) $ arcCycles queryA
where f queryA a = concatMap (chopEvent queryA) (arc p a)
chopEvent (queryS, queryE) (a,a',v) = map (newEvent v) $ filter (\(_, (s,e)) -> not $ or [e < queryS, s >= queryE]) (enumerate $ chopArc a n)
newEvent :: OscMap -> (Int, Arc) -> Event OscMap
newEvent v (i, a) = (a,a,Map.insert (param dirt "end") (Just $ OSC.FD.float ((fromIntegral $ i+1)/(fromIntegral n))) $ Map.insert (param dirt "begin") (Just $ OSC.FD.float ((fromIntegral i)/(fromIntegral n))) v)
gap :: Int -> OscPattern -> OscPattern
gap n p = Pattern $ \queryA -> concatMap (f queryA) $ arcCycles queryA
where f queryA a = concatMap (chopEvent queryA) (arc p a)
chopEvent (queryS, queryE) (a,a',v) = map (newEvent v) $ filter (\(_, (s,e)) -> not $ or [e < queryS, s >= queryE]) (enumerate $ everyOther $ chopArc a n)
newEvent :: OscMap -> (Int, Arc) -> Event OscMap
newEvent v (i, a) = (a,a,Map.insert (param dirt "end") (Just $ OSC.FD.float ((fromIntegral $ i+1)/(fromIntegral n))) $ Map.insert (param dirt "begin") (Just $ OSC.FD.float ((fromIntegral i)/(fromIntegral n))) v)
everyOther (x:(y:xs)) = x:(everyOther xs)
everyOther xs = xs
chopArc :: Arc -> Int -> [Arc]
chopArc (s, e) n = map (\i -> ((s + (es)*(fromIntegral i/fromIntegral n)), s + (es)*((fromIntegral $ i+1)/fromIntegral n))) [0 .. n1]
en :: [(Int, Int)] -> Pattern String -> Pattern String
en ns p = stack $ map (\(i, (k, n)) -> e k n (samples p (pure i))) $ enumerate ns
weave :: Rational -> OscPattern -> [OscPattern] -> OscPattern
weave t p ps = weave' t p (map const ps)
weave' :: Rational -> OscPattern -> [OscPattern -> OscPattern] -> OscPattern
weave' t p fs | l == 0 = silence
| otherwise = slow t $ stack $ map (\(i, f) -> ((density t (f p)) |+| (((fromIntegral i) % l) <~ p))) (zip [0 ..] fs)
where l = fromIntegral $ length fs
interlace :: OscPattern -> OscPattern -> OscPattern
interlace a b = weave 16 (shape $ ((* 0.9) <$> sinewave1)) [a, b]