bf-param.pd

#N canvas 58 487 954 461 10;
#X obj 9 25 inlet;
#X obj 9 431 outlet;
#X obj 219 134 tgl 10 0 empty empty empty 17 7 0 10 -261234 -1 -1 0
1;
#X obj 424 172 spigot;
#X obj 609 297 loadbang;
#X obj 166 22 inlet;
#X obj 339 432 outlet;
#X obj 667 299 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 166 39 pack f 0;
#X obj 9 49 t a a;
#X obj 581 21 loadbang;
#X obj 641 23 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 582 78 declare parameter when receives session name;
#X obj 9 380 t a a;
#X text 569 193 grant access;
#X obj 41 66 s to-\$1-\$2-gui;
#X obj 9 363 r from-\$1-\$2-gui;
#X obj 770 348 s pd-\$1-\$2-gui;
#N canvas 11 58 450 300 \$1-\$2-gui 0;
#X coords 0 -1 1 1 100 45 2 100 100;
#X restore 101 114 pd \$1-\$2-gui;
#X text 204 116 < value;
#X text 204 145 < asked;
#X obj 166 56 s ask-\$1-\$2-gui;
#X obj 339 398 r asked-\$1-\$2-gui;
#X msg 54 23 0 0.5;
#X obj 339 100 t a a;
#X obj 339 117 s to-\$1-\$2-ask-gui;
#X obj 395 206 s to-\$1-\$2-gui;
#X obj 355 290 until 1;
#X obj 355 273 float \$3;
#X obj 355 358 s ask-\$1-\$2-ask-gui;
#X obj 273 172 r asked-\$1-\$2-ask-gui;
#X obj 355 341 pack f 0;
#X obj 355 307 float 0;
#X obj 355 324 t f f;
#X obj 408 307 + 1;
#X msg 415 272 0;
#X obj 339 415 unpack f f;
#X text 607 281 make gui;
#X obj 628 331 bf-util/bf-util-makeinstrucompo \$1 \$2 \$3 \$4;
#X msg 582 331 init 0;
#X obj 668 348 s to-\$1-\$2-gui;
#X obj 609 314 t b b b;
#X msg 538 331 init 0;
#X obj 538 348 s to-\$1-\$2-ask-gui;
#X obj 205 134 bng 10 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 234 130 < grant;
#X obj 205 206 t b b b;
#X text 10 343 send set values;
#X text 25 200 import asked values;
#X obj 395 189 t a a;
#X obj 395 223 s to-\$1-own\$2-gui;
#X obj 121 3 r from-\$1-own\$2-import;
#X obj 183 76 r from-\$1-own\$2-grant;
#X obj 298 141 t f f f;
#X obj 260 200 s from-\$1-\$2-grant;
#X obj 623 162 s \$1-toBoeufDec;
#X obj 583 94 r \$1-bf-session-name;
#X obj 339 15 r \$1-fromBoeuf;
#X obj 581 38 s \$1-bf-ask-session-name;
#X obj 732 162 s *-toBoeufDec;
#X obj 441 15 r *-fromBoeuf;
#X obj 727 94 r *-bf-session-name;
#X obj 339 32 route \$1;