#N canvas 24 28 1106 642 10;
#N canvas 424 366 478 366 pmosc 0;
#X obj 119 199 cos~;
#X obj 119 167 +~;
#X obj 120 273 outlet~;
#X obj 119 115 phasor~;
#X obj 119 86 inlet~;
#X obj 136 146 inlet~;
#X obj 160 199 inlet~;
#X obj 120 236 *~;
#X text 38 21 phase-modulation oscillator;
#X text 38 57 signal inlets: 1: freq \, 2: phase \, 3: amp;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 3 0 1 0;
#X connect 4 0 3 0;
#X connect 5 0 1 1;
#X connect 6 0 7 1;
#X connect 7 0 2 0;
#X restore 270 352 pd pmosc;
#N canvas 424 366 478 366 pmosc 0;
#X obj 119 199 cos~;
#X obj 119 167 +~;
#X obj 120 273 outlet~;
#X obj 119 115 phasor~;
#X obj 119 86 inlet~;
#X obj 136 146 inlet~;
#X obj 160 199 inlet~;
#X obj 120 236 *~;
#X text 38 21 phase-modulation oscillator;
#X text 38 57 signal inlets: 1: freq \, 2: phase \, 3: amp;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 3 0 1 0;
#X connect 4 0 3 0;
#X connect 5 0 1 1;
#X connect 6 0 7 1;
#X connect 7 0 2 0;
#X restore 245 396 pd pmosc;
#N canvas 424 366 478 366 pmosc 0;
#X obj 119 199 cos~;
#X obj 119 167 +~;
#X obj 120 273 outlet~;
#X obj 119 115 phasor~;
#X obj 119 86 inlet~;
#X obj 136 146 inlet~;
#X obj 160 199 inlet~;
#X obj 120 236 *~;
#X text 38 21 phase-modulation oscillator;
#X text 38 57 signal inlets: 1: freq \, 2: phase \, 3: amp;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 3 0 1 0;
#X connect 4 0 3 0;
#X connect 5 0 1 1;
#X connect 6 0 7 1;
#X connect 7 0 2 0;
#X restore 136 354 pd pmosc;
#N canvas 424 366 478 366 pmosc 0;
#X obj 119 199 cos~;
#X obj 119 167 +~;
#X obj 120 273 outlet~;
#X obj 119 115 phasor~;
#X obj 119 86 inlet~;
#X obj 136 146 inlet~;
#X obj 160 199 inlet~;
#X obj 120 236 *~;
#X text 38 21 phase-modulation oscillator;
#X text 38 57 signal inlets: 1: freq \, 2: phase \, 3: amp;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 3 0 1 0;
#X connect 4 0 3 0;
#X connect 5 0 1 1;
#X connect 6 0 7 1;
#X connect 7 0 2 0;
#X restore 109 399 pd pmosc;
#X obj 108 219 mtof;
#X obj 107 523 outlet~;
#X obj 397 149 * 0.535887;
#X obj 667 149 * 0.108819;
#X obj 671 281 / 127;
#X obj 397 286 / 127;
#X obj 397 127 / 127;
#X obj 397 172 t a a;
#X obj 397 308 t a a;
#X obj 671 303 t a a;
#X obj 667 169 t a a;
#X obj 667 123 / 127;
#X obj 671 253 r \$0-vel;
#X obj 667 94 r \$0-vel;
#X obj 397 258 r \$0-vel;
#X obj 397 101 r \$0-vel;
#X obj 108 81 unpack 0 0;
#X obj 175 105 s \$0-vel;
#X obj 108 57 inlet;
#X text 691 513 + --> Out;
#X text 644 527 2->1--/;
#X text 525 513 Algorithm 5 is : 4->3--;
#X text 551 471 4-op FM Rhodey piano based on algorithm 5:;
#X text 310 371 op 4;
#X text 277 413 op 3;
#X text 144 417 op 1;
#X text 169 370 op 2;
#X text 791 216 op 4;
#X text 819 324 op 3;
#X text 572 330 op 1;
#X text 573 198 op 2;
#X obj 840 31 inlet;
#X text 102 31 Midi: <pitch> <velocity>;
#X obj 667 197 c_adsr 1 1 1000 0 40;
#X obj 671 330 c_adsr 1 1 250 0 40;
#X obj 397 334 c_adsr 1 1 1500 0 40;
#X obj 397 199 c_adsr 1 1 1500 0 40;
#X obj 108 493 c_xfade f;
#X text 532 570 Clone of the STK Rhodey;
#N canvas 29 43 450 300 vib 0;
#X obj 144 64 inlet~;
#X obj 145 210 outlet~;
#X obj 144 168 +~;
#X obj 200 95 osc~ 0;
#X obj 200 64 inlet;
#X obj 281 65 inlet;
#X obj 199 123 *~ 0;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X connect 3 0 6 0;
#X connect 4 0 3 0;
#X connect 5 0 6 1;
#X connect 6 0 2 1;
#X restore 108 278 pd vib;
#X obj 840 103 u_dispatch \$0 tone;
#X obj 840 123 u_dispatch \$0 mod;
#X obj 899 80 u_loader s_rhodey-\$1 \$0;
#X obj 190 493 pack 0 10;
#X obj 190 470 r \$0-tone;
#X obj 840 144 u_dispatch \$0 vib-freq;
#X obj 840 166 u_dispatch \$0 vib-depth;
#X obj 150 220 r \$0-vib-freq;
#X obj 162 243 r \$0-vib-depth;
#X obj 270 326 * 15;
#X obj 136 330 * 0.5;
#X obj 840 186 u_dispatch \$0 adsr24;
#X obj 561 88 r \$0-adsr24;
#X obj 561 112 / 127;
#X obj 666 222 *~ 1;
#X obj 397 221 *~ 1;
#X obj 135 376 *~ 1;
#X obj 182 329 r \$0-mod;
#X obj 275 437 loadbang;
#X msg 275 459 0.5;
#X obj 479 173 r \$0-decay;
#X obj 840 207 u_dispatch \$0 decay;
#X obj 479 301 r \$0-decay;
#N canvas 172 83 586 377 LICENSE-GPL 0;
#X text 57 88 This program is free software: you can redistribute it
and/or modify it under the terms of the GNU General Public License
as published by the Free Software Foundation \, either version 3 of
the License \, or (at your option) any later version.;
#X text 58 168 This program is distributed in the hope that it will
be useful \, but WITHOUT ANY WARRANTY \; without even the implied warranty
of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.;
#X text 57 261 You should have received a copy of the GNU General Public
License along with this program. If not \, see <http://www.gnu.org/licenses/>.
;
#X text 61 54 Copyright (C) 2009 \, Reality Jockey Ltd.;
#X text 60 325 See the file LICENSE.txt for the full license text.
;
#X restore 972 29 pd LICENSE-GPL;
#X connect 0 0 1 1;
#X connect 1 0 41 1;
#X connect 2 0 60 0;
#X connect 3 0 41 0;
#X connect 4 0 43 0;
#X connect 4 0 53 0;
#X connect 4 0 54 0;
#X connect 6 0 11 0;
#X connect 7 0 14 0;
#X connect 8 0 13 0;
#X connect 9 0 12 0;
#X connect 10 0 6 0;
#X connect 11 0 40 0;
#X connect 11 1 40 1;
#X connect 12 0 39 0;
#X connect 12 1 39 1;
#X connect 13 0 38 0;
#X connect 13 1 38 1;
#X connect 14 0 37 0;
#X connect 14 1 37 1;
#X connect 15 0 7 0;
#X connect 16 0 8 0;
#X connect 17 0 15 0;
#X connect 18 0 9 0;
#X connect 19 0 10 0;
#X connect 20 0 4 0;
#X connect 20 1 21 0;
#X connect 22 0 20 0;
#X connect 35 0 44 0;
#X connect 37 0 58 0;
#X connect 38 0 1 2;
#X connect 39 0 3 2;
#X connect 40 0 59 0;
#X connect 41 0 5 0;
#X connect 43 0 3 0;
#X connect 43 0 1 0;
#X connect 44 0 45 0;
#X connect 45 0 49 0;
#X connect 47 0 41 2;
#X connect 48 0 47 0;
#X connect 49 0 50 0;
#X connect 50 0 55 0;
#X connect 51 0 43 1;
#X connect 52 0 43 2;
#X connect 53 0 0 0;
#X connect 54 0 2 0;
#X connect 55 0 65 0;
#X connect 56 0 57 0;
#X connect 57 0 58 1;
#X connect 57 0 59 1;
#X connect 58 0 0 2;
#X connect 59 0 2 2;
#X connect 60 0 3 1;
#X connect 61 0 60 1;
#X connect 62 0 63 0;
#X connect 63 0 47 0;
#X connect 64 0 40 3;
#X connect 66 0 39 3;
