#N canvas 685 23 577 667 12;
#X declare -stdpath ./;
#X floatatom 110 532 0 0 0 0 - - - 0;
#X floatatom 110 458 0 0 0 0 - - - 0;
#X text 297 216 START;
#X floatatom 127 315 0 0 0 0 - - - 0;
#X obj 127 292 r incr;
#X obj 109 267 metro 50;
#X floatatom 109 385 5 0 0 0 - - - 0;
#X obj 109 409 s phase;
#X obj 109 362 +;
#X obj 110 481 s dropoff+;
#X obj 110 634 s interval+;
#X floatatom 110 611 0 0 0 0 - - - 0;
#X obj 110 555 s pitch+;
#X obj 110 435 r dropoff;
#X obj 110 509 r pitch;
#X obj 110 588 r interval;
#X obj 109 217 r metro;
#X obj 166 357 f;
#X floatatom 328 452 5 0 0 0 - - - 0;
#X obj 328 429 r rev;
#X obj 376 430 r revtime;
#X floatatom 376 453 5 0 0 0 - - - 0;
#X obj 166 380 mod 10000;
#X obj 109 339 f;
#X obj 306 491 rev2~, f 13;
#X obj 277 526 output~;
#X obj 109 242 tgl 17 0 empty empty empty 0 -6 0 8 #dfdfdf #000000
#000000 0 1;
#X text 46 23 SHEPARD TONE;
#X obj 371 24 declare -stdpath ./;
#X obj 306 399 clone 20 shepvoice;
#X text 26 53 This patch has a bank of 20 sinusoids (the [shepvoice]
abstraction with 20 copies in [clone]) \, arranged so that their frequencies
sweep upward or downward in parallel \, and their amplitudes fade in
and out so that each one is quiet when it wraps around from one end
to the other. The overall "phase" computed here is added to each voice's
relative phase (its creation argument). The "incr" parameter controls
how fast the phase changes \, "dropoff" the slope at which the amplitudes
fall off at the ends \, "pitch" the center pitch of the cluster \,
"interval" the number of (tenths of halftones) between successive voices
\, and "rev" and "revtime" the reverberator at bottom., f 71;
#X msg 281 233 \; dropoff 10 \; pitch 60 \; interval 120 \; metro 1
\; rev 84 \; revtime 87 \; incr -2;
#X text 330 612 updated for Pd version 0.52;
#X connect 0 0 12 0;
#X connect 1 0 9 0;
#X connect 3 0 23 1;
#X connect 4 0 3 0;
#X connect 5 0 23 0;
#X connect 6 0 7 0;
#X connect 8 0 17 0;
#X connect 8 0 6 0;
#X connect 11 0 10 0;
#X connect 13 0 1 0;
#X connect 14 0 0 0;
#X connect 15 0 11 0;
#X connect 16 0 26 0;
#X connect 17 0 22 0;
#X connect 18 0 24 1;
#X connect 19 0 18 0;
#X connect 20 0 21 0;
#X connect 21 0 24 2;
#X connect 22 0 8 1;
#X connect 23 0 8 0;
#X connect 24 0 25 0;
#X connect 24 1 25 1;
#X connect 26 0 5 0;
#X connect 29 0 24 0;
