#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 1022 685 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 slider 0 1;
#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 obj 402 226 iemguts/propertybang;
#X obj 403 255 tof/param gui;
#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;
#X connect 12 0 13 0;