forked from bauhauslib/blib
-
Notifications
You must be signed in to change notification settings - Fork 0
/
tapedeck~.pd
264 lines (264 loc) · 6.64 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
#N canvas 673 266 927 620 10;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-side-AR 337938 float 2;
#X coords 0 1 337938 -1 200 140 1 0 0;
#X restore 441 43 graph;
#X msg 16 176 1 \, 337938 7662.99 \;;
#X obj 16 227 vline~;
#N canvas 195 129 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 15 33 inlet;
#X msg 46 79 1;
#X obj 16 441 outlet~;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-side-BR 321922 float 2;
#X coords 0 1 321922 -1 200 140 1 0 0;
#X restore 659 42 graph;
#X msg 132 254 set \$1;
#X text 705 437 todo: side B;
#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 881 426 744 449 type 0;
#X obj 14 3 inlet~;
#X obj 14 390 outlet~;
#X obj 217 3 inlet;
#X text 327 258 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 326 242 from a forum post:;
#X obj 14 305 *~;
#X obj 39 344 *~;
#X obj 95 343 *~;
#X obj 217 23 symbol;
#X obj 217 44 select normal chrome metal;
#X text 327 343 http://www.audiokarma.org/forums/archive/index.php/t-112298.html
;
#X obj 154 2 inlet~;
#X obj 153 387 outlet~;
#X obj 153 302 *~;
#X obj 178 341 *~;
#X obj 233 341 *~;
#X obj 39 305 lop~ 550;
#X obj 178 302 lop~ 550;
#X msg 216 109 0.5 0.5 0;
#X obj 94 305 hip~ 550;
#X obj 233 302 hip~ 550;
#X obj 216 133 unpack f f f;
#X msg 269 86 0.5 0 0.5;
#X msg 319 67 1 0 0;
#X connect 0 0 5 0;
#X connect 0 0 16 0;
#X connect 0 0 19 0;
#X connect 2 0 8 0;
#X connect 5 0 1 0;
#X connect 6 0 1 0;
#X connect 7 0 1 0;
#X connect 8 0 9 0;
#X connect 9 0 18 0;
#X connect 9 1 22 0;
#X connect 9 2 23 0;
#X connect 11 0 13 0;
#X connect 11 0 17 0;
#X connect 11 0 20 0;
#X connect 13 0 12 0;
#X connect 14 0 12 0;
#X connect 15 0 12 0;
#X connect 16 0 6 0;
#X connect 17 0 14 0;
#X connect 18 0 21 0;
#X connect 19 0 7 0;
#X connect 20 0 15 0;
#X connect 21 0 5 1;
#X connect 21 0 13 1;
#X connect 21 1 6 1;
#X connect 21 1 14 1;
#X connect 21 2 7 1;
#X connect 21 2 15 1;
#X connect 22 0 21 0;
#X connect 23 0 21 0;
#X restore 16 373 pd type;
#N canvas 302 450 450 300 noise 0;
#X obj 31 42 inlet~;
#X obj 31 210 outlet~;
#X obj 133 170 *~;
#X obj 133 43 noise~;
#X obj 200 92 line~;
#X msg 200 67 \$1 20;
#X obj 200 0 inlet;
#X obj 31 170 *~;
#X obj 200 21 clip 0 1;
#X obj 96 145 abs~;
#X obj 96 124 -~ 1;
#X obj 133 81 hip~ 800;
#X obj 200 44 / 25;
#X obj 81 41 inlet~;
#X obj 81 209 outlet~;
#X obj 81 169 *~;
#X connect 0 0 7 0;
#X connect 2 0 1 0;
#X connect 2 0 14 0;
#X connect 3 0 11 0;
#X connect 4 0 2 1;
#X connect 4 0 10 0;
#X connect 5 0 4 0;
#X connect 6 0 8 0;
#X connect 7 0 1 0;
#X connect 8 0 12 0;
#X connect 9 0 7 1;
#X connect 9 0 15 1;
#X connect 10 0 9 0;
#X connect 11 0 2 0;
#X connect 12 0 5 0;
#X connect 13 0 15 0;
#X connect 15 0 14 0;
#X restore 16 410 pd noise;
#X obj 15 55 route play stop pause ff rw;
#X obj 174 168 route open side autoreverse;
#X obj 281 286 route flutter type noise;
#N canvas 350 184 721 625 loading 0;
#X obj 22 20 inlet;
#X obj 22 217 soundfiler;
#X obj 22 241 t f f;
#X msg 22 194 read -resize \$1 \$2;
#X obj 22 106 t a b;
#X obj 22 171 pack s s;
#X obj 22 357 s \$0-samples;
#X obj 49 335 s \$0-miliseconds;
#X obj 80 76 symbol \$1;
#X obj 80 51 loadbang;
#X obj 65 124 symbol \$0-side-A;
#X obj 82 145 symbol \$0-side-B;
#X obj 49 310 / 44.1;
#X obj 82 243 loadbang;
#X obj 82 266 samplerate~;
#X obj 82 287 / 1000;
#X connect 0 0 4 0;
#X connect 1 0 2 0;
#X connect 2 0 6 0;
#X connect 2 1 12 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 4 1 10 0;
#X connect 5 0 3 0;
#X connect 8 0 4 0;
#X connect 9 0 8 0;
#X connect 10 0 5 1;
#X connect 11 0 5 1;
#X connect 12 0 7 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 12 1;
#X restore 174 216 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 337938 float 2;
#X coords 0 1 337938 -1 200 140 1 0 0;
#X restore 443 214 graph;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-side-BL 321922 float 2;
#X coords 0 1 321922 -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 connect 1 0 2 0;
#X connect 2 0 20 0;
#X connect 2 0 22 0;
#X connect 3 0 1 0;
#X connect 4 0 13 0;
#X connect 5 0 2 0;
#X connect 8 0 20 1;
#X connect 8 0 22 1;
#X connect 10 0 11 0;
#X connect 10 1 11 1;
#X connect 11 0 12 0;
#X connect 11 1 12 1;
#X connect 12 0 6 0;
#X connect 12 1 21 0;
#X connect 13 0 1 0;
#X connect 13 1 5 0;
#X connect 13 5 14 0;
#X connect 14 0 16 0;
#X connect 14 3 15 0;
#X connect 15 0 10 2;
#X connect 15 1 11 2;
#X connect 15 2 12 2;
#X connect 20 0 10 0;
#X connect 22 0 10 1;