From 396205d8e67976a187a4842503895a43ddb77367 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 17 Feb 2019 21:37:21 +0000
Subject: [PATCH] before redo

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

diff --git a/parse-input-graph b/parse-input-graph
index f5f4844..526f40f 100755
--- a/parse-input-graph
+++ b/parse-input-graph
@@ -9,13 +9,13 @@ use List::MoreUtils qw(any);
 our %region;
 # $region{NAME}{Colour}
 # $region{NAME}{Water}
-# $region{NAME}{L}
+# $region{NAME}{L} # line number
 # $region{NAME}{Adj}[]{Name}
 # $region{NAME}{Adj}[]{Pattern}
 # $region{NAME}{Adj}[]{Regexp}
 # $region{NAME}{Adj}[]{Dikes}
 # $region{NAME}{Adj}[]{L}
-# %region{NAME}{Adj}[]{Vertices}[0..1]
+# %region{NAME}{Adj}[]{Vertices}[0..1] // computed by dual
 
 our %adj;
 # $adj{EARLIER}{LATER}{Dikes}
@@ -262,14 +262,20 @@ sub dual () {
 
 sub o { print @_ or die $!; }
 
-sub plag_prv ($) {
-    my ($vi) = @_;
-    my $t = $vertex[$vi]{Text};
+sub plag_prs ($) {
+    my ($t) = @_;
     $t = $` if $t =~ m/\n/;
     $t =~ s/ //g;
+    $t =~ s/-//g;
     return "$t";
 }
 
+sub plag_prv ($) {
+    my ($vi) = @_;
+    my $t = $vertex[$vi]{Text};
+    plag_prs($t);
+}
+
 sub output_planar_graph () {
   o(":outside-exact\n");
   foreach my $via (0..$#vertex) {
-- 
2.30.2