From 35465007aea888eeadf048c588aabf495530ccfd Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 8 Feb 2019 21:45:12 +0000
Subject: [PATCH] planar-graph output

---
 parse-input-graph | 11 +++++++++++
 1 file changed, 11 insertions(+)

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" {
-- 
2.30.2