Fibonacci-Jungle/doerte.pd at main · devstermarts/Fibonacci-Jungle · GitHub

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
#N canvas 550 29 1085 575 12;
#X obj 617 107 expr 60000/$f1;
#X obj 617 131 t b f, f 6;
#X floatatom 617 345 8 0 0 0 - - - 0;
#X floatatom 751 345 8 0 0 0 - - - 0;
#X obj 236 36 vsl 19 75 0 1.25 0 0 \$0-fbk \$0-fbkinit FBK 0 -9 0 10 #ff0400 #000000 #000000 0 1;
#X obj 207 36 vsl 19 75 100 5000 0 0 \$0-fhip \$0-fhipinit HIP 0 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 207 119 4 0 0 0 - \$0-fhip - 8;
#X floatatom 236 119 4 0 0 0 - \$0-fbk - 8;
#X obj 617 15 inlet;
#X obj 360 457 outlet~;
#X obj 476 457 outlet~;
#X obj 751 459 hip~;
#X obj 617 459 hip~;
#X obj 178 36 vsl 19 75 100 10000 0 0 \$0-flop \$0-flopinit LOP 0 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 178 119 5 0 0 0 - \$0-flop - 8;
#X obj 617 414 lop~;
#X obj 751 414 lop~;
#X obj 617 368 delread~ \$0-dell;
#X obj 751 368 delread~ \$0-delr;
#X text 665 14 Global BPM;
#X obj 360 407 hip~ 5;
#X obj 476 407 hip~ 5;
#X obj 360 97 delwrite~ \$0-dell 2000;
#X obj 360 151 delwrite~ \$0-delr 2000;
#X obj 360 429 expr~ atan($v1);
#X obj 476 429 expr~ atan($v1);
#X obj 776 391 r \$0-flop;
#X obj 12 15 r \$0-reset;
#X obj 12 41 bng 19 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 12 67 f \$0;
#X obj 642 391 r \$0-flop;
#X obj 776 436 r \$0-fhip;
#X obj 642 436 r \$0-fhip;
#X obj 617 504 *~, f 4;
#X obj 642 481 r \$0-fbk;
#X obj 751 504 *~, f 4;
#X obj 776 481 r \$0-fbk;
#X obj 93 15 loadbang;
#X obj 656 154 s \$0-fdur;
#N canvas 665 568 384 253 ddurleft 0;
#X obj 153 185 *;
#X obj 77 42 sel 0 1 2 3 4 5 6 7, f 20;
#X msg 26 72 0.25;
#X msg 68 72 0.33;
#X msg 111 72 0.5;
#X msg 153 72 0.66;
#X msg 196 72 0.75;
#X msg 238 72 1;
#X msg 281 72 1.5;
#X msg 323 72 2;
#X obj 77 17 r \$0-dleft;
#X obj 183 185 r \$0-fdur;
#X obj 153 209 outlet;
#X connect 0 0 12 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 1 2 4 0;
#X connect 1 3 5 0;
#X connect 1 4 6 0;
#X connect 1 5 7 0;
#X connect 1 6 8 0;
#X connect 1 7 9 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 1 0;
#X connect 11 0 0 1;
#X restore 617 241 pd ddurleft;
#N canvas 665 568 384 253 ddurright 0;
#X obj 153 185 *;
#X obj 77 42 sel 0 1 2 3 4 5 6 7, f 20;
#X msg 26 72 0.25;
#X msg 68 72 0.33;
#X msg 111 72 0.5;
#X msg 153 72 0.66;
#X msg 196 72 0.75;
#X msg 238 72 1;
#X msg 281 72 1.5;
#X msg 323 72 2;
#X obj 183 185 r \$0-fdur;
#X obj 153 209 outlet;
#X obj 77 17 r \$0-dright;
#X connect 0 0 11 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 1 2 4 0;
#X connect 1 3 5 0;
#X connect 1 4 6 0;
#X connect 1 5 7 0;
#X connect 1 6 8 0;
#X connect 1 7 9 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 0 1;
#X connect 12 0 1 0;
#X restore 751 241 pd ddurright;
#X obj 617 154 f \$0;
#X msg 617 178 \; \$1-drightinit bang \; \$1-dleftinit bang;
#X obj 360 15 inlet~;
#X text 414 14 Mono in;
#X obj 893 15 inlet;
#X listbox 893 37 20 0 0 0 - - - 0;
#X obj 893 108 s \$0-flopinit;
#X obj 893 130 s \$0-fhipinit;
#X obj 893 152 s \$0-fbkinit;
#X obj 893 174 s \$0-fvoinit;
#X obj 893 196 s \$0-dleftinit;
#X obj 893 218 s \$0-drightinit;
#X text 936 14 Preset inlet;
#X obj 360 37 s~ \$0-channels;
#X obj 430 71 r~ \$0-channels;
#X obj 430 125 r~ \$0-channels;
#X obj 360 71 r~ \$0-fbl;
#X obj 360 125 r~ \$0-fbr;
#X obj 617 527 s~ \$0-fbl;
#X obj 751 527 s~ \$0-fbr;
#X obj 265 36 vsl 19 75 0 1 0 0 \$0-fvo \$0-fvoinit WET 0 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 265 119 4 0 0 0 - \$0-fvo - 8;
#X obj 377 357 *~;
#X obj 495 357 *~;
#X obj 513 334 r \$0-fvo;
#X obj 395 334 r \$0-fvo;
#X obj 377 311 r~ \$0-fbl;
#X obj 495 311 r~ \$0-fbr;
#X obj 475 215 r~ \$0-channels;
#X obj 359 215 r~ \$0-channels;
#X obj 635 266 r \$0-dvar;
#X obj 769 266 r \$0-dvar;
#X obj 635 291 t b f;
#X obj 617 317 * 1;
#X obj 751 317 * 1;
#X obj 769 291 t b f;
#X obj 12 262 r \$0-dvarres;
#X msg 12 287 1, f 1;
#X obj 12 312 s \$0-dvarinit;
#X obj 893 241 s \$0-dvarinit;
#X obj 359 277 *~;
#X obj 475 277 *~;
#X obj 377 254 r \$0-dvo;
#X obj 493 254 r \$0-dvo;
#X obj 295 36 vsl 19 75 0 1 0 0 \$0-dvo \$0-dvoinit DRY 0 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 295 119 4 0 0 0 - \$0-dvo - 8;
#X obj 359 382 +~;
#X obj 476 382 +~;
#X obj 893 264 s \$0-dvoinit;
#X text 502 276 Dry signal;
#X text 528 356 Wet signal;
#X obj 893 61 unpack f f f f f f f f;
#X obj 177 226 hradio 15 1 0 8 \$0-dright \$0-drightinit Delay\ right 0 -8 0 10 #fcfcfc #000000 #000000 0;
#X obj 177 194 hradio 15 1 0 8 \$0-dleft \$0-dleftinit Delay\ left 0 -8 0 10 #fcfcfc #000000 #000000 0;
#X floatatom 177 160 6 0 0 2 BPM \$0-bpminit \$0-bpm 10;
#X obj 237 162 hsl 35 15 0.99 1.01 0 0 \$0-dvar \$0-dvarinit Vari -4 -8 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 277 162 bng 15 250 50 0 \$0-dvarres \$0-dvarresinit Res -2 -8 0 10 #fcfcfc #000000 #000000;
#X obj 617 40 s \$0-bpminit;
#X obj 617 79 r \$0-bpm;
#X msg 12 93 \; \$1-flopinit 7000 \; \$1-fhipinit 400 \; \$1-fvoinit 0.9 \; \$1-fbkinit 0.8 \; \$1-drightinit 6 \; \$1-dleftinit 2 \; \$1-dvarinit 1 \; \$1-dvoinit 1 \; \$1-bpminit 123;
#N canvas 852 162 582 193 presetprinter 0;
#X obj 81 42 t b f;
#X obj 152 42 t b f;
#X obj 216 42 t b f;
#X obj 280 42 t b f;
#X obj 358 42 t b f;
#X obj 443 42 t b f;
#X obj 51 132 list store;
#X obj 51 99 bng 20 250 50 0 empty \$0-doropresprnt empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 10 15 r \$0-flop;
#X obj 81 15 r \$0-fhip;
#X obj 152 15 r \$0-fbk;
#X obj 216 15 r \$0-fvo;
#X obj 280 15 r \$0-dleft;
#X obj 358 15 r \$0-dright;
#X obj 514 42 t b f;
#X obj 51 157 print \$0-doerte-Preset;
#X obj 443 15 r \$0-dvar;
#X obj 514 15 r \$0-dvo;
#X obj 118 98 pack f f f f f f f f, f 49;
#X text 213 156 Preset Printer does not include BPM!;
#X connect 0 0 18 0;
#X connect 0 1 18 1;
#X connect 1 0 18 0;
#X connect 1 1 18 2;
#X connect 2 0 18 0;
#X connect 2 1 18 3;
#X connect 3 0 18 0;
#X connect 3 1 18 4;
#X connect 4 0 18 0;
#X connect 4 1 18 5;
#X connect 5 0 18 0;
#X connect 5 1 18 6;
#X connect 6 0 15 0;
#X connect 7 0 6 0;
#X connect 8 0 18 0;
#X connect 9 0 0 0;
#X connect 10 0 1 0;
#X connect 11 0 2 0;
#X connect 12 0 3 0;
#X connect 13 0 4 0;
#X connect 14 0 18 0;
#X connect 14 1 18 7;
#X connect 16 0 5 0;
#X connect 17 0 14 0;
#X connect 18 0 6 1;
#X restore 893 297 pd presetprinter;
#X obj 177 251 bng 15 250 50 0 \$0-doropresprnt empty Prnt\ Pres 17 8 0 10 #fcfcfc #000000 #000000;
#X text 13 340 Doerte is a simple stereo delay unit with mono input through first inlet \, based on a fixed tempo indicator in BPM (input through second inlet). Third inlet processes presets. Beware of constant feedback >1 \, only use when in full control :) -- Last updated 18.10.23, f 39;
#X connect 0 0 1 0;
#X connect 1 0 41 0;
#X connect 1 1 38 0;
#X connect 2 0 17 0;
#X connect 3 0 18 0;
#X connect 8 0 98 0;
#X connect 11 0 35 0;
#X connect 12 0 33 0;
#X connect 15 0 12 0;
#X connect 16 0 11 0;
#X connect 17 0 15 0;
#X connect 18 0 16 0;
#X connect 20 0 24 0;
#X connect 21 0 25 0;
#X connect 24 0 9 0;
#X connect 25 0 10 0;
#X connect 26 0 16 1;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 100 0;
#X connect 30 0 15 1;
#X connect 31 0 11 1;
#X connect 32 0 12 1;
#X connect 33 0 59 0;
#X connect 34 0 33 1;
#X connect 35 0 60 0;
#X connect 36 0 35 1;
#X connect 37 0 28 0;
#X connect 39 0 74 0;
#X connect 40 0 75 0;
#X connect 41 0 42 0;
#X connect 43 0 54 0;
#X connect 45 0 46 0;
#X connect 46 0 92 0;
#X connect 55 0 22 0;
#X connect 56 0 23 0;
#X connect 57 0 22 0;
#X connect 58 0 23 0;
#X connect 63 0 87 1;
#X connect 64 0 88 1;
#X connect 65 0 64 1;
#X connect 66 0 63 1;
#X connect 67 0 63 0;
#X connect 68 0 64 0;
#X connect 69 0 82 0;
#X connect 70 0 81 0;
#X connect 71 0 73 0;
#X connect 72 0 76 0;
#X connect 73 0 74 0;
#X connect 73 1 74 1;
#X connect 74 0 2 0;
#X connect 75 0 3 0;
#X connect 76 0 75 0;
#X connect 76 1 75 1;
#X connect 77 0 78 0;
#X connect 78 0 79 0;
#X connect 81 0 87 0;
#X connect 82 0 88 0;
#X connect 83 0 81 1;
#X connect 84 0 82 1;
#X connect 87 0 20 0;
#X connect 88 0 21 0;
#X connect 92 0 47 0;
#X connect 92 1 48 0;
#X connect 92 2 49 0;
#X connect 92 3 50 0;
#X connect 92 4 51 0;
#X connect 92 5 52 0;
#X connect 92 6 80 0;
#X connect 92 7 89 0;
#X connect 99 0 0 0;
#X coords 0 -1 1 1 160 255 2 170 15;