Merge pull request #1145 from tidalcycles/fix-squeezeJoin

Bugfix for squeezeJoin and dependencies including bite. Fixes #1053
tidalcycles · Feb 9, 2025 · 51c3b0d · 51c3b0d
2 parents 15eb60a + 42f5412
commit 51c3b0d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Sound/Tidal/Pattern.hs b/src/Sound/Tidal/Pattern.hs
@@ -673,7 +673,7 @@ compressArcTo :: Arc -> Pattern a -> Pattern a
 compressArcTo (Arc s e) = compressArc (Arc (cyclePos s) (e - sam s))
 
 focusArc :: Arc -> Pattern a -> Pattern a
-focusArc (Arc s e) p = cyclePos s `rotR` _fast (1 / (e - s)) p
+focusArc (Arc s e) p = s `rotR` _fast (1 / (e - s)) ((sam s) `rotL` p)
 
 -- | Speed up a pattern by the given time pattern.
 --