1 files changed, 280 insertions, 0 deletions
diff --git a/s-beat.pd b/s-beat.pd
new file mode 100644
index 0000000..a34980b
--- /dev/null
+++ b/s-beat.pd
@@ -0,0 +1,280 @@
+#N struct 1287template float x array 1287arrayvals 1287arraytemplate
+;
+#N struct 1287arraytemplate float x;
+#N canvas 260 24 721 668 10;
+#N canvas 0 16 999 675 1287data 0;
+#X scalar 1287template 0 \; 0 \; \;;
+#X coords 0 0 192 16 192 16 1;
+#X restore 4 18 pd \$0data;
+#N canvas 183 252 599 314 1287template 0;
+#X obj 17 53 struct \$0template float x array \$0arrayvals \$0arraytemplate
+;
+#X obj 17 74 print;
+#X obj 17 30 plot -x x(0:189)(0:189) \$0arrayvals 0 0 0 0 0;
+#X connect 0 0 1 0;
+#X restore 236 36 pd \$0template;
+#N canvas 435 201 450 300 1287arraytemplate 0;
+#X obj 24 65 print;
+#X obj 24 43 struct \$0arraytemplate float x;
+#X obj 24 22 filledpolygon 333 333 1 0 2 2 2 2 6 0 6 0 14;
+#X connect 1 0 0 0;
+#X restore 236 13 pd \$0arraytemplate;
+#N canvas 0 0 439 363 initarray 0;
+#X obj 163 211 pointer;
+#X text 186 35 click here to re-initialize;
+#X msg 300 176 \; \$1 clear;
+#X obj 163 96 \$0;
+#X msg 163 188 traverse \$1 \, bang;
+#X obj 163 119 makefilename pd-%ddata;
+#X obj 35 251 append \$0template x;
+#X msg 35 219 0;
+#X obj 133 12 loadbang;
+#X obj 133 72 t b b b;
+#X obj 68 114 outlet;
+#X obj 163 140 t s s;
+#X obj 77 9 inlet;
+#X connect 0 0 6 1;
+#X connect 3 0 5 0;
+#X connect 4 0 0 0;
+#X connect 5 0 11 0;
+#X connect 7 0 6 0;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
+#X connect 9 1 7 0;
+#X connect 9 2 3 0;
+#X connect 11 0 4 0;
+#X connect 11 1 2 0;
+#X connect 12 0 9 0;
+#X restore 415 69 pd initarray;
+#X obj 415 182 pointer;
+#X obj 453 253 setsize \$0template \$0arrayvals;
+#X msg 415 159 traverse \$1 \, next;
+#X obj 415 115 \$0;
+#X obj 415 138 makefilename pd-%ddata;
+#X obj 415 91 delay 10;
+#X obj 357 391 inlet;
+#X text 20 391 this is how long you want the envelope to take.;
+#X text 414 7 args: [name] [number of points];
+#X obj 415 391 t p p;
+#X obj 453 229 1;
+#N canvas 343 66 484 592 envgen 0;
+#X obj 102 260 element \$0template \$0arrayvals;
+#X obj 171 400 *;
+#X obj 102 145 f;
+#X obj 130 145 + 1;
+#X msg 102 95 0;
+#X obj 171 469 t b f;
+#X obj 242 538 delay;
+#X obj 242 559 s \$0-loop;
+#X obj 23 102 r \$0-loop;
+#X obj 102 238 spigot;
+#X obj 171 358 - 3;
+#X obj 171 378 / 186;
+#X obj 171 422 t f f;
+#X obj 171 446 -;
+#X obj 175 154 getsize \$0template \$0arrayvals;
+#X obj 102 3 inlet;
+#X obj 307 235 inlet;
+#X obj 102 30 t b f b;
+#X obj 175 132 pointer;
+#X msg 175 109 traverse \$1 \, next;
+#X obj 175 65 \$0;
+#X obj 175 88 makefilename pd-%ddata;
+#X msg 222 421 0;
+#X obj 168 239 select 0;
+#X text 333 319 redraw;
+#X obj 102 281 t p p;
+#X obj 102 314 get \$0arraytemplate x;
+#X obj 290 339 set \$0arraytemplate x;
+#X obj 102 169 t f f f;
+#X obj 171 492 f;
+#X obj 170 576 outlet;
+#X obj 170 536 - 1;
+#X obj 111 487 *;
+#X obj 175 175 t f f;
+#X obj 132 213 <= 1;
+#X obj 170 555 +;
+#X obj 221 377 r \$0-beatsize;
+#X obj 171 512 select 0;
+#X connect 0 0 25 0;
+#X connect 1 0 12 0;
+#X connect 2 0 3 0;
+#X connect 2 0 28 0;
+#X connect 3 0 2 1;
+#X connect 4 0 2 0;
+#X connect 5 0 6 0;
+#X connect 5 0 29 0;
+#X connect 5 1 6 1;
+#X connect 6 0 7 0;
+#X connect 8 0 2 0;
+#X connect 9 0 0 0;
+#X connect 10 0 11 0;
+#X connect 11 0 1 0;
+#X connect 12 0 13 1;
+#X connect 12 1 13 0;
+#X connect 13 0 5 0;
+#X connect 14 0 33 0;
+#X connect 15 0 17 0;
+#X connect 16 0 0 1;
+#X connect 17 0 4 0;
+#X connect 17 1 32 0;
+#X connect 17 2 20 0;
+#X connect 18 0 14 0;
+#X connect 19 0 18 0;
+#X connect 20 0 21 0;
+#X connect 21 0 19 0;
+#X connect 22 0 13 1;
+#X connect 23 0 22 0;
+#X connect 25 0 26 0;
+#X connect 25 1 27 1;
+#X connect 26 0 10 0;
+#X connect 26 0 27 0;
+#X connect 28 0 9 0;
+#X connect 28 1 34 0;
+#X connect 28 2 29 1;
+#X connect 29 0 37 0;
+#X connect 31 0 35 0;
+#X connect 32 0 35 1;
+#X connect 33 0 34 1;
+#X connect 33 1 32 1;
+#X connect 34 0 9 1;
+#X connect 34 0 23 0;
+#X connect 35 0 30 0;
+#X connect 36 0 1 1;
+#X connect 37 1 31 0;
+#X restore 357 416 pd envgen;
+#X obj 456 329 element \$0template \$0arrayvals;
+#X msg 456 306 0;
+#X obj 415 206 t p p b p;
+#N canvas 212 221 507 438 save 0;
+#X obj 7 394 sssad/sssad \$1;
+#X obj 57 11 r SSSAD_SAVE;
+#X obj 76 239 element \$0template \$0arrayvals;
+#X obj 76 217 f;
+#X obj 104 217 + 1;
+#X obj 76 194 until;
+#X msg 113 172 0;
+#X obj 53 333 list prepend;
+#X obj 146 333 t l;
+#X obj 30 362 list;
+#X obj 57 36 t b b b b;
+#X obj 281 217 inlet;
+#X obj 76 127 pointer;
+#X msg 76 104 traverse \$1 \, next;
+#X obj 76 60 \$0;
+#X obj 76 83 makefilename pd-%ddata;
+#X obj 76 148 getsize \$0template \$0arrayvals;
+#X obj 7 415 outlet;
+#X obj 76 260 get \$0arraytemplate x;
+#X connect 0 0 17 0;
+#X connect 1 0 10 0;
+#X connect 2 0 18 0;
+#X connect 3 0 4 0;
+#X connect 3 0 2 0;
+#X connect 4 0 3 1;
+#X connect 5 0 3 0;
+#X connect 6 0 3 1;
+#X connect 7 0 8 0;
+#X connect 7 0 9 1;
+#X connect 8 0 7 1;
+#X connect 9 0 0 1;
+#X connect 10 0 9 0;
+#X connect 10 1 14 0;
+#X connect 10 2 6 0;
+#X connect 10 3 7 1;
+#X connect 11 0 2 1;
+#X connect 12 0 16 0;
+#X connect 13 0 12 0;
+#X connect 14 0 15 0;
+#X connect 15 0 13 0;
+#X connect 16 0 5 0;
+#X connect 18 0 7 0;
+#X restore 445 416 pd save;
+#N canvas 64 35 650 643 load 0;
+#X obj 21 6 inlet;
+#X obj 21 65 until;
+#X obj 21 103 list append;
+#X obj 120 148 bang;
+#X obj 361 235 pointer;
+#X obj 156 305 setsize \$0template \$0arrayvals;
+#X msg 361 212 traverse \$1 \, next;
+#X obj 361 168 \$0;
+#X obj 361 191 makefilename pd-%ddata;
+#X msg 172 126 0;
+#X obj 156 232 f;
+#X obj 185 232 + 1;
+#X obj 21 32 t b l b b;
+#X obj 183 342 element \$0template \$0arrayvals;
+#X obj 156 258 t f f;
+#X obj 186 281 + 1;
+#X obj 27 389 set \$0arraytemplate x;
+#X obj 21 148 list split 1;
+#X obj 49 174 t f b;
+#X connect 0 0 12 0;
+#X connect 1 0 2 0;
+#X connect 2 0 17 0;
+#X connect 3 0 1 1;
+#X connect 4 0 5 1;
+#X connect 4 0 13 1;
+#X connect 6 0 4 0;
+#X connect 7 0 8 0;
+#X connect 8 0 6 0;
+#X connect 9 0 10 1;
+#X connect 10 0 11 0;
+#X connect 10 0 14 0;
+#X connect 11 0 10 1;
+#X connect 12 0 1 0;
+#X connect 12 1 2 1;
+#X connect 12 2 9 0;
+#X connect 12 3 7 0;
+#X connect 13 0 16 1;
+#X connect 14 0 13 0;
+#X connect 14 1 15 0;
+#X connect 15 0 5 0;
+#X connect 17 0 18 0;
+#X connect 17 1 2 1;
+#X connect 17 2 3 0;
+#X connect 18 0 16 0;
+#X connect 18 1 10 0;
+#X restore 445 440 pd load;
+#X msg 415 48 bang;
+#X msg 314 330 0;
+#X obj 5 19 cnv 15 190 15 empty empty empty 20 12 0 14 -260818 -66577
+0;
+#X obj 314 356 set \$0arraytemplate x;
+#X obj 434 282 t b b p;
+#X obj 357 440 outlet;
+#X obj 285 441 s \$1/tick;
+#X obj 107 2 nbx 4 14 0 20000 0 0 \$0-beatsize \$0-beatsize beatsize
+42 8 0 8 -260818 -1 -1 4000 256;
+#X obj 25 92 s-connect \$1/beatsize \$0-beatsize;
+#X obj 597 44 inlet;
+#X obj 597 67 list;
+#X msg 597 89 \; \$1 \$2 \;;
+#X connect 3 0 9 0;
+#X connect 4 0 18 0;
+#X connect 6 0 4 0;
+#X connect 7 0 8 0;
+#X connect 8 0 6 0;
+#X connect 9 0 7 0;
+#X connect 10 0 15 0;
+#X connect 13 0 15 1;
+#X connect 13 1 19 0;
+#X connect 14 0 5 0;
+#X connect 15 0 26 0;
+#X connect 15 0 27 0;
+#X connect 16 0 24 1;
+#X connect 17 0 16 0;
+#X connect 18 0 13 0;
+#X connect 18 1 25 0;
+#X connect 18 2 14 0;
+#X connect 18 3 5 1;
+#X connect 19 0 20 0;
+#X connect 21 0 3 0;
+#X connect 22 0 24 0;
+#X connect 25 0 22 0;
+#X connect 25 1 17 0;
+#X connect 25 2 16 1;
+#X connect 30 0 31 0;
+#X connect 31 0 32 0;
+#X coords 0 -1 1 1 200 40 1 0 0;