X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=R%2Fplot.phylo.R;h=df246bd7399787afb9294fcf3e7d5f029889142e;hb=f295ab19440298e543db5a270e54f10a84382197;hp=631fb4dc35029d0b52f94a361cb789cf1a35e0ae;hpb=188a8123d039d442dacb35ae678729375e22d239;p=ape.git

diff --git a/R/plot.phylo.R b/R/plot.phylo.R
index 631fb4d..df246bd 100644
--- a/R/plot.phylo.R
+++ b/R/plot.phylo.R
@@ -1,4 +1,4 @@
-## plot.phylo.R (2010-03-19)
+## plot.phylo.R (2010-08-12)
 
 ##   Plot Phylogenies
 
@@ -276,7 +276,7 @@ plot.phylo <- function(x, type = "phylogram", use.edge.length = TRUE,
         if (direction == "leftwards") x.lim[2] <- x.lim[2] + x$root.edge
         if (direction == "downwards") y.lim[2] <- y.lim[2] + x$root.edge
     }
-    asp <- if (type %in% c("fan", "radial")) 1 else NA # fix by Klaus Schliep (2008-03-28)
+    asp <- if (type %in% c("fan", "radial", "unrooted")) 1 else NA # fixes by Klaus Schliep (2008-03-28 and 2010-08-12)
     plot(0, type = "n", xlim = x.lim, ylim = y.lim, ann = FALSE, axes = FALSE, asp = asp, ...)
     if (is.null(adj))
         adj <- if (phyloORclado && direction == "leftwards") 1 else 0