-
Notifications
You must be signed in to change notification settings - Fork 4
/
cheapchord.pd
239 lines (239 loc) · 5.71 KB
/
cheapchord.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
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
#N canvas 922 557 166 130 10;
#N canvas 633 44 633 659 dspstuff 0;
#X obj 21 533 peakfilter~;
#X obj 418 590 rh_symm2norm~;
#X obj 271 588 rh_symm2norm~;
#X obj 20 431 *~;
#X obj 19 162 mtof;
#X obj 418 567 osc~;
#X obj 271 566 osc~;
#X obj 418 546 / 1.39578;
#X obj 417 616 rh_scalelog~ 250 7000;
#X obj 270 612 rh_scalelog~ 3 30;
#X obj 294 166 list append;
#X obj 294 195 unpack f f f;
#X obj 352 303 del;
#X obj 294 320 pack;
#X msg 294 351 \$2 \$1;
#X obj 294 390 line~;
#X obj 352 331 f;
#X msg 352 357 0 \$1;
#X obj 438 241 rmstodb;
#X obj 294 415 dbtorms~;
#X obj 373 416 del;
#X obj 259 300 b;
#X msg 373 388 stop;
#X obj 259 445 1;
#X obj 259 476 f;
#X obj 373 442 0;
#X obj 21 607 switch~;
#X obj 294 291 * 4000;
#X obj 367 279 * 10000;
#X obj 19 139 - 0.1;
#N canvas 1106 44 448 298 sawl 0;
#X obj 39 282 outlet~;
#X obj 35 5 inlet;
#X obj 21 61 nblsaw~ 400;
#X obj 46 113 nblsaw~ 400;
#X obj 76 171 nblsaw~ 400;
#X obj 95 219 nblsaw~ 400;
#X obj 291 219 nblsaw~ 400;
#X obj 275 171 nblsaw~ 400;
#X obj 257 119 nblsaw~ 400;
#X obj 231 67 nblsaw~ 400;
#X obj 207 35 + 1.00065;
#X obj 46 93 * 1.20089;
#X obj 75 149 * 1.49995;
#X obj 95 196 * 1.80005;
#X obj 291 197 * 1.79992;
#X obj 275 149 * 1.50007;
#X obj 257 99 * 1.19948;
#X connect 1 0 2 0;
#X connect 1 0 10 0;
#X connect 1 0 11 0;
#X connect 1 0 12 0;
#X connect 1 0 13 0;
#X connect 2 0 0 0;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 5 0 0 0;
#X connect 6 0 0 0;
#X connect 7 0 0 0;
#X connect 8 0 0 0;
#X connect 9 0 0 0;
#X connect 10 0 9 0;
#X connect 10 0 14 0;
#X connect 10 0 15 0;
#X connect 10 0 16 0;
#X connect 11 0 3 0;
#X connect 12 0 4 0;
#X connect 13 0 5 0;
#X connect 14 0 6 0;
#X connect 15 0 7 0;
#X connect 16 0 8 0;
#X restore 19 226 pd sawl;
#N canvas 1232 44 448 298 saw2 0;
#X obj 257 99 * 1.2;
#X obj 291 197 * 1.8;
#X obj 46 93 * 1.2;
#X obj 95 197 * 1.8;
#X obj 39 282 outlet~;
#X obj 35 5 inlet;
#X obj 252 31 + 1.23;
#X obj 21 61 nblsaw~ 80;
#X obj 46 113 nblsaw~ 80;
#X obj 76 171 nblsaw~ 80;
#X obj 95 219 nblsaw~ 80;
#X obj 232 67 nblsaw~ 80;
#X obj 257 119 nblsaw~ 80;
#X obj 275 171 nblsaw~ 80;
#X obj 291 219 nblsaw~ 80;
#X obj 76 149 * 1.50009;
#X obj 275 149 * 1.49992;
#X connect 0 0 12 0;
#X connect 1 0 14 0;
#X connect 2 0 8 0;
#X connect 3 0 10 0;
#X connect 5 0 2 0;
#X connect 5 0 3 0;
#X connect 5 0 6 0;
#X connect 5 0 7 0;
#X connect 5 0 15 0;
#X connect 6 0 0 0;
#X connect 6 0 1 0;
#X connect 6 0 11 0;
#X connect 6 0 16 0;
#X connect 7 0 4 0;
#X connect 8 0 4 0;
#X connect 9 0 4 0;
#X connect 10 0 4 0;
#X connect 11 0 4 0;
#X connect 12 0 4 0;
#X connect 13 0 4 0;
#X connect 14 0 4 0;
#X connect 15 0 9 0;
#X connect 16 0 13 0;
#X restore 94 244 pd saw2;
#X obj 95 448 *~;
#X obj 94 533 peakfilter~;
#X obj 458 8 netpd_head \$1 cheapchord;
#X obj 438 218 netpd_f \$1 volume 0.025;
#X obj 352 496 netpd_f \$1 modf 1.23;
#X obj 21 582 i2mx \$1 cheapchord;
#X obj 380 63 netpd_f \$1 attack 0;
#X obj 449 113 t a a;
#X obj 449 135 *;
#X obj 380 111 t a a;
#X obj 380 133 *;
#X obj 367 216 t a a;
#X obj 367 238 *;
#X obj 294 223 t a a;
#X obj 294 245 *;
#X obj 294 266 +;
#X obj 367 260 +;
#X obj 449 92 netpd_f \$1 decay 0.25;
#X obj 19 10 r \$0.unstep;
#X msg 19 32 vis 1;
#X obj 19 57 unstep \$1 cheapchord attack decay;
#X obj 94 219 - 0.8;
#X obj 19 79 route note attack decay;
#X obj 19 101 t a b;
#X obj 294 122 f;
#X obj 294 144 pack f f;
#X connect 0 0 37 0;
#X connect 1 0 8 0;
#X connect 2 0 9 0;
#X connect 3 0 0 0;
#X connect 4 0 30 0;
#X connect 4 0 53 0;
#X connect 5 0 1 0;
#X connect 6 0 2 0;
#X connect 7 0 5 0;
#X connect 8 0 0 1;
#X connect 8 0 33 1;
#X connect 9 0 0 2;
#X connect 9 0 33 2;
#X connect 10 0 11 0;
#X connect 11 0 21 0;
#X connect 11 0 45 0;
#X connect 11 1 43 0;
#X connect 11 2 13 1;
#X connect 12 0 16 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 19 0;
#X connect 16 0 17 0;
#X connect 16 0 20 0;
#X connect 17 0 15 0;
#X connect 18 0 10 1;
#X connect 19 0 3 1;
#X connect 19 0 32 1;
#X connect 20 0 25 0;
#X connect 21 0 22 0;
#X connect 21 0 23 0;
#X connect 22 0 20 0;
#X connect 23 0 24 0;
#X connect 24 0 37 2;
#X connect 25 0 24 0;
#X connect 27 0 13 0;
#X connect 27 0 12 0;
#X connect 28 0 16 1;
#X connect 29 0 4 0;
#X connect 30 0 3 0;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 33 0 37 1;
#X connect 35 0 18 0;
#X connect 36 0 6 0;
#X connect 36 0 7 0;
#X connect 37 0 26 0;
#X connect 38 0 41 0;
#X connect 39 0 40 0;
#X connect 39 1 40 1;
#X connect 40 0 48 1;
#X connect 41 0 42 0;
#X connect 41 1 42 1;
#X connect 42 0 47 1;
#X connect 43 0 44 0;
#X connect 43 1 44 1;
#X connect 44 0 48 0;
#X connect 45 0 46 0;
#X connect 45 1 46 1;
#X connect 46 0 47 0;
#X connect 47 0 27 0;
#X connect 48 0 28 0;
#X connect 49 0 39 0;
#X connect 50 0 51 0;
#X connect 51 0 52 0;
#X connect 52 0 54 0;
#X connect 53 0 31 0;
#X connect 54 0 55 0;
#X connect 54 1 56 1;
#X connect 54 2 57 1;
#X connect 55 0 29 0;
#X connect 55 1 56 0;
#X connect 56 0 57 0;
#X connect 57 0 10 0;
#X restore 13 32 pd dspstuff;
#N canvas 1092 434 179 133 \$1-cheapchord 1;
#X obj 19 18 hsl 128 15 0 0.05 0 0 \$1-volume \$1-volume volume 3 8
0 10 -262144 -1 -1 6350 1;
#X obj 19 37 hsl 128 15 0.01 10 1 0 \$1-modf \$1-modf modulation_frequency
3 8 0 10 -262144 -1 -1 6547 1;
#X obj 16 101 bng 15 250 50 0 \$0.unstep \$0-bli unstep 17 7 0 10 -262144
-1 -1;
#X obj 19 56 hsl 128 15 0 1 0 0 \$1-attack \$1-attack attack 3 8 0
10 -262144 -1 -1 0 1;
#X obj 19 75 hsl 128 15 0 1 0 0 \$1-decay \$1-decay decay 3 8 0 10
-262144 -1 -1 1500 1;
#X restore 13 55 pd \$1-cheapchord;
#N canvas 998 320 218 116 NETPD 0;
#N canvas 624 180 374 187 abslist 0;
#X msg 27 16 netpd_bandlimited_oscillators;
#X msg 27 37 peakfilter~;
#X msg 27 57 roman_helpers;
#X msg 29 102 i2mx;
#X msg 28 79 unstep;
#X restore 8 10 pd abslist;
#X msg 8 33 version 0 0 5;
#X restore 13 77 pd NETPD 2 0;