From 0b0a879fa48e611b5faa02570ac6b25b05c0fbd5 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Sat, 8 Apr 2006 21:45:24 +0000 Subject: ported to 0.39 GOP; added status querying to dsp.pd, and made open.pd support relative paths svn path=/trunk/abstractions/pddp/; revision=4851 --- dsp.pd | 61 +++++++++++++++++++++++++---------------- open-help.pd | 10 +++++++ open.pd | 88 ++++++++++++++++++++++++++++++++++++++++++------------------ 3 files changed, 110 insertions(+), 49 deletions(-) create mode 100644 open-help.pd diff --git a/dsp.pd b/dsp.pd index ced23e2..a0760ba 100644 --- a/dsp.pd +++ b/dsp.pd @@ -1,30 +1,45 @@ -#N canvas 358 124 60 18 10; +#N canvas 412 173 479 364 10; #X obj 19 1 cnv 16 40 16 empty pddp_dsp_canvas dsp 7 8 0 14 -233017 -33289 0; -#X obj 0 0 tgl 18 0 THIS_IS_HERE_TO_GET_RID_OF_THE_OUTLET pddp_dsp +#X obj 0 0 tgl 18 0 THIS_IS_HERE_TO_GET_RID_OF_THE_OUTLET GLOBAL_PDDP_DSP_TOGGLE empty 1 8 1 9 -233017 -33289 -33289 0 1; -#X obj 82 146 select 0 1; -#X msg 127 179 76; -#X msg 92 180 10; -#X msg 61 228 \; pddp_dsp color \$1 12 12 \; pddp_dsp_canvas color -\$1 12 12; -#X obj 81 16 r pd; +#X obj 82 216 select 0 1; +#X msg 115 238 76; +#X msg 80 238 10; #X obj 81 37 route dsp; -#X obj 82 75 f; -#X msg 109 100 \; pddp_dsp set \$1; -#X msg 2 82 \; pd dsp \$1; -#X text 239 298 released under the GNU GPL; -#X text 22 284 (C) Copyright 2005 Hans-Christoph Steiner +#X msg 1 180 \; pd dsp \$1; +#X text 239 338 released under the GNU GPL; +#X text 22 324 (C) Copyright 2005 Hans-Christoph Steiner ; -#X text 154 2 [pddp_dsp]; -#X connect 1 0 8 0; -#X connect 1 0 10 0; +#X msg 109 179 \; GLOBAL_PDDP_DSP_TOGGLE set \$1; +#X obj 194 113 float; +#X obj 82 115 float; +#X obj 81 16 receive pd; +#X obj 194 11 receive GLOBAL_PDDP_DSP; +#X obj 194 60 bang; +#X msg 99 268 \; GLOBAL_PDDP_DSP_TOGGLE color \$1 12 12 \; pddp_dsp_canvas +color \$1 12 12; +#X obj 308 31 loadbang; +#X obj 316 72 send GLOBAL_PDDP_DSP; +#X obj 194 80 spigot 0; +#X msg 280 55 1; +#X connect 1 0 6 0; +#X connect 1 0 11 0; #X connect 2 0 4 0; #X connect 2 1 3 0; -#X connect 3 0 5 0; -#X connect 4 0 5 0; -#X connect 6 0 7 0; -#X connect 7 0 8 0; -#X connect 8 0 9 0; -#X connect 8 0 2 0; -#X coords 0 0 1 1 60 18 1; +#X connect 3 0 15 0; +#X connect 4 0 15 0; +#X connect 5 0 11 0; +#X connect 5 0 10 1; +#X connect 10 0 9 0; +#X connect 10 0 6 0; +#X connect 11 0 9 0; +#X connect 11 0 2 0; +#X connect 12 0 5 0; +#X connect 13 0 14 0; +#X connect 14 0 18 0; +#X connect 16 0 17 0; +#X connect 16 0 19 0; +#X connect 18 0 10 0; +#X connect 19 0 18 1; +#X coords 0 0 1 1 60 18 1 0 0; diff --git a/open-help.pd b/open-help.pd new file mode 100644 index 0000000..9bda3f7 --- /dev/null +++ b/open-help.pd @@ -0,0 +1,10 @@ +#N canvas 176 296 462 312 10; +#X text 48 47 open the specified file on the click of the button:; +#X text 66 200 only relative paths work \, no absolute.; +#X text 29 241 for better or worse \, the .pd is automatically appended +; +#X obj 56 78 pddp/open dsp-help; +#X text 19 9 BUG: relative paths now work \, but files with no path +don't; +#X obj 57 107 pddp/open dsp-help; +#X obj 57 137 pddp/open ../../3.audio.examples/F02.just.say; diff --git a/open.pd b/open.pd index c872aac..7d6dd15 100644 --- a/open.pd +++ b/open.pd @@ -1,30 +1,66 @@ -#N canvas 416 398 124 30 10; -#X obj 107 2 inlet; -#X msg 86 225 \; pd open \$1.pd \$2; -#X obj 86 192 pack s s; -#X obj 86 137 symbol; -#X obj 108 111 t a b; -#X obj 46 0 bng 18 250 50 0 \$0- \$0- empty 0 -6 0 8 -44926 -1 -1; -#X obj 0 61 symbol \$1; -#X obj 58 40 symbol; -#X text 313 346 released under the GNU GPL; -#X text 98 318 (C) Copyright 2005 Hans-Christoph Steiner +#N canvas 663 95 578 431 10; +#X obj 200 -3 inlet; +#X msg 112 265 \; pd open \$1.pd \$2; +#X obj 47 0 bng 17 250 50 0 \$0- \$0- empty 0 -6 0 8 -44926 -1 -1; +#X obj 40 61 symbol \$1; +#X obj 98 40 symbol; +#X text 315 370 released under the GNU GPL; +#X text 98 358 (C) Copyright 2005 Hans-Christoph Steiner ; -#X text 90 63 <-- store the last value so that the GOP bang will open +#X text 111 61 <-- store the last value so that the GOP bang will open it; -#X text 20 287 This patch opens a patch either from the first argument +#X text 20 327 This patch opens a patch either from the first argument or sent in as a message.; -#X obj 0 0 cnv 16 45 18 empty empty open: 6 9 0 14 -233017 -1 0; -#X text 279 176 GOP: 168x18; -#X obj 137 166 getdir; -#X connect 0 0 4 0; -#X connect 0 0 7 0; -#X connect 2 0 1 0; -#X connect 3 0 2 0; -#X connect 4 0 3 0; -#X connect 4 1 14 0; -#X connect 5 0 6 0; -#X connect 6 0 4 0; +#X obj 0 0 cnv 16 46 18 empty empty open: 6 9 0 14 -233017 -1 0; +#X text 20 174 GOP: 168x18; +#X obj 289 123 getdir; +#X obj 112 232 pack symbol symbol; +#X msg 289 162 set \$1; +#X obj 233 208 makefilename; +#X obj 112 101 trigger symbol symbol bang; +#X obj 289 143 makefilename %s/%%s; +#X obj 112 209 ext13/strippath; +#N canvas 178 406 458 308 splitfilename 0; +#X obj 124 58 inlet; +#X obj 173 253 outlet; +#X text 21 8 this is a kludge to work around a bug in [splitfilename] +which makes it output a filename with no slashes as a folder rather +than a file.; +#X obj 210 155 select symbol; +#X obj 297 133 symbol; +#X obj 210 105 trigger symbol bang; +#X obj 173 207 spigot; +#X msg 359 162 1; +#X msg 190 182 0; +#X obj 124 84 splitfilename; +#X msg 249 207 symbol /; +#X connect 0 0 9 0; +#X connect 3 0 8 0; +#X connect 3 0 10 0; +#X connect 4 0 3 1; +#X connect 5 0 3 0; +#X connect 5 1 4 0; +#X connect 5 1 7 0; +#X connect 6 0 1 0; #X connect 7 0 6 1; -#X connect 14 0 2 1; -#X coords 0 0 1 1 124 18 1; +#X connect 8 0 6 1; +#X connect 9 0 6 0; +#X connect 9 1 5 0; +#X connect 10 0 1 0; +#X restore 154 151 pd splitfilename; +#X connect 0 0 4 0; +#X connect 0 0 15 0; +#X connect 2 0 3 0; +#X connect 3 0 15 0; +#X connect 4 0 3 1; +#X connect 11 0 16 0; +#X connect 12 0 1 0; +#X connect 13 0 14 0; +#X connect 14 0 12 1; +#X connect 15 0 17 0; +#X connect 15 1 18 0; +#X connect 15 2 11 0; +#X connect 16 0 13 0; +#X connect 17 0 12 0; +#X connect 18 0 14 0; +#X coords 0 0 1 1 124 17 1 0 0; -- cgit v1.2.1