From f8d03aa6cd178df5a7bef1effc8b66af1c16e495 Mon Sep 17 00:00:00 2001 From: Luke Iannini Date: Sat, 10 Jan 2009 18:40:27 +0000 Subject: starting ds-gui library svn path=/trunk/abstractions/ds-gui/; revision=10503 --- ds-slider-help.pd | 5 ++++ ds-slider.pd | 79 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ gswitch-help.pd | 18 +++++++++++++ gswitch.pd | 78 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ 4 files changed, 180 insertions(+) create mode 100644 ds-slider-help.pd create mode 100644 ds-slider.pd create mode 100755 gswitch-help.pd create mode 100755 gswitch.pd diff --git a/ds-slider-help.pd b/ds-slider-help.pd new file mode 100644 index 0000000..41d0fe2 --- /dev/null +++ b/ds-slider-help.pd @@ -0,0 +1,5 @@ +#N struct 1003.advslider float a; +#N canvas 0 22 450 300 10; +#X floatatom 275 273 5 0 0 0 - - -; +#X obj 275 41 ds-slider2; +#X connect 1 0 0 0; diff --git a/ds-slider.pd b/ds-slider.pd new file mode 100644 index 0000000..e4af04f --- /dev/null +++ b/ds-slider.pd @@ -0,0 +1,79 @@ +#N struct 1003.advslider float a; +#N canvas 612 163 475 427 10; +#N canvas 676 67 729 456 advslider 0; +#X obj 31 23 struct \$0.advslider float a; +#X obj 31 50 route click change; +#X msg 168 318 traverse pd-\$1.gop \, bang; +#X obj 168 339 pointer; +#X obj 99 365 append \$0.advslider a; +#X msg 99 340 0; +#X obj 80 248 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X obj 121 302 \$0; +#X obj 91 75 get \$0.advslider a; +#X obj 90 122 outlet; +#X obj 99 248 loadbang; +#X obj 80 271 t b b b b; +#X msg 159 271 clear; +#X obj 205 271 s pd-\$0.gop; +#X obj 81 389 \$0; +#X msg 81 411 \; pd-\$1.gop donecanvasdialog 0 -1 2 0 0 30 200 30 200 +0 0 \;; +#X obj 244 97 filledpolygon 955 553 3 0 0 30 0 30 210 0 210; +#X obj 244 127 filledpolygon 595 535 3 0 a(0:200) 10 a(0:200) 15 a(0:200) +20 a(0:200) 30 a(0:200) 30 a(0:200)(10:210) 20 a(0:200)(10:210) 15 +a(0:200)(10:210) 10 a(0:200)(10:210) 0 a(0:200)(10:210); +#X obj 247 193 drawnumber a 5 a(0:200) 133; +#X connect 0 0 1 0; +#X connect 1 0 8 0; +#X connect 1 1 8 0; +#X connect 2 0 3 0; +#X connect 3 0 4 1; +#X connect 5 0 4 0; +#X connect 6 0 11 0; +#X connect 7 0 2 0; +#X connect 8 0 9 0; +#X connect 10 0 11 0; +#X connect 11 0 14 0; +#X connect 11 1 5 0; +#X connect 11 2 7 0; +#X connect 11 3 12 0; +#X connect 12 0 13 0; +#X connect 14 0 15 0; +#X restore 150 49 pd advslider; +#N canvas 72 231 459 309 \$0.gop 0; +#X scalar 1003.advslider 39 \;; +#X coords 0 0 30 200 30 200 1; +#X restore 102 101 pd \$0.gop; +#X obj 151 109 outlet; +#X obj 203 200 propertybang; +#X msg 203 224 vis 1; +#N canvas 34 48 213 497 \$0.properties 1; +#X obj 31 36 nbx 5 14 -1e+37 1e+37 0 0 empty empty width 0 -8 0 10 +-262144 -1 -1 0 256; +#X obj 111 36 nbx 5 14 -1e+37 1e+37 0 0 empty empty height 0 -8 0 10 +-262144 -1 -1 0 256; +#X obj 31 96 nbx 5 14 -1e+37 1e+37 0 0 empty empty bottom 0 -8 0 10 +-262144 -1 -1 0 256; +#X obj 111 96 nbx 5 14 -1e+37 1e+37 0 0 empty empty top 0 -8 0 10 -262144 +-1 -1 0 256; +#X symbolatom 16 261 30 0 0 2 label - -; +#X obj 78 436 bng 40 250 50 0 empty empty OK 10 20 0 20 -204800 -1 +-1; +#X symbolatom 76 141 20 0 0 2 send-name - -; +#X symbolatom 76 191 20 0 0 2 receive-name - -; +#X obj 13 141 tgl 15 0 empty empty $ 17 7 0 12 -262144 -1 -1 0 1; +#X obj 39 141 nbx 1 15 0 9 0 0 empty empty empty 0 -8 0 10 -262144 +-1 -1 0 256; +#X obj 13 191 tgl 15 0 empty empty $ 17 7 0 12 -262144 -1 -1 0 1; +#X obj 39 191 nbx 1 15 0 9 0 0 empty empty empty 0 -8 0 10 -262144 +-1 -1 0 256; +#X obj 71 304 color.rgbset; +#X restore 198 316 pd \$0.properties; +#X obj 203 248 s pd-\$0.properties; +#X obj 345 91 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144 +-1 -1 0 1; +#X connect 0 0 2 0; +#X connect 3 0 4 0; +#X connect 4 0 6 0; +#X coords 0 -1 1 1 33 213 2 100 100; diff --git a/gswitch-help.pd b/gswitch-help.pd new file mode 100755 index 0000000..e4e3e2b --- /dev/null +++ b/gswitch-help.pd @@ -0,0 +1,18 @@ +#N struct 1010-gswitch float a; +#N canvas 0 22 267 242 12; +#X obj 57 81 gswitch; +#X obj 27 27 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X floatatom 75 25 5 0 0 0 - - -; +#X floatatom 128 25 5 0 0 0 - - -; +#X floatatom 57 126 5 0 0 0 - - -; +#X floatatom 57 153 5 0 0 0 - - -; +#X msg 139 61 set 42; +#X text 123 90 <-- click me; +#X text 42 202 2009 Jonathan Wilkes; +#X connect 0 0 4 0; +#X connect 1 0 0 0; +#X connect 2 0 0 1; +#X connect 3 0 0 2; +#X connect 4 0 5 0; +#X connect 6 0 0 2; diff --git a/gswitch.pd b/gswitch.pd new file mode 100755 index 0000000..9142a8e --- /dev/null +++ b/gswitch.pd @@ -0,0 +1,78 @@ +#N struct 1029-gswitch float a float b float c; +#N canvas 0 0 450 300 12; +#N canvas 185 101 812 463 gswitch 1; +#X obj 75 35 route click; +#X obj 75 61 unpack p; +#X obj 75 91 t b a; +#X obj 75 150 == 0; +#X obj 8 7 inlet; +#X obj 8 234 outlet; +#X obj 349 416 pointer; +#X obj 303 276 loadbang; +#X obj 303 301 list prepend pd- \$0; +#X obj 303 326 t a b a a; +#X msg 349 391 traverse \$1\$2-gop \, bang; +#X msg 372 350 \; \$1\$2-gop clear; +#X msg 303 466 \; \$1\$2-gop donecanvasdialog 0 -1 2 0 0 44 35 44 35 +0 0 \;; +#X obj 75 123 f 1; +#X obj 75 178 sel 0 1; +#X msg 200 415 0; +#X msg 75 204 14; +#X msg 129 203 0; +#X obj 75 5 struct \$0-gswitch float a; +#X obj 200 441 append \$0-gswitch a; +#X obj 75 234 set \$0-gswitch a; +#X obj 225 110 filledpolygon 555 555 7 5 5 39 5 39 30 5 30; +#X obj 226 60 filledcurve 999 999 1 34 6 38 6 38 10 34 10; +#X obj 226 85 filledcurve 999 999 1 20 6 24 6 24 10 20 10; +#X obj 225 135 drawpolygon 0 2 8 34 8 2 8 18 23 18 a(0:14)(23:37) 18 +a(0:14)(23:37) 11; +#X obj 226 35 filledcurve 999 999 1 6 25 10 25 10 29 6 29; +#X obj 225 201 drawpolygon 0 2 37 6 37 2; +#X obj 225 176 drawpolygon 0 2 23 6 23 2; +#X obj 225 226 drawpolygon 555 2 7 5 11 5 11 9 5 9 5 13 11 13; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 2 0 13 0; +#X connect 3 0 5 0; +#X connect 3 0 13 1; +#X connect 3 0 14 0; +#X connect 4 0 13 0; +#X connect 6 0 19 1; +#X connect 7 0 8 0; +#X connect 8 0 9 0; +#X connect 9 0 12 0; +#X connect 9 1 15 0; +#X connect 9 2 10 0; +#X connect 9 3 11 0; +#X connect 10 0 6 0; +#X connect 13 0 3 0; +#X connect 14 0 16 0; +#X connect 14 1 17 0; +#X connect 15 0 19 0; +#X connect 16 0 20 0; +#X connect 17 0 20 0; +#X connect 18 0 0 0; +#X connect 19 0 20 1; +#X restore 80 54 pd gswitch; +#X obj 80 12 inlet; +#N canvas 532 8 450 300 \$0-gop 0; +#X scalar 1029-gswitch 0 0 0 \;; +#X coords 0 0 44 35 44 35 1; +#X restore 0 0 pd \$0-gop; +#X obj 213 54 inlet; +#X obj 309 54 inlet; +#X obj 213 218 outlet; +#X obj 309 142 spigot; +#X obj 354 113 == 0; +#X obj 213 142 spigot 1; +#X connect 0 0 7 0; +#X connect 0 0 8 1; +#X connect 1 0 0 0; +#X connect 3 0 8 0; +#X connect 4 0 6 0; +#X connect 6 0 5 0; +#X connect 7 0 6 1; +#X connect 8 0 5 0; +#X coords 0 0 1 1 44 35 2 0 0; -- cgit v1.2.1