X-Git-Url: https://scm.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/c7f552fd8888da2f0d8cfb228fe0f28d3df3a12c..b4b6f2ea75b9f0f3ca918f5b84016610bf7a4d4f:/interpretor/preprocessor/faust-0.9.47mr3/examples/faust-stk/harpsichord.h

diff --git a/interpretor/preprocessor/faust-0.9.47mr3/examples/faust-stk/harpsichord.h b/interpretor/preprocessor/faust-0.9.47mr3/examples/faust-stk/harpsichord.h
new file mode 100644
index 0000000..3f21719
--- /dev/null
+++ b/interpretor/preprocessor/faust-0.9.47mr3/examples/faust-stk/harpsichord.h
@@ -0,0 +1,185 @@
+//Parameters for harpsichord.dsp
+//©Romain Michon (rmichon@ccrma.stanford.edu), 2011
+//licence: FAUST-STK
+
+#include "instrument.h"
+
+#define _LOOKUP_TABLE_H_
+
+double DryTapAmpT60_points[16*2] = {
+//  NoteNumber(A440=69), T60(sec)
+	21.001,0.491,
+	26.587,0.498,
+	34.249,0.470,
+	40.794,0.441,
+	47.977,0.392,
+	55.000,0.370,
+	60.000,0.370,
+	66.000,0.370,
+	71.934,0.370,
+	78.000,0.370,
+	83.936,0.390,
+	88.557,0.387, 
+	92.858,0.400,
+	97.319,0.469,
+	102.400,0.500,
+	107.198,0.494	};
+extern LookupTable DryTapAmpT60;
+LookupTable DryTapAmpT60(&DryTapAmpT60_points[0], 16);
+
+float getValueDryTapAmpT60 (float index){
+	return DryTapAmpT60.getValue(index);
+}
+
+double releaseLoopGain_points[10*2] = {
+	21.000,0.865,
+	24.000,0.880,
+	29.000,0.896,
+	36.000,0.910,
+	48.000,0.920,
+	60.000,0.950,
+	72.000,0.965,
+	84.000,0.988,
+	88.000,0.997,
+	99.000,0.988	};
+extern LookupTable releaseLoopGain;
+LookupTable releaseLoopGain(&releaseLoopGain_points[0], 10);
+
+float getValueReleaseLoopGain(float index){
+	return releaseLoopGain.getValue(index);
+}
+
+double loopFilterb0_points[18*2] = {
+	35.000,0.94373,
+	36.000,0.94731,
+	46.000,0.94731,
+	47.000,0.96202,
+	52.000,0.96202,
+	53.000,0.97477,
+	58.000,0.97477,
+	59.000,0.97733,
+	64.000,0.97733,
+	65.000,0.97971,
+	70.000,0.97971,
+	71.000,0.97971,
+	76.000,0.97971,
+	77.000,0.98698,
+	82.000,0.98698,
+	83.000,0.98462,
+	86.000,0.98462,
+	87.000,0.98611,
+};
+extern LookupTable loopFilterb0;
+LookupTable loopFilterb0(&loopFilterb0_points[0], 18);
+
+float getValueLoopFilterb0(float index){
+	return loopFilterb0.getValue(index);
+}
+
+double loopFilterb1_points[18*2] = {
+	35.000,0.60010,
+	36.000,-0.59124,
+	46.000,-0.59124,
+	47.000,-0.21243,
+	52.000,-0.21243,
+	53.000,-0.39280,
+	58.000,-0.39280,
+	59.000,-0.48307,
+	64.000,-0.48307,
+	65.000,0.51965,
+	70.000,0.51965,
+	71.000,0.51965,
+	76.000,0.51965,
+	77.000,-0.42463,
+	82.000,-0.42463,
+	83.000,0.85655,
+	86.000,0.85655,
+	87.000,0.68851,
+};
+extern LookupTable loopFilterb1;
+LookupTable loopFilterb1(&loopFilterb1_points[0], 18);
+
+float getValueLoopFilterb1(float index){
+	return loopFilterb1.getValue(index);
+}
+
+double loopFilterb2_points[18*2] = {
+	35.000,-0.00360,
+	36.000,-0.12249,
+	46.000,-0.12249,
+	47.000,-0.16044,
+	52.000,-0.16044,
+	53.000,-0.21680,
+	58.000,-0.21680,
+	59.000,-0.16346,
+	64.000,-0.16346,
+	65.000,0.22162,
+	70.000,0.22162,
+	71.000,0.22162,
+	76.000,0.22162,
+	77.000,-0.14973,
+	82.000,-0.14973,
+	83.000,0.24937,
+	86.000,0.24937,
+	87.000,0.14838,
+};
+extern LookupTable loopFilterb2;
+LookupTable loopFilterb2(&loopFilterb2_points[0], 18);
+
+float getValueLoopFilterb2(float index){
+	return loopFilterb2.getValue(index);
+}
+
+double loopFiltera1_points[18*2] = {
+	35.000,0.5941,
+	36.000,-0.65928,
+	46.000,-0.65928,
+	47.000,-0.24222,
+	52.000,-0.24222,
+	53.000,-0.41402,
+	58.000,-0.41402,
+	59.000,-0.50837,
+	64.000,-0.50837,
+	65.000,0.51263,
+	70.000,0.51263,
+	71.000,0.51263,
+	76.000,0.51263,
+	77.000,-0.43976,
+	82.000,-0.43976,
+	83.000,0.85396,
+	86.000,0.85396,
+	87.000,0.68332,
+};
+extern LookupTable loopFiltera1;
+LookupTable loopFiltera1(&loopFiltera1_points[0], 18);
+
+float getValueLoopFiltera1(float index){
+	return loopFiltera1.getValue(index);
+}
+
+double loopFiltera2_points[18*2] = {
+	35.000,-0.02641,
+	36.000,-0.10275,
+	46.000,-0.10275,
+	47.000,-0.15842,
+	52.000,-0.15842,
+	53.000,-0.21653,
+	58.000,-0.21653,
+	59.000,-0.15833,
+	64.000,-0.15833,
+	65.000,0.22025,
+	70.000,0.22025,
+	71.000,0.22025,
+	76.000,0.22025,
+	77.000,-0.14583,
+	82.000,-0.14583,
+	83.000,0.24405,
+	86.000,0.24405,
+	87.000,0.14370,
+};
+extern LookupTable loopFiltera2;
+LookupTable loopFiltera2(&loopFiltera2_points[0], 18);
+
+float getValueLoopFiltera2(float index){
+	return loopFiltera2.getValue(index);
+}