got web color conversion working

svn path=/trunk/externals/hcs/; revision=8957

1 files changed, 64 insertions, 0 deletions

diff --git a/canvas_name-help.pd b/canvas_name-help.pd
new file mode 100644
index 0000000..ee83f78
--- /dev/null
+++ b/canvas_name-help.pd
@@ -0,0 +1,64 @@
+#N canvas 276 245 480 392 10;
+#X obj 156 276 sys_gui;
+#X symbolatom 274 192 0 0 0 0 - - -;
+#X obj 261 131 loadbang;
+#X msg 156 246 \$2 configure -background \$1;
+#X obj 156 217 pack symbol symbol;
+#X obj 106 50 colorpanel;
+#X obj 87 342 pddp/pddplink http://tcl.tk/man/tcl8.4/TkCmd/canvas.htm
+;
+#X text 54 316 for more options:;
+#N canvas 685 90 416 325 generate 0;
+#X obj 81 23 inlet;
+#X obj 82 262 outlet;
+#X obj 83 66 unpack float float float;
+#X obj 83 90 * 255;
+#X obj 83 113 int;
+#X obj 83 136 makefilename %x;
+#X obj 183 90 * 255;
+#X obj 183 113 int;
+#X obj 183 136 makefilename %x;
+#X obj 283 90 * 255;
+#X obj 283 113 int;
+#X obj 283 136 makefilename %x;
+#X obj 83 171 pack symbol symbol symbol;
+#X obj 83 195 zexy/makesymbol #%s%s%s;
+#X connect 0 0 2 0;
+#X connect 2 0 3 0;
+#X connect 2 1 6 0;
+#X connect 2 2 9 0;
+#X connect 3 0 4 0;
+#X connect 4 0 5 0;
+#X connect 5 0 12 0;
+#X connect 6 0 7 0;
+#X connect 7 0 8 0;
+#X connect 8 0 12 1;
+#X connect 9 0 10 0;
+#X connect 10 0 11 0;
+#X connect 11 0 12 2;
+#X connect 12 0 13 0;
+#X connect 13 0 1 0;
+#X restore 106 71 pd generate web color;
+#X obj 106 6 bng 35 250 50 0 empty empty empty 17 7 0 10 -204786 -1
+-1;
+#X symbolatom 126 99 10 0 0 0 - - -;
+#X obj 218 279 print;
+#X obj 261 168 canvas_name;
+#X msg 158 129 grey;
+#X msg 168 148 white;
+#X msg 178 169 pink;
+#X msg 182 191 black;
+#X connect 2 0 12 0;
+#X connect 3 0 0 0;
+#X connect 3 0 11 0;
+#X connect 4 0 3 0;
+#X connect 5 0 8 0;
+#X connect 8 0 10 0;
+#X connect 8 0 4 0;
+#X connect 9 0 5 0;
+#X connect 12 0 1 0;
+#X connect 12 0 4 1;
+#X connect 13 0 4 0;
+#X connect 14 0 4 0;
+#X connect 15 0 4 0;
+#X connect 16 0 4 0;