Skip to content

Commit 22f935d

Browse files
michaelpacemichaelpace
committed
fix bug in [sinesum] and clean up comment in [swarm~.impl]
1 parent 6839571 commit 22f935d

File tree

2 files changed

+254
-218
lines changed

2 files changed

+254
-218
lines changed

‎sinesum.pd

+161-124
Original file line numberDiff line numberDiff line change
@@ -1,131 +1,135 @@
11
#N canvas 0 38 1512 884 12;
2-
#X obj 29 40 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
2+
#X obj 29 120 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
33
#000000;
4-
#X obj 61 124 t f f, f 25;
5-
#X obj 61 148 / 2051;
6-
#X obj 61 172 * 6.28319;
7-
#X obj 58 12 loadbang;
8-
#X text 133 171 2pi \, since [sin] takes in radians (2pi*r);
9-
#X obj 61 196 t b f;
10-
#X obj 259 121 swap 2048;
11-
#X obj 259 145 -;
12-
#X obj 61 220 t f f f f f f f f f f f f f f f f f f f f f f f f f f
4+
#X obj 61 204 t f f, f 25;
5+
#X obj 61 228 / 2051;
6+
#X obj 61 252 * 6.28319;
7+
#X obj 29 92 loadbang;
8+
#X text 133 251 2pi \, since [sin] takes in radians (2pi*r);
9+
#X obj 61 276 t b f;
10+
#X obj 259 201 swap 2048;
11+
#X obj 259 225 -;
12+
#X obj 61 300 t f f f f f f f f f f f f f f f f f f f f f f f f f f
1313
f f f f f f, f 197;
14-
#X obj 61 244 * 1;
15-
#X obj 61 268 sin;
16-
#X obj 61 346 accumulator;
17-
#X obj 106 268 sin;
18-
#X obj 149 268 sin;
19-
#X obj 194 268 sin;
20-
#X obj 238 268 sin;
21-
#X obj 283 268 sin;
22-
#X obj 326 268 sin;
23-
#X obj 371 268 sin;
24-
#X obj 416 268 sin;
25-
#X obj 461 268 sin;
26-
#X obj 504 268 sin;
27-
#X obj 549 268 sin;
28-
#X obj 593 268 sin;
29-
#X obj 638 268 sin;
30-
#X obj 681 268 sin;
31-
#X obj 726 268 sin;
32-
#X obj 771 268 sin;
33-
#X obj 816 268 sin;
34-
#X obj 859 268 sin;
35-
#X obj 904 268 sin;
36-
#X obj 948 268 sin;
37-
#X obj 993 268 sin;
38-
#X obj 1036 268 sin;
39-
#X obj 1081 268 sin;
40-
#X obj 1127 268 sin;
41-
#X obj 1172 268 sin;
42-
#X obj 1215 268 sin;
43-
#X obj 1260 268 sin;
44-
#X obj 1304 268 sin;
45-
#X obj 1349 268 sin;
46-
#X obj 1392 268 sin;
47-
#X obj 1437 268 sin;
48-
#X obj 106 244 * 2;
49-
#X obj 149 244 * 3;
50-
#X obj 194 244 * 4;
51-
#X obj 238 244 * 5;
52-
#X obj 283 244 * 6;
53-
#X obj 326 244 * 7;
54-
#X obj 371 244 * 8;
55-
#X obj 416 244 * 9;
56-
#X obj 461 244 * 10;
57-
#X obj 504 244 * 11;
58-
#X obj 549 244 * 12;
59-
#X obj 593 244 * 13;
60-
#X obj 638 244 * 14;
61-
#X obj 681 244 * 15;
62-
#X obj 726 244 * 16;
63-
#X obj 771 244 * 17;
64-
#X obj 816 244 * 18;
65-
#X obj 859 244 * 19;
66-
#X obj 904 244 * 20;
67-
#X obj 948 244 * 21;
68-
#X obj 993 244 * 22;
69-
#X obj 1036 244 * 23;
70-
#X obj 1081 244 * 24;
71-
#X obj 1127 244 * 25;
72-
#X obj 1172 244 * 26;
73-
#X obj 1215 244 * 27;
74-
#X obj 1260 244 * 28;
75-
#X obj 1304 244 * 29;
76-
#X obj 1349 244 * 30;
77-
#X obj 1392 244 * 31;
78-
#X obj 1437 244 * 32;
79-
#X obj 92 425 abs;
80-
#X obj 61 370 t f f;
81-
#X floatatom 92 473 5 0 0 0 - - - 0;
82-
#X obj 92 449 maxseen;
83-
#X obj 29 648 /, f 10;
84-
#X obj 29 594 t f f, f 22;
85-
#X text 211 566 then normalize;
86-
#X text 192 90 first write to the table;
87-
#X obj 580 96 inlet;
88-
#X obj 580 120 unpack f f f f f f f f f f f f f f f f f f f f f f f
14+
#X obj 61 324 * 1;
15+
#X obj 61 348 sin;
16+
#X obj 61 426 accumulator;
17+
#X obj 106 348 sin;
18+
#X obj 149 348 sin;
19+
#X obj 194 348 sin;
20+
#X obj 238 348 sin;
21+
#X obj 283 348 sin;
22+
#X obj 326 348 sin;
23+
#X obj 371 348 sin;
24+
#X obj 416 348 sin;
25+
#X obj 461 348 sin;
26+
#X obj 504 348 sin;
27+
#X obj 549 348 sin;
28+
#X obj 593 348 sin;
29+
#X obj 638 348 sin;
30+
#X obj 681 348 sin;
31+
#X obj 726 348 sin;
32+
#X obj 771 348 sin;
33+
#X obj 816 348 sin;
34+
#X obj 859 348 sin;
35+
#X obj 904 348 sin;
36+
#X obj 948 348 sin;
37+
#X obj 993 348 sin;
38+
#X obj 1036 348 sin;
39+
#X obj 1081 348 sin;
40+
#X obj 1127 348 sin;
41+
#X obj 1172 348 sin;
42+
#X obj 1215 348 sin;
43+
#X obj 1260 348 sin;
44+
#X obj 1304 348 sin;
45+
#X obj 1349 348 sin;
46+
#X obj 1392 348 sin;
47+
#X obj 1437 348 sin;
48+
#X obj 106 324 * 2;
49+
#X obj 149 324 * 3;
50+
#X obj 194 324 * 4;
51+
#X obj 238 324 * 5;
52+
#X obj 283 324 * 6;
53+
#X obj 326 324 * 7;
54+
#X obj 371 324 * 8;
55+
#X obj 416 324 * 9;
56+
#X obj 461 324 * 10;
57+
#X obj 504 324 * 11;
58+
#X obj 549 324 * 12;
59+
#X obj 593 324 * 13;
60+
#X obj 638 324 * 14;
61+
#X obj 681 324 * 15;
62+
#X obj 726 324 * 16;
63+
#X obj 771 324 * 17;
64+
#X obj 816 324 * 18;
65+
#X obj 859 324 * 19;
66+
#X obj 904 324 * 20;
67+
#X obj 948 324 * 21;
68+
#X obj 993 324 * 22;
69+
#X obj 1036 324 * 23;
70+
#X obj 1081 324 * 24;
71+
#X obj 1127 324 * 25;
72+
#X obj 1172 324 * 26;
73+
#X obj 1215 324 * 27;
74+
#X obj 1260 324 * 28;
75+
#X obj 1304 324 * 29;
76+
#X obj 1349 324 * 30;
77+
#X obj 1392 324 * 31;
78+
#X obj 1437 324 * 32;
79+
#X obj 92 505 abs;
80+
#X obj 61 450 t f f;
81+
#X floatatom 92 553 5 0 0 0 - - - 0;
82+
#X obj 92 529 maxseen;
83+
#X obj 29 728 /, f 10;
84+
#X obj 29 674 t f f, f 22;
85+
#X text 211 646 then normalize;
86+
#X text 192 170 first write to the table;
87+
#X obj 580 158 inlet;
88+
#X obj 580 200 unpack f f f f f f f f f f f f f f f f f f f f f f f
8989
f f f f f f f f f, f 129;
90-
#X obj 61 292 *;
91-
#X obj 106 292 *;
92-
#X obj 149 292 *;
93-
#X obj 194 292 *;
94-
#X obj 238 292 *;
95-
#X obj 283 292 *;
96-
#X obj 326 292 *;
97-
#X obj 371 292 *;
98-
#X obj 416 292 *;
99-
#X obj 461 292 *;
100-
#X obj 504 292 *;
101-
#X obj 549 292 *;
102-
#X obj 593 292 *;
103-
#X obj 638 292 *;
104-
#X obj 681 292 *;
105-
#X obj 726 292 *;
106-
#X obj 771 292 *;
107-
#X obj 816 292 *;
108-
#X obj 859 292 *;
109-
#X obj 904 292 *;
110-
#X obj 948 292 *;
111-
#X obj 993 292 *;
112-
#X obj 1036 292 *;
113-
#X obj 1081 292 *;
114-
#X obj 1127 292 *;
115-
#X obj 1172 292 *;
116-
#X obj 1215 292 *;
117-
#X obj 1260 292 *;
118-
#X obj 1304 292 *;
119-
#X obj 1349 292 *;
120-
#X obj 1392 292 *;
121-
#X obj 1437 292 *;
122-
#X obj 483 27 table sinesum-\$1 2051;
123-
#X obj 61 394 tabwrite sinesum-\$1;
124-
#X obj 29 624 tabread sinesum-\$1;
125-
#X obj 29 672 tabwrite sinesum-\$1;
126-
#X obj 29 60 t b b b, f 10;
127-
#X obj 61 100 countrange 1 2049;
128-
#X obj 29 570 countrange 1 2049;
90+
#X obj 61 372 *;
91+
#X obj 106 372 *;
92+
#X obj 149 372 *;
93+
#X obj 194 372 *;
94+
#X obj 238 372 *;
95+
#X obj 283 372 *;
96+
#X obj 326 372 *;
97+
#X obj 371 372 *;
98+
#X obj 416 372 *;
99+
#X obj 461 372 *;
100+
#X obj 504 372 *;
101+
#X obj 549 372 *;
102+
#X obj 593 372 *;
103+
#X obj 638 372 *;
104+
#X obj 681 372 *;
105+
#X obj 726 372 *;
106+
#X obj 771 372 *;
107+
#X obj 816 372 *;
108+
#X obj 859 372 *;
109+
#X obj 904 372 *;
110+
#X obj 948 372 *;
111+
#X obj 993 372 *;
112+
#X obj 1036 372 *;
113+
#X obj 1081 372 *;
114+
#X obj 1127 372 *;
115+
#X obj 1172 372 *;
116+
#X obj 1215 372 *;
117+
#X obj 1260 372 *;
118+
#X obj 1304 372 *;
119+
#X obj 1349 372 *;
120+
#X obj 1392 372 *;
121+
#X obj 1437 372 *;
122+
#X obj 206 43 table sinesum-\$1 2051;
123+
#X obj 61 474 tabwrite sinesum-\$1;
124+
#X obj 29 704 tabread sinesum-\$1;
125+
#X obj 29 752 tabwrite sinesum-\$1;
126+
#X obj 29 140 t b b b, f 10;
127+
#X obj 61 180 countrange 1 2049;
128+
#X obj 29 650 countrange 1 2049;
129+
#X msg 1496 353 0;
130+
#X text 627 149 connections made in a specific order \; can't use a
131+
[t] since input here is a list.;
132+
#X text 516 119 list of up to 32 harmonics \, scaled to 0...1;
129133
#X connect 0 0 121 0;
130134
#X connect 1 0 2 0;
131135
#X connect 1 1 7 0;
@@ -242,6 +246,7 @@ f f f f f f f f f, f 129;
242246
#X connect 79 0 120 0;
243247
#X connect 80 0 119 0;
244248
#X connect 80 1 120 1;
249+
#X connect 83 0 124 0;
245250
#X connect 83 0 84 0;
246251
#X connect 83 0 0 0;
247252
#X connect 84 0 85 1;
@@ -314,3 +319,35 @@ f f f f f f f f f, f 129;
314319
#X connect 121 2 78 1;
315320
#X connect 122 0 1 0;
316321
#X connect 123 0 80 0;
322+
#X connect 124 0 116 1;
323+
#X connect 124 0 115 1;
324+
#X connect 124 0 114 1;
325+
#X connect 124 0 113 1;
326+
#X connect 124 0 112 1;
327+
#X connect 124 0 111 1;
328+
#X connect 124 0 110 1;
329+
#X connect 124 0 109 1;
330+
#X connect 124 0 108 1;
331+
#X connect 124 0 107 1;
332+
#X connect 124 0 106 1;
333+
#X connect 124 0 105 1;
334+
#X connect 124 0 104 1;
335+
#X connect 124 0 103 1;
336+
#X connect 124 0 102 1;
337+
#X connect 124 0 101 1;
338+
#X connect 124 0 100 1;
339+
#X connect 124 0 99 1;
340+
#X connect 124 0 98 1;
341+
#X connect 124 0 97 1;
342+
#X connect 124 0 96 1;
343+
#X connect 124 0 95 1;
344+
#X connect 124 0 94 1;
345+
#X connect 124 0 93 1;
346+
#X connect 124 0 92 1;
347+
#X connect 124 0 91 1;
348+
#X connect 124 0 90 1;
349+
#X connect 124 0 89 1;
350+
#X connect 124 0 88 1;
351+
#X connect 124 0 87 1;
352+
#X connect 124 0 86 1;
353+
#X connect 124 0 85 1;

0 commit comments

Comments
 (0)