#N canvas 489 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 330 447 5 0 0 0 - - - 0;
#X obj 330 424 r rev;
#X obj 378 425 r revtime;
#X floatatom 378 448 5 0 0 0 - - - 0;
#X obj 166 380 mod 10000;
#X obj 109 339 f;
#X obj 308 486 rev2~, f 13;
#X obj 308 528 output~;
#X obj 109 242 tgl 19 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 308 394 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 317 614 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;
