diff options
| author | Nathan Ringo <nathan@remexre.com> | 2024-01-23 22:58:08 -0600 |
|---|---|---|
| committer | Nathan Ringo <nathan@remexre.com> | 2024-01-23 22:58:08 -0600 |
| commit | d32d8e09b5763efda69b93139d29147af7a47e71 (patch) | |
| tree | 92f83cd6159037d94aec71857984a37d90e545db | |
| parent | e20fc84d720e68f38fceb53fb2074c11bae886f2 (diff) | |
Use rounded rectangle nodes.
| -rw-r--r-- | discocaml/draw_tree.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/discocaml/draw_tree.ml b/discocaml/draw_tree.ml index 005633f..16719df 100644 --- a/discocaml/draw_tree.ml +++ b/discocaml/draw_tree.ml @@ -87,6 +87,7 @@ let draw_tree (ast : expr ast) : string = let buf = Buffer.create 16 and nodes = ref IntSet.empty in let fmt = Format.formatter_of_buffer buf in Format.fprintf fmt "digraph {\n"; + Format.fprintf fmt " node [shape=\"box\", style=\"rounded\"];\n"; add_expr_edges ast fmt nodes ast.root; Format.fprintf fmt "\n"; IntSet.iter |