From d8da3b1dcf2f2cfeff53071b390a0e5d9e36b05b Mon Sep 17 00:00:00 2001 From: Luke Iannini Date: Wed, 23 Apr 2008 03:55:00 +0000 Subject: two more ds-abs, plus guilink for linking two controls svn path=/trunk/abstractions/senderfruit/; revision=9721 --- core/ds-dump-array.pd | 17 +++++++++++++ core/ds-get-list.pd | 67 +++++++++++++++++++++++++++++++++++++++++++++++++++ core/guilink-help.pd | 15 ++++++++++++ core/guilink.pd | 9 +++++++ 4 files changed, 108 insertions(+) create mode 100644 core/ds-dump-array.pd create mode 100644 core/ds-get-list.pd create mode 100644 core/guilink-help.pd create mode 100644 core/guilink.pd diff --git a/core/ds-dump-array.pd b/core/ds-dump-array.pd new file mode 100644 index 0000000..3920336 --- /dev/null +++ b/core/ds-dump-array.pd @@ -0,0 +1,17 @@ +#N canvas 1004 477 263 225 10; +#X obj 81 29 inlet; +#X obj 81 78 getsize \$1 \$2; +#X obj 81 50 t p p; +#X obj 81 156 element \$1 \$2; +#X obj 81 185 outlet; +#X obj 81 106 list-range; +#X obj 81 131 list-drip; +#X obj 132 185 outlet; +#X connect 0 0 2 0; +#X connect 1 0 5 0; +#X connect 2 0 1 0; +#X connect 2 1 3 1; +#X connect 3 0 4 0; +#X connect 5 0 6 0; +#X connect 6 0 3 0; +#X connect 6 1 7 0; diff --git a/core/ds-get-list.pd b/core/ds-get-list.pd new file mode 100644 index 0000000..8048067 --- /dev/null +++ b/core/ds-get-list.pd @@ -0,0 +1,67 @@ +#N canvas 539 101 566 566 10; +#N canvas 936 317 494 366 builder 1; +#X obj 182 56 dollarg; +#X obj 182 30 initbang; +#X obj 209 277 s \$0self; +#N canvas 381 63 155 275 makepack 0; +#X obj 11 26 inlet; +#X obj 32 99 until; +#X obj 32 155 list-extend; +#X msg 95 100 pack; +#X msg 32 127 f; +#X obj 11 182 list; +#X obj 11 73 t b a b; +#X obj 11 208 list prepend obj 10 200; +#X obj 11 238 list trim; +#X obj 11 269 outlet; +#X connect 0 0 6 0; +#X connect 1 0 4 0; +#X connect 2 0 5 1; +#X connect 3 0 2 1; +#X connect 4 0 2 0; +#X connect 5 0 7 0; +#X connect 6 0 5 0; +#X connect 6 1 1 0; +#X connect 6 2 3 0; +#X connect 7 0 8 0; +#X connect 8 0 9 0; +#X restore 131 164 pd makepack; +#X msg 221 114 obj 10 10 inlet; +#X msg 111 185 obj 10 300 outlet; +#X obj 126 104 - 1; +#X text 304 73 first arg is template; +#X obj 126 82 f; +#X obj 92 141 t a b a; +#X obj 182 82 t b a b; +#X msg -10 168 connect 2 0 3 0; +#X obj 34 200 list-range; +#X obj 34 221 list-drip; +#X msg 34 252 connect 3 \$1 4 \$1; +#X msg -6 282 connect 4 0 5 0; +#X obj 202 158 list trim; +#X obj 202 135 list prepend obj 10 100 get; +#X connect 0 0 10 0; +#X connect 0 1 8 1; +#X connect 1 0 0 0; +#X connect 3 0 2 0; +#X connect 4 0 2 0; +#X connect 5 0 2 0; +#X connect 6 0 9 0; +#X connect 8 0 6 0; +#X connect 9 0 12 0; +#X connect 9 0 11 0; +#X connect 9 0 15 0; +#X connect 9 1 5 0; +#X connect 9 2 3 0; +#X connect 10 0 8 0; +#X connect 10 1 17 0; +#X connect 10 2 4 0; +#X connect 11 0 2 0; +#X connect 12 0 13 0; +#X connect 13 0 14 0; +#X connect 14 0 2 0; +#X connect 15 0 2 0; +#X connect 16 0 2 0; +#X connect 17 0 16 0; +#X restore 311 39 pd builder; +#X obj 310 16 namecanvas \$0self; diff --git a/core/guilink-help.pd b/core/guilink-help.pd new file mode 100644 index 0000000..2d16905 --- /dev/null +++ b/core/guilink-help.pd @@ -0,0 +1,15 @@ +#N canvas 36 238 450 300 10; +#X obj 54 95 guilink \$0 frequency; +#X obj 241 61 vsl 15 128 1 20000 1 0 \$0frequency \$0frequencyR empty +0 -9 0 10 -203904 -1 -1 0 1; +#X obj 269 114 nbx 5 14 1 20000 1 0 \$0frequencyD \$0frequencyDR empty +0 -8 0 10 -203904 -1 -1 1 256; +#X text 18 9 guilink: link two gui elements so that they reflect each +other's settings; +#X obj 71 146 r \$0parameter; +#X floatatom 71 177 6 0 0 0 - - -; +#X text 14 217 Uses a uniform naming scheme. The "master" control is +uses \$0parameter as its sendname and \$0parameterR as its receivename. +The "slave" control uses \$0parameterD (for Display) as its sendname +and \$0paramterDR for its receivename; +#X connect 4 0 5 0; diff --git a/core/guilink.pd b/core/guilink.pd new file mode 100644 index 0000000..11e3f8d --- /dev/null +++ b/core/guilink.pd @@ -0,0 +1,9 @@ +#N canvas 469 180 164 138 10; +#X obj 23 21 r \$1\$2; +#X obj 23 101 s \$1\$2R; +#X obj 93 21 r \$1\$2D; +#X obj 91 101 s \$1\$2DR; +#X msg 23 53 set \$1; +#X connect 0 0 4 0; +#X connect 2 0 1 0; +#X connect 4 0 3 0; -- cgit v1.2.1