wrote object to save the machine from hard resets when Pd pegs the CPU

svn path=/trunk/externals/hcs/; revision=6280

2 files changed, 103 insertions, 0 deletions

diff --git a/general/doc/failsafe-help.pd b/general/doc/failsafe-help.pd
new file mode 100644
index 0000000..248ef9f
--- /dev/null
+++ b/general/doc/failsafe-help.pd
@@ -0,0 +1,21 @@
+#N canvas 502 235 469 316 10;
+#X obj 5 2 cnv 15 450 20 empty empty [failsafe] 2 11 1 18 -233017 -66577
+0;
+#X msg 422 3 pddp;
+#X text 244 284 released under the GNU GPL;
+#X text 27 270 (C) Copyright 2006 Hans-Christoph Steiner <hans@at.or.at>
+;
+#X obj 206 182 gemwin;
+#X msg 206 162 0;
+#X text 25 38 When the CPU is pegged \, first [failsafe] turns of DSP
+and bangs the right outlet. Then if the CPU is still pegged \, it bangs
+the left inlet and ultimately quits Pd.;
+#X text 36 222 You can add your own conditions using the bangs from
+the outlets.;
+#X obj 155 127 failsafe;
+#X obj 155 85 loadbang;
+#X msg 119 172 \; pd quit;
+#X connect 5 0 4 0;
+#X connect 8 0 10 0;
+#X connect 8 1 5 0;
+#X connect 9 0 8 0;
diff --git a/general/failsafe.pd b/general/failsafe.pd
new file mode 100644
index 0000000..f2c1426
--- /dev/null
+++ b/general/failsafe.pd
@@ -0,0 +1,82 @@
+#N canvas 21 23 579 511 10;
+#X obj 459 5 import purepd;
+#X obj 191 201 cputime;
+#X msg 35 72 1;
+#X obj 347 241 moses;
+#X obj 203 6 inlet;
+#X obj 161 158 metro;
+#X obj 371 6 inlet;
+#X obj 371 100 float_argument \$2 1000;
+#X obj 35 51 trigger bang bang bang;
+#X obj 161 177 trigger bang bang;
+#X msg 107 357 \; pd quit;
+#X msg 49 292 stop;
+#X msg 348 299 stop;
+#X msg 499 365 \; pd dsp 0;
+#X obj 107 292 once;
+#X obj 385 299 once;
+#X obj 49 233 moses 990;
+#X text 381 25 sampling rate in ms;
+#X obj 385 442 outlet;
+#X obj 187 440 outlet;
+#X obj 107 338 trigger bang bang;
+#X obj 385 344 trigger bang bang;
+#X obj 202 100 float_argument \$1 990;
+#X obj 385 322 delay 4000;
+#N canvas 303 168 551 211 status 0;
+#X obj 320 18 inlet;
+#X obj 12 15 inlet;
+#X obj 193 148 print [failsafe];
+#X msg 320 37 CPU pegged!! Turning off DSP.;
+#X msg 11 37 CPU pegged for 10 seconds!! Quitting pd!!;
+#X connect 0 0 3 0;
+#X connect 1 0 4 0;
+#X connect 3 0 2 0;
+#X connect 4 0 2 0;
+#X restore 238 399 pd status messages;
+#X obj 107 253 bang;
+#X obj 107 319 delay 10000;
+#X text 291 483 released under the GNU GPL;
+#X text 74 472 (C) Copyright 2006 Hans-Christoph Steiner <hans@at.or.at>
+;
+#X obj 347 272 bang;
+#X obj 385 272 bang;
+#X text 210 24 load to trigger at;
+#X obj 49 263 bang;
+#X obj 35 21 inlet;
+#X connect 1 0 3 0;
+#X connect 1 0 16 0;
+#X connect 2 0 5 0;
+#X connect 3 0 15 1;
+#X connect 3 0 29 0;
+#X connect 3 1 30 0;
+#X connect 4 0 22 0;
+#X connect 5 0 9 0;
+#X connect 6 0 7 0;
+#X connect 7 0 5 1;
+#X connect 8 0 2 0;
+#X connect 8 1 22 0;
+#X connect 8 2 7 0;
+#X connect 9 0 1 0;
+#X connect 9 1 1 1;
+#X connect 11 0 26 0;
+#X connect 12 0 23 0;
+#X connect 14 0 26 0;
+#X connect 15 0 23 0;
+#X connect 16 0 14 1;
+#X connect 16 0 32 0;
+#X connect 16 1 25 0;
+#X connect 20 0 10 0;
+#X connect 20 1 19 0;
+#X connect 20 1 24 0;
+#X connect 21 0 18 0;
+#X connect 21 0 24 1;
+#X connect 21 1 13 0;
+#X connect 22 0 3 1;
+#X connect 23 0 21 0;
+#X connect 25 0 14 0;
+#X connect 26 0 20 0;
+#X connect 29 0 12 0;
+#X connect 30 0 15 0;
+#X connect 32 0 11 0;
+#X connect 33 0 8 0;