From d14cafbe5936168a5cfb9dbb8c63be56b0a9c332 Mon Sep 17 00:00:00 2001
From: Raphael Forment <raphael.forment@gmail.com>
Date: Mon, 1 Jan 2024 21:06:00 +0100
Subject: [PATCH] pitched samples

---
 Classes/BuboString.sc               | 4 ++++
 Classes/Configuration/Synthdefs.scd | 4 ++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/Classes/BuboString.sc b/Classes/BuboString.sc
index af53bca..ccbae1b 100644
--- a/Classes/BuboString.sc
+++ b/Classes/BuboString.sc
@@ -3,4 +3,8 @@
     arg sampleNumber = 0, repeats=inf;
     ^Pindex(Bank(this), sampleNumber, repeats);
   }
+
+  p {
+    ^Pdv.parse(this)
+  }
 }
diff --git a/Classes/Configuration/Synthdefs.scd b/Classes/Configuration/Synthdefs.scd
index 96d9d43..3ba4c0d 100644
--- a/Classes/Configuration/Synthdefs.scd
+++ b/Classes/Configuration/Synthdefs.scd
@@ -14,14 +14,14 @@ f.vardel = {
 
 (
   z = SynthDef.new(\sampler, {
-  	arg buf, out=0, rate=1, amp=1, pan=0, attack=0.01, release=1, loop=0;
+  	arg buf, out=0, freq=400, rate=1, amp=1, pan=0, attack=0.01, release=1, loop=0;
   	var sig;
     var env = EnvGen.ar(Env.perc(attack, release, doneAction: 2));
     var startPos = 0;
     sig = PlayBuf.ar(
       numChannels: 1,
       bufnum: buf,
-      rate:BufRateScale.kr(buf) * rate,
+      rate:BufRateScale.kr(buf) * (rate * freq / 60.midicps),
       trigger: 1, startPos:startPos,
       loop:loop, doneAction: 2);
   	sig = sig * amp;