@grame/faustwasm 0.1.4 → 0.1.5

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@grame/faustwasm",
-  "version": "0.1.4",
+  "version": "0.1.5",
   "description": "WebAssembly version of Faust Compiler",
   "main": "dist/cjs/index.js",
   "types": "dist/esm/index.d.ts",

package/test/Timestrech.dsp

@@ -0,0 +1,150 @@
+// Time Stretch Sampler
+// written in Faust by David Braun
+// Based on
+// https://github.com/dar-io-p/potenza-time-stretch/blob/main/TimeStretch.h
+// License: GNU GPLv3
+// https://github.com/dar-io-p/potenza-time-stretch/blob/main/LICENSE
+
+// todo:
+// * Figure out why the various Loop modes aren't working
+// * Add Portamento glide
+// * Use Lagrange interpolation of soundfile
+
+import("stdfaust.lib");
+
+s = IGNORE(soundfile("sound[url:{'SixMillionVox.wav']", 2));
+
+Sampler(s) = (resetState : advance) ~ init : si.bus(4), totalPhase, direction : ro.interleave(2,2) : grainPlayer, grainPlayer :> si.bus(2)
+with {
+  totalPhase = !;
+  direction = !;
+};
+
+ENVELOPE(x) = vgroup("[0] Envelope", x);
+Markers(x) = vgroup("[1] Markers", x);
+PLAYMODES(x) = vgroup("[2] Modes", x);
+STRETCH(x) = vgroup("[3] Stretch", x);
+PITCH(x) = vgroup("[4] Pitch", x);
+IGNORE(x) = vgroup("[99] Ignore", x);
+
+rootNote = PITCH(hslider("Root Note [style:knob]", 36, 20, 127, 1));
+fineTune = PITCH(hslider("Fine Tune [style:knob]", 0, -99, 99, 1));
+
+ratio = IGNORE(hslider("freq [style:knob]", 440, 20, 20000, 1)) : ba.hz2midikey : _-rootNote + (fineTune/100) : ba.semi2ratio;
+gain = IGNORE(hslider("gain [style:knob]", 0, 0, 1, .01));
+gate = IGNORE(button("gate"));
+
+envEnable = ENVELOPE(checkbox("[0] Enable"));  // todo: default to ON somehow
+envAttack = ENVELOPE(hslider("[1] Attack [unit:seconds]", 0, 0, 5, .01)); // todo: better scale
+envRelease = ENVELOPE(hslider("[2] Release [unit:seconds]", 0.005, 0, 5, .01)); // todo: better scale
+
+envGain = ba.if(envEnable, en.asr(envAttack, 1, envRelease, gate), 1);
+
+c = STRETCH(hslider("Crossfade [style:knob]", 0.4, 0.01, 0.5, .01));
+grainSize = STRETCH(hslider("Grain Size [style:knob]", 1000, 20, 2000, 10));
+stretchFactor = STRETCH(hslider("Stretch [style:knob]", 1, 1, 20, .1)
+// : ba.if(stretchComp, _, 1) // todo: I want to do this but can't until stretchComp can default to ON.
+);
+
+pitchCompensator = ba.if(PLAYMODES(checkbox("Pitch Comp")), stretchFactor, 1);
+stretchComp = PLAYMODES(checkbox("Stretch Enable")); 
+reverse = PLAYMODES(checkbox("[0] Reverse"));
+loop = PLAYMODES(checkbox("[1] Loop Enable"));
+pong = PLAYMODES(checkbox("[2] Pong Enable")); // pong only matters if loop is ON
+
+cPrime = 1-c;
+
+MAX_AUDIO_LENGTH = 44100*10; // 10 seconds
+
+sampleStart = Markers(hslider("[0] Sample Start", 0, 0, MAX_AUDIO_LENGTH, 1));
+loopPos = Markers(hslider("[1] Loop Position", 0, 0, MAX_AUDIO_LENGTH, 1));
+sampleEnd = Markers(hslider("[2] Sample End", MAX_AUDIO_LENGTH, 0, MAX_AUDIO_LENGTH, 1));
+
+resetState(_phase1, _phase2, _grain1, _grain2, _totalPhase, _direction) = result
+with {
+    doReset = gate & (gate'==0); // noteOn
+    samplePos = ba.if(reverse, sampleEnd, sampleStart);
+    resultIfResetForward = 0, -1, samplePos, samplePos, samplePos, 1;
+    resultIfResetBackward = grainSize, -1, (samplePos-grainSize), (samplePos-grainSize), samplePos, -1;
+    resultIfNotReset = _phase1, _phase2, _grain1, _grain2, _totalPhase, _direction;
+    result = ba.selectmulti(0, (resultIfNotReset, resultIfResetForward, resultIfResetBackward), doReset*ba.if(reverse, 2, 1));
+};
+
+advance(_phase1, _phase2, _grain1, _grain2, _totalPhase, _direction) = ba.selectmulti(0, (resultBackward, resultForward), ba.if(_direction>0, 1, 0))
+with {
+  // local vars
+  f1 = grainSize * c;
+  f2 = grainSize * cPrime;
+  stretchFactorInverse = 1. / stretchFactor;
+  grainOffset = grainSize*cPrime*stretchFactorInverse;
+
+  pitchDelta = ratio * pitchCompensator;
+
+  resultForward = ba.selectmulti(0, (resultIfNoNewGrain, resultIfNewGrain), (phase1 >= f2)), totalPhase, direction
+  with {
+    totalPhase = _totalPhase + pitchDelta*stretchFactorInverse;
+    phase1 = _phase1 + ba.if((_grain1 + _phase1) < sampleEnd, pitchDelta, 0);
+
+    phase2a = _phase2 + ba.if((_phase2 > -1) & (_grain2 + _phase2 < sampleEnd), pitchDelta, 0);
+    
+    phase2 = ba.if(phase2a >= grainSize, -1, phase2a);
+
+    doLoop = loop & (_grain1 + phase1 >= sampleEnd);  // todo: or use totalPhase >= sampleEnd?
+    doPong = pong & doLoop;
+    direction = ba.if(doPong, -1, 1);
+    grain1 = ba.if(doPong, sampleEnd, ba.if(doLoop, loopPos, _grain1+grainOffset));
+
+    resultIfNoNewGrain = phase1, phase2, _grain1, _grain2;
+    resultIfNewGrain = ba.if(doPong, grainSize, 0), phase1, grain1, _grain1;
+  };
+  
+  resultBackward = ba.selectmulti(0, (resultIfNoNewGrain, resultIfNewGrain), (phase1 <= f1)), totalPhase, direction
+  with {
+    totalPhase = _totalPhase - pitchDelta*stretchFactorInverse;
+    phase1 = _phase1 - ba.if((_grain1 + _phase1) > sampleStart, pitchDelta, 0);
+
+    phase2a = _phase2 - ba.if((_phase2 > -1) & (_grain2 + _phase2 > sampleStart), pitchDelta, 0);
+    
+    phase2 = ba.if(phase2a <= 0, -1, phase2a);
+
+    doLoop = loop & (_grain1+phase1 <= loopPos); // todo: or use totalPhase < loopPos?
+    doPong = pong & doLoop;
+    direction = ba.if(doPong, 1, -1);
+    grain1 = ba.if(doPong, loopPos, ba.if(doLoop, sampleEnd, _grain1-grainOffset));
+
+    resultIfNoNewGrain = phase1, phase2, _grain1, _grain2;
+    resultIfNewGrain = ba.if(doPong, 0, grainSize), phase1, grain1, _grain1;
+  };
+};
+
+grainPlayer(phase, grain) = (part, pos) : outs(s) : sp.stereoize(_* windowGain * gain * envGain * safeGain)
+with {
+  pos = phase+grain;
+  windowGain = phase : ba.bpf.start(0, 0) : ba.bpf.point(grainSize*c, 1) : ba.bpf.point(grainSize*cPrime, 1) : ba.bpf.end(grainSize, 0)
+  : _*ma.PI*.5 : sin <: _*_ :>_ // enable this line for constant-powered window blending
+  ;
+  safeGain = ba.if(pos>=sampleEnd, 0, 1);
+  part = 0;
+  // get file's properties
+  length(s) = part,0 : s : _,si.block(outputs(s)-1);
+  srate(s)  = part,0 : s : !,_,si.block(outputs(s)-2);
+  // play sample
+  outs(s) = s : si.block(2), si.bus(outputs(s)-2);
+};
+
+init(_phase1, _phase2, _grain1, _grain2, _totalPhase, _direction) = _phase1, _phase2, _grain1, _grain2, _totalPhase, ba.if(ba.time==0, 1, _direction);
+
+phaseEffect = sp.stereoize((+ ~ (de.fdelayltv(N, MAX_DELAY_SAMPLES, delayAmt)*fbGain)))
+with {
+  fbGain = ba.if(phaseAmt == 0, 0, 0.6);
+  phaseAmt = hslider("Phase", 0, 0, 30, .01);
+  N = 2;
+  MAX_DELAY_SAMPLES = 30/1000:ba.sec2samp;
+  delayAmt = phaseAmt: si.smoo : _/1000:ba.sec2samp;
+};
+
+// Remember to use ScriptProcessor instead of AudioWorklet!
+process = hgroup("Amigo", Sampler(s));
+
+effect = phaseEffect;
+// effect = _, _;

package/test/emsc.dsp

@@ -0,0 +1,5 @@
+import("stdfaust.lib");
+
+ns = no.noise;
+filter = fi.lowpass;
+process = (ns , 2 , 800) : filter;

package/test/tp1-mono.dsp

@@ -0,0 +1,20 @@
+import("stdfaust.lib");
+
+part = nentry("file", 0, 0, 1, 1);
+speed = hslider("speed", 1, 0, 4, 0.01);
+level = hslider("level", 0.5, 0, 1, 0.01);
+
+//process = (part, +(1)~_) : soundfile("files [url: {'RnB.wav';'tango.wav';'levot.wav'}]",2) :(!,!,_,_);
+
+//process = so.loop(soundfile("files [url: {'/Documents/faust-github-faust2/tests/soundfile/RnB.wav';'/Documents/faust-github-faust2/tests/soundfile/tango.wav';'/Documents/faust-github-faust2/tests/soundfile/levot.wav'}]",2), part);
+
+//process = so.loop_speed(soundfile("files [url: {'RnB.wav';'tango.wav';'levot.wav'}]",2), part, speed);
+
+//process = so.loop_speed_level(soundfile("files [url: {'RnB.wav';'tango.wav';'levot.wav'}]",2), part, speed, level);
+
+//process = so.loop_speed_level(soundfile("files [url: {'RnB.wav';'tango.wav';'levot-all.wav'}]",2), part, speed, level);
+
+
+//process = so.loop_speed_level(soundfile("files [url: {'http://127.0.0.1:8000/RnB.wav';'http://127.0.0.1:8000/tango.wav';'http://127.0.0.1:8000/levot.wav'}]",2), part, speed, level);
+
+process = so.loop_speed_level(soundfile("files [url: {'levot-15-mono.wav';'violon.wav'}]",2), part, speed, level) : dm.freeverb_demo;

package/test/tp1.dsp

@@ -0,0 +1,20 @@
+import("stdfaust.lib");
+
+part = nentry("file", 0, 0, 5, 1);
+speed = hslider("speed", 1, 0, 4, 0.01);
+level = hslider("level", 0.5, 0, 1, 0.01);
+
+//process = (part, +(1)~_) : soundfile("files [url: {'RnB.wav';'tango.wav';'levot.wav'}]",2) :(!,!,_,_);
+
+//process = so.loop(soundfile("files [url: {'/Documents/faust-github-faust2/tests/soundfile/RnB.wav';'/Documents/faust-github-faust2/tests/soundfile/tango.wav';'/Documents/faust-github-faust2/tests/soundfile/levot.wav'}]",2), part);
+
+//process = so.loop_speed(soundfile("files [url: {'RnB.wav';'tango.wav';'levot.wav'}]",2), part, speed);
+
+//process = so.loop_speed_level(soundfile("files [url: {'RnB.wav';'tango.wav';'levot.wav'}]",2), part, speed, level);
+
+//process = so.loop_speed_level(soundfile("files [url: {'RnB.wav';'tango.wav';'levot-all.wav'}]",2), part, speed, level);
+
+
+//process = so.loop_speed_level(soundfile("files [url: {'http://127.0.0.1:8000/RnB.wav';'http://127.0.0.1:8000/tango.wav';'http://127.0.0.1:8000/levot.wav'}]",2), part, speed, level);
+
+process = so.loop_speed_level(soundfile("files [url: {'RnB.wav';'tango.wav';'levot.wav';'violon.wav';'RnB.wav';'tango.wav';'levot.wav';'violon.wav'}]",2), part, speed, level);