Permalink
Browse files

add fdp, sfdp, twopi outputs

  • Loading branch information...
1 parent 45a8071 commit f1c02de4bd2ab0d13068522aedfe88b34413a8c6 @JoshCheek JoshCheek committed Dec 28, 2010
Showing with 5 additions and 2 deletions.
  1. +5 −2 lisp-tree/tree.lisp
View
@@ -26,8 +26,11 @@
(fresh-line)
(translate-elements tree nil)
(princ "}")))
- (ext:shell (concatenate 'string "dot -Tpng " fname " > graph1.png"))
- (ext:shell (concatenate 'string "neato -Tpng " fname " > graph2.png"))))
+ (ext:shell (concatenate 'string "dot -Tpng " fname " > graph.dot.png"))
+ (ext:shell (concatenate 'string "neato -Tpng " fname " > graph.neato.png"))
+ (ext:shell (concatenate 'string "fdp -Tpng " fname " > graph.fdp.png"))
+ (ext:shell (concatenate 'string "sfdp -Tpng " fname " > graph.sfdp.png"))
+ (ext:shell (concatenate 'string "twopi -Tpng " fname " > graph.twopi.png"))))
(defparameter tree

0 comments on commit f1c02de

Please sign in to comment.