-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathdelfilt.pd
96 lines (96 loc) · 2.56 KB
/
delfilt.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
#N canvas 1 370 1009 348 10;
#X obj 59 30 inlet~;
#X obj 32 283 outlet~;
#X obj 255 124 mtof;
#X floatatom 255 101 5 0 150 0 - #0-filtpitch -, f 5;
#X text 307 100 <-- cutoff (pitch units);
#X text 318 147 <-- cutoff (Hertz);
#X floatatom 255 149 5 0 0 0 - - -, f 5;
#X text 310 70 white noise \, test signal;
#X obj 244 207 bp~;
#X text 285 209 band-pass filter;
#X floatatom 266 177 5 0 1000 0 - #0-filtq -, f 5;
#X text 318 175 <-- q;
#X obj 293 10 loadbang;
#X obj 219 11 random 127;
#X obj 354 12 random 25;
#X obj 354 36 + 1;
#X floatatom 382 37 5 0 0 0 - - #0-filtq, f 5;
#X obj 38 235 *~;
#X obj 637 26 inlet~;
#X text 689 27 processing input;
#X obj 576 117 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 7000 1;
#X obj 576 92 ctlin 10;
#X obj 638 116 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 2800 1;
#X obj 698 116 vsl 15 128 0 127 0 0 \$0-filtpitch empty empty 0 -9
0 10 -262144 -1 -1 0 1;
#X obj 770 113 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 3200 1;
#X obj 698 91 ctlin 11;
#X obj 638 91 ctlin 1;
#X obj 770 88 ctlin 2;
#X obj 575 256 / 127;
#X obj 575 280 line~ 5;
#X obj 637 257 / 127;
#X obj 637 279 * 2000;
#X obj 637 301 + 100;
#X obj 637 323 s \$0-deltime;
#X obj 41 133 r \$0-deltime;
#X obj 219 33 s \$0-filtpitch;
#X obj 773 253 / 127;
#X obj 773 275 * 20;
#X obj 773 297 + 5;
#X obj 773 319 s \$0-filtq;
#X text 573 67 vol out;
#X text 637 67 del time;
#X text 702 67 filt freq;
#X text 767 66 filt q;
#X obj 249 235 delwrite~ \$0-maindel 2100;
#X floatatom 81 210 5 0 0 0 - - -, f 5;
#X obj 38 183 vd~ \$0-maindel 500;
#X obj 40 159 line~ 5;
#X obj 888 50 notein 1;
#X obj 888 76 pack 0 0;
#X obj 886 129 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 908 130 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 887 104 route 0 1;
#X connect 0 0 8 0;
#X connect 2 0 6 0;
#X connect 3 0 2 0;
#X connect 6 0 8 1;
#X connect 8 0 44 0;
#X connect 10 0 8 2;
#X connect 12 0 13 0;
#X connect 12 0 14 0;
#X connect 13 0 35 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 17 0 1 0;
#X connect 20 0 28 0;
#X connect 21 0 20 0;
#X connect 22 0 30 0;
#X connect 24 0 36 0;
#X connect 25 0 23 0;
#X connect 26 0 22 0;
#X connect 27 0 24 0;
#X connect 28 0 29 0;
#X connect 29 0 17 1;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 34 0 45 0;
#X connect 34 0 47 0;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 38 0 39 0;
#X connect 46 0 17 0;
#X connect 47 0 46 0;
#X connect 48 0 49 0;
#X connect 48 1 49 1;
#X connect 49 0 52 0;
#X connect 52 0 50 0;
#X connect 52 1 51 0;