From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 2 Sep 2009 12:28:38 +0000 (+0100)
Subject: Render topology as input to neato.
X-Git-Tag: 3.4~13^2
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-live.git;a=commitdiff_plain;h=40f5e6b637d854f644916adb0ba863fe2628ab6f

Render topology as input to neato.
---

diff --git a/yarrg/ocean-topology-graph b/yarrg/ocean-topology-graph
new file mode 100755
index 0000000..55d15d9
--- /dev/null
+++ b/yarrg/ocean-topology-graph
@@ -0,0 +1,37 @@
+#!/usr/bin/perl -w
+
+use strict (qw(vars));
+
+use CommodsDatabase;
+
+my $ocean= shift @ARGV;
+
+db_setocean($ocean);
+db_connect();
+my $islands= $dbh->selectall_arrayref('
+	SELECT islandid,islandname FROM islands;
+');
+my $routes= $dbh->selectall_arrayref('
+	SELECT aiid, biid, dist	FROM routes;
+');
+$dbh->disconnect();
+
+#use Data::Dumper;
+#print Dumper($results);
+
+print "strict graph $ocean {\n";
+#print "    nodesep=10;\n";
+
+foreach my $row (@$islands) {
+    my ($id,$str) = @$row;
+    $str =~ s/[\"\\]/\\$&/g;
+    print "    n$id [ label=\"$str\" ];\n";
+}
+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).",
+    #w=".(1.0/$dist).", 
+}
+
+print "}\n";