Merge pull request #112 from tidalcycles/more-functions

`.brak()`, `.inside()` and `.outside()`

packages/core/pattern.mjs

@@ -696,6 +696,14 @@ export class Pattern {
     return this._fast(Fraction(1).div(factor));
   }
 
+  _inside(factor, f) {
+    return f(this._slow(factor))._fast(factor);
+  }
+
+  _outside(factor, f) {
+    return f(this._fast(factor))._slow(factor);
+  }
+
   _ply(factor) {
     return this.fmap((x) => pure(x)._fast(factor))._squeezeJoin();
   }
@@ -822,6 +830,16 @@ export class Pattern {
     return slowcatPrime(...pats);
   }
 
+  /**
+   * Returns a new pattern where every other cycle is played once, twice as
+   * fast, and offset in time by one quarter of a cycle. Creates a kind of
+   * breakbeat feel.
+   * @returns Pattern
+   */
+  brak() {
+    return this.when(slowcat(false, true), (x) => fastcat(x, silence)._late(0.25));
+  }
+
   rev() {
     const pat = this;
     const query = function (state) {
@@ -979,7 +997,7 @@ function _composeOp(a, b, func) {
 }
 
 // Make composers
-(function() {
+(function () {
   const num = (pat) => pat._asNumber();
   const numOrString = (pat) => pat._asNumber(false, true);
 
@@ -1390,6 +1408,14 @@ Pattern.prototype.compress = function (...args) {
   args = args.map(reify);
   return patternify2(Pattern.prototype._compress)(...args, this);
 };
+Pattern.prototype.outside = function (...args) {
+  args = args.map(reify);
+  return patternify2(Pattern.prototype._outside)(...args, this);
+};
+Pattern.prototype.inside = function (...args) {
+  args = args.map(reify);
+  return patternify2(Pattern.prototype._inside)(...args, this);
+};
 
 // call this after all Patter.prototype.define calls have been executed! (right before evaluate)
 Pattern.prototype.bootstrap = function () {

packages/core/test/pattern.test.mjs

@@ -41,6 +41,7 @@ import {
   tri2,
   id,
   ply,
+  rev
 } from '../index.mjs';
 
 import { steady } from '../signal.mjs';
@@ -277,10 +278,7 @@ describe('Pattern', function () {
       );
     });
     it('can SqueezeOut() structure', () => {
-      sameFirst(
+      sameFirst(sequence(1, [2, 3]).keepifSqueezeOut(true, true, false), sequence([1, [2, 3]], [1, [2, 3]], silence));
-        sequence(1, [2, 3]).keepifSqueezeOut(true, true, false),
-        sequence([1, [2, 3]], [1, [2, 3]], silence),
-      );
     });
   });
   describe('sub()', function () {
@@ -439,6 +437,20 @@ describe('Pattern', function () {
       // mini('eb3 [c3 g3]/2 ') always plays [c3 g3]
     });
   });
+  describe('inside', () => {
+    it('can rev inside a cycle', () => {
+      sameFirst(sequence('a', 'b', 'c', 'd').inside(2, rev),
+        sequence('b', 'a', 'd', 'c')
+      );
+    });
+  });
+  describe('outside', () => {
+    it('can rev outside a cycle', () => {
+      sameFirst(sequence('a', 'b', 'c', 'd')._slow(2).outside(2, rev),
+        sequence('d', 'c')
+      );
+    });
+  });
   describe('_filterValues()', function () {
     it('Filters true', function () {
       assert.equal(
@@ -589,6 +601,11 @@ describe('Pattern', function () {
       );
     });
   });
+  describe('brak()', () => {
+    it('Can make something a bit breakbeaty', () => {
+      sameFirst(sequence('a', 'b').brak()._fast(2), sequence('a', 'b', fastcat(silence, 'a'), fastcat('b', silence)));
+    });
+  });
   describe('timeCat()', function () {
     it('Can concatenate patterns with different relative durations', function () {
       assert.deepStrictEqual(