Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

effet distoWaveShaper-Tarrabia

  • Loading branch information...
commit f9d2ff87218221aac0718537258b359f14950262 1 parent f40f2c5
@j-k-p j-k-p authored
Showing with 127 additions and 0 deletions.
  1. +38 −0 distoWaveShaper-Tarrabia~-help.pd
  2. +89 −0 distoWaveShaper-Tarrabia~.pd
View
38 distoWaveShaper-Tarrabia~-help.pd
@@ -0,0 +1,38 @@
+#N canvas 0 0 1272 714 10;
+#X obj 50 109 *~ 0.5;
+#X obj 134 110 *~ 0.5;
+#X obj 51 179 mtl/out~;
+#X obj 51 85 osc~ 110;
+#X obj 134 85 osc~ 110;
+#X obj 24 233 cyclone/Scope~ 130 130 256 3 128 -1 1 0 0 0 0 102 255
+51 135 135 135 0;
+#X obj 215 233 cyclone/Scope~ 130 130 256 3 128 -1 1 0 0 0 0 102 255
+51 135 135 135 0;
+#X text 712 140 tags: fx~;
+#X obj 310 59 cnv 15 200 40 empty empty empty 20 12 0 14 -232576 -66577
+0;
+#X text 370 60 PARAM ENABLED;
+#X obj 377 213 cnv 15 200 20 empty empty /distoWaveShaper-Tarrabia/
+2 12 0 8 -258401 -262144 0;
+#X obj 377 236 hsl 100 15 0 1 0 0 /distoWaveShaper-Tarrabia/wet /distoWaveShaper-Tarrabia/wet_
+wet 105 7 0 8 -262144 -1 -1 0 1;
+#X obj 377 255 hsl 100 15 -1 1 0 0 /distoWaveShaper-Tarrabia/amount
+/distoWaveShaper-Tarrabia/amount_ amount 105 7 0 8 -262144 -1 -1 4950
+1;
+#X obj 345 79 tof/open_help tof/param;
+#X text 721 179 Extract from http://www.musicdsp.org/archive.php?classid=4
+amount should be in [-1..1[ Plot it and stand back in astonishment!
+\; ) Code : x = input in [-1..1] y = output k = 2*amount/(1-amount)
+\; f(x) = (1+k)*x/(1+k*abs(x));
+#X text 711 125 Author: Partice Tarrabia and Bram de Jong;
+#X text 711 110 Description: a lofi distortion;
+#X obj 51 146 mtl/distoWaveShaper-Tarrabia~ /id distoWaveShaper-Tarrabia
+;
+#X connect 0 0 5 0;
+#X connect 0 0 17 0;
+#X connect 1 0 17 1;
+#X connect 3 0 0 0;
+#X connect 4 0 1 0;
+#X connect 17 0 2 0;
+#X connect 17 1 2 1;
+#X connect 17 1 6 0;
View
89 distoWaveShaper-Tarrabia~.pd
@@ -0,0 +1,89 @@
+#N canvas 167 262 577 373 10;
+#X obj 33 51 inlet~;
+#X obj 31 260 outlet~;
+#X obj 126 236 outlet~;
+#X obj 96 57 inlet~;
+#X obj 400 7 inlet params;
+#X obj 205 167 tof/param /wet 0 /g slider 0 1;
+#X obj 400 53 print PARAM_NOTFOUND;
+#X obj 32 209 tof/crossfade~ 2;
+#X msg 205 190 \$1 5;
+#X obj 205 214 line~;
+#X obj 400 29 tof/param route;
+#X obj 355 127 tof/param gui;
+#X obj 170 42 tof/param /amount 0 /g slider -1 1;
+#N canvas 153 112 944 688 waveshaper 0;
+#X obj 176 173 inlet~;
+#X obj 225 591 outlet~;
+#X obj 381 229 inlet;
+#X obj 284 295 expr ((2*$f1)/(1-$f1));
+#X obj 230 533 expr~ ((1+$f2)*$v1/(1+$f2*abs($v1)));
+#X floatatom 278 323 5 0 0 0 - - -;
+#X obj 413 420 * 2;
+#X floatatom 464 458 5 0 0 0 - - -;
+#X obj 426 450 /;
+#X floatatom 424 493 5 0 0 0 - - -;
+#X msg 438 390 1;
+#X obj 455 357 t b f;
+#X obj 445 419 -;
+#X connect 0 0 4 0;
+#X connect 2 0 3 0;
+#X connect 2 0 6 0;
+#X connect 2 0 11 0;
+#X connect 3 0 5 0;
+#X connect 4 0 1 0;
+#X connect 6 0 8 0;
+#X connect 8 0 9 0;
+#X connect 8 0 4 1;
+#X connect 10 0 12 0;
+#X connect 11 0 10 0;
+#X connect 11 1 12 1;
+#X connect 12 0 7 0;
+#X connect 12 0 8 1;
+#X restore 66 152 pd waveshaper;
+#X obj 354 98 b;
+#N canvas 153 112 944 688 waveshaper 0;
+#X obj 176 173 inlet~;
+#X obj 225 591 outlet~;
+#X obj 381 229 inlet;
+#X obj 284 295 expr ((2*$f1)/(1-$f1));
+#X obj 230 533 expr~ ((1+$f2)*$v1/(1+$f2*abs($v1)));
+#X floatatom 278 323 5 0 0 0 - - -;
+#X obj 413 420 * 2;
+#X floatatom 464 458 5 0 0 0 - - -;
+#X obj 426 450 /;
+#X floatatom 424 493 5 0 0 0 - - -;
+#X msg 438 390 1;
+#X obj 455 357 t b f;
+#X obj 445 419 -;
+#X connect 0 0 4 0;
+#X connect 2 0 3 0;
+#X connect 2 0 6 0;
+#X connect 2 0 11 0;
+#X connect 3 0 5 0;
+#X connect 4 0 1 0;
+#X connect 6 0 8 0;
+#X connect 8 0 9 0;
+#X connect 8 0 4 1;
+#X connect 10 0 12 0;
+#X connect 11 0 10 0;
+#X connect 11 1 12 1;
+#X connect 12 0 7 0;
+#X connect 12 0 8 1;
+#X restore 110 175 pd waveshaper;
+#X connect 0 0 7 0;
+#X connect 0 0 13 0;
+#X connect 3 0 7 1;
+#X connect 3 0 15 0;
+#X connect 4 0 10 0;
+#X connect 5 0 8 0;
+#X connect 7 0 1 0;
+#X connect 7 1 2 0;
+#X connect 8 0 9 0;
+#X connect 9 0 7 4;
+#X connect 10 0 6 0;
+#X connect 12 0 13 1;
+#X connect 12 0 15 1;
+#X connect 13 0 7 2;
+#X connect 14 0 11 0;
+#X connect 15 0 7 3;
Please sign in to comment.
Something went wrong with that request. Please try again.