Add octave scripts for examples into track list.
[Faustine.git] / interpretor / preprocessor / faust-0.9.47mr3 / examples / faust-stk / harpsichord.h
1 //Parameters for harpsichord.dsp
2 //©Romain Michon (rmichon@ccrma.stanford.edu), 2011
3 //licence: FAUST-STK
4
5 #include "instrument.h"
6
7 #define _LOOKUP_TABLE_H_
8
9 double DryTapAmpT60_points[16*2] = {
10 // NoteNumber(A440=69), T60(sec)
11 21.001,0.491,
12 26.587,0.498,
13 34.249,0.470,
14 40.794,0.441,
15 47.977,0.392,
16 55.000,0.370,
17 60.000,0.370,
18 66.000,0.370,
19 71.934,0.370,
20 78.000,0.370,
21 83.936,0.390,
22 88.557,0.387,
23 92.858,0.400,
24 97.319,0.469,
25 102.400,0.500,
26 107.198,0.494 };
27 extern LookupTable DryTapAmpT60;
28 LookupTable DryTapAmpT60(&DryTapAmpT60_points[0], 16);
29
30 float getValueDryTapAmpT60 (float index){
31 return DryTapAmpT60.getValue(index);
32 }
33
34 double releaseLoopGain_points[10*2] = {
35 21.000,0.865,
36 24.000,0.880,
37 29.000,0.896,
38 36.000,0.910,
39 48.000,0.920,
40 60.000,0.950,
41 72.000,0.965,
42 84.000,0.988,
43 88.000,0.997,
44 99.000,0.988 };
45 extern LookupTable releaseLoopGain;
46 LookupTable releaseLoopGain(&releaseLoopGain_points[0], 10);
47
48 float getValueReleaseLoopGain(float index){
49 return releaseLoopGain.getValue(index);
50 }
51
52 double loopFilterb0_points[18*2] = {
53 35.000,0.94373,
54 36.000,0.94731,
55 46.000,0.94731,
56 47.000,0.96202,
57 52.000,0.96202,
58 53.000,0.97477,
59 58.000,0.97477,
60 59.000,0.97733,
61 64.000,0.97733,
62 65.000,0.97971,
63 70.000,0.97971,
64 71.000,0.97971,
65 76.000,0.97971,
66 77.000,0.98698,
67 82.000,0.98698,
68 83.000,0.98462,
69 86.000,0.98462,
70 87.000,0.98611,
71 };
72 extern LookupTable loopFilterb0;
73 LookupTable loopFilterb0(&loopFilterb0_points[0], 18);
74
75 float getValueLoopFilterb0(float index){
76 return loopFilterb0.getValue(index);
77 }
78
79 double loopFilterb1_points[18*2] = {
80 35.000,0.60010,
81 36.000,-0.59124,
82 46.000,-0.59124,
83 47.000,-0.21243,
84 52.000,-0.21243,
85 53.000,-0.39280,
86 58.000,-0.39280,
87 59.000,-0.48307,
88 64.000,-0.48307,
89 65.000,0.51965,
90 70.000,0.51965,
91 71.000,0.51965,
92 76.000,0.51965,
93 77.000,-0.42463,
94 82.000,-0.42463,
95 83.000,0.85655,
96 86.000,0.85655,
97 87.000,0.68851,
98 };
99 extern LookupTable loopFilterb1;
100 LookupTable loopFilterb1(&loopFilterb1_points[0], 18);
101
102 float getValueLoopFilterb1(float index){
103 return loopFilterb1.getValue(index);
104 }
105
106 double loopFilterb2_points[18*2] = {
107 35.000,-0.00360,
108 36.000,-0.12249,
109 46.000,-0.12249,
110 47.000,-0.16044,
111 52.000,-0.16044,
112 53.000,-0.21680,
113 58.000,-0.21680,
114 59.000,-0.16346,
115 64.000,-0.16346,
116 65.000,0.22162,
117 70.000,0.22162,
118 71.000,0.22162,
119 76.000,0.22162,
120 77.000,-0.14973,
121 82.000,-0.14973,
122 83.000,0.24937,
123 86.000,0.24937,
124 87.000,0.14838,
125 };
126 extern LookupTable loopFilterb2;
127 LookupTable loopFilterb2(&loopFilterb2_points[0], 18);
128
129 float getValueLoopFilterb2(float index){
130 return loopFilterb2.getValue(index);
131 }
132
133 double loopFiltera1_points[18*2] = {
134 35.000,0.5941,
135 36.000,-0.65928,
136 46.000,-0.65928,
137 47.000,-0.24222,
138 52.000,-0.24222,
139 53.000,-0.41402,
140 58.000,-0.41402,
141 59.000,-0.50837,
142 64.000,-0.50837,
143 65.000,0.51263,
144 70.000,0.51263,
145 71.000,0.51263,
146 76.000,0.51263,
147 77.000,-0.43976,
148 82.000,-0.43976,
149 83.000,0.85396,
150 86.000,0.85396,
151 87.000,0.68332,
152 };
153 extern LookupTable loopFiltera1;
154 LookupTable loopFiltera1(&loopFiltera1_points[0], 18);
155
156 float getValueLoopFiltera1(float index){
157 return loopFiltera1.getValue(index);
158 }
159
160 double loopFiltera2_points[18*2] = {
161 35.000,-0.02641,
162 36.000,-0.10275,
163 46.000,-0.10275,
164 47.000,-0.15842,
165 52.000,-0.15842,
166 53.000,-0.21653,
167 58.000,-0.21653,
168 59.000,-0.15833,
169 64.000,-0.15833,
170 65.000,0.22025,
171 70.000,0.22025,
172 71.000,0.22025,
173 76.000,0.22025,
174 77.000,-0.14583,
175 82.000,-0.14583,
176 83.000,0.24405,
177 86.000,0.24405,
178 87.000,0.14370,
179 };
180 extern LookupTable loopFiltera2;
181 LookupTable loopFiltera2(&loopFiltera2_points[0], 18);
182
183 float getValueLoopFiltera2(float index){
184 return loopFiltera2.getValue(index);
185 }