-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathtapedeck~.pd
294 lines (294 loc) · 7.38 KB
/
tapedeck~.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
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
#N canvas 642 265 927 620 10;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-side-AR 846720 float 2;
#X coords 0 1 846720 -1 200 140 1 0 0;
#X restore 441 43 graph;
#X msg 16 176 1 \, 846720 19200 \;;
#X obj 16 227 vline~;
#N canvas 258 445 450 300 preset 0;
#X obj 35 167 outlet;
#X obj 35 70 pack f f;
#X obj 35 93 trigger list bang bang;
#X msg 164 130 set 1;
#X msg 99 130 addcomma;
#X obj 80 45 r \$0-miliseconds;
#X obj 35 20 r \$0-samples;
#X msg 35 129 add \$1 \$2;
#X connect 1 0 2 0;
#X connect 2 0 7 0;
#X connect 2 1 4 0;
#X connect 2 2 3 0;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 5 0 1 1;
#X connect 6 0 1 0;
#X connect 7 0 0 0;
#X restore 28 145 pd preset;
#X obj 16 33 inlet;
#X msg 47 79 1;
#X obj 16 441 outlet~;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-side-BR 846720 float 2;
#X coords 0 1 846720 -1 200 140 1 0 0;
#X restore 659 42 graph;
#X msg 102 227 set \$1;
#N canvas 506 494 558 400 flutter 0;
#X obj 48 15 inlet~;
#X obj 48 348 outlet~;
#X obj 141 181 / 2;
#X obj 59 73 inlet flutter;
#X obj 114 160 t f f;
#X obj 48 244 osc~ 5;
#X obj 48 268 *~ 0;
#X obj 48 296 +~ 0;
#X obj 114 121 clip 0 1;
#X obj 59 97 route speed depth;
#X obj 59 121 clip 0 1;
#X obj 114 140 * 6;
#X obj 59 143 * 6;
#X obj -113 14 inlet~;
#X obj -113 347 outlet~;
#X obj -113 243 osc~ 5;
#X obj -113 267 *~ 0;
#X obj -113 295 +~ 0;
#X obj -113 46 delwrite~ \$0-flutterR 500;
#X obj -113 320 vd~ \$0-flutterR;
#X obj 48 47 delwrite~ \$0-flutterL 500;
#X obj 48 321 vd~ \$0-flutterL;
#X connect 0 0 20 0;
#X connect 2 0 7 1;
#X connect 2 0 17 1;
#X connect 3 0 9 0;
#X connect 4 0 6 1;
#X connect 4 0 16 1;
#X connect 4 1 2 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 21 0;
#X connect 8 0 11 0;
#X connect 9 0 10 0;
#X connect 9 1 8 0;
#X connect 10 0 12 0;
#X connect 11 0 4 0;
#X connect 12 0 5 0;
#X connect 12 0 15 0;
#X connect 13 0 18 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 17 0 19 0;
#X connect 19 0 14 0;
#X connect 21 0 1 0;
#X restore 16 340 pd flutter;
#N canvas 471 446 1028 470 type 0;
#X obj 14 3 inlet~;
#X obj 15 441 outlet~;
#X obj 217 3 inlet;
#X text 524 272 Normal tapes usually have the thickest sound of analog
with great extended bass \, and in some cases rolled off highs. Chrome
tapes have a extended high end \, but the bass can be weak compared
to normal tapes. Metal tapes someone said (may) have the same bass
type of normal tapes \, but the high end is the best and most extended.
;
#X text 523 256 from a forum post:;
#X obj 47 395 *~;
#X obj 103 394 *~;
#X obj 217 23 symbol;
#X obj 217 44 select normal chrome metal;
#X text 524 357 http://www.audiokarma.org/forums/archive/index.php/t-112298.html
;
#X obj 154 2 inlet~;
#X obj 154 438 outlet~;
#X obj 192 393 *~;
#X obj 247 393 *~;
#X obj 46 305 lop~ 550;
#X obj 192 303 lop~ 550;
#X obj 101 305 hip~ 550;
#X obj 246 303 hip~ 550;
#X obj 216 133 unpack f f f;
#X msg 319 67 1 0 0;
#X obj 14 305 *~ 1;
#X obj 160 302 *~ 1;
#X obj 192 324 lop~ 600;
#X obj 46 326 lop~ 600;
#X obj 248 326 hip~ 500;
#X obj 102 326 hip~ 500;
#X msg 216 109 0.5 0.6 0;
#X msg 269 86 0.5 0 0.6;
#X connect 0 0 14 0;
#X connect 0 0 16 0;
#X connect 0 0 20 0;
#X connect 2 0 7 0;
#X connect 5 0 1 0;
#X connect 6 0 1 0;
#X connect 7 0 8 0;
#X connect 8 0 26 0;
#X connect 8 1 27 0;
#X connect 8 2 19 0;
#X connect 10 0 15 0;
#X connect 10 0 17 0;
#X connect 10 0 21 0;
#X connect 12 0 11 0;
#X connect 13 0 11 0;
#X connect 14 0 23 0;
#X connect 15 0 22 0;
#X connect 16 0 25 0;
#X connect 17 0 24 0;
#X connect 18 0 20 1;
#X connect 18 0 21 1;
#X connect 18 1 5 1;
#X connect 18 1 12 1;
#X connect 18 2 6 1;
#X connect 18 2 13 1;
#X connect 19 0 18 0;
#X connect 20 0 1 0;
#X connect 21 0 11 0;
#X connect 22 0 12 0;
#X connect 23 0 5 0;
#X connect 24 0 13 0;
#X connect 25 0 6 0;
#X connect 26 0 18 0;
#X connect 27 0 18 0;
#X restore 16 373 pd type;
#N canvas 578 452 509 285 noise 0;
#X obj 32 20 inlet~;
#X obj 32 245 outlet~;
#X obj 134 205 *~;
#X obj 134 19 noise~;
#X msg 323 83 \$1 20;
#X obj 323 16 inlet;
#X obj 32 205 *~;
#X obj 323 37 clip 0 1;
#X obj 82 19 inlet~;
#X obj 82 244 outlet~;
#X obj 82 204 *~;
#X obj 134 66 lop~ 1200;
#X obj 134 44 hip~ 90;
#X obj 323 60 * 0.3;
#X obj 323 134 expr sin($f1 * 3.14159 / 2);
#X obj 147 134 expr cos($f1 * 3.14159 / 2);
#X obj 323 108 line;
#X connect 0 0 6 0;
#X connect 2 0 1 0;
#X connect 2 0 9 0;
#X connect 3 0 12 0;
#X connect 4 0 16 0;
#X connect 5 0 7 0;
#X connect 6 0 1 0;
#X connect 7 0 13 0;
#X connect 8 0 10 0;
#X connect 10 0 9 0;
#X connect 11 0 2 0;
#X connect 12 0 11 0;
#X connect 13 0 4 0;
#X connect 14 0 2 1;
#X connect 15 0 6 1;
#X connect 15 0 10 1;
#X connect 16 0 15 0;
#X connect 16 0 14 0;
#X restore 16 410 pd noise;
#X obj 175 168 route open side autoreverse;
#X obj 281 286 route flutter type noise;
#N canvas 198 333 721 625 loading 0;
#X obj 22 20 inlet;
#X obj 22 89 soundfiler;
#X obj 22 113 t f f;
#X obj 22 229 s \$0-samples;
#X obj 49 207 s \$0-miliseconds;
#X obj 49 182 / 44.1;
#X obj 82 115 loadbang;
#X obj 82 138 samplerate~;
#X obj 82 159 / 1000;
#X msg 22 66 read -resize \$1 \$2 \$3;
#X obj 22 43 pack s s s;
#X obj 58 20 inlet;
#X obj 94 20 inlet;
#X connect 0 0 10 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 1 5 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 5 1;
#X connect 9 0 1 0;
#X connect 10 0 9 0;
#X connect 11 0 10 1;
#X connect 12 0 10 2;
#X restore 175 227 pd loading;
#N canvas 431 59 494 344 META 0;
#X text 12 105 OUTLET_0 signal;
#X text 12 185 RELEASE_DATE 2012;
#X text 12 205 HELP_PATCH_AUTHORS Max Neupert;
#X text 12 125 LIBRARY Bauhauslib;
#X text 12 25 LICENSE LGPL;
#X text 12 5 KEYWORDS signal tapedeck tape flutter;
#X text 12 45 DESCRIPTION a casette tapedeck;
#X text 12 65 INLET_0 open \, stop \, play \, flutter speed \, flutter
depth \, noise;
#X text 12 145 AUTHOR Max Neupert;
#X text 12 165 WEBSITE https://github.com/bauhauslib/blib;
#X restore 564 430 pd META;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-side-AL 846720 float 2;
#X coords 0 1 846720 -1 200 140 1 0 0;
#X restore 443 214 graph;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-side-BL 846720 float 2;
#X coords 0 1 846720 -1 200 140 1 0 0;
#X restore 661 213 graph;
#X obj 16 287 tabread4~ \$0-side-AR;
#X obj 65 441 outlet~;
#X obj 144 287 tabread4~ \$0-side-AL;
#X obj 16 55 route play stop pause ff rw;
#N canvas 0 22 450 300 sides 0;
#X obj 107 30 inlet;
#X obj 49 180 symbol \$0-side-AR;
#X obj 56 202 symbol \$0-side-BR;
#X obj 188 184 symbol \$0-side-AL;
#X obj 192 204 symbol \$0-side-BL;
#X obj 106 55 route A B;
#X obj 47 252 outlet;
#X obj 186 250 outlet;
#X obj 38 33 loadbang;
#X connect 0 0 5 0;
#X connect 1 0 6 0;
#X connect 2 0 6 0;
#X connect 3 0 7 0;
#X connect 4 0 7 0;
#X connect 5 0 1 0;
#X connect 5 0 3 0;
#X connect 5 1 2 0;
#X connect 5 1 4 0;
#X connect 8 0 1 0;
#X connect 8 0 3 0;
#X restore 203 199 pd sides;
#X msg 247 227 set \$1;
#X connect 1 0 2 0;
#X connect 2 0 18 0;
#X connect 2 0 20 0;
#X connect 3 0 1 0;
#X connect 4 0 21 0;
#X connect 5 0 2 0;
#X connect 8 0 18 0;
#X connect 9 0 10 0;
#X connect 9 1 10 1;
#X connect 10 0 11 0;
#X connect 10 1 11 1;
#X connect 11 0 6 0;
#X connect 11 1 19 0;
#X connect 12 0 14 0;
#X connect 12 1 22 0;
#X connect 12 3 13 0;
#X connect 13 0 9 2;
#X connect 13 1 10 2;
#X connect 13 2 11 2;
#X connect 18 0 9 0;
#X connect 20 0 9 1;
#X connect 21 0 1 0;
#X connect 21 1 5 0;
#X connect 21 5 12 0;
#X connect 22 0 14 1;
#X connect 22 0 8 0;
#X connect 22 1 23 0;
#X connect 22 1 14 2;
#X connect 23 0 20 0;