Function: vtable--color-blend

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

Signature

(vtable--color-blend COLOR1 COLOR2)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/vtable.el.gz
;;; FIXME: This is probably not the right way to blend two colors, is
;;; it?
(defun vtable--color-blend (color1 color2)
  (cl-destructuring-bind (r g b)
      (mapcar (lambda (n) (* (/ n 2) 255.0))
              (cl-mapcar #'+ (color-name-to-rgb color1)
                         (color-name-to-rgb color2)))
    (format "#%02X%02X%02X" r g b)))