1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
declare version "2.77.2";
declare compile_options "-single -scal ../../build/bin/faust -I dsp -e dsp/karplus.dsp -o reference/karplus.box";
declare library_path0 "/Users/letz/Developpements/faust/tests/impulse-tests/dsp/music.lib";
declare library_path1 "/Users/letz/Developpements/faust/tests/impulse-tests/dsp/math.lib";
declare author "Grame";
declare copyright "(c)GRAME 2006";
declare filename "karplus.dsp";
declare license "BSD";
declare math_lib_author "GRAME";
declare math_lib_copyright "GRAME";
declare math_lib_deprecated "This library is deprecated and is not maintained anymore. It will be removed in August 2017.";
declare math_lib_license "LGPL with exception";
declare math_lib_name "Math Library";
declare math_lib_version "1.0";
declare music_lib_author "GRAME";
declare music_lib_copyright "GRAME";
declare music_lib_license "LGPL with exception";
declare music_lib_name "Music Library";
declare music_lib_version "1.0";
declare name "karplus";
declare version "1.0";
ID_0 = _, 12345;
ID_1 = (ID_0 : +);
ID_2 = _, 1103515245;
ID_3 = (ID_2 : *);
ID_4 = ID_1 ~ ID_3;
ID_5 = ID_4, 2.1474836e+09f;
ID_6 = (ID_5 : /);
ID_7 = hslider("level", 0.5f, 0.0f, 1.0f, 0.01f);
ID_8 = ID_6, ID_7;
ID_9 = ID_8 : *;
ID_10 = button("play");
ID_11 = + ~ \(x2).(x2,((x2,0.0f : >),hslider("excitation [unit:f]", 327.023f, 2.0f, 512.0f, 1.0f) : /) : -);
ID_12 = _, 0.0f;
ID_13 = ID_12 : >;
ID_14 = ID_11 : ID_13;
ID_15 = \(x1).((x1,(x1 : mem) : -),0.0f : >) : ID_14;
ID_16 = (ID_10 : ID_15);
ID_17 = _, ID_16;
ID_18 = ID_17 : *;
ID_19 = vgroup("excitator", ID_18);
ID_20 = (+ : \(x3).(x3,((hslider("duration [unit:f]", 271.994f, 2.0f, 512.0f, 1.0f),1.5f : - : int),4095 : &) : @));
ID_21 = hslider("attenuation", 0.0f, 0.0f, 1.0f, 0.01f);
ID_22 = 1.0f, ID_21;
ID_23 = (ID_22 : -);
ID_24 = _, ID_23;
ID_25 = ID_24 : *;
ID_26 = (\(x4).((x4,(x4 : mem) : +),2 : /) : ID_25);
ID_27 = ID_20 ~ ID_26;
ID_28 = vgroup("resonator", ID_27);
ID_29 = ID_19 : ID_28;
ID_30 = ID_9 : ID_29;
process = ID_30;
|
