pcs-invert-help.pd

#N canvas 2 23 556 530 10;
#X obj -26 0 cnv 15 552 40 empty \$0-pddp.cnv.header pcs-invert 3 12
0 18 -204280 -1 0;
#X obj -26 302 cnv 3 550 3 empty \$0-pddp.cnv.inlets inlets 8 12 0
13 -228856 -1 0;
#X obj -26 380 cnv 3 550 3 empty \$0-pddp.cnv.outlets outlets 8 12
0 13 -228856 -1 0;
#X obj 52 311 cnv 17 3 65 empty \$0-pddp.cnv.let.0 0 5 9 0 16 -228856
-162280 0;
#X text 72 310 list;
#X text 142 310 - list that is interpreted as a pitch-class set \,
that is \, a list containing non-duplicate integers in range 0-11.
;
#X obj 110 171 tgl 15 0 pc0 empty empty 17 7 0 10 -262144 -1 -1 0 12
;
#X text 114 152 0;
#N canvas 69 257 551 412 make-set 0;
#X obj 17 26 r pc0;
#X obj 55 26 r pc1;
#X obj 55 50 t b f;
#X obj 17 168 pack 0 0 0 0 0 0 0 0 0 0 0 0;
#X obj 95 50 t b f;
#X obj 95 26 r pc2;
#X obj 135 50 t b f;
#X obj 175 50 t b f;
#X obj 135 26 r pc3;
#X obj 175 26 r pc4;
#X obj 215 50 t b f;
#X obj 255 50 t b f;
#X obj 295 50 t b f;
#X obj 335 50 t b f;
#X obj 215 26 r pc5;
#X obj 255 26 r pc6;
#X obj 295 26 r pc7;
#X obj 335 26 r pc8;
#X obj 375 50 t b f;
#X obj 415 50 t b f;
#X obj 465 50 t b f;
#X obj 375 26 r pc9;
#X obj 415 26 r pc10;
#X obj 465 26 r pc11;
#X obj 101 316 add2list prepend;
#X obj 80 363 list;
#X obj -22 303 f 0;
#X obj 8 303 + 1;
#X obj -22 326 sel 11;
#X msg -7 239 0;
#X obj 17 189 t l b;
#X obj 80 384 outlet;
#X obj 35 249 t b f;
#X obj 101 294 mod 12;
#X obj 62 272 moses 1;
#X obj 35 228 list-dripv;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 1 3 1;
#X connect 3 0 30 0;
#X connect 4 0 3 0;
#X connect 4 1 3 2;
#X connect 5 0 4 0;
#X connect 6 0 3 0;
#X connect 6 1 3 3;
#X connect 7 0 3 0;
#X connect 7 1 3 4;
#X connect 8 0 6 0;
#X connect 9 0 7 0;
#X connect 10 0 3 0;
#X connect 10 1 3 5;
#X connect 11 0 3 0;
#X connect 11 1 3 6;
#X connect 12 0 3 0;
#X connect 12 1 3 7;
#X connect 13 0 3 0;
#X connect 13 1 3 8;
#X connect 14 0 10 0;
#X connect 15 0 11 0;
#X connect 16 0 12 0;
#X connect 17 0 13 0;
#X connect 18 0 3 0;
#X connect 18 1 3 9;
#X connect 19 0 3 0;
#X connect 19 1 3 10;
#X connect 20 0 3 0;
#X connect 20 1 3 11;
#X connect 21 0 18 0;
#X connect 22 0 19 0;
#X connect 23 0 20 0;
#X connect 24 0 25 1;
#X connect 25 0 31 0;
#X connect 26 0 28 0;
#X connect 26 0 27 0;
#X connect 27 0 26 1;
#X connect 28 0 25 0;
#X connect 29 0 26 1;
#X connect 30 0 35 0;
#X connect 30 1 24 1;
#X connect 30 1 29 0;
#X connect 32 0 26 0;
#X connect 32 1 34 0;
#X connect 33 0 24 0;
#X connect 34 1 33 0;
#X connect 35 0 32 0;
#X restore 193 215 pd make-set;
#X obj 130 171 tgl 15 0 pc1 empty empty 17 7 0 10 -262144 -1 -1 0 1
;
#X text 133 152 1;
#X obj 150 171 tgl 15 0 pc2 empty empty 17 7 0 10 -262144 -1 -1 0 2
;
#X obj 170 171 tgl 15 0 pc3 empty empty 17 7 0 10 -262144 -1 -1 0 3
;
#X text 154 152 2;
#X text 173 152 3;
#X obj 190 171 tgl 15 0 pc4 empty empty 17 7 0 10 -262144 -1 -1 0 4
;
#X obj 210 171 tgl 15 0 pc5 empty empty 17 7 0 10 -262144 -1 -1 0 5
;
#X obj 230 171 tgl 15 0 pc6 empty empty 17 7 0 10 -262144 -1 -1 0 6
;
#X obj 250 171 tgl 15 0 pc7 empty empty 17 7 0 10 -262144 -1 -1 0 7
;
#X text 194 152 4;
#X text 213 152 5;
#X text 234 152 6;
#X text 253 152 7;
#X obj 270 171 tgl 15 0 pc8 empty empty 17 7 0 10 -262144 -1 -1 0 8
;
#X obj 290 171 tgl 15 0 pc9 empty empty 17 7 0 10 -262144 -1 -1 0 9
;
#X obj 310 171 tgl 15 0 pc10 empty empty 17 7 0 10 -262144 -1 -1 0
10;
#X obj 330 171 tgl 15 0 pc11 empty empty 17 7 0 10 -262144 -1 -1 0
11;
#X text 274 152 8;
#X text 293 152 9;
#X text 310 152 10;
#X text 331 152 11;
#X text 72 388 list;
#X text 77 82 You might want to have a look to Forte's "The Structure
of Atonal Music" (Yale University Press \, 1973).;
#X text 107 128 TYPE IN A PITCH-CLASS SET:;
#X obj 193 265 print;
#X obj 193 240 pcs-invert;
#X text -25 23 inverts a pitch-class set on a horizontal axis;
#X text 75 50 Returns an inverted version (i.e. mirrored down across
zero) of an incoming pitch-class set.;
#X text 142 388 - inversion of the incoming pitch-class set.;
#X obj -26 505 cnv 15 552 21 empty \$0-pddp.cnv.footer empty 20 12
0 14 -228856 -66577 0;
#X obj -26 458 cnv 3 550 3 empty \$0-pddp.cnv.argument arguments 8
12 0 13 -228856 -1 0;
#X obj -20 506 pddplink https://github.com/angelfaraldo/pd-symbolic
;
#X text 308 506 angelfaraldo@gmail.com \, 2015-2016;
#X obj 52 389 cnv 17 3 65 empty \$0-pddp.cnv.let.0 0 5 9 0 16 -228856
-162280 0;
#X connect 8 0 35 0;
#X connect 35 0 34 0;