cyfaust 0.1.0__cp311-cp311-macosx_15_0_arm64.whl

cyfaust/resources/libraries/examples/physicalModeling/faust-stk/pd-patches/midi-in.pd

@@ -0,0 +1,111 @@
+#N canvas 555 193 650 564 10;
+#X obj 331 8 notein;
+#X obj 336 353 pack f f f;
+#X obj 394 292 / 127;
+#X obj 336 384 outlet;
+#X obj 16 92 ctlin 123;
+#X obj 154 92 inlet;
+#X obj 204 200 list split 3;
+#X obj 204 242 makenote;
+#X obj 204 269 pack f f;
+#X obj 336 322 poly \$1 1;
+#X obj 50 27 tgl 15 0 \$0-led-1 \$0-led-1 empty 0 -6 0 8 -262144 -1
+-1 0 1;
+#X obj 67 27 tgl 15 0 \$0-led-2 \$0-led-2 empty 0 -6 0 8 -262144 -1
+-1 0 1;
+#X obj 84 27 tgl 15 0 \$0-led-3 \$0-led-3 empty 0 -6 0 8 -262144 -1
+-1 0 1;
+#X obj 101 27 tgl 15 0 \$0-led-4 \$0-led-4 empty 0 -6 0 8 -262144 -1
+-1 0 1;
+#X obj 260 385 s \$0-leds;
+#X obj 471 291 unpack f f f;
+#X obj 550 323 > 0;
+#X obj 471 262 r \$0-leds;
+#X obj 471 358 makefilename \$0-led-%d;
+#X obj 471 385 pack s f;
+#X msg 471 413 \; \$1 \$2;
+#X text 470 234 LED logic;
+#X obj 118 27 tgl 15 0 \$0-led-5 \$0-led-5 empty 0 -6 0 8 -262144 -1
+-1 0 1;
+#X obj 135 27 tgl 15 0 \$0-led-6 \$0-led-6 empty 0 -6 0 8 -262144 -1
+-1 0 1;
+#X obj 152 27 tgl 15 0 \$0-led-7 \$0-led-7 empty 0 -6 0 8 -262144 -1
+-1 0 1;
+#X obj 169 27 tgl 15 0 \$0-led-8 \$0-led-8 empty 0 -6 0 8 -262144 -1
+-1 0 1;
+#X obj 217 3 tgl 15 0 \$0-toggle \$0-toggle empty 0 -6 0 8 -262144
+-1 -1 1 1;
+#X obj 154 124 spigot;
+#X obj 244 8 r \$0-toggle;
+#X obj 336 190 spigot;
+#X msg 400 83 stop;
+#X obj 540 456 loadbang;
+#X obj 244 56 sel 0;
+#X obj 197 3 bng 15 250 50 0 \$0-notes-off \$0-notes-off empty 0 -6
+0 8 -262144 -1 -1;
+#X obj 540 503 s \$0-toggle;
+#X msg 540 479 1;
+#X obj 16 265 s \$0-notes-off;
+#X obj 400 9 r \$0-notes-off;
+#X msg 244 85 bang;
+#X obj 401 384 outlet;
+#X obj 161 3 nbx 2 14 0 16 0 0 \$0-chan \$0-chan empty -15 6 0 10 -262144
+-1 -1 0 256;
+#X obj 521 9 r \$0-chan;
+#X obj 274 134 expr $f1 && (($f2==$f3) || ($f3==0));
+#X obj 318 83 t f b;
+#X obj 154 164 route stop note;
+#X text 18 420 MIDI input logic. Handles MIDI note-on/off messages
+and the all-notes off controller. Velocity values are normalized to
+the 0-1 range. MIDI input can be restricted to one MIDI channel. Through
+the inlet \, you can also pass in MIDI style messages \, either note/velocity
+or note/velocity/duration (use a "stop" message to emulate all-notes-off).
+Other (control) messages are simply passed through to the second outlet.
+The creation argument sets the number of voices (8 voices max).;
+#X obj 16 307 loadbang;
+#X obj 16 328 f \$2;
+#X obj 16 349 s \$0-chan;
+#X connect 0 0 43 0;
+#X connect 0 1 2 0;
+#X connect 0 2 42 1;
+#X connect 1 0 3 0;
+#X connect 1 0 14 0;
+#X connect 2 0 9 1;
+#X connect 4 0 36 0;
+#X connect 5 0 27 0;
+#X connect 6 0 7 0;
+#X connect 6 2 9 0;
+#X connect 7 0 8 0;
+#X connect 7 1 8 1;
+#X connect 8 0 9 0;
+#X connect 9 0 1 0;
+#X connect 9 1 1 1;
+#X connect 9 2 1 2;
+#X connect 15 0 18 0;
+#X connect 15 2 16 0;
+#X connect 16 0 19 1;
+#X connect 17 0 15 0;
+#X connect 18 0 19 0;
+#X connect 19 0 20 0;
+#X connect 27 0 44 0;
+#X connect 28 0 27 1;
+#X connect 28 0 32 0;
+#X connect 28 0 42 0;
+#X connect 29 0 9 0;
+#X connect 30 0 9 0;
+#X connect 31 0 35 0;
+#X connect 32 0 38 0;
+#X connect 35 0 34 0;
+#X connect 37 0 30 0;
+#X connect 38 0 36 0;
+#X connect 41 0 42 2;
+#X connect 41 0 30 0;
+#X connect 42 0 29 1;
+#X connect 43 0 29 0;
+#X connect 43 1 42 0;
+#X connect 44 0 36 0;
+#X connect 44 1 6 0;
+#X connect 44 2 39 0;
+#X connect 46 0 47 0;
+#X connect 47 0 48 0;
+#X coords 0 -1 1 1 235 45 1 0 0;

cyfaust/resources/libraries/examples/physicalModeling/faust-stk/pd-patches/modal.pd

@@ -0,0 +1,10 @@
+#N canvas 223 61 502 600 10;
+#X msg 411 461 \; pd dsp 1;
+#X msg 411 498 \; pd dsp 0;
+#X obj 166 415 audio-out;
+#X obj 125 20 midi-in 2;
+#X obj 19 77 modalBar;
+#X connect 3 0 4 0;
+#X connect 3 1 4 1;
+#X connect 4 1 2 1;
+#X connect 4 2 2 2;

cyfaust/resources/libraries/examples/physicalModeling/faust-stk/pd-patches/osc.pd

@@ -0,0 +1,26 @@
+#N canvas 418 463 539 314 10;
+#X obj 208 180 prepend send;
+#X obj 208 209 sendOSC;
+#X obj 24 111 loadbang;
+#X msg 24 143 connect localhost 5510;
+#X obj 319 178 dumpOSC 5511;
+#X obj 319 215 print FAUST;
+#X obj 407 177 dumpOSC 5512;
+#X obj 407 214 print Error;
+#X obj 208 150 r osc;
+#X msg 104 113 connect localhost 5513;
+#X msg 116 72 disconnect;
+#X obj 200 12 s osc;
+#X msg 201 -12 /* hello;
+#X obj 280 12 s osc;
+#X msg 281 -12 /* get;
+#X connect 0 0 1 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 5 0;
+#X connect 6 0 7 0;
+#X connect 8 0 0 0;
+#X connect 9 0 1 0;
+#X connect 10 0 1 0;
+#X connect 12 0 11 0;
+#X connect 14 0 13 0;

cyfaust/resources/libraries/examples/physicalModeling/faust-stk/pd-patches/piano-poly.pd

@@ -0,0 +1,10 @@
+#N canvas 641 188 352 554 10;
+#X msg 273 361 \; pd dsp 1;
+#X msg 273 399 \; pd dsp 0;
+#X obj 19 366 audio-out;
+#X obj 19 17 midi-in 8;
+#X obj 19 68 piano;
+#X connect 3 0 4 0;
+#X connect 3 1 4 1;
+#X connect 4 1 2 1;
+#X connect 4 2 2 2;

cyfaust/resources/libraries/examples/physicalModeling/faust-stk/pd-patches/plucked.pd

@@ -0,0 +1,20 @@
+#N canvas 160 22 767 702 10;
+#X msg 278 546 \; pd dsp 1;
+#X msg 278 584 \; pd dsp 0;
+#X obj 22 501 audio-out;
+#X obj 262 13 midi-in 2;
+#X obj 19 77 sitar;
+#X obj 506 73 NLFeks;
+#X obj 262 76 bass;
+#X connect 3 0 4 0;
+#X connect 3 0 5 0;
+#X connect 3 0 6 0;
+#X connect 3 1 4 1;
+#X connect 3 1 5 1;
+#X connect 3 1 6 1;
+#X connect 4 1 2 1;
+#X connect 4 2 2 2;
+#X connect 5 1 2 1;
+#X connect 5 2 2 2;
+#X connect 6 1 2 1;
+#X connect 6 2 2 2;

cyfaust/resources/libraries/examples/physicalModeling/faust-stk/pd-patches/saxophone.pd

@@ -0,0 +1,10 @@
+#N canvas 223 61 501 634 10;
+#X msg 415 491 \; pd dsp 1;
+#X msg 415 528 \; pd dsp 0;
+#X obj 170 445 audio-out;
+#X obj 125 20 midi-in 2;
+#X obj 19 77 saxophony;
+#X connect 3 0 4 0;
+#X connect 3 1 4 1;
+#X connect 4 1 2 1;
+#X connect 4 2 2 2;

cyfaust/resources/libraries/examples/physicalModeling/faust-stk/pd-patches/tibetan.pd

@@ -0,0 +1,10 @@
+#N canvas 160 22 504 567 10;
+#X msg 387 424 \; pd dsp 1;
+#X msg 387 462 \; pd dsp 0;
+#X obj 131 379 audio-out;
+#X obj 125 20 midi-in 2;
+#X obj 19 77 tibetanBowl;
+#X connect 3 0 4 0;
+#X connect 3 1 4 1;
+#X connect 4 1 2 1;
+#X connect 4 2 2 2;

cyfaust/resources/libraries/examples/physicalModeling/faust-stk/pd-patches/trumpet.pd

@@ -0,0 +1,10 @@
+#N canvas 160 22 509 730 10;
+#X msg 387 581 \; pd dsp 1;
+#X msg 387 619 \; pd dsp 0;
+#X obj 131 536 audio-out;
+#X obj 125 20 midi-in 2;
+#X obj 19 77 brass;
+#X connect 3 0 4 0;
+#X connect 3 1 4 1;
+#X connect 4 1 2 1;
+#X connect 4 2 2 2;

cyfaust/resources/libraries/examples/physicalModeling/faust-stk/pd-patches/violin.pd

@@ -0,0 +1,10 @@
+#N canvas 283 39 572 726 10;
+#X msg 463 571 \; pd dsp 1;
+#X msg 463 609 \; pd dsp 0;
+#X obj 204 526 audio-out;
+#X obj 137 14 midi-in 2;
+#X obj 17 72 bowed;
+#X connect 3 0 4 0;
+#X connect 3 1 4 1;
+#X connect 4 1 2 1;
+#X connect 4 2 2 2;

cyfaust/resources/libraries/examples/physicalModeling/faust-stk/pd-patches/voiceSynth.pd

@@ -0,0 +1,10 @@
+#N canvas 223 61 503 674 10;
+#X msg 409 523 \; pd dsp 1;
+#X msg 409 560 \; pd dsp 0;
+#X obj 164 477 audio-out;
+#X obj 125 20 midi-in 2;
+#X obj 19 77 voiceForm;
+#X connect 3 0 4 0;
+#X connect 3 1 4 1;
+#X connect 4 1 2 1;
+#X connect 4 2 2 2;

cyfaust/resources/libraries/examples/physicalModeling/faust-stk/pd-patches/woodenBare.pd

@@ -0,0 +1,10 @@
+#N canvas 418 70 372 573 10;
+#X msg 285 424 \; pd dsp 1;
+#X msg 285 462 \; pd dsp 0;
+#X obj 23 370 audio-out;
+#X obj 23 20 midi-in 2;
+#X obj 23 71 uniBar;
+#X connect 3 0 4 0;
+#X connect 3 1 4 1;
+#X connect 4 1 2 1;
+#X connect 4 2 2 2;

cyfaust/resources/libraries/examples/physicalModeling/faust-stk/phonemes.h

@@ -0,0 +1,189 @@
+//Phonemes datas for voiceForm.dsp
+//©Romain Michon (rmichon@ccrma.stanford.edu), 2011
+//licence: STK-4.3
+
+float loadPhonemeGains(int index0, int index1) {
+	static float phonemeGains[32][2] =
+	{{1.0, 0.0},    // eee
+		{1.0, 0.0},    // ihh
+		{1.0, 0.0},    // ehh
+		{1.0, 0.0},    // aaa
+
+		{1.0, 0.0},    // ahh
+		{1.0, 0.0},    // aww
+		{1.0, 0.0},    // ohh
+		{1.0, 0.0},    // uhh
+
+		{1.0, 0.0},    // uuu
+		{1.0, 0.0},    // ooo
+		{1.0, 0.0},    // rrr
+		{1.0, 0.0},    // lll
+
+		{1.0, 0.0},    // mmm
+		{1.0, 0.0},    // nnn
+		{1.0, 0.0},    // nng
+		{1.0, 0.0},    // ngg
+
+		{0.0, 0.7},    // fff
+		{0.0, 0.7},    // sss
+		{0.0, 0.7},    // thh
+		{0.0, 0.7},    // shh
+
+		{0.0, 0.7},    // xxx
+		{0.0, 0.1},    // hee
+		{0.0, 0.1},    // hoo
+		{0.0, 0.1},    // hah
+
+		{1.0, 0.1},    // bbb
+		{1.0, 0.1},    // ddd
+		{1.0, 0.1},    // jjj
+		{1.0, 0.1},    // ggg
+
+		{1.0, 1.0},    // vvv
+		{1.0, 1.0},    // zzz
+		{1.0, 1.0},    // thz
+		{1.0, 1.0}     // zhh
+  };
+	return phonemeGains[index0][index1];
+}
+	
+float loadPhonemeParameters(int index0, int index1, int index2){
+	static float phonemeParameters[32][4][3] =
+  {{  { 273, 0.996,  10},       // eee (beet)
+      {2086, 0.945, -16}, 
+      {2754, 0.979, -12}, 
+      {3270, 0.440, -17}},
+   {  { 385, 0.987,  10},       // ihh (bit)
+      {2056, 0.930, -20},
+      {2587, 0.890, -20}, 
+      {3150, 0.400, -20}},
+   {  { 515, 0.977,  10},       // ehh (bet)
+      {1805, 0.810, -10}, 
+      {2526, 0.875, -10}, 
+      {3103, 0.400, -13}},
+   {  { 773, 0.950,  10},       // aaa (bat)
+      {1676, 0.830,  -6},
+      {2380, 0.880, -20}, 
+      {3027, 0.600, -20}},
+     
+   {  { 770, 0.950,   0},       // ahh (father)
+      {1153, 0.970,  -9},
+      {2450, 0.780, -29},
+      {3140, 0.800, -39}},
+   {  { 637, 0.910,   0},       // aww (bought)
+      { 895, 0.900,  -3},
+      {2556, 0.950, -17},
+      {3070, 0.910, -20}},
+   {  { 637, 0.910,   0},       // ohh (bone)  NOTE::  same as aww (bought)
+      { 895, 0.900,  -3},
+      {2556, 0.950, -17},
+      {3070, 0.910, -20}},
+   {  { 561, 0.965,   0},       // uhh (but)
+      {1084, 0.930, -10}, 
+      {2541, 0.930, -15}, 
+      {3345, 0.900, -20}},
+    
+   {  { 515, 0.976,   0},       // uuu (foot)
+      {1031, 0.950,  -3},
+      {2572, 0.960, -11},
+      {3345, 0.960, -20}},
+   {  { 349, 0.986, -10},       // ooo (boot)
+      { 918, 0.940, -20},
+      {2350, 0.960, -27},
+      {2731, 0.950, -33}},
+   {  { 394, 0.959, -10},       // rrr (bird)
+      {1297, 0.780, -16},
+      {1441, 0.980, -16},
+      {2754, 0.950, -40}},
+   {  { 462, 0.990,  +5},       // lll (lull)
+      {1200, 0.640, -10},
+      {2500, 0.200, -20},
+      {3000, 0.100, -30}},
+     
+   {  { 265, 0.987, -10},       // mmm (mom)
+      {1176, 0.940, -22},
+      {2352, 0.970, -20},
+      {3277, 0.940, -31}},
+   {  { 204, 0.980, -10},       // nnn (nun)
+      {1570, 0.940, -15},
+      {2481, 0.980, -12},
+      {3133, 0.800, -30}},
+   {  { 204, 0.980, -10},       // nng (sang)    NOTE:: same as nnn
+      {1570, 0.940, -15},
+      {2481, 0.980, -12},
+      {3133, 0.800, -30}},
+   {  { 204, 0.980, -10},       // ngg (bong)    NOTE:: same as nnn
+      {1570, 0.940, -15},
+      {2481, 0.980, -12},
+      {3133, 0.800, -30}},
+     
+   {  {1000, 0.300,   0},       // fff
+      {2800, 0.860, -10},
+      {7425, 0.740,   0},
+      {8140, 0.860,   0}},
+   {  {0,    0.000,   0},       // sss
+      {2000, 0.700, -15},
+      {5257, 0.750,  -3}, 
+      {7171, 0.840,   0}},
+   {  { 100, 0.900,   0},       // thh
+      {4000, 0.500, -20},
+      {5500, 0.500, -15},
+      {8000, 0.400, -20}},
+   {  {2693, 0.940,   0},       // shh
+      {4000, 0.720, -10},
+      {6123, 0.870, -10},
+      {7755, 0.750, -18}},
+
+   {  {1000, 0.300, -10},       // xxx           NOTE:: Not Really Done Yet
+      {2800, 0.860, -10},
+      {7425, 0.740,   0},
+      {8140, 0.860,   0}},
+   {  { 273, 0.996, -40},       // hee (beet)    (noisy eee)
+      {2086, 0.945, -16}, 
+      {2754, 0.979, -12}, 
+      {3270, 0.440, -17}},
+   {  { 349, 0.986, -40},       // hoo (boot)    (noisy ooo)
+      { 918, 0.940, -10},
+      {2350, 0.960, -17},
+      {2731, 0.950, -23}},
+   {  { 770, 0.950, -40},       // hah (father)  (noisy ahh)
+      {1153, 0.970,  -3},
+      {2450, 0.780, -20},
+      {3140, 0.800, -32}},
+     
+   {  {2000, 0.700, -20},       // bbb           NOTE:: Not Really Done Yet
+      {5257, 0.750, -15},
+      {7171, 0.840,  -3}, 
+      {9000, 0.900,   0}},
+   {  { 100, 0.900,   0},       // ddd           NOTE:: Not Really Done Yet
+      {4000, 0.500, -20},
+      {5500, 0.500, -15},
+      {8000, 0.400, -20}},
+   {  {2693, 0.940,   0},       // jjj           NOTE:: Not Really Done Yet
+      {4000, 0.720, -10},
+      {6123, 0.870, -10},
+      {7755, 0.750, -18}},
+   {  {2693, 0.940,   0},       // ggg           NOTE:: Not Really Done Yet
+      {4000, 0.720, -10},
+      {6123, 0.870, -10},
+      {7755, 0.750, -18}},
+     
+   {  {2000, 0.700, -20},       // vvv           NOTE:: Not Really Done Yet
+      {5257, 0.750, -15},
+      {7171, 0.840,  -3}, 
+      {9000, 0.900,   0}},
+   {  { 100, 0.900,   0},       // zzz           NOTE:: Not Really Done Yet
+      {4000, 0.500, -20},
+      {5500, 0.500, -15},
+      {8000, 0.400, -20}},
+   {  {2693, 0.940,   0},       // thz           NOTE:: Not Really Done Yet
+      {4000, 0.720, -10},
+      {6123, 0.870, -10},
+      {7755, 0.750, -18}},
+   {  {2693, 0.940,   0},       // zhh           NOTE:: Not Really Done Yet
+      {4000, 0.720, -10},
+      {6123, 0.870, -10},
+      {7755, 0.750, -18}}
+  };
+	return phonemeParameters[index0][index1][index2];
+}

cyfaust/resources/libraries/examples/physicalModeling/faust-stk/piano.dsp

@@ -0,0 +1,255 @@
+declare name "piano";
+declare description "WaveGuide Commuted Piano";
+declare author "Romain Michon (rmichon@ccrma.stanford.edu)";
+declare copyright "Romain Michon";
+declare version "1.0";
+declare licence "STK-4.3"; // Synthesis Tool Kit 4.3 (MIT style license);
+declare description "A commuted WaveGuide piano."; 
+
+import("instruments.lib");
+
+//==================== GUI SPECIFICATION ================
+
+freq = nentry("h:Basic_Parameters/freq [1][unit:Hz] [tooltip:Tone frequency]",440,20,20000,1);
+gain = nentry("h:Basic_Parameters/gain [1][tooltip:Gain (value between 0 and 1)]",1,0,1,0.01); 
+gate = button("h:Basic_Parameters/gate [1][tooltip:noteOn = 1, noteOff = 0]");
+
+brightnessFactor = hslider("v:Physical_Parameters/Brightness_Factor
+[2][tooltip:A value between 0 and 1]",0,0,1,0.01);
+detuningFactor = hslider("v:Physical_Parameters/Detuning_Factor
+[2][tooltip:A value between 0 and 1]",0.1,0,1,0.01)*10;
+stiffnessFactor = hslider("v:Physical_Parameters/Stiffness_Factor
+[2][tooltip:A value between 0 and 1]",0.28,0,1,0.01)*3.7;
+hammerHardness = hslider("v:Physical_Parameters/Hammer_Hardness
+[2][tooltip:A value between 0 and 1]",0.1,0,1,0.01)*0.1;
+
+//==================== COMMUTED PIANO PARAMETERS ================
+
+//variables to set keybord splitting zone
+DCB2_TURNOFF_KEYNUM = 92;
+FIRST_HIGH_NOTE = 88;
+PEDAL_ENVELOPE_T60 = 7;
+
+//convert an amplitude in db
+dbinv(x) = pow(10,0.05*x);
+
+//convert a frequency in a midi note number
+freqToNoteNumber = (log-log(440))/log(2)*12+69+0.5 : int;
+freqn = freq : freqToNoteNumber;
+
+//a counter that restart a every note-on
+cntSample = *(gate)+1~_ : -(1);
+
+//==================== PIANO SOUND BOARD ================
+
+//exponential envelope with 3 phases for the pedal excitation	
+asympT60pedal(value,T60) = (*(factor) + constant)~_
+	with{
+		attDur = hammerHardness*float(ma.SR);
+		target = value*((cntSample < attDur) & (gate > 0));
+		factorAtt = exp (-1/(attDur)); 
+		factorG = exp(-1/(2*float(ma.SR)));
+		factorT60 = exp(-7/(T60*float(ma.SR)));
+		factor = factorAtt*gate*(cntSample < attDur) + (cntSample >= attDur)*gate*factorG + ((gate-1)*-1)*factorT60;
+		constant = (1 - factor)*target;			
+	};
+
+//the sound of the piano sound board is generated by noise generator whose output gain is shaped by
+//an exponential envelope
+soundBoard = dryTapAmp*no.noise + pedalEnv*no.noise : *(0.5)
+	with{
+		//the values of the envelope cut-off time are stored in an external C++ function 
+		dryTapAmpT60 = ffunction(float getValueDryTapAmpT60(float), <piano.h>,"");
+		sustainPedalLevel = ffunction(float getValueSustainPedalLevel(float), <piano.h>,"");
+
+		pedalEnvCutOffTime = 1.4;
+		noteCutOffTime = freqn : dryTapAmpT60*gain;
+		pedalEnvValue = freqn : sustainPedalLevel*0.2;
+		noteEnvValue = 0.15;
+		dryTapAmp = asympT60(noteEnvValue,0,noteCutOffTime,gate);
+		pedalEnv = asympT60pedal(pedalEnvValue,pedalEnvCutOffTime);
+	};	
+
+//==================== HAMMER MODELING ================
+
+//To model the exitation hammer, we filter the sound from the soundboard with a serie of 4 one pole filters
+//connected in serie  
+
+//onePole is declared in instruments.lib
+calcHammer = onePole((1-hammerPole)*hammerGain,-hammerPole)
+	with{
+		//filter gains and coefficients are stored in external C++ files
+		loudPole = ffunction(float getValueLoudPole(float), <piano.h>,"");
+		softPole = ffunction(float getValuePoleValue(float), <piano.h>,"");
+		loudGain = ffunction(float getValueLoudGain(float), <piano.h>,"");
+		softGain = ffunction(float getValueSoftGain(float), <piano.h>,"");
+
+		loudPoleValue = loudPole(freqn) + (brightnessFactor*-0.25) + 0.02;	
+		softPoleValue = softPole(freqn);
+		normalizedVelocityValue = 1;
+		loudGainValue = loudGain(freqn);
+		softGainValue = softGain(freqn);
+		overallGain = 1;
+		hammerPole = softPoleValue + (loudPoleValue - softPoleValue)*normalizedVelocityValue;
+		hammerGain = overallGain*(softGainValue + (loudGainValue - softGainValue)*normalizedVelocityValue);
+	};
+
+hammer = seq(i,4,calcHammer);
+
+//==================== DC BLOCKERS ================
+
+//the values for the dcblockers a1 are stored in an external C++ file
+DCBa1 = ffunction(float getValueDCBa1(float), <piano.h>,"");
+dCBa1Value = freqn : DCBa1;
+dCBb0Value = 1 - dCBa1Value;
+
+dcBlock1 = poleZero((dCBb0Value*0.5),(dCBb0Value*-0.5),dCBa1Value);
+
+dcBlock2a = oneZero1(0.5,-0.5);
+	
+dcBlock2b = onePole(dCBb0Value,dCBa1Value);
+
+//==================== HIGH TUNING CALCULATION ================
+
+//high tones are not generated with the waveguide technique but with a serie of biquad filters
+
+r1_1 = ffunction(float getValuer1_1db(float), <piano.h>,"");
+r1_2 = ffunction(float getValuer1_2db(float), <piano.h>,"");
+r2 = ffunction(float getValuer2db(float), <piano.h>,"");
+r3 = ffunction(float getValuer3db(float), <piano.h>,"");
+e = ffunction(float getValueSecondStageAmpRatio(float), <piano.h>,"");
+second_partial_factor = ffunction(float getValueSecondPartialFactor(float), <piano.h>,"");
+third_partial_factor = ffunction(float getValueThirdPartialFactor(float), <piano.h>,"");
+bq4_gEarBalled = ffunction(float getValueBq4_gEarBalled(float), <piano.h>,"");
+
+r1_1Value = r1_1(freqn)/ma.SR : dbinv;
+r1_2Value = r1_2(freqn)/ma.SR : dbinv;
+r2Value = r2(freqn)/ma.SR : dbinv;
+r3Value = r3(freqn)/ma.SR : dbinv;
+eValue = e(freqn) : dbinv;
+second_partial_factorValue = second_partial_factor(freqn); 
+third_partial_factorValue = third_partial_factor(freqn);
+
+//set biquad gains and coeffs
+gainHighBq(0) = bq4_gEarBalled(freqn)/0.5;
+gainHighBq(1) = bq4_gEarBalled(freqn)/0.5;
+gainHighBq(2) = 1;
+gainHighBq(3) = 1;
+
+b0HighBq(0) = 1;
+b0HighBq(1) = 1;
+b0HighBq(2) = 1;
+b0HighBq(3) = 1;
+
+b1HighBq(0) = 0;
+b1HighBq(1) = 0;
+b1HighBq(2) = -2*(eValue*r1_1Value+(1-eValue)*r1_2Value)*cos(2*ma.PI*freq/ma.SR);
+b1HighBq(3) = 0;
+
+b2HighBq(0) = 0;
+b2HighBq(1) = 0;
+b2HighBq(2) = eValue*r1_1Value*r1_1Value+(1-eValue)*r1_2Value*r1_2Value;
+b2HighBq(3) = 0;
+
+a1HighBq(0) = -2*r3Value*cos(2*ma.PI*freq*third_partial_factorValue/ma.SR);
+a1HighBq(1) = -2*r2Value*cos(2*ma.PI*freq*second_partial_factorValue/ma.SR);
+a1HighBq(2) = -2*r1_1Value*cos(2*ma.PI*freq/ma.SR);
+a1HighBq(3) = -2*r1_2Value*cos(2*ma.PI*freq/ma.SR);
+
+a2HighBq(0) = r3Value*r3Value;
+a2HighBq(1) = r2Value*r2Value;
+a2HighBq(2) = r1_1Value*r1_1Value;
+a2HighBq(3) = r1_2Value*r1_2Value;
+
+highBqs = seq(i,4,*(gainHighBq(i)) : fi.TF2(b0HighBq(i),b1HighBq(i),b2HighBq(i),a1HighBq(i),a2HighBq(i)));
+
+hiPass = oneZero1(b0,b1)
+	with{
+		b0 = -0.5;
+		b1 = -0.5;
+	};
+
+//==================== STRIKE POSITION COMB FILTER EQ ================
+
+eq = _*filterGain : fi.TF2(b0,b1,b2,a1,a2)
+	with{
+		strikePosition = ffunction(float getValueStrikePosition(float), <piano.h>,"");
+		bandwidthFactors = ffunction(float getValueEQBandWidthFactor(float), <piano.h>,"");
+		eq_gain = ffunction(float getValueEQGain(float), <piano.h>,"");
+		eq_tuning = freq/strikePosition(freqn);
+		eq_bandwidth = bandwidthFactors(freqn)*freq;
+		filterGain = eq_gain(freqn);
+		a2 = (eq_bandwidth / ma.SR) * (eq_bandwidth / ma.SR);
+		a1 = -2*(eq_bandwidth / ma.SR)*cos(2*ma.PI*eq_tuning/ma.SR);
+		b0 = 0.5 - 0.5 * a2;
+		b1 = 0;
+		b2 = -b0;	
+	};
+	
+//==================== PIANO COUPLED STRINGS ================
+
+//values for the couple strings are stored in externals C++ functions
+singleStringDecRate = ffunction(float getValueSingleStringDecayRate(float), <piano.h>,"");
+singleStringZero = ffunction(float getValueSingleStringZero(float), <piano.h>,"");
+singleStringPole = ffunction(float getValueSingleStringPole(float), <piano.h>,"");
+stiffnessCoefficient = ffunction(float getValueStiffnessCoefficient(float), <piano.h>,"");
+
+//coupling filter parameters
+g = pow(10,((singleStringDecRate(freqn)/freq)/20)); //attenuation per period
+b = singleStringZero(freqn);
+a = singleStringPole(freqn);
+tempd = 3*(1-b)-g*(1-a);
+b0Coupling = 2*(g*(1-a)-(1-b))/tempd;
+b1Coupling = 2*(a*(1-b)-g*(1-a)*b)/tempd;
+a1Coupling = (g*(1-a)*b - 3*a*(1-b))/tempd;
+
+//string stiffness
+stiffness = stiffnessFactor*stiffnessCoefficient(freqn);
+
+stiffnessAP = poleZero(b0s,b1s,a1s) 
+	with{
+		b0s = stiffness;
+		b1s = 1;
+		a1s = stiffness;
+	};
+	
+delayG(frequency,stiffnessCoefficient) = de.fdelay(4096,delayLength)
+	with{
+		allPassPhase(a1,WT) = atan2((a1*a1-1.0)*sin(WT),(2.0*a1+(a1*a1+1.0)*cos(WT)));
+		poleZeroPhase(b0,b1,a1,WT) = atan2(-b1*sin(WT)*(1 + a1*cos(WT)) + a1*sin(WT)*(b0 + b1*cos(WT)),
+						   (b0 + b1*cos(WT))*(1 + a1*cos(WT)) + b1*sin(WT)*a1*sin(WT));
+		wT = frequency*2*ma.PI/ma.SR;
+		delayLength = (2*ma.PI + 3*allPassPhase(stiffnessCoefficient, wT) +
+						poleZeroPhase((1+2*b0Coupling),
+						a1Coupling + 2*b1Coupling, a1Coupling, wT)) / wT;	
+	};
+		
+coupledStrings = (parallelStrings <: (_,(_+_ <: _,_),_ : _,_,(_ : couplingFilter),_ : adder))~(_,_) : !,!,_
+	with{
+		releaseLoopGain = ffunction(float getValueReleaseLoopGain(float), <piano.h>,"");
+		hz = ffunction(float getValueDetuningHz(float), <piano.h>,"");
+		coupledStringLoopGain = gate*0.9996 + ((gate-1)*-1)*releaseLoopGain(freqn)*0.9 : si.smoo;
+		couplingFilter = poleZero(b0Coupling,b1Coupling,a1Coupling);
+		hzValue = hz(freqn);
+		freq1 = freq + 0.5*hzValue*detuningFactor;
+		freq2 = freq - 0.5*hzValue*detuningFactor;
+		delay1 = delayG(freq1,stiffness);
+		delay2 = delayG(freq2,stiffness);
+		parallelStrings(x,y) = _ <: (+(x)*coupledStringLoopGain : seq(i,3,stiffnessAP) : delay1),
+				(_+y*coupledStringLoopGain : seq(i,3,stiffnessAP) : delay2);
+		adder(w,x,y,z) = (y <: +(w),+(z)),x ;	
+	};
+
+//stereoizer is declared in instruments.lib and implement a stereo spacialisation in function of 
+//the frequency period in number of samples 
+stereo = stereoizer(ma.SR/freq);
+
+//==================== PROCESSING ================
+
+conditionLowNote = freqn < FIRST_HIGH_NOTE;
+conditionHighNote = freqn >= FIRST_HIGH_NOTE;
+
+process = soundBoard <: (*(conditionLowNote)*6 : hammer : dcBlock1 : coupledStrings <: +(eq)),
+(*(conditionHighNote) : hiPass : dcBlock1 : hammer : dcBlock2a : highBqs : dcBlock2b) :> + : *(12) : 
+stereo : instrReverb;
+