/usr/lib/pd/extra/rtc/scale-changer.pd is in pd-rtclib 4.1-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | #N canvas 276 114 643 450 10;
#X declare -lib libdir -lib list-abs;
#X declare -lib libdir -lib list-abs;
#X declare -lib libdir -lib list-abs;
#X obj 92 85 random 12;
#N canvas 358 118 519 418 input-check 0;
#X obj 80 254 outlet;
#X obj 80 26 inlet;
#X obj 80 79 listlen;
#X obj 80 140 sel 1;
#X msg 140 228 size of input list must be 12!;
#X obj 80 55 t a a;
#X obj 80 228 list;
#X obj 80 193 b;
#X obj 80 110 == 12;
#X obj 140 255 print :scale-changer;
#X connect 1 0 5 0;
#X connect 2 0 8 0;
#X connect 3 0 7 0;
#X connect 3 1 4 0;
#X connect 4 0 9 0;
#X connect 5 0 2 0;
#X connect 5 1 6 1;
#X connect 6 0 0 0;
#X connect 7 0 6 0;
#X connect 8 0 3 0;
#X restore 251 62 pd input-check;
#X obj 92 31 inlet;
#X obj 251 34 inlet;
#X obj 92 276 multiple;
#X obj 289 276 outlet;
#X msg 92 245 0 1 2 3 4 5 6 7 8 9 10 11;
#X text 151 374 1996 by Karlheinz Essl;
#X obj 92 373 outlet;
#N canvas 63 50 225 285 check-listlen 0;
#X obj 123 227 outlet;
#X obj 64 230 outlet;
#X obj 64 172 sel 1;
#X obj 64 118 > 1;
#X obj 64 58 t l l;
#X obj 64 33 inlet;
#X obj 64 206 list;
#X obj 64 89 list length;
#X obj 123 203 b;
#X connect 2 0 6 0;
#X connect 2 1 8 0;
#X connect 3 0 2 0;
#X connect 4 0 7 0;
#X connect 4 1 6 1;
#X connect 5 0 4 0;
#X connect 6 0 1 0;
#X connect 7 0 3 0;
#X connect 8 0 0 0;
#X restore 92 309 pd check-listlen;
#X text 226 305 pitch class lists with less then two members are not
allowed!;
#X obj 92 344 list-round;
#X obj 92 58 b;
#X obj 358 206 table \$0-scale 12;
#X obj 280 140 s \$0-scale;
#X obj 280 112 list prepend 0;
#N canvas 0 50 428 352 flip 0;
#X obj 73 115 tabread \$0-scale;
#X obj 73 141 select 0 1;
#X obj 51 59 inlet;
#X obj 73 172 1;
#X obj 105 171 0;
#X obj 73 238 tabwrite \$0-scale;
#X obj 51 89 t b a a;
#X obj 51 268 outlet;
#X text 154 169 flips one bit in a table;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 1 1 4 0;
#X connect 2 0 6 0;
#X connect 3 0 5 0;
#X connect 4 0 5 0;
#X connect 6 0 7 0;
#X connect 6 1 0 0;
#X connect 6 2 5 1;
#X restore 92 118 pd flip;
#N canvas 0 50 497 396 dump-table 0;
#X obj 86 35 inlet;
#X obj 109 111 until;
#X obj 109 137 f 0;
#X obj 139 138 + 1;
#X obj 154 112 0;
#X obj 109 90 12;
#X obj 86 66 t b b b b;
#X obj 109 184 list prepend;
#X obj 202 185 t a;
#X obj 86 220 list;
#X obj 86 250 outlet;
#X obj 109 161 tabread \$0-scale;
#X text 153 224 == tabdump \$0-scale;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 11 0;
#X connect 3 0 2 1;
#X connect 4 0 2 1;
#X connect 5 0 1 0;
#X connect 6 0 9 0;
#X connect 6 1 5 0;
#X connect 6 2 4 0;
#X connect 6 3 7 1;
#X connect 7 0 8 0;
#X connect 7 0 9 1;
#X connect 8 0 7 1;
#X connect 9 0 10 0;
#X connect 11 0 7 0;
#X restore 92 144 pd dump-table;
#X obj 92 167 t b a a;
#X obj 251 92 t a a;
#X text 153 392 Pd: 2006 Frank Barknecht;
#X obj 94 415 declare -lib libdir -lib list-abs;
#X connect 0 0 16 0;
#X connect 1 0 19 0;
#X connect 2 0 12 0;
#X connect 3 0 1 0;
#X connect 4 0 9 0;
#X connect 6 0 4 0;
#X connect 9 0 11 0;
#X connect 9 1 12 0;
#X connect 11 0 8 0;
#X connect 12 0 0 0;
#X connect 15 0 14 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 6 0;
#X connect 18 1 4 1;
#X connect 18 2 5 0;
#X connect 19 0 18 0;
#X connect 19 1 15 0;
|