1 files changed, 160 insertions, 0 deletions
diff --git a/distoNonmonotone~.pd b/distoNonmonotone~.pd
new file mode 100644
index 0000000..a1a106a
--- /dev/null
+++ b/distoNonmonotone~.pd
@@ -0,0 +1,160 @@
+#N canvas 2 363 639 371 10;
+#X obj 65 238 outlet~ left;
+#X obj 148 238 outlet~ right;
+#X obj 67 86 inlet~ left;
+#X obj 146 86 inlet~ right;
+#N canvas 300 102 1068 724 distortionnonmonotone 0;
+#X obj 54 20 inlet~;
+#X obj 513 17 inlet~;
+#X obj 42 527 outlet~;
+#X obj 504 518 outlet~;
+#X obj 111 228 dbtorms;
+#X floatatom 271 265 5 0 0 0 - - -;
+#X obj 54 226 +~;
+#X obj 54 51 hip~ 5;
+#X obj 229 167 phasor~;
+#X obj 229 223 phasor~;
+#X obj 111 210 env~;
+#X obj 54 375 +~;
+#X obj 69 428 phasor~;
+#X obj 69 447 expr~ sin($v1*3.1416*2)*$f2+$f3;
+#X obj 53 502 +~;
+#X obj 229 185 expr~ sin($v1*3.141593*2)*$f2+$f3;
+#X obj 229 241 expr~ sin($v1*3.141593*2)*$f2+$f3;
+#X obj 67 483 *~;
+#X obj 70 267 expr~ sin($v1*$v2/$f3)*$f3*0.35;
+#X obj 70 287 expr~ sin($v1*$v2/$f3)*$f3*0.35;
+#X text 93 194 calcul du volume;
+#X text 306 265 volume;
+#X obj 571 218 dbtorms;
+#X floatatom 731 255 5 0 0 0 - - -;
+#X obj 514 216 +~;
+#X obj 514 41 hip~ 5;
+#X obj 689 157 phasor~;
+#X obj 689 213 phasor~;
+#X obj 571 200 env~;
+#X obj 514 365 +~;
+#X obj 529 418 phasor~;
+#X obj 529 437 expr~ sin($v1*3.1416*2)*$f2+$f3;
+#X obj 513 492 +~;
+#X obj 689 175 expr~ sin($v1*3.141593*2)*$f2+$f3;
+#X obj 689 231 expr~ sin($v1*3.141593*2)*$f2+$f3;
+#X obj 529 474 *~;
+#X obj 530 257 expr~ sin($v1*$v2/$f3)*$f3*0.35;
+#X obj 530 277 expr~ sin($v1*$v2/$f3)*$f3*0.35;
+#X text 553 184 calcul du volume;
+#X text 766 255 volume;
+#X obj 71 464 vd~ \$0bar1;
+#X obj 95 527 delwrite~ \$0bar1 50;
+#X obj 555 517 delwrite~ \$0bar2 50;
+#X obj 529 455 vd~ \$0bar2;
+#X floatatom 245 514 5 0 0 0 - - -;
+#X floatatom 142 420 5 0 0 0 - - -;
+#X text 110 4 distorsion non-monotone (deux copies);
+#X text 111 68 mix avec le son original pcq l'effet tout seul sonne
+trop aigu (il élimine les graves);
+#X text 111 16 l'effet est conjugué par un compresseur total de volume
+\,;
+#X text 111 28 c'est-à-dire qu'on annule le volume avant l'effet;
+#X text 111 40 et qu'on le restitue ensuite \, pour que la distorsion
+ait;
+#X text 111 52 un impact à peu près constant \, quel que soit le
+volume.;
+#X obj 723 -83 tof/param /freq1 0 /g nbx;
+#X obj 723 -63 tof/param /amp1 0 /g nbx;
+#X obj 723 -43 tof/param /base1 0 /g nbx;
+#X obj 723 -23 tof/param /freq2 0 /g nbx;
+#X obj 723 -3 tof/param /amp2 0 /g nbx;
+#X obj 723 17 tof/param /base2 0 /g nbx;
+#X obj 723 37 tof/param /freqfeed 0 /g nbx;
+#X obj 724 57 tof/param /ampfeed 0 /g nbx;
+#X obj 724 79 tof/param /basefeed 0 /g nbx;
+#X obj 724 99 tof/param /feedback 0 /g nbx;
+#X connect 0 0 7 0;
+#X connect 1 0 25 0;
+#X connect 4 0 5 0;
+#X connect 4 0 18 2;
+#X connect 4 0 19 2;
+#X connect 6 0 10 0;
+#X connect 6 0 11 0;
+#X connect 6 0 18 0;
+#X connect 6 0 19 0;
+#X connect 7 0 6 0;
+#X connect 8 0 15 0;
+#X connect 9 0 16 0;
+#X connect 10 0 4 0;
+#X connect 11 0 14 0;
+#X connect 12 0 13 0;
+#X connect 13 0 40 0;
+#X connect 14 0 2 0;
+#X connect 14 0 41 0;
+#X connect 15 0 18 1;
+#X connect 16 0 19 1;
+#X connect 17 0 14 1;
+#X connect 18 0 11 0;
+#X connect 19 0 11 0;
+#X connect 22 0 23 0;
+#X connect 22 0 36 2;
+#X connect 22 0 37 2;
+#X connect 24 0 28 0;
+#X connect 24 0 29 0;
+#X connect 24 0 36 0;
+#X connect 24 0 37 0;
+#X connect 25 0 24 0;
+#X connect 26 0 33 0;
+#X connect 27 0 34 0;
+#X connect 28 0 22 0;
+#X connect 29 0 32 0;
+#X connect 30 0 31 0;
+#X connect 31 0 43 0;
+#X connect 32 0 3 0;
+#X connect 32 0 42 0;
+#X connect 33 0 36 1;
+#X connect 34 0 37 1;
+#X connect 35 0 32 1;
+#X connect 36 0 29 0;
+#X connect 37 0 29 0;
+#X connect 40 0 17 0;
+#X connect 43 0 35 0;
+#X connect 44 0 17 1;
+#X connect 44 0 35 1;
+#X connect 52 0 8 0;
+#X connect 52 0 26 0;
+#X connect 53 0 15 1;
+#X connect 53 0 33 1;
+#X connect 54 0 33 2;
+#X connect 54 0 15 2;
+#X connect 55 0 9 0;
+#X connect 55 0 27 0;
+#X connect 56 0 16 1;
+#X connect 56 0 34 1;
+#X connect 57 0 16 2;
+#X connect 57 0 34 2;
+#X connect 58 0 30 0;
+#X connect 58 0 12 0;
+#X connect 59 0 31 1;
+#X connect 59 0 13 1;
+#X connect 60 0 31 2;
+#X connect 60 0 13 2;
+#X connect 61 0 44 0;
+#X restore 98 134 pd distortionnonmonotone;
+#X obj 438 70 inlet params;
+#X obj 214 177 tof/param /wet 0 /g slider 0 1;
+#X obj 438 116 print PARAM_NOTFOUND;
+#X obj 67 191 tof/crossfade~ 2;
+#X msg 255 213 \$1 5;
+#X obj 255 237 line~;
+#X obj 438 92 tof/param route;
+#X connect 2 0 4 0;
+#X connect 2 0 8 0;
+#X connect 3 0 4 1;
+#X connect 3 0 8 1;
+#X connect 4 0 8 2;
+#X connect 4 1 8 3;
+#X connect 5 0 11 0;
+#X connect 6 0 9 0;
+#X connect 8 0 0 0;
+#X connect 8 1 1 0;
+#X connect 9 0 10 0;
+#X connect 10 0 8 4;
+#X connect 11 0 7 0;