diff options
-rw-r--r-- | sfruit/gem.triplet.pd | 29 | ||||
-rw-r--r-- | sfruit/list-dripslowx.pd | 39 | ||||
-rw-r--r-- | sfruit/list-extendq-help.pd | 29 | ||||
-rw-r--r-- | sfruit/list-extendq.pd | 13 |
4 files changed, 110 insertions, 0 deletions
diff --git a/sfruit/gem.triplet.pd b/sfruit/gem.triplet.pd new file mode 100644 index 0000000..2ed6077 --- /dev/null +++ b/sfruit/gem.triplet.pd @@ -0,0 +1,29 @@ +#N canvas 866 300 448 447 10; +#X floatatom 43 144 12 0 0 0 - #0.x.r #0.x.s; +#X floatatom 123 144 12 0 0 0 - #0.y.r #0.y.s; +#X floatatom 203 144 12 0 0 0 - #0.z.r #0.z.s; +#X obj 43 25 inlet; +#X obj 43 45 unpack f f f; +#X obj 43 66 s \$0.x.r; +#X obj 63 86 s \$0.y.r; +#X obj 83 106 s \$0.z.r; +#X obj 43 262 hotpack3 f f f; +#X obj 43 295 t a a; +#X msg 70 321 set \$1 \$2 \$3; +#X obj 43 368 outlet; +#X obj 122 371 outlet; +#X obj 43 186 r \$0.x.s; +#X obj 63 206 r \$0.y.s; +#X obj 83 226 r \$0.z.s; +#X connect 3 0 4 0; +#X connect 4 0 5 0; +#X connect 4 1 6 0; +#X connect 4 2 7 0; +#X connect 8 0 9 0; +#X connect 9 0 11 0; +#X connect 9 1 10 0; +#X connect 10 0 12 0; +#X connect 13 0 8 0; +#X connect 14 0 8 1; +#X connect 15 0 8 2; +#X coords 0 -1 1 1 238 20 2 41 142; diff --git a/sfruit/list-dripslowx.pd b/sfruit/list-dripslowx.pd new file mode 100644 index 0000000..5579566 --- /dev/null +++ b/sfruit/list-dripslowx.pd @@ -0,0 +1,39 @@ +#N canvas 592 504 407 292 10; +#N canvas 0 22 533 407 dripslow 1; +#X obj 87 232 list split 1; +#X obj 87 207 list append; +#X obj 87 283 outlet; +#X obj 87 83 inlet; +#X obj 166 283 outlet; +#X obj 159 81 inlet; +#X obj 87 118 b; +#X text 202 82 list; +#X text 42 83 bang; +#X text 210 283 EOL; +#X text 28 282 element; +#X obj 166 253 b; +#X obj 165 181 loadbang; +#X obj 165 207 list-onearg \$1; +#X connect 0 0 2 0; +#X connect 0 1 1 1; +#X connect 0 2 11 0; +#X connect 1 0 0 0; +#X connect 3 0 6 0; +#X connect 5 0 1 1; +#X connect 6 0 1 0; +#X connect 11 0 4 0; +#X connect 12 0 13 0; +#X connect 13 0 0 1; +#X restore 149 136 pd dripslow; +#X obj 149 199 outlet; +#X obj 149 73 inlet; +#X obj 221 199 outlet; +#X obj 221 71 inlet; +#X text 265 70 list; +#X text 105 71 bang; +#X text 274 200 EOL; +#X text 94 198 element; +#X connect 0 0 1 0; +#X connect 0 1 3 0; +#X connect 2 0 0 0; +#X connect 4 0 0 1; diff --git a/sfruit/list-extendq-help.pd b/sfruit/list-extendq-help.pd new file mode 100644 index 0000000..302c8cb --- /dev/null +++ b/sfruit/list-extendq-help.pd @@ -0,0 +1,29 @@ +#N canvas 329 163 570 457 10; +#X msg 102 183 1 2 3; +#X msg 156 290 bang; +#X msg 101 215 bang; +#X msg 102 161 a b c; +#X msg 102 139 x y z; +#X msg 154 259 A B C; +#X text 60 72 Build a list from incoming lists or elements.; +#X floatatom 101 119 5 0 0 0 - - -; +#X text 97 97 Add elements or lists and output stored list.; +#X text 146 219 output stored list; +#X text 201 261 set complete stored list; +#X text 201 292 set stored list to empty list (==reset); +#X text 44 27 list-extendq; +#X text 141 14 same as [list-extend] \, but doesn't output its contents +every time you add elements (instead it only outputs when you send +a bang).; +#X obj 68 323 list-extendq; +#X obj 68 363 print LIST-EXTENDQ; +#X text 163 404 a modification of Frank Barknecht's list-extend (and +its helpfile) by Luke Iannini 2009; +#X connect 0 0 14 0; +#X connect 1 0 14 1; +#X connect 2 0 14 0; +#X connect 3 0 14 0; +#X connect 4 0 14 0; +#X connect 5 0 14 1; +#X connect 7 0 14 0; +#X connect 14 0 15 0; diff --git a/sfruit/list-extendq.pd b/sfruit/list-extendq.pd new file mode 100644 index 0000000..7be33d5 --- /dev/null +++ b/sfruit/list-extendq.pd @@ -0,0 +1,13 @@ +#N canvas 420 440 356 227 10; +#X obj 142 108 list-extend; +#X obj 121 140 list; +#X obj 205 46 inlet; +#X obj 121 46 inlet; +#X obj 121 80 route bang; +#X obj 121 172 outlet; +#X connect 0 0 1 1; +#X connect 1 0 5 0; +#X connect 2 0 0 1; +#X connect 3 0 4 0; +#X connect 4 0 1 0; +#X connect 4 1 0 0; |