#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;