/usr/lib/pd/extra/rtc/check-row.pd is in pd-rtclib 4.1-1.
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 | #N canvas 206 76 245 241 10;
#X declare -lib libdir -lib list-abs;
#X declare -lib zexy;
#X obj 46 46 inlet;
#N canvas 392 183 418 355 length-check 0;
#X obj 40 51 inlet;
#X text 85 49 checks if list length is 12;
#X obj 40 291 outlet;
#X obj 91 291 outlet;
#X msg 149 232 wrong length (must be 12);
#X obj 40 70 t a a;
#X obj 40 183 list;
#X obj 40 90 list length;
#X obj 149 259 print :check-row;
#X obj 40 132 == 12;
#X obj 40 158 select 1;
#X obj 91 180 b;
#X connect 0 0 5 0;
#X connect 4 0 8 0;
#X connect 5 0 7 0;
#X connect 5 1 6 1;
#X connect 6 0 2 0;
#X connect 7 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 6 0;
#X connect 10 1 11 0;
#X connect 11 0 4 0;
#X connect 11 0 3 0;
#X restore 46 81 pd length-check;
#N canvas 63 50 499 419 tone-check 0;
#X obj 102 340 outlet;
#X obj 51 341 outlet;
#X obj 51 43 inlet;
#X obj 51 88 normalize-row;
#X obj 51 116 sum;
#X msg 162 305 does not contain all 12 pitch classes!;
#X obj 51 204 list;
#X obj 51 66 t a a;
#X obj 51 147 == 66;
#X obj 51 176 select 1;
#X obj 102 202 b;
#X obj 162 342 print :check-row;
#X connect 2 0 7 0;
#X connect 3 0 4 0;
#X connect 4 0 8 0;
#X connect 5 0 11 0;
#X connect 6 0 1 0;
#X connect 7 0 3 0;
#X connect 7 1 6 1;
#X connect 8 0 9 0;
#X connect 9 0 6 0;
#X connect 9 1 10 0;
#X connect 10 0 5 0;
#X connect 10 0 0 0;
#X restore 46 121 pd tone-check;
#X obj 46 160 outlet;
#X obj 146 165 outlet;
#X text 45 185 1994 by Karlheinz Essl;
#X obj 49 214 declare -lib zexy;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 4 0;
#X connect 2 0 3 0;
#X connect 2 1 4 0;
|