From d8dfb27fef46810b312678fc95ed6162cb341922 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Tue, 17 Nov 2009 04:16:47 +0000
Subject: starting from fstabplay~ to make a looping version of it

svn path=/trunk/externals/framesync/; revision=12788
---
 fstablooper~-help.pd | 38 +++++++++++++++++++++++++++
 fstablooper~.pd      | 73 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 111 insertions(+)
 create mode 100644 fstablooper~-help.pd
 create mode 100644 fstablooper~.pd

diff --git a/fstablooper~-help.pd b/fstablooper~-help.pd
new file mode 100644
index 0000000..36d0166
--- /dev/null
+++ b/fstablooper~-help.pd
@@ -0,0 +1,38 @@
+#N canvas 463 304 574 472 10;
+#X text 30 7 loops a sound file between a startframe and endframe;
+#X text 138 179 start;
+#X text 139 191 frame;
+#X text 223 191 frame;
+#X text 223 181 end;
+#X text 34 230 audio out;
+#X text 56 189 filename;
+#X obj 177 49 frameclock 400;
+#X obj 61 407 output~;
+#X text 318 206 args: filename startframe# endframe#;
+#X text 33 138 This will loop the voice.wav sound file starting at
+frame 50 and ending at frame 200:;
+#X obj 313 281 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 12700 1;
+#X floatatom 310 300 5 0 0 0 - - -;
+#X obj 61 208 fsfilelooper~ ../../sound/voice.wav 50 200;
+#X obj 310 260 line;
+#X text 204 227 right outlet outputs a message to send to a line which
+will generate a line with 0 at the start and 1 at the end;
+#X obj 139 382 *~;
+#X obj 154 362 line~;
+#X obj 139 306 osc~ 333;
+#X msg 231 333 0;
+#X obj 139 327 *~ 0.3;
+#X obj 231 312 select 1;
+#X connect 11 0 12 0;
+#X connect 13 0 8 0;
+#X connect 13 1 14 0;
+#X connect 13 1 17 0;
+#X connect 14 0 11 0;
+#X connect 14 0 21 0;
+#X connect 16 0 8 1;
+#X connect 17 0 16 1;
+#X connect 18 0 20 0;
+#X connect 19 0 17 0;
+#X connect 20 0 16 0;
+#X connect 21 0 19 0;
diff --git a/fstablooper~.pd b/fstablooper~.pd
new file mode 100644
index 0000000..0ac4c53
--- /dev/null
+++ b/fstablooper~.pd
@@ -0,0 +1,73 @@
+#N canvas 705 374 707 506 10;
+#X obj 301 4 inlet;
+#X obj 131 458 outlet~;
+#X obj 224 325 samplerate~;
+#X obj 204 120 / 1000;
+#X obj 224 348 *;
+#X obj 99 100 trigger bang float;
+#X obj 131 375 *;
+#X obj 131 397 pack float float;
+#X obj 224 376 + 100;
+#X obj 301 83 purepd/symbol_argument \$1;
+#X obj 222 30 loadbang;
+#X obj 504 11 inlet;
+#X text 544 8 frame # when to play;
+#X obj 504 82 purepd/float_argument \$2;
+#X obj 104 300 moses;
+#X obj 131 324 moses;
+#X obj 158 231 /;
+#X obj 158 251 int;
+#X obj 158 271 + 1;
+#X obj 131 353 -;
+#X obj 158 299 +;
+#X obj 194 458 outlet;
+#X text 240 458 bang when done;
+#X obj 131 431 tabplay~ \$1;
+#X msg 301 396 set \$1;
+#X obj 99 78 framesync/fps_ms;
+#X obj 222 50 trigger bang bang bang;
+#X obj 22 48 receive framesync/frameclock;
+#X text 19 31 current frame #;
+#X floatatom 101 204 0 0 0 0 - - -;
+#X floatatom 234 158 0 0 0 0 - - -;
+#X obj 234 427 pddp/print;
+#X text 342 3 array to play;
+#X obj 99 169 flatspace/arraysize;
+#X connect 0 0 9 0;
+#X connect 2 0 4 0;
+#X connect 3 0 4 1;
+#X connect 3 0 16 1;
+#X connect 3 0 30 0;
+#X connect 4 0 6 1;
+#X connect 4 0 8 0;
+#X connect 5 0 2 0;
+#X connect 5 0 33 0;
+#X connect 5 1 3 0;
+#X connect 6 0 7 0;
+#X connect 7 0 23 0;
+#X connect 7 0 31 0;
+#X connect 8 0 7 1;
+#X connect 9 0 24 0;
+#X connect 9 0 33 1;
+#X connect 10 0 26 0;
+#X connect 11 0 13 0;
+#X connect 13 0 19 1;
+#X connect 13 0 14 1;
+#X connect 13 0 20 1;
+#X connect 14 1 15 0;
+#X connect 15 0 19 0;
+#X connect 16 0 17 0;
+#X connect 17 0 18 0;
+#X connect 18 0 20 0;
+#X connect 19 0 6 0;
+#X connect 20 0 15 1;
+#X connect 23 0 1 0;
+#X connect 23 1 21 0;
+#X connect 24 0 23 0;
+#X connect 25 0 5 0;
+#X connect 26 0 25 0;
+#X connect 26 1 9 0;
+#X connect 26 2 13 0;
+#X connect 27 0 14 0;
+#X connect 33 0 16 0;
+#X connect 33 0 29 0;
-- 
cgit v1.2.1