Better dot

diff --git a/zk b/zk
index 5827dbf224f79f4d8176c4ad57b108249706a614..23c08e6c1061fee8e0b3a238a3918890150ecb85 100755 (executable)
--- 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";