add band limited oscillartors

svn path=/trunk/externals/nusmuk/; revision=10149

4 files changed, 114 insertions, 0 deletions

diff --git a/oscillators/pwm~-help.pd b/oscillators/pwm~-help.pd
new file mode 100644
index 0000000..9163527
--- /dev/null
+++ b/oscillators/pwm~-help.pd
@@ -0,0 +1,24 @@
+#N canvas 228 478 660 293 10;
+#X obj 41 196 *~ 0.3;
+#X obj 42 231 dac~;
+#X floatatom 42 58 5 0 0 0 - - -;
+#X obj 42 76 mtof;
+#X obj 41 170 pwm~;
+#X floatatom 146 81 5 0 1 0 - - -;
+#X obj 42 121 line~;
+#X msg 42 98 \$1 33;
+#X obj 146 122 line~;
+#X msg 146 99 \$1 33;
+#X text 159 18 pwm~ is a band-limited square oscillator.;
+#X msg 146 60 0.5;
+#X connect 0 0 1 0;
+#X connect 0 0 1 1;
+#X connect 2 0 3 0;
+#X connect 3 0 7 0;
+#X connect 4 0 0 0;
+#X connect 5 0 9 0;
+#X connect 6 0 4 0;
+#X connect 7 0 6 0;
+#X connect 8 0 4 1;
+#X connect 9 0 8 0;
+#X connect 11 0 5 0;
diff --git a/oscillators/pwm~.pd b/oscillators/pwm~.pd
new file mode 100644
index 0000000..f78a3df
--- /dev/null
+++ b/oscillators/pwm~.pd
@@ -0,0 +1,49 @@
+#N canvas 699 168 644 573 10;
+#X obj 31 156 -~ 0.5;
+#X obj 76 186 *~ 2;
+#X obj 32 271 -~;
+#X obj 32 207 wrap~;
+#X obj 76 246 *~ 0.5;
+#X obj 445 178 /~;
+#X obj 444 153 sig~ 22050;
+#X obj 31 19 inlet~;
+#X obj 76 208 expr~ sin($v1*$v2) * (1/(0.00000001 + abs($v1)*$v2) -
+1/(0.00000001 + $v2));
+#X obj 32 49 phasor~ \$1;
+#X obj 171 319 -~ 0.5;
+#X obj 216 349 *~ 2;
+#X obj 172 434 -~;
+#X obj 172 370 wrap~;
+#X obj 216 409 *~ 0.5;
+#X obj 34 547 outlet~;
+#X obj 216 371 expr~ sin($v1*$v2) * (1/(0.00000001 + abs($v1)*$v2)
+- 1/(0.00000001 + $v2));
+#X obj 172 269 +~;
+#X obj 191 19 inlet~;
+#X obj 171 295 wrap~;
+#X obj 34 516 -~;
+#X connect 0 0 1 0;
+#X connect 0 0 3 0;
+#X connect 1 0 8 0;
+#X connect 2 0 20 0;
+#X connect 3 0 2 0;
+#X connect 4 0 2 0;
+#X connect 5 0 8 1;
+#X connect 5 0 16 1;
+#X connect 6 0 5 0;
+#X connect 7 0 5 1;
+#X connect 7 0 9 0;
+#X connect 8 0 4 0;
+#X connect 9 0 0 0;
+#X connect 9 0 17 0;
+#X connect 10 0 11 0;
+#X connect 10 0 13 0;
+#X connect 11 0 16 0;
+#X connect 12 0 20 1;
+#X connect 13 0 12 0;
+#X connect 14 0 12 0;
+#X connect 16 0 14 0;
+#X connect 17 0 19 0;
+#X connect 18 0 17 1;
+#X connect 19 0 10 0;
+#X connect 20 0 15 0;
diff --git a/oscillators/saw~-help.pd b/oscillators/saw~-help.pd
new file mode 100644
index 0000000..ff209fe
--- /dev/null
+++ b/oscillators/saw~-help.pd
@@ -0,0 +1,14 @@
+#N canvas 228 478 660 293 10;
+#X obj 42 137 saw~;
+#X obj 43 110 sig~ 333;
+#X obj 43 162 *~ 0.3;
+#X obj 43 194 dac~;
+#X floatatom 43 63 5 0 0 0 - - -;
+#X obj 43 86 mtof;
+#X text 159 19 saw~ is a band-limited sawtooth oscillator.;
+#X connect 0 0 2 0;
+#X connect 1 0 0 0;
+#X connect 2 0 3 0;
+#X connect 2 0 3 1;
+#X connect 4 0 5 0;
+#X connect 5 0 1 0;
diff --git a/oscillators/saw~.pd b/oscillators/saw~.pd
new file mode 100644
index 0000000..473652a
--- /dev/null
+++ b/oscillators/saw~.pd
@@ -0,0 +1,27 @@
+#N canvas 228 478 660 293 10;
+#X obj 31 66 -~ 0.5;
+#X obj 76 96 *~ 2;
+#X obj 32 181 -~;
+#X obj 32 117 wrap~;
+#X obj 76 156 *~ 0.5;
+#X obj 33 209 -~ 0.5;
+#X obj 445 88 /~;
+#X obj 444 63 sig~ 22050;
+#X obj 31 19 inlet~;
+#X obj 33 233 outlet~;
+#X obj 76 118 expr~ sin($v1*$v2) * (1/(0.00000001 + abs($v1)*$v2) -
+1/(0.00000001 + $v2));
+#X obj 32 45 phasor~ \$1;
+#X connect 0 0 1 0;
+#X connect 0 0 3 0;
+#X connect 1 0 10 0;
+#X connect 2 0 5 0;
+#X connect 3 0 2 0;
+#X connect 4 0 2 0;
+#X connect 5 0 9 0;
+#X connect 6 0 10 1;
+#X connect 7 0 6 0;
+#X connect 8 0 6 1;
+#X connect 8 0 11 0;
+#X connect 10 0 4 0;
+#X connect 11 0 0 0;