From 061708a6ea3174807b66786baeea347eb47a1ca8 Mon Sep 17 00:00:00 2001
From: dicook <visnut@gmail.com>
Date: Fri, 5 Jul 2024 00:05:06 +1000
Subject: [PATCH] smaller cutoff for long labels

---
 R/display-xy.r | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/display-xy.r b/R/display-xy.r
index 4c83afd7..54beaa05 100644
--- a/R/display-xy.r
+++ b/R/display-xy.r
@@ -320,7 +320,7 @@ draw_tour_axes <- function(proj, labels, limits=1, position="center",
         col = axis.col, lwd = axis.lwd)
   if (longlabels) {
     for (i in 1:length(labels)) {
-      if ((proj[i, 1]^2 + proj[i, 2]^2) < 0.3)
+      if ((proj[i, 1]^2 + proj[i, 2]^2) < 0.15)
         labels[i] <- ""
     }
   }