hi,

interesting stuff, however not fully working yet ;-)

when i create a slider i get an error message for each slider
"error: ptrobj_next: no current pointer"

maybe there are some files missing ?...

ciao

oliver



Frank Barknecht wrote:
Hallo,

inspired by Orm Finnendahl's crazy stuff with structs which he
presented on the Linux Audio Conference here is a quick-hack
multislider done using structs.

slidertest.pd is the slider, useslider.pd shows, that it is fully
localized and can be use as an abstraction multiple times inside a
single patch. Open useslider.pd, select number of sliders to create
(10 max for space restrictions) bang "create".

A RRADicalized version with actual outlets probably will follow later.

Have fun.

Ciao
  

#N canvas 201 303 397 188 10; #X obj 409 145 pointer; #X text 427 100 go to (and output) "head" of the list; #X msg 356 144 next; #X obj 427 82 makefilename pd-%d-showme; #X msg 409 121 traverse \$1 \, bang; #X obj 428 63 float \$0; #N canvas 415 406 450 300 1002-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 491 42 pd \$0-slider; #X obj 278 206 append \$0-slider x color cline; #X obj 428 35 loadbang; #N canvas 0 0 450 300 1002-showme 0; #X coords -1 140 200 -1 200 140 1; #X restore 22 23 pd \$0-showme; #X floatatom 310 99 5 0 10 2 how-many? - -; #X obj 318 58 bng 15 250 50 0 empty empty clear 0 -6 0 8 -262144 -1 -1; #X msg 487 177 \; \$1 clear; #X obj 488 153 symbol; #X obj 320 133 bng 15 250 50 0 empty empty create 0 -6 0 8 -262144 -1 -1; #X obj 232 156 t f f f b; #X obj 242 4 f; #X obj 225 25 until; #X obj 227 71 i 0; #X obj 290 21 t b b b b; #X obj 230 95 + 20; #X msg 260 46 0; #X obj 358 169 + 55; #X connect 0 0 7 3; #X connect 2 0 0 0; #X connect 3 0 4 0; #X connect 3 0 13 1; #X connect 4 0 0 0; #X connect 5 0 3 0; #X connect 8 0 5 0; #X connect 10 0 16 1; #X connect 11 0 13 0; #X connect 13 0 12 0; #X connect 14 0 19 0; #X connect 15 0 7 0; #X connect 15 1 7 1; #X connect 15 2 22 0; #X connect 15 3 2 0; #X connect 16 0 17 0; #X connect 17 0 18 0; #X connect 18 0 20 0; #X connect 19 0 16 0; #X connect 19 1 21 0; #X connect 19 2 11 0; #X connect 19 3 5 0; #X connect 20 0 18 1; #X connect 20 0 15 0; #X connect 21 0 18 1; #X connect 22 0 7 2; #X coords 0 0 1 1 320 140 1;

#N struct 1002-slider float x float y float color float cline float h; #N struct 1005-slider float x float y float color float cline float h; #N canvas 164 355 789 318 10; #X obj 21 56 slidertest; #X obj 364 55 slidertest;

-- 


////////////////////////////////////////////////////////
\\\\\\\\\\\\\ http://klingt.org/ground/lift \\\\\\\\\\\\
///////// http://klingt.org/executive-ensemble /////////
\\\\\\\\\\\\\ http://klingt.org/~oliver/prb \\\\\\\\\\\\
////////////////////////////////////////////////////////
\\\\\\\\ LIVE-BUILDER (music improvisation tool): \\\\\\
/////// http://klingt.org/~oliver/pd/live-builder //////
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\