add euclid

repl/src/euclid.mjs

@@ -0,0 +1,17 @@
+import { Pattern } from '../../strudel.mjs';
+import bjork from 'bjork';
+import { rotate } from '../../util.mjs';
+
+const euclid = (pulses, steps, rotation = 0) => {
+  const b = bjork(steps, pulses);
+  if (rotation) {
+    return rotate(b, -rotation);
+  }
+  return b;
+};
+
+Pattern.prototype.euclid = function (pulses, steps, rotation = 0) {
+  return this.struct(euclid(pulses, steps, rotation));
+};
+
+export default euclid;

repl/src/evaluate.ts

@@ -5,7 +5,8 @@ import './voicings';
 import './tonal.mjs';
 import './xen.mjs';
 import './tune.mjs';
-import './tune.mjs';
+import './euclid.mjs';
+import euclid from './euclid.mjs';
 import './pianoroll.mjs';
 import './draw.mjs';
 import * as uiHelpers from './ui.mjs';
@@ -36,7 +37,7 @@ hackLiteral(String, ['mini', 'm'], bootstrapped.mini); // comment out this line
 hackLiteral(String, ['pure', 'p'], bootstrapped.pure); // comment out this line if you panic
 
 // this will add everything to global scope, which is accessed by eval
-Object.assign(globalThis, bootstrapped, Tone, toneHelpers, voicingHelpers, drawHelpers, uiHelpers, { gist });
+Object.assign(globalThis, bootstrapped, Tone, toneHelpers, voicingHelpers, drawHelpers, uiHelpers, { gist, euclid });
 
 export const evaluate: any = async (code: string) => {
   const shapeshifted = shapeshifter(code); // transform syntactically correct js code to semantically usable code

repl/src/parse.ts

@@ -14,6 +14,8 @@ const applyOptions = (parent: any) => (pat: any, i: number) => {
       case 'stretch':
         const speed = new Fraction(operator.arguments_.amount).inverse().valueOf();
         return reify(pat).fast(speed);
+      case 'bjorklund':
+        return pat.euclid(operator.arguments_.pulse, operator.arguments_.step, operator.arguments_.rotation);
       // TODO: case 'fixed-step': "%"
     }
     console.warn(`operator "${operator.type_}" not implemented`);

repl/src/tunes.ts

@@ -543,3 +543,32 @@ stack(
   .fast(2 / 3)
   .tone(p.toDestination())
 )`;
+
+export const festivalOfFingers = `const chords = "<Cm7 Fm7 G7 F#7>";
+piano().then(p=>stack(
+  chords.voicings().struct("x(3,8,-1)").velocity(.5).off(1/7,x=>x.transpose(12).velocity(.2)),
+  chords.rootNotes(2).struct("x(4,8,-2)"),
+  chords.rootNotes(4)
+  .scale(slowcat('C minor','F dorian','G dorian','F# mixolydian'))
+  .struct("x(3,8,-2)".fast(2))
+  .scaleTranspose("0 4 0 6".early(".125 .5")).layer(scaleTranspose("0,<2 [4,6] [5,7]>/4"))
+).slow(2)
+             //.pianoroll()
+ .velocity(sine.struct("x*8").add(3/5).mul(2/5).fast(8))
+ .tone(p.chain(out())))`;
+
+export const festivalOfFingers2 = `const chords =       "<Cm7       Fm7        G7         F#7            >";
+ const scales = slowcat('C minor','F dorian','G dorian','F# mixolydian')
+ piano().then(p=>stack(
+   chords.voicings().struct("x(3,8,-1)").velocity(.5).off(1/7,x=>x.transpose(12).velocity(.2)),
+   chords.rootNotes(2).struct("x(4,8)"),
+   chords.rootNotes(4)
+   .scale(scales)
+   .struct("x(3,8,-2)".fast(2))
+   .scaleTranspose("0 4 0 6".early(".125 .5")).layer(scaleTranspose("0,<2 [4,6] [5,7]>/3"))
+ ).slow(2).transpose(-1)            
+  .legato(cosine.struct("x*8").add(4/5).mul(4/5).fast(8))
+  .velocity(sine.struct("x*8").add(3/5).mul(2/5).fast(8))
+  // .pianoroll()
+  .tone(p.chain(out())).fast(3/4)
+ )`;

repl/src/tutorial/tutorial.mdx

@@ -180,13 +180,13 @@ In essence, the `x!n` is like a shortcut for `[x*n]@n`.
 
 Compared to [tidal mini notation](https://tidalcycles.org/docs/patternlib/tutorials/mini_notation/), the following mini notation features are missing from Strudel:
 
-- Tie symbols "\_"
-- Euclidean algorithm "c3(3,2,1)"
-- feet marking "."
-- random choice "|"
-- Random removal "?"
-- Polymetric sequences "{ ... }"
-- Fixed steps using "%"
+- [x] Euclidean algorithm "c3(3,2,1)" TODO: document
+- [ ] Tie symbols "\_"
+- [ ] feet marking "."
+- [ ] random choice "|"
+- [ ] Random removal "?"
+- [ ] Polymetric sequences "{ ... }"
+- [ ] Fixed steps using "%"
 
 <br />