From 3da716c5e2ea346fed70084bd483125cfc742891 Mon Sep 17 00:00:00 2001
From: Cyrille Henry <nusmuk@users.sourceforge.net>
Date: Sun, 29 Mar 2009 16:03:42 +0000
Subject: same algo, but faster (i.e. without expr~ object). this version was
 made by Frank Barknecht

svn path=/trunk/externals/nusmuk/; revision=10927
---
 oscillators/saw~.pd | 89 ++++++++++++++++++++++++++++++++++++++++-------------
 1 file changed, 67 insertions(+), 22 deletions(-)

(limited to 'oscillators/saw~.pd')

diff --git a/oscillators/saw~.pd b/oscillators/saw~.pd
index 087b8cb..f06316e 100644
--- a/oscillators/saw~.pd
+++ b/oscillators/saw~.pd
@@ -1,34 +1,79 @@
-#N canvas 1492 355 660 293 10;
-#X obj 21 -73 phasor~;
-#X obj 92 -38 -~ 0.5;
-#X obj 235 9 *~ 2;
-#X obj 91 31 wrap~;
-#X obj 92 57 *~ 2;
-#X obj 92 82 -~ 1;
-#X obj 273 8 /~;
-#X obj 272 -17 sig~ 22050;
-#X obj 235 36 *~;
-#X obj 236 58 abs~;
-#X obj 235 80 +~ 1.8955;
-#X obj 22 -100 inlet~;
-#X obj 21 132 outlet~;
-#X obj 22 106 expr~ -$v1+$v3+$v2*sin($v4)/$v4;
-#X obj 163 82 expr~ $v1 > 0;
+#N canvas 232 120 725 608 10;
+#X obj 105 96 phasor~;
+#X obj 173 131 -~ 0.5;
+#X obj 421 192 *~ 2;
+#X obj 328 217 wrap~;
+#X obj 329 243 *~ 2;
+#X obj 329 268 -~ 1;
+#X obj 459 191 /~;
+#X obj 458 146 sig~ 22050;
+#X obj 421 219 *~;
+#X obj 422 241 abs~;
+#X obj 421 263 +~ 1.8955;
+#X obj 106 49 inlet~;
+#X obj 87 542 outlet~;
+#X obj 458 97 samplerate~;
+#X obj 458 74 loadbang;
+#X obj 458 120 * 0.5;
+#X obj 174 427 +~;
+#N canvas 104 42 701 480 sin(x)/x 0;
+#X obj 220 229 cos~;
+#X obj 221 204 -~ 0.25;
+#X msg 288 90 1;
+#X floatatom 288 162 5 0 0 0 - - -;
+#X obj 288 116 atan;
+#X obj 288 137 * 8;
+#X obj 220 181 /~ 6.238;
+#X obj 288 67 loadbang;
+#X obj 221 148 inlet~;
+#X obj 219 291 outlet~;
+#X obj 220 255 /~;
+#X connect 0 0 10 0;
+#X connect 1 0 0 0;
+#X connect 2 0 4 0;
+#X connect 3 0 6 1;
+#X connect 4 0 5 0;
+#X connect 5 0 3 0;
+#X connect 6 0 1 0;
+#X connect 7 0 2 0;
+#X connect 8 0 6 0;
+#X connect 8 0 10 1;
+#X connect 10 0 9 0;
+#X restore 421 293 pd sin(x)/x;
+#X obj 330 392 *~;
+#X text 357 387 v2*sin(v4)/v4;
+#X text 208 426 + v3;
+#X obj 87 482 -~;
+#X obj 557 476 loadbang;
+#X obj 557 539 table \$0-lookup 2;
+#X obj 175 333 tabread~ \$0-lookup;
+#X obj 174 311 +~ 1;
+#X obj 557 518 s \$0-lookup;
+#X msg 557 497 0 0 1;
 #X connect 0 0 1 0;
-#X connect 0 0 13 0;
+#X connect 0 0 21 1;
 #X connect 1 0 2 0;
 #X connect 1 0 3 0;
-#X connect 1 0 14 0;
+#X connect 1 0 25 0;
 #X connect 2 0 8 0;
 #X connect 3 0 4 0;
 #X connect 4 0 5 0;
-#X connect 5 0 13 1;
+#X connect 5 0 18 0;
 #X connect 6 0 8 1;
 #X connect 7 0 6 0;
 #X connect 8 0 9 0;
 #X connect 9 0 10 0;
-#X connect 10 0 13 3;
+#X connect 10 0 17 0;
 #X connect 11 0 0 0;
 #X connect 11 0 6 1;
-#X connect 13 0 12 0;
-#X connect 14 0 13 2;
+#X connect 13 0 15 0;
+#X connect 14 0 13 0;
+#X connect 15 0 7 0;
+#X connect 16 0 21 0;
+#X connect 17 0 18 1;
+#X connect 18 0 16 1;
+#X connect 21 0 12 0;
+#X connect 22 0 27 0;
+#X connect 24 0 16 0;
+#X connect 25 0 24 0;
+#X connect 27 0 26 0;
-- 
cgit v1.2.1