[PD] switch16 abstraction

[Frank Barknecht]

Hallo,
David Powers hat gesagt: // David Powers wrote:

> Maybe somebody will find the attached (simple) abstraction useful. I often
> have to trigger a single gemhead on, and everything else off. This is the
> best way that I have found to do it is far...  If somebody thinks there is a
> better way, I'd be curious to hear of it.

It's not as known as it should be, but one can write a float to a
table without [tabwrite] as well: Just send a message with the
starting index and the values to write at that and after it to a
sender, that is named the same as the table. 

So you could replace the [tabset] with [s $0-array] if you add a zero
to the incoming list of zeros. Actually sending [const 0( to [s
$0-array] is even better in that case. 

Attached is an alternative approach to the task of switching on
gemheads exclusively. I named it [exclusive], it's very simple and can
be made to work for any number of gemheads. It involves a bit more
patching and typing than your solution, though.

Ciao
-- 
 Frank Barknecht                 _ ______footils.org_ __goto10.org__
-------------- next part --------------
#N canvas 0 0 450 300 10;
#X obj 186 153 outlet;
#X obj 186 97 r \$1;
#X obj 186 126 == \$2;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
-------------- next part --------------
#N canvas 331 280 558 300 10;
#X obj 61 99 exclusive \$0-GEM 1;
#X obj 61 121 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 86 144 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 111 167 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 134 188 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 158 210 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 86 122 exclusive \$0-GEM 2;
#X obj 111 145 exclusive \$0-GEM 3;
#X obj 134 166 exclusive \$0-GEM 4;
#X obj 158 188 exclusive \$0-GEM 5;
#X obj 179 234 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 200 259 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 38 95 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 38 74 exclusive \$0-GEM 0;
#X obj 179 212 exclusive \$0-GEM 6;
#X obj 200 237 exclusive \$0-GEM 7;
#X obj 308 75 hradio 15 1 0 8 empty empty empty 0 -6 0 8 -262144 -1
-1 1;
#X obj 308 98 s \$0-GEM;
#X connect 0 0 1 0;
#X connect 6 0 2 0;
#X connect 7 0 3 0;
#X connect 8 0 4 0;
#X connect 9 0 5 0;
#X connect 13 0 12 0;
#X connect 14 0 10 0;
#X connect 15 0 11 0;
#X connect 16 0 17 0;