speedlimit.pd

#N canvas 384 34 782 432 10;
#X obj 336 49 inlet;
#X obj 206 212 metro 100;
#X obj 206 32 inlet;
#N canvas 0 0 720 312 activity-monitor 0;
#X obj 108 74 inlet;
#X obj 108 103 b;
#X obj 108 160 delay 100;
#X obj 168 73 inlet;
#X obj 108 198 outlet;
#X text 198 132 if no activity for X msec \, then bang outlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 2 1;
#X restore 252 155 pd activity-monitor;
#X msg 252 181 0;
#X msg 206 181 1;
#X obj 206 251 list append;
#X text 382 50 speed limit (ms);
#X obj 206 278 outlet;
#X obj 206 89 spigot 1;
#X obj 274 89 == 0;
#X text 548 221 While metro is running \, don't;
#X obj 206 56 t a b a;
#X text 566 165 3) start metro including output of data;
#X text 566 126 1) store data;
#X text 546 96 If data comes in:;
#X text 567 146 2) start activity monitor;
#X text 567 188 4) close system;
#X obj 511 18 loadbang;
#X obj 511 43 f \$1;
#X obj 511 71 select 0;
#X msg 511 93 100;
#X obj 336 123 f;
#X connect 0 0 22 0;
#X connect 1 0 6 0;
#X connect 2 0 12 0;
#X connect 3 0 4 0;
#X connect 4 0 1 0;
#X connect 4 0 10 0;
#X connect 5 0 1 0;
#X connect 5 0 10 0;
#X connect 6 0 8 0;
#X connect 9 0 5 0;
#X connect 10 0 9 1;
#X connect 12 0 9 0;
#X connect 12 1 3 0;
#X connect 12 2 6 1;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 20 1 22 0;
#X connect 21 0 22 0;
#X connect 22 0 3 1;
#X connect 22 0 1 1;