Merge branch 'main' into pattern-composers

packages/core/pattern.mjs

@@ -463,7 +463,7 @@ export class Pattern {
   }
 
   _compress(b, e) {
-    if (b > e || b > 1 || e > 1 || b < 0 || e < 0) {
+    if (b.gt(e) || b.gt(1) || e.gt(1) || b.lt(0) || e.lt(0)) {
       return silence;
     }
     return this._fastGap(Fraction(1).div(e.sub(b)))._late(b);
@@ -495,6 +495,13 @@ export class Pattern {
     return this._squeezeBind(func);
   }
 
+  _striate(n) {
+    const slices = Array.from({ length: n }, (x, i) => i);
+    const slice_objects = slices.map((i) => ({ begin: i / n, end: (i + 1) / n }));
+    const slicePat = slowcat(...slice_objects);
+    return this.union(slicePat)._fast(n);
+  }
+
   // cpm = cycles per minute
   _cpm(cpm) {
     return this._fast(cpm / 60);
@@ -774,6 +781,7 @@ Pattern.prototype.patternified = [
   'linger',
   'ply',
   'segment',
+  'striate',
   'slow',
   'velocity',
 ];

packages/core/test/pattern.test.mjs

@@ -704,6 +704,10 @@ describe('Pattern', function () {
         sequence(pure('a').fast(3), [pure('b').fast(3), pure('c').fast(3)]).firstCycle(),
       );
     });
+    it('Doesnt drop events in the 9th cycle', () => {
+      // fixed with https://github.com/tidalcycles/strudel/commit/72eeaf446e3d5e186d63cc0d2276f0723cde017a
+      assert.equal(sequence(1, 2, 3).ply(2).early(8).firstCycle().length, 6);
+    });
   });
   describe('chop', () => {
     it('Can _chop(2)', () => {

packages/core/timespan.mjs

@@ -33,7 +33,7 @@ export class TimeSpan {
     // (Note that the output timespan probably does not start *at* Time 0 --
     // that only happens when the input Arc starts at an integral Time.)
     const b = this.begin.cyclePos();
-    const e = b + (this.end - this.begin);
+    const e = b.add(this.end.sub(this.begin));
     return new TimeSpan(b, e);
   }