From 9600919e96eb0361039f4397e9c1d08e9aef6241 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Tue, 8 Sep 2009 17:11:17 +0100 Subject: [PATCH] Improve graph layouts a bit --- yarrg/ocean-topology-graph | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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).", } -- 2.30.2