1 files changed, 192 insertions, 0 deletions
diff --git a/ds-array.pd b/ds-array.pd
new file mode 100644
index 0000000..ee241c5
--- /dev/null
+++ b/ds-array.pd
@@ -0,0 +1,192 @@
+#N struct 3182.ds-array float x float y float l-width float l-color
+float x-spacing array ds-array 3182.ds-element;
+#N struct 3182.ds-element float y float x-spacing;
+#N canvas 347 22 761 806 10;
+#N canvas 0 0 450 300 (subpatch) 0;
+#X array \$0.soundfile 4e+06 float 2;
+#X coords 0 1 4e+06 -1 200 140 1;
+#X restore 29 34 graph;
+#N canvas 893 26 450 300 \$0.ds-array 0;
+#X obj 59 73 struct \$0.ds-array float x float y float l-width float
+l-color float x-spacing array ds-array \$0.ds-element;
+#X obj 88 195 plot ds-array l-color 1 0 0 x-spacing;
+#X restore 538 276 pd \$0.ds-array;
+#N canvas 890 355 450 300 \$0.element 0;
+#X obj 98 59 struct \$0.ds-element float y;
+#X restore 538 302 pd \$0.element;
+#N canvas 40 484 212 121 \$0.data 1;
+#X scalar 3182.ds-array 0 50 30 537 1 \; -0 0 \; -5.00793 0 \; -54.7729
+0 \; 15.9882 0 \; -13.5376 0 \; -3.24707 0 \; 19.281 0 \; 11.6119 0
+\; -4.97742 0 \; -52.6917 0 \; 18.1671 0 \; 18.7744 0 \; 3.31726 0
+\; -10.8673 0 \; 9.8877 0 \; 17.6575 0 \; 3.25012 0 \; 22.7112 0 \;
+28.0823 0 \; 1.03455 0 \; -12.0789 0 \; 27.005 0 \; 11.3678 0 \; -4.56543
+0 \; 7.68433 0 \; -42.4652 0 \; -4.50134 0 \; -4.97131 0 \; -7.08618
+0 \; -4.5105 0 \; 5.26733 0 \; -3.64685 0 \; 41.9983 0 \; -1.92566
+0 \; 36.0138 0 \; -8.0658 0 \; 63.5406 0 \; 13.1073 0 \; -3.17078 0
+\; -11.795 0 \; -5.81055 0 \; -35.2692 0 \; -11.2854 0 \; 8.56934 0
+\; 29.9957 0 \; 3.42407 0 \; -7.97424 0 \; -14.0411 0 \; -20.8618 0
+\; -9.68628 0 \; -3.51257 0 \; -11.4227 0 \; -36.6241 0 \; 22.2473
+0 \; -3.69873 0 \; -14.1724 0 \; 30.188 0 \; 40.564 0 \; 1.62048 0
+\; 42.1539 0 \; 9.47571 0 \; -3.1189 0 \; 7.76367 0 \; 42.6697 0 \;
+39.4623 0 \; -12.2253 0 \; -36.7676 0 \; 15.8295 0 \; 73.7396 0 \;
+-3.03345 0 \; -2.41394 0 \; 23.8678 0 \; -6.29272 0 \; 2.83203 0 \;
+-12.912 0 \; -42.1936 0 \; -13.501 0 \; 0.119019 0 \; 6.48804 0 \;
+-62.2437 0 \; 27.0172 0 \; -8.255 0 \; 13.8153 0 \; -7.56836 0 \; -51.3214
+0 \; -19.278 0 \; -48.642 0 \; 8.83789 0 \; -14.4135 0 \; -1.55029
+0 \; -19.1315 0 \; 18.2953 0 \; 27.6978 0 \; -50.1038 0 \; -10.6781
+0 \; 37.3413 0 \; -4.98962 0 \; 51.7151 0 \; 23.8251 0 \; 42.63 0 \;
+-5.40466 0 \; -6.6925 0 \; 6.10046 0 \; 9.12781 0 \; -13.681 0 \; -18.2129
+0 \; 28.4241 0 \; -12.5946 0 \; 8.89282 0 \; -21.2585 0 \; -48.9441
+0 \; -3.43018 0 \; -56.0059 0 \; 39.7644 0 \; 19.5526 0 \; 11.9354
+0 \; -82.9651 0 \; -16.3666 0 \; -93.9301 0 \; 19.0796 0 \; 76.8219
+0 \; 3.98254 0 \; 1.44348 0 \; 44.4122 0 \; 3.85437 0 \; 47.4335 0
+\; -0.634766 0 \; -9.03931 0 \; -29.7638 0 \; 35.675 0 \; 37.2711 0
+\; -23.3917 0 \; 9.50928 0 \; 6.13098 0 \; 1.14441 0 \; 34.1736 0 \;
+10.7971 0 \; -31.8268 0 \; -3.08228 0 \; -11.3007 0 \; 25.0671 0 \;
+45.4895 0 \; -4.32129 0 \; 31.3721 0 \; 25.3784 0 \; 15.9546 0 \; -24.942
+0 \; 30.5054 0 \; -51.9287 0 \; -14.621 0 \; 3.79333 0 \; 69.7113 0
+\; 10.8032 0 \; 43.6005 0 \; -24.7284 0 \; 92.1814 0 \; 10.437 0 \;
+-15.6342 0 \; 44.9188 0 \; 18.6462 0 \; 19.6899 0 \; -9.48181 0 \;
+18.8293 0 \; 34.1248 0 \; -49.1058 0 \; -18.8904 0 \; 18.7592 0 \;
+7.73315 0 \; -33.075 0 \; -59.7473 0 \; 14.0442 0 \; -65.3656 0 \;
+3.44543 0 \; -1.0437 0 \; 8.77991 0 \; 30.4474 0 \; 23.4131 0 \; -2.88696
+0 \; -10.8124 0 \; -31.1462 0 \; -2.61536 0 \; 43.457 0 \; -44.2902
+0 \; 58.6914 0 \; -5.2002 0 \; 62.6221 0 \; -53.6407 0 \; 0.732422
+0 \; 64.0747 0 \; -32.1106 0 \; -21.6003 0 \; 5.3833 0 \; -23.7854
+0 \; -33.7128 0 \; 4.97131 0 \; -14.1327 0 \; 28.5858 0 \; -12.9761
+0 \; -24.6246 0 \; -25.2045 0 \; \;;
+#X restore 540 233 pd \$0.data;
+#X obj 459 417 ds-begin pd-\$0.data;
+#X obj 237 356 list length;
+#X obj 237 396 expr $f2 / $f1;
+#X msg 318 373 200;
+#X obj 174 585 list;
+#X obj 174 421 list append;
+#X msg 318 354 determine graph pixel width;
+#X obj 231 692 element \$0.ds-array ds-array;
+#X obj 201 511 f;
+#X obj 201 490 t b a;
+#X obj 174 468 t a a;
+#X obj 200 533 setsize \$0.ds-array ds-array;
+#X obj 237 376 t a a;
+#X obj 174 612 list-enumerate;
+#X obj 174 560 t b a;
+#X obj 174 635 list-rev;
+#X obj 174 661 unpack f f;
+#X obj 174 743 set \$0.ds-element y;
+#X obj 174 443 append \$0.ds-array x y l-width l-color x-spacing;
+#X msg 174 377 0 50 1 0;
+#X text 56 372 middle of y-height;
+#X text 47 713 half y-height \, flip;
+#X obj 174 280 t b a a b b b;
+#X msg 262 281 clear;
+#X obj 306 281 s pd-\$0.data;
+#X obj 435 131 soundfiler;
+#X obj 436 80 list append \$0;
+#X obj 436 55 openpanel;
+#X obj 436 30 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X msg 435 102 read -resize \$1 \$2.soundfile;
+#X floatatom 269 420 5 0 0 0 - - -;
+#X text 390 589 need list-resample to only take every Xth value;
+#X text 389 606 better yet build own dump that resamples;
+#N canvas 0 22 452 378 tabdump-resample 0;
+#X obj 159 63 inlet;
+#X obj 159 310 list-extendq;
+#X obj 199 268 tabread \$0.soundfile;
+#X obj 199 119 /;
+#X obj 228 119 r \$0.display-width;
+#X obj 229 186 r \$0.display-width;
+#X obj 199 145 t b a;
+#X obj 199 186 f;
+#X obj 199 213 until;
+#X obj 199 240 f;
+#X obj 227 240 +;
+#X obj 199 91 t a b;
+#X msg 243 91 0;
+#X obj 159 86 t b a;
+#X obj 159 340 outlet;
+#X obj 159 268 t b b;
+#X connect 0 0 13 0;
+#X connect 1 0 14 0;
+#X connect 2 0 1 0;
+#X connect 3 0 6 0;
+#X connect 4 0 3 1;
+#X connect 5 0 7 1;
+#X connect 6 0 7 0;
+#X connect 6 1 10 1;
+#X connect 7 0 8 0;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
+#X connect 9 0 2 0;
+#X connect 10 0 9 1;
+#X connect 11 0 3 0;
+#X connect 11 1 12 0;
+#X connect 12 0 9 1;
+#X connect 13 0 15 0;
+#X connect 13 1 11 0;
+#X connect 15 0 1 1;
+#X connect 15 1 1 0;
+#X restore 174 254 pd tabdump-resample;
+#X obj 435 170 s \$0.arraysize;
+#X obj 174 231 r \$0.arraysize;
+#X msg 635 382 200;
+#X obj 635 360 loadbang;
+#X obj 635 405 s \$0.display-width;
+#X obj 100 254 list length;
+#X floatatom 100 277 5 0 0 0 - - -;
+#X obj 174 714 * -100;
+#X obj 474 527 set \$0.ds-array l-width;
+#X obj 474 547 set \$0.ds-array l-color;
+#X obj 287 475 s \$0.array-pointer;
+#X obj 626 518 r \$0.array-pointer;
+#X floatatom 474 497 5 0 0 0 - - -;
+#X floatatom 530 487 5 0 0 0 - - -;
+#X connect 4 0 22 5;
+#X connect 5 0 16 0;
+#X connect 6 0 9 1;
+#X connect 6 0 34 0;
+#X connect 7 0 6 1;
+#X connect 8 0 17 0;
+#X connect 9 0 22 0;
+#X connect 10 0 7 0;
+#X connect 11 0 21 1;
+#X connect 12 0 15 0;
+#X connect 13 0 12 0;
+#X connect 13 1 15 1;
+#X connect 14 0 18 0;
+#X connect 14 1 13 0;
+#X connect 16 0 6 0;
+#X connect 16 1 12 1;
+#X connect 17 0 19 0;
+#X connect 18 0 8 0;
+#X connect 18 1 11 1;
+#X connect 19 0 20 0;
+#X connect 20 0 45 0;
+#X connect 20 1 11 0;
+#X connect 22 0 14 0;
+#X connect 22 0 48 0;
+#X connect 23 0 9 0;
+#X connect 26 0 23 0;
+#X connect 26 1 5 0;
+#X connect 26 2 8 1;
+#X connect 26 3 10 0;
+#X connect 26 4 4 0;
+#X connect 26 5 27 0;
+#X connect 27 0 28 0;
+#X connect 29 0 38 0;
+#X connect 30 0 33 0;
+#X connect 31 0 30 0;
+#X connect 32 0 31 0;
+#X connect 33 0 29 0;
+#X connect 37 0 26 0;
+#X connect 37 0 43 0;
+#X connect 39 0 37 0;
+#X connect 40 0 42 0;
+#X connect 41 0 40 0;
+#X connect 43 0 44 0;
+#X connect 45 0 21 0;
+#X connect 49 0 46 1;
+#X connect 49 0 47 1;
+#X connect 50 0 46 0;
+#X connect 51 0 47 0;