/usr/lib/pd/extra/pmpd/examples/51_string~.pd is in pd-pmpd 0.9-5.
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 135 136 137 138 | #N canvas 423 238 487 445 10;
#X floatatom 32 12 0 0 0 0 - - -;
#N canvas 0 0 454 304 cpu 0;
#X obj 61 159 cputime;
#X obj 61 19 loadbang;
#X obj 61 103 metro 1000;
#X msg 61 47 1;
#X floatatom 61 75 0 0 0 0 - - -;
#X obj 61 131 t b b;
#X obj 61 219 * 0.1;
#X obj 61 188 int;
#X text 106 75 <-- on/off;
#X obj 61 246 outlet;
#X connect 0 0 7 0;
#X connect 1 0 3 0;
#X connect 2 0 5 0;
#X connect 3 0 4 0;
#X connect 4 0 2 0;
#X connect 5 0 0 0;
#X connect 5 1 0 1;
#X connect 6 0 9 0;
#X connect 7 0 6 0;
#X restore 32 -14 pd cpu;
#X obj 89 219 tabwrite~ array99;
#X msg 80 14 \; pd dsp 1 \;;
#X obj 80 -14 loadbang;
#X obj 26 221 dac~;
#X obj 27 171 hip~ 20;
#N canvas 0 0 450 300 (subpatch) 0;
#X array array99 3000 float 0;
#X coords 0 1 2999 -1 150 100 1;
#X restore 49 257 graph;
#N canvas 0 0 531 530 corde 0;
#X obj 86 32 t b b b b;
#X msg 143 71 reset;
#X obj 92 4 inlet;
#X obj 141 409 outlet;
#X obj 72 270 pack f f;
#X obj 83 200 t f f;
#X obj 108 223 + 1;
#X text 254 75 number of masss on the string;
#X obj 144 220 + 1;
#X obj 104 112 + 1;
#N canvas 0 0 454 304 uzi 0;
#X obj 70 50 inlet;
#X obj 70 154 f;
#X obj 95 129 + 1;
#X msg 67 103 0;
#X obj 71 199 moses;
#X obj 69 74 t b f;
#X obj 71 232 outlet;
#X connect 0 0 5 0;
#X connect 1 0 4 0;
#X connect 2 0 1 0;
#X connect 3 0 1 0;
#X connect 4 0 2 0;
#X connect 4 0 6 0;
#X connect 5 0 3 0;
#X connect 5 1 4 1;
#X restore 83 160 pd uzi;
#N canvas 0 0 454 304 uzi 0;
#X obj 70 50 inlet;
#X obj 70 154 f;
#X obj 95 129 + 1;
#X msg 67 103 0;
#X obj 71 199 moses;
#X obj 69 74 t b f;
#X obj 71 232 outlet;
#X connect 0 0 5 0;
#X connect 1 0 4 0;
#X connect 2 0 1 0;
#X connect 3 0 1 0;
#X connect 4 0 2 0;
#X connect 4 0 6 0;
#X connect 5 0 3 0;
#X connect 5 1 4 1;
#X restore 138 156 pd uzi;
#X obj 137 127 20;
#X obj 86 136 21;
#X obj 109 244 % 21;
#X msg 221 78 50;
#X msg 149 181 mass 20 1;
#X msg 69 297 link \$1 \$2 0.1 0.03;
#X msg 204 360 inForce 0 3 1;
#X msg 206 332 outPos 0 7 1;
#X connect 0 0 19 0;
#X connect 0 0 18 0;
#X connect 0 1 13 0;
#X connect 0 2 12 0;
#X connect 0 3 1 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X connect 4 0 17 0;
#X connect 5 0 4 0;
#X connect 5 1 6 0;
#X connect 6 0 14 0;
#X connect 8 0 14 1;
#X connect 9 0 13 1;
#X connect 10 0 5 0;
#X connect 11 0 16 0;
#X connect 12 0 11 0;
#X connect 13 0 10 0;
#X connect 14 0 4 1;
#X connect 15 0 8 0;
#X connect 15 0 9 0;
#X connect 15 0 12 1;
#X connect 16 0 3 0;
#X connect 17 0 3 0;
#X connect 18 0 3 0;
#X connect 19 0 3 0;
#X restore 28 96 pd corde;
#X obj 28 74 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 89 193 metro 100;
#X obj 89 167 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 115 170 loadbang;
#X obj 28 122 pmpd~ 1 1;
#X obj 45 74 loadbang;
#X obj 111 97 line~;
#X msg 111 71 0.05 \, 0 1;
#X obj 28 146 *~ 0.7;
#X text 190 70 <- send a force to a point of the string;
#X connect 1 0 0 0;
#X connect 4 0 3 0;
#X connect 6 0 2 0;
#X connect 6 0 5 0;
#X connect 6 0 5 1;
#X connect 8 0 13 0;
#X connect 9 0 8 0;
#X connect 10 0 2 0;
#X connect 11 0 10 0;
#X connect 12 0 10 0;
#X connect 13 0 17 0;
#X connect 14 0 8 0;
#X connect 15 0 13 0;
#X connect 16 0 15 0;
#X connect 17 0 6 0;
|