blob: 23fd1b7b73bbfdf2d66c3f29dc3c4da302d6a161 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
#N canvas 0 0 665 304 10;
#X obj 368 207 maskxor;
#X obj 457 63 t b b;
#X msg 38 157 bang;
#X floatatom 390 247 5 0 0 0 - - -;
#X floatatom 368 264 5 0 0 0 - - -;
#X floatatom 254 122 5 0 0 0 - - -;
#X msg 457 46 bang;
#X msg 457 80 listl 1 1 0 0 0 1 1;
#X msg 500 97 listr 0 1 1 0 2 1 0;
#X text 39 56 Maskxor takes two lists - listr and listl \, to set up
a map where map = listl ^ listr.;
#X text 37 93 Floats will only pass through if map[(int)float] > 0
\, so if the corresponding element is greater than zero in either listl
\, or listr \, but not both.;
#X text 76 148 outputs the map \, the xor-ed element and (if this is
greater than zero) the last float in.;
#X obj 412 227 print MASK;
#X text 41 22 Maskxor - exclusive-OR mask map by Edward Kelly. This
is GNU software.;
#X msg 39 193 clear;
#X text 79 192 resets the object;
#X text 29 283 Polyphony control objects by Ed Kelly November 2006
;
#X text 397 282 See also;
#X obj 458 280 sieve;
#X obj 501 280 polymap;
#X obj 558 280 polystat;
#X connect 0 0 4 0;
#X connect 0 1 3 0;
#X connect 0 2 12 0;
#X connect 1 0 7 0;
#X connect 1 1 8 0;
#X connect 2 0 0 0;
#X connect 5 0 0 0;
#X connect 6 0 1 0;
#X connect 7 0 0 0;
#X connect 8 0 0 0;
#X connect 14 0 0 0;
|
