Draw logic bubbles colored

diff --git a/dwboxsym b/dwboxsym
index 7080447e67fea48eb380cceb25cd167f6b413756..688c0fd3425e0fcf545ff8ba6ae410612139f256 100755 (executable)
--- a/dwboxsym
+++ b/dwboxsym
@@ -364,7 +364,8 @@ sub drawpin_labels {
 
 sub circle {
     my ($x, $y) = @_;
-    print "V $x $y 50 3 0 0 0 -1 -1 0 -1 -1 -1 -1 -1\n";
+    # color 6 (logic bubble)
+    print "V $x $y 50 6 0 0 0 -1 -1 0 -1 -1 -1 -1 -1\n";
 }
 
 sub drawpin_left {