From f25e8113b2b800754cc5bf5b6680d4638d422810 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jo=C3=A3o=20Pais?= Date: Wed, 1 Dec 2010 19:38:48 +0000 Subject: svn path=/trunk/abstractions/jmmmp/; revision=14546 --- butt.pd | 79 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 79 insertions(+) create mode 100644 butt.pd (limited to 'butt.pd') 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; -- cgit v1.2.1