aboutsummaryrefslogtreecommitdiff
path: root/reverbCm~.pd
blob: ed24e906f1eed0ab5887b8470844a044bcbadefb (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
109
110
111
112
113
114
115
116
117
118
119
120
121
#N canvas 606 114 811 495 10;
#N canvas 2 89 731 555 cmreverb 0;
#X obj 25 22 inlet~;
#X obj 85 22 inlet~;
#X obj 397 5 inlet;
#X obj 227 148 delread~ \$0-A 100;
#X obj 257 168 delread~ \$0-B 161.8;
#X obj 287 188 delread~ \$0-C 261.8;
#X obj 317 208 delread~ \$0-D 61.8;
#X obj 173 202 +~;
#X obj 215 202 +~;
#X obj 10 273 outlet~;
#X obj 80 273 outlet~;
#X obj 158 252 +~;
#X obj 262 253 +~;
#X obj 200 252 -~;
#X obj 302 252 -~;
#X obj 157 308 +~;
#X obj 201 309 +~;
#X obj 245 310 -~;
#X obj 284 310 -~;
#X obj 244 392 *~ 0;
#X obj 202 391 *~ 0;
#X obj 157 390 *~ 0;
#X obj 285 393 *~ 0;
#X obj 284 413 delwrite~ \$0-D 1000;
#X obj 245 436 delwrite~ \$0-C 1000;
#X obj 203 459 delwrite~ \$0-B 1000;
#X obj 158 481 delwrite~ \$0-A 1000;
#X obj 227 127 * 1;
#X obj 257 127 * 1.618;
#X obj 317 127 * 2.618;
#X obj 377 127 / 1.618;
#X obj 397 31 route /feedback /delay;
#X text 187 38 Claude M;
#X obj 384 298 f;
#X obj 442 70 * 381;
#X obj 409 250 / 2;
#X connect 0 0 7 0;
#X connect 1 0 8 0;
#X connect 2 0 31 0;
#X connect 3 0 7 1;
#X connect 4 0 8 1;
#X connect 5 0 14 0;
#X connect 5 0 12 0;
#X connect 6 0 14 1;
#X connect 6 0 12 1;
#X connect 7 0 9 0;
#X connect 7 0 11 0;
#X connect 7 0 13 0;
#X connect 8 0 10 0;
#X connect 8 0 11 1;
#X connect 8 0 13 1;
#X connect 11 0 15 0;
#X connect 11 0 17 0;
#X connect 12 0 17 1;
#X connect 12 0 15 1;
#X connect 13 0 16 0;
#X connect 13 0 18 0;
#X connect 14 0 16 1;
#X connect 14 0 18 1;
#X connect 15 0 21 0;
#X connect 16 0 20 0;
#X connect 17 0 19 0;
#X connect 18 0 22 0;
#X connect 19 0 24 0;
#X connect 20 0 25 0;
#X connect 21 0 26 0;
#X connect 22 0 23 0;
#X connect 27 0 3 0;
#X connect 28 0 4 0;
#X connect 29 0 5 0;
#X connect 30 0 6 0;
#X connect 31 0 35 0;
#X connect 31 1 34 0;
#X connect 33 0 22 1;
#X connect 33 0 19 1;
#X connect 33 0 20 1;
#X connect 33 0 21 1;
#X connect 34 0 27 0;
#X connect 34 0 28 0;
#X connect 34 0 29 0;
#X connect 34 0 30 0;
#X connect 35 0 33 0;
#X restore 38 113 pd cmreverb;
#X obj 4 16 inlet~;
#X obj 97 25 inlet~;
#X obj 44 361 outlet~;
#X obj 130 367 outlet~;
#X msg 164 98 /feedback \$1;
#X msg 278 133 /delay \$1;
#X text 160 166 Simple verb by Claude H;
#X obj 593 215 inlet params;
#X obj 593 261 print PARAM_NOTFOUND;
#X obj -4 293 tof/crossfade~ 2;
#X obj 114 196 tof/param /wet 0 /g slider 0 1;
#X obj 114 239 line~;
#X msg 114 218 \$1 5;
#X obj 278 111 tof/param /delay 0 /g slider 0 1;
#X obj 169 64 tof/param /feedback 0 /g slider 0 1;
#X obj 593 237 tof/param route;
#X obj 588 339 iemguts/propertybang;
#X obj 589 368 tof/param gui;
#X connect 0 0 10 2;
#X connect 0 1 10 3;
#X connect 1 0 10 0;
#X connect 1 0 0 0;
#X connect 2 0 10 1;
#X connect 2 0 0 1;
#X connect 5 0 0 2;
#X connect 6 0 0 2;
#X connect 8 0 16 0;
#X connect 10 0 3 0;
#X connect 10 1 4 0;
#X connect 11 0 13 0;
#X connect 12 0 10 4;
#X connect 13 0 12 0;
#X connect 14 0 6 0;
#X connect 15 0 5 0;
#X connect 16 0 9 0;
#X connect 17 0 18 0;