#N canvas 196 66 833 594 10;
#X obj 523 104 osc~ 220;
#X floatatom 652 157 5 0 0 0 - - -;
#X floatatom 523 83 5 0 0 0 - - -;
#X obj 521 272 soundoutput;
#X msg 709 178 freq \$1;
#X floatatom 709 157 5 0 0 0 - - -;
#X text 642 136 shift amount in Hz;
#X text 29 25 e_freqshift - shift all frequencies by a certain amount
;
#N canvas 129 294 659 624 REFERENCE 0;
#X text 114 174 Argument 0: name for state saving (required);
#X text 114 141 Summary: shift all frequencies by a certain amount
;
#X text 114 121 Name: e_freqshift;
#X text 114 194 Inlet 0: audio signal to effect;
#X text 114 214 Inlet 1: messages. freq <float>: set shift amount in
Hz. float: set shift amount in Hz.;
#X text 114 247 Outlet 0: shifted audio signal;
#X text 114 267 Description: This effect distroys the harmonic structure
of a tone \, if you want to keep that use pitchshift.;
#X text 111 529 Tags: frequency shift \, harmonies;
#X coords 0 -1 1 1 450 450 1 100 100;
#X restore 7 45 pd REFERENCE;
#X obj 522 202 e_freqshift \$0-NAME;
#N canvas 0 0 384 394 e-piano 0;
#X obj 127 122 makenote 100 100;
#X obj 127 145 pack 0 0;
#N canvas 145 44 577 652 random 0;
#X obj 100 99 select 1;
#X obj 100 35 inlet;
#X obj 174 203 * 200;
#X obj 174 231 t a a;
#X obj 449 409 outlet;
#X obj 174 144 random 4;
#X obj 174 169 + 1;
#X obj 174 268 delay;
#X obj 100 60 t a a;
#X obj 340 192 spigot 1;
#X obj 100 479 outlet;
#X obj 259 473 outlet;
#X obj 100 332 t b b b;
#X obj 269 39 inlet;
#X obj 449 380 - 1;
#X obj 259 367 random 40;
#X obj 259 387 + 40;
#X obj 100 451 m_majorscale 48;
#X obj 100 375 random 16;
#X connect 0 0 5 0;
#X connect 1 0 8 0;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 3 0 12 0;
#X connect 3 1 14 0;
#X connect 5 0 6 0;
#X connect 6 0 2 0;
#X connect 7 0 9 0;
#X connect 8 0 0 0;
#X connect 8 1 9 1;
#X connect 9 0 5 0;
#X connect 12 0 18 0;
#X connect 12 2 15 0;
#X connect 13 0 2 1;
#X connect 14 0 4 0;
#X connect 15 0 16 0;
#X connect 16 0 11 0;
#X connect 17 0 10 0;
#X connect 18 0 17 0;
#X restore 127 86 pd random notes;
#X obj 127 64 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X floatatom 143 168 5 0 0 3 pitch - -;
#X obj 127 38 inlet;
#X obj 126 263 outlet~;
#X obj 127 239 s_rhodey \$0-mypiano;
#X connect 0 0 1 0;
#X connect 0 0 4 0;
#X connect 0 1 1 1;
#X connect 1 0 7 0;
#X connect 2 0 0 0;
#X connect 2 1 0 1;
#X connect 2 2 0 2;
#X connect 3 0 2 0;
#X connect 5 0 3 0;
#X connect 7 0 6 0;
#X restore 597 105 pd e-piano;
#X obj 597 85 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X connect 0 0 9 0;
#X connect 1 0 9 1;
#X connect 2 0 0 0;
#X connect 4 0 9 1;
#X connect 5 0 4 0;
#X connect 9 0 3 0;
#X connect 9 0 3 1;
#X connect 10 0 9 0;
#X connect 11 0 10 0;
