abstractions/rradical/control rrad.drumseq.pd,NONE,1.1 _rrad.drumseq-h1.pd,NONE,1.1 - Pd-cvs

13 Nov 2004


      Update of /cvsroot/pure-data/abstractions/rradical/control
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26830
Added Files:
    rrad.drumseq.pd _rrad.drumseq-h1.pd 
Log Message:
* added a new, data structure driven, drum sequencer.
--- NEW FILE: rrad.drumseq.pd ---
#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;
--- NEW FILE: _rrad.drumseq-h1.pd ---
#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;