before redo

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