From 9d480cd9ce410015f14f845d50ee04a9bb3cdd22 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Mon, 13 Nov 2006 22:48:09 +0000 Subject: wrote object to save the machine from hard resets when Pd pegs the CPU svn path=/trunk/externals/hcs/; revision=6280 --- general/doc/failsafe-help.pd | 21 ++++++++++++ general/failsafe.pd | 82 ++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 103 insertions(+) create mode 100644 general/doc/failsafe-help.pd create mode 100644 general/failsafe.pd (limited to 'general') 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 +; +#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 +; +#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; -- cgit v1.2.1