-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathwaveshaping_example.pd
81 lines (81 loc) · 3.69 KB
/
waveshaping_example.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
#N canvas 0 120 1920 1080 24;
#X obj 483 48 adc~;
#X obj 433 421 tabwrite~ array1;
#X obj 472 362 metro 100;
#X obj 498 317 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 0 50 450 250 (subpatch) 0;
#X array array1 100 float 5;
#A 0 -0.00180054 -0.0017395 -0.00180054 -0.00180054 -0.00180054 -0.0017395
-0.00183105 -0.00183105 -0.00183105 -0.00183105 -0.00180054 -0.00183105
-0.00183105 -0.00183105 -0.00183105 -0.00180054 -0.00183105 -0.00180054
-0.00183105 -0.00180054 -0.00180054 -0.00180054 -0.00180054 -0.00183105
-0.00183105 -0.00180054 -0.00180054 -0.00180054 -0.00183105 -0.00180054
-0.00180054 -0.00180054 -0.00183105 -0.00180054 -0.00180054 -0.00180054
-0.00183105 -0.00183105 -0.00180054 -0.00180054 -0.00183105 -0.00183105
-0.00180054 -0.00183105 -0.00183105 -0.00180054 -0.00183105 -0.00183105
-0.00180054 -0.00183105 -0.00180054 -0.00183105 -0.00180054 -0.00183105
-0.00183105 -0.00183105 -0.00183105 -0.00183105 -0.00183105 -0.00180054
-0.00180054 -0.00180054 -0.00183105 -0.00180054 -0.00180054 -0.00183105
-0.00183105 -0.00180054 -0.00180054 -0.00180054 -0.00180054 -0.00183105
-0.00183105 -0.00183105 -0.00180054 -0.00183105 -0.00180054 -0.00183105
-0.00180054 -0.00183105 -0.00180054 -0.00183105 -0.00183105 -0.00183105
-0.00183105 -0.00180054 -0.00183105 -0.00180054 -0.00183105 -0.00183105
-0.00180054 -0.00183105 -0.00183105 -0.00183105 -0.00183105 -0.00183105
-0.00180054 -0.00183105 -0.00180054 -0.00183105;
#X coords 0 1 100 -1 200 140 1;
#X restore 420 556 graph;
#X obj 812 689 *~;
#X obj 806 1012 dac~;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-shaping-function 200 float 1;
#A 0 -0.519999 -0.879998 -0.919998 -0.929998 -0.949998 -0.969998 -0.979998
-0.979998 -0.989998 -0.989998 -0.989998 -0.999998 -1.01 -1.01 -1.01
-1.02 -1.02 -1.02 -1.03 -1.03 -1.03 -1.04 -1.04 -1.04 -1.06 -1.06 -1.06
-1.07 -1.07 -1.07 -1.07 -1.08 -1.09 -1.09 -1.09 -1.09 -1.09 -1.09 -1.1
-1.1 -1.1 -1.1 -1.11 -1.11 -1.11 -1.11 -1.11 -1.11 -1.12 -1.12 -1.12
-1.12 -1.13 -1.13 -1.13 -1.14 -1.14 -1.14 -1.14 -1.14 -1.14 -1.14 -1.14
-1.15 -1.15 -1.15 -1.15 -1.15 -1.15 -1.15 -1.16 -1.16 -1.16 -1.16 -1.16
-1.16 -1.16 -1.16 -1.17 -1.17 -1.17 -1.17 -1.17 -1.17 -1.17 -1.17 -1.17
-1.17 -1.17 -1.17 -1.17 -1.17 -1.17 -1.17 -1.17 -1.17 -1.16 -1.15 -1.15
-1.15 -1.14 -1.13 -1.13 -1.13 -1.12 -1.11 -1.11 -1.1 -1.09 -1.09 -1.08
-1.08 -1.07 -1.07 -1.07 -1.06 -1.04 -1.04 -1.03 -1.03 -1.02 -1.02 -1.02
-1.01 -0.999998 -0.989998 -0.979998 -0.969998 -0.949998 -0.929998 -0.919998
-0.909998 -0.899998 -0.889998 -0.869998 -0.849998 -0.839998 -0.819998
-0.799998 -0.779998 -0.779998 -0.769998 -0.759998 -0.749998 -0.739998
-0.719998 -0.709998 -0.699998 -0.699998 -0.689998 -0.649998 -0.579999
-0.539999 -0.499999 -0.429999 -0.299999 0.66 0.7 0.73 0.73 0.74 0.77
0.79 0.8 0.81 0.81 0.82 0.83 0.84 0.85 0.87 0.87 0.88 0.89 0.9 0.9
0.91 0.92 0.92 0.92 0.92 0.93 0.93 0.94 0.95 0.95 0.95 0.95 0.95 0.95
0.96 0.97 0.97 0.98 0.98 0.99 0.99 0.99 0.92 1.02;
#X coords 0 1 200 -1 200 200 1 0 0;
#X restore 1153 170 graph;
#X obj 606 255 tabread~ \$0-shaping-function;
#X obj 693 149 +~ 1;
#X floatatom 919 479 5 0 0 0 - - -;
#X obj 691 192 *~ 1;
#X obj 312 962 writesf~ 2;
#X msg 190 355 start;
#X msg 306 358 stop;
#X text 33 105 create file;
#X text 159 315 recording controls;
#X text 202 999 Writes output to a file (records audio);
#X text 418 460 displays input on graph below;
#X msg 40 138 open waveshape.wav;
#X text 561 47 input;
#X text 876 1014 output;
#X connect 0 0 9 0;
#X connect 0 0 1 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 5 0 6 0;
#X connect 5 0 6 1;
#X connect 5 0 12 0;
#X connect 5 0 12 1;
#X connect 8 0 5 0;
#X connect 9 0 11 0;
#X connect 10 0 5 1;
#X connect 11 0 8 0;
#X connect 13 0 12 0;
#X connect 14 0 12 0;
#X connect 19 0 12 0;