-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathzirk_speaker.pd
146 lines (146 loc) · 3.35 KB
/
zirk_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
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
#N canvas 360 552 677 374 10;
#X obj 432 330 switch~;
#X obj 494 167 loadbang;
#N canvas 0 23 334 287 report 0;
#X obj 36 29 inlet~;
#X obj 182 244 switch~;
#X obj 230 189 loadbang;
#X msg 230 214 0;
#X obj 36 160 change;
#X obj 36 211 spigot;
#X obj 36 52 env~ 2048;
#X obj 36 243 outlet;
#X obj 36 186 - 100;
#X obj 182 108 inlet;
#X obj 182 142 route level;
#X obj 36 78 int;
#X msg 36 128 0;
#X text 73 80 noise threshold;
#X obj 36 105 moses 5;
#X connect 0 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 8 0;
#X connect 5 0 7 0;
#X connect 6 0 11 0;
#X connect 8 0 5 0;
#X connect 9 0 10 0;
#X connect 10 0 1 0;
#X connect 10 0 5 1;
#X connect 11 0 14 0;
#X connect 12 0 4 0;
#X connect 14 0 12 0;
#X connect 14 1 4 0;
#X restore 66 86 pd report level;
#X obj 66 112 outlet;
#N canvas 0 23 322 213 print 0;
#X obj 44 40 inlet;
#X obj 44 92 list trim;
#X obj 44 118 print zirk_speaker \$1;
#X obj 44 67 list prepend unknown message:;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 3 0 1 0;
#X restore 557 111 pd print error;
#X obj 203 28 inlet;
#N canvas 0 23 287 252 output 0;
#X obj 98 78 route float;
#X obj 98 136 list prepend set;
#X obj 98 163 list trim;
#X obj 98 49 inlet;
#X obj 98 193 outlet;
#X obj 98 108 makefilename zirk_output%d;
#X connect 0 0 5 0;
#X connect 0 1 1 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 0 0;
#X connect 5 0 1 0;
#X restore 296 138 pd output;
#X obj 44 28 catch~ zirk_speaker\$1;
#X obj 44 330 throw~ zirk_output\$1;
#N canvas 0 23 274 227 record 0;
#X obj 33 34 inlet~;
#X obj 84 35 inlet;
#X obj 33 190 writesf~;
#X obj 84 117 list trim;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 3 0 2 0;
#X restore 314 330 pd record;
#N canvas 0 23 216 170 delay 0;
#X obj 26 130 outlet~;
#X obj 26 21 inlet~;
#X obj 101 19 inlet;
#X obj 26 67 delwrite~ \$0-delay 1000;
#X obj 26 95 delread~ \$0-delay 0;
#X connect 1 0 3 0;
#X connect 2 0 4 0;
#X connect 4 0 0 0;
#X restore 44 144 pd delay;
#N canvas 0 23 276 185 phase 0;
#X obj 76 143 outlet~;
#X obj 76 34 inlet~;
#X obj 76 111 *~ 1;
#X obj 125 36 inlet;
#X obj 125 64 sel 1 0;
#X msg 125 90 -1;
#X msg 160 90 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 44 176 pd phase invert;
#X obj 446 113 + 100;
#X obj 446 139 dbtorms;
#X obj 446 165 t f;
#X obj 44 209 *~ 1;
#X obj 446 87 route db gain float;
#X obj 203 58 route report delay phase output record on;
#X obj 44 300 *~;
#X obj 59 276 line~;
#X obj 405 219 t f f;
#X obj 432 249 sel 0;
#X msg 432 298 0;
#X obj 432 274 pipe 25;
#X msg 59 251 \$1 25;
#X msg 495 300 1;
#X msg 494 190 1;
#X connect 1 0 26 0;
#X connect 2 0 3 0;
#X connect 5 0 17 0;
#X connect 6 0 8 0;
#X connect 7 0 10 0;
#X connect 7 0 2 0;
#X connect 10 0 11 0;
#X connect 11 0 15 0;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 14 0 15 1;
#X connect 15 0 9 0;
#X connect 15 0 18 0;
#X connect 16 0 12 0;
#X connect 16 1 12 0;
#X connect 16 2 14 0;
#X connect 16 3 4 0;
#X connect 17 0 2 1;
#X connect 17 1 10 1;
#X connect 17 2 11 1;
#X connect 17 3 6 0;
#X connect 17 4 9 1;
#X connect 17 5 20 0;
#X connect 17 6 16 0;
#X connect 18 0 8 0;
#X connect 19 0 18 1;
#X connect 20 0 24 0;
#X connect 20 1 21 0;
#X connect 21 0 23 0;
#X connect 21 1 25 0;
#X connect 22 0 0 0;
#X connect 23 0 22 0;
#X connect 24 0 19 0;
#X connect 25 0 0 0;
#X connect 26 0 20 0;