diff --git a/src/Sound/Tidal/Control.hs b/src/Sound/Tidal/Control.hs
index 29822c34..0e28794e 100644
--- 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)