[PD] multislider with structs

[Frank Barknecht]

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
-- 
 Frank Barknecht                               _ ______footils.org__
-------------- next part --------------
#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;
-------------- next part --------------
#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;