-
Notifications
You must be signed in to change notification settings - Fork 2
/
zirk_hoa.pd
126 lines (126 loc) · 2.96 KB
/
zirk_hoa.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
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
#N canvas 372 106 750 549 10;
#X declare -path ./externals/hoa;
#X obj 42 33 inlet~;
#X obj 127 33 inlet;
#X obj 295 33 inlet;
#X obj 449 33 inlet;
#X obj 295 119 spigot;
#X obj 127 119 spigot;
#X obj 42 483 *~;
#X obj 127 406 unpack 0 0;
#X obj 127 432 + 1;
#X obj 127 458 pack 0 0;
#X obj 127 369 zirkhoa;
#X obj 295 174 f 1;
#X obj 295 205 - 0;
#X obj 295 145 t b f;
#X obj 501 256 switch~;
#X obj 501 203 loadbang;
#X obj 297 369 zirk_stereo;
#X obj 330 231 r \$0-stereo;
#N canvas 0 23 290 284 convert 0;
#X obj 75 49 inlet;
#X obj 75 136 / 180;
#X obj 75 82 unpack 0 0, f 12;
#X obj 144 135 / 180;
#X obj 144 161 * 3.14159;
#X obj 75 185 pack 0 0;
#X obj 75 161 * -3.14159;
#X obj 75 218 outlet;
#X obj 75 110 * -1;
#X connect 0 0 2 0;
#X connect 1 0 6 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 1;
#X connect 5 0 7 0;
#X connect 6 0 5 0;
#X connect 8 0 1 0;
#X restore 127 205 pd convert ranges;
#X obj 297 263 spigot;
#X obj 213 460 r \$0-speed;
#X msg 213 484 all speed \$1;
#X obj 488 167 s \$0-speed;
#X msg 501 228 0;
#X obj 172 264 == 0;
#X obj 449 256 s \$0-on;
#X obj 328 95 r \$0-on;
#X obj 57 458 r \$0-on;
#X obj 566 114 s \$0-hoa;
#X obj 68 336 r \$0-hoa;
#X obj 527 141 s \$0-count;
#X msg 309 484 all max \$1;
#X obj 309 460 r \$0-count;
#X msg 297 301 \$1;
#X text 241 406 hoa requires a min of 3 speakers \, so fallback to
zirk_stereo when there are only 2;
#X obj 127 174 lib/xyztoaed;
#X obj 127 301 spigot 1;
#X obj 166 336 spigot 1;
#X obj 405 512 s \$0-stereo;
#X obj 449 86 route on speed count;
#X obj 297 336 expr ($f1 + 1) / 2;
#X obj 405 484 < 3;
#X obj 127 75 spigot;
#X obj 328 53 r \$0-layoutset;
#X obj 295 75 spigot;
#X msg 638 140 1;
#X obj 638 166 s \$0-layoutset;
#X obj 638 115 route speakers;
#X obj 42 516 clone -s 1 zirk_dispatcher \$1;
#X obj 472 336 declare -path ./externals/hoa;
#X connect 0 0 6 0;
#X connect 1 0 42 0;
#X connect 2 0 44 0;
#X connect 3 0 39 0;
#X connect 4 0 13 0;
#X connect 5 0 19 0;
#X connect 5 0 35 0;
#X connect 6 0 48 0;
#X connect 7 0 8 0;
#X connect 7 1 9 1;
#X connect 8 0 9 0;
#X connect 9 0 48 1;
#X connect 10 0 7 0;
#X connect 11 0 12 0;
#X connect 12 0 37 0;
#X connect 13 0 11 0;
#X connect 13 1 12 1;
#X connect 15 0 23 0;
#X connect 16 0 7 0;
#X connect 17 0 19 1;
#X connect 17 0 24 0;
#X connect 18 0 36 0;
#X connect 19 0 33 0;
#X connect 20 0 21 0;
#X connect 21 0 48 2;
#X connect 23 0 14 0;
#X connect 24 0 36 1;
#X connect 24 0 37 1;
#X connect 26 0 5 1;
#X connect 26 0 4 1;
#X connect 27 0 6 1;
#X connect 29 0 10 0;
#X connect 31 0 48 2;
#X connect 32 0 31 0;
#X connect 32 0 41 0;
#X connect 33 0 40 0;
#X connect 35 0 18 0;
#X connect 36 0 10 0;
#X connect 37 0 10 1;
#X connect 39 0 25 0;
#X connect 39 0 14 0;
#X connect 39 1 22 0;
#X connect 39 2 30 0;
#X connect 39 2 45 0;
#X connect 39 3 28 0;
#X connect 39 3 47 0;
#X connect 40 0 16 0;
#X connect 41 0 38 0;
#X connect 42 0 5 0;
#X connect 43 0 42 1;
#X connect 43 0 44 1;
#X connect 44 0 4 0;
#X connect 45 0 46 0;
#X connect 47 0 45 0;