From b9c05e4c7b40ad0535592f0d876d5384ff57348e Mon Sep 17 00:00:00 2001
From: Hiroaki Yutani <yutani.ini@gmail.com>
Date: Sat, 7 Sep 2024 07:46:04 +0900
Subject: [PATCH] Change unhighlighted colour when ink is lighter than paper

---
 R/gghighlight.R | 21 ++++++++++++++++-----
 1 file changed, 16 insertions(+), 5 deletions(-)

diff --git a/R/gghighlight.R b/R/gghighlight.R
index 3c37028..90cc05f 100644
--- a/R/gghighlight.R
+++ b/R/gghighlight.R
@@ -435,13 +435,24 @@ bleach_layer <- function(layer, group_info, unhighlighted_params, unhighlighted_
 
 
 default_unhighlighted_colour <- function(theme = list()) {
-  # ink is greyed, while paper doesn't
-  ink <- grDevices::col2rgb(scales::col2hcl(theme$geom$ink %||% "black", c = 0))
-  paper <- grDevices::col2rgb(theme$geom$paper %||% "white")
+  ink <- theme$geom$ink %||% "black"
+  paper <- theme$geom$paper %||% "white"
+
+  ink_bleached <- scales::col2hcl(ink, c = 0)
+  paper_bleached <- scales::col2hcl(paper, c = 0)
+
+  # TODO: flip the color based on the relationship of ink and paper. Can this 
+  #       heuristic removed? I think there should be some theory for this...
+  if (ink_bleached < paper_bleached) {
+    ratio <- 0.254902
+  } else {
+    # 0.745098 = col2rgb("grey") / col2rgb("white")
+    ratio <- 0.745098
+  }
 
   # cf. ggplot2:::col_mix
-  # 0.745098 = col2rgb("grey") / col2rgb("white")
-  new <- (0.254902 * ink + 0.745098 * paper)[,1] / 255
+  # ink is greyed, while paper doesn't
+  new <- (ratio * grDevices::col2rgb(ink_bleached) + (1 - ratio) * grDevices::col2rgb(paper))[,1] / 255
   grDevices::rgb(new["red"], new["green"], new["blue"], alpha = 0.698)
 }