bf-util-makeinstrucompo.pd

#N canvas 962 92 956 465 10;
#X obj 45 3 inlet;
#X obj 44 400 outlet, f 7;
#X msg 8 37 clear;
#X obj 45 215 float 0;
#X obj 112 222 + 1, f 4;
#X obj 153 71 float \$3;
#X obj 44 270 expr $f1*$f2+100;
#X obj 45 20 t b b;
#X msg 84 155 0;
#X obj 161 240 symbol \$1-\$2;
#X obj 44 314 t a a;
#X obj 325 331 t a a;
#X obj 344 156 symbol \$1-\$2;
#X obj 325 139 symbol bf-util/bf-util-h\$4;
#X obj 247 240 symbol bf-util/bf-util-\$4;
#X obj 325 122 t b b b;
#X obj 44 297 pack f s s f f f;
#X msg 44 331 obj \$1 100 \$2 \$3 \$4 \$5 30 0;
#X obj 57 37 symbol \$4;
#X obj 57 54 select cont midi;
#X obj 153 88 moses 2;
#X text 292 101 horizontal cont and midi sliders;
#X obj 325 314 pack s s;
#X obj 45 88 float \$3;
#X obj 45 71 t b;
#X obj 155 139 expr 98/$f1;
#X msg 325 348 obj 100 105 \$1 \$2 0 98 15 0;
#X msg 352 365 obj 100 130 \$1 \$2-ask 0 98 10 10;
#X obj 426 240 symbol \$4;
#X obj 155 159 t b b f f f b;
#X obj 426 257 select cont midi bool bang;
#X msg 474 274 1;
#X msg 427 274 0;
#X obj 180 280 expr if($f2==0 \, $f1 \, min(30 \, $f1));
#X obj 180 297 expr if($f2==0 \, $f1 \, min(15 \, $f1));
#X msg 71 348 obj \$1 130 \$2 \$3-ask \$4 \$6 15 10;
#X obj 45 172 metro 100;
#X obj 44 239 t f f f f;
#X msg 53 154 stop;
#X obj 45 105 t b f b f;
#X msg 273 389 init 0;
#X obj 341 406 s to-\$1-\$2-gui;
#X msg 229 389 init 0;
#X obj 229 406 s to-\$1-\$2-ask-gui;
#X obj 229 371 t b b a;
#X obj 119 164 - 1;
#X obj 98 195 select 0;
#X connect 0 0 7 0;
#X connect 2 0 1 0;
#X connect 3 0 37 0;
#X connect 4 0 3 1;
#X connect 5 0 20 0;
#X connect 6 0 16 0;
#X connect 7 0 18 0;
#X connect 7 1 2 0;
#X connect 8 0 3 1;
#X connect 9 0 16 2;
#X connect 10 0 17 0;
#X connect 10 1 35 0;
#X connect 11 0 26 0;
#X connect 11 1 27 0;
#X connect 12 0 22 1;
#X connect 13 0 22 0;
#X connect 14 0 16 1;
#X connect 15 0 13 0;
#X connect 15 1 12 0;
#X connect 16 0 10 0;
#X connect 17 0 44 0;
#X connect 18 0 19 0;