#N canvas 0 0 879 443 10;
#N canvas 376 147 756 534 engine 0;
#X obj 179 259 cos~;
#X obj 179 282 +~ 1;
#X obj 266 258 cos~;
#X obj 266 281 +~ 1;
#X obj 179 425 outlet~;
#X obj 266 426 outlet~;
#X obj 365 257 cos~;
#X obj 365 280 +~ 1;
#X obj 460 255 cos~;
#X obj 460 278 +~ 1;
#X obj 14 32 inlet~;
#X obj 535 284 line~;
#X obj 535 263 pack 0 50;
#X obj 460 339 *~;
#X obj 365 341 *~;
#X obj 266 342 *~;
#X obj 179 343 *~;
#X obj 180 94 line~;
#X obj 180 73 pack 0 50;
#X obj 179 124 phasor~;
#X obj 365 424 outlet~;
#X obj 460 421 outlet~;
#X text 609 238 modulation;
#X obj 179 404 vd~ \$0-c;
#X obj 266 404 vd~ \$0-c;
#X obj 365 402 vd~ \$0-c;
#X obj 460 400 vd~ \$0-c;
#X obj 180 28 r \$0-freq;
#X obj 535 239 r \$0-mod;
#X obj 460 376 +~ 0;
#X obj 366 376 +~ 0;
#X obj 266 379 +~ 0;
#X obj 180 376 +~ 0;
#N canvas 314 253 450 300 sampledur 0;
#X obj 70 100 samplerate~;
#X obj 70 144 swap 1000;
#X obj 70 172 /;
#X obj 70 51 loadbang;
#X msg 82 77 bang;
#X obj 70 205 outlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 2 1;
#X connect 2 0 5 0;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X restore 546 343 pd sampledur;
#X obj 14 91 delwrite~ \$0-c 2000;
#X obj 14 63 *~ 0.5;
#X obj 525 198 loadbang;
#X obj 525 220 0.2;
#X obj 266 214 wrap~;
#X obj 364 218 wrap~;
#X obj 459 218 wrap~;
#X obj 180 51 / 8;
#X text 177 7 frequency;
#X obj 266 193 *~ 2;
#X obj 364 197 *~ 4;
#X obj 459 197 *~ 8;
#X connect 0 0 1 0;
#X connect 1 0 16 0;
#X connect 2 0 3 0;
#X connect 3 0 15 0;
#X connect 6 0 7 0;
#X connect 7 0 14 0;
#X connect 8 0 9 0;
#X connect 9 0 13 0;
#X connect 10 0 35 0;
#X connect 11 0 13 1;
#X connect 11 0 14 1;
#X connect 11 0 15 1;
#X connect 11 0 16 1;
#X connect 12 0 11 0;
#X connect 13 0 29 0;
#X connect 14 0 30 0;
#X connect 15 0 31 0;
#X connect 16 0 32 0;
#X connect 17 0 19 0;
#X connect 18 0 17 0;
#X connect 19 0 0 0;
#X connect 19 0 43 0;
#X connect 19 0 44 0;
#X connect 19 0 45 0;
#X connect 23 0 4 0;
#X connect 24 0 5 0;
#X connect 25 0 20 0;
#X connect 26 0 21 0;
#X connect 27 0 41 0;
#X connect 28 0 12 0;
#X connect 29 0 26 0;
#X connect 30 0 25 0;
#X connect 31 0 24 0;
#X connect 32 0 23 0;
#X connect 33 0 29 1;
#X connect 33 0 30 1;
#X connect 33 0 31 1;
#X connect 33 0 32 1;
#X connect 35 0 34 0;
#X connect 36 0 37 0;
#X connect 37 0 11 0;
#X connect 38 0 2 0;
#X connect 39 0 6 0;
#X connect 40 0 8 0;
#X connect 41 0 18 0;
#X connect 43 0 38 0;
#X connect 44 0 39 0;
#X connect 45 0 40 0;
#X restore 118 138 pd engine;
#X obj 118 113 inlet~;
#X obj 118 245 outlet~;
#X obj 177 245 outlet~;
#X obj 347 115 inlet;
#X obj 347 142 u_dispatch \$0 freq;
#X obj 347 164 u_dispatch \$0 mod;
#X obj 583 100 loadbang;
#X msg 583 125 freq 0.8 \, mod 1.8;
#X obj 404 114 u_loader e_rchorus-\$1 \$0;
#X text 108 20 another simple chorus. This is a Roland design with
delays driven by frequency dividers at 1 \, 1/2 \, 1/4 \, 1/8 times
the base chorus frequency instead of phase shifters.;
#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 602 39 pd LICENSE-GPL;
#X connect 0 0 2 0;
#X connect 0 1 3 0;
#X connect 0 2 2 0;
#X connect 0 3 3 0;
#X connect 1 0 0 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
