]> git.eshelyaron.com Git - emacs.git/commitdiff
Revert "Fix color-lighten-hsl logic"
authorEli Zaretskii <eliz@gnu.org>
Sat, 2 Nov 2024 15:36:02 +0000 (17:36 +0200)
committerEshel Yaron <me@eshelyaron.com>
Fri, 8 Nov 2024 13:28:41 +0000 (14:28 +0100)
This reverts commit 656c2dd66e77a5fbeb99d358017e8327401fae05.
That commit was mistaken, see bug#74055.

(cherry picked from commit 99650746d916335bbe480c462af83009037632df)

lisp/color.el
test/lisp/color-tests.el

index 79dced4e3d7da8565ac193a3b22d79918292fd09..186f1bd9f9a87d5f816e134fce245b91708a69a5 100644 (file)
@@ -446,7 +446,7 @@ See `color-desaturate-hsl'."
 Given a color defined in terms of hue, saturation, and luminance
 \(arguments H, S, and L), return a color that is PERCENT lighter.
 Returns a list (HUE SATURATION LUMINANCE)."
-  (list H S (color-clamp (+ L (* L (/ percent 100.0))))))
+  (list H S (color-clamp (+ L (/ percent 100.0)))))
 
 (defun color-lighten-name (name percent)
   "Make a color with a specified NAME lighter by PERCENT.
index 0f53e4332a4ea145e8c1351114ccb5b85da50826..bc897edc7024c3efcaf92e5ff0a7a48c35658978 100644 (file)
 
 (ert-deftest color-tests-lighten-hsl ()
   (should (equal (color-lighten-hsl 360 0.5 0.5 0) '(360 0.5 0.5)))
-  (should (equal (color-lighten-hsl 360 0.5 0.5 -10) '(360 0.5 0.45)))
+  (should (equal (color-lighten-hsl 360 0.5 0.5 -10) '(360 0.5 0.4)))
   (should (equal (color-lighten-hsl 360 0.5 0.5 -500) '(360 0.5 0.0)))
   (should
    (color-tests--approx-equal
-    (color-lighten-hsl 120 0.5 0.8 5) '(120 0.5 0.84)))
+    (color-lighten-hsl 120 0.5 0.8 5) '(120 0.5 0.85)))
   (should
    (equal (color-lighten-hsl 120 0.5 0.8 500) '(120 0.5 1.0))))
 
 (ert-deftest color-tests-lighten-name ()
-  (should (equal (color-lighten-name "black" 100) "#000000000000"))
+  (should (equal (color-lighten-name "black" 100) "#ffffffffffff"))
   (should (equal (color-lighten-name "white" 100) "#ffffffffffff"))
   (should (equal (color-lighten-name "red" 0) "#ffff00000000"))
-  (should (equal (color-lighten-name "red" 10) "#ffff19991999")))
+  (should (equal (color-lighten-name "red" 10) "#ffff33323332")))
 
 (ert-deftest color-tests-darken-hsl ()
   (should (equal (color-darken-hsl 360 0.5 0.5 0) '(360 0.5 0.5)))
-  (should (equal (color-darken-hsl 360 0.5 0.5 -10) '(360 0.5 0.55)))
+  (should (equal (color-darken-hsl 360 0.5 0.5 -10) '(360 0.5 0.6)))
   (should (equal (color-darken-hsl 360 0.5 0.5 -500) '(360 0.5 1.0)))
-  (should (equal (color-darken-hsl 120 0.5 0.8 5) '(120 0.5 0.76)))
+  (should (equal (color-darken-hsl 120 0.5 0.8 5) '(120 0.5 0.75)))
   (should (equal (color-darken-hsl 120 0.5 0.8 500) '(120 0.5 0.0))))
 
 (ert-deftest color-tests-darken-name ()
   (should (equal (color-darken-name "black" 100) "#000000000000"))
   (should (equal (color-darken-name "white" 100) "#000000000000"))
   (should (equal (color-darken-name "red" 0) "#ffff00000000"))
-  (should (equal (color-darken-name "red" 10) "#e66500000000")))
+  (should (equal (color-darken-name "red" 10) "#cccc00000000")))
 
 (ert-deftest color-tests-oklab-to-xyz ()
   (should (color-tests--approx-equal (color-oklab-to-xyz 0 0 0) '(0.0 0.0 0.0)))