From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 8 Sep 2009 16:11:17 +0000 (+0100)
Subject: Improve graph layouts a bit
X-Git-Tag: 5.0^2~153
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-live.git;a=commitdiff_plain;h=9600919e96eb0361039f4397e9c1d08e9aef6241

Improve graph layouts a bit
---

diff --git a/yarrg/ocean-topology-graph b/yarrg/ocean-topology-graph
index 55d15d9..e609e35 100755
--- a/yarrg/ocean-topology-graph
+++ b/yarrg/ocean-topology-graph
@@ -20,7 +20,9 @@ $dbh->disconnect();
 #print Dumper($results);
 
 print "strict graph $ocean {\n";
-#print "    nodesep=10;\n";
+print "    splines=true;\n";
+print "    nslimit=10;\n";
+print "    mclimit=10;\n";
 
 foreach my $row (@$islands) {
     my ($id,$str) = @$row;
@@ -29,8 +31,8 @@ foreach my $row (@$islands) {
 }
 foreach my $row (@$routes) {
     my ($ia,$ib,$dist) = @$row;
-    print "    n$ia -- n$ib [ len=2, label=$dist ];\n";
-    #len=$dist, minlen=$dist, weight=".(1.0/$dist).", len=".($dist*0.25+1).",
+    print "    n$ia -- n$ib [ w=".(1.0/($dist*$dist)).", len=".(0.5*$dist+1).", label=$dist ];\n";
+    #len=$dist, minlen=$dist, , ,
     #w=".(1.0/$dist).", 
 }