X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.web-live.git;a=blobdiff_plain;f=yarrg%2Focean-topology-graph;h=e609e35778188dc147390cd3a451dc315c95da62;hp=55d15d97e8f5b20d530360c1fde16144cbea77f9;hb=9600919e96eb0361039f4397e9c1d08e9aef6241;hpb=6a7caa99e3c1d5ef70ec3858884e0fdda863792a

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).", 
 }