From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 8 Feb 2019 21:45:12 +0000 (+0000)
Subject: planar-graph output
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=35465007aea888eeadf048c588aabf495530ccfd;p=pandemic-rising-tide.git

planar-graph output
---

diff --git a/parse-input-graph b/parse-input-graph
index 5515d0d..94e9c62 100755
--- a/parse-input-graph
+++ b/parse-input-graph
@@ -257,6 +257,17 @@ sub dual () {
 
 sub o { print @_ or die $!; }
 
+sub output_planar_graph () {
+  foreach my $via (0..$#vertex) {
+    my $vertexa = $vertex[$via];
+    o("$via\n");
+    foreach my $ei (@{ $vertexa->{Edges} }) {
+      my $vib = $ei->{VIB};
+      o(" $vib\n");
+    }
+  }
+}
+
 sub output_dot () {
   o <<END;
 strict graph "map" {