let plag do dual

diff --git a/parse-input-graph b/parse-input-graph
index 526f40f2e0839c3b940d3e6ad4e28b0694332e5e..713b28f48fdc5fc14cf4f43c8e2f53504b2959fc 100755 (executable)
--- 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();