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
|
#N canvas 167 160 766 354 12;
#X floatatom 73 185 0 0 120 0 - - -;
#X floatatom 106 323 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 40 175 *~;
#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 17 154 pd tests;
#X msg 56 35 10;
#X msg 54 62 20;
#X msg 53 90 100;
#X msg 52 115 500;
#X obj 17 15 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 37 9 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 18 324 pd output;
#X floatatom 97 127 0 0 0 0 - - -;
#X text 136 96 tone;
#X text 135 112 pitch;
#X text 114 185 level \, dB;
#X floatatom 117 209 0 0 100 0 - - -;
#X text 158 209 liveness \, 0-100;
#X text 505 330 modified for Pd version 0.37;
#X floatatom 161 235 0 0 120 0 - - -;
#X floatatom 205 259 0 0 120 0 - - -;
#X text 192 235 crossover frequency \, Hz.;
#X text 238 260 HF damping \, percent;
#X obj 30 290 rev2~ 100 90 3000 20;
#X text 141 324 output level \, dB;
#X text 281 8 REV2~ - a simple 1-in \, 4-out reverberator;
#X text 95 35 tone;
#X text 96 52 bursts;
#X text 231 37 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 132 130 (60 for;
#X text 115 150 middle C);
#X connect 0 0 21 1;
#X connect 1 0 9 2;
#X connect 2 0 9 0;
#X connect 2 0 21 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 21 2;
#X connect 17 0 21 3;
#X connect 18 0 21 4;
#X connect 21 0 9 0;
#X connect 21 1 9 1;
|
