/usr/lib/pd/extra/rtc/anti-octave.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 65 66 67 68 69 70 71 72 73 74 75 | #N canvas 489 359 430 293 10;
#X obj 30 197 outlet;
#X obj 88 197 outlet;
#X obj 30 47 inlet;
#X text 104 129 check for octaves;
#X text 104 72 check for repeated notes;
#X text 59 219 1993 by Karlheinz Essl;
#X obj 30 99 t a a;
#N canvas 0 0 637 374 check1 0;
#X obj 144 113 int;
#X obj 117 112 int;
#X obj 117 155 !=;
#X obj 118 177 select 1 0;
#X obj 118 210 int;
#X obj 117 76 t a b a a;
#X obj 149 212 int;
#X text 283 133 if ($i1!=$i2) then $i1 else out2 $i1;
#X obj 117 47 inlet;
#X obj 203 44 inlet;
#X obj 120 244 outlet;
#X obj 174 245 outlet;
#X connect 0 0 2 1;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 6 0;
#X connect 4 0 10 0;
#X connect 5 0 1 0;
#X connect 5 1 0 0;
#X connect 5 2 4 1;
#X connect 5 3 6 1;
#X connect 6 0 11 0;
#X connect 8 0 5 0;
#X connect 9 0 0 1;
#X restore 30 76 pd check1;
#N canvas 0 0 637 374 check2 0;
#X obj 144 113 int;
#X obj 117 112 int;
#X obj 117 270 int;
#X obj 117 76 t a b a a;
#X obj 117 47 inlet;
#X obj 203 44 inlet;
#X obj 117 305 outlet;
#X obj 173 305 outlet;
#X text 259 123 if ($i1-$i2)%12==0 then out2 bang else $i1;
#X obj 117 155 -;
#X obj 117 190 % 12;
#X obj 117 214 == 0;
#X obj 173 281 bang;
#X obj 117 237 select 0 1;
#X connect 0 0 9 1;
#X connect 1 0 9 0;
#X connect 2 0 6 0;
#X connect 3 0 1 0;
#X connect 3 1 0 0;
#X connect 3 2 2 1;
#X connect 4 0 3 0;
#X connect 5 0 0 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 13 0;
#X connect 12 0 7 0;
#X connect 13 0 2 0;
#X connect 13 1 12 0;
#X restore 30 130 pd check2;
#X obj 30 153 t a a;
#X connect 2 0 7 0;
#X connect 6 0 8 0;
#X connect 6 1 7 1;
#X connect 7 0 6 0;
#X connect 7 1 0 0;
#X connect 8 0 9 0;
#X connect 8 1 1 0;
#X connect 9 0 0 0;
#X connect 9 1 8 1;
|