[PD] 808 style drum machine patch

[Frank Barknecht]

hi,
nullpointer hat gesagt: // nullpointer wrote:

> I have just put online a little 808 style drum machine patch(es).
> Nothing really fancy. Uses a table array to hold the sequence data.
> You can have up to 10 sample instruments and up to 200 bars of 16 steps
> each.
> You can do simple copy n paste of patterns and the interface is toggle based
> like the original 808.(although you can add extend the data if you like)
> It uses a simple sample player patch that you can re-use pretty easiliy too
> (creation argument sample table e.t.c.)
> 
> Anyway let me know what you think.

Nice work, instant fun ;)

I have a tip for the sequencetable patch: You can save the "seq" array to a
file with a message "; seq write filename.txt". That way one would not have
to save the whole window/patch, just the numbers. Read it in with "; seq
read filename.txt". The ";" is important!

Even nicer would be this openpanel idiom, often used in PD:

 SAVE
[bang( -> [openpanel] -> [; seq write $1( 

 LOAD
[bang( -> [openpanel] -> [; seq read  $1( 

Also one could make the tempo box count in BPM, you might use my bpm2ticks
utility patch: Send it a BPM to the left inlet, and you get a metro
interval at the right outlet. It also computes a more granular tick
duration, in case you need a second metro for even finder resolution or if
you want to feed the nice "metroplus" object for that certain shwing ;)

bye,
-- 
                                                 __    __
 Frank Barknecht       ____ ______   ____ __ trip\ \  / /wire ______
                      / __// __  /__/ __// // __  \ \/ /  __ \\  ___\	
                     / /  / ____/  / /  / // ____// /\ \\  ___\\____ \	
                    /_/  /_____/  /_/  /_//_____// /  \ \\_____\\_____\
                                                /_/    \_\ 
-------------- next part --------------
#N canvas 77 260 923 615 10;
#X floatatom 251 98 4 0 0;
#X text 296 97 bpm;
#X floatatom 456 98 4 0 0;
#X text 496 97 ticks per beat;
#X msg 251 73 120;
#X obj 456 123 t b f;
#X obj 343 185 *;
#X obj 343 210 pow -1;
#X floatatom 456 298 8 0 0;
#X obj 201 73 inlet;
#X obj 409 73 inlet;
#X msg 456 73 24;
#X floatatom 231 297 8 0 0;
#X obj 456 428 outlet;
#X obj 331 22 loadbang;
#X obj 456 273 * 24;
#X text 299 297 duration of 1 tick;
#X obj 231 437 outlet;
#X text 534 301 duration of 1 beat;
#X obj 343 235 * 60000;
#X connect 0 0 6 0;
#X connect 2 0 5 0;
#X connect 4 0 0 0;
#X connect 5 0 6 0;
#X connect 5 0 15 0;
#X connect 5 1 6 1;
#X connect 5 1 15 1;
#X connect 6 0 7 0;
#X connect 7 0 19 0;
#X connect 8 0 13 0;
#X connect 9 0 0 0;
#X connect 10 0 2 0;
#X connect 11 0 2 0;
#X connect 12 0 17 0;
#X connect 14 0 11 0;
#X connect 14 0 4 0;
#X connect 15 0 8 0;
#X connect 19 0 12 0;
#X connect 19 0 15 0;