@@ -1,6 +1,6 @@

 CHANGES IN VERSION 0.99.7

 ------------------------

- o add angle information for 'fan' layout <2015-01-29, Thu>

+ o add angle information for 'fan' & 'unrooted' layout <2015-01-29, Thu>

 CHANGES IN VERSION 0.99.6

 ------------------------

@@ -156,11 +156,13 @@ layout.unrooted <- function(tree) {

     df$x <- NA

     df$y <- NA

     df$start <- NA

-    df$end <- NA

+    df$end   <- NA

+    df$angle <- NA

     df[root, "x"] <- 0

     df[root, "y"] <- 0

-    df[root, "start"] <- 0

-    df[root, "end"] <- 2

+    df[root, "start"] <- -1

+    df[root, "end"]   <- 1

+    df[root, "angle"] <- 0

     nb.sp <- sapply(1:N, function(i) length(get.offspring.tip(tree, i)))

@@ -188,6 +190,7 @@ layout.unrooted <- function(tree) {

             length.child <- df[child, "length"]

             df[child, "x"] <- df[curNode, "x"] + cospi(beta) * length.child

             df[child, "y"] <- df[curNode, "y"] + sinpi(beta) * length.child

+            df[child, "angle"] <- -180 * abs(beta)

             df[child, "start"] <- start

             df[child, "end"] <- start + alpha

             start <- start + alpha