-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathoscbrowser.pd
217 lines (217 loc) · 5.73 KB
/
oscbrowser.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
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
#N canvas 107 114 988 411 12;
#X symbolatom 111 58 26 0 0 0 - #0-select #0-resolve;
#X symbolatom 111 78 18 0 0 0 - #0-addr #0-addr-change;
#X floatatom 257 78 6 0 0 0 - #0-port #0-port-change;
#X obj 111 39 tgl 15 0 \$0-browser \$0-browser-r browse 17 7 0 12 -262144
-1 -1 1 1;
#X obj 223 39 bng 15 250 50 0 \$0-next empty next 17 7 0 12 -262144
-1 -1;
#X obj 270 39 bng 15 250 50 0 \$0-prev empty prev 17 7 0 12 -262144
-1 -1;
#X obj 213 257 unpack s f;
#X obj 213 186 metro 500;
#X text 210 141 OSC browser;
#X obj 381 166 r \$0-resolve;
#X obj 213 278 s \$0-addr;
#X obj 287 279 s \$0-port;
#X obj 381 190 symbol;
#X obj 426 240 list trim;
#X obj 203 306 r \$0-next;
#X obj 275 306 r \$0-prev;
#N canvas 216 237 489 353 picker 0;
#X obj 22 21 inlet;
#X obj 88 22 inlet;
#X obj 88 134 f;
#X obj 88 48 list;
#X obj 88 112 list length;
#X obj 22 118 +;
#X msg 88 176 0;
#X obj 22 225 t f f;
#X obj 88 87 t a a;
#X obj 82 296 symbol;
#X obj 115 247 zl nth 1;
#X obj 82 204 t b b f;
#X obj 115 273 symbol;
#X obj 82 318 outlet;
#X text 162 20 This picks the next or previous element in the list.
;
#X text 163 34 Left inlet is relative index (+1 or -1).;
#X text 163 48 Right inlet is the list of elements to pick.;
#X obj 88 155 t b f;
#X obj 22 174 mod 1;
#X obj 45 81 f 0;
#X obj 160 181 + 1;
#X connect 0 0 5 0;
#X connect 1 0 3 0;
#X connect 2 0 17 0;
#X connect 3 0 8 0;
#X connect 4 0 2 0;
#X connect 5 0 18 0;
#X connect 6 0 5 0;
#X connect 7 0 11 0;
#X connect 7 1 19 0;
#X connect 8 0 4 0;
#X connect 8 1 10 0;
#X connect 9 0 13 0;
#X connect 10 0 12 0;
#X connect 11 0 9 0;
#X connect 11 1 10 0;
#X connect 11 2 20 0;
#X connect 12 0 9 1;
#X connect 17 0 6 0;
#X connect 17 1 18 1;
#X connect 18 0 7 0;
#X connect 19 0 5 1;
#X connect 20 0 10 1;
#X restore 238 359 pd picker;
#X msg 275 327 -1;
#X msg 203 327 1;
#X obj 238 380 s \$0-select;
#X obj 213 163 r \$0-browser;
#X obj 400 279 list;
#X msg 400 300 connect \$1 \$2;
#X obj 514 310 outlet;
#X text 462 338 output the chosen connection;
#X obj 175 39 bng 15 250 50 0 \$0-conn empty conn 17 7 0 12 -262144
-1 -1;
#X msg 136 326 0;
#X obj 136 305 r \$0-conn;
#X obj 381 211 sel none;
#X obj 124 164 inlet;
#X text 558 59 - send OSC to the selected client -;
#X obj 585 161 list prepend send;
#X obj 585 182 list trim;
#X obj 585 203 packOSC;
#X obj 585 137 t a a;
#X obj 715 161 print OSC output;
#X obj 585 224 udpsend;
#X obj 585 245 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X text 612 243 connected?;
#X msg 667 207 disconnect;
#X obj 553 277 spigot;
#X obj 585 82 inlet;
#X obj 514 244 t a a b;
#X text 806 60 - receive OSC messages on our port -;
#X obj 863 107 unpackOSC;
#X obj 953 163 print OSC input;
#X obj 863 86 udpreceive \$1;
#X obj 863 130 t a a;
#X obj 863 153 outlet;
#X text 852 184 output received OSC messages;
#X obj 213 236 route connect disconnect;
#X obj 111 99 tgl 15 0 empty \$0-connected conn? 17 7 0 12 -262144
-1 -1 0 1;
#X obj 168 99 tgl 15 0 \$0-dump-in empty dump-in 17 7 0 12 -262144
-1 -1 0 1;
#X obj 239 99 tgl 15 0 \$0-dump-out empty dump-out 17 7 0 12 -262144
-1 -1 0 1;
#X obj 715 136 spigot;
#X obj 748 101 r \$0-dump-out;
#X obj 953 134 spigot;
#X obj 986 99 r \$0-dump-in;
#X text 738 247 This needs the mrpeach OSC externals.;
#X text 673 311 args: \$1 = incoming OSC port;
#X text 672 333 inlets: left = connect/disconnect messages \, e.g.:
connect 255.255.255.255 8000 \, right = OSC messages to send;
#X text 672 363 outlets: left = connect messages from chosen connection
\, right = received OSC messages;
#X obj 608 270 s \$0-connected;
#X obj 213 213 mdnsbrowser "Raptor5" \$1;
#X obj 631 81 r osc-output;
#X obj 822 201 s osc-input;
#X obj 585 114 spigot;
#X obj 648 101 r \$0-connected;
#N canvas 527 174 516 321 init 0;
#X obj 80 31 loadbang;
#X msg 80 79 none;
#X obj 60 148 s \$0-addr;
#X obj 132 148 s \$0-select;
#X obj 80 100 t a a;
#X obj 132 124 symbol;
#X obj 60 124 symbol;
#X obj 230 92 delay 1000;
#X obj 249 175 s \$0-browser-r;
#X obj 230 136 delay 500;
#X obj 80 53 t b b b;
#X obj 334 234 print raptor;
#X msg 334 89 initializing - please wait...;
#X obj 230 114 t b b b;
#X obj 230 224 t b b;
#X obj 230 246 s osc-ready;
#X msg 334 210 ready;
#X msg 334 153 checking OSC connections...;
#X connect 0 0 10 0;
#X connect 1 0 4 0;
#X connect 4 0 6 0;
#X connect 4 1 5 0;
#X connect 5 0 3 0;
#X connect 6 0 2 0;
#X connect 7 0 13 0;
#X connect 9 0 14 0;
#X connect 10 0 1 0;
#X connect 10 1 7 0;
#X connect 10 2 12 0;
#X connect 12 0 11 0;
#X connect 13 0 9 0;
#X connect 13 1 8 0;
#X connect 13 2 17 0;
#X connect 14 0 15 0;
#X connect 14 1 16 0;
#X connect 16 0 11 0;
#X connect 17 0 11 0;
#X restore 394 61 pd init;
#X obj 585 298 sel 1;
#X obj 585 320 s osc-connect;
#X connect 6 0 10 0;
#X connect 6 1 11 0;
#X connect 7 0 63 0;
#X connect 9 0 12 0;
#X connect 12 0 28 0;
#X connect 13 0 63 0;
#X connect 14 0 18 0;
#X connect 15 0 17 0;
#X connect 16 0 19 0;
#X connect 17 0 16 0;
#X connect 18 0 16 0;
#X connect 20 0 7 0;
#X connect 21 0 22 0;
#X connect 22 0 42 0;
#X connect 26 0 16 0;
#X connect 27 0 26 0;
#X connect 28 1 13 0;
#X connect 29 0 50 0;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 33 0 36 0;
#X connect 34 0 31 0;
#X connect 34 1 54 0;
#X connect 36 0 37 0;
#X connect 37 0 40 1;
#X connect 37 0 62 0;
#X connect 37 0 69 0;
#X connect 39 0 36 0;
#X connect 40 0 39 0;
#X connect 41 0 66 0;
#X connect 42 0 23 0;
#X connect 42 1 36 0;
#X connect 42 2 40 0;
#X connect 44 0 47 0;
#X connect 46 0 44 0;
#X connect 47 0 48 0;
#X connect 47 0 65 0;
#X connect 47 1 56 0;
#X connect 50 0 6 0;
#X connect 50 0 21 0;
#X connect 50 1 39 0;
#X connect 50 2 16 1;
#X connect 54 0 35 0;
#X connect 55 0 54 1;
#X connect 56 0 45 0;
#X connect 57 0 56 1;
#X connect 63 0 50 0;
#X connect 64 0 66 0;
#X connect 66 0 34 0;
#X connect 67 0 66 1;
#X connect 69 0 70 0;
#X coords 0 -1 1 1 217 96 1 105 21;