forgot to attach the patch
rolf
#N struct testplate float x float y array 1-wave array-element array
2-wave array-element;
#N struct array-element float y;
#N canvas 97 71 513 455 10;
#N canvas 0 50 450 300 array-element 0;
#X obj 62 51 struct array-element float y;
#X restore 170 50 pd array-element;
#N canvas 579 62 612 191 zicht 1;
#X obj 51 34 table waveform 1;
#X restore 25 12 pd zicht;
#N canvas 339 104 449 572 draw 0;
#X obj 84 201 f;
#X obj 84 340 t f f;
#X obj 84 264 until;
#X obj 84 308 f 0;
#X obj 113 308 + 1;
#X msg 102 287 0;
#X obj 84 233 t f b;
#N canvas 203 173 696 665 ini-waves 0;
#X obj 149 7 inlet;
#X obj 133 472 outlet;
#X obj 149 241 t b b a;
#X obj 343 390 s nu-wave;
#X obj 481 300 makefilename %d;
#X obj 149 122 i;
#N canvas 170 438 623 300 ini-pointer 0;
#X obj 199 180 pointer;
#X obj 70 228 outlet;
#X text 103 182 create (x \, y);
#X text 342 187 bring pointer to beginning;
#X msg 70 182 0 0;
#X obj 70 30 inlet;
#X msg 199 160 traverse pd-waveform \, bang;
#X obj 70 81 t b b;
#X obj 70 203 append testplate x y;
#X connect 0 0 8 2;
#X connect 4 0 8 0;
#X connect 5 0 7 0;
#X connect 6 0 0 0;
#X connect 7 0 4 0;
#X connect 7 1 6 0;
#X connect 8 0 1 0;
#X restore 186 319 pd ini-pointer;
#X obj 343 269 t a a;
#X obj 186 349 trigger bang pointer;
#X obj 106 242 t b b;
#X obj 194 137 t b b;
#X obj 186 379 v breed;
#X msg 481 322 set \$1-table;
#X obj 481 347 s set.table.name;
#X obj 303 430 s scalar.pointer;
#X obj 343 293 t a b;
#X obj 343 337 list;
#X obj 376 317 symbol -;
#N canvas 486 153 450 300 slow-drip 0;
#X obj 148 186 list split 1;
#X obj 148 161 list append;
#X obj 148 237 outlet;
#X obj 148 37 inlet;
#X obj 229 237 outlet;
#X obj 222 35 inlet;
#X obj 148 72 b;
#X text 265 36 list;
#X text 103 37 bang;
#X text 273 237 EOL;
#X text 89 236 element;
#X obj 229 207 b;
#X connect 0 0 2 0;
#X connect 0 1 1 1;
#X connect 0 2 11 0;
#X connect 1 0 0 0;
#X connect 3 0 6 0;
#X connect 5 0 1 1;
#X connect 6 0 1 0;
#X connect 11 0 4 0;
#X restore 186 201 pd slow-drip;
#X floatatom 73 149 5 0 0 0 - - -, f 5;
#X obj 186 406 setsize - 1-wave;
#X msg 343 358 set \$2 \$1-wave;
#X msg 255 170 2 1;
#X obj 149 49 sel 3;
#X obj 194 169 del 1000;
#X msg 499 382 1-table;
#X msg 411 388 - 1-wave;
#X connect 0 0 23 0;
#X connect 2 0 9 0;
#X connect 2 1 6 0;
#X connect 2 2 7 0;
#X connect 4 0 12 0;
#X connect 5 0 2 0;
#X connect 5 0 19 0;
#X connect 6 0 8 0;
#X connect 7 0 15 0;
#X connect 7 1 4 0;
#X connect 8 0 11 0;
#X connect 8 1 14 0;
#X connect 8 1 20 1;
#X connect 9 0 24 0;
#X connect 9 1 1 0;
#X connect 10 0 24 0;
#X connect 10 1 22 0;
#X connect 11 0 20 0;
#X connect 12 0 13 0;
#X connect 12 0 25 0;
#X connect 15 0 16 0;
#X connect 15 1 17 0;
#X connect 16 0 21 0;
#X connect 17 0 16 1;
#X connect 18 0 2 0;
#X connect 21 0 3 0;
#X connect 21 0 20 0;
#X connect 21 0 26 0;
#X connect 22 0 18 1;
#X connect 23 0 10 0;
#X connect 23 1 5 0;
#X connect 24 0 18 0;
#X restore 84 115 pd ini-waves;
#X obj 111 176 v breed;
#N canvas 791 70 550 351 write.array 0;
#X obj 80 66 inlet;
#X obj 209 27 inlet;
#X obj 280 122 r nu-wave;
#X obj 80 237 set - y;
#X obj 209 205 element - A-Wave;
#X obj 303 176 r scalar.pointer;
#X connect 0 0 3 0;
#X connect 1 0 4 0;
#X connect 2 0 4 0;
#X connect 4 0 3 1;
#X connect 5 0 4 1;
#X restore 84 403 pd write.array;
#N canvas 791 70 550 465 sample 0;
#X obj 63 85 inlet x;
#X obj 63 121 i;
#X obj 63 261 outlet;
#X obj 63 229 tabread;
#X obj 63 195 t f f b;
#X obj 10 151 r set.table.name;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 5 0 3 0;
#X restore 84 377 pd sample;
#X obj 84 153 t b b;
#X obj 84 84 inlet;
#X connect 0 0 6 0;
#X connect 1 0 10 0;
#X connect 1 1 9 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 2 0;
#X connect 6 1 5 0;
#X connect 7 0 11 0;
#X connect 8 0 0 1;
#X connect 10 0 9 0;
#X connect 11 0 0 0;
#X connect 11 1 8 0;
#X connect 12 0 7 0;
#X restore 143 215 pd draw;
#X obj 25 40 table 1-table 1;
#X obj 24 65 table 2-table 1;
#X msg 143 145 1;
#X msg 208 221 clear;
#X obj 208 242 s pd-waveform;
#N canvas 98 574 450 246 template 1;
#X obj 64 51 struct testplate float x float y array 1-wave array-element
array 2-wave array-element;
#X obj 157 113 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 157 149 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 192 115 plot -v 0 1-wave 70 4 0 0 1;
#X obj 190 147 plot -v 0 2-wave 900 4 0 0 1;
#X obj 41 119 loadbang;
#X msg 41 140 1;
#X connect 1 0 3 0;
#X connect 2 0 4 0;
#X connect 5 0 6 0;
#X connect 6 0 1 0;
#X connect 6 0 2 0;
#X restore 171 22 pd template;
#X msg 182 143 2;
#X msg 240 143 3;
#N canvas 110 237 450 300 init 0;
#X obj 191 20 loadbang;
#X obj 230 114 v breed;
#X obj 191 41 t b b b;
#X obj 210 143 v breed;
#X msg 148 23 bang;
#N canvas 582 138 489 300 size 0;
#X obj 11 23 inlet;
#X obj 12 142 pack f f;
#X text 112 132 gop (x \, y \, 0/1/2/3) x-from yfrom x-to y-to x-size
y-size margins;
#X obj 11 53 t b b b;
#X obj 93 93 v hoog;
#X obj 11 92 v breed;
#X obj 12 207 s pd-waveform;
#X msg 12 173 donecanvasdialog 1 -1 3 0 \$2 \$1 0 \$1 \$2 0 0 \, dirty
0;
#X connect 0 0 3 0;
#X connect 1 0 7 0;
#X connect 3 0 5 0;
#X connect 3 1 4 0;
#X connect 4 0 1 1;
#X connect 5 0 1 0;
#X connect 7 0 6 0;
#X restore 160 123 pd size;
#X msg 278 75 100;
#X obj 278 96 v hoog;
#X msg 230 93 500;
#X msg 210 171 \; 1-table resize \$1 \; 1-table const 50 \; 2-table
resize \$1 \; 2-table const 70 \;;
#X msg 20 93 \; pd-zicht vis 1;
#X connect 0 0 2 0;
#X connect 2 0 5 0;
#X connect 2 0 10 0;
#X connect 2 1 3 0;
#X connect 2 2 8 0;
#X connect 2 2 6 0;
#X connect 3 0 9 0;
#X connect 4 0 2 0;
#X connect 6 0 7 0;
#X connect 8 0 1 0;
#X restore 341 21 pd init;
#X text 238 128 1 & 2;
#X obj 143 188 t a b;
#N canvas 0 50 450 553 draw2 0;
#X obj 84 201 f;
#X obj 84 340 t f f;
#X obj 84 264 until;
#X obj 84 308 f 0;
#X obj 113 308 + 1;
#X msg 102 287 0;
#X obj 84 233 t f b;
#X obj 111 176 v breed;
#X obj 84 153 t b b;
#X obj 84 84 inlet;
#N canvas 791 70 550 465 sample2 0;
#X obj 63 85 inlet x;
#X obj 63 121 i;
#X obj 66 306 outlet;
#X obj 63 195 t f f b;
#X obj 63 229 tabread 1-table;
#X obj 101 259 tabread 2-table;
#X obj 68 285 pack f f;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 2 0;
#X restore 84 377 pd sample2;
#N canvas 791 70 550 351 write.array.2 0;
#X obj 80 66 inlet;
#X obj 209 27 inlet;
#X obj 80 237 set - y;
#X obj 303 176 r scalar.pointer;
#X obj 189 252 element - 2-wave;
#X obj 209 205 element - 1-wave;
#X obj 137 281 set - y;
#X obj 80 87 unpack f f;
#X connect 0 0 7 0;
#X connect 1 0 5 0;
#X connect 1 0 4 0;
#X connect 3 0 5 1;
#X connect 3 0 4 1;
#X connect 4 0 6 1;
#X connect 5 0 2 1;
#X connect 7 0 2 0;
#X connect 7 1 6 0;
#X restore 84 403 pd write.array.2;
#N canvas 203 173 696 665 ini-waves2 0;
#X obj 149 7 inlet;
#X obj 149 472 outlet;
#X obj 149 241 t b b a;
#N canvas 170 438 623 300 ini-pointer 0;
#X obj 199 180 pointer;
#X obj 70 228 outlet;
#X text 103 182 create (x \, y);
#X text 342 187 bring pointer to beginning;
#X msg 70 182 0 0;
#X obj 70 30 inlet;
#X msg 199 160 traverse pd-waveform \, bang;
#X obj 70 81 t b b;
#X obj 70 203 append testplate x y;
#X connect 0 0 8 2;
#X connect 4 0 8 0;
#X connect 5 0 7 0;
#X connect 6 0 0 0;
#X connect 7 0 4 0;
#X connect 7 1 6 0;
#X connect 8 0 1 0;
#X restore 186 319 pd ini-pointer;
#X obj 186 349 trigger bang pointer;
#X obj 186 379 v breed;
#X obj 303 430 s scalar.pointer;
#X obj 186 406 setsize - 1-wave;
#X obj 193 441 setsize - 2-wave;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 1 6 0;
#X connect 4 1 7 1;
#X connect 4 1 8 1;
#X connect 5 0 7 0;
#X connect 5 0 8 0;
#X restore 117 115 pd ini-waves2;
#X connect 0 0 6 0;
#X connect 1 0 10 0;
#X connect 1 1 11 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 2 0;
#X connect 6 1 5 0;
#X connect 7 0 0 1;
#X connect 8 0 0 0;
#X connect 8 1 7 0;
#X connect 9 0 12 0;
#X connect 10 0 11 0;
#X connect 12 0 8 0;
#X restore 324 223 pd draw2;
#X msg 324 163 bang;
#X msg 396 169 bang;
#X obj 324 184 t b b;
#X obj 396 190 t b b;
#X text 26 342 B - each array has its own objects for drawing \, drawing
is done synchronised -> for each x-value both y-values are drawn;
#X text 25 392 C - each array has its ownn objects for drawing \, drawing
is done one array after the other (like in A);
#X text 193 105 A - not ok;
#X text 331 106 B - ok;
#X text 398 108 C - not ok;
#N canvas 0 50 450 481 draw1after2 0;
#X obj 105 180 f;
#X obj 105 319 t f f;
#X obj 105 243 until;
#X obj 105 287 f 0;
#X obj 134 287 + 1;
#X msg 123 266 0;
#X obj 105 212 t f b;
#N canvas 477 207 696 665 ini-waves 0;
#X obj 149 7 inlet;
#X obj 133 472 outlet;
#X obj 149 241 t b b a;
#N canvas 170 438 623 300 ini-pointer 0;
#X obj 199 180 pointer;
#X obj 70 228 outlet;
#X text 103 182 create (x \, y);
#X text 342 187 bring pointer to beginning;
#X msg 70 182 0 0;
#X obj 70 30 inlet;
#X msg 199 160 traverse pd-waveform \, bang;
#X obj 70 81 t b b;
#X obj 70 203 append testplate x y;
#X connect 0 0 8 2;
#X connect 4 0 8 0;
#X connect 5 0 7 0;
#X connect 6 0 0 0;
#X connect 7 0 4 0;
#X connect 7 1 6 0;
#X connect 8 0 1 0;
#X restore 186 319 pd ini-pointer;
#X obj 186 349 trigger bang pointer;
#X obj 186 379 v breed;
#X obj 186 406 setsize - 1-wave;
#X obj 303 430 s scalar.pointer.1;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 1 6 1;
#X connect 4 1 7 0;
#X connect 5 0 6 0;
#X restore 105 94 pd ini-waves;
#X obj 132 155 v breed;
#X obj 105 132 t b b;
#X obj 105 11 inlet;
#N canvas 791 70 550 351 write.array.1 0;
#X obj 80 66 inlet;
#X obj 209 27 inlet;
#X obj 80 237 set - y;
#X obj 209 205 element - 1-wave;
#X obj 303 176 r scalar.pointer.1;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 3 0 2 1;
#X connect 4 0 3 1;
#X restore 105 382 pd write.array.1;
#N canvas 791 70 550 465 1-sample 0;
#X obj 63 85 inlet x;
#X obj 63 121 i;
#X obj 63 261 outlet;
#X obj 63 195 t f f b;
#X obj 63 229 tabread 1-table;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 2 0;
#X restore 105 356 pd 1-sample;
#X obj 271 184 f;
#X obj 271 323 t f f;
#X obj 271 247 until;
#X obj 271 291 f 0;
#X obj 300 291 + 1;
#X msg 289 270 0;
#X obj 271 216 t f b;
#N canvas 477 207 696 665 ini-waves 0;
#X obj 149 7 inlet;
#X obj 133 472 outlet;
#X obj 149 241 t b b a;
#N canvas 170 438 623 300 ini-pointer 0;
#X obj 199 180 pointer;
#X obj 70 228 outlet;
#X text 103 182 create (x \, y);
#X text 342 187 bring pointer to beginning;
#X msg 70 182 0 0;
#X obj 70 30 inlet;
#X msg 199 160 traverse pd-waveform \, bang;
#X obj 70 81 t b b;
#X obj 70 203 append testplate x y;
#X connect 0 0 8 2;
#X connect 4 0 8 0;
#X connect 5 0 7 0;
#X connect 6 0 0 0;
#X connect 7 0 4 0;
#X connect 7 1 6 0;
#X connect 8 0 1 0;
#X restore 186 319 pd ini-pointer;
#X obj 186 349 trigger bang pointer;
#X obj 186 379 v breed;
#X obj 186 406 setsize - 2-wave;
#X obj 303 430 s scalar.pointer.2;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 1 6 1;
#X connect 4 1 7 0;
#X connect 5 0 6 0;
#X restore 271 98 pd ini-waves;
#X obj 298 159 v breed;
#X obj 271 136 t b b;
#N canvas 791 70 550 351 write.array.2 0;
#X obj 80 66 inlet;
#X obj 209 27 inlet;
#X obj 80 237 set - y;
#X obj 303 176 r scalar.pointer.2;
#X obj 209 205 element - 2-wave;
#X connect 0 0 2 0;
#X connect 1 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 2 1;
#X restore 271 386 pd write.array.2;
#N canvas 791 70 550 465 2-sample 0;
#X obj 63 85 inlet x;
#X obj 63 121 i;
#X obj 63 261 outlet;
#X obj 63 195 t f f b;
#X obj 63 229 tabread 2-table;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 2 0;
#X restore 271 360 pd 2-sample;
#X obj 105 32 t b b;
#X connect 0 0 6 0;
#X connect 1 0 12 0;
#X connect 1 1 11 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 2 0;
#X connect 6 1 5 0;
#X connect 7 0 9 0;
#X connect 8 0 0 1;
#X connect 9 0 0 0;
#X connect 9 1 8 0;
#X connect 10 0 25 0;
#X connect 12 0 11 0;
#X connect 13 0 19 0;
#X connect 14 0 24 0;
#X connect 14 1 23 1;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 16 0 14 0;
#X connect 17 0 16 1;
#X connect 18 0 16 1;
#X connect 19 0 15 0;
#X connect 19 1 18 0;
#X connect 20 0 22 0;
#X connect 21 0 13 1;
#X connect 22 0 13 0;
#X connect 22 1 21 0;
#X connect 24 0 23 0;
#X connect 25 0 7 0;
#X connect 25 1 20 0;
#X restore 396 236 pd draw1after2;
#X text 25 302 A - 1 combination of setsize \, element & set objects
making use of [set ..( messages. includes some delay to see order of
events.;
#X connect 5 0 13 0;
#X connect 6 0 7 0;
#X connect 9 0 13 0;
#X connect 10 0 13 0;
#X connect 13 0 2 0;
#X connect 13 1 6 0;
#X connect 15 0 17 0;
#X connect 16 0 18 0;
#X connect 17 0 14 0;
#X connect 17 1 6 0;
#X connect 18 0 24 0;
#X connect 18 1 6 0;
_______________________________________________
Pd-list@lists.iem.at mailing list
UNSUBSCRIBE and account-management ->
https://lists.puredata.info/listinfo/pd-list
