-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathauto-level.pd
89 lines (89 loc) · 2.35 KB
/
auto-level.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
#N canvas 2210 269 971 586 12;
#X text 23 127 reset:;
#X obj 84 130 bng 15 250 50 0 reset-auto-level empty empty 17 7 0 10
#fcfcfc #000000 #000000;
#X obj 403 365 r reset-auto-level;
#X obj 41 27 bng 45 250 50 0 do-auto-mic-level empty empty 17 7 0 10
#fcfcfc #000000 #000000;
#X obj 295 250 r do-auto-level;
#X msg 159 312 1;
#X msg 193 312 0;
#X obj 436 191 r auto-level-target;
#X obj 327 438 expr min(5 \, max(0 \, $f1));
#X obj 193 288 delay 1000;
#X obj 215 165 r mic-to-auto-level;
#X msg 403 389 0.25;
#X obj 327 408 f 0.25;
#X msg 215 247 set \$1;
#X msg 295 340 0.0012401;
#X obj 295 303 delay 600;
#X obj 295 408 *;
#X obj 215 223 expr pow(10 \, (($f2 - $f1) / 20));
#X floatatom 86 94 5 0 0 0 - auto-out-level - 0;
#X obj 159 339 s speaker-test;
#X floatatom 237 193 5 0 0 0 - - - 0;
#X obj 327 463 s auto-out-level;
#X obj 41 80 bng 45 250 50 0 do-auto-level empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X text 10 92 OUT;
#X text 10 40 MIC;
#X obj 59 246 r do-auto-mic-level;
#X obj 156 365 r reset-auto-level;
#X obj 91 438 expr min(5 \, max(0 \, $f1));
#X obj 59 408 *;
#X floatatom 86 41 5 0 0 0 - auto-mic-level - 0;
#X obj 91 408 f 1;
#X obj 91 462 s auto-mic-level;
#X msg 156 389 1;
#X msg 59 340 6.97361;
#X obj 59 304 delay 600;
#X obj 469 390 loadbang;
#X msg 200 395 4.5;
#X obj 77 370 loadbang;
#X obj 436 252 - 5;
#X msg 436 309 set \$1;
#X obj 436 285 expr pow(10 \, (($f2 - $f1) / 20));
#X text 470 252 output quieter than organ tutti?;
#X connect 2 0 11 0;
#X connect 4 0 5 0;
#X connect 4 0 9 0;
#X connect 4 0 15 0;
#X connect 5 0 19 0;
#X connect 6 0 19 0;
#X connect 7 0 17 1;
#X connect 7 0 38 0;
#X connect 8 0 21 0;
#X connect 8 0 12 1;
#X connect 8 0 16 1;
#X connect 9 0 6 0;
#X connect 10 0 17 0;
#X connect 10 0 20 0;
#X connect 10 0 40 0;
#X connect 11 0 12 0;
#X connect 12 0 8 0;
#X connect 12 0 16 1;
#X connect 13 0 33 0;
#X connect 14 0 16 0;
#X connect 15 0 14 0;
#X connect 16 0 12 0;
#X connect 17 0 13 0;
#X connect 25 0 9 0;
#X connect 25 0 5 0;
#X connect 25 0 34 0;
#X connect 26 0 32 0;
#X connect 27 0 31 0;
#X connect 27 0 30 1;
#X connect 27 0 28 1;
#X connect 28 0 30 0;
#X connect 30 0 27 0;
#X connect 30 0 28 1;
#X connect 32 0 30 0;
#X connect 33 0 28 0;
#X connect 34 0 33 0;
#X connect 35 0 11 0;
#X connect 36 0 30 1;
#X connect 37 0 32 0;
#X connect 38 0 40 1;
#X connect 39 0 14 0;
#X connect 40 0 39 0;
#X coords 0 -1 1 1 115 142 1 10 10;