/
distoNonmonotone~.pd
163 lines (163 loc) · 4.4 KB
/
distoNonmonotone~.pd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
#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 b;
#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;