[PD] multi-colored arrays inside one table || zoomable tables ?

[andy graybeal]

nice, i'll play around with it. thanks for helping out.
-andy


Frank Barknecht wrote:

>Hallo,
>Frank Barknecht hat gesagt: // Frank Barknecht wrote:
>
>  
>
>>The patch is very slow.
>>    
>>
>
>Attached version is much faster, but using a hack.
>
>Ciao
>  
>
>------------------------------------------------------------------------
>
>#N canvas 360 321 881 527 10;
>#N canvas 722 109 450 300 sample 0;
>#X obj 56 52 struct sample float y;
>#X restore 32 127 pd sample;
>#N canvas 0 0 984 622 data 0;
>#X restore 37 63 pd data;
>#N canvas 664 618 450 300 appender 0;
>#X msg 291 152 traverse pd-data \, bang;
>#X obj 291 179 pointer;
>#X obj 176 124 t b b;
>#X obj 173 95 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
>-1;
>#X obj 99 246 setsize wave s;
>#X floatatom 101 224 5 0 0 0 - - -;
>#X obj 111 32 inlet;
>#X obj 111 52 t f b b;
>#X obj 221 237 s last_array;
>#X obj 163 203 append wave x y c;
>#X msg 274 105 \; pd-data clear;
>#X obj 245 37 inlet;
>#X obj 168 166 pack 10 300 9;
>#X connect 0 0 1 0;
>#X connect 1 0 9 3;
>#X connect 2 0 12 0;
>#X connect 2 1 0 0;
>#X connect 3 0 2 0;
>#X connect 5 0 4 0;
>#X connect 6 0 7 0;
>#X connect 7 0 4 0;
>#X connect 7 1 3 0;
>#X connect 7 2 10 0;
>#X connect 9 0 4 1;
>#X connect 9 0 8 0;
>#X connect 11 0 12 2;
>#X connect 12 0 9 0;
>#X restore 246 67 pd appender;
>#N canvas 391 349 450 300 wave 0;
>#X obj 44 104 struct wave float x float y float c array s sample;
>#X obj 61 159 plot s c 1 0 0 1 1;
>#X obj 51 210 drawpolygon 0 1 0 0 800 0;
>#X restore 32 149 pd wave;
>#N canvas 216 99 782 392 loadfile 0;
>#X obj 611 48 openpanel;
>#X obj 611 90 soundfiler;
>#X obj 611 16 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
>-1;
>#X msg 611 69 read -resize \$1 snd;
>#X floatatom 611 133 5 0 0 0 - - -;
>#X obj 54 135 until;
>#X obj 54 167 f 0;
>#X obj 82 167 + 1;
>#X obj 54 107 t f f f f b;
>#X msg 93 136 0;
>#X obj 169 173 outlet;
>#X obj 281 197 r last_array;
>#X obj 188 222 element wave s;
>#X obj 54 195 t f f;
>#X obj 575 32 inlet;
>#X obj 54 245 * 1;
>#X obj 54 40 t b;
>#X obj 54 340 * 400;
>#X obj 91 39 r display-width;
>#X obj 54 363 set sample y;
>#X obj 54 318 tabread4 snd;
>#X obj 473 73 table snd 200;
>#X obj 543 124 s paint;
>#X obj 54 13 r paint;
>#X obj 70 224 r sample_per_px;
>#X obj 54 289 + 0;
>#X obj 70 265 r start-sample;
>#X obj 54 62 f 800;
>#X obj 54 83 min 800;
>#X connect 0 0 3 0;
>#X connect 1 0 4 0;
>#X connect 1 0 22 0;
>#X connect 2 0 0 0;
>#X connect 3 0 1 0;
>#X connect 5 0 6 0;
>#X connect 6 0 7 0;
>#X connect 6 0 13 0;
>#X connect 7 0 6 1;
>#X connect 8 0 5 0;
>#X connect 8 3 10 0;
>#X connect 8 4 9 0;
>#X connect 9 0 6 1;
>#X connect 11 0 12 1;
>#X connect 12 0 19 1;
>#X connect 13 0 15 0;
>#X connect 13 1 12 0;
>#X connect 14 0 0 0;
>#X connect 15 0 25 0;
>#X connect 16 0 27 0;
>#X connect 17 0 19 0;
>#X connect 18 0 27 1;
>#X connect 20 0 17 0;
>#X connect 23 0 16 0;
>#X connect 24 0 15 1;
>#X connect 25 0 20 0;
>#X connect 26 0 25 1;
>#X connect 27 0 28 0;
>#X connect 28 0 8 0;
>#X restore 246 45 pd loadfile;
>#X obj 246 26 bng 15 250 50 0 empty empty load_soundfile 0 -6 0 8 -262144
>-1 -1;
>#X obj 155 48 s pd-data;
>#X msg 155 24 clear;
>#X obj 179 158 s display-width;
>#X floatatom 149 116 5 0 0 1 width_(px) - -;
>#X obj 517 164 s sample_per_px;
>#X floatatom 487 117 5 0 0 1 zoom_(samples/px) - -;
>#X msg 58 301 bang;
>#X obj 80 376 s paint;
>#X obj 58 276 mousefilter;
>#X obj 487 137 t f f;
>#X obj 149 133 t f f;
>#X floatatom 319 114 5 0 0 1 startsample - -;
>#X obj 319 131 t f f;
>#X obj 319 181 s redraw;
>#X obj 58 242 r redraw;
>#X obj 487 185 s redraw;
>#X obj 149 180 s redraw;
>#X obj 349 156 s start-sample;
>#X floatatom 347 44 5 0 0 1 color - -;
>#X obj 347 67 s redraw;
>#X text 19 40 Your soundfile:;
>#X obj 58 338 t b b b;
>#X obj 87 440 s pd-data;
>#X msg 103 409 vis 0;
>#X msg 58 409 vis 1;
>#X text 97 304 if you don't have mousefilter \, bang manually.;
>#X text 168 409 display is slow \, so hide while changing data.;
>#X connect 4 0 2 0;
>#X connect 5 0 4 0;
>#X connect 7 0 6 0;
>#X connect 9 0 16 0;
>#X connect 11 0 15 0;
>#X connect 12 0 27 0;
>#X connect 14 0 12 0;
>#X connect 15 0 21 0;
>#X connect 15 1 10 0;
>#X connect 16 0 22 0;
>#X connect 16 1 8 0;
>#X connect 17 0 18 0;
>#X connect 18 0 19 0;
>#X connect 18 1 23 0;
>#X connect 20 0 14 0;
>#X connect 24 0 2 1;
>#X connect 24 0 25 0;
>#X connect 27 0 30 0;
>#X connect 27 1 13 0;
>#X connect 27 2 29 0;
>#X connect 29 0 28 0;
>#X connect 30 0 28 0;
>  
>