noise rejection

Author: dxinteractive

dev/src/dsp-definitions/45-alchemist-prototype.ts

@@ -10,19 +10,112 @@ tune2 = waveform{24,-1,-1,-1,28,-1,-1,-1};
 tunePlayer(tune) = tuneGate,tuneFreq
 with {
     tuneNow = tune,int(os.phasor(8,0.2)) : rdtable;
-    tuneGate = tuneNow > 0 : ba.sAndH(tuneNow != 0) : en.adsre(0.01,2.0,0.2,1.0);
+    tuneGate = tuneNow > 0 : ba.sAndH(tuneNow != 0) : en.adsre(0.01,1.3,0.0,1.0);
     tuneFreq = tuneNow : ba.sAndH(tuneNow > 0);
 };
 synth(gate) = ba.midikey2hz : os.triangle : *(gate) : *(0.2);
-input1 = tunePlayer(tune1) : synth;
-input2 = tunePlayer(tune2) : synth;
+gtr_synth = tunePlayer(tune1) : synth;
+bass_synth = tunePlayer(tune2) : synth;
+
+// mosfez-alchemist.dsp
+//
+//   B
+// A   C
+//   D
+
+import("stdfaust.lib");
+
+// utils
+
+lerp(a, b, x) = a + (b - a) * x;
+
+constantPowerPan(p, x) = x*gainLeft, x*gainRight
+with {
+    theta = ma.PI*p/2.;
+    gainLeft = cos(theta)/sqrt(2.);
+    gainRight = sin(theta)/sqrt(2.);
+};
+
+reject_noise(slack, move_time, x) = return with {
+  loop(prev_out, prev_timer, x) = loop_return with {
+    trig = abs(prev_out - x) > slack;
+    timer = ba.if(trig, 0, prev_timer + 1);
+    out = ba.if(trig | timer < ma.SR * move_time, x, prev_out);
+    loop_return = out,timer;
+  };
+  return = x : loop ~ (_,_) : (_,!);
+};
+
+// consts
+
+voice_count = 5;
+spread_count = 7;
+
+max_delay = ma.SR * 5.0;
+
+del_table = waveform{
+  0.,0.,0.,0.,0.,
+  0.,0.,0.,0.,0.,
+  0.,1.,0.,0.,0.,
+  0.,.5,1.,0.,0.,
+  0.,.33,.66,1.,0.,
+  0.,.25,.5,.75,1.,
+  0.,.23,.384,.62,1.
+};
+
+
+vol_table = waveform{
+  1.,0.,0.,0.,0.,
+  1.,0.,0.,0.,0.,
+  1.,1.,0.,0.,0.,
+  1.,.9,.8,0.,0.,
+  1.,.8,.7,.6,0.,
+  1.,.9,.7,.5,.3,
+  1.,.8,.7,.5,.3
+};
+
+pan_table = waveform{
+  .5,.5,.5,.5,.5,
+  0.,.5,.5,.5,.5,
+  0.,1.,.5,.5,.5,
+  .5,0.,1.,.5,.5,
+  0.,1.,.8,.2,.5,
+  .2,.3,.5,.75,1.,
+  0.,1.,.2,.7,.4
+};
+
+// input
+
+lag_param = hslider("lag[OWL:A]", 0.5, 0.0, 1.0, 0.001) : reject_noise(0.05, 1.0) : si.smoo;
+modspeed_param = hslider("modspeed[OWL:C]", 0.5, 0.0, 1.0, 0.001) : reject_noise(0.05, 1.0) : si.smoo;
+moddepth_param = hslider("moddepth[OWL:C]", 0.5, 0.0, 1.0, 0.001) : reject_noise(0.05, 1.0) : si.smoo;
+spread_param = hslider("spread[OWL:B]", 0, 0, spread_count - 1, 1) : int;
+width_button = checkbox("width[OWL:B1]");
 
 // fx
+read_table(table,i) = table,(spread_param  * voice_count) + i : rdtable;
+
+del_value(i) = read_table(del_table, i);
+vol_value(i) = read_table(vol_table, i);
+pan_value(i) = read_table(pan_table, i);
+
+lp(v) = fi.lowpass(1, lerp(4000., 20000., v * v));
+hp(v) = fi.highpass(1, lerp(1000., 20., v * v));
+
+del(i) = de.delay(max_delay, del_value(i) * lag_param * lag_param * max_delay);
+vol(i) = *(vol_value(i)) : hp(vol_value(i)) : lp(vol_value(i));
+pan(i) = constantPowerPan(pan_value(i));
+trem(i) = *(1. - (os.osc(modspeed_param * modspeed_param * (10. - i)) * .5 + .5) * moddepth_param);
+
+flip(a,b) = ba.if(width_button, b, a),ba.if(width_button, a, b);
+bass_pan = ba.if(spread_param == 1, 0, _),_;
 
-channel1 = input1 <: _,_; // : _,de.fdelay(ma.SR, ma.SR * 0.59);
-channel2 = input2 <: _,_;
+voice(i) = _ : del(i) : vol(i) : trem(i) : pan(i) : flip : _,_;
+gtr = _ <: par(i, voice_count, voice(i)) :> _,_;
+bass =  _ <: bass_pan : _,_;
 
-process = channel1, channel2 :> _,_;
+amp = *(3.0);
+process = gtr_synth,bass_synth : gtr,bass :> amp,amp;
 `;
 
 const dspDefinition: DspDefinition = {

dev/src/dsp-definitions/46-noise-rejection.ts

@@ -0,0 +1,30 @@
+import type { DspDefinition } from "../types";
+
+const dsp = `
+import("stdfaust.lib");
+
+noise_amount = 0.02;
+noisy_knob = hslider("knob", 0.0, 0.0, 1.0, 0.01) : +((no.noise - 0.5) * noise_amount) : hbargraph("input", 0.0, 1.0);
+
+reject_noise(slack, move_time, x) = return with {
+  loop(prev_out, prev_timer, x) = loop_return with {
+    trig = abs(prev_out - x) > slack;
+    timer = ba.if(trig, 0, prev_timer + 1);
+    out = ba.if(trig | timer < ma.SR * move_time, x, prev_out);
+    loop_return = out,timer;
+  };
+  return = x : loop ~ (_,_);
+};
+
+process = noisy_knob : reject_noise(0.1, 1.0) : hbargraph("output", 0.0, 1.0),hbargraph("time", 0.0, 1000.0);
+`;
+
+const dspDefinition: DspDefinition = {
+  id: "noise-rejection",
+  name: "Noise rejection",
+  description: "Rejects noise from hslider reads",
+  dsp,
+  type: "live",
+};
+
+export default dspDefinition;

dev/src/dsp-definitions/all.ts

@@ -45,6 +45,7 @@ import multibandFilter from "./42-multiband-filter";
 import c4BlopsLive from "./43-c4-blops-live";
 import c4Blops from "./44-c4-blops";
 import alchemistPrototype from "./45-alchemist-prototype";
+import noiseRejection from "./46-noise-rejection";
 
 export const all: DspDefinition[] = [
   sineWave,
@@ -92,4 +93,5 @@ export const all: DspDefinition[] = [
   c4BlopsLive,
   c4Blops,
   alchemistPrototype,
+  noiseRejection,
 ];