Accept a name for dl and include starter script file

[khome.git] / home / bin / seq2dot

diff --git a/home/bin/seq2dot b/home/bin/seq2dot
index b79c8e4..0d6a3c4 100755 (executable)
--- a/home/bin/seq2dot
+++ b/home/bin/seq2dot
@@ -4,24 +4,46 @@
 # highlighting frequencies of pairings.
 #
 
-BEGIN {print "digraph {"}
-
 {
-    prev = prev ? prev : "--"
-    curr = $1
+    curr = $0
+}
+
+NR == 1 {
+    init = curr
+}
+
+NR > 1 {
     ++nlinks[prev]
     ++nlinks_to[prev, curr]
+}
+
+{
     prev = curr
 }
 
 END {
+    final = curr
+    print "digraph {"
+    if (init == final) {
+        printf \
+            "\"%s\" [penwidth=10, style=filled, fillcolor=tomato    , fontcolor=white, color=yellowgreen];\n", \
+                init
+    } else {
+        printf \
+            "\"%s\" [penwidth=0, style=filled, fillcolor=yellowgreen, fontcolor=white];\n", \
+            init
+        printf \
+            "\"%s\" [penwidth=0, style=filled, fillcolor=tomato     , fontcolor=white];\n", \
+            final
+    }
+
     for (src_dst in nlinks_to) {
         split(src_dst, sd, SUBSEP);
         src = sd[1]
         dst = sd[2]
         m = nlinks[src]
         n = nlinks_to[src, dst]
-        penwidth = num_scale(n, m, 1, 9)
+        penwidth = num_scale(n, m, 1, 5)
         color = sprintf("/orrd9/%d", num_scale(n, m, 2, 9))
         label = sprintf("%s %.2f%%", src, (n / m) * 100)
         printf \