added [once], a better version of [oneshot];

made [oneshot] behave properly (e.g. compatible to Gem), and based on [once];
removed [loadbang] dependency in [alternate]&[clip], which made them not-so-usable in generative patches

svn path=/trunk/abstractions/purepd/; revision=4742

4 files changed, 80 insertions, 70 deletions

diff --git a/alternate.pd b/alternate.pd
index 0e5943d..8c8dbfb 100644
--- a/alternate.pd
+++ b/alternate.pd
@@ -1,45 +1,34 @@
-#N canvas 581 288 458 308 10;
-#X obj 87 8 inlet;
-#X obj 151 244 outlet;
-#X obj 319 247 outlet;
-#X obj 159 197 spigot;
-#X obj 319 191 spigot;
+#N canvas 317 502 458 438 10;
+#X obj 86 10 inlet;
+#X obj 158 244 outlet;
+#X obj 285 244 outlet;
+#X obj 158 217 spigot;
+#X obj 285 217 spigot;
 #X obj 158 57 trigger anything bang;
-#X obj 196 152 abs;
-#X floatatom 212 198 5 0 0 0 - - -;
-#X obj 356 147 abs;
-#X msg 295 77 1;
-#X obj 196 173 float;
-#X obj 355 168 float;
 #X obj 86 34 route reset;
-#X msg 103 82 1;
-#X obj 356 128 -;
-#X msg 73 82 0;
-#X obj 196 133 -;
-#X obj 15 35 loadbang;
+#X msg 86 75 0;
 #X obj 86 54 bang;
-#X connect 0 0 12 0;
+#X obj 300 108 i;
+#X obj 300 130 == 0;
+#X obj 300 150 t f f f;
+#X text 40 295 (c) 2006 IOhannes m zmoelnig \, licensed under GnuGPL
+v2.0;
+#X text 44 318 original abstraction (c) 2005 Hans Christoph Steiner
+;
+#X obj 322 181 == 0;
+#X connect 0 0 6 0;
 #X connect 3 0 1 0;
 #X connect 4 0 2 0;
 #X connect 5 0 3 0;
 #X connect 5 0 4 0;
 #X connect 5 1 9 0;
-#X connect 6 0 10 0;
-#X connect 8 0 11 0;
-#X connect 9 0 14 0;
-#X connect 9 0 16 0;
-#X connect 10 0 3 1;
-#X connect 10 0 7 0;
-#X connect 10 0 16 1;
-#X connect 11 0 4 1;
-#X connect 11 0 14 1;
-#X connect 12 0 18 0;
-#X connect 12 1 5 0;
-#X connect 13 0 14 1;
-#X connect 14 0 8 0;
-#X connect 15 0 16 1;
-#X connect 16 0 6 0;
-#X connect 17 0 13 0;
-#X connect 17 0 15 0;
-#X connect 18 0 13 0;
-#X connect 18 0 15 0;
+#X connect 6 0 8 0;
+#X connect 6 1 5 0;
+#X connect 7 0 9 1;
+#X connect 8 0 7 0;
+#X connect 9 0 10 0;
+#X connect 10 0 11 0;
+#X connect 11 0 3 1;
+#X connect 11 1 14 0;
+#X connect 11 2 9 1;
+#X connect 14 0 4 1;
diff --git a/clip.pd b/clip.pd
index 484098b..149f6ad 100644
--- a/clip.pd
+++ b/clip.pd
@@ -5,21 +5,24 @@
 #X text 177 10 min;
 #X text 329 13 max;
 #X obj 24 306 outlet;
-#X obj 25 257 min;
-#X obj 25 226 max;
+#X obj 24 257 min;
+#X obj 24 226 max;
 #X obj 358 156 float_argument \$2;
-#X obj 299 75 loadbang;
 #X obj 24 85 unpack float float float;
-#X obj 203 156 float_argument \$1;
-#X connect 0 0 10 0;
-#X connect 1 0 11 0;
+#X obj 204 156 float_argument \$1;
+#X obj 24 55 t a b;
+#X obj 309 86 once;
+#X connect 0 0 11 0;
+#X connect 1 0 10 0;
 #X connect 2 0 8 0;
 #X connect 6 0 5 0;
 #X connect 7 0 6 0;
 #X connect 8 0 6 1;
-#X connect 9 0 11 0;
-#X connect 9 0 8 0;
-#X connect 10 0 7 0;
-#X connect 10 1 11 0;
-#X connect 10 2 8 0;
-#X connect 11 0 7 1;
+#X connect 9 0 7 0;
+#X connect 9 1 10 0;
+#X connect 9 2 8 0;
+#X connect 10 0 7 1;
+#X connect 11 0 9 0;
+#X connect 11 1 12 0;
+#X connect 12 0 10 0;
+#X connect 12 0 8 0;
diff --git a/once.pd b/once.pd
new file mode 100644
index 0000000..47c43a7
--- /dev/null
+++ b/once.pd
@@ -0,0 +1,25 @@
+#N canvas 572 249 674 372 10;
+#X obj 228 70 inlet;
+#X obj 228 246 outlet;
+#X obj 427 71 bang;
+#X msg 427 90 1;
+#X obj 228 99 t a b;
+#X obj 228 171 spigot;
+#X obj 265 149 i 1;
+#X obj 228 197 t a b;
+#X msg 281 127 0;
+#X text 40 295 (c) 2006 IOhannes m zmoelnig \, licensed under GnuGPL
+v2.0;
+#X obj 427 51 inlet reset;
+#X text 218 17 [once]: better than [oneshot];
+#X connect 0 0 4 0;
+#X connect 2 0 3 0;
+#X connect 3 0 8 0;
+#X connect 4 0 5 0;
+#X connect 4 1 6 0;
+#X connect 5 0 7 0;
+#X connect 6 0 5 1;
+#X connect 7 0 1 0;
+#X connect 7 1 8 0;
+#X connect 8 0 6 1;
+#X connect 10 0 2 0;
diff --git a/oneshot.pd b/oneshot.pd
index e87e8ca..cf48dd3 100644
--- a/oneshot.pd
+++ b/oneshot.pd
@@ -1,23 +1,16 @@
-#N canvas 108 421 470 320 10;
-#X msg 228 125 1;
-#X obj 150 20 inlet;
-#X obj 259 256 outlet;
+#N canvas 233 201 674 542 10;
+#X obj 149 40 inlet;
+#X obj 221 176 outlet;
 #X text 10 7 [oneshot];
-#X text 309 255 bang;
-#X obj 228 99 t b b;
-#X msg 149 125 0;
-#X text 85 105 reset;
+#X text 249 98 reset;
 #X obj 149 75 route clear;
-#X obj 149 102 bang;
-#X obj 259 206 select 0;
-#X obj 259 184 float 0;
-#X connect 0 0 11 1;
-#X connect 1 0 8 0;
-#X connect 5 0 0 0;
-#X connect 5 1 11 0;
-#X connect 6 0 11 1;
-#X connect 8 0 9 0;
-#X connect 8 1 5 0;
-#X connect 9 0 6 0;
-#X connect 10 0 2 0;
-#X connect 11 0 10 0;
+#X text 271 175 whatever;
+#X text 40 215 (c) 2006 IOhannes m zmoelnig \, licensed under GnuGPL
+v2.0;
+#X text 44 238 original abstraction (c) 2005 Hans Christoph Steiner
+;
+#X obj 221 113 once;
+#X connect 0 0 4 0;
+#X connect 4 0 8 1;
+#X connect 4 1 8 0;
+#X connect 8 0 1 0;