Function: color-complement

color-complement is a byte-compiled function defined in color.el.gz.

Signature

(color-complement COLOR-NAME)

Documentation

Return the color that is the complement of COLOR-NAME.

COLOR-NAME should be a string naming a color (e.g. "white"), or a string specifying a color's RGB components (e.g. "#ffff1212ecec").

Source Code

;; Defined in /usr/src/emacs/lisp/color.el.gz
(defun color-complement (color-name)
  "Return the color that is the complement of COLOR-NAME.
COLOR-NAME should be a string naming a color (e.g. \"white\"), or
a string specifying a color's RGB
components (e.g. \"#ffff1212ecec\")."
  (let ((color (color-name-to-rgb color-name)))
    (list (- 1.0 (nth 0 color))
          (- 1.0 (nth 1 color))
          (- 1.0 (nth 2 color)))))