diff options
Diffstat (limited to 'lisp/color.el')
| -rw-r--r-- | lisp/color.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/color.el b/lisp/color.el index e401456de76..804eb57ee53 100644 --- a/lisp/color.el +++ b/lisp/color.el @@ -291,11 +291,11 @@ conversion. If omitted or nil, use `color-d65-xyz'." (list (/ (* Y x) y) Y (/ (* Y (- 1 x y)) y)))) (defun color-lab-to-lch (L a b) - "Convert CIE L*a*b* to L*C*h*" + "Convert CIE L*a*b* to L*C*h*." (list L (sqrt (+ (* a a) (* b b))) (atan b a))) (defun color-lch-to-lab (L C h) - "Convert CIE L*a*b* to L*C*h*" + "Convert CIE L*a*b* to L*C*h*." (list L (* C (cos h)) (* C (sin h)))) (defun color-cie-de2000 (color1 color2 &optional kL kC kH) |