From 0ed615a312738aad7031ef79cedd108a1abf612d Mon Sep 17 00:00:00 2001
From: Felix Roos <flix91@gmail.com>
Date: Mon, 25 Dec 2023 15:32:12 +0100
Subject: [PATCH] fix: add .piano function

---
 packages/repl/prebake.mjs | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/packages/repl/prebake.mjs b/packages/repl/prebake.mjs
index 02638d1a..80d2c3bd 100644
--- a/packages/repl/prebake.mjs
+++ b/packages/repl/prebake.mjs
@@ -1,4 +1,4 @@
-import { controls, evalScope } from '@strudel.cycles/core';
+import { controls, noteToMidi, valueToMidi, Pattern, evalScope } from '@strudel.cycles/core';
 import { registerSynthSounds, registerZZFXSounds, samples } from '@strudel.cycles/webaudio';
 import * as core from '@strudel.cycles/core';
 
@@ -37,3 +37,18 @@ export async function prebake() {
     samples(`${ds}/vcsl.json`),
   ]);
 }
+
+const maxPan = noteToMidi('C8');
+const panwidth = (pan, width) => pan * width + (1 - width) / 2;
+
+Pattern.prototype.piano = function () {
+  return this.fmap((v) => ({ ...v, clip: v.clip ?? 1 })) // set clip if not already set..
+    .s('piano')
+    .release(0.1)
+    .fmap((value) => {
+      const midi = valueToMidi(value);
+      // pan by pitch
+      const pan = panwidth(Math.min(Math.round(midi) / maxPan, 1), 0.5);
+      return { ...value, pan: (value.pan || 1) * pan };
+    });
+};