From 16ffa7ce0093aa3c1d104f2e2b9e9cafd1470190 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Tue, 2 Dec 2008 22:25:10 +0000 Subject: quickly cleaned up and renamed framesynclooper~ to check in svn path=/trunk/externals/framesync/; revision=10418 --- fsfilelooper~-help.pd | 13 ++++++ fsfilelooper~.pd | 117 ++++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 130 insertions(+) create mode 100644 fsfilelooper~-help.pd create mode 100644 fsfilelooper~.pd diff --git a/fsfilelooper~-help.pd b/fsfilelooper~-help.pd new file mode 100644 index 0000000..1afec28 --- /dev/null +++ b/fsfilelooper~-help.pd @@ -0,0 +1,13 @@ +#N canvas 287 450 578 286 10; +#X text 15 109 frame counter; +#X text 173 92 start; +#X text 174 104 frame; +#X text 258 104 frame; +#X text 258 94 end; +#X text 69 143 audio out; +#X text 114 187 argument: filename startframe# endframe#; +#X text 45 20 loops a sound file between a startframe and endframe +; +#X text 220 142 phasor (0-1) for position between startframe and endframe +; +#X obj 96 121 fsfilelooper~ filename.wav 0 10; diff --git a/fsfilelooper~.pd b/fsfilelooper~.pd new file mode 100644 index 0000000..672435d --- /dev/null +++ b/fsfilelooper~.pd @@ -0,0 +1,117 @@ +#N canvas 395 422 715 368 10; +#X obj 265 11 inlet; +#X obj 300 36 loadbang; +#X obj 425 11 inlet; +#X obj 27 8 inlet; +#X text 67 8 frame #; +#X obj 129 318 outlet~; +#N canvas 679 332 352 429 play 0; +#X obj 35 13 inlet; +#X obj 90 375 outlet~; +#X obj 90 306 readsf~; +#X msg 79 271 1; +#X msg 50 271 0; +#X obj 79 116 trigger bang bang; +#X obj 79 95 spigot; +#X obj 35 70 select 0; +#X obj 35 47 trigger float float; +#X obj 178 138 symbol \$1; +#X msg 178 263 open \$1; +#X obj 178 207 pack symbol symbol; +#X obj 178 230 zexy/makesymbol %s/%s; +#X obj 178 184 ggee/getdir 2; +#X obj 178 160 trigger bang anything; +#X connect 0 0 8 0; +#X connect 2 0 1 0; +#X connect 2 1 6 0; +#X connect 3 0 2 0; +#X connect 4 0 2 0; +#X connect 5 0 3 0; +#X connect 5 1 9 0; +#X connect 6 0 5 0; +#X connect 7 0 4 0; +#X connect 7 1 6 0; +#X connect 8 0 7 0; +#X connect 8 1 6 1; +#X connect 9 0 14 0; +#X connect 10 0 2 0; +#X connect 11 0 12 0; +#X connect 12 0 10 0; +#X connect 13 0 11 0; +#X connect 14 0 13 0; +#X connect 14 1 11 1; +#X restore 129 276 pd play sample; +#X obj 129 253 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +1; +#X obj 162 163 select; +#X msg 162 186 1; +#X obj 322 163 select; +#X msg 322 186 0; +#X text 319 13 start frame; +#X text 470 9 end frame; +#X msg 238 249 0 \, 1 \$1; +#X obj 196 185 float; +#X obj 238 318 outlet; +#X obj 238 273 line; +#N canvas 0 22 450 300 calc 0; +#X obj 89 12 inlet; +#X obj 228 11 inlet; +#X obj 152 273 outlet; +#X obj 152 73 pack 0 0; +#X msg 152 93 \$2 \$1; +#X obj 152 115 -; +#X obj 203 154 receive TN_FPS_MS; +#X floatatom 159 211 5 0 0 0 - - -; +#X obj 152 175 * 33.3333; +#X text 213 175 default to 30 fps; +#X connect 0 0 3 0; +#X connect 1 0 3 1; +#X connect 3 0 4 0; +#X connect 4 0 5 0; +#X connect 5 0 8 0; +#X connect 6 0 8 1; +#X connect 8 0 2 0; +#X connect 8 0 7 0; +#X restore 223 163 pd calc time; +#X obj 99 164 select 0; +#X msg 99 184 0; +#X obj 300 59 trigger bang bang; +#X obj 265 86 purepd/float_argument \$2; +#X obj 425 86 purepd/float_argument \$3; +#X text 122 44 first arg is filename; +#X obj 416 168 receive TN_RESET; +#X obj 416 188 bang; +#X msg 416 210 0; +#X obj 32 165 delay 100; +#X obj 32 141 bang; +#X connect 0 0 22 0; +#X connect 1 0 21 0; +#X connect 2 0 23 0; +#X connect 3 0 8 0; +#X connect 3 0 10 0; +#X connect 3 0 19 0; +#X connect 3 0 29 0; +#X connect 6 0 5 0; +#X connect 7 0 6 0; +#X connect 8 0 9 0; +#X connect 8 0 15 0; +#X connect 9 0 7 0; +#X connect 10 0 11 0; +#X connect 11 0 7 0; +#X connect 14 0 17 0; +#X connect 15 0 14 0; +#X connect 17 0 16 0; +#X connect 18 0 15 1; +#X connect 19 0 20 0; +#X connect 20 0 7 0; +#X connect 21 0 22 0; +#X connect 21 1 23 0; +#X connect 22 0 8 1; +#X connect 22 0 18 0; +#X connect 23 0 10 1; +#X connect 23 0 18 1; +#X connect 25 0 26 0; +#X connect 26 0 27 0; +#X connect 27 0 7 0; +#X connect 28 0 20 0; +#X connect 29 0 28 0; -- cgit v1.2.1