Fix off-by-one error in striateBy

src/Sound/Tidal/Control.hs

@@ -27,7 +27,7 @@
 import           Prelude                  hiding ((*>), (<*))
 
 import qualified Data.Map.Strict          as Map
 import           Data.Maybe               (fromJust, fromMaybe, isJust)
 import           Data.Ratio
 
 import           Sound.Tidal.Core
@@ -35,7 +35,7 @@
 import           Sound.Tidal.Pattern
 import           Sound.Tidal.Stream.Types (patternTimeID)
 import           Sound.Tidal.UI
 import           Sound.Tidal.Utils
 
 {- | `spin` will "spin" and layer up a pattern the given number of times,
 with each successive layer offset in time by an additional @1/n@ of a cycle,
@@ -165,9 +165,9 @@
 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 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)
 
 
 {- | `gap` is similar to `chop` in that it granualizes every sample in place as it is played,