From c9fe7d89b7092fa55ca34f5b8bbec67d1513eec5 Mon Sep 17 00:00:00 2001 From: Luke Iannini Date: Tue, 19 Aug 2008 07:28:10 +0000 Subject: more additions to senderfruit's library and documentation svn path=/trunk/abstractions/senderfruit/; revision=10254 --- core/donecanvasdialog-help.pd | 5 +++-- core/gop-edit.pd | 28 ++++++++++++++++++++++++++++ core/keycommand-help.pd | 17 +++++++++++++++++ core/keymodroute-help.pd | 15 +++++++++++++++ core/keymodroute.pd | 17 +++++++++++++++++ core/keynameonly-help.pd | 22 ++++++++++++++++++++++ core/keynameonly.pd | 14 ++++++++++++++ core/list-dripx-help.pd | 15 +++++++++++++++ core/list-dripx.pd | 41 +++++++++++++++++++++++++++++++++++++++++ core/s2l-shorten.pd | 34 ++++++++++++++++++++++++++++++++++ core/sendmany-osc.pd | 20 ++++++++++++++++++++ core/sendmany.pd | 18 ++++++++++++++++++ 12 files changed, 244 insertions(+), 2 deletions(-) create mode 100644 core/gop-edit.pd create mode 100644 core/keymodroute-help.pd create mode 100644 core/keymodroute.pd create mode 100644 core/keynameonly-help.pd create mode 100644 core/keynameonly.pd create mode 100644 core/list-dripx-help.pd create mode 100644 core/list-dripx.pd create mode 100644 core/s2l-shorten.pd create mode 100644 core/sendmany-osc.pd create mode 100644 core/sendmany.pd 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; -- cgit v1.2.1