From 48f0a69bdb7d18b9a2ed64a8959b22b9130e0e12 Mon Sep 17 00:00:00 2001
From: Cyrille Henry <nusmuk@users.sourceforge.net>
Date: Sun, 16 Sep 2012 19:45:32 +0000
Subject: adding 1 disto type

svn path=/trunk/externals/nusmuk/; revision=16249
---
 nusmuk-audio/distortion~-help.pd |  4 +--
 nusmuk-audio/distortion~.pd      | 63 +++++++++++++++++++++++++++++++---------
 2 files changed, 52 insertions(+), 15 deletions(-)

diff --git a/nusmuk-audio/distortion~-help.pd b/nusmuk-audio/distortion~-help.pd
index 281916b..af9280e 100644
--- a/nusmuk-audio/distortion~-help.pd
+++ b/nusmuk-audio/distortion~-help.pd
@@ -1,4 +1,4 @@
-#N canvas 635 105 450 300 10;
+#N canvas 633 111 450 300 10;
 #X obj 38 206 oscillo~;
 #X obj 39 24 osc~ 222;
 #X obj 60 172 dac~;
@@ -8,7 +8,7 @@
 #X msg 151 44 \$1 100;
 #X obj 38 79 +~;
 #X floatatom 53 61 5 0 0 0 - - -;
-#X obj 151 96 hradio 15 1 0 4 empty empty empty 0 -8 0 10 -262144 -1
+#X obj 151 96 hradio 15 1 0 5 empty empty empty 0 -8 0 10 -262144 -1
 -1 0;
 #X text 224 97 disto mode;
 #X text 199 28 distortion %;
diff --git a/nusmuk-audio/distortion~.pd b/nusmuk-audio/distortion~.pd
index e5a7064..96dfa00 100644
--- a/nusmuk-audio/distortion~.pd
+++ b/nusmuk-audio/distortion~.pd
@@ -1,4 +1,4 @@
-#N canvas 188 64 622 419 10;
+#N canvas 182 95 622 419 10;
 #X obj 30 129 +~ 5000;
 #X obj 29 27 inlet~;
 #X obj 31 153 tabread4~ \$0-disto;
@@ -8,10 +8,10 @@
 #X obj 160 129 +~ 5000;
 #X obj 160 153 tabread4~ \$0-disto;
 #X obj 30 229 outlet~;
-#X obj 294 298 table \$0-disto 10000;
+#X obj 294 337 table \$0-disto 10000;
 #X obj 31 197 /~;
 #X obj 160 71 +~ 100;
-#N canvas 27 440 450 300 sqrt 0;
+#N canvas 25 446 450 300 sqrt 0;
 #X obj 20 63 t b b;
 #X obj 20 159 f;
 #X obj 63 159 + 1;
@@ -56,7 +56,7 @@
 #X restore 313 169 pd sqrt;
 #X obj 313 151 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
 -1 -1;
-#N canvas 0 0 640 460 sigmoid 0;
+#N canvas 1 83 640 460 sigmoid 0;
 #X obj 23 59 t b b;
 #X obj 23 148 f;
 #X obj 61 148 + 1;
@@ -176,9 +176,44 @@
 #X obj 345 238 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
 -1 -1;
 #X obj 298 32 inlet;
-#X obj 298 84 sel 0 1 2 3;
-#X msg 337 54 0;
 #X obj 337 32 loadbang;
+#X obj 298 84 sel 0 1 2 3 4;
+#X obj 359 283 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#N canvas 615 471 640 460 cos 0;
+#X obj 23 59 t b b;
+#X obj 23 148 f;
+#X obj 61 148 + 1;
+#X msg 50 125 0;
+#X obj 23 102 until;
+#X obj 23 40 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 23 319 tabwrite \$0-disto;
+#X msg 23 81 10000;
+#X obj 23 192 / 9999;
+#X obj 23 171 t f f;
+#X obj 23 15 inlet;
+#X obj 23 255 cos;
+#X obj 23 234 * 3.14;
+#X obj 23 280 * -1;
+#X connect 0 0 7 0;
+#X connect 0 1 3 0;
+#X connect 1 0 2 0;
+#X connect 1 0 9 0;
+#X connect 2 0 1 1;
+#X connect 3 0 1 1;
+#X connect 4 0 1 0;
+#X connect 5 0 0 0;
+#X connect 7 0 4 0;
+#X connect 8 0 12 0;
+#X connect 9 0 8 0;
+#X connect 9 1 6 1;
+#X connect 10 0 5 0;
+#X connect 11 0 13 0;
+#X connect 12 0 11 0;
+#X connect 13 0 6 0;
+#X restore 359 301 pd cos;
+#X obj 298 60 f;
 #X connect 0 0 2 0;
 #X connect 1 0 4 0;
 #X connect 2 0 10 0;
@@ -194,10 +229,12 @@
 #X connect 15 0 14 0;
 #X connect 17 0 16 0;
 #X connect 19 0 18 0;
-#X connect 20 0 21 0;
-#X connect 21 0 15 0;
-#X connect 21 1 13 0;
-#X connect 21 2 17 0;
-#X connect 21 3 19 0;
-#X connect 22 0 21 0;
-#X connect 23 0 22 0;
+#X connect 20 0 25 0;
+#X connect 21 0 25 0;
+#X connect 22 0 15 0;
+#X connect 22 1 13 0;
+#X connect 22 2 17 0;
+#X connect 22 3 19 0;
+#X connect 22 4 23 0;
+#X connect 23 0 24 0;
+#X connect 25 0 22 0;
-- 
cgit v1.2.1