use names

diff --git a/parse-input-graph b/parse-input-graph
index 12d6e468fa5ebcfb0a75b1ef2622712be3da2444..49d41ffddf250f9c08a117a9163e145779a71ef2 100755 (executable)
--- a/parse-input-graph
+++ b/parse-input-graph
@@ -262,13 +262,22 @@ sub dual () {
 
 sub o { print @_ or die $!; }
 
+sub plag_prv ($) {
+    my ($vi) = @_;
+    my $t = $vertex[$vi]{Text};
+    $t =~ s/\n/ | /g;
+    return "\"$t\"";
+}
+
 sub output_planar_graph () {
   foreach my $via (0..$#vertex) {
     my $vertexa = $vertex[$via];
-    o("$via\n");
+    my $prva = plag_prv($via);
+    o("$prva\n");
     foreach my $ei (@{ $vertexa->{Edges} }) {
       my $vib = $ei->{VIB};
-      o(" $vib\n");
+      my $prvb = plag_prv($vib);
+      o(" $prvb\n");
       o(" ^outside\n") if $ei->{Outside};
     }
   }