ds-array.pd


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
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;