This repository was archived by the owner on Nov 30, 2023. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathfc_client.pd
163 lines (163 loc) · 4.72 KB
/
fc_client.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
#N canvas 24 71 1418 839 12;
#X obj 1230 230 cnv 15 165 95 empty empty System\ message 20 12 0 14
#e0e0e0 #404040 0;
#X obj 264 253 cnv 15 154 57 empty empty empty 20 12 0 14 #84dcff #404040
0;
#X obj 419 253 cnv 15 182 57 empty empty empty 20 12 0 14 #fffdbb #404040
0;
#X obj 665 636 cnv 15 268 150 empty empty process\ time\ calculator
20 12 0 14 #e0e0e0 #404040 0;
#X obj 16 16 cnv 15 476 198 empty empty Auto-connect 20 12 0 14 #e0e0e0
#404040 0;
#X obj 440 510 cnv 15 188 69 empty empty Close\ message 20 12 0 14
#e0e0e0 #404040 0;
#X obj 18 375 cnv 15 407 299 empty empty Initial\ messages 20 12 0
14 #e0e0e0 #404040 0;
#X obj 644 275 cnv 15 551 261 empty empty Wait\ for\ callback\ (synchronize\ FC\ and\ PD)
20 12 0 14 #e0e0e0 #404040 0;
#X obj 790 130 cnv 15 217 101 empty empty Incoming\ message 20 12
0 14 #e0e0e0 #404040 0;
#X obj 1140 40 cnv 15 240 150 empty empty Callback 20 12 0 14 #e0e0e0
#404040 0;
#X obj 440 710 netsend;
#X obj 284 260 tgl 20 0 empty empty Connect 22 10 0 10 #fcfcfc #00a008
#000000 0 1;
#X msg 264 503 connect \$1 \$2;
#X msg 455 542 send close \, disconnect;
#X obj 306 326 select 1;
#X obj 386 347 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 264 472 list append \$1 \$2;
#X obj 285 289 bng 20 250 50 0 initrcv empty Activity 22 10 0 10 #fcfcfc
#ff0000 #000000;
#X obj 282 93 select 1;
#X obj 282 30 loadbang;
#X obj 281 125 metro 1000;
#X obj 281 159 1;
#X text 157 124 retry every sec;
#X text 126 60 autoconnect argument;
#X obj 334 161 != 1;
#X text 65 471 retrieve subpath arguments;
#X obj 282 59 \$4;
#X obj 262 529 trigger bang anything;
#X obj 833 171 receive fc_input;
#X obj 1210 160 send fc_output;
#X obj 262 566 list append \$3;
#X msg 283 621 send initrcv \$1;
#X obj 1160 70 netreceive \$3;
#X obj 281 189 spigot 1;
#X text 63 591 initial message to inform about callback port;
#X obj 330 392 != 1;
#X obj 277 420 spigot 1;
#X obj 533 197 bang;
#X text 64 502 Connect message;
#X text 490 740 open/close doors;
#X msg 129 268 set \$1;
#X obj 440 740 t f f;
#X floatatom 366 761 5 0 0 0 - - -, f 5;
#X obj 283 649 t b a;
#X text 220 761 connection status;
#X text 44 175 door closed if already connected;
#X obj 755 478 list-fifo;
#X obj 693 406 metro 1000;
#X text 30 401 door closed if already connected;
#X obj 1039 392 1;
#X obj 1007 361 t b b;
#X obj 856 450 spigot 1;
#X obj 867 391 0;
#X obj 831 360 t b b a;
#X text 987 329 open the door and drop next;
#X floatatom 909 424 5 0 0 0 - - -, f 5;
#X obj 693 380 loadbang;
#X obj 755 507 list trim;
#X text 694 357 1sec timeout;
#X obj 738 667 timer;
#X floatatom 491 291 5 0 0 0 average - -, f 5;
#X text 814 298 store \; drop next if door open \; close door;
#X obj 738 710 average 50;
#X floatatom 491 272 5 0 0 0 instant - -, f 5;
#X obj 834 669 init reset 5;
#X text 443 252 process time (ms);
#X obj 850 760 max;
#X floatatom 884 760 5 0 0 0 - - -, f 5;
#X floatatom 536 272 5 0 0 1 max - -, f 5;
#X obj 536 293 bng 15 250 50 0 empty empty reset 17 7 0 10 #fcfcfc
#000000 #000000;
#X msg 850 730 0 0;
#X obj 460 380 outlet;
#X msg 1240 290 0;
#X text 530 170 activity bang;
#X obj 1240 260 route close;
#X obj 1160 130 route 0;
#X obj 1160 100 t a b;
#X text 62 221 Change switch \; to follow connection status;
#X obj 833 201 list prepend send;
#X connect 10 0 41 0;
#X connect 10 0 42 0;
#X connect 11 0 14 0;
#X connect 11 0 37 0;
#X connect 12 0 27 0;
#X connect 13 0 10 0;
#X connect 14 0 36 0;
#X connect 14 1 15 0;
#X connect 15 0 13 0;
#X connect 16 0 12 0;
#X connect 18 0 20 0;
#X connect 19 0 26 0;
#X connect 20 0 21 0;
#X connect 21 0 33 0;
#X connect 24 0 33 1;
#X connect 26 0 18 0;
#X connect 27 0 30 0;
#X connect 27 1 10 0;
#X connect 28 0 78 0;
#X connect 30 0 31 0;
#X connect 31 0 43 0;
#X connect 32 0 37 0;
#X connect 32 0 76 0;
#X connect 33 0 11 0;
#X connect 35 0 36 1;
#X connect 36 0 16 0;
#X connect 37 0 17 0;
#X connect 40 0 11 0;
#X connect 41 0 35 0;
#X connect 41 1 24 0;
#X connect 42 0 40 0;
#X connect 43 0 42 0;
#X connect 43 1 10 0;
#X connect 46 0 37 0;
#X connect 46 0 57 0;
#X connect 47 0 46 0;
#X connect 49 0 55 0;
#X connect 50 0 46 0;
#X connect 50 0 59 1;
#X connect 50 1 49 0;
#X connect 51 0 46 0;
#X connect 51 0 59 0;
#X connect 52 0 55 0;
#X connect 53 0 52 0;
#X connect 53 1 51 0;
#X connect 53 2 46 1;
#X connect 55 0 51 1;
#X connect 56 0 47 0;
#X connect 57 0 10 0;
#X connect 59 0 62 0;
#X connect 59 0 63 0;
#X connect 59 0 66 0;
#X connect 62 0 60 0;
#X connect 64 0 62 0;
#X connect 66 0 67 0;
#X connect 66 0 68 0;
#X connect 67 0 66 1;
#X connect 68 0 71 0;
#X connect 69 0 70 0;
#X connect 69 0 64 0;
#X connect 70 0 66 0;
#X connect 72 0 11 0;
#X connect 74 0 72 0;
#X connect 75 0 74 0;
#X connect 75 1 29 0;
#X connect 76 0 75 0;
#X connect 76 1 50 0;
#X connect 78 0 53 0;
#X coords 0 -1 1 1 339 80 1 263 231;