Erosion and dilasion by square successfully tested.
[Faustine.git] / interpretor / faust-0.9.47mr3 / examples / faust-stk / modalBar.h
1 //Modal datas for modalBar.dsp
2 //©Romain Michon (rmichon@ccrma.stanford.edu), 2011
3 //licence: STK-4.3
4
5 #include <stdio.h>
6 #include <stdlib.h>
7
8 float loadPreset(int preset, int index0, int index1){
9 static float presets[9][4][4] = {
10 {{1.0, 3.99, 10.65, -2443}, // Marimba
11 {0.9996, 0.9994, 0.9994, 0.999},
12 {0.04, 0.01, 0.01, 0.008},
13 {0.429688, 0.445312, 0.093750}},
14 {{1.0, 2.01, 3.9, 14.37}, // Vibraphone
15 {0.99995, 0.99991, 0.99992, 0.9999},
16 {0.025, 0.015, 0.015, 0.015 },
17 {0.390625,0.570312,0.078125}},
18 {{1.0, 4.08, 6.669, -3725.0}, // Agogo
19 {0.999, 0.999, 0.999, 0.999},
20 {0.06, 0.05, 0.03, 0.02},
21 {0.609375,0.359375,0.140625}},
22 {{1.0, 2.777, 7.378, 15.377}, // Wood1
23 {0.996, 0.994, 0.994, 0.99},
24 {0.04, 0.01, 0.01, 0.008},
25 {0.460938,0.375000,0.046875}},
26 {{1.0, 2.777, 7.378, 15.377}, // Reso
27 {0.99996, 0.99994, 0.99994, 0.9999},
28 {0.02, 0.005, 0.005, 0.004},
29 {0.453125,0.250000,0.101562}},
30 {{1.0, 1.777, 2.378, 3.377}, // Wood2
31 {0.996, 0.994, 0.994, 0.99},
32 {0.04, 0.01, 0.01, 0.008},
33 {0.312500,0.445312,0.109375}},
34 {{1.0, 1.004, 1.013, 2.377}, // Beats
35 {0.9999, 0.9999, 0.9999, 0.999},
36 {0.02, 0.005, 0.005, 0.004},
37 {0.398438,0.296875,0.070312}},
38 {{1.0, 4.0, -1320.0, -3960.0}, // 2Fix
39 {0.9996, 0.999, 0.9994, 0.999},
40 {0.04, 0.01, 0.01, 0.008},
41 {0.453125,0.453125,0.070312}},
42 {{1.0, 1.217, 1.475, 1.729}, // Clump
43 {0.999, 0.999, 0.999, 0.999},
44 {0.03, 0.03, 0.03, 0.03 },
45 {0.390625,0.570312,0.078125}},
46 };
47 return presets[preset][index0][index1];
48 };