- Ntip <- get("last_plot.phylo$Ntip", envir = .PlotPhyloEnv)
- d <- sqrt((xy$x - get("last_plot.phylo$xx", envir = .PlotPhyloEnv))^2 +
- (xy$y - get("last_plot.phylo$yy", envir = .PlotPhyloEnv))^2)
+ lastPP <- get("last_plot.phylo", envir = .PlotPhyloEnv)
+ d <- sqrt((xy$x - lastPP$xx)^2 + (xy$y - lastPP$yy)^2)