1 files changed, 73 insertions, 0 deletions
diff --git a/abs/dsfosc~.pd b/abs/dsfosc~.pd
new file mode 100644
index 0000000..2bb3675
--- /dev/null
+++ b/abs/dsfosc~.pd
@@ -0,0 +1,73 @@
+#N canvas 162 88 557 519 10;
+#X obj 201 473 outlet~;
+#X obj 258 473 outlet~;
+#X text 59 21 complex form of the discrete summation oscillator;
+#X text 62 38 (1-az^n)/(1-az) \, with z = e^(jw);
+#X obj 118 122 inlet~;
+#X text 93 100 frequency;
+#X obj 263 119 inlet;
+#X obj 118 284 cosc~;
+#X obj 233 258 *~ \$1;
+#X obj 118 350 *~;
+#X obj 149 350 *~;
+#X obj 233 283 cosc~;
+#X obj 232 340 *~;
+#X obj 263 340 *~;
+#X obj 118 378 +~ 1;
+#X obj 233 368 +~ 1;
+#X obj 119 404 cinv~;
+#X obj 213 446 cmul~;
+#X obj 354 122 inlet;
+#X obj 354 170 * -1;
+#X obj 166 327 lop~ 10;
+#X text 195 100 harmonics (N);
+#X text 317 102 modulation (r);
+#X obj 384 217 abs;
+#X obj 354 194 t f f;
+#X obj 354 278 *;
+#X obj 354 236 /;
+#X obj 384 256 pow \$1;
+#X floatatom 368 316 5 0 0 0 - - -;
+#X floatatom 192 270 5 0 0 0 - - -;
+#X obj 264 150 t b f;
+#X obj 354 148 f;
+#X obj 298 333 lop~ 10;
+#X connect 4 0 8 0;
+#X connect 4 0 7 0;
+#X connect 6 0 30 0;
+#X connect 7 0 9 0;
+#X connect 7 1 10 0;
+#X connect 8 0 11 0;
+#X connect 9 0 14 0;
+#X connect 10 0 16 1;
+#X connect 11 0 12 0;
+#X connect 11 1 13 0;
+#X connect 12 0 15 0;
+#X connect 13 0 17 3;
+#X connect 14 0 16 0;
+#X connect 15 0 17 2;
+#X connect 16 0 17 0;
+#X connect 16 1 17 1;
+#X connect 17 0 0 0;
+#X connect 17 1 1 0;
+#X connect 18 0 31 0;
+#X connect 19 0 24 0;
+#X connect 19 0 20 0;
+#X connect 20 0 10 1;
+#X connect 20 0 9 1;
+#X connect 23 0 26 1;
+#X connect 23 0 27 0;
+#X connect 24 0 26 0;
+#X connect 24 1 23 0;
+#X connect 25 0 32 0;
+#X connect 26 0 25 0;
+#X connect 27 0 25 1;
+#X connect 28 0 32 1;
+#X connect 28 0 29 0;
+#X connect 29 0 20 1;
+#X connect 30 0 31 0;
+#X connect 30 1 8 1;
+#X connect 30 1 27 1;
+#X connect 31 0 19 0;
+#X connect 32 0 13 1;
+#X connect 32 0 12 1;