From: Sergey Matveev <stargrave@stargrave.org>
Date: Fri, 9 May 2025 21:20:55 +0000 (+0300)
Subject: Better dot
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=032e2ecf72779a7f01ea9b1f7ca19b97ab859861;p=zk.git

Better dot
---

diff --git a/zk b/zk
index 5827dbf..23c08e6 100755
--- a/zk
+++ b/zk
@@ -337,6 +337,8 @@ if ($ARGV[0] eq "dump") {
     }
 } elsif ($ARGV[0] eq "dot") {
     print "digraph d {\n";
+    print "rankdir=LR\n";
+    print "node[shape=rectangle]\n";
     while (my ($from, $v) = each %links) {
         foreach (@{$v}) {
             print "\t\"$from\" -> \"$_\"\n";