/usr/lib/pd/extra/nusmuk-audio/distortion~.pd is in pd-nusmuk 20151113+repack-3.
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 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 | #N canvas 182 95 622 419 10;
#X obj 30 129 +~ 5000;
#X obj 29 27 inlet~;
#X obj 31 153 tabread4~ \$0-disto;
#X obj 160 29 inlet~;
#X obj 29 102 *~;
#X obj 160 49 *~ 5000;
#X obj 160 129 +~ 5000;
#X obj 160 153 tabread4~ \$0-disto;
#X obj 30 229 outlet~;
#X obj 294 337 table \$0-disto 10000;
#X obj 31 197 /~;
#X obj 160 71 +~ 100;
#N canvas 25 446 450 300 sqrt 0;
#X obj 20 63 t b b;
#X obj 20 159 f;
#X obj 63 159 + 1;
#X msg 47 136 0;
#X obj 20 104 until;
#X obj 20 44 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 20 219 - 0.5;
#X obj 20 259 t f f f;
#X obj 39 280 *;
#X obj 39 300 + 1;
#X obj 39 320 sqrt;
#X obj 20 340 /;
#X obj 20 239 * 20;
#X obj 20 199 / 9999;
#X msg 20 83 10000;
#X obj 20 179 t f f;
#X obj 20 360 tabwrite \$0-disto;
#X obj 20 18 inlet;
#X connect 0 0 14 0;
#X connect 0 1 3 0;
#X connect 1 0 2 0;
#X connect 1 0 15 0;
#X connect 2 0 1 1;
#X connect 3 0 1 1;
#X connect 4 0 1 0;
#X connect 5 0 0 0;
#X connect 6 0 12 0;
#X connect 7 0 11 0;
#X connect 7 1 8 0;
#X connect 7 2 8 1;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 1;
#X connect 11 0 16 0;
#X connect 12 0 7 0;
#X connect 13 0 6 0;
#X connect 14 0 4 0;
#X connect 15 0 13 0;
#X connect 15 1 16 1;
#X connect 17 0 5 0;
#X restore 313 169 pd sqrt;
#X obj 313 151 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 1 83 640 460 sigmoid 0;
#X obj 23 59 t b b;
#X obj 23 148 f;
#X obj 61 148 + 1;
#X msg 50 125 0;
#X obj 23 102 until;
#X obj 23 40 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 23 213 - 0.5;
#X obj 23 276 - 0.5;
#X obj 23 298 * 2;
#X obj 23 319 tabwrite \$0-disto;
#X msg 23 81 10000;
#X obj 23 192 / 9999;
#X obj 23 234 * 30;
#X obj 23 171 t f f;
#X obj 23 255 expr ( exp($f1)) / ( 1 + exp($f1));
#X obj 23 15 inlet;
#X connect 0 0 10 0;
#X connect 0 1 3 0;
#X connect 1 0 2 0;
#X connect 1 0 13 0;
#X connect 2 0 1 1;
#X connect 3 0 1 1;
#X connect 4 0 1 0;
#X connect 5 0 0 0;
#X connect 6 0 12 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 10 0 4 0;
#X connect 11 0 6 0;
#X connect 12 0 14 0;
#X connect 13 0 11 0;
#X connect 13 1 9 1;
#X connect 14 0 7 0;
#X connect 15 0 5 0;
#X restore 298 131 pd sigmoid;
#X obj 298 112 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 0 0 739 509 x_over_xplus 0;
#X obj 17 58 t b b;
#X obj 17 141 f;
#X obj 55 141 + 1;
#X msg 44 118 0;
#X obj 17 96 until;
#X obj 17 39 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 17 315 /;
#X obj 44 269 abs;
#X obj 44 248 * 2;
#X obj 17 208 - 0.5;
#X obj 44 290 + 0.1;
#X msg 17 77 10000;
#X obj 17 189 / 9999;
#X obj 17 359 tabwrite \$0-disto;
#X obj 17 337 * 2;
#X obj 17 228 t f f;
#X obj 17 167 t f f;
#X obj 17 16 inlet;
#X connect 0 0 11 0;
#X connect 0 1 3 0;
#X connect 1 0 2 0;
#X connect 1 0 16 0;
#X connect 2 0 1 1;
#X connect 3 0 1 1;
#X connect 4 0 1 0;
#X connect 5 0 0 0;
#X connect 6 0 14 0;
#X connect 7 0 10 0;
#X connect 8 0 7 0;
#X connect 9 0 15 0;
#X connect 10 0 6 1;
#X connect 11 0 4 0;
#X connect 12 0 9 0;
#X connect 14 0 13 0;
#X connect 15 0 6 0;
#X connect 15 1 8 0;
#X connect 16 0 12 0;
#X connect 16 1 13 1;
#X connect 17 0 5 0;
#X restore 328 214 pd x_over_xplus;
#X obj 328 194 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 0 0 588 371 poly 0;
#X obj 16 14 inlet;
#X obj 16 55 t b b;
#X obj 16 140 f;
#X obj 54 140 + 1;
#X msg 43 117 0;
#X obj 16 98 until;
#X obj 16 36 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 16 209 - 0.5;
#X obj 16 253 expr exp(-$f1*$f1)*($f1+pow($f1 \, 3)*2/3 + pow($f1 \,
5)*4/15);
#X obj 16 275 tabwrite \$0-disto;
#X obj 16 188 / 9999;
#X msg 16 76 10000;
#X obj 16 165 t f f;
#X obj 16 231 * 2;
#X connect 0 0 6 0;
#X connect 1 0 11 0;
#X connect 1 1 4 0;
#X connect 2 0 3 0;
#X connect 2 0 12 0;
#X connect 3 0 2 1;
#X connect 4 0 2 1;
#X connect 5 0 2 0;
#X connect 6 0 1 0;
#X connect 7 0 13 0;
#X connect 8 0 9 0;
#X connect 10 0 7 0;
#X connect 11 0 5 0;
#X connect 12 0 10 0;
#X connect 12 1 9 1;
#X connect 13 0 8 0;
#X restore 345 258 pd poly;
#X obj 345 238 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 298 32 inlet;
#X obj 337 32 loadbang;
#X obj 298 84 sel 0 1 2 3 4;
#X obj 359 283 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 615 471 640 460 cos 0;
#X obj 23 59 t b b;
#X obj 23 148 f;
#X obj 61 148 + 1;
#X msg 50 125 0;
#X obj 23 102 until;
#X obj 23 40 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 23 319 tabwrite \$0-disto;
#X msg 23 81 10000;
#X obj 23 192 / 9999;
#X obj 23 171 t f f;
#X obj 23 15 inlet;
#X obj 23 255 cos;
#X obj 23 234 * 3.14;
#X obj 23 280 * -1;
#X connect 0 0 7 0;
#X connect 0 1 3 0;
#X connect 1 0 2 0;
#X connect 1 0 9 0;
#X connect 2 0 1 1;
#X connect 3 0 1 1;
#X connect 4 0 1 0;
#X connect 5 0 0 0;
#X connect 7 0 4 0;
#X connect 8 0 12 0;
#X connect 9 0 8 0;
#X connect 9 1 6 1;
#X connect 10 0 5 0;
#X connect 11 0 13 0;
#X connect 12 0 11 0;
#X connect 13 0 6 0;
#X restore 359 301 pd cos;
#X obj 298 60 f;
#X connect 0 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 10 0;
#X connect 3 0 5 0;
#X connect 4 0 0 0;
#X connect 5 0 11 0;
#X connect 6 0 7 0;
#X connect 7 0 10 1;
#X connect 10 0 8 0;
#X connect 11 0 4 1;
#X connect 11 0 6 0;
#X connect 13 0 12 0;
#X connect 15 0 14 0;
#X connect 17 0 16 0;
#X connect 19 0 18 0;
#X connect 20 0 25 0;
#X connect 21 0 25 0;
#X connect 22 0 15 0;
#X connect 22 1 13 0;
#X connect 22 2 17 0;
#X connect 22 3 19 0;
#X connect 22 4 23 0;
#X connect 23 0 24 0;
#X connect 25 0 22 0;
|