Feat: chorus

packages/chorus-t/CHANGELOG.md

@@ -1,5 +1,6 @@
 # @synthlet/chorus-t
 
-## 0.1.0
+## 0.1.x
 
-Initial release
+- Initial release
+- Fix registration name

packages/chorus-t/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@synthlet/chorus-t",
-  "version": "0.1.0",
+  "version": "0.1.1",
   "description": "A chorus (based on Tagu Audio Line) audio effect in a worklet",
   "keywords": [
     "chorus",

packages/chorus-t/src/index.ts

@@ -21,7 +21,7 @@ export type ChorusTWorkletNode = AudioWorkletNode & {
   setBypass(value: boolean): void;
 };
 
-export const registerChorusTWorklet = createRegistrar("CHORUS", PROCESSOR);
+export const registerChorusTWorklet = createRegistrar("CHORUS-T", PROCESSOR);
 
 export const ChorusT = createWorkletConstructor<
   ChorusTWorkletNode,

packages/chorus/CHANGELOG.md

@@ -0,0 +1,5 @@
+# @synthlet/chorus
+
+## 0.1.0
+
+- Initial release

packages/chorus/README.md

@@ -0,0 +1,5 @@
+# @synthlet/chorus
+
+> Chorus effect written in Faust and ported to the web
+
+Part of [Synthlet](https://github.com/danigb/synthlet)

packages/chorus/dsp/chorus.dsp

@@ -0,0 +1,34 @@
+
+import("stdfaust.lib");
+
+voices = 8; // MUST BE EVEN
+process = chorus_mono(dmax,curdel,rate,sigma,do2,voices);
+
+dmax = 4096; // 8192;
+curdel = dmax * vslider("[0] Delay [midi:ctrl 4] [style:knob]", 0.5, 0, 1, 0.001) : si.smooth(0.999);
+rateMax = 7.0; // Hz
+rateMin = 0.01;
+rateT60 = 0.15661;
+rate = vslider("[1] Rate [midi:ctrl 2] [unit:Hz] [style:knob]", 0.5, rateMin, rateMax, 0.0001)
+    : si.smooth(ba.tau2pole(rateT60/6.91));
+
+depth = vslider("[4] Depth [midi:ctrl 3] [style:knob]", 0.5, 0, 1, 0.001) : si.smooth(ba.tau2pole(depthT60/6.91));
+
+depthT60 = 0.15661;
+delayPerVoice = 0.5*curdel/voices;
+sigma = delayPerVoice * vslider("[6] Deviation [midi:ctrl 58] [style:knob]",0.5,0,1,0.001) : si.smooth(0.999);
+
+periodic = 1;
+
+do2 = depth;   // use when depth=1 means "multivibrato" effect (no original => all are modulated)
+
+chorus_mono(dmax,curdel,rate,sigma,do2,voices)
+	= _ <: (*(1-do2)<:_,_),(*(do2) <: par(i,voices,voice(i)) :> _,_) : ro.interleave(2,2) : +,+
+    with {
+        angle(i) = 2*ma.PI*(i/2)/voices + (i%2)*ma.PI/2;
+        voice(i) = de.fdelay(dmax,min(dmax,del(i))) * cos(angle(i));
+        del(i) = curdel*(i+1)/voices + dev(i);
+        rates(i) = rate/float(i+1);
+        dev(i) = sigma * os.oscp(rates(i),i*2*ma.PI/voices);
+    };
+