From 00b892e82a78808731ca6be4fcd6ef2a6b784a0d Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 17 Feb 2019 21:37:28 +0000
Subject: [PATCH] let plag do dual

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

diff --git a/parse-input-graph b/parse-input-graph
index 526f40f..713b28f 100755
--- a/parse-input-graph
+++ b/parse-input-graph
@@ -277,18 +277,16 @@ sub plag_prv ($) {
 }
 
 sub output_planar_graph () {
-  o(":outside-exact\n");
-  foreach my $via (0..$#vertex) {
-    my $vertexa = $vertex[$via];
-    my $prva = plag_prv($via);
-    o("$prva\n");
-    foreach my $ei (@{ $vertexa->{Edges} }) {
-      my $vib = $ei->{VIB};
-      my $prvb = plag_prv($vib);
-      o(" $prvb\n");
-      o(" ^outside\n") if $ei->{Outside};
+  foreach my $ra (sort keys %region) {
+    o(plag_prs($ra), "\n");
+    if ($ra eq 'NZ' || $ra eq 'L') { o(" :outer\n"); }
+    my $adjs = $region{$ra}{Adj};
+    foreach my $adj (@$adjs) {
+      o(" ", plag_prs($adj->{Name}), "\n");
     }
   }
+  # RUST_BACKBACE=1 target/debug/planar-graph <../pandemic-rising-tide/map.plag R DUAL OUTER_F2V OUTER_SPLIT B T OUTER_F2V OUTER PCO CP RAE WG t.dot && neato t.dot -Tps >t.ps
+
 }
 
 sub output_dot () {
@@ -331,7 +329,7 @@ END
 read_in();
 resolve_arefs();
 adjacencies();
-dual();
+#dual();
 #output_dot();
 output_planar_graph();
 
-- 
2.30.2