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
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
#N canvas 70 263 765 380 12;
#X floatatom 99 212 0 0 120 0 - - -;
#X floatatom 105 340 0 0 120 0 - - -;
#N canvas 0 0 539 448 tests 0;
#X obj 67 33 inlet;
#X obj 309 189 inlet;
#X obj 235 207 line~;
#X obj 235 230 cos~;
#X obj 235 68 loadbang;
#X msg 235 91 -0.25;
#X obj 235 276 *~;
#X obj 186 309 hip~ 5;
#X floatatom 308 218 0 0 0 0 - - -;
#X obj 308 264 osc~ 440;
#X obj 308 241 mtof;
#X obj 235 253 *~ 0.1;
#X obj 308 299 *~;
#X obj 326 325 *~;
#X obj 292 330 *~;
#X msg 279 150 -0.25 \, 0.25 \$1;
#X obj 41 148 biquad~ 0 0 1 -1 0;
#X obj 63 70 t b;
#X obj 104 72 del 3;
#X obj 57 101 1;
#X obj 96 101 0;
#X obj 41 355 outlet~;
#X obj 279 126 inlet;
#X obj 51 192 *~;
#X connect 0 0 17 0;
#X connect 1 0 8 0;
#X connect 2 0 3 0;
#X connect 3 0 11 0;
#X connect 4 0 5 0;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 21 0;
#X connect 8 0 10 0;
#X connect 9 0 6 1;
#X connect 9 0 12 0;
#X connect 9 0 12 1;
#X connect 9 0 13 0;
#X connect 10 0 9 0;
#X connect 11 0 6 0;
#X connect 12 0 13 1;
#X connect 12 0 6 1;
#X connect 12 0 14 0;
#X connect 12 0 14 1;
#X connect 13 0 6 1;
#X connect 14 0 6 1;
#X connect 15 0 2 0;
#X connect 16 0 23 0;
#X connect 17 0 18 0;
#X connect 17 0 19 0;
#X connect 18 0 20 0;
#X connect 19 0 16 0;
#X connect 19 0 23 1;
#X connect 20 0 16 0;
#X connect 20 0 23 1;
#X connect 22 0 15 0;
#X connect 23 0 21 0;
#X restore 16 171 pd tests;
#X msg 55 52 10;
#X msg 53 79 20;
#X msg 52 107 100;
#X msg 51 132 500;
#X obj 16 32 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 36 26 impulse;
#N canvas 0 0 450 300 output 0;
#X obj 54 202 dac~;
#X obj 132 119 pack 0 100;
#X obj 132 142 line~;
#X obj 54 165 *~;
#X obj 132 97 dbtorms;
#X obj 33 42 inlet~;
#X obj 177 42 inlet;
#X obj 177 74 clip 0 120;
#X msg 257 133 \; pd dsp 1;
#X obj 98 42 inlet~;
#X obj 94 168 *~;
#X connect 1 0 2 0;
#X connect 2 0 3 1;
#X connect 2 0 10 1;
#X connect 3 0 0 0;
#X connect 4 0 1 0;
#X connect 5 0 3 0;
#X connect 6 0 7 0;
#X connect 6 0 8 0;
#X connect 7 0 4 0;
#X connect 9 0 10 0;
#X connect 10 0 0 1;
#X restore 17 340 pd output;
#X floatatom 96 144 0 0 0 0 - - -;
#X text 135 113 tone;
#X text 134 129 pitch;
#X text 140 212 level \, dB;
#X floatatom 134 234 0 0 100 0 - - -;
#X text 175 234 liveness \, 0-100;
#X floatatom 169 258 4 0 5000 0 - - -;
#X floatatom 204 281 0 0 100 0 - - -;
#X text 217 256 crossover frequency \, Hz.;
#X text 240 283 HF damping \, percent;
#X text 140 341 output level \, dB;
#X text 94 52 tone;
#X text 95 69 bursts;
#X text 131 147 (60 for;
#X text 114 167 middle C);
#X obj 29 307 rev3~ 100 90 3000 20;
#X text 263 4 REV3~ - hard-core \, 2-in \, 4-out reverberator;
#X text 236 56 The creation arguments (level \, liveness \, crossover
frequency \, HF damping) may also be supplied in four inlets as shown.
The "liveness" (actually the internal feedback percentage) should be
100 for infinite reverb \, 90 for longish \, and 80 for short. The
crossover frequency and HF damping work together: at frequencies above
crossover \, the feedback is diminished by the "damping" as a percentage.
So zero HF damping means equal reverb time at all frequencies \, and
100% damping means almost nothing above the crossover frequency gets
through.;
#X text 236 29 (A more expensive \, presumably better \, one than rev2~.)
;
#X text 470 352 modified for Pd version 0.37-1;
#X connect 0 0 25 2;
#X connect 1 0 9 2;
#X connect 2 0 9 0;
#X connect 2 0 25 0;
#X connect 3 0 2 1;
#X connect 4 0 2 1;
#X connect 5 0 2 1;
#X connect 6 0 2 1;
#X connect 7 0 2 0;
#X connect 10 0 2 2;
#X connect 14 0 25 3;
#X connect 16 0 25 4;
#X connect 17 0 25 5;
#X connect 25 0 9 0;
#X connect 25 1 9 1;
|
