From 020452159c326a3b475d55495d9fcd4d8d90d509 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Tue, 17 Nov 2009 07:19:48 +0000
Subject: removed stupid reset/delay kludge from frameclock and implemented a
 better way to handle frame jumping: it checkes whether the current frame is
 one different than the previous, otherwise it resets.  I ported the
 fstablooper~ guts to fstabplay~ too

svn path=/trunk/externals/framesync/; revision=12791
---
 fstablooper~.pd | 98 ++++++++++++++++++++++++++++++++-------------------------
 1 file changed, 56 insertions(+), 42 deletions(-)

(limited to 'fstablooper~.pd')

diff --git a/fstablooper~.pd b/fstablooper~.pd
index 982a21c..5442e3a 100644
--- a/fstablooper~.pd
+++ b/fstablooper~.pd
@@ -10,7 +10,6 @@
 #X obj 131 210 moses;
 #X obj 131 361 -;
 #X obj 273 508 outlet;
-#X text 319 508 bang when done;
 #X obj 131 481 tabplay~ \$1;
 #X msg 301 436 set \$1;
 #X obj 32 101 receive framesync/frameclock;
@@ -32,62 +31,77 @@
 #X obj 131 420 %;
 #X obj 224 396 flatspace/arraysize;
 #X msg 212 430 stop;
-#N canvas 0 22 450 300 reset 0;
+#N canvas 289 281 450 300 reset 0;
 #X obj 191 140 delay;
 #X obj 191 119 bang;
 #X obj 128 210 purepd/once;
 #X obj 221 119 + 1;
-#X obj 222 172 receive framesync/reset;
-#X obj 128 51 inlet;
-#X obj 221 51 inlet;
+#X obj 238 144 receive framesync/reset;
+#X obj 128 11 inlet;
+#X obj 221 11 inlet;
 #X obj 128 250 outlet;
 #X obj 242 250 outlet;
-#X connect 0 0 2 1;
-#X connect 0 0 8 0;
+#X obj 191 178 bang;
+#X obj 13 50 trigger 0 bang 0;
+#X obj 59 82 float;
+#X obj 91 116 -;
+#X text 118 50 if we skipped a frame \, reset;
+#X obj 91 137 select -1;
+#X connect 0 0 9 0;
 #X connect 1 0 0 0;
 #X connect 2 0 7 0;
 #X connect 3 0 0 1;
-#X connect 4 0 2 1;
-#X connect 4 0 8 0;
+#X connect 4 0 9 0;
 #X connect 5 0 2 0;
 #X connect 5 0 1 0;
+#X connect 5 0 10 0;
 #X connect 6 0 3 0;
+#X connect 9 0 2 1;
+#X connect 9 0 8 0;
+#X connect 10 0 11 1;
+#X connect 10 1 11 0;
+#X connect 10 2 12 1;
+#X connect 11 0 12 0;
+#X connect 12 0 14 0;
+#X connect 14 1 9 0;
 #X restore 131 262 pd reset delay;
+#X text 319 508 TODO output messages to send to line \, line~ \, vline~
+;
 #X connect 0 0 2 0;
-#X connect 2 0 13 0;
-#X connect 2 0 31 1;
-#X connect 3 0 22 0;
+#X connect 2 0 12 0;
+#X connect 2 0 30 1;
+#X connect 3 0 21 0;
 #X connect 4 0 6 0;
 #X connect 6 0 9 1;
 #X connect 6 0 7 1;
-#X connect 6 0 20 0;
+#X connect 6 0 19 0;
 #X connect 7 1 8 0;
-#X connect 8 0 33 0;
-#X connect 9 0 29 0;
-#X connect 12 0 1 0;
-#X connect 12 1 24 0;
-#X connect 13 0 12 0;
-#X connect 14 0 7 0;
-#X connect 17 0 18 0;
-#X connect 18 0 21 0;
-#X connect 18 0 8 1;
-#X connect 22 0 26 0;
-#X connect 22 0 31 0;
-#X connect 22 1 25 0;
-#X connect 22 2 2 0;
-#X connect 22 3 6 0;
-#X connect 22 4 18 0;
-#X connect 23 0 22 0;
-#X connect 24 0 12 0;
-#X connect 25 0 28 0;
-#X connect 25 0 33 1;
-#X connect 26 0 27 0;
-#X connect 27 0 29 1;
-#X connect 28 0 27 1;
-#X connect 29 0 30 0;
-#X connect 30 0 12 0;
-#X connect 31 0 30 1;
-#X connect 32 0 12 0;
-#X connect 32 0 10 0;
-#X connect 33 0 9 0;
-#X connect 33 1 32 0;
+#X connect 8 0 32 0;
+#X connect 9 0 28 0;
+#X connect 11 0 1 0;
+#X connect 11 1 23 0;
+#X connect 12 0 11 0;
+#X connect 13 0 7 0;
+#X connect 16 0 17 0;
+#X connect 17 0 20 0;
+#X connect 17 0 8 1;
+#X connect 21 0 25 0;
+#X connect 21 0 30 0;
+#X connect 21 1 24 0;
+#X connect 21 2 2 0;
+#X connect 21 3 6 0;
+#X connect 21 4 17 0;
+#X connect 22 0 21 0;
+#X connect 23 0 11 0;
+#X connect 24 0 27 0;
+#X connect 24 0 32 1;
+#X connect 25 0 26 0;
+#X connect 26 0 28 1;
+#X connect 27 0 26 1;
+#X connect 28 0 29 0;
+#X connect 29 0 11 0;
+#X connect 30 0 29 1;
+#X connect 31 0 11 0;
+#X connect 31 0 10 0;
+#X connect 32 0 9 0;
+#X connect 32 1 31 0;
-- 
cgit v1.2.1