[PD] controlling/recording bang actions

[Frank Barknecht]

Hallo,

Hans-Christoph Steiner hat gesagt: // Hans-Christoph Steiner wrote:
> There are quite a few patches out there that do such thing, maybe 
> someone will post one.

Here's one. qrec is intended to be used as GOP, it records
note/velocity pairs and at play sends them to a receive called "note".

ciao
-- 
 Frank Barknecht                               _ ______footils.org__
-------------- next part --------------
#N canvas 117 454 98 64 10;
#X obj 9 4 inlet;
#X obj 54 5 inlet;
#X obj 11 37 bng 15 250 50 0 empty empty play 0 -6 0 8 -225271 -1 -1
;
#X obj 40 36 bng 15 250 50 0 empty empty clear 0 -6 0 8 -257472 -1
-1;
#X obj 70 36 tgl 15 0 empty empty loop? 0 -6 0 8 -233017 -1 -1 1 1
;
#N canvas 575 248 569 449 the_______guts 0;
#X obj 27 40 inlet;
#X obj 69 39 inlet;
#X obj 111 39 inlet;
#X obj 170 41 inlet;
#X obj 261 28 inlet;
#X obj 440 35 inlet;
#X obj 181 342 qlist;
#X obj 116 206 timer;
#X obj 116 234 int;
#X msg 54 167 bang;
#X msg 330 135 add \$1 note \$2 \$3;
#X obj 330 105 pack 0 0 0;
#X msg 390 292 rewind \, bang;
#X msg 185 375 \; \$1 \$2 \$3;
#X msg 187 66 clear;
#X obj 237 340 spigot;
#X obj 118 162 spigot;
#X msg 130 137 0;
#X msg 163 137 1;
#X msg 71 298 print;
#X obj 330 46 r \$0-time;
#X obj 121 315 s \$0-time;
#X obj 205 167 spigot;
#X msg 217 142 0;
#X msg 250 142 1;
#X text 20 17 play;
#X text 67 20 reset;
#X text 107 21 loop;
#X text 165 23 clear;
#X obj 82 65 s \$0-loop;
#X obj 290 340 r \$0-loop;
#X obj 261 103 t b b;
#X obj 118 109 t b b;
#X obj 252 52 t b b f;
#X obj 119 263 -;
#X obj 120 367 print;
#X obj 136 403 outlet;
#X msg 262 257 next;
#X msg 337 246 rewind;
#X connect 0 0 6 0;
#X connect 1 0 9 0;
#X connect 1 0 18 0;
#X connect 2 0 29 0;
#X connect 3 0 14 0;
#X connect 3 0 9 0;
#X connect 3 0 23 0;
#X connect 3 0 18 0;
#X connect 4 0 33 0;
#X connect 5 0 11 2;
#X connect 6 0 35 0;
#X connect 6 0 36 0;
#X connect 6 1 15 0;
#X connect 7 0 8 0;
#X connect 7 0 34 1;
#X connect 8 0 34 0;
#X connect 9 0 7 0;
#X connect 10 0 6 0;
#X connect 11 0 10 0;
#X connect 12 0 6 0;
#X connect 14 0 6 0;
#X connect 15 0 6 0;
#X connect 16 0 7 0;
#X connect 17 0 16 1;
#X connect 18 0 16 1;
#X connect 19 0 6 0;
#X connect 20 0 11 0;
#X connect 22 0 7 1;
#X connect 23 0 22 1;
#X connect 24 0 22 1;
#X connect 30 0 15 1;
#X connect 31 0 22 0;
#X connect 31 1 24 0;
#X connect 32 0 17 0;
#X connect 32 1 16 0;
#X connect 33 0 31 0;
#X connect 33 1 32 0;
#X connect 33 2 11 1;
#X connect 34 0 21 0;
#X connect 37 0 6 0;
#X connect 38 0 6 0;
#X restore 10 16 pd the_______guts;
#X obj 34 52 outlet;
#X connect 0 0 5 4;
#X connect 1 0 5 5;
#X connect 2 0 5 0;
#X connect 3 0 5 3;
#X connect 4 0 5 2;
#X connect 5 0 6 0;
#X coords 0 0 1 1 100 50 1;