planar-graph output

diff --git a/parse-input-graph b/parse-input-graph
index 5515d0d8dbd7b9183045863f8357c4173af1d8d6..94e9c62313b5e4e6a1ef9781dfadc53b1faf507a 100755 (executable)
--- 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" {