7 my $ocean= shift @ARGV;
11 my $islands= $dbh->selectall_arrayref('
12 SELECT islandid,islandname FROM islands;
14 my $routes= $dbh->selectall_arrayref('
15 SELECT aiid, biid, dist FROM routes;
20 #print Dumper($results);
22 print "strict graph $ocean {\n";
23 print " splines=true;\n";
24 print " nslimit=10;\n";
25 print " mclimit=10;\n";
27 foreach my $row (@$islands) {
28 my ($id,$str) = @$row;
29 $str =~ s/[\"\\]/\\$&/g;
30 print " n$id [ label=\"$str\" ];\n";
32 foreach my $row (@$routes) {
33 my ($ia,$ib,$dist) = @$row;
34 print " n$ia -- n$ib [ w=".(1.0/($dist*$dist)).", len=".(0.5*$dist+1).", label=$dist ];\n";
35 #len=$dist, minlen=$dist, , ,