-
Notifications
You must be signed in to change notification settings - Fork 0
/
re.spring~.pd
131 lines (131 loc) · 3.04 KB
/
re.spring~.pd
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
#N canvas 153 241 840 408 10;
#X obj 10 181 inlet~;
#X obj 270 344 outlet~;
#N canvas 845 584 298 213 allpass 0;
#X obj 12 52 inlet~;
#X obj 12 110 +~;
#X obj 27 88 *~;
#X obj 97 -10 inlet;
#X obj 202 72 inlet;
#X obj 202 93 * -1;
#X obj 187 126 *~;
#X obj 172 147 +~;
#X obj 172 168 outlet~;
#X text 12 32 (I1) Input;
#X text 97 -30 (I2) Time;
#X text 202 52 (I3) Gain;
#X text 172 188 (O1) Output;
#X obj 97 11 delread~ \$0-ap-2;
#X obj 12 131 *~ 1;
#X obj 12 168 delwrite~ \$0-ap-2 50;
#X obj 92 63 lop~ 4000;
#X obj 97 32 hip~ 50;
#X connect 0 0 1 0;
#X connect 1 0 14 0;
#X connect 2 0 1 1;
#X connect 3 0 13 0;
#X connect 4 0 2 1;
#X connect 4 0 5 0;
#X connect 5 0 6 1;
#X connect 6 0 7 1;
#X connect 7 0 8 0;
#X connect 13 0 17 0;
#X connect 14 0 6 0;
#X connect 14 0 15 0;
#X connect 16 0 2 0;
#X connect 16 0 7 0;
#X connect 17 0 16 0;
#X restore 443 216 pd allpass;
#X obj 471 195 unpack f f;
#X obj 471 153 loadbang;
#N canvas 845 584 298 213 allpass 0;
#X obj 12 52 inlet~;
#X obj 12 110 +~;
#X obj 27 88 *~;
#X obj 202 72 inlet;
#X obj 202 93 * -1;
#X obj 187 126 *~;
#X obj 172 147 +~;
#X obj 172 168 outlet~;
#X text 12 32 (I1) Input;
#X text 92 -19 (I2) Time;
#X text 202 52 (I3) Gain;
#X text 172 188 (O1) Output;
#X obj 12 131 *~ 1;
#X obj 12 168 delwrite~ \$0-ap-1 50;
#X obj 92 64 lop~ 4000;
#X obj 92 1 inlet;
#X obj 92 22 delread~ \$0-ap-1;
#X obj 92 42 hip~ 50;
#X connect 0 0 1 0;
#X connect 1 0 12 0;
#X connect 2 0 1 1;
#X connect 3 0 2 1;
#X connect 3 0 4 0;
#X connect 4 0 5 1;
#X connect 5 0 6 1;
#X connect 6 0 7 0;
#X connect 12 0 5 0;
#X connect 12 0 13 0;
#X connect 14 0 2 0;
#X connect 14 0 6 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 17 0 14 0;
#X restore 154 155 pd allpass;
#X obj 186 104 unpack f f;
#X obj 186 62 loadbang;
#X obj 463 242 delwrite~ \$0-spring-2 30;
#X obj 10 276 delwrite~ \$0-spring 31;
#X obj 328 88 -~;
#X obj 443 167 +~;
#X obj 458 127 *~ 1;
#X obj 10 250 +~;
#X obj 328 109 delwrite~ \$0-del 20;
#X obj 328 130 delread~ \$0-del 20;
#X obj 155 232 *~ 0.9;
#X obj 10 202 /~ 2;
#X obj 293 271 /~ 1;
#X obj 201 315 lop~ 2000;
#X obj 458 72 lop~ 5500;
#X text 59 209 v Filter;
#X text 518 102 <- Delay high freq above 5500;
#X text 538 211 <- allpass dispersion;
#X text 12 91 allpass dispersion ->;
#X text 209 223 <- feedback;
#X msg 186 83 10.73 -0.5;
#X msg 471 174 7.307 0.5;
#X obj 328 54 hip~ 50;
#X obj 328 151 /~ 1;
#X obj 11 228 lop~ 1000;
#X obj 328 5 delread~ \$0-spring 21;
#X obj 158 35 delread~ \$0-spring-2 30;
#X connect 0 0 17 0;
#X connect 2 0 8 0;
#X connect 2 0 18 0;
#X connect 3 0 2 1;
#X connect 3 1 2 2;
#X connect 4 0 27 0;
#X connect 5 0 16 0;
#X connect 6 0 5 1;
#X connect 6 1 5 2;
#X connect 7 0 26 0;
#X connect 10 0 14 0;
#X connect 11 0 2 0;
#X connect 12 0 11 1;
#X connect 13 0 9 0;
#X connect 15 0 29 0;
#X connect 16 0 13 1;
#X connect 17 0 30 0;
#X connect 18 0 19 0;
#X connect 19 0 1 0;
#X connect 20 0 10 1;
#X connect 20 0 12 0;
#X connect 26 0 6 0;
#X connect 27 0 3 0;
#X connect 28 0 10 0;
#X connect 28 0 20 0;
#X connect 29 0 11 0;
#X connect 30 0 13 0;
#X connect 31 0 28 0;
#X connect 32 0 5 0;