@grame/faustwasm 0.6.3 → 0.7.0

package/test/faustlive-wasm/index.js

@@ -492,7 +492,7 @@ const activateMonoDSP = (dsp) => {
     }
 
     // Setup UI
-    DSP.listenSensors();
+    DSP.startSensors();
     faustUI = new FaustUI({ ui: DSP.getUI(), root: faustUIRoot });
     faustUI.paramChangeByUI = (path, value) => DSP.setParamValue(path, value);
     DSP.setOutputParamHandler(output_handler);

package/test/osc2.dsp

@@ -1,5 +1,5 @@
 import("stdfaust.lib");
-f = hslider("freq [midi:ctrl 7][acc:0 1 -10 0 10]",440,50,2000,0.01);
+f = hslider("freq [midi:ctrl 7][acc:0 1 -10 0 10]",440,50,2000,0.01) : si.smoo;
 phasor(freq) = (+(freq/ma.SR) ~ ma.decimal);
 osc(freq) = sin(phasor(freq)*2*ma.PI);
 process = osc(f);

package/test/tables.dsp

@@ -0,0 +1,71 @@
+import("stdfaust.lib");
+
+wavetable(sf, pct) = it.lagrangeN(N, f_idx, par(i, N + 1, table(i_idx - int(N / 2) + i)))
+with {
+    N = 3; // lagrange order
+    SFC = outputs(sf);
+    S = 0, 0 : sf : ba.selector(0, SFC); // table size
+    table(j) = int(ma.modulo(j, S)) : sf(0) : !, !, si.bus(SFC-2);
+    idx = S*pct;
+    f_idx = ma.frac(idx) + int(N / 2);
+    i_idx = int(idx);
+};
+
+TABLE_SIZE = 2048;
+NUM_LEVELS = 4;
+
+aa_wavetable_level(sf, LEVEL, pct) = it.lagrangeN(N, f_idx, par(i, N + 1, table(i_idx - int(N / 2) + i)))
+with {
+    S = TABLE_SIZE>>LEVEL;
+    r0 = int(0);
+    r1 = int(S-1);
+
+    mipped_table(x) = ba.tabulate(0, FX, S, r0, r1, x).val
+    with {
+        // require 1 channel out due to ba.tabulate
+        read_table(i) = sf(0, i) : !, !, _;
+
+        // simple average of me plus LEVEL neighbors to the right
+        FX(i) = sum(j, LEVEL+1, read_table(i*(LEVEL+1)+j))/(LEVEL+1);
+    };
+    table(j) = int(ma.modulo(j, S)) : mipped_table;
+    idx = S*pct;
+    N = 1; // lagrange order
+    f_idx = ma.frac(idx) + int(N / 2);
+    i_idx = int(idx);
+};
+
+aa_wavetable(sf, freq, pct) = si.vecOp((tmp_wavetables, coeff), *) :> _
+with {
+    // todo: fiddle with best remap values.
+    level_pos = ba.hz2midikey(freq) : it.remap(24, 36, 0, 1) : aa.clip(0, 1) / NUM_LEVELS;
+    tmp_wavetables = pct <: par(level, NUM_LEVELS, aa_wavetable_level(sf(level), level));
+    coeff = par(i, NUM_LEVELS, max(0, 1-abs(i-level_pos*(NUM_LEVELS-1))));
+};
+
+// mathematical hard-syncing phasor (see `phasor_imp` in `faustlibraries/oscillators.lib`)
+m_hsp_phasor(freq, reset, phase) = (select2(hard_reset, +(freq/ma.SR), phase) : ma.decimal) ~ _
+with {
+    hard_reset = (1-1')|reset; // To correctly start at `phase` at the first sample
+};
+
+// This works:
+/*
+ process = m_hsp_phasor(freq, 0, 0) : wavetable(sf)*en.adsr(.01, .01, 1, .1, gate)*gain
+ with {
+     sf = soundfile("Square[url:{'square.wav'}]",1);
+     freq = hslider("freq", 440, 20, 20000, .01);
+     gate = hslider("gate", 0, 0, 1, .01);
+     gain = hslider("gain", 0, 0, 1, .01);
+};
+*/
+
+
+// This doesn't compile:
+process = m_hsp_phasor(freq, 0, 0) : aa_wavetable(sf, freq)*en.adsr(.01, .01, 1, .1, gate)*gain
+with {
+    sf(i) = soundfile("Square%i [url:{'square.wav'}]",1);
+    freq = hslider("freq", 440, 20, 2000, .01);
+    gate = hslider("gate", 0.5, 0, 1, .01);
+    gain = hslider("gain", 0.5, 0, 1, .01);
+};