wip

diff --git a/parse-input-graph b/parse-input-graph
index 1c08748113d760151615d49f667337f33f36c149..64f9cff915ad97892a005d2e21a8f4acc6602f53 100755 (executable)
--- a/parse-input-graph
+++ b/parse-input-graph
@@ -254,7 +254,7 @@ sub o { print @_ or die $!; }
 sub output_dot () {
   o <<END;
 strict graph "map" {
-  layout="sfdp";
+  layout="neato";
   node [
     shape=circle;
     fixedsize=true;
@@ -263,6 +263,7 @@ strict graph "map" {
 END
   foreach my $via (0..$#vertex) {
     my $vertexa = $vertex[$via];
+    o("$via [label=\"".$vertexa->{Text}."\"];");
     foreach my $ei (@{ $vertexa->{Edges} }) {
       my $vib = $ei->{VIB};
       #if ($r1 eq 'NZ' || $r1 eq 'L') {