Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

color-hsl-to-rgb fix (tiny change)

Browse source 
* lisp/color.el (color-hsl-to-rgb): Fix incorrect results for small
and large hue values.

Fixes: debbugs:12559
This commit is contained in:
Julian Scheid 2012-10-05 19:20:36 -07:00 committed by Glenn Morris
parent 24636b2633
commit 123ec15769
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2012-10-06 Julian Scheid <julians37@gmail.com> (tiny change)
* color.el (color-hsl-to-rgb): Fix incorrect results for
small and large hue values. (Bug#12559)
2012-10-05 Fabián Ezequiel Gallina <fgallina@cuca>
Enhancements to docstring formatting when filling paragraphs.

4
lisp/color.el
View file

@ -113,9 +113,9 @@ inclusive."
(- (+ L S) (* L S))))
(m1 (- (* 2.0 L) m2)))
(list
(color-hue-to-rgb m1 m2 (+ H (/ 1.0 3)))
(color-hue-to-rgb m1 m2 (mod (+ H (/ 1.0 3)) 1))
(color-hue-to-rgb m1 m2 H)
(color-hue-to-rgb m1 m2 (- H (/ 1.0 3)))))))
(color-hue-to-rgb m1 m2 (mod (- H (/ 1.0 3)) 1))))))
(defun color-complement-hex (color)
"Return the color that is the complement of COLOR, in hexadecimal format."