[PD] switch16 abstraction

[Frank Barknecht]

Hallo,
padawan12 hat gesagt: // padawan12 wrote:

> Cool. I was struggling with a mutex switch until Frank put me right
> with a diagonal message matrix. I like the use of the array, but I
> cant help thinking, is the intermediate storage really needed?
> Couldn't it be done in two operations, zero everything and then
> just route the 1 to the channel that should be on?

This would work as well, e.g. as in attached construct. You can test
with the previous patch by David.

Ciao
-- 
 Frank Barknecht                 _ ______footils.org_ __goto10.org__
-------------- next part --------------
#N canvas 259 359 922 505 10;
#X obj 67 19 inlet;
#X obj 6 402 outlet;
#X obj 98 350 unpack 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X obj 60 402 outlet;
#X obj 114 402 outlet;
#X obj 168 402 outlet;
#X obj 222 402 outlet;
#X obj 276 402 outlet;
#X obj 330 402 outlet;
#X obj 384 402 outlet;
#X obj 438 402 outlet;
#X obj 492 402 outlet;
#X obj 547 402 outlet;
#X obj 601 402 outlet;
#X obj 655 402 outlet;
#X obj 709 402 outlet;
#X obj 763 402 outlet;
#X obj 817 402 outlet;
#X obj 67 54 route clear;
#X obj 162 185 until;
#X obj 162 211 f 0;
#X obj 197 212 + 1;
#X obj 204 186 0;
#X obj 162 238 ==;
#X obj 162 263 list prepend;
#X obj 256 262 t a;
#X obj 139 292 list;
#X obj 139 118 t b b f b b;
#X obj 162 160 16;
#X msg 98 86 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X text 253 190 count to 15 and compare;
#X text 295 264 build list;
#X connect 0 0 18 0;
#X connect 2 0 1 0;
#X connect 2 1 3 0;
#X connect 2 2 4 0;
#X connect 2 3 5 0;
#X connect 2 4 6 0;
#X connect 2 5 7 0;
#X connect 2 6 8 0;
#X connect 2 7 9 0;
#X connect 2 8 10 0;
#X connect 2 9 11 0;
#X connect 2 10 12 0;
#X connect 2 11 13 0;
#X connect 2 12 14 0;
#X connect 2 13 15 0;
#X connect 2 14 16 0;
#X connect 2 15 17 0;
#X connect 18 0 29 0;
#X connect 18 1 27 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 20 0 23 0;
#X connect 21 0 20 1;
#X connect 22 0 20 1;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 24 0 26 1;
#X connect 25 0 24 1;
#X connect 26 0 2 0;
#X connect 27 0 26 0;
#X connect 27 1 28 0;
#X connect 27 2 23 1;
#X connect 27 3 22 0;
#X connect 27 4 24 1;
#X connect 28 0 19 0;
#X connect 29 0 2 0;