libsndfile-ocaml source files.
[Faustine.git] / interpretor / preprocessor / faust-0.9.47mr3 / examples / smoothdelay.dsp
1 declare name "SmoothDelay";
2 declare author "Yann Orlarey";
3 declare copyright "Grame";
4 declare version "1.0";
5 declare license "STK-4.3";
6
7
8 //--------------------------process----------------------------
9 //
10 // A stereo smooth delay with a feedback control
11 //
12 // This example shows how to use sdelay, a delay that doesn't
13 // click and doesn't transpose when the delay time is changed
14 //-------------------------------------------------------------
15
16 import("music.lib");
17
18 process = par(i, 2, voice)
19 with
20 {
21 voice = (+ : sdelay(N, interp, dtime)) ~ *(fback);
22 N = int(2^19);
23 interp = hslider("interpolation[unit:ms][style:knob]",10,1,100,0.1)*SR/1000.0;
24 dtime = hslider("delay[unit:ms][style:knob]", 0, 0, 5000, 0.1)*SR/1000.0;
25 fback = hslider("feedback[style:knob]",0,0,100,0.1)/100.0;
26 };
27
28