latest batch of abs and helpfiles

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

12 files changed, 265 insertions, 9 deletions

diff --git a/core/btn.pd b/core/btn.pd
new file mode 100644
index 0000000..68d7797
--- /dev/null
+++ b/core/btn.pd
@@ -0,0 +1,45 @@
+#N canvas 361 196 433 465 10;
+#X text -117 -87 at size 11 letters are 7px wide;
+#X obj -50 348 hradio 15 1 0 4 \$0radio \$0radioR empty 0 -8 0 10 -262144
+-1 -1 3;
+#X obj -49 349 cnv 13 118 13 empty \$0canvas boobies 3 6 0 11 -233017
+-66577 0;
+#X text -118 -45 subtract difference add half to text xoffset;
+#X text -117 -67 div result + 2 \, then add 1 extra radio;
+#X obj -61 38 s2l-explode;
+#X msg -61 -2 boobies;
+#X obj -61 17 t a a;
+#X obj 65 17 s \$0canvas;
+#X obj -61 59 list-len;
+#X obj -61 80 * 7;
+#X obj -61 124 t a a;
+#X obj -34 146 div 15;
+#X obj -61 102 + 2;
+#X obj -34 168 + 1;
+#X msg 19 242 vis_size \$1 13;
+#X obj 19 201 * 15;
+#X obj 19 222 - 2;
+#X obj 19 263 s \$0canvas;
+#X obj -34 203 t a a;
+#X obj -22 17 prepent label;
+#X msg -34 291 number \$1;
+#X obj -34 314 s \$0radioR;
+#X floatatom 33 159 5 0 0 0 - - -;
+#X connect 5 0 9 0;
+#X connect 6 0 7 0;
+#X connect 7 0 5 0;
+#X connect 7 1 20 0;
+#X connect 9 0 10 0;
+#X connect 10 0 13 0;
+#X connect 11 1 12 0;
+#X connect 12 0 14 0;
+#X connect 13 0 11 0;
+#X connect 14 0 19 0;
+#X connect 15 0 18 0;
+#X connect 16 0 17 0;
+#X connect 17 0 15 0;
+#X connect 19 0 21 0;
+#X connect 19 1 16 0;
+#X connect 20 0 8 0;
+#X connect 21 0 22 0;
+#X connect 23 0 16 0;
diff --git a/core/color.rgbset-help.pd b/core/color.rgbset-help.pd
new file mode 100644
index 0000000..95cea80
--- /dev/null
+++ b/core/color.rgbset-help.pd
@@ -0,0 +1,19 @@
+#N canvas 0 22 483 336 10;
+#X obj 59 101 color.rgbset;
+#X msg 128 228;
+#X msg 59 68 245 22 201;
+#X text 57 50 Takes a triplet of 0-255 RGB values to set;
+#X text 139 102 Orange bang re-outputs current values;
+#X text 140 116 Radio-dial selects back \, front or label;
+#X text 6 9 [color.rgbset] - Easily work with and set colors for GUI
+objects;
+#X obj 59 258 hradio 20 1 0 2 empty empty empty 0 -8 0 10 -262144 -1
+-1 0;
+#X text 141 181 right outlet makes a "color # # #" message (connect
+a message box to it) that you can cut and paste to dynamically set
+your GUI colors;
+#X text 58 284 Left outlet connects directly to GUI objects to change
+their colors;
+#X connect 0 0 7 0;
+#X connect 0 1 1 0;
+#X connect 2 0 0 0;
diff --git a/core/color.rgbset.pd b/core/color.rgbset.pd
index 480db7c..a93382f 100644
--- a/core/color.rgbset.pd
+++ b/core/color.rgbset.pd
@@ -1,5 +1,5 @@
 #N canvas 185 89 559 602 10;
-#X obj 30 183 cnv 15 18 15 empty \$0dispcol1 empty 20 12 0 14 -128992
+#X obj 30 173 cnv 15 18 15 empty \$0dispcol1 empty 20 12 0 14 -128992
 -262144 0;
 #X obj 218 73 * -65536;
 #X obj 281 73 * -256;
@@ -20,14 +20,14 @@
 #X obj 225 337 t f b b;
 #X obj 279 473 pack f f f;
 #X obj 279 500 list prepend color;
-#X obj 30 116 vsl 15 60 0 255 0 0 \$0red \$0redR empty 0 -8 0 8 -258049
+#X obj 30 106 vsl 15 60 0 255 0 0 \$0red \$0redR empty 0 -8 0 8 -258049
 -1 -1 2938 1;
-#X obj 50 116 vsl 15 60 0 255 0 0 \$0green \$0greenR empty 0 -8 0 8
+#X obj 50 106 vsl 15 60 0 255 0 0 \$0green \$0greenR empty 0 -8 0 8
 -4033 -1 -1 2938 1;
-#X obj 70 116 vsl 15 60 0 255 0 0 \$0blue \$0blueR empty 0 -8 0 8 -64
+#X obj 70 106 vsl 15 60 0 255 0 0 \$0blue \$0blueR empty 0 -8 0 8 -64
 -1 -1 2938 1;
 #X obj 279 526 list trim;
-#X obj 52 100 hradio 10 1 0 3 \$0layer \$0layerr back 0 -4 0 8 -1 -262144
+#X obj 52 90 hradio 10 1 0 3 \$0layer \$0layerr back 0 -4 0 8 -1 -262144
 -1 0;
 #X obj 361 224 r \$0layer;
 #X obj 218 47 int;
@@ -36,7 +36,7 @@
 #X obj 218 21 r \$0red;
 #X obj 281 21 r \$0green;
 #X obj 351 21 r \$0blue;
-#X obj 30 95 bng 15 250 50 0 \$0nullS \$0nullR empty 0 -6 0 8 -260033
+#X obj 30 85 bng 15 250 50 0 \$0nullS \$0nullR empty 0 -6 0 8 -260033
 -1 -1;
 #X obj 35 288 r \$0layer;
 #X obj 35 313 sel 0 1 2;
@@ -53,9 +53,9 @@
 #X obj 295 442 s \$0dispcol2;
 #X msg 384 422 color \$1;
 #X obj 385 442 s \$0dispcol3;
-#X obj 49 183 cnv 15 18 15 empty \$0dispcol2 empty 20 12 0 14 -1 -262144
+#X obj 49 173 cnv 15 18 15 empty \$0dispcol2 empty 20 12 0 14 -1 -262144
 0;
-#X obj 68 183 cnv 15 18 15 empty \$0dispcol3 empty 20 12 0 14 -1 -262144
+#X obj 68 173 cnv 15 18 15 empty \$0dispcol3 empty 20 12 0 14 -1 -262144
 0;
 #X obj 421 500 list prepend set;
 #X obj 421 526 list trim;
@@ -153,4 +153,4 @@
 #X connect 55 0 20 0;
 #X connect 55 1 21 0;
 #X connect 55 2 22 0;
-#X coords 0 -1 1 1 56 120 1 30 80;
+#X coords 0 -1 1 1 56 109 2 30 80;
diff --git a/core/countseq.pd b/core/countseq.pd
new file mode 100644
index 0000000..28dc23a
--- /dev/null
+++ b/core/countseq.pd
@@ -0,0 +1,103 @@
+#N canvas 974 303 373 390 10;
+#X obj 26 159 f;
+#X obj 81 83 sel restart;
+#X msg 81 108 0;
+#X obj 112 108 t b;
+#X obj 28 10 inlet;
+#X obj 163 40 inlet;
+#X obj 130 159 mod \$1;
+#X obj 232 147 dollarg;
+#X obj 232 124 loadbang;
+#X obj 232 171 list split 1;
+#X obj 88 285 list-find;
+#N canvas 712 115 568 364 split-symbols 0;
+#X obj 160 159 route symbol float;
+#X obj 84 159 list-filter;
+#X obj 84 53 inlet;
+#X obj 84 77 t a a;
+#X msg 160 182 0;
+#X msg 265 184 0;
+#X msg 212 183 1;
+#X obj 383 158 route symbol float;
+#X obj 307 158 list-filter;
+#X msg 488 183 0;
+#X msg 383 181 1;
+#X msg 435 182 0;
+#X obj 307 288 outlet;
+#X obj 84 249 outlet;
+#X obj 307 252 list-map;
+#X obj 384 233 s2l-explode;
+#X obj 384 253 list split 1;
+#X obj 418 274 list-l2s;
+#X obj 418 295 atoi;
+#X text 349 312 remove leading "accent" identifier;
+#X connect 0 0 4 0;
+#X connect 0 1 6 0;
+#X connect 0 2 5 0;
+#X connect 1 0 13 0;
+#X connect 1 1 0 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 3 1 8 0;
+#X connect 4 0 1 1;
+#X connect 5 0 1 1;
+#X connect 6 0 1 1;
+#X connect 7 0 10 0;
+#X connect 7 1 11 0;
+#X connect 7 2 9 0;
+#X connect 8 0 14 0;
+#X connect 8 1 7 0;
+#X connect 9 0 8 1;
+#X connect 10 0 8 1;
+#X connect 11 0 8 1;
+#X connect 14 0 12 0;
+#X connect 14 1 15 0;
+#X connect 15 0 16 0;
+#X connect 16 1 17 0;
+#X connect 17 0 18 0;
+#X connect 18 0 14 1;
+#X restore 208 199 pd split-symbols;
+#X obj 159 285 list-find;
+#X obj 26 194 t a a a;
+#X obj 26 312 sel 0;
+#X obj 26 354 outlet;
+#X obj 88 354 outlet;
+#X obj 159 354 outlet;
+#X obj 208 40 inlet;
+#X obj 58 159 + 1;
+#X obj 282 331 + 1;
+#X obj 282 354 outlet;
+#X obj 210 255 list-apply - 1;
+#X obj 139 228 list-apply - 1;
+#X obj 80 63 list;
+#X obj 28 32 route bang seek;
+#X connect 0 0 13 0;
+#X connect 0 0 19 0;
+#X connect 0 0 20 0;
+#X connect 1 0 2 0;
+#X connect 1 1 3 0;
+#X connect 2 0 0 1;
+#X connect 3 0 0 0;
+#X connect 4 0 25 0;
+#X connect 5 0 6 1;
+#X connect 6 0 0 1;
+#X connect 7 0 9 0;
+#X connect 8 0 7 0;
+#X connect 9 1 11 0;
+#X connect 10 0 16 0;
+#X connect 11 0 23 0;
+#X connect 11 1 22 0;
+#X connect 12 0 17 0;
+#X connect 13 0 14 0;
+#X connect 13 1 10 0;
+#X connect 13 2 12 0;
+#X connect 14 0 15 0;
+#X connect 18 0 11 0;
+#X connect 19 0 6 0;
+#X connect 20 0 21 0;
+#X connect 22 0 12 1;
+#X connect 23 0 10 1;
+#X connect 24 0 1 0;
+#X connect 25 0 0 0;
+#X connect 25 1 0 1;
+#X connect 25 2 24 0;
diff --git a/core/dynamic-gui-messages-help.pd b/core/dynamic-gui-messages-help.pd
new file mode 100644
index 0000000..cf494f9
--- /dev/null
+++ b/core/dynamic-gui-messages-help.pd
@@ -0,0 +1,10 @@
+#N canvas 986 26 450 300 10;
+#X msg 39 77 obj 10 10 vsl width height bottom top log/lin init send
+receive label l-offsetX l-offsetY font fontsize bgcolor frontcolor
+labelcolor init-to jumponclick \;;
+#X msg 39 127 obj 10 10 vradio size 1(?) init number send receive label
+l-offsetX l-offsetY font fontsize bgcolor frontcolor labelcolor init-to
+\;;
+#X msg 39 27 obj 10 10 tgl size init send receive label l-offsetX l-offsetY
+font fontsize bgcolor frontcolor labelcolor init-to non-zero-value
+\;;
diff --git a/core/ifspigot-help.pd b/core/ifspigot-help.pd
new file mode 100644
index 0000000..e9b1209
--- /dev/null
+++ b/core/ifspigot-help.pd
@@ -0,0 +1,11 @@
+#N canvas 630 151 498 250 10;
+#X obj 26 74 ifspigot \$0test;
+#X text 10 12 [ifspigot] - receiver-conditional spigot;
+#X text 124 74 if test is 1 \, spigot is on \, else spigot is off;
+#X obj 26 114 ifspigot \$0test false;
+#X text 160 114 if test is 0 \, spigot is on \, else spigot is off
+;
+#X obj 26 157 ifspigot \$0test true 1;
+#X text 167 152 last argument lets you set default state of internal
+spigot \; with no argument \, it is 0;
+#X text 369 224 2008 Luke Iannini;
diff --git a/core/ifspigot.pd b/core/ifspigot.pd
new file mode 100644
index 0000000..6dd3195
--- /dev/null
+++ b/core/ifspigot.pd
@@ -0,0 +1,18 @@
+#N canvas 0 22 293 288 10;
+#X obj 29 37 inlet;
+#X obj 29 243 outlet;
+#X obj 80 88 r \$1;
+#X obj 80 125 == 1;
+#X obj 152 38 loadbang;
+#X obj 152 59 list append \$2;
+#X msg 152 108 0;
+#X obj 152 84 sel false;
+#X obj 29 156 spigot \$3;
+#X connect 0 0 8 0;
+#X connect 2 0 3 0;
+#X connect 3 0 8 1;
+#X connect 4 0 5 0;
+#X connect 5 0 7 0;
+#X connect 6 0 3 1;
+#X connect 7 0 6 0;
+#X connect 8 0 1 0;
diff --git a/core/myifspigot-help.pd b/core/myifspigot-help.pd
new file mode 100644
index 0000000..3d5882b
--- /dev/null
+++ b/core/myifspigot-help.pd
@@ -0,0 +1,20 @@
+#N canvas 0 22 450 300 10;
+#X text 35 28 [myifspigot] - choose your own comparison operator;
+#X text 36 52 if "receiver" (\$1) is "==/>=/</>/whatever" (\$2) than
+\$3 then spigot is on. \$4 sets initial state of spigot.;
+#X obj 76 165 myifspigot \$0test > 3;
+#X obj 76 88 loadbang;
+#X obj 76 114 metro 250;
+#X obj 76 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 266 169 hradio 15 1 0 8 empty empty empty 0 -8 0 10 -262144
+-1 -1 0;
+#X obj 266 209 s \$0test;
+#X text 296 275 2008 Luke Iannini;
+#X text 229 152 Set higher than 3 to turn on spigot;
+#X floatatom 276 189 5 0 0 0 - - -;
+#X connect 2 0 5 0;
+#X connect 3 0 4 0;
+#X connect 4 0 2 0;
+#X connect 6 0 7 0;
+#X connect 6 0 10 0;
diff --git a/core/myifspigot.pd b/core/myifspigot.pd
new file mode 100644
index 0000000..3bfdb06
--- /dev/null
+++ b/core/myifspigot.pd
@@ -0,0 +1,10 @@
+#N canvas 248 356 164 276 10;
+#X obj 29 37 inlet;
+#X obj 29 243 outlet;
+#X obj 80 92 r \$1;
+#X obj 29 156 spigot \$4;
+#X obj 80 125 \$2 \$3;
+#X connect 0 0 3 0;
+#X connect 2 0 4 0;
+#X connect 3 0 1 0;
+#X connect 4 0 3 1;
diff --git a/core/oscinify.pd b/core/oscinify.pd
new file mode 100644
index 0000000..0976372
--- /dev/null
+++ b/core/oscinify.pd
@@ -0,0 +1,8 @@
+#N canvas 594 98 149 115 10;
+#X obj 21 74 s PDOSC;
+#X obj 21 21 r \$2;
+#X obj 21 45 list prepend \$1;
+#X obj 21 0 inlet;
+#X connect 1 0 2 0;
+#X connect 2 0 0 0;
+#X connect 3 0 0 0;
diff --git a/core/oscoutify.pd b/core/oscoutify.pd
new file mode 100644
index 0000000..ad53ca8
--- /dev/null
+++ b/core/oscoutify.pd
@@ -0,0 +1,8 @@
+#N canvas 594 98 149 115 10;
+#X obj 21 84 s PDOSC;
+#X obj 21 31 r \$2;
+#X obj 21 55 list prepend \$1;
+#X obj 21 0 inlet;
+#X connect 1 0 2 0;
+#X connect 2 0 0 0;
+#X connect 3 0 2 0;
diff --git a/core/rprint.pd b/core/rprint.pd
new file mode 100644
index 0000000..c7a56fb
--- /dev/null
+++ b/core/rprint.pd
@@ -0,0 +1,4 @@
+#N canvas 674 156 132 106 10;
+#X obj 26 24 r \$1;
+#X obj 26 56 print \$1;
+#X connect 0 0 1 0;