From b6276ccc5134de2b796331b6d2f68313383b63aa Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Fri, 20 Nov 2009 00:24:36 +0000 Subject: added calcluation of soundfiler's maxsize using the start/end frame numbers svn path=/trunk/externals/framesync/; revision=12803 --- fsfilelooper~.pd | 82 +++++++++++++++++++++++++++++++++++++++++--------------- 1 file changed, 60 insertions(+), 22 deletions(-) diff --git a/fsfilelooper~.pd b/fsfilelooper~.pd index 19721cc..2291603 100644 --- a/fsfilelooper~.pd +++ b/fsfilelooper~.pd @@ -1,4 +1,4 @@ -#N canvas 318 426 573 321 10; +#N canvas 683 441 573 321 10; #X obj 240 21 inlet; #X obj 155 42 loadbang; #X obj 400 21 inlet; @@ -11,39 +11,77 @@ #X obj 40 21 inlet; #X obj 40 96 purepd/symbol_argument \$1; #X obj 155 65 trigger bang bang bang; -#X obj 40 146 table \$0-sample; -#X obj 146 167 framesync/fstablooper~ \$0-sample; +#X obj 40 176 table \$0-sample; +#X obj 146 197 framesync/fstablooper~ \$0-sample; #N canvas 206 494 450 300 load 0; -#X obj 162 113 pack symbol symbol; -#X obj 162 136 zexy/makesymbol %s/%s; -#X obj 162 90 ggee/getdir 2; -#X obj 162 44 symbol; -#X obj 162 10 inlet; -#X obj 162 188 pack symbol symbol; -#X obj 267 164 symbol \$0-sample; -#X obj 162 66 trigger bang anything bang; -#X msg 162 209 read -resize \$1 \$2; -#X obj 162 232 soundfiler; +#X obj 22 113 pack symbol symbol; +#X obj 22 136 zexy/makesymbol %s/%s; +#X obj 22 90 ggee/getdir 2; +#X obj 22 44 symbol; +#X obj 22 10 inlet; +#X obj 92 164 symbol \$0-sample; +#X obj 22 66 trigger bang anything bang; +#X obj 22 232 soundfiler; +#X obj 163 10 inlet; +#X obj 22 188 pack symbol symbol float; +#X msg 22 209 read -resize -maxsize \$3 \$1 \$2; #X connect 0 0 1 0; -#X connect 1 0 5 0; +#X connect 1 0 9 0; #X connect 2 0 0 0; -#X connect 3 0 7 0; +#X connect 3 0 6 0; #X connect 4 0 3 0; -#X connect 5 0 8 0; -#X connect 6 0 5 1; -#X connect 7 0 2 0; -#X connect 7 1 0 1; -#X connect 7 2 6 0; -#X connect 8 0 9 0; -#X restore 40 125 pd load \$0-sample; +#X connect 5 0 9 1; +#X connect 6 0 2 0; +#X connect 6 1 0 1; +#X connect 6 2 5 0; +#X connect 8 0 9 2; +#X connect 9 0 10 0; +#X connect 10 0 7 0; +#X restore 40 155 pd load \$0-sample; +#N canvas 0 22 450 300 calc 0; +#X obj 89 16 inlet; +#X obj 249 16 inlet; +#X text 143 18 start frame; +#X text 294 14 end frame; +#X obj 126 269 outlet; +#X obj 141 140 framesync/fps_ms; +#X obj 126 106 -; +#X obj 89 79 float; +#X obj 126 160 *; +#X obj 89 52 trigger bang 0 bang; +#X obj 141 203 samplerate~; +#X obj 126 182 / 1000; +#X obj 126 247 + 1000; +#X obj 126 222 *; +#X text 171 247 give it a little extra pad; +#X connect 0 0 9 0; +#X connect 1 0 7 1; +#X connect 5 0 8 1; +#X connect 6 0 8 0; +#X connect 7 0 6 0; +#X connect 8 0 11 0; +#X connect 9 0 7 0; +#X connect 9 1 6 1; +#X connect 9 2 5 0; +#X connect 9 2 10 0; +#X connect 10 0 13 1; +#X connect 11 0 13 0; +#X connect 12 0 4 0; +#X connect 13 0 12 0; +#X restore 139 135 pd calc array maxsize; +#X msg 252 45 bang; #X connect 0 0 6 0; #X connect 1 0 11 0; #X connect 2 0 7 0; #X connect 6 0 13 1; +#X connect 6 0 15 0; #X connect 7 0 13 2; +#X connect 7 0 15 1; #X connect 9 0 10 0; #X connect 10 0 14 0; #X connect 11 0 10 0; #X connect 11 1 6 0; #X connect 11 2 7 0; #X connect 13 0 3 0; +#X connect 15 0 14 1; +#X connect 16 0 11 0; -- cgit v1.2.1