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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
#N canvas 1 88 595 504 10;
#X obj 94 346 sieve;
#X msg 147 276 set 2 1;
#X msg 198 276 set 7 0.86;
#X msg 148 198 map 0 1 0 0 0 3 0 2 0 0.7;
#X msg 147 229 get 0;
#X msg 147 250 get 1;
#X floatatom 37 384 5 0 0 0 - - -;
#X floatatom 81 382 5 0 0 0 - - -;
#X obj 129 379 print MAPOUT;
#X obj 218 379 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 218 397 print EXACT;
#X obj 37 419 print MAPPED;
#X obj 81 399 print VALUE;
#X msg 147 324 clear;
#X text 189 228 get map;
#X text 189 249 get inverted map;
#X floatatom 309 406 5 0 0 0 - - -;
#X floatatom 350 406 5 0 0 0 - - -;
#X obj 341 363 prepend map;
#X obj 395 405 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 189 323 clear object;
#X text 277 277 set [location \, value];
#X msg 147 297 set 2 0;
#X text 201 297 unset location;
#X text 332 196 set map;
#X floatatom 35 318 5 0 0 0 - - -;
#X obj 29 184 vradio 15 1 0 4 empty empty mode 0 -6 0 10 -262144 -1
-1 0;
#X msg 29 248 mode \$1;
#X text 62 170 : 0=exact \, 1=nearest \, 2=shunt up \, 3=shunt down
;
#X obj 341 383 sieve;
#X obj 22 19 sieve;
#X text 62 19 takes integers and maps them to floats if they are set.
;
#X text 63 32 in the default mode (mode 0) integers without an associated
float are blocked \, so a map will sieve the input.;
#X text 64 60 mode 1 forces the sieve to choose the nearest index \,
so that inputs are sent to alternative outputs. The rightmost output
bangs only if the input is exact.;
#X text 64 101 In modes 2 and 3 the sieve chooses the next map up or
the next map down. If the input is higher than the highest mapped integer
in mode 2 \, or lower than the lowest in mode 3 \, then the shunting
is wrapped and the lowest or highest is chosen respectively.;
#X text 294 330 when the inverted map is sent to another;
#X text 298 344 sieve object \, the input is segregated.;
#X text 38 440 Polyphony control objects by Ed Kelly \, November 2006
;
#X text 411 439 See also;
#X obj 476 438 polymap;
#X obj 476 417 polystat;
#X obj 532 438 maskxor;
#X obj 410 181 loadbang;
#X obj 410 233 delay 50;
#N canvas 0 0 596 300 register_functions 0;
#X obj 99 208 sieve;
#X msg 99 83 map 0 1 2 4 5 6 7 9 10 11 12;
#X obj 99 47 loadbang;
#X msg 157 166 get 0;
#X msg 254 125 delete 8;
#X msg 255 167 shunt 5;
#X obj 194 166 delay 0;
#X msg 194 149 bang;
#X msg 254 241 insert 7 100;
#X msg 256 203 shift 5;
#X obj 125 269 print REGMAP;
#X floatatom 38 166 5 0 0 0 - - -;
#X floatatom 35 257 5 0 0 0 - - -;
#X msg 160 57 map 1 1 1 1 1 1 1 1 1 1 1 1;
#X text 324 124 removes an element from the array;
#X text 318 166 removes an element from the array and;
#X text 319 178 subtracts 1 from subsequent elements;
#X text 320 201 shifts elements downstream \, adding 1;
#X text 319 213 to each element \, from a specific point;
#X text 349 242 inserts an element into the array;
#X connect 0 0 12 0;
#X connect 0 2 10 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 4 0 7 0;
#X connect 5 0 0 0;
#X connect 5 0 7 0;
#X connect 6 0 3 0;
#X connect 7 0 6 0;
#X connect 8 0 0 0;
#X connect 8 0 7 0;
#X connect 9 0 0 0;
#X connect 9 0 7 0;
#X connect 11 0 0 0;
#X connect 13 0 0 0;
#X restore 325 298 pd register_functions;
#N canvas 377 262 494 344 META 0;
#X text 12 195 HELP_PATCH_AUTHORS Ed Kelly. Revised by Jonathan Wilkes
for Pd-extended 0.42 to conform to the PDDP template.;
#X text 12 25 LICENSE GPL v3;
#X text 12 175 AUTHOR Ed Kelly <morph_2016@yahoo.co.uk>;
#X text 12 75 INLET_0 signal;
#X text 12 95 INLET_1 float;
#X text 12 115 INLET_2 float;
#X text 12 135 OUTLET_0 list;
#X text 12 155 OUTLET_1 list;
#X text 12 5 KEYWORDS signal;
#X text 12 45 DESCRIPTION takes integers and maps them to floats if
they are set;
#X restore 538 474 pd META;
#X connect 0 0 6 0;
#X connect 0 1 7 0;
#X connect 0 2 8 0;
#X connect 0 2 18 0;
#X connect 0 3 9 0;
#X connect 1 0 0 0;
#X connect 2 0 0 0;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 5 0 0 0;
#X connect 6 0 11 0;
#X connect 7 0 12 0;
#X connect 9 0 10 0;
#X connect 13 0 0 0;
#X connect 13 0 18 0;
#X connect 18 0 29 0;
#X connect 22 0 0 0;
#X connect 25 0 0 0;
#X connect 25 0 29 0;
#X connect 26 0 27 0;
#X connect 27 0 0 0;
#X connect 29 0 16 0;
#X connect 29 1 17 0;
#X connect 29 3 19 0;
#X connect 42 0 3 0;
#X connect 42 0 43 0;
#X connect 43 0 5 0;
|
