Commit 5d653693 authored by Leigh B. Stoller's avatar Leigh B. Stoller

Minor graph formatting changes to make them look a tiny bit nicer. A

lot more can be done with this, of course.
parent 0fbff1e4
......@@ -2,7 +2,7 @@
%color = (
"pc850", "skyblue",
"pc", "skyblue",
"pc600", "steelblue",
"shark", "darkblue",
"lan", "green",
"delay", "orange"
......@@ -13,7 +13,7 @@ while (<>) {
if (/^node/) {
my ($nodename, $nodetype) = /^node\s+(\S+)\s+(\S+)/;
$nodename =~ s/[^\w]/_/g;
print "{node [width = .1, height = .1, shape = box,";
print "{node [label = $nodename, shape = box,";
if (exists $color{ $nodetype }) {
print "color = " . $color{ $nodetype };
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment