AudioLab/pp.distort~-help.pd at master · solipd/AudioLab · GitHub

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
#N canvas 235 243 798 520 10;
#X obj 399 447 pp.out~;
#A saved;
#X obj 1 2 cnv 15 380 500 empty empty empty 20 12 0 14 #e0e0e0 #404040 0;
#X obj 548 215 cnv 15 118 17 empty empty empty 20 12 0 14 #fc8000 #404040 0;
#N canvas 708 133 636 491 control-messages 0;
#X obj 55 389 outlet;
#X floatatom 56 53 5 0 1e+10 0 - - - 0;
#X floatatom 64 94 5 0 1e+11 0 - - - 0;
#X obj 100 361 cnv 16 87 16 empty empty empty 20 12 0 14 #fc8000 #404040 0;
#N canvas 864 246 634 307 save&recall 0;
#X obj 93 233 outlet;
#X msg 93 60 0;
#X msg 125 60 1;
#X msg 158 60 2;
#X msg 93 99 save \$1;
#X text 185 63 ...;
#X msg 207 60 20;
#X msg 149 154 0;
#X msg 181 154 1;
#X msg 214 154 2;
#X text 241 157 ...;
#X msg 263 154 20;
#X msg 149 193 recall \$1;
#X text 249 93 save & recall up to 20 presets \, presets will be saved with the parrent patch;
#X connect 1 0 4 0;
#X connect 2 0 4 0;
#X connect 3 0 4 0;
#X connect 4 0 0 0;
#X connect 6 0 4 0;
#X connect 7 0 12 0;
#X connect 8 0 12 0;
#X connect 9 0 12 0;
#X connect 11 0 12 0;
#X connect 12 0 0 0;
#X restore 100 360 pd save&recall;
#X msg 56 72 squeeze \$1;
#X msg 64 115 squash \$1;
#X floatatom 79 142 5 0 1e+11 0 - - - 0;
#X msg 79 163 squish \$1;
#X floatatom 118 286 5 0 100 0 - - - 0;
#X msg 118 307 dry/wet \$1;
#X msg 107 226 oversample \$1;
#X msg 144 197 8;
#X msg 180 198 16;
#X msg 107 196 1;
#X text 202 226 oversampling factor for anti-aliasing (must be a power of 2);
#X connect 1 0 5 0;
#X connect 2 0 6 0;
#X connect 4 0 0 0;
#X connect 5 0 0 0;
#X connect 6 0 0 0;
#X connect 7 0 8 0;
#X connect 8 0 0 0;
#X connect 9 0 10 0;
#X connect 10 0 0 0;
#X connect 11 0 0 0;
#X connect 12 0 11 0;
#X connect 13 0 11 0;
#X connect 14 0 11 0;
#X restore 548 215 pd control-messages;
#X text 90 192 1:(~)signal;
#X text 32 193 Inlets:;
#X text 32 290 Outlets:;
#X obj 17 24 cnv 15 10 10 empty empty pp.distort~ 0 0 2 16 #e0e0e0 #fcfcfc 0;
#X text 90 290 1:(~)signal;
#X text 559 258 <-- click to open GUI;
#N canvas 768 300 450 300 stuff 0;
#X obj 82 14 loadbang;
#X obj 82 74 samplerate~;
#X obj 82 144 pack 44100 \$0;
#X obj 213 76 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 213 122 s \$0-draw;
#X obj 82 104 / 100;
#X msg 82 167 \; \$2-scope resize \$1 \;;
#X obj 213 99 metro 100;
#X connect 0 0 3 0;
#X connect 0 0 1 0;
#X connect 1 0 5 0;
#X connect 2 0 6 0;
#X connect 3 0 7 0;
#X connect 5 0 2 0;
#X connect 7 0 4 0;
#X restore 324 8 pd stuff;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-scope 480 float 2;
#A color 0;
#A width 2;
#X coords 0 1 480 -1 250 120 1 0 0;
#X restore 36 356 graph;
#N canvas 577 547 414 180 message-out 0;
#X obj 20 20 inlet;
#X msg 20 47 squeeze 0 \, squash 0 \, squish 0 \, oversample 1 \, dry/wet 100 \,;
#X connect 0 0 1 0;
#X restore 548 290 pd message-out;
#X obj 400 243 pp.distort~;
#A saved empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \;;
#X obj 503 341 r \$0-draw;
#X obj 466 362 tabwrite~ \$0-scope;
#X floatatom 401 49 5 0 0 0 - - - 0;
#X obj 401 76 osc~ 200;
#X text 19 51 distortion/saturation;
#X text 90 307 2:message;
#X text 9 76 "squeeze" parameter drives against a tanh soft clipper \, "squash" adds odd harmonics (signal rised to the 3rd power before tanh) \, squish adds even harmonics (signal rised to the 2nd power before tanh);
#X text 90 208 2:(~)squeeze;
#X text 90 224 3:(~)squash;
#X text 90 240 4:(~)squish;
#X text 90 255 5:control-messages;
#X text 22 165 Creation arguments: \$1: oversampling factor;
#X connect 3 0 13 4;
#X connect 13 0 0 0;
#X connect 13 0 0 1;
#X connect 13 0 15 0;
#X connect 13 1 12 0;
#X connect 14 0 15 0;
#X connect 16 0 17 0;
#X connect 17 0 13 0;