Return to audio_safety~.pd CVS log

Up to [Development] / JSOC / proj / globalhs / sosh

initial commit

#N canvas 233 152 1024 335 10;
#X text -4 -1 don't send nan or inf to the limiter or filter;
#X text 17 58 hard limiter: avoid prolonged hard clipping;
#X obj 339 -48 inlet~;
#X obj 338 201 outlet~;
#X text 11 158 filter nan/inf again in case biquad~ blew up;
#X obj 496 26 inlet;
#X obj 495 45 t b;
#X msg 496 70 clear;
#X text 550 26 reset filter;
#X obj 337 -12 expr~ if ($v1 > -3.40282 * pow (10 \, 38) && $v1 < 3.40282
* pow (10 \, 38) \, $v1 \, 0);
#X obj 340 153 expr~ if ($v1 > -3.40282 * pow (10 \, 38) && $v1 < 3.40282
* pow (10 \, 38) \, $v1 \, 0);
#N canvas 327 60 726 814 limiter 0;
#X obj 25 -192 inlet~;
#X obj -11 496 outlet~;
#X obj 456 -189 samplerate~;
#X obj 454 -232 loadbang;
#X obj 452 -40 * 8;
#X obj 103 331 float;
#X obj 173 333 float;
#X obj 108 289 sel 0 1;
#X obj 35 377 pack 1 0;
#X obj 108 263 < 1;
#X obj 63 220 t f f f;
#X obj 26 304 change 1;
#X obj 65 170 expr 1 / $f1;
#X floatatom 64 194 5 0 0 0 - - -;
#X obj 24 439 line~;
#X obj 134 384 loadbang;
#X msg 132 404 1;
#X obj -11 467 *~;
#X obj 69 -33 t f f;
#X obj 138 -7 >= 1;
#X obj 137 18 == 0;
#X obj 31 63 spigot;
#X obj 80 63 spigot;
#X obj 79 89 t b;
#X msg 80 114 1;
#X obj 438 274 block~ 512;
#X obj 126 -211 bang~;
#X msg 122 -160 clear;
#X obj 78 -97 snapshot~;
#X obj 455 -211 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 121 -134 fexpr~ max (abs($x1) \, $y1);
#X obj 450 -167 expr 512000 / $f1;
#X floatatom 492 -110 5 0 0 0 - - -;
#X obj 69 -56 / 0.8;
#X obj 121 -186 t b b;
#X connect 0 0 17 0;
#X connect 0 0 30 0;
#X connect 2 0 31 0;
#X connect 3 0 29 0;
#X connect 4 0 6 1;
#X connect 5 0 8 1;
#X connect 6 0 8 1;
#X connect 7 0 5 0;
#X connect 7 1 6 0;
#X connect 8 0 14 0;
#X connect 9 0 7 0;
#X connect 10 0 9 1;
#X connect 10 1 11 0;
#X connect 10 2 9 0;
#X connect 11 0 8 0;
#X connect 12 0 13 0;
#X connect 13 0 10 0;
#X connect 14 0 17 1;
#X connect 15 0 16 0;
#X connect 16 0 14 0;
#X connect 17 0 1 0;
#X connect 18 0 22 0;
#X connect 18 0 21 0;
#X connect 18 1 19 0;
#X connect 19 0 20 0;
#X connect 19 0 21 1;
#X connect 20 0 22 1;
#X connect 21 0 12 0;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 24 0 12 0;
#X connect 26 0 34 0;
#X connect 27 0 30 0;
#X connect 28 0 33 0;
#X connect 29 0 2 0;
#X connect 30 0 28 0;
#X connect 31 0 4 0;
#X connect 31 0 5 1;
#X connect 31 0 32 0;
#X connect 33 0 18 0;
#X connect 34 0 27 0;
#X connect 34 1 28 0;
#X restore 339 57 pd limiter;
#X text 260 110 remove dc;
#X obj 341 109 hip~ 10;
#X connect 2 0 9 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 13 1;
#X connect 9 0 11 0;
#X connect 10 0 3 0;
#X connect 11 0 13 0;
#X connect 13 0 10 0;