forked from zkmkarlsruhe/ZirkoniumSpatializationServer
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathspeaker.pd
106 lines (106 loc) · 2.63 KB
/
speaker.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
#N canvas 466 137 839 415 10;
#X obj 208 375 throw~ out\$1;
#X obj 325 48 route \$1;
#X floatatom 515 222 5 0 0 0 - - -, f 5;
#X msg 516 359 set out\$1;
#X obj 209 38 catch~ speaker\$1;
#X obj 28 159 env~ 2048;
#X obj 28 205 list prepend \$1;
#X obj 28 373 s toZTE;
#X obj 28 327 list prepend speakerDB;
#X obj 28 350 list trim;
#X obj 325 23 r Speaker;
#X obj 580 213 switch~;
#X obj 579 173 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 610 120 loadbang;
#X msg 610 156 0;
#N canvas 0 22 338 215 DelayCompensation 0;
#X obj 26 67 delwrite~ delayForHardwareOut\$1 1000;
#X obj 26 95 delread~ delayForHardwareOut\$1 0;
#X obj 26 130 outlet~;
#X obj 26 21 inlet~;
#X obj 118 29 inlet;
#X connect 1 0 2 0;
#X connect 3 0 0 0;
#X connect 4 0 1 0;
#X restore 208 100 pd DelayCompensation;
#N canvas 0 22 338 215 PhaseCorrection 0;
#X obj 26 130 outlet~;
#X obj 26 21 inlet~;
#X obj 26 82 *~ 1;
#X obj 121 24 inlet;
#X obj 121 52 sel 1 0;
#X msg 115 110 -1;
#X msg 145 112 1;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 1 6 0;
#X connect 5 0 2 1;
#X connect 6 0 2 1;
#X restore 208 129 pd PhaseCorrection, f 31;
#X obj 208 313 *~;
#N canvas 231 105 174 192 db_to_amp 0;
#X msg 40 90 10;
#X obj 40 64 t b f;
#X obj 40 116 pow;
#X obj 40 38 / 20;
#X obj 40 12 inlet;
#X obj 40 142 outlet;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 1 1 2 1;
#X connect 2 0 5 0;
#X connect 3 0 1 0;
#X connect 4 0 3 0;
#X restore 455 296 pd db_to_amp;
#X obj 614 38 print speaker_\$1;
#X obj 549 16 print Speaker \$1 activation;
#X obj 641 330 writesf~;
#X obj 325 73 route delay phaseCorrection gain outputChannel activate
bounce, f 64;
#X obj 698 282 print speaker_\$1;
#X obj 28 182 change;
#X obj 61 273 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 28 304 spigot;
#X obj 61 238 r SpeakerLevelReport;
#X obj 641 164 route open;
#X obj 641 227 list trim;
#X obj 641 193 list prepend open -bytes 3;
#X connect 1 0 22 0;
#X connect 2 0 3 0;
#X connect 3 0 0 0;
#X connect 4 0 5 0;
#X connect 4 0 15 0;
#X connect 5 0 24 0;
#X connect 6 0 26 0;
#X connect 8 0 9 0;
#X connect 9 0 7 0;
#X connect 10 0 1 0;
#X connect 12 0 11 0;
#X connect 13 0 14 0;
#X connect 14 0 12 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 17 0 0 0;
#X connect 17 0 21 0;
#X connect 18 0 17 1;
#X connect 22 0 15 1;
#X connect 22 1 16 1;
#X connect 22 2 18 0;
#X connect 22 3 2 0;
#X connect 22 4 12 0;
#X connect 22 5 28 0;
#X connect 24 0 6 0;
#X connect 25 0 26 1;
#X connect 26 0 8 0;
#X connect 27 0 25 0;
#X connect 28 0 30 0;
#X connect 28 1 23 0;
#X connect 28 1 21 0;
#X connect 29 0 23 0;
#X connect 29 0 21 0;
#X connect 30 0 29 0;