From 04ac70d0036989dfdd471e821c1617ef7c726c95 Mon Sep 17 00:00:00 2001
From: ugrnm <ultrageranium@bleu255.com>
Date: Tue, 14 Feb 2017 00:14:31 +0100
Subject: [PATCH] seqed arrays

---
 B10-array.pd      |  52 ++++++--------
 B20-array+seq.pd  | 103 ++++++++++++++++++++++++++++
 B30-arrays+seq.pd | 171 ++++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 294 insertions(+), 32 deletions(-)
 create mode 100644 B20-array+seq.pd
 create mode 100644 B30-arrays+seq.pd

diff --git a/B10-array.pd b/B10-array.pd
index f19d8a3..0358aa2 100644
--- a/B10-array.pd
+++ b/B10-array.pd
@@ -1,32 +1,17 @@
-#N struct template float x float y array sequence template-element
-;
-#N struct template-element float y;
-#N canvas 369 85 612 631 10;
-#N canvas 11 43 1005 306 score 1;
-#X scalar template 100 100 \; 0 \; 0 \; -3 \; -4 \; -4 \; -5 \; -6
-\; -9 \; -10 \; -13 \; -15 \; -19 \; -23 \; -26 \; -29 \; -35 \; -42
-\; -50 \; -58 \; -69 \; -83 \; -97 \; -110 \; -124 \; -138 \; -148
-\; -160 \; -169 \; -185 \; -194 \; -187 \; -150 \; -106 \; -69 \; -33
-\; -16 \; -12 \; -10 \; -8 \; -3 \; 2 \; 4 \; 7 \; 7 \; 6 \; 5 \; 3
-\; 1 \; 0 \; -5 \; -13 \; -19 \; -25 \; -26 \; -25 \; 6 \; 3 \; 2.5
-\; 2 \; 0 \; -1 \; -2 \; -2.5 \; -3 \; -3 \; -3 \; -4 \; -5 \; -5 \;
--5 \; -5 \; -5 \; -6 \; -7 \; -7 \; -6 \; -11 \; 0 \; 0 \; 0 \; 0 \;
-0 \; 0 \; 0 \; 0 \; 0 \; 0 \; 0 \; 0 \; 0 \; 0 \; 0 \; 0 \; 0 \; 0
-\; 0 \; 0 \; 0 \; 0 \; 0 \; \;;
+#N canvas 574 81 416 260 10;
+#N canvas 501 430 530 244 score 0;
 #X restore 48 22 pd score;
 #X text 115 21 <- click to open;
-#X text 377 150 <- 1;
-#X text 11 187 2 ->;
-#N canvas 47 389 418 151 template 1;
+#N canvas 63 621 418 151 template 0;
 #X text 66 11 now with an array;
 #X obj 39 45 struct template float x float y array sequence template-element
 ;
-#X obj 38 83 plot sequence 333 2 10 100 10;
+#X obj 38 83 plot sequence 339 50 10 100 10;
 #X restore 52 86 pd template;
-#N canvas 494 645 352 105 template-element 1;
+#N canvas 94 844 352 105 template-element 0;
 #X obj 48 27 struct template-element float y;
 #X restore 52 108 pd template-element;
-#N canvas 110 149 426 507 init 1;
+#N canvas 689 523 444 434 init 0;
 #X obj 94 18 inlet;
 #X msg 195 27 \; pd-score clear;
 #X obj 94 38 t b b b;
@@ -36,11 +21,12 @@
 #X obj 94 128 append template x y;
 #X obj 94 154 t b b p;
 #X obj 125 239 setsize template sequence;
-#X obj 63 365 set template element y;
 #X obj 191 339 element template sequence;
 #X obj 63 312 unpack;
-#X msg 125 217 100;
-#X msg 63 284 0 10 \, 10 -20 \, 25 100 \, 30 50 \, 100 0;
+#X msg 123 218 50;
+#X obj 63 365 set template-element y;
+#X msg 63 284 0 10 \, -10 15 \, -30 20 \, 50 30 \, 0 40 \, 10 45 \,
+0 50;
 #X connect 0 0 2 0;
 #X connect 2 0 5 0;
 #X connect 2 1 4 0;
@@ -50,12 +36,14 @@
 #X connect 5 0 6 0;
 #X connect 6 0 7 0;
 #X connect 7 0 13 0;
-#X connect 7 1 12 0;
+#X connect 7 1 11 0;
 #X connect 7 2 8 1;
-#X connect 7 2 10 1;
-#X connect 10 0 9 2;
-#X connect 11 0 9 0;
-#X connect 11 1 10 0;
-#X connect 12 0 8 0;
-#X connect 13 0 11 0;
-#X restore 123 490 pd init;
+#X connect 7 2 9 1;
+#X connect 9 0 12 1;
+#X connect 10 0 12 0;
+#X connect 10 1 9 0;
+#X connect 11 0 8 0;
+#X connect 13 0 10 0;
+#X restore 52 188 pd init;
+#X msg 52 162 bang;
+#X connect 5 0 4 0;
diff --git a/B20-array+seq.pd b/B20-array+seq.pd
new file mode 100644
index 0000000..07bf86c
--- /dev/null
+++ b/B20-array+seq.pd
@@ -0,0 +1,103 @@
+#N canvas 586 79 416 260 10;
+#N canvas 999 99 747 460 score 0;
+#X restore 48 22 pd score;
+#X text 115 21 <- click to open;
+#N canvas 60 597 418 151 template 0;
+#X text 66 11 now with an array;
+#X obj 39 45 struct template float x float y array sequence template-element
+;
+#X obj 38 83 plot sequence 339 50 10 100 10;
+#X restore 51 84 pd template;
+#N canvas 94 844 352 105 template-element 0;
+#X obj 48 27 struct template-element float y;
+#X restore 51 106 pd template-element;
+#N canvas 686 499 444 434 init 0;
+#X obj 94 18 inlet;
+#X msg 195 27 \; pd-score clear;
+#X obj 94 38 t b b b;
+#X obj 224 102 pointer;
+#X msg 224 82 traverse pd-score \, bang;
+#X msg 94 106 100 100;
+#X obj 94 128 append template x y;
+#X obj 94 154 t b b p;
+#X obj 125 239 setsize template sequence;
+#X obj 191 339 element template sequence;
+#X obj 63 312 unpack;
+#X msg 123 218 50;
+#X obj 63 365 set template-element y;
+#X msg 63 284 0 10 \, -10 15 \, -30 20 \, 50 30 \, 0 40 \, 10 45 \,
+0 50;
+#X connect 0 0 2 0;
+#X connect 2 0 5 0;
+#X connect 2 1 4 0;
+#X connect 2 2 1 0;
+#X connect 3 0 6 2;
+#X connect 4 0 3 0;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 7 0 13 0;
+#X connect 7 1 11 0;
+#X connect 7 2 8 1;
+#X connect 7 2 9 1;
+#X connect 9 0 12 1;
+#X connect 10 0 12 0;
+#X connect 10 1 9 0;
+#X connect 11 0 8 0;
+#X connect 13 0 10 0;
+#X restore 52 188 pd init;
+#X msg 52 162 bang;
+#N canvas 445 232 484 740 synth 0;
+#X obj 100 586 osc~;
+#X obj 272 323 pointer;
+#X msg 272 295 traverse pd-score \, next;
+#X obj 100 349 element template sequence;
+#X floatatom 115 404 5 0 0 0 - - -, f 5;
+#X obj 100 374 get template-element y;
+#X obj 272 269 loadbang;
+#X obj 131 125 + 1;
+#X obj 100 125 i;
+#X msg 142 175 0;
+#X floatatom 50 188 5 0 0 0 - - -, f 5;
+#X obj 142 154 sel 49;
+#X obj 100 36 inlet;
+#X obj 100 533 mtof;
+#X obj 99 673 dac~;
+#X obj 100 510 abs;
+#X obj 163 610 line~;
+#X obj 100 635 *~;
+#X msg 163 586 1 \, 0 100;
+#X obj 100 555 t b f;
+#X obj 160 37 inlet;
+#X obj 100 87 metro 200;
+#X connect 0 0 17 0;
+#X connect 1 0 3 1;
+#X connect 2 0 1 0;
+#X connect 3 0 5 0;
+#X connect 5 0 4 0;
+#X connect 5 0 15 0;
+#X connect 6 0 2 0;
+#X connect 7 0 8 1;
+#X connect 8 0 7 0;
+#X connect 8 0 10 0;
+#X connect 8 0 11 0;
+#X connect 8 0 3 0;
+#X connect 9 0 8 1;
+#X connect 11 0 9 0;
+#X connect 12 0 21 0;
+#X connect 13 0 19 0;
+#X connect 15 0 13 0;
+#X connect 16 0 17 1;
+#X connect 17 0 14 0;
+#X connect 17 0 14 1;
+#X connect 18 0 16 0;
+#X connect 19 0 18 0;
+#X connect 19 1 0 0;
+#X connect 20 0 21 1;
+#X connect 21 0 8 0;
+#X restore 269 187 pd synth;
+#X obj 269 158 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X floatatom 322 160 5 0 0 0 - - -, f 5;
+#X connect 5 0 4 0;
+#X connect 7 0 6 0;
+#X connect 8 0 6 1;
diff --git a/B30-arrays+seq.pd b/B30-arrays+seq.pd
new file mode 100644
index 0000000..97e4060
--- /dev/null
+++ b/B30-arrays+seq.pd
@@ -0,0 +1,171 @@
+#N canvas 532 58 416 260 10;
+#N canvas 574 438 727 460 score 0;
+#X restore 48 22 pd score;
+#X text 115 21 <- click to open;
+#N canvas 1413 61 440 186 template 0;
+#X text 66 11 now with an array;
+#X obj 39 45 struct template float x float y array sequence template-element
+array delay delay-element;
+#X obj 38 83 plot sequence 339 10 10 100 10;
+#X obj 38 113 plot delay 393 10 10 100 10;
+#X restore 51 84 pd template;
+#N canvas 1565 316 333 80 template-element 0;
+#X obj 48 27 struct template-element float y;
+#X restore 51 106 pd template-element;
+#N canvas 70 363 945 488 init 0;
+#X obj 94 18 inlet;
+#X msg 195 27 \; pd-score clear;
+#X obj 94 38 t b b b;
+#X obj 224 102 pointer;
+#X msg 224 82 traverse pd-score \, bang;
+#X msg 94 106 100 100;
+#X obj 94 128 append template x y;
+#X obj 94 154 t b b p;
+#X obj 125 239 setsize template sequence;
+#X obj 191 339 element template sequence;
+#X obj 63 312 unpack;
+#X msg 123 218 50;
+#X obj 63 365 set template-element y;
+#X msg 63 284 0 10 \, -10 15 \, -30 20 \, 50 30 \, 0 40 \, 10 45 \,
+0 50;
+#X obj 485 239 setsize template delay;
+#X obj 551 339 element template delay;
+#X obj 424 400 set delay-element x y;
+#X obj 423 317 unpack f f f;
+#X msg 485 217 10;
+#X msg 423 284 0 0 1 \, -10 -10 2 \, -30 -30 3 \, 50 50 4 \, 0 0 5
+\, 10 10 6 \, 0 0 7;
+#X obj 33 81 s b;
+#X connect 0 0 2 0;
+#X connect 2 0 5 0;
+#X connect 2 0 20 0;
+#X connect 2 1 4 0;
+#X connect 2 2 1 0;
+#X connect 3 0 6 2;
+#X connect 4 0 3 0;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 7 0 13 0;
+#X connect 7 0 19 0;
+#X connect 7 1 11 0;
+#X connect 7 1 18 0;
+#X connect 7 2 8 1;
+#X connect 7 2 9 1;
+#X connect 7 2 14 1;
+#X connect 7 2 15 1;
+#X connect 9 0 12 1;
+#X connect 10 0 12 0;
+#X connect 10 1 9 0;
+#X connect 11 0 8 0;
+#X connect 13 0 10 0;
+#X connect 15 0 16 2;
+#X connect 17 0 16 0;
+#X connect 17 1 16 1;
+#X connect 17 2 15 0;
+#X connect 18 0 14 0;
+#X connect 19 0 17 0;
+#X restore 52 188 pd init;
+#X msg 52 162 bang;
+#N canvas 1112 97 477 841 synth 0;
+#X obj 47 590 osc~;
+#X obj 272 323 pointer;
+#X msg 272 295 traverse pd-score \, next;
+#X obj 100 375 element template sequence;
+#X floatatom 115 430 5 0 0 0 - - -, f 5;
+#X obj 100 400 get template-element y;
+#X obj 131 125 + 1;
+#X obj 100 125 i;
+#X msg 142 175 0;
+#X floatatom 50 188 5 0 0 0 - - -, f 5;
+#X obj 142 154 sel 49;
+#X obj 100 36 inlet;
+#X obj 47 493 mtof;
+#X obj 49 776 dac~;
+#X obj 47 470 abs;
+#X obj 104 611 line~;
+#X obj 47 630 *~;
+#X obj 47 515 t b f;
+#X obj 160 37 inlet;
+#X obj 100 87 metro 200;
+#X obj 262 444 / 10;
+#X obj 262 464 i;
+#X floatatom 262 558 5 0 0 0 - - -, f 5;
+#X obj 262 507 element template delay;
+#X obj 262 532 get delay-element x y;
+#X floatatom 420 557 5 0 0 0 - - -, f 5;
+#X floatatom 271 488 5 0 0 0 - - -, f 5;
+#X obj 322 714 table del;
+#X obj 48 681 +~;
+#X obj 262 631 line~;
+#X obj 262 656 delread4~ fb;
+#X obj 185 741 delwrite~ fb 4000;
+#X obj 49 706 *~ 0.5;
+#X obj 385 586 abs;
+#X obj 131 556 f;
+#X floatatom 193 585 5 0 0 0 - - -, f 5;
+#X msg 131 585 0 \$1;
+#X obj 131 507 b;
+#X msg 99 473 1 2;
+#X obj 131 528 del 2;
+#X obj 385 564 * 4;
+#X msg 262 607 \$1 1000;
+#X obj 288 237 r b;
+#X connect 0 0 16 0;
+#X connect 1 0 3 1;
+#X connect 1 0 23 1;
+#X connect 2 0 1 0;
+#X connect 3 0 5 0;
+#X connect 5 0 4 0;
+#X connect 5 0 14 0;
+#X connect 6 0 7 1;
+#X connect 7 0 6 0;
+#X connect 7 0 9 0;
+#X connect 7 0 10 0;
+#X connect 7 0 3 0;
+#X connect 7 0 20 0;
+#X connect 8 0 7 1;
+#X connect 10 0 8 0;
+#X connect 11 0 19 0;
+#X connect 12 0 17 0;
+#X connect 14 0 12 0;
+#X connect 15 0 16 1;
+#X connect 16 0 28 0;
+#X connect 17 0 38 0;
+#X connect 17 1 0 0;
+#X connect 18 0 19 1;
+#X connect 19 0 7 0;
+#X connect 20 0 21 0;
+#X connect 21 0 23 0;
+#X connect 21 0 26 0;
+#X connect 22 0 41 0;
+#X connect 23 0 24 0;
+#X connect 24 0 22 0;
+#X connect 24 1 25 0;
+#X connect 24 1 40 0;
+#X connect 28 0 32 0;
+#X connect 29 0 30 0;
+#X connect 30 0 28 1;
+#X connect 32 0 13 0;
+#X connect 32 0 13 1;
+#X connect 32 0 31 0;
+#X connect 33 0 34 1;
+#X connect 34 0 36 0;
+#X connect 34 0 35 0;
+#X connect 36 0 15 0;
+#X connect 37 0 39 0;
+#X connect 38 0 15 0;
+#X connect 38 0 37 0;
+#X connect 39 0 34 0;
+#X connect 40 0 33 0;
+#X connect 41 0 29 0;
+#X connect 42 0 2 0;
+#X restore 269 187 pd synth;
+#X obj 269 158 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X floatatom 322 160 5 0 0 0 - - -, f 5;
+#N canvas 1570 501 337 84 delay-element 0;
+#X obj 33 30 struct delay-element float x float y;
+#X restore 51 127 pd delay-element;
+#X connect 5 0 4 0;
+#X connect 7 0 6 0;
+#X connect 8 0 6 1;