From f2315675d0f040ee02fd1e572d829aa1979b07be Mon Sep 17 00:00:00 2001
From: Luke Iannini <lukeiannini@users.sourceforge.net>
Date: Sat, 17 May 2008 02:19:45 +0000
Subject: added keycommand for quick key assignments, plus another
 ds-abstraction and an implementation of vmetro

svn path=/trunk/abstractions/senderfruit/; revision=9828
---
 core/donecanvasdialog-help.pd |   3 +
 core/ds-next-element.pd       | 152 ++++++++++++++++++++++++++++++++++++++++++
 core/keycommand-help.pd       |  24 +++++++
 core/keycommand.pd            |   6 ++
 core/pausetimer-help.pd       |  21 ++++++
 core/vmetro.pd                |  30 +++++++++
 6 files changed, 236 insertions(+)
 create mode 100644 core/donecanvasdialog-help.pd
 create mode 100644 core/ds-next-element.pd
 create mode 100644 core/keycommand-help.pd
 create mode 100644 core/keycommand.pd
 create mode 100644 core/pausetimer-help.pd
 create mode 100644 core/vmetro.pd

diff --git a/core/donecanvasdialog-help.pd b/core/donecanvasdialog-help.pd
new file mode 100644
index 0000000..18949ae
--- /dev/null
+++ b/core/donecanvasdialog-help.pd
@@ -0,0 +1,3 @@
+#N canvas 576 113 450 300 10;
+#X msg 20 202 donecanvasdialog xUnits yUnits GOP xFrom yFrom xTo yTo
+xSize ySize xMargin yMargin;
diff --git a/core/ds-next-element.pd b/core/ds-next-element.pd
new file mode 100644
index 0000000..01fb0d5
--- /dev/null
+++ b/core/ds-next-element.pd
@@ -0,0 +1,152 @@
+#N canvas 453 22 467 768 10;
+#X obj 133 259 f;
+#X obj 160 259 + 1;
+#X obj 133 237 until;
+#X obj 118 701 once;
+#X obj 199 603 t a;
+#X obj 133 579 &&;
+#X obj 160 327 + 1;
+#X obj 133 640 f;
+#X obj 133 600 sel 1;
+#X obj 91 9 inlet;
+#X obj 170 527 r \$0findValue;
+#X obj 137 30 s \$0findValue;
+#X msg 148 215 0;
+#X obj 118 736 outlet;
+#X obj 91 73 t p p;
+#X obj 133 552 <=;
+#X obj 160 552 >;
+#X obj 133 306 t a a;
+#X obj 133 665 t a b;
+#X obj 172 665 s \$0stopLooking;
+#X obj 170 237 r \$0stopLooking;
+#X obj 160 346 t a a a;
+#X obj 296 554 sel 1;
+#X obj 296 382 >;
+#X obj 311 358 - 1;
+#X obj 91 116 sel 1;
+#X obj 137 74 s \$0pointer;
+#X obj 225 404 r \$0pointer;
+#X obj 133 281 sel 0;
+#X obj 245 467 t a b;
+#N canvas 0 22 448 336 earliest? 0;
+#X obj 82 74 inlet;
+#X obj 157 97 r \$0pointer;
+#X msg 82 100 0;
+#X obj 97 178 r \$0findValue;
+#X obj 82 206 >;
+#X obj 82 232 sel 1;
+#X obj 129 294 outlet;
+#X msg 129 270 0;
+#X msg 55 270 0;
+#X obj 55 294 outlet;
+#X obj 82 129 element \$1 \$2;
+#X obj 82 154 get \$3 \$4;
+#X connect 0 0 2 0;
+#X connect 1 0 10 1;
+#X connect 2 0 10 0;
+#X connect 3 0 4 1;
+#X connect 4 0 5 0;
+#X connect 5 0 7 0;
+#X connect 5 1 8 0;
+#X connect 7 0 6 0;
+#X connect 8 0 9 0;
+#X connect 10 0 11 0;
+#X connect 11 0 4 0;
+#X restore 174 293 pd earliest?;
+#X obj 272 513 s \$0stopLooking;
+#X obj 245 642 t a;
+#N canvas 848 394 186 293 first 0;
+#X obj 13 10 inlet;
+#X obj 88 41 r \$0pointer;
+#X obj 27 252 outlet;
+#X obj 13 90 t p p;
+#X obj 28 139 r \$0findValue;
+#X obj 13 188 sel 1;
+#X obj 13 162 >;
+#X msg 13 43 0;
+#X msg 13 218 0;
+#X msg 40 218 1;
+#X obj 13 115 get \$3 \$4;
+#X obj 13 68 element \$1 \$2;
+#X connect 0 0 7 0;
+#X connect 1 0 11 1;
+#X connect 3 0 10 0;
+#X connect 4 0 6 1;
+#X connect 5 0 8 0;
+#X connect 5 1 9 0;
+#X connect 6 0 5 0;
+#X connect 7 0 11 0;
+#X connect 8 0 2 0;
+#X connect 9 0 2 0;
+#X connect 10 0 6 0;
+#X connect 11 0 3 0;
+#X restore 18 372 pd first;
+#X obj 91 96 getsize \$1 \$2;
+#X obj 160 434 element \$1 \$2;
+#X obj 133 481 element \$1 \$2;
+#X obj 160 453 get \$3 \$4;
+#X obj 133 504 get \$3 \$4;
+#X text 240 48 takes a pointer to an array;
+#X obj 200 147 s \$0reset;
+#X obj 118 147 t b a b a b;
+#X obj 151 701 r \$0reset;
+#X obj 315 34 inlet;
+#X obj 91 51 pointer;
+#X obj 91 30 t b a;
+#X connect 0 0 1 0;
+#X connect 0 0 28 0;
+#X connect 1 0 0 1;
+#X connect 2 0 0 0;
+#X connect 3 0 13 0;
+#X connect 4 0 7 1;
+#X connect 5 0 8 0;
+#X connect 6 0 21 0;
+#X connect 7 0 18 0;
+#X connect 8 0 7 0;
+#X connect 9 0 45 0;
+#X connect 10 0 15 1;
+#X connect 10 0 16 1;
+#X connect 12 0 0 1;
+#X connect 14 0 34 0;
+#X connect 14 1 26 0;
+#X connect 15 0 5 0;
+#X connect 16 0 5 1;
+#X connect 17 0 36 0;
+#X connect 17 1 6 0;
+#X connect 18 0 3 0;
+#X connect 18 1 19 0;
+#X connect 20 0 2 1;
+#X connect 21 0 35 0;
+#X connect 21 1 23 0;
+#X connect 21 2 4 0;
+#X connect 22 0 7 0;
+#X connect 23 0 22 0;
+#X connect 24 0 23 1;
+#X connect 25 0 33 0;
+#X connect 25 1 41 0;
+#X connect 27 0 35 1;
+#X connect 27 0 36 1;
+#X connect 28 0 30 0;
+#X connect 28 1 17 0;
+#X connect 29 0 32 0;
+#X connect 29 1 31 0;
+#X connect 30 0 17 0;
+#X connect 30 1 29 0;
+#X connect 32 0 3 0;
+#X connect 33 0 13 0;
+#X connect 34 0 25 0;
+#X connect 35 0 37 0;
+#X connect 36 0 38 0;
+#X connect 37 0 16 0;
+#X connect 38 0 15 0;
+#X connect 41 0 3 0;
+#X connect 41 1 2 0;
+#X connect 41 2 12 0;
+#X connect 41 3 24 0;
+#X connect 41 4 40 0;
+#X connect 42 0 3 1;
+#X connect 43 0 44 1;
+#X connect 44 0 14 0;
+#X connect 45 0 44 0;
+#X connect 45 1 11 0;
diff --git a/core/keycommand-help.pd b/core/keycommand-help.pd
new file mode 100644
index 0000000..b928e37
--- /dev/null
+++ b/core/keycommand-help.pd
@@ -0,0 +1,24 @@
+#N canvas 932 55 326 225 10;
+#X text 12 9 [keycommand] - assign a keyboard key to a receiver;
+#X obj 42 82 keycommand a \$0go;
+#X obj 42 102 keycommand s \$0do-it;
+#X obj 42 122 keycommand d \$0now;
+#X obj 42 142 keycommand f \$0comeon;
+#X obj 212 82 r \$0go;
+#X obj 212 102 r \$0do-it;
+#X obj 212 122 r \$0now;
+#X obj 212 142 r \$0comeon;
+#X obj 294 99 bng 15 250 50 0 empty empty empty 17 7 0 10 -258113 -257985
+-1;
+#X obj 294 119 bng 15 250 50 0 empty empty empty 17 7 0 10 -4034 -4160
+-1;
+#X obj 294 139 bng 15 250 50 0 empty empty empty 17 7 0 10 -159808
+-4034 -1;
+#X obj 294 159 bng 15 250 50 0 empty empty empty 17 7 0 10 -260097
+-4032 -1;
+#X text 187 183 2008 Luke Iannini;
+#X text 187 198 proyekto.net;
+#X connect 5 0 9 0;
+#X connect 6 0 10 0;
+#X connect 7 0 11 0;
+#X connect 8 0 12 0;
diff --git a/core/keycommand.pd b/core/keycommand.pd
new file mode 100644
index 0000000..1b6a5d5
--- /dev/null
+++ b/core/keycommand.pd
@@ -0,0 +1,6 @@
+#N canvas 274 22 177 175 10;
+#X obj 29 47 keynamedown \$1;
+#X obj 29 116 s \$2;
+#X obj 29 82 list append \$3;
+#X connect 0 0 2 0;
+#X connect 2 0 1 0;
diff --git a/core/pausetimer-help.pd b/core/pausetimer-help.pd
new file mode 100644
index 0000000..a29cfb0
--- /dev/null
+++ b/core/pausetimer-help.pd
@@ -0,0 +1,21 @@
+#N canvas 669 298 565 260 10;
+#X obj 123 37 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X msg 131 95 pause;
+#X msg 171 95 resume;
+#X msg 216 95 reset;
+#X floatatom 123 195 0 0 0 0 - - -;
+#X obj 123 157 pausetimer;
+#X text 6 6 pausetimer: pausable [timer];
+#X obj 123 56 metro 0.1;
+#X text 261 77 float to add offset ( reset on [reset( );
+#X msg 258 95 -5000;
+#X msg 258 114 15000;
+#X connect 0 0 7 0;
+#X connect 1 0 5 0;
+#X connect 2 0 5 0;
+#X connect 3 0 5 0;
+#X connect 5 0 4 0;
+#X connect 7 0 5 0;
+#X connect 9 0 5 0;
+#X connect 10 0 5 0;
diff --git a/core/vmetro.pd b/core/vmetro.pd
new file mode 100644
index 0000000..ca79140
--- /dev/null
+++ b/core/vmetro.pd
@@ -0,0 +1,30 @@
+#N canvas 718 533 518 301 10;
+#X obj 105 261 outlet;
+#X obj 327 29 inlet;
+#X obj 107 13 inlet;
+#X obj 178 102 route float bang;
+#X obj 107 195 delay;
+#X obj 234 178 list-onearg \$1 1;
+#X msg 107 111 stop;
+#X msg 178 125 bang;
+#X obj 78 218 t b b;
+#X obj 234 155 loadbang;
+#X obj 107 34 list;
+#X obj 107 56 sel stop;
+#X obj 152 77 sel 0;
+#X connect 1 0 5 1;
+#X connect 2 0 10 0;
+#X connect 3 0 7 0;
+#X connect 3 1 7 0;
+#X connect 4 0 8 0;
+#X connect 5 0 4 1;
+#X connect 6 0 4 0;
+#X connect 7 0 4 0;
+#X connect 8 0 4 0;
+#X connect 8 1 0 0;
+#X connect 9 0 5 0;
+#X connect 10 0 11 0;
+#X connect 11 0 6 0;
+#X connect 11 1 12 0;
+#X connect 12 0 6 0;
+#X connect 12 1 3 0;
-- 
cgit v1.2.1