From a0bd7d84b4bea6f581396db44bd548d128f68f59 Mon Sep 17 00:00:00 2001
From: Frank Barknecht <fbar@users.sourceforge.net>
Date: Sat, 13 Nov 2004 13:02:29 +0000
Subject: * added a new, data structure driven, drum sequencer.

svn path=/trunk/abstractions/rradical/; revision=2266
---
 control/_rrad.drumseq-h1.pd |  24 +++
 control/rrad.drumseq.pd     | 473 ++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 497 insertions(+)
 create mode 100644 control/_rrad.drumseq-h1.pd
 create mode 100644 control/rrad.drumseq.pd

diff --git a/control/_rrad.drumseq-h1.pd b/control/_rrad.drumseq-h1.pd
new file mode 100644
index 0000000..3d7c103
--- /dev/null
+++ b/control/_rrad.drumseq-h1.pd
@@ -0,0 +1,24 @@
+#N canvas 562 509 450 300 10;
+#X obj 74 112 i 0;
+#X obj 104 112 + 1;
+#X obj 74 77 inlet;
+#X obj 139 82 inlet;
+#X obj 139 116 route \$1;
+#X obj 74 164 * 5;
+#X obj 74 134 mod 5;
+#X obj 74 193 set \$2-rect w;
+#X obj 39 218 pack 0 \$1;
+#X msg 39 239 \$2 \$1;
+#X obj 39 263 s \$2-tobang-s;
+#X obj 222 224 print \$1-inside;
+#X connect 0 0 6 0;
+#X connect 1 0 0 1;
+#X connect 2 0 0 0;
+#X connect 3 0 4 0;
+#X connect 4 0 7 1;
+#X connect 5 0 7 0;
+#X connect 6 0 1 0;
+#X connect 6 0 5 0;
+#X connect 6 0 8 0;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
diff --git a/control/rrad.drumseq.pd b/control/rrad.drumseq.pd
new file mode 100644
index 0000000..61d703b
--- /dev/null
+++ b/control/rrad.drumseq.pd
@@ -0,0 +1,473 @@
+#N struct 3368-dial float x float y float w float color;
+#N struct 3368-rect float x float y float w float color;
+#N canvas 525 291 327 74 10;
+#N canvas 342 163 727 574 guts 0;
+#N canvas 639 520 450 300 rect 0;
+#X obj 78 49 struct \$0-rect float x float y float w float color;
+#X obj 88 154 filledpolygon color 999 1 0 0 20 0 20 w 0 w;
+#X obj 89 188 drawpolygon 999 1 0 0 0 20;
+#X restore 27 54 pd rect;
+#X obj 410 176 symbol \$0-seqs;
+#X obj 429 43 loadbang;
+#X msg 410 151 bang;
+#X obj 410 203 makefilename pd-%s;
+#X msg 410 253 traverse \$1 \, bang;
+#X obj 410 276 pointer;
+#X obj 270 219 t b b;
+#X msg 241 261 0;
+#X obj 349 126 t b b;
+#X msg 348 107 bang;
+#X obj 570 252 symbol;
+#X msg 570 289 \; \$1 clear;
+#X msg 561 223 bang;
+#X obj 114 224 until;
+#X obj 110 172 t b b;
+#X msg 165 207 0;
+#X obj 115 255 i 0;
+#X obj 148 251 + 20;
+#X msg 289 262 20;
+#X msg 113 199 16;
+#X msg 371 261 900;
+#X msg 332 264 0;
+#X obj 149 276 t f f;
+#X obj 203 370 pack 0 p;
+#X obj 203 395 s \$0-tobang;
+#N canvas 305 27 496 875 managebangs 0;
+#X obj 104 9 r \$0-tobang;
+#X obj 18 8 r \$0-bang0;
+#X obj 108 57 r \$0-tobang;
+#X obj 108 109 r \$0-tobang;
+#X obj 114 163 r \$0-tobang;
+#X obj 108 225 r \$0-tobang;
+#X obj 119 280 r \$0-tobang;
+#X obj 117 342 r \$0-tobang;
+#X obj 115 406 r \$0-tobang;
+#X obj 109 468 r \$0-tobang;
+#X obj 113 532 r \$0-tobang;
+#X obj 115 584 r \$0-tobang;
+#X obj 29 583 r \$0-bang0;
+#X obj 119 648 r \$0-tobang;
+#X obj 22 56 r \$0-bang1;
+#X obj 22 108 r \$0-bang2;
+#X obj 28 164 r \$0-bang3;
+#X obj 22 224 r \$0-bang4;
+#X obj 33 279 r \$0-bang5;
+#X obj 31 341 r \$0-bang6;
+#X obj 29 405 r \$0-bang7;
+#X obj 23 467 r \$0-bang8;
+#X obj 27 531 r \$0-bang9;
+#X obj 33 647 r \$0-bang10;
+#X obj 314 60 r \$0-tobang;
+#X obj 314 112 r \$0-tobang;
+#X obj 320 166 r \$0-tobang;
+#X obj 314 228 r \$0-tobang;
+#X obj 325 283 r \$0-tobang;
+#X obj 228 59 r \$0-bang11;
+#X obj 228 111 r \$0-bang12;
+#X obj 234 167 r \$0-bang13;
+#X obj 228 227 r \$0-bang14;
+#X obj 239 282 r \$0-bang15;
+#X obj 22 33 _rrad.drumseq-h1 0 \$0;
+#X obj 29 606 _rrad.drumseq-h1 0 \$0;
+#X obj 22 79 _rrad.drumseq-h1 1 \$0;
+#X obj 22 131 _rrad.drumseq-h1 2 \$0;
+#X obj 28 185 _rrad.drumseq-h1 3 \$0;
+#X obj 22 247 _rrad.drumseq-h1 4 \$0;
+#X obj 33 302 _rrad.drumseq-h1 5 \$0;
+#X obj 31 364 _rrad.drumseq-h1 6 \$0;
+#X obj 29 428 _rrad.drumseq-h1 7 \$0;
+#X obj 23 490 _rrad.drumseq-h1 8 \$0;
+#X obj 27 554 _rrad.drumseq-h1 9 \$0;
+#X obj 33 670 _rrad.drumseq-h1 10 \$0;
+#X obj 228 82 _rrad.drumseq-h1 11 \$0;
+#X obj 228 134 _rrad.drumseq-h1 12 \$0;
+#X obj 234 188 _rrad.drumseq-h1 13 \$0;
+#X obj 228 250 _rrad.drumseq-h1 14 \$0;
+#X obj 239 305 _rrad.drumseq-h1 15 \$0;
+#X connect 0 0 34 1;
+#X connect 1 0 34 0;
+#X connect 2 0 36 1;
+#X connect 3 0 37 1;
+#X connect 4 0 38 1;
+#X connect 5 0 39 1;
+#X connect 6 0 40 1;
+#X connect 7 0 41 1;
+#X connect 8 0 42 1;
+#X connect 9 0 43 1;
+#X connect 10 0 44 1;
+#X connect 11 0 35 1;
+#X connect 12 0 35 0;
+#X connect 13 0 45 1;
+#X connect 14 0 36 0;
+#X connect 15 0 37 0;
+#X connect 16 0 38 0;
+#X connect 17 0 39 0;
+#X connect 18 0 40 0;
+#X connect 19 0 41 0;
+#X connect 20 0 42 0;
+#X connect 21 0 43 0;
+#X connect 22 0 44 0;
+#X connect 23 0 45 0;
+#X connect 24 0 46 1;
+#X connect 25 0 47 1;
+#X connect 26 0 48 1;
+#X connect 27 0 49 1;
+#X connect 28 0 50 1;
+#X connect 29 0 46 0;
+#X connect 30 0 47 0;
+#X connect 31 0 48 0;
+#X connect 32 0 49 0;
+#X connect 33 0 50 0;
+#X restore 26 84 pd managebangs;
+#X obj 149 301 / 20;
+#X obj 149 334 int;
+#X obj 275 36 inlet;
+#X obj 410 224 t a a;
+#X obj 254 304 append \$0-rect x y w color;
+#N canvas 552 344 450 300 dial 0;
+#X obj 42 56 struct \$0-dial float x float y float w float color;
+#X obj 46 118 filledpolygon color 999 1 0 0 0 8 w 8 w 0;
+#X restore 89 55 pd dial;
+#X obj 270 346 t b b;
+#X obj 321 398 append \$0-dial x y w color;
+#X obj 321 372 unpack 0 0 0 900;
+#X obj 307 427 set \$0-dial w;
+#X obj 86 406 r \$0-location;
+#X obj 91 433 * 20;
+#X obj 243 167 s \$0-OSC;
+#X msg 243 136 \$1/s* 0;
+#X obj 238 115 symbol \$1;
+#X obj 512 399 append \$0-dial x y w color;
+#X obj 512 373 unpack 0 0 0 900;
+#X obj 476 488 get \$0-dial w;
+#X obj 476 464 pointer;
+#X obj 421 419 r \$0-getmax;
+#X obj 476 518 s \$0-max;
+#X msg 321 351 0 0 30 111;
+#X msg 508 338 0 10 320 222;
+#X obj 331 493 r \$0-setmax;
+#X obj 348 529 set \$0-dial w;
+#X obj 282 66 t b b b;
+#X obj 169 113 s \$0-setmax;
+#X msg 179 84 320;
+#X connect 1 0 4 0;
+#X connect 2 0 10 0;
+#X connect 3 0 1 0;
+#X connect 4 0 30 0;
+#X connect 5 0 6 0;
+#X connect 6 0 31 4;
+#X connect 6 0 34 4;
+#X connect 6 0 42 4;
+#X connect 7 0 8 0;
+#X connect 7 0 15 0;
+#X connect 7 0 33 0;
+#X connect 7 1 21 0;
+#X connect 7 1 22 0;
+#X connect 7 1 19 0;
+#X connect 9 0 7 0;
+#X connect 9 1 3 0;
+#X connect 10 0 9 0;
+#X connect 11 0 12 0;
+#X connect 13 0 11 0;
+#X connect 14 0 17 0;
+#X connect 15 0 20 0;
+#X connect 15 1 16 0;
+#X connect 16 0 17 1;
+#X connect 17 0 18 0;
+#X connect 17 0 23 0;
+#X connect 18 0 17 1;
+#X connect 19 0 31 1;
+#X connect 20 0 14 0;
+#X connect 21 0 31 3;
+#X connect 22 0 31 2;
+#X connect 23 0 27 0;
+#X connect 23 1 31 0;
+#X connect 24 0 25 0;
+#X connect 27 0 28 0;
+#X connect 28 0 24 0;
+#X connect 29 0 52 0;
+#X connect 30 0 5 0;
+#X connect 30 1 11 0;
+#X connect 31 0 24 1;
+#X connect 33 0 48 0;
+#X connect 33 1 49 0;
+#X connect 34 0 36 1;
+#X connect 35 0 34 0;
+#X connect 35 1 34 1;
+#X connect 35 2 34 2;
+#X connect 35 3 34 3;
+#X connect 37 0 38 0;
+#X connect 38 0 36 0;
+#X connect 40 0 39 0;
+#X connect 41 0 40 0;
+#X connect 42 0 45 1;
+#X connect 42 0 51 1;
+#X connect 43 0 42 0;
+#X connect 43 1 42 1;
+#X connect 43 2 42 2;
+#X connect 43 3 42 3;
+#X connect 44 0 47 0;
+#X connect 45 0 44 0;
+#X connect 46 0 45 0;
+#X connect 48 0 35 0;
+#X connect 49 0 43 0;
+#X connect 50 0 51 0;
+#X connect 52 0 54 0;
+#X connect 52 1 41 0;
+#X connect 52 2 10 0;
+#X connect 54 0 53 0;
+#X restore 328 22 pd guts;
+#X obj 2 39 bng 20 250 50 0 \$0-bang0 empty empty 0 -6 0 8 -262144
+-1 -1;
+#X obj 22 39 bng 20 250 50 0 \$0-bang1 empty empty 0 -6 0 8 -262144
+-1 -1;
+#X obj 42 39 bng 20 250 50 0 \$0-bang2 empty empty 0 -6 0 8 -262144
+-1 -1;
+#X obj 62 39 bng 20 250 50 0 \$0-bang3 empty empty 0 -6 0 8 -262144
+-1 -1;
+#X obj 82 39 bng 20 250 50 0 \$0-bang4 empty empty 0 -6 0 8 -262144
+-1 -1;
+#X obj 102 39 bng 20 250 50 0 \$0-bang5 empty empty 0 -6 0 8 -262144
+-1 -1;
+#X obj 122 39 bng 20 250 50 0 \$0-bang6 empty empty 0 -6 0 8 -262144
+-1 -1;
+#X obj 143 39 bng 20 250 50 0 \$0-bang7 empty empty 0 -6 0 8 -262144
+-1 -1;
+#X obj 162 39 bng 20 250 50 0 \$0-bang8 empty empty 0 -6 0 8 -262144
+-1 -1;
+#X obj 182 39 bng 20 250 50 0 \$0-bang9 empty empty 0 -6 0 8 -262144
+-1 -1;
+#X obj 202 39 bng 20 250 50 0 \$0-bang10 empty empty 0 -6 0 8 -262144
+-1 -1;
+#X obj 222 39 bng 20 250 50 0 \$0-bang11 empty empty 0 -6 0 8 -262144
+-1 -1;
+#X obj 242 39 bng 20 250 50 0 \$0-bang12 empty empty 0 -6 0 8 -262144
+-1 -1;
+#X obj 262 39 bng 20 250 50 0 \$0-bang13 empty empty 0 -6 0 8 -262144
+-1 -1;
+#X obj 282 39 bng 20 250 50 0 \$0-bang14 empty empty 0 -6 0 8 -262144
+-1 -1;
+#X obj 302 39 bng 20 250 50 0 \$0-bang15 empty empty 0 -6 0 8 -262144
+-1 -1;
+#X obj 2 19 cnv 15 320 40 empty empty empty 20 12 0 12 -1 -66577 0
+;
+#N canvas 0 0 391 182 3368-seqs 0;
+#X scalar 3368-dial 0 0 40 111 \;;
+#X scalar 3368-dial 0 10 192 222 \;;
+#X scalar 3368-rect 0 20 0 900 \;;
+#X scalar 3368-rect 20 20 0 900 \;;
+#X scalar 3368-rect 40 20 0 900 \;;
+#X scalar 3368-rect 60 20 0 900 \;;
+#X scalar 3368-rect 80 20 0 900 \;;
+#X scalar 3368-rect 100 20 0 900 \;;
+#X scalar 3368-rect 120 20 0 900 \;;
+#X scalar 3368-rect 140 20 0 900 \;;
+#X scalar 3368-rect 160 20 0 900 \;;
+#X scalar 3368-rect 180 20 0 900 \;;
+#X scalar 3368-rect 200 20 0 900 \;;
+#X scalar 3368-rect 220 20 0 900 \;;
+#X scalar 3368-rect 240 20 0 900 \;;
+#X scalar 3368-rect 260 20 0 900 \;;
+#X scalar 3368-rect 280 20 0 900 \;;
+#X scalar 3368-rect 300 20 0 900 \;;
+#X coords 0 0 320 40 320 40 1;
+#X restore 1 19 pd \$0-seqs;
+#X obj 396 22 inlet;
+#X obj 306 5 bng 12 250 50 0 empty empty empty 0 -6 0 8 -258699 -262144
+-262144;
+#N canvas 0 0 547 441 saves 0;
+#X obj 120 16 inlet;
+#X obj 275 78 inlet;
+#X obj 142 194 outlet;
+#X obj 307 145 outlet;
+#X obj 147 123 originator \$1 \$0;
+#X obj 123 57 mod 16;
+#X obj 128 80 makefilename /s%d;
+#X msg 142 100 get \$1;
+#N canvas 162 15 909 925 commun 0;
+#X obj 46 17 r \$0-tobang-s;
+#X obj 47 90 s \$0-bang0;
+#X obj 47 59 commun /s0 \$0;
+#X obj 46 38 route 0;
+#X obj 44 111 r \$0-tobang-s;
+#X obj 42 217 r \$0-tobang-s;
+#X obj 37 324 r \$0-tobang-s;
+#X obj 41 426 r \$0-tobang-s;
+#X obj 37 516 r \$0-tobang-s;
+#X obj 32 623 r \$0-tobang-s;
+#X obj 28 733 r \$0-tobang-s;
+#X obj 44 132 route 1;
+#X obj 45 184 s \$0-bang1;
+#X obj 45 153 commun /s1 \$0;
+#X obj 42 238 route 2;
+#X obj 43 259 commun /s2 \$0;
+#X obj 41 290 s \$0-bang2;
+#X obj 37 345 route 3;
+#X obj 38 366 commun /s3 \$0;
+#X obj 38 397 s \$0-bang3;
+#X obj 41 447 route 4;
+#X obj 42 468 commun /s4 \$0;
+#X obj 42 492 s \$0-bang4;
+#X obj 37 537 route 5;
+#X obj 38 558 commun /s5 \$0;
+#X obj 38 589 s \$0-bang5;
+#X obj 32 644 route 6;
+#X obj 33 665 commun /s6 \$0;
+#X obj 33 696 s \$0-bang6;
+#X obj 28 754 route 7;
+#X obj 29 775 commun /s7 \$0;
+#X obj 29 806 s \$0-bang7;
+#X obj 186 23 r \$0-tobang-s;
+#X obj 186 123 r \$0-tobang-s;
+#X obj 186 44 route 8;
+#X obj 187 65 commun /s8 \$0;
+#X obj 187 96 s \$0-bang8;
+#X obj 186 144 route 9;
+#X obj 187 165 commun /s9 \$0;
+#X obj 189 196 s \$0-bang9;
+#X obj 347 20 r \$0-tobang-s;
+#X obj 345 114 r \$0-tobang-s;
+#X obj 343 220 r \$0-tobang-s;
+#X obj 338 327 r \$0-tobang-s;
+#X obj 342 429 r \$0-tobang-s;
+#X obj 338 519 r \$0-tobang-s;
+#X obj 347 41 route 10;
+#X obj 348 62 commun /s10 \$0;
+#X obj 348 93 s \$0-bang10;
+#X obj 345 135 route 11;
+#X obj 346 156 commun /s11 \$0;
+#X obj 346 187 s \$0-bang11;
+#X obj 343 241 route 12;
+#X obj 344 262 commun /s12 \$0;
+#X obj 342 293 s \$0-bang12;
+#X obj 338 348 route 13;
+#X obj 339 369 commun /s13 \$0;
+#X obj 339 400 s \$0-bang13;
+#X obj 340 450 route 14;
+#X obj 343 471 commun /s14 \$0;
+#X obj 343 495 s \$0-bang14;
+#X obj 338 540 route 15;
+#X obj 339 561 commun /s15 \$0;
+#X obj 339 592 s \$0-bang15;
+#X obj 653 336 commun /play \$0;
+#X obj 656 306 r \$0-play;
+#X obj 658 368 s \$0-play;
+#X obj 634 493 commun /max \$0;
+#X obj 634 467 r \$0-max;
+#X obj 634 523 s \$0-setmax;
+#X connect 0 0 3 0;
+#X connect 2 0 1 0;
+#X connect 3 0 2 0;
+#X connect 4 0 11 0;
+#X connect 5 0 14 0;
+#X connect 6 0 17 0;
+#X connect 7 0 20 0;
+#X connect 8 0 23 0;
+#X connect 9 0 26 0;
+#X connect 10 0 29 0;
+#X connect 11 0 13 0;
+#X connect 13 0 12 0;
+#X connect 14 0 15 0;
+#X connect 15 0 16 0;
+#X connect 17 0 18 0;
+#X connect 18 0 19 0;
+#X connect 20 0 21 0;
+#X connect 21 0 22 0;
+#X connect 23 0 24 0;
+#X connect 24 0 25 0;
+#X connect 26 0 27 0;
+#X connect 27 0 28 0;
+#X connect 29 0 30 0;
+#X connect 30 0 31 0;
+#X connect 32 0 34 0;
+#X connect 33 0 37 0;
+#X connect 34 0 35 0;
+#X connect 35 0 36 0;
+#X connect 37 0 38 0;
+#X connect 38 0 39 0;
+#X connect 40 0 46 0;
+#X connect 41 0 49 0;
+#X connect 42 0 52 0;
+#X connect 43 0 55 0;
+#X connect 44 0 58 0;
+#X connect 45 0 61 0;
+#X connect 46 0 47 0;
+#X connect 47 0 48 0;
+#X connect 49 0 50 0;
+#X connect 50 0 51 0;
+#X connect 52 0 53 0;
+#X connect 53 0 54 0;
+#X connect 55 0 56 0;
+#X connect 56 0 57 0;
+#X connect 58 0 59 0;
+#X connect 59 0 60 0;
+#X connect 61 0 62 0;
+#X connect 62 0 63 0;
+#X connect 64 0 66 0;
+#X connect 65 0 64 0;
+#X connect 67 0 69 0;
+#X connect 68 0 67 0;
+#X restore 55 222 pd commun;
+#X obj 46 127 s \$0-location;
+#X obj 273 115 r \$0-OSC;
+#X obj 151 145 rrad.scale 0 4 0 127;
+#X obj 148 173 int;
+#X obj 198 15 r \$0-play;
+#X obj 122 36 spigot;
+#X obj 227 192 loadbang;
+#X msg 232 213 1;
+#X obj 233 234 s \$0-play;
+#X obj 49 76 select 0;
+#X obj 48 102 s \$0-getmax;
+#X obj 415 10 r \$0-max;
+#X obj 415 31 / 20;
+#X obj 415 54 int;
+#X obj 443 233 s \$0-setmax;
+#X obj 447 164 spigot;
+#X obj 482 127 > 16;
+#X obj 415 126 min 16;
+#X obj 363 124 min 16;
+#X obj 368 100 + 1;
+#X obj 447 192 * 20;
+#X obj 402 185 + 1;
+#X connect 0 0 14 0;
+#X connect 1 0 4 1;
+#X connect 4 0 11 0;
+#X connect 4 2 3 0;
+#X connect 5 0 6 0;
+#X connect 5 0 9 0;
+#X connect 5 0 18 0;
+#X connect 6 0 7 0;
+#X connect 7 0 4 0;
+#X connect 10 0 4 1;
+#X connect 11 0 12 0;
+#X connect 12 0 2 0;
+#X connect 13 0 14 1;
+#X connect 14 0 5 0;
+#X connect 15 0 16 0;
+#X connect 16 0 17 0;
+#X connect 18 0 19 0;
+#X connect 20 0 21 0;
+#X connect 21 0 22 0;
+#X connect 22 0 25 0;
+#X connect 22 0 26 0;
+#X connect 22 0 28 0;
+#X connect 24 0 29 0;
+#X connect 25 0 24 1;
+#X connect 26 0 30 0;
+#X connect 26 0 24 0;
+#X connect 27 0 5 1;
+#X connect 28 0 27 0;
+#X connect 29 0 23 0;
+#X restore 395 43 pd saves;
+#X obj 438 22 inlet;
+#X obj 341 44 outlet;
+#X obj 455 46 outlet;
+#X obj 282 5 tgl 12 0 \$0-play \$0-play empty 0 -6 0 8 -261681 -1 -1
+1 1;
+#X connect 19 0 21 0;
+#X connect 20 0 0 0;
+#X connect 21 0 23 0;
+#X connect 21 1 24 0;
+#X connect 22 0 21 1;
+#X coords 0 0 1 1 322 54 1;
-- 
cgit v1.2.1