tidy

tidalcycles · Jan 17, 2025 · 85ff62b · 85ff62b
1 parent 50b443e
commit 85ff62b
Showing 1 changed file with 0 additions and 7 deletions.
diff --git a/src/Sound/Tidal/Control.hs b/src/Sound/Tidal/Control.hs
@@ -165,13 +165,6 @@ striate' :: Pattern Int -> Pattern Double -> ControlPattern -> ControlPattern
 striate' = striateBy
 
 _striateBy :: Int -> Double -> ControlPattern -> ControlPattern
--- _striateBy n f p = fastcat $ map (offset . fromIntegral) [0 .. n-1]
---   where offset i = p # P.begin (pure (slot * i) :: Pattern Double) # P.end (pure ((slot * i) + f) :: Pattern Double)
---         slot = (1 - f) / fromIntegral n
--- _striateBy :: Int -> Double -> ControlPattern -> ControlPattern
--- _striateBy n f p = fastcat $ map (offset) [0 .. n-1]
---   where offset i = p # P.begin (pure (slot * i) :: Pattern Double) # P.end (pure ((slot * i) + f) :: Pattern Double)
---         slot = (1 - f) / fromIntegral (n-1)
 _striateBy n f p = keepTactus (withTactus (* toRational n) p) $ fastcat $ map (offset . fromIntegral) [0 .. n-1]
   where offset i = mergePlayRange (slot*i, (slot*i)+f) <$> p
         slot = (1 - f) / fromIntegral (n-1)