blob: 8cb6660321e8755b612eab5df0c4ce8f0680521f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
#N canvas 124 20 599 828 12;
#X floatatom 169 520 0 0 0 0 - - -;
#X floatatom 169 446 0 0 0 0 - - -;
#X text 462 208 START;
#X floatatom 190 303 0 0 0 0 - - -;
#X obj 190 280 r incr;
#X obj 168 255 metro 50;
#X floatatom 168 373 5 0 0 0 - - -;
#X obj 168 394 s phase;
#X obj 168 350 +;
#X obj 169 469 s dropoff+;
#X obj 169 622 s interval+;
#X floatatom 169 599 0 0 0 0 - - -;
#X obj 169 543 s pitch+;
#X obj 169 423 r dropoff;
#X obj 169 497 r pitch;
#X obj 169 576 r interval;
#X obj 168 212 r metro;
#X obj 228 345 f;
#X obj 12 212 shepvoice 0;
#X floatatom 83 708 0 0 0 0 - - -;
#X obj 83 685 r rev;
#X obj 138 685 r revtime;
#X floatatom 138 708 0 0 0 0 - - -;
#X obj 228 368 mod 10000;
#X obj 168 327 f;
#X obj 73 742 rev2~;
#X obj 12 769 output~;
#X obj 168 235 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X msg 446 225 \; dropoff 10 \; pitch 60 \; interval 120 \; metro 1
\; rev 84 \; revtime 87 \; incr -2 \; pd dsp 1;
#X text 27 7 SHEPARD TONE;
#X text 339 804 updated for Pd version 0.37;
#X obj 12 235 shepvoice 500;
#X obj 12 258 shepvoice 1000;
#X obj 12 281 shepvoice 1500;
#X obj 12 304 shepvoice 2000;
#X obj 12 327 shepvoice 2500;
#X obj 12 350 shepvoice 3000;
#X obj 12 373 shepvoice 3500;
#X obj 12 396 shepvoice 4000;
#X obj 12 419 shepvoice 4500;
#X obj 12 442 shepvoice 5000;
#X obj 12 465 shepvoice 5500;
#X obj 12 488 shepvoice 6000;
#X obj 12 511 shepvoice 6500;
#X obj 12 534 shepvoice 7000;
#X obj 12 557 shepvoice 7500;
#X obj 12 580 shepvoice 8000;
#X obj 12 603 shepvoice 8500;
#X obj 12 626 shepvoice 9000;
#X obj 12 649 shepvoice 9500;
#X text 25 31 This patch is a bank of 20 sinusoids \, 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 controlls 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.;
#X connect 0 0 12 0;
#X connect 1 0 9 0;
#X connect 3 0 24 1;
#X connect 4 0 3 0;
#X connect 5 0 24 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 27 0;
#X connect 17 0 23 0;
#X connect 18 0 31 0;
#X connect 19 0 25 1;
#X connect 20 0 19 0;
#X connect 21 0 22 0;
#X connect 22 0 25 2;
#X connect 23 0 8 1;
#X connect 24 0 8 0;
#X connect 25 0 26 0;
#X connect 25 1 26 1;
#X connect 27 0 5 0;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 33 0 34 0;
#X connect 34 0 35 0;
#X connect 35 0 36 0;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 38 0 39 0;
#X connect 39 0 40 0;
#X connect 40 0 41 0;
#X connect 41 0 42 0;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 44 0 45 0;
#X connect 45 0 46 0;
#X connect 46 0 47 0;
#X connect 47 0 48 0;
#X connect 48 0 49 0;
#X connect 49 0 25 0;
#X connect 49 0 26 0;
#X connect 49 0 26 1;
|
