From 0639758da585bb82671f7bba907d41c7c3cac7e8 Mon Sep 17 00:00:00 2001
From: Frank Barknecht <fbar@users.sourceforge.net>
Date: Sat, 5 Jun 2004 14:34:03 +0000
Subject: * two new numberbox sequencers.

svn path=/trunk/abstractions/rradical/; revision=1806
---
 control/rrad.multinseq.pd | 115 +++++++++++++++++++
 control/rrad.nseq.pd      | 276 ++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 391 insertions(+)
 create mode 100644 control/rrad.multinseq.pd
 create mode 100644 control/rrad.nseq.pd

diff --git a/control/rrad.multinseq.pd b/control/rrad.multinseq.pd
new file mode 100644
index 0000000..f941af7
--- /dev/null
+++ b/control/rrad.multinseq.pd
@@ -0,0 +1,115 @@
+#N canvas 0 0 446 436 10;
+#X obj 1 19 cnv 15 450 410 empty \$0-background-cnv empty 20 12 1 14
+-245564 -66577 0;
+#X obj 510 87 inlet;
+#X obj 689 87 inlet OSC;
+#N canvas 183 51 981 424 saves 0;
+#X obj 45 160 originator \$1 \$0;
+#X obj 152 132 inlet OSC;
+#X obj 507 86 r \$0-s1;
+#X obj 507 110 commun /s1 \$0;
+#X obj 606 86 r \$0-s2;
+#X obj 606 110 commun /s2 \$0;
+#X obj 507 135 s \$0-s1-r;
+#X obj 606 135 s \$0-s2-r;
+#X obj 47 55 r \$0-substate;
+#X obj 15 13 inlet substate;
+#X obj 15 35 route substate;
+#X obj 159 55 r \$0-copy;
+#X msg 159 76 copy;
+#X obj 243 50 r \$0-paste;
+#X msg 241 71 paste;
+#X text 154 15 This is the originator \, including some ready to use
+standard functionality.;
+#X text 507 56 Put your commun sends here \, if you like.;
+#X msg 15 91 setsub \$1;
+#X msg 249 184 svdir \$1;
+#X obj 250 139 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 250 163 savepanel;
+#X obj 152 189 outlet OSC;
+#X msg 108 214 svxdir /tmp/svdir.xml;
+#X msg 78 241 ldxdir /tmp/svdir.xml;
+#X connect 0 2 21 0;
+#X connect 1 0 0 1;
+#X connect 2 0 3 0;
+#X connect 3 0 6 0;
+#X connect 4 0 5 0;
+#X connect 5 0 7 0;
+#X connect 8 0 17 0;
+#X connect 9 0 10 0;
+#X connect 10 0 17 0;
+#X connect 10 1 0 0;
+#X connect 11 0 12 0;
+#X connect 12 0 0 0;
+#X connect 13 0 14 0;
+#X connect 14 0 0 0;
+#X connect 17 0 0 0;
+#X connect 18 0 0 0;
+#X connect 19 0 20 0;
+#X connect 20 0 18 0;
+#X connect 22 0 0 0;
+#X connect 23 0 0 0;
+#X restore 627 86 pd saves;
+#N canvas 569 61 450 300 cnv.ctl 0;
+#X obj 90 188 s \$0-background-cnv;
+#X floatatom 108 59 5 100 1000 0 width - -;
+#X floatatom 112 83 4 50 500 0 height - -;
+#X obj 92 132 pack 0 0;
+#X msg 92 159 vis_size \$1 \$2;
+#X obj 110 106 t b f;
+#X connect 1 0 3 0;
+#X connect 2 0 5 0;
+#X connect 3 0 4 0;
+#X connect 4 0 0 0;
+#X connect 5 0 3 0;
+#X connect 5 1 3 1;
+#X restore 552 86 pd cnv.ctl;
+#X obj 627 107 outlet OSC;
+#X obj 585 115 inlet;
+#X obj 2 26 rrad.nseq \$1-n1;
+#X obj 2 410 outlet;
+#X obj 51 -1 r \$0-OSC;
+#X obj 17 432 s \$0-OSC-out;
+#X obj 654 132 r \$0-OSC-out;
+#X obj 710 111 s \$0-OSC;
+#X obj 113 411 outlet;
+#X obj 162 1 r \$0-OSC;
+#X obj 128 433 s \$0-OSC-out;
+#X obj 113 27 rrad.nseq \$1-n2;
+#X obj 224 411 outlet;
+#X obj 274 2 r \$0-OSC;
+#X obj 239 433 s \$0-OSC-out;
+#X obj 338 411 outlet;
+#X obj 386 2 r \$0-OSC;
+#X obj 353 433 s \$0-OSC-out;
+#X obj 224 27 rrad.nseq \$1-n3;
+#X obj 338 27 rrad.nseq \$1-n4;
+#X obj 8 5 r \$0-s;
+#X obj 114 1 r \$0-s;
+#X obj 225 1 r \$0-s;
+#X obj 339 1 r \$0-s;
+#X obj 501 121 s \$0-s;
+#X connect 1 0 29 0;
+#X connect 2 0 3 1;
+#X connect 2 0 12 0;
+#X connect 3 0 5 0;
+#X connect 6 0 3 0;
+#X connect 7 0 8 0;
+#X connect 7 1 10 0;
+#X connect 9 0 7 2;
+#X connect 11 0 5 0;
+#X connect 14 0 16 2;
+#X connect 16 0 13 0;
+#X connect 16 1 15 0;
+#X connect 18 0 23 2;
+#X connect 21 0 24 2;
+#X connect 23 0 17 0;
+#X connect 23 1 19 0;
+#X connect 24 0 20 0;
+#X connect 24 1 22 0;
+#X connect 25 0 7 0;
+#X connect 26 0 16 0;
+#X connect 27 0 23 0;
+#X connect 28 0 24 0;
+#X coords 0 0 1 1 452 430 1;
diff --git a/control/rrad.nseq.pd b/control/rrad.nseq.pd
new file mode 100644
index 0000000..30cfe49
--- /dev/null
+++ b/control/rrad.nseq.pd
@@ -0,0 +1,276 @@
+#N canvas 237 255 108 385 10;
+#X obj 2 19 cnv 15 100 360 empty \$0-background-cnv empty 20 12 1 14
+-233017 -66577 0;
+#X obj 254 1 inlet;
+#X obj 433 1 inlet OSC;
+#N canvas 183 51 981 424 saves 0;
+#X obj 45 160 originator \$1 \$0;
+#X obj 152 132 inlet OSC;
+#X obj 47 55 r \$0-substate;
+#X obj 15 13 inlet substate;
+#X obj 15 35 route substate;
+#X obj 159 55 r \$0-copy;
+#X msg 159 76 copy;
+#X obj 243 50 r \$0-paste;
+#X msg 241 71 paste;
+#X text 154 15 This is the originator \, including some ready to use
+standard functionality.;
+#X text 507 56 Put your commun sends here \, if you like.;
+#X msg 15 91 setsub \$1;
+#X msg 249 184 svdir \$1;
+#X obj 250 139 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 250 163 savepanel;
+#X obj 152 189 outlet OSC;
+#X msg 108 214 svxdir /tmp/svdir.xml;
+#X msg 78 241 ldxdir /tmp/svdir.xml;
+#N canvas 0 0 518 492 communs 0;
+#X obj 20 39 commun /n0 \$0;
+#X obj 270 39 s \$0-n0;
+#X obj 20 61 commun /n1 \$0;
+#X obj 270 61 s \$0-n1;
+#X obj 20 83 commun /n2 \$0;
+#X obj 270 83 s \$0-n2;
+#X obj 20 105 commun /n3 \$0;
+#X obj 270 105 s \$0-n3;
+#X obj 20 127 commun /n4 \$0;
+#X obj 270 127 s \$0-n4;
+#X obj 20 149 commun /n5 \$0;
+#X obj 270 149 s \$0-n5;
+#X obj 20 171 commun /n6 \$0;
+#X obj 270 171 s \$0-n6;
+#X obj 20 193 commun /n7 \$0;
+#X obj 270 193 s \$0-n7;
+#X obj 20 215 commun /n8 \$0;
+#X obj 270 215 s \$0-n8;
+#X obj 20 237 commun /n9 \$0;
+#X obj 270 237 s \$0-n9;
+#X obj 20 259 commun /n10 \$0;
+#X obj 270 259 s \$0-n10;
+#X obj 20 281 commun /n11 \$0;
+#X obj 270 281 s \$0-n11;
+#X obj 20 303 commun /n12 \$0;
+#X obj 270 303 s \$0-n12;
+#X obj 20 325 commun /n13 \$0;
+#X obj 270 325 s \$0-n13;
+#X obj 20 347 commun /n14 \$0;
+#X obj 270 347 s \$0-n14;
+#X obj 20 369 commun /n15 \$0;
+#X obj 270 369 s \$0-n15;
+#X obj 170 39 r \$0-n0-s;
+#X obj 170 61 r \$0-n1-s;
+#X obj 169 83 r \$0-n2-s;
+#X obj 170 105 r \$0-n3-s;
+#X obj 170 127 r \$0-n4-s;
+#X obj 170 149 r \$0-n5-s;
+#X obj 170 171 r \$0-n6-s;
+#X obj 170 193 r \$0-n7-s;
+#X obj 170 215 r \$0-n8-s;
+#X obj 170 237 r \$0-n9-s;
+#X obj 170 259 r \$0-n10-s;
+#X obj 170 281 r \$0-n11-s;
+#X obj 170 303 r \$0-n12-s;
+#X obj 170 325 r \$0-n13-s;
+#X obj 170 347 r \$0-n14-s;
+#X obj 170 369 r \$0-n15-s;
+#X connect 0 0 1 0;
+#X connect 2 0 3 0;
+#X connect 4 0 5 0;
+#X connect 6 0 7 0;
+#X connect 8 0 9 0;
+#X connect 10 0 11 0;
+#X connect 12 0 13 0;
+#X connect 14 0 15 0;
+#X connect 16 0 17 0;
+#X connect 18 0 19 0;
+#X connect 20 0 21 0;
+#X connect 22 0 23 0;
+#X connect 24 0 25 0;
+#X connect 26 0 27 0;
+#X connect 28 0 29 0;
+#X connect 30 0 31 0;
+#X connect 32 0 0 0;
+#X connect 33 0 2 0;
+#X connect 34 0 4 0;
+#X connect 35 0 6 0;
+#X connect 36 0 8 0;
+#X connect 37 0 10 0;
+#X connect 38 0 12 0;
+#X connect 39 0 14 0;
+#X connect 40 0 16 0;
+#X connect 41 0 18 0;
+#X connect 42 0 20 0;
+#X connect 43 0 22 0;
+#X connect 44 0 24 0;
+#X connect 45 0 26 0;
+#X connect 46 0 28 0;
+#X connect 47 0 30 0;
+#X restore 554 103 pd communs;
+#X obj 45 285 outlet;
+#X obj 93 97 r \$0-step;
+#X obj 420 159 r \$0-reset;
+#X obj 420 191 symbol \$1;
+#X msg 420 261 \$1/n* 0;
+#X connect 0 0 19 0;
+#X connect 0 2 15 0;
+#X connect 1 0 0 1;
+#X connect 2 0 11 0;
+#X connect 3 0 4 0;
+#X connect 4 0 11 0;
+#X connect 4 1 0 0;
+#X connect 5 0 6 0;
+#X connect 6 0 0 0;
+#X connect 7 0 8 0;
+#X connect 8 0 0 0;
+#X connect 11 0 0 0;
+#X connect 12 0 0 0;
+#X connect 13 0 14 0;
+#X connect 14 0 12 0;
+#X connect 16 0 0 0;
+#X connect 17 0 0 0;
+#X connect 20 0 0 0;
+#X connect 21 0 22 0;
+#X connect 22 0 23 0;
+#X connect 23 0 0 1;
+#X restore 371 0 pd saves;
+#N canvas 636 203 450 300 cnv.ctl 0;
+#X obj 90 188 s \$0-background-cnv;
+#X floatatom 108 59 5 10 1000 0 width - -;
+#X floatatom 112 83 4 50 500 0 height - -;
+#X obj 92 132 pack 0 0;
+#X msg 92 159 vis_size \$1 \$2;
+#X obj 110 106 t b f;
+#X connect 1 0 3 0;
+#X connect 2 0 5 0;
+#X connect 3 0 4 0;
+#X connect 4 0 0 0;
+#X connect 5 0 3 0;
+#X connect 5 1 3 1;
+#X restore 296 0 pd cnv.ctl;
+#X obj 9 356 bng 15 250 50 0 \$0-copy empty copy 0 -6 0 8 -225271 -1
+-1;
+#X obj 36 356 bng 15 250 50 0 \$0-paste empty paste 0 -6 0 8 -257472
+-1 -1;
+#X obj 348 63 outlet;
+#X text 19 -1 look! ==>;
+#X obj 422 34 outlet OSC;
+#X obj 329 29 inlet;
+#N canvas 304 261 722 388 build-ns 0;
+#X msg 221 76 \; pd-tmp clear \;;
+#X obj 404 99 commun-builder;
+#X obj 362 305 pack s s f;
+#X obj 361 274 r \$0-dollar-name;
+#X obj 484 272 r \$0-name;
+#X obj 562 272 r \$0-y;
+#N canvas 0 0 450 300 count 0;
+#X obj 123 194 i 0;
+#X obj 156 192 + 1;
+#X msg 154 158 0;
+#X obj 102 162 until;
+#X obj 120 133 t f b;
+#X obj 127 224 outlet;
+#X obj 95 116 inlet;
+#X connect 0 0 1 0;
+#X connect 0 0 5 0;
+#X connect 1 0 0 1;
+#X connect 2 0 0 1;
+#X connect 3 0 0 0;
+#X connect 4 0 3 0;
+#X connect 4 1 2 0;
+#X connect 6 0 4 0;
+#X restore 40 115 pd count;
+#X obj 203 197 + 20;
+#X obj 152 196 int 0;
+#X obj 19 264 makefilename \$0-n%d;
+#X obj 20 291 s \$0-dollar-name;
+#X obj 36 327 makefilename n%d;
+#X obj 60 347 s \$0-name;
+#X obj 176 236 s \$0-y;
+#X obj 42 96 t f b;
+#X msg 152 146 0;
+#X obj 49 146 t f f b;
+#X msg 51 30 16;
+#X msg 316 333 \; pd-tmp obj 0 \$3 nbx 3 14 0 127 0 0 \$1 \$1 \$2 40
+8 1 10 -262144 -1 -1 0 256 \;;
+#X connect 2 0 18 0;
+#X connect 3 0 2 0;
+#X connect 4 0 2 1;
+#X connect 5 0 2 2;
+#X connect 6 0 16 0;
+#X connect 7 0 8 1;
+#X connect 8 0 7 0;
+#X connect 8 0 13 0;
+#X connect 9 0 10 0;
+#X connect 11 0 12 0;
+#X connect 14 0 6 0;
+#X connect 14 1 15 0;
+#X connect 15 0 8 1;
+#X connect 16 0 9 0;
+#X connect 16 1 11 0;
+#X connect 16 2 8 0;
+#X connect 17 0 14 0;
+#X restore 401 100 pd build-ns;
+#N canvas 475 407 319 362 tmp 0;
+#X restore 392 191 pd tmp;
+#X obj 8 27 nbx 3 14 0 127 0 0 \$0-n0-s \$0-n0 n0 40 8 1 10 -262144
+-1 -1 44 256;
+#X obj 8 47 nbx 3 14 0 127 0 0 \$0-n1-s \$0-n1 n1 40 8 1 10 -262144
+-1 -1 0 256;
+#X obj 8 67 nbx 3 14 0 127 0 0 \$0-n2-s \$0-n2 n2 40 8 1 10 -262144
+-1 -1 0 256;
+#X obj 8 87 nbx 3 14 0 127 0 0 \$0-n3-s \$0-n3 n3 40 8 1 10 -262144
+-1 -1 0 256;
+#X obj 8 107 nbx 3 14 0 127 0 0 \$0-n4-s \$0-n4 n4 40 8 1 10 -262144
+-1 -1 0 256;
+#X obj 8 127 nbx 3 14 0 127 0 0 \$0-n5-s \$0-n5 n5 40 8 1 10 -262144
+-1 -1 0 256;
+#X obj 8 147 nbx 3 14 0 127 0 0 \$0-n6-s \$0-n6 n6 40 8 1 10 -262144
+-1 -1 0 256;
+#X obj 8 167 nbx 3 14 0 127 0 0 \$0-n7-s \$0-n7 n7 40 8 1 10 -262144
+-1 -1 0 256;
+#X obj 8 187 nbx 3 14 0 127 0 0 \$0-n8-s \$0-n8 n8 40 8 1 10 -262144
+-1 -1 0 256;
+#X obj 8 207 nbx 3 14 0 127 0 0 \$0-n9-s \$0-n9 n9 40 8 1 10 -262144
+-1 -1 0 256;
+#X obj 8 227 nbx 3 14 0 127 0 0 \$0-n10-s \$0-n10 n10 40 8 1 10 -262144
+-1 -1 0 256;
+#X obj 8 247 nbx 3 14 0 127 0 0 \$0-n11-s \$0-n11 n11 40 8 1 10 -262144
+-1 -1 0 256;
+#X obj 8 267 nbx 3 14 0 127 0 0 \$0-n12-s \$0-n12 n12 40 8 1 10 -262144
+-1 -1 0 256;
+#X obj 8 287 nbx 3 14 0 127 0 0 \$0-n13-s \$0-n13 n13 40 8 1 10 -262144
+-1 -1 0 256;
+#X obj 8 307 nbx 3 14 0 127 0 0 \$0-n14-s \$0-n14 n14 40 8 1 10 -262144
+-1 -1 0 256;
+#X obj 8 327 nbx 3 14 0 127 0 0 \$0-n15-s \$0-n15 n15 40 8 1 10 -262144
+-1 -1 0 256;
+#X msg 262 101 get \$1;
+#X obj 252 53 mod 16;
+#X obj 251 26 int;
+#X obj 264 127 s \$0-step;
+#X obj 259 82 makefilename /n%d;
+#X obj 73 356 bng 15 250 50 0 \$0-reset empty reset 0 -6 0 8 -258699
+-1 -1;
+#X obj 77 58 nbx 2 14 0 1000 0 0 \$0-substate \$0-substate pre 0 -6
+0 8 -261689 -1 -1 0 256;
+#X obj 230 170 makefilename \$0-n%d;
+#X obj 250 221 symbol;
+#X obj 237 197 t s b;
+#X msg 253 257 \; \$1 color 0 -1 -1;
+#X msg 232 290 \; \$1 color 80 -1 -1;
+#X connect 1 0 31 0;
+#X connect 2 0 3 1;
+#X connect 3 0 7 0;
+#X connect 3 1 9 0;
+#X connect 10 0 3 0;
+#X connect 29 0 32 0;
+#X connect 30 0 33 0;
+#X connect 30 0 36 0;
+#X connect 31 0 30 0;
+#X connect 33 0 29 0;
+#X connect 36 0 38 0;
+#X connect 36 0 40 0;
+#X connect 37 0 39 0;
+#X connect 38 0 37 1;
+#X connect 38 1 37 0;
+#X coords 0 0 1 1 102 380 1;
-- 
cgit v1.2.1