@grame/faustwasm 0.1.5 → 0.1.6

package/package.json

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

package/test/Timestrech.dsp

@@ -1,150 +0,0 @@
-// 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

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

package/test/tp1-mono.dsp

@@ -1,20 +0,0 @@
-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

@@ -1,20 +0,0 @@
-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);