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/ds-next-element.pd | 152 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 152 insertions(+)
 create mode 100644 core/ds-next-element.pd

(limited to 'core/ds-next-element.pd')

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;
-- 
cgit v1.2.1