diff options
Diffstat (limited to 'sfruit/canvasselect.pd')
| -rw-r--r-- | sfruit/canvasselect.pd | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/sfruit/canvasselect.pd b/sfruit/canvasselect.pd new file mode 100644 index 0000000..1a82d7d --- /dev/null +++ b/sfruit/canvasselect.pd @@ -0,0 +1,42 @@ +#N canvas 0 22 450 300 10; +#X declare -lib iemguts -lib list-abs; +#X obj 9 14 import iemguts list-abs; +#X obj 203 154 list-map; +#X obj 176 174 list-map; +#X obj 176 132 t a a; +#X obj 258 154 - 1; +#X obj 231 174 + 1; +#X msg 203 198 mouse \$1 \$2 0 0; +#X msg 236 105 vis 1 \, editmode 1; +#X msg 176 219 mouseup \$1 \$2 0; +#X obj 176 38 inlet; +#N canvas 35 286 450 300 canvasposition 0; +#X obj 172 58 inlet; +#X obj 172 103 outlet; +#X obj 172 81 canvasposition \$1; +#X text 84 8 subpatch'd so its argument lines up with sendcanvas's +(sendcanvas defaults to its immediate parent \, canvas position defaults +to its grandparent); +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X restore 176 82 pd canvasposition; +#X obj 176 61 t b; +#X obj 236 125 sendcanvas \$1; +#X obj 176 246 sendcanvas \$1; +#X obj 176 105 t a b; +#X connect 1 0 6 0; +#X connect 1 1 4 0; +#X connect 2 0 8 0; +#X connect 2 1 5 0; +#X connect 3 0 2 0; +#X connect 3 1 1 0; +#X connect 4 0 1 1; +#X connect 5 0 2 1; +#X connect 6 0 13 0; +#X connect 7 0 12 0; +#X connect 8 0 13 0; +#X connect 9 0 11 0; +#X connect 10 0 14 0; +#X connect 11 0 10 0; +#X connect 14 0 3 0; +#X connect 14 1 7 0; |