blob: 3b9bca01feefc604530054bd903f3970a132ff63 (
plain)
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
|
#N canvas 628 79 571 530 10;
#X obj 237 224 cnv 15 290 140 empty empty empty 20 12 0 14 -233017
-66577 0;
#X text 290 242 |;
#X text 290 254 |;
#X text 290 266 |;
#X text 271 277 |;
#X text 313 277 |;
#X text 313 297 |;
#X text 271 297 |;
#X text 274 268 _______;
#X text 274 297 _______;
#X text 290 269 v;
#X text 352 269 |;
#X text 352 280 |;
#X text 352 250 |;
#X text 352 259 |;
#X text 352 245 ^;
#X text 436 243 |;
#X text 436 255 |;
#X text 436 267 |;
#X text 417 278 |;
#X text 459 278 |;
#X text 459 298 |;
#X text 417 298 |;
#X text 420 269 _______;
#X text 420 298 _______;
#X text 436 270 v;
#X text 382 271 |;
#X text 382 281 |;
#X text 382 249 |;
#X text 382 259 |;
#X text 382 244 ^;
#X text 459 235 >;
#X text 271 287 |z^-d1 |;
#X text 417 288 |z^-d2 |;
#X text 251 334 y[n] = a * x[n] + b * x[n-d1] + c * y[n-d2];
#X text 319 286 -(*b)-;
#X text 383 287 -(*c)-;
#X text 250 236 x[n] -----(*a)--(+)--(+)----------- y[n];
#X floatatom 67 112 5 0 0 0 - del -, f 5;
#X obj 47 312 output~;
#X floatatom 105 153 5 -1 1 0 - a -, f 5;
#X floatatom 124 173 5 -1 1 0 - b -, f 5;
#X floatatom 144 193 5 -1 1 0 - c -, f 5;
#X floatatom 86 133 5 0 0 0 - del -, f 5;
#X text 105 113 ff del (d1);
#X text 124 134 fb del (d2);
#X text 143 151 gain (a);
#X text 157 173 ff gain (b);
#X text 178 192 fb gain (c);
#X obj 48 88 noise~;
#X obj 1 0 cnv 15 552 40 empty empty teeth~ 3 12 0 18 -204280 -1 0
;
#X text 13 23 teeth filter;
#X obj 482 4 teeth~;
#X obj 0 644 cnv 15 552 21 empty empty empty 20 12 0 14 -233017 -33289
0;
#X obj 2 379 cnv 3 550 3 empty empty inlets 8 12 0 13 -228856 -1 0
;
#N canvas 548 278 413 321 META 0;
#X text 0 20 LICENSE SIBSD;
#X text 0 200 LIBRARY cyclone;
#X text 0 180 OUTLET_0 signal;
#X text 0 60 INLET_0 signal list message;
#X text 0 220 VERSION 0.1-alpha57;
#X text 2 280 HELP_PATCH_AUTHORS Christoph Kummerer. Revised by Jonathan
Wilkes for Pd-extended 0.42 to conform to the PDDP template. Alex Cleveland
updated this patch for Pd-l2ork version 2013.05.28. Fred Jan Kraan
adapted the patch to pd-extended 2015-02-02;
#X text 0 0 KEYWORDS signal teeth filter buffer delay;
#X text 0 40 DESCRIPTION teeth filter;
#X text 0 80 INLET_1 float signal;
#X text 0 100 INLET_2 float signal;
#X text 0 120 INLET_3 float signal;
#X text 0 140 INLET_4 float signal;
#X text 1 256 RELEASE_DATE 2015;
#X text 0 159 INLET_5 float signal;
#X text 0 238 AUTHOR Alexandre Torres Porres;
#X restore 500 646 pd META;
#X obj 2 570 cnv 3 550 3 empty empty outlets 8 12 0 13 -228856 -1 0
;
#X obj 2 607 cnv 3 550 3 empty empty arguments 8 12 0 13 -228856 -1
0;
#N canvas 310 489 428 109 Related_objects 0;
#X obj 0 0 cnv 15 425 20 empty empty empty 3 12 0 14 -204280 -1 0;
#X text 6 1 Related Objects;
#X obj 9 30 buffir~;
#X restore 206 646 pd Related_objects;
#X obj 80 389 cnv 17 3 17 empty empty 0 5 9 0 16 -228856 -162280 0
;
#X obj 80 416 cnv 17 3 17 empty empty 1 5 9 0 16 -228856 -162280 0
;
#X text 113 387 signal;
#X text 225 387 - signal to pass through comb filter;
#X obj 80 445 cnv 17 3 17 empty empty 2 5 9 0 16 -228856 -162280 0
;
#X obj 80 500 cnv 17 3 17 empty empty 4 5 9 0 16 -228856 -162280 0
;
#X obj 80 578 cnv 17 3 17 empty empty 0 5 9 0 16 -228856 -162280 0
;
#X text 113 416 float or signal;
#X text 113 474 float or signal;
#X text 113 500 float or signal;
#X text 113 445 float or signal;
#X obj 80 474 cnv 17 3 17 empty empty 3 5 9 0 16 -228856 -162280 0
;
#X obj 80 474 cnv 17 3 17 empty empty 3 5 9 0 16 -228856 -162280 0
;
#X text 113 577 signal;
#X text 113 615 This abstraction does not support arguments;
#X obj 81 526 cnv 17 3 17 empty empty 5 5 9 0 16 -228856 -162280 0
;
#X text 114 526 float or signal;
#X text 225 474 - input amplitude coefficient (a);
#X text 225 500 - forward delay amplitude coefficient (b);
#X text 226 526 - feedback amplitude coefficient (c);
#X text 225 577 - output from teeth filter;
#X obj 48 274 cyclone/teeth~;
#X text 225 416 - forward delay time in milliseconds (d1);
#X text 224 445 - feedback delay time in milliseconds (d2);
#N canvas 948 239 450 526 radio 0;
#X obj 130 470 output~;
#X obj 131 432 cyclone/teeth~;
#X obj 56 145 noise~;
#X obj 147 76 +~ 1;
#X obj 147 98 *~ 0.5;
#X obj 164 143 +~ 1;
#X obj 164 164 *~ 0.5;
#X obj 195 277 +~ 1;
#X obj 195 299 *~ 0.5;
#X obj 212 348 +~ 1;
#X obj 212 372 *~ 0.5;
#X obj 212 321 osc~ 0.255;
#X obj 179 209 +~ 1;
#X obj 180 232 *~ 0.3;
#X obj 146 54 osc~ 0.135;
#X obj 164 121 osc~ 0.155;
#X obj 179 187 osc~ 0.225;
#X obj 195 255 osc~ 0.151;
#X obj 1 0 cnv 15 552 40 empty empty empty 3 12 0 18 -204280 -1 0;
#X text 11 9 radio whale beach song;
#X connect 1 0 0 1;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 4 0 1 1;
#X connect 5 0 6 0;
#X connect 6 0 1 2;
#X connect 7 0 8 0;
#X connect 8 0 1 4;
#X connect 9 0 10 0;
#X connect 10 0 1 5;
#X connect 11 0 9 0;
#X connect 12 0 13 0;
#X connect 13 0 1 3;
#X connect 14 0 3 0;
#X connect 15 0 5 0;
#X connect 16 0 12 0;
#X connect 17 0 7 0;
#X restore 372 142 pd radio whale beach song;
#X connect 38 0 80 1;
#X connect 40 0 80 3;
#X connect 41 0 80 4;
#X connect 42 0 80 5;
#X connect 43 0 80 2;
#X connect 49 0 80 0;
#X connect 80 0 39 1;
#X connect 80 0 39 0;
|
