more additions to senderfruit's library and documentation

svn path=/trunk/abstractions/senderfruit/; revision=10254

12 files changed, 244 insertions, 2 deletions

diff --git a/core/donecanvasdialog-help.pd b/core/donecanvasdialog-help.pd
index 18949ae..4795b26 100644
--- a/core/donecanvasdialog-help.pd
+++ b/core/donecanvasdialog-help.pd
@@ -1,3 +1,4 @@
 #N canvas 576 113 450 300 10;
-#X msg 20 202 donecanvasdialog xUnits yUnits GOP xFrom yFrom xTo yTo
-xSize ySize xMargin yMargin;
+#X msg 57 145 donecanvasdialog 1 -1 1 0 -1 1 1 85 60 100 100;
+#X msg 57 105 donecanvasdialog xUnits yUnits GOP(1)GOPandHide(2) xFrom
+yFrom xTo yTo xSize ySize xMargin yMargin;
diff --git a/core/gop-edit.pd b/core/gop-edit.pd
new file mode 100644
index 0000000..5fbe13c
--- /dev/null
+++ b/core/gop-edit.pd
@@ -0,0 +1,28 @@
+#N canvas 356 354 1026 403 10;
+#X obj 4 1 hsl 290 15 10 300 0 0 \$0.x-size-s \$0.x-size-r x-size 140
+7 0 10 -262144 -1 -1 9400 1;
+#X obj 1 3 vsl 15 290 300 10 0 0 \$0.y-size-s \$0.y-size-r y 5 150
+0 10 -262144 -1 -1 22800 1;
+#X obj 554 188 loadbang;
+#X msg 554 213 10;
+#X obj 554 242 s \$0.y-size-r;
+#X obj 391 14 r \$0.y-size-s;
+#X obj 362 -6 r \$0.x-size-s;
+#X obj 17 17 nbx 3 14 0 1e+37 0 0 \$0.x-off-s \$0.x-off-r x 40 7 0
+10 -262144 -1 -1 425 256;
+#X obj 17 31 nbx 3 14 0 1e+37 0 0 \$0.y-off-s \$0.y-off-r y 40 7 0
+10 -262144 -1 -1 100 256;
+#X obj 362 78 hotpack f f f f;
+#X obj 420 34 r \$0.x-off-s;
+#X obj 449 54 r \$0.y-off-s;
+#X msg 362 101 donecanvasdialog 1 -1 2 0 -1 1 1 \$1 \$2 \$3 \$4;
+#X obj 362 133 s \$1;
+#X connect 2 0 3 0;
+#X connect 3 0 4 0;
+#X connect 5 0 9 1;
+#X connect 6 0 9 0;
+#X connect 9 0 12 0;
+#X connect 10 0 9 2;
+#X connect 11 0 9 3;
+#X connect 12 0 13 0;
+#X coords 0 -1 1 1 297 297 2 0 0;
diff --git a/core/keycommand-help.pd b/core/keycommand-help.pd
index b928e37..4780b65 100644
--- a/core/keycommand-help.pd
+++ b/core/keycommand-help.pd
@@ -18,6 +18,23 @@
 -4032 -1;
 #X text 187 183 2008 Luke Iannini;
 #X text 187 198 proyekto.net;
+#N canvas 0 22 450 300 optional-message 0;
+#X obj 289 70 r \$0messages;
+#X obj 41 87 keycommand w \$0messages SAID;
+#X obj 41 107 keycommand e \$0messages WHO;
+#X obj 41 67 keycommand q \$0messages I;
+#X obj 41 127 keycommand r \$0messages PUT;
+#X obj 41 147 keycommand t \$0messages ALL;
+#X obj 41 167 keycommand y \$0messages THOSE;
+#X obj 41 187 keycommand u \$0messages THINGS;
+#X obj 41 207 keycommand i \$0messages IN;
+#X obj 41 227 keycommand o \$0messages YOUR;
+#X obj 41 247 keycommand p \$0messages HEAD;
+#X symbolatom 289 124 10 0 0 0 - - -;
+#X text 51 17 keycommand takes an optional third argument to send a
+symbol to the receiver specified in the second argument.;
+#X connect 0 0 11 0;
+#X restore 8 196 pd optional-message;
 #X connect 5 0 9 0;
 #X connect 6 0 10 0;
 #X connect 7 0 11 0;
diff --git a/core/keymodroute-help.pd b/core/keymodroute-help.pd
new file mode 100644
index 0000000..b340f1c
--- /dev/null
+++ b/core/keymodroute-help.pd
@@ -0,0 +1,15 @@
+#N canvas 260 402 450 300 10;
+#X obj 125 130 keymodroute Alt_L;
+#X obj 125 97 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 125 175 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X obj 224 176 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X text 13 12 keymodroute - divert a message stream to the right outlet
+when a modifier key is held down.;
+#X text 145 96 click with and without "Alt" held down;
+#X text 301 274 2008 Luke Iannini;
+#X connect 0 0 2 0;
+#X connect 0 1 3 0;
+#X connect 1 0 0 0;
diff --git a/core/keymodroute.pd b/core/keymodroute.pd
new file mode 100644
index 0000000..a0b41fb
--- /dev/null
+++ b/core/keymodroute.pd
@@ -0,0 +1,17 @@
+#N canvas 11 461 208 158 10;
+#X obj 77 28 keynameonly \$1;
+#X obj 32 27 inlet;
+#X obj 32 51 t a a;
+#X obj 102 92 spigot;
+#X obj 77 51 == 0;
+#X obj 32 91 spigot 1;
+#X obj 32 115 outlet;
+#X obj 102 115 outlet;
+#X connect 0 0 4 0;
+#X connect 0 0 3 1;
+#X connect 1 0 2 0;
+#X connect 2 0 5 0;
+#X connect 2 1 3 0;
+#X connect 3 0 7 0;
+#X connect 4 0 5 1;
+#X connect 5 0 6 0;
diff --git a/core/keynameonly-help.pd b/core/keynameonly-help.pd
new file mode 100644
index 0000000..e6488c1
--- /dev/null
+++ b/core/keynameonly-help.pd
@@ -0,0 +1,22 @@
+#N canvas 98 339 450 300 10;
+#X obj 63 113 keynameonly a;
+#X obj 173 113 keynameonly b;
+#X obj 283 113 keynameonly c;
+#X floatatom 63 137 5 0 0 0 - - -;
+#X floatatom 173 137 5 0 0 0 - - -;
+#X floatatom 283 137 5 0 0 0 - - -;
+#X obj 63 162 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 173 162 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X obj 283 162 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X text 16 15 keynameonly - only listen for keystrokes from one key
+;
+#X text 279 271 2008 Luke Iannini;
+#X connect 0 0 3 0;
+#X connect 1 0 4 0;
+#X connect 2 0 5 0;
+#X connect 3 0 6 0;
+#X connect 4 0 7 0;
+#X connect 5 0 8 0;
diff --git a/core/keynameonly.pd b/core/keynameonly.pd
new file mode 100644
index 0000000..fa76d9a
--- /dev/null
+++ b/core/keynameonly.pd
@@ -0,0 +1,14 @@
+#N canvas 0 22 195 224 10;
+#X obj 47 65 keyname;
+#X obj 86 89 sel \$1;
+#X obj 47 172 outlet;
+#X obj 47 146 spigot;
+#X msg 86 113 1;
+#X msg 119 113 0;
+#X connect 0 0 3 0;
+#X connect 0 1 1 0;
+#X connect 1 0 4 0;
+#X connect 1 1 5 0;
+#X connect 3 0 2 0;
+#X connect 4 0 3 1;
+#X connect 5 0 3 1;
diff --git a/core/list-dripx-help.pd b/core/list-dripx-help.pd
new file mode 100644
index 0000000..d0f1fcf
--- /dev/null
+++ b/core/list-dripx-help.pd
@@ -0,0 +1,15 @@
+#N canvas 531 393 379 300 10;
+#X msg 76 68 a b c d e f g h i;
+#X obj 76 103 list-dripx 3;
+#X obj 76 172 print;
+#X msg 167 103 2;
+#X obj 145 150 bng 15 250 50 0 empty empty end 0 -6 0 8 -262144 -1
+-1;
+#X text 80 244 based on list-drip by Frank Barknecht;
+#X text 252 272 2008 Luke Iannini;
+#X text 4 13 list-dripx - output (n) elements of a list at a time.
+;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 1 1 4 0;
+#X connect 3 0 1 1;
diff --git a/core/list-dripx.pd b/core/list-dripx.pd
new file mode 100644
index 0000000..cff4fe3
--- /dev/null
+++ b/core/list-dripx.pd
@@ -0,0 +1,41 @@
+#N canvas 839 426 450 300 10;
+#N canvas 0 22 701 318 drip 0;
+#X obj 64 123 until;
+#X obj 64 181 list append;
+#X obj 194 206 bang;
+#X text 126 90 First store list \, then start the loop;
+#X text 143 118 "until" bangs its output until told to stop by a "bang"
+to its right inlet.;
+#X text 163 168 Store the remaining list.;
+#X text 230 209 third outlet of "split" tells us to stop.;
+#X obj 64 243 outlet;
+#X obj 64 57 inlet;
+#X text 217 44 From list-help.pd;
+#X obj 143 243 outlet;
+#X obj 64 86 t b a;
+#X obj 64 206 list split 1;
+#X obj 333 157 loadbang;
+#X obj 333 177 list-onearg \$1;
+#X obj 414 156 inlet;
+#X connect 0 0 1 0;
+#X connect 1 0 12 0;
+#X connect 2 0 0 1;
+#X connect 8 0 11 0;
+#X connect 11 0 0 0;
+#X connect 11 1 1 1;
+#X connect 12 0 7 0;
+#X connect 12 1 1 1;
+#X connect 12 2 2 0;
+#X connect 12 2 10 0;
+#X connect 13 0 14 0;
+#X connect 14 0 12 1;
+#X connect 15 0 14 1;
+#X restore 133 139 pd drip;
+#X obj 133 90 inlet;
+#X obj 133 212 outlet;
+#X obj 177 181 outlet;
+#X obj 172 90 inlet;
+#X connect 0 0 2 0;
+#X connect 0 1 3 0;
+#X connect 1 0 0 0;
+#X connect 4 0 0 1;
diff --git a/core/s2l-shorten.pd b/core/s2l-shorten.pd
new file mode 100644
index 0000000..b8d0056
--- /dev/null
+++ b/core/s2l-shorten.pd
@@ -0,0 +1,34 @@
+#N canvas 0 25 331 384 10;
+#X obj 41 42 inlet;
+#X obj 41 64 s2l-explode;
+#X obj 41 85 list split \$1;
+#X obj 74 247 list append;
+#X obj 74 270 list-l2s;
+#X obj 74 296 outlet;
+#X obj 137 199 loadbang;
+#X obj 137 220 list-onearg \$2 >;
+#X obj 41 137 list length;
+#X obj 41 201 list;
+#X obj 74 201 list;
+#X obj 41 107 t a a;
+#X obj 41 180 t b;
+#X obj 74 181 t b;
+#X obj 41 158 sel \$1;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 2 0 11 0;
+#X connect 2 2 4 0;
+#X connect 3 0 4 0;
+#X connect 4 0 5 0;
+#X connect 6 0 7 0;
+#X connect 7 0 3 1;
+#X connect 8 0 14 0;
+#X connect 9 0 4 0;
+#X connect 10 0 3 0;
+#X connect 11 0 8 0;
+#X connect 11 1 10 1;
+#X connect 11 1 9 1;
+#X connect 12 0 9 0;
+#X connect 13 0 10 0;
+#X connect 14 0 12 0;
+#X connect 14 1 13 0;
diff --git a/core/sendmany-osc.pd b/core/sendmany-osc.pd
new file mode 100644
index 0000000..adbbf3b
--- /dev/null
+++ b/core/sendmany-osc.pd
@@ -0,0 +1,20 @@
+#N canvas 696 252 225 433 10;
+#X obj 26 48 t b a;
+#X obj 32 160 list;
+#X obj 74 241 list-drip;
+#X obj 74 275 t b a;
+#X obj 74 209 list;
+#X obj 26 16 inlet;
+#X obj 95 161 inlet;
+#X obj 32 375 s PDOSC;
+#X obj 32 338 list prepend;
+#X connect 0 0 4 0;
+#X connect 0 1 1 1;
+#X connect 1 0 8 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 3 1 8 1;
+#X connect 4 0 2 0;
+#X connect 5 0 0 0;
+#X connect 6 0 4 1;
+#X connect 8 0 7 0;
diff --git a/core/sendmany.pd b/core/sendmany.pd
new file mode 100644
index 0000000..04f0d90
--- /dev/null
+++ b/core/sendmany.pd
@@ -0,0 +1,18 @@
+#N canvas 701 45 161 397 10;
+#X obj 32 365 s;
+#X obj 26 48 t b a;
+#X obj 32 160 list;
+#X obj 77 241 list-drip;
+#X obj 77 275 t b a;
+#X obj 77 209 list;
+#X obj 26 16 inlet;
+#X obj 98 161 inlet;
+#X connect 1 0 5 0;
+#X connect 1 1 2 1;
+#X connect 2 0 0 0;
+#X connect 3 0 4 0;
+#X connect 4 0 2 0;
+#X connect 4 1 0 1;
+#X connect 5 0 3 0;
+#X connect 6 0 1 0;
+#X connect 7 0 5 1;