1 files changed, 429 insertions, 0 deletions
diff --git a/s-varseq.pd b/s-varseq.pd
new file mode 100644
index 0000000..f72ace6
--- /dev/null
+++ b/s-varseq.pd
@@ -0,0 +1,429 @@
+#N struct 1157template float x float y float z;
+#N struct 1157puck float x;
+#N canvas 227 23 768 655 10;
+#N canvas 0 0 976 681 1157data 0;
+#X scalar 1157template 3 28 0 \;;
+#X scalar 1157template 15 28 0 \;;
+#X scalar 1157template 27 28 0 \;;
+#X scalar 1157template 39 28 0 \;;
+#X scalar 1157template 54 28 0 \;;
+#X scalar 1157template 66 28 0 \;;
+#X scalar 1157template 78 28 0 \;;
+#X scalar 1157template 90 28 0 \;;
+#X scalar 1157template 105 28 0 \;;
+#X scalar 1157template 117 28 0 \;;
+#X scalar 1157template 129 28 0 \;;
+#X scalar 1157template 141 28 0 \;;
+#X scalar 1157template 156 28 0 \;;
+#X scalar 1157template 168 28 0 \;;
+#X scalar 1157template 180 28 0 \;;
+#X scalar 1157template 192 28 0 \;;
+#X scalar 1157puck 78 \;;
+#X coords 0 -1 206 36 206 36 1;
+#X restore 4 17 pd \$0data;
+#N canvas 132 316 450 300 1157template 0;
+#X obj 6 8 struct \$0template float x float y float z;
+#X obj 6 31 filledpolygon 5060 0 1 0 0 0 z(0:-20)(-5:-25) 10 z(0:-20)(-5:-25)
+10 0;
+#X restore 12 77 pd \$0template \$0template;
+#X obj 227 108 loadbang;
+#N canvas 106 35 577 642 drawstuff 0;
+#X obj 160 8 inlet;
+#X obj 196 482 pointer;
+#X obj 232 77 \$0;
+#X obj 232 102 makefilename pd-%ddata;
+#X msg 232 126 \; \$1 clear;
+#X obj 196 411 \$0;
+#X obj 196 436 makefilename pd-%ddata;
+#X msg 196 460 traverse \$1 \, bang;
+#X obj 40 186 until;
+#X obj 70 145 > 0;
+#X obj 40 124 t f f;
+#X obj 40 166 spigot;
+#X obj 40 208 f;
+#X obj 68 208 + 1;
+#X obj 10 363 until;
+#X obj 40 322 > 0;
+#X obj 10 301 t f f;
+#X obj 10 343 spigot;
+#X obj 10 385 f;
+#X obj 38 385 + 1;
+#X msg 10 259 bang;
+#X obj 40 228 t b f;
+#X obj 40 459 + 3;
+#X obj 40 435 + 0;
+#X obj 40 506 append \$0template x y z;
+#X obj 10 409 * 12;
+#X obj 70 410 * 3;
+#X msg 40 482 \$1 28 0;
+#X obj 40 104 \$2;
+#X obj 10 281 \$3;
+#X obj 113 283 s \$0width;
+#X obj 154 144 \$2;
+#X obj 113 144 \$3;
+#X obj 113 232 * 12;
+#X obj 113 120 t b b;
+#X obj 113 183 * 1;
+#X obj 154 232 * 3;
+#X obj 113 258 +;
+#X obj 113 207 - 1;
+#X obj 160 51 t b b b b b;
+#N canvas 0 0 450 300 puck 0;
+#X obj 7 5 inlet;
+#X obj 107 154 pointer;
+#X obj 107 83 \$0;
+#X obj 107 108 makefilename pd-%ddata;
+#X msg 107 132 traverse \$1 \, bang;
+#X obj 7 29 t b b;
+#X obj 7 178 append \$0puck x;
+#X msg 7 155 20;
+#X connect 0 0 5 0;
+#X connect 1 0 6 1;
+#X connect 2 0 3 0;
+#X connect 3 0 4 0;
+#X connect 4 0 1 0;
+#X connect 5 0 7 0;
+#X connect 5 1 2 0;
+#X connect 7 0 6 0;
+#X restore 214 199 pd puck;
+#X connect 0 0 39 0;
+#X connect 1 0 24 3;
+#X connect 2 0 3 0;
+#X connect 3 0 4 0;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 7 0 1 0;
+#X connect 8 0 12 0;
+#X connect 9 0 11 1;
+#X connect 10 0 11 0;
+#X connect 10 1 9 0;
+#X connect 11 0 8 0;
+#X connect 12 0 13 0;
+#X connect 12 0 21 0;
+#X connect 13 0 12 1;
+#X connect 14 0 18 0;
+#X connect 15 0 17 1;
+#X connect 16 0 17 0;
+#X connect 16 1 15 0;
+#X connect 17 0 14 0;
+#X connect 18 0 19 0;
+#X connect 18 0 25 0;
+#X connect 19 0 18 1;
+#X connect 20 0 29 0;
+#X connect 21 0 20 0;
+#X connect 21 1 26 0;
+#X connect 22 0 27 0;
+#X connect 23 0 22 0;
+#X connect 25 0 23 0;
+#X connect 26 0 23 1;
+#X connect 27 0 24 0;
+#X connect 28 0 10 0;
+#X connect 29 0 16 0;
+#X connect 31 0 36 0;
+#X connect 31 0 35 1;
+#X connect 32 0 35 0;
+#X connect 33 0 37 0;
+#X connect 34 0 32 0;
+#X connect 34 1 31 0;
+#X connect 35 0 38 0;
+#X connect 36 0 37 1;
+#X connect 37 0 30 0;
+#X connect 38 0 33 0;
+#X connect 39 0 28 0;
+#X connect 39 1 34 0;
+#X connect 39 2 5 0;
+#X connect 39 3 40 0;
+#X connect 39 4 2 0;
+#X restore 227 130 pd drawstuff;
+#X obj 12 134 inlet;
+#X obj 351 629 outlet;
+#X msg 63 474 next;
+#X obj 216 400 \$0;
+#X obj 216 425 makefilename pd-%ddata;
+#X obj 12 395 until;
+#X obj 42 354 > 0;
+#X obj 12 333 t f f;
+#X obj 12 375 spigot;
+#X obj 12 427 f;
+#X obj 40 427 + 1;
+#X obj 12 447 t b f;
+#X msg 87 378 0;
+#X obj 12 206 mod;
+#X obj 57 134 loadbang;
+#X obj 216 563 get \$0template x y z;
+#X obj 351 587 / -20;
+#X obj 173 473 ==;
+#X obj 12 293 t f b b f;
+#X obj 216 539 spigot;
+#X obj 351 608 abs;
+#X obj 712 8 inlet;
+#N canvas 239 27 705 614 update 0;
+#X obj 37 13 inlet;
+#X msg 111 294 next;
+#X obj 241 247 \$0;
+#X obj 241 272 makefilename pd-%ddata;
+#X obj 37 210 until;
+#X obj 67 169 > 0;
+#X obj 37 148 t f f;
+#X obj 37 190 spigot;
+#X obj 37 242 f;
+#X obj 65 242 + 1;
+#X msg 121 202 0;
+#X msg 241 296 traverse \$1;
+#X obj 115 467 set \$0template x y z;
+#X obj 37 108 t f b b;
+#X obj 115 418 get \$0template x y z;
+#X obj 240 373 t p p;
+#X obj 37 262 t b;
+#X msg 37 36 bang;
+#X obj 37 84 * \$3;
+#X obj 37 61 \$2;
+#X obj 240 322 pointer \$0template;
+#X connect 0 0 17 0;
+#X connect 1 0 20 0;
+#X connect 2 0 3 0;
+#X connect 3 0 11 0;
+#X connect 4 0 8 0;
+#X connect 5 0 7 1;
+#X connect 6 0 7 0;
+#X connect 6 1 5 0;
+#X connect 7 0 4 0;
+#X connect 8 0 9 0;
+#X connect 8 0 16 0;
+#X connect 9 0 8 1;
+#X connect 10 0 8 0;
+#X connect 11 0 20 0;
+#X connect 13 0 6 0;
+#X connect 13 1 10 0;
+#X connect 13 2 2 0;
+#X connect 14 0 12 0;
+#X connect 14 1 12 1;
+#X connect 14 2 12 2;
+#X connect 15 0 14 0;
+#X connect 15 1 12 3;
+#X connect 16 0 1 0;
+#X connect 17 0 19 0;
+#X connect 18 0 13 0;
+#X connect 19 0 18 0;
+#X connect 20 0 15 0;
+#X restore 120 310 pd update;
+#X text 191 310 update the graphics incase people move the sequencer
+around;
+#X msg 216 448 traverse \$1;
+#X obj 120 289 select 0;
+#X obj 57 157 \$2;
+#X obj 57 178 * \$3;
+#X obj 712 29 list;
+#X msg 712 50 \; \$1 \$2 \;;
+#N canvas 212 221 507 438 save 0;
+#X obj 58 10 r SSSAD_SAVE;
+#X obj 53 333 list prepend;
+#X obj 146 333 t l;
+#X obj 30 362 list;
+#X obj 179 95 \$0;
+#X obj 179 118 makefilename pd-%ddata;
+#X obj 7 415 outlet;
+#X obj 7 394 sssad/sssad \$1/sequence;
+#X msg 179 139 traverse \$1;
+#X obj 110 112 until;
+#X msg 133 138 next;
+#X obj 179 189 get \$0template x y z;
+#X obj 58 36 t b b b b;
+#X obj 179 162 pointer \$0template;
+#X connect 0 0 12 0;
+#X connect 1 0 2 0;
+#X connect 1 0 3 1;
+#X connect 2 0 1 1;
+#X connect 3 0 7 1;
+#X connect 4 0 5 0;
+#X connect 5 0 8 0;
+#X connect 7 0 6 0;
+#X connect 8 0 13 0;
+#X connect 9 0 10 0;
+#X connect 10 0 13 0;
+#X connect 11 2 1 0;
+#X connect 12 0 1 1;
+#X connect 12 1 3 0;
+#X connect 12 2 9 0;
+#X connect 12 3 4 0;
+#X connect 13 0 11 0;
+#X connect 13 2 9 1;
+#X restore 322 108 pd save;
+#N canvas 64 35 650 643 load 0;
+#X obj 21 6 inlet;
+#X obj 21 65 until;
+#X obj 21 92 list append;
+#X obj 104 121 bang;
+#X msg 183 209 traverse \$1 \, next;
+#X obj 183 165 \$0;
+#X obj 183 188 makefilename pd-%ddata;
+#X obj 21 121 list split 1;
+#X obj 21 272 set \$0template z;
+#X msg 21 172 next;
+#X obj 21 32 t b l b;
+#X obj 21 147 t b f;
+#X obj 183 231 pointer \$0template;
+#X connect 0 0 10 0;
+#X connect 1 0 2 0;
+#X connect 2 0 7 0;
+#X connect 3 0 1 1;
+#X connect 4 0 12 0;
+#X connect 5 0 6 0;
+#X connect 6 0 4 0;
+#X connect 7 0 11 0;
+#X connect 7 1 2 1;
+#X connect 7 2 3 0;
+#X connect 9 0 12 0;
+#X connect 10 0 1 0;
+#X connect 10 1 2 1;
+#X connect 10 2 5 0;
+#X connect 11 0 9 0;
+#X connect 11 1 8 0;
+#X connect 12 0 8 1;
+#X restore 322 130 pd load;
+#N canvas 404 102 476 510 resize-canvas 0;
+#X obj 45 217 - 2;
+#X obj 7 7 r \$0width;
+#X obj 7 28 + 14;
+#X obj 95 97 \$0;
+#X obj 65 74 t f b;
+#X obj 65 152 pack f s;
+#X obj 95 120 makefilename pd-%ddata;
+#X obj 26 266 pack f f;
+#X obj 26 245 \$0;
+#X obj 7 50 t f b f f;
+#X obj 37 386 \$0;
+#X obj 7 363 t f b;
+#X obj 7 441 pack f s;
+#X obj 37 409 makefilename %dvarseq;
+#X obj 7 342 + 8;
+#X msg 7 463 \; \$2 donecanvasdialog 1 -1 1 0 -1 \$1 58 \$1 58 0 0
+;
+#X msg 26 287 \; \$1varseq obj 5 18 cnv 15 \$2 34 empty empty empty
+20 12 0 14 -166441 -66577 0 \;;
+#X msg 65 174 \; \$2 donecanvasdialog 1 -1 1 0 -1 \$1 36 \$1 36 0 0
+;
+#X connect 0 0 7 1;
+#X connect 1 0 2 0;
+#X connect 2 0 9 0;
+#X connect 3 0 6 0;
+#X connect 4 0 5 0;
+#X connect 4 1 3 0;
+#X connect 5 0 17 0;
+#X connect 6 0 5 1;
+#X connect 7 0 16 0;
+#X connect 8 0 7 0;
+#X connect 9 0 14 0;
+#X connect 9 1 8 0;
+#X connect 9 2 0 0;
+#X connect 9 3 4 0;
+#X connect 10 0 13 0;
+#X connect 11 0 12 0;
+#X connect 11 1 10 0;
+#X connect 12 0 15 0;
+#X connect 13 0 12 1;
+#X connect 14 0 11 0;
+#X restore 388 108 pd resize-canvas;
+#X text 8 57 args: [name] [bars] [beats per bar] [tick receiver];
+#X floatatom 525 107 5 0 0 0 - - -;
+#X obj 525 127 s \$0width;
+#X obj 560 27 namecanvas \$0varseq;
+#X obj 409 160 r \$0width;
+#X floatatom 409 182 5 0 0 0 - - -;
+#N canvas 132 316 450 300 1157puck 0;
+#X obj 6 9 struct \$0puck float x;
+#X obj 6 32 filledpolygon 900 0 1 0 30 0 34 10 34 10 30;
+#X restore 12 99 pd \$0puck \$0puck;
+#N canvas 347 26 376 655 position 0;
+#X obj 86 256 \$0;
+#X obj 86 281 makefilename pd-%ddata;
+#X obj 116 421 pointer \$0puck;
+#X obj 37 8 inlet;
+#X obj 86 309 t b s;
+#X msg 116 395 traverse \$1;
+#X obj 51 521 set \$0puck x;
+#X obj 77 373 until;
+#X msg 77 350 200;
+#X msg 77 396 next;
+#X obj 51 500 f;
+#X obj 37 220 t b f;
+#X obj 116 447 t b p;
+#X obj 37 120 * 12;
+#X obj 37 197 + 3;
+#X obj 79 75 / \$3;
+#X obj 37 31 t f f;
+#X obj 79 97 int;
+#X obj 79 120 * 3;
+#X obj 37 175 +;
+#X connect 0 0 1 0;
+#X connect 1 0 4 0;
+#X connect 2 0 12 0;
+#X connect 2 2 7 1;
+#X connect 3 0 16 0;
+#X connect 4 0 8 0;
+#X connect 4 1 5 0;
+#X connect 5 0 2 0;
+#X connect 7 0 9 0;
+#X connect 8 0 7 0;
+#X connect 9 0 2 0;
+#X connect 10 0 6 0;
+#X connect 11 0 0 0;
+#X connect 11 1 10 1;
+#X connect 12 0 10 0;
+#X connect 12 1 6 1;
+#X connect 13 0 19 0;
+#X connect 14 0 11 0;
+#X connect 15 0 17 0;
+#X connect 16 0 13 0;
+#X connect 16 1 15 0;
+#X connect 17 0 18 0;
+#X connect 18 0 19 1;
+#X connect 19 0 14 0;
+#X restore 245 281 pd position;
+#X obj 19 157 r \$4;
+#X obj 216 507 pointer \$0template;
+#X obj 5 18 cnv 15 204 34 empty empty empty 20 12 0 14 -166441 -66577
+0;
+#X obj 276 629 s \$1/value;
+#X connect 2 0 3 0;
+#X connect 4 0 17 0;
+#X connect 6 0 46 0;
+#X connect 7 0 8 0;
+#X connect 8 0 28 0;
+#X connect 9 0 13 0;
+#X connect 10 0 12 1;
+#X connect 11 0 12 0;
+#X connect 11 1 10 0;
+#X connect 12 0 9 0;
+#X connect 13 0 14 0;
+#X connect 13 0 15 0;
+#X connect 14 0 13 1;
+#X connect 15 0 6 0;
+#X connect 15 1 21 0;
+#X connect 16 0 13 0;
+#X connect 17 0 22 0;
+#X connect 17 0 29 0;
+#X connect 17 0 44 0;
+#X connect 18 0 30 0;
+#X connect 19 2 20 0;
+#X connect 20 0 24 0;
+#X connect 21 0 23 1;
+#X connect 22 0 11 0;
+#X connect 22 1 16 0;
+#X connect 22 2 7 0;
+#X connect 22 3 21 1;
+#X connect 23 0 19 0;
+#X connect 24 0 5 0;
+#X connect 24 0 48 0;
+#X connect 25 0 32 0;
+#X connect 28 0 46 0;
+#X connect 29 0 26 0;
+#X connect 30 0 31 0;
+#X connect 31 0 17 1;
+#X connect 32 0 33 0;
+#X connect 34 0 35 0;
+#X connect 38 0 39 0;
+#X connect 41 0 42 0;
+#X connect 45 0 17 0;
+#X connect 46 0 23 0;
+#X coords 0 -1 214 58 214 58 1 0 0;