[PD] multislider with structs

[Frank Barknecht]

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

> Zitat von oliver <oliver at klingt.org>:
> > when i create a slider i get an error message for each slider
> >
> > "error: ptrobj_next: no current pointer"
> 
> This is a "known bug" with the "until" and the counting, which I didn't have

Okay, attached is the fixed version which shouldn't show the pointer
error anymore, although still no reading of slider state...

The stupid counter error is gone as well and was replaced by some
cleanup.

ciao
-- 
 Frank Barknecht                               _ ______footils.org__
-------------- next part --------------
#N struct \$0-slider float x float y float color float cline float
h;
#N canvas 201 303 461 218 10;
#N canvas 415 406 450 300 \$0-slider 0;
#X text 39 70 color: color of polygon;
#X text 39 90 h: height of polygon;
#X obj 39 31 struct \$0-slider float x float y float color float cline
float h;
#X obj 47 172 filledpolygon color cline 4 0 0 10 0 10 h 0 h;
#X restore 304 4 pd \$0-slider;
#N canvas 0 0 450 300 \$0-showme 0;
#X scalar \$0-slider 20 0 20 75 0 \;;
#X scalar \$0-slider 80 0 80 135 0 \;;
#X scalar \$0-slider 60 0 60 115 105.75 \;;
#X scalar \$0-slider 40 0 40 95 67.4788 \;;
#X coords -1 140 200 -1 200 140 1;
#X restore 22 23 pd \$0-showme;
#X floatatom 330 87 5 0 10 2 how-many? - #0-howmany;
#X obj 332 44 bng 15 250 50 0 \$0-clear empty clear 0 -6 0 8 -262144
-1 -1;
#X obj 332 124 bng 15 250 50 0 \$0-do-create empty create 0 -6 0 8
-262144 -1 -1;
#N canvas 394 123 886 578 mechanics 0;
#X msg 462 91 \; \$1 clear;
#X obj 462 65 symbol;
#X obj 462 38 r \$0-clear;
#X text 462 12 clear show-canvas:;
#X obj 540 39 r \$0-show-cnv;
#X obj 369 420 pointer;
#X text 431 367 go to (and output) "head" of the list;
#X msg 297 408 next;
#X obj 391 252 makefilename pd-%d-showme;
#X msg 369 396 traverse \$1 \, bang;
#X obj 392 233 float \$0;
#X obj 179 479 append \$0-slider x color cline;
#X obj 392 206 loadbang;
#X obj 179 216 f;
#X obj 180 249 until;
#X obj 180 295 i 0;
#X obj 220 140 t b b b b;
#X obj 219 295 + 20;
#X msg 239 268 0;
#X obj 287 446 + 55;
#X obj 391 276 s \$0-show-cnv;
#X obj 406 344 r \$0-show-cnv;
#X obj 258 224 s \$0-clear;
#X obj 118 149 r \$0-howmany;
#X obj 221 115 r \$0-do-create;
#X obj 369 367 symbol;
#X obj 187 379 t f f f b b;
#X msg 290 375 bang;
#X obj 131 429 print;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 4 0 1 1;
#X connect 5 0 11 3;
#X connect 7 0 5 0;
#X connect 8 0 20 0;
#X connect 9 0 5 0;
#X connect 10 0 8 0;
#X connect 12 0 10 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 17 0;
#X connect 15 0 26 0;
#X connect 16 0 13 0;
#X connect 16 1 18 0;
#X connect 16 2 22 0;
#X connect 16 3 10 0;
#X connect 17 0 15 1;
#X connect 18 0 15 1;
#X connect 19 0 11 2;
#X connect 21 0 25 1;
#X connect 23 0 13 1;
#X connect 24 0 16 0;
#X connect 25 0 9 0;
#X connect 26 0 11 0;
#X connect 26 0 28 0;
#X connect 26 1 11 1;
#X connect 26 2 19 0;
#X connect 26 3 7 0;
#X connect 26 4 27 0;
#X connect 27 0 25 0;
#X restore 200 3 pd mechanics;
#X coords 0 150 320 0 320 170 1;