svn path=/trunk/abstractions/jmmmp/; revision=14546

1 files changed, 79 insertions, 0 deletions

diff --git a/butt.pd b/butt.pd
new file mode 100644
index 0000000..7297de7
--- /dev/null
+++ b/butt.pd
@@ -0,0 +1,79 @@
+#N canvas 547 159 527 426 10;

+#X obj 20 340 outlet;

+#X obj 20 80 inlet;

+#X obj 129 40 init \$1;

+#X msg 187 140 size \$1;

+#X obj 230 250 init \$2;

+#X obj 168 80 t f f f;

+#X text 324 279 Inlets;

+#X text 324 339 Outlets;

+#X text 324 209 Arguments;

+#X text 324 229 - Size;

+#N canvas 0 0 426 446 license 0;

+#X text 8 47 All rights reserved.;

+#X text 8 227 The names of its contributors may not be used to endorse

+or promote products derived from this software without specific prior

+written permission.;

+#X text 8 87 Redistribution and use in source and binary forms \, with

+or without modification \, are permitted provided that the following

+conditions are met:;

+#X text 8 127 Redistributions of source code must retain the above

+copyright notice \, this list of conditions and the following disclaimer.

+;

+#X text 8 297 THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND

+CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES \, INCLUDING

+\, BUT NOT LIMITED TO \, THE IMPLIED WARRANTIES OF MERCHANTABILITY

+AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL

+THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT \, INDIRECT

+\, INCIDENTAL \, SPECIAL \, EXEMPLARY \, OR CONSEQUENTIAL DAMAGES (INCLUDING

+\, BUT NOT LIMITED TO \, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES

+;

+#X text 8 167 Redistributions in binary form must reproduce the above

+copyright notice \, this list of conditions and the following disclaimer

+in the documentation and/or other materials provided with the distribution.

+;

+#X text 8 27 jmmmpais@googlemail.com;

+#X text 8 7 Copyright 2006 \, João Pais;

+#X restore 15 395 pd license;

+#X obj 168 190 s \$0-button;

+#X obj 168 210 namecanvas \$0-button;

+#X msg 168 170 donecanvasdialog 1 -1 2 0 -1 1 1 \$1 \$1 20 110 \, dirty

+0;

+#X text 12 375 (C) 2010 João Pais - jmmmpais@googlemail.com;

+#X obj 129 60 sel 0;

+#X msg 129 80 12;

+#X obj 20 110 tgl 20 0 empty empty empty 17 7 0 10 -262144 -1 -1 0

+1;

+#X obj 20 250 t f f;

+#X text 324 248 - TCL Color (between 10 and 19);

+#X text 22 10 [butt] - Color-changing Toggle Button;

+#X msg 47 290 color \$1 \$1 22;

+#X obj 20 110 cnv 20 20 20 empty \$0-cnv empty 20 12 0 14 -261689 -1

+0;

+#X obj 47 310 s \$0-cnv;

+#X obj 207 120 s \$0-cnv;

+#X msg 207 100 vis_size \$1 \$1 \, size \$1;

+#X obj 220 290 + 10;

+#X obj 47 270 expr if ($f1 == 1 \, $f2 \, $f2+10);

+#X text 324 299 - Bang \, float (like a toggle);

+#X text 324 359 - 0 \, 1 (like a toggle);

+#X connect 1 0 17 0;

+#X connect 2 0 15 0;

+#X connect 3 0 17 0;

+#X connect 4 0 26 0;

+#X connect 4 0 27 1;

+#X connect 5 0 13 0;

+#X connect 5 1 3 0;

+#X connect 5 2 25 0;

+#X connect 13 0 11 0;

+#X connect 15 0 16 0;

+#X connect 15 1 5 0;

+#X connect 16 0 13 0;

+#X connect 17 0 18 0;

+#X connect 18 0 0 0;

+#X connect 18 1 27 0;

+#X connect 21 0 23 0;

+#X connect 25 0 24 0;

+#X connect 26 0 21 0;

+#X connect 27 0 21 0;

+#X coords 0 -1 1 1 20 20 2 20 110;