perturbation based calculations
[maximus:emndl.git] / emndl_audio.pd
1 #N canvas 0 0 548 531 10;
2 #X obj 11 198 catch~ \$0-o-l;
3 #X obj 100 198 catch~ \$0-o-r;
4 #X obj 35 178 send~ \$0-i-l;
5 #X obj 129 178 send~ \$0-i-r;
6 #X obj 218 149 send~ \$0-f;
7 #X obj 30 347 emndl_compress~ 36;
8 #X obj 73 113 noise~;
9 #X obj 166 115 noise~;
10 #X obj 48 156 rpole~ 0.975;
11 #X obj 138 156 rpole~ 0.975;
12 #X obj 351 498 table \$0-in-l;
13 #X obj 351 474 table \$0-in-r;
14 #X obj 49 39 tabplay~ \$0-in-l;
15 #X obj 159 39 tabplay~ \$0-in-r;
16 #X obj 322 108 r emndl;
17 #X obj 206 346 pack s s s;
18 #X obj 206 388 soundfiler;
19 #X obj 226 321 symbol \$0-in-l;
20 #X obj 322 320 symbol \$0-in-r;
21 #X obj 26 388 tabwrite~ \$0-out-l;
22 #X obj 342 426 table \$0-out-l;
23 #X obj 342 447 table \$0-out-r;
24 #X msg 206 410 resize \$1;
25 #X obj 197 432 s \$0-out-l;
26 #X obj 215 452 s \$0-out-r;
27 #X obj 62 411 tabwrite~ \$0-out-r;
28 #X obj 251 214 delay 1000;
29 #X obj 176 251 unpack s s;
30 #X obj 251 252 symbol;
31 #X obj 263 294 pack s s s;
32 #X obj 285 233 t s b b;
33 #X obj 302 254 symbol \$0-out-l;
34 #X obj 324 273 symbol \$0-out-r;
35 #X msg 279 347 write -wave -bytes 2 -rate 48000 \$1 \$2 \$3;
36 #X obj 279 389 soundfiler;
37 #X obj 47 457 delay 1000;
38 #X msg 47 498 \; pd quit;
39 #X msg 208 502 \; emndl in.wav out.wav;
40 #X obj 51 369 dac~;
41 #X msg 206 367 read -maxsize 2.88e+07 -resize \$1 \$2 \$3;
42 #X obj 137 134 *~;
43 #X obj 47 134 *~;
44 #X obj 83 18 vline~;
45 #X obj 31 279 *~;
46 #X obj 81 279 *~;
47 #X obj 47 478 spigot 1;
48 #X obj 104 479 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
49 1;
50 #X obj 160 81 emndl_comb~;
51 #N canvas 0 0 658 306 \$0-filters 0;
52 #X obj 370 184 emndl_filter 32 \$0;
53 #X obj 11 16 emndl_filter 1 \$0;
54 #X obj 130 184 emndl_filter 16 \$0;
55 #X obj 12 39 emndl_filter 2 \$0;
56 #X obj 11 61 emndl_filter 3 \$0;
57 #X obj 11 88 emndl_filter 4 \$0;
58 #X obj 12 115 emndl_filter 5 \$0;
59 #X obj 12 136 emndl_filter 6 \$0;
60 #X obj 12 157 emndl_filter 7 \$0;
61 #X obj 10 184 emndl_filter 8 \$0;
62 #X obj 132 39 emndl_filter 10 \$0;
63 #X obj 131 88 emndl_filter 12 \$0;
64 #X obj 132 136 emndl_filter 14 \$0;
65 #X obj 251 88 emndl_filter 20 \$0;
66 #X obj 250 184 emndl_filter 24 \$0;
67 #X obj 371 88 emndl_filter 28 \$0;
68 #X restore 215 186 pd \$0-filters;
69 #X obj 219 131 sig~ 45;
70 #X obj 160 61 hip~ 2.5;
71 #X obj 50 60 hip~ 2.5;
72 #X obj 50 81 emndl_comb~;
73 #X msg 132 19 0 \, 1 1000;
74 #X obj 25 300 emndl_compress~ 48;
75 #X obj 35 320 emndl_compress~ 48;
76 #X obj 166 136 *~ 1e-09;
77 #X obj 73 134 *~ 1e-09;
78 #X obj 31 255 rev3~ 120 71 11520 10;
79 #X obj 31 229 -~;
80 #X obj 60 229 +~;
81 #X obj 174 274 t b s;
82 #X obj 215 275 t s b b;
83 #X obj 174 320 t b b;
84 #X obj 173 300 delay 1000;
85 #X connect 0 0 59 0;
86 #X connect 0 0 60 0;
87 #X connect 1 0 59 1;
88 #X connect 1 0 60 1;
89 #X connect 5 0 19 0;
90 #X connect 5 0 38 0;
91 #X connect 5 1 25 0;
92 #X connect 5 1 38 1;
93 #X connect 6 0 57 0;
94 #X connect 7 0 56 0;
95 #X connect 8 0 2 0;
96 #X connect 9 0 3 0;
97 #X connect 12 0 51 0;
98 #X connect 13 0 50 0;
99 #X connect 13 1 26 0;
100 #X connect 14 0 27 0;
101 #X connect 15 0 39 0;
102 #X connect 16 0 22 0;
103 #X connect 17 0 15 1;
104 #X connect 18 0 15 2;
105 #X connect 22 0 23 0;
106 #X connect 22 0 24 0;
107 #X connect 26 0 28 0;
108 #X connect 26 0 35 0;
109 #X connect 27 0 61 0;
110 #X connect 27 1 30 0;
111 #X connect 28 0 29 0;
112 #X connect 29 0 33 0;
113 #X connect 30 0 28 1;
114 #X connect 30 1 31 0;
115 #X connect 30 2 32 0;
116 #X connect 31 0 29 1;
117 #X connect 32 0 29 2;
118 #X connect 33 0 34 0;
119 #X connect 35 0 45 0;
120 #X connect 39 0 16 0;
121 #X connect 40 0 9 0;
122 #X connect 41 0 8 0;
123 #X connect 42 0 40 1;
124 #X connect 42 0 41 1;
125 #X connect 42 0 43 1;
126 #X connect 42 0 44 1;
127 #X connect 43 0 54 0;
128 #X connect 43 0 54 1;
129 #X connect 44 0 55 0;
130 #X connect 44 0 55 1;
131 #X connect 45 0 36 0;
132 #X connect 46 0 45 1;
133 #X connect 47 0 40 0;
134 #X connect 49 0 4 0;
135 #X connect 50 0 47 0;
136 #X connect 51 0 52 0;
137 #X connect 52 0 41 0;
138 #X connect 53 0 42 0;
139 #X connect 54 0 5 0;
140 #X connect 54 1 5 0;
141 #X connect 55 0 5 1;
142 #X connect 55 1 5 1;
143 #X connect 56 0 3 0;
144 #X connect 57 0 2 0;
145 #X connect 58 0 43 0;
146 #X connect 58 1 44 0;
147 #X connect 59 0 58 0;
148 #X connect 60 0 58 1;
149 #X connect 61 0 64 0;
150 #X connect 61 1 62 0;
151 #X connect 62 0 15 0;
152 #X connect 62 1 17 0;
153 #X connect 62 2 18 0;
154 #X connect 63 0 12 0;
155 #X connect 63 0 19 0;
156 #X connect 63 1 13 0;
157 #X connect 63 1 25 0;
158 #X connect 63 1 53 0;
159 #X connect 64 0 63 0;