aboutsummaryrefslogtreecommitdiff
path: root/puremapping/fir.pd
blob: 74cc5048d052340b97b14e25c05c9edab2be0760 (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
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
#N canvas 778 146 455 393 10;
#X obj 187 61 inlet;
#X text 72 34 flux donnees;
#X obj 85 57 inlet;
#X obj 85 298 outlet;
#X obj 85 269 * \$1;
#N canvas 198 25 616 543 list_emath_* 1;
#X obj 59 31 inlet;
#X obj 287 28 inlet;
#X obj 59 437 outlet;
#X obj 264 131 list;
#X obj 78 287 route float;
#X obj 178 261 route float;
#X obj 78 162 t a b b;
#X obj 78 379 list prepend;
#X obj 176 379 t a;
#X obj 59 404 list;
#X obj 136 57 s \$0-reset;
#X obj 157 343 r \$0-reset;
#X obj 59 58 t b a b b;
#X obj 325 232 f 1;
#N canvas 0 0 782 506 list-drip 0;
#X obj 63 84 t a a;
#X obj 63 241 spigot;
#X obj 102 149 bang;
#X obj 102 168 1;
#X obj 223 149 route bang;
#X obj 183 150 bang;
#X obj 183 169 0;
#X obj 102 114 list split 2;
#X obj 232 379 list split;
#X obj 299 328 list length;
#X obj 299 350 >> 1;
#X obj 63 260 t a a a a;
#X obj 63 446 list split;
#X obj 130 398 list length;
#X obj 130 423 >> 1;
#X obj 31 19 inlet;
#X obj 290 175 outlet;
#X text 73 19 Copyright 2009 by Mathieu Bouchard;
#X obj 31 53 t b a;
#X obj 465 119 outlet;
#X text 520 121 signal end of list;
#X text 381 23 made compatible with [list-drip]: fbar 2009;
#X connect 0 0 1 0;
#X connect 0 1 7 0;
#X connect 1 0 11 0;
#X connect 2 0 3 0;
#X connect 3 0 1 1;
#X connect 4 1 16 0;
#X connect 5 0 6 0;
#X connect 6 0 1 1;
#X connect 7 0 2 0;
#X connect 7 2 4 0;
#X connect 7 2 5 0;
#X connect 8 0 0 0;
#X connect 9 0 10 0;
#X connect 10 0 8 1;
#X connect 11 0 12 0;
#X connect 11 1 13 0;
#X connect 11 2 8 0;
#X connect 11 3 9 0;
#X connect 12 1 0 0;
#X connect 13 0 14 0;
#X connect 14 0 12 1;
#X connect 15 0 18 0;
#X connect 18 0 19 0;
#X connect 18 1 0 0;
#X restore 78 138 pd list-drip;
#N canvas 0 0 450 300 list-dripslow 0;
#X obj 148 186 list split 1;
#X obj 148 161 list append;
#X obj 148 237 outlet;
#X obj 148 37 inlet;
#X obj 229 237 outlet;
#X obj 222 35 inlet;
#X obj 148 72 b;
#X text 265 36 list;
#X text 103 37 bang;
#X text 273 237 EOL;
#X text 89 236 element;
#X obj 229 207 b;
#X connect 0 0 2 0;
#X connect 0 1 1 1;
#X connect 0 2 11 0;
#X connect 1 0 0 0;
#X connect 3 0 6 0;
#X connect 5 0 1 1;
#X connect 6 0 1 0;
#X connect 11 0 4 0;
#X restore 178 232 pd list-dripslow;
#X obj 78 322 *;
#X connect 0 0 12 0;
#X connect 1 0 3 1;
#X connect 3 0 15 1;
#X connect 4 0 16 0;
#X connect 4 1 7 0;
#X connect 5 0 16 1;
#X connect 6 0 4 0;
#X connect 6 1 15 0;
#X connect 6 2 13 0;
#X connect 7 0 8 0;
#X connect 7 0 9 1;
#X connect 8 0 7 1;
#X connect 9 0 2 0;
#X connect 11 0 7 1;
#X connect 12 0 9 0;
#X connect 12 1 14 0;
#X connect 12 2 3 0;
#X connect 12 3 10 0;
#X connect 13 0 16 1;
#X connect 14 0 6 0;
#X connect 15 0 5 0;
#X connect 16 0 7 0;
#X restore 85 207 pd list_emath_*;
#N canvas 0 0 450 300 list-mean 0;
#X obj 127 69 inlet;
#X obj 127 337 outlet;
#X obj 146 164 route float;
#X obj 127 274 f;
#N canvas 425 298 450 300 count 0;
#X obj 133 59 b;
#X obj 133 35 inlet;
#X obj 183 35 inlet;
#X obj 164 111 + 1;
#X obj 133 133 outlet;
#X msg 183 71 1;
#X obj 133 110 f 1;
#X connect 0 0 6 0;
#X connect 1 0 0 0;
#X connect 2 0 5 0;
#X connect 3 0 6 1;
#X connect 5 0 6 1;
#X connect 6 0 3 0;
#X connect 6 0 4 0;
#X restore 222 226 pd count;
#X obj 127 308 /;
#X obj 146 189 t a b;
#N canvas 370 313 450 300 accum 0;
#X obj 182 102 0;
#X obj 135 79 inlet;
#X obj 182 79 inlet;
#X obj 135 169 outlet;
#X obj 135 137 +;
#X obj 168 138 f;
#X connect 0 0 4 1;
#X connect 1 0 4 0;
#X connect 2 0 0 0;
#X connect 4 0 3 0;
#X connect 4 0 5 0;
#X connect 5 0 4 1;
#X restore 146 224 pd accum;
#X obj 127 105 t b a b b;
#N canvas 0 0 450 300 list-drip 0;
#X obj 63 84 t a a;
#X obj 63 241 spigot;
#X obj 102 149 bang;
#X obj 102 168 1;
#X obj 223 149 route bang;
#X obj 183 150 bang;
#X obj 183 169 0;
#X obj 102 114 list split 2;
#X obj 232 379 list split;
#X obj 299 328 list length;
#X obj 299 350 >> 1;
#X obj 63 260 t a a a a;
#X obj 63 446 list split;
#X obj 130 398 list length;
#X obj 130 423 >> 1;
#X obj 31 19 inlet;
#X obj 290 175 outlet;
#X text 73 19 Copyright 2009 by Mathieu Bouchard;
#X obj 31 53 t b a;
#X obj 465 119 outlet;
#X text 520 121 signal end of list;
#X text 381 23 made compatible with [list-drip]: fbar 2009;
#X connect 0 0 1 0;
#X connect 0 1 7 0;
#X connect 1 0 11 0;
#X connect 2 0 3 0;
#X connect 3 0 1 1;
#X connect 4 1 16 0;
#X connect 5 0 6 0;
#X connect 6 0 1 1;
#X connect 7 0 2 0;
#X connect 7 2 4 0;
#X connect 7 2 5 0;
#X connect 8 0 0 0;
#X connect 9 0 10 0;
#X connect 10 0 8 1;
#X connect 11 0 12 0;
#X connect 11 1 13 0;
#X connect 11 2 8 0;
#X connect 11 3 9 0;
#X connect 12 1 0 0;
#X connect 13 0 14 0;
#X connect 14 0 12 1;
#X connect 15 0 18 0;
#X connect 18 0 19 0;
#X connect 18 1 0 0;
#X restore 146 138 pd list-drip;
#X connect 0 0 8 0;
#X connect 2 0 6 0;
#X connect 3 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 1 0;
#X connect 6 0 7 0;
#X connect 6 1 4 0;
#X connect 7 0 3 1;
#X connect 8 0 3 0;
#X connect 8 1 9 0;
#X connect 8 2 7 1;
#X connect 8 3 4 1;
#X connect 9 0 2 0;
#X restore 85 237 pd list-mean;
#X text 235 60 list coef filtre;
#X obj 165 89 list length;
#X obj 85 124 last_n;
#X floatatom 172 119 5 0 0 0 - - -;
#X connect 0 0 5 1;
#X connect 0 0 8 0;
#X connect 2 0 9 0;
#X connect 4 0 3 0;
#X connect 5 0 6 0;
#X connect 6 0 4 0;
#X connect 8 0 9 1;
#X connect 8 0 10 0;
#X connect 8 0 4 1;
#X connect 9 0 5 0;