From: Dan White <dan@whiteaudio.com>
Date: Sat, 21 Jan 2012 21:47:56 +0000 (-0600)
Subject: Draw logic bubbles colored
X-Git-Url: http://git.whiteaudio.com/gitweb/?a=commitdiff_plain;h=4cc04f82ac9ae88b13b97a2ed64947885db4544a;p=waeda-sym.git

Draw logic bubbles colored
---

diff --git a/dwboxsym b/dwboxsym
index 7080447..688c0fd 100755
--- 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 {