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

Tue Mar 29 12:54:00 CEST 2005

Hallo,
Frank Barknecht hat gesagt: // Frank Barknecht wrote:

> The patch is very slow.

Attached version is much faster, but using a hack.

Ciao
-- 
 Frank Barknecht                               _ ______footils.org__

          _ __latest track: "scans" _ http://footils.org/cms/show/41
-------------- next part --------------
#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;