#N struct opacity float x float y;
#N canvas 0 19 821 586 10;
#X obj 208 24 struct opacity float x float y;
#X obj 266 541 loadbang;
#X msg 266 562 stroke "" \, fill red \, fill-opacity 0.5;
#X obj 266 583 draw circle 0 60 60;
#X obj 326 448 loadbang;
#X obj 326 490 draw circle 0 60 60;
#X obj 366 357 loadbang;
#X obj 366 399 draw circle 0 60 60;
#X msg 326 469 stroke "" \, fill green \, fill-opacity 0.5;
#X msg 366 378 stroke "" \, fill blue \, fill-opacity 0.5;
#X obj 251 120 f;
#X floatatom 278 147 5 0 0 1 speed - -, f 5;
#X obj 251 192 pack 0 100;
#X floatatom 308 169 5 0 0 1 rc - -, f 5;
#X obj 251 216 expr $f2*cos($f1*11./17.) \; $f2*sin($f1) \; $f2*cos($f1)
\; $f2*sin($f1*3./7.) \; $f2*cos($f1*23./29. + 1.) \; $f2*sin($f1 +
1.);
#X obj 350 311 pack;
#X obj 300 311 pack;
#X obj 250 311 pack;
#X msg 350 335 transform translate \$1 \$2;
#X msg 300 426 transform translate \$1 \$2;
#X msg 246 516 transform translate \$1 \$2;
#X scalar opacity 517 187 \;;
#X floatatom 374 96 5 0 0 0 - - -, f 5;
#X obj 251 99 metro 40;
#X obj 251 66 tgl 15 0 empty empty Go! 22 6 0 14 -4034 -1 -1 0 1;
#X obj 291 120 + 1;
#X obj 251 171 * 0.06;
#X text 448 59 Port of the tkpath opacity demo;
#X text 448 79 original screenshot here:;
#X obj 448 100 pddp/pddplink http://tclbitprint.sourceforge.net/tkpath/quartz/
;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 4 0 8 0;
#X connect 6 0 9 0;
#X connect 8 0 5 0;
#X connect 9 0 7 0;
#X connect 10 0 25 0;
#X connect 10 0 26 0;
#X connect 11 0 26 1;
#X connect 12 0 14 0;
#X connect 13 0 12 1;
#X connect 14 0 17 0;
#X connect 14 1 17 1;
#X connect 14 2 16 0;
#X connect 14 3 16 1;
#X connect 14 4 15 0;
#X connect 14 5 15 1;
#X connect 15 0 18 0;
#X connect 16 0 19 0;
#X connect 17 0 20 0;
#X connect 18 0 7 0;
#X connect 19 0 5 0;
#X connect 20 0 3 0;
#X connect 22 0 26 0;
#X connect 23 0 10 0;
#X connect 24 0 23 0;
#X connect 25 0 10 1;
#X connect 26 0 12 0;
